diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/.gitignore b/GEOSagcm_GridComp/GEOSphysics_GridComp/.gitignore index cd19685d6..af901e1c0 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/.gitignore +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/.gitignore @@ -1,3 +1,6 @@ /@GEOSchem_GridComp /GEOSchem_GridComp /GEOSchem_GridComp@ +/@GEOSradiation_GridComp +/GEOSradiation_GridComp +/GEOSradiation_GridComp@ diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/CMakeLists.txt deleted file mode 100644 index 608f2c49e..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/CMakeLists.txt +++ /dev/null @@ -1,14 +0,0 @@ -esma_set_this() - -set (alldirs - GEOS_RadiationShared - GEOSsolar_GridComp - GEOSirrad_GridComp - GEOSsatsim_GridComp - ) - -esma_add_library (${this} - SRCS GEOS_RadiationGridComp.F90 - SUBCOMPONENTS ${alldirs} - DEPENDENCIES MAPL GEOS_Shared esmf) - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationGridComp.F90 deleted file mode 100644 index c2c905320..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationGridComp.F90 +++ /dev/null @@ -1,809 +0,0 @@ - -! $Id$ - -#include "MAPL_Generic.h" - -module GEOS_RadiationGridCompMod - -!BOP - -! !MODULE: GEOS_RadiationGridCompMod--Container for atmospheric radiation calculations - -! !DESCRIPTION: A Composite MAPL/ESMF gridded component (GC) containing the -! longwave and shortwave radiation GCs. It is intended as a container -! for the ESMF/MAPL Solar and Irrad gridded components used in GEOS-5. -! In SetServices, it creates one instance of each of its two children -! (SOLAR and IRRAD) Its Run method combines results from the children to produce -! total radiative exports. \newline -! -! It follows the standard rules for composite ESMF/MAPL GCs. -! It passes the ESMF grid that appears in the -! gridded component to both children and all their Imports -! and Exports are assumed to be on this grid. The grid must -! be present in the GC and properly initialized before Initialize -! is called, since {\tt GEOS\_RadiationGridCompMod} has its own -! explicitly declared Import state variables. \newline -! -! The restrictions on the grid are that it be 3-dimensional -! with two horizontal and one vertical dimension and -! with only the horizontal dimensions decomposed. The vertical dimension -! is also assumed to the the third dimension of the Fortran arrays and -! is indexed from the top down. No particular vertical coordinate is assumed, -! rather the 3-dimensional field of air pressure at the layer interfaces is -! a required Import. \newline -! -! This module contains only SetServices, Initialize, and Run methods. -! The Finalize method -! being defaulted to the MAPL\_Generic version. -! The SetServices method is the only public -! entity. There are no public types or data. \newline -! \newline -! -! !USES: - - use ESMF - use MAPL - - use GEOS_SolarGridCompMod, only : solarSetServices => SetServices - use GEOS_IrradGridCompMod, only : irradSetServices => SetServices - use GEOS_SatsimGridCompMod, only : satsimSetServices => SetServices - - implicit none - private - -! !PUBLIC MEMBER FUNCTIONS: - - public SetServices - -!EOP - - integer :: SOL - integer :: IRR - integer :: STM - - contains - -!BOP - -! !IROUTINE: SetServices -- Sets ESMF services for this component - -! !INTERFACE: - - subroutine SetServices ( GC, RC ) - -! !ARGUMENTS: - - type(ESMF_GridComp), intent(INOUT) :: GC ! gridded component - integer, optional :: RC ! return code - -! !DESCRIPTION: -! -! {\tt GEOS\_RadiationGridCompMod} registers Initialize and Run methods with ESMF. -! The Finalize method -! being defaulted to the MAPL\_Generic version and automatically -! registered by MAPL\_GenericSetServices. -! SetServices registers the two children (SOLAR and IRRAD) with MAPL. -! \newline -! -! Fields in its Import and Export states that are needed or produced by -! the component are explicitly -! registered in SetServices and are described in tables in this documentation. -! The Import and Export States may also contain fields implicitly -! inherited from the from the children. -! Finally, a number of child exports are ``promoted'' to be -! explicit Exports of {\tt GEOS\_RadiationGridCompMod}. \newline -! -! {\tt GEOS\_RadiationGridCompMod} has no Internal state. \newline -! -! - -!EOP - -! ErrLog Variables - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - character(len=ESMF_MAXSTR) :: COMP_NAME - integer :: USE_SATSIM - integer :: USE_SATSIM_ISCCP - integer :: USE_SATSIM_MODIS - integer :: USE_SATSIM_RADAR - integer :: USE_SATSIM_LIDAR - integer :: USE_SATSIM_MISR - -! Locals - - integer :: I - type (MAPL_MetaComp), pointer :: MAPL - - -! Begin... - -! Get my name and set-up traceback handle -! --------------------------------------- - - call ESMF_GridCompGet ( GC, name=COMP_NAME, RC=STATUS ) - VERIFY_(STATUS) - Iam = trim(COMP_NAME) // 'SetServices' - - -! Get my MAPL_Generic state -!-------------------------- - - call MAPL_GetObjectFromGC ( GC, MAPL, RC=STATUS) - VERIFY_(STATUS) - -! Set the Run entry point -! ----------------------- - - call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_INITIALIZE, Initialize, RC=status ) - VERIFY_(STATUS) - call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_RUN, Run, RC=STATUS) - VERIFY_(STATUS) - - SOL = MAPL_AddChild(GC, NAME='SOLAR', SS=solarSetServices, RC=STATUS) - VERIFY_(STATUS) - IRR = MAPL_AddChild(GC, NAME='IRRAD', SS=irradSetServices, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM,LABEL="USE_SATSIM:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM_ISCCP,LABEL="USE_SATSIM_ISCCP:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM_MODIS,LABEL="USE_SATSIM_MODIS:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM_RADAR,LABEL="USE_SATSIM_RADAR:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM_LIDAR,LABEL="USE_SATSIM_LIDAR:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM_MISR,LABEL="USE_SATSIM_MISR:",default=0, RC=STATUS) - VERIFY_(STATUS) - -! set use_satsim if anything is toggled - - USE_SATSIM = USE_SATSIM + USE_SATSIM_ISCCP + USE_SATSIM_MODIS + USE_SATSIM_RADAR + USE_SATSIM_LIDAR + USE_SATSIM_MISR - - if (USE_SATSIM > 0 ) then - STM = MAPL_AddChild(GC, NAME='SATSIM', SS=satsimSetServices, RC=STATUS) - VERIFY_(STATUS) - end if - -! Set the state variable specs. -! ----------------------------- - -!BOS - -! !IMPORT STATE: - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'PLEINST', & - LONG_NAME = 'air_pressure', & - UNITS = 'Pa', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) - -! !EXPORT STATE: - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'DTDT', & - LONG_NAME = 'pressure_weighted_air_temperature_tendency_due_to_radiation',& - UNITS = 'Pa K s-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'RADLW', & - LONG_NAME = 'air_temperature_tendency_due_to_longwave', & - UNITS = 'K s-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'RADSW', & - LONG_NAME = 'air_temperature_tendency_due_to_shortwave', & - UNITS = 'K s-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'RADLWC', & - LONG_NAME = 'air_temperature_tendency_due_to_longwave_for_clear_skies',& - UNITS = 'K s-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'RADSWC', & - LONG_NAME = 'air_temperature_tendency_due_to_shortwave_for_clear_skies',& - UNITS = 'K s-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'RADSWNA', & - LONG_NAME = 'air_temperature_tendency_due_to_shortwave_no_aerosol', & - UNITS = 'K s-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'RADLWCNA', & - LONG_NAME = 'air_temperature_tendency_due_to_longwave_for_clear_skies_no_aerosol',& - UNITS = 'K s-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'RADSWCNA', & - LONG_NAME = 'air_temperature_tendency_due_to_shortwave_for_clear_skies_no_aerosol',& - UNITS = 'K s-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'RADSRF', & - LONG_NAME = 'net_downwelling_radiation_at_surface', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'ALW', & - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC, & - SHORT_NAME = 'BLW', & - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux',& - UNITS = 'W m-2 K-1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DRPAR', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DFPAR', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DRNIR', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DFNIR', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DRUVR', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DFUVR', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DRPARN', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DFPARN', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DRNIRN', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DFNIRN', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DRUVRN', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'DFUVRN', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'FCLD', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'TAUCLI', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'TAUCLW', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'LWS', & - CHILD_ID = IRR, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'LWS0', & - CHILD_ID = IRR, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'CLDTT', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'ALBEDO', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'FSWBAND', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec ( GC , & - SHORT_NAME = 'FSWBANDNA', & - CHILD_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - -!EOS - -! Set internal connections between the children`s IMPORTS and EXPORTS -! ------------------------------------------------------------------- - -!!BOP - -! !CONNECTIONS: - -! Solar imports -!------------------- - - if (USE_SATSIM > 0 ) then - call MAPL_AddConnectivity ( GC, & - SHORT_NAME = (/ 'MCOSZ' /), & - DST_ID = STM, & - SRC_ID = SOL, & - RC=STATUS ) - VERIFY_(STATUS) - endif - -!!EOP - - -! Set generic init and final methods for us and for our children -! -------------------------------------------------------------- - - call MAPL_GenericSetServices ( gc, RC=STATUS) - VERIFY_(STATUS) - - RETURN_(ESMF_SUCCESS) - - end subroutine SetServices - - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -! !IROUTINE: Initialize -- Initialize method for the composite SuperDyn Gridded Component - -! !INTERFACE: - - subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) - -! !USES: - use cloud_condensate_inhomogeneity, only: initialize_inhomogeneity - use cloud_subcol_gen, only : initialize_cloud_subcol_gen, & - def_aam1, def_aam2, def_aam30, def_aam4, & - def_ram1, def_ram2, def_ram30, def_ram4 - -! !ARGUMENTS: - - type(ESMF_GridComp), intent(inout) :: GC ! Gridded component - type(ESMF_State), intent(inout) :: IMPORT ! Import state - type(ESMF_State), intent(inout) :: EXPORT ! Export state - type(ESMF_Clock), intent(inout) :: CLOCK ! The clock - integer, optional, intent( out) :: RC ! Error code - -! !DESCRIPTION: -! -! A component specific Initialize is present to deal with Aerosols. -! This should be done away with when a better treatment of -! aerosol optical properties. -! The Aerosol optical tables are currently in a global module -! shared by the two children; these are initialized here. - -!EOP - -! ErrLog Variables - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - character(len=ESMF_MAXSTR) :: COMP_NAME - -! Local derived type aliases - - type (MAPL_MetaComp), pointer :: MAPL -! type (ESMF_State), pointer :: GIM(:) -! type (ESMF_Config) :: CF - -! Correlation length parameters from resource file - - real :: aam1, aam2, aam30, aam4 - real :: ram1, ram2, ram30, ram4 - -!============================================================================= - -! Get the target components name and set-up traceback handle. -! ----------------------------------------------------------- - - Iam = "Initialize" - call ESMF_GridCompGet (GC, NAME=COMP_NAME, __RC__) ! CONFIG=CF, __RC__) - Iam = trim(COMP_NAME) // trim(Iam) - -! Generic initialize -!------------------- - - call MAPL_GenericInitialize (GC, IMPORT, EXPORT, CLOCK, __RC__) - -! Get my MAPL object -!------------------- - - call MAPL_GetObjectFromGC (GC, MAPL, __RC__) - -! Start Total timer after generic initialize -!------------------------------------------- - - call MAPL_TimerOn (MAPL,"TOTAL") - -! Get parameters from MAPL -!------------------------- - -! call MAPL_Get (MAPL, GIM=GIM, __RC__) - -! Initialize module-level cloud generator details. -! Currently these are only used by RRTMG SW and LW, so should probably -! make conditional on either RRTMG SW and LW being used. Dont bother -! for now. Also, may later use the cloud generator for RRTMGP as well. -!--------------------------------------------------------------------- - -! Set up RRTMG condensate inhomogeneity tables - - call initialize_inhomogeneity(1) - -! Set RRTMG cloud subcolumn generator correlation length parameters to non-default values -! from MAPL resource parameters. Comment out to just use defaults in module cloud_subcol_gen. - - call MAPL_GetResource(MAPL,aam1 ,LABEL="ADL_AM1:" ,default=def_aam1 ,__RC__) - call MAPL_GetResource(MAPL,aam2 ,LABEL="ADL_AM2:" ,default=def_aam2 ,__RC__) - call MAPL_GetResource(MAPL,aam30,LABEL="ADL_AM30:",default=def_aam30,__RC__) - call MAPL_GetResource(MAPL,aam4 ,LABEL="ADL_AM4:" ,default=def_aam4 ,__RC__) - call MAPL_GetResource(MAPL,ram1 ,LABEL="RDL_AM1:" ,default=def_ram1 ,__RC__) - call MAPL_GetResource(MAPL,ram2 ,LABEL="RDL_AM2:" ,default=def_ram2 ,__RC__) - call MAPL_GetResource(MAPL,ram30,LABEL="RDL_AM30:",default=def_ram30,__RC__) - call MAPL_GetResource(MAPL,ram4 ,LABEL="RDL_AM4:" ,default=def_ram4 ,__RC__) - call initialize_cloud_subcol_gen( & - adl_am1=aam1, adl_am2=aam2, adl_am30=aam30, adl_am4=aam4, & - rdl_am1=ram1, rdl_am2=ram2, rdl_am30=ram30, rdl_am4=ram4) - -! All done -!--------- - - call MAPL_TimerOff (MAPL,"TOTAL") - RETURN_(ESMF_SUCCESS) - - end subroutine Initialize - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -!BOP - -! !IROUTINE: RUN -- Run method for the composite radiation component - -! !INTERFACE: - -subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC ) - -! !ARGUMENTS: - - type(ESMF_GridComp), intent(inout) :: GC ! Gridded component - type(ESMF_State), intent(inout) :: IMPORT ! Import state - type(ESMF_State), intent(inout) :: EXPORT ! Export state - type(ESMF_Clock), intent(inout) :: CLOCK ! The clock - integer, optional, intent( out) :: RC ! Error code: - -! !DESCRIPTION: Calls the run methods of solar and irrad and combines -! their fluxes into a single pressure-weighted temperature tendency. -! \newline -! -! The Children's Run method is called with the Clock that appears in -! {\tt GEOS\_RadiationGridCompMod}'s Run method. -! It assumes that, on every call to -! their Run method, both children update their Exports -! to values consisten with the current time on that Clock. \newline -! -! The code assumes a single Aerosol bundle will go to both -! children. The bundle is passed to the children with a MAPL call. \newline -! -!EOP - -! ErrLog Variables - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - character(len=ESMF_MAXSTR) :: COMP_NAME - -! Local derived type aliases - - type (MAPL_MetaComp), pointer :: MAPL - type (ESMF_State ), pointer :: GEX(: ) - - integer :: I, L - -! Pointers to IR exports - - real, pointer, dimension(:,: ) :: SFCEM - real, pointer, dimension(:,: ) :: DSFDTS - real, pointer, dimension(:,: ) :: TRD - real, pointer, dimension(:,:,:) :: FLW - real, pointer, dimension(:,:,:) :: FLWCLR - real, pointer, dimension(:,:,:) :: FLA - -! Pointers to SOLAR exports - - real, pointer, dimension(:,:,:) :: FSW - real, pointer, dimension(:,:,:) :: FSWCLR - real, pointer, dimension(:,:,:) :: FSWNA - real, pointer, dimension(:,:,:) :: FSCNA - -! Pointers to imports - - real, pointer, dimension(:,:,:) :: PLE - -! Pointers to exports - - real, pointer, dimension(:,:,:) :: DTDT - real, pointer, dimension(:,:,:) :: RADLW - real, pointer, dimension(:,:,:) :: RADSW - real, pointer, dimension(:,:,:) :: RADLWC - real, pointer, dimension(:,:,:) :: RADSWC - real, pointer, dimension(:,:,:) :: RADSWNA - real, pointer, dimension(:,:,:) :: RADLWCNA - real, pointer, dimension(:,:,:) :: RADSWCNA - real, pointer, dimension(:,: ) :: ALW - real, pointer, dimension(:,: ) :: BLW - real, pointer, dimension(:,: ) :: RADSRF - -! Locals - - real, pointer, dimension(:,:,:) :: DMI - integer :: IM - integer :: JM - integer :: LM - -!============================================================================= - -! Begin... - -! Get the target components name and set-up traceback handle. -! ----------------------------------------------------------- - - call ESMF_GridCompGet( GC, name=COMP_NAME, RC=STATUS ) - VERIFY_(STATUS) - Iam = trim(COMP_NAME) // "Run" - -! Get my internal MAPL_Generic state -!----------------------------------- - - call MAPL_GetObjectFromGC ( GC, MAPL, RC=STATUS) - VERIFY_(STATUS) - -! Start Total timer -!------------------ - - call MAPL_TimerOn(MAPL,"TOTAL") - -! Get parameters from generic state. -!----------------------------------- - - call MAPL_Get(MAPL, & - GEX=GEX, & - IM=IM, JM=JM, LM=LM, & - RC=STATUS ) - VERIFY_(STATUS) - -! Get pointers to exports -!------------------------ - - call MAPL_GetPointer ( IMPORT, PLE , 'PLEINST' , RC=STATUS ) - VERIFY_(STATUS) - -! Get pointers to exports -!------------------------ - - call MAPL_GetPointer ( EXPORT, DTDT , 'DTDT' , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, ALW , 'ALW' , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, BLW , 'BLW' , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, RADSRF , 'RADSRF' , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, RADLW , 'RADLW' , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, RADSW , 'RADSW' , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, RADLWC , 'RADLWC' , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, RADSWC , 'RADSWC' , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, RADSWNA , 'RADSWNA' , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, RADLWCNA, 'RADLWCNA', RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, RADSWCNA, 'RADSWCNA', RC=STATUS ) - VERIFY_(STATUS) - -! Allocate children's exports that we need -!----------------------------------------- - - if (associated(RADSW ) .or. associated(DTDT ) .or. associated(RADSRF) ) then - call MAPL_GetPointer ( GEX(SOL), FSW , 'FSW' , alloc=.TRUE.,RC=STATUS ) - VERIFY_(STATUS) - end if - - if (associated(RADSWC) ) then - call MAPL_GetPointer ( GEX(SOL), FSWCLR, 'FSC' , alloc=.TRUE.,RC=STATUS ) - VERIFY_(STATUS) - end if - - if (associated(RADLW) .or. associated(DTDT ) .or. associated(RADSRF)) then - call MAPL_GetPointer ( GEX(IRR), FLW , 'FLX' , alloc=.TRUE.,RC=STATUS ) - VERIFY_(STATUS) - end if - - if (associated(RADLWC) ) then - call MAPL_GetPointer ( GEX(IRR), FLWCLR, 'FLC' , alloc=.TRUE.,RC=STATUS ) - VERIFY_(STATUS) - end if - - if (associated(RADSWNA) ) then - call MAPL_GetPointer ( GEX(SOL), FSWNA , 'FSWNA' , alloc=.TRUE.,RC=STATUS ) - VERIFY_(STATUS) - end if - - if (associated(RADSWCNA) ) then - call MAPL_GetPointer ( GEX(SOL), FSCNA, 'FSCNA' , alloc=.TRUE.,RC=STATUS ) - VERIFY_(STATUS) - end if - - if (associated(RADLWCNA) ) then - call MAPL_GetPointer ( GEX(IRR), FLA , 'FLA' , alloc=.TRUE.,RC=STATUS ) - VERIFY_(STATUS) - end if - - if ( associated(ALW ) .or. associated(BLW ) ) then - call MAPL_GetPointer ( GEX(IRR), DSFDTS, 'DSFDTS0', alloc=.TRUE.,RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(IRR), SFCEM , 'SFCEM0' , alloc=.TRUE.,RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(IRR), TRD , 'TSREFF' , alloc=.TRUE.,RC=STATUS ) - VERIFY_(STATUS) - end if - -! Run the child components and their couplers -!-------------------------------------------- - - call MAPL_TimerOff(MAPL,"TOTAL") - call MAPL_GenericRunChildren (GC, IMPORT, EXPORT, CLOCK, RC=STATUS ) - VERIFY_(STATUS) - call MAPL_TimerOn (MAPL,"TOTAL") - -! Prepare exports -!---------------- - - if( associated (BLW ) ) BLW = DSFDTS - if( associated (ALW ) ) ALW = SFCEM - DSFDTS*TRD - if( associated (RADSRF ) ) RADSRF = (FSW(:,:, LM ) + FLW(:,:, LM)) - if( associated (DTDT ) ) DTDT = ( (FLW(:,:,0:LM-1) - FLW(:,:,1:LM)) + & - (FSW(:,:,0:LM-1) - FSW(:,:,1:LM)) ) * (MAPL_GRAV/MAPL_CP) - - if( associated (RADLW ) .or. associated (RADSW ) .or. & - associated (RADLWC) .or. associated (RADSWC) .or. & - associated (RADSWNA).or. associated (RADSWCNA) .or. & - associated (RADLWCNA) ) then - - allocate(DMI(IM,JM,LM),stat=STATUS) - VERIFY_(STATUS) - DMI = MAPL_GRAV/(MAPL_CP*(PLE(:,:,1:LM)-PLE(:,:,0:LM-1))) - - if( associated (RADLW ) ) RADLW = (FLW (:,:,0:LM-1) - FLW (:,:,1:LM))*DMI - if( associated (RADSW ) ) RADSW = (FSW (:,:,0:LM-1) - FSW (:,:,1:LM))*DMI - if( associated (RADLWC ) ) RADLWC = (FLWCLR(:,:,0:LM-1) - FLWCLR(:,:,1:LM))*DMI - if( associated (RADSWC ) ) RADSWC = (FSWCLR(:,:,0:LM-1) - FSWCLR(:,:,1:LM))*DMI - if( associated (RADSWNA ) ) RADSWNA = (FSWNA (:,:,0:LM-1) - FSWNA (:,:,1:LM))*DMI - if( associated (RADLWCNA) ) RADLWCNA = (FLA (:,:,0:LM-1) - FLA (:,:,1:LM))*DMI - if( associated (RADSWCNA) ) RADSWCNA = (FSCNA (:,:,0:LM-1) - FSCNA (:,:,1:LM))*DMI - - deallocate(DMI,stat=STATUS) - VERIFY_(STATUS) - - end if - - call MAPL_TimerOff(MAPL,"TOTAL") - - RETURN_(ESMF_SUCCESS) - - end subroutine RUN - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -end module GEOS_RadiationGridCompMod - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/.gitignore b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/.gitignore deleted file mode 100644 index 3c7068691..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/.gitignore +++ /dev/null @@ -1,3 +0,0 @@ -/@RRTMGP -/RRTMGP -/RRTMGP@ diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/CMakeLists.txt deleted file mode 100644 index 03be5c470..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/CMakeLists.txt +++ /dev/null @@ -1,16 +0,0 @@ -esma_set_this () - -set (srcs - radconstants.F90 - gettau.F90 - cloud_condensate_inhomogeneity.F90 - cloud_subcol_gen.F90 - ) - -esma_add_subdirectories( - RRTMGP_cmake - ) - -esma_add_library (${this} - SRCS ${srcs} - DEPENDENCIES GEOS_Shared MAPL RRTMGP) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/CMakeLists.txt deleted file mode 100644 index dbde4fd4c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/CMakeLists.txt +++ /dev/null @@ -1,81 +0,0 @@ -esma_set_this (OVERRIDE RRTMGP) - -# These are from RRTMGP -set (RRTMGP_SRCS - rte/mo_rte_kind.F90 - rte/mo_rte_config.F90 - rte/mo_rte_util_array.F90 - rte/kernels/mo_rte_solver_kernels.F90 - rte/kernels/mo_optical_props_kernels.F90 - rte/kernels/mo_fluxes_broadband_kernels.F90 - rte/mo_optical_props.F90 - rte/mo_source_functions.F90 - rte/mo_fluxes.F90 - rrtmgp/mo_rrtmgp_constants.F90 - rrtmgp/mo_rrtmgp_util_reorder.F90 - rrtmgp/mo_rrtmgp_util_string.F90 - rrtmgp/mo_gas_optics.F90 - rrtmgp/mo_gas_optics_rrtmgp.F90 - rrtmgp/mo_gas_concentrations.F90 - rrtmgp/kernels/mo_gas_optics_kernels.F90 - rrtmgp/kernels/mo_rrtmgp_util_reorder_kernels.F90 - extensions/mo_compute_bc.F90 - extensions/mo_fluxes_byband.F90 - extensions/mo_fluxes_bygpoint.F90 - extensions/mo_heating_rates.F90 - extensions/mo_rrtmgp_clr_all_sky.F90 - extensions/cloud_optics/mo_cloud_optics.F90 - extensions/cloud_optics/mo_cloud_sampling.F90 - examples/mo_simple_netcdf.F90 - examples/mo_load_coefficients.F90 - examples/all-sky/mo_load_cloud_coefficients.F90 - rte/mo_rte_lw.F90 - rte/mo_rte_sw.F90 - ) - -esma_mepo_style(RRTMGP RRTMGP_rel_path REL_PATH ..) -set (RRTMGP_path ${CMAKE_CURRENT_SOURCE_DIR}/${RRTMGP_rel_path}) - -set (SRCS) -foreach (file ${RRTMGP_SRCS}) - list (APPEND SRCS ${RRTMGP_path}/${file}) -endforeach () - -# Now we append some sources not in RRTMGP proper -list (APPEND SRCS - rng/mo_rng.F90 - ) - -# These files need MKL -if (APPLE) - set(MKL_Fortran TRUE) -endif () -find_package(MKL) -if (MKL_FOUND) - set(BLA_VENDOR Intel10_64lp_seq) - - list (APPEND SRCS - rng/mo_rng_mklvsl.F90 - rng/mo_rng_mklvsl_plus.F90 - ) - -else () - ecbuild_warn("MKL was not found. The mklvsl rng will not be compiled. RRTMGP should not be used.") -endif() - -esma_add_library(${this} - SRCS ${SRCS} - DEPENDENCIES NetCDF::NetCDF_Fortran) - -# Use of the GEOS Vectorized flags in RRTMGP caused a segfault leading to -# line 726 of mo_gas_optics_kernels.F90. Moving to the "old" no-vect flags -# allows RRTMGP to run again. -if (CMAKE_Fortran_COMPILER_ID MATCHES Intel AND CMAKE_BUILD_TYPE MATCHES Release) - set (CMAKE_Fortran_FLAGS_RELEASE "${GEOS_Fortran_FLAGS_NOVECT}") -endif () - -if (MKL_FOUND) - target_include_directories (${this} PRIVATE ${MKL_INCLUDE_DIRS}) -endif() - -set_target_properties (${this} PROPERTIES Fortran_MODULE_DIRECTORY ${include_${this}}) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/pmn_notes b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/pmn_notes deleted file mode 100644 index 8122a8797..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/pmn_notes +++ /dev/null @@ -1,17 +0,0 @@ -rrtmgp/mo_gas_concentrations.F90: - vmr is assumed to be moles of the gas per moles of dry air in other parts of code -rte/kernels/mo_rte_solver_kernels.F90: - I'm pretty sure flux_up, flux_dn are both fluxes [W/m2] ----- -discover15/discover/nobackup/pnorris/RRTMGP-Dev/RRTMGP-Dev-Feb2020/GEOSgcm/src/Components/@GEOSgcm_GridComp/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP/extensions>grep pmn mo_rrtmgp_clr_all_sky.F90 -! pmn: k_dist contains spectral info and nature of source (int or ext) -! pmn: cloud optical properties determine the stream-ness of the whole RT -! pmn: initialize optical properties with spectral info -! pmn: and then allocate for requested stream-ness -! pmn: initialize the lw sources with k_dist and allocate -! pmn: get the gas_optics into optical_properties and sources -! pmn: add aero_props to optical_props -! pmn: add cloud optical properties to optical_properties -discover15/discover/nobackup/pnorris/RRTMGP-Dev/RRTMGP-Dev-Feb2020/GEOSgcm/src/Components/@GEOSgcm_GridComp/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP/extensions>cp -p mo_rrtmgp_clr_all_sky.F90 $ARCHIVE/code/mo_rrtmgp_clr_all_sky.F90.b4.20200212 -discover15/discover/nobackup/pnorris/RRTMGP-Dev/RRTMGP-Dev-Feb2020/GEOSgcm/src/Components/@GEOSgcm_GridComp/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP/extensions> ----- diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng.F90 deleted file mode 100644 index 270c8e049..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng.F90 +++ /dev/null @@ -1,75 +0,0 @@ -! Module: mo_rng - -! This code is part of -! RRTM for GCM Applications - Parallel (RRTMGP) -! -! Eli Mlawer and Robert Pincus -! Andre Wehe and Jennifer Delamere -! email: rrtmgp@aer.com -! -! Copyright 2015, Atmospheric and Environmental Research and -! Regents of the University of Colorado. All right reserved. -! -! Use and duplication is permitted under the terms of the -! BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause -! - -module mo_rng - implicit none - - ! --- abstract base class: random number generator - ! used as an abstract class - type, abstract, public :: ty_rng - contains - procedure(abstract_get_random_vec), deferred :: get_random_vec - procedure(abstract_get_random_vec_mask), deferred :: get_random_vec_mask - procedure(abstract_init_rng), deferred :: init_rng - procedure(abstract_end_rng), deferred :: end_rng - generic, public :: get_random => get_random_vec, get_random_vec_mask - generic, public :: init => init_rng - generic, public :: end => end_rng - end type - - ! --- Deferred procedures - ! These define the interface that can be expected and need to be implmented in any derived class - ! - abstract interface - ! ----------------------------------------------------------------------------------- - ! Provide num random numbers following a uniform distribution between 0 and 1 - ! - function abstract_get_random_vec(this, num) - use mo_rte_kind, only : dp - import ty_rng - class(ty_rng) :: this - integer, intent(in) :: num - real(DP), dimension(num) :: abstract_get_random_vec - end function abstract_get_random_vec - ! ----------------------------------------------------------------------------------- - ! Provide random numbers for the TRUE elements of MASK - ! - function abstract_get_random_vec_mask(this, mask) - use mo_rte_kind, only : dp - import ty_rng - class(ty_rng) :: this - logical, dimension(:), intent(in) :: mask - real(DP), dimension(size(mask)) :: abstract_get_random_vec_mask - end function abstract_get_random_vec_mask - ! ----------------------------------------------------------------------------------- - ! Initialize the random number state. - ! - subroutine abstract_init_rng(this, seeds) - import ty_rng - class(ty_rng) :: this - integer, dimension(:), intent(in) :: seeds - end subroutine abstract_init_rng - ! ----------------------------------------------------------------------------------- - ! Release any resources associated with the RNG. Could do nothing. - ! - subroutine abstract_end_rng(this) - import ty_rng - class(ty_rng) :: this - end subroutine abstract_end_rng - ! ----------------------------------------------------------------------------------- - end interface - -end diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mklvsl.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mklvsl.F90 deleted file mode 100644 index 56e24df1a..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mklvsl.F90 +++ /dev/null @@ -1,121 +0,0 @@ -! Module: mo_rng_mklvsl - -! This code is part of -! RRTM for GCM Applications - Parallel (RRTMGP) -! -! Eli Mlawer and Robert Pincus -! Andre Wehe and Jennifer Delamere -! email: rrtmgp@aer.com -! -! Copyright 2015, Atmospheric and Environmental Research and -! Regents of the University of Colorado. All right reserved. -! -! Use and duplication is permitted under the terms of the -! BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause -! - -! -! Implementation of random number interface using Intel Vector Statistics Library -! - -include 'mkl_vsl.f90' ! Needed to generate MKL_VSL modules below - -module mo_rng_mklvsl - - use mo_rte_kind, only : dp - use mo_rng - USE MKL_VSL_TYPE - USE MKL_VSL - implicit none - - ! Mersenne Twister - ! Alternatives are VSL_BRNG_SFMT19937, maybe VSL_BRNG_MT2203? - integer, parameter :: rng_type = VSL_BRNG_MT19937 - - ! Uniform distribution - integer, parameter :: rng_method = VSL_RNG_METHOD_UNIFORM_STD - - ! extended random number generator class - type, extends(ty_rng), public :: ty_rng_mklvsl - TYPE (VSL_STREAM_STATE) :: stream - contains - procedure :: get_random_vec => get_rng_mkl_vec - procedure :: get_random_vec_mask => get_rng_mkl_mask - procedure :: init_rng => init_rng_mkl - procedure :: end_rng => end_rng_mkl - end type - -contains - - subroutine stop_on_err(msg) - - use iso_fortran_env, only : error_unit - character(len=*), intent(in) :: msg - - if (msg /= "") then - write(error_unit, *) msg - stop - end if - - end subroutine - - ! ------------------------------------------------------------------------------------- - ! Provide num random numbers following a uniform distribution between 0 and 1 - ! - function get_rng_mkl_vec(this, num) result(u) - - class(ty_rng_mklvsl) :: this - integer, intent(in) :: num - real(dp), dimension(num) :: u - - integer :: status - status = vdrnguniform(rng_method, this%stream, num, u, 0._dp, 1._dp) - if (status /= VSL_STATUS_OK) call stop_on_err("Error getting random numbers") - - end function get_rng_mkl_vec - - ! ------------------------------------------------------------------------------------- - ! Provide random numbers for the TRUE elements of MASK - ! - function get_rng_mkl_mask(this, mask) result(u) - - class(ty_rng_mklvsl) :: this - logical, dimension(:), intent(in) :: mask - real(dp), dimension(size(mask)) :: u - - u(:) = unpack(get_rng_mkl_vec(this, count(mask)), & - MASK = mask, FIELD = 0._dp) - - end function get_rng_mkl_mask - - ! ------------------------------------------------------------------------------------- - ! Initialize the random number state. - ! - subroutine init_rng_mkl(this, seeds) - - class(ty_rng_mklvsl) :: this - integer, dimension(:), intent(in) :: seeds - - integer :: status - status = vslnewstream(this%stream, rng_type, seeds(1)) - if (status /= VSL_STATUS_OK) & - call stop_on_err("Error initializing random number stream") - - end subroutine init_rng_mkl - - ! ------------------------------------------------------------------------------------- - ! Release any resources associated with the RNG. - ! - subroutine end_rng_mkl(this) - - class(ty_rng_mklvsl) :: this - - integer :: status - status = vsldeletestream(this%stream) - if (status /= VSL_STATUS_OK) & - call stop_on_err("Error finalizing random number stream") - - end subroutine end_rng_mkl - ! ------------------------------------------------------------------------------------- - -end module mo_rng_mklvsl diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mklvsl_plus.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mklvsl_plus.F90 deleted file mode 100644 index 7f2fac00c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mklvsl_plus.F90 +++ /dev/null @@ -1,119 +0,0 @@ -! Module: mo_rng_mklvsl_plus - -! An extension by Peter Norris, of GMAO, NASA/GSFC, of mo_rng_mklvsl -! from mo_rng_mklvsl.F90 of the RTE+RRTMGP distribution, the original -! copyright message included here: -! ------------------------------------------------------------------- -! This code is part of -! RRTM for GCM Applications - Parallel (RRTMGP) -! -! Eli Mlawer and Robert Pincus -! Andre Wehe and Jennifer Delamere -! email: rrtmgp@aer.com -! -! Copyright 2015, Atmospheric and Environmental Research and -! Regents of the University of Colorado. All right reserved. -! -! Use and duplication is permitted under the terms of the -! BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause -! -! ------------------------------------------------------------------- - -! -! Revised Implementation of random number interface using Intel Vector -! Statistics Library. Extends mo_rng_mklvsl to provide flexibility thru -! the initializers of which MKLVSL BRNG to use. Also uses ACCURATE mode -! of the uniform [0.,1.) generator. -! -! Note on accurate (_ACCURATE) mode uniform distribution: -! If only need fast (_STD) mode, can remove the get_rng_mkl_*_accurate() -! and just inherit the get_rng_mkl_*() from mo_rng_mklvsl -! - -module mo_rng_mklvsl_plus - - use MKL_VSL_TYPE - use MKL_VSL - use mo_rte_kind, only: dp - use mo_rng_mklvsl, only: ty_rng_mklvsl, stop_on_err - implicit none - private - public :: ty_rng_mklvsl_plus - - ! extended random number generator class - type, extends(ty_rng_mklvsl) :: ty_rng_mklvsl_plus - contains - procedure :: get_random_vec => get_rng_mkl_vec_accurate - procedure :: get_random_vec_mask => get_rng_mkl_mask_accurate - procedure :: init_rng_mkl_plus_scalar - procedure :: init_rng_mkl_plus_vector - generic, public :: init => & - init_rng_mkl_plus_scalar, init_rng_mkl_plus_vector - end type - -contains - - ! ------------------------------------------------------------------------------------- - ! Provide num random numbers following a uniform distribution between 0 and 1 - ! - function get_rng_mkl_vec_accurate(this, num) result(u) - - class(ty_rng_mklvsl_plus) :: this - integer, intent(in) :: num - real(dp), dimension(num) :: u - - integer :: status - status = vdRngUniform( & - VSL_RNG_METHOD_UNIFORM_STD_ACCURATE, & - this%stream, num, u, 0._dp, 1._dp) - if (status /= VSL_STATUS_OK) & - call stop_on_err("Error getting random numbers") - - end function get_rng_mkl_vec_accurate - - ! ------------------------------------------------------------------------------------- - ! Provide random numbers for the TRUE elements of MASK - ! - function get_rng_mkl_mask_accurate(this, mask) result(u) - - class(ty_rng_mklvsl_plus) :: this - logical, dimension(:), intent(in) :: mask - real(dp), dimension(size(mask)) :: u - - u(:) = unpack( & - get_rng_mkl_vec_accurate(this, count(mask)), & - MASK = mask, FIELD = 0._dp) - - end function get_rng_mkl_mask_accurate - - ! ------------------------------------------------------------------------------------- - ! Initialize the random number state. - ! - subroutine init_rng_mkl_plus_scalar(this, brng, seed) - - class(ty_rng_mklvsl_plus) :: this - integer, intent(in) :: brng - integer, intent(in) :: seed - - integer :: status - status = vslNewStream(this%stream, brng, seed) - if (status /= VSL_STATUS_OK) & - call stop_on_err("Error initializing random number stream: scalar") - - end subroutine init_rng_mkl_plus_scalar - ! - subroutine init_rng_mkl_plus_vector(this, brng, seeds) - - class(ty_rng_mklvsl_plus) :: this - integer, intent(in) :: brng - integer, dimension(:), intent(in) :: seeds - - integer :: status - status = vslNewStreamEx(this%stream, brng, size(seeds), seeds) - if (status /= VSL_STATUS_OK) & - call stop_on_err("Error initializing random number stream: vector") - - end subroutine init_rng_mkl_plus_vector - ! ------------------------------------------------------------------------------------- - -end module mo_rng_mklvsl_plus diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mt19937.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mt19937.F90 deleted file mode 100644 index db3b76998..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mt19937.F90 +++ /dev/null @@ -1,340 +0,0 @@ -! Module: mo_rng_MT19937 - -! This code is part of -! RRTM for GCM Applications - Parallel (RRTMGP) -! -! Eli Mlawer and Robert Pincus -! Andre Wehe and Jennifer Delamere -! email: rrtmgp@aer.com -! -! Copyright 2015, Atmospheric and Environmental Research and -! Regents of the University of Colorado. All right reserved. -! -! Use and duplication is permitted under the terms of the -! BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause -! - -! Copyight 2003-2009, Regents of the University of Colorado. All right reserved -! Use and duplication is permitted under the terms of the -! GNU public license, V2 : http://www.gnu.org/licenses/old-licenses/gpl-2.0.html - -! $Revision$, $Date$ -! $URL: https://Robert.Pincus%40colorado.edu@i3rc-monte-carlo-model.googlecode.com/svn/trunk/Code/RandomNumbersForMC.f95 $ -! Fortran-95 implementation of the Mersenne Twister 19937, following -! the C implementation described below (code mt19937ar-cok.c, dated 2002/2/10), -! adapted cosmetically by making the names more general. -! Users must declare one or more variables of type randomNumberSequence in the calling -! procedure which are then initialized using a required seed. If the -! variable is not initialized the random numbers will all be 0. -! For example: -! program testRandoms -! use RandomNumbers -! type(ty_rng_mt) :: randomNumbers -! integer :: i -! -! randomNumbers = new_RandomNumberSequence(seed = 100) -! do i = 1, 10 -! print ('(f12.10, 2x)'), getRandomReal(randomNumbers) -! end do -! end program testRandoms -! -! Fortran-95 implementation by -! Robert Pincus -! University of Colorado -! Boulder, CO 80305 -! email: Robert.Pincus@colorado.edu -! -! This documentation in the original C program reads: -! ------------------------------------------------------------- -! A C-program for MT19937, with initialization improved 2002/2/10. -! Coded by Takuji Nishimura and Makoto Matsumoto. -! This is a faster version by taking Shawn Cokus's optimization, -! Matthe Bellew's simplification, Isaku Wada's real version. -! -! Before using, initialize the state by using init_genrand(seed) -! or init_by_array(init_key, key_length). -! -! Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura, -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions -! are met: -! -! 1. Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! -! 2. Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! -! 3. The names of its contributors may not be used to endorse or promote -! products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, -! EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, -! PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR -! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF -! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -! -! -! Any feedback is very welcome. -! http://www.math.keio.ac.jp/matumoto/emt.html -! email: matumoto@math.keio.ac.jp -! ------------------------------------------------------------- - -module mo_rng_MT19937 -! ------------------------------------------------------------- - use mo_rte_kind, only: i4, dp - use mo_rng - implicit none - private - - ! Algorithm parameters - ! ------- - ! Period parameters - integer(kind=i4), parameter :: blockSize = 624, & - M = 397, & - MATRIX_A = -1727483681 ! constant vector a (0x9908b0dfUL) - integer(kind=i4), parameter :: LMASK = huge(M), & ! least significant r bits (0x7fffffffUL) - ! Can also use 2147483647 - UMASK = -huge(M) - 1 ! most significant w-r bits (0x80000000UL) - ! Can also use not(huge(M)) or -2147483648 - ! Tempering parameters - integer(kind=i4), parameter :: TMASKB= -1658038656, & ! (0x9d2c5680UL) - TMASKC= -272236544 ! (0xefc60000UL) - ! ------- - - ! The type containing the state variable - type, extends(ty_rng), public :: ty_rng_mt - integer :: currentElement = blockSize - integer(kind=i4), dimension(0:blockSize -1) :: state = 0 - contains - procedure :: get_random_vec => get_rng_mt_vec - procedure :: get_random_vec_mask & - => get_rng_mt_mask - procedure :: init_rng => initialize_vector - procedure :: end_rng => finalize_RandomNumberSequence - end type ty_rng_mt - -! ------------------------------------------------------------- -contains - ! ------------------------------------------------------------- - ! Private functions - ! --------------------------- - elemental function mixbits(u, v) - integer, intent( in) :: u, v - integer :: mixbits - - mixbits = ior(iand(u, UMASK), iand(v, LMASK)) - end function mixbits - ! --------------------------- - elemental function twist(u, v) - integer, intent( in) :: u, v - integer :: twist - - ! Local variable - integer, parameter, dimension(0:1) :: t_matrix = (/ 0, MATRIX_A /) - - twist = ieor(ishft(mixbits(u, v), -1), t_matrix(iand(v, 1))) - twist = ieor(ishft(mixbits(u, v), -1), t_matrix(iand(v, 1))) - end function twist - ! --------------------------- - subroutine nextState(twister) - type(ty_rng_mt), intent(inout) :: twister - - ! Local variables - integer :: k - - do k = 0, blockSize - M - 1 - twister%state(k) = ieor(twister%state(k + M), & - twist(twister%state(k), twister%state(k + 1))) - end do - do k = blockSize - M, blockSize - 2 - twister%state(k) = ieor(twister%state(k + M - blockSize), & - twist(twister%state(k), twister%state(k + 1))) - end do - twister%state(blockSize - 1) = ieor(twister%state(M - 1), & - twist(twister%state(blockSize - 1), twister%state(0))) - twister%currentElement = 0 - - end subroutine nextState - ! --------------------------- - elemental function temper(y) - integer, intent(in) :: y - integer :: temper - - integer :: x - - ! Tempering - x = ieor(y, ishft(y, -11)) - x = ieor(x, iand(ishft(x, 7), TMASKB)) - x = ieor(x, iand(ishft(x, 15), TMASKC)) - temper = ieor(x, ishft(x, -18)) - end function temper - ! ------------------------------------------------------------- - ! Public (but hidden) functions - ! -------------------- - subroutine initialize_scalar(twister, seed) - class(ty_rng_mt), intent( out) :: twister - integer, intent(in ) :: seed - - integer :: i - ! See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. In the previous versions, - ! MSBs of the seed affect only MSBs of the array state[]. - ! 2002/01/09 modified by Makoto Matsumoto - - twister%state(0) = iand(seed, -1) - do i = 1, blockSize - 1 ! ubound(twister%state) - twister%state(i) = 1812433253 * ieor(twister%state(i-1), & - ishft(twister%state(i-1), -30)) + i - twister%state(i) = iand(twister%state(i), -1) ! for >32 bit machines - end do - twister%currentElement = blockSize - end subroutine initialize_scalar - ! ------------------------------------------------------------- - subroutine initialize_vector(this, seeds) - integer, dimension(0:), intent(in) :: seeds - class(ty_rng_mt) :: this - - integer :: i, j, k, nFirstLoop, nWraps = 0 - - call initialize_scalar(this, 19650218) - - nWraps = 0 - nFirstLoop = max(blockSize, size(seeds)) - do k = 1, nFirstLoop - i = mod(k + nWraps, blockSize) - j = mod(k - 1, size(seeds)) - if(i == 0) then - this%state(i) = this%state(blockSize - 1) - this%state(1) = ieor(this%state(1), & - ieor(this%state(1-1), & - ishft(this%state(1-1), -30)) * 1664525) + & - seeds(j) + j ! Non-linear - this%state(i) = iand(this%state(i), -1) ! for >32 bit machines - nWraps = nWraps + 1 - else - this%state(i) = ieor(this%state(i), & - ieor(this%state(i-1), & - ishft(this%state(i-1), -30)) * 1664525) + & - seeds(j) + j ! Non-linear - this%state(i) = iand(this%state(i), -1) ! for >32 bit machines - end if - end do - - ! - ! Walk through the state array, beginning where we left off in the block above - ! - do i = mod(nFirstLoop, blockSize) + nWraps + 1, blockSize - 1 - this%state(i) = ieor(this%state(i), & - ieor(this%state(i-1), & - ishft(this%state(i-1), -30)) * 1566083941) - i ! Non-linear - this%state(i) = iand(this%state(i), -1) ! for >32 bit machines - end do - - this%state(0) = this%state(blockSize - 1) - - do i = 1, mod(nFirstLoop, blockSize) + nWraps - this%state(i) = ieor(this%state(i), & - ieor(this%state(i-1), & - ishft(this%state(i-1), -30)) * 1566083941) - i ! Non-linear - this%state(i) = iand(this%state(i), -1) ! for >32 bit machines - end do - - this%state(0) = UMASK - this%currentElement = blockSize - - end subroutine initialize_vector - ! ------------------------------------------------------------- - ! Public functions - ! -------------------- - function getRandomInt(twister) - type(ty_rng_mt), intent(inout) :: twister - integer :: getRandomInt - ! Generate a random integer on the interval [0,0xffffffff] - ! Equivalent to genrand_int32 in the C code. - ! Fortran doesn't have a type that's unsigned like C does, - ! so this is integers in the range -2**31 - 2**31 - ! All functions for getting random numbers call this one, - ! then manipulate the result - - if(twister%currentElement >= blockSize) call nextState(twister) - - getRandomInt = temper(twister%state(twister%currentElement)) - twister%currentElement = twister%currentElement + 1 - - end function getRandomInt - ! -------------------- - function getRandomPositiveInt(twister) - type(ty_rng_mt), intent(inout) :: twister - integer :: getRandomPositiveInt - ! Generate a random integer on the interval [0,0x7fffffff] - ! or [0,2**31] - ! Equivalent to genrand_int31 in the C code. - - ! Local integers - integer :: localInt - - localInt = getRandomInt(twister) - getRandomPositiveInt = ishft(localInt, -1) - - end function getRandomPositiveInt - ! -------------------- - function getRandomDouble(twister) - type(ty_rng_mt), intent(inout) :: twister - real(kind=dp) :: getRandomDouble - ! Generate a random number on [0,1] - ! Equivalent to genrand_real1 in the C code - ! The result is stored as double precision but has 32 bit resolution - - integer :: localInt - - localInt = getRandomInt(twister) - if(localInt < 0) then - getRandomDouble = dble(localInt + 2.0d0**32)/(2.0d0**32 - 1.0d0) - else - getRandomDouble = dble(localInt )/(2.0d0**32 - 1.0d0) - end if - end function getRandomDouble - ! -------------------- - subroutine finalize_RandomNumberSequence(this) - class(ty_rng_mt) :: this - - this%currentElement = blockSize - this%state(:) = 0 - end subroutine finalize_RandomNumberSequence - ! ------------------------------------------------------------------------------------- - ! Provide num random numbers following a uniform distribution between 0 and 1 - ! - function get_rng_mt_vec(this, num) - class(ty_rng_mt) :: this - integer, intent(in ) :: num - real(DP), dimension(num) :: get_rng_mt_vec - - integer :: i - - do i = 1, num - get_rng_mt_vec(i) = getRandomDouble(this) - end do - end function get_rng_mt_vec - ! -------------------- - ! Provide random numbers for the TRUE elements of MASK - ! - function get_rng_mt_mask(this, mask) - class(ty_rng_mt) :: this - logical, dimension(:), intent(in) :: mask - real(DP), dimension(size(mask)) :: get_rng_mt_mask - - get_rng_mt_mask(:) = UNPACK(get_rng_mt_vec(this, COUNT(mask)), MASK = mask, FIELD = 0._dp) - end function get_rng_mt_mask - ! -------------------- -end module mo_rng_MT19937 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_condensate_inhomogeneity.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_condensate_inhomogeneity.F90 deleted file mode 100644 index 785536570..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_condensate_inhomogeneity.F90 +++ /dev/null @@ -1,70417 +0,0 @@ -module cloud_condensate_inhomogeneity - - use iso_fortran_env, only : error_unit - - implicit none - - ! state is saved outside of scope - save - - ! all fields and methods hidden unless declared public below - private - - ! lookup table dimensions - integer, parameter :: n1 = 1000 - integer, parameter :: n2 = 140 - - ! inhomogeneity type and table - integer :: inhm = 0 - real, allocatable :: xcw(:,:) - - ! initialization status - logical :: initialized = .false. - - ! public interface - public :: inhomogeneity_initialized ! check if initialized - public :: initialize_inhomogeneity ! get resources - public :: release_inhomogeneity ! release resources - public :: condensate_inhomogeneous ! test if inhomogeneous or not - public :: zcw_lookup ! lookup zcw if inhomogeneous - -contains - - logical function inhomogeneity_initialized() - inhomogeneity_initialized = initialized - end function inhomogeneity_initialized - - subroutine initialize_inhomogeneity (ih) - - ! ih == 0: homogeneous - ! ih == 1: inhomogeneous, beta distribution - ! ih == 2: inhomogeneous, gamma distribution - - integer, intent(in) :: ih - - if (initialized) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'must release_inhomogeneity first' - end if - - if (ih == 1) then - call tabulate_xcw_beta - elseif (ih == 2) then - call tabulate_xcw_gamma - elseif (ih /= 0) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'ih == ', ih - error stop 'unknown inhomogeneity type: ih' - endif - - initialized = .true. - inhm = ih - - end subroutine initialize_inhomogeneity - - subroutine release_inhomogeneity - if (allocated(xcw)) deallocate(xcw) - initialized = .false. - inhm = 0 - end subroutine release_inhomogeneity - - function condensate_inhomogeneous() result (inhomo) - logical :: inhomo - if (.not. initialized) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'must initialize_inhomogeneity first' - end if - inhomo = (inhm > 0) - end function condensate_inhomogeneous - - ! ----------------------------------------------------------- - function zcw_lookup (cdf, sigma_qcw) result (zcw) - ! ----------------------------------------------------------- - ! Horizontally inhomogeneous cloud condensate: - ! Determine ZCW = ratio of cloud condensate mixing ratio QC - ! to its mean value for all cloudy cells in this layer. - ! ----------------------------------------------------------- - - real, intent(in) :: cdf ! condensate cumulative prob in [0,1] - real, intent(in) :: sigma_qcw ! relative std deviation - real :: zcw - - integer :: ind1, ind2 - real :: rind1, rind2 - - if (.not. condensate_inhomogeneous()) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'zcw_lookup only works if condensate_inhomogeneous()' - end if - - ! bilinear interpolation of ZCW tabulated in array XCW as a func of - ! * cumulative condensate probability CDF - ! * relative standard deviation SIGMA_QCW - ! Take care that the definition of RIND2 is consistent with - ! subroutines TABULATE_XCW - - rind1 = cdf * (n1 - 1) + 1. - ind1 = max(1, min(int(rind1), n1-1)) - rind1 = rind1 - ind1 - rind2 = 40. * sigma_qcw - 3. - ind2 = max(1, min(int(rind2), n2-1)) - rind2 = rind2 - ind2 - - zcw = (1.0-rind1) * (1.0-rind2) * xcw(ind1,ind2) & - + (1.0-rind1) * rind2 * xcw(ind1,ind2+1) & - + rind1 * (1.0-rind2) * xcw(ind1+1,ind2) & - + rind1 * rind2 * xcw(ind1+1,ind2+1) - - end function zcw_lookup - - - subroutine tabulate_xcw_beta - - if (allocated(xcw)) deallocate(xcw) - allocate (xcw(n1,n2)) - - xcw(:, 1) = (/& - 0.1000E-04, 0.7137E+00, 0.7315E+00, 0.7426E+00,& - 0.7508E+00, 0.7573E+00, 0.7628E+00, 0.7676E+00,& - 0.7718E+00, 0.7756E+00, 0.7790E+00, 0.7822E+00,& - 0.7851E+00, 0.7878E+00, 0.7904E+00, 0.7928E+00,& - 0.7951E+00, 0.7972E+00, 0.7993E+00, 0.8012E+00,& - 0.8031E+00, 0.8049E+00, 0.8067E+00, 0.8083E+00,& - 0.8100E+00, 0.8115E+00, 0.8130E+00, 0.8145E+00,& - 0.8159E+00, 0.8173E+00, 0.8186E+00, 0.8199E+00,& - 0.8212E+00, 0.8224E+00, 0.8237E+00, 0.8249E+00,& - 0.8260E+00, 0.8271E+00, 0.8283E+00, 0.8293E+00,& - 0.8304E+00, 0.8315E+00, 0.8325E+00, 0.8335E+00,& - 0.8345E+00, 0.8354E+00, 0.8364E+00, 0.8373E+00,& - 0.8382E+00, 0.8392E+00, 0.8400E+00, 0.8409E+00,& - 0.8418E+00, 0.8426E+00, 0.8435E+00, 0.8443E+00,& - 0.8451E+00, 0.8459E+00, 0.8467E+00, 0.8475E+00,& - 0.8483E+00, 0.8491E+00, 0.8498E+00, 0.8506E+00,& - 0.8513E+00, 0.8520E+00, 0.8528E+00, 0.8535E+00,& - 0.8542E+00, 0.8549E+00, 0.8556E+00, 0.8563E+00,& - 0.8569E+00, 0.8576E+00, 0.8583E+00, 0.8589E+00,& - 0.8596E+00, 0.8602E+00, 0.8608E+00, 0.8615E+00,& - 0.8621E+00, 0.8627E+00, 0.8634E+00, 0.8640E+00,& - 0.8645E+00, 0.8652E+00, 0.8657E+00, 0.8664E+00,& - 0.8669E+00, 0.8675E+00, 0.8681E+00, 0.8687E+00,& - 0.8692E+00, 0.8698E+00, 0.8703E+00, 0.8709E+00,& - 0.8714E+00, 0.8720E+00, 0.8725E+00, 0.8731E+00,& - 0.8736E+00, 0.8741E+00, 0.8746E+00, 0.8752E+00,& - 0.8757E+00, 0.8762E+00, 0.8767E+00, 0.8772E+00,& - 0.8778E+00, 0.8783E+00, 0.8788E+00, 0.8792E+00,& - 0.8797E+00, 0.8802E+00, 0.8807E+00, 0.8812E+00,& - 0.8817E+00, 0.8822E+00, 0.8827E+00, 0.8831E+00,& - 0.8836E+00, 0.8840E+00, 0.8845E+00, 0.8850E+00,& - 0.8854E+00, 0.8859E+00, 0.8864E+00, 0.8868E+00,& - 0.8872E+00, 0.8877E+00, 0.8882E+00, 0.8886E+00,& - 0.8891E+00, 0.8895E+00, 0.8899E+00, 0.8904E+00,& - 0.8908E+00, 0.8912E+00, 0.8916E+00, 0.8921E+00,& - 0.8925E+00, 0.8929E+00, 0.8933E+00, 0.8938E+00,& - 0.8942E+00, 0.8946E+00, 0.8950E+00, 0.8954E+00,& - 0.8958E+00, 0.8963E+00, 0.8966E+00, 0.8971E+00,& - 0.8975E+00, 0.8979E+00, 0.8983E+00, 0.8986E+00,& - 0.8991E+00, 0.8995E+00, 0.8998E+00, 0.9002E+00,& - 0.9006E+00, 0.9010E+00, 0.9014E+00, 0.9018E+00,& - 0.9022E+00, 0.9026E+00, 0.9029E+00, 0.9033E+00,& - 0.9037E+00, 0.9041E+00, 0.9045E+00, 0.9048E+00,& - 0.9052E+00, 0.9056E+00, 0.9059E+00, 0.9063E+00,& - 0.9067E+00, 0.9070E+00, 0.9074E+00, 0.9078E+00,& - 0.9082E+00, 0.9085E+00, 0.9089E+00, 0.9092E+00,& - 0.9096E+00, 0.9099E+00, 0.9103E+00, 0.9107E+00,& - 0.9110E+00, 0.9114E+00, 0.9117E+00, 0.9121E+00,& - 0.9124E+00, 0.9128E+00, 0.9131E+00, 0.9135E+00,& - 0.9138E+00, 0.9142E+00, 0.9145E+00, 0.9149E+00,& - 0.9152E+00, 0.9155E+00, 0.9159E+00, 0.9162E+00,& - 0.9166E+00, 0.9169E+00, 0.9172E+00, 0.9176E+00,& - 0.9179E+00, 0.9182E+00, 0.9186E+00, 0.9189E+00,& - 0.9192E+00, 0.9196E+00, 0.9199E+00, 0.9202E+00,& - 0.9205E+00, 0.9209E+00, 0.9212E+00, 0.9215E+00,& - 0.9218E+00, 0.9222E+00, 0.9225E+00, 0.9228E+00,& - 0.9231E+00, 0.9235E+00, 0.9238E+00, 0.9241E+00,& - 0.9244E+00, 0.9247E+00, 0.9250E+00, 0.9254E+00,& - 0.9257E+00, 0.9260E+00, 0.9263E+00, 0.9266E+00,& - 0.9269E+00, 0.9273E+00, 0.9276E+00, 0.9279E+00,& - 0.9282E+00, 0.9285E+00, 0.9288E+00, 0.9291E+00,& - 0.9294E+00, 0.9297E+00, 0.9300E+00, 0.9304E+00,& - 0.9307E+00, 0.9310E+00, 0.9312E+00, 0.9315E+00,& - 0.9319E+00, 0.9322E+00, 0.9325E+00, 0.9328E+00,& - 0.9331E+00, 0.9334E+00, 0.9337E+00, 0.9340E+00,& - 0.9343E+00, 0.9346E+00, 0.9349E+00, 0.9352E+00,& - 0.9354E+00, 0.9357E+00, 0.9361E+00, 0.9363E+00,& - 0.9366E+00, 0.9369E+00, 0.9372E+00, 0.9375E+00,& - 0.9378E+00, 0.9381E+00, 0.9384E+00, 0.9387E+00,& - 0.9390E+00, 0.9393E+00, 0.9396E+00, 0.9398E+00,& - 0.9401E+00, 0.9404E+00, 0.9407E+00, 0.9410E+00,& - 0.9413E+00, 0.9416E+00, 0.9419E+00, 0.9421E+00,& - 0.9424E+00, 0.9427E+00, 0.9430E+00, 0.9433E+00,& - 0.9436E+00, 0.9438E+00, 0.9441E+00, 0.9444E+00,& - 0.9447E+00, 0.9450E+00, 0.9453E+00, 0.9455E+00,& - 0.9458E+00, 0.9461E+00, 0.9464E+00, 0.9467E+00,& - 0.9469E+00, 0.9472E+00, 0.9475E+00, 0.9478E+00,& - 0.9480E+00, 0.9483E+00, 0.9486E+00, 0.9489E+00,& - 0.9492E+00, 0.9494E+00, 0.9497E+00, 0.9500E+00,& - 0.9502E+00, 0.9505E+00, 0.9508E+00, 0.9511E+00,& - 0.9514E+00, 0.9516E+00, 0.9519E+00, 0.9522E+00,& - 0.9524E+00, 0.9527E+00, 0.9530E+00, 0.9532E+00,& - 0.9535E+00, 0.9538E+00, 0.9540E+00, 0.9543E+00,& - 0.9546E+00, 0.9549E+00, 0.9551E+00, 0.9554E+00,& - 0.9557E+00, 0.9559E+00, 0.9562E+00, 0.9565E+00,& - 0.9567E+00, 0.9570E+00, 0.9573E+00, 0.9576E+00,& - 0.9578E+00, 0.9581E+00, 0.9584E+00, 0.9586E+00,& - 0.9589E+00, 0.9591E+00, 0.9594E+00, 0.9597E+00,& - 0.9599E+00, 0.9602E+00, 0.9605E+00, 0.9607E+00,& - 0.9610E+00, 0.9613E+00, 0.9615E+00, 0.9618E+00,& - 0.9621E+00, 0.9623E+00, 0.9626E+00, 0.9628E+00,& - 0.9631E+00, 0.9634E+00, 0.9636E+00, 0.9639E+00,& - 0.9641E+00, 0.9644E+00, 0.9646E+00, 0.9649E+00,& - 0.9652E+00, 0.9655E+00, 0.9657E+00, 0.9660E+00,& - 0.9662E+00, 0.9665E+00, 0.9667E+00, 0.9670E+00,& - 0.9673E+00, 0.9675E+00, 0.9678E+00, 0.9680E+00,& - 0.9683E+00, 0.9685E+00, 0.9688E+00, 0.9691E+00,& - 0.9693E+00, 0.9696E+00, 0.9698E+00, 0.9701E+00,& - 0.9703E+00, 0.9706E+00, 0.9708E+00, 0.9711E+00,& - 0.9714E+00, 0.9716E+00, 0.9719E+00, 0.9722E+00,& - 0.9724E+00, 0.9727E+00, 0.9729E+00, 0.9732E+00,& - 0.9734E+00, 0.9737E+00, 0.9739E+00, 0.9742E+00,& - 0.9744E+00, 0.9747E+00, 0.9750E+00, 0.9752E+00,& - 0.9755E+00, 0.9757E+00, 0.9760E+00, 0.9762E+00,& - 0.9765E+00, 0.9767E+00, 0.9770E+00, 0.9772E+00,& - 0.9775E+00, 0.9777E+00, 0.9780E+00, 0.9782E+00,& - 0.9785E+00, 0.9787E+00, 0.9790E+00, 0.9792E+00,& - 0.9795E+00, 0.9798E+00, 0.9800E+00, 0.9803E+00,& - 0.9805E+00, 0.9808E+00, 0.9810E+00, 0.9813E+00,& - 0.9815E+00, 0.9818E+00, 0.9820E+00, 0.9823E+00,& - 0.9826E+00, 0.9828E+00, 0.9831E+00, 0.9833E+00,& - 0.9836E+00, 0.9838E+00, 0.9841E+00, 0.9843E+00,& - 0.9846E+00, 0.9848E+00, 0.9851E+00, 0.9853E+00,& - 0.9856E+00, 0.9858E+00, 0.9861E+00, 0.9863E+00,& - 0.9866E+00, 0.9868E+00, 0.9871E+00, 0.9873E+00,& - 0.9876E+00, 0.9878E+00, 0.9881E+00, 0.9883E+00,& - 0.9886E+00, 0.9888E+00, 0.9891E+00, 0.9893E+00,& - 0.9896E+00, 0.9898E+00, 0.9901E+00, 0.9903E+00,& - 0.9906E+00, 0.9908E+00, 0.9911E+00, 0.9913E+00,& - 0.9916E+00, 0.9918E+00, 0.9921E+00, 0.9923E+00,& - 0.9926E+00, 0.9928E+00, 0.9931E+00, 0.9933E+00,& - 0.9936E+00, 0.9938E+00, 0.9941E+00, 0.9944E+00,& - 0.9946E+00, 0.9949E+00, 0.9951E+00, 0.9954E+00,& - 0.9956E+00, 0.9959E+00, 0.9961E+00, 0.9964E+00,& - 0.9966E+00, 0.9969E+00, 0.9971E+00, 0.9974E+00,& - 0.9976E+00, 0.9979E+00, 0.9981E+00, 0.9984E+00,& - 0.9986E+00, 0.9989E+00, 0.9991E+00, 0.9994E+00,& - 0.9996E+00, 0.9999E+00, 0.1000E+01, 0.1000E+01,& - 0.1001E+01, 0.1001E+01, 0.1001E+01, 0.1001E+01,& - 0.1002E+01, 0.1002E+01, 0.1002E+01, 0.1002E+01,& - 0.1003E+01, 0.1003E+01, 0.1003E+01, 0.1003E+01,& - 0.1004E+01, 0.1004E+01, 0.1004E+01, 0.1004E+01,& - 0.1005E+01, 0.1005E+01, 0.1005E+01, 0.1005E+01,& - 0.1006E+01, 0.1006E+01, 0.1006E+01, 0.1006E+01,& - 0.1007E+01, 0.1007E+01, 0.1007E+01, 0.1007E+01,& - 0.1008E+01, 0.1008E+01, 0.1008E+01, 0.1008E+01,& - 0.1009E+01, 0.1009E+01, 0.1009E+01, 0.1009E+01,& - 0.1010E+01, 0.1010E+01, 0.1010E+01, 0.1010E+01,& - 0.1011E+01, 0.1011E+01, 0.1011E+01, 0.1011E+01,& - 0.1012E+01, 0.1012E+01, 0.1012E+01, 0.1012E+01,& - 0.1013E+01, 0.1013E+01, 0.1013E+01, 0.1014E+01,& - 0.1014E+01, 0.1014E+01, 0.1014E+01, 0.1015E+01,& - 0.1015E+01, 0.1015E+01, 0.1015E+01, 0.1016E+01,& - 0.1016E+01, 0.1016E+01, 0.1016E+01, 0.1017E+01,& - 0.1017E+01, 0.1017E+01, 0.1017E+01, 0.1018E+01,& - 0.1018E+01, 0.1018E+01, 0.1018E+01, 0.1019E+01,& - 0.1019E+01, 0.1019E+01, 0.1019E+01, 0.1020E+01,& - 0.1020E+01, 0.1020E+01, 0.1021E+01, 0.1021E+01,& - 0.1021E+01, 0.1021E+01, 0.1022E+01, 0.1022E+01,& - 0.1022E+01, 0.1022E+01, 0.1023E+01, 0.1023E+01,& - 0.1023E+01, 0.1023E+01, 0.1024E+01, 0.1024E+01,& - 0.1024E+01, 0.1024E+01, 0.1025E+01, 0.1025E+01,& - 0.1025E+01, 0.1025E+01, 0.1026E+01, 0.1026E+01,& - 0.1026E+01, 0.1027E+01, 0.1027E+01, 0.1027E+01,& - 0.1027E+01, 0.1028E+01, 0.1028E+01, 0.1028E+01,& - 0.1028E+01, 0.1029E+01, 0.1029E+01, 0.1029E+01,& - 0.1029E+01, 0.1030E+01, 0.1030E+01, 0.1030E+01,& - 0.1031E+01, 0.1031E+01, 0.1031E+01, 0.1031E+01,& - 0.1032E+01, 0.1032E+01, 0.1032E+01, 0.1032E+01,& - 0.1033E+01, 0.1033E+01, 0.1033E+01, 0.1034E+01,& - 0.1034E+01, 0.1034E+01, 0.1034E+01, 0.1035E+01,& - 0.1035E+01, 0.1035E+01, 0.1035E+01, 0.1036E+01,& - 0.1036E+01, 0.1036E+01, 0.1037E+01, 0.1037E+01,& - 0.1037E+01, 0.1037E+01, 0.1038E+01, 0.1038E+01,& - 0.1038E+01, 0.1038E+01, 0.1039E+01, 0.1039E+01,& - 0.1039E+01, 0.1040E+01, 0.1040E+01, 0.1040E+01,& - 0.1040E+01, 0.1041E+01, 0.1041E+01, 0.1041E+01,& - 0.1042E+01, 0.1042E+01, 0.1042E+01, 0.1042E+01,& - 0.1043E+01, 0.1043E+01, 0.1043E+01, 0.1044E+01,& - 0.1044E+01, 0.1044E+01, 0.1044E+01, 0.1045E+01,& - 0.1045E+01, 0.1045E+01, 0.1046E+01, 0.1046E+01,& - 0.1046E+01, 0.1046E+01, 0.1047E+01, 0.1047E+01,& - 0.1047E+01, 0.1048E+01, 0.1048E+01, 0.1048E+01,& - 0.1048E+01, 0.1049E+01, 0.1049E+01, 0.1049E+01,& - 0.1050E+01, 0.1050E+01, 0.1050E+01, 0.1050E+01,& - 0.1051E+01, 0.1051E+01, 0.1051E+01, 0.1052E+01,& - 0.1052E+01, 0.1052E+01, 0.1053E+01, 0.1053E+01,& - 0.1053E+01, 0.1053E+01, 0.1054E+01, 0.1054E+01,& - 0.1054E+01, 0.1055E+01, 0.1055E+01, 0.1055E+01,& - 0.1056E+01, 0.1056E+01, 0.1056E+01, 0.1056E+01,& - 0.1057E+01, 0.1057E+01, 0.1057E+01, 0.1058E+01,& - 0.1058E+01, 0.1058E+01, 0.1059E+01, 0.1059E+01,& - 0.1059E+01, 0.1060E+01, 0.1060E+01, 0.1060E+01,& - 0.1061E+01, 0.1061E+01, 0.1061E+01, 0.1061E+01,& - 0.1062E+01, 0.1062E+01, 0.1062E+01, 0.1063E+01,& - 0.1063E+01, 0.1063E+01, 0.1064E+01, 0.1064E+01,& - 0.1064E+01, 0.1065E+01, 0.1065E+01, 0.1065E+01,& - 0.1066E+01, 0.1066E+01, 0.1066E+01, 0.1067E+01,& - 0.1067E+01, 0.1067E+01, 0.1068E+01, 0.1068E+01,& - 0.1068E+01, 0.1069E+01, 0.1069E+01, 0.1069E+01,& - 0.1070E+01, 0.1070E+01, 0.1070E+01, 0.1071E+01,& - 0.1071E+01, 0.1071E+01, 0.1072E+01, 0.1072E+01,& - 0.1072E+01, 0.1073E+01, 0.1073E+01, 0.1073E+01,& - 0.1074E+01, 0.1074E+01, 0.1074E+01, 0.1075E+01,& - 0.1075E+01, 0.1075E+01, 0.1076E+01, 0.1076E+01,& - 0.1076E+01, 0.1077E+01, 0.1077E+01, 0.1077E+01,& - 0.1078E+01, 0.1078E+01, 0.1079E+01, 0.1079E+01,& - 0.1079E+01, 0.1080E+01, 0.1080E+01, 0.1080E+01,& - 0.1081E+01, 0.1081E+01, 0.1081E+01, 0.1082E+01,& - 0.1082E+01, 0.1083E+01, 0.1083E+01, 0.1083E+01,& - 0.1084E+01, 0.1084E+01, 0.1084E+01, 0.1085E+01,& - 0.1085E+01, 0.1086E+01, 0.1086E+01, 0.1086E+01,& - 0.1087E+01, 0.1087E+01, 0.1087E+01, 0.1088E+01,& - 0.1088E+01, 0.1089E+01, 0.1089E+01, 0.1089E+01,& - 0.1090E+01, 0.1090E+01, 0.1091E+01, 0.1091E+01,& - 0.1091E+01, 0.1092E+01, 0.1092E+01, 0.1093E+01,& - 0.1093E+01, 0.1093E+01, 0.1094E+01, 0.1094E+01,& - 0.1095E+01, 0.1095E+01, 0.1095E+01, 0.1096E+01,& - 0.1096E+01, 0.1097E+01, 0.1097E+01, 0.1098E+01,& - 0.1098E+01, 0.1098E+01, 0.1099E+01, 0.1099E+01,& - 0.1100E+01, 0.1100E+01, 0.1101E+01, 0.1101E+01,& - 0.1101E+01, 0.1102E+01, 0.1102E+01, 0.1103E+01,& - 0.1103E+01, 0.1104E+01, 0.1104E+01, 0.1105E+01,& - 0.1105E+01, 0.1106E+01, 0.1106E+01, 0.1106E+01,& - 0.1107E+01, 0.1107E+01, 0.1108E+01, 0.1108E+01,& - 0.1109E+01, 0.1109E+01, 0.1110E+01, 0.1110E+01,& - 0.1111E+01, 0.1111E+01, 0.1112E+01, 0.1112E+01,& - 0.1113E+01, 0.1113E+01, 0.1114E+01, 0.1114E+01,& - 0.1115E+01, 0.1115E+01, 0.1116E+01, 0.1116E+01,& - 0.1117E+01, 0.1117E+01, 0.1118E+01, 0.1118E+01,& - 0.1119E+01, 0.1119E+01, 0.1120E+01, 0.1120E+01,& - 0.1121E+01, 0.1122E+01, 0.1122E+01, 0.1123E+01,& - 0.1123E+01, 0.1124E+01, 0.1124E+01, 0.1125E+01,& - 0.1125E+01, 0.1126E+01, 0.1127E+01, 0.1127E+01,& - 0.1128E+01, 0.1128E+01, 0.1129E+01, 0.1130E+01,& - 0.1130E+01, 0.1131E+01, 0.1131E+01, 0.1132E+01,& - 0.1133E+01, 0.1133E+01, 0.1134E+01, 0.1135E+01,& - 0.1135E+01, 0.1136E+01, 0.1137E+01, 0.1137E+01,& - 0.1138E+01, 0.1139E+01, 0.1139E+01, 0.1140E+01,& - 0.1141E+01, 0.1141E+01, 0.1142E+01, 0.1143E+01,& - 0.1143E+01, 0.1144E+01, 0.1145E+01, 0.1146E+01,& - 0.1146E+01, 0.1147E+01, 0.1148E+01, 0.1149E+01,& - 0.1150E+01, 0.1150E+01, 0.1151E+01, 0.1152E+01,& - 0.1153E+01, 0.1154E+01, 0.1154E+01, 0.1155E+01,& - 0.1156E+01, 0.1157E+01, 0.1158E+01, 0.1159E+01,& - 0.1160E+01, 0.1161E+01, 0.1162E+01, 0.1162E+01,& - 0.1163E+01, 0.1164E+01, 0.1165E+01, 0.1166E+01,& - 0.1167E+01, 0.1168E+01, 0.1170E+01, 0.1171E+01,& - 0.1172E+01, 0.1173E+01, 0.1174E+01, 0.1175E+01,& - 0.1176E+01, 0.1177E+01, 0.1179E+01, 0.1180E+01,& - 0.1181E+01, 0.1182E+01, 0.1184E+01, 0.1185E+01,& - 0.1187E+01, 0.1188E+01, 0.1189E+01, 0.1191E+01,& - 0.1193E+01, 0.1194E+01, 0.1196E+01, 0.1197E+01,& - 0.1199E+01, 0.1201E+01, 0.1203E+01, 0.1205E+01,& - 0.1207E+01, 0.1209E+01, 0.1211E+01, 0.1213E+01,& - 0.1215E+01, 0.1218E+01, 0.1220E+01, 0.1223E+01,& - 0.1226E+01, 0.1229E+01, 0.1232E+01, 0.1235E+01,& - 0.1239E+01, 0.1243E+01, 0.1247E+01, 0.1252E+01,& - 0.1258E+01, 0.1264E+01, 0.1271E+01, 0.1279E+01,& - 0.1000E-04, 0.6497E+00, 0.6709E+00, 0.6841E+00/) - xcw(:, 2) = (/& - 0.1000E-04, 0.6497E+00, 0.6709E+00, 0.6841E+00,& - 0.6938E+00, 0.7016E+00, 0.7083E+00, 0.7140E+00,& - 0.7190E+00, 0.7236E+00, 0.7277E+00, 0.7315E+00,& - 0.7350E+00, 0.7383E+00, 0.7414E+00, 0.7443E+00,& - 0.7470E+00, 0.7496E+00, 0.7521E+00, 0.7545E+00,& - 0.7567E+00, 0.7589E+00, 0.7610E+00, 0.7631E+00,& - 0.7650E+00, 0.7669E+00, 0.7687E+00, 0.7705E+00,& - 0.7722E+00, 0.7739E+00, 0.7755E+00, 0.7771E+00,& - 0.7787E+00, 0.7802E+00, 0.7816E+00, 0.7831E+00,& - 0.7845E+00, 0.7859E+00, 0.7872E+00, 0.7885E+00,& - 0.7898E+00, 0.7911E+00, 0.7923E+00, 0.7936E+00,& - 0.7948E+00, 0.7959E+00, 0.7971E+00, 0.7983E+00,& - 0.7994E+00, 0.8005E+00, 0.8016E+00, 0.8026E+00,& - 0.8037E+00, 0.8047E+00, 0.8057E+00, 0.8068E+00,& - 0.8078E+00, 0.8088E+00, 0.8097E+00, 0.8107E+00,& - 0.8116E+00, 0.8126E+00, 0.8135E+00, 0.8144E+00,& - 0.8153E+00, 0.8162E+00, 0.8171E+00, 0.8180E+00,& - 0.8188E+00, 0.8197E+00, 0.8205E+00, 0.8214E+00,& - 0.8222E+00, 0.8230E+00, 0.8238E+00, 0.8246E+00,& - 0.8254E+00, 0.8262E+00, 0.8270E+00, 0.8278E+00,& - 0.8285E+00, 0.8293E+00, 0.8300E+00, 0.8308E+00,& - 0.8315E+00, 0.8322E+00, 0.8330E+00, 0.8337E+00,& - 0.8344E+00, 0.8351E+00, 0.8359E+00, 0.8365E+00,& - 0.8372E+00, 0.8379E+00, 0.8386E+00, 0.8393E+00,& - 0.8400E+00, 0.8406E+00, 0.8413E+00, 0.8419E+00,& - 0.8426E+00, 0.8433E+00, 0.8439E+00, 0.8445E+00,& - 0.8452E+00, 0.8458E+00, 0.8464E+00, 0.8470E+00,& - 0.8477E+00, 0.8483E+00, 0.8489E+00, 0.8495E+00,& - 0.8501E+00, 0.8507E+00, 0.8513E+00, 0.8519E+00,& - 0.8525E+00, 0.8531E+00, 0.8537E+00, 0.8543E+00,& - 0.8548E+00, 0.8554E+00, 0.8560E+00, 0.8566E+00,& - 0.8571E+00, 0.8577E+00, 0.8582E+00, 0.8588E+00,& - 0.8594E+00, 0.8599E+00, 0.8605E+00, 0.8610E+00,& - 0.8615E+00, 0.8621E+00, 0.8626E+00, 0.8632E+00,& - 0.8637E+00, 0.8642E+00, 0.8648E+00, 0.8653E+00,& - 0.8658E+00, 0.8663E+00, 0.8668E+00, 0.8673E+00,& - 0.8679E+00, 0.8684E+00, 0.8689E+00, 0.8694E+00,& - 0.8699E+00, 0.8704E+00, 0.8709E+00, 0.8714E+00,& - 0.8719E+00, 0.8724E+00, 0.8729E+00, 0.8734E+00,& - 0.8739E+00, 0.8744E+00, 0.8749E+00, 0.8753E+00,& - 0.8758E+00, 0.8763E+00, 0.8768E+00, 0.8773E+00,& - 0.8777E+00, 0.8782E+00, 0.8787E+00, 0.8791E+00,& - 0.8796E+00, 0.8801E+00, 0.8805E+00, 0.8810E+00,& - 0.8815E+00, 0.8819E+00, 0.8824E+00, 0.8828E+00,& - 0.8833E+00, 0.8837E+00, 0.8842E+00, 0.8846E+00,& - 0.8851E+00, 0.8856E+00, 0.8860E+00, 0.8864E+00,& - 0.8869E+00, 0.8873E+00, 0.8878E+00, 0.8882E+00,& - 0.8886E+00, 0.8891E+00, 0.8895E+00, 0.8899E+00,& - 0.8904E+00, 0.8908E+00, 0.8912E+00, 0.8917E+00,& - 0.8921E+00, 0.8925E+00, 0.8930E+00, 0.8933E+00,& - 0.8938E+00, 0.8942E+00, 0.8946E+00, 0.8950E+00,& - 0.8955E+00, 0.8959E+00, 0.8963E+00, 0.8967E+00,& - 0.8971E+00, 0.8975E+00, 0.8980E+00, 0.8984E+00,& - 0.8988E+00, 0.8992E+00, 0.8996E+00, 0.9000E+00,& - 0.9004E+00, 0.9008E+00, 0.9012E+00, 0.9016E+00,& - 0.9020E+00, 0.9024E+00, 0.9028E+00, 0.9032E+00,& - 0.9036E+00, 0.9040E+00, 0.9044E+00, 0.9048E+00,& - 0.9052E+00, 0.9056E+00, 0.9060E+00, 0.9064E+00,& - 0.9067E+00, 0.9071E+00, 0.9075E+00, 0.9079E+00,& - 0.9083E+00, 0.9087E+00, 0.9091E+00, 0.9095E+00,& - 0.9098E+00, 0.9102E+00, 0.9106E+00, 0.9110E+00,& - 0.9114E+00, 0.9118E+00, 0.9121E+00, 0.9125E+00,& - 0.9129E+00, 0.9133E+00, 0.9136E+00, 0.9140E+00,& - 0.9144E+00, 0.9148E+00, 0.9152E+00, 0.9155E+00,& - 0.9159E+00, 0.9163E+00, 0.9166E+00, 0.9170E+00,& - 0.9174E+00, 0.9178E+00, 0.9181E+00, 0.9185E+00,& - 0.9189E+00, 0.9192E+00, 0.9196E+00, 0.9200E+00,& - 0.9203E+00, 0.9207E+00, 0.9210E+00, 0.9214E+00,& - 0.9218E+00, 0.9221E+00, 0.9225E+00, 0.9229E+00,& - 0.9232E+00, 0.9236E+00, 0.9240E+00, 0.9243E+00,& - 0.9246E+00, 0.9250E+00, 0.9254E+00, 0.9257E+00,& - 0.9261E+00, 0.9264E+00, 0.9268E+00, 0.9271E+00,& - 0.9275E+00, 0.9279E+00, 0.9282E+00, 0.9286E+00,& - 0.9289E+00, 0.9293E+00, 0.9296E+00, 0.9300E+00,& - 0.9303E+00, 0.9307E+00, 0.9310E+00, 0.9314E+00,& - 0.9317E+00, 0.9320E+00, 0.9324E+00, 0.9327E+00,& - 0.9331E+00, 0.9334E+00, 0.9338E+00, 0.9341E+00,& - 0.9345E+00, 0.9348E+00, 0.9351E+00, 0.9355E+00,& - 0.9358E+00, 0.9362E+00, 0.9365E+00, 0.9369E+00,& - 0.9372E+00, 0.9376E+00, 0.9379E+00, 0.9382E+00,& - 0.9386E+00, 0.9389E+00, 0.9393E+00, 0.9396E+00,& - 0.9399E+00, 0.9403E+00, 0.9406E+00, 0.9409E+00,& - 0.9413E+00, 0.9416E+00, 0.9419E+00, 0.9423E+00,& - 0.9426E+00, 0.9429E+00, 0.9433E+00, 0.9436E+00,& - 0.9439E+00, 0.9443E+00, 0.9446E+00, 0.9450E+00,& - 0.9453E+00, 0.9456E+00, 0.9460E+00, 0.9463E+00,& - 0.9466E+00, 0.9469E+00, 0.9473E+00, 0.9476E+00,& - 0.9479E+00, 0.9482E+00, 0.9486E+00, 0.9489E+00,& - 0.9493E+00, 0.9496E+00, 0.9499E+00, 0.9502E+00,& - 0.9506E+00, 0.9509E+00, 0.9512E+00, 0.9515E+00,& - 0.9519E+00, 0.9522E+00, 0.9525E+00, 0.9529E+00,& - 0.9532E+00, 0.9535E+00, 0.9538E+00, 0.9541E+00,& - 0.9545E+00, 0.9548E+00, 0.9551E+00, 0.9554E+00,& - 0.9558E+00, 0.9561E+00, 0.9564E+00, 0.9567E+00,& - 0.9571E+00, 0.9574E+00, 0.9577E+00, 0.9580E+00,& - 0.9584E+00, 0.9587E+00, 0.9590E+00, 0.9593E+00,& - 0.9596E+00, 0.9599E+00, 0.9603E+00, 0.9606E+00,& - 0.9609E+00, 0.9613E+00, 0.9616E+00, 0.9619E+00,& - 0.9622E+00, 0.9625E+00, 0.9628E+00, 0.9632E+00,& - 0.9635E+00, 0.9638E+00, 0.9641E+00, 0.9644E+00,& - 0.9647E+00, 0.9651E+00, 0.9654E+00, 0.9657E+00,& - 0.9660E+00, 0.9663E+00, 0.9667E+00, 0.9670E+00,& - 0.9673E+00, 0.9676E+00, 0.9679E+00, 0.9683E+00,& - 0.9686E+00, 0.9689E+00, 0.9692E+00, 0.9695E+00,& - 0.9698E+00, 0.9702E+00, 0.9705E+00, 0.9708E+00,& - 0.9711E+00, 0.9714E+00, 0.9717E+00, 0.9720E+00,& - 0.9724E+00, 0.9727E+00, 0.9730E+00, 0.9733E+00,& - 0.9736E+00, 0.9739E+00, 0.9742E+00, 0.9746E+00,& - 0.9749E+00, 0.9752E+00, 0.9755E+00, 0.9758E+00,& - 0.9761E+00, 0.9764E+00, 0.9768E+00, 0.9771E+00,& - 0.9774E+00, 0.9777E+00, 0.9780E+00, 0.9783E+00,& - 0.9787E+00, 0.9790E+00, 0.9793E+00, 0.9796E+00,& - 0.9799E+00, 0.9802E+00, 0.9806E+00, 0.9809E+00,& - 0.9812E+00, 0.9815E+00, 0.9818E+00, 0.9821E+00,& - 0.9824E+00, 0.9827E+00, 0.9830E+00, 0.9833E+00,& - 0.9837E+00, 0.9840E+00, 0.9843E+00, 0.9846E+00,& - 0.9849E+00, 0.9852E+00, 0.9856E+00, 0.9859E+00,& - 0.9862E+00, 0.9865E+00, 0.9868E+00, 0.9871E+00,& - 0.9874E+00, 0.9878E+00, 0.9881E+00, 0.9884E+00,& - 0.9887E+00, 0.9890E+00, 0.9893E+00, 0.9896E+00,& - 0.9899E+00, 0.9902E+00, 0.9906E+00, 0.9909E+00,& - 0.9912E+00, 0.9915E+00, 0.9918E+00, 0.9921E+00,& - 0.9924E+00, 0.9928E+00, 0.9931E+00, 0.9934E+00,& - 0.9937E+00, 0.9940E+00, 0.9943E+00, 0.9946E+00,& - 0.9949E+00, 0.9953E+00, 0.9956E+00, 0.9959E+00,& - 0.9962E+00, 0.9965E+00, 0.9968E+00, 0.9971E+00,& - 0.9974E+00, 0.9978E+00, 0.9981E+00, 0.9984E+00,& - 0.9987E+00, 0.9990E+00, 0.9993E+00, 0.9997E+00,& - 0.1000E+01, 0.1000E+01, 0.1001E+01, 0.1001E+01,& - 0.1001E+01, 0.1002E+01, 0.1002E+01, 0.1002E+01,& - 0.1002E+01, 0.1003E+01, 0.1003E+01, 0.1003E+01,& - 0.1004E+01, 0.1004E+01, 0.1004E+01, 0.1005E+01,& - 0.1005E+01, 0.1005E+01, 0.1006E+01, 0.1006E+01,& - 0.1006E+01, 0.1007E+01, 0.1007E+01, 0.1007E+01,& - 0.1008E+01, 0.1008E+01, 0.1008E+01, 0.1008E+01,& - 0.1009E+01, 0.1009E+01, 0.1009E+01, 0.1010E+01,& - 0.1010E+01, 0.1010E+01, 0.1011E+01, 0.1011E+01,& - 0.1011E+01, 0.1012E+01, 0.1012E+01, 0.1012E+01,& - 0.1013E+01, 0.1013E+01, 0.1013E+01, 0.1014E+01,& - 0.1014E+01, 0.1014E+01, 0.1015E+01, 0.1015E+01,& - 0.1015E+01, 0.1016E+01, 0.1016E+01, 0.1016E+01,& - 0.1016E+01, 0.1017E+01, 0.1017E+01, 0.1017E+01,& - 0.1018E+01, 0.1018E+01, 0.1018E+01, 0.1019E+01,& - 0.1019E+01, 0.1019E+01, 0.1020E+01, 0.1020E+01,& - 0.1020E+01, 0.1021E+01, 0.1021E+01, 0.1021E+01,& - 0.1022E+01, 0.1022E+01, 0.1022E+01, 0.1023E+01,& - 0.1023E+01, 0.1023E+01, 0.1024E+01, 0.1024E+01,& - 0.1024E+01, 0.1025E+01, 0.1025E+01, 0.1025E+01,& - 0.1026E+01, 0.1026E+01, 0.1026E+01, 0.1027E+01,& - 0.1027E+01, 0.1027E+01, 0.1028E+01, 0.1028E+01,& - 0.1028E+01, 0.1028E+01, 0.1029E+01, 0.1029E+01,& - 0.1029E+01, 0.1030E+01, 0.1030E+01, 0.1030E+01,& - 0.1031E+01, 0.1031E+01, 0.1031E+01, 0.1032E+01,& - 0.1032E+01, 0.1032E+01, 0.1033E+01, 0.1033E+01,& - 0.1033E+01, 0.1034E+01, 0.1034E+01, 0.1034E+01,& - 0.1035E+01, 0.1035E+01, 0.1035E+01, 0.1036E+01,& - 0.1036E+01, 0.1036E+01, 0.1037E+01, 0.1037E+01,& - 0.1037E+01, 0.1038E+01, 0.1038E+01, 0.1039E+01,& - 0.1039E+01, 0.1039E+01, 0.1040E+01, 0.1040E+01,& - 0.1040E+01, 0.1041E+01, 0.1041E+01, 0.1041E+01,& - 0.1042E+01, 0.1042E+01, 0.1042E+01, 0.1043E+01,& - 0.1043E+01, 0.1043E+01, 0.1044E+01, 0.1044E+01,& - 0.1044E+01, 0.1045E+01, 0.1045E+01, 0.1045E+01,& - 0.1046E+01, 0.1046E+01, 0.1046E+01, 0.1047E+01,& - 0.1047E+01, 0.1047E+01, 0.1048E+01, 0.1048E+01,& - 0.1048E+01, 0.1049E+01, 0.1049E+01, 0.1050E+01,& - 0.1050E+01, 0.1050E+01, 0.1051E+01, 0.1051E+01,& - 0.1051E+01, 0.1052E+01, 0.1052E+01, 0.1052E+01,& - 0.1053E+01, 0.1053E+01, 0.1053E+01, 0.1054E+01,& - 0.1054E+01, 0.1055E+01, 0.1055E+01, 0.1055E+01,& - 0.1056E+01, 0.1056E+01, 0.1056E+01, 0.1057E+01,& - 0.1057E+01, 0.1057E+01, 0.1058E+01, 0.1058E+01,& - 0.1059E+01, 0.1059E+01, 0.1059E+01, 0.1060E+01,& - 0.1060E+01, 0.1060E+01, 0.1061E+01, 0.1061E+01,& - 0.1061E+01, 0.1062E+01, 0.1062E+01, 0.1063E+01,& - 0.1063E+01, 0.1063E+01, 0.1064E+01, 0.1064E+01,& - 0.1064E+01, 0.1065E+01, 0.1065E+01, 0.1066E+01,& - 0.1066E+01, 0.1066E+01, 0.1067E+01, 0.1067E+01,& - 0.1067E+01, 0.1068E+01, 0.1068E+01, 0.1069E+01,& - 0.1069E+01, 0.1069E+01, 0.1070E+01, 0.1070E+01,& - 0.1070E+01, 0.1071E+01, 0.1071E+01, 0.1072E+01,& - 0.1072E+01, 0.1072E+01, 0.1073E+01, 0.1073E+01,& - 0.1074E+01, 0.1074E+01, 0.1074E+01, 0.1075E+01,& - 0.1075E+01, 0.1076E+01, 0.1076E+01, 0.1076E+01,& - 0.1077E+01, 0.1077E+01, 0.1078E+01, 0.1078E+01,& - 0.1078E+01, 0.1079E+01, 0.1079E+01, 0.1080E+01,& - 0.1080E+01, 0.1080E+01, 0.1081E+01, 0.1081E+01,& - 0.1082E+01, 0.1082E+01, 0.1082E+01, 0.1083E+01,& - 0.1083E+01, 0.1084E+01, 0.1084E+01, 0.1085E+01,& - 0.1085E+01, 0.1085E+01, 0.1086E+01, 0.1086E+01,& - 0.1087E+01, 0.1087E+01, 0.1087E+01, 0.1088E+01,& - 0.1088E+01, 0.1089E+01, 0.1089E+01, 0.1090E+01,& - 0.1090E+01, 0.1090E+01, 0.1091E+01, 0.1091E+01,& - 0.1092E+01, 0.1092E+01, 0.1093E+01, 0.1093E+01,& - 0.1093E+01, 0.1094E+01, 0.1094E+01, 0.1095E+01,& - 0.1095E+01, 0.1096E+01, 0.1096E+01, 0.1097E+01,& - 0.1097E+01, 0.1097E+01, 0.1098E+01, 0.1098E+01,& - 0.1099E+01, 0.1099E+01, 0.1100E+01, 0.1100E+01,& - 0.1101E+01, 0.1101E+01, 0.1102E+01, 0.1102E+01,& - 0.1102E+01, 0.1103E+01, 0.1103E+01, 0.1104E+01,& - 0.1104E+01, 0.1105E+01, 0.1105E+01, 0.1106E+01,& - 0.1106E+01, 0.1107E+01, 0.1107E+01, 0.1108E+01,& - 0.1108E+01, 0.1109E+01, 0.1109E+01, 0.1110E+01,& - 0.1110E+01, 0.1111E+01, 0.1111E+01, 0.1112E+01,& - 0.1112E+01, 0.1113E+01, 0.1113E+01, 0.1114E+01,& - 0.1114E+01, 0.1115E+01, 0.1115E+01, 0.1116E+01,& - 0.1116E+01, 0.1117E+01, 0.1117E+01, 0.1118E+01,& - 0.1118E+01, 0.1119E+01, 0.1119E+01, 0.1120E+01,& - 0.1120E+01, 0.1121E+01, 0.1121E+01, 0.1122E+01,& - 0.1122E+01, 0.1123E+01, 0.1124E+01, 0.1124E+01,& - 0.1125E+01, 0.1125E+01, 0.1126E+01, 0.1126E+01,& - 0.1127E+01, 0.1127E+01, 0.1128E+01, 0.1129E+01,& - 0.1129E+01, 0.1130E+01, 0.1130E+01, 0.1131E+01,& - 0.1131E+01, 0.1132E+01, 0.1133E+01, 0.1133E+01,& - 0.1134E+01, 0.1134E+01, 0.1135E+01, 0.1135E+01,& - 0.1136E+01, 0.1137E+01, 0.1137E+01, 0.1138E+01,& - 0.1139E+01, 0.1139E+01, 0.1140E+01, 0.1140E+01,& - 0.1141E+01, 0.1142E+01, 0.1142E+01, 0.1143E+01,& - 0.1144E+01, 0.1144E+01, 0.1145E+01, 0.1145E+01,& - 0.1146E+01, 0.1147E+01, 0.1147E+01, 0.1148E+01,& - 0.1149E+01, 0.1149E+01, 0.1150E+01, 0.1151E+01,& - 0.1152E+01, 0.1152E+01, 0.1153E+01, 0.1154E+01,& - 0.1154E+01, 0.1155E+01, 0.1156E+01, 0.1156E+01,& - 0.1157E+01, 0.1158E+01, 0.1159E+01, 0.1159E+01,& - 0.1160E+01, 0.1161E+01, 0.1162E+01, 0.1162E+01,& - 0.1163E+01, 0.1164E+01, 0.1165E+01, 0.1166E+01,& - 0.1166E+01, 0.1167E+01, 0.1168E+01, 0.1169E+01,& - 0.1170E+01, 0.1170E+01, 0.1171E+01, 0.1172E+01,& - 0.1173E+01, 0.1174E+01, 0.1175E+01, 0.1176E+01,& - 0.1176E+01, 0.1177E+01, 0.1178E+01, 0.1179E+01,& - 0.1180E+01, 0.1181E+01, 0.1182E+01, 0.1183E+01,& - 0.1184E+01, 0.1185E+01, 0.1186E+01, 0.1187E+01,& - 0.1188E+01, 0.1189E+01, 0.1190E+01, 0.1191E+01,& - 0.1192E+01, 0.1193E+01, 0.1194E+01, 0.1195E+01,& - 0.1196E+01, 0.1197E+01, 0.1198E+01, 0.1199E+01,& - 0.1201E+01, 0.1202E+01, 0.1203E+01, 0.1204E+01,& - 0.1205E+01, 0.1207E+01, 0.1208E+01, 0.1209E+01,& - 0.1210E+01, 0.1212E+01, 0.1213E+01, 0.1215E+01,& - 0.1216E+01, 0.1217E+01, 0.1219E+01, 0.1220E+01,& - 0.1222E+01, 0.1223E+01, 0.1225E+01, 0.1226E+01,& - 0.1228E+01, 0.1230E+01, 0.1231E+01, 0.1233E+01,& - 0.1235E+01, 0.1237E+01, 0.1239E+01, 0.1240E+01,& - 0.1242E+01, 0.1244E+01, 0.1246E+01, 0.1249E+01,& - 0.1251E+01, 0.1253E+01, 0.1255E+01, 0.1258E+01,& - 0.1260E+01, 0.1263E+01, 0.1266E+01, 0.1268E+01,& - 0.1271E+01, 0.1275E+01, 0.1278E+01, 0.1281E+01,& - 0.1285E+01, 0.1289E+01, 0.1293E+01, 0.1297E+01,& - 0.1302E+01, 0.1307E+01, 0.1312E+01, 0.1319E+01,& - 0.1326E+01, 0.1333E+01, 0.1342E+01, 0.1353E+01,& - 0.1000E-04, 0.5890E+00, 0.6130E+00, 0.6280E+00/) - xcw(:, 3) = (/& - 0.1000E-04, 0.5890E+00, 0.6130E+00, 0.6280E+00,& - 0.6391E+00, 0.6481E+00, 0.6557E+00, 0.6622E+00,& - 0.6681E+00, 0.6733E+00, 0.6780E+00, 0.6824E+00,& - 0.6865E+00, 0.6902E+00, 0.6938E+00, 0.6972E+00,& - 0.7003E+00, 0.7034E+00, 0.7062E+00, 0.7090E+00,& - 0.7116E+00, 0.7142E+00, 0.7166E+00, 0.7189E+00,& - 0.7212E+00, 0.7234E+00, 0.7255E+00, 0.7276E+00,& - 0.7296E+00, 0.7315E+00, 0.7334E+00, 0.7353E+00,& - 0.7371E+00, 0.7388E+00, 0.7405E+00, 0.7422E+00,& - 0.7438E+00, 0.7454E+00, 0.7470E+00, 0.7486E+00,& - 0.7500E+00, 0.7515E+00, 0.7530E+00, 0.7544E+00,& - 0.7558E+00, 0.7572E+00, 0.7585E+00, 0.7599E+00,& - 0.7612E+00, 0.7625E+00, 0.7638E+00, 0.7650E+00,& - 0.7662E+00, 0.7675E+00, 0.7686E+00, 0.7699E+00,& - 0.7710E+00, 0.7722E+00, 0.7733E+00, 0.7744E+00,& - 0.7755E+00, 0.7766E+00, 0.7777E+00, 0.7788E+00,& - 0.7798E+00, 0.7809E+00, 0.7819E+00, 0.7829E+00,& - 0.7839E+00, 0.7850E+00, 0.7859E+00, 0.7869E+00,& - 0.7879E+00, 0.7889E+00, 0.7898E+00, 0.7907E+00,& - 0.7917E+00, 0.7926E+00, 0.7935E+00, 0.7944E+00,& - 0.7953E+00, 0.7962E+00, 0.7971E+00, 0.7980E+00,& - 0.7988E+00, 0.7997E+00, 0.8006E+00, 0.8014E+00,& - 0.8022E+00, 0.8031E+00, 0.8039E+00, 0.8047E+00,& - 0.8055E+00, 0.8064E+00, 0.8071E+00, 0.8080E+00,& - 0.8087E+00, 0.8095E+00, 0.8103E+00, 0.8111E+00,& - 0.8119E+00, 0.8126E+00, 0.8134E+00, 0.8141E+00,& - 0.8149E+00, 0.8156E+00, 0.8164E+00, 0.8171E+00,& - 0.8178E+00, 0.8186E+00, 0.8193E+00, 0.8200E+00,& - 0.8207E+00, 0.8214E+00, 0.8221E+00, 0.8228E+00,& - 0.8235E+00, 0.8242E+00, 0.8249E+00, 0.8256E+00,& - 0.8263E+00, 0.8270E+00, 0.8276E+00, 0.8283E+00,& - 0.8290E+00, 0.8297E+00, 0.8303E+00, 0.8310E+00,& - 0.8316E+00, 0.8323E+00, 0.8329E+00, 0.8336E+00,& - 0.8342E+00, 0.8348E+00, 0.8355E+00, 0.8361E+00,& - 0.8367E+00, 0.8374E+00, 0.8380E+00, 0.8386E+00,& - 0.8392E+00, 0.8398E+00, 0.8405E+00, 0.8410E+00,& - 0.8417E+00, 0.8422E+00, 0.8429E+00, 0.8435E+00,& - 0.8440E+00, 0.8447E+00, 0.8453E+00, 0.8458E+00,& - 0.8464E+00, 0.8470E+00, 0.8476E+00, 0.8482E+00,& - 0.8488E+00, 0.8493E+00, 0.8499E+00, 0.8505E+00,& - 0.8510E+00, 0.8516E+00, 0.8522E+00, 0.8527E+00,& - 0.8533E+00, 0.8539E+00, 0.8544E+00, 0.8550E+00,& - 0.8555E+00, 0.8561E+00, 0.8566E+00, 0.8571E+00,& - 0.8577E+00, 0.8582E+00, 0.8588E+00, 0.8593E+00,& - 0.8599E+00, 0.8604E+00, 0.8609E+00, 0.8615E+00,& - 0.8620E+00, 0.8625E+00, 0.8631E+00, 0.8636E+00,& - 0.8641E+00, 0.8646E+00, 0.8652E+00, 0.8657E+00,& - 0.8662E+00, 0.8667E+00, 0.8673E+00, 0.8678E+00,& - 0.8683E+00, 0.8688E+00, 0.8693E+00, 0.8698E+00,& - 0.8703E+00, 0.8708E+00, 0.8713E+00, 0.8718E+00,& - 0.8723E+00, 0.8728E+00, 0.8733E+00, 0.8738E+00,& - 0.8743E+00, 0.8748E+00, 0.8753E+00, 0.8758E+00,& - 0.8763E+00, 0.8768E+00, 0.8772E+00, 0.8777E+00,& - 0.8782E+00, 0.8787E+00, 0.8792E+00, 0.8797E+00,& - 0.8802E+00, 0.8806E+00, 0.8811E+00, 0.8816E+00,& - 0.8821E+00, 0.8825E+00, 0.8830E+00, 0.8835E+00,& - 0.8839E+00, 0.8845E+00, 0.8849E+00, 0.8854E+00,& - 0.8859E+00, 0.8863E+00, 0.8868E+00, 0.8872E+00,& - 0.8877E+00, 0.8882E+00, 0.8886E+00, 0.8891E+00,& - 0.8896E+00, 0.8900E+00, 0.8905E+00, 0.8909E+00,& - 0.8914E+00, 0.8918E+00, 0.8923E+00, 0.8928E+00,& - 0.8932E+00, 0.8937E+00, 0.8941E+00, 0.8946E+00,& - 0.8950E+00, 0.8955E+00, 0.8959E+00, 0.8963E+00,& - 0.8968E+00, 0.8972E+00, 0.8977E+00, 0.8981E+00,& - 0.8986E+00, 0.8990E+00, 0.8994E+00, 0.8999E+00,& - 0.9003E+00, 0.9008E+00, 0.9012E+00, 0.9017E+00,& - 0.9021E+00, 0.9025E+00, 0.9029E+00, 0.9034E+00,& - 0.9038E+00, 0.9043E+00, 0.9047E+00, 0.9051E+00,& - 0.9056E+00, 0.9060E+00, 0.9064E+00, 0.9068E+00,& - 0.9073E+00, 0.9077E+00, 0.9081E+00, 0.9086E+00,& - 0.9090E+00, 0.9094E+00, 0.9098E+00, 0.9102E+00,& - 0.9107E+00, 0.9111E+00, 0.9115E+00, 0.9120E+00,& - 0.9123E+00, 0.9128E+00, 0.9132E+00, 0.9136E+00,& - 0.9140E+00, 0.9144E+00, 0.9149E+00, 0.9153E+00,& - 0.9157E+00, 0.9161E+00, 0.9166E+00, 0.9169E+00,& - 0.9174E+00, 0.9178E+00, 0.9182E+00, 0.9186E+00,& - 0.9190E+00, 0.9194E+00, 0.9198E+00, 0.9203E+00,& - 0.9206E+00, 0.9211E+00, 0.9215E+00, 0.9219E+00,& - 0.9223E+00, 0.9227E+00, 0.9231E+00, 0.9235E+00,& - 0.9239E+00, 0.9243E+00, 0.9247E+00, 0.9251E+00,& - 0.9256E+00, 0.9260E+00, 0.9263E+00, 0.9268E+00,& - 0.9272E+00, 0.9276E+00, 0.9280E+00, 0.9284E+00,& - 0.9288E+00, 0.9292E+00, 0.9296E+00, 0.9300E+00,& - 0.9304E+00, 0.9308E+00, 0.9312E+00, 0.9316E+00,& - 0.9320E+00, 0.9324E+00, 0.9327E+00, 0.9332E+00,& - 0.9336E+00, 0.9340E+00, 0.9343E+00, 0.9347E+00,& - 0.9351E+00, 0.9355E+00, 0.9359E+00, 0.9363E+00,& - 0.9367E+00, 0.9371E+00, 0.9375E+00, 0.9379E+00,& - 0.9383E+00, 0.9387E+00, 0.9391E+00, 0.9395E+00,& - 0.9398E+00, 0.9402E+00, 0.9406E+00, 0.9410E+00,& - 0.9414E+00, 0.9418E+00, 0.9422E+00, 0.9426E+00,& - 0.9430E+00, 0.9434E+00, 0.9437E+00, 0.9441E+00,& - 0.9445E+00, 0.9449E+00, 0.9453E+00, 0.9457E+00,& - 0.9461E+00, 0.9465E+00, 0.9469E+00, 0.9473E+00,& - 0.9476E+00, 0.9480E+00, 0.9484E+00, 0.9488E+00,& - 0.9492E+00, 0.9496E+00, 0.9499E+00, 0.9503E+00,& - 0.9507E+00, 0.9511E+00, 0.9515E+00, 0.9519E+00,& - 0.9522E+00, 0.9526E+00, 0.9530E+00, 0.9534E+00,& - 0.9538E+00, 0.9542E+00, 0.9545E+00, 0.9549E+00,& - 0.9553E+00, 0.9557E+00, 0.9561E+00, 0.9565E+00,& - 0.9568E+00, 0.9572E+00, 0.9576E+00, 0.9580E+00,& - 0.9583E+00, 0.9587E+00, 0.9591E+00, 0.9595E+00,& - 0.9599E+00, 0.9602E+00, 0.9606E+00, 0.9610E+00,& - 0.9614E+00, 0.9618E+00, 0.9622E+00, 0.9625E+00,& - 0.9629E+00, 0.9633E+00, 0.9636E+00, 0.9640E+00,& - 0.9644E+00, 0.9648E+00, 0.9652E+00, 0.9655E+00,& - 0.9659E+00, 0.9663E+00, 0.9667E+00, 0.9671E+00,& - 0.9674E+00, 0.9678E+00, 0.9682E+00, 0.9685E+00,& - 0.9689E+00, 0.9693E+00, 0.9697E+00, 0.9701E+00,& - 0.9705E+00, 0.9708E+00, 0.9712E+00, 0.9716E+00,& - 0.9719E+00, 0.9723E+00, 0.9727E+00, 0.9731E+00,& - 0.9735E+00, 0.9738E+00, 0.9742E+00, 0.9746E+00,& - 0.9749E+00, 0.9753E+00, 0.9757E+00, 0.9761E+00,& - 0.9765E+00, 0.9768E+00, 0.9772E+00, 0.9776E+00,& - 0.9779E+00, 0.9783E+00, 0.9787E+00, 0.9791E+00,& - 0.9795E+00, 0.9798E+00, 0.9802E+00, 0.9806E+00,& - 0.9810E+00, 0.9813E+00, 0.9817E+00, 0.9821E+00,& - 0.9825E+00, 0.9828E+00, 0.9832E+00, 0.9836E+00,& - 0.9840E+00, 0.9843E+00, 0.9847E+00, 0.9851E+00,& - 0.9855E+00, 0.9858E+00, 0.9862E+00, 0.9866E+00,& - 0.9870E+00, 0.9873E+00, 0.9877E+00, 0.9881E+00,& - 0.9885E+00, 0.9888E+00, 0.9892E+00, 0.9896E+00,& - 0.9900E+00, 0.9904E+00, 0.9907E+00, 0.9911E+00,& - 0.9915E+00, 0.9918E+00, 0.9922E+00, 0.9926E+00,& - 0.9930E+00, 0.9934E+00, 0.9937E+00, 0.9941E+00,& - 0.9945E+00, 0.9948E+00, 0.9952E+00, 0.9956E+00,& - 0.9960E+00, 0.9964E+00, 0.9967E+00, 0.9971E+00,& - 0.9975E+00, 0.9979E+00, 0.9982E+00, 0.9986E+00,& - 0.9990E+00, 0.9994E+00, 0.9998E+00, 0.1000E+01,& - 0.1000E+01, 0.1001E+01, 0.1001E+01, 0.1002E+01,& - 0.1002E+01, 0.1002E+01, 0.1003E+01, 0.1003E+01,& - 0.1004E+01, 0.1004E+01, 0.1004E+01, 0.1005E+01,& - 0.1005E+01, 0.1005E+01, 0.1006E+01, 0.1006E+01,& - 0.1007E+01, 0.1007E+01, 0.1007E+01, 0.1008E+01,& - 0.1008E+01, 0.1008E+01, 0.1009E+01, 0.1009E+01,& - 0.1010E+01, 0.1010E+01, 0.1010E+01, 0.1011E+01,& - 0.1011E+01, 0.1012E+01, 0.1012E+01, 0.1012E+01,& - 0.1013E+01, 0.1013E+01, 0.1013E+01, 0.1014E+01,& - 0.1014E+01, 0.1015E+01, 0.1015E+01, 0.1015E+01,& - 0.1016E+01, 0.1016E+01, 0.1017E+01, 0.1017E+01,& - 0.1017E+01, 0.1018E+01, 0.1018E+01, 0.1018E+01,& - 0.1019E+01, 0.1019E+01, 0.1020E+01, 0.1020E+01,& - 0.1020E+01, 0.1021E+01, 0.1021E+01, 0.1022E+01,& - 0.1022E+01, 0.1022E+01, 0.1023E+01, 0.1023E+01,& - 0.1023E+01, 0.1024E+01, 0.1024E+01, 0.1025E+01,& - 0.1025E+01, 0.1025E+01, 0.1026E+01, 0.1026E+01,& - 0.1027E+01, 0.1027E+01, 0.1027E+01, 0.1028E+01,& - 0.1028E+01, 0.1029E+01, 0.1029E+01, 0.1029E+01,& - 0.1030E+01, 0.1030E+01, 0.1030E+01, 0.1031E+01,& - 0.1031E+01, 0.1032E+01, 0.1032E+01, 0.1032E+01,& - 0.1033E+01, 0.1033E+01, 0.1034E+01, 0.1034E+01,& - 0.1034E+01, 0.1035E+01, 0.1035E+01, 0.1036E+01,& - 0.1036E+01, 0.1036E+01, 0.1037E+01, 0.1037E+01,& - 0.1038E+01, 0.1038E+01, 0.1038E+01, 0.1039E+01,& - 0.1039E+01, 0.1040E+01, 0.1040E+01, 0.1040E+01,& - 0.1041E+01, 0.1041E+01, 0.1042E+01, 0.1042E+01,& - 0.1043E+01, 0.1043E+01, 0.1043E+01, 0.1044E+01,& - 0.1044E+01, 0.1045E+01, 0.1045E+01, 0.1045E+01,& - 0.1046E+01, 0.1046E+01, 0.1047E+01, 0.1047E+01,& - 0.1047E+01, 0.1048E+01, 0.1048E+01, 0.1049E+01,& - 0.1049E+01, 0.1049E+01, 0.1050E+01, 0.1050E+01,& - 0.1051E+01, 0.1051E+01, 0.1052E+01, 0.1052E+01,& - 0.1052E+01, 0.1053E+01, 0.1053E+01, 0.1054E+01,& - 0.1054E+01, 0.1054E+01, 0.1055E+01, 0.1055E+01,& - 0.1056E+01, 0.1056E+01, 0.1057E+01, 0.1057E+01,& - 0.1057E+01, 0.1058E+01, 0.1058E+01, 0.1059E+01,& - 0.1059E+01, 0.1060E+01, 0.1060E+01, 0.1060E+01,& - 0.1061E+01, 0.1061E+01, 0.1062E+01, 0.1062E+01,& - 0.1063E+01, 0.1063E+01, 0.1063E+01, 0.1064E+01,& - 0.1064E+01, 0.1065E+01, 0.1065E+01, 0.1066E+01,& - 0.1066E+01, 0.1066E+01, 0.1067E+01, 0.1067E+01,& - 0.1068E+01, 0.1068E+01, 0.1069E+01, 0.1069E+01,& - 0.1069E+01, 0.1070E+01, 0.1070E+01, 0.1071E+01,& - 0.1071E+01, 0.1072E+01, 0.1072E+01, 0.1073E+01,& - 0.1073E+01, 0.1073E+01, 0.1074E+01, 0.1074E+01,& - 0.1075E+01, 0.1075E+01, 0.1076E+01, 0.1076E+01,& - 0.1077E+01, 0.1077E+01, 0.1077E+01, 0.1078E+01,& - 0.1078E+01, 0.1079E+01, 0.1079E+01, 0.1080E+01,& - 0.1080E+01, 0.1081E+01, 0.1081E+01, 0.1082E+01,& - 0.1082E+01, 0.1083E+01, 0.1083E+01, 0.1083E+01,& - 0.1084E+01, 0.1084E+01, 0.1085E+01, 0.1085E+01,& - 0.1086E+01, 0.1086E+01, 0.1087E+01, 0.1087E+01,& - 0.1088E+01, 0.1088E+01, 0.1089E+01, 0.1089E+01,& - 0.1090E+01, 0.1090E+01, 0.1091E+01, 0.1091E+01,& - 0.1092E+01, 0.1092E+01, 0.1092E+01, 0.1093E+01,& - 0.1093E+01, 0.1094E+01, 0.1094E+01, 0.1095E+01,& - 0.1095E+01, 0.1096E+01, 0.1096E+01, 0.1097E+01,& - 0.1097E+01, 0.1098E+01, 0.1098E+01, 0.1099E+01,& - 0.1099E+01, 0.1100E+01, 0.1100E+01, 0.1101E+01,& - 0.1101E+01, 0.1102E+01, 0.1102E+01, 0.1103E+01,& - 0.1103E+01, 0.1104E+01, 0.1104E+01, 0.1105E+01,& - 0.1105E+01, 0.1106E+01, 0.1106E+01, 0.1107E+01,& - 0.1108E+01, 0.1108E+01, 0.1109E+01, 0.1109E+01,& - 0.1110E+01, 0.1110E+01, 0.1111E+01, 0.1111E+01,& - 0.1112E+01, 0.1112E+01, 0.1113E+01, 0.1113E+01,& - 0.1114E+01, 0.1114E+01, 0.1115E+01, 0.1115E+01,& - 0.1116E+01, 0.1117E+01, 0.1117E+01, 0.1118E+01,& - 0.1118E+01, 0.1119E+01, 0.1119E+01, 0.1120E+01,& - 0.1120E+01, 0.1121E+01, 0.1122E+01, 0.1122E+01,& - 0.1123E+01, 0.1123E+01, 0.1124E+01, 0.1124E+01,& - 0.1125E+01, 0.1126E+01, 0.1126E+01, 0.1127E+01,& - 0.1127E+01, 0.1128E+01, 0.1128E+01, 0.1129E+01,& - 0.1130E+01, 0.1130E+01, 0.1131E+01, 0.1131E+01,& - 0.1132E+01, 0.1132E+01, 0.1133E+01, 0.1134E+01,& - 0.1134E+01, 0.1135E+01, 0.1136E+01, 0.1136E+01,& - 0.1137E+01, 0.1137E+01, 0.1138E+01, 0.1139E+01,& - 0.1139E+01, 0.1140E+01, 0.1140E+01, 0.1141E+01,& - 0.1142E+01, 0.1142E+01, 0.1143E+01, 0.1144E+01,& - 0.1144E+01, 0.1145E+01, 0.1146E+01, 0.1146E+01,& - 0.1147E+01, 0.1148E+01, 0.1148E+01, 0.1149E+01,& - 0.1149E+01, 0.1150E+01, 0.1151E+01, 0.1151E+01,& - 0.1152E+01, 0.1153E+01, 0.1154E+01, 0.1154E+01,& - 0.1155E+01, 0.1156E+01, 0.1156E+01, 0.1157E+01,& - 0.1158E+01, 0.1158E+01, 0.1159E+01, 0.1160E+01,& - 0.1160E+01, 0.1161E+01, 0.1162E+01, 0.1163E+01,& - 0.1163E+01, 0.1164E+01, 0.1165E+01, 0.1166E+01,& - 0.1166E+01, 0.1167E+01, 0.1168E+01, 0.1169E+01,& - 0.1169E+01, 0.1170E+01, 0.1171E+01, 0.1172E+01,& - 0.1172E+01, 0.1173E+01, 0.1174E+01, 0.1175E+01,& - 0.1176E+01, 0.1176E+01, 0.1177E+01, 0.1178E+01,& - 0.1179E+01, 0.1180E+01, 0.1181E+01, 0.1181E+01,& - 0.1182E+01, 0.1183E+01, 0.1184E+01, 0.1185E+01,& - 0.1186E+01, 0.1186E+01, 0.1187E+01, 0.1188E+01,& - 0.1189E+01, 0.1190E+01, 0.1191E+01, 0.1192E+01,& - 0.1193E+01, 0.1194E+01, 0.1195E+01, 0.1195E+01,& - 0.1196E+01, 0.1197E+01, 0.1198E+01, 0.1199E+01,& - 0.1200E+01, 0.1201E+01, 0.1202E+01, 0.1203E+01,& - 0.1204E+01, 0.1205E+01, 0.1206E+01, 0.1207E+01,& - 0.1208E+01, 0.1209E+01, 0.1210E+01, 0.1211E+01,& - 0.1212E+01, 0.1214E+01, 0.1215E+01, 0.1216E+01,& - 0.1217E+01, 0.1218E+01, 0.1219E+01, 0.1220E+01,& - 0.1221E+01, 0.1223E+01, 0.1224E+01, 0.1225E+01,& - 0.1226E+01, 0.1227E+01, 0.1229E+01, 0.1230E+01,& - 0.1231E+01, 0.1232E+01, 0.1234E+01, 0.1235E+01,& - 0.1236E+01, 0.1238E+01, 0.1239E+01, 0.1241E+01,& - 0.1242E+01, 0.1243E+01, 0.1245E+01, 0.1246E+01,& - 0.1248E+01, 0.1249E+01, 0.1251E+01, 0.1252E+01,& - 0.1254E+01, 0.1256E+01, 0.1257E+01, 0.1259E+01,& - 0.1261E+01, 0.1262E+01, 0.1264E+01, 0.1266E+01,& - 0.1268E+01, 0.1270E+01, 0.1271E+01, 0.1273E+01,& - 0.1275E+01, 0.1277E+01, 0.1279E+01, 0.1282E+01,& - 0.1284E+01, 0.1286E+01, 0.1288E+01, 0.1291E+01,& - 0.1293E+01, 0.1295E+01, 0.1298E+01, 0.1301E+01,& - 0.1303E+01, 0.1306E+01, 0.1309E+01, 0.1312E+01,& - 0.1315E+01, 0.1318E+01, 0.1321E+01, 0.1325E+01,& - 0.1328E+01, 0.1332E+01, 0.1336E+01, 0.1340E+01,& - 0.1345E+01, 0.1350E+01, 0.1355E+01, 0.1360E+01,& - 0.1366E+01, 0.1372E+01, 0.1379E+01, 0.1386E+01,& - 0.1395E+01, 0.1404E+01, 0.1416E+01, 0.1429E+01,& - 0.1000E-04, 0.5316E+00, 0.5579E+00, 0.5745E+00/) - xcw(:, 4) = (/& - 0.1000E-04, 0.5316E+00, 0.5579E+00, 0.5745E+00,& - 0.5869E+00, 0.5968E+00, 0.6052E+00, 0.6125E+00,& - 0.6189E+00, 0.6248E+00, 0.6301E+00, 0.6350E+00,& - 0.6395E+00, 0.6438E+00, 0.6478E+00, 0.6515E+00,& - 0.6551E+00, 0.6585E+00, 0.6617E+00, 0.6648E+00,& - 0.6677E+00, 0.6706E+00, 0.6733E+00, 0.6760E+00,& - 0.6785E+00, 0.6810E+00, 0.6834E+00, 0.6857E+00,& - 0.6879E+00, 0.6901E+00, 0.6923E+00, 0.6944E+00,& - 0.6964E+00, 0.6984E+00, 0.7003E+00, 0.7022E+00,& - 0.7041E+00, 0.7059E+00, 0.7077E+00, 0.7094E+00,& - 0.7111E+00, 0.7128E+00, 0.7144E+00, 0.7161E+00,& - 0.7176E+00, 0.7192E+00, 0.7207E+00, 0.7222E+00,& - 0.7237E+00, 0.7252E+00, 0.7266E+00, 0.7280E+00,& - 0.7295E+00, 0.7308E+00, 0.7322E+00, 0.7336E+00,& - 0.7349E+00, 0.7362E+00, 0.7375E+00, 0.7387E+00,& - 0.7400E+00, 0.7413E+00, 0.7425E+00, 0.7437E+00,& - 0.7449E+00, 0.7461E+00, 0.7473E+00, 0.7484E+00,& - 0.7496E+00, 0.7507E+00, 0.7518E+00, 0.7530E+00,& - 0.7541E+00, 0.7552E+00, 0.7562E+00, 0.7573E+00,& - 0.7584E+00, 0.7594E+00, 0.7605E+00, 0.7615E+00,& - 0.7625E+00, 0.7635E+00, 0.7646E+00, 0.7656E+00,& - 0.7665E+00, 0.7675E+00, 0.7685E+00, 0.7695E+00,& - 0.7704E+00, 0.7714E+00, 0.7723E+00, 0.7733E+00,& - 0.7742E+00, 0.7751E+00, 0.7761E+00, 0.7770E+00,& - 0.7779E+00, 0.7788E+00, 0.7796E+00, 0.7805E+00,& - 0.7814E+00, 0.7823E+00, 0.7832E+00, 0.7840E+00,& - 0.7849E+00, 0.7857E+00, 0.7866E+00, 0.7874E+00,& - 0.7882E+00, 0.7891E+00, 0.7899E+00, 0.7907E+00,& - 0.7915E+00, 0.7924E+00, 0.7932E+00, 0.7940E+00,& - 0.7948E+00, 0.7956E+00, 0.7963E+00, 0.7971E+00,& - 0.7979E+00, 0.7987E+00, 0.7994E+00, 0.8002E+00,& - 0.8010E+00, 0.8018E+00, 0.8025E+00, 0.8033E+00,& - 0.8040E+00, 0.8048E+00, 0.8055E+00, 0.8062E+00,& - 0.8070E+00, 0.8077E+00, 0.8084E+00, 0.8092E+00,& - 0.8099E+00, 0.8106E+00, 0.8113E+00, 0.8120E+00,& - 0.8127E+00, 0.8134E+00, 0.8141E+00, 0.8149E+00,& - 0.8155E+00, 0.8162E+00, 0.8169E+00, 0.8176E+00,& - 0.8183E+00, 0.8190E+00, 0.8197E+00, 0.8203E+00,& - 0.8210E+00, 0.8217E+00, 0.8223E+00, 0.8230E+00,& - 0.8237E+00, 0.8243E+00, 0.8250E+00, 0.8256E+00,& - 0.8263E+00, 0.8270E+00, 0.8276E+00, 0.8283E+00,& - 0.8289E+00, 0.8295E+00, 0.8302E+00, 0.8308E+00,& - 0.8314E+00, 0.8321E+00, 0.8327E+00, 0.8333E+00,& - 0.8340E+00, 0.8346E+00, 0.8352E+00, 0.8359E+00,& - 0.8364E+00, 0.8371E+00, 0.8377E+00, 0.8383E+00,& - 0.8389E+00, 0.8395E+00, 0.8401E+00, 0.8407E+00,& - 0.8414E+00, 0.8419E+00, 0.8425E+00, 0.8431E+00,& - 0.8438E+00, 0.8443E+00, 0.8449E+00, 0.8455E+00,& - 0.8461E+00, 0.8467E+00, 0.8473E+00, 0.8479E+00,& - 0.8484E+00, 0.8490E+00, 0.8496E+00, 0.8502E+00,& - 0.8508E+00, 0.8513E+00, 0.8519E+00, 0.8525E+00,& - 0.8531E+00, 0.8536E+00, 0.8542E+00, 0.8548E+00,& - 0.8554E+00, 0.8559E+00, 0.8565E+00, 0.8570E+00,& - 0.8576E+00, 0.8581E+00, 0.8587E+00, 0.8592E+00,& - 0.8598E+00, 0.8603E+00, 0.8609E+00, 0.8614E+00,& - 0.8620E+00, 0.8625E+00, 0.8631E+00, 0.8636E+00,& - 0.8642E+00, 0.8647E+00, 0.8653E+00, 0.8658E+00,& - 0.8664E+00, 0.8669E+00, 0.8675E+00, 0.8680E+00,& - 0.8685E+00, 0.8690E+00, 0.8696E+00, 0.8701E+00,& - 0.8706E+00, 0.8712E+00, 0.8717E+00, 0.8722E+00,& - 0.8728E+00, 0.8733E+00, 0.8738E+00, 0.8743E+00,& - 0.8749E+00, 0.8754E+00, 0.8759E+00, 0.8764E+00,& - 0.8769E+00, 0.8774E+00, 0.8780E+00, 0.8785E+00,& - 0.8790E+00, 0.8795E+00, 0.8800E+00, 0.8806E+00,& - 0.8811E+00, 0.8816E+00, 0.8821E+00, 0.8826E+00,& - 0.8831E+00, 0.8836E+00, 0.8841E+00, 0.8846E+00,& - 0.8851E+00, 0.8856E+00, 0.8861E+00, 0.8866E+00,& - 0.8871E+00, 0.8876E+00, 0.8881E+00, 0.8886E+00,& - 0.8891E+00, 0.8896E+00, 0.8901E+00, 0.8906E+00,& - 0.8911E+00, 0.8916E+00, 0.8921E+00, 0.8926E+00,& - 0.8931E+00, 0.8936E+00, 0.8941E+00, 0.8945E+00,& - 0.8951E+00, 0.8955E+00, 0.8960E+00, 0.8965E+00,& - 0.8970E+00, 0.8975E+00, 0.8980E+00, 0.8984E+00,& - 0.8990E+00, 0.8994E+00, 0.8999E+00, 0.9004E+00,& - 0.9009E+00, 0.9013E+00, 0.9018E+00, 0.9023E+00,& - 0.9028E+00, 0.9033E+00, 0.9037E+00, 0.9042E+00,& - 0.9047E+00, 0.9052E+00, 0.9057E+00, 0.9061E+00,& - 0.9066E+00, 0.9071E+00, 0.9076E+00, 0.9080E+00,& - 0.9085E+00, 0.9090E+00, 0.9094E+00, 0.9099E+00,& - 0.9104E+00, 0.9109E+00, 0.9113E+00, 0.9118E+00,& - 0.9123E+00, 0.9128E+00, 0.9132E+00, 0.9137E+00,& - 0.9141E+00, 0.9146E+00, 0.9151E+00, 0.9155E+00,& - 0.9160E+00, 0.9165E+00, 0.9169E+00, 0.9174E+00,& - 0.9179E+00, 0.9183E+00, 0.9188E+00, 0.9192E+00,& - 0.9197E+00, 0.9202E+00, 0.9206E+00, 0.9211E+00,& - 0.9216E+00, 0.9220E+00, 0.9225E+00, 0.9229E+00,& - 0.9234E+00, 0.9238E+00, 0.9243E+00, 0.9248E+00,& - 0.9252E+00, 0.9257E+00, 0.9261E+00, 0.9266E+00,& - 0.9271E+00, 0.9275E+00, 0.9280E+00, 0.9284E+00,& - 0.9289E+00, 0.9293E+00, 0.9298E+00, 0.9302E+00,& - 0.9307E+00, 0.9311E+00, 0.9316E+00, 0.9320E+00,& - 0.9325E+00, 0.9329E+00, 0.9334E+00, 0.9338E+00,& - 0.9343E+00, 0.9347E+00, 0.9352E+00, 0.9356E+00,& - 0.9361E+00, 0.9365E+00, 0.9370E+00, 0.9374E+00,& - 0.9379E+00, 0.9383E+00, 0.9388E+00, 0.9392E+00,& - 0.9397E+00, 0.9401E+00, 0.9405E+00, 0.9410E+00,& - 0.9415E+00, 0.9419E+00, 0.9424E+00, 0.9428E+00,& - 0.9432E+00, 0.9437E+00, 0.9441E+00, 0.9446E+00,& - 0.9450E+00, 0.9455E+00, 0.9459E+00, 0.9464E+00,& - 0.9468E+00, 0.9472E+00, 0.9477E+00, 0.9481E+00,& - 0.9486E+00, 0.9490E+00, 0.9495E+00, 0.9499E+00,& - 0.9503E+00, 0.9508E+00, 0.9512E+00, 0.9517E+00,& - 0.9521E+00, 0.9525E+00, 0.9530E+00, 0.9534E+00,& - 0.9539E+00, 0.9543E+00, 0.9547E+00, 0.9552E+00,& - 0.9556E+00, 0.9561E+00, 0.9565E+00, 0.9569E+00,& - 0.9574E+00, 0.9578E+00, 0.9583E+00, 0.9587E+00,& - 0.9591E+00, 0.9596E+00, 0.9600E+00, 0.9605E+00,& - 0.9609E+00, 0.9613E+00, 0.9618E+00, 0.9622E+00,& - 0.9626E+00, 0.9631E+00, 0.9635E+00, 0.9640E+00,& - 0.9644E+00, 0.9648E+00, 0.9653E+00, 0.9657E+00,& - 0.9662E+00, 0.9666E+00, 0.9670E+00, 0.9675E+00,& - 0.9679E+00, 0.9683E+00, 0.9688E+00, 0.9692E+00,& - 0.9697E+00, 0.9701E+00, 0.9705E+00, 0.9710E+00,& - 0.9714E+00, 0.9718E+00, 0.9723E+00, 0.9727E+00,& - 0.9732E+00, 0.9736E+00, 0.9740E+00, 0.9745E+00,& - 0.9749E+00, 0.9753E+00, 0.9758E+00, 0.9762E+00,& - 0.9767E+00, 0.9771E+00, 0.9775E+00, 0.9780E+00,& - 0.9784E+00, 0.9788E+00, 0.9793E+00, 0.9797E+00,& - 0.9802E+00, 0.9806E+00, 0.9810E+00, 0.9815E+00,& - 0.9819E+00, 0.9823E+00, 0.9828E+00, 0.9832E+00,& - 0.9837E+00, 0.9841E+00, 0.9845E+00, 0.9850E+00,& - 0.9854E+00, 0.9858E+00, 0.9863E+00, 0.9867E+00,& - 0.9872E+00, 0.9876E+00, 0.9880E+00, 0.9885E+00,& - 0.9889E+00, 0.9893E+00, 0.9898E+00, 0.9902E+00,& - 0.9907E+00, 0.9911E+00, 0.9915E+00, 0.9920E+00,& - 0.9924E+00, 0.9929E+00, 0.9933E+00, 0.9937E+00,& - 0.9942E+00, 0.9946E+00, 0.9951E+00, 0.9955E+00,& - 0.9959E+00, 0.9964E+00, 0.9968E+00, 0.9973E+00,& - 0.9977E+00, 0.9981E+00, 0.9986E+00, 0.9990E+00,& - 0.9995E+00, 0.9999E+00, 0.1000E+01, 0.1001E+01,& - 0.1001E+01, 0.1002E+01, 0.1002E+01, 0.1003E+01,& - 0.1003E+01, 0.1003E+01, 0.1004E+01, 0.1004E+01,& - 0.1005E+01, 0.1005E+01, 0.1006E+01, 0.1006E+01,& - 0.1007E+01, 0.1007E+01, 0.1007E+01, 0.1008E+01,& - 0.1008E+01, 0.1009E+01, 0.1009E+01, 0.1010E+01,& - 0.1010E+01, 0.1011E+01, 0.1011E+01, 0.1011E+01,& - 0.1012E+01, 0.1012E+01, 0.1013E+01, 0.1013E+01,& - 0.1014E+01, 0.1014E+01, 0.1015E+01, 0.1015E+01,& - 0.1015E+01, 0.1016E+01, 0.1016E+01, 0.1017E+01,& - 0.1017E+01, 0.1018E+01, 0.1018E+01, 0.1019E+01,& - 0.1019E+01, 0.1019E+01, 0.1020E+01, 0.1020E+01,& - 0.1021E+01, 0.1021E+01, 0.1022E+01, 0.1022E+01,& - 0.1023E+01, 0.1023E+01, 0.1024E+01, 0.1024E+01,& - 0.1024E+01, 0.1025E+01, 0.1025E+01, 0.1026E+01,& - 0.1026E+01, 0.1027E+01, 0.1027E+01, 0.1028E+01,& - 0.1028E+01, 0.1029E+01, 0.1029E+01, 0.1029E+01,& - 0.1030E+01, 0.1030E+01, 0.1031E+01, 0.1031E+01,& - 0.1032E+01, 0.1032E+01, 0.1033E+01, 0.1033E+01,& - 0.1034E+01, 0.1034E+01, 0.1035E+01, 0.1035E+01,& - 0.1035E+01, 0.1036E+01, 0.1036E+01, 0.1037E+01,& - 0.1037E+01, 0.1038E+01, 0.1038E+01, 0.1039E+01,& - 0.1039E+01, 0.1040E+01, 0.1040E+01, 0.1041E+01,& - 0.1041E+01, 0.1041E+01, 0.1042E+01, 0.1042E+01,& - 0.1043E+01, 0.1043E+01, 0.1044E+01, 0.1044E+01,& - 0.1045E+01, 0.1045E+01, 0.1046E+01, 0.1046E+01,& - 0.1047E+01, 0.1047E+01, 0.1048E+01, 0.1048E+01,& - 0.1049E+01, 0.1049E+01, 0.1049E+01, 0.1050E+01,& - 0.1050E+01, 0.1051E+01, 0.1051E+01, 0.1052E+01,& - 0.1052E+01, 0.1053E+01, 0.1053E+01, 0.1054E+01,& - 0.1054E+01, 0.1055E+01, 0.1055E+01, 0.1056E+01,& - 0.1056E+01, 0.1057E+01, 0.1057E+01, 0.1058E+01,& - 0.1058E+01, 0.1059E+01, 0.1059E+01, 0.1060E+01,& - 0.1060E+01, 0.1061E+01, 0.1061E+01, 0.1062E+01,& - 0.1062E+01, 0.1063E+01, 0.1063E+01, 0.1064E+01,& - 0.1064E+01, 0.1065E+01, 0.1065E+01, 0.1065E+01,& - 0.1066E+01, 0.1066E+01, 0.1067E+01, 0.1067E+01,& - 0.1068E+01, 0.1068E+01, 0.1069E+01, 0.1069E+01,& - 0.1070E+01, 0.1070E+01, 0.1071E+01, 0.1071E+01,& - 0.1072E+01, 0.1072E+01, 0.1073E+01, 0.1074E+01,& - 0.1074E+01, 0.1075E+01, 0.1075E+01, 0.1076E+01,& - 0.1076E+01, 0.1077E+01, 0.1077E+01, 0.1078E+01,& - 0.1078E+01, 0.1079E+01, 0.1079E+01, 0.1080E+01,& - 0.1080E+01, 0.1081E+01, 0.1081E+01, 0.1082E+01,& - 0.1082E+01, 0.1083E+01, 0.1083E+01, 0.1084E+01,& - 0.1084E+01, 0.1085E+01, 0.1085E+01, 0.1086E+01,& - 0.1086E+01, 0.1087E+01, 0.1087E+01, 0.1088E+01,& - 0.1089E+01, 0.1089E+01, 0.1090E+01, 0.1090E+01,& - 0.1091E+01, 0.1091E+01, 0.1092E+01, 0.1092E+01,& - 0.1093E+01, 0.1093E+01, 0.1094E+01, 0.1094E+01,& - 0.1095E+01, 0.1096E+01, 0.1096E+01, 0.1097E+01,& - 0.1097E+01, 0.1098E+01, 0.1098E+01, 0.1099E+01,& - 0.1099E+01, 0.1100E+01, 0.1100E+01, 0.1101E+01,& - 0.1102E+01, 0.1102E+01, 0.1103E+01, 0.1103E+01,& - 0.1104E+01, 0.1104E+01, 0.1105E+01, 0.1106E+01,& - 0.1106E+01, 0.1107E+01, 0.1107E+01, 0.1108E+01,& - 0.1108E+01, 0.1109E+01, 0.1109E+01, 0.1110E+01,& - 0.1111E+01, 0.1111E+01, 0.1112E+01, 0.1112E+01,& - 0.1113E+01, 0.1114E+01, 0.1114E+01, 0.1115E+01,& - 0.1115E+01, 0.1116E+01, 0.1116E+01, 0.1117E+01,& - 0.1118E+01, 0.1118E+01, 0.1119E+01, 0.1119E+01,& - 0.1120E+01, 0.1121E+01, 0.1121E+01, 0.1122E+01,& - 0.1122E+01, 0.1123E+01, 0.1124E+01, 0.1124E+01,& - 0.1125E+01, 0.1125E+01, 0.1126E+01, 0.1127E+01,& - 0.1127E+01, 0.1128E+01, 0.1129E+01, 0.1129E+01,& - 0.1130E+01, 0.1130E+01, 0.1131E+01, 0.1132E+01,& - 0.1132E+01, 0.1133E+01, 0.1134E+01, 0.1134E+01,& - 0.1135E+01, 0.1136E+01, 0.1136E+01, 0.1137E+01,& - 0.1137E+01, 0.1138E+01, 0.1139E+01, 0.1139E+01,& - 0.1140E+01, 0.1141E+01, 0.1141E+01, 0.1142E+01,& - 0.1143E+01, 0.1143E+01, 0.1144E+01, 0.1145E+01,& - 0.1145E+01, 0.1146E+01, 0.1147E+01, 0.1147E+01,& - 0.1148E+01, 0.1149E+01, 0.1149E+01, 0.1150E+01,& - 0.1151E+01, 0.1152E+01, 0.1152E+01, 0.1153E+01,& - 0.1154E+01, 0.1154E+01, 0.1155E+01, 0.1156E+01,& - 0.1156E+01, 0.1157E+01, 0.1158E+01, 0.1159E+01,& - 0.1159E+01, 0.1160E+01, 0.1161E+01, 0.1161E+01,& - 0.1162E+01, 0.1163E+01, 0.1164E+01, 0.1164E+01,& - 0.1165E+01, 0.1166E+01, 0.1167E+01, 0.1167E+01,& - 0.1168E+01, 0.1169E+01, 0.1170E+01, 0.1170E+01,& - 0.1171E+01, 0.1172E+01, 0.1173E+01, 0.1174E+01,& - 0.1174E+01, 0.1175E+01, 0.1176E+01, 0.1177E+01,& - 0.1177E+01, 0.1178E+01, 0.1179E+01, 0.1180E+01,& - 0.1181E+01, 0.1182E+01, 0.1182E+01, 0.1183E+01,& - 0.1184E+01, 0.1185E+01, 0.1186E+01, 0.1187E+01,& - 0.1187E+01, 0.1188E+01, 0.1189E+01, 0.1190E+01,& - 0.1191E+01, 0.1192E+01, 0.1192E+01, 0.1193E+01,& - 0.1194E+01, 0.1195E+01, 0.1196E+01, 0.1197E+01,& - 0.1198E+01, 0.1199E+01, 0.1200E+01, 0.1201E+01,& - 0.1201E+01, 0.1202E+01, 0.1203E+01, 0.1204E+01,& - 0.1205E+01, 0.1206E+01, 0.1207E+01, 0.1208E+01,& - 0.1209E+01, 0.1210E+01, 0.1211E+01, 0.1212E+01,& - 0.1213E+01, 0.1214E+01, 0.1215E+01, 0.1216E+01,& - 0.1217E+01, 0.1218E+01, 0.1219E+01, 0.1220E+01,& - 0.1221E+01, 0.1222E+01, 0.1223E+01, 0.1224E+01,& - 0.1225E+01, 0.1226E+01, 0.1228E+01, 0.1229E+01,& - 0.1230E+01, 0.1231E+01, 0.1232E+01, 0.1233E+01,& - 0.1234E+01, 0.1235E+01, 0.1237E+01, 0.1238E+01,& - 0.1239E+01, 0.1240E+01, 0.1241E+01, 0.1243E+01,& - 0.1244E+01, 0.1245E+01, 0.1246E+01, 0.1247E+01,& - 0.1249E+01, 0.1250E+01, 0.1251E+01, 0.1253E+01,& - 0.1254E+01, 0.1255E+01, 0.1257E+01, 0.1258E+01,& - 0.1259E+01, 0.1261E+01, 0.1262E+01, 0.1264E+01,& - 0.1265E+01, 0.1267E+01, 0.1268E+01, 0.1269E+01,& - 0.1271E+01, 0.1272E+01, 0.1274E+01, 0.1276E+01,& - 0.1277E+01, 0.1279E+01, 0.1280E+01, 0.1282E+01,& - 0.1284E+01, 0.1285E+01, 0.1287E+01, 0.1289E+01,& - 0.1291E+01, 0.1292E+01, 0.1294E+01, 0.1296E+01,& - 0.1298E+01, 0.1300E+01, 0.1302E+01, 0.1304E+01,& - 0.1306E+01, 0.1308E+01, 0.1310E+01, 0.1312E+01,& - 0.1314E+01, 0.1316E+01, 0.1319E+01, 0.1321E+01,& - 0.1323E+01, 0.1326E+01, 0.1328E+01, 0.1331E+01,& - 0.1333E+01, 0.1336E+01, 0.1339E+01, 0.1341E+01,& - 0.1344E+01, 0.1347E+01, 0.1350E+01, 0.1353E+01,& - 0.1356E+01, 0.1360E+01, 0.1363E+01, 0.1367E+01,& - 0.1370E+01, 0.1374E+01, 0.1378E+01, 0.1382E+01,& - 0.1384E+01, 0.1391E+01, 0.1396E+01, 0.1401E+01,& - 0.1406E+01, 0.1411E+01, 0.1417E+01, 0.1424E+01,& - 0.1431E+01, 0.1438E+01, 0.1446E+01, 0.1455E+01,& - 0.1465E+01, 0.1477E+01, 0.1490E+01, 0.1506E+01,& - 0.1000E-04, 0.4777E+00, 0.5058E+00, 0.5237E+00/) - xcw(:, 5) = (/& - 0.1000E-04, 0.4777E+00, 0.5058E+00, 0.5237E+00,& - 0.5370E+00, 0.5478E+00, 0.5569E+00, 0.5648E+00,& - 0.5718E+00, 0.5782E+00, 0.5840E+00, 0.5893E+00,& - 0.5943E+00, 0.5989E+00, 0.6033E+00, 0.6074E+00,& - 0.6113E+00, 0.6150E+00, 0.6185E+00, 0.6220E+00,& - 0.6252E+00, 0.6283E+00, 0.6313E+00, 0.6343E+00,& - 0.6370E+00, 0.6398E+00, 0.6424E+00, 0.6450E+00,& - 0.6475E+00, 0.6499E+00, 0.6522E+00, 0.6545E+00,& - 0.6568E+00, 0.6590E+00, 0.6611E+00, 0.6632E+00,& - 0.6652E+00, 0.6673E+00, 0.6692E+00, 0.6712E+00,& - 0.6731E+00, 0.6749E+00, 0.6767E+00, 0.6785E+00,& - 0.6803E+00, 0.6820E+00, 0.6837E+00, 0.6854E+00,& - 0.6870E+00, 0.6887E+00, 0.6902E+00, 0.6918E+00,& - 0.6934E+00, 0.6949E+00, 0.6964E+00, 0.6979E+00,& - 0.6994E+00, 0.7008E+00, 0.7023E+00, 0.7037E+00,& - 0.7051E+00, 0.7065E+00, 0.7079E+00, 0.7092E+00,& - 0.7105E+00, 0.7119E+00, 0.7132E+00, 0.7145E+00,& - 0.7157E+00, 0.7170E+00, 0.7183E+00, 0.7195E+00,& - 0.7207E+00, 0.7220E+00, 0.7232E+00, 0.7244E+00,& - 0.7255E+00, 0.7267E+00, 0.7279E+00, 0.7290E+00,& - 0.7302E+00, 0.7313E+00, 0.7324E+00, 0.7336E+00,& - 0.7347E+00, 0.7357E+00, 0.7369E+00, 0.7379E+00,& - 0.7390E+00, 0.7401E+00, 0.7411E+00, 0.7422E+00,& - 0.7432E+00, 0.7442E+00, 0.7453E+00, 0.7463E+00,& - 0.7473E+00, 0.7483E+00, 0.7493E+00, 0.7503E+00,& - 0.7513E+00, 0.7522E+00, 0.7532E+00, 0.7542E+00,& - 0.7551E+00, 0.7561E+00, 0.7570E+00, 0.7580E+00,& - 0.7589E+00, 0.7599E+00, 0.7608E+00, 0.7617E+00,& - 0.7626E+00, 0.7635E+00, 0.7644E+00, 0.7653E+00,& - 0.7662E+00, 0.7671E+00, 0.7680E+00, 0.7689E+00,& - 0.7697E+00, 0.7706E+00, 0.7715E+00, 0.7723E+00,& - 0.7732E+00, 0.7740E+00, 0.7749E+00, 0.7757E+00,& - 0.7766E+00, 0.7774E+00, 0.7782E+00, 0.7791E+00,& - 0.7799E+00, 0.7807E+00, 0.7815E+00, 0.7824E+00,& - 0.7832E+00, 0.7839E+00, 0.7848E+00, 0.7856E+00,& - 0.7864E+00, 0.7872E+00, 0.7880E+00, 0.7887E+00,& - 0.7895E+00, 0.7903E+00, 0.7910E+00, 0.7918E+00,& - 0.7926E+00, 0.7933E+00, 0.7941E+00, 0.7949E+00,& - 0.7956E+00, 0.7964E+00, 0.7972E+00, 0.7979E+00,& - 0.7987E+00, 0.7994E+00, 0.8001E+00, 0.8009E+00,& - 0.8016E+00, 0.8024E+00, 0.8031E+00, 0.8038E+00,& - 0.8045E+00, 0.8052E+00, 0.8060E+00, 0.8067E+00,& - 0.8074E+00, 0.8081E+00, 0.8088E+00, 0.8095E+00,& - 0.8102E+00, 0.8109E+00, 0.8116E+00, 0.8123E+00,& - 0.8130E+00, 0.8137E+00, 0.8144E+00, 0.8151E+00,& - 0.8158E+00, 0.8165E+00, 0.8172E+00, 0.8179E+00,& - 0.8185E+00, 0.8192E+00, 0.8199E+00, 0.8206E+00,& - 0.8212E+00, 0.8219E+00, 0.8226E+00, 0.8232E+00,& - 0.8239E+00, 0.8246E+00, 0.8252E+00, 0.8259E+00,& - 0.8266E+00, 0.8272E+00, 0.8279E+00, 0.8285E+00,& - 0.8292E+00, 0.8298E+00, 0.8304E+00, 0.8311E+00,& - 0.8317E+00, 0.8324E+00, 0.8330E+00, 0.8337E+00,& - 0.8343E+00, 0.8349E+00, 0.8356E+00, 0.8362E+00,& - 0.8368E+00, 0.8375E+00, 0.8381E+00, 0.8387E+00,& - 0.8394E+00, 0.8400E+00, 0.8406E+00, 0.8412E+00,& - 0.8418E+00, 0.8425E+00, 0.8431E+00, 0.8437E+00,& - 0.8443E+00, 0.8449E+00, 0.8455E+00, 0.8462E+00,& - 0.8467E+00, 0.8474E+00, 0.8480E+00, 0.8486E+00,& - 0.8492E+00, 0.8498E+00, 0.8504E+00, 0.8510E+00,& - 0.8516E+00, 0.8522E+00, 0.8528E+00, 0.8534E+00,& - 0.8540E+00, 0.8546E+00, 0.8552E+00, 0.8558E+00,& - 0.8563E+00, 0.8569E+00, 0.8575E+00, 0.8581E+00,& - 0.8587E+00, 0.8593E+00, 0.8599E+00, 0.8605E+00,& - 0.8610E+00, 0.8616E+00, 0.8622E+00, 0.8628E+00,& - 0.8634E+00, 0.8639E+00, 0.8645E+00, 0.8651E+00,& - 0.8657E+00, 0.8662E+00, 0.8668E+00, 0.8674E+00,& - 0.8680E+00, 0.8685E+00, 0.8691E+00, 0.8697E+00,& - 0.8702E+00, 0.8708E+00, 0.8714E+00, 0.8719E+00,& - 0.8725E+00, 0.8730E+00, 0.8736E+00, 0.8742E+00,& - 0.8748E+00, 0.8753E+00, 0.8759E+00, 0.8764E+00,& - 0.8770E+00, 0.8775E+00, 0.8781E+00, 0.8786E+00,& - 0.8792E+00, 0.8798E+00, 0.8803E+00, 0.8809E+00,& - 0.8814E+00, 0.8820E+00, 0.8825E+00, 0.8831E+00,& - 0.8836E+00, 0.8842E+00, 0.8847E+00, 0.8853E+00,& - 0.8858E+00, 0.8863E+00, 0.8869E+00, 0.8875E+00,& - 0.8880E+00, 0.8885E+00, 0.8891E+00, 0.8896E+00,& - 0.8901E+00, 0.8907E+00, 0.8912E+00, 0.8918E+00,& - 0.8923E+00, 0.8928E+00, 0.8934E+00, 0.8939E+00,& - 0.8945E+00, 0.8950E+00, 0.8955E+00, 0.8961E+00,& - 0.8966E+00, 0.8971E+00, 0.8977E+00, 0.8982E+00,& - 0.8987E+00, 0.8993E+00, 0.8998E+00, 0.9003E+00,& - 0.9009E+00, 0.9014E+00, 0.9019E+00, 0.9024E+00,& - 0.9030E+00, 0.9035E+00, 0.9040E+00, 0.9045E+00,& - 0.9051E+00, 0.9056E+00, 0.9061E+00, 0.9067E+00,& - 0.9072E+00, 0.9077E+00, 0.9082E+00, 0.9088E+00,& - 0.9093E+00, 0.9098E+00, 0.9103E+00, 0.9108E+00,& - 0.9114E+00, 0.9119E+00, 0.9124E+00, 0.9129E+00,& - 0.9134E+00, 0.9140E+00, 0.9145E+00, 0.9150E+00,& - 0.9155E+00, 0.9160E+00, 0.9165E+00, 0.9170E+00,& - 0.9176E+00, 0.9181E+00, 0.9186E+00, 0.9191E+00,& - 0.9196E+00, 0.9201E+00, 0.9207E+00, 0.9212E+00,& - 0.9217E+00, 0.9222E+00, 0.9227E+00, 0.9232E+00,& - 0.9238E+00, 0.9243E+00, 0.9248E+00, 0.9253E+00,& - 0.9258E+00, 0.9263E+00, 0.9268E+00, 0.9273E+00,& - 0.9278E+00, 0.9284E+00, 0.9288E+00, 0.9293E+00,& - 0.9299E+00, 0.9304E+00, 0.9309E+00, 0.9314E+00,& - 0.9319E+00, 0.9324E+00, 0.9329E+00, 0.9334E+00,& - 0.9339E+00, 0.9344E+00, 0.9349E+00, 0.9355E+00,& - 0.9359E+00, 0.9364E+00, 0.9370E+00, 0.9375E+00,& - 0.9380E+00, 0.9385E+00, 0.9390E+00, 0.9395E+00,& - 0.9400E+00, 0.9405E+00, 0.9410E+00, 0.9415E+00,& - 0.9420E+00, 0.9425E+00, 0.9430E+00, 0.9435E+00,& - 0.9440E+00, 0.9445E+00, 0.9450E+00, 0.9455E+00,& - 0.9460E+00, 0.9465E+00, 0.9470E+00, 0.9475E+00,& - 0.9480E+00, 0.9485E+00, 0.9490E+00, 0.9495E+00,& - 0.9501E+00, 0.9505E+00, 0.9510E+00, 0.9515E+00,& - 0.9520E+00, 0.9526E+00, 0.9530E+00, 0.9535E+00,& - 0.9541E+00, 0.9545E+00, 0.9551E+00, 0.9555E+00,& - 0.9560E+00, 0.9566E+00, 0.9570E+00, 0.9576E+00,& - 0.9580E+00, 0.9585E+00, 0.9591E+00, 0.9595E+00,& - 0.9601E+00, 0.9605E+00, 0.9610E+00, 0.9615E+00,& - 0.9620E+00, 0.9626E+00, 0.9630E+00, 0.9635E+00,& - 0.9640E+00, 0.9645E+00, 0.9650E+00, 0.9655E+00,& - 0.9660E+00, 0.9665E+00, 0.9670E+00, 0.9675E+00,& - 0.9680E+00, 0.9685E+00, 0.9690E+00, 0.9695E+00,& - 0.9700E+00, 0.9705E+00, 0.9710E+00, 0.9715E+00,& - 0.9720E+00, 0.9725E+00, 0.9730E+00, 0.9735E+00,& - 0.9740E+00, 0.9745E+00, 0.9750E+00, 0.9755E+00,& - 0.9760E+00, 0.9765E+00, 0.9770E+00, 0.9775E+00,& - 0.9780E+00, 0.9785E+00, 0.9790E+00, 0.9795E+00,& - 0.9800E+00, 0.9805E+00, 0.9810E+00, 0.9815E+00,& - 0.9820E+00, 0.9825E+00, 0.9830E+00, 0.9835E+00,& - 0.9840E+00, 0.9845E+00, 0.9850E+00, 0.9855E+00,& - 0.9860E+00, 0.9865E+00, 0.9870E+00, 0.9875E+00,& - 0.9880E+00, 0.9885E+00, 0.9890E+00, 0.9895E+00,& - 0.9900E+00, 0.9905E+00, 0.9910E+00, 0.9915E+00,& - 0.9920E+00, 0.9925E+00, 0.9930E+00, 0.9935E+00,& - 0.9940E+00, 0.9945E+00, 0.9950E+00, 0.9956E+00,& - 0.9960E+00, 0.9966E+00, 0.9971E+00, 0.9975E+00,& - 0.9981E+00, 0.9986E+00, 0.9990E+00, 0.9996E+00,& - 0.1000E+01, 0.1001E+01, 0.1001E+01, 0.1002E+01,& - 0.1002E+01, 0.1003E+01, 0.1003E+01, 0.1004E+01,& - 0.1004E+01, 0.1005E+01, 0.1005E+01, 0.1006E+01,& - 0.1006E+01, 0.1007E+01, 0.1007E+01, 0.1008E+01,& - 0.1008E+01, 0.1009E+01, 0.1009E+01, 0.1010E+01,& - 0.1010E+01, 0.1011E+01, 0.1011E+01, 0.1012E+01,& - 0.1012E+01, 0.1013E+01, 0.1013E+01, 0.1014E+01,& - 0.1014E+01, 0.1015E+01, 0.1015E+01, 0.1016E+01,& - 0.1016E+01, 0.1017E+01, 0.1017E+01, 0.1018E+01,& - 0.1018E+01, 0.1019E+01, 0.1019E+01, 0.1020E+01,& - 0.1020E+01, 0.1021E+01, 0.1022E+01, 0.1022E+01,& - 0.1023E+01, 0.1023E+01, 0.1024E+01, 0.1024E+01,& - 0.1025E+01, 0.1025E+01, 0.1026E+01, 0.1026E+01,& - 0.1027E+01, 0.1027E+01, 0.1028E+01, 0.1028E+01,& - 0.1029E+01, 0.1029E+01, 0.1030E+01, 0.1030E+01,& - 0.1031E+01, 0.1031E+01, 0.1032E+01, 0.1032E+01,& - 0.1033E+01, 0.1033E+01, 0.1034E+01, 0.1035E+01,& - 0.1035E+01, 0.1036E+01, 0.1036E+01, 0.1037E+01,& - 0.1037E+01, 0.1038E+01, 0.1038E+01, 0.1039E+01,& - 0.1039E+01, 0.1040E+01, 0.1040E+01, 0.1041E+01,& - 0.1041E+01, 0.1042E+01, 0.1042E+01, 0.1043E+01,& - 0.1044E+01, 0.1044E+01, 0.1045E+01, 0.1045E+01,& - 0.1046E+01, 0.1046E+01, 0.1047E+01, 0.1047E+01,& - 0.1048E+01, 0.1048E+01, 0.1049E+01, 0.1049E+01,& - 0.1050E+01, 0.1051E+01, 0.1051E+01, 0.1052E+01,& - 0.1052E+01, 0.1053E+01, 0.1053E+01, 0.1054E+01,& - 0.1054E+01, 0.1055E+01, 0.1055E+01, 0.1056E+01,& - 0.1056E+01, 0.1057E+01, 0.1058E+01, 0.1058E+01,& - 0.1059E+01, 0.1059E+01, 0.1060E+01, 0.1060E+01,& - 0.1061E+01, 0.1061E+01, 0.1062E+01, 0.1063E+01,& - 0.1063E+01, 0.1064E+01, 0.1064E+01, 0.1065E+01,& - 0.1065E+01, 0.1066E+01, 0.1066E+01, 0.1067E+01,& - 0.1068E+01, 0.1068E+01, 0.1069E+01, 0.1069E+01,& - 0.1070E+01, 0.1070E+01, 0.1071E+01, 0.1071E+01,& - 0.1072E+01, 0.1073E+01, 0.1073E+01, 0.1074E+01,& - 0.1074E+01, 0.1075E+01, 0.1075E+01, 0.1076E+01,& - 0.1077E+01, 0.1077E+01, 0.1078E+01, 0.1078E+01,& - 0.1079E+01, 0.1079E+01, 0.1080E+01, 0.1081E+01,& - 0.1081E+01, 0.1082E+01, 0.1082E+01, 0.1083E+01,& - 0.1084E+01, 0.1084E+01, 0.1085E+01, 0.1085E+01,& - 0.1086E+01, 0.1086E+01, 0.1087E+01, 0.1088E+01,& - 0.1088E+01, 0.1089E+01, 0.1089E+01, 0.1090E+01,& - 0.1091E+01, 0.1091E+01, 0.1092E+01, 0.1092E+01,& - 0.1093E+01, 0.1094E+01, 0.1094E+01, 0.1095E+01,& - 0.1095E+01, 0.1096E+01, 0.1097E+01, 0.1097E+01,& - 0.1098E+01, 0.1098E+01, 0.1099E+01, 0.1100E+01,& - 0.1100E+01, 0.1101E+01, 0.1101E+01, 0.1102E+01,& - 0.1103E+01, 0.1103E+01, 0.1104E+01, 0.1105E+01,& - 0.1105E+01, 0.1106E+01, 0.1106E+01, 0.1107E+01,& - 0.1108E+01, 0.1108E+01, 0.1109E+01, 0.1110E+01,& - 0.1110E+01, 0.1111E+01, 0.1111E+01, 0.1112E+01,& - 0.1113E+01, 0.1113E+01, 0.1114E+01, 0.1115E+01,& - 0.1115E+01, 0.1116E+01, 0.1117E+01, 0.1117E+01,& - 0.1118E+01, 0.1118E+01, 0.1119E+01, 0.1120E+01,& - 0.1120E+01, 0.1121E+01, 0.1122E+01, 0.1122E+01,& - 0.1123E+01, 0.1124E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1126E+01, 0.1127E+01, 0.1128E+01,& - 0.1128E+01, 0.1129E+01, 0.1130E+01, 0.1130E+01,& - 0.1131E+01, 0.1132E+01, 0.1132E+01, 0.1133E+01,& - 0.1134E+01, 0.1134E+01, 0.1135E+01, 0.1136E+01,& - 0.1136E+01, 0.1137E+01, 0.1138E+01, 0.1139E+01,& - 0.1139E+01, 0.1140E+01, 0.1141E+01, 0.1141E+01,& - 0.1142E+01, 0.1143E+01, 0.1143E+01, 0.1144E+01,& - 0.1145E+01, 0.1146E+01, 0.1146E+01, 0.1147E+01,& - 0.1148E+01, 0.1148E+01, 0.1149E+01, 0.1150E+01,& - 0.1151E+01, 0.1151E+01, 0.1152E+01, 0.1153E+01,& - 0.1154E+01, 0.1154E+01, 0.1155E+01, 0.1156E+01,& - 0.1157E+01, 0.1157E+01, 0.1158E+01, 0.1159E+01,& - 0.1160E+01, 0.1160E+01, 0.1161E+01, 0.1162E+01,& - 0.1163E+01, 0.1163E+01, 0.1164E+01, 0.1165E+01,& - 0.1166E+01, 0.1166E+01, 0.1167E+01, 0.1168E+01,& - 0.1169E+01, 0.1170E+01, 0.1170E+01, 0.1171E+01,& - 0.1172E+01, 0.1173E+01, 0.1174E+01, 0.1174E+01,& - 0.1175E+01, 0.1176E+01, 0.1177E+01, 0.1178E+01,& - 0.1178E+01, 0.1179E+01, 0.1180E+01, 0.1181E+01,& - 0.1182E+01, 0.1183E+01, 0.1183E+01, 0.1184E+01,& - 0.1185E+01, 0.1186E+01, 0.1187E+01, 0.1188E+01,& - 0.1189E+01, 0.1189E+01, 0.1190E+01, 0.1191E+01,& - 0.1192E+01, 0.1193E+01, 0.1194E+01, 0.1195E+01,& - 0.1196E+01, 0.1196E+01, 0.1197E+01, 0.1198E+01,& - 0.1199E+01, 0.1200E+01, 0.1201E+01, 0.1202E+01,& - 0.1203E+01, 0.1204E+01, 0.1205E+01, 0.1206E+01,& - 0.1206E+01, 0.1207E+01, 0.1208E+01, 0.1209E+01,& - 0.1210E+01, 0.1211E+01, 0.1212E+01, 0.1213E+01,& - 0.1214E+01, 0.1215E+01, 0.1216E+01, 0.1217E+01,& - 0.1218E+01, 0.1219E+01, 0.1220E+01, 0.1221E+01,& - 0.1222E+01, 0.1223E+01, 0.1224E+01, 0.1225E+01,& - 0.1226E+01, 0.1227E+01, 0.1228E+01, 0.1229E+01,& - 0.1231E+01, 0.1232E+01, 0.1233E+01, 0.1234E+01,& - 0.1235E+01, 0.1236E+01, 0.1237E+01, 0.1238E+01,& - 0.1239E+01, 0.1240E+01, 0.1241E+01, 0.1243E+01,& - 0.1244E+01, 0.1245E+01, 0.1246E+01, 0.1247E+01,& - 0.1248E+01, 0.1250E+01, 0.1251E+01, 0.1252E+01,& - 0.1253E+01, 0.1254E+01, 0.1256E+01, 0.1257E+01,& - 0.1258E+01, 0.1259E+01, 0.1261E+01, 0.1262E+01,& - 0.1263E+01, 0.1265E+01, 0.1266E+01, 0.1267E+01,& - 0.1268E+01, 0.1270E+01, 0.1271E+01, 0.1273E+01,& - 0.1274E+01, 0.1275E+01, 0.1277E+01, 0.1278E+01,& - 0.1279E+01, 0.1281E+01, 0.1282E+01, 0.1284E+01,& - 0.1285E+01, 0.1287E+01, 0.1288E+01, 0.1290E+01,& - 0.1291E+01, 0.1293E+01, 0.1294E+01, 0.1296E+01,& - 0.1298E+01, 0.1299E+01, 0.1301E+01, 0.1303E+01,& - 0.1304E+01, 0.1306E+01, 0.1308E+01, 0.1309E+01,& - 0.1311E+01, 0.1313E+01, 0.1315E+01, 0.1316E+01,& - 0.1318E+01, 0.1320E+01, 0.1322E+01, 0.1324E+01,& - 0.1326E+01, 0.1328E+01, 0.1330E+01, 0.1332E+01,& - 0.1334E+01, 0.1336E+01, 0.1338E+01, 0.1340E+01,& - 0.1342E+01, 0.1345E+01, 0.1347E+01, 0.1349E+01,& - 0.1351E+01, 0.1354E+01, 0.1356E+01, 0.1359E+01,& - 0.1361E+01, 0.1364E+01, 0.1366E+01, 0.1369E+01,& - 0.1372E+01, 0.1375E+01, 0.1377E+01, 0.1380E+01,& - 0.1383E+01, 0.1386E+01, 0.1390E+01, 0.1393E+01,& - 0.1396E+01, 0.1399E+01, 0.1403E+01, 0.1406E+01,& - 0.1410E+01, 0.1414E+01, 0.1418E+01, 0.1422E+01,& - 0.1426E+01, 0.1431E+01, 0.1435E+01, 0.1440E+01,& - 0.1445E+01, 0.1450E+01, 0.1456E+01, 0.1462E+01,& - 0.1468E+01, 0.1474E+01, 0.1481E+01, 0.1489E+01,& - 0.1496E+01, 0.1505E+01, 0.1515E+01, 0.1525E+01,& - 0.1537E+01, 0.1550E+01, 0.1566E+01, 0.1584E+01,& - 0.1000E-04, 0.4271E+00, 0.4567E+00, 0.4755E+00/) - xcw(:, 6) = (/& - 0.1000E-04, 0.4271E+00, 0.4567E+00, 0.4755E+00,& - 0.4896E+00, 0.5010E+00, 0.5107E+00, 0.5192E+00,& - 0.5267E+00, 0.5335E+00, 0.5397E+00, 0.5454E+00,& - 0.5508E+00, 0.5557E+00, 0.5604E+00, 0.5648E+00,& - 0.5690E+00, 0.5730E+00, 0.5769E+00, 0.5805E+00,& - 0.5840E+00, 0.5874E+00, 0.5906E+00, 0.5938E+00,& - 0.5969E+00, 0.5998E+00, 0.6026E+00, 0.6054E+00,& - 0.6081E+00, 0.6107E+00, 0.6133E+00, 0.6158E+00,& - 0.6182E+00, 0.6206E+00, 0.6229E+00, 0.6252E+00,& - 0.6274E+00, 0.6296E+00, 0.6317E+00, 0.6338E+00,& - 0.6359E+00, 0.6379E+00, 0.6399E+00, 0.6418E+00,& - 0.6437E+00, 0.6456E+00, 0.6475E+00, 0.6493E+00,& - 0.6511E+00, 0.6529E+00, 0.6546E+00, 0.6563E+00,& - 0.6581E+00, 0.6597E+00, 0.6614E+00, 0.6630E+00,& - 0.6646E+00, 0.6662E+00, 0.6678E+00, 0.6693E+00,& - 0.6708E+00, 0.6724E+00, 0.6738E+00, 0.6753E+00,& - 0.6768E+00, 0.6782E+00, 0.6797E+00, 0.6811E+00,& - 0.6825E+00, 0.6839E+00, 0.6852E+00, 0.6866E+00,& - 0.6880E+00, 0.6893E+00, 0.6906E+00, 0.6919E+00,& - 0.6932E+00, 0.6945E+00, 0.6958E+00, 0.6970E+00,& - 0.6983E+00, 0.6995E+00, 0.7008E+00, 0.7020E+00,& - 0.7032E+00, 0.7044E+00, 0.7056E+00, 0.7068E+00,& - 0.7080E+00, 0.7092E+00, 0.7103E+00, 0.7114E+00,& - 0.7126E+00, 0.7137E+00, 0.7148E+00, 0.7160E+00,& - 0.7171E+00, 0.7182E+00, 0.7193E+00, 0.7204E+00,& - 0.7215E+00, 0.7225E+00, 0.7236E+00, 0.7247E+00,& - 0.7257E+00, 0.7267E+00, 0.7278E+00, 0.7288E+00,& - 0.7299E+00, 0.7309E+00, 0.7319E+00, 0.7329E+00,& - 0.7339E+00, 0.7349E+00, 0.7359E+00, 0.7369E+00,& - 0.7379E+00, 0.7389E+00, 0.7399E+00, 0.7408E+00,& - 0.7418E+00, 0.7427E+00, 0.7437E+00, 0.7447E+00,& - 0.7456E+00, 0.7465E+00, 0.7475E+00, 0.7484E+00,& - 0.7493E+00, 0.7502E+00, 0.7512E+00, 0.7521E+00,& - 0.7530E+00, 0.7539E+00, 0.7548E+00, 0.7557E+00,& - 0.7566E+00, 0.7575E+00, 0.7584E+00, 0.7592E+00,& - 0.7601E+00, 0.7610E+00, 0.7619E+00, 0.7627E+00,& - 0.7636E+00, 0.7645E+00, 0.7653E+00, 0.7662E+00,& - 0.7670E+00, 0.7679E+00, 0.7687E+00, 0.7695E+00,& - 0.7704E+00, 0.7712E+00, 0.7720E+00, 0.7729E+00,& - 0.7737E+00, 0.7745E+00, 0.7754E+00, 0.7762E+00,& - 0.7770E+00, 0.7778E+00, 0.7786E+00, 0.7794E+00,& - 0.7802E+00, 0.7810E+00, 0.7818E+00, 0.7826E+00,& - 0.7834E+00, 0.7842E+00, 0.7849E+00, 0.7857E+00,& - 0.7865E+00, 0.7873E+00, 0.7881E+00, 0.7889E+00,& - 0.7896E+00, 0.7904E+00, 0.7912E+00, 0.7919E+00,& - 0.7927E+00, 0.7934E+00, 0.7942E+00, 0.7950E+00,& - 0.7957E+00, 0.7965E+00, 0.7972E+00, 0.7980E+00,& - 0.7987E+00, 0.7994E+00, 0.8002E+00, 0.8009E+00,& - 0.8017E+00, 0.8024E+00, 0.8031E+00, 0.8039E+00,& - 0.8046E+00, 0.8053E+00, 0.8061E+00, 0.8068E+00,& - 0.8075E+00, 0.8082E+00, 0.8089E+00, 0.8097E+00,& - 0.8103E+00, 0.8111E+00, 0.8118E+00, 0.8125E+00,& - 0.8132E+00, 0.8139E+00, 0.8146E+00, 0.8153E+00,& - 0.8160E+00, 0.8167E+00, 0.8174E+00, 0.8181E+00,& - 0.8188E+00, 0.8195E+00, 0.8202E+00, 0.8209E+00,& - 0.8216E+00, 0.8223E+00, 0.8230E+00, 0.8237E+00,& - 0.8243E+00, 0.8250E+00, 0.8257E+00, 0.8264E+00,& - 0.8271E+00, 0.8277E+00, 0.8284E+00, 0.8291E+00,& - 0.8297E+00, 0.8304E+00, 0.8311E+00, 0.8318E+00,& - 0.8324E+00, 0.8331E+00, 0.8338E+00, 0.8344E+00,& - 0.8351E+00, 0.8357E+00, 0.8364E+00, 0.8370E+00,& - 0.8377E+00, 0.8384E+00, 0.8390E+00, 0.8397E+00,& - 0.8403E+00, 0.8410E+00, 0.8416E+00, 0.8423E+00,& - 0.8429E+00, 0.8436E+00, 0.8442E+00, 0.8449E+00,& - 0.8455E+00, 0.8461E+00, 0.8468E+00, 0.8474E+00,& - 0.8481E+00, 0.8487E+00, 0.8493E+00, 0.8500E+00,& - 0.8506E+00, 0.8513E+00, 0.8519E+00, 0.8526E+00,& - 0.8532E+00, 0.8538E+00, 0.8544E+00, 0.8551E+00,& - 0.8557E+00, 0.8563E+00, 0.8570E+00, 0.8576E+00,& - 0.8582E+00, 0.8588E+00, 0.8594E+00, 0.8600E+00,& - 0.8607E+00, 0.8613E+00, 0.8619E+00, 0.8625E+00,& - 0.8632E+00, 0.8638E+00, 0.8644E+00, 0.8650E+00,& - 0.8656E+00, 0.8663E+00, 0.8669E+00, 0.8675E+00,& - 0.8681E+00, 0.8687E+00, 0.8693E+00, 0.8699E+00,& - 0.8705E+00, 0.8711E+00, 0.8717E+00, 0.8723E+00,& - 0.8730E+00, 0.8736E+00, 0.8742E+00, 0.8748E+00,& - 0.8754E+00, 0.8760E+00, 0.8766E+00, 0.8772E+00,& - 0.8778E+00, 0.8784E+00, 0.8790E+00, 0.8796E+00,& - 0.8802E+00, 0.8808E+00, 0.8814E+00, 0.8820E+00,& - 0.8826E+00, 0.8832E+00, 0.8838E+00, 0.8844E+00,& - 0.8849E+00, 0.8855E+00, 0.8861E+00, 0.8867E+00,& - 0.8873E+00, 0.8879E+00, 0.8885E+00, 0.8891E+00,& - 0.8897E+00, 0.8903E+00, 0.8909E+00, 0.8915E+00,& - 0.8920E+00, 0.8926E+00, 0.8932E+00, 0.8938E+00,& - 0.8944E+00, 0.8950E+00, 0.8956E+00, 0.8962E+00,& - 0.8967E+00, 0.8973E+00, 0.8979E+00, 0.8985E+00,& - 0.8990E+00, 0.8996E+00, 0.9002E+00, 0.9008E+00,& - 0.9014E+00, 0.9020E+00, 0.9025E+00, 0.9031E+00,& - 0.9037E+00, 0.9043E+00, 0.9049E+00, 0.9054E+00,& - 0.9060E+00, 0.9066E+00, 0.9072E+00, 0.9077E+00,& - 0.9083E+00, 0.9089E+00, 0.9095E+00, 0.9100E+00,& - 0.9106E+00, 0.9112E+00, 0.9117E+00, 0.9123E+00,& - 0.9129E+00, 0.9135E+00, 0.9141E+00, 0.9146E+00,& - 0.9152E+00, 0.9158E+00, 0.9164E+00, 0.9169E+00,& - 0.9175E+00, 0.9180E+00, 0.9186E+00, 0.9192E+00,& - 0.9198E+00, 0.9203E+00, 0.9209E+00, 0.9215E+00,& - 0.9220E+00, 0.9226E+00, 0.9232E+00, 0.9237E+00,& - 0.9243E+00, 0.9249E+00, 0.9255E+00, 0.9260E+00,& - 0.9266E+00, 0.9271E+00, 0.9277E+00, 0.9283E+00,& - 0.9289E+00, 0.9294E+00, 0.9300E+00, 0.9305E+00,& - 0.9311E+00, 0.9317E+00, 0.9322E+00, 0.9328E+00,& - 0.9333E+00, 0.9339E+00, 0.9345E+00, 0.9351E+00,& - 0.9356E+00, 0.9362E+00, 0.9368E+00, 0.9373E+00,& - 0.9379E+00, 0.9384E+00, 0.9390E+00, 0.9396E+00,& - 0.9401E+00, 0.9407E+00, 0.9412E+00, 0.9418E+00,& - 0.9424E+00, 0.9429E+00, 0.9435E+00, 0.9440E+00,& - 0.9446E+00, 0.9452E+00, 0.9457E+00, 0.9463E+00,& - 0.9469E+00, 0.9474E+00, 0.9480E+00, 0.9485E+00,& - 0.9491E+00, 0.9497E+00, 0.9502E+00, 0.9508E+00,& - 0.9513E+00, 0.9519E+00, 0.9525E+00, 0.9530E+00,& - 0.9536E+00, 0.9541E+00, 0.9547E+00, 0.9553E+00,& - 0.9558E+00, 0.9564E+00, 0.9570E+00, 0.9575E+00,& - 0.9581E+00, 0.9586E+00, 0.9592E+00, 0.9598E+00,& - 0.9603E+00, 0.9609E+00, 0.9614E+00, 0.9620E+00,& - 0.9626E+00, 0.9631E+00, 0.9637E+00, 0.9642E+00,& - 0.9648E+00, 0.9654E+00, 0.9659E+00, 0.9665E+00,& - 0.9671E+00, 0.9676E+00, 0.9681E+00, 0.9687E+00,& - 0.9693E+00, 0.9698E+00, 0.9704E+00, 0.9709E+00,& - 0.9715E+00, 0.9721E+00, 0.9726E+00, 0.9732E+00,& - 0.9737E+00, 0.9743E+00, 0.9749E+00, 0.9754E+00,& - 0.9760E+00, 0.9766E+00, 0.9771E+00, 0.9777E+00,& - 0.9783E+00, 0.9788E+00, 0.9794E+00, 0.9800E+00,& - 0.9805E+00, 0.9811E+00, 0.9816E+00, 0.9822E+00,& - 0.9828E+00, 0.9833E+00, 0.9839E+00, 0.9844E+00,& - 0.9850E+00, 0.9856E+00, 0.9861E+00, 0.9867E+00,& - 0.9873E+00, 0.9878E+00, 0.9884E+00, 0.9890E+00,& - 0.9895E+00, 0.9901E+00, 0.9907E+00, 0.9912E+00,& - 0.9918E+00, 0.9923E+00, 0.9929E+00, 0.9935E+00,& - 0.9940E+00, 0.9946E+00, 0.9952E+00, 0.9958E+00,& - 0.9963E+00, 0.9969E+00, 0.9974E+00, 0.9980E+00,& - 0.9986E+00, 0.9992E+00, 0.9997E+00, 0.1000E+01,& - 0.1001E+01, 0.1001E+01, 0.1002E+01, 0.1003E+01,& - 0.1003E+01, 0.1004E+01, 0.1004E+01, 0.1005E+01,& - 0.1005E+01, 0.1006E+01, 0.1007E+01, 0.1007E+01,& - 0.1008E+01, 0.1008E+01, 0.1009E+01, 0.1009E+01,& - 0.1010E+01, 0.1011E+01, 0.1011E+01, 0.1012E+01,& - 0.1012E+01, 0.1013E+01, 0.1013E+01, 0.1014E+01,& - 0.1015E+01, 0.1015E+01, 0.1016E+01, 0.1016E+01,& - 0.1017E+01, 0.1017E+01, 0.1018E+01, 0.1019E+01,& - 0.1019E+01, 0.1020E+01, 0.1020E+01, 0.1021E+01,& - 0.1022E+01, 0.1022E+01, 0.1023E+01, 0.1023E+01,& - 0.1024E+01, 0.1024E+01, 0.1025E+01, 0.1026E+01,& - 0.1026E+01, 0.1027E+01, 0.1027E+01, 0.1028E+01,& - 0.1029E+01, 0.1029E+01, 0.1030E+01, 0.1030E+01,& - 0.1031E+01, 0.1031E+01, 0.1032E+01, 0.1033E+01,& - 0.1033E+01, 0.1034E+01, 0.1034E+01, 0.1035E+01,& - 0.1036E+01, 0.1036E+01, 0.1037E+01, 0.1037E+01,& - 0.1038E+01, 0.1039E+01, 0.1039E+01, 0.1040E+01,& - 0.1040E+01, 0.1041E+01, 0.1042E+01, 0.1042E+01,& - 0.1043E+01, 0.1043E+01, 0.1044E+01, 0.1045E+01,& - 0.1045E+01, 0.1046E+01, 0.1046E+01, 0.1047E+01,& - 0.1048E+01, 0.1048E+01, 0.1049E+01, 0.1049E+01,& - 0.1050E+01, 0.1051E+01, 0.1051E+01, 0.1052E+01,& - 0.1052E+01, 0.1053E+01, 0.1054E+01, 0.1054E+01,& - 0.1055E+01, 0.1055E+01, 0.1056E+01, 0.1057E+01,& - 0.1057E+01, 0.1058E+01, 0.1058E+01, 0.1059E+01,& - 0.1060E+01, 0.1060E+01, 0.1061E+01, 0.1062E+01,& - 0.1062E+01, 0.1063E+01, 0.1063E+01, 0.1064E+01,& - 0.1065E+01, 0.1065E+01, 0.1066E+01, 0.1067E+01,& - 0.1067E+01, 0.1068E+01, 0.1068E+01, 0.1069E+01,& - 0.1070E+01, 0.1070E+01, 0.1071E+01, 0.1072E+01,& - 0.1072E+01, 0.1073E+01, 0.1073E+01, 0.1074E+01,& - 0.1075E+01, 0.1075E+01, 0.1076E+01, 0.1077E+01,& - 0.1077E+01, 0.1078E+01, 0.1078E+01, 0.1079E+01,& - 0.1080E+01, 0.1080E+01, 0.1081E+01, 0.1082E+01,& - 0.1082E+01, 0.1083E+01, 0.1084E+01, 0.1084E+01,& - 0.1085E+01, 0.1086E+01, 0.1086E+01, 0.1087E+01,& - 0.1088E+01, 0.1088E+01, 0.1089E+01, 0.1089E+01,& - 0.1090E+01, 0.1091E+01, 0.1091E+01, 0.1092E+01,& - 0.1093E+01, 0.1093E+01, 0.1094E+01, 0.1095E+01,& - 0.1095E+01, 0.1096E+01, 0.1097E+01, 0.1097E+01,& - 0.1098E+01, 0.1099E+01, 0.1099E+01, 0.1100E+01,& - 0.1101E+01, 0.1101E+01, 0.1102E+01, 0.1103E+01,& - 0.1103E+01, 0.1104E+01, 0.1105E+01, 0.1105E+01,& - 0.1106E+01, 0.1107E+01, 0.1108E+01, 0.1108E+01,& - 0.1109E+01, 0.1110E+01, 0.1110E+01, 0.1111E+01,& - 0.1112E+01, 0.1112E+01, 0.1113E+01, 0.1114E+01,& - 0.1114E+01, 0.1115E+01, 0.1116E+01, 0.1117E+01,& - 0.1117E+01, 0.1118E+01, 0.1119E+01, 0.1119E+01,& - 0.1120E+01, 0.1121E+01, 0.1121E+01, 0.1122E+01,& - 0.1123E+01, 0.1124E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1126E+01, 0.1127E+01, 0.1128E+01,& - 0.1129E+01, 0.1129E+01, 0.1130E+01, 0.1131E+01,& - 0.1132E+01, 0.1132E+01, 0.1133E+01, 0.1134E+01,& - 0.1135E+01, 0.1135E+01, 0.1136E+01, 0.1137E+01,& - 0.1137E+01, 0.1138E+01, 0.1139E+01, 0.1140E+01,& - 0.1140E+01, 0.1141E+01, 0.1142E+01, 0.1143E+01,& - 0.1143E+01, 0.1144E+01, 0.1145E+01, 0.1146E+01,& - 0.1147E+01, 0.1147E+01, 0.1148E+01, 0.1149E+01,& - 0.1150E+01, 0.1150E+01, 0.1151E+01, 0.1152E+01,& - 0.1153E+01, 0.1154E+01, 0.1154E+01, 0.1155E+01,& - 0.1156E+01, 0.1157E+01, 0.1157E+01, 0.1158E+01,& - 0.1159E+01, 0.1160E+01, 0.1161E+01, 0.1161E+01,& - 0.1162E+01, 0.1163E+01, 0.1164E+01, 0.1165E+01,& - 0.1166E+01, 0.1166E+01, 0.1167E+01, 0.1168E+01,& - 0.1169E+01, 0.1170E+01, 0.1170E+01, 0.1171E+01,& - 0.1172E+01, 0.1173E+01, 0.1174E+01, 0.1175E+01,& - 0.1176E+01, 0.1176E+01, 0.1177E+01, 0.1178E+01,& - 0.1179E+01, 0.1180E+01, 0.1181E+01, 0.1182E+01,& - 0.1182E+01, 0.1183E+01, 0.1184E+01, 0.1185E+01,& - 0.1186E+01, 0.1187E+01, 0.1188E+01, 0.1189E+01,& - 0.1189E+01, 0.1190E+01, 0.1191E+01, 0.1192E+01,& - 0.1193E+01, 0.1194E+01, 0.1195E+01, 0.1196E+01,& - 0.1197E+01, 0.1198E+01, 0.1199E+01, 0.1199E+01,& - 0.1200E+01, 0.1201E+01, 0.1202E+01, 0.1203E+01,& - 0.1204E+01, 0.1205E+01, 0.1206E+01, 0.1207E+01,& - 0.1208E+01, 0.1209E+01, 0.1210E+01, 0.1211E+01,& - 0.1212E+01, 0.1213E+01, 0.1214E+01, 0.1215E+01,& - 0.1216E+01, 0.1217E+01, 0.1218E+01, 0.1219E+01,& - 0.1220E+01, 0.1221E+01, 0.1222E+01, 0.1223E+01,& - 0.1224E+01, 0.1225E+01, 0.1226E+01, 0.1227E+01,& - 0.1228E+01, 0.1229E+01, 0.1230E+01, 0.1231E+01,& - 0.1232E+01, 0.1233E+01, 0.1234E+01, 0.1235E+01,& - 0.1237E+01, 0.1238E+01, 0.1239E+01, 0.1240E+01,& - 0.1241E+01, 0.1242E+01, 0.1243E+01, 0.1244E+01,& - 0.1246E+01, 0.1247E+01, 0.1248E+01, 0.1249E+01,& - 0.1250E+01, 0.1251E+01, 0.1252E+01, 0.1254E+01,& - 0.1255E+01, 0.1256E+01, 0.1257E+01, 0.1258E+01,& - 0.1260E+01, 0.1261E+01, 0.1262E+01, 0.1263E+01,& - 0.1265E+01, 0.1266E+01, 0.1267E+01, 0.1268E+01,& - 0.1270E+01, 0.1271E+01, 0.1272E+01, 0.1273E+01,& - 0.1275E+01, 0.1276E+01, 0.1277E+01, 0.1279E+01,& - 0.1280E+01, 0.1281E+01, 0.1283E+01, 0.1284E+01,& - 0.1285E+01, 0.1287E+01, 0.1288E+01, 0.1290E+01,& - 0.1291E+01, 0.1292E+01, 0.1294E+01, 0.1295E+01,& - 0.1297E+01, 0.1298E+01, 0.1300E+01, 0.1301E+01,& - 0.1303E+01, 0.1304E+01, 0.1306E+01, 0.1307E+01,& - 0.1309E+01, 0.1311E+01, 0.1312E+01, 0.1314E+01,& - 0.1315E+01, 0.1317E+01, 0.1319E+01, 0.1320E+01,& - 0.1322E+01, 0.1324E+01, 0.1325E+01, 0.1327E+01,& - 0.1329E+01, 0.1331E+01, 0.1332E+01, 0.1334E+01,& - 0.1336E+01, 0.1338E+01, 0.1340E+01, 0.1342E+01,& - 0.1344E+01, 0.1345E+01, 0.1347E+01, 0.1349E+01,& - 0.1351E+01, 0.1353E+01, 0.1355E+01, 0.1358E+01,& - 0.1360E+01, 0.1362E+01, 0.1364E+01, 0.1366E+01,& - 0.1368E+01, 0.1371E+01, 0.1373E+01, 0.1375E+01,& - 0.1377E+01, 0.1380E+01, 0.1382E+01, 0.1385E+01,& - 0.1387E+01, 0.1390E+01, 0.1392E+01, 0.1395E+01,& - 0.1398E+01, 0.1400E+01, 0.1403E+01, 0.1406E+01,& - 0.1409E+01, 0.1412E+01, 0.1415E+01, 0.1418E+01,& - 0.1421E+01, 0.1424E+01, 0.1427E+01, 0.1431E+01,& - 0.1434E+01, 0.1437E+01, 0.1441E+01, 0.1445E+01,& - 0.1449E+01, 0.1452E+01, 0.1456E+01, 0.1460E+01,& - 0.1465E+01, 0.1469E+01, 0.1474E+01, 0.1478E+01,& - 0.1483E+01, 0.1488E+01, 0.1494E+01, 0.1499E+01,& - 0.1505E+01, 0.1511E+01, 0.1517E+01, 0.1524E+01,& - 0.1531E+01, 0.1538E+01, 0.1546E+01, 0.1555E+01,& - 0.1564E+01, 0.1574E+01, 0.1584E+01, 0.1596E+01,& - 0.1610E+01, 0.1625E+01, 0.1643E+01, 0.1664E+01,& - 0.1000E-04, 0.3800E+00, 0.4105E+00, 0.4300E+00/) - xcw(:, 7) = (/& - 0.1000E-04, 0.3800E+00, 0.4105E+00, 0.4300E+00,& - 0.4447E+00, 0.4567E+00, 0.4668E+00, 0.4757E+00,& - 0.4836E+00, 0.4908E+00, 0.4973E+00, 0.5034E+00,& - 0.5090E+00, 0.5143E+00, 0.5192E+00, 0.5239E+00,& - 0.5284E+00, 0.5326E+00, 0.5366E+00, 0.5405E+00,& - 0.5443E+00, 0.5479E+00, 0.5513E+00, 0.5547E+00,& - 0.5579E+00, 0.5610E+00, 0.5641E+00, 0.5670E+00,& - 0.5700E+00, 0.5728E+00, 0.5755E+00, 0.5781E+00,& - 0.5807E+00, 0.5833E+00, 0.5858E+00, 0.5882E+00,& - 0.5906E+00, 0.5929E+00, 0.5952E+00, 0.5974E+00,& - 0.5997E+00, 0.6018E+00, 0.6040E+00, 0.6060E+00,& - 0.6081E+00, 0.6101E+00, 0.6121E+00, 0.6141E+00,& - 0.6160E+00, 0.6179E+00, 0.6198E+00, 0.6216E+00,& - 0.6235E+00, 0.6253E+00, 0.6270E+00, 0.6288E+00,& - 0.6305E+00, 0.6323E+00, 0.6339E+00, 0.6356E+00,& - 0.6372E+00, 0.6389E+00, 0.6405E+00, 0.6421E+00,& - 0.6436E+00, 0.6452E+00, 0.6468E+00, 0.6483E+00,& - 0.6498E+00, 0.6513E+00, 0.6528E+00, 0.6543E+00,& - 0.6557E+00, 0.6572E+00, 0.6586E+00, 0.6600E+00,& - 0.6614E+00, 0.6628E+00, 0.6642E+00, 0.6655E+00,& - 0.6669E+00, 0.6682E+00, 0.6696E+00, 0.6709E+00,& - 0.6722E+00, 0.6735E+00, 0.6748E+00, 0.6761E+00,& - 0.6774E+00, 0.6787E+00, 0.6799E+00, 0.6811E+00,& - 0.6824E+00, 0.6836E+00, 0.6848E+00, 0.6860E+00,& - 0.6873E+00, 0.6884E+00, 0.6896E+00, 0.6908E+00,& - 0.6920E+00, 0.6932E+00, 0.6943E+00, 0.6955E+00,& - 0.6966E+00, 0.6978E+00, 0.6989E+00, 0.7000E+00,& - 0.7011E+00, 0.7023E+00, 0.7033E+00, 0.7044E+00,& - 0.7055E+00, 0.7066E+00, 0.7077E+00, 0.7088E+00,& - 0.7099E+00, 0.7109E+00, 0.7120E+00, 0.7130E+00,& - 0.7141E+00, 0.7151E+00, 0.7162E+00, 0.7172E+00,& - 0.7182E+00, 0.7192E+00, 0.7202E+00, 0.7213E+00,& - 0.7223E+00, 0.7233E+00, 0.7243E+00, 0.7253E+00,& - 0.7263E+00, 0.7273E+00, 0.7282E+00, 0.7292E+00,& - 0.7302E+00, 0.7312E+00, 0.7321E+00, 0.7331E+00,& - 0.7340E+00, 0.7350E+00, 0.7359E+00, 0.7369E+00,& - 0.7378E+00, 0.7388E+00, 0.7397E+00, 0.7406E+00,& - 0.7416E+00, 0.7425E+00, 0.7434E+00, 0.7443E+00,& - 0.7452E+00, 0.7461E+00, 0.7470E+00, 0.7480E+00,& - 0.7489E+00, 0.7498E+00, 0.7506E+00, 0.7515E+00,& - 0.7524E+00, 0.7533E+00, 0.7542E+00, 0.7551E+00,& - 0.7560E+00, 0.7568E+00, 0.7577E+00, 0.7585E+00,& - 0.7594E+00, 0.7603E+00, 0.7611E+00, 0.7620E+00,& - 0.7628E+00, 0.7637E+00, 0.7645E+00, 0.7654E+00,& - 0.7663E+00, 0.7671E+00, 0.7679E+00, 0.7688E+00,& - 0.7696E+00, 0.7704E+00, 0.7712E+00, 0.7721E+00,& - 0.7729E+00, 0.7737E+00, 0.7746E+00, 0.7754E+00,& - 0.7762E+00, 0.7770E+00, 0.7778E+00, 0.7786E+00,& - 0.7794E+00, 0.7802E+00, 0.7810E+00, 0.7818E+00,& - 0.7826E+00, 0.7834E+00, 0.7842E+00, 0.7850E+00,& - 0.7858E+00, 0.7866E+00, 0.7874E+00, 0.7881E+00,& - 0.7889E+00, 0.7897E+00, 0.7905E+00, 0.7913E+00,& - 0.7921E+00, 0.7928E+00, 0.7936E+00, 0.7944E+00,& - 0.7951E+00, 0.7959E+00, 0.7967E+00, 0.7974E+00,& - 0.7982E+00, 0.7990E+00, 0.7997E+00, 0.8005E+00,& - 0.8012E+00, 0.8020E+00, 0.8027E+00, 0.8035E+00,& - 0.8042E+00, 0.8050E+00, 0.8057E+00, 0.8065E+00,& - 0.8072E+00, 0.8080E+00, 0.8087E+00, 0.8095E+00,& - 0.8102E+00, 0.8109E+00, 0.8116E+00, 0.8124E+00,& - 0.8131E+00, 0.8138E+00, 0.8146E+00, 0.8153E+00,& - 0.8160E+00, 0.8168E+00, 0.8175E+00, 0.8182E+00,& - 0.8189E+00, 0.8196E+00, 0.8204E+00, 0.8211E+00,& - 0.8218E+00, 0.8225E+00, 0.8232E+00, 0.8240E+00,& - 0.8247E+00, 0.8254E+00, 0.8261E+00, 0.8268E+00,& - 0.8275E+00, 0.8282E+00, 0.8289E+00, 0.8296E+00,& - 0.8303E+00, 0.8310E+00, 0.8317E+00, 0.8324E+00,& - 0.8331E+00, 0.8338E+00, 0.8345E+00, 0.8352E+00,& - 0.8359E+00, 0.8366E+00, 0.8373E+00, 0.8380E+00,& - 0.8387E+00, 0.8394E+00, 0.8401E+00, 0.8407E+00,& - 0.8414E+00, 0.8421E+00, 0.8428E+00, 0.8435E+00,& - 0.8442E+00, 0.8449E+00, 0.8455E+00, 0.8462E+00,& - 0.8469E+00, 0.8476E+00, 0.8483E+00, 0.8489E+00,& - 0.8496E+00, 0.8503E+00, 0.8510E+00, 0.8516E+00,& - 0.8523E+00, 0.8530E+00, 0.8537E+00, 0.8543E+00,& - 0.8550E+00, 0.8557E+00, 0.8564E+00, 0.8570E+00,& - 0.8577E+00, 0.8584E+00, 0.8590E+00, 0.8597E+00,& - 0.8604E+00, 0.8610E+00, 0.8617E+00, 0.8623E+00,& - 0.8630E+00, 0.8637E+00, 0.8643E+00, 0.8650E+00,& - 0.8657E+00, 0.8663E+00, 0.8670E+00, 0.8676E+00,& - 0.8683E+00, 0.8690E+00, 0.8696E+00, 0.8703E+00,& - 0.8709E+00, 0.8715E+00, 0.8722E+00, 0.8729E+00,& - 0.8735E+00, 0.8742E+00, 0.8748E+00, 0.8755E+00,& - 0.8761E+00, 0.8768E+00, 0.8774E+00, 0.8781E+00,& - 0.8787E+00, 0.8794E+00, 0.8800E+00, 0.8807E+00,& - 0.8813E+00, 0.8820E+00, 0.8826E+00, 0.8833E+00,& - 0.8839E+00, 0.8846E+00, 0.8852E+00, 0.8858E+00,& - 0.8865E+00, 0.8871E+00, 0.8878E+00, 0.8884E+00,& - 0.8890E+00, 0.8897E+00, 0.8903E+00, 0.8910E+00,& - 0.8916E+00, 0.8922E+00, 0.8929E+00, 0.8935E+00,& - 0.8942E+00, 0.8948E+00, 0.8954E+00, 0.8961E+00,& - 0.8967E+00, 0.8973E+00, 0.8980E+00, 0.8986E+00,& - 0.8992E+00, 0.8999E+00, 0.9005E+00, 0.9011E+00,& - 0.9018E+00, 0.9024E+00, 0.9030E+00, 0.9037E+00,& - 0.9043E+00, 0.9049E+00, 0.9056E+00, 0.9062E+00,& - 0.9068E+00, 0.9075E+00, 0.9081E+00, 0.9087E+00,& - 0.9094E+00, 0.9100E+00, 0.9106E+00, 0.9112E+00,& - 0.9119E+00, 0.9125E+00, 0.9131E+00, 0.9137E+00,& - 0.9144E+00, 0.9150E+00, 0.9156E+00, 0.9163E+00,& - 0.9169E+00, 0.9175E+00, 0.9181E+00, 0.9188E+00,& - 0.9194E+00, 0.9200E+00, 0.9206E+00, 0.9213E+00,& - 0.9219E+00, 0.9225E+00, 0.9231E+00, 0.9238E+00,& - 0.9244E+00, 0.9250E+00, 0.9257E+00, 0.9263E+00,& - 0.9269E+00, 0.9275E+00, 0.9281E+00, 0.9287E+00,& - 0.9294E+00, 0.9300E+00, 0.9306E+00, 0.9313E+00,& - 0.9319E+00, 0.9325E+00, 0.9331E+00, 0.9337E+00,& - 0.9344E+00, 0.9350E+00, 0.9356E+00, 0.9362E+00,& - 0.9368E+00, 0.9375E+00, 0.9381E+00, 0.9387E+00,& - 0.9393E+00, 0.9400E+00, 0.9406E+00, 0.9412E+00,& - 0.9418E+00, 0.9424E+00, 0.9430E+00, 0.9437E+00,& - 0.9443E+00, 0.9449E+00, 0.9456E+00, 0.9462E+00,& - 0.9468E+00, 0.9474E+00, 0.9480E+00, 0.9486E+00,& - 0.9493E+00, 0.9499E+00, 0.9505E+00, 0.9512E+00,& - 0.9518E+00, 0.9524E+00, 0.9530E+00, 0.9536E+00,& - 0.9542E+00, 0.9549E+00, 0.9555E+00, 0.9561E+00,& - 0.9567E+00, 0.9574E+00, 0.9580E+00, 0.9586E+00,& - 0.9592E+00, 0.9598E+00, 0.9605E+00, 0.9611E+00,& - 0.9617E+00, 0.9623E+00, 0.9629E+00, 0.9636E+00,& - 0.9642E+00, 0.9648E+00, 0.9654E+00, 0.9661E+00,& - 0.9667E+00, 0.9673E+00, 0.9679E+00, 0.9685E+00,& - 0.9691E+00, 0.9698E+00, 0.9704E+00, 0.9711E+00,& - 0.9717E+00, 0.9723E+00, 0.9729E+00, 0.9735E+00,& - 0.9741E+00, 0.9748E+00, 0.9754E+00, 0.9760E+00,& - 0.9766E+00, 0.9773E+00, 0.9779E+00, 0.9785E+00,& - 0.9792E+00, 0.9798E+00, 0.9804E+00, 0.9810E+00,& - 0.9816E+00, 0.9823E+00, 0.9829E+00, 0.9835E+00,& - 0.9841E+00, 0.9848E+00, 0.9854E+00, 0.9861E+00,& - 0.9867E+00, 0.9873E+00, 0.9879E+00, 0.9886E+00,& - 0.9892E+00, 0.9898E+00, 0.9904E+00, 0.9911E+00,& - 0.9917E+00, 0.9923E+00, 0.9929E+00, 0.9936E+00,& - 0.9942E+00, 0.9948E+00, 0.9955E+00, 0.9961E+00,& - 0.9968E+00, 0.9974E+00, 0.9980E+00, 0.9986E+00,& - 0.9993E+00, 0.9999E+00, 0.1001E+01, 0.1001E+01,& - 0.1002E+01, 0.1002E+01, 0.1003E+01, 0.1004E+01,& - 0.1004E+01, 0.1005E+01, 0.1006E+01, 0.1006E+01,& - 0.1007E+01, 0.1008E+01, 0.1008E+01, 0.1009E+01,& - 0.1009E+01, 0.1010E+01, 0.1011E+01, 0.1011E+01,& - 0.1012E+01, 0.1013E+01, 0.1013E+01, 0.1014E+01,& - 0.1015E+01, 0.1015E+01, 0.1016E+01, 0.1016E+01,& - 0.1017E+01, 0.1018E+01, 0.1018E+01, 0.1019E+01,& - 0.1020E+01, 0.1020E+01, 0.1021E+01, 0.1022E+01,& - 0.1022E+01, 0.1023E+01, 0.1024E+01, 0.1024E+01,& - 0.1025E+01, 0.1025E+01, 0.1026E+01, 0.1027E+01,& - 0.1027E+01, 0.1028E+01, 0.1029E+01, 0.1029E+01,& - 0.1030E+01, 0.1031E+01, 0.1031E+01, 0.1032E+01,& - 0.1033E+01, 0.1033E+01, 0.1034E+01, 0.1035E+01,& - 0.1035E+01, 0.1036E+01, 0.1037E+01, 0.1037E+01,& - 0.1038E+01, 0.1039E+01, 0.1039E+01, 0.1040E+01,& - 0.1041E+01, 0.1041E+01, 0.1042E+01, 0.1043E+01,& - 0.1043E+01, 0.1044E+01, 0.1045E+01, 0.1045E+01,& - 0.1046E+01, 0.1047E+01, 0.1047E+01, 0.1048E+01,& - 0.1049E+01, 0.1049E+01, 0.1050E+01, 0.1051E+01,& - 0.1051E+01, 0.1052E+01, 0.1053E+01, 0.1053E+01,& - 0.1054E+01, 0.1055E+01, 0.1055E+01, 0.1056E+01,& - 0.1057E+01, 0.1057E+01, 0.1058E+01, 0.1059E+01,& - 0.1059E+01, 0.1060E+01, 0.1061E+01, 0.1061E+01,& - 0.1062E+01, 0.1063E+01, 0.1063E+01, 0.1064E+01,& - 0.1065E+01, 0.1065E+01, 0.1066E+01, 0.1067E+01,& - 0.1068E+01, 0.1068E+01, 0.1069E+01, 0.1070E+01,& - 0.1070E+01, 0.1071E+01, 0.1072E+01, 0.1072E+01,& - 0.1073E+01, 0.1074E+01, 0.1074E+01, 0.1075E+01,& - 0.1076E+01, 0.1077E+01, 0.1077E+01, 0.1078E+01,& - 0.1079E+01, 0.1079E+01, 0.1080E+01, 0.1081E+01,& - 0.1082E+01, 0.1082E+01, 0.1083E+01, 0.1084E+01,& - 0.1084E+01, 0.1085E+01, 0.1086E+01, 0.1086E+01,& - 0.1087E+01, 0.1088E+01, 0.1089E+01, 0.1089E+01,& - 0.1090E+01, 0.1091E+01, 0.1091E+01, 0.1092E+01,& - 0.1093E+01, 0.1094E+01, 0.1094E+01, 0.1095E+01,& - 0.1096E+01, 0.1097E+01, 0.1097E+01, 0.1098E+01,& - 0.1099E+01, 0.1099E+01, 0.1100E+01, 0.1101E+01,& - 0.1102E+01, 0.1102E+01, 0.1103E+01, 0.1104E+01,& - 0.1105E+01, 0.1105E+01, 0.1106E+01, 0.1107E+01,& - 0.1108E+01, 0.1108E+01, 0.1109E+01, 0.1110E+01,& - 0.1111E+01, 0.1111E+01, 0.1112E+01, 0.1113E+01,& - 0.1114E+01, 0.1114E+01, 0.1115E+01, 0.1116E+01,& - 0.1117E+01, 0.1117E+01, 0.1118E+01, 0.1119E+01,& - 0.1120E+01, 0.1120E+01, 0.1121E+01, 0.1122E+01,& - 0.1123E+01, 0.1124E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1127E+01, 0.1127E+01, 0.1128E+01,& - 0.1129E+01, 0.1130E+01, 0.1131E+01, 0.1131E+01,& - 0.1132E+01, 0.1133E+01, 0.1134E+01, 0.1135E+01,& - 0.1135E+01, 0.1136E+01, 0.1137E+01, 0.1138E+01,& - 0.1139E+01, 0.1139E+01, 0.1140E+01, 0.1141E+01,& - 0.1142E+01, 0.1143E+01, 0.1143E+01, 0.1144E+01,& - 0.1145E+01, 0.1146E+01, 0.1147E+01, 0.1148E+01,& - 0.1148E+01, 0.1149E+01, 0.1150E+01, 0.1151E+01,& - 0.1152E+01, 0.1153E+01, 0.1153E+01, 0.1154E+01,& - 0.1155E+01, 0.1156E+01, 0.1157E+01, 0.1158E+01,& - 0.1158E+01, 0.1159E+01, 0.1160E+01, 0.1161E+01,& - 0.1162E+01, 0.1163E+01, 0.1164E+01, 0.1164E+01,& - 0.1165E+01, 0.1166E+01, 0.1167E+01, 0.1168E+01,& - 0.1169E+01, 0.1170E+01, 0.1171E+01, 0.1171E+01,& - 0.1172E+01, 0.1173E+01, 0.1174E+01, 0.1175E+01,& - 0.1176E+01, 0.1177E+01, 0.1178E+01, 0.1179E+01,& - 0.1179E+01, 0.1180E+01, 0.1181E+01, 0.1182E+01,& - 0.1183E+01, 0.1184E+01, 0.1185E+01, 0.1186E+01,& - 0.1187E+01, 0.1188E+01, 0.1189E+01, 0.1190E+01,& - 0.1191E+01, 0.1192E+01, 0.1192E+01, 0.1193E+01,& - 0.1194E+01, 0.1195E+01, 0.1196E+01, 0.1197E+01,& - 0.1198E+01, 0.1199E+01, 0.1200E+01, 0.1201E+01,& - 0.1202E+01, 0.1203E+01, 0.1204E+01, 0.1205E+01,& - 0.1206E+01, 0.1207E+01, 0.1208E+01, 0.1209E+01,& - 0.1210E+01, 0.1211E+01, 0.1212E+01, 0.1213E+01,& - 0.1214E+01, 0.1215E+01, 0.1216E+01, 0.1217E+01,& - 0.1218E+01, 0.1219E+01, 0.1220E+01, 0.1221E+01,& - 0.1222E+01, 0.1223E+01, 0.1224E+01, 0.1225E+01,& - 0.1226E+01, 0.1227E+01, 0.1229E+01, 0.1230E+01,& - 0.1231E+01, 0.1232E+01, 0.1233E+01, 0.1234E+01,& - 0.1235E+01, 0.1236E+01, 0.1237E+01, 0.1238E+01,& - 0.1240E+01, 0.1241E+01, 0.1242E+01, 0.1243E+01,& - 0.1244E+01, 0.1245E+01, 0.1246E+01, 0.1247E+01,& - 0.1249E+01, 0.1250E+01, 0.1251E+01, 0.1252E+01,& - 0.1253E+01, 0.1254E+01, 0.1256E+01, 0.1257E+01,& - 0.1258E+01, 0.1259E+01, 0.1260E+01, 0.1262E+01,& - 0.1263E+01, 0.1264E+01, 0.1265E+01, 0.1267E+01,& - 0.1268E+01, 0.1269E+01, 0.1270E+01, 0.1272E+01,& - 0.1273E+01, 0.1274E+01, 0.1275E+01, 0.1277E+01,& - 0.1278E+01, 0.1279E+01, 0.1281E+01, 0.1282E+01,& - 0.1283E+01, 0.1285E+01, 0.1286E+01, 0.1287E+01,& - 0.1289E+01, 0.1290E+01, 0.1291E+01, 0.1293E+01,& - 0.1294E+01, 0.1296E+01, 0.1297E+01, 0.1298E+01,& - 0.1300E+01, 0.1301E+01, 0.1303E+01, 0.1304E+01,& - 0.1306E+01, 0.1307E+01, 0.1309E+01, 0.1310E+01,& - 0.1312E+01, 0.1313E+01, 0.1315E+01, 0.1316E+01,& - 0.1318E+01, 0.1319E+01, 0.1321E+01, 0.1323E+01,& - 0.1324E+01, 0.1326E+01, 0.1327E+01, 0.1329E+01,& - 0.1331E+01, 0.1332E+01, 0.1334E+01, 0.1336E+01,& - 0.1337E+01, 0.1339E+01, 0.1341E+01, 0.1343E+01,& - 0.1344E+01, 0.1346E+01, 0.1348E+01, 0.1350E+01,& - 0.1352E+01, 0.1353E+01, 0.1355E+01, 0.1357E+01,& - 0.1359E+01, 0.1361E+01, 0.1363E+01, 0.1365E+01,& - 0.1367E+01, 0.1369E+01, 0.1371E+01, 0.1373E+01,& - 0.1375E+01, 0.1377E+01, 0.1379E+01, 0.1381E+01,& - 0.1383E+01, 0.1385E+01, 0.1388E+01, 0.1390E+01,& - 0.1392E+01, 0.1394E+01, 0.1397E+01, 0.1399E+01,& - 0.1401E+01, 0.1404E+01, 0.1406E+01, 0.1409E+01,& - 0.1411E+01, 0.1414E+01, 0.1416E+01, 0.1419E+01,& - 0.1421E+01, 0.1424E+01, 0.1427E+01, 0.1430E+01,& - 0.1432E+01, 0.1435E+01, 0.1438E+01, 0.1441E+01,& - 0.1444E+01, 0.1447E+01, 0.1450E+01, 0.1453E+01,& - 0.1457E+01, 0.1460E+01, 0.1463E+01, 0.1467E+01,& - 0.1470E+01, 0.1474E+01, 0.1478E+01, 0.1481E+01,& - 0.1485E+01, 0.1489E+01, 0.1493E+01, 0.1497E+01,& - 0.1502E+01, 0.1506E+01, 0.1511E+01, 0.1515E+01,& - 0.1520E+01, 0.1525E+01, 0.1530E+01, 0.1535E+01,& - 0.1541E+01, 0.1547E+01, 0.1552E+01, 0.1559E+01,& - 0.1565E+01, 0.1572E+01, 0.1579E+01, 0.1587E+01,& - 0.1594E+01, 0.1603E+01, 0.1612E+01, 0.1621E+01,& - 0.1632E+01, 0.1643E+01, 0.1655E+01, 0.1669E+01,& - 0.1684E+01, 0.1701E+01, 0.1721E+01, 0.1746E+01,& - 0.1000E-04, 0.3363E+00, 0.3673E+00, 0.3873E+00/) - xcw(:, 8) = (/& - 0.1000E-04, 0.3363E+00, 0.3673E+00, 0.3873E+00,& - 0.4024E+00, 0.4148E+00, 0.4253E+00, 0.4344E+00,& - 0.4426E+00, 0.4500E+00, 0.4569E+00, 0.4632E+00,& - 0.4690E+00, 0.4745E+00, 0.4797E+00, 0.4846E+00,& - 0.4893E+00, 0.4937E+00, 0.4980E+00, 0.5021E+00,& - 0.5060E+00, 0.5097E+00, 0.5134E+00, 0.5169E+00,& - 0.5203E+00, 0.5236E+00, 0.5269E+00, 0.5300E+00,& - 0.5330E+00, 0.5360E+00, 0.5388E+00, 0.5417E+00,& - 0.5444E+00, 0.5471E+00, 0.5497E+00, 0.5523E+00,& - 0.5548E+00, 0.5573E+00, 0.5597E+00, 0.5621E+00,& - 0.5644E+00, 0.5667E+00, 0.5690E+00, 0.5712E+00,& - 0.5734E+00, 0.5755E+00, 0.5777E+00, 0.5797E+00,& - 0.5818E+00, 0.5838E+00, 0.5858E+00, 0.5877E+00,& - 0.5897E+00, 0.5916E+00, 0.5935E+00, 0.5954E+00,& - 0.5972E+00, 0.5990E+00, 0.6008E+00, 0.6026E+00,& - 0.6044E+00, 0.6061E+00, 0.6078E+00, 0.6095E+00,& - 0.6112E+00, 0.6129E+00, 0.6145E+00, 0.6161E+00,& - 0.6178E+00, 0.6194E+00, 0.6209E+00, 0.6225E+00,& - 0.6241E+00, 0.6256E+00, 0.6271E+00, 0.6287E+00,& - 0.6302E+00, 0.6317E+00, 0.6331E+00, 0.6346E+00,& - 0.6360E+00, 0.6375E+00, 0.6389E+00, 0.6403E+00,& - 0.6417E+00, 0.6431E+00, 0.6445E+00, 0.6459E+00,& - 0.6472E+00, 0.6486E+00, 0.6500E+00, 0.6513E+00,& - 0.6526E+00, 0.6539E+00, 0.6552E+00, 0.6565E+00,& - 0.6578E+00, 0.6591E+00, 0.6604E+00, 0.6616E+00,& - 0.6629E+00, 0.6642E+00, 0.6654E+00, 0.6667E+00,& - 0.6679E+00, 0.6691E+00, 0.6703E+00, 0.6715E+00,& - 0.6727E+00, 0.6739E+00, 0.6751E+00, 0.6763E+00,& - 0.6774E+00, 0.6786E+00, 0.6798E+00, 0.6809E+00,& - 0.6821E+00, 0.6832E+00, 0.6844E+00, 0.6855E+00,& - 0.6866E+00, 0.6877E+00, 0.6889E+00, 0.6900E+00,& - 0.6911E+00, 0.6922E+00, 0.6933E+00, 0.6944E+00,& - 0.6955E+00, 0.6965E+00, 0.6976E+00, 0.6987E+00,& - 0.6998E+00, 0.7008E+00, 0.7019E+00, 0.7029E+00,& - 0.7040E+00, 0.7050E+00, 0.7060E+00, 0.7071E+00,& - 0.7081E+00, 0.7092E+00, 0.7102E+00, 0.7112E+00,& - 0.7122E+00, 0.7132E+00, 0.7142E+00, 0.7152E+00,& - 0.7162E+00, 0.7172E+00, 0.7182E+00, 0.7192E+00,& - 0.7202E+00, 0.7212E+00, 0.7222E+00, 0.7232E+00,& - 0.7241E+00, 0.7251E+00, 0.7260E+00, 0.7270E+00,& - 0.7280E+00, 0.7289E+00, 0.7299E+00, 0.7308E+00,& - 0.7318E+00, 0.7327E+00, 0.7337E+00, 0.7346E+00,& - 0.7355E+00, 0.7364E+00, 0.7374E+00, 0.7383E+00,& - 0.7392E+00, 0.7401E+00, 0.7411E+00, 0.7420E+00,& - 0.7429E+00, 0.7438E+00, 0.7447E+00, 0.7456E+00,& - 0.7465E+00, 0.7474E+00, 0.7483E+00, 0.7492E+00,& - 0.7501E+00, 0.7510E+00, 0.7519E+00, 0.7528E+00,& - 0.7536E+00, 0.7545E+00, 0.7554E+00, 0.7563E+00,& - 0.7572E+00, 0.7580E+00, 0.7589E+00, 0.7598E+00,& - 0.7606E+00, 0.7615E+00, 0.7623E+00, 0.7632E+00,& - 0.7641E+00, 0.7649E+00, 0.7658E+00, 0.7666E+00,& - 0.7675E+00, 0.7683E+00, 0.7692E+00, 0.7700E+00,& - 0.7708E+00, 0.7717E+00, 0.7725E+00, 0.7733E+00,& - 0.7742E+00, 0.7750E+00, 0.7758E+00, 0.7767E+00,& - 0.7775E+00, 0.7783E+00, 0.7792E+00, 0.7800E+00,& - 0.7808E+00, 0.7816E+00, 0.7824E+00, 0.7833E+00,& - 0.7840E+00, 0.7849E+00, 0.7857E+00, 0.7865E+00,& - 0.7873E+00, 0.7881E+00, 0.7889E+00, 0.7897E+00,& - 0.7905E+00, 0.7913E+00, 0.7921E+00, 0.7929E+00,& - 0.7937E+00, 0.7945E+00, 0.7953E+00, 0.7961E+00,& - 0.7969E+00, 0.7977E+00, 0.7984E+00, 0.7992E+00,& - 0.8000E+00, 0.8008E+00, 0.8016E+00, 0.8023E+00,& - 0.8031E+00, 0.8039E+00, 0.8047E+00, 0.8055E+00,& - 0.8062E+00, 0.8070E+00, 0.8078E+00, 0.8085E+00,& - 0.8093E+00, 0.8101E+00, 0.8109E+00, 0.8116E+00,& - 0.8124E+00, 0.8132E+00, 0.8139E+00, 0.8147E+00,& - 0.8154E+00, 0.8162E+00, 0.8170E+00, 0.8177E+00,& - 0.8185E+00, 0.8193E+00, 0.8200E+00, 0.8207E+00,& - 0.8215E+00, 0.8222E+00, 0.8230E+00, 0.8238E+00,& - 0.8245E+00, 0.8252E+00, 0.8260E+00, 0.8268E+00,& - 0.8275E+00, 0.8282E+00, 0.8290E+00, 0.8297E+00,& - 0.8305E+00, 0.8312E+00, 0.8319E+00, 0.8327E+00,& - 0.8334E+00, 0.8341E+00, 0.8349E+00, 0.8356E+00,& - 0.8364E+00, 0.8371E+00, 0.8378E+00, 0.8385E+00,& - 0.8393E+00, 0.8400E+00, 0.8408E+00, 0.8415E+00,& - 0.8422E+00, 0.8429E+00, 0.8437E+00, 0.8444E+00,& - 0.8451E+00, 0.8458E+00, 0.8466E+00, 0.8473E+00,& - 0.8480E+00, 0.8487E+00, 0.8494E+00, 0.8502E+00,& - 0.8509E+00, 0.8516E+00, 0.8523E+00, 0.8531E+00,& - 0.8538E+00, 0.8545E+00, 0.8552E+00, 0.8559E+00,& - 0.8566E+00, 0.8573E+00, 0.8581E+00, 0.8588E+00,& - 0.8595E+00, 0.8602E+00, 0.8609E+00, 0.8616E+00,& - 0.8623E+00, 0.8630E+00, 0.8637E+00, 0.8645E+00,& - 0.8652E+00, 0.8659E+00, 0.8666E+00, 0.8673E+00,& - 0.8680E+00, 0.8687E+00, 0.8694E+00, 0.8701E+00,& - 0.8708E+00, 0.8715E+00, 0.8722E+00, 0.8729E+00,& - 0.8736E+00, 0.8743E+00, 0.8750E+00, 0.8757E+00,& - 0.8764E+00, 0.8771E+00, 0.8778E+00, 0.8785E+00,& - 0.8792E+00, 0.8799E+00, 0.8806E+00, 0.8813E+00,& - 0.8820E+00, 0.8827E+00, 0.8834E+00, 0.8841E+00,& - 0.8848E+00, 0.8855E+00, 0.8862E+00, 0.8869E+00,& - 0.8876E+00, 0.8883E+00, 0.8890E+00, 0.8897E+00,& - 0.8903E+00, 0.8910E+00, 0.8917E+00, 0.8924E+00,& - 0.8931E+00, 0.8938E+00, 0.8945E+00, 0.8952E+00,& - 0.8959E+00, 0.8966E+00, 0.8973E+00, 0.8979E+00,& - 0.8986E+00, 0.8993E+00, 0.9000E+00, 0.9007E+00,& - 0.9014E+00, 0.9021E+00, 0.9027E+00, 0.9034E+00,& - 0.9041E+00, 0.9048E+00, 0.9055E+00, 0.9062E+00,& - 0.9069E+00, 0.9076E+00, 0.9082E+00, 0.9089E+00,& - 0.9096E+00, 0.9103E+00, 0.9110E+00, 0.9117E+00,& - 0.9124E+00, 0.9130E+00, 0.9137E+00, 0.9144E+00,& - 0.9151E+00, 0.9158E+00, 0.9165E+00, 0.9172E+00,& - 0.9178E+00, 0.9185E+00, 0.9192E+00, 0.9199E+00,& - 0.9206E+00, 0.9213E+00, 0.9219E+00, 0.9226E+00,& - 0.9233E+00, 0.9240E+00, 0.9247E+00, 0.9253E+00,& - 0.9260E+00, 0.9267E+00, 0.9274E+00, 0.9281E+00,& - 0.9288E+00, 0.9294E+00, 0.9301E+00, 0.9308E+00,& - 0.9315E+00, 0.9322E+00, 0.9328E+00, 0.9335E+00,& - 0.9342E+00, 0.9349E+00, 0.9356E+00, 0.9362E+00,& - 0.9369E+00, 0.9376E+00, 0.9383E+00, 0.9390E+00,& - 0.9396E+00, 0.9403E+00, 0.9410E+00, 0.9417E+00,& - 0.9424E+00, 0.9430E+00, 0.9437E+00, 0.9444E+00,& - 0.9451E+00, 0.9458E+00, 0.9464E+00, 0.9471E+00,& - 0.9478E+00, 0.9485E+00, 0.9492E+00, 0.9499E+00,& - 0.9506E+00, 0.9512E+00, 0.9519E+00, 0.9526E+00,& - 0.9533E+00, 0.9540E+00, 0.9547E+00, 0.9553E+00,& - 0.9560E+00, 0.9567E+00, 0.9574E+00, 0.9581E+00,& - 0.9588E+00, 0.9594E+00, 0.9601E+00, 0.9608E+00,& - 0.9615E+00, 0.9622E+00, 0.9628E+00, 0.9635E+00,& - 0.9642E+00, 0.9649E+00, 0.9656E+00, 0.9663E+00,& - 0.9670E+00, 0.9676E+00, 0.9683E+00, 0.9690E+00,& - 0.9697E+00, 0.9704E+00, 0.9711E+00, 0.9717E+00,& - 0.9724E+00, 0.9731E+00, 0.9738E+00, 0.9745E+00,& - 0.9752E+00, 0.9759E+00, 0.9766E+00, 0.9772E+00,& - 0.9779E+00, 0.9786E+00, 0.9793E+00, 0.9800E+00,& - 0.9807E+00, 0.9814E+00, 0.9821E+00, 0.9828E+00,& - 0.9834E+00, 0.9841E+00, 0.9848E+00, 0.9855E+00,& - 0.9862E+00, 0.9869E+00, 0.9876E+00, 0.9883E+00,& - 0.9890E+00, 0.9897E+00, 0.9904E+00, 0.9911E+00,& - 0.9917E+00, 0.9924E+00, 0.9931E+00, 0.9938E+00,& - 0.9945E+00, 0.9952E+00, 0.9959E+00, 0.9966E+00,& - 0.9973E+00, 0.9980E+00, 0.9987E+00, 0.9994E+00,& - 0.1000E+01, 0.1001E+01, 0.1001E+01, 0.1002E+01,& - 0.1003E+01, 0.1004E+01, 0.1004E+01, 0.1005E+01,& - 0.1006E+01, 0.1006E+01, 0.1007E+01, 0.1008E+01,& - 0.1008E+01, 0.1009E+01, 0.1010E+01, 0.1011E+01,& - 0.1011E+01, 0.1012E+01, 0.1013E+01, 0.1013E+01,& - 0.1014E+01, 0.1015E+01, 0.1016E+01, 0.1016E+01,& - 0.1017E+01, 0.1018E+01, 0.1018E+01, 0.1019E+01,& - 0.1020E+01, 0.1021E+01, 0.1021E+01, 0.1022E+01,& - 0.1023E+01, 0.1023E+01, 0.1024E+01, 0.1025E+01,& - 0.1025E+01, 0.1026E+01, 0.1027E+01, 0.1028E+01,& - 0.1028E+01, 0.1029E+01, 0.1030E+01, 0.1030E+01,& - 0.1031E+01, 0.1032E+01, 0.1033E+01, 0.1033E+01,& - 0.1034E+01, 0.1035E+01, 0.1036E+01, 0.1036E+01,& - 0.1037E+01, 0.1038E+01, 0.1038E+01, 0.1039E+01,& - 0.1040E+01, 0.1041E+01, 0.1041E+01, 0.1042E+01,& - 0.1043E+01, 0.1044E+01, 0.1044E+01, 0.1045E+01,& - 0.1046E+01, 0.1046E+01, 0.1047E+01, 0.1048E+01,& - 0.1049E+01, 0.1049E+01, 0.1050E+01, 0.1051E+01,& - 0.1052E+01, 0.1052E+01, 0.1053E+01, 0.1054E+01,& - 0.1055E+01, 0.1055E+01, 0.1056E+01, 0.1057E+01,& - 0.1058E+01, 0.1058E+01, 0.1059E+01, 0.1060E+01,& - 0.1061E+01, 0.1061E+01, 0.1062E+01, 0.1063E+01,& - 0.1064E+01, 0.1064E+01, 0.1065E+01, 0.1066E+01,& - 0.1067E+01, 0.1067E+01, 0.1068E+01, 0.1069E+01,& - 0.1070E+01, 0.1070E+01, 0.1071E+01, 0.1072E+01,& - 0.1073E+01, 0.1073E+01, 0.1074E+01, 0.1075E+01,& - 0.1076E+01, 0.1076E+01, 0.1077E+01, 0.1078E+01,& - 0.1079E+01, 0.1079E+01, 0.1080E+01, 0.1081E+01,& - 0.1082E+01, 0.1083E+01, 0.1083E+01, 0.1084E+01,& - 0.1085E+01, 0.1086E+01, 0.1086E+01, 0.1087E+01,& - 0.1088E+01, 0.1089E+01, 0.1090E+01, 0.1090E+01,& - 0.1091E+01, 0.1092E+01, 0.1093E+01, 0.1093E+01,& - 0.1094E+01, 0.1095E+01, 0.1096E+01, 0.1097E+01,& - 0.1097E+01, 0.1098E+01, 0.1099E+01, 0.1100E+01,& - 0.1101E+01, 0.1101E+01, 0.1102E+01, 0.1103E+01,& - 0.1104E+01, 0.1105E+01, 0.1105E+01, 0.1106E+01,& - 0.1107E+01, 0.1108E+01, 0.1109E+01, 0.1109E+01,& - 0.1110E+01, 0.1111E+01, 0.1112E+01, 0.1113E+01,& - 0.1114E+01, 0.1114E+01, 0.1115E+01, 0.1116E+01,& - 0.1117E+01, 0.1118E+01, 0.1118E+01, 0.1119E+01,& - 0.1120E+01, 0.1121E+01, 0.1122E+01, 0.1123E+01,& - 0.1124E+01, 0.1124E+01, 0.1125E+01, 0.1126E+01,& - 0.1127E+01, 0.1128E+01, 0.1129E+01, 0.1129E+01,& - 0.1130E+01, 0.1131E+01, 0.1132E+01, 0.1133E+01,& - 0.1134E+01, 0.1135E+01, 0.1135E+01, 0.1136E+01,& - 0.1137E+01, 0.1138E+01, 0.1139E+01, 0.1140E+01,& - 0.1141E+01, 0.1141E+01, 0.1142E+01, 0.1143E+01,& - 0.1144E+01, 0.1145E+01, 0.1146E+01, 0.1147E+01,& - 0.1148E+01, 0.1148E+01, 0.1149E+01, 0.1150E+01,& - 0.1151E+01, 0.1152E+01, 0.1153E+01, 0.1154E+01,& - 0.1155E+01, 0.1156E+01, 0.1157E+01, 0.1157E+01,& - 0.1158E+01, 0.1159E+01, 0.1160E+01, 0.1161E+01,& - 0.1162E+01, 0.1163E+01, 0.1164E+01, 0.1165E+01,& - 0.1166E+01, 0.1167E+01, 0.1168E+01, 0.1168E+01,& - 0.1169E+01, 0.1170E+01, 0.1171E+01, 0.1172E+01,& - 0.1173E+01, 0.1174E+01, 0.1175E+01, 0.1176E+01,& - 0.1177E+01, 0.1178E+01, 0.1179E+01, 0.1180E+01,& - 0.1181E+01, 0.1182E+01, 0.1183E+01, 0.1184E+01,& - 0.1185E+01, 0.1186E+01, 0.1187E+01, 0.1188E+01,& - 0.1189E+01, 0.1190E+01, 0.1191E+01, 0.1191E+01,& - 0.1192E+01, 0.1193E+01, 0.1194E+01, 0.1195E+01,& - 0.1196E+01, 0.1197E+01, 0.1199E+01, 0.1199E+01,& - 0.1201E+01, 0.1202E+01, 0.1203E+01, 0.1204E+01,& - 0.1205E+01, 0.1206E+01, 0.1207E+01, 0.1208E+01,& - 0.1209E+01, 0.1210E+01, 0.1211E+01, 0.1212E+01,& - 0.1213E+01, 0.1214E+01, 0.1215E+01, 0.1216E+01,& - 0.1217E+01, 0.1218E+01, 0.1219E+01, 0.1220E+01,& - 0.1221E+01, 0.1223E+01, 0.1224E+01, 0.1225E+01,& - 0.1226E+01, 0.1227E+01, 0.1228E+01, 0.1229E+01,& - 0.1230E+01, 0.1231E+01, 0.1233E+01, 0.1234E+01,& - 0.1235E+01, 0.1236E+01, 0.1237E+01, 0.1238E+01,& - 0.1239E+01, 0.1240E+01, 0.1242E+01, 0.1243E+01,& - 0.1244E+01, 0.1245E+01, 0.1246E+01, 0.1247E+01,& - 0.1249E+01, 0.1250E+01, 0.1251E+01, 0.1252E+01,& - 0.1253E+01, 0.1255E+01, 0.1256E+01, 0.1257E+01,& - 0.1258E+01, 0.1259E+01, 0.1261E+01, 0.1262E+01,& - 0.1263E+01, 0.1264E+01, 0.1266E+01, 0.1267E+01,& - 0.1268E+01, 0.1269E+01, 0.1271E+01, 0.1272E+01,& - 0.1273E+01, 0.1275E+01, 0.1276E+01, 0.1277E+01,& - 0.1278E+01, 0.1280E+01, 0.1281E+01, 0.1282E+01,& - 0.1284E+01, 0.1285E+01, 0.1286E+01, 0.1288E+01,& - 0.1289E+01, 0.1290E+01, 0.1292E+01, 0.1293E+01,& - 0.1295E+01, 0.1296E+01, 0.1297E+01, 0.1299E+01,& - 0.1300E+01, 0.1302E+01, 0.1303E+01, 0.1305E+01,& - 0.1306E+01, 0.1307E+01, 0.1309E+01, 0.1310E+01,& - 0.1312E+01, 0.1313E+01, 0.1315E+01, 0.1316E+01,& - 0.1318E+01, 0.1319E+01, 0.1321E+01, 0.1322E+01,& - 0.1324E+01, 0.1326E+01, 0.1327E+01, 0.1329E+01,& - 0.1330E+01, 0.1332E+01, 0.1334E+01, 0.1335E+01,& - 0.1337E+01, 0.1338E+01, 0.1340E+01, 0.1342E+01,& - 0.1343E+01, 0.1345E+01, 0.1347E+01, 0.1349E+01,& - 0.1350E+01, 0.1352E+01, 0.1354E+01, 0.1356E+01,& - 0.1357E+01, 0.1359E+01, 0.1361E+01, 0.1363E+01,& - 0.1365E+01, 0.1366E+01, 0.1368E+01, 0.1370E+01,& - 0.1372E+01, 0.1374E+01, 0.1376E+01, 0.1378E+01,& - 0.1380E+01, 0.1382E+01, 0.1384E+01, 0.1386E+01,& - 0.1388E+01, 0.1390E+01, 0.1392E+01, 0.1394E+01,& - 0.1396E+01, 0.1398E+01, 0.1400E+01, 0.1403E+01,& - 0.1405E+01, 0.1407E+01, 0.1409E+01, 0.1412E+01,& - 0.1414E+01, 0.1416E+01, 0.1418E+01, 0.1421E+01,& - 0.1423E+01, 0.1426E+01, 0.1428E+01, 0.1431E+01,& - 0.1433E+01, 0.1436E+01, 0.1438E+01, 0.1441E+01,& - 0.1443E+01, 0.1446E+01, 0.1449E+01, 0.1452E+01,& - 0.1454E+01, 0.1457E+01, 0.1460E+01, 0.1463E+01,& - 0.1466E+01, 0.1469E+01, 0.1472E+01, 0.1475E+01,& - 0.1478E+01, 0.1481E+01, 0.1484E+01, 0.1488E+01,& - 0.1491E+01, 0.1495E+01, 0.1498E+01, 0.1502E+01,& - 0.1505E+01, 0.1509E+01, 0.1513E+01, 0.1517E+01,& - 0.1520E+01, 0.1524E+01, 0.1529E+01, 0.1533E+01,& - 0.1537E+01, 0.1541E+01, 0.1546E+01, 0.1551E+01,& - 0.1555E+01, 0.1560E+01, 0.1565E+01, 0.1571E+01,& - 0.1576E+01, 0.1581E+01, 0.1587E+01, 0.1593E+01,& - 0.1599E+01, 0.1606E+01, 0.1612E+01, 0.1619E+01,& - 0.1626E+01, 0.1634E+01, 0.1642E+01, 0.1650E+01,& - 0.1659E+01, 0.1669E+01, 0.1679E+01, 0.1689E+01,& - 0.1701E+01, 0.1713E+01, 0.1727E+01, 0.1742E+01,& - 0.1759E+01, 0.1779E+01, 0.1801E+01, 0.1828E+01,& - 0.1000E-04, 0.2961E+00, 0.3271E+00, 0.3473E+00/) - xcw(:, 9) = (/& - 0.1000E-04, 0.2961E+00, 0.3271E+00, 0.3473E+00,& - 0.3627E+00, 0.3752E+00, 0.3860E+00, 0.3954E+00,& - 0.4038E+00, 0.4114E+00, 0.4184E+00, 0.4249E+00,& - 0.4309E+00, 0.4366E+00, 0.4420E+00, 0.4470E+00,& - 0.4519E+00, 0.4565E+00, 0.4609E+00, 0.4651E+00,& - 0.4692E+00, 0.4731E+00, 0.4769E+00, 0.4806E+00,& - 0.4841E+00, 0.4876E+00, 0.4909E+00, 0.4941E+00,& - 0.4973E+00, 0.5004E+00, 0.5034E+00, 0.5064E+00,& - 0.5092E+00, 0.5121E+00, 0.5148E+00, 0.5175E+00,& - 0.5201E+00, 0.5228E+00, 0.5253E+00, 0.5278E+00,& - 0.5302E+00, 0.5327E+00, 0.5350E+00, 0.5373E+00,& - 0.5396E+00, 0.5419E+00, 0.5441E+00, 0.5463E+00,& - 0.5485E+00, 0.5506E+00, 0.5527E+00, 0.5547E+00,& - 0.5568E+00, 0.5588E+00, 0.5608E+00, 0.5628E+00,& - 0.5647E+00, 0.5666E+00, 0.5685E+00, 0.5704E+00,& - 0.5722E+00, 0.5741E+00, 0.5759E+00, 0.5777E+00,& - 0.5795E+00, 0.5812E+00, 0.5830E+00, 0.5847E+00,& - 0.5864E+00, 0.5881E+00, 0.5898E+00, 0.5914E+00,& - 0.5931E+00, 0.5947E+00, 0.5963E+00, 0.5979E+00,& - 0.5995E+00, 0.6011E+00, 0.6026E+00, 0.6042E+00,& - 0.6057E+00, 0.6072E+00, 0.6087E+00, 0.6103E+00,& - 0.6117E+00, 0.6132E+00, 0.6147E+00, 0.6161E+00,& - 0.6176E+00, 0.6191E+00, 0.6205E+00, 0.6219E+00,& - 0.6233E+00, 0.6247E+00, 0.6261E+00, 0.6275E+00,& - 0.6288E+00, 0.6302E+00, 0.6316E+00, 0.6329E+00,& - 0.6342E+00, 0.6356E+00, 0.6369E+00, 0.6382E+00,& - 0.6395E+00, 0.6408E+00, 0.6421E+00, 0.6434E+00,& - 0.6447E+00, 0.6459E+00, 0.6472E+00, 0.6485E+00,& - 0.6497E+00, 0.6509E+00, 0.6522E+00, 0.6534E+00,& - 0.6546E+00, 0.6559E+00, 0.6571E+00, 0.6583E+00,& - 0.6595E+00, 0.6607E+00, 0.6619E+00, 0.6630E+00,& - 0.6643E+00, 0.6654E+00, 0.6666E+00, 0.6677E+00,& - 0.6689E+00, 0.6700E+00, 0.6712E+00, 0.6723E+00,& - 0.6735E+00, 0.6746E+00, 0.6757E+00, 0.6769E+00,& - 0.6780E+00, 0.6791E+00, 0.6802E+00, 0.6813E+00,& - 0.6824E+00, 0.6835E+00, 0.6846E+00, 0.6857E+00,& - 0.6868E+00, 0.6879E+00, 0.6890E+00, 0.6900E+00,& - 0.6911E+00, 0.6922E+00, 0.6932E+00, 0.6943E+00,& - 0.6953E+00, 0.6964E+00, 0.6974E+00, 0.6985E+00,& - 0.6995E+00, 0.7005E+00, 0.7015E+00, 0.7026E+00,& - 0.7036E+00, 0.7046E+00, 0.7057E+00, 0.7067E+00,& - 0.7077E+00, 0.7087E+00, 0.7097E+00, 0.7107E+00,& - 0.7117E+00, 0.7127E+00, 0.7137E+00, 0.7147E+00,& - 0.7157E+00, 0.7167E+00, 0.7176E+00, 0.7186E+00,& - 0.7196E+00, 0.7206E+00, 0.7215E+00, 0.7225E+00,& - 0.7235E+00, 0.7245E+00, 0.7254E+00, 0.7264E+00,& - 0.7273E+00, 0.7283E+00, 0.7292E+00, 0.7302E+00,& - 0.7312E+00, 0.7321E+00, 0.7330E+00, 0.7339E+00,& - 0.7349E+00, 0.7358E+00, 0.7368E+00, 0.7377E+00,& - 0.7386E+00, 0.7396E+00, 0.7405E+00, 0.7414E+00,& - 0.7423E+00, 0.7432E+00, 0.7441E+00, 0.7450E+00,& - 0.7460E+00, 0.7469E+00, 0.7478E+00, 0.7487E+00,& - 0.7496E+00, 0.7505E+00, 0.7514E+00, 0.7523E+00,& - 0.7532E+00, 0.7541E+00, 0.7550E+00, 0.7559E+00,& - 0.7568E+00, 0.7576E+00, 0.7585E+00, 0.7594E+00,& - 0.7603E+00, 0.7612E+00, 0.7620E+00, 0.7629E+00,& - 0.7638E+00, 0.7647E+00, 0.7655E+00, 0.7664E+00,& - 0.7673E+00, 0.7682E+00, 0.7690E+00, 0.7699E+00,& - 0.7707E+00, 0.7716E+00, 0.7725E+00, 0.7733E+00,& - 0.7742E+00, 0.7750E+00, 0.7759E+00, 0.7767E+00,& - 0.7776E+00, 0.7784E+00, 0.7793E+00, 0.7801E+00,& - 0.7810E+00, 0.7818E+00, 0.7827E+00, 0.7835E+00,& - 0.7843E+00, 0.7852E+00, 0.7860E+00, 0.7869E+00,& - 0.7877E+00, 0.7885E+00, 0.7894E+00, 0.7902E+00,& - 0.7910E+00, 0.7919E+00, 0.7927E+00, 0.7935E+00,& - 0.7943E+00, 0.7951E+00, 0.7960E+00, 0.7968E+00,& - 0.7976E+00, 0.7984E+00, 0.7993E+00, 0.8001E+00,& - 0.8009E+00, 0.8017E+00, 0.8025E+00, 0.8033E+00,& - 0.8041E+00, 0.8050E+00, 0.8057E+00, 0.8066E+00,& - 0.8074E+00, 0.8082E+00, 0.8090E+00, 0.8098E+00,& - 0.8106E+00, 0.8114E+00, 0.8122E+00, 0.8130E+00,& - 0.8138E+00, 0.8146E+00, 0.8154E+00, 0.8162E+00,& - 0.8170E+00, 0.8178E+00, 0.8186E+00, 0.8194E+00,& - 0.8202E+00, 0.8210E+00, 0.8218E+00, 0.8225E+00,& - 0.8233E+00, 0.8241E+00, 0.8249E+00, 0.8257E+00,& - 0.8265E+00, 0.8273E+00, 0.8281E+00, 0.8289E+00,& - 0.8297E+00, 0.8304E+00, 0.8312E+00, 0.8320E+00,& - 0.8328E+00, 0.8336E+00, 0.8343E+00, 0.8351E+00,& - 0.8359E+00, 0.8366E+00, 0.8374E+00, 0.8382E+00,& - 0.8390E+00, 0.8398E+00, 0.8406E+00, 0.8413E+00,& - 0.8421E+00, 0.8429E+00, 0.8436E+00, 0.8444E+00,& - 0.8452E+00, 0.8460E+00, 0.8467E+00, 0.8475E+00,& - 0.8482E+00, 0.8490E+00, 0.8498E+00, 0.8506E+00,& - 0.8513E+00, 0.8521E+00, 0.8529E+00, 0.8536E+00,& - 0.8544E+00, 0.8551E+00, 0.8559E+00, 0.8567E+00,& - 0.8574E+00, 0.8582E+00, 0.8590E+00, 0.8597E+00,& - 0.8605E+00, 0.8612E+00, 0.8620E+00, 0.8628E+00,& - 0.8635E+00, 0.8643E+00, 0.8650E+00, 0.8658E+00,& - 0.8665E+00, 0.8673E+00, 0.8680E+00, 0.8688E+00,& - 0.8696E+00, 0.8703E+00, 0.8711E+00, 0.8718E+00,& - 0.8726E+00, 0.8733E+00, 0.8741E+00, 0.8749E+00,& - 0.8756E+00, 0.8764E+00, 0.8771E+00, 0.8778E+00,& - 0.8786E+00, 0.8793E+00, 0.8801E+00, 0.8808E+00,& - 0.8816E+00, 0.8823E+00, 0.8831E+00, 0.8838E+00,& - 0.8846E+00, 0.8853E+00, 0.8861E+00, 0.8868E+00,& - 0.8876E+00, 0.8883E+00, 0.8891E+00, 0.8898E+00,& - 0.8906E+00, 0.8913E+00, 0.8921E+00, 0.8928E+00,& - 0.8936E+00, 0.8943E+00, 0.8951E+00, 0.8958E+00,& - 0.8966E+00, 0.8973E+00, 0.8980E+00, 0.8988E+00,& - 0.8995E+00, 0.9003E+00, 0.9010E+00, 0.9018E+00,& - 0.9025E+00, 0.9033E+00, 0.9040E+00, 0.9047E+00,& - 0.9055E+00, 0.9062E+00, 0.9070E+00, 0.9077E+00,& - 0.9085E+00, 0.9092E+00, 0.9099E+00, 0.9107E+00,& - 0.9114E+00, 0.9122E+00, 0.9129E+00, 0.9137E+00,& - 0.9144E+00, 0.9151E+00, 0.9159E+00, 0.9166E+00,& - 0.9174E+00, 0.9181E+00, 0.9188E+00, 0.9196E+00,& - 0.9203E+00, 0.9211E+00, 0.9218E+00, 0.9225E+00,& - 0.9233E+00, 0.9240E+00, 0.9248E+00, 0.9255E+00,& - 0.9262E+00, 0.9270E+00, 0.9277E+00, 0.9285E+00,& - 0.9292E+00, 0.9299E+00, 0.9307E+00, 0.9314E+00,& - 0.9322E+00, 0.9329E+00, 0.9337E+00, 0.9344E+00,& - 0.9351E+00, 0.9359E+00, 0.9366E+00, 0.9374E+00,& - 0.9381E+00, 0.9388E+00, 0.9396E+00, 0.9403E+00,& - 0.9411E+00, 0.9418E+00, 0.9425E+00, 0.9433E+00,& - 0.9440E+00, 0.9448E+00, 0.9455E+00, 0.9462E+00,& - 0.9470E+00, 0.9477E+00, 0.9485E+00, 0.9492E+00,& - 0.9499E+00, 0.9507E+00, 0.9514E+00, 0.9522E+00,& - 0.9529E+00, 0.9537E+00, 0.9544E+00, 0.9551E+00,& - 0.9559E+00, 0.9566E+00, 0.9574E+00, 0.9581E+00,& - 0.9589E+00, 0.9596E+00, 0.9604E+00, 0.9611E+00,& - 0.9619E+00, 0.9626E+00, 0.9634E+00, 0.9641E+00,& - 0.9648E+00, 0.9656E+00, 0.9663E+00, 0.9671E+00,& - 0.9678E+00, 0.9686E+00, 0.9693E+00, 0.9701E+00,& - 0.9708E+00, 0.9716E+00, 0.9723E+00, 0.9731E+00,& - 0.9738E+00, 0.9746E+00, 0.9754E+00, 0.9761E+00,& - 0.9769E+00, 0.9776E+00, 0.9783E+00, 0.9791E+00,& - 0.9798E+00, 0.9806E+00, 0.9813E+00, 0.9821E+00,& - 0.9828E+00, 0.9836E+00, 0.9844E+00, 0.9851E+00,& - 0.9859E+00, 0.9866E+00, 0.9874E+00, 0.9881E+00,& - 0.9889E+00, 0.9897E+00, 0.9904E+00, 0.9912E+00,& - 0.9919E+00, 0.9927E+00, 0.9934E+00, 0.9942E+00,& - 0.9950E+00, 0.9957E+00, 0.9965E+00, 0.9972E+00,& - 0.9980E+00, 0.9988E+00, 0.9995E+00, 0.1000E+01,& - 0.1001E+01, 0.1002E+01, 0.1003E+01, 0.1003E+01,& - 0.1004E+01, 0.1005E+01, 0.1006E+01, 0.1006E+01,& - 0.1007E+01, 0.1008E+01, 0.1009E+01, 0.1009E+01,& - 0.1010E+01, 0.1011E+01, 0.1012E+01, 0.1013E+01,& - 0.1013E+01, 0.1014E+01, 0.1015E+01, 0.1016E+01,& - 0.1016E+01, 0.1017E+01, 0.1018E+01, 0.1019E+01,& - 0.1020E+01, 0.1020E+01, 0.1021E+01, 0.1022E+01,& - 0.1023E+01, 0.1023E+01, 0.1024E+01, 0.1025E+01,& - 0.1026E+01, 0.1026E+01, 0.1027E+01, 0.1028E+01,& - 0.1029E+01, 0.1030E+01, 0.1030E+01, 0.1031E+01,& - 0.1032E+01, 0.1033E+01, 0.1034E+01, 0.1034E+01,& - 0.1035E+01, 0.1036E+01, 0.1037E+01, 0.1038E+01,& - 0.1038E+01, 0.1039E+01, 0.1040E+01, 0.1041E+01,& - 0.1041E+01, 0.1042E+01, 0.1043E+01, 0.1044E+01,& - 0.1045E+01, 0.1045E+01, 0.1046E+01, 0.1047E+01,& - 0.1048E+01, 0.1049E+01, 0.1049E+01, 0.1050E+01,& - 0.1051E+01, 0.1052E+01, 0.1053E+01, 0.1053E+01,& - 0.1054E+01, 0.1055E+01, 0.1056E+01, 0.1057E+01,& - 0.1058E+01, 0.1058E+01, 0.1059E+01, 0.1060E+01,& - 0.1061E+01, 0.1062E+01, 0.1062E+01, 0.1063E+01,& - 0.1064E+01, 0.1065E+01, 0.1066E+01, 0.1066E+01,& - 0.1067E+01, 0.1068E+01, 0.1069E+01, 0.1070E+01,& - 0.1071E+01, 0.1071E+01, 0.1072E+01, 0.1073E+01,& - 0.1074E+01, 0.1075E+01, 0.1076E+01, 0.1076E+01,& - 0.1077E+01, 0.1078E+01, 0.1079E+01, 0.1080E+01,& - 0.1081E+01, 0.1081E+01, 0.1082E+01, 0.1083E+01,& - 0.1084E+01, 0.1085E+01, 0.1086E+01, 0.1086E+01,& - 0.1087E+01, 0.1088E+01, 0.1089E+01, 0.1090E+01,& - 0.1091E+01, 0.1092E+01, 0.1092E+01, 0.1093E+01,& - 0.1094E+01, 0.1095E+01, 0.1096E+01, 0.1097E+01,& - 0.1098E+01, 0.1098E+01, 0.1099E+01, 0.1100E+01,& - 0.1101E+01, 0.1102E+01, 0.1103E+01, 0.1104E+01,& - 0.1104E+01, 0.1105E+01, 0.1106E+01, 0.1107E+01,& - 0.1108E+01, 0.1109E+01, 0.1110E+01, 0.1111E+01,& - 0.1111E+01, 0.1112E+01, 0.1113E+01, 0.1114E+01,& - 0.1115E+01, 0.1116E+01, 0.1117E+01, 0.1118E+01,& - 0.1119E+01, 0.1119E+01, 0.1120E+01, 0.1121E+01,& - 0.1122E+01, 0.1123E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1127E+01, 0.1128E+01, 0.1128E+01,& - 0.1129E+01, 0.1130E+01, 0.1131E+01, 0.1132E+01,& - 0.1133E+01, 0.1134E+01, 0.1135E+01, 0.1136E+01,& - 0.1137E+01, 0.1138E+01, 0.1139E+01, 0.1140E+01,& - 0.1140E+01, 0.1141E+01, 0.1142E+01, 0.1143E+01,& - 0.1144E+01, 0.1145E+01, 0.1146E+01, 0.1147E+01,& - 0.1148E+01, 0.1149E+01, 0.1150E+01, 0.1151E+01,& - 0.1152E+01, 0.1153E+01, 0.1154E+01, 0.1155E+01,& - 0.1156E+01, 0.1157E+01, 0.1158E+01, 0.1159E+01,& - 0.1160E+01, 0.1160E+01, 0.1161E+01, 0.1162E+01,& - 0.1163E+01, 0.1164E+01, 0.1165E+01, 0.1166E+01,& - 0.1167E+01, 0.1168E+01, 0.1169E+01, 0.1170E+01,& - 0.1171E+01, 0.1172E+01, 0.1173E+01, 0.1174E+01,& - 0.1175E+01, 0.1176E+01, 0.1177E+01, 0.1178E+01,& - 0.1179E+01, 0.1180E+01, 0.1181E+01, 0.1182E+01,& - 0.1183E+01, 0.1184E+01, 0.1186E+01, 0.1187E+01,& - 0.1188E+01, 0.1189E+01, 0.1190E+01, 0.1191E+01,& - 0.1192E+01, 0.1193E+01, 0.1194E+01, 0.1195E+01,& - 0.1196E+01, 0.1197E+01, 0.1198E+01, 0.1199E+01,& - 0.1200E+01, 0.1201E+01, 0.1202E+01, 0.1203E+01,& - 0.1205E+01, 0.1206E+01, 0.1207E+01, 0.1208E+01,& - 0.1209E+01, 0.1210E+01, 0.1211E+01, 0.1212E+01,& - 0.1213E+01, 0.1214E+01, 0.1215E+01, 0.1217E+01,& - 0.1218E+01, 0.1219E+01, 0.1220E+01, 0.1221E+01,& - 0.1222E+01, 0.1223E+01, 0.1224E+01, 0.1226E+01,& - 0.1227E+01, 0.1228E+01, 0.1229E+01, 0.1230E+01,& - 0.1231E+01, 0.1233E+01, 0.1234E+01, 0.1235E+01,& - 0.1236E+01, 0.1237E+01, 0.1238E+01, 0.1240E+01,& - 0.1241E+01, 0.1242E+01, 0.1243E+01, 0.1244E+01,& - 0.1246E+01, 0.1247E+01, 0.1248E+01, 0.1249E+01,& - 0.1250E+01, 0.1252E+01, 0.1253E+01, 0.1254E+01,& - 0.1255E+01, 0.1257E+01, 0.1258E+01, 0.1259E+01,& - 0.1260E+01, 0.1262E+01, 0.1263E+01, 0.1264E+01,& - 0.1266E+01, 0.1267E+01, 0.1268E+01, 0.1269E+01,& - 0.1271E+01, 0.1272E+01, 0.1273E+01, 0.1275E+01,& - 0.1276E+01, 0.1277E+01, 0.1279E+01, 0.1280E+01,& - 0.1281E+01, 0.1283E+01, 0.1284E+01, 0.1285E+01,& - 0.1287E+01, 0.1288E+01, 0.1289E+01, 0.1291E+01,& - 0.1292E+01, 0.1294E+01, 0.1295E+01, 0.1296E+01,& - 0.1298E+01, 0.1299E+01, 0.1301E+01, 0.1302E+01,& - 0.1304E+01, 0.1305E+01, 0.1306E+01, 0.1308E+01,& - 0.1309E+01, 0.1311E+01, 0.1312E+01, 0.1314E+01,& - 0.1315E+01, 0.1317E+01, 0.1318E+01, 0.1320E+01,& - 0.1321E+01, 0.1323E+01, 0.1324E+01, 0.1326E+01,& - 0.1328E+01, 0.1329E+01, 0.1331E+01, 0.1332E+01,& - 0.1334E+01, 0.1336E+01, 0.1337E+01, 0.1339E+01,& - 0.1340E+01, 0.1342E+01, 0.1344E+01, 0.1345E+01,& - 0.1347E+01, 0.1349E+01, 0.1350E+01, 0.1352E+01,& - 0.1354E+01, 0.1356E+01, 0.1357E+01, 0.1359E+01,& - 0.1361E+01, 0.1363E+01, 0.1364E+01, 0.1366E+01,& - 0.1368E+01, 0.1370E+01, 0.1372E+01, 0.1373E+01,& - 0.1375E+01, 0.1377E+01, 0.1379E+01, 0.1381E+01,& - 0.1383E+01, 0.1385E+01, 0.1387E+01, 0.1389E+01,& - 0.1391E+01, 0.1393E+01, 0.1395E+01, 0.1397E+01,& - 0.1399E+01, 0.1401E+01, 0.1403E+01, 0.1405E+01,& - 0.1407E+01, 0.1409E+01, 0.1411E+01, 0.1413E+01,& - 0.1415E+01, 0.1418E+01, 0.1420E+01, 0.1422E+01,& - 0.1424E+01, 0.1427E+01, 0.1429E+01, 0.1431E+01,& - 0.1433E+01, 0.1436E+01, 0.1438E+01, 0.1441E+01,& - 0.1443E+01, 0.1446E+01, 0.1448E+01, 0.1450E+01,& - 0.1453E+01, 0.1456E+01, 0.1458E+01, 0.1461E+01,& - 0.1463E+01, 0.1466E+01, 0.1469E+01, 0.1472E+01,& - 0.1474E+01, 0.1477E+01, 0.1480E+01, 0.1483E+01,& - 0.1486E+01, 0.1489E+01, 0.1492E+01, 0.1495E+01,& - 0.1498E+01, 0.1501E+01, 0.1504E+01, 0.1507E+01,& - 0.1511E+01, 0.1514E+01, 0.1517E+01, 0.1521E+01,& - 0.1524E+01, 0.1528E+01, 0.1531E+01, 0.1535E+01,& - 0.1539E+01, 0.1542E+01, 0.1546E+01, 0.1550E+01,& - 0.1554E+01, 0.1558E+01, 0.1562E+01, 0.1567E+01,& - 0.1571E+01, 0.1576E+01, 0.1580E+01, 0.1585E+01,& - 0.1589E+01, 0.1594E+01, 0.1599E+01, 0.1605E+01,& - 0.1610E+01, 0.1615E+01, 0.1621E+01, 0.1627E+01,& - 0.1632E+01, 0.1639E+01, 0.1645E+01, 0.1651E+01,& - 0.1658E+01, 0.1665E+01, 0.1673E+01, 0.1680E+01,& - 0.1688E+01, 0.1697E+01, 0.1706E+01, 0.1715E+01,& - 0.1725E+01, 0.1735E+01, 0.1746E+01, 0.1758E+01,& - 0.1771E+01, 0.1785E+01, 0.1800E+01, 0.1817E+01,& - 0.1836E+01, 0.1857E+01, 0.1882E+01, 0.1912E+01,& - 0.1000E-04, 0.2592E+00, 0.2899E+00, 0.3101E+00/) - xcw(:, 10) = (/& - 0.1000E-04, 0.2592E+00, 0.2899E+00, 0.3101E+00,& - 0.3255E+00, 0.3381E+00, 0.3490E+00, 0.3585E+00,& - 0.3670E+00, 0.3748E+00, 0.3819E+00, 0.3885E+00,& - 0.3947E+00, 0.4005E+00, 0.4060E+00, 0.4112E+00,& - 0.4161E+00, 0.4208E+00, 0.4254E+00, 0.4297E+00,& - 0.4339E+00, 0.4380E+00, 0.4419E+00, 0.4456E+00,& - 0.4493E+00, 0.4529E+00, 0.4563E+00, 0.4597E+00,& - 0.4630E+00, 0.4661E+00, 0.4693E+00, 0.4723E+00,& - 0.4753E+00, 0.4782E+00, 0.4811E+00, 0.4839E+00,& - 0.4866E+00, 0.4893E+00, 0.4920E+00, 0.4945E+00,& - 0.4971E+00, 0.4996E+00, 0.5020E+00, 0.5045E+00,& - 0.5068E+00, 0.5092E+00, 0.5115E+00, 0.5138E+00,& - 0.5160E+00, 0.5183E+00, 0.5205E+00, 0.5226E+00,& - 0.5247E+00, 0.5268E+00, 0.5289E+00, 0.5310E+00,& - 0.5330E+00, 0.5350E+00, 0.5370E+00, 0.5390E+00,& - 0.5409E+00, 0.5428E+00, 0.5447E+00, 0.5466E+00,& - 0.5485E+00, 0.5503E+00, 0.5521E+00, 0.5539E+00,& - 0.5557E+00, 0.5575E+00, 0.5592E+00, 0.5610E+00,& - 0.5627E+00, 0.5644E+00, 0.5661E+00, 0.5678E+00,& - 0.5695E+00, 0.5711E+00, 0.5728E+00, 0.5744E+00,& - 0.5760E+00, 0.5776E+00, 0.5792E+00, 0.5808E+00,& - 0.5823E+00, 0.5839E+00, 0.5854E+00, 0.5870E+00,& - 0.5885E+00, 0.5900E+00, 0.5915E+00, 0.5930E+00,& - 0.5945E+00, 0.5960E+00, 0.5974E+00, 0.5989E+00,& - 0.6003E+00, 0.6017E+00, 0.6032E+00, 0.6046E+00,& - 0.6060E+00, 0.6074E+00, 0.6088E+00, 0.6102E+00,& - 0.6116E+00, 0.6129E+00, 0.6143E+00, 0.6157E+00,& - 0.6170E+00, 0.6183E+00, 0.6197E+00, 0.6210E+00,& - 0.6223E+00, 0.6236E+00, 0.6249E+00, 0.6262E+00,& - 0.6275E+00, 0.6288E+00, 0.6301E+00, 0.6314E+00,& - 0.6327E+00, 0.6339E+00, 0.6352E+00, 0.6364E+00,& - 0.6377E+00, 0.6389E+00, 0.6402E+00, 0.6414E+00,& - 0.6426E+00, 0.6438E+00, 0.6450E+00, 0.6462E+00,& - 0.6475E+00, 0.6486E+00, 0.6498E+00, 0.6510E+00,& - 0.6522E+00, 0.6534E+00, 0.6546E+00, 0.6557E+00,& - 0.6569E+00, 0.6581E+00, 0.6592E+00, 0.6604E+00,& - 0.6615E+00, 0.6627E+00, 0.6638E+00, 0.6650E+00,& - 0.6661E+00, 0.6672E+00, 0.6683E+00, 0.6695E+00,& - 0.6706E+00, 0.6717E+00, 0.6728E+00, 0.6739E+00,& - 0.6750E+00, 0.6761E+00, 0.6772E+00, 0.6783E+00,& - 0.6794E+00, 0.6805E+00, 0.6816E+00, 0.6826E+00,& - 0.6837E+00, 0.6848E+00, 0.6859E+00, 0.6869E+00,& - 0.6880E+00, 0.6890E+00, 0.6901E+00, 0.6912E+00,& - 0.6922E+00, 0.6933E+00, 0.6943E+00, 0.6954E+00,& - 0.6964E+00, 0.6974E+00, 0.6984E+00, 0.6995E+00,& - 0.7005E+00, 0.7015E+00, 0.7026E+00, 0.7036E+00,& - 0.7046E+00, 0.7056E+00, 0.7066E+00, 0.7076E+00,& - 0.7087E+00, 0.7097E+00, 0.7107E+00, 0.7116E+00,& - 0.7127E+00, 0.7137E+00, 0.7146E+00, 0.7157E+00,& - 0.7166E+00, 0.7176E+00, 0.7186E+00, 0.7196E+00,& - 0.7205E+00, 0.7215E+00, 0.7225E+00, 0.7235E+00,& - 0.7245E+00, 0.7254E+00, 0.7264E+00, 0.7273E+00,& - 0.7283E+00, 0.7293E+00, 0.7302E+00, 0.7312E+00,& - 0.7321E+00, 0.7331E+00, 0.7340E+00, 0.7350E+00,& - 0.7359E+00, 0.7369E+00, 0.7378E+00, 0.7388E+00,& - 0.7397E+00, 0.7407E+00, 0.7416E+00, 0.7426E+00,& - 0.7435E+00, 0.7444E+00, 0.7453E+00, 0.7463E+00,& - 0.7472E+00, 0.7481E+00, 0.7491E+00, 0.7500E+00,& - 0.7509E+00, 0.7518E+00, 0.7527E+00, 0.7537E+00,& - 0.7545E+00, 0.7555E+00, 0.7564E+00, 0.7573E+00,& - 0.7582E+00, 0.7591E+00, 0.7600E+00, 0.7609E+00,& - 0.7618E+00, 0.7627E+00, 0.7636E+00, 0.7645E+00,& - 0.7654E+00, 0.7663E+00, 0.7672E+00, 0.7681E+00,& - 0.7690E+00, 0.7699E+00, 0.7708E+00, 0.7717E+00,& - 0.7726E+00, 0.7734E+00, 0.7743E+00, 0.7752E+00,& - 0.7761E+00, 0.7770E+00, 0.7779E+00, 0.7788E+00,& - 0.7796E+00, 0.7805E+00, 0.7814E+00, 0.7823E+00,& - 0.7831E+00, 0.7840E+00, 0.7849E+00, 0.7858E+00,& - 0.7866E+00, 0.7875E+00, 0.7883E+00, 0.7892E+00,& - 0.7901E+00, 0.7909E+00, 0.7918E+00, 0.7927E+00,& - 0.7935E+00, 0.7944E+00, 0.7952E+00, 0.7961E+00,& - 0.7970E+00, 0.7978E+00, 0.7987E+00, 0.7995E+00,& - 0.8004E+00, 0.8012E+00, 0.8021E+00, 0.8029E+00,& - 0.8038E+00, 0.8046E+00, 0.8055E+00, 0.8063E+00,& - 0.8072E+00, 0.8080E+00, 0.8089E+00, 0.8097E+00,& - 0.8106E+00, 0.8114E+00, 0.8122E+00, 0.8131E+00,& - 0.8139E+00, 0.8148E+00, 0.8156E+00, 0.8165E+00,& - 0.8173E+00, 0.8181E+00, 0.8189E+00, 0.8198E+00,& - 0.8206E+00, 0.8215E+00, 0.8223E+00, 0.8231E+00,& - 0.8240E+00, 0.8248E+00, 0.8257E+00, 0.8265E+00,& - 0.8273E+00, 0.8281E+00, 0.8289E+00, 0.8298E+00,& - 0.8306E+00, 0.8314E+00, 0.8323E+00, 0.8331E+00,& - 0.8339E+00, 0.8348E+00, 0.8356E+00, 0.8364E+00,& - 0.8372E+00, 0.8381E+00, 0.8389E+00, 0.8397E+00,& - 0.8405E+00, 0.8413E+00, 0.8421E+00, 0.8429E+00,& - 0.8438E+00, 0.8446E+00, 0.8454E+00, 0.8462E+00,& - 0.8470E+00, 0.8479E+00, 0.8487E+00, 0.8495E+00,& - 0.8503E+00, 0.8511E+00, 0.8520E+00, 0.8528E+00,& - 0.8536E+00, 0.8544E+00, 0.8552E+00, 0.8560E+00,& - 0.8568E+00, 0.8577E+00, 0.8585E+00, 0.8593E+00,& - 0.8601E+00, 0.8609E+00, 0.8617E+00, 0.8625E+00,& - 0.8633E+00, 0.8641E+00, 0.8649E+00, 0.8658E+00,& - 0.8666E+00, 0.8674E+00, 0.8682E+00, 0.8690E+00,& - 0.8698E+00, 0.8706E+00, 0.8714E+00, 0.8722E+00,& - 0.8730E+00, 0.8738E+00, 0.8746E+00, 0.8754E+00,& - 0.8762E+00, 0.8770E+00, 0.8778E+00, 0.8786E+00,& - 0.8795E+00, 0.8803E+00, 0.8811E+00, 0.8819E+00,& - 0.8827E+00, 0.8835E+00, 0.8843E+00, 0.8851E+00,& - 0.8859E+00, 0.8867E+00, 0.8875E+00, 0.8883E+00,& - 0.8891E+00, 0.8899E+00, 0.8907E+00, 0.8915E+00,& - 0.8923E+00, 0.8931E+00, 0.8939E+00, 0.8947E+00,& - 0.8955E+00, 0.8963E+00, 0.8971E+00, 0.8979E+00,& - 0.8987E+00, 0.8995E+00, 0.9003E+00, 0.9011E+00,& - 0.9019E+00, 0.9027E+00, 0.9035E+00, 0.9043E+00,& - 0.9051E+00, 0.9059E+00, 0.9067E+00, 0.9075E+00,& - 0.9083E+00, 0.9091E+00, 0.9099E+00, 0.9107E+00,& - 0.9115E+00, 0.9123E+00, 0.9131E+00, 0.9139E+00,& - 0.9147E+00, 0.9155E+00, 0.9163E+00, 0.9171E+00,& - 0.9179E+00, 0.9187E+00, 0.9195E+00, 0.9203E+00,& - 0.9211E+00, 0.9219E+00, 0.9227E+00, 0.9235E+00,& - 0.9243E+00, 0.9251E+00, 0.9259E+00, 0.9267E+00,& - 0.9275E+00, 0.9283E+00, 0.9291E+00, 0.9299E+00,& - 0.9307E+00, 0.9315E+00, 0.9323E+00, 0.9331E+00,& - 0.9339E+00, 0.9347E+00, 0.9355E+00, 0.9363E+00,& - 0.9371E+00, 0.9379E+00, 0.9387E+00, 0.9395E+00,& - 0.9403E+00, 0.9411E+00, 0.9419E+00, 0.9427E+00,& - 0.9435E+00, 0.9443E+00, 0.9451E+00, 0.9459E+00,& - 0.9467E+00, 0.9475E+00, 0.9483E+00, 0.9491E+00,& - 0.9499E+00, 0.9507E+00, 0.9515E+00, 0.9524E+00,& - 0.9532E+00, 0.9540E+00, 0.9548E+00, 0.9556E+00,& - 0.9564E+00, 0.9572E+00, 0.9580E+00, 0.9588E+00,& - 0.9596E+00, 0.9604E+00, 0.9612E+00, 0.9620E+00,& - 0.9628E+00, 0.9637E+00, 0.9645E+00, 0.9653E+00,& - 0.9661E+00, 0.9669E+00, 0.9677E+00, 0.9685E+00,& - 0.9693E+00, 0.9701E+00, 0.9710E+00, 0.9718E+00,& - 0.9726E+00, 0.9734E+00, 0.9742E+00, 0.9750E+00,& - 0.9758E+00, 0.9767E+00, 0.9775E+00, 0.9783E+00,& - 0.9791E+00, 0.9799E+00, 0.9807E+00, 0.9816E+00,& - 0.9824E+00, 0.9832E+00, 0.9840E+00, 0.9848E+00,& - 0.9857E+00, 0.9865E+00, 0.9873E+00, 0.9881E+00,& - 0.9889E+00, 0.9898E+00, 0.9906E+00, 0.9914E+00,& - 0.9922E+00, 0.9930E+00, 0.9939E+00, 0.9947E+00,& - 0.9955E+00, 0.9963E+00, 0.9972E+00, 0.9980E+00,& - 0.9988E+00, 0.9997E+00, 0.1000E+01, 0.1001E+01,& - 0.1002E+01, 0.1003E+01, 0.1004E+01, 0.1005E+01,& - 0.1005E+01, 0.1006E+01, 0.1007E+01, 0.1008E+01,& - 0.1009E+01, 0.1010E+01, 0.1010E+01, 0.1011E+01,& - 0.1012E+01, 0.1013E+01, 0.1014E+01, 0.1015E+01,& - 0.1015E+01, 0.1016E+01, 0.1017E+01, 0.1018E+01,& - 0.1019E+01, 0.1020E+01, 0.1021E+01, 0.1021E+01,& - 0.1022E+01, 0.1023E+01, 0.1024E+01, 0.1025E+01,& - 0.1026E+01, 0.1026E+01, 0.1027E+01, 0.1028E+01,& - 0.1029E+01, 0.1030E+01, 0.1031E+01, 0.1032E+01,& - 0.1032E+01, 0.1033E+01, 0.1034E+01, 0.1035E+01,& - 0.1036E+01, 0.1037E+01, 0.1038E+01, 0.1038E+01,& - 0.1039E+01, 0.1040E+01, 0.1041E+01, 0.1042E+01,& - 0.1043E+01, 0.1044E+01, 0.1044E+01, 0.1045E+01,& - 0.1046E+01, 0.1047E+01, 0.1048E+01, 0.1049E+01,& - 0.1050E+01, 0.1050E+01, 0.1051E+01, 0.1052E+01,& - 0.1053E+01, 0.1054E+01, 0.1055E+01, 0.1056E+01,& - 0.1057E+01, 0.1057E+01, 0.1058E+01, 0.1059E+01,& - 0.1060E+01, 0.1061E+01, 0.1062E+01, 0.1063E+01,& - 0.1064E+01, 0.1065E+01, 0.1065E+01, 0.1066E+01,& - 0.1067E+01, 0.1068E+01, 0.1069E+01, 0.1070E+01,& - 0.1071E+01, 0.1072E+01, 0.1073E+01, 0.1073E+01,& - 0.1074E+01, 0.1075E+01, 0.1076E+01, 0.1077E+01,& - 0.1078E+01, 0.1079E+01, 0.1080E+01, 0.1081E+01,& - 0.1082E+01, 0.1082E+01, 0.1083E+01, 0.1084E+01,& - 0.1085E+01, 0.1086E+01, 0.1087E+01, 0.1088E+01,& - 0.1089E+01, 0.1090E+01, 0.1091E+01, 0.1092E+01,& - 0.1092E+01, 0.1093E+01, 0.1094E+01, 0.1095E+01,& - 0.1096E+01, 0.1097E+01, 0.1098E+01, 0.1099E+01,& - 0.1100E+01, 0.1101E+01, 0.1102E+01, 0.1103E+01,& - 0.1104E+01, 0.1105E+01, 0.1106E+01, 0.1106E+01,& - 0.1107E+01, 0.1108E+01, 0.1109E+01, 0.1110E+01,& - 0.1111E+01, 0.1112E+01, 0.1113E+01, 0.1114E+01,& - 0.1115E+01, 0.1116E+01, 0.1117E+01, 0.1118E+01,& - 0.1119E+01, 0.1120E+01, 0.1121E+01, 0.1122E+01,& - 0.1123E+01, 0.1124E+01, 0.1125E+01, 0.1126E+01,& - 0.1127E+01, 0.1128E+01, 0.1128E+01, 0.1129E+01,& - 0.1130E+01, 0.1131E+01, 0.1132E+01, 0.1133E+01,& - 0.1134E+01, 0.1135E+01, 0.1136E+01, 0.1137E+01,& - 0.1138E+01, 0.1139E+01, 0.1140E+01, 0.1141E+01,& - 0.1142E+01, 0.1143E+01, 0.1144E+01, 0.1145E+01,& - 0.1146E+01, 0.1147E+01, 0.1148E+01, 0.1149E+01,& - 0.1150E+01, 0.1151E+01, 0.1152E+01, 0.1153E+01,& - 0.1154E+01, 0.1156E+01, 0.1157E+01, 0.1158E+01,& - 0.1159E+01, 0.1160E+01, 0.1161E+01, 0.1162E+01,& - 0.1163E+01, 0.1164E+01, 0.1165E+01, 0.1166E+01,& - 0.1167E+01, 0.1168E+01, 0.1169E+01, 0.1170E+01,& - 0.1171E+01, 0.1172E+01, 0.1173E+01, 0.1174E+01,& - 0.1175E+01, 0.1176E+01, 0.1178E+01, 0.1179E+01,& - 0.1180E+01, 0.1181E+01, 0.1182E+01, 0.1183E+01,& - 0.1184E+01, 0.1185E+01, 0.1186E+01, 0.1187E+01,& - 0.1188E+01, 0.1190E+01, 0.1191E+01, 0.1192E+01,& - 0.1193E+01, 0.1194E+01, 0.1195E+01, 0.1196E+01,& - 0.1197E+01, 0.1198E+01, 0.1200E+01, 0.1201E+01,& - 0.1202E+01, 0.1203E+01, 0.1204E+01, 0.1205E+01,& - 0.1206E+01, 0.1207E+01, 0.1209E+01, 0.1210E+01,& - 0.1211E+01, 0.1212E+01, 0.1213E+01, 0.1214E+01,& - 0.1216E+01, 0.1217E+01, 0.1218E+01, 0.1219E+01,& - 0.1220E+01, 0.1221E+01, 0.1223E+01, 0.1224E+01,& - 0.1225E+01, 0.1226E+01, 0.1227E+01, 0.1229E+01,& - 0.1230E+01, 0.1231E+01, 0.1232E+01, 0.1233E+01,& - 0.1235E+01, 0.1236E+01, 0.1237E+01, 0.1238E+01,& - 0.1240E+01, 0.1241E+01, 0.1242E+01, 0.1243E+01,& - 0.1245E+01, 0.1246E+01, 0.1247E+01, 0.1248E+01,& - 0.1250E+01, 0.1251E+01, 0.1252E+01, 0.1253E+01,& - 0.1255E+01, 0.1256E+01, 0.1257E+01, 0.1259E+01,& - 0.1260E+01, 0.1261E+01, 0.1263E+01, 0.1264E+01,& - 0.1265E+01, 0.1266E+01, 0.1268E+01, 0.1269E+01,& - 0.1270E+01, 0.1272E+01, 0.1273E+01, 0.1275E+01,& - 0.1276E+01, 0.1277E+01, 0.1279E+01, 0.1280E+01,& - 0.1281E+01, 0.1283E+01, 0.1284E+01, 0.1286E+01,& - 0.1287E+01, 0.1288E+01, 0.1290E+01, 0.1291E+01,& - 0.1293E+01, 0.1294E+01, 0.1295E+01, 0.1297E+01,& - 0.1298E+01, 0.1300E+01, 0.1301E+01, 0.1303E+01,& - 0.1304E+01, 0.1306E+01, 0.1307E+01, 0.1309E+01,& - 0.1310E+01, 0.1312E+01, 0.1313E+01, 0.1315E+01,& - 0.1316E+01, 0.1318E+01, 0.1319E+01, 0.1321E+01,& - 0.1322E+01, 0.1324E+01, 0.1325E+01, 0.1327E+01,& - 0.1329E+01, 0.1330E+01, 0.1332E+01, 0.1333E+01,& - 0.1335E+01, 0.1337E+01, 0.1338E+01, 0.1340E+01,& - 0.1341E+01, 0.1343E+01, 0.1345E+01, 0.1346E+01,& - 0.1348E+01, 0.1350E+01, 0.1352E+01, 0.1353E+01,& - 0.1355E+01, 0.1357E+01, 0.1358E+01, 0.1360E+01,& - 0.1362E+01, 0.1364E+01, 0.1365E+01, 0.1367E+01,& - 0.1369E+01, 0.1371E+01, 0.1373E+01, 0.1374E+01,& - 0.1376E+01, 0.1378E+01, 0.1380E+01, 0.1382E+01,& - 0.1384E+01, 0.1386E+01, 0.1387E+01, 0.1389E+01,& - 0.1391E+01, 0.1393E+01, 0.1395E+01, 0.1397E+01,& - 0.1399E+01, 0.1401E+01, 0.1403E+01, 0.1405E+01,& - 0.1407E+01, 0.1409E+01, 0.1411E+01, 0.1413E+01,& - 0.1415E+01, 0.1418E+01, 0.1420E+01, 0.1422E+01,& - 0.1424E+01, 0.1426E+01, 0.1428E+01, 0.1431E+01,& - 0.1433E+01, 0.1435E+01, 0.1437E+01, 0.1440E+01,& - 0.1442E+01, 0.1444E+01, 0.1447E+01, 0.1449E+01,& - 0.1451E+01, 0.1454E+01, 0.1456E+01, 0.1459E+01,& - 0.1461E+01, 0.1463E+01, 0.1466E+01, 0.1468E+01,& - 0.1471E+01, 0.1474E+01, 0.1476E+01, 0.1479E+01,& - 0.1482E+01, 0.1484E+01, 0.1487E+01, 0.1490E+01,& - 0.1492E+01, 0.1495E+01, 0.1498E+01, 0.1501E+01,& - 0.1504E+01, 0.1507E+01, 0.1510E+01, 0.1513E+01,& - 0.1516E+01, 0.1519E+01, 0.1522E+01, 0.1525E+01,& - 0.1528E+01, 0.1532E+01, 0.1535E+01, 0.1538E+01,& - 0.1542E+01, 0.1545E+01, 0.1549E+01, 0.1552E+01,& - 0.1556E+01, 0.1559E+01, 0.1563E+01, 0.1567E+01,& - 0.1571E+01, 0.1575E+01, 0.1578E+01, 0.1582E+01,& - 0.1587E+01, 0.1591E+01, 0.1595E+01, 0.1599E+01,& - 0.1604E+01, 0.1608E+01, 0.1613E+01, 0.1617E+01,& - 0.1622E+01, 0.1627E+01, 0.1632E+01, 0.1637E+01,& - 0.1642E+01, 0.1648E+01, 0.1653E+01, 0.1659E+01,& - 0.1665E+01, 0.1671E+01, 0.1677E+01, 0.1683E+01,& - 0.1690E+01, 0.1696E+01, 0.1703E+01, 0.1711E+01,& - 0.1718E+01, 0.1726E+01, 0.1734E+01, 0.1742E+01,& - 0.1751E+01, 0.1761E+01, 0.1770E+01, 0.1780E+01,& - 0.1791E+01, 0.1803E+01, 0.1815E+01, 0.1828E+01,& - 0.1842E+01, 0.1857E+01, 0.1874E+01, 0.1893E+01,& - 0.1913E+01, 0.1937E+01, 0.1964E+01, 0.1997E+01,& - 0.1000E-04, 0.2255E+00, 0.2557E+00, 0.2756E+00/) - xcw(:, 11) = (/& - 0.1000E-04, 0.2255E+00, 0.2557E+00, 0.2756E+00,& - 0.2909E+00, 0.3035E+00, 0.3143E+00, 0.3239E+00,& - 0.3324E+00, 0.3402E+00, 0.3474E+00, 0.3541E+00,& - 0.3603E+00, 0.3662E+00, 0.3718E+00, 0.3771E+00,& - 0.3821E+00, 0.3869E+00, 0.3915E+00, 0.3960E+00,& - 0.4002E+00, 0.4044E+00, 0.4083E+00, 0.4122E+00,& - 0.4160E+00, 0.4196E+00, 0.4231E+00, 0.4266E+00,& - 0.4299E+00, 0.4332E+00, 0.4364E+00, 0.4396E+00,& - 0.4426E+00, 0.4456E+00, 0.4485E+00, 0.4514E+00,& - 0.4542E+00, 0.4570E+00, 0.4597E+00, 0.4624E+00,& - 0.4650E+00, 0.4676E+00, 0.4701E+00, 0.4727E+00,& - 0.4751E+00, 0.4775E+00, 0.4799E+00, 0.4823E+00,& - 0.4846E+00, 0.4869E+00, 0.4892E+00, 0.4914E+00,& - 0.4936E+00, 0.4958E+00, 0.4980E+00, 0.5001E+00,& - 0.5022E+00, 0.5043E+00, 0.5063E+00, 0.5084E+00,& - 0.5104E+00, 0.5124E+00, 0.5143E+00, 0.5163E+00,& - 0.5182E+00, 0.5201E+00, 0.5220E+00, 0.5239E+00,& - 0.5258E+00, 0.5276E+00, 0.5294E+00, 0.5312E+00,& - 0.5330E+00, 0.5348E+00, 0.5366E+00, 0.5383E+00,& - 0.5401E+00, 0.5418E+00, 0.5435E+00, 0.5452E+00,& - 0.5469E+00, 0.5485E+00, 0.5502E+00, 0.5518E+00,& - 0.5535E+00, 0.5551E+00, 0.5567E+00, 0.5583E+00,& - 0.5599E+00, 0.5615E+00, 0.5630E+00, 0.5646E+00,& - 0.5662E+00, 0.5677E+00, 0.5692E+00, 0.5708E+00,& - 0.5723E+00, 0.5738E+00, 0.5753E+00, 0.5768E+00,& - 0.5782E+00, 0.5797E+00, 0.5812E+00, 0.5826E+00,& - 0.5840E+00, 0.5855E+00, 0.5869E+00, 0.5883E+00,& - 0.5897E+00, 0.5911E+00, 0.5926E+00, 0.5939E+00,& - 0.5953E+00, 0.5967E+00, 0.5981E+00, 0.5994E+00,& - 0.6008E+00, 0.6021E+00, 0.6035E+00, 0.6048E+00,& - 0.6061E+00, 0.6075E+00, 0.6088E+00, 0.6101E+00,& - 0.6114E+00, 0.6127E+00, 0.6140E+00, 0.6153E+00,& - 0.6166E+00, 0.6179E+00, 0.6191E+00, 0.6204E+00,& - 0.6217E+00, 0.6230E+00, 0.6242E+00, 0.6255E+00,& - 0.6267E+00, 0.6280E+00, 0.6292E+00, 0.6304E+00,& - 0.6316E+00, 0.6329E+00, 0.6341E+00, 0.6353E+00,& - 0.6365E+00, 0.6377E+00, 0.6389E+00, 0.6401E+00,& - 0.6413E+00, 0.6425E+00, 0.6437E+00, 0.6449E+00,& - 0.6460E+00, 0.6472E+00, 0.6484E+00, 0.6495E+00,& - 0.6507E+00, 0.6519E+00, 0.6530E+00, 0.6542E+00,& - 0.6553E+00, 0.6565E+00, 0.6576E+00, 0.6588E+00,& - 0.6599E+00, 0.6610E+00, 0.6621E+00, 0.6633E+00,& - 0.6644E+00, 0.6655E+00, 0.6666E+00, 0.6677E+00,& - 0.6689E+00, 0.6700E+00, 0.6711E+00, 0.6722E+00,& - 0.6733E+00, 0.6744E+00, 0.6755E+00, 0.6765E+00,& - 0.6776E+00, 0.6787E+00, 0.6798E+00, 0.6809E+00,& - 0.6820E+00, 0.6830E+00, 0.6841E+00, 0.6852E+00,& - 0.6862E+00, 0.6873E+00, 0.6883E+00, 0.6894E+00,& - 0.6904E+00, 0.6915E+00, 0.6926E+00, 0.6936E+00,& - 0.6947E+00, 0.6957E+00, 0.6967E+00, 0.6978E+00,& - 0.6988E+00, 0.6999E+00, 0.7009E+00, 0.7019E+00,& - 0.7029E+00, 0.7040E+00, 0.7050E+00, 0.7060E+00,& - 0.7071E+00, 0.7080E+00, 0.7091E+00, 0.7101E+00,& - 0.7111E+00, 0.7121E+00, 0.7131E+00, 0.7141E+00,& - 0.7151E+00, 0.7161E+00, 0.7171E+00, 0.7181E+00,& - 0.7191E+00, 0.7201E+00, 0.7211E+00, 0.7221E+00,& - 0.7231E+00, 0.7241E+00, 0.7251E+00, 0.7261E+00,& - 0.7270E+00, 0.7280E+00, 0.7290E+00, 0.7300E+00,& - 0.7309E+00, 0.7319E+00, 0.7329E+00, 0.7339E+00,& - 0.7348E+00, 0.7358E+00, 0.7368E+00, 0.7378E+00,& - 0.7387E+00, 0.7397E+00, 0.7407E+00, 0.7416E+00,& - 0.7426E+00, 0.7435E+00, 0.7445E+00, 0.7454E+00,& - 0.7464E+00, 0.7473E+00, 0.7483E+00, 0.7492E+00,& - 0.7502E+00, 0.7512E+00, 0.7521E+00, 0.7530E+00,& - 0.7540E+00, 0.7549E+00, 0.7559E+00, 0.7568E+00,& - 0.7578E+00, 0.7587E+00, 0.7596E+00, 0.7605E+00,& - 0.7615E+00, 0.7624E+00, 0.7634E+00, 0.7643E+00,& - 0.7652E+00, 0.7661E+00, 0.7670E+00, 0.7680E+00,& - 0.7689E+00, 0.7698E+00, 0.7708E+00, 0.7717E+00,& - 0.7726E+00, 0.7735E+00, 0.7745E+00, 0.7754E+00,& - 0.7763E+00, 0.7772E+00, 0.7781E+00, 0.7790E+00,& - 0.7799E+00, 0.7808E+00, 0.7818E+00, 0.7827E+00,& - 0.7836E+00, 0.7845E+00, 0.7854E+00, 0.7863E+00,& - 0.7872E+00, 0.7881E+00, 0.7890E+00, 0.7899E+00,& - 0.7908E+00, 0.7917E+00, 0.7926E+00, 0.7935E+00,& - 0.7944E+00, 0.7953E+00, 0.7962E+00, 0.7971E+00,& - 0.7980E+00, 0.7989E+00, 0.7998E+00, 0.8007E+00,& - 0.8016E+00, 0.8025E+00, 0.8034E+00, 0.8043E+00,& - 0.8052E+00, 0.8061E+00, 0.8070E+00, 0.8079E+00,& - 0.8087E+00, 0.8096E+00, 0.8105E+00, 0.8114E+00,& - 0.8123E+00, 0.8132E+00, 0.8140E+00, 0.8149E+00,& - 0.8158E+00, 0.8167E+00, 0.8176E+00, 0.8185E+00,& - 0.8193E+00, 0.8202E+00, 0.8211E+00, 0.8220E+00,& - 0.8228E+00, 0.8237E+00, 0.8246E+00, 0.8255E+00,& - 0.8263E+00, 0.8272E+00, 0.8281E+00, 0.8290E+00,& - 0.8299E+00, 0.8308E+00, 0.8316E+00, 0.8325E+00,& - 0.8334E+00, 0.8342E+00, 0.8351E+00, 0.8360E+00,& - 0.8368E+00, 0.8377E+00, 0.8386E+00, 0.8395E+00,& - 0.8404E+00, 0.8412E+00, 0.8421E+00, 0.8429E+00,& - 0.8438E+00, 0.8447E+00, 0.8455E+00, 0.8464E+00,& - 0.8473E+00, 0.8481E+00, 0.8490E+00, 0.8499E+00,& - 0.8508E+00, 0.8516E+00, 0.8525E+00, 0.8533E+00,& - 0.8542E+00, 0.8551E+00, 0.8559E+00, 0.8568E+00,& - 0.8576E+00, 0.8585E+00, 0.8594E+00, 0.8603E+00,& - 0.8611E+00, 0.8620E+00, 0.8628E+00, 0.8637E+00,& - 0.8645E+00, 0.8654E+00, 0.8663E+00, 0.8672E+00,& - 0.8680E+00, 0.8689E+00, 0.8697E+00, 0.8706E+00,& - 0.8714E+00, 0.8723E+00, 0.8732E+00, 0.8740E+00,& - 0.8749E+00, 0.8758E+00, 0.8766E+00, 0.8775E+00,& - 0.8783E+00, 0.8792E+00, 0.8800E+00, 0.8809E+00,& - 0.8818E+00, 0.8826E+00, 0.8835E+00, 0.8843E+00,& - 0.8852E+00, 0.8860E+00, 0.8869E+00, 0.8878E+00,& - 0.8886E+00, 0.8895E+00, 0.8903E+00, 0.8912E+00,& - 0.8920E+00, 0.8929E+00, 0.8937E+00, 0.8946E+00,& - 0.8955E+00, 0.8964E+00, 0.8972E+00, 0.8981E+00,& - 0.8989E+00, 0.8998E+00, 0.9006E+00, 0.9015E+00,& - 0.9024E+00, 0.9032E+00, 0.9041E+00, 0.9049E+00,& - 0.9058E+00, 0.9066E+00, 0.9075E+00, 0.9083E+00,& - 0.9092E+00, 0.9101E+00, 0.9109E+00, 0.9118E+00,& - 0.9126E+00, 0.9135E+00, 0.9143E+00, 0.9152E+00,& - 0.9161E+00, 0.9169E+00, 0.9178E+00, 0.9187E+00,& - 0.9195E+00, 0.9204E+00, 0.9212E+00, 0.9221E+00,& - 0.9230E+00, 0.9238E+00, 0.9247E+00, 0.9255E+00,& - 0.9264E+00, 0.9272E+00, 0.9281E+00, 0.9290E+00,& - 0.9298E+00, 0.9307E+00, 0.9316E+00, 0.9324E+00,& - 0.9333E+00, 0.9341E+00, 0.9350E+00, 0.9359E+00,& - 0.9367E+00, 0.9376E+00, 0.9385E+00, 0.9393E+00,& - 0.9402E+00, 0.9410E+00, 0.9419E+00, 0.9428E+00,& - 0.9436E+00, 0.9445E+00, 0.9453E+00, 0.9462E+00,& - 0.9471E+00, 0.9480E+00, 0.9488E+00, 0.9497E+00,& - 0.9506E+00, 0.9514E+00, 0.9523E+00, 0.9532E+00,& - 0.9540E+00, 0.9549E+00, 0.9558E+00, 0.9566E+00,& - 0.9575E+00, 0.9584E+00, 0.9593E+00, 0.9601E+00,& - 0.9610E+00, 0.9619E+00, 0.9627E+00, 0.9636E+00,& - 0.9645E+00, 0.9653E+00, 0.9662E+00, 0.9671E+00,& - 0.9680E+00, 0.9689E+00, 0.9697E+00, 0.9706E+00,& - 0.9715E+00, 0.9724E+00, 0.9732E+00, 0.9741E+00,& - 0.9750E+00, 0.9759E+00, 0.9767E+00, 0.9776E+00,& - 0.9785E+00, 0.9794E+00, 0.9803E+00, 0.9811E+00,& - 0.9820E+00, 0.9829E+00, 0.9838E+00, 0.9847E+00,& - 0.9856E+00, 0.9865E+00, 0.9874E+00, 0.9882E+00,& - 0.9891E+00, 0.9900E+00, 0.9909E+00, 0.9918E+00,& - 0.9927E+00, 0.9936E+00, 0.9944E+00, 0.9953E+00,& - 0.9962E+00, 0.9971E+00, 0.9980E+00, 0.9989E+00,& - 0.9998E+00, 0.1001E+01, 0.1002E+01, 0.1002E+01,& - 0.1003E+01, 0.1004E+01, 0.1005E+01, 0.1006E+01,& - 0.1007E+01, 0.1008E+01, 0.1009E+01, 0.1010E+01,& - 0.1011E+01, 0.1011E+01, 0.1012E+01, 0.1013E+01,& - 0.1014E+01, 0.1015E+01, 0.1016E+01, 0.1017E+01,& - 0.1018E+01, 0.1019E+01, 0.1020E+01, 0.1020E+01,& - 0.1021E+01, 0.1022E+01, 0.1023E+01, 0.1024E+01,& - 0.1025E+01, 0.1026E+01, 0.1027E+01, 0.1028E+01,& - 0.1029E+01, 0.1030E+01, 0.1031E+01, 0.1031E+01,& - 0.1032E+01, 0.1033E+01, 0.1034E+01, 0.1035E+01,& - 0.1036E+01, 0.1037E+01, 0.1038E+01, 0.1039E+01,& - 0.1040E+01, 0.1041E+01, 0.1042E+01, 0.1043E+01,& - 0.1043E+01, 0.1044E+01, 0.1045E+01, 0.1046E+01,& - 0.1047E+01, 0.1048E+01, 0.1049E+01, 0.1050E+01,& - 0.1051E+01, 0.1052E+01, 0.1053E+01, 0.1054E+01,& - 0.1055E+01, 0.1056E+01, 0.1057E+01, 0.1058E+01,& - 0.1059E+01, 0.1059E+01, 0.1060E+01, 0.1061E+01,& - 0.1062E+01, 0.1063E+01, 0.1064E+01, 0.1065E+01,& - 0.1066E+01, 0.1067E+01, 0.1068E+01, 0.1069E+01,& - 0.1070E+01, 0.1071E+01, 0.1072E+01, 0.1073E+01,& - 0.1074E+01, 0.1075E+01, 0.1076E+01, 0.1077E+01,& - 0.1078E+01, 0.1079E+01, 0.1080E+01, 0.1081E+01,& - 0.1082E+01, 0.1083E+01, 0.1083E+01, 0.1084E+01,& - 0.1085E+01, 0.1086E+01, 0.1087E+01, 0.1088E+01,& - 0.1089E+01, 0.1090E+01, 0.1091E+01, 0.1092E+01,& - 0.1093E+01, 0.1094E+01, 0.1095E+01, 0.1096E+01,& - 0.1097E+01, 0.1098E+01, 0.1099E+01, 0.1100E+01,& - 0.1101E+01, 0.1102E+01, 0.1103E+01, 0.1104E+01,& - 0.1105E+01, 0.1106E+01, 0.1107E+01, 0.1108E+01,& - 0.1109E+01, 0.1110E+01, 0.1111E+01, 0.1112E+01,& - 0.1113E+01, 0.1114E+01, 0.1115E+01, 0.1116E+01,& - 0.1118E+01, 0.1119E+01, 0.1120E+01, 0.1121E+01,& - 0.1122E+01, 0.1123E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1127E+01, 0.1128E+01, 0.1129E+01,& - 0.1130E+01, 0.1131E+01, 0.1132E+01, 0.1133E+01,& - 0.1134E+01, 0.1135E+01, 0.1136E+01, 0.1137E+01,& - 0.1138E+01, 0.1139E+01, 0.1140E+01, 0.1142E+01,& - 0.1143E+01, 0.1144E+01, 0.1145E+01, 0.1146E+01,& - 0.1147E+01, 0.1148E+01, 0.1149E+01, 0.1150E+01,& - 0.1151E+01, 0.1152E+01, 0.1153E+01, 0.1155E+01,& - 0.1156E+01, 0.1157E+01, 0.1158E+01, 0.1159E+01,& - 0.1160E+01, 0.1161E+01, 0.1162E+01, 0.1163E+01,& - 0.1164E+01, 0.1166E+01, 0.1167E+01, 0.1168E+01,& - 0.1169E+01, 0.1170E+01, 0.1171E+01, 0.1172E+01,& - 0.1173E+01, 0.1174E+01, 0.1176E+01, 0.1177E+01,& - 0.1178E+01, 0.1179E+01, 0.1180E+01, 0.1181E+01,& - 0.1182E+01, 0.1184E+01, 0.1185E+01, 0.1186E+01,& - 0.1187E+01, 0.1188E+01, 0.1189E+01, 0.1191E+01,& - 0.1192E+01, 0.1193E+01, 0.1194E+01, 0.1195E+01,& - 0.1196E+01, 0.1198E+01, 0.1199E+01, 0.1200E+01,& - 0.1201E+01, 0.1202E+01, 0.1204E+01, 0.1205E+01,& - 0.1206E+01, 0.1207E+01, 0.1208E+01, 0.1210E+01,& - 0.1211E+01, 0.1212E+01, 0.1213E+01, 0.1214E+01,& - 0.1216E+01, 0.1217E+01, 0.1218E+01, 0.1219E+01,& - 0.1221E+01, 0.1222E+01, 0.1223E+01, 0.1224E+01,& - 0.1226E+01, 0.1227E+01, 0.1228E+01, 0.1229E+01,& - 0.1231E+01, 0.1232E+01, 0.1233E+01, 0.1234E+01,& - 0.1236E+01, 0.1237E+01, 0.1238E+01, 0.1240E+01,& - 0.1241E+01, 0.1242E+01, 0.1243E+01, 0.1245E+01,& - 0.1246E+01, 0.1247E+01, 0.1249E+01, 0.1250E+01,& - 0.1251E+01, 0.1253E+01, 0.1254E+01, 0.1255E+01,& - 0.1257E+01, 0.1258E+01, 0.1259E+01, 0.1261E+01,& - 0.1262E+01, 0.1264E+01, 0.1265E+01, 0.1266E+01,& - 0.1268E+01, 0.1269E+01, 0.1270E+01, 0.1272E+01,& - 0.1273E+01, 0.1275E+01, 0.1276E+01, 0.1277E+01,& - 0.1279E+01, 0.1280E+01, 0.1282E+01, 0.1283E+01,& - 0.1285E+01, 0.1286E+01, 0.1287E+01, 0.1289E+01,& - 0.1290E+01, 0.1292E+01, 0.1293E+01, 0.1295E+01,& - 0.1296E+01, 0.1298E+01, 0.1299E+01, 0.1301E+01,& - 0.1302E+01, 0.1304E+01, 0.1305E+01, 0.1307E+01,& - 0.1308E+01, 0.1310E+01, 0.1311E+01, 0.1313E+01,& - 0.1314E+01, 0.1316E+01, 0.1317E+01, 0.1319E+01,& - 0.1321E+01, 0.1322E+01, 0.1324E+01, 0.1325E+01,& - 0.1327E+01, 0.1329E+01, 0.1330E+01, 0.1332E+01,& - 0.1333E+01, 0.1335E+01, 0.1337E+01, 0.1338E+01,& - 0.1340E+01, 0.1342E+01, 0.1343E+01, 0.1345E+01,& - 0.1347E+01, 0.1348E+01, 0.1350E+01, 0.1352E+01,& - 0.1354E+01, 0.1355E+01, 0.1357E+01, 0.1359E+01,& - 0.1360E+01, 0.1362E+01, 0.1364E+01, 0.1366E+01,& - 0.1368E+01, 0.1369E+01, 0.1371E+01, 0.1373E+01,& - 0.1375E+01, 0.1377E+01, 0.1378E+01, 0.1380E+01,& - 0.1382E+01, 0.1384E+01, 0.1386E+01, 0.1388E+01,& - 0.1390E+01, 0.1392E+01, 0.1394E+01, 0.1396E+01,& - 0.1397E+01, 0.1399E+01, 0.1401E+01, 0.1403E+01,& - 0.1405E+01, 0.1407E+01, 0.1409E+01, 0.1411E+01,& - 0.1413E+01, 0.1416E+01, 0.1418E+01, 0.1420E+01,& - 0.1422E+01, 0.1424E+01, 0.1426E+01, 0.1428E+01,& - 0.1430E+01, 0.1433E+01, 0.1435E+01, 0.1437E+01,& - 0.1439E+01, 0.1441E+01, 0.1444E+01, 0.1446E+01,& - 0.1448E+01, 0.1450E+01, 0.1453E+01, 0.1455E+01,& - 0.1457E+01, 0.1460E+01, 0.1462E+01, 0.1465E+01,& - 0.1467E+01, 0.1469E+01, 0.1472E+01, 0.1474E+01,& - 0.1477E+01, 0.1479E+01, 0.1482E+01, 0.1485E+01,& - 0.1487E+01, 0.1490E+01, 0.1492E+01, 0.1495E+01,& - 0.1498E+01, 0.1501E+01, 0.1503E+01, 0.1506E+01,& - 0.1509E+01, 0.1512E+01, 0.1514E+01, 0.1517E+01,& - 0.1520E+01, 0.1523E+01, 0.1526E+01, 0.1529E+01,& - 0.1532E+01, 0.1535E+01, 0.1538E+01, 0.1541E+01,& - 0.1545E+01, 0.1548E+01, 0.1551E+01, 0.1554E+01,& - 0.1558E+01, 0.1561E+01, 0.1565E+01, 0.1568E+01,& - 0.1571E+01, 0.1575E+01, 0.1579E+01, 0.1582E+01,& - 0.1586E+01, 0.1590E+01, 0.1593E+01, 0.1597E+01,& - 0.1601E+01, 0.1605E+01, 0.1609E+01, 0.1613E+01,& - 0.1618E+01, 0.1622E+01, 0.1626E+01, 0.1630E+01,& - 0.1635E+01, 0.1639E+01, 0.1644E+01, 0.1649E+01,& - 0.1654E+01, 0.1659E+01, 0.1664E+01, 0.1669E+01,& - 0.1674E+01, 0.1679E+01, 0.1685E+01, 0.1690E+01,& - 0.1696E+01, 0.1702E+01, 0.1708E+01, 0.1714E+01,& - 0.1720E+01, 0.1727E+01, 0.1734E+01, 0.1741E+01,& - 0.1748E+01, 0.1755E+01, 0.1763E+01, 0.1771E+01,& - 0.1779E+01, 0.1787E+01, 0.1796E+01, 0.1805E+01,& - 0.1815E+01, 0.1825E+01, 0.1836E+01, 0.1847E+01,& - 0.1859E+01, 0.1871E+01, 0.1885E+01, 0.1899E+01,& - 0.1914E+01, 0.1931E+01, 0.1949E+01, 0.1969E+01,& - 0.1992E+01, 0.2018E+01, 0.2048E+01, 0.2084E+01,& - 0.1000E-04, 0.1951E+00, 0.2243E+00, 0.2438E+00/) - xcw(:, 12) = (/& - 0.1000E-04, 0.1951E+00, 0.2243E+00, 0.2438E+00,& - 0.2588E+00, 0.2713E+00, 0.2820E+00, 0.2914E+00,& - 0.3000E+00, 0.3078E+00, 0.3149E+00, 0.3216E+00,& - 0.3279E+00, 0.3338E+00, 0.3394E+00, 0.3447E+00,& - 0.3498E+00, 0.3547E+00, 0.3593E+00, 0.3638E+00,& - 0.3681E+00, 0.3723E+00, 0.3763E+00, 0.3803E+00,& - 0.3840E+00, 0.3877E+00, 0.3914E+00, 0.3948E+00,& - 0.3983E+00, 0.4016E+00, 0.4049E+00, 0.4081E+00,& - 0.4112E+00, 0.4142E+00, 0.4172E+00, 0.4202E+00,& - 0.4230E+00, 0.4259E+00, 0.4286E+00, 0.4314E+00,& - 0.4341E+00, 0.4367E+00, 0.4393E+00, 0.4419E+00,& - 0.4444E+00, 0.4469E+00, 0.4494E+00, 0.4518E+00,& - 0.4542E+00, 0.4565E+00, 0.4589E+00, 0.4611E+00,& - 0.4634E+00, 0.4657E+00, 0.4679E+00, 0.4701E+00,& - 0.4722E+00, 0.4744E+00, 0.4765E+00, 0.4786E+00,& - 0.4807E+00, 0.4827E+00, 0.4848E+00, 0.4868E+00,& - 0.4888E+00, 0.4907E+00, 0.4927E+00, 0.4946E+00,& - 0.4966E+00, 0.4985E+00, 0.5003E+00, 0.5022E+00,& - 0.5041E+00, 0.5059E+00, 0.5077E+00, 0.5096E+00,& - 0.5114E+00, 0.5131E+00, 0.5149E+00, 0.5167E+00,& - 0.5184E+00, 0.5201E+00, 0.5218E+00, 0.5236E+00,& - 0.5252E+00, 0.5269E+00, 0.5286E+00, 0.5303E+00,& - 0.5319E+00, 0.5335E+00, 0.5352E+00, 0.5368E+00,& - 0.5384E+00, 0.5400E+00, 0.5416E+00, 0.5432E+00,& - 0.5447E+00, 0.5463E+00, 0.5479E+00, 0.5494E+00,& - 0.5510E+00, 0.5525E+00, 0.5540E+00, 0.5555E+00,& - 0.5570E+00, 0.5585E+00, 0.5600E+00, 0.5614E+00,& - 0.5629E+00, 0.5644E+00, 0.5658E+00, 0.5673E+00,& - 0.5687E+00, 0.5701E+00, 0.5716E+00, 0.5730E+00,& - 0.5744E+00, 0.5758E+00, 0.5772E+00, 0.5786E+00,& - 0.5800E+00, 0.5814E+00, 0.5828E+00, 0.5841E+00,& - 0.5855E+00, 0.5869E+00, 0.5882E+00, 0.5896E+00,& - 0.5909E+00, 0.5922E+00, 0.5936E+00, 0.5949E+00,& - 0.5962E+00, 0.5976E+00, 0.5989E+00, 0.6002E+00,& - 0.6015E+00, 0.6028E+00, 0.6041E+00, 0.6054E+00,& - 0.6066E+00, 0.6079E+00, 0.6092E+00, 0.6105E+00,& - 0.6117E+00, 0.6130E+00, 0.6143E+00, 0.6155E+00,& - 0.6167E+00, 0.6180E+00, 0.6193E+00, 0.6205E+00,& - 0.6217E+00, 0.6230E+00, 0.6242E+00, 0.6254E+00,& - 0.6266E+00, 0.6278E+00, 0.6291E+00, 0.6302E+00,& - 0.6314E+00, 0.6327E+00, 0.6338E+00, 0.6350E+00,& - 0.6362E+00, 0.6374E+00, 0.6386E+00, 0.6398E+00,& - 0.6409E+00, 0.6421E+00, 0.6433E+00, 0.6445E+00,& - 0.6456E+00, 0.6468E+00, 0.6479E+00, 0.6491E+00,& - 0.6502E+00, 0.6514E+00, 0.6525E+00, 0.6537E+00,& - 0.6548E+00, 0.6560E+00, 0.6571E+00, 0.6582E+00,& - 0.6594E+00, 0.6605E+00, 0.6616E+00, 0.6627E+00,& - 0.6639E+00, 0.6650E+00, 0.6661E+00, 0.6672E+00,& - 0.6683E+00, 0.6694E+00, 0.6705E+00, 0.6717E+00,& - 0.6727E+00, 0.6738E+00, 0.6749E+00, 0.6760E+00,& - 0.6771E+00, 0.6782E+00, 0.6793E+00, 0.6804E+00,& - 0.6814E+00, 0.6825E+00, 0.6836E+00, 0.6847E+00,& - 0.6857E+00, 0.6868E+00, 0.6879E+00, 0.6890E+00,& - 0.6901E+00, 0.6911E+00, 0.6921E+00, 0.6932E+00,& - 0.6943E+00, 0.6953E+00, 0.6964E+00, 0.6975E+00,& - 0.6985E+00, 0.6995E+00, 0.7006E+00, 0.7016E+00,& - 0.7027E+00, 0.7037E+00, 0.7048E+00, 0.7058E+00,& - 0.7069E+00, 0.7079E+00, 0.7089E+00, 0.7099E+00,& - 0.7110E+00, 0.7120E+00, 0.7130E+00, 0.7141E+00,& - 0.7151E+00, 0.7161E+00, 0.7171E+00, 0.7182E+00,& - 0.7192E+00, 0.7202E+00, 0.7212E+00, 0.7222E+00,& - 0.7232E+00, 0.7242E+00, 0.7253E+00, 0.7263E+00,& - 0.7273E+00, 0.7283E+00, 0.7293E+00, 0.7303E+00,& - 0.7313E+00, 0.7323E+00, 0.7333E+00, 0.7343E+00,& - 0.7353E+00, 0.7363E+00, 0.7373E+00, 0.7383E+00,& - 0.7392E+00, 0.7402E+00, 0.7412E+00, 0.7422E+00,& - 0.7432E+00, 0.7442E+00, 0.7452E+00, 0.7461E+00,& - 0.7471E+00, 0.7481E+00, 0.7491E+00, 0.7501E+00,& - 0.7511E+00, 0.7520E+00, 0.7530E+00, 0.7540E+00,& - 0.7550E+00, 0.7559E+00, 0.7569E+00, 0.7579E+00,& - 0.7588E+00, 0.7598E+00, 0.7608E+00, 0.7618E+00,& - 0.7627E+00, 0.7637E+00, 0.7646E+00, 0.7656E+00,& - 0.7666E+00, 0.7675E+00, 0.7685E+00, 0.7695E+00,& - 0.7704E+00, 0.7714E+00, 0.7723E+00, 0.7733E+00,& - 0.7743E+00, 0.7752E+00, 0.7762E+00, 0.7771E+00,& - 0.7781E+00, 0.7790E+00, 0.7800E+00, 0.7810E+00,& - 0.7819E+00, 0.7828E+00, 0.7838E+00, 0.7847E+00,& - 0.7857E+00, 0.7866E+00, 0.7876E+00, 0.7885E+00,& - 0.7895E+00, 0.7904E+00, 0.7914E+00, 0.7923E+00,& - 0.7932E+00, 0.7942E+00, 0.7951E+00, 0.7960E+00,& - 0.7970E+00, 0.7979E+00, 0.7989E+00, 0.7998E+00,& - 0.8007E+00, 0.8017E+00, 0.8026E+00, 0.8036E+00,& - 0.8045E+00, 0.8054E+00, 0.8064E+00, 0.8073E+00,& - 0.8082E+00, 0.8091E+00, 0.8101E+00, 0.8110E+00,& - 0.8120E+00, 0.8129E+00, 0.8138E+00, 0.8148E+00,& - 0.8157E+00, 0.8166E+00, 0.8175E+00, 0.8185E+00,& - 0.8194E+00, 0.8203E+00, 0.8212E+00, 0.8222E+00,& - 0.8231E+00, 0.8240E+00, 0.8249E+00, 0.8259E+00,& - 0.8268E+00, 0.8277E+00, 0.8286E+00, 0.8296E+00,& - 0.8305E+00, 0.8314E+00, 0.8323E+00, 0.8333E+00,& - 0.8342E+00, 0.8351E+00, 0.8360E+00, 0.8370E+00,& - 0.8379E+00, 0.8388E+00, 0.8397E+00, 0.8406E+00,& - 0.8416E+00, 0.8425E+00, 0.8434E+00, 0.8443E+00,& - 0.8452E+00, 0.8461E+00, 0.8471E+00, 0.8480E+00,& - 0.8489E+00, 0.8498E+00, 0.8507E+00, 0.8517E+00,& - 0.8526E+00, 0.8535E+00, 0.8544E+00, 0.8553E+00,& - 0.8562E+00, 0.8571E+00, 0.8581E+00, 0.8590E+00,& - 0.8599E+00, 0.8608E+00, 0.8618E+00, 0.8627E+00,& - 0.8636E+00, 0.8645E+00, 0.8654E+00, 0.8663E+00,& - 0.8672E+00, 0.8681E+00, 0.8691E+00, 0.8700E+00,& - 0.8709E+00, 0.8718E+00, 0.8727E+00, 0.8736E+00,& - 0.8745E+00, 0.8755E+00, 0.8764E+00, 0.8773E+00,& - 0.8782E+00, 0.8791E+00, 0.8800E+00, 0.8809E+00,& - 0.8819E+00, 0.8828E+00, 0.8837E+00, 0.8846E+00,& - 0.8855E+00, 0.8864E+00, 0.8873E+00, 0.8883E+00,& - 0.8892E+00, 0.8901E+00, 0.8910E+00, 0.8919E+00,& - 0.8928E+00, 0.8937E+00, 0.8946E+00, 0.8956E+00,& - 0.8965E+00, 0.8974E+00, 0.8983E+00, 0.8993E+00,& - 0.9002E+00, 0.9011E+00, 0.9020E+00, 0.9029E+00,& - 0.9038E+00, 0.9047E+00, 0.9057E+00, 0.9066E+00,& - 0.9075E+00, 0.9084E+00, 0.9093E+00, 0.9102E+00,& - 0.9111E+00, 0.9121E+00, 0.9130E+00, 0.9139E+00,& - 0.9148E+00, 0.9157E+00, 0.9167E+00, 0.9176E+00,& - 0.9185E+00, 0.9194E+00, 0.9203E+00, 0.9212E+00,& - 0.9222E+00, 0.9231E+00, 0.9240E+00, 0.9249E+00,& - 0.9258E+00, 0.9268E+00, 0.9277E+00, 0.9286E+00,& - 0.9295E+00, 0.9305E+00, 0.9314E+00, 0.9323E+00,& - 0.9332E+00, 0.9342E+00, 0.9351E+00, 0.9360E+00,& - 0.9369E+00, 0.9379E+00, 0.9388E+00, 0.9397E+00,& - 0.9406E+00, 0.9416E+00, 0.9425E+00, 0.9434E+00,& - 0.9443E+00, 0.9452E+00, 0.9461E+00, 0.9471E+00,& - 0.9480E+00, 0.9490E+00, 0.9499E+00, 0.9508E+00,& - 0.9518E+00, 0.9527E+00, 0.9536E+00, 0.9546E+00,& - 0.9555E+00, 0.9564E+00, 0.9573E+00, 0.9583E+00,& - 0.9592E+00, 0.9602E+00, 0.9611E+00, 0.9620E+00,& - 0.9630E+00, 0.9639E+00, 0.9648E+00, 0.9658E+00,& - 0.9667E+00, 0.9677E+00, 0.9686E+00, 0.9695E+00,& - 0.9704E+00, 0.9714E+00, 0.9724E+00, 0.9733E+00,& - 0.9742E+00, 0.9752E+00, 0.9761E+00, 0.9771E+00,& - 0.9780E+00, 0.9789E+00, 0.9799E+00, 0.9808E+00,& - 0.9818E+00, 0.9827E+00, 0.9837E+00, 0.9846E+00,& - 0.9856E+00, 0.9865E+00, 0.9875E+00, 0.9884E+00,& - 0.9894E+00, 0.9903E+00, 0.9913E+00, 0.9922E+00,& - 0.9932E+00, 0.9942E+00, 0.9951E+00, 0.9961E+00,& - 0.9970E+00, 0.9980E+00, 0.9989E+00, 0.9999E+00,& - 0.1001E+01, 0.1002E+01, 0.1003E+01, 0.1004E+01,& - 0.1005E+01, 0.1006E+01, 0.1007E+01, 0.1008E+01,& - 0.1009E+01, 0.1010E+01, 0.1010E+01, 0.1011E+01,& - 0.1012E+01, 0.1013E+01, 0.1014E+01, 0.1015E+01,& - 0.1016E+01, 0.1017E+01, 0.1018E+01, 0.1019E+01,& - 0.1020E+01, 0.1021E+01, 0.1022E+01, 0.1023E+01,& - 0.1024E+01, 0.1025E+01, 0.1026E+01, 0.1027E+01,& - 0.1028E+01, 0.1029E+01, 0.1030E+01, 0.1031E+01,& - 0.1032E+01, 0.1033E+01, 0.1034E+01, 0.1035E+01,& - 0.1036E+01, 0.1037E+01, 0.1038E+01, 0.1039E+01,& - 0.1040E+01, 0.1041E+01, 0.1042E+01, 0.1043E+01,& - 0.1044E+01, 0.1045E+01, 0.1046E+01, 0.1047E+01,& - 0.1048E+01, 0.1049E+01, 0.1050E+01, 0.1051E+01,& - 0.1052E+01, 0.1053E+01, 0.1054E+01, 0.1055E+01,& - 0.1056E+01, 0.1057E+01, 0.1058E+01, 0.1059E+01,& - 0.1060E+01, 0.1061E+01, 0.1062E+01, 0.1063E+01,& - 0.1064E+01, 0.1065E+01, 0.1066E+01, 0.1067E+01,& - 0.1068E+01, 0.1069E+01, 0.1070E+01, 0.1071E+01,& - 0.1072E+01, 0.1073E+01, 0.1074E+01, 0.1075E+01,& - 0.1076E+01, 0.1077E+01, 0.1079E+01, 0.1080E+01,& - 0.1081E+01, 0.1082E+01, 0.1083E+01, 0.1084E+01,& - 0.1085E+01, 0.1086E+01, 0.1087E+01, 0.1088E+01,& - 0.1089E+01, 0.1090E+01, 0.1091E+01, 0.1092E+01,& - 0.1093E+01, 0.1094E+01, 0.1095E+01, 0.1096E+01,& - 0.1097E+01, 0.1099E+01, 0.1100E+01, 0.1101E+01,& - 0.1102E+01, 0.1103E+01, 0.1104E+01, 0.1105E+01,& - 0.1106E+01, 0.1107E+01, 0.1108E+01, 0.1109E+01,& - 0.1110E+01, 0.1111E+01, 0.1113E+01, 0.1114E+01,& - 0.1115E+01, 0.1116E+01, 0.1117E+01, 0.1118E+01,& - 0.1119E+01, 0.1120E+01, 0.1121E+01, 0.1122E+01,& - 0.1123E+01, 0.1125E+01, 0.1126E+01, 0.1127E+01,& - 0.1128E+01, 0.1129E+01, 0.1130E+01, 0.1131E+01,& - 0.1132E+01, 0.1133E+01, 0.1135E+01, 0.1136E+01,& - 0.1137E+01, 0.1138E+01, 0.1139E+01, 0.1140E+01,& - 0.1141E+01, 0.1143E+01, 0.1144E+01, 0.1145E+01,& - 0.1146E+01, 0.1147E+01, 0.1148E+01, 0.1149E+01,& - 0.1151E+01, 0.1152E+01, 0.1153E+01, 0.1154E+01,& - 0.1155E+01, 0.1156E+01, 0.1157E+01, 0.1159E+01,& - 0.1160E+01, 0.1161E+01, 0.1162E+01, 0.1163E+01,& - 0.1165E+01, 0.1166E+01, 0.1167E+01, 0.1168E+01,& - 0.1169E+01, 0.1170E+01, 0.1172E+01, 0.1173E+01,& - 0.1174E+01, 0.1175E+01, 0.1176E+01, 0.1178E+01,& - 0.1179E+01, 0.1180E+01, 0.1181E+01, 0.1182E+01,& - 0.1184E+01, 0.1185E+01, 0.1186E+01, 0.1187E+01,& - 0.1189E+01, 0.1190E+01, 0.1191E+01, 0.1192E+01,& - 0.1193E+01, 0.1195E+01, 0.1196E+01, 0.1197E+01,& - 0.1198E+01, 0.1200E+01, 0.1201E+01, 0.1202E+01,& - 0.1203E+01, 0.1205E+01, 0.1206E+01, 0.1207E+01,& - 0.1209E+01, 0.1210E+01, 0.1211E+01, 0.1212E+01,& - 0.1214E+01, 0.1215E+01, 0.1216E+01, 0.1218E+01,& - 0.1219E+01, 0.1220E+01, 0.1221E+01, 0.1223E+01,& - 0.1224E+01, 0.1225E+01, 0.1227E+01, 0.1228E+01,& - 0.1229E+01, 0.1231E+01, 0.1232E+01, 0.1233E+01,& - 0.1235E+01, 0.1236E+01, 0.1237E+01, 0.1239E+01,& - 0.1240E+01, 0.1241E+01, 0.1243E+01, 0.1244E+01,& - 0.1245E+01, 0.1247E+01, 0.1248E+01, 0.1250E+01,& - 0.1251E+01, 0.1252E+01, 0.1254E+01, 0.1255E+01,& - 0.1257E+01, 0.1258E+01, 0.1259E+01, 0.1261E+01,& - 0.1262E+01, 0.1264E+01, 0.1265E+01, 0.1266E+01,& - 0.1268E+01, 0.1269E+01, 0.1271E+01, 0.1272E+01,& - 0.1274E+01, 0.1275E+01, 0.1277E+01, 0.1278E+01,& - 0.1280E+01, 0.1281E+01, 0.1282E+01, 0.1284E+01,& - 0.1285E+01, 0.1287E+01, 0.1288E+01, 0.1290E+01,& - 0.1291E+01, 0.1293E+01, 0.1294E+01, 0.1296E+01,& - 0.1298E+01, 0.1299E+01, 0.1301E+01, 0.1302E+01,& - 0.1304E+01, 0.1305E+01, 0.1307E+01, 0.1308E+01,& - 0.1310E+01, 0.1312E+01, 0.1313E+01, 0.1315E+01,& - 0.1316E+01, 0.1318E+01, 0.1319E+01, 0.1321E+01,& - 0.1323E+01, 0.1324E+01, 0.1326E+01, 0.1328E+01,& - 0.1329E+01, 0.1331E+01, 0.1333E+01, 0.1334E+01,& - 0.1336E+01, 0.1338E+01, 0.1339E+01, 0.1341E+01,& - 0.1343E+01, 0.1344E+01, 0.1346E+01, 0.1348E+01,& - 0.1350E+01, 0.1351E+01, 0.1353E+01, 0.1355E+01,& - 0.1357E+01, 0.1358E+01, 0.1360E+01, 0.1362E+01,& - 0.1364E+01, 0.1365E+01, 0.1367E+01, 0.1369E+01,& - 0.1371E+01, 0.1373E+01, 0.1375E+01, 0.1376E+01,& - 0.1378E+01, 0.1380E+01, 0.1382E+01, 0.1384E+01,& - 0.1386E+01, 0.1388E+01, 0.1390E+01, 0.1392E+01,& - 0.1394E+01, 0.1395E+01, 0.1397E+01, 0.1399E+01,& - 0.1401E+01, 0.1403E+01, 0.1405E+01, 0.1407E+01,& - 0.1409E+01, 0.1411E+01, 0.1413E+01, 0.1416E+01,& - 0.1418E+01, 0.1420E+01, 0.1422E+01, 0.1424E+01,& - 0.1426E+01, 0.1428E+01, 0.1430E+01, 0.1432E+01,& - 0.1435E+01, 0.1437E+01, 0.1439E+01, 0.1441E+01,& - 0.1443E+01, 0.1446E+01, 0.1448E+01, 0.1450E+01,& - 0.1452E+01, 0.1455E+01, 0.1457E+01, 0.1459E+01,& - 0.1462E+01, 0.1464E+01, 0.1466E+01, 0.1469E+01,& - 0.1471E+01, 0.1474E+01, 0.1476E+01, 0.1478E+01,& - 0.1481E+01, 0.1483E+01, 0.1486E+01, 0.1488E+01,& - 0.1491E+01, 0.1494E+01, 0.1496E+01, 0.1499E+01,& - 0.1501E+01, 0.1504E+01, 0.1507E+01, 0.1509E+01,& - 0.1512E+01, 0.1515E+01, 0.1518E+01, 0.1520E+01,& - 0.1523E+01, 0.1526E+01, 0.1529E+01, 0.1532E+01,& - 0.1535E+01, 0.1538E+01, 0.1541E+01, 0.1544E+01,& - 0.1547E+01, 0.1550E+01, 0.1553E+01, 0.1556E+01,& - 0.1559E+01, 0.1562E+01, 0.1566E+01, 0.1569E+01,& - 0.1572E+01, 0.1575E+01, 0.1579E+01, 0.1582E+01,& - 0.1586E+01, 0.1589E+01, 0.1593E+01, 0.1596E+01,& - 0.1600E+01, 0.1603E+01, 0.1607E+01, 0.1611E+01,& - 0.1615E+01, 0.1619E+01, 0.1623E+01, 0.1626E+01,& - 0.1630E+01, 0.1635E+01, 0.1639E+01, 0.1643E+01,& - 0.1647E+01, 0.1651E+01, 0.1656E+01, 0.1660E+01,& - 0.1665E+01, 0.1669E+01, 0.1674E+01, 0.1679E+01,& - 0.1684E+01, 0.1689E+01, 0.1694E+01, 0.1699E+01,& - 0.1704E+01, 0.1709E+01, 0.1715E+01, 0.1720E+01,& - 0.1726E+01, 0.1732E+01, 0.1738E+01, 0.1744E+01,& - 0.1750E+01, 0.1756E+01, 0.1763E+01, 0.1770E+01,& - 0.1777E+01, 0.1784E+01, 0.1791E+01, 0.1798E+01,& - 0.1806E+01, 0.1814E+01, 0.1823E+01, 0.1831E+01,& - 0.1840E+01, 0.1849E+01, 0.1859E+01, 0.1869E+01,& - 0.1879E+01, 0.1890E+01, 0.1902E+01, 0.1914E+01,& - 0.1927E+01, 0.1941E+01, 0.1955E+01, 0.1971E+01,& - 0.1987E+01, 0.2006E+01, 0.2025E+01, 0.2047E+01,& - 0.2072E+01, 0.2100E+01, 0.2133E+01, 0.2172E+01,& - 0.1000E-04, 0.1678E+00, 0.1957E+00, 0.2145E+00/) - xcw(:, 13) = (/& - 0.1000E-04, 0.1678E+00, 0.1957E+00, 0.2145E+00,& - 0.2292E+00, 0.2414E+00, 0.2519E+00, 0.2612E+00,& - 0.2697E+00, 0.2774E+00, 0.2845E+00, 0.2911E+00,& - 0.2974E+00, 0.3033E+00, 0.3088E+00, 0.3141E+00,& - 0.3192E+00, 0.3241E+00, 0.3287E+00, 0.3333E+00,& - 0.3376E+00, 0.3418E+00, 0.3459E+00, 0.3498E+00,& - 0.3537E+00, 0.3574E+00, 0.3610E+00, 0.3645E+00,& - 0.3680E+00, 0.3714E+00, 0.3747E+00, 0.3779E+00,& - 0.3811E+00, 0.3841E+00, 0.3872E+00, 0.3902E+00,& - 0.3931E+00, 0.3960E+00, 0.3988E+00, 0.4016E+00,& - 0.4043E+00, 0.4070E+00, 0.4096E+00, 0.4122E+00,& - 0.4148E+00, 0.4174E+00, 0.4199E+00, 0.4223E+00,& - 0.4248E+00, 0.4272E+00, 0.4295E+00, 0.4319E+00,& - 0.4342E+00, 0.4365E+00, 0.4388E+00, 0.4410E+00,& - 0.4432E+00, 0.4454E+00, 0.4476E+00, 0.4497E+00,& - 0.4519E+00, 0.4540E+00, 0.4561E+00, 0.4581E+00,& - 0.4602E+00, 0.4622E+00, 0.4642E+00, 0.4662E+00,& - 0.4681E+00, 0.4701E+00, 0.4720E+00, 0.4740E+00,& - 0.4759E+00, 0.4778E+00, 0.4796E+00, 0.4815E+00,& - 0.4834E+00, 0.4852E+00, 0.4870E+00, 0.4888E+00,& - 0.4906E+00, 0.4924E+00, 0.4942E+00, 0.4959E+00,& - 0.4977E+00, 0.4994E+00, 0.5011E+00, 0.5028E+00,& - 0.5046E+00, 0.5062E+00, 0.5079E+00, 0.5096E+00,& - 0.5112E+00, 0.5129E+00, 0.5145E+00, 0.5161E+00,& - 0.5178E+00, 0.5194E+00, 0.5210E+00, 0.5226E+00,& - 0.5242E+00, 0.5257E+00, 0.5273E+00, 0.5289E+00,& - 0.5304E+00, 0.5320E+00, 0.5335E+00, 0.5350E+00,& - 0.5365E+00, 0.5381E+00, 0.5396E+00, 0.5411E+00,& - 0.5426E+00, 0.5441E+00, 0.5455E+00, 0.5470E+00,& - 0.5485E+00, 0.5500E+00, 0.5514E+00, 0.5528E+00,& - 0.5543E+00, 0.5557E+00, 0.5571E+00, 0.5586E+00,& - 0.5600E+00, 0.5614E+00, 0.5628E+00, 0.5642E+00,& - 0.5656E+00, 0.5670E+00, 0.5684E+00, 0.5697E+00,& - 0.5711E+00, 0.5725E+00, 0.5738E+00, 0.5752E+00,& - 0.5765E+00, 0.5779E+00, 0.5792E+00, 0.5806E+00,& - 0.5819E+00, 0.5833E+00, 0.5846E+00, 0.5859E+00,& - 0.5872E+00, 0.5885E+00, 0.5899E+00, 0.5912E+00,& - 0.5924E+00, 0.5938E+00, 0.5950E+00, 0.5963E+00,& - 0.5976E+00, 0.5989E+00, 0.6002E+00, 0.6015E+00,& - 0.6027E+00, 0.6040E+00, 0.6052E+00, 0.6065E+00,& - 0.6077E+00, 0.6090E+00, 0.6103E+00, 0.6115E+00,& - 0.6127E+00, 0.6140E+00, 0.6152E+00, 0.6164E+00,& - 0.6177E+00, 0.6189E+00, 0.6201E+00, 0.6213E+00,& - 0.6225E+00, 0.6238E+00, 0.6250E+00, 0.6262E+00,& - 0.6274E+00, 0.6286E+00, 0.6298E+00, 0.6310E+00,& - 0.6322E+00, 0.6334E+00, 0.6345E+00, 0.6357E+00,& - 0.6369E+00, 0.6381E+00, 0.6393E+00, 0.6404E+00,& - 0.6416E+00, 0.6427E+00, 0.6439E+00, 0.6451E+00,& - 0.6462E+00, 0.6474E+00, 0.6485E+00, 0.6497E+00,& - 0.6509E+00, 0.6520E+00, 0.6531E+00, 0.6543E+00,& - 0.6554E+00, 0.6566E+00, 0.6577E+00, 0.6589E+00,& - 0.6600E+00, 0.6611E+00, 0.6623E+00, 0.6634E+00,& - 0.6645E+00, 0.6656E+00, 0.6667E+00, 0.6679E+00,& - 0.6690E+00, 0.6701E+00, 0.6712E+00, 0.6723E+00,& - 0.6734E+00, 0.6745E+00, 0.6756E+00, 0.6767E+00,& - 0.6778E+00, 0.6789E+00, 0.6801E+00, 0.6812E+00,& - 0.6822E+00, 0.6833E+00, 0.6844E+00, 0.6855E+00,& - 0.6866E+00, 0.6877E+00, 0.6888E+00, 0.6899E+00,& - 0.6909E+00, 0.6920E+00, 0.6931E+00, 0.6942E+00,& - 0.6952E+00, 0.6963E+00, 0.6974E+00, 0.6985E+00,& - 0.6995E+00, 0.7006E+00, 0.7017E+00, 0.7028E+00,& - 0.7038E+00, 0.7049E+00, 0.7059E+00, 0.7070E+00,& - 0.7081E+00, 0.7091E+00, 0.7101E+00, 0.7112E+00,& - 0.7123E+00, 0.7133E+00, 0.7143E+00, 0.7154E+00,& - 0.7165E+00, 0.7175E+00, 0.7185E+00, 0.7196E+00,& - 0.7206E+00, 0.7217E+00, 0.7227E+00, 0.7238E+00,& - 0.7248E+00, 0.7258E+00, 0.7269E+00, 0.7279E+00,& - 0.7289E+00, 0.7300E+00, 0.7310E+00, 0.7320E+00,& - 0.7331E+00, 0.7341E+00, 0.7351E+00, 0.7362E+00,& - 0.7372E+00, 0.7382E+00, 0.7392E+00, 0.7402E+00,& - 0.7413E+00, 0.7423E+00, 0.7433E+00, 0.7443E+00,& - 0.7454E+00, 0.7464E+00, 0.7474E+00, 0.7484E+00,& - 0.7494E+00, 0.7505E+00, 0.7514E+00, 0.7524E+00,& - 0.7535E+00, 0.7545E+00, 0.7555E+00, 0.7565E+00,& - 0.7575E+00, 0.7585E+00, 0.7595E+00, 0.7605E+00,& - 0.7615E+00, 0.7625E+00, 0.7636E+00, 0.7645E+00,& - 0.7655E+00, 0.7666E+00, 0.7675E+00, 0.7686E+00,& - 0.7696E+00, 0.7705E+00, 0.7716E+00, 0.7725E+00,& - 0.7736E+00, 0.7745E+00, 0.7755E+00, 0.7765E+00,& - 0.7775E+00, 0.7785E+00, 0.7795E+00, 0.7805E+00,& - 0.7815E+00, 0.7825E+00, 0.7835E+00, 0.7845E+00,& - 0.7855E+00, 0.7864E+00, 0.7874E+00, 0.7884E+00,& - 0.7894E+00, 0.7904E+00, 0.7914E+00, 0.7924E+00,& - 0.7934E+00, 0.7943E+00, 0.7953E+00, 0.7963E+00,& - 0.7973E+00, 0.7983E+00, 0.7993E+00, 0.8002E+00,& - 0.8013E+00, 0.8022E+00, 0.8032E+00, 0.8042E+00,& - 0.8051E+00, 0.8061E+00, 0.8071E+00, 0.8081E+00,& - 0.8091E+00, 0.8101E+00, 0.8110E+00, 0.8120E+00,& - 0.8130E+00, 0.8140E+00, 0.8150E+00, 0.8159E+00,& - 0.8169E+00, 0.8179E+00, 0.8189E+00, 0.8198E+00,& - 0.8208E+00, 0.8218E+00, 0.8228E+00, 0.8237E+00,& - 0.8247E+00, 0.8257E+00, 0.8267E+00, 0.8276E+00,& - 0.8286E+00, 0.8296E+00, 0.8305E+00, 0.8315E+00,& - 0.8325E+00, 0.8335E+00, 0.8344E+00, 0.8354E+00,& - 0.8364E+00, 0.8374E+00, 0.8383E+00, 0.8393E+00,& - 0.8403E+00, 0.8413E+00, 0.8422E+00, 0.8432E+00,& - 0.8442E+00, 0.8451E+00, 0.8461E+00, 0.8471E+00,& - 0.8480E+00, 0.8490E+00, 0.8500E+00, 0.8509E+00,& - 0.8519E+00, 0.8529E+00, 0.8539E+00, 0.8548E+00,& - 0.8558E+00, 0.8568E+00, 0.8578E+00, 0.8587E+00,& - 0.8597E+00, 0.8606E+00, 0.8616E+00, 0.8626E+00,& - 0.8636E+00, 0.8645E+00, 0.8655E+00, 0.8665E+00,& - 0.8675E+00, 0.8684E+00, 0.8694E+00, 0.8703E+00,& - 0.8713E+00, 0.8723E+00, 0.8732E+00, 0.8742E+00,& - 0.8752E+00, 0.8762E+00, 0.8771E+00, 0.8781E+00,& - 0.8791E+00, 0.8801E+00, 0.8810E+00, 0.8820E+00,& - 0.8830E+00, 0.8840E+00, 0.8849E+00, 0.8859E+00,& - 0.8868E+00, 0.8878E+00, 0.8888E+00, 0.8898E+00,& - 0.8907E+00, 0.8917E+00, 0.8927E+00, 0.8936E+00,& - 0.8946E+00, 0.8956E+00, 0.8966E+00, 0.8975E+00,& - 0.8985E+00, 0.8995E+00, 0.9005E+00, 0.9014E+00,& - 0.9024E+00, 0.9034E+00, 0.9044E+00, 0.9053E+00,& - 0.9063E+00, 0.9073E+00, 0.9082E+00, 0.9093E+00,& - 0.9102E+00, 0.9112E+00, 0.9122E+00, 0.9132E+00,& - 0.9141E+00, 0.9151E+00, 0.9161E+00, 0.9171E+00,& - 0.9180E+00, 0.9190E+00, 0.9200E+00, 0.9210E+00,& - 0.9220E+00, 0.9229E+00, 0.9239E+00, 0.9249E+00,& - 0.9259E+00, 0.9269E+00, 0.9279E+00, 0.9288E+00,& - 0.9298E+00, 0.9308E+00, 0.9318E+00, 0.9328E+00,& - 0.9337E+00, 0.9348E+00, 0.9357E+00, 0.9367E+00,& - 0.9377E+00, 0.9387E+00, 0.9397E+00, 0.9407E+00,& - 0.9417E+00, 0.9426E+00, 0.9437E+00, 0.9446E+00,& - 0.9456E+00, 0.9466E+00, 0.9476E+00, 0.9486E+00,& - 0.9496E+00, 0.9506E+00, 0.9516E+00, 0.9525E+00,& - 0.9536E+00, 0.9545E+00, 0.9556E+00, 0.9565E+00,& - 0.9575E+00, 0.9585E+00, 0.9595E+00, 0.9605E+00,& - 0.9615E+00, 0.9625E+00, 0.9635E+00, 0.9645E+00,& - 0.9655E+00, 0.9665E+00, 0.9675E+00, 0.9685E+00,& - 0.9695E+00, 0.9706E+00, 0.9714E+00, 0.9725E+00,& - 0.9736E+00, 0.9746E+00, 0.9756E+00, 0.9766E+00,& - 0.9776E+00, 0.9786E+00, 0.9796E+00, 0.9806E+00,& - 0.9816E+00, 0.9826E+00, 0.9837E+00, 0.9847E+00,& - 0.9857E+00, 0.9867E+00, 0.9877E+00, 0.9887E+00,& - 0.9898E+00, 0.9908E+00, 0.9918E+00, 0.9928E+00,& - 0.9938E+00, 0.9948E+00, 0.9959E+00, 0.9969E+00,& - 0.9979E+00, 0.9990E+00, 0.1000E+01, 0.1001E+01,& - 0.1002E+01, 0.1003E+01, 0.1004E+01, 0.1005E+01,& - 0.1006E+01, 0.1007E+01, 0.1008E+01, 0.1009E+01,& - 0.1010E+01, 0.1011E+01, 0.1012E+01, 0.1013E+01,& - 0.1014E+01, 0.1015E+01, 0.1017E+01, 0.1018E+01,& - 0.1019E+01, 0.1020E+01, 0.1021E+01, 0.1022E+01,& - 0.1023E+01, 0.1024E+01, 0.1025E+01, 0.1026E+01,& - 0.1027E+01, 0.1028E+01, 0.1029E+01, 0.1030E+01,& - 0.1031E+01, 0.1032E+01, 0.1033E+01, 0.1034E+01,& - 0.1035E+01, 0.1036E+01, 0.1038E+01, 0.1039E+01,& - 0.1040E+01, 0.1041E+01, 0.1042E+01, 0.1043E+01,& - 0.1044E+01, 0.1045E+01, 0.1046E+01, 0.1047E+01,& - 0.1048E+01, 0.1049E+01, 0.1050E+01, 0.1051E+01,& - 0.1052E+01, 0.1054E+01, 0.1055E+01, 0.1056E+01,& - 0.1057E+01, 0.1058E+01, 0.1059E+01, 0.1060E+01,& - 0.1061E+01, 0.1062E+01, 0.1063E+01, 0.1064E+01,& - 0.1066E+01, 0.1067E+01, 0.1068E+01, 0.1069E+01,& - 0.1070E+01, 0.1071E+01, 0.1072E+01, 0.1073E+01,& - 0.1074E+01, 0.1075E+01, 0.1076E+01, 0.1078E+01,& - 0.1079E+01, 0.1080E+01, 0.1081E+01, 0.1082E+01,& - 0.1083E+01, 0.1084E+01, 0.1085E+01, 0.1086E+01,& - 0.1088E+01, 0.1089E+01, 0.1090E+01, 0.1091E+01,& - 0.1092E+01, 0.1093E+01, 0.1094E+01, 0.1096E+01,& - 0.1097E+01, 0.1098E+01, 0.1099E+01, 0.1100E+01,& - 0.1101E+01, 0.1102E+01, 0.1103E+01, 0.1105E+01,& - 0.1106E+01, 0.1107E+01, 0.1108E+01, 0.1109E+01,& - 0.1110E+01, 0.1111E+01, 0.1113E+01, 0.1114E+01,& - 0.1115E+01, 0.1116E+01, 0.1117E+01, 0.1118E+01,& - 0.1120E+01, 0.1121E+01, 0.1122E+01, 0.1123E+01,& - 0.1124E+01, 0.1126E+01, 0.1127E+01, 0.1128E+01,& - 0.1129E+01, 0.1130E+01, 0.1131E+01, 0.1133E+01,& - 0.1134E+01, 0.1135E+01, 0.1136E+01, 0.1137E+01,& - 0.1139E+01, 0.1140E+01, 0.1141E+01, 0.1142E+01,& - 0.1143E+01, 0.1145E+01, 0.1146E+01, 0.1147E+01,& - 0.1148E+01, 0.1149E+01, 0.1151E+01, 0.1152E+01,& - 0.1153E+01, 0.1154E+01, 0.1156E+01, 0.1157E+01,& - 0.1158E+01, 0.1159E+01, 0.1161E+01, 0.1162E+01,& - 0.1163E+01, 0.1164E+01, 0.1165E+01, 0.1167E+01,& - 0.1168E+01, 0.1169E+01, 0.1171E+01, 0.1172E+01,& - 0.1173E+01, 0.1174E+01, 0.1176E+01, 0.1177E+01,& - 0.1178E+01, 0.1179E+01, 0.1181E+01, 0.1182E+01,& - 0.1183E+01, 0.1185E+01, 0.1186E+01, 0.1187E+01,& - 0.1188E+01, 0.1190E+01, 0.1191E+01, 0.1192E+01,& - 0.1194E+01, 0.1195E+01, 0.1196E+01, 0.1198E+01,& - 0.1199E+01, 0.1200E+01, 0.1201E+01, 0.1203E+01,& - 0.1204E+01, 0.1205E+01, 0.1207E+01, 0.1208E+01,& - 0.1209E+01, 0.1211E+01, 0.1212E+01, 0.1213E+01,& - 0.1215E+01, 0.1216E+01, 0.1218E+01, 0.1219E+01,& - 0.1220E+01, 0.1222E+01, 0.1223E+01, 0.1224E+01,& - 0.1226E+01, 0.1227E+01, 0.1229E+01, 0.1230E+01,& - 0.1231E+01, 0.1233E+01, 0.1234E+01, 0.1236E+01,& - 0.1237E+01, 0.1238E+01, 0.1240E+01, 0.1241E+01,& - 0.1243E+01, 0.1244E+01, 0.1245E+01, 0.1247E+01,& - 0.1248E+01, 0.1250E+01, 0.1251E+01, 0.1253E+01,& - 0.1254E+01, 0.1256E+01, 0.1257E+01, 0.1259E+01,& - 0.1260E+01, 0.1261E+01, 0.1263E+01, 0.1264E+01,& - 0.1266E+01, 0.1267E+01, 0.1269E+01, 0.1270E+01,& - 0.1272E+01, 0.1273E+01, 0.1275E+01, 0.1276E+01,& - 0.1278E+01, 0.1280E+01, 0.1281E+01, 0.1283E+01,& - 0.1284E+01, 0.1286E+01, 0.1287E+01, 0.1289E+01,& - 0.1290E+01, 0.1292E+01, 0.1293E+01, 0.1295E+01,& - 0.1297E+01, 0.1298E+01, 0.1300E+01, 0.1301E+01,& - 0.1303E+01, 0.1305E+01, 0.1306E+01, 0.1308E+01,& - 0.1309E+01, 0.1311E+01, 0.1313E+01, 0.1314E+01,& - 0.1316E+01, 0.1318E+01, 0.1319E+01, 0.1321E+01,& - 0.1323E+01, 0.1324E+01, 0.1326E+01, 0.1328E+01,& - 0.1329E+01, 0.1331E+01, 0.1333E+01, 0.1334E+01,& - 0.1336E+01, 0.1338E+01, 0.1340E+01, 0.1341E+01,& - 0.1343E+01, 0.1345E+01, 0.1347E+01, 0.1348E+01,& - 0.1350E+01, 0.1352E+01, 0.1354E+01, 0.1356E+01,& - 0.1357E+01, 0.1359E+01, 0.1361E+01, 0.1363E+01,& - 0.1365E+01, 0.1366E+01, 0.1368E+01, 0.1370E+01,& - 0.1372E+01, 0.1374E+01, 0.1376E+01, 0.1378E+01,& - 0.1380E+01, 0.1382E+01, 0.1383E+01, 0.1385E+01,& - 0.1387E+01, 0.1389E+01, 0.1391E+01, 0.1393E+01,& - 0.1395E+01, 0.1397E+01, 0.1399E+01, 0.1401E+01,& - 0.1403E+01, 0.1405E+01, 0.1407E+01, 0.1409E+01,& - 0.1411E+01, 0.1413E+01, 0.1415E+01, 0.1417E+01,& - 0.1419E+01, 0.1422E+01, 0.1424E+01, 0.1426E+01,& - 0.1428E+01, 0.1430E+01, 0.1432E+01, 0.1434E+01,& - 0.1437E+01, 0.1439E+01, 0.1441E+01, 0.1443E+01,& - 0.1445E+01, 0.1448E+01, 0.1450E+01, 0.1452E+01,& - 0.1454E+01, 0.1457E+01, 0.1459E+01, 0.1461E+01,& - 0.1464E+01, 0.1466E+01, 0.1468E+01, 0.1471E+01,& - 0.1473E+01, 0.1475E+01, 0.1478E+01, 0.1480E+01,& - 0.1483E+01, 0.1485E+01, 0.1488E+01, 0.1490E+01,& - 0.1493E+01, 0.1495E+01, 0.1498E+01, 0.1501E+01,& - 0.1503E+01, 0.1506E+01, 0.1508E+01, 0.1511E+01,& - 0.1514E+01, 0.1516E+01, 0.1519E+01, 0.1522E+01,& - 0.1525E+01, 0.1527E+01, 0.1530E+01, 0.1533E+01,& - 0.1536E+01, 0.1539E+01, 0.1542E+01, 0.1544E+01,& - 0.1547E+01, 0.1550E+01, 0.1553E+01, 0.1556E+01,& - 0.1559E+01, 0.1562E+01, 0.1566E+01, 0.1569E+01,& - 0.1572E+01, 0.1575E+01, 0.1578E+01, 0.1582E+01,& - 0.1585E+01, 0.1588E+01, 0.1591E+01, 0.1595E+01,& - 0.1598E+01, 0.1602E+01, 0.1605E+01, 0.1609E+01,& - 0.1612E+01, 0.1616E+01, 0.1619E+01, 0.1623E+01,& - 0.1627E+01, 0.1631E+01, 0.1634E+01, 0.1638E+01,& - 0.1642E+01, 0.1646E+01, 0.1650E+01, 0.1654E+01,& - 0.1658E+01, 0.1662E+01, 0.1667E+01, 0.1671E+01,& - 0.1675E+01, 0.1680E+01, 0.1684E+01, 0.1689E+01,& - 0.1693E+01, 0.1698E+01, 0.1703E+01, 0.1708E+01,& - 0.1712E+01, 0.1717E+01, 0.1723E+01, 0.1728E+01,& - 0.1733E+01, 0.1738E+01, 0.1744E+01, 0.1749E+01,& - 0.1755E+01, 0.1761E+01, 0.1767E+01, 0.1773E+01,& - 0.1779E+01, 0.1785E+01, 0.1791E+01, 0.1798E+01,& - 0.1805E+01, 0.1812E+01, 0.1819E+01, 0.1826E+01,& - 0.1833E+01, 0.1841E+01, 0.1849E+01, 0.1857E+01,& - 0.1866E+01, 0.1874E+01, 0.1883E+01, 0.1892E+01,& - 0.1902E+01, 0.1912E+01, 0.1922E+01, 0.1933E+01,& - 0.1945E+01, 0.1957E+01, 0.1969E+01, 0.1982E+01,& - 0.1996E+01, 0.2011E+01, 0.2027E+01, 0.2043E+01,& - 0.2062E+01, 0.2081E+01, 0.2103E+01, 0.2127E+01,& - 0.2153E+01, 0.2184E+01, 0.2219E+01, 0.2261E+01,& - 0.1000E-04, 0.1433E+00, 0.1698E+00, 0.1879E+00/) - xcw(:, 14) = (/& - 0.1000E-04, 0.1433E+00, 0.1698E+00, 0.1879E+00,& - 0.2020E+00, 0.2138E+00, 0.2241E+00, 0.2332E+00,& - 0.2415E+00, 0.2490E+00, 0.2560E+00, 0.2626E+00,& - 0.2687E+00, 0.2746E+00, 0.2801E+00, 0.2854E+00,& - 0.2904E+00, 0.2952E+00, 0.2999E+00, 0.3044E+00,& - 0.3087E+00, 0.3129E+00, 0.3169E+00, 0.3209E+00,& - 0.3247E+00, 0.3285E+00, 0.3320E+00, 0.3356E+00,& - 0.3391E+00, 0.3425E+00, 0.3458E+00, 0.3490E+00,& - 0.3522E+00, 0.3554E+00, 0.3584E+00, 0.3614E+00,& - 0.3644E+00, 0.3673E+00, 0.3701E+00, 0.3729E+00,& - 0.3757E+00, 0.3784E+00, 0.3811E+00, 0.3837E+00,& - 0.3863E+00, 0.3889E+00, 0.3915E+00, 0.3940E+00,& - 0.3964E+00, 0.3989E+00, 0.4013E+00, 0.4037E+00,& - 0.4060E+00, 0.4084E+00, 0.4107E+00, 0.4129E+00,& - 0.4152E+00, 0.4174E+00, 0.4196E+00, 0.4218E+00,& - 0.4239E+00, 0.4261E+00, 0.4282E+00, 0.4303E+00,& - 0.4324E+00, 0.4345E+00, 0.4365E+00, 0.4385E+00,& - 0.4406E+00, 0.4425E+00, 0.4445E+00, 0.4465E+00,& - 0.4484E+00, 0.4504E+00, 0.4523E+00, 0.4542E+00,& - 0.4561E+00, 0.4580E+00, 0.4598E+00, 0.4617E+00,& - 0.4635E+00, 0.4653E+00, 0.4672E+00, 0.4690E+00,& - 0.4707E+00, 0.4725E+00, 0.4743E+00, 0.4761E+00,& - 0.4778E+00, 0.4795E+00, 0.4812E+00, 0.4829E+00,& - 0.4847E+00, 0.4864E+00, 0.4880E+00, 0.4897E+00,& - 0.4914E+00, 0.4930E+00, 0.4947E+00, 0.4963E+00,& - 0.4979E+00, 0.4996E+00, 0.5012E+00, 0.5028E+00,& - 0.5044E+00, 0.5060E+00, 0.5076E+00, 0.5092E+00,& - 0.5107E+00, 0.5123E+00, 0.5138E+00, 0.5154E+00,& - 0.5169E+00, 0.5184E+00, 0.5200E+00, 0.5215E+00,& - 0.5230E+00, 0.5245E+00, 0.5260E+00, 0.5275E+00,& - 0.5290E+00, 0.5305E+00, 0.5319E+00, 0.5334E+00,& - 0.5349E+00, 0.5363E+00, 0.5378E+00, 0.5392E+00,& - 0.5406E+00, 0.5421E+00, 0.5435E+00, 0.5449E+00,& - 0.5464E+00, 0.5478E+00, 0.5492E+00, 0.5506E+00,& - 0.5520E+00, 0.5534E+00, 0.5548E+00, 0.5562E+00,& - 0.5575E+00, 0.5589E+00, 0.5603E+00, 0.5617E+00,& - 0.5630E+00, 0.5644E+00, 0.5657E+00, 0.5671E+00,& - 0.5684E+00, 0.5698E+00, 0.5711E+00, 0.5724E+00,& - 0.5738E+00, 0.5751E+00, 0.5764E+00, 0.5777E+00,& - 0.5791E+00, 0.5804E+00, 0.5817E+00, 0.5830E+00,& - 0.5843E+00, 0.5856E+00, 0.5869E+00, 0.5882E+00,& - 0.5895E+00, 0.5907E+00, 0.5920E+00, 0.5933E+00,& - 0.5945E+00, 0.5959E+00, 0.5971E+00, 0.5984E+00,& - 0.5996E+00, 0.6009E+00, 0.6022E+00, 0.6034E+00,& - 0.6046E+00, 0.6059E+00, 0.6072E+00, 0.6084E+00,& - 0.6096E+00, 0.6108E+00, 0.6121E+00, 0.6133E+00,& - 0.6145E+00, 0.6158E+00, 0.6170E+00, 0.6182E+00,& - 0.6195E+00, 0.6207E+00, 0.6219E+00, 0.6231E+00,& - 0.6243E+00, 0.6255E+00, 0.6267E+00, 0.6279E+00,& - 0.6291E+00, 0.6303E+00, 0.6315E+00, 0.6326E+00,& - 0.6339E+00, 0.6350E+00, 0.6363E+00, 0.6374E+00,& - 0.6386E+00, 0.6398E+00, 0.6409E+00, 0.6421E+00,& - 0.6433E+00, 0.6444E+00, 0.6456E+00, 0.6468E+00,& - 0.6480E+00, 0.6491E+00, 0.6503E+00, 0.6514E+00,& - 0.6526E+00, 0.6538E+00, 0.6549E+00, 0.6561E+00,& - 0.6572E+00, 0.6584E+00, 0.6595E+00, 0.6607E+00,& - 0.6618E+00, 0.6629E+00, 0.6641E+00, 0.6652E+00,& - 0.6663E+00, 0.6675E+00, 0.6686E+00, 0.6698E+00,& - 0.6709E+00, 0.6720E+00, 0.6731E+00, 0.6743E+00,& - 0.6754E+00, 0.6765E+00, 0.6776E+00, 0.6787E+00,& - 0.6798E+00, 0.6810E+00, 0.6821E+00, 0.6832E+00,& - 0.6843E+00, 0.6854E+00, 0.6866E+00, 0.6876E+00,& - 0.6888E+00, 0.6898E+00, 0.6910E+00, 0.6921E+00,& - 0.6932E+00, 0.6943E+00, 0.6954E+00, 0.6965E+00,& - 0.6975E+00, 0.6987E+00, 0.6998E+00, 0.7008E+00,& - 0.7019E+00, 0.7030E+00, 0.7041E+00, 0.7052E+00,& - 0.7063E+00, 0.7074E+00, 0.7084E+00, 0.7095E+00,& - 0.7107E+00, 0.7117E+00, 0.7128E+00, 0.7139E+00,& - 0.7149E+00, 0.7160E+00, 0.7171E+00, 0.7182E+00,& - 0.7193E+00, 0.7203E+00, 0.7214E+00, 0.7225E+00,& - 0.7235E+00, 0.7246E+00, 0.7257E+00, 0.7268E+00,& - 0.7278E+00, 0.7289E+00, 0.7300E+00, 0.7310E+00,& - 0.7321E+00, 0.7332E+00, 0.7342E+00, 0.7353E+00,& - 0.7363E+00, 0.7374E+00, 0.7384E+00, 0.7395E+00,& - 0.7406E+00, 0.7416E+00, 0.7427E+00, 0.7438E+00,& - 0.7448E+00, 0.7459E+00, 0.7469E+00, 0.7480E+00,& - 0.7490E+00, 0.7501E+00, 0.7511E+00, 0.7522E+00,& - 0.7532E+00, 0.7543E+00, 0.7553E+00, 0.7564E+00,& - 0.7574E+00, 0.7585E+00, 0.7595E+00, 0.7606E+00,& - 0.7616E+00, 0.7626E+00, 0.7637E+00, 0.7647E+00,& - 0.7658E+00, 0.7668E+00, 0.7678E+00, 0.7689E+00,& - 0.7699E+00, 0.7710E+00, 0.7720E+00, 0.7731E+00,& - 0.7741E+00, 0.7751E+00, 0.7762E+00, 0.7772E+00,& - 0.7783E+00, 0.7793E+00, 0.7803E+00, 0.7814E+00,& - 0.7824E+00, 0.7834E+00, 0.7845E+00, 0.7855E+00,& - 0.7865E+00, 0.7876E+00, 0.7886E+00, 0.7896E+00,& - 0.7907E+00, 0.7917E+00, 0.7927E+00, 0.7937E+00,& - 0.7948E+00, 0.7958E+00, 0.7969E+00, 0.7979E+00,& - 0.7989E+00, 0.8000E+00, 0.8010E+00, 0.8020E+00,& - 0.8030E+00, 0.8041E+00, 0.8051E+00, 0.8061E+00,& - 0.8071E+00, 0.8082E+00, 0.8092E+00, 0.8102E+00,& - 0.8113E+00, 0.8123E+00, 0.8133E+00, 0.8143E+00,& - 0.8154E+00, 0.8164E+00, 0.8174E+00, 0.8184E+00,& - 0.8195E+00, 0.8205E+00, 0.8215E+00, 0.8225E+00,& - 0.8236E+00, 0.8246E+00, 0.8256E+00, 0.8266E+00,& - 0.8277E+00, 0.8287E+00, 0.8297E+00, 0.8307E+00,& - 0.8318E+00, 0.8328E+00, 0.8338E+00, 0.8348E+00,& - 0.8359E+00, 0.8369E+00, 0.8379E+00, 0.8389E+00,& - 0.8400E+00, 0.8410E+00, 0.8420E+00, 0.8430E+00,& - 0.8441E+00, 0.8451E+00, 0.8461E+00, 0.8471E+00,& - 0.8482E+00, 0.8492E+00, 0.8502E+00, 0.8512E+00,& - 0.8522E+00, 0.8532E+00, 0.8543E+00, 0.8553E+00,& - 0.8563E+00, 0.8573E+00, 0.8584E+00, 0.8594E+00,& - 0.8604E+00, 0.8614E+00, 0.8625E+00, 0.8635E+00,& - 0.8645E+00, 0.8655E+00, 0.8666E+00, 0.8676E+00,& - 0.8686E+00, 0.8697E+00, 0.8707E+00, 0.8717E+00,& - 0.8727E+00, 0.8738E+00, 0.8748E+00, 0.8758E+00,& - 0.8768E+00, 0.8779E+00, 0.8789E+00, 0.8799E+00,& - 0.8809E+00, 0.8820E+00, 0.8830E+00, 0.8840E+00,& - 0.8851E+00, 0.8861E+00, 0.8871E+00, 0.8881E+00,& - 0.8892E+00, 0.8902E+00, 0.8913E+00, 0.8923E+00,& - 0.8933E+00, 0.8944E+00, 0.8954E+00, 0.8964E+00,& - 0.8974E+00, 0.8985E+00, 0.8995E+00, 0.9005E+00,& - 0.9016E+00, 0.9026E+00, 0.9036E+00, 0.9047E+00,& - 0.9057E+00, 0.9067E+00, 0.9078E+00, 0.9088E+00,& - 0.9099E+00, 0.9109E+00, 0.9119E+00, 0.9130E+00,& - 0.9140E+00, 0.9150E+00, 0.9161E+00, 0.9171E+00,& - 0.9181E+00, 0.9192E+00, 0.9203E+00, 0.9213E+00,& - 0.9223E+00, 0.9234E+00, 0.9244E+00, 0.9254E+00,& - 0.9265E+00, 0.9276E+00, 0.9286E+00, 0.9296E+00,& - 0.9307E+00, 0.9317E+00, 0.9328E+00, 0.9338E+00,& - 0.9348E+00, 0.9359E+00, 0.9370E+00, 0.9380E+00,& - 0.9390E+00, 0.9401E+00, 0.9412E+00, 0.9422E+00,& - 0.9433E+00, 0.9443E+00, 0.9454E+00, 0.9464E+00,& - 0.9475E+00, 0.9485E+00, 0.9496E+00, 0.9507E+00,& - 0.9517E+00, 0.9528E+00, 0.9538E+00, 0.9549E+00,& - 0.9559E+00, 0.9570E+00, 0.9580E+00, 0.9591E+00,& - 0.9602E+00, 0.9612E+00, 0.9623E+00, 0.9634E+00,& - 0.9644E+00, 0.9655E+00, 0.9666E+00, 0.9676E+00,& - 0.9687E+00, 0.9698E+00, 0.9708E+00, 0.9719E+00,& - 0.9730E+00, 0.9741E+00, 0.9751E+00, 0.9762E+00,& - 0.9773E+00, 0.9784E+00, 0.9794E+00, 0.9805E+00,& - 0.9816E+00, 0.9827E+00, 0.9838E+00, 0.9848E+00,& - 0.9859E+00, 0.9870E+00, 0.9881E+00, 0.9892E+00,& - 0.9902E+00, 0.9913E+00, 0.9924E+00, 0.9935E+00,& - 0.9946E+00, 0.9957E+00, 0.9968E+00, 0.9979E+00,& - 0.9989E+00, 0.1000E+01, 0.1001E+01, 0.1002E+01,& - 0.1003E+01, 0.1004E+01, 0.1006E+01, 0.1007E+01,& - 0.1008E+01, 0.1009E+01, 0.1010E+01, 0.1011E+01,& - 0.1012E+01, 0.1013E+01, 0.1014E+01, 0.1015E+01,& - 0.1017E+01, 0.1018E+01, 0.1019E+01, 0.1020E+01,& - 0.1021E+01, 0.1022E+01, 0.1023E+01, 0.1024E+01,& - 0.1025E+01, 0.1027E+01, 0.1028E+01, 0.1029E+01,& - 0.1030E+01, 0.1031E+01, 0.1032E+01, 0.1033E+01,& - 0.1034E+01, 0.1036E+01, 0.1037E+01, 0.1038E+01,& - 0.1039E+01, 0.1040E+01, 0.1041E+01, 0.1042E+01,& - 0.1043E+01, 0.1045E+01, 0.1046E+01, 0.1047E+01,& - 0.1048E+01, 0.1049E+01, 0.1050E+01, 0.1051E+01,& - 0.1053E+01, 0.1054E+01, 0.1055E+01, 0.1056E+01,& - 0.1057E+01, 0.1058E+01, 0.1060E+01, 0.1061E+01,& - 0.1062E+01, 0.1063E+01, 0.1064E+01, 0.1065E+01,& - 0.1066E+01, 0.1068E+01, 0.1069E+01, 0.1070E+01,& - 0.1071E+01, 0.1072E+01, 0.1073E+01, 0.1075E+01,& - 0.1076E+01, 0.1077E+01, 0.1078E+01, 0.1079E+01,& - 0.1081E+01, 0.1082E+01, 0.1083E+01, 0.1084E+01,& - 0.1085E+01, 0.1086E+01, 0.1088E+01, 0.1089E+01,& - 0.1090E+01, 0.1091E+01, 0.1092E+01, 0.1094E+01,& - 0.1095E+01, 0.1096E+01, 0.1097E+01, 0.1098E+01,& - 0.1100E+01, 0.1101E+01, 0.1102E+01, 0.1103E+01,& - 0.1105E+01, 0.1106E+01, 0.1107E+01, 0.1108E+01,& - 0.1109E+01, 0.1111E+01, 0.1112E+01, 0.1113E+01,& - 0.1114E+01, 0.1115E+01, 0.1117E+01, 0.1118E+01,& - 0.1119E+01, 0.1120E+01, 0.1122E+01, 0.1123E+01,& - 0.1124E+01, 0.1125E+01, 0.1127E+01, 0.1128E+01,& - 0.1129E+01, 0.1130E+01, 0.1132E+01, 0.1133E+01,& - 0.1134E+01, 0.1135E+01, 0.1137E+01, 0.1138E+01,& - 0.1139E+01, 0.1141E+01, 0.1142E+01, 0.1143E+01,& - 0.1144E+01, 0.1146E+01, 0.1147E+01, 0.1148E+01,& - 0.1150E+01, 0.1151E+01, 0.1152E+01, 0.1153E+01,& - 0.1155E+01, 0.1156E+01, 0.1157E+01, 0.1159E+01,& - 0.1160E+01, 0.1161E+01, 0.1163E+01, 0.1164E+01,& - 0.1165E+01, 0.1166E+01, 0.1168E+01, 0.1169E+01,& - 0.1170E+01, 0.1172E+01, 0.1173E+01, 0.1174E+01,& - 0.1176E+01, 0.1177E+01, 0.1178E+01, 0.1180E+01,& - 0.1181E+01, 0.1183E+01, 0.1184E+01, 0.1185E+01,& - 0.1187E+01, 0.1188E+01, 0.1189E+01, 0.1191E+01,& - 0.1192E+01, 0.1193E+01, 0.1195E+01, 0.1196E+01,& - 0.1198E+01, 0.1199E+01, 0.1200E+01, 0.1202E+01,& - 0.1203E+01, 0.1205E+01, 0.1206E+01, 0.1207E+01,& - 0.1209E+01, 0.1210E+01, 0.1212E+01, 0.1213E+01,& - 0.1214E+01, 0.1216E+01, 0.1217E+01, 0.1219E+01,& - 0.1220E+01, 0.1222E+01, 0.1223E+01, 0.1224E+01,& - 0.1226E+01, 0.1227E+01, 0.1229E+01, 0.1230E+01,& - 0.1232E+01, 0.1233E+01, 0.1235E+01, 0.1236E+01,& - 0.1238E+01, 0.1239E+01, 0.1241E+01, 0.1242E+01,& - 0.1244E+01, 0.1245E+01, 0.1247E+01, 0.1248E+01,& - 0.1250E+01, 0.1251E+01, 0.1253E+01, 0.1254E+01,& - 0.1256E+01, 0.1257E+01, 0.1259E+01, 0.1260E+01,& - 0.1262E+01, 0.1263E+01, 0.1265E+01, 0.1266E+01,& - 0.1268E+01, 0.1270E+01, 0.1271E+01, 0.1273E+01,& - 0.1274E+01, 0.1276E+01, 0.1277E+01, 0.1279E+01,& - 0.1281E+01, 0.1282E+01, 0.1284E+01, 0.1285E+01,& - 0.1287E+01, 0.1289E+01, 0.1290E+01, 0.1292E+01,& - 0.1293E+01, 0.1295E+01, 0.1297E+01, 0.1298E+01,& - 0.1300E+01, 0.1302E+01, 0.1303E+01, 0.1305E+01,& - 0.1307E+01, 0.1308E+01, 0.1310E+01, 0.1312E+01,& - 0.1313E+01, 0.1315E+01, 0.1317E+01, 0.1319E+01,& - 0.1320E+01, 0.1322E+01, 0.1324E+01, 0.1325E+01,& - 0.1327E+01, 0.1329E+01, 0.1331E+01, 0.1332E+01,& - 0.1334E+01, 0.1336E+01, 0.1338E+01, 0.1340E+01,& - 0.1341E+01, 0.1343E+01, 0.1345E+01, 0.1347E+01,& - 0.1349E+01, 0.1350E+01, 0.1352E+01, 0.1354E+01,& - 0.1356E+01, 0.1358E+01, 0.1360E+01, 0.1361E+01,& - 0.1363E+01, 0.1365E+01, 0.1367E+01, 0.1369E+01,& - 0.1371E+01, 0.1373E+01, 0.1375E+01, 0.1377E+01,& - 0.1379E+01, 0.1381E+01, 0.1382E+01, 0.1384E+01,& - 0.1386E+01, 0.1388E+01, 0.1390E+01, 0.1392E+01,& - 0.1394E+01, 0.1396E+01, 0.1398E+01, 0.1400E+01,& - 0.1402E+01, 0.1404E+01, 0.1407E+01, 0.1409E+01,& - 0.1411E+01, 0.1413E+01, 0.1415E+01, 0.1417E+01,& - 0.1419E+01, 0.1421E+01, 0.1423E+01, 0.1425E+01,& - 0.1428E+01, 0.1430E+01, 0.1432E+01, 0.1434E+01,& - 0.1436E+01, 0.1439E+01, 0.1441E+01, 0.1443E+01,& - 0.1445E+01, 0.1447E+01, 0.1450E+01, 0.1452E+01,& - 0.1454E+01, 0.1457E+01, 0.1459E+01, 0.1461E+01,& - 0.1464E+01, 0.1466E+01, 0.1468E+01, 0.1471E+01,& - 0.1473E+01, 0.1475E+01, 0.1478E+01, 0.1480E+01,& - 0.1483E+01, 0.1485E+01, 0.1488E+01, 0.1490E+01,& - 0.1493E+01, 0.1495E+01, 0.1498E+01, 0.1500E+01,& - 0.1503E+01, 0.1506E+01, 0.1508E+01, 0.1511E+01,& - 0.1513E+01, 0.1516E+01, 0.1519E+01, 0.1521E+01,& - 0.1524E+01, 0.1527E+01, 0.1530E+01, 0.1532E+01,& - 0.1535E+01, 0.1538E+01, 0.1541E+01, 0.1544E+01,& - 0.1547E+01, 0.1549E+01, 0.1552E+01, 0.1555E+01,& - 0.1558E+01, 0.1561E+01, 0.1564E+01, 0.1567E+01,& - 0.1570E+01, 0.1573E+01, 0.1577E+01, 0.1580E+01,& - 0.1583E+01, 0.1586E+01, 0.1589E+01, 0.1592E+01,& - 0.1596E+01, 0.1599E+01, 0.1602E+01, 0.1606E+01,& - 0.1609E+01, 0.1613E+01, 0.1616E+01, 0.1620E+01,& - 0.1623E+01, 0.1627E+01, 0.1630E+01, 0.1634E+01,& - 0.1637E+01, 0.1641E+01, 0.1645E+01, 0.1649E+01,& - 0.1653E+01, 0.1656E+01, 0.1660E+01, 0.1664E+01,& - 0.1668E+01, 0.1672E+01, 0.1676E+01, 0.1681E+01,& - 0.1685E+01, 0.1689E+01, 0.1693E+01, 0.1698E+01,& - 0.1702E+01, 0.1707E+01, 0.1711E+01, 0.1716E+01,& - 0.1720E+01, 0.1725E+01, 0.1730E+01, 0.1735E+01,& - 0.1740E+01, 0.1745E+01, 0.1750E+01, 0.1755E+01,& - 0.1760E+01, 0.1766E+01, 0.1771E+01, 0.1777E+01,& - 0.1782E+01, 0.1788E+01, 0.1794E+01, 0.1800E+01,& - 0.1806E+01, 0.1812E+01, 0.1819E+01, 0.1825E+01,& - 0.1832E+01, 0.1839E+01, 0.1846E+01, 0.1853E+01,& - 0.1860E+01, 0.1867E+01, 0.1875E+01, 0.1883E+01,& - 0.1891E+01, 0.1899E+01, 0.1908E+01, 0.1916E+01,& - 0.1925E+01, 0.1935E+01, 0.1944E+01, 0.1954E+01,& - 0.1965E+01, 0.1976E+01, 0.1987E+01, 0.1999E+01,& - 0.2011E+01, 0.2024E+01, 0.2037E+01, 0.2051E+01,& - 0.2066E+01, 0.2082E+01, 0.2099E+01, 0.2117E+01,& - 0.2137E+01, 0.2158E+01, 0.2181E+01, 0.2207E+01,& - 0.2236E+01, 0.2268E+01, 0.2306E+01, 0.2352E+01,& - 0.1000E-04, 0.1216E+00, 0.1465E+00, 0.1637E+00/) - xcw(:, 15) = (/& - 0.1000E-04, 0.1216E+00, 0.1465E+00, 0.1637E+00,& - 0.1772E+00, 0.1885E+00, 0.1985E+00, 0.2073E+00,& - 0.2153E+00, 0.2227E+00, 0.2296E+00, 0.2360E+00,& - 0.2420E+00, 0.2477E+00, 0.2531E+00, 0.2583E+00,& - 0.2633E+00, 0.2681E+00, 0.2727E+00, 0.2771E+00,& - 0.2814E+00, 0.2856E+00, 0.2896E+00, 0.2935E+00,& - 0.2973E+00, 0.3010E+00, 0.3046E+00, 0.3082E+00,& - 0.3117E+00, 0.3150E+00, 0.3184E+00, 0.3216E+00,& - 0.3248E+00, 0.3279E+00, 0.3309E+00, 0.3340E+00,& - 0.3369E+00, 0.3398E+00, 0.3427E+00, 0.3455E+00,& - 0.3483E+00, 0.3510E+00, 0.3537E+00, 0.3564E+00,& - 0.3590E+00, 0.3616E+00, 0.3641E+00, 0.3667E+00,& - 0.3691E+00, 0.3716E+00, 0.3740E+00, 0.3764E+00,& - 0.3788E+00, 0.3812E+00, 0.3835E+00, 0.3858E+00,& - 0.3881E+00, 0.3903E+00, 0.3926E+00, 0.3948E+00,& - 0.3970E+00, 0.3991E+00, 0.4013E+00, 0.4035E+00,& - 0.4056E+00, 0.4076E+00, 0.4097E+00, 0.4118E+00,& - 0.4138E+00, 0.4158E+00, 0.4179E+00, 0.4199E+00,& - 0.4218E+00, 0.4238E+00, 0.4257E+00, 0.4277E+00,& - 0.4296E+00, 0.4315E+00, 0.4334E+00, 0.4353E+00,& - 0.4372E+00, 0.4390E+00, 0.4409E+00, 0.4427E+00,& - 0.4446E+00, 0.4463E+00, 0.4481E+00, 0.4500E+00,& - 0.4517E+00, 0.4535E+00, 0.4552E+00, 0.4570E+00,& - 0.4587E+00, 0.4605E+00, 0.4622E+00, 0.4639E+00,& - 0.4656E+00, 0.4673E+00, 0.4690E+00, 0.4707E+00,& - 0.4723E+00, 0.4740E+00, 0.4757E+00, 0.4773E+00,& - 0.4789E+00, 0.4805E+00, 0.4822E+00, 0.4838E+00,& - 0.4854E+00, 0.4870E+00, 0.4885E+00, 0.4901E+00,& - 0.4917E+00, 0.4933E+00, 0.4949E+00, 0.4964E+00,& - 0.4979E+00, 0.4995E+00, 0.5011E+00, 0.5026E+00,& - 0.5041E+00, 0.5056E+00, 0.5071E+00, 0.5086E+00,& - 0.5101E+00, 0.5117E+00, 0.5131E+00, 0.5146E+00,& - 0.5161E+00, 0.5176E+00, 0.5190E+00, 0.5205E+00,& - 0.5220E+00, 0.5234E+00, 0.5249E+00, 0.5263E+00,& - 0.5278E+00, 0.5292E+00, 0.5306E+00, 0.5321E+00,& - 0.5335E+00, 0.5349E+00, 0.5363E+00, 0.5377E+00,& - 0.5391E+00, 0.5405E+00, 0.5419E+00, 0.5433E+00,& - 0.5447E+00, 0.5461E+00, 0.5474E+00, 0.5488E+00,& - 0.5502E+00, 0.5516E+00, 0.5529E+00, 0.5543E+00,& - 0.5557E+00, 0.5570E+00, 0.5584E+00, 0.5597E+00,& - 0.5611E+00, 0.5624E+00, 0.5637E+00, 0.5651E+00,& - 0.5664E+00, 0.5677E+00, 0.5690E+00, 0.5704E+00,& - 0.5717E+00, 0.5730E+00, 0.5743E+00, 0.5756E+00,& - 0.5769E+00, 0.5782E+00, 0.5795E+00, 0.5808E+00,& - 0.5821E+00, 0.5834E+00, 0.5847E+00, 0.5860E+00,& - 0.5873E+00, 0.5885E+00, 0.5898E+00, 0.5911E+00,& - 0.5924E+00, 0.5936E+00, 0.5949E+00, 0.5962E+00,& - 0.5974E+00, 0.5987E+00, 0.5999E+00, 0.6012E+00,& - 0.6024E+00, 0.6037E+00, 0.6049E+00, 0.6062E+00,& - 0.6074E+00, 0.6086E+00, 0.6099E+00, 0.6111E+00,& - 0.6124E+00, 0.6136E+00, 0.6148E+00, 0.6161E+00,& - 0.6173E+00, 0.6185E+00, 0.6197E+00, 0.6209E+00,& - 0.6222E+00, 0.6234E+00, 0.6246E+00, 0.6258E+00,& - 0.6270E+00, 0.6282E+00, 0.6294E+00, 0.6306E+00,& - 0.6318E+00, 0.6330E+00, 0.6342E+00, 0.6354E+00,& - 0.6366E+00, 0.6378E+00, 0.6390E+00, 0.6402E+00,& - 0.6413E+00, 0.6425E+00, 0.6437E+00, 0.6449E+00,& - 0.6461E+00, 0.6473E+00, 0.6485E+00, 0.6496E+00,& - 0.6508E+00, 0.6520E+00, 0.6531E+00, 0.6543E+00,& - 0.6555E+00, 0.6567E+00, 0.6578E+00, 0.6590E+00,& - 0.6601E+00, 0.6613E+00, 0.6625E+00, 0.6636E+00,& - 0.6648E+00, 0.6659E+00, 0.6671E+00, 0.6683E+00,& - 0.6694E+00, 0.6706E+00, 0.6717E+00, 0.6729E+00,& - 0.6740E+00, 0.6751E+00, 0.6763E+00, 0.6774E+00,& - 0.6786E+00, 0.6797E+00, 0.6809E+00, 0.6820E+00,& - 0.6831E+00, 0.6843E+00, 0.6854E+00, 0.6866E+00,& - 0.6877E+00, 0.6888E+00, 0.6900E+00, 0.6911E+00,& - 0.6922E+00, 0.6934E+00, 0.6945E+00, 0.6956E+00,& - 0.6967E+00, 0.6979E+00, 0.6990E+00, 0.7001E+00,& - 0.7012E+00, 0.7024E+00, 0.7035E+00, 0.7046E+00,& - 0.7057E+00, 0.7068E+00, 0.7079E+00, 0.7090E+00,& - 0.7101E+00, 0.7113E+00, 0.7124E+00, 0.7135E+00,& - 0.7146E+00, 0.7157E+00, 0.7168E+00, 0.7179E+00,& - 0.7190E+00, 0.7201E+00, 0.7213E+00, 0.7224E+00,& - 0.7235E+00, 0.7246E+00, 0.7257E+00, 0.7268E+00,& - 0.7279E+00, 0.7290E+00, 0.7301E+00, 0.7312E+00,& - 0.7323E+00, 0.7334E+00, 0.7345E+00, 0.7356E+00,& - 0.7367E+00, 0.7378E+00, 0.7389E+00, 0.7400E+00,& - 0.7411E+00, 0.7422E+00, 0.7433E+00, 0.7444E+00,& - 0.7455E+00, 0.7466E+00, 0.7477E+00, 0.7487E+00,& - 0.7498E+00, 0.7509E+00, 0.7520E+00, 0.7531E+00,& - 0.7542E+00, 0.7553E+00, 0.7564E+00, 0.7575E+00,& - 0.7585E+00, 0.7596E+00, 0.7607E+00, 0.7618E+00,& - 0.7629E+00, 0.7640E+00, 0.7651E+00, 0.7662E+00,& - 0.7673E+00, 0.7683E+00, 0.7694E+00, 0.7705E+00,& - 0.7716E+00, 0.7727E+00, 0.7738E+00, 0.7748E+00,& - 0.7759E+00, 0.7770E+00, 0.7781E+00, 0.7791E+00,& - 0.7802E+00, 0.7813E+00, 0.7824E+00, 0.7835E+00,& - 0.7846E+00, 0.7857E+00, 0.7867E+00, 0.7878E+00,& - 0.7889E+00, 0.7900E+00, 0.7910E+00, 0.7921E+00,& - 0.7932E+00, 0.7943E+00, 0.7954E+00, 0.7964E+00,& - 0.7975E+00, 0.7986E+00, 0.7996E+00, 0.8007E+00,& - 0.8018E+00, 0.8029E+00, 0.8040E+00, 0.8051E+00,& - 0.8061E+00, 0.8072E+00, 0.8083E+00, 0.8094E+00,& - 0.8104E+00, 0.8115E+00, 0.8126E+00, 0.8137E+00,& - 0.8147E+00, 0.8158E+00, 0.8169E+00, 0.8180E+00,& - 0.8190E+00, 0.8201E+00, 0.8212E+00, 0.8223E+00,& - 0.8234E+00, 0.8244E+00, 0.8255E+00, 0.8266E+00,& - 0.8277E+00, 0.8287E+00, 0.8298E+00, 0.8309E+00,& - 0.8320E+00, 0.8330E+00, 0.8341E+00, 0.8352E+00,& - 0.8363E+00, 0.8374E+00, 0.8384E+00, 0.8395E+00,& - 0.8406E+00, 0.8417E+00, 0.8427E+00, 0.8438E+00,& - 0.8449E+00, 0.8460E+00, 0.8470E+00, 0.8481E+00,& - 0.8492E+00, 0.8503E+00, 0.8513E+00, 0.8524E+00,& - 0.8535E+00, 0.8546E+00, 0.8557E+00, 0.8568E+00,& - 0.8579E+00, 0.8589E+00, 0.8600E+00, 0.8611E+00,& - 0.8622E+00, 0.8632E+00, 0.8643E+00, 0.8654E+00,& - 0.8665E+00, 0.8676E+00, 0.8686E+00, 0.8697E+00,& - 0.8708E+00, 0.8719E+00, 0.8730E+00, 0.8740E+00,& - 0.8751E+00, 0.8763E+00, 0.8773E+00, 0.8784E+00,& - 0.8795E+00, 0.8806E+00, 0.8817E+00, 0.8828E+00,& - 0.8838E+00, 0.8849E+00, 0.8860E+00, 0.8871E+00,& - 0.8882E+00, 0.8893E+00, 0.8904E+00, 0.8914E+00,& - 0.8925E+00, 0.8936E+00, 0.8947E+00, 0.8958E+00,& - 0.8969E+00, 0.8980E+00, 0.8991E+00, 0.9002E+00,& - 0.9013E+00, 0.9024E+00, 0.9035E+00, 0.9046E+00,& - 0.9057E+00, 0.9068E+00, 0.9079E+00, 0.9090E+00,& - 0.9101E+00, 0.9111E+00, 0.9122E+00, 0.9133E+00,& - 0.9144E+00, 0.9155E+00, 0.9166E+00, 0.9177E+00,& - 0.9188E+00, 0.9199E+00, 0.9210E+00, 0.9221E+00,& - 0.9232E+00, 0.9244E+00, 0.9255E+00, 0.9266E+00,& - 0.9277E+00, 0.9288E+00, 0.9299E+00, 0.9310E+00,& - 0.9321E+00, 0.9332E+00, 0.9343E+00, 0.9354E+00,& - 0.9365E+00, 0.9377E+00, 0.9388E+00, 0.9399E+00,& - 0.9410E+00, 0.9421E+00, 0.9432E+00, 0.9443E+00,& - 0.9455E+00, 0.9466E+00, 0.9477E+00, 0.9488E+00,& - 0.9499E+00, 0.9511E+00, 0.9522E+00, 0.9533E+00,& - 0.9544E+00, 0.9556E+00, 0.9567E+00, 0.9578E+00,& - 0.9589E+00, 0.9601E+00, 0.9612E+00, 0.9623E+00,& - 0.9635E+00, 0.9646E+00, 0.9657E+00, 0.9668E+00,& - 0.9679E+00, 0.9691E+00, 0.9702E+00, 0.9713E+00,& - 0.9725E+00, 0.9736E+00, 0.9748E+00, 0.9759E+00,& - 0.9770E+00, 0.9782E+00, 0.9793E+00, 0.9805E+00,& - 0.9816E+00, 0.9828E+00, 0.9839E+00, 0.9851E+00,& - 0.9862E+00, 0.9874E+00, 0.9885E+00, 0.9896E+00,& - 0.9908E+00, 0.9919E+00, 0.9931E+00, 0.9943E+00,& - 0.9954E+00, 0.9966E+00, 0.9977E+00, 0.9989E+00,& - 0.1000E+01, 0.1001E+01, 0.1002E+01, 0.1004E+01,& - 0.1005E+01, 0.1006E+01, 0.1007E+01, 0.1008E+01,& - 0.1009E+01, 0.1011E+01, 0.1012E+01, 0.1013E+01,& - 0.1014E+01, 0.1015E+01, 0.1016E+01, 0.1018E+01,& - 0.1019E+01, 0.1020E+01, 0.1021E+01, 0.1022E+01,& - 0.1023E+01, 0.1025E+01, 0.1026E+01, 0.1027E+01,& - 0.1028E+01, 0.1029E+01, 0.1031E+01, 0.1032E+01,& - 0.1033E+01, 0.1034E+01, 0.1035E+01, 0.1037E+01,& - 0.1038E+01, 0.1039E+01, 0.1040E+01, 0.1041E+01,& - 0.1043E+01, 0.1044E+01, 0.1045E+01, 0.1046E+01,& - 0.1047E+01, 0.1049E+01, 0.1050E+01, 0.1051E+01,& - 0.1052E+01, 0.1053E+01, 0.1055E+01, 0.1056E+01,& - 0.1057E+01, 0.1058E+01, 0.1060E+01, 0.1061E+01,& - 0.1062E+01, 0.1063E+01, 0.1065E+01, 0.1066E+01,& - 0.1067E+01, 0.1068E+01, 0.1069E+01, 0.1071E+01,& - 0.1072E+01, 0.1073E+01, 0.1074E+01, 0.1076E+01,& - 0.1077E+01, 0.1078E+01, 0.1079E+01, 0.1081E+01,& - 0.1082E+01, 0.1083E+01, 0.1084E+01, 0.1086E+01,& - 0.1087E+01, 0.1088E+01, 0.1089E+01, 0.1091E+01,& - 0.1092E+01, 0.1093E+01, 0.1095E+01, 0.1096E+01,& - 0.1097E+01, 0.1098E+01, 0.1100E+01, 0.1101E+01,& - 0.1102E+01, 0.1103E+01, 0.1105E+01, 0.1106E+01,& - 0.1107E+01, 0.1109E+01, 0.1110E+01, 0.1111E+01,& - 0.1113E+01, 0.1114E+01, 0.1115E+01, 0.1116E+01,& - 0.1118E+01, 0.1119E+01, 0.1120E+01, 0.1122E+01,& - 0.1123E+01, 0.1124E+01, 0.1126E+01, 0.1127E+01,& - 0.1128E+01, 0.1130E+01, 0.1131E+01, 0.1132E+01,& - 0.1134E+01, 0.1135E+01, 0.1136E+01, 0.1138E+01,& - 0.1139E+01, 0.1140E+01, 0.1142E+01, 0.1143E+01,& - 0.1144E+01, 0.1146E+01, 0.1147E+01, 0.1148E+01,& - 0.1150E+01, 0.1151E+01, 0.1152E+01, 0.1154E+01,& - 0.1155E+01, 0.1157E+01, 0.1158E+01, 0.1159E+01,& - 0.1161E+01, 0.1162E+01, 0.1164E+01, 0.1165E+01,& - 0.1166E+01, 0.1168E+01, 0.1169E+01, 0.1170E+01,& - 0.1172E+01, 0.1173E+01, 0.1175E+01, 0.1176E+01,& - 0.1178E+01, 0.1179E+01, 0.1180E+01, 0.1182E+01,& - 0.1183E+01, 0.1185E+01, 0.1186E+01, 0.1187E+01,& - 0.1189E+01, 0.1190E+01, 0.1192E+01, 0.1193E+01,& - 0.1195E+01, 0.1196E+01, 0.1198E+01, 0.1199E+01,& - 0.1201E+01, 0.1202E+01, 0.1203E+01, 0.1205E+01,& - 0.1206E+01, 0.1208E+01, 0.1209E+01, 0.1211E+01,& - 0.1212E+01, 0.1214E+01, 0.1215E+01, 0.1217E+01,& - 0.1218E+01, 0.1220E+01, 0.1221E+01, 0.1223E+01,& - 0.1224E+01, 0.1226E+01, 0.1227E+01, 0.1229E+01,& - 0.1230E+01, 0.1232E+01, 0.1233E+01, 0.1235E+01,& - 0.1237E+01, 0.1238E+01, 0.1240E+01, 0.1241E+01,& - 0.1243E+01, 0.1244E+01, 0.1246E+01, 0.1247E+01,& - 0.1249E+01, 0.1251E+01, 0.1252E+01, 0.1254E+01,& - 0.1255E+01, 0.1257E+01, 0.1259E+01, 0.1260E+01,& - 0.1262E+01, 0.1263E+01, 0.1265E+01, 0.1267E+01,& - 0.1268E+01, 0.1270E+01, 0.1272E+01, 0.1273E+01,& - 0.1275E+01, 0.1276E+01, 0.1278E+01, 0.1280E+01,& - 0.1281E+01, 0.1283E+01, 0.1285E+01, 0.1286E+01,& - 0.1288E+01, 0.1290E+01, 0.1291E+01, 0.1293E+01,& - 0.1295E+01, 0.1297E+01, 0.1298E+01, 0.1300E+01,& - 0.1302E+01, 0.1303E+01, 0.1305E+01, 0.1307E+01,& - 0.1309E+01, 0.1310E+01, 0.1312E+01, 0.1314E+01,& - 0.1316E+01, 0.1317E+01, 0.1319E+01, 0.1321E+01,& - 0.1323E+01, 0.1325E+01, 0.1326E+01, 0.1328E+01,& - 0.1330E+01, 0.1332E+01, 0.1334E+01, 0.1335E+01,& - 0.1337E+01, 0.1339E+01, 0.1341E+01, 0.1343E+01,& - 0.1345E+01, 0.1347E+01, 0.1348E+01, 0.1350E+01,& - 0.1352E+01, 0.1354E+01, 0.1356E+01, 0.1358E+01,& - 0.1360E+01, 0.1362E+01, 0.1364E+01, 0.1366E+01,& - 0.1367E+01, 0.1369E+01, 0.1371E+01, 0.1373E+01,& - 0.1375E+01, 0.1377E+01, 0.1379E+01, 0.1381E+01,& - 0.1383E+01, 0.1385E+01, 0.1387E+01, 0.1389E+01,& - 0.1391E+01, 0.1393E+01, 0.1395E+01, 0.1398E+01,& - 0.1400E+01, 0.1402E+01, 0.1404E+01, 0.1406E+01,& - 0.1408E+01, 0.1410E+01, 0.1412E+01, 0.1414E+01,& - 0.1416E+01, 0.1419E+01, 0.1421E+01, 0.1423E+01,& - 0.1425E+01, 0.1427E+01, 0.1429E+01, 0.1432E+01,& - 0.1434E+01, 0.1436E+01, 0.1438E+01, 0.1441E+01,& - 0.1443E+01, 0.1445E+01, 0.1447E+01, 0.1450E+01,& - 0.1452E+01, 0.1454E+01, 0.1457E+01, 0.1459E+01,& - 0.1461E+01, 0.1464E+01, 0.1466E+01, 0.1468E+01,& - 0.1471E+01, 0.1473E+01, 0.1476E+01, 0.1478E+01,& - 0.1481E+01, 0.1483E+01, 0.1486E+01, 0.1488E+01,& - 0.1491E+01, 0.1493E+01, 0.1496E+01, 0.1498E+01,& - 0.1501E+01, 0.1503E+01, 0.1506E+01, 0.1508E+01,& - 0.1511E+01, 0.1514E+01, 0.1516E+01, 0.1519E+01,& - 0.1522E+01, 0.1524E+01, 0.1527E+01, 0.1530E+01,& - 0.1533E+01, 0.1535E+01, 0.1538E+01, 0.1541E+01,& - 0.1544E+01, 0.1547E+01, 0.1550E+01, 0.1552E+01,& - 0.1555E+01, 0.1558E+01, 0.1561E+01, 0.1564E+01,& - 0.1567E+01, 0.1570E+01, 0.1573E+01, 0.1576E+01,& - 0.1579E+01, 0.1582E+01, 0.1586E+01, 0.1589E+01,& - 0.1592E+01, 0.1595E+01, 0.1598E+01, 0.1602E+01,& - 0.1605E+01, 0.1608E+01, 0.1612E+01, 0.1615E+01,& - 0.1618E+01, 0.1622E+01, 0.1625E+01, 0.1629E+01,& - 0.1632E+01, 0.1636E+01, 0.1639E+01, 0.1643E+01,& - 0.1646E+01, 0.1650E+01, 0.1654E+01, 0.1658E+01,& - 0.1661E+01, 0.1665E+01, 0.1669E+01, 0.1673E+01,& - 0.1677E+01, 0.1681E+01, 0.1685E+01, 0.1689E+01,& - 0.1693E+01, 0.1697E+01, 0.1701E+01, 0.1706E+01,& - 0.1710E+01, 0.1714E+01, 0.1719E+01, 0.1723E+01,& - 0.1728E+01, 0.1732E+01, 0.1737E+01, 0.1742E+01,& - 0.1746E+01, 0.1751E+01, 0.1756E+01, 0.1761E+01,& - 0.1766E+01, 0.1771E+01, 0.1776E+01, 0.1781E+01,& - 0.1787E+01, 0.1792E+01, 0.1798E+01, 0.1803E+01,& - 0.1809E+01, 0.1815E+01, 0.1821E+01, 0.1826E+01,& - 0.1833E+01, 0.1839E+01, 0.1845E+01, 0.1851E+01,& - 0.1858E+01, 0.1865E+01, 0.1871E+01, 0.1878E+01,& - 0.1886E+01, 0.1893E+01, 0.1900E+01, 0.1908E+01,& - 0.1916E+01, 0.1924E+01, 0.1932E+01, 0.1940E+01,& - 0.1949E+01, 0.1958E+01, 0.1967E+01, 0.1976E+01,& - 0.1986E+01, 0.1996E+01, 0.2006E+01, 0.2017E+01,& - 0.2028E+01, 0.2040E+01, 0.2052E+01, 0.2065E+01,& - 0.2078E+01, 0.2091E+01, 0.2106E+01, 0.2121E+01,& - 0.2137E+01, 0.2154E+01, 0.2173E+01, 0.2192E+01,& - 0.2213E+01, 0.2236E+01, 0.2261E+01, 0.2288E+01,& - 0.2319E+01, 0.2354E+01, 0.2395E+01, 0.2444E+01,& - 0.1000E-04, 0.1025E+00, 0.1257E+00, 0.1418E+00/) - xcw(:, 16) = (/& - 0.1000E-04, 0.1025E+00, 0.1257E+00, 0.1418E+00,& - 0.1547E+00, 0.1655E+00, 0.1750E+00, 0.1835E+00,& - 0.1912E+00, 0.1983E+00, 0.2050E+00, 0.2112E+00,& - 0.2171E+00, 0.2227E+00, 0.2280E+00, 0.2330E+00,& - 0.2379E+00, 0.2426E+00, 0.2471E+00, 0.2515E+00,& - 0.2557E+00, 0.2598E+00, 0.2638E+00, 0.2676E+00,& - 0.2714E+00, 0.2751E+00, 0.2787E+00, 0.2822E+00,& - 0.2856E+00, 0.2889E+00, 0.2923E+00, 0.2955E+00,& - 0.2986E+00, 0.3018E+00, 0.3048E+00, 0.3078E+00,& - 0.3107E+00, 0.3136E+00, 0.3165E+00, 0.3193E+00,& - 0.3221E+00, 0.3248E+00, 0.3275E+00, 0.3302E+00,& - 0.3328E+00, 0.3354E+00, 0.3379E+00, 0.3405E+00,& - 0.3430E+00, 0.3455E+00, 0.3479E+00, 0.3503E+00,& - 0.3527E+00, 0.3551E+00, 0.3574E+00, 0.3597E+00,& - 0.3620E+00, 0.3643E+00, 0.3665E+00, 0.3688E+00,& - 0.3710E+00, 0.3732E+00, 0.3753E+00, 0.3775E+00,& - 0.3796E+00, 0.3817E+00, 0.3838E+00, 0.3859E+00,& - 0.3880E+00, 0.3900E+00, 0.3920E+00, 0.3941E+00,& - 0.3961E+00, 0.3980E+00, 0.4000E+00, 0.4020E+00,& - 0.4039E+00, 0.4059E+00, 0.4078E+00, 0.4097E+00,& - 0.4116E+00, 0.4135E+00, 0.4153E+00, 0.4172E+00,& - 0.4191E+00, 0.4209E+00, 0.4227E+00, 0.4245E+00,& - 0.4264E+00, 0.4281E+00, 0.4299E+00, 0.4317E+00,& - 0.4335E+00, 0.4352E+00, 0.4370E+00, 0.4387E+00,& - 0.4405E+00, 0.4422E+00, 0.4439E+00, 0.4456E+00,& - 0.4473E+00, 0.4490E+00, 0.4507E+00, 0.4524E+00,& - 0.4540E+00, 0.4557E+00, 0.4573E+00, 0.4589E+00,& - 0.4606E+00, 0.4622E+00, 0.4639E+00, 0.4654E+00,& - 0.4671E+00, 0.4687E+00, 0.4703E+00, 0.4718E+00,& - 0.4734E+00, 0.4750E+00, 0.4766E+00, 0.4782E+00,& - 0.4797E+00, 0.4813E+00, 0.4828E+00, 0.4844E+00,& - 0.4859E+00, 0.4874E+00, 0.4890E+00, 0.4905E+00,& - 0.4920E+00, 0.4935E+00, 0.4950E+00, 0.4965E+00,& - 0.4980E+00, 0.4995E+00, 0.5010E+00, 0.5025E+00,& - 0.5039E+00, 0.5054E+00, 0.5069E+00, 0.5083E+00,& - 0.5098E+00, 0.5113E+00, 0.5127E+00, 0.5142E+00,& - 0.5156E+00, 0.5170E+00, 0.5185E+00, 0.5199E+00,& - 0.5213E+00, 0.5227E+00, 0.5241E+00, 0.5256E+00,& - 0.5270E+00, 0.5284E+00, 0.5298E+00, 0.5312E+00,& - 0.5326E+00, 0.5339E+00, 0.5353E+00, 0.5367E+00,& - 0.5381E+00, 0.5395E+00, 0.5409E+00, 0.5422E+00,& - 0.5436E+00, 0.5450E+00, 0.5463E+00, 0.5477E+00,& - 0.5490E+00, 0.5504E+00, 0.5518E+00, 0.5531E+00,& - 0.5544E+00, 0.5558E+00, 0.5571E+00, 0.5584E+00,& - 0.5598E+00, 0.5611E+00, 0.5624E+00, 0.5638E+00,& - 0.5651E+00, 0.5664E+00, 0.5677E+00, 0.5690E+00,& - 0.5703E+00, 0.5716E+00, 0.5729E+00, 0.5742E+00,& - 0.5755E+00, 0.5769E+00, 0.5781E+00, 0.5794E+00,& - 0.5807E+00, 0.5820E+00, 0.5833E+00, 0.5846E+00,& - 0.5859E+00, 0.5871E+00, 0.5884E+00, 0.5897E+00,& - 0.5910E+00, 0.5922E+00, 0.5935E+00, 0.5948E+00,& - 0.5960E+00, 0.5973E+00, 0.5986E+00, 0.5998E+00,& - 0.6011E+00, 0.6023E+00, 0.6036E+00, 0.6049E+00,& - 0.6061E+00, 0.6073E+00, 0.6086E+00, 0.6098E+00,& - 0.6111E+00, 0.6123E+00, 0.6136E+00, 0.6148E+00,& - 0.6160E+00, 0.6173E+00, 0.6185E+00, 0.6197E+00,& - 0.6209E+00, 0.6222E+00, 0.6234E+00, 0.6246E+00,& - 0.6259E+00, 0.6271E+00, 0.6283E+00, 0.6296E+00,& - 0.6308E+00, 0.6320E+00, 0.6332E+00, 0.6344E+00,& - 0.6356E+00, 0.6368E+00, 0.6380E+00, 0.6392E+00,& - 0.6404E+00, 0.6417E+00, 0.6428E+00, 0.6440E+00,& - 0.6453E+00, 0.6464E+00, 0.6476E+00, 0.6489E+00,& - 0.6500E+00, 0.6512E+00, 0.6524E+00, 0.6536E+00,& - 0.6548E+00, 0.6560E+00, 0.6572E+00, 0.6584E+00,& - 0.6596E+00, 0.6607E+00, 0.6619E+00, 0.6631E+00,& - 0.6643E+00, 0.6655E+00, 0.6667E+00, 0.6678E+00,& - 0.6690E+00, 0.6702E+00, 0.6713E+00, 0.6725E+00,& - 0.6737E+00, 0.6749E+00, 0.6761E+00, 0.6772E+00,& - 0.6784E+00, 0.6796E+00, 0.6807E+00, 0.6819E+00,& - 0.6831E+00, 0.6843E+00, 0.6854E+00, 0.6865E+00,& - 0.6877E+00, 0.6889E+00, 0.6900E+00, 0.6912E+00,& - 0.6924E+00, 0.6936E+00, 0.6947E+00, 0.6958E+00,& - 0.6970E+00, 0.6982E+00, 0.6993E+00, 0.7005E+00,& - 0.7016E+00, 0.7028E+00, 0.7039E+00, 0.7051E+00,& - 0.7062E+00, 0.7074E+00, 0.7085E+00, 0.7097E+00,& - 0.7109E+00, 0.7120E+00, 0.7131E+00, 0.7143E+00,& - 0.7154E+00, 0.7166E+00, 0.7177E+00, 0.7188E+00,& - 0.7200E+00, 0.7211E+00, 0.7223E+00, 0.7234E+00,& - 0.7246E+00, 0.7257E+00, 0.7268E+00, 0.7280E+00,& - 0.7291E+00, 0.7303E+00, 0.7314E+00, 0.7325E+00,& - 0.7337E+00, 0.7348E+00, 0.7360E+00, 0.7371E+00,& - 0.7383E+00, 0.7394E+00, 0.7405E+00, 0.7417E+00,& - 0.7428E+00, 0.7440E+00, 0.7451E+00, 0.7462E+00,& - 0.7473E+00, 0.7485E+00, 0.7496E+00, 0.7507E+00,& - 0.7519E+00, 0.7530E+00, 0.7541E+00, 0.7553E+00,& - 0.7564E+00, 0.7575E+00, 0.7587E+00, 0.7598E+00,& - 0.7609E+00, 0.7621E+00, 0.7632E+00, 0.7643E+00,& - 0.7655E+00, 0.7666E+00, 0.7677E+00, 0.7688E+00,& - 0.7700E+00, 0.7711E+00, 0.7722E+00, 0.7734E+00,& - 0.7745E+00, 0.7756E+00, 0.7767E+00, 0.7779E+00,& - 0.7790E+00, 0.7801E+00, 0.7812E+00, 0.7824E+00,& - 0.7835E+00, 0.7846E+00, 0.7858E+00, 0.7869E+00,& - 0.7880E+00, 0.7891E+00, 0.7902E+00, 0.7914E+00,& - 0.7925E+00, 0.7937E+00, 0.7948E+00, 0.7959E+00,& - 0.7970E+00, 0.7981E+00, 0.7993E+00, 0.8004E+00,& - 0.8015E+00, 0.8026E+00, 0.8038E+00, 0.8049E+00,& - 0.8060E+00, 0.8072E+00, 0.8083E+00, 0.8094E+00,& - 0.8105E+00, 0.8117E+00, 0.8128E+00, 0.8139E+00,& - 0.8151E+00, 0.8162E+00, 0.8173E+00, 0.8184E+00,& - 0.8196E+00, 0.8207E+00, 0.8218E+00, 0.8229E+00,& - 0.8241E+00, 0.8252E+00, 0.8263E+00, 0.8275E+00,& - 0.8286E+00, 0.8297E+00, 0.8309E+00, 0.8320E+00,& - 0.8331E+00, 0.8342E+00, 0.8354E+00, 0.8365E+00,& - 0.8377E+00, 0.8388E+00, 0.8399E+00, 0.8410E+00,& - 0.8421E+00, 0.8433E+00, 0.8444E+00, 0.8456E+00,& - 0.8467E+00, 0.8478E+00, 0.8490E+00, 0.8501E+00,& - 0.8512E+00, 0.8523E+00, 0.8535E+00, 0.8546E+00,& - 0.8557E+00, 0.8569E+00, 0.8580E+00, 0.8592E+00,& - 0.8603E+00, 0.8614E+00, 0.8626E+00, 0.8637E+00,& - 0.8649E+00, 0.8660E+00, 0.8672E+00, 0.8683E+00,& - 0.8694E+00, 0.8706E+00, 0.8717E+00, 0.8728E+00,& - 0.8740E+00, 0.8751E+00, 0.8763E+00, 0.8774E+00,& - 0.8786E+00, 0.8797E+00, 0.8809E+00, 0.8820E+00,& - 0.8831E+00, 0.8843E+00, 0.8854E+00, 0.8866E+00,& - 0.8877E+00, 0.8888E+00, 0.8900E+00, 0.8911E+00,& - 0.8923E+00, 0.8934E+00, 0.8946E+00, 0.8958E+00,& - 0.8969E+00, 0.8981E+00, 0.8992E+00, 0.9003E+00,& - 0.9015E+00, 0.9027E+00, 0.9038E+00, 0.9050E+00,& - 0.9061E+00, 0.9073E+00, 0.9084E+00, 0.9096E+00,& - 0.9108E+00, 0.9119E+00, 0.9131E+00, 0.9142E+00,& - 0.9154E+00, 0.9166E+00, 0.9177E+00, 0.9189E+00,& - 0.9201E+00, 0.9212E+00, 0.9224E+00, 0.9235E+00,& - 0.9247E+00, 0.9259E+00, 0.9270E+00, 0.9282E+00,& - 0.9294E+00, 0.9306E+00, 0.9318E+00, 0.9329E+00,& - 0.9341E+00, 0.9353E+00, 0.9364E+00, 0.9376E+00,& - 0.9388E+00, 0.9399E+00, 0.9412E+00, 0.9423E+00,& - 0.9435E+00, 0.9447E+00, 0.9459E+00, 0.9471E+00,& - 0.9482E+00, 0.9494E+00, 0.9506E+00, 0.9518E+00,& - 0.9530E+00, 0.9542E+00, 0.9553E+00, 0.9565E+00,& - 0.9577E+00, 0.9589E+00, 0.9601E+00, 0.9613E+00,& - 0.9625E+00, 0.9637E+00, 0.9649E+00, 0.9661E+00,& - 0.9673E+00, 0.9685E+00, 0.9697E+00, 0.9709E+00,& - 0.9721E+00, 0.9733E+00, 0.9745E+00, 0.9757E+00,& - 0.9769E+00, 0.9781E+00, 0.9793E+00, 0.9805E+00,& - 0.9817E+00, 0.9830E+00, 0.9842E+00, 0.9854E+00,& - 0.9866E+00, 0.9878E+00, 0.9890E+00, 0.9903E+00,& - 0.9915E+00, 0.9927E+00, 0.9939E+00, 0.9951E+00,& - 0.9963E+00, 0.9976E+00, 0.9988E+00, 0.1000E+01,& - 0.1001E+01, 0.1003E+01, 0.1004E+01, 0.1005E+01,& - 0.1006E+01, 0.1007E+01, 0.1009E+01, 0.1010E+01,& - 0.1011E+01, 0.1012E+01, 0.1014E+01, 0.1015E+01,& - 0.1016E+01, 0.1017E+01, 0.1019E+01, 0.1020E+01,& - 0.1021E+01, 0.1022E+01, 0.1024E+01, 0.1025E+01,& - 0.1026E+01, 0.1027E+01, 0.1029E+01, 0.1030E+01,& - 0.1031E+01, 0.1032E+01, 0.1034E+01, 0.1035E+01,& - 0.1036E+01, 0.1037E+01, 0.1039E+01, 0.1040E+01,& - 0.1041E+01, 0.1043E+01, 0.1044E+01, 0.1045E+01,& - 0.1046E+01, 0.1048E+01, 0.1049E+01, 0.1050E+01,& - 0.1052E+01, 0.1053E+01, 0.1054E+01, 0.1055E+01,& - 0.1057E+01, 0.1058E+01, 0.1059E+01, 0.1061E+01,& - 0.1062E+01, 0.1063E+01, 0.1064E+01, 0.1066E+01,& - 0.1067E+01, 0.1068E+01, 0.1070E+01, 0.1071E+01,& - 0.1072E+01, 0.1074E+01, 0.1075E+01, 0.1076E+01,& - 0.1078E+01, 0.1079E+01, 0.1080E+01, 0.1082E+01,& - 0.1083E+01, 0.1084E+01, 0.1086E+01, 0.1087E+01,& - 0.1088E+01, 0.1090E+01, 0.1091E+01, 0.1092E+01,& - 0.1094E+01, 0.1095E+01, 0.1096E+01, 0.1098E+01,& - 0.1099E+01, 0.1100E+01, 0.1102E+01, 0.1103E+01,& - 0.1104E+01, 0.1106E+01, 0.1107E+01, 0.1108E+01,& - 0.1110E+01, 0.1111E+01, 0.1113E+01, 0.1114E+01,& - 0.1115E+01, 0.1117E+01, 0.1118E+01, 0.1119E+01,& - 0.1121E+01, 0.1122E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1128E+01, 0.1129E+01, 0.1131E+01,& - 0.1132E+01, 0.1133E+01, 0.1135E+01, 0.1136E+01,& - 0.1138E+01, 0.1139E+01, 0.1140E+01, 0.1142E+01,& - 0.1143E+01, 0.1145E+01, 0.1146E+01, 0.1148E+01,& - 0.1149E+01, 0.1150E+01, 0.1152E+01, 0.1153E+01,& - 0.1155E+01, 0.1156E+01, 0.1158E+01, 0.1159E+01,& - 0.1161E+01, 0.1162E+01, 0.1163E+01, 0.1165E+01,& - 0.1166E+01, 0.1168E+01, 0.1169E+01, 0.1171E+01,& - 0.1172E+01, 0.1174E+01, 0.1175E+01, 0.1177E+01,& - 0.1178E+01, 0.1180E+01, 0.1181E+01, 0.1183E+01,& - 0.1184E+01, 0.1186E+01, 0.1187E+01, 0.1189E+01,& - 0.1190E+01, 0.1192E+01, 0.1193E+01, 0.1195E+01,& - 0.1196E+01, 0.1198E+01, 0.1199E+01, 0.1201E+01,& - 0.1202E+01, 0.1204E+01, 0.1206E+01, 0.1207E+01,& - 0.1209E+01, 0.1210E+01, 0.1212E+01, 0.1213E+01,& - 0.1215E+01, 0.1216E+01, 0.1218E+01, 0.1220E+01,& - 0.1221E+01, 0.1223E+01, 0.1224E+01, 0.1226E+01,& - 0.1227E+01, 0.1229E+01, 0.1231E+01, 0.1232E+01,& - 0.1234E+01, 0.1235E+01, 0.1237E+01, 0.1239E+01,& - 0.1240E+01, 0.1242E+01, 0.1244E+01, 0.1245E+01,& - 0.1247E+01, 0.1249E+01, 0.1250E+01, 0.1252E+01,& - 0.1253E+01, 0.1255E+01, 0.1257E+01, 0.1258E+01,& - 0.1260E+01, 0.1262E+01, 0.1263E+01, 0.1265E+01,& - 0.1267E+01, 0.1269E+01, 0.1270E+01, 0.1272E+01,& - 0.1274E+01, 0.1275E+01, 0.1277E+01, 0.1279E+01,& - 0.1281E+01, 0.1282E+01, 0.1284E+01, 0.1286E+01,& - 0.1288E+01, 0.1289E+01, 0.1291E+01, 0.1293E+01,& - 0.1295E+01, 0.1296E+01, 0.1298E+01, 0.1300E+01,& - 0.1302E+01, 0.1303E+01, 0.1305E+01, 0.1307E+01,& - 0.1309E+01, 0.1311E+01, 0.1312E+01, 0.1314E+01,& - 0.1316E+01, 0.1318E+01, 0.1320E+01, 0.1322E+01,& - 0.1324E+01, 0.1325E+01, 0.1327E+01, 0.1329E+01,& - 0.1331E+01, 0.1333E+01, 0.1335E+01, 0.1337E+01,& - 0.1339E+01, 0.1340E+01, 0.1342E+01, 0.1344E+01,& - 0.1346E+01, 0.1348E+01, 0.1350E+01, 0.1352E+01,& - 0.1354E+01, 0.1356E+01, 0.1358E+01, 0.1360E+01,& - 0.1362E+01, 0.1364E+01, 0.1366E+01, 0.1368E+01,& - 0.1370E+01, 0.1372E+01, 0.1374E+01, 0.1376E+01,& - 0.1378E+01, 0.1380E+01, 0.1382E+01, 0.1384E+01,& - 0.1386E+01, 0.1388E+01, 0.1390E+01, 0.1392E+01,& - 0.1395E+01, 0.1397E+01, 0.1399E+01, 0.1401E+01,& - 0.1403E+01, 0.1405E+01, 0.1407E+01, 0.1409E+01,& - 0.1412E+01, 0.1414E+01, 0.1416E+01, 0.1418E+01,& - 0.1420E+01, 0.1423E+01, 0.1425E+01, 0.1427E+01,& - 0.1429E+01, 0.1432E+01, 0.1434E+01, 0.1436E+01,& - 0.1438E+01, 0.1441E+01, 0.1443E+01, 0.1445E+01,& - 0.1448E+01, 0.1450E+01, 0.1452E+01, 0.1455E+01,& - 0.1457E+01, 0.1459E+01, 0.1462E+01, 0.1464E+01,& - 0.1467E+01, 0.1469E+01, 0.1471E+01, 0.1474E+01,& - 0.1476E+01, 0.1479E+01, 0.1481E+01, 0.1484E+01,& - 0.1486E+01, 0.1489E+01, 0.1491E+01, 0.1494E+01,& - 0.1496E+01, 0.1499E+01, 0.1502E+01, 0.1504E+01,& - 0.1507E+01, 0.1509E+01, 0.1512E+01, 0.1515E+01,& - 0.1517E+01, 0.1520E+01, 0.1523E+01, 0.1525E+01,& - 0.1528E+01, 0.1531E+01, 0.1534E+01, 0.1537E+01,& - 0.1539E+01, 0.1542E+01, 0.1545E+01, 0.1548E+01,& - 0.1551E+01, 0.1554E+01, 0.1556E+01, 0.1559E+01,& - 0.1562E+01, 0.1565E+01, 0.1568E+01, 0.1571E+01,& - 0.1574E+01, 0.1577E+01, 0.1580E+01, 0.1584E+01,& - 0.1587E+01, 0.1590E+01, 0.1593E+01, 0.1596E+01,& - 0.1599E+01, 0.1602E+01, 0.1606E+01, 0.1609E+01,& - 0.1612E+01, 0.1616E+01, 0.1619E+01, 0.1622E+01,& - 0.1626E+01, 0.1629E+01, 0.1633E+01, 0.1636E+01,& - 0.1640E+01, 0.1643E+01, 0.1647E+01, 0.1650E+01,& - 0.1654E+01, 0.1657E+01, 0.1661E+01, 0.1665E+01,& - 0.1669E+01, 0.1672E+01, 0.1676E+01, 0.1680E+01,& - 0.1684E+01, 0.1688E+01, 0.1692E+01, 0.1696E+01,& - 0.1700E+01, 0.1704E+01, 0.1708E+01, 0.1712E+01,& - 0.1716E+01, 0.1721E+01, 0.1725E+01, 0.1729E+01,& - 0.1734E+01, 0.1738E+01, 0.1743E+01, 0.1747E+01,& - 0.1752E+01, 0.1757E+01, 0.1761E+01, 0.1766E+01,& - 0.1771E+01, 0.1776E+01, 0.1781E+01, 0.1786E+01,& - 0.1791E+01, 0.1796E+01, 0.1801E+01, 0.1806E+01,& - 0.1812E+01, 0.1817E+01, 0.1823E+01, 0.1828E+01,& - 0.1834E+01, 0.1840E+01, 0.1846E+01, 0.1852E+01,& - 0.1858E+01, 0.1864E+01, 0.1870E+01, 0.1876E+01,& - 0.1883E+01, 0.1890E+01, 0.1896E+01, 0.1903E+01,& - 0.1910E+01, 0.1917E+01, 0.1925E+01, 0.1932E+01,& - 0.1940E+01, 0.1947E+01, 0.1955E+01, 0.1964E+01,& - 0.1972E+01, 0.1980E+01, 0.1989E+01, 0.1998E+01,& - 0.2007E+01, 0.2017E+01, 0.2027E+01, 0.2037E+01,& - 0.2047E+01, 0.2058E+01, 0.2069E+01, 0.2081E+01,& - 0.2093E+01, 0.2105E+01, 0.2118E+01, 0.2131E+01,& - 0.2145E+01, 0.2160E+01, 0.2176E+01, 0.2192E+01,& - 0.2209E+01, 0.2228E+01, 0.2247E+01, 0.2268E+01,& - 0.2290E+01, 0.2315E+01, 0.2341E+01, 0.2371E+01,& - 0.2404E+01, 0.2441E+01, 0.2485E+01, 0.2537E+01,& - 0.1000E-04, 0.8579E-01, 0.1072E+00, 0.1222E+00/) - xcw(:, 17) = (/& - 0.1000E-04, 0.8579E-01, 0.1072E+00, 0.1222E+00,& - 0.1343E+00, 0.1445E+00, 0.1536E+00, 0.1617E+00,& - 0.1691E+00, 0.1759E+00, 0.1823E+00, 0.1883E+00,& - 0.1940E+00, 0.1994E+00, 0.2046E+00, 0.2095E+00,& - 0.2143E+00, 0.2188E+00, 0.2232E+00, 0.2275E+00,& - 0.2316E+00, 0.2356E+00, 0.2395E+00, 0.2433E+00,& - 0.2470E+00, 0.2506E+00, 0.2542E+00, 0.2576E+00,& - 0.2610E+00, 0.2643E+00, 0.2676E+00, 0.2708E+00,& - 0.2739E+00, 0.2770E+00, 0.2800E+00, 0.2829E+00,& - 0.2859E+00, 0.2887E+00, 0.2915E+00, 0.2944E+00,& - 0.2971E+00, 0.2998E+00, 0.3025E+00, 0.3052E+00,& - 0.3078E+00, 0.3104E+00, 0.3129E+00, 0.3154E+00,& - 0.3179E+00, 0.3204E+00, 0.3228E+00, 0.3253E+00,& - 0.3276E+00, 0.3300E+00, 0.3323E+00, 0.3347E+00,& - 0.3369E+00, 0.3392E+00, 0.3415E+00, 0.3437E+00,& - 0.3459E+00, 0.3481E+00, 0.3503E+00, 0.3524E+00,& - 0.3546E+00, 0.3567E+00, 0.3588E+00, 0.3609E+00,& - 0.3630E+00, 0.3650E+00, 0.3671E+00, 0.3691E+00,& - 0.3711E+00, 0.3731E+00, 0.3751E+00, 0.3771E+00,& - 0.3790E+00, 0.3810E+00, 0.3830E+00, 0.3849E+00,& - 0.3868E+00, 0.3887E+00, 0.3906E+00, 0.3924E+00,& - 0.3943E+00, 0.3962E+00, 0.3980E+00, 0.3999E+00,& - 0.4017E+00, 0.4035E+00, 0.4053E+00, 0.4071E+00,& - 0.4089E+00, 0.4107E+00, 0.4125E+00, 0.4142E+00,& - 0.4160E+00, 0.4177E+00, 0.4194E+00, 0.4212E+00,& - 0.4229E+00, 0.4246E+00, 0.4263E+00, 0.4280E+00,& - 0.4297E+00, 0.4314E+00, 0.4331E+00, 0.4347E+00,& - 0.4364E+00, 0.4380E+00, 0.4397E+00, 0.4413E+00,& - 0.4430E+00, 0.4446E+00, 0.4462E+00, 0.4479E+00,& - 0.4495E+00, 0.4510E+00, 0.4527E+00, 0.4542E+00,& - 0.4558E+00, 0.4574E+00, 0.4590E+00, 0.4606E+00,& - 0.4621E+00, 0.4637E+00, 0.4653E+00, 0.4668E+00,& - 0.4684E+00, 0.4699E+00, 0.4714E+00, 0.4729E+00,& - 0.4745E+00, 0.4760E+00, 0.4775E+00, 0.4790E+00,& - 0.4805E+00, 0.4820E+00, 0.4835E+00, 0.4850E+00,& - 0.4865E+00, 0.4880E+00, 0.4895E+00, 0.4910E+00,& - 0.4924E+00, 0.4939E+00, 0.4953E+00, 0.4968E+00,& - 0.4983E+00, 0.4997E+00, 0.5012E+00, 0.5026E+00,& - 0.5040E+00, 0.5055E+00, 0.5069E+00, 0.5084E+00,& - 0.5098E+00, 0.5112E+00, 0.5126E+00, 0.5140E+00,& - 0.5155E+00, 0.5169E+00, 0.5183E+00, 0.5197E+00,& - 0.5211E+00, 0.5225E+00, 0.5239E+00, 0.5252E+00,& - 0.5267E+00, 0.5281E+00, 0.5294E+00, 0.5308E+00,& - 0.5322E+00, 0.5335E+00, 0.5349E+00, 0.5363E+00,& - 0.5376E+00, 0.5390E+00, 0.5404E+00, 0.5417E+00,& - 0.5431E+00, 0.5445E+00, 0.5458E+00, 0.5472E+00,& - 0.5485E+00, 0.5499E+00, 0.5512E+00, 0.5525E+00,& - 0.5539E+00, 0.5552E+00, 0.5565E+00, 0.5579E+00,& - 0.5592E+00, 0.5605E+00, 0.5618E+00, 0.5632E+00,& - 0.5645E+00, 0.5658E+00, 0.5671E+00, 0.5684E+00,& - 0.5697E+00, 0.5710E+00, 0.5724E+00, 0.5736E+00,& - 0.5749E+00, 0.5763E+00, 0.5776E+00, 0.5788E+00,& - 0.5801E+00, 0.5814E+00, 0.5827E+00, 0.5840E+00,& - 0.5853E+00, 0.5866E+00, 0.5879E+00, 0.5891E+00,& - 0.5904E+00, 0.5917E+00, 0.5930E+00, 0.5943E+00,& - 0.5955E+00, 0.5968E+00, 0.5981E+00, 0.5993E+00,& - 0.6006E+00, 0.6019E+00, 0.6032E+00, 0.6044E+00,& - 0.6057E+00, 0.6069E+00, 0.6082E+00, 0.6095E+00,& - 0.6107E+00, 0.6120E+00, 0.6132E+00, 0.6145E+00,& - 0.6157E+00, 0.6170E+00, 0.6182E+00, 0.6195E+00,& - 0.6207E+00, 0.6219E+00, 0.6232E+00, 0.6244E+00,& - 0.6257E+00, 0.6269E+00, 0.6281E+00, 0.6294E+00,& - 0.6306E+00, 0.6319E+00, 0.6331E+00, 0.6343E+00,& - 0.6356E+00, 0.6368E+00, 0.6380E+00, 0.6393E+00,& - 0.6405E+00, 0.6417E+00, 0.6429E+00, 0.6442E+00,& - 0.6454E+00, 0.6466E+00, 0.6478E+00, 0.6490E+00,& - 0.6503E+00, 0.6515E+00, 0.6527E+00, 0.6539E+00,& - 0.6551E+00, 0.6564E+00, 0.6576E+00, 0.6588E+00,& - 0.6600E+00, 0.6612E+00, 0.6624E+00, 0.6636E+00,& - 0.6648E+00, 0.6661E+00, 0.6672E+00, 0.6684E+00,& - 0.6697E+00, 0.6709E+00, 0.6721E+00, 0.6733E+00,& - 0.6745E+00, 0.6757E+00, 0.6769E+00, 0.6781E+00,& - 0.6793E+00, 0.6805E+00, 0.6817E+00, 0.6829E+00,& - 0.6841E+00, 0.6853E+00, 0.6865E+00, 0.6877E+00,& - 0.6888E+00, 0.6900E+00, 0.6912E+00, 0.6924E+00,& - 0.6936E+00, 0.6948E+00, 0.6960E+00, 0.6972E+00,& - 0.6984E+00, 0.6996E+00, 0.7008E+00, 0.7020E+00,& - 0.7032E+00, 0.7043E+00, 0.7055E+00, 0.7067E+00,& - 0.7079E+00, 0.7091E+00, 0.7103E+00, 0.7114E+00,& - 0.7126E+00, 0.7138E+00, 0.7150E+00, 0.7162E+00,& - 0.7174E+00, 0.7186E+00, 0.7197E+00, 0.7209E+00,& - 0.7221E+00, 0.7233E+00, 0.7245E+00, 0.7257E+00,& - 0.7269E+00, 0.7280E+00, 0.7292E+00, 0.7304E+00,& - 0.7316E+00, 0.7328E+00, 0.7339E+00, 0.7351E+00,& - 0.7363E+00, 0.7374E+00, 0.7386E+00, 0.7398E+00,& - 0.7410E+00, 0.7422E+00, 0.7434E+00, 0.7445E+00,& - 0.7457E+00, 0.7469E+00, 0.7481E+00, 0.7492E+00,& - 0.7504E+00, 0.7516E+00, 0.7527E+00, 0.7539E+00,& - 0.7551E+00, 0.7563E+00, 0.7575E+00, 0.7587E+00,& - 0.7598E+00, 0.7610E+00, 0.7622E+00, 0.7633E+00,& - 0.7645E+00, 0.7657E+00, 0.7669E+00, 0.7681E+00,& - 0.7692E+00, 0.7704E+00, 0.7716E+00, 0.7727E+00,& - 0.7739E+00, 0.7751E+00, 0.7763E+00, 0.7774E+00,& - 0.7786E+00, 0.7798E+00, 0.7810E+00, 0.7822E+00,& - 0.7833E+00, 0.7845E+00, 0.7857E+00, 0.7868E+00,& - 0.7880E+00, 0.7892E+00, 0.7904E+00, 0.7916E+00,& - 0.7927E+00, 0.7939E+00, 0.7951E+00, 0.7962E+00,& - 0.7974E+00, 0.7986E+00, 0.7998E+00, 0.8010E+00,& - 0.8021E+00, 0.8033E+00, 0.8045E+00, 0.8057E+00,& - 0.8069E+00, 0.8080E+00, 0.8092E+00, 0.8104E+00,& - 0.8115E+00, 0.8127E+00, 0.8139E+00, 0.8151E+00,& - 0.8163E+00, 0.8175E+00, 0.8186E+00, 0.8198E+00,& - 0.8210E+00, 0.8222E+00, 0.8234E+00, 0.8246E+00,& - 0.8257E+00, 0.8269E+00, 0.8281E+00, 0.8293E+00,& - 0.8305E+00, 0.8317E+00, 0.8328E+00, 0.8340E+00,& - 0.8352E+00, 0.8364E+00, 0.8376E+00, 0.8388E+00,& - 0.8400E+00, 0.8411E+00, 0.8423E+00, 0.8435E+00,& - 0.8447E+00, 0.8459E+00, 0.8471E+00, 0.8483E+00,& - 0.8494E+00, 0.8506E+00, 0.8518E+00, 0.8530E+00,& - 0.8542E+00, 0.8554E+00, 0.8566E+00, 0.8578E+00,& - 0.8590E+00, 0.8602E+00, 0.8614E+00, 0.8626E+00,& - 0.8638E+00, 0.8649E+00, 0.8661E+00, 0.8673E+00,& - 0.8685E+00, 0.8697E+00, 0.8710E+00, 0.8721E+00,& - 0.8733E+00, 0.8745E+00, 0.8757E+00, 0.8769E+00,& - 0.8782E+00, 0.8793E+00, 0.8805E+00, 0.8817E+00,& - 0.8830E+00, 0.8842E+00, 0.8854E+00, 0.8865E+00,& - 0.8878E+00, 0.8890E+00, 0.8902E+00, 0.8914E+00,& - 0.8926E+00, 0.8938E+00, 0.8950E+00, 0.8962E+00,& - 0.8975E+00, 0.8987E+00, 0.8999E+00, 0.9011E+00,& - 0.9023E+00, 0.9035E+00, 0.9048E+00, 0.9060E+00,& - 0.9072E+00, 0.9084E+00, 0.9096E+00, 0.9108E+00,& - 0.9121E+00, 0.9133E+00, 0.9145E+00, 0.9157E+00,& - 0.9170E+00, 0.9182E+00, 0.9194E+00, 0.9206E+00,& - 0.9218E+00, 0.9231E+00, 0.9243E+00, 0.9255E+00,& - 0.9268E+00, 0.9280E+00, 0.9292E+00, 0.9305E+00,& - 0.9317E+00, 0.9329E+00, 0.9342E+00, 0.9354E+00,& - 0.9367E+00, 0.9379E+00, 0.9391E+00, 0.9404E+00,& - 0.9416E+00, 0.9429E+00, 0.9441E+00, 0.9453E+00,& - 0.9466E+00, 0.9479E+00, 0.9491E+00, 0.9503E+00,& - 0.9516E+00, 0.9529E+00, 0.9541E+00, 0.9554E+00,& - 0.9566E+00, 0.9579E+00, 0.9591E+00, 0.9604E+00,& - 0.9616E+00, 0.9629E+00, 0.9642E+00, 0.9654E+00,& - 0.9667E+00, 0.9679E+00, 0.9692E+00, 0.9705E+00,& - 0.9718E+00, 0.9730E+00, 0.9743E+00, 0.9756E+00,& - 0.9769E+00, 0.9781E+00, 0.9794E+00, 0.9807E+00,& - 0.9820E+00, 0.9832E+00, 0.9845E+00, 0.9858E+00,& - 0.9871E+00, 0.9883E+00, 0.9896E+00, 0.9909E+00,& - 0.9922E+00, 0.9935E+00, 0.9948E+00, 0.9961E+00,& - 0.9974E+00, 0.9986E+00, 0.1000E+01, 0.1001E+01,& - 0.1003E+01, 0.1004E+01, 0.1005E+01, 0.1006E+01,& - 0.1008E+01, 0.1009E+01, 0.1010E+01, 0.1012E+01,& - 0.1013E+01, 0.1014E+01, 0.1016E+01, 0.1017E+01,& - 0.1018E+01, 0.1020E+01, 0.1021E+01, 0.1022E+01,& - 0.1024E+01, 0.1025E+01, 0.1026E+01, 0.1027E+01,& - 0.1029E+01, 0.1030E+01, 0.1032E+01, 0.1033E+01,& - 0.1034E+01, 0.1036E+01, 0.1037E+01, 0.1038E+01,& - 0.1040E+01, 0.1041E+01, 0.1042E+01, 0.1044E+01,& - 0.1045E+01, 0.1046E+01, 0.1048E+01, 0.1049E+01,& - 0.1050E+01, 0.1052E+01, 0.1053E+01, 0.1054E+01,& - 0.1056E+01, 0.1057E+01, 0.1058E+01, 0.1060E+01,& - 0.1061E+01, 0.1063E+01, 0.1064E+01, 0.1065E+01,& - 0.1067E+01, 0.1068E+01, 0.1069E+01, 0.1071E+01,& - 0.1072E+01, 0.1074E+01, 0.1075E+01, 0.1076E+01,& - 0.1078E+01, 0.1079E+01, 0.1081E+01, 0.1082E+01,& - 0.1083E+01, 0.1085E+01, 0.1086E+01, 0.1088E+01,& - 0.1089E+01, 0.1090E+01, 0.1092E+01, 0.1093E+01,& - 0.1095E+01, 0.1096E+01, 0.1097E+01, 0.1099E+01,& - 0.1100E+01, 0.1102E+01, 0.1103E+01, 0.1105E+01,& - 0.1106E+01, 0.1107E+01, 0.1109E+01, 0.1110E+01,& - 0.1112E+01, 0.1113E+01, 0.1115E+01, 0.1116E+01,& - 0.1118E+01, 0.1119E+01, 0.1120E+01, 0.1122E+01,& - 0.1123E+01, 0.1125E+01, 0.1126E+01, 0.1128E+01,& - 0.1129E+01, 0.1131E+01, 0.1132E+01, 0.1134E+01,& - 0.1135E+01, 0.1137E+01, 0.1138E+01, 0.1140E+01,& - 0.1141E+01, 0.1143E+01, 0.1144E+01, 0.1146E+01,& - 0.1147E+01, 0.1149E+01, 0.1150E+01, 0.1152E+01,& - 0.1153E+01, 0.1155E+01, 0.1156E+01, 0.1158E+01,& - 0.1159E+01, 0.1161E+01, 0.1162E+01, 0.1164E+01,& - 0.1165E+01, 0.1167E+01, 0.1168E+01, 0.1170E+01,& - 0.1172E+01, 0.1173E+01, 0.1175E+01, 0.1176E+01,& - 0.1178E+01, 0.1179E+01, 0.1181E+01, 0.1183E+01,& - 0.1184E+01, 0.1186E+01, 0.1187E+01, 0.1189E+01,& - 0.1190E+01, 0.1192E+01, 0.1194E+01, 0.1195E+01,& - 0.1197E+01, 0.1198E+01, 0.1200E+01, 0.1202E+01,& - 0.1203E+01, 0.1205E+01, 0.1206E+01, 0.1208E+01,& - 0.1210E+01, 0.1211E+01, 0.1213E+01, 0.1215E+01,& - 0.1216E+01, 0.1218E+01, 0.1220E+01, 0.1221E+01,& - 0.1223E+01, 0.1225E+01, 0.1226E+01, 0.1228E+01,& - 0.1229E+01, 0.1231E+01, 0.1233E+01, 0.1235E+01,& - 0.1236E+01, 0.1238E+01, 0.1240E+01, 0.1241E+01,& - 0.1243E+01, 0.1245E+01, 0.1246E+01, 0.1248E+01,& - 0.1250E+01, 0.1252E+01, 0.1253E+01, 0.1255E+01,& - 0.1257E+01, 0.1259E+01, 0.1260E+01, 0.1262E+01,& - 0.1264E+01, 0.1266E+01, 0.1267E+01, 0.1269E+01,& - 0.1271E+01, 0.1273E+01, 0.1274E+01, 0.1276E+01,& - 0.1278E+01, 0.1280E+01, 0.1282E+01, 0.1283E+01,& - 0.1285E+01, 0.1287E+01, 0.1289E+01, 0.1291E+01,& - 0.1292E+01, 0.1294E+01, 0.1296E+01, 0.1298E+01,& - 0.1300E+01, 0.1302E+01, 0.1304E+01, 0.1305E+01,& - 0.1307E+01, 0.1309E+01, 0.1311E+01, 0.1313E+01,& - 0.1315E+01, 0.1317E+01, 0.1319E+01, 0.1321E+01,& - 0.1323E+01, 0.1324E+01, 0.1326E+01, 0.1328E+01,& - 0.1330E+01, 0.1332E+01, 0.1334E+01, 0.1336E+01,& - 0.1338E+01, 0.1340E+01, 0.1342E+01, 0.1344E+01,& - 0.1346E+01, 0.1348E+01, 0.1350E+01, 0.1352E+01,& - 0.1354E+01, 0.1356E+01, 0.1358E+01, 0.1360E+01,& - 0.1362E+01, 0.1364E+01, 0.1366E+01, 0.1368E+01,& - 0.1370E+01, 0.1372E+01, 0.1375E+01, 0.1377E+01,& - 0.1379E+01, 0.1381E+01, 0.1383E+01, 0.1385E+01,& - 0.1387E+01, 0.1389E+01, 0.1392E+01, 0.1394E+01,& - 0.1396E+01, 0.1398E+01, 0.1400E+01, 0.1402E+01,& - 0.1405E+01, 0.1407E+01, 0.1409E+01, 0.1411E+01,& - 0.1413E+01, 0.1416E+01, 0.1418E+01, 0.1420E+01,& - 0.1422E+01, 0.1425E+01, 0.1427E+01, 0.1429E+01,& - 0.1432E+01, 0.1434E+01, 0.1436E+01, 0.1439E+01,& - 0.1441E+01, 0.1443E+01, 0.1446E+01, 0.1448E+01,& - 0.1450E+01, 0.1453E+01, 0.1455E+01, 0.1458E+01,& - 0.1460E+01, 0.1462E+01, 0.1465E+01, 0.1467E+01,& - 0.1470E+01, 0.1472E+01, 0.1475E+01, 0.1477E+01,& - 0.1480E+01, 0.1482E+01, 0.1485E+01, 0.1487E+01,& - 0.1490E+01, 0.1493E+01, 0.1495E+01, 0.1498E+01,& - 0.1500E+01, 0.1503E+01, 0.1506E+01, 0.1508E+01,& - 0.1511E+01, 0.1514E+01, 0.1516E+01, 0.1519E+01,& - 0.1522E+01, 0.1524E+01, 0.1527E+01, 0.1530E+01,& - 0.1533E+01, 0.1536E+01, 0.1538E+01, 0.1541E+01,& - 0.1544E+01, 0.1547E+01, 0.1550E+01, 0.1553E+01,& - 0.1556E+01, 0.1559E+01, 0.1562E+01, 0.1564E+01,& - 0.1567E+01, 0.1570E+01, 0.1573E+01, 0.1576E+01,& - 0.1580E+01, 0.1583E+01, 0.1586E+01, 0.1589E+01,& - 0.1592E+01, 0.1595E+01, 0.1598E+01, 0.1601E+01,& - 0.1605E+01, 0.1608E+01, 0.1611E+01, 0.1614E+01,& - 0.1618E+01, 0.1621E+01, 0.1624E+01, 0.1628E+01,& - 0.1631E+01, 0.1635E+01, 0.1638E+01, 0.1642E+01,& - 0.1645E+01, 0.1649E+01, 0.1652E+01, 0.1656E+01,& - 0.1659E+01, 0.1663E+01, 0.1667E+01, 0.1670E+01,& - 0.1674E+01, 0.1678E+01, 0.1682E+01, 0.1686E+01,& - 0.1689E+01, 0.1693E+01, 0.1697E+01, 0.1701E+01,& - 0.1705E+01, 0.1709E+01, 0.1713E+01, 0.1717E+01,& - 0.1721E+01, 0.1726E+01, 0.1730E+01, 0.1734E+01,& - 0.1739E+01, 0.1743E+01, 0.1747E+01, 0.1752E+01,& - 0.1756E+01, 0.1761E+01, 0.1765E+01, 0.1770E+01,& - 0.1775E+01, 0.1779E+01, 0.1784E+01, 0.1789E+01,& - 0.1794E+01, 0.1799E+01, 0.1804E+01, 0.1809E+01,& - 0.1814E+01, 0.1819E+01, 0.1825E+01, 0.1830E+01,& - 0.1835E+01, 0.1841E+01, 0.1846E+01, 0.1852E+01,& - 0.1858E+01, 0.1864E+01, 0.1869E+01, 0.1875E+01,& - 0.1882E+01, 0.1888E+01, 0.1894E+01, 0.1900E+01,& - 0.1907E+01, 0.1913E+01, 0.1920E+01, 0.1927E+01,& - 0.1934E+01, 0.1941E+01, 0.1948E+01, 0.1955E+01,& - 0.1963E+01, 0.1970E+01, 0.1978E+01, 0.1986E+01,& - 0.1994E+01, 0.2003E+01, 0.2011E+01, 0.2020E+01,& - 0.2029E+01, 0.2038E+01, 0.2047E+01, 0.2057E+01,& - 0.2067E+01, 0.2077E+01, 0.2087E+01, 0.2098E+01,& - 0.2109E+01, 0.2121E+01, 0.2133E+01, 0.2145E+01,& - 0.2158E+01, 0.2171E+01, 0.2185E+01, 0.2199E+01,& - 0.2214E+01, 0.2230E+01, 0.2246E+01, 0.2264E+01,& - 0.2282E+01, 0.2302E+01, 0.2322E+01, 0.2345E+01,& - 0.2369E+01, 0.2395E+01, 0.2423E+01, 0.2455E+01,& - 0.2490E+01, 0.2530E+01, 0.2576E+01, 0.2632E+01,& - 0.1000E-04, 0.7130E-01, 0.9076E-01, 0.1047E+00/) - xcw(:, 18) = (/& - 0.1000E-04, 0.7130E-01, 0.9076E-01, 0.1047E+00,& - 0.1160E+00, 0.1256E+00, 0.1341E+00, 0.1418E+00,& - 0.1488E+00, 0.1554E+00, 0.1615E+00, 0.1673E+00,& - 0.1727E+00, 0.1779E+00, 0.1829E+00, 0.1876E+00,& - 0.1922E+00, 0.1966E+00, 0.2009E+00, 0.2051E+00,& - 0.2091E+00, 0.2130E+00, 0.2168E+00, 0.2205E+00,& - 0.2241E+00, 0.2276E+00, 0.2311E+00, 0.2345E+00,& - 0.2378E+00, 0.2410E+00, 0.2442E+00, 0.2474E+00,& - 0.2504E+00, 0.2535E+00, 0.2565E+00, 0.2594E+00,& - 0.2622E+00, 0.2651E+00, 0.2679E+00, 0.2707E+00,& - 0.2734E+00, 0.2761E+00, 0.2787E+00, 0.2814E+00,& - 0.2839E+00, 0.2865E+00, 0.2890E+00, 0.2915E+00,& - 0.2940E+00, 0.2965E+00, 0.2989E+00, 0.3013E+00,& - 0.3037E+00, 0.3060E+00, 0.3083E+00, 0.3106E+00,& - 0.3129E+00, 0.3152E+00, 0.3174E+00, 0.3197E+00,& - 0.3219E+00, 0.3240E+00, 0.3262E+00, 0.3284E+00,& - 0.3305E+00, 0.3327E+00, 0.3348E+00, 0.3368E+00,& - 0.3389E+00, 0.3410E+00, 0.3430E+00, 0.3451E+00,& - 0.3471E+00, 0.3491E+00, 0.3511E+00, 0.3530E+00,& - 0.3550E+00, 0.3570E+00, 0.3589E+00, 0.3609E+00,& - 0.3628E+00, 0.3647E+00, 0.3666E+00, 0.3685E+00,& - 0.3704E+00, 0.3722E+00, 0.3741E+00, 0.3760E+00,& - 0.3778E+00, 0.3796E+00, 0.3814E+00, 0.3833E+00,& - 0.3851E+00, 0.3869E+00, 0.3886E+00, 0.3904E+00,& - 0.3922E+00, 0.3939E+00, 0.3957E+00, 0.3974E+00,& - 0.3992E+00, 0.4009E+00, 0.4026E+00, 0.4043E+00,& - 0.4060E+00, 0.4077E+00, 0.4094E+00, 0.4111E+00,& - 0.4128E+00, 0.4145E+00, 0.4162E+00, 0.4178E+00,& - 0.4195E+00, 0.4211E+00, 0.4228E+00, 0.4244E+00,& - 0.4260E+00, 0.4276E+00, 0.4293E+00, 0.4309E+00,& - 0.4325E+00, 0.4341E+00, 0.4357E+00, 0.4373E+00,& - 0.4389E+00, 0.4404E+00, 0.4420E+00, 0.4436E+00,& - 0.4452E+00, 0.4467E+00, 0.4483E+00, 0.4498E+00,& - 0.4514E+00, 0.4529E+00, 0.4545E+00, 0.4560E+00,& - 0.4576E+00, 0.4591E+00, 0.4606E+00, 0.4621E+00,& - 0.4637E+00, 0.4652E+00, 0.4667E+00, 0.4681E+00,& - 0.4696E+00, 0.4711E+00, 0.4727E+00, 0.4741E+00,& - 0.4756E+00, 0.4771E+00, 0.4785E+00, 0.4801E+00,& - 0.4815E+00, 0.4830E+00, 0.4844E+00, 0.4859E+00,& - 0.4874E+00, 0.4888E+00, 0.4902E+00, 0.4917E+00,& - 0.4931E+00, 0.4946E+00, 0.4960E+00, 0.4974E+00,& - 0.4989E+00, 0.5003E+00, 0.5017E+00, 0.5032E+00,& - 0.5046E+00, 0.5060E+00, 0.5074E+00, 0.5088E+00,& - 0.5102E+00, 0.5116E+00, 0.5130E+00, 0.5144E+00,& - 0.5158E+00, 0.5172E+00, 0.5186E+00, 0.5200E+00,& - 0.5214E+00, 0.5228E+00, 0.5241E+00, 0.5255E+00,& - 0.5269E+00, 0.5283E+00, 0.5296E+00, 0.5310E+00,& - 0.5324E+00, 0.5338E+00, 0.5351E+00, 0.5365E+00,& - 0.5379E+00, 0.5392E+00, 0.5405E+00, 0.5419E+00,& - 0.5433E+00, 0.5446E+00, 0.5459E+00, 0.5473E+00,& - 0.5487E+00, 0.5500E+00, 0.5513E+00, 0.5527E+00,& - 0.5540E+00, 0.5553E+00, 0.5566E+00, 0.5580E+00,& - 0.5593E+00, 0.5606E+00, 0.5620E+00, 0.5633E+00,& - 0.5646E+00, 0.5659E+00, 0.5673E+00, 0.5686E+00,& - 0.5699E+00, 0.5712E+00, 0.5725E+00, 0.5738E+00,& - 0.5751E+00, 0.5765E+00, 0.5778E+00, 0.5791E+00,& - 0.5803E+00, 0.5817E+00, 0.5830E+00, 0.5843E+00,& - 0.5855E+00, 0.5869E+00, 0.5882E+00, 0.5894E+00,& - 0.5908E+00, 0.5920E+00, 0.5933E+00, 0.5946E+00,& - 0.5959E+00, 0.5972E+00, 0.5985E+00, 0.5998E+00,& - 0.6010E+00, 0.6023E+00, 0.6036E+00, 0.6049E+00,& - 0.6061E+00, 0.6074E+00, 0.6087E+00, 0.6100E+00,& - 0.6112E+00, 0.6125E+00, 0.6138E+00, 0.6151E+00,& - 0.6164E+00, 0.6176E+00, 0.6189E+00, 0.6201E+00,& - 0.6214E+00, 0.6227E+00, 0.6239E+00, 0.6252E+00,& - 0.6265E+00, 0.6277E+00, 0.6290E+00, 0.6302E+00,& - 0.6315E+00, 0.6328E+00, 0.6340E+00, 0.6353E+00,& - 0.6365E+00, 0.6378E+00, 0.6390E+00, 0.6403E+00,& - 0.6415E+00, 0.6428E+00, 0.6440E+00, 0.6453E+00,& - 0.6465E+00, 0.6478E+00, 0.6490E+00, 0.6503E+00,& - 0.6515E+00, 0.6528E+00, 0.6540E+00, 0.6552E+00,& - 0.6565E+00, 0.6577E+00, 0.6590E+00, 0.6602E+00,& - 0.6615E+00, 0.6627E+00, 0.6639E+00, 0.6652E+00,& - 0.6664E+00, 0.6676E+00, 0.6689E+00, 0.6701E+00,& - 0.6713E+00, 0.6726E+00, 0.6738E+00, 0.6751E+00,& - 0.6763E+00, 0.6775E+00, 0.6788E+00, 0.6800E+00,& - 0.6812E+00, 0.6825E+00, 0.6837E+00, 0.6849E+00,& - 0.6861E+00, 0.6874E+00, 0.6886E+00, 0.6898E+00,& - 0.6911E+00, 0.6923E+00, 0.6935E+00, 0.6947E+00,& - 0.6960E+00, 0.6972E+00, 0.6984E+00, 0.6997E+00,& - 0.7009E+00, 0.7021E+00, 0.7034E+00, 0.7046E+00,& - 0.7058E+00, 0.7070E+00, 0.7082E+00, 0.7095E+00,& - 0.7107E+00, 0.7119E+00, 0.7131E+00, 0.7144E+00,& - 0.7156E+00, 0.7168E+00, 0.7181E+00, 0.7193E+00,& - 0.7205E+00, 0.7217E+00, 0.7229E+00, 0.7241E+00,& - 0.7254E+00, 0.7266E+00, 0.7278E+00, 0.7291E+00,& - 0.7303E+00, 0.7315E+00, 0.7327E+00, 0.7339E+00,& - 0.7351E+00, 0.7364E+00, 0.7376E+00, 0.7388E+00,& - 0.7400E+00, 0.7413E+00, 0.7425E+00, 0.7437E+00,& - 0.7449E+00, 0.7461E+00, 0.7473E+00, 0.7486E+00,& - 0.7498E+00, 0.7510E+00, 0.7523E+00, 0.7535E+00,& - 0.7547E+00, 0.7559E+00, 0.7571E+00, 0.7583E+00,& - 0.7596E+00, 0.7608E+00, 0.7620E+00, 0.7632E+00,& - 0.7645E+00, 0.7657E+00, 0.7669E+00, 0.7681E+00,& - 0.7693E+00, 0.7706E+00, 0.7718E+00, 0.7730E+00,& - 0.7742E+00, 0.7755E+00, 0.7767E+00, 0.7779E+00,& - 0.7791E+00, 0.7803E+00, 0.7816E+00, 0.7828E+00,& - 0.7840E+00, 0.7853E+00, 0.7865E+00, 0.7877E+00,& - 0.7889E+00, 0.7902E+00, 0.7914E+00, 0.7926E+00,& - 0.7938E+00, 0.7950E+00, 0.7963E+00, 0.7975E+00,& - 0.7987E+00, 0.8000E+00, 0.8012E+00, 0.8024E+00,& - 0.8036E+00, 0.8049E+00, 0.8061E+00, 0.8073E+00,& - 0.8086E+00, 0.8098E+00, 0.8110E+00, 0.8123E+00,& - 0.8135E+00, 0.8147E+00, 0.8160E+00, 0.8172E+00,& - 0.8184E+00, 0.8197E+00, 0.8209E+00, 0.8221E+00,& - 0.8234E+00, 0.8245E+00, 0.8258E+00, 0.8271E+00,& - 0.8283E+00, 0.8295E+00, 0.8308E+00, 0.8320E+00,& - 0.8333E+00, 0.8345E+00, 0.8357E+00, 0.8370E+00,& - 0.8382E+00, 0.8395E+00, 0.8407E+00, 0.8419E+00,& - 0.8432E+00, 0.8444E+00, 0.8457E+00, 0.8469E+00,& - 0.8482E+00, 0.8494E+00, 0.8507E+00, 0.8519E+00,& - 0.8531E+00, 0.8544E+00, 0.8557E+00, 0.8569E+00,& - 0.8581E+00, 0.8594E+00, 0.8606E+00, 0.8619E+00,& - 0.8632E+00, 0.8644E+00, 0.8656E+00, 0.8669E+00,& - 0.8682E+00, 0.8694E+00, 0.8707E+00, 0.8720E+00,& - 0.8732E+00, 0.8745E+00, 0.8757E+00, 0.8770E+00,& - 0.8782E+00, 0.8795E+00, 0.8808E+00, 0.8820E+00,& - 0.8833E+00, 0.8846E+00, 0.8858E+00, 0.8871E+00,& - 0.8884E+00, 0.8896E+00, 0.8909E+00, 0.8922E+00,& - 0.8934E+00, 0.8947E+00, 0.8960E+00, 0.8973E+00,& - 0.8985E+00, 0.8998E+00, 0.9011E+00, 0.9024E+00,& - 0.9036E+00, 0.9049E+00, 0.9062E+00, 0.9075E+00,& - 0.9088E+00, 0.9100E+00, 0.9113E+00, 0.9126E+00,& - 0.9139E+00, 0.9152E+00, 0.9164E+00, 0.9178E+00,& - 0.9190E+00, 0.9203E+00, 0.9216E+00, 0.9229E+00,& - 0.9242E+00, 0.9255E+00, 0.9268E+00, 0.9281E+00,& - 0.9294E+00, 0.9307E+00, 0.9320E+00, 0.9333E+00,& - 0.9346E+00, 0.9359E+00, 0.9372E+00, 0.9385E+00,& - 0.9398E+00, 0.9411E+00, 0.9424E+00, 0.9437E+00,& - 0.9451E+00, 0.9464E+00, 0.9477E+00, 0.9490E+00,& - 0.9503E+00, 0.9516E+00, 0.9529E+00, 0.9543E+00,& - 0.9556E+00, 0.9569E+00, 0.9582E+00, 0.9595E+00,& - 0.9609E+00, 0.9622E+00, 0.9635E+00, 0.9648E+00,& - 0.9662E+00, 0.9675E+00, 0.9688E+00, 0.9702E+00,& - 0.9715E+00, 0.9728E+00, 0.9742E+00, 0.9755E+00,& - 0.9768E+00, 0.9782E+00, 0.9795E+00, 0.9809E+00,& - 0.9822E+00, 0.9835E+00, 0.9849E+00, 0.9863E+00,& - 0.9876E+00, 0.9890E+00, 0.9903E+00, 0.9917E+00,& - 0.9930E+00, 0.9944E+00, 0.9958E+00, 0.9971E+00,& - 0.9985E+00, 0.9999E+00, 0.1001E+01, 0.1003E+01,& - 0.1004E+01, 0.1005E+01, 0.1007E+01, 0.1008E+01,& - 0.1009E+01, 0.1011E+01, 0.1012E+01, 0.1014E+01,& - 0.1015E+01, 0.1016E+01, 0.1018E+01, 0.1019E+01,& - 0.1020E+01, 0.1022E+01, 0.1023E+01, 0.1025E+01,& - 0.1026E+01, 0.1027E+01, 0.1029E+01, 0.1030E+01,& - 0.1032E+01, 0.1033E+01, 0.1034E+01, 0.1036E+01,& - 0.1037E+01, 0.1039E+01, 0.1040E+01, 0.1042E+01,& - 0.1043E+01, 0.1044E+01, 0.1046E+01, 0.1047E+01,& - 0.1049E+01, 0.1050E+01, 0.1051E+01, 0.1053E+01,& - 0.1054E+01, 0.1056E+01, 0.1057E+01, 0.1059E+01,& - 0.1060E+01, 0.1062E+01, 0.1063E+01, 0.1064E+01,& - 0.1066E+01, 0.1067E+01, 0.1069E+01, 0.1070E+01,& - 0.1072E+01, 0.1073E+01, 0.1075E+01, 0.1076E+01,& - 0.1078E+01, 0.1079E+01, 0.1080E+01, 0.1082E+01,& - 0.1083E+01, 0.1085E+01, 0.1086E+01, 0.1088E+01,& - 0.1089E+01, 0.1091E+01, 0.1092E+01, 0.1094E+01,& - 0.1095E+01, 0.1097E+01, 0.1098E+01, 0.1100E+01,& - 0.1101E+01, 0.1103E+01, 0.1104E+01, 0.1106E+01,& - 0.1107E+01, 0.1109E+01, 0.1110E+01, 0.1112E+01,& - 0.1113E+01, 0.1115E+01, 0.1116E+01, 0.1118E+01,& - 0.1119E+01, 0.1121E+01, 0.1122E+01, 0.1124E+01,& - 0.1126E+01, 0.1127E+01, 0.1129E+01, 0.1130E+01,& - 0.1132E+01, 0.1133E+01, 0.1135E+01, 0.1136E+01,& - 0.1138E+01, 0.1140E+01, 0.1141E+01, 0.1143E+01,& - 0.1144E+01, 0.1146E+01, 0.1147E+01, 0.1149E+01,& - 0.1151E+01, 0.1152E+01, 0.1154E+01, 0.1155E+01,& - 0.1157E+01, 0.1159E+01, 0.1160E+01, 0.1162E+01,& - 0.1163E+01, 0.1165E+01, 0.1167E+01, 0.1168E+01,& - 0.1170E+01, 0.1171E+01, 0.1173E+01, 0.1175E+01,& - 0.1176E+01, 0.1178E+01, 0.1180E+01, 0.1181E+01,& - 0.1183E+01, 0.1185E+01, 0.1186E+01, 0.1188E+01,& - 0.1190E+01, 0.1191E+01, 0.1193E+01, 0.1194E+01,& - 0.1196E+01, 0.1198E+01, 0.1200E+01, 0.1201E+01,& - 0.1203E+01, 0.1205E+01, 0.1206E+01, 0.1208E+01,& - 0.1210E+01, 0.1211E+01, 0.1213E+01, 0.1215E+01,& - 0.1217E+01, 0.1218E+01, 0.1220E+01, 0.1222E+01,& - 0.1223E+01, 0.1225E+01, 0.1227E+01, 0.1229E+01,& - 0.1230E+01, 0.1232E+01, 0.1234E+01, 0.1236E+01,& - 0.1237E+01, 0.1239E+01, 0.1241E+01, 0.1243E+01,& - 0.1245E+01, 0.1246E+01, 0.1248E+01, 0.1250E+01,& - 0.1252E+01, 0.1254E+01, 0.1255E+01, 0.1257E+01,& - 0.1259E+01, 0.1261E+01, 0.1263E+01, 0.1264E+01,& - 0.1266E+01, 0.1268E+01, 0.1270E+01, 0.1272E+01,& - 0.1274E+01, 0.1276E+01, 0.1277E+01, 0.1279E+01,& - 0.1281E+01, 0.1283E+01, 0.1285E+01, 0.1287E+01,& - 0.1289E+01, 0.1291E+01, 0.1292E+01, 0.1294E+01,& - 0.1296E+01, 0.1298E+01, 0.1300E+01, 0.1302E+01,& - 0.1304E+01, 0.1306E+01, 0.1308E+01, 0.1310E+01,& - 0.1312E+01, 0.1314E+01, 0.1316E+01, 0.1318E+01,& - 0.1320E+01, 0.1322E+01, 0.1324E+01, 0.1326E+01,& - 0.1328E+01, 0.1330E+01, 0.1332E+01, 0.1334E+01,& - 0.1336E+01, 0.1338E+01, 0.1340E+01, 0.1342E+01,& - 0.1344E+01, 0.1346E+01, 0.1348E+01, 0.1350E+01,& - 0.1352E+01, 0.1354E+01, 0.1356E+01, 0.1358E+01,& - 0.1361E+01, 0.1363E+01, 0.1365E+01, 0.1367E+01,& - 0.1369E+01, 0.1371E+01, 0.1373E+01, 0.1376E+01,& - 0.1378E+01, 0.1380E+01, 0.1382E+01, 0.1384E+01,& - 0.1386E+01, 0.1389E+01, 0.1391E+01, 0.1393E+01,& - 0.1395E+01, 0.1398E+01, 0.1400E+01, 0.1402E+01,& - 0.1404E+01, 0.1407E+01, 0.1409E+01, 0.1411E+01,& - 0.1413E+01, 0.1416E+01, 0.1418E+01, 0.1420E+01,& - 0.1423E+01, 0.1425E+01, 0.1427E+01, 0.1430E+01,& - 0.1432E+01, 0.1434E+01, 0.1437E+01, 0.1439E+01,& - 0.1442E+01, 0.1444E+01, 0.1446E+01, 0.1449E+01,& - 0.1451E+01, 0.1454E+01, 0.1456E+01, 0.1459E+01,& - 0.1461E+01, 0.1464E+01, 0.1466E+01, 0.1469E+01,& - 0.1471E+01, 0.1474E+01, 0.1476E+01, 0.1479E+01,& - 0.1481E+01, 0.1484E+01, 0.1487E+01, 0.1489E+01,& - 0.1492E+01, 0.1494E+01, 0.1497E+01, 0.1500E+01,& - 0.1502E+01, 0.1505E+01, 0.1508E+01, 0.1510E+01,& - 0.1513E+01, 0.1516E+01, 0.1519E+01, 0.1521E+01,& - 0.1524E+01, 0.1527E+01, 0.1530E+01, 0.1533E+01,& - 0.1535E+01, 0.1538E+01, 0.1541E+01, 0.1544E+01,& - 0.1547E+01, 0.1550E+01, 0.1553E+01, 0.1556E+01,& - 0.1559E+01, 0.1562E+01, 0.1565E+01, 0.1568E+01,& - 0.1571E+01, 0.1574E+01, 0.1577E+01, 0.1580E+01,& - 0.1583E+01, 0.1586E+01, 0.1589E+01, 0.1592E+01,& - 0.1595E+01, 0.1599E+01, 0.1602E+01, 0.1605E+01,& - 0.1608E+01, 0.1612E+01, 0.1615E+01, 0.1618E+01,& - 0.1621E+01, 0.1625E+01, 0.1628E+01, 0.1632E+01,& - 0.1635E+01, 0.1638E+01, 0.1642E+01, 0.1645E+01,& - 0.1649E+01, 0.1652E+01, 0.1656E+01, 0.1660E+01,& - 0.1663E+01, 0.1667E+01, 0.1670E+01, 0.1674E+01,& - 0.1678E+01, 0.1682E+01, 0.1685E+01, 0.1689E+01,& - 0.1693E+01, 0.1697E+01, 0.1701E+01, 0.1705E+01,& - 0.1709E+01, 0.1713E+01, 0.1717E+01, 0.1721E+01,& - 0.1725E+01, 0.1729E+01, 0.1733E+01, 0.1737E+01,& - 0.1742E+01, 0.1746E+01, 0.1750E+01, 0.1755E+01,& - 0.1759E+01, 0.1764E+01, 0.1768E+01, 0.1773E+01,& - 0.1777E+01, 0.1782E+01, 0.1787E+01, 0.1791E+01,& - 0.1796E+01, 0.1801E+01, 0.1806E+01, 0.1811E+01,& - 0.1816E+01, 0.1821E+01, 0.1826E+01, 0.1831E+01,& - 0.1836E+01, 0.1841E+01, 0.1847E+01, 0.1852E+01,& - 0.1858E+01, 0.1863E+01, 0.1869E+01, 0.1874E+01,& - 0.1880E+01, 0.1886E+01, 0.1892E+01, 0.1898E+01,& - 0.1904E+01, 0.1910E+01, 0.1917E+01, 0.1923E+01,& - 0.1929E+01, 0.1936E+01, 0.1943E+01, 0.1949E+01,& - 0.1956E+01, 0.1963E+01, 0.1970E+01, 0.1978E+01,& - 0.1985E+01, 0.1992E+01, 0.2000E+01, 0.2008E+01,& - 0.2016E+01, 0.2024E+01, 0.2032E+01, 0.2041E+01,& - 0.2049E+01, 0.2058E+01, 0.2067E+01, 0.2077E+01,& - 0.2086E+01, 0.2096E+01, 0.2106E+01, 0.2116E+01,& - 0.2126E+01, 0.2137E+01, 0.2148E+01, 0.2160E+01,& - 0.2172E+01, 0.2184E+01, 0.2197E+01, 0.2210E+01,& - 0.2223E+01, 0.2237E+01, 0.2252E+01, 0.2267E+01,& - 0.2283E+01, 0.2300E+01, 0.2318E+01, 0.2336E+01,& - 0.2356E+01, 0.2377E+01, 0.2399E+01, 0.2422E+01,& - 0.2448E+01, 0.2476E+01, 0.2506E+01, 0.2539E+01,& - 0.2577E+01, 0.2619E+01, 0.2669E+01, 0.2728E+01,& - 0.1000E-04, 0.5879E-01, 0.7643E-01, 0.8920E-01/) - xcw(:, 19) = (/& - 0.1000E-04, 0.5879E-01, 0.7643E-01, 0.8920E-01,& - 0.9963E-01, 0.1086E+00, 0.1166E+00, 0.1238E+00,& - 0.1304E+00, 0.1366E+00, 0.1424E+00, 0.1479E+00,& - 0.1531E+00, 0.1581E+00, 0.1628E+00, 0.1674E+00,& - 0.1718E+00, 0.1761E+00, 0.1802E+00, 0.1842E+00,& - 0.1881E+00, 0.1919E+00, 0.1956E+00, 0.1992E+00,& - 0.2027E+00, 0.2061E+00, 0.2095E+00, 0.2128E+00,& - 0.2160E+00, 0.2192E+00, 0.2223E+00, 0.2253E+00,& - 0.2284E+00, 0.2313E+00, 0.2342E+00, 0.2371E+00,& - 0.2399E+00, 0.2427E+00, 0.2455E+00, 0.2482E+00,& - 0.2509E+00, 0.2535E+00, 0.2561E+00, 0.2587E+00,& - 0.2613E+00, 0.2638E+00, 0.2663E+00, 0.2688E+00,& - 0.2712E+00, 0.2736E+00, 0.2760E+00, 0.2784E+00,& - 0.2807E+00, 0.2831E+00, 0.2854E+00, 0.2877E+00,& - 0.2899E+00, 0.2922E+00, 0.2944E+00, 0.2966E+00,& - 0.2988E+00, 0.3010E+00, 0.3031E+00, 0.3053E+00,& - 0.3074E+00, 0.3096E+00, 0.3116E+00, 0.3137E+00,& - 0.3158E+00, 0.3179E+00, 0.3199E+00, 0.3219E+00,& - 0.3240E+00, 0.3260E+00, 0.3279E+00, 0.3299E+00,& - 0.3319E+00, 0.3339E+00, 0.3358E+00, 0.3377E+00,& - 0.3396E+00, 0.3416E+00, 0.3434E+00, 0.3453E+00,& - 0.3472E+00, 0.3491E+00, 0.3509E+00, 0.3528E+00,& - 0.3547E+00, 0.3565E+00, 0.3583E+00, 0.3601E+00,& - 0.3619E+00, 0.3637E+00, 0.3656E+00, 0.3673E+00,& - 0.3691E+00, 0.3709E+00, 0.3726E+00, 0.3744E+00,& - 0.3761E+00, 0.3779E+00, 0.3796E+00, 0.3813E+00,& - 0.3830E+00, 0.3847E+00, 0.3865E+00, 0.3882E+00,& - 0.3898E+00, 0.3915E+00, 0.3932E+00, 0.3949E+00,& - 0.3966E+00, 0.3982E+00, 0.3999E+00, 0.4015E+00,& - 0.4032E+00, 0.4048E+00, 0.4064E+00, 0.4081E+00,& - 0.4097E+00, 0.4113E+00, 0.4130E+00, 0.4145E+00,& - 0.4161E+00, 0.4178E+00, 0.4194E+00, 0.4210E+00,& - 0.4225E+00, 0.4241E+00, 0.4257E+00, 0.4273E+00,& - 0.4288E+00, 0.4304E+00, 0.4319E+00, 0.4335E+00,& - 0.4351E+00, 0.4366E+00, 0.4381E+00, 0.4397E+00,& - 0.4412E+00, 0.4427E+00, 0.4443E+00, 0.4458E+00,& - 0.4473E+00, 0.4488E+00, 0.4503E+00, 0.4519E+00,& - 0.4533E+00, 0.4548E+00, 0.4563E+00, 0.4579E+00,& - 0.4594E+00, 0.4608E+00, 0.4623E+00, 0.4638E+00,& - 0.4653E+00, 0.4668E+00, 0.4682E+00, 0.4697E+00,& - 0.4711E+00, 0.4726E+00, 0.4741E+00, 0.4756E+00,& - 0.4770E+00, 0.4784E+00, 0.4799E+00, 0.4813E+00,& - 0.4828E+00, 0.4842E+00, 0.4856E+00, 0.4871E+00,& - 0.4885E+00, 0.4900E+00, 0.4914E+00, 0.4928E+00,& - 0.4942E+00, 0.4957E+00, 0.4971E+00, 0.4985E+00,& - 0.4999E+00, 0.5013E+00, 0.5027E+00, 0.5041E+00,& - 0.5056E+00, 0.5070E+00, 0.5084E+00, 0.5097E+00,& - 0.5111E+00, 0.5125E+00, 0.5139E+00, 0.5153E+00,& - 0.5167E+00, 0.5181E+00, 0.5195E+00, 0.5209E+00,& - 0.5223E+00, 0.5236E+00, 0.5250E+00, 0.5264E+00,& - 0.5277E+00, 0.5291E+00, 0.5305E+00, 0.5319E+00,& - 0.5332E+00, 0.5346E+00, 0.5359E+00, 0.5373E+00,& - 0.5387E+00, 0.5401E+00, 0.5414E+00, 0.5427E+00,& - 0.5441E+00, 0.5454E+00, 0.5468E+00, 0.5481E+00,& - 0.5495E+00, 0.5508E+00, 0.5522E+00, 0.5535E+00,& - 0.5549E+00, 0.5562E+00, 0.5575E+00, 0.5589E+00,& - 0.5602E+00, 0.5616E+00, 0.5629E+00, 0.5642E+00,& - 0.5655E+00, 0.5669E+00, 0.5682E+00, 0.5695E+00,& - 0.5709E+00, 0.5721E+00, 0.5735E+00, 0.5748E+00,& - 0.5761E+00, 0.5775E+00, 0.5788E+00, 0.5801E+00,& - 0.5814E+00, 0.5827E+00, 0.5840E+00, 0.5854E+00,& - 0.5867E+00, 0.5879E+00, 0.5893E+00, 0.5906E+00,& - 0.5919E+00, 0.5932E+00, 0.5945E+00, 0.5958E+00,& - 0.5971E+00, 0.5984E+00, 0.5997E+00, 0.6010E+00,& - 0.6023E+00, 0.6036E+00, 0.6049E+00, 0.6062E+00,& - 0.6075E+00, 0.6088E+00, 0.6101E+00, 0.6114E+00,& - 0.6127E+00, 0.6140E+00, 0.6153E+00, 0.6166E+00,& - 0.6179E+00, 0.6192E+00, 0.6204E+00, 0.6217E+00,& - 0.6230E+00, 0.6243E+00, 0.6256E+00, 0.6269E+00,& - 0.6281E+00, 0.6294E+00, 0.6307E+00, 0.6320E+00,& - 0.6333E+00, 0.6346E+00, 0.6358E+00, 0.6371E+00,& - 0.6384E+00, 0.6397E+00, 0.6410E+00, 0.6423E+00,& - 0.6435E+00, 0.6448E+00, 0.6461E+00, 0.6474E+00,& - 0.6487E+00, 0.6499E+00, 0.6512E+00, 0.6525E+00,& - 0.6537E+00, 0.6550E+00, 0.6563E+00, 0.6576E+00,& - 0.6589E+00, 0.6601E+00, 0.6614E+00, 0.6627E+00,& - 0.6639E+00, 0.6652E+00, 0.6665E+00, 0.6677E+00,& - 0.6690E+00, 0.6703E+00, 0.6716E+00, 0.6728E+00,& - 0.6741E+00, 0.6753E+00, 0.6766E+00, 0.6779E+00,& - 0.6792E+00, 0.6805E+00, 0.6817E+00, 0.6830E+00,& - 0.6842E+00, 0.6855E+00, 0.6868E+00, 0.6881E+00,& - 0.6893E+00, 0.6906E+00, 0.6918E+00, 0.6931E+00,& - 0.6944E+00, 0.6956E+00, 0.6969E+00, 0.6982E+00,& - 0.6994E+00, 0.7007E+00, 0.7020E+00, 0.7032E+00,& - 0.7045E+00, 0.7058E+00, 0.7070E+00, 0.7083E+00,& - 0.7095E+00, 0.7108E+00, 0.7121E+00, 0.7134E+00,& - 0.7146E+00, 0.7159E+00, 0.7171E+00, 0.7184E+00,& - 0.7197E+00, 0.7209E+00, 0.7222E+00, 0.7234E+00,& - 0.7247E+00, 0.7260E+00, 0.7273E+00, 0.7285E+00,& - 0.7298E+00, 0.7310E+00, 0.7323E+00, 0.7336E+00,& - 0.7348E+00, 0.7361E+00, 0.7374E+00, 0.7386E+00,& - 0.7399E+00, 0.7412E+00, 0.7424E+00, 0.7437E+00,& - 0.7450E+00, 0.7462E+00, 0.7475E+00, 0.7488E+00,& - 0.7500E+00, 0.7513E+00, 0.7526E+00, 0.7539E+00,& - 0.7551E+00, 0.7564E+00, 0.7576E+00, 0.7589E+00,& - 0.7602E+00, 0.7615E+00, 0.7627E+00, 0.7640E+00,& - 0.7652E+00, 0.7665E+00, 0.7678E+00, 0.7691E+00,& - 0.7703E+00, 0.7716E+00, 0.7729E+00, 0.7741E+00,& - 0.7754E+00, 0.7767E+00, 0.7779E+00, 0.7792E+00,& - 0.7805E+00, 0.7818E+00, 0.7831E+00, 0.7843E+00,& - 0.7856E+00, 0.7869E+00, 0.7881E+00, 0.7894E+00,& - 0.7907E+00, 0.7920E+00, 0.7933E+00, 0.7945E+00,& - 0.7958E+00, 0.7971E+00, 0.7984E+00, 0.7997E+00,& - 0.8010E+00, 0.8022E+00, 0.8035E+00, 0.8048E+00,& - 0.8061E+00, 0.8074E+00, 0.8086E+00, 0.8099E+00,& - 0.8112E+00, 0.8125E+00, 0.8138E+00, 0.8151E+00,& - 0.8164E+00, 0.8176E+00, 0.8189E+00, 0.8202E+00,& - 0.8215E+00, 0.8228E+00, 0.8241E+00, 0.8254E+00,& - 0.8266E+00, 0.8279E+00, 0.8292E+00, 0.8305E+00,& - 0.8318E+00, 0.8331E+00, 0.8344E+00, 0.8357E+00,& - 0.8370E+00, 0.8383E+00, 0.8396E+00, 0.8409E+00,& - 0.8422E+00, 0.8435E+00, 0.8448E+00, 0.8461E+00,& - 0.8474E+00, 0.8487E+00, 0.8500E+00, 0.8513E+00,& - 0.8526E+00, 0.8539E+00, 0.8552E+00, 0.8566E+00,& - 0.8578E+00, 0.8591E+00, 0.8605E+00, 0.8618E+00,& - 0.8631E+00, 0.8644E+00, 0.8657E+00, 0.8670E+00,& - 0.8683E+00, 0.8697E+00, 0.8710E+00, 0.8723E+00,& - 0.8736E+00, 0.8749E+00, 0.8762E+00, 0.8776E+00,& - 0.8789E+00, 0.8802E+00, 0.8815E+00, 0.8828E+00,& - 0.8842E+00, 0.8855E+00, 0.8868E+00, 0.8882E+00,& - 0.8895E+00, 0.8908E+00, 0.8921E+00, 0.8935E+00,& - 0.8948E+00, 0.8962E+00, 0.8975E+00, 0.8988E+00,& - 0.9002E+00, 0.9015E+00, 0.9028E+00, 0.9042E+00,& - 0.9055E+00, 0.9068E+00, 0.9082E+00, 0.9096E+00,& - 0.9109E+00, 0.9123E+00, 0.9136E+00, 0.9149E+00,& - 0.9163E+00, 0.9176E+00, 0.9190E+00, 0.9204E+00,& - 0.9217E+00, 0.9230E+00, 0.9244E+00, 0.9258E+00,& - 0.9271E+00, 0.9285E+00, 0.9298E+00, 0.9312E+00,& - 0.9326E+00, 0.9340E+00, 0.9353E+00, 0.9367E+00,& - 0.9380E+00, 0.9394E+00, 0.9408E+00, 0.9422E+00,& - 0.9436E+00, 0.9449E+00, 0.9463E+00, 0.9477E+00,& - 0.9490E+00, 0.9504E+00, 0.9518E+00, 0.9532E+00,& - 0.9546E+00, 0.9560E+00, 0.9574E+00, 0.9588E+00,& - 0.9601E+00, 0.9615E+00, 0.9629E+00, 0.9643E+00,& - 0.9657E+00, 0.9671E+00, 0.9685E+00, 0.9699E+00,& - 0.9713E+00, 0.9727E+00, 0.9741E+00, 0.9755E+00,& - 0.9769E+00, 0.9783E+00, 0.9797E+00, 0.9812E+00,& - 0.9826E+00, 0.9840E+00, 0.9854E+00, 0.9868E+00,& - 0.9882E+00, 0.9897E+00, 0.9911E+00, 0.9925E+00,& - 0.9939E+00, 0.9954E+00, 0.9968E+00, 0.9982E+00,& - 0.9996E+00, 0.1001E+01, 0.1003E+01, 0.1004E+01,& - 0.1005E+01, 0.1007E+01, 0.1008E+01, 0.1010E+01,& - 0.1011E+01, 0.1013E+01, 0.1014E+01, 0.1016E+01,& - 0.1017E+01, 0.1018E+01, 0.1020E+01, 0.1021E+01,& - 0.1023E+01, 0.1024E+01, 0.1026E+01, 0.1027E+01,& - 0.1029E+01, 0.1030E+01, 0.1032E+01, 0.1033E+01,& - 0.1035E+01, 0.1036E+01, 0.1038E+01, 0.1039E+01,& - 0.1041E+01, 0.1042E+01, 0.1043E+01, 0.1045E+01,& - 0.1047E+01, 0.1048E+01, 0.1049E+01, 0.1051E+01,& - 0.1052E+01, 0.1054E+01, 0.1055E+01, 0.1057E+01,& - 0.1058E+01, 0.1060E+01, 0.1062E+01, 0.1063E+01,& - 0.1065E+01, 0.1066E+01, 0.1068E+01, 0.1069E+01,& - 0.1071E+01, 0.1072E+01, 0.1074E+01, 0.1075E+01,& - 0.1077E+01, 0.1078E+01, 0.1080E+01, 0.1081E+01,& - 0.1083E+01, 0.1085E+01, 0.1086E+01, 0.1088E+01,& - 0.1089E+01, 0.1091E+01, 0.1092E+01, 0.1094E+01,& - 0.1095E+01, 0.1097E+01, 0.1099E+01, 0.1100E+01,& - 0.1102E+01, 0.1103E+01, 0.1105E+01, 0.1106E+01,& - 0.1108E+01, 0.1110E+01, 0.1111E+01, 0.1113E+01,& - 0.1114E+01, 0.1116E+01, 0.1118E+01, 0.1119E+01,& - 0.1121E+01, 0.1122E+01, 0.1124E+01, 0.1126E+01,& - 0.1127E+01, 0.1129E+01, 0.1130E+01, 0.1132E+01,& - 0.1134E+01, 0.1135E+01, 0.1137E+01, 0.1139E+01,& - 0.1140E+01, 0.1142E+01, 0.1144E+01, 0.1145E+01,& - 0.1147E+01, 0.1149E+01, 0.1150E+01, 0.1152E+01,& - 0.1154E+01, 0.1155E+01, 0.1157E+01, 0.1159E+01,& - 0.1160E+01, 0.1162E+01, 0.1164E+01, 0.1165E+01,& - 0.1167E+01, 0.1169E+01, 0.1170E+01, 0.1172E+01,& - 0.1174E+01, 0.1175E+01, 0.1177E+01, 0.1179E+01,& - 0.1181E+01, 0.1182E+01, 0.1184E+01, 0.1186E+01,& - 0.1188E+01, 0.1189E+01, 0.1191E+01, 0.1193E+01,& - 0.1194E+01, 0.1196E+01, 0.1198E+01, 0.1200E+01,& - 0.1202E+01, 0.1203E+01, 0.1205E+01, 0.1207E+01,& - 0.1209E+01, 0.1210E+01, 0.1212E+01, 0.1214E+01,& - 0.1216E+01, 0.1218E+01, 0.1219E+01, 0.1221E+01,& - 0.1223E+01, 0.1225E+01, 0.1227E+01, 0.1228E+01,& - 0.1230E+01, 0.1232E+01, 0.1234E+01, 0.1236E+01,& - 0.1238E+01, 0.1239E+01, 0.1241E+01, 0.1243E+01,& - 0.1245E+01, 0.1247E+01, 0.1249E+01, 0.1251E+01,& - 0.1252E+01, 0.1254E+01, 0.1256E+01, 0.1258E+01,& - 0.1260E+01, 0.1262E+01, 0.1264E+01, 0.1266E+01,& - 0.1268E+01, 0.1270E+01, 0.1271E+01, 0.1273E+01,& - 0.1275E+01, 0.1277E+01, 0.1279E+01, 0.1281E+01,& - 0.1283E+01, 0.1285E+01, 0.1287E+01, 0.1289E+01,& - 0.1291E+01, 0.1293E+01, 0.1295E+01, 0.1297E+01,& - 0.1299E+01, 0.1301E+01, 0.1303E+01, 0.1305E+01,& - 0.1307E+01, 0.1309E+01, 0.1311E+01, 0.1313E+01,& - 0.1315E+01, 0.1317E+01, 0.1319E+01, 0.1321E+01,& - 0.1323E+01, 0.1325E+01, 0.1328E+01, 0.1330E+01,& - 0.1332E+01, 0.1334E+01, 0.1336E+01, 0.1338E+01,& - 0.1340E+01, 0.1342E+01, 0.1344E+01, 0.1347E+01,& - 0.1349E+01, 0.1351E+01, 0.1353E+01, 0.1355E+01,& - 0.1357E+01, 0.1359E+01, 0.1362E+01, 0.1364E+01,& - 0.1366E+01, 0.1368E+01, 0.1370E+01, 0.1373E+01,& - 0.1375E+01, 0.1377E+01, 0.1379E+01, 0.1382E+01,& - 0.1384E+01, 0.1386E+01, 0.1388E+01, 0.1391E+01,& - 0.1393E+01, 0.1395E+01, 0.1398E+01, 0.1400E+01,& - 0.1402E+01, 0.1404E+01, 0.1407E+01, 0.1409E+01,& - 0.1411E+01, 0.1414E+01, 0.1416E+01, 0.1419E+01,& - 0.1421E+01, 0.1423E+01, 0.1426E+01, 0.1428E+01,& - 0.1431E+01, 0.1433E+01, 0.1435E+01, 0.1438E+01,& - 0.1440E+01, 0.1443E+01, 0.1445E+01, 0.1448E+01,& - 0.1450E+01, 0.1453E+01, 0.1455E+01, 0.1458E+01,& - 0.1460E+01, 0.1463E+01, 0.1466E+01, 0.1468E+01,& - 0.1469E+01, 0.1473E+01, 0.1476E+01, 0.1479E+01,& - 0.1481E+01, 0.1484E+01, 0.1486E+01, 0.1489E+01,& - 0.1492E+01, 0.1494E+01, 0.1497E+01, 0.1500E+01,& - 0.1503E+01, 0.1505E+01, 0.1508E+01, 0.1511E+01,& - 0.1514E+01, 0.1516E+01, 0.1519E+01, 0.1522E+01,& - 0.1525E+01, 0.1528E+01, 0.1530E+01, 0.1533E+01,& - 0.1536E+01, 0.1539E+01, 0.1542E+01, 0.1545E+01,& - 0.1548E+01, 0.1551E+01, 0.1554E+01, 0.1557E+01,& - 0.1560E+01, 0.1563E+01, 0.1566E+01, 0.1569E+01,& - 0.1572E+01, 0.1575E+01, 0.1578E+01, 0.1581E+01,& - 0.1584E+01, 0.1587E+01, 0.1591E+01, 0.1594E+01,& - 0.1597E+01, 0.1600E+01, 0.1603E+01, 0.1607E+01,& - 0.1610E+01, 0.1613E+01, 0.1617E+01, 0.1620E+01,& - 0.1623E+01, 0.1627E+01, 0.1630E+01, 0.1633E+01,& - 0.1637E+01, 0.1640E+01, 0.1644E+01, 0.1647E+01,& - 0.1651E+01, 0.1654E+01, 0.1658E+01, 0.1662E+01,& - 0.1665E+01, 0.1669E+01, 0.1672E+01, 0.1676E+01,& - 0.1680E+01, 0.1684E+01, 0.1687E+01, 0.1691E+01,& - 0.1695E+01, 0.1699E+01, 0.1703E+01, 0.1707E+01,& - 0.1711E+01, 0.1715E+01, 0.1719E+01, 0.1723E+01,& - 0.1727E+01, 0.1731E+01, 0.1735E+01, 0.1739E+01,& - 0.1743E+01, 0.1748E+01, 0.1752E+01, 0.1756E+01,& - 0.1761E+01, 0.1765E+01, 0.1769E+01, 0.1774E+01,& - 0.1778E+01, 0.1783E+01, 0.1787E+01, 0.1792E+01,& - 0.1797E+01, 0.1801E+01, 0.1806E+01, 0.1811E+01,& - 0.1816E+01, 0.1821E+01, 0.1826E+01, 0.1831E+01,& - 0.1836E+01, 0.1841E+01, 0.1846E+01, 0.1851E+01,& - 0.1857E+01, 0.1862E+01, 0.1867E+01, 0.1873E+01,& - 0.1879E+01, 0.1884E+01, 0.1890E+01, 0.1895E+01,& - 0.1901E+01, 0.1907E+01, 0.1913E+01, 0.1919E+01,& - 0.1925E+01, 0.1932E+01, 0.1938E+01, 0.1944E+01,& - 0.1951E+01, 0.1957E+01, 0.1964E+01, 0.1971E+01,& - 0.1977E+01, 0.1984E+01, 0.1991E+01, 0.1999E+01,& - 0.2006E+01, 0.2013E+01, 0.2021E+01, 0.2029E+01,& - 0.2037E+01, 0.2045E+01, 0.2053E+01, 0.2061E+01,& - 0.2069E+01, 0.2078E+01, 0.2087E+01, 0.2096E+01,& - 0.2105E+01, 0.2114E+01, 0.2124E+01, 0.2134E+01,& - 0.2144E+01, 0.2154E+01, 0.2165E+01, 0.2176E+01,& - 0.2187E+01, 0.2198E+01, 0.2210E+01, 0.2222E+01,& - 0.2235E+01, 0.2248E+01, 0.2261E+01, 0.2275E+01,& - 0.2290E+01, 0.2305E+01, 0.2320E+01, 0.2337E+01,& - 0.2354E+01, 0.2371E+01, 0.2390E+01, 0.2410E+01,& - 0.2431E+01, 0.2453E+01, 0.2476E+01, 0.2501E+01,& - 0.2528E+01, 0.2558E+01, 0.2590E+01, 0.2626E+01,& - 0.2665E+01, 0.2710E+01, 0.2763E+01, 0.2826E+01,& - 0.1000E-04, 0.4813E-01, 0.6392E-01, 0.7554E-01/) - xcw(:, 20) = (/& - 0.1000E-04, 0.4813E-01, 0.6392E-01, 0.7554E-01,& - 0.8508E-01, 0.9341E-01, 0.1008E+00, 0.1075E+00,& - 0.1138E+00, 0.1196E+00, 0.1251E+00, 0.1303E+00,& - 0.1352E+00, 0.1399E+00, 0.1445E+00, 0.1488E+00,& - 0.1530E+00, 0.1571E+00, 0.1611E+00, 0.1649E+00,& - 0.1686E+00, 0.1723E+00, 0.1758E+00, 0.1793E+00,& - 0.1827E+00, 0.1860E+00, 0.1892E+00, 0.1924E+00,& - 0.1956E+00, 0.1987E+00, 0.2017E+00, 0.2047E+00,& - 0.2076E+00, 0.2105E+00, 0.2134E+00, 0.2161E+00,& - 0.2189E+00, 0.2216E+00, 0.2243E+00, 0.2270E+00,& - 0.2296E+00, 0.2322E+00, 0.2348E+00, 0.2373E+00,& - 0.2398E+00, 0.2423E+00, 0.2447E+00, 0.2472E+00,& - 0.2495E+00, 0.2519E+00, 0.2543E+00, 0.2566E+00,& - 0.2589E+00, 0.2613E+00, 0.2636E+00, 0.2658E+00,& - 0.2680E+00, 0.2703E+00, 0.2724E+00, 0.2746E+00,& - 0.2768E+00, 0.2790E+00, 0.2811E+00, 0.2832E+00,& - 0.2853E+00, 0.2874E+00, 0.2895E+00, 0.2916E+00,& - 0.2936E+00, 0.2957E+00, 0.2977E+00, 0.2997E+00,& - 0.3017E+00, 0.3037E+00, 0.3057E+00, 0.3077E+00,& - 0.3096E+00, 0.3116E+00, 0.3135E+00, 0.3154E+00,& - 0.3173E+00, 0.3192E+00, 0.3211E+00, 0.3230E+00,& - 0.3249E+00, 0.3267E+00, 0.3286E+00, 0.3305E+00,& - 0.3323E+00, 0.3342E+00, 0.3360E+00, 0.3378E+00,& - 0.3396E+00, 0.3414E+00, 0.3432E+00, 0.3450E+00,& - 0.3467E+00, 0.3485E+00, 0.3503E+00, 0.3520E+00,& - 0.3538E+00, 0.3555E+00, 0.3573E+00, 0.3590E+00,& - 0.3607E+00, 0.3624E+00, 0.3642E+00, 0.3658E+00,& - 0.3676E+00, 0.3692E+00, 0.3709E+00, 0.3726E+00,& - 0.3743E+00, 0.3759E+00, 0.3776E+00, 0.3793E+00,& - 0.3810E+00, 0.3826E+00, 0.3842E+00, 0.3859E+00,& - 0.3875E+00, 0.3891E+00, 0.3908E+00, 0.3924E+00,& - 0.3940E+00, 0.3956E+00, 0.3972E+00, 0.3988E+00,& - 0.4004E+00, 0.4020E+00, 0.4036E+00, 0.4052E+00,& - 0.4067E+00, 0.4083E+00, 0.4099E+00, 0.4115E+00,& - 0.4130E+00, 0.4146E+00, 0.4161E+00, 0.4177E+00,& - 0.4193E+00, 0.4208E+00, 0.4223E+00, 0.4239E+00,& - 0.4254E+00, 0.4269E+00, 0.4285E+00, 0.4300E+00,& - 0.4315E+00, 0.4330E+00, 0.4346E+00, 0.4361E+00,& - 0.4376E+00, 0.4391E+00, 0.4406E+00, 0.4421E+00,& - 0.4436E+00, 0.4451E+00, 0.4466E+00, 0.4481E+00,& - 0.4495E+00, 0.4511E+00, 0.4525E+00, 0.4540E+00,& - 0.4555E+00, 0.4569E+00, 0.4584E+00, 0.4599E+00,& - 0.4614E+00, 0.4628E+00, 0.4643E+00, 0.4657E+00,& - 0.4672E+00, 0.4686E+00, 0.4701E+00, 0.4715E+00,& - 0.4730E+00, 0.4744E+00, 0.4759E+00, 0.4773E+00,& - 0.4787E+00, 0.4802E+00, 0.4816E+00, 0.4830E+00,& - 0.4845E+00, 0.4859E+00, 0.4873E+00, 0.4887E+00,& - 0.4901E+00, 0.4916E+00, 0.4930E+00, 0.4944E+00,& - 0.4958E+00, 0.4972E+00, 0.4986E+00, 0.5000E+00,& - 0.5015E+00, 0.5029E+00, 0.5043E+00, 0.5057E+00,& - 0.5070E+00, 0.5085E+00, 0.5098E+00, 0.5113E+00,& - 0.5126E+00, 0.5140E+00, 0.5154E+00, 0.5168E+00,& - 0.5182E+00, 0.5196E+00, 0.5210E+00, 0.5223E+00,& - 0.5237E+00, 0.5251E+00, 0.5265E+00, 0.5279E+00,& - 0.5292E+00, 0.5306E+00, 0.5320E+00, 0.5333E+00,& - 0.5347E+00, 0.5361E+00, 0.5374E+00, 0.5388E+00,& - 0.5402E+00, 0.5416E+00, 0.5429E+00, 0.5443E+00,& - 0.5456E+00, 0.5470E+00, 0.5484E+00, 0.5497E+00,& - 0.5511E+00, 0.5524E+00, 0.5537E+00, 0.5551E+00,& - 0.5564E+00, 0.5578E+00, 0.5592E+00, 0.5605E+00,& - 0.5619E+00, 0.5632E+00, 0.5646E+00, 0.5659E+00,& - 0.5672E+00, 0.5686E+00, 0.5699E+00, 0.5713E+00,& - 0.5726E+00, 0.5739E+00, 0.5753E+00, 0.5766E+00,& - 0.5780E+00, 0.5793E+00, 0.5806E+00, 0.5819E+00,& - 0.5833E+00, 0.5846E+00, 0.5859E+00, 0.5872E+00,& - 0.5886E+00, 0.5899E+00, 0.5913E+00, 0.5926E+00,& - 0.5939E+00, 0.5952E+00, 0.5965E+00, 0.5979E+00,& - 0.5992E+00, 0.6005E+00, 0.6019E+00, 0.6032E+00,& - 0.6045E+00, 0.6058E+00, 0.6071E+00, 0.6085E+00,& - 0.6098E+00, 0.6111E+00, 0.6124E+00, 0.6137E+00,& - 0.6151E+00, 0.6164E+00, 0.6177E+00, 0.6190E+00,& - 0.6203E+00, 0.6216E+00, 0.6229E+00, 0.6242E+00,& - 0.6256E+00, 0.6269E+00, 0.6282E+00, 0.6295E+00,& - 0.6308E+00, 0.6321E+00, 0.6334E+00, 0.6348E+00,& - 0.6361E+00, 0.6374E+00, 0.6387E+00, 0.6400E+00,& - 0.6413E+00, 0.6426E+00, 0.6439E+00, 0.6453E+00,& - 0.6465E+00, 0.6479E+00, 0.6492E+00, 0.6505E+00,& - 0.6518E+00, 0.6531E+00, 0.6544E+00, 0.6557E+00,& - 0.6570E+00, 0.6583E+00, 0.6596E+00, 0.6609E+00,& - 0.6622E+00, 0.6635E+00, 0.6649E+00, 0.6661E+00,& - 0.6674E+00, 0.6688E+00, 0.6701E+00, 0.6714E+00,& - 0.6727E+00, 0.6740E+00, 0.6753E+00, 0.6766E+00,& - 0.6779E+00, 0.6792E+00, 0.6805E+00, 0.6818E+00,& - 0.6831E+00, 0.6844E+00, 0.6857E+00, 0.6870E+00,& - 0.6883E+00, 0.6896E+00, 0.6909E+00, 0.6923E+00,& - 0.6935E+00, 0.6949E+00, 0.6962E+00, 0.6974E+00,& - 0.6988E+00, 0.7001E+00, 0.7014E+00, 0.7027E+00,& - 0.7040E+00, 0.7053E+00, 0.7066E+00, 0.7079E+00,& - 0.7092E+00, 0.7105E+00, 0.7118E+00, 0.7131E+00,& - 0.7144E+00, 0.7157E+00, 0.7170E+00, 0.7184E+00,& - 0.7197E+00, 0.7209E+00, 0.7223E+00, 0.7236E+00,& - 0.7249E+00, 0.7262E+00, 0.7275E+00, 0.7288E+00,& - 0.7301E+00, 0.7315E+00, 0.7327E+00, 0.7340E+00,& - 0.7354E+00, 0.7367E+00, 0.7380E+00, 0.7393E+00,& - 0.7406E+00, 0.7419E+00, 0.7432E+00, 0.7445E+00,& - 0.7459E+00, 0.7472E+00, 0.7485E+00, 0.7498E+00,& - 0.7511E+00, 0.7524E+00, 0.7537E+00, 0.7551E+00,& - 0.7564E+00, 0.7577E+00, 0.7590E+00, 0.7603E+00,& - 0.7617E+00, 0.7630E+00, 0.7642E+00, 0.7656E+00,& - 0.7669E+00, 0.7682E+00, 0.7695E+00, 0.7708E+00,& - 0.7722E+00, 0.7735E+00, 0.7748E+00, 0.7762E+00,& - 0.7775E+00, 0.7788E+00, 0.7801E+00, 0.7814E+00,& - 0.7828E+00, 0.7841E+00, 0.7854E+00, 0.7867E+00,& - 0.7880E+00, 0.7894E+00, 0.7907E+00, 0.7921E+00,& - 0.7934E+00, 0.7947E+00, 0.7961E+00, 0.7974E+00,& - 0.7987E+00, 0.8000E+00, 0.8014E+00, 0.8027E+00,& - 0.8040E+00, 0.8054E+00, 0.8067E+00, 0.8080E+00,& - 0.8094E+00, 0.8107E+00, 0.8121E+00, 0.8134E+00,& - 0.8147E+00, 0.8161E+00, 0.8174E+00, 0.8188E+00,& - 0.8201E+00, 0.8214E+00, 0.8228E+00, 0.8241E+00,& - 0.8255E+00, 0.8268E+00, 0.8282E+00, 0.8295E+00,& - 0.8309E+00, 0.8322E+00, 0.8336E+00, 0.8349E+00,& - 0.8363E+00, 0.8376E+00, 0.8390E+00, 0.8403E+00,& - 0.8417E+00, 0.8431E+00, 0.8444E+00, 0.8458E+00,& - 0.8471E+00, 0.8485E+00, 0.8499E+00, 0.8512E+00,& - 0.8526E+00, 0.8539E+00, 0.8553E+00, 0.8567E+00,& - 0.8580E+00, 0.8594E+00, 0.8608E+00, 0.8622E+00,& - 0.8635E+00, 0.8649E+00, 0.8663E+00, 0.8676E+00,& - 0.8690E+00, 0.8704E+00, 0.8717E+00, 0.8731E+00,& - 0.8745E+00, 0.8759E+00, 0.8773E+00, 0.8787E+00,& - 0.8800E+00, 0.8814E+00, 0.8828E+00, 0.8842E+00,& - 0.8856E+00, 0.8870E+00, 0.8883E+00, 0.8898E+00,& - 0.8911E+00, 0.8926E+00, 0.8939E+00, 0.8954E+00,& - 0.8967E+00, 0.8981E+00, 0.8995E+00, 0.9009E+00,& - 0.9023E+00, 0.9037E+00, 0.9051E+00, 0.9065E+00,& - 0.9079E+00, 0.9094E+00, 0.9108E+00, 0.9122E+00,& - 0.9136E+00, 0.9150E+00, 0.9164E+00, 0.9178E+00,& - 0.9193E+00, 0.9207E+00, 0.9221E+00, 0.9235E+00,& - 0.9249E+00, 0.9264E+00, 0.9278E+00, 0.9292E+00,& - 0.9306E+00, 0.9321E+00, 0.9335E+00, 0.9349E+00,& - 0.9364E+00, 0.9378E+00, 0.9392E+00, 0.9406E+00,& - 0.9421E+00, 0.9435E+00, 0.9449E+00, 0.9464E+00,& - 0.9478E+00, 0.9493E+00, 0.9507E+00, 0.9522E+00,& - 0.9536E+00, 0.9551E+00, 0.9566E+00, 0.9580E+00,& - 0.9595E+00, 0.9609E+00, 0.9624E+00, 0.9638E+00,& - 0.9653E+00, 0.9668E+00, 0.9682E+00, 0.9697E+00,& - 0.9712E+00, 0.9727E+00, 0.9741E+00, 0.9756E+00,& - 0.9771E+00, 0.9785E+00, 0.9800E+00, 0.9815E+00,& - 0.9830E+00, 0.9845E+00, 0.9860E+00, 0.9874E+00,& - 0.9890E+00, 0.9904E+00, 0.9919E+00, 0.9934E+00,& - 0.9949E+00, 0.9964E+00, 0.9979E+00, 0.9994E+00,& - 0.1001E+01, 0.1002E+01, 0.1004E+01, 0.1005E+01,& - 0.1007E+01, 0.1008E+01, 0.1010E+01, 0.1011E+01,& - 0.1013E+01, 0.1015E+01, 0.1016E+01, 0.1018E+01,& - 0.1019E+01, 0.1021E+01, 0.1022E+01, 0.1024E+01,& - 0.1025E+01, 0.1027E+01, 0.1028E+01, 0.1030E+01,& - 0.1031E+01, 0.1033E+01, 0.1035E+01, 0.1036E+01,& - 0.1038E+01, 0.1039E+01, 0.1041E+01, 0.1042E+01,& - 0.1044E+01, 0.1045E+01, 0.1047E+01, 0.1049E+01,& - 0.1050E+01, 0.1052E+01, 0.1053E+01, 0.1055E+01,& - 0.1056E+01, 0.1058E+01, 0.1060E+01, 0.1061E+01,& - 0.1063E+01, 0.1064E+01, 0.1066E+01, 0.1068E+01,& - 0.1069E+01, 0.1071E+01, 0.1072E+01, 0.1074E+01,& - 0.1076E+01, 0.1077E+01, 0.1079E+01, 0.1080E+01,& - 0.1082E+01, 0.1084E+01, 0.1085E+01, 0.1087E+01,& - 0.1089E+01, 0.1090E+01, 0.1092E+01, 0.1093E+01,& - 0.1095E+01, 0.1097E+01, 0.1098E+01, 0.1100E+01,& - 0.1102E+01, 0.1103E+01, 0.1105E+01, 0.1107E+01,& - 0.1108E+01, 0.1110E+01, 0.1112E+01, 0.1113E+01,& - 0.1115E+01, 0.1117E+01, 0.1118E+01, 0.1120E+01,& - 0.1122E+01, 0.1123E+01, 0.1125E+01, 0.1127E+01,& - 0.1128E+01, 0.1130E+01, 0.1132E+01, 0.1134E+01,& - 0.1135E+01, 0.1137E+01, 0.1139E+01, 0.1140E+01,& - 0.1142E+01, 0.1144E+01, 0.1146E+01, 0.1147E+01,& - 0.1149E+01, 0.1151E+01, 0.1152E+01, 0.1154E+01,& - 0.1156E+01, 0.1158E+01, 0.1160E+01, 0.1161E+01,& - 0.1163E+01, 0.1165E+01, 0.1167E+01, 0.1168E+01,& - 0.1170E+01, 0.1172E+01, 0.1174E+01, 0.1175E+01,& - 0.1177E+01, 0.1179E+01, 0.1181E+01, 0.1183E+01,& - 0.1184E+01, 0.1186E+01, 0.1188E+01, 0.1190E+01,& - 0.1192E+01, 0.1194E+01, 0.1195E+01, 0.1197E+01,& - 0.1199E+01, 0.1201E+01, 0.1203E+01, 0.1205E+01,& - 0.1206E+01, 0.1208E+01, 0.1210E+01, 0.1212E+01,& - 0.1214E+01, 0.1216E+01, 0.1218E+01, 0.1219E+01,& - 0.1221E+01, 0.1223E+01, 0.1225E+01, 0.1227E+01,& - 0.1229E+01, 0.1231E+01, 0.1233E+01, 0.1235E+01,& - 0.1237E+01, 0.1238E+01, 0.1240E+01, 0.1242E+01,& - 0.1244E+01, 0.1246E+01, 0.1248E+01, 0.1250E+01,& - 0.1252E+01, 0.1254E+01, 0.1256E+01, 0.1258E+01,& - 0.1260E+01, 0.1262E+01, 0.1264E+01, 0.1266E+01,& - 0.1268E+01, 0.1270E+01, 0.1272E+01, 0.1274E+01,& - 0.1276E+01, 0.1278E+01, 0.1280E+01, 0.1282E+01,& - 0.1284E+01, 0.1286E+01, 0.1288E+01, 0.1290E+01,& - 0.1292E+01, 0.1294E+01, 0.1296E+01, 0.1298E+01,& - 0.1300E+01, 0.1303E+01, 0.1305E+01, 0.1307E+01,& - 0.1309E+01, 0.1311E+01, 0.1313E+01, 0.1315E+01,& - 0.1317E+01, 0.1319E+01, 0.1322E+01, 0.1324E+01,& - 0.1326E+01, 0.1328E+01, 0.1330E+01, 0.1332E+01,& - 0.1335E+01, 0.1337E+01, 0.1339E+01, 0.1341E+01,& - 0.1343E+01, 0.1345E+01, 0.1348E+01, 0.1350E+01,& - 0.1352E+01, 0.1354E+01, 0.1357E+01, 0.1359E+01,& - 0.1361E+01, 0.1363E+01, 0.1366E+01, 0.1368E+01,& - 0.1370E+01, 0.1372E+01, 0.1375E+01, 0.1377E+01,& - 0.1379E+01, 0.1382E+01, 0.1384E+01, 0.1386E+01,& - 0.1389E+01, 0.1391E+01, 0.1393E+01, 0.1396E+01,& - 0.1398E+01, 0.1401E+01, 0.1403E+01, 0.1405E+01,& - 0.1408E+01, 0.1410E+01, 0.1413E+01, 0.1415E+01,& - 0.1418E+01, 0.1420E+01, 0.1422E+01, 0.1425E+01,& - 0.1427E+01, 0.1430E+01, 0.1432E+01, 0.1435E+01,& - 0.1437E+01, 0.1440E+01, 0.1442E+01, 0.1445E+01,& - 0.1448E+01, 0.1450E+01, 0.1453E+01, 0.1455E+01,& - 0.1458E+01, 0.1460E+01, 0.1463E+01, 0.1466E+01,& - 0.1468E+01, 0.1471E+01, 0.1474E+01, 0.1476E+01,& - 0.1479E+01, 0.1482E+01, 0.1484E+01, 0.1487E+01,& - 0.1490E+01, 0.1493E+01, 0.1495E+01, 0.1498E+01,& - 0.1501E+01, 0.1504E+01, 0.1506E+01, 0.1509E+01,& - 0.1512E+01, 0.1515E+01, 0.1518E+01, 0.1521E+01,& - 0.1523E+01, 0.1526E+01, 0.1529E+01, 0.1532E+01,& - 0.1535E+01, 0.1538E+01, 0.1541E+01, 0.1544E+01,& - 0.1547E+01, 0.1550E+01, 0.1553E+01, 0.1556E+01,& - 0.1559E+01, 0.1562E+01, 0.1565E+01, 0.1568E+01,& - 0.1571E+01, 0.1574E+01, 0.1577E+01, 0.1581E+01,& - 0.1584E+01, 0.1587E+01, 0.1590E+01, 0.1593E+01,& - 0.1597E+01, 0.1600E+01, 0.1603E+01, 0.1606E+01,& - 0.1610E+01, 0.1613E+01, 0.1616E+01, 0.1620E+01,& - 0.1623E+01, 0.1627E+01, 0.1630E+01, 0.1633E+01,& - 0.1637E+01, 0.1640E+01, 0.1644E+01, 0.1647E+01,& - 0.1651E+01, 0.1654E+01, 0.1658E+01, 0.1662E+01,& - 0.1665E+01, 0.1669E+01, 0.1673E+01, 0.1676E+01,& - 0.1680E+01, 0.1684E+01, 0.1688E+01, 0.1691E+01,& - 0.1695E+01, 0.1699E+01, 0.1703E+01, 0.1707E+01,& - 0.1711E+01, 0.1715E+01, 0.1719E+01, 0.1723E+01,& - 0.1727E+01, 0.1731E+01, 0.1735E+01, 0.1739E+01,& - 0.1743E+01, 0.1748E+01, 0.1752E+01, 0.1756E+01,& - 0.1760E+01, 0.1765E+01, 0.1769E+01, 0.1774E+01,& - 0.1778E+01, 0.1782E+01, 0.1787E+01, 0.1792E+01,& - 0.1796E+01, 0.1801E+01, 0.1805E+01, 0.1810E+01,& - 0.1815E+01, 0.1820E+01, 0.1825E+01, 0.1830E+01,& - 0.1834E+01, 0.1839E+01, 0.1845E+01, 0.1850E+01,& - 0.1855E+01, 0.1860E+01, 0.1865E+01, 0.1871E+01,& - 0.1876E+01, 0.1881E+01, 0.1887E+01, 0.1892E+01,& - 0.1898E+01, 0.1904E+01, 0.1909E+01, 0.1915E+01,& - 0.1921E+01, 0.1927E+01, 0.1933E+01, 0.1939E+01,& - 0.1945E+01, 0.1951E+01, 0.1958E+01, 0.1964E+01,& - 0.1971E+01, 0.1977E+01, 0.1984E+01, 0.1991E+01,& - 0.1997E+01, 0.2004E+01, 0.2011E+01, 0.2019E+01,& - 0.2026E+01, 0.2033E+01, 0.2041E+01, 0.2048E+01,& - 0.2056E+01, 0.2064E+01, 0.2072E+01, 0.2080E+01,& - 0.2088E+01, 0.2097E+01, 0.2106E+01, 0.2114E+01,& - 0.2123E+01, 0.2132E+01, 0.2142E+01, 0.2151E+01,& - 0.2161E+01, 0.2171E+01, 0.2181E+01, 0.2192E+01,& - 0.2202E+01, 0.2213E+01, 0.2224E+01, 0.2236E+01,& - 0.2248E+01, 0.2260E+01, 0.2273E+01, 0.2285E+01,& - 0.2299E+01, 0.2312E+01, 0.2327E+01, 0.2341E+01,& - 0.2357E+01, 0.2373E+01, 0.2389E+01, 0.2406E+01,& - 0.2424E+01, 0.2443E+01, 0.2463E+01, 0.2484E+01,& - 0.2506E+01, 0.2530E+01, 0.2554E+01, 0.2581E+01,& - 0.2610E+01, 0.2641E+01, 0.2675E+01, 0.2713E+01,& - 0.2755E+01, 0.2803E+01, 0.2858E+01, 0.2925E+01,& - 0.1000E-04, 0.3913E-01, 0.5308E-01, 0.6356E-01/) - xcw(:, 21) = (/& - 0.1000E-04, 0.3913E-01, 0.5308E-01, 0.6356E-01,& - 0.7228E-01, 0.7990E-01, 0.8670E-01, 0.9298E-01,& - 0.9879E-01, 0.1042E+00, 0.1093E+00, 0.1142E+00,& - 0.1189E+00, 0.1233E+00, 0.1276E+00, 0.1317E+00,& - 0.1357E+00, 0.1396E+00, 0.1434E+00, 0.1471E+00,& - 0.1506E+00, 0.1541E+00, 0.1575E+00, 0.1608E+00,& - 0.1641E+00, 0.1673E+00, 0.1704E+00, 0.1735E+00,& - 0.1766E+00, 0.1795E+00, 0.1825E+00, 0.1853E+00,& - 0.1882E+00, 0.1910E+00, 0.1937E+00, 0.1964E+00,& - 0.1991E+00, 0.2018E+00, 0.2044E+00, 0.2070E+00,& - 0.2096E+00, 0.2121E+00, 0.2146E+00, 0.2170E+00,& - 0.2195E+00, 0.2219E+00, 0.2243E+00, 0.2267E+00,& - 0.2291E+00, 0.2314E+00, 0.2337E+00, 0.2360E+00,& - 0.2382E+00, 0.2405E+00, 0.2428E+00, 0.2450E+00,& - 0.2472E+00, 0.2493E+00, 0.2515E+00, 0.2537E+00,& - 0.2558E+00, 0.2580E+00, 0.2600E+00, 0.2622E+00,& - 0.2642E+00, 0.2663E+00, 0.2683E+00, 0.2704E+00,& - 0.2724E+00, 0.2744E+00, 0.2764E+00, 0.2784E+00,& - 0.2804E+00, 0.2824E+00, 0.2843E+00, 0.2863E+00,& - 0.2882E+00, 0.2902E+00, 0.2921E+00, 0.2940E+00,& - 0.2959E+00, 0.2977E+00, 0.2997E+00, 0.3015E+00,& - 0.3034E+00, 0.3052E+00, 0.3071E+00, 0.3090E+00,& - 0.3108E+00, 0.3126E+00, 0.3144E+00, 0.3162E+00,& - 0.3180E+00, 0.3198E+00, 0.3216E+00, 0.3234E+00,& - 0.3251E+00, 0.3269E+00, 0.3287E+00, 0.3304E+00,& - 0.3321E+00, 0.3339E+00, 0.3356E+00, 0.3374E+00,& - 0.3391E+00, 0.3408E+00, 0.3425E+00, 0.3442E+00,& - 0.3459E+00, 0.3476E+00, 0.3493E+00, 0.3510E+00,& - 0.3526E+00, 0.3543E+00, 0.3560E+00, 0.3577E+00,& - 0.3593E+00, 0.3610E+00, 0.3626E+00, 0.3643E+00,& - 0.3659E+00, 0.3675E+00, 0.3692E+00, 0.3708E+00,& - 0.3724E+00, 0.3740E+00, 0.3756E+00, 0.3772E+00,& - 0.3788E+00, 0.3804E+00, 0.3821E+00, 0.3837E+00,& - 0.3852E+00, 0.3868E+00, 0.3884E+00, 0.3900E+00,& - 0.3915E+00, 0.3931E+00, 0.3947E+00, 0.3963E+00,& - 0.3978E+00, 0.3994E+00, 0.4009E+00, 0.4025E+00,& - 0.4040E+00, 0.4056E+00, 0.4071E+00, 0.4087E+00,& - 0.4102E+00, 0.4117E+00, 0.4132E+00, 0.4147E+00,& - 0.4163E+00, 0.4178E+00, 0.4193E+00, 0.4209E+00,& - 0.4224E+00, 0.4239E+00, 0.4254E+00, 0.4269E+00,& - 0.4284E+00, 0.4299E+00, 0.4313E+00, 0.4328E+00,& - 0.4343E+00, 0.4359E+00, 0.4373E+00, 0.4388E+00,& - 0.4403E+00, 0.4418E+00, 0.4432E+00, 0.4447E+00,& - 0.4462E+00, 0.4476E+00, 0.4491E+00, 0.4506E+00,& - 0.4520E+00, 0.4535E+00, 0.4550E+00, 0.4564E+00,& - 0.4579E+00, 0.4594E+00, 0.4608E+00, 0.4623E+00,& - 0.4637E+00, 0.4651E+00, 0.4666E+00, 0.4680E+00,& - 0.4695E+00, 0.4709E+00, 0.4723E+00, 0.4738E+00,& - 0.4752E+00, 0.4766E+00, 0.4781E+00, 0.4795E+00,& - 0.4809E+00, 0.4823E+00, 0.4838E+00, 0.4852E+00,& - 0.4866E+00, 0.4880E+00, 0.4894E+00, 0.4908E+00,& - 0.4923E+00, 0.4937E+00, 0.4951E+00, 0.4965E+00,& - 0.4979E+00, 0.4994E+00, 0.5008E+00, 0.5022E+00,& - 0.5036E+00, 0.5050E+00, 0.5064E+00, 0.5078E+00,& - 0.5092E+00, 0.5106E+00, 0.5120E+00, 0.5134E+00,& - 0.5147E+00, 0.5161E+00, 0.5175E+00, 0.5189E+00,& - 0.5203E+00, 0.5217E+00, 0.5231E+00, 0.5245E+00,& - 0.5259E+00, 0.5272E+00, 0.5286E+00, 0.5300E+00,& - 0.5314E+00, 0.5328E+00, 0.5341E+00, 0.5355E+00,& - 0.5369E+00, 0.5383E+00, 0.5397E+00, 0.5410E+00,& - 0.5424E+00, 0.5438E+00, 0.5451E+00, 0.5465E+00,& - 0.5479E+00, 0.5493E+00, 0.5506E+00, 0.5520E+00,& - 0.5534E+00, 0.5547E+00, 0.5561E+00, 0.5575E+00,& - 0.5588E+00, 0.5602E+00, 0.5616E+00, 0.5629E+00,& - 0.5643E+00, 0.5656E+00, 0.5670E+00, 0.5684E+00,& - 0.5697E+00, 0.5711E+00, 0.5724E+00, 0.5738E+00,& - 0.5751E+00, 0.5765E+00, 0.5778E+00, 0.5792E+00,& - 0.5805E+00, 0.5819E+00, 0.5832E+00, 0.5846E+00,& - 0.5860E+00, 0.5873E+00, 0.5887E+00, 0.5900E+00,& - 0.5914E+00, 0.5927E+00, 0.5941E+00, 0.5954E+00,& - 0.5968E+00, 0.5981E+00, 0.5995E+00, 0.6008E+00,& - 0.6022E+00, 0.6035E+00, 0.6049E+00, 0.6062E+00,& - 0.6076E+00, 0.6089E+00, 0.6103E+00, 0.6116E+00,& - 0.6129E+00, 0.6143E+00, 0.6156E+00, 0.6170E+00,& - 0.6183E+00, 0.6197E+00, 0.6210E+00, 0.6224E+00,& - 0.6237E+00, 0.6251E+00, 0.6264E+00, 0.6277E+00,& - 0.6291E+00, 0.6304E+00, 0.6318E+00, 0.6331E+00,& - 0.6344E+00, 0.6358E+00, 0.6371E+00, 0.6384E+00,& - 0.6398E+00, 0.6411E+00, 0.6425E+00, 0.6438E+00,& - 0.6452E+00, 0.6465E+00, 0.6478E+00, 0.6492E+00,& - 0.6505E+00, 0.6519E+00, 0.6532E+00, 0.6546E+00,& - 0.6559E+00, 0.6572E+00, 0.6586E+00, 0.6599E+00,& - 0.6613E+00, 0.6626E+00, 0.6640E+00, 0.6653E+00,& - 0.6667E+00, 0.6680E+00, 0.6693E+00, 0.6707E+00,& - 0.6720E+00, 0.6734E+00, 0.6747E+00, 0.6761E+00,& - 0.6774E+00, 0.6787E+00, 0.6801E+00, 0.6814E+00,& - 0.6827E+00, 0.6841E+00, 0.6854E+00, 0.6868E+00,& - 0.6881E+00, 0.6895E+00, 0.6908E+00, 0.6921E+00,& - 0.6935E+00, 0.6948E+00, 0.6962E+00, 0.6975E+00,& - 0.6989E+00, 0.7002E+00, 0.7016E+00, 0.7029E+00,& - 0.7043E+00, 0.7056E+00, 0.7070E+00, 0.7083E+00,& - 0.7097E+00, 0.7110E+00, 0.7124E+00, 0.7137E+00,& - 0.7151E+00, 0.7164E+00, 0.7178E+00, 0.7191E+00,& - 0.7205E+00, 0.7218E+00, 0.7232E+00, 0.7245E+00,& - 0.7259E+00, 0.7272E+00, 0.7286E+00, 0.7299E+00,& - 0.7313E+00, 0.7327E+00, 0.7340E+00, 0.7354E+00,& - 0.7367E+00, 0.7381E+00, 0.7394E+00, 0.7408E+00,& - 0.7422E+00, 0.7435E+00, 0.7448E+00, 0.7462E+00,& - 0.7476E+00, 0.7489E+00, 0.7503E+00, 0.7516E+00,& - 0.7530E+00, 0.7544E+00, 0.7557E+00, 0.7571E+00,& - 0.7585E+00, 0.7598E+00, 0.7612E+00, 0.7626E+00,& - 0.7639E+00, 0.7653E+00, 0.7667E+00, 0.7680E+00,& - 0.7694E+00, 0.7708E+00, 0.7721E+00, 0.7735E+00,& - 0.7749E+00, 0.7763E+00, 0.7776E+00, 0.7790E+00,& - 0.7804E+00, 0.7818E+00, 0.7831E+00, 0.7845E+00,& - 0.7859E+00, 0.7873E+00, 0.7887E+00, 0.7900E+00,& - 0.7914E+00, 0.7928E+00, 0.7942E+00, 0.7956E+00,& - 0.7969E+00, 0.7983E+00, 0.7997E+00, 0.8011E+00,& - 0.8025E+00, 0.8039E+00, 0.8053E+00, 0.8067E+00,& - 0.8080E+00, 0.8094E+00, 0.8108E+00, 0.8122E+00,& - 0.8136E+00, 0.8150E+00, 0.8164E+00, 0.8178E+00,& - 0.8192E+00, 0.8206E+00, 0.8220E+00, 0.8234E+00,& - 0.8248E+00, 0.8262E+00, 0.8276E+00, 0.8290E+00,& - 0.8305E+00, 0.8319E+00, 0.8333E+00, 0.8347E+00,& - 0.8361E+00, 0.8375E+00, 0.8389E+00, 0.8403E+00,& - 0.8417E+00, 0.8431E+00, 0.8446E+00, 0.8460E+00,& - 0.8474E+00, 0.8488E+00, 0.8502E+00, 0.8516E+00,& - 0.8531E+00, 0.8545E+00, 0.8559E+00, 0.8573E+00,& - 0.8588E+00, 0.8602E+00, 0.8616E+00, 0.8630E+00,& - 0.8645E+00, 0.8659E+00, 0.8673E+00, 0.8688E+00,& - 0.8702E+00, 0.8716E+00, 0.8731E+00, 0.8745E+00,& - 0.8759E+00, 0.8774E+00, 0.8789E+00, 0.8803E+00,& - 0.8818E+00, 0.8832E+00, 0.8846E+00, 0.8861E+00,& - 0.8875E+00, 0.8890E+00, 0.8904E+00, 0.8919E+00,& - 0.8933E+00, 0.8948E+00, 0.8963E+00, 0.8977E+00,& - 0.8992E+00, 0.9006E+00, 0.9021E+00, 0.9036E+00,& - 0.9051E+00, 0.9065E+00, 0.9080E+00, 0.9095E+00,& - 0.9109E+00, 0.9124E+00, 0.9139E+00, 0.9154E+00,& - 0.9168E+00, 0.9183E+00, 0.9198E+00, 0.9213E+00,& - 0.9227E+00, 0.9242E+00, 0.9258E+00, 0.9272E+00,& - 0.9287E+00, 0.9302E+00, 0.9317E+00, 0.9332E+00,& - 0.9347E+00, 0.9362E+00, 0.9377E+00, 0.9392E+00,& - 0.9407E+00, 0.9422E+00, 0.9437E+00, 0.9452E+00,& - 0.9467E+00, 0.9482E+00, 0.9498E+00, 0.9513E+00,& - 0.9528E+00, 0.9543E+00, 0.9558E+00, 0.9573E+00,& - 0.9589E+00, 0.9604E+00, 0.9619E+00, 0.9635E+00,& - 0.9650E+00, 0.9665E+00, 0.9680E+00, 0.9696E+00,& - 0.9711E+00, 0.9727E+00, 0.9742E+00, 0.9758E+00,& - 0.9773E+00, 0.9788E+00, 0.9804E+00, 0.9819E+00,& - 0.9835E+00, 0.9851E+00, 0.9866E+00, 0.9882E+00,& - 0.9897E+00, 0.9913E+00, 0.9928E+00, 0.9944E+00,& - 0.9960E+00, 0.9976E+00, 0.9991E+00, 0.1001E+01,& - 0.1002E+01, 0.1004E+01, 0.1005E+01, 0.1007E+01,& - 0.1009E+01, 0.1010E+01, 0.1012E+01, 0.1013E+01,& - 0.1015E+01, 0.1017E+01, 0.1018E+01, 0.1020E+01,& - 0.1021E+01, 0.1023E+01, 0.1025E+01, 0.1026E+01,& - 0.1028E+01, 0.1029E+01, 0.1031E+01, 0.1033E+01,& - 0.1034E+01, 0.1036E+01, 0.1038E+01, 0.1039E+01,& - 0.1041E+01, 0.1042E+01, 0.1044E+01, 0.1046E+01,& - 0.1047E+01, 0.1049E+01, 0.1051E+01, 0.1052E+01,& - 0.1054E+01, 0.1056E+01, 0.1057E+01, 0.1059E+01,& - 0.1061E+01, 0.1062E+01, 0.1064E+01, 0.1066E+01,& - 0.1067E+01, 0.1069E+01, 0.1071E+01, 0.1072E+01,& - 0.1074E+01, 0.1076E+01, 0.1077E+01, 0.1079E+01,& - 0.1081E+01, 0.1082E+01, 0.1084E+01, 0.1086E+01,& - 0.1087E+01, 0.1089E+01, 0.1091E+01, 0.1093E+01,& - 0.1094E+01, 0.1096E+01, 0.1098E+01, 0.1099E+01,& - 0.1101E+01, 0.1103E+01, 0.1105E+01, 0.1106E+01,& - 0.1108E+01, 0.1110E+01, 0.1112E+01, 0.1113E+01,& - 0.1115E+01, 0.1117E+01, 0.1119E+01, 0.1120E+01,& - 0.1122E+01, 0.1124E+01, 0.1126E+01, 0.1127E+01,& - 0.1129E+01, 0.1131E+01, 0.1133E+01, 0.1135E+01,& - 0.1136E+01, 0.1138E+01, 0.1140E+01, 0.1142E+01,& - 0.1143E+01, 0.1145E+01, 0.1147E+01, 0.1149E+01,& - 0.1151E+01, 0.1153E+01, 0.1154E+01, 0.1156E+01,& - 0.1158E+01, 0.1160E+01, 0.1162E+01, 0.1164E+01,& - 0.1165E+01, 0.1167E+01, 0.1169E+01, 0.1171E+01,& - 0.1173E+01, 0.1175E+01, 0.1176E+01, 0.1178E+01,& - 0.1180E+01, 0.1182E+01, 0.1184E+01, 0.1186E+01,& - 0.1188E+01, 0.1190E+01, 0.1191E+01, 0.1193E+01,& - 0.1195E+01, 0.1197E+01, 0.1199E+01, 0.1201E+01,& - 0.1203E+01, 0.1205E+01, 0.1207E+01, 0.1209E+01,& - 0.1211E+01, 0.1213E+01, 0.1215E+01, 0.1217E+01,& - 0.1219E+01, 0.1221E+01, 0.1222E+01, 0.1224E+01,& - 0.1226E+01, 0.1228E+01, 0.1230E+01, 0.1232E+01,& - 0.1234E+01, 0.1236E+01, 0.1238E+01, 0.1240E+01,& - 0.1242E+01, 0.1244E+01, 0.1246E+01, 0.1248E+01,& - 0.1250E+01, 0.1252E+01, 0.1255E+01, 0.1257E+01,& - 0.1259E+01, 0.1261E+01, 0.1263E+01, 0.1265E+01,& - 0.1267E+01, 0.1269E+01, 0.1271E+01, 0.1273E+01,& - 0.1275E+01, 0.1277E+01, 0.1279E+01, 0.1282E+01,& - 0.1284E+01, 0.1286E+01, 0.1288E+01, 0.1290E+01,& - 0.1292E+01, 0.1294E+01, 0.1296E+01, 0.1299E+01,& - 0.1301E+01, 0.1303E+01, 0.1305E+01, 0.1307E+01,& - 0.1309E+01, 0.1312E+01, 0.1314E+01, 0.1316E+01,& - 0.1318E+01, 0.1320E+01, 0.1323E+01, 0.1325E+01,& - 0.1327E+01, 0.1329E+01, 0.1332E+01, 0.1334E+01,& - 0.1336E+01, 0.1338E+01, 0.1341E+01, 0.1343E+01,& - 0.1345E+01, 0.1347E+01, 0.1350E+01, 0.1352E+01,& - 0.1354E+01, 0.1357E+01, 0.1359E+01, 0.1361E+01,& - 0.1364E+01, 0.1366E+01, 0.1368E+01, 0.1371E+01,& - 0.1373E+01, 0.1376E+01, 0.1378E+01, 0.1380E+01,& - 0.1383E+01, 0.1385E+01, 0.1388E+01, 0.1390E+01,& - 0.1392E+01, 0.1395E+01, 0.1397E+01, 0.1400E+01,& - 0.1402E+01, 0.1405E+01, 0.1407E+01, 0.1410E+01,& - 0.1412E+01, 0.1415E+01, 0.1417E+01, 0.1420E+01,& - 0.1422E+01, 0.1425E+01, 0.1427E+01, 0.1430E+01,& - 0.1432E+01, 0.1435E+01, 0.1438E+01, 0.1440E+01,& - 0.1443E+01, 0.1445E+01, 0.1448E+01, 0.1451E+01,& - 0.1453E+01, 0.1456E+01, 0.1459E+01, 0.1461E+01,& - 0.1464E+01, 0.1467E+01, 0.1469E+01, 0.1472E+01,& - 0.1475E+01, 0.1478E+01, 0.1480E+01, 0.1483E+01,& - 0.1486E+01, 0.1489E+01, 0.1492E+01, 0.1494E+01,& - 0.1497E+01, 0.1500E+01, 0.1503E+01, 0.1506E+01,& - 0.1509E+01, 0.1511E+01, 0.1514E+01, 0.1517E+01,& - 0.1520E+01, 0.1523E+01, 0.1526E+01, 0.1529E+01,& - 0.1532E+01, 0.1535E+01, 0.1538E+01, 0.1541E+01,& - 0.1544E+01, 0.1547E+01, 0.1550E+01, 0.1553E+01,& - 0.1556E+01, 0.1559E+01, 0.1562E+01, 0.1566E+01,& - 0.1569E+01, 0.1572E+01, 0.1575E+01, 0.1578E+01,& - 0.1581E+01, 0.1585E+01, 0.1588E+01, 0.1591E+01,& - 0.1594E+01, 0.1598E+01, 0.1601E+01, 0.1604E+01,& - 0.1608E+01, 0.1611E+01, 0.1614E+01, 0.1618E+01,& - 0.1621E+01, 0.1625E+01, 0.1628E+01, 0.1631E+01,& - 0.1635E+01, 0.1638E+01, 0.1642E+01, 0.1645E+01,& - 0.1649E+01, 0.1653E+01, 0.1656E+01, 0.1660E+01,& - 0.1664E+01, 0.1667E+01, 0.1671E+01, 0.1675E+01,& - 0.1678E+01, 0.1682E+01, 0.1686E+01, 0.1690E+01,& - 0.1694E+01, 0.1697E+01, 0.1701E+01, 0.1705E+01,& - 0.1709E+01, 0.1713E+01, 0.1717E+01, 0.1721E+01,& - 0.1725E+01, 0.1729E+01, 0.1733E+01, 0.1737E+01,& - 0.1742E+01, 0.1746E+01, 0.1750E+01, 0.1754E+01,& - 0.1759E+01, 0.1763E+01, 0.1767E+01, 0.1772E+01,& - 0.1776E+01, 0.1780E+01, 0.1785E+01, 0.1789E+01,& - 0.1794E+01, 0.1799E+01, 0.1803E+01, 0.1808E+01,& - 0.1812E+01, 0.1817E+01, 0.1822E+01, 0.1827E+01,& - 0.1832E+01, 0.1837E+01, 0.1842E+01, 0.1847E+01,& - 0.1852E+01, 0.1857E+01, 0.1862E+01, 0.1867E+01,& - 0.1872E+01, 0.1877E+01, 0.1883E+01, 0.1888E+01,& - 0.1894E+01, 0.1899E+01, 0.1905E+01, 0.1910E+01,& - 0.1916E+01, 0.1922E+01, 0.1928E+01, 0.1933E+01,& - 0.1939E+01, 0.1945E+01, 0.1951E+01, 0.1957E+01,& - 0.1964E+01, 0.1970E+01, 0.1976E+01, 0.1983E+01,& - 0.1989E+01, 0.1996E+01, 0.2002E+01, 0.2009E+01,& - 0.2016E+01, 0.2023E+01, 0.2030E+01, 0.2037E+01,& - 0.2044E+01, 0.2052E+01, 0.2059E+01, 0.2067E+01,& - 0.2074E+01, 0.2082E+01, 0.2090E+01, 0.2098E+01,& - 0.2106E+01, 0.2115E+01, 0.2123E+01, 0.2132E+01,& - 0.2141E+01, 0.2150E+01, 0.2159E+01, 0.2168E+01,& - 0.2178E+01, 0.2187E+01, 0.2197E+01, 0.2207E+01,& - 0.2217E+01, 0.2228E+01, 0.2239E+01, 0.2250E+01,& - 0.2261E+01, 0.2273E+01, 0.2285E+01, 0.2297E+01,& - 0.2309E+01, 0.2322E+01, 0.2335E+01, 0.2349E+01,& - 0.2363E+01, 0.2378E+01, 0.2393E+01, 0.2408E+01,& - 0.2425E+01, 0.2441E+01, 0.2459E+01, 0.2477E+01,& - 0.2496E+01, 0.2516E+01, 0.2537E+01, 0.2559E+01,& - 0.2583E+01, 0.2607E+01, 0.2634E+01, 0.2662E+01,& - 0.2692E+01, 0.2725E+01, 0.2761E+01, 0.2801E+01,& - 0.2846E+01, 0.2896E+01, 0.2955E+01, 0.3026E+01,& - 0.1000E-04, 0.3152E-01, 0.4383E-01, 0.5316E-01/) - xcw(:, 22) = (/& - 0.1000E-04, 0.3152E-01, 0.4383E-01, 0.5316E-01,& - 0.6102E-01, 0.6796E-01, 0.7422E-01, 0.7995E-01,& - 0.8531E-01, 0.9035E-01, 0.9513E-01, 0.9969E-01,& - 0.1040E+00, 0.1082E+00, 0.1123E+00, 0.1162E+00,& - 0.1200E+00, 0.1236E+00, 0.1272E+00, 0.1307E+00,& - 0.1341E+00, 0.1374E+00, 0.1406E+00, 0.1438E+00,& - 0.1469E+00, 0.1500E+00, 0.1530E+00, 0.1559E+00,& - 0.1588E+00, 0.1617E+00, 0.1645E+00, 0.1673E+00,& - 0.1700E+00, 0.1727E+00, 0.1754E+00, 0.1780E+00,& - 0.1806E+00, 0.1832E+00, 0.1857E+00, 0.1882E+00,& - 0.1907E+00, 0.1932E+00, 0.1956E+00, 0.1980E+00,& - 0.2004E+00, 0.2027E+00, 0.2050E+00, 0.2074E+00,& - 0.2097E+00, 0.2119E+00, 0.2142E+00, 0.2164E+00,& - 0.2187E+00, 0.2208E+00, 0.2230E+00, 0.2252E+00,& - 0.2274E+00, 0.2295E+00, 0.2316E+00, 0.2337E+00,& - 0.2359E+00, 0.2379E+00, 0.2400E+00, 0.2421E+00,& - 0.2441E+00, 0.2462E+00, 0.2482E+00, 0.2501E+00,& - 0.2521E+00, 0.2542E+00, 0.2561E+00, 0.2581E+00,& - 0.2601E+00, 0.2620E+00, 0.2639E+00, 0.2658E+00,& - 0.2677E+00, 0.2697E+00, 0.2716E+00, 0.2734E+00,& - 0.2753E+00, 0.2772E+00, 0.2790E+00, 0.2809E+00,& - 0.2828E+00, 0.2846E+00, 0.2864E+00, 0.2882E+00,& - 0.2900E+00, 0.2918E+00, 0.2936E+00, 0.2954E+00,& - 0.2972E+00, 0.2990E+00, 0.3008E+00, 0.3025E+00,& - 0.3043E+00, 0.3060E+00, 0.3078E+00, 0.3095E+00,& - 0.3113E+00, 0.3130E+00, 0.3147E+00, 0.3165E+00,& - 0.3182E+00, 0.3199E+00, 0.3216E+00, 0.3233E+00,& - 0.3250E+00, 0.3267E+00, 0.3284E+00, 0.3300E+00,& - 0.3317E+00, 0.3334E+00, 0.3351E+00, 0.3367E+00,& - 0.3384E+00, 0.3400E+00, 0.3416E+00, 0.3433E+00,& - 0.3449E+00, 0.3466E+00, 0.3482E+00, 0.3498E+00,& - 0.3515E+00, 0.3530E+00, 0.3547E+00, 0.3563E+00,& - 0.3579E+00, 0.3595E+00, 0.3611E+00, 0.3627E+00,& - 0.3643E+00, 0.3659E+00, 0.3675E+00, 0.3690E+00,& - 0.3706E+00, 0.3722E+00, 0.3737E+00, 0.3753E+00,& - 0.3769E+00, 0.3785E+00, 0.3800E+00, 0.3816E+00,& - 0.3831E+00, 0.3847E+00, 0.3862E+00, 0.3877E+00,& - 0.3893E+00, 0.3908E+00, 0.3924E+00, 0.3939E+00,& - 0.3954E+00, 0.3970E+00, 0.3985E+00, 0.4000E+00,& - 0.4015E+00, 0.4031E+00, 0.4046E+00, 0.4061E+00,& - 0.4076E+00, 0.4091E+00, 0.4106E+00, 0.4121E+00,& - 0.4136E+00, 0.4151E+00, 0.4166E+00, 0.4181E+00,& - 0.4196E+00, 0.4211E+00, 0.4226E+00, 0.4241E+00,& - 0.4256E+00, 0.4270E+00, 0.4285E+00, 0.4300E+00,& - 0.4315E+00, 0.4329E+00, 0.4344E+00, 0.4359E+00,& - 0.4374E+00, 0.4388E+00, 0.4403E+00, 0.4417E+00,& - 0.4432E+00, 0.4447E+00, 0.4461E+00, 0.4476E+00,& - 0.4491E+00, 0.4505E+00, 0.4520E+00, 0.4534E+00,& - 0.4549E+00, 0.4563E+00, 0.4578E+00, 0.4592E+00,& - 0.4607E+00, 0.4621E+00, 0.4635E+00, 0.4650E+00,& - 0.4664E+00, 0.4678E+00, 0.4693E+00, 0.4707E+00,& - 0.4722E+00, 0.4736E+00, 0.4750E+00, 0.4764E+00,& - 0.4779E+00, 0.4793E+00, 0.4807E+00, 0.4822E+00,& - 0.4836E+00, 0.4850E+00, 0.4864E+00, 0.4878E+00,& - 0.4893E+00, 0.4907E+00, 0.4921E+00, 0.4935E+00,& - 0.4949E+00, 0.4963E+00, 0.4978E+00, 0.4992E+00,& - 0.5006E+00, 0.5020E+00, 0.5034E+00, 0.5048E+00,& - 0.5062E+00, 0.5076E+00, 0.5091E+00, 0.5104E+00,& - 0.5119E+00, 0.5132E+00, 0.5146E+00, 0.5161E+00,& - 0.5174E+00, 0.5189E+00, 0.5203E+00, 0.5216E+00,& - 0.5231E+00, 0.5244E+00, 0.5258E+00, 0.5273E+00,& - 0.5286E+00, 0.5300E+00, 0.5314E+00, 0.5328E+00,& - 0.5342E+00, 0.5356E+00, 0.5370E+00, 0.5384E+00,& - 0.5398E+00, 0.5412E+00, 0.5425E+00, 0.5440E+00,& - 0.5453E+00, 0.5467E+00, 0.5481E+00, 0.5495E+00,& - 0.5509E+00, 0.5522E+00, 0.5536E+00, 0.5551E+00,& - 0.5564E+00, 0.5578E+00, 0.5592E+00, 0.5606E+00,& - 0.5619E+00, 0.5633E+00, 0.5647E+00, 0.5661E+00,& - 0.5675E+00, 0.5688E+00, 0.5702E+00, 0.5716E+00,& - 0.5730E+00, 0.5744E+00, 0.5757E+00, 0.5771E+00,& - 0.5785E+00, 0.5799E+00, 0.5813E+00, 0.5826E+00,& - 0.5840E+00, 0.5854E+00, 0.5868E+00, 0.5882E+00,& - 0.5895E+00, 0.5909E+00, 0.5923E+00, 0.5937E+00,& - 0.5951E+00, 0.5964E+00, 0.5978E+00, 0.5991E+00,& - 0.6005E+00, 0.6019E+00, 0.6033E+00, 0.6047E+00,& - 0.6060E+00, 0.6074E+00, 0.6088E+00, 0.6102E+00,& - 0.6115E+00, 0.6129E+00, 0.6143E+00, 0.6156E+00,& - 0.6170E+00, 0.6184E+00, 0.6198E+00, 0.6211E+00,& - 0.6225E+00, 0.6239E+00, 0.6253E+00, 0.6267E+00,& - 0.6280E+00, 0.6294E+00, 0.6308E+00, 0.6321E+00,& - 0.6335E+00, 0.6349E+00, 0.6363E+00, 0.6376E+00,& - 0.6390E+00, 0.6404E+00, 0.6418E+00, 0.6432E+00,& - 0.6445E+00, 0.6459E+00, 0.6473E+00, 0.6487E+00,& - 0.6501E+00, 0.6514E+00, 0.6528E+00, 0.6541E+00,& - 0.6555E+00, 0.6569E+00, 0.6583E+00, 0.6597E+00,& - 0.6610E+00, 0.6624E+00, 0.6638E+00, 0.6652E+00,& - 0.6666E+00, 0.6679E+00, 0.6693E+00, 0.6707E+00,& - 0.6721E+00, 0.6735E+00, 0.6748E+00, 0.6763E+00,& - 0.6776E+00, 0.6790E+00, 0.6804E+00, 0.6818E+00,& - 0.6832E+00, 0.6845E+00, 0.6859E+00, 0.6873E+00,& - 0.6887E+00, 0.6901E+00, 0.6914E+00, 0.6929E+00,& - 0.6942E+00, 0.6956E+00, 0.6970E+00, 0.6984E+00,& - 0.6998E+00, 0.7012E+00, 0.7026E+00, 0.7040E+00,& - 0.7053E+00, 0.7067E+00, 0.7081E+00, 0.7095E+00,& - 0.7109E+00, 0.7123E+00, 0.7137E+00, 0.7151E+00,& - 0.7165E+00, 0.7179E+00, 0.7193E+00, 0.7207E+00,& - 0.7220E+00, 0.7235E+00, 0.7249E+00, 0.7263E+00,& - 0.7277E+00, 0.7290E+00, 0.7305E+00, 0.7319E+00,& - 0.7333E+00, 0.7347E+00, 0.7361E+00, 0.7375E+00,& - 0.7389E+00, 0.7403E+00, 0.7417E+00, 0.7431E+00,& - 0.7445E+00, 0.7459E+00, 0.7473E+00, 0.7487E+00,& - 0.7502E+00, 0.7515E+00, 0.7530E+00, 0.7544E+00,& - 0.7558E+00, 0.7572E+00, 0.7586E+00, 0.7600E+00,& - 0.7615E+00, 0.7628E+00, 0.7643E+00, 0.7657E+00,& - 0.7671E+00, 0.7685E+00, 0.7699E+00, 0.7714E+00,& - 0.7728E+00, 0.7742E+00, 0.7756E+00, 0.7771E+00,& - 0.7785E+00, 0.7799E+00, 0.7814E+00, 0.7828E+00,& - 0.7842E+00, 0.7857E+00, 0.7871E+00, 0.7885E+00,& - 0.7899E+00, 0.7914E+00, 0.7928E+00, 0.7942E+00,& - 0.7957E+00, 0.7971E+00, 0.7985E+00, 0.8000E+00,& - 0.8015E+00, 0.8029E+00, 0.8043E+00, 0.8058E+00,& - 0.8072E+00, 0.8087E+00, 0.8101E+00, 0.8115E+00,& - 0.8130E+00, 0.8145E+00, 0.8159E+00, 0.8174E+00,& - 0.8188E+00, 0.8203E+00, 0.8217E+00, 0.8232E+00,& - 0.8246E+00, 0.8261E+00, 0.8276E+00, 0.8290E+00,& - 0.8305E+00, 0.8320E+00, 0.8334E+00, 0.8349E+00,& - 0.8364E+00, 0.8378E+00, 0.8393E+00, 0.8408E+00,& - 0.8422E+00, 0.8437E+00, 0.8452E+00, 0.8467E+00,& - 0.8481E+00, 0.8496E+00, 0.8511E+00, 0.8525E+00,& - 0.8540E+00, 0.8555E+00, 0.8570E+00, 0.8585E+00,& - 0.8600E+00, 0.8615E+00, 0.8629E+00, 0.8645E+00,& - 0.8660E+00, 0.8675E+00, 0.8689E+00, 0.8704E+00,& - 0.8719E+00, 0.8734E+00, 0.8749E+00, 0.8764E+00,& - 0.8780E+00, 0.8794E+00, 0.8809E+00, 0.8825E+00,& - 0.8839E+00, 0.8855E+00, 0.8870E+00, 0.8885E+00,& - 0.8900E+00, 0.8915E+00, 0.8931E+00, 0.8946E+00,& - 0.8961E+00, 0.8976E+00, 0.8991E+00, 0.9007E+00,& - 0.9022E+00, 0.9037E+00, 0.9053E+00, 0.9068E+00,& - 0.9084E+00, 0.9098E+00, 0.9114E+00, 0.9129E+00,& - 0.9145E+00, 0.9160E+00, 0.9176E+00, 0.9191E+00,& - 0.9207E+00, 0.9222E+00, 0.9237E+00, 0.9253E+00,& - 0.9269E+00, 0.9284E+00, 0.9300E+00, 0.9315E+00,& - 0.9331E+00, 0.9347E+00, 0.9362E+00, 0.9378E+00,& - 0.9394E+00, 0.9409E+00, 0.9425E+00, 0.9441E+00,& - 0.9456E+00, 0.9472E+00, 0.9488E+00, 0.9504E+00,& - 0.9520E+00, 0.9535E+00, 0.9551E+00, 0.9567E+00,& - 0.9583E+00, 0.9599E+00, 0.9615E+00, 0.9631E+00,& - 0.9647E+00, 0.9663E+00, 0.9679E+00, 0.9695E+00,& - 0.9711E+00, 0.9728E+00, 0.9743E+00, 0.9759E+00,& - 0.9776E+00, 0.9792E+00, 0.9808E+00, 0.9824E+00,& - 0.9841E+00, 0.9857E+00, 0.9873E+00, 0.9889E+00,& - 0.9906E+00, 0.9922E+00, 0.9938E+00, 0.9955E+00,& - 0.9971E+00, 0.9987E+00, 0.1000E+01, 0.1002E+01,& - 0.1004E+01, 0.1005E+01, 0.1007E+01, 0.1009E+01,& - 0.1010E+01, 0.1012E+01, 0.1014E+01, 0.1015E+01,& - 0.1017E+01, 0.1019E+01, 0.1020E+01, 0.1022E+01,& - 0.1024E+01, 0.1025E+01, 0.1027E+01, 0.1029E+01,& - 0.1030E+01, 0.1032E+01, 0.1034E+01, 0.1036E+01,& - 0.1037E+01, 0.1039E+01, 0.1041E+01, 0.1042E+01,& - 0.1044E+01, 0.1046E+01, 0.1047E+01, 0.1049E+01,& - 0.1051E+01, 0.1053E+01, 0.1054E+01, 0.1056E+01,& - 0.1058E+01, 0.1059E+01, 0.1061E+01, 0.1063E+01,& - 0.1065E+01, 0.1066E+01, 0.1068E+01, 0.1070E+01,& - 0.1072E+01, 0.1073E+01, 0.1075E+01, 0.1077E+01,& - 0.1079E+01, 0.1080E+01, 0.1082E+01, 0.1084E+01,& - 0.1086E+01, 0.1088E+01, 0.1089E+01, 0.1091E+01,& - 0.1093E+01, 0.1095E+01, 0.1097E+01, 0.1098E+01,& - 0.1100E+01, 0.1102E+01, 0.1104E+01, 0.1106E+01,& - 0.1107E+01, 0.1109E+01, 0.1111E+01, 0.1113E+01,& - 0.1115E+01, 0.1116E+01, 0.1118E+01, 0.1120E+01,& - 0.1122E+01, 0.1124E+01, 0.1126E+01, 0.1127E+01,& - 0.1129E+01, 0.1131E+01, 0.1133E+01, 0.1135E+01,& - 0.1137E+01, 0.1139E+01, 0.1141E+01, 0.1142E+01,& - 0.1144E+01, 0.1146E+01, 0.1148E+01, 0.1150E+01,& - 0.1152E+01, 0.1154E+01, 0.1156E+01, 0.1158E+01,& - 0.1159E+01, 0.1161E+01, 0.1163E+01, 0.1165E+01,& - 0.1167E+01, 0.1169E+01, 0.1171E+01, 0.1173E+01,& - 0.1175E+01, 0.1177E+01, 0.1179E+01, 0.1181E+01,& - 0.1183E+01, 0.1185E+01, 0.1187E+01, 0.1189E+01,& - 0.1191E+01, 0.1193E+01, 0.1195E+01, 0.1197E+01,& - 0.1199E+01, 0.1201E+01, 0.1203E+01, 0.1205E+01,& - 0.1207E+01, 0.1209E+01, 0.1211E+01, 0.1213E+01,& - 0.1215E+01, 0.1217E+01, 0.1219E+01, 0.1221E+01,& - 0.1223E+01, 0.1225E+01, 0.1227E+01, 0.1229E+01,& - 0.1231E+01, 0.1233E+01, 0.1235E+01, 0.1237E+01,& - 0.1239E+01, 0.1241E+01, 0.1244E+01, 0.1246E+01,& - 0.1248E+01, 0.1250E+01, 0.1252E+01, 0.1254E+01,& - 0.1256E+01, 0.1258E+01, 0.1260E+01, 0.1263E+01,& - 0.1265E+01, 0.1267E+01, 0.1269E+01, 0.1271E+01,& - 0.1273E+01, 0.1276E+01, 0.1278E+01, 0.1280E+01,& - 0.1282E+01, 0.1284E+01, 0.1287E+01, 0.1289E+01,& - 0.1291E+01, 0.1293E+01, 0.1295E+01, 0.1298E+01,& - 0.1300E+01, 0.1302E+01, 0.1304E+01, 0.1307E+01,& - 0.1309E+01, 0.1311E+01, 0.1313E+01, 0.1316E+01,& - 0.1318E+01, 0.1320E+01, 0.1323E+01, 0.1325E+01,& - 0.1327E+01, 0.1330E+01, 0.1332E+01, 0.1334E+01,& - 0.1337E+01, 0.1339E+01, 0.1341E+01, 0.1344E+01,& - 0.1346E+01, 0.1348E+01, 0.1351E+01, 0.1353E+01,& - 0.1355E+01, 0.1358E+01, 0.1360E+01, 0.1363E+01,& - 0.1365E+01, 0.1368E+01, 0.1370E+01, 0.1372E+01,& - 0.1375E+01, 0.1377E+01, 0.1380E+01, 0.1382E+01,& - 0.1385E+01, 0.1387E+01, 0.1390E+01, 0.1392E+01,& - 0.1395E+01, 0.1397E+01, 0.1400E+01, 0.1402E+01,& - 0.1405E+01, 0.1408E+01, 0.1410E+01, 0.1413E+01,& - 0.1415E+01, 0.1418E+01, 0.1420E+01, 0.1423E+01,& - 0.1426E+01, 0.1428E+01, 0.1431E+01, 0.1434E+01,& - 0.1436E+01, 0.1439E+01, 0.1442E+01, 0.1444E+01,& - 0.1447E+01, 0.1450E+01, 0.1452E+01, 0.1455E+01,& - 0.1458E+01, 0.1461E+01, 0.1463E+01, 0.1466E+01,& - 0.1469E+01, 0.1472E+01, 0.1475E+01, 0.1477E+01,& - 0.1480E+01, 0.1483E+01, 0.1486E+01, 0.1489E+01,& - 0.1492E+01, 0.1494E+01, 0.1497E+01, 0.1500E+01,& - 0.1503E+01, 0.1506E+01, 0.1509E+01, 0.1512E+01,& - 0.1515E+01, 0.1518E+01, 0.1521E+01, 0.1524E+01,& - 0.1527E+01, 0.1530E+01, 0.1533E+01, 0.1536E+01,& - 0.1539E+01, 0.1542E+01, 0.1545E+01, 0.1548E+01,& - 0.1552E+01, 0.1555E+01, 0.1558E+01, 0.1561E+01,& - 0.1564E+01, 0.1567E+01, 0.1571E+01, 0.1574E+01,& - 0.1577E+01, 0.1580E+01, 0.1584E+01, 0.1587E+01,& - 0.1590E+01, 0.1593E+01, 0.1597E+01, 0.1600E+01,& - 0.1604E+01, 0.1607E+01, 0.1610E+01, 0.1614E+01,& - 0.1617E+01, 0.1621E+01, 0.1624E+01, 0.1628E+01,& - 0.1631E+01, 0.1635E+01, 0.1638E+01, 0.1642E+01,& - 0.1645E+01, 0.1649E+01, 0.1653E+01, 0.1656E+01,& - 0.1660E+01, 0.1664E+01, 0.1667E+01, 0.1671E+01,& - 0.1675E+01, 0.1679E+01, 0.1682E+01, 0.1686E+01,& - 0.1690E+01, 0.1694E+01, 0.1698E+01, 0.1702E+01,& - 0.1706E+01, 0.1710E+01, 0.1714E+01, 0.1718E+01,& - 0.1722E+01, 0.1726E+01, 0.1730E+01, 0.1734E+01,& - 0.1738E+01, 0.1742E+01, 0.1746E+01, 0.1751E+01,& - 0.1755E+01, 0.1759E+01, 0.1763E+01, 0.1768E+01,& - 0.1772E+01, 0.1777E+01, 0.1781E+01, 0.1786E+01,& - 0.1790E+01, 0.1795E+01, 0.1799E+01, 0.1804E+01,& - 0.1808E+01, 0.1813E+01, 0.1818E+01, 0.1823E+01,& - 0.1827E+01, 0.1832E+01, 0.1837E+01, 0.1842E+01,& - 0.1847E+01, 0.1852E+01, 0.1857E+01, 0.1862E+01,& - 0.1867E+01, 0.1872E+01, 0.1878E+01, 0.1883E+01,& - 0.1888E+01, 0.1894E+01, 0.1899E+01, 0.1904E+01,& - 0.1910E+01, 0.1916E+01, 0.1921E+01, 0.1927E+01,& - 0.1933E+01, 0.1938E+01, 0.1944E+01, 0.1950E+01,& - 0.1956E+01, 0.1962E+01, 0.1968E+01, 0.1974E+01,& - 0.1981E+01, 0.1987E+01, 0.1993E+01, 0.2000E+01,& - 0.2006E+01, 0.2013E+01, 0.2020E+01, 0.2026E+01,& - 0.2033E+01, 0.2040E+01, 0.2047E+01, 0.2054E+01,& - 0.2062E+01, 0.2069E+01, 0.2076E+01, 0.2084E+01,& - 0.2092E+01, 0.2099E+01, 0.2107E+01, 0.2115E+01,& - 0.2123E+01, 0.2132E+01, 0.2140E+01, 0.2149E+01,& - 0.2157E+01, 0.2166E+01, 0.2175E+01, 0.2184E+01,& - 0.2193E+01, 0.2203E+01, 0.2212E+01, 0.2222E+01,& - 0.2232E+01, 0.2242E+01, 0.2253E+01, 0.2263E+01,& - 0.2274E+01, 0.2285E+01, 0.2297E+01, 0.2309E+01,& - 0.2320E+01, 0.2333E+01, 0.2345E+01, 0.2358E+01,& - 0.2371E+01, 0.2385E+01, 0.2399E+01, 0.2413E+01,& - 0.2428E+01, 0.2444E+01, 0.2460E+01, 0.2476E+01,& - 0.2493E+01, 0.2511E+01, 0.2529E+01, 0.2549E+01,& - 0.2569E+01, 0.2590E+01, 0.2612E+01, 0.2635E+01,& - 0.2660E+01, 0.2686E+01, 0.2714E+01, 0.2744E+01,& - 0.2776E+01, 0.2811E+01, 0.2849E+01, 0.2891E+01,& - 0.2938E+01, 0.2991E+01, 0.3053E+01, 0.3128E+01,& - 0.1000E-04, 0.2524E-01, 0.3593E-01, 0.4418E-01/) - xcw(:, 23) = (/& - 0.1000E-04, 0.2524E-01, 0.3593E-01, 0.4418E-01,& - 0.5124E-01, 0.5748E-01, 0.6317E-01, 0.6844E-01,& - 0.7337E-01, 0.7799E-01, 0.8244E-01, 0.8662E-01,& - 0.9069E-01, 0.9459E-01, 0.9839E-01, 0.1020E+00,& - 0.1056E+00, 0.1090E+00, 0.1124E+00, 0.1156E+00,& - 0.1188E+00, 0.1220E+00, 0.1251E+00, 0.1281E+00,& - 0.1311E+00, 0.1340E+00, 0.1369E+00, 0.1397E+00,& - 0.1425E+00, 0.1452E+00, 0.1479E+00, 0.1505E+00,& - 0.1531E+00, 0.1557E+00, 0.1583E+00, 0.1608E+00,& - 0.1633E+00, 0.1658E+00, 0.1682E+00, 0.1707E+00,& - 0.1731E+00, 0.1754E+00, 0.1778E+00, 0.1801E+00,& - 0.1824E+00, 0.1847E+00, 0.1869E+00, 0.1892E+00,& - 0.1914E+00, 0.1936E+00, 0.1958E+00, 0.1980E+00,& - 0.2001E+00, 0.2023E+00, 0.2044E+00, 0.2065E+00,& - 0.2087E+00, 0.2107E+00, 0.2128E+00, 0.2148E+00,& - 0.2169E+00, 0.2190E+00, 0.2210E+00, 0.2230E+00,& - 0.2250E+00, 0.2269E+00, 0.2289E+00, 0.2309E+00,& - 0.2329E+00, 0.2348E+00, 0.2368E+00, 0.2387E+00,& - 0.2406E+00, 0.2425E+00, 0.2444E+00, 0.2463E+00,& - 0.2482E+00, 0.2501E+00, 0.2519E+00, 0.2537E+00,& - 0.2556E+00, 0.2575E+00, 0.2593E+00, 0.2611E+00,& - 0.2630E+00, 0.2648E+00, 0.2666E+00, 0.2683E+00,& - 0.2701E+00, 0.2719E+00, 0.2737E+00, 0.2755E+00,& - 0.2772E+00, 0.2790E+00, 0.2808E+00, 0.2825E+00,& - 0.2842E+00, 0.2860E+00, 0.2877E+00, 0.2895E+00,& - 0.2912E+00, 0.2929E+00, 0.2946E+00, 0.2963E+00,& - 0.2980E+00, 0.2997E+00, 0.3014E+00, 0.3031E+00,& - 0.3048E+00, 0.3064E+00, 0.3081E+00, 0.3098E+00,& - 0.3114E+00, 0.3131E+00, 0.3147E+00, 0.3164E+00,& - 0.3181E+00, 0.3197E+00, 0.3214E+00, 0.3230E+00,& - 0.3246E+00, 0.3262E+00, 0.3279E+00, 0.3295E+00,& - 0.3311E+00, 0.3327E+00, 0.3343E+00, 0.3359E+00,& - 0.3375E+00, 0.3391E+00, 0.3407E+00, 0.3423E+00,& - 0.3439E+00, 0.3455E+00, 0.3471E+00, 0.3487E+00,& - 0.3502E+00, 0.3518E+00, 0.3534E+00, 0.3550E+00,& - 0.3565E+00, 0.3580E+00, 0.3596E+00, 0.3612E+00,& - 0.3628E+00, 0.3643E+00, 0.3659E+00, 0.3674E+00,& - 0.3690E+00, 0.3705E+00, 0.3720E+00, 0.3736E+00,& - 0.3751E+00, 0.3766E+00, 0.3781E+00, 0.3797E+00,& - 0.3812E+00, 0.3827E+00, 0.3843E+00, 0.3858E+00,& - 0.3873E+00, 0.3888E+00, 0.3903E+00, 0.3918E+00,& - 0.3933E+00, 0.3948E+00, 0.3964E+00, 0.3978E+00,& - 0.3993E+00, 0.4009E+00, 0.4023E+00, 0.4038E+00,& - 0.4053E+00, 0.4068E+00, 0.4083E+00, 0.4098E+00,& - 0.4113E+00, 0.4128E+00, 0.4143E+00, 0.4157E+00,& - 0.4172E+00, 0.4187E+00, 0.4202E+00, 0.4216E+00,& - 0.4231E+00, 0.4246E+00, 0.4261E+00, 0.4276E+00,& - 0.4290E+00, 0.4305E+00, 0.4320E+00, 0.4334E+00,& - 0.4349E+00, 0.4363E+00, 0.4378E+00, 0.4392E+00,& - 0.4407E+00, 0.4422E+00, 0.4436E+00, 0.4451E+00,& - 0.4465E+00, 0.4480E+00, 0.4494E+00, 0.4509E+00,& - 0.4523E+00, 0.4538E+00, 0.4552E+00, 0.4566E+00,& - 0.4581E+00, 0.4596E+00, 0.4610E+00, 0.4624E+00,& - 0.4639E+00, 0.4653E+00, 0.4667E+00, 0.4682E+00,& - 0.4696E+00, 0.4711E+00, 0.4725E+00, 0.4739E+00,& - 0.4754E+00, 0.4768E+00, 0.4782E+00, 0.4796E+00,& - 0.4811E+00, 0.4825E+00, 0.4839E+00, 0.4853E+00,& - 0.4868E+00, 0.4882E+00, 0.4896E+00, 0.4910E+00,& - 0.4925E+00, 0.4939E+00, 0.4953E+00, 0.4967E+00,& - 0.4982E+00, 0.4996E+00, 0.5010E+00, 0.5024E+00,& - 0.5039E+00, 0.5053E+00, 0.5067E+00, 0.5081E+00,& - 0.5095E+00, 0.5110E+00, 0.5124E+00, 0.5138E+00,& - 0.5152E+00, 0.5166E+00, 0.5180E+00, 0.5194E+00,& - 0.5208E+00, 0.5222E+00, 0.5237E+00, 0.5251E+00,& - 0.5265E+00, 0.5279E+00, 0.5293E+00, 0.5307E+00,& - 0.5321E+00, 0.5335E+00, 0.5349E+00, 0.5364E+00,& - 0.5378E+00, 0.5392E+00, 0.5406E+00, 0.5420E+00,& - 0.5434E+00, 0.5448E+00, 0.5462E+00, 0.5476E+00,& - 0.5490E+00, 0.5504E+00, 0.5518E+00, 0.5532E+00,& - 0.5546E+00, 0.5561E+00, 0.5575E+00, 0.5589E+00,& - 0.5602E+00, 0.5616E+00, 0.5631E+00, 0.5645E+00,& - 0.5659E+00, 0.5673E+00, 0.5687E+00, 0.5701E+00,& - 0.5715E+00, 0.5729E+00, 0.5743E+00, 0.5757E+00,& - 0.5771E+00, 0.5785E+00, 0.5799E+00, 0.5813E+00,& - 0.5827E+00, 0.5841E+00, 0.5855E+00, 0.5869E+00,& - 0.5883E+00, 0.5898E+00, 0.5912E+00, 0.5925E+00,& - 0.5939E+00, 0.5953E+00, 0.5968E+00, 0.5982E+00,& - 0.5996E+00, 0.6010E+00, 0.6024E+00, 0.6038E+00,& - 0.6052E+00, 0.6066E+00, 0.6080E+00, 0.6094E+00,& - 0.6108E+00, 0.6122E+00, 0.6136E+00, 0.6150E+00,& - 0.6164E+00, 0.6179E+00, 0.6192E+00, 0.6206E+00,& - 0.6220E+00, 0.6234E+00, 0.6249E+00, 0.6263E+00,& - 0.6277E+00, 0.6291E+00, 0.6305E+00, 0.6319E+00,& - 0.6333E+00, 0.6347E+00, 0.6361E+00, 0.6376E+00,& - 0.6390E+00, 0.6404E+00, 0.6418E+00, 0.6432E+00,& - 0.6446E+00, 0.6460E+00, 0.6474E+00, 0.6488E+00,& - 0.6503E+00, 0.6517E+00, 0.6531E+00, 0.6545E+00,& - 0.6559E+00, 0.6573E+00, 0.6588E+00, 0.6602E+00,& - 0.6616E+00, 0.6630E+00, 0.6644E+00, 0.6658E+00,& - 0.6672E+00, 0.6687E+00, 0.6701E+00, 0.6715E+00,& - 0.6729E+00, 0.6743E+00, 0.6758E+00, 0.6772E+00,& - 0.6786E+00, 0.6800E+00, 0.6815E+00, 0.6829E+00,& - 0.6843E+00, 0.6857E+00, 0.6872E+00, 0.6886E+00,& - 0.6900E+00, 0.6914E+00, 0.6929E+00, 0.6943E+00,& - 0.6957E+00, 0.6972E+00, 0.6986E+00, 0.7000E+00,& - 0.7015E+00, 0.7029E+00, 0.7044E+00, 0.7058E+00,& - 0.7072E+00, 0.7086E+00, 0.7101E+00, 0.7115E+00,& - 0.7130E+00, 0.7144E+00, 0.7159E+00, 0.7173E+00,& - 0.7187E+00, 0.7201E+00, 0.7216E+00, 0.7230E+00,& - 0.7245E+00, 0.7260E+00, 0.7274E+00, 0.7288E+00,& - 0.7303E+00, 0.7317E+00, 0.7332E+00, 0.7346E+00,& - 0.7361E+00, 0.7375E+00, 0.7390E+00, 0.7404E+00,& - 0.7419E+00, 0.7433E+00, 0.7448E+00, 0.7462E+00,& - 0.7477E+00, 0.7492E+00, 0.7506E+00, 0.7521E+00,& - 0.7536E+00, 0.7550E+00, 0.7565E+00, 0.7580E+00,& - 0.7594E+00, 0.7609E+00, 0.7624E+00, 0.7638E+00,& - 0.7653E+00, 0.7668E+00, 0.7682E+00, 0.7697E+00,& - 0.7712E+00, 0.7726E+00, 0.7741E+00, 0.7756E+00,& - 0.7771E+00, 0.7785E+00, 0.7801E+00, 0.7815E+00,& - 0.7830E+00, 0.7845E+00, 0.7860E+00, 0.7874E+00,& - 0.7890E+00, 0.7904E+00, 0.7919E+00, 0.7934E+00,& - 0.7949E+00, 0.7964E+00, 0.7979E+00, 0.7994E+00,& - 0.8008E+00, 0.8024E+00, 0.8039E+00, 0.8053E+00,& - 0.8069E+00, 0.8084E+00, 0.8098E+00, 0.8114E+00,& - 0.8129E+00, 0.8143E+00, 0.8159E+00, 0.8174E+00,& - 0.8189E+00, 0.8204E+00, 0.8219E+00, 0.8234E+00,& - 0.8249E+00, 0.8265E+00, 0.8280E+00, 0.8295E+00,& - 0.8310E+00, 0.8325E+00, 0.8340E+00, 0.8356E+00,& - 0.8371E+00, 0.8387E+00, 0.8402E+00, 0.8417E+00,& - 0.8432E+00, 0.8448E+00, 0.8463E+00, 0.8478E+00,& - 0.8494E+00, 0.8509E+00, 0.8524E+00, 0.8540E+00,& - 0.8555E+00, 0.8571E+00, 0.8586E+00, 0.8602E+00,& - 0.8617E+00, 0.8633E+00, 0.8648E+00, 0.8664E+00,& - 0.8680E+00, 0.8695E+00, 0.8711E+00, 0.8726E+00,& - 0.8742E+00, 0.8758E+00, 0.8773E+00, 0.8789E+00,& - 0.8804E+00, 0.8820E+00, 0.8836E+00, 0.8852E+00,& - 0.8867E+00, 0.8883E+00, 0.8899E+00, 0.8915E+00,& - 0.8930E+00, 0.8947E+00, 0.8962E+00, 0.8978E+00,& - 0.8994E+00, 0.9010E+00, 0.9026E+00, 0.9042E+00,& - 0.9058E+00, 0.9074E+00, 0.9090E+00, 0.9106E+00,& - 0.9122E+00, 0.9138E+00, 0.9154E+00, 0.9170E+00,& - 0.9186E+00, 0.9202E+00, 0.9218E+00, 0.9234E+00,& - 0.9250E+00, 0.9267E+00, 0.9283E+00, 0.9299E+00,& - 0.9316E+00, 0.9332E+00, 0.9348E+00, 0.9364E+00,& - 0.9381E+00, 0.9397E+00, 0.9413E+00, 0.9430E+00,& - 0.9446E+00, 0.9463E+00, 0.9479E+00, 0.9496E+00,& - 0.9512E+00, 0.9529E+00, 0.9545E+00, 0.9562E+00,& - 0.9578E+00, 0.9595E+00, 0.9612E+00, 0.9628E+00,& - 0.9645E+00, 0.9662E+00, 0.9679E+00, 0.9695E+00,& - 0.9712E+00, 0.9729E+00, 0.9745E+00, 0.9762E+00,& - 0.9779E+00, 0.9796E+00, 0.9813E+00, 0.9830E+00,& - 0.9847E+00, 0.9864E+00, 0.9880E+00, 0.9898E+00,& - 0.9915E+00, 0.9932E+00, 0.9949E+00, 0.9966E+00,& - 0.9983E+00, 0.1000E+01, 0.1002E+01, 0.1003E+01,& - 0.1005E+01, 0.1007E+01, 0.1009E+01, 0.1010E+01,& - 0.1012E+01, 0.1014E+01, 0.1016E+01, 0.1017E+01,& - 0.1019E+01, 0.1021E+01, 0.1023E+01, 0.1024E+01,& - 0.1026E+01, 0.1028E+01, 0.1030E+01, 0.1031E+01,& - 0.1033E+01, 0.1035E+01, 0.1037E+01, 0.1038E+01,& - 0.1040E+01, 0.1042E+01, 0.1044E+01, 0.1046E+01,& - 0.1047E+01, 0.1049E+01, 0.1051E+01, 0.1053E+01,& - 0.1055E+01, 0.1056E+01, 0.1058E+01, 0.1060E+01,& - 0.1062E+01, 0.1064E+01, 0.1065E+01, 0.1067E+01,& - 0.1069E+01, 0.1071E+01, 0.1073E+01, 0.1074E+01,& - 0.1076E+01, 0.1078E+01, 0.1080E+01, 0.1082E+01,& - 0.1084E+01, 0.1086E+01, 0.1087E+01, 0.1089E+01,& - 0.1091E+01, 0.1093E+01, 0.1095E+01, 0.1097E+01,& - 0.1099E+01, 0.1100E+01, 0.1102E+01, 0.1104E+01,& - 0.1106E+01, 0.1108E+01, 0.1110E+01, 0.1112E+01,& - 0.1114E+01, 0.1116E+01, 0.1118E+01, 0.1119E+01,& - 0.1121E+01, 0.1123E+01, 0.1125E+01, 0.1127E+01,& - 0.1129E+01, 0.1131E+01, 0.1133E+01, 0.1135E+01,& - 0.1137E+01, 0.1139E+01, 0.1141E+01, 0.1143E+01,& - 0.1145E+01, 0.1147E+01, 0.1149E+01, 0.1151E+01,& - 0.1153E+01, 0.1155E+01, 0.1157E+01, 0.1158E+01,& - 0.1160E+01, 0.1163E+01, 0.1165E+01, 0.1167E+01,& - 0.1169E+01, 0.1171E+01, 0.1173E+01, 0.1175E+01,& - 0.1177E+01, 0.1179E+01, 0.1181E+01, 0.1183E+01,& - 0.1185E+01, 0.1187E+01, 0.1189E+01, 0.1191E+01,& - 0.1193E+01, 0.1195E+01, 0.1197E+01, 0.1199E+01,& - 0.1201E+01, 0.1203E+01, 0.1205E+01, 0.1207E+01,& - 0.1210E+01, 0.1212E+01, 0.1214E+01, 0.1216E+01,& - 0.1218E+01, 0.1220E+01, 0.1222E+01, 0.1224E+01,& - 0.1227E+01, 0.1229E+01, 0.1231E+01, 0.1233E+01,& - 0.1235E+01, 0.1237E+01, 0.1239E+01, 0.1242E+01,& - 0.1244E+01, 0.1246E+01, 0.1248E+01, 0.1250E+01,& - 0.1253E+01, 0.1255E+01, 0.1257E+01, 0.1259E+01,& - 0.1261E+01, 0.1264E+01, 0.1266E+01, 0.1268E+01,& - 0.1270E+01, 0.1273E+01, 0.1275E+01, 0.1277E+01,& - 0.1279E+01, 0.1282E+01, 0.1284E+01, 0.1286E+01,& - 0.1289E+01, 0.1291E+01, 0.1293E+01, 0.1295E+01,& - 0.1298E+01, 0.1300E+01, 0.1302E+01, 0.1305E+01,& - 0.1307E+01, 0.1309E+01, 0.1312E+01, 0.1314E+01,& - 0.1317E+01, 0.1319E+01, 0.1321E+01, 0.1324E+01,& - 0.1326E+01, 0.1328E+01, 0.1331E+01, 0.1333E+01,& - 0.1336E+01, 0.1338E+01, 0.1340E+01, 0.1343E+01,& - 0.1345E+01, 0.1348E+01, 0.1350E+01, 0.1353E+01,& - 0.1355E+01, 0.1358E+01, 0.1360E+01, 0.1363E+01,& - 0.1365E+01, 0.1368E+01, 0.1370E+01, 0.1373E+01,& - 0.1375E+01, 0.1378E+01, 0.1380E+01, 0.1383E+01,& - 0.1386E+01, 0.1388E+01, 0.1391E+01, 0.1393E+01,& - 0.1396E+01, 0.1399E+01, 0.1401E+01, 0.1404E+01,& - 0.1406E+01, 0.1409E+01, 0.1412E+01, 0.1414E+01,& - 0.1417E+01, 0.1420E+01, 0.1422E+01, 0.1425E+01,& - 0.1428E+01, 0.1431E+01, 0.1433E+01, 0.1436E+01,& - 0.1439E+01, 0.1442E+01, 0.1444E+01, 0.1447E+01,& - 0.1450E+01, 0.1453E+01, 0.1456E+01, 0.1458E+01,& - 0.1461E+01, 0.1464E+01, 0.1467E+01, 0.1470E+01,& - 0.1473E+01, 0.1476E+01, 0.1478E+01, 0.1481E+01,& - 0.1484E+01, 0.1487E+01, 0.1490E+01, 0.1493E+01,& - 0.1496E+01, 0.1499E+01, 0.1502E+01, 0.1505E+01,& - 0.1508E+01, 0.1511E+01, 0.1514E+01, 0.1517E+01,& - 0.1520E+01, 0.1523E+01, 0.1526E+01, 0.1529E+01,& - 0.1532E+01, 0.1536E+01, 0.1539E+01, 0.1542E+01,& - 0.1545E+01, 0.1548E+01, 0.1551E+01, 0.1555E+01,& - 0.1558E+01, 0.1561E+01, 0.1564E+01, 0.1568E+01,& - 0.1571E+01, 0.1574E+01, 0.1577E+01, 0.1581E+01,& - 0.1584E+01, 0.1587E+01, 0.1591E+01, 0.1594E+01,& - 0.1598E+01, 0.1601E+01, 0.1604E+01, 0.1608E+01,& - 0.1611E+01, 0.1615E+01, 0.1618E+01, 0.1622E+01,& - 0.1625E+01, 0.1629E+01, 0.1633E+01, 0.1636E+01,& - 0.1640E+01, 0.1643E+01, 0.1647E+01, 0.1651E+01,& - 0.1654E+01, 0.1658E+01, 0.1662E+01, 0.1666E+01,& - 0.1669E+01, 0.1673E+01, 0.1677E+01, 0.1681E+01,& - 0.1685E+01, 0.1688E+01, 0.1692E+01, 0.1696E+01,& - 0.1700E+01, 0.1704E+01, 0.1708E+01, 0.1712E+01,& - 0.1716E+01, 0.1720E+01, 0.1724E+01, 0.1729E+01,& - 0.1733E+01, 0.1737E+01, 0.1741E+01, 0.1745E+01,& - 0.1749E+01, 0.1754E+01, 0.1758E+01, 0.1762E+01,& - 0.1767E+01, 0.1771E+01, 0.1776E+01, 0.1780E+01,& - 0.1784E+01, 0.1789E+01, 0.1794E+01, 0.1798E+01,& - 0.1803E+01, 0.1807E+01, 0.1812E+01, 0.1817E+01,& - 0.1821E+01, 0.1826E+01, 0.1831E+01, 0.1836E+01,& - 0.1841E+01, 0.1846E+01, 0.1851E+01, 0.1856E+01,& - 0.1861E+01, 0.1866E+01, 0.1871E+01, 0.1876E+01,& - 0.1881E+01, 0.1887E+01, 0.1892E+01, 0.1897E+01,& - 0.1903E+01, 0.1908E+01, 0.1914E+01, 0.1919E+01,& - 0.1925E+01, 0.1930E+01, 0.1936E+01, 0.1942E+01,& - 0.1948E+01, 0.1954E+01, 0.1959E+01, 0.1965E+01,& - 0.1971E+01, 0.1978E+01, 0.1984E+01, 0.1990E+01,& - 0.1996E+01, 0.2003E+01, 0.2009E+01, 0.2016E+01,& - 0.2022E+01, 0.2029E+01, 0.2036E+01, 0.2042E+01,& - 0.2049E+01, 0.2056E+01, 0.2063E+01, 0.2070E+01,& - 0.2078E+01, 0.2085E+01, 0.2092E+01, 0.2100E+01,& - 0.2108E+01, 0.2115E+01, 0.2123E+01, 0.2131E+01,& - 0.2139E+01, 0.2147E+01, 0.2156E+01, 0.2164E+01,& - 0.2173E+01, 0.2181E+01, 0.2190E+01, 0.2199E+01,& - 0.2208E+01, 0.2217E+01, 0.2227E+01, 0.2236E+01,& - 0.2246E+01, 0.2256E+01, 0.2266E+01, 0.2277E+01,& - 0.2287E+01, 0.2298E+01, 0.2309E+01, 0.2320E+01,& - 0.2332E+01, 0.2343E+01, 0.2355E+01, 0.2368E+01,& - 0.2380E+01, 0.2393E+01, 0.2406E+01, 0.2420E+01,& - 0.2434E+01, 0.2448E+01, 0.2463E+01, 0.2478E+01,& - 0.2494E+01, 0.2510E+01, 0.2527E+01, 0.2544E+01,& - 0.2562E+01, 0.2581E+01, 0.2601E+01, 0.2621E+01,& - 0.2642E+01, 0.2665E+01, 0.2688E+01, 0.2713E+01,& - 0.2738E+01, 0.2766E+01, 0.2795E+01, 0.2827E+01,& - 0.2861E+01, 0.2898E+01, 0.2938E+01, 0.2982E+01,& - 0.3031E+01, 0.3088E+01, 0.3153E+01, 0.3231E+01,& - 0.1000E-04, 0.2000E-01, 0.2922E-01, 0.3649E-01/) - xcw(:, 24) = (/& - 0.1000E-04, 0.2000E-01, 0.2922E-01, 0.3649E-01,& - 0.4277E-01, 0.4837E-01, 0.5348E-01, 0.5826E-01,& - 0.6276E-01, 0.6698E-01, 0.7103E-01, 0.7492E-01,& - 0.7869E-01, 0.8230E-01, 0.8580E-01, 0.8919E-01,& - 0.9252E-01, 0.9574E-01, 0.9890E-01, 0.1020E+00,& - 0.1050E+00, 0.1080E+00, 0.1108E+00, 0.1137E+00,& - 0.1165E+00, 0.1193E+00, 0.1220E+00, 0.1247E+00,& - 0.1273E+00, 0.1299E+00, 0.1324E+00, 0.1350E+00,& - 0.1375E+00, 0.1399E+00, 0.1424E+00, 0.1448E+00,& - 0.1472E+00, 0.1496E+00, 0.1519E+00, 0.1543E+00,& - 0.1565E+00, 0.1588E+00, 0.1611E+00, 0.1633E+00,& - 0.1655E+00, 0.1678E+00, 0.1699E+00, 0.1721E+00,& - 0.1743E+00, 0.1764E+00, 0.1785E+00, 0.1806E+00,& - 0.1827E+00, 0.1848E+00, 0.1869E+00, 0.1889E+00,& - 0.1910E+00, 0.1930E+00, 0.1950E+00, 0.1970E+00,& - 0.1990E+00, 0.2010E+00, 0.2030E+00, 0.2049E+00,& - 0.2069E+00, 0.2088E+00, 0.2107E+00, 0.2126E+00,& - 0.2146E+00, 0.2165E+00, 0.2183E+00, 0.2202E+00,& - 0.2221E+00, 0.2240E+00, 0.2258E+00, 0.2277E+00,& - 0.2295E+00, 0.2313E+00, 0.2332E+00, 0.2350E+00,& - 0.2368E+00, 0.2386E+00, 0.2404E+00, 0.2422E+00,& - 0.2440E+00, 0.2458E+00, 0.2476E+00, 0.2493E+00,& - 0.2511E+00, 0.2529E+00, 0.2546E+00, 0.2564E+00,& - 0.2581E+00, 0.2598E+00, 0.2615E+00, 0.2633E+00,& - 0.2650E+00, 0.2667E+00, 0.2684E+00, 0.2702E+00,& - 0.2718E+00, 0.2735E+00, 0.2752E+00, 0.2769E+00,& - 0.2786E+00, 0.2803E+00, 0.2819E+00, 0.2836E+00,& - 0.2853E+00, 0.2869E+00, 0.2886E+00, 0.2903E+00,& - 0.2919E+00, 0.2935E+00, 0.2952E+00, 0.2968E+00,& - 0.2985E+00, 0.3001E+00, 0.3017E+00, 0.3033E+00,& - 0.3050E+00, 0.3066E+00, 0.3082E+00, 0.3098E+00,& - 0.3114E+00, 0.3130E+00, 0.3146E+00, 0.3162E+00,& - 0.3178E+00, 0.3193E+00, 0.3210E+00, 0.3226E+00,& - 0.3241E+00, 0.3257E+00, 0.3273E+00, 0.3288E+00,& - 0.3305E+00, 0.3320E+00, 0.3336E+00, 0.3351E+00,& - 0.3367E+00, 0.3382E+00, 0.3398E+00, 0.3413E+00,& - 0.3429E+00, 0.3444E+00, 0.3460E+00, 0.3476E+00,& - 0.3491E+00, 0.3506E+00, 0.3522E+00, 0.3537E+00,& - 0.3552E+00, 0.3568E+00, 0.3583E+00, 0.3598E+00,& - 0.3613E+00, 0.3629E+00, 0.3644E+00, 0.3659E+00,& - 0.3674E+00, 0.3689E+00, 0.3705E+00, 0.3720E+00,& - 0.3735E+00, 0.3750E+00, 0.3765E+00, 0.3780E+00,& - 0.3795E+00, 0.3810E+00, 0.3825E+00, 0.3840E+00,& - 0.3855E+00, 0.3870E+00, 0.3885E+00, 0.3900E+00,& - 0.3915E+00, 0.3930E+00, 0.3945E+00, 0.3960E+00,& - 0.3975E+00, 0.3989E+00, 0.4004E+00, 0.4019E+00,& - 0.4034E+00, 0.4049E+00, 0.4064E+00, 0.4078E+00,& - 0.4093E+00, 0.4107E+00, 0.4122E+00, 0.4137E+00,& - 0.4152E+00, 0.4167E+00, 0.4181E+00, 0.4196E+00,& - 0.4211E+00, 0.4225E+00, 0.4240E+00, 0.4255E+00,& - 0.4269E+00, 0.4284E+00, 0.4298E+00, 0.4313E+00,& - 0.4328E+00, 0.4342E+00, 0.4357E+00, 0.4371E+00,& - 0.4386E+00, 0.4401E+00, 0.4415E+00, 0.4430E+00,& - 0.4444E+00, 0.4459E+00, 0.4473E+00, 0.4488E+00,& - 0.4502E+00, 0.4517E+00, 0.4531E+00, 0.4546E+00,& - 0.4560E+00, 0.4574E+00, 0.4589E+00, 0.4603E+00,& - 0.4618E+00, 0.4632E+00, 0.4647E+00, 0.4661E+00,& - 0.4676E+00, 0.4690E+00, 0.4704E+00, 0.4719E+00,& - 0.4733E+00, 0.4748E+00, 0.4762E+00, 0.4777E+00,& - 0.4791E+00, 0.4805E+00, 0.4819E+00, 0.4834E+00,& - 0.4848E+00, 0.4863E+00, 0.4877E+00, 0.4892E+00,& - 0.4906E+00, 0.4920E+00, 0.4934E+00, 0.4949E+00,& - 0.4963E+00, 0.4978E+00, 0.4991E+00, 0.5006E+00,& - 0.5020E+00, 0.5035E+00, 0.5049E+00, 0.5063E+00,& - 0.5078E+00, 0.5092E+00, 0.5106E+00, 0.5120E+00,& - 0.5135E+00, 0.5149E+00, 0.5164E+00, 0.5177E+00,& - 0.5192E+00, 0.5206E+00, 0.5221E+00, 0.5235E+00,& - 0.5249E+00, 0.5264E+00, 0.5277E+00, 0.5292E+00,& - 0.5306E+00, 0.5321E+00, 0.5335E+00, 0.5349E+00,& - 0.5364E+00, 0.5378E+00, 0.5392E+00, 0.5406E+00,& - 0.5421E+00, 0.5435E+00, 0.5449E+00, 0.5463E+00,& - 0.5478E+00, 0.5492E+00, 0.5506E+00, 0.5521E+00,& - 0.5535E+00, 0.5549E+00, 0.5563E+00, 0.5578E+00,& - 0.5592E+00, 0.5606E+00, 0.5621E+00, 0.5635E+00,& - 0.5649E+00, 0.5663E+00, 0.5678E+00, 0.5692E+00,& - 0.5706E+00, 0.5721E+00, 0.5735E+00, 0.5749E+00,& - 0.5763E+00, 0.5778E+00, 0.5792E+00, 0.5807E+00,& - 0.5821E+00, 0.5835E+00, 0.5849E+00, 0.5864E+00,& - 0.5878E+00, 0.5892E+00, 0.5907E+00, 0.5921E+00,& - 0.5935E+00, 0.5950E+00, 0.5964E+00, 0.5978E+00,& - 0.5993E+00, 0.6007E+00, 0.6022E+00, 0.6036E+00,& - 0.6050E+00, 0.6064E+00, 0.6079E+00, 0.6093E+00,& - 0.6108E+00, 0.6122E+00, 0.6136E+00, 0.6151E+00,& - 0.6165E+00, 0.6180E+00, 0.6194E+00, 0.6208E+00,& - 0.6223E+00, 0.6237E+00, 0.6251E+00, 0.6266E+00,& - 0.6280E+00, 0.6295E+00, 0.6309E+00, 0.6324E+00,& - 0.6338E+00, 0.6352E+00, 0.6367E+00, 0.6382E+00,& - 0.6396E+00, 0.6411E+00, 0.6425E+00, 0.6440E+00,& - 0.6454E+00, 0.6469E+00, 0.6483E+00, 0.6497E+00,& - 0.6512E+00, 0.6527E+00, 0.6541E+00, 0.6556E+00,& - 0.6570E+00, 0.6585E+00, 0.6600E+00, 0.6614E+00,& - 0.6628E+00, 0.6643E+00, 0.6658E+00, 0.6672E+00,& - 0.6687E+00, 0.6701E+00, 0.6716E+00, 0.6731E+00,& - 0.6745E+00, 0.6760E+00, 0.6774E+00, 0.6789E+00,& - 0.6804E+00, 0.6818E+00, 0.6833E+00, 0.6848E+00,& - 0.6863E+00, 0.6877E+00, 0.6892E+00, 0.6907E+00,& - 0.6922E+00, 0.6936E+00, 0.6951E+00, 0.6965E+00,& - 0.6980E+00, 0.6995E+00, 0.7010E+00, 0.7025E+00,& - 0.7039E+00, 0.7054E+00, 0.7069E+00, 0.7084E+00,& - 0.7099E+00, 0.7114E+00, 0.7128E+00, 0.7143E+00,& - 0.7158E+00, 0.7173E+00, 0.7188E+00, 0.7203E+00,& - 0.7218E+00, 0.7233E+00, 0.7248E+00, 0.7263E+00,& - 0.7278E+00, 0.7292E+00, 0.7307E+00, 0.7322E+00,& - 0.7337E+00, 0.7352E+00, 0.7367E+00, 0.7382E+00,& - 0.7397E+00, 0.7412E+00, 0.7427E+00, 0.7442E+00,& - 0.7457E+00, 0.7472E+00, 0.7487E+00, 0.7502E+00,& - 0.7518E+00, 0.7533E+00, 0.7548E+00, 0.7563E+00,& - 0.7579E+00, 0.7594E+00, 0.7608E+00, 0.7624E+00,& - 0.7639E+00, 0.7654E+00, 0.7670E+00, 0.7685E+00,& - 0.7700E+00, 0.7715E+00, 0.7731E+00, 0.7746E+00,& - 0.7761E+00, 0.7776E+00, 0.7792E+00, 0.7807E+00,& - 0.7822E+00, 0.7838E+00, 0.7853E+00, 0.7868E+00,& - 0.7884E+00, 0.7899E+00, 0.7914E+00, 0.7930E+00,& - 0.7946E+00, 0.7961E+00, 0.7977E+00, 0.7992E+00,& - 0.8008E+00, 0.8023E+00, 0.8039E+00, 0.8054E+00,& - 0.8070E+00, 0.8085E+00, 0.8101E+00, 0.8117E+00,& - 0.8132E+00, 0.8148E+00, 0.8163E+00, 0.8179E+00,& - 0.8195E+00, 0.8210E+00, 0.8226E+00, 0.8242E+00,& - 0.8258E+00, 0.8273E+00, 0.8289E+00, 0.8305E+00,& - 0.8321E+00, 0.8336E+00, 0.8353E+00, 0.8368E+00,& - 0.8384E+00, 0.8400E+00, 0.8416E+00, 0.8432E+00,& - 0.8448E+00, 0.8464E+00, 0.8480E+00, 0.8496E+00,& - 0.8511E+00, 0.8527E+00, 0.8544E+00, 0.8560E+00,& - 0.8576E+00, 0.8592E+00, 0.8608E+00, 0.8624E+00,& - 0.8640E+00, 0.8656E+00, 0.8672E+00, 0.8689E+00,& - 0.8705E+00, 0.8721E+00, 0.8737E+00, 0.8753E+00,& - 0.8770E+00, 0.8786E+00, 0.8802E+00, 0.8818E+00,& - 0.8835E+00, 0.8851E+00, 0.8868E+00, 0.8884E+00,& - 0.8901E+00, 0.8917E+00, 0.8933E+00, 0.8950E+00,& - 0.8967E+00, 0.8983E+00, 0.8999E+00, 0.9016E+00,& - 0.9033E+00, 0.9049E+00, 0.9066E+00, 0.9083E+00,& - 0.9099E+00, 0.9116E+00, 0.9133E+00, 0.9149E+00,& - 0.9166E+00, 0.9183E+00, 0.9199E+00, 0.9217E+00,& - 0.9233E+00, 0.9250E+00, 0.9267E+00, 0.9284E+00,& - 0.9300E+00, 0.9318E+00, 0.9334E+00, 0.9352E+00,& - 0.9369E+00, 0.9385E+00, 0.9403E+00, 0.9420E+00,& - 0.9436E+00, 0.9454E+00, 0.9471E+00, 0.9488E+00,& - 0.9505E+00, 0.9523E+00, 0.9540E+00, 0.9557E+00,& - 0.9574E+00, 0.9591E+00, 0.9609E+00, 0.9626E+00,& - 0.9644E+00, 0.9661E+00, 0.9679E+00, 0.9696E+00,& - 0.9713E+00, 0.9731E+00, 0.9748E+00, 0.9766E+00,& - 0.9784E+00, 0.9801E+00, 0.9818E+00, 0.9836E+00,& - 0.9854E+00, 0.9871E+00, 0.9889E+00, 0.9907E+00,& - 0.9925E+00, 0.9942E+00, 0.9960E+00, 0.9978E+00,& - 0.9996E+00, 0.1001E+01, 0.1003E+01, 0.1005E+01,& - 0.1007E+01, 0.1009E+01, 0.1010E+01, 0.1012E+01,& - 0.1014E+01, 0.1016E+01, 0.1018E+01, 0.1019E+01,& - 0.1021E+01, 0.1023E+01, 0.1025E+01, 0.1027E+01,& - 0.1029E+01, 0.1030E+01, 0.1032E+01, 0.1034E+01,& - 0.1036E+01, 0.1038E+01, 0.1040E+01, 0.1041E+01,& - 0.1043E+01, 0.1045E+01, 0.1047E+01, 0.1049E+01,& - 0.1051E+01, 0.1053E+01, 0.1055E+01, 0.1056E+01,& - 0.1058E+01, 0.1060E+01, 0.1062E+01, 0.1064E+01,& - 0.1066E+01, 0.1068E+01, 0.1070E+01, 0.1072E+01,& - 0.1073E+01, 0.1075E+01, 0.1077E+01, 0.1079E+01,& - 0.1081E+01, 0.1083E+01, 0.1085E+01, 0.1087E+01,& - 0.1089E+01, 0.1091E+01, 0.1093E+01, 0.1095E+01,& - 0.1097E+01, 0.1099E+01, 0.1101E+01, 0.1102E+01,& - 0.1104E+01, 0.1106E+01, 0.1108E+01, 0.1110E+01,& - 0.1112E+01, 0.1114E+01, 0.1116E+01, 0.1118E+01,& - 0.1120E+01, 0.1122E+01, 0.1124E+01, 0.1126E+01,& - 0.1128E+01, 0.1130E+01, 0.1132E+01, 0.1134E+01,& - 0.1136E+01, 0.1138E+01, 0.1140E+01, 0.1142E+01,& - 0.1144E+01, 0.1147E+01, 0.1149E+01, 0.1151E+01,& - 0.1153E+01, 0.1155E+01, 0.1157E+01, 0.1159E+01,& - 0.1161E+01, 0.1163E+01, 0.1165E+01, 0.1167E+01,& - 0.1169E+01, 0.1171E+01, 0.1174E+01, 0.1176E+01,& - 0.1178E+01, 0.1180E+01, 0.1182E+01, 0.1184E+01,& - 0.1186E+01, 0.1188E+01, 0.1190E+01, 0.1193E+01,& - 0.1195E+01, 0.1197E+01, 0.1199E+01, 0.1201E+01,& - 0.1203E+01, 0.1206E+01, 0.1208E+01, 0.1210E+01,& - 0.1212E+01, 0.1214E+01, 0.1217E+01, 0.1219E+01,& - 0.1221E+01, 0.1223E+01, 0.1225E+01, 0.1228E+01,& - 0.1230E+01, 0.1232E+01, 0.1234E+01, 0.1236E+01,& - 0.1239E+01, 0.1241E+01, 0.1243E+01, 0.1246E+01,& - 0.1248E+01, 0.1250E+01, 0.1252E+01, 0.1255E+01,& - 0.1257E+01, 0.1259E+01, 0.1262E+01, 0.1264E+01,& - 0.1266E+01, 0.1268E+01, 0.1271E+01, 0.1273E+01,& - 0.1275E+01, 0.1278E+01, 0.1280E+01, 0.1283E+01,& - 0.1285E+01, 0.1287E+01, 0.1290E+01, 0.1292E+01,& - 0.1294E+01, 0.1297E+01, 0.1299E+01, 0.1302E+01,& - 0.1304E+01, 0.1306E+01, 0.1309E+01, 0.1311E+01,& - 0.1314E+01, 0.1316E+01, 0.1319E+01, 0.1321E+01,& - 0.1324E+01, 0.1326E+01, 0.1329E+01, 0.1331E+01,& - 0.1334E+01, 0.1336E+01, 0.1339E+01, 0.1341E+01,& - 0.1344E+01, 0.1346E+01, 0.1349E+01, 0.1351E+01,& - 0.1354E+01, 0.1356E+01, 0.1359E+01, 0.1362E+01,& - 0.1364E+01, 0.1367E+01, 0.1369E+01, 0.1372E+01,& - 0.1375E+01, 0.1377E+01, 0.1380E+01, 0.1382E+01,& - 0.1385E+01, 0.1388E+01, 0.1390E+01, 0.1393E+01,& - 0.1396E+01, 0.1399E+01, 0.1401E+01, 0.1404E+01,& - 0.1407E+01, 0.1409E+01, 0.1412E+01, 0.1415E+01,& - 0.1418E+01, 0.1420E+01, 0.1423E+01, 0.1426E+01,& - 0.1429E+01, 0.1432E+01, 0.1434E+01, 0.1437E+01,& - 0.1440E+01, 0.1443E+01, 0.1446E+01, 0.1449E+01,& - 0.1452E+01, 0.1454E+01, 0.1457E+01, 0.1460E+01,& - 0.1463E+01, 0.1466E+01, 0.1469E+01, 0.1472E+01,& - 0.1475E+01, 0.1478E+01, 0.1481E+01, 0.1484E+01,& - 0.1487E+01, 0.1490E+01, 0.1493E+01, 0.1496E+01,& - 0.1499E+01, 0.1502E+01, 0.1505E+01, 0.1508E+01,& - 0.1511E+01, 0.1514E+01, 0.1518E+01, 0.1521E+01,& - 0.1524E+01, 0.1527E+01, 0.1530E+01, 0.1533E+01,& - 0.1537E+01, 0.1540E+01, 0.1543E+01, 0.1546E+01,& - 0.1550E+01, 0.1553E+01, 0.1556E+01, 0.1559E+01,& - 0.1563E+01, 0.1566E+01, 0.1569E+01, 0.1573E+01,& - 0.1576E+01, 0.1579E+01, 0.1583E+01, 0.1586E+01,& - 0.1590E+01, 0.1593E+01, 0.1597E+01, 0.1600E+01,& - 0.1604E+01, 0.1607E+01, 0.1611E+01, 0.1614E+01,& - 0.1618E+01, 0.1621E+01, 0.1625E+01, 0.1629E+01,& - 0.1632E+01, 0.1636E+01, 0.1640E+01, 0.1643E+01,& - 0.1647E+01, 0.1651E+01, 0.1654E+01, 0.1658E+01,& - 0.1662E+01, 0.1666E+01, 0.1670E+01, 0.1673E+01,& - 0.1677E+01, 0.1681E+01, 0.1685E+01, 0.1689E+01,& - 0.1693E+01, 0.1697E+01, 0.1701E+01, 0.1705E+01,& - 0.1709E+01, 0.1713E+01, 0.1717E+01, 0.1721E+01,& - 0.1725E+01, 0.1730E+01, 0.1734E+01, 0.1738E+01,& - 0.1742E+01, 0.1747E+01, 0.1751E+01, 0.1755E+01,& - 0.1759E+01, 0.1764E+01, 0.1768E+01, 0.1773E+01,& - 0.1777E+01, 0.1782E+01, 0.1786E+01, 0.1791E+01,& - 0.1795E+01, 0.1800E+01, 0.1804E+01, 0.1809E+01,& - 0.1814E+01, 0.1819E+01, 0.1823E+01, 0.1828E+01,& - 0.1833E+01, 0.1838E+01, 0.1843E+01, 0.1848E+01,& - 0.1853E+01, 0.1858E+01, 0.1863E+01, 0.1868E+01,& - 0.1873E+01, 0.1878E+01, 0.1883E+01, 0.1889E+01,& - 0.1894E+01, 0.1899E+01, 0.1905E+01, 0.1910E+01,& - 0.1916E+01, 0.1921E+01, 0.1927E+01, 0.1932E+01,& - 0.1938E+01, 0.1944E+01, 0.1950E+01, 0.1955E+01,& - 0.1961E+01, 0.1967E+01, 0.1973E+01, 0.1979E+01,& - 0.1985E+01, 0.1991E+01, 0.1998E+01, 0.2004E+01,& - 0.2010E+01, 0.2017E+01, 0.2023E+01, 0.2030E+01,& - 0.2036E+01, 0.2043E+01, 0.2050E+01, 0.2057E+01,& - 0.2064E+01, 0.2071E+01, 0.2078E+01, 0.2085E+01,& - 0.2092E+01, 0.2099E+01, 0.2107E+01, 0.2114E+01,& - 0.2122E+01, 0.2130E+01, 0.2137E+01, 0.2145E+01,& - 0.2153E+01, 0.2162E+01, 0.2170E+01, 0.2178E+01,& - 0.2187E+01, 0.2195E+01, 0.2204E+01, 0.2213E+01,& - 0.2222E+01, 0.2231E+01, 0.2240E+01, 0.2250E+01,& - 0.2259E+01, 0.2269E+01, 0.2279E+01, 0.2289E+01,& - 0.2299E+01, 0.2310E+01, 0.2321E+01, 0.2332E+01,& - 0.2343E+01, 0.2354E+01, 0.2365E+01, 0.2377E+01,& - 0.2389E+01, 0.2402E+01, 0.2414E+01, 0.2427E+01,& - 0.2441E+01, 0.2454E+01, 0.2468E+01, 0.2482E+01,& - 0.2497E+01, 0.2512E+01, 0.2528E+01, 0.2544E+01,& - 0.2560E+01, 0.2577E+01, 0.2595E+01, 0.2613E+01,& - 0.2632E+01, 0.2652E+01, 0.2673E+01, 0.2694E+01,& - 0.2716E+01, 0.2740E+01, 0.2765E+01, 0.2790E+01,& - 0.2818E+01, 0.2847E+01, 0.2878E+01, 0.2911E+01,& - 0.2947E+01, 0.2985E+01, 0.3027E+01, 0.3074E+01,& - 0.3126E+01, 0.3186E+01, 0.3254E+01, 0.3337E+01,& - 0.1000E-04, 0.1575E-01, 0.2360E-01, 0.2996E-01/) - xcw(:, 25) = (/& - 0.1000E-04, 0.1575E-01, 0.2360E-01, 0.2996E-01,& - 0.3548E-01, 0.4042E-01, 0.4503E-01, 0.4935E-01,& - 0.5338E-01, 0.5725E-01, 0.6094E-01, 0.6452E-01,& - 0.6793E-01, 0.7129E-01, 0.7453E-01, 0.7765E-01,& - 0.8072E-01, 0.8373E-01, 0.8669E-01, 0.8953E-01,& - 0.9237E-01, 0.9516E-01, 0.9789E-01, 0.1006E+00,& - 0.1032E+00, 0.1058E+00, 0.1083E+00, 0.1108E+00,& - 0.1133E+00, 0.1158E+00, 0.1182E+00, 0.1206E+00,& - 0.1230E+00, 0.1254E+00, 0.1277E+00, 0.1300E+00,& - 0.1323E+00, 0.1345E+00, 0.1368E+00, 0.1390E+00,& - 0.1412E+00, 0.1434E+00, 0.1456E+00, 0.1477E+00,& - 0.1498E+00, 0.1519E+00, 0.1540E+00, 0.1561E+00,& - 0.1582E+00, 0.1602E+00, 0.1623E+00, 0.1643E+00,& - 0.1664E+00, 0.1684E+00, 0.1704E+00, 0.1723E+00,& - 0.1743E+00, 0.1763E+00, 0.1782E+00, 0.1801E+00,& - 0.1821E+00, 0.1840E+00, 0.1859E+00, 0.1878E+00,& - 0.1897E+00, 0.1916E+00, 0.1935E+00, 0.1954E+00,& - 0.1972E+00, 0.1991E+00, 0.2009E+00, 0.2028E+00,& - 0.2046E+00, 0.2064E+00, 0.2082E+00, 0.2100E+00,& - 0.2118E+00, 0.2136E+00, 0.2154E+00, 0.2171E+00,& - 0.2190E+00, 0.2207E+00, 0.2225E+00, 0.2242E+00,& - 0.2259E+00, 0.2277E+00, 0.2295E+00, 0.2312E+00,& - 0.2329E+00, 0.2346E+00, 0.2363E+00, 0.2381E+00,& - 0.2398E+00, 0.2415E+00, 0.2432E+00, 0.2449E+00,& - 0.2466E+00, 0.2483E+00, 0.2499E+00, 0.2516E+00,& - 0.2533E+00, 0.2549E+00, 0.2566E+00, 0.2583E+00,& - 0.2599E+00, 0.2616E+00, 0.2632E+00, 0.2649E+00,& - 0.2665E+00, 0.2682E+00, 0.2698E+00, 0.2714E+00,& - 0.2731E+00, 0.2747E+00, 0.2763E+00, 0.2779E+00,& - 0.2795E+00, 0.2811E+00, 0.2827E+00, 0.2844E+00,& - 0.2860E+00, 0.2876E+00, 0.2891E+00, 0.2907E+00,& - 0.2923E+00, 0.2939E+00, 0.2955E+00, 0.2971E+00,& - 0.2987E+00, 0.3002E+00, 0.3018E+00, 0.3034E+00,& - 0.3050E+00, 0.3065E+00, 0.3081E+00, 0.3097E+00,& - 0.3113E+00, 0.3128E+00, 0.3143E+00, 0.3159E+00,& - 0.3175E+00, 0.3190E+00, 0.3205E+00, 0.3221E+00,& - 0.3237E+00, 0.3252E+00, 0.3267E+00, 0.3283E+00,& - 0.3298E+00, 0.3313E+00, 0.3329E+00, 0.3344E+00,& - 0.3359E+00, 0.3375E+00, 0.3390E+00, 0.3405E+00,& - 0.3420E+00, 0.3435E+00, 0.3451E+00, 0.3466E+00,& - 0.3481E+00, 0.3496E+00, 0.3511E+00, 0.3526E+00,& - 0.3541E+00, 0.3557E+00, 0.3571E+00, 0.3587E+00,& - 0.3601E+00, 0.3617E+00, 0.3632E+00, 0.3647E+00,& - 0.3662E+00, 0.3676E+00, 0.3692E+00, 0.3707E+00,& - 0.3721E+00, 0.3736E+00, 0.3751E+00, 0.3766E+00,& - 0.3781E+00, 0.3796E+00, 0.3811E+00, 0.3825E+00,& - 0.3841E+00, 0.3855E+00, 0.3870E+00, 0.3885E+00,& - 0.3900E+00, 0.3915E+00, 0.3929E+00, 0.3944E+00,& - 0.3959E+00, 0.3974E+00, 0.3988E+00, 0.4003E+00,& - 0.4018E+00, 0.4033E+00, 0.4047E+00, 0.4062E+00,& - 0.4077E+00, 0.4091E+00, 0.4106E+00, 0.4121E+00,& - 0.4136E+00, 0.4150E+00, 0.4165E+00, 0.4179E+00,& - 0.4194E+00, 0.4208E+00, 0.4223E+00, 0.4238E+00,& - 0.4253E+00, 0.4267E+00, 0.4282E+00, 0.4297E+00,& - 0.4311E+00, 0.4326E+00, 0.4340E+00, 0.4355E+00,& - 0.4369E+00, 0.4384E+00, 0.4398E+00, 0.4413E+00,& - 0.4427E+00, 0.4442E+00, 0.4457E+00, 0.4471E+00,& - 0.4486E+00, 0.4500E+00, 0.4515E+00, 0.4530E+00,& - 0.4544E+00, 0.4559E+00, 0.4573E+00, 0.4588E+00,& - 0.4602E+00, 0.4617E+00, 0.4631E+00, 0.4646E+00,& - 0.4660E+00, 0.4675E+00, 0.4689E+00, 0.4704E+00,& - 0.4718E+00, 0.4733E+00, 0.4747E+00, 0.4761E+00,& - 0.4776E+00, 0.4790E+00, 0.4805E+00, 0.4819E+00,& - 0.4834E+00, 0.4848E+00, 0.4863E+00, 0.4877E+00,& - 0.4892E+00, 0.4906E+00, 0.4921E+00, 0.4935E+00,& - 0.4950E+00, 0.4964E+00, 0.4979E+00, 0.4993E+00,& - 0.5008E+00, 0.5022E+00, 0.5037E+00, 0.5051E+00,& - 0.5066E+00, 0.5080E+00, 0.5095E+00, 0.5109E+00,& - 0.5124E+00, 0.5138E+00, 0.5153E+00, 0.5167E+00,& - 0.5181E+00, 0.5196E+00, 0.5210E+00, 0.5225E+00,& - 0.5239E+00, 0.5254E+00, 0.5268E+00, 0.5283E+00,& - 0.5297E+00, 0.5312E+00, 0.5326E+00, 0.5341E+00,& - 0.5355E+00, 0.5370E+00, 0.5384E+00, 0.5399E+00,& - 0.5413E+00, 0.5428E+00, 0.5442E+00, 0.5457E+00,& - 0.5471E+00, 0.5486E+00, 0.5500E+00, 0.5515E+00,& - 0.5529E+00, 0.5544E+00, 0.5558E+00, 0.5573E+00,& - 0.5587E+00, 0.5602E+00, 0.5616E+00, 0.5631E+00,& - 0.5646E+00, 0.5660E+00, 0.5675E+00, 0.5689E+00,& - 0.5704E+00, 0.5719E+00, 0.5733E+00, 0.5748E+00,& - 0.5762E+00, 0.5777E+00, 0.5791E+00, 0.5806E+00,& - 0.5820E+00, 0.5835E+00, 0.5850E+00, 0.5865E+00,& - 0.5879E+00, 0.5894E+00, 0.5909E+00, 0.5923E+00,& - 0.5937E+00, 0.5952E+00, 0.5967E+00, 0.5982E+00,& - 0.5997E+00, 0.6011E+00, 0.6026E+00, 0.6040E+00,& - 0.6055E+00, 0.6070E+00, 0.6085E+00, 0.6099E+00,& - 0.6114E+00, 0.6128E+00, 0.6143E+00, 0.6158E+00,& - 0.6173E+00, 0.6188E+00, 0.6202E+00, 0.6217E+00,& - 0.6232E+00, 0.6247E+00, 0.6261E+00, 0.6276E+00,& - 0.6291E+00, 0.6306E+00, 0.6321E+00, 0.6335E+00,& - 0.6350E+00, 0.6365E+00, 0.6380E+00, 0.6395E+00,& - 0.6410E+00, 0.6425E+00, 0.6439E+00, 0.6454E+00,& - 0.6469E+00, 0.6484E+00, 0.6499E+00, 0.6514E+00,& - 0.6529E+00, 0.6544E+00, 0.6559E+00, 0.6574E+00,& - 0.6589E+00, 0.6604E+00, 0.6618E+00, 0.6634E+00,& - 0.6649E+00, 0.6663E+00, 0.6679E+00, 0.6693E+00,& - 0.6709E+00, 0.6724E+00, 0.6739E+00, 0.6754E+00,& - 0.6769E+00, 0.6784E+00, 0.6799E+00, 0.6814E+00,& - 0.6829E+00, 0.6844E+00, 0.6859E+00, 0.6875E+00,& - 0.6890E+00, 0.6905E+00, 0.6920E+00, 0.6935E+00,& - 0.6950E+00, 0.6966E+00, 0.6980E+00, 0.6996E+00,& - 0.7011E+00, 0.7027E+00, 0.7042E+00, 0.7057E+00,& - 0.7072E+00, 0.7087E+00, 0.7103E+00, 0.7118E+00,& - 0.7133E+00, 0.7149E+00, 0.7164E+00, 0.7179E+00,& - 0.7195E+00, 0.7210E+00, 0.7225E+00, 0.7241E+00,& - 0.7256E+00, 0.7272E+00, 0.7287E+00, 0.7303E+00,& - 0.7318E+00, 0.7333E+00, 0.7349E+00, 0.7365E+00,& - 0.7380E+00, 0.7395E+00, 0.7411E+00, 0.7427E+00,& - 0.7442E+00, 0.7458E+00, 0.7473E+00, 0.7489E+00,& - 0.7505E+00, 0.7520E+00, 0.7536E+00, 0.7551E+00,& - 0.7567E+00, 0.7582E+00, 0.7598E+00, 0.7614E+00,& - 0.7630E+00, 0.7646E+00, 0.7661E+00, 0.7677E+00,& - 0.7693E+00, 0.7709E+00, 0.7725E+00, 0.7740E+00,& - 0.7756E+00, 0.7772E+00, 0.7788E+00, 0.7804E+00,& - 0.7819E+00, 0.7835E+00, 0.7851E+00, 0.7867E+00,& - 0.7883E+00, 0.7899E+00, 0.7915E+00, 0.7931E+00,& - 0.7947E+00, 0.7963E+00, 0.7979E+00, 0.7995E+00,& - 0.8012E+00, 0.8027E+00, 0.8043E+00, 0.8060E+00,& - 0.8076E+00, 0.8092E+00, 0.8108E+00, 0.8124E+00,& - 0.8141E+00, 0.8156E+00, 0.8173E+00, 0.8189E+00,& - 0.8205E+00, 0.8222E+00, 0.8238E+00, 0.8254E+00,& - 0.8271E+00, 0.8287E+00, 0.8303E+00, 0.8320E+00,& - 0.8336E+00, 0.8353E+00, 0.8369E+00, 0.8386E+00,& - 0.8402E+00, 0.8419E+00, 0.8435E+00, 0.8451E+00,& - 0.8468E+00, 0.8484E+00, 0.8501E+00, 0.8518E+00,& - 0.8534E+00, 0.8551E+00, 0.8568E+00, 0.8584E+00,& - 0.8601E+00, 0.8618E+00, 0.8634E+00, 0.8652E+00,& - 0.8668E+00, 0.8685E+00, 0.8702E+00, 0.8719E+00,& - 0.8736E+00, 0.8752E+00, 0.8769E+00, 0.8786E+00,& - 0.8803E+00, 0.8820E+00, 0.8837E+00, 0.8854E+00,& - 0.8871E+00, 0.8888E+00, 0.8905E+00, 0.8922E+00,& - 0.8939E+00, 0.8957E+00, 0.8974E+00, 0.8991E+00,& - 0.9008E+00, 0.9026E+00, 0.9043E+00, 0.9060E+00,& - 0.9077E+00, 0.9094E+00, 0.9112E+00, 0.9129E+00,& - 0.9147E+00, 0.9164E+00, 0.9181E+00, 0.9199E+00,& - 0.9216E+00, 0.9234E+00, 0.9251E+00, 0.9269E+00,& - 0.9286E+00, 0.9304E+00, 0.9322E+00, 0.9339E+00,& - 0.9357E+00, 0.9375E+00, 0.9392E+00, 0.9410E+00,& - 0.9427E+00, 0.9446E+00, 0.9463E+00, 0.9481E+00,& - 0.9499E+00, 0.9517E+00, 0.9535E+00, 0.9552E+00,& - 0.9571E+00, 0.9589E+00, 0.9606E+00, 0.9625E+00,& - 0.9643E+00, 0.9661E+00, 0.9679E+00, 0.9697E+00,& - 0.9715E+00, 0.9733E+00, 0.9751E+00, 0.9770E+00,& - 0.9788E+00, 0.9807E+00, 0.9825E+00, 0.9843E+00,& - 0.9862E+00, 0.9880E+00, 0.9899E+00, 0.9917E+00,& - 0.9936E+00, 0.9954E+00, 0.9972E+00, 0.9991E+00,& - 0.1001E+01, 0.1003E+01, 0.1005E+01, 0.1007E+01,& - 0.1008E+01, 0.1010E+01, 0.1012E+01, 0.1014E+01,& - 0.1016E+01, 0.1018E+01, 0.1020E+01, 0.1022E+01,& - 0.1023E+01, 0.1025E+01, 0.1027E+01, 0.1029E+01,& - 0.1031E+01, 0.1033E+01, 0.1035E+01, 0.1037E+01,& - 0.1039E+01, 0.1041E+01, 0.1043E+01, 0.1045E+01,& - 0.1047E+01, 0.1049E+01, 0.1050E+01, 0.1052E+01,& - 0.1054E+01, 0.1056E+01, 0.1058E+01, 0.1060E+01,& - 0.1062E+01, 0.1064E+01, 0.1066E+01, 0.1068E+01,& - 0.1070E+01, 0.1072E+01, 0.1074E+01, 0.1076E+01,& - 0.1078E+01, 0.1080E+01, 0.1082E+01, 0.1084E+01,& - 0.1086E+01, 0.1088E+01, 0.1090E+01, 0.1092E+01,& - 0.1094E+01, 0.1096E+01, 0.1098E+01, 0.1100E+01,& - 0.1102E+01, 0.1104E+01, 0.1106E+01, 0.1108E+01,& - 0.1110E+01, 0.1112E+01, 0.1115E+01, 0.1117E+01,& - 0.1119E+01, 0.1121E+01, 0.1123E+01, 0.1125E+01,& - 0.1127E+01, 0.1129E+01, 0.1131E+01, 0.1133E+01,& - 0.1135E+01, 0.1137E+01, 0.1140E+01, 0.1142E+01,& - 0.1144E+01, 0.1146E+01, 0.1148E+01, 0.1150E+01,& - 0.1152E+01, 0.1154E+01, 0.1157E+01, 0.1159E+01,& - 0.1161E+01, 0.1163E+01, 0.1165E+01, 0.1167E+01,& - 0.1170E+01, 0.1172E+01, 0.1174E+01, 0.1176E+01,& - 0.1178E+01, 0.1181E+01, 0.1183E+01, 0.1185E+01,& - 0.1187E+01, 0.1189E+01, 0.1192E+01, 0.1194E+01,& - 0.1196E+01, 0.1198E+01, 0.1201E+01, 0.1203E+01,& - 0.1205E+01, 0.1207E+01, 0.1210E+01, 0.1212E+01,& - 0.1214E+01, 0.1216E+01, 0.1219E+01, 0.1221E+01,& - 0.1223E+01, 0.1226E+01, 0.1228E+01, 0.1230E+01,& - 0.1233E+01, 0.1235E+01, 0.1237E+01, 0.1239E+01,& - 0.1242E+01, 0.1244E+01, 0.1247E+01, 0.1249E+01,& - 0.1251E+01, 0.1254E+01, 0.1256E+01, 0.1258E+01,& - 0.1261E+01, 0.1263E+01, 0.1266E+01, 0.1268E+01,& - 0.1270E+01, 0.1273E+01, 0.1275E+01, 0.1278E+01,& - 0.1280E+01, 0.1283E+01, 0.1285E+01, 0.1287E+01,& - 0.1290E+01, 0.1292E+01, 0.1295E+01, 0.1297E+01,& - 0.1300E+01, 0.1302E+01, 0.1305E+01, 0.1307E+01,& - 0.1310E+01, 0.1312E+01, 0.1315E+01, 0.1317E+01,& - 0.1320E+01, 0.1323E+01, 0.1325E+01, 0.1328E+01,& - 0.1330E+01, 0.1333E+01, 0.1335E+01, 0.1338E+01,& - 0.1341E+01, 0.1343E+01, 0.1346E+01, 0.1349E+01,& - 0.1351E+01, 0.1354E+01, 0.1356E+01, 0.1359E+01,& - 0.1362E+01, 0.1364E+01, 0.1367E+01, 0.1370E+01,& - 0.1372E+01, 0.1375E+01, 0.1378E+01, 0.1381E+01,& - 0.1383E+01, 0.1386E+01, 0.1389E+01, 0.1392E+01,& - 0.1394E+01, 0.1397E+01, 0.1400E+01, 0.1403E+01,& - 0.1406E+01, 0.1408E+01, 0.1411E+01, 0.1414E+01,& - 0.1417E+01, 0.1420E+01, 0.1423E+01, 0.1425E+01,& - 0.1428E+01, 0.1431E+01, 0.1434E+01, 0.1437E+01,& - 0.1440E+01, 0.1443E+01, 0.1446E+01, 0.1449E+01,& - 0.1452E+01, 0.1455E+01, 0.1458E+01, 0.1461E+01,& - 0.1464E+01, 0.1467E+01, 0.1470E+01, 0.1473E+01,& - 0.1476E+01, 0.1479E+01, 0.1482E+01, 0.1485E+01,& - 0.1488E+01, 0.1491E+01, 0.1494E+01, 0.1497E+01,& - 0.1501E+01, 0.1504E+01, 0.1507E+01, 0.1510E+01,& - 0.1513E+01, 0.1517E+01, 0.1520E+01, 0.1523E+01,& - 0.1526E+01, 0.1529E+01, 0.1533E+01, 0.1536E+01,& - 0.1539E+01, 0.1543E+01, 0.1546E+01, 0.1549E+01,& - 0.1553E+01, 0.1556E+01, 0.1559E+01, 0.1563E+01,& - 0.1566E+01, 0.1570E+01, 0.1573E+01, 0.1576E+01,& - 0.1580E+01, 0.1583E+01, 0.1587E+01, 0.1590E+01,& - 0.1594E+01, 0.1597E+01, 0.1601E+01, 0.1605E+01,& - 0.1608E+01, 0.1612E+01, 0.1615E+01, 0.1619E+01,& - 0.1623E+01, 0.1626E+01, 0.1630E+01, 0.1634E+01,& - 0.1638E+01, 0.1641E+01, 0.1645E+01, 0.1649E+01,& - 0.1653E+01, 0.1657E+01, 0.1660E+01, 0.1664E+01,& - 0.1668E+01, 0.1672E+01, 0.1676E+01, 0.1680E+01,& - 0.1684E+01, 0.1688E+01, 0.1692E+01, 0.1696E+01,& - 0.1700E+01, 0.1704E+01, 0.1708E+01, 0.1712E+01,& - 0.1716E+01, 0.1721E+01, 0.1725E+01, 0.1729E+01,& - 0.1733E+01, 0.1737E+01, 0.1742E+01, 0.1746E+01,& - 0.1750E+01, 0.1755E+01, 0.1759E+01, 0.1763E+01,& - 0.1768E+01, 0.1772E+01, 0.1777E+01, 0.1781E+01,& - 0.1786E+01, 0.1791E+01, 0.1795E+01, 0.1800E+01,& - 0.1805E+01, 0.1809E+01, 0.1814E+01, 0.1819E+01,& - 0.1824E+01, 0.1828E+01, 0.1833E+01, 0.1838E+01,& - 0.1843E+01, 0.1848E+01, 0.1853E+01, 0.1858E+01,& - 0.1863E+01, 0.1868E+01, 0.1873E+01, 0.1879E+01,& - 0.1884E+01, 0.1889E+01, 0.1894E+01, 0.1900E+01,& - 0.1905E+01, 0.1910E+01, 0.1916E+01, 0.1922E+01,& - 0.1927E+01, 0.1933E+01, 0.1938E+01, 0.1944E+01,& - 0.1950E+01, 0.1956E+01, 0.1961E+01, 0.1967E+01,& - 0.1973E+01, 0.1979E+01, 0.1985E+01, 0.1991E+01,& - 0.1998E+01, 0.2004E+01, 0.2010E+01, 0.2016E+01,& - 0.2023E+01, 0.2029E+01, 0.2036E+01, 0.2043E+01,& - 0.2049E+01, 0.2056E+01, 0.2063E+01, 0.2070E+01,& - 0.2077E+01, 0.2084E+01, 0.2091E+01, 0.2098E+01,& - 0.2105E+01, 0.2112E+01, 0.2120E+01, 0.2127E+01,& - 0.2135E+01, 0.2143E+01, 0.2151E+01, 0.2158E+01,& - 0.2166E+01, 0.2175E+01, 0.2183E+01, 0.2191E+01,& - 0.2200E+01, 0.2208E+01, 0.2217E+01, 0.2225E+01,& - 0.2234E+01, 0.2243E+01, 0.2253E+01, 0.2262E+01,& - 0.2271E+01, 0.2281E+01, 0.2291E+01, 0.2301E+01,& - 0.2311E+01, 0.2321E+01, 0.2331E+01, 0.2342E+01,& - 0.2353E+01, 0.2364E+01, 0.2375E+01, 0.2387E+01,& - 0.2398E+01, 0.2410E+01, 0.2422E+01, 0.2435E+01,& - 0.2447E+01, 0.2460E+01, 0.2474E+01, 0.2487E+01,& - 0.2501E+01, 0.2516E+01, 0.2530E+01, 0.2545E+01,& - 0.2561E+01, 0.2577E+01, 0.2593E+01, 0.2610E+01,& - 0.2627E+01, 0.2645E+01, 0.2664E+01, 0.2683E+01,& - 0.2703E+01, 0.2724E+01, 0.2745E+01, 0.2768E+01,& - 0.2791E+01, 0.2816E+01, 0.2842E+01, 0.2869E+01,& - 0.2898E+01, 0.2929E+01, 0.2961E+01, 0.2996E+01,& - 0.3033E+01, 0.3074E+01, 0.3119E+01, 0.3168E+01,& - 0.3222E+01, 0.3285E+01, 0.3357E+01, 0.3443E+01,& - 0.1000E-04, 0.1229E-01, 0.1898E-01, 0.2439E-01/) - xcw(:, 26) = (/& - 0.1000E-04, 0.1229E-01, 0.1898E-01, 0.2439E-01,& - 0.2923E-01, 0.3365E-01, 0.3772E-01, 0.4156E-01,& - 0.4517E-01, 0.4866E-01, 0.5204E-01, 0.5530E-01,& - 0.5844E-01, 0.6147E-01, 0.6444E-01, 0.6734E-01,& - 0.7020E-01, 0.7293E-01, 0.7567E-01, 0.7834E-01,& - 0.8096E-01, 0.8352E-01, 0.8608E-01, 0.8859E-01,& - 0.9103E-01, 0.9348E-01, 0.9586E-01, 0.9825E-01,& - 0.1006E+00, 0.1029E+00, 0.1052E+00, 0.1074E+00,& - 0.1097E+00, 0.1119E+00, 0.1141E+00, 0.1163E+00,& - 0.1185E+00, 0.1207E+00, 0.1227E+00, 0.1248E+00,& - 0.1269E+00, 0.1290E+00, 0.1311E+00, 0.1332E+00,& - 0.1352E+00, 0.1372E+00, 0.1392E+00, 0.1412E+00,& - 0.1432E+00, 0.1452E+00, 0.1471E+00, 0.1491E+00,& - 0.1510E+00, 0.1530E+00, 0.1549E+00, 0.1568E+00,& - 0.1587E+00, 0.1606E+00, 0.1624E+00, 0.1643E+00,& - 0.1662E+00, 0.1680E+00, 0.1699E+00, 0.1718E+00,& - 0.1736E+00, 0.1754E+00, 0.1772E+00, 0.1790E+00,& - 0.1808E+00, 0.1826E+00, 0.1844E+00, 0.1862E+00,& - 0.1879E+00, 0.1897E+00, 0.1915E+00, 0.1932E+00,& - 0.1950E+00, 0.1967E+00, 0.1985E+00, 0.2002E+00,& - 0.2019E+00, 0.2036E+00, 0.2054E+00, 0.2071E+00,& - 0.2088E+00, 0.2105E+00, 0.2122E+00, 0.2139E+00,& - 0.2156E+00, 0.2173E+00, 0.2190E+00, 0.2206E+00,& - 0.2223E+00, 0.2240E+00, 0.2256E+00, 0.2273E+00,& - 0.2289E+00, 0.2306E+00, 0.2322E+00, 0.2338E+00,& - 0.2355E+00, 0.2372E+00, 0.2388E+00, 0.2404E+00,& - 0.2421E+00, 0.2437E+00, 0.2453E+00, 0.2469E+00,& - 0.2485E+00, 0.2501E+00, 0.2517E+00, 0.2533E+00,& - 0.2550E+00, 0.2565E+00, 0.2582E+00, 0.2597E+00,& - 0.2613E+00, 0.2629E+00, 0.2645E+00, 0.2661E+00,& - 0.2677E+00, 0.2692E+00, 0.2708E+00, 0.2724E+00,& - 0.2739E+00, 0.2755E+00, 0.2771E+00, 0.2787E+00,& - 0.2802E+00, 0.2818E+00, 0.2834E+00, 0.2849E+00,& - 0.2865E+00, 0.2880E+00, 0.2895E+00, 0.2911E+00,& - 0.2926E+00, 0.2942E+00, 0.2957E+00, 0.2973E+00,& - 0.2988E+00, 0.3004E+00, 0.3019E+00, 0.3035E+00,& - 0.3050E+00, 0.3065E+00, 0.3080E+00, 0.3096E+00,& - 0.3111E+00, 0.3126E+00, 0.3141E+00, 0.3156E+00,& - 0.3171E+00, 0.3186E+00, 0.3202E+00, 0.3217E+00,& - 0.3232E+00, 0.3248E+00, 0.3262E+00, 0.3277E+00,& - 0.3292E+00, 0.3307E+00, 0.3323E+00, 0.3338E+00,& - 0.3353E+00, 0.3368E+00, 0.3383E+00, 0.3398E+00,& - 0.3413E+00, 0.3428E+00, 0.3443E+00, 0.3458E+00,& - 0.3473E+00, 0.3487E+00, 0.3502E+00, 0.3518E+00,& - 0.3532E+00, 0.3547E+00, 0.3562E+00, 0.3577E+00,& - 0.3592E+00, 0.3607E+00, 0.3622E+00, 0.3636E+00,& - 0.3651E+00, 0.3666E+00, 0.3681E+00, 0.3696E+00,& - 0.3711E+00, 0.3725E+00, 0.3740E+00, 0.3755E+00,& - 0.3770E+00, 0.3785E+00, 0.3799E+00, 0.3814E+00,& - 0.3829E+00, 0.3843E+00, 0.3858E+00, 0.3873E+00,& - 0.3888E+00, 0.3902E+00, 0.3917E+00, 0.3932E+00,& - 0.3947E+00, 0.3961E+00, 0.3976E+00, 0.3991E+00,& - 0.4005E+00, 0.4020E+00, 0.4035E+00, 0.4050E+00,& - 0.4064E+00, 0.4079E+00, 0.4093E+00, 0.4108E+00,& - 0.4123E+00, 0.4137E+00, 0.4152E+00, 0.4166E+00,& - 0.4182E+00, 0.4196E+00, 0.4211E+00, 0.4225E+00,& - 0.4240E+00, 0.4254E+00, 0.4269E+00, 0.4284E+00,& - 0.4299E+00, 0.4313E+00, 0.4328E+00, 0.4342E+00,& - 0.4357E+00, 0.4371E+00, 0.4386E+00, 0.4401E+00,& - 0.4416E+00, 0.4430E+00, 0.4445E+00, 0.4459E+00,& - 0.4474E+00, 0.4488E+00, 0.4503E+00, 0.4517E+00,& - 0.4532E+00, 0.4547E+00, 0.4562E+00, 0.4576E+00,& - 0.4591E+00, 0.4605E+00, 0.4620E+00, 0.4634E+00,& - 0.4649E+00, 0.4663E+00, 0.4679E+00, 0.4693E+00,& - 0.4708E+00, 0.4722E+00, 0.4737E+00, 0.4751E+00,& - 0.4766E+00, 0.4780E+00, 0.4795E+00, 0.4810E+00,& - 0.4825E+00, 0.4839E+00, 0.4854E+00, 0.4868E+00,& - 0.4883E+00, 0.4897E+00, 0.4912E+00, 0.4927E+00,& - 0.4942E+00, 0.4956E+00, 0.4971E+00, 0.4985E+00,& - 0.5000E+00, 0.5015E+00, 0.5030E+00, 0.5044E+00,& - 0.5059E+00, 0.5073E+00, 0.5088E+00, 0.5103E+00,& - 0.5117E+00, 0.5132E+00, 0.5147E+00, 0.5162E+00,& - 0.5176E+00, 0.5191E+00, 0.5205E+00, 0.5220E+00,& - 0.5235E+00, 0.5250E+00, 0.5264E+00, 0.5279E+00,& - 0.5294E+00, 0.5308E+00, 0.5323E+00, 0.5338E+00,& - 0.5353E+00, 0.5368E+00, 0.5382E+00, 0.5397E+00,& - 0.5412E+00, 0.5426E+00, 0.5441E+00, 0.5456E+00,& - 0.5471E+00, 0.5485E+00, 0.5500E+00, 0.5515E+00,& - 0.5530E+00, 0.5545E+00, 0.5560E+00, 0.5574E+00,& - 0.5589E+00, 0.5604E+00, 0.5619E+00, 0.5634E+00,& - 0.5648E+00, 0.5663E+00, 0.5678E+00, 0.5693E+00,& - 0.5708E+00, 0.5723E+00, 0.5738E+00, 0.5752E+00,& - 0.5768E+00, 0.5782E+00, 0.5797E+00, 0.5812E+00,& - 0.5827E+00, 0.5842E+00, 0.5857E+00, 0.5872E+00,& - 0.5887E+00, 0.5902E+00, 0.5916E+00, 0.5932E+00,& - 0.5947E+00, 0.5962E+00, 0.5976E+00, 0.5992E+00,& - 0.6007E+00, 0.6022E+00, 0.6037E+00, 0.6052E+00,& - 0.6067E+00, 0.6082E+00, 0.6097E+00, 0.6112E+00,& - 0.6127E+00, 0.6142E+00, 0.6157E+00, 0.6173E+00,& - 0.6188E+00, 0.6203E+00, 0.6218E+00, 0.6233E+00,& - 0.6248E+00, 0.6263E+00, 0.6278E+00, 0.6294E+00,& - 0.6309E+00, 0.6324E+00, 0.6339E+00, 0.6354E+00,& - 0.6369E+00, 0.6385E+00, 0.6400E+00, 0.6415E+00,& - 0.6430E+00, 0.6446E+00, 0.6461E+00, 0.6476E+00,& - 0.6491E+00, 0.6507E+00, 0.6522E+00, 0.6537E+00,& - 0.6553E+00, 0.6568E+00, 0.6583E+00, 0.6599E+00,& - 0.6614E+00, 0.6630E+00, 0.6645E+00, 0.6661E+00,& - 0.6676E+00, 0.6692E+00, 0.6707E+00, 0.6723E+00,& - 0.6738E+00, 0.6753E+00, 0.6769E+00, 0.6784E+00,& - 0.6800E+00, 0.6816E+00, 0.6831E+00, 0.6847E+00,& - 0.6862E+00, 0.6878E+00, 0.6893E+00, 0.6909E+00,& - 0.6924E+00, 0.6940E+00, 0.6956E+00, 0.6972E+00,& - 0.6987E+00, 0.7003E+00, 0.7019E+00, 0.7034E+00,& - 0.7050E+00, 0.7066E+00, 0.7082E+00, 0.7097E+00,& - 0.7113E+00, 0.7129E+00, 0.7144E+00, 0.7160E+00,& - 0.7176E+00, 0.7192E+00, 0.7208E+00, 0.7224E+00,& - 0.7240E+00, 0.7256E+00, 0.7271E+00, 0.7288E+00,& - 0.7303E+00, 0.7319E+00, 0.7335E+00, 0.7351E+00,& - 0.7367E+00, 0.7383E+00, 0.7399E+00, 0.7415E+00,& - 0.7431E+00, 0.7448E+00, 0.7463E+00, 0.7480E+00,& - 0.7496E+00, 0.7512E+00, 0.7528E+00, 0.7544E+00,& - 0.7561E+00, 0.7576E+00, 0.7593E+00, 0.7609E+00,& - 0.7625E+00, 0.7641E+00, 0.7658E+00, 0.7674E+00,& - 0.7690E+00, 0.7707E+00, 0.7723E+00, 0.7739E+00,& - 0.7756E+00, 0.7772E+00, 0.7789E+00, 0.7805E+00,& - 0.7821E+00, 0.7838E+00, 0.7854E+00, 0.7871E+00,& - 0.7887E+00, 0.7904E+00, 0.7920E+00, 0.7937E+00,& - 0.7953E+00, 0.7970E+00, 0.7987E+00, 0.8003E+00,& - 0.8020E+00, 0.8037E+00, 0.8054E+00, 0.8070E+00,& - 0.8087E+00, 0.8104E+00, 0.8120E+00, 0.8137E+00,& - 0.8154E+00, 0.8171E+00, 0.8187E+00, 0.8204E+00,& - 0.8221E+00, 0.8238E+00, 0.8255E+00, 0.8272E+00,& - 0.8289E+00, 0.8306E+00, 0.8323E+00, 0.8340E+00,& - 0.8357E+00, 0.8374E+00, 0.8391E+00, 0.8408E+00,& - 0.8425E+00, 0.8442E+00, 0.8459E+00, 0.8477E+00,& - 0.8494E+00, 0.8511E+00, 0.8528E+00, 0.8545E+00,& - 0.8563E+00, 0.8580E+00, 0.8597E+00, 0.8615E+00,& - 0.8632E+00, 0.8649E+00, 0.8667E+00, 0.8684E+00,& - 0.8702E+00, 0.8719E+00, 0.8737E+00, 0.8754E+00,& - 0.8772E+00, 0.8789E+00, 0.8807E+00, 0.8825E+00,& - 0.8842E+00, 0.8860E+00, 0.8878E+00, 0.8895E+00,& - 0.8913E+00, 0.8931E+00, 0.8949E+00, 0.8966E+00,& - 0.8984E+00, 0.9002E+00, 0.9020E+00, 0.9038E+00,& - 0.9056E+00, 0.9074E+00, 0.9091E+00, 0.9109E+00,& - 0.9127E+00, 0.9145E+00, 0.9163E+00, 0.9181E+00,& - 0.9200E+00, 0.9218E+00, 0.9236E+00, 0.9254E+00,& - 0.9272E+00, 0.9291E+00, 0.9309E+00, 0.9327E+00,& - 0.9346E+00, 0.9364E+00, 0.9382E+00, 0.9401E+00,& - 0.9419E+00, 0.9437E+00, 0.9456E+00, 0.9475E+00,& - 0.9493E+00, 0.9512E+00, 0.9531E+00, 0.9549E+00,& - 0.9568E+00, 0.9586E+00, 0.9605E+00, 0.9624E+00,& - 0.9642E+00, 0.9662E+00, 0.9680E+00, 0.9699E+00,& - 0.9718E+00, 0.9737E+00, 0.9756E+00, 0.9774E+00,& - 0.9794E+00, 0.9813E+00, 0.9831E+00, 0.9851E+00,& - 0.9870E+00, 0.9889E+00, 0.9908E+00, 0.9927E+00,& - 0.9947E+00, 0.9966E+00, 0.9985E+00, 0.1000E+01,& - 0.1002E+01, 0.1004E+01, 0.1006E+01, 0.1008E+01,& - 0.1010E+01, 0.1012E+01, 0.1014E+01, 0.1016E+01,& - 0.1018E+01, 0.1020E+01, 0.1022E+01, 0.1024E+01,& - 0.1026E+01, 0.1028E+01, 0.1030E+01, 0.1032E+01,& - 0.1034E+01, 0.1036E+01, 0.1038E+01, 0.1040E+01,& - 0.1042E+01, 0.1044E+01, 0.1046E+01, 0.1048E+01,& - 0.1050E+01, 0.1052E+01, 0.1054E+01, 0.1056E+01,& - 0.1058E+01, 0.1060E+01, 0.1062E+01, 0.1064E+01,& - 0.1066E+01, 0.1068E+01, 0.1070E+01, 0.1072E+01,& - 0.1074E+01, 0.1076E+01, 0.1079E+01, 0.1081E+01,& - 0.1083E+01, 0.1085E+01, 0.1087E+01, 0.1089E+01,& - 0.1091E+01, 0.1093E+01, 0.1095E+01, 0.1097E+01,& - 0.1099E+01, 0.1102E+01, 0.1104E+01, 0.1106E+01,& - 0.1108E+01, 0.1110E+01, 0.1112E+01, 0.1114E+01,& - 0.1117E+01, 0.1119E+01, 0.1121E+01, 0.1123E+01,& - 0.1125E+01, 0.1127E+01, 0.1130E+01, 0.1132E+01,& - 0.1134E+01, 0.1136E+01, 0.1138E+01, 0.1140E+01,& - 0.1143E+01, 0.1145E+01, 0.1147E+01, 0.1149E+01,& - 0.1151E+01, 0.1154E+01, 0.1156E+01, 0.1158E+01,& - 0.1160E+01, 0.1163E+01, 0.1165E+01, 0.1167E+01,& - 0.1169E+01, 0.1172E+01, 0.1174E+01, 0.1176E+01,& - 0.1178E+01, 0.1181E+01, 0.1183E+01, 0.1185E+01,& - 0.1188E+01, 0.1190E+01, 0.1192E+01, 0.1195E+01,& - 0.1197E+01, 0.1199E+01, 0.1202E+01, 0.1204E+01,& - 0.1206E+01, 0.1209E+01, 0.1211E+01, 0.1213E+01,& - 0.1216E+01, 0.1218E+01, 0.1220E+01, 0.1223E+01,& - 0.1225E+01, 0.1228E+01, 0.1230E+01, 0.1232E+01,& - 0.1235E+01, 0.1237E+01, 0.1240E+01, 0.1242E+01,& - 0.1244E+01, 0.1247E+01, 0.1249E+01, 0.1252E+01,& - 0.1254E+01, 0.1257E+01, 0.1259E+01, 0.1262E+01,& - 0.1264E+01, 0.1267E+01, 0.1269E+01, 0.1272E+01,& - 0.1274E+01, 0.1277E+01, 0.1279E+01, 0.1282E+01,& - 0.1284E+01, 0.1287E+01, 0.1289E+01, 0.1292E+01,& - 0.1294E+01, 0.1297E+01, 0.1300E+01, 0.1302E+01,& - 0.1305E+01, 0.1307E+01, 0.1310E+01, 0.1313E+01,& - 0.1315E+01, 0.1318E+01, 0.1320E+01, 0.1323E+01,& - 0.1326E+01, 0.1328E+01, 0.1331E+01, 0.1334E+01,& - 0.1336E+01, 0.1339E+01, 0.1342E+01, 0.1344E+01,& - 0.1347E+01, 0.1350E+01, 0.1353E+01, 0.1355E+01,& - 0.1358E+01, 0.1361E+01, 0.1364E+01, 0.1366E+01,& - 0.1369E+01, 0.1372E+01, 0.1375E+01, 0.1378E+01,& - 0.1380E+01, 0.1383E+01, 0.1386E+01, 0.1389E+01,& - 0.1392E+01, 0.1395E+01, 0.1397E+01, 0.1400E+01,& - 0.1403E+01, 0.1406E+01, 0.1409E+01, 0.1412E+01,& - 0.1415E+01, 0.1418E+01, 0.1421E+01, 0.1424E+01,& - 0.1427E+01, 0.1430E+01, 0.1433E+01, 0.1436E+01,& - 0.1439E+01, 0.1442E+01, 0.1445E+01, 0.1448E+01,& - 0.1451E+01, 0.1454E+01, 0.1457E+01, 0.1460E+01,& - 0.1463E+01, 0.1466E+01, 0.1469E+01, 0.1472E+01,& - 0.1475E+01, 0.1479E+01, 0.1482E+01, 0.1485E+01,& - 0.1488E+01, 0.1491E+01, 0.1495E+01, 0.1498E+01,& - 0.1501E+01, 0.1504E+01, 0.1507E+01, 0.1511E+01,& - 0.1514E+01, 0.1517E+01, 0.1521E+01, 0.1524E+01,& - 0.1527E+01, 0.1531E+01, 0.1534E+01, 0.1537E+01,& - 0.1541E+01, 0.1544E+01, 0.1547E+01, 0.1551E+01,& - 0.1554E+01, 0.1558E+01, 0.1561E+01, 0.1565E+01,& - 0.1568E+01, 0.1572E+01, 0.1575E+01, 0.1579E+01,& - 0.1582E+01, 0.1586E+01, 0.1590E+01, 0.1593E+01,& - 0.1597E+01, 0.1600E+01, 0.1604E+01, 0.1608E+01,& - 0.1611E+01, 0.1615E+01, 0.1619E+01, 0.1623E+01,& - 0.1626E+01, 0.1630E+01, 0.1634E+01, 0.1638E+01,& - 0.1642E+01, 0.1645E+01, 0.1649E+01, 0.1653E+01,& - 0.1657E+01, 0.1661E+01, 0.1665E+01, 0.1669E+01,& - 0.1673E+01, 0.1677E+01, 0.1681E+01, 0.1685E+01,& - 0.1689E+01, 0.1693E+01, 0.1697E+01, 0.1701E+01,& - 0.1705E+01, 0.1710E+01, 0.1714E+01, 0.1718E+01,& - 0.1722E+01, 0.1726E+01, 0.1731E+01, 0.1735E+01,& - 0.1739E+01, 0.1744E+01, 0.1748E+01, 0.1753E+01,& - 0.1757E+01, 0.1761E+01, 0.1766E+01, 0.1770E+01,& - 0.1775E+01, 0.1780E+01, 0.1784E+01, 0.1789E+01,& - 0.1793E+01, 0.1798E+01, 0.1803E+01, 0.1807E+01,& - 0.1812E+01, 0.1817E+01, 0.1822E+01, 0.1827E+01,& - 0.1832E+01, 0.1837E+01, 0.1842E+01, 0.1847E+01,& - 0.1852E+01, 0.1857E+01, 0.1862E+01, 0.1867E+01,& - 0.1872E+01, 0.1877E+01, 0.1882E+01, 0.1888E+01,& - 0.1893E+01, 0.1898E+01, 0.1904E+01, 0.1909E+01,& - 0.1915E+01, 0.1920E+01, 0.1926E+01, 0.1931E+01,& - 0.1937E+01, 0.1943E+01, 0.1948E+01, 0.1954E+01,& - 0.1960E+01, 0.1966E+01, 0.1972E+01, 0.1978E+01,& - 0.1984E+01, 0.1990E+01, 0.1996E+01, 0.2002E+01,& - 0.2008E+01, 0.2015E+01, 0.2021E+01, 0.2027E+01,& - 0.2034E+01, 0.2040E+01, 0.2047E+01, 0.2054E+01,& - 0.2060E+01, 0.2067E+01, 0.2074E+01, 0.2081E+01,& - 0.2088E+01, 0.2095E+01, 0.2102E+01, 0.2109E+01,& - 0.2117E+01, 0.2124E+01, 0.2132E+01, 0.2139E+01,& - 0.2147E+01, 0.2154E+01, 0.2162E+01, 0.2170E+01,& - 0.2178E+01, 0.2186E+01, 0.2194E+01, 0.2203E+01,& - 0.2211E+01, 0.2220E+01, 0.2228E+01, 0.2237E+01,& - 0.2246E+01, 0.2255E+01, 0.2264E+01, 0.2273E+01,& - 0.2282E+01, 0.2292E+01, 0.2301E+01, 0.2311E+01,& - 0.2321E+01, 0.2331E+01, 0.2341E+01, 0.2352E+01,& - 0.2362E+01, 0.2373E+01, 0.2384E+01, 0.2395E+01,& - 0.2407E+01, 0.2418E+01, 0.2430E+01, 0.2442E+01,& - 0.2454E+01, 0.2467E+01, 0.2480E+01, 0.2493E+01,& - 0.2506E+01, 0.2520E+01, 0.2534E+01, 0.2548E+01,& - 0.2562E+01, 0.2577E+01, 0.2593E+01, 0.2609E+01,& - 0.2625E+01, 0.2642E+01, 0.2659E+01, 0.2676E+01,& - 0.2695E+01, 0.2713E+01, 0.2733E+01, 0.2753E+01,& - 0.2774E+01, 0.2796E+01, 0.2819E+01, 0.2843E+01,& - 0.2867E+01, 0.2893E+01, 0.2920E+01, 0.2949E+01,& - 0.2979E+01, 0.3011E+01, 0.3045E+01, 0.3082E+01,& - 0.3121E+01, 0.3164E+01, 0.3211E+01, 0.3262E+01,& - 0.3320E+01, 0.3385E+01, 0.3461E+01, 0.3552E+01,& - 0.1000E-04, 0.9547E-02, 0.1509E-01, 0.1974E-01/) - xcw(:, 27) = (/& - 0.1000E-04, 0.9547E-02, 0.1509E-01, 0.1974E-01,& - 0.2397E-01, 0.2779E-01, 0.3136E-01, 0.3482E-01,& - 0.3804E-01, 0.4120E-01, 0.4418E-01, 0.4716E-01,& - 0.4996E-01, 0.5276E-01, 0.5544E-01, 0.5812E-01,& - 0.6069E-01, 0.6325E-01, 0.6575E-01, 0.6826E-01,& - 0.7064E-01, 0.7303E-01, 0.7541E-01, 0.7773E-01,& - 0.8000E-01, 0.8226E-01, 0.8453E-01, 0.8673E-01,& - 0.8894E-01, 0.9109E-01, 0.9323E-01, 0.9538E-01,& - 0.9752E-01, 0.9961E-01, 0.1017E+00, 0.1037E+00,& - 0.1057E+00, 0.1078E+00, 0.1098E+00, 0.1118E+00,& - 0.1138E+00, 0.1158E+00, 0.1177E+00, 0.1197E+00,& - 0.1216E+00, 0.1236E+00, 0.1255E+00, 0.1274E+00,& - 0.1292E+00, 0.1311E+00, 0.1330E+00, 0.1349E+00,& - 0.1367E+00, 0.1386E+00, 0.1404E+00, 0.1422E+00,& - 0.1441E+00, 0.1459E+00, 0.1477E+00, 0.1495E+00,& - 0.1513E+00, 0.1531E+00, 0.1548E+00, 0.1566E+00,& - 0.1584E+00, 0.1601E+00, 0.1619E+00, 0.1636E+00,& - 0.1654E+00, 0.1671E+00, 0.1688E+00, 0.1705E+00,& - 0.1723E+00, 0.1740E+00, 0.1757E+00, 0.1774E+00,& - 0.1791E+00, 0.1808E+00, 0.1825E+00, 0.1841E+00,& - 0.1858E+00, 0.1875E+00, 0.1891E+00, 0.1908E+00,& - 0.1925E+00, 0.1941E+00, 0.1958E+00, 0.1974E+00,& - 0.1991E+00, 0.2007E+00, 0.2024E+00, 0.2040E+00,& - 0.2056E+00, 0.2073E+00, 0.2089E+00, 0.2105E+00,& - 0.2121E+00, 0.2137E+00, 0.2153E+00, 0.2169E+00,& - 0.2185E+00, 0.2201E+00, 0.2217E+00, 0.2233E+00,& - 0.2250E+00, 0.2265E+00, 0.2281E+00, 0.2297E+00,& - 0.2313E+00, 0.2329E+00, 0.2344E+00, 0.2360E+00,& - 0.2376E+00, 0.2391E+00, 0.2407E+00, 0.2423E+00,& - 0.2439E+00, 0.2454E+00, 0.2470E+00, 0.2485E+00,& - 0.2501E+00, 0.2517E+00, 0.2532E+00, 0.2548E+00,& - 0.2563E+00, 0.2578E+00, 0.2593E+00, 0.2609E+00,& - 0.2624E+00, 0.2640E+00, 0.2655E+00, 0.2670E+00,& - 0.2686E+00, 0.2701E+00, 0.2716E+00, 0.2732E+00,& - 0.2747E+00, 0.2762E+00, 0.2778E+00, 0.2793E+00,& - 0.2808E+00, 0.2823E+00, 0.2838E+00, 0.2853E+00,& - 0.2869E+00, 0.2884E+00, 0.2899E+00, 0.2914E+00,& - 0.2929E+00, 0.2945E+00, 0.2959E+00, 0.2974E+00,& - 0.2989E+00, 0.3005E+00, 0.3020E+00, 0.3035E+00,& - 0.3049E+00, 0.3064E+00, 0.3080E+00, 0.3095E+00,& - 0.3110E+00, 0.3125E+00, 0.3139E+00, 0.3154E+00,& - 0.3169E+00, 0.3184E+00, 0.3199E+00, 0.3214E+00,& - 0.3229E+00, 0.3244E+00, 0.3259E+00, 0.3274E+00,& - 0.3288E+00, 0.3303E+00, 0.3318E+00, 0.3333E+00,& - 0.3348E+00, 0.3363E+00, 0.3377E+00, 0.3392E+00,& - 0.3407E+00, 0.3422E+00, 0.3437E+00, 0.3452E+00,& - 0.3467E+00, 0.3481E+00, 0.3496E+00, 0.3511E+00,& - 0.3526E+00, 0.3540E+00, 0.3555E+00, 0.3570E+00,& - 0.3585E+00, 0.3600E+00, 0.3614E+00, 0.3629E+00,& - 0.3644E+00, 0.3658E+00, 0.3673E+00, 0.3688E+00,& - 0.3703E+00, 0.3717E+00, 0.3732E+00, 0.3747E+00,& - 0.3761E+00, 0.3776E+00, 0.3791E+00, 0.3805E+00,& - 0.3820E+00, 0.3835E+00, 0.3849E+00, 0.3864E+00,& - 0.3879E+00, 0.3893E+00, 0.3908E+00, 0.3923E+00,& - 0.3938E+00, 0.3952E+00, 0.3967E+00, 0.3982E+00,& - 0.3997E+00, 0.4011E+00, 0.4026E+00, 0.4041E+00,& - 0.4055E+00, 0.4070E+00, 0.4085E+00, 0.4099E+00,& - 0.4114E+00, 0.4128E+00, 0.4143E+00, 0.4158E+00,& - 0.4172E+00, 0.4187E+00, 0.4202E+00, 0.4217E+00,& - 0.4231E+00, 0.4246E+00, 0.4261E+00, 0.4276E+00,& - 0.4290E+00, 0.4305E+00, 0.4320E+00, 0.4334E+00,& - 0.4349E+00, 0.4364E+00, 0.4378E+00, 0.4393E+00,& - 0.4408E+00, 0.4422E+00, 0.4437E+00, 0.4452E+00,& - 0.4466E+00, 0.4481E+00, 0.4496E+00, 0.4510E+00,& - 0.4525E+00, 0.4540E+00, 0.4554E+00, 0.4569E+00,& - 0.4584E+00, 0.4599E+00, 0.4613E+00, 0.4628E+00,& - 0.4643E+00, 0.4658E+00, 0.4673E+00, 0.4687E+00,& - 0.4702E+00, 0.4717E+00, 0.4732E+00, 0.4746E+00,& - 0.4761E+00, 0.4776E+00, 0.4791E+00, 0.4805E+00,& - 0.4820E+00, 0.4835E+00, 0.4850E+00, 0.4864E+00,& - 0.4879E+00, 0.4894E+00, 0.4909E+00, 0.4924E+00,& - 0.4939E+00, 0.4954E+00, 0.4968E+00, 0.4983E+00,& - 0.4998E+00, 0.5013E+00, 0.5028E+00, 0.5043E+00,& - 0.5058E+00, 0.5072E+00, 0.5087E+00, 0.5102E+00,& - 0.5117E+00, 0.5132E+00, 0.5147E+00, 0.5162E+00,& - 0.5177E+00, 0.5192E+00, 0.5207E+00, 0.5221E+00,& - 0.5236E+00, 0.5251E+00, 0.5266E+00, 0.5281E+00,& - 0.5296E+00, 0.5311E+00, 0.5326E+00, 0.5341E+00,& - 0.5356E+00, 0.5371E+00, 0.5386E+00, 0.5401E+00,& - 0.5416E+00, 0.5431E+00, 0.5446E+00, 0.5461E+00,& - 0.5476E+00, 0.5491E+00, 0.5506E+00, 0.5521E+00,& - 0.5537E+00, 0.5552E+00, 0.5567E+00, 0.5582E+00,& - 0.5597E+00, 0.5612E+00, 0.5627E+00, 0.5642E+00,& - 0.5658E+00, 0.5673E+00, 0.5688E+00, 0.5703E+00,& - 0.5718E+00, 0.5733E+00, 0.5748E+00, 0.5764E+00,& - 0.5779E+00, 0.5794E+00, 0.5809E+00, 0.5825E+00,& - 0.5840E+00, 0.5855E+00, 0.5871E+00, 0.5885E+00,& - 0.5901E+00, 0.5916E+00, 0.5931E+00, 0.5947E+00,& - 0.5962E+00, 0.5978E+00, 0.5993E+00, 0.6008E+00,& - 0.6024E+00, 0.6039E+00, 0.6055E+00, 0.6070E+00,& - 0.6085E+00, 0.6101E+00, 0.6116E+00, 0.6132E+00,& - 0.6147E+00, 0.6163E+00, 0.6178E+00, 0.6194E+00,& - 0.6209E+00, 0.6225E+00, 0.6240E+00, 0.6256E+00,& - 0.6271E+00, 0.6287E+00, 0.6302E+00, 0.6318E+00,& - 0.6334E+00, 0.6349E+00, 0.6365E+00, 0.6380E+00,& - 0.6396E+00, 0.6412E+00, 0.6427E+00, 0.6443E+00,& - 0.6459E+00, 0.6474E+00, 0.6490E+00, 0.6506E+00,& - 0.6521E+00, 0.6537E+00, 0.6553E+00, 0.6569E+00,& - 0.6585E+00, 0.6600E+00, 0.6616E+00, 0.6632E+00,& - 0.6648E+00, 0.6664E+00, 0.6679E+00, 0.6695E+00,& - 0.6711E+00, 0.6727E+00, 0.6743E+00, 0.6759E+00,& - 0.6775E+00, 0.6791E+00, 0.6807E+00, 0.6823E+00,& - 0.6839E+00, 0.6855E+00, 0.6871E+00, 0.6887E+00,& - 0.6903E+00, 0.6919E+00, 0.6935E+00, 0.6951E+00,& - 0.6967E+00, 0.6983E+00, 0.6999E+00, 0.7016E+00,& - 0.7032E+00, 0.7048E+00, 0.7064E+00, 0.7081E+00,& - 0.7097E+00, 0.7113E+00, 0.7129E+00, 0.7145E+00,& - 0.7162E+00, 0.7178E+00, 0.7195E+00, 0.7211E+00,& - 0.7227E+00, 0.7244E+00, 0.7260E+00, 0.7277E+00,& - 0.7293E+00, 0.7309E+00, 0.7326E+00, 0.7342E+00,& - 0.7359E+00, 0.7376E+00, 0.7392E+00, 0.7408E+00,& - 0.7425E+00, 0.7442E+00, 0.7458E+00, 0.7475E+00,& - 0.7492E+00, 0.7508E+00, 0.7525E+00, 0.7541E+00,& - 0.7558E+00, 0.7575E+00, 0.7592E+00, 0.7609E+00,& - 0.7625E+00, 0.7642E+00, 0.7659E+00, 0.7675E+00,& - 0.7693E+00, 0.7709E+00, 0.7726E+00, 0.7743E+00,& - 0.7760E+00, 0.7777E+00, 0.7794E+00, 0.7811E+00,& - 0.7828E+00, 0.7845E+00, 0.7862E+00, 0.7879E+00,& - 0.7896E+00, 0.7913E+00, 0.7930E+00, 0.7947E+00,& - 0.7964E+00, 0.7982E+00, 0.7999E+00, 0.8016E+00,& - 0.8034E+00, 0.8051E+00, 0.8068E+00, 0.8085E+00,& - 0.8103E+00, 0.8120E+00, 0.8137E+00, 0.8155E+00,& - 0.8172E+00, 0.8190E+00, 0.8207E+00, 0.8224E+00,& - 0.8242E+00, 0.8260E+00, 0.8277E+00, 0.8295E+00,& - 0.8312E+00, 0.8330E+00, 0.8347E+00, 0.8365E+00,& - 0.8383E+00, 0.8400E+00, 0.8418E+00, 0.8436E+00,& - 0.8453E+00, 0.8471E+00, 0.8489E+00, 0.8507E+00,& - 0.8525E+00, 0.8543E+00, 0.8561E+00, 0.8578E+00,& - 0.8596E+00, 0.8614E+00, 0.8633E+00, 0.8651E+00,& - 0.8668E+00, 0.8686E+00, 0.8705E+00, 0.8723E+00,& - 0.8741E+00, 0.8759E+00, 0.8777E+00, 0.8795E+00,& - 0.8814E+00, 0.8832E+00, 0.8850E+00, 0.8869E+00,& - 0.8887E+00, 0.8905E+00, 0.8923E+00, 0.8942E+00,& - 0.8960E+00, 0.8979E+00, 0.8997E+00, 0.9016E+00,& - 0.9034E+00, 0.9053E+00, 0.9072E+00, 0.9090E+00,& - 0.9109E+00, 0.9127E+00, 0.9146E+00, 0.9165E+00,& - 0.9184E+00, 0.9202E+00, 0.9222E+00, 0.9241E+00,& - 0.9259E+00, 0.9278E+00, 0.9297E+00, 0.9316E+00,& - 0.9335E+00, 0.9354E+00, 0.9373E+00, 0.9392E+00,& - 0.9411E+00, 0.9430E+00, 0.9450E+00, 0.9469E+00,& - 0.9488E+00, 0.9507E+00, 0.9527E+00, 0.9546E+00,& - 0.9565E+00, 0.9585E+00, 0.9604E+00, 0.9623E+00,& - 0.9643E+00, 0.9663E+00, 0.9682E+00, 0.9701E+00,& - 0.9721E+00, 0.9741E+00, 0.9760E+00, 0.9780E+00,& - 0.9800E+00, 0.9820E+00, 0.9840E+00, 0.9859E+00,& - 0.9879E+00, 0.9899E+00, 0.9919E+00, 0.9939E+00,& - 0.9959E+00, 0.9979E+00, 0.9999E+00, 0.1002E+01,& - 0.1004E+01, 0.1006E+01, 0.1008E+01, 0.1010E+01,& - 0.1012E+01, 0.1014E+01, 0.1016E+01, 0.1018E+01,& - 0.1020E+01, 0.1022E+01, 0.1024E+01, 0.1026E+01,& - 0.1028E+01, 0.1030E+01, 0.1032E+01, 0.1035E+01,& - 0.1037E+01, 0.1039E+01, 0.1041E+01, 0.1043E+01,& - 0.1045E+01, 0.1047E+01, 0.1049E+01, 0.1051E+01,& - 0.1053E+01, 0.1055E+01, 0.1058E+01, 0.1060E+01,& - 0.1062E+01, 0.1064E+01, 0.1066E+01, 0.1068E+01,& - 0.1070E+01, 0.1072E+01, 0.1075E+01, 0.1077E+01,& - 0.1079E+01, 0.1081E+01, 0.1083E+01, 0.1085E+01,& - 0.1088E+01, 0.1090E+01, 0.1092E+01, 0.1094E+01,& - 0.1096E+01, 0.1098E+01, 0.1101E+01, 0.1103E+01,& - 0.1105E+01, 0.1107E+01, 0.1109E+01, 0.1112E+01,& - 0.1114E+01, 0.1116E+01, 0.1118E+01, 0.1121E+01,& - 0.1123E+01, 0.1125E+01, 0.1127E+01, 0.1130E+01,& - 0.1132E+01, 0.1134E+01, 0.1136E+01, 0.1139E+01,& - 0.1141E+01, 0.1143E+01, 0.1145E+01, 0.1148E+01,& - 0.1150E+01, 0.1152E+01, 0.1155E+01, 0.1157E+01,& - 0.1159E+01, 0.1162E+01, 0.1164E+01, 0.1166E+01,& - 0.1169E+01, 0.1171E+01, 0.1173E+01, 0.1176E+01,& - 0.1178E+01, 0.1180E+01, 0.1183E+01, 0.1185E+01,& - 0.1188E+01, 0.1190E+01, 0.1192E+01, 0.1195E+01,& - 0.1197E+01, 0.1200E+01, 0.1202E+01, 0.1204E+01,& - 0.1207E+01, 0.1209E+01, 0.1212E+01, 0.1214E+01,& - 0.1217E+01, 0.1219E+01, 0.1221E+01, 0.1224E+01,& - 0.1226E+01, 0.1229E+01, 0.1231E+01, 0.1234E+01,& - 0.1236E+01, 0.1239E+01, 0.1241E+01, 0.1244E+01,& - 0.1246E+01, 0.1249E+01, 0.1252E+01, 0.1254E+01,& - 0.1257E+01, 0.1259E+01, 0.1262E+01, 0.1264E+01,& - 0.1267E+01, 0.1269E+01, 0.1272E+01, 0.1275E+01,& - 0.1277E+01, 0.1280E+01, 0.1283E+01, 0.1285E+01,& - 0.1288E+01, 0.1290E+01, 0.1293E+01, 0.1296E+01,& - 0.1298E+01, 0.1301E+01, 0.1304E+01, 0.1306E+01,& - 0.1309E+01, 0.1312E+01, 0.1315E+01, 0.1317E+01,& - 0.1320E+01, 0.1323E+01, 0.1325E+01, 0.1328E+01,& - 0.1331E+01, 0.1334E+01, 0.1336E+01, 0.1339E+01,& - 0.1342E+01, 0.1345E+01, 0.1348E+01, 0.1350E+01,& - 0.1353E+01, 0.1356E+01, 0.1359E+01, 0.1362E+01,& - 0.1365E+01, 0.1367E+01, 0.1370E+01, 0.1373E+01,& - 0.1376E+01, 0.1379E+01, 0.1382E+01, 0.1385E+01,& - 0.1388E+01, 0.1391E+01, 0.1394E+01, 0.1397E+01,& - 0.1400E+01, 0.1403E+01, 0.1405E+01, 0.1409E+01,& - 0.1412E+01, 0.1415E+01, 0.1418E+01, 0.1421E+01,& - 0.1424E+01, 0.1427E+01, 0.1430E+01, 0.1433E+01,& - 0.1436E+01, 0.1439E+01, 0.1442E+01, 0.1445E+01,& - 0.1448E+01, 0.1451E+01, 0.1455E+01, 0.1458E+01,& - 0.1461E+01, 0.1464E+01, 0.1467E+01, 0.1471E+01,& - 0.1474E+01, 0.1477E+01, 0.1480E+01, 0.1483E+01,& - 0.1487E+01, 0.1490E+01, 0.1493E+01, 0.1497E+01,& - 0.1500E+01, 0.1503E+01, 0.1507E+01, 0.1510E+01,& - 0.1513E+01, 0.1517E+01, 0.1520E+01, 0.1523E+01,& - 0.1527E+01, 0.1530E+01, 0.1534E+01, 0.1537E+01,& - 0.1541E+01, 0.1544E+01, 0.1548E+01, 0.1551E+01,& - 0.1555E+01, 0.1558E+01, 0.1562E+01, 0.1565E+01,& - 0.1569E+01, 0.1572E+01, 0.1576E+01, 0.1580E+01,& - 0.1583E+01, 0.1587E+01, 0.1591E+01, 0.1594E+01,& - 0.1598E+01, 0.1602E+01, 0.1606E+01, 0.1609E+01,& - 0.1613E+01, 0.1617E+01, 0.1621E+01, 0.1625E+01,& - 0.1628E+01, 0.1632E+01, 0.1636E+01, 0.1640E+01,& - 0.1644E+01, 0.1648E+01, 0.1652E+01, 0.1656E+01,& - 0.1660E+01, 0.1664E+01, 0.1668E+01, 0.1672E+01,& - 0.1676E+01, 0.1680E+01, 0.1684E+01, 0.1688E+01,& - 0.1693E+01, 0.1697E+01, 0.1701E+01, 0.1705E+01,& - 0.1709E+01, 0.1714E+01, 0.1718E+01, 0.1722E+01,& - 0.1727E+01, 0.1731E+01, 0.1735E+01, 0.1740E+01,& - 0.1744E+01, 0.1749E+01, 0.1753E+01, 0.1758E+01,& - 0.1762E+01, 0.1767E+01, 0.1771E+01, 0.1776E+01,& - 0.1780E+01, 0.1785E+01, 0.1790E+01, 0.1794E+01,& - 0.1799E+01, 0.1804E+01, 0.1809E+01, 0.1814E+01,& - 0.1818E+01, 0.1823E+01, 0.1828E+01, 0.1833E+01,& - 0.1838E+01, 0.1843E+01, 0.1848E+01, 0.1853E+01,& - 0.1858E+01, 0.1864E+01, 0.1869E+01, 0.1874E+01,& - 0.1879E+01, 0.1885E+01, 0.1890E+01, 0.1895E+01,& - 0.1901E+01, 0.1906E+01, 0.1912E+01, 0.1917E+01,& - 0.1923E+01, 0.1928E+01, 0.1934E+01, 0.1940E+01,& - 0.1945E+01, 0.1951E+01, 0.1957E+01, 0.1963E+01,& - 0.1969E+01, 0.1975E+01, 0.1981E+01, 0.1987E+01,& - 0.1993E+01, 0.1999E+01, 0.2005E+01, 0.2011E+01,& - 0.2018E+01, 0.2024E+01, 0.2030E+01, 0.2037E+01,& - 0.2043E+01, 0.2050E+01, 0.2057E+01, 0.2063E+01,& - 0.2070E+01, 0.2077E+01, 0.2084E+01, 0.2091E+01,& - 0.2098E+01, 0.2105E+01, 0.2112E+01, 0.2119E+01,& - 0.2127E+01, 0.2134E+01, 0.2142E+01, 0.2149E+01,& - 0.2157E+01, 0.2164E+01, 0.2172E+01, 0.2180E+01,& - 0.2188E+01, 0.2196E+01, 0.2204E+01, 0.2213E+01,& - 0.2221E+01, 0.2230E+01, 0.2238E+01, 0.2247E+01,& - 0.2256E+01, 0.2264E+01, 0.2274E+01, 0.2283E+01,& - 0.2292E+01, 0.2301E+01, 0.2311E+01, 0.2320E+01,& - 0.2330E+01, 0.2340E+01, 0.2350E+01, 0.2361E+01,& - 0.2371E+01, 0.2382E+01, 0.2392E+01, 0.2403E+01,& - 0.2414E+01, 0.2426E+01, 0.2437E+01, 0.2449E+01,& - 0.2461E+01, 0.2473E+01, 0.2485E+01, 0.2498E+01,& - 0.2511E+01, 0.2524E+01, 0.2537E+01, 0.2551E+01,& - 0.2565E+01, 0.2579E+01, 0.2594E+01, 0.2609E+01,& - 0.2624E+01, 0.2640E+01, 0.2656E+01, 0.2672E+01,& - 0.2689E+01, 0.2707E+01, 0.2725E+01, 0.2744E+01,& - 0.2763E+01, 0.2783E+01, 0.2803E+01, 0.2824E+01,& - 0.2846E+01, 0.2869E+01, 0.2893E+01, 0.2918E+01,& - 0.2944E+01, 0.2971E+01, 0.2999E+01, 0.3029E+01,& - 0.3061E+01, 0.3095E+01, 0.3131E+01, 0.3169E+01,& - 0.3210E+01, 0.3255E+01, 0.3304E+01, 0.3358E+01,& - 0.3418E+01, 0.3487E+01, 0.3566E+01, 0.3662E+01,& - 0.1000E-04, 0.7337E-02, 0.1192E-01, 0.1589E-01/) - xcw(:, 28) = (/& - 0.1000E-04, 0.7337E-02, 0.1192E-01, 0.1589E-01,& - 0.1949E-01, 0.2285E-01, 0.2596E-01, 0.2895E-01,& - 0.3188E-01, 0.3463E-01, 0.3738E-01, 0.4000E-01,& - 0.4257E-01, 0.4507E-01, 0.4751E-01, 0.4996E-01,& - 0.5228E-01, 0.5460E-01, 0.5692E-01, 0.5918E-01,& - 0.6144E-01, 0.6363E-01, 0.6577E-01, 0.6791E-01,& - 0.7004E-01, 0.7218E-01, 0.7426E-01, 0.7627E-01,& - 0.7835E-01, 0.8036E-01, 0.8238E-01, 0.8439E-01,& - 0.8635E-01, 0.8830E-01, 0.9026E-01, 0.9221E-01,& - 0.9410E-01, 0.9599E-01, 0.9795E-01, 0.9978E-01,& - 0.1017E+00, 0.1036E+00, 0.1054E+00, 0.1072E+00,& - 0.1091E+00, 0.1109E+00, 0.1127E+00, 0.1145E+00,& - 0.1163E+00, 0.1181E+00, 0.1199E+00, 0.1216E+00,& - 0.1234E+00, 0.1252E+00, 0.1270E+00, 0.1287E+00,& - 0.1304E+00, 0.1321E+00, 0.1339E+00, 0.1356E+00,& - 0.1373E+00, 0.1390E+00, 0.1408E+00, 0.1425E+00,& - 0.1441E+00, 0.1458E+00, 0.1475E+00, 0.1492E+00,& - 0.1508E+00, 0.1525E+00, 0.1542E+00, 0.1558E+00,& - 0.1575E+00, 0.1591E+00, 0.1608E+00, 0.1624E+00,& - 0.1641E+00, 0.1657E+00, 0.1673E+00, 0.1690E+00,& - 0.1705E+00, 0.1722E+00, 0.1738E+00, 0.1754E+00,& - 0.1770E+00, 0.1786E+00, 0.1803E+00, 0.1818E+00,& - 0.1834E+00, 0.1850E+00, 0.1866E+00, 0.1882E+00,& - 0.1898E+00, 0.1914E+00, 0.1930E+00, 0.1945E+00,& - 0.1961E+00, 0.1977E+00, 0.1992E+00, 0.2008E+00,& - 0.2024E+00, 0.2039E+00, 0.2055E+00, 0.2071E+00,& - 0.2086E+00, 0.2102E+00, 0.2117E+00, 0.2132E+00,& - 0.2148E+00, 0.2163E+00, 0.2179E+00, 0.2194E+00,& - 0.2210E+00, 0.2225E+00, 0.2240E+00, 0.2256E+00,& - 0.2271E+00, 0.2286E+00, 0.2301E+00, 0.2317E+00,& - 0.2332E+00, 0.2347E+00, 0.2362E+00, 0.2378E+00,& - 0.2393E+00, 0.2408E+00, 0.2424E+00, 0.2438E+00,& - 0.2453E+00, 0.2469E+00, 0.2484E+00, 0.2499E+00,& - 0.2514E+00, 0.2529E+00, 0.2544E+00, 0.2559E+00,& - 0.2574E+00, 0.2589E+00, 0.2604E+00, 0.2619E+00,& - 0.2634E+00, 0.2649E+00, 0.2664E+00, 0.2679E+00,& - 0.2694E+00, 0.2709E+00, 0.2724E+00, 0.2739E+00,& - 0.2754E+00, 0.2769E+00, 0.2784E+00, 0.2798E+00,& - 0.2813E+00, 0.2828E+00, 0.2843E+00, 0.2858E+00,& - 0.2873E+00, 0.2888E+00, 0.2902E+00, 0.2917E+00,& - 0.2932E+00, 0.2947E+00, 0.2961E+00, 0.2977E+00,& - 0.2991E+00, 0.3006E+00, 0.3021E+00, 0.3035E+00,& - 0.3051E+00, 0.3065E+00, 0.3080E+00, 0.3095E+00,& - 0.3109E+00, 0.3124E+00, 0.3139E+00, 0.3154E+00,& - 0.3168E+00, 0.3183E+00, 0.3198E+00, 0.3212E+00,& - 0.3227E+00, 0.3242E+00, 0.3257E+00, 0.3272E+00,& - 0.3286E+00, 0.3301E+00, 0.3316E+00, 0.3330E+00,& - 0.3345E+00, 0.3360E+00, 0.3374E+00, 0.3389E+00,& - 0.3404E+00, 0.3418E+00, 0.3433E+00, 0.3448E+00,& - 0.3463E+00, 0.3477E+00, 0.3492E+00, 0.3507E+00,& - 0.3521E+00, 0.3536E+00, 0.3551E+00, 0.3565E+00,& - 0.3580E+00, 0.3595E+00, 0.3609E+00, 0.3624E+00,& - 0.3639E+00, 0.3653E+00, 0.3668E+00, 0.3683E+00,& - 0.3697E+00, 0.3712E+00, 0.3727E+00, 0.3741E+00,& - 0.3756E+00, 0.3771E+00, 0.3786E+00, 0.3800E+00,& - 0.3815E+00, 0.3830E+00, 0.3844E+00, 0.3859E+00,& - 0.3874E+00, 0.3888E+00, 0.3903E+00, 0.3918E+00,& - 0.3932E+00, 0.3947E+00, 0.3962E+00, 0.3976E+00,& - 0.3991E+00, 0.4006E+00, 0.4021E+00, 0.4035E+00,& - 0.4050E+00, 0.4065E+00, 0.4079E+00, 0.4094E+00,& - 0.4109E+00, 0.4123E+00, 0.4139E+00, 0.4153E+00,& - 0.4168E+00, 0.4183E+00, 0.4197E+00, 0.4212E+00,& - 0.4227E+00, 0.4242E+00, 0.4257E+00, 0.4271E+00,& - 0.4286E+00, 0.4300E+00, 0.4316E+00, 0.4330E+00,& - 0.4345E+00, 0.4360E+00, 0.4375E+00, 0.4390E+00,& - 0.4404E+00, 0.4419E+00, 0.4434E+00, 0.4449E+00,& - 0.4464E+00, 0.4478E+00, 0.4493E+00, 0.4508E+00,& - 0.4523E+00, 0.4538E+00, 0.4553E+00, 0.4567E+00,& - 0.4583E+00, 0.4597E+00, 0.4612E+00, 0.4627E+00,& - 0.4642E+00, 0.4657E+00, 0.4672E+00, 0.4686E+00,& - 0.4702E+00, 0.4716E+00, 0.4732E+00, 0.4746E+00,& - 0.4761E+00, 0.4776E+00, 0.4791E+00, 0.4806E+00,& - 0.4821E+00, 0.4836E+00, 0.4851E+00, 0.4866E+00,& - 0.4881E+00, 0.4896E+00, 0.4911E+00, 0.4926E+00,& - 0.4941E+00, 0.4956E+00, 0.4972E+00, 0.4986E+00,& - 0.5001E+00, 0.5017E+00, 0.5031E+00, 0.5047E+00,& - 0.5062E+00, 0.5077E+00, 0.5092E+00, 0.5107E+00,& - 0.5122E+00, 0.5138E+00, 0.5152E+00, 0.5168E+00,& - 0.5183E+00, 0.5198E+00, 0.5213E+00, 0.5229E+00,& - 0.5243E+00, 0.5258E+00, 0.5274E+00, 0.5289E+00,& - 0.5304E+00, 0.5320E+00, 0.5335E+00, 0.5350E+00,& - 0.5365E+00, 0.5381E+00, 0.5396E+00, 0.5411E+00,& - 0.5426E+00, 0.5442E+00, 0.5457E+00, 0.5472E+00,& - 0.5488E+00, 0.5503E+00, 0.5519E+00, 0.5534E+00,& - 0.5549E+00, 0.5564E+00, 0.5580E+00, 0.5596E+00,& - 0.5611E+00, 0.5627E+00, 0.5642E+00, 0.5657E+00,& - 0.5672E+00, 0.5688E+00, 0.5704E+00, 0.5719E+00,& - 0.5735E+00, 0.5750E+00, 0.5766E+00, 0.5781E+00,& - 0.5797E+00, 0.5812E+00, 0.5828E+00, 0.5843E+00,& - 0.5859E+00, 0.5875E+00, 0.5890E+00, 0.5906E+00,& - 0.5922E+00, 0.5937E+00, 0.5953E+00, 0.5969E+00,& - 0.5984E+00, 0.6000E+00, 0.6016E+00, 0.6032E+00,& - 0.6047E+00, 0.6063E+00, 0.6079E+00, 0.6095E+00,& - 0.6111E+00, 0.6127E+00, 0.6142E+00, 0.6158E+00,& - 0.6174E+00, 0.6190E+00, 0.6206E+00, 0.6221E+00,& - 0.6237E+00, 0.6254E+00, 0.6270E+00, 0.6286E+00,& - 0.6301E+00, 0.6317E+00, 0.6333E+00, 0.6349E+00,& - 0.6365E+00, 0.6381E+00, 0.6397E+00, 0.6414E+00,& - 0.6430E+00, 0.6445E+00, 0.6462E+00, 0.6478E+00,& - 0.6494E+00, 0.6510E+00, 0.6526E+00, 0.6543E+00,& - 0.6558E+00, 0.6575E+00, 0.6591E+00, 0.6607E+00,& - 0.6624E+00, 0.6640E+00, 0.6656E+00, 0.6673E+00,& - 0.6688E+00, 0.6705E+00, 0.6721E+00, 0.6738E+00,& - 0.6754E+00, 0.6770E+00, 0.6787E+00, 0.6803E+00,& - 0.6820E+00, 0.6836E+00, 0.6853E+00, 0.6869E+00,& - 0.6886E+00, 0.6902E+00, 0.6919E+00, 0.6935E+00,& - 0.6952E+00, 0.6969E+00, 0.6985E+00, 0.7002E+00,& - 0.7018E+00, 0.7035E+00, 0.7052E+00, 0.7068E+00,& - 0.7085E+00, 0.7102E+00, 0.7119E+00, 0.7135E+00,& - 0.7153E+00, 0.7169E+00, 0.7186E+00, 0.7203E+00,& - 0.7220E+00, 0.7236E+00, 0.7253E+00, 0.7270E+00,& - 0.7287E+00, 0.7304E+00, 0.7321E+00, 0.7338E+00,& - 0.7355E+00, 0.7372E+00, 0.7389E+00, 0.7407E+00,& - 0.7424E+00, 0.7441E+00, 0.7458E+00, 0.7475E+00,& - 0.7492E+00, 0.7509E+00, 0.7526E+00, 0.7543E+00,& - 0.7561E+00, 0.7578E+00, 0.7595E+00, 0.7612E+00,& - 0.7630E+00, 0.7647E+00, 0.7665E+00, 0.7682E+00,& - 0.7700E+00, 0.7717E+00, 0.7734E+00, 0.7752E+00,& - 0.7769E+00, 0.7787E+00, 0.7804E+00, 0.7822E+00,& - 0.7839E+00, 0.7857E+00, 0.7875E+00, 0.7892E+00,& - 0.7910E+00, 0.7927E+00, 0.7945E+00, 0.7963E+00,& - 0.7981E+00, 0.7999E+00, 0.8017E+00, 0.8034E+00,& - 0.8052E+00, 0.8070E+00, 0.8088E+00, 0.8106E+00,& - 0.8123E+00, 0.8142E+00, 0.8159E+00, 0.8178E+00,& - 0.8195E+00, 0.8214E+00, 0.8231E+00, 0.8250E+00,& - 0.8268E+00, 0.8286E+00, 0.8304E+00, 0.8322E+00,& - 0.8341E+00, 0.8359E+00, 0.8377E+00, 0.8396E+00,& - 0.8414E+00, 0.8432E+00, 0.8451E+00, 0.8469E+00,& - 0.8487E+00, 0.8506E+00, 0.8524E+00, 0.8543E+00,& - 0.8561E+00, 0.8580E+00, 0.8598E+00, 0.8617E+00,& - 0.8636E+00, 0.8654E+00, 0.8673E+00, 0.8692E+00,& - 0.8710E+00, 0.8729E+00, 0.8748E+00, 0.8767E+00,& - 0.8786E+00, 0.8804E+00, 0.8823E+00, 0.8842E+00,& - 0.8861E+00, 0.8881E+00, 0.8899E+00, 0.8918E+00,& - 0.8937E+00, 0.8956E+00, 0.8976E+00, 0.8995E+00,& - 0.9014E+00, 0.9033E+00, 0.9053E+00, 0.9072E+00,& - 0.9091E+00, 0.9110E+00, 0.9130E+00, 0.9149E+00,& - 0.9169E+00, 0.9188E+00, 0.9207E+00, 0.9227E+00,& - 0.9246E+00, 0.9266E+00, 0.9286E+00, 0.9305E+00,& - 0.9325E+00, 0.9345E+00, 0.9365E+00, 0.9384E+00,& - 0.9404E+00, 0.9424E+00, 0.9443E+00, 0.9464E+00,& - 0.9484E+00, 0.9503E+00, 0.9523E+00, 0.9544E+00,& - 0.9564E+00, 0.9584E+00, 0.9604E+00, 0.9624E+00,& - 0.9644E+00, 0.9665E+00, 0.9685E+00, 0.9705E+00,& - 0.9725E+00, 0.9746E+00, 0.9766E+00, 0.9787E+00,& - 0.9807E+00, 0.9828E+00, 0.9848E+00, 0.9868E+00,& - 0.9889E+00, 0.9910E+00, 0.9931E+00, 0.9951E+00,& - 0.9972E+00, 0.9993E+00, 0.1001E+01, 0.1003E+01,& - 0.1006E+01, 0.1008E+01, 0.1010E+01, 0.1012E+01,& - 0.1014E+01, 0.1016E+01, 0.1018E+01, 0.1020E+01,& - 0.1022E+01, 0.1025E+01, 0.1027E+01, 0.1029E+01,& - 0.1031E+01, 0.1033E+01, 0.1035E+01, 0.1037E+01,& - 0.1040E+01, 0.1042E+01, 0.1044E+01, 0.1046E+01,& - 0.1048E+01, 0.1050E+01, 0.1053E+01, 0.1055E+01,& - 0.1057E+01, 0.1059E+01, 0.1061E+01, 0.1063E+01,& - 0.1066E+01, 0.1068E+01, 0.1070E+01, 0.1072E+01,& - 0.1075E+01, 0.1077E+01, 0.1079E+01, 0.1081E+01,& - 0.1084E+01, 0.1086E+01, 0.1088E+01, 0.1090E+01,& - 0.1092E+01, 0.1095E+01, 0.1097E+01, 0.1099E+01,& - 0.1102E+01, 0.1104E+01, 0.1106E+01, 0.1108E+01,& - 0.1111E+01, 0.1113E+01, 0.1115E+01, 0.1118E+01,& - 0.1120E+01, 0.1122E+01, 0.1125E+01, 0.1127E+01,& - 0.1129E+01, 0.1132E+01, 0.1134E+01, 0.1136E+01,& - 0.1139E+01, 0.1141E+01, 0.1143E+01, 0.1146E+01,& - 0.1148E+01, 0.1151E+01, 0.1153E+01, 0.1155E+01,& - 0.1158E+01, 0.1160E+01, 0.1163E+01, 0.1165E+01,& - 0.1167E+01, 0.1170E+01, 0.1172E+01, 0.1175E+01,& - 0.1177E+01, 0.1180E+01, 0.1182E+01, 0.1184E+01,& - 0.1187E+01, 0.1189E+01, 0.1192E+01, 0.1194E+01,& - 0.1197E+01, 0.1199E+01, 0.1202E+01, 0.1204E+01,& - 0.1207E+01, 0.1209E+01, 0.1212E+01, 0.1214E+01,& - 0.1217E+01, 0.1220E+01, 0.1222E+01, 0.1225E+01,& - 0.1227E+01, 0.1230E+01, 0.1232E+01, 0.1235E+01,& - 0.1238E+01, 0.1240E+01, 0.1243E+01, 0.1245E+01,& - 0.1248E+01, 0.1251E+01, 0.1253E+01, 0.1256E+01,& - 0.1258E+01, 0.1261E+01, 0.1264E+01, 0.1266E+01,& - 0.1269E+01, 0.1272E+01, 0.1274E+01, 0.1277E+01,& - 0.1280E+01, 0.1283E+01, 0.1285E+01, 0.1288E+01,& - 0.1291E+01, 0.1294E+01, 0.1296E+01, 0.1299E+01,& - 0.1302E+01, 0.1305E+01, 0.1307E+01, 0.1310E+01,& - 0.1313E+01, 0.1316E+01, 0.1319E+01, 0.1321E+01,& - 0.1324E+01, 0.1327E+01, 0.1330E+01, 0.1333E+01,& - 0.1336E+01, 0.1338E+01, 0.1341E+01, 0.1344E+01,& - 0.1347E+01, 0.1350E+01, 0.1353E+01, 0.1356E+01,& - 0.1359E+01, 0.1362E+01, 0.1365E+01, 0.1368E+01,& - 0.1371E+01, 0.1374E+01, 0.1377E+01, 0.1380E+01,& - 0.1383E+01, 0.1385E+01, 0.1389E+01, 0.1392E+01,& - 0.1395E+01, 0.1398E+01, 0.1401E+01, 0.1404E+01,& - 0.1407E+01, 0.1410E+01, 0.1413E+01, 0.1416E+01,& - 0.1419E+01, 0.1422E+01, 0.1426E+01, 0.1429E+01,& - 0.1432E+01, 0.1435E+01, 0.1438E+01, 0.1441E+01,& - 0.1445E+01, 0.1448E+01, 0.1451E+01, 0.1454E+01,& - 0.1458E+01, 0.1461E+01, 0.1464E+01, 0.1467E+01,& - 0.1471E+01, 0.1474E+01, 0.1477E+01, 0.1481E+01,& - 0.1484E+01, 0.1487E+01, 0.1491E+01, 0.1494E+01,& - 0.1497E+01, 0.1501E+01, 0.1504E+01, 0.1508E+01,& - 0.1511E+01, 0.1515E+01, 0.1518E+01, 0.1522E+01,& - 0.1525E+01, 0.1529E+01, 0.1532E+01, 0.1536E+01,& - 0.1539E+01, 0.1543E+01, 0.1546E+01, 0.1550E+01,& - 0.1554E+01, 0.1557E+01, 0.1561E+01, 0.1565E+01,& - 0.1568E+01, 0.1572E+01, 0.1576E+01, 0.1579E+01,& - 0.1583E+01, 0.1587E+01, 0.1591E+01, 0.1594E+01,& - 0.1598E+01, 0.1602E+01, 0.1606E+01, 0.1610E+01,& - 0.1613E+01, 0.1617E+01, 0.1621E+01, 0.1625E+01,& - 0.1629E+01, 0.1633E+01, 0.1637E+01, 0.1641E+01,& - 0.1645E+01, 0.1649E+01, 0.1653E+01, 0.1657E+01,& - 0.1661E+01, 0.1665E+01, 0.1669E+01, 0.1674E+01,& - 0.1678E+01, 0.1682E+01, 0.1686E+01, 0.1690E+01,& - 0.1695E+01, 0.1699E+01, 0.1703E+01, 0.1708E+01,& - 0.1712E+01, 0.1716E+01, 0.1721E+01, 0.1725E+01,& - 0.1729E+01, 0.1734E+01, 0.1738E+01, 0.1743E+01,& - 0.1747E+01, 0.1752E+01, 0.1756E+01, 0.1761E+01,& - 0.1766E+01, 0.1770E+01, 0.1775E+01, 0.1780E+01,& - 0.1784E+01, 0.1789E+01, 0.1794E+01, 0.1799E+01,& - 0.1804E+01, 0.1808E+01, 0.1813E+01, 0.1818E+01,& - 0.1823E+01, 0.1828E+01, 0.1833E+01, 0.1838E+01,& - 0.1843E+01, 0.1848E+01, 0.1853E+01, 0.1859E+01,& - 0.1864E+01, 0.1869E+01, 0.1874E+01, 0.1880E+01,& - 0.1885E+01, 0.1890E+01, 0.1896E+01, 0.1901E+01,& - 0.1907E+01, 0.1912E+01, 0.1918E+01, 0.1923E+01,& - 0.1929E+01, 0.1935E+01, 0.1940E+01, 0.1946E+01,& - 0.1952E+01, 0.1958E+01, 0.1964E+01, 0.1970E+01,& - 0.1976E+01, 0.1982E+01, 0.1988E+01, 0.1994E+01,& - 0.2000E+01, 0.2006E+01, 0.2013E+01, 0.2019E+01,& - 0.2025E+01, 0.2032E+01, 0.2038E+01, 0.2045E+01,& - 0.2051E+01, 0.2058E+01, 0.2065E+01, 0.2071E+01,& - 0.2078E+01, 0.2085E+01, 0.2092E+01, 0.2099E+01,& - 0.2106E+01, 0.2113E+01, 0.2121E+01, 0.2128E+01,& - 0.2135E+01, 0.2143E+01, 0.2150E+01, 0.2158E+01,& - 0.2165E+01, 0.2173E+01, 0.2181E+01, 0.2189E+01,& - 0.2197E+01, 0.2205E+01, 0.2213E+01, 0.2221E+01,& - 0.2230E+01, 0.2238E+01, 0.2247E+01, 0.2255E+01,& - 0.2264E+01, 0.2273E+01, 0.2282E+01, 0.2291E+01,& - 0.2300E+01, 0.2310E+01, 0.2319E+01, 0.2328E+01,& - 0.2338E+01, 0.2348E+01, 0.2358E+01, 0.2368E+01,& - 0.2378E+01, 0.2389E+01, 0.2399E+01, 0.2410E+01,& - 0.2421E+01, 0.2432E+01, 0.2443E+01, 0.2455E+01,& - 0.2466E+01, 0.2478E+01, 0.2490E+01, 0.2502E+01,& - 0.2515E+01, 0.2528E+01, 0.2541E+01, 0.2554E+01,& - 0.2567E+01, 0.2581E+01, 0.2595E+01, 0.2609E+01,& - 0.2624E+01, 0.2639E+01, 0.2654E+01, 0.2670E+01,& - 0.2686E+01, 0.2703E+01, 0.2719E+01, 0.2737E+01,& - 0.2755E+01, 0.2773E+01, 0.2792E+01, 0.2811E+01,& - 0.2831E+01, 0.2852E+01, 0.2874E+01, 0.2896E+01,& - 0.2919E+01, 0.2943E+01, 0.2968E+01, 0.2994E+01,& - 0.3021E+01, 0.3050E+01, 0.3079E+01, 0.3111E+01,& - 0.3144E+01, 0.3179E+01, 0.3217E+01, 0.3257E+01,& - 0.3300E+01, 0.3347E+01, 0.3399E+01, 0.3455E+01,& - 0.3518E+01, 0.3590E+01, 0.3673E+01, 0.3773E+01,& - 0.1000E-04, 0.5578E-02, 0.9394E-02, 0.1271E-01/) - xcw(:, 29) = (/& - 0.1000E-04, 0.5578E-02, 0.9394E-02, 0.1271E-01,& - 0.1578E-01, 0.1865E-01, 0.2134E-01, 0.2397E-01,& - 0.2654E-01, 0.2904E-01, 0.3142E-01, 0.3373E-01,& - 0.3605E-01, 0.3830E-01, 0.4055E-01, 0.4268E-01,& - 0.4487E-01, 0.4693E-01, 0.4906E-01, 0.5112E-01,& - 0.5312E-01, 0.5519E-01, 0.5713E-01, 0.5913E-01,& - 0.6107E-01, 0.6301E-01, 0.6495E-01, 0.6689E-01,& - 0.6876E-01, 0.7064E-01, 0.7252E-01, 0.7433E-01,& - 0.7621E-01, 0.7802E-01, 0.7984E-01, 0.8165E-01,& - 0.8347E-01, 0.8522E-01, 0.8703E-01, 0.8878E-01,& - 0.9054E-01, 0.9229E-01, 0.9404E-01, 0.9579E-01,& - 0.9748E-01, 0.9923E-01, 0.1009E+00, 0.1027E+00,& - 0.1044E+00, 0.1061E+00, 0.1077E+00, 0.1094E+00,& - 0.1111E+00, 0.1127E+00, 0.1144E+00, 0.1161E+00,& - 0.1177E+00, 0.1194E+00, 0.1211E+00, 0.1227E+00,& - 0.1243E+00, 0.1259E+00, 0.1276E+00, 0.1292E+00,& - 0.1308E+00, 0.1325E+00, 0.1340E+00, 0.1356E+00,& - 0.1373E+00, 0.1388E+00, 0.1405E+00, 0.1420E+00,& - 0.1436E+00, 0.1452E+00, 0.1468E+00, 0.1483E+00,& - 0.1499E+00, 0.1515E+00, 0.1531E+00, 0.1547E+00,& - 0.1562E+00, 0.1578E+00, 0.1594E+00, 0.1609E+00,& - 0.1624E+00, 0.1640E+00, 0.1655E+00, 0.1671E+00,& - 0.1686E+00, 0.1702E+00, 0.1717E+00, 0.1732E+00,& - 0.1748E+00, 0.1763E+00, 0.1778E+00, 0.1794E+00,& - 0.1809E+00, 0.1824E+00, 0.1839E+00, 0.1854E+00,& - 0.1870E+00, 0.1885E+00, 0.1900E+00, 0.1915E+00,& - 0.1931E+00, 0.1946E+00, 0.1961E+00, 0.1976E+00,& - 0.1991E+00, 0.2006E+00, 0.2021E+00, 0.2036E+00,& - 0.2051E+00, 0.2066E+00, 0.2081E+00, 0.2096E+00,& - 0.2111E+00, 0.2126E+00, 0.2141E+00, 0.2155E+00,& - 0.2170E+00, 0.2185E+00, 0.2200E+00, 0.2215E+00,& - 0.2230E+00, 0.2245E+00, 0.2260E+00, 0.2275E+00,& - 0.2289E+00, 0.2304E+00, 0.2319E+00, 0.2334E+00,& - 0.2349E+00, 0.2364E+00, 0.2378E+00, 0.2393E+00,& - 0.2407E+00, 0.2422E+00, 0.2437E+00, 0.2452E+00,& - 0.2467E+00, 0.2481E+00, 0.2496E+00, 0.2511E+00,& - 0.2526E+00, 0.2540E+00, 0.2555E+00, 0.2569E+00,& - 0.2584E+00, 0.2599E+00, 0.2614E+00, 0.2628E+00,& - 0.2643E+00, 0.2658E+00, 0.2672E+00, 0.2687E+00,& - 0.2701E+00, 0.2716E+00, 0.2731E+00, 0.2745E+00,& - 0.2760E+00, 0.2775E+00, 0.2790E+00, 0.2804E+00,& - 0.2818E+00, 0.2833E+00, 0.2848E+00, 0.2862E+00,& - 0.2877E+00, 0.2892E+00, 0.2906E+00, 0.2921E+00,& - 0.2935E+00, 0.2950E+00, 0.2965E+00, 0.2979E+00,& - 0.2994E+00, 0.3009E+00, 0.3023E+00, 0.3037E+00,& - 0.3052E+00, 0.3067E+00, 0.3081E+00, 0.3096E+00,& - 0.3111E+00, 0.3125E+00, 0.3140E+00, 0.3154E+00,& - 0.3169E+00, 0.3184E+00, 0.3198E+00, 0.3213E+00,& - 0.3228E+00, 0.3242E+00, 0.3256E+00, 0.3271E+00,& - 0.3286E+00, 0.3300E+00, 0.3315E+00, 0.3330E+00,& - 0.3344E+00, 0.3359E+00, 0.3373E+00, 0.3388E+00,& - 0.3403E+00, 0.3417E+00, 0.3432E+00, 0.3447E+00,& - 0.3461E+00, 0.3476E+00, 0.3490E+00, 0.3505E+00,& - 0.3520E+00, 0.3534E+00, 0.3549E+00, 0.3564E+00,& - 0.3578E+00, 0.3593E+00, 0.3607E+00, 0.3622E+00,& - 0.3637E+00, 0.3651E+00, 0.3666E+00, 0.3681E+00,& - 0.3696E+00, 0.3710E+00, 0.3725E+00, 0.3739E+00,& - 0.3754E+00, 0.3769E+00, 0.3784E+00, 0.3798E+00,& - 0.3813E+00, 0.3828E+00, 0.3843E+00, 0.3857E+00,& - 0.3872E+00, 0.3886E+00, 0.3901E+00, 0.3916E+00,& - 0.3931E+00, 0.3945E+00, 0.3960E+00, 0.3975E+00,& - 0.3990E+00, 0.4005E+00, 0.4019E+00, 0.4034E+00,& - 0.4049E+00, 0.4063E+00, 0.4078E+00, 0.4093E+00,& - 0.4108E+00, 0.4123E+00, 0.4138E+00, 0.4152E+00,& - 0.4167E+00, 0.4182E+00, 0.4197E+00, 0.4212E+00,& - 0.4227E+00, 0.4242E+00, 0.4256E+00, 0.4271E+00,& - 0.4286E+00, 0.4301E+00, 0.4316E+00, 0.4331E+00,& - 0.4346E+00, 0.4361E+00, 0.4376E+00, 0.4391E+00,& - 0.4406E+00, 0.4421E+00, 0.4436E+00, 0.4450E+00,& - 0.4465E+00, 0.4480E+00, 0.4495E+00, 0.4510E+00,& - 0.4525E+00, 0.4540E+00, 0.4555E+00, 0.4570E+00,& - 0.4585E+00, 0.4600E+00, 0.4615E+00, 0.4631E+00,& - 0.4646E+00, 0.4661E+00, 0.4676E+00, 0.4691E+00,& - 0.4706E+00, 0.4721E+00, 0.4736E+00, 0.4752E+00,& - 0.4767E+00, 0.4782E+00, 0.4797E+00, 0.4812E+00,& - 0.4827E+00, 0.4842E+00, 0.4857E+00, 0.4873E+00,& - 0.4888E+00, 0.4903E+00, 0.4919E+00, 0.4934E+00,& - 0.4949E+00, 0.4964E+00, 0.4979E+00, 0.4995E+00,& - 0.5010E+00, 0.5026E+00, 0.5041E+00, 0.5056E+00,& - 0.5071E+00, 0.5087E+00, 0.5102E+00, 0.5118E+00,& - 0.5133E+00, 0.5148E+00, 0.5164E+00, 0.5179E+00,& - 0.5195E+00, 0.5210E+00, 0.5225E+00, 0.5241E+00,& - 0.5256E+00, 0.5272E+00, 0.5287E+00, 0.5303E+00,& - 0.5318E+00, 0.5334E+00, 0.5350E+00, 0.5365E+00,& - 0.5380E+00, 0.5396E+00, 0.5412E+00, 0.5427E+00,& - 0.5443E+00, 0.5459E+00, 0.5474E+00, 0.5490E+00,& - 0.5505E+00, 0.5521E+00, 0.5537E+00, 0.5552E+00,& - 0.5568E+00, 0.5584E+00, 0.5600E+00, 0.5616E+00,& - 0.5631E+00, 0.5647E+00, 0.5662E+00, 0.5679E+00,& - 0.5694E+00, 0.5710E+00, 0.5726E+00, 0.5742E+00,& - 0.5758E+00, 0.5774E+00, 0.5789E+00, 0.5806E+00,& - 0.5821E+00, 0.5838E+00, 0.5853E+00, 0.5870E+00,& - 0.5885E+00, 0.5901E+00, 0.5917E+00, 0.5933E+00,& - 0.5949E+00, 0.5965E+00, 0.5982E+00, 0.5998E+00,& - 0.6013E+00, 0.6030E+00, 0.6046E+00, 0.6062E+00,& - 0.6078E+00, 0.6094E+00, 0.6110E+00, 0.6127E+00,& - 0.6143E+00, 0.6159E+00, 0.6175E+00, 0.6192E+00,& - 0.6208E+00, 0.6224E+00, 0.6241E+00, 0.6257E+00,& - 0.6273E+00, 0.6289E+00, 0.6306E+00, 0.6323E+00,& - 0.6339E+00, 0.6355E+00, 0.6372E+00, 0.6388E+00,& - 0.6404E+00, 0.6421E+00, 0.6438E+00, 0.6454E+00,& - 0.6471E+00, 0.6487E+00, 0.6504E+00, 0.6520E+00,& - 0.6537E+00, 0.6553E+00, 0.6570E+00, 0.6587E+00,& - 0.6603E+00, 0.6620E+00, 0.6637E+00, 0.6653E+00,& - 0.6670E+00, 0.6687E+00, 0.6704E+00, 0.6721E+00,& - 0.6737E+00, 0.6754E+00, 0.6771E+00, 0.6788E+00,& - 0.6805E+00, 0.6822E+00, 0.6839E+00, 0.6856E+00,& - 0.6873E+00, 0.6890E+00, 0.6907E+00, 0.6924E+00,& - 0.6941E+00, 0.6958E+00, 0.6975E+00, 0.6992E+00,& - 0.7009E+00, 0.7026E+00, 0.7044E+00, 0.7061E+00,& - 0.7078E+00, 0.7095E+00, 0.7113E+00, 0.7130E+00,& - 0.7147E+00, 0.7164E+00, 0.7181E+00, 0.7199E+00,& - 0.7217E+00, 0.7233E+00, 0.7251E+00, 0.7268E+00,& - 0.7286E+00, 0.7303E+00, 0.7321E+00, 0.7339E+00,& - 0.7356E+00, 0.7374E+00, 0.7391E+00, 0.7409E+00,& - 0.7426E+00, 0.7444E+00, 0.7462E+00, 0.7479E+00,& - 0.7497E+00, 0.7514E+00, 0.7532E+00, 0.7550E+00,& - 0.7568E+00, 0.7586E+00, 0.7604E+00, 0.7621E+00,& - 0.7639E+00, 0.7657E+00, 0.7675E+00, 0.7693E+00,& - 0.7711E+00, 0.7729E+00, 0.7747E+00, 0.7765E+00,& - 0.7783E+00, 0.7801E+00, 0.7820E+00, 0.7838E+00,& - 0.7856E+00, 0.7874E+00, 0.7892E+00, 0.7910E+00,& - 0.7928E+00, 0.7947E+00, 0.7965E+00, 0.7984E+00,& - 0.8002E+00, 0.8020E+00, 0.8039E+00, 0.8057E+00,& - 0.8075E+00, 0.8094E+00, 0.8112E+00, 0.8131E+00,& - 0.8150E+00, 0.8168E+00, 0.8187E+00, 0.8206E+00,& - 0.8224E+00, 0.8243E+00, 0.8262E+00, 0.8281E+00,& - 0.8299E+00, 0.8318E+00, 0.8337E+00, 0.8356E+00,& - 0.8375E+00, 0.8393E+00, 0.8413E+00, 0.8431E+00,& - 0.8450E+00, 0.8470E+00, 0.8488E+00, 0.8508E+00,& - 0.8527E+00, 0.8546E+00, 0.8565E+00, 0.8584E+00,& - 0.8603E+00, 0.8622E+00, 0.8642E+00, 0.8661E+00,& - 0.8680E+00, 0.8700E+00, 0.8719E+00, 0.8739E+00,& - 0.8758E+00, 0.8777E+00, 0.8797E+00, 0.8817E+00,& - 0.8836E+00, 0.8856E+00, 0.8876E+00, 0.8895E+00,& - 0.8915E+00, 0.8934E+00, 0.8954E+00, 0.8974E+00,& - 0.8994E+00, 0.9014E+00, 0.9034E+00, 0.9054E+00,& - 0.9073E+00, 0.9093E+00, 0.9113E+00, 0.9133E+00,& - 0.9154E+00, 0.9174E+00, 0.9194E+00, 0.9214E+00,& - 0.9235E+00, 0.9255E+00, 0.9275E+00, 0.9295E+00,& - 0.9315E+00, 0.9336E+00, 0.9357E+00, 0.9377E+00,& - 0.9397E+00, 0.9418E+00, 0.9439E+00, 0.9459E+00,& - 0.9480E+00, 0.9501E+00, 0.9521E+00, 0.9542E+00,& - 0.9563E+00, 0.9583E+00, 0.9604E+00, 0.9625E+00,& - 0.9646E+00, 0.9667E+00, 0.9688E+00, 0.9709E+00,& - 0.9730E+00, 0.9751E+00, 0.9772E+00, 0.9793E+00,& - 0.9815E+00, 0.9836E+00, 0.9857E+00, 0.9878E+00,& - 0.9900E+00, 0.9922E+00, 0.9943E+00, 0.9964E+00,& - 0.9986E+00, 0.1001E+01, 0.1003E+01, 0.1005E+01,& - 0.1007E+01, 0.1009E+01, 0.1012E+01, 0.1014E+01,& - 0.1016E+01, 0.1018E+01, 0.1020E+01, 0.1023E+01,& - 0.1025E+01, 0.1027E+01, 0.1029E+01, 0.1031E+01,& - 0.1034E+01, 0.1036E+01, 0.1038E+01, 0.1040E+01,& - 0.1043E+01, 0.1045E+01, 0.1047E+01, 0.1049E+01,& - 0.1052E+01, 0.1054E+01, 0.1056E+01, 0.1058E+01,& - 0.1061E+01, 0.1063E+01, 0.1065E+01, 0.1067E+01,& - 0.1070E+01, 0.1072E+01, 0.1074E+01, 0.1077E+01,& - 0.1079E+01, 0.1081E+01, 0.1084E+01, 0.1086E+01,& - 0.1088E+01, 0.1091E+01, 0.1093E+01, 0.1095E+01,& - 0.1098E+01, 0.1100E+01, 0.1102E+01, 0.1105E+01,& - 0.1107E+01, 0.1109E+01, 0.1112E+01, 0.1114E+01,& - 0.1117E+01, 0.1119E+01, 0.1121E+01, 0.1124E+01,& - 0.1126E+01, 0.1129E+01, 0.1131E+01, 0.1133E+01,& - 0.1136E+01, 0.1138E+01, 0.1141E+01, 0.1143E+01,& - 0.1146E+01, 0.1148E+01, 0.1151E+01, 0.1153E+01,& - 0.1156E+01, 0.1158E+01, 0.1161E+01, 0.1163E+01,& - 0.1166E+01, 0.1168E+01, 0.1171E+01, 0.1173E+01,& - 0.1176E+01, 0.1178E+01, 0.1181E+01, 0.1183E+01,& - 0.1186E+01, 0.1188E+01, 0.1191E+01, 0.1193E+01,& - 0.1196E+01, 0.1199E+01, 0.1201E+01, 0.1204E+01,& - 0.1206E+01, 0.1209E+01, 0.1212E+01, 0.1214E+01,& - 0.1217E+01, 0.1220E+01, 0.1222E+01, 0.1225E+01,& - 0.1227E+01, 0.1230E+01, 0.1233E+01, 0.1235E+01,& - 0.1238E+01, 0.1241E+01, 0.1244E+01, 0.1246E+01,& - 0.1249E+01, 0.1252E+01, 0.1254E+01, 0.1257E+01,& - 0.1260E+01, 0.1263E+01, 0.1265E+01, 0.1268E+01,& - 0.1271E+01, 0.1274E+01, 0.1276E+01, 0.1279E+01,& - 0.1282E+01, 0.1285E+01, 0.1288E+01, 0.1290E+01,& - 0.1293E+01, 0.1296E+01, 0.1299E+01, 0.1302E+01,& - 0.1305E+01, 0.1308E+01, 0.1310E+01, 0.1313E+01,& - 0.1316E+01, 0.1319E+01, 0.1322E+01, 0.1325E+01,& - 0.1328E+01, 0.1331E+01, 0.1334E+01, 0.1337E+01,& - 0.1340E+01, 0.1343E+01, 0.1346E+01, 0.1349E+01,& - 0.1352E+01, 0.1355E+01, 0.1358E+01, 0.1361E+01,& - 0.1364E+01, 0.1367E+01, 0.1370E+01, 0.1373E+01,& - 0.1376E+01, 0.1379E+01, 0.1382E+01, 0.1385E+01,& - 0.1388E+01, 0.1391E+01, 0.1395E+01, 0.1398E+01,& - 0.1401E+01, 0.1404E+01, 0.1407E+01, 0.1410E+01,& - 0.1414E+01, 0.1417E+01, 0.1420E+01, 0.1423E+01,& - 0.1427E+01, 0.1430E+01, 0.1433E+01, 0.1436E+01,& - 0.1440E+01, 0.1443E+01, 0.1446E+01, 0.1449E+01,& - 0.1453E+01, 0.1456E+01, 0.1459E+01, 0.1463E+01,& - 0.1466E+01, 0.1470E+01, 0.1473E+01, 0.1476E+01,& - 0.1480E+01, 0.1483E+01, 0.1487E+01, 0.1490E+01,& - 0.1494E+01, 0.1497E+01, 0.1501E+01, 0.1504E+01,& - 0.1508E+01, 0.1511E+01, 0.1515E+01, 0.1518E+01,& - 0.1522E+01, 0.1526E+01, 0.1529E+01, 0.1533E+01,& - 0.1536E+01, 0.1540E+01, 0.1544E+01, 0.1547E+01,& - 0.1551E+01, 0.1555E+01, 0.1559E+01, 0.1562E+01,& - 0.1566E+01, 0.1570E+01, 0.1574E+01, 0.1577E+01,& - 0.1581E+01, 0.1585E+01, 0.1589E+01, 0.1593E+01,& - 0.1597E+01, 0.1601E+01, 0.1605E+01, 0.1608E+01,& - 0.1612E+01, 0.1616E+01, 0.1620E+01, 0.1624E+01,& - 0.1628E+01, 0.1632E+01, 0.1636E+01, 0.1641E+01,& - 0.1645E+01, 0.1649E+01, 0.1653E+01, 0.1657E+01,& - 0.1661E+01, 0.1665E+01, 0.1670E+01, 0.1674E+01,& - 0.1678E+01, 0.1682E+01, 0.1687E+01, 0.1691E+01,& - 0.1695E+01, 0.1700E+01, 0.1704E+01, 0.1708E+01,& - 0.1713E+01, 0.1717E+01, 0.1722E+01, 0.1726E+01,& - 0.1731E+01, 0.1735E+01, 0.1740E+01, 0.1744E+01,& - 0.1749E+01, 0.1754E+01, 0.1758E+01, 0.1763E+01,& - 0.1768E+01, 0.1772E+01, 0.1777E+01, 0.1782E+01,& - 0.1787E+01, 0.1792E+01, 0.1796E+01, 0.1801E+01,& - 0.1806E+01, 0.1811E+01, 0.1816E+01, 0.1821E+01,& - 0.1826E+01, 0.1831E+01, 0.1836E+01, 0.1842E+01,& - 0.1847E+01, 0.1852E+01, 0.1857E+01, 0.1862E+01,& - 0.1868E+01, 0.1873E+01, 0.1878E+01, 0.1884E+01,& - 0.1889E+01, 0.1895E+01, 0.1900E+01, 0.1906E+01,& - 0.1911E+01, 0.1917E+01, 0.1922E+01, 0.1928E+01,& - 0.1934E+01, 0.1940E+01, 0.1945E+01, 0.1951E+01,& - 0.1957E+01, 0.1963E+01, 0.1969E+01, 0.1975E+01,& - 0.1981E+01, 0.1987E+01, 0.1993E+01, 0.2000E+01,& - 0.2006E+01, 0.2012E+01, 0.2018E+01, 0.2025E+01,& - 0.2031E+01, 0.2038E+01, 0.2044E+01, 0.2051E+01,& - 0.2058E+01, 0.2064E+01, 0.2071E+01, 0.2078E+01,& - 0.2085E+01, 0.2092E+01, 0.2099E+01, 0.2106E+01,& - 0.2113E+01, 0.2120E+01, 0.2127E+01, 0.2135E+01,& - 0.2142E+01, 0.2149E+01, 0.2157E+01, 0.2165E+01,& - 0.2172E+01, 0.2180E+01, 0.2188E+01, 0.2196E+01,& - 0.2204E+01, 0.2212E+01, 0.2220E+01, 0.2228E+01,& - 0.2237E+01, 0.2245E+01, 0.2254E+01, 0.2262E+01,& - 0.2271E+01, 0.2280E+01, 0.2289E+01, 0.2298E+01,& - 0.2307E+01, 0.2316E+01, 0.2326E+01, 0.2335E+01,& - 0.2345E+01, 0.2354E+01, 0.2364E+01, 0.2374E+01,& - 0.2385E+01, 0.2395E+01, 0.2405E+01, 0.2416E+01,& - 0.2426E+01, 0.2437E+01, 0.2448E+01, 0.2460E+01,& - 0.2471E+01, 0.2483E+01, 0.2494E+01, 0.2506E+01,& - 0.2519E+01, 0.2531E+01, 0.2543E+01, 0.2556E+01,& - 0.2569E+01, 0.2583E+01, 0.2596E+01, 0.2610E+01,& - 0.2624E+01, 0.2638E+01, 0.2653E+01, 0.2668E+01,& - 0.2684E+01, 0.2699E+01, 0.2715E+01, 0.2732E+01,& - 0.2748E+01, 0.2766E+01, 0.2783E+01, 0.2802E+01,& - 0.2820E+01, 0.2839E+01, 0.2859E+01, 0.2880E+01,& - 0.2901E+01, 0.2922E+01, 0.2945E+01, 0.2968E+01,& - 0.2992E+01, 0.3017E+01, 0.3043E+01, 0.3071E+01,& - 0.3099E+01, 0.3129E+01, 0.3160E+01, 0.3193E+01,& - 0.3228E+01, 0.3265E+01, 0.3304E+01, 0.3346E+01,& - 0.3392E+01, 0.3441E+01, 0.3494E+01, 0.3554E+01,& - 0.3620E+01, 0.3695E+01, 0.3782E+01, 0.3886E+01,& - 0.1000E-04, 0.4177E-02, 0.7319E-02, 0.1008E-01/) - xcw(:, 30) = (/& - 0.1000E-04, 0.4177E-02, 0.7319E-02, 0.1008E-01,& - 0.1264E-01, 0.1514E-01, 0.1751E-01, 0.1976E-01,& - 0.2200E-01, 0.2418E-01, 0.2630E-01, 0.2835E-01,& - 0.3040E-01, 0.3239E-01, 0.3437E-01, 0.3636E-01,& - 0.3828E-01, 0.4021E-01, 0.4207E-01, 0.4393E-01,& - 0.4579E-01, 0.4764E-01, 0.4944E-01, 0.5130E-01,& - 0.5303E-01, 0.5482E-01, 0.5662E-01, 0.5835E-01,& - 0.6008E-01, 0.6188E-01, 0.6354E-01, 0.6527E-01,& - 0.6701E-01, 0.6867E-01, 0.7040E-01, 0.7207E-01,& - 0.7374E-01, 0.7540E-01, 0.7707E-01, 0.7874E-01,& - 0.8034E-01, 0.8201E-01, 0.8361E-01, 0.8528E-01,& - 0.8688E-01, 0.8848E-01, 0.9015E-01, 0.9175E-01,& - 0.9336E-01, 0.9489E-01, 0.9650E-01, 0.9810E-01,& - 0.9970E-01, 0.1012E+00, 0.1028E+00, 0.1044E+00,& - 0.1060E+00, 0.1075E+00, 0.1091E+00, 0.1107E+00,& - 0.1122E+00, 0.1137E+00, 0.1153E+00, 0.1169E+00,& - 0.1184E+00, 0.1200E+00, 0.1215E+00, 0.1230E+00,& - 0.1245E+00, 0.1261E+00, 0.1276E+00, 0.1291E+00,& - 0.1306E+00, 0.1321E+00, 0.1337E+00, 0.1352E+00,& - 0.1367E+00, 0.1382E+00, 0.1397E+00, 0.1412E+00,& - 0.1427E+00, 0.1442E+00, 0.1457E+00, 0.1472E+00,& - 0.1487E+00, 0.1502E+00, 0.1517E+00, 0.1532E+00,& - 0.1546E+00, 0.1561E+00, 0.1576E+00, 0.1591E+00,& - 0.1606E+00, 0.1621E+00, 0.1636E+00, 0.1650E+00,& - 0.1665E+00, 0.1680E+00, 0.1695E+00, 0.1709E+00,& - 0.1724E+00, 0.1739E+00, 0.1754E+00, 0.1768E+00,& - 0.1782E+00, 0.1797E+00, 0.1812E+00, 0.1827E+00,& - 0.1841E+00, 0.1856E+00, 0.1870E+00, 0.1885E+00,& - 0.1900E+00, 0.1914E+00, 0.1929E+00, 0.1943E+00,& - 0.1958E+00, 0.1972E+00, 0.1987E+00, 0.2002E+00,& - 0.2016E+00, 0.2030E+00, 0.2045E+00, 0.2059E+00,& - 0.2074E+00, 0.2089E+00, 0.2103E+00, 0.2118E+00,& - 0.2132E+00, 0.2147E+00, 0.2161E+00, 0.2175E+00,& - 0.2190E+00, 0.2204E+00, 0.2219E+00, 0.2233E+00,& - 0.2248E+00, 0.2263E+00, 0.2277E+00, 0.2291E+00,& - 0.2306E+00, 0.2320E+00, 0.2334E+00, 0.2349E+00,& - 0.2363E+00, 0.2378E+00, 0.2392E+00, 0.2407E+00,& - 0.2421E+00, 0.2436E+00, 0.2450E+00, 0.2465E+00,& - 0.2479E+00, 0.2493E+00, 0.2507E+00, 0.2522E+00,& - 0.2536E+00, 0.2551E+00, 0.2565E+00, 0.2580E+00,& - 0.2594E+00, 0.2608E+00, 0.2623E+00, 0.2637E+00,& - 0.2652E+00, 0.2666E+00, 0.2681E+00, 0.2695E+00,& - 0.2709E+00, 0.2724E+00, 0.2738E+00, 0.2752E+00,& - 0.2767E+00, 0.2781E+00, 0.2796E+00, 0.2810E+00,& - 0.2825E+00, 0.2839E+00, 0.2854E+00, 0.2868E+00,& - 0.2883E+00, 0.2897E+00, 0.2911E+00, 0.2925E+00,& - 0.2940E+00, 0.2954E+00, 0.2969E+00, 0.2983E+00,& - 0.2998E+00, 0.3013E+00, 0.3027E+00, 0.3042E+00,& - 0.3056E+00, 0.3070E+00, 0.3084E+00, 0.3099E+00,& - 0.3113E+00, 0.3128E+00, 0.3143E+00, 0.3157E+00,& - 0.3172E+00, 0.3186E+00, 0.3201E+00, 0.3215E+00,& - 0.3229E+00, 0.3244E+00, 0.3259E+00, 0.3273E+00,& - 0.3288E+00, 0.3302E+00, 0.3317E+00, 0.3331E+00,& - 0.3346E+00, 0.3360E+00, 0.3375E+00, 0.3390E+00,& - 0.3404E+00, 0.3418E+00, 0.3433E+00, 0.3448E+00,& - 0.3463E+00, 0.3477E+00, 0.3492E+00, 0.3506E+00,& - 0.3521E+00, 0.3535E+00, 0.3550E+00, 0.3565E+00,& - 0.3579E+00, 0.3594E+00, 0.3609E+00, 0.3623E+00,& - 0.3638E+00, 0.3652E+00, 0.3667E+00, 0.3682E+00,& - 0.3697E+00, 0.3711E+00, 0.3726E+00, 0.3741E+00,& - 0.3756E+00, 0.3770E+00, 0.3785E+00, 0.3800E+00,& - 0.3815E+00, 0.3829E+00, 0.3844E+00, 0.3859E+00,& - 0.3874E+00, 0.3888E+00, 0.3903E+00, 0.3918E+00,& - 0.3933E+00, 0.3947E+00, 0.3962E+00, 0.3977E+00,& - 0.3992E+00, 0.4007E+00, 0.4022E+00, 0.4037E+00,& - 0.4051E+00, 0.4067E+00, 0.4081E+00, 0.4096E+00,& - 0.4111E+00, 0.4126E+00, 0.4141E+00, 0.4156E+00,& - 0.4170E+00, 0.4186E+00, 0.4201E+00, 0.4215E+00,& - 0.4231E+00, 0.4246E+00, 0.4261E+00, 0.4276E+00,& - 0.4290E+00, 0.4306E+00, 0.4321E+00, 0.4336E+00,& - 0.4351E+00, 0.4366E+00, 0.4381E+00, 0.4396E+00,& - 0.4411E+00, 0.4426E+00, 0.4442E+00, 0.4456E+00,& - 0.4472E+00, 0.4487E+00, 0.4502E+00, 0.4517E+00,& - 0.4532E+00, 0.4547E+00, 0.4563E+00, 0.4578E+00,& - 0.4593E+00, 0.4608E+00, 0.4624E+00, 0.4639E+00,& - 0.4655E+00, 0.4669E+00, 0.4685E+00, 0.4700E+00,& - 0.4715E+00, 0.4731E+00, 0.4746E+00, 0.4762E+00,& - 0.4777E+00, 0.4792E+00, 0.4808E+00, 0.4823E+00,& - 0.4839E+00, 0.4854E+00, 0.4869E+00, 0.4885E+00,& - 0.4900E+00, 0.4915E+00, 0.4931E+00, 0.4947E+00,& - 0.4962E+00, 0.4978E+00, 0.4993E+00, 0.5008E+00,& - 0.5024E+00, 0.5040E+00, 0.5055E+00, 0.5071E+00,& - 0.5087E+00, 0.5102E+00, 0.5118E+00, 0.5133E+00,& - 0.5149E+00, 0.5165E+00, 0.5180E+00, 0.5196E+00,& - 0.5212E+00, 0.5228E+00, 0.5244E+00, 0.5259E+00,& - 0.5275E+00, 0.5291E+00, 0.5307E+00, 0.5323E+00,& - 0.5338E+00, 0.5354E+00, 0.5370E+00, 0.5386E+00,& - 0.5401E+00, 0.5417E+00, 0.5433E+00, 0.5450E+00,& - 0.5466E+00, 0.5482E+00, 0.5497E+00, 0.5513E+00,& - 0.5529E+00, 0.5545E+00, 0.5561E+00, 0.5577E+00,& - 0.5593E+00, 0.5610E+00, 0.5626E+00, 0.5642E+00,& - 0.5658E+00, 0.5674E+00, 0.5690E+00, 0.5706E+00,& - 0.5723E+00, 0.5739E+00, 0.5755E+00, 0.5771E+00,& - 0.5787E+00, 0.5803E+00, 0.5820E+00, 0.5836E+00,& - 0.5853E+00, 0.5869E+00, 0.5885E+00, 0.5901E+00,& - 0.5918E+00, 0.5934E+00, 0.5951E+00, 0.5967E+00,& - 0.5984E+00, 0.6000E+00, 0.6017E+00, 0.6033E+00,& - 0.6050E+00, 0.6066E+00, 0.6083E+00, 0.6099E+00,& - 0.6116E+00, 0.6132E+00, 0.6149E+00, 0.6166E+00,& - 0.6182E+00, 0.6199E+00, 0.6216E+00, 0.6232E+00,& - 0.6249E+00, 0.6266E+00, 0.6283E+00, 0.6300E+00,& - 0.6316E+00, 0.6333E+00, 0.6350E+00, 0.6367E+00,& - 0.6384E+00, 0.6400E+00, 0.6418E+00, 0.6434E+00,& - 0.6452E+00, 0.6468E+00, 0.6486E+00, 0.6502E+00,& - 0.6520E+00, 0.6536E+00, 0.6553E+00, 0.6571E+00,& - 0.6587E+00, 0.6605E+00, 0.6622E+00, 0.6639E+00,& - 0.6656E+00, 0.6673E+00, 0.6691E+00, 0.6708E+00,& - 0.6725E+00, 0.6743E+00, 0.6760E+00, 0.6777E+00,& - 0.6795E+00, 0.6812E+00, 0.6829E+00, 0.6846E+00,& - 0.6864E+00, 0.6882E+00, 0.6899E+00, 0.6916E+00,& - 0.6934E+00, 0.6952E+00, 0.6969E+00, 0.6987E+00,& - 0.7004E+00, 0.7022E+00, 0.7039E+00, 0.7057E+00,& - 0.7075E+00, 0.7093E+00, 0.7111E+00, 0.7128E+00,& - 0.7146E+00, 0.7164E+00, 0.7182E+00, 0.7200E+00,& - 0.7217E+00, 0.7235E+00, 0.7253E+00, 0.7271E+00,& - 0.7289E+00, 0.7307E+00, 0.7325E+00, 0.7343E+00,& - 0.7361E+00, 0.7379E+00, 0.7397E+00, 0.7416E+00,& - 0.7434E+00, 0.7452E+00, 0.7470E+00, 0.7488E+00,& - 0.7507E+00, 0.7525E+00, 0.7543E+00, 0.7561E+00,& - 0.7580E+00, 0.7598E+00, 0.7616E+00, 0.7635E+00,& - 0.7654E+00, 0.7672E+00, 0.7690E+00, 0.7709E+00,& - 0.7727E+00, 0.7746E+00, 0.7765E+00, 0.7783E+00,& - 0.7802E+00, 0.7821E+00, 0.7840E+00, 0.7858E+00,& - 0.7877E+00, 0.7896E+00, 0.7915E+00, 0.7933E+00,& - 0.7952E+00, 0.7971E+00, 0.7990E+00, 0.8009E+00,& - 0.8028E+00, 0.8047E+00, 0.8067E+00, 0.8085E+00,& - 0.8104E+00, 0.8124E+00, 0.8143E+00, 0.8162E+00,& - 0.8181E+00, 0.8200E+00, 0.8220E+00, 0.8239E+00,& - 0.8258E+00, 0.8277E+00, 0.8297E+00, 0.8317E+00,& - 0.8336E+00, 0.8355E+00, 0.8375E+00, 0.8394E+00,& - 0.8414E+00, 0.8433E+00, 0.8453E+00, 0.8473E+00,& - 0.8492E+00, 0.8512E+00, 0.8532E+00, 0.8552E+00,& - 0.8572E+00, 0.8592E+00, 0.8611E+00, 0.8631E+00,& - 0.8651E+00, 0.8671E+00, 0.8691E+00, 0.8711E+00,& - 0.8731E+00, 0.8751E+00, 0.8772E+00, 0.8792E+00,& - 0.8812E+00, 0.8832E+00, 0.8853E+00, 0.8872E+00,& - 0.8893E+00, 0.8913E+00, 0.8934E+00, 0.8954E+00,& - 0.8974E+00, 0.8995E+00, 0.9016E+00, 0.9037E+00,& - 0.9057E+00, 0.9078E+00, 0.9098E+00, 0.9119E+00,& - 0.9140E+00, 0.9160E+00, 0.9181E+00, 0.9202E+00,& - 0.9223E+00, 0.9244E+00, 0.9265E+00, 0.9286E+00,& - 0.9307E+00, 0.9328E+00, 0.9349E+00, 0.9371E+00,& - 0.9392E+00, 0.9413E+00, 0.9434E+00, 0.9455E+00,& - 0.9476E+00, 0.9498E+00, 0.9519E+00, 0.9541E+00,& - 0.9562E+00, 0.9584E+00, 0.9605E+00, 0.9627E+00,& - 0.9649E+00, 0.9671E+00, 0.9692E+00, 0.9714E+00,& - 0.9736E+00, 0.9758E+00, 0.9780E+00, 0.9801E+00,& - 0.9823E+00, 0.9846E+00, 0.9867E+00, 0.9890E+00,& - 0.9912E+00, 0.9934E+00, 0.9956E+00, 0.9978E+00,& - 0.1000E+01, 0.1002E+01, 0.1005E+01, 0.1007E+01,& - 0.1009E+01, 0.1011E+01, 0.1014E+01, 0.1016E+01,& - 0.1018E+01, 0.1020E+01, 0.1023E+01, 0.1025E+01,& - 0.1027E+01, 0.1029E+01, 0.1032E+01, 0.1034E+01,& - 0.1036E+01, 0.1039E+01, 0.1041E+01, 0.1043E+01,& - 0.1046E+01, 0.1048E+01, 0.1050E+01, 0.1053E+01,& - 0.1055E+01, 0.1057E+01, 0.1060E+01, 0.1062E+01,& - 0.1064E+01, 0.1067E+01, 0.1069E+01, 0.1071E+01,& - 0.1074E+01, 0.1076E+01, 0.1079E+01, 0.1081E+01,& - 0.1083E+01, 0.1086E+01, 0.1088E+01, 0.1091E+01,& - 0.1093E+01, 0.1096E+01, 0.1098E+01, 0.1100E+01,& - 0.1103E+01, 0.1105E+01, 0.1108E+01, 0.1110E+01,& - 0.1113E+01, 0.1115E+01, 0.1118E+01, 0.1120E+01,& - 0.1123E+01, 0.1125E+01, 0.1128E+01, 0.1130E+01,& - 0.1133E+01, 0.1135E+01, 0.1138E+01, 0.1140E+01,& - 0.1143E+01, 0.1145E+01, 0.1148E+01, 0.1150E+01,& - 0.1153E+01, 0.1155E+01, 0.1158E+01, 0.1161E+01,& - 0.1163E+01, 0.1166E+01, 0.1168E+01, 0.1171E+01,& - 0.1174E+01, 0.1176E+01, 0.1179E+01, 0.1181E+01,& - 0.1184E+01, 0.1187E+01, 0.1189E+01, 0.1192E+01,& - 0.1195E+01, 0.1197E+01, 0.1200E+01, 0.1203E+01,& - 0.1205E+01, 0.1208E+01, 0.1211E+01, 0.1213E+01,& - 0.1216E+01, 0.1219E+01, 0.1222E+01, 0.1224E+01,& - 0.1227E+01, 0.1230E+01, 0.1233E+01, 0.1235E+01,& - 0.1238E+01, 0.1241E+01, 0.1244E+01, 0.1247E+01,& - 0.1249E+01, 0.1252E+01, 0.1255E+01, 0.1258E+01,& - 0.1261E+01, 0.1263E+01, 0.1266E+01, 0.1269E+01,& - 0.1272E+01, 0.1275E+01, 0.1278E+01, 0.1281E+01,& - 0.1284E+01, 0.1286E+01, 0.1289E+01, 0.1292E+01,& - 0.1295E+01, 0.1298E+01, 0.1301E+01, 0.1304E+01,& - 0.1307E+01, 0.1310E+01, 0.1313E+01, 0.1316E+01,& - 0.1319E+01, 0.1322E+01, 0.1325E+01, 0.1328E+01,& - 0.1331E+01, 0.1334E+01, 0.1337E+01, 0.1340E+01,& - 0.1343E+01, 0.1346E+01, 0.1349E+01, 0.1352E+01,& - 0.1356E+01, 0.1359E+01, 0.1362E+01, 0.1365E+01,& - 0.1368E+01, 0.1371E+01, 0.1374E+01, 0.1378E+01,& - 0.1381E+01, 0.1384E+01, 0.1387E+01, 0.1390E+01,& - 0.1394E+01, 0.1397E+01, 0.1400E+01, 0.1403E+01,& - 0.1407E+01, 0.1410E+01, 0.1413E+01, 0.1417E+01,& - 0.1420E+01, 0.1423E+01, 0.1426E+01, 0.1430E+01,& - 0.1433E+01, 0.1437E+01, 0.1440E+01, 0.1443E+01,& - 0.1447E+01, 0.1450E+01, 0.1454E+01, 0.1457E+01,& - 0.1460E+01, 0.1464E+01, 0.1467E+01, 0.1471E+01,& - 0.1474E+01, 0.1478E+01, 0.1481E+01, 0.1485E+01,& - 0.1489E+01, 0.1492E+01, 0.1496E+01, 0.1499E+01,& - 0.1503E+01, 0.1506E+01, 0.1510E+01, 0.1514E+01,& - 0.1517E+01, 0.1521E+01, 0.1525E+01, 0.1529E+01,& - 0.1532E+01, 0.1536E+01, 0.1540E+01, 0.1543E+01,& - 0.1547E+01, 0.1551E+01, 0.1555E+01, 0.1559E+01,& - 0.1563E+01, 0.1566E+01, 0.1570E+01, 0.1574E+01,& - 0.1578E+01, 0.1582E+01, 0.1586E+01, 0.1590E+01,& - 0.1594E+01, 0.1598E+01, 0.1602E+01, 0.1606E+01,& - 0.1610E+01, 0.1614E+01, 0.1618E+01, 0.1622E+01,& - 0.1626E+01, 0.1630E+01, 0.1634E+01, 0.1639E+01,& - 0.1643E+01, 0.1647E+01, 0.1651E+01, 0.1655E+01,& - 0.1660E+01, 0.1664E+01, 0.1668E+01, 0.1673E+01,& - 0.1677E+01, 0.1681E+01, 0.1686E+01, 0.1690E+01,& - 0.1694E+01, 0.1699E+01, 0.1703E+01, 0.1708E+01,& - 0.1712E+01, 0.1717E+01, 0.1721E+01, 0.1726E+01,& - 0.1731E+01, 0.1735E+01, 0.1740E+01, 0.1744E+01,& - 0.1749E+01, 0.1754E+01, 0.1759E+01, 0.1763E+01,& - 0.1768E+01, 0.1773E+01, 0.1778E+01, 0.1783E+01,& - 0.1788E+01, 0.1793E+01, 0.1797E+01, 0.1802E+01,& - 0.1807E+01, 0.1812E+01, 0.1818E+01, 0.1823E+01,& - 0.1828E+01, 0.1833E+01, 0.1838E+01, 0.1843E+01,& - 0.1849E+01, 0.1854E+01, 0.1859E+01, 0.1864E+01,& - 0.1870E+01, 0.1875E+01, 0.1881E+01, 0.1886E+01,& - 0.1892E+01, 0.1897E+01, 0.1903E+01, 0.1908E+01,& - 0.1914E+01, 0.1920E+01, 0.1926E+01, 0.1931E+01,& - 0.1937E+01, 0.1943E+01, 0.1949E+01, 0.1955E+01,& - 0.1961E+01, 0.1967E+01, 0.1973E+01, 0.1979E+01,& - 0.1985E+01, 0.1991E+01, 0.1997E+01, 0.2004E+01,& - 0.2010E+01, 0.2016E+01, 0.2023E+01, 0.2029E+01,& - 0.2036E+01, 0.2042E+01, 0.2049E+01, 0.2055E+01,& - 0.2062E+01, 0.2069E+01, 0.2076E+01, 0.2083E+01,& - 0.2090E+01, 0.2097E+01, 0.2104E+01, 0.2111E+01,& - 0.2118E+01, 0.2125E+01, 0.2133E+01, 0.2140E+01,& - 0.2147E+01, 0.2155E+01, 0.2162E+01, 0.2170E+01,& - 0.2178E+01, 0.2186E+01, 0.2193E+01, 0.2201E+01,& - 0.2209E+01, 0.2217E+01, 0.2226E+01, 0.2234E+01,& - 0.2242E+01, 0.2251E+01, 0.2259E+01, 0.2268E+01,& - 0.2277E+01, 0.2285E+01, 0.2294E+01, 0.2303E+01,& - 0.2312E+01, 0.2322E+01, 0.2331E+01, 0.2340E+01,& - 0.2350E+01, 0.2360E+01, 0.2369E+01, 0.2379E+01,& - 0.2389E+01, 0.2400E+01, 0.2410E+01, 0.2420E+01,& - 0.2431E+01, 0.2442E+01, 0.2453E+01, 0.2464E+01,& - 0.2475E+01, 0.2486E+01, 0.2498E+01, 0.2509E+01,& - 0.2521E+01, 0.2533E+01, 0.2546E+01, 0.2558E+01,& - 0.2571E+01, 0.2584E+01, 0.2597E+01, 0.2610E+01,& - 0.2624E+01, 0.2638E+01, 0.2652E+01, 0.2667E+01,& - 0.2681E+01, 0.2696E+01, 0.2712E+01, 0.2727E+01,& - 0.2743E+01, 0.2760E+01, 0.2776E+01, 0.2794E+01,& - 0.2811E+01, 0.2829E+01, 0.2848E+01, 0.2867E+01,& - 0.2886E+01, 0.2906E+01, 0.2927E+01, 0.2948E+01,& - 0.2970E+01, 0.2993E+01, 0.3017E+01, 0.3041E+01,& - 0.3066E+01, 0.3092E+01, 0.3120E+01, 0.3148E+01,& - 0.3178E+01, 0.3209E+01, 0.3242E+01, 0.3276E+01,& - 0.3313E+01, 0.3351E+01, 0.3392E+01, 0.3436E+01,& - 0.3484E+01, 0.3535E+01, 0.3591E+01, 0.3653E+01,& - 0.3722E+01, 0.3801E+01, 0.3892E+01, 0.4001E+01,& - 0.1000E-04, 0.3164E-02, 0.5661E-02, 0.7961E-02/) - xcw(:, 31) = (/& - 0.1000E-04, 0.3164E-02, 0.5661E-02, 0.7961E-02,& - 0.1013E-01, 0.1217E-01, 0.1420E-01, 0.1617E-01,& - 0.1808E-01, 0.1999E-01, 0.2189E-01, 0.2366E-01,& - 0.2550E-01, 0.2728E-01, 0.2905E-01, 0.3076E-01,& - 0.3254E-01, 0.3424E-01, 0.3595E-01, 0.3760E-01,& - 0.3930E-01, 0.4095E-01, 0.4259E-01, 0.4430E-01,& - 0.4587E-01, 0.4752E-01, 0.4916E-01, 0.5074E-01,& - 0.5238E-01, 0.5396E-01, 0.5553E-01, 0.5711E-01,& - 0.5869E-01, 0.6026E-01, 0.6184E-01, 0.6335E-01,& - 0.6493E-01, 0.6644E-01, 0.6802E-01, 0.6953E-01,& - 0.7111E-01, 0.7262E-01, 0.7413E-01, 0.7564E-01,& - 0.7715E-01, 0.7866E-01, 0.8017E-01, 0.8169E-01,& - 0.8320E-01, 0.8471E-01, 0.8622E-01, 0.8766E-01,& - 0.8918E-01, 0.9069E-01, 0.9213E-01, 0.9364E-01,& - 0.9509E-01, 0.9660E-01, 0.9805E-01, 0.9956E-01,& - 0.1010E+00, 0.1024E+00, 0.1040E+00, 0.1054E+00,& - 0.1069E+00, 0.1084E+00, 0.1098E+00, 0.1113E+00,& - 0.1127E+00, 0.1141E+00, 0.1156E+00, 0.1170E+00,& - 0.1185E+00, 0.1199E+00, 0.1214E+00, 0.1228E+00,& - 0.1243E+00, 0.1257E+00, 0.1272E+00, 0.1286E+00,& - 0.1300E+00, 0.1315E+00, 0.1329E+00, 0.1343E+00,& - 0.1358E+00, 0.1372E+00, 0.1387E+00, 0.1400E+00,& - 0.1415E+00, 0.1429E+00, 0.1444E+00, 0.1458E+00,& - 0.1472E+00, 0.1486E+00, 0.1500E+00, 0.1515E+00,& - 0.1529E+00, 0.1543E+00, 0.1557E+00, 0.1572E+00,& - 0.1586E+00, 0.1600E+00, 0.1614E+00, 0.1628E+00,& - 0.1643E+00, 0.1657E+00, 0.1671E+00, 0.1685E+00,& - 0.1699E+00, 0.1713E+00, 0.1728E+00, 0.1741E+00,& - 0.1756E+00, 0.1770E+00, 0.1784E+00, 0.1799E+00,& - 0.1812E+00, 0.1827E+00, 0.1841E+00, 0.1855E+00,& - 0.1869E+00, 0.1883E+00, 0.1897E+00, 0.1912E+00,& - 0.1925E+00, 0.1939E+00, 0.1954E+00, 0.1967E+00,& - 0.1982E+00, 0.1996E+00, 0.2010E+00, 0.2024E+00,& - 0.2038E+00, 0.2052E+00, 0.2067E+00, 0.2080E+00,& - 0.2095E+00, 0.2109E+00, 0.2123E+00, 0.2137E+00,& - 0.2151E+00, 0.2165E+00, 0.2180E+00, 0.2193E+00,& - 0.2208E+00, 0.2222E+00, 0.2236E+00, 0.2250E+00,& - 0.2264E+00, 0.2278E+00, 0.2293E+00, 0.2306E+00,& - 0.2321E+00, 0.2335E+00, 0.2349E+00, 0.2363E+00,& - 0.2377E+00, 0.2391E+00, 0.2406E+00, 0.2419E+00,& - 0.2434E+00, 0.2448E+00, 0.2462E+00, 0.2476E+00,& - 0.2490E+00, 0.2505E+00, 0.2519E+00, 0.2533E+00,& - 0.2547E+00, 0.2561E+00, 0.2575E+00, 0.2590E+00,& - 0.2604E+00, 0.2618E+00, 0.2632E+00, 0.2647E+00,& - 0.2661E+00, 0.2675E+00, 0.2689E+00, 0.2703E+00,& - 0.2718E+00, 0.2732E+00, 0.2746E+00, 0.2760E+00,& - 0.2775E+00, 0.2789E+00, 0.2803E+00, 0.2818E+00,& - 0.2831E+00, 0.2846E+00, 0.2860E+00, 0.2875E+00,& - 0.2889E+00, 0.2903E+00, 0.2918E+00, 0.2932E+00,& - 0.2946E+00, 0.2960E+00, 0.2975E+00, 0.2989E+00,& - 0.3004E+00, 0.3018E+00, 0.3033E+00, 0.3046E+00,& - 0.3061E+00, 0.3075E+00, 0.3090E+00, 0.3104E+00,& - 0.3119E+00, 0.3133E+00, 0.3148E+00, 0.3162E+00,& - 0.3176E+00, 0.3191E+00, 0.3205E+00, 0.3220E+00,& - 0.3234E+00, 0.3249E+00, 0.3263E+00, 0.3278E+00,& - 0.3292E+00, 0.3307E+00, 0.3321E+00, 0.3335E+00,& - 0.3350E+00, 0.3364E+00, 0.3379E+00, 0.3394E+00,& - 0.3408E+00, 0.3423E+00, 0.3437E+00, 0.3452E+00,& - 0.3466E+00, 0.3481E+00, 0.3496E+00, 0.3510E+00,& - 0.3525E+00, 0.3540E+00, 0.3554E+00, 0.3569E+00,& - 0.3584E+00, 0.3598E+00, 0.3613E+00, 0.3628E+00,& - 0.3642E+00, 0.3657E+00, 0.3672E+00, 0.3686E+00,& - 0.3701E+00, 0.3716E+00, 0.3731E+00, 0.3745E+00,& - 0.3761E+00, 0.3775E+00, 0.3790E+00, 0.3805E+00,& - 0.3820E+00, 0.3834E+00, 0.3849E+00, 0.3864E+00,& - 0.3879E+00, 0.3894E+00, 0.3908E+00, 0.3924E+00,& - 0.3939E+00, 0.3953E+00, 0.3968E+00, 0.3983E+00,& - 0.3998E+00, 0.4013E+00, 0.4028E+00, 0.4043E+00,& - 0.4058E+00, 0.4073E+00, 0.4088E+00, 0.4103E+00,& - 0.4118E+00, 0.4133E+00, 0.4148E+00, 0.4163E+00,& - 0.4178E+00, 0.4194E+00, 0.4209E+00, 0.4224E+00,& - 0.4239E+00, 0.4254E+00, 0.4269E+00, 0.4284E+00,& - 0.4299E+00, 0.4315E+00, 0.4330E+00, 0.4345E+00,& - 0.4360E+00, 0.4376E+00, 0.4391E+00, 0.4406E+00,& - 0.4422E+00, 0.4437E+00, 0.4452E+00, 0.4468E+00,& - 0.4483E+00, 0.4498E+00, 0.4514E+00, 0.4529E+00,& - 0.4544E+00, 0.4560E+00, 0.4575E+00, 0.4590E+00,& - 0.4606E+00, 0.4621E+00, 0.4637E+00, 0.4652E+00,& - 0.4668E+00, 0.4683E+00, 0.4699E+00, 0.4715E+00,& - 0.4730E+00, 0.4746E+00, 0.4761E+00, 0.4776E+00,& - 0.4792E+00, 0.4808E+00, 0.4824E+00, 0.4840E+00,& - 0.4855E+00, 0.4870E+00, 0.4886E+00, 0.4902E+00,& - 0.4918E+00, 0.4933E+00, 0.4949E+00, 0.4965E+00,& - 0.4981E+00, 0.4997E+00, 0.5012E+00, 0.5028E+00,& - 0.5044E+00, 0.5060E+00, 0.5075E+00, 0.5092E+00,& - 0.5108E+00, 0.5123E+00, 0.5139E+00, 0.5156E+00,& - 0.5171E+00, 0.5187E+00, 0.5204E+00, 0.5219E+00,& - 0.5235E+00, 0.5251E+00, 0.5267E+00, 0.5284E+00,& - 0.5299E+00, 0.5316E+00, 0.5332E+00, 0.5348E+00,& - 0.5364E+00, 0.5380E+00, 0.5397E+00, 0.5412E+00,& - 0.5429E+00, 0.5445E+00, 0.5461E+00, 0.5478E+00,& - 0.5494E+00, 0.5510E+00, 0.5527E+00, 0.5543E+00,& - 0.5559E+00, 0.5575E+00, 0.5592E+00, 0.5608E+00,& - 0.5625E+00, 0.5641E+00, 0.5658E+00, 0.5675E+00,& - 0.5691E+00, 0.5708E+00, 0.5724E+00, 0.5740E+00,& - 0.5757E+00, 0.5774E+00, 0.5790E+00, 0.5807E+00,& - 0.5824E+00, 0.5840E+00, 0.5857E+00, 0.5874E+00,& - 0.5890E+00, 0.5907E+00, 0.5924E+00, 0.5941E+00,& - 0.5957E+00, 0.5974E+00, 0.5991E+00, 0.6008E+00,& - 0.6025E+00, 0.6042E+00, 0.6058E+00, 0.6075E+00,& - 0.6093E+00, 0.6110E+00, 0.6127E+00, 0.6144E+00,& - 0.6161E+00, 0.6178E+00, 0.6195E+00, 0.6212E+00,& - 0.6229E+00, 0.6246E+00, 0.6263E+00, 0.6280E+00,& - 0.6298E+00, 0.6315E+00, 0.6332E+00, 0.6349E+00,& - 0.6367E+00, 0.6384E+00, 0.6401E+00, 0.6418E+00,& - 0.6436E+00, 0.6453E+00, 0.6471E+00, 0.6488E+00,& - 0.6506E+00, 0.6523E+00, 0.6541E+00, 0.6558E+00,& - 0.6576E+00, 0.6593E+00, 0.6611E+00, 0.6629E+00,& - 0.6646E+00, 0.6664E+00, 0.6681E+00, 0.6699E+00,& - 0.6717E+00, 0.6735E+00, 0.6752E+00, 0.6770E+00,& - 0.6788E+00, 0.6806E+00, 0.6824E+00, 0.6842E+00,& - 0.6859E+00, 0.6878E+00, 0.6896E+00, 0.6913E+00,& - 0.6932E+00, 0.6949E+00, 0.6968E+00, 0.6986E+00,& - 0.7004E+00, 0.7022E+00, 0.7040E+00, 0.7058E+00,& - 0.7076E+00, 0.7095E+00, 0.7113E+00, 0.7131E+00,& - 0.7150E+00, 0.7168E+00, 0.7186E+00, 0.7204E+00,& - 0.7223E+00, 0.7241E+00, 0.7260E+00, 0.7279E+00,& - 0.7297E+00, 0.7315E+00, 0.7334E+00, 0.7353E+00,& - 0.7371E+00, 0.7390E+00, 0.7409E+00, 0.7427E+00,& - 0.7446E+00, 0.7465E+00, 0.7484E+00, 0.7502E+00,& - 0.7521E+00, 0.7540E+00, 0.7559E+00, 0.7578E+00,& - 0.7597E+00, 0.7616E+00, 0.7635E+00, 0.7654E+00,& - 0.7673E+00, 0.7692E+00, 0.7711E+00, 0.7730E+00,& - 0.7749E+00, 0.7768E+00, 0.7787E+00, 0.7807E+00,& - 0.7826E+00, 0.7845E+00, 0.7865E+00, 0.7884E+00,& - 0.7903E+00, 0.7923E+00, 0.7942E+00, 0.7962E+00,& - 0.7981E+00, 0.8001E+00, 0.8020E+00, 0.8040E+00,& - 0.8060E+00, 0.8080E+00, 0.8099E+00, 0.8119E+00,& - 0.8139E+00, 0.8158E+00, 0.8178E+00, 0.8198E+00,& - 0.8218E+00, 0.8238E+00, 0.8258E+00, 0.8277E+00,& - 0.8298E+00, 0.8317E+00, 0.8338E+00, 0.8358E+00,& - 0.8378E+00, 0.8398E+00, 0.8419E+00, 0.8439E+00,& - 0.8459E+00, 0.8479E+00, 0.8499E+00, 0.8520E+00,& - 0.8540E+00, 0.8561E+00, 0.8582E+00, 0.8602E+00,& - 0.8622E+00, 0.8643E+00, 0.8664E+00, 0.8684E+00,& - 0.8705E+00, 0.8725E+00, 0.8747E+00, 0.8767E+00,& - 0.8788E+00, 0.8809E+00, 0.8830E+00, 0.8851E+00,& - 0.8871E+00, 0.8892E+00, 0.8913E+00, 0.8935E+00,& - 0.8956E+00, 0.8977E+00, 0.8998E+00, 0.9019E+00,& - 0.9041E+00, 0.9062E+00, 0.9084E+00, 0.9105E+00,& - 0.9126E+00, 0.9147E+00, 0.9169E+00, 0.9191E+00,& - 0.9212E+00, 0.9234E+00, 0.9256E+00, 0.9277E+00,& - 0.9299E+00, 0.9321E+00, 0.9342E+00, 0.9364E+00,& - 0.9387E+00, 0.9408E+00, 0.9430E+00, 0.9452E+00,& - 0.9475E+00, 0.9496E+00, 0.9519E+00, 0.9541E+00,& - 0.9563E+00, 0.9585E+00, 0.9607E+00, 0.9630E+00,& - 0.9652E+00, 0.9675E+00, 0.9697E+00, 0.9720E+00,& - 0.9742E+00, 0.9765E+00, 0.9787E+00, 0.9810E+00,& - 0.9833E+00, 0.9856E+00, 0.9879E+00, 0.9902E+00,& - 0.9925E+00, 0.9948E+00, 0.9971E+00, 0.9994E+00,& - 0.1002E+01, 0.1004E+01, 0.1006E+01, 0.1009E+01,& - 0.1011E+01, 0.1013E+01, 0.1016E+01, 0.1018E+01,& - 0.1020E+01, 0.1023E+01, 0.1025E+01, 0.1027E+01,& - 0.1030E+01, 0.1032E+01, 0.1035E+01, 0.1037E+01,& - 0.1039E+01, 0.1042E+01, 0.1044E+01, 0.1046E+01,& - 0.1049E+01, 0.1051E+01, 0.1054E+01, 0.1056E+01,& - 0.1059E+01, 0.1061E+01, 0.1063E+01, 0.1066E+01,& - 0.1068E+01, 0.1071E+01, 0.1073E+01, 0.1076E+01,& - 0.1078E+01, 0.1081E+01, 0.1083E+01, 0.1086E+01,& - 0.1088E+01, 0.1091E+01, 0.1093E+01, 0.1096E+01,& - 0.1098E+01, 0.1101E+01, 0.1103E+01, 0.1106E+01,& - 0.1108E+01, 0.1111E+01, 0.1113E+01, 0.1116E+01,& - 0.1118E+01, 0.1121E+01, 0.1124E+01, 0.1126E+01,& - 0.1129E+01, 0.1131E+01, 0.1134E+01, 0.1137E+01,& - 0.1139E+01, 0.1142E+01, 0.1144E+01, 0.1147E+01,& - 0.1150E+01, 0.1152E+01, 0.1155E+01, 0.1158E+01,& - 0.1160E+01, 0.1163E+01, 0.1166E+01, 0.1168E+01,& - 0.1171E+01, 0.1174E+01, 0.1176E+01, 0.1179E+01,& - 0.1182E+01, 0.1185E+01, 0.1187E+01, 0.1190E+01,& - 0.1193E+01, 0.1196E+01, 0.1198E+01, 0.1201E+01,& - 0.1204E+01, 0.1207E+01, 0.1209E+01, 0.1212E+01,& - 0.1215E+01, 0.1218E+01, 0.1221E+01, 0.1223E+01,& - 0.1226E+01, 0.1229E+01, 0.1232E+01, 0.1235E+01,& - 0.1238E+01, 0.1241E+01, 0.1243E+01, 0.1246E+01,& - 0.1249E+01, 0.1252E+01, 0.1255E+01, 0.1258E+01,& - 0.1261E+01, 0.1264E+01, 0.1267E+01, 0.1270E+01,& - 0.1273E+01, 0.1276E+01, 0.1279E+01, 0.1282E+01,& - 0.1285E+01, 0.1288E+01, 0.1291E+01, 0.1294E+01,& - 0.1297E+01, 0.1300E+01, 0.1303E+01, 0.1306E+01,& - 0.1309E+01, 0.1312E+01, 0.1315E+01, 0.1318E+01,& - 0.1321E+01, 0.1324E+01, 0.1327E+01, 0.1330E+01,& - 0.1334E+01, 0.1337E+01, 0.1340E+01, 0.1343E+01,& - 0.1346E+01, 0.1349E+01, 0.1353E+01, 0.1356E+01,& - 0.1359E+01, 0.1362E+01, 0.1365E+01, 0.1369E+01,& - 0.1372E+01, 0.1375E+01, 0.1378E+01, 0.1382E+01,& - 0.1385E+01, 0.1388E+01, 0.1392E+01, 0.1395E+01,& - 0.1398E+01, 0.1402E+01, 0.1405E+01, 0.1408E+01,& - 0.1412E+01, 0.1415E+01, 0.1419E+01, 0.1422E+01,& - 0.1426E+01, 0.1429E+01, 0.1432E+01, 0.1436E+01,& - 0.1439E+01, 0.1443E+01, 0.1446E+01, 0.1450E+01,& - 0.1453E+01, 0.1457E+01, 0.1460E+01, 0.1464E+01,& - 0.1468E+01, 0.1471E+01, 0.1475E+01, 0.1478E+01,& - 0.1482E+01, 0.1486E+01, 0.1489E+01, 0.1493E+01,& - 0.1497E+01, 0.1500E+01, 0.1504E+01, 0.1508E+01,& - 0.1512E+01, 0.1515E+01, 0.1519E+01, 0.1523E+01,& - 0.1527E+01, 0.1530E+01, 0.1534E+01, 0.1538E+01,& - 0.1542E+01, 0.1546E+01, 0.1550E+01, 0.1554E+01,& - 0.1558E+01, 0.1561E+01, 0.1565E+01, 0.1569E+01,& - 0.1573E+01, 0.1577E+01, 0.1581E+01, 0.1585E+01,& - 0.1589E+01, 0.1593E+01, 0.1598E+01, 0.1602E+01,& - 0.1606E+01, 0.1610E+01, 0.1614E+01, 0.1618E+01,& - 0.1622E+01, 0.1627E+01, 0.1631E+01, 0.1635E+01,& - 0.1639E+01, 0.1644E+01, 0.1648E+01, 0.1652E+01,& - 0.1657E+01, 0.1661E+01, 0.1665E+01, 0.1670E+01,& - 0.1674E+01, 0.1679E+01, 0.1683E+01, 0.1688E+01,& - 0.1692E+01, 0.1697E+01, 0.1701E+01, 0.1706E+01,& - 0.1710E+01, 0.1715E+01, 0.1720E+01, 0.1724E+01,& - 0.1729E+01, 0.1734E+01, 0.1738E+01, 0.1743E+01,& - 0.1748E+01, 0.1753E+01, 0.1757E+01, 0.1762E+01,& - 0.1767E+01, 0.1772E+01, 0.1777E+01, 0.1782E+01,& - 0.1787E+01, 0.1792E+01, 0.1797E+01, 0.1802E+01,& - 0.1807E+01, 0.1812E+01, 0.1817E+01, 0.1823E+01,& - 0.1828E+01, 0.1833E+01, 0.1838E+01, 0.1844E+01,& - 0.1849E+01, 0.1854E+01, 0.1860E+01, 0.1865E+01,& - 0.1871E+01, 0.1876E+01, 0.1881E+01, 0.1887E+01,& - 0.1893E+01, 0.1898E+01, 0.1904E+01, 0.1910E+01,& - 0.1915E+01, 0.1921E+01, 0.1927E+01, 0.1933E+01,& - 0.1939E+01, 0.1945E+01, 0.1950E+01, 0.1957E+01,& - 0.1963E+01, 0.1969E+01, 0.1975E+01, 0.1981E+01,& - 0.1987E+01, 0.1993E+01, 0.2000E+01, 0.2006E+01,& - 0.2012E+01, 0.2019E+01, 0.2025E+01, 0.2032E+01,& - 0.2038E+01, 0.2045E+01, 0.2052E+01, 0.2058E+01,& - 0.2065E+01, 0.2072E+01, 0.2079E+01, 0.2086E+01,& - 0.2093E+01, 0.2100E+01, 0.2107E+01, 0.2114E+01,& - 0.2121E+01, 0.2129E+01, 0.2136E+01, 0.2143E+01,& - 0.2151E+01, 0.2158E+01, 0.2166E+01, 0.2174E+01,& - 0.2182E+01, 0.2189E+01, 0.2197E+01, 0.2205E+01,& - 0.2213E+01, 0.2221E+01, 0.2230E+01, 0.2238E+01,& - 0.2246E+01, 0.2255E+01, 0.2263E+01, 0.2272E+01,& - 0.2281E+01, 0.2289E+01, 0.2298E+01, 0.2307E+01,& - 0.2316E+01, 0.2325E+01, 0.2335E+01, 0.2344E+01,& - 0.2354E+01, 0.2363E+01, 0.2373E+01, 0.2383E+01,& - 0.2393E+01, 0.2403E+01, 0.2413E+01, 0.2423E+01,& - 0.2434E+01, 0.2445E+01, 0.2455E+01, 0.2466E+01,& - 0.2477E+01, 0.2488E+01, 0.2500E+01, 0.2511E+01,& - 0.2523E+01, 0.2535E+01, 0.2547E+01, 0.2559E+01,& - 0.2572E+01, 0.2584E+01, 0.2597E+01, 0.2610E+01,& - 0.2623E+01, 0.2637E+01, 0.2651E+01, 0.2665E+01,& - 0.2679E+01, 0.2693E+01, 0.2708E+01, 0.2723E+01,& - 0.2739E+01, 0.2754E+01, 0.2770E+01, 0.2787E+01,& - 0.2803E+01, 0.2821E+01, 0.2838E+01, 0.2856E+01,& - 0.2874E+01, 0.2893E+01, 0.2912E+01, 0.2932E+01,& - 0.2953E+01, 0.2974E+01, 0.2995E+01, 0.3018E+01,& - 0.3041E+01, 0.3064E+01, 0.3089E+01, 0.3114E+01,& - 0.3141E+01, 0.3168E+01, 0.3197E+01, 0.3226E+01,& - 0.3257E+01, 0.3290E+01, 0.3324E+01, 0.3360E+01,& - 0.3398E+01, 0.3439E+01, 0.3482E+01, 0.3528E+01,& - 0.3577E+01, 0.3631E+01, 0.3689E+01, 0.3754E+01,& - 0.3826E+01, 0.3908E+01, 0.4003E+01, 0.4117E+01,& - 0.1000E-04, 0.2300E-02, 0.4321E-02, 0.6206E-02/) - xcw(:, 32) = (/& - 0.1000E-04, 0.2300E-02, 0.4321E-02, 0.6206E-02,& - 0.8025E-02, 0.9776E-02, 0.1146E-01, 0.1314E-01,& - 0.1483E-01, 0.1644E-01, 0.1806E-01, 0.1968E-01,& - 0.2129E-01, 0.2284E-01, 0.2439E-01, 0.2594E-01,& - 0.2749E-01, 0.2904E-01, 0.3059E-01, 0.3207E-01,& - 0.3355E-01, 0.3510E-01, 0.3658E-01, 0.3806E-01,& - 0.3955E-01, 0.4103E-01, 0.4251E-01, 0.4392E-01,& - 0.4541E-01, 0.4689E-01, 0.4830E-01, 0.4978E-01,& - 0.5120E-01, 0.5268E-01, 0.5409E-01, 0.5551E-01,& - 0.5699E-01, 0.5841E-01, 0.5982E-01, 0.6123E-01,& - 0.6265E-01, 0.6406E-01, 0.6548E-01, 0.6689E-01,& - 0.6831E-01, 0.6972E-01, 0.7113E-01, 0.7255E-01,& - 0.7396E-01, 0.7531E-01, 0.7673E-01, 0.7814E-01,& - 0.7955E-01, 0.8090E-01, 0.8232E-01, 0.8373E-01,& - 0.8508E-01, 0.8649E-01, 0.8791E-01, 0.8925E-01,& - 0.9067E-01, 0.9201E-01, 0.9343E-01, 0.9478E-01,& - 0.9619E-01, 0.9754E-01, 0.9895E-01, 0.1003E+00,& - 0.1017E+00, 0.1031E+00, 0.1045E+00, 0.1058E+00,& - 0.1072E+00, 0.1086E+00, 0.1099E+00, 0.1113E+00,& - 0.1127E+00, 0.1141E+00, 0.1155E+00, 0.1168E+00,& - 0.1182E+00, 0.1196E+00, 0.1209E+00, 0.1223E+00,& - 0.1237E+00, 0.1250E+00, 0.1264E+00, 0.1278E+00,& - 0.1291E+00, 0.1305E+00, 0.1319E+00, 0.1332E+00,& - 0.1346E+00, 0.1360E+00, 0.1373E+00, 0.1387E+00,& - 0.1401E+00, 0.1415E+00, 0.1428E+00, 0.1442E+00,& - 0.1456E+00, 0.1469E+00, 0.1483E+00, 0.1497E+00,& - 0.1510E+00, 0.1524E+00, 0.1538E+00, 0.1551E+00,& - 0.1565E+00, 0.1578E+00, 0.1592E+00, 0.1606E+00,& - 0.1619E+00, 0.1633E+00, 0.1647E+00, 0.1660E+00,& - 0.1674E+00, 0.1688E+00, 0.1701E+00, 0.1715E+00,& - 0.1729E+00, 0.1743E+00, 0.1756E+00, 0.1770E+00,& - 0.1784E+00, 0.1797E+00, 0.1811E+00, 0.1825E+00,& - 0.1838E+00, 0.1852E+00, 0.1866E+00, 0.1880E+00,& - 0.1893E+00, 0.1907E+00, 0.1921E+00, 0.1934E+00,& - 0.1948E+00, 0.1962E+00, 0.1976E+00, 0.1990E+00,& - 0.2003E+00, 0.2017E+00, 0.2031E+00, 0.2044E+00,& - 0.2058E+00, 0.2072E+00, 0.2086E+00, 0.2099E+00,& - 0.2114E+00, 0.2127E+00, 0.2141E+00, 0.2155E+00,& - 0.2169E+00, 0.2182E+00, 0.2196E+00, 0.2210E+00,& - 0.2224E+00, 0.2238E+00, 0.2252E+00, 0.2266E+00,& - 0.2279E+00, 0.2293E+00, 0.2307E+00, 0.2321E+00,& - 0.2335E+00, 0.2349E+00, 0.2363E+00, 0.2377E+00,& - 0.2390E+00, 0.2405E+00, 0.2419E+00, 0.2432E+00,& - 0.2446E+00, 0.2461E+00, 0.2475E+00, 0.2488E+00,& - 0.2502E+00, 0.2516E+00, 0.2531E+00, 0.2544E+00,& - 0.2558E+00, 0.2572E+00, 0.2586E+00, 0.2601E+00,& - 0.2614E+00, 0.2628E+00, 0.2642E+00, 0.2657E+00,& - 0.2671E+00, 0.2685E+00, 0.2699E+00, 0.2713E+00,& - 0.2727E+00, 0.2741E+00, 0.2756E+00, 0.2770E+00,& - 0.2784E+00, 0.2798E+00, 0.2812E+00, 0.2826E+00,& - 0.2840E+00, 0.2855E+00, 0.2869E+00, 0.2883E+00,& - 0.2897E+00, 0.2911E+00, 0.2925E+00, 0.2939E+00,& - 0.2954E+00, 0.2968E+00, 0.2982E+00, 0.2997E+00,& - 0.3011E+00, 0.3025E+00, 0.3040E+00, 0.3054E+00,& - 0.3068E+00, 0.3082E+00, 0.3097E+00, 0.3111E+00,& - 0.3125E+00, 0.3140E+00, 0.3154E+00, 0.3169E+00,& - 0.3183E+00, 0.3197E+00, 0.3212E+00, 0.3226E+00,& - 0.3241E+00, 0.3255E+00, 0.3270E+00, 0.3284E+00,& - 0.3299E+00, 0.3313E+00, 0.3328E+00, 0.3342E+00,& - 0.3357E+00, 0.3371E+00, 0.3386E+00, 0.3401E+00,& - 0.3415E+00, 0.3430E+00, 0.3445E+00, 0.3459E+00,& - 0.3474E+00, 0.3488E+00, 0.3503E+00, 0.3517E+00,& - 0.3532E+00, 0.3547E+00, 0.3562E+00, 0.3577E+00,& - 0.3591E+00, 0.3606E+00, 0.3620E+00, 0.3635E+00,& - 0.3650E+00, 0.3665E+00, 0.3680E+00, 0.3694E+00,& - 0.3709E+00, 0.3724E+00, 0.3739E+00, 0.3754E+00,& - 0.3769E+00, 0.3783E+00, 0.3799E+00, 0.3814E+00,& - 0.3828E+00, 0.3843E+00, 0.3858E+00, 0.3873E+00,& - 0.3888E+00, 0.3903E+00, 0.3918E+00, 0.3933E+00,& - 0.3948E+00, 0.3963E+00, 0.3978E+00, 0.3993E+00,& - 0.4008E+00, 0.4024E+00, 0.4039E+00, 0.4054E+00,& - 0.4069E+00, 0.4084E+00, 0.4099E+00, 0.4115E+00,& - 0.4130E+00, 0.4145E+00, 0.4160E+00, 0.4175E+00,& - 0.4191E+00, 0.4206E+00, 0.4221E+00, 0.4237E+00,& - 0.4251E+00, 0.4267E+00, 0.4282E+00, 0.4298E+00,& - 0.4313E+00, 0.4328E+00, 0.4344E+00, 0.4359E+00,& - 0.4375E+00, 0.4390E+00, 0.4406E+00, 0.4421E+00,& - 0.4437E+00, 0.4452E+00, 0.4468E+00, 0.4483E+00,& - 0.4499E+00, 0.4514E+00, 0.4530E+00, 0.4545E+00,& - 0.4561E+00, 0.4577E+00, 0.4592E+00, 0.4608E+00,& - 0.4624E+00, 0.4639E+00, 0.4655E+00, 0.4671E+00,& - 0.4687E+00, 0.4702E+00, 0.4718E+00, 0.4734E+00,& - 0.4750E+00, 0.4765E+00, 0.4782E+00, 0.4797E+00,& - 0.4813E+00, 0.4829E+00, 0.4845E+00, 0.4861E+00,& - 0.4876E+00, 0.4893E+00, 0.4909E+00, 0.4924E+00,& - 0.4940E+00, 0.4957E+00, 0.4973E+00, 0.4989E+00,& - 0.5005E+00, 0.5021E+00, 0.5037E+00, 0.5053E+00,& - 0.5069E+00, 0.5085E+00, 0.5101E+00, 0.5118E+00,& - 0.5134E+00, 0.5151E+00, 0.5167E+00, 0.5183E+00,& - 0.5199E+00, 0.5215E+00, 0.5231E+00, 0.5248E+00,& - 0.5264E+00, 0.5281E+00, 0.5297E+00, 0.5314E+00,& - 0.5330E+00, 0.5347E+00, 0.5363E+00, 0.5380E+00,& - 0.5396E+00, 0.5413E+00, 0.5429E+00, 0.5446E+00,& - 0.5462E+00, 0.5479E+00, 0.5495E+00, 0.5512E+00,& - 0.5529E+00, 0.5545E+00, 0.5562E+00, 0.5579E+00,& - 0.5596E+00, 0.5613E+00, 0.5629E+00, 0.5646E+00,& - 0.5663E+00, 0.5680E+00, 0.5697E+00, 0.5714E+00,& - 0.5731E+00, 0.5747E+00, 0.5764E+00, 0.5782E+00,& - 0.5799E+00, 0.5815E+00, 0.5832E+00, 0.5850E+00,& - 0.5867E+00, 0.5883E+00, 0.5901E+00, 0.5918E+00,& - 0.5935E+00, 0.5952E+00, 0.5970E+00, 0.5987E+00,& - 0.6004E+00, 0.6021E+00, 0.6038E+00, 0.6056E+00,& - 0.6073E+00, 0.6091E+00, 0.6108E+00, 0.6125E+00,& - 0.6143E+00, 0.6160E+00, 0.6178E+00, 0.6195E+00,& - 0.6213E+00, 0.6230E+00, 0.6248E+00, 0.6265E+00,& - 0.6283E+00, 0.6301E+00, 0.6319E+00, 0.6336E+00,& - 0.6354E+00, 0.6372E+00, 0.6389E+00, 0.6407E+00,& - 0.6425E+00, 0.6442E+00, 0.6461E+00, 0.6479E+00,& - 0.6496E+00, 0.6514E+00, 0.6532E+00, 0.6550E+00,& - 0.6568E+00, 0.6586E+00, 0.6604E+00, 0.6622E+00,& - 0.6640E+00, 0.6659E+00, 0.6677E+00, 0.6695E+00,& - 0.6713E+00, 0.6731E+00, 0.6750E+00, 0.6768E+00,& - 0.6786E+00, 0.6804E+00, 0.6823E+00, 0.6841E+00,& - 0.6859E+00, 0.6878E+00, 0.6896E+00, 0.6915E+00,& - 0.6933E+00, 0.6952E+00, 0.6970E+00, 0.6989E+00,& - 0.7008E+00, 0.7026E+00, 0.7045E+00, 0.7063E+00,& - 0.7082E+00, 0.7101E+00, 0.7120E+00, 0.7139E+00,& - 0.7158E+00, 0.7177E+00, 0.7195E+00, 0.7214E+00,& - 0.7233E+00, 0.7252E+00, 0.7272E+00, 0.7290E+00,& - 0.7309E+00, 0.7328E+00, 0.7348E+00, 0.7367E+00,& - 0.7386E+00, 0.7405E+00, 0.7424E+00, 0.7443E+00,& - 0.7463E+00, 0.7482E+00, 0.7501E+00, 0.7521E+00,& - 0.7540E+00, 0.7560E+00, 0.7579E+00, 0.7599E+00,& - 0.7618E+00, 0.7638E+00, 0.7657E+00, 0.7677E+00,& - 0.7697E+00, 0.7716E+00, 0.7736E+00, 0.7756E+00,& - 0.7775E+00, 0.7796E+00, 0.7815E+00, 0.7835E+00,& - 0.7855E+00, 0.7875E+00, 0.7895E+00, 0.7915E+00,& - 0.7935E+00, 0.7955E+00, 0.7975E+00, 0.7996E+00,& - 0.8016E+00, 0.8036E+00, 0.8056E+00, 0.8076E+00,& - 0.8097E+00, 0.8117E+00, 0.8137E+00, 0.8158E+00,& - 0.8178E+00, 0.8198E+00, 0.8219E+00, 0.8239E+00,& - 0.8260E+00, 0.8280E+00, 0.8301E+00, 0.8322E+00,& - 0.8343E+00, 0.8363E+00, 0.8384E+00, 0.8405E+00,& - 0.8426E+00, 0.8447E+00, 0.8468E+00, 0.8489E+00,& - 0.8510E+00, 0.8531E+00, 0.8552E+00, 0.8573E+00,& - 0.8594E+00, 0.8615E+00, 0.8637E+00, 0.8658E+00,& - 0.8679E+00, 0.8701E+00, 0.8722E+00, 0.8743E+00,& - 0.8765E+00, 0.8786E+00, 0.8808E+00, 0.8829E+00,& - 0.8851E+00, 0.8873E+00, 0.8894E+00, 0.8916E+00,& - 0.8938E+00, 0.8959E+00, 0.8982E+00, 0.9003E+00,& - 0.9025E+00, 0.9047E+00, 0.9069E+00, 0.9091E+00,& - 0.9114E+00, 0.9136E+00, 0.9157E+00, 0.9180E+00,& - 0.9202E+00, 0.9225E+00, 0.9247E+00, 0.9269E+00,& - 0.9291E+00, 0.9314E+00, 0.9337E+00, 0.9359E+00,& - 0.9382E+00, 0.9405E+00, 0.9428E+00, 0.9450E+00,& - 0.9473E+00, 0.9496E+00, 0.9518E+00, 0.9541E+00,& - 0.9564E+00, 0.9587E+00, 0.9610E+00, 0.9634E+00,& - 0.9657E+00, 0.9680E+00, 0.9703E+00, 0.9727E+00,& - 0.9749E+00, 0.9773E+00, 0.9797E+00, 0.9820E+00,& - 0.9843E+00, 0.9867E+00, 0.9891E+00, 0.9914E+00,& - 0.9938E+00, 0.9962E+00, 0.9986E+00, 0.1001E+01,& - 0.1003E+01, 0.1006E+01, 0.1008E+01, 0.1011E+01,& - 0.1013E+01, 0.1015E+01, 0.1018E+01, 0.1020E+01,& - 0.1023E+01, 0.1025E+01, 0.1028E+01, 0.1030E+01,& - 0.1032E+01, 0.1035E+01, 0.1037E+01, 0.1040E+01,& - 0.1042E+01, 0.1045E+01, 0.1047E+01, 0.1050E+01,& - 0.1052E+01, 0.1055E+01, 0.1057E+01, 0.1060E+01,& - 0.1062E+01, 0.1065E+01, 0.1067E+01, 0.1070E+01,& - 0.1072E+01, 0.1075E+01, 0.1078E+01, 0.1080E+01,& - 0.1083E+01, 0.1085E+01, 0.1088E+01, 0.1090E+01,& - 0.1093E+01, 0.1096E+01, 0.1098E+01, 0.1101E+01,& - 0.1103E+01, 0.1106E+01, 0.1109E+01, 0.1111E+01,& - 0.1114E+01, 0.1117E+01, 0.1119E+01, 0.1122E+01,& - 0.1124E+01, 0.1127E+01, 0.1130E+01, 0.1132E+01,& - 0.1135E+01, 0.1138E+01, 0.1141E+01, 0.1143E+01,& - 0.1146E+01, 0.1149E+01, 0.1151E+01, 0.1154E+01,& - 0.1157E+01, 0.1160E+01, 0.1162E+01, 0.1165E+01,& - 0.1168E+01, 0.1171E+01, 0.1174E+01, 0.1176E+01,& - 0.1179E+01, 0.1182E+01, 0.1185E+01, 0.1188E+01,& - 0.1190E+01, 0.1193E+01, 0.1196E+01, 0.1199E+01,& - 0.1202E+01, 0.1205E+01, 0.1208E+01, 0.1210E+01,& - 0.1213E+01, 0.1216E+01, 0.1219E+01, 0.1222E+01,& - 0.1225E+01, 0.1228E+01, 0.1231E+01, 0.1234E+01,& - 0.1237E+01, 0.1240E+01, 0.1243E+01, 0.1246E+01,& - 0.1249E+01, 0.1252E+01, 0.1255E+01, 0.1258E+01,& - 0.1261E+01, 0.1264E+01, 0.1267E+01, 0.1270E+01,& - 0.1273E+01, 0.1276E+01, 0.1279E+01, 0.1282E+01,& - 0.1285E+01, 0.1288E+01, 0.1291E+01, 0.1294E+01,& - 0.1297E+01, 0.1301E+01, 0.1304E+01, 0.1307E+01,& - 0.1310E+01, 0.1313E+01, 0.1316E+01, 0.1320E+01,& - 0.1323E+01, 0.1326E+01, 0.1329E+01, 0.1332E+01,& - 0.1336E+01, 0.1339E+01, 0.1342E+01, 0.1345E+01,& - 0.1349E+01, 0.1352E+01, 0.1355E+01, 0.1359E+01,& - 0.1362E+01, 0.1365E+01, 0.1369E+01, 0.1372E+01,& - 0.1375E+01, 0.1379E+01, 0.1382E+01, 0.1385E+01,& - 0.1389E+01, 0.1392E+01, 0.1396E+01, 0.1399E+01,& - 0.1403E+01, 0.1406E+01, 0.1410E+01, 0.1413E+01,& - 0.1417E+01, 0.1420E+01, 0.1424E+01, 0.1427E+01,& - 0.1431E+01, 0.1434E+01, 0.1438E+01, 0.1441E+01,& - 0.1445E+01, 0.1449E+01, 0.1452E+01, 0.1456E+01,& - 0.1459E+01, 0.1463E+01, 0.1467E+01, 0.1470E+01,& - 0.1474E+01, 0.1478E+01, 0.1482E+01, 0.1485E+01,& - 0.1489E+01, 0.1493E+01, 0.1497E+01, 0.1500E+01,& - 0.1504E+01, 0.1508E+01, 0.1512E+01, 0.1516E+01,& - 0.1520E+01, 0.1524E+01, 0.1527E+01, 0.1531E+01,& - 0.1535E+01, 0.1539E+01, 0.1543E+01, 0.1547E+01,& - 0.1551E+01, 0.1555E+01, 0.1559E+01, 0.1563E+01,& - 0.1567E+01, 0.1571E+01, 0.1575E+01, 0.1580E+01,& - 0.1584E+01, 0.1588E+01, 0.1592E+01, 0.1596E+01,& - 0.1600E+01, 0.1605E+01, 0.1609E+01, 0.1613E+01,& - 0.1617E+01, 0.1622E+01, 0.1626E+01, 0.1630E+01,& - 0.1635E+01, 0.1639E+01, 0.1643E+01, 0.1648E+01,& - 0.1652E+01, 0.1657E+01, 0.1661E+01, 0.1665E+01,& - 0.1670E+01, 0.1674E+01, 0.1679E+01, 0.1684E+01,& - 0.1688E+01, 0.1693E+01, 0.1697E+01, 0.1702E+01,& - 0.1707E+01, 0.1711E+01, 0.1716E+01, 0.1721E+01,& - 0.1726E+01, 0.1730E+01, 0.1735E+01, 0.1740E+01,& - 0.1745E+01, 0.1750E+01, 0.1755E+01, 0.1760E+01,& - 0.1765E+01, 0.1770E+01, 0.1775E+01, 0.1780E+01,& - 0.1785E+01, 0.1790E+01, 0.1795E+01, 0.1800E+01,& - 0.1805E+01, 0.1810E+01, 0.1816E+01, 0.1821E+01,& - 0.1826E+01, 0.1831E+01, 0.1837E+01, 0.1842E+01,& - 0.1848E+01, 0.1853E+01, 0.1858E+01, 0.1864E+01,& - 0.1870E+01, 0.1875E+01, 0.1881E+01, 0.1886E+01,& - 0.1892E+01, 0.1898E+01, 0.1903E+01, 0.1909E+01,& - 0.1915E+01, 0.1921E+01, 0.1927E+01, 0.1933E+01,& - 0.1939E+01, 0.1945E+01, 0.1951E+01, 0.1957E+01,& - 0.1963E+01, 0.1969E+01, 0.1975E+01, 0.1981E+01,& - 0.1988E+01, 0.1994E+01, 0.2000E+01, 0.2007E+01,& - 0.2013E+01, 0.2020E+01, 0.2026E+01, 0.2033E+01,& - 0.2039E+01, 0.2046E+01, 0.2053E+01, 0.2060E+01,& - 0.2067E+01, 0.2073E+01, 0.2080E+01, 0.2087E+01,& - 0.2094E+01, 0.2102E+01, 0.2109E+01, 0.2116E+01,& - 0.2123E+01, 0.2131E+01, 0.2138E+01, 0.2145E+01,& - 0.2153E+01, 0.2160E+01, 0.2168E+01, 0.2176E+01,& - 0.2184E+01, 0.2192E+01, 0.2199E+01, 0.2207E+01,& - 0.2216E+01, 0.2224E+01, 0.2232E+01, 0.2240E+01,& - 0.2249E+01, 0.2257E+01, 0.2266E+01, 0.2274E+01,& - 0.2283E+01, 0.2292E+01, 0.2301E+01, 0.2309E+01,& - 0.2319E+01, 0.2328E+01, 0.2337E+01, 0.2346E+01,& - 0.2356E+01, 0.2365E+01, 0.2375E+01, 0.2385E+01,& - 0.2395E+01, 0.2405E+01, 0.2415E+01, 0.2425E+01,& - 0.2436E+01, 0.2446E+01, 0.2457E+01, 0.2468E+01,& - 0.2478E+01, 0.2490E+01, 0.2501E+01, 0.2512E+01,& - 0.2524E+01, 0.2535E+01, 0.2547E+01, 0.2559E+01,& - 0.2571E+01, 0.2584E+01, 0.2596E+01, 0.2609E+01,& - 0.2622E+01, 0.2635E+01, 0.2649E+01, 0.2662E+01,& - 0.2676E+01, 0.2690E+01, 0.2704E+01, 0.2719E+01,& - 0.2734E+01, 0.2749E+01, 0.2764E+01, 0.2780E+01,& - 0.2796E+01, 0.2813E+01, 0.2829E+01, 0.2846E+01,& - 0.2864E+01, 0.2882E+01, 0.2900E+01, 0.2919E+01,& - 0.2938E+01, 0.2957E+01, 0.2978E+01, 0.2998E+01,& - 0.3020E+01, 0.3042E+01, 0.3064E+01, 0.3087E+01,& - 0.3111E+01, 0.3136E+01, 0.3162E+01, 0.3188E+01,& - 0.3216E+01, 0.3244E+01, 0.3274E+01, 0.3305E+01,& - 0.3338E+01, 0.3372E+01, 0.3407E+01, 0.3445E+01,& - 0.3485E+01, 0.3527E+01, 0.3572E+01, 0.3620E+01,& - 0.3671E+01, 0.3728E+01, 0.3789E+01, 0.3856E+01,& - 0.3932E+01, 0.4017E+01, 0.4116E+01, 0.4235E+01,& - 0.1000E-04, 0.1736E-02, 0.3255E-02, 0.4843E-02/) - xcw(:, 33) = (/& - 0.1000E-04, 0.1736E-02, 0.3255E-02, 0.4843E-02,& - 0.6293E-02, 0.7743E-02, 0.9193E-02, 0.1064E-01,& - 0.1209E-01, 0.1347E-01, 0.1485E-01, 0.1630E-01,& - 0.1769E-01, 0.1907E-01, 0.2045E-01, 0.2176E-01,& - 0.2314E-01, 0.2452E-01, 0.2583E-01, 0.2721E-01,& - 0.2853E-01, 0.2991E-01, 0.3122E-01, 0.3260E-01,& - 0.3391E-01, 0.3522E-01, 0.3660E-01, 0.3792E-01,& - 0.3923E-01, 0.4054E-01, 0.4185E-01, 0.4323E-01,& - 0.4454E-01, 0.4586E-01, 0.4717E-01, 0.4848E-01,& - 0.4979E-01, 0.5110E-01, 0.5242E-01, 0.5373E-01,& - 0.5504E-01, 0.5635E-01, 0.5766E-01, 0.5898E-01,& - 0.6029E-01, 0.6160E-01, 0.6291E-01, 0.6422E-01,& - 0.6547E-01, 0.6678E-01, 0.6809E-01, 0.6940E-01,& - 0.7071E-01, 0.7202E-01, 0.7334E-01, 0.7465E-01,& - 0.7589E-01, 0.7720E-01, 0.7852E-01, 0.7983E-01,& - 0.8114E-01, 0.8245E-01, 0.8369E-01, 0.8501E-01,& - 0.8632E-01, 0.8763E-01, 0.8894E-01, 0.9025E-01,& - 0.9150E-01, 0.9281E-01, 0.9412E-01, 0.9543E-01,& - 0.9674E-01, 0.9806E-01, 0.9937E-01, 0.1006E+00,& - 0.1019E+00, 0.1032E+00, 0.1045E+00, 0.1059E+00,& - 0.1072E+00, 0.1085E+00, 0.1097E+00, 0.1110E+00,& - 0.1123E+00, 0.1137E+00, 0.1150E+00, 0.1163E+00,& - 0.1176E+00, 0.1189E+00, 0.1202E+00, 0.1215E+00,& - 0.1228E+00, 0.1241E+00, 0.1254E+00, 0.1267E+00,& - 0.1280E+00, 0.1293E+00, 0.1306E+00, 0.1320E+00,& - 0.1333E+00, 0.1346E+00, 0.1359E+00, 0.1372E+00,& - 0.1385E+00, 0.1398E+00, 0.1411E+00, 0.1425E+00,& - 0.1438E+00, 0.1451E+00, 0.1464E+00, 0.1477E+00,& - 0.1490E+00, 0.1504E+00, 0.1517E+00, 0.1530E+00,& - 0.1543E+00, 0.1556E+00, 0.1570E+00, 0.1583E+00,& - 0.1596E+00, 0.1610E+00, 0.1623E+00, 0.1636E+00,& - 0.1649E+00, 0.1662E+00, 0.1676E+00, 0.1689E+00,& - 0.1702E+00, 0.1715E+00, 0.1728E+00, 0.1742E+00,& - 0.1755E+00, 0.1768E+00, 0.1782E+00, 0.1795E+00,& - 0.1808E+00, 0.1822E+00, 0.1835E+00, 0.1848E+00,& - 0.1862E+00, 0.1875E+00, 0.1889E+00, 0.1902E+00,& - 0.1915E+00, 0.1929E+00, 0.1942E+00, 0.1956E+00,& - 0.1969E+00, 0.1982E+00, 0.1996E+00, 0.2009E+00,& - 0.2023E+00, 0.2037E+00, 0.2050E+00, 0.2064E+00,& - 0.2077E+00, 0.2091E+00, 0.2104E+00, 0.2118E+00,& - 0.2132E+00, 0.2145E+00, 0.2158E+00, 0.2172E+00,& - 0.2185E+00, 0.2199E+00, 0.2213E+00, 0.2226E+00,& - 0.2240E+00, 0.2254E+00, 0.2268E+00, 0.2281E+00,& - 0.2294E+00, 0.2308E+00, 0.2322E+00, 0.2336E+00,& - 0.2350E+00, 0.2363E+00, 0.2377E+00, 0.2390E+00,& - 0.2404E+00, 0.2418E+00, 0.2432E+00, 0.2446E+00,& - 0.2460E+00, 0.2473E+00, 0.2487E+00, 0.2501E+00,& - 0.2515E+00, 0.2529E+00, 0.2542E+00, 0.2556E+00,& - 0.2570E+00, 0.2584E+00, 0.2598E+00, 0.2612E+00,& - 0.2626E+00, 0.2640E+00, 0.2654E+00, 0.2667E+00,& - 0.2682E+00, 0.2696E+00, 0.2709E+00, 0.2723E+00,& - 0.2738E+00, 0.2752E+00, 0.2765E+00, 0.2780E+00,& - 0.2794E+00, 0.2808E+00, 0.2822E+00, 0.2836E+00,& - 0.2850E+00, 0.2864E+00, 0.2879E+00, 0.2892E+00,& - 0.2907E+00, 0.2921E+00, 0.2935E+00, 0.2949E+00,& - 0.2964E+00, 0.2978E+00, 0.2992E+00, 0.3006E+00,& - 0.3020E+00, 0.3035E+00, 0.3049E+00, 0.3063E+00,& - 0.3077E+00, 0.3092E+00, 0.3106E+00, 0.3121E+00,& - 0.3135E+00, 0.3149E+00, 0.3164E+00, 0.3178E+00,& - 0.3193E+00, 0.3207E+00, 0.3222E+00, 0.3236E+00,& - 0.3250E+00, 0.3265E+00, 0.3279E+00, 0.3294E+00,& - 0.3308E+00, 0.3323E+00, 0.3338E+00, 0.3352E+00,& - 0.3367E+00, 0.3381E+00, 0.3396E+00, 0.3410E+00,& - 0.3425E+00, 0.3440E+00, 0.3454E+00, 0.3469E+00,& - 0.3483E+00, 0.3499E+00, 0.3513E+00, 0.3528E+00,& - 0.3543E+00, 0.3557E+00, 0.3573E+00, 0.3587E+00,& - 0.3602E+00, 0.3617E+00, 0.3631E+00, 0.3646E+00,& - 0.3661E+00, 0.3676E+00, 0.3691E+00, 0.3706E+00,& - 0.3721E+00, 0.3735E+00, 0.3751E+00, 0.3766E+00,& - 0.3781E+00, 0.3796E+00, 0.3811E+00, 0.3826E+00,& - 0.3841E+00, 0.3856E+00, 0.3871E+00, 0.3886E+00,& - 0.3901E+00, 0.3916E+00, 0.3932E+00, 0.3947E+00,& - 0.3962E+00, 0.3977E+00, 0.3992E+00, 0.4008E+00,& - 0.4023E+00, 0.4038E+00, 0.4053E+00, 0.4068E+00,& - 0.4084E+00, 0.4099E+00, 0.4115E+00, 0.4130E+00,& - 0.4145E+00, 0.4161E+00, 0.4176E+00, 0.4191E+00,& - 0.4207E+00, 0.4222E+00, 0.4238E+00, 0.4253E+00,& - 0.4269E+00, 0.4284E+00, 0.4300E+00, 0.4315E+00,& - 0.4331E+00, 0.4347E+00, 0.4362E+00, 0.4378E+00,& - 0.4393E+00, 0.4409E+00, 0.4425E+00, 0.4440E+00,& - 0.4456E+00, 0.4472E+00, 0.4488E+00, 0.4503E+00,& - 0.4519E+00, 0.4535E+00, 0.4551E+00, 0.4567E+00,& - 0.4583E+00, 0.4599E+00, 0.4614E+00, 0.4630E+00,& - 0.4646E+00, 0.4662E+00, 0.4678E+00, 0.4695E+00,& - 0.4710E+00, 0.4726E+00, 0.4742E+00, 0.4759E+00,& - 0.4775E+00, 0.4791E+00, 0.4807E+00, 0.4823E+00,& - 0.4839E+00, 0.4855E+00, 0.4871E+00, 0.4888E+00,& - 0.4904E+00, 0.4920E+00, 0.4936E+00, 0.4953E+00,& - 0.4969E+00, 0.4985E+00, 0.5002E+00, 0.5018E+00,& - 0.5034E+00, 0.5051E+00, 0.5067E+00, 0.5084E+00,& - 0.5101E+00, 0.5117E+00, 0.5134E+00, 0.5150E+00,& - 0.5167E+00, 0.5183E+00, 0.5200E+00, 0.5217E+00,& - 0.5233E+00, 0.5250E+00, 0.5266E+00, 0.5283E+00,& - 0.5300E+00, 0.5317E+00, 0.5333E+00, 0.5350E+00,& - 0.5367E+00, 0.5384E+00, 0.5401E+00, 0.5417E+00,& - 0.5434E+00, 0.5451E+00, 0.5469E+00, 0.5485E+00,& - 0.5502E+00, 0.5519E+00, 0.5536E+00, 0.5553E+00,& - 0.5570E+00, 0.5587E+00, 0.5605E+00, 0.5622E+00,& - 0.5639E+00, 0.5656E+00, 0.5674E+00, 0.5690E+00,& - 0.5707E+00, 0.5725E+00, 0.5743E+00, 0.5760E+00,& - 0.5777E+00, 0.5794E+00, 0.5812E+00, 0.5829E+00,& - 0.5847E+00, 0.5864E+00, 0.5881E+00, 0.5899E+00,& - 0.5917E+00, 0.5935E+00, 0.5952E+00, 0.5969E+00,& - 0.5987E+00, 0.6005E+00, 0.6022E+00, 0.6040E+00,& - 0.6058E+00, 0.6075E+00, 0.6093E+00, 0.6111E+00,& - 0.6129E+00, 0.6147E+00, 0.6165E+00, 0.6182E+00,& - 0.6200E+00, 0.6218E+00, 0.6236E+00, 0.6254E+00,& - 0.6273E+00, 0.6291E+00, 0.6309E+00, 0.6327E+00,& - 0.6345E+00, 0.6363E+00, 0.6381E+00, 0.6400E+00,& - 0.6418E+00, 0.6436E+00, 0.6455E+00, 0.6472E+00,& - 0.6491E+00, 0.6510E+00, 0.6528E+00, 0.6546E+00,& - 0.6565E+00, 0.6583E+00, 0.6602E+00, 0.6620E+00,& - 0.6639E+00, 0.6658E+00, 0.6676E+00, 0.6695E+00,& - 0.6713E+00, 0.6732E+00, 0.6751E+00, 0.6769E+00,& - 0.6789E+00, 0.6807E+00, 0.6826E+00, 0.6845E+00,& - 0.6864E+00, 0.6883E+00, 0.6902E+00, 0.6921E+00,& - 0.6940E+00, 0.6959E+00, 0.6978E+00, 0.6997E+00,& - 0.7016E+00, 0.7035E+00, 0.7055E+00, 0.7074E+00,& - 0.7093E+00, 0.7113E+00, 0.7132E+00, 0.7151E+00,& - 0.7171E+00, 0.7190E+00, 0.7209E+00, 0.7229E+00,& - 0.7249E+00, 0.7268E+00, 0.7287E+00, 0.7307E+00,& - 0.7327E+00, 0.7346E+00, 0.7366E+00, 0.7386E+00,& - 0.7405E+00, 0.7425E+00, 0.7445E+00, 0.7465E+00,& - 0.7485E+00, 0.7505E+00, 0.7525E+00, 0.7545E+00,& - 0.7565E+00, 0.7585E+00, 0.7605E+00, 0.7625E+00,& - 0.7645E+00, 0.7665E+00, 0.7686E+00, 0.7706E+00,& - 0.7726E+00, 0.7746E+00, 0.7766E+00, 0.7787E+00,& - 0.7807E+00, 0.7828E+00, 0.7849E+00, 0.7869E+00,& - 0.7889E+00, 0.7910E+00, 0.7931E+00, 0.7951E+00,& - 0.7972E+00, 0.7993E+00, 0.8014E+00, 0.8034E+00,& - 0.8055E+00, 0.8076E+00, 0.8097E+00, 0.8118E+00,& - 0.8139E+00, 0.8160E+00, 0.8181E+00, 0.8202E+00,& - 0.8223E+00, 0.8244E+00, 0.8266E+00, 0.8287E+00,& - 0.8308E+00, 0.8330E+00, 0.8351E+00, 0.8373E+00,& - 0.8394E+00, 0.8415E+00, 0.8437E+00, 0.8458E+00,& - 0.8480E+00, 0.8502E+00, 0.8523E+00, 0.8545E+00,& - 0.8567E+00, 0.8589E+00, 0.8610E+00, 0.8632E+00,& - 0.8654E+00, 0.8676E+00, 0.8698E+00, 0.8720E+00,& - 0.8742E+00, 0.8764E+00, 0.8787E+00, 0.8809E+00,& - 0.8831E+00, 0.8853E+00, 0.8876E+00, 0.8898E+00,& - 0.8921E+00, 0.8943E+00, 0.8966E+00, 0.8988E+00,& - 0.9011E+00, 0.9033E+00, 0.9056E+00, 0.9079E+00,& - 0.9102E+00, 0.9125E+00, 0.9147E+00, 0.9170E+00,& - 0.9193E+00, 0.9216E+00, 0.9239E+00, 0.9262E+00,& - 0.9285E+00, 0.9308E+00, 0.9332E+00, 0.9355E+00,& - 0.9379E+00, 0.9401E+00, 0.9425E+00, 0.9448E+00,& - 0.9472E+00, 0.9495E+00, 0.9519E+00, 0.9543E+00,& - 0.9566E+00, 0.9591E+00, 0.9614E+00, 0.9638E+00,& - 0.9662E+00, 0.9686E+00, 0.9710E+00, 0.9734E+00,& - 0.9758E+00, 0.9782E+00, 0.9807E+00, 0.9831E+00,& - 0.9855E+00, 0.9879E+00, 0.9903E+00, 0.9928E+00,& - 0.9952E+00, 0.9977E+00, 0.1000E+01, 0.1003E+01,& - 0.1005E+01, 0.1008E+01, 0.1010E+01, 0.1013E+01,& - 0.1015E+01, 0.1018E+01, 0.1020E+01, 0.1023E+01,& - 0.1025E+01, 0.1028E+01, 0.1030E+01, 0.1033E+01,& - 0.1035E+01, 0.1038E+01, 0.1040E+01, 0.1043E+01,& - 0.1045E+01, 0.1048E+01, 0.1051E+01, 0.1053E+01,& - 0.1056E+01, 0.1058E+01, 0.1061E+01, 0.1064E+01,& - 0.1066E+01, 0.1069E+01, 0.1071E+01, 0.1074E+01,& - 0.1077E+01, 0.1079E+01, 0.1082E+01, 0.1085E+01,& - 0.1087E+01, 0.1090E+01, 0.1093E+01, 0.1095E+01,& - 0.1098E+01, 0.1101E+01, 0.1103E+01, 0.1106E+01,& - 0.1109E+01, 0.1111E+01, 0.1114E+01, 0.1117E+01,& - 0.1120E+01, 0.1122E+01, 0.1125E+01, 0.1128E+01,& - 0.1131E+01, 0.1133E+01, 0.1136E+01, 0.1139E+01,& - 0.1142E+01, 0.1145E+01, 0.1147E+01, 0.1150E+01,& - 0.1153E+01, 0.1156E+01, 0.1159E+01, 0.1162E+01,& - 0.1164E+01, 0.1167E+01, 0.1170E+01, 0.1173E+01,& - 0.1176E+01, 0.1179E+01, 0.1182E+01, 0.1185E+01,& - 0.1187E+01, 0.1190E+01, 0.1193E+01, 0.1196E+01,& - 0.1199E+01, 0.1202E+01, 0.1205E+01, 0.1208E+01,& - 0.1211E+01, 0.1214E+01, 0.1217E+01, 0.1220E+01,& - 0.1223E+01, 0.1226E+01, 0.1229E+01, 0.1232E+01,& - 0.1235E+01, 0.1238E+01, 0.1241E+01, 0.1244E+01,& - 0.1247E+01, 0.1250E+01, 0.1254E+01, 0.1257E+01,& - 0.1260E+01, 0.1263E+01, 0.1266E+01, 0.1269E+01,& - 0.1272E+01, 0.1275E+01, 0.1279E+01, 0.1282E+01,& - 0.1285E+01, 0.1288E+01, 0.1291E+01, 0.1294E+01,& - 0.1298E+01, 0.1301E+01, 0.1304E+01, 0.1307E+01,& - 0.1311E+01, 0.1314E+01, 0.1317E+01, 0.1321E+01,& - 0.1324E+01, 0.1327E+01, 0.1330E+01, 0.1334E+01,& - 0.1337E+01, 0.1340E+01, 0.1344E+01, 0.1347E+01,& - 0.1351E+01, 0.1354E+01, 0.1357E+01, 0.1361E+01,& - 0.1364E+01, 0.1368E+01, 0.1371E+01, 0.1375E+01,& - 0.1378E+01, 0.1382E+01, 0.1385E+01, 0.1389E+01,& - 0.1392E+01, 0.1396E+01, 0.1399E+01, 0.1403E+01,& - 0.1406E+01, 0.1410E+01, 0.1413E+01, 0.1417E+01,& - 0.1421E+01, 0.1424E+01, 0.1428E+01, 0.1432E+01,& - 0.1435E+01, 0.1439E+01, 0.1443E+01, 0.1446E+01,& - 0.1450E+01, 0.1454E+01, 0.1458E+01, 0.1461E+01,& - 0.1465E+01, 0.1469E+01, 0.1473E+01, 0.1476E+01,& - 0.1480E+01, 0.1484E+01, 0.1488E+01, 0.1492E+01,& - 0.1496E+01, 0.1500E+01, 0.1503E+01, 0.1507E+01,& - 0.1511E+01, 0.1515E+01, 0.1519E+01, 0.1523E+01,& - 0.1527E+01, 0.1531E+01, 0.1535E+01, 0.1539E+01,& - 0.1543E+01, 0.1547E+01, 0.1552E+01, 0.1556E+01,& - 0.1560E+01, 0.1564E+01, 0.1568E+01, 0.1572E+01,& - 0.1577E+01, 0.1581E+01, 0.1585E+01, 0.1589E+01,& - 0.1593E+01, 0.1598E+01, 0.1602E+01, 0.1606E+01,& - 0.1611E+01, 0.1615E+01, 0.1619E+01, 0.1624E+01,& - 0.1628E+01, 0.1633E+01, 0.1637E+01, 0.1642E+01,& - 0.1646E+01, 0.1651E+01, 0.1655E+01, 0.1660E+01,& - 0.1664E+01, 0.1669E+01, 0.1674E+01, 0.1678E+01,& - 0.1683E+01, 0.1687E+01, 0.1692E+01, 0.1697E+01,& - 0.1702E+01, 0.1706E+01, 0.1711E+01, 0.1716E+01,& - 0.1721E+01, 0.1726E+01, 0.1731E+01, 0.1736E+01,& - 0.1741E+01, 0.1745E+01, 0.1750E+01, 0.1755E+01,& - 0.1760E+01, 0.1766E+01, 0.1771E+01, 0.1776E+01,& - 0.1781E+01, 0.1786E+01, 0.1791E+01, 0.1796E+01,& - 0.1802E+01, 0.1807E+01, 0.1812E+01, 0.1818E+01,& - 0.1823E+01, 0.1828E+01, 0.1834E+01, 0.1839E+01,& - 0.1845E+01, 0.1850E+01, 0.1856E+01, 0.1861E+01,& - 0.1867E+01, 0.1873E+01, 0.1878E+01, 0.1884E+01,& - 0.1890E+01, 0.1896E+01, 0.1901E+01, 0.1907E+01,& - 0.1913E+01, 0.1919E+01, 0.1925E+01, 0.1931E+01,& - 0.1937E+01, 0.1943E+01, 0.1949E+01, 0.1955E+01,& - 0.1961E+01, 0.1968E+01, 0.1974E+01, 0.1980E+01,& - 0.1987E+01, 0.1993E+01, 0.1999E+01, 0.2006E+01,& - 0.2012E+01, 0.2019E+01, 0.2026E+01, 0.2032E+01,& - 0.2039E+01, 0.2046E+01, 0.2052E+01, 0.2059E+01,& - 0.2066E+01, 0.2073E+01, 0.2080E+01, 0.2087E+01,& - 0.2094E+01, 0.2101E+01, 0.2109E+01, 0.2116E+01,& - 0.2123E+01, 0.2131E+01, 0.2138E+01, 0.2146E+01,& - 0.2153E+01, 0.2161E+01, 0.2169E+01, 0.2176E+01,& - 0.2184E+01, 0.2192E+01, 0.2200E+01, 0.2208E+01,& - 0.2216E+01, 0.2224E+01, 0.2233E+01, 0.2241E+01,& - 0.2249E+01, 0.2258E+01, 0.2266E+01, 0.2275E+01,& - 0.2284E+01, 0.2292E+01, 0.2301E+01, 0.2310E+01,& - 0.2319E+01, 0.2328E+01, 0.2338E+01, 0.2347E+01,& - 0.2356E+01, 0.2366E+01, 0.2376E+01, 0.2385E+01,& - 0.2395E+01, 0.2405E+01, 0.2415E+01, 0.2425E+01,& - 0.2436E+01, 0.2446E+01, 0.2457E+01, 0.2467E+01,& - 0.2478E+01, 0.2489E+01, 0.2500E+01, 0.2512E+01,& - 0.2523E+01, 0.2534E+01, 0.2546E+01, 0.2558E+01,& - 0.2570E+01, 0.2582E+01, 0.2594E+01, 0.2607E+01,& - 0.2620E+01, 0.2633E+01, 0.2646E+01, 0.2659E+01,& - 0.2672E+01, 0.2686E+01, 0.2700E+01, 0.2714E+01,& - 0.2729E+01, 0.2743E+01, 0.2758E+01, 0.2773E+01,& - 0.2789E+01, 0.2805E+01, 0.2821E+01, 0.2837E+01,& - 0.2854E+01, 0.2871E+01, 0.2888E+01, 0.2906E+01,& - 0.2924E+01, 0.2943E+01, 0.2962E+01, 0.2982E+01,& - 0.3002E+01, 0.3022E+01, 0.3043E+01, 0.3065E+01,& - 0.3087E+01, 0.3110E+01, 0.3133E+01, 0.3158E+01,& - 0.3183E+01, 0.3208E+01, 0.3235E+01, 0.3263E+01,& - 0.3292E+01, 0.3321E+01, 0.3352E+01, 0.3385E+01,& - 0.3419E+01, 0.3454E+01, 0.3491E+01, 0.3531E+01,& - 0.3572E+01, 0.3616E+01, 0.3663E+01, 0.3713E+01,& - 0.3767E+01, 0.3825E+01, 0.3889E+01, 0.3960E+01,& - 0.4038E+01, 0.4127E+01, 0.4231E+01, 0.4354E+01,& - 0.1000E-04, 0.1213E-02, 0.2488E-02, 0.3691E-02/) - xcw(:, 34) = (/& - 0.1000E-04, 0.1213E-02, 0.2488E-02, 0.3691E-02,& - 0.4965E-02, 0.6168E-02, 0.7372E-02, 0.8575E-02,& - 0.9779E-02, 0.1098E-01, 0.1219E-01, 0.1339E-01,& - 0.1459E-01, 0.1580E-01, 0.1700E-01, 0.1820E-01,& - 0.1941E-01, 0.2061E-01, 0.2181E-01, 0.2302E-01,& - 0.2415E-01, 0.2535E-01, 0.2655E-01, 0.2776E-01,& - 0.2896E-01, 0.3017E-01, 0.3137E-01, 0.3257E-01,& - 0.3378E-01, 0.3498E-01, 0.3618E-01, 0.3739E-01,& - 0.3859E-01, 0.3979E-01, 0.4100E-01, 0.4213E-01,& - 0.4333E-01, 0.4453E-01, 0.4574E-01, 0.4694E-01,& - 0.4814E-01, 0.4935E-01, 0.5055E-01, 0.5175E-01,& - 0.5296E-01, 0.5423E-01, 0.5544E-01, 0.5664E-01,& - 0.5784E-01, 0.5905E-01, 0.6025E-01, 0.6145E-01,& - 0.6266E-01, 0.6386E-01, 0.6506E-01, 0.6627E-01,& - 0.6754E-01, 0.6874E-01, 0.6995E-01, 0.7115E-01,& - 0.7235E-01, 0.7356E-01, 0.7483E-01, 0.7603E-01,& - 0.7724E-01, 0.7844E-01, 0.7972E-01, 0.8092E-01,& - 0.8212E-01, 0.8333E-01, 0.8460E-01, 0.8580E-01,& - 0.8701E-01, 0.8828E-01, 0.8948E-01, 0.9069E-01,& - 0.9196E-01, 0.9316E-01, 0.9444E-01, 0.9564E-01,& - 0.9685E-01, 0.9812E-01, 0.9932E-01, 0.1006E+00,& - 0.1018E+00, 0.1031E+00, 0.1043E+00, 0.1056E+00,& - 0.1068E+00, 0.1080E+00, 0.1092E+00, 0.1105E+00,& - 0.1118E+00, 0.1130E+00, 0.1143E+00, 0.1155E+00,& - 0.1167E+00, 0.1180E+00, 0.1192E+00, 0.1205E+00,& - 0.1218E+00, 0.1230E+00, 0.1242E+00, 0.1255E+00,& - 0.1268E+00, 0.1281E+00, 0.1293E+00, 0.1305E+00,& - 0.1318E+00, 0.1331E+00, 0.1344E+00, 0.1356E+00,& - 0.1368E+00, 0.1381E+00, 0.1394E+00, 0.1407E+00,& - 0.1419E+00, 0.1432E+00, 0.1445E+00, 0.1458E+00,& - 0.1470E+00, 0.1483E+00, 0.1496E+00, 0.1509E+00,& - 0.1521E+00, 0.1534E+00, 0.1547E+00, 0.1560E+00,& - 0.1572E+00, 0.1586E+00, 0.1598E+00, 0.1611E+00,& - 0.1624E+00, 0.1637E+00, 0.1649E+00, 0.1663E+00,& - 0.1676E+00, 0.1688E+00, 0.1701E+00, 0.1715E+00,& - 0.1727E+00, 0.1740E+00, 0.1753E+00, 0.1766E+00,& - 0.1780E+00, 0.1792E+00, 0.1805E+00, 0.1819E+00,& - 0.1831E+00, 0.1845E+00, 0.1858E+00, 0.1871E+00,& - 0.1884E+00, 0.1897E+00, 0.1910E+00, 0.1923E+00,& - 0.1936E+00, 0.1950E+00, 0.1963E+00, 0.1976E+00,& - 0.1989E+00, 0.2003E+00, 0.2015E+00, 0.2029E+00,& - 0.2042E+00, 0.2055E+00, 0.2068E+00, 0.2082E+00,& - 0.2095E+00, 0.2109E+00, 0.2122E+00, 0.2135E+00,& - 0.2148E+00, 0.2162E+00, 0.2175E+00, 0.2189E+00,& - 0.2202E+00, 0.2216E+00, 0.2229E+00, 0.2243E+00,& - 0.2256E+00, 0.2270E+00, 0.2283E+00, 0.2296E+00,& - 0.2310E+00, 0.2323E+00, 0.2337E+00, 0.2351E+00,& - 0.2364E+00, 0.2378E+00, 0.2391E+00, 0.2405E+00,& - 0.2419E+00, 0.2432E+00, 0.2446E+00, 0.2459E+00,& - 0.2473E+00, 0.2487E+00, 0.2500E+00, 0.2514E+00,& - 0.2528E+00, 0.2542E+00, 0.2555E+00, 0.2570E+00,& - 0.2583E+00, 0.2597E+00, 0.2611E+00, 0.2625E+00,& - 0.2638E+00, 0.2652E+00, 0.2666E+00, 0.2680E+00,& - 0.2694E+00, 0.2708E+00, 0.2722E+00, 0.2736E+00,& - 0.2749E+00, 0.2764E+00, 0.2778E+00, 0.2792E+00,& - 0.2806E+00, 0.2820E+00, 0.2834E+00, 0.2848E+00,& - 0.2862E+00, 0.2876E+00, 0.2890E+00, 0.2904E+00,& - 0.2919E+00, 0.2933E+00, 0.2947E+00, 0.2961E+00,& - 0.2975E+00, 0.2989E+00, 0.3004E+00, 0.3018E+00,& - 0.3032E+00, 0.3047E+00, 0.3061E+00, 0.3075E+00,& - 0.3089E+00, 0.3104E+00, 0.3118E+00, 0.3132E+00,& - 0.3147E+00, 0.3161E+00, 0.3176E+00, 0.3190E+00,& - 0.3205E+00, 0.3219E+00, 0.3234E+00, 0.3248E+00,& - 0.3263E+00, 0.3278E+00, 0.3292E+00, 0.3307E+00,& - 0.3321E+00, 0.3336E+00, 0.3350E+00, 0.3365E+00,& - 0.3379E+00, 0.3394E+00, 0.3408E+00, 0.3423E+00,& - 0.3438E+00, 0.3453E+00, 0.3468E+00, 0.3482E+00,& - 0.3497E+00, 0.3512E+00, 0.3527E+00, 0.3542E+00,& - 0.3556E+00, 0.3571E+00, 0.3586E+00, 0.3601E+00,& - 0.3616E+00, 0.3631E+00, 0.3646E+00, 0.3661E+00,& - 0.3676E+00, 0.3691E+00, 0.3706E+00, 0.3721E+00,& - 0.3736E+00, 0.3751E+00, 0.3767E+00, 0.3782E+00,& - 0.3796E+00, 0.3812E+00, 0.3827E+00, 0.3842E+00,& - 0.3857E+00, 0.3873E+00, 0.3888E+00, 0.3903E+00,& - 0.3918E+00, 0.3934E+00, 0.3949E+00, 0.3964E+00,& - 0.3980E+00, 0.3995E+00, 0.4010E+00, 0.4026E+00,& - 0.4041E+00, 0.4057E+00, 0.4072E+00, 0.4087E+00,& - 0.4103E+00, 0.4118E+00, 0.4134E+00, 0.4150E+00,& - 0.4165E+00, 0.4181E+00, 0.4196E+00, 0.4212E+00,& - 0.4227E+00, 0.4244E+00, 0.4259E+00, 0.4275E+00,& - 0.4290E+00, 0.4306E+00, 0.4322E+00, 0.4338E+00,& - 0.4353E+00, 0.4370E+00, 0.4385E+00, 0.4402E+00,& - 0.4417E+00, 0.4433E+00, 0.4449E+00, 0.4465E+00,& - 0.4481E+00, 0.4497E+00, 0.4513E+00, 0.4529E+00,& - 0.4545E+00, 0.4561E+00, 0.4577E+00, 0.4593E+00,& - 0.4610E+00, 0.4626E+00, 0.4642E+00, 0.4658E+00,& - 0.4674E+00, 0.4690E+00, 0.4707E+00, 0.4723E+00,& - 0.4739E+00, 0.4756E+00, 0.4772E+00, 0.4788E+00,& - 0.4805E+00, 0.4821E+00, 0.4838E+00, 0.4854E+00,& - 0.4871E+00, 0.4887E+00, 0.4903E+00, 0.4920E+00,& - 0.4937E+00, 0.4953E+00, 0.4970E+00, 0.4986E+00,& - 0.5003E+00, 0.5020E+00, 0.5037E+00, 0.5054E+00,& - 0.5070E+00, 0.5087E+00, 0.5104E+00, 0.5121E+00,& - 0.5137E+00, 0.5154E+00, 0.5171E+00, 0.5188E+00,& - 0.5205E+00, 0.5222E+00, 0.5239E+00, 0.5256E+00,& - 0.5273E+00, 0.5290E+00, 0.5307E+00, 0.5324E+00,& - 0.5341E+00, 0.5359E+00, 0.5376E+00, 0.5393E+00,& - 0.5410E+00, 0.5427E+00, 0.5444E+00, 0.5462E+00,& - 0.5479E+00, 0.5497E+00, 0.5514E+00, 0.5531E+00,& - 0.5548E+00, 0.5566E+00, 0.5584E+00, 0.5601E+00,& - 0.5618E+00, 0.5636E+00, 0.5654E+00, 0.5671E+00,& - 0.5688E+00, 0.5706E+00, 0.5724E+00, 0.5742E+00,& - 0.5759E+00, 0.5777E+00, 0.5795E+00, 0.5812E+00,& - 0.5831E+00, 0.5848E+00, 0.5866E+00, 0.5884E+00,& - 0.5902E+00, 0.5920E+00, 0.5938E+00, 0.5956E+00,& - 0.5974E+00, 0.5992E+00, 0.6010E+00, 0.6028E+00,& - 0.6047E+00, 0.6064E+00, 0.6083E+00, 0.6101E+00,& - 0.6119E+00, 0.6137E+00, 0.6156E+00, 0.6174E+00,& - 0.6192E+00, 0.6211E+00, 0.6229E+00, 0.6248E+00,& - 0.6266E+00, 0.6285E+00, 0.6303E+00, 0.6322E+00,& - 0.6340E+00, 0.6359E+00, 0.6377E+00, 0.6396E+00,& - 0.6415E+00, 0.6434E+00, 0.6452E+00, 0.6471E+00,& - 0.6490E+00, 0.6509E+00, 0.6528E+00, 0.6546E+00,& - 0.6566E+00, 0.6585E+00, 0.6604E+00, 0.6623E+00,& - 0.6641E+00, 0.6660E+00, 0.6680E+00, 0.6699E+00,& - 0.6718E+00, 0.6738E+00, 0.6757E+00, 0.6776E+00,& - 0.6795E+00, 0.6815E+00, 0.6834E+00, 0.6853E+00,& - 0.6873E+00, 0.6892E+00, 0.6912E+00, 0.6931E+00,& - 0.6951E+00, 0.6970E+00, 0.6990E+00, 0.7009E+00,& - 0.7029E+00, 0.7049E+00, 0.7069E+00, 0.7089E+00,& - 0.7108E+00, 0.7128E+00, 0.7148E+00, 0.7168E+00,& - 0.7188E+00, 0.7208E+00, 0.7228E+00, 0.7248E+00,& - 0.7268E+00, 0.7288E+00, 0.7308E+00, 0.7329E+00,& - 0.7348E+00, 0.7369E+00, 0.7389E+00, 0.7409E+00,& - 0.7430E+00, 0.7450E+00, 0.7471E+00, 0.7491E+00,& - 0.7511E+00, 0.7532E+00, 0.7553E+00, 0.7574E+00,& - 0.7594E+00, 0.7615E+00, 0.7635E+00, 0.7656E+00,& - 0.7677E+00, 0.7697E+00, 0.7719E+00, 0.7739E+00,& - 0.7760E+00, 0.7782E+00, 0.7802E+00, 0.7823E+00,& - 0.7845E+00, 0.7866E+00, 0.7886E+00, 0.7908E+00,& - 0.7929E+00, 0.7950E+00, 0.7972E+00, 0.7993E+00,& - 0.8015E+00, 0.8036E+00, 0.8058E+00, 0.8079E+00,& - 0.8100E+00, 0.8122E+00, 0.8143E+00, 0.8165E+00,& - 0.8187E+00, 0.8208E+00, 0.8230E+00, 0.8252E+00,& - 0.8274E+00, 0.8296E+00, 0.8318E+00, 0.8340E+00,& - 0.8362E+00, 0.8384E+00, 0.8406E+00, 0.8429E+00,& - 0.8451E+00, 0.8473E+00, 0.8495E+00, 0.8518E+00,& - 0.8540E+00, 0.8562E+00, 0.8585E+00, 0.8607E+00,& - 0.8630E+00, 0.8652E+00, 0.8675E+00, 0.8698E+00,& - 0.8720E+00, 0.8743E+00, 0.8766E+00, 0.8789E+00,& - 0.8812E+00, 0.8835E+00, 0.8858E+00, 0.8881E+00,& - 0.8904E+00, 0.8927E+00, 0.8950E+00, 0.8974E+00,& - 0.8996E+00, 0.9020E+00, 0.9043E+00, 0.9067E+00,& - 0.9090E+00, 0.9114E+00, 0.9137E+00, 0.9161E+00,& - 0.9185E+00, 0.9208E+00, 0.9232E+00, 0.9256E+00,& - 0.9279E+00, 0.9304E+00, 0.9328E+00, 0.9352E+00,& - 0.9376E+00, 0.9400E+00, 0.9424E+00, 0.9448E+00,& - 0.9472E+00, 0.9497E+00, 0.9521E+00, 0.9546E+00,& - 0.9570E+00, 0.9594E+00, 0.9619E+00, 0.9643E+00,& - 0.9668E+00, 0.9693E+00, 0.9718E+00, 0.9742E+00,& - 0.9767E+00, 0.9792E+00, 0.9817E+00, 0.9842E+00,& - 0.9868E+00, 0.9893E+00, 0.9918E+00, 0.9943E+00,& - 0.9968E+00, 0.9994E+00, 0.1002E+01, 0.1004E+01,& - 0.1007E+01, 0.1010E+01, 0.1012E+01, 0.1015E+01,& - 0.1017E+01, 0.1020E+01, 0.1023E+01, 0.1025E+01,& - 0.1028E+01, 0.1030E+01, 0.1033E+01, 0.1036E+01,& - 0.1038E+01, 0.1041E+01, 0.1043E+01, 0.1046E+01,& - 0.1049E+01, 0.1051E+01, 0.1054E+01, 0.1057E+01,& - 0.1059E+01, 0.1062E+01, 0.1065E+01, 0.1067E+01,& - 0.1070E+01, 0.1073E+01, 0.1076E+01, 0.1078E+01,& - 0.1081E+01, 0.1084E+01, 0.1087E+01, 0.1089E+01,& - 0.1092E+01, 0.1095E+01, 0.1098E+01, 0.1100E+01,& - 0.1103E+01, 0.1106E+01, 0.1109E+01, 0.1111E+01,& - 0.1114E+01, 0.1117E+01, 0.1120E+01, 0.1123E+01,& - 0.1126E+01, 0.1128E+01, 0.1131E+01, 0.1134E+01,& - 0.1137E+01, 0.1140E+01, 0.1143E+01, 0.1146E+01,& - 0.1149E+01, 0.1151E+01, 0.1154E+01, 0.1157E+01,& - 0.1160E+01, 0.1163E+01, 0.1166E+01, 0.1169E+01,& - 0.1172E+01, 0.1175E+01, 0.1178E+01, 0.1181E+01,& - 0.1184E+01, 0.1187E+01, 0.1190E+01, 0.1193E+01,& - 0.1196E+01, 0.1199E+01, 0.1202E+01, 0.1205E+01,& - 0.1208E+01, 0.1211E+01, 0.1214E+01, 0.1217E+01,& - 0.1221E+01, 0.1224E+01, 0.1227E+01, 0.1230E+01,& - 0.1233E+01, 0.1236E+01, 0.1239E+01, 0.1242E+01,& - 0.1246E+01, 0.1249E+01, 0.1252E+01, 0.1255E+01,& - 0.1258E+01, 0.1261E+01, 0.1265E+01, 0.1268E+01,& - 0.1271E+01, 0.1274E+01, 0.1278E+01, 0.1281E+01,& - 0.1284E+01, 0.1288E+01, 0.1291E+01, 0.1294E+01,& - 0.1297E+01, 0.1301E+01, 0.1304E+01, 0.1307E+01,& - 0.1311E+01, 0.1314E+01, 0.1318E+01, 0.1321E+01,& - 0.1324E+01, 0.1328E+01, 0.1331E+01, 0.1335E+01,& - 0.1338E+01, 0.1341E+01, 0.1345E+01, 0.1348E+01,& - 0.1352E+01, 0.1355E+01, 0.1359E+01, 0.1363E+01,& - 0.1366E+01, 0.1370E+01, 0.1373E+01, 0.1377E+01,& - 0.1380E+01, 0.1384E+01, 0.1387E+01, 0.1391E+01,& - 0.1395E+01, 0.1398E+01, 0.1402E+01, 0.1406E+01,& - 0.1409E+01, 0.1413E+01, 0.1417E+01, 0.1420E+01,& - 0.1424E+01, 0.1428E+01, 0.1432E+01, 0.1435E+01,& - 0.1439E+01, 0.1443E+01, 0.1447E+01, 0.1451E+01,& - 0.1454E+01, 0.1458E+01, 0.1462E+01, 0.1466E+01,& - 0.1470E+01, 0.1474E+01, 0.1478E+01, 0.1482E+01,& - 0.1486E+01, 0.1490E+01, 0.1494E+01, 0.1498E+01,& - 0.1502E+01, 0.1506E+01, 0.1510E+01, 0.1514E+01,& - 0.1518E+01, 0.1522E+01, 0.1526E+01, 0.1530E+01,& - 0.1534E+01, 0.1538E+01, 0.1543E+01, 0.1547E+01,& - 0.1551E+01, 0.1555E+01, 0.1559E+01, 0.1564E+01,& - 0.1568E+01, 0.1572E+01, 0.1576E+01, 0.1581E+01,& - 0.1585E+01, 0.1590E+01, 0.1594E+01, 0.1598E+01,& - 0.1603E+01, 0.1607E+01, 0.1612E+01, 0.1616E+01,& - 0.1621E+01, 0.1625E+01, 0.1630E+01, 0.1634E+01,& - 0.1639E+01, 0.1643E+01, 0.1648E+01, 0.1653E+01,& - 0.1657E+01, 0.1662E+01, 0.1667E+01, 0.1671E+01,& - 0.1676E+01, 0.1681E+01, 0.1686E+01, 0.1690E+01,& - 0.1695E+01, 0.1700E+01, 0.1705E+01, 0.1710E+01,& - 0.1715E+01, 0.1720E+01, 0.1725E+01, 0.1730E+01,& - 0.1735E+01, 0.1740E+01, 0.1745E+01, 0.1750E+01,& - 0.1755E+01, 0.1760E+01, 0.1765E+01, 0.1770E+01,& - 0.1776E+01, 0.1781E+01, 0.1786E+01, 0.1791E+01,& - 0.1797E+01, 0.1802E+01, 0.1807E+01, 0.1813E+01,& - 0.1818E+01, 0.1824E+01, 0.1829E+01, 0.1835E+01,& - 0.1840E+01, 0.1846E+01, 0.1851E+01, 0.1857E+01,& - 0.1863E+01, 0.1869E+01, 0.1874E+01, 0.1880E+01,& - 0.1886E+01, 0.1892E+01, 0.1898E+01, 0.1904E+01,& - 0.1910E+01, 0.1915E+01, 0.1922E+01, 0.1928E+01,& - 0.1934E+01, 0.1940E+01, 0.1946E+01, 0.1952E+01,& - 0.1958E+01, 0.1965E+01, 0.1971E+01, 0.1977E+01,& - 0.1984E+01, 0.1990E+01, 0.1997E+01, 0.2003E+01,& - 0.2010E+01, 0.2017E+01, 0.2023E+01, 0.2030E+01,& - 0.2037E+01, 0.2044E+01, 0.2050E+01, 0.2057E+01,& - 0.2064E+01, 0.2071E+01, 0.2078E+01, 0.2085E+01,& - 0.2093E+01, 0.2100E+01, 0.2107E+01, 0.2114E+01,& - 0.2122E+01, 0.2129E+01, 0.2137E+01, 0.2144E+01,& - 0.2152E+01, 0.2160E+01, 0.2167E+01, 0.2175E+01,& - 0.2183E+01, 0.2191E+01, 0.2199E+01, 0.2207E+01,& - 0.2215E+01, 0.2223E+01, 0.2231E+01, 0.2240E+01,& - 0.2248E+01, 0.2257E+01, 0.2265E+01, 0.2274E+01,& - 0.2283E+01, 0.2292E+01, 0.2300E+01, 0.2309E+01,& - 0.2318E+01, 0.2328E+01, 0.2337E+01, 0.2346E+01,& - 0.2355E+01, 0.2365E+01, 0.2375E+01, 0.2384E+01,& - 0.2394E+01, 0.2404E+01, 0.2414E+01, 0.2424E+01,& - 0.2434E+01, 0.2445E+01, 0.2455E+01, 0.2466E+01,& - 0.2477E+01, 0.2488E+01, 0.2498E+01, 0.2510E+01,& - 0.2521E+01, 0.2532E+01, 0.2544E+01, 0.2555E+01,& - 0.2567E+01, 0.2579E+01, 0.2591E+01, 0.2604E+01,& - 0.2616E+01, 0.2629E+01, 0.2642E+01, 0.2655E+01,& - 0.2668E+01, 0.2681E+01, 0.2695E+01, 0.2709E+01,& - 0.2723E+01, 0.2737E+01, 0.2752E+01, 0.2766E+01,& - 0.2781E+01, 0.2797E+01, 0.2812E+01, 0.2828E+01,& - 0.2844E+01, 0.2861E+01, 0.2877E+01, 0.2894E+01,& - 0.2912E+01, 0.2930E+01, 0.2948E+01, 0.2966E+01,& - 0.2985E+01, 0.3005E+01, 0.3025E+01, 0.3045E+01,& - 0.3066E+01, 0.3087E+01, 0.3109E+01, 0.3131E+01,& - 0.3155E+01, 0.3178E+01, 0.3203E+01, 0.3228E+01,& - 0.3254E+01, 0.3281E+01, 0.3309E+01, 0.3338E+01,& - 0.3368E+01, 0.3399E+01, 0.3431E+01, 0.3465E+01,& - 0.3500E+01, 0.3537E+01, 0.3576E+01, 0.3617E+01,& - 0.3660E+01, 0.3706E+01, 0.3755E+01, 0.3807E+01,& - 0.3863E+01, 0.3924E+01, 0.3991E+01, 0.4064E+01,& - 0.4146E+01, 0.4239E+01, 0.4347E+01, 0.4476E+01,& - 0.1000E-04, 0.8809E-03, 0.1824E-02, 0.2840E-02/) - xcw(:, 35) = (/& - 0.1000E-04, 0.8809E-03, 0.1824E-02, 0.2840E-02,& - 0.3856E-02, 0.4800E-02, 0.5816E-02, 0.6832E-02,& - 0.7848E-02, 0.8864E-02, 0.9953E-02, 0.1097E-01,& - 0.1198E-01, 0.1300E-01, 0.1409E-01, 0.1511E-01,& - 0.1619E-01, 0.1721E-01, 0.1830E-01, 0.1931E-01,& - 0.2040E-01, 0.2142E-01, 0.2251E-01, 0.2360E-01,& - 0.2461E-01, 0.2570E-01, 0.2679E-01, 0.2788E-01,& - 0.2897E-01, 0.2998E-01, 0.3107E-01, 0.3216E-01,& - 0.3325E-01, 0.3434E-01, 0.3543E-01, 0.3651E-01,& - 0.3760E-01, 0.3869E-01, 0.3978E-01, 0.4094E-01,& - 0.4203E-01, 0.4312E-01, 0.4421E-01, 0.4530E-01,& - 0.4646E-01, 0.4755E-01, 0.4863E-01, 0.4980E-01,& - 0.5088E-01, 0.5197E-01, 0.5313E-01, 0.5422E-01,& - 0.5538E-01, 0.5647E-01, 0.5756E-01, 0.5872E-01,& - 0.5981E-01, 0.6097E-01, 0.6213E-01, 0.6322E-01,& - 0.6438E-01, 0.6547E-01, 0.6663E-01, 0.6779E-01,& - 0.6896E-01, 0.7004E-01, 0.7121E-01, 0.7237E-01,& - 0.7353E-01, 0.7462E-01, 0.7578E-01, 0.7694E-01,& - 0.7810E-01, 0.7926E-01, 0.8042E-01, 0.8158E-01,& - 0.8274E-01, 0.8391E-01, 0.8507E-01, 0.8623E-01,& - 0.8739E-01, 0.8855E-01, 0.8971E-01, 0.9087E-01,& - 0.9203E-01, 0.9320E-01, 0.9436E-01, 0.9552E-01,& - 0.9675E-01, 0.9791E-01, 0.9907E-01, 0.1002E+00,& - 0.1015E+00, 0.1026E+00, 0.1038E+00, 0.1050E+00,& - 0.1062E+00, 0.1073E+00, 0.1086E+00, 0.1097E+00,& - 0.1110E+00, 0.1121E+00, 0.1134E+00, 0.1145E+00,& - 0.1158E+00, 0.1169E+00, 0.1182E+00, 0.1193E+00,& - 0.1206E+00, 0.1218E+00, 0.1230E+00, 0.1242E+00,& - 0.1254E+00, 0.1266E+00, 0.1278E+00, 0.1290E+00,& - 0.1303E+00, 0.1314E+00, 0.1327E+00, 0.1339E+00,& - 0.1351E+00, 0.1364E+00, 0.1376E+00, 0.1388E+00,& - 0.1401E+00, 0.1413E+00, 0.1425E+00, 0.1438E+00,& - 0.1450E+00, 0.1462E+00, 0.1475E+00, 0.1487E+00,& - 0.1499E+00, 0.1512E+00, 0.1524E+00, 0.1537E+00,& - 0.1550E+00, 0.1562E+00, 0.1574E+00, 0.1587E+00,& - 0.1599E+00, 0.1612E+00, 0.1624E+00, 0.1637E+00,& - 0.1650E+00, 0.1662E+00, 0.1675E+00, 0.1687E+00,& - 0.1700E+00, 0.1713E+00, 0.1725E+00, 0.1738E+00,& - 0.1751E+00, 0.1764E+00, 0.1776E+00, 0.1789E+00,& - 0.1802E+00, 0.1814E+00, 0.1828E+00, 0.1841E+00,& - 0.1853E+00, 0.1866E+00, 0.1879E+00, 0.1891E+00,& - 0.1904E+00, 0.1918E+00, 0.1931E+00, 0.1944E+00,& - 0.1957E+00, 0.1969E+00, 0.1982E+00, 0.1995E+00,& - 0.2008E+00, 0.2021E+00, 0.2034E+00, 0.2047E+00,& - 0.2060E+00, 0.2074E+00, 0.2087E+00, 0.2100E+00,& - 0.2113E+00, 0.2127E+00, 0.2140E+00, 0.2153E+00,& - 0.2166E+00, 0.2180E+00, 0.2193E+00, 0.2206E+00,& - 0.2219E+00, 0.2232E+00, 0.2246E+00, 0.2259E+00,& - 0.2272E+00, 0.2285E+00, 0.2299E+00, 0.2312E+00,& - 0.2326E+00, 0.2339E+00, 0.2353E+00, 0.2366E+00,& - 0.2380E+00, 0.2393E+00, 0.2407E+00, 0.2420E+00,& - 0.2434E+00, 0.2447E+00, 0.2461E+00, 0.2474E+00,& - 0.2488E+00, 0.2502E+00, 0.2516E+00, 0.2529E+00,& - 0.2542E+00, 0.2556E+00, 0.2570E+00, 0.2584E+00,& - 0.2598E+00, 0.2611E+00, 0.2625E+00, 0.2639E+00,& - 0.2653E+00, 0.2666E+00, 0.2680E+00, 0.2694E+00,& - 0.2708E+00, 0.2722E+00, 0.2736E+00, 0.2750E+00,& - 0.2764E+00, 0.2778E+00, 0.2792E+00, 0.2806E+00,& - 0.2820E+00, 0.2833E+00, 0.2848E+00, 0.2862E+00,& - 0.2876E+00, 0.2890E+00, 0.2905E+00, 0.2918E+00,& - 0.2933E+00, 0.2947E+00, 0.2961E+00, 0.2975E+00,& - 0.2989E+00, 0.3004E+00, 0.3018E+00, 0.3032E+00,& - 0.3047E+00, 0.3061E+00, 0.3075E+00, 0.3090E+00,& - 0.3104E+00, 0.3118E+00, 0.3132E+00, 0.3147E+00,& - 0.3161E+00, 0.3176E+00, 0.3190E+00, 0.3205E+00,& - 0.3220E+00, 0.3234E+00, 0.3249E+00, 0.3263E+00,& - 0.3278E+00, 0.3292E+00, 0.3307E+00, 0.3322E+00,& - 0.3336E+00, 0.3351E+00, 0.3366E+00, 0.3381E+00,& - 0.3395E+00, 0.3410E+00, 0.3425E+00, 0.3439E+00,& - 0.3455E+00, 0.3469E+00, 0.3484E+00, 0.3499E+00,& - 0.3514E+00, 0.3529E+00, 0.3544E+00, 0.3559E+00,& - 0.3574E+00, 0.3589E+00, 0.3604E+00, 0.3619E+00,& - 0.3634E+00, 0.3649E+00, 0.3664E+00, 0.3679E+00,& - 0.3694E+00, 0.3709E+00, 0.3725E+00, 0.3740E+00,& - 0.3755E+00, 0.3770E+00, 0.3786E+00, 0.3801E+00,& - 0.3816E+00, 0.3831E+00, 0.3847E+00, 0.3863E+00,& - 0.3878E+00, 0.3893E+00, 0.3908E+00, 0.3924E+00,& - 0.3939E+00, 0.3955E+00, 0.3971E+00, 0.3986E+00,& - 0.4002E+00, 0.4017E+00, 0.4032E+00, 0.4048E+00,& - 0.4064E+00, 0.4080E+00, 0.4095E+00, 0.4111E+00,& - 0.4127E+00, 0.4143E+00, 0.4158E+00, 0.4174E+00,& - 0.4190E+00, 0.4206E+00, 0.4222E+00, 0.4238E+00,& - 0.4253E+00, 0.4269E+00, 0.4285E+00, 0.4301E+00,& - 0.4317E+00, 0.4333E+00, 0.4349E+00, 0.4365E+00,& - 0.4381E+00, 0.4397E+00, 0.4413E+00, 0.4429E+00,& - 0.4446E+00, 0.4462E+00, 0.4478E+00, 0.4495E+00,& - 0.4511E+00, 0.4527E+00, 0.4543E+00, 0.4559E+00,& - 0.4576E+00, 0.4593E+00, 0.4609E+00, 0.4625E+00,& - 0.4641E+00, 0.4658E+00, 0.4675E+00, 0.4691E+00,& - 0.4707E+00, 0.4724E+00, 0.4741E+00, 0.4757E+00,& - 0.4774E+00, 0.4791E+00, 0.4807E+00, 0.4824E+00,& - 0.4841E+00, 0.4858E+00, 0.4874E+00, 0.4891E+00,& - 0.4908E+00, 0.4925E+00, 0.4942E+00, 0.4958E+00,& - 0.4975E+00, 0.4993E+00, 0.5009E+00, 0.5027E+00,& - 0.5043E+00, 0.5061E+00, 0.5077E+00, 0.5095E+00,& - 0.5112E+00, 0.5129E+00, 0.5146E+00, 0.5163E+00,& - 0.5180E+00, 0.5198E+00, 0.5215E+00, 0.5232E+00,& - 0.5249E+00, 0.5267E+00, 0.5284E+00, 0.5302E+00,& - 0.5319E+00, 0.5337E+00, 0.5354E+00, 0.5371E+00,& - 0.5389E+00, 0.5407E+00, 0.5424E+00, 0.5442E+00,& - 0.5460E+00, 0.5477E+00, 0.5495E+00, 0.5513E+00,& - 0.5530E+00, 0.5548E+00, 0.5566E+00, 0.5584E+00,& - 0.5601E+00, 0.5620E+00, 0.5638E+00, 0.5655E+00,& - 0.5673E+00, 0.5691E+00, 0.5710E+00, 0.5728E+00,& - 0.5746E+00, 0.5764E+00, 0.5782E+00, 0.5800E+00,& - 0.5818E+00, 0.5837E+00, 0.5855E+00, 0.5873E+00,& - 0.5891E+00, 0.5910E+00, 0.5928E+00, 0.5946E+00,& - 0.5965E+00, 0.5983E+00, 0.6002E+00, 0.6020E+00,& - 0.6039E+00, 0.6057E+00, 0.6076E+00, 0.6095E+00,& - 0.6113E+00, 0.6132E+00, 0.6151E+00, 0.6170E+00,& - 0.6189E+00, 0.6207E+00, 0.6226E+00, 0.6245E+00,& - 0.6264E+00, 0.6283E+00, 0.6302E+00, 0.6321E+00,& - 0.6339E+00, 0.6359E+00, 0.6378E+00, 0.6397E+00,& - 0.6416E+00, 0.6435E+00, 0.6455E+00, 0.6474E+00,& - 0.6493E+00, 0.6512E+00, 0.6532E+00, 0.6551E+00,& - 0.6571E+00, 0.6590E+00, 0.6609E+00, 0.6629E+00,& - 0.6649E+00, 0.6668E+00, 0.6688E+00, 0.6707E+00,& - 0.6727E+00, 0.6747E+00, 0.6767E+00, 0.6787E+00,& - 0.6806E+00, 0.6826E+00, 0.6846E+00, 0.6866E+00,& - 0.6886E+00, 0.6906E+00, 0.6926E+00, 0.6946E+00,& - 0.6966E+00, 0.6986E+00, 0.7006E+00, 0.7027E+00,& - 0.7047E+00, 0.7067E+00, 0.7088E+00, 0.7108E+00,& - 0.7128E+00, 0.7149E+00, 0.7169E+00, 0.7189E+00,& - 0.7210E+00, 0.7231E+00, 0.7251E+00, 0.7272E+00,& - 0.7292E+00, 0.7313E+00, 0.7334E+00, 0.7355E+00,& - 0.7376E+00, 0.7396E+00, 0.7417E+00, 0.7438E+00,& - 0.7459E+00, 0.7480E+00, 0.7501E+00, 0.7522E+00,& - 0.7543E+00, 0.7565E+00, 0.7586E+00, 0.7607E+00,& - 0.7628E+00, 0.7649E+00, 0.7671E+00, 0.7692E+00,& - 0.7714E+00, 0.7736E+00, 0.7757E+00, 0.7779E+00,& - 0.7800E+00, 0.7821E+00, 0.7843E+00, 0.7865E+00,& - 0.7887E+00, 0.7909E+00, 0.7930E+00, 0.7953E+00,& - 0.7975E+00, 0.7996E+00, 0.8018E+00, 0.8041E+00,& - 0.8062E+00, 0.8085E+00, 0.8107E+00, 0.8129E+00,& - 0.8152E+00, 0.8173E+00, 0.8196E+00, 0.8218E+00,& - 0.8241E+00, 0.8263E+00, 0.8286E+00, 0.8308E+00,& - 0.8331E+00, 0.8354E+00, 0.8377E+00, 0.8399E+00,& - 0.8422E+00, 0.8445E+00, 0.8468E+00, 0.8491E+00,& - 0.8514E+00, 0.8537E+00, 0.8560E+00, 0.8583E+00,& - 0.8606E+00, 0.8629E+00, 0.8652E+00, 0.8676E+00,& - 0.8700E+00, 0.8723E+00, 0.8746E+00, 0.8770E+00,& - 0.8793E+00, 0.8817E+00, 0.8840E+00, 0.8864E+00,& - 0.8888E+00, 0.8912E+00, 0.8935E+00, 0.8959E+00,& - 0.8983E+00, 0.9007E+00, 0.9032E+00, 0.9056E+00,& - 0.9080E+00, 0.9104E+00, 0.9129E+00, 0.9152E+00,& - 0.9177E+00, 0.9201E+00, 0.9226E+00, 0.9250E+00,& - 0.9275E+00, 0.9300E+00, 0.9324E+00, 0.9349E+00,& - 0.9374E+00, 0.9399E+00, 0.9423E+00, 0.9449E+00,& - 0.9473E+00, 0.9499E+00, 0.9523E+00, 0.9549E+00,& - 0.9574E+00, 0.9600E+00, 0.9625E+00, 0.9650E+00,& - 0.9676E+00, 0.9701E+00, 0.9727E+00, 0.9752E+00,& - 0.9778E+00, 0.9803E+00, 0.9830E+00, 0.9855E+00,& - 0.9881E+00, 0.9907E+00, 0.9933E+00, 0.9960E+00,& - 0.9986E+00, 0.1001E+01, 0.1004E+01, 0.1006E+01,& - 0.1009E+01, 0.1012E+01, 0.1014E+01, 0.1017E+01,& - 0.1020E+01, 0.1022E+01, 0.1025E+01, 0.1028E+01,& - 0.1030E+01, 0.1033E+01, 0.1036E+01, 0.1038E+01,& - 0.1041E+01, 0.1044E+01, 0.1047E+01, 0.1049E+01,& - 0.1052E+01, 0.1055E+01, 0.1058E+01, 0.1060E+01,& - 0.1063E+01, 0.1066E+01, 0.1069E+01, 0.1072E+01,& - 0.1074E+01, 0.1077E+01, 0.1080E+01, 0.1083E+01,& - 0.1086E+01, 0.1088E+01, 0.1091E+01, 0.1094E+01,& - 0.1097E+01, 0.1100E+01, 0.1103E+01, 0.1106E+01,& - 0.1108E+01, 0.1111E+01, 0.1114E+01, 0.1117E+01,& - 0.1120E+01, 0.1123E+01, 0.1126E+01, 0.1129E+01,& - 0.1132E+01, 0.1135E+01, 0.1138E+01, 0.1141E+01,& - 0.1144E+01, 0.1147E+01, 0.1150E+01, 0.1153E+01,& - 0.1156E+01, 0.1159E+01, 0.1162E+01, 0.1165E+01,& - 0.1168E+01, 0.1171E+01, 0.1174E+01, 0.1177E+01,& - 0.1180E+01, 0.1183E+01, 0.1186E+01, 0.1189E+01,& - 0.1192E+01, 0.1195E+01, 0.1199E+01, 0.1202E+01,& - 0.1205E+01, 0.1208E+01, 0.1211E+01, 0.1214E+01,& - 0.1218E+01, 0.1221E+01, 0.1224E+01, 0.1227E+01,& - 0.1230E+01, 0.1233E+01, 0.1237E+01, 0.1240E+01,& - 0.1243E+01, 0.1246E+01, 0.1250E+01, 0.1253E+01,& - 0.1256E+01, 0.1260E+01, 0.1263E+01, 0.1266E+01,& - 0.1270E+01, 0.1273E+01, 0.1276E+01, 0.1280E+01,& - 0.1283E+01, 0.1286E+01, 0.1290E+01, 0.1293E+01,& - 0.1297E+01, 0.1300E+01, 0.1303E+01, 0.1307E+01,& - 0.1310E+01, 0.1314E+01, 0.1317E+01, 0.1321E+01,& - 0.1324E+01, 0.1328E+01, 0.1331E+01, 0.1335E+01,& - 0.1338E+01, 0.1342E+01, 0.1346E+01, 0.1349E+01,& - 0.1353E+01, 0.1356E+01, 0.1360E+01, 0.1364E+01,& - 0.1367E+01, 0.1371E+01, 0.1374E+01, 0.1378E+01,& - 0.1382E+01, 0.1386E+01, 0.1389E+01, 0.1393E+01,& - 0.1397E+01, 0.1400E+01, 0.1404E+01, 0.1408E+01,& - 0.1412E+01, 0.1416E+01, 0.1419E+01, 0.1423E+01,& - 0.1427E+01, 0.1431E+01, 0.1435E+01, 0.1439E+01,& - 0.1443E+01, 0.1447E+01, 0.1450E+01, 0.1454E+01,& - 0.1458E+01, 0.1462E+01, 0.1466E+01, 0.1470E+01,& - 0.1474E+01, 0.1478E+01, 0.1482E+01, 0.1486E+01,& - 0.1491E+01, 0.1495E+01, 0.1499E+01, 0.1503E+01,& - 0.1507E+01, 0.1511E+01, 0.1515E+01, 0.1520E+01,& - 0.1524E+01, 0.1528E+01, 0.1532E+01, 0.1536E+01,& - 0.1541E+01, 0.1545E+01, 0.1549E+01, 0.1554E+01,& - 0.1558E+01, 0.1562E+01, 0.1567E+01, 0.1571E+01,& - 0.1575E+01, 0.1580E+01, 0.1584E+01, 0.1589E+01,& - 0.1593E+01, 0.1598E+01, 0.1602E+01, 0.1607E+01,& - 0.1611E+01, 0.1616E+01, 0.1621E+01, 0.1625E+01,& - 0.1630E+01, 0.1634E+01, 0.1639E+01, 0.1644E+01,& - 0.1649E+01, 0.1653E+01, 0.1658E+01, 0.1663E+01,& - 0.1668E+01, 0.1672E+01, 0.1677E+01, 0.1682E+01,& - 0.1687E+01, 0.1692E+01, 0.1697E+01, 0.1702E+01,& - 0.1707E+01, 0.1712E+01, 0.1717E+01, 0.1722E+01,& - 0.1727E+01, 0.1732E+01, 0.1737E+01, 0.1742E+01,& - 0.1748E+01, 0.1753E+01, 0.1758E+01, 0.1763E+01,& - 0.1769E+01, 0.1774E+01, 0.1779E+01, 0.1785E+01,& - 0.1790E+01, 0.1796E+01, 0.1801E+01, 0.1806E+01,& - 0.1812E+01, 0.1817E+01, 0.1823E+01, 0.1829E+01,& - 0.1834E+01, 0.1840E+01, 0.1846E+01, 0.1851E+01,& - 0.1857E+01, 0.1863E+01, 0.1869E+01, 0.1875E+01,& - 0.1880E+01, 0.1886E+01, 0.1892E+01, 0.1898E+01,& - 0.1904E+01, 0.1910E+01, 0.1916E+01, 0.1923E+01,& - 0.1929E+01, 0.1935E+01, 0.1941E+01, 0.1947E+01,& - 0.1954E+01, 0.1960E+01, 0.1967E+01, 0.1973E+01,& - 0.1979E+01, 0.1986E+01, 0.1993E+01, 0.1999E+01,& - 0.2006E+01, 0.2013E+01, 0.2019E+01, 0.2026E+01,& - 0.2033E+01, 0.2040E+01, 0.2047E+01, 0.2054E+01,& - 0.2061E+01, 0.2068E+01, 0.2075E+01, 0.2082E+01,& - 0.2089E+01, 0.2096E+01, 0.2104E+01, 0.2111E+01,& - 0.2119E+01, 0.2126E+01, 0.2134E+01, 0.2141E+01,& - 0.2149E+01, 0.2157E+01, 0.2164E+01, 0.2172E+01,& - 0.2180E+01, 0.2188E+01, 0.2196E+01, 0.2204E+01,& - 0.2212E+01, 0.2221E+01, 0.2229E+01, 0.2237E+01,& - 0.2246E+01, 0.2254E+01, 0.2263E+01, 0.2271E+01,& - 0.2280E+01, 0.2289E+01, 0.2298E+01, 0.2307E+01,& - 0.2316E+01, 0.2325E+01, 0.2334E+01, 0.2344E+01,& - 0.2353E+01, 0.2362E+01, 0.2372E+01, 0.2382E+01,& - 0.2391E+01, 0.2401E+01, 0.2411E+01, 0.2421E+01,& - 0.2432E+01, 0.2442E+01, 0.2452E+01, 0.2463E+01,& - 0.2473E+01, 0.2484E+01, 0.2495E+01, 0.2506E+01,& - 0.2517E+01, 0.2529E+01, 0.2540E+01, 0.2551E+01,& - 0.2563E+01, 0.2575E+01, 0.2587E+01, 0.2599E+01,& - 0.2612E+01, 0.2624E+01, 0.2637E+01, 0.2649E+01,& - 0.2662E+01, 0.2676E+01, 0.2689E+01, 0.2702E+01,& - 0.2716E+01, 0.2730E+01, 0.2744E+01, 0.2759E+01,& - 0.2773E+01, 0.2788E+01, 0.2803E+01, 0.2819E+01,& - 0.2834E+01, 0.2850E+01, 0.2866E+01, 0.2883E+01,& - 0.2900E+01, 0.2917E+01, 0.2934E+01, 0.2952E+01,& - 0.2970E+01, 0.2988E+01, 0.3007E+01, 0.3027E+01,& - 0.3046E+01, 0.3067E+01, 0.3087E+01, 0.3108E+01,& - 0.3130E+01, 0.3152E+01, 0.3175E+01, 0.3199E+01,& - 0.3223E+01, 0.3247E+01, 0.3273E+01, 0.3299E+01,& - 0.3326E+01, 0.3354E+01, 0.3383E+01, 0.3413E+01,& - 0.3445E+01, 0.3477E+01, 0.3511E+01, 0.3546E+01,& - 0.3583E+01, 0.3621E+01, 0.3662E+01, 0.3704E+01,& - 0.3749E+01, 0.3797E+01, 0.3848E+01, 0.3902E+01,& - 0.3961E+01, 0.4024E+01, 0.4093E+01, 0.4170E+01,& - 0.4255E+01, 0.4352E+01, 0.4464E+01, 0.4598E+01,& - 0.1000E-04, 0.6053E-03, 0.1349E-02, 0.2168E-02/) - xcw(:, 36) = (/& - 0.1000E-04, 0.6053E-03, 0.1349E-02, 0.2168E-02,& - 0.2986E-02, 0.3731E-02, 0.4623E-02, 0.5442E-02,& - 0.6260E-02, 0.7153E-02, 0.8046E-02, 0.8939E-02,& - 0.9758E-02, 0.1065E-01, 0.1162E-01, 0.1251E-01,& - 0.1340E-01, 0.1430E-01, 0.1526E-01, 0.1616E-01,& - 0.1712E-01, 0.1802E-01, 0.1898E-01, 0.1995E-01,& - 0.2084E-01, 0.2181E-01, 0.2278E-01, 0.2375E-01,& - 0.2471E-01, 0.2568E-01, 0.2665E-01, 0.2762E-01,& - 0.2858E-01, 0.2955E-01, 0.3052E-01, 0.3156E-01,& - 0.3253E-01, 0.3349E-01, 0.3454E-01, 0.3550E-01,& - 0.3647E-01, 0.3751E-01, 0.3848E-01, 0.3952E-01,& - 0.4056E-01, 0.4153E-01, 0.4257E-01, 0.4361E-01,& - 0.4458E-01, 0.4562E-01, 0.4667E-01, 0.4771E-01,& - 0.4875E-01, 0.4979E-01, 0.5083E-01, 0.5187E-01,& - 0.5292E-01, 0.5396E-01, 0.5500E-01, 0.5604E-01,& - 0.5708E-01, 0.5812E-01, 0.5917E-01, 0.6021E-01,& - 0.6132E-01, 0.6237E-01, 0.6341E-01, 0.6452E-01,& - 0.6557E-01, 0.6661E-01, 0.6772E-01, 0.6877E-01,& - 0.6988E-01, 0.7092E-01, 0.7204E-01, 0.7308E-01,& - 0.7420E-01, 0.7531E-01, 0.7636E-01, 0.7747E-01,& - 0.7859E-01, 0.7963E-01, 0.8075E-01, 0.8186E-01,& - 0.8298E-01, 0.8409E-01, 0.8521E-01, 0.8625E-01,& - 0.8737E-01, 0.8848E-01, 0.8960E-01, 0.9072E-01,& - 0.9183E-01, 0.9295E-01, 0.9406E-01, 0.9526E-01,& - 0.9637E-01, 0.9749E-01, 0.9860E-01, 0.9972E-01,& - 0.1009E+00, 0.1020E+00, 0.1031E+00, 0.1043E+00,& - 0.1054E+00, 0.1066E+00, 0.1077E+00, 0.1089E+00,& - 0.1100E+00, 0.1112E+00, 0.1123E+00, 0.1135E+00,& - 0.1146E+00, 0.1158E+00, 0.1170E+00, 0.1181E+00,& - 0.1193E+00, 0.1204E+00, 0.1216E+00, 0.1228E+00,& - 0.1240E+00, 0.1251E+00, 0.1263E+00, 0.1275E+00,& - 0.1287E+00, 0.1299E+00, 0.1310E+00, 0.1322E+00,& - 0.1334E+00, 0.1345E+00, 0.1357E+00, 0.1369E+00,& - 0.1382E+00, 0.1394E+00, 0.1406E+00, 0.1418E+00,& - 0.1430E+00, 0.1441E+00, 0.1453E+00, 0.1466E+00,& - 0.1478E+00, 0.1490E+00, 0.1502E+00, 0.1514E+00,& - 0.1526E+00, 0.1538E+00, 0.1551E+00, 0.1563E+00,& - 0.1575E+00, 0.1587E+00, 0.1599E+00, 0.1612E+00,& - 0.1624E+00, 0.1636E+00, 0.1649E+00, 0.1661E+00,& - 0.1674E+00, 0.1686E+00, 0.1698E+00, 0.1711E+00,& - 0.1723E+00, 0.1735E+00, 0.1748E+00, 0.1761E+00,& - 0.1773E+00, 0.1786E+00, 0.1799E+00, 0.1811E+00,& - 0.1823E+00, 0.1836E+00, 0.1848E+00, 0.1861E+00,& - 0.1874E+00, 0.1886E+00, 0.1900E+00, 0.1912E+00,& - 0.1925E+00, 0.1938E+00, 0.1950E+00, 0.1963E+00,& - 0.1976E+00, 0.1989E+00, 0.2002E+00, 0.2014E+00,& - 0.2028E+00, 0.2040E+00, 0.2053E+00, 0.2066E+00,& - 0.2079E+00, 0.2093E+00, 0.2105E+00, 0.2119E+00,& - 0.2131E+00, 0.2145E+00, 0.2157E+00, 0.2171E+00,& - 0.2184E+00, 0.2197E+00, 0.2210E+00, 0.2223E+00,& - 0.2236E+00, 0.2250E+00, 0.2263E+00, 0.2276E+00,& - 0.2289E+00, 0.2302E+00, 0.2316E+00, 0.2329E+00,& - 0.2343E+00, 0.2356E+00, 0.2369E+00, 0.2383E+00,& - 0.2396E+00, 0.2410E+00, 0.2423E+00, 0.2436E+00,& - 0.2450E+00, 0.2464E+00, 0.2477E+00, 0.2491E+00,& - 0.2504E+00, 0.2517E+00, 0.2532E+00, 0.2545E+00,& - 0.2558E+00, 0.2572E+00, 0.2586E+00, 0.2600E+00,& - 0.2613E+00, 0.2628E+00, 0.2641E+00, 0.2655E+00,& - 0.2668E+00, 0.2683E+00, 0.2696E+00, 0.2710E+00,& - 0.2724E+00, 0.2738E+00, 0.2752E+00, 0.2766E+00,& - 0.2780E+00, 0.2793E+00, 0.2808E+00, 0.2822E+00,& - 0.2836E+00, 0.2850E+00, 0.2864E+00, 0.2878E+00,& - 0.2892E+00, 0.2907E+00, 0.2921E+00, 0.2935E+00,& - 0.2949E+00, 0.2963E+00, 0.2977E+00, 0.2991E+00,& - 0.3006E+00, 0.3020E+00, 0.3035E+00, 0.3049E+00,& - 0.3064E+00, 0.3078E+00, 0.3092E+00, 0.3107E+00,& - 0.3121E+00, 0.3136E+00, 0.3150E+00, 0.3165E+00,& - 0.3179E+00, 0.3194E+00, 0.3208E+00, 0.3223E+00,& - 0.3238E+00, 0.3252E+00, 0.3267E+00, 0.3282E+00,& - 0.3296E+00, 0.3311E+00, 0.3325E+00, 0.3340E+00,& - 0.3355E+00, 0.3370E+00, 0.3385E+00, 0.3400E+00,& - 0.3415E+00, 0.3430E+00, 0.3445E+00, 0.3459E+00,& - 0.3474E+00, 0.3489E+00, 0.3504E+00, 0.3519E+00,& - 0.3535E+00, 0.3549E+00, 0.3564E+00, 0.3579E+00,& - 0.3595E+00, 0.3610E+00, 0.3625E+00, 0.3640E+00,& - 0.3655E+00, 0.3671E+00, 0.3686E+00, 0.3701E+00,& - 0.3717E+00, 0.3732E+00, 0.3747E+00, 0.3763E+00,& - 0.3778E+00, 0.3794E+00, 0.3809E+00, 0.3825E+00,& - 0.3840E+00, 0.3855E+00, 0.3871E+00, 0.3887E+00,& - 0.3902E+00, 0.3918E+00, 0.3933E+00, 0.3949E+00,& - 0.3965E+00, 0.3980E+00, 0.3996E+00, 0.4012E+00,& - 0.4028E+00, 0.4044E+00, 0.4059E+00, 0.4076E+00,& - 0.4091E+00, 0.4107E+00, 0.4123E+00, 0.4139E+00,& - 0.4155E+00, 0.4171E+00, 0.4187E+00, 0.4203E+00,& - 0.4219E+00, 0.4235E+00, 0.4251E+00, 0.4268E+00,& - 0.4283E+00, 0.4300E+00, 0.4316E+00, 0.4332E+00,& - 0.4349E+00, 0.4365E+00, 0.4381E+00, 0.4397E+00,& - 0.4413E+00, 0.4430E+00, 0.4447E+00, 0.4463E+00,& - 0.4480E+00, 0.4496E+00, 0.4512E+00, 0.4529E+00,& - 0.4546E+00, 0.4562E+00, 0.4579E+00, 0.4596E+00,& - 0.4612E+00, 0.4628E+00, 0.4646E+00, 0.4662E+00,& - 0.4679E+00, 0.4695E+00, 0.4713E+00, 0.4730E+00,& - 0.4746E+00, 0.4763E+00, 0.4780E+00, 0.4797E+00,& - 0.4814E+00, 0.4831E+00, 0.4848E+00, 0.4865E+00,& - 0.4882E+00, 0.4899E+00, 0.4916E+00, 0.4934E+00,& - 0.4951E+00, 0.4968E+00, 0.4986E+00, 0.5003E+00,& - 0.5020E+00, 0.5037E+00, 0.5055E+00, 0.5072E+00,& - 0.5090E+00, 0.5107E+00, 0.5124E+00, 0.5142E+00,& - 0.5160E+00, 0.5177E+00, 0.5195E+00, 0.5212E+00,& - 0.5230E+00, 0.5248E+00, 0.5265E+00, 0.5282E+00,& - 0.5300E+00, 0.5318E+00, 0.5336E+00, 0.5354E+00,& - 0.5372E+00, 0.5390E+00, 0.5408E+00, 0.5425E+00,& - 0.5444E+00, 0.5462E+00, 0.5480E+00, 0.5498E+00,& - 0.5516E+00, 0.5534E+00, 0.5553E+00, 0.5570E+00,& - 0.5588E+00, 0.5607E+00, 0.5626E+00, 0.5643E+00,& - 0.5662E+00, 0.5681E+00, 0.5698E+00, 0.5717E+00,& - 0.5736E+00, 0.5754E+00, 0.5773E+00, 0.5791E+00,& - 0.5810E+00, 0.5829E+00, 0.5847E+00, 0.5866E+00,& - 0.5884E+00, 0.5903E+00, 0.5922E+00, 0.5941E+00,& - 0.5960E+00, 0.5978E+00, 0.5998E+00, 0.6016E+00,& - 0.6036E+00, 0.6054E+00, 0.6073E+00, 0.6093E+00,& - 0.6111E+00, 0.6131E+00, 0.6150E+00, 0.6169E+00,& - 0.6188E+00, 0.6207E+00, 0.6227E+00, 0.6246E+00,& - 0.6265E+00, 0.6285E+00, 0.6304E+00, 0.6324E+00,& - 0.6344E+00, 0.6363E+00, 0.6382E+00, 0.6402E+00,& - 0.6422E+00, 0.6442E+00, 0.6461E+00, 0.6481E+00,& - 0.6501E+00, 0.6521E+00, 0.6541E+00, 0.6560E+00,& - 0.6580E+00, 0.6600E+00, 0.6620E+00, 0.6640E+00,& - 0.6661E+00, 0.6681E+00, 0.6701E+00, 0.6721E+00,& - 0.6741E+00, 0.6761E+00, 0.6781E+00, 0.6802E+00,& - 0.6822E+00, 0.6843E+00, 0.6863E+00, 0.6884E+00,& - 0.6904E+00, 0.6925E+00, 0.6945E+00, 0.6966E+00,& - 0.6986E+00, 0.7007E+00, 0.7028E+00, 0.7048E+00,& - 0.7069E+00, 0.7090E+00, 0.7111E+00, 0.7132E+00,& - 0.7153E+00, 0.7174E+00, 0.7195E+00, 0.7216E+00,& - 0.7237E+00, 0.7259E+00, 0.7280E+00, 0.7301E+00,& - 0.7322E+00, 0.7344E+00, 0.7365E+00, 0.7386E+00,& - 0.7408E+00, 0.7429E+00, 0.7451E+00, 0.7472E+00,& - 0.7494E+00, 0.7516E+00, 0.7537E+00, 0.7559E+00,& - 0.7581E+00, 0.7603E+00, 0.7624E+00, 0.7647E+00,& - 0.7668E+00, 0.7690E+00, 0.7713E+00, 0.7734E+00,& - 0.7757E+00, 0.7779E+00, 0.7801E+00, 0.7824E+00,& - 0.7846E+00, 0.7868E+00, 0.7891E+00, 0.7913E+00,& - 0.7935E+00, 0.7958E+00, 0.7981E+00, 0.8003E+00,& - 0.8025E+00, 0.8048E+00, 0.8071E+00, 0.8094E+00,& - 0.8117E+00, 0.8140E+00, 0.8162E+00, 0.8185E+00,& - 0.8208E+00, 0.8231E+00, 0.8254E+00, 0.8278E+00,& - 0.8301E+00, 0.8324E+00, 0.8347E+00, 0.8371E+00,& - 0.8394E+00, 0.8418E+00, 0.8441E+00, 0.8465E+00,& - 0.8489E+00, 0.8512E+00, 0.8536E+00, 0.8560E+00,& - 0.8583E+00, 0.8607E+00, 0.8631E+00, 0.8656E+00,& - 0.8679E+00, 0.8703E+00, 0.8728E+00, 0.8752E+00,& - 0.8776E+00, 0.8800E+00, 0.8824E+00, 0.8849E+00,& - 0.8873E+00, 0.8897E+00, 0.8922E+00, 0.8946E+00,& - 0.8971E+00, 0.8996E+00, 0.9021E+00, 0.9045E+00,& - 0.9071E+00, 0.9095E+00, 0.9121E+00, 0.9145E+00,& - 0.9170E+00, 0.9196E+00, 0.9221E+00, 0.9246E+00,& - 0.9272E+00, 0.9297E+00, 0.9322E+00, 0.9348E+00,& - 0.9373E+00, 0.9399E+00, 0.9424E+00, 0.9450E+00,& - 0.9476E+00, 0.9502E+00, 0.9528E+00, 0.9554E+00,& - 0.9580E+00, 0.9606E+00, 0.9632E+00, 0.9658E+00,& - 0.9684E+00, 0.9710E+00, 0.9737E+00, 0.9763E+00,& - 0.9790E+00, 0.9816E+00, 0.9842E+00, 0.9869E+00,& - 0.9896E+00, 0.9923E+00, 0.9950E+00, 0.9976E+00,& - 0.1000E+01, 0.1003E+01, 0.1006E+01, 0.1008E+01,& - 0.1011E+01, 0.1014E+01, 0.1017E+01, 0.1019E+01,& - 0.1022E+01, 0.1025E+01, 0.1028E+01, 0.1031E+01,& - 0.1033E+01, 0.1036E+01, 0.1039E+01, 0.1042E+01,& - 0.1044E+01, 0.1047E+01, 0.1050E+01, 0.1053E+01,& - 0.1056E+01, 0.1059E+01, 0.1061E+01, 0.1064E+01,& - 0.1067E+01, 0.1070E+01, 0.1073E+01, 0.1076E+01,& - 0.1079E+01, 0.1082E+01, 0.1084E+01, 0.1087E+01,& - 0.1090E+01, 0.1093E+01, 0.1096E+01, 0.1099E+01,& - 0.1102E+01, 0.1105E+01, 0.1108E+01, 0.1111E+01,& - 0.1114E+01, 0.1117E+01, 0.1120E+01, 0.1123E+01,& - 0.1126E+01, 0.1129E+01, 0.1132E+01, 0.1135E+01,& - 0.1138E+01, 0.1141E+01, 0.1144E+01, 0.1147E+01,& - 0.1150E+01, 0.1154E+01, 0.1157E+01, 0.1160E+01,& - 0.1163E+01, 0.1166E+01, 0.1169E+01, 0.1172E+01,& - 0.1175E+01, 0.1179E+01, 0.1182E+01, 0.1185E+01,& - 0.1188E+01, 0.1191E+01, 0.1195E+01, 0.1198E+01,& - 0.1201E+01, 0.1204E+01, 0.1207E+01, 0.1211E+01,& - 0.1214E+01, 0.1217E+01, 0.1220E+01, 0.1224E+01,& - 0.1227E+01, 0.1230E+01, 0.1234E+01, 0.1237E+01,& - 0.1240E+01, 0.1244E+01, 0.1247E+01, 0.1250E+01,& - 0.1254E+01, 0.1257E+01, 0.1261E+01, 0.1264E+01,& - 0.1267E+01, 0.1271E+01, 0.1274E+01, 0.1278E+01,& - 0.1281E+01, 0.1285E+01, 0.1288E+01, 0.1292E+01,& - 0.1295E+01, 0.1299E+01, 0.1302E+01, 0.1306E+01,& - 0.1309E+01, 0.1313E+01, 0.1317E+01, 0.1320E+01,& - 0.1324E+01, 0.1327E+01, 0.1331E+01, 0.1335E+01,& - 0.1338E+01, 0.1342E+01, 0.1346E+01, 0.1349E+01,& - 0.1353E+01, 0.1357E+01, 0.1360E+01, 0.1364E+01,& - 0.1368E+01, 0.1372E+01, 0.1375E+01, 0.1379E+01,& - 0.1383E+01, 0.1387E+01, 0.1391E+01, 0.1394E+01,& - 0.1398E+01, 0.1402E+01, 0.1406E+01, 0.1410E+01,& - 0.1414E+01, 0.1418E+01, 0.1422E+01, 0.1426E+01,& - 0.1430E+01, 0.1433E+01, 0.1437E+01, 0.1441E+01,& - 0.1446E+01, 0.1450E+01, 0.1454E+01, 0.1458E+01,& - 0.1462E+01, 0.1466E+01, 0.1470E+01, 0.1474E+01,& - 0.1478E+01, 0.1482E+01, 0.1487E+01, 0.1491E+01,& - 0.1495E+01, 0.1499E+01, 0.1503E+01, 0.1508E+01,& - 0.1512E+01, 0.1516E+01, 0.1520E+01, 0.1525E+01,& - 0.1529E+01, 0.1533E+01, 0.1538E+01, 0.1542E+01,& - 0.1547E+01, 0.1551E+01, 0.1555E+01, 0.1560E+01,& - 0.1564E+01, 0.1569E+01, 0.1573E+01, 0.1578E+01,& - 0.1582E+01, 0.1587E+01, 0.1592E+01, 0.1596E+01,& - 0.1601E+01, 0.1605E+01, 0.1610E+01, 0.1615E+01,& - 0.1619E+01, 0.1624E+01, 0.1629E+01, 0.1634E+01,& - 0.1639E+01, 0.1643E+01, 0.1648E+01, 0.1653E+01,& - 0.1658E+01, 0.1663E+01, 0.1668E+01, 0.1673E+01,& - 0.1678E+01, 0.1683E+01, 0.1688E+01, 0.1693E+01,& - 0.1698E+01, 0.1703E+01, 0.1708E+01, 0.1713E+01,& - 0.1718E+01, 0.1723E+01, 0.1728E+01, 0.1734E+01,& - 0.1739E+01, 0.1744E+01, 0.1750E+01, 0.1755E+01,& - 0.1760E+01, 0.1766E+01, 0.1771E+01, 0.1776E+01,& - 0.1782E+01, 0.1787E+01, 0.1793E+01, 0.1799E+01,& - 0.1804E+01, 0.1810E+01, 0.1815E+01, 0.1821E+01,& - 0.1827E+01, 0.1832E+01, 0.1838E+01, 0.1844E+01,& - 0.1850E+01, 0.1856E+01, 0.1862E+01, 0.1867E+01,& - 0.1873E+01, 0.1879E+01, 0.1885E+01, 0.1891E+01,& - 0.1898E+01, 0.1904E+01, 0.1910E+01, 0.1916E+01,& - 0.1922E+01, 0.1929E+01, 0.1935E+01, 0.1941E+01,& - 0.1948E+01, 0.1954E+01, 0.1960E+01, 0.1967E+01,& - 0.1974E+01, 0.1980E+01, 0.1987E+01, 0.1993E+01,& - 0.2000E+01, 0.2007E+01, 0.2014E+01, 0.2020E+01,& - 0.2027E+01, 0.2034E+01, 0.2041E+01, 0.2048E+01,& - 0.2055E+01, 0.2062E+01, 0.2070E+01, 0.2077E+01,& - 0.2084E+01, 0.2091E+01, 0.2099E+01, 0.2106E+01,& - 0.2114E+01, 0.2121E+01, 0.2129E+01, 0.2136E+01,& - 0.2144E+01, 0.2152E+01, 0.2160E+01, 0.2168E+01,& - 0.2176E+01, 0.2184E+01, 0.2192E+01, 0.2200E+01,& - 0.2208E+01, 0.2216E+01, 0.2224E+01, 0.2233E+01,& - 0.2241E+01, 0.2250E+01, 0.2258E+01, 0.2267E+01,& - 0.2276E+01, 0.2285E+01, 0.2294E+01, 0.2303E+01,& - 0.2312E+01, 0.2321E+01, 0.2330E+01, 0.2339E+01,& - 0.2349E+01, 0.2358E+01, 0.2368E+01, 0.2377E+01,& - 0.2387E+01, 0.2397E+01, 0.2407E+01, 0.2417E+01,& - 0.2427E+01, 0.2437E+01, 0.2448E+01, 0.2458E+01,& - 0.2469E+01, 0.2480E+01, 0.2490E+01, 0.2501E+01,& - 0.2512E+01, 0.2523E+01, 0.2535E+01, 0.2546E+01,& - 0.2558E+01, 0.2569E+01, 0.2581E+01, 0.2593E+01,& - 0.2605E+01, 0.2618E+01, 0.2630E+01, 0.2643E+01,& - 0.2656E+01, 0.2669E+01, 0.2682E+01, 0.2695E+01,& - 0.2708E+01, 0.2722E+01, 0.2736E+01, 0.2750E+01,& - 0.2764E+01, 0.2779E+01, 0.2794E+01, 0.2809E+01,& - 0.2824E+01, 0.2839E+01, 0.2855E+01, 0.2871E+01,& - 0.2887E+01, 0.2904E+01, 0.2920E+01, 0.2938E+01,& - 0.2955E+01, 0.2973E+01, 0.2991E+01, 0.3009E+01,& - 0.3028E+01, 0.3047E+01, 0.3067E+01, 0.3087E+01,& - 0.3108E+01, 0.3129E+01, 0.3150E+01, 0.3172E+01,& - 0.3195E+01, 0.3218E+01, 0.3242E+01, 0.3266E+01,& - 0.3291E+01, 0.3317E+01, 0.3343E+01, 0.3371E+01,& - 0.3399E+01, 0.3428E+01, 0.3458E+01, 0.3490E+01,& - 0.3522E+01, 0.3556E+01, 0.3591E+01, 0.3627E+01,& - 0.3665E+01, 0.3706E+01, 0.3748E+01, 0.3792E+01,& - 0.3839E+01, 0.3889E+01, 0.3942E+01, 0.3998E+01,& - 0.4059E+01, 0.4125E+01, 0.4197E+01, 0.4277E+01,& - 0.4366E+01, 0.4466E+01, 0.4583E+01, 0.4723E+01,& - 0.1000E-04, 0.4678E-03, 0.1002E-02, 0.1612E-02/) - xcw(:, 37) = (/& - 0.1000E-04, 0.4678E-03, 0.1002E-02, 0.1612E-02,& - 0.2223E-02, 0.2909E-02, 0.3596E-02, 0.4282E-02,& - 0.4969E-02, 0.5732E-02, 0.6495E-02, 0.7182E-02,& - 0.7945E-02, 0.8708E-02, 0.9470E-02, 0.1031E-01,& - 0.1107E-01, 0.1184E-01, 0.1267E-01, 0.1344E-01,& - 0.1428E-01, 0.1512E-01, 0.1596E-01, 0.1672E-01,& - 0.1756E-01, 0.1840E-01, 0.1931E-01, 0.2015E-01,& - 0.2099E-01, 0.2183E-01, 0.2275E-01, 0.2358E-01,& - 0.2442E-01, 0.2534E-01, 0.2626E-01, 0.2709E-01,& - 0.2801E-01, 0.2893E-01, 0.2976E-01, 0.3068E-01,& - 0.3160E-01, 0.3251E-01, 0.3343E-01, 0.3434E-01,& - 0.3526E-01, 0.3617E-01, 0.3709E-01, 0.3808E-01,& - 0.3900E-01, 0.3991E-01, 0.4083E-01, 0.4182E-01,& - 0.4273E-01, 0.4373E-01, 0.4464E-01, 0.4563E-01,& - 0.4655E-01, 0.4754E-01, 0.4853E-01, 0.4945E-01,& - 0.5044E-01, 0.5143E-01, 0.5242E-01, 0.5342E-01,& - 0.5433E-01, 0.5532E-01, 0.5631E-01, 0.5731E-01,& - 0.5830E-01, 0.5929E-01, 0.6028E-01, 0.6135E-01,& - 0.6234E-01, 0.6333E-01, 0.6433E-01, 0.6539E-01,& - 0.6639E-01, 0.6738E-01, 0.6845E-01, 0.6944E-01,& - 0.7043E-01, 0.7150E-01, 0.7249E-01, 0.7356E-01,& - 0.7455E-01, 0.7562E-01, 0.7669E-01, 0.7768E-01,& - 0.7875E-01, 0.7981E-01, 0.8088E-01, 0.8187E-01,& - 0.8294E-01, 0.8401E-01, 0.8508E-01, 0.8615E-01,& - 0.8721E-01, 0.8828E-01, 0.8935E-01, 0.9042E-01,& - 0.9149E-01, 0.9255E-01, 0.9362E-01, 0.9469E-01,& - 0.9584E-01, 0.9690E-01, 0.9797E-01, 0.9904E-01,& - 0.1002E+00, 0.1013E+00, 0.1023E+00, 0.1035E+00,& - 0.1045E+00, 0.1057E+00, 0.1067E+00, 0.1079E+00,& - 0.1090E+00, 0.1101E+00, 0.1112E+00, 0.1123E+00,& - 0.1135E+00, 0.1145E+00, 0.1157E+00, 0.1168E+00,& - 0.1180E+00, 0.1190E+00, 0.1202E+00, 0.1213E+00,& - 0.1225E+00, 0.1236E+00, 0.1248E+00, 0.1259E+00,& - 0.1270E+00, 0.1282E+00, 0.1293E+00, 0.1305E+00,& - 0.1316E+00, 0.1328E+00, 0.1339E+00, 0.1351E+00,& - 0.1363E+00, 0.1374E+00, 0.1386E+00, 0.1398E+00,& - 0.1409E+00, 0.1421E+00, 0.1433E+00, 0.1444E+00,& - 0.1457E+00, 0.1468E+00, 0.1480E+00, 0.1492E+00,& - 0.1504E+00, 0.1515E+00, 0.1528E+00, 0.1540E+00,& - 0.1551E+00, 0.1563E+00, 0.1576E+00, 0.1587E+00,& - 0.1599E+00, 0.1611E+00, 0.1624E+00, 0.1636E+00,& - 0.1648E+00, 0.1660E+00, 0.1672E+00, 0.1685E+00,& - 0.1697E+00, 0.1709E+00, 0.1721E+00, 0.1733E+00,& - 0.1746E+00, 0.1758E+00, 0.1770E+00, 0.1782E+00,& - 0.1795E+00, 0.1808E+00, 0.1820E+00, 0.1832E+00,& - 0.1845E+00, 0.1857E+00, 0.1869E+00, 0.1882E+00,& - 0.1894E+00, 0.1907E+00, 0.1920E+00, 0.1933E+00,& - 0.1945E+00, 0.1958E+00, 0.1971E+00, 0.1983E+00,& - 0.1996E+00, 0.2009E+00, 0.2021E+00, 0.2034E+00,& - 0.2047E+00, 0.2060E+00, 0.2072E+00, 0.2085E+00,& - 0.2098E+00, 0.2111E+00, 0.2124E+00, 0.2137E+00,& - 0.2150E+00, 0.2163E+00, 0.2176E+00, 0.2189E+00,& - 0.2202E+00, 0.2215E+00, 0.2229E+00, 0.2242E+00,& - 0.2255E+00, 0.2268E+00, 0.2281E+00, 0.2294E+00,& - 0.2307E+00, 0.2321E+00, 0.2334E+00, 0.2347E+00,& - 0.2361E+00, 0.2374E+00, 0.2387E+00, 0.2400E+00,& - 0.2414E+00, 0.2427E+00, 0.2441E+00, 0.2454E+00,& - 0.2467E+00, 0.2481E+00, 0.2495E+00, 0.2509E+00,& - 0.2522E+00, 0.2535E+00, 0.2549E+00, 0.2563E+00,& - 0.2577E+00, 0.2590E+00, 0.2604E+00, 0.2618E+00,& - 0.2631E+00, 0.2645E+00, 0.2659E+00, 0.2673E+00,& - 0.2686E+00, 0.2700E+00, 0.2714E+00, 0.2728E+00,& - 0.2742E+00, 0.2756E+00, 0.2770E+00, 0.2784E+00,& - 0.2798E+00, 0.2812E+00, 0.2826E+00, 0.2840E+00,& - 0.2854E+00, 0.2868E+00, 0.2882E+00, 0.2897E+00,& - 0.2911E+00, 0.2925E+00, 0.2939E+00, 0.2953E+00,& - 0.2968E+00, 0.2982E+00, 0.2996E+00, 0.3011E+00,& - 0.3025E+00, 0.3040E+00, 0.3054E+00, 0.3069E+00,& - 0.3083E+00, 0.3098E+00, 0.3112E+00, 0.3127E+00,& - 0.3141E+00, 0.3156E+00, 0.3170E+00, 0.3185E+00,& - 0.3199E+00, 0.3214E+00, 0.3229E+00, 0.3243E+00,& - 0.3259E+00, 0.3273E+00, 0.3288E+00, 0.3303E+00,& - 0.3317E+00, 0.3333E+00, 0.3347E+00, 0.3362E+00,& - 0.3377E+00, 0.3392E+00, 0.3407E+00, 0.3422E+00,& - 0.3437E+00, 0.3452E+00, 0.3467E+00, 0.3482E+00,& - 0.3497E+00, 0.3513E+00, 0.3528E+00, 0.3543E+00,& - 0.3558E+00, 0.3574E+00, 0.3589E+00, 0.3604E+00,& - 0.3619E+00, 0.3635E+00, 0.3650E+00, 0.3665E+00,& - 0.3681E+00, 0.3697E+00, 0.3712E+00, 0.3727E+00,& - 0.3743E+00, 0.3758E+00, 0.3774E+00, 0.3790E+00,& - 0.3805E+00, 0.3821E+00, 0.3836E+00, 0.3852E+00,& - 0.3868E+00, 0.3883E+00, 0.3899E+00, 0.3916E+00,& - 0.3931E+00, 0.3947E+00, 0.3963E+00, 0.3979E+00,& - 0.3995E+00, 0.4011E+00, 0.4027E+00, 0.4043E+00,& - 0.4059E+00, 0.4075E+00, 0.4091E+00, 0.4107E+00,& - 0.4123E+00, 0.4139E+00, 0.4155E+00, 0.4172E+00,& - 0.4188E+00, 0.4204E+00, 0.4221E+00, 0.4237E+00,& - 0.4253E+00, 0.4270E+00, 0.4286E+00, 0.4302E+00,& - 0.4318E+00, 0.4335E+00, 0.4352E+00, 0.4368E+00,& - 0.4385E+00, 0.4401E+00, 0.4418E+00, 0.4434E+00,& - 0.4451E+00, 0.4468E+00, 0.4485E+00, 0.4501E+00,& - 0.4518E+00, 0.4535E+00, 0.4552E+00, 0.4569E+00,& - 0.4586E+00, 0.4603E+00, 0.4620E+00, 0.4636E+00,& - 0.4654E+00, 0.4671E+00, 0.4688E+00, 0.4705E+00,& - 0.4722E+00, 0.4739E+00, 0.4756E+00, 0.4774E+00,& - 0.4791E+00, 0.4808E+00, 0.4826E+00, 0.4842E+00,& - 0.4860E+00, 0.4878E+00, 0.4895E+00, 0.4913E+00,& - 0.4929E+00, 0.4947E+00, 0.4965E+00, 0.4982E+00,& - 0.5000E+00, 0.5018E+00, 0.5035E+00, 0.5053E+00,& - 0.5071E+00, 0.5088E+00, 0.5106E+00, 0.5124E+00,& - 0.5142E+00, 0.5160E+00, 0.5177E+00, 0.5196E+00,& - 0.5213E+00, 0.5232E+00, 0.5250E+00, 0.5267E+00,& - 0.5286E+00, 0.5304E+00, 0.5322E+00, 0.5340E+00,& - 0.5358E+00, 0.5377E+00, 0.5395E+00, 0.5413E+00,& - 0.5431E+00, 0.5450E+00, 0.5468E+00, 0.5486E+00,& - 0.5505E+00, 0.5524E+00, 0.5542E+00, 0.5561E+00,& - 0.5579E+00, 0.5598E+00, 0.5617E+00, 0.5635E+00,& - 0.5654E+00, 0.5673E+00, 0.5692E+00, 0.5711E+00,& - 0.5729E+00, 0.5748E+00, 0.5767E+00, 0.5786E+00,& - 0.5805E+00, 0.5824E+00, 0.5843E+00, 0.5863E+00,& - 0.5882E+00, 0.5901E+00, 0.5920E+00, 0.5939E+00,& - 0.5959E+00, 0.5978E+00, 0.5997E+00, 0.6017E+00,& - 0.6036E+00, 0.6056E+00, 0.6075E+00, 0.6094E+00,& - 0.6114E+00, 0.6133E+00, 0.6153E+00, 0.6173E+00,& - 0.6192E+00, 0.6212E+00, 0.6232E+00, 0.6252E+00,& - 0.6271E+00, 0.6291E+00, 0.6311E+00, 0.6332E+00,& - 0.6352E+00, 0.6371E+00, 0.6391E+00, 0.6412E+00,& - 0.6432E+00, 0.6452E+00, 0.6472E+00, 0.6493E+00,& - 0.6513E+00, 0.6533E+00, 0.6553E+00, 0.6574E+00,& - 0.6594E+00, 0.6615E+00, 0.6635E+00, 0.6656E+00,& - 0.6677E+00, 0.6697E+00, 0.6718E+00, 0.6738E+00,& - 0.6759E+00, 0.6780E+00, 0.6801E+00, 0.6822E+00,& - 0.6843E+00, 0.6863E+00, 0.6885E+00, 0.6905E+00,& - 0.6927E+00, 0.6948E+00, 0.6969E+00, 0.6990E+00,& - 0.7012E+00, 0.7033E+00, 0.7054E+00, 0.7076E+00,& - 0.7097E+00, 0.7118E+00, 0.7140E+00, 0.7161E+00,& - 0.7183E+00, 0.7205E+00, 0.7226E+00, 0.7248E+00,& - 0.7269E+00, 0.7292E+00, 0.7314E+00, 0.7335E+00,& - 0.7357E+00, 0.7379E+00, 0.7401E+00, 0.7423E+00,& - 0.7445E+00, 0.7467E+00, 0.7490E+00, 0.7512E+00,& - 0.7534E+00, 0.7556E+00, 0.7578E+00, 0.7601E+00,& - 0.7623E+00, 0.7646E+00, 0.7668E+00, 0.7691E+00,& - 0.7714E+00, 0.7736E+00, 0.7759E+00, 0.7782E+00,& - 0.7805E+00, 0.7828E+00, 0.7851E+00, 0.7874E+00,& - 0.7897E+00, 0.7920E+00, 0.7943E+00, 0.7966E+00,& - 0.7990E+00, 0.8012E+00, 0.8036E+00, 0.8059E+00,& - 0.8083E+00, 0.8106E+00, 0.8130E+00, 0.8153E+00,& - 0.8177E+00, 0.8200E+00, 0.8225E+00, 0.8248E+00,& - 0.8272E+00, 0.8296E+00, 0.8320E+00, 0.8344E+00,& - 0.8367E+00, 0.8392E+00, 0.8416E+00, 0.8440E+00,& - 0.8464E+00, 0.8489E+00, 0.8513E+00, 0.8537E+00,& - 0.8562E+00, 0.8586E+00, 0.8611E+00, 0.8635E+00,& - 0.8660E+00, 0.8685E+00, 0.8709E+00, 0.8734E+00,& - 0.8759E+00, 0.8784E+00, 0.8809E+00, 0.8834E+00,& - 0.8859E+00, 0.8885E+00, 0.8910E+00, 0.8935E+00,& - 0.8960E+00, 0.8985E+00, 0.9011E+00, 0.9036E+00,& - 0.9062E+00, 0.9087E+00, 0.9113E+00, 0.9139E+00,& - 0.9165E+00, 0.9190E+00, 0.9216E+00, 0.9242E+00,& - 0.9268E+00, 0.9295E+00, 0.9321E+00, 0.9347E+00,& - 0.9374E+00, 0.9400E+00, 0.9426E+00, 0.9453E+00,& - 0.9479E+00, 0.9506E+00, 0.9532E+00, 0.9559E+00,& - 0.9586E+00, 0.9612E+00, 0.9640E+00, 0.9667E+00,& - 0.9693E+00, 0.9721E+00, 0.9748E+00, 0.9775E+00,& - 0.9802E+00, 0.9830E+00, 0.9857E+00, 0.9885E+00,& - 0.9912E+00, 0.9940E+00, 0.9968E+00, 0.9995E+00,& - 0.1002E+01, 0.1005E+01, 0.1008E+01, 0.1006E+01,& - 0.1013E+01, 0.1016E+01, 0.1019E+01, 0.1022E+01,& - 0.1025E+01, 0.1028E+01, 0.1031E+01, 0.1033E+01,& - 0.1036E+01, 0.1039E+01, 0.1042E+01, 0.1045E+01,& - 0.1048E+01, 0.1051E+01, 0.1054E+01, 0.1057E+01,& - 0.1060E+01, 0.1062E+01, 0.1065E+01, 0.1068E+01,& - 0.1071E+01, 0.1074E+01, 0.1077E+01, 0.1080E+01,& - 0.1083E+01, 0.1086E+01, 0.1089E+01, 0.1092E+01,& - 0.1095E+01, 0.1098E+01, 0.1101E+01, 0.1104E+01,& - 0.1107E+01, 0.1110E+01, 0.1114E+01, 0.1117E+01,& - 0.1120E+01, 0.1123E+01, 0.1126E+01, 0.1129E+01,& - 0.1132E+01, 0.1135E+01, 0.1138E+01, 0.1142E+01,& - 0.1145E+01, 0.1148E+01, 0.1151E+01, 0.1154E+01,& - 0.1157E+01, 0.1161E+01, 0.1164E+01, 0.1167E+01,& - 0.1170E+01, 0.1174E+01, 0.1177E+01, 0.1180E+01,& - 0.1183E+01, 0.1187E+01, 0.1190E+01, 0.1193E+01,& - 0.1197E+01, 0.1200E+01, 0.1203E+01, 0.1207E+01,& - 0.1210E+01, 0.1213E+01, 0.1217E+01, 0.1220E+01,& - 0.1223E+01, 0.1227E+01, 0.1230E+01, 0.1234E+01,& - 0.1237E+01, 0.1240E+01, 0.1244E+01, 0.1247E+01,& - 0.1251E+01, 0.1254E+01, 0.1258E+01, 0.1261E+01,& - 0.1265E+01, 0.1268E+01, 0.1272E+01, 0.1275E+01,& - 0.1279E+01, 0.1283E+01, 0.1286E+01, 0.1290E+01,& - 0.1293E+01, 0.1297E+01, 0.1301E+01, 0.1304E+01,& - 0.1308E+01, 0.1312E+01, 0.1315E+01, 0.1319E+01,& - 0.1323E+01, 0.1326E+01, 0.1330E+01, 0.1334E+01,& - 0.1337E+01, 0.1341E+01, 0.1345E+01, 0.1349E+01,& - 0.1353E+01, 0.1356E+01, 0.1360E+01, 0.1364E+01,& - 0.1368E+01, 0.1372E+01, 0.1376E+01, 0.1379E+01,& - 0.1383E+01, 0.1387E+01, 0.1391E+01, 0.1395E+01,& - 0.1399E+01, 0.1403E+01, 0.1407E+01, 0.1411E+01,& - 0.1415E+01, 0.1419E+01, 0.1423E+01, 0.1427E+01,& - 0.1431E+01, 0.1435E+01, 0.1440E+01, 0.1444E+01,& - 0.1448E+01, 0.1452E+01, 0.1456E+01, 0.1460E+01,& - 0.1464E+01, 0.1469E+01, 0.1473E+01, 0.1477E+01,& - 0.1481E+01, 0.1486E+01, 0.1490E+01, 0.1494E+01,& - 0.1499E+01, 0.1503E+01, 0.1507E+01, 0.1512E+01,& - 0.1516E+01, 0.1520E+01, 0.1525E+01, 0.1529E+01,& - 0.1534E+01, 0.1538E+01, 0.1543E+01, 0.1547E+01,& - 0.1552E+01, 0.1556E+01, 0.1561E+01, 0.1566E+01,& - 0.1570E+01, 0.1575E+01, 0.1579E+01, 0.1584E+01,& - 0.1589E+01, 0.1593E+01, 0.1598E+01, 0.1603E+01,& - 0.1608E+01, 0.1613E+01, 0.1617E+01, 0.1622E+01,& - 0.1627E+01, 0.1632E+01, 0.1637E+01, 0.1642E+01,& - 0.1647E+01, 0.1652E+01, 0.1657E+01, 0.1662E+01,& - 0.1667E+01, 0.1672E+01, 0.1677E+01, 0.1682E+01,& - 0.1687E+01, 0.1692E+01, 0.1697E+01, 0.1702E+01,& - 0.1708E+01, 0.1713E+01, 0.1718E+01, 0.1723E+01,& - 0.1729E+01, 0.1734E+01, 0.1740E+01, 0.1745E+01,& - 0.1750E+01, 0.1756E+01, 0.1761E+01, 0.1767E+01,& - 0.1772E+01, 0.1778E+01, 0.1783E+01, 0.1789E+01,& - 0.1795E+01, 0.1800E+01, 0.1806E+01, 0.1812E+01,& - 0.1818E+01, 0.1823E+01, 0.1829E+01, 0.1835E+01,& - 0.1841E+01, 0.1847E+01, 0.1853E+01, 0.1859E+01,& - 0.1865E+01, 0.1871E+01, 0.1877E+01, 0.1883E+01,& - 0.1889E+01, 0.1895E+01, 0.1902E+01, 0.1908E+01,& - 0.1914E+01, 0.1920E+01, 0.1927E+01, 0.1933E+01,& - 0.1940E+01, 0.1946E+01, 0.1953E+01, 0.1959E+01,& - 0.1966E+01, 0.1973E+01, 0.1979E+01, 0.1986E+01,& - 0.1993E+01, 0.1999E+01, 0.2006E+01, 0.2013E+01,& - 0.2020E+01, 0.2027E+01, 0.2034E+01, 0.2041E+01,& - 0.2048E+01, 0.2056E+01, 0.2063E+01, 0.2070E+01,& - 0.2077E+01, 0.2085E+01, 0.2092E+01, 0.2100E+01,& - 0.2107E+01, 0.2115E+01, 0.2122E+01, 0.2130E+01,& - 0.2138E+01, 0.2146E+01, 0.2153E+01, 0.2161E+01,& - 0.2169E+01, 0.2177E+01, 0.2185E+01, 0.2194E+01,& - 0.2202E+01, 0.2210E+01, 0.2218E+01, 0.2227E+01,& - 0.2235E+01, 0.2244E+01, 0.2252E+01, 0.2261E+01,& - 0.2270E+01, 0.2279E+01, 0.2288E+01, 0.2297E+01,& - 0.2306E+01, 0.2315E+01, 0.2324E+01, 0.2333E+01,& - 0.2343E+01, 0.2352E+01, 0.2362E+01, 0.2371E+01,& - 0.2381E+01, 0.2391E+01, 0.2401E+01, 0.2411E+01,& - 0.2421E+01, 0.2431E+01, 0.2442E+01, 0.2452E+01,& - 0.2463E+01, 0.2473E+01, 0.2484E+01, 0.2495E+01,& - 0.2506E+01, 0.2517E+01, 0.2528E+01, 0.2539E+01,& - 0.2551E+01, 0.2562E+01, 0.2574E+01, 0.2586E+01,& - 0.2598E+01, 0.2610E+01, 0.2623E+01, 0.2635E+01,& - 0.2648E+01, 0.2660E+01, 0.2673E+01, 0.2686E+01,& - 0.2700E+01, 0.2713E+01, 0.2727E+01, 0.2740E+01,& - 0.2754E+01, 0.2769E+01, 0.2783E+01, 0.2798E+01,& - 0.2813E+01, 0.2828E+01, 0.2843E+01, 0.2858E+01,& - 0.2874E+01, 0.2890E+01, 0.2907E+01, 0.2923E+01,& - 0.2940E+01, 0.2957E+01, 0.2975E+01, 0.2992E+01,& - 0.3010E+01, 0.3029E+01, 0.3048E+01, 0.3067E+01,& - 0.3087E+01, 0.3107E+01, 0.3127E+01, 0.3148E+01,& - 0.3169E+01, 0.3191E+01, 0.3213E+01, 0.3236E+01,& - 0.3260E+01, 0.3284E+01, 0.3308E+01, 0.3334E+01,& - 0.3360E+01, 0.3386E+01, 0.3414E+01, 0.3443E+01,& - 0.3472E+01, 0.3502E+01, 0.3534E+01, 0.3566E+01,& - 0.3600E+01, 0.3635E+01, 0.3671E+01, 0.3710E+01,& - 0.3749E+01, 0.3791E+01, 0.3835E+01, 0.3881E+01,& - 0.3930E+01, 0.3981E+01, 0.4036E+01, 0.4095E+01,& - 0.4159E+01, 0.4227E+01, 0.4302E+01, 0.4385E+01,& - 0.4477E+01, 0.4582E+01, 0.4704E+01, 0.4849E+01,& - 0.1000E-04, 0.3229E-03, 0.7140E-03, 0.1183E-02/) - xcw(:, 38) = (/& - 0.1000E-04, 0.3229E-03, 0.7140E-03, 0.1183E-02,& - 0.1731E-02, 0.2279E-02, 0.2826E-02, 0.3374E-02,& - 0.3921E-02, 0.4547E-02, 0.5173E-02, 0.5799E-02,& - 0.6424E-02, 0.7050E-02, 0.7754E-02, 0.8380E-02,& - 0.9084E-02, 0.9788E-02, 0.1049E-01, 0.1120E-01,& - 0.1190E-01, 0.1260E-01, 0.1331E-01, 0.1401E-01,& - 0.1479E-01, 0.1550E-01, 0.1628E-01, 0.1698E-01,& - 0.1777E-01, 0.1855E-01, 0.1933E-01, 0.2004E-01,& - 0.2082E-01, 0.2160E-01, 0.2246E-01, 0.2324E-01,& - 0.2403E-01, 0.2481E-01, 0.2567E-01, 0.2645E-01,& - 0.2723E-01, 0.2809E-01, 0.2888E-01, 0.2974E-01,& - 0.3060E-01, 0.3138E-01, 0.3224E-01, 0.3310E-01,& - 0.3396E-01, 0.3482E-01, 0.3568E-01, 0.3654E-01,& - 0.3740E-01, 0.3826E-01, 0.3912E-01, 0.3998E-01,& - 0.4092E-01, 0.4178E-01, 0.4264E-01, 0.4358E-01,& - 0.4444E-01, 0.4538E-01, 0.4624E-01, 0.4718E-01,& - 0.4804E-01, 0.4898E-01, 0.4992E-01, 0.5078E-01,& - 0.5172E-01, 0.5266E-01, 0.5359E-01, 0.5453E-01,& - 0.5547E-01, 0.5641E-01, 0.5735E-01, 0.5829E-01,& - 0.5923E-01, 0.6017E-01, 0.6110E-01, 0.6204E-01,& - 0.6298E-01, 0.6400E-01, 0.6494E-01, 0.6588E-01,& - 0.6689E-01, 0.6783E-01, 0.6885E-01, 0.6979E-01,& - 0.7080E-01, 0.7174E-01, 0.7276E-01, 0.7370E-01,& - 0.7471E-01, 0.7573E-01, 0.7675E-01, 0.7769E-01,& - 0.7870E-01, 0.7972E-01, 0.8074E-01, 0.8176E-01,& - 0.8277E-01, 0.8379E-01, 0.8481E-01, 0.8582E-01,& - 0.8684E-01, 0.8786E-01, 0.8887E-01, 0.8989E-01,& - 0.9099E-01, 0.9200E-01, 0.9302E-01, 0.9411E-01,& - 0.9513E-01, 0.9615E-01, 0.9724E-01, 0.9826E-01,& - 0.9936E-01, 0.1004E+00, 0.1015E+00, 0.1025E+00,& - 0.1036E+00, 0.1047E+00, 0.1057E+00, 0.1068E+00,& - 0.1079E+00, 0.1089E+00, 0.1100E+00, 0.1111E+00,& - 0.1122E+00, 0.1133E+00, 0.1144E+00, 0.1155E+00,& - 0.1166E+00, 0.1177E+00, 0.1188E+00, 0.1199E+00,& - 0.1209E+00, 0.1220E+00, 0.1231E+00, 0.1243E+00,& - 0.1254E+00, 0.1265E+00, 0.1276E+00, 0.1288E+00,& - 0.1299E+00, 0.1310E+00, 0.1321E+00, 0.1332E+00,& - 0.1344E+00, 0.1355E+00, 0.1367E+00, 0.1378E+00,& - 0.1389E+00, 0.1401E+00, 0.1412E+00, 0.1424E+00,& - 0.1436E+00, 0.1447E+00, 0.1458E+00, 0.1470E+00,& - 0.1482E+00, 0.1493E+00, 0.1505E+00, 0.1517E+00,& - 0.1529E+00, 0.1540E+00, 0.1552E+00, 0.1564E+00,& - 0.1576E+00, 0.1587E+00, 0.1599E+00, 0.1611E+00,& - 0.1623E+00, 0.1635E+00, 0.1647E+00, 0.1658E+00,& - 0.1671E+00, 0.1683E+00, 0.1694E+00, 0.1707E+00,& - 0.1719E+00, 0.1731E+00, 0.1743E+00, 0.1755E+00,& - 0.1767E+00, 0.1780E+00, 0.1792E+00, 0.1804E+00,& - 0.1816E+00, 0.1829E+00, 0.1842E+00, 0.1853E+00,& - 0.1866E+00, 0.1878E+00, 0.1891E+00, 0.1903E+00,& - 0.1916E+00, 0.1928E+00, 0.1941E+00, 0.1953E+00,& - 0.1966E+00, 0.1978E+00, 0.1991E+00, 0.2003E+00,& - 0.2016E+00, 0.2028E+00, 0.2042E+00, 0.2054E+00,& - 0.2067E+00, 0.2079E+00, 0.2093E+00, 0.2105E+00,& - 0.2118E+00, 0.2131E+00, 0.2144E+00, 0.2157E+00,& - 0.2170E+00, 0.2183E+00, 0.2196E+00, 0.2208E+00,& - 0.2222E+00, 0.2235E+00, 0.2248E+00, 0.2261E+00,& - 0.2274E+00, 0.2287E+00, 0.2301E+00, 0.2313E+00,& - 0.2327E+00, 0.2340E+00, 0.2353E+00, 0.2366E+00,& - 0.2380E+00, 0.2393E+00, 0.2406E+00, 0.2420E+00,& - 0.2434E+00, 0.2447E+00, 0.2460E+00, 0.2474E+00,& - 0.2487E+00, 0.2501E+00, 0.2514E+00, 0.2528E+00,& - 0.2542E+00, 0.2555E+00, 0.2569E+00, 0.2582E+00,& - 0.2596E+00, 0.2610E+00, 0.2624E+00, 0.2637E+00,& - 0.2651E+00, 0.2665E+00, 0.2679E+00, 0.2693E+00,& - 0.2707E+00, 0.2721E+00, 0.2734E+00, 0.2748E+00,& - 0.2762E+00, 0.2776E+00, 0.2790E+00, 0.2804E+00,& - 0.2819E+00, 0.2833E+00, 0.2847E+00, 0.2861E+00,& - 0.2875E+00, 0.2889E+00, 0.2904E+00, 0.2918E+00,& - 0.2932E+00, 0.2946E+00, 0.2961E+00, 0.2975E+00,& - 0.2989E+00, 0.3004E+00, 0.3018E+00, 0.3033E+00,& - 0.3047E+00, 0.3062E+00, 0.3077E+00, 0.3091E+00,& - 0.3106E+00, 0.3120E+00, 0.3135E+00, 0.3149E+00,& - 0.3164E+00, 0.3179E+00, 0.3193E+00, 0.3208E+00,& - 0.3223E+00, 0.3238E+00, 0.3253E+00, 0.3268E+00,& - 0.3282E+00, 0.3297E+00, 0.3312E+00, 0.3327E+00,& - 0.3343E+00, 0.3358E+00, 0.3372E+00, 0.3387E+00,& - 0.3403E+00, 0.3418E+00, 0.3433E+00, 0.3448E+00,& - 0.3463E+00, 0.3479E+00, 0.3494E+00, 0.3509E+00,& - 0.3524E+00, 0.3540E+00, 0.3555E+00, 0.3570E+00,& - 0.3586E+00, 0.3602E+00, 0.3617E+00, 0.3632E+00,& - 0.3648E+00, 0.3663E+00, 0.3679E+00, 0.3695E+00,& - 0.3710E+00, 0.3726E+00, 0.3742E+00, 0.3757E+00,& - 0.3773E+00, 0.3789E+00, 0.3805E+00, 0.3821E+00,& - 0.3836E+00, 0.3853E+00, 0.3868E+00, 0.3884E+00,& - 0.3900E+00, 0.3916E+00, 0.3932E+00, 0.3948E+00,& - 0.3965E+00, 0.3980E+00, 0.3997E+00, 0.4013E+00,& - 0.4029E+00, 0.4045E+00, 0.4062E+00, 0.4078E+00,& - 0.4094E+00, 0.4110E+00, 0.4126E+00, 0.4143E+00,& - 0.4159E+00, 0.4176E+00, 0.4192E+00, 0.4209E+00,& - 0.4226E+00, 0.4242E+00, 0.4259E+00, 0.4275E+00,& - 0.4292E+00, 0.4309E+00, 0.4325E+00, 0.4342E+00,& - 0.4359E+00, 0.4376E+00, 0.4392E+00, 0.4410E+00,& - 0.4426E+00, 0.4443E+00, 0.4460E+00, 0.4477E+00,& - 0.4494E+00, 0.4511E+00, 0.4529E+00, 0.4546E+00,& - 0.4563E+00, 0.4580E+00, 0.4597E+00, 0.4615E+00,& - 0.4632E+00, 0.4649E+00, 0.4666E+00, 0.4683E+00,& - 0.4701E+00, 0.4719E+00, 0.4736E+00, 0.4753E+00,& - 0.4771E+00, 0.4788E+00, 0.4806E+00, 0.4823E+00,& - 0.4841E+00, 0.4859E+00, 0.4877E+00, 0.4895E+00,& - 0.4912E+00, 0.4930E+00, 0.4948E+00, 0.4966E+00,& - 0.4984E+00, 0.5001E+00, 0.5019E+00, 0.5037E+00,& - 0.5055E+00, 0.5074E+00, 0.5092E+00, 0.5110E+00,& - 0.5128E+00, 0.5146E+00, 0.5165E+00, 0.5183E+00,& - 0.5201E+00, 0.5219E+00, 0.5237E+00, 0.5256E+00,& - 0.5274E+00, 0.5293E+00, 0.5312E+00, 0.5330E+00,& - 0.5348E+00, 0.5367E+00, 0.5386E+00, 0.5404E+00,& - 0.5423E+00, 0.5441E+00, 0.5460E+00, 0.5479E+00,& - 0.5498E+00, 0.5517E+00, 0.5536E+00, 0.5555E+00,& - 0.5574E+00, 0.5593E+00, 0.5612E+00, 0.5631E+00,& - 0.5650E+00, 0.5669E+00, 0.5689E+00, 0.5707E+00,& - 0.5727E+00, 0.5747E+00, 0.5766E+00, 0.5785E+00,& - 0.5804E+00, 0.5824E+00, 0.5844E+00, 0.5863E+00,& - 0.5883E+00, 0.5902E+00, 0.5922E+00, 0.5941E+00,& - 0.5961E+00, 0.5981E+00, 0.6001E+00, 0.6020E+00,& - 0.6041E+00, 0.6060E+00, 0.6081E+00, 0.6100E+00,& - 0.6120E+00, 0.6140E+00, 0.6160E+00, 0.6181E+00,& - 0.6201E+00, 0.6221E+00, 0.6241E+00, 0.6261E+00,& - 0.6282E+00, 0.6302E+00, 0.6323E+00, 0.6343E+00,& - 0.6364E+00, 0.6384E+00, 0.6404E+00, 0.6426E+00,& - 0.6446E+00, 0.6467E+00, 0.6487E+00, 0.6508E+00,& - 0.6529E+00, 0.6550E+00, 0.6571E+00, 0.6592E+00,& - 0.6612E+00, 0.6634E+00, 0.6655E+00, 0.6676E+00,& - 0.6697E+00, 0.6718E+00, 0.6739E+00, 0.6761E+00,& - 0.6782E+00, 0.6803E+00, 0.6825E+00, 0.6846E+00,& - 0.6867E+00, 0.6889E+00, 0.6911E+00, 0.6932E+00,& - 0.6954E+00, 0.6976E+00, 0.6998E+00, 0.7019E+00,& - 0.7041E+00, 0.7063E+00, 0.7085E+00, 0.7107E+00,& - 0.7130E+00, 0.7151E+00, 0.7173E+00, 0.7195E+00,& - 0.7218E+00, 0.7240E+00, 0.7263E+00, 0.7284E+00,& - 0.7307E+00, 0.7330E+00, 0.7352E+00, 0.7374E+00,& - 0.7397E+00, 0.7420E+00, 0.7442E+00, 0.7465E+00,& - 0.7488E+00, 0.7510E+00, 0.7534E+00, 0.7557E+00,& - 0.7579E+00, 0.7603E+00, 0.7625E+00, 0.7649E+00,& - 0.7672E+00, 0.7695E+00, 0.7719E+00, 0.7742E+00,& - 0.7766E+00, 0.7788E+00, 0.7812E+00, 0.7836E+00,& - 0.7859E+00, 0.7883E+00, 0.7906E+00, 0.7930E+00,& - 0.7954E+00, 0.7977E+00, 0.8002E+00, 0.8025E+00,& - 0.8049E+00, 0.8074E+00, 0.8098E+00, 0.8121E+00,& - 0.8146E+00, 0.8170E+00, 0.8194E+00, 0.8219E+00,& - 0.8243E+00, 0.8268E+00, 0.8292E+00, 0.8317E+00,& - 0.8341E+00, 0.8366E+00, 0.8391E+00, 0.8416E+00,& - 0.8441E+00, 0.8466E+00, 0.8491E+00, 0.8516E+00,& - 0.8541E+00, 0.8566E+00, 0.8591E+00, 0.8616E+00,& - 0.8642E+00, 0.8667E+00, 0.8692E+00, 0.8717E+00,& - 0.8743E+00, 0.8769E+00, 0.8795E+00, 0.8820E+00,& - 0.8846E+00, 0.8872E+00, 0.8898E+00, 0.8924E+00,& - 0.8950E+00, 0.8976E+00, 0.9002E+00, 0.9028E+00,& - 0.9055E+00, 0.9081E+00, 0.9107E+00, 0.9134E+00,& - 0.9160E+00, 0.9187E+00, 0.9213E+00, 0.9240E+00,& - 0.9267E+00, 0.9294E+00, 0.9321E+00, 0.9348E+00,& - 0.9375E+00, 0.9402E+00, 0.9429E+00, 0.9456E+00,& - 0.9483E+00, 0.9511E+00, 0.9538E+00, 0.9566E+00,& - 0.9594E+00, 0.9621E+00, 0.9649E+00, 0.9677E+00,& - 0.9705E+00, 0.9732E+00, 0.9760E+00, 0.9788E+00,& - 0.9817E+00, 0.9845E+00, 0.9873E+00, 0.9901E+00,& - 0.9930E+00, 0.9958E+00, 0.9987E+00, 0.1002E+01,& - 0.1004E+01, 0.1007E+01, 0.1010E+01, 0.1013E+01,& - 0.1016E+01, 0.1019E+01, 0.1022E+01, 0.1025E+01,& - 0.1028E+01, 0.1031E+01, 0.1034E+01, 0.1036E+01,& - 0.1039E+01, 0.1042E+01, 0.1045E+01, 0.1048E+01,& - 0.1051E+01, 0.1054E+01, 0.1057E+01, 0.1060E+01,& - 0.1063E+01, 0.1066E+01, 0.1070E+01, 0.1073E+01,& - 0.1076E+01, 0.1079E+01, 0.1082E+01, 0.1085E+01,& - 0.1088E+01, 0.1091E+01, 0.1094E+01, 0.1097E+01,& - 0.1100E+01, 0.1104E+01, 0.1107E+01, 0.1110E+01,& - 0.1113E+01, 0.1116E+01, 0.1119E+01, 0.1122E+01,& - 0.1126E+01, 0.1129E+01, 0.1132E+01, 0.1135E+01,& - 0.1139E+01, 0.1142E+01, 0.1145E+01, 0.1148E+01,& - 0.1152E+01, 0.1155E+01, 0.1158E+01, 0.1161E+01,& - 0.1165E+01, 0.1168E+01, 0.1171E+01, 0.1175E+01,& - 0.1178E+01, 0.1181E+01, 0.1185E+01, 0.1188E+01,& - 0.1192E+01, 0.1195E+01, 0.1198E+01, 0.1202E+01,& - 0.1205E+01, 0.1209E+01, 0.1212E+01, 0.1216E+01,& - 0.1219E+01, 0.1223E+01, 0.1226E+01, 0.1230E+01,& - 0.1233E+01, 0.1237E+01, 0.1240E+01, 0.1244E+01,& - 0.1247E+01, 0.1251E+01, 0.1254E+01, 0.1258E+01,& - 0.1262E+01, 0.1265E+01, 0.1269E+01, 0.1272E+01,& - 0.1276E+01, 0.1280E+01, 0.1283E+01, 0.1287E+01,& - 0.1291E+01, 0.1294E+01, 0.1298E+01, 0.1302E+01,& - 0.1306E+01, 0.1309E+01, 0.1313E+01, 0.1317E+01,& - 0.1321E+01, 0.1325E+01, 0.1328E+01, 0.1332E+01,& - 0.1336E+01, 0.1340E+01, 0.1344E+01, 0.1348E+01,& - 0.1352E+01, 0.1356E+01, 0.1359E+01, 0.1363E+01,& - 0.1367E+01, 0.1371E+01, 0.1375E+01, 0.1379E+01,& - 0.1383E+01, 0.1387E+01, 0.1391E+01, 0.1395E+01,& - 0.1400E+01, 0.1404E+01, 0.1408E+01, 0.1412E+01,& - 0.1416E+01, 0.1420E+01, 0.1424E+01, 0.1428E+01,& - 0.1433E+01, 0.1437E+01, 0.1441E+01, 0.1445E+01,& - 0.1449E+01, 0.1454E+01, 0.1458E+01, 0.1462E+01,& - 0.1467E+01, 0.1471E+01, 0.1475E+01, 0.1480E+01,& - 0.1484E+01, 0.1488E+01, 0.1493E+01, 0.1497E+01,& - 0.1502E+01, 0.1506E+01, 0.1511E+01, 0.1515E+01,& - 0.1520E+01, 0.1524E+01, 0.1529E+01, 0.1533E+01,& - 0.1538E+01, 0.1543E+01, 0.1547E+01, 0.1552E+01,& - 0.1557E+01, 0.1561E+01, 0.1566E+01, 0.1571E+01,& - 0.1575E+01, 0.1580E+01, 0.1585E+01, 0.1590E+01,& - 0.1595E+01, 0.1599E+01, 0.1604E+01, 0.1609E+01,& - 0.1614E+01, 0.1619E+01, 0.1624E+01, 0.1629E+01,& - 0.1634E+01, 0.1639E+01, 0.1644E+01, 0.1649E+01,& - 0.1654E+01, 0.1659E+01, 0.1664E+01, 0.1670E+01,& - 0.1675E+01, 0.1680E+01, 0.1685E+01, 0.1690E+01,& - 0.1696E+01, 0.1701E+01, 0.1706E+01, 0.1712E+01,& - 0.1717E+01, 0.1723E+01, 0.1728E+01, 0.1733E+01,& - 0.1739E+01, 0.1744E+01, 0.1750E+01, 0.1755E+01,& - 0.1761E+01, 0.1767E+01, 0.1772E+01, 0.1778E+01,& - 0.1784E+01, 0.1789E+01, 0.1795E+01, 0.1801E+01,& - 0.1807E+01, 0.1813E+01, 0.1819E+01, 0.1825E+01,& - 0.1830E+01, 0.1836E+01, 0.1842E+01, 0.1848E+01,& - 0.1855E+01, 0.1861E+01, 0.1867E+01, 0.1873E+01,& - 0.1879E+01, 0.1885E+01, 0.1892E+01, 0.1898E+01,& - 0.1904E+01, 0.1911E+01, 0.1917E+01, 0.1924E+01,& - 0.1930E+01, 0.1937E+01, 0.1943E+01, 0.1950E+01,& - 0.1957E+01, 0.1963E+01, 0.1970E+01, 0.1977E+01,& - 0.1984E+01, 0.1990E+01, 0.1997E+01, 0.2004E+01,& - 0.2011E+01, 0.2018E+01, 0.2025E+01, 0.2033E+01,& - 0.2040E+01, 0.2047E+01, 0.2054E+01, 0.2062E+01,& - 0.2069E+01, 0.2076E+01, 0.2084E+01, 0.2091E+01,& - 0.2099E+01, 0.2106E+01, 0.2114E+01, 0.2122E+01,& - 0.2130E+01, 0.2138E+01, 0.2145E+01, 0.2153E+01,& - 0.2161E+01, 0.2169E+01, 0.2177E+01, 0.2186E+01,& - 0.2194E+01, 0.2202E+01, 0.2211E+01, 0.2219E+01,& - 0.2228E+01, 0.2236E+01, 0.2245E+01, 0.2254E+01,& - 0.2262E+01, 0.2271E+01, 0.2280E+01, 0.2289E+01,& - 0.2298E+01, 0.2307E+01, 0.2316E+01, 0.2326E+01,& - 0.2335E+01, 0.2345E+01, 0.2354E+01, 0.2364E+01,& - 0.2374E+01, 0.2383E+01, 0.2393E+01, 0.2403E+01,& - 0.2413E+01, 0.2424E+01, 0.2434E+01, 0.2444E+01,& - 0.2455E+01, 0.2465E+01, 0.2476E+01, 0.2487E+01,& - 0.2498E+01, 0.2509E+01, 0.2520E+01, 0.2531E+01,& - 0.2542E+01, 0.2554E+01, 0.2566E+01, 0.2577E+01,& - 0.2589E+01, 0.2601E+01, 0.2613E+01, 0.2626E+01,& - 0.2638E+01, 0.2651E+01, 0.2663E+01, 0.2676E+01,& - 0.2689E+01, 0.2703E+01, 0.2716E+01, 0.2730E+01,& - 0.2743E+01, 0.2757E+01, 0.2771E+01, 0.2786E+01,& - 0.2800E+01, 0.2815E+01, 0.2830E+01, 0.2845E+01,& - 0.2861E+01, 0.2876E+01, 0.2892E+01, 0.2908E+01,& - 0.2925E+01, 0.2941E+01, 0.2958E+01, 0.2975E+01,& - 0.2993E+01, 0.3011E+01, 0.3029E+01, 0.3047E+01,& - 0.3066E+01, 0.3085E+01, 0.3105E+01, 0.3125E+01,& - 0.3145E+01, 0.3166E+01, 0.3187E+01, 0.3209E+01,& - 0.3231E+01, 0.3253E+01, 0.3277E+01, 0.3300E+01,& - 0.3325E+01, 0.3350E+01, 0.3375E+01, 0.3402E+01,& - 0.3429E+01, 0.3457E+01, 0.3485E+01, 0.3515E+01,& - 0.3545E+01, 0.3577E+01, 0.3609E+01, 0.3643E+01,& - 0.3678E+01, 0.3715E+01, 0.3753E+01, 0.3792E+01,& - 0.3834E+01, 0.3877E+01, 0.3922E+01, 0.3970E+01,& - 0.4021E+01, 0.4075E+01, 0.4132E+01, 0.4193E+01,& - 0.4259E+01, 0.4330E+01, 0.4408E+01, 0.4494E+01,& - 0.4590E+01, 0.4699E+01, 0.4826E+01, 0.4976E+01,& - 0.1000E-04, 0.1704E-03, 0.4912E-03, 0.8922E-03/) - xcw(:, 39) = (/& - 0.1000E-04, 0.1704E-03, 0.4912E-03, 0.8922E-03,& - 0.1293E-02, 0.1694E-02, 0.2176E-02, 0.2657E-02,& - 0.3138E-02, 0.3619E-02, 0.4100E-02, 0.4662E-02,& - 0.5143E-02, 0.5704E-02, 0.6266E-02, 0.6827E-02,& - 0.7389E-02, 0.8030E-02, 0.8592E-02, 0.9233E-02,& - 0.9795E-02, 0.1044E-01, 0.1108E-01, 0.1172E-01,& - 0.1236E-01, 0.1300E-01, 0.1364E-01, 0.1429E-01,& - 0.1493E-01, 0.1565E-01, 0.1629E-01, 0.1701E-01,& - 0.1774E-01, 0.1838E-01, 0.1910E-01, 0.1982E-01,& - 0.2054E-01, 0.2126E-01, 0.2199E-01, 0.2271E-01,& - 0.2343E-01, 0.2415E-01, 0.2487E-01, 0.2568E-01,& - 0.2640E-01, 0.2720E-01, 0.2792E-01, 0.2872E-01,& - 0.2944E-01, 0.3025E-01, 0.3105E-01, 0.3177E-01,& - 0.3257E-01, 0.3337E-01, 0.3418E-01, 0.3498E-01,& - 0.3578E-01, 0.3658E-01, 0.3739E-01, 0.3819E-01,& - 0.3907E-01, 0.3987E-01, 0.4067E-01, 0.4156E-01,& - 0.4236E-01, 0.4316E-01, 0.4404E-01, 0.4484E-01,& - 0.4573E-01, 0.4661E-01, 0.4741E-01, 0.4829E-01,& - 0.4918E-01, 0.5006E-01, 0.5086E-01, 0.5174E-01,& - 0.5262E-01, 0.5351E-01, 0.5439E-01, 0.5527E-01,& - 0.5615E-01, 0.5712E-01, 0.5800E-01, 0.5888E-01,& - 0.5976E-01, 0.6072E-01, 0.6161E-01, 0.6249E-01,& - 0.6345E-01, 0.6433E-01, 0.6530E-01, 0.6618E-01,& - 0.6714E-01, 0.6810E-01, 0.6899E-01, 0.6995E-01,& - 0.7091E-01, 0.7179E-01, 0.7275E-01, 0.7372E-01,& - 0.7468E-01, 0.7564E-01, 0.7660E-01, 0.7757E-01,& - 0.7853E-01, 0.7949E-01, 0.8045E-01, 0.8142E-01,& - 0.8238E-01, 0.8342E-01, 0.8438E-01, 0.8535E-01,& - 0.8631E-01, 0.8735E-01, 0.8831E-01, 0.8936E-01,& - 0.9032E-01, 0.9136E-01, 0.9232E-01, 0.9337E-01,& - 0.9433E-01, 0.9537E-01, 0.9642E-01, 0.9738E-01,& - 0.9842E-01, 0.9946E-01, 0.1005E+00, 0.1015E+00,& - 0.1025E+00, 0.1036E+00, 0.1046E+00, 0.1056E+00,& - 0.1067E+00, 0.1077E+00, 0.1088E+00, 0.1098E+00,& - 0.1109E+00, 0.1120E+00, 0.1130E+00, 0.1141E+00,& - 0.1151E+00, 0.1162E+00, 0.1173E+00, 0.1184E+00,& - 0.1194E+00, 0.1205E+00, 0.1216E+00, 0.1226E+00,& - 0.1238E+00, 0.1248E+00, 0.1259E+00, 0.1271E+00,& - 0.1281E+00, 0.1292E+00, 0.1303E+00, 0.1315E+00,& - 0.1325E+00, 0.1336E+00, 0.1348E+00, 0.1359E+00,& - 0.1370E+00, 0.1381E+00, 0.1392E+00, 0.1404E+00,& - 0.1415E+00, 0.1426E+00, 0.1437E+00, 0.1449E+00,& - 0.1461E+00, 0.1472E+00, 0.1483E+00, 0.1494E+00,& - 0.1506E+00, 0.1518E+00, 0.1530E+00, 0.1541E+00,& - 0.1552E+00, 0.1564E+00, 0.1575E+00, 0.1587E+00,& - 0.1599E+00, 0.1611E+00, 0.1623E+00, 0.1634E+00,& - 0.1646E+00, 0.1658E+00, 0.1670E+00, 0.1682E+00,& - 0.1693E+00, 0.1705E+00, 0.1717E+00, 0.1729E+00,& - 0.1741E+00, 0.1753E+00, 0.1765E+00, 0.1777E+00,& - 0.1789E+00, 0.1801E+00, 0.1814E+00, 0.1826E+00,& - 0.1838E+00, 0.1850E+00, 0.1862E+00, 0.1875E+00,& - 0.1887E+00, 0.1899E+00, 0.1912E+00, 0.1924E+00,& - 0.1937E+00, 0.1949E+00, 0.1962E+00, 0.1974E+00,& - 0.1987E+00, 0.2000E+00, 0.2012E+00, 0.2024E+00,& - 0.2037E+00, 0.2050E+00, 0.2062E+00, 0.2075E+00,& - 0.2088E+00, 0.2101E+00, 0.2113E+00, 0.2126E+00,& - 0.2139E+00, 0.2152E+00, 0.2165E+00, 0.2178E+00,& - 0.2190E+00, 0.2203E+00, 0.2216E+00, 0.2230E+00,& - 0.2243E+00, 0.2255E+00, 0.2268E+00, 0.2282E+00,& - 0.2295E+00, 0.2308E+00, 0.2321E+00, 0.2334E+00,& - 0.2348E+00, 0.2361E+00, 0.2374E+00, 0.2388E+00,& - 0.2401E+00, 0.2414E+00, 0.2428E+00, 0.2441E+00,& - 0.2454E+00, 0.2468E+00, 0.2482E+00, 0.2495E+00,& - 0.2508E+00, 0.2522E+00, 0.2535E+00, 0.2549E+00,& - 0.2563E+00, 0.2576E+00, 0.2591E+00, 0.2604E+00,& - 0.2618E+00, 0.2632E+00, 0.2645E+00, 0.2659E+00,& - 0.2673E+00, 0.2687E+00, 0.2701E+00, 0.2715E+00,& - 0.2729E+00, 0.2743E+00, 0.2757E+00, 0.2771E+00,& - 0.2785E+00, 0.2799E+00, 0.2813E+00, 0.2827E+00,& - 0.2842E+00, 0.2856E+00, 0.2870E+00, 0.2884E+00,& - 0.2899E+00, 0.2913E+00, 0.2928E+00, 0.2942E+00,& - 0.2956E+00, 0.2971E+00, 0.2985E+00, 0.3000E+00,& - 0.3014E+00, 0.3029E+00, 0.3043E+00, 0.3057E+00,& - 0.3073E+00, 0.3087E+00, 0.3102E+00, 0.3116E+00,& - 0.3131E+00, 0.3146E+00, 0.3161E+00, 0.3175E+00,& - 0.3191E+00, 0.3205E+00, 0.3220E+00, 0.3235E+00,& - 0.3250E+00, 0.3265E+00, 0.3280E+00, 0.3295E+00,& - 0.3310E+00, 0.3325E+00, 0.3341E+00, 0.3356E+00,& - 0.3371E+00, 0.3386E+00, 0.3402E+00, 0.3417E+00,& - 0.3432E+00, 0.3447E+00, 0.3463E+00, 0.3478E+00,& - 0.3493E+00, 0.3509E+00, 0.3524E+00, 0.3539E+00,& - 0.3556E+00, 0.3571E+00, 0.3586E+00, 0.3602E+00,& - 0.3617E+00, 0.3633E+00, 0.3649E+00, 0.3665E+00,& - 0.3681E+00, 0.3697E+00, 0.3712E+00, 0.3728E+00,& - 0.3744E+00, 0.3760E+00, 0.3776E+00, 0.3792E+00,& - 0.3807E+00, 0.3823E+00, 0.3840E+00, 0.3856E+00,& - 0.3872E+00, 0.3888E+00, 0.3904E+00, 0.3920E+00,& - 0.3937E+00, 0.3953E+00, 0.3969E+00, 0.3986E+00,& - 0.4002E+00, 0.4018E+00, 0.4035E+00, 0.4051E+00,& - 0.4068E+00, 0.4085E+00, 0.4101E+00, 0.4118E+00,& - 0.4135E+00, 0.4151E+00, 0.4167E+00, 0.4184E+00,& - 0.4201E+00, 0.4218E+00, 0.4235E+00, 0.4252E+00,& - 0.4269E+00, 0.4285E+00, 0.4302E+00, 0.4319E+00,& - 0.4336E+00, 0.4354E+00, 0.4370E+00, 0.4387E+00,& - 0.4405E+00, 0.4422E+00, 0.4439E+00, 0.4456E+00,& - 0.4473E+00, 0.4491E+00, 0.4508E+00, 0.4525E+00,& - 0.4543E+00, 0.4560E+00, 0.4577E+00, 0.4595E+00,& - 0.4613E+00, 0.4630E+00, 0.4648E+00, 0.4666E+00,& - 0.4683E+00, 0.4701E+00, 0.4718E+00, 0.4736E+00,& - 0.4754E+00, 0.4772E+00, 0.4790E+00, 0.4808E+00,& - 0.4826E+00, 0.4844E+00, 0.4861E+00, 0.4880E+00,& - 0.4897E+00, 0.4916E+00, 0.4934E+00, 0.4952E+00,& - 0.4970E+00, 0.4989E+00, 0.5007E+00, 0.5025E+00,& - 0.5043E+00, 0.5062E+00, 0.5080E+00, 0.5099E+00,& - 0.5117E+00, 0.5136E+00, 0.5155E+00, 0.5173E+00,& - 0.5192E+00, 0.5210E+00, 0.5229E+00, 0.5248E+00,& - 0.5266E+00, 0.5286E+00, 0.5304E+00, 0.5323E+00,& - 0.5342E+00, 0.5361E+00, 0.5380E+00, 0.5399E+00,& - 0.5418E+00, 0.5437E+00, 0.5456E+00, 0.5476E+00,& - 0.5495E+00, 0.5514E+00, 0.5533E+00, 0.5553E+00,& - 0.5572E+00, 0.5592E+00, 0.5611E+00, 0.5630E+00,& - 0.5650E+00, 0.5670E+00, 0.5689E+00, 0.5709E+00,& - 0.5729E+00, 0.5748E+00, 0.5768E+00, 0.5788E+00,& - 0.5808E+00, 0.5828E+00, 0.5848E+00, 0.5868E+00,& - 0.5888E+00, 0.5908E+00, 0.5928E+00, 0.5948E+00,& - 0.5968E+00, 0.5988E+00, 0.6009E+00, 0.6029E+00,& - 0.6049E+00, 0.6070E+00, 0.6090E+00, 0.6111E+00,& - 0.6131E+00, 0.6152E+00, 0.6172E+00, 0.6193E+00,& - 0.6213E+00, 0.6234E+00, 0.6255E+00, 0.6276E+00,& - 0.6297E+00, 0.6318E+00, 0.6339E+00, 0.6359E+00,& - 0.6380E+00, 0.6401E+00, 0.6423E+00, 0.6444E+00,& - 0.6465E+00, 0.6486E+00, 0.6507E+00, 0.6529E+00,& - 0.6550E+00, 0.6571E+00, 0.6593E+00, 0.6615E+00,& - 0.6636E+00, 0.6658E+00, 0.6679E+00, 0.6701E+00,& - 0.6723E+00, 0.6744E+00, 0.6766E+00, 0.6788E+00,& - 0.6810E+00, 0.6832E+00, 0.6854E+00, 0.6876E+00,& - 0.6898E+00, 0.6920E+00, 0.6943E+00, 0.6965E+00,& - 0.6987E+00, 0.7009E+00, 0.7032E+00, 0.7054E+00,& - 0.7076E+00, 0.7099E+00, 0.7121E+00, 0.7145E+00,& - 0.7167E+00, 0.7190E+00, 0.7213E+00, 0.7235E+00,& - 0.7258E+00, 0.7281E+00, 0.7304E+00, 0.7327E+00,& - 0.7350E+00, 0.7373E+00, 0.7397E+00, 0.7420E+00,& - 0.7443E+00, 0.7466E+00, 0.7490E+00, 0.7513E+00,& - 0.7537E+00, 0.7560E+00, 0.7583E+00, 0.7607E+00,& - 0.7631E+00, 0.7655E+00, 0.7679E+00, 0.7702E+00,& - 0.7726E+00, 0.7750E+00, 0.7774E+00, 0.7798E+00,& - 0.7822E+00, 0.7846E+00, 0.7871E+00, 0.7895E+00,& - 0.7919E+00, 0.7943E+00, 0.7968E+00, 0.7992E+00,& - 0.8017E+00, 0.8042E+00, 0.8066E+00, 0.8091E+00,& - 0.8116E+00, 0.8141E+00, 0.8166E+00, 0.8191E+00,& - 0.8216E+00, 0.8241E+00, 0.8266E+00, 0.8292E+00,& - 0.8316E+00, 0.8342E+00, 0.8367E+00, 0.8393E+00,& - 0.8418E+00, 0.8444E+00, 0.8469E+00, 0.8494E+00,& - 0.8520E+00, 0.8547E+00, 0.8572E+00, 0.8598E+00,& - 0.8624E+00, 0.8650E+00, 0.8677E+00, 0.8702E+00,& - 0.8729E+00, 0.8755E+00, 0.8781E+00, 0.8807E+00,& - 0.8834E+00, 0.8861E+00, 0.8887E+00, 0.8914E+00,& - 0.8940E+00, 0.8968E+00, 0.8994E+00, 0.9021E+00,& - 0.9048E+00, 0.9075E+00, 0.9102E+00, 0.9130E+00,& - 0.9157E+00, 0.9184E+00, 0.9212E+00, 0.9239E+00,& - 0.9267E+00, 0.9294E+00, 0.9322E+00, 0.9349E+00,& - 0.9378E+00, 0.9406E+00, 0.9433E+00, 0.9461E+00,& - 0.9489E+00, 0.9518E+00, 0.9546E+00, 0.9574E+00,& - 0.9602E+00, 0.9631E+00, 0.9659E+00, 0.9688E+00,& - 0.9717E+00, 0.9746E+00, 0.9775E+00, 0.9803E+00,& - 0.9832E+00, 0.9861E+00, 0.9890E+00, 0.9920E+00,& - 0.9949E+00, 0.9978E+00, 0.1001E+01, 0.1004E+01,& - 0.1007E+01, 0.1010E+01, 0.1013E+01, 0.1016E+01,& - 0.1019E+01, 0.1022E+01, 0.1025E+01, 0.1028E+01,& - 0.1031E+01, 0.1034E+01, 0.1037E+01, 0.1040E+01,& - 0.1043E+01, 0.1046E+01, 0.1049E+01, 0.1052E+01,& - 0.1055E+01, 0.1058E+01, 0.1061E+01, 0.1064E+01,& - 0.1068E+01, 0.1071E+01, 0.1074E+01, 0.1077E+01,& - 0.1080E+01, 0.1083E+01, 0.1086E+01, 0.1090E+01,& - 0.1093E+01, 0.1096E+01, 0.1099E+01, 0.1102E+01,& - 0.1106E+01, 0.1109E+01, 0.1112E+01, 0.1115E+01,& - 0.1119E+01, 0.1122E+01, 0.1125E+01, 0.1129E+01,& - 0.1132E+01, 0.1135E+01, 0.1139E+01, 0.1142E+01,& - 0.1145E+01, 0.1149E+01, 0.1152E+01, 0.1155E+01,& - 0.1159E+01, 0.1162E+01, 0.1165E+01, 0.1169E+01,& - 0.1172E+01, 0.1176E+01, 0.1179E+01, 0.1183E+01,& - 0.1186E+01, 0.1190E+01, 0.1193E+01, 0.1197E+01,& - 0.1200E+01, 0.1204E+01, 0.1207E+01, 0.1211E+01,& - 0.1214E+01, 0.1218E+01, 0.1221E+01, 0.1225E+01,& - 0.1229E+01, 0.1232E+01, 0.1236E+01, 0.1239E+01,& - 0.1243E+01, 0.1247E+01, 0.1250E+01, 0.1254E+01,& - 0.1258E+01, 0.1261E+01, 0.1265E+01, 0.1269E+01,& - 0.1273E+01, 0.1276E+01, 0.1280E+01, 0.1284E+01,& - 0.1288E+01, 0.1292E+01, 0.1295E+01, 0.1299E+01,& - 0.1303E+01, 0.1307E+01, 0.1311E+01, 0.1315E+01,& - 0.1319E+01, 0.1322E+01, 0.1326E+01, 0.1330E+01,& - 0.1334E+01, 0.1338E+01, 0.1342E+01, 0.1346E+01,& - 0.1350E+01, 0.1354E+01, 0.1358E+01, 0.1362E+01,& - 0.1366E+01, 0.1370E+01, 0.1374E+01, 0.1379E+01,& - 0.1383E+01, 0.1387E+01, 0.1391E+01, 0.1395E+01,& - 0.1399E+01, 0.1403E+01, 0.1408E+01, 0.1412E+01,& - 0.1416E+01, 0.1420E+01, 0.1425E+01, 0.1429E+01,& - 0.1433E+01, 0.1438E+01, 0.1442E+01, 0.1446E+01,& - 0.1451E+01, 0.1455E+01, 0.1459E+01, 0.1464E+01,& - 0.1468E+01, 0.1473E+01, 0.1477E+01, 0.1482E+01,& - 0.1486E+01, 0.1491E+01, 0.1495E+01, 0.1500E+01,& - 0.1504E+01, 0.1509E+01, 0.1514E+01, 0.1518E+01,& - 0.1523E+01, 0.1527E+01, 0.1532E+01, 0.1537E+01,& - 0.1542E+01, 0.1546E+01, 0.1551E+01, 0.1556E+01,& - 0.1561E+01, 0.1566E+01, 0.1570E+01, 0.1575E+01,& - 0.1580E+01, 0.1585E+01, 0.1590E+01, 0.1595E+01,& - 0.1600E+01, 0.1605E+01, 0.1610E+01, 0.1615E+01,& - 0.1620E+01, 0.1625E+01, 0.1630E+01, 0.1635E+01,& - 0.1640E+01, 0.1646E+01, 0.1651E+01, 0.1656E+01,& - 0.1661E+01, 0.1666E+01, 0.1672E+01, 0.1677E+01,& - 0.1682E+01, 0.1688E+01, 0.1693E+01, 0.1698E+01,& - 0.1704E+01, 0.1709E+01, 0.1715E+01, 0.1720E+01,& - 0.1726E+01, 0.1732E+01, 0.1737E+01, 0.1743E+01,& - 0.1748E+01, 0.1754E+01, 0.1760E+01, 0.1766E+01,& - 0.1771E+01, 0.1777E+01, 0.1783E+01, 0.1789E+01,& - 0.1795E+01, 0.1801E+01, 0.1807E+01, 0.1812E+01,& - 0.1818E+01, 0.1824E+01, 0.1831E+01, 0.1837E+01,& - 0.1843E+01, 0.1849E+01, 0.1855E+01, 0.1861E+01,& - 0.1868E+01, 0.1874E+01, 0.1880E+01, 0.1887E+01,& - 0.1893E+01, 0.1900E+01, 0.1906E+01, 0.1913E+01,& - 0.1919E+01, 0.1926E+01, 0.1932E+01, 0.1939E+01,& - 0.1946E+01, 0.1952E+01, 0.1959E+01, 0.1966E+01,& - 0.1973E+01, 0.1980E+01, 0.1987E+01, 0.1994E+01,& - 0.2001E+01, 0.2008E+01, 0.2015E+01, 0.2022E+01,& - 0.2029E+01, 0.2037E+01, 0.2044E+01, 0.2051E+01,& - 0.2059E+01, 0.2066E+01, 0.2074E+01, 0.2081E+01,& - 0.2089E+01, 0.2097E+01, 0.2104E+01, 0.2112E+01,& - 0.2120E+01, 0.2128E+01, 0.2136E+01, 0.2144E+01,& - 0.2152E+01, 0.2160E+01, 0.2168E+01, 0.2176E+01,& - 0.2184E+01, 0.2193E+01, 0.2201E+01, 0.2210E+01,& - 0.2218E+01, 0.2227E+01, 0.2235E+01, 0.2244E+01,& - 0.2253E+01, 0.2262E+01, 0.2271E+01, 0.2280E+01,& - 0.2289E+01, 0.2298E+01, 0.2307E+01, 0.2317E+01,& - 0.2326E+01, 0.2335E+01, 0.2345E+01, 0.2355E+01,& - 0.2364E+01, 0.2374E+01, 0.2384E+01, 0.2394E+01,& - 0.2404E+01, 0.2414E+01, 0.2424E+01, 0.2435E+01,& - 0.2445E+01, 0.2456E+01, 0.2466E+01, 0.2477E+01,& - 0.2488E+01, 0.2499E+01, 0.2510E+01, 0.2521E+01,& - 0.2532E+01, 0.2544E+01, 0.2555E+01, 0.2567E+01,& - 0.2579E+01, 0.2591E+01, 0.2603E+01, 0.2615E+01,& - 0.2627E+01, 0.2640E+01, 0.2652E+01, 0.2665E+01,& - 0.2678E+01, 0.2691E+01, 0.2704E+01, 0.2718E+01,& - 0.2731E+01, 0.2745E+01, 0.2759E+01, 0.2773E+01,& - 0.2787E+01, 0.2801E+01, 0.2816E+01, 0.2831E+01,& - 0.2846E+01, 0.2861E+01, 0.2877E+01, 0.2892E+01,& - 0.2908E+01, 0.2925E+01, 0.2941E+01, 0.2958E+01,& - 0.2975E+01, 0.2992E+01, 0.3010E+01, 0.3027E+01,& - 0.3046E+01, 0.3064E+01, 0.3083E+01, 0.3102E+01,& - 0.3122E+01, 0.3141E+01, 0.3162E+01, 0.3182E+01,& - 0.3204E+01, 0.3225E+01, 0.3247E+01, 0.3270E+01,& - 0.3292E+01, 0.3316E+01, 0.3340E+01, 0.3365E+01,& - 0.3390E+01, 0.3416E+01, 0.3443E+01, 0.3470E+01,& - 0.3498E+01, 0.3527E+01, 0.3557E+01, 0.3587E+01,& - 0.3619E+01, 0.3652E+01, 0.3686E+01, 0.3721E+01,& - 0.3757E+01, 0.3795E+01, 0.3834E+01, 0.3876E+01,& - 0.3919E+01, 0.3964E+01, 0.4011E+01, 0.4061E+01,& - 0.4113E+01, 0.4169E+01, 0.4228E+01, 0.4292E+01,& - 0.4360E+01, 0.4435E+01, 0.4516E+01, 0.4605E+01,& - 0.4705E+01, 0.4818E+01, 0.4949E+01, 0.5106E+01,& - 0.1000E-04, 0.9223E-04, 0.3389E-03, 0.6678E-03/) - xcw(:, 40) = (/& - 0.1000E-04, 0.9223E-04, 0.3389E-03, 0.6678E-03,& - 0.9968E-03, 0.1326E-02, 0.1655E-02, 0.2066E-02,& - 0.2395E-02, 0.2806E-02, 0.3217E-02, 0.3710E-02,& - 0.4122E-02, 0.4615E-02, 0.5026E-02, 0.5519E-02,& - 0.6013E-02, 0.6506E-02, 0.7000E-02, 0.7575E-02,& - 0.8069E-02, 0.8644E-02, 0.9138E-02, 0.9713E-02,& - 0.1029E-01, 0.1086E-01, 0.1136E-01, 0.1193E-01,& - 0.1259E-01, 0.1317E-01, 0.1374E-01, 0.1432E-01,& - 0.1498E-01, 0.1555E-01, 0.1621E-01, 0.1679E-01,& - 0.1744E-01, 0.1810E-01, 0.1876E-01, 0.1942E-01,& - 0.2007E-01, 0.2073E-01, 0.2139E-01, 0.2205E-01,& - 0.2271E-01, 0.2336E-01, 0.2410E-01, 0.2476E-01,& - 0.2550E-01, 0.2616E-01, 0.2690E-01, 0.2756E-01,& - 0.2830E-01, 0.2904E-01, 0.2978E-01, 0.3044E-01,& - 0.3118E-01, 0.3192E-01, 0.3266E-01, 0.3340E-01,& - 0.3414E-01, 0.3496E-01, 0.3570E-01, 0.3644E-01,& - 0.3718E-01, 0.3800E-01, 0.3874E-01, 0.3956E-01,& - 0.4030E-01, 0.4113E-01, 0.4187E-01, 0.4269E-01,& - 0.4343E-01, 0.4425E-01, 0.4507E-01, 0.4589E-01,& - 0.4672E-01, 0.4754E-01, 0.4828E-01, 0.4910E-01,& - 0.5001E-01, 0.5083E-01, 0.5165E-01, 0.5247E-01,& - 0.5330E-01, 0.5412E-01, 0.5502E-01, 0.5584E-01,& - 0.5667E-01, 0.5757E-01, 0.5839E-01, 0.5930E-01,& - 0.6012E-01, 0.6103E-01, 0.6193E-01, 0.6275E-01,& - 0.6366E-01, 0.6456E-01, 0.6538E-01, 0.6629E-01,& - 0.6719E-01, 0.6810E-01, 0.6900E-01, 0.6991E-01,& - 0.7081E-01, 0.7171E-01, 0.7262E-01, 0.7352E-01,& - 0.7451E-01, 0.7542E-01, 0.7632E-01, 0.7722E-01,& - 0.7821E-01, 0.7912E-01, 0.8002E-01, 0.8101E-01,& - 0.8191E-01, 0.8290E-01, 0.8380E-01, 0.8479E-01,& - 0.8578E-01, 0.8668E-01, 0.8767E-01, 0.8865E-01,& - 0.8964E-01, 0.9055E-01, 0.9153E-01, 0.9252E-01,& - 0.9351E-01, 0.9449E-01, 0.9548E-01, 0.9647E-01,& - 0.9745E-01, 0.9844E-01, 0.9943E-01, 0.1004E+00,& - 0.1015E+00, 0.1025E+00, 0.1035E+00, 0.1045E+00,& - 0.1055E+00, 0.1065E+00, 0.1076E+00, 0.1086E+00,& - 0.1096E+00, 0.1106E+00, 0.1117E+00, 0.1127E+00,& - 0.1137E+00, 0.1148E+00, 0.1158E+00, 0.1169E+00,& - 0.1179E+00, 0.1190E+00, 0.1201E+00, 0.1211E+00,& - 0.1221E+00, 0.1232E+00, 0.1243E+00, 0.1253E+00,& - 0.1264E+00, 0.1275E+00, 0.1286E+00, 0.1297E+00,& - 0.1308E+00, 0.1318E+00, 0.1329E+00, 0.1340E+00,& - 0.1351E+00, 0.1362E+00, 0.1373E+00, 0.1384E+00,& - 0.1396E+00, 0.1406E+00, 0.1418E+00, 0.1428E+00,& - 0.1440E+00, 0.1451E+00, 0.1462E+00, 0.1474E+00,& - 0.1484E+00, 0.1496E+00, 0.1507E+00, 0.1519E+00,& - 0.1530E+00, 0.1542E+00, 0.1553E+00, 0.1564E+00,& - 0.1576E+00, 0.1588E+00, 0.1599E+00, 0.1611E+00,& - 0.1623E+00, 0.1634E+00, 0.1646E+00, 0.1657E+00,& - 0.1669E+00, 0.1681E+00, 0.1692E+00, 0.1705E+00,& - 0.1716E+00, 0.1728E+00, 0.1740E+00, 0.1752E+00,& - 0.1764E+00, 0.1776E+00, 0.1788E+00, 0.1800E+00,& - 0.1812E+00, 0.1824E+00, 0.1836E+00, 0.1849E+00,& - 0.1860E+00, 0.1872E+00, 0.1885E+00, 0.1897E+00,& - 0.1909E+00, 0.1922E+00, 0.1934E+00, 0.1946E+00,& - 0.1959E+00, 0.1971E+00, 0.1983E+00, 0.1997E+00,& - 0.2009E+00, 0.2021E+00, 0.2034E+00, 0.2047E+00,& - 0.2059E+00, 0.2071E+00, 0.2085E+00, 0.2097E+00,& - 0.2110E+00, 0.2122E+00, 0.2136E+00, 0.2148E+00,& - 0.2161E+00, 0.2173E+00, 0.2187E+00, 0.2200E+00,& - 0.2213E+00, 0.2225E+00, 0.2238E+00, 0.2252E+00,& - 0.2265E+00, 0.2278E+00, 0.2291E+00, 0.2304E+00,& - 0.2317E+00, 0.2331E+00, 0.2344E+00, 0.2357E+00,& - 0.2370E+00, 0.2383E+00, 0.2397E+00, 0.2410E+00,& - 0.2423E+00, 0.2437E+00, 0.2451E+00, 0.2464E+00,& - 0.2478E+00, 0.2491E+00, 0.2505E+00, 0.2518E+00,& - 0.2532E+00, 0.2545E+00, 0.2559E+00, 0.2573E+00,& - 0.2586E+00, 0.2600E+00, 0.2614E+00, 0.2628E+00,& - 0.2642E+00, 0.2655E+00, 0.2669E+00, 0.2683E+00,& - 0.2697E+00, 0.2711E+00, 0.2725E+00, 0.2740E+00,& - 0.2754E+00, 0.2768E+00, 0.2782E+00, 0.2796E+00,& - 0.2811E+00, 0.2825E+00, 0.2839E+00, 0.2853E+00,& - 0.2867E+00, 0.2881E+00, 0.2896E+00, 0.2910E+00,& - 0.2925E+00, 0.2940E+00, 0.2954E+00, 0.2969E+00,& - 0.2983E+00, 0.2997E+00, 0.3012E+00, 0.3027E+00,& - 0.3042E+00, 0.3057E+00, 0.3071E+00, 0.3085E+00,& - 0.3100E+00, 0.3115E+00, 0.3131E+00, 0.3145E+00,& - 0.3160E+00, 0.3175E+00, 0.3190E+00, 0.3205E+00,& - 0.3220E+00, 0.3235E+00, 0.3250E+00, 0.3265E+00,& - 0.3280E+00, 0.3296E+00, 0.3311E+00, 0.3326E+00,& - 0.3341E+00, 0.3357E+00, 0.3372E+00, 0.3387E+00,& - 0.3403E+00, 0.3418E+00, 0.3434E+00, 0.3449E+00,& - 0.3464E+00, 0.3480E+00, 0.3496E+00, 0.3511E+00,& - 0.3527E+00, 0.3543E+00, 0.3558E+00, 0.3575E+00,& - 0.3590E+00, 0.3606E+00, 0.3622E+00, 0.3638E+00,& - 0.3654E+00, 0.3669E+00, 0.3686E+00, 0.3701E+00,& - 0.3718E+00, 0.3733E+00, 0.3750E+00, 0.3765E+00,& - 0.3782E+00, 0.3798E+00, 0.3814E+00, 0.3830E+00,& - 0.3847E+00, 0.3863E+00, 0.3880E+00, 0.3896E+00,& - 0.3913E+00, 0.3929E+00, 0.3946E+00, 0.3962E+00,& - 0.3978E+00, 0.3995E+00, 0.4011E+00, 0.4029E+00,& - 0.4045E+00, 0.4061E+00, 0.4079E+00, 0.4095E+00,& - 0.4112E+00, 0.4129E+00, 0.4146E+00, 0.4163E+00,& - 0.4180E+00, 0.4196E+00, 0.4214E+00, 0.4231E+00,& - 0.4248E+00, 0.4265E+00, 0.4282E+00, 0.4299E+00,& - 0.4316E+00, 0.4334E+00, 0.4351E+00, 0.4368E+00,& - 0.4385E+00, 0.4404E+00, 0.4421E+00, 0.4438E+00,& - 0.4455E+00, 0.4473E+00, 0.4491E+00, 0.4509E+00,& - 0.4526E+00, 0.4544E+00, 0.4561E+00, 0.4580E+00,& - 0.4597E+00, 0.4615E+00, 0.4633E+00, 0.4651E+00,& - 0.4668E+00, 0.4686E+00, 0.4705E+00, 0.4723E+00,& - 0.4741E+00, 0.4759E+00, 0.4777E+00, 0.4795E+00,& - 0.4814E+00, 0.4832E+00, 0.4850E+00, 0.4868E+00,& - 0.4887E+00, 0.4905E+00, 0.4924E+00, 0.4942E+00,& - 0.4961E+00, 0.4979E+00, 0.4998E+00, 0.5016E+00,& - 0.5035E+00, 0.5054E+00, 0.5073E+00, 0.5092E+00,& - 0.5111E+00, 0.5130E+00, 0.5149E+00, 0.5167E+00,& - 0.5186E+00, 0.5205E+00, 0.5224E+00, 0.5243E+00,& - 0.5263E+00, 0.5282E+00, 0.5301E+00, 0.5320E+00,& - 0.5339E+00, 0.5359E+00, 0.5378E+00, 0.5398E+00,& - 0.5417E+00, 0.5436E+00, 0.5456E+00, 0.5476E+00,& - 0.5496E+00, 0.5515E+00, 0.5535E+00, 0.5555E+00,& - 0.5575E+00, 0.5594E+00, 0.5614E+00, 0.5634E+00,& - 0.5654E+00, 0.5674E+00, 0.5694E+00, 0.5714E+00,& - 0.5734E+00, 0.5755E+00, 0.5774E+00, 0.5795E+00,& - 0.5815E+00, 0.5836E+00, 0.5856E+00, 0.5876E+00,& - 0.5897E+00, 0.5917E+00, 0.5938E+00, 0.5959E+00,& - 0.5979E+00, 0.6000E+00, 0.6021E+00, 0.6042E+00,& - 0.6062E+00, 0.6084E+00, 0.6104E+00, 0.6125E+00,& - 0.6146E+00, 0.6167E+00, 0.6188E+00, 0.6209E+00,& - 0.6231E+00, 0.6252E+00, 0.6273E+00, 0.6294E+00,& - 0.6315E+00, 0.6337E+00, 0.6359E+00, 0.6380E+00,& - 0.6402E+00, 0.6423E+00, 0.6445E+00, 0.6467E+00,& - 0.6488E+00, 0.6510E+00, 0.6532E+00, 0.6554E+00,& - 0.6576E+00, 0.6597E+00, 0.6620E+00, 0.6642E+00,& - 0.6664E+00, 0.6686E+00, 0.6708E+00, 0.6731E+00,& - 0.6753E+00, 0.6775E+00, 0.6798E+00, 0.6820E+00,& - 0.6842E+00, 0.6866E+00, 0.6888E+00, 0.6911E+00,& - 0.6933E+00, 0.6956E+00, 0.6979E+00, 0.7002E+00,& - 0.7025E+00, 0.7048E+00, 0.7071E+00, 0.7094E+00,& - 0.7117E+00, 0.7140E+00, 0.7163E+00, 0.7187E+00,& - 0.7210E+00, 0.7233E+00, 0.7257E+00, 0.7280E+00,& - 0.7304E+00, 0.7328E+00, 0.7352E+00, 0.7375E+00,& - 0.7398E+00, 0.7422E+00, 0.7446E+00, 0.7470E+00,& - 0.7495E+00, 0.7518E+00, 0.7542E+00, 0.7567E+00,& - 0.7591E+00, 0.7615E+00, 0.7639E+00, 0.7664E+00,& - 0.7688E+00, 0.7712E+00, 0.7737E+00, 0.7762E+00,& - 0.7787E+00, 0.7811E+00, 0.7836E+00, 0.7861E+00,& - 0.7886E+00, 0.7911E+00, 0.7935E+00, 0.7961E+00,& - 0.7986E+00, 0.8011E+00, 0.8036E+00, 0.8062E+00,& - 0.8087E+00, 0.8112E+00, 0.8138E+00, 0.8164E+00,& - 0.8189E+00, 0.8215E+00, 0.8240E+00, 0.8267E+00,& - 0.8292E+00, 0.8319E+00, 0.8344E+00, 0.8370E+00,& - 0.8397E+00, 0.8423E+00, 0.8448E+00, 0.8475E+00,& - 0.8502E+00, 0.8528E+00, 0.8555E+00, 0.8581E+00,& - 0.8608E+00, 0.8634E+00, 0.8661E+00, 0.8688E+00,& - 0.8715E+00, 0.8742E+00, 0.8769E+00, 0.8796E+00,& - 0.8823E+00, 0.8851E+00, 0.8878E+00, 0.8905E+00,& - 0.8933E+00, 0.8960E+00, 0.8988E+00, 0.9015E+00,& - 0.9043E+00, 0.9071E+00, 0.9099E+00, 0.9127E+00,& - 0.9155E+00, 0.9183E+00, 0.9211E+00, 0.9239E+00,& - 0.9267E+00, 0.9295E+00, 0.9324E+00, 0.9353E+00,& - 0.9381E+00, 0.9410E+00, 0.9439E+00, 0.9467E+00,& - 0.9496E+00, 0.9526E+00, 0.9554E+00, 0.9583E+00,& - 0.9613E+00, 0.9642E+00, 0.9671E+00, 0.9701E+00,& - 0.9730E+00, 0.9760E+00, 0.9790E+00, 0.9819E+00,& - 0.9849E+00, 0.9879E+00, 0.9909E+00, 0.9939E+00,& - 0.9969E+00, 0.9999E+00, 0.1003E+01, 0.1006E+01,& - 0.1009E+01, 0.1012E+01, 0.1015E+01, 0.1018E+01,& - 0.1021E+01, 0.1024E+01, 0.1028E+01, 0.1031E+01,& - 0.1034E+01, 0.1037E+01, 0.1040E+01, 0.1043E+01,& - 0.1046E+01, 0.1049E+01, 0.1053E+01, 0.1056E+01,& - 0.1059E+01, 0.1062E+01, 0.1065E+01, 0.1069E+01,& - 0.1072E+01, 0.1075E+01, 0.1078E+01, 0.1082E+01,& - 0.1085E+01, 0.1088E+01, 0.1091E+01, 0.1095E+01,& - 0.1098E+01, 0.1101E+01, 0.1105E+01, 0.1108E+01,& - 0.1111E+01, 0.1115E+01, 0.1118E+01, 0.1121E+01,& - 0.1125E+01, 0.1128E+01, 0.1132E+01, 0.1135E+01,& - 0.1138E+01, 0.1142E+01, 0.1145E+01, 0.1149E+01,& - 0.1152E+01, 0.1156E+01, 0.1159E+01, 0.1163E+01,& - 0.1166E+01, 0.1170E+01, 0.1173E+01, 0.1177E+01,& - 0.1180E+01, 0.1184E+01, 0.1187E+01, 0.1191E+01,& - 0.1194E+01, 0.1198E+01, 0.1202E+01, 0.1205E+01,& - 0.1209E+01, 0.1213E+01, 0.1216E+01, 0.1220E+01,& - 0.1224E+01, 0.1227E+01, 0.1231E+01, 0.1235E+01,& - 0.1238E+01, 0.1242E+01, 0.1246E+01, 0.1250E+01,& - 0.1253E+01, 0.1257E+01, 0.1261E+01, 0.1265E+01,& - 0.1269E+01, 0.1273E+01, 0.1276E+01, 0.1280E+01,& - 0.1284E+01, 0.1288E+01, 0.1292E+01, 0.1296E+01,& - 0.1300E+01, 0.1304E+01, 0.1308E+01, 0.1312E+01,& - 0.1316E+01, 0.1320E+01, 0.1324E+01, 0.1328E+01,& - 0.1332E+01, 0.1336E+01, 0.1340E+01, 0.1344E+01,& - 0.1348E+01, 0.1352E+01, 0.1356E+01, 0.1361E+01,& - 0.1365E+01, 0.1369E+01, 0.1373E+01, 0.1377E+01,& - 0.1381E+01, 0.1386E+01, 0.1390E+01, 0.1394E+01,& - 0.1399E+01, 0.1403E+01, 0.1406E+01, 0.1411E+01,& - 0.1416E+01, 0.1420E+01, 0.1424E+01, 0.1429E+01,& - 0.1433E+01, 0.1438E+01, 0.1442E+01, 0.1447E+01,& - 0.1451E+01, 0.1456E+01, 0.1460E+01, 0.1465E+01,& - 0.1469E+01, 0.1474E+01, 0.1478E+01, 0.1483E+01,& - 0.1488E+01, 0.1492E+01, 0.1497E+01, 0.1502E+01,& - 0.1506E+01, 0.1511E+01, 0.1516E+01, 0.1521E+01,& - 0.1525E+01, 0.1530E+01, 0.1535E+01, 0.1540E+01,& - 0.1545E+01, 0.1549E+01, 0.1554E+01, 0.1559E+01,& - 0.1564E+01, 0.1569E+01, 0.1574E+01, 0.1579E+01,& - 0.1584E+01, 0.1589E+01, 0.1594E+01, 0.1599E+01,& - 0.1604E+01, 0.1610E+01, 0.1615E+01, 0.1620E+01,& - 0.1625E+01, 0.1630E+01, 0.1636E+01, 0.1641E+01,& - 0.1646E+01, 0.1651E+01, 0.1657E+01, 0.1662E+01,& - 0.1668E+01, 0.1673E+01, 0.1678E+01, 0.1684E+01,& - 0.1689E+01, 0.1695E+01, 0.1700E+01, 0.1706E+01,& - 0.1712E+01, 0.1717E+01, 0.1723E+01, 0.1728E+01,& - 0.1734E+01, 0.1740E+01, 0.1746E+01, 0.1752E+01,& - 0.1757E+01, 0.1763E+01, 0.1769E+01, 0.1775E+01,& - 0.1781E+01, 0.1787E+01, 0.1793E+01, 0.1799E+01,& - 0.1805E+01, 0.1811E+01, 0.1817E+01, 0.1823E+01,& - 0.1829E+01, 0.1836E+01, 0.1842E+01, 0.1848E+01,& - 0.1855E+01, 0.1861E+01, 0.1867E+01, 0.1874E+01,& - 0.1880E+01, 0.1887E+01, 0.1893E+01, 0.1900E+01,& - 0.1906E+01, 0.1913E+01, 0.1920E+01, 0.1926E+01,& - 0.1933E+01, 0.1940E+01, 0.1947E+01, 0.1954E+01,& - 0.1961E+01, 0.1968E+01, 0.1975E+01, 0.1982E+01,& - 0.1989E+01, 0.1996E+01, 0.2003E+01, 0.2010E+01,& - 0.2018E+01, 0.2025E+01, 0.2032E+01, 0.2040E+01,& - 0.2047E+01, 0.2055E+01, 0.2062E+01, 0.2070E+01,& - 0.2077E+01, 0.2085E+01, 0.2093E+01, 0.2101E+01,& - 0.2108E+01, 0.2116E+01, 0.2124E+01, 0.2132E+01,& - 0.2140E+01, 0.2149E+01, 0.2157E+01, 0.2165E+01,& - 0.2173E+01, 0.2182E+01, 0.2190E+01, 0.2199E+01,& - 0.2207E+01, 0.2216E+01, 0.2224E+01, 0.2233E+01,& - 0.2242E+01, 0.2251E+01, 0.2260E+01, 0.2269E+01,& - 0.2278E+01, 0.2287E+01, 0.2296E+01, 0.2306E+01,& - 0.2315E+01, 0.2324E+01, 0.2334E+01, 0.2344E+01,& - 0.2353E+01, 0.2363E+01, 0.2373E+01, 0.2383E+01,& - 0.2393E+01, 0.2403E+01, 0.2413E+01, 0.2424E+01,& - 0.2434E+01, 0.2444E+01, 0.2455E+01, 0.2466E+01,& - 0.2477E+01, 0.2487E+01, 0.2499E+01, 0.2510E+01,& - 0.2521E+01, 0.2532E+01, 0.2544E+01, 0.2555E+01,& - 0.2567E+01, 0.2579E+01, 0.2591E+01, 0.2603E+01,& - 0.2615E+01, 0.2627E+01, 0.2640E+01, 0.2652E+01,& - 0.2665E+01, 0.2678E+01, 0.2691E+01, 0.2704E+01,& - 0.2717E+01, 0.2731E+01, 0.2745E+01, 0.2759E+01,& - 0.2772E+01, 0.2787E+01, 0.2801E+01, 0.2816E+01,& - 0.2830E+01, 0.2845E+01, 0.2861E+01, 0.2876E+01,& - 0.2892E+01, 0.2907E+01, 0.2923E+01, 0.2940E+01,& - 0.2956E+01, 0.2973E+01, 0.2990E+01, 0.3007E+01,& - 0.3025E+01, 0.3043E+01, 0.3061E+01, 0.3080E+01,& - 0.3098E+01, 0.3118E+01, 0.3137E+01, 0.3157E+01,& - 0.3177E+01, 0.3198E+01, 0.3219E+01, 0.3240E+01,& - 0.3262E+01, 0.3284E+01, 0.3307E+01, 0.3331E+01,& - 0.3354E+01, 0.3379E+01, 0.3404E+01, 0.3429E+01,& - 0.3455E+01, 0.3482E+01, 0.3510E+01, 0.3538E+01,& - 0.3567E+01, 0.3598E+01, 0.3628E+01, 0.3660E+01,& - 0.3693E+01, 0.3727E+01, 0.3762E+01, 0.3799E+01,& - 0.3837E+01, 0.3876E+01, 0.3917E+01, 0.3959E+01,& - 0.4004E+01, 0.4051E+01, 0.4100E+01, 0.4151E+01,& - 0.4206E+01, 0.4264E+01, 0.4326E+01, 0.4389E+01,& - 0.4463E+01, 0.4540E+01, 0.4624E+01, 0.4717E+01,& - 0.4820E+01, 0.4938E+01, 0.5074E+01, 0.5237E+01,& - 0.1000E-04, 0.9430E-04, 0.2629E-03, 0.4315E-03/) - xcw(:, 41) = (/& - 0.1000E-04, 0.9430E-04, 0.2629E-03, 0.4315E-03,& - 0.6844E-03, 0.9374E-03, 0.1275E-02, 0.1527E-02,& - 0.1865E-02, 0.2202E-02, 0.2539E-02, 0.2876E-02,& - 0.3298E-02, 0.3635E-02, 0.4057E-02, 0.4478E-02,& - 0.4900E-02, 0.5321E-02, 0.5743E-02, 0.6164E-02,& - 0.6586E-02, 0.7092E-02, 0.7513E-02, 0.8019E-02,& - 0.8525E-02, 0.8946E-02, 0.9452E-02, 0.9958E-02,& - 0.1046E-01, 0.1097E-01, 0.1156E-01, 0.1207E-01,& - 0.1257E-01, 0.1316E-01, 0.1367E-01, 0.1426E-01,& - 0.1476E-01, 0.1535E-01, 0.1594E-01, 0.1653E-01,& - 0.1712E-01, 0.1771E-01, 0.1830E-01, 0.1889E-01,& - 0.1948E-01, 0.2007E-01, 0.2066E-01, 0.2134E-01,& - 0.2193E-01, 0.2260E-01, 0.2319E-01, 0.2387E-01,& - 0.2446E-01, 0.2513E-01, 0.2581E-01, 0.2648E-01,& - 0.2716E-01, 0.2775E-01, 0.2842E-01, 0.2910E-01,& - 0.2977E-01, 0.3053E-01, 0.3120E-01, 0.3188E-01,& - 0.3255E-01, 0.3331E-01, 0.3398E-01, 0.3466E-01,& - 0.3542E-01, 0.3609E-01, 0.3685E-01, 0.3761E-01,& - 0.3828E-01, 0.3904E-01, 0.3980E-01, 0.4056E-01,& - 0.4124E-01, 0.4199E-01, 0.4275E-01, 0.4351E-01,& - 0.4427E-01, 0.4503E-01, 0.4587E-01, 0.4663E-01,& - 0.4739E-01, 0.4815E-01, 0.4899E-01, 0.4975E-01,& - 0.5051E-01, 0.5135E-01, 0.5211E-01, 0.5295E-01,& - 0.5371E-01, 0.5456E-01, 0.5540E-01, 0.5616E-01,& - 0.5700E-01, 0.5784E-01, 0.5869E-01, 0.5953E-01,& - 0.6029E-01, 0.6113E-01, 0.6197E-01, 0.6282E-01,& - 0.6374E-01, 0.6459E-01, 0.6543E-01, 0.6627E-01,& - 0.6712E-01, 0.6796E-01, 0.6889E-01, 0.6973E-01,& - 0.7066E-01, 0.7150E-01, 0.7234E-01, 0.7327E-01,& - 0.7420E-01, 0.7504E-01, 0.7597E-01, 0.7681E-01,& - 0.7774E-01, 0.7867E-01, 0.7959E-01, 0.8044E-01,& - 0.8136E-01, 0.8229E-01, 0.8322E-01, 0.8415E-01,& - 0.8507E-01, 0.8600E-01, 0.8693E-01, 0.8786E-01,& - 0.8887E-01, 0.8979E-01, 0.9072E-01, 0.9165E-01,& - 0.9266E-01, 0.9359E-01, 0.9452E-01, 0.9553E-01,& - 0.9645E-01, 0.9747E-01, 0.9839E-01, 0.9941E-01,& - 0.1003E+00, 0.1013E+00, 0.1024E+00, 0.1033E+00,& - 0.1043E+00, 0.1053E+00, 0.1063E+00, 0.1073E+00,& - 0.1083E+00, 0.1093E+00, 0.1103E+00, 0.1113E+00,& - 0.1123E+00, 0.1134E+00, 0.1144E+00, 0.1154E+00,& - 0.1164E+00, 0.1174E+00, 0.1185E+00, 0.1196E+00,& - 0.1206E+00, 0.1216E+00, 0.1227E+00, 0.1237E+00,& - 0.1248E+00, 0.1258E+00, 0.1269E+00, 0.1279E+00,& - 0.1290E+00, 0.1301E+00, 0.1311E+00, 0.1322E+00,& - 0.1333E+00, 0.1344E+00, 0.1354E+00, 0.1365E+00,& - 0.1376E+00, 0.1387E+00, 0.1398E+00, 0.1409E+00,& - 0.1420E+00, 0.1431E+00, 0.1442E+00, 0.1453E+00,& - 0.1464E+00, 0.1475E+00, 0.1486E+00, 0.1497E+00,& - 0.1509E+00, 0.1520E+00, 0.1531E+00, 0.1543E+00,& - 0.1554E+00, 0.1566E+00, 0.1577E+00, 0.1588E+00,& - 0.1599E+00, 0.1611E+00, 0.1623E+00, 0.1634E+00,& - 0.1646E+00, 0.1658E+00, 0.1669E+00, 0.1681E+00,& - 0.1692E+00, 0.1704E+00, 0.1716E+00, 0.1728E+00,& - 0.1739E+00, 0.1751E+00, 0.1763E+00, 0.1775E+00,& - 0.1787E+00, 0.1799E+00, 0.1811E+00, 0.1823E+00,& - 0.1835E+00, 0.1847E+00, 0.1859E+00, 0.1872E+00,& - 0.1883E+00, 0.1896E+00, 0.1908E+00, 0.1921E+00,& - 0.1932E+00, 0.1945E+00, 0.1957E+00, 0.1969E+00,& - 0.1982E+00, 0.1995E+00, 0.2007E+00, 0.2019E+00,& - 0.2032E+00, 0.2044E+00, 0.2057E+00, 0.2070E+00,& - 0.2082E+00, 0.2095E+00, 0.2108E+00, 0.2120E+00,& - 0.2133E+00, 0.2146E+00, 0.2159E+00, 0.2172E+00,& - 0.2184E+00, 0.2197E+00, 0.2211E+00, 0.2223E+00,& - 0.2237E+00, 0.2249E+00, 0.2263E+00, 0.2275E+00,& - 0.2289E+00, 0.2302E+00, 0.2315E+00, 0.2329E+00,& - 0.2341E+00, 0.2355E+00, 0.2368E+00, 0.2382E+00,& - 0.2394E+00, 0.2408E+00, 0.2421E+00, 0.2435E+00,& - 0.2448E+00, 0.2462E+00, 0.2475E+00, 0.2489E+00,& - 0.2503E+00, 0.2517E+00, 0.2530E+00, 0.2544E+00,& - 0.2557E+00, 0.2571E+00, 0.2585E+00, 0.2599E+00,& - 0.2613E+00, 0.2626E+00, 0.2641E+00, 0.2654E+00,& - 0.2668E+00, 0.2683E+00, 0.2696E+00, 0.2710E+00,& - 0.2725E+00, 0.2738E+00, 0.2753E+00, 0.2767E+00,& - 0.2781E+00, 0.2796E+00, 0.2810E+00, 0.2824E+00,& - 0.2839E+00, 0.2853E+00, 0.2867E+00, 0.2882E+00,& - 0.2896E+00, 0.2910E+00, 0.2925E+00, 0.2940E+00,& - 0.2954E+00, 0.2969E+00, 0.2984E+00, 0.2999E+00,& - 0.3013E+00, 0.3028E+00, 0.3043E+00, 0.3058E+00,& - 0.3072E+00, 0.3087E+00, 0.3103E+00, 0.3117E+00,& - 0.3132E+00, 0.3147E+00, 0.3162E+00, 0.3178E+00,& - 0.3193E+00, 0.3208E+00, 0.3223E+00, 0.3238E+00,& - 0.3253E+00, 0.3269E+00, 0.3284E+00, 0.3299E+00,& - 0.3314E+00, 0.3330E+00, 0.3345E+00, 0.3360E+00,& - 0.3377E+00, 0.3392E+00, 0.3408E+00, 0.3423E+00,& - 0.3439E+00, 0.3454E+00, 0.3470E+00, 0.3486E+00,& - 0.3501E+00, 0.3517E+00, 0.3533E+00, 0.3549E+00,& - 0.3565E+00, 0.3581E+00, 0.3597E+00, 0.3613E+00,& - 0.3629E+00, 0.3645E+00, 0.3661E+00, 0.3677E+00,& - 0.3693E+00, 0.3710E+00, 0.3726E+00, 0.3742E+00,& - 0.3758E+00, 0.3775E+00, 0.3791E+00, 0.3808E+00,& - 0.3824E+00, 0.3841E+00, 0.3857E+00, 0.3874E+00,& - 0.3891E+00, 0.3908E+00, 0.3924E+00, 0.3941E+00,& - 0.3957E+00, 0.3974E+00, 0.3991E+00, 0.4008E+00,& - 0.4025E+00, 0.4042E+00, 0.4059E+00, 0.4075E+00,& - 0.4093E+00, 0.4110E+00, 0.4127E+00, 0.4144E+00,& - 0.4161E+00, 0.4178E+00, 0.4196E+00, 0.4213E+00,& - 0.4231E+00, 0.4247E+00, 0.4265E+00, 0.4283E+00,& - 0.4300E+00, 0.4317E+00, 0.4335E+00, 0.4353E+00,& - 0.4370E+00, 0.4388E+00, 0.4406E+00, 0.4424E+00,& - 0.4441E+00, 0.4459E+00, 0.4477E+00, 0.4494E+00,& - 0.4513E+00, 0.4531E+00, 0.4548E+00, 0.4567E+00,& - 0.4585E+00, 0.4603E+00, 0.4621E+00, 0.4639E+00,& - 0.4657E+00, 0.4676E+00, 0.4694E+00, 0.4713E+00,& - 0.4730E+00, 0.4749E+00, 0.4768E+00, 0.4786E+00,& - 0.4805E+00, 0.4823E+00, 0.4842E+00, 0.4860E+00,& - 0.4880E+00, 0.4898E+00, 0.4917E+00, 0.4935E+00,& - 0.4955E+00, 0.4973E+00, 0.4993E+00, 0.5011E+00,& - 0.5031E+00, 0.5049E+00, 0.5069E+00, 0.5088E+00,& - 0.5107E+00, 0.5126E+00, 0.5145E+00, 0.5165E+00,& - 0.5184E+00, 0.5203E+00, 0.5223E+00, 0.5242E+00,& - 0.5262E+00, 0.5282E+00, 0.5301E+00, 0.5321E+00,& - 0.5341E+00, 0.5360E+00, 0.5380E+00, 0.5400E+00,& - 0.5420E+00, 0.5440E+00, 0.5460E+00, 0.5480E+00,& - 0.5500E+00, 0.5520E+00, 0.5540E+00, 0.5560E+00,& - 0.5580E+00, 0.5600E+00, 0.5622E+00, 0.5642E+00,& - 0.5662E+00, 0.5682E+00, 0.5702E+00, 0.5724E+00,& - 0.5744E+00, 0.5765E+00, 0.5785E+00, 0.5806E+00,& - 0.5826E+00, 0.5847E+00, 0.5869E+00, 0.5890E+00,& - 0.5911E+00, 0.5932E+00, 0.5952E+00, 0.5974E+00,& - 0.5995E+00, 0.6016E+00, 0.6037E+00, 0.6058E+00,& - 0.6079E+00, 0.6101E+00, 0.6122E+00, 0.6144E+00,& - 0.6165E+00, 0.6187E+00, 0.6208E+00, 0.6230E+00,& - 0.6252E+00, 0.6274E+00, 0.6296E+00, 0.6318E+00,& - 0.6340E+00, 0.6362E+00, 0.6384E+00, 0.6406E+00,& - 0.6427E+00, 0.6449E+00, 0.6472E+00, 0.6494E+00,& - 0.6517E+00, 0.6539E+00, 0.6562E+00, 0.6583E+00,& - 0.6606E+00, 0.6629E+00, 0.6652E+00, 0.6675E+00,& - 0.6697E+00, 0.6720E+00, 0.6743E+00, 0.6766E+00,& - 0.6788E+00, 0.6811E+00, 0.6835E+00, 0.6857E+00,& - 0.6881E+00, 0.6904E+00, 0.6927E+00, 0.6950E+00,& - 0.6974E+00, 0.6997E+00, 0.7021E+00, 0.7045E+00,& - 0.7068E+00, 0.7092E+00, 0.7115E+00, 0.7139E+00,& - 0.7163E+00, 0.7187E+00, 0.7211E+00, 0.7234E+00,& - 0.7259E+00, 0.7282E+00, 0.7307E+00, 0.7331E+00,& - 0.7356E+00, 0.7379E+00, 0.7404E+00, 0.7428E+00,& - 0.7453E+00, 0.7478E+00, 0.7502E+00, 0.7527E+00,& - 0.7551E+00, 0.7577E+00, 0.7601E+00, 0.7626E+00,& - 0.7651E+00, 0.7676E+00, 0.7701E+00, 0.7727E+00,& - 0.7752E+00, 0.7777E+00, 0.7803E+00, 0.7828E+00,& - 0.7853E+00, 0.7878E+00, 0.7905E+00, 0.7930E+00,& - 0.7956E+00, 0.7981E+00, 0.8007E+00, 0.8033E+00,& - 0.8059E+00, 0.8085E+00, 0.8111E+00, 0.8137E+00,& - 0.8163E+00, 0.8190E+00, 0.8216E+00, 0.8243E+00,& - 0.8270E+00, 0.8296E+00, 0.8323E+00, 0.8349E+00,& - 0.8376E+00, 0.8403E+00, 0.8430E+00, 0.8457E+00,& - 0.8484E+00, 0.8511E+00, 0.8538E+00, 0.8565E+00,& - 0.8592E+00, 0.8619E+00, 0.8647E+00, 0.8675E+00,& - 0.8702E+00, 0.8730E+00, 0.8758E+00, 0.8785E+00,& - 0.8813E+00, 0.8841E+00, 0.8870E+00, 0.8898E+00,& - 0.8925E+00, 0.8954E+00, 0.8982E+00, 0.9011E+00,& - 0.9039E+00, 0.9068E+00, 0.9097E+00, 0.9125E+00,& - 0.9154E+00, 0.9183E+00, 0.9211E+00, 0.9241E+00,& - 0.9269E+00, 0.9299E+00, 0.9328E+00, 0.9357E+00,& - 0.9387E+00, 0.9416E+00, 0.9446E+00, 0.9475E+00,& - 0.9505E+00, 0.9535E+00, 0.9564E+00, 0.9595E+00,& - 0.9624E+00, 0.9655E+00, 0.9685E+00, 0.9715E+00,& - 0.9746E+00, 0.9776E+00, 0.9806E+00, 0.9837E+00,& - 0.9868E+00, 0.9898E+00, 0.9930E+00, 0.9961E+00,& - 0.9989E+00, 0.1002E+01, 0.1005E+01, 0.1009E+01,& - 0.1012E+01, 0.1015E+01, 0.1018E+01, 0.1021E+01,& - 0.1024E+01, 0.1028E+01, 0.1031E+01, 0.1034E+01,& - 0.1037E+01, 0.1040E+01, 0.1044E+01, 0.1047E+01,& - 0.1050E+01, 0.1053E+01, 0.1057E+01, 0.1060E+01,& - 0.1063E+01, 0.1066E+01, 0.1070E+01, 0.1073E+01,& - 0.1076E+01, 0.1080E+01, 0.1083E+01, 0.1086E+01,& - 0.1090E+01, 0.1093E+01, 0.1097E+01, 0.1100E+01,& - 0.1103E+01, 0.1107E+01, 0.1110E+01, 0.1114E+01,& - 0.1117E+01, 0.1121E+01, 0.1124E+01, 0.1128E+01,& - 0.1131E+01, 0.1134E+01, 0.1138E+01, 0.1141E+01,& - 0.1145E+01, 0.1149E+01, 0.1152E+01, 0.1156E+01,& - 0.1159E+01, 0.1163E+01, 0.1166E+01, 0.1170E+01,& - 0.1174E+01, 0.1177E+01, 0.1181E+01, 0.1185E+01,& - 0.1188E+01, 0.1192E+01, 0.1196E+01, 0.1199E+01,& - 0.1203E+01, 0.1207E+01, 0.1211E+01, 0.1214E+01,& - 0.1218E+01, 0.1222E+01, 0.1226E+01, 0.1229E+01,& - 0.1233E+01, 0.1237E+01, 0.1241E+01, 0.1245E+01,& - 0.1249E+01, 0.1253E+01, 0.1256E+01, 0.1260E+01,& - 0.1264E+01, 0.1268E+01, 0.1272E+01, 0.1276E+01,& - 0.1280E+01, 0.1284E+01, 0.1288E+01, 0.1292E+01,& - 0.1296E+01, 0.1300E+01, 0.1304E+01, 0.1308E+01,& - 0.1312E+01, 0.1316E+01, 0.1320E+01, 0.1325E+01,& - 0.1329E+01, 0.1333E+01, 0.1337E+01, 0.1341E+01,& - 0.1346E+01, 0.1350E+01, 0.1354E+01, 0.1358E+01,& - 0.1362E+01, 0.1367E+01, 0.1371E+01, 0.1375E+01,& - 0.1380E+01, 0.1384E+01, 0.1388E+01, 0.1393E+01,& - 0.1397E+01, 0.1401E+01, 0.1406E+01, 0.1410E+01,& - 0.1415E+01, 0.1419E+01, 0.1424E+01, 0.1428E+01,& - 0.1433E+01, 0.1437E+01, 0.1442E+01, 0.1447E+01,& - 0.1451E+01, 0.1456E+01, 0.1460E+01, 0.1465E+01,& - 0.1470E+01, 0.1474E+01, 0.1479E+01, 0.1484E+01,& - 0.1489E+01, 0.1493E+01, 0.1498E+01, 0.1503E+01,& - 0.1508E+01, 0.1513E+01, 0.1517E+01, 0.1522E+01,& - 0.1527E+01, 0.1532E+01, 0.1537E+01, 0.1542E+01,& - 0.1547E+01, 0.1552E+01, 0.1557E+01, 0.1562E+01,& - 0.1567E+01, 0.1572E+01, 0.1577E+01, 0.1582E+01,& - 0.1588E+01, 0.1593E+01, 0.1598E+01, 0.1603E+01,& - 0.1608E+01, 0.1614E+01, 0.1619E+01, 0.1624E+01,& - 0.1630E+01, 0.1635E+01, 0.1640E+01, 0.1646E+01,& - 0.1651E+01, 0.1657E+01, 0.1662E+01, 0.1668E+01,& - 0.1673E+01, 0.1679E+01, 0.1685E+01, 0.1690E+01,& - 0.1696E+01, 0.1701E+01, 0.1707E+01, 0.1713E+01,& - 0.1719E+01, 0.1724E+01, 0.1730E+01, 0.1736E+01,& - 0.1742E+01, 0.1748E+01, 0.1754E+01, 0.1760E+01,& - 0.1766E+01, 0.1772E+01, 0.1778E+01, 0.1784E+01,& - 0.1790E+01, 0.1796E+01, 0.1802E+01, 0.1808E+01,& - 0.1815E+01, 0.1821E+01, 0.1827E+01, 0.1834E+01,& - 0.1840E+01, 0.1846E+01, 0.1853E+01, 0.1859E+01,& - 0.1866E+01, 0.1872E+01, 0.1879E+01, 0.1885E+01,& - 0.1892E+01, 0.1899E+01, 0.1906E+01, 0.1912E+01,& - 0.1919E+01, 0.1926E+01, 0.1933E+01, 0.1940E+01,& - 0.1947E+01, 0.1954E+01, 0.1961E+01, 0.1968E+01,& - 0.1975E+01, 0.1982E+01, 0.1989E+01, 0.1997E+01,& - 0.2004E+01, 0.2011E+01, 0.2019E+01, 0.2026E+01,& - 0.2034E+01, 0.2041E+01, 0.2049E+01, 0.2056E+01,& - 0.2064E+01, 0.2072E+01, 0.2080E+01, 0.2087E+01,& - 0.2095E+01, 0.2103E+01, 0.2111E+01, 0.2119E+01,& - 0.2127E+01, 0.2136E+01, 0.2144E+01, 0.2152E+01,& - 0.2160E+01, 0.2169E+01, 0.2177E+01, 0.2186E+01,& - 0.2194E+01, 0.2203E+01, 0.2212E+01, 0.2220E+01,& - 0.2229E+01, 0.2238E+01, 0.2247E+01, 0.2256E+01,& - 0.2265E+01, 0.2274E+01, 0.2284E+01, 0.2293E+01,& - 0.2302E+01, 0.2312E+01, 0.2321E+01, 0.2331E+01,& - 0.2341E+01, 0.2350E+01, 0.2360E+01, 0.2370E+01,& - 0.2380E+01, 0.2390E+01, 0.2401E+01, 0.2411E+01,& - 0.2421E+01, 0.2432E+01, 0.2442E+01, 0.2453E+01,& - 0.2464E+01, 0.2474E+01, 0.2485E+01, 0.2496E+01,& - 0.2508E+01, 0.2519E+01, 0.2530E+01, 0.2542E+01,& - 0.2553E+01, 0.2565E+01, 0.2577E+01, 0.2589E+01,& - 0.2601E+01, 0.2613E+01, 0.2626E+01, 0.2638E+01,& - 0.2651E+01, 0.2663E+01, 0.2676E+01, 0.2689E+01,& - 0.2702E+01, 0.2716E+01, 0.2729E+01, 0.2743E+01,& - 0.2757E+01, 0.2771E+01, 0.2785E+01, 0.2799E+01,& - 0.2814E+01, 0.2828E+01, 0.2843E+01, 0.2858E+01,& - 0.2874E+01, 0.2889E+01, 0.2905E+01, 0.2921E+01,& - 0.2937E+01, 0.2953E+01, 0.2970E+01, 0.2987E+01,& - 0.3004E+01, 0.3021E+01, 0.3039E+01, 0.3057E+01,& - 0.3075E+01, 0.3094E+01, 0.3112E+01, 0.3132E+01,& - 0.3151E+01, 0.3171E+01, 0.3191E+01, 0.3212E+01,& - 0.3233E+01, 0.3254E+01, 0.3276E+01, 0.3298E+01,& - 0.3321E+01, 0.3344E+01, 0.3367E+01, 0.3392E+01,& - 0.3416E+01, 0.3442E+01, 0.3468E+01, 0.3494E+01,& - 0.3521E+01, 0.3549E+01, 0.3578E+01, 0.3607E+01,& - 0.3637E+01, 0.3668E+01, 0.3700E+01, 0.3734E+01,& - 0.3768E+01, 0.3803E+01, 0.3839E+01, 0.3877E+01,& - 0.3916E+01, 0.3957E+01, 0.4000E+01, 0.4044E+01,& - 0.4090E+01, 0.4139E+01, 0.4189E+01, 0.4243E+01,& - 0.4300E+01, 0.4360E+01, 0.4424E+01, 0.4492E+01,& - 0.4566E+01, 0.4646E+01, 0.4733E+01, 0.4830E+01,& - 0.4937E+01, 0.5059E+01, 0.5200E+01, 0.5369E+01,& - 0.1000E-04, 0.1000E-04, 0.1829E-03, 0.3557E-03/) - xcw(:, 42) = (/& - 0.1000E-04, 0.1000E-04, 0.1829E-03, 0.3557E-03,& - 0.5286E-03, 0.7014E-03, 0.9607E-03, 0.1220E-02,& - 0.1479E-02, 0.1739E-02, 0.1998E-02, 0.2257E-02,& - 0.2603E-02, 0.2949E-02, 0.3208E-02, 0.3553E-02,& - 0.3899E-02, 0.4245E-02, 0.4677E-02, 0.5023E-02,& - 0.5368E-02, 0.5801E-02, 0.6146E-02, 0.6578E-02,& - 0.7011E-02, 0.7443E-02, 0.7875E-02, 0.8307E-02,& - 0.8739E-02, 0.9171E-02, 0.9603E-02, 0.1012E-01,& - 0.1055E-01, 0.1107E-01, 0.1150E-01, 0.1202E-01,& - 0.1246E-01, 0.1297E-01, 0.1349E-01, 0.1401E-01,& - 0.1453E-01, 0.1505E-01, 0.1557E-01, 0.1609E-01,& - 0.1660E-01, 0.1721E-01, 0.1773E-01, 0.1825E-01,& - 0.1885E-01, 0.1937E-01, 0.1997E-01, 0.2058E-01,& - 0.2110E-01, 0.2170E-01, 0.2231E-01, 0.2291E-01,& - 0.2352E-01, 0.2412E-01, 0.2473E-01, 0.2533E-01,& - 0.2594E-01, 0.2654E-01, 0.2715E-01, 0.2784E-01,& - 0.2844E-01, 0.2905E-01, 0.2974E-01, 0.3035E-01,& - 0.3104E-01, 0.3164E-01, 0.3233E-01, 0.3302E-01,& - 0.3363E-01, 0.3432E-01, 0.3501E-01, 0.3570E-01,& - 0.3640E-01, 0.3709E-01, 0.3778E-01, 0.3847E-01,& - 0.3916E-01, 0.3985E-01, 0.4054E-01, 0.4132E-01,& - 0.4201E-01, 0.4270E-01, 0.4348E-01, 0.4417E-01,& - 0.4495E-01, 0.4564E-01, 0.4642E-01, 0.4711E-01,& - 0.4789E-01, 0.4867E-01, 0.4936E-01, 0.5014E-01,& - 0.5092E-01, 0.5169E-01, 0.5247E-01, 0.5325E-01,& - 0.5403E-01, 0.5480E-01, 0.5558E-01, 0.5636E-01,& - 0.5714E-01, 0.5792E-01, 0.5878E-01, 0.5956E-01,& - 0.6034E-01, 0.6120E-01, 0.6198E-01, 0.6284E-01,& - 0.6362E-01, 0.6448E-01, 0.6526E-01, 0.6613E-01,& - 0.6699E-01, 0.6777E-01, 0.6863E-01, 0.6950E-01,& - 0.7036E-01, 0.7114E-01, 0.7200E-01, 0.7287E-01,& - 0.7373E-01, 0.7460E-01, 0.7546E-01, 0.7632E-01,& - 0.7728E-01, 0.7814E-01, 0.7900E-01, 0.7987E-01,& - 0.8073E-01, 0.8168E-01, 0.8255E-01, 0.8350E-01,& - 0.8436E-01, 0.8531E-01, 0.8618E-01, 0.8713E-01,& - 0.8799E-01, 0.8894E-01, 0.8989E-01, 0.9076E-01,& - 0.9171E-01, 0.9266E-01, 0.9361E-01, 0.9447E-01,& - 0.9543E-01, 0.9638E-01, 0.9733E-01, 0.9828E-01,& - 0.9923E-01, 0.1002E+00, 0.1012E+00, 0.1022E+00,& - 0.1031E+00, 0.1041E+00, 0.1050E+00, 0.1061E+00,& - 0.1070E+00, 0.1080E+00, 0.1090E+00, 0.1099E+00,& - 0.1110E+00, 0.1119E+00, 0.1130E+00, 0.1140E+00,& - 0.1150E+00, 0.1160E+00, 0.1170E+00, 0.1180E+00,& - 0.1190E+00, 0.1201E+00, 0.1211E+00, 0.1221E+00,& - 0.1232E+00, 0.1242E+00, 0.1252E+00, 0.1263E+00,& - 0.1273E+00, 0.1284E+00, 0.1294E+00, 0.1304E+00,& - 0.1315E+00, 0.1326E+00, 0.1336E+00, 0.1347E+00,& - 0.1358E+00, 0.1368E+00, 0.1379E+00, 0.1390E+00,& - 0.1401E+00, 0.1411E+00, 0.1423E+00, 0.1433E+00,& - 0.1444E+00, 0.1456E+00, 0.1466E+00, 0.1477E+00,& - 0.1488E+00, 0.1500E+00, 0.1511E+00, 0.1522E+00,& - 0.1533E+00, 0.1545E+00, 0.1556E+00, 0.1567E+00,& - 0.1578E+00, 0.1589E+00, 0.1601E+00, 0.1612E+00,& - 0.1624E+00, 0.1635E+00, 0.1647E+00, 0.1658E+00,& - 0.1670E+00, 0.1681E+00, 0.1693E+00, 0.1704E+00,& - 0.1717E+00, 0.1728E+00, 0.1740E+00, 0.1752E+00,& - 0.1763E+00, 0.1775E+00, 0.1787E+00, 0.1799E+00,& - 0.1811E+00, 0.1823E+00, 0.1835E+00, 0.1847E+00,& - 0.1859E+00, 0.1871E+00, 0.1883E+00, 0.1895E+00,& - 0.1908E+00, 0.1920E+00, 0.1932E+00, 0.1945E+00,& - 0.1957E+00, 0.1969E+00, 0.1982E+00, 0.1994E+00,& - 0.2006E+00, 0.2019E+00, 0.2031E+00, 0.2044E+00,& - 0.2056E+00, 0.2069E+00, 0.2081E+00, 0.2094E+00,& - 0.2107E+00, 0.2120E+00, 0.2132E+00, 0.2145E+00,& - 0.2158E+00, 0.2171E+00, 0.2184E+00, 0.2197E+00,& - 0.2210E+00, 0.2223E+00, 0.2236E+00, 0.2249E+00,& - 0.2262E+00, 0.2275E+00, 0.2288E+00, 0.2302E+00,& - 0.2315E+00, 0.2328E+00, 0.2341E+00, 0.2354E+00,& - 0.2367E+00, 0.2381E+00, 0.2394E+00, 0.2408E+00,& - 0.2422E+00, 0.2435E+00, 0.2449E+00, 0.2462E+00,& - 0.2475E+00, 0.2489E+00, 0.2503E+00, 0.2517E+00,& - 0.2531E+00, 0.2544E+00, 0.2557E+00, 0.2571E+00,& - 0.2585E+00, 0.2600E+00, 0.2614E+00, 0.2627E+00,& - 0.2641E+00, 0.2655E+00, 0.2669E+00, 0.2684E+00,& - 0.2697E+00, 0.2711E+00, 0.2726E+00, 0.2740E+00,& - 0.2755E+00, 0.2768E+00, 0.2783E+00, 0.2798E+00,& - 0.2812E+00, 0.2826E+00, 0.2841E+00, 0.2855E+00,& - 0.2869E+00, 0.2884E+00, 0.2899E+00, 0.2914E+00,& - 0.2928E+00, 0.2943E+00, 0.2958E+00, 0.2972E+00,& - 0.2987E+00, 0.3002E+00, 0.3016E+00, 0.3032E+00,& - 0.3047E+00, 0.3061E+00, 0.3077E+00, 0.3092E+00,& - 0.3106E+00, 0.3122E+00, 0.3137E+00, 0.3152E+00,& - 0.3168E+00, 0.3182E+00, 0.3198E+00, 0.3213E+00,& - 0.3228E+00, 0.3244E+00, 0.3259E+00, 0.3275E+00,& - 0.3290E+00, 0.3306E+00, 0.3321E+00, 0.3337E+00,& - 0.3353E+00, 0.3368E+00, 0.3384E+00, 0.3399E+00,& - 0.3416E+00, 0.3431E+00, 0.3447E+00, 0.3463E+00,& - 0.3479E+00, 0.3494E+00, 0.3511E+00, 0.3527E+00,& - 0.3543E+00, 0.3559E+00, 0.3575E+00, 0.3591E+00,& - 0.3608E+00, 0.3624E+00, 0.3640E+00, 0.3656E+00,& - 0.3672E+00, 0.3689E+00, 0.3705E+00, 0.3722E+00,& - 0.3738E+00, 0.3755E+00, 0.3772E+00, 0.3788E+00,& - 0.3805E+00, 0.3821E+00, 0.3838E+00, 0.3855E+00,& - 0.3872E+00, 0.3888E+00, 0.3906E+00, 0.3922E+00,& - 0.3939E+00, 0.3957E+00, 0.3973E+00, 0.3990E+00,& - 0.4008E+00, 0.4025E+00, 0.4041E+00, 0.4059E+00,& - 0.4076E+00, 0.4093E+00, 0.4111E+00, 0.4129E+00,& - 0.4146E+00, 0.4163E+00, 0.4181E+00, 0.4198E+00,& - 0.4216E+00, 0.4233E+00, 0.4251E+00, 0.4269E+00,& - 0.4287E+00, 0.4304E+00, 0.4322E+00, 0.4340E+00,& - 0.4358E+00, 0.4376E+00, 0.4394E+00, 0.4411E+00,& - 0.4429E+00, 0.4448E+00, 0.4466E+00, 0.4484E+00,& - 0.4502E+00, 0.4520E+00, 0.4539E+00, 0.4557E+00,& - 0.4576E+00, 0.4594E+00, 0.4613E+00, 0.4631E+00,& - 0.4650E+00, 0.4668E+00, 0.4687E+00, 0.4705E+00,& - 0.4724E+00, 0.4743E+00, 0.4761E+00, 0.4780E+00,& - 0.4799E+00, 0.4818E+00, 0.4837E+00, 0.4856E+00,& - 0.4875E+00, 0.4894E+00, 0.4913E+00, 0.4932E+00,& - 0.4952E+00, 0.4971E+00, 0.4990E+00, 0.5010E+00,& - 0.5029E+00, 0.5048E+00, 0.5068E+00, 0.5088E+00,& - 0.5107E+00, 0.5127E+00, 0.5147E+00, 0.5167E+00,& - 0.5186E+00, 0.5206E+00, 0.5225E+00, 0.5245E+00,& - 0.5265E+00, 0.5285E+00, 0.5306E+00, 0.5326E+00,& - 0.5346E+00, 0.5365E+00, 0.5386E+00, 0.5406E+00,& - 0.5427E+00, 0.5447E+00, 0.5467E+00, 0.5488E+00,& - 0.5508E+00, 0.5529E+00, 0.5550E+00, 0.5570E+00,& - 0.5591E+00, 0.5612E+00, 0.5633E+00, 0.5653E+00,& - 0.5674E+00, 0.5695E+00, 0.5715E+00, 0.5737E+00,& - 0.5758E+00, 0.5779E+00, 0.5800E+00, 0.5821E+00,& - 0.5843E+00, 0.5864E+00, 0.5885E+00, 0.5906E+00,& - 0.5928E+00, 0.5950E+00, 0.5971E+00, 0.5993E+00,& - 0.6015E+00, 0.6036E+00, 0.6058E+00, 0.6079E+00,& - 0.6102E+00, 0.6123E+00, 0.6146E+00, 0.6168E+00,& - 0.6190E+00, 0.6212E+00, 0.6234E+00, 0.6256E+00,& - 0.6278E+00, 0.6301E+00, 0.6323E+00, 0.6346E+00,& - 0.6368E+00, 0.6390E+00, 0.6413E+00, 0.6435E+00,& - 0.6459E+00, 0.6481E+00, 0.6504E+00, 0.6527E+00,& - 0.6550E+00, 0.6573E+00, 0.6596E+00, 0.6619E+00,& - 0.6642E+00, 0.6665E+00, 0.6689E+00, 0.6712E+00,& - 0.6735E+00, 0.6759E+00, 0.6782E+00, 0.6805E+00,& - 0.6830E+00, 0.6853E+00, 0.6876E+00, 0.6900E+00,& - 0.6924E+00, 0.6948E+00, 0.6972E+00, 0.6995E+00,& - 0.7020E+00, 0.7044E+00, 0.7068E+00, 0.7092E+00,& - 0.7116E+00, 0.7141E+00, 0.7166E+00, 0.7190E+00,& - 0.7214E+00, 0.7239E+00, 0.7263E+00, 0.7288E+00,& - 0.7313E+00, 0.7338E+00, 0.7363E+00, 0.7388E+00,& - 0.7413E+00, 0.7438E+00, 0.7463E+00, 0.7488E+00,& - 0.7513E+00, 0.7539E+00, 0.7564E+00, 0.7589E+00,& - 0.7615E+00, 0.7641E+00, 0.7666E+00, 0.7692E+00,& - 0.7718E+00, 0.7744E+00, 0.7770E+00, 0.7796E+00,& - 0.7822E+00, 0.7848E+00, 0.7874E+00, 0.7900E+00,& - 0.7926E+00, 0.7953E+00, 0.7979E+00, 0.8006E+00,& - 0.8033E+00, 0.8059E+00, 0.8085E+00, 0.8112E+00,& - 0.8139E+00, 0.8166E+00, 0.8193E+00, 0.8220E+00,& - 0.8247E+00, 0.8275E+00, 0.8301E+00, 0.8329E+00,& - 0.8357E+00, 0.8384E+00, 0.8411E+00, 0.8439E+00,& - 0.8466E+00, 0.8495E+00, 0.8523E+00, 0.8550E+00,& - 0.8578E+00, 0.8606E+00, 0.8634E+00, 0.8663E+00,& - 0.8691E+00, 0.8720E+00, 0.8748E+00, 0.8777E+00,& - 0.8805E+00, 0.8834E+00, 0.8862E+00, 0.8891E+00,& - 0.8920E+00, 0.8949E+00, 0.8978E+00, 0.9007E+00,& - 0.9037E+00, 0.9065E+00, 0.9095E+00, 0.9124E+00,& - 0.9154E+00, 0.9184E+00, 0.9213E+00, 0.9243E+00,& - 0.9273E+00, 0.9303E+00, 0.9333E+00, 0.9364E+00,& - 0.9393E+00, 0.9417E+00, 0.9454E+00, 0.9485E+00,& - 0.9515E+00, 0.9546E+00, 0.9576E+00, 0.9607E+00,& - 0.9638E+00, 0.9669E+00, 0.9700E+00, 0.9731E+00,& - 0.9762E+00, 0.9794E+00, 0.9825E+00, 0.9856E+00,& - 0.9888E+00, 0.9920E+00, 0.9951E+00, 0.9983E+00,& - 0.1002E+01, 0.1005E+01, 0.1008E+01, 0.1011E+01,& - 0.1014E+01, 0.1018E+01, 0.1021E+01, 0.1024E+01,& - 0.1027E+01, 0.1031E+01, 0.1034E+01, 0.1037E+01,& - 0.1041E+01, 0.1044E+01, 0.1047E+01, 0.1051E+01,& - 0.1054E+01, 0.1057E+01, 0.1061E+01, 0.1064E+01,& - 0.1067E+01, 0.1071E+01, 0.1074E+01, 0.1078E+01,& - 0.1081E+01, 0.1085E+01, 0.1088E+01, 0.1091E+01,& - 0.1095E+01, 0.1098E+01, 0.1102E+01, 0.1105E+01,& - 0.1109E+01, 0.1112E+01, 0.1116E+01, 0.1120E+01,& - 0.1123E+01, 0.1127E+01, 0.1130E+01, 0.1134E+01,& - 0.1137E+01, 0.1141E+01, 0.1145E+01, 0.1148E+01,& - 0.1152E+01, 0.1156E+01, 0.1159E+01, 0.1163E+01,& - 0.1167E+01, 0.1170E+01, 0.1174E+01, 0.1178E+01,& - 0.1182E+01, 0.1185E+01, 0.1189E+01, 0.1193E+01,& - 0.1197E+01, 0.1201E+01, 0.1204E+01, 0.1208E+01,& - 0.1212E+01, 0.1216E+01, 0.1220E+01, 0.1224E+01,& - 0.1228E+01, 0.1231E+01, 0.1235E+01, 0.1239E+01,& - 0.1243E+01, 0.1247E+01, 0.1251E+01, 0.1255E+01,& - 0.1259E+01, 0.1263E+01, 0.1267E+01, 0.1271E+01,& - 0.1275E+01, 0.1279E+01, 0.1284E+01, 0.1288E+01,& - 0.1292E+01, 0.1296E+01, 0.1300E+01, 0.1304E+01,& - 0.1308E+01, 0.1313E+01, 0.1317E+01, 0.1321E+01,& - 0.1325E+01, 0.1330E+01, 0.1334E+01, 0.1338E+01,& - 0.1342E+01, 0.1347E+01, 0.1351E+01, 0.1355E+01,& - 0.1360E+01, 0.1364E+01, 0.1368E+01, 0.1373E+01,& - 0.1377E+01, 0.1382E+01, 0.1386E+01, 0.1391E+01,& - 0.1395E+01, 0.1400E+01, 0.1404E+01, 0.1409E+01,& - 0.1413E+01, 0.1418E+01, 0.1423E+01, 0.1427E+01,& - 0.1432E+01, 0.1436E+01, 0.1441E+01, 0.1446E+01,& - 0.1451E+01, 0.1455E+01, 0.1460E+01, 0.1465E+01,& - 0.1470E+01, 0.1474E+01, 0.1479E+01, 0.1484E+01,& - 0.1489E+01, 0.1494E+01, 0.1499E+01, 0.1504E+01,& - 0.1509E+01, 0.1514E+01, 0.1518E+01, 0.1523E+01,& - 0.1528E+01, 0.1534E+01, 0.1539E+01, 0.1544E+01,& - 0.1549E+01, 0.1554E+01, 0.1559E+01, 0.1564E+01,& - 0.1570E+01, 0.1575E+01, 0.1580E+01, 0.1585E+01,& - 0.1591E+01, 0.1596E+01, 0.1601E+01, 0.1607E+01,& - 0.1612E+01, 0.1617E+01, 0.1623E+01, 0.1628E+01,& - 0.1634E+01, 0.1639E+01, 0.1645E+01, 0.1650E+01,& - 0.1656E+01, 0.1662E+01, 0.1667E+01, 0.1673E+01,& - 0.1679E+01, 0.1684E+01, 0.1690E+01, 0.1696E+01,& - 0.1702E+01, 0.1707E+01, 0.1713E+01, 0.1719E+01,& - 0.1725E+01, 0.1731E+01, 0.1737E+01, 0.1743E+01,& - 0.1749E+01, 0.1755E+01, 0.1761E+01, 0.1767E+01,& - 0.1773E+01, 0.1780E+01, 0.1786E+01, 0.1792E+01,& - 0.1798E+01, 0.1805E+01, 0.1811E+01, 0.1817E+01,& - 0.1824E+01, 0.1830E+01, 0.1837E+01, 0.1843E+01,& - 0.1850E+01, 0.1856E+01, 0.1863E+01, 0.1870E+01,& - 0.1876E+01, 0.1883E+01, 0.1890E+01, 0.1897E+01,& - 0.1904E+01, 0.1910E+01, 0.1917E+01, 0.1924E+01,& - 0.1931E+01, 0.1938E+01, 0.1945E+01, 0.1953E+01,& - 0.1959E+01, 0.1967E+01, 0.1974E+01, 0.1982E+01,& - 0.1989E+01, 0.1996E+01, 0.2004E+01, 0.2011E+01,& - 0.2019E+01, 0.2026E+01, 0.2034E+01, 0.2042E+01,& - 0.2049E+01, 0.2057E+01, 0.2065E+01, 0.2073E+01,& - 0.2081E+01, 0.2089E+01, 0.2097E+01, 0.2105E+01,& - 0.2113E+01, 0.2121E+01, 0.2129E+01, 0.2138E+01,& - 0.2146E+01, 0.2154E+01, 0.2163E+01, 0.2171E+01,& - 0.2180E+01, 0.2189E+01, 0.2197E+01, 0.2206E+01,& - 0.2215E+01, 0.2224E+01, 0.2233E+01, 0.2242E+01,& - 0.2251E+01, 0.2260E+01, 0.2269E+01, 0.2279E+01,& - 0.2288E+01, 0.2297E+01, 0.2307E+01, 0.2317E+01,& - 0.2326E+01, 0.2336E+01, 0.2346E+01, 0.2356E+01,& - 0.2366E+01, 0.2376E+01, 0.2386E+01, 0.2396E+01,& - 0.2407E+01, 0.2417E+01, 0.2428E+01, 0.2438E+01,& - 0.2449E+01, 0.2460E+01, 0.2471E+01, 0.2482E+01,& - 0.2493E+01, 0.2504E+01, 0.2515E+01, 0.2527E+01,& - 0.2538E+01, 0.2550E+01, 0.2562E+01, 0.2573E+01,& - 0.2585E+01, 0.2598E+01, 0.2610E+01, 0.2622E+01,& - 0.2635E+01, 0.2647E+01, 0.2660E+01, 0.2673E+01,& - 0.2686E+01, 0.2699E+01, 0.2712E+01, 0.2726E+01,& - 0.2740E+01, 0.2753E+01, 0.2767E+01, 0.2781E+01,& - 0.2796E+01, 0.2810E+01, 0.2825E+01, 0.2840E+01,& - 0.2855E+01, 0.2870E+01, 0.2885E+01, 0.2901E+01,& - 0.2917E+01, 0.2933E+01, 0.2949E+01, 0.2965E+01,& - 0.2982E+01, 0.2999E+01, 0.3016E+01, 0.3034E+01,& - 0.3051E+01, 0.3069E+01, 0.3088E+01, 0.3106E+01,& - 0.3125E+01, 0.3144E+01, 0.3164E+01, 0.3184E+01,& - 0.3204E+01, 0.3224E+01, 0.3245E+01, 0.3267E+01,& - 0.3288E+01, 0.3310E+01, 0.3333E+01, 0.3356E+01,& - 0.3379E+01, 0.3403E+01, 0.3428E+01, 0.3453E+01,& - 0.3478E+01, 0.3505E+01, 0.3531E+01, 0.3559E+01,& - 0.3587E+01, 0.3616E+01, 0.3646E+01, 0.3676E+01,& - 0.3707E+01, 0.3740E+01, 0.3773E+01, 0.3807E+01,& - 0.3842E+01, 0.3879E+01, 0.3917E+01, 0.3956E+01,& - 0.3997E+01, 0.4039E+01, 0.4083E+01, 0.4129E+01,& - 0.4177E+01, 0.4227E+01, 0.4280E+01, 0.4335E+01,& - 0.4394E+01, 0.4456E+01, 0.4523E+01, 0.4594E+01,& - 0.4670E+01, 0.4753E+01, 0.4844E+01, 0.4944E+01,& - 0.5055E+01, 0.5182E+01, 0.5328E+01, 0.5503E+01,& - 0.1000E-04, 0.1000E-04, 0.9860E-04, 0.1872E-03/) - xcw(:, 43) = (/& - 0.1000E-04, 0.1000E-04, 0.9860E-04, 0.1872E-03,& - 0.3644E-03, 0.5416E-03, 0.7188E-03, 0.8960E-03,& - 0.1073E-02, 0.1339E-02, 0.1516E-02, 0.1782E-02,& - 0.2048E-02, 0.2314E-02, 0.2579E-02, 0.2845E-02,& - 0.3111E-02, 0.3465E-02, 0.3731E-02, 0.4085E-02,& - 0.4351E-02, 0.4706E-02, 0.5060E-02, 0.5414E-02,& - 0.5769E-02, 0.6123E-02, 0.6478E-02, 0.6832E-02,& - 0.7186E-02, 0.7629E-02, 0.7984E-02, 0.8427E-02,& - 0.8781E-02, 0.9224E-02, 0.9667E-02, 0.1011E-01,& - 0.1046E-01, 0.1091E-01, 0.1135E-01, 0.1179E-01,& - 0.1232E-01, 0.1277E-01, 0.1321E-01, 0.1365E-01,& - 0.1419E-01, 0.1463E-01, 0.1516E-01, 0.1560E-01,& - 0.1613E-01, 0.1658E-01, 0.1711E-01, 0.1764E-01,& - 0.1817E-01, 0.1870E-01, 0.1924E-01, 0.1977E-01,& - 0.2030E-01, 0.2083E-01, 0.2136E-01, 0.2189E-01,& - 0.2242E-01, 0.2305E-01, 0.2358E-01, 0.2420E-01,& - 0.2473E-01, 0.2535E-01, 0.2588E-01, 0.2650E-01,& - 0.2712E-01, 0.2765E-01, 0.2827E-01, 0.2889E-01,& - 0.2951E-01, 0.3013E-01, 0.3075E-01, 0.3137E-01,& - 0.3199E-01, 0.3261E-01, 0.3323E-01, 0.3385E-01,& - 0.3456E-01, 0.3518E-01, 0.3580E-01, 0.3651E-01,& - 0.3713E-01, 0.3784E-01, 0.3846E-01, 0.3917E-01,& - 0.3979E-01, 0.4050E-01, 0.4121E-01, 0.4183E-01,& - 0.4254E-01, 0.4324E-01, 0.4395E-01, 0.4466E-01,& - 0.4537E-01, 0.4608E-01, 0.4679E-01, 0.4750E-01,& - 0.4821E-01, 0.4892E-01, 0.4971E-01, 0.5042E-01,& - 0.5113E-01, 0.5193E-01, 0.5264E-01, 0.5343E-01,& - 0.5414E-01, 0.5494E-01, 0.5565E-01, 0.5645E-01,& - 0.5715E-01, 0.5795E-01, 0.5875E-01, 0.5955E-01,& - 0.6026E-01, 0.6105E-01, 0.6185E-01, 0.6265E-01,& - 0.6344E-01, 0.6424E-01, 0.6504E-01, 0.6584E-01,& - 0.6663E-01, 0.6752E-01, 0.6832E-01, 0.6912E-01,& - 0.6991E-01, 0.7080E-01, 0.7160E-01, 0.7248E-01,& - 0.7328E-01, 0.7417E-01, 0.7496E-01, 0.7585E-01,& - 0.7665E-01, 0.7753E-01, 0.7842E-01, 0.7922E-01,& - 0.8010E-01, 0.8099E-01, 0.8187E-01, 0.8276E-01,& - 0.8364E-01, 0.8453E-01, 0.8542E-01, 0.8630E-01,& - 0.8719E-01, 0.8807E-01, 0.8896E-01, 0.8985E-01,& - 0.9082E-01, 0.9171E-01, 0.9259E-01, 0.9348E-01,& - 0.9445E-01, 0.9534E-01, 0.9631E-01, 0.9720E-01,& - 0.9817E-01, 0.9906E-01, 0.1000E+00, 0.1010E+00,& - 0.1019E+00, 0.1029E+00, 0.1038E+00, 0.1048E+00,& - 0.1058E+00, 0.1067E+00, 0.1077E+00, 0.1086E+00,& - 0.1096E+00, 0.1106E+00, 0.1116E+00, 0.1126E+00,& - 0.1136E+00, 0.1146E+00, 0.1155E+00, 0.1165E+00,& - 0.1176E+00, 0.1186E+00, 0.1195E+00, 0.1206E+00,& - 0.1216E+00, 0.1226E+00, 0.1236E+00, 0.1247E+00,& - 0.1256E+00, 0.1267E+00, 0.1278E+00, 0.1287E+00,& - 0.1298E+00, 0.1309E+00, 0.1319E+00, 0.1329E+00,& - 0.1340E+00, 0.1350E+00, 0.1361E+00, 0.1372E+00,& - 0.1382E+00, 0.1393E+00, 0.1403E+00, 0.1415E+00,& - 0.1426E+00, 0.1436E+00, 0.1447E+00, 0.1458E+00,& - 0.1469E+00, 0.1480E+00, 0.1491E+00, 0.1502E+00,& - 0.1513E+00, 0.1524E+00, 0.1535E+00, 0.1546E+00,& - 0.1558E+00, 0.1569E+00, 0.1580E+00, 0.1591E+00,& - 0.1603E+00, 0.1614E+00, 0.1625E+00, 0.1636E+00,& - 0.1648E+00, 0.1660E+00, 0.1671E+00, 0.1683E+00,& - 0.1694E+00, 0.1706E+00, 0.1718E+00, 0.1729E+00,& - 0.1741E+00, 0.1753E+00, 0.1765E+00, 0.1776E+00,& - 0.1788E+00, 0.1800E+00, 0.1812E+00, 0.1824E+00,& - 0.1836E+00, 0.1848E+00, 0.1860E+00, 0.1872E+00,& - 0.1885E+00, 0.1896E+00, 0.1908E+00, 0.1921E+00,& - 0.1933E+00, 0.1946E+00, 0.1957E+00, 0.1970E+00,& - 0.1982E+00, 0.1994E+00, 0.2007E+00, 0.2019E+00,& - 0.2032E+00, 0.2045E+00, 0.2057E+00, 0.2070E+00,& - 0.2082E+00, 0.2095E+00, 0.2108E+00, 0.2121E+00,& - 0.2133E+00, 0.2146E+00, 0.2159E+00, 0.2172E+00,& - 0.2185E+00, 0.2198E+00, 0.2211E+00, 0.2224E+00,& - 0.2237E+00, 0.2250E+00, 0.2263E+00, 0.2276E+00,& - 0.2289E+00, 0.2303E+00, 0.2316E+00, 0.2329E+00,& - 0.2343E+00, 0.2356E+00, 0.2369E+00, 0.2382E+00,& - 0.2396E+00, 0.2410E+00, 0.2423E+00, 0.2436E+00,& - 0.2451E+00, 0.2464E+00, 0.2477E+00, 0.2491E+00,& - 0.2505E+00, 0.2519E+00, 0.2533E+00, 0.2546E+00,& - 0.2561E+00, 0.2575E+00, 0.2588E+00, 0.2602E+00,& - 0.2616E+00, 0.2631E+00, 0.2645E+00, 0.2659E+00,& - 0.2673E+00, 0.2687E+00, 0.2701E+00, 0.2716E+00,& - 0.2730E+00, 0.2744E+00, 0.2758E+00, 0.2773E+00,& - 0.2787E+00, 0.2802E+00, 0.2817E+00, 0.2831E+00,& - 0.2845E+00, 0.2860E+00, 0.2874E+00, 0.2889E+00,& - 0.2904E+00, 0.2918E+00, 0.2934E+00, 0.2949E+00,& - 0.2964E+00, 0.2978E+00, 0.2993E+00, 0.3008E+00,& - 0.3023E+00, 0.3038E+00, 0.3053E+00, 0.3068E+00,& - 0.3083E+00, 0.3098E+00, 0.3114E+00, 0.3129E+00,& - 0.3144E+00, 0.3159E+00, 0.3175E+00, 0.3190E+00,& - 0.3206E+00, 0.3221E+00, 0.3237E+00, 0.3252E+00,& - 0.3268E+00, 0.3284E+00, 0.3299E+00, 0.3315E+00,& - 0.3331E+00, 0.3347E+00, 0.3362E+00, 0.3378E+00,& - 0.3394E+00, 0.3410E+00, 0.3426E+00, 0.3442E+00,& - 0.3459E+00, 0.3475E+00, 0.3491E+00, 0.3507E+00,& - 0.3524E+00, 0.3540E+00, 0.3555E+00, 0.3572E+00,& - 0.3588E+00, 0.3605E+00, 0.3621E+00, 0.3638E+00,& - 0.3655E+00, 0.3671E+00, 0.3687E+00, 0.3704E+00,& - 0.3721E+00, 0.3737E+00, 0.3754E+00, 0.3771E+00,& - 0.3788E+00, 0.3804E+00, 0.3822E+00, 0.3839E+00,& - 0.3856E+00, 0.3873E+00, 0.3889E+00, 0.3907E+00,& - 0.3924E+00, 0.3941E+00, 0.3959E+00, 0.3975E+00,& - 0.3993E+00, 0.4011E+00, 0.4028E+00, 0.4045E+00,& - 0.4063E+00, 0.4081E+00, 0.4098E+00, 0.4115E+00,& - 0.4133E+00, 0.4151E+00, 0.4169E+00, 0.4186E+00,& - 0.4204E+00, 0.4223E+00, 0.4240E+00, 0.4258E+00,& - 0.4276E+00, 0.4294E+00, 0.4312E+00, 0.4331E+00,& - 0.4348E+00, 0.4367E+00, 0.4385E+00, 0.4403E+00,& - 0.4422E+00, 0.4440E+00, 0.4458E+00, 0.4477E+00,& - 0.4495E+00, 0.4514E+00, 0.4533E+00, 0.4551E+00,& - 0.4570E+00, 0.4589E+00, 0.4607E+00, 0.4626E+00,& - 0.4645E+00, 0.4664E+00, 0.4682E+00, 0.4702E+00,& - 0.4721E+00, 0.4740E+00, 0.4759E+00, 0.4778E+00,& - 0.4798E+00, 0.4817E+00, 0.4836E+00, 0.4855E+00,& - 0.4875E+00, 0.4894E+00, 0.4914E+00, 0.4933E+00,& - 0.4953E+00, 0.4972E+00, 0.4992E+00, 0.5012E+00,& - 0.5031E+00, 0.5052E+00, 0.5071E+00, 0.5092E+00,& - 0.5111E+00, 0.5132E+00, 0.5151E+00, 0.5171E+00,& - 0.5192E+00, 0.5212E+00, 0.5232E+00, 0.5252E+00,& - 0.5272E+00, 0.5293E+00, 0.5313E+00, 0.5334E+00,& - 0.5355E+00, 0.5375E+00, 0.5396E+00, 0.5417E+00,& - 0.5437E+00, 0.5459E+00, 0.5479E+00, 0.5500E+00,& - 0.5521E+00, 0.5542E+00, 0.5563E+00, 0.5584E+00,& - 0.5605E+00, 0.5626E+00, 0.5647E+00, 0.5668E+00,& - 0.5690E+00, 0.5712E+00, 0.5733E+00, 0.5754E+00,& - 0.5776E+00, 0.5798E+00, 0.5819E+00, 0.5841E+00,& - 0.5863E+00, 0.5885E+00, 0.5907E+00, 0.5928E+00,& - 0.5950E+00, 0.5972E+00, 0.5995E+00, 0.6017E+00,& - 0.6039E+00, 0.6061E+00, 0.6083E+00, 0.6106E+00,& - 0.6128E+00, 0.6150E+00, 0.6173E+00, 0.6196E+00,& - 0.6219E+00, 0.6241E+00, 0.6264E+00, 0.6287E+00,& - 0.6309E+00, 0.6332E+00, 0.6355E+00, 0.6378E+00,& - 0.6401E+00, 0.6424E+00, 0.6448E+00, 0.6471E+00,& - 0.6494E+00, 0.6517E+00, 0.6541E+00, 0.6564E+00,& - 0.6588E+00, 0.6612E+00, 0.6635E+00, 0.6659E+00,& - 0.6683E+00, 0.6707E+00, 0.6731E+00, 0.6755E+00,& - 0.6779E+00, 0.6803E+00, 0.6826E+00, 0.6851E+00,& - 0.6875E+00, 0.6900E+00, 0.6924E+00, 0.6949E+00,& - 0.6973E+00, 0.6997E+00, 0.7022E+00, 0.7047E+00,& - 0.7072E+00, 0.7097E+00, 0.7121E+00, 0.7146E+00,& - 0.7171E+00, 0.7196E+00, 0.7222E+00, 0.7246E+00,& - 0.7272E+00, 0.7297E+00, 0.7323E+00, 0.7348E+00,& - 0.7374E+00, 0.7399E+00, 0.7424E+00, 0.7450E+00,& - 0.7476E+00, 0.7502E+00, 0.7528E+00, 0.7554E+00,& - 0.7580E+00, 0.7606E+00, 0.7633E+00, 0.7658E+00,& - 0.7685E+00, 0.7712E+00, 0.7738E+00, 0.7765E+00,& - 0.7791E+00, 0.7818E+00, 0.7844E+00, 0.7871E+00,& - 0.7898E+00, 0.7925E+00, 0.7953E+00, 0.7979E+00,& - 0.8007E+00, 0.8034E+00, 0.8061E+00, 0.8088E+00,& - 0.8116E+00, 0.8143E+00, 0.8171E+00, 0.8199E+00,& - 0.8226E+00, 0.8255E+00, 0.8282E+00, 0.8310E+00,& - 0.8338E+00, 0.8366E+00, 0.8395E+00, 0.8423E+00,& - 0.8451E+00, 0.8480E+00, 0.8508E+00, 0.8537E+00,& - 0.8566E+00, 0.8594E+00, 0.8623E+00, 0.8652E+00,& - 0.8681E+00, 0.8710E+00, 0.8739E+00, 0.8768E+00,& - 0.8798E+00, 0.8827E+00, 0.8857E+00, 0.8886E+00,& - 0.8916E+00, 0.8946E+00, 0.8976E+00, 0.9005E+00,& - 0.9035E+00, 0.9065E+00, 0.9095E+00, 0.9126E+00,& - 0.9156E+00, 0.9187E+00, 0.9217E+00, 0.9248E+00,& - 0.9278E+00, 0.9309E+00, 0.9340E+00, 0.9371E+00,& - 0.9402E+00, 0.9433E+00, 0.9464E+00, 0.9495E+00,& - 0.9527E+00, 0.9558E+00, 0.9590E+00, 0.9622E+00,& - 0.9653E+00, 0.9685E+00, 0.9716E+00, 0.9748E+00,& - 0.9781E+00, 0.9813E+00, 0.9845E+00, 0.9878E+00,& - 0.9910E+00, 0.9942E+00, 0.9975E+00, 0.1001E+01,& - 0.1004E+01, 0.1007E+01, 0.1011E+01, 0.1014E+01,& - 0.1017E+01, 0.1021E+01, 0.1024E+01, 0.1027E+01,& - 0.1031E+01, 0.1034E+01, 0.1038E+01, 0.1041E+01,& - 0.1044E+01, 0.1048E+01, 0.1051E+01, 0.1055E+01,& - 0.1058E+01, 0.1062E+01, 0.1065E+01, 0.1068E+01,& - 0.1072E+01, 0.1075E+01, 0.1079E+01, 0.1083E+01,& - 0.1086E+01, 0.1090E+01, 0.1093E+01, 0.1097E+01,& - 0.1100E+01, 0.1104E+01, 0.1108E+01, 0.1111E+01,& - 0.1115E+01, 0.1118E+01, 0.1122E+01, 0.1126E+01,& - 0.1129E+01, 0.1133E+01, 0.1137E+01, 0.1141E+01,& - 0.1144E+01, 0.1148E+01, 0.1152E+01, 0.1155E+01,& - 0.1159E+01, 0.1163E+01, 0.1167E+01, 0.1171E+01,& - 0.1174E+01, 0.1178E+01, 0.1182E+01, 0.1186E+01,& - 0.1190E+01, 0.1194E+01, 0.1198E+01, 0.1202E+01,& - 0.1205E+01, 0.1209E+01, 0.1213E+01, 0.1217E+01,& - 0.1221E+01, 0.1225E+01, 0.1229E+01, 0.1233E+01,& - 0.1237E+01, 0.1241E+01, 0.1245E+01, 0.1250E+01,& - 0.1254E+01, 0.1258E+01, 0.1262E+01, 0.1266E+01,& - 0.1270E+01, 0.1274E+01, 0.1279E+01, 0.1283E+01,& - 0.1287E+01, 0.1291E+01, 0.1295E+01, 0.1300E+01,& - 0.1304E+01, 0.1308E+01, 0.1312E+01, 0.1317E+01,& - 0.1321E+01, 0.1325E+01, 0.1330E+01, 0.1334E+01,& - 0.1339E+01, 0.1343E+01, 0.1347E+01, 0.1352E+01,& - 0.1356E+01, 0.1361E+01, 0.1365E+01, 0.1370E+01,& - 0.1374E+01, 0.1379E+01, 0.1384E+01, 0.1388E+01,& - 0.1393E+01, 0.1397E+01, 0.1402E+01, 0.1407E+01,& - 0.1411E+01, 0.1416E+01, 0.1421E+01, 0.1425E+01,& - 0.1430E+01, 0.1435E+01, 0.1440E+01, 0.1444E+01,& - 0.1449E+01, 0.1454E+01, 0.1459E+01, 0.1464E+01,& - 0.1469E+01, 0.1474E+01, 0.1479E+01, 0.1484E+01,& - 0.1489E+01, 0.1494E+01, 0.1499E+01, 0.1504E+01,& - 0.1509E+01, 0.1514E+01, 0.1519E+01, 0.1524E+01,& - 0.1529E+01, 0.1534E+01, 0.1540E+01, 0.1545E+01,& - 0.1550E+01, 0.1555E+01, 0.1561E+01, 0.1566E+01,& - 0.1571E+01, 0.1577E+01, 0.1582E+01, 0.1587E+01,& - 0.1593E+01, 0.1598E+01, 0.1604E+01, 0.1609E+01,& - 0.1615E+01, 0.1620E+01, 0.1626E+01, 0.1632E+01,& - 0.1637E+01, 0.1643E+01, 0.1648E+01, 0.1654E+01,& - 0.1660E+01, 0.1666E+01, 0.1671E+01, 0.1677E+01,& - 0.1683E+01, 0.1689E+01, 0.1695E+01, 0.1701E+01,& - 0.1707E+01, 0.1713E+01, 0.1719E+01, 0.1725E+01,& - 0.1731E+01, 0.1737E+01, 0.1743E+01, 0.1749E+01,& - 0.1755E+01, 0.1762E+01, 0.1768E+01, 0.1774E+01,& - 0.1781E+01, 0.1787E+01, 0.1793E+01, 0.1800E+01,& - 0.1806E+01, 0.1813E+01, 0.1819E+01, 0.1826E+01,& - 0.1832E+01, 0.1839E+01, 0.1846E+01, 0.1852E+01,& - 0.1859E+01, 0.1866E+01, 0.1873E+01, 0.1879E+01,& - 0.1886E+01, 0.1893E+01, 0.1900E+01, 0.1907E+01,& - 0.1914E+01, 0.1921E+01, 0.1929E+01, 0.1936E+01,& - 0.1943E+01, 0.1950E+01, 0.1957E+01, 0.1965E+01,& - 0.1972E+01, 0.1980E+01, 0.1987E+01, 0.1995E+01,& - 0.2002E+01, 0.2010E+01, 0.2017E+01, 0.2025E+01,& - 0.2033E+01, 0.2041E+01, 0.2048E+01, 0.2056E+01,& - 0.2064E+01, 0.2072E+01, 0.2080E+01, 0.2088E+01,& - 0.2097E+01, 0.2105E+01, 0.2113E+01, 0.2121E+01,& - 0.2130E+01, 0.2138E+01, 0.2147E+01, 0.2155E+01,& - 0.2164E+01, 0.2172E+01, 0.2181E+01, 0.2190E+01,& - 0.2199E+01, 0.2208E+01, 0.2217E+01, 0.2226E+01,& - 0.2235E+01, 0.2244E+01, 0.2253E+01, 0.2263E+01,& - 0.2272E+01, 0.2281E+01, 0.2291E+01, 0.2301E+01,& - 0.2310E+01, 0.2320E+01, 0.2330E+01, 0.2340E+01,& - 0.2350E+01, 0.2360E+01, 0.2370E+01, 0.2380E+01,& - 0.2390E+01, 0.2401E+01, 0.2411E+01, 0.2422E+01,& - 0.2433E+01, 0.2443E+01, 0.2454E+01, 0.2465E+01,& - 0.2476E+01, 0.2487E+01, 0.2499E+01, 0.2510E+01,& - 0.2521E+01, 0.2533E+01, 0.2545E+01, 0.2556E+01,& - 0.2568E+01, 0.2580E+01, 0.2593E+01, 0.2605E+01,& - 0.2617E+01, 0.2630E+01, 0.2642E+01, 0.2655E+01,& - 0.2668E+01, 0.2681E+01, 0.2694E+01, 0.2708E+01,& - 0.2721E+01, 0.2735E+01, 0.2748E+01, 0.2762E+01,& - 0.2776E+01, 0.2791E+01, 0.2805E+01, 0.2820E+01,& - 0.2834E+01, 0.2849E+01, 0.2864E+01, 0.2880E+01,& - 0.2895E+01, 0.2911E+01, 0.2927E+01, 0.2943E+01,& - 0.2959E+01, 0.2976E+01, 0.2993E+01, 0.3010E+01,& - 0.3027E+01, 0.3045E+01, 0.3062E+01, 0.3080E+01,& - 0.3099E+01, 0.3117E+01, 0.3136E+01, 0.3155E+01,& - 0.3175E+01, 0.3195E+01, 0.3215E+01, 0.3235E+01,& - 0.3256E+01, 0.3278E+01, 0.3299E+01, 0.3321E+01,& - 0.3344E+01, 0.3367E+01, 0.3390E+01, 0.3414E+01,& - 0.3438E+01, 0.3463E+01, 0.3488E+01, 0.3514E+01,& - 0.3541E+01, 0.3568E+01, 0.3595E+01, 0.3624E+01,& - 0.3653E+01, 0.3683E+01, 0.3714E+01, 0.3745E+01,& - 0.3778E+01, 0.3811E+01, 0.3845E+01, 0.3881E+01,& - 0.3917E+01, 0.3955E+01, 0.3995E+01, 0.4035E+01,& - 0.4077E+01, 0.4121E+01, 0.4167E+01, 0.4214E+01,& - 0.4264E+01, 0.4316E+01, 0.4371E+01, 0.4428E+01,& - 0.4489E+01, 0.4554E+01, 0.4623E+01, 0.4696E+01,& - 0.4776E+01, 0.4861E+01, 0.4955E+01, 0.5059E+01,& - 0.5174E+01, 0.5305E+01, 0.5457E+01, 0.5639E+01,& - 0.1000E-04, 0.1000E-04, 0.1008E-03, 0.1916E-03/) - xcw(:, 44) = (/& - 0.1000E-04, 0.1000E-04, 0.1008E-03, 0.1916E-03,& - 0.2824E-03, 0.3733E-03, 0.5549E-03, 0.6457E-03,& - 0.8273E-03, 0.1009E-02, 0.1191E-02, 0.1372E-02,& - 0.1554E-02, 0.1826E-02, 0.2008E-02, 0.2280E-02,& - 0.2462E-02, 0.2734E-02, 0.3007E-02, 0.3279E-02,& - 0.3552E-02, 0.3824E-02, 0.4097E-02, 0.4369E-02,& - 0.4641E-02, 0.5005E-02, 0.5277E-02, 0.5640E-02,& - 0.5913E-02, 0.6276E-02, 0.6639E-02, 0.7003E-02,& - 0.7275E-02, 0.7638E-02, 0.8002E-02, 0.8456E-02,& - 0.8819E-02, 0.9182E-02, 0.9545E-02, 0.9909E-02,& - 0.1036E-01, 0.1073E-01, 0.1118E-01, 0.1154E-01,& - 0.1200E-01, 0.1245E-01, 0.1281E-01, 0.1327E-01,& - 0.1372E-01, 0.1418E-01, 0.1463E-01, 0.1509E-01,& - 0.1554E-01, 0.1599E-01, 0.1645E-01, 0.1699E-01,& - 0.1745E-01, 0.1790E-01, 0.1845E-01, 0.1890E-01,& - 0.1944E-01, 0.1990E-01, 0.2044E-01, 0.2090E-01,& - 0.2144E-01, 0.2199E-01, 0.2253E-01, 0.2299E-01,& - 0.2353E-01, 0.2408E-01, 0.2462E-01, 0.2517E-01,& - 0.2571E-01, 0.2635E-01, 0.2689E-01, 0.2744E-01,& - 0.2798E-01, 0.2862E-01, 0.2916E-01, 0.2971E-01,& - 0.3034E-01, 0.3089E-01, 0.3152E-01, 0.3216E-01,& - 0.3270E-01, 0.3334E-01, 0.3397E-01, 0.3461E-01,& - 0.3515E-01, 0.3579E-01, 0.3643E-01, 0.3706E-01,& - 0.3770E-01, 0.3833E-01, 0.3897E-01, 0.3960E-01,& - 0.4033E-01, 0.4097E-01, 0.4160E-01, 0.4224E-01,& - 0.4296E-01, 0.4360E-01, 0.4433E-01, 0.4496E-01,& - 0.4569E-01, 0.4632E-01, 0.4705E-01, 0.4778E-01,& - 0.4841E-01, 0.4914E-01, 0.4987E-01, 0.5059E-01,& - 0.5123E-01, 0.5196E-01, 0.5268E-01, 0.5341E-01,& - 0.5413E-01, 0.5486E-01, 0.5568E-01, 0.5641E-01,& - 0.5713E-01, 0.5786E-01, 0.5858E-01, 0.5940E-01,& - 0.6013E-01, 0.6086E-01, 0.6167E-01, 0.6240E-01,& - 0.6322E-01, 0.6394E-01, 0.6476E-01, 0.6558E-01,& - 0.6630E-01, 0.6712E-01, 0.6794E-01, 0.6876E-01,& - 0.6948E-01, 0.7030E-01, 0.7112E-01, 0.7193E-01,& - 0.7275E-01, 0.7357E-01, 0.7439E-01, 0.7520E-01,& - 0.7611E-01, 0.7693E-01, 0.7775E-01, 0.7856E-01,& - 0.7947E-01, 0.8029E-01, 0.8111E-01, 0.8201E-01,& - 0.8283E-01, 0.8374E-01, 0.8456E-01, 0.8547E-01,& - 0.8628E-01, 0.8719E-01, 0.8810E-01, 0.8901E-01,& - 0.8982E-01, 0.9073E-01, 0.9164E-01, 0.9255E-01,& - 0.9346E-01, 0.9437E-01, 0.9527E-01, 0.9618E-01,& - 0.9709E-01, 0.9800E-01, 0.9891E-01, 0.9981E-01,& - 0.1008E+00, 0.1017E+00, 0.1026E+00, 0.1035E+00,& - 0.1045E+00, 0.1054E+00, 0.1064E+00, 0.1074E+00,& - 0.1084E+00, 0.1093E+00, 0.1103E+00, 0.1113E+00,& - 0.1122E+00, 0.1132E+00, 0.1142E+00, 0.1152E+00,& - 0.1161E+00, 0.1171E+00, 0.1181E+00, 0.1191E+00,& - 0.1201E+00, 0.1211E+00, 0.1221E+00, 0.1231E+00,& - 0.1241E+00, 0.1252E+00, 0.1262E+00, 0.1271E+00,& - 0.1281E+00, 0.1292E+00, 0.1302E+00, 0.1312E+00,& - 0.1323E+00, 0.1333E+00, 0.1344E+00, 0.1354E+00,& - 0.1365E+00, 0.1376E+00, 0.1386E+00, 0.1397E+00,& - 0.1408E+00, 0.1419E+00, 0.1429E+00, 0.1439E+00,& - 0.1450E+00, 0.1461E+00, 0.1472E+00, 0.1483E+00,& - 0.1494E+00, 0.1505E+00, 0.1516E+00, 0.1527E+00,& - 0.1538E+00, 0.1549E+00, 0.1560E+00, 0.1571E+00,& - 0.1583E+00, 0.1594E+00, 0.1606E+00, 0.1617E+00,& - 0.1628E+00, 0.1639E+00, 0.1651E+00, 0.1662E+00,& - 0.1674E+00, 0.1686E+00, 0.1696E+00, 0.1708E+00,& - 0.1720E+00, 0.1732E+00, 0.1744E+00, 0.1755E+00,& - 0.1766E+00, 0.1778E+00, 0.1790E+00, 0.1803E+00,& - 0.1815E+00, 0.1826E+00, 0.1838E+00, 0.1850E+00,& - 0.1862E+00, 0.1874E+00, 0.1886E+00, 0.1898E+00,& - 0.1911E+00, 0.1923E+00, 0.1935E+00, 0.1947E+00,& - 0.1960E+00, 0.1973E+00, 0.1984E+00, 0.1997E+00,& - 0.2010E+00, 0.2022E+00, 0.2034E+00, 0.2047E+00,& - 0.2060E+00, 0.2072E+00, 0.2085E+00, 0.2098E+00,& - 0.2111E+00, 0.2123E+00, 0.2136E+00, 0.2149E+00,& - 0.2161E+00, 0.2175E+00, 0.2188E+00, 0.2201E+00,& - 0.2213E+00, 0.2227E+00, 0.2240E+00, 0.2253E+00,& - 0.2266E+00, 0.2280E+00, 0.2292E+00, 0.2306E+00,& - 0.2319E+00, 0.2332E+00, 0.2346E+00, 0.2359E+00,& - 0.2373E+00, 0.2387E+00, 0.2400E+00, 0.2413E+00,& - 0.2427E+00, 0.2440E+00, 0.2455E+00, 0.2468E+00,& - 0.2482E+00, 0.2496E+00, 0.2509E+00, 0.2523E+00,& - 0.2537E+00, 0.2551E+00, 0.2566E+00, 0.2579E+00,& - 0.2593E+00, 0.2607E+00, 0.2622E+00, 0.2636E+00,& - 0.2650E+00, 0.2664E+00, 0.2678E+00, 0.2693E+00,& - 0.2707E+00, 0.2722E+00, 0.2735E+00, 0.2750E+00,& - 0.2764E+00, 0.2779E+00, 0.2794E+00, 0.2808E+00,& - 0.2823E+00, 0.2838E+00, 0.2853E+00, 0.2867E+00,& - 0.2883E+00, 0.2897E+00, 0.2912E+00, 0.2927E+00,& - 0.2942E+00, 0.2957E+00, 0.2972E+00, 0.2987E+00,& - 0.3001E+00, 0.3017E+00, 0.3032E+00, 0.3048E+00,& - 0.3062E+00, 0.3078E+00, 0.3093E+00, 0.3109E+00,& - 0.3124E+00, 0.3140E+00, 0.3155E+00, 0.3170E+00,& - 0.3186E+00, 0.3202E+00, 0.3218E+00, 0.3233E+00,& - 0.3249E+00, 0.3265E+00, 0.3280E+00, 0.3297E+00,& - 0.3312E+00, 0.3328E+00, 0.3344E+00, 0.3360E+00,& - 0.3377E+00, 0.3392E+00, 0.3408E+00, 0.3425E+00,& - 0.3441E+00, 0.3457E+00, 0.3474E+00, 0.3490E+00,& - 0.3506E+00, 0.3523E+00, 0.3539E+00, 0.3555E+00,& - 0.3572E+00, 0.3589E+00, 0.3605E+00, 0.3622E+00,& - 0.3639E+00, 0.3655E+00, 0.3673E+00, 0.3689E+00,& - 0.3706E+00, 0.3723E+00, 0.3740E+00, 0.3757E+00,& - 0.3774E+00, 0.3791E+00, 0.3808E+00, 0.3825E+00,& - 0.3842E+00, 0.3860E+00, 0.3877E+00, 0.3894E+00,& - 0.3911E+00, 0.3930E+00, 0.3947E+00, 0.3964E+00,& - 0.3981E+00, 0.4000E+00, 0.4017E+00, 0.4035E+00,& - 0.4052E+00, 0.4070E+00, 0.4088E+00, 0.4106E+00,& - 0.4124E+00, 0.4142E+00, 0.4159E+00, 0.4178E+00,& - 0.4196E+00, 0.4214E+00, 0.4232E+00, 0.4250E+00,& - 0.4268E+00, 0.4287E+00, 0.4306E+00, 0.4324E+00,& - 0.4342E+00, 0.4361E+00, 0.4379E+00, 0.4398E+00,& - 0.4416E+00, 0.4435E+00, 0.4454E+00, 0.4473E+00,& - 0.4492E+00, 0.4511E+00, 0.4529E+00, 0.4548E+00,& - 0.4567E+00, 0.4586E+00, 0.4605E+00, 0.4624E+00,& - 0.4643E+00, 0.4663E+00, 0.4682E+00, 0.4702E+00,& - 0.4721E+00, 0.4741E+00, 0.4760E+00, 0.4780E+00,& - 0.4799E+00, 0.4819E+00, 0.4839E+00, 0.4858E+00,& - 0.4878E+00, 0.4898E+00, 0.4918E+00, 0.4938E+00,& - 0.4958E+00, 0.4978E+00, 0.4998E+00, 0.5018E+00,& - 0.5038E+00, 0.5058E+00, 0.5078E+00, 0.5098E+00,& - 0.5119E+00, 0.5139E+00, 0.5160E+00, 0.5180E+00,& - 0.5201E+00, 0.5222E+00, 0.5243E+00, 0.5263E+00,& - 0.5284E+00, 0.5305E+00, 0.5325E+00, 0.5346E+00,& - 0.5367E+00, 0.5389E+00, 0.5410E+00, 0.5431E+00,& - 0.5452E+00, 0.5473E+00, 0.5494E+00, 0.5516E+00,& - 0.5537E+00, 0.5559E+00, 0.5581E+00, 0.5602E+00,& - 0.5623E+00, 0.5645E+00, 0.5667E+00, 0.5689E+00,& - 0.5710E+00, 0.5732E+00, 0.5755E+00, 0.5777E+00,& - 0.5799E+00, 0.5820E+00, 0.5843E+00, 0.5865E+00,& - 0.5888E+00, 0.5909E+00, 0.5932E+00, 0.5955E+00,& - 0.5977E+00, 0.6000E+00, 0.6022E+00, 0.6045E+00,& - 0.6068E+00, 0.6091E+00, 0.6114E+00, 0.6136E+00,& - 0.6159E+00, 0.6183E+00, 0.6205E+00, 0.6229E+00,& - 0.6252E+00, 0.6275E+00, 0.6299E+00, 0.6322E+00,& - 0.6345E+00, 0.6369E+00, 0.6392E+00, 0.6416E+00,& - 0.6440E+00, 0.6463E+00, 0.6488E+00, 0.6511E+00,& - 0.6535E+00, 0.6560E+00, 0.6583E+00, 0.6608E+00,& - 0.6631E+00, 0.6656E+00, 0.6680E+00, 0.6705E+00,& - 0.6729E+00, 0.6754E+00, 0.6778E+00, 0.6803E+00,& - 0.6827E+00, 0.6852E+00, 0.6877E+00, 0.6902E+00,& - 0.6927E+00, 0.6952E+00, 0.6977E+00, 0.7002E+00,& - 0.7027E+00, 0.7053E+00, 0.7078E+00, 0.7104E+00,& - 0.7129E+00, 0.7154E+00, 0.7180E+00, 0.7206E+00,& - 0.7232E+00, 0.7258E+00, 0.7283E+00, 0.7310E+00,& - 0.7335E+00, 0.7361E+00, 0.7388E+00, 0.7414E+00,& - 0.7440E+00, 0.7467E+00, 0.7493E+00, 0.7519E+00,& - 0.7546E+00, 0.7573E+00, 0.7599E+00, 0.7627E+00,& - 0.7653E+00, 0.7680E+00, 0.7707E+00, 0.7735E+00,& - 0.7762E+00, 0.7789E+00, 0.7816E+00, 0.7844E+00,& - 0.7871E+00, 0.7899E+00, 0.7926E+00, 0.7954E+00,& - 0.7982E+00, 0.8010E+00, 0.8038E+00, 0.8065E+00,& - 0.8093E+00, 0.8122E+00, 0.8150E+00, 0.8179E+00,& - 0.8207E+00, 0.8235E+00, 0.8264E+00, 0.8292E+00,& - 0.8321E+00, 0.8350E+00, 0.8379E+00, 0.8408E+00,& - 0.8437E+00, 0.8466E+00, 0.8496E+00, 0.8525E+00,& - 0.8554E+00, 0.8584E+00, 0.8613E+00, 0.8643E+00,& - 0.8672E+00, 0.8702E+00, 0.8732E+00, 0.8762E+00,& - 0.8792E+00, 0.8822E+00, 0.8853E+00, 0.8883E+00,& - 0.8913E+00, 0.8943E+00, 0.8974E+00, 0.9005E+00,& - 0.9035E+00, 0.9066E+00, 0.9097E+00, 0.9129E+00,& - 0.9160E+00, 0.9190E+00, 0.9222E+00, 0.9253E+00,& - 0.9285E+00, 0.9317E+00, 0.9348E+00, 0.9379E+00,& - 0.9411E+00, 0.9444E+00, 0.9476E+00, 0.9507E+00,& - 0.9540E+00, 0.9572E+00, 0.9605E+00, 0.9637E+00,& - 0.9670E+00, 0.9703E+00, 0.9735E+00, 0.9768E+00,& - 0.9801E+00, 0.9834E+00, 0.9868E+00, 0.9901E+00,& - 0.9934E+00, 0.9968E+00, 0.1000E+01, 0.1003E+01,& - 0.1007E+01, 0.1010E+01, 0.1014E+01, 0.1017E+01,& - 0.1020E+01, 0.1024E+01, 0.1027E+01, 0.1031E+01,& - 0.1034E+01, 0.1038E+01, 0.1041E+01, 0.1045E+01,& - 0.1048E+01, 0.1052E+01, 0.1055E+01, 0.1059E+01,& - 0.1062E+01, 0.1066E+01, 0.1070E+01, 0.1073E+01,& - 0.1077E+01, 0.1080E+01, 0.1084E+01, 0.1088E+01,& - 0.1091E+01, 0.1095E+01, 0.1099E+01, 0.1102E+01,& - 0.1106E+01, 0.1110E+01, 0.1113E+01, 0.1117E+01,& - 0.1121E+01, 0.1125E+01, 0.1128E+01, 0.1132E+01,& - 0.1136E+01, 0.1140E+01, 0.1144E+01, 0.1147E+01,& - 0.1151E+01, 0.1155E+01, 0.1159E+01, 0.1163E+01,& - 0.1167E+01, 0.1171E+01, 0.1175E+01, 0.1179E+01,& - 0.1182E+01, 0.1186E+01, 0.1190E+01, 0.1194E+01,& - 0.1198E+01, 0.1202E+01, 0.1206E+01, 0.1211E+01,& - 0.1215E+01, 0.1219E+01, 0.1223E+01, 0.1227E+01,& - 0.1231E+01, 0.1235E+01, 0.1239E+01, 0.1243E+01,& - 0.1248E+01, 0.1252E+01, 0.1256E+01, 0.1260E+01,& - 0.1264E+01, 0.1269E+01, 0.1273E+01, 0.1277E+01,& - 0.1282E+01, 0.1286E+01, 0.1290E+01, 0.1295E+01,& - 0.1299E+01, 0.1303E+01, 0.1308E+01, 0.1312E+01,& - 0.1317E+01, 0.1321E+01, 0.1325E+01, 0.1330E+01,& - 0.1334E+01, 0.1339E+01, 0.1343E+01, 0.1348E+01,& - 0.1352E+01, 0.1357E+01, 0.1362E+01, 0.1366E+01,& - 0.1371E+01, 0.1376E+01, 0.1380E+01, 0.1385E+01,& - 0.1390E+01, 0.1394E+01, 0.1399E+01, 0.1404E+01,& - 0.1409E+01, 0.1413E+01, 0.1418E+01, 0.1423E+01,& - 0.1428E+01, 0.1433E+01, 0.1438E+01, 0.1443E+01,& - 0.1448E+01, 0.1453E+01, 0.1457E+01, 0.1462E+01,& - 0.1468E+01, 0.1473E+01, 0.1478E+01, 0.1483E+01,& - 0.1488E+01, 0.1493E+01, 0.1498E+01, 0.1503E+01,& - 0.1508E+01, 0.1514E+01, 0.1519E+01, 0.1524E+01,& - 0.1529E+01, 0.1535E+01, 0.1540E+01, 0.1545E+01,& - 0.1551E+01, 0.1556E+01, 0.1562E+01, 0.1567E+01,& - 0.1572E+01, 0.1578E+01, 0.1583E+01, 0.1589E+01,& - 0.1595E+01, 0.1600E+01, 0.1606E+01, 0.1611E+01,& - 0.1617E+01, 0.1623E+01, 0.1628E+01, 0.1634E+01,& - 0.1640E+01, 0.1646E+01, 0.1652E+01, 0.1657E+01,& - 0.1663E+01, 0.1669E+01, 0.1675E+01, 0.1681E+01,& - 0.1687E+01, 0.1693E+01, 0.1699E+01, 0.1705E+01,& - 0.1711E+01, 0.1718E+01, 0.1724E+01, 0.1730E+01,& - 0.1736E+01, 0.1742E+01, 0.1749E+01, 0.1755E+01,& - 0.1761E+01, 0.1768E+01, 0.1774E+01, 0.1781E+01,& - 0.1787E+01, 0.1794E+01, 0.1800E+01, 0.1807E+01,& - 0.1813E+01, 0.1820E+01, 0.1827E+01, 0.1834E+01,& - 0.1840E+01, 0.1847E+01, 0.1854E+01, 0.1861E+01,& - 0.1868E+01, 0.1875E+01, 0.1882E+01, 0.1889E+01,& - 0.1896E+01, 0.1903E+01, 0.1910E+01, 0.1917E+01,& - 0.1925E+01, 0.1932E+01, 0.1939E+01, 0.1947E+01,& - 0.1954E+01, 0.1961E+01, 0.1969E+01, 0.1976E+01,& - 0.1984E+01, 0.1992E+01, 0.1999E+01, 0.2007E+01,& - 0.2015E+01, 0.2023E+01, 0.2031E+01, 0.2038E+01,& - 0.2046E+01, 0.2054E+01, 0.2062E+01, 0.2071E+01,& - 0.2079E+01, 0.2087E+01, 0.2095E+01, 0.2104E+01,& - 0.2112E+01, 0.2120E+01, 0.2129E+01, 0.2137E+01,& - 0.2146E+01, 0.2155E+01, 0.2164E+01, 0.2172E+01,& - 0.2181E+01, 0.2190E+01, 0.2199E+01, 0.2208E+01,& - 0.2217E+01, 0.2226E+01, 0.2236E+01, 0.2245E+01,& - 0.2254E+01, 0.2264E+01, 0.2273E+01, 0.2283E+01,& - 0.2293E+01, 0.2302E+01, 0.2312E+01, 0.2322E+01,& - 0.2332E+01, 0.2342E+01, 0.2352E+01, 0.2362E+01,& - 0.2373E+01, 0.2383E+01, 0.2393E+01, 0.2404E+01,& - 0.2415E+01, 0.2425E+01, 0.2436E+01, 0.2447E+01,& - 0.2458E+01, 0.2469E+01, 0.2480E+01, 0.2492E+01,& - 0.2503E+01, 0.2515E+01, 0.2526E+01, 0.2538E+01,& - 0.2550E+01, 0.2562E+01, 0.2574E+01, 0.2586E+01,& - 0.2598E+01, 0.2611E+01, 0.2623E+01, 0.2636E+01,& - 0.2648E+01, 0.2661E+01, 0.2674E+01, 0.2688E+01,& - 0.2701E+01, 0.2714E+01, 0.2728E+01, 0.2742E+01,& - 0.2756E+01, 0.2770E+01, 0.2784E+01, 0.2798E+01,& - 0.2813E+01, 0.2827E+01, 0.2842E+01, 0.2857E+01,& - 0.2873E+01, 0.2888E+01, 0.2904E+01, 0.2919E+01,& - 0.2936E+01, 0.2952E+01, 0.2968E+01, 0.2985E+01,& - 0.3002E+01, 0.3019E+01, 0.3036E+01, 0.3054E+01,& - 0.3072E+01, 0.3090E+01, 0.3108E+01, 0.3127E+01,& - 0.3146E+01, 0.3165E+01, 0.3184E+01, 0.3204E+01,& - 0.3225E+01, 0.3245E+01, 0.3266E+01, 0.3287E+01,& - 0.3309E+01, 0.3331E+01, 0.3353E+01, 0.3376E+01,& - 0.3399E+01, 0.3423E+01, 0.3447E+01, 0.3471E+01,& - 0.3497E+01, 0.3522E+01, 0.3549E+01, 0.3575E+01,& - 0.3603E+01, 0.3631E+01, 0.3660E+01, 0.3689E+01,& - 0.3719E+01, 0.3750E+01, 0.3782E+01, 0.3814E+01,& - 0.3848E+01, 0.3883E+01, 0.3918E+01, 0.3955E+01,& - 0.3993E+01, 0.4032E+01, 0.4073E+01, 0.4115E+01,& - 0.4158E+01, 0.4204E+01, 0.4251E+01, 0.4300E+01,& - 0.4351E+01, 0.4405E+01, 0.4462E+01, 0.4522E+01,& - 0.4585E+01, 0.4652E+01, 0.4723E+01, 0.4799E+01,& - 0.4882E+01, 0.4970E+01, 0.5068E+01, 0.5175E+01,& - 0.5295E+01, 0.5431E+01, 0.5588E+01, 0.5776E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1031E-03/) - xcw(:, 45) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1031E-03,& - 0.1962E-03, 0.2892E-03, 0.3823E-03, 0.4754E-03,& - 0.6615E-03, 0.7546E-03, 0.9408E-03, 0.1034E-02,& - 0.1220E-02, 0.1406E-02, 0.1592E-02, 0.1778E-02,& - 0.1965E-02, 0.2151E-02, 0.2337E-02, 0.2616E-02,& - 0.2802E-02, 0.3082E-02, 0.3268E-02, 0.3547E-02,& - 0.3826E-02, 0.4105E-02, 0.4292E-02, 0.4571E-02,& - 0.4850E-02, 0.5129E-02, 0.5502E-02, 0.5781E-02,& - 0.6060E-02, 0.6339E-02, 0.6712E-02, 0.6991E-02,& - 0.7363E-02, 0.7642E-02, 0.8015E-02, 0.8294E-02,& - 0.8666E-02, 0.9039E-02, 0.9411E-02, 0.9783E-02,& - 0.1016E-01, 0.1053E-01, 0.1090E-01, 0.1127E-01,& - 0.1164E-01, 0.1202E-01, 0.1248E-01, 0.1285E-01,& - 0.1323E-01, 0.1369E-01, 0.1406E-01, 0.1453E-01,& - 0.1490E-01, 0.1537E-01, 0.1583E-01, 0.1630E-01,& - 0.1667E-01, 0.1714E-01, 0.1760E-01, 0.1807E-01,& - 0.1853E-01, 0.1900E-01, 0.1946E-01, 0.1993E-01,& - 0.2039E-01, 0.2095E-01, 0.2142E-01, 0.2188E-01,& - 0.2244E-01, 0.2291E-01, 0.2347E-01, 0.2393E-01,& - 0.2449E-01, 0.2496E-01, 0.2551E-01, 0.2607E-01,& - 0.2654E-01, 0.2710E-01, 0.2765E-01, 0.2821E-01,& - 0.2877E-01, 0.2933E-01, 0.2989E-01, 0.3045E-01,& - 0.3101E-01, 0.3156E-01, 0.3212E-01, 0.3277E-01,& - 0.3333E-01, 0.3389E-01, 0.3454E-01, 0.3510E-01,& - 0.3566E-01, 0.3631E-01, 0.3687E-01, 0.3752E-01,& - 0.3817E-01, 0.3873E-01, 0.3938E-01, 0.4003E-01,& - 0.4069E-01, 0.4124E-01, 0.4190E-01, 0.4255E-01,& - 0.4320E-01, 0.4385E-01, 0.4450E-01, 0.4515E-01,& - 0.4580E-01, 0.4655E-01, 0.4720E-01, 0.4785E-01,& - 0.4850E-01, 0.4925E-01, 0.4990E-01, 0.5055E-01,& - 0.5130E-01, 0.5195E-01, 0.5269E-01, 0.5344E-01,& - 0.5409E-01, 0.5483E-01, 0.5548E-01, 0.5623E-01,& - 0.5697E-01, 0.5772E-01, 0.5846E-01, 0.5921E-01,& - 0.5986E-01, 0.6060E-01, 0.6135E-01, 0.6219E-01,& - 0.6293E-01, 0.6368E-01, 0.6442E-01, 0.6516E-01,& - 0.6591E-01, 0.6675E-01, 0.6749E-01, 0.6824E-01,& - 0.6907E-01, 0.6982E-01, 0.7066E-01, 0.7140E-01,& - 0.7224E-01, 0.7298E-01, 0.7382E-01, 0.7466E-01,& - 0.7540E-01, 0.7624E-01, 0.7708E-01, 0.7792E-01,& - 0.7875E-01, 0.7959E-01, 0.8043E-01, 0.8127E-01,& - 0.8211E-01, 0.8294E-01, 0.8378E-01, 0.8462E-01,& - 0.8546E-01, 0.8629E-01, 0.8722E-01, 0.8806E-01,& - 0.8890E-01, 0.8983E-01, 0.9067E-01, 0.9160E-01,& - 0.9244E-01, 0.9337E-01, 0.9421E-01, 0.9514E-01,& - 0.9597E-01, 0.9690E-01, 0.9784E-01, 0.9877E-01,& - 0.9960E-01, 0.1005E+00, 0.1015E+00, 0.1024E+00,& - 0.1033E+00, 0.1043E+00, 0.1052E+00, 0.1061E+00,& - 0.1071E+00, 0.1080E+00, 0.1089E+00, 0.1099E+00,& - 0.1109E+00, 0.1118E+00, 0.1128E+00, 0.1138E+00,& - 0.1147E+00, 0.1157E+00, 0.1166E+00, 0.1177E+00,& - 0.1186E+00, 0.1196E+00, 0.1206E+00, 0.1216E+00,& - 0.1226E+00, 0.1236E+00, 0.1246E+00, 0.1256E+00,& - 0.1266E+00, 0.1276E+00, 0.1286E+00, 0.1297E+00,& - 0.1307E+00, 0.1317E+00, 0.1327E+00, 0.1338E+00,& - 0.1349E+00, 0.1359E+00, 0.1369E+00, 0.1380E+00,& - 0.1391E+00, 0.1401E+00, 0.1411E+00, 0.1422E+00,& - 0.1433E+00, 0.1444E+00, 0.1454E+00, 0.1465E+00,& - 0.1476E+00, 0.1487E+00, 0.1498E+00, 0.1509E+00,& - 0.1520E+00, 0.1530E+00, 0.1541E+00, 0.1553E+00,& - 0.1564E+00, 0.1575E+00, 0.1586E+00, 0.1597E+00,& - 0.1608E+00, 0.1620E+00, 0.1632E+00, 0.1643E+00,& - 0.1654E+00, 0.1665E+00, 0.1677E+00, 0.1689E+00,& - 0.1701E+00, 0.1712E+00, 0.1723E+00, 0.1735E+00,& - 0.1747E+00, 0.1758E+00, 0.1770E+00, 0.1782E+00,& - 0.1794E+00, 0.1806E+00, 0.1818E+00, 0.1830E+00,& - 0.1841E+00, 0.1853E+00, 0.1865E+00, 0.1877E+00,& - 0.1890E+00, 0.1902E+00, 0.1915E+00, 0.1927E+00,& - 0.1939E+00, 0.1951E+00, 0.1963E+00, 0.1976E+00,& - 0.1988E+00, 0.2000E+00, 0.2013E+00, 0.2025E+00,& - 0.2039E+00, 0.2051E+00, 0.2064E+00, 0.2077E+00,& - 0.2089E+00, 0.2102E+00, 0.2115E+00, 0.2128E+00,& - 0.2140E+00, 0.2153E+00, 0.2166E+00, 0.2179E+00,& - 0.2192E+00, 0.2205E+00, 0.2218E+00, 0.2231E+00,& - 0.2244E+00, 0.2258E+00, 0.2271E+00, 0.2284E+00,& - 0.2297E+00, 0.2311E+00, 0.2324E+00, 0.2338E+00,& - 0.2351E+00, 0.2365E+00, 0.2378E+00, 0.2392E+00,& - 0.2405E+00, 0.2419E+00, 0.2433E+00, 0.2447E+00,& - 0.2460E+00, 0.2474E+00, 0.2488E+00, 0.2502E+00,& - 0.2516E+00, 0.2530E+00, 0.2544E+00, 0.2558E+00,& - 0.2572E+00, 0.2587E+00, 0.2601E+00, 0.2615E+00,& - 0.2629E+00, 0.2644E+00, 0.2657E+00, 0.2672E+00,& - 0.2686E+00, 0.2701E+00, 0.2715E+00, 0.2730E+00,& - 0.2744E+00, 0.2759E+00, 0.2774E+00, 0.2789E+00,& - 0.2803E+00, 0.2818E+00, 0.2832E+00, 0.2847E+00,& - 0.2862E+00, 0.2877E+00, 0.2892E+00, 0.2907E+00,& - 0.2923E+00, 0.2938E+00, 0.2953E+00, 0.2967E+00,& - 0.2983E+00, 0.2998E+00, 0.3013E+00, 0.3029E+00,& - 0.3044E+00, 0.3060E+00, 0.3075E+00, 0.3090E+00,& - 0.3106E+00, 0.3122E+00, 0.3138E+00, 0.3153E+00,& - 0.3168E+00, 0.3184E+00, 0.3200E+00, 0.3216E+00,& - 0.3232E+00, 0.3248E+00, 0.3263E+00, 0.3280E+00,& - 0.3296E+00, 0.3312E+00, 0.3328E+00, 0.3344E+00,& - 0.3360E+00, 0.3377E+00, 0.3393E+00, 0.3410E+00,& - 0.3425E+00, 0.3442E+00, 0.3459E+00, 0.3475E+00,& - 0.3491E+00, 0.3508E+00, 0.3525E+00, 0.3542E+00,& - 0.3558E+00, 0.3575E+00, 0.3592E+00, 0.3609E+00,& - 0.3626E+00, 0.3642E+00, 0.3660E+00, 0.3677E+00,& - 0.3693E+00, 0.3711E+00, 0.3728E+00, 0.3746E+00,& - 0.3762E+00, 0.3780E+00, 0.3798E+00, 0.3814E+00,& - 0.3832E+00, 0.3850E+00, 0.3868E+00, 0.3884E+00,& - 0.3902E+00, 0.3920E+00, 0.3937E+00, 0.3956E+00,& - 0.3974E+00, 0.3991E+00, 0.4009E+00, 0.4027E+00,& - 0.4045E+00, 0.4063E+00, 0.4082E+00, 0.4099E+00,& - 0.4118E+00, 0.4136E+00, 0.4154E+00, 0.4172E+00,& - 0.4190E+00, 0.4209E+00, 0.4228E+00, 0.4246E+00,& - 0.4265E+00, 0.4284E+00, 0.4302E+00, 0.4321E+00,& - 0.4339E+00, 0.4358E+00, 0.4377E+00, 0.4396E+00,& - 0.4415E+00, 0.4433E+00, 0.4453E+00, 0.4472E+00,& - 0.4491E+00, 0.4511E+00, 0.4529E+00, 0.4549E+00,& - 0.4568E+00, 0.4588E+00, 0.4607E+00, 0.4627E+00,& - 0.4647E+00, 0.4666E+00, 0.4686E+00, 0.4705E+00,& - 0.4725E+00, 0.4744E+00, 0.4765E+00, 0.4784E+00,& - 0.4805E+00, 0.4824E+00, 0.4845E+00, 0.4864E+00,& - 0.4885E+00, 0.4905E+00, 0.4925E+00, 0.4945E+00,& - 0.4966E+00, 0.4986E+00, 0.5007E+00, 0.5027E+00,& - 0.5048E+00, 0.5068E+00, 0.5090E+00, 0.5110E+00,& - 0.5131E+00, 0.5152E+00, 0.5172E+00, 0.5194E+00,& - 0.5214E+00, 0.5236E+00, 0.5256E+00, 0.5278E+00,& - 0.5299E+00, 0.5320E+00, 0.5342E+00, 0.5363E+00,& - 0.5385E+00, 0.5406E+00, 0.5428E+00, 0.5449E+00,& - 0.5471E+00, 0.5493E+00, 0.5514E+00, 0.5536E+00,& - 0.5558E+00, 0.5580E+00, 0.5602E+00, 0.5624E+00,& - 0.5646E+00, 0.5669E+00, 0.5691E+00, 0.5713E+00,& - 0.5736E+00, 0.5758E+00, 0.5780E+00, 0.5803E+00,& - 0.5826E+00, 0.5848E+00, 0.5871E+00, 0.5894E+00,& - 0.5917E+00, 0.5939E+00, 0.5963E+00, 0.5986E+00,& - 0.6008E+00, 0.6032E+00, 0.6055E+00, 0.6078E+00,& - 0.6101E+00, 0.6125E+00, 0.6149E+00, 0.6172E+00,& - 0.6195E+00, 0.6220E+00, 0.6243E+00, 0.6267E+00,& - 0.6290E+00, 0.6315E+00, 0.6339E+00, 0.6362E+00,& - 0.6386E+00, 0.6410E+00, 0.6435E+00, 0.6459E+00,& - 0.6484E+00, 0.6508E+00, 0.6532E+00, 0.6557E+00,& - 0.6582E+00, 0.6606E+00, 0.6631E+00, 0.6656E+00,& - 0.6680E+00, 0.6705E+00, 0.6731E+00, 0.6756E+00,& - 0.6781E+00, 0.6806E+00, 0.6831E+00, 0.6856E+00,& - 0.6882E+00, 0.6907E+00, 0.6934E+00, 0.6959E+00,& - 0.6985E+00, 0.7010E+00, 0.7036E+00, 0.7062E+00,& - 0.7088E+00, 0.7114E+00, 0.7140E+00, 0.7166E+00,& - 0.7192E+00, 0.7219E+00, 0.7245E+00, 0.7271E+00,& - 0.7298E+00, 0.7325E+00, 0.7351E+00, 0.7378E+00,& - 0.7405E+00, 0.7432E+00, 0.7459E+00, 0.7486E+00,& - 0.7513E+00, 0.7540E+00, 0.7568E+00, 0.7595E+00,& - 0.7623E+00, 0.7650E+00, 0.7678E+00, 0.7706E+00,& - 0.7733E+00, 0.7761E+00, 0.7789E+00, 0.7817E+00,& - 0.7846E+00, 0.7874E+00, 0.7902E+00, 0.7930E+00,& - 0.7958E+00, 0.7987E+00, 0.8015E+00, 0.8044E+00,& - 0.8073E+00, 0.8102E+00, 0.8131E+00, 0.8159E+00,& - 0.8188E+00, 0.8218E+00, 0.8247E+00, 0.8277E+00,& - 0.8305E+00, 0.8335E+00, 0.8365E+00, 0.8394E+00,& - 0.8424E+00, 0.8453E+00, 0.8483E+00, 0.8514E+00,& - 0.8544E+00, 0.8574E+00, 0.8604E+00, 0.8635E+00,& - 0.8665E+00, 0.8695E+00, 0.8726E+00, 0.8757E+00,& - 0.8788E+00, 0.8818E+00, 0.8849E+00, 0.8881E+00,& - 0.8911E+00, 0.8943E+00, 0.8975E+00, 0.9005E+00,& - 0.9037E+00, 0.9069E+00, 0.9100E+00, 0.9132E+00,& - 0.9165E+00, 0.9196E+00, 0.9229E+00, 0.9260E+00,& - 0.9293E+00, 0.9326E+00, 0.9358E+00, 0.9391E+00,& - 0.9423E+00, 0.9456E+00, 0.9489E+00, 0.9522E+00,& - 0.9555E+00, 0.9588E+00, 0.9622E+00, 0.9655E+00,& - 0.9689E+00, 0.9722E+00, 0.9756E+00, 0.9789E+00,& - 0.9824E+00, 0.9857E+00, 0.9892E+00, 0.9926E+00,& - 0.9960E+00, 0.9995E+00, 0.1003E+01, 0.1006E+01,& - 0.1010E+01, 0.1013E+01, 0.1017E+01, 0.1020E+01,& - 0.1024E+01, 0.1027E+01, 0.1031E+01, 0.1034E+01,& - 0.1038E+01, 0.1042E+01, 0.1045E+01, 0.1049E+01,& - 0.1052E+01, 0.1056E+01, 0.1060E+01, 0.1063E+01,& - 0.1067E+01, 0.1071E+01, 0.1074E+01, 0.1078E+01,& - 0.1082E+01, 0.1086E+01, 0.1089E+01, 0.1093E+01,& - 0.1097E+01, 0.1101E+01, 0.1104E+01, 0.1108E+01,& - 0.1112E+01, 0.1116E+01, 0.1120E+01, 0.1123E+01,& - 0.1127E+01, 0.1131E+01, 0.1135E+01, 0.1139E+01,& - 0.1143E+01, 0.1147E+01, 0.1151E+01, 0.1155E+01,& - 0.1159E+01, 0.1163E+01, 0.1167E+01, 0.1171E+01,& - 0.1175E+01, 0.1179E+01, 0.1183E+01, 0.1187E+01,& - 0.1191E+01, 0.1195E+01, 0.1199E+01, 0.1203E+01,& - 0.1207E+01, 0.1212E+01, 0.1216E+01, 0.1220E+01,& - 0.1224E+01, 0.1228E+01, 0.1233E+01, 0.1237E+01,& - 0.1241E+01, 0.1245E+01, 0.1250E+01, 0.1254E+01,& - 0.1258E+01, 0.1263E+01, 0.1267E+01, 0.1271E+01,& - 0.1276E+01, 0.1280E+01, 0.1284E+01, 0.1289E+01,& - 0.1293E+01, 0.1298E+01, 0.1302E+01, 0.1307E+01,& - 0.1311E+01, 0.1316E+01, 0.1320E+01, 0.1325E+01,& - 0.1330E+01, 0.1334E+01, 0.1339E+01, 0.1343E+01,& - 0.1348E+01, 0.1353E+01, 0.1357E+01, 0.1362E+01,& - 0.1367E+01, 0.1372E+01, 0.1376E+01, 0.1381E+01,& - 0.1386E+01, 0.1391E+01, 0.1396E+01, 0.1401E+01,& - 0.1405E+01, 0.1410E+01, 0.1415E+01, 0.1420E+01,& - 0.1425E+01, 0.1430E+01, 0.1435E+01, 0.1440E+01,& - 0.1445E+01, 0.1450E+01, 0.1455E+01, 0.1461E+01,& - 0.1466E+01, 0.1471E+01, 0.1476E+01, 0.1481E+01,& - 0.1486E+01, 0.1492E+01, 0.1497E+01, 0.1502E+01,& - 0.1508E+01, 0.1513E+01, 0.1518E+01, 0.1524E+01,& - 0.1529E+01, 0.1534E+01, 0.1540E+01, 0.1545E+01,& - 0.1551E+01, 0.1556E+01, 0.1562E+01, 0.1567E+01,& - 0.1573E+01, 0.1579E+01, 0.1584E+01, 0.1590E+01,& - 0.1596E+01, 0.1601E+01, 0.1607E+01, 0.1613E+01,& - 0.1619E+01, 0.1625E+01, 0.1630E+01, 0.1636E+01,& - 0.1642E+01, 0.1648E+01, 0.1654E+01, 0.1660E+01,& - 0.1666E+01, 0.1672E+01, 0.1678E+01, 0.1684E+01,& - 0.1691E+01, 0.1697E+01, 0.1703E+01, 0.1709E+01,& - 0.1715E+01, 0.1722E+01, 0.1728E+01, 0.1734E+01,& - 0.1741E+01, 0.1747E+01, 0.1754E+01, 0.1760E+01,& - 0.1767E+01, 0.1773E+01, 0.1780E+01, 0.1786E+01,& - 0.1793E+01, 0.1800E+01, 0.1807E+01, 0.1813E+01,& - 0.1820E+01, 0.1827E+01, 0.1834E+01, 0.1841E+01,& - 0.1848E+01, 0.1855E+01, 0.1862E+01, 0.1869E+01,& - 0.1876E+01, 0.1883E+01, 0.1890E+01, 0.1897E+01,& - 0.1905E+01, 0.1912E+01, 0.1919E+01, 0.1927E+01,& - 0.1934E+01, 0.1942E+01, 0.1949E+01, 0.1957E+01,& - 0.1964E+01, 0.1972E+01, 0.1980E+01, 0.1987E+01,& - 0.1995E+01, 0.2003E+01, 0.2011E+01, 0.2019E+01,& - 0.2027E+01, 0.2035E+01, 0.2043E+01, 0.2051E+01,& - 0.2059E+01, 0.2068E+01, 0.2076E+01, 0.2084E+01,& - 0.2093E+01, 0.2101E+01, 0.2110E+01, 0.2118E+01,& - 0.2127E+01, 0.2136E+01, 0.2144E+01, 0.2153E+01,& - 0.2162E+01, 0.2171E+01, 0.2180E+01, 0.2189E+01,& - 0.2198E+01, 0.2207E+01, 0.2216E+01, 0.2226E+01,& - 0.2235E+01, 0.2245E+01, 0.2254E+01, 0.2264E+01,& - 0.2273E+01, 0.2283E+01, 0.2293E+01, 0.2303E+01,& - 0.2313E+01, 0.2323E+01, 0.2333E+01, 0.2343E+01,& - 0.2353E+01, 0.2364E+01, 0.2374E+01, 0.2384E+01,& - 0.2395E+01, 0.2406E+01, 0.2417E+01, 0.2427E+01,& - 0.2438E+01, 0.2449E+01, 0.2461E+01, 0.2472E+01,& - 0.2483E+01, 0.2495E+01, 0.2506E+01, 0.2518E+01,& - 0.2529E+01, 0.2541E+01, 0.2553E+01, 0.2565E+01,& - 0.2578E+01, 0.2590E+01, 0.2602E+01, 0.2615E+01,& - 0.2627E+01, 0.2640E+01, 0.2653E+01, 0.2666E+01,& - 0.2679E+01, 0.2693E+01, 0.2706E+01, 0.2720E+01,& - 0.2733E+01, 0.2747E+01, 0.2761E+01, 0.2776E+01,& - 0.2790E+01, 0.2804E+01, 0.2819E+01, 0.2834E+01,& - 0.2849E+01, 0.2864E+01, 0.2879E+01, 0.2895E+01,& - 0.2911E+01, 0.2927E+01, 0.2943E+01, 0.2959E+01,& - 0.2976E+01, 0.2992E+01, 0.3009E+01, 0.3026E+01,& - 0.3044E+01, 0.3062E+01, 0.3080E+01, 0.3098E+01,& - 0.3116E+01, 0.3135E+01, 0.3154E+01, 0.3173E+01,& - 0.3193E+01, 0.3212E+01, 0.3233E+01, 0.3253E+01,& - 0.3274E+01, 0.3295E+01, 0.3317E+01, 0.3339E+01,& - 0.3361E+01, 0.3384E+01, 0.3407E+01, 0.3430E+01,& - 0.3454E+01, 0.3479E+01, 0.3504E+01, 0.3529E+01,& - 0.3555E+01, 0.3582E+01, 0.3609E+01, 0.3637E+01,& - 0.3665E+01, 0.3694E+01, 0.3724E+01, 0.3754E+01,& - 0.3785E+01, 0.3817E+01, 0.3850E+01, 0.3884E+01,& - 0.3919E+01, 0.3954E+01, 0.3991E+01, 0.4029E+01,& - 0.4068E+01, 0.4109E+01, 0.4151E+01, 0.4195E+01,& - 0.4240E+01, 0.4287E+01, 0.4335E+01, 0.4386E+01,& - 0.4440E+01, 0.4496E+01, 0.4554E+01, 0.4616E+01,& - 0.4681E+01, 0.4751E+01, 0.4824E+01, 0.4903E+01,& - 0.4988E+01, 0.5081E+01, 0.5181E+01, 0.5292E+01,& - 0.5416E+01, 0.5557E+01, 0.5720E+01, 0.5915E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 46) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1054E-03, 0.2008E-03, 0.2962E-03, 0.3916E-03,& - 0.4870E-03, 0.5823E-03, 0.6777E-03, 0.7731E-03,& - 0.9639E-03, 0.1059E-02, 0.1250E-02, 0.1345E-02,& - 0.1536E-02, 0.1727E-02, 0.1918E-02, 0.2109E-02,& - 0.2299E-02, 0.2490E-02, 0.2681E-02, 0.2872E-02,& - 0.3063E-02, 0.3253E-02, 0.3539E-02, 0.3730E-02,& - 0.4016E-02, 0.4207E-02, 0.4493E-02, 0.4684E-02,& - 0.4970E-02, 0.5257E-02, 0.5543E-02, 0.5829E-02,& - 0.6115E-02, 0.6401E-02, 0.6687E-02, 0.6974E-02,& - 0.7260E-02, 0.7546E-02, 0.7832E-02, 0.8214E-02,& - 0.8500E-02, 0.8881E-02, 0.9168E-02, 0.9549E-02,& - 0.9835E-02, 0.1022E-01, 0.1060E-01, 0.1088E-01,& - 0.1127E-01, 0.1165E-01, 0.1203E-01, 0.1241E-01,& - 0.1279E-01, 0.1317E-01, 0.1356E-01, 0.1394E-01,& - 0.1432E-01, 0.1470E-01, 0.1518E-01, 0.1556E-01,& - 0.1594E-01, 0.1642E-01, 0.1680E-01, 0.1728E-01,& - 0.1766E-01, 0.1813E-01, 0.1852E-01, 0.1899E-01,& - 0.1947E-01, 0.1995E-01, 0.2033E-01, 0.2081E-01,& - 0.2128E-01, 0.2176E-01, 0.2224E-01, 0.2271E-01,& - 0.2319E-01, 0.2367E-01, 0.2424E-01, 0.2472E-01,& - 0.2519E-01, 0.2567E-01, 0.2624E-01, 0.2672E-01,& - 0.2720E-01, 0.2777E-01, 0.2825E-01, 0.2882E-01,& - 0.2939E-01, 0.2987E-01, 0.3044E-01, 0.3101E-01,& - 0.3149E-01, 0.3206E-01, 0.3263E-01, 0.3321E-01,& - 0.3378E-01, 0.3435E-01, 0.3492E-01, 0.3550E-01,& - 0.3607E-01, 0.3664E-01, 0.3731E-01, 0.3788E-01,& - 0.3845E-01, 0.3903E-01, 0.3969E-01, 0.4027E-01,& - 0.4093E-01, 0.4151E-01, 0.4217E-01, 0.4275E-01,& - 0.4341E-01, 0.4399E-01, 0.4465E-01, 0.4532E-01,& - 0.4589E-01, 0.4656E-01, 0.4723E-01, 0.4790E-01,& - 0.4856E-01, 0.4923E-01, 0.4990E-01, 0.5057E-01,& - 0.5124E-01, 0.5190E-01, 0.5257E-01, 0.5324E-01,& - 0.5400E-01, 0.5467E-01, 0.5534E-01, 0.5610E-01,& - 0.5677E-01, 0.5744E-01, 0.5820E-01, 0.5887E-01,& - 0.5963E-01, 0.6039E-01, 0.6106E-01, 0.6182E-01,& - 0.6259E-01, 0.6325E-01, 0.6402E-01, 0.6478E-01,& - 0.6554E-01, 0.6631E-01, 0.6707E-01, 0.6783E-01,& - 0.6860E-01, 0.6936E-01, 0.7012E-01, 0.7089E-01,& - 0.7165E-01, 0.7241E-01, 0.7327E-01, 0.7403E-01,& - 0.7480E-01, 0.7566E-01, 0.7642E-01, 0.7718E-01,& - 0.7804E-01, 0.7880E-01, 0.7966E-01, 0.8052E-01,& - 0.8128E-01, 0.8214E-01, 0.8300E-01, 0.8376E-01,& - 0.8462E-01, 0.8548E-01, 0.8634E-01, 0.8720E-01,& - 0.8806E-01, 0.8891E-01, 0.8977E-01, 0.9063E-01,& - 0.9149E-01, 0.9235E-01, 0.9321E-01, 0.9407E-01,& - 0.9502E-01, 0.9588E-01, 0.9674E-01, 0.9769E-01,& - 0.9855E-01, 0.9941E-01, 0.1004E+00, 0.1012E+00,& - 0.1022E+00, 0.1031E+00, 0.1040E+00, 0.1049E+00,& - 0.1059E+00, 0.1068E+00, 0.1077E+00, 0.1087E+00,& - 0.1096E+00, 0.1106E+00, 0.1115E+00, 0.1125E+00,& - 0.1134E+00, 0.1144E+00, 0.1153E+00, 0.1163E+00,& - 0.1172E+00, 0.1182E+00, 0.1192E+00, 0.1202E+00,& - 0.1212E+00, 0.1222E+00, 0.1232E+00, 0.1241E+00,& - 0.1252E+00, 0.1261E+00, 0.1272E+00, 0.1282E+00,& - 0.1292E+00, 0.1302E+00, 0.1313E+00, 0.1322E+00,& - 0.1333E+00, 0.1343E+00, 0.1354E+00, 0.1364E+00,& - 0.1375E+00, 0.1385E+00, 0.1396E+00, 0.1406E+00,& - 0.1417E+00, 0.1427E+00, 0.1438E+00, 0.1448E+00,& - 0.1460E+00, 0.1470E+00, 0.1481E+00, 0.1492E+00,& - 0.1503E+00, 0.1513E+00, 0.1524E+00, 0.1535E+00,& - 0.1546E+00, 0.1558E+00, 0.1568E+00, 0.1580E+00,& - 0.1591E+00, 0.1602E+00, 0.1613E+00, 0.1625E+00,& - 0.1636E+00, 0.1648E+00, 0.1659E+00, 0.1670E+00,& - 0.1682E+00, 0.1693E+00, 0.1705E+00, 0.1716E+00,& - 0.1728E+00, 0.1740E+00, 0.1751E+00, 0.1763E+00,& - 0.1775E+00, 0.1787E+00, 0.1798E+00, 0.1811E+00,& - 0.1822E+00, 0.1834E+00, 0.1847E+00, 0.1858E+00,& - 0.1871E+00, 0.1883E+00, 0.1895E+00, 0.1907E+00,& - 0.1919E+00, 0.1932E+00, 0.1944E+00, 0.1957E+00,& - 0.1969E+00, 0.1981E+00, 0.1994E+00, 0.2006E+00,& - 0.2019E+00, 0.2031E+00, 0.2044E+00, 0.2057E+00,& - 0.2069E+00, 0.2082E+00, 0.2095E+00, 0.2107E+00,& - 0.2121E+00, 0.2133E+00, 0.2146E+00, 0.2160E+00,& - 0.2172E+00, 0.2186E+00, 0.2199E+00, 0.2211E+00,& - 0.2225E+00, 0.2238E+00, 0.2251E+00, 0.2265E+00,& - 0.2278E+00, 0.2291E+00, 0.2305E+00, 0.2318E+00,& - 0.2331E+00, 0.2345E+00, 0.2359E+00, 0.2372E+00,& - 0.2386E+00, 0.2400E+00, 0.2413E+00, 0.2428E+00,& - 0.2441E+00, 0.2455E+00, 0.2469E+00, 0.2483E+00,& - 0.2496E+00, 0.2511E+00, 0.2525E+00, 0.2539E+00,& - 0.2553E+00, 0.2567E+00, 0.2581E+00, 0.2596E+00,& - 0.2610E+00, 0.2624E+00, 0.2639E+00, 0.2654E+00,& - 0.2668E+00, 0.2683E+00, 0.2697E+00, 0.2711E+00,& - 0.2726E+00, 0.2741E+00, 0.2756E+00, 0.2770E+00,& - 0.2786E+00, 0.2800E+00, 0.2815E+00, 0.2830E+00,& - 0.2845E+00, 0.2860E+00, 0.2875E+00, 0.2890E+00,& - 0.2906E+00, 0.2920E+00, 0.2935E+00, 0.2951E+00,& - 0.2967E+00, 0.2982E+00, 0.2997E+00, 0.3013E+00,& - 0.3028E+00, 0.3044E+00, 0.3059E+00, 0.3075E+00,& - 0.3091E+00, 0.3106E+00, 0.3122E+00, 0.3138E+00,& - 0.3154E+00, 0.3170E+00, 0.3185E+00, 0.3201E+00,& - 0.3218E+00, 0.3234E+00, 0.3250E+00, 0.3265E+00,& - 0.3282E+00, 0.3298E+00, 0.3315E+00, 0.3331E+00,& - 0.3347E+00, 0.3364E+00, 0.3380E+00, 0.3397E+00,& - 0.3413E+00, 0.3429E+00, 0.3447E+00, 0.3463E+00,& - 0.3480E+00, 0.3497E+00, 0.3513E+00, 0.3531E+00,& - 0.3548E+00, 0.3564E+00, 0.3581E+00, 0.3598E+00,& - 0.3615E+00, 0.3633E+00, 0.3650E+00, 0.3667E+00,& - 0.3684E+00, 0.3702E+00, 0.3719E+00, 0.3737E+00,& - 0.3754E+00, 0.3772E+00, 0.3789E+00, 0.3807E+00,& - 0.3824E+00, 0.3842E+00, 0.3861E+00, 0.3878E+00,& - 0.3896E+00, 0.3914E+00, 0.3932E+00, 0.3950E+00,& - 0.3967E+00, 0.3986E+00, 0.4005E+00, 0.4023E+00,& - 0.4041E+00, 0.4059E+00, 0.4077E+00, 0.4096E+00,& - 0.4114E+00, 0.4132E+00, 0.4152E+00, 0.4170E+00,& - 0.4189E+00, 0.4207E+00, 0.4226E+00, 0.4245E+00,& - 0.4264E+00, 0.4282E+00, 0.4301E+00, 0.4320E+00,& - 0.4339E+00, 0.4359E+00, 0.4378E+00, 0.4398E+00,& - 0.4417E+00, 0.4436E+00, 0.4455E+00, 0.4475E+00,& - 0.4494E+00, 0.4514E+00, 0.4533E+00, 0.4553E+00,& - 0.4572E+00, 0.4592E+00, 0.4612E+00, 0.4632E+00,& - 0.4652E+00, 0.4672E+00, 0.4692E+00, 0.4712E+00,& - 0.4732E+00, 0.4752E+00, 0.4773E+00, 0.4793E+00,& - 0.4814E+00, 0.4834E+00, 0.4855E+00, 0.4875E+00,& - 0.4896E+00, 0.4916E+00, 0.4937E+00, 0.4958E+00,& - 0.4978E+00, 0.4999E+00, 0.5020E+00, 0.5041E+00,& - 0.5062E+00, 0.5083E+00, 0.5104E+00, 0.5125E+00,& - 0.5146E+00, 0.5167E+00, 0.5189E+00, 0.5210E+00,& - 0.5232E+00, 0.5253E+00, 0.5275E+00, 0.5296E+00,& - 0.5318E+00, 0.5340E+00, 0.5362E+00, 0.5384E+00,& - 0.5406E+00, 0.5428E+00, 0.5450E+00, 0.5472E+00,& - 0.5373E+00, 0.5517E+00, 0.5539E+00, 0.5561E+00,& - 0.5583E+00, 0.5606E+00, 0.5628E+00, 0.5651E+00,& - 0.5674E+00, 0.5697E+00, 0.5720E+00, 0.5742E+00,& - 0.5766E+00, 0.5788E+00, 0.5811E+00, 0.5834E+00,& - 0.5857E+00, 0.5881E+00, 0.5904E+00, 0.5928E+00,& - 0.5951E+00, 0.5974E+00, 0.5997E+00, 0.6021E+00,& - 0.6045E+00, 0.6069E+00, 0.6093E+00, 0.6117E+00,& - 0.6140E+00, 0.6164E+00, 0.6188E+00, 0.6213E+00,& - 0.6237E+00, 0.6262E+00, 0.6285E+00, 0.6310E+00,& - 0.6334E+00, 0.6359E+00, 0.6384E+00, 0.6408E+00,& - 0.6433E+00, 0.6458E+00, 0.6483E+00, 0.6508E+00,& - 0.6532E+00, 0.6557E+00, 0.6583E+00, 0.6608E+00,& - 0.6634E+00, 0.6658E+00, 0.6684E+00, 0.6710E+00,& - 0.6736E+00, 0.6761E+00, 0.6787E+00, 0.6813E+00,& - 0.6839E+00, 0.6864E+00, 0.6890E+00, 0.6917E+00,& - 0.6943E+00, 0.6969E+00, 0.6995E+00, 0.7022E+00,& - 0.7049E+00, 0.7074E+00, 0.7101E+00, 0.7128E+00,& - 0.7154E+00, 0.7181E+00, 0.7209E+00, 0.7236E+00,& - 0.7262E+00, 0.7290E+00, 0.7317E+00, 0.7344E+00,& - 0.7372E+00, 0.7400E+00, 0.7426E+00, 0.7454E+00,& - 0.7482E+00, 0.7510E+00, 0.7538E+00, 0.7566E+00,& - 0.7593E+00, 0.7622E+00, 0.7650E+00, 0.7678E+00,& - 0.7707E+00, 0.7735E+00, 0.7763E+00, 0.7792E+00,& - 0.7821E+00, 0.7850E+00, 0.7878E+00, 0.7907E+00,& - 0.7937E+00, 0.7965E+00, 0.7995E+00, 0.8024E+00,& - 0.8053E+00, 0.8083E+00, 0.8112E+00, 0.8142E+00,& - 0.8171E+00, 0.8202E+00, 0.8231E+00, 0.8261E+00,& - 0.8292E+00, 0.8321E+00, 0.8352E+00, 0.8382E+00,& - 0.8413E+00, 0.8443E+00, 0.8474E+00, 0.8504E+00,& - 0.8535E+00, 0.8566E+00, 0.8597E+00, 0.8628E+00,& - 0.8659E+00, 0.8690E+00, 0.8722E+00, 0.8753E+00,& - 0.8785E+00, 0.8816E+00, 0.8849E+00, 0.8880E+00,& - 0.8912E+00, 0.8944E+00, 0.8976E+00, 0.9005E+00,& - 0.9040E+00, 0.9073E+00, 0.9105E+00, 0.9139E+00,& - 0.9171E+00, 0.9203E+00, 0.9237E+00, 0.9270E+00,& - 0.9303E+00, 0.9336E+00, 0.9369E+00, 0.9403E+00,& - 0.9436E+00, 0.9471E+00, 0.9504E+00, 0.9538E+00,& - 0.9572E+00, 0.9606E+00, 0.9640E+00, 0.9675E+00,& - 0.9709E+00, 0.9743E+00, 0.9778E+00, 0.9813E+00,& - 0.9847E+00, 0.9883E+00, 0.9918E+00, 0.9953E+00,& - 0.9989E+00, 0.1002E+01, 0.1006E+01, 0.1009E+01,& - 0.1013E+01, 0.1017E+01, 0.1020E+01, 0.1024E+01,& - 0.1027E+01, 0.1031E+01, 0.1035E+01, 0.1038E+01,& - 0.1042E+01, 0.1046E+01, 0.1050E+01, 0.1053E+01,& - 0.1057E+01, 0.1061E+01, 0.1064E+01, 0.1068E+01,& - 0.1072E+01, 0.1076E+01, 0.1079E+01, 0.1083E+01,& - 0.1087E+01, 0.1091E+01, 0.1095E+01, 0.1099E+01,& - 0.1103E+01, 0.1106E+01, 0.1110E+01, 0.1114E+01,& - 0.1118E+01, 0.1122E+01, 0.1126E+01, 0.1130E+01,& - 0.1134E+01, 0.1138E+01, 0.1142E+01, 0.1146E+01,& - 0.1150E+01, 0.1154E+01, 0.1158E+01, 0.1162E+01,& - 0.1166E+01, 0.1170E+01, 0.1175E+01, 0.1179E+01,& - 0.1183E+01, 0.1187E+01, 0.1191E+01, 0.1195E+01,& - 0.1200E+01, 0.1204E+01, 0.1208E+01, 0.1212E+01,& - 0.1217E+01, 0.1221E+01, 0.1225E+01, 0.1230E+01,& - 0.1234E+01, 0.1238E+01, 0.1243E+01, 0.1247E+01,& - 0.1251E+01, 0.1256E+01, 0.1260E+01, 0.1265E+01,& - 0.1269E+01, 0.1274E+01, 0.1278E+01, 0.1283E+01,& - 0.1287E+01, 0.1292E+01, 0.1296E+01, 0.1301E+01,& - 0.1306E+01, 0.1310E+01, 0.1315E+01, 0.1320E+01,& - 0.1324E+01, 0.1329E+01, 0.1334E+01, 0.1338E+01,& - 0.1343E+01, 0.1348E+01, 0.1353E+01, 0.1358E+01,& - 0.1362E+01, 0.1367E+01, 0.1372E+01, 0.1377E+01,& - 0.1382E+01, 0.1387E+01, 0.1392E+01, 0.1397E+01,& - 0.1402E+01, 0.1407E+01, 0.1412E+01, 0.1417E+01,& - 0.1422E+01, 0.1427E+01, 0.1432E+01, 0.1437E+01,& - 0.1442E+01, 0.1448E+01, 0.1453E+01, 0.1458E+01,& - 0.1463E+01, 0.1468E+01, 0.1474E+01, 0.1479E+01,& - 0.1484E+01, 0.1490E+01, 0.1495E+01, 0.1501E+01,& - 0.1506E+01, 0.1511E+01, 0.1517E+01, 0.1522E+01,& - 0.1528E+01, 0.1534E+01, 0.1539E+01, 0.1545E+01,& - 0.1550E+01, 0.1556E+01, 0.1562E+01, 0.1567E+01,& - 0.1573E+01, 0.1579E+01, 0.1585E+01, 0.1590E+01,& - 0.1596E+01, 0.1602E+01, 0.1608E+01, 0.1614E+01,& - 0.1620E+01, 0.1626E+01, 0.1632E+01, 0.1638E+01,& - 0.1644E+01, 0.1650E+01, 0.1656E+01, 0.1662E+01,& - 0.1668E+01, 0.1675E+01, 0.1681E+01, 0.1687E+01,& - 0.1693E+01, 0.1700E+01, 0.1706E+01, 0.1712E+01,& - 0.1719E+01, 0.1725E+01, 0.1732E+01, 0.1738E+01,& - 0.1745E+01, 0.1751E+01, 0.1758E+01, 0.1765E+01,& - 0.1771E+01, 0.1778E+01, 0.1785E+01, 0.1792E+01,& - 0.1798E+01, 0.1805E+01, 0.1812E+01, 0.1819E+01,& - 0.1826E+01, 0.1833E+01, 0.1840E+01, 0.1847E+01,& - 0.1854E+01, 0.1862E+01, 0.1869E+01, 0.1876E+01,& - 0.1883E+01, 0.1891E+01, 0.1898E+01, 0.1905E+01,& - 0.1913E+01, 0.1920E+01, 0.1928E+01, 0.1935E+01,& - 0.1943E+01, 0.1951E+01, 0.1959E+01, 0.1966E+01,& - 0.1974E+01, 0.1982E+01, 0.1990E+01, 0.1998E+01,& - 0.2006E+01, 0.2014E+01, 0.2022E+01, 0.2030E+01,& - 0.2038E+01, 0.2047E+01, 0.2055E+01, 0.2063E+01,& - 0.2072E+01, 0.2080E+01, 0.2089E+01, 0.2097E+01,& - 0.2106E+01, 0.2115E+01, 0.2123E+01, 0.2132E+01,& - 0.2141E+01, 0.2150E+01, 0.2159E+01, 0.2168E+01,& - 0.2177E+01, 0.2186E+01, 0.2196E+01, 0.2205E+01,& - 0.2214E+01, 0.2224E+01, 0.2233E+01, 0.2243E+01,& - 0.2252E+01, 0.2262E+01, 0.2272E+01, 0.2282E+01,& - 0.2292E+01, 0.2302E+01, 0.2312E+01, 0.2322E+01,& - 0.2332E+01, 0.2342E+01, 0.2353E+01, 0.2363E+01,& - 0.2374E+01, 0.2385E+01, 0.2395E+01, 0.2406E+01,& - 0.2417E+01, 0.2428E+01, 0.2439E+01, 0.2450E+01,& - 0.2461E+01, 0.2473E+01, 0.2484E+01, 0.2496E+01,& - 0.2508E+01, 0.2519E+01, 0.2531E+01, 0.2543E+01,& - 0.2555E+01, 0.2568E+01, 0.2580E+01, 0.2592E+01,& - 0.2605E+01, 0.2618E+01, 0.2630E+01, 0.2643E+01,& - 0.2656E+01, 0.2669E+01, 0.2683E+01, 0.2696E+01,& - 0.2710E+01, 0.2724E+01, 0.2737E+01, 0.2751E+01,& - 0.2765E+01, 0.2780E+01, 0.2794E+01, 0.2809E+01,& - 0.2824E+01, 0.2839E+01, 0.2854E+01, 0.2869E+01,& - 0.2884E+01, 0.2900E+01, 0.2916E+01, 0.2932E+01,& - 0.2948E+01, 0.2965E+01, 0.2981E+01, 0.2998E+01,& - 0.3015E+01, 0.3032E+01, 0.3050E+01, 0.3068E+01,& - 0.3086E+01, 0.3104E+01, 0.3122E+01, 0.3141E+01,& - 0.3160E+01, 0.3180E+01, 0.3199E+01, 0.3219E+01,& - 0.3239E+01, 0.3260E+01, 0.3281E+01, 0.3302E+01,& - 0.3323E+01, 0.3345E+01, 0.3367E+01, 0.3390E+01,& - 0.3413E+01, 0.3436E+01, 0.3460E+01, 0.3485E+01,& - 0.3510E+01, 0.3535E+01, 0.3561E+01, 0.3587E+01,& - 0.3614E+01, 0.3641E+01, 0.3669E+01, 0.3698E+01,& - 0.3727E+01, 0.3757E+01, 0.3788E+01, 0.3819E+01,& - 0.3852E+01, 0.3885E+01, 0.3919E+01, 0.3953E+01,& - 0.3989E+01, 0.4026E+01, 0.4065E+01, 0.4104E+01,& - 0.4144E+01, 0.4186E+01, 0.4230E+01, 0.4275E+01,& - 0.4321E+01, 0.4370E+01, 0.4420E+01, 0.4473E+01,& - 0.4528E+01, 0.4586E+01, 0.4647E+01, 0.4711E+01,& - 0.4778E+01, 0.4850E+01, 0.4926E+01, 0.5008E+01,& - 0.5096E+01, 0.5192E+01, 0.5296E+01, 0.5411E+01,& - 0.5539E+01, 0.5685E+01, 0.5854E+01, 0.6055E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 47) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1078E-03, 0.1078E-03, 0.2055E-03, 0.2055E-03,& - 0.3033E-03, 0.4010E-03, 0.4988E-03, 0.5965E-03,& - 0.6943E-03, 0.7920E-03, 0.9875E-03, 0.1085E-02,& - 0.1183E-02, 0.1379E-02, 0.1476E-02, 0.1672E-02,& - 0.1770E-02, 0.1965E-02, 0.2161E-02, 0.2258E-02,& - 0.2454E-02, 0.2649E-02, 0.2845E-02, 0.3040E-02,& - 0.3236E-02, 0.3431E-02, 0.3627E-02, 0.3822E-02,& - 0.4116E-02, 0.4311E-02, 0.4507E-02, 0.4800E-02,& - 0.4995E-02, 0.5289E-02, 0.5484E-02, 0.5777E-02,& - 0.6071E-02, 0.6266E-02, 0.6559E-02, 0.6853E-02,& - 0.7146E-02, 0.7439E-02, 0.7732E-02, 0.8026E-02,& - 0.8319E-02, 0.8612E-02, 0.8905E-02, 0.9199E-02,& - 0.9590E-02, 0.9883E-02, 0.1018E-01, 0.1057E-01,& - 0.1086E-01, 0.1115E-01, 0.1154E-01, 0.1194E-01,& - 0.1223E-01, 0.1262E-01, 0.1301E-01, 0.1330E-01,& - 0.1370E-01, 0.1409E-01, 0.1448E-01, 0.1487E-01,& - 0.1526E-01, 0.1565E-01, 0.1604E-01, 0.1643E-01,& - 0.1682E-01, 0.1721E-01, 0.1761E-01, 0.1809E-01,& - 0.1849E-01, 0.1888E-01, 0.1936E-01, 0.1976E-01,& - 0.2024E-01, 0.2064E-01, 0.2112E-01, 0.2152E-01,& - 0.2200E-01, 0.2249E-01, 0.2288E-01, 0.2337E-01,& - 0.2386E-01, 0.2435E-01, 0.2484E-01, 0.2533E-01,& - 0.2582E-01, 0.2631E-01, 0.2679E-01, 0.2728E-01,& - 0.2777E-01, 0.2826E-01, 0.2885E-01, 0.2934E-01,& - 0.2982E-01, 0.3031E-01, 0.3090E-01, 0.3139E-01,& - 0.3197E-01, 0.3246E-01, 0.3305E-01, 0.3354E-01,& - 0.3413E-01, 0.3471E-01, 0.3520E-01, 0.3579E-01,& - 0.3637E-01, 0.3696E-01, 0.3755E-01, 0.3813E-01,& - 0.3872E-01, 0.3931E-01, 0.3989E-01, 0.4048E-01,& - 0.4107E-01, 0.4165E-01, 0.4224E-01, 0.4283E-01,& - 0.4351E-01, 0.4410E-01, 0.4468E-01, 0.4537E-01,& - 0.4595E-01, 0.4654E-01, 0.4722E-01, 0.4791E-01,& - 0.4849E-01, 0.4918E-01, 0.4977E-01, 0.5045E-01,& - 0.5113E-01, 0.5182E-01, 0.5240E-01, 0.5309E-01,& - 0.5377E-01, 0.5446E-01, 0.5514E-01, 0.5583E-01,& - 0.5651E-01, 0.5719E-01, 0.5788E-01, 0.5856E-01,& - 0.5935E-01, 0.6003E-01, 0.6071E-01, 0.6140E-01,& - 0.6218E-01, 0.6286E-01, 0.6365E-01, 0.6433E-01,& - 0.6511E-01, 0.6580E-01, 0.6658E-01, 0.6726E-01,& - 0.6805E-01, 0.6883E-01, 0.6951E-01, 0.7029E-01,& - 0.7108E-01, 0.7186E-01, 0.7264E-01, 0.7342E-01,& - 0.7420E-01, 0.7499E-01, 0.7577E-01, 0.7655E-01,& - 0.7733E-01, 0.7811E-01, 0.7890E-01, 0.7968E-01,& - 0.8056E-01, 0.8134E-01, 0.8212E-01, 0.8300E-01,& - 0.8378E-01, 0.8466E-01, 0.8544E-01, 0.8632E-01,& - 0.8711E-01, 0.8799E-01, 0.8887E-01, 0.8965E-01,& - 0.9053E-01, 0.9141E-01, 0.9229E-01, 0.9307E-01,& - 0.9395E-01, 0.9483E-01, 0.9571E-01, 0.9659E-01,& - 0.9747E-01, 0.9835E-01, 0.9923E-01, 0.1002E+00,& - 0.1011E+00, 0.1020E+00, 0.1028E+00, 0.1038E+00,& - 0.1047E+00, 0.1056E+00, 0.1066E+00, 0.1074E+00,& - 0.1084E+00, 0.1093E+00, 0.1103E+00, 0.1112E+00,& - 0.1121E+00, 0.1131E+00, 0.1140E+00, 0.1150E+00,& - 0.1159E+00, 0.1169E+00, 0.1179E+00, 0.1189E+00,& - 0.1199E+00, 0.1208E+00, 0.1218E+00, 0.1228E+00,& - 0.1238E+00, 0.1247E+00, 0.1257E+00, 0.1267E+00,& - 0.1278E+00, 0.1287E+00, 0.1297E+00, 0.1308E+00,& - 0.1318E+00, 0.1329E+00, 0.1338E+00, 0.1349E+00,& - 0.1359E+00, 0.1370E+00, 0.1380E+00, 0.1390E+00,& - 0.1401E+00, 0.1412E+00, 0.1422E+00, 0.1432E+00,& - 0.1443E+00, 0.1454E+00, 0.1464E+00, 0.1475E+00,& - 0.1486E+00, 0.1497E+00, 0.1508E+00, 0.1519E+00,& - 0.1530E+00, 0.1541E+00, 0.1552E+00, 0.1563E+00,& - 0.1574E+00, 0.1586E+00, 0.1596E+00, 0.1608E+00,& - 0.1619E+00, 0.1631E+00, 0.1641E+00, 0.1653E+00,& - 0.1665E+00, 0.1676E+00, 0.1687E+00, 0.1699E+00,& - 0.1711E+00, 0.1722E+00, 0.1734E+00, 0.1746E+00,& - 0.1758E+00, 0.1769E+00, 0.1781E+00, 0.1793E+00,& - 0.1805E+00, 0.1816E+00, 0.1829E+00, 0.1841E+00,& - 0.1852E+00, 0.1865E+00, 0.1877E+00, 0.1889E+00,& - 0.1901E+00, 0.1913E+00, 0.1926E+00, 0.1939E+00,& - 0.1950E+00, 0.1963E+00, 0.1976E+00, 0.1988E+00,& - 0.2000E+00, 0.2013E+00, 0.2026E+00, 0.2038E+00,& - 0.2051E+00, 0.2064E+00, 0.2076E+00, 0.2089E+00,& - 0.2103E+00, 0.2115E+00, 0.2128E+00, 0.2141E+00,& - 0.2155E+00, 0.2167E+00, 0.2180E+00, 0.2194E+00,& - 0.2206E+00, 0.2220E+00, 0.2234E+00, 0.2246E+00,& - 0.2260E+00, 0.2274E+00, 0.2287E+00, 0.2300E+00,& - 0.2314E+00, 0.2328E+00, 0.2341E+00, 0.2355E+00,& - 0.2369E+00, 0.2382E+00, 0.2396E+00, 0.2410E+00,& - 0.2423E+00, 0.2438E+00, 0.2452E+00, 0.2465E+00,& - 0.2480E+00, 0.2494E+00, 0.2507E+00, 0.2522E+00,& - 0.2536E+00, 0.2550E+00, 0.2565E+00, 0.2579E+00,& - 0.2593E+00, 0.2608E+00, 0.2623E+00, 0.2636E+00,& - 0.2651E+00, 0.2666E+00, 0.2680E+00, 0.2695E+00,& - 0.2710E+00, 0.2725E+00, 0.2740E+00, 0.2755E+00,& - 0.2769E+00, 0.2784E+00, 0.2800E+00, 0.2814E+00,& - 0.2830E+00, 0.2845E+00, 0.2860E+00, 0.2875E+00,& - 0.2891E+00, 0.2905E+00, 0.2921E+00, 0.2937E+00,& - 0.2952E+00, 0.2968E+00, 0.2983E+00, 0.2998E+00,& - 0.3014E+00, 0.3029E+00, 0.3046E+00, 0.3062E+00,& - 0.3077E+00, 0.3093E+00, 0.3109E+00, 0.3125E+00,& - 0.3141E+00, 0.3156E+00, 0.3173E+00, 0.3189E+00,& - 0.3205E+00, 0.3222E+00, 0.3238E+00, 0.3254E+00,& - 0.3271E+00, 0.3287E+00, 0.3303E+00, 0.3320E+00,& - 0.3336E+00, 0.3353E+00, 0.3370E+00, 0.3386E+00,& - 0.3403E+00, 0.3420E+00, 0.3437E+00, 0.3454E+00,& - 0.3471E+00, 0.3488E+00, 0.3504E+00, 0.3522E+00,& - 0.3539E+00, 0.3556E+00, 0.3574E+00, 0.3591E+00,& - 0.3608E+00, 0.3626E+00, 0.3643E+00, 0.3661E+00,& - 0.3678E+00, 0.3695E+00, 0.3714E+00, 0.3731E+00,& - 0.3749E+00, 0.3766E+00, 0.3784E+00, 0.3803E+00,& - 0.3820E+00, 0.3838E+00, 0.3856E+00, 0.3874E+00,& - 0.3893E+00, 0.3910E+00, 0.3929E+00, 0.3947E+00,& - 0.3966E+00, 0.3983E+00, 0.4002E+00, 0.4021E+00,& - 0.4039E+00, 0.4058E+00, 0.4076E+00, 0.4095E+00,& - 0.4114E+00, 0.4133E+00, 0.4152E+00, 0.4171E+00,& - 0.4190E+00, 0.4208E+00, 0.4228E+00, 0.4247E+00,& - 0.4266E+00, 0.4286E+00, 0.4305E+00, 0.4324E+00,& - 0.4343E+00, 0.4363E+00, 0.4382E+00, 0.4402E+00,& - 0.4421E+00, 0.4441E+00, 0.4461E+00, 0.4481E+00,& - 0.4501E+00, 0.4520E+00, 0.4541E+00, 0.4560E+00,& - 0.4581E+00, 0.4600E+00, 0.4621E+00, 0.4641E+00,& - 0.4662E+00, 0.4681E+00, 0.4702E+00, 0.4722E+00,& - 0.4743E+00, 0.4764E+00, 0.4784E+00, 0.4806E+00,& - 0.4826E+00, 0.4847E+00, 0.4867E+00, 0.4889E+00,& - 0.4909E+00, 0.4931E+00, 0.4951E+00, 0.4973E+00,& - 0.4994E+00, 0.5016E+00, 0.5036E+00, 0.5058E+00,& - 0.5079E+00, 0.5101E+00, 0.5122E+00, 0.5145E+00,& - 0.5166E+00, 0.5188E+00, 0.5209E+00, 0.5232E+00,& - 0.5253E+00, 0.5276E+00, 0.5297E+00, 0.5320E+00,& - 0.5342E+00, 0.5364E+00, 0.5386E+00, 0.5409E+00,& - 0.5431E+00, 0.5454E+00, 0.5476E+00, 0.5499E+00,& - 0.5522E+00, 0.5545E+00, 0.5567E+00, 0.5591E+00,& - 0.5613E+00, 0.5636E+00, 0.5659E+00, 0.5682E+00,& - 0.5706E+00, 0.5729E+00, 0.5753E+00, 0.5776E+00,& - 0.5800E+00, 0.5823E+00, 0.5847E+00, 0.5870E+00,& - 0.5894E+00, 0.5918E+00, 0.5941E+00, 0.5966E+00,& - 0.5989E+00, 0.6014E+00, 0.6038E+00, 0.6062E+00,& - 0.6086E+00, 0.6111E+00, 0.6135E+00, 0.6159E+00,& - 0.6184E+00, 0.6209E+00, 0.6234E+00, 0.6258E+00,& - 0.6284E+00, 0.6308E+00, 0.6333E+00, 0.6359E+00,& - 0.6383E+00, 0.6409E+00, 0.6434E+00, 0.6460E+00,& - 0.6485E+00, 0.6510E+00, 0.6536E+00, 0.6561E+00,& - 0.6588E+00, 0.6613E+00, 0.6639E+00, 0.6665E+00,& - 0.6691E+00, 0.6718E+00, 0.6743E+00, 0.6769E+00,& - 0.6796E+00, 0.6822E+00, 0.6849E+00, 0.6876E+00,& - 0.6902E+00, 0.6929E+00, 0.6956E+00, 0.6982E+00,& - 0.7010E+00, 0.7036E+00, 0.7064E+00, 0.7091E+00,& - 0.7118E+00, 0.7146E+00, 0.7173E+00, 0.7200E+00,& - 0.7228E+00, 0.7256E+00, 0.7284E+00, 0.7311E+00,& - 0.7339E+00, 0.7368E+00, 0.7395E+00, 0.7423E+00,& - 0.7452E+00, 0.7480E+00, 0.7508E+00, 0.7537E+00,& - 0.7566E+00, 0.7594E+00, 0.7623E+00, 0.7652E+00,& - 0.7681E+00, 0.7710E+00, 0.7739E+00, 0.7768E+00,& - 0.7798E+00, 0.7827E+00, 0.7856E+00, 0.7886E+00,& - 0.7916E+00, 0.7945E+00, 0.7976E+00, 0.8005E+00,& - 0.8035E+00, 0.8066E+00, 0.8096E+00, 0.8126E+00,& - 0.8156E+00, 0.8187E+00, 0.8217E+00, 0.8247E+00,& - 0.8279E+00, 0.8309E+00, 0.8340E+00, 0.8372E+00,& - 0.8403E+00, 0.8434E+00, 0.8465E+00, 0.8497E+00,& - 0.8528E+00, 0.8559E+00, 0.8591E+00, 0.8623E+00,& - 0.8655E+00, 0.8687E+00, 0.8720E+00, 0.8752E+00,& - 0.8784E+00, 0.8816E+00, 0.8849E+00, 0.8881E+00,& - 0.8914E+00, 0.8946E+00, 0.8980E+00, 0.9013E+00,& - 0.9046E+00, 0.9079E+00, 0.9112E+00, 0.9146E+00,& - 0.9180E+00, 0.9213E+00, 0.9247E+00, 0.9281E+00,& - 0.9315E+00, 0.9349E+00, 0.9383E+00, 0.9417E+00,& - 0.9452E+00, 0.9487E+00, 0.9521E+00, 0.9556E+00,& - 0.9591E+00, 0.9626E+00, 0.9661E+00, 0.9696E+00,& - 0.9731E+00, 0.9766E+00, 0.9803E+00, 0.9838E+00,& - 0.9874E+00, 0.9910E+00, 0.9946E+00, 0.9982E+00,& - 0.1002E+01, 0.1005E+01, 0.1009E+01, 0.1013E+01,& - 0.1016E+01, 0.1020E+01, 0.1024E+01, 0.1028E+01,& - 0.1031E+01, 0.1035E+01, 0.1039E+01, 0.1043E+01,& - 0.1046E+01, 0.1050E+01, 0.1054E+01, 0.1058E+01,& - 0.1062E+01, 0.1065E+01, 0.1069E+01, 0.1073E+01,& - 0.1077E+01, 0.1081E+01, 0.1085E+01, 0.1089E+01,& - 0.1093E+01, 0.1097E+01, 0.1101E+01, 0.1105E+01,& - 0.1109E+01, 0.1113E+01, 0.1117E+01, 0.1121E+01,& - 0.1125E+01, 0.1129E+01, 0.1133E+01, 0.1137E+01,& - 0.1141E+01, 0.1145E+01, 0.1149E+01, 0.1153E+01,& - 0.1158E+01, 0.1162E+01, 0.1166E+01, 0.1170E+01,& - 0.1174E+01, 0.1179E+01, 0.1183E+01, 0.1187E+01,& - 0.1192E+01, 0.1196E+01, 0.1200E+01, 0.1205E+01,& - 0.1209E+01, 0.1213E+01, 0.1218E+01, 0.1222E+01,& - 0.1226E+01, 0.1231E+01, 0.1235E+01, 0.1240E+01,& - 0.1244E+01, 0.1249E+01, 0.1253E+01, 0.1258E+01,& - 0.1262E+01, 0.1267E+01, 0.1272E+01, 0.1276E+01,& - 0.1281E+01, 0.1285E+01, 0.1290E+01, 0.1295E+01,& - 0.1299E+01, 0.1304E+01, 0.1309E+01, 0.1314E+01,& - 0.1318E+01, 0.1323E+01, 0.1328E+01, 0.1333E+01,& - 0.1338E+01, 0.1343E+01, 0.1347E+01, 0.1352E+01,& - 0.1357E+01, 0.1362E+01, 0.1367E+01, 0.1372E+01,& - 0.1377E+01, 0.1382E+01, 0.1387E+01, 0.1392E+01,& - 0.1397E+01, 0.1403E+01, 0.1408E+01, 0.1413E+01,& - 0.1418E+01, 0.1423E+01, 0.1428E+01, 0.1434E+01,& - 0.1439E+01, 0.1444E+01, 0.1450E+01, 0.1455E+01,& - 0.1460E+01, 0.1466E+01, 0.1471E+01, 0.1476E+01,& - 0.1482E+01, 0.1487E+01, 0.1493E+01, 0.1498E+01,& - 0.1504E+01, 0.1509E+01, 0.1515E+01, 0.1521E+01,& - 0.1526E+01, 0.1532E+01, 0.1538E+01, 0.1543E+01,& - 0.1549E+01, 0.1555E+01, 0.1561E+01, 0.1567E+01,& - 0.1572E+01, 0.1578E+01, 0.1584E+01, 0.1590E+01,& - 0.1596E+01, 0.1602E+01, 0.1608E+01, 0.1614E+01,& - 0.1620E+01, 0.1626E+01, 0.1632E+01, 0.1639E+01,& - 0.1645E+01, 0.1651E+01, 0.1657E+01, 0.1664E+01,& - 0.1670E+01, 0.1676E+01, 0.1683E+01, 0.1689E+01,& - 0.1696E+01, 0.1702E+01, 0.1709E+01, 0.1715E+01,& - 0.1722E+01, 0.1728E+01, 0.1735E+01, 0.1742E+01,& - 0.1748E+01, 0.1755E+01, 0.1762E+01, 0.1769E+01,& - 0.1775E+01, 0.1782E+01, 0.1789E+01, 0.1796E+01,& - 0.1803E+01, 0.1810E+01, 0.1817E+01, 0.1824E+01,& - 0.1832E+01, 0.1839E+01, 0.1846E+01, 0.1853E+01,& - 0.1861E+01, 0.1868E+01, 0.1875E+01, 0.1883E+01,& - 0.1890E+01, 0.1898E+01, 0.1905E+01, 0.1913E+01,& - 0.1921E+01, 0.1928E+01, 0.1936E+01, 0.1944E+01,& - 0.1952E+01, 0.1959E+01, 0.1967E+01, 0.1975E+01,& - 0.1983E+01, 0.1991E+01, 0.2000E+01, 0.2008E+01,& - 0.2016E+01, 0.2024E+01, 0.2032E+01, 0.2041E+01,& - 0.2049E+01, 0.2058E+01, 0.2066E+01, 0.2075E+01,& - 0.2083E+01, 0.2092E+01, 0.2101E+01, 0.2110E+01,& - 0.2119E+01, 0.2128E+01, 0.2137E+01, 0.2146E+01,& - 0.2155E+01, 0.2164E+01, 0.2173E+01, 0.2182E+01,& - 0.2192E+01, 0.2201E+01, 0.2211E+01, 0.2220E+01,& - 0.2230E+01, 0.2239E+01, 0.2249E+01, 0.2259E+01,& - 0.2269E+01, 0.2279E+01, 0.2289E+01, 0.2299E+01,& - 0.2309E+01, 0.2320E+01, 0.2330E+01, 0.2340E+01,& - 0.2351E+01, 0.2362E+01, 0.2372E+01, 0.2383E+01,& - 0.2394E+01, 0.2405E+01, 0.2416E+01, 0.2427E+01,& - 0.2438E+01, 0.2450E+01, 0.2461E+01, 0.2473E+01,& - 0.2484E+01, 0.2496E+01, 0.2508E+01, 0.2520E+01,& - 0.2532E+01, 0.2544E+01, 0.2556E+01, 0.2568E+01,& - 0.2581E+01, 0.2593E+01, 0.2606E+01, 0.2619E+01,& - 0.2632E+01, 0.2645E+01, 0.2658E+01, 0.2671E+01,& - 0.2685E+01, 0.2698E+01, 0.2712E+01, 0.2726E+01,& - 0.2740E+01, 0.2754E+01, 0.2768E+01, 0.2783E+01,& - 0.2797E+01, 0.2812E+01, 0.2827E+01, 0.2842E+01,& - 0.2857E+01, 0.2872E+01, 0.2888E+01, 0.2904E+01,& - 0.2920E+01, 0.2936E+01, 0.2952E+01, 0.2969E+01,& - 0.2985E+01, 0.3002E+01, 0.3020E+01, 0.3037E+01,& - 0.3054E+01, 0.3072E+01, 0.3090E+01, 0.3109E+01,& - 0.3127E+01, 0.3146E+01, 0.3165E+01, 0.3184E+01,& - 0.3204E+01, 0.3224E+01, 0.3244E+01, 0.3265E+01,& - 0.3285E+01, 0.3307E+01, 0.3328E+01, 0.3350E+01,& - 0.3372E+01, 0.3395E+01, 0.3418E+01, 0.3441E+01,& - 0.3465E+01, 0.3489E+01, 0.3514E+01, 0.3539E+01,& - 0.3565E+01, 0.3591E+01, 0.3617E+01, 0.3644E+01,& - 0.3672E+01, 0.3700E+01, 0.3729E+01, 0.3759E+01,& - 0.3789E+01, 0.3820E+01, 0.3852E+01, 0.3885E+01,& - 0.3916E+01, 0.3952E+01, 0.3987E+01, 0.4023E+01,& - 0.4060E+01, 0.4099E+01, 0.4138E+01, 0.4179E+01,& - 0.4221E+01, 0.4264E+01, 0.4309E+01, 0.4355E+01,& - 0.4403E+01, 0.4454E+01, 0.4506E+01, 0.4560E+01,& - 0.4617E+01, 0.4677E+01, 0.4740E+01, 0.4806E+01,& - 0.4876E+01, 0.4950E+01, 0.5029E+01, 0.5114E+01,& - 0.5205E+01, 0.5304E+01, 0.5411E+01, 0.5530E+01,& - 0.5663E+01, 0.5814E+01, 0.5988E+01, 0.6197E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 48) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1102E-03, 0.1102E-03, 0.2103E-03,& - 0.2103E-03, 0.3105E-03, 0.4106E-03, 0.4106E-03,& - 0.5108E-03, 0.6110E-03, 0.7111E-03, 0.8113E-03,& - 0.9114E-03, 0.1012E-02, 0.1112E-02, 0.1312E-02,& - 0.1412E-02, 0.1512E-02, 0.1713E-02, 0.1813E-02,& - 0.2013E-02, 0.2113E-02, 0.2314E-02, 0.2414E-02,& - 0.2614E-02, 0.2814E-02, 0.2915E-02, 0.3115E-02,& - 0.3315E-02, 0.3516E-02, 0.3716E-02, 0.3916E-02,& - 0.4117E-02, 0.4317E-02, 0.4517E-02, 0.4818E-02,& - 0.5018E-02, 0.5218E-02, 0.5419E-02, 0.5719E-02,& - 0.5919E-02, 0.6220E-02, 0.6420E-02, 0.6721E-02,& - 0.6921E-02, 0.7221E-02, 0.7522E-02, 0.7722E-02,& - 0.8023E-02, 0.8323E-02, 0.8624E-02, 0.8924E-02,& - 0.9225E-02, 0.9525E-02, 0.9826E-02, 0.1013E-01,& - 0.1043E-01, 0.1073E-01, 0.1103E-01, 0.1143E-01,& - 0.1173E-01, 0.1203E-01, 0.1243E-01, 0.1273E-01,& - 0.1303E-01, 0.1343E-01, 0.1373E-01, 0.1413E-01,& - 0.1453E-01, 0.1483E-01, 0.1523E-01, 0.1563E-01,& - 0.1604E-01, 0.1634E-01, 0.1674E-01, 0.1714E-01,& - 0.1754E-01, 0.1794E-01, 0.1834E-01, 0.1874E-01,& - 0.1914E-01, 0.1954E-01, 0.2004E-01, 0.2044E-01,& - 0.2084E-01, 0.2124E-01, 0.2174E-01, 0.2215E-01,& - 0.2255E-01, 0.2305E-01, 0.2345E-01, 0.2395E-01,& - 0.2445E-01, 0.2485E-01, 0.2535E-01, 0.2575E-01,& - 0.2625E-01, 0.2675E-01, 0.2725E-01, 0.2775E-01,& - 0.2825E-01, 0.2866E-01, 0.2916E-01, 0.2966E-01,& - 0.3016E-01, 0.3076E-01, 0.3126E-01, 0.3176E-01,& - 0.3226E-01, 0.3276E-01, 0.3336E-01, 0.3386E-01,& - 0.3436E-01, 0.3497E-01, 0.3547E-01, 0.3607E-01,& - 0.3657E-01, 0.3717E-01, 0.3767E-01, 0.3827E-01,& - 0.3877E-01, 0.3937E-01, 0.3997E-01, 0.4057E-01,& - 0.4108E-01, 0.4168E-01, 0.4228E-01, 0.4288E-01,& - 0.4348E-01, 0.4408E-01, 0.4468E-01, 0.4528E-01,& - 0.4588E-01, 0.4648E-01, 0.4719E-01, 0.4779E-01,& - 0.4839E-01, 0.4899E-01, 0.4969E-01, 0.5029E-01,& - 0.5099E-01, 0.5159E-01, 0.5229E-01, 0.5289E-01,& - 0.5360E-01, 0.5420E-01, 0.5490E-01, 0.5560E-01,& - 0.5620E-01, 0.5690E-01, 0.5760E-01, 0.5830E-01,& - 0.5900E-01, 0.5971E-01, 0.6041E-01, 0.6101E-01,& - 0.6181E-01, 0.6251E-01, 0.6321E-01, 0.6391E-01,& - 0.6461E-01, 0.6531E-01, 0.6602E-01, 0.6682E-01,& - 0.6752E-01, 0.6822E-01, 0.6902E-01, 0.6972E-01,& - 0.7052E-01, 0.7122E-01, 0.7202E-01, 0.7273E-01,& - 0.7353E-01, 0.7433E-01, 0.7503E-01, 0.7583E-01,& - 0.7663E-01, 0.7743E-01, 0.7823E-01, 0.7904E-01,& - 0.7974E-01, 0.8054E-01, 0.8134E-01, 0.8224E-01,& - 0.8304E-01, 0.8384E-01, 0.8464E-01, 0.8545E-01,& - 0.8625E-01, 0.8715E-01, 0.8795E-01, 0.8875E-01,& - 0.8965E-01, 0.9045E-01, 0.9136E-01, 0.9216E-01,& - 0.9306E-01, 0.9386E-01, 0.9476E-01, 0.9556E-01,& - 0.9646E-01, 0.9737E-01, 0.9827E-01, 0.9907E-01,& - 0.9997E-01, 0.1009E+00, 0.1018E+00, 0.1027E+00,& - 0.1036E+00, 0.1045E+00, 0.1054E+00, 0.1063E+00,& - 0.1073E+00, 0.1082E+00, 0.1091E+00, 0.1100E+00,& - 0.1110E+00, 0.1119E+00, 0.1128E+00, 0.1138E+00,& - 0.1147E+00, 0.1157E+00, 0.1166E+00, 0.1176E+00,& - 0.1185E+00, 0.1195E+00, 0.1205E+00, 0.1215E+00,& - 0.1224E+00, 0.1234E+00, 0.1244E+00, 0.1254E+00,& - 0.1264E+00, 0.1274E+00, 0.1284E+00, 0.1294E+00,& - 0.1304E+00, 0.1314E+00, 0.1324E+00, 0.1334E+00,& - 0.1345E+00, 0.1355E+00, 0.1365E+00, 0.1376E+00,& - 0.1386E+00, 0.1396E+00, 0.1407E+00, 0.1418E+00,& - 0.1428E+00, 0.1439E+00, 0.1449E+00, 0.1460E+00,& - 0.1471E+00, 0.1481E+00, 0.1492E+00, 0.1503E+00,& - 0.1515E+00, 0.1526E+00, 0.1537E+00, 0.1548E+00,& - 0.1559E+00, 0.1570E+00, 0.1581E+00, 0.1592E+00,& - 0.1604E+00, 0.1615E+00, 0.1626E+00, 0.1637E+00,& - 0.1649E+00, 0.1660E+00, 0.1672E+00, 0.1683E+00,& - 0.1695E+00, 0.1706E+00, 0.1718E+00, 0.1729E+00,& - 0.1741E+00, 0.1753E+00, 0.1765E+00, 0.1776E+00,& - 0.1788E+00, 0.1800E+00, 0.1812E+00, 0.1824E+00,& - 0.1836E+00, 0.1848E+00, 0.1860E+00, 0.1873E+00,& - 0.1885E+00, 0.1897E+00, 0.1909E+00, 0.1922E+00,& - 0.1934E+00, 0.1946E+00, 0.1959E+00, 0.1971E+00,& - 0.1984E+00, 0.1996E+00, 0.2009E+00, 0.2022E+00,& - 0.2034E+00, 0.2047E+00, 0.2060E+00, 0.2073E+00,& - 0.2085E+00, 0.2098E+00, 0.2111E+00, 0.2124E+00,& - 0.2138E+00, 0.2151E+00, 0.2165E+00, 0.2178E+00,& - 0.2191E+00, 0.2204E+00, 0.2217E+00, 0.2231E+00,& - 0.2244E+00, 0.2258E+00, 0.2271E+00, 0.2285E+00,& - 0.2298E+00, 0.2312E+00, 0.2325E+00, 0.2339E+00,& - 0.2353E+00, 0.2367E+00, 0.2380E+00, 0.2394E+00,& - 0.2408E+00, 0.2422E+00, 0.2436E+00, 0.2450E+00,& - 0.2464E+00, 0.2478E+00, 0.2493E+00, 0.2507E+00,& - 0.2521E+00, 0.2535E+00, 0.2550E+00, 0.2564E+00,& - 0.2579E+00, 0.2593E+00, 0.2608E+00, 0.2622E+00,& - 0.2637E+00, 0.2651E+00, 0.2666E+00, 0.2681E+00,& - 0.2696E+00, 0.2711E+00, 0.2726E+00, 0.2741E+00,& - 0.2756E+00, 0.2772E+00, 0.2787E+00, 0.2802E+00,& - 0.2817E+00, 0.2832E+00, 0.2847E+00, 0.2863E+00,& - 0.2878E+00, 0.2894E+00, 0.2909E+00, 0.2925E+00,& - 0.2940E+00, 0.2956E+00, 0.2971E+00, 0.2987E+00,& - 0.3003E+00, 0.3019E+00, 0.3034E+00, 0.3050E+00,& - 0.3066E+00, 0.3082E+00, 0.3098E+00, 0.3114E+00,& - 0.3131E+00, 0.3147E+00, 0.3163E+00, 0.3179E+00,& - 0.3196E+00, 0.3212E+00, 0.3228E+00, 0.3245E+00,& - 0.3261E+00, 0.3278E+00, 0.3295E+00, 0.3311E+00,& - 0.3328E+00, 0.3345E+00, 0.3362E+00, 0.3379E+00,& - 0.3397E+00, 0.3414E+00, 0.3431E+00, 0.3448E+00,& - 0.3465E+00, 0.3482E+00, 0.3499E+00, 0.3516E+00,& - 0.3534E+00, 0.3551E+00, 0.3569E+00, 0.3586E+00,& - 0.3604E+00, 0.3621E+00, 0.3639E+00, 0.3657E+00,& - 0.3674E+00, 0.3692E+00, 0.3710E+00, 0.3728E+00,& - 0.3746E+00, 0.3764E+00, 0.3782E+00, 0.3800E+00,& - 0.3818E+00, 0.3837E+00, 0.3855E+00, 0.3873E+00,& - 0.3892E+00, 0.3910E+00, 0.3928E+00, 0.3947E+00,& - 0.3966E+00, 0.3984E+00, 0.4003E+00, 0.4023E+00,& - 0.4042E+00, 0.4061E+00, 0.4079E+00, 0.4098E+00,& - 0.4117E+00, 0.4137E+00, 0.4156E+00, 0.4175E+00,& - 0.4194E+00, 0.4214E+00, 0.4233E+00, 0.4252E+00,& - 0.4272E+00, 0.4291E+00, 0.4311E+00, 0.4331E+00,& - 0.4350E+00, 0.4370E+00, 0.4390E+00, 0.4410E+00,& - 0.4430E+00, 0.4450E+00, 0.4470E+00, 0.4490E+00,& - 0.4510E+00, 0.4531E+00, 0.4551E+00, 0.4571E+00,& - 0.4592E+00, 0.4612E+00, 0.4633E+00, 0.4654E+00,& - 0.4675E+00, 0.4696E+00, 0.4717E+00, 0.4737E+00,& - 0.4758E+00, 0.4779E+00, 0.4800E+00, 0.4821E+00,& - 0.4843E+00, 0.4864E+00, 0.4885E+00, 0.4906E+00,& - 0.4928E+00, 0.4949E+00, 0.4971E+00, 0.4992E+00,& - 0.5014E+00, 0.5036E+00, 0.5058E+00, 0.5079E+00,& - 0.5101E+00, 0.5123E+00, 0.5145E+00, 0.5167E+00,& - 0.5190E+00, 0.5212E+00, 0.5234E+00, 0.5256E+00,& - 0.5280E+00, 0.5302E+00, 0.5325E+00, 0.5347E+00,& - 0.5370E+00, 0.5393E+00, 0.5416E+00, 0.5439E+00,& - 0.5462E+00, 0.5485E+00, 0.5508E+00, 0.5531E+00,& - 0.5554E+00, 0.5577E+00, 0.5601E+00, 0.5624E+00,& - 0.5648E+00, 0.5671E+00, 0.5695E+00, 0.5718E+00,& - 0.5742E+00, 0.5766E+00, 0.5790E+00, 0.5814E+00,& - 0.5838E+00, 0.5862E+00, 0.5886E+00, 0.5912E+00,& - 0.5936E+00, 0.5960E+00, 0.5985E+00, 0.6009E+00,& - 0.6034E+00, 0.6059E+00, 0.6083E+00, 0.6108E+00,& - 0.6133E+00, 0.6158E+00, 0.6183E+00, 0.6208E+00,& - 0.6234E+00, 0.6259E+00, 0.6284E+00, 0.6310E+00,& - 0.6335E+00, 0.6361E+00, 0.6386E+00, 0.6412E+00,& - 0.6438E+00, 0.6464E+00, 0.6490E+00, 0.6516E+00,& - 0.6543E+00, 0.6569E+00, 0.6596E+00, 0.6622E+00,& - 0.6648E+00, 0.6675E+00, 0.6701E+00, 0.6728E+00,& - 0.6755E+00, 0.6782E+00, 0.6809E+00, 0.6836E+00,& - 0.6863E+00, 0.6890E+00, 0.6917E+00, 0.6945E+00,& - 0.6972E+00, 0.6999E+00, 0.7027E+00, 0.7055E+00,& - 0.7082E+00, 0.7110E+00, 0.7138E+00, 0.7167E+00,& - 0.7195E+00, 0.7223E+00, 0.7252E+00, 0.7280E+00,& - 0.7308E+00, 0.7337E+00, 0.7366E+00, 0.7394E+00,& - 0.7423E+00, 0.7452E+00, 0.7481E+00, 0.7510E+00,& - 0.7539E+00, 0.7568E+00, 0.7598E+00, 0.7627E+00,& - 0.7656E+00, 0.7686E+00, 0.7716E+00, 0.7745E+00,& - 0.7775E+00, 0.7806E+00, 0.7836E+00, 0.7866E+00,& - 0.7897E+00, 0.7927E+00, 0.7957E+00, 0.7988E+00,& - 0.8019E+00, 0.8049E+00, 0.8080E+00, 0.8111E+00,& - 0.8142E+00, 0.8173E+00, 0.8204E+00, 0.8236E+00,& - 0.8267E+00, 0.8298E+00, 0.8330E+00, 0.8362E+00,& - 0.8394E+00, 0.8426E+00, 0.8458E+00, 0.8491E+00,& - 0.8523E+00, 0.8555E+00, 0.8587E+00, 0.8620E+00,& - 0.8653E+00, 0.8685E+00, 0.8718E+00, 0.8751E+00,& - 0.8784E+00, 0.8817E+00, 0.8851E+00, 0.8884E+00,& - 0.8917E+00, 0.8951E+00, 0.8985E+00, 0.9018E+00,& - 0.9053E+00, 0.9087E+00, 0.9121E+00, 0.9156E+00,& - 0.9190E+00, 0.9225E+00, 0.9259E+00, 0.9294E+00,& - 0.9329E+00, 0.9364E+00, 0.9399E+00, 0.9434E+00,& - 0.9469E+00, 0.9504E+00, 0.9540E+00, 0.9576E+00,& - 0.9611E+00, 0.9647E+00, 0.9684E+00, 0.9720E+00,& - 0.9757E+00, 0.9793E+00, 0.9829E+00, 0.9866E+00,& - 0.9903E+00, 0.9940E+00, 0.9977E+00, 0.1001E+01,& - 0.1005E+01, 0.1009E+01, 0.1013E+01, 0.1016E+01,& - 0.1020E+01, 0.1024E+01, 0.1028E+01, 0.1032E+01,& - 0.1035E+01, 0.1039E+01, 0.1043E+01, 0.1047E+01,& - 0.1051E+01, 0.1055E+01, 0.1059E+01, 0.1063E+01,& - 0.1067E+01, 0.1071E+01, 0.1074E+01, 0.1078E+01,& - 0.1082E+01, 0.1086E+01, 0.1090E+01, 0.1095E+01,& - 0.1099E+01, 0.1103E+01, 0.1107E+01, 0.1111E+01,& - 0.1115E+01, 0.1119E+01, 0.1123E+01, 0.1127E+01,& - 0.1132E+01, 0.1136E+01, 0.1140E+01, 0.1144E+01,& - 0.1148E+01, 0.1153E+01, 0.1157E+01, 0.1161E+01,& - 0.1165E+01, 0.1170E+01, 0.1174E+01, 0.1178E+01,& - 0.1183E+01, 0.1187E+01, 0.1192E+01, 0.1196E+01,& - 0.1201E+01, 0.1205E+01, 0.1209E+01, 0.1214E+01,& - 0.1218E+01, 0.1223E+01, 0.1227E+01, 0.1232E+01,& - 0.1236E+01, 0.1241E+01, 0.1246E+01, 0.1250E+01,& - 0.1255E+01, 0.1260E+01, 0.1264E+01, 0.1269E+01,& - 0.1274E+01, 0.1278E+01, 0.1283E+01, 0.1288E+01,& - 0.1293E+01, 0.1297E+01, 0.1302E+01, 0.1307E+01,& - 0.1312E+01, 0.1317E+01, 0.1322E+01, 0.1327E+01,& - 0.1332E+01, 0.1337E+01, 0.1342E+01, 0.1347E+01,& - 0.1352E+01, 0.1357E+01, 0.1362E+01, 0.1367E+01,& - 0.1372E+01, 0.1377E+01, 0.1382E+01, 0.1387E+01,& - 0.1393E+01, 0.1398E+01, 0.1403E+01, 0.1408E+01,& - 0.1414E+01, 0.1419E+01, 0.1424E+01, 0.1430E+01,& - 0.1435E+01, 0.1440E+01, 0.1446E+01, 0.1451E+01,& - 0.1457E+01, 0.1462E+01, 0.1468E+01, 0.1473E+01,& - 0.1479E+01, 0.1484E+01, 0.1490E+01, 0.1496E+01,& - 0.1501E+01, 0.1507E+01, 0.1513E+01, 0.1518E+01,& - 0.1524E+01, 0.1530E+01, 0.1536E+01, 0.1542E+01,& - 0.1547E+01, 0.1553E+01, 0.1559E+01, 0.1565E+01,& - 0.1571E+01, 0.1577E+01, 0.1583E+01, 0.1589E+01,& - 0.1595E+01, 0.1602E+01, 0.1608E+01, 0.1614E+01,& - 0.1620E+01, 0.1626E+01, 0.1633E+01, 0.1639E+01,& - 0.1645E+01, 0.1652E+01, 0.1658E+01, 0.1664E+01,& - 0.1671E+01, 0.1677E+01, 0.1684E+01, 0.1691E+01,& - 0.1697E+01, 0.1704E+01, 0.1710E+01, 0.1717E+01,& - 0.1724E+01, 0.1731E+01, 0.1737E+01, 0.1744E+01,& - 0.1751E+01, 0.1758E+01, 0.1765E+01, 0.1772E+01,& - 0.1779E+01, 0.1786E+01, 0.1793E+01, 0.1800E+01,& - 0.1807E+01, 0.1815E+01, 0.1822E+01, 0.1829E+01,& - 0.1836E+01, 0.1844E+01, 0.1851E+01, 0.1859E+01,& - 0.1866E+01, 0.1874E+01, 0.1881E+01, 0.1889E+01,& - 0.1896E+01, 0.1904E+01, 0.1912E+01, 0.1920E+01,& - 0.1927E+01, 0.1935E+01, 0.1943E+01, 0.1951E+01,& - 0.1959E+01, 0.1967E+01, 0.1976E+01, 0.1984E+01,& - 0.1992E+01, 0.2000E+01, 0.2009E+01, 0.2017E+01,& - 0.2025E+01, 0.2034E+01, 0.2042E+01, 0.2051E+01,& - 0.2059E+01, 0.2068E+01, 0.2077E+01, 0.2086E+01,& - 0.2095E+01, 0.2104E+01, 0.2113E+01, 0.2122E+01,& - 0.2131E+01, 0.2140E+01, 0.2149E+01, 0.2158E+01,& - 0.2168E+01, 0.2177E+01, 0.2187E+01, 0.2196E+01,& - 0.2206E+01, 0.2215E+01, 0.2225E+01, 0.2235E+01,& - 0.2245E+01, 0.2255E+01, 0.2265E+01, 0.2275E+01,& - 0.2285E+01, 0.2295E+01, 0.2306E+01, 0.2316E+01,& - 0.2327E+01, 0.2337E+01, 0.2348E+01, 0.2359E+01,& - 0.2369E+01, 0.2380E+01, 0.2391E+01, 0.2402E+01,& - 0.2414E+01, 0.2425E+01, 0.2436E+01, 0.2448E+01,& - 0.2459E+01, 0.2471E+01, 0.2482E+01, 0.2494E+01,& - 0.2506E+01, 0.2518E+01, 0.2530E+01, 0.2543E+01,& - 0.2555E+01, 0.2568E+01, 0.2580E+01, 0.2593E+01,& - 0.2606E+01, 0.2618E+01, 0.2632E+01, 0.2645E+01,& - 0.2658E+01, 0.2671E+01, 0.2685E+01, 0.2699E+01,& - 0.2712E+01, 0.2726E+01, 0.2741E+01, 0.2755E+01,& - 0.2769E+01, 0.2784E+01, 0.2798E+01, 0.2813E+01,& - 0.2828E+01, 0.2843E+01, 0.2859E+01, 0.2874E+01,& - 0.2890E+01, 0.2906E+01, 0.2922E+01, 0.2938E+01,& - 0.2955E+01, 0.2971E+01, 0.2988E+01, 0.3005E+01,& - 0.3022E+01, 0.3040E+01, 0.3057E+01, 0.3075E+01,& - 0.3093E+01, 0.3112E+01, 0.3130E+01, 0.3149E+01,& - 0.3168E+01, 0.3188E+01, 0.3207E+01, 0.3227E+01,& - 0.3248E+01, 0.3268E+01, 0.3289E+01, 0.3310E+01,& - 0.3332E+01, 0.3353E+01, 0.3376E+01, 0.3398E+01,& - 0.3421E+01, 0.3444E+01, 0.3468E+01, 0.3492E+01,& - 0.3517E+01, 0.3542E+01, 0.3567E+01, 0.3593E+01,& - 0.3619E+01, 0.3646E+01, 0.3674E+01, 0.3702E+01,& - 0.3731E+01, 0.3760E+01, 0.3790E+01, 0.3820E+01,& - 0.3851E+01, 0.3883E+01, 0.3916E+01, 0.3950E+01,& - 0.3984E+01, 0.4020E+01, 0.4056E+01, 0.4093E+01,& - 0.4131E+01, 0.4171E+01, 0.4212E+01, 0.4253E+01,& - 0.4297E+01, 0.4342E+01, 0.4388E+01, 0.4436E+01,& - 0.4486E+01, 0.4538E+01, 0.4592E+01, 0.4648E+01,& - 0.4707E+01, 0.4769E+01, 0.4834E+01, 0.4902E+01,& - 0.4974E+01, 0.5051E+01, 0.5133E+01, 0.5220E+01,& - 0.5314E+01, 0.5416E+01, 0.5528E+01, 0.5651E+01,& - 0.5788E+01, 0.5944E+01, 0.6125E+01, 0.6340E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 49) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1126E-03, 0.1126E-03,& - 0.1126E-03, 0.2152E-03, 0.2152E-03, 0.3178E-03,& - 0.4205E-03, 0.4205E-03, 0.5231E-03, 0.6257E-03,& - 0.7283E-03, 0.8309E-03, 0.9335E-03, 0.1036E-02,& - 0.1139E-02, 0.1241E-02, 0.1344E-02, 0.1447E-02,& - 0.1549E-02, 0.1652E-02, 0.1857E-02, 0.1960E-02,& - 0.2062E-02, 0.2268E-02, 0.2370E-02, 0.2575E-02,& - 0.2678E-02, 0.2883E-02, 0.2986E-02, 0.3191E-02,& - 0.3396E-02, 0.3602E-02, 0.3704E-02, 0.3909E-02,& - 0.4115E-02, 0.4320E-02, 0.4525E-02, 0.4730E-02,& - 0.4936E-02, 0.5141E-02, 0.5346E-02, 0.5551E-02,& - 0.5859E-02, 0.6064E-02, 0.6270E-02, 0.6475E-02,& - 0.6783E-02, 0.6988E-02, 0.7296E-02, 0.7501E-02,& - 0.7809E-02, 0.8014E-02, 0.8322E-02, 0.8527E-02,& - 0.8835E-02, 0.9143E-02, 0.9451E-02, 0.9656E-02,& - 0.9964E-02, 0.1027E-01, 0.1058E-01, 0.1089E-01,& - 0.1120E-01, 0.1150E-01, 0.1181E-01, 0.1212E-01,& - 0.1243E-01, 0.1273E-01, 0.1314E-01, 0.1345E-01,& - 0.1376E-01, 0.1417E-01, 0.1448E-01, 0.1479E-01,& - 0.1520E-01, 0.1550E-01, 0.1592E-01, 0.1622E-01,& - 0.1663E-01, 0.1704E-01, 0.1735E-01, 0.1776E-01,& - 0.1817E-01, 0.1858E-01, 0.1889E-01, 0.1930E-01,& - 0.1971E-01, 0.2012E-01, 0.2053E-01, 0.2094E-01,& - 0.2135E-01, 0.2176E-01, 0.2217E-01, 0.2269E-01,& - 0.2310E-01, 0.2351E-01, 0.2392E-01, 0.2443E-01,& - 0.2484E-01, 0.2525E-01, 0.2577E-01, 0.2618E-01,& - 0.2669E-01, 0.2710E-01, 0.2761E-01, 0.2802E-01,& - 0.2854E-01, 0.2905E-01, 0.2956E-01, 0.2997E-01,& - 0.3049E-01, 0.3100E-01, 0.3151E-01, 0.3203E-01,& - 0.3254E-01, 0.3305E-01, 0.3357E-01, 0.3408E-01,& - 0.3459E-01, 0.3510E-01, 0.3562E-01, 0.3613E-01,& - 0.3675E-01, 0.3726E-01, 0.3777E-01, 0.3839E-01,& - 0.3890E-01, 0.3941E-01, 0.4003E-01, 0.4054E-01,& - 0.4116E-01, 0.4167E-01, 0.4229E-01, 0.4290E-01,& - 0.4342E-01, 0.4403E-01, 0.4465E-01, 0.4526E-01,& - 0.4588E-01, 0.4639E-01, 0.4701E-01, 0.4762E-01,& - 0.4824E-01, 0.4885E-01, 0.4947E-01, 0.5009E-01,& - 0.5080E-01, 0.5142E-01, 0.5204E-01, 0.5265E-01,& - 0.5327E-01, 0.5399E-01, 0.5460E-01, 0.5532E-01,& - 0.5594E-01, 0.5655E-01, 0.5727E-01, 0.5789E-01,& - 0.5860E-01, 0.5932E-01, 0.5994E-01, 0.6066E-01,& - 0.6137E-01, 0.6209E-01, 0.6271E-01, 0.6343E-01,& - 0.6414E-01, 0.6486E-01, 0.6558E-01, 0.6630E-01,& - 0.6702E-01, 0.6774E-01, 0.6845E-01, 0.6917E-01,& - 0.6989E-01, 0.7071E-01, 0.7143E-01, 0.7215E-01,& - 0.7287E-01, 0.7369E-01, 0.7441E-01, 0.7523E-01,& - 0.7595E-01, 0.7677E-01, 0.7748E-01, 0.7831E-01,& - 0.7902E-01, 0.7984E-01, 0.8067E-01, 0.8138E-01,& - 0.8220E-01, 0.8303E-01, 0.8385E-01, 0.8467E-01,& - 0.8549E-01, 0.8631E-01, 0.8713E-01, 0.8795E-01,& - 0.8877E-01, 0.8959E-01, 0.9041E-01, 0.9123E-01,& - 0.9206E-01, 0.9298E-01, 0.9380E-01, 0.9462E-01,& - 0.9554E-01, 0.9637E-01, 0.9729E-01, 0.9811E-01,& - 0.9903E-01, 0.9985E-01, 0.1008E+00, 0.1016E+00,& - 0.1025E+00, 0.1034E+00, 0.1044E+00, 0.1052E+00,& - 0.1061E+00, 0.1070E+00, 0.1080E+00, 0.1089E+00,& - 0.1098E+00, 0.1107E+00, 0.1117E+00, 0.1126E+00,& - 0.1135E+00, 0.1145E+00, 0.1155E+00, 0.1164E+00,& - 0.1173E+00, 0.1183E+00, 0.1192E+00, 0.1203E+00,& - 0.1212E+00, 0.1222E+00, 0.1231E+00, 0.1242E+00,& - 0.1251E+00, 0.1261E+00, 0.1272E+00, 0.1281E+00,& - 0.1291E+00, 0.1301E+00, 0.1312E+00, 0.1322E+00,& - 0.1332E+00, 0.1342E+00, 0.1353E+00, 0.1363E+00,& - 0.1373E+00, 0.1383E+00, 0.1394E+00, 0.1404E+00,& - 0.1415E+00, 0.1425E+00, 0.1436E+00, 0.1447E+00,& - 0.1457E+00, 0.1467E+00, 0.1479E+00, 0.1489E+00,& - 0.1500E+00, 0.1512E+00, 0.1522E+00, 0.1533E+00,& - 0.1544E+00, 0.1555E+00, 0.1566E+00, 0.1577E+00,& - 0.1589E+00, 0.1600E+00, 0.1611E+00, 0.1622E+00,& - 0.1634E+00, 0.1645E+00, 0.1656E+00, 0.1668E+00,& - 0.1680E+00, 0.1691E+00, 0.1702E+00, 0.1715E+00,& - 0.1726E+00, 0.1737E+00, 0.1750E+00, 0.1761E+00,& - 0.1773E+00, 0.1786E+00, 0.1797E+00, 0.1809E+00,& - 0.1822E+00, 0.1833E+00, 0.1845E+00, 0.1857E+00,& - 0.1870E+00, 0.1882E+00, 0.1894E+00, 0.1907E+00,& - 0.1919E+00, 0.1931E+00, 0.1944E+00, 0.1956E+00,& - 0.1969E+00, 0.1982E+00, 0.1994E+00, 0.2007E+00,& - 0.2020E+00, 0.2033E+00, 0.2045E+00, 0.2059E+00,& - 0.2071E+00, 0.2084E+00, 0.2097E+00, 0.2110E+00,& - 0.2123E+00, 0.2137E+00, 0.2150E+00, 0.2162E+00,& - 0.2176E+00, 0.2189E+00, 0.2202E+00, 0.2216E+00,& - 0.2230E+00, 0.2243E+00, 0.2257E+00, 0.2270E+00,& - 0.2283E+00, 0.2298E+00, 0.2311E+00, 0.2325E+00,& - 0.2339E+00, 0.2353E+00, 0.2366E+00, 0.2381E+00,& - 0.2394E+00, 0.2408E+00, 0.2423E+00, 0.2437E+00,& - 0.2451E+00, 0.2465E+00, 0.2479E+00, 0.2494E+00,& - 0.2508E+00, 0.2522E+00, 0.2537E+00, 0.2551E+00,& - 0.2567E+00, 0.2581E+00, 0.2595E+00, 0.2610E+00,& - 0.2625E+00, 0.2639E+00, 0.2655E+00, 0.2669E+00,& - 0.2685E+00, 0.2699E+00, 0.2714E+00, 0.2730E+00,& - 0.2745E+00, 0.2759E+00, 0.2775E+00, 0.2790E+00,& - 0.2806E+00, 0.2821E+00, 0.2836E+00, 0.2852E+00,& - 0.2867E+00, 0.2884E+00, 0.2899E+00, 0.2914E+00,& - 0.2930E+00, 0.2946E+00, 0.2962E+00, 0.2978E+00,& - 0.2993E+00, 0.3010E+00, 0.3025E+00, 0.3042E+00,& - 0.3058E+00, 0.3074E+00, 0.3090E+00, 0.3106E+00,& - 0.3123E+00, 0.3139E+00, 0.3156E+00, 0.3172E+00,& - 0.3188E+00, 0.3206E+00, 0.3222E+00, 0.3239E+00,& - 0.3255E+00, 0.3273E+00, 0.3289E+00, 0.3306E+00,& - 0.3323E+00, 0.3340E+00, 0.3357E+00, 0.3374E+00,& - 0.3392E+00, 0.3409E+00, 0.3426E+00, 0.3443E+00,& - 0.3460E+00, 0.3478E+00, 0.3495E+00, 0.3513E+00,& - 0.3531E+00, 0.3549E+00, 0.3566E+00, 0.3583E+00,& - 0.3602E+00, 0.3619E+00, 0.3638E+00, 0.3655E+00,& - 0.3674E+00, 0.3691E+00, 0.3710E+00, 0.3728E+00,& - 0.3747E+00, 0.3765E+00, 0.3782E+00, 0.3801E+00,& - 0.3819E+00, 0.3839E+00, 0.3857E+00, 0.3876E+00,& - 0.3894E+00, 0.3913E+00, 0.3932E+00, 0.3951E+00,& - 0.3970E+00, 0.3989E+00, 0.4008E+00, 0.4027E+00,& - 0.4046E+00, 0.4066E+00, 0.4085E+00, 0.4104E+00,& - 0.4123E+00, 0.4143E+00, 0.4162E+00, 0.4182E+00,& - 0.4202E+00, 0.4222E+00, 0.4241E+00, 0.4261E+00,& - 0.4281E+00, 0.4301E+00, 0.4321E+00, 0.4341E+00,& - 0.4361E+00, 0.4381E+00, 0.4401E+00, 0.4422E+00,& - 0.4442E+00, 0.4463E+00, 0.4483E+00, 0.4504E+00,& - 0.4524E+00, 0.4545E+00, 0.4565E+00, 0.4587E+00,& - 0.4608E+00, 0.4628E+00, 0.4650E+00, 0.4670E+00,& - 0.4692E+00, 0.4713E+00, 0.4734E+00, 0.4755E+00,& - 0.4777E+00, 0.4798E+00, 0.4820E+00, 0.4841E+00,& - 0.4863E+00, 0.4885E+00, 0.4906E+00, 0.4928E+00,& - 0.4950E+00, 0.4972E+00, 0.4994E+00, 0.5016E+00,& - 0.5039E+00, 0.5060E+00, 0.5083E+00, 0.5105E+00,& - 0.5128E+00, 0.5150E+00, 0.5173E+00, 0.5196E+00,& - 0.5218E+00, 0.5241E+00, 0.5263E+00, 0.5287E+00,& - 0.5309E+00, 0.5333E+00, 0.5356E+00, 0.5379E+00,& - 0.5402E+00, 0.5425E+00, 0.5449E+00, 0.5473E+00,& - 0.5496E+00, 0.5520E+00, 0.5543E+00, 0.5567E+00,& - 0.5591E+00, 0.5615E+00, 0.5639E+00, 0.5662E+00,& - 0.5687E+00, 0.5712E+00, 0.5735E+00, 0.5760E+00,& - 0.5785E+00, 0.5809E+00, 0.5833E+00, 0.5858E+00,& - 0.5883E+00, 0.5908E+00, 0.5932E+00, 0.5957E+00,& - 0.5983E+00, 0.6007E+00, 0.6033E+00, 0.6057E+00,& - 0.6083E+00, 0.6109E+00, 0.6134E+00, 0.6159E+00,& - 0.6185E+00, 0.6211E+00, 0.6237E+00, 0.6263E+00,& - 0.6288E+00, 0.6315E+00, 0.6341E+00, 0.6367E+00,& - 0.6393E+00, 0.6420E+00, 0.6446E+00, 0.6472E+00,& - 0.6499E+00, 0.6525E+00, 0.6552E+00, 0.6580E+00,& - 0.6606E+00, 0.6633E+00, 0.6661E+00, 0.6688E+00,& - 0.6715E+00, 0.6742E+00, 0.6770E+00, 0.6797E+00,& - 0.6825E+00, 0.6853E+00, 0.6880E+00, 0.6908E+00,& - 0.6936E+00, 0.6965E+00, 0.6992E+00, 0.7020E+00,& - 0.7049E+00, 0.7077E+00, 0.7105E+00, 0.7134E+00,& - 0.7163E+00, 0.7191E+00, 0.7220E+00, 0.7250E+00,& - 0.7279E+00, 0.7307E+00, 0.7337E+00, 0.7366E+00,& - 0.7396E+00, 0.7425E+00, 0.7454E+00, 0.7484E+00,& - 0.7514E+00, 0.7543E+00, 0.7574E+00, 0.7604E+00,& - 0.7634E+00, 0.7664E+00, 0.7694E+00, 0.7725E+00,& - 0.7756E+00, 0.7787E+00, 0.7817E+00, 0.7848E+00,& - 0.7879E+00, 0.7910E+00, 0.7940E+00, 0.7972E+00,& - 0.8003E+00, 0.8035E+00, 0.8067E+00, 0.8097E+00,& - 0.8129E+00, 0.8161E+00, 0.8193E+00, 0.8226E+00,& - 0.8258E+00, 0.8289E+00, 0.8322E+00, 0.8355E+00,& - 0.8387E+00, 0.8420E+00, 0.8453E+00, 0.8485E+00,& - 0.8518E+00, 0.8552E+00, 0.8585E+00, 0.8619E+00,& - 0.8652E+00, 0.8685E+00, 0.8719E+00, 0.8753E+00,& - 0.8787E+00, 0.8821E+00, 0.8855E+00, 0.8889E+00,& - 0.8924E+00, 0.8957E+00, 0.8992E+00, 0.9027E+00,& - 0.9062E+00, 0.9097E+00, 0.9132E+00, 0.9167E+00,& - 0.9203E+00, 0.9238E+00, 0.9273E+00, 0.9308E+00,& - 0.9344E+00, 0.9380E+00, 0.9416E+00, 0.9452E+00,& - 0.9489E+00, 0.9525E+00, 0.9562E+00, 0.9598E+00,& - 0.9635E+00, 0.9672E+00, 0.9709E+00, 0.9745E+00,& - 0.9783E+00, 0.9820E+00, 0.9858E+00, 0.9895E+00,& - 0.9933E+00, 0.9971E+00, 0.1001E+01, 0.1005E+01,& - 0.1009E+01, 0.1012E+01, 0.1016E+01, 0.1020E+01,& - 0.1024E+01, 0.1028E+01, 0.1032E+01, 0.1036E+01,& - 0.1040E+01, 0.1044E+01, 0.1048E+01, 0.1052E+01,& - 0.1056E+01, 0.1060E+01, 0.1064E+01, 0.1068E+01,& - 0.1072E+01, 0.1076E+01, 0.1080E+01, 0.1084E+01,& - 0.1088E+01, 0.1092E+01, 0.1096E+01, 0.1101E+01,& - 0.1105E+01, 0.1109E+01, 0.1113E+01, 0.1117E+01,& - 0.1122E+01, 0.1126E+01, 0.1130E+01, 0.1134E+01,& - 0.1139E+01, 0.1143E+01, 0.1147E+01, 0.1152E+01,& - 0.1156E+01, 0.1160E+01, 0.1165E+01, 0.1169E+01,& - 0.1174E+01, 0.1178E+01, 0.1183E+01, 0.1187E+01,& - 0.1192E+01, 0.1196E+01, 0.1201E+01, 0.1205E+01,& - 0.1210E+01, 0.1214E+01, 0.1219E+01, 0.1224E+01,& - 0.1228E+01, 0.1233E+01, 0.1238E+01, 0.1242E+01,& - 0.1247E+01, 0.1252E+01, 0.1257E+01, 0.1261E+01,& - 0.1266E+01, 0.1271E+01, 0.1276E+01, 0.1281E+01,& - 0.1285E+01, 0.1290E+01, 0.1295E+01, 0.1300E+01,& - 0.1305E+01, 0.1310E+01, 0.1315E+01, 0.1320E+01,& - 0.1325E+01, 0.1330E+01, 0.1335E+01, 0.1340E+01,& - 0.1346E+01, 0.1351E+01, 0.1356E+01, 0.1361E+01,& - 0.1366E+01, 0.1371E+01, 0.1377E+01, 0.1382E+01,& - 0.1387E+01, 0.1393E+01, 0.1398E+01, 0.1403E+01,& - 0.1409E+01, 0.1414E+01, 0.1419E+01, 0.1425E+01,& - 0.1430E+01, 0.1436E+01, 0.1441E+01, 0.1447E+01,& - 0.1453E+01, 0.1458E+01, 0.1464E+01, 0.1469E+01,& - 0.1475E+01, 0.1481E+01, 0.1486E+01, 0.1492E+01,& - 0.1498E+01, 0.1504E+01, 0.1510E+01, 0.1516E+01,& - 0.1521E+01, 0.1527E+01, 0.1533E+01, 0.1539E+01,& - 0.1545E+01, 0.1551E+01, 0.1557E+01, 0.1563E+01,& - 0.1570E+01, 0.1576E+01, 0.1582E+01, 0.1588E+01,& - 0.1594E+01, 0.1601E+01, 0.1607E+01, 0.1613E+01,& - 0.1619E+01, 0.1626E+01, 0.1632E+01, 0.1639E+01,& - 0.1645E+01, 0.1652E+01, 0.1658E+01, 0.1665E+01,& - 0.1671E+01, 0.1678E+01, 0.1685E+01, 0.1691E+01,& - 0.1698E+01, 0.1705E+01, 0.1712E+01, 0.1719E+01,& - 0.1725E+01, 0.1732E+01, 0.1739E+01, 0.1746E+01,& - 0.1753E+01, 0.1760E+01, 0.1767E+01, 0.1775E+01,& - 0.1782E+01, 0.1789E+01, 0.1796E+01, 0.1803E+01,& - 0.1811E+01, 0.1818E+01, 0.1826E+01, 0.1833E+01,& - 0.1841E+01, 0.1848E+01, 0.1856E+01, 0.1863E+01,& - 0.1871E+01, 0.1879E+01, 0.1886E+01, 0.1894E+01,& - 0.1902E+01, 0.1910E+01, 0.1918E+01, 0.1926E+01,& - 0.1934E+01, 0.1942E+01, 0.1950E+01, 0.1958E+01,& - 0.1967E+01, 0.1975E+01, 0.1983E+01, 0.1991E+01,& - 0.2000E+01, 0.2008E+01, 0.2017E+01, 0.2025E+01,& - 0.2034E+01, 0.2043E+01, 0.2051E+01, 0.2060E+01,& - 0.2069E+01, 0.2078E+01, 0.2087E+01, 0.2096E+01,& - 0.2105E+01, 0.2114E+01, 0.2124E+01, 0.2133E+01,& - 0.2142E+01, 0.2152E+01, 0.2161E+01, 0.2171E+01,& - 0.2180E+01, 0.2190E+01, 0.2199E+01, 0.2209E+01,& - 0.2219E+01, 0.2229E+01, 0.2239E+01, 0.2249E+01,& - 0.2259E+01, 0.2270E+01, 0.2280E+01, 0.2290E+01,& - 0.2301E+01, 0.2311E+01, 0.2322E+01, 0.2332E+01,& - 0.2343E+01, 0.2354E+01, 0.2365E+01, 0.2376E+01,& - 0.2387E+01, 0.2398E+01, 0.2410E+01, 0.2421E+01,& - 0.2433E+01, 0.2444E+01, 0.2456E+01, 0.2467E+01,& - 0.2479E+01, 0.2491E+01, 0.2503E+01, 0.2516E+01,& - 0.2528E+01, 0.2540E+01, 0.2553E+01, 0.2565E+01,& - 0.2578E+01, 0.2591E+01, 0.2604E+01, 0.2617E+01,& - 0.2630E+01, 0.2643E+01, 0.2657E+01, 0.2670E+01,& - 0.2684E+01, 0.2698E+01, 0.2712E+01, 0.2726E+01,& - 0.2740E+01, 0.2754E+01, 0.2769E+01, 0.2783E+01,& - 0.2798E+01, 0.2813E+01, 0.2828E+01, 0.2844E+01,& - 0.2859E+01, 0.2875E+01, 0.2890E+01, 0.2906E+01,& - 0.2922E+01, 0.2939E+01, 0.2955E+01, 0.2972E+01,& - 0.2989E+01, 0.3006E+01, 0.3023E+01, 0.3041E+01,& - 0.3059E+01, 0.3077E+01, 0.3095E+01, 0.3113E+01,& - 0.3132E+01, 0.3151E+01, 0.3170E+01, 0.3189E+01,& - 0.3209E+01, 0.3229E+01, 0.3249E+01, 0.3270E+01,& - 0.3291E+01, 0.3312E+01, 0.3333E+01, 0.3355E+01,& - 0.3377E+01, 0.3400E+01, 0.3423E+01, 0.3446E+01,& - 0.3470E+01, 0.3494E+01, 0.3518E+01, 0.3543E+01,& - 0.3568E+01, 0.3594E+01, 0.3620E+01, 0.3647E+01,& - 0.3674E+01, 0.3702E+01, 0.3730E+01, 0.3759E+01,& - 0.3789E+01, 0.3819E+01, 0.3850E+01, 0.3881E+01,& - 0.3914E+01, 0.3947E+01, 0.3980E+01, 0.4015E+01,& - 0.4051E+01, 0.4087E+01, 0.4124E+01, 0.4163E+01,& - 0.4203E+01, 0.4243E+01, 0.4285E+01, 0.4329E+01,& - 0.4373E+01, 0.4420E+01, 0.4466E+01, 0.4517E+01,& - 0.4569E+01, 0.4622E+01, 0.4678E+01, 0.4736E+01,& - 0.4797E+01, 0.4861E+01, 0.4928E+01, 0.4999E+01,& - 0.5073E+01, 0.5152E+01, 0.5237E+01, 0.5327E+01,& - 0.5425E+01, 0.5530E+01, 0.5645E+01, 0.5773E+01,& - 0.5914E+01, 0.6076E+01, 0.6262E+01, 0.6484E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 50) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1151E-03,& - 0.1151E-03, 0.1151E-03, 0.2202E-03, 0.2202E-03,& - 0.3254E-03, 0.3254E-03, 0.4305E-03, 0.4305E-03,& - 0.5356E-03, 0.6407E-03, 0.6407E-03, 0.7458E-03,& - 0.8509E-03, 0.9561E-03, 0.1061E-02, 0.1166E-02,& - 0.1271E-02, 0.1377E-02, 0.1482E-02, 0.1587E-02,& - 0.1692E-02, 0.1797E-02, 0.1902E-02, 0.2007E-02,& - 0.2217E-02, 0.2323E-02, 0.2428E-02, 0.2638E-02,& - 0.2743E-02, 0.2953E-02, 0.3058E-02, 0.3269E-02,& - 0.3374E-02, 0.3584E-02, 0.3689E-02, 0.3899E-02,& - 0.4110E-02, 0.4215E-02, 0.4425E-02, 0.4635E-02,& - 0.4845E-02, 0.5056E-02, 0.5266E-02, 0.5476E-02,& - 0.5686E-02, 0.5897E-02, 0.6107E-02, 0.6317E-02,& - 0.6527E-02, 0.6738E-02, 0.7053E-02, 0.7263E-02,& - 0.7473E-02, 0.7684E-02, 0.7999E-02, 0.8209E-02,& - 0.8525E-02, 0.8735E-02, 0.9050E-02, 0.9260E-02,& - 0.9576E-02, 0.9786E-02, 0.1010E-01, 0.1042E-01,& - 0.1063E-01, 0.1094E-01, 0.1126E-01, 0.1157E-01,& - 0.1189E-01, 0.1220E-01, 0.1241E-01, 0.1273E-01,& - 0.1304E-01, 0.1336E-01, 0.1378E-01, 0.1410E-01,& - 0.1441E-01, 0.1473E-01, 0.1504E-01, 0.1546E-01,& - 0.1578E-01, 0.1609E-01, 0.1651E-01, 0.1683E-01,& - 0.1714E-01, 0.1756E-01, 0.1788E-01, 0.1830E-01,& - 0.1862E-01, 0.1904E-01, 0.1946E-01, 0.1977E-01,& - 0.2019E-01, 0.2061E-01, 0.2103E-01, 0.2145E-01,& - 0.2177E-01, 0.2219E-01, 0.2261E-01, 0.2303E-01,& - 0.2345E-01, 0.2387E-01, 0.2429E-01, 0.2471E-01,& - 0.2524E-01, 0.2566E-01, 0.2608E-01, 0.2650E-01,& - 0.2703E-01, 0.2745E-01, 0.2787E-01, 0.2839E-01,& - 0.2881E-01, 0.2934E-01, 0.2976E-01, 0.3028E-01,& - 0.3070E-01, 0.3123E-01, 0.3165E-01, 0.3218E-01,& - 0.3270E-01, 0.3323E-01, 0.3365E-01, 0.3417E-01,& - 0.3470E-01, 0.3522E-01, 0.3575E-01, 0.3628E-01,& - 0.3680E-01, 0.3733E-01, 0.3785E-01, 0.3838E-01,& - 0.3890E-01, 0.3943E-01, 0.4006E-01, 0.4059E-01,& - 0.4111E-01, 0.4164E-01, 0.4227E-01, 0.4279E-01,& - 0.4342E-01, 0.4395E-01, 0.4458E-01, 0.4511E-01,& - 0.4574E-01, 0.4626E-01, 0.4689E-01, 0.4752E-01,& - 0.4805E-01, 0.4868E-01, 0.4931E-01, 0.4994E-01,& - 0.5057E-01, 0.5120E-01, 0.5183E-01, 0.5246E-01,& - 0.5309E-01, 0.5373E-01, 0.5436E-01, 0.5499E-01,& - 0.5562E-01, 0.5625E-01, 0.5688E-01, 0.5762E-01,& - 0.5825E-01, 0.5888E-01, 0.5961E-01, 0.6024E-01,& - 0.6098E-01, 0.6161E-01, 0.6235E-01, 0.6298E-01,& - 0.6371E-01, 0.6434E-01, 0.6508E-01, 0.6581E-01,& - 0.6645E-01, 0.6718E-01, 0.6792E-01, 0.6865E-01,& - 0.6939E-01, 0.7012E-01, 0.7086E-01, 0.7160E-01,& - 0.7233E-01, 0.7307E-01, 0.7380E-01, 0.7454E-01,& - 0.7527E-01, 0.7601E-01, 0.7685E-01, 0.7759E-01,& - 0.7832E-01, 0.7916E-01, 0.7990E-01, 0.8074E-01,& - 0.8148E-01, 0.8232E-01, 0.8305E-01, 0.8389E-01,& - 0.8463E-01, 0.8547E-01, 0.8631E-01, 0.8715E-01,& - 0.8789E-01, 0.8873E-01, 0.8957E-01, 0.9041E-01,& - 0.9125E-01, 0.9209E-01, 0.9293E-01, 0.9378E-01,& - 0.9462E-01, 0.9546E-01, 0.9630E-01, 0.9714E-01,& - 0.9809E-01, 0.9893E-01, 0.9977E-01, 0.1007E+00,& - 0.1016E+00, 0.1024E+00, 0.1033E+00, 0.1042E+00,& - 0.1051E+00, 0.1061E+00, 0.1069E+00, 0.1079E+00,& - 0.1088E+00, 0.1096E+00, 0.1106E+00, 0.1115E+00,& - 0.1125E+00, 0.1134E+00, 0.1144E+00, 0.1152E+00,& - 0.1162E+00, 0.1172E+00, 0.1182E+00, 0.1191E+00,& - 0.1201E+00, 0.1210E+00, 0.1219E+00, 0.1230E+00,& - 0.1239E+00, 0.1249E+00, 0.1259E+00, 0.1269E+00,& - 0.1279E+00, 0.1289E+00, 0.1299E+00, 0.1309E+00,& - 0.1319E+00, 0.1330E+00, 0.1339E+00, 0.1350E+00,& - 0.1360E+00, 0.1371E+00, 0.1381E+00, 0.1392E+00,& - 0.1402E+00, 0.1413E+00, 0.1423E+00, 0.1434E+00,& - 0.1444E+00, 0.1455E+00, 0.1465E+00, 0.1476E+00,& - 0.1488E+00, 0.1498E+00, 0.1509E+00, 0.1520E+00,& - 0.1531E+00, 0.1542E+00, 0.1553E+00, 0.1564E+00,& - 0.1575E+00, 0.1586E+00, 0.1598E+00, 0.1609E+00,& - 0.1620E+00, 0.1632E+00, 0.1643E+00, 0.1655E+00,& - 0.1666E+00, 0.1678E+00, 0.1689E+00, 0.1701E+00,& - 0.1712E+00, 0.1724E+00, 0.1736E+00, 0.1748E+00,& - 0.1760E+00, 0.1771E+00, 0.1784E+00, 0.1796E+00,& - 0.1807E+00, 0.1820E+00, 0.1831E+00, 0.1844E+00,& - 0.1856E+00, 0.1868E+00, 0.1881E+00, 0.1893E+00,& - 0.1906E+00, 0.1917E+00, 0.1930E+00, 0.1943E+00,& - 0.1955E+00, 0.1968E+00, 0.1981E+00, 0.1993E+00,& - 0.2007E+00, 0.2019E+00, 0.2032E+00, 0.2045E+00,& - 0.2058E+00, 0.2071E+00, 0.2084E+00, 0.2097E+00,& - 0.2110E+00, 0.2123E+00, 0.2136E+00, 0.2150E+00,& - 0.2163E+00, 0.2176E+00, 0.2190E+00, 0.2203E+00,& - 0.2217E+00, 0.2231E+00, 0.2244E+00, 0.2258E+00,& - 0.2272E+00, 0.2285E+00, 0.2299E+00, 0.2313E+00,& - 0.2326E+00, 0.2340E+00, 0.2355E+00, 0.2368E+00,& - 0.2383E+00, 0.2397E+00, 0.2410E+00, 0.2425E+00,& - 0.2440E+00, 0.2454E+00, 0.2468E+00, 0.2483E+00,& - 0.2497E+00, 0.2511E+00, 0.2526E+00, 0.2541E+00,& - 0.2556E+00, 0.2570E+00, 0.2585E+00, 0.2600E+00,& - 0.2614E+00, 0.2629E+00, 0.2645E+00, 0.2660E+00,& - 0.2674E+00, 0.2690E+00, 0.2705E+00, 0.2721E+00,& - 0.2735E+00, 0.2751E+00, 0.2766E+00, 0.2782E+00,& - 0.2797E+00, 0.2813E+00, 0.2828E+00, 0.2844E+00,& - 0.2859E+00, 0.2875E+00, 0.2891E+00, 0.2907E+00,& - 0.2922E+00, 0.2938E+00, 0.2955E+00, 0.2971E+00,& - 0.2987E+00, 0.3003E+00, 0.3019E+00, 0.3036E+00,& - 0.3052E+00, 0.3069E+00, 0.3084E+00, 0.3101E+00,& - 0.3118E+00, 0.3134E+00, 0.3151E+00, 0.3167E+00,& - 0.3184E+00, 0.3201E+00, 0.3218E+00, 0.3235E+00,& - 0.3251E+00, 0.3269E+00, 0.3286E+00, 0.3303E+00,& - 0.3320E+00, 0.3338E+00, 0.3354E+00, 0.3372E+00,& - 0.3389E+00, 0.3407E+00, 0.3425E+00, 0.3442E+00,& - 0.3460E+00, 0.3477E+00, 0.3495E+00, 0.3513E+00,& - 0.3531E+00, 0.3549E+00, 0.3567E+00, 0.3585E+00,& - 0.3603E+00, 0.3620E+00, 0.3639E+00, 0.3657E+00,& - 0.3676E+00, 0.3694E+00, 0.3713E+00, 0.3731E+00,& - 0.3750E+00, 0.3769E+00, 0.3786E+00, 0.3805E+00,& - 0.3824E+00, 0.3843E+00, 0.3862E+00, 0.3881E+00,& - 0.3900E+00, 0.3919E+00, 0.3938E+00, 0.3958E+00,& - 0.3977E+00, 0.3996E+00, 0.4016E+00, 0.4035E+00,& - 0.4055E+00, 0.4075E+00, 0.4093E+00, 0.4113E+00,& - 0.4133E+00, 0.4153E+00, 0.4173E+00, 0.4193E+00,& - 0.4213E+00, 0.4233E+00, 0.4253E+00, 0.4273E+00,& - 0.4293E+00, 0.4314E+00, 0.4334E+00, 0.4355E+00,& - 0.4375E+00, 0.4396E+00, 0.4416E+00, 0.4437E+00,& - 0.4458E+00, 0.4479E+00, 0.4499E+00, 0.4520E+00,& - 0.4541E+00, 0.4562E+00, 0.4584E+00, 0.4605E+00,& - 0.4626E+00, 0.4647E+00, 0.4669E+00, 0.4690E+00,& - 0.4713E+00, 0.4734E+00, 0.4756E+00, 0.4778E+00,& - 0.4799E+00, 0.4821E+00, 0.4843E+00, 0.4865E+00,& - 0.4887E+00, 0.4909E+00, 0.4932E+00, 0.4954E+00,& - 0.4976E+00, 0.4998E+00, 0.5022E+00, 0.5044E+00,& - 0.5067E+00, 0.5090E+00, 0.5112E+00, 0.5135E+00,& - 0.5158E+00, 0.5181E+00, 0.5205E+00, 0.5228E+00,& - 0.5251E+00, 0.5274E+00, 0.5297E+00, 0.5321E+00,& - 0.5344E+00, 0.5369E+00, 0.5392E+00, 0.5416E+00,& - 0.5439E+00, 0.5463E+00, 0.5487E+00, 0.5511E+00,& - 0.5536E+00, 0.5560E+00, 0.5584E+00, 0.5608E+00,& - 0.5632E+00, 0.5658E+00, 0.5682E+00, 0.5707E+00,& - 0.5731E+00, 0.5756E+00, 0.5781E+00, 0.5806E+00,& - 0.5831E+00, 0.5856E+00, 0.5881E+00, 0.5907E+00,& - 0.5932E+00, 0.5957E+00, 0.5983E+00, 0.6009E+00,& - 0.6034E+00, 0.6060E+00, 0.6086E+00, 0.6112E+00,& - 0.6138E+00, 0.6164E+00, 0.6191E+00, 0.6217E+00,& - 0.6243E+00, 0.6269E+00, 0.6296E+00, 0.6323E+00,& - 0.6349E+00, 0.6376E+00, 0.6403E+00, 0.6430E+00,& - 0.6456E+00, 0.6484E+00, 0.6511E+00, 0.6538E+00,& - 0.6566E+00, 0.6593E+00, 0.6620E+00, 0.6649E+00,& - 0.6676E+00, 0.6705E+00, 0.6732E+00, 0.6760E+00,& - 0.6788E+00, 0.6816E+00, 0.6844E+00, 0.6873E+00,& - 0.6901E+00, 0.6930E+00, 0.6959E+00, 0.6987E+00,& - 0.7016E+00, 0.7045E+00, 0.7074E+00, 0.7103E+00,& - 0.7132E+00, 0.7162E+00, 0.7191E+00, 0.7221E+00,& - 0.7250E+00, 0.7280E+00, 0.7310E+00, 0.7339E+00,& - 0.7369E+00, 0.7399E+00, 0.7430E+00, 0.7459E+00,& - 0.7490E+00, 0.7520E+00, 0.7551E+00, 0.7582E+00,& - 0.7613E+00, 0.7643E+00, 0.7675E+00, 0.7705E+00,& - 0.7737E+00, 0.7768E+00, 0.7799E+00, 0.7830E+00,& - 0.7862E+00, 0.7895E+00, 0.7926E+00, 0.7958E+00,& - 0.7990E+00, 0.8022E+00, 0.8054E+00, 0.8087E+00,& - 0.8118E+00, 0.8151E+00, 0.8184E+00, 0.8217E+00,& - 0.8250E+00, 0.8282E+00, 0.8316E+00, 0.8349E+00,& - 0.8382E+00, 0.8416E+00, 0.8450E+00, 0.8483E+00,& - 0.8517E+00, 0.8550E+00, 0.8584E+00, 0.8619E+00,& - 0.8652E+00, 0.8687E+00, 0.8722E+00, 0.8756E+00,& - 0.8791E+00, 0.8826E+00, 0.8861E+00, 0.8895E+00,& - 0.8931E+00, 0.8966E+00, 0.9001E+00, 0.9037E+00,& - 0.9073E+00, 0.9109E+00, 0.9144E+00, 0.9180E+00,& - 0.9217E+00, 0.9253E+00, 0.9289E+00, 0.9326E+00,& - 0.9362E+00, 0.9399E+00, 0.9437E+00, 0.9473E+00,& - 0.9510E+00, 0.9548E+00, 0.9585E+00, 0.9623E+00,& - 0.9661E+00, 0.9698E+00, 0.9736E+00, 0.9774E+00,& - 0.9813E+00, 0.9851E+00, 0.9890E+00, 0.9929E+00,& - 0.9967E+00, 0.1001E+01, 0.1005E+01, 0.1008E+01,& - 0.1012E+01, 0.1016E+01, 0.1020E+01, 0.1024E+01,& - 0.1028E+01, 0.1032E+01, 0.1036E+01, 0.1040E+01,& - 0.1044E+01, 0.1048E+01, 0.1053E+01, 0.1057E+01,& - 0.1061E+01, 0.1065E+01, 0.1069E+01, 0.1073E+01,& - 0.1077E+01, 0.1082E+01, 0.1086E+01, 0.1090E+01,& - 0.1094E+01, 0.1098E+01, 0.1103E+01, 0.1107E+01,& - 0.1111E+01, 0.1116E+01, 0.1120E+01, 0.1124E+01,& - 0.1129E+01, 0.1133E+01, 0.1137E+01, 0.1142E+01,& - 0.1146E+01, 0.1151E+01, 0.1155E+01, 0.1160E+01,& - 0.1164E+01, 0.1169E+01, 0.1173E+01, 0.1178E+01,& - 0.1182E+01, 0.1187E+01, 0.1192E+01, 0.1196E+01,& - 0.1201E+01, 0.1206E+01, 0.1210E+01, 0.1215E+01,& - 0.1220E+01, 0.1224E+01, 0.1229E+01, 0.1234E+01,& - 0.1239E+01, 0.1244E+01, 0.1248E+01, 0.1253E+01,& - 0.1258E+01, 0.1263E+01, 0.1268E+01, 0.1273E+01,& - 0.1278E+01, 0.1283E+01, 0.1288E+01, 0.1293E+01,& - 0.1298E+01, 0.1303E+01, 0.1308E+01, 0.1313E+01,& - 0.1318E+01, 0.1323E+01, 0.1328E+01, 0.1334E+01,& - 0.1339E+01, 0.1344E+01, 0.1349E+01, 0.1355E+01,& - 0.1360E+01, 0.1365E+01, 0.1371E+01, 0.1376E+01,& - 0.1381E+01, 0.1387E+01, 0.1392E+01, 0.1398E+01,& - 0.1403E+01, 0.1409E+01, 0.1414E+01, 0.1420E+01,& - 0.1425E+01, 0.1431E+01, 0.1437E+01, 0.1442E+01,& - 0.1448E+01, 0.1454E+01, 0.1459E+01, 0.1465E+01,& - 0.1471E+01, 0.1477E+01, 0.1482E+01, 0.1488E+01,& - 0.1494E+01, 0.1500E+01, 0.1506E+01, 0.1512E+01,& - 0.1518E+01, 0.1524E+01, 0.1530E+01, 0.1536E+01,& - 0.1542E+01, 0.1549E+01, 0.1555E+01, 0.1561E+01,& - 0.1567E+01, 0.1573E+01, 0.1580E+01, 0.1586E+01,& - 0.1592E+01, 0.1599E+01, 0.1605E+01, 0.1612E+01,& - 0.1618E+01, 0.1625E+01, 0.1631E+01, 0.1638E+01,& - 0.1644E+01, 0.1651E+01, 0.1658E+01, 0.1664E+01,& - 0.1671E+01, 0.1678E+01, 0.1685E+01, 0.1692E+01,& - 0.1699E+01, 0.1705E+01, 0.1712E+01, 0.1719E+01,& - 0.1726E+01, 0.1734E+01, 0.1741E+01, 0.1748E+01,& - 0.1755E+01, 0.1762E+01, 0.1769E+01, 0.1777E+01,& - 0.1784E+01, 0.1791E+01, 0.1799E+01, 0.1806E+01,& - 0.1814E+01, 0.1821E+01, 0.1829E+01, 0.1837E+01,& - 0.1844E+01, 0.1852E+01, 0.1860E+01, 0.1867E+01,& - 0.1875E+01, 0.1883E+01, 0.1891E+01, 0.1899E+01,& - 0.1907E+01, 0.1915E+01, 0.1923E+01, 0.1931E+01,& - 0.1940E+01, 0.1948E+01, 0.1956E+01, 0.1965E+01,& - 0.1973E+01, 0.1981E+01, 0.1990E+01, 0.1999E+01,& - 0.2007E+01, 0.2016E+01, 0.2025E+01, 0.2033E+01,& - 0.2042E+01, 0.2051E+01, 0.2060E+01, 0.2069E+01,& - 0.2078E+01, 0.2087E+01, 0.2097E+01, 0.2106E+01,& - 0.2115E+01, 0.2124E+01, 0.2134E+01, 0.2143E+01,& - 0.2153E+01, 0.2163E+01, 0.2172E+01, 0.2182E+01,& - 0.2192E+01, 0.2202E+01, 0.2212E+01, 0.2222E+01,& - 0.2232E+01, 0.2242E+01, 0.2252E+01, 0.2263E+01,& - 0.2273E+01, 0.2284E+01, 0.2294E+01, 0.2305E+01,& - 0.2316E+01, 0.2326E+01, 0.2337E+01, 0.2348E+01,& - 0.2359E+01, 0.2370E+01, 0.2382E+01, 0.2393E+01,& - 0.2404E+01, 0.2416E+01, 0.2427E+01, 0.2439E+01,& - 0.2451E+01, 0.2463E+01, 0.2475E+01, 0.2487E+01,& - 0.2499E+01, 0.2511E+01, 0.2524E+01, 0.2536E+01,& - 0.2549E+01, 0.2561E+01, 0.2574E+01, 0.2587E+01,& - 0.2600E+01, 0.2613E+01, 0.2627E+01, 0.2640E+01,& - 0.2654E+01, 0.2667E+01, 0.2681E+01, 0.2695E+01,& - 0.2709E+01, 0.2723E+01, 0.2738E+01, 0.2752E+01,& - 0.2767E+01, 0.2781E+01, 0.2796E+01, 0.2811E+01,& - 0.2827E+01, 0.2842E+01, 0.2858E+01, 0.2873E+01,& - 0.2889E+01, 0.2905E+01, 0.2922E+01, 0.2938E+01,& - 0.2955E+01, 0.2971E+01, 0.2988E+01, 0.3006E+01,& - 0.3023E+01, 0.3041E+01, 0.3058E+01, 0.3076E+01,& - 0.3095E+01, 0.3113E+01, 0.3132E+01, 0.3151E+01,& - 0.3170E+01, 0.3190E+01, 0.3209E+01, 0.3229E+01,& - 0.3250E+01, 0.3270E+01, 0.3291E+01, 0.3312E+01,& - 0.3334E+01, 0.3356E+01, 0.3378E+01, 0.3400E+01,& - 0.3423E+01, 0.3446E+01, 0.3470E+01, 0.3494E+01,& - 0.3518E+01, 0.3543E+01, 0.3568E+01, 0.3593E+01,& - 0.3620E+01, 0.3646E+01, 0.3673E+01, 0.3701E+01,& - 0.3729E+01, 0.3757E+01, 0.3787E+01, 0.3817E+01,& - 0.3847E+01, 0.3878E+01, 0.3910E+01, 0.3942E+01,& - 0.3976E+01, 0.4010E+01, 0.4045E+01, 0.4080E+01,& - 0.4117E+01, 0.4155E+01, 0.4193E+01, 0.4233E+01,& - 0.4274E+01, 0.4316E+01, 0.4359E+01, 0.4404E+01,& - 0.4450E+01, 0.4498E+01, 0.4547E+01, 0.4598E+01,& - 0.4652E+01, 0.4707E+01, 0.4764E+01, 0.4825E+01,& - 0.4887E+01, 0.4953E+01, 0.5023E+01, 0.5096E+01,& - 0.5173E+01, 0.5254E+01, 0.5342E+01, 0.5435E+01,& - 0.5536E+01, 0.5645E+01, 0.5764E+01, 0.5895E+01,& - 0.6042E+01, 0.6208E+01, 0.6401E+01, 0.6631E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 51) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1177E-03, 0.1177E-03, 0.1177E-03,& - 0.2253E-03, 0.2253E-03, 0.3330E-03, 0.3330E-03,& - 0.4407E-03, 0.4407E-03, 0.5483E-03, 0.5483E-03,& - 0.6560E-03, 0.7637E-03, 0.7637E-03, 0.8714E-03,& - 0.9790E-03, 0.1087E-02, 0.1087E-02, 0.1194E-02,& - 0.1302E-02, 0.1410E-02, 0.1517E-02, 0.1625E-02,& - 0.1733E-02, 0.1840E-02, 0.1948E-02, 0.2056E-02,& - 0.2271E-02, 0.2379E-02, 0.2486E-02, 0.2594E-02,& - 0.2809E-02, 0.2917E-02, 0.3025E-02, 0.3240E-02,& - 0.3348E-02, 0.3563E-02, 0.3671E-02, 0.3886E-02,& - 0.3994E-02, 0.4209E-02, 0.4317E-02, 0.4532E-02,& - 0.4747E-02, 0.4855E-02, 0.5070E-02, 0.5286E-02,& - 0.5501E-02, 0.5716E-02, 0.5932E-02, 0.6040E-02,& - 0.6255E-02, 0.6470E-02, 0.6686E-02, 0.6901E-02,& - 0.7224E-02, 0.7439E-02, 0.7655E-02, 0.7870E-02,& - 0.8085E-02, 0.8301E-02, 0.8624E-02, 0.8839E-02,& - 0.9054E-02, 0.9377E-02, 0.9593E-02, 0.9916E-02,& - 0.1013E-01, 0.1045E-01, 0.1067E-01, 0.1099E-01,& - 0.1121E-01, 0.1153E-01, 0.1185E-01, 0.1207E-01,& - 0.1239E-01, 0.1272E-01, 0.1304E-01, 0.1336E-01,& - 0.1368E-01, 0.1390E-01, 0.1422E-01, 0.1455E-01,& - 0.1487E-01, 0.1519E-01, 0.1562E-01, 0.1595E-01,& - 0.1627E-01, 0.1659E-01, 0.1691E-01, 0.1724E-01,& - 0.1767E-01, 0.1799E-01, 0.1831E-01, 0.1874E-01,& - 0.1907E-01, 0.1950E-01, 0.1982E-01, 0.2025E-01,& - 0.2057E-01, 0.2101E-01, 0.2133E-01, 0.2176E-01,& - 0.2219E-01, 0.2262E-01, 0.2294E-01, 0.2337E-01,& - 0.2381E-01, 0.2424E-01, 0.2467E-01, 0.2510E-01,& - 0.2553E-01, 0.2596E-01, 0.2639E-01, 0.2682E-01,& - 0.2725E-01, 0.2768E-01, 0.2811E-01, 0.2854E-01,& - 0.2897E-01, 0.2951E-01, 0.2994E-01, 0.3037E-01,& - 0.3091E-01, 0.3134E-01, 0.3188E-01, 0.3231E-01,& - 0.3285E-01, 0.3328E-01, 0.3382E-01, 0.3425E-01,& - 0.3479E-01, 0.3533E-01, 0.3576E-01, 0.3629E-01,& - 0.3683E-01, 0.3737E-01, 0.3791E-01, 0.3834E-01,& - 0.3888E-01, 0.3942E-01, 0.3996E-01, 0.4049E-01,& - 0.4103E-01, 0.4168E-01, 0.4222E-01, 0.4275E-01,& - 0.4329E-01, 0.4383E-01, 0.4448E-01, 0.4502E-01,& - 0.4555E-01, 0.4620E-01, 0.4674E-01, 0.4728E-01,& - 0.4792E-01, 0.4846E-01, 0.4911E-01, 0.4975E-01,& - 0.5029E-01, 0.5094E-01, 0.5158E-01, 0.5212E-01,& - 0.5277E-01, 0.5341E-01, 0.5406E-01, 0.5471E-01,& - 0.5524E-01, 0.5589E-01, 0.5654E-01, 0.5718E-01,& - 0.5783E-01, 0.5858E-01, 0.5923E-01, 0.5987E-01,& - 0.6052E-01, 0.6117E-01, 0.6181E-01, 0.6257E-01,& - 0.6321E-01, 0.6386E-01, 0.6461E-01, 0.6526E-01,& - 0.6601E-01, 0.6666E-01, 0.6741E-01, 0.6806E-01,& - 0.6881E-01, 0.6956E-01, 0.7021E-01, 0.7096E-01,& - 0.7172E-01, 0.7247E-01, 0.7323E-01, 0.7398E-01,& - 0.7463E-01, 0.7538E-01, 0.7613E-01, 0.7689E-01,& - 0.7753E-01, 0.7850E-01, 0.7925E-01, 0.8001E-01,& - 0.8076E-01, 0.8152E-01, 0.8238E-01, 0.8313E-01,& - 0.8388E-01, 0.8475E-01, 0.8550E-01, 0.8636E-01,& - 0.8711E-01, 0.8798E-01, 0.8873E-01, 0.8959E-01,& - 0.9045E-01, 0.9121E-01, 0.9207E-01, 0.9293E-01,& - 0.9379E-01, 0.9454E-01, 0.9541E-01, 0.9627E-01,& - 0.9713E-01, 0.9799E-01, 0.9885E-01, 0.9971E-01,& - 0.1007E+00, 0.1015E+00, 0.1024E+00, 0.1033E+00,& - 0.1041E+00, 0.1051E+00, 0.1060E+00, 0.1068E+00,& - 0.1078E+00, 0.1086E+00, 0.1096E+00, 0.1105E+00,& - 0.1114E+00, 0.1124E+00, 0.1133E+00, 0.1142E+00,& - 0.1152E+00, 0.1161E+00, 0.1170E+00, 0.1180E+00,& - 0.1190E+00, 0.1200E+00, 0.1209E+00, 0.1219E+00,& - 0.1229E+00, 0.1238E+00, 0.1248E+00, 0.1258E+00,& - 0.1268E+00, 0.1278E+00, 0.1288E+00, 0.1298E+00,& - 0.1308E+00, 0.1318E+00, 0.1329E+00, 0.1338E+00,& - 0.1349E+00, 0.1359E+00, 0.1370E+00, 0.1379E+00,& - 0.1390E+00, 0.1401E+00, 0.1412E+00, 0.1421E+00,& - 0.1432E+00, 0.1443E+00, 0.1454E+00, 0.1464E+00,& - 0.1475E+00, 0.1486E+00, 0.1497E+00, 0.1507E+00,& - 0.1519E+00, 0.1530E+00, 0.1541E+00, 0.1552E+00,& - 0.1563E+00, 0.1574E+00, 0.1586E+00, 0.1597E+00,& - 0.1608E+00, 0.1619E+00, 0.1631E+00, 0.1642E+00,& - 0.1654E+00, 0.1666E+00, 0.1677E+00, 0.1688E+00,& - 0.1700E+00, 0.1712E+00, 0.1724E+00, 0.1736E+00,& - 0.1748E+00, 0.1759E+00, 0.1771E+00, 0.1783E+00,& - 0.1795E+00, 0.1808E+00, 0.1820E+00, 0.1832E+00,& - 0.1844E+00, 0.1856E+00, 0.1868E+00, 0.1881E+00,& - 0.1894E+00, 0.1906E+00, 0.1919E+00, 0.1931E+00,& - 0.1944E+00, 0.1956E+00, 0.1969E+00, 0.1982E+00,& - 0.1994E+00, 0.2007E+00, 0.2020E+00, 0.2033E+00,& - 0.2046E+00, 0.2060E+00, 0.2073E+00, 0.2086E+00,& - 0.2099E+00, 0.2112E+00, 0.2126E+00, 0.2138E+00,& - 0.2152E+00, 0.2165E+00, 0.2179E+00, 0.2192E+00,& - 0.2206E+00, 0.2219E+00, 0.2233E+00, 0.2247E+00,& - 0.2261E+00, 0.2274E+00, 0.2288E+00, 0.2302E+00,& - 0.2316E+00, 0.2330E+00, 0.2344E+00, 0.2358E+00,& - 0.2373E+00, 0.2387E+00, 0.2401E+00, 0.2415E+00,& - 0.2430E+00, 0.2444E+00, 0.2459E+00, 0.2473E+00,& - 0.2488E+00, 0.2502E+00, 0.2517E+00, 0.2532E+00,& - 0.2546E+00, 0.2562E+00, 0.2577E+00, 0.2592E+00,& - 0.2607E+00, 0.2622E+00, 0.2637E+00, 0.2652E+00,& - 0.2667E+00, 0.2682E+00, 0.2697E+00, 0.2713E+00,& - 0.2728E+00, 0.2744E+00, 0.2760E+00, 0.2775E+00,& - 0.2791E+00, 0.2806E+00, 0.2822E+00, 0.2838E+00,& - 0.2853E+00, 0.2869E+00, 0.2886E+00, 0.2902E+00,& - 0.2918E+00, 0.2934E+00, 0.2950E+00, 0.2966E+00,& - 0.2983E+00, 0.2999E+00, 0.3015E+00, 0.3032E+00,& - 0.3048E+00, 0.3064E+00, 0.3082E+00, 0.3098E+00,& - 0.3115E+00, 0.3131E+00, 0.3148E+00, 0.3166E+00,& - 0.3182E+00, 0.3199E+00, 0.3216E+00, 0.3233E+00,& - 0.3251E+00, 0.3268E+00, 0.3285E+00, 0.3302E+00,& - 0.3320E+00, 0.3338E+00, 0.3355E+00, 0.3372E+00,& - 0.3391E+00, 0.3408E+00, 0.3426E+00, 0.3443E+00,& - 0.3462E+00, 0.3479E+00, 0.3497E+00, 0.3516E+00,& - 0.3534E+00, 0.3552E+00, 0.3570E+00, 0.3589E+00,& - 0.3607E+00, 0.3625E+00, 0.3644E+00, 0.3662E+00,& - 0.3681E+00, 0.3700E+00, 0.3718E+00, 0.3737E+00,& - 0.3756E+00, 0.3775E+00, 0.3793E+00, 0.3813E+00,& - 0.3832E+00, 0.3851E+00, 0.3871E+00, 0.3889E+00,& - 0.3909E+00, 0.3928E+00, 0.3948E+00, 0.3968E+00,& - 0.3987E+00, 0.4006E+00, 0.4027E+00, 0.4046E+00,& - 0.4066E+00, 0.4086E+00, 0.4106E+00, 0.4126E+00,& - 0.4146E+00, 0.4167E+00, 0.4186E+00, 0.4207E+00,& - 0.4227E+00, 0.4248E+00, 0.4268E+00, 0.4289E+00,& - 0.4310E+00, 0.4331E+00, 0.4351E+00, 0.4371E+00,& - 0.4393E+00, 0.4413E+00, 0.4435E+00, 0.4457E+00,& - 0.4477E+00, 0.4499E+00, 0.4520E+00, 0.4542E+00,& - 0.4563E+00, 0.4585E+00, 0.4606E+00, 0.4628E+00,& - 0.4649E+00, 0.4671E+00, 0.4693E+00, 0.4715E+00,& - 0.4738E+00, 0.4759E+00, 0.4782E+00, 0.4803E+00,& - 0.4826E+00, 0.4848E+00, 0.4871E+00, 0.4894E+00,& - 0.4916E+00, 0.4939E+00, 0.4962E+00, 0.4984E+00,& - 0.5007E+00, 0.5030E+00, 0.5053E+00, 0.5077E+00,& - 0.5099E+00, 0.5123E+00, 0.5147E+00, 0.5169E+00,& - 0.5193E+00, 0.5217E+00, 0.5240E+00, 0.5264E+00,& - 0.5288E+00, 0.5311E+00, 0.5336E+00, 0.5360E+00,& - 0.5384E+00, 0.5408E+00, 0.5432E+00, 0.5457E+00,& - 0.5482E+00, 0.5506E+00, 0.5530E+00, 0.5555E+00,& - 0.5580E+00, 0.5604E+00, 0.5629E+00, 0.5655E+00,& - 0.5680E+00, 0.5704E+00, 0.5730E+00, 0.5755E+00,& - 0.5781E+00, 0.5807E+00, 0.5831E+00, 0.5857E+00,& - 0.5883E+00, 0.5909E+00, 0.5935E+00, 0.5961E+00,& - 0.5987E+00, 0.6013E+00, 0.6039E+00, 0.6066E+00,& - 0.6092E+00, 0.6119E+00, 0.6145E+00, 0.6172E+00,& - 0.6199E+00, 0.6226E+00, 0.6252E+00, 0.6279E+00,& - 0.6306E+00, 0.6334E+00, 0.6361E+00, 0.6388E+00,& - 0.6416E+00, 0.6443E+00, 0.6471E+00, 0.6499E+00,& - 0.6527E+00, 0.6555E+00, 0.6583E+00, 0.6611E+00,& - 0.6639E+00, 0.6667E+00, 0.6696E+00, 0.6724E+00,& - 0.6753E+00, 0.6781E+00, 0.6810E+00, 0.6839E+00,& - 0.6868E+00, 0.6897E+00, 0.6926E+00, 0.6956E+00,& - 0.6985E+00, 0.7015E+00, 0.7044E+00, 0.7074E+00,& - 0.7103E+00, 0.7133E+00, 0.7163E+00, 0.7194E+00,& - 0.7224E+00, 0.7254E+00, 0.7284E+00, 0.7314E+00,& - 0.7345E+00, 0.7375E+00, 0.7407E+00, 0.7437E+00,& - 0.7468E+00, 0.7499E+00, 0.7531E+00, 0.7562E+00,& - 0.7593E+00, 0.7624E+00, 0.7656E+00, 0.7688E+00,& - 0.7720E+00, 0.7751E+00, 0.7784E+00, 0.7816E+00,& - 0.7848E+00, 0.7880E+00, 0.7913E+00, 0.7945E+00,& - 0.7977E+00, 0.8011E+00, 0.8044E+00, 0.8076E+00,& - 0.8110E+00, 0.8143E+00, 0.8177E+00, 0.8210E+00,& - 0.8243E+00, 0.8277E+00, 0.8311E+00, 0.8345E+00,& - 0.8379E+00, 0.8413E+00, 0.8448E+00, 0.8482E+00,& - 0.8517E+00, 0.8551E+00, 0.8586E+00, 0.8621E+00,& - 0.8656E+00, 0.8691E+00, 0.8726E+00, 0.8761E+00,& - 0.8797E+00, 0.8832E+00, 0.8869E+00, 0.8904E+00,& - 0.8940E+00, 0.8977E+00, 0.9013E+00, 0.9050E+00,& - 0.9085E+00, 0.9122E+00, 0.9160E+00, 0.9196E+00,& - 0.9233E+00, 0.9270E+00, 0.9308E+00, 0.9345E+00,& - 0.9382E+00, 0.9420E+00, 0.9458E+00, 0.9497E+00,& - 0.9534E+00, 0.9573E+00, 0.9611E+00, 0.9649E+00,& - 0.9688E+00, 0.9727E+00, 0.9766E+00, 0.9806E+00,& - 0.9844E+00, 0.9884E+00, 0.9924E+00, 0.9963E+00,& - 0.1000E+01, 0.1004E+01, 0.1008E+01, 0.1012E+01,& - 0.1016E+01, 0.1021E+01, 0.1024E+01, 0.1029E+01,& - 0.1033E+01, 0.1037E+01, 0.1041E+01, 0.1045E+01,& - 0.1049E+01, 0.1053E+01, 0.1058E+01, 0.1062E+01,& - 0.1066E+01, 0.1070E+01, 0.1075E+01, 0.1079E+01,& - 0.1083E+01, 0.1087E+01, 0.1092E+01, 0.1096E+01,& - 0.1101E+01, 0.1105E+01, 0.1109E+01, 0.1114E+01,& - 0.1118E+01, 0.1123E+01, 0.1127E+01, 0.1132E+01,& - 0.1136E+01, 0.1141E+01, 0.1145E+01, 0.1150E+01,& - 0.1154E+01, 0.1159E+01, 0.1163E+01, 0.1168E+01,& - 0.1173E+01, 0.1177E+01, 0.1182E+01, 0.1187E+01,& - 0.1191E+01, 0.1196E+01, 0.1201E+01, 0.1206E+01,& - 0.1211E+01, 0.1215E+01, 0.1220E+01, 0.1225E+01,& - 0.1230E+01, 0.1235E+01, 0.1240E+01, 0.1245E+01,& - 0.1250E+01, 0.1255E+01, 0.1260E+01, 0.1265E+01,& - 0.1270E+01, 0.1275E+01, 0.1280E+01, 0.1285E+01,& - 0.1290E+01, 0.1295E+01, 0.1300E+01, 0.1305E+01,& - 0.1311E+01, 0.1316E+01, 0.1321E+01, 0.1326E+01,& - 0.1332E+01, 0.1337E+01, 0.1342E+01, 0.1348E+01,& - 0.1353E+01, 0.1359E+01, 0.1364E+01, 0.1369E+01,& - 0.1375E+01, 0.1380E+01, 0.1386E+01, 0.1392E+01,& - 0.1397E+01, 0.1403E+01, 0.1408E+01, 0.1414E+01,& - 0.1420E+01, 0.1425E+01, 0.1431E+01, 0.1437E+01,& - 0.1443E+01, 0.1448E+01, 0.1454E+01, 0.1460E+01,& - 0.1466E+01, 0.1472E+01, 0.1478E+01, 0.1484E+01,& - 0.1490E+01, 0.1496E+01, 0.1502E+01, 0.1508E+01,& - 0.1514E+01, 0.1520E+01, 0.1527E+01, 0.1533E+01,& - 0.1539E+01, 0.1545E+01, 0.1552E+01, 0.1558E+01,& - 0.1564E+01, 0.1571E+01, 0.1577E+01, 0.1584E+01,& - 0.1590E+01, 0.1597E+01, 0.1603E+01, 0.1610E+01,& - 0.1616E+01, 0.1623E+01, 0.1630E+01, 0.1636E+01,& - 0.1643E+01, 0.1650E+01, 0.1657E+01, 0.1664E+01,& - 0.1670E+01, 0.1677E+01, 0.1684E+01, 0.1691E+01,& - 0.1698E+01, 0.1705E+01, 0.1712E+01, 0.1720E+01,& - 0.1727E+01, 0.1734E+01, 0.1741E+01, 0.1749E+01,& - 0.1756E+01, 0.1763E+01, 0.1771E+01, 0.1778E+01,& - 0.1786E+01, 0.1793E+01, 0.1801E+01, 0.1808E+01,& - 0.1816E+01, 0.1824E+01, 0.1831E+01, 0.1839E+01,& - 0.1847E+01, 0.1855E+01, 0.1863E+01, 0.1871E+01,& - 0.1879E+01, 0.1887E+01, 0.1895E+01, 0.1903E+01,& - 0.1911E+01, 0.1920E+01, 0.1928E+01, 0.1936E+01,& - 0.1945E+01, 0.1953E+01, 0.1962E+01, 0.1970E+01,& - 0.1979E+01, 0.1988E+01, 0.1996E+01, 0.2005E+01,& - 0.2014E+01, 0.2023E+01, 0.2032E+01, 0.2041E+01,& - 0.2050E+01, 0.2059E+01, 0.2068E+01, 0.2077E+01,& - 0.2087E+01, 0.2096E+01, 0.2105E+01, 0.2115E+01,& - 0.2124E+01, 0.2134E+01, 0.2144E+01, 0.2154E+01,& - 0.2163E+01, 0.2173E+01, 0.2183E+01, 0.2193E+01,& - 0.2203E+01, 0.2213E+01, 0.2223E+01, 0.2234E+01,& - 0.2244E+01, 0.2255E+01, 0.2265E+01, 0.2276E+01,& - 0.2286E+01, 0.2297E+01, 0.2308E+01, 0.2319E+01,& - 0.2330E+01, 0.2341E+01, 0.2352E+01, 0.2363E+01,& - 0.2375E+01, 0.2386E+01, 0.2398E+01, 0.2409E+01,& - 0.2421E+01, 0.2433E+01, 0.2445E+01, 0.2457E+01,& - 0.2469E+01, 0.2481E+01, 0.2493E+01, 0.2506E+01,& - 0.2518E+01, 0.2531E+01, 0.2543E+01, 0.2556E+01,& - 0.2569E+01, 0.2582E+01, 0.2595E+01, 0.2609E+01,& - 0.2622E+01, 0.2636E+01, 0.2649E+01, 0.2663E+01,& - 0.2677E+01, 0.2691E+01, 0.2705E+01, 0.2719E+01,& - 0.2734E+01, 0.2748E+01, 0.2763E+01, 0.2778E+01,& - 0.2793E+01, 0.2808E+01, 0.2824E+01, 0.2839E+01,& - 0.2855E+01, 0.2870E+01, 0.2886E+01, 0.2903E+01,& - 0.2919E+01, 0.2935E+01, 0.2952E+01, 0.2969E+01,& - 0.2986E+01, 0.3003E+01, 0.3021E+01, 0.3039E+01,& - 0.3056E+01, 0.3075E+01, 0.3093E+01, 0.3111E+01,& - 0.3130E+01, 0.3149E+01, 0.3169E+01, 0.3188E+01,& - 0.3208E+01, 0.3228E+01, 0.3248E+01, 0.3269E+01,& - 0.3290E+01, 0.3311E+01, 0.3332E+01, 0.3354E+01,& - 0.3376E+01, 0.3399E+01, 0.3422E+01, 0.3445E+01,& - 0.3468E+01, 0.3492E+01, 0.3516E+01, 0.3541E+01,& - 0.3566E+01, 0.3591E+01, 0.3617E+01, 0.3644E+01,& - 0.3671E+01, 0.3698E+01, 0.3726E+01, 0.3754E+01,& - 0.3783E+01, 0.3813E+01, 0.3843E+01, 0.3874E+01,& - 0.3905E+01, 0.3937E+01, 0.3970E+01, 0.4003E+01,& - 0.4038E+01, 0.4073E+01, 0.4109E+01, 0.4145E+01,& - 0.4183E+01, 0.4222E+01, 0.4262E+01, 0.4303E+01,& - 0.4345E+01, 0.4388E+01, 0.4433E+01, 0.4479E+01,& - 0.4527E+01, 0.4576E+01, 0.4627E+01, 0.4680E+01,& - 0.4735E+01, 0.4792E+01, 0.4851E+01, 0.4913E+01,& - 0.4978E+01, 0.5046E+01, 0.5118E+01, 0.5193E+01,& - 0.5273E+01, 0.5357E+01, 0.5447E+01, 0.5544E+01,& - 0.5648E+01, 0.5760E+01, 0.5883E+01, 0.6019E+01,& - 0.6170E+01, 0.6342E+01, 0.6541E+01, 0.6779E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 52) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1203E-03, 0.1203E-03,& - 0.1203E-03, 0.1203E-03, 0.2305E-03, 0.2305E-03,& - 0.3408E-03, 0.3408E-03, 0.3408E-03, 0.4511E-03,& - 0.4511E-03, 0.5613E-03, 0.5613E-03, 0.6716E-03,& - 0.7819E-03, 0.7819E-03, 0.8921E-03, 0.1002E-02,& - 0.1002E-02, 0.1113E-02, 0.1223E-02, 0.1333E-02,& - 0.1443E-02, 0.1443E-02, 0.1554E-02, 0.1664E-02,& - 0.1774E-02, 0.1885E-02, 0.1995E-02, 0.2105E-02,& - 0.2215E-02, 0.2326E-02, 0.2546E-02, 0.2656E-02,& - 0.2767E-02, 0.2877E-02, 0.2987E-02, 0.3208E-02,& - 0.3318E-02, 0.3428E-02, 0.3649E-02, 0.3759E-02,& - 0.3869E-02, 0.4090E-02, 0.4200E-02, 0.4421E-02,& - 0.4531E-02, 0.4752E-02, 0.4972E-02, 0.5082E-02,& - 0.5303E-02, 0.5523E-02, 0.5634E-02, 0.5854E-02,& - 0.6075E-02, 0.6295E-02, 0.6406E-02, 0.6626E-02,& - 0.6847E-02, 0.7067E-02, 0.7288E-02, 0.7508E-02,& - 0.7729E-02, 0.7949E-02, 0.8170E-02, 0.8390E-02,& - 0.8611E-02, 0.8942E-02, 0.9162E-02, 0.9383E-02,& - 0.9603E-02, 0.9934E-02, 0.1015E-01, 0.1038E-01,& - 0.1071E-01, 0.1093E-01, 0.1126E-01, 0.1148E-01,& - 0.1181E-01, 0.1203E-01, 0.1236E-01, 0.1258E-01,& - 0.1291E-01, 0.1324E-01, 0.1346E-01, 0.1379E-01,& - 0.1412E-01, 0.1446E-01, 0.1468E-01, 0.1501E-01,& - 0.1534E-01, 0.1567E-01, 0.1600E-01, 0.1633E-01,& - 0.1666E-01, 0.1699E-01, 0.1732E-01, 0.1765E-01,& - 0.1798E-01, 0.1842E-01, 0.1876E-01, 0.1909E-01,& - 0.1942E-01, 0.1986E-01, 0.2019E-01, 0.2052E-01,& - 0.2096E-01, 0.2129E-01, 0.2173E-01, 0.2206E-01,& - 0.2250E-01, 0.2284E-01, 0.2328E-01, 0.2361E-01,& - 0.2405E-01, 0.2449E-01, 0.2493E-01, 0.2526E-01,& - 0.2570E-01, 0.2614E-01, 0.2658E-01, 0.2703E-01,& - 0.2747E-01, 0.2780E-01, 0.2824E-01, 0.2868E-01,& - 0.2923E-01, 0.2967E-01, 0.3011E-01, 0.3055E-01,& - 0.3100E-01, 0.3144E-01, 0.3199E-01, 0.3243E-01,& - 0.3287E-01, 0.3331E-01, 0.3386E-01, 0.3430E-01,& - 0.3485E-01, 0.3530E-01, 0.3585E-01, 0.3629E-01,& - 0.3684E-01, 0.3728E-01, 0.3783E-01, 0.3838E-01,& - 0.3893E-01, 0.3938E-01, 0.3993E-01, 0.4048E-01,& - 0.4103E-01, 0.4158E-01, 0.4213E-01, 0.4257E-01,& - 0.4312E-01, 0.4368E-01, 0.4434E-01, 0.4489E-01,& - 0.4544E-01, 0.4599E-01, 0.4654E-01, 0.4709E-01,& - 0.4776E-01, 0.4831E-01, 0.4886E-01, 0.4952E-01,& - 0.5007E-01, 0.5062E-01, 0.5128E-01, 0.5184E-01,& - 0.5250E-01, 0.5305E-01, 0.5371E-01, 0.5437E-01,& - 0.5492E-01, 0.5559E-01, 0.5625E-01, 0.5691E-01,& - 0.5746E-01, 0.5812E-01, 0.5878E-01, 0.5944E-01,& - 0.6011E-01, 0.6077E-01, 0.6143E-01, 0.6209E-01,& - 0.6275E-01, 0.6341E-01, 0.6419E-01, 0.6485E-01,& - 0.6551E-01, 0.6617E-01, 0.6694E-01, 0.6760E-01,& - 0.6827E-01, 0.6904E-01, 0.6970E-01, 0.7047E-01,& - 0.7113E-01, 0.7191E-01, 0.7257E-01, 0.7334E-01,& - 0.7411E-01, 0.7477E-01, 0.7554E-01, 0.7632E-01,& - 0.7709E-01, 0.7786E-01, 0.7852E-01, 0.7929E-01,& - 0.8006E-01, 0.8084E-01, 0.8161E-01, 0.8249E-01,& - 0.8326E-01, 0.8403E-01, 0.8481E-01, 0.8558E-01,& - 0.8635E-01, 0.8723E-01, 0.8800E-01, 0.8878E-01,& - 0.8966E-01, 0.9043E-01, 0.9131E-01, 0.9208E-01,& - 0.9297E-01, 0.9374E-01, 0.9462E-01, 0.9550E-01,& - 0.9627E-01, 0.9716E-01, 0.9804E-01, 0.9892E-01,& - 0.9980E-01, 0.1007E+00, 0.1016E+00, 0.1024E+00,& - 0.1033E+00, 0.1042E+00, 0.1051E+00, 0.1060E+00,& - 0.1069E+00, 0.1077E+00, 0.1086E+00, 0.1096E+00,& - 0.1105E+00, 0.1114E+00, 0.1124E+00, 0.1133E+00,& - 0.1142E+00, 0.1151E+00, 0.1161E+00, 0.1170E+00,& - 0.1180E+00, 0.1190E+00, 0.1199E+00, 0.1209E+00,& - 0.1219E+00, 0.1228E+00, 0.1238E+00, 0.1248E+00,& - 0.1258E+00, 0.1267E+00, 0.1278E+00, 0.1288E+00,& - 0.1298E+00, 0.1308E+00, 0.1318E+00, 0.1328E+00,& - 0.1339E+00, 0.1349E+00, 0.1359E+00, 0.1370E+00,& - 0.1380E+00, 0.1391E+00, 0.1401E+00, 0.1412E+00,& - 0.1421E+00, 0.1432E+00, 0.1444E+00, 0.1453E+00,& - 0.1464E+00, 0.1475E+00, 0.1487E+00, 0.1498E+00,& - 0.1507E+00, 0.1518E+00, 0.1530E+00, 0.1541E+00,& - 0.1553E+00, 0.1564E+00, 0.1575E+00, 0.1586E+00,& - 0.1597E+00, 0.1609E+00, 0.1620E+00, 0.1631E+00,& - 0.1643E+00, 0.1654E+00, 0.1666E+00, 0.1677E+00,& - 0.1689E+00, 0.1702E+00, 0.1713E+00, 0.1725E+00,& - 0.1737E+00, 0.1749E+00, 0.1761E+00, 0.1772E+00,& - 0.1784E+00, 0.1796E+00, 0.1809E+00, 0.1821E+00,& - 0.1834E+00, 0.1846E+00, 0.1858E+00, 0.1870E+00,& - 0.1883E+00, 0.1896E+00, 0.1908E+00, 0.1921E+00,& - 0.1933E+00, 0.1946E+00, 0.1958E+00, 0.1972E+00,& - 0.1985E+00, 0.1997E+00, 0.2010E+00, 0.2024E+00,& - 0.2037E+00, 0.2049E+00, 0.2062E+00, 0.2075E+00,& - 0.2089E+00, 0.2102E+00, 0.2116E+00, 0.2129E+00,& - 0.2143E+00, 0.2156E+00, 0.2169E+00, 0.2183E+00,& - 0.2197E+00, 0.2211E+00, 0.2224E+00, 0.2239E+00,& - 0.2252E+00, 0.2266E+00, 0.2279E+00, 0.2294E+00,& - 0.2308E+00, 0.2322E+00, 0.2337E+00, 0.2351E+00,& - 0.2364E+00, 0.2379E+00, 0.2394E+00, 0.2408E+00,& - 0.2423E+00, 0.2437E+00, 0.2451E+00, 0.2466E+00,& - 0.2481E+00, 0.2495E+00, 0.2511E+00, 0.2525E+00,& - 0.2541E+00, 0.2555E+00, 0.2570E+00, 0.2586E+00,& - 0.2600E+00, 0.2616E+00, 0.2631E+00, 0.2647E+00,& - 0.2662E+00, 0.2677E+00, 0.2693E+00, 0.2708E+00,& - 0.2724E+00, 0.2739E+00, 0.2755E+00, 0.2771E+00,& - 0.2787E+00, 0.2802E+00, 0.2819E+00, 0.2834E+00,& - 0.2851E+00, 0.2866E+00, 0.2883E+00, 0.2899E+00,& - 0.2914E+00, 0.2931E+00, 0.2948E+00, 0.2964E+00,& - 0.2981E+00, 0.2997E+00, 0.3014E+00, 0.3030E+00,& - 0.3047E+00, 0.3063E+00, 0.3081E+00, 0.3098E+00,& - 0.3114E+00, 0.3132E+00, 0.3148E+00, 0.3166E+00,& - 0.3182E+00, 0.3200E+00, 0.3218E+00, 0.3234E+00,& - 0.3252E+00, 0.3270E+00, 0.3287E+00, 0.3305E+00,& - 0.3322E+00, 0.3340E+00, 0.3358E+00, 0.3375E+00,& - 0.3394E+00, 0.3412E+00, 0.3429E+00, 0.3448E+00,& - 0.3466E+00, 0.3485E+00, 0.3502E+00, 0.3521E+00,& - 0.3540E+00, 0.3557E+00, 0.3576E+00, 0.3595E+00,& - 0.3614E+00, 0.3632E+00, 0.3651E+00, 0.3670E+00,& - 0.3689E+00, 0.3708E+00, 0.3727E+00, 0.3746E+00,& - 0.3766E+00, 0.3785E+00, 0.3804E+00, 0.3823E+00,& - 0.3843E+00, 0.3862E+00, 0.3882E+00, 0.3901E+00,& - 0.3921E+00, 0.3941E+00, 0.3961E+00, 0.3981E+00,& - 0.4001E+00, 0.4020E+00, 0.4040E+00, 0.4061E+00,& - 0.4081E+00, 0.4101E+00, 0.4122E+00, 0.4142E+00,& - 0.4163E+00, 0.4184E+00, 0.4204E+00, 0.4224E+00,& - 0.4245E+00, 0.4266E+00, 0.4287E+00, 0.4308E+00,& - 0.4329E+00, 0.4350E+00, 0.4372E+00, 0.4393E+00,& - 0.4414E+00, 0.4436E+00, 0.4457E+00, 0.4479E+00,& - 0.4500E+00, 0.4522E+00, 0.4544E+00, 0.4566E+00,& - 0.4588E+00, 0.4610E+00, 0.4632E+00, 0.4655E+00,& - 0.4677E+00, 0.4699E+00, 0.4721E+00, 0.4744E+00,& - 0.4766E+00, 0.4789E+00, 0.4811E+00, 0.4834E+00,& - 0.4857E+00, 0.4879E+00, 0.4903E+00, 0.4926E+00,& - 0.4949E+00, 0.4972E+00, 0.4995E+00, 0.5020E+00,& - 0.5043E+00, 0.5066E+00, 0.5090E+00, 0.5113E+00,& - 0.5138E+00, 0.5161E+00, 0.5185E+00, 0.5209E+00,& - 0.5233E+00, 0.5257E+00, 0.5281E+00, 0.5305E+00,& - 0.5330E+00, 0.5355E+00, 0.5379E+00, 0.5403E+00,& - 0.5429E+00, 0.5453E+00, 0.5478E+00, 0.5504E+00,& - 0.5528E+00, 0.5553E+00, 0.5579E+00, 0.5604E+00,& - 0.5629E+00, 0.5655E+00, 0.5680E+00, 0.5706E+00,& - 0.5732E+00, 0.5757E+00, 0.5784E+00, 0.5810E+00,& - 0.5836E+00, 0.5862E+00, 0.5888E+00, 0.5915E+00,& - 0.5941E+00, 0.5968E+00, 0.5994E+00, 0.6021E+00,& - 0.6047E+00, 0.6075E+00, 0.6101E+00, 0.6129E+00,& - 0.6156E+00, 0.6183E+00, 0.6210E+00, 0.6238E+00,& - 0.6266E+00, 0.6293E+00, 0.6321E+00, 0.6348E+00,& - 0.6377E+00, 0.6404E+00, 0.6433E+00, 0.6461E+00,& - 0.6489E+00, 0.6518E+00, 0.6546E+00, 0.6574E+00,& - 0.6603E+00, 0.6632E+00, 0.6661E+00, 0.6690E+00,& - 0.6719E+00, 0.6749E+00, 0.6777E+00, 0.6807E+00,& - 0.6837E+00, 0.6865E+00, 0.6895E+00, 0.6925E+00,& - 0.6955E+00, 0.6986E+00, 0.7015E+00, 0.7045E+00,& - 0.7076E+00, 0.7106E+00, 0.7137E+00, 0.7168E+00,& - 0.7198E+00, 0.7229E+00, 0.7260E+00, 0.7291E+00,& - 0.7322E+00, 0.7353E+00, 0.7385E+00, 0.7416E+00,& - 0.7448E+00, 0.7480E+00, 0.7510E+00, 0.7542E+00,& - 0.7574E+00, 0.7606E+00, 0.7640E+00, 0.7671E+00,& - 0.7703E+00, 0.7737E+00, 0.7770E+00, 0.7802E+00,& - 0.7835E+00, 0.7868E+00, 0.7901E+00, 0.7934E+00,& - 0.7968E+00, 0.8001E+00, 0.8035E+00, 0.8068E+00,& - 0.8103E+00, 0.8137E+00, 0.8171E+00, 0.8205E+00,& - 0.8239E+00, 0.8274E+00, 0.8308E+00, 0.8343E+00,& - 0.8377E+00, 0.8412E+00, 0.8448E+00, 0.8483E+00,& - 0.8518E+00, 0.8554E+00, 0.8589E+00, 0.8625E+00,& - 0.8661E+00, 0.8697E+00, 0.8732E+00, 0.8769E+00,& - 0.8805E+00, 0.8841E+00, 0.8879E+00, 0.8915E+00,& - 0.8952E+00, 0.8989E+00, 0.9027E+00, 0.9063E+00,& - 0.9101E+00, 0.9138E+00, 0.9177E+00, 0.9214E+00,& - 0.9252E+00, 0.9290E+00, 0.9329E+00, 0.9367E+00,& - 0.9405E+00, 0.9445E+00, 0.9483E+00, 0.9522E+00,& - 0.9561E+00, 0.9600E+00, 0.9640E+00, 0.9679E+00,& - 0.9719E+00, 0.9759E+00, 0.9799E+00, 0.9839E+00,& - 0.9879E+00, 0.9920E+00, 0.9961E+00, 0.1000E+01,& - 0.1004E+01, 0.1008E+01, 0.1012E+01, 0.1017E+01,& - 0.1021E+01, 0.1025E+01, 0.1029E+01, 0.1033E+01,& - 0.1038E+01, 0.1042E+01, 0.1046E+01, 0.1050E+01,& - 0.1055E+01, 0.1059E+01, 0.1063E+01, 0.1068E+01,& - 0.1072E+01, 0.1076E+01, 0.1081E+01, 0.1085E+01,& - 0.1089E+01, 0.1094E+01, 0.1098E+01, 0.1103E+01,& - 0.1107E+01, 0.1112E+01, 0.1116E+01, 0.1121E+01,& - 0.1125E+01, 0.1130E+01, 0.1135E+01, 0.1139E+01,& - 0.1144E+01, 0.1148E+01, 0.1153E+01, 0.1158E+01,& - 0.1163E+01, 0.1167E+01, 0.1172E+01, 0.1177E+01,& - 0.1182E+01, 0.1186E+01, 0.1191E+01, 0.1196E+01,& - 0.1201E+01, 0.1206E+01, 0.1211E+01, 0.1216E+01,& - 0.1221E+01, 0.1226E+01, 0.1230E+01, 0.1236E+01,& - 0.1241E+01, 0.1246E+01, 0.1251E+01, 0.1256E+01,& - 0.1261E+01, 0.1266E+01, 0.1271E+01, 0.1276E+01,& - 0.1282E+01, 0.1287E+01, 0.1292E+01, 0.1297E+01,& - 0.1303E+01, 0.1308E+01, 0.1313E+01, 0.1319E+01,& - 0.1324E+01, 0.1329E+01, 0.1335E+01, 0.1340E+01,& - 0.1346E+01, 0.1351E+01, 0.1357E+01, 0.1362E+01,& - 0.1368E+01, 0.1374E+01, 0.1379E+01, 0.1385E+01,& - 0.1391E+01, 0.1396E+01, 0.1402E+01, 0.1408E+01,& - 0.1414E+01, 0.1419E+01, 0.1425E+01, 0.1431E+01,& - 0.1437E+01, 0.1443E+01, 0.1449E+01, 0.1455E+01,& - 0.1461E+01, 0.1467E+01, 0.1473E+01, 0.1479E+01,& - 0.1485E+01, 0.1491E+01, 0.1497E+01, 0.1504E+01,& - 0.1510E+01, 0.1516E+01, 0.1522E+01, 0.1529E+01,& - 0.1535E+01, 0.1541E+01, 0.1548E+01, 0.1554E+01,& - 0.1561E+01, 0.1567E+01, 0.1574E+01, 0.1580E+01,& - 0.1587E+01, 0.1594E+01, 0.1600E+01, 0.1607E+01,& - 0.1614E+01, 0.1621E+01, 0.1627E+01, 0.1634E+01,& - 0.1641E+01, 0.1648E+01, 0.1655E+01, 0.1662E+01,& - 0.1669E+01, 0.1676E+01, 0.1683E+01, 0.1690E+01,& - 0.1697E+01, 0.1705E+01, 0.1712E+01, 0.1719E+01,& - 0.1727E+01, 0.1734E+01, 0.1741E+01, 0.1749E+01,& - 0.1756E+01, 0.1764E+01, 0.1771E+01, 0.1779E+01,& - 0.1787E+01, 0.1794E+01, 0.1802E+01, 0.1810E+01,& - 0.1818E+01, 0.1826E+01, 0.1834E+01, 0.1841E+01,& - 0.1850E+01, 0.1858E+01, 0.1866E+01, 0.1874E+01,& - 0.1882E+01, 0.1890E+01, 0.1899E+01, 0.1907E+01,& - 0.1915E+01, 0.1924E+01, 0.1932E+01, 0.1941E+01,& - 0.1949E+01, 0.1958E+01, 0.1967E+01, 0.1975E+01,& - 0.1984E+01, 0.1993E+01, 0.2002E+01, 0.2011E+01,& - 0.2020E+01, 0.2029E+01, 0.2038E+01, 0.2048E+01,& - 0.2057E+01, 0.2066E+01, 0.2075E+01, 0.2085E+01,& - 0.2094E+01, 0.2104E+01, 0.2114E+01, 0.2123E+01,& - 0.2133E+01, 0.2143E+01, 0.2153E+01, 0.2163E+01,& - 0.2173E+01, 0.2183E+01, 0.2193E+01, 0.2203E+01,& - 0.2214E+01, 0.2224E+01, 0.2235E+01, 0.2245E+01,& - 0.2256E+01, 0.2266E+01, 0.2277E+01, 0.2288E+01,& - 0.2299E+01, 0.2310E+01, 0.2321E+01, 0.2332E+01,& - 0.2344E+01, 0.2355E+01, 0.2366E+01, 0.2378E+01,& - 0.2390E+01, 0.2401E+01, 0.2413E+01, 0.2425E+01,& - 0.2437E+01, 0.2449E+01, 0.2461E+01, 0.2474E+01,& - 0.2486E+01, 0.2498E+01, 0.2511E+01, 0.2524E+01,& - 0.2537E+01, 0.2549E+01, 0.2563E+01, 0.2576E+01,& - 0.2589E+01, 0.2602E+01, 0.2616E+01, 0.2629E+01,& - 0.2643E+01, 0.2657E+01, 0.2671E+01, 0.2685E+01,& - 0.2699E+01, 0.2714E+01, 0.2728E+01, 0.2743E+01,& - 0.2758E+01, 0.2773E+01, 0.2788E+01, 0.2803E+01,& - 0.2819E+01, 0.2834E+01, 0.2850E+01, 0.2866E+01,& - 0.2882E+01, 0.2898E+01, 0.2915E+01, 0.2931E+01,& - 0.2948E+01, 0.2965E+01, 0.2982E+01, 0.3000E+01,& - 0.3017E+01, 0.3035E+01, 0.3053E+01, 0.3071E+01,& - 0.3090E+01, 0.3108E+01, 0.3127E+01, 0.3146E+01,& - 0.3165E+01, 0.3185E+01, 0.3205E+01, 0.3225E+01,& - 0.3245E+01, 0.3266E+01, 0.3287E+01, 0.3308E+01,& - 0.3329E+01, 0.3351E+01, 0.3373E+01, 0.3396E+01,& - 0.3418E+01, 0.3441E+01, 0.3465E+01, 0.3489E+01,& - 0.3513E+01, 0.3538E+01, 0.3562E+01, 0.3588E+01,& - 0.3614E+01, 0.3640E+01, 0.3667E+01, 0.3694E+01,& - 0.3721E+01, 0.3750E+01, 0.3778E+01, 0.3808E+01,& - 0.3837E+01, 0.3868E+01, 0.3899E+01, 0.3930E+01,& - 0.3963E+01, 0.3996E+01, 0.4030E+01, 0.4064E+01,& - 0.4099E+01, 0.4136E+01, 0.4173E+01, 0.4211E+01,& - 0.4250E+01, 0.4290E+01, 0.4331E+01, 0.4373E+01,& - 0.4416E+01, 0.4461E+01, 0.4507E+01, 0.4555E+01,& - 0.4604E+01, 0.4655E+01, 0.4700E+01, 0.4762E+01,& - 0.4818E+01, 0.4877E+01, 0.4938E+01, 0.5002E+01,& - 0.5069E+01, 0.5140E+01, 0.5213E+01, 0.5291E+01,& - 0.5373E+01, 0.5461E+01, 0.5553E+01, 0.5653E+01,& - 0.5760E+01, 0.5876E+01, 0.6003E+01, 0.6143E+01,& - 0.6300E+01, 0.6477E+01, 0.6683E+01, 0.6928E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 53) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1229E-03, 0.1229E-03, 0.1229E-03, 0.1229E-03,& - 0.2358E-03, 0.2358E-03, 0.2358E-03, 0.3487E-03,& - 0.3487E-03, 0.4617E-03, 0.4617E-03, 0.4617E-03,& - 0.5746E-03, 0.5746E-03, 0.6875E-03, 0.8004E-03,& - 0.8004E-03, 0.9133E-03, 0.9133E-03, 0.1026E-02,& - 0.1139E-02, 0.1139E-02, 0.1252E-02, 0.1365E-02,& - 0.1478E-02, 0.1478E-02, 0.1591E-02, 0.1704E-02,& - 0.1817E-02, 0.1930E-02, 0.2042E-02, 0.2155E-02,& - 0.2268E-02, 0.2381E-02, 0.2494E-02, 0.2607E-02,& - 0.2720E-02, 0.2833E-02, 0.2946E-02, 0.3059E-02,& - 0.3285E-02, 0.3397E-02, 0.3510E-02, 0.3623E-02,& - 0.3849E-02, 0.3962E-02, 0.4075E-02, 0.4301E-02,& - 0.4414E-02, 0.4527E-02, 0.4752E-02, 0.4865E-02,& - 0.5091E-02, 0.5204E-02, 0.5430E-02, 0.5656E-02,& - 0.5769E-02, 0.5994E-02, 0.6220E-02, 0.6333E-02,& - 0.6559E-02, 0.6785E-02, 0.7011E-02, 0.7124E-02,& - 0.7349E-02, 0.7575E-02, 0.7801E-02, 0.8027E-02,& - 0.8253E-02, 0.8479E-02, 0.8704E-02, 0.8930E-02,& - 0.9156E-02, 0.9382E-02, 0.9608E-02, 0.9834E-02,& - 0.1017E-01, 0.1040E-01, 0.1062E-01, 0.1085E-01,& - 0.1119E-01, 0.1141E-01, 0.1164E-01, 0.1198E-01,& - 0.1220E-01, 0.1243E-01, 0.1277E-01, 0.1300E-01,& - 0.1333E-01, 0.1367E-01, 0.1390E-01, 0.1424E-01,& - 0.1446E-01, 0.1480E-01, 0.1514E-01, 0.1548E-01,& - 0.1571E-01, 0.1604E-01, 0.1638E-01, 0.1672E-01,& - 0.1706E-01, 0.1740E-01, 0.1774E-01, 0.1808E-01,& - 0.1842E-01, 0.1875E-01, 0.1909E-01, 0.1943E-01,& - 0.1977E-01, 0.2011E-01, 0.2045E-01, 0.2090E-01,& - 0.2124E-01, 0.2158E-01, 0.2192E-01, 0.2237E-01,& - 0.2271E-01, 0.2316E-01, 0.2350E-01, 0.2384E-01,& - 0.2429E-01, 0.2463E-01, 0.2508E-01, 0.2553E-01,& - 0.2587E-01, 0.2632E-01, 0.2677E-01, 0.2711E-01,& - 0.2756E-01, 0.2801E-01, 0.2846E-01, 0.2892E-01,& - 0.2925E-01, 0.2971E-01, 0.3016E-01, 0.3061E-01,& - 0.3106E-01, 0.3151E-01, 0.3196E-01, 0.3242E-01,& - 0.3298E-01, 0.3343E-01, 0.3388E-01, 0.3434E-01,& - 0.3479E-01, 0.3535E-01, 0.3580E-01, 0.3626E-01,& - 0.3682E-01, 0.3727E-01, 0.3784E-01, 0.3829E-01,& - 0.3885E-01, 0.3930E-01, 0.3987E-01, 0.4032E-01,& - 0.4089E-01, 0.4145E-01, 0.4201E-01, 0.4247E-01,& - 0.4303E-01, 0.4360E-01, 0.4416E-01, 0.4472E-01,& - 0.4529E-01, 0.4585E-01, 0.4642E-01, 0.4698E-01,& - 0.4755E-01, 0.4811E-01, 0.4868E-01, 0.4924E-01,& - 0.4981E-01, 0.5037E-01, 0.5105E-01, 0.5161E-01,& - 0.5218E-01, 0.5285E-01, 0.5342E-01, 0.5398E-01,& - 0.5466E-01, 0.5523E-01, 0.5590E-01, 0.5647E-01,& - 0.5714E-01, 0.5782E-01, 0.5839E-01, 0.5906E-01,& - 0.5974E-01, 0.6042E-01, 0.6098E-01, 0.6166E-01,& - 0.6234E-01, 0.6302E-01, 0.6369E-01, 0.6437E-01,& - 0.6505E-01, 0.6573E-01, 0.6640E-01, 0.6708E-01,& - 0.6776E-01, 0.6855E-01, 0.6923E-01, 0.6990E-01,& - 0.7058E-01, 0.7137E-01, 0.7205E-01, 0.7284E-01,& - 0.7352E-01, 0.7420E-01, 0.7499E-01, 0.7578E-01,& - 0.7645E-01, 0.7724E-01, 0.7792E-01, 0.7871E-01,& - 0.7950E-01, 0.8029E-01, 0.8097E-01, 0.8176E-01,& - 0.8255E-01, 0.8334E-01, 0.8413E-01, 0.8492E-01,& - 0.8571E-01, 0.8650E-01, 0.8729E-01, 0.8808E-01,& - 0.8887E-01, 0.8978E-01, 0.9057E-01, 0.9136E-01,& - 0.9226E-01, 0.9305E-01, 0.9384E-01, 0.9475E-01,& - 0.9554E-01, 0.9644E-01, 0.9723E-01, 0.9813E-01,& - 0.9892E-01, 0.9983E-01, 0.1007E+00, 0.1016E+00,& - 0.1024E+00, 0.1033E+00, 0.1042E+00, 0.1051E+00,& - 0.1060E+00, 0.1069E+00, 0.1078E+00, 0.1087E+00,& - 0.1097E+00, 0.1106E+00, 0.1115E+00, 0.1124E+00,& - 0.1134E+00, 0.1143E+00, 0.1152E+00, 0.1162E+00,& - 0.1171E+00, 0.1180E+00, 0.1190E+00, 0.1199E+00,& - 0.1209E+00, 0.1220E+00, 0.1229E+00, 0.1239E+00,& - 0.1249E+00, 0.1258E+00, 0.1268E+00, 0.1278E+00,& - 0.1288E+00, 0.1299E+00, 0.1309E+00, 0.1319E+00,& - 0.1329E+00, 0.1339E+00, 0.1349E+00, 0.1360E+00,& - 0.1370E+00, 0.1381E+00, 0.1391E+00, 0.1401E+00,& - 0.1412E+00, 0.1423E+00, 0.1433E+00, 0.1444E+00,& - 0.1454E+00, 0.1466E+00, 0.1477E+00, 0.1487E+00,& - 0.1498E+00, 0.1510E+00, 0.1520E+00, 0.1531E+00,& - 0.1543E+00, 0.1554E+00, 0.1565E+00, 0.1576E+00,& - 0.1588E+00, 0.1599E+00, 0.1610E+00, 0.1622E+00,& - 0.1633E+00, 0.1645E+00, 0.1657E+00, 0.1668E+00,& - 0.1680E+00, 0.1692E+00, 0.1704E+00, 0.1715E+00,& - 0.1728E+00, 0.1739E+00, 0.1751E+00, 0.1764E+00,& - 0.1775E+00, 0.1788E+00, 0.1800E+00, 0.1812E+00,& - 0.1825E+00, 0.1836E+00, 0.1849E+00, 0.1862E+00,& - 0.1874E+00, 0.1887E+00, 0.1899E+00, 0.1912E+00,& - 0.1924E+00, 0.1938E+00, 0.1950E+00, 0.1963E+00,& - 0.1976E+00, 0.1989E+00, 0.2002E+00, 0.2015E+00,& - 0.2028E+00, 0.2042E+00, 0.2054E+00, 0.2068E+00,& - 0.2081E+00, 0.2095E+00, 0.2108E+00, 0.2122E+00,& - 0.2135E+00, 0.2149E+00, 0.2162E+00, 0.2176E+00,& - 0.2190E+00, 0.2203E+00, 0.2218E+00, 0.2231E+00,& - 0.2245E+00, 0.2260E+00, 0.2273E+00, 0.2288E+00,& - 0.2301E+00, 0.2316E+00, 0.2330E+00, 0.2344E+00,& - 0.2359E+00, 0.2374E+00, 0.2388E+00, 0.2402E+00,& - 0.2416E+00, 0.2431E+00, 0.2446E+00, 0.2461E+00,& - 0.2476E+00, 0.2491E+00, 0.2506E+00, 0.2520E+00,& - 0.2536E+00, 0.2551E+00, 0.2567E+00, 0.2581E+00,& - 0.2597E+00, 0.2612E+00, 0.2628E+00, 0.2642E+00,& - 0.2658E+00, 0.2674E+00, 0.2690E+00, 0.2706E+00,& - 0.2721E+00, 0.2737E+00, 0.2753E+00, 0.2769E+00,& - 0.2785E+00, 0.2800E+00, 0.2816E+00, 0.2833E+00,& - 0.2849E+00, 0.2866E+00, 0.2882E+00, 0.2899E+00,& - 0.2914E+00, 0.2931E+00, 0.2947E+00, 0.2964E+00,& - 0.2981E+00, 0.2998E+00, 0.3015E+00, 0.3032E+00,& - 0.3049E+00, 0.3066E+00, 0.3083E+00, 0.3100E+00,& - 0.3117E+00, 0.3133E+00, 0.3152E+00, 0.3168E+00,& - 0.3187E+00, 0.3203E+00, 0.3222E+00, 0.3239E+00,& - 0.3257E+00, 0.3275E+00, 0.3292E+00, 0.3310E+00,& - 0.3328E+00, 0.3346E+00, 0.3364E+00, 0.3382E+00,& - 0.3400E+00, 0.3418E+00, 0.3437E+00, 0.3455E+00,& - 0.3473E+00, 0.3493E+00, 0.3511E+00, 0.3530E+00,& - 0.3548E+00, 0.3567E+00, 0.3586E+00, 0.3604E+00,& - 0.3624E+00, 0.3643E+00, 0.3662E+00, 0.3681E+00,& - 0.3700E+00, 0.3720E+00, 0.3739E+00, 0.3758E+00,& - 0.3778E+00, 0.3797E+00, 0.3818E+00, 0.3837E+00,& - 0.3857E+00, 0.3876E+00, 0.3897E+00, 0.3916E+00,& - 0.3936E+00, 0.3957E+00, 0.3977E+00, 0.3997E+00,& - 0.4018E+00, 0.4038E+00, 0.4058E+00, 0.4079E+00,& - 0.4100E+00, 0.4120E+00, 0.4141E+00, 0.4162E+00,& - 0.4182E+00, 0.4204E+00, 0.4225E+00, 0.4246E+00,& - 0.4267E+00, 0.4289E+00, 0.4310E+00, 0.4332E+00,& - 0.4353E+00, 0.4374E+00, 0.4396E+00, 0.4418E+00,& - 0.4440E+00, 0.4461E+00, 0.4484E+00, 0.4505E+00,& - 0.4528E+00, 0.4551E+00, 0.4572E+00, 0.4595E+00,& - 0.4617E+00, 0.4640E+00, 0.4662E+00, 0.4685E+00,& - 0.4708E+00, 0.4730E+00, 0.4754E+00, 0.4776E+00,& - 0.4799E+00, 0.4823E+00, 0.4845E+00, 0.4869E+00,& - 0.4893E+00, 0.4916E+00, 0.4939E+00, 0.4963E+00,& - 0.4986E+00, 0.5010E+00, 0.5034E+00, 0.5059E+00,& - 0.5082E+00, 0.5106E+00, 0.5131E+00, 0.5155E+00,& - 0.5180E+00, 0.5203E+00, 0.5228E+00, 0.5253E+00,& - 0.5278E+00, 0.5303E+00, 0.5327E+00, 0.5352E+00,& - 0.5377E+00, 0.5402E+00, 0.5428E+00, 0.5453E+00,& - 0.5479E+00, 0.5504E+00, 0.5530E+00, 0.5554E+00,& - 0.5580E+00, 0.5606E+00, 0.5632E+00, 0.5658E+00,& - 0.5684E+00, 0.5710E+00, 0.5737E+00, 0.5763E+00,& - 0.5789E+00, 0.5816E+00, 0.5843E+00, 0.5869E+00,& - 0.5897E+00, 0.5924E+00, 0.5951E+00, 0.5978E+00,& - 0.6005E+00, 0.6032E+00, 0.6059E+00, 0.6087E+00,& - 0.6114E+00, 0.6143E+00, 0.6170E+00, 0.6198E+00,& - 0.6226E+00, 0.6253E+00, 0.6282E+00, 0.6310E+00,& - 0.6339E+00, 0.6367E+00, 0.6396E+00, 0.6424E+00,& - 0.6453E+00, 0.6481E+00, 0.6511E+00, 0.6540E+00,& - 0.6569E+00, 0.6599E+00, 0.6628E+00, 0.6658E+00,& - 0.6687E+00, 0.6716E+00, 0.6746E+00, 0.6776E+00,& - 0.6805E+00, 0.6836E+00, 0.6866E+00, 0.6897E+00,& - 0.6927E+00, 0.6958E+00, 0.6988E+00, 0.7019E+00,& - 0.7049E+00, 0.7081E+00, 0.7111E+00, 0.7143E+00,& - 0.7175E+00, 0.7205E+00, 0.7237E+00, 0.7268E+00,& - 0.7300E+00, 0.7333E+00, 0.7364E+00, 0.7396E+00,& - 0.7429E+00, 0.7460E+00, 0.7493E+00, 0.7526E+00,& - 0.7559E+00, 0.7591E+00, 0.7624E+00, 0.7657E+00,& - 0.7691E+00, 0.7723E+00, 0.7756E+00, 0.7790E+00,& - 0.7824E+00, 0.7858E+00, 0.7892E+00, 0.7926E+00,& - 0.7959E+00, 0.7993E+00, 0.8028E+00, 0.8062E+00,& - 0.8097E+00, 0.8132E+00, 0.8166E+00, 0.8201E+00,& - 0.8236E+00, 0.8272E+00, 0.8307E+00, 0.8342E+00,& - 0.8378E+00, 0.8415E+00, 0.8450E+00, 0.8486E+00,& - 0.8522E+00, 0.8558E+00, 0.8595E+00, 0.8631E+00,& - 0.8667E+00, 0.8705E+00, 0.8742E+00, 0.8778E+00,& - 0.8815E+00, 0.8854E+00, 0.8891E+00, 0.8928E+00,& - 0.8966E+00, 0.9004E+00, 0.9042E+00, 0.9081E+00,& - 0.9119E+00, 0.9158E+00, 0.9196E+00, 0.9234E+00,& - 0.9274E+00, 0.9312E+00, 0.9352E+00, 0.9391E+00,& - 0.9431E+00, 0.9470E+00, 0.9510E+00, 0.9550E+00,& - 0.9590E+00, 0.9631E+00, 0.9671E+00, 0.9712E+00,& - 0.9753E+00, 0.9793E+00, 0.9834E+00, 0.9876E+00,& - 0.9916E+00, 0.9958E+00, 0.1000E+01, 0.1004E+01,& - 0.1008E+01, 0.1013E+01, 0.1017E+01, 0.1021E+01,& - 0.1025E+01, 0.1030E+01, 0.1034E+01, 0.1038E+01,& - 0.1043E+01, 0.1047E+01, 0.1051E+01, 0.1056E+01,& - 0.1060E+01, 0.1064E+01, 0.1069E+01, 0.1073E+01,& - 0.1078E+01, 0.1082E+01, 0.1087E+01, 0.1091E+01,& - 0.1096E+01, 0.1100E+01, 0.1105E+01, 0.1110E+01,& - 0.1114E+01, 0.1119E+01, 0.1124E+01, 0.1128E+01,& - 0.1133E+01, 0.1138E+01, 0.1142E+01, 0.1147E+01,& - 0.1152E+01, 0.1157E+01, 0.1162E+01, 0.1166E+01,& - 0.1171E+01, 0.1176E+01, 0.1181E+01, 0.1186E+01,& - 0.1191E+01, 0.1196E+01, 0.1201E+01, 0.1206E+01,& - 0.1211E+01, 0.1216E+01, 0.1221E+01, 0.1226E+01,& - 0.1231E+01, 0.1236E+01, 0.1241E+01, 0.1247E+01,& - 0.1252E+01, 0.1257E+01, 0.1262E+01, 0.1267E+01,& - 0.1273E+01, 0.1278E+01, 0.1283E+01, 0.1289E+01,& - 0.1294E+01, 0.1300E+01, 0.1305E+01, 0.1310E+01,& - 0.1316E+01, 0.1321E+01, 0.1327E+01, 0.1333E+01,& - 0.1338E+01, 0.1344E+01, 0.1349E+01, 0.1355E+01,& - 0.1361E+01, 0.1366E+01, 0.1372E+01, 0.1378E+01,& - 0.1384E+01, 0.1389E+01, 0.1395E+01, 0.1401E+01,& - 0.1407E+01, 0.1413E+01, 0.1419E+01, 0.1425E+01,& - 0.1431E+01, 0.1437E+01, 0.1443E+01, 0.1449E+01,& - 0.1455E+01, 0.1461E+01, 0.1467E+01, 0.1473E+01,& - 0.1480E+01, 0.1486E+01, 0.1492E+01, 0.1499E+01,& - 0.1505E+01, 0.1511E+01, 0.1518E+01, 0.1524E+01,& - 0.1531E+01, 0.1537E+01, 0.1544E+01, 0.1550E+01,& - 0.1557E+01, 0.1563E+01, 0.1570E+01, 0.1577E+01,& - 0.1584E+01, 0.1590E+01, 0.1597E+01, 0.1604E+01,& - 0.1611E+01, 0.1618E+01, 0.1625E+01, 0.1632E+01,& - 0.1639E+01, 0.1646E+01, 0.1653E+01, 0.1660E+01,& - 0.1667E+01, 0.1674E+01, 0.1682E+01, 0.1689E+01,& - 0.1696E+01, 0.1704E+01, 0.1711E+01, 0.1718E+01,& - 0.1726E+01, 0.1733E+01, 0.1741E+01, 0.1748E+01,& - 0.1756E+01, 0.1764E+01, 0.1772E+01, 0.1779E+01,& - 0.1787E+01, 0.1795E+01, 0.1803E+01, 0.1811E+01,& - 0.1819E+01, 0.1827E+01, 0.1835E+01, 0.1843E+01,& - 0.1851E+01, 0.1859E+01, 0.1868E+01, 0.1876E+01,& - 0.1884E+01, 0.1893E+01, 0.1901E+01, 0.1910E+01,& - 0.1918E+01, 0.1927E+01, 0.1936E+01, 0.1945E+01,& - 0.1953E+01, 0.1962E+01, 0.1971E+01, 0.1980E+01,& - 0.1989E+01, 0.1998E+01, 0.2007E+01, 0.2016E+01,& - 0.2026E+01, 0.2035E+01, 0.2044E+01, 0.2054E+01,& - 0.2063E+01, 0.2073E+01, 0.2082E+01, 0.2092E+01,& - 0.2102E+01, 0.2111E+01, 0.2121E+01, 0.2131E+01,& - 0.2141E+01, 0.2151E+01, 0.2161E+01, 0.2172E+01,& - 0.2182E+01, 0.2192E+01, 0.2203E+01, 0.2213E+01,& - 0.2224E+01, 0.2234E+01, 0.2245E+01, 0.2256E+01,& - 0.2267E+01, 0.2278E+01, 0.2289E+01, 0.2300E+01,& - 0.2311E+01, 0.2322E+01, 0.2334E+01, 0.2345E+01,& - 0.2357E+01, 0.2368E+01, 0.2380E+01, 0.2392E+01,& - 0.2404E+01, 0.2416E+01, 0.2428E+01, 0.2440E+01,& - 0.2452E+01, 0.2465E+01, 0.2477E+01, 0.2490E+01,& - 0.2503E+01, 0.2515E+01, 0.2528E+01, 0.2541E+01,& - 0.2554E+01, 0.2568E+01, 0.2581E+01, 0.2595E+01,& - 0.2608E+01, 0.2622E+01, 0.2636E+01, 0.2650E+01,& - 0.2664E+01, 0.2678E+01, 0.2692E+01, 0.2707E+01,& - 0.2722E+01, 0.2736E+01, 0.2751E+01, 0.2766E+01,& - 0.2782E+01, 0.2797E+01, 0.2812E+01, 0.2828E+01,& - 0.2844E+01, 0.2860E+01, 0.2876E+01, 0.2892E+01,& - 0.2909E+01, 0.2926E+01, 0.2943E+01, 0.2960E+01,& - 0.2977E+01, 0.2994E+01, 0.3012E+01, 0.3030E+01,& - 0.3048E+01, 0.3066E+01, 0.3085E+01, 0.3103E+01,& - 0.3122E+01, 0.3141E+01, 0.3160E+01, 0.3180E+01,& - 0.3200E+01, 0.3220E+01, 0.3240E+01, 0.3261E+01,& - 0.3282E+01, 0.3303E+01, 0.3325E+01, 0.3346E+01,& - 0.3369E+01, 0.3391E+01, 0.3414E+01, 0.3437E+01,& - 0.3460E+01, 0.3484E+01, 0.3508E+01, 0.3533E+01,& - 0.3557E+01, 0.3583E+01, 0.3608E+01, 0.3635E+01,& - 0.3661E+01, 0.3688E+01, 0.3715E+01, 0.3743E+01,& - 0.3772E+01, 0.3801E+01, 0.3831E+01, 0.3861E+01,& - 0.3891E+01, 0.3923E+01, 0.3955E+01, 0.3987E+01,& - 0.4020E+01, 0.4054E+01, 0.4089E+01, 0.4125E+01,& - 0.4161E+01, 0.4198E+01, 0.4237E+01, 0.4276E+01,& - 0.4316E+01, 0.4357E+01, 0.4399E+01, 0.4443E+01,& - 0.4487E+01, 0.4534E+01, 0.4581E+01, 0.4630E+01,& - 0.4681E+01, 0.4733E+01, 0.4787E+01, 0.4843E+01,& - 0.4902E+01, 0.4963E+01, 0.5026E+01, 0.5092E+01,& - 0.5161E+01, 0.5233E+01, 0.5309E+01, 0.5390E+01,& - 0.5474E+01, 0.5564E+01, 0.5660E+01, 0.5763E+01,& - 0.5874E+01, 0.5993E+01, 0.6124E+01, 0.6269E+01,& - 0.6430E+01, 0.6614E+01, 0.6826E+01, 0.7079E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 54) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1256E-03, 0.1256E-03, 0.1256E-03,& - 0.1256E-03, 0.1256E-03, 0.2412E-03, 0.2412E-03,& - 0.2412E-03, 0.3568E-03, 0.3568E-03, 0.3568E-03,& - 0.4724E-03, 0.4724E-03, 0.4724E-03, 0.5880E-03,& - 0.5880E-03, 0.7037E-03, 0.7037E-03, 0.8193E-03,& - 0.8193E-03, 0.9349E-03, 0.1050E-02, 0.1050E-02,& - 0.1166E-02, 0.1166E-02, 0.1282E-02, 0.1397E-02,& - 0.1513E-02, 0.1513E-02, 0.1629E-02, 0.1744E-02,& - 0.1860E-02, 0.1860E-02, 0.1975E-02, 0.2091E-02,& - 0.2207E-02, 0.2322E-02, 0.2438E-02, 0.2553E-02,& - 0.2669E-02, 0.2785E-02, 0.2900E-02, 0.3016E-02,& - 0.3131E-02, 0.3247E-02, 0.3363E-02, 0.3594E-02,& - 0.3709E-02, 0.3825E-02, 0.3941E-02, 0.4056E-02,& - 0.4288E-02, 0.4403E-02, 0.4519E-02, 0.4750E-02,& - 0.4866E-02, 0.4981E-02, 0.5212E-02, 0.5328E-02,& - 0.5559E-02, 0.5675E-02, 0.5906E-02, 0.6022E-02,& - 0.6253E-02, 0.6484E-02, 0.6600E-02, 0.6831E-02,& - 0.7062E-02, 0.7178E-02, 0.7409E-02, 0.7640E-02,& - 0.7871E-02, 0.7987E-02, 0.8218E-02, 0.8449E-02,& - 0.8681E-02, 0.8912E-02, 0.9143E-02, 0.9374E-02,& - 0.9606E-02, 0.9837E-02, 0.1007E-01, 0.1030E-01,& - 0.1053E-01, 0.1076E-01, 0.1099E-01, 0.1134E-01,& - 0.1157E-01, 0.1180E-01, 0.1203E-01, 0.1238E-01,& - 0.1261E-01, 0.1284E-01, 0.1319E-01, 0.1342E-01,& - 0.1365E-01, 0.1400E-01, 0.1423E-01, 0.1458E-01,& - 0.1481E-01, 0.1515E-01, 0.1550E-01, 0.1573E-01,& - 0.1608E-01, 0.1643E-01, 0.1666E-01, 0.1700E-01,& - 0.1735E-01, 0.1770E-01, 0.1793E-01, 0.1828E-01,& - 0.1862E-01, 0.1897E-01, 0.1932E-01, 0.1966E-01,& - 0.2001E-01, 0.2036E-01, 0.2070E-01, 0.2105E-01,& - 0.2140E-01, 0.2186E-01, 0.2221E-01, 0.2255E-01,& - 0.2290E-01, 0.2325E-01, 0.2371E-01, 0.2406E-01,& - 0.2440E-01, 0.2487E-01, 0.2521E-01, 0.2568E-01,& - 0.2602E-01, 0.2648E-01, 0.2683E-01, 0.2729E-01,& - 0.2764E-01, 0.2810E-01, 0.2857E-01, 0.2891E-01,& - 0.2937E-01, 0.2984E-01, 0.3030E-01, 0.3065E-01,& - 0.3111E-01, 0.3157E-01, 0.3203E-01, 0.3250E-01,& - 0.3296E-01, 0.3342E-01, 0.3388E-01, 0.3435E-01,& - 0.3481E-01, 0.3527E-01, 0.3573E-01, 0.3631E-01,& - 0.3677E-01, 0.3724E-01, 0.3770E-01, 0.3828E-01,& - 0.3874E-01, 0.3920E-01, 0.3978E-01, 0.4024E-01,& - 0.4082E-01, 0.4128E-01, 0.4186E-01, 0.4232E-01,& - 0.4290E-01, 0.4348E-01, 0.4394E-01, 0.4452E-01,& - 0.4510E-01, 0.4556E-01, 0.4614E-01, 0.4672E-01,& - 0.4729E-01, 0.4787E-01, 0.4845E-01, 0.4903E-01,& - 0.4961E-01, 0.5018E-01, 0.5076E-01, 0.5134E-01,& - 0.5192E-01, 0.5250E-01, 0.5307E-01, 0.5377E-01,& - 0.5435E-01, 0.5492E-01, 0.5562E-01, 0.5620E-01,& - 0.5677E-01, 0.5747E-01, 0.5805E-01, 0.5874E-01,& - 0.5932E-01, 0.6001E-01, 0.6059E-01, 0.6128E-01,& - 0.6198E-01, 0.6255E-01, 0.6325E-01, 0.6394E-01,& - 0.6464E-01, 0.6533E-01, 0.6602E-01, 0.6660E-01,& - 0.6729E-01, 0.6799E-01, 0.6868E-01, 0.6938E-01,& - 0.7018E-01, 0.7088E-01, 0.7157E-01, 0.7227E-01,& - 0.7296E-01, 0.7377E-01, 0.7446E-01, 0.7516E-01,& - 0.7597E-01, 0.7666E-01, 0.7735E-01, 0.7816E-01,& - 0.7886E-01, 0.7966E-01, 0.8047E-01, 0.8117E-01,& - 0.8198E-01, 0.8267E-01, 0.8348E-01, 0.8429E-01,& - 0.8510E-01, 0.8591E-01, 0.8672E-01, 0.8741E-01,& - 0.8822E-01, 0.8903E-01, 0.8984E-01, 0.9065E-01,& - 0.9157E-01, 0.9238E-01, 0.9319E-01, 0.9400E-01,& - 0.9481E-01, 0.9573E-01, 0.9654E-01, 0.9735E-01,& - 0.9828E-01, 0.9909E-01, 0.1000E+00, 0.1008E+00,& - 0.1017E+00, 0.1026E+00, 0.1035E+00, 0.1044E+00,& - 0.1052E+00, 0.1061E+00, 0.1071E+00, 0.1080E+00,& - 0.1089E+00, 0.1097E+00, 0.1106E+00, 0.1116E+00,& - 0.1125E+00, 0.1134E+00, 0.1145E+00, 0.1154E+00,& - 0.1163E+00, 0.1172E+00, 0.1182E+00, 0.1192E+00,& - 0.1201E+00, 0.1211E+00, 0.1221E+00, 0.1230E+00,& - 0.1241E+00, 0.1250E+00, 0.1260E+00, 0.1269E+00,& - 0.1280E+00, 0.1290E+00, 0.1300E+00, 0.1310E+00,& - 0.1320E+00, 0.1331E+00, 0.1341E+00, 0.1352E+00,& - 0.1362E+00, 0.1372E+00, 0.1383E+00, 0.1393E+00,& - 0.1404E+00, 0.1414E+00, 0.1424E+00, 0.1436E+00,& - 0.1446E+00, 0.1457E+00, 0.1468E+00, 0.1479E+00,& - 0.1490E+00, 0.1501E+00, 0.1512E+00, 0.1523E+00,& - 0.1534E+00, 0.1546E+00, 0.1556E+00, 0.1568E+00,& - 0.1579E+00, 0.1591E+00, 0.1602E+00, 0.1614E+00,& - 0.1626E+00, 0.1637E+00, 0.1649E+00, 0.1660E+00,& - 0.1672E+00, 0.1683E+00, 0.1695E+00, 0.1708E+00,& - 0.1719E+00, 0.1731E+00, 0.1743E+00, 0.1755E+00,& - 0.1768E+00, 0.1779E+00, 0.1792E+00, 0.1805E+00,& - 0.1816E+00, 0.1829E+00, 0.1842E+00, 0.1854E+00,& - 0.1866E+00, 0.1879E+00, 0.1891E+00, 0.1904E+00,& - 0.1917E+00, 0.1930E+00, 0.1943E+00, 0.1956E+00,& - 0.1969E+00, 0.1982E+00, 0.1996E+00, 0.2008E+00,& - 0.2021E+00, 0.2035E+00, 0.2048E+00, 0.2061E+00,& - 0.2075E+00, 0.2088E+00, 0.2102E+00, 0.2116E+00,& - 0.2128E+00, 0.2142E+00, 0.2156E+00, 0.2170E+00,& - 0.2184E+00, 0.2198E+00, 0.2212E+00, 0.2226E+00,& - 0.2241E+00, 0.2254E+00, 0.2268E+00, 0.2282E+00,& - 0.2297E+00, 0.2311E+00, 0.2326E+00, 0.2340E+00,& - 0.2355E+00, 0.2369E+00, 0.2384E+00, 0.2399E+00,& - 0.2413E+00, 0.2428E+00, 0.2443E+00, 0.2458E+00,& - 0.2473E+00, 0.2488E+00, 0.2503E+00, 0.2518E+00,& - 0.2533E+00, 0.2549E+00, 0.2564E+00, 0.2579E+00,& - 0.2594E+00, 0.2611E+00, 0.2626E+00, 0.2642E+00,& - 0.2657E+00, 0.2673E+00, 0.2689E+00, 0.2705E+00,& - 0.2720E+00, 0.2737E+00, 0.2753E+00, 0.2769E+00,& - 0.2785E+00, 0.2801E+00, 0.2817E+00, 0.2834E+00,& - 0.2850E+00, 0.2867E+00, 0.2883E+00, 0.2900E+00,& - 0.2917E+00, 0.2933E+00, 0.2950E+00, 0.2967E+00,& - 0.2984E+00, 0.3001E+00, 0.3017E+00, 0.3035E+00,& - 0.3052E+00, 0.3070E+00, 0.3087E+00, 0.3104E+00,& - 0.3122E+00, 0.3139E+00, 0.3156E+00, 0.3175E+00,& - 0.3192E+00, 0.3209E+00, 0.3228E+00, 0.3245E+00,& - 0.3264E+00, 0.3281E+00, 0.3300E+00, 0.3318E+00,& - 0.3337E+00, 0.3354E+00, 0.3372E+00, 0.3391E+00,& - 0.3409E+00, 0.3428E+00, 0.3446E+00, 0.3465E+00,& - 0.3485E+00, 0.3503E+00, 0.3522E+00, 0.3541E+00,& - 0.3560E+00, 0.3579E+00, 0.3598E+00, 0.3618E+00,& - 0.3637E+00, 0.3656E+00, 0.3675E+00, 0.3695E+00,& - 0.3715E+00, 0.3734E+00, 0.3754E+00, 0.3774E+00,& - 0.3794E+00, 0.3814E+00, 0.3834E+00, 0.3855E+00,& - 0.3874E+00, 0.3895E+00, 0.3915E+00, 0.3935E+00,& - 0.3955E+00, 0.3976E+00, 0.3997E+00, 0.4018E+00,& - 0.4038E+00, 0.4059E+00, 0.4080E+00, 0.4101E+00,& - 0.4122E+00, 0.4144E+00, 0.4164E+00, 0.4185E+00,& - 0.4207E+00, 0.4228E+00, 0.4250E+00, 0.4272E+00,& - 0.4293E+00, 0.4315E+00, 0.4337E+00, 0.4359E+00,& - 0.4381E+00, 0.4402E+00, 0.4424E+00, 0.4448E+00,& - 0.4470E+00, 0.4492E+00, 0.4515E+00, 0.4537E+00,& - 0.4560E+00, 0.4582E+00, 0.4605E+00, 0.4628E+00,& - 0.4651E+00, 0.4674E+00, 0.4697E+00, 0.4720E+00,& - 0.4744E+00, 0.4767E+00, 0.4790E+00, 0.4814E+00,& - 0.4837E+00, 0.4860E+00, 0.4885E+00, 0.4909E+00,& - 0.4932E+00, 0.4956E+00, 0.4981E+00, 0.5005E+00,& - 0.5029E+00, 0.5053E+00, 0.5078E+00, 0.5102E+00,& - 0.5127E+00, 0.5152E+00, 0.5177E+00, 0.5201E+00,& - 0.5227E+00, 0.5251E+00, 0.5276E+00, 0.5302E+00,& - 0.5327E+00, 0.5353E+00, 0.5378E+00, 0.5404E+00,& - 0.5429E+00, 0.5456E+00, 0.5481E+00, 0.5507E+00,& - 0.5533E+00, 0.5560E+00, 0.5585E+00, 0.5612E+00,& - 0.5638E+00, 0.5665E+00, 0.5692E+00, 0.5718E+00,& - 0.5745E+00, 0.5772E+00, 0.5799E+00, 0.5826E+00,& - 0.5853E+00, 0.5881E+00, 0.5908E+00, 0.5935E+00,& - 0.5963E+00, 0.5991E+00, 0.6019E+00, 0.6046E+00,& - 0.6074E+00, 0.6103E+00, 0.6131E+00, 0.6159E+00,& - 0.6187E+00, 0.6216E+00, 0.6244E+00, 0.6273E+00,& - 0.6302E+00, 0.6331E+00, 0.6360E+00, 0.6389E+00,& - 0.6419E+00, 0.6448E+00, 0.6478E+00, 0.6507E+00,& - 0.6537E+00, 0.6566E+00, 0.6596E+00, 0.6626E+00,& - 0.6656E+00, 0.6686E+00, 0.6715E+00, 0.6747E+00,& - 0.6777E+00, 0.6808E+00, 0.6838E+00, 0.6870E+00,& - 0.6901E+00, 0.6932E+00, 0.6963E+00, 0.6994E+00,& - 0.7026E+00, 0.7057E+00, 0.7088E+00, 0.7120E+00,& - 0.7152E+00, 0.7184E+00, 0.7216E+00, 0.7249E+00,& - 0.7281E+00, 0.7314E+00, 0.7346E+00, 0.7378E+00,& - 0.7412E+00, 0.7444E+00, 0.7478E+00, 0.7510E+00,& - 0.7544E+00, 0.7577E+00, 0.7611E+00, 0.7644E+00,& - 0.7678E+00, 0.7712E+00, 0.7746E+00, 0.7781E+00,& - 0.7814E+00, 0.7849E+00, 0.7883E+00, 0.7918E+00,& - 0.7953E+00, 0.7988E+00, 0.8023E+00, 0.8058E+00,& - 0.8094E+00, 0.8129E+00, 0.8164E+00, 0.8200E+00,& - 0.8236E+00, 0.8272E+00, 0.8308E+00, 0.8345E+00,& - 0.8381E+00, 0.8418E+00, 0.8455E+00, 0.8490E+00,& - 0.8527E+00, 0.8566E+00, 0.8603E+00, 0.8640E+00,& - 0.8677E+00, 0.8715E+00, 0.8753E+00, 0.8791E+00,& - 0.8829E+00, 0.8867E+00, 0.8905E+00, 0.8944E+00,& - 0.8983E+00, 0.9021E+00, 0.9060E+00, 0.9100E+00,& - 0.9139E+00, 0.9178E+00, 0.9218E+00, 0.9257E+00,& - 0.9297E+00, 0.9338E+00, 0.9377E+00, 0.9418E+00,& - 0.9458E+00, 0.9499E+00, 0.9540E+00, 0.9581E+00,& - 0.9622E+00, 0.9663E+00, 0.9704E+00, 0.9746E+00,& - 0.9789E+00, 0.9830E+00, 0.9872E+00, 0.9915E+00,& - 0.9958E+00, 0.9999E+00, 0.1004E+01, 0.1009E+01,& - 0.1013E+01, 0.1017E+01, 0.1022E+01, 0.1026E+01,& - 0.1030E+01, 0.1035E+01, 0.1039E+01, 0.1043E+01,& - 0.1048E+01, 0.1053E+01, 0.1057E+01, 0.1061E+01,& - 0.1066E+01, 0.1071E+01, 0.1075E+01, 0.1080E+01,& - 0.1084E+01, 0.1089E+01, 0.1094E+01, 0.1098E+01,& - 0.1103E+01, 0.1108E+01, 0.1112E+01, 0.1117E+01,& - 0.1122E+01, 0.1127E+01, 0.1131E+01, 0.1136E+01,& - 0.1141E+01, 0.1146E+01, 0.1151E+01, 0.1156E+01,& - 0.1161E+01, 0.1165E+01, 0.1170E+01, 0.1175E+01,& - 0.1180E+01, 0.1185E+01, 0.1191E+01, 0.1196E+01,& - 0.1201E+01, 0.1206E+01, 0.1211E+01, 0.1216E+01,& - 0.1221E+01, 0.1227E+01, 0.1232E+01, 0.1237E+01,& - 0.1242E+01, 0.1248E+01, 0.1253E+01, 0.1258E+01,& - 0.1264E+01, 0.1269E+01, 0.1274E+01, 0.1280E+01,& - 0.1285E+01, 0.1291E+01, 0.1296E+01, 0.1302E+01,& - 0.1307E+01, 0.1313E+01, 0.1318E+01, 0.1324E+01,& - 0.1330E+01, 0.1335E+01, 0.1341E+01, 0.1347E+01,& - 0.1353E+01, 0.1358E+01, 0.1364E+01, 0.1370E+01,& - 0.1376E+01, 0.1382E+01, 0.1388E+01, 0.1394E+01,& - 0.1400E+01, 0.1406E+01, 0.1412E+01, 0.1418E+01,& - 0.1424E+01, 0.1430E+01, 0.1436E+01, 0.1442E+01,& - 0.1449E+01, 0.1455E+01, 0.1461E+01, 0.1467E+01,& - 0.1474E+01, 0.1480E+01, 0.1487E+01, 0.1493E+01,& - 0.1499E+01, 0.1506E+01, 0.1512E+01, 0.1519E+01,& - 0.1526E+01, 0.1532E+01, 0.1539E+01, 0.1545E+01,& - 0.1552E+01, 0.1559E+01, 0.1566E+01, 0.1573E+01,& - 0.1579E+01, 0.1586E+01, 0.1593E+01, 0.1600E+01,& - 0.1607E+01, 0.1614E+01, 0.1621E+01, 0.1628E+01,& - 0.1636E+01, 0.1643E+01, 0.1650E+01, 0.1657E+01,& - 0.1665E+01, 0.1672E+01, 0.1679E+01, 0.1687E+01,& - 0.1694E+01, 0.1702E+01, 0.1709E+01, 0.1717E+01,& - 0.1724E+01, 0.1732E+01, 0.1740E+01, 0.1748E+01,& - 0.1755E+01, 0.1763E+01, 0.1770E+01, 0.1779E+01,& - 0.1787E+01, 0.1795E+01, 0.1803E+01, 0.1811E+01,& - 0.1819E+01, 0.1828E+01, 0.1836E+01, 0.1844E+01,& - 0.1852E+01, 0.1861E+01, 0.1869E+01, 0.1878E+01,& - 0.1886E+01, 0.1895E+01, 0.1904E+01, 0.1912E+01,& - 0.1921E+01, 0.1930E+01, 0.1939E+01, 0.1948E+01,& - 0.1957E+01, 0.1966E+01, 0.1975E+01, 0.1984E+01,& - 0.1993E+01, 0.2002E+01, 0.2012E+01, 0.2021E+01,& - 0.2030E+01, 0.2040E+01, 0.2050E+01, 0.2059E+01,& - 0.2069E+01, 0.2079E+01, 0.2088E+01, 0.2098E+01,& - 0.2108E+01, 0.2118E+01, 0.2128E+01, 0.2138E+01,& - 0.2149E+01, 0.2159E+01, 0.2169E+01, 0.2180E+01,& - 0.2190E+01, 0.2201E+01, 0.2211E+01, 0.2222E+01,& - 0.2233E+01, 0.2244E+01, 0.2255E+01, 0.2266E+01,& - 0.2277E+01, 0.2288E+01, 0.2300E+01, 0.2311E+01,& - 0.2322E+01, 0.2334E+01, 0.2346E+01, 0.2357E+01,& - 0.2369E+01, 0.2381E+01, 0.2393E+01, 0.2405E+01,& - 0.2417E+01, 0.2430E+01, 0.2442E+01, 0.2455E+01,& - 0.2467E+01, 0.2480E+01, 0.2493E+01, 0.2505E+01,& - 0.2519E+01, 0.2532E+01, 0.2545E+01, 0.2558E+01,& - 0.2572E+01, 0.2585E+01, 0.2599E+01, 0.2613E+01,& - 0.2627E+01, 0.2641E+01, 0.2655E+01, 0.2669E+01,& - 0.2684E+01, 0.2698E+01, 0.2713E+01, 0.2728E+01,& - 0.2743E+01, 0.2758E+01, 0.2774E+01, 0.2789E+01,& - 0.2805E+01, 0.2820E+01, 0.2836E+01, 0.2852E+01,& - 0.2869E+01, 0.2885E+01, 0.2902E+01, 0.2918E+01,& - 0.2935E+01, 0.2952E+01, 0.2970E+01, 0.2987E+01,& - 0.3005E+01, 0.3023E+01, 0.3041E+01, 0.3059E+01,& - 0.3078E+01, 0.3096E+01, 0.3115E+01, 0.3135E+01,& - 0.3154E+01, 0.3174E+01, 0.3194E+01, 0.3214E+01,& - 0.3234E+01, 0.3255E+01, 0.3276E+01, 0.3297E+01,& - 0.3318E+01, 0.3340E+01, 0.3362E+01, 0.3385E+01,& - 0.3407E+01, 0.3430E+01, 0.3454E+01, 0.3478E+01,& - 0.3502E+01, 0.3526E+01, 0.3551E+01, 0.3576E+01,& - 0.3602E+01, 0.3627E+01, 0.3654E+01, 0.3681E+01,& - 0.3708E+01, 0.3736E+01, 0.3764E+01, 0.3793E+01,& - 0.3822E+01, 0.3852E+01, 0.3882E+01, 0.3913E+01,& - 0.3945E+01, 0.3977E+01, 0.4010E+01, 0.4044E+01,& - 0.4078E+01, 0.4113E+01, 0.4149E+01, 0.4185E+01,& - 0.4223E+01, 0.4261E+01, 0.4300E+01, 0.4341E+01,& - 0.4382E+01, 0.4424E+01, 0.4468E+01, 0.4513E+01,& - 0.4559E+01, 0.4606E+01, 0.4655E+01, 0.4706E+01,& - 0.4758E+01, 0.4812E+01, 0.4868E+01, 0.4926E+01,& - 0.4986E+01, 0.5048E+01, 0.5114E+01, 0.5182E+01,& - 0.5253E+01, 0.5327E+01, 0.5406E+01, 0.5488E+01,& - 0.5576E+01, 0.5669E+01, 0.5768E+01, 0.5873E+01,& - 0.5988E+01, 0.6111E+01, 0.6246E+01, 0.6395E+01,& - 0.6562E+01, 0.6751E+01, 0.6970E+01, 0.7231E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 55) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1284E-03,& - 0.1284E-03, 0.1284E-03, 0.1284E-03, 0.1284E-03,& - 0.2467E-03, 0.2467E-03, 0.2467E-03, 0.2467E-03,& - 0.3651E-03, 0.3651E-03, 0.3651E-03, 0.4834E-03,& - 0.4834E-03, 0.4834E-03, 0.6018E-03, 0.6018E-03,& - 0.7201E-03, 0.7201E-03, 0.8385E-03, 0.8385E-03,& - 0.9568E-03, 0.9568E-03, 0.1075E-02, 0.1075E-02,& - 0.1194E-02, 0.1194E-02, 0.1312E-02, 0.1430E-02,& - 0.1430E-02, 0.1549E-02, 0.1667E-02, 0.1667E-02,& - 0.1785E-02, 0.1904E-02, 0.2022E-02, 0.2140E-02,& - 0.2140E-02, 0.2259E-02, 0.2377E-02, 0.2495E-02,& - 0.2614E-02, 0.2732E-02, 0.2850E-02, 0.2969E-02,& - 0.3087E-02, 0.3205E-02, 0.3324E-02, 0.3442E-02,& - 0.3561E-02, 0.3679E-02, 0.3797E-02, 0.3916E-02,& - 0.4034E-02, 0.4271E-02, 0.4389E-02, 0.4507E-02,& - 0.4626E-02, 0.4862E-02, 0.4981E-02, 0.5099E-02,& - 0.5336E-02, 0.5454E-02, 0.5572E-02, 0.5809E-02,& - 0.5928E-02, 0.6164E-02, 0.6283E-02, 0.6519E-02,& - 0.6638E-02, 0.6874E-02, 0.6993E-02, 0.7229E-02,& - 0.7466E-02, 0.7584E-02, 0.7821E-02, 0.8058E-02,& - 0.8176E-02, 0.8413E-02, 0.8650E-02, 0.8886E-02,& - 0.9005E-02, 0.9241E-02, 0.9478E-02, 0.9715E-02,& - 0.9951E-02, 0.1019E-01, 0.1042E-01, 0.1066E-01,& - 0.1090E-01, 0.1113E-01, 0.1137E-01, 0.1161E-01,& - 0.1185E-01, 0.1220E-01, 0.1244E-01, 0.1267E-01,& - 0.1291E-01, 0.1315E-01, 0.1350E-01, 0.1374E-01,& - 0.1398E-01, 0.1433E-01, 0.1457E-01, 0.1492E-01,& - 0.1516E-01, 0.1551E-01, 0.1575E-01, 0.1611E-01,& - 0.1634E-01, 0.1670E-01, 0.1693E-01, 0.1729E-01,& - 0.1764E-01, 0.1788E-01, 0.1824E-01, 0.1859E-01,& - 0.1895E-01, 0.1918E-01, 0.1954E-01, 0.1989E-01,& - 0.2025E-01, 0.2060E-01, 0.2096E-01, 0.2131E-01,& - 0.2167E-01, 0.2202E-01, 0.2238E-01, 0.2273E-01,& - 0.2309E-01, 0.2344E-01, 0.2380E-01, 0.2427E-01,& - 0.2463E-01, 0.2498E-01, 0.2534E-01, 0.2581E-01,& - 0.2617E-01, 0.2652E-01, 0.2699E-01, 0.2735E-01,& - 0.2782E-01, 0.2818E-01, 0.2865E-01, 0.2901E-01,& - 0.2948E-01, 0.2983E-01, 0.3031E-01, 0.3078E-01,& - 0.3114E-01, 0.3161E-01, 0.3208E-01, 0.3256E-01,& - 0.3291E-01, 0.3338E-01, 0.3386E-01, 0.3433E-01,& - 0.3481E-01, 0.3528E-01, 0.3575E-01, 0.3623E-01,& - 0.3670E-01, 0.3717E-01, 0.3765E-01, 0.3812E-01,& - 0.3871E-01, 0.3918E-01, 0.3966E-01, 0.4013E-01,& - 0.4072E-01, 0.4120E-01, 0.4167E-01, 0.4226E-01,& - 0.4273E-01, 0.4333E-01, 0.4380E-01, 0.4439E-01,& - 0.4486E-01, 0.4546E-01, 0.4593E-01, 0.4652E-01,& - 0.4711E-01, 0.4759E-01, 0.4818E-01, 0.4877E-01,& - 0.4936E-01, 0.4995E-01, 0.5055E-01, 0.5114E-01,& - 0.5161E-01, 0.5220E-01, 0.5279E-01, 0.5339E-01,& - 0.5410E-01, 0.5469E-01, 0.5528E-01, 0.5587E-01,& - 0.5646E-01, 0.5706E-01, 0.5777E-01, 0.5836E-01,& - 0.5895E-01, 0.5966E-01, 0.6025E-01, 0.6096E-01,& - 0.6155E-01, 0.6226E-01, 0.6285E-01, 0.6356E-01,& - 0.6416E-01, 0.6487E-01, 0.6558E-01, 0.6617E-01,& - 0.6688E-01, 0.6759E-01, 0.6830E-01, 0.6901E-01,& - 0.6972E-01, 0.7031E-01, 0.7102E-01, 0.7173E-01,& - 0.7244E-01, 0.7327E-01, 0.7398E-01, 0.7469E-01,& - 0.7540E-01, 0.7611E-01, 0.7682E-01, 0.7765E-01,& - 0.7836E-01, 0.7907E-01, 0.7990E-01, 0.8061E-01,& - 0.8144E-01, 0.8215E-01, 0.8297E-01, 0.8368E-01,& - 0.8451E-01, 0.8522E-01, 0.8605E-01, 0.8688E-01,& - 0.8771E-01, 0.8842E-01, 0.8925E-01, 0.9008E-01,& - 0.9090E-01, 0.9173E-01, 0.9256E-01, 0.9339E-01,& - 0.9422E-01, 0.9505E-01, 0.9587E-01, 0.9670E-01,& - 0.9765E-01, 0.9848E-01, 0.9931E-01, 0.1001E+00,& - 0.1011E+00, 0.1019E+00, 0.1027E+00, 0.1037E+00,& - 0.1045E+00, 0.1055E+00, 0.1064E+00, 0.1072E+00,& - 0.1082E+00, 0.1091E+00, 0.1100E+00, 0.1109E+00,& - 0.1119E+00, 0.1128E+00, 0.1137E+00, 0.1146E+00,& - 0.1155E+00, 0.1165E+00, 0.1174E+00, 0.1185E+00,& - 0.1194E+00, 0.1204E+00, 0.1213E+00, 0.1223E+00,& - 0.1233E+00, 0.1243E+00, 0.1252E+00, 0.1263E+00,& - 0.1272E+00, 0.1283E+00, 0.1292E+00, 0.1303E+00,& - 0.1313E+00, 0.1323E+00, 0.1334E+00, 0.1343E+00,& - 0.1354E+00, 0.1365E+00, 0.1375E+00, 0.1386E+00,& - 0.1397E+00, 0.1407E+00, 0.1418E+00, 0.1429E+00,& - 0.1439E+00, 0.1450E+00, 0.1461E+00, 0.1471E+00,& - 0.1483E+00, 0.1494E+00, 0.1504E+00, 0.1516E+00,& - 0.1527E+00, 0.1539E+00, 0.1549E+00, 0.1561E+00,& - 0.1572E+00, 0.1584E+00, 0.1595E+00, 0.1606E+00,& - 0.1618E+00, 0.1630E+00, 0.1642E+00, 0.1653E+00,& - 0.1665E+00, 0.1677E+00, 0.1689E+00, 0.1701E+00,& - 0.1713E+00, 0.1724E+00, 0.1736E+00, 0.1749E+00,& - 0.1761E+00, 0.1773E+00, 0.1786E+00, 0.1798E+00,& - 0.1811E+00, 0.1823E+00, 0.1836E+00, 0.1848E+00,& - 0.1861E+00, 0.1874E+00, 0.1887E+00, 0.1898E+00,& - 0.1911E+00, 0.1924E+00, 0.1938E+00, 0.1951E+00,& - 0.1964E+00, 0.1977E+00, 0.1990E+00, 0.2004E+00,& - 0.2017E+00, 0.2030E+00, 0.2043E+00, 0.2057E+00,& - 0.2070E+00, 0.2084E+00, 0.2097E+00, 0.2111E+00,& - 0.2124E+00, 0.2139E+00, 0.2153E+00, 0.2166E+00,& - 0.2180E+00, 0.2194E+00, 0.2209E+00, 0.2223E+00,& - 0.2237E+00, 0.2251E+00, 0.2265E+00, 0.2280E+00,& - 0.2294E+00, 0.2309E+00, 0.2323E+00, 0.2338E+00,& - 0.2353E+00, 0.2367E+00, 0.2383E+00, 0.2397E+00,& - 0.2412E+00, 0.2426E+00, 0.2442E+00, 0.2457E+00,& - 0.2472E+00, 0.2488E+00, 0.2502E+00, 0.2517E+00,& - 0.2533E+00, 0.2548E+00, 0.2565E+00, 0.2580E+00,& - 0.2596E+00, 0.2611E+00, 0.2626E+00, 0.2643E+00,& - 0.2658E+00, 0.2675E+00, 0.2690E+00, 0.2707E+00,& - 0.2722E+00, 0.2739E+00, 0.2755E+00, 0.2772E+00,& - 0.2788E+00, 0.2804E+00, 0.2820E+00, 0.2837E+00,& - 0.2854E+00, 0.2871E+00, 0.2888E+00, 0.2904E+00,& - 0.2921E+00, 0.2939E+00, 0.2955E+00, 0.2972E+00,& - 0.2990E+00, 0.3007E+00, 0.3024E+00, 0.3042E+00,& - 0.3059E+00, 0.3076E+00, 0.3094E+00, 0.3112E+00,& - 0.3129E+00, 0.3147E+00, 0.3165E+00, 0.3183E+00,& - 0.3200E+00, 0.3219E+00, 0.3237E+00, 0.3255E+00,& - 0.3274E+00, 0.3291E+00, 0.3310E+00, 0.3328E+00,& - 0.3347E+00, 0.3366E+00, 0.3384E+00, 0.3403E+00,& - 0.3422E+00, 0.3441E+00, 0.3459E+00, 0.3478E+00,& - 0.3497E+00, 0.3517E+00, 0.3536E+00, 0.3555E+00,& - 0.3575E+00, 0.3594E+00, 0.3613E+00, 0.3633E+00,& - 0.3654E+00, 0.3673E+00, 0.3693E+00, 0.3713E+00,& - 0.3733E+00, 0.3753E+00, 0.3773E+00, 0.3793E+00,& - 0.3813E+00, 0.3833E+00, 0.3854E+00, 0.3875E+00,& - 0.3895E+00, 0.3915E+00, 0.3936E+00, 0.3958E+00,& - 0.3978E+00, 0.3999E+00, 0.4020E+00, 0.4042E+00,& - 0.4062E+00, 0.4083E+00, 0.4105E+00, 0.4127E+00,& - 0.4148E+00, 0.4170E+00, 0.4191E+00, 0.4213E+00,& - 0.4235E+00, 0.4257E+00, 0.4278E+00, 0.4301E+00,& - 0.4322E+00, 0.4345E+00, 0.4367E+00, 0.4390E+00,& - 0.4412E+00, 0.4435E+00, 0.4457E+00, 0.4480E+00,& - 0.4503E+00, 0.4526E+00, 0.4548E+00, 0.4572E+00,& - 0.4594E+00, 0.4618E+00, 0.4642E+00, 0.4665E+00,& - 0.4688E+00, 0.4712E+00, 0.4735E+00, 0.4759E+00,& - 0.4784E+00, 0.4808E+00, 0.4831E+00, 0.4855E+00,& - 0.4880E+00, 0.4903E+00, 0.4928E+00, 0.4953E+00,& - 0.4977E+00, 0.5002E+00, 0.5026E+00, 0.5051E+00,& - 0.5076E+00, 0.5101E+00, 0.5126E+00, 0.5152E+00,& - 0.5177E+00, 0.5202E+00, 0.5228E+00, 0.5253E+00,& - 0.5279E+00, 0.5305E+00, 0.5331E+00, 0.5357E+00,& - 0.5383E+00, 0.5409E+00, 0.5435E+00, 0.5461E+00,& - 0.5487E+00, 0.5514E+00, 0.5540E+00, 0.5567E+00,& - 0.5593E+00, 0.5621E+00, 0.5648E+00, 0.5675E+00,& - 0.5702E+00, 0.5729E+00, 0.5757E+00, 0.5784E+00,& - 0.5811E+00, 0.5840E+00, 0.5867E+00, 0.5895E+00,& - 0.5924E+00, 0.5951E+00, 0.5979E+00, 0.6008E+00,& - 0.6036E+00, 0.6064E+00, 0.6093E+00, 0.6122E+00,& - 0.6151E+00, 0.6179E+00, 0.6209E+00, 0.6238E+00,& - 0.6267E+00, 0.6296E+00, 0.6326E+00, 0.6356E+00,& - 0.6385E+00, 0.6415E+00, 0.6445E+00, 0.6475E+00,& - 0.6505E+00, 0.6535E+00, 0.6566E+00, 0.6596E+00,& - 0.6627E+00, 0.6657E+00, 0.6688E+00, 0.6719E+00,& - 0.6750E+00, 0.6782E+00, 0.6812E+00, 0.6844E+00,& - 0.6875E+00, 0.6907E+00, 0.6939E+00, 0.6971E+00,& - 0.7003E+00, 0.7035E+00, 0.7067E+00, 0.7099E+00,& - 0.7132E+00, 0.7164E+00, 0.7197E+00, 0.7230E+00,& - 0.7263E+00, 0.7296E+00, 0.7330E+00, 0.7363E+00,& - 0.7396E+00, 0.7429E+00, 0.7463E+00, 0.7496E+00,& - 0.7531E+00, 0.7565E+00, 0.7599E+00, 0.7634E+00,& - 0.7668E+00, 0.7702E+00, 0.7738E+00, 0.7772E+00,& - 0.7808E+00, 0.7842E+00, 0.7878E+00, 0.7913E+00,& - 0.7949E+00, 0.7984E+00, 0.8020E+00, 0.8056E+00,& - 0.8092E+00, 0.8128E+00, 0.8165E+00, 0.8201E+00,& - 0.8237E+00, 0.8275E+00, 0.8312E+00, 0.8349E+00,& - 0.8385E+00, 0.8423E+00, 0.8461E+00, 0.8499E+00,& - 0.8536E+00, 0.8575E+00, 0.8612E+00, 0.8650E+00,& - 0.8688E+00, 0.8727E+00, 0.8766E+00, 0.8804E+00,& - 0.8843E+00, 0.8882E+00, 0.8923E+00, 0.8962E+00,& - 0.9001E+00, 0.9041E+00, 0.9081E+00, 0.9121E+00,& - 0.9162E+00, 0.9202E+00, 0.9242E+00, 0.9282E+00,& - 0.9324E+00, 0.9365E+00, 0.9405E+00, 0.9447E+00,& - 0.9488E+00, 0.9531E+00, 0.9572E+00, 0.9615E+00,& - 0.9656E+00, 0.9699E+00, 0.9742E+00, 0.9784E+00,& - 0.9827E+00, 0.9871E+00, 0.9913E+00, 0.9957E+00,& - 0.1000E+01, 0.1004E+01, 0.1009E+01, 0.1013E+01,& - 0.1018E+01, 0.1022E+01, 0.1027E+01, 0.1031E+01,& - 0.1036E+01, 0.1040E+01, 0.1045E+01, 0.1049E+01,& - 0.1054E+01, 0.1058E+01, 0.1063E+01, 0.1068E+01,& - 0.1072E+01, 0.1077E+01, 0.1082E+01, 0.1086E+01,& - 0.1091E+01, 0.1096E+01, 0.1101E+01, 0.1105E+01,& - 0.1110E+01, 0.1115E+01, 0.1120E+01, 0.1125E+01,& - 0.1130E+01, 0.1135E+01, 0.1139E+01, 0.1144E+01,& - 0.1149E+01, 0.1155E+01, 0.1159E+01, 0.1165E+01,& - 0.1170E+01, 0.1175E+01, 0.1180E+01, 0.1185E+01,& - 0.1190E+01, 0.1195E+01, 0.1200E+01, 0.1206E+01,& - 0.1211E+01, 0.1216E+01, 0.1222E+01, 0.1227E+01,& - 0.1232E+01, 0.1238E+01, 0.1243E+01, 0.1248E+01,& - 0.1254E+01, 0.1259E+01, 0.1265E+01, 0.1270E+01,& - 0.1276E+01, 0.1281E+01, 0.1287E+01, 0.1293E+01,& - 0.1298E+01, 0.1304E+01, 0.1310E+01, 0.1315E+01,& - 0.1321E+01, 0.1327E+01, 0.1333E+01, 0.1338E+01,& - 0.1344E+01, 0.1350E+01, 0.1356E+01, 0.1362E+01,& - 0.1368E+01, 0.1374E+01, 0.1380E+01, 0.1386E+01,& - 0.1392E+01, 0.1398E+01, 0.1404E+01, 0.1411E+01,& - 0.1417E+01, 0.1423E+01, 0.1429E+01, 0.1435E+01,& - 0.1442E+01, 0.1448E+01, 0.1454E+01, 0.1461E+01,& - 0.1467E+01, 0.1474E+01, 0.1480E+01, 0.1487E+01,& - 0.1493E+01, 0.1500E+01, 0.1507E+01, 0.1513E+01,& - 0.1520E+01, 0.1527E+01, 0.1533E+01, 0.1540E+01,& - 0.1547E+01, 0.1554E+01, 0.1561E+01, 0.1568E+01,& - 0.1575E+01, 0.1582E+01, 0.1589E+01, 0.1596E+01,& - 0.1603E+01, 0.1610E+01, 0.1618E+01, 0.1625E+01,& - 0.1632E+01, 0.1639E+01, 0.1647E+01, 0.1654E+01,& - 0.1662E+01, 0.1669E+01, 0.1676E+01, 0.1684E+01,& - 0.1692E+01, 0.1699E+01, 0.1707E+01, 0.1715E+01,& - 0.1722E+01, 0.1730E+01, 0.1738E+01, 0.1746E+01,& - 0.1754E+01, 0.1762E+01, 0.1770E+01, 0.1778E+01,& - 0.1786E+01, 0.1794E+01, 0.1803E+01, 0.1811E+01,& - 0.1819E+01, 0.1828E+01, 0.1836E+01, 0.1845E+01,& - 0.1853E+01, 0.1862E+01, 0.1870E+01, 0.1879E+01,& - 0.1888E+01, 0.1896E+01, 0.1905E+01, 0.1914E+01,& - 0.1923E+01, 0.1932E+01, 0.1941E+01, 0.1950E+01,& - 0.1959E+01, 0.1969E+01, 0.1978E+01, 0.1987E+01,& - 0.1996E+01, 0.2006E+01, 0.2016E+01, 0.2025E+01,& - 0.2035E+01, 0.2044E+01, 0.2054E+01, 0.2064E+01,& - 0.2074E+01, 0.2084E+01, 0.2094E+01, 0.2104E+01,& - 0.2114E+01, 0.2124E+01, 0.2135E+01, 0.2145E+01,& - 0.2156E+01, 0.2166E+01, 0.2177E+01, 0.2187E+01,& - 0.2198E+01, 0.2209E+01, 0.2220E+01, 0.2231E+01,& - 0.2242E+01, 0.2253E+01, 0.2264E+01, 0.2275E+01,& - 0.2287E+01, 0.2298E+01, 0.2310E+01, 0.2321E+01,& - 0.2333E+01, 0.2345E+01, 0.2357E+01, 0.2369E+01,& - 0.2381E+01, 0.2393E+01, 0.2405E+01, 0.2418E+01,& - 0.2430E+01, 0.2443E+01, 0.2456E+01, 0.2468E+01,& - 0.2481E+01, 0.2494E+01, 0.2507E+01, 0.2521E+01,& - 0.2534E+01, 0.2547E+01, 0.2561E+01, 0.2575E+01,& - 0.2588E+01, 0.2602E+01, 0.2616E+01, 0.2630E+01,& - 0.2645E+01, 0.2659E+01, 0.2674E+01, 0.2688E+01,& - 0.2703E+01, 0.2718E+01, 0.2733E+01, 0.2749E+01,& - 0.2764E+01, 0.2779E+01, 0.2795E+01, 0.2811E+01,& - 0.2827E+01, 0.2843E+01, 0.2860E+01, 0.2876E+01,& - 0.2893E+01, 0.2910E+01, 0.2927E+01, 0.2944E+01,& - 0.2961E+01, 0.2979E+01, 0.2997E+01, 0.3014E+01,& - 0.3033E+01, 0.3051E+01, 0.3070E+01, 0.3088E+01,& - 0.3107E+01, 0.3127E+01, 0.3146E+01, 0.3166E+01,& - 0.3186E+01, 0.3206E+01, 0.3226E+01, 0.3247E+01,& - 0.3268E+01, 0.3289E+01, 0.3311E+01, 0.3332E+01,& - 0.3354E+01, 0.3377E+01, 0.3400E+01, 0.3422E+01,& - 0.3446E+01, 0.3469E+01, 0.3493E+01, 0.3518E+01,& - 0.3542E+01, 0.3568E+01, 0.3593E+01, 0.3619E+01,& - 0.3645E+01, 0.3672E+01, 0.3699E+01, 0.3727E+01,& - 0.3755E+01, 0.3783E+01, 0.3812E+01, 0.3842E+01,& - 0.3872E+01, 0.3903E+01, 0.3934E+01, 0.3966E+01,& - 0.3998E+01, 0.4032E+01, 0.4065E+01, 0.4100E+01,& - 0.4135E+01, 0.4171E+01, 0.4208E+01, 0.4246E+01,& - 0.4284E+01, 0.4324E+01, 0.4364E+01, 0.4406E+01,& - 0.4448E+01, 0.4492E+01, 0.4537E+01, 0.4583E+01,& - 0.4630E+01, 0.4679E+01, 0.4729E+01, 0.4781E+01,& - 0.4835E+01, 0.4891E+01, 0.4948E+01, 0.5008E+01,& - 0.5070E+01, 0.5134E+01, 0.5201E+01, 0.5272E+01,& - 0.5345E+01, 0.5422E+01, 0.5503E+01, 0.5588E+01,& - 0.5678E+01, 0.5774E+01, 0.5876E+01, 0.5985E+01,& - 0.6102E+01, 0.6230E+01, 0.6369E+01, 0.6523E+01,& - 0.6695E+01, 0.6890E+01, 0.7115E+01, 0.7385E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 56) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1311E-03, 0.1311E-03,& - 0.1311E-03, 0.1311E-03, 0.1311E-03, 0.2523E-03,& - 0.2523E-03, 0.2523E-03, 0.2523E-03, 0.3734E-03,& - 0.3734E-03, 0.3734E-03, 0.4946E-03, 0.4946E-03,& - 0.4946E-03, 0.6157E-03, 0.6157E-03, 0.6157E-03,& - 0.7368E-03, 0.7368E-03, 0.8580E-03, 0.8580E-03,& - 0.9791E-03, 0.9791E-03, 0.1100E-02, 0.1100E-02,& - 0.1221E-02, 0.1221E-02, 0.1343E-02, 0.1343E-02,& - 0.1464E-02, 0.1585E-02, 0.1585E-02, 0.1706E-02,& - 0.1827E-02, 0.1827E-02, 0.1948E-02, 0.2069E-02,& - 0.2069E-02, 0.2191E-02, 0.2312E-02, 0.2433E-02,& - 0.2554E-02, 0.2675E-02, 0.2675E-02, 0.2796E-02,& - 0.2917E-02, 0.3039E-02, 0.3160E-02, 0.3281E-02,& - 0.3402E-02, 0.3523E-02, 0.3644E-02, 0.3765E-02,& - 0.3886E-02, 0.4008E-02, 0.4129E-02, 0.4250E-02,& - 0.4492E-02, 0.4613E-02, 0.4734E-02, 0.4856E-02,& - 0.4977E-02, 0.5219E-02, 0.5340E-02, 0.5461E-02,& - 0.5704E-02, 0.5825E-02, 0.5946E-02, 0.6188E-02,& - 0.6309E-02, 0.6430E-02, 0.6673E-02, 0.6794E-02,& - 0.7036E-02, 0.7157E-02, 0.7400E-02, 0.7521E-02,& - 0.7763E-02, 0.8005E-02, 0.8126E-02, 0.8369E-02,& - 0.8611E-02, 0.8732E-02, 0.8974E-02, 0.9217E-02,& - 0.9459E-02, 0.9580E-02, 0.9822E-02, 0.1006E-01,& - 0.1031E-01, 0.1055E-01, 0.1079E-01, 0.1103E-01,& - 0.1128E-01, 0.1152E-01, 0.1176E-01, 0.1200E-01,& - 0.1225E-01, 0.1249E-01, 0.1273E-01, 0.1297E-01,& - 0.1321E-01, 0.1346E-01, 0.1370E-01, 0.1406E-01,& - 0.1430E-01, 0.1455E-01, 0.1491E-01, 0.1515E-01,& - 0.1539E-01, 0.1576E-01, 0.1600E-01, 0.1624E-01,& - 0.1661E-01, 0.1685E-01, 0.1721E-01, 0.1745E-01,& - 0.1782E-01, 0.1818E-01, 0.1842E-01, 0.1879E-01,& - 0.1915E-01, 0.1939E-01, 0.1976E-01, 0.2012E-01,& - 0.2036E-01, 0.2073E-01, 0.2109E-01, 0.2145E-01,& - 0.2182E-01, 0.2218E-01, 0.2254E-01, 0.2291E-01,& - 0.2327E-01, 0.2363E-01, 0.2400E-01, 0.2436E-01,& - 0.2472E-01, 0.2509E-01, 0.2545E-01, 0.2581E-01,& - 0.2630E-01, 0.2666E-01, 0.2702E-01, 0.2739E-01,& - 0.2787E-01, 0.2824E-01, 0.2860E-01, 0.2908E-01,& - 0.2945E-01, 0.2993E-01, 0.3030E-01, 0.3078E-01,& - 0.3114E-01, 0.3163E-01, 0.3211E-01, 0.3248E-01,& - 0.3296E-01, 0.3344E-01, 0.3381E-01, 0.3429E-01,& - 0.3478E-01, 0.3526E-01, 0.3575E-01, 0.3611E-01,& - 0.3659E-01, 0.3708E-01, 0.3756E-01, 0.3805E-01,& - 0.3853E-01, 0.3902E-01, 0.3950E-01, 0.4011E-01,& - 0.4059E-01, 0.4108E-01, 0.4156E-01, 0.4205E-01,& - 0.4265E-01, 0.4314E-01, 0.4362E-01, 0.4423E-01,& - 0.4471E-01, 0.4532E-01, 0.4580E-01, 0.4629E-01,& - 0.4689E-01, 0.4750E-01, 0.4798E-01, 0.4859E-01,& - 0.4907E-01, 0.4968E-01, 0.5028E-01, 0.5089E-01,& - 0.5137E-01, 0.5198E-01, 0.5258E-01, 0.5319E-01,& - 0.5380E-01, 0.5440E-01, 0.5501E-01, 0.5561E-01,& - 0.5622E-01, 0.5682E-01, 0.5743E-01, 0.5804E-01,& - 0.5864E-01, 0.5925E-01, 0.5997E-01, 0.6058E-01,& - 0.6119E-01, 0.6191E-01, 0.6252E-01, 0.6312E-01,& - 0.6385E-01, 0.6446E-01, 0.6518E-01, 0.6579E-01,& - 0.6652E-01, 0.6712E-01, 0.6785E-01, 0.6858E-01,& - 0.6930E-01, 0.6991E-01, 0.7063E-01, 0.7136E-01,& - 0.7209E-01, 0.7282E-01, 0.7354E-01, 0.7415E-01,& - 0.7487E-01, 0.7560E-01, 0.7645E-01, 0.7718E-01,& - 0.7790E-01, 0.7863E-01, 0.7936E-01, 0.8008E-01,& - 0.8093E-01, 0.8166E-01, 0.8239E-01, 0.8323E-01,& - 0.8396E-01, 0.8481E-01, 0.8554E-01, 0.8638E-01,& - 0.8711E-01, 0.8796E-01, 0.8868E-01, 0.8953E-01,& - 0.9038E-01, 0.9111E-01, 0.9196E-01, 0.9280E-01,& - 0.9365E-01, 0.9450E-01, 0.9535E-01, 0.9620E-01,& - 0.9704E-01, 0.9789E-01, 0.9874E-01, 0.9959E-01,& - 0.1004E+00, 0.1013E+00, 0.1021E+00, 0.1031E+00,& - 0.1039E+00, 0.1048E+00, 0.1058E+00, 0.1066E+00,& - 0.1076E+00, 0.1084E+00, 0.1094E+00, 0.1102E+00,& - 0.1112E+00, 0.1122E+00, 0.1130E+00, 0.1140E+00,& - 0.1150E+00, 0.1159E+00, 0.1168E+00, 0.1178E+00,& - 0.1187E+00, 0.1197E+00, 0.1207E+00, 0.1216E+00,& - 0.1226E+00, 0.1236E+00, 0.1247E+00, 0.1256E+00,& - 0.1266E+00, 0.1276E+00, 0.1287E+00, 0.1296E+00,& - 0.1306E+00, 0.1317E+00, 0.1327E+00, 0.1337E+00,& - 0.1348E+00, 0.1358E+00, 0.1369E+00, 0.1380E+00,& - 0.1390E+00, 0.1400E+00, 0.1411E+00, 0.1422E+00,& - 0.1433E+00, 0.1444E+00, 0.1455E+00, 0.1466E+00,& - 0.1477E+00, 0.1488E+00, 0.1499E+00, 0.1510E+00,& - 0.1520E+00, 0.1533E+00, 0.1543E+00, 0.1554E+00,& - 0.1566E+00, 0.1577E+00, 0.1589E+00, 0.1600E+00,& - 0.1612E+00, 0.1625E+00, 0.1635E+00, 0.1648E+00,& - 0.1660E+00, 0.1672E+00, 0.1684E+00, 0.1695E+00,& - 0.1707E+00, 0.1719E+00, 0.1731E+00, 0.1743E+00,& - 0.1757E+00, 0.1769E+00, 0.1781E+00, 0.1793E+00,& - 0.1806E+00, 0.1818E+00, 0.1831E+00, 0.1844E+00,& - 0.1856E+00, 0.1869E+00, 0.1881E+00, 0.1895E+00,& - 0.1908E+00, 0.1920E+00, 0.1934E+00, 0.1947E+00,& - 0.1960E+00, 0.1973E+00, 0.1987E+00, 0.2000E+00,& - 0.2013E+00, 0.2027E+00, 0.2040E+00, 0.2053E+00,& - 0.2068E+00, 0.2081E+00, 0.2095E+00, 0.2109E+00,& - 0.2122E+00, 0.2137E+00, 0.2150E+00, 0.2165E+00,& - 0.2178E+00, 0.2193E+00, 0.2207E+00, 0.2222E+00,& - 0.2235E+00, 0.2250E+00, 0.2264E+00, 0.2279E+00,& - 0.2293E+00, 0.2308E+00, 0.2322E+00, 0.2338E+00,& - 0.2353E+00, 0.2367E+00, 0.2382E+00, 0.2397E+00,& - 0.2412E+00, 0.2428E+00, 0.2442E+00, 0.2458E+00,& - 0.2474E+00, 0.2488E+00, 0.2504E+00, 0.2520E+00,& - 0.2536E+00, 0.2551E+00, 0.2567E+00, 0.2583E+00,& - 0.2599E+00, 0.2614E+00, 0.2630E+00, 0.2646E+00,& - 0.2662E+00, 0.2679E+00, 0.2694E+00, 0.2711E+00,& - 0.2727E+00, 0.2744E+00, 0.2760E+00, 0.2777E+00,& - 0.2794E+00, 0.2809E+00, 0.2826E+00, 0.2843E+00,& - 0.2860E+00, 0.2877E+00, 0.2894E+00, 0.2911E+00,& - 0.2928E+00, 0.2946E+00, 0.2963E+00, 0.2980E+00,& - 0.2998E+00, 0.3015E+00, 0.3033E+00, 0.3050E+00,& - 0.3069E+00, 0.3086E+00, 0.3104E+00, 0.3122E+00,& - 0.3140E+00, 0.3158E+00, 0.3176E+00, 0.3195E+00,& - 0.3213E+00, 0.3231E+00, 0.3249E+00, 0.3267E+00,& - 0.3287E+00, 0.3305E+00, 0.3323E+00, 0.3342E+00,& - 0.3361E+00, 0.3380E+00, 0.3399E+00, 0.3419E+00,& - 0.3437E+00, 0.3456E+00, 0.3476E+00, 0.3495E+00,& - 0.3514E+00, 0.3534E+00, 0.3553E+00, 0.3574E+00,& - 0.3593E+00, 0.3613E+00, 0.3633E+00, 0.3652E+00,& - 0.3673E+00, 0.3692E+00, 0.3713E+00, 0.3734E+00,& - 0.3754E+00, 0.3775E+00, 0.3794E+00, 0.3815E+00,& - 0.3837E+00, 0.3857E+00, 0.3878E+00, 0.3898E+00,& - 0.3919E+00, 0.3941E+00, 0.3961E+00, 0.3983E+00,& - 0.4004E+00, 0.4026E+00, 0.4047E+00, 0.4069E+00,& - 0.4090E+00, 0.4112E+00, 0.4133E+00, 0.4156E+00,& - 0.4178E+00, 0.4200E+00, 0.4222E+00, 0.4244E+00,& - 0.4267E+00, 0.4288E+00, 0.4311E+00, 0.4335E+00,& - 0.4356E+00, 0.4379E+00, 0.4402E+00, 0.4425E+00,& - 0.4448E+00, 0.4471E+00, 0.4494E+00, 0.4517E+00,& - 0.4540E+00, 0.4565E+00, 0.4588E+00, 0.4612E+00,& - 0.4635E+00, 0.4659E+00, 0.4683E+00, 0.4706E+00,& - 0.4731E+00, 0.4755E+00, 0.4779E+00, 0.4803E+00,& - 0.4828E+00, 0.4853E+00, 0.4877E+00, 0.4901E+00,& - 0.4927E+00, 0.4951E+00, 0.4977E+00, 0.5002E+00,& - 0.5026E+00, 0.5052E+00, 0.5077E+00, 0.5103E+00,& - 0.5128E+00, 0.5155E+00, 0.5180E+00, 0.5206E+00,& - 0.5232E+00, 0.5258E+00, 0.5284E+00, 0.5310E+00,& - 0.5336E+00, 0.5363E+00, 0.5390E+00, 0.5416E+00,& - 0.5443E+00, 0.5470E+00, 0.5496E+00, 0.5524E+00,& - 0.5551E+00, 0.5577E+00, 0.5605E+00, 0.5633E+00,& - 0.5660E+00, 0.5688E+00, 0.5716E+00, 0.5743E+00,& - 0.5771E+00, 0.5799E+00, 0.5828E+00, 0.5856E+00,& - 0.5884E+00, 0.5913E+00, 0.5942E+00, 0.5970E+00,& - 0.5999E+00, 0.6028E+00, 0.6057E+00, 0.6086E+00,& - 0.6115E+00, 0.6144E+00, 0.6175E+00, 0.6204E+00,& - 0.6234E+00, 0.6263E+00, 0.6293E+00, 0.6324E+00,& - 0.6354E+00, 0.6384E+00, 0.6414E+00, 0.6445E+00,& - 0.6475E+00, 0.6507E+00, 0.6537E+00, 0.6568E+00,& - 0.6599E+00, 0.6630E+00, 0.6662E+00, 0.6693E+00,& - 0.6725E+00, 0.6756E+00, 0.6789E+00, 0.6820E+00,& - 0.6852E+00, 0.6885E+00, 0.6917E+00, 0.6949E+00,& - 0.6981E+00, 0.7014E+00, 0.7047E+00, 0.7081E+00,& - 0.7113E+00, 0.7146E+00, 0.7180E+00, 0.7213E+00,& - 0.7247E+00, 0.7281E+00, 0.7315E+00, 0.7348E+00,& - 0.7382E+00, 0.7416E+00, 0.7451E+00, 0.7485E+00,& - 0.7520E+00, 0.7554E+00, 0.7590E+00, 0.7625E+00,& - 0.7660E+00, 0.7695E+00, 0.7731E+00, 0.7766E+00,& - 0.7802E+00, 0.7838E+00, 0.7874E+00, 0.7911E+00,& - 0.7946E+00, 0.7983E+00, 0.8020E+00, 0.8056E+00,& - 0.8092E+00, 0.8130E+00, 0.8167E+00, 0.8204E+00,& - 0.8241E+00, 0.8279E+00, 0.8318E+00, 0.8355E+00,& - 0.8393E+00, 0.8431E+00, 0.8469E+00, 0.8508E+00,& - 0.8547E+00, 0.8585E+00, 0.8624E+00, 0.8664E+00,& - 0.8703E+00, 0.8743E+00, 0.8782E+00, 0.8822E+00,& - 0.8862E+00, 0.8901E+00, 0.8941E+00, 0.8983E+00,& - 0.9023E+00, 0.9064E+00, 0.9104E+00, 0.9145E+00,& - 0.9186E+00, 0.9227E+00, 0.9270E+00, 0.9311E+00,& - 0.9353E+00, 0.9395E+00, 0.9437E+00, 0.9479E+00,& - 0.9522E+00, 0.9565E+00, 0.9608E+00, 0.9651E+00,& - 0.9694E+00, 0.9737E+00, 0.9781E+00, 0.9826E+00,& - 0.9869E+00, 0.9913E+00, 0.9958E+00, 0.1000E+01,& - 0.1005E+01, 0.1009E+01, 0.1014E+01, 0.1018E+01,& - 0.1023E+01, 0.1027E+01, 0.1032E+01, 0.1037E+01,& - 0.1041E+01, 0.1046E+01, 0.1051E+01, 0.1055E+01,& - 0.1060E+01, 0.1065E+01, 0.1069E+01, 0.1074E+01,& - 0.1079E+01, 0.1084E+01, 0.1089E+01, 0.1093E+01,& - 0.1098E+01, 0.1103E+01, 0.1108E+01, 0.1113E+01,& - 0.1118E+01, 0.1123E+01, 0.1128E+01, 0.1133E+01,& - 0.1138E+01, 0.1143E+01, 0.1148E+01, 0.1153E+01,& - 0.1158E+01, 0.1164E+01, 0.1169E+01, 0.1174E+01,& - 0.1179E+01, 0.1184E+01, 0.1190E+01, 0.1195E+01,& - 0.1200E+01, 0.1206E+01, 0.1211E+01, 0.1216E+01,& - 0.1222E+01, 0.1227E+01, 0.1233E+01, 0.1238E+01,& - 0.1244E+01, 0.1249E+01, 0.1255E+01, 0.1260E+01,& - 0.1266E+01, 0.1272E+01, 0.1277E+01, 0.1283E+01,& - 0.1289E+01, 0.1294E+01, 0.1300E+01, 0.1306E+01,& - 0.1312E+01, 0.1318E+01, 0.1324E+01, 0.1329E+01,& - 0.1335E+01, 0.1341E+01, 0.1347E+01, 0.1353E+01,& - 0.1359E+01, 0.1366E+01, 0.1372E+01, 0.1378E+01,& - 0.1384E+01, 0.1390E+01, 0.1396E+01, 0.1403E+01,& - 0.1409E+01, 0.1415E+01, 0.1422E+01, 0.1428E+01,& - 0.1434E+01, 0.1441E+01, 0.1447E+01, 0.1454E+01,& - 0.1460E+01, 0.1467E+01, 0.1473E+01, 0.1480E+01,& - 0.1487E+01, 0.1494E+01, 0.1500E+01, 0.1507E+01,& - 0.1514E+01, 0.1521E+01, 0.1528E+01, 0.1534E+01,& - 0.1541E+01, 0.1548E+01, 0.1555E+01, 0.1562E+01,& - 0.1570E+01, 0.1577E+01, 0.1584E+01, 0.1591E+01,& - 0.1598E+01, 0.1606E+01, 0.1613E+01, 0.1620E+01,& - 0.1628E+01, 0.1635E+01, 0.1643E+01, 0.1650E+01,& - 0.1658E+01, 0.1665E+01, 0.1673E+01, 0.1681E+01,& - 0.1689E+01, 0.1696E+01, 0.1704E+01, 0.1712E+01,& - 0.1720E+01, 0.1728E+01, 0.1736E+01, 0.1744E+01,& - 0.1752E+01, 0.1760E+01, 0.1768E+01, 0.1777E+01,& - 0.1785E+01, 0.1793E+01, 0.1802E+01, 0.1810E+01,& - 0.1818E+01, 0.1827E+01, 0.1836E+01, 0.1844E+01,& - 0.1853E+01, 0.1862E+01, 0.1870E+01, 0.1879E+01,& - 0.1888E+01, 0.1897E+01, 0.1906E+01, 0.1915E+01,& - 0.1924E+01, 0.1934E+01, 0.1943E+01, 0.1952E+01,& - 0.1961E+01, 0.1971E+01, 0.1980E+01, 0.1990E+01,& - 0.1999E+01, 0.2009E+01, 0.2019E+01, 0.2029E+01,& - 0.2038E+01, 0.2048E+01, 0.2058E+01, 0.2068E+01,& - 0.2078E+01, 0.2088E+01, 0.2099E+01, 0.2109E+01,& - 0.2119E+01, 0.2130E+01, 0.2140E+01, 0.2151E+01,& - 0.2162E+01, 0.2172E+01, 0.2183E+01, 0.2194E+01,& - 0.2205E+01, 0.2216E+01, 0.2227E+01, 0.2239E+01,& - 0.2250E+01, 0.2261E+01, 0.2273E+01, 0.2284E+01,& - 0.2296E+01, 0.2308E+01, 0.2319E+01, 0.2331E+01,& - 0.2343E+01, 0.2355E+01, 0.2368E+01, 0.2380E+01,& - 0.2392E+01, 0.2405E+01, 0.2417E+01, 0.2430E+01,& - 0.2443E+01, 0.2456E+01, 0.2468E+01, 0.2482E+01,& - 0.2495E+01, 0.2508E+01, 0.2522E+01, 0.2535E+01,& - 0.2549E+01, 0.2562E+01, 0.2576E+01, 0.2590E+01,& - 0.2604E+01, 0.2619E+01, 0.2633E+01, 0.2648E+01,& - 0.2662E+01, 0.2677E+01, 0.2692E+01, 0.2707E+01,& - 0.2722E+01, 0.2737E+01, 0.2753E+01, 0.2769E+01,& - 0.2784E+01, 0.2800E+01, 0.2816E+01, 0.2833E+01,& - 0.2849E+01, 0.2865E+01, 0.2882E+01, 0.2899E+01,& - 0.2916E+01, 0.2934E+01, 0.2951E+01, 0.2969E+01,& - 0.2986E+01, 0.3004E+01, 0.3023E+01, 0.3041E+01,& - 0.3060E+01, 0.3079E+01, 0.3098E+01, 0.3117E+01,& - 0.3136E+01, 0.3156E+01, 0.3176E+01, 0.3196E+01,& - 0.3217E+01, 0.3237E+01, 0.3258E+01, 0.3280E+01,& - 0.3301E+01, 0.3323E+01, 0.3345E+01, 0.3367E+01,& - 0.3390E+01, 0.3413E+01, 0.3436E+01, 0.3460E+01,& - 0.3484E+01, 0.3508E+01, 0.3533E+01, 0.3558E+01,& - 0.3583E+01, 0.3609E+01, 0.3635E+01, 0.3662E+01,& - 0.3689E+01, 0.3716E+01, 0.3744E+01, 0.3772E+01,& - 0.3801E+01, 0.3830E+01, 0.3860E+01, 0.3891E+01,& - 0.3922E+01, 0.3953E+01, 0.3985E+01, 0.4018E+01,& - 0.4051E+01, 0.4086E+01, 0.4120E+01, 0.4156E+01,& - 0.4192E+01, 0.4229E+01, 0.4267E+01, 0.4306E+01,& - 0.4345E+01, 0.4386E+01, 0.4428E+01, 0.4470E+01,& - 0.4514E+01, 0.4559E+01, 0.4605E+01, 0.4653E+01,& - 0.4701E+01, 0.4752E+01, 0.4804E+01, 0.4857E+01,& - 0.4912E+01, 0.4970E+01, 0.5029E+01, 0.5090E+01,& - 0.5154E+01, 0.5220E+01, 0.5290E+01, 0.5362E+01,& - 0.5437E+01, 0.5517E+01, 0.5600E+01, 0.5688E+01,& - 0.5780E+01, 0.5879E+01, 0.5984E+01, 0.6097E+01,& - 0.6218E+01, 0.6349E+01, 0.6493E+01, 0.6651E+01,& - 0.6828E+01, 0.7029E+01, 0.7262E+01, 0.7540E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 57) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1340E-03, 0.1340E-03, 0.1340E-03, 0.1340E-03,& - 0.1340E-03, 0.1340E-03, 0.2580E-03, 0.2580E-03,& - 0.2580E-03, 0.2580E-03, 0.3819E-03, 0.3819E-03,& - 0.3819E-03, 0.3819E-03, 0.5059E-03, 0.5059E-03,& - 0.5059E-03, 0.6299E-03, 0.6299E-03, 0.6299E-03,& - 0.7539E-03, 0.7539E-03, 0.8778E-03, 0.8778E-03,& - 0.8778E-03, 0.1002E-02, 0.1002E-02, 0.1126E-02,& - 0.1126E-02, 0.1250E-02, 0.1250E-02, 0.1374E-02,& - 0.1498E-02, 0.1498E-02, 0.1622E-02, 0.1622E-02,& - 0.1746E-02, 0.1870E-02, 0.1870E-02, 0.1994E-02,& - 0.2118E-02, 0.2118E-02, 0.2242E-02, 0.2366E-02,& - 0.2366E-02, 0.2490E-02, 0.2614E-02, 0.2738E-02,& - 0.2861E-02, 0.2985E-02, 0.2985E-02, 0.3109E-02,& - 0.3233E-02, 0.3357E-02, 0.3481E-02, 0.3605E-02,& - 0.3729E-02, 0.3853E-02, 0.3977E-02, 0.4101E-02,& - 0.4225E-02, 0.4349E-02, 0.4473E-02, 0.4597E-02,& - 0.4721E-02, 0.4969E-02, 0.5093E-02, 0.5217E-02,& - 0.5341E-02, 0.5465E-02, 0.5713E-02, 0.5837E-02,& - 0.5961E-02, 0.6085E-02, 0.6333E-02, 0.6457E-02,& - 0.6581E-02, 0.6829E-02, 0.6953E-02, 0.7201E-02,& - 0.7325E-02, 0.7573E-02, 0.7697E-02, 0.7945E-02,& - 0.8069E-02, 0.8316E-02, 0.8440E-02, 0.8688E-02,& - 0.8936E-02, 0.9060E-02, 0.9308E-02, 0.9556E-02,& - 0.9680E-02, 0.9928E-02, 0.1018E-01, 0.1030E-01,& - 0.1055E-01, 0.1080E-01, 0.1104E-01, 0.1129E-01,& - 0.1154E-01, 0.1179E-01, 0.1204E-01, 0.1228E-01,& - 0.1253E-01, 0.1278E-01, 0.1303E-01, 0.1328E-01,& - 0.1352E-01, 0.1377E-01, 0.1402E-01, 0.1427E-01,& - 0.1452E-01, 0.1476E-01, 0.1514E-01, 0.1538E-01,& - 0.1563E-01, 0.1588E-01, 0.1625E-01, 0.1650E-01,& - 0.1687E-01, 0.1712E-01, 0.1737E-01, 0.1774E-01,& - 0.1799E-01, 0.1836E-01, 0.1861E-01, 0.1898E-01,& - 0.1923E-01, 0.1960E-01, 0.1997E-01, 0.2022E-01,& - 0.2059E-01, 0.2096E-01, 0.2121E-01, 0.2158E-01,& - 0.2195E-01, 0.2233E-01, 0.2257E-01, 0.2295E-01,& - 0.2332E-01, 0.2369E-01, 0.2406E-01, 0.2443E-01,& - 0.2481E-01, 0.2518E-01, 0.2555E-01, 0.2592E-01,& - 0.2629E-01, 0.2667E-01, 0.2716E-01, 0.2753E-01,& - 0.2790E-01, 0.2828E-01, 0.2865E-01, 0.2914E-01,& - 0.2952E-01, 0.2989E-01, 0.3038E-01, 0.3076E-01,& - 0.3125E-01, 0.3162E-01, 0.3200E-01, 0.3249E-01,& - 0.3299E-01, 0.3336E-01, 0.3386E-01, 0.3423E-01,& - 0.3472E-01, 0.3522E-01, 0.3559E-01, 0.3609E-01,& - 0.3658E-01, 0.3708E-01, 0.3758E-01, 0.3795E-01,& - 0.3844E-01, 0.3894E-01, 0.3943E-01, 0.3993E-01,& - 0.4043E-01, 0.4092E-01, 0.4142E-01, 0.4191E-01,& - 0.4241E-01, 0.4303E-01, 0.4353E-01, 0.4402E-01,& - 0.4452E-01, 0.4514E-01, 0.4563E-01, 0.4613E-01,& - 0.4675E-01, 0.4725E-01, 0.4774E-01, 0.4836E-01,& - 0.4886E-01, 0.4948E-01, 0.5010E-01, 0.5059E-01,& - 0.5121E-01, 0.5171E-01, 0.5233E-01, 0.5295E-01,& - 0.5357E-01, 0.5406E-01, 0.5468E-01, 0.5530E-01,& - 0.5592E-01, 0.5654E-01, 0.5716E-01, 0.5778E-01,& - 0.5840E-01, 0.5902E-01, 0.5964E-01, 0.6026E-01,& - 0.6088E-01, 0.6150E-01, 0.6212E-01, 0.6287E-01,& - 0.6349E-01, 0.6411E-01, 0.6485E-01, 0.6547E-01,& - 0.6609E-01, 0.6683E-01, 0.6745E-01, 0.6820E-01,& - 0.6882E-01, 0.6956E-01, 0.7031E-01, 0.7093E-01,& - 0.7167E-01, 0.7241E-01, 0.7303E-01, 0.7378E-01,& - 0.7452E-01, 0.7526E-01, 0.7601E-01, 0.7675E-01,& - 0.7750E-01, 0.7824E-01, 0.7898E-01, 0.7973E-01,& - 0.8047E-01, 0.8122E-01, 0.8196E-01, 0.8270E-01,& - 0.8345E-01, 0.8431E-01, 0.8506E-01, 0.8580E-01,& - 0.8667E-01, 0.8741E-01, 0.8828E-01, 0.8903E-01,& - 0.8989E-01, 0.9064E-01, 0.9151E-01, 0.9225E-01,& - 0.9312E-01, 0.9399E-01, 0.9485E-01, 0.9560E-01,& - 0.9646E-01, 0.9733E-01, 0.9820E-01, 0.9907E-01,& - 0.9994E-01, 0.1008E+00, 0.1017E+00, 0.1025E+00,& - 0.1034E+00, 0.1043E+00, 0.1053E+00, 0.1061E+00,& - 0.1070E+00, 0.1079E+00, 0.1089E+00, 0.1097E+00,& - 0.1107E+00, 0.1116E+00, 0.1126E+00, 0.1134E+00,& - 0.1144E+00, 0.1153E+00, 0.1163E+00, 0.1173E+00,& - 0.1182E+00, 0.1192E+00, 0.1201E+00, 0.1211E+00,& - 0.1221E+00, 0.1231E+00, 0.1241E+00, 0.1251E+00,& - 0.1261E+00, 0.1271E+00, 0.1281E+00, 0.1291E+00,& - 0.1302E+00, 0.1312E+00, 0.1322E+00, 0.1332E+00,& - 0.1343E+00, 0.1353E+00, 0.1364E+00, 0.1374E+00,& - 0.1385E+00, 0.1395E+00, 0.1406E+00, 0.1417E+00,& - 0.1428E+00, 0.1438E+00, 0.1449E+00, 0.1461E+00,& - 0.1472E+00, 0.1483E+00, 0.1494E+00, 0.1505E+00,& - 0.1516E+00, 0.1528E+00, 0.1539E+00, 0.1550E+00,& - 0.1562E+00, 0.1573E+00, 0.1585E+00, 0.1597E+00,& - 0.1608E+00, 0.1620E+00, 0.1632E+00, 0.1644E+00,& - 0.1655E+00, 0.1668E+00, 0.1680E+00, 0.1691E+00,& - 0.1704E+00, 0.1716E+00, 0.1728E+00, 0.1741E+00,& - 0.1753E+00, 0.1766E+00, 0.1778E+00, 0.1790E+00,& - 0.1803E+00, 0.1815E+00, 0.1828E+00, 0.1841E+00,& - 0.1854E+00, 0.1866E+00, 0.1880E+00, 0.1892E+00,& - 0.1906E+00, 0.1918E+00, 0.1932E+00, 0.1945E+00,& - 0.1958E+00, 0.1971E+00, 0.1985E+00, 0.1999E+00,& - 0.2012E+00, 0.2026E+00, 0.2040E+00, 0.2053E+00,& - 0.2067E+00, 0.2080E+00, 0.2094E+00, 0.2108E+00,& - 0.2123E+00, 0.2136E+00, 0.2150E+00, 0.2165E+00,& - 0.2178E+00, 0.2193E+00, 0.2207E+00, 0.2222E+00,& - 0.2237E+00, 0.2250E+00, 0.2265E+00, 0.2280E+00,& - 0.2295E+00, 0.2310E+00, 0.2325E+00, 0.2340E+00,& - 0.2354E+00, 0.2369E+00, 0.2384E+00, 0.2400E+00,& - 0.2415E+00, 0.2430E+00, 0.2446E+00, 0.2461E+00,& - 0.2477E+00, 0.2492E+00, 0.2508E+00, 0.2523E+00,& - 0.2539E+00, 0.2555E+00, 0.2571E+00, 0.2588E+00,& - 0.2604E+00, 0.2620E+00, 0.2636E+00, 0.2652E+00,& - 0.2668E+00, 0.2684E+00, 0.2700E+00, 0.2718E+00,& - 0.2734E+00, 0.2751E+00, 0.2767E+00, 0.2785E+00,& - 0.2801E+00, 0.2818E+00, 0.2834E+00, 0.2852E+00,& - 0.2869E+00, 0.2886E+00, 0.2904E+00, 0.2921E+00,& - 0.2938E+00, 0.2956E+00, 0.2973E+00, 0.2990E+00,& - 0.3009E+00, 0.3026E+00, 0.3044E+00, 0.3062E+00,& - 0.3080E+00, 0.3098E+00, 0.3117E+00, 0.3134E+00,& - 0.3153E+00, 0.3171E+00, 0.3190E+00, 0.3209E+00,& - 0.3227E+00, 0.3246E+00, 0.3264E+00, 0.3283E+00,& - 0.3302E+00, 0.3321E+00, 0.3340E+00, 0.3359E+00,& - 0.3378E+00, 0.3397E+00, 0.3417E+00, 0.3437E+00,& - 0.3455E+00, 0.3475E+00, 0.3495E+00, 0.3515E+00,& - 0.3535E+00, 0.3555E+00, 0.3574E+00, 0.3594E+00,& - 0.3614E+00, 0.3635E+00, 0.3655E+00, 0.3676E+00,& - 0.3696E+00, 0.3717E+00, 0.3737E+00, 0.3758E+00,& - 0.3779E+00, 0.3800E+00, 0.3820E+00, 0.3841E+00,& - 0.3862E+00, 0.3884E+00, 0.3905E+00, 0.3926E+00,& - 0.3948E+00, 0.3970E+00, 0.3991E+00, 0.4012E+00,& - 0.4034E+00, 0.4057E+00, 0.4078E+00, 0.4100E+00,& - 0.4122E+00, 0.4145E+00, 0.4167E+00, 0.4189E+00,& - 0.4212E+00, 0.4234E+00, 0.4257E+00, 0.4280E+00,& - 0.4302E+00, 0.4326E+00, 0.4348E+00, 0.4372E+00,& - 0.4395E+00, 0.4417E+00, 0.4441E+00, 0.4465E+00,& - 0.4488E+00, 0.4512E+00, 0.4535E+00, 0.4560E+00,& - 0.4584E+00, 0.4607E+00, 0.4632E+00, 0.4655E+00,& - 0.4680E+00, 0.4704E+00, 0.4729E+00, 0.4753E+00,& - 0.4778E+00, 0.4803E+00, 0.4828E+00, 0.4853E+00,& - 0.4877E+00, 0.4903E+00, 0.4928E+00, 0.4953E+00,& - 0.4979E+00, 0.5005E+00, 0.5030E+00, 0.5056E+00,& - 0.5082E+00, 0.5108E+00, 0.5134E+00, 0.5160E+00,& - 0.5186E+00, 0.5212E+00, 0.5239E+00, 0.5265E+00,& - 0.5293E+00, 0.5319E+00, 0.5346E+00, 0.5373E+00,& - 0.5399E+00, 0.5427E+00, 0.5454E+00, 0.5481E+00,& - 0.5510E+00, 0.5537E+00, 0.5564E+00, 0.5593E+00,& - 0.5620E+00, 0.5649E+00, 0.5676E+00, 0.5704E+00,& - 0.5733E+00, 0.5761E+00, 0.5790E+00, 0.5818E+00,& - 0.5847E+00, 0.5877E+00, 0.5905E+00, 0.5935E+00,& - 0.5963E+00, 0.5993E+00, 0.6023E+00, 0.6053E+00,& - 0.6082E+00, 0.6112E+00, 0.6142E+00, 0.6172E+00,& - 0.6201E+00, 0.6232E+00, 0.6262E+00, 0.6293E+00,& - 0.6324E+00, 0.6355E+00, 0.6385E+00, 0.6416E+00,& - 0.6448E+00, 0.6479E+00, 0.6510E+00, 0.6541E+00,& - 0.6573E+00, 0.6606E+00, 0.6637E+00, 0.6669E+00,& - 0.6701E+00, 0.6733E+00, 0.6766E+00, 0.6798E+00,& - 0.6831E+00, 0.6863E+00, 0.6897E+00, 0.6929E+00,& - 0.6963E+00, 0.6996E+00, 0.7030E+00, 0.7063E+00,& - 0.7097E+00, 0.7130E+00, 0.7165E+00, 0.7198E+00,& - 0.7233E+00, 0.7266E+00, 0.7301E+00, 0.7336E+00,& - 0.7371E+00, 0.7405E+00, 0.7441E+00, 0.7476E+00,& - 0.7511E+00, 0.7547E+00, 0.7583E+00, 0.7619E+00,& - 0.7654E+00, 0.7690E+00, 0.7726E+00, 0.7762E+00,& - 0.7798E+00, 0.7835E+00, 0.7873E+00, 0.7909E+00,& - 0.7946E+00, 0.7983E+00, 0.8020E+00, 0.8059E+00,& - 0.8096E+00, 0.8133E+00, 0.8171E+00, 0.8210E+00,& - 0.8248E+00, 0.8287E+00, 0.8325E+00, 0.8364E+00,& - 0.8402E+00, 0.8442E+00, 0.8480E+00, 0.8520E+00,& - 0.8560E+00, 0.8599E+00, 0.8639E+00, 0.8680E+00,& - 0.8719E+00, 0.8760E+00, 0.8800E+00, 0.8841E+00,& - 0.8882E+00, 0.8923E+00, 0.8964E+00, 0.9006E+00,& - 0.9047E+00, 0.9089E+00, 0.9130E+00, 0.9172E+00,& - 0.9214E+00, 0.9258E+00, 0.9300E+00, 0.9342E+00,& - 0.9385E+00, 0.9429E+00, 0.9472E+00, 0.9515E+00,& - 0.9559E+00, 0.9602E+00, 0.9647E+00, 0.9690E+00,& - 0.9735E+00, 0.9779E+00, 0.9824E+00, 0.9870E+00,& - 0.9915E+00, 0.9960E+00, 0.1001E+01, 0.1005E+01,& - 0.1010E+01, 0.1014E+01, 0.1019E+01, 0.1024E+01,& - 0.1028E+01, 0.1033E+01, 0.1038E+01, 0.1042E+01,& - 0.1047E+01, 0.1052E+01, 0.1057E+01, 0.1062E+01,& - 0.1066E+01, 0.1071E+01, 0.1076E+01, 0.1079E+01,& - 0.1086E+01, 0.1091E+01, 0.1096E+01, 0.1101E+01,& - 0.1106E+01, 0.1111E+01, 0.1116E+01, 0.1121E+01,& - 0.1126E+01, 0.1131E+01, 0.1136E+01, 0.1142E+01,& - 0.1147E+01, 0.1152E+01, 0.1157E+01, 0.1162E+01,& - 0.1168E+01, 0.1173E+01, 0.1178E+01, 0.1184E+01,& - 0.1189E+01, 0.1195E+01, 0.1200E+01, 0.1205E+01,& - 0.1211E+01, 0.1216E+01, 0.1222E+01, 0.1228E+01,& - 0.1233E+01, 0.1239E+01, 0.1244E+01, 0.1250E+01,& - 0.1256E+01, 0.1261E+01, 0.1267E+01, 0.1273E+01,& - 0.1279E+01, 0.1285E+01, 0.1290E+01, 0.1296E+01,& - 0.1302E+01, 0.1308E+01, 0.1314E+01, 0.1320E+01,& - 0.1326E+01, 0.1332E+01, 0.1338E+01, 0.1344E+01,& - 0.1350E+01, 0.1357E+01, 0.1363E+01, 0.1369E+01,& - 0.1375E+01, 0.1381E+01, 0.1388E+01, 0.1394E+01,& - 0.1401E+01, 0.1407E+01, 0.1413E+01, 0.1420E+01,& - 0.1426E+01, 0.1433E+01, 0.1440E+01, 0.1446E+01,& - 0.1453E+01, 0.1459E+01, 0.1466E+01, 0.1473E+01,& - 0.1476E+01, 0.1487E+01, 0.1493E+01, 0.1500E+01,& - 0.1507E+01, 0.1514E+01, 0.1521E+01, 0.1528E+01,& - 0.1535E+01, 0.1542E+01, 0.1549E+01, 0.1557E+01,& - 0.1564E+01, 0.1571E+01, 0.1578E+01, 0.1586E+01,& - 0.1593E+01, 0.1601E+01, 0.1608E+01, 0.1616E+01,& - 0.1623E+01, 0.1631E+01, 0.1638E+01, 0.1646E+01,& - 0.1654E+01, 0.1661E+01, 0.1669E+01, 0.1677E+01,& - 0.1685E+01, 0.1693E+01, 0.1701E+01, 0.1709E+01,& - 0.1717E+01, 0.1725E+01, 0.1733E+01, 0.1741E+01,& - 0.1749E+01, 0.1758E+01, 0.1766E+01, 0.1775E+01,& - 0.1783E+01, 0.1791E+01, 0.1800E+01, 0.1809E+01,& - 0.1817E+01, 0.1826E+01, 0.1835E+01, 0.1843E+01,& - 0.1852E+01, 0.1861E+01, 0.1870E+01, 0.1879E+01,& - 0.1888E+01, 0.1897E+01, 0.1907E+01, 0.1916E+01,& - 0.1925E+01, 0.1934E+01, 0.1944E+01, 0.1953E+01,& - 0.1963E+01, 0.1972E+01, 0.1982E+01, 0.1992E+01,& - 0.2002E+01, 0.2011E+01, 0.2021E+01, 0.2031E+01,& - 0.2041E+01, 0.2051E+01, 0.2062E+01, 0.2072E+01,& - 0.2082E+01, 0.2093E+01, 0.2103E+01, 0.2113E+01,& - 0.2124E+01, 0.2135E+01, 0.2146E+01, 0.2156E+01,& - 0.2167E+01, 0.2178E+01, 0.2189E+01, 0.2200E+01,& - 0.2212E+01, 0.2223E+01, 0.2234E+01, 0.2246E+01,& - 0.2257E+01, 0.2269E+01, 0.2281E+01, 0.2292E+01,& - 0.2304E+01, 0.2316E+01, 0.2328E+01, 0.2340E+01,& - 0.2353E+01, 0.2365E+01, 0.2378E+01, 0.2390E+01,& - 0.2403E+01, 0.2415E+01, 0.2428E+01, 0.2441E+01,& - 0.2454E+01, 0.2468E+01, 0.2481E+01, 0.2494E+01,& - 0.2508E+01, 0.2521E+01, 0.2535E+01, 0.2549E+01,& - 0.2563E+01, 0.2577E+01, 0.2591E+01, 0.2605E+01,& - 0.2620E+01, 0.2635E+01, 0.2649E+01, 0.2664E+01,& - 0.2679E+01, 0.2694E+01, 0.2709E+01, 0.2725E+01,& - 0.2740E+01, 0.2756E+01, 0.2772E+01, 0.2788E+01,& - 0.2804E+01, 0.2820E+01, 0.2837E+01, 0.2853E+01,& - 0.2870E+01, 0.2887E+01, 0.2904E+01, 0.2922E+01,& - 0.2939E+01, 0.2957E+01, 0.2975E+01, 0.2993E+01,& - 0.3011E+01, 0.3030E+01, 0.3048E+01, 0.3067E+01,& - 0.3086E+01, 0.3106E+01, 0.3125E+01, 0.3145E+01,& - 0.3165E+01, 0.3185E+01, 0.3205E+01, 0.3226E+01,& - 0.3247E+01, 0.3268E+01, 0.3290E+01, 0.3312E+01,& - 0.3334E+01, 0.3356E+01, 0.3379E+01, 0.3402E+01,& - 0.3425E+01, 0.3448E+01, 0.3472E+01, 0.3497E+01,& - 0.3521E+01, 0.3546E+01, 0.3571E+01, 0.3597E+01,& - 0.3623E+01, 0.3650E+01, 0.3676E+01, 0.3704E+01,& - 0.3731E+01, 0.3760E+01, 0.3788E+01, 0.3817E+01,& - 0.3847E+01, 0.3877E+01, 0.3908E+01, 0.3939E+01,& - 0.3971E+01, 0.4003E+01, 0.4036E+01, 0.4070E+01,& - 0.4104E+01, 0.4139E+01, 0.4175E+01, 0.4212E+01,& - 0.4249E+01, 0.4287E+01, 0.4326E+01, 0.4366E+01,& - 0.4406E+01, 0.4448E+01, 0.4491E+01, 0.4535E+01,& - 0.4580E+01, 0.4626E+01, 0.4673E+01, 0.4722E+01,& - 0.4773E+01, 0.4824E+01, 0.4878E+01, 0.4933E+01,& - 0.4990E+01, 0.5049E+01, 0.5109E+01, 0.5172E+01,& - 0.5238E+01, 0.5307E+01, 0.5378E+01, 0.5452E+01,& - 0.5530E+01, 0.5612E+01, 0.5697E+01, 0.5788E+01,& - 0.5883E+01, 0.5985E+01, 0.6093E+01, 0.6209E+01,& - 0.6334E+01, 0.6469E+01, 0.6617E+01, 0.6780E+01,& - 0.6963E+01, 0.7170E+01, 0.7410E+01, 0.7696E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 58) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1369E-03, 0.1369E-03,& - 0.1369E-03, 0.1369E-03, 0.1369E-03, 0.1369E-03,& - 0.1369E-03, 0.2637E-03, 0.2637E-03, 0.2637E-03,& - 0.2637E-03, 0.2637E-03, 0.3906E-03, 0.3906E-03,& - 0.3906E-03, 0.5174E-03, 0.5174E-03, 0.5174E-03,& - 0.5174E-03, 0.6443E-03, 0.6443E-03, 0.6443E-03,& - 0.7712E-03, 0.7712E-03, 0.7712E-03, 0.8980E-03,& - 0.8980E-03, 0.1025E-02, 0.1025E-02, 0.1152E-02,& - 0.1152E-02, 0.1279E-02, 0.1279E-02, 0.1405E-02,& - 0.1405E-02, 0.1532E-02, 0.1532E-02, 0.1659E-02,& - 0.1659E-02, 0.1786E-02, 0.1786E-02, 0.1913E-02,& - 0.2040E-02, 0.2040E-02, 0.2167E-02, 0.2294E-02,& - 0.2294E-02, 0.2420E-02, 0.2547E-02, 0.2674E-02,& - 0.2674E-02, 0.2801E-02, 0.2928E-02, 0.3055E-02,& - 0.3055E-02, 0.3182E-02, 0.3308E-02, 0.3435E-02,& - 0.3562E-02, 0.3689E-02, 0.3816E-02, 0.3943E-02,& - 0.4070E-02, 0.4196E-02, 0.4323E-02, 0.4450E-02,& - 0.4577E-02, 0.4704E-02, 0.4831E-02, 0.4958E-02,& - 0.5084E-02, 0.5211E-02, 0.5338E-02, 0.5465E-02,& - 0.5719E-02, 0.5846E-02, 0.5973E-02, 0.6099E-02,& - 0.6226E-02, 0.6480E-02, 0.6607E-02, 0.6734E-02,& - 0.6987E-02, 0.7114E-02, 0.7241E-02, 0.7495E-02,& - 0.7622E-02, 0.7875E-02, 0.8002E-02, 0.8129E-02,& - 0.8383E-02, 0.8510E-02, 0.8764E-02, 0.9017E-02,& - 0.9144E-02, 0.9398E-02, 0.9525E-02, 0.9778E-02,& - 0.1003E-01, 0.1016E-01, 0.1041E-01, 0.1067E-01,& - 0.1079E-01, 0.1105E-01, 0.1130E-01, 0.1155E-01,& - 0.1181E-01, 0.1194E-01, 0.1219E-01, 0.1244E-01,& - 0.1270E-01, 0.1295E-01, 0.1320E-01, 0.1346E-01,& - 0.1371E-01, 0.1396E-01, 0.1422E-01, 0.1447E-01,& - 0.1473E-01, 0.1498E-01, 0.1536E-01, 0.1561E-01,& - 0.1587E-01, 0.1612E-01, 0.1638E-01, 0.1676E-01,& - 0.1701E-01, 0.1726E-01, 0.1764E-01, 0.1790E-01,& - 0.1815E-01, 0.1853E-01, 0.1879E-01, 0.1917E-01,& - 0.1942E-01, 0.1980E-01, 0.2005E-01, 0.2043E-01,& - 0.2069E-01, 0.2107E-01, 0.2132E-01, 0.2170E-01,& - 0.2208E-01, 0.2234E-01, 0.2272E-01, 0.2310E-01,& - 0.2348E-01, 0.2386E-01, 0.2411E-01, 0.2449E-01,& - 0.2488E-01, 0.2526E-01, 0.2564E-01, 0.2602E-01,& - 0.2640E-01, 0.2678E-01, 0.2716E-01, 0.2754E-01,& - 0.2792E-01, 0.2830E-01, 0.2868E-01, 0.2919E-01,& - 0.2957E-01, 0.2995E-01, 0.3033E-01, 0.3071E-01,& - 0.3122E-01, 0.3160E-01, 0.3211E-01, 0.3249E-01,& - 0.3287E-01, 0.3337E-01, 0.3376E-01, 0.3426E-01,& - 0.3464E-01, 0.3515E-01, 0.3553E-01, 0.3604E-01,& - 0.3655E-01, 0.3693E-01, 0.3743E-01, 0.3794E-01,& - 0.3845E-01, 0.3883E-01, 0.3934E-01, 0.3984E-01,& - 0.4035E-01, 0.4086E-01, 0.4137E-01, 0.4187E-01,& - 0.4238E-01, 0.4289E-01, 0.4340E-01, 0.4390E-01,& - 0.4441E-01, 0.4492E-01, 0.4543E-01, 0.4593E-01,& - 0.4657E-01, 0.4708E-01, 0.4758E-01, 0.4822E-01,& - 0.4873E-01, 0.4923E-01, 0.4987E-01, 0.5037E-01,& - 0.5101E-01, 0.5152E-01, 0.5215E-01, 0.5266E-01,& - 0.5329E-01, 0.5393E-01, 0.5443E-01, 0.5507E-01,& - 0.5570E-01, 0.5621E-01, 0.5684E-01, 0.5748E-01,& - 0.5811E-01, 0.5875E-01, 0.5938E-01, 0.6002E-01,& - 0.6065E-01, 0.6128E-01, 0.6192E-01, 0.6255E-01,& - 0.6319E-01, 0.6382E-01, 0.6446E-01, 0.6509E-01,& - 0.6585E-01, 0.6649E-01, 0.6712E-01, 0.6788E-01,& - 0.6852E-01, 0.6915E-01, 0.6991E-01, 0.7055E-01,& - 0.7131E-01, 0.7194E-01, 0.7270E-01, 0.7346E-01,& - 0.7410E-01, 0.7486E-01, 0.7562E-01, 0.7625E-01,& - 0.7702E-01, 0.7778E-01, 0.7854E-01, 0.7930E-01,& - 0.8006E-01, 0.8082E-01, 0.8158E-01, 0.8234E-01,& - 0.8310E-01, 0.8387E-01, 0.8463E-01, 0.8539E-01,& - 0.8628E-01, 0.8704E-01, 0.8780E-01, 0.8856E-01,& - 0.8945E-01, 0.9021E-01, 0.9110E-01, 0.9186E-01,& - 0.9275E-01, 0.9351E-01, 0.9440E-01, 0.9516E-01,& - 0.9604E-01, 0.9693E-01, 0.9769E-01, 0.9858E-01,& - 0.9947E-01, 0.1004E+00, 0.1012E+00, 0.1021E+00,& - 0.1030E+00, 0.1039E+00, 0.1048E+00, 0.1057E+00,& - 0.1066E+00, 0.1075E+00, 0.1084E+00, 0.1092E+00,& - 0.1103E+00, 0.1111E+00, 0.1120E+00, 0.1130E+00,& - 0.1139E+00, 0.1149E+00, 0.1158E+00, 0.1169E+00,& - 0.1177E+00, 0.1188E+00, 0.1196E+00, 0.1207E+00,& - 0.1217E+00, 0.1227E+00, 0.1237E+00, 0.1246E+00,& - 0.1256E+00, 0.1266E+00, 0.1276E+00, 0.1286E+00,& - 0.1297E+00, 0.1307E+00, 0.1318E+00, 0.1328E+00,& - 0.1338E+00, 0.1349E+00, 0.1360E+00, 0.1370E+00,& - 0.1380E+00, 0.1392E+00, 0.1402E+00, 0.1413E+00,& - 0.1423E+00, 0.1435E+00, 0.1446E+00, 0.1456E+00,& - 0.1468E+00, 0.1479E+00, 0.1491E+00, 0.1502E+00,& - 0.1512E+00, 0.1524E+00, 0.1535E+00, 0.1547E+00,& - 0.1559E+00, 0.1571E+00, 0.1582E+00, 0.1593E+00,& - 0.1605E+00, 0.1618E+00, 0.1629E+00, 0.1640E+00,& - 0.1653E+00, 0.1665E+00, 0.1677E+00, 0.1689E+00,& - 0.1701E+00, 0.1714E+00, 0.1725E+00, 0.1738E+00,& - 0.1751E+00, 0.1763E+00, 0.1776E+00, 0.1789E+00,& - 0.1802E+00, 0.1814E+00, 0.1827E+00, 0.1840E+00,& - 0.1852E+00, 0.1865E+00, 0.1879E+00, 0.1892E+00,& - 0.1904E+00, 0.1918E+00, 0.1931E+00, 0.1945E+00,& - 0.1958E+00, 0.1972E+00, 0.1984E+00, 0.1998E+00,& - 0.2012E+00, 0.2026E+00, 0.2040E+00, 0.2053E+00,& - 0.2067E+00, 0.2081E+00, 0.2095E+00, 0.2110E+00,& - 0.2124E+00, 0.2138E+00, 0.2152E+00, 0.2166E+00,& - 0.2181E+00, 0.2195E+00, 0.2210E+00, 0.2224E+00,& - 0.2239E+00, 0.2253E+00, 0.2268E+00, 0.2284E+00,& - 0.2298E+00, 0.2313E+00, 0.2328E+00, 0.2343E+00,& - 0.2358E+00, 0.2374E+00, 0.2389E+00, 0.2404E+00,& - 0.2419E+00, 0.2436E+00, 0.2451E+00, 0.2466E+00,& - 0.2483E+00, 0.2498E+00, 0.2515E+00, 0.2530E+00,& - 0.2546E+00, 0.2561E+00, 0.2578E+00, 0.2594E+00,& - 0.2611E+00, 0.2627E+00, 0.2643E+00, 0.2659E+00,& - 0.2676E+00, 0.2693E+00, 0.2710E+00, 0.2726E+00,& - 0.2743E+00, 0.2761E+00, 0.2777E+00, 0.2794E+00,& - 0.2811E+00, 0.2828E+00, 0.2846E+00, 0.2863E+00,& - 0.2880E+00, 0.2898E+00, 0.2915E+00, 0.2933E+00,& - 0.2951E+00, 0.2969E+00, 0.2986E+00, 0.3004E+00,& - 0.3022E+00, 0.3041E+00, 0.3059E+00, 0.3077E+00,& - 0.3096E+00, 0.3113E+00, 0.3132E+00, 0.3150E+00,& - 0.3169E+00, 0.3188E+00, 0.3207E+00, 0.3225E+00,& - 0.3244E+00, 0.3263E+00, 0.3282E+00, 0.3301E+00,& - 0.3321E+00, 0.3340E+00, 0.3359E+00, 0.3378E+00,& - 0.3399E+00, 0.3418E+00, 0.3438E+00, 0.3457E+00,& - 0.3477E+00, 0.3498E+00, 0.3518E+00, 0.3538E+00,& - 0.3557E+00, 0.3578E+00, 0.3599E+00, 0.3619E+00,& - 0.3640E+00, 0.3660E+00, 0.3680E+00, 0.3702E+00,& - 0.3722E+00, 0.3744E+00, 0.3764E+00, 0.3786E+00,& - 0.3807E+00, 0.3829E+00, 0.3849E+00, 0.3871E+00,& - 0.3892E+00, 0.3914E+00, 0.3937E+00, 0.3958E+00,& - 0.3980E+00, 0.4001E+00, 0.4024E+00, 0.4046E+00,& - 0.4069E+00, 0.4090E+00, 0.4113E+00, 0.4136E+00,& - 0.4159E+00, 0.4181E+00, 0.4204E+00, 0.4227E+00,& - 0.4250E+00, 0.4273E+00, 0.4296E+00, 0.4320E+00,& - 0.4343E+00, 0.4367E+00, 0.4390E+00, 0.4414E+00,& - 0.4438E+00, 0.4461E+00, 0.4485E+00, 0.4509E+00,& - 0.4533E+00, 0.4557E+00, 0.4581E+00, 0.4606E+00,& - 0.4631E+00, 0.4655E+00, 0.4680E+00, 0.4704E+00,& - 0.4730E+00, 0.4755E+00, 0.4780E+00, 0.4804E+00,& - 0.4830E+00, 0.4855E+00, 0.4882E+00, 0.4907E+00,& - 0.4933E+00, 0.4958E+00, 0.4985E+00, 0.5010E+00,& - 0.5037E+00, 0.5063E+00, 0.5089E+00, 0.5115E+00,& - 0.5142E+00, 0.5168E+00, 0.5195E+00, 0.5222E+00,& - 0.5250E+00, 0.5276E+00, 0.5304E+00, 0.5331E+00,& - 0.5359E+00, 0.5385E+00, 0.5413E+00, 0.5441E+00,& - 0.5469E+00, 0.5497E+00, 0.5525E+00, 0.5553E+00,& - 0.5582E+00, 0.5610E+00, 0.5638E+00, 0.5667E+00,& - 0.5696E+00, 0.5724E+00, 0.5753E+00, 0.5782E+00,& - 0.5812E+00, 0.5841E+00, 0.5871E+00, 0.5900E+00,& - 0.5930E+00, 0.5960E+00, 0.5989E+00, 0.6020E+00,& - 0.6050E+00, 0.6081E+00, 0.6111E+00, 0.6142E+00,& - 0.6172E+00, 0.6202E+00, 0.6234E+00, 0.6265E+00,& - 0.6295E+00, 0.6327E+00, 0.6358E+00, 0.6390E+00,& - 0.6422E+00, 0.6454E+00, 0.6485E+00, 0.6517E+00,& - 0.6549E+00, 0.6582E+00, 0.6613E+00, 0.6646E+00,& - 0.6679E+00, 0.6712E+00, 0.6745E+00, 0.6778E+00,& - 0.6811E+00, 0.6844E+00, 0.6879E+00, 0.6912E+00,& - 0.6946E+00, 0.6979E+00, 0.7013E+00, 0.7047E+00,& - 0.7082E+00, 0.7116E+00, 0.7151E+00, 0.7186E+00,& - 0.7220E+00, 0.7255E+00, 0.7291E+00, 0.7326E+00,& - 0.7361E+00, 0.7396E+00, 0.7433E+00, 0.7468E+00,& - 0.7504E+00, 0.7541E+00, 0.7576E+00, 0.7613E+00,& - 0.7650E+00, 0.7687E+00, 0.7723E+00, 0.7760E+00,& - 0.7798E+00, 0.7835E+00, 0.7873E+00, 0.7910E+00,& - 0.7948E+00, 0.7986E+00, 0.8024E+00, 0.8062E+00,& - 0.8102E+00, 0.8140E+00, 0.8179E+00, 0.8217E+00,& - 0.8256E+00, 0.8296E+00, 0.8335E+00, 0.8374E+00,& - 0.8415E+00, 0.8454E+00, 0.8495E+00, 0.8535E+00,& - 0.8575E+00, 0.8615E+00, 0.8657E+00, 0.8698E+00,& - 0.8738E+00, 0.8780E+00, 0.8821E+00, 0.8863E+00,& - 0.8905E+00, 0.8946E+00, 0.8988E+00, 0.9031E+00,& - 0.9073E+00, 0.9116E+00, 0.9160E+00, 0.9203E+00,& - 0.9246E+00, 0.9289E+00, 0.9332E+00, 0.9377E+00,& - 0.9421E+00, 0.9465E+00, 0.9508E+00, 0.9554E+00,& - 0.9599E+00, 0.9643E+00, 0.9689E+00, 0.9734E+00,& - 0.9780E+00, 0.9826E+00, 0.9871E+00, 0.9917E+00,& - 0.9964E+00, 0.1001E+01, 0.1006E+01, 0.1010E+01,& - 0.1015E+01, 0.1020E+01, 0.1025E+01, 0.1029E+01,& - 0.1034E+01, 0.1039E+01, 0.1044E+01, 0.1049E+01,& - 0.1054E+01, 0.1058E+01, 0.1063E+01, 0.1068E+01,& - 0.1073E+01, 0.1078E+01, 0.1083E+01, 0.1088E+01,& - 0.1093E+01, 0.1099E+01, 0.1104E+01, 0.1109E+01,& - 0.1114E+01, 0.1119E+01, 0.1124E+01, 0.1129E+01,& - 0.1135E+01, 0.1140E+01, 0.1145E+01, 0.1151E+01,& - 0.1156E+01, 0.1161E+01, 0.1167E+01, 0.1172E+01,& - 0.1178E+01, 0.1183E+01, 0.1189E+01, 0.1194E+01,& - 0.1200E+01, 0.1205E+01, 0.1211E+01, 0.1216E+01,& - 0.1222E+01, 0.1228E+01, 0.1233E+01, 0.1239E+01,& - 0.1245E+01, 0.1251E+01, 0.1257E+01, 0.1262E+01,& - 0.1268E+01, 0.1274E+01, 0.1280E+01, 0.1286E+01,& - 0.1292E+01, 0.1298E+01, 0.1304E+01, 0.1310E+01,& - 0.1316E+01, 0.1322E+01, 0.1329E+01, 0.1335E+01,& - 0.1341E+01, 0.1347E+01, 0.1354E+01, 0.1360E+01,& - 0.1366E+01, 0.1373E+01, 0.1379E+01, 0.1385E+01,& - 0.1392E+01, 0.1398E+01, 0.1405E+01, 0.1411E+01,& - 0.1418E+01, 0.1425E+01, 0.1431E+01, 0.1438E+01,& - 0.1445E+01, 0.1452E+01, 0.1458E+01, 0.1465E+01,& - 0.1472E+01, 0.1479E+01, 0.1486E+01, 0.1493E+01,& - 0.1500E+01, 0.1507E+01, 0.1514E+01, 0.1521E+01,& - 0.1529E+01, 0.1536E+01, 0.1543E+01, 0.1550E+01,& - 0.1558E+01, 0.1565E+01, 0.1572E+01, 0.1580E+01,& - 0.1587E+01, 0.1595E+01, 0.1603E+01, 0.1610E+01,& - 0.1618E+01, 0.1625E+01, 0.1633E+01, 0.1641E+01,& - 0.1649E+01, 0.1657E+01, 0.1665E+01, 0.1673E+01,& - 0.1681E+01, 0.1689E+01, 0.1697E+01, 0.1705E+01,& - 0.1713E+01, 0.1721E+01, 0.1730E+01, 0.1738E+01,& - 0.1746E+01, 0.1755E+01, 0.1763E+01, 0.1772E+01,& - 0.1780E+01, 0.1789E+01, 0.1798E+01, 0.1807E+01,& - 0.1815E+01, 0.1824E+01, 0.1833E+01, 0.1842E+01,& - 0.1851E+01, 0.1860E+01, 0.1869E+01, 0.1878E+01,& - 0.1888E+01, 0.1897E+01, 0.1906E+01, 0.1916E+01,& - 0.1925E+01, 0.1935E+01, 0.1944E+01, 0.1954E+01,& - 0.1964E+01, 0.1973E+01, 0.1983E+01, 0.1993E+01,& - 0.2003E+01, 0.2013E+01, 0.2023E+01, 0.2033E+01,& - 0.2044E+01, 0.2054E+01, 0.2064E+01, 0.2075E+01,& - 0.2085E+01, 0.2096E+01, 0.2107E+01, 0.2117E+01,& - 0.2128E+01, 0.2139E+01, 0.2150E+01, 0.2161E+01,& - 0.2172E+01, 0.2183E+01, 0.2195E+01, 0.2206E+01,& - 0.2217E+01, 0.2229E+01, 0.2241E+01, 0.2252E+01,& - 0.2264E+01, 0.2276E+01, 0.2288E+01, 0.2300E+01,& - 0.2312E+01, 0.2324E+01, 0.2337E+01, 0.2349E+01,& - 0.2362E+01, 0.2374E+01, 0.2387E+01, 0.2400E+01,& - 0.2413E+01, 0.2426E+01, 0.2439E+01, 0.2452E+01,& - 0.2465E+01, 0.2479E+01, 0.2492E+01, 0.2506E+01,& - 0.2520E+01, 0.2534E+01, 0.2548E+01, 0.2562E+01,& - 0.2576E+01, 0.2591E+01, 0.2605E+01, 0.2620E+01,& - 0.2635E+01, 0.2650E+01, 0.2665E+01, 0.2680E+01,& - 0.2695E+01, 0.2711E+01, 0.2726E+01, 0.2742E+01,& - 0.2758E+01, 0.2774E+01, 0.2790E+01, 0.2807E+01,& - 0.2823E+01, 0.2840E+01, 0.2857E+01, 0.2874E+01,& - 0.2891E+01, 0.2908E+01, 0.2926E+01, 0.2944E+01,& - 0.2961E+01, 0.2980E+01, 0.2998E+01, 0.3016E+01,& - 0.3035E+01, 0.3054E+01, 0.3073E+01, 0.3093E+01,& - 0.3112E+01, 0.3132E+01, 0.3152E+01, 0.3172E+01,& - 0.3193E+01, 0.3213E+01, 0.3234E+01, 0.3256E+01,& - 0.3277E+01, 0.3299E+01, 0.3321E+01, 0.3343E+01,& - 0.3366E+01, 0.3389E+01, 0.3412E+01, 0.3435E+01,& - 0.3459E+01, 0.3484E+01, 0.3508E+01, 0.3533E+01,& - 0.3558E+01, 0.3584E+01, 0.3610E+01, 0.3636E+01,& - 0.3663E+01, 0.3690E+01, 0.3717E+01, 0.3745E+01,& - 0.3774E+01, 0.3803E+01, 0.3832E+01, 0.3862E+01,& - 0.3893E+01, 0.3924E+01, 0.3955E+01, 0.3987E+01,& - 0.4020E+01, 0.4053E+01, 0.4087E+01, 0.4122E+01,& - 0.4157E+01, 0.4193E+01, 0.4229E+01, 0.4267E+01,& - 0.4305E+01, 0.4344E+01, 0.4384E+01, 0.4425E+01,& - 0.4467E+01, 0.4510E+01, 0.4554E+01, 0.4599E+01,& - 0.4645E+01, 0.4693E+01, 0.4742E+01, 0.4792E+01,& - 0.4844E+01, 0.4897E+01, 0.4952E+01, 0.5009E+01,& - 0.5067E+01, 0.5128E+01, 0.5190E+01, 0.5255E+01,& - 0.5323E+01, 0.5393E+01, 0.5467E+01, 0.5543E+01,& - 0.5623E+01, 0.5707E+01, 0.5795E+01, 0.5888E+01,& - 0.5987E+01, 0.6091E+01, 0.6203E+01, 0.6322E+01,& - 0.6451E+01, 0.6590E+01, 0.6742E+01, 0.6911E+01,& - 0.7099E+01, 0.7312E+01, 0.7559E+01, 0.7854E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 59) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1398E-03, 0.1398E-03, 0.1398E-03,& - 0.1398E-03, 0.1398E-03, 0.1398E-03, 0.1398E-03,& - 0.2696E-03, 0.2696E-03, 0.2696E-03, 0.2696E-03,& - 0.2696E-03, 0.3994E-03, 0.3994E-03, 0.3994E-03,& - 0.3994E-03, 0.5292E-03, 0.5292E-03, 0.5292E-03,& - 0.5292E-03, 0.6590E-03, 0.6590E-03, 0.6590E-03,& - 0.7888E-03, 0.7888E-03, 0.7888E-03, 0.9186E-03,& - 0.9186E-03, 0.9186E-03, 0.1048E-02, 0.1048E-02,& - 0.1178E-02, 0.1178E-02, 0.1308E-02, 0.1308E-02,& - 0.1308E-02, 0.1438E-02, 0.1438E-02, 0.1568E-02,& - 0.1568E-02, 0.1697E-02, 0.1827E-02, 0.1827E-02,& - 0.1957E-02, 0.1957E-02, 0.2087E-02, 0.2217E-02,& - 0.2217E-02, 0.2346E-02, 0.2346E-02, 0.2476E-02,& - 0.2606E-02, 0.2736E-02, 0.2736E-02, 0.2865E-02,& - 0.2995E-02, 0.3125E-02, 0.3125E-02, 0.3255E-02,& - 0.3385E-02, 0.3514E-02, 0.3644E-02, 0.3644E-02,& - 0.3774E-02, 0.3904E-02, 0.4034E-02, 0.4163E-02,& - 0.4293E-02, 0.4423E-02, 0.4553E-02, 0.4683E-02,& - 0.4812E-02, 0.4942E-02, 0.5072E-02, 0.5202E-02,& - 0.5332E-02, 0.5461E-02, 0.5591E-02, 0.5721E-02,& - 0.5981E-02, 0.6110E-02, 0.6240E-02, 0.6370E-02,& - 0.6500E-02, 0.6759E-02, 0.6889E-02, 0.7019E-02,& - 0.7149E-02, 0.7408E-02, 0.7538E-02, 0.7668E-02,& - 0.7927E-02, 0.8057E-02, 0.8317E-02, 0.8447E-02,& - 0.8576E-02, 0.8836E-02, 0.8966E-02, 0.9225E-02,& - 0.9355E-02, 0.9615E-02, 0.9874E-02, 0.1000E-01,& - 0.1026E-01, 0.1039E-01, 0.1065E-01, 0.1091E-01,& - 0.1104E-01, 0.1130E-01, 0.1156E-01, 0.1169E-01,& - 0.1195E-01, 0.1221E-01, 0.1247E-01, 0.1273E-01,& - 0.1299E-01, 0.1312E-01, 0.1338E-01, 0.1364E-01,& - 0.1390E-01, 0.1416E-01, 0.1442E-01, 0.1468E-01,& - 0.1494E-01, 0.1520E-01, 0.1546E-01, 0.1572E-01,& - 0.1597E-01, 0.1636E-01, 0.1662E-01, 0.1688E-01,& - 0.1714E-01, 0.1740E-01, 0.1779E-01, 0.1805E-01,& - 0.1831E-01, 0.1857E-01, 0.1896E-01, 0.1922E-01,& - 0.1961E-01, 0.1987E-01, 0.2013E-01, 0.2052E-01,& - 0.2078E-01, 0.2117E-01, 0.2143E-01, 0.2182E-01,& - 0.2220E-01, 0.2246E-01, 0.2285E-01, 0.2324E-01,& - 0.2350E-01, 0.2389E-01, 0.2428E-01, 0.2454E-01,& - 0.2493E-01, 0.2532E-01, 0.2571E-01, 0.2610E-01,& - 0.2649E-01, 0.2675E-01, 0.2714E-01, 0.2753E-01,& - 0.2792E-01, 0.2831E-01, 0.2869E-01, 0.2908E-01,& - 0.2960E-01, 0.2999E-01, 0.3038E-01, 0.3077E-01,& - 0.3116E-01, 0.3155E-01, 0.3207E-01, 0.3246E-01,& - 0.3285E-01, 0.3337E-01, 0.3376E-01, 0.3415E-01,& - 0.3467E-01, 0.3505E-01, 0.3557E-01, 0.3596E-01,& - 0.3648E-01, 0.3687E-01, 0.3739E-01, 0.3778E-01,& - 0.3830E-01, 0.3882E-01, 0.3921E-01, 0.3973E-01,& - 0.4025E-01, 0.4077E-01, 0.4128E-01, 0.4167E-01,& - 0.4219E-01, 0.4271E-01, 0.4323E-01, 0.4375E-01,& - 0.4427E-01, 0.4479E-01, 0.4531E-01, 0.4583E-01,& - 0.4635E-01, 0.4687E-01, 0.4751E-01, 0.4803E-01,& - 0.4855E-01, 0.4907E-01, 0.4959E-01, 0.5024E-01,& - 0.5076E-01, 0.5141E-01, 0.5193E-01, 0.5245E-01,& - 0.5310E-01, 0.5362E-01, 0.5426E-01, 0.5478E-01,& - 0.5543E-01, 0.5608E-01, 0.5660E-01, 0.5725E-01,& - 0.5790E-01, 0.5842E-01, 0.5907E-01, 0.5972E-01,& - 0.6036E-01, 0.6101E-01, 0.6166E-01, 0.6231E-01,& - 0.6296E-01, 0.6361E-01, 0.6426E-01, 0.6491E-01,& - 0.6556E-01, 0.6621E-01, 0.6685E-01, 0.6750E-01,& - 0.6828E-01, 0.6893E-01, 0.6958E-01, 0.7023E-01,& - 0.7101E-01, 0.7166E-01, 0.7244E-01, 0.7308E-01,& - 0.7386E-01, 0.7451E-01, 0.7529E-01, 0.7594E-01,& - 0.7672E-01, 0.7750E-01, 0.7815E-01, 0.7893E-01,& - 0.7970E-01, 0.8048E-01, 0.8126E-01, 0.8191E-01,& - 0.8269E-01, 0.8347E-01, 0.8425E-01, 0.8503E-01,& - 0.8580E-01, 0.8671E-01, 0.8749E-01, 0.8827E-01,& - 0.8905E-01, 0.8983E-01, 0.9074E-01, 0.9152E-01,& - 0.9229E-01, 0.9320E-01, 0.9398E-01, 0.9489E-01,& - 0.9567E-01, 0.9658E-01, 0.9736E-01, 0.9826E-01,& - 0.9904E-01, 0.9995E-01, 0.1009E+00, 0.1018E+00,& - 0.1025E+00, 0.1035E+00, 0.1044E+00, 0.1053E+00,& - 0.1062E+00, 0.1071E+00, 0.1080E+00, 0.1089E+00,& - 0.1098E+00, 0.1107E+00, 0.1118E+00, 0.1127E+00,& - 0.1136E+00, 0.1145E+00, 0.1155E+00, 0.1164E+00,& - 0.1175E+00, 0.1184E+00, 0.1194E+00, 0.1203E+00,& - 0.1214E+00, 0.1223E+00, 0.1233E+00, 0.1244E+00,& - 0.1253E+00, 0.1263E+00, 0.1273E+00, 0.1284E+00,& - 0.1294E+00, 0.1305E+00, 0.1315E+00, 0.1325E+00,& - 0.1336E+00, 0.1346E+00, 0.1356E+00, 0.1367E+00,& - 0.1379E+00, 0.1389E+00, 0.1399E+00, 0.1411E+00,& - 0.1421E+00, 0.1432E+00, 0.1443E+00, 0.1454E+00,& - 0.1465E+00, 0.1477E+00, 0.1488E+00, 0.1499E+00,& - 0.1511E+00, 0.1523E+00, 0.1534E+00, 0.1545E+00,& - 0.1556E+00, 0.1568E+00, 0.1580E+00, 0.1591E+00,& - 0.1604E+00, 0.1616E+00, 0.1628E+00, 0.1639E+00,& - 0.1651E+00, 0.1664E+00, 0.1676E+00, 0.1689E+00,& - 0.1700E+00, 0.1713E+00, 0.1725E+00, 0.1738E+00,& - 0.1750E+00, 0.1763E+00, 0.1776E+00, 0.1789E+00,& - 0.1802E+00, 0.1813E+00, 0.1826E+00, 0.1839E+00,& - 0.1852E+00, 0.1867E+00, 0.1880E+00, 0.1893E+00,& - 0.1905E+00, 0.1918E+00, 0.1933E+00, 0.1946E+00,& - 0.1959E+00, 0.1973E+00, 0.1986E+00, 0.2000E+00,& - 0.2015E+00, 0.2027E+00, 0.2042E+00, 0.2056E+00,& - 0.2070E+00, 0.2085E+00, 0.2098E+00, 0.2112E+00,& - 0.2126E+00, 0.2140E+00, 0.2156E+00, 0.2170E+00,& - 0.2185E+00, 0.2199E+00, 0.2214E+00, 0.2229E+00,& - 0.2243E+00, 0.2259E+00, 0.2273E+00, 0.2288E+00,& - 0.2304E+00, 0.2318E+00, 0.2334E+00, 0.2349E+00,& - 0.2365E+00, 0.2381E+00, 0.2396E+00, 0.2412E+00,& - 0.2427E+00, 0.2443E+00, 0.2458E+00, 0.2474E+00,& - 0.2490E+00, 0.2506E+00, 0.2522E+00, 0.2539E+00,& - 0.2554E+00, 0.2571E+00, 0.2587E+00, 0.2604E+00,& - 0.2621E+00, 0.2636E+00, 0.2653E+00, 0.2670E+00,& - 0.2687E+00, 0.2704E+00, 0.2721E+00, 0.2737E+00,& - 0.2754E+00, 0.2773E+00, 0.2789E+00, 0.2806E+00,& - 0.2824E+00, 0.2841E+00, 0.2859E+00, 0.2876E+00,& - 0.2895E+00, 0.2913E+00, 0.2930E+00, 0.2948E+00,& - 0.2966E+00, 0.2984E+00, 0.3002E+00, 0.3020E+00,& - 0.3039E+00, 0.3057E+00, 0.3076E+00, 0.3094E+00,& - 0.3113E+00, 0.3132E+00, 0.3150E+00, 0.3170E+00,& - 0.3188E+00, 0.3207E+00, 0.3227E+00, 0.3246E+00,& - 0.3264E+00, 0.3284E+00, 0.3303E+00, 0.3323E+00,& - 0.3342E+00, 0.3363E+00, 0.3383E+00, 0.3402E+00,& - 0.3423E+00, 0.3442E+00, 0.3462E+00, 0.3483E+00,& - 0.3503E+00, 0.3523E+00, 0.3544E+00, 0.3564E+00,& - 0.3585E+00, 0.3606E+00, 0.3627E+00, 0.3647E+00,& - 0.3668E+00, 0.3689E+00, 0.3711E+00, 0.3732E+00,& - 0.3752E+00, 0.3775E+00, 0.3795E+00, 0.3817E+00,& - 0.3839E+00, 0.3862E+00, 0.3882E+00, 0.3904E+00,& - 0.3926E+00, 0.3948E+00, 0.3972E+00, 0.3994E+00,& - 0.4016E+00, 0.4038E+00, 0.4061E+00, 0.4083E+00,& - 0.4107E+00, 0.4129E+00, 0.4152E+00, 0.4176E+00,& - 0.4199E+00, 0.4222E+00, 0.4246E+00, 0.4269E+00,& - 0.4292E+00, 0.4316E+00, 0.4339E+00, 0.4364E+00,& - 0.4387E+00, 0.4412E+00, 0.4435E+00, 0.4460E+00,& - 0.4485E+00, 0.4509E+00, 0.4534E+00, 0.4559E+00,& - 0.4583E+00, 0.4608E+00, 0.4632E+00, 0.4657E+00,& - 0.4683E+00, 0.4708E+00, 0.4734E+00, 0.4758E+00,& - 0.4784E+00, 0.4810E+00, 0.4836E+00, 0.4862E+00,& - 0.4888E+00, 0.4914E+00, 0.4940E+00, 0.4966E+00,& - 0.4993E+00, 0.5019E+00, 0.5047E+00, 0.5072E+00,& - 0.5100E+00, 0.5127E+00, 0.5154E+00, 0.5180E+00,& - 0.5207E+00, 0.5236E+00, 0.5263E+00, 0.5291E+00,& - 0.5318E+00, 0.5346E+00, 0.5375E+00, 0.5402E+00,& - 0.5431E+00, 0.5459E+00, 0.5488E+00, 0.5516E+00,& - 0.5545E+00, 0.5573E+00, 0.5602E+00, 0.5632E+00,& - 0.5660E+00, 0.5690E+00, 0.5719E+00, 0.5749E+00,& - 0.5779E+00, 0.5808E+00, 0.5838E+00, 0.5868E+00,& - 0.5898E+00, 0.5928E+00, 0.5959E+00, 0.5989E+00,& - 0.6020E+00, 0.6050E+00, 0.6081E+00, 0.6112E+00,& - 0.6143E+00, 0.6174E+00, 0.6206E+00, 0.6238E+00,& - 0.6269E+00, 0.6300E+00, 0.6333E+00, 0.6365E+00,& - 0.6398E+00, 0.6429E+00, 0.6461E+00, 0.6494E+00,& - 0.6527E+00, 0.6560E+00, 0.6592E+00, 0.6626E+00,& - 0.6659E+00, 0.6692E+00, 0.6726E+00, 0.6760E+00,& - 0.6794E+00, 0.6827E+00, 0.6861E+00, 0.6896E+00,& - 0.6930E+00, 0.6965E+00, 0.6999E+00, 0.7034E+00,& - 0.7069E+00, 0.7104E+00, 0.7139E+00, 0.7175E+00,& - 0.7210E+00, 0.7245E+00, 0.7282E+00, 0.7318E+00,& - 0.7354E+00, 0.7389E+00, 0.7427E+00, 0.7463E+00,& - 0.7500E+00, 0.7536E+00, 0.7574E+00, 0.7611E+00,& - 0.7648E+00, 0.7685E+00, 0.7723E+00, 0.7761E+00,& - 0.7799E+00, 0.7837E+00, 0.7876E+00, 0.7914E+00,& - 0.7953E+00, 0.7992E+00, 0.8031E+00, 0.8069E+00,& - 0.8108E+00, 0.8149E+00, 0.8188E+00, 0.8228E+00,& - 0.8268E+00, 0.8308E+00, 0.8349E+00, 0.8389E+00,& - 0.8429E+00, 0.8471E+00, 0.8511E+00, 0.8552E+00,& - 0.8594E+00, 0.8635E+00, 0.8677E+00, 0.8718E+00,& - 0.8760E+00, 0.8803E+00, 0.8846E+00, 0.8888E+00,& - 0.8930E+00, 0.8974E+00, 0.9017E+00, 0.9060E+00,& - 0.9104E+00, 0.9147E+00, 0.9191E+00, 0.9235E+00,& - 0.9279E+00, 0.9325E+00, 0.9369E+00, 0.9414E+00,& - 0.9460E+00, 0.9504E+00, 0.9549E+00, 0.9596E+00,& - 0.9641E+00, 0.9688E+00, 0.9733E+00, 0.9780E+00,& - 0.9827E+00, 0.9874E+00, 0.9920E+00, 0.9968E+00,& - 0.1002E+01, 0.1006E+01, 0.1011E+01, 0.1016E+01,& - 0.1021E+01, 0.1026E+01, 0.1031E+01, 0.1036E+01,& - 0.1040E+01, 0.1045E+01, 0.1050E+01, 0.1055E+01,& - 0.1060E+01, 0.1065E+01, 0.1070E+01, 0.1075E+01,& - 0.1081E+01, 0.1086E+01, 0.1091E+01, 0.1096E+01,& - 0.1101E+01, 0.1107E+01, 0.1112E+01, 0.1117E+01,& - 0.1122E+01, 0.1128E+01, 0.1133E+01, 0.1138E+01,& - 0.1144E+01, 0.1149E+01, 0.1155E+01, 0.1160E+01,& - 0.1166E+01, 0.1171E+01, 0.1177E+01, 0.1182E+01,& - 0.1188E+01, 0.1194E+01, 0.1199E+01, 0.1205E+01,& - 0.1211E+01, 0.1216E+01, 0.1222E+01, 0.1228E+01,& - 0.1234E+01, 0.1240E+01, 0.1246E+01, 0.1251E+01,& - 0.1257E+01, 0.1263E+01, 0.1269E+01, 0.1275E+01,& - 0.1281E+01, 0.1288E+01, 0.1294E+01, 0.1300E+01,& - 0.1306E+01, 0.1312E+01, 0.1318E+01, 0.1325E+01,& - 0.1331E+01, 0.1337E+01, 0.1344E+01, 0.1350E+01,& - 0.1357E+01, 0.1363E+01, 0.1370E+01, 0.1376E+01,& - 0.1383E+01, 0.1389E+01, 0.1396E+01, 0.1403E+01,& - 0.1409E+01, 0.1416E+01, 0.1423E+01, 0.1430E+01,& - 0.1436E+01, 0.1443E+01, 0.1450E+01, 0.1457E+01,& - 0.1464E+01, 0.1471E+01, 0.1478E+01, 0.1485E+01,& - 0.1492E+01, 0.1500E+01, 0.1507E+01, 0.1514E+01,& - 0.1521E+01, 0.1529E+01, 0.1536E+01, 0.1543E+01,& - 0.1551E+01, 0.1558E+01, 0.1566E+01, 0.1574E+01,& - 0.1581E+01, 0.1589E+01, 0.1596E+01, 0.1604E+01,& - 0.1612E+01, 0.1620E+01, 0.1628E+01, 0.1636E+01,& - 0.1643E+01, 0.1652E+01, 0.1660E+01, 0.1668E+01,& - 0.1676E+01, 0.1684E+01, 0.1692E+01, 0.1701E+01,& - 0.1709E+01, 0.1717E+01, 0.1726E+01, 0.1734E+01,& - 0.1743E+01, 0.1751E+01, 0.1760E+01, 0.1769E+01,& - 0.1777E+01, 0.1786E+01, 0.1795E+01, 0.1804E+01,& - 0.1813E+01, 0.1822E+01, 0.1831E+01, 0.1840E+01,& - 0.1849E+01, 0.1858E+01, 0.1868E+01, 0.1877E+01,& - 0.1886E+01, 0.1896E+01, 0.1905E+01, 0.1915E+01,& - 0.1925E+01, 0.1934E+01, 0.1944E+01, 0.1954E+01,& - 0.1964E+01, 0.1974E+01, 0.1984E+01, 0.1994E+01,& - 0.2004E+01, 0.2014E+01, 0.2025E+01, 0.2035E+01,& - 0.2045E+01, 0.2056E+01, 0.2066E+01, 0.2077E+01,& - 0.2088E+01, 0.2099E+01, 0.2110E+01, 0.2120E+01,& - 0.2132E+01, 0.2143E+01, 0.2154E+01, 0.2165E+01,& - 0.2176E+01, 0.2188E+01, 0.2199E+01, 0.2211E+01,& - 0.2223E+01, 0.2234E+01, 0.2246E+01, 0.2258E+01,& - 0.2270E+01, 0.2282E+01, 0.2295E+01, 0.2307E+01,& - 0.2319E+01, 0.2332E+01, 0.2344E+01, 0.2357E+01,& - 0.2370E+01, 0.2383E+01, 0.2396E+01, 0.2409E+01,& - 0.2422E+01, 0.2435E+01, 0.2449E+01, 0.2462E+01,& - 0.2476E+01, 0.2490E+01, 0.2503E+01, 0.2518E+01,& - 0.2532E+01, 0.2546E+01, 0.2560E+01, 0.2575E+01,& - 0.2589E+01, 0.2604E+01, 0.2619E+01, 0.2634E+01,& - 0.2649E+01, 0.2664E+01, 0.2679E+01, 0.2695E+01,& - 0.2711E+01, 0.2727E+01, 0.2743E+01, 0.2759E+01,& - 0.2775E+01, 0.2791E+01, 0.2808E+01, 0.2825E+01,& - 0.2842E+01, 0.2859E+01, 0.2876E+01, 0.2893E+01,& - 0.2911E+01, 0.2929E+01, 0.2947E+01, 0.2965E+01,& - 0.2983E+01, 0.3002E+01, 0.3021E+01, 0.3040E+01,& - 0.3059E+01, 0.3078E+01, 0.3098E+01, 0.3117E+01,& - 0.3137E+01, 0.3158E+01, 0.3178E+01, 0.3199E+01,& - 0.3220E+01, 0.3241E+01, 0.3263E+01, 0.3284E+01,& - 0.3307E+01, 0.3329E+01, 0.3351E+01, 0.3374E+01,& - 0.3389E+01, 0.3421E+01, 0.3445E+01, 0.3469E+01,& - 0.3493E+01, 0.3518E+01, 0.3543E+01, 0.3569E+01,& - 0.3595E+01, 0.3621E+01, 0.3647E+01, 0.3675E+01,& - 0.3702E+01, 0.3730E+01, 0.3758E+01, 0.3787E+01,& - 0.3816E+01, 0.3846E+01, 0.3876E+01, 0.3907E+01,& - 0.3938E+01, 0.3970E+01, 0.4002E+01, 0.4035E+01,& - 0.4068E+01, 0.4102E+01, 0.4137E+01, 0.4173E+01,& - 0.4209E+01, 0.4246E+01, 0.4284E+01, 0.4322E+01,& - 0.4362E+01, 0.4402E+01, 0.4443E+01, 0.4485E+01,& - 0.4528E+01, 0.4572E+01, 0.4617E+01, 0.4664E+01,& - 0.4711E+01, 0.4760E+01, 0.4810E+01, 0.4862E+01,& - 0.4915E+01, 0.4969E+01, 0.5026E+01, 0.5084E+01,& - 0.5144E+01, 0.5207E+01, 0.5271E+01, 0.5338E+01,& - 0.5408E+01, 0.5480E+01, 0.5555E+01, 0.5634E+01,& - 0.5716E+01, 0.5803E+01, 0.5893E+01, 0.5989E+01,& - 0.6091E+01, 0.6198E+01, 0.6313E+01, 0.6436E+01,& - 0.6568E+01, 0.6711E+01, 0.6868E+01, 0.7042E+01,& - 0.7235E+01, 0.7455E+01, 0.7709E+01, 0.8013E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 60) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1428E-03, 0.1428E-03, 0.1428E-03, 0.1428E-03,& - 0.1428E-03, 0.1428E-03, 0.1428E-03, 0.2756E-03,& - 0.2756E-03, 0.2756E-03, 0.2756E-03, 0.2756E-03,& - 0.2756E-03, 0.4083E-03, 0.4083E-03, 0.4083E-03,& - 0.4083E-03, 0.5411E-03, 0.5411E-03, 0.5411E-03,& - 0.5411E-03, 0.6739E-03, 0.6739E-03, 0.6739E-03,& - 0.6739E-03, 0.8067E-03, 0.8067E-03, 0.8067E-03,& - 0.9394E-03, 0.9394E-03, 0.9394E-03, 0.1072E-02,& - 0.1072E-02, 0.1205E-02, 0.1205E-02, 0.1205E-02,& - 0.1338E-02, 0.1338E-02, 0.1471E-02, 0.1471E-02,& - 0.1603E-02, 0.1603E-02, 0.1736E-02, 0.1736E-02,& - 0.1869E-02, 0.1869E-02, 0.2002E-02, 0.2002E-02,& - 0.2134E-02, 0.2267E-02, 0.2267E-02, 0.2400E-02,& - 0.2533E-02, 0.2533E-02, 0.2666E-02, 0.2666E-02,& - 0.2798E-02, 0.2931E-02, 0.3064E-02, 0.3064E-02,& - 0.3197E-02, 0.3329E-02, 0.3462E-02, 0.3462E-02,& - 0.3595E-02, 0.3728E-02, 0.3860E-02, 0.3993E-02,& - 0.4126E-02, 0.4126E-02, 0.4259E-02, 0.4392E-02,& - 0.4524E-02, 0.4657E-02, 0.4790E-02, 0.4923E-02,& - 0.5055E-02, 0.5188E-02, 0.5321E-02, 0.5454E-02,& - 0.5587E-02, 0.5719E-02, 0.5852E-02, 0.5985E-02,& - 0.6118E-02, 0.6383E-02, 0.6516E-02, 0.6649E-02,& - 0.6782E-02, 0.6914E-02, 0.7180E-02, 0.7313E-02,& - 0.7445E-02, 0.7578E-02, 0.7844E-02, 0.7977E-02,& - 0.8109E-02, 0.8375E-02, 0.8508E-02, 0.8640E-02,& - 0.8906E-02, 0.9039E-02, 0.9304E-02, 0.9437E-02,& - 0.9570E-02, 0.9835E-02, 0.9968E-02, 0.1023E-01,& - 0.1050E-01, 0.1063E-01, 0.1090E-01, 0.1103E-01,& - 0.1130E-01, 0.1156E-01, 0.1169E-01, 0.1196E-01,& - 0.1223E-01, 0.1236E-01, 0.1262E-01, 0.1289E-01,& - 0.1315E-01, 0.1342E-01, 0.1355E-01, 0.1382E-01,& - 0.1408E-01, 0.1435E-01, 0.1462E-01, 0.1488E-01,& - 0.1515E-01, 0.1541E-01, 0.1568E-01, 0.1594E-01,& - 0.1621E-01, 0.1647E-01, 0.1674E-01, 0.1701E-01,& - 0.1727E-01, 0.1754E-01, 0.1793E-01, 0.1820E-01,& - 0.1847E-01, 0.1873E-01, 0.1913E-01, 0.1940E-01,& - 0.1966E-01, 0.1993E-01, 0.2032E-01, 0.2059E-01,& - 0.2099E-01, 0.2125E-01, 0.2152E-01, 0.2192E-01,& - 0.2218E-01, 0.2258E-01, 0.2298E-01, 0.2325E-01,& - 0.2364E-01, 0.2391E-01, 0.2431E-01, 0.2471E-01,& - 0.2497E-01, 0.2537E-01, 0.2577E-01, 0.2617E-01,& - 0.2643E-01, 0.2683E-01, 0.2723E-01, 0.2763E-01,& - 0.2803E-01, 0.2842E-01, 0.2882E-01, 0.2922E-01,& - 0.2962E-01, 0.3002E-01, 0.3042E-01, 0.3081E-01,& - 0.3121E-01, 0.3161E-01, 0.3201E-01, 0.3241E-01,& - 0.3281E-01, 0.3334E-01, 0.3373E-01, 0.3413E-01,& - 0.3466E-01, 0.3506E-01, 0.3546E-01, 0.3599E-01,& - 0.3639E-01, 0.3679E-01, 0.3732E-01, 0.3772E-01,& - 0.3825E-01, 0.3865E-01, 0.3918E-01, 0.3971E-01,& - 0.4011E-01, 0.4064E-01, 0.4117E-01, 0.4157E-01,& - 0.4210E-01, 0.4263E-01, 0.4316E-01, 0.4369E-01,& - 0.4409E-01, 0.4462E-01, 0.4515E-01, 0.4568E-01,& - 0.4622E-01, 0.4675E-01, 0.4728E-01, 0.4781E-01,& - 0.4834E-01, 0.4900E-01, 0.4954E-01, 0.5007E-01,& - 0.5060E-01, 0.5113E-01, 0.5179E-01, 0.5232E-01,& - 0.5285E-01, 0.5352E-01, 0.5405E-01, 0.5458E-01,& - 0.5524E-01, 0.5578E-01, 0.5644E-01, 0.5710E-01,& - 0.5763E-01, 0.5830E-01, 0.5883E-01, 0.5949E-01,& - 0.6016E-01, 0.6082E-01, 0.6135E-01, 0.6202E-01,& - 0.6268E-01, 0.6334E-01, 0.6401E-01, 0.6467E-01,& - 0.6534E-01, 0.6600E-01, 0.6666E-01, 0.6733E-01,& - 0.6799E-01, 0.6865E-01, 0.6932E-01, 0.6998E-01,& - 0.7078E-01, 0.7144E-01, 0.7211E-01, 0.7277E-01,& - 0.7357E-01, 0.7423E-01, 0.7503E-01, 0.7569E-01,& - 0.7649E-01, 0.7715E-01, 0.7795E-01, 0.7861E-01,& - 0.7941E-01, 0.8021E-01, 0.8087E-01, 0.8167E-01,& - 0.8246E-01, 0.8326E-01, 0.8406E-01, 0.8472E-01,& - 0.8552E-01, 0.8631E-01, 0.8711E-01, 0.8791E-01,& - 0.8870E-01, 0.8963E-01, 0.9043E-01, 0.9123E-01,& - 0.9202E-01, 0.9282E-01, 0.9375E-01, 0.9455E-01,& - 0.9534E-01, 0.9627E-01, 0.9707E-01, 0.9800E-01,& - 0.9879E-01, 0.9972E-01, 0.1005E+00, 0.1015E+00,& - 0.1024E+00, 0.1032E+00, 0.1041E+00, 0.1050E+00,& - 0.1060E+00, 0.1068E+00, 0.1077E+00, 0.1086E+00,& - 0.1095E+00, 0.1105E+00, 0.1114E+00, 0.1123E+00,& - 0.1133E+00, 0.1143E+00, 0.1153E+00, 0.1162E+00,& - 0.1171E+00, 0.1182E+00, 0.1191E+00, 0.1200E+00,& - 0.1211E+00, 0.1220E+00, 0.1231E+00, 0.1240E+00,& - 0.1251E+00, 0.1261E+00, 0.1271E+00, 0.1281E+00,& - 0.1292E+00, 0.1303E+00, 0.1313E+00, 0.1323E+00,& - 0.1333E+00, 0.1344E+00, 0.1354E+00, 0.1365E+00,& - 0.1377E+00, 0.1388E+00, 0.1398E+00, 0.1409E+00,& - 0.1419E+00, 0.1431E+00, 0.1442E+00, 0.1453E+00,& - 0.1465E+00, 0.1475E+00, 0.1487E+00, 0.1499E+00,& - 0.1510E+00, 0.1522E+00, 0.1534E+00, 0.1544E+00,& - 0.1556E+00, 0.1568E+00, 0.1580E+00, 0.1592E+00,& - 0.1604E+00, 0.1616E+00, 0.1628E+00, 0.1640E+00,& - 0.1652E+00, 0.1664E+00, 0.1677E+00, 0.1689E+00,& - 0.1701E+00, 0.1714E+00, 0.1726E+00, 0.1739E+00,& - 0.1751E+00, 0.1765E+00, 0.1777E+00, 0.1790E+00,& - 0.1803E+00, 0.1815E+00, 0.1828E+00, 0.1842E+00,& - 0.1855E+00, 0.1868E+00, 0.1882E+00, 0.1895E+00,& - 0.1908E+00, 0.1921E+00, 0.1935E+00, 0.1949E+00,& - 0.1963E+00, 0.1976E+00, 0.1990E+00, 0.2004E+00,& - 0.2018E+00, 0.2032E+00, 0.2046E+00, 0.2061E+00,& - 0.2074E+00, 0.2089E+00, 0.2103E+00, 0.2118E+00,& - 0.2132E+00, 0.2147E+00, 0.2162E+00, 0.2176E+00,& - 0.2191E+00, 0.2205E+00, 0.2220E+00, 0.2235E+00,& - 0.2251E+00, 0.2265E+00, 0.2280E+00, 0.2296E+00,& - 0.2310E+00, 0.2326E+00, 0.2342E+00, 0.2357E+00,& - 0.2373E+00, 0.2389E+00, 0.2405E+00, 0.2421E+00,& - 0.2437E+00, 0.2452E+00, 0.2468E+00, 0.2484E+00,& - 0.2500E+00, 0.2516E+00, 0.2533E+00, 0.2549E+00,& - 0.2565E+00, 0.2583E+00, 0.2599E+00, 0.2616E+00,& - 0.2633E+00, 0.2649E+00, 0.2666E+00, 0.2683E+00,& - 0.2701E+00, 0.2718E+00, 0.2735E+00, 0.2753E+00,& - 0.2770E+00, 0.2787E+00, 0.2804E+00, 0.2822E+00,& - 0.2840E+00, 0.2857E+00, 0.2875E+00, 0.2893E+00,& - 0.2912E+00, 0.2929E+00, 0.2948E+00, 0.2966E+00,& - 0.2984E+00, 0.3002E+00, 0.3021E+00, 0.3039E+00,& - 0.3058E+00, 0.3077E+00, 0.3096E+00, 0.3115E+00,& - 0.3134E+00, 0.3152E+00, 0.3172E+00, 0.3191E+00,& - 0.3211E+00, 0.3231E+00, 0.3249E+00, 0.3269E+00,& - 0.3289E+00, 0.3309E+00, 0.3329E+00, 0.3349E+00,& - 0.3369E+00, 0.3389E+00, 0.3408E+00, 0.3428E+00,& - 0.3450E+00, 0.3470E+00, 0.3491E+00, 0.3511E+00,& - 0.3532E+00, 0.3552E+00, 0.3573E+00, 0.3594E+00,& - 0.3616E+00, 0.3637E+00, 0.3658E+00, 0.3679E+00,& - 0.3701E+00, 0.3722E+00, 0.3743E+00, 0.3766E+00,& - 0.3787E+00, 0.3809E+00, 0.3831E+00, 0.3853E+00,& - 0.3876E+00, 0.3897E+00, 0.3920E+00, 0.3942E+00,& - 0.3965E+00, 0.3987E+00, 0.4010E+00, 0.4034E+00,& - 0.4056E+00, 0.4079E+00, 0.4103E+00, 0.4125E+00,& - 0.4149E+00, 0.4172E+00, 0.4196E+00, 0.4220E+00,& - 0.4244E+00, 0.4267E+00, 0.4291E+00, 0.4315E+00,& - 0.4339E+00, 0.4363E+00, 0.4388E+00, 0.4412E+00,& - 0.4437E+00, 0.4461E+00, 0.4487E+00, 0.4512E+00,& - 0.4536E+00, 0.4561E+00, 0.4586E+00, 0.4611E+00,& - 0.4638E+00, 0.4663E+00, 0.4688E+00, 0.4714E+00,& - 0.4740E+00, 0.4765E+00, 0.4792E+00, 0.4819E+00,& - 0.4845E+00, 0.4870E+00, 0.4897E+00, 0.4923E+00,& - 0.4951E+00, 0.4978E+00, 0.5004E+00, 0.5031E+00,& - 0.5059E+00, 0.5085E+00, 0.5113E+00, 0.5141E+00,& - 0.5169E+00, 0.5196E+00, 0.5223E+00, 0.5253E+00,& - 0.5281E+00, 0.5308E+00, 0.5336E+00, 0.5366E+00,& - 0.5393E+00, 0.5423E+00, 0.5452E+00, 0.5480E+00,& - 0.5509E+00, 0.5538E+00, 0.5567E+00, 0.5597E+00,& - 0.5627E+00, 0.5656E+00, 0.5686E+00, 0.5716E+00,& - 0.5747E+00, 0.5776E+00, 0.5806E+00, 0.5837E+00,& - 0.5867E+00, 0.5898E+00, 0.5929E+00, 0.5960E+00,& - 0.5991E+00, 0.6023E+00, 0.6053E+00, 0.6085E+00,& - 0.6117E+00, 0.6149E+00, 0.6181E+00, 0.6213E+00,& - 0.6245E+00, 0.6276E+00, 0.6310E+00, 0.6341E+00,& - 0.6375E+00, 0.6408E+00, 0.6440E+00, 0.6473E+00,& - 0.6506E+00, 0.6541E+00, 0.6574E+00, 0.6607E+00,& - 0.6642E+00, 0.6675E+00, 0.6709E+00, 0.6744E+00,& - 0.6778E+00, 0.6813E+00, 0.6847E+00, 0.6882E+00,& - 0.6916E+00, 0.6952E+00, 0.6987E+00, 0.7023E+00,& - 0.7058E+00, 0.7094E+00, 0.7130E+00, 0.7166E+00,& - 0.7202E+00, 0.7239E+00, 0.7275E+00, 0.7312E+00,& - 0.7348E+00, 0.7385E+00, 0.7422E+00, 0.7459E+00,& - 0.7497E+00, 0.7535E+00, 0.7572E+00, 0.7611E+00,& - 0.7648E+00, 0.7686E+00, 0.7725E+00, 0.7763E+00,& - 0.7803E+00, 0.7842E+00, 0.7880E+00, 0.7920E+00,& - 0.7960E+00, 0.7998E+00, 0.8038E+00, 0.8078E+00,& - 0.8119E+00, 0.8159E+00, 0.8200E+00, 0.8240E+00,& - 0.8281E+00, 0.8322E+00, 0.8364E+00, 0.8405E+00,& - 0.8446E+00, 0.8488E+00, 0.8530E+00, 0.8572E+00,& - 0.8615E+00, 0.8657E+00, 0.8700E+00, 0.8742E+00,& - 0.8786E+00, 0.8828E+00, 0.8872E+00, 0.8916E+00,& - 0.8960E+00, 0.9004E+00, 0.9047E+00, 0.9093E+00,& - 0.9136E+00, 0.9182E+00, 0.9227E+00, 0.9272E+00,& - 0.9317E+00, 0.9362E+00, 0.9409E+00, 0.9455E+00,& - 0.9500E+00, 0.9547E+00, 0.9593E+00, 0.9641E+00,& - 0.9687E+00, 0.9735E+00, 0.9783E+00, 0.9829E+00,& - 0.9879E+00, 0.9926E+00, 0.9974E+00, 0.1002E+01,& - 0.1007E+01, 0.1012E+01, 0.1017E+01, 0.1022E+01,& - 0.1027E+01, 0.1032E+01, 0.1037E+01, 0.1042E+01,& - 0.1047E+01, 0.1052E+01, 0.1057E+01, 0.1062E+01,& - 0.1068E+01, 0.1073E+01, 0.1078E+01, 0.1083E+01,& - 0.1088E+01, 0.1094E+01, 0.1099E+01, 0.1104E+01,& - 0.1110E+01, 0.1115E+01, 0.1121E+01, 0.1126E+01,& - 0.1131E+01, 0.1137E+01, 0.1142E+01, 0.1148E+01,& - 0.1153E+01, 0.1159E+01, 0.1165E+01, 0.1170E+01,& - 0.1176E+01, 0.1182E+01, 0.1187E+01, 0.1193E+01,& - 0.1199E+01, 0.1205E+01, 0.1211E+01, 0.1216E+01,& - 0.1222E+01, 0.1228E+01, 0.1234E+01, 0.1240E+01,& - 0.1246E+01, 0.1252E+01, 0.1258E+01, 0.1264E+01,& - 0.1271E+01, 0.1277E+01, 0.1283E+01, 0.1289E+01,& - 0.1295E+01, 0.1302E+01, 0.1308E+01, 0.1314E+01,& - 0.1321E+01, 0.1327E+01, 0.1334E+01, 0.1340E+01,& - 0.1347E+01, 0.1353E+01, 0.1360E+01, 0.1366E+01,& - 0.1373E+01, 0.1380E+01, 0.1386E+01, 0.1393E+01,& - 0.1400E+01, 0.1407E+01, 0.1414E+01, 0.1420E+01,& - 0.1427E+01, 0.1434E+01, 0.1441E+01, 0.1448E+01,& - 0.1455E+01, 0.1463E+01, 0.1470E+01, 0.1477E+01,& - 0.1484E+01, 0.1491E+01, 0.1499E+01, 0.1506E+01,& - 0.1514E+01, 0.1521E+01, 0.1529E+01, 0.1536E+01,& - 0.1544E+01, 0.1551E+01, 0.1559E+01, 0.1566E+01,& - 0.1574E+01, 0.1582E+01, 0.1590E+01, 0.1598E+01,& - 0.1606E+01, 0.1613E+01, 0.1621E+01, 0.1630E+01,& - 0.1638E+01, 0.1646E+01, 0.1654E+01, 0.1662E+01,& - 0.1670E+01, 0.1679E+01, 0.1687E+01, 0.1696E+01,& - 0.1704E+01, 0.1713E+01, 0.1721E+01, 0.1730E+01,& - 0.1738E+01, 0.1747E+01, 0.1756E+01, 0.1765E+01,& - 0.1774E+01, 0.1783E+01, 0.1792E+01, 0.1801E+01,& - 0.1810E+01, 0.1819E+01, 0.1828E+01, 0.1837E+01,& - 0.1847E+01, 0.1856E+01, 0.1866E+01, 0.1875E+01,& - 0.1885E+01, 0.1894E+01, 0.1904E+01, 0.1914E+01,& - 0.1924E+01, 0.1933E+01, 0.1943E+01, 0.1953E+01,& - 0.1963E+01, 0.1974E+01, 0.1984E+01, 0.1994E+01,& - 0.2005E+01, 0.2015E+01, 0.2025E+01, 0.2036E+01,& - 0.2047E+01, 0.2057E+01, 0.2068E+01, 0.2079E+01,& - 0.2090E+01, 0.2101E+01, 0.2112E+01, 0.2123E+01,& - 0.2134E+01, 0.2146E+01, 0.2157E+01, 0.2168E+01,& - 0.2180E+01, 0.2192E+01, 0.2204E+01, 0.2215E+01,& - 0.2227E+01, 0.2239E+01, 0.2251E+01, 0.2264E+01,& - 0.2276E+01, 0.2288E+01, 0.2301E+01, 0.2313E+01,& - 0.2326E+01, 0.2339E+01, 0.2351E+01, 0.2364E+01,& - 0.2377E+01, 0.2390E+01, 0.2404E+01, 0.2417E+01,& - 0.2431E+01, 0.2444E+01, 0.2458E+01, 0.2472E+01,& - 0.2486E+01, 0.2500E+01, 0.2514E+01, 0.2528E+01,& - 0.2543E+01, 0.2557E+01, 0.2572E+01, 0.2586E+01,& - 0.2601E+01, 0.2616E+01, 0.2632E+01, 0.2647E+01,& - 0.2662E+01, 0.2678E+01, 0.2694E+01, 0.2710E+01,& - 0.2726E+01, 0.2742E+01, 0.2758E+01, 0.2775E+01,& - 0.2791E+01, 0.2808E+01, 0.2825E+01, 0.2842E+01,& - 0.2859E+01, 0.2877E+01, 0.2895E+01, 0.2912E+01,& - 0.2930E+01, 0.2949E+01, 0.2967E+01, 0.2986E+01,& - 0.3004E+01, 0.3023E+01, 0.3043E+01, 0.3062E+01,& - 0.3082E+01, 0.3101E+01, 0.3121E+01, 0.3142E+01,& - 0.3162E+01, 0.3183E+01, 0.3204E+01, 0.3225E+01,& - 0.3247E+01, 0.3268E+01, 0.3290E+01, 0.3313E+01,& - 0.3335E+01, 0.3358E+01, 0.3381E+01, 0.3405E+01,& - 0.3429E+01, 0.3453E+01, 0.3477E+01, 0.3502E+01,& - 0.3527E+01, 0.3552E+01, 0.3578E+01, 0.3604E+01,& - 0.3631E+01, 0.3657E+01, 0.3685E+01, 0.3712E+01,& - 0.3741E+01, 0.3769E+01, 0.3798E+01, 0.3828E+01,& - 0.3858E+01, 0.3888E+01, 0.3919E+01, 0.3950E+01,& - 0.3982E+01, 0.4015E+01, 0.4048E+01, 0.4082E+01,& - 0.4116E+01, 0.4151E+01, 0.4187E+01, 0.4224E+01,& - 0.4261E+01, 0.4299E+01, 0.4338E+01, 0.4377E+01,& - 0.4417E+01, 0.4459E+01, 0.4501E+01, 0.4544E+01,& - 0.4588E+01, 0.4634E+01, 0.4680E+01, 0.4728E+01,& - 0.4776E+01, 0.4827E+01, 0.4878E+01, 0.4931E+01,& - 0.4986E+01, 0.5042E+01, 0.5100E+01, 0.5160E+01,& - 0.5222E+01, 0.5286E+01, 0.5352E+01, 0.5421E+01,& - 0.5492E+01, 0.5567E+01, 0.5644E+01, 0.5725E+01,& - 0.5810E+01, 0.5899E+01, 0.5992E+01, 0.6090E+01,& - 0.6195E+01, 0.6305E+01, 0.6423E+01, 0.6550E+01,& - 0.6686E+01, 0.6834E+01, 0.6995E+01, 0.7173E+01,& - 0.7373E+01, 0.7599E+01, 0.7861E+01, 0.8174E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 61) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1458E-03,& - 0.1458E-03, 0.1458E-03, 0.1458E-03, 0.1458E-03,& - 0.1458E-03, 0.1458E-03, 0.1458E-03, 0.2816E-03,& - 0.2816E-03, 0.2816E-03, 0.2816E-03, 0.2816E-03,& - 0.2816E-03, 0.4174E-03, 0.4174E-03, 0.4174E-03,& - 0.4174E-03, 0.4174E-03, 0.5532E-03, 0.5532E-03,& - 0.5532E-03, 0.5532E-03, 0.6890E-03, 0.6890E-03,& - 0.6890E-03, 0.8248E-03, 0.8248E-03, 0.8248E-03,& - 0.8248E-03, 0.9606E-03, 0.9606E-03, 0.9606E-03,& - 0.1096E-02, 0.1096E-02, 0.1232E-02, 0.1232E-02,& - 0.1232E-02, 0.1368E-02, 0.1368E-02, 0.1504E-02,& - 0.1504E-02, 0.1640E-02, 0.1640E-02, 0.1640E-02,& - 0.1775E-02, 0.1775E-02, 0.1911E-02, 0.1911E-02,& - 0.2047E-02, 0.2183E-02, 0.2183E-02, 0.2319E-02,& - 0.2319E-02, 0.2454E-02, 0.2454E-02, 0.2590E-02,& - 0.2726E-02, 0.2726E-02, 0.2862E-02, 0.2998E-02,& - 0.2998E-02, 0.3133E-02, 0.3269E-02, 0.3269E-02,& - 0.3405E-02, 0.3541E-02, 0.3677E-02, 0.3677E-02,& - 0.3812E-02, 0.3948E-02, 0.4084E-02, 0.4220E-02,& - 0.4356E-02, 0.4356E-02, 0.4492E-02, 0.4627E-02,& - 0.4763E-02, 0.4899E-02, 0.5035E-02, 0.5171E-02,& - 0.5306E-02, 0.5442E-02, 0.5578E-02, 0.5714E-02,& - 0.5850E-02, 0.5985E-02, 0.6121E-02, 0.6257E-02,& - 0.6393E-02, 0.6529E-02, 0.6664E-02, 0.6800E-02,& - 0.7072E-02, 0.7208E-02, 0.7343E-02, 0.7479E-02,& - 0.7615E-02, 0.7887E-02, 0.8022E-02, 0.8158E-02,& - 0.8294E-02, 0.8566E-02, 0.8701E-02, 0.8837E-02,& - 0.9109E-02, 0.9245E-02, 0.9516E-02, 0.9652E-02,& - 0.9788E-02, 0.1006E-01, 0.1020E-01, 0.1047E-01,& - 0.1060E-01, 0.1087E-01, 0.1101E-01, 0.1128E-01,& - 0.1142E-01, 0.1169E-01, 0.1196E-01, 0.1210E-01,& - 0.1237E-01, 0.1264E-01, 0.1278E-01, 0.1305E-01,& - 0.1332E-01, 0.1359E-01, 0.1373E-01, 0.1400E-01,& - 0.1427E-01, 0.1454E-01, 0.1481E-01, 0.1508E-01,& - 0.1522E-01, 0.1549E-01, 0.1576E-01, 0.1603E-01,& - 0.1631E-01, 0.1658E-01, 0.1685E-01, 0.1712E-01,& - 0.1739E-01, 0.1766E-01, 0.1807E-01, 0.1834E-01,& - 0.1862E-01, 0.1889E-01, 0.1916E-01, 0.1943E-01,& - 0.1984E-01, 0.2011E-01, 0.2038E-01, 0.2065E-01,& - 0.2106E-01, 0.2133E-01, 0.2174E-01, 0.2201E-01,& - 0.2228E-01, 0.2269E-01, 0.2296E-01, 0.2337E-01,& - 0.2364E-01, 0.2405E-01, 0.2432E-01, 0.2473E-01,& - 0.2513E-01, 0.2541E-01, 0.2581E-01, 0.2608E-01,& - 0.2649E-01, 0.2690E-01, 0.2731E-01, 0.2758E-01,& - 0.2799E-01, 0.2839E-01, 0.2880E-01, 0.2921E-01,& - 0.2962E-01, 0.3002E-01, 0.3043E-01, 0.3084E-01,& - 0.3124E-01, 0.3165E-01, 0.3206E-01, 0.3247E-01,& - 0.3287E-01, 0.3328E-01, 0.3369E-01, 0.3410E-01,& - 0.3450E-01, 0.3505E-01, 0.3545E-01, 0.3586E-01,& - 0.3641E-01, 0.3681E-01, 0.3722E-01, 0.3776E-01,& - 0.3817E-01, 0.3871E-01, 0.3912E-01, 0.3966E-01,& - 0.4007E-01, 0.4062E-01, 0.4102E-01, 0.4157E-01,& - 0.4197E-01, 0.4252E-01, 0.4306E-01, 0.4360E-01,& - 0.4401E-01, 0.4455E-01, 0.4510E-01, 0.4564E-01,& - 0.4618E-01, 0.4673E-01, 0.4713E-01, 0.4768E-01,& - 0.4822E-01, 0.4876E-01, 0.4931E-01, 0.4985E-01,& - 0.5053E-01, 0.5107E-01, 0.5162E-01, 0.5216E-01,& - 0.5270E-01, 0.5338E-01, 0.5392E-01, 0.5447E-01,& - 0.5501E-01, 0.5569E-01, 0.5623E-01, 0.5691E-01,& - 0.5745E-01, 0.5813E-01, 0.5868E-01, 0.5936E-01,& - 0.5990E-01, 0.6058E-01, 0.6126E-01, 0.6180E-01,& - 0.6248E-01, 0.6316E-01, 0.6384E-01, 0.6438E-01,& - 0.6506E-01, 0.6574E-01, 0.6642E-01, 0.6710E-01,& - 0.6778E-01, 0.6845E-01, 0.6913E-01, 0.6981E-01,& - 0.7049E-01, 0.7117E-01, 0.7185E-01, 0.7266E-01,& - 0.7334E-01, 0.7402E-01, 0.7470E-01, 0.7552E-01,& - 0.7620E-01, 0.7701E-01, 0.7769E-01, 0.7850E-01,& - 0.7918E-01, 0.8000E-01, 0.8068E-01, 0.8149E-01,& - 0.8217E-01, 0.8299E-01, 0.8380E-01, 0.8462E-01,& - 0.8529E-01, 0.8611E-01, 0.8692E-01, 0.8774E-01,& - 0.8855E-01, 0.8937E-01, 0.9018E-01, 0.9100E-01,& - 0.9181E-01, 0.9263E-01, 0.9344E-01, 0.9439E-01,& - 0.9521E-01, 0.9602E-01, 0.9684E-01, 0.9779E-01,& - 0.9860E-01, 0.9942E-01, 0.1004E+00, 0.1012E+00,& - 0.1021E+00, 0.1029E+00, 0.1039E+00, 0.1049E+00,& - 0.1057E+00, 0.1066E+00, 0.1076E+00, 0.1085E+00,& - 0.1093E+00, 0.1103E+00, 0.1112E+00, 0.1122E+00,& - 0.1131E+00, 0.1141E+00, 0.1150E+00, 0.1160E+00,& - 0.1171E+00, 0.1180E+00, 0.1190E+00, 0.1199E+00,& - 0.1210E+00, 0.1220E+00, 0.1229E+00, 0.1240E+00,& - 0.1249E+00, 0.1260E+00, 0.1270E+00, 0.1281E+00,& - 0.1292E+00, 0.1301E+00, 0.1312E+00, 0.1323E+00,& - 0.1332E+00, 0.1343E+00, 0.1354E+00, 0.1365E+00,& - 0.1376E+00, 0.1387E+00, 0.1398E+00, 0.1408E+00,& - 0.1419E+00, 0.1431E+00, 0.1442E+00, 0.1453E+00,& - 0.1464E+00, 0.1476E+00, 0.1487E+00, 0.1499E+00,& - 0.1510E+00, 0.1522E+00, 0.1533E+00, 0.1546E+00,& - 0.1558E+00, 0.1569E+00, 0.1581E+00, 0.1593E+00,& - 0.1605E+00, 0.1618E+00, 0.1630E+00, 0.1642E+00,& - 0.1654E+00, 0.1666E+00, 0.1679E+00, 0.1691E+00,& - 0.1703E+00, 0.1717E+00, 0.1729E+00, 0.1741E+00,& - 0.1755E+00, 0.1767E+00, 0.1780E+00, 0.1793E+00,& - 0.1806E+00, 0.1819E+00, 0.1832E+00, 0.1846E+00,& - 0.1859E+00, 0.1873E+00, 0.1885E+00, 0.1899E+00,& - 0.1912E+00, 0.1926E+00, 0.1939E+00, 0.1954E+00,& - 0.1968E+00, 0.1981E+00, 0.1995E+00, 0.2010E+00,& - 0.2024E+00, 0.2039E+00, 0.2052E+00, 0.2067E+00,& - 0.2081E+00, 0.2096E+00, 0.2110E+00, 0.2124E+00,& - 0.2139E+00, 0.2154E+00, 0.2169E+00, 0.2184E+00,& - 0.2199E+00, 0.2214E+00, 0.2229E+00, 0.2244E+00,& - 0.2259E+00, 0.2275E+00, 0.2290E+00, 0.2305E+00,& - 0.2321E+00, 0.2336E+00, 0.2352E+00, 0.2367E+00,& - 0.2383E+00, 0.2400E+00, 0.2416E+00, 0.2431E+00,& - 0.2447E+00, 0.2464E+00, 0.2480E+00, 0.2496E+00,& - 0.2512E+00, 0.2529E+00, 0.2546E+00, 0.2563E+00,& - 0.2579E+00, 0.2597E+00, 0.2613E+00, 0.2631E+00,& - 0.2647E+00, 0.2665E+00, 0.2681E+00, 0.2699E+00,& - 0.2716E+00, 0.2734E+00, 0.2751E+00, 0.2769E+00,& - 0.2787E+00, 0.2804E+00, 0.2822E+00, 0.2840E+00,& - 0.2857E+00, 0.2876E+00, 0.2894E+00, 0.2913E+00,& - 0.2931E+00, 0.2950E+00, 0.2967E+00, 0.2986E+00,& - 0.3005E+00, 0.3024E+00, 0.3043E+00, 0.3061E+00,& - 0.3080E+00, 0.3100E+00, 0.3119E+00, 0.3139E+00,& - 0.3158E+00, 0.3177E+00, 0.3197E+00, 0.3216E+00,& - 0.3236E+00, 0.3255E+00, 0.3276E+00, 0.3296E+00,& - 0.3316E+00, 0.3335E+00, 0.3356E+00, 0.3376E+00,& - 0.3397E+00, 0.3418E+00, 0.3439E+00, 0.3459E+00,& - 0.3479E+00, 0.3501E+00, 0.3521E+00, 0.3543E+00,& - 0.3564E+00, 0.3585E+00, 0.3607E+00, 0.3627E+00,& - 0.3649E+00, 0.3671E+00, 0.3693E+00, 0.3714E+00,& - 0.3736E+00, 0.3759E+00, 0.3781E+00, 0.3803E+00,& - 0.3826E+00, 0.3847E+00, 0.3870E+00, 0.3892E+00,& - 0.3915E+00, 0.3938E+00, 0.3961E+00, 0.3985E+00,& - 0.4008E+00, 0.4031E+00, 0.4054E+00, 0.4077E+00,& - 0.4101E+00, 0.4124E+00, 0.4149E+00, 0.4172E+00,& - 0.4196E+00, 0.4220E+00, 0.4244E+00, 0.4268E+00,& - 0.4293E+00, 0.4317E+00, 0.4342E+00, 0.4366E+00,& - 0.4391E+00, 0.4416E+00, 0.4441E+00, 0.4467E+00,& - 0.4491E+00, 0.4517E+00, 0.4543E+00, 0.4567E+00,& - 0.4593E+00, 0.4619E+00, 0.4645E+00, 0.4672E+00,& - 0.4698E+00, 0.4723E+00, 0.4749E+00, 0.4776E+00,& - 0.4802E+00, 0.4829E+00, 0.4856E+00, 0.4884E+00,& - 0.4911E+00, 0.4937E+00, 0.4965E+00, 0.4992E+00,& - 0.5019E+00, 0.5047E+00, 0.5075E+00, 0.5102E+00,& - 0.5131E+00, 0.5158E+00, 0.5186E+00, 0.5215E+00,& - 0.5243E+00, 0.5272E+00, 0.5300E+00, 0.5329E+00,& - 0.5359E+00, 0.5387E+00, 0.5417E+00, 0.5446E+00,& - 0.5476E+00, 0.5506E+00, 0.5535E+00, 0.5565E+00,& - 0.5595E+00, 0.5625E+00, 0.5655E+00, 0.5685E+00,& - 0.5716E+00, 0.5746E+00, 0.5777E+00, 0.5808E+00,& - 0.5840E+00, 0.5870E+00, 0.5901E+00, 0.5933E+00,& - 0.5965E+00, 0.5996E+00, 0.6028E+00, 0.6060E+00,& - 0.6092E+00, 0.6125E+00, 0.6156E+00, 0.6189E+00,& - 0.6221E+00, 0.6255E+00, 0.6288E+00, 0.6320E+00,& - 0.6354E+00, 0.6387E+00, 0.6421E+00, 0.6455E+00,& - 0.6489E+00, 0.6523E+00, 0.6557E+00, 0.6591E+00,& - 0.6625E+00, 0.6660E+00, 0.6694E+00, 0.6729E+00,& - 0.6764E+00, 0.6800E+00, 0.6835E+00, 0.6870E+00,& - 0.6906E+00, 0.6941E+00, 0.6978E+00, 0.7013E+00,& - 0.7050E+00, 0.7086E+00, 0.7123E+00, 0.7160E+00,& - 0.7196E+00, 0.7233E+00, 0.7271E+00, 0.7308E+00,& - 0.7346E+00, 0.7382E+00, 0.7420E+00, 0.7458E+00,& - 0.7496E+00, 0.7536E+00, 0.7574E+00, 0.7613E+00,& - 0.7651E+00, 0.7691E+00, 0.7730E+00, 0.7769E+00,& - 0.7809E+00, 0.7848E+00, 0.7889E+00, 0.7928E+00,& - 0.7969E+00, 0.8010E+00, 0.8051E+00, 0.8091E+00,& - 0.8132E+00, 0.8173E+00, 0.8215E+00, 0.8256E+00,& - 0.8298E+00, 0.8340E+00, 0.8382E+00, 0.8424E+00,& - 0.8466E+00, 0.8510E+00, 0.8552E+00, 0.8595E+00,& - 0.8639E+00, 0.8682E+00, 0.8725E+00, 0.8769E+00,& - 0.8814E+00, 0.8857E+00, 0.8902E+00, 0.8947E+00,& - 0.8992E+00, 0.9036E+00, 0.9081E+00, 0.9127E+00,& - 0.9174E+00, 0.9218E+00, 0.9265E+00, 0.9311E+00,& - 0.9358E+00, 0.9404E+00, 0.9452E+00, 0.9498E+00,& - 0.9546E+00, 0.9593E+00, 0.9641E+00, 0.9690E+00,& - 0.9737E+00, 0.9786E+00, 0.9835E+00, 0.9884E+00,& - 0.9933E+00, 0.9983E+00, 0.1003E+01, 0.1008E+01,& - 0.1013E+01, 0.1018E+01, 0.1023E+01, 0.1028E+01,& - 0.1033E+01, 0.1039E+01, 0.1044E+01, 0.1049E+01,& - 0.1054E+01, 0.1059E+01, 0.1065E+01, 0.1070E+01,& - 0.1075E+01, 0.1080E+01, 0.1086E+01, 0.1091E+01,& - 0.1097E+01, 0.1102E+01, 0.1107E+01, 0.1113E+01,& - 0.1118E+01, 0.1124E+01, 0.1130E+01, 0.1135E+01,& - 0.1141E+01, 0.1146E+01, 0.1152E+01, 0.1158E+01,& - 0.1164E+01, 0.1169E+01, 0.1175E+01, 0.1181E+01,& - 0.1187E+01, 0.1193E+01, 0.1198E+01, 0.1204E+01,& - 0.1210E+01, 0.1216E+01, 0.1222E+01, 0.1228E+01,& - 0.1235E+01, 0.1241E+01, 0.1247E+01, 0.1253E+01,& - 0.1259E+01, 0.1265E+01, 0.1272E+01, 0.1278E+01,& - 0.1284E+01, 0.1291E+01, 0.1297E+01, 0.1303E+01,& - 0.1310E+01, 0.1316E+01, 0.1323E+01, 0.1330E+01,& - 0.1336E+01, 0.1343E+01, 0.1349E+01, 0.1356E+01,& - 0.1363E+01, 0.1370E+01, 0.1376E+01, 0.1383E+01,& - 0.1390E+01, 0.1397E+01, 0.1404E+01, 0.1411E+01,& - 0.1418E+01, 0.1425E+01, 0.1432E+01, 0.1439E+01,& - 0.1446E+01, 0.1454E+01, 0.1461E+01, 0.1468E+01,& - 0.1476E+01, 0.1483E+01, 0.1490E+01, 0.1498E+01,& - 0.1505E+01, 0.1513E+01, 0.1520E+01, 0.1528E+01,& - 0.1536E+01, 0.1544E+01, 0.1551E+01, 0.1559E+01,& - 0.1567E+01, 0.1575E+01, 0.1583E+01, 0.1591E+01,& - 0.1599E+01, 0.1607E+01, 0.1615E+01, 0.1623E+01,& - 0.1631E+01, 0.1640E+01, 0.1648E+01, 0.1656E+01,& - 0.1665E+01, 0.1673E+01, 0.1682E+01, 0.1690E+01,& - 0.1699E+01, 0.1707E+01, 0.1716E+01, 0.1725E+01,& - 0.1734E+01, 0.1743E+01, 0.1751E+01, 0.1760E+01,& - 0.1769E+01, 0.1778E+01, 0.1788E+01, 0.1797E+01,& - 0.1806E+01, 0.1815E+01, 0.1825E+01, 0.1834E+01,& - 0.1844E+01, 0.1853E+01, 0.1863E+01, 0.1873E+01,& - 0.1882E+01, 0.1892E+01, 0.1902E+01, 0.1912E+01,& - 0.1922E+01, 0.1932E+01, 0.1942E+01, 0.1952E+01,& - 0.1963E+01, 0.1973E+01, 0.1983E+01, 0.1994E+01,& - 0.2004E+01, 0.2015E+01, 0.2026E+01, 0.2036E+01,& - 0.2047E+01, 0.2058E+01, 0.2069E+01, 0.2080E+01,& - 0.2091E+01, 0.2102E+01, 0.2114E+01, 0.2125E+01,& - 0.2136E+01, 0.2148E+01, 0.2160E+01, 0.2171E+01,& - 0.2183E+01, 0.2195E+01, 0.2207E+01, 0.2219E+01,& - 0.2231E+01, 0.2243E+01, 0.2256E+01, 0.2268E+01,& - 0.2281E+01, 0.2293E+01, 0.2306E+01, 0.2319E+01,& - 0.2332E+01, 0.2345E+01, 0.2358E+01, 0.2371E+01,& - 0.2384E+01, 0.2398E+01, 0.2411E+01, 0.2425E+01,& - 0.2439E+01, 0.2453E+01, 0.2466E+01, 0.2481E+01,& - 0.2495E+01, 0.2509E+01, 0.2524E+01, 0.2538E+01,& - 0.2553E+01, 0.2568E+01, 0.2583E+01, 0.2598E+01,& - 0.2613E+01, 0.2628E+01, 0.2644E+01, 0.2660E+01,& - 0.2675E+01, 0.2691E+01, 0.2707E+01, 0.2724E+01,& - 0.2740E+01, 0.2756E+01, 0.2773E+01, 0.2790E+01,& - 0.2807E+01, 0.2824E+01, 0.2842E+01, 0.2859E+01,& - 0.2877E+01, 0.2895E+01, 0.2913E+01, 0.2931E+01,& - 0.2949E+01, 0.2968E+01, 0.2987E+01, 0.3006E+01,& - 0.3025E+01, 0.3044E+01, 0.3064E+01, 0.3084E+01,& - 0.3104E+01, 0.3124E+01, 0.3145E+01, 0.3165E+01,& - 0.3186E+01, 0.3208E+01, 0.3229E+01, 0.3251E+01,& - 0.3273E+01, 0.3295E+01, 0.3318E+01, 0.3340E+01,& - 0.3364E+01, 0.3387E+01, 0.3411E+01, 0.3435E+01,& - 0.3459E+01, 0.3484E+01, 0.3509E+01, 0.3534E+01,& - 0.3560E+01, 0.3586E+01, 0.3612E+01, 0.3639E+01,& - 0.3666E+01, 0.3694E+01, 0.3722E+01, 0.3750E+01,& - 0.3779E+01, 0.3808E+01, 0.3838E+01, 0.3868E+01,& - 0.3899E+01, 0.3930E+01, 0.3962E+01, 0.3994E+01,& - 0.4027E+01, 0.4060E+01, 0.4094E+01, 0.4129E+01,& - 0.4164E+01, 0.4200E+01, 0.4237E+01, 0.4274E+01,& - 0.4312E+01, 0.4351E+01, 0.4391E+01, 0.4432E+01,& - 0.4473E+01, 0.4515E+01, 0.4559E+01, 0.4603E+01,& - 0.4648E+01, 0.4695E+01, 0.4743E+01, 0.4791E+01,& - 0.4842E+01, 0.4893E+01, 0.4946E+01, 0.5000E+01,& - 0.5057E+01, 0.5114E+01, 0.5174E+01, 0.5235E+01,& - 0.5299E+01, 0.5365E+01, 0.5433E+01, 0.5504E+01,& - 0.5577E+01, 0.5653E+01, 0.5733E+01, 0.5816E+01,& - 0.5903E+01, 0.5995E+01, 0.6091E+01, 0.6192E+01,& - 0.6299E+01, 0.6413E+01, 0.6534E+01, 0.6664E+01,& - 0.6805E+01, 0.6957E+01, 0.7123E+01, 0.7306E+01,& - 0.7511E+01, 0.7744E+01, 0.8013E+01, 0.8335E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 62) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1489E-03, 0.1489E-03,& - 0.1489E-03, 0.1489E-03, 0.1489E-03, 0.1489E-03,& - 0.1489E-03, 0.1489E-03, 0.1489E-03, 0.2878E-03,& - 0.2878E-03, 0.2878E-03, 0.2878E-03, 0.2878E-03,& - 0.2878E-03, 0.4266E-03, 0.4266E-03, 0.4266E-03,& - 0.4266E-03, 0.4266E-03, 0.5655E-03, 0.5655E-03,& - 0.5655E-03, 0.5655E-03, 0.5655E-03, 0.7044E-03,& - 0.7044E-03, 0.7044E-03, 0.8433E-03, 0.8433E-03,& - 0.8433E-03, 0.8433E-03, 0.9822E-03, 0.9822E-03,& - 0.9822E-03, 0.1121E-02, 0.1121E-02, 0.1121E-02,& - 0.1260E-02, 0.1260E-02, 0.1399E-02, 0.1399E-02,& - 0.1399E-02, 0.1538E-02, 0.1538E-02, 0.1677E-02,& - 0.1677E-02, 0.1815E-02, 0.1815E-02, 0.1815E-02,& - 0.1954E-02, 0.1954E-02, 0.2093E-02, 0.2093E-02,& - 0.2232E-02, 0.2371E-02, 0.2371E-02, 0.2510E-02,& - 0.2510E-02, 0.2649E-02, 0.2649E-02, 0.2788E-02,& - 0.2926E-02, 0.2926E-02, 0.3065E-02, 0.3204E-02,& - 0.3204E-02, 0.3343E-02, 0.3482E-02, 0.3482E-02,& - 0.3621E-02, 0.3760E-02, 0.3899E-02, 0.3899E-02,& - 0.4037E-02, 0.4176E-02, 0.4315E-02, 0.4315E-02,& - 0.4454E-02, 0.4593E-02, 0.4732E-02, 0.4871E-02,& - 0.5010E-02, 0.5149E-02, 0.5287E-02, 0.5426E-02,& - 0.5426E-02, 0.5565E-02, 0.5704E-02, 0.5843E-02,& - 0.5982E-02, 0.6121E-02, 0.6260E-02, 0.6398E-02,& - 0.6676E-02, 0.6815E-02, 0.6954E-02, 0.7093E-02,& - 0.7232E-02, 0.7371E-02, 0.7509E-02, 0.7648E-02,& - 0.7926E-02, 0.8065E-02, 0.8204E-02, 0.8343E-02,& - 0.8482E-02, 0.8759E-02, 0.8898E-02, 0.9037E-02,& - 0.9315E-02, 0.9454E-02, 0.9593E-02, 0.9870E-02,& - 0.1001E-01, 0.1029E-01, 0.1043E-01, 0.1056E-01,& - 0.1084E-01, 0.1098E-01, 0.1126E-01, 0.1140E-01,& - 0.1168E-01, 0.1181E-01, 0.1209E-01, 0.1237E-01,& - 0.1251E-01, 0.1279E-01, 0.1293E-01, 0.1320E-01,& - 0.1348E-01, 0.1362E-01, 0.1390E-01, 0.1418E-01,& - 0.1445E-01, 0.1459E-01, 0.1487E-01, 0.1515E-01,& - 0.1543E-01, 0.1570E-01, 0.1598E-01, 0.1626E-01,& - 0.1640E-01, 0.1668E-01, 0.1695E-01, 0.1723E-01,& - 0.1751E-01, 0.1779E-01, 0.1806E-01, 0.1834E-01,& - 0.1876E-01, 0.1904E-01, 0.1931E-01, 0.1959E-01,& - 0.1987E-01, 0.2015E-01, 0.2056E-01, 0.2084E-01,& - 0.2112E-01, 0.2140E-01, 0.2181E-01, 0.2209E-01,& - 0.2237E-01, 0.2279E-01, 0.2306E-01, 0.2334E-01,& - 0.2376E-01, 0.2404E-01, 0.2445E-01, 0.2473E-01,& - 0.2515E-01, 0.2542E-01, 0.2584E-01, 0.2626E-01,& - 0.2654E-01, 0.2695E-01, 0.2723E-01, 0.2765E-01,& - 0.2806E-01, 0.2848E-01, 0.2876E-01, 0.2917E-01,& - 0.2959E-01, 0.3001E-01, 0.3042E-01, 0.3084E-01,& - 0.3112E-01, 0.3154E-01, 0.3195E-01, 0.3237E-01,& - 0.3279E-01, 0.3320E-01, 0.3362E-01, 0.3417E-01,& - 0.3459E-01, 0.3501E-01, 0.3542E-01, 0.3584E-01,& - 0.3626E-01, 0.3681E-01, 0.3723E-01, 0.3765E-01,& - 0.3820E-01, 0.3862E-01, 0.3903E-01, 0.3959E-01,& - 0.4001E-01, 0.4056E-01, 0.4098E-01, 0.4153E-01,& - 0.4195E-01, 0.4251E-01, 0.4292E-01, 0.4348E-01,& - 0.4403E-01, 0.4445E-01, 0.4501E-01, 0.4556E-01,& - 0.4598E-01, 0.4653E-01, 0.4709E-01, 0.4765E-01,& - 0.4820E-01, 0.4876E-01, 0.4931E-01, 0.4987E-01,& - 0.5042E-01, 0.5098E-01, 0.5153E-01, 0.5209E-01,& - 0.5265E-01, 0.5320E-01, 0.5376E-01, 0.5431E-01,& - 0.5501E-01, 0.5556E-01, 0.5612E-01, 0.5667E-01,& - 0.5737E-01, 0.5792E-01, 0.5862E-01, 0.5917E-01,& - 0.5987E-01, 0.6042E-01, 0.6112E-01, 0.6167E-01,& - 0.6237E-01, 0.6292E-01, 0.6362E-01, 0.6431E-01,& - 0.6501E-01, 0.6556E-01, 0.6626E-01, 0.6695E-01,& - 0.6764E-01, 0.6834E-01, 0.6903E-01, 0.6973E-01,& - 0.7042E-01, 0.7112E-01, 0.7181E-01, 0.7250E-01,& - 0.7320E-01, 0.7389E-01, 0.7459E-01, 0.7528E-01,& - 0.7612E-01, 0.7681E-01, 0.7750E-01, 0.7834E-01,& - 0.7903E-01, 0.7973E-01, 0.8056E-01, 0.8125E-01,& - 0.8209E-01, 0.8278E-01, 0.8362E-01, 0.8445E-01,& - 0.8514E-01, 0.8598E-01, 0.8681E-01, 0.8764E-01,& - 0.8834E-01, 0.8917E-01, 0.9000E-01, 0.9084E-01,& - 0.9167E-01, 0.9250E-01, 0.9334E-01, 0.9417E-01,& - 0.9500E-01, 0.9584E-01, 0.9681E-01, 0.9764E-01,& - 0.9848E-01, 0.9931E-01, 0.1003E+00, 0.1011E+00,& - 0.1019E+00, 0.1029E+00, 0.1038E+00, 0.1047E+00,& - 0.1056E+00, 0.1065E+00, 0.1075E+00, 0.1083E+00,& - 0.1093E+00, 0.1103E+00, 0.1113E+00, 0.1121E+00,& - 0.1131E+00, 0.1140E+00, 0.1150E+00, 0.1160E+00,& - 0.1169E+00, 0.1179E+00, 0.1189E+00, 0.1199E+00,& - 0.1210E+00, 0.1219E+00, 0.1229E+00, 0.1239E+00,& - 0.1250E+00, 0.1260E+00, 0.1271E+00, 0.1281E+00,& - 0.1292E+00, 0.1301E+00, 0.1313E+00, 0.1322E+00,& - 0.1333E+00, 0.1344E+00, 0.1356E+00, 0.1365E+00,& - 0.1376E+00, 0.1387E+00, 0.1399E+00, 0.1410E+00,& - 0.1421E+00, 0.1432E+00, 0.1443E+00, 0.1454E+00,& - 0.1467E+00, 0.1478E+00, 0.1489E+00, 0.1501E+00,& - 0.1512E+00, 0.1524E+00, 0.1536E+00, 0.1547E+00,& - 0.1560E+00, 0.1572E+00, 0.1583E+00, 0.1596E+00,& - 0.1608E+00, 0.1619E+00, 0.1632E+00, 0.1644E+00,& - 0.1657E+00, 0.1669E+00, 0.1682E+00, 0.1694E+00,& - 0.1707E+00, 0.1719E+00, 0.1733E+00, 0.1746E+00,& - 0.1758E+00, 0.1772E+00, 0.1785E+00, 0.1797E+00,& - 0.1811E+00, 0.1824E+00, 0.1837E+00, 0.1851E+00,& - 0.1864E+00, 0.1878E+00, 0.1892E+00, 0.1906E+00,& - 0.1919E+00, 0.1933E+00, 0.1947E+00, 0.1961E+00,& - 0.1975E+00, 0.1989E+00, 0.2003E+00, 0.2017E+00,& - 0.2032E+00, 0.2046E+00, 0.2060E+00, 0.2075E+00,& - 0.2089E+00, 0.2104E+00, 0.2118E+00, 0.2133E+00,& - 0.2149E+00, 0.2164E+00, 0.2178E+00, 0.2193E+00,& - 0.2208E+00, 0.2224E+00, 0.2239E+00, 0.2254E+00,& - 0.2269E+00, 0.2286E+00, 0.2301E+00, 0.2317E+00,& - 0.2333E+00, 0.2349E+00, 0.2364E+00, 0.2380E+00,& - 0.2397E+00, 0.2412E+00, 0.2429E+00, 0.2446E+00,& - 0.2461E+00, 0.2478E+00, 0.2494E+00, 0.2511E+00,& - 0.2528E+00, 0.2544E+00, 0.2561E+00, 0.2579E+00,& - 0.2596E+00, 0.2612E+00, 0.2630E+00, 0.2647E+00,& - 0.2665E+00, 0.2682E+00, 0.2700E+00, 0.2717E+00,& - 0.2735E+00, 0.2753E+00, 0.2771E+00, 0.2789E+00,& - 0.2807E+00, 0.2825E+00, 0.2843E+00, 0.2861E+00,& - 0.2879E+00, 0.2897E+00, 0.2917E+00, 0.2935E+00,& - 0.2954E+00, 0.2972E+00, 0.2992E+00, 0.3010E+00,& - 0.3029E+00, 0.3048E+00, 0.3068E+00, 0.3087E+00,& - 0.3107E+00, 0.3126E+00, 0.3146E+00, 0.3165E+00,& - 0.3185E+00, 0.3205E+00, 0.3225E+00, 0.3244E+00,& - 0.3265E+00, 0.3285E+00, 0.3305E+00, 0.3326E+00,& - 0.3347E+00, 0.3367E+00, 0.3387E+00, 0.3408E+00,& - 0.3429E+00, 0.3450E+00, 0.3472E+00, 0.3493E+00,& - 0.3514E+00, 0.3536E+00, 0.3557E+00, 0.3579E+00,& - 0.3600E+00, 0.3622E+00, 0.3644E+00, 0.3665E+00,& - 0.3687E+00, 0.3710E+00, 0.3732E+00, 0.3754E+00,& - 0.3776E+00, 0.3800E+00, 0.3822E+00, 0.3844E+00,& - 0.3868E+00, 0.3890E+00, 0.3914E+00, 0.3937E+00,& - 0.3960E+00, 0.3983E+00, 0.4007E+00, 0.4030E+00,& - 0.4054E+00, 0.4078E+00, 0.4103E+00, 0.4126E+00,& - 0.4150E+00, 0.4175E+00, 0.4198E+00, 0.4223E+00,& - 0.4248E+00, 0.4272E+00, 0.4297E+00, 0.4322E+00,& - 0.4347E+00, 0.4372E+00, 0.4397E+00, 0.4423E+00,& - 0.4448E+00, 0.4473E+00, 0.4500E+00, 0.4525E+00,& - 0.4551E+00, 0.4578E+00, 0.4604E+00, 0.4629E+00,& - 0.4655E+00, 0.4683E+00, 0.4709E+00, 0.4736E+00,& - 0.4762E+00, 0.4790E+00, 0.4816E+00, 0.4844E+00,& - 0.4871E+00, 0.4898E+00, 0.4926E+00, 0.4954E+00,& - 0.4982E+00, 0.5009E+00, 0.5037E+00, 0.5066E+00,& - 0.5094E+00, 0.5122E+00, 0.5151E+00, 0.5180E+00,& - 0.5208E+00, 0.5237E+00, 0.5266E+00, 0.5296E+00,& - 0.5325E+00, 0.5354E+00, 0.5384E+00, 0.5414E+00,& - 0.5444E+00, 0.5473E+00, 0.5504E+00, 0.5534E+00,& - 0.5565E+00, 0.5594E+00, 0.5626E+00, 0.5657E+00,& - 0.5687E+00, 0.5718E+00, 0.5750E+00, 0.5780E+00,& - 0.5812E+00, 0.5844E+00, 0.5876E+00, 0.5908E+00,& - 0.5940E+00, 0.5972E+00, 0.6004E+00, 0.6036E+00,& - 0.6069E+00, 0.6101E+00, 0.6134E+00, 0.6168E+00,& - 0.6201E+00, 0.6234E+00, 0.6268E+00, 0.6301E+00,& - 0.6334E+00, 0.6369E+00, 0.6402E+00, 0.6437E+00,& - 0.6472E+00, 0.6507E+00, 0.6541E+00, 0.6576E+00,& - 0.6611E+00, 0.6645E+00, 0.6682E+00, 0.6716E+00,& - 0.6752E+00, 0.6788E+00, 0.6825E+00, 0.6861E+00,& - 0.6897E+00, 0.6933E+00, 0.6969E+00, 0.7007E+00,& - 0.7043E+00, 0.7080E+00, 0.7118E+00, 0.7155E+00,& - 0.7193E+00, 0.7230E+00, 0.7268E+00, 0.7307E+00,& - 0.7344E+00, 0.7383E+00, 0.7422E+00, 0.7461E+00,& - 0.7500E+00, 0.7538E+00, 0.7577E+00, 0.7618E+00,& - 0.7656E+00, 0.7697E+00, 0.7737E+00, 0.7777E+00,& - 0.7818E+00, 0.7858E+00, 0.7898E+00, 0.7940E+00,& - 0.7981E+00, 0.8022E+00, 0.8063E+00, 0.8105E+00,& - 0.8147E+00, 0.8190E+00, 0.8231E+00, 0.8274E+00,& - 0.8316E+00, 0.8359E+00, 0.8402E+00, 0.8445E+00,& - 0.8490E+00, 0.8533E+00, 0.8577E+00, 0.8620E+00,& - 0.8665E+00, 0.8709E+00, 0.8754E+00, 0.8799E+00,& - 0.8844E+00, 0.8890E+00, 0.8936E+00, 0.8981E+00,& - 0.9027E+00, 0.9073E+00, 0.9119E+00, 0.9166E+00,& - 0.9212E+00, 0.9259E+00, 0.9306E+00, 0.9355E+00,& - 0.9402E+00, 0.9449E+00, 0.9498E+00, 0.9547E+00,& - 0.9595E+00, 0.9644E+00, 0.9692E+00, 0.9742E+00,& - 0.9791E+00, 0.9841E+00, 0.9891E+00, 0.9941E+00,& - 0.9992E+00, 0.1004E+01, 0.1009E+01, 0.1015E+01,& - 0.1020E+01, 0.1025E+01, 0.1030E+01, 0.1035E+01,& - 0.1040E+01, 0.1046E+01, 0.1051E+01, 0.1056E+01,& - 0.1062E+01, 0.1067E+01, 0.1072E+01, 0.1078E+01,& - 0.1083E+01, 0.1089E+01, 0.1094E+01, 0.1100E+01,& - 0.1105E+01, 0.1102E+01, 0.1117E+01, 0.1122E+01,& - 0.1128E+01, 0.1134E+01, 0.1139E+01, 0.1145E+01,& - 0.1151E+01, 0.1157E+01, 0.1163E+01, 0.1168E+01,& - 0.1174E+01, 0.1180E+01, 0.1186E+01, 0.1192E+01,& - 0.1198E+01, 0.1204E+01, 0.1210E+01, 0.1216E+01,& - 0.1223E+01, 0.1229E+01, 0.1235E+01, 0.1241E+01,& - 0.1247E+01, 0.1254E+01, 0.1260E+01, 0.1266E+01,& - 0.1273E+01, 0.1279E+01, 0.1286E+01, 0.1292E+01,& - 0.1299E+01, 0.1305E+01, 0.1312E+01, 0.1319E+01,& - 0.1325E+01, 0.1332E+01, 0.1339E+01, 0.1345E+01,& - 0.1352E+01, 0.1359E+01, 0.1366E+01, 0.1373E+01,& - 0.1380E+01, 0.1387E+01, 0.1394E+01, 0.1401E+01,& - 0.1408E+01, 0.1415E+01, 0.1423E+01, 0.1430E+01,& - 0.1437E+01, 0.1444E+01, 0.1452E+01, 0.1459E+01,& - 0.1466E+01, 0.1474E+01, 0.1481E+01, 0.1489E+01,& - 0.1497E+01, 0.1504E+01, 0.1512E+01, 0.1520E+01,& - 0.1528E+01, 0.1535E+01, 0.1543E+01, 0.1551E+01,& - 0.1559E+01, 0.1567E+01, 0.1575E+01, 0.1583E+01,& - 0.1591E+01, 0.1599E+01, 0.1608E+01, 0.1616E+01,& - 0.1624E+01, 0.1633E+01, 0.1641E+01, 0.1650E+01,& - 0.1658E+01, 0.1667E+01, 0.1675E+01, 0.1684E+01,& - 0.1693E+01, 0.1702E+01, 0.1710E+01, 0.1719E+01,& - 0.1728E+01, 0.1737E+01, 0.1746E+01, 0.1755E+01,& - 0.1765E+01, 0.1774E+01, 0.1783E+01, 0.1793E+01,& - 0.1802E+01, 0.1811E+01, 0.1821E+01, 0.1830E+01,& - 0.1840E+01, 0.1850E+01, 0.1860E+01, 0.1869E+01,& - 0.1879E+01, 0.1889E+01, 0.1899E+01, 0.1909E+01,& - 0.1920E+01, 0.1930E+01, 0.1940E+01, 0.1951E+01,& - 0.1961E+01, 0.1971E+01, 0.1982E+01, 0.1993E+01,& - 0.2003E+01, 0.2014E+01, 0.2025E+01, 0.2036E+01,& - 0.2047E+01, 0.2058E+01, 0.2069E+01, 0.2081E+01,& - 0.2092E+01, 0.2103E+01, 0.2115E+01, 0.2126E+01,& - 0.2138E+01, 0.2150E+01, 0.2162E+01, 0.2174E+01,& - 0.2186E+01, 0.2198E+01, 0.2210E+01, 0.2222E+01,& - 0.2235E+01, 0.2247E+01, 0.2260E+01, 0.2272E+01,& - 0.2285E+01, 0.2298E+01, 0.2311E+01, 0.2324E+01,& - 0.2337E+01, 0.2350E+01, 0.2364E+01, 0.2377E+01,& - 0.2391E+01, 0.2404E+01, 0.2418E+01, 0.2432E+01,& - 0.2446E+01, 0.2460E+01, 0.2475E+01, 0.2489E+01,& - 0.2503E+01, 0.2518E+01, 0.2533E+01, 0.2548E+01,& - 0.2563E+01, 0.2578E+01, 0.2593E+01, 0.2608E+01,& - 0.2624E+01, 0.2640E+01, 0.2656E+01, 0.2671E+01,& - 0.2688E+01, 0.2704E+01, 0.2720E+01, 0.2737E+01,& - 0.2754E+01, 0.2771E+01, 0.2787E+01, 0.2805E+01,& - 0.2822E+01, 0.2840E+01, 0.2857E+01, 0.2875E+01,& - 0.2893E+01, 0.2912E+01, 0.2930E+01, 0.2949E+01,& - 0.2967E+01, 0.2986E+01, 0.3006E+01, 0.3025E+01,& - 0.3045E+01, 0.3065E+01, 0.3085E+01, 0.3105E+01,& - 0.3125E+01, 0.3146E+01, 0.3167E+01, 0.3189E+01,& - 0.3210E+01, 0.3232E+01, 0.3254E+01, 0.3276E+01,& - 0.3298E+01, 0.3321E+01, 0.3344E+01, 0.3368E+01,& - 0.3391E+01, 0.3415E+01, 0.3439E+01, 0.3464E+01,& - 0.3489E+01, 0.3514E+01, 0.3540E+01, 0.3566E+01,& - 0.3592E+01, 0.3619E+01, 0.3646E+01, 0.3673E+01,& - 0.3701E+01, 0.3729E+01, 0.3758E+01, 0.3787E+01,& - 0.3816E+01, 0.3846E+01, 0.3877E+01, 0.3908E+01,& - 0.3939E+01, 0.3971E+01, 0.4004E+01, 0.4037E+01,& - 0.4071E+01, 0.4105E+01, 0.4140E+01, 0.4175E+01,& - 0.4212E+01, 0.4248E+01, 0.4286E+01, 0.4324E+01,& - 0.4363E+01, 0.4403E+01, 0.4444E+01, 0.4486E+01,& - 0.4528E+01, 0.4572E+01, 0.4616E+01, 0.4662E+01,& - 0.4708E+01, 0.4756E+01, 0.4805E+01, 0.4855E+01,& - 0.4906E+01, 0.4959E+01, 0.5014E+01, 0.5070E+01,& - 0.5127E+01, 0.5187E+01, 0.5248E+01, 0.5311E+01,& - 0.5376E+01, 0.5444E+01, 0.5514E+01, 0.5586E+01,& - 0.5662E+01, 0.5740E+01, 0.5822E+01, 0.5908E+01,& - 0.5997E+01, 0.6091E+01, 0.6190E+01, 0.6294E+01,& - 0.6404E+01, 0.6521E+01, 0.6646E+01, 0.6780E+01,& - 0.6924E+01, 0.7080E+01, 0.7251E+01, 0.7440E+01,& - 0.7650E+01, 0.7890E+01, 0.8167E+01, 0.8499E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 63) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1520E-03, 0.1520E-03, 0.1520E-03,& - 0.1520E-03, 0.1520E-03, 0.1520E-03, 0.1520E-03,& - 0.1520E-03, 0.1520E-03, 0.1520E-03, 0.2940E-03,& - 0.2940E-03, 0.2940E-03, 0.2940E-03, 0.2940E-03,& - 0.2940E-03, 0.2940E-03, 0.4360E-03, 0.4360E-03,& - 0.4360E-03, 0.4360E-03, 0.4360E-03, 0.5780E-03,& - 0.5780E-03, 0.5780E-03, 0.5780E-03, 0.7200E-03,& - 0.7200E-03, 0.7200E-03, 0.7200E-03, 0.8620E-03,& - 0.8620E-03, 0.8620E-03, 0.8620E-03, 0.1004E-02,& - 0.1004E-02, 0.1004E-02, 0.1146E-02, 0.1146E-02,& - 0.1146E-02, 0.1288E-02, 0.1288E-02, 0.1288E-02,& - 0.1430E-02, 0.1430E-02, 0.1430E-02, 0.1572E-02,& - 0.1572E-02, 0.1714E-02, 0.1714E-02, 0.1856E-02,& - 0.1856E-02, 0.1856E-02, 0.1998E-02, 0.1998E-02,& - 0.2140E-02, 0.2140E-02, 0.2282E-02, 0.2282E-02,& - 0.2424E-02, 0.2424E-02, 0.2566E-02, 0.2708E-02,& - 0.2708E-02, 0.2850E-02, 0.2850E-02, 0.2992E-02,& - 0.2992E-02, 0.3134E-02, 0.3276E-02, 0.3276E-02,& - 0.3418E-02, 0.3560E-02, 0.3560E-02, 0.3702E-02,& - 0.3844E-02, 0.3986E-02, 0.3986E-02, 0.4128E-02,& - 0.4270E-02, 0.4412E-02, 0.4412E-02, 0.4554E-02,& - 0.4696E-02, 0.4838E-02, 0.4980E-02, 0.4980E-02,& - 0.5122E-02, 0.5264E-02, 0.5406E-02, 0.5548E-02,& - 0.5690E-02, 0.5832E-02, 0.5974E-02, 0.6116E-02,& - 0.6258E-02, 0.6400E-02, 0.6542E-02, 0.6684E-02,& - 0.6826E-02, 0.6968E-02, 0.7110E-02, 0.7252E-02,& - 0.7394E-02, 0.7536E-02, 0.7678E-02, 0.7820E-02,& - 0.8104E-02, 0.8246E-02, 0.8388E-02, 0.8530E-02,& - 0.8672E-02, 0.8956E-02, 0.9098E-02, 0.9240E-02,& - 0.9382E-02, 0.9666E-02, 0.9808E-02, 0.9950E-02,& - 0.1023E-01, 0.1038E-01, 0.1052E-01, 0.1080E-01,& - 0.1094E-01, 0.1123E-01, 0.1137E-01, 0.1165E-01,& - 0.1180E-01, 0.1208E-01, 0.1222E-01, 0.1251E-01,& - 0.1265E-01, 0.1293E-01, 0.1307E-01, 0.1336E-01,& - 0.1364E-01, 0.1378E-01, 0.1407E-01, 0.1435E-01,& - 0.1449E-01, 0.1478E-01, 0.1506E-01, 0.1535E-01,& - 0.1549E-01, 0.1577E-01, 0.1606E-01, 0.1634E-01,& - 0.1662E-01, 0.1691E-01, 0.1719E-01, 0.1733E-01,& - 0.1762E-01, 0.1790E-01, 0.1819E-01, 0.1847E-01,& - 0.1875E-01, 0.1904E-01, 0.1932E-01, 0.1975E-01,& - 0.2003E-01, 0.2032E-01, 0.2060E-01, 0.2088E-01,& - 0.2117E-01, 0.2145E-01, 0.2188E-01, 0.2216E-01,& - 0.2245E-01, 0.2287E-01, 0.2316E-01, 0.2344E-01,& - 0.2387E-01, 0.2415E-01, 0.2443E-01, 0.2486E-01,& - 0.2514E-01, 0.2557E-01, 0.2585E-01, 0.2628E-01,& - 0.2656E-01, 0.2699E-01, 0.2727E-01, 0.2770E-01,& - 0.2813E-01, 0.2841E-01, 0.2884E-01, 0.2926E-01,& - 0.2955E-01, 0.2997E-01, 0.3040E-01, 0.3082E-01,& - 0.3125E-01, 0.3168E-01, 0.3196E-01, 0.3239E-01,& - 0.3281E-01, 0.3324E-01, 0.3366E-01, 0.3409E-01,& - 0.3452E-01, 0.3494E-01, 0.3537E-01, 0.3579E-01,& - 0.3636E-01, 0.3679E-01, 0.3721E-01, 0.3764E-01,& - 0.3807E-01, 0.3863E-01, 0.3906E-01, 0.3949E-01,& - 0.4005E-01, 0.4048E-01, 0.4091E-01, 0.4147E-01,& - 0.4190E-01, 0.4247E-01, 0.4289E-01, 0.4346E-01,& - 0.4389E-01, 0.4446E-01, 0.4488E-01, 0.4545E-01,& - 0.4602E-01, 0.4644E-01, 0.4701E-01, 0.4758E-01,& - 0.4815E-01, 0.4857E-01, 0.4914E-01, 0.4971E-01,& - 0.5028E-01, 0.5085E-01, 0.5141E-01, 0.5198E-01,& - 0.5255E-01, 0.5312E-01, 0.5369E-01, 0.5425E-01,& - 0.5482E-01, 0.5539E-01, 0.5610E-01, 0.5667E-01,& - 0.5724E-01, 0.5780E-01, 0.5851E-01, 0.5908E-01,& - 0.5965E-01, 0.6036E-01, 0.6093E-01, 0.6164E-01,& - 0.6221E-01, 0.6292E-01, 0.6348E-01, 0.6419E-01,& - 0.6490E-01, 0.6547E-01, 0.6618E-01, 0.6689E-01,& - 0.6746E-01, 0.6817E-01, 0.6888E-01, 0.6959E-01,& - 0.7030E-01, 0.7101E-01, 0.7172E-01, 0.7229E-01,& - 0.7300E-01, 0.7385E-01, 0.7456E-01, 0.7527E-01,& - 0.7598E-01, 0.7669E-01, 0.7740E-01, 0.7825E-01,& - 0.7896E-01, 0.7967E-01, 0.8038E-01, 0.8124E-01,& - 0.8195E-01, 0.8280E-01, 0.8351E-01, 0.8436E-01,& - 0.8507E-01, 0.8592E-01, 0.8677E-01, 0.8748E-01,& - 0.8834E-01, 0.8919E-01, 0.8990E-01, 0.9075E-01,& - 0.9160E-01, 0.9245E-01, 0.9331E-01, 0.9416E-01,& - 0.9501E-01, 0.9586E-01, 0.9671E-01, 0.9757E-01,& - 0.9842E-01, 0.9927E-01, 0.1003E+00, 0.1011E+00,& - 0.1020E+00, 0.1028E+00, 0.1038E+00, 0.1047E+00,& - 0.1057E+00, 0.1065E+00, 0.1075E+00, 0.1084E+00,& - 0.1094E+00, 0.1102E+00, 0.1112E+00, 0.1122E+00,& - 0.1132E+00, 0.1140E+00, 0.1150E+00, 0.1160E+00,& - 0.1170E+00, 0.1180E+00, 0.1190E+00, 0.1200E+00,& - 0.1210E+00, 0.1220E+00, 0.1230E+00, 0.1241E+00,& - 0.1251E+00, 0.1261E+00, 0.1271E+00, 0.1282E+00,& - 0.1292E+00, 0.1304E+00, 0.1314E+00, 0.1325E+00,& - 0.1335E+00, 0.1346E+00, 0.1356E+00, 0.1368E+00,& - 0.1379E+00, 0.1390E+00, 0.1402E+00, 0.1412E+00,& - 0.1423E+00, 0.1434E+00, 0.1446E+00, 0.1457E+00,& - 0.1470E+00, 0.1481E+00, 0.1493E+00, 0.1504E+00,& - 0.1515E+00, 0.1528E+00, 0.1539E+00, 0.1551E+00,& - 0.1564E+00, 0.1575E+00, 0.1588E+00, 0.1600E+00,& - 0.1612E+00, 0.1625E+00, 0.1637E+00, 0.1649E+00,& - 0.1662E+00, 0.1674E+00, 0.1687E+00, 0.1700E+00,& - 0.1713E+00, 0.1725E+00, 0.1738E+00, 0.1751E+00,& - 0.1765E+00, 0.1778E+00, 0.1791E+00, 0.1805E+00,& - 0.1818E+00, 0.1831E+00, 0.1845E+00, 0.1857E+00,& - 0.1872E+00, 0.1886E+00, 0.1899E+00, 0.1913E+00,& - 0.1927E+00, 0.1941E+00, 0.1955E+00, 0.1970E+00,& - 0.1984E+00, 0.1998E+00, 0.2012E+00, 0.2026E+00,& - 0.2041E+00, 0.2055E+00, 0.2070E+00, 0.2085E+00,& - 0.2100E+00, 0.2115E+00, 0.2130E+00, 0.2144E+00,& - 0.2160E+00, 0.2174E+00, 0.2190E+00, 0.2205E+00,& - 0.2221E+00, 0.2237E+00, 0.2252E+00, 0.2268E+00,& - 0.2283E+00, 0.2299E+00, 0.2315E+00, 0.2330E+00,& - 0.2347E+00, 0.2363E+00, 0.2379E+00, 0.2396E+00,& - 0.2411E+00, 0.2428E+00, 0.2445E+00, 0.2461E+00,& - 0.2478E+00, 0.2495E+00, 0.2512E+00, 0.2529E+00,& - 0.2546E+00, 0.2563E+00, 0.2580E+00, 0.2597E+00,& - 0.2614E+00, 0.2631E+00, 0.2650E+00, 0.2667E+00,& - 0.2685E+00, 0.2702E+00, 0.2721E+00, 0.2738E+00,& - 0.2756E+00, 0.2775E+00, 0.2792E+00, 0.2810E+00,& - 0.2829E+00, 0.2847E+00, 0.2866E+00, 0.2884E+00,& - 0.2904E+00, 0.2923E+00, 0.2941E+00, 0.2961E+00,& - 0.2979E+00, 0.2999E+00, 0.3018E+00, 0.3038E+00,& - 0.3056E+00, 0.3076E+00, 0.3096E+00, 0.3116E+00,& - 0.3136E+00, 0.3155E+00, 0.3175E+00, 0.3195E+00,& - 0.3215E+00, 0.3236E+00, 0.3256E+00, 0.3278E+00,& - 0.3297E+00, 0.3319E+00, 0.3339E+00, 0.3360E+00,& - 0.3381E+00, 0.3402E+00, 0.3422E+00, 0.3444E+00,& - 0.3465E+00, 0.3488E+00, 0.3509E+00, 0.3530E+00,& - 0.3552E+00, 0.3574E+00, 0.3596E+00, 0.3618E+00,& - 0.3640E+00, 0.3662E+00, 0.3685E+00, 0.3708E+00,& - 0.3730E+00, 0.3753E+00, 0.3776E+00, 0.3799E+00,& - 0.3821E+00, 0.3844E+00, 0.3868E+00, 0.3891E+00,& - 0.3915E+00, 0.3938E+00, 0.3962E+00, 0.3986E+00,& - 0.4009E+00, 0.4033E+00, 0.4057E+00, 0.4081E+00,& - 0.4105E+00, 0.4131E+00, 0.4155E+00, 0.4179E+00,& - 0.4205E+00, 0.4229E+00, 0.4254E+00, 0.4279E+00,& - 0.4304E+00, 0.4330E+00, 0.4355E+00, 0.4381E+00,& - 0.4406E+00, 0.4432E+00, 0.4458E+00, 0.4485E+00,& - 0.4510E+00, 0.4537E+00, 0.4563E+00, 0.4590E+00,& - 0.4617E+00, 0.4644E+00, 0.4671E+00, 0.4698E+00,& - 0.4725E+00, 0.4751E+00, 0.4778E+00, 0.4805E+00,& - 0.4834E+00, 0.4861E+00, 0.4889E+00, 0.4918E+00,& - 0.4946E+00, 0.4974E+00, 0.5003E+00, 0.5031E+00,& - 0.5060E+00, 0.5088E+00, 0.5116E+00, 0.5146E+00,& - 0.5175E+00, 0.5204E+00, 0.5234E+00, 0.5264E+00,& - 0.5293E+00, 0.5322E+00, 0.5354E+00, 0.5383E+00,& - 0.5413E+00, 0.5443E+00, 0.5474E+00, 0.5506E+00,& - 0.5535E+00, 0.5567E+00, 0.5598E+00, 0.5629E+00,& - 0.5660E+00, 0.5692E+00, 0.5723E+00, 0.5755E+00,& - 0.5787E+00, 0.5819E+00, 0.5852E+00, 0.5883E+00,& - 0.5916E+00, 0.5949E+00, 0.5981E+00, 0.6015E+00,& - 0.6048E+00, 0.6081E+00, 0.6115E+00, 0.6149E+00,& - 0.6181E+00, 0.6216E+00, 0.6250E+00, 0.6284E+00,& - 0.6318E+00, 0.6353E+00, 0.6387E+00, 0.6423E+00,& - 0.6457E+00, 0.6492E+00, 0.6528E+00, 0.6563E+00,& - 0.6599E+00, 0.6634E+00, 0.6670E+00, 0.6707E+00,& - 0.6742E+00, 0.6779E+00, 0.6816E+00, 0.6853E+00,& - 0.6890E+00, 0.6927E+00, 0.6964E+00, 0.7001E+00,& - 0.7039E+00, 0.7076E+00, 0.7114E+00, 0.7153E+00,& - 0.7191E+00, 0.7229E+00, 0.7268E+00, 0.7308E+00,& - 0.7346E+00, 0.7386E+00, 0.7424E+00, 0.7464E+00,& - 0.7503E+00, 0.7543E+00, 0.7584E+00, 0.7624E+00,& - 0.7665E+00, 0.7705E+00, 0.7746E+00, 0.7787E+00,& - 0.7829E+00, 0.7870E+00, 0.7911E+00, 0.7954E+00,& - 0.7996E+00, 0.8037E+00, 0.8080E+00, 0.8123E+00,& - 0.8165E+00, 0.8209E+00, 0.8252E+00, 0.8296E+00,& - 0.8338E+00, 0.8382E+00, 0.8427E+00, 0.8471E+00,& - 0.8516E+00, 0.8560E+00, 0.8605E+00, 0.8649E+00,& - 0.8695E+00, 0.8740E+00, 0.8786E+00, 0.8833E+00,& - 0.8878E+00, 0.8925E+00, 0.8972E+00, 0.9019E+00,& - 0.9066E+00, 0.9112E+00, 0.9161E+00, 0.9208E+00,& - 0.9256E+00, 0.9304E+00, 0.9352E+00, 0.9401E+00,& - 0.9450E+00, 0.9499E+00, 0.9548E+00, 0.9598E+00,& - 0.9648E+00, 0.9697E+00, 0.9749E+00, 0.9798E+00,& - 0.9849E+00, 0.9900E+00, 0.9952E+00, 0.1000E+01,& - 0.1006E+01, 0.1011E+01, 0.1016E+01, 0.1021E+01,& - 0.1027E+01, 0.1032E+01, 0.1037E+01, 0.1042E+01,& - 0.1048E+01, 0.1053E+01, 0.1059E+01, 0.1064E+01,& - 0.1070E+01, 0.1075E+01, 0.1081E+01, 0.1086E+01,& - 0.1092E+01, 0.1098E+01, 0.1103E+01, 0.1109E+01,& - 0.1115E+01, 0.1120E+01, 0.1126E+01, 0.1132E+01,& - 0.1138E+01, 0.1144E+01, 0.1150E+01, 0.1155E+01,& - 0.1161E+01, 0.1167E+01, 0.1173E+01, 0.1179E+01,& - 0.1186E+01, 0.1192E+01, 0.1198E+01, 0.1204E+01,& - 0.1210E+01, 0.1216E+01, 0.1223E+01, 0.1229E+01,& - 0.1235E+01, 0.1242E+01, 0.1248E+01, 0.1254E+01,& - 0.1261E+01, 0.1268E+01, 0.1274E+01, 0.1281E+01,& - 0.1287E+01, 0.1294E+01, 0.1300E+01, 0.1307E+01,& - 0.1314E+01, 0.1321E+01, 0.1328E+01, 0.1334E+01,& - 0.1341E+01, 0.1348E+01, 0.1355E+01, 0.1362E+01,& - 0.1369E+01, 0.1376E+01, 0.1384E+01, 0.1391E+01,& - 0.1398E+01, 0.1405E+01, 0.1412E+01, 0.1420E+01,& - 0.1427E+01, 0.1435E+01, 0.1442E+01, 0.1449E+01,& - 0.1457E+01, 0.1464E+01, 0.1472E+01, 0.1480E+01,& - 0.1487E+01, 0.1495E+01, 0.1503E+01, 0.1511E+01,& - 0.1519E+01, 0.1527E+01, 0.1535E+01, 0.1543E+01,& - 0.1551E+01, 0.1559E+01, 0.1567E+01, 0.1575E+01,& - 0.1583E+01, 0.1592E+01, 0.1600E+01, 0.1608E+01,& - 0.1617E+01, 0.1625E+01, 0.1634E+01, 0.1643E+01,& - 0.1651E+01, 0.1660E+01, 0.1669E+01, 0.1677E+01,& - 0.1686E+01, 0.1695E+01, 0.1704E+01, 0.1713E+01,& - 0.1722E+01, 0.1732E+01, 0.1741E+01, 0.1749E+01,& - 0.1759E+01, 0.1769E+01, 0.1778E+01, 0.1788E+01,& - 0.1797E+01, 0.1807E+01, 0.1817E+01, 0.1826E+01,& - 0.1836E+01, 0.1846E+01, 0.1856E+01, 0.1866E+01,& - 0.1876E+01, 0.1886E+01, 0.1896E+01, 0.1906E+01,& - 0.1917E+01, 0.1927E+01, 0.1938E+01, 0.1948E+01,& - 0.1959E+01, 0.1969E+01, 0.1980E+01, 0.1991E+01,& - 0.2002E+01, 0.2013E+01, 0.2024E+01, 0.2035E+01,& - 0.2046E+01, 0.2058E+01, 0.2069E+01, 0.2080E+01,& - 0.2092E+01, 0.2104E+01, 0.2115E+01, 0.2127E+01,& - 0.2139E+01, 0.2151E+01, 0.2163E+01, 0.2175E+01,& - 0.2187E+01, 0.2200E+01, 0.2212E+01, 0.2225E+01,& - 0.2237E+01, 0.2250E+01, 0.2263E+01, 0.2276E+01,& - 0.2289E+01, 0.2302E+01, 0.2315E+01, 0.2328E+01,& - 0.2342E+01, 0.2355E+01, 0.2369E+01, 0.2383E+01,& - 0.2396E+01, 0.2410E+01, 0.2424E+01, 0.2438E+01,& - 0.2453E+01, 0.2467E+01, 0.2482E+01, 0.2496E+01,& - 0.2511E+01, 0.2526E+01, 0.2541E+01, 0.2556E+01,& - 0.2572E+01, 0.2587E+01, 0.2603E+01, 0.2618E+01,& - 0.2634E+01, 0.2650E+01, 0.2667E+01, 0.2683E+01,& - 0.2699E+01, 0.2716E+01, 0.2733E+01, 0.2749E+01,& - 0.2766E+01, 0.2784E+01, 0.2801E+01, 0.2819E+01,& - 0.2837E+01, 0.2854E+01, 0.2873E+01, 0.2891E+01,& - 0.2909E+01, 0.2928E+01, 0.2947E+01, 0.2966E+01,& - 0.2985E+01, 0.3004E+01, 0.3024E+01, 0.3044E+01,& - 0.3064E+01, 0.3084E+01, 0.3105E+01, 0.3126E+01,& - 0.3147E+01, 0.3168E+01, 0.3189E+01, 0.3211E+01,& - 0.3233E+01, 0.3255E+01, 0.3278E+01, 0.3300E+01,& - 0.3323E+01, 0.3347E+01, 0.3370E+01, 0.3394E+01,& - 0.3418E+01, 0.3443E+01, 0.3468E+01, 0.3493E+01,& - 0.3518E+01, 0.3544E+01, 0.3570E+01, 0.3597E+01,& - 0.3624E+01, 0.3651E+01, 0.3679E+01, 0.3707E+01,& - 0.3735E+01, 0.3764E+01, 0.3794E+01, 0.3823E+01,& - 0.3854E+01, 0.3884E+01, 0.3916E+01, 0.3947E+01,& - 0.3979E+01, 0.4012E+01, 0.4046E+01, 0.4080E+01,& - 0.4114E+01, 0.4149E+01, 0.4185E+01, 0.4221E+01,& - 0.4259E+01, 0.4296E+01, 0.4335E+01, 0.4374E+01,& - 0.4414E+01, 0.4455E+01, 0.4497E+01, 0.4540E+01,& - 0.4583E+01, 0.4628E+01, 0.4673E+01, 0.4720E+01,& - 0.4768E+01, 0.4817E+01, 0.4867E+01, 0.4918E+01,& - 0.4971E+01, 0.5025E+01, 0.5081E+01, 0.5139E+01,& - 0.5198E+01, 0.5259E+01, 0.5322E+01, 0.5386E+01,& - 0.5453E+01, 0.5523E+01, 0.5595E+01, 0.5669E+01,& - 0.5747E+01, 0.5827E+01, 0.5911E+01, 0.5999E+01,& - 0.6091E+01, 0.6188E+01, 0.6289E+01, 0.6396E+01,& - 0.6509E+01, 0.6630E+01, 0.6758E+01, 0.6895E+01,& - 0.7043E+01, 0.7204E+01, 0.7380E+01, 0.7574E+01,& - 0.7791E+01, 0.8037E+01, 0.8322E+01, 0.8663E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 64) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1552E-03, 0.1552E-03, 0.1552E-03,& - 0.1552E-03, 0.1552E-03, 0.1552E-03, 0.1552E-03,& - 0.1552E-03, 0.1552E-03, 0.1552E-03, 0.3003E-03,& - 0.3003E-03, 0.3003E-03, 0.3003E-03, 0.3003E-03,& - 0.3003E-03, 0.3003E-03, 0.4455E-03, 0.4455E-03,& - 0.4455E-03, 0.4455E-03, 0.4455E-03, 0.4455E-03,& - 0.5907E-03, 0.5907E-03, 0.5907E-03, 0.5907E-03,& - 0.5907E-03, 0.7359E-03, 0.7359E-03, 0.7359E-03,& - 0.7359E-03, 0.8810E-03, 0.8810E-03, 0.8810E-03,& - 0.1026E-02, 0.1026E-02, 0.1026E-02, 0.1026E-02,& - 0.1171E-02, 0.1171E-02, 0.1171E-02, 0.1317E-02,& - 0.1317E-02, 0.1317E-02, 0.1462E-02, 0.1462E-02,& - 0.1462E-02, 0.1607E-02, 0.1607E-02, 0.1752E-02,& - 0.1752E-02, 0.1752E-02, 0.1897E-02, 0.1897E-02,& - 0.2042E-02, 0.2042E-02, 0.2188E-02, 0.2188E-02,& - 0.2333E-02, 0.2333E-02, 0.2478E-02, 0.2478E-02,& - 0.2623E-02, 0.2623E-02, 0.2768E-02, 0.2768E-02,& - 0.2913E-02, 0.2913E-02, 0.3059E-02, 0.3204E-02,& - 0.3204E-02, 0.3349E-02, 0.3349E-02, 0.3494E-02,& - 0.3639E-02, 0.3639E-02, 0.3784E-02, 0.3930E-02,& - 0.3930E-02, 0.4075E-02, 0.4220E-02, 0.4365E-02,& - 0.4365E-02, 0.4510E-02, 0.4656E-02, 0.4801E-02,& - 0.4801E-02, 0.4946E-02, 0.5091E-02, 0.5236E-02,& - 0.5381E-02, 0.5527E-02, 0.5527E-02, 0.5672E-02,& - 0.5817E-02, 0.5962E-02, 0.6107E-02, 0.6252E-02,& - 0.6398E-02, 0.6543E-02, 0.6688E-02, 0.6833E-02,& - 0.6978E-02, 0.7123E-02, 0.7269E-02, 0.7414E-02,& - 0.7559E-02, 0.7704E-02, 0.7849E-02, 0.7995E-02,& - 0.8285E-02, 0.8430E-02, 0.8575E-02, 0.8720E-02,& - 0.8866E-02, 0.9011E-02, 0.9301E-02, 0.9446E-02,& - 0.9591E-02, 0.9737E-02, 0.1003E-01, 0.1017E-01,& - 0.1032E-01, 0.1061E-01, 0.1075E-01, 0.1090E-01,& - 0.1119E-01, 0.1133E-01, 0.1148E-01, 0.1177E-01,& - 0.1191E-01, 0.1220E-01, 0.1235E-01, 0.1264E-01,& - 0.1279E-01, 0.1308E-01, 0.1322E-01, 0.1351E-01,& - 0.1380E-01, 0.1395E-01, 0.1424E-01, 0.1438E-01,& - 0.1467E-01, 0.1496E-01, 0.1511E-01, 0.1540E-01,& - 0.1569E-01, 0.1598E-01, 0.1612E-01, 0.1641E-01,& - 0.1670E-01, 0.1700E-01, 0.1729E-01, 0.1758E-01,& - 0.1772E-01, 0.1801E-01, 0.1830E-01, 0.1859E-01,& - 0.1888E-01, 0.1917E-01, 0.1946E-01, 0.1975E-01,& - 0.2004E-01, 0.2033E-01, 0.2062E-01, 0.2091E-01,& - 0.2135E-01, 0.2164E-01, 0.2193E-01, 0.2222E-01,& - 0.2251E-01, 0.2295E-01, 0.2324E-01, 0.2353E-01,& - 0.2382E-01, 0.2425E-01, 0.2454E-01, 0.2483E-01,& - 0.2527E-01, 0.2556E-01, 0.2600E-01, 0.2629E-01,& - 0.2672E-01, 0.2701E-01, 0.2745E-01, 0.2774E-01,& - 0.2817E-01, 0.2846E-01, 0.2890E-01, 0.2919E-01,& - 0.2963E-01, 0.3006E-01, 0.3050E-01, 0.3079E-01,& - 0.3122E-01, 0.3166E-01, 0.3209E-01, 0.3238E-01,& - 0.3282E-01, 0.3325E-01, 0.3369E-01, 0.3413E-01,& - 0.3456E-01, 0.3500E-01, 0.3543E-01, 0.3587E-01,& - 0.3630E-01, 0.3674E-01, 0.3717E-01, 0.3761E-01,& - 0.3805E-01, 0.3863E-01, 0.3906E-01, 0.3950E-01,& - 0.3993E-01, 0.4051E-01, 0.4095E-01, 0.4138E-01,& - 0.4196E-01, 0.4240E-01, 0.4284E-01, 0.4342E-01,& - 0.4385E-01, 0.4443E-01, 0.4487E-01, 0.4545E-01,& - 0.4588E-01, 0.4647E-01, 0.4705E-01, 0.4748E-01,& - 0.4806E-01, 0.4864E-01, 0.4908E-01, 0.4966E-01,& - 0.5024E-01, 0.5082E-01, 0.5140E-01, 0.5198E-01,& - 0.5256E-01, 0.5300E-01, 0.5358E-01, 0.5416E-01,& - 0.5489E-01, 0.5547E-01, 0.5605E-01, 0.5663E-01,& - 0.5721E-01, 0.5779E-01, 0.5837E-01, 0.5910E-01,& - 0.5968E-01, 0.6026E-01, 0.6098E-01, 0.6156E-01,& - 0.6214E-01, 0.6287E-01, 0.6345E-01, 0.6418E-01,& - 0.6476E-01, 0.6548E-01, 0.6606E-01, 0.6679E-01,& - 0.6752E-01, 0.6810E-01, 0.6882E-01, 0.6955E-01,& - 0.7027E-01, 0.7085E-01, 0.7158E-01, 0.7231E-01,& - 0.7303E-01, 0.7376E-01, 0.7448E-01, 0.7521E-01,& - 0.7594E-01, 0.7666E-01, 0.7739E-01, 0.7811E-01,& - 0.7884E-01, 0.7971E-01, 0.8044E-01, 0.8116E-01,& - 0.8203E-01, 0.8276E-01, 0.8348E-01, 0.8436E-01,& - 0.8508E-01, 0.8595E-01, 0.8668E-01, 0.8755E-01,& - 0.8828E-01, 0.8915E-01, 0.9002E-01, 0.9074E-01,& - 0.9161E-01, 0.9249E-01, 0.9336E-01, 0.9408E-01,& - 0.9495E-01, 0.9582E-01, 0.9670E-01, 0.9757E-01,& - 0.9844E-01, 0.9931E-01, 0.1002E+00, 0.1012E+00,& - 0.1021E+00, 0.1029E+00, 0.1038E+00, 0.1048E+00,& - 0.1057E+00, 0.1066E+00, 0.1076E+00, 0.1085E+00,& - 0.1095E+00, 0.1103E+00, 0.1114E+00, 0.1122E+00,& - 0.1132E+00, 0.1143E+00, 0.1153E+00, 0.1161E+00,& - 0.1172E+00, 0.1182E+00, 0.1192E+00, 0.1202E+00,& - 0.1212E+00, 0.1222E+00, 0.1233E+00, 0.1243E+00,& - 0.1253E+00, 0.1263E+00, 0.1273E+00, 0.1285E+00,& - 0.1295E+00, 0.1305E+00, 0.1317E+00, 0.1327E+00,& - 0.1339E+00, 0.1349E+00, 0.1360E+00, 0.1371E+00,& - 0.1382E+00, 0.1394E+00, 0.1404E+00, 0.1416E+00,& - 0.1427E+00, 0.1439E+00, 0.1450E+00, 0.1462E+00,& - 0.1474E+00, 0.1485E+00, 0.1497E+00, 0.1508E+00,& - 0.1520E+00, 0.1533E+00, 0.1545E+00, 0.1556E+00,& - 0.1569E+00, 0.1581E+00, 0.1593E+00, 0.1606E+00,& - 0.1617E+00, 0.1630E+00, 0.1643E+00, 0.1655E+00,& - 0.1668E+00, 0.1681E+00, 0.1694E+00, 0.1707E+00,& - 0.1720E+00, 0.1733E+00, 0.1747E+00, 0.1760E+00,& - 0.1773E+00, 0.1786E+00, 0.1799E+00, 0.1812E+00,& - 0.1826E+00, 0.1839E+00, 0.1854E+00, 0.1867E+00,& - 0.1882E+00, 0.1895E+00, 0.1909E+00, 0.1922E+00,& - 0.1937E+00, 0.1951E+00, 0.1966E+00, 0.1980E+00,& - 0.1995E+00, 0.2009E+00, 0.2024E+00, 0.2038E+00,& - 0.2053E+00, 0.2067E+00, 0.2082E+00, 0.2098E+00,& - 0.2112E+00, 0.2127E+00, 0.2143E+00, 0.2157E+00,& - 0.2173E+00, 0.2189E+00, 0.2204E+00, 0.2220E+00,& - 0.2236E+00, 0.2252E+00, 0.2266E+00, 0.2282E+00,& - 0.2298E+00, 0.2314E+00, 0.2332E+00, 0.2348E+00,& - 0.2364E+00, 0.2379E+00, 0.2397E+00, 0.2413E+00,& - 0.2430E+00, 0.2446E+00, 0.2464E+00, 0.2480E+00,& - 0.2497E+00, 0.2514E+00, 0.2532E+00, 0.2548E+00,& - 0.2565E+00, 0.2583E+00, 0.2600E+00, 0.2619E+00,& - 0.2636E+00, 0.2654E+00, 0.2671E+00, 0.2690E+00,& - 0.2708E+00, 0.2725E+00, 0.2744E+00, 0.2763E+00,& - 0.2780E+00, 0.2799E+00, 0.2818E+00, 0.2837E+00,& - 0.2856E+00, 0.2875E+00, 0.2893E+00, 0.2912E+00,& - 0.2931E+00, 0.2950E+00, 0.2969E+00, 0.2989E+00,& - 0.3008E+00, 0.3028E+00, 0.3047E+00, 0.3068E+00,& - 0.3088E+00, 0.3107E+00, 0.3127E+00, 0.3147E+00,& - 0.3168E+00, 0.3188E+00, 0.3208E+00, 0.3229E+00,& - 0.3251E+00, 0.3271E+00, 0.3291E+00, 0.3313E+00,& - 0.3333E+00, 0.3355E+00, 0.3375E+00, 0.3397E+00,& - 0.3419E+00, 0.3441E+00, 0.3462E+00, 0.3484E+00,& - 0.3506E+00, 0.3528E+00, 0.3550E+00, 0.3571E+00,& - 0.3595E+00, 0.3616E+00, 0.3640E+00, 0.3661E+00,& - 0.3685E+00, 0.3708E+00, 0.3730E+00, 0.3753E+00,& - 0.3776E+00, 0.3799E+00, 0.3823E+00, 0.3847E+00,& - 0.3870E+00, 0.3894E+00, 0.3918E+00, 0.3942E+00,& - 0.3966E+00, 0.3989E+00, 0.4014E+00, 0.4039E+00,& - 0.4063E+00, 0.4088E+00, 0.4113E+00, 0.4138E+00,& - 0.4162E+00, 0.4187E+00, 0.4213E+00, 0.4238E+00,& - 0.4264E+00, 0.4289E+00, 0.4315E+00, 0.4341E+00,& - 0.4367E+00, 0.4393E+00, 0.4419E+00, 0.4445E+00,& - 0.4471E+00, 0.4498E+00, 0.4525E+00, 0.4551E+00,& - 0.4579E+00, 0.4605E+00, 0.4633E+00, 0.4660E+00,& - 0.4688E+00, 0.4715E+00, 0.4743E+00, 0.4770E+00,& - 0.4798E+00, 0.4826E+00, 0.4855E+00, 0.4882E+00,& - 0.4911E+00, 0.4940E+00, 0.4968E+00, 0.4997E+00,& - 0.5026E+00, 0.5055E+00, 0.5084E+00, 0.5115E+00,& - 0.5144E+00, 0.5173E+00, 0.5203E+00, 0.5234E+00,& - 0.5263E+00, 0.5293E+00, 0.5324E+00, 0.5354E+00,& - 0.5385E+00, 0.5415E+00, 0.5447E+00, 0.5477E+00,& - 0.5509E+00, 0.5540E+00, 0.5572E+00, 0.5604E+00,& - 0.5636E+00, 0.5668E+00, 0.5700E+00, 0.5732E+00,& - 0.5763E+00, 0.5797E+00, 0.5829E+00, 0.5862E+00,& - 0.5896E+00, 0.5929E+00, 0.5962E+00, 0.5996E+00,& - 0.6029E+00, 0.6063E+00, 0.6096E+00, 0.6131E+00,& - 0.6166E+00, 0.6199E+00, 0.6234E+00, 0.6269E+00,& - 0.6304E+00, 0.6338E+00, 0.6373E+00, 0.6409E+00,& - 0.6444E+00, 0.6481E+00, 0.6517E+00, 0.6553E+00,& - 0.6588E+00, 0.6626E+00, 0.6662E+00, 0.6698E+00,& - 0.6735E+00, 0.6772E+00, 0.6810E+00, 0.6846E+00,& - 0.6884E+00, 0.6922E+00, 0.6961E+00, 0.6999E+00,& - 0.7037E+00, 0.7076E+00, 0.7114E+00, 0.7153E+00,& - 0.7192E+00, 0.7231E+00, 0.7270E+00, 0.7311E+00,& - 0.7350E+00, 0.7391E+00, 0.7430E+00, 0.7471E+00,& - 0.7511E+00, 0.7552E+00, 0.7593E+00, 0.7635E+00,& - 0.7675E+00, 0.7717E+00, 0.7758E+00, 0.7800E+00,& - 0.7842E+00, 0.7884E+00, 0.7928E+00, 0.7970E+00,& - 0.8014E+00, 0.8056E+00, 0.8099E+00, 0.8143E+00,& - 0.8186E+00, 0.8231E+00, 0.8275E+00, 0.8320E+00,& - 0.8364E+00, 0.8409E+00, 0.8454E+00, 0.8499E+00,& - 0.8545E+00, 0.8590E+00, 0.8636E+00, 0.8683E+00,& - 0.8728E+00, 0.8776E+00, 0.8822E+00, 0.8869E+00,& - 0.8917E+00, 0.8963E+00, 0.9011E+00, 0.9059E+00,& - 0.9108E+00, 0.9156E+00, 0.9204E+00, 0.9253E+00,& - 0.9303E+00, 0.9352E+00, 0.9402E+00, 0.9451E+00,& - 0.9502E+00, 0.9552E+00, 0.9602E+00, 0.9653E+00,& - 0.9705E+00, 0.9756E+00, 0.9808E+00, 0.9859E+00,& - 0.9911E+00, 0.9963E+00, 0.1002E+01, 0.1007E+01,& - 0.1012E+01, 0.1018E+01, 0.1023E+01, 0.1028E+01,& - 0.1034E+01, 0.1039E+01, 0.1045E+01, 0.1050E+01,& - 0.1056E+01, 0.1061E+01, 0.1067E+01, 0.1073E+01,& - 0.1078E+01, 0.1084E+01, 0.1090E+01, 0.1095E+01,& - 0.1101E+01, 0.1107E+01, 0.1113E+01, 0.1119E+01,& - 0.1124E+01, 0.1130E+01, 0.1136E+01, 0.1142E+01,& - 0.1148E+01, 0.1154E+01, 0.1160E+01, 0.1166E+01,& - 0.1173E+01, 0.1179E+01, 0.1185E+01, 0.1191E+01,& - 0.1197E+01, 0.1204E+01, 0.1210E+01, 0.1216E+01,& - 0.1223E+01, 0.1229E+01, 0.1236E+01, 0.1242E+01,& - 0.1249E+01, 0.1255E+01, 0.1262E+01, 0.1269E+01,& - 0.1275E+01, 0.1282E+01, 0.1289E+01, 0.1295E+01,& - 0.1302E+01, 0.1309E+01, 0.1316E+01, 0.1323E+01,& - 0.1330E+01, 0.1337E+01, 0.1344E+01, 0.1351E+01,& - 0.1358E+01, 0.1365E+01, 0.1373E+01, 0.1380E+01,& - 0.1387E+01, 0.1394E+01, 0.1402E+01, 0.1409E+01,& - 0.1417E+01, 0.1424E+01, 0.1432E+01, 0.1439E+01,& - 0.1447E+01, 0.1454E+01, 0.1462E+01, 0.1470E+01,& - 0.1478E+01, 0.1486E+01, 0.1494E+01, 0.1502E+01,& - 0.1510E+01, 0.1518E+01, 0.1525E+01, 0.1534E+01,& - 0.1542E+01, 0.1550E+01, 0.1558E+01, 0.1567E+01,& - 0.1575E+01, 0.1583E+01, 0.1592E+01, 0.1600E+01,& - 0.1609E+01, 0.1618E+01, 0.1626E+01, 0.1635E+01,& - 0.1644E+01, 0.1653E+01, 0.1662E+01, 0.1670E+01,& - 0.1679E+01, 0.1688E+01, 0.1698E+01, 0.1707E+01,& - 0.1716E+01, 0.1725E+01, 0.1735E+01, 0.1744E+01,& - 0.1753E+01, 0.1763E+01, 0.1772E+01, 0.1782E+01,& - 0.1792E+01, 0.1802E+01, 0.1811E+01, 0.1821E+01,& - 0.1831E+01, 0.1841E+01, 0.1851E+01, 0.1862E+01,& - 0.1872E+01, 0.1882E+01, 0.1892E+01, 0.1903E+01,& - 0.1913E+01, 0.1924E+01, 0.1935E+01, 0.1945E+01,& - 0.1956E+01, 0.1967E+01, 0.1978E+01, 0.1989E+01,& - 0.2000E+01, 0.2011E+01, 0.2022E+01, 0.2034E+01,& - 0.2045E+01, 0.2057E+01, 0.2068E+01, 0.2080E+01,& - 0.2092E+01, 0.2103E+01, 0.2115E+01, 0.2127E+01,& - 0.2139E+01, 0.2151E+01, 0.2164E+01, 0.2176E+01,& - 0.2188E+01, 0.2201E+01, 0.2214E+01, 0.2226E+01,& - 0.2239E+01, 0.2252E+01, 0.2265E+01, 0.2278E+01,& - 0.2292E+01, 0.2305E+01, 0.2318E+01, 0.2332E+01,& - 0.2346E+01, 0.2359E+01, 0.2373E+01, 0.2387E+01,& - 0.2401E+01, 0.2416E+01, 0.2430E+01, 0.2444E+01,& - 0.2459E+01, 0.2474E+01, 0.2488E+01, 0.2503E+01,& - 0.2518E+01, 0.2534E+01, 0.2549E+01, 0.2564E+01,& - 0.2580E+01, 0.2596E+01, 0.2612E+01, 0.2628E+01,& - 0.2644E+01, 0.2660E+01, 0.2677E+01, 0.2693E+01,& - 0.2710E+01, 0.2727E+01, 0.2744E+01, 0.2761E+01,& - 0.2779E+01, 0.2796E+01, 0.2814E+01, 0.2832E+01,& - 0.2850E+01, 0.2869E+01, 0.2887E+01, 0.2906E+01,& - 0.2925E+01, 0.2944E+01, 0.2963E+01, 0.2982E+01,& - 0.3002E+01, 0.3022E+01, 0.3042E+01, 0.3062E+01,& - 0.3083E+01, 0.3103E+01, 0.3124E+01, 0.3146E+01,& - 0.3167E+01, 0.3189E+01, 0.3211E+01, 0.3233E+01,& - 0.3255E+01, 0.3278E+01, 0.3301E+01, 0.3324E+01,& - 0.3348E+01, 0.3372E+01, 0.3396E+01, 0.3420E+01,& - 0.3445E+01, 0.3470E+01, 0.3495E+01, 0.3521E+01,& - 0.3547E+01, 0.3574E+01, 0.3600E+01, 0.3627E+01,& - 0.3655E+01, 0.3683E+01, 0.3711E+01, 0.3740E+01,& - 0.3769E+01, 0.3799E+01, 0.3829E+01, 0.3859E+01,& - 0.3890E+01, 0.3922E+01, 0.3954E+01, 0.3986E+01,& - 0.4019E+01, 0.4053E+01, 0.4087E+01, 0.4122E+01,& - 0.4157E+01, 0.4193E+01, 0.4230E+01, 0.4267E+01,& - 0.4305E+01, 0.4344E+01, 0.4383E+01, 0.4423E+01,& - 0.4465E+01, 0.4506E+01, 0.4549E+01, 0.4593E+01,& - 0.4638E+01, 0.4683E+01, 0.4730E+01, 0.4778E+01,& - 0.4827E+01, 0.4877E+01, 0.4929E+01, 0.4981E+01,& - 0.5036E+01, 0.5091E+01, 0.5149E+01, 0.5208E+01,& - 0.5268E+01, 0.5331E+01, 0.5395E+01, 0.5462E+01,& - 0.5530E+01, 0.5602E+01, 0.5675E+01, 0.5752E+01,& - 0.5832E+01, 0.5914E+01, 0.6001E+01, 0.6091E+01,& - 0.6185E+01, 0.6284E+01, 0.6388E+01, 0.6499E+01,& - 0.6615E+01, 0.6738E+01, 0.6870E+01, 0.7011E+01,& - 0.7164E+01, 0.7329E+01, 0.7509E+01, 0.7709E+01,& - 0.7932E+01, 0.8185E+01, 0.8478E+01, 0.8829E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 65) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1584E-03, 0.1584E-03, 0.1584E-03,& - 0.1584E-03, 0.1584E-03, 0.1584E-03, 0.1584E-03,& - 0.1584E-03, 0.1584E-03, 0.1584E-03, 0.3068E-03,& - 0.3068E-03, 0.3068E-03, 0.3068E-03, 0.3068E-03,& - 0.3068E-03, 0.3068E-03, 0.3068E-03, 0.4552E-03,& - 0.4552E-03, 0.4552E-03, 0.4552E-03, 0.4552E-03,& - 0.4552E-03, 0.6036E-03, 0.6036E-03, 0.6036E-03,& - 0.6036E-03, 0.6036E-03, 0.7520E-03, 0.7520E-03,& - 0.7520E-03, 0.7520E-03, 0.9003E-03, 0.9003E-03,& - 0.9003E-03, 0.9003E-03, 0.1049E-02, 0.1049E-02,& - 0.1049E-02, 0.1049E-02, 0.1197E-02, 0.1197E-02,& - 0.1197E-02, 0.1346E-02, 0.1346E-02, 0.1346E-02,& - 0.1494E-02, 0.1494E-02, 0.1494E-02, 0.1642E-02,& - 0.1642E-02, 0.1791E-02, 0.1791E-02, 0.1791E-02,& - 0.1939E-02, 0.1939E-02, 0.2087E-02, 0.2087E-02,& - 0.2087E-02, 0.2236E-02, 0.2236E-02, 0.2384E-02,& - 0.2384E-02, 0.2533E-02, 0.2533E-02, 0.2681E-02,& - 0.2681E-02, 0.2829E-02, 0.2829E-02, 0.2978E-02,& - 0.2978E-02, 0.3126E-02, 0.3275E-02, 0.3275E-02,& - 0.3423E-02, 0.3423E-02, 0.3571E-02, 0.3720E-02,& - 0.3720E-02, 0.3868E-02, 0.4017E-02, 0.4017E-02,& - 0.4165E-02, 0.4313E-02, 0.4313E-02, 0.4462E-02,& - 0.4610E-02, 0.4759E-02, 0.4759E-02, 0.4907E-02,& - 0.5055E-02, 0.5204E-02, 0.5204E-02, 0.5352E-02,& - 0.5500E-02, 0.5649E-02, 0.5797E-02, 0.5946E-02,& - 0.6094E-02, 0.6094E-02, 0.6242E-02, 0.6391E-02,& - 0.6539E-02, 0.6688E-02, 0.6836E-02, 0.6984E-02,& - 0.7133E-02, 0.7281E-02, 0.7430E-02, 0.7578E-02,& - 0.7726E-02, 0.7875E-02, 0.8023E-02, 0.8172E-02,& - 0.8320E-02, 0.8468E-02, 0.8765E-02, 0.8913E-02,& - 0.9062E-02, 0.9210E-02, 0.9359E-02, 0.9507E-02,& - 0.9804E-02, 0.9952E-02, 0.1010E-01, 0.1025E-01,& - 0.1055E-01, 0.1069E-01, 0.1084E-01, 0.1114E-01,& - 0.1129E-01, 0.1144E-01, 0.1173E-01, 0.1188E-01,& - 0.1203E-01, 0.1233E-01, 0.1247E-01, 0.1277E-01,& - 0.1292E-01, 0.1322E-01, 0.1337E-01, 0.1366E-01,& - 0.1381E-01, 0.1411E-01, 0.1426E-01, 0.1455E-01,& - 0.1485E-01, 0.1500E-01, 0.1529E-01, 0.1559E-01,& - 0.1574E-01, 0.1604E-01, 0.1633E-01, 0.1648E-01,& - 0.1678E-01, 0.1708E-01, 0.1737E-01, 0.1767E-01,& - 0.1782E-01, 0.1811E-01, 0.1841E-01, 0.1871E-01,& - 0.1900E-01, 0.1930E-01, 0.1960E-01, 0.1989E-01,& - 0.2019E-01, 0.2049E-01, 0.2078E-01, 0.2108E-01,& - 0.2138E-01, 0.2168E-01, 0.2197E-01, 0.2227E-01,& - 0.2257E-01, 0.2301E-01, 0.2331E-01, 0.2360E-01,& - 0.2390E-01, 0.2435E-01, 0.2464E-01, 0.2494E-01,& - 0.2524E-01, 0.2568E-01, 0.2598E-01, 0.2642E-01,& - 0.2672E-01, 0.2702E-01, 0.2746E-01, 0.2776E-01,& - 0.2820E-01, 0.2850E-01, 0.2895E-01, 0.2924E-01,& - 0.2969E-01, 0.3013E-01, 0.3043E-01, 0.3088E-01,& - 0.3132E-01, 0.3162E-01, 0.3206E-01, 0.3251E-01,& - 0.3295E-01, 0.3325E-01, 0.3369E-01, 0.3414E-01,& - 0.3459E-01, 0.3503E-01, 0.3548E-01, 0.3592E-01,& - 0.3637E-01, 0.3681E-01, 0.3726E-01, 0.3770E-01,& - 0.3815E-01, 0.3859E-01, 0.3904E-01, 0.3948E-01,& - 0.3993E-01, 0.4052E-01, 0.4097E-01, 0.4141E-01,& - 0.4186E-01, 0.4245E-01, 0.4290E-01, 0.4334E-01,& - 0.4393E-01, 0.4438E-01, 0.4497E-01, 0.4542E-01,& - 0.4601E-01, 0.4646E-01, 0.4705E-01, 0.4750E-01,& - 0.4809E-01, 0.4853E-01, 0.4913E-01, 0.4972E-01,& - 0.5017E-01, 0.5076E-01, 0.5135E-01, 0.5195E-01,& - 0.5254E-01, 0.5313E-01, 0.5358E-01, 0.5417E-01,& - 0.5477E-01, 0.5536E-01, 0.5595E-01, 0.5655E-01,& - 0.5714E-01, 0.5773E-01, 0.5848E-01, 0.5907E-01,& - 0.5966E-01, 0.6026E-01, 0.6085E-01, 0.6159E-01,& - 0.6219E-01, 0.6278E-01, 0.6352E-01, 0.6412E-01,& - 0.6471E-01, 0.6545E-01, 0.6604E-01, 0.6679E-01,& - 0.6753E-01, 0.6812E-01, 0.6886E-01, 0.6946E-01,& - 0.7020E-01, 0.7094E-01, 0.7168E-01, 0.7228E-01,& - 0.7302E-01, 0.7376E-01, 0.7450E-01, 0.7524E-01,& - 0.7599E-01, 0.7673E-01, 0.7747E-01, 0.7821E-01,& - 0.7895E-01, 0.7970E-01, 0.8044E-01, 0.8118E-01,& - 0.8207E-01, 0.8281E-01, 0.8355E-01, 0.8430E-01,& - 0.8519E-01, 0.8593E-01, 0.8682E-01, 0.8756E-01,& - 0.8845E-01, 0.8919E-01, 0.9008E-01, 0.9083E-01,& - 0.9172E-01, 0.9261E-01, 0.9335E-01, 0.9424E-01,& - 0.9513E-01, 0.9602E-01, 0.9691E-01, 0.9780E-01,& - 0.9854E-01, 0.9943E-01, 0.1003E+00, 0.1014E+00,& - 0.1023E+00, 0.1031E+00, 0.1040E+00, 0.1049E+00,& - 0.1058E+00, 0.1069E+00, 0.1077E+00, 0.1086E+00,& - 0.1097E+00, 0.1106E+00, 0.1116E+00, 0.1125E+00,& - 0.1135E+00, 0.1144E+00, 0.1155E+00, 0.1165E+00,& - 0.1174E+00, 0.1184E+00, 0.1195E+00, 0.1205E+00,& - 0.1215E+00, 0.1226E+00, 0.1236E+00, 0.1247E+00,& - 0.1257E+00, 0.1267E+00, 0.1278E+00, 0.1288E+00,& - 0.1299E+00, 0.1310E+00, 0.1321E+00, 0.1331E+00,& - 0.1343E+00, 0.1353E+00, 0.1364E+00, 0.1376E+00,& - 0.1388E+00, 0.1398E+00, 0.1410E+00, 0.1422E+00,& - 0.1432E+00, 0.1444E+00, 0.1456E+00, 0.1468E+00,& - 0.1480E+00, 0.1491E+00, 0.1503E+00, 0.1515E+00,& - 0.1527E+00, 0.1539E+00, 0.1551E+00, 0.1563E+00,& - 0.1576E+00, 0.1588E+00, 0.1600E+00, 0.1613E+00,& - 0.1625E+00, 0.1638E+00, 0.1650E+00, 0.1664E+00,& - 0.1677E+00, 0.1689E+00, 0.1702E+00, 0.1716E+00,& - 0.1729E+00, 0.1742E+00, 0.1756E+00, 0.1769E+00,& - 0.1782E+00, 0.1796E+00, 0.1809E+00, 0.1822E+00,& - 0.1836E+00, 0.1851E+00, 0.1864E+00, 0.1877E+00,& - 0.1892E+00, 0.1905E+00, 0.1920E+00, 0.1935E+00,& - 0.1948E+00, 0.1963E+00, 0.1978E+00, 0.1993E+00,& - 0.2006E+00, 0.2021E+00, 0.2036E+00, 0.2051E+00,& - 0.2066E+00, 0.2082E+00, 0.2097E+00, 0.2112E+00,& - 0.2127E+00, 0.2143E+00, 0.2158E+00, 0.2174E+00,& - 0.2189E+00, 0.2205E+00, 0.2220E+00, 0.2236E+00,& - 0.2253E+00, 0.2268E+00, 0.2284E+00, 0.2300E+00,& - 0.2316E+00, 0.2333E+00, 0.2349E+00, 0.2365E+00,& - 0.2383E+00, 0.2400E+00, 0.2416E+00, 0.2434E+00,& - 0.2450E+00, 0.2466E+00, 0.2484E+00, 0.2502E+00,& - 0.2518E+00, 0.2536E+00, 0.2554E+00, 0.2572E+00,& - 0.2590E+00, 0.2607E+00, 0.2625E+00, 0.2643E+00,& - 0.2661E+00, 0.2679E+00, 0.2696E+00, 0.2716E+00,& - 0.2733E+00, 0.2751E+00, 0.2771E+00, 0.2790E+00,& - 0.2808E+00, 0.2827E+00, 0.2846E+00, 0.2866E+00,& - 0.2883E+00, 0.2903E+00, 0.2922E+00, 0.2943E+00,& - 0.2962E+00, 0.2981E+00, 0.3001E+00, 0.3021E+00,& - 0.3041E+00, 0.3061E+00, 0.3081E+00, 0.3101E+00,& - 0.3121E+00, 0.3142E+00, 0.3162E+00, 0.3183E+00,& - 0.3204E+00, 0.3225E+00, 0.3245E+00, 0.3266E+00,& - 0.3288E+00, 0.3309E+00, 0.3330E+00, 0.3352E+00,& - 0.3373E+00, 0.3395E+00, 0.3416E+00, 0.3438E+00,& - 0.3461E+00, 0.3483E+00, 0.3505E+00, 0.3527E+00,& - 0.3550E+00, 0.3572E+00, 0.3596E+00, 0.3618E+00,& - 0.3640E+00, 0.3664E+00, 0.3686E+00, 0.3710E+00,& - 0.3734E+00, 0.3756E+00, 0.3780E+00, 0.3803E+00,& - 0.3827E+00, 0.3851E+00, 0.3876E+00, 0.3900E+00,& - 0.3924E+00, 0.3949E+00, 0.3973E+00, 0.3998E+00,& - 0.4022E+00, 0.4047E+00, 0.4072E+00, 0.4097E+00,& - 0.4122E+00, 0.4148E+00, 0.4173E+00, 0.4198E+00,& - 0.4223E+00, 0.4250E+00, 0.4275E+00, 0.4302E+00,& - 0.4327E+00, 0.4354E+00, 0.4381E+00, 0.4407E+00,& - 0.4434E+00, 0.4461E+00, 0.4487E+00, 0.4514E+00,& - 0.4542E+00, 0.4569E+00, 0.4597E+00, 0.4624E+00,& - 0.4652E+00, 0.4680E+00, 0.4707E+00, 0.4735E+00,& - 0.4763E+00, 0.4793E+00, 0.4821E+00, 0.4850E+00,& - 0.4878E+00, 0.4907E+00, 0.4937E+00, 0.4965E+00,& - 0.4995E+00, 0.5025E+00, 0.5054E+00, 0.5084E+00,& - 0.5114E+00, 0.5143E+00, 0.5175E+00, 0.5204E+00,& - 0.5235E+00, 0.5265E+00, 0.5296E+00, 0.5327E+00,& - 0.5359E+00, 0.5390E+00, 0.5421E+00, 0.5452E+00,& - 0.5485E+00, 0.5516E+00, 0.5548E+00, 0.5580E+00,& - 0.5612E+00, 0.5645E+00, 0.5678E+00, 0.5710E+00,& - 0.5743E+00, 0.5776E+00, 0.5810E+00, 0.5842E+00,& - 0.5876E+00, 0.5909E+00, 0.5943E+00, 0.5977E+00,& - 0.6011E+00, 0.6046E+00, 0.6081E+00, 0.6115E+00,& - 0.6149E+00, 0.6185E+00, 0.6221E+00, 0.6255E+00,& - 0.6290E+00, 0.6326E+00, 0.6363E+00, 0.6399E+00,& - 0.6434E+00, 0.6471E+00, 0.6507E+00, 0.6544E+00,& - 0.6581E+00, 0.6618E+00, 0.6655E+00, 0.6693E+00,& - 0.6730E+00, 0.6768E+00, 0.6805E+00, 0.6844E+00,& - 0.6883E+00, 0.6921E+00, 0.6960E+00, 0.6998E+00,& - 0.7037E+00, 0.7077E+00, 0.7117E+00, 0.7156E+00,& - 0.7196E+00, 0.7236E+00, 0.7276E+00, 0.7316E+00,& - 0.7357E+00, 0.7397E+00, 0.7439E+00, 0.7479E+00,& - 0.7521E+00, 0.7562E+00, 0.7605E+00, 0.7647E+00,& - 0.7688E+00, 0.7731E+00, 0.7774E+00, 0.7816E+00,& - 0.7859E+00, 0.7903E+00, 0.7946E+00, 0.7990E+00,& - 0.8034E+00, 0.8077E+00, 0.8122E+00, 0.8166E+00,& - 0.8211E+00, 0.8257E+00, 0.8301E+00, 0.8347E+00,& - 0.8392E+00, 0.8438E+00, 0.8484E+00, 0.8531E+00,& - 0.8577E+00, 0.8623E+00, 0.8671E+00, 0.8718E+00,& - 0.8766E+00, 0.8813E+00, 0.8861E+00, 0.8910E+00,& - 0.8957E+00, 0.9006E+00, 0.9055E+00, 0.9104E+00,& - 0.9153E+00, 0.9203E+00, 0.9252E+00, 0.9303E+00,& - 0.9353E+00, 0.9404E+00, 0.9454E+00, 0.9506E+00,& - 0.9558E+00, 0.9608E+00, 0.9660E+00, 0.9712E+00,& - 0.9766E+00, 0.9818E+00, 0.9871E+00, 0.9925E+00,& - 0.9978E+00, 0.1003E+01, 0.1009E+01, 0.1014E+01,& - 0.1019E+01, 0.1025E+01, 0.1030E+01, 0.1036E+01,& - 0.1042E+01, 0.1047E+01, 0.1053E+01, 0.1058E+01,& - 0.1064E+01, 0.1070E+01, 0.1076E+01, 0.1081E+01,& - 0.1087E+01, 0.1093E+01, 0.1099E+01, 0.1105E+01,& - 0.1111E+01, 0.1117E+01, 0.1123E+01, 0.1129E+01,& - 0.1135E+01, 0.1141E+01, 0.1147E+01, 0.1153E+01,& - 0.1159E+01, 0.1165E+01, 0.1172E+01, 0.1178E+01,& - 0.1184E+01, 0.1191E+01, 0.1197E+01, 0.1203E+01,& - 0.1210E+01, 0.1217E+01, 0.1223E+01, 0.1230E+01,& - 0.1236E+01, 0.1243E+01, 0.1249E+01, 0.1256E+01,& - 0.1263E+01, 0.1270E+01, 0.1276E+01, 0.1283E+01,& - 0.1290E+01, 0.1297E+01, 0.1304E+01, 0.1311E+01,& - 0.1318E+01, 0.1325E+01, 0.1332E+01, 0.1340E+01,& - 0.1347E+01, 0.1354E+01, 0.1361E+01, 0.1369E+01,& - 0.1376E+01, 0.1383E+01, 0.1391E+01, 0.1398E+01,& - 0.1406E+01, 0.1413E+01, 0.1421E+01, 0.1429E+01,& - 0.1436E+01, 0.1444E+01, 0.1452E+01, 0.1460E+01,& - 0.1468E+01, 0.1476E+01, 0.1484E+01, 0.1492E+01,& - 0.1500E+01, 0.1508E+01, 0.1516E+01, 0.1524E+01,& - 0.1532E+01, 0.1541E+01, 0.1549E+01, 0.1558E+01,& - 0.1566E+01, 0.1575E+01, 0.1583E+01, 0.1592E+01,& - 0.1601E+01, 0.1609E+01, 0.1618E+01, 0.1627E+01,& - 0.1636E+01, 0.1645E+01, 0.1654E+01, 0.1663E+01,& - 0.1672E+01, 0.1681E+01, 0.1690E+01, 0.1700E+01,& - 0.1709E+01, 0.1718E+01, 0.1728E+01, 0.1737E+01,& - 0.1747E+01, 0.1757E+01, 0.1766E+01, 0.1776E+01,& - 0.1786E+01, 0.1796E+01, 0.1806E+01, 0.1816E+01,& - 0.1826E+01, 0.1836E+01, 0.1846E+01, 0.1857E+01,& - 0.1867E+01, 0.1878E+01, 0.1888E+01, 0.1899E+01,& - 0.1909E+01, 0.1920E+01, 0.1931E+01, 0.1942E+01,& - 0.1953E+01, 0.1964E+01, 0.1975E+01, 0.1986E+01,& - 0.1997E+01, 0.2009E+01, 0.2020E+01, 0.2032E+01,& - 0.2043E+01, 0.2055E+01, 0.2067E+01, 0.2079E+01,& - 0.2090E+01, 0.2102E+01, 0.2115E+01, 0.2127E+01,& - 0.2139E+01, 0.2151E+01, 0.2164E+01, 0.2176E+01,& - 0.2189E+01, 0.2202E+01, 0.2215E+01, 0.2228E+01,& - 0.2241E+01, 0.2254E+01, 0.2267E+01, 0.2280E+01,& - 0.2294E+01, 0.2308E+01, 0.2321E+01, 0.2335E+01,& - 0.2349E+01, 0.2363E+01, 0.2377E+01, 0.2391E+01,& - 0.2406E+01, 0.2420E+01, 0.2435E+01, 0.2450E+01,& - 0.2464E+01, 0.2479E+01, 0.2494E+01, 0.2510E+01,& - 0.2525E+01, 0.2540E+01, 0.2556E+01, 0.2572E+01,& - 0.2588E+01, 0.2604E+01, 0.2620E+01, 0.2636E+01,& - 0.2653E+01, 0.2670E+01, 0.2686E+01, 0.2703E+01,& - 0.2720E+01, 0.2738E+01, 0.2755E+01, 0.2773E+01,& - 0.2791E+01, 0.2808E+01, 0.2827E+01, 0.2845E+01,& - 0.2864E+01, 0.2882E+01, 0.2901E+01, 0.2920E+01,& - 0.2939E+01, 0.2959E+01, 0.2978E+01, 0.2998E+01,& - 0.3018E+01, 0.3038E+01, 0.3059E+01, 0.3080E+01,& - 0.3101E+01, 0.3122E+01, 0.3143E+01, 0.3165E+01,& - 0.3187E+01, 0.3209E+01, 0.3231E+01, 0.3254E+01,& - 0.3277E+01, 0.3300E+01, 0.3324E+01, 0.3347E+01,& - 0.3371E+01, 0.3396E+01, 0.3421E+01, 0.3446E+01,& - 0.3471E+01, 0.3496E+01, 0.3522E+01, 0.3549E+01,& - 0.3575E+01, 0.3602E+01, 0.3630E+01, 0.3658E+01,& - 0.3686E+01, 0.3714E+01, 0.3743E+01, 0.3773E+01,& - 0.3802E+01, 0.3833E+01, 0.3864E+01, 0.3895E+01,& - 0.3926E+01, 0.3959E+01, 0.3991E+01, 0.4025E+01,& - 0.4058E+01, 0.4093E+01, 0.4128E+01, 0.4163E+01,& - 0.4199E+01, 0.4236E+01, 0.4274E+01, 0.4312E+01,& - 0.4351E+01, 0.4391E+01, 0.4431E+01, 0.4472E+01,& - 0.4514E+01, 0.4557E+01, 0.4601E+01, 0.4646E+01,& - 0.4692E+01, 0.4739E+01, 0.4787E+01, 0.4836E+01,& - 0.4886E+01, 0.4937E+01, 0.4990E+01, 0.5044E+01,& - 0.5100E+01, 0.5157E+01, 0.5216E+01, 0.5276E+01,& - 0.5338E+01, 0.5402E+01, 0.5469E+01, 0.5537E+01,& - 0.5607E+01, 0.5680E+01, 0.5756E+01, 0.5835E+01,& - 0.5916E+01, 0.6001E+01, 0.6090E+01, 0.6183E+01,& - 0.6279E+01, 0.6381E+01, 0.6488E+01, 0.6601E+01,& - 0.6721E+01, 0.6848E+01, 0.6983E+01, 0.7128E+01,& - 0.7284E+01, 0.7454E+01, 0.7640E+01, 0.7845E+01,& - 0.8074E+01, 0.8334E+01, 0.8636E+01, 0.8996E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 66) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1617E-03, 0.1617E-03, 0.1617E-03,& - 0.1617E-03, 0.1617E-03, 0.1617E-03, 0.1617E-03,& - 0.1617E-03, 0.1617E-03, 0.1617E-03, 0.1617E-03,& - 0.3133E-03, 0.3133E-03, 0.3133E-03, 0.3133E-03,& - 0.3133E-03, 0.3133E-03, 0.3133E-03, 0.3133E-03,& - 0.4650E-03, 0.4650E-03, 0.4650E-03, 0.4650E-03,& - 0.4650E-03, 0.4650E-03, 0.6166E-03, 0.6166E-03,& - 0.6166E-03, 0.6166E-03, 0.6166E-03, 0.7683E-03,& - 0.7683E-03, 0.7683E-03, 0.7683E-03, 0.7683E-03,& - 0.9199E-03, 0.9199E-03, 0.9199E-03, 0.9199E-03,& - 0.1072E-02, 0.1072E-02, 0.1072E-02, 0.1072E-02,& - 0.1223E-02, 0.1223E-02, 0.1223E-02, 0.1375E-02,& - 0.1375E-02, 0.1375E-02, 0.1527E-02, 0.1527E-02,& - 0.1527E-02, 0.1678E-02, 0.1678E-02, 0.1678E-02,& - 0.1830E-02, 0.1830E-02, 0.1982E-02, 0.1982E-02,& - 0.1982E-02, 0.2133E-02, 0.2133E-02, 0.2285E-02,& - 0.2285E-02, 0.2285E-02, 0.2437E-02, 0.2437E-02,& - 0.2588E-02, 0.2588E-02, 0.2740E-02, 0.2740E-02,& - 0.2892E-02, 0.2892E-02, 0.3043E-02, 0.3043E-02,& - 0.3195E-02, 0.3346E-02, 0.3346E-02, 0.3498E-02,& - 0.3498E-02, 0.3650E-02, 0.3650E-02, 0.3801E-02,& - 0.3953E-02, 0.3953E-02, 0.4105E-02, 0.4256E-02,& - 0.4256E-02, 0.4408E-02, 0.4560E-02, 0.4560E-02,& - 0.4711E-02, 0.4863E-02, 0.5015E-02, 0.5015E-02,& - 0.5166E-02, 0.5318E-02, 0.5470E-02, 0.5470E-02,& - 0.5621E-02, 0.5773E-02, 0.5925E-02, 0.6076E-02,& - 0.6228E-02, 0.6380E-02, 0.6380E-02, 0.6531E-02,& - 0.6683E-02, 0.6835E-02, 0.6986E-02, 0.7138E-02,& - 0.7290E-02, 0.7441E-02, 0.7593E-02, 0.7745E-02,& - 0.7896E-02, 0.8048E-02, 0.8200E-02, 0.8351E-02,& - 0.8503E-02, 0.8655E-02, 0.8806E-02, 0.8958E-02,& - 0.9261E-02, 0.9413E-02, 0.9564E-02, 0.9716E-02,& - 0.9868E-02, 0.1002E-01, 0.1032E-01, 0.1047E-01,& - 0.1063E-01, 0.1078E-01, 0.1108E-01, 0.1123E-01,& - 0.1138E-01, 0.1169E-01, 0.1184E-01, 0.1199E-01,& - 0.1229E-01, 0.1245E-01, 0.1260E-01, 0.1290E-01,& - 0.1305E-01, 0.1336E-01, 0.1351E-01, 0.1381E-01,& - 0.1396E-01, 0.1427E-01, 0.1442E-01, 0.1472E-01,& - 0.1487E-01, 0.1518E-01, 0.1548E-01, 0.1563E-01,& - 0.1593E-01, 0.1609E-01, 0.1639E-01, 0.1669E-01,& - 0.1700E-01, 0.1715E-01, 0.1745E-01, 0.1775E-01,& - 0.1806E-01, 0.1821E-01, 0.1851E-01, 0.1882E-01,& - 0.1912E-01, 0.1942E-01, 0.1973E-01, 0.2003E-01,& - 0.2018E-01, 0.2048E-01, 0.2079E-01, 0.2109E-01,& - 0.2139E-01, 0.2170E-01, 0.2215E-01, 0.2246E-01,& - 0.2276E-01, 0.2306E-01, 0.2337E-01, 0.2367E-01,& - 0.2397E-01, 0.2428E-01, 0.2473E-01, 0.2503E-01,& - 0.2534E-01, 0.2579E-01, 0.2610E-01, 0.2640E-01,& - 0.2670E-01, 0.2716E-01, 0.2746E-01, 0.2792E-01,& - 0.2822E-01, 0.2867E-01, 0.2898E-01, 0.2943E-01,& - 0.2973E-01, 0.3019E-01, 0.3049E-01, 0.3095E-01,& - 0.3125E-01, 0.3171E-01, 0.3216E-01, 0.3246E-01,& - 0.3292E-01, 0.3337E-01, 0.3383E-01, 0.3413E-01,& - 0.3459E-01, 0.3504E-01, 0.3550E-01, 0.3595E-01,& - 0.3641E-01, 0.3686E-01, 0.3732E-01, 0.3777E-01,& - 0.3823E-01, 0.3868E-01, 0.3914E-01, 0.3959E-01,& - 0.4005E-01, 0.4050E-01, 0.4096E-01, 0.4141E-01,& - 0.4187E-01, 0.4247E-01, 0.4293E-01, 0.4338E-01,& - 0.4399E-01, 0.4445E-01, 0.4490E-01, 0.4551E-01,& - 0.4596E-01, 0.4657E-01, 0.4702E-01, 0.4748E-01,& - 0.4809E-01, 0.4869E-01, 0.4915E-01, 0.4975E-01,& - 0.5021E-01, 0.5082E-01, 0.5142E-01, 0.5188E-01,& - 0.5248E-01, 0.5309E-01, 0.5370E-01, 0.5430E-01,& - 0.5491E-01, 0.5537E-01, 0.5597E-01, 0.5658E-01,& - 0.5719E-01, 0.5779E-01, 0.5840E-01, 0.5900E-01,& - 0.5976E-01, 0.6037E-01, 0.6098E-01, 0.6158E-01,& - 0.6219E-01, 0.6280E-01, 0.6355E-01, 0.6416E-01,& - 0.6477E-01, 0.6553E-01, 0.6613E-01, 0.6689E-01,& - 0.6750E-01, 0.6826E-01, 0.6886E-01, 0.6962E-01,& - 0.7023E-01, 0.7099E-01, 0.7174E-01, 0.7235E-01,& - 0.7311E-01, 0.7387E-01, 0.7463E-01, 0.7523E-01,& - 0.7599E-01, 0.7675E-01, 0.7751E-01, 0.7827E-01,& - 0.7902E-01, 0.7978E-01, 0.8054E-01, 0.8130E-01,& - 0.8206E-01, 0.8297E-01, 0.8373E-01, 0.8448E-01,& - 0.8524E-01, 0.8615E-01, 0.8691E-01, 0.8767E-01,& - 0.8858E-01, 0.8934E-01, 0.9025E-01, 0.9100E-01,& - 0.9191E-01, 0.9267E-01, 0.9358E-01, 0.9449E-01,& - 0.9525E-01, 0.9616E-01, 0.9707E-01, 0.9798E-01,& - 0.9889E-01, 0.9980E-01, 0.1006E+00, 0.1015E+00,& - 0.1024E+00, 0.1034E+00, 0.1044E+00, 0.1053E+00,& - 0.1062E+00, 0.1071E+00, 0.1080E+00, 0.1091E+00,& - 0.1100E+00, 0.1109E+00, 0.1119E+00, 0.1128E+00,& - 0.1139E+00, 0.1148E+00, 0.1159E+00, 0.1168E+00,& - 0.1178E+00, 0.1189E+00, 0.1198E+00, 0.1209E+00,& - 0.1219E+00, 0.1230E+00, 0.1241E+00, 0.1251E+00,& - 0.1260E+00, 0.1271E+00, 0.1283E+00, 0.1294E+00,& - 0.1304E+00, 0.1315E+00, 0.1326E+00, 0.1336E+00,& - 0.1348E+00, 0.1359E+00, 0.1371E+00, 0.1382E+00,& - 0.1392E+00, 0.1404E+00, 0.1417E+00, 0.1427E+00,& - 0.1439E+00, 0.1451E+00, 0.1462E+00, 0.1474E+00,& - 0.1486E+00, 0.1498E+00, 0.1511E+00, 0.1523E+00,& - 0.1535E+00, 0.1547E+00, 0.1559E+00, 0.1571E+00,& - 0.1583E+00, 0.1597E+00, 0.1609E+00, 0.1621E+00,& - 0.1635E+00, 0.1647E+00, 0.1661E+00, 0.1673E+00,& - 0.1687E+00, 0.1699E+00, 0.1712E+00, 0.1726E+00,& - 0.1740E+00, 0.1752E+00, 0.1765E+00, 0.1779E+00,& - 0.1793E+00, 0.1806E+00, 0.1820E+00, 0.1835E+00,& - 0.1849E+00, 0.1862E+00, 0.1876E+00, 0.1891E+00,& - 0.1905E+00, 0.1920E+00, 0.1934E+00, 0.1949E+00,& - 0.1963E+00, 0.1978E+00, 0.1993E+00, 0.2007E+00,& - 0.2022E+00, 0.2037E+00, 0.2052E+00, 0.2067E+00,& - 0.2082E+00, 0.2098E+00, 0.2113E+00, 0.2128E+00,& - 0.2145E+00, 0.2160E+00, 0.2175E+00, 0.2192E+00,& - 0.2207E+00, 0.2223E+00, 0.2239E+00, 0.2255E+00,& - 0.2272E+00, 0.2287E+00, 0.2304E+00, 0.2320E+00,& - 0.2337E+00, 0.2354E+00, 0.2371E+00, 0.2387E+00,& - 0.2404E+00, 0.2422E+00, 0.2439E+00, 0.2455E+00,& - 0.2474E+00, 0.2490E+00, 0.2509E+00, 0.2525E+00,& - 0.2543E+00, 0.2562E+00, 0.2578E+00, 0.2596E+00,& - 0.2615E+00, 0.2633E+00, 0.2651E+00, 0.2669E+00,& - 0.2687E+00, 0.2706E+00, 0.2725E+00, 0.2744E+00,& - 0.2762E+00, 0.2782E+00, 0.2800E+00, 0.2819E+00,& - 0.2839E+00, 0.2857E+00, 0.2877E+00, 0.2897E+00,& - 0.2916E+00, 0.2936E+00, 0.2956E+00, 0.2976E+00,& - 0.2995E+00, 0.3015E+00, 0.3036E+00, 0.3056E+00,& - 0.3077E+00, 0.3097E+00, 0.3118E+00, 0.3138E+00,& - 0.3159E+00, 0.3180E+00, 0.3202E+00, 0.3223E+00,& - 0.3244E+00, 0.3265E+00, 0.3287E+00, 0.3308E+00,& - 0.3329E+00, 0.3352E+00, 0.3373E+00, 0.3396E+00,& - 0.3417E+00, 0.3440E+00, 0.3462E+00, 0.3484E+00,& - 0.3506E+00, 0.3529E+00, 0.3552E+00, 0.3575E+00,& - 0.3597E+00, 0.3622E+00, 0.3644E+00, 0.3667E+00,& - 0.3691E+00, 0.3714E+00, 0.3738E+00, 0.3763E+00,& - 0.3787E+00, 0.3810E+00, 0.3834E+00, 0.3858E+00,& - 0.3884E+00, 0.3908E+00, 0.3933E+00, 0.3957E+00,& - 0.3983E+00, 0.4007E+00, 0.4033E+00, 0.4058E+00,& - 0.4083E+00, 0.4109E+00, 0.4134E+00, 0.4160E+00,& - 0.4186E+00, 0.4212E+00, 0.4239E+00, 0.4265E+00,& - 0.4291E+00, 0.4318E+00, 0.4344E+00, 0.4371E+00,& - 0.4398E+00, 0.4425E+00, 0.4453E+00, 0.4480E+00,& - 0.4507E+00, 0.4535E+00, 0.4562E+00, 0.4591E+00,& - 0.4618E+00, 0.4647E+00, 0.4674E+00, 0.4703E+00,& - 0.4732E+00, 0.4761E+00, 0.4789E+00, 0.4818E+00,& - 0.4847E+00, 0.4877E+00, 0.4906E+00, 0.4935E+00,& - 0.4965E+00, 0.4996E+00, 0.5025E+00, 0.5055E+00,& - 0.5085E+00, 0.5116E+00, 0.5147E+00, 0.5178E+00,& - 0.5208E+00, 0.5240E+00, 0.5270E+00, 0.5302E+00,& - 0.5334E+00, 0.5366E+00, 0.5398E+00, 0.5429E+00,& - 0.5461E+00, 0.5493E+00, 0.5525E+00, 0.5558E+00,& - 0.5592E+00, 0.5624E+00, 0.5657E+00, 0.5690E+00,& - 0.5724E+00, 0.5757E+00, 0.5790E+00, 0.5825E+00,& - 0.5859E+00, 0.5894E+00, 0.5927E+00, 0.5962E+00,& - 0.5997E+00, 0.6032E+00, 0.6066E+00, 0.6101E+00,& - 0.6138E+00, 0.6173E+00, 0.6209E+00, 0.6244E+00,& - 0.6280E+00, 0.6317E+00, 0.6353E+00, 0.6389E+00,& - 0.6427E+00, 0.6464E+00, 0.6500E+00, 0.6538E+00,& - 0.6576E+00, 0.6614E+00, 0.6652E+00, 0.6690E+00,& - 0.6728E+00, 0.6766E+00, 0.6805E+00, 0.6843E+00,& - 0.6882E+00, 0.6922E+00, 0.6961E+00, 0.7001E+00,& - 0.7040E+00, 0.7081E+00, 0.7120E+00, 0.7161E+00,& - 0.7202E+00, 0.7243E+00, 0.7284E+00, 0.7325E+00,& - 0.7366E+00, 0.7407E+00, 0.7450E+00, 0.7492E+00,& - 0.7534E+00, 0.7577E+00, 0.7619E+00, 0.7662E+00,& - 0.7704E+00, 0.7748E+00, 0.7792E+00, 0.7835E+00,& - 0.7879E+00, 0.7924E+00, 0.7968E+00, 0.8012E+00,& - 0.8058E+00, 0.8102E+00, 0.8147E+00, 0.8193E+00,& - 0.8238E+00, 0.8285E+00, 0.8331E+00, 0.8378E+00,& - 0.8425E+00, 0.8470E+00, 0.8519E+00, 0.8566E+00,& - 0.8613E+00, 0.8661E+00, 0.8708E+00, 0.8757E+00,& - 0.8805E+00, 0.8854E+00, 0.8904E+00, 0.8952E+00,& - 0.9003E+00, 0.9053E+00, 0.9103E+00, 0.9153E+00,& - 0.9203E+00, 0.9254E+00, 0.9306E+00, 0.9356E+00,& - 0.9407E+00, 0.9461E+00, 0.9512E+00, 0.9565E+00,& - 0.9617E+00, 0.9670E+00, 0.9723E+00, 0.9777E+00,& - 0.9831E+00, 0.9885E+00, 0.9940E+00, 0.9994E+00,& - 0.1005E+01, 0.1010E+01, 0.1016E+01, 0.1022E+01,& - 0.1027E+01, 0.1033E+01, 0.1038E+01, 0.1044E+01,& - 0.1050E+01, 0.1056E+01, 0.1061E+01, 0.1067E+01,& - 0.1073E+01, 0.1079E+01, 0.1085E+01, 0.1091E+01,& - 0.1097E+01, 0.1103E+01, 0.1109E+01, 0.1115E+01,& - 0.1121E+01, 0.1127E+01, 0.1133E+01, 0.1139E+01,& - 0.1146E+01, 0.1152E+01, 0.1158E+01, 0.1165E+01,& - 0.1171E+01, 0.1177E+01, 0.1184E+01, 0.1190E+01,& - 0.1197E+01, 0.1203E+01, 0.1210E+01, 0.1217E+01,& - 0.1223E+01, 0.1230E+01, 0.1237E+01, 0.1243E+01,& - 0.1250E+01, 0.1257E+01, 0.1264E+01, 0.1271E+01,& - 0.1278E+01, 0.1285E+01, 0.1292E+01, 0.1299E+01,& - 0.1306E+01, 0.1313E+01, 0.1320E+01, 0.1328E+01,& - 0.1335E+01, 0.1342E+01, 0.1349E+01, 0.1357E+01,& - 0.1364E+01, 0.1372E+01, 0.1379E+01, 0.1387E+01,& - 0.1395E+01, 0.1402E+01, 0.1410E+01, 0.1418E+01,& - 0.1425E+01, 0.1433E+01, 0.1441E+01, 0.1449E+01,& - 0.1457E+01, 0.1465E+01, 0.1473E+01, 0.1481E+01,& - 0.1490E+01, 0.1498E+01, 0.1506E+01, 0.1514E+01,& - 0.1523E+01, 0.1531E+01, 0.1540E+01, 0.1548E+01,& - 0.1557E+01, 0.1565E+01, 0.1574E+01, 0.1583E+01,& - 0.1592E+01, 0.1600E+01, 0.1609E+01, 0.1618E+01,& - 0.1627E+01, 0.1636E+01, 0.1645E+01, 0.1655E+01,& - 0.1664E+01, 0.1673E+01, 0.1683E+01, 0.1692E+01,& - 0.1701E+01, 0.1711E+01, 0.1721E+01, 0.1730E+01,& - 0.1740E+01, 0.1750E+01, 0.1760E+01, 0.1770E+01,& - 0.1780E+01, 0.1790E+01, 0.1800E+01, 0.1810E+01,& - 0.1820E+01, 0.1831E+01, 0.1841E+01, 0.1851E+01,& - 0.1862E+01, 0.1873E+01, 0.1883E+01, 0.1894E+01,& - 0.1905E+01, 0.1916E+01, 0.1927E+01, 0.1938E+01,& - 0.1949E+01, 0.1960E+01, 0.1971E+01, 0.1983E+01,& - 0.1994E+01, 0.2006E+01, 0.2017E+01, 0.2029E+01,& - 0.2041E+01, 0.2053E+01, 0.2065E+01, 0.2077E+01,& - 0.2089E+01, 0.2101E+01, 0.2113E+01, 0.2126E+01,& - 0.2138E+01, 0.2151E+01, 0.2163E+01, 0.2176E+01,& - 0.2189E+01, 0.2202E+01, 0.2215E+01, 0.2228E+01,& - 0.2242E+01, 0.2255E+01, 0.2268E+01, 0.2282E+01,& - 0.2296E+01, 0.2310E+01, 0.2323E+01, 0.2338E+01,& - 0.2352E+01, 0.2366E+01, 0.2380E+01, 0.2395E+01,& - 0.2409E+01, 0.2424E+01, 0.2439E+01, 0.2454E+01,& - 0.2469E+01, 0.2484E+01, 0.2500E+01, 0.2515E+01,& - 0.2531E+01, 0.2547E+01, 0.2563E+01, 0.2579E+01,& - 0.2595E+01, 0.2611E+01, 0.2628E+01, 0.2644E+01,& - 0.2661E+01, 0.2678E+01, 0.2695E+01, 0.2713E+01,& - 0.2730E+01, 0.2748E+01, 0.2765E+01, 0.2784E+01,& - 0.2802E+01, 0.2820E+01, 0.2838E+01, 0.2857E+01,& - 0.2876E+01, 0.2895E+01, 0.2914E+01, 0.2934E+01,& - 0.2953E+01, 0.2973E+01, 0.2993E+01, 0.3013E+01,& - 0.3034E+01, 0.3055E+01, 0.3075E+01, 0.3097E+01,& - 0.3118E+01, 0.3140E+01, 0.3161E+01, 0.3184E+01,& - 0.3206E+01, 0.3229E+01, 0.3251E+01, 0.3275E+01,& - 0.3298E+01, 0.3322E+01, 0.3346E+01, 0.3370E+01,& - 0.3395E+01, 0.3419E+01, 0.3445E+01, 0.3470E+01,& - 0.3496E+01, 0.3522E+01, 0.3549E+01, 0.3576E+01,& - 0.3603E+01, 0.3631E+01, 0.3659E+01, 0.3687E+01,& - 0.3716E+01, 0.3745E+01, 0.3775E+01, 0.3805E+01,& - 0.3835E+01, 0.3866E+01, 0.3898E+01, 0.3929E+01,& - 0.3962E+01, 0.3995E+01, 0.4028E+01, 0.4062E+01,& - 0.4097E+01, 0.4132E+01, 0.4168E+01, 0.4204E+01,& - 0.4241E+01, 0.4278E+01, 0.4318E+01, 0.4357E+01,& - 0.4396E+01, 0.4437E+01, 0.4479E+01, 0.4521E+01,& - 0.4564E+01, 0.4608E+01, 0.4653E+01, 0.4699E+01,& - 0.4746E+01, 0.4794E+01, 0.4843E+01, 0.4893E+01,& - 0.4945E+01, 0.4997E+01, 0.5051E+01, 0.5107E+01,& - 0.5164E+01, 0.5222E+01, 0.5283E+01, 0.5344E+01,& - 0.5408E+01, 0.5474E+01, 0.5542E+01, 0.5612E+01,& - 0.5684E+01, 0.5759E+01, 0.5837E+01, 0.5918E+01,& - 0.6001E+01, 0.6088E+01, 0.6179E+01, 0.6274E+01,& - 0.6374E+01, 0.6478E+01, 0.6588E+01, 0.6704E+01,& - 0.6827E+01, 0.6957E+01, 0.7096E+01, 0.7245E+01,& - 0.7406E+01, 0.7580E+01, 0.7771E+01, 0.7981E+01,& - 0.8216E+01, 0.8484E+01, 0.8774E+01, 0.9164E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 67) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1650E-03, 0.1650E-03, 0.1650E-03,& - 0.1650E-03, 0.1650E-03, 0.1650E-03, 0.1650E-03,& - 0.1650E-03, 0.1650E-03, 0.1650E-03, 0.1650E-03,& - 0.1650E-03, 0.3199E-03, 0.3199E-03, 0.3199E-03,& - 0.3199E-03, 0.3199E-03, 0.3199E-03, 0.3199E-03,& - 0.3199E-03, 0.4749E-03, 0.4749E-03, 0.4749E-03,& - 0.4749E-03, 0.4749E-03, 0.4749E-03, 0.6299E-03,& - 0.6299E-03, 0.6299E-03, 0.6299E-03, 0.6299E-03,& - 0.6299E-03, 0.7849E-03, 0.7849E-03, 0.7849E-03,& - 0.7849E-03, 0.7849E-03, 0.9398E-03, 0.9398E-03,& - 0.9398E-03, 0.9398E-03, 0.1095E-02, 0.1095E-02,& - 0.1095E-02, 0.1095E-02, 0.1250E-02, 0.1250E-02,& - 0.1250E-02, 0.1405E-02, 0.1405E-02, 0.1405E-02,& - 0.1560E-02, 0.1560E-02, 0.1560E-02, 0.1560E-02,& - 0.1715E-02, 0.1715E-02, 0.1870E-02, 0.1870E-02,& - 0.1870E-02, 0.2025E-02, 0.2025E-02, 0.2025E-02,& - 0.2180E-02, 0.2180E-02, 0.2335E-02, 0.2335E-02,& - 0.2490E-02, 0.2490E-02, 0.2490E-02, 0.2645E-02,& - 0.2645E-02, 0.2799E-02, 0.2799E-02, 0.2954E-02,& - 0.2954E-02, 0.3109E-02, 0.3109E-02, 0.3264E-02,& - 0.3264E-02, 0.3419E-02, 0.3574E-02, 0.3574E-02,& - 0.3729E-02, 0.3729E-02, 0.3884E-02, 0.3884E-02,& - 0.4039E-02, 0.4194E-02, 0.4194E-02, 0.4349E-02,& - 0.4504E-02, 0.4504E-02, 0.4659E-02, 0.4814E-02,& - 0.4814E-02, 0.4969E-02, 0.5124E-02, 0.5279E-02,& - 0.5279E-02, 0.5434E-02, 0.5589E-02, 0.5744E-02,& - 0.5744E-02, 0.5899E-02, 0.6054E-02, 0.6209E-02,& - 0.6364E-02, 0.6519E-02, 0.6519E-02, 0.6674E-02,& - 0.6829E-02, 0.6984E-02, 0.7139E-02, 0.7294E-02,& - 0.7449E-02, 0.7604E-02, 0.7759E-02, 0.7914E-02,& - 0.8069E-02, 0.8224E-02, 0.8378E-02, 0.8533E-02,& - 0.8688E-02, 0.8843E-02, 0.8998E-02, 0.9153E-02,& - 0.9308E-02, 0.9463E-02, 0.9618E-02, 0.9928E-02,& - 0.1008E-01, 0.1024E-01, 0.1039E-01, 0.1055E-01,& - 0.1070E-01, 0.1101E-01, 0.1117E-01, 0.1132E-01,& - 0.1148E-01, 0.1179E-01, 0.1194E-01, 0.1210E-01,& - 0.1241E-01, 0.1256E-01, 0.1272E-01, 0.1303E-01,& - 0.1318E-01, 0.1349E-01, 0.1365E-01, 0.1380E-01,& - 0.1411E-01, 0.1427E-01, 0.1458E-01, 0.1473E-01,& - 0.1504E-01, 0.1535E-01, 0.1551E-01, 0.1582E-01,& - 0.1597E-01, 0.1628E-01, 0.1659E-01, 0.1675E-01,& - 0.1706E-01, 0.1737E-01, 0.1752E-01, 0.1783E-01,& - 0.1814E-01, 0.1830E-01, 0.1861E-01, 0.1892E-01,& - 0.1923E-01, 0.1954E-01, 0.1985E-01, 0.2000E-01,& - 0.2031E-01, 0.2062E-01, 0.2093E-01, 0.2124E-01,& - 0.2155E-01, 0.2186E-01, 0.2217E-01, 0.2248E-01,& - 0.2279E-01, 0.2310E-01, 0.2341E-01, 0.2372E-01,& - 0.2403E-01, 0.2450E-01, 0.2481E-01, 0.2512E-01,& - 0.2543E-01, 0.2574E-01, 0.2620E-01, 0.2651E-01,& - 0.2682E-01, 0.2729E-01, 0.2760E-01, 0.2790E-01,& - 0.2837E-01, 0.2868E-01, 0.2899E-01, 0.2945E-01,& - 0.2976E-01, 0.3023E-01, 0.3054E-01, 0.3100E-01,& - 0.3131E-01, 0.3178E-01, 0.3224E-01, 0.3255E-01,& - 0.3302E-01, 0.3348E-01, 0.3379E-01, 0.3426E-01,& - 0.3472E-01, 0.3503E-01, 0.3550E-01, 0.3596E-01,& - 0.3643E-01, 0.3689E-01, 0.3736E-01, 0.3782E-01,& - 0.3829E-01, 0.3875E-01, 0.3906E-01, 0.3953E-01,& - 0.4015E-01, 0.4061E-01, 0.4108E-01, 0.4154E-01,& - 0.4201E-01, 0.4247E-01, 0.4294E-01, 0.4356E-01,& - 0.4402E-01, 0.4449E-01, 0.4495E-01, 0.4557E-01,& - 0.4604E-01, 0.4650E-01, 0.4712E-01, 0.4759E-01,& - 0.4821E-01, 0.4867E-01, 0.4929E-01, 0.4976E-01,& - 0.5038E-01, 0.5084E-01, 0.5146E-01, 0.5208E-01,& - 0.5255E-01, 0.5317E-01, 0.5379E-01, 0.5425E-01,& - 0.5487E-01, 0.5549E-01, 0.5611E-01, 0.5673E-01,& - 0.5735E-01, 0.5797E-01, 0.5859E-01, 0.5921E-01,& - 0.5983E-01, 0.6045E-01, 0.6107E-01, 0.6169E-01,& - 0.6231E-01, 0.6293E-01, 0.6355E-01, 0.6432E-01,& - 0.6494E-01, 0.6556E-01, 0.6634E-01, 0.6696E-01,& - 0.6758E-01, 0.6835E-01, 0.6897E-01, 0.6975E-01,& - 0.7037E-01, 0.7114E-01, 0.7176E-01, 0.7254E-01,& - 0.7331E-01, 0.7393E-01, 0.7471E-01, 0.7548E-01,& - 0.7626E-01, 0.7688E-01, 0.7765E-01, 0.7843E-01,& - 0.7920E-01, 0.7998E-01, 0.8075E-01, 0.8153E-01,& - 0.8230E-01, 0.8307E-01, 0.8385E-01, 0.8478E-01,& - 0.8555E-01, 0.8633E-01, 0.8710E-01, 0.8803E-01,& - 0.8881E-01, 0.8958E-01, 0.9051E-01, 0.9129E-01,& - 0.9222E-01, 0.9299E-01, 0.9392E-01, 0.9470E-01,& - 0.9563E-01, 0.9656E-01, 0.9733E-01, 0.9826E-01,& - 0.9919E-01, 0.1001E+00, 0.1009E+00, 0.1018E+00,& - 0.1028E+00, 0.1037E+00, 0.1046E+00, 0.1055E+00,& - 0.1065E+00, 0.1076E+00, 0.1085E+00, 0.1094E+00,& - 0.1104E+00, 0.1113E+00, 0.1124E+00, 0.1133E+00,& - 0.1142E+00, 0.1153E+00, 0.1162E+00, 0.1173E+00,& - 0.1183E+00, 0.1193E+00, 0.1204E+00, 0.1214E+00,& - 0.1224E+00, 0.1235E+00, 0.1246E+00, 0.1257E+00,& - 0.1266E+00, 0.1277E+00, 0.1288E+00, 0.1299E+00,& - 0.1311E+00, 0.1322E+00, 0.1333E+00, 0.1344E+00,& - 0.1355E+00, 0.1365E+00, 0.1378E+00, 0.1389E+00,& - 0.1401E+00, 0.1412E+00, 0.1424E+00, 0.1435E+00,& - 0.1448E+00, 0.1458E+00, 0.1471E+00, 0.1483E+00,& - 0.1496E+00, 0.1506E+00, 0.1519E+00, 0.1531E+00,& - 0.1544E+00, 0.1556E+00, 0.1568E+00, 0.1581E+00,& - 0.1593E+00, 0.1607E+00, 0.1620E+00, 0.1632E+00,& - 0.1646E+00, 0.1658E+00, 0.1671E+00, 0.1685E+00,& - 0.1697E+00, 0.1711E+00, 0.1725E+00, 0.1737E+00,& - 0.1751E+00, 0.1765E+00, 0.1779E+00, 0.1793E+00,& - 0.1807E+00, 0.1821E+00, 0.1835E+00, 0.1849E+00,& - 0.1863E+00, 0.1877E+00, 0.1891E+00, 0.1906E+00,& - 0.1920E+00, 0.1934E+00, 0.1950E+00, 0.1964E+00,& - 0.1979E+00, 0.1993E+00, 0.2009E+00, 0.2024E+00,& - 0.2040E+00, 0.2055E+00, 0.2069E+00, 0.2084E+00,& - 0.2100E+00, 0.2115E+00, 0.2133E+00, 0.2148E+00,& - 0.2164E+00, 0.2179E+00, 0.2196E+00, 0.2212E+00,& - 0.2227E+00, 0.2244E+00, 0.2260E+00, 0.2277E+00,& - 0.2294E+00, 0.2309E+00, 0.2326E+00, 0.2343E+00,& - 0.2360E+00, 0.2377E+00, 0.2394E+00, 0.2411E+00,& - 0.2429E+00, 0.2446E+00, 0.2464E+00, 0.2481E+00,& - 0.2498E+00, 0.2517E+00, 0.2534E+00, 0.2552E+00,& - 0.2571E+00, 0.2588E+00, 0.2607E+00, 0.2625E+00,& - 0.2644E+00, 0.2663E+00, 0.2681E+00, 0.2700E+00,& - 0.2718E+00, 0.2737E+00, 0.2756E+00, 0.2776E+00,& - 0.2794E+00, 0.2814E+00, 0.2833E+00, 0.2853E+00,& - 0.2872E+00, 0.2892E+00, 0.2912E+00, 0.2932E+00,& - 0.2952E+00, 0.2972E+00, 0.2993E+00, 0.3013E+00,& - 0.3033E+00, 0.3053E+00, 0.3075E+00, 0.3095E+00,& - 0.3117E+00, 0.3137E+00, 0.3158E+00, 0.3180E+00,& - 0.3200E+00, 0.3222E+00, 0.3244E+00, 0.3265E+00,& - 0.3287E+00, 0.3309E+00, 0.3330E+00, 0.3354E+00,& - 0.3375E+00, 0.3397E+00, 0.3420E+00, 0.3442E+00,& - 0.3465E+00, 0.3489E+00, 0.3512E+00, 0.3533E+00,& - 0.3557E+00, 0.3580E+00, 0.3605E+00, 0.3628E+00,& - 0.3651E+00, 0.3674E+00, 0.3699E+00, 0.3723E+00,& - 0.3747E+00, 0.3771E+00, 0.3795E+00, 0.3820E+00,& - 0.3845E+00, 0.3870E+00, 0.3895E+00, 0.3919E+00,& - 0.3944E+00, 0.3969E+00, 0.3995E+00, 0.4020E+00,& - 0.4046E+00, 0.4071E+00, 0.4098E+00, 0.4124E+00,& - 0.4150E+00, 0.4177E+00, 0.4203E+00, 0.4229E+00,& - 0.4256E+00, 0.4282E+00, 0.4310E+00, 0.4336E+00,& - 0.4364E+00, 0.4390E+00, 0.4418E+00, 0.4446E+00,& - 0.4474E+00, 0.4502E+00, 0.4530E+00, 0.4558E+00,& - 0.4586E+00, 0.4615E+00, 0.4643E+00, 0.4673E+00,& - 0.4700E+00, 0.4730E+00, 0.4759E+00, 0.4789E+00,& - 0.4818E+00, 0.4848E+00, 0.4877E+00, 0.4908E+00,& - 0.4938E+00, 0.4969E+00, 0.4998E+00, 0.5029E+00,& - 0.5060E+00, 0.5091E+00, 0.5122E+00, 0.5153E+00,& - 0.5184E+00, 0.5215E+00, 0.5247E+00, 0.5278E+00,& - 0.5311E+00, 0.5342E+00, 0.5375E+00, 0.5407E+00,& - 0.5440E+00, 0.5472E+00, 0.5505E+00, 0.5539E+00,& - 0.5571E+00, 0.5605E+00, 0.5638E+00, 0.5672E+00,& - 0.5706E+00, 0.5740E+00, 0.5774E+00, 0.5808E+00,& - 0.5844E+00, 0.5878E+00, 0.5914E+00, 0.5948E+00,& - 0.5984E+00, 0.6019E+00, 0.6055E+00, 0.6090E+00,& - 0.6126E+00, 0.6163E+00, 0.6199E+00, 0.6236E+00,& - 0.6272E+00, 0.6309E+00, 0.6346E+00, 0.6383E+00,& - 0.6421E+00, 0.6459E+00, 0.6497E+00, 0.6534E+00,& - 0.6572E+00, 0.6611E+00, 0.6650E+00, 0.6689E+00,& - 0.6727E+00, 0.6766E+00, 0.6806E+00, 0.6845E+00,& - 0.6886E+00, 0.6926E+00, 0.6966E+00, 0.7006E+00,& - 0.7047E+00, 0.7087E+00, 0.7129E+00, 0.7169E+00,& - 0.7211E+00, 0.7253E+00, 0.7295E+00, 0.7336E+00,& - 0.7378E+00, 0.7420E+00, 0.7464E+00, 0.7507E+00,& - 0.7549E+00, 0.7592E+00, 0.7636E+00, 0.7681E+00,& - 0.7724E+00, 0.7769E+00, 0.7812E+00, 0.7857E+00,& - 0.7902E+00, 0.7947E+00, 0.7992E+00, 0.8038E+00,& - 0.8083E+00, 0.8130E+00, 0.8176E+00, 0.8223E+00,& - 0.8269E+00, 0.8317E+00, 0.8364E+00, 0.8412E+00,& - 0.8458E+00, 0.8507E+00, 0.8555E+00, 0.8604E+00,& - 0.8652E+00, 0.8702E+00, 0.8751E+00, 0.8799E+00,& - 0.8851E+00, 0.8900E+00, 0.8950E+00, 0.9001E+00,& - 0.9052E+00, 0.9103E+00, 0.9154E+00, 0.9205E+00,& - 0.9257E+00, 0.9309E+00, 0.9362E+00, 0.9415E+00,& - 0.9467E+00, 0.9520E+00, 0.9574E+00, 0.9627E+00,& - 0.9681E+00, 0.9735E+00, 0.9791E+00, 0.9845E+00,& - 0.9901E+00, 0.9956E+00, 0.1001E+01, 0.1007E+01,& - 0.1012E+01, 0.1018E+01, 0.1024E+01, 0.1029E+01,& - 0.1035E+01, 0.1041E+01, 0.1047E+01, 0.1053E+01,& - 0.1059E+01, 0.1065E+01, 0.1071E+01, 0.1076E+01,& - 0.1082E+01, 0.1089E+01, 0.1095E+01, 0.1101E+01,& - 0.1107E+01, 0.1113E+01, 0.1119E+01, 0.1126E+01,& - 0.1132E+01, 0.1138E+01, 0.1144E+01, 0.1151E+01,& - 0.1157E+01, 0.1164E+01, 0.1170E+01, 0.1177E+01,& - 0.1183E+01, 0.1190E+01, 0.1197E+01, 0.1203E+01,& - 0.1210E+01, 0.1217E+01, 0.1224E+01, 0.1230E+01,& - 0.1237E+01, 0.1244E+01, 0.1251E+01, 0.1258E+01,& - 0.1265E+01, 0.1272E+01, 0.1279E+01, 0.1286E+01,& - 0.1293E+01, 0.1301E+01, 0.1308E+01, 0.1315E+01,& - 0.1323E+01, 0.1330E+01, 0.1337E+01, 0.1345E+01,& - 0.1352E+01, 0.1360E+01, 0.1368E+01, 0.1375E+01,& - 0.1383E+01, 0.1391E+01, 0.1398E+01, 0.1406E+01,& - 0.1414E+01, 0.1422E+01, 0.1430E+01, 0.1438E+01,& - 0.1446E+01, 0.1454E+01, 0.1462E+01, 0.1471E+01,& - 0.1479E+01, 0.1487E+01, 0.1496E+01, 0.1504E+01,& - 0.1513E+01, 0.1521E+01, 0.1530E+01, 0.1538E+01,& - 0.1547E+01, 0.1556E+01, 0.1564E+01, 0.1573E+01,& - 0.1582E+01, 0.1591E+01, 0.1600E+01, 0.1609E+01,& - 0.1618E+01, 0.1628E+01, 0.1637E+01, 0.1646E+01,& - 0.1655E+01, 0.1665E+01, 0.1674E+01, 0.1684E+01,& - 0.1694E+01, 0.1703E+01, 0.1713E+01, 0.1723E+01,& - 0.1733E+01, 0.1743E+01, 0.1752E+01, 0.1763E+01,& - 0.1773E+01, 0.1783E+01, 0.1793E+01, 0.1803E+01,& - 0.1814E+01, 0.1824E+01, 0.1835E+01, 0.1845E+01,& - 0.1856E+01, 0.1867E+01, 0.1878E+01, 0.1889E+01,& - 0.1900E+01, 0.1911E+01, 0.1922E+01, 0.1933E+01,& - 0.1944E+01, 0.1956E+01, 0.1967E+01, 0.1979E+01,& - 0.1990E+01, 0.2002E+01, 0.2014E+01, 0.2026E+01,& - 0.2038E+01, 0.2050E+01, 0.2062E+01, 0.2074E+01,& - 0.2086E+01, 0.2099E+01, 0.2111E+01, 0.2124E+01,& - 0.2137E+01, 0.2149E+01, 0.2162E+01, 0.2175E+01,& - 0.2188E+01, 0.2202E+01, 0.2215E+01, 0.2228E+01,& - 0.2242E+01, 0.2255E+01, 0.2269E+01, 0.2283E+01,& - 0.2297E+01, 0.2311E+01, 0.2325E+01, 0.2339E+01,& - 0.2354E+01, 0.2368E+01, 0.2383E+01, 0.2398E+01,& - 0.2413E+01, 0.2427E+01, 0.2443E+01, 0.2458E+01,& - 0.2473E+01, 0.2489E+01, 0.2505E+01, 0.2520E+01,& - 0.2536E+01, 0.2552E+01, 0.2569E+01, 0.2585E+01,& - 0.2602E+01, 0.2618E+01, 0.2635E+01, 0.2652E+01,& - 0.2669E+01, 0.2686E+01, 0.2704E+01, 0.2721E+01,& - 0.2739E+01, 0.2757E+01, 0.2775E+01, 0.2794E+01,& - 0.2812E+01, 0.2831E+01, 0.2849E+01, 0.2869E+01,& - 0.2888E+01, 0.2907E+01, 0.2927E+01, 0.2947E+01,& - 0.2967E+01, 0.2987E+01, 0.3007E+01, 0.3028E+01,& - 0.3049E+01, 0.3070E+01, 0.3091E+01, 0.3113E+01,& - 0.3135E+01, 0.3157E+01, 0.3179E+01, 0.3202E+01,& - 0.3225E+01, 0.3248E+01, 0.3271E+01, 0.3295E+01,& - 0.3318E+01, 0.3343E+01, 0.3367E+01, 0.3392E+01,& - 0.3417E+01, 0.3443E+01, 0.3468E+01, 0.3494E+01,& - 0.3521E+01, 0.3547E+01, 0.3575E+01, 0.3602E+01,& - 0.3630E+01, 0.3658E+01, 0.3687E+01, 0.3716E+01,& - 0.3745E+01, 0.3775E+01, 0.3805E+01, 0.3836E+01,& - 0.3867E+01, 0.3899E+01, 0.3931E+01, 0.3964E+01,& - 0.3997E+01, 0.4031E+01, 0.4065E+01, 0.4100E+01,& - 0.4135E+01, 0.4171E+01, 0.4208E+01, 0.4245E+01,& - 0.4283E+01, 0.4321E+01, 0.4361E+01, 0.4401E+01,& - 0.4442E+01, 0.4483E+01, 0.4526E+01, 0.4569E+01,& - 0.4613E+01, 0.4658E+01, 0.4704E+01, 0.4751E+01,& - 0.4799E+01, 0.4848E+01, 0.4899E+01, 0.4950E+01,& - 0.5003E+01, 0.5057E+01, 0.5112E+01, 0.5169E+01,& - 0.5228E+01, 0.5288E+01, 0.5349E+01, 0.5413E+01,& - 0.5478E+01, 0.5545E+01, 0.5615E+01, 0.5687E+01,& - 0.5761E+01, 0.5838E+01, 0.5917E+01, 0.6000E+01,& - 0.6086E+01, 0.6176E+01, 0.6269E+01, 0.6366E+01,& - 0.6468E+01, 0.6575E+01, 0.6688E+01, 0.6807E+01,& - 0.6933E+01, 0.7067E+01, 0.7209E+01, 0.7362E+01,& - 0.7527E+01, 0.7706E+01, 0.7902E+01, 0.8118E+01,& - 0.8360E+01, 0.8635E+01, 0.8953E+01, 0.9333E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 68) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1683E-03, 0.1683E-03, 0.1683E-03,& - 0.1683E-03, 0.1683E-03, 0.1683E-03, 0.1683E-03,& - 0.1683E-03, 0.1683E-03, 0.1683E-03, 0.1683E-03,& - 0.1683E-03, 0.3267E-03, 0.3267E-03, 0.3267E-03,& - 0.3267E-03, 0.3267E-03, 0.3267E-03, 0.3267E-03,& - 0.3267E-03, 0.3267E-03, 0.4850E-03, 0.4850E-03,& - 0.4850E-03, 0.4850E-03, 0.4850E-03, 0.4850E-03,& - 0.4850E-03, 0.6433E-03, 0.6433E-03, 0.6433E-03,& - 0.6433E-03, 0.6433E-03, 0.8017E-03, 0.8017E-03,& - 0.8017E-03, 0.8017E-03, 0.8017E-03, 0.9600E-03,& - 0.9600E-03, 0.9600E-03, 0.9600E-03, 0.9600E-03,& - 0.1118E-02, 0.1118E-02, 0.1118E-02, 0.1118E-02,& - 0.1277E-02, 0.1277E-02, 0.1277E-02, 0.1277E-02,& - 0.1435E-02, 0.1435E-02, 0.1435E-02, 0.1593E-02,& - 0.1593E-02, 0.1593E-02, 0.1752E-02, 0.1752E-02,& - 0.1752E-02, 0.1910E-02, 0.1910E-02, 0.1910E-02,& - 0.2068E-02, 0.2068E-02, 0.2227E-02, 0.2227E-02,& - 0.2227E-02, 0.2385E-02, 0.2385E-02, 0.2543E-02,& - 0.2543E-02, 0.2543E-02, 0.2702E-02, 0.2702E-02,& - 0.2860E-02, 0.2860E-02, 0.3018E-02, 0.3018E-02,& - 0.3177E-02, 0.3177E-02, 0.3335E-02, 0.3335E-02,& - 0.3493E-02, 0.3493E-02, 0.3652E-02, 0.3652E-02,& - 0.3810E-02, 0.3968E-02, 0.3968E-02, 0.4127E-02,& - 0.4127E-02, 0.4285E-02, 0.4443E-02, 0.4443E-02,& - 0.4602E-02, 0.4760E-02, 0.4760E-02, 0.4918E-02,& - 0.5077E-02, 0.5077E-02, 0.5235E-02, 0.5393E-02,& - 0.5393E-02, 0.5552E-02, 0.5710E-02, 0.5868E-02,& - 0.6027E-02, 0.6027E-02, 0.6185E-02, 0.6343E-02,& - 0.6502E-02, 0.6660E-02, 0.6660E-02, 0.6818E-02,& - 0.6977E-02, 0.7135E-02, 0.7293E-02, 0.7452E-02,& - 0.7610E-02, 0.7768E-02, 0.7927E-02, 0.8085E-02,& - 0.8243E-02, 0.8243E-02, 0.8402E-02, 0.8560E-02,& - 0.8877E-02, 0.9035E-02, 0.9193E-02, 0.9352E-02,& - 0.9510E-02, 0.9668E-02, 0.9827E-02, 0.9985E-02,& - 0.1014E-01, 0.1030E-01, 0.1046E-01, 0.1078E-01,& - 0.1094E-01, 0.1109E-01, 0.1125E-01, 0.1141E-01,& - 0.1173E-01, 0.1189E-01, 0.1204E-01, 0.1236E-01,& - 0.1252E-01, 0.1268E-01, 0.1284E-01, 0.1315E-01,& - 0.1331E-01, 0.1363E-01, 0.1379E-01, 0.1394E-01,& - 0.1426E-01, 0.1442E-01, 0.1474E-01, 0.1489E-01,& - 0.1521E-01, 0.1537E-01, 0.1569E-01, 0.1584E-01,& - 0.1616E-01, 0.1632E-01, 0.1664E-01, 0.1695E-01,& - 0.1711E-01, 0.1743E-01, 0.1774E-01, 0.1790E-01,& - 0.1822E-01, 0.1854E-01, 0.1869E-01, 0.1901E-01,& - 0.1933E-01, 0.1964E-01, 0.1980E-01, 0.2012E-01,& - 0.2044E-01, 0.2075E-01, 0.2107E-01, 0.2139E-01,& - 0.2170E-01, 0.2202E-01, 0.2234E-01, 0.2265E-01,& - 0.2297E-01, 0.2329E-01, 0.2360E-01, 0.2392E-01,& - 0.2424E-01, 0.2455E-01, 0.2487E-01, 0.2519E-01,& - 0.2550E-01, 0.2582E-01, 0.2629E-01, 0.2661E-01,& - 0.2693E-01, 0.2724E-01, 0.2772E-01, 0.2804E-01,& - 0.2835E-01, 0.2883E-01, 0.2914E-01, 0.2946E-01,& - 0.2994E-01, 0.3025E-01, 0.3073E-01, 0.3104E-01,& - 0.3152E-01, 0.3184E-01, 0.3231E-01, 0.3263E-01,& - 0.3310E-01, 0.3358E-01, 0.3389E-01, 0.3437E-01,& - 0.3484E-01, 0.3516E-01, 0.3564E-01, 0.3611E-01,& - 0.3643E-01, 0.3690E-01, 0.3738E-01, 0.3785E-01,& - 0.3833E-01, 0.3880E-01, 0.3928E-01, 0.3975E-01,& - 0.4023E-01, 0.4070E-01, 0.4118E-01, 0.4165E-01,& - 0.4213E-01, 0.4260E-01, 0.4308E-01, 0.4355E-01,& - 0.4403E-01, 0.4466E-01, 0.4514E-01, 0.4561E-01,& - 0.4609E-01, 0.4672E-01, 0.4719E-01, 0.4767E-01,& - 0.4830E-01, 0.4878E-01, 0.4941E-01, 0.4989E-01,& - 0.5052E-01, 0.5099E-01, 0.5163E-01, 0.5210E-01,& - 0.5274E-01, 0.5321E-01, 0.5384E-01, 0.5448E-01,& - 0.5511E-01, 0.5559E-01, 0.5622E-01, 0.5685E-01,& - 0.5749E-01, 0.5812E-01, 0.5859E-01, 0.5923E-01,& - 0.5986E-01, 0.6049E-01, 0.6113E-01, 0.6176E-01,& - 0.6255E-01, 0.6319E-01, 0.6382E-01, 0.6445E-01,& - 0.6509E-01, 0.6572E-01, 0.6651E-01, 0.6714E-01,& - 0.6778E-01, 0.6857E-01, 0.6920E-01, 0.6984E-01,& - 0.7063E-01, 0.7126E-01, 0.7205E-01, 0.7269E-01,& - 0.7348E-01, 0.7427E-01, 0.7490E-01, 0.7569E-01,& - 0.7649E-01, 0.7712E-01, 0.7791E-01, 0.7870E-01,& - 0.7949E-01, 0.8029E-01, 0.8108E-01, 0.8187E-01,& - 0.8266E-01, 0.8345E-01, 0.8424E-01, 0.8504E-01,& - 0.8583E-01, 0.8662E-01, 0.8741E-01, 0.8820E-01,& - 0.8915E-01, 0.8994E-01, 0.9074E-01, 0.9169E-01,& - 0.9248E-01, 0.9343E-01, 0.9422E-01, 0.9517E-01,& - 0.9596E-01, 0.9691E-01, 0.9770E-01, 0.9865E-01,& - 0.9960E-01, 0.1006E+00, 0.1013E+00, 0.1023E+00,& - 0.1032E+00, 0.1042E+00, 0.1051E+00, 0.1061E+00,& - 0.1070E+00, 0.1080E+00, 0.1089E+00, 0.1099E+00,& - 0.1108E+00, 0.1120E+00, 0.1129E+00, 0.1139E+00,& - 0.1148E+00, 0.1159E+00, 0.1169E+00, 0.1180E+00,& - 0.1189E+00, 0.1200E+00, 0.1210E+00, 0.1221E+00,& - 0.1232E+00, 0.1241E+00, 0.1253E+00, 0.1264E+00,& - 0.1275E+00, 0.1286E+00, 0.1295E+00, 0.1306E+00,& - 0.1317E+00, 0.1329E+00, 0.1341E+00, 0.1352E+00,& - 0.1363E+00, 0.1374E+00, 0.1386E+00, 0.1398E+00,& - 0.1409E+00, 0.1420E+00, 0.1433E+00, 0.1444E+00,& - 0.1457E+00, 0.1469E+00, 0.1481E+00, 0.1493E+00,& - 0.1506E+00, 0.1517E+00, 0.1530E+00, 0.1542E+00,& - 0.1555E+00, 0.1568E+00, 0.1580E+00, 0.1593E+00,& - 0.1606E+00, 0.1618E+00, 0.1631E+00, 0.1645E+00,& - 0.1658E+00, 0.1671E+00, 0.1685E+00, 0.1697E+00,& - 0.1712E+00, 0.1724E+00, 0.1739E+00, 0.1751E+00,& - 0.1766E+00, 0.1780E+00, 0.1794E+00, 0.1808E+00,& - 0.1821E+00, 0.1835E+00, 0.1849E+00, 0.1864E+00,& - 0.1880E+00, 0.1894E+00, 0.1908E+00, 0.1922E+00,& - 0.1937E+00, 0.1952E+00, 0.1967E+00, 0.1982E+00,& - 0.1997E+00, 0.2013E+00, 0.2028E+00, 0.2043E+00,& - 0.2058E+00, 0.2074E+00, 0.2090E+00, 0.2106E+00,& - 0.2122E+00, 0.2138E+00, 0.2153E+00, 0.2169E+00,& - 0.2185E+00, 0.2201E+00, 0.2218E+00, 0.2234E+00,& - 0.2250E+00, 0.2267E+00, 0.2283E+00, 0.2301E+00,& - 0.2318E+00, 0.2334E+00, 0.2351E+00, 0.2369E+00,& - 0.2386E+00, 0.2404E+00, 0.2421E+00, 0.2438E+00,& - 0.2456E+00, 0.2473E+00, 0.2492E+00, 0.2510E+00,& - 0.2527E+00, 0.2546E+00, 0.2564E+00, 0.2583E+00,& - 0.2602E+00, 0.2619E+00, 0.2638E+00, 0.2657E+00,& - 0.2676E+00, 0.2695E+00, 0.2714E+00, 0.2733E+00,& - 0.2752E+00, 0.2771E+00, 0.2792E+00, 0.2811E+00,& - 0.2830E+00, 0.2850E+00, 0.2869E+00, 0.2890E+00,& - 0.2910E+00, 0.2929E+00, 0.2950E+00, 0.2970E+00,& - 0.2991E+00, 0.3012E+00, 0.3032E+00, 0.3053E+00,& - 0.3075E+00, 0.3096E+00, 0.3116E+00, 0.3138E+00,& - 0.3159E+00, 0.3181E+00, 0.3203E+00, 0.3224E+00,& - 0.3246E+00, 0.3268E+00, 0.3290E+00, 0.3312E+00,& - 0.3335E+00, 0.3357E+00, 0.3381E+00, 0.3403E+00,& - 0.3425E+00, 0.3449E+00, 0.3471E+00, 0.3495E+00,& - 0.3518E+00, 0.3542E+00, 0.3564E+00, 0.3588E+00,& - 0.3612E+00, 0.3637E+00, 0.3661E+00, 0.3685E+00,& - 0.3708E+00, 0.3734E+00, 0.3757E+00, 0.3783E+00,& - 0.3808E+00, 0.3832E+00, 0.3857E+00, 0.3882E+00,& - 0.3908E+00, 0.3933E+00, 0.3958E+00, 0.3984E+00,& - 0.4011E+00, 0.4036E+00, 0.4063E+00, 0.4088E+00,& - 0.4115E+00, 0.4142E+00, 0.4169E+00, 0.4194E+00,& - 0.4221E+00, 0.4250E+00, 0.4277E+00, 0.4304E+00,& - 0.4331E+00, 0.4359E+00, 0.4386E+00, 0.4414E+00,& - 0.4443E+00, 0.4471E+00, 0.4498E+00, 0.4527E+00,& - 0.4557E+00, 0.4585E+00, 0.4614E+00, 0.4642E+00,& - 0.4673E+00, 0.4701E+00, 0.4731E+00, 0.4761E+00,& - 0.4791E+00, 0.4821E+00, 0.4851E+00, 0.4882E+00,& - 0.4912E+00, 0.4942E+00, 0.4973E+00, 0.5003E+00,& - 0.5035E+00, 0.5067E+00, 0.5098E+00, 0.5129E+00,& - 0.5160E+00, 0.5193E+00, 0.5225E+00, 0.5257E+00,& - 0.5290E+00, 0.5322E+00, 0.5355E+00, 0.5388E+00,& - 0.5421E+00, 0.5453E+00, 0.5488E+00, 0.5521E+00,& - 0.5554E+00, 0.5588E+00, 0.5623E+00, 0.5657E+00,& - 0.5691E+00, 0.5725E+00, 0.5760E+00, 0.5795E+00,& - 0.5830E+00, 0.5866E+00, 0.5901E+00, 0.5938E+00,& - 0.5972E+00, 0.6009E+00, 0.6045E+00, 0.6082E+00,& - 0.6118E+00, 0.6155E+00, 0.6193E+00, 0.6229E+00,& - 0.6267E+00, 0.6303E+00, 0.6341E+00, 0.6379E+00,& - 0.6417E+00, 0.6455E+00, 0.6495E+00, 0.6533E+00,& - 0.6573E+00, 0.6611E+00, 0.6650E+00, 0.6690E+00,& - 0.6729E+00, 0.6769E+00, 0.6810E+00, 0.6850E+00,& - 0.6891E+00, 0.6932E+00, 0.6972E+00, 0.7013E+00,& - 0.7055E+00, 0.7097E+00, 0.7138E+00, 0.7181E+00,& - 0.7222E+00, 0.7264E+00, 0.7307E+00, 0.7350E+00,& - 0.7393E+00, 0.7437E+00, 0.7480E+00, 0.7524E+00,& - 0.7568E+00, 0.7613E+00, 0.7657E+00, 0.7701E+00,& - 0.7746E+00, 0.7792E+00, 0.7838E+00, 0.7882E+00,& - 0.7928E+00, 0.7974E+00, 0.8021E+00, 0.8067E+00,& - 0.8115E+00, 0.8161E+00, 0.8208E+00, 0.8256E+00,& - 0.8305E+00, 0.8352E+00, 0.8400E+00, 0.8449E+00,& - 0.8498E+00, 0.8547E+00, 0.8596E+00, 0.8645E+00,& - 0.8696E+00, 0.8746E+00, 0.8796E+00, 0.8846E+00,& - 0.8898E+00, 0.8949E+00, 0.9000E+00, 0.9052E+00,& - 0.9104E+00, 0.9157E+00, 0.9209E+00, 0.9263E+00,& - 0.9315E+00, 0.9369E+00, 0.9423E+00, 0.9476E+00,& - 0.9530E+00, 0.9586E+00, 0.9639E+00, 0.9695E+00,& - 0.9750E+00, 0.9806E+00, 0.9863E+00, 0.9918E+00,& - 0.9975E+00, 0.1003E+01, 0.1009E+01, 0.1015E+01,& - 0.1020E+01, 0.1026E+01, 0.1032E+01, 0.1038E+01,& - 0.1044E+01, 0.1050E+01, 0.1056E+01, 0.1062E+01,& - 0.1068E+01, 0.1074E+01, 0.1080E+01, 0.1086E+01,& - 0.1093E+01, 0.1099E+01, 0.1105E+01, 0.1111E+01,& - 0.1118E+01, 0.1124E+01, 0.1130E+01, 0.1137E+01,& - 0.1143E+01, 0.1150E+01, 0.1156E+01, 0.1163E+01,& - 0.1169E+01, 0.1176E+01, 0.1183E+01, 0.1190E+01,& - 0.1196E+01, 0.1203E+01, 0.1210E+01, 0.1217E+01,& - 0.1224E+01, 0.1231E+01, 0.1238E+01, 0.1245E+01,& - 0.1252E+01, 0.1259E+01, 0.1266E+01, 0.1273E+01,& - 0.1281E+01, 0.1288E+01, 0.1295E+01, 0.1302E+01,& - 0.1310E+01, 0.1317E+01, 0.1325E+01, 0.1327E+01,& - 0.1340E+01, 0.1348E+01, 0.1355E+01, 0.1363E+01,& - 0.1371E+01, 0.1379E+01, 0.1387E+01, 0.1394E+01,& - 0.1402E+01, 0.1410E+01, 0.1419E+01, 0.1427E+01,& - 0.1435E+01, 0.1443E+01, 0.1451E+01, 0.1460E+01,& - 0.1468E+01, 0.1476E+01, 0.1485E+01, 0.1493E+01,& - 0.1502E+01, 0.1511E+01, 0.1519E+01, 0.1528E+01,& - 0.1537E+01, 0.1546E+01, 0.1554E+01, 0.1563E+01,& - 0.1572E+01, 0.1581E+01, 0.1590E+01, 0.1600E+01,& - 0.1609E+01, 0.1618E+01, 0.1628E+01, 0.1637E+01,& - 0.1647E+01, 0.1656E+01, 0.1666E+01, 0.1675E+01,& - 0.1685E+01, 0.1695E+01, 0.1705E+01, 0.1715E+01,& - 0.1725E+01, 0.1735E+01, 0.1745E+01, 0.1755E+01,& - 0.1765E+01, 0.1776E+01, 0.1786E+01, 0.1796E+01,& - 0.1807E+01, 0.1818E+01, 0.1828E+01, 0.1839E+01,& - 0.1850E+01, 0.1861E+01, 0.1872E+01, 0.1883E+01,& - 0.1894E+01, 0.1905E+01, 0.1916E+01, 0.1928E+01,& - 0.1939E+01, 0.1951E+01, 0.1962E+01, 0.1974E+01,& - 0.1986E+01, 0.1998E+01, 0.2010E+01, 0.2022E+01,& - 0.2034E+01, 0.2046E+01, 0.2059E+01, 0.2071E+01,& - 0.2084E+01, 0.2096E+01, 0.2109E+01, 0.2122E+01,& - 0.2135E+01, 0.2147E+01, 0.2161E+01, 0.2174E+01,& - 0.2187E+01, 0.2201E+01, 0.2214E+01, 0.2228E+01,& - 0.2241E+01, 0.2255E+01, 0.2269E+01, 0.2283E+01,& - 0.2297E+01, 0.2312E+01, 0.2326E+01, 0.2340E+01,& - 0.2355E+01, 0.2370E+01, 0.2385E+01, 0.2400E+01,& - 0.2415E+01, 0.2430E+01, 0.2446E+01, 0.2461E+01,& - 0.2477E+01, 0.2493E+01, 0.2509E+01, 0.2525E+01,& - 0.2541E+01, 0.2557E+01, 0.2574E+01, 0.2591E+01,& - 0.2607E+01, 0.2624E+01, 0.2641E+01, 0.2659E+01,& - 0.2676E+01, 0.2694E+01, 0.2711E+01, 0.2729E+01,& - 0.2748E+01, 0.2766E+01, 0.2784E+01, 0.2803E+01,& - 0.2822E+01, 0.2841E+01, 0.2860E+01, 0.2879E+01,& - 0.2899E+01, 0.2919E+01, 0.2939E+01, 0.2959E+01,& - 0.2979E+01, 0.3000E+01, 0.3021E+01, 0.3042E+01,& - 0.3063E+01, 0.3085E+01, 0.3107E+01, 0.3129E+01,& - 0.3151E+01, 0.3173E+01, 0.3196E+01, 0.3219E+01,& - 0.3242E+01, 0.3266E+01, 0.3290E+01, 0.3314E+01,& - 0.3338E+01, 0.3363E+01, 0.3388E+01, 0.3413E+01,& - 0.3439E+01, 0.3465E+01, 0.3491E+01, 0.3518E+01,& - 0.3545E+01, 0.3572E+01, 0.3600E+01, 0.3628E+01,& - 0.3656E+01, 0.3685E+01, 0.3714E+01, 0.3744E+01,& - 0.3774E+01, 0.3805E+01, 0.3836E+01, 0.3867E+01,& - 0.3899E+01, 0.3931E+01, 0.3964E+01, 0.3997E+01,& - 0.4031E+01, 0.4066E+01, 0.4101E+01, 0.4136E+01,& - 0.4173E+01, 0.4209E+01, 0.4247E+01, 0.4285E+01,& - 0.4324E+01, 0.4363E+01, 0.4403E+01, 0.4444E+01,& - 0.4486E+01, 0.4529E+01, 0.4572E+01, 0.4616E+01,& - 0.4662E+01, 0.4708E+01, 0.4755E+01, 0.4803E+01,& - 0.4852E+01, 0.4902E+01, 0.4954E+01, 0.5007E+01,& - 0.5061E+01, 0.5116E+01, 0.5173E+01, 0.5231E+01,& - 0.5291E+01, 0.5352E+01, 0.5415E+01, 0.5481E+01,& - 0.5548E+01, 0.5617E+01, 0.5688E+01, 0.5761E+01,& - 0.5838E+01, 0.5916E+01, 0.5998E+01, 0.6083E+01,& - 0.6171E+01, 0.6263E+01, 0.6358E+01, 0.6458E+01,& - 0.6563E+01, 0.6673E+01, 0.6788E+01, 0.6910E+01,& - 0.7040E+01, 0.7177E+01, 0.7323E+01, 0.7480E+01,& - 0.7649E+01, 0.7833E+01, 0.8034E+01, 0.8256E+01,& - 0.8504E+01, 0.8786E+01, 0.9113E+01, 0.9504E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 69) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1717E-03, 0.1717E-03, 0.1717E-03,& - 0.1717E-03, 0.1717E-03, 0.1717E-03, 0.1717E-03,& - 0.1717E-03, 0.1717E-03, 0.1717E-03, 0.1717E-03,& - 0.1717E-03, 0.1717E-03, 0.3335E-03, 0.3335E-03,& - 0.3335E-03, 0.3335E-03, 0.3335E-03, 0.3335E-03,& - 0.3335E-03, 0.3335E-03, 0.3335E-03, 0.4952E-03,& - 0.4952E-03, 0.4952E-03, 0.4952E-03, 0.4952E-03,& - 0.4952E-03, 0.4952E-03, 0.6570E-03, 0.6570E-03,& - 0.6570E-03, 0.6570E-03, 0.6570E-03, 0.6570E-03,& - 0.8187E-03, 0.8187E-03, 0.8187E-03, 0.8187E-03,& - 0.8187E-03, 0.8187E-03, 0.9805E-03, 0.9805E-03,& - 0.9805E-03, 0.9805E-03, 0.1142E-02, 0.1142E-02,& - 0.1142E-02, 0.1142E-02, 0.1304E-02, 0.1304E-02,& - 0.1304E-02, 0.1304E-02, 0.1466E-02, 0.1466E-02,& - 0.1466E-02, 0.1627E-02, 0.1627E-02, 0.1627E-02,& - 0.1627E-02, 0.1789E-02, 0.1789E-02, 0.1789E-02,& - 0.1951E-02, 0.1951E-02, 0.1951E-02, 0.2113E-02,& - 0.2113E-02, 0.2274E-02, 0.2274E-02, 0.2274E-02,& - 0.2436E-02, 0.2436E-02, 0.2598E-02, 0.2598E-02,& - 0.2598E-02, 0.2760E-02, 0.2760E-02, 0.2921E-02,& - 0.2921E-02, 0.3083E-02, 0.3083E-02, 0.3245E-02,& - 0.3245E-02, 0.3407E-02, 0.3407E-02, 0.3568E-02,& - 0.3568E-02, 0.3730E-02, 0.3730E-02, 0.3892E-02,& - 0.3892E-02, 0.4054E-02, 0.4054E-02, 0.4215E-02,& - 0.4377E-02, 0.4377E-02, 0.4539E-02, 0.4539E-02,& - 0.4701E-02, 0.4862E-02, 0.4862E-02, 0.5024E-02,& - 0.5186E-02, 0.5186E-02, 0.5348E-02, 0.5509E-02,& - 0.5671E-02, 0.5671E-02, 0.5833E-02, 0.5994E-02,& - 0.6156E-02, 0.6156E-02, 0.6318E-02, 0.6480E-02,& - 0.6641E-02, 0.6641E-02, 0.6803E-02, 0.6965E-02,& - 0.7127E-02, 0.7288E-02, 0.7450E-02, 0.7612E-02,& - 0.7774E-02, 0.7774E-02, 0.7935E-02, 0.8097E-02,& - 0.8259E-02, 0.8421E-02, 0.8582E-02, 0.8744E-02,& - 0.8906E-02, 0.9068E-02, 0.9229E-02, 0.9391E-02,& - 0.9553E-02, 0.9715E-02, 0.9876E-02, 0.1004E-01,& - 0.1036E-01, 0.1052E-01, 0.1069E-01, 0.1085E-01,& - 0.1101E-01, 0.1117E-01, 0.1133E-01, 0.1166E-01,& - 0.1182E-01, 0.1198E-01, 0.1214E-01, 0.1246E-01,& - 0.1263E-01, 0.1279E-01, 0.1311E-01, 0.1327E-01,& - 0.1343E-01, 0.1376E-01, 0.1392E-01, 0.1408E-01,& - 0.1441E-01, 0.1457E-01, 0.1473E-01, 0.1505E-01,& - 0.1521E-01, 0.1554E-01, 0.1570E-01, 0.1602E-01,& - 0.1618E-01, 0.1651E-01, 0.1667E-01, 0.1699E-01,& - 0.1732E-01, 0.1748E-01, 0.1780E-01, 0.1813E-01,& - 0.1829E-01, 0.1861E-01, 0.1893E-01, 0.1910E-01,& - 0.1942E-01, 0.1974E-01, 0.2007E-01, 0.2023E-01,& - 0.2055E-01, 0.2087E-01, 0.2120E-01, 0.2152E-01,& - 0.2185E-01, 0.2201E-01, 0.2233E-01, 0.2265E-01,& - 0.2298E-01, 0.2330E-01, 0.2362E-01, 0.2395E-01,& - 0.2427E-01, 0.2459E-01, 0.2492E-01, 0.2524E-01,& - 0.2573E-01, 0.2605E-01, 0.2637E-01, 0.2670E-01,& - 0.2702E-01, 0.2734E-01, 0.2783E-01, 0.2815E-01,& - 0.2848E-01, 0.2880E-01, 0.2929E-01, 0.2961E-01,& - 0.2993E-01, 0.3042E-01, 0.3074E-01, 0.3123E-01,& - 0.3155E-01, 0.3204E-01, 0.3236E-01, 0.3284E-01,& - 0.3317E-01, 0.3365E-01, 0.3398E-01, 0.3446E-01,& - 0.3495E-01, 0.3527E-01, 0.3576E-01, 0.3624E-01,& - 0.3656E-01, 0.3705E-01, 0.3753E-01, 0.3802E-01,& - 0.3834E-01, 0.3883E-01, 0.3931E-01, 0.3980E-01,& - 0.4028E-01, 0.4077E-01, 0.4125E-01, 0.4174E-01,& - 0.4222E-01, 0.4271E-01, 0.4320E-01, 0.4368E-01,& - 0.4417E-01, 0.4465E-01, 0.4530E-01, 0.4578E-01,& - 0.4627E-01, 0.4675E-01, 0.4740E-01, 0.4789E-01,& - 0.4837E-01, 0.4902E-01, 0.4950E-01, 0.4999E-01,& - 0.5064E-01, 0.5112E-01, 0.5177E-01, 0.5225E-01,& - 0.5290E-01, 0.5339E-01, 0.5403E-01, 0.5468E-01,& - 0.5516E-01, 0.5581E-01, 0.5646E-01, 0.5694E-01,& - 0.5759E-01, 0.5824E-01, 0.5888E-01, 0.5953E-01,& - 0.6018E-01, 0.6083E-01, 0.6131E-01, 0.6196E-01,& - 0.6260E-01, 0.6341E-01, 0.6406E-01, 0.6471E-01,& - 0.6535E-01, 0.6600E-01, 0.6665E-01, 0.6730E-01,& - 0.6810E-01, 0.6875E-01, 0.6940E-01, 0.7021E-01,& - 0.7085E-01, 0.7166E-01, 0.7231E-01, 0.7296E-01,& - 0.7376E-01, 0.7457E-01, 0.7522E-01, 0.7603E-01,& - 0.7668E-01, 0.7748E-01, 0.7829E-01, 0.7910E-01,& - 0.7975E-01, 0.8056E-01, 0.8137E-01, 0.8218E-01,& - 0.8298E-01, 0.8379E-01, 0.8460E-01, 0.8541E-01,& - 0.8622E-01, 0.8703E-01, 0.8784E-01, 0.8865E-01,& - 0.8945E-01, 0.9042E-01, 0.9123E-01, 0.9204E-01,& - 0.9301E-01, 0.9382E-01, 0.9463E-01, 0.9560E-01,& - 0.9641E-01, 0.9738E-01, 0.9819E-01, 0.9916E-01,& - 0.1001E+00, 0.1009E+00, 0.1019E+00, 0.1029E+00,& - 0.1038E+00, 0.1048E+00, 0.1056E+00, 0.1066E+00,& - 0.1076E+00, 0.1085E+00, 0.1095E+00, 0.1105E+00,& - 0.1116E+00, 0.1126E+00, 0.1136E+00, 0.1145E+00,& - 0.1155E+00, 0.1166E+00, 0.1176E+00, 0.1186E+00,& - 0.1197E+00, 0.1207E+00, 0.1218E+00, 0.1228E+00,& - 0.1239E+00, 0.1250E+00, 0.1260E+00, 0.1271E+00,& - 0.1283E+00, 0.1294E+00, 0.1305E+00, 0.1317E+00,& - 0.1328E+00, 0.1339E+00, 0.1351E+00, 0.1362E+00,& - 0.1373E+00, 0.1385E+00, 0.1396E+00, 0.1407E+00,& - 0.1420E+00, 0.1432E+00, 0.1443E+00, 0.1456E+00,& - 0.1467E+00, 0.1480E+00, 0.1493E+00, 0.1504E+00,& - 0.1517E+00, 0.1530E+00, 0.1542E+00, 0.1554E+00,& - 0.1567E+00, 0.1580E+00, 0.1593E+00, 0.1606E+00,& - 0.1619E+00, 0.1632E+00, 0.1645E+00, 0.1660E+00,& - 0.1673E+00, 0.1685E+00, 0.1698E+00, 0.1713E+00,& - 0.1726E+00, 0.1740E+00, 0.1753E+00, 0.1768E+00,& - 0.1783E+00, 0.1795E+00, 0.1810E+00, 0.1825E+00,& - 0.1839E+00, 0.1854E+00, 0.1868E+00, 0.1883E+00,& - 0.1897E+00, 0.1912E+00, 0.1926E+00, 0.1941E+00,& - 0.1957E+00, 0.1972E+00, 0.1986E+00, 0.2002E+00,& - 0.2017E+00, 0.2033E+00, 0.2049E+00, 0.2064E+00,& - 0.2080E+00, 0.2096E+00, 0.2112E+00, 0.2129E+00,& - 0.2145E+00, 0.2161E+00, 0.2177E+00, 0.2193E+00,& - 0.2210E+00, 0.2226E+00, 0.2243E+00, 0.2260E+00,& - 0.2276E+00, 0.2294E+00, 0.2310E+00, 0.2328E+00,& - 0.2345E+00, 0.2362E+00, 0.2379E+00, 0.2397E+00,& - 0.2415E+00, 0.2433E+00, 0.2451E+00, 0.2468E+00,& - 0.2486E+00, 0.2504E+00, 0.2523E+00, 0.2541E+00,& - 0.2559E+00, 0.2578E+00, 0.2596E+00, 0.2615E+00,& - 0.2635E+00, 0.2653E+00, 0.2672E+00, 0.2692E+00,& - 0.2711E+00, 0.2730E+00, 0.2750E+00, 0.2769E+00,& - 0.2789E+00, 0.2810E+00, 0.2829E+00, 0.2848E+00,& - 0.2869E+00, 0.2889E+00, 0.2910E+00, 0.2931E+00,& - 0.2950E+00, 0.2971E+00, 0.2992E+00, 0.3013E+00,& - 0.3034E+00, 0.3055E+00, 0.3076E+00, 0.3097E+00,& - 0.3120E+00, 0.3141E+00, 0.3164E+00, 0.3185E+00,& - 0.3207E+00, 0.3228E+00, 0.3251E+00, 0.3274E+00,& - 0.3296E+00, 0.3319E+00, 0.3342E+00, 0.3364E+00,& - 0.3387E+00, 0.3410E+00, 0.3434E+00, 0.3457E+00,& - 0.3481E+00, 0.3503E+00, 0.3528E+00, 0.3552E+00,& - 0.3575E+00, 0.3599E+00, 0.3623E+00, 0.3647E+00,& - 0.3672E+00, 0.3698E+00, 0.3722E+00, 0.3746E+00,& - 0.3772E+00, 0.3796E+00, 0.3822E+00, 0.3848E+00,& - 0.3872E+00, 0.3898E+00, 0.3924E+00, 0.3950E+00,& - 0.3976E+00, 0.4003E+00, 0.4029E+00, 0.4055E+00,& - 0.4082E+00, 0.4108E+00, 0.4136E+00, 0.4163E+00,& - 0.4189E+00, 0.4217E+00, 0.4244E+00, 0.4272E+00,& - 0.4301E+00, 0.4328E+00, 0.4356E+00, 0.4385E+00,& - 0.4412E+00, 0.4442E+00, 0.4471E+00, 0.4498E+00,& - 0.4527E+00, 0.4556E+00, 0.4586E+00, 0.4616E+00,& - 0.4645E+00, 0.4674E+00, 0.4705E+00, 0.4734E+00,& - 0.4765E+00, 0.4796E+00, 0.4827E+00, 0.4857E+00,& - 0.4888E+00, 0.4919E+00, 0.4949E+00, 0.4982E+00,& - 0.5013E+00, 0.5045E+00, 0.5076E+00, 0.5108E+00,& - 0.5140E+00, 0.5173E+00, 0.5205E+00, 0.5237E+00,& - 0.5270E+00, 0.5304E+00, 0.5336E+00, 0.5370E+00,& - 0.5404E+00, 0.5438E+00, 0.5472E+00, 0.5506E+00,& - 0.5540E+00, 0.5574E+00, 0.5608E+00, 0.5643E+00,& - 0.5679E+00, 0.5713E+00, 0.5748E+00, 0.5784E+00,& - 0.5820E+00, 0.5855E+00, 0.5892E+00, 0.5928E+00,& - 0.5964E+00, 0.6001E+00, 0.6038E+00, 0.6075E+00,& - 0.6112E+00, 0.6150E+00, 0.6187E+00, 0.6226E+00,& - 0.6263E+00, 0.6302E+00, 0.6339E+00, 0.6378E+00,& - 0.6416E+00, 0.6455E+00, 0.6496E+00, 0.6535E+00,& - 0.6573E+00, 0.6614E+00, 0.6654E+00, 0.6695E+00,& - 0.6735E+00, 0.6776E+00, 0.6816E+00, 0.6856E+00,& - 0.6898E+00, 0.6940E+00, 0.6981E+00, 0.7023E+00,& - 0.7067E+00, 0.7109E+00, 0.7151E+00, 0.7194E+00,& - 0.7236E+00, 0.7280E+00, 0.7324E+00, 0.7367E+00,& - 0.7411E+00, 0.7455E+00, 0.7500E+00, 0.7545E+00,& - 0.7589E+00, 0.7634E+00, 0.7680E+00, 0.7727E+00,& - 0.7772E+00, 0.7819E+00, 0.7864E+00, 0.7911E+00,& - 0.7958E+00, 0.8005E+00, 0.8052E+00, 0.8100E+00,& - 0.8147E+00, 0.8196E+00, 0.8244E+00, 0.8293E+00,& - 0.8343E+00, 0.8391E+00, 0.8440E+00, 0.8490E+00,& - 0.8540E+00, 0.8590E+00, 0.8640E+00, 0.8692E+00,& - 0.8742E+00, 0.8794E+00, 0.8846E+00, 0.8898E+00,& - 0.8949E+00, 0.9003E+00, 0.9054E+00, 0.9108E+00,& - 0.9161E+00, 0.9215E+00, 0.9270E+00, 0.9323E+00,& - 0.9378E+00, 0.9433E+00, 0.9488E+00, 0.9543E+00,& - 0.9598E+00, 0.9655E+00, 0.9711E+00, 0.9768E+00,& - 0.9824E+00, 0.9881E+00, 0.9939E+00, 0.9997E+00,& - 0.1006E+01, 0.1011E+01, 0.1017E+01, 0.1023E+01,& - 0.1029E+01, 0.1035E+01, 0.1041E+01, 0.1047E+01,& - 0.1053E+01, 0.1059E+01, 0.1066E+01, 0.1072E+01,& - 0.1078E+01, 0.1084E+01, 0.1090E+01, 0.1097E+01,& - 0.1103E+01, 0.1110E+01, 0.1116E+01, 0.1123E+01,& - 0.1129E+01, 0.1136E+01, 0.1142E+01, 0.1149E+01,& - 0.1155E+01, 0.1162E+01, 0.1169E+01, 0.1176E+01,& - 0.1182E+01, 0.1189E+01, 0.1196E+01, 0.1203E+01,& - 0.1210E+01, 0.1217E+01, 0.1224E+01, 0.1231E+01,& - 0.1238E+01, 0.1246E+01, 0.1253E+01, 0.1260E+01,& - 0.1267E+01, 0.1275E+01, 0.1282E+01, 0.1289E+01,& - 0.1297E+01, 0.1304E+01, 0.1312E+01, 0.1320E+01,& - 0.1327E+01, 0.1335E+01, 0.1343E+01, 0.1351E+01,& - 0.1358E+01, 0.1366E+01, 0.1374E+01, 0.1382E+01,& - 0.1390E+01, 0.1398E+01, 0.1407E+01, 0.1415E+01,& - 0.1423E+01, 0.1431E+01, 0.1440E+01, 0.1448E+01,& - 0.1457E+01, 0.1465E+01, 0.1473E+01, 0.1482E+01,& - 0.1491E+01, 0.1500E+01, 0.1508E+01, 0.1517E+01,& - 0.1526E+01, 0.1535E+01, 0.1544E+01, 0.1553E+01,& - 0.1562E+01, 0.1571E+01, 0.1580E+01, 0.1590E+01,& - 0.1599E+01, 0.1608E+01, 0.1618E+01, 0.1627E+01,& - 0.1637E+01, 0.1647E+01, 0.1656E+01, 0.1666E+01,& - 0.1676E+01, 0.1686E+01, 0.1696E+01, 0.1706E+01,& - 0.1716E+01, 0.1726E+01, 0.1736E+01, 0.1747E+01,& - 0.1757E+01, 0.1768E+01, 0.1778E+01, 0.1789E+01,& - 0.1800E+01, 0.1810E+01, 0.1821E+01, 0.1832E+01,& - 0.1843E+01, 0.1854E+01, 0.1865E+01, 0.1876E+01,& - 0.1888E+01, 0.1899E+01, 0.1911E+01, 0.1922E+01,& - 0.1934E+01, 0.1945E+01, 0.1957E+01, 0.1969E+01,& - 0.1981E+01, 0.1993E+01, 0.2005E+01, 0.2017E+01,& - 0.2030E+01, 0.2042E+01, 0.2055E+01, 0.2067E+01,& - 0.2080E+01, 0.2093E+01, 0.2106E+01, 0.2119E+01,& - 0.2132E+01, 0.2145E+01, 0.2158E+01, 0.2172E+01,& - 0.2185E+01, 0.2199E+01, 0.2212E+01, 0.2226E+01,& - 0.2240E+01, 0.2254E+01, 0.2269E+01, 0.2283E+01,& - 0.2297E+01, 0.2312E+01, 0.2326E+01, 0.2341E+01,& - 0.2356E+01, 0.2371E+01, 0.2386E+01, 0.2401E+01,& - 0.2417E+01, 0.2432E+01, 0.2448E+01, 0.2464E+01,& - 0.2480E+01, 0.2496E+01, 0.2512E+01, 0.2528E+01,& - 0.2545E+01, 0.2562E+01, 0.2578E+01, 0.2595E+01,& - 0.2612E+01, 0.2630E+01, 0.2647E+01, 0.2665E+01,& - 0.2683E+01, 0.2700E+01, 0.2719E+01, 0.2737E+01,& - 0.2755E+01, 0.2774E+01, 0.2793E+01, 0.2812E+01,& - 0.2831E+01, 0.2850E+01, 0.2870E+01, 0.2890E+01,& - 0.2909E+01, 0.2930E+01, 0.2950E+01, 0.2971E+01,& - 0.2991E+01, 0.3012E+01, 0.3034E+01, 0.3055E+01,& - 0.3077E+01, 0.3099E+01, 0.3121E+01, 0.3143E+01,& - 0.3165E+01, 0.3189E+01, 0.3212E+01, 0.3236E+01,& - 0.3260E+01, 0.3284E+01, 0.3308E+01, 0.3333E+01,& - 0.3357E+01, 0.3383E+01, 0.3406E+01, 0.3434E+01,& - 0.3460E+01, 0.3487E+01, 0.3514E+01, 0.3541E+01,& - 0.3568E+01, 0.3596E+01, 0.3624E+01, 0.3653E+01,& - 0.3682E+01, 0.3712E+01, 0.3741E+01, 0.3772E+01,& - 0.3802E+01, 0.3833E+01, 0.3865E+01, 0.3897E+01,& - 0.3930E+01, 0.3963E+01, 0.3997E+01, 0.4031E+01,& - 0.4065E+01, 0.4101E+01, 0.4136E+01, 0.4173E+01,& - 0.4210E+01, 0.4247E+01, 0.4286E+01, 0.4325E+01,& - 0.4364E+01, 0.4405E+01, 0.4446E+01, 0.4488E+01,& - 0.4530E+01, 0.4574E+01, 0.4618E+01, 0.4664E+01,& - 0.4710E+01, 0.4757E+01, 0.4805E+01, 0.4854E+01,& - 0.4905E+01, 0.4956E+01, 0.5009E+01, 0.5063E+01,& - 0.5118E+01, 0.5175E+01, 0.5233E+01, 0.5293E+01,& - 0.5354E+01, 0.5417E+01, 0.5482E+01, 0.5548E+01,& - 0.5617E+01, 0.5688E+01, 0.5760E+01, 0.5836E+01,& - 0.5914E+01, 0.5995E+01, 0.6078E+01, 0.6165E+01,& - 0.6256E+01, 0.6350E+01, 0.6448E+01, 0.6550E+01,& - 0.6658E+01, 0.6770E+01, 0.6889E+01, 0.7014E+01,& - 0.7146E+01, 0.7287E+01, 0.7437E+01, 0.7599E+01,& - 0.7772E+01, 0.7961E+01, 0.8167E+01, 0.8394E+01,& - 0.8650E+01, 0.8939E+01, 0.9275E+01, 0.9676E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 70) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1752E-03, 0.1752E-03,& - 0.1752E-03, 0.1752E-03, 0.1752E-03, 0.1752E-03,& - 0.1752E-03, 0.1752E-03, 0.1752E-03, 0.1752E-03,& - 0.1752E-03, 0.1752E-03, 0.1752E-03, 0.1752E-03,& - 0.3404E-03, 0.3404E-03, 0.3404E-03, 0.3404E-03,& - 0.3404E-03, 0.3404E-03, 0.3404E-03, 0.3404E-03,& - 0.3404E-03, 0.5056E-03, 0.5056E-03, 0.5056E-03,& - 0.5056E-03, 0.5056E-03, 0.5056E-03, 0.5056E-03,& - 0.6708E-03, 0.6708E-03, 0.6708E-03, 0.6708E-03,& - 0.6708E-03, 0.6708E-03, 0.8360E-03, 0.8360E-03,& - 0.8360E-03, 0.8360E-03, 0.8360E-03, 0.8360E-03,& - 0.1001E-02, 0.1001E-02, 0.1001E-02, 0.1001E-02,& - 0.1166E-02, 0.1166E-02, 0.1166E-02, 0.1166E-02,& - 0.1166E-02, 0.1332E-02, 0.1332E-02, 0.1332E-02,& - 0.1332E-02, 0.1497E-02, 0.1497E-02, 0.1497E-02,& - 0.1662E-02, 0.1662E-02, 0.1662E-02, 0.1662E-02,& - 0.1827E-02, 0.1827E-02, 0.1827E-02, 0.1992E-02,& - 0.1992E-02, 0.1992E-02, 0.2158E-02, 0.2158E-02,& - 0.2323E-02, 0.2323E-02, 0.2323E-02, 0.2488E-02,& - 0.2488E-02, 0.2488E-02, 0.2653E-02, 0.2653E-02,& - 0.2818E-02, 0.2818E-02, 0.2984E-02, 0.2984E-02,& - 0.2984E-02, 0.3149E-02, 0.3149E-02, 0.3314E-02,& - 0.3314E-02, 0.3479E-02, 0.3479E-02, 0.3644E-02,& - 0.3644E-02, 0.3810E-02, 0.3810E-02, 0.3975E-02,& - 0.4140E-02, 0.4140E-02, 0.4305E-02, 0.4305E-02,& - 0.4470E-02, 0.4470E-02, 0.4636E-02, 0.4801E-02,& - 0.4801E-02, 0.4966E-02, 0.5131E-02, 0.5131E-02,& - 0.5296E-02, 0.5462E-02, 0.5462E-02, 0.5627E-02,& - 0.5792E-02, 0.5792E-02, 0.5957E-02, 0.6122E-02,& - 0.6288E-02, 0.6288E-02, 0.6453E-02, 0.6618E-02,& - 0.6783E-02, 0.6783E-02, 0.6948E-02, 0.7114E-02,& - 0.7279E-02, 0.7444E-02, 0.7609E-02, 0.7609E-02,& - 0.7774E-02, 0.7940E-02, 0.8105E-02, 0.8270E-02,& - 0.8435E-02, 0.8600E-02, 0.8766E-02, 0.8931E-02,& - 0.9096E-02, 0.9261E-02, 0.9426E-02, 0.9592E-02,& - 0.9757E-02, 0.9922E-02, 0.1009E-01, 0.1025E-01,& - 0.1042E-01, 0.1058E-01, 0.1075E-01, 0.1091E-01,& - 0.1108E-01, 0.1141E-01, 0.1157E-01, 0.1174E-01,& - 0.1190E-01, 0.1207E-01, 0.1240E-01, 0.1257E-01,& - 0.1273E-01, 0.1290E-01, 0.1323E-01, 0.1339E-01,& - 0.1356E-01, 0.1372E-01, 0.1405E-01, 0.1422E-01,& - 0.1455E-01, 0.1471E-01, 0.1488E-01, 0.1521E-01,& - 0.1537E-01, 0.1570E-01, 0.1587E-01, 0.1620E-01,& - 0.1636E-01, 0.1670E-01, 0.1686E-01, 0.1719E-01,& - 0.1736E-01, 0.1769E-01, 0.1785E-01, 0.1818E-01,& - 0.1851E-01, 0.1868E-01, 0.1901E-01, 0.1934E-01,& - 0.1950E-01, 0.1983E-01, 0.2016E-01, 0.2033E-01,& - 0.2066E-01, 0.2099E-01, 0.2132E-01, 0.2165E-01,& - 0.2182E-01, 0.2215E-01, 0.2248E-01, 0.2281E-01,& - 0.2314E-01, 0.2347E-01, 0.2380E-01, 0.2413E-01,& - 0.2446E-01, 0.2479E-01, 0.2512E-01, 0.2545E-01,& - 0.2578E-01, 0.2611E-01, 0.2644E-01, 0.2677E-01,& - 0.2710E-01, 0.2760E-01, 0.2793E-01, 0.2826E-01,& - 0.2859E-01, 0.2892E-01, 0.2942E-01, 0.2975E-01,& - 0.3008E-01, 0.3057E-01, 0.3090E-01, 0.3123E-01,& - 0.3173E-01, 0.3206E-01, 0.3255E-01, 0.3288E-01,& - 0.3338E-01, 0.3371E-01, 0.3421E-01, 0.3454E-01,& - 0.3503E-01, 0.3536E-01, 0.3586E-01, 0.3635E-01,& - 0.3668E-01, 0.3718E-01, 0.3768E-01, 0.3817E-01,& - 0.3850E-01, 0.3900E-01, 0.3949E-01, 0.3999E-01,& - 0.4048E-01, 0.4098E-01, 0.4148E-01, 0.4181E-01,& - 0.4230E-01, 0.4280E-01, 0.4329E-01, 0.4379E-01,& - 0.4445E-01, 0.4494E-01, 0.4544E-01, 0.4594E-01,& - 0.4643E-01, 0.4693E-01, 0.4742E-01, 0.4808E-01,& - 0.4858E-01, 0.4907E-01, 0.4974E-01, 0.5023E-01,& - 0.5073E-01, 0.5139E-01, 0.5188E-01, 0.5254E-01,& - 0.5304E-01, 0.5370E-01, 0.5420E-01, 0.5486E-01,& - 0.5535E-01, 0.5601E-01, 0.5667E-01, 0.5717E-01,& - 0.5783E-01, 0.5849E-01, 0.5915E-01, 0.5965E-01,& - 0.6031E-01, 0.6097E-01, 0.6163E-01, 0.6229E-01,& - 0.6295E-01, 0.6361E-01, 0.6427E-01, 0.6493E-01,& - 0.6559E-01, 0.6626E-01, 0.6692E-01, 0.6774E-01,& - 0.6840E-01, 0.6906E-01, 0.6972E-01, 0.7055E-01,& - 0.7121E-01, 0.7187E-01, 0.7270E-01, 0.7336E-01,& - 0.7418E-01, 0.7485E-01, 0.7567E-01, 0.7633E-01,& - 0.7716E-01, 0.7782E-01, 0.7865E-01, 0.7947E-01,& - 0.8013E-01, 0.8096E-01, 0.8178E-01, 0.8261E-01,& - 0.8344E-01, 0.8426E-01, 0.8509E-01, 0.8575E-01,& - 0.8674E-01, 0.8757E-01, 0.8839E-01, 0.8922E-01,& - 0.9004E-01, 0.9087E-01, 0.9170E-01, 0.9269E-01,& - 0.9351E-01, 0.9434E-01, 0.9533E-01, 0.9616E-01,& - 0.9698E-01, 0.9797E-01, 0.9880E-01, 0.9979E-01,& - 0.1008E+00, 0.1016E+00, 0.1026E+00, 0.1036E+00,& - 0.1044E+00, 0.1054E+00, 0.1064E+00, 0.1074E+00,& - 0.1084E+00, 0.1094E+00, 0.1104E+00, 0.1114E+00,& - 0.1123E+00, 0.1133E+00, 0.1143E+00, 0.1153E+00,& - 0.1163E+00, 0.1175E+00, 0.1185E+00, 0.1194E+00,& - 0.1206E+00, 0.1216E+00, 0.1228E+00, 0.1237E+00,& - 0.1249E+00, 0.1259E+00, 0.1270E+00, 0.1282E+00,& - 0.1292E+00, 0.1304E+00, 0.1315E+00, 0.1327E+00,& - 0.1338E+00, 0.1350E+00, 0.1361E+00, 0.1373E+00,& - 0.1384E+00, 0.1396E+00, 0.1408E+00, 0.1419E+00,& - 0.1432E+00, 0.1444E+00, 0.1456E+00, 0.1469E+00,& - 0.1480E+00, 0.1494E+00, 0.1505E+00, 0.1518E+00,& - 0.1530E+00, 0.1543E+00, 0.1556E+00, 0.1570E+00,& - 0.1583E+00, 0.1594E+00, 0.1607E+00, 0.1621E+00,& - 0.1634E+00, 0.1647E+00, 0.1662E+00, 0.1675E+00,& - 0.1688E+00, 0.1702E+00, 0.1717E+00, 0.1730E+00,& - 0.1743E+00, 0.1758E+00, 0.1771E+00, 0.1786E+00,& - 0.1801E+00, 0.1814E+00, 0.1829E+00, 0.1844E+00,& - 0.1859E+00, 0.1873E+00, 0.1888E+00, 0.1903E+00,& - 0.1918E+00, 0.1933E+00, 0.1948E+00, 0.1963E+00,& - 0.1979E+00, 0.1994E+00, 0.2009E+00, 0.2025E+00,& - 0.2040E+00, 0.2057E+00, 0.2072E+00, 0.2088E+00,& - 0.2105E+00, 0.2121E+00, 0.2136E+00, 0.2153E+00,& - 0.2169E+00, 0.2186E+00, 0.2202E+00, 0.2220E+00,& - 0.2237E+00, 0.2253E+00, 0.2270E+00, 0.2288E+00,& - 0.2305E+00, 0.2323E+00, 0.2339E+00, 0.2358E+00,& - 0.2374E+00, 0.2392E+00, 0.2410E+00, 0.2429E+00,& - 0.2447E+00, 0.2465E+00, 0.2483E+00, 0.2501E+00,& - 0.2519E+00, 0.2538E+00, 0.2557E+00, 0.2576E+00,& - 0.2595E+00, 0.2614E+00, 0.2633E+00, 0.2652E+00,& - 0.2671E+00, 0.2691E+00, 0.2711E+00, 0.2729E+00,& - 0.2749E+00, 0.2769E+00, 0.2790E+00, 0.2810E+00,& - 0.2830E+00, 0.2850E+00, 0.2871E+00, 0.2891E+00,& - 0.2913E+00, 0.2932E+00, 0.2954E+00, 0.2975E+00,& - 0.2995E+00, 0.3017E+00, 0.3038E+00, 0.3060E+00,& - 0.3081E+00, 0.3103E+00, 0.3126E+00, 0.3147E+00,& - 0.3169E+00, 0.3192E+00, 0.3213E+00, 0.3236E+00,& - 0.3259E+00, 0.3281E+00, 0.3304E+00, 0.3327E+00,& - 0.3350E+00, 0.3373E+00, 0.3397E+00, 0.3420E+00,& - 0.3445E+00, 0.3468E+00, 0.3491E+00, 0.3516E+00,& - 0.3540E+00, 0.3563E+00, 0.3588E+00, 0.3613E+00,& - 0.3638E+00, 0.3663E+00, 0.3687E+00, 0.3712E+00,& - 0.3737E+00, 0.3763E+00, 0.3788E+00, 0.3815E+00,& - 0.3839E+00, 0.3866E+00, 0.3892E+00, 0.3917E+00,& - 0.3943E+00, 0.3970E+00, 0.3996E+00, 0.4024E+00,& - 0.4051E+00, 0.4077E+00, 0.4105E+00, 0.4132E+00,& - 0.4160E+00, 0.4188E+00, 0.4214E+00, 0.4242E+00,& - 0.4271E+00, 0.4299E+00, 0.4328E+00, 0.4356E+00,& - 0.4385E+00, 0.4414E+00, 0.4442E+00, 0.4472E+00,& - 0.4502E+00, 0.4530E+00, 0.4560E+00, 0.4589E+00,& - 0.4621E+00, 0.4650E+00, 0.4680E+00, 0.4710E+00,& - 0.4741E+00, 0.4773E+00, 0.4802E+00, 0.4834E+00,& - 0.4865E+00, 0.4897E+00, 0.4928E+00, 0.4959E+00,& - 0.4992E+00, 0.5024E+00, 0.5057E+00, 0.5088E+00,& - 0.5121E+00, 0.5154E+00, 0.5187E+00, 0.5220E+00,& - 0.5253E+00, 0.5287E+00, 0.5321E+00, 0.5354E+00,& - 0.5389E+00, 0.5422E+00, 0.5457E+00, 0.5491E+00,& - 0.5526E+00, 0.5561E+00, 0.5597E+00, 0.5632E+00,& - 0.5666E+00, 0.5703E+00, 0.5739E+00, 0.5775E+00,& - 0.5812E+00, 0.5848E+00, 0.5885E+00, 0.5921E+00,& - 0.5959E+00, 0.5995E+00, 0.6033E+00, 0.6071E+00,& - 0.6108E+00, 0.6146E+00, 0.6185E+00, 0.6223E+00,& - 0.6261E+00, 0.6301E+00, 0.6339E+00, 0.6378E+00,& - 0.6418E+00, 0.6458E+00, 0.6497E+00, 0.6539E+00,& - 0.6578E+00, 0.6620E+00, 0.6659E+00, 0.6701E+00,& - 0.6742E+00, 0.6783E+00, 0.6825E+00, 0.6867E+00,& - 0.6909E+00, 0.6952E+00, 0.6995E+00, 0.7038E+00,& - 0.7081E+00, 0.7124E+00, 0.7166E+00, 0.7211E+00,& - 0.7254E+00, 0.7299E+00, 0.7343E+00, 0.7388E+00,& - 0.7432E+00, 0.7477E+00, 0.7523E+00, 0.7568E+00,& - 0.7614E+00, 0.7660E+00, 0.7707E+00, 0.7753E+00,& - 0.7801E+00, 0.7847E+00, 0.7895E+00, 0.7943E+00,& - 0.7991E+00, 0.8039E+00, 0.8087E+00, 0.8136E+00,& - 0.8186E+00, 0.8234E+00, 0.8283E+00, 0.8334E+00,& - 0.8384E+00, 0.8434E+00, 0.8485E+00, 0.8536E+00,& - 0.8587E+00, 0.8638E+00, 0.8690E+00, 0.8742E+00,& - 0.8794E+00, 0.8847E+00, 0.8899E+00, 0.8952E+00,& - 0.9007E+00, 0.9060E+00, 0.9114E+00, 0.9169E+00,& - 0.9223E+00, 0.9278E+00, 0.9334E+00, 0.9388E+00,& - 0.9445E+00, 0.9501E+00, 0.9557E+00, 0.9615E+00,& - 0.9671E+00, 0.9729E+00, 0.9787E+00, 0.9844E+00,& - 0.9904E+00, 0.9962E+00, 0.1002E+01, 0.1008E+01,& - 0.1014E+01, 0.1020E+01, 0.1026E+01, 0.1032E+01,& - 0.1038E+01, 0.1044E+01, 0.1051E+01, 0.1057E+01,& - 0.1063E+01, 0.1069E+01, 0.1076E+01, 0.1082E+01,& - 0.1089E+01, 0.1095E+01, 0.1101E+01, 0.1108E+01,& - 0.1114E+01, 0.1121E+01, 0.1128E+01, 0.1134E+01,& - 0.1141E+01, 0.1148E+01, 0.1155E+01, 0.1161E+01,& - 0.1168E+01, 0.1175E+01, 0.1182E+01, 0.1189E+01,& - 0.1196E+01, 0.1203E+01, 0.1210E+01, 0.1217E+01,& - 0.1224E+01, 0.1232E+01, 0.1239E+01, 0.1246E+01,& - 0.1254E+01, 0.1261E+01, 0.1269E+01, 0.1276E+01,& - 0.1284E+01, 0.1291E+01, 0.1299E+01, 0.1307E+01,& - 0.1314E+01, 0.1322E+01, 0.1330E+01, 0.1338E+01,& - 0.1346E+01, 0.1354E+01, 0.1362E+01, 0.1370E+01,& - 0.1378E+01, 0.1386E+01, 0.1394E+01, 0.1402E+01,& - 0.1411E+01, 0.1419E+01, 0.1428E+01, 0.1436E+01,& - 0.1445E+01, 0.1453E+01, 0.1462E+01, 0.1470E+01,& - 0.1479E+01, 0.1488E+01, 0.1497E+01, 0.1506E+01,& - 0.1515E+01, 0.1524E+01, 0.1533E+01, 0.1542E+01,& - 0.1551E+01, 0.1560E+01, 0.1570E+01, 0.1579E+01,& - 0.1589E+01, 0.1598E+01, 0.1608E+01, 0.1617E+01,& - 0.1627E+01, 0.1637E+01, 0.1647E+01, 0.1657E+01,& - 0.1667E+01, 0.1677E+01, 0.1687E+01, 0.1697E+01,& - 0.1707E+01, 0.1717E+01, 0.1728E+01, 0.1738E+01,& - 0.1749E+01, 0.1759E+01, 0.1770E+01, 0.1781E+01,& - 0.1792E+01, 0.1803E+01, 0.1813E+01, 0.1824E+01,& - 0.1836E+01, 0.1847E+01, 0.1858E+01, 0.1869E+01,& - 0.1881E+01, 0.1892E+01, 0.1904E+01, 0.1916E+01,& - 0.1928E+01, 0.1939E+01, 0.1951E+01, 0.1963E+01,& - 0.1975E+01, 0.1988E+01, 0.2000E+01, 0.2012E+01,& - 0.2025E+01, 0.2038E+01, 0.2050E+01, 0.2063E+01,& - 0.2076E+01, 0.2089E+01, 0.2102E+01, 0.2115E+01,& - 0.2128E+01, 0.2142E+01, 0.2155E+01, 0.2169E+01,& - 0.2183E+01, 0.2197E+01, 0.2211E+01, 0.2225E+01,& - 0.2239E+01, 0.2253E+01, 0.2267E+01, 0.2282E+01,& - 0.2296E+01, 0.2311E+01, 0.2326E+01, 0.2341E+01,& - 0.2356E+01, 0.2371E+01, 0.2387E+01, 0.2402E+01,& - 0.2418E+01, 0.2434E+01, 0.2450E+01, 0.2466E+01,& - 0.2482E+01, 0.2498E+01, 0.2515E+01, 0.2532E+01,& - 0.2548E+01, 0.2565E+01, 0.2582E+01, 0.2600E+01,& - 0.2617E+01, 0.2635E+01, 0.2652E+01, 0.2670E+01,& - 0.2688E+01, 0.2706E+01, 0.2725E+01, 0.2743E+01,& - 0.2762E+01, 0.2781E+01, 0.2800E+01, 0.2820E+01,& - 0.2839E+01, 0.2859E+01, 0.2879E+01, 0.2899E+01,& - 0.2919E+01, 0.2940E+01, 0.2961E+01, 0.2982E+01,& - 0.3003E+01, 0.3024E+01, 0.3046E+01, 0.3068E+01,& - 0.3090E+01, 0.3112E+01, 0.3135E+01, 0.3158E+01,& - 0.3181E+01, 0.3204E+01, 0.3228E+01, 0.3252E+01,& - 0.3276E+01, 0.3301E+01, 0.3325E+01, 0.3351E+01,& - 0.3375E+01, 0.3402E+01, 0.3428E+01, 0.3454E+01,& - 0.3481E+01, 0.3508E+01, 0.3535E+01, 0.3563E+01,& - 0.3591E+01, 0.3620E+01, 0.3648E+01, 0.3678E+01,& - 0.3707E+01, 0.3737E+01, 0.3768E+01, 0.3799E+01,& - 0.3830E+01, 0.3862E+01, 0.3894E+01, 0.3927E+01,& - 0.3960E+01, 0.3994E+01, 0.4028E+01, 0.4063E+01,& - 0.4099E+01, 0.4134E+01, 0.4171E+01, 0.4208E+01,& - 0.4246E+01, 0.4284E+01, 0.4324E+01, 0.4363E+01,& - 0.4404E+01, 0.4445E+01, 0.4487E+01, 0.4530E+01,& - 0.4574E+01, 0.4618E+01, 0.4664E+01, 0.4705E+01,& - 0.4757E+01, 0.4806E+01, 0.4855E+01, 0.4905E+01,& - 0.4957E+01, 0.5010E+01, 0.5064E+01, 0.5119E+01,& - 0.5175E+01, 0.5233E+01, 0.5293E+01, 0.5354E+01,& - 0.5417E+01, 0.5481E+01, 0.5547E+01, 0.5615E+01,& - 0.5686E+01, 0.5758E+01, 0.5833E+01, 0.5910E+01,& - 0.5990E+01, 0.6073E+01, 0.6159E+01, 0.6248E+01,& - 0.6340E+01, 0.6437E+01, 0.6537E+01, 0.6642E+01,& - 0.6752E+01, 0.6868E+01, 0.6989E+01, 0.7117E+01,& - 0.7253E+01, 0.7398E+01, 0.7552E+01, 0.7717E+01,& - 0.7895E+01, 0.8089E+01, 0.8300E+01, 0.8534E+01,& - 0.8795E+01, 0.9092E+01, 0.9437E+01, 0.9849E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 71) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1787E-03,& - 0.1787E-03, 0.1787E-03, 0.1787E-03, 0.1787E-03,& - 0.1787E-03, 0.1787E-03, 0.1787E-03, 0.1787E-03,& - 0.1787E-03, 0.1787E-03, 0.1787E-03, 0.1787E-03,& - 0.1787E-03, 0.3474E-03, 0.3474E-03, 0.3474E-03,& - 0.3474E-03, 0.3474E-03, 0.3474E-03, 0.3474E-03,& - 0.3474E-03, 0.3474E-03, 0.3474E-03, 0.5161E-03,& - 0.5161E-03, 0.5161E-03, 0.5161E-03, 0.5161E-03,& - 0.5161E-03, 0.5161E-03, 0.6848E-03, 0.6848E-03,& - 0.6848E-03, 0.6848E-03, 0.6848E-03, 0.6848E-03,& - 0.6848E-03, 0.8535E-03, 0.8535E-03, 0.8535E-03,& - 0.8535E-03, 0.8535E-03, 0.1022E-02, 0.1022E-02,& - 0.1022E-02, 0.1022E-02, 0.1022E-02, 0.1191E-02,& - 0.1191E-02, 0.1191E-02, 0.1191E-02, 0.1360E-02,& - 0.1360E-02, 0.1360E-02, 0.1360E-02, 0.1528E-02,& - 0.1528E-02, 0.1528E-02, 0.1528E-02, 0.1697E-02,& - 0.1697E-02, 0.1697E-02, 0.1866E-02, 0.1866E-02,& - 0.1866E-02, 0.1866E-02, 0.2034E-02, 0.2034E-02,& - 0.2034E-02, 0.2203E-02, 0.2203E-02, 0.2203E-02,& - 0.2372E-02, 0.2372E-02, 0.2541E-02, 0.2541E-02,& - 0.2541E-02, 0.2709E-02, 0.2709E-02, 0.2878E-02,& - 0.2878E-02, 0.2878E-02, 0.3047E-02, 0.3047E-02,& - 0.3215E-02, 0.3215E-02, 0.3384E-02, 0.3384E-02,& - 0.3553E-02, 0.3553E-02, 0.3722E-02, 0.3722E-02,& - 0.3890E-02, 0.3890E-02, 0.4059E-02, 0.4059E-02,& - 0.4228E-02, 0.4228E-02, 0.4396E-02, 0.4396E-02,& - 0.4565E-02, 0.4734E-02, 0.4734E-02, 0.4902E-02,& - 0.4902E-02, 0.5071E-02, 0.5240E-02, 0.5240E-02,& - 0.5409E-02, 0.5577E-02, 0.5577E-02, 0.5746E-02,& - 0.5915E-02, 0.5915E-02, 0.6083E-02, 0.6252E-02,& - 0.6252E-02, 0.6421E-02, 0.6589E-02, 0.6758E-02,& - 0.6758E-02, 0.6927E-02, 0.7096E-02, 0.7264E-02,& - 0.7433E-02, 0.7602E-02, 0.7602E-02, 0.7770E-02,& - 0.7939E-02, 0.8108E-02, 0.8277E-02, 0.8445E-02,& - 0.8614E-02, 0.8783E-02, 0.8783E-02, 0.8951E-02,& - 0.9120E-02, 0.9289E-02, 0.9457E-02, 0.9626E-02,& - 0.9795E-02, 0.9964E-02, 0.1013E-01, 0.1030E-01,& - 0.1047E-01, 0.1081E-01, 0.1098E-01, 0.1114E-01,& - 0.1131E-01, 0.1148E-01, 0.1165E-01, 0.1182E-01,& - 0.1199E-01, 0.1233E-01, 0.1249E-01, 0.1266E-01,& - 0.1283E-01, 0.1300E-01, 0.1334E-01, 0.1351E-01,& - 0.1368E-01, 0.1401E-01, 0.1418E-01, 0.1435E-01,& - 0.1452E-01, 0.1486E-01, 0.1502E-01, 0.1536E-01,& - 0.1553E-01, 0.1570E-01, 0.1604E-01, 0.1621E-01,& - 0.1654E-01, 0.1671E-01, 0.1705E-01, 0.1722E-01,& - 0.1756E-01, 0.1772E-01, 0.1806E-01, 0.1823E-01,& - 0.1857E-01, 0.1890E-01, 0.1907E-01, 0.1941E-01,& - 0.1975E-01, 0.1992E-01, 0.2025E-01, 0.2059E-01,& - 0.2076E-01, 0.2110E-01, 0.2144E-01, 0.2177E-01,& - 0.2194E-01, 0.2228E-01, 0.2262E-01, 0.2295E-01,& - 0.2329E-01, 0.2363E-01, 0.2397E-01, 0.2430E-01,& - 0.2464E-01, 0.2481E-01, 0.2515E-01, 0.2548E-01,& - 0.2599E-01, 0.2633E-01, 0.2667E-01, 0.2700E-01,& - 0.2734E-01, 0.2768E-01, 0.2802E-01, 0.2835E-01,& - 0.2869E-01, 0.2920E-01, 0.2953E-01, 0.2987E-01,& - 0.3021E-01, 0.3071E-01, 0.3105E-01, 0.3139E-01,& - 0.3190E-01, 0.3223E-01, 0.3274E-01, 0.3308E-01,& - 0.3341E-01, 0.3392E-01, 0.3426E-01, 0.3476E-01,& - 0.3510E-01, 0.3561E-01, 0.3611E-01, 0.3645E-01,& - 0.3696E-01, 0.3729E-01, 0.3780E-01, 0.3831E-01,& - 0.3881E-01, 0.3915E-01, 0.3966E-01, 0.4016E-01,& - 0.4067E-01, 0.4117E-01, 0.4151E-01, 0.4202E-01,& - 0.4252E-01, 0.4303E-01, 0.4354E-01, 0.4404E-01,& - 0.4455E-01, 0.4505E-01, 0.4556E-01, 0.4607E-01,& - 0.4657E-01, 0.4725E-01, 0.4775E-01, 0.4826E-01,& - 0.4877E-01, 0.4927E-01, 0.4995E-01, 0.5045E-01,& - 0.5096E-01, 0.5163E-01, 0.5214E-01, 0.5281E-01,& - 0.5332E-01, 0.5383E-01, 0.5450E-01, 0.5518E-01,& - 0.5568E-01, 0.5636E-01, 0.5686E-01, 0.5754E-01,& - 0.5821E-01, 0.5872E-01, 0.5939E-01, 0.6007E-01,& - 0.6074E-01, 0.6125E-01, 0.6192E-01, 0.6260E-01,& - 0.6327E-01, 0.6395E-01, 0.6462E-01, 0.6530E-01,& - 0.6597E-01, 0.6665E-01, 0.6732E-01, 0.6800E-01,& - 0.6867E-01, 0.6952E-01, 0.7019E-01, 0.7087E-01,& - 0.7154E-01, 0.7238E-01, 0.7306E-01, 0.7373E-01,& - 0.7458E-01, 0.7525E-01, 0.7610E-01, 0.7677E-01,& - 0.7761E-01, 0.7829E-01, 0.7913E-01, 0.7998E-01,& - 0.8065E-01, 0.8149E-01, 0.8234E-01, 0.8301E-01,& - 0.8386E-01, 0.8470E-01, 0.8554E-01, 0.8639E-01,& - 0.8723E-01, 0.8807E-01, 0.8892E-01, 0.8976E-01,& - 0.9060E-01, 0.9145E-01, 0.9229E-01, 0.9330E-01,& - 0.9415E-01, 0.9499E-01, 0.9583E-01, 0.9685E-01,& - 0.9769E-01, 0.9870E-01, 0.9955E-01, 0.1006E+00,& - 0.1014E+00, 0.1024E+00, 0.1033E+00, 0.1043E+00,& - 0.1053E+00, 0.1061E+00, 0.1071E+00, 0.1081E+00,& - 0.1092E+00, 0.1102E+00, 0.1112E+00, 0.1122E+00,& - 0.1132E+00, 0.1142E+00, 0.1152E+00, 0.1162E+00,& - 0.1173E+00, 0.1184E+00, 0.1195E+00, 0.1205E+00,& - 0.1215E+00, 0.1227E+00, 0.1237E+00, 0.1249E+00,& - 0.1259E+00, 0.1270E+00, 0.1281E+00, 0.1292E+00,& - 0.1304E+00, 0.1316E+00, 0.1326E+00, 0.1338E+00,& - 0.1350E+00, 0.1362E+00, 0.1373E+00, 0.1385E+00,& - 0.1397E+00, 0.1409E+00, 0.1421E+00, 0.1432E+00,& - 0.1446E+00, 0.1458E+00, 0.1470E+00, 0.1483E+00,& - 0.1495E+00, 0.1508E+00, 0.1520E+00, 0.1534E+00,& - 0.1545E+00, 0.1559E+00, 0.1572E+00, 0.1584E+00,& - 0.1598E+00, 0.1611E+00, 0.1625E+00, 0.1638E+00,& - 0.1652E+00, 0.1665E+00, 0.1679E+00, 0.1692E+00,& - 0.1707E+00, 0.1721E+00, 0.1734E+00, 0.1750E+00,& - 0.1763E+00, 0.1777E+00, 0.1792E+00, 0.1807E+00,& - 0.1820E+00, 0.1836E+00, 0.1851E+00, 0.1864E+00,& - 0.1879E+00, 0.1895E+00, 0.1910E+00, 0.1925E+00,& - 0.1940E+00, 0.1955E+00, 0.1971E+00, 0.1987E+00,& - 0.2003E+00, 0.2018E+00, 0.2035E+00, 0.2050E+00,& - 0.2067E+00, 0.2082E+00, 0.2099E+00, 0.2114E+00,& - 0.2131E+00, 0.2148E+00, 0.2165E+00, 0.2181E+00,& - 0.2198E+00, 0.2215E+00, 0.2232E+00, 0.2249E+00,& - 0.2266E+00, 0.2284E+00, 0.2301E+00, 0.2318E+00,& - 0.2337E+00, 0.2354E+00, 0.2372E+00, 0.2389E+00,& - 0.2408E+00, 0.2426E+00, 0.2445E+00, 0.2463E+00,& - 0.2482E+00, 0.2500E+00, 0.2519E+00, 0.2537E+00,& - 0.2556E+00, 0.2575E+00, 0.2595E+00, 0.2613E+00,& - 0.2634E+00, 0.2652E+00, 0.2672E+00, 0.2691E+00,& - 0.2711E+00, 0.2731E+00, 0.2752E+00, 0.2772E+00,& - 0.2792E+00, 0.2812E+00, 0.2833E+00, 0.2853E+00,& - 0.2875E+00, 0.2895E+00, 0.2915E+00, 0.2937E+00,& - 0.2959E+00, 0.2979E+00, 0.3001E+00, 0.3023E+00,& - 0.3045E+00, 0.3067E+00, 0.3089E+00, 0.3111E+00,& - 0.3133E+00, 0.3155E+00, 0.3177E+00, 0.3200E+00,& - 0.3222E+00, 0.3246E+00, 0.3268E+00, 0.3292E+00,& - 0.3315E+00, 0.3339E+00, 0.3362E+00, 0.3386E+00,& - 0.3410E+00, 0.3433E+00, 0.3457E+00, 0.3480E+00,& - 0.3506E+00, 0.3529E+00, 0.3555E+00, 0.3580E+00,& - 0.3604E+00, 0.3629E+00, 0.3654E+00, 0.3680E+00,& - 0.3705E+00, 0.3730E+00, 0.3755E+00, 0.3782E+00,& - 0.3808E+00, 0.3835E+00, 0.3860E+00, 0.3887E+00,& - 0.3914E+00, 0.3939E+00, 0.3966E+00, 0.3993E+00,& - 0.4020E+00, 0.4049E+00, 0.4076E+00, 0.4103E+00,& - 0.4132E+00, 0.4159E+00, 0.4187E+00, 0.4216E+00,& - 0.4243E+00, 0.4272E+00, 0.4300E+00, 0.4329E+00,& - 0.4359E+00, 0.4388E+00, 0.4417E+00, 0.4447E+00,& - 0.4476E+00, 0.4506E+00, 0.4537E+00, 0.4567E+00,& - 0.4597E+00, 0.4628E+00, 0.4658E+00, 0.4688E+00,& - 0.4719E+00, 0.4751E+00, 0.4781E+00, 0.4813E+00,& - 0.4845E+00, 0.4877E+00, 0.4909E+00, 0.4941E+00,& - 0.4974E+00, 0.5006E+00, 0.5038E+00, 0.5071E+00,& - 0.5105E+00, 0.5137E+00, 0.5171E+00, 0.5205E+00,& - 0.5238E+00, 0.5272E+00, 0.5306E+00, 0.5341E+00,& - 0.5375E+00, 0.5410E+00, 0.5446E+00, 0.5480E+00,& - 0.5515E+00, 0.5550E+00, 0.5586E+00, 0.5623E+00,& - 0.5658E+00, 0.5696E+00, 0.5731E+00, 0.5768E+00,& - 0.5805E+00, 0.5842E+00, 0.5879E+00, 0.5917E+00,& - 0.5954E+00, 0.5992E+00, 0.6030E+00, 0.6068E+00,& - 0.6107E+00, 0.6146E+00, 0.6185E+00, 0.6224E+00,& - 0.6262E+00, 0.6303E+00, 0.6342E+00, 0.6382E+00,& - 0.6423E+00, 0.6463E+00, 0.6504E+00, 0.6544E+00,& - 0.6586E+00, 0.6627E+00, 0.6669E+00, 0.6711E+00,& - 0.6752E+00, 0.6794E+00, 0.6838E+00, 0.6880E+00,& - 0.6922E+00, 0.6966E+00, 0.7010E+00, 0.7054E+00,& - 0.7098E+00, 0.7141E+00, 0.7185E+00, 0.7231E+00,& - 0.7275E+00, 0.7320E+00, 0.7366E+00, 0.7411E+00,& - 0.7457E+00, 0.7502E+00, 0.7550E+00, 0.7595E+00,& - 0.7642E+00, 0.7690E+00, 0.7737E+00, 0.7786E+00,& - 0.7833E+00, 0.7880E+00, 0.7929E+00, 0.7978E+00,& - 0.8027E+00, 0.8076E+00, 0.8127E+00, 0.8176E+00,& - 0.8226E+00, 0.8277E+00, 0.8327E+00, 0.8378E+00,& - 0.8429E+00, 0.8481E+00, 0.8533E+00, 0.8585E+00,& - 0.8638E+00, 0.8690E+00, 0.8742E+00, 0.8796E+00,& - 0.8850E+00, 0.8904E+00, 0.8958E+00, 0.9012E+00,& - 0.9066E+00, 0.9122E+00, 0.9178E+00, 0.9233E+00,& - 0.9289E+00, 0.9346E+00, 0.9402E+00, 0.9459E+00,& - 0.9517E+00, 0.9574E+00, 0.9633E+00, 0.9691E+00,& - 0.9750E+00, 0.9809E+00, 0.9868E+00, 0.9927E+00,& - 0.9987E+00, 0.1005E+01, 0.1011E+01, 0.1017E+01,& - 0.1023E+01, 0.1029E+01, 0.1036E+01, 0.1042E+01,& - 0.1048E+01, 0.1054E+01, 0.1061E+01, 0.1067E+01,& - 0.1073E+01, 0.1080E+01, 0.1086E+01, 0.1093E+01,& - 0.1100E+01, 0.1106E+01, 0.1113E+01, 0.1120E+01,& - 0.1126E+01, 0.1133E+01, 0.1140E+01, 0.1147E+01,& - 0.1154E+01, 0.1161E+01, 0.1168E+01, 0.1175E+01,& - 0.1182E+01, 0.1189E+01, 0.1196E+01, 0.1203E+01,& - 0.1210E+01, 0.1218E+01, 0.1225E+01, 0.1232E+01,& - 0.1240E+01, 0.1247E+01, 0.1255E+01, 0.1262E+01,& - 0.1270E+01, 0.1278E+01, 0.1285E+01, 0.1293E+01,& - 0.1301E+01, 0.1309E+01, 0.1317E+01, 0.1325E+01,& - 0.1332E+01, 0.1341E+01, 0.1349E+01, 0.1357E+01,& - 0.1365E+01, 0.1373E+01, 0.1381E+01, 0.1390E+01,& - 0.1398E+01, 0.1407E+01, 0.1415E+01, 0.1424E+01,& - 0.1432E+01, 0.1441E+01, 0.1450E+01, 0.1458E+01,& - 0.1467E+01, 0.1476E+01, 0.1485E+01, 0.1494E+01,& - 0.1503E+01, 0.1512E+01, 0.1522E+01, 0.1531E+01,& - 0.1540E+01, 0.1549E+01, 0.1559E+01, 0.1568E+01,& - 0.1578E+01, 0.1588E+01, 0.1597E+01, 0.1607E+01,& - 0.1617E+01, 0.1627E+01, 0.1637E+01, 0.1647E+01,& - 0.1657E+01, 0.1667E+01, 0.1677E+01, 0.1687E+01,& - 0.1698E+01, 0.1708E+01, 0.1719E+01, 0.1729E+01,& - 0.1740E+01, 0.1750E+01, 0.1761E+01, 0.1772E+01,& - 0.1783E+01, 0.1794E+01, 0.1805E+01, 0.1816E+01,& - 0.1828E+01, 0.1839E+01, 0.1851E+01, 0.1862E+01,& - 0.1874E+01, 0.1885E+01, 0.1897E+01, 0.1909E+01,& - 0.1921E+01, 0.1933E+01, 0.1945E+01, 0.1957E+01,& - 0.1969E+01, 0.1982E+01, 0.1994E+01, 0.2007E+01,& - 0.2020E+01, 0.2032E+01, 0.2045E+01, 0.2058E+01,& - 0.2071E+01, 0.2085E+01, 0.2098E+01, 0.2111E+01,& - 0.2125E+01, 0.2138E+01, 0.2152E+01, 0.2166E+01,& - 0.2180E+01, 0.2194E+01, 0.2208E+01, 0.2222E+01,& - 0.2237E+01, 0.2251E+01, 0.2266E+01, 0.2280E+01,& - 0.2295E+01, 0.2310E+01, 0.2325E+01, 0.2340E+01,& - 0.2356E+01, 0.2371E+01, 0.2387E+01, 0.2403E+01,& - 0.2419E+01, 0.2435E+01, 0.2451E+01, 0.2467E+01,& - 0.2484E+01, 0.2500E+01, 0.2517E+01, 0.2534E+01,& - 0.2551E+01, 0.2568E+01, 0.2586E+01, 0.2603E+01,& - 0.2621E+01, 0.2639E+01, 0.2657E+01, 0.2675E+01,& - 0.2693E+01, 0.2712E+01, 0.2731E+01, 0.2750E+01,& - 0.2769E+01, 0.2788E+01, 0.2807E+01, 0.2827E+01,& - 0.2847E+01, 0.2867E+01, 0.2887E+01, 0.2908E+01,& - 0.2929E+01, 0.2949E+01, 0.2971E+01, 0.2992E+01,& - 0.3014E+01, 0.3035E+01, 0.3057E+01, 0.3080E+01,& - 0.3102E+01, 0.3125E+01, 0.3148E+01, 0.3171E+01,& - 0.3195E+01, 0.3219E+01, 0.3243E+01, 0.3267E+01,& - 0.3292E+01, 0.3317E+01, 0.3342E+01, 0.3368E+01,& - 0.3394E+01, 0.3420E+01, 0.3446E+01, 0.3473E+01,& - 0.3501E+01, 0.3528E+01, 0.3556E+01, 0.3584E+01,& - 0.3613E+01, 0.3642E+01, 0.3672E+01, 0.3701E+01,& - 0.3732E+01, 0.3762E+01, 0.3794E+01, 0.3825E+01,& - 0.3857E+01, 0.3890E+01, 0.3923E+01, 0.3956E+01,& - 0.3990E+01, 0.4024E+01, 0.4060E+01, 0.4095E+01,& - 0.4131E+01, 0.4168E+01, 0.4205E+01, 0.4243E+01,& - 0.4282E+01, 0.4321E+01, 0.4361E+01, 0.4402E+01,& - 0.4443E+01, 0.4486E+01, 0.4529E+01, 0.4572E+01,& - 0.4617E+01, 0.4663E+01, 0.4709E+01, 0.4756E+01,& - 0.4805E+01, 0.4854E+01, 0.4904E+01, 0.4956E+01,& - 0.5009E+01, 0.5063E+01, 0.5118E+01, 0.5174E+01,& - 0.5232E+01, 0.5291E+01, 0.5352E+01, 0.5415E+01,& - 0.5479E+01, 0.5545E+01, 0.5613E+01, 0.5683E+01,& - 0.5755E+01, 0.5829E+01, 0.5905E+01, 0.5984E+01,& - 0.6066E+01, 0.6151E+01, 0.6239E+01, 0.6330E+01,& - 0.6425E+01, 0.6523E+01, 0.6626E+01, 0.6734E+01,& - 0.6847E+01, 0.6965E+01, 0.7090E+01, 0.7221E+01,& - 0.7361E+01, 0.7509E+01, 0.7667E+01, 0.7836E+01,& - 0.8019E+01, 0.8217E+01, 0.8434E+01, 0.8674E+01,& - 0.8942E+01, 0.9247E+01, 0.9600E+01, 0.1002E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 72) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1823E-03, 0.1823E-03, 0.1823E-03, 0.1823E-03,& - 0.1823E-03, 0.1823E-03, 0.1823E-03, 0.1823E-03,& - 0.1823E-03, 0.1823E-03, 0.1823E-03, 0.1823E-03,& - 0.1823E-03, 0.1823E-03, 0.3545E-03, 0.3545E-03,& - 0.3545E-03, 0.3545E-03, 0.3545E-03, 0.3545E-03,& - 0.3545E-03, 0.3545E-03, 0.3545E-03, 0.3545E-03,& - 0.5268E-03, 0.5268E-03, 0.5268E-03, 0.5268E-03,& - 0.5268E-03, 0.5268E-03, 0.5268E-03, 0.5268E-03,& - 0.6990E-03, 0.6990E-03, 0.6990E-03, 0.6990E-03,& - 0.6990E-03, 0.6990E-03, 0.6990E-03, 0.8713E-03,& - 0.8713E-03, 0.8713E-03, 0.8713E-03, 0.8713E-03,& - 0.1044E-02, 0.1044E-02, 0.1044E-02, 0.1044E-02,& - 0.1044E-02, 0.1216E-02, 0.1216E-02, 0.1216E-02,& - 0.1216E-02, 0.1216E-02, 0.1388E-02, 0.1388E-02,& - 0.1388E-02, 0.1388E-02, 0.1560E-02, 0.1560E-02,& - 0.1560E-02, 0.1560E-02, 0.1733E-02, 0.1733E-02,& - 0.1733E-02, 0.1905E-02, 0.1905E-02, 0.1905E-02,& - 0.1905E-02, 0.2077E-02, 0.2077E-02, 0.2077E-02,& - 0.2249E-02, 0.2249E-02, 0.2249E-02, 0.2422E-02,& - 0.2422E-02, 0.2422E-02, 0.2594E-02, 0.2594E-02,& - 0.2766E-02, 0.2766E-02, 0.2766E-02, 0.2938E-02,& - 0.2938E-02, 0.3111E-02, 0.3111E-02, 0.3111E-02,& - 0.3283E-02, 0.3283E-02, 0.3455E-02, 0.3455E-02,& - 0.3627E-02, 0.3627E-02, 0.3800E-02, 0.3800E-02,& - 0.3972E-02, 0.3972E-02, 0.4144E-02, 0.4144E-02,& - 0.4316E-02, 0.4316E-02, 0.4489E-02, 0.4489E-02,& - 0.4661E-02, 0.4833E-02, 0.4833E-02, 0.5005E-02,& - 0.5005E-02, 0.5178E-02, 0.5350E-02, 0.5350E-02,& - 0.5522E-02, 0.5694E-02, 0.5694E-02, 0.5867E-02,& - 0.6039E-02, 0.6039E-02, 0.6211E-02, 0.6384E-02,& - 0.6384E-02, 0.6556E-02, 0.6728E-02, 0.6900E-02,& - 0.6900E-02, 0.7073E-02, 0.7245E-02, 0.7417E-02,& - 0.7417E-02, 0.7589E-02, 0.7762E-02, 0.7934E-02,& - 0.8106E-02, 0.8278E-02, 0.8451E-02, 0.8451E-02,& - 0.8623E-02, 0.8795E-02, 0.8967E-02, 0.9140E-02,& - 0.9312E-02, 0.9484E-02, 0.9656E-02, 0.9829E-02,& - 0.1000E-01, 0.1017E-01, 0.1035E-01, 0.1052E-01,& - 0.1069E-01, 0.1086E-01, 0.1103E-01, 0.1121E-01,& - 0.1138E-01, 0.1155E-01, 0.1172E-01, 0.1207E-01,& - 0.1224E-01, 0.1241E-01, 0.1258E-01, 0.1276E-01,& - 0.1293E-01, 0.1327E-01, 0.1345E-01, 0.1362E-01,& - 0.1379E-01, 0.1414E-01, 0.1431E-01, 0.1448E-01,& - 0.1465E-01, 0.1500E-01, 0.1517E-01, 0.1534E-01,& - 0.1569E-01, 0.1586E-01, 0.1620E-01, 0.1637E-01,& - 0.1655E-01, 0.1689E-01, 0.1706E-01, 0.1741E-01,& - 0.1758E-01, 0.1792E-01, 0.1810E-01, 0.1844E-01,& - 0.1879E-01, 0.1896E-01, 0.1930E-01, 0.1948E-01,& - 0.1982E-01, 0.2016E-01, 0.2034E-01, 0.2068E-01,& - 0.2103E-01, 0.2120E-01, 0.2154E-01, 0.2189E-01,& - 0.2223E-01, 0.2240E-01, 0.2275E-01, 0.2309E-01,& - 0.2344E-01, 0.2378E-01, 0.2413E-01, 0.2430E-01,& - 0.2464E-01, 0.2499E-01, 0.2533E-01, 0.2568E-01,& - 0.2602E-01, 0.2637E-01, 0.2671E-01, 0.2705E-01,& - 0.2740E-01, 0.2792E-01, 0.2826E-01, 0.2860E-01,& - 0.2895E-01, 0.2929E-01, 0.2964E-01, 0.3016E-01,& - 0.3050E-01, 0.3084E-01, 0.3119E-01, 0.3171E-01,& - 0.3205E-01, 0.3239E-01, 0.3291E-01, 0.3326E-01,& - 0.3360E-01, 0.3412E-01, 0.3446E-01, 0.3498E-01,& - 0.3532E-01, 0.3584E-01, 0.3618E-01, 0.3670E-01,& - 0.3705E-01, 0.3756E-01, 0.3808E-01, 0.3842E-01,& - 0.3894E-01, 0.3946E-01, 0.3980E-01, 0.4032E-01,& - 0.4083E-01, 0.4135E-01, 0.4187E-01, 0.4221E-01,& - 0.4273E-01, 0.4325E-01, 0.4376E-01, 0.4428E-01,& - 0.4480E-01, 0.4531E-01, 0.4583E-01, 0.4635E-01,& - 0.4686E-01, 0.4738E-01, 0.4807E-01, 0.4859E-01,& - 0.4910E-01, 0.4962E-01, 0.5014E-01, 0.5083E-01,& - 0.5134E-01, 0.5186E-01, 0.5255E-01, 0.5307E-01,& - 0.5358E-01, 0.5427E-01, 0.5479E-01, 0.5548E-01,& - 0.5599E-01, 0.5668E-01, 0.5720E-01, 0.5789E-01,& - 0.5841E-01, 0.5909E-01, 0.5978E-01, 0.6047E-01,& - 0.6099E-01, 0.6168E-01, 0.6237E-01, 0.6306E-01,& - 0.6375E-01, 0.6426E-01, 0.6495E-01, 0.6564E-01,& - 0.6633E-01, 0.6702E-01, 0.6771E-01, 0.6840E-01,& - 0.6926E-01, 0.6995E-01, 0.7064E-01, 0.7132E-01,& - 0.7201E-01, 0.7287E-01, 0.7356E-01, 0.7425E-01,& - 0.7511E-01, 0.7580E-01, 0.7649E-01, 0.7735E-01,& - 0.7804E-01, 0.7890E-01, 0.7959E-01, 0.8045E-01,& - 0.8132E-01, 0.8200E-01, 0.8287E-01, 0.8373E-01,& - 0.8459E-01, 0.8528E-01, 0.8614E-01, 0.8700E-01,& - 0.8786E-01, 0.8872E-01, 0.8958E-01, 0.9045E-01,& - 0.9131E-01, 0.9217E-01, 0.9303E-01, 0.9389E-01,& - 0.9492E-01, 0.9579E-01, 0.9665E-01, 0.9751E-01,& - 0.9854E-01, 0.9940E-01, 0.1004E+00, 0.1013E+00,& - 0.1023E+00, 0.1032E+00, 0.1042E+00, 0.1051E+00,& - 0.1061E+00, 0.1072E+00, 0.1082E+00, 0.1090E+00,& - 0.1101E+00, 0.1111E+00, 0.1121E+00, 0.1132E+00,& - 0.1142E+00, 0.1153E+00, 0.1163E+00, 0.1173E+00,& - 0.1184E+00, 0.1194E+00, 0.1206E+00, 0.1216E+00,& - 0.1227E+00, 0.1239E+00, 0.1249E+00, 0.1259E+00,& - 0.1271E+00, 0.1282E+00, 0.1294E+00, 0.1306E+00,& - 0.1316E+00, 0.1328E+00, 0.1340E+00, 0.1352E+00,& - 0.1363E+00, 0.1375E+00, 0.1387E+00, 0.1399E+00,& - 0.1411E+00, 0.1423E+00, 0.1437E+00, 0.1449E+00,& - 0.1461E+00, 0.1473E+00, 0.1485E+00, 0.1499E+00,& - 0.1511E+00, 0.1525E+00, 0.1537E+00, 0.1550E+00,& - 0.1562E+00, 0.1576E+00, 0.1590E+00, 0.1602E+00,& - 0.1616E+00, 0.1630E+00, 0.1643E+00, 0.1657E+00,& - 0.1671E+00, 0.1685E+00, 0.1699E+00, 0.1712E+00,& - 0.1726E+00, 0.1742E+00, 0.1755E+00, 0.1769E+00,& - 0.1785E+00, 0.1798E+00, 0.1814E+00, 0.1828E+00,& - 0.1843E+00, 0.1859E+00, 0.1873E+00, 0.1888E+00,& - 0.1904E+00, 0.1919E+00, 0.1935E+00, 0.1950E+00,& - 0.1966E+00, 0.1981E+00, 0.1997E+00, 0.2014E+00,& - 0.2029E+00, 0.2045E+00, 0.2062E+00, 0.2078E+00,& - 0.2095E+00, 0.2110E+00, 0.2127E+00, 0.2145E+00,& - 0.2160E+00, 0.2177E+00, 0.2195E+00, 0.2212E+00,& - 0.2229E+00, 0.2246E+00, 0.2264E+00, 0.2281E+00,& - 0.2300E+00, 0.2317E+00, 0.2334E+00, 0.2353E+00,& - 0.2370E+00, 0.2389E+00, 0.2407E+00, 0.2425E+00,& - 0.2444E+00, 0.2463E+00, 0.2481E+00, 0.2500E+00,& - 0.2519E+00, 0.2537E+00, 0.2558E+00, 0.2577E+00,& - 0.2596E+00, 0.2615E+00, 0.2636E+00, 0.2655E+00,& - 0.2675E+00, 0.2694E+00, 0.2715E+00, 0.2736E+00,& - 0.2756E+00, 0.2777E+00, 0.2796E+00, 0.2818E+00,& - 0.2839E+00, 0.2860E+00, 0.2880E+00, 0.2901E+00,& - 0.2923E+00, 0.2944E+00, 0.2966E+00, 0.2987E+00,& - 0.3009E+00, 0.3032E+00, 0.3053E+00, 0.3075E+00,& - 0.3097E+00, 0.3120E+00, 0.3142E+00, 0.3166E+00,& - 0.3189E+00, 0.3211E+00, 0.3235E+00, 0.3257E+00,& - 0.3282E+00, 0.3304E+00, 0.3328E+00, 0.3352E+00,& - 0.3376E+00, 0.3400E+00, 0.3425E+00, 0.3449E+00,& - 0.3473E+00, 0.3497E+00, 0.3523E+00, 0.3547E+00,& - 0.3573E+00, 0.3597E+00, 0.3623E+00, 0.3649E+00,& - 0.3674E+00, 0.3700E+00, 0.3726E+00, 0.3752E+00,& - 0.3778E+00, 0.3804E+00, 0.3831E+00, 0.3857E+00,& - 0.3885E+00, 0.3912E+00, 0.3938E+00, 0.3965E+00,& - 0.3993E+00, 0.4021E+00, 0.4048E+00, 0.4076E+00,& - 0.4105E+00, 0.4133E+00, 0.4160E+00, 0.4189E+00,& - 0.4219E+00, 0.4246E+00, 0.4276E+00, 0.4305E+00,& - 0.4334E+00, 0.4363E+00, 0.4393E+00, 0.4424E+00,& - 0.4453E+00, 0.4484E+00, 0.4513E+00, 0.4544E+00,& - 0.4575E+00, 0.4606E+00, 0.4637E+00, 0.4668E+00,& - 0.4699E+00, 0.4730E+00, 0.4763E+00, 0.4794E+00,& - 0.4827E+00, 0.4859E+00, 0.4890E+00, 0.4923E+00,& - 0.4956E+00, 0.4990E+00, 0.5023E+00, 0.5056E+00,& - 0.5090E+00, 0.5123E+00, 0.5157E+00, 0.5192E+00,& - 0.5226E+00, 0.5261E+00, 0.5295E+00, 0.5330E+00,& - 0.5364E+00, 0.5400E+00, 0.5435E+00, 0.5471E+00,& - 0.5507E+00, 0.5543E+00, 0.5580E+00, 0.5616E+00,& - 0.5652E+00, 0.5690E+00, 0.5726E+00, 0.5764E+00,& - 0.5800E+00, 0.5838E+00, 0.5876E+00, 0.5914E+00,& - 0.5953E+00, 0.5991E+00, 0.6031E+00, 0.6069E+00,& - 0.6108E+00, 0.6148E+00, 0.6188E+00, 0.6227E+00,& - 0.6267E+00, 0.6308E+00, 0.6348E+00, 0.6389E+00,& - 0.6430E+00, 0.6470E+00, 0.6511E+00, 0.6554E+00,& - 0.6596E+00, 0.6637E+00, 0.6680E+00, 0.6723E+00,& - 0.6766E+00, 0.6809E+00, 0.6852E+00, 0.6896E+00,& - 0.6939E+00, 0.6983E+00, 0.7028E+00, 0.7073E+00,& - 0.7118E+00, 0.7163E+00, 0.7207E+00, 0.7252E+00,& - 0.7299E+00, 0.7345E+00, 0.7392E+00, 0.7438E+00,& - 0.7485E+00, 0.7531E+00, 0.7579E+00, 0.7626E+00,& - 0.7674E+00, 0.7722E+00, 0.7771E+00, 0.7821E+00,& - 0.7869E+00, 0.7919E+00, 0.7967E+00, 0.8017E+00,& - 0.8067E+00, 0.8119E+00, 0.8169E+00, 0.8220E+00,& - 0.8268E+00, 0.8322E+00, 0.8375E+00, 0.8427E+00,& - 0.8479E+00, 0.8532E+00, 0.8585E+00, 0.8639E+00,& - 0.8692E+00, 0.8746E+00, 0.8801E+00, 0.8854E+00,& - 0.8909E+00, 0.8964E+00, 0.9021E+00, 0.9076E+00,& - 0.9133E+00, 0.9188E+00, 0.9245E+00, 0.9304E+00,& - 0.9361E+00, 0.9419E+00, 0.9476E+00, 0.9535E+00,& - 0.9593E+00, 0.9653E+00, 0.9712E+00, 0.9772E+00,& - 0.9833E+00, 0.9893E+00, 0.9955E+00, 0.1002E+01,& - 0.1008E+01, 0.1014E+01, 0.1020E+01, 0.1026E+01,& - 0.1033E+01, 0.1039E+01, 0.1045E+01, 0.1052E+01,& - 0.1058E+01, 0.1065E+01, 0.1071E+01, 0.1078E+01,& - 0.1085E+01, 0.1091E+01, 0.1098E+01, 0.1105E+01,& - 0.1111E+01, 0.1118E+01, 0.1125E+01, 0.1132E+01,& - 0.1139E+01, 0.1146E+01, 0.1153E+01, 0.1160E+01,& - 0.1167E+01, 0.1174E+01, 0.1182E+01, 0.1189E+01,& - 0.1196E+01, 0.1203E+01, 0.1211E+01, 0.1218E+01,& - 0.1226E+01, 0.1233E+01, 0.1241E+01, 0.1248E+01,& - 0.1256E+01, 0.1264E+01, 0.1271E+01, 0.1279E+01,& - 0.1287E+01, 0.1295E+01, 0.1303E+01, 0.1311E+01,& - 0.1319E+01, 0.1327E+01, 0.1335E+01, 0.1343E+01,& - 0.1352E+01, 0.1360E+01, 0.1368E+01, 0.1377E+01,& - 0.1385E+01, 0.1394E+01, 0.1402E+01, 0.1411E+01,& - 0.1420E+01, 0.1428E+01, 0.1437E+01, 0.1446E+01,& - 0.1455E+01, 0.1464E+01, 0.1473E+01, 0.1482E+01,& - 0.1491E+01, 0.1500E+01, 0.1510E+01, 0.1519E+01,& - 0.1528E+01, 0.1538E+01, 0.1547E+01, 0.1557E+01,& - 0.1567E+01, 0.1576E+01, 0.1586E+01, 0.1596E+01,& - 0.1606E+01, 0.1616E+01, 0.1626E+01, 0.1636E+01,& - 0.1646E+01, 0.1656E+01, 0.1667E+01, 0.1677E+01,& - 0.1688E+01, 0.1698E+01, 0.1709E+01, 0.1720E+01,& - 0.1730E+01, 0.1741E+01, 0.1752E+01, 0.1763E+01,& - 0.1774E+01, 0.1785E+01, 0.1797E+01, 0.1808E+01,& - 0.1819E+01, 0.1831E+01, 0.1842E+01, 0.1854E+01,& - 0.1863E+01, 0.1878E+01, 0.1890E+01, 0.1902E+01,& - 0.1914E+01, 0.1926E+01, 0.1938E+01, 0.1950E+01,& - 0.1963E+01, 0.1975E+01, 0.1988E+01, 0.2001E+01,& - 0.2014E+01, 0.2027E+01, 0.2040E+01, 0.2053E+01,& - 0.2066E+01, 0.2080E+01, 0.2093E+01, 0.2107E+01,& - 0.2120E+01, 0.2134E+01, 0.2148E+01, 0.2162E+01,& - 0.2176E+01, 0.2190E+01, 0.2205E+01, 0.2219E+01,& - 0.2234E+01, 0.2248E+01, 0.2263E+01, 0.2278E+01,& - 0.2293E+01, 0.2308E+01, 0.2324E+01, 0.2339E+01,& - 0.2355E+01, 0.2371E+01, 0.2386E+01, 0.2402E+01,& - 0.2419E+01, 0.2435E+01, 0.2451E+01, 0.2468E+01,& - 0.2485E+01, 0.2502E+01, 0.2519E+01, 0.2536E+01,& - 0.2553E+01, 0.2571E+01, 0.2588E+01, 0.2606E+01,& - 0.2624E+01, 0.2642E+01, 0.2661E+01, 0.2679E+01,& - 0.2698E+01, 0.2717E+01, 0.2736E+01, 0.2755E+01,& - 0.2774E+01, 0.2794E+01, 0.2814E+01, 0.2834E+01,& - 0.2854E+01, 0.2875E+01, 0.2895E+01, 0.2916E+01,& - 0.2937E+01, 0.2958E+01, 0.2980E+01, 0.3002E+01,& - 0.3024E+01, 0.3046E+01, 0.3068E+01, 0.3091E+01,& - 0.3114E+01, 0.3137E+01, 0.3161E+01, 0.3184E+01,& - 0.3208E+01, 0.3233E+01, 0.3257E+01, 0.3282E+01,& - 0.3307E+01, 0.3333E+01, 0.3359E+01, 0.3385E+01,& - 0.3411E+01, 0.3438E+01, 0.3465E+01, 0.3492E+01,& - 0.3520E+01, 0.3548E+01, 0.3577E+01, 0.3605E+01,& - 0.3635E+01, 0.3664E+01, 0.3694E+01, 0.3725E+01,& - 0.3756E+01, 0.3787E+01, 0.3819E+01, 0.3851E+01,& - 0.3884E+01, 0.3917E+01, 0.3950E+01, 0.3984E+01,& - 0.4019E+01, 0.4054E+01, 0.4090E+01, 0.4126E+01,& - 0.4163E+01, 0.4201E+01, 0.4239E+01, 0.4278E+01,& - 0.4317E+01, 0.4357E+01, 0.4398E+01, 0.4440E+01,& - 0.4482E+01, 0.4525E+01, 0.4569E+01, 0.4614E+01,& - 0.4659E+01, 0.4706E+01, 0.4753E+01, 0.4802E+01,& - 0.4851E+01, 0.4902E+01, 0.4953E+01, 0.5006E+01,& - 0.5060E+01, 0.5115E+01, 0.5172E+01, 0.5229E+01,& - 0.5288E+01, 0.5349E+01, 0.5411E+01, 0.5475E+01,& - 0.5541E+01, 0.5609E+01, 0.5678E+01, 0.5749E+01,& - 0.5823E+01, 0.5899E+01, 0.5977E+01, 0.6058E+01,& - 0.6142E+01, 0.6229E+01, 0.6319E+01, 0.6412E+01,& - 0.6509E+01, 0.6610E+01, 0.6716E+01, 0.6826E+01,& - 0.6942E+01, 0.7063E+01, 0.7191E+01, 0.7325E+01,& - 0.7468E+01, 0.7620E+01, 0.7782E+01, 0.7955E+01,& - 0.8142E+01, 0.8346E+01, 0.8568E+01, 0.8814E+01,& - 0.9089E+01, 0.9402E+01, 0.9765E+01, 0.1020E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 73) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1859E-03, 0.1859E-03, 0.1859E-03,& - 0.1859E-03, 0.1859E-03, 0.1859E-03, 0.1859E-03,& - 0.1859E-03, 0.1859E-03, 0.1859E-03, 0.1859E-03,& - 0.1859E-03, 0.1859E-03, 0.1859E-03, 0.1859E-03,& - 0.3617E-03, 0.3617E-03, 0.3617E-03, 0.3617E-03,& - 0.3617E-03, 0.3617E-03, 0.3617E-03, 0.3617E-03,& - 0.3617E-03, 0.3617E-03, 0.5376E-03, 0.5376E-03,& - 0.5376E-03, 0.5376E-03, 0.5376E-03, 0.5376E-03,& - 0.5376E-03, 0.5376E-03, 0.7134E-03, 0.7134E-03,& - 0.7134E-03, 0.7134E-03, 0.7134E-03, 0.7134E-03,& - 0.7134E-03, 0.8893E-03, 0.8893E-03, 0.8893E-03,& - 0.8893E-03, 0.8893E-03, 0.8893E-03, 0.1065E-02,& - 0.1065E-02, 0.1065E-02, 0.1065E-02, 0.1065E-02,& - 0.1241E-02, 0.1241E-02, 0.1241E-02, 0.1241E-02,& - 0.1241E-02, 0.1417E-02, 0.1417E-02, 0.1417E-02,& - 0.1417E-02, 0.1593E-02, 0.1593E-02, 0.1593E-02,& - 0.1593E-02, 0.1769E-02, 0.1769E-02, 0.1769E-02,& - 0.1944E-02, 0.1944E-02, 0.1944E-02, 0.1944E-02,& - 0.2120E-02, 0.2120E-02, 0.2120E-02, 0.2296E-02,& - 0.2296E-02, 0.2296E-02, 0.2472E-02, 0.2472E-02,& - 0.2472E-02, 0.2648E-02, 0.2648E-02, 0.2648E-02,& - 0.2824E-02, 0.2824E-02, 0.3000E-02, 0.3000E-02,& - 0.3000E-02, 0.3175E-02, 0.3175E-02, 0.3351E-02,& - 0.3351E-02, 0.3527E-02, 0.3527E-02, 0.3527E-02,& - 0.3703E-02, 0.3703E-02, 0.3879E-02, 0.3879E-02,& - 0.4055E-02, 0.4055E-02, 0.4231E-02, 0.4231E-02,& - 0.4406E-02, 0.4406E-02, 0.4582E-02, 0.4758E-02,& - 0.4758E-02, 0.4934E-02, 0.4934E-02, 0.5110E-02,& - 0.5110E-02, 0.5286E-02, 0.5462E-02, 0.5462E-02,& - 0.5637E-02, 0.5813E-02, 0.5813E-02, 0.5989E-02,& - 0.6165E-02, 0.6165E-02, 0.6341E-02, 0.6517E-02,& - 0.6517E-02, 0.6693E-02, 0.6868E-02, 0.6868E-02,& - 0.7044E-02, 0.7220E-02, 0.7396E-02, 0.7396E-02,& - 0.7572E-02, 0.7748E-02, 0.7924E-02, 0.8099E-02,& - 0.8275E-02, 0.8275E-02, 0.8451E-02, 0.8627E-02,& - 0.8803E-02, 0.8979E-02, 0.9155E-02, 0.9330E-02,& - 0.9506E-02, 0.9682E-02, 0.9682E-02, 0.9858E-02,& - 0.1003E-01, 0.1021E-01, 0.1039E-01, 0.1056E-01,& - 0.1074E-01, 0.1091E-01, 0.1109E-01, 0.1126E-01,& - 0.1162E-01, 0.1179E-01, 0.1197E-01, 0.1214E-01,& - 0.1232E-01, 0.1250E-01, 0.1267E-01, 0.1285E-01,& - 0.1320E-01, 0.1338E-01, 0.1355E-01, 0.1373E-01,& - 0.1390E-01, 0.1425E-01, 0.1443E-01, 0.1461E-01,& - 0.1478E-01, 0.1513E-01, 0.1531E-01, 0.1549E-01,& - 0.1584E-01, 0.1601E-01, 0.1636E-01, 0.1654E-01,& - 0.1672E-01, 0.1707E-01, 0.1724E-01, 0.1760E-01,& - 0.1777E-01, 0.1812E-01, 0.1830E-01, 0.1865E-01,& - 0.1883E-01, 0.1918E-01, 0.1935E-01, 0.1971E-01,& - 0.1988E-01, 0.2023E-01, 0.2059E-01, 0.2076E-01,& - 0.2111E-01, 0.2146E-01, 0.2164E-01, 0.2199E-01,& - 0.2234E-01, 0.2270E-01, 0.2287E-01, 0.2322E-01,& - 0.2357E-01, 0.2393E-01, 0.2428E-01, 0.2463E-01,& - 0.2481E-01, 0.2516E-01, 0.2551E-01, 0.2586E-01,& - 0.2621E-01, 0.2656E-01, 0.2692E-01, 0.2727E-01,& - 0.2762E-01, 0.2797E-01, 0.2832E-01, 0.2867E-01,& - 0.2920E-01, 0.2955E-01, 0.2991E-01, 0.3026E-01,& - 0.3061E-01, 0.3096E-01, 0.3149E-01, 0.3184E-01,& - 0.3219E-01, 0.3272E-01, 0.3307E-01, 0.3342E-01,& - 0.3395E-01, 0.3430E-01, 0.3465E-01, 0.3518E-01,& - 0.3553E-01, 0.3606E-01, 0.3641E-01, 0.3694E-01,& - 0.3729E-01, 0.3782E-01, 0.3835E-01, 0.3870E-01,& - 0.3923E-01, 0.3958E-01, 0.4011E-01, 0.4063E-01,& - 0.4116E-01, 0.4151E-01, 0.4204E-01, 0.4257E-01,& - 0.4310E-01, 0.4362E-01, 0.4415E-01, 0.4450E-01,& - 0.4503E-01, 0.4556E-01, 0.4608E-01, 0.4661E-01,& - 0.4714E-01, 0.4767E-01, 0.4837E-01, 0.4890E-01,& - 0.4943E-01, 0.4995E-01, 0.5048E-01, 0.5101E-01,& - 0.5171E-01, 0.5224E-01, 0.5277E-01, 0.5347E-01,& - 0.5400E-01, 0.5453E-01, 0.5523E-01, 0.5576E-01,& - 0.5646E-01, 0.5699E-01, 0.5769E-01, 0.5822E-01,& - 0.5892E-01, 0.5945E-01, 0.6015E-01, 0.6086E-01,& - 0.6138E-01, 0.6209E-01, 0.6279E-01, 0.6349E-01,& - 0.6420E-01, 0.6473E-01, 0.6543E-01, 0.6613E-01,& - 0.6684E-01, 0.6754E-01, 0.6824E-01, 0.6895E-01,& - 0.6965E-01, 0.7035E-01, 0.7106E-01, 0.7194E-01,& - 0.7264E-01, 0.7334E-01, 0.7405E-01, 0.7493E-01,& - 0.7563E-01, 0.7633E-01, 0.7721E-01, 0.7791E-01,& - 0.7879E-01, 0.7950E-01, 0.8038E-01, 0.8108E-01,& - 0.8196E-01, 0.8266E-01, 0.8354E-01, 0.8442E-01,& - 0.8530E-01, 0.8600E-01, 0.8688E-01, 0.8776E-01,& - 0.8864E-01, 0.8952E-01, 0.9040E-01, 0.9128E-01,& - 0.9216E-01, 0.9304E-01, 0.9392E-01, 0.9480E-01,& - 0.9568E-01, 0.9656E-01, 0.9761E-01, 0.9849E-01,& - 0.9937E-01, 0.1004E+00, 0.1013E+00, 0.1022E+00,& - 0.1032E+00, 0.1041E+00, 0.1052E+00, 0.1062E+00,& - 0.1071E+00, 0.1082E+00, 0.1092E+00, 0.1101E+00,& - 0.1112E+00, 0.1122E+00, 0.1133E+00, 0.1143E+00,& - 0.1154E+00, 0.1164E+00, 0.1175E+00, 0.1185E+00,& - 0.1196E+00, 0.1206E+00, 0.1217E+00, 0.1229E+00,& - 0.1240E+00, 0.1250E+00, 0.1263E+00, 0.1273E+00,& - 0.1286E+00, 0.1296E+00, 0.1308E+00, 0.1319E+00,& - 0.1331E+00, 0.1344E+00, 0.1354E+00, 0.1367E+00,& - 0.1379E+00, 0.1391E+00, 0.1403E+00, 0.1416E+00,& - 0.1428E+00, 0.1440E+00, 0.1453E+00, 0.1465E+00,& - 0.1477E+00, 0.1491E+00, 0.1504E+00, 0.1516E+00,& - 0.1530E+00, 0.1542E+00, 0.1556E+00, 0.1569E+00,& - 0.1583E+00, 0.1595E+00, 0.1609E+00, 0.1623E+00,& - 0.1637E+00, 0.1650E+00, 0.1664E+00, 0.1678E+00,& - 0.1692E+00, 0.1706E+00, 0.1720E+00, 0.1736E+00,& - 0.1750E+00, 0.1764E+00, 0.1778E+00, 0.1794E+00,& - 0.1808E+00, 0.1824E+00, 0.1838E+00, 0.1854E+00,& - 0.1868E+00, 0.1884E+00, 0.1899E+00, 0.1915E+00,& - 0.1929E+00, 0.1945E+00, 0.1961E+00, 0.1977E+00,& - 0.1993E+00, 0.2010E+00, 0.2026E+00, 0.2042E+00,& - 0.2058E+00, 0.2075E+00, 0.2091E+00, 0.2109E+00,& - 0.2124E+00, 0.2142E+00, 0.2160E+00, 0.2175E+00,& - 0.2193E+00, 0.2211E+00, 0.2228E+00, 0.2246E+00,& - 0.2263E+00, 0.2281E+00, 0.2299E+00, 0.2316E+00,& - 0.2335E+00, 0.2353E+00, 0.2371E+00, 0.2390E+00,& - 0.2408E+00, 0.2427E+00, 0.2446E+00, 0.2464E+00,& - 0.2483E+00, 0.2503E+00, 0.2522E+00, 0.2541E+00,& - 0.2561E+00, 0.2580E+00, 0.2599E+00, 0.2620E+00,& - 0.2640E+00, 0.2659E+00, 0.2680E+00, 0.2700E+00,& - 0.2721E+00, 0.2742E+00, 0.2761E+00, 0.2782E+00,& - 0.2803E+00, 0.2824E+00, 0.2845E+00, 0.2867E+00,& - 0.2888E+00, 0.2911E+00, 0.2932E+00, 0.2953E+00,& - 0.2976E+00, 0.2997E+00, 0.3020E+00, 0.3042E+00,& - 0.3065E+00, 0.3086E+00, 0.3109E+00, 0.3132E+00,& - 0.3155E+00, 0.3178E+00, 0.3202E+00, 0.3225E+00,& - 0.3248E+00, 0.3273E+00, 0.3296E+00, 0.3320E+00,& - 0.3345E+00, 0.3370E+00, 0.3392E+00, 0.3417E+00,& - 0.3442E+00, 0.3466E+00, 0.3493E+00, 0.3517E+00,& - 0.3542E+00, 0.3568E+00, 0.3593E+00, 0.3619E+00,& - 0.3646E+00, 0.3670E+00, 0.3697E+00, 0.3723E+00,& - 0.3749E+00, 0.3776E+00, 0.3802E+00, 0.3830E+00,& - 0.3857E+00, 0.3885E+00, 0.3911E+00, 0.3939E+00,& - 0.3967E+00, 0.3994E+00, 0.4022E+00, 0.4050E+00,& - 0.4078E+00, 0.4108E+00, 0.4136E+00, 0.4164E+00,& - 0.4194E+00, 0.4222E+00, 0.4252E+00, 0.4282E+00,& - 0.4312E+00, 0.4342E+00, 0.4372E+00, 0.4402E+00,& - 0.4432E+00, 0.4463E+00, 0.4493E+00, 0.4525E+00,& - 0.4555E+00, 0.4586E+00, 0.4618E+00, 0.4650E+00,& - 0.4681E+00, 0.4713E+00, 0.4745E+00, 0.4778E+00,& - 0.4810E+00, 0.4843E+00, 0.4875E+00, 0.4908E+00,& - 0.4942E+00, 0.4975E+00, 0.5009E+00, 0.5044E+00,& - 0.5077E+00, 0.5111E+00, 0.5146E+00, 0.5181E+00,& - 0.5214E+00, 0.5249E+00, 0.5285E+00, 0.5320E+00,& - 0.5357E+00, 0.5392E+00, 0.5427E+00, 0.5464E+00,& - 0.5501E+00, 0.5538E+00, 0.5575E+00, 0.5612E+00,& - 0.5649E+00, 0.5686E+00, 0.5723E+00, 0.5761E+00,& - 0.5800E+00, 0.5837E+00, 0.5875E+00, 0.5914E+00,& - 0.5955E+00, 0.5993E+00, 0.6032E+00, 0.6072E+00,& - 0.6113E+00, 0.6152E+00, 0.6192E+00, 0.6232E+00,& - 0.6275E+00, 0.6315E+00, 0.6356E+00, 0.6398E+00,& - 0.6440E+00, 0.6480E+00, 0.6523E+00, 0.6567E+00,& - 0.6609E+00, 0.6651E+00, 0.6695E+00, 0.6739E+00,& - 0.6781E+00, 0.6825E+00, 0.6869E+00, 0.6915E+00,& - 0.6959E+00, 0.7005E+00, 0.7048E+00, 0.7094E+00,& - 0.7140E+00, 0.7186E+00, 0.7233E+00, 0.7279E+00,& - 0.7326E+00, 0.7372E+00, 0.7420E+00, 0.7467E+00,& - 0.7516E+00, 0.7564E+00, 0.7613E+00, 0.7660E+00,& - 0.7710E+00, 0.7759E+00, 0.7808E+00, 0.7859E+00,& - 0.7908E+00, 0.7959E+00, 0.8010E+00, 0.8061E+00,& - 0.8112E+00, 0.8163E+00, 0.8216E+00, 0.8267E+00,& - 0.8320E+00, 0.8373E+00, 0.8425E+00, 0.8480E+00,& - 0.8533E+00, 0.8587E+00, 0.8642E+00, 0.8696E+00,& - 0.8751E+00, 0.8807E+00, 0.8862E+00, 0.8918E+00,& - 0.8974E+00, 0.9030E+00, 0.9088E+00, 0.9145E+00,& - 0.9203E+00, 0.9261E+00, 0.9319E+00, 0.9377E+00,& - 0.9437E+00, 0.9496E+00, 0.9556E+00, 0.9616E+00,& - 0.9676E+00, 0.9737E+00, 0.9799E+00, 0.9860E+00,& - 0.9922E+00, 0.9984E+00, 0.1005E+01, 0.1011E+01,& - 0.1017E+01, 0.1024E+01, 0.1030E+01, 0.1037E+01,& - 0.1043E+01, 0.1050E+01, 0.1056E+01, 0.1063E+01,& - 0.1069E+01, 0.1076E+01, 0.1083E+01, 0.1089E+01,& - 0.1096E+01, 0.1103E+01, 0.1110E+01, 0.1117E+01,& - 0.1124E+01, 0.1131E+01, 0.1138E+01, 0.1145E+01,& - 0.1152E+01, 0.1160E+01, 0.1167E+01, 0.1174E+01,& - 0.1181E+01, 0.1189E+01, 0.1196E+01, 0.1204E+01,& - 0.1211E+01, 0.1219E+01, 0.1226E+01, 0.1234E+01,& - 0.1242E+01, 0.1249E+01, 0.1257E+01, 0.1265E+01,& - 0.1273E+01, 0.1281E+01, 0.1289E+01, 0.1297E+01,& - 0.1305E+01, 0.1313E+01, 0.1322E+01, 0.1330E+01,& - 0.1338E+01, 0.1347E+01, 0.1355E+01, 0.1363E+01,& - 0.1372E+01, 0.1380E+01, 0.1389E+01, 0.1398E+01,& - 0.1407E+01, 0.1415E+01, 0.1424E+01, 0.1433E+01,& - 0.1442E+01, 0.1451E+01, 0.1460E+01, 0.1470E+01,& - 0.1479E+01, 0.1488E+01, 0.1497E+01, 0.1507E+01,& - 0.1516E+01, 0.1526E+01, 0.1536E+01, 0.1545E+01,& - 0.1555E+01, 0.1565E+01, 0.1575E+01, 0.1585E+01,& - 0.1595E+01, 0.1605E+01, 0.1615E+01, 0.1625E+01,& - 0.1635E+01, 0.1646E+01, 0.1656E+01, 0.1667E+01,& - 0.1677E+01, 0.1688E+01, 0.1699E+01, 0.1710E+01,& - 0.1720E+01, 0.1731E+01, 0.1742E+01, 0.1754E+01,& - 0.1765E+01, 0.1776E+01, 0.1787E+01, 0.1799E+01,& - 0.1810E+01, 0.1822E+01, 0.1834E+01, 0.1846E+01,& - 0.1857E+01, 0.1870E+01, 0.1882E+01, 0.1894E+01,& - 0.1906E+01, 0.1918E+01, 0.1931E+01, 0.1943E+01,& - 0.1956E+01, 0.1969E+01, 0.1981E+01, 0.1994E+01,& - 0.2007E+01, 0.2020E+01, 0.2034E+01, 0.2047E+01,& - 0.2060E+01, 0.2074E+01, 0.2088E+01, 0.2101E+01,& - 0.2115E+01, 0.2129E+01, 0.2143E+01, 0.2157E+01,& - 0.2172E+01, 0.2186E+01, 0.2201E+01, 0.2215E+01,& - 0.2230E+01, 0.2245E+01, 0.2260E+01, 0.2275E+01,& - 0.2291E+01, 0.2306E+01, 0.2322E+01, 0.2338E+01,& - 0.2353E+01, 0.2369E+01, 0.2385E+01, 0.2402E+01,& - 0.2418E+01, 0.2435E+01, 0.2451E+01, 0.2468E+01,& - 0.2485E+01, 0.2502E+01, 0.2520E+01, 0.2537E+01,& - 0.2555E+01, 0.2572E+01, 0.2590E+01, 0.2609E+01,& - 0.2627E+01, 0.2645E+01, 0.2664E+01, 0.2683E+01,& - 0.2702E+01, 0.2721E+01, 0.2740E+01, 0.2760E+01,& - 0.2780E+01, 0.2799E+01, 0.2820E+01, 0.2840E+01,& - 0.2861E+01, 0.2881E+01, 0.2902E+01, 0.2924E+01,& - 0.2945E+01, 0.2967E+01, 0.2989E+01, 0.3011E+01,& - 0.3033E+01, 0.3056E+01, 0.3079E+01, 0.3102E+01,& - 0.3125E+01, 0.3149E+01, 0.3173E+01, 0.3197E+01,& - 0.3221E+01, 0.3246E+01, 0.3271E+01, 0.3296E+01,& - 0.3322E+01, 0.3348E+01, 0.3374E+01, 0.3401E+01,& - 0.3428E+01, 0.3455E+01, 0.3482E+01, 0.3510E+01,& - 0.3539E+01, 0.3567E+01, 0.3596E+01, 0.3626E+01,& - 0.3655E+01, 0.3686E+01, 0.3716E+01, 0.3747E+01,& - 0.3779E+01, 0.3811E+01, 0.3843E+01, 0.3876E+01,& - 0.3909E+01, 0.3943E+01, 0.3977E+01, 0.4012E+01,& - 0.4048E+01, 0.4084E+01, 0.4120E+01, 0.4157E+01,& - 0.4195E+01, 0.4233E+01, 0.4272E+01, 0.4312E+01,& - 0.4352E+01, 0.4393E+01, 0.4435E+01, 0.4477E+01,& - 0.4520E+01, 0.4564E+01, 0.4609E+01, 0.4655E+01,& - 0.4702E+01, 0.4749E+01, 0.4797E+01, 0.4847E+01,& - 0.4897E+01, 0.4949E+01, 0.5002E+01, 0.5056E+01,& - 0.5111E+01, 0.5167E+01, 0.5225E+01, 0.5284E+01,& - 0.5344E+01, 0.5406E+01, 0.5470E+01, 0.5535E+01,& - 0.5603E+01, 0.5672E+01, 0.5743E+01, 0.5816E+01,& - 0.5891E+01, 0.5969E+01, 0.6049E+01, 0.6132E+01,& - 0.6218E+01, 0.6306E+01, 0.6398E+01, 0.6494E+01,& - 0.6593E+01, 0.6697E+01, 0.6805E+01, 0.6918E+01,& - 0.7036E+01, 0.7160E+01, 0.7291E+01, 0.7429E+01,& - 0.7575E+01, 0.7731E+01, 0.7897E+01, 0.8075E+01,& - 0.8267E+01, 0.8475E+01, 0.8703E+01, 0.8955E+01,& - 0.9237E+01, 0.9558E+01, 0.9930E+01, 0.1037E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 74) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1895E-03, 0.1895E-03,& - 0.1895E-03, 0.1895E-03, 0.1895E-03, 0.1895E-03,& - 0.1895E-03, 0.1895E-03, 0.1895E-03, 0.1895E-03,& - 0.1895E-03, 0.1895E-03, 0.1895E-03, 0.1895E-03,& - 0.1895E-03, 0.1895E-03, 0.3690E-03, 0.3690E-03,& - 0.3690E-03, 0.3690E-03, 0.3690E-03, 0.3690E-03,& - 0.3690E-03, 0.3690E-03, 0.3690E-03, 0.3690E-03,& - 0.5485E-03, 0.5485E-03, 0.5485E-03, 0.5485E-03,& - 0.5485E-03, 0.5485E-03, 0.5485E-03, 0.5485E-03,& - 0.5485E-03, 0.7280E-03, 0.7280E-03, 0.7280E-03,& - 0.7280E-03, 0.7280E-03, 0.7280E-03, 0.7280E-03,& - 0.9075E-03, 0.9075E-03, 0.9075E-03, 0.9075E-03,& - 0.9075E-03, 0.9075E-03, 0.1087E-02, 0.1087E-02,& - 0.1087E-02, 0.1087E-02, 0.1087E-02, 0.1267E-02,& - 0.1267E-02, 0.1267E-02, 0.1267E-02, 0.1267E-02,& - 0.1446E-02, 0.1446E-02, 0.1446E-02, 0.1446E-02,& - 0.1626E-02, 0.1626E-02, 0.1626E-02, 0.1626E-02,& - 0.1805E-02, 0.1805E-02, 0.1805E-02, 0.1805E-02,& - 0.1985E-02, 0.1985E-02, 0.1985E-02, 0.2164E-02,& - 0.2164E-02, 0.2164E-02, 0.2344E-02, 0.2344E-02,& - 0.2344E-02, 0.2523E-02, 0.2523E-02, 0.2523E-02,& - 0.2703E-02, 0.2703E-02, 0.2703E-02, 0.2882E-02,& - 0.2882E-02, 0.2882E-02, 0.3062E-02, 0.3062E-02,& - 0.3241E-02, 0.3241E-02, 0.3241E-02, 0.3421E-02,& - 0.3421E-02, 0.3600E-02, 0.3600E-02, 0.3780E-02,& - 0.3780E-02, 0.3959E-02, 0.3959E-02, 0.3959E-02,& - 0.4139E-02, 0.4139E-02, 0.4318E-02, 0.4318E-02,& - 0.4498E-02, 0.4677E-02, 0.4677E-02, 0.4857E-02,& - 0.4857E-02, 0.5036E-02, 0.5036E-02, 0.5216E-02,& - 0.5216E-02, 0.5395E-02, 0.5575E-02, 0.5575E-02,& - 0.5754E-02, 0.5934E-02, 0.5934E-02, 0.6113E-02,& - 0.6113E-02, 0.6293E-02, 0.6472E-02, 0.6472E-02,& - 0.6652E-02, 0.6831E-02, 0.7011E-02, 0.7011E-02,& - 0.7190E-02, 0.7370E-02, 0.7549E-02, 0.7549E-02,& - 0.7729E-02, 0.7908E-02, 0.8088E-02, 0.8088E-02,& - 0.8267E-02, 0.8447E-02, 0.8626E-02, 0.8806E-02,& - 0.8985E-02, 0.9165E-02, 0.9165E-02, 0.9344E-02,& - 0.9524E-02, 0.9703E-02, 0.9883E-02, 0.1006E-01,& - 0.1024E-01, 0.1042E-01, 0.1060E-01, 0.1078E-01,& - 0.1096E-01, 0.1114E-01, 0.1132E-01, 0.1150E-01,& - 0.1168E-01, 0.1186E-01, 0.1204E-01, 0.1222E-01,& - 0.1240E-01, 0.1258E-01, 0.1293E-01, 0.1311E-01,& - 0.1329E-01, 0.1347E-01, 0.1365E-01, 0.1383E-01,& - 0.1419E-01, 0.1437E-01, 0.1455E-01, 0.1473E-01,& - 0.1509E-01, 0.1527E-01, 0.1545E-01, 0.1563E-01,& - 0.1599E-01, 0.1617E-01, 0.1634E-01, 0.1670E-01,& - 0.1688E-01, 0.1724E-01, 0.1742E-01, 0.1760E-01,& - 0.1796E-01, 0.1814E-01, 0.1850E-01, 0.1868E-01,& - 0.1904E-01, 0.1922E-01, 0.1958E-01, 0.1976E-01,& - 0.2011E-01, 0.2047E-01, 0.2065E-01, 0.2101E-01,& - 0.2137E-01, 0.2155E-01, 0.2191E-01, 0.2227E-01,& - 0.2245E-01, 0.2281E-01, 0.2317E-01, 0.2353E-01,& - 0.2370E-01, 0.2406E-01, 0.2442E-01, 0.2478E-01,& - 0.2514E-01, 0.2532E-01, 0.2568E-01, 0.2604E-01,& - 0.2640E-01, 0.2676E-01, 0.2712E-01, 0.2747E-01,& - 0.2783E-01, 0.2819E-01, 0.2855E-01, 0.2891E-01,& - 0.2927E-01, 0.2963E-01, 0.3017E-01, 0.3053E-01,& - 0.3088E-01, 0.3124E-01, 0.3160E-01, 0.3214E-01,& - 0.3250E-01, 0.3286E-01, 0.3322E-01, 0.3376E-01,& - 0.3412E-01, 0.3448E-01, 0.3501E-01, 0.3537E-01,& - 0.3591E-01, 0.3627E-01, 0.3681E-01, 0.3717E-01,& - 0.3771E-01, 0.3807E-01, 0.3860E-01, 0.3896E-01,& - 0.3950E-01, 0.3986E-01, 0.4040E-01, 0.4094E-01,& - 0.4148E-01, 0.4183E-01, 0.4237E-01, 0.4291E-01,& - 0.4345E-01, 0.4381E-01, 0.4435E-01, 0.4489E-01,& - 0.4542E-01, 0.4596E-01, 0.4650E-01, 0.4704E-01,& - 0.4758E-01, 0.4812E-01, 0.4866E-01, 0.4919E-01,& - 0.4973E-01, 0.5027E-01, 0.5081E-01, 0.5153E-01,& - 0.5207E-01, 0.5261E-01, 0.5314E-01, 0.5386E-01,& - 0.5440E-01, 0.5494E-01, 0.5566E-01, 0.5620E-01,& - 0.5691E-01, 0.5745E-01, 0.5817E-01, 0.5871E-01,& - 0.5943E-01, 0.5996E-01, 0.6068E-01, 0.6122E-01,& - 0.6194E-01, 0.6266E-01, 0.6338E-01, 0.6391E-01,& - 0.6463E-01, 0.6535E-01, 0.6607E-01, 0.6679E-01,& - 0.6750E-01, 0.6804E-01, 0.6876E-01, 0.6948E-01,& - 0.7020E-01, 0.7109E-01, 0.7181E-01, 0.7253E-01,& - 0.7325E-01, 0.7397E-01, 0.7468E-01, 0.7558E-01,& - 0.7630E-01, 0.7702E-01, 0.7792E-01, 0.7863E-01,& - 0.7935E-01, 0.8025E-01, 0.8097E-01, 0.8186E-01,& - 0.8258E-01, 0.8348E-01, 0.8438E-01, 0.8510E-01,& - 0.8599E-01, 0.8689E-01, 0.8779E-01, 0.8851E-01,& - 0.8940E-01, 0.9030E-01, 0.9120E-01, 0.9210E-01,& - 0.9299E-01, 0.9389E-01, 0.9479E-01, 0.9569E-01,& - 0.9658E-01, 0.9766E-01, 0.9856E-01, 0.9946E-01,& - 0.1004E+00, 0.1014E+00, 0.1023E+00, 0.1032E+00,& - 0.1043E+00, 0.1052E+00, 0.1063E+00, 0.1074E+00,& - 0.1083E+00, 0.1093E+00, 0.1102E+00, 0.1113E+00,& - 0.1124E+00, 0.1135E+00, 0.1145E+00, 0.1156E+00,& - 0.1167E+00, 0.1176E+00, 0.1188E+00, 0.1199E+00,& - 0.1210E+00, 0.1221E+00, 0.1232E+00, 0.1242E+00,& - 0.1255E+00, 0.1266E+00, 0.1276E+00, 0.1289E+00,& - 0.1300E+00, 0.1312E+00, 0.1323E+00, 0.1336E+00,& - 0.1346E+00, 0.1359E+00, 0.1372E+00, 0.1384E+00,& - 0.1395E+00, 0.1407E+00, 0.1420E+00, 0.1433E+00,& - 0.1445E+00, 0.1458E+00, 0.1470E+00, 0.1485E+00,& - 0.1497E+00, 0.1510E+00, 0.1522E+00, 0.1537E+00,& - 0.1549E+00, 0.1562E+00, 0.1576E+00, 0.1591E+00,& - 0.1603E+00, 0.1617E+00, 0.1630E+00, 0.1644E+00,& - 0.1659E+00, 0.1673E+00, 0.1687E+00, 0.1702E+00,& - 0.1716E+00, 0.1731E+00, 0.1745E+00, 0.1759E+00,& - 0.1774E+00, 0.1790E+00, 0.1804E+00, 0.1818E+00,& - 0.1835E+00, 0.1849E+00, 0.1865E+00, 0.1880E+00,& - 0.1896E+00, 0.1912E+00, 0.1928E+00, 0.1942E+00,& - 0.1959E+00, 0.1975E+00, 0.1991E+00, 0.2007E+00,& - 0.2023E+00, 0.2041E+00, 0.2057E+00, 0.2073E+00,& - 0.2090E+00, 0.2107E+00, 0.2124E+00, 0.2142E+00,& - 0.2158E+00, 0.2176E+00, 0.2194E+00, 0.2212E+00,& - 0.2228E+00, 0.2246E+00, 0.2264E+00, 0.2282E+00,& - 0.2300E+00, 0.2319E+00, 0.2337E+00, 0.2355E+00,& - 0.2373E+00, 0.2393E+00, 0.2411E+00, 0.2431E+00,& - 0.2449E+00, 0.2468E+00, 0.2488E+00, 0.2508E+00,& - 0.2528E+00, 0.2545E+00, 0.2565E+00, 0.2587E+00,& - 0.2607E+00, 0.2626E+00, 0.2646E+00, 0.2666E+00,& - 0.2687E+00, 0.2707E+00, 0.2729E+00, 0.2750E+00,& - 0.2770E+00, 0.2791E+00, 0.2813E+00, 0.2834E+00,& - 0.2856E+00, 0.2878E+00, 0.2899E+00, 0.2921E+00,& - 0.2942E+00, 0.2966E+00, 0.2987E+00, 0.3010E+00,& - 0.3032E+00, 0.3055E+00, 0.3079E+00, 0.3102E+00,& - 0.3123E+00, 0.3147E+00, 0.3170E+00, 0.3195E+00,& - 0.3219E+00, 0.3242E+00, 0.3265E+00, 0.3290E+00,& - 0.3314E+00, 0.3339E+00, 0.3364E+00, 0.3387E+00,& - 0.3412E+00, 0.3438E+00, 0.3463E+00, 0.3488E+00,& - 0.3513E+00, 0.3540E+00, 0.3565E+00, 0.3590E+00,& - 0.3617E+00, 0.3644E+00, 0.3669E+00, 0.3696E+00,& - 0.3723E+00, 0.3750E+00, 0.3777E+00, 0.3804E+00,& - 0.3831E+00, 0.3859E+00, 0.3886E+00, 0.3913E+00,& - 0.3942E+00, 0.3971E+00, 0.3999E+00, 0.4026E+00,& - 0.4055E+00, 0.4084E+00, 0.4114E+00, 0.4143E+00,& - 0.4172E+00, 0.4202E+00, 0.4231E+00, 0.4262E+00,& - 0.4290E+00, 0.4321E+00, 0.4351E+00, 0.4382E+00,& - 0.4412E+00, 0.4443E+00, 0.4475E+00, 0.4506E+00,& - 0.4538E+00, 0.4569E+00, 0.4601E+00, 0.4633E+00,& - 0.4665E+00, 0.4698E+00, 0.4730E+00, 0.4762E+00,& - 0.4796E+00, 0.4829E+00, 0.4863E+00, 0.4895E+00,& - 0.4929E+00, 0.4963E+00, 0.4998E+00, 0.5032E+00,& - 0.5066E+00, 0.5102E+00, 0.5136E+00, 0.5172E+00,& - 0.5206E+00, 0.5242E+00, 0.5278E+00, 0.5313E+00,& - 0.5349E+00, 0.5385E+00, 0.5423E+00, 0.5459E+00,& - 0.5497E+00, 0.5534E+00, 0.5572E+00, 0.5608E+00,& - 0.5647E+00, 0.5685E+00, 0.5723E+00, 0.5762E+00,& - 0.5800E+00, 0.5839E+00, 0.5879E+00, 0.5918E+00,& - 0.5958E+00, 0.5997E+00, 0.6037E+00, 0.6078E+00,& - 0.6118E+00, 0.6159E+00, 0.6200E+00, 0.6241E+00,& - 0.6283E+00, 0.6326E+00, 0.6367E+00, 0.6410E+00,& - 0.6452E+00, 0.6495E+00, 0.6538E+00, 0.6581E+00,& - 0.6624E+00, 0.6669E+00, 0.6712E+00, 0.6757E+00,& - 0.6802E+00, 0.6846E+00, 0.6891E+00, 0.6936E+00,& - 0.6981E+00, 0.7028E+00, 0.7074E+00, 0.7121E+00,& - 0.7168E+00, 0.7214E+00, 0.7261E+00, 0.7308E+00,& - 0.7356E+00, 0.7405E+00, 0.7453E+00, 0.7502E+00,& - 0.7550E+00, 0.7600E+00, 0.7649E+00, 0.7699E+00,& - 0.7749E+00, 0.7800E+00, 0.7850E+00, 0.7900E+00,& - 0.7952E+00, 0.8004E+00, 0.8056E+00, 0.8108E+00,& - 0.8160E+00, 0.8212E+00, 0.8266E+00, 0.8320E+00,& - 0.8374E+00, 0.8428E+00, 0.8482E+00, 0.8536E+00,& - 0.8591E+00, 0.8647E+00, 0.8703E+00, 0.8758E+00,& - 0.8816E+00, 0.8871E+00, 0.8929E+00, 0.8986E+00,& - 0.9044E+00, 0.9101E+00, 0.9160E+00, 0.9219E+00,& - 0.9279E+00, 0.9338E+00, 0.9397E+00, 0.9458E+00,& - 0.9517E+00, 0.9579E+00, 0.9640E+00, 0.9702E+00,& - 0.9763E+00, 0.9826E+00, 0.9889E+00, 0.9952E+00,& - 0.1002E+01, 0.1008E+01, 0.1014E+01, 0.1021E+01,& - 0.1027E+01, 0.1034E+01, 0.1041E+01, 0.1047E+01,& - 0.1054E+01, 0.1061E+01, 0.1067E+01, 0.1074E+01,& - 0.1081E+01, 0.1088E+01, 0.1095E+01, 0.1102E+01,& - 0.1109E+01, 0.1116E+01, 0.1123E+01, 0.1130E+01,& - 0.1137E+01, 0.1145E+01, 0.1152E+01, 0.1159E+01,& - 0.1166E+01, 0.1174E+01, 0.1181E+01, 0.1189E+01,& - 0.1196E+01, 0.1204E+01, 0.1212E+01, 0.1219E+01,& - 0.1227E+01, 0.1235E+01, 0.1243E+01, 0.1251E+01,& - 0.1259E+01, 0.1267E+01, 0.1275E+01, 0.1283E+01,& - 0.1291E+01, 0.1299E+01, 0.1308E+01, 0.1316E+01,& - 0.1324E+01, 0.1333E+01, 0.1341E+01, 0.1350E+01,& - 0.1358E+01, 0.1367E+01, 0.1376E+01, 0.1384E+01,& - 0.1393E+01, 0.1402E+01, 0.1411E+01, 0.1420E+01,& - 0.1429E+01, 0.1438E+01, 0.1448E+01, 0.1457E+01,& - 0.1466E+01, 0.1475E+01, 0.1485E+01, 0.1494E+01,& - 0.1504E+01, 0.1514E+01, 0.1523E+01, 0.1533E+01,& - 0.1543E+01, 0.1553E+01, 0.1563E+01, 0.1573E+01,& - 0.1583E+01, 0.1593E+01, 0.1603E+01, 0.1614E+01,& - 0.1624E+01, 0.1635E+01, 0.1645E+01, 0.1656E+01,& - 0.1667E+01, 0.1677E+01, 0.1688E+01, 0.1699E+01,& - 0.1710E+01, 0.1721E+01, 0.1732E+01, 0.1744E+01,& - 0.1755E+01, 0.1766E+01, 0.1778E+01, 0.1789E+01,& - 0.1801E+01, 0.1813E+01, 0.1825E+01, 0.1837E+01,& - 0.1849E+01, 0.1861E+01, 0.1873E+01, 0.1885E+01,& - 0.1898E+01, 0.1910E+01, 0.1923E+01, 0.1935E+01,& - 0.1948E+01, 0.1961E+01, 0.1974E+01, 0.1987E+01,& - 0.2000E+01, 0.2014E+01, 0.2027E+01, 0.2040E+01,& - 0.2054E+01, 0.2068E+01, 0.2082E+01, 0.2096E+01,& - 0.2110E+01, 0.2124E+01, 0.2138E+01, 0.2152E+01,& - 0.2167E+01, 0.2182E+01, 0.2196E+01, 0.2211E+01,& - 0.2226E+01, 0.2241E+01, 0.2257E+01, 0.2272E+01,& - 0.2288E+01, 0.2303E+01, 0.2319E+01, 0.2335E+01,& - 0.2351E+01, 0.2367E+01, 0.2384E+01, 0.2400E+01,& - 0.2417E+01, 0.2434E+01, 0.2450E+01, 0.2467E+01,& - 0.2485E+01, 0.2502E+01, 0.2520E+01, 0.2537E+01,& - 0.2555E+01, 0.2574E+01, 0.2592E+01, 0.2610E+01,& - 0.2629E+01, 0.2648E+01, 0.2666E+01, 0.2686E+01,& - 0.2705E+01, 0.2724E+01, 0.2744E+01, 0.2764E+01,& - 0.2784E+01, 0.2804E+01, 0.2825E+01, 0.2846E+01,& - 0.2866E+01, 0.2888E+01, 0.2909E+01, 0.2930E+01,& - 0.2952E+01, 0.2974E+01, 0.2996E+01, 0.3019E+01,& - 0.3042E+01, 0.3065E+01, 0.3088E+01, 0.3112E+01,& - 0.3135E+01, 0.3159E+01, 0.3184E+01, 0.3208E+01,& - 0.3233E+01, 0.3259E+01, 0.3284E+01, 0.3310E+01,& - 0.3336E+01, 0.3362E+01, 0.3389E+01, 0.3416E+01,& - 0.3443E+01, 0.3471E+01, 0.3499E+01, 0.3528E+01,& - 0.3557E+01, 0.3586E+01, 0.3615E+01, 0.3645E+01,& - 0.3676E+01, 0.3706E+01, 0.3738E+01, 0.3769E+01,& - 0.3801E+01, 0.3834E+01, 0.3867E+01, 0.3900E+01,& - 0.3934E+01, 0.3969E+01, 0.4004E+01, 0.4039E+01,& - 0.4075E+01, 0.4112E+01, 0.4149E+01, 0.4187E+01,& - 0.4226E+01, 0.4265E+01, 0.4305E+01, 0.4345E+01,& - 0.4386E+01, 0.4428E+01, 0.4470E+01, 0.4514E+01,& - 0.4558E+01, 0.4603E+01, 0.4649E+01, 0.4695E+01,& - 0.4743E+01, 0.4792E+01, 0.4841E+01, 0.4892E+01,& - 0.4943E+01, 0.4996E+01, 0.5050E+01, 0.5105E+01,& - 0.5161E+01, 0.5219E+01, 0.5278E+01, 0.5338E+01,& - 0.5400E+01, 0.5463E+01, 0.5528E+01, 0.5595E+01,& - 0.5664E+01, 0.5734E+01, 0.5807E+01, 0.5882E+01,& - 0.5959E+01, 0.6038E+01, 0.6120E+01, 0.6205E+01,& - 0.6293E+01, 0.6384E+01, 0.6478E+01, 0.6576E+01,& - 0.6678E+01, 0.6784E+01, 0.6894E+01, 0.7010E+01,& - 0.7131E+01, 0.7258E+01, 0.7392E+01, 0.7533E+01,& - 0.7683E+01, 0.7842E+01, 0.8012E+01, 0.8195E+01,& - 0.8391E+01, 0.8605E+01, 0.8839E+01, 0.9097E+01,& - 0.9386E+01, 0.9715E+01, 0.1010E+02, 0.1055E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 75) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1932E-03,& - 0.1932E-03, 0.1932E-03, 0.1932E-03, 0.1932E-03,& - 0.1932E-03, 0.1932E-03, 0.1932E-03, 0.1932E-03,& - 0.1932E-03, 0.1932E-03, 0.1932E-03, 0.1932E-03,& - 0.1932E-03, 0.1932E-03, 0.1932E-03, 0.3764E-03,& - 0.3764E-03, 0.3764E-03, 0.3764E-03, 0.3764E-03,& - 0.3764E-03, 0.3764E-03, 0.3764E-03, 0.3764E-03,& - 0.3764E-03, 0.3764E-03, 0.5596E-03, 0.5596E-03,& - 0.5596E-03, 0.5596E-03, 0.5596E-03, 0.5596E-03,& - 0.5596E-03, 0.5596E-03, 0.5596E-03, 0.7428E-03,& - 0.7428E-03, 0.7428E-03, 0.7428E-03, 0.7428E-03,& - 0.7428E-03, 0.7428E-03, 0.9260E-03, 0.9260E-03,& - 0.9260E-03, 0.9260E-03, 0.9260E-03, 0.9260E-03,& - 0.1109E-02, 0.1109E-02, 0.1109E-02, 0.1109E-02,& - 0.1109E-02, 0.1109E-02, 0.1292E-02, 0.1292E-02,& - 0.1292E-02, 0.1292E-02, 0.1292E-02, 0.1476E-02,& - 0.1476E-02, 0.1476E-02, 0.1476E-02, 0.1659E-02,& - 0.1659E-02, 0.1659E-02, 0.1659E-02, 0.1842E-02,& - 0.1842E-02, 0.1842E-02, 0.1842E-02, 0.2025E-02,& - 0.2025E-02, 0.2025E-02, 0.2208E-02, 0.2208E-02,& - 0.2208E-02, 0.2208E-02, 0.2392E-02, 0.2392E-02,& - 0.2392E-02, 0.2575E-02, 0.2575E-02, 0.2575E-02,& - 0.2758E-02, 0.2758E-02, 0.2758E-02, 0.2941E-02,& - 0.2941E-02, 0.3124E-02, 0.3124E-02, 0.3124E-02,& - 0.3308E-02, 0.3308E-02, 0.3491E-02, 0.3491E-02,& - 0.3491E-02, 0.3674E-02, 0.3674E-02, 0.3857E-02,& - 0.3857E-02, 0.4040E-02, 0.4040E-02, 0.4224E-02,& - 0.4224E-02, 0.4407E-02, 0.4407E-02, 0.4590E-02,& - 0.4590E-02, 0.4773E-02, 0.4773E-02, 0.4956E-02,& - 0.4956E-02, 0.5140E-02, 0.5140E-02, 0.5323E-02,& - 0.5323E-02, 0.5506E-02, 0.5689E-02, 0.5689E-02,& - 0.5872E-02, 0.5872E-02, 0.6056E-02, 0.6239E-02,& - 0.6239E-02, 0.6422E-02, 0.6605E-02, 0.6605E-02,& - 0.6788E-02, 0.6972E-02, 0.6972E-02, 0.7155E-02,& - 0.7338E-02, 0.7521E-02, 0.7521E-02, 0.7704E-02,& - 0.7888E-02, 0.8071E-02, 0.8071E-02, 0.8254E-02,& - 0.8437E-02, 0.8620E-02, 0.8804E-02, 0.8804E-02,& - 0.8987E-02, 0.9170E-02, 0.9353E-02, 0.9536E-02,& - 0.9720E-02, 0.9903E-02, 0.1009E-01, 0.1027E-01,& - 0.1045E-01, 0.1045E-01, 0.1064E-01, 0.1082E-01,& - 0.1100E-01, 0.1119E-01, 0.1137E-01, 0.1155E-01,& - 0.1173E-01, 0.1192E-01, 0.1228E-01, 0.1247E-01,& - 0.1265E-01, 0.1283E-01, 0.1302E-01, 0.1320E-01,& - 0.1338E-01, 0.1357E-01, 0.1375E-01, 0.1412E-01,& - 0.1430E-01, 0.1448E-01, 0.1467E-01, 0.1485E-01,& - 0.1522E-01, 0.1540E-01, 0.1558E-01, 0.1595E-01,& - 0.1613E-01, 0.1631E-01, 0.1668E-01, 0.1686E-01,& - 0.1705E-01, 0.1741E-01, 0.1760E-01, 0.1778E-01,& - 0.1815E-01, 0.1833E-01, 0.1870E-01, 0.1888E-01,& - 0.1925E-01, 0.1943E-01, 0.1980E-01, 0.1998E-01,& - 0.2035E-01, 0.2053E-01, 0.2089E-01, 0.2126E-01,& - 0.2144E-01, 0.2181E-01, 0.2199E-01, 0.2236E-01,& - 0.2273E-01, 0.2309E-01, 0.2328E-01, 0.2364E-01,& - 0.2401E-01, 0.2419E-01, 0.2456E-01, 0.2493E-01,& - 0.2529E-01, 0.2566E-01, 0.2602E-01, 0.2639E-01,& - 0.2657E-01, 0.2694E-01, 0.2731E-01, 0.2767E-01,& - 0.2804E-01, 0.2841E-01, 0.2877E-01, 0.2914E-01,& - 0.2951E-01, 0.2987E-01, 0.3042E-01, 0.3079E-01,& - 0.3115E-01, 0.3152E-01, 0.3189E-01, 0.3225E-01,& - 0.3280E-01, 0.3317E-01, 0.3354E-01, 0.3390E-01,& - 0.3445E-01, 0.3482E-01, 0.3518E-01, 0.3573E-01,& - 0.3610E-01, 0.3665E-01, 0.3702E-01, 0.3738E-01,& - 0.3793E-01, 0.3830E-01, 0.3885E-01, 0.3940E-01,& - 0.3976E-01, 0.4031E-01, 0.4068E-01, 0.4123E-01,& - 0.4178E-01, 0.4215E-01, 0.4270E-01, 0.4325E-01,& - 0.4379E-01, 0.4416E-01, 0.4471E-01, 0.4526E-01,& - 0.4581E-01, 0.4636E-01, 0.4691E-01, 0.4746E-01,& - 0.4801E-01, 0.4856E-01, 0.4911E-01, 0.4966E-01,& - 0.5021E-01, 0.5076E-01, 0.5131E-01, 0.5186E-01,& - 0.5241E-01, 0.5314E-01, 0.5369E-01, 0.5424E-01,& - 0.5479E-01, 0.5552E-01, 0.5607E-01, 0.5680E-01,& - 0.5735E-01, 0.5790E-01, 0.5863E-01, 0.5918E-01,& - 0.5992E-01, 0.6047E-01, 0.6120E-01, 0.6193E-01,& - 0.6248E-01, 0.6321E-01, 0.6395E-01, 0.6450E-01,& - 0.6523E-01, 0.6596E-01, 0.6670E-01, 0.6743E-01,& - 0.6798E-01, 0.6871E-01, 0.6944E-01, 0.7018E-01,& - 0.7091E-01, 0.7164E-01, 0.7237E-01, 0.7311E-01,& - 0.7402E-01, 0.7476E-01, 0.7549E-01, 0.7622E-01,& - 0.7695E-01, 0.7787E-01, 0.7860E-01, 0.7934E-01,& - 0.8025E-01, 0.8098E-01, 0.8190E-01, 0.8263E-01,& - 0.8355E-01, 0.8428E-01, 0.8520E-01, 0.8611E-01,& - 0.8685E-01, 0.8776E-01, 0.8868E-01, 0.8960E-01,& - 0.9033E-01, 0.9124E-01, 0.9216E-01, 0.9308E-01,& - 0.9399E-01, 0.9491E-01, 0.9582E-01, 0.9674E-01,& - 0.9766E-01, 0.9876E-01, 0.9967E-01, 0.1006E+00,& - 0.1015E+00, 0.1026E+00, 0.1035E+00, 0.1044E+00,& - 0.1055E+00, 0.1064E+00, 0.1075E+00, 0.1085E+00,& - 0.1096E+00, 0.1107E+00, 0.1116E+00, 0.1127E+00,& - 0.1138E+00, 0.1149E+00, 0.1158E+00, 0.1169E+00,& - 0.1180E+00, 0.1191E+00, 0.1202E+00, 0.1213E+00,& - 0.1224E+00, 0.1235E+00, 0.1248E+00, 0.1259E+00,& - 0.1270E+00, 0.1281E+00, 0.1293E+00, 0.1304E+00,& - 0.1317E+00, 0.1328E+00, 0.1341E+00, 0.1352E+00,& - 0.1365E+00, 0.1378E+00, 0.1389E+00, 0.1402E+00,& - 0.1414E+00, 0.1427E+00, 0.1440E+00, 0.1453E+00,& - 0.1466E+00, 0.1479E+00, 0.1491E+00, 0.1504E+00,& - 0.1517E+00, 0.1532E+00, 0.1544E+00, 0.1557E+00,& - 0.1572E+00, 0.1585E+00, 0.1599E+00, 0.1612E+00,& - 0.1627E+00, 0.1640E+00, 0.1654E+00, 0.1669E+00,& - 0.1684E+00, 0.1698E+00, 0.1713E+00, 0.1728E+00,& - 0.1742E+00, 0.1757E+00, 0.1772E+00, 0.1786E+00,& - 0.1801E+00, 0.1817E+00, 0.1832E+00, 0.1847E+00,& - 0.1863E+00, 0.1878E+00, 0.1894E+00, 0.1911E+00,& - 0.1926E+00, 0.1942E+00, 0.1959E+00, 0.1975E+00,& - 0.1991E+00, 0.2008E+00, 0.2024E+00, 0.2041E+00,& - 0.2057E+00, 0.2074E+00, 0.2090E+00, 0.2109E+00,& - 0.2125E+00, 0.2144E+00, 0.2160E+00, 0.2178E+00,& - 0.2195E+00, 0.2213E+00, 0.2231E+00, 0.2250E+00,& - 0.2266E+00, 0.2285E+00, 0.2303E+00, 0.2323E+00,& - 0.2341E+00, 0.2360E+00, 0.2378E+00, 0.2398E+00,& - 0.2417E+00, 0.2435E+00, 0.2455E+00, 0.2475E+00,& - 0.2493E+00, 0.2514E+00, 0.2534E+00, 0.2554E+00,& - 0.2574E+00, 0.2594E+00, 0.2614E+00, 0.2635E+00,& - 0.2655E+00, 0.2675E+00, 0.2697E+00, 0.2717E+00,& - 0.2739E+00, 0.2759E+00, 0.2781E+00, 0.2803E+00,& - 0.2825E+00, 0.2845E+00, 0.2867E+00, 0.2889E+00,& - 0.2911E+00, 0.2935E+00, 0.2957E+00, 0.2979E+00,& - 0.3003E+00, 0.3025E+00, 0.3049E+00, 0.3071E+00,& - 0.3094E+00, 0.3118E+00, 0.3142E+00, 0.3166E+00,& - 0.3190E+00, 0.3213E+00, 0.3237E+00, 0.3261E+00,& - 0.3285E+00, 0.3311E+00, 0.3334E+00, 0.3360E+00,& - 0.3386E+00, 0.3409E+00, 0.3435E+00, 0.3461E+00,& - 0.3486E+00, 0.3512E+00, 0.3540E+00, 0.3565E+00,& - 0.3591E+00, 0.3618E+00, 0.3644E+00, 0.3671E+00,& - 0.3697E+00, 0.3725E+00, 0.3752E+00, 0.3780E+00,& - 0.3807E+00, 0.3834E+00, 0.3864E+00, 0.3891E+00,& - 0.3919E+00, 0.3948E+00, 0.3976E+00, 0.4005E+00,& - 0.4034E+00, 0.4063E+00, 0.4093E+00, 0.4122E+00,& - 0.4151E+00, 0.4181E+00, 0.4212E+00, 0.4241E+00,& - 0.4272E+00, 0.4302E+00, 0.4333E+00, 0.4364E+00,& - 0.4395E+00, 0.4426E+00, 0.4457E+00, 0.4490E+00,& - 0.4521E+00, 0.4554E+00, 0.4586E+00, 0.4619E+00,& - 0.4652E+00, 0.4685E+00, 0.4718E+00, 0.4750E+00,& - 0.4783E+00, 0.4816E+00, 0.4851E+00, 0.4884E+00,& - 0.4919E+00, 0.4954E+00, 0.4989E+00, 0.5023E+00,& - 0.5058E+00, 0.5093E+00, 0.5128E+00, 0.5165E+00,& - 0.5199E+00, 0.5236E+00, 0.5273E+00, 0.5309E+00,& - 0.5346E+00, 0.5383E+00, 0.5419E+00, 0.5458E+00,& - 0.5494E+00, 0.5533E+00, 0.5571E+00, 0.5610E+00,& - 0.5648E+00, 0.5687E+00, 0.5725E+00, 0.5764E+00,& - 0.5804E+00, 0.5844E+00, 0.5883E+00, 0.5923E+00,& - 0.5963E+00, 0.6004E+00, 0.6046E+00, 0.6086E+00,& - 0.6128E+00, 0.6168E+00, 0.6211E+00, 0.6253E+00,& - 0.6295E+00, 0.6339E+00, 0.6381E+00, 0.6423E+00,& - 0.6467E+00, 0.6511E+00, 0.6555E+00, 0.6599E+00,& - 0.6643E+00, 0.6689E+00, 0.6733E+00, 0.6779E+00,& - 0.6824E+00, 0.6870E+00, 0.6916E+00, 0.6962E+00,& - 0.7008E+00, 0.7055E+00, 0.7103E+00, 0.7149E+00,& - 0.7196E+00, 0.7246E+00, 0.7293E+00, 0.7341E+00,& - 0.7390E+00, 0.7440E+00, 0.7489E+00, 0.7539E+00,& - 0.7588E+00, 0.7640E+00, 0.7689E+00, 0.7740E+00,& - 0.7792E+00, 0.7843E+00, 0.7896E+00, 0.7947E+00,& - 0.8000E+00, 0.8052E+00, 0.8105E+00, 0.8160E+00,& - 0.8213E+00, 0.8266E+00, 0.8321E+00, 0.8376E+00,& - 0.8431E+00, 0.8486E+00, 0.8543E+00, 0.8598E+00,& - 0.8655E+00, 0.8711E+00, 0.8768E+00, 0.8825E+00,& - 0.8884E+00, 0.8942E+00, 0.9001E+00, 0.9059E+00,& - 0.9118E+00, 0.9178E+00, 0.9237E+00, 0.9298E+00,& - 0.9358E+00, 0.9420E+00, 0.9481E+00, 0.9543E+00,& - 0.9605E+00, 0.9668E+00, 0.9730E+00, 0.9794E+00,& - 0.9858E+00, 0.9922E+00, 0.9986E+00, 0.1005E+01,& - 0.1012E+01, 0.1018E+01, 0.1025E+01, 0.1031E+01,& - 0.1038E+01, 0.1045E+01, 0.1052E+01, 0.1059E+01,& - 0.1066E+01, 0.1072E+01, 0.1079E+01, 0.1086E+01,& - 0.1093E+01, 0.1100E+01, 0.1107E+01, 0.1115E+01,& - 0.1122E+01, 0.1129E+01, 0.1137E+01, 0.1144E+01,& - 0.1151E+01, 0.1159E+01, 0.1166E+01, 0.1174E+01,& - 0.1181E+01, 0.1189E+01, 0.1197E+01, 0.1205E+01,& - 0.1212E+01, 0.1220E+01, 0.1228E+01, 0.1236E+01,& - 0.1244E+01, 0.1252E+01, 0.1260E+01, 0.1268E+01,& - 0.1277E+01, 0.1285E+01, 0.1293E+01, 0.1301E+01,& - 0.1310E+01, 0.1319E+01, 0.1327E+01, 0.1336E+01,& - 0.1344E+01, 0.1353E+01, 0.1362E+01, 0.1371E+01,& - 0.1380E+01, 0.1388E+01, 0.1397E+01, 0.1407E+01,& - 0.1416E+01, 0.1425E+01, 0.1434E+01, 0.1443E+01,& - 0.1453E+01, 0.1462E+01, 0.1472E+01, 0.1482E+01,& - 0.1491E+01, 0.1501E+01, 0.1511E+01, 0.1521E+01,& - 0.1530E+01, 0.1540E+01, 0.1550E+01, 0.1561E+01,& - 0.1571E+01, 0.1581E+01, 0.1591E+01, 0.1602E+01,& - 0.1612E+01, 0.1623E+01, 0.1634E+01, 0.1644E+01,& - 0.1655E+01, 0.1666E+01, 0.1677E+01, 0.1688E+01,& - 0.1699E+01, 0.1710E+01, 0.1722E+01, 0.1733E+01,& - 0.1744E+01, 0.1756E+01, 0.1768E+01, 0.1779E+01,& - 0.1791E+01, 0.1803E+01, 0.1815E+01, 0.1827E+01,& - 0.1839E+01, 0.1852E+01, 0.1864E+01, 0.1876E+01,& - 0.1889E+01, 0.1902E+01, 0.1914E+01, 0.1927E+01,& - 0.1940E+01, 0.1953E+01, 0.1966E+01, 0.1979E+01,& - 0.1993E+01, 0.2006E+01, 0.2020E+01, 0.2034E+01,& - 0.2047E+01, 0.2061E+01, 0.2075E+01, 0.2089E+01,& - 0.2104E+01, 0.2118E+01, 0.2132E+01, 0.2147E+01,& - 0.2162E+01, 0.2176E+01, 0.2191E+01, 0.2206E+01,& - 0.2222E+01, 0.2237E+01, 0.2252E+01, 0.2268E+01,& - 0.2284E+01, 0.2300E+01, 0.2316E+01, 0.2332E+01,& - 0.2348E+01, 0.2365E+01, 0.2381E+01, 0.2398E+01,& - 0.2415E+01, 0.2432E+01, 0.2449E+01, 0.2466E+01,& - 0.2484E+01, 0.2502E+01, 0.2519E+01, 0.2538E+01,& - 0.2556E+01, 0.2574E+01, 0.2592E+01, 0.2611E+01,& - 0.2630E+01, 0.2649E+01, 0.2668E+01, 0.2688E+01,& - 0.2707E+01, 0.2727E+01, 0.2747E+01, 0.2767E+01,& - 0.2788E+01, 0.2808E+01, 0.2829E+01, 0.2850E+01,& - 0.2871E+01, 0.2893E+01, 0.2915E+01, 0.2937E+01,& - 0.2959E+01, 0.2981E+01, 0.3004E+01, 0.3027E+01,& - 0.3050E+01, 0.3073E+01, 0.3097E+01, 0.3121E+01,& - 0.3145E+01, 0.3170E+01, 0.3194E+01, 0.3219E+01,& - 0.3245E+01, 0.3270E+01, 0.3296E+01, 0.3323E+01,& - 0.3349E+01, 0.3376E+01, 0.3403E+01, 0.3431E+01,& - 0.3459E+01, 0.3487E+01, 0.3515E+01, 0.3544E+01,& - 0.3574E+01, 0.3604E+01, 0.3634E+01, 0.3664E+01,& - 0.3695E+01, 0.3726E+01, 0.3758E+01, 0.3791E+01,& - 0.3823E+01, 0.3856E+01, 0.3890E+01, 0.3924E+01,& - 0.3959E+01, 0.3994E+01, 0.4030E+01, 0.4066E+01,& - 0.4103E+01, 0.4140E+01, 0.4178E+01, 0.4217E+01,& - 0.4256E+01, 0.4296E+01, 0.4336E+01, 0.4378E+01,& - 0.4420E+01, 0.4462E+01, 0.4506E+01, 0.4550E+01,& - 0.4595E+01, 0.4641E+01, 0.4688E+01, 0.4735E+01,& - 0.4784E+01, 0.4833E+01, 0.4884E+01, 0.4936E+01,& - 0.4988E+01, 0.5042E+01, 0.5097E+01, 0.5153E+01,& - 0.5211E+01, 0.5270E+01, 0.5330E+01, 0.5392E+01,& - 0.5455E+01, 0.5520E+01, 0.5586E+01, 0.5655E+01,& - 0.5725E+01, 0.5797E+01, 0.5871E+01, 0.5948E+01,& - 0.6026E+01, 0.6108E+01, 0.6192E+01, 0.6278E+01,& - 0.6368E+01, 0.6461E+01, 0.6557E+01, 0.6658E+01,& - 0.6762E+01, 0.6870E+01, 0.6983E+01, 0.7102E+01,& - 0.7225E+01, 0.7356E+01, 0.7492E+01, 0.7638E+01,& - 0.7791E+01, 0.7954E+01, 0.8128E+01, 0.8315E+01,& - 0.8516E+01, 0.8735E+01, 0.8975E+01, 0.9239E+01,& - 0.9536E+01, 0.9872E+01, 0.1026E+02, 0.1073E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 76) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1969E-03, 0.1969E-03, 0.1969E-03, 0.1969E-03,& - 0.1969E-03, 0.1969E-03, 0.1969E-03, 0.1969E-03,& - 0.1969E-03, 0.1969E-03, 0.1969E-03, 0.1969E-03,& - 0.1969E-03, 0.1969E-03, 0.1969E-03, 0.1969E-03,& - 0.1969E-03, 0.3839E-03, 0.3839E-03, 0.3839E-03,& - 0.3839E-03, 0.3839E-03, 0.3839E-03, 0.3839E-03,& - 0.3839E-03, 0.3839E-03, 0.3839E-03, 0.3839E-03,& - 0.3839E-03, 0.5708E-03, 0.5708E-03, 0.5708E-03,& - 0.5708E-03, 0.5708E-03, 0.5708E-03, 0.5708E-03,& - 0.5708E-03, 0.7578E-03, 0.7578E-03, 0.7578E-03,& - 0.7578E-03, 0.7578E-03, 0.7578E-03, 0.7578E-03,& - 0.7578E-03, 0.9447E-03, 0.9447E-03, 0.9447E-03,& - 0.9447E-03, 0.9447E-03, 0.9447E-03, 0.1132E-02,& - 0.1132E-02, 0.1132E-02, 0.1132E-02, 0.1132E-02,& - 0.1132E-02, 0.1319E-02, 0.1319E-02, 0.1319E-02,& - 0.1319E-02, 0.1319E-02, 0.1506E-02, 0.1506E-02,& - 0.1506E-02, 0.1506E-02, 0.1692E-02, 0.1692E-02,& - 0.1692E-02, 0.1692E-02, 0.1879E-02, 0.1879E-02,& - 0.1879E-02, 0.1879E-02, 0.2066E-02, 0.2066E-02,& - 0.2066E-02, 0.2066E-02, 0.2253E-02, 0.2253E-02,& - 0.2253E-02, 0.2440E-02, 0.2440E-02, 0.2440E-02,& - 0.2627E-02, 0.2627E-02, 0.2627E-02, 0.2814E-02,& - 0.2814E-02, 0.2814E-02, 0.3001E-02, 0.3001E-02,& - 0.3001E-02, 0.3188E-02, 0.3188E-02, 0.3375E-02,& - 0.3375E-02, 0.3375E-02, 0.3562E-02, 0.3562E-02,& - 0.3749E-02, 0.3749E-02, 0.3749E-02, 0.3936E-02,& - 0.3936E-02, 0.4123E-02, 0.4123E-02, 0.4310E-02,& - 0.4310E-02, 0.4497E-02, 0.4497E-02, 0.4684E-02,& - 0.4684E-02, 0.4871E-02, 0.4871E-02, 0.5057E-02,& - 0.5057E-02, 0.5244E-02, 0.5244E-02, 0.5431E-02,& - 0.5431E-02, 0.5618E-02, 0.5805E-02, 0.5805E-02,& - 0.5992E-02, 0.5992E-02, 0.6179E-02, 0.6366E-02,& - 0.6366E-02, 0.6553E-02, 0.6740E-02, 0.6740E-02,& - 0.6927E-02, 0.7114E-02, 0.7114E-02, 0.7301E-02,& - 0.7488E-02, 0.7488E-02, 0.7675E-02, 0.7862E-02,& - 0.8049E-02, 0.8049E-02, 0.8236E-02, 0.8422E-02,& - 0.8609E-02, 0.8796E-02, 0.8796E-02, 0.8983E-02,& - 0.9170E-02, 0.9357E-02, 0.9544E-02, 0.9731E-02,& - 0.9731E-02, 0.9918E-02, 0.1010E-01, 0.1029E-01,& - 0.1048E-01, 0.1067E-01, 0.1085E-01, 0.1104E-01,& - 0.1123E-01, 0.1141E-01, 0.1160E-01, 0.1179E-01,& - 0.1197E-01, 0.1216E-01, 0.1235E-01, 0.1254E-01,& - 0.1272E-01, 0.1291E-01, 0.1310E-01, 0.1328E-01,& - 0.1366E-01, 0.1384E-01, 0.1403E-01, 0.1422E-01,& - 0.1440E-01, 0.1459E-01, 0.1497E-01, 0.1515E-01,& - 0.1534E-01, 0.1553E-01, 0.1571E-01, 0.1609E-01,& - 0.1627E-01, 0.1646E-01, 0.1683E-01, 0.1702E-01,& - 0.1721E-01, 0.1758E-01, 0.1777E-01, 0.1796E-01,& - 0.1833E-01, 0.1852E-01, 0.1889E-01, 0.1908E-01,& - 0.1945E-01, 0.1964E-01, 0.2001E-01, 0.2020E-01,& - 0.2057E-01, 0.2076E-01, 0.2113E-01, 0.2132E-01,& - 0.2170E-01, 0.2207E-01, 0.2226E-01, 0.2263E-01,& - 0.2282E-01, 0.2319E-01, 0.2356E-01, 0.2394E-01,& - 0.2413E-01, 0.2450E-01, 0.2487E-01, 0.2525E-01,& - 0.2543E-01, 0.2581E-01, 0.2618E-01, 0.2656E-01,& - 0.2693E-01, 0.2730E-01, 0.2768E-01, 0.2805E-01,& - 0.2843E-01, 0.2880E-01, 0.2917E-01, 0.2955E-01,& - 0.2992E-01, 0.3029E-01, 0.3067E-01, 0.3104E-01,& - 0.3142E-01, 0.3179E-01, 0.3216E-01, 0.3254E-01,& - 0.3310E-01, 0.3347E-01, 0.3385E-01, 0.3422E-01,& - 0.3478E-01, 0.3516E-01, 0.3553E-01, 0.3609E-01,& - 0.3646E-01, 0.3684E-01, 0.3740E-01, 0.3777E-01,& - 0.3833E-01, 0.3871E-01, 0.3927E-01, 0.3964E-01,& - 0.4020E-01, 0.4058E-01, 0.4114E-01, 0.4170E-01,& - 0.4207E-01, 0.4263E-01, 0.4319E-01, 0.4357E-01,& - 0.4413E-01, 0.4469E-01, 0.4525E-01, 0.4562E-01,& - 0.4619E-01, 0.4675E-01, 0.4731E-01, 0.4787E-01,& - 0.4843E-01, 0.4899E-01, 0.4955E-01, 0.5011E-01,& - 0.5067E-01, 0.5123E-01, 0.5179E-01, 0.5235E-01,& - 0.5292E-01, 0.5366E-01, 0.5422E-01, 0.5478E-01,& - 0.5535E-01, 0.5609E-01, 0.5665E-01, 0.5721E-01,& - 0.5796E-01, 0.5852E-01, 0.5927E-01, 0.5983E-01,& - 0.6039E-01, 0.6114E-01, 0.6189E-01, 0.6245E-01,& - 0.6320E-01, 0.6376E-01, 0.6451E-01, 0.6525E-01,& - 0.6600E-01, 0.6656E-01, 0.6731E-01, 0.6806E-01,& - 0.6881E-01, 0.6955E-01, 0.7030E-01, 0.7105E-01,& - 0.7180E-01, 0.7254E-01, 0.7329E-01, 0.7404E-01,& - 0.7479E-01, 0.7554E-01, 0.7628E-01, 0.7703E-01,& - 0.7797E-01, 0.7871E-01, 0.7946E-01, 0.8040E-01,& - 0.8114E-01, 0.8189E-01, 0.8283E-01, 0.8357E-01,& - 0.8451E-01, 0.8526E-01, 0.8619E-01, 0.8713E-01,& - 0.8787E-01, 0.8881E-01, 0.8974E-01, 0.9049E-01,& - 0.9143E-01, 0.9236E-01, 0.9330E-01, 0.9423E-01,& - 0.9516E-01, 0.9610E-01, 0.9703E-01, 0.9797E-01,& - 0.9890E-01, 0.9984E-01, 0.1008E+00, 0.1019E+00,& - 0.1028E+00, 0.1038E+00, 0.1049E+00, 0.1058E+00,& - 0.1068E+00, 0.1079E+00, 0.1088E+00, 0.1099E+00,& - 0.1109E+00, 0.1120E+00, 0.1131E+00, 0.1140E+00,& - 0.1152E+00, 0.1163E+00, 0.1174E+00, 0.1185E+00,& - 0.1197E+00, 0.1208E+00, 0.1219E+00, 0.1230E+00,& - 0.1241E+00, 0.1253E+00, 0.1264E+00, 0.1275E+00,& - 0.1288E+00, 0.1299E+00, 0.1311E+00, 0.1324E+00,& - 0.1335E+00, 0.1348E+00, 0.1359E+00, 0.1372E+00,& - 0.1385E+00, 0.1397E+00, 0.1410E+00, 0.1423E+00,& - 0.1436E+00, 0.1447E+00, 0.1460E+00, 0.1473E+00,& - 0.1486E+00, 0.1499E+00, 0.1514E+00, 0.1527E+00,& - 0.1541E+00, 0.1554E+00, 0.1569E+00, 0.1582E+00,& - 0.1595E+00, 0.1610E+00, 0.1623E+00, 0.1638E+00,& - 0.1653E+00, 0.1666E+00, 0.1681E+00, 0.1696E+00,& - 0.1711E+00, 0.1726E+00, 0.1741E+00, 0.1756E+00,& - 0.1770E+00, 0.1785E+00, 0.1800E+00, 0.1815E+00,& - 0.1830E+00, 0.1847E+00, 0.1862E+00, 0.1879E+00,& - 0.1894E+00, 0.1911E+00, 0.1926E+00, 0.1942E+00,& - 0.1959E+00, 0.1976E+00, 0.1991E+00, 0.2008E+00,& - 0.2025E+00, 0.2042E+00, 0.2058E+00, 0.2077E+00,& - 0.2094E+00, 0.2111E+00, 0.2128E+00, 0.2146E+00,& - 0.2163E+00, 0.2182E+00, 0.2199E+00, 0.2217E+00,& - 0.2236E+00, 0.2253E+00, 0.2271E+00, 0.2290E+00,& - 0.2309E+00, 0.2328E+00, 0.2346E+00, 0.2365E+00,& - 0.2386E+00, 0.2404E+00, 0.2423E+00, 0.2443E+00,& - 0.2462E+00, 0.2483E+00, 0.2501E+00, 0.2522E+00,& - 0.2543E+00, 0.2563E+00, 0.2584E+00, 0.2604E+00,& - 0.2625E+00, 0.2645E+00, 0.2666E+00, 0.2686E+00,& - 0.2709E+00, 0.2729E+00, 0.2750E+00, 0.2772E+00,& - 0.2795E+00, 0.2815E+00, 0.2838E+00, 0.2860E+00,& - 0.2883E+00, 0.2905E+00, 0.2928E+00, 0.2950E+00,& - 0.2973E+00, 0.2997E+00, 0.3019E+00, 0.3042E+00,& - 0.3066E+00, 0.3090E+00, 0.3113E+00, 0.3137E+00,& - 0.3161E+00, 0.3186E+00, 0.3210E+00, 0.3234E+00,& - 0.3259E+00, 0.3283E+00, 0.3309E+00, 0.3333E+00,& - 0.3359E+00, 0.3384E+00, 0.3410E+00, 0.3436E+00,& - 0.3462E+00, 0.3488E+00, 0.3515E+00, 0.3541E+00,& - 0.3567E+00, 0.3593E+00, 0.3619E+00, 0.3647E+00,& - 0.3675E+00, 0.3702E+00, 0.3730E+00, 0.3758E+00,& - 0.3786E+00, 0.3814E+00, 0.3842E+00, 0.3870E+00,& - 0.3898E+00, 0.3928E+00, 0.3956E+00, 0.3986E+00,& - 0.4014E+00, 0.4044E+00, 0.4074E+00, 0.4104E+00,& - 0.4133E+00, 0.4163E+00, 0.4193E+00, 0.4225E+00,& - 0.4255E+00, 0.4287E+00, 0.4317E+00, 0.4348E+00,& - 0.4380E+00, 0.4412E+00, 0.4444E+00, 0.4476E+00,& - 0.4507E+00, 0.4541E+00, 0.4573E+00, 0.4606E+00,& - 0.4638E+00, 0.4672E+00, 0.4705E+00, 0.4739E+00,& - 0.4773E+00, 0.4806E+00, 0.4842E+00, 0.4876E+00,& - 0.4911E+00, 0.4945E+00, 0.4980E+00, 0.5016E+00,& - 0.5051E+00, 0.5087E+00, 0.5124E+00, 0.5160E+00,& - 0.5195E+00, 0.5233E+00, 0.5270E+00, 0.5307E+00,& - 0.5345E+00, 0.5382E+00, 0.5420E+00, 0.5457E+00,& - 0.5496E+00, 0.5534E+00, 0.5573E+00, 0.5612E+00,& - 0.5651E+00, 0.5691E+00, 0.5730E+00, 0.5769E+00,& - 0.5810E+00, 0.5850E+00, 0.5891E+00, 0.5932E+00,& - 0.5973E+00, 0.6014E+00, 0.6055E+00, 0.6098E+00,& - 0.6139E+00, 0.6182E+00, 0.6225E+00, 0.6268E+00,& - 0.6311E+00, 0.6354E+00, 0.6397E+00, 0.6442E+00,& - 0.6485E+00, 0.6530E+00, 0.6575E+00, 0.6620E+00,& - 0.6665E+00, 0.6711E+00, 0.6756E+00, 0.6803E+00,& - 0.6850E+00, 0.6896E+00, 0.6943E+00, 0.6990E+00,& - 0.7039E+00, 0.7085E+00, 0.7134E+00, 0.7182E+00,& - 0.7231E+00, 0.7280E+00, 0.7328E+00, 0.7379E+00,& - 0.7429E+00, 0.7478E+00, 0.7528E+00, 0.7581E+00,& - 0.7631E+00, 0.7683E+00, 0.7734E+00, 0.7786E+00,& - 0.7839E+00, 0.7891E+00, 0.7945E+00, 0.7998E+00,& - 0.8052E+00, 0.8106E+00, 0.8160E+00, 0.8214E+00,& - 0.8270E+00, 0.8325E+00, 0.8381E+00, 0.8437E+00,& - 0.8493E+00, 0.8551E+00, 0.8607E+00, 0.8665E+00,& - 0.8723E+00, 0.8781E+00, 0.8839E+00, 0.8899E+00,& - 0.8957E+00, 0.9016E+00, 0.9076E+00, 0.9138E+00,& - 0.9198E+00, 0.9259E+00, 0.9321E+00, 0.9383E+00,& - 0.9445E+00, 0.9508E+00, 0.9572E+00, 0.9633E+00,& - 0.9699E+00, 0.9762E+00, 0.9828E+00, 0.9891E+00,& - 0.9957E+00, 0.1002E+01, 0.1009E+01, 0.1016E+01,& - 0.1022E+01, 0.1029E+01, 0.1036E+01, 0.1043E+01,& - 0.1050E+01, 0.1057E+01, 0.1064E+01, 0.1071E+01,& - 0.1078E+01, 0.1085E+01, 0.1092E+01, 0.1099E+01,& - 0.1106E+01, 0.1114E+01, 0.1121E+01, 0.1128E+01,& - 0.1136E+01, 0.1143E+01, 0.1151E+01, 0.1159E+01,& - 0.1166E+01, 0.1174E+01, 0.1182E+01, 0.1189E+01,& - 0.1197E+01, 0.1205E+01, 0.1213E+01, 0.1221E+01,& - 0.1229E+01, 0.1237E+01, 0.1245E+01, 0.1254E+01,& - 0.1262E+01, 0.1270E+01, 0.1279E+01, 0.1287E+01,& - 0.1296E+01, 0.1304E+01, 0.1313E+01, 0.1321E+01,& - 0.1330E+01, 0.1339E+01, 0.1348E+01, 0.1356E+01,& - 0.1365E+01, 0.1374E+01, 0.1384E+01, 0.1393E+01,& - 0.1402E+01, 0.1411E+01, 0.1421E+01, 0.1430E+01,& - 0.1439E+01, 0.1449E+01, 0.1459E+01, 0.1468E+01,& - 0.1478E+01, 0.1488E+01, 0.1498E+01, 0.1508E+01,& - 0.1518E+01, 0.1528E+01, 0.1538E+01, 0.1548E+01,& - 0.1558E+01, 0.1569E+01, 0.1579E+01, 0.1590E+01,& - 0.1600E+01, 0.1611E+01, 0.1622E+01, 0.1633E+01,& - 0.1643E+01, 0.1654E+01, 0.1665E+01, 0.1677E+01,& - 0.1688E+01, 0.1699E+01, 0.1711E+01, 0.1722E+01,& - 0.1734E+01, 0.1745E+01, 0.1757E+01, 0.1769E+01,& - 0.1781E+01, 0.1793E+01, 0.1805E+01, 0.1817E+01,& - 0.1830E+01, 0.1842E+01, 0.1854E+01, 0.1867E+01,& - 0.1880E+01, 0.1892E+01, 0.1905E+01, 0.1918E+01,& - 0.1931E+01, 0.1945E+01, 0.1958E+01, 0.1971E+01,& - 0.1985E+01, 0.1998E+01, 0.2012E+01, 0.2026E+01,& - 0.2040E+01, 0.2054E+01, 0.2068E+01, 0.2082E+01,& - 0.2097E+01, 0.2111E+01, 0.2126E+01, 0.2141E+01,& - 0.2156E+01, 0.2171E+01, 0.2186E+01, 0.2201E+01,& - 0.2217E+01, 0.2232E+01, 0.2248E+01, 0.2264E+01,& - 0.2280E+01, 0.2296E+01, 0.2312E+01, 0.2328E+01,& - 0.2345E+01, 0.2361E+01, 0.2378E+01, 0.2395E+01,& - 0.2412E+01, 0.2430E+01, 0.2447E+01, 0.2465E+01,& - 0.2482E+01, 0.2500E+01, 0.2519E+01, 0.2537E+01,& - 0.2555E+01, 0.2574E+01, 0.2593E+01, 0.2612E+01,& - 0.2631E+01, 0.2650E+01, 0.2670E+01, 0.2689E+01,& - 0.2709E+01, 0.2729E+01, 0.2750E+01, 0.2770E+01,& - 0.2791E+01, 0.2812E+01, 0.2833E+01, 0.2854E+01,& - 0.2876E+01, 0.2898E+01, 0.2920E+01, 0.2942E+01,& - 0.2965E+01, 0.2988E+01, 0.3011E+01, 0.3034E+01,& - 0.3057E+01, 0.3081E+01, 0.3105E+01, 0.3130E+01,& - 0.3154E+01, 0.3179E+01, 0.3204E+01, 0.3230E+01,& - 0.3255E+01, 0.3282E+01, 0.3308E+01, 0.3335E+01,& - 0.3362E+01, 0.3389E+01, 0.3417E+01, 0.3445E+01,& - 0.3473E+01, 0.3502E+01, 0.3531E+01, 0.3561E+01,& - 0.3590E+01, 0.3621E+01, 0.3651E+01, 0.3682E+01,& - 0.3714E+01, 0.3746E+01, 0.3778E+01, 0.3811E+01,& - 0.3845E+01, 0.3878E+01, 0.3913E+01, 0.3948E+01,& - 0.3983E+01, 0.4019E+01, 0.4055E+01, 0.4092E+01,& - 0.4129E+01, 0.4168E+01, 0.4206E+01, 0.4246E+01,& - 0.4286E+01, 0.4326E+01, 0.4368E+01, 0.4410E+01,& - 0.4452E+01, 0.4496E+01, 0.4540E+01, 0.4585E+01,& - 0.4631E+01, 0.4678E+01, 0.4726E+01, 0.4775E+01,& - 0.4824E+01, 0.4875E+01, 0.4926E+01, 0.4979E+01,& - 0.5033E+01, 0.5088E+01, 0.5144E+01, 0.5201E+01,& - 0.5260E+01, 0.5320E+01, 0.5382E+01, 0.5445E+01,& - 0.5509E+01, 0.5576E+01, 0.5644E+01, 0.5714E+01,& - 0.5785E+01, 0.5859E+01, 0.5935E+01, 0.6013E+01,& - 0.6094E+01, 0.6177E+01, 0.6262E+01, 0.6351E+01,& - 0.6443E+01, 0.6538E+01, 0.6637E+01, 0.6739E+01,& - 0.6845E+01, 0.6956E+01, 0.7072E+01, 0.7193E+01,& - 0.7320E+01, 0.7453E+01, 0.7594E+01, 0.7742E+01,& - 0.7899E+01, 0.8066E+01, 0.8244E+01, 0.8435E+01,& - 0.8641E+01, 0.8866E+01, 0.9111E+01, 0.9382E+01,& - 0.9686E+01, 0.1003E+02, 0.1043E+02, 0.1091E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 77) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.2007E-03, 0.2007E-03,& - 0.2007E-03, 0.2007E-03, 0.2007E-03, 0.2007E-03,& - 0.2007E-03, 0.2007E-03, 0.2007E-03, 0.2007E-03,& - 0.2007E-03, 0.2007E-03, 0.2007E-03, 0.2007E-03,& - 0.2007E-03, 0.2007E-03, 0.2007E-03, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.3915E-03, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.3915E-03, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.3915E-03, 0.5822E-03,& - 0.5822E-03, 0.5822E-03, 0.5822E-03, 0.5822E-03,& - 0.5822E-03, 0.5822E-03, 0.5822E-03, 0.5822E-03,& - 0.7729E-03, 0.7729E-03, 0.7729E-03, 0.7729E-03,& - 0.7729E-03, 0.7729E-03, 0.7729E-03, 0.9637E-03,& - 0.9637E-03, 0.9637E-03, 0.9637E-03, 0.9637E-03,& - 0.9637E-03, 0.9637E-03, 0.1154E-02, 0.1154E-02,& - 0.1154E-02, 0.1154E-02, 0.1154E-02, 0.1154E-02,& - 0.1345E-02, 0.1345E-02, 0.1345E-02, 0.1345E-02,& - 0.1345E-02, 0.1536E-02, 0.1536E-02, 0.1536E-02,& - 0.1536E-02, 0.1727E-02, 0.1727E-02, 0.1727E-02,& - 0.1727E-02, 0.1917E-02, 0.1917E-02, 0.1917E-02,& - 0.1917E-02, 0.2108E-02, 0.2108E-02, 0.2108E-02,& - 0.2108E-02, 0.2299E-02, 0.2299E-02, 0.2299E-02,& - 0.2490E-02, 0.2490E-02, 0.2490E-02, 0.2490E-02,& - 0.2680E-02, 0.2680E-02, 0.2680E-02, 0.2871E-02,& - 0.2871E-02, 0.2871E-02, 0.3062E-02, 0.3062E-02,& - 0.3252E-02, 0.3252E-02, 0.3252E-02, 0.3443E-02,& - 0.3443E-02, 0.3443E-02, 0.3634E-02, 0.3634E-02,& - 0.3825E-02, 0.3825E-02, 0.3825E-02, 0.4015E-02,& - 0.4015E-02, 0.4206E-02, 0.4206E-02, 0.4397E-02,& - 0.4397E-02, 0.4588E-02, 0.4588E-02, 0.4778E-02,& - 0.4778E-02, 0.4969E-02, 0.4969E-02, 0.5160E-02,& - 0.5160E-02, 0.5351E-02, 0.5351E-02, 0.5541E-02,& - 0.5541E-02, 0.5732E-02, 0.5923E-02, 0.5923E-02,& - 0.6114E-02, 0.6114E-02, 0.6304E-02, 0.6495E-02,& - 0.6495E-02, 0.6686E-02, 0.6876E-02, 0.6876E-02,& - 0.7067E-02, 0.7258E-02, 0.7258E-02, 0.7449E-02,& - 0.7639E-02, 0.7639E-02, 0.7830E-02, 0.8021E-02,& - 0.8021E-02, 0.8212E-02, 0.8402E-02, 0.8593E-02,& - 0.8784E-02, 0.8784E-02, 0.8975E-02, 0.9165E-02,& - 0.9356E-02, 0.9547E-02, 0.9547E-02, 0.9737E-02,& - 0.9928E-02, 0.1012E-01, 0.1031E-01, 0.1050E-01,& - 0.1069E-01, 0.1088E-01, 0.1107E-01, 0.1126E-01,& - 0.1145E-01, 0.1145E-01, 0.1164E-01, 0.1184E-01,& - 0.1203E-01, 0.1222E-01, 0.1241E-01, 0.1279E-01,& - 0.1298E-01, 0.1317E-01, 0.1336E-01, 0.1355E-01,& - 0.1374E-01, 0.1393E-01, 0.1412E-01, 0.1432E-01,& - 0.1451E-01, 0.1489E-01, 0.1508E-01, 0.1527E-01,& - 0.1546E-01, 0.1565E-01, 0.1603E-01, 0.1622E-01,& - 0.1641E-01, 0.1679E-01, 0.1699E-01, 0.1718E-01,& - 0.1737E-01, 0.1775E-01, 0.1794E-01, 0.1832E-01,& - 0.1851E-01, 0.1870E-01, 0.1908E-01, 0.1927E-01,& - 0.1966E-01, 0.1985E-01, 0.2023E-01, 0.2042E-01,& - 0.2080E-01, 0.2099E-01, 0.2137E-01, 0.2156E-01,& - 0.2194E-01, 0.2214E-01, 0.2252E-01, 0.2290E-01,& - 0.2309E-01, 0.2347E-01, 0.2385E-01, 0.2404E-01,& - 0.2442E-01, 0.2481E-01, 0.2500E-01, 0.2538E-01,& - 0.2576E-01, 0.2614E-01, 0.2652E-01, 0.2690E-01,& - 0.2709E-01, 0.2748E-01, 0.2786E-01, 0.2824E-01,& - 0.2862E-01, 0.2900E-01, 0.2938E-01, 0.2976E-01,& - 0.3015E-01, 0.3053E-01, 0.3091E-01, 0.3129E-01,& - 0.3167E-01, 0.3205E-01, 0.3243E-01, 0.3301E-01,& - 0.3339E-01, 0.3377E-01, 0.3415E-01, 0.3453E-01,& - 0.3511E-01, 0.3549E-01, 0.3587E-01, 0.3644E-01,& - 0.3682E-01, 0.3720E-01, 0.3778E-01, 0.3816E-01,& - 0.3873E-01, 0.3911E-01, 0.3968E-01, 0.4006E-01,& - 0.4064E-01, 0.4102E-01, 0.4159E-01, 0.4197E-01,& - 0.4254E-01, 0.4312E-01, 0.4350E-01, 0.4407E-01,& - 0.4464E-01, 0.4502E-01, 0.4560E-01, 0.4617E-01,& - 0.4674E-01, 0.4731E-01, 0.4788E-01, 0.4827E-01,& - 0.4884E-01, 0.4941E-01, 0.4998E-01, 0.5055E-01,& - 0.5113E-01, 0.5170E-01, 0.5227E-01, 0.5303E-01,& - 0.5361E-01, 0.5418E-01, 0.5475E-01, 0.5532E-01,& - 0.5609E-01, 0.5666E-01, 0.5723E-01, 0.5780E-01,& - 0.5857E-01, 0.5914E-01, 0.5990E-01, 0.6047E-01,& - 0.6124E-01, 0.6181E-01, 0.6257E-01, 0.6314E-01,& - 0.6391E-01, 0.6448E-01, 0.6524E-01, 0.6600E-01,& - 0.6658E-01, 0.6734E-01, 0.6810E-01, 0.6887E-01,& - 0.6963E-01, 0.7020E-01, 0.7096E-01, 0.7173E-01,& - 0.7249E-01, 0.7325E-01, 0.7402E-01, 0.7478E-01,& - 0.7554E-01, 0.7649E-01, 0.7726E-01, 0.7802E-01,& - 0.7878E-01, 0.7955E-01, 0.8050E-01, 0.8126E-01,& - 0.8203E-01, 0.8298E-01, 0.8374E-01, 0.8470E-01,& - 0.8546E-01, 0.8641E-01, 0.8718E-01, 0.8813E-01,& - 0.8908E-01, 0.8985E-01, 0.9080E-01, 0.9175E-01,& - 0.9271E-01, 0.9366E-01, 0.9442E-01, 0.9538E-01,& - 0.9633E-01, 0.9728E-01, 0.9824E-01, 0.9919E-01,& - 0.1001E+00, 0.1013E+00, 0.1022E+00, 0.1032E+00,& - 0.1042E+00, 0.1053E+00, 0.1062E+00, 0.1072E+00,& - 0.1083E+00, 0.1093E+00, 0.1104E+00, 0.1114E+00,& - 0.1125E+00, 0.1135E+00, 0.1146E+00, 0.1158E+00,& - 0.1169E+00, 0.1179E+00, 0.1190E+00, 0.1202E+00,& - 0.1213E+00, 0.1225E+00, 0.1236E+00, 0.1248E+00,& - 0.1259E+00, 0.1270E+00, 0.1284E+00, 0.1295E+00,& - 0.1307E+00, 0.1318E+00, 0.1331E+00, 0.1343E+00,& - 0.1356E+00, 0.1368E+00, 0.1381E+00, 0.1392E+00,& - 0.1406E+00, 0.1419E+00, 0.1433E+00, 0.1444E+00,& - 0.1457E+00, 0.1471E+00, 0.1484E+00, 0.1497E+00,& - 0.1511E+00, 0.1524E+00, 0.1537E+00, 0.1553E+00,& - 0.1566E+00, 0.1579E+00, 0.1593E+00, 0.1608E+00,& - 0.1621E+00, 0.1637E+00, 0.1650E+00, 0.1665E+00,& - 0.1680E+00, 0.1694E+00, 0.1709E+00, 0.1724E+00,& - 0.1740E+00, 0.1755E+00, 0.1770E+00, 0.1785E+00,& - 0.1801E+00, 0.1816E+00, 0.1831E+00, 0.1848E+00,& - 0.1864E+00, 0.1879E+00, 0.1896E+00, 0.1911E+00,& - 0.1928E+00, 0.1944E+00, 0.1961E+00, 0.1978E+00,& - 0.1995E+00, 0.2012E+00, 0.2028E+00, 0.2045E+00,& - 0.2062E+00, 0.2081E+00, 0.2098E+00, 0.2115E+00,& - 0.2133E+00, 0.2152E+00, 0.2169E+00, 0.2186E+00,& - 0.2205E+00, 0.2224E+00, 0.2241E+00, 0.2260E+00,& - 0.2279E+00, 0.2298E+00, 0.2316E+00, 0.2335E+00,& - 0.2356E+00, 0.2375E+00, 0.2394E+00, 0.2413E+00,& - 0.2432E+00, 0.2453E+00, 0.2472E+00, 0.2493E+00,& - 0.2512E+00, 0.2533E+00, 0.2554E+00, 0.2575E+00,& - 0.2594E+00, 0.2615E+00, 0.2636E+00, 0.2657E+00,& - 0.2680E+00, 0.2701E+00, 0.2722E+00, 0.2745E+00,& - 0.2766E+00, 0.2789E+00, 0.2810E+00, 0.2833E+00,& - 0.2855E+00, 0.2876E+00, 0.2899E+00, 0.2922E+00,& - 0.2945E+00, 0.2968E+00, 0.2993E+00, 0.3016E+00,& - 0.3039E+00, 0.3063E+00, 0.3086E+00, 0.3111E+00,& - 0.3136E+00, 0.3159E+00, 0.3183E+00, 0.3208E+00,& - 0.3233E+00, 0.3258E+00, 0.3283E+00, 0.3309E+00,& - 0.3334E+00, 0.3361E+00, 0.3386E+00, 0.3412E+00,& - 0.3437E+00, 0.3464E+00, 0.3491E+00, 0.3517E+00,& - 0.3544E+00, 0.3571E+00, 0.3597E+00, 0.3626E+00,& - 0.3653E+00, 0.3681E+00, 0.3708E+00, 0.3737E+00,& - 0.3765E+00, 0.3792E+00, 0.3821E+00, 0.3849E+00,& - 0.3880E+00, 0.3908E+00, 0.3937E+00, 0.3967E+00,& - 0.3996E+00, 0.4027E+00, 0.4055E+00, 0.4086E+00,& - 0.4116E+00, 0.4147E+00, 0.4177E+00, 0.4210E+00,& - 0.4240E+00, 0.4271E+00, 0.4303E+00, 0.4334E+00,& - 0.4366E+00, 0.4398E+00, 0.4431E+00, 0.4463E+00,& - 0.4496E+00, 0.4528E+00, 0.4562E+00, 0.4595E+00,& - 0.4629E+00, 0.4664E+00, 0.4696E+00, 0.4730E+00,& - 0.4765E+00, 0.4799E+00, 0.4835E+00, 0.4870E+00,& - 0.4904E+00, 0.4940E+00, 0.4976E+00, 0.5013E+00,& - 0.5047E+00, 0.5085E+00, 0.5121E+00, 0.5158E+00,& - 0.5194E+00, 0.5232E+00, 0.5270E+00, 0.5306E+00,& - 0.5344E+00, 0.5383E+00, 0.5421E+00, 0.5461E+00,& - 0.5499E+00, 0.5537E+00, 0.5577E+00, 0.5617E+00,& - 0.5657E+00, 0.5697E+00, 0.5737E+00, 0.5777E+00,& - 0.5819E+00, 0.5859E+00, 0.5901E+00, 0.5943E+00,& - 0.5985E+00, 0.6027E+00, 0.6069E+00, 0.6111E+00,& - 0.6155E+00, 0.6197E+00, 0.6241E+00, 0.6285E+00,& - 0.6329E+00, 0.6373E+00, 0.6418E+00, 0.6462E+00,& - 0.6508E+00, 0.6554E+00, 0.6600E+00, 0.6645E+00,& - 0.6691E+00, 0.6737E+00, 0.6785E+00, 0.6830E+00,& - 0.6878E+00, 0.6926E+00, 0.6973E+00, 0.7023E+00,& - 0.7071E+00, 0.7120E+00, 0.7170E+00, 0.7218E+00,& - 0.7269E+00, 0.7319E+00, 0.7368E+00, 0.7420E+00,& - 0.7471E+00, 0.7521E+00, 0.7574E+00, 0.7626E+00,& - 0.7677E+00, 0.7731E+00, 0.7784E+00, 0.7837E+00,& - 0.7891E+00, 0.7944E+00, 0.7998E+00, 0.8053E+00,& - 0.8108E+00, 0.8164E+00, 0.8219E+00, 0.8274E+00,& - 0.8331E+00, 0.8389E+00, 0.8446E+00, 0.8503E+00,& - 0.8560E+00, 0.8619E+00, 0.8677E+00, 0.8736E+00,& - 0.8795E+00, 0.8856E+00, 0.8915E+00, 0.8976E+00,& - 0.9037E+00, 0.9098E+00, 0.9159E+00, 0.9220E+00,& - 0.9283E+00, 0.9346E+00, 0.9409E+00, 0.9474E+00,& - 0.9537E+00, 0.9602E+00, 0.9667E+00, 0.9731E+00,& - 0.9796E+00, 0.9863E+00, 0.9930E+00, 0.9997E+00,& - 0.1006E+01, 0.1013E+01, 0.1020E+01, 0.1027E+01,& - 0.1034E+01, 0.1041E+01, 0.1048E+01, 0.1055E+01,& - 0.1062E+01, 0.1069E+01, 0.1076E+01, 0.1083E+01,& - 0.1091E+01, 0.1098E+01, 0.1105E+01, 0.1113E+01,& - 0.1120E+01, 0.1128E+01, 0.1135E+01, 0.1143E+01,& - 0.1151E+01, 0.1158E+01, 0.1166E+01, 0.1174E+01,& - 0.1182E+01, 0.1190E+01, 0.1198E+01, 0.1206E+01,& - 0.1214E+01, 0.1222E+01, 0.1230E+01, 0.1238E+01,& - 0.1247E+01, 0.1255E+01, 0.1264E+01, 0.1272E+01,& - 0.1281E+01, 0.1289E+01, 0.1298E+01, 0.1307E+01,& - 0.1315E+01, 0.1324E+01, 0.1333E+01, 0.1342E+01,& - 0.1351E+01, 0.1360E+01, 0.1369E+01, 0.1379E+01,& - 0.1388E+01, 0.1397E+01, 0.1407E+01, 0.1416E+01,& - 0.1426E+01, 0.1435E+01, 0.1445E+01, 0.1455E+01,& - 0.1464E+01, 0.1474E+01, 0.1484E+01, 0.1494E+01,& - 0.1504E+01, 0.1515E+01, 0.1525E+01, 0.1535E+01,& - 0.1546E+01, 0.1556E+01, 0.1567E+01, 0.1577E+01,& - 0.1588E+01, 0.1599E+01, 0.1609E+01, 0.1620E+01,& - 0.1631E+01, 0.1642E+01, 0.1654E+01, 0.1665E+01,& - 0.1676E+01, 0.1688E+01, 0.1699E+01, 0.1711E+01,& - 0.1723E+01, 0.1734E+01, 0.1746E+01, 0.1758E+01,& - 0.1770E+01, 0.1782E+01, 0.1794E+01, 0.1807E+01,& - 0.1819E+01, 0.1832E+01, 0.1844E+01, 0.1857E+01,& - 0.1870E+01, 0.1883E+01, 0.1896E+01, 0.1909E+01,& - 0.1922E+01, 0.1936E+01, 0.1949E+01, 0.1963E+01,& - 0.1976E+01, 0.1990E+01, 0.2004E+01, 0.2018E+01,& - 0.2032E+01, 0.2046E+01, 0.2061E+01, 0.2075E+01,& - 0.2090E+01, 0.2104E+01, 0.2119E+01, 0.2134E+01,& - 0.2149E+01, 0.2164E+01, 0.2180E+01, 0.2195E+01,& - 0.2211E+01, 0.2227E+01, 0.2242E+01, 0.2259E+01,& - 0.2275E+01, 0.2291E+01, 0.2308E+01, 0.2324E+01,& - 0.2341E+01, 0.2358E+01, 0.2375E+01, 0.2392E+01,& - 0.2409E+01, 0.2427E+01, 0.2445E+01, 0.2462E+01,& - 0.2481E+01, 0.2499E+01, 0.2517E+01, 0.2535E+01,& - 0.2554E+01, 0.2573E+01, 0.2592E+01, 0.2611E+01,& - 0.2631E+01, 0.2650E+01, 0.2670E+01, 0.2690E+01,& - 0.2711E+01, 0.2731E+01, 0.2752E+01, 0.2773E+01,& - 0.2794E+01, 0.2815E+01, 0.2836E+01, 0.2858E+01,& - 0.2880E+01, 0.2902E+01, 0.2925E+01, 0.2946E+01,& - 0.2970E+01, 0.2993E+01, 0.3017E+01, 0.3040E+01,& - 0.3064E+01, 0.3088E+01, 0.3113E+01, 0.3138E+01,& - 0.3163E+01, 0.3188E+01, 0.3214E+01, 0.3239E+01,& - 0.3266E+01, 0.3292E+01, 0.3319E+01, 0.3346E+01,& - 0.3374E+01, 0.3401E+01, 0.3430E+01, 0.3458E+01,& - 0.3487E+01, 0.3516E+01, 0.3546E+01, 0.3576E+01,& - 0.3606E+01, 0.3637E+01, 0.3668E+01, 0.3700E+01,& - 0.3732E+01, 0.3765E+01, 0.3798E+01, 0.3831E+01,& - 0.3865E+01, 0.3900E+01, 0.3934E+01, 0.3970E+01,& - 0.4006E+01, 0.4042E+01, 0.4079E+01, 0.4117E+01,& - 0.4155E+01, 0.4194E+01, 0.4234E+01, 0.4274E+01,& - 0.4315E+01, 0.4356E+01, 0.4398E+01, 0.4441E+01,& - 0.4485E+01, 0.4529E+01, 0.4574E+01, 0.4620E+01,& - 0.4667E+01, 0.4715E+01, 0.4764E+01, 0.4813E+01,& - 0.4864E+01, 0.4915E+01, 0.4968E+01, 0.5022E+01,& - 0.5077E+01, 0.5133E+01, 0.5190E+01, 0.5249E+01,& - 0.5309E+01, 0.5370E+01, 0.5433E+01, 0.5498E+01,& - 0.5564E+01, 0.5631E+01, 0.5701E+01, 0.5772E+01,& - 0.5845E+01, 0.5921E+01, 0.5998E+01, 0.6078E+01,& - 0.6160E+01, 0.6245E+01, 0.6333E+01, 0.6424E+01,& - 0.6517E+01, 0.6615E+01, 0.6715E+01, 0.6820E+01,& - 0.6929E+01, 0.7043E+01, 0.7161E+01, 0.7285E+01,& - 0.7415E+01, 0.7551E+01, 0.7694E+01, 0.7846E+01,& - 0.8007E+01, 0.8178E+01, 0.8360E+01, 0.8556E+01,& - 0.8767E+01, 0.8997E+01, 0.9248E+01, 0.9525E+01,& - 0.9836E+01, 0.1019E+02, 0.1060E+02, 0.1109E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 78) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2046E-03,& - 0.2046E-03, 0.2046E-03, 0.2046E-03, 0.2046E-03,& - 0.2046E-03, 0.2046E-03, 0.2046E-03, 0.2046E-03,& - 0.2046E-03, 0.2046E-03, 0.2046E-03, 0.2046E-03,& - 0.2046E-03, 0.2046E-03, 0.2046E-03, 0.2046E-03,& - 0.2046E-03, 0.3991E-03, 0.3991E-03, 0.3991E-03,& - 0.3991E-03, 0.3991E-03, 0.3991E-03, 0.3991E-03,& - 0.3991E-03, 0.3991E-03, 0.3991E-03, 0.3991E-03,& - 0.3991E-03, 0.5937E-03, 0.5937E-03, 0.5937E-03,& - 0.5937E-03, 0.5937E-03, 0.5937E-03, 0.5937E-03,& - 0.5937E-03, 0.5937E-03, 0.5937E-03, 0.7883E-03,& - 0.7883E-03, 0.7883E-03, 0.7883E-03, 0.7883E-03,& - 0.7883E-03, 0.7883E-03, 0.9829E-03, 0.9829E-03,& - 0.9829E-03, 0.9829E-03, 0.9829E-03, 0.9829E-03,& - 0.9829E-03, 0.1177E-02, 0.1177E-02, 0.1177E-02,& - 0.1177E-02, 0.1177E-02, 0.1177E-02, 0.1372E-02,& - 0.1372E-02, 0.1372E-02, 0.1372E-02, 0.1372E-02,& - 0.1567E-02, 0.1567E-02, 0.1567E-02, 0.1567E-02,& - 0.1761E-02, 0.1761E-02, 0.1761E-02, 0.1761E-02,& - 0.1761E-02, 0.1956E-02, 0.1956E-02, 0.1956E-02,& - 0.1956E-02, 0.2150E-02, 0.2150E-02, 0.2150E-02,& - 0.2345E-02, 0.2345E-02, 0.2345E-02, 0.2345E-02,& - 0.2539E-02, 0.2539E-02, 0.2539E-02, 0.2734E-02,& - 0.2734E-02, 0.2734E-02, 0.2929E-02, 0.2929E-02,& - 0.2929E-02, 0.3123E-02, 0.3123E-02, 0.3123E-02,& - 0.3318E-02, 0.3318E-02, 0.3318E-02, 0.3512E-02,& - 0.3512E-02, 0.3707E-02, 0.3707E-02, 0.3707E-02,& - 0.3901E-02, 0.3901E-02, 0.4096E-02, 0.4096E-02,& - 0.4096E-02, 0.4291E-02, 0.4291E-02, 0.4485E-02,& - 0.4485E-02, 0.4680E-02, 0.4680E-02, 0.4874E-02,& - 0.4874E-02, 0.5069E-02, 0.5069E-02, 0.5263E-02,& - 0.5263E-02, 0.5458E-02, 0.5458E-02, 0.5653E-02,& - 0.5653E-02, 0.5847E-02, 0.6042E-02, 0.6042E-02,& - 0.6236E-02, 0.6236E-02, 0.6431E-02, 0.6625E-02,& - 0.6625E-02, 0.6820E-02, 0.6820E-02, 0.7015E-02,& - 0.7209E-02, 0.7209E-02, 0.7404E-02, 0.7598E-02,& - 0.7598E-02, 0.7793E-02, 0.7988E-02, 0.8182E-02,& - 0.8182E-02, 0.8377E-02, 0.8571E-02, 0.8766E-02,& - 0.8766E-02, 0.8960E-02, 0.9155E-02, 0.9350E-02,& - 0.9544E-02, 0.9544E-02, 0.9739E-02, 0.9933E-02,& - 0.1013E-01, 0.1032E-01, 0.1052E-01, 0.1071E-01,& - 0.1071E-01, 0.1091E-01, 0.1110E-01, 0.1130E-01,& - 0.1149E-01, 0.1168E-01, 0.1188E-01, 0.1207E-01,& - 0.1227E-01, 0.1246E-01, 0.1266E-01, 0.1285E-01,& - 0.1305E-01, 0.1324E-01, 0.1344E-01, 0.1363E-01,& - 0.1382E-01, 0.1421E-01, 0.1441E-01, 0.1460E-01,& - 0.1480E-01, 0.1499E-01, 0.1519E-01, 0.1538E-01,& - 0.1577E-01, 0.1597E-01, 0.1616E-01, 0.1635E-01,& - 0.1674E-01, 0.1694E-01, 0.1713E-01, 0.1733E-01,& - 0.1772E-01, 0.1791E-01, 0.1811E-01, 0.1849E-01,& - 0.1869E-01, 0.1888E-01, 0.1927E-01, 0.1947E-01,& - 0.1986E-01, 0.2005E-01, 0.2044E-01, 0.2063E-01,& - 0.2102E-01, 0.2122E-01, 0.2161E-01, 0.2180E-01,& - 0.2219E-01, 0.2239E-01, 0.2278E-01, 0.2316E-01,& - 0.2336E-01, 0.2375E-01, 0.2394E-01, 0.2433E-01,& - 0.2472E-01, 0.2511E-01, 0.2530E-01, 0.2569E-01,& - 0.2608E-01, 0.2647E-01, 0.2667E-01, 0.2706E-01,& - 0.2744E-01, 0.2783E-01, 0.2822E-01, 0.2861E-01,& - 0.2900E-01, 0.2939E-01, 0.2978E-01, 0.3017E-01,& - 0.3036E-01, 0.3095E-01, 0.3134E-01, 0.3173E-01,& - 0.3211E-01, 0.3250E-01, 0.3289E-01, 0.3328E-01,& - 0.3367E-01, 0.3406E-01, 0.3464E-01, 0.3503E-01,& - 0.3542E-01, 0.3581E-01, 0.3640E-01, 0.3678E-01,& - 0.3717E-01, 0.3776E-01, 0.3815E-01, 0.3854E-01,& - 0.3912E-01, 0.3951E-01, 0.4009E-01, 0.4048E-01,& - 0.4106E-01, 0.4145E-01, 0.4204E-01, 0.4243E-01,& - 0.4301E-01, 0.4359E-01, 0.4398E-01, 0.4457E-01,& - 0.4515E-01, 0.4554E-01, 0.4612E-01, 0.4671E-01,& - 0.4729E-01, 0.4788E-01, 0.4826E-01, 0.4885E-01,& - 0.4943E-01, 0.5002E-01, 0.5060E-01, 0.5118E-01,& - 0.5177E-01, 0.5235E-01, 0.5293E-01, 0.5352E-01,& - 0.5410E-01, 0.5488E-01, 0.5546E-01, 0.5605E-01,& - 0.5663E-01, 0.5721E-01, 0.5799E-01, 0.5858E-01,& - 0.5916E-01, 0.5994E-01, 0.6052E-01, 0.6130E-01,& - 0.6188E-01, 0.6266E-01, 0.6325E-01, 0.6402E-01,& - 0.6461E-01, 0.6539E-01, 0.6597E-01, 0.6675E-01,& - 0.6753E-01, 0.6831E-01, 0.6889E-01, 0.6967E-01,& - 0.7045E-01, 0.7122E-01, 0.7200E-01, 0.7278E-01,& - 0.7356E-01, 0.7434E-01, 0.7512E-01, 0.7589E-01,& - 0.7667E-01, 0.7745E-01, 0.7823E-01, 0.7901E-01,& - 0.7979E-01, 0.8076E-01, 0.8154E-01, 0.8231E-01,& - 0.8329E-01, 0.8407E-01, 0.8484E-01, 0.8582E-01,& - 0.8660E-01, 0.8757E-01, 0.8854E-01, 0.8932E-01,& - 0.9029E-01, 0.9126E-01, 0.9204E-01, 0.9302E-01,& - 0.9399E-01, 0.9496E-01, 0.9574E-01, 0.9671E-01,& - 0.9769E-01, 0.9866E-01, 0.9963E-01, 0.1006E+00,& - 0.1018E+00, 0.1027E+00, 0.1037E+00, 0.1047E+00,& - 0.1057E+00, 0.1068E+00, 0.1078E+00, 0.1088E+00,& - 0.1099E+00, 0.1109E+00, 0.1121E+00, 0.1131E+00,& - 0.1142E+00, 0.1154E+00, 0.1164E+00, 0.1175E+00,& - 0.1187E+00, 0.1199E+00, 0.1208E+00, 0.1220E+00,& - 0.1232E+00, 0.1243E+00, 0.1255E+00, 0.1267E+00,& - 0.1278E+00, 0.1292E+00, 0.1304E+00, 0.1315E+00,& - 0.1327E+00, 0.1341E+00, 0.1352E+00, 0.1366E+00,& - 0.1378E+00, 0.1391E+00, 0.1403E+00, 0.1417E+00,& - 0.1430E+00, 0.1442E+00, 0.1456E+00, 0.1469E+00,& - 0.1483E+00, 0.1496E+00, 0.1510E+00, 0.1524E+00,& - 0.1537E+00, 0.1551E+00, 0.1564E+00, 0.1578E+00,& - 0.1594E+00, 0.1607E+00, 0.1621E+00, 0.1636E+00,& - 0.1650E+00, 0.1666E+00, 0.1679E+00, 0.1695E+00,& - 0.1710E+00, 0.1726E+00, 0.1740E+00, 0.1755E+00,& - 0.1771E+00, 0.1786E+00, 0.1802E+00, 0.1817E+00,& - 0.1835E+00, 0.1850E+00, 0.1866E+00, 0.1882E+00,& - 0.1899E+00, 0.1915E+00, 0.1932E+00, 0.1948E+00,& - 0.1965E+00, 0.1983E+00, 0.1998E+00, 0.2016E+00,& - 0.2033E+00, 0.2051E+00, 0.2068E+00, 0.2086E+00,& - 0.2103E+00, 0.2121E+00, 0.2138E+00, 0.2158E+00,& - 0.2175E+00, 0.2195E+00, 0.2212E+00, 0.2232E+00,& - 0.2249E+00, 0.2269E+00, 0.2288E+00, 0.2306E+00,& - 0.2325E+00, 0.2345E+00, 0.2364E+00, 0.2384E+00,& - 0.2405E+00, 0.2424E+00, 0.2444E+00, 0.2463E+00,& - 0.2485E+00, 0.2504E+00, 0.2526E+00, 0.2545E+00,& - 0.2567E+00, 0.2588E+00, 0.2609E+00, 0.2631E+00,& - 0.2652E+00, 0.2674E+00, 0.2695E+00, 0.2716E+00,& - 0.2738E+00, 0.2761E+00, 0.2782E+00, 0.2806E+00,& - 0.2827E+00, 0.2851E+00, 0.2874E+00, 0.2897E+00,& - 0.2919E+00, 0.2942E+00, 0.2967E+00, 0.2991E+00,& - 0.3014E+00, 0.3037E+00, 0.3063E+00, 0.3086E+00,& - 0.3111E+00, 0.3135E+00, 0.3160E+00, 0.3185E+00,& - 0.3209E+00, 0.3234E+00, 0.3259E+00, 0.3286E+00,& - 0.3312E+00, 0.3337E+00, 0.3362E+00, 0.3390E+00,& - 0.3415E+00, 0.3442E+00, 0.3469E+00, 0.3497E+00,& - 0.3524E+00, 0.3551E+00, 0.3578E+00, 0.3606E+00,& - 0.3633E+00, 0.3660E+00, 0.3689E+00, 0.3716E+00,& - 0.3746E+00, 0.3775E+00, 0.3804E+00, 0.3831E+00,& - 0.3860E+00, 0.3892E+00, 0.3921E+00, 0.3950E+00,& - 0.3979E+00, 0.4010E+00, 0.4041E+00, 0.4071E+00,& - 0.4102E+00, 0.4133E+00, 0.4164E+00, 0.4195E+00,& - 0.4226E+00, 0.4259E+00, 0.4290E+00, 0.4322E+00,& - 0.4355E+00, 0.4388E+00, 0.4421E+00, 0.4454E+00,& - 0.4487E+00, 0.4520E+00, 0.4553E+00, 0.4586E+00,& - 0.4621E+00, 0.4654E+00, 0.4689E+00, 0.4724E+00,& - 0.4759E+00, 0.4794E+00, 0.4829E+00, 0.4864E+00,& - 0.4901E+00, 0.4936E+00, 0.4973E+00, 0.5010E+00,& - 0.5045E+00, 0.5082E+00, 0.5121E+00, 0.5158E+00,& - 0.5195E+00, 0.5234E+00, 0.5271E+00, 0.5310E+00,& - 0.5349E+00, 0.5388E+00, 0.5427E+00, 0.5466E+00,& - 0.5505E+00, 0.5545E+00, 0.5584E+00, 0.5625E+00,& - 0.5666E+00, 0.5707E+00, 0.5748E+00, 0.5789E+00,& - 0.5830E+00, 0.5872E+00, 0.5915E+00, 0.5956E+00,& - 0.5999E+00, 0.6042E+00, 0.6086E+00, 0.6129E+00,& - 0.6172E+00, 0.6217E+00, 0.6261E+00, 0.6306E+00,& - 0.6351E+00, 0.6396E+00, 0.6440E+00, 0.6487E+00,& - 0.6532E+00, 0.6579E+00, 0.6625E+00, 0.6672E+00,& - 0.6719E+00, 0.6767E+00, 0.6814E+00, 0.6863E+00,& - 0.6911E+00, 0.6960E+00, 0.7009E+00, 0.7057E+00,& - 0.7108E+00, 0.7158E+00, 0.7207E+00, 0.7258E+00,& - 0.7310E+00, 0.7361E+00, 0.7411E+00, 0.7464E+00,& - 0.7516E+00, 0.7569E+00, 0.7622E+00, 0.7674E+00,& - 0.7729E+00, 0.7783E+00, 0.7836E+00, 0.7890E+00,& - 0.7946E+00, 0.8001E+00, 0.8057E+00, 0.8112E+00,& - 0.8168E+00, 0.8225E+00, 0.8283E+00, 0.8340E+00,& - 0.8398E+00, 0.8456E+00, 0.8515E+00, 0.8573E+00,& - 0.8633E+00, 0.8692E+00, 0.8752E+00, 0.8812E+00,& - 0.8875E+00, 0.8935E+00, 0.8997E+00, 0.9059E+00,& - 0.9122E+00, 0.9184E+00, 0.9246E+00, 0.9310E+00,& - 0.9375E+00, 0.9439E+00, 0.9505E+00, 0.9569E+00,& - 0.9635E+00, 0.9702E+00, 0.9768E+00, 0.9836E+00,& - 0.9902E+00, 0.9970E+00, 0.1004E+01, 0.1011E+01,& - 0.1018E+01, 0.1025E+01, 0.1032E+01, 0.1039E+01,& - 0.1046E+01, 0.1053E+01, 0.1060E+01, 0.1067E+01,& - 0.1075E+01, 0.1082E+01, 0.1089E+01, 0.1097E+01,& - 0.1104E+01, 0.1112E+01, 0.1120E+01, 0.1127E+01,& - 0.1135E+01, 0.1143E+01, 0.1151E+01, 0.1158E+01,& - 0.1166E+01, 0.1174E+01, 0.1182E+01, 0.1190E+01,& - 0.1199E+01, 0.1207E+01, 0.1215E+01, 0.1223E+01,& - 0.1232E+01, 0.1240E+01, 0.1248E+01, 0.1257E+01,& - 0.1266E+01, 0.1274E+01, 0.1283E+01, 0.1292E+01,& - 0.1301E+01, 0.1309E+01, 0.1318E+01, 0.1327E+01,& - 0.1337E+01, 0.1346E+01, 0.1355E+01, 0.1364E+01,& - 0.1374E+01, 0.1383E+01, 0.1392E+01, 0.1402E+01,& - 0.1411E+01, 0.1421E+01, 0.1431E+01, 0.1441E+01,& - 0.1451E+01, 0.1460E+01, 0.1471E+01, 0.1481E+01,& - 0.1491E+01, 0.1501E+01, 0.1511E+01, 0.1522E+01,& - 0.1532E+01, 0.1543E+01, 0.1553E+01, 0.1564E+01,& - 0.1575E+01, 0.1586E+01, 0.1597E+01, 0.1608E+01,& - 0.1619E+01, 0.1630E+01, 0.1641E+01, 0.1653E+01,& - 0.1664E+01, 0.1676E+01, 0.1687E+01, 0.1699E+01,& - 0.1711E+01, 0.1723E+01, 0.1735E+01, 0.1747E+01,& - 0.1759E+01, 0.1771E+01, 0.1783E+01, 0.1796E+01,& - 0.1809E+01, 0.1821E+01, 0.1834E+01, 0.1847E+01,& - 0.1860E+01, 0.1873E+01, 0.1886E+01, 0.1899E+01,& - 0.1913E+01, 0.1926E+01, 0.1940E+01, 0.1953E+01,& - 0.1967E+01, 0.1981E+01, 0.1995E+01, 0.2009E+01,& - 0.2024E+01, 0.2038E+01, 0.2053E+01, 0.2067E+01,& - 0.2082E+01, 0.2097E+01, 0.2112E+01, 0.2127E+01,& - 0.2142E+01, 0.2158E+01, 0.2173E+01, 0.2189E+01,& - 0.2205E+01, 0.2221E+01, 0.2237E+01, 0.2253E+01,& - 0.2269E+01, 0.2286E+01, 0.2303E+01, 0.2319E+01,& - 0.2336E+01, 0.2353E+01, 0.2371E+01, 0.2388E+01,& - 0.2406E+01, 0.2423E+01, 0.2441E+01, 0.2459E+01,& - 0.2478E+01, 0.2496E+01, 0.2515E+01, 0.2534E+01,& - 0.2553E+01, 0.2572E+01, 0.2591E+01, 0.2611E+01,& - 0.2630E+01, 0.2650E+01, 0.2670E+01, 0.2691E+01,& - 0.2711E+01, 0.2732E+01, 0.2753E+01, 0.2774E+01,& - 0.2795E+01, 0.2817E+01, 0.2839E+01, 0.2861E+01,& - 0.2883E+01, 0.2906E+01, 0.2928E+01, 0.2951E+01,& - 0.2975E+01, 0.2998E+01, 0.3022E+01, 0.3046E+01,& - 0.3070E+01, 0.3095E+01, 0.3120E+01, 0.3145E+01,& - 0.3170E+01, 0.3196E+01, 0.3222E+01, 0.3248E+01,& - 0.3275E+01, 0.3302E+01, 0.3329E+01, 0.3357E+01,& - 0.3385E+01, 0.3413E+01, 0.3442E+01, 0.3471E+01,& - 0.3500E+01, 0.3530E+01, 0.3560E+01, 0.3591E+01,& - 0.3622E+01, 0.3653E+01, 0.3685E+01, 0.3717E+01,& - 0.3750E+01, 0.3783E+01, 0.3816E+01, 0.3851E+01,& - 0.3885E+01, 0.3920E+01, 0.3956E+01, 0.3992E+01,& - 0.4028E+01, 0.4066E+01, 0.4103E+01, 0.4142E+01,& - 0.4181E+01, 0.4220E+01, 0.4261E+01, 0.4301E+01,& - 0.4343E+01, 0.4385E+01, 0.4428E+01, 0.4472E+01,& - 0.4516E+01, 0.4562E+01, 0.4608E+01, 0.4655E+01,& - 0.4702E+01, 0.4751E+01, 0.4801E+01, 0.4852E+01,& - 0.4903E+01, 0.4956E+01, 0.5009E+01, 0.5064E+01,& - 0.5120E+01, 0.5178E+01, 0.5236E+01, 0.5296E+01,& - 0.5357E+01, 0.5420E+01, 0.5484E+01, 0.5550E+01,& - 0.5617E+01, 0.5686E+01, 0.5757E+01, 0.5830E+01,& - 0.5905E+01, 0.5982E+01, 0.6061E+01, 0.6143E+01,& - 0.6227E+01, 0.6314E+01, 0.6403E+01, 0.6496E+01,& - 0.6592E+01, 0.6691E+01, 0.6794E+01, 0.6901E+01,& - 0.7012E+01, 0.7128E+01, 0.7250E+01, 0.7376E+01,& - 0.7509E+01, 0.7648E+01, 0.7795E+01, 0.7950E+01,& - 0.8115E+01, 0.8290E+01, 0.8476E+01, 0.8677E+01,& - 0.8893E+01, 0.9128E+01, 0.9385E+01, 0.9670E+01,& - 0.9988E+01, 0.1035E+02, 0.1077E+02, 0.1127E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 79) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2085E-03, 0.2085E-03, 0.2085E-03,& - 0.2085E-03, 0.2085E-03, 0.2085E-03, 0.2085E-03,& - 0.2085E-03, 0.2085E-03, 0.2085E-03, 0.2085E-03,& - 0.2085E-03, 0.2085E-03, 0.2085E-03, 0.2085E-03,& - 0.2085E-03, 0.2085E-03, 0.2085E-03, 0.4069E-03,& - 0.4069E-03, 0.4069E-03, 0.4069E-03, 0.4069E-03,& - 0.4069E-03, 0.4069E-03, 0.4069E-03, 0.4069E-03,& - 0.4069E-03, 0.4069E-03, 0.4069E-03, 0.4069E-03,& - 0.6054E-03, 0.6054E-03, 0.6054E-03, 0.6054E-03,& - 0.6054E-03, 0.6054E-03, 0.6054E-03, 0.6054E-03,& - 0.6054E-03, 0.8038E-03, 0.8038E-03, 0.8038E-03,& - 0.8038E-03, 0.8038E-03, 0.8038E-03, 0.8038E-03,& - 0.8038E-03, 0.1002E-02, 0.1002E-02, 0.1002E-02,& - 0.1002E-02, 0.1002E-02, 0.1002E-02, 0.1002E-02,& - 0.1201E-02, 0.1201E-02, 0.1201E-02, 0.1201E-02,& - 0.1201E-02, 0.1201E-02, 0.1399E-02, 0.1399E-02,& - 0.1399E-02, 0.1399E-02, 0.1399E-02, 0.1598E-02,& - 0.1598E-02, 0.1598E-02, 0.1598E-02, 0.1598E-02,& - 0.1796E-02, 0.1796E-02, 0.1796E-02, 0.1796E-02,& - 0.1995E-02, 0.1995E-02, 0.1995E-02, 0.1995E-02,& - 0.2193E-02, 0.2193E-02, 0.2193E-02, 0.2193E-02,& - 0.2392E-02, 0.2392E-02, 0.2392E-02, 0.2590E-02,& - 0.2590E-02, 0.2590E-02, 0.2590E-02, 0.2788E-02,& - 0.2788E-02, 0.2788E-02, 0.2987E-02, 0.2987E-02,& - 0.2987E-02, 0.3185E-02, 0.3185E-02, 0.3185E-02,& - 0.3384E-02, 0.3384E-02, 0.3384E-02, 0.3582E-02,& - 0.3582E-02, 0.3781E-02, 0.3781E-02, 0.3781E-02,& - 0.3979E-02, 0.3979E-02, 0.4178E-02, 0.4178E-02,& - 0.4376E-02, 0.4376E-02, 0.4376E-02, 0.4575E-02,& - 0.4575E-02, 0.4773E-02, 0.4773E-02, 0.4971E-02,& - 0.4971E-02, 0.5170E-02, 0.5170E-02, 0.5368E-02,& - 0.5368E-02, 0.5567E-02, 0.5567E-02, 0.5765E-02,& - 0.5765E-02, 0.5964E-02, 0.6162E-02, 0.6162E-02,& - 0.6361E-02, 0.6361E-02, 0.6559E-02, 0.6559E-02,& - 0.6758E-02, 0.6956E-02, 0.6956E-02, 0.7155E-02,& - 0.7353E-02, 0.7353E-02, 0.7551E-02, 0.7750E-02,& - 0.7750E-02, 0.7948E-02, 0.8147E-02, 0.8147E-02,& - 0.8345E-02, 0.8544E-02, 0.8742E-02, 0.8742E-02,& - 0.8941E-02, 0.9139E-02, 0.9338E-02, 0.9536E-02,& - 0.9536E-02, 0.9735E-02, 0.9933E-02, 0.1013E-01,& - 0.1033E-01, 0.1033E-01, 0.1053E-01, 0.1073E-01,& - 0.1093E-01, 0.1112E-01, 0.1132E-01, 0.1152E-01,& - 0.1172E-01, 0.1192E-01, 0.1212E-01, 0.1231E-01,& - 0.1251E-01, 0.1271E-01, 0.1291E-01, 0.1311E-01,& - 0.1331E-01, 0.1351E-01, 0.1370E-01, 0.1390E-01,& - 0.1410E-01, 0.1430E-01, 0.1450E-01, 0.1470E-01,& - 0.1489E-01, 0.1529E-01, 0.1549E-01, 0.1569E-01,& - 0.1589E-01, 0.1609E-01, 0.1628E-01, 0.1668E-01,& - 0.1688E-01, 0.1708E-01, 0.1728E-01, 0.1767E-01,& - 0.1787E-01, 0.1807E-01, 0.1847E-01, 0.1867E-01,& - 0.1886E-01, 0.1926E-01, 0.1946E-01, 0.1986E-01,& - 0.2005E-01, 0.2025E-01, 0.2065E-01, 0.2085E-01,& - 0.2125E-01, 0.2144E-01, 0.2184E-01, 0.2204E-01,& - 0.2244E-01, 0.2263E-01, 0.2303E-01, 0.2343E-01,& - 0.2363E-01, 0.2402E-01, 0.2422E-01, 0.2462E-01,& - 0.2502E-01, 0.2541E-01, 0.2561E-01, 0.2601E-01,& - 0.2641E-01, 0.2680E-01, 0.2700E-01, 0.2740E-01,& - 0.2779E-01, 0.2819E-01, 0.2859E-01, 0.2899E-01,& - 0.2918E-01, 0.2958E-01, 0.2998E-01, 0.3037E-01,& - 0.3077E-01, 0.3117E-01, 0.3157E-01, 0.3196E-01,& - 0.3236E-01, 0.3276E-01, 0.3335E-01, 0.3375E-01,& - 0.3415E-01, 0.3454E-01, 0.3494E-01, 0.3534E-01,& - 0.3593E-01, 0.3633E-01, 0.3673E-01, 0.3712E-01,& - 0.3772E-01, 0.3811E-01, 0.3851E-01, 0.3911E-01,& - 0.3950E-01, 0.4010E-01, 0.4050E-01, 0.4109E-01,& - 0.4149E-01, 0.4208E-01, 0.4248E-01, 0.4308E-01,& - 0.4347E-01, 0.4407E-01, 0.4466E-01, 0.4506E-01,& - 0.4566E-01, 0.4625E-01, 0.4665E-01, 0.4724E-01,& - 0.4784E-01, 0.4843E-01, 0.4903E-01, 0.4943E-01,& - 0.5002E-01, 0.5062E-01, 0.5121E-01, 0.5181E-01,& - 0.5240E-01, 0.5300E-01, 0.5359E-01, 0.5419E-01,& - 0.5478E-01, 0.5558E-01, 0.5617E-01, 0.5677E-01,& - 0.5736E-01, 0.5796E-01, 0.5875E-01, 0.5935E-01,& - 0.5994E-01, 0.6074E-01, 0.6133E-01, 0.6193E-01,& - 0.6272E-01, 0.6332E-01, 0.6411E-01, 0.6471E-01,& - 0.6550E-01, 0.6630E-01, 0.6689E-01, 0.6768E-01,& - 0.6848E-01, 0.6907E-01, 0.6987E-01, 0.7066E-01,& - 0.7146E-01, 0.7225E-01, 0.7284E-01, 0.7364E-01,& - 0.7443E-01, 0.7523E-01, 0.7602E-01, 0.7681E-01,& - 0.7761E-01, 0.7860E-01, 0.7939E-01, 0.8019E-01,& - 0.8098E-01, 0.8178E-01, 0.8277E-01, 0.8356E-01,& - 0.8436E-01, 0.8535E-01, 0.8614E-01, 0.8713E-01,& - 0.8793E-01, 0.8892E-01, 0.8971E-01, 0.9071E-01,& - 0.9170E-01, 0.9249E-01, 0.9348E-01, 0.9448E-01,& - 0.9547E-01, 0.9626E-01, 0.9726E-01, 0.9825E-01,& - 0.9924E-01, 0.1002E+00, 0.1012E+00, 0.1022E+00,& - 0.1032E+00, 0.1042E+00, 0.1054E+00, 0.1064E+00,& - 0.1074E+00, 0.1086E+00, 0.1096E+00, 0.1106E+00,& - 0.1117E+00, 0.1127E+00, 0.1139E+00, 0.1149E+00,& - 0.1161E+00, 0.1173E+00, 0.1183E+00, 0.1195E+00,& - 0.1207E+00, 0.1219E+00, 0.1229E+00, 0.1240E+00,& - 0.1252E+00, 0.1264E+00, 0.1276E+00, 0.1290E+00,& - 0.1302E+00, 0.1314E+00, 0.1326E+00, 0.1338E+00,& - 0.1352E+00, 0.1364E+00, 0.1377E+00, 0.1389E+00,& - 0.1403E+00, 0.1415E+00, 0.1429E+00, 0.1441E+00,& - 0.1455E+00, 0.1469E+00, 0.1483E+00, 0.1496E+00,& - 0.1508E+00, 0.1522E+00, 0.1536E+00, 0.1552E+00,& - 0.1566E+00, 0.1580E+00, 0.1594E+00, 0.1608E+00,& - 0.1623E+00, 0.1637E+00, 0.1651E+00, 0.1667E+00,& - 0.1683E+00, 0.1697E+00, 0.1713E+00, 0.1727E+00,& - 0.1743E+00, 0.1758E+00, 0.1774E+00, 0.1790E+00,& - 0.1806E+00, 0.1822E+00, 0.1838E+00, 0.1854E+00,& - 0.1870E+00, 0.1887E+00, 0.1903E+00, 0.1919E+00,& - 0.1937E+00, 0.1953E+00, 0.1971E+00, 0.1989E+00,& - 0.2005E+00, 0.2022E+00, 0.2040E+00, 0.2058E+00,& - 0.2076E+00, 0.2094E+00, 0.2112E+00, 0.2130E+00,& - 0.2147E+00, 0.2165E+00, 0.2185E+00, 0.2203E+00,& - 0.2223E+00, 0.2241E+00, 0.2261E+00, 0.2278E+00,& - 0.2298E+00, 0.2318E+00, 0.2338E+00, 0.2358E+00,& - 0.2378E+00, 0.2397E+00, 0.2417E+00, 0.2437E+00,& - 0.2457E+00, 0.2479E+00, 0.2499E+00, 0.2519E+00,& - 0.2540E+00, 0.2562E+00, 0.2582E+00, 0.2604E+00,& - 0.2626E+00, 0.2648E+00, 0.2669E+00, 0.2691E+00,& - 0.2713E+00, 0.2735E+00, 0.2757E+00, 0.2781E+00,& - 0.2802E+00, 0.2826E+00, 0.2848E+00, 0.2872E+00,& - 0.2896E+00, 0.2919E+00, 0.2941E+00, 0.2965E+00,& - 0.2991E+00, 0.3015E+00, 0.3039E+00, 0.3062E+00,& - 0.3088E+00, 0.3112E+00, 0.3138E+00, 0.3162E+00,& - 0.3187E+00, 0.3213E+00, 0.3239E+00, 0.3265E+00,& - 0.3291E+00, 0.3316E+00, 0.3342E+00, 0.3368E+00,& - 0.3396E+00, 0.3422E+00, 0.3449E+00, 0.3477E+00,& - 0.3503E+00, 0.3531E+00, 0.3558E+00, 0.3586E+00,& - 0.3614E+00, 0.3644E+00, 0.3672E+00, 0.3699E+00,& - 0.3729E+00, 0.3757E+00, 0.3787E+00, 0.3816E+00,& - 0.3846E+00, 0.3876E+00, 0.3906E+00, 0.3936E+00,& - 0.3965E+00, 0.3997E+00, 0.4027E+00, 0.4059E+00,& - 0.4088E+00, 0.4120E+00, 0.4152E+00, 0.4184E+00,& - 0.4215E+00, 0.4247E+00, 0.4281E+00, 0.4313E+00,& - 0.4346E+00, 0.4378E+00, 0.4412E+00, 0.4446E+00,& - 0.4479E+00, 0.4513E+00, 0.4547E+00, 0.4581E+00,& - 0.4616E+00, 0.4650E+00, 0.4686E+00, 0.4719E+00,& - 0.4755E+00, 0.4791E+00, 0.4827E+00, 0.4862E+00,& - 0.4900E+00, 0.4936E+00, 0.4973E+00, 0.5009E+00,& - 0.5047E+00, 0.5085E+00, 0.5122E+00, 0.5160E+00,& - 0.5198E+00, 0.5237E+00, 0.5275E+00, 0.5315E+00,& - 0.5355E+00, 0.5394E+00, 0.5434E+00, 0.5474E+00,& - 0.5513E+00, 0.5555E+00, 0.5595E+00, 0.5636E+00,& - 0.5678E+00, 0.5720E+00, 0.5761E+00, 0.5803E+00,& - 0.5845E+00, 0.5888E+00, 0.5930E+00, 0.5974E+00,& - 0.6017E+00, 0.6061E+00, 0.6105E+00, 0.6148E+00,& - 0.6194E+00, 0.6240E+00, 0.6283E+00, 0.6329E+00,& - 0.6375E+00, 0.6420E+00, 0.6468E+00, 0.6514E+00,& - 0.6561E+00, 0.6609E+00, 0.6656E+00, 0.6704E+00,& - 0.6752E+00, 0.6801E+00, 0.6849E+00, 0.6899E+00,& - 0.6948E+00, 0.6998E+00, 0.7047E+00, 0.7097E+00,& - 0.7149E+00, 0.7200E+00, 0.7252E+00, 0.7303E+00,& - 0.7355E+00, 0.7407E+00, 0.7460E+00, 0.7514E+00,& - 0.7565E+00, 0.7621E+00, 0.7675E+00, 0.7728E+00,& - 0.7784E+00, 0.7839E+00, 0.7895E+00, 0.7950E+00,& - 0.8006E+00, 0.8064E+00, 0.8119E+00, 0.8177E+00,& - 0.8234E+00, 0.8294E+00, 0.8351E+00, 0.8411E+00,& - 0.8470E+00, 0.8530E+00, 0.8589E+00, 0.8649E+00,& - 0.8710E+00, 0.8772E+00, 0.8834E+00, 0.8895E+00,& - 0.8957E+00, 0.9020E+00, 0.9084E+00, 0.9147E+00,& - 0.9211E+00, 0.9276E+00, 0.9342E+00, 0.9407E+00,& - 0.9473E+00, 0.9538E+00, 0.9606E+00, 0.9673E+00,& - 0.9740E+00, 0.9808E+00, 0.9875E+00, 0.9945E+00,& - 0.1001E+01, 0.1008E+01, 0.1016E+01, 0.1022E+01,& - 0.1030E+01, 0.1037E+01, 0.1044E+01, 0.1051E+01,& - 0.1059E+01, 0.1066E+01, 0.1073E+01, 0.1081E+01,& - 0.1088E+01, 0.1096E+01, 0.1104E+01, 0.1111E+01,& - 0.1119E+01, 0.1127E+01, 0.1135E+01, 0.1143E+01,& - 0.1150E+01, 0.1158E+01, 0.1167E+01, 0.1175E+01,& - 0.1183E+01, 0.1191E+01, 0.1199E+01, 0.1208E+01,& - 0.1216E+01, 0.1225E+01, 0.1233E+01, 0.1242E+01,& - 0.1250E+01, 0.1259E+01, 0.1268E+01, 0.1277E+01,& - 0.1285E+01, 0.1294E+01, 0.1303E+01, 0.1312E+01,& - 0.1322E+01, 0.1331E+01, 0.1340E+01, 0.1349E+01,& - 0.1359E+01, 0.1368E+01, 0.1378E+01, 0.1387E+01,& - 0.1397E+01, 0.1407E+01, 0.1416E+01, 0.1426E+01,& - 0.1436E+01, 0.1446E+01, 0.1457E+01, 0.1467E+01,& - 0.1477E+01, 0.1487E+01, 0.1498E+01, 0.1508E+01,& - 0.1519E+01, 0.1529E+01, 0.1540E+01, 0.1551E+01,& - 0.1562E+01, 0.1573E+01, 0.1584E+01, 0.1595E+01,& - 0.1606E+01, 0.1617E+01, 0.1629E+01, 0.1640E+01,& - 0.1652E+01, 0.1663E+01, 0.1675E+01, 0.1687E+01,& - 0.1699E+01, 0.1711E+01, 0.1723E+01, 0.1735E+01,& - 0.1747E+01, 0.1760E+01, 0.1772E+01, 0.1785E+01,& - 0.1797E+01, 0.1810E+01, 0.1823E+01, 0.1836E+01,& - 0.1849E+01, 0.1862E+01, 0.1876E+01, 0.1889E+01,& - 0.1902E+01, 0.1916E+01, 0.1930E+01, 0.1944E+01,& - 0.1958E+01, 0.1972E+01, 0.1986E+01, 0.2000E+01,& - 0.2015E+01, 0.2029E+01, 0.2044E+01, 0.2059E+01,& - 0.2074E+01, 0.2089E+01, 0.2104E+01, 0.2119E+01,& - 0.2135E+01, 0.2150E+01, 0.2166E+01, 0.2182E+01,& - 0.2198E+01, 0.2214E+01, 0.2230E+01, 0.2247E+01,& - 0.2263E+01, 0.2280E+01, 0.2297E+01, 0.2314E+01,& - 0.2331E+01, 0.2349E+01, 0.2366E+01, 0.2384E+01,& - 0.2402E+01, 0.2419E+01, 0.2438E+01, 0.2456E+01,& - 0.2475E+01, 0.2493E+01, 0.2512E+01, 0.2531E+01,& - 0.2550E+01, 0.2570E+01, 0.2589E+01, 0.2609E+01,& - 0.2629E+01, 0.2649E+01, 0.2670E+01, 0.2690E+01,& - 0.2711E+01, 0.2732E+01, 0.2753E+01, 0.2775E+01,& - 0.2797E+01, 0.2819E+01, 0.2841E+01, 0.2863E+01,& - 0.2886E+01, 0.2909E+01, 0.2932E+01, 0.2955E+01,& - 0.2979E+01, 0.3003E+01, 0.3027E+01, 0.3051E+01,& - 0.3076E+01, 0.3101E+01, 0.3126E+01, 0.3152E+01,& - 0.3177E+01, 0.3204E+01, 0.3230E+01, 0.3257E+01,& - 0.3284E+01, 0.3311E+01, 0.3339E+01, 0.3367E+01,& - 0.3395E+01, 0.3424E+01, 0.3453E+01, 0.3483E+01,& - 0.3513E+01, 0.3543E+01, 0.3574E+01, 0.3605E+01,& - 0.3636E+01, 0.3668E+01, 0.3700E+01, 0.3733E+01,& - 0.3767E+01, 0.3800E+01, 0.3834E+01, 0.3869E+01,& - 0.3904E+01, 0.3940E+01, 0.3976E+01, 0.4013E+01,& - 0.4050E+01, 0.4088E+01, 0.4127E+01, 0.4166E+01,& - 0.4205E+01, 0.4246E+01, 0.4287E+01, 0.4328E+01,& - 0.4371E+01, 0.4414E+01, 0.4458E+01, 0.4502E+01,& - 0.4548E+01, 0.4594E+01, 0.4641E+01, 0.4688E+01,& - 0.4737E+01, 0.4787E+01, 0.4837E+01, 0.4889E+01,& - 0.4942E+01, 0.4995E+01, 0.5050E+01, 0.5106E+01,& - 0.5163E+01, 0.5222E+01, 0.5281E+01, 0.5343E+01,& - 0.5405E+01, 0.5469E+01, 0.5534E+01, 0.5602E+01,& - 0.5670E+01, 0.5741E+01, 0.5813E+01, 0.5888E+01,& - 0.5963E+01, 0.6043E+01, 0.6123E+01, 0.6207E+01,& - 0.6293E+01, 0.6381E+01, 0.6473E+01, 0.6568E+01,& - 0.6665E+01, 0.6767E+01, 0.6872E+01, 0.6982E+01,& - 0.7096E+01, 0.7214E+01, 0.7338E+01, 0.7467E+01,& - 0.7603E+01, 0.7746E+01, 0.7896E+01, 0.8055E+01,& - 0.8223E+01, 0.8402E+01, 0.8593E+01, 0.8798E+01,& - 0.9019E+01, 0.9259E+01, 0.9523E+01, 0.9814E+01,& - 0.1014E+02, 0.1051E+02, 0.1094E+02, 0.1146E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 80) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2124E-03,& - 0.2124E-03, 0.2124E-03, 0.2124E-03, 0.2124E-03,& - 0.2124E-03, 0.2124E-03, 0.2124E-03, 0.2124E-03,& - 0.2124E-03, 0.2124E-03, 0.2124E-03, 0.2124E-03,& - 0.2124E-03, 0.2124E-03, 0.2124E-03, 0.2124E-03,& - 0.2124E-03, 0.2124E-03, 0.4148E-03, 0.4148E-03,& - 0.4148E-03, 0.4148E-03, 0.4148E-03, 0.4148E-03,& - 0.4148E-03, 0.4148E-03, 0.4148E-03, 0.4148E-03,& - 0.4148E-03, 0.4148E-03, 0.6172E-03, 0.6172E-03,& - 0.6172E-03, 0.6172E-03, 0.6172E-03, 0.6172E-03,& - 0.6172E-03, 0.6172E-03, 0.6172E-03, 0.6172E-03,& - 0.8196E-03, 0.8196E-03, 0.8196E-03, 0.8196E-03,& - 0.8196E-03, 0.8196E-03, 0.8196E-03, 0.8196E-03,& - 0.1022E-02, 0.1022E-02, 0.1022E-02, 0.1022E-02,& - 0.1022E-02, 0.1022E-02, 0.1022E-02, 0.1224E-02,& - 0.1224E-02, 0.1224E-02, 0.1224E-02, 0.1224E-02,& - 0.1224E-02, 0.1427E-02, 0.1427E-02, 0.1427E-02,& - 0.1427E-02, 0.1427E-02, 0.1629E-02, 0.1629E-02,& - 0.1629E-02, 0.1629E-02, 0.1629E-02, 0.1832E-02,& - 0.1832E-02, 0.1832E-02, 0.1832E-02, 0.2034E-02,& - 0.2034E-02, 0.2034E-02, 0.2034E-02, 0.2034E-02,& - 0.2236E-02, 0.2236E-02, 0.2236E-02, 0.2439E-02,& - 0.2439E-02, 0.2439E-02, 0.2439E-02, 0.2641E-02,& - 0.2641E-02, 0.2641E-02, 0.2844E-02, 0.2844E-02,& - 0.2844E-02, 0.2844E-02, 0.3046E-02, 0.3046E-02,& - 0.3046E-02, 0.3248E-02, 0.3248E-02, 0.3451E-02,& - 0.3451E-02, 0.3451E-02, 0.3653E-02, 0.3653E-02,& - 0.3653E-02, 0.3855E-02, 0.3855E-02, 0.4058E-02,& - 0.4058E-02, 0.4058E-02, 0.4260E-02, 0.4260E-02,& - 0.4463E-02, 0.4463E-02, 0.4463E-02, 0.4665E-02,& - 0.4665E-02, 0.4867E-02, 0.4867E-02, 0.5070E-02,& - 0.5070E-02, 0.5272E-02, 0.5272E-02, 0.5475E-02,& - 0.5475E-02, 0.5677E-02, 0.5677E-02, 0.5879E-02,& - 0.5879E-02, 0.6082E-02, 0.6284E-02, 0.6284E-02,& - 0.6487E-02, 0.6487E-02, 0.6689E-02, 0.6689E-02,& - 0.6891E-02, 0.7094E-02, 0.7094E-02, 0.7296E-02,& - 0.7499E-02, 0.7499E-02, 0.7701E-02, 0.7903E-02,& - 0.7903E-02, 0.8106E-02, 0.8308E-02, 0.8308E-02,& - 0.8511E-02, 0.8713E-02, 0.8915E-02, 0.8915E-02,& - 0.9118E-02, 0.9320E-02, 0.9522E-02, 0.9522E-02,& - 0.9725E-02, 0.9927E-02, 0.1013E-01, 0.1033E-01,& - 0.1033E-01, 0.1053E-01, 0.1074E-01, 0.1094E-01,& - 0.1114E-01, 0.1134E-01, 0.1155E-01, 0.1175E-01,& - 0.1195E-01, 0.1195E-01, 0.1215E-01, 0.1236E-01,& - 0.1256E-01, 0.1276E-01, 0.1296E-01, 0.1317E-01,& - 0.1337E-01, 0.1357E-01, 0.1377E-01, 0.1398E-01,& - 0.1438E-01, 0.1458E-01, 0.1478E-01, 0.1499E-01,& - 0.1519E-01, 0.1539E-01, 0.1559E-01, 0.1580E-01,& - 0.1620E-01, 0.1640E-01, 0.1661E-01, 0.1681E-01,& - 0.1701E-01, 0.1742E-01, 0.1762E-01, 0.1782E-01,& - 0.1802E-01, 0.1843E-01, 0.1863E-01, 0.1883E-01,& - 0.1924E-01, 0.1944E-01, 0.1964E-01, 0.2005E-01,& - 0.2025E-01, 0.2065E-01, 0.2086E-01, 0.2126E-01,& - 0.2146E-01, 0.2187E-01, 0.2207E-01, 0.2248E-01,& - 0.2268E-01, 0.2308E-01, 0.2329E-01, 0.2369E-01,& - 0.2389E-01, 0.2430E-01, 0.2470E-01, 0.2490E-01,& - 0.2531E-01, 0.2571E-01, 0.2592E-01, 0.2632E-01,& - 0.2673E-01, 0.2713E-01, 0.2733E-01, 0.2774E-01,& - 0.2814E-01, 0.2855E-01, 0.2895E-01, 0.2936E-01,& - 0.2956E-01, 0.2996E-01, 0.3037E-01, 0.3077E-01,& - 0.3118E-01, 0.3158E-01, 0.3199E-01, 0.3239E-01,& - 0.3280E-01, 0.3320E-01, 0.3361E-01, 0.3421E-01,& - 0.3462E-01, 0.3502E-01, 0.3543E-01, 0.3583E-01,& - 0.3624E-01, 0.3685E-01, 0.3725E-01, 0.3766E-01,& - 0.3806E-01, 0.3867E-01, 0.3907E-01, 0.3968E-01,& - 0.4008E-01, 0.4049E-01, 0.4110E-01, 0.4150E-01,& - 0.4211E-01, 0.4251E-01, 0.4312E-01, 0.4352E-01,& - 0.4413E-01, 0.4454E-01, 0.4514E-01, 0.4575E-01,& - 0.4616E-01, 0.4676E-01, 0.4737E-01, 0.4798E-01,& - 0.4838E-01, 0.4899E-01, 0.4960E-01, 0.5020E-01,& - 0.5081E-01, 0.5142E-01, 0.5203E-01, 0.5263E-01,& - 0.5324E-01, 0.5385E-01, 0.5445E-01, 0.5506E-01,& - 0.5567E-01, 0.5628E-01, 0.5688E-01, 0.5749E-01,& - 0.5830E-01, 0.5891E-01, 0.5951E-01, 0.6012E-01,& - 0.6093E-01, 0.6154E-01, 0.6214E-01, 0.6295E-01,& - 0.6356E-01, 0.6437E-01, 0.6498E-01, 0.6579E-01,& - 0.6640E-01, 0.6720E-01, 0.6801E-01, 0.6862E-01,& - 0.6943E-01, 0.7024E-01, 0.7085E-01, 0.7166E-01,& - 0.7247E-01, 0.7328E-01, 0.7409E-01, 0.7490E-01,& - 0.7571E-01, 0.7651E-01, 0.7732E-01, 0.7813E-01,& - 0.7894E-01, 0.7975E-01, 0.8056E-01, 0.8137E-01,& - 0.8218E-01, 0.8319E-01, 0.8400E-01, 0.8481E-01,& - 0.8582E-01, 0.8663E-01, 0.8744E-01, 0.8846E-01,& - 0.8927E-01, 0.9028E-01, 0.9129E-01, 0.9210E-01,& - 0.9311E-01, 0.9412E-01, 0.9493E-01, 0.9594E-01,& - 0.9696E-01, 0.9797E-01, 0.9898E-01, 0.9999E-01,& - 0.1010E+00, 0.1020E+00, 0.1030E+00, 0.1040E+00,& - 0.1051E+00, 0.1061E+00, 0.1071E+00, 0.1081E+00,& - 0.1093E+00, 0.1103E+00, 0.1113E+00, 0.1125E+00,& - 0.1136E+00, 0.1148E+00, 0.1158E+00, 0.1170E+00,& - 0.1182E+00, 0.1192E+00, 0.1204E+00, 0.1216E+00,& - 0.1229E+00, 0.1239E+00, 0.1251E+00, 0.1263E+00,& - 0.1275E+00, 0.1287E+00, 0.1299E+00, 0.1314E+00,& - 0.1326E+00, 0.1338E+00, 0.1350E+00, 0.1364E+00,& - 0.1376E+00, 0.1389E+00, 0.1403E+00, 0.1415E+00,& - 0.1429E+00, 0.1441E+00, 0.1455E+00, 0.1469E+00,& - 0.1484E+00, 0.1496E+00, 0.1510E+00, 0.1524E+00,& - 0.1538E+00, 0.1552E+00, 0.1567E+00, 0.1581E+00,& - 0.1597E+00, 0.1611E+00, 0.1625E+00, 0.1639E+00,& - 0.1656E+00, 0.1670E+00, 0.1686E+00, 0.1700E+00,& - 0.1716E+00, 0.1733E+00, 0.1747E+00, 0.1763E+00,& - 0.1779E+00, 0.1795E+00, 0.1812E+00, 0.1828E+00,& - 0.1844E+00, 0.1860E+00, 0.1876E+00, 0.1892E+00,& - 0.1911E+00, 0.1927E+00, 0.1943E+00, 0.1961E+00,& - 0.1977E+00, 0.1996E+00, 0.2014E+00, 0.2030E+00,& - 0.2048E+00, 0.2067E+00, 0.2085E+00, 0.2103E+00,& - 0.2121E+00, 0.2139E+00, 0.2158E+00, 0.2176E+00,& - 0.2196E+00, 0.2214E+00, 0.2233E+00, 0.2253E+00,& - 0.2273E+00, 0.2291E+00, 0.2311E+00, 0.2332E+00,& - 0.2350E+00, 0.2370E+00, 0.2390E+00, 0.2411E+00,& - 0.2431E+00, 0.2453E+00, 0.2473E+00, 0.2494E+00,& - 0.2516E+00, 0.2536E+00, 0.2558E+00, 0.2579E+00,& - 0.2601E+00, 0.2623E+00, 0.2645E+00, 0.2666E+00,& - 0.2688E+00, 0.2710E+00, 0.2734E+00, 0.2757E+00,& - 0.2779E+00, 0.2801E+00, 0.2826E+00, 0.2848E+00,& - 0.2872E+00, 0.2896E+00, 0.2919E+00, 0.2943E+00,& - 0.2967E+00, 0.2991E+00, 0.3016E+00, 0.3040E+00,& - 0.3066E+00, 0.3091E+00, 0.3115E+00, 0.3141E+00,& - 0.3168E+00, 0.3192E+00, 0.3218E+00, 0.3244E+00,& - 0.3271E+00, 0.3297E+00, 0.3323E+00, 0.3350E+00,& - 0.3376E+00, 0.3404E+00, 0.3431E+00, 0.3459E+00,& - 0.3485E+00, 0.3514E+00, 0.3542E+00, 0.3570E+00,& - 0.3599E+00, 0.3627E+00, 0.3655E+00, 0.3684E+00,& - 0.3714E+00, 0.3742E+00, 0.3773E+00, 0.3801E+00,& - 0.3831E+00, 0.3862E+00, 0.3892E+00, 0.3922E+00,& - 0.3953E+00, 0.3985E+00, 0.4016E+00, 0.4046E+00,& - 0.4078E+00, 0.4111E+00, 0.4141E+00, 0.4173E+00,& - 0.4206E+00, 0.4238E+00, 0.4273E+00, 0.4305E+00,& - 0.4337E+00, 0.4372E+00, 0.4406E+00, 0.4439E+00,& - 0.4473E+00, 0.4507E+00, 0.4542E+00, 0.4576E+00,& - 0.4613E+00, 0.4647E+00, 0.4683E+00, 0.4718E+00,& - 0.4754E+00, 0.4791E+00, 0.4827E+00, 0.4864E+00,& - 0.4900E+00, 0.4939E+00, 0.4975E+00, 0.5013E+00,& - 0.5050E+00, 0.5088E+00, 0.5127E+00, 0.5165E+00,& - 0.5204E+00, 0.5244E+00, 0.5283E+00, 0.5323E+00,& - 0.5364E+00, 0.5402E+00, 0.5442E+00, 0.5485E+00,& - 0.5525E+00, 0.5566E+00, 0.5608E+00, 0.5649E+00,& - 0.5691E+00, 0.5734E+00, 0.5776E+00, 0.5819E+00,& - 0.5863E+00, 0.5906E+00, 0.5950E+00, 0.5993E+00,& - 0.6037E+00, 0.6082E+00, 0.6129E+00, 0.6173E+00,& - 0.6218E+00, 0.6264E+00, 0.6311E+00, 0.6357E+00,& - 0.6404E+00, 0.6450E+00, 0.6497E+00, 0.6546E+00,& - 0.6594E+00, 0.6641E+00, 0.6689E+00, 0.6740E+00,& - 0.6788E+00, 0.6837E+00, 0.6888E+00, 0.6938E+00,& - 0.6989E+00, 0.7039E+00, 0.7090E+00, 0.7143E+00,& - 0.7193E+00, 0.7246E+00, 0.7298E+00, 0.7351E+00,& - 0.7404E+00, 0.7458E+00, 0.7511E+00, 0.7566E+00,& - 0.7620E+00, 0.7675E+00, 0.7732E+00, 0.7786E+00,& - 0.7843E+00, 0.7900E+00, 0.7956E+00, 0.8013E+00,& - 0.8072E+00, 0.8128E+00, 0.8187E+00, 0.8246E+00,& - 0.8306E+00, 0.8365E+00, 0.8426E+00, 0.8484E+00,& - 0.8547E+00, 0.8608E+00, 0.8669E+00, 0.8731E+00,& - 0.8794E+00, 0.8857E+00, 0.8920E+00, 0.8982E+00,& - 0.9047E+00, 0.9112E+00, 0.9177E+00, 0.9241E+00,& - 0.9308E+00, 0.9375E+00, 0.9442E+00, 0.9509E+00,& - 0.9575E+00, 0.9644E+00, 0.9713E+00, 0.9782E+00,& - 0.9851E+00, 0.9921E+00, 0.9992E+00, 0.1006E+01,& - 0.1013E+01, 0.1020E+01, 0.1028E+01, 0.1035E+01,& - 0.1042E+01, 0.1050E+01, 0.1057E+01, 0.1065E+01,& - 0.1072E+01, 0.1080E+01, 0.1087E+01, 0.1095E+01,& - 0.1103E+01, 0.1111E+01, 0.1119E+01, 0.1127E+01,& - 0.1135E+01, 0.1143E+01, 0.1151E+01, 0.1159E+01,& - 0.1167E+01, 0.1175E+01, 0.1184E+01, 0.1192E+01,& - 0.1200E+01, 0.1209E+01, 0.1217E+01, 0.1226E+01,& - 0.1235E+01, 0.1243E+01, 0.1252E+01, 0.1261E+01,& - 0.1270E+01, 0.1279E+01, 0.1288E+01, 0.1297E+01,& - 0.1306E+01, 0.1316E+01, 0.1325E+01, 0.1334E+01,& - 0.1344E+01, 0.1353E+01, 0.1363E+01, 0.1372E+01,& - 0.1382E+01, 0.1392E+01, 0.1402E+01, 0.1412E+01,& - 0.1422E+01, 0.1432E+01, 0.1442E+01, 0.1452E+01,& - 0.1463E+01, 0.1473E+01, 0.1484E+01, 0.1494E+01,& - 0.1505E+01, 0.1515E+01, 0.1526E+01, 0.1537E+01,& - 0.1548E+01, 0.1559E+01, 0.1570E+01, 0.1581E+01,& - 0.1593E+01, 0.1604E+01, 0.1616E+01, 0.1627E+01,& - 0.1639E+01, 0.1650E+01, 0.1662E+01, 0.1674E+01,& - 0.1686E+01, 0.1698E+01, 0.1710E+01, 0.1723E+01,& - 0.1735E+01, 0.1748E+01, 0.1760E+01, 0.1773E+01,& - 0.1786E+01, 0.1799E+01, 0.1812E+01, 0.1825E+01,& - 0.1838E+01, 0.1851E+01, 0.1865E+01, 0.1878E+01,& - 0.1892E+01, 0.1906E+01, 0.1920E+01, 0.1933E+01,& - 0.1948E+01, 0.1962E+01, 0.1976E+01, 0.1991E+01,& - 0.2005E+01, 0.2020E+01, 0.2035E+01, 0.2050E+01,& - 0.2065E+01, 0.2080E+01, 0.2096E+01, 0.2111E+01,& - 0.2127E+01, 0.2142E+01, 0.2158E+01, 0.2174E+01,& - 0.2191E+01, 0.2207E+01, 0.2223E+01, 0.2240E+01,& - 0.2257E+01, 0.2274E+01, 0.2291E+01, 0.2308E+01,& - 0.2326E+01, 0.2343E+01, 0.2361E+01, 0.2379E+01,& - 0.2397E+01, 0.2415E+01, 0.2433E+01, 0.2452E+01,& - 0.2471E+01, 0.2490E+01, 0.2509E+01, 0.2528E+01,& - 0.2548E+01, 0.2567E+01, 0.2587E+01, 0.2607E+01,& - 0.2627E+01, 0.2648E+01, 0.2669E+01, 0.2689E+01,& - 0.2711E+01, 0.2732E+01, 0.2754E+01, 0.2775E+01,& - 0.2797E+01, 0.2820E+01, 0.2842E+01, 0.2865E+01,& - 0.2888E+01, 0.2911E+01, 0.2934E+01, 0.2958E+01,& - 0.2982E+01, 0.3006E+01, 0.3031E+01, 0.3056E+01,& - 0.3081E+01, 0.3106E+01, 0.3132E+01, 0.3158E+01,& - 0.3184E+01, 0.3210E+01, 0.3237E+01, 0.3264E+01,& - 0.3292E+01, 0.3320E+01, 0.3348E+01, 0.3377E+01,& - 0.3405E+01, 0.3435E+01, 0.3464E+01, 0.3494E+01,& - 0.3525E+01, 0.3555E+01, 0.3587E+01, 0.3618E+01,& - 0.3650E+01, 0.3683E+01, 0.3716E+01, 0.3749E+01,& - 0.3783E+01, 0.3817E+01, 0.3852E+01, 0.3887E+01,& - 0.3923E+01, 0.3959E+01, 0.3996E+01, 0.4034E+01,& - 0.4072E+01, 0.4110E+01, 0.4149E+01, 0.4189E+01,& - 0.4229E+01, 0.4271E+01, 0.4312E+01, 0.4355E+01,& - 0.4398E+01, 0.4442E+01, 0.4486E+01, 0.4532E+01,& - 0.4578E+01, 0.4625E+01, 0.4673E+01, 0.4721E+01,& - 0.4771E+01, 0.4822E+01, 0.4873E+01, 0.4926E+01,& - 0.4980E+01, 0.5034E+01, 0.5090E+01, 0.5147E+01,& - 0.5206E+01, 0.5265E+01, 0.5326E+01, 0.5388E+01,& - 0.5452E+01, 0.5517E+01, 0.5584E+01, 0.5653E+01,& - 0.5723E+01, 0.5795E+01, 0.5869E+01, 0.5945E+01,& - 0.6023E+01, 0.6103E+01, 0.6186E+01, 0.6271E+01,& - 0.6358E+01, 0.6449E+01, 0.6542E+01, 0.6639E+01,& - 0.6739E+01, 0.6843E+01, 0.6950E+01, 0.7062E+01,& - 0.7179E+01, 0.7300E+01, 0.7426E+01, 0.7559E+01,& - 0.7697E+01, 0.7843E+01, 0.7995E+01, 0.8159E+01,& - 0.8331E+01, 0.8514E+01, 0.8709E+01, 0.8919E+01,& - 0.9145E+01, 0.9391E+01, 0.9661E+01, 0.9959E+01,& - 0.1029E+02, 0.1067E+02, 0.1111E+02, 0.1164E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 81) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2164E-03, 0.2164E-03, 0.2164E-03,& - 0.2164E-03, 0.2164E-03, 0.2164E-03, 0.2164E-03,& - 0.2164E-03, 0.2164E-03, 0.2164E-03, 0.2164E-03,& - 0.2164E-03, 0.2164E-03, 0.2164E-03, 0.2164E-03,& - 0.2164E-03, 0.2164E-03, 0.2164E-03, 0.2164E-03,& - 0.4228E-03, 0.4228E-03, 0.4228E-03, 0.4228E-03,& - 0.4228E-03, 0.4228E-03, 0.4228E-03, 0.4228E-03,& - 0.4228E-03, 0.4228E-03, 0.4228E-03, 0.4228E-03,& - 0.4228E-03, 0.6291E-03, 0.6291E-03, 0.6291E-03,& - 0.6291E-03, 0.6291E-03, 0.6291E-03, 0.6291E-03,& - 0.6291E-03, 0.6291E-03, 0.6291E-03, 0.8355E-03,& - 0.8355E-03, 0.8355E-03, 0.8355E-03, 0.8355E-03,& - 0.8355E-03, 0.8355E-03, 0.8355E-03, 0.1042E-02,& - 0.1042E-02, 0.1042E-02, 0.1042E-02, 0.1042E-02,& - 0.1042E-02, 0.1042E-02, 0.1248E-02, 0.1248E-02,& - 0.1248E-02, 0.1248E-02, 0.1248E-02, 0.1248E-02,& - 0.1455E-02, 0.1455E-02, 0.1455E-02, 0.1455E-02,& - 0.1455E-02, 0.1661E-02, 0.1661E-02, 0.1661E-02,& - 0.1661E-02, 0.1661E-02, 0.1867E-02, 0.1867E-02,& - 0.1867E-02, 0.1867E-02, 0.1867E-02, 0.2074E-02,& - 0.2074E-02, 0.2074E-02, 0.2074E-02, 0.2280E-02,& - 0.2280E-02, 0.2280E-02, 0.2280E-02, 0.2487E-02,& - 0.2487E-02, 0.2487E-02, 0.2693E-02, 0.2693E-02,& - 0.2693E-02, 0.2693E-02, 0.2899E-02, 0.2899E-02,& - 0.2899E-02, 0.3106E-02, 0.3106E-02, 0.3106E-02,& - 0.3312E-02, 0.3312E-02, 0.3312E-02, 0.3518E-02,& - 0.3518E-02, 0.3518E-02, 0.3725E-02, 0.3725E-02,& - 0.3725E-02, 0.3931E-02, 0.3931E-02, 0.4138E-02,& - 0.4138E-02, 0.4138E-02, 0.4344E-02, 0.4344E-02,& - 0.4550E-02, 0.4550E-02, 0.4757E-02, 0.4757E-02,& - 0.4757E-02, 0.4963E-02, 0.4963E-02, 0.5169E-02,& - 0.5169E-02, 0.5376E-02, 0.5376E-02, 0.5582E-02,& - 0.5582E-02, 0.5789E-02, 0.5789E-02, 0.5995E-02,& - 0.5995E-02, 0.6201E-02, 0.6408E-02, 0.6408E-02,& - 0.6614E-02, 0.6614E-02, 0.6820E-02, 0.6820E-02,& - 0.7027E-02, 0.7233E-02, 0.7233E-02, 0.7440E-02,& - 0.7646E-02, 0.7646E-02, 0.7852E-02, 0.7852E-02,& - 0.8059E-02, 0.8265E-02, 0.8471E-02, 0.8471E-02,& - 0.8678E-02, 0.8884E-02, 0.8884E-02, 0.9091E-02,& - 0.9297E-02, 0.9503E-02, 0.9503E-02, 0.9710E-02,& - 0.9916E-02, 0.1012E-01, 0.1033E-01, 0.1033E-01,& - 0.1054E-01, 0.1074E-01, 0.1095E-01, 0.1115E-01,& - 0.1136E-01, 0.1157E-01, 0.1157E-01, 0.1177E-01,& - 0.1198E-01, 0.1219E-01, 0.1239E-01, 0.1260E-01,& - 0.1281E-01, 0.1301E-01, 0.1322E-01, 0.1342E-01,& - 0.1363E-01, 0.1384E-01, 0.1404E-01, 0.1425E-01,& - 0.1446E-01, 0.1466E-01, 0.1487E-01, 0.1508E-01,& - 0.1549E-01, 0.1569E-01, 0.1590E-01, 0.1611E-01,& - 0.1631E-01, 0.1652E-01, 0.1693E-01, 0.1714E-01,& - 0.1735E-01, 0.1755E-01, 0.1776E-01, 0.1817E-01,& - 0.1838E-01, 0.1858E-01, 0.1900E-01, 0.1920E-01,& - 0.1941E-01, 0.1982E-01, 0.2003E-01, 0.2023E-01,& - 0.2065E-01, 0.2085E-01, 0.2127E-01, 0.2147E-01,& - 0.2168E-01, 0.2209E-01, 0.2230E-01, 0.2271E-01,& - 0.2292E-01, 0.2333E-01, 0.2374E-01, 0.2395E-01,& - 0.2436E-01, 0.2457E-01, 0.2498E-01, 0.2539E-01,& - 0.2560E-01, 0.2601E-01, 0.2643E-01, 0.2663E-01,& - 0.2705E-01, 0.2746E-01, 0.2787E-01, 0.2808E-01,& - 0.2849E-01, 0.2890E-01, 0.2932E-01, 0.2973E-01,& - 0.3014E-01, 0.3035E-01, 0.3076E-01, 0.3117E-01,& - 0.3159E-01, 0.3200E-01, 0.3241E-01, 0.3282E-01,& - 0.3324E-01, 0.3365E-01, 0.3406E-01, 0.3468E-01,& - 0.3509E-01, 0.3551E-01, 0.3592E-01, 0.3633E-01,& - 0.3674E-01, 0.3736E-01, 0.3778E-01, 0.3819E-01,& - 0.3860E-01, 0.3922E-01, 0.3963E-01, 0.4005E-01,& - 0.4067E-01, 0.4108E-01, 0.4170E-01, 0.4211E-01,& - 0.4273E-01, 0.4314E-01, 0.4376E-01, 0.4417E-01,& - 0.4479E-01, 0.4521E-01, 0.4583E-01, 0.4644E-01,& - 0.4686E-01, 0.4748E-01, 0.4810E-01, 0.4851E-01,& - 0.4913E-01, 0.4975E-01, 0.5037E-01, 0.5098E-01,& - 0.5160E-01, 0.5202E-01, 0.5264E-01, 0.5325E-01,& - 0.5387E-01, 0.5449E-01, 0.5511E-01, 0.5573E-01,& - 0.5656E-01, 0.5718E-01, 0.5780E-01, 0.5841E-01,& - 0.5903E-01, 0.5965E-01, 0.6048E-01, 0.6110E-01,& - 0.6172E-01, 0.6254E-01, 0.6316E-01, 0.6399E-01,& - 0.6461E-01, 0.6522E-01, 0.6605E-01, 0.6667E-01,& - 0.6749E-01, 0.6832E-01, 0.6894E-01, 0.6976E-01,& - 0.7059E-01, 0.7121E-01, 0.7203E-01, 0.7286E-01,& - 0.7369E-01, 0.7451E-01, 0.7513E-01, 0.7596E-01,& - 0.7678E-01, 0.7761E-01, 0.7843E-01, 0.7926E-01,& - 0.8029E-01, 0.8112E-01, 0.8194E-01, 0.8277E-01,& - 0.8359E-01, 0.8462E-01, 0.8545E-01, 0.8627E-01,& - 0.8731E-01, 0.8813E-01, 0.8896E-01, 0.8999E-01,& - 0.9082E-01, 0.9185E-01, 0.9288E-01, 0.9370E-01,& - 0.9474E-01, 0.9577E-01, 0.9659E-01, 0.9763E-01,& - 0.9866E-01, 0.9969E-01, 0.1007E+00, 0.1018E+00,& - 0.1028E+00, 0.1038E+00, 0.1048E+00, 0.1059E+00,& - 0.1069E+00, 0.1079E+00, 0.1090E+00, 0.1102E+00,& - 0.1112E+00, 0.1123E+00, 0.1135E+00, 0.1145E+00,& - 0.1158E+00, 0.1168E+00, 0.1181E+00, 0.1191E+00,& - 0.1203E+00, 0.1216E+00, 0.1228E+00, 0.1238E+00,& - 0.1251E+00, 0.1263E+00, 0.1275E+00, 0.1288E+00,& - 0.1300E+00, 0.1313E+00, 0.1325E+00, 0.1337E+00,& - 0.1352E+00, 0.1364E+00, 0.1377E+00, 0.1391E+00,& - 0.1403E+00, 0.1416E+00, 0.1430E+00, 0.1445E+00,& - 0.1457E+00, 0.1472E+00, 0.1484E+00, 0.1498E+00,& - 0.1513E+00, 0.1527E+00, 0.1542E+00, 0.1556E+00,& - 0.1571E+00, 0.1585E+00, 0.1600E+00, 0.1614E+00,& - 0.1628E+00, 0.1645E+00, 0.1659E+00, 0.1676E+00,& - 0.1690E+00, 0.1705E+00, 0.1721E+00, 0.1738E+00,& - 0.1752E+00, 0.1769E+00, 0.1785E+00, 0.1802E+00,& - 0.1818E+00, 0.1835E+00, 0.1851E+00, 0.1868E+00,& - 0.1884E+00, 0.1901E+00, 0.1917E+00, 0.1936E+00,& - 0.1952E+00, 0.1969E+00, 0.1987E+00, 0.2006E+00,& - 0.2023E+00, 0.2041E+00, 0.2060E+00, 0.2076E+00,& - 0.2095E+00, 0.2113E+00, 0.2132E+00, 0.2151E+00,& - 0.2171E+00, 0.2190E+00, 0.2208E+00, 0.2227E+00,& - 0.2248E+00, 0.2266E+00, 0.2287E+00, 0.2305E+00,& - 0.2326E+00, 0.2347E+00, 0.2367E+00, 0.2388E+00,& - 0.2408E+00, 0.2429E+00, 0.2450E+00, 0.2470E+00,& - 0.2491E+00, 0.2512E+00, 0.2534E+00, 0.2555E+00,& - 0.2578E+00, 0.2598E+00, 0.2621E+00, 0.2644E+00,& - 0.2666E+00, 0.2689E+00, 0.2712E+00, 0.2735E+00,& - 0.2757E+00, 0.2780E+00, 0.2803E+00, 0.2827E+00,& - 0.2850E+00, 0.2875E+00, 0.2898E+00, 0.2922E+00,& - 0.2947E+00, 0.2972E+00, 0.2997E+00, 0.3021E+00,& - 0.3046E+00, 0.3071E+00, 0.3096E+00, 0.3123E+00,& - 0.3147E+00, 0.3174E+00, 0.3199E+00, 0.3226E+00,& - 0.3253E+00, 0.3279E+00, 0.3306E+00, 0.3333E+00,& - 0.3360E+00, 0.3387E+00, 0.3414E+00, 0.3442E+00,& - 0.3469E+00, 0.3498E+00, 0.3527E+00, 0.3554E+00,& - 0.3583E+00, 0.3612E+00, 0.3641E+00, 0.3672E+00,& - 0.3700E+00, 0.3729E+00, 0.3760E+00, 0.3789E+00,& - 0.3820E+00, 0.3851E+00, 0.3882E+00, 0.3913E+00,& - 0.3944E+00, 0.3975E+00, 0.4006E+00, 0.4037E+00,& - 0.4070E+00, 0.4101E+00, 0.4134E+00, 0.4167E+00,& - 0.4200E+00, 0.4233E+00, 0.4266E+00, 0.4299E+00,& - 0.4332E+00, 0.4367E+00, 0.4400E+00, 0.4435E+00,& - 0.4470E+00, 0.4505E+00, 0.4540E+00, 0.4575E+00,& - 0.4611E+00, 0.4646E+00, 0.4683E+00, 0.4718E+00,& - 0.4755E+00, 0.4792E+00, 0.4829E+00, 0.4866E+00,& - 0.4904E+00, 0.4941E+00, 0.4980E+00, 0.5017E+00,& - 0.5056E+00, 0.5096E+00, 0.5135E+00, 0.5174E+00,& - 0.5213E+00, 0.5252E+00, 0.5294E+00, 0.5333E+00,& - 0.5374E+00, 0.5415E+00, 0.5457E+00, 0.5498E+00,& - 0.5539E+00, 0.5580E+00, 0.5624E+00, 0.5665E+00,& - 0.5708E+00, 0.5752E+00, 0.5795E+00, 0.5838E+00,& - 0.5884E+00, 0.5927E+00, 0.5973E+00, 0.6018E+00,& - 0.6061E+00, 0.6107E+00, 0.6154E+00, 0.6200E+00,& - 0.6245E+00, 0.6292E+00, 0.6340E+00, 0.6387E+00,& - 0.6435E+00, 0.6482E+00, 0.6532E+00, 0.6579E+00,& - 0.6629E+00, 0.6678E+00, 0.6728E+00, 0.6777E+00,& - 0.6827E+00, 0.6879E+00, 0.6930E+00, 0.6980E+00,& - 0.7000E+00, 0.7085E+00, 0.7137E+00, 0.7190E+00,& - 0.7242E+00, 0.7295E+00, 0.7349E+00, 0.7403E+00,& - 0.7458E+00, 0.7512E+00, 0.7568E+00, 0.7624E+00,& - 0.7679E+00, 0.7737E+00, 0.7793E+00, 0.7851E+00,& - 0.7908E+00, 0.7966E+00, 0.8024E+00, 0.8082E+00,& - 0.8142E+00, 0.8201E+00, 0.8261E+00, 0.8321E+00,& - 0.8381E+00, 0.8443E+00, 0.8505E+00, 0.8567E+00,& - 0.8629E+00, 0.8691E+00, 0.8755E+00, 0.8819E+00,& - 0.8882E+00, 0.8946E+00, 0.9012E+00, 0.9076E+00,& - 0.9143E+00, 0.9209E+00, 0.9277E+00, 0.9343E+00,& - 0.9411E+00, 0.9479E+00, 0.9547E+00, 0.9617E+00,& - 0.9685E+00, 0.9755E+00, 0.9828E+00, 0.9898E+00,& - 0.9970E+00, 0.1004E+01, 0.1011E+01, 0.1019E+01,& - 0.1026E+01, 0.1033E+01, 0.1041E+01, 0.1048E+01,& - 0.1056E+01, 0.1063E+01, 0.1071E+01, 0.1079E+01,& - 0.1087E+01, 0.1095E+01, 0.1102E+01, 0.1110E+01,& - 0.1118E+01, 0.1126E+01, 0.1134E+01, 0.1143E+01,& - 0.1151E+01, 0.1159E+01, 0.1167E+01, 0.1176E+01,& - 0.1184E+01, 0.1193E+01, 0.1202E+01, 0.1210E+01,& - 0.1219E+01, 0.1228E+01, 0.1236E+01, 0.1245E+01,& - 0.1254E+01, 0.1263E+01, 0.1272E+01, 0.1282E+01,& - 0.1291E+01, 0.1300E+01, 0.1309E+01, 0.1319E+01,& - 0.1328E+01, 0.1338E+01, 0.1348E+01, 0.1357E+01,& - 0.1367E+01, 0.1377E+01, 0.1387E+01, 0.1397E+01,& - 0.1407E+01, 0.1417E+01, 0.1427E+01, 0.1438E+01,& - 0.1448E+01, 0.1458E+01, 0.1469E+01, 0.1480E+01,& - 0.1490E+01, 0.1501E+01, 0.1512E+01, 0.1523E+01,& - 0.1534E+01, 0.1545E+01, 0.1556E+01, 0.1568E+01,& - 0.1579E+01, 0.1590E+01, 0.1602E+01, 0.1614E+01,& - 0.1625E+01, 0.1637E+01, 0.1649E+01, 0.1661E+01,& - 0.1673E+01, 0.1685E+01, 0.1698E+01, 0.1710E+01,& - 0.1723E+01, 0.1735E+01, 0.1748E+01, 0.1761E+01,& - 0.1774E+01, 0.1787E+01, 0.1800E+01, 0.1813E+01,& - 0.1826E+01, 0.1840E+01, 0.1853E+01, 0.1867E+01,& - 0.1881E+01, 0.1895E+01, 0.1909E+01, 0.1923E+01,& - 0.1937E+01, 0.1951E+01, 0.1966E+01, 0.1981E+01,& - 0.1995E+01, 0.2010E+01, 0.2025E+01, 0.2040E+01,& - 0.2056E+01, 0.2071E+01, 0.2087E+01, 0.2102E+01,& - 0.2118E+01, 0.2134E+01, 0.2150E+01, 0.2166E+01,& - 0.2183E+01, 0.2199E+01, 0.2216E+01, 0.2233E+01,& - 0.2250E+01, 0.2267E+01, 0.2284E+01, 0.2302E+01,& - 0.2319E+01, 0.2337E+01, 0.2355E+01, 0.2373E+01,& - 0.2391E+01, 0.2410E+01, 0.2428E+01, 0.2447E+01,& - 0.2466E+01, 0.2485E+01, 0.2505E+01, 0.2524E+01,& - 0.2544E+01, 0.2564E+01, 0.2584E+01, 0.2604E+01,& - 0.2625E+01, 0.2646E+01, 0.2667E+01, 0.2688E+01,& - 0.2709E+01, 0.2731E+01, 0.2753E+01, 0.2775E+01,& - 0.2797E+01, 0.2820E+01, 0.2843E+01, 0.2866E+01,& - 0.2889E+01, 0.2912E+01, 0.2936E+01, 0.2960E+01,& - 0.2985E+01, 0.3009E+01, 0.3034E+01, 0.3059E+01,& - 0.3085E+01, 0.3110E+01, 0.3136E+01, 0.3163E+01,& - 0.3190E+01, 0.3216E+01, 0.3244E+01, 0.3271E+01,& - 0.3299E+01, 0.3328E+01, 0.3356E+01, 0.3385E+01,& - 0.3414E+01, 0.3444E+01, 0.3474E+01, 0.3505E+01,& - 0.3536E+01, 0.3567E+01, 0.3599E+01, 0.3631E+01,& - 0.3664E+01, 0.3697E+01, 0.3730E+01, 0.3764E+01,& - 0.3798E+01, 0.3833E+01, 0.3869E+01, 0.3904E+01,& - 0.3941E+01, 0.3978E+01, 0.4015E+01, 0.4053E+01,& - 0.4092E+01, 0.4131E+01, 0.4171E+01, 0.4212E+01,& - 0.4253E+01, 0.4295E+01, 0.4337E+01, 0.4380E+01,& - 0.4424E+01, 0.4469E+01, 0.4514E+01, 0.4560E+01,& - 0.4608E+01, 0.4655E+01, 0.4704E+01, 0.4754E+01,& - 0.4804E+01, 0.4856E+01, 0.4909E+01, 0.4962E+01,& - 0.5017E+01, 0.5073E+01, 0.5130E+01, 0.5188E+01,& - 0.5248E+01, 0.5308E+01, 0.5370E+01, 0.5434E+01,& - 0.5499E+01, 0.5565E+01, 0.5633E+01, 0.5703E+01,& - 0.5775E+01, 0.5848E+01, 0.5924E+01, 0.6001E+01,& - 0.6081E+01, 0.6163E+01, 0.6247E+01, 0.6334E+01,& - 0.6424E+01, 0.6516E+01, 0.6611E+01, 0.6710E+01,& - 0.6812E+01, 0.6918E+01, 0.7028E+01, 0.7142E+01,& - 0.7261E+01, 0.7385E+01, 0.7515E+01, 0.7650E+01,& - 0.7791E+01, 0.7940E+01, 0.8098E+01, 0.8263E+01,& - 0.8439E+01, 0.8626E+01, 0.8826E+01, 0.9040E+01,& - 0.9272E+01, 0.9524E+01, 0.9799E+01, 0.1010E+02,& - 0.1045E+02, 0.1083E+02, 0.1128E+02, 0.1182E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 82) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2204E-03,& - 0.2204E-03, 0.2204E-03, 0.2204E-03, 0.2204E-03,& - 0.2204E-03, 0.2204E-03, 0.2204E-03, 0.2204E-03,& - 0.2204E-03, 0.2204E-03, 0.2204E-03, 0.2204E-03,& - 0.2204E-03, 0.2204E-03, 0.2204E-03, 0.2204E-03,& - 0.2204E-03, 0.2204E-03, 0.4308E-03, 0.4308E-03,& - 0.4308E-03, 0.4308E-03, 0.4308E-03, 0.4308E-03,& - 0.4308E-03, 0.4308E-03, 0.4308E-03, 0.4308E-03,& - 0.4308E-03, 0.4308E-03, 0.4308E-03, 0.4308E-03,& - 0.6412E-03, 0.6412E-03, 0.6412E-03, 0.6412E-03,& - 0.6412E-03, 0.6412E-03, 0.6412E-03, 0.6412E-03,& - 0.6412E-03, 0.6412E-03, 0.8516E-03, 0.8516E-03,& - 0.8516E-03, 0.8516E-03, 0.8516E-03, 0.8516E-03,& - 0.8516E-03, 0.8516E-03, 0.1062E-02, 0.1062E-02,& - 0.1062E-02, 0.1062E-02, 0.1062E-02, 0.1062E-02,& - 0.1062E-02, 0.1272E-02, 0.1272E-02, 0.1272E-02,& - 0.1272E-02, 0.1272E-02, 0.1272E-02, 0.1483E-02,& - 0.1483E-02, 0.1483E-02, 0.1483E-02, 0.1483E-02,& - 0.1483E-02, 0.1693E-02, 0.1693E-02, 0.1693E-02,& - 0.1693E-02, 0.1693E-02, 0.1904E-02, 0.1904E-02,& - 0.1904E-02, 0.1904E-02, 0.2114E-02, 0.2114E-02,& - 0.2114E-02, 0.2114E-02, 0.2324E-02, 0.2324E-02,& - 0.2324E-02, 0.2324E-02, 0.2535E-02, 0.2535E-02,& - 0.2535E-02, 0.2535E-02, 0.2745E-02, 0.2745E-02,& - 0.2745E-02, 0.2956E-02, 0.2956E-02, 0.2956E-02,& - 0.2956E-02, 0.3166E-02, 0.3166E-02, 0.3166E-02,& - 0.3376E-02, 0.3376E-02, 0.3376E-02, 0.3587E-02,& - 0.3587E-02, 0.3587E-02, 0.3797E-02, 0.3797E-02,& - 0.4008E-02, 0.4008E-02, 0.4008E-02, 0.4218E-02,& - 0.4218E-02, 0.4218E-02, 0.4428E-02, 0.4428E-02,& - 0.4639E-02, 0.4639E-02, 0.4849E-02, 0.4849E-02,& - 0.5060E-02, 0.5060E-02, 0.5060E-02, 0.5270E-02,& - 0.5270E-02, 0.5481E-02, 0.5481E-02, 0.5691E-02,& - 0.5691E-02, 0.5901E-02, 0.5901E-02, 0.6112E-02,& - 0.6112E-02, 0.6322E-02, 0.6533E-02, 0.6533E-02,& - 0.6743E-02, 0.6743E-02, 0.6953E-02, 0.6953E-02,& - 0.7164E-02, 0.7374E-02, 0.7374E-02, 0.7585E-02,& - 0.7795E-02, 0.7795E-02, 0.8005E-02, 0.8005E-02,& - 0.8216E-02, 0.8426E-02, 0.8426E-02, 0.8637E-02,& - 0.8847E-02, 0.9057E-02, 0.9057E-02, 0.9268E-02,& - 0.9478E-02, 0.9689E-02, 0.9689E-02, 0.9899E-02,& - 0.1011E-01, 0.1032E-01, 0.1032E-01, 0.1053E-01,& - 0.1074E-01, 0.1095E-01, 0.1116E-01, 0.1137E-01,& - 0.1158E-01, 0.1158E-01, 0.1179E-01, 0.1200E-01,& - 0.1221E-01, 0.1242E-01, 0.1263E-01, 0.1284E-01,& - 0.1306E-01, 0.1327E-01, 0.1348E-01, 0.1369E-01,& - 0.1390E-01, 0.1411E-01, 0.1432E-01, 0.1453E-01,& - 0.1474E-01, 0.1495E-01, 0.1516E-01, 0.1537E-01,& - 0.1558E-01, 0.1579E-01, 0.1621E-01, 0.1642E-01,& - 0.1663E-01, 0.1684E-01, 0.1705E-01, 0.1726E-01,& - 0.1768E-01, 0.1789E-01, 0.1810E-01, 0.1832E-01,& - 0.1874E-01, 0.1895E-01, 0.1916E-01, 0.1937E-01,& - 0.1979E-01, 0.2000E-01, 0.2021E-01, 0.2063E-01,& - 0.2084E-01, 0.2126E-01, 0.2147E-01, 0.2189E-01,& - 0.2210E-01, 0.2231E-01, 0.2273E-01, 0.2294E-01,& - 0.2336E-01, 0.2358E-01, 0.2400E-01, 0.2442E-01,& - 0.2463E-01, 0.2505E-01, 0.2526E-01, 0.2568E-01,& - 0.2610E-01, 0.2631E-01, 0.2673E-01, 0.2715E-01,& - 0.2736E-01, 0.2778E-01, 0.2820E-01, 0.2862E-01,& - 0.2905E-01, 0.2926E-01, 0.2968E-01, 0.3010E-01,& - 0.3052E-01, 0.3094E-01, 0.3136E-01, 0.3178E-01,& - 0.3220E-01, 0.3262E-01, 0.3304E-01, 0.3346E-01,& - 0.3389E-01, 0.3431E-01, 0.3473E-01, 0.3515E-01,& - 0.3557E-01, 0.3599E-01, 0.3641E-01, 0.3683E-01,& - 0.3746E-01, 0.3788E-01, 0.3830E-01, 0.3872E-01,& - 0.3936E-01, 0.3978E-01, 0.4020E-01, 0.4083E-01,& - 0.4125E-01, 0.4167E-01, 0.4230E-01, 0.4272E-01,& - 0.4335E-01, 0.4377E-01, 0.4441E-01, 0.4483E-01,& - 0.4546E-01, 0.4588E-01, 0.4651E-01, 0.4714E-01,& - 0.4756E-01, 0.4819E-01, 0.4882E-01, 0.4946E-01,& - 0.4988E-01, 0.5051E-01, 0.5114E-01, 0.5177E-01,& - 0.5240E-01, 0.5303E-01, 0.5366E-01, 0.5408E-01,& - 0.5472E-01, 0.5535E-01, 0.5619E-01, 0.5682E-01,& - 0.5745E-01, 0.5808E-01, 0.5871E-01, 0.5934E-01,& - 0.5998E-01, 0.6082E-01, 0.6145E-01, 0.6208E-01,& - 0.6292E-01, 0.6355E-01, 0.6418E-01, 0.6502E-01,& - 0.6566E-01, 0.6650E-01, 0.6713E-01, 0.6797E-01,& - 0.6860E-01, 0.6944E-01, 0.7007E-01, 0.7092E-01,& - 0.7176E-01, 0.7260E-01, 0.7323E-01, 0.7407E-01,& - 0.7491E-01, 0.7576E-01, 0.7660E-01, 0.7744E-01,& - 0.7828E-01, 0.7912E-01, 0.7996E-01, 0.8081E-01,& - 0.8165E-01, 0.8249E-01, 0.8333E-01, 0.8417E-01,& - 0.8522E-01, 0.8607E-01, 0.8691E-01, 0.8796E-01,& - 0.8880E-01, 0.8964E-01, 0.9069E-01, 0.9154E-01,& - 0.9259E-01, 0.9343E-01, 0.9448E-01, 0.9553E-01,& - 0.9638E-01, 0.9743E-01, 0.9848E-01, 0.9953E-01,& - 0.1006E+00, 0.1014E+00, 0.1025E+00, 0.1035E+00,& - 0.1046E+00, 0.1056E+00, 0.1069E+00, 0.1079E+00,& - 0.1090E+00, 0.1101E+00, 0.1111E+00, 0.1124E+00,& - 0.1134E+00, 0.1145E+00, 0.1157E+00, 0.1168E+00,& - 0.1180E+00, 0.1191E+00, 0.1204E+00, 0.1216E+00,& - 0.1227E+00, 0.1239E+00, 0.1252E+00, 0.1265E+00,& - 0.1277E+00, 0.1290E+00, 0.1303E+00, 0.1315E+00,& - 0.1328E+00, 0.1340E+00, 0.1353E+00, 0.1366E+00,& - 0.1378E+00, 0.1393E+00, 0.1406E+00, 0.1420E+00,& - 0.1433E+00, 0.1448E+00, 0.1460E+00, 0.1475E+00,& - 0.1488E+00, 0.1502E+00, 0.1517E+00, 0.1532E+00,& - 0.1547E+00, 0.1561E+00, 0.1574E+00, 0.1591E+00,& - 0.1605E+00, 0.1620E+00, 0.1635E+00, 0.1650E+00,& - 0.1667E+00, 0.1681E+00, 0.1696E+00, 0.1713E+00,& - 0.1728E+00, 0.1744E+00, 0.1761E+00, 0.1776E+00,& - 0.1793E+00, 0.1810E+00, 0.1826E+00, 0.1843E+00,& - 0.1860E+00, 0.1877E+00, 0.1894E+00, 0.1911E+00,& - 0.1927E+00, 0.1946E+00, 0.1963E+00, 0.1980E+00,& - 0.1999E+00, 0.2016E+00, 0.2035E+00, 0.2054E+00,& - 0.2070E+00, 0.2089E+00, 0.2108E+00, 0.2127E+00,& - 0.2146E+00, 0.2165E+00, 0.2184E+00, 0.2203E+00,& - 0.2224E+00, 0.2243E+00, 0.2262E+00, 0.2283E+00,& - 0.2302E+00, 0.2323E+00, 0.2344E+00, 0.2365E+00,& - 0.2384E+00, 0.2405E+00, 0.2426E+00, 0.2447E+00,& - 0.2468E+00, 0.2491E+00, 0.2512E+00, 0.2533E+00,& - 0.2554E+00, 0.2578E+00, 0.2601E+00, 0.2622E+00,& - 0.2645E+00, 0.2668E+00, 0.2689E+00, 0.2712E+00,& - 0.2735E+00, 0.2761E+00, 0.2784E+00, 0.2807E+00,& - 0.2830E+00, 0.2855E+00, 0.2878E+00, 0.2904E+00,& - 0.2927E+00, 0.2952E+00, 0.2977E+00, 0.3003E+00,& - 0.3028E+00, 0.3053E+00, 0.3078E+00, 0.3104E+00,& - 0.3131E+00, 0.3156E+00, 0.3184E+00, 0.3209E+00,& - 0.3236E+00, 0.3263E+00, 0.3289E+00, 0.3316E+00,& - 0.3343E+00, 0.3373E+00, 0.3400E+00, 0.3428E+00,& - 0.3455E+00, 0.3484E+00, 0.3514E+00, 0.3541E+00,& - 0.3571E+00, 0.3600E+00, 0.3630E+00, 0.3659E+00,& - 0.3688E+00, 0.3718E+00, 0.3750E+00, 0.3779E+00,& - 0.3811E+00, 0.3840E+00, 0.3872E+00, 0.3903E+00,& - 0.3935E+00, 0.3966E+00, 0.3998E+00, 0.4029E+00,& - 0.4063E+00, 0.4095E+00, 0.4128E+00, 0.4162E+00,& - 0.4193E+00, 0.4227E+00, 0.4261E+00, 0.4297E+00,& - 0.4330E+00, 0.4364E+00, 0.4400E+00, 0.4433E+00,& - 0.4469E+00, 0.4505E+00, 0.4541E+00, 0.4576E+00,& - 0.4612E+00, 0.4648E+00, 0.4686E+00, 0.4722E+00,& - 0.4759E+00, 0.4795E+00, 0.4833E+00, 0.4871E+00,& - 0.4909E+00, 0.4949E+00, 0.4987E+00, 0.5027E+00,& - 0.5065E+00, 0.5105E+00, 0.5144E+00, 0.5184E+00,& - 0.5224E+00, 0.5264E+00, 0.5306E+00, 0.5346E+00,& - 0.5389E+00, 0.5431E+00, 0.5473E+00, 0.5515E+00,& - 0.5557E+00, 0.5599E+00, 0.5643E+00, 0.5685E+00,& - 0.5729E+00, 0.5774E+00, 0.5818E+00, 0.5862E+00,& - 0.5906E+00, 0.5952E+00, 0.5999E+00, 0.6043E+00,& - 0.6089E+00, 0.6135E+00, 0.6182E+00, 0.6230E+00,& - 0.6276E+00, 0.6325E+00, 0.6373E+00, 0.6422E+00,& - 0.6470E+00, 0.6518E+00, 0.6569E+00, 0.6617E+00,& - 0.6668E+00, 0.6718E+00, 0.6769E+00, 0.6819E+00,& - 0.6872E+00, 0.6922E+00, 0.6975E+00, 0.7028E+00,& - 0.7080E+00, 0.7135E+00, 0.7188E+00, 0.7242E+00,& - 0.7295E+00, 0.7350E+00, 0.7406E+00, 0.7461E+00,& - 0.7516E+00, 0.7573E+00, 0.7629E+00, 0.7686E+00,& - 0.7743E+00, 0.7802E+00, 0.7859E+00, 0.7918E+00,& - 0.7977E+00, 0.8035E+00, 0.8096E+00, 0.8155E+00,& - 0.8216E+00, 0.8277E+00, 0.8338E+00, 0.8402E+00,& - 0.8463E+00, 0.8526E+00, 0.8589E+00, 0.8652E+00,& - 0.8717E+00, 0.8780E+00, 0.8845E+00, 0.8911E+00,& - 0.8978E+00, 0.9043E+00, 0.9111E+00, 0.9178E+00,& - 0.9245E+00, 0.9313E+00, 0.9382E+00, 0.9451E+00,& - 0.9521E+00, 0.9590E+00, 0.9662E+00, 0.9731E+00,& - 0.9803E+00, 0.9876E+00, 0.9948E+00, 0.1002E+01,& - 0.1010E+01, 0.1017E+01, 0.1024E+01, 0.1032E+01,& - 0.1039E+01, 0.1047E+01, 0.1055E+01, 0.1063E+01,& - 0.1070E+01, 0.1078E+01, 0.1086E+01, 0.1094E+01,& - 0.1102E+01, 0.1110E+01, 0.1118E+01, 0.1126E+01,& - 0.1135E+01, 0.1143E+01, 0.1151E+01, 0.1160E+01,& - 0.1168E+01, 0.1177E+01, 0.1185E+01, 0.1194E+01,& - 0.1203E+01, 0.1212E+01, 0.1221E+01, 0.1229E+01,& - 0.1238E+01, 0.1247E+01, 0.1257E+01, 0.1266E+01,& - 0.1275E+01, 0.1284E+01, 0.1294E+01, 0.1303E+01,& - 0.1313E+01, 0.1322E+01, 0.1332E+01, 0.1342E+01,& - 0.1352E+01, 0.1362E+01, 0.1372E+01, 0.1382E+01,& - 0.1392E+01, 0.1402E+01, 0.1412E+01, 0.1423E+01,& - 0.1433E+01, 0.1444E+01, 0.1454E+01, 0.1465E+01,& - 0.1476E+01, 0.1487E+01, 0.1497E+01, 0.1509E+01,& - 0.1520E+01, 0.1531E+01, 0.1542E+01, 0.1553E+01,& - 0.1565E+01, 0.1577E+01, 0.1588E+01, 0.1600E+01,& - 0.1612E+01, 0.1624E+01, 0.1636E+01, 0.1648E+01,& - 0.1660E+01, 0.1672E+01, 0.1685E+01, 0.1697E+01,& - 0.1710E+01, 0.1722E+01, 0.1735E+01, 0.1748E+01,& - 0.1761E+01, 0.1774E+01, 0.1788E+01, 0.1801E+01,& - 0.1814E+01, 0.1828E+01, 0.1842E+01, 0.1855E+01,& - 0.1869E+01, 0.1883E+01, 0.1898E+01, 0.1912E+01,& - 0.1926E+01, 0.1941E+01, 0.1955E+01, 0.1970E+01,& - 0.1985E+01, 0.2000E+01, 0.2015E+01, 0.2030E+01,& - 0.2046E+01, 0.2062E+01, 0.2077E+01, 0.2093E+01,& - 0.2109E+01, 0.2125E+01, 0.2141E+01, 0.2158E+01,& - 0.2174E+01, 0.2191E+01, 0.2208E+01, 0.2225E+01,& - 0.2242E+01, 0.2259E+01, 0.2277E+01, 0.2295E+01,& - 0.2312E+01, 0.2330E+01, 0.2349E+01, 0.2367E+01,& - 0.2385E+01, 0.2404E+01, 0.2423E+01, 0.2442E+01,& - 0.2461E+01, 0.2481E+01, 0.2500E+01, 0.2520E+01,& - 0.2540E+01, 0.2560E+01, 0.2581E+01, 0.2601E+01,& - 0.2622E+01, 0.2643E+01, 0.2664E+01, 0.2686E+01,& - 0.2707E+01, 0.2729E+01, 0.2752E+01, 0.2774E+01,& - 0.2797E+01, 0.2819E+01, 0.2843E+01, 0.2866E+01,& - 0.2889E+01, 0.2913E+01, 0.2938E+01, 0.2962E+01,& - 0.2987E+01, 0.3012E+01, 0.3037E+01, 0.3062E+01,& - 0.3088E+01, 0.3114E+01, 0.3141E+01, 0.3167E+01,& - 0.3195E+01, 0.3222E+01, 0.3250E+01, 0.3278E+01,& - 0.3306E+01, 0.3335E+01, 0.3364E+01, 0.3393E+01,& - 0.3423E+01, 0.3453E+01, 0.3484E+01, 0.3515E+01,& - 0.3546E+01, 0.3578E+01, 0.3610E+01, 0.3643E+01,& - 0.3676E+01, 0.3710E+01, 0.3744E+01, 0.3778E+01,& - 0.3813E+01, 0.3849E+01, 0.3884E+01, 0.3921E+01,& - 0.3958E+01, 0.3996E+01, 0.4034E+01, 0.4073E+01,& - 0.4112E+01, 0.4152E+01, 0.4192E+01, 0.4234E+01,& - 0.4275E+01, 0.4318E+01, 0.4361E+01, 0.4405E+01,& - 0.4450E+01, 0.4495E+01, 0.4542E+01, 0.4589E+01,& - 0.4637E+01, 0.4686E+01, 0.4735E+01, 0.4786E+01,& - 0.4837E+01, 0.4890E+01, 0.4943E+01, 0.4998E+01,& - 0.5054E+01, 0.5111E+01, 0.5169E+01, 0.5228E+01,& - 0.5289E+01, 0.5351E+01, 0.5414E+01, 0.5479E+01,& - 0.5545E+01, 0.5613E+01, 0.5682E+01, 0.5754E+01,& - 0.5827E+01, 0.5901E+01, 0.5978E+01, 0.6058E+01,& - 0.6139E+01, 0.6222E+01, 0.6308E+01, 0.6397E+01,& - 0.6488E+01, 0.6583E+01, 0.6680E+01, 0.6781E+01,& - 0.6885E+01, 0.6993E+01, 0.7106E+01, 0.7222E+01,& - 0.7344E+01, 0.7470E+01, 0.7602E+01, 0.7741E+01,& - 0.7886E+01, 0.8037E+01, 0.8198E+01, 0.8368E+01,& - 0.8547E+01, 0.8739E+01, 0.8943E+01, 0.9162E+01,& - 0.9399E+01, 0.9656E+01, 0.9938E+01, 0.1025E+02,& - 0.1060E+02, 0.1100E+02, 0.1146E+02, 0.1201E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 83) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2245E-03, 0.2245E-03, 0.2245E-03,& - 0.2245E-03, 0.2245E-03, 0.2245E-03, 0.2245E-03,& - 0.2245E-03, 0.2245E-03, 0.2245E-03, 0.2245E-03,& - 0.2245E-03, 0.2245E-03, 0.2245E-03, 0.2245E-03,& - 0.2245E-03, 0.2245E-03, 0.2245E-03, 0.2245E-03,& - 0.2245E-03, 0.4390E-03, 0.4390E-03, 0.4390E-03,& - 0.4390E-03, 0.4390E-03, 0.4390E-03, 0.4390E-03,& - 0.4390E-03, 0.4390E-03, 0.4390E-03, 0.4390E-03,& - 0.4390E-03, 0.4390E-03, 0.6534E-03, 0.6534E-03,& - 0.6534E-03, 0.6534E-03, 0.6534E-03, 0.6534E-03,& - 0.6534E-03, 0.6534E-03, 0.6534E-03, 0.6534E-03,& - 0.8679E-03, 0.8679E-03, 0.8679E-03, 0.8679E-03,& - 0.8679E-03, 0.8679E-03, 0.8679E-03, 0.8679E-03,& - 0.8679E-03, 0.1082E-02, 0.1082E-02, 0.1082E-02,& - 0.1082E-02, 0.1082E-02, 0.1082E-02, 0.1082E-02,& - 0.1297E-02, 0.1297E-02, 0.1297E-02, 0.1297E-02,& - 0.1297E-02, 0.1297E-02, 0.1511E-02, 0.1511E-02,& - 0.1511E-02, 0.1511E-02, 0.1511E-02, 0.1511E-02,& - 0.1726E-02, 0.1726E-02, 0.1726E-02, 0.1726E-02,& - 0.1726E-02, 0.1940E-02, 0.1940E-02, 0.1940E-02,& - 0.1940E-02, 0.1940E-02, 0.2155E-02, 0.2155E-02,& - 0.2155E-02, 0.2155E-02, 0.2369E-02, 0.2369E-02,& - 0.2369E-02, 0.2369E-02, 0.2584E-02, 0.2584E-02,& - 0.2584E-02, 0.2584E-02, 0.2798E-02, 0.2798E-02,& - 0.2798E-02, 0.3013E-02, 0.3013E-02, 0.3013E-02,& - 0.3227E-02, 0.3227E-02, 0.3227E-02, 0.3227E-02,& - 0.3442E-02, 0.3442E-02, 0.3442E-02, 0.3656E-02,& - 0.3656E-02, 0.3871E-02, 0.3871E-02, 0.3871E-02,& - 0.4085E-02, 0.4085E-02, 0.4085E-02, 0.4300E-02,& - 0.4300E-02, 0.4514E-02, 0.4514E-02, 0.4514E-02,& - 0.4729E-02, 0.4729E-02, 0.4943E-02, 0.4943E-02,& - 0.5158E-02, 0.5158E-02, 0.5158E-02, 0.5372E-02,& - 0.5372E-02, 0.5587E-02, 0.5587E-02, 0.5801E-02,& - 0.5801E-02, 0.6015E-02, 0.6015E-02, 0.6230E-02,& - 0.6230E-02, 0.6444E-02, 0.6659E-02, 0.6659E-02,& - 0.6873E-02, 0.6873E-02, 0.7088E-02, 0.7088E-02,& - 0.7302E-02, 0.7517E-02, 0.7517E-02, 0.7731E-02,& - 0.7731E-02, 0.7946E-02, 0.8160E-02, 0.8160E-02,& - 0.8375E-02, 0.8589E-02, 0.8589E-02, 0.8804E-02,& - 0.9018E-02, 0.9233E-02, 0.9233E-02, 0.9447E-02,& - 0.9662E-02, 0.9662E-02, 0.9876E-02, 0.1009E-01,& - 0.1031E-01, 0.1052E-01, 0.1052E-01, 0.1073E-01,& - 0.1095E-01, 0.1116E-01, 0.1138E-01, 0.1159E-01,& - 0.1159E-01, 0.1181E-01, 0.1202E-01, 0.1224E-01,& - 0.1245E-01, 0.1266E-01, 0.1288E-01, 0.1309E-01,& - 0.1331E-01, 0.1352E-01, 0.1374E-01, 0.1395E-01,& - 0.1417E-01, 0.1438E-01, 0.1459E-01, 0.1481E-01,& - 0.1502E-01, 0.1524E-01, 0.1545E-01, 0.1567E-01,& - 0.1588E-01, 0.1610E-01, 0.1631E-01, 0.1653E-01,& - 0.1695E-01, 0.1717E-01, 0.1738E-01, 0.1760E-01,& - 0.1781E-01, 0.1824E-01, 0.1846E-01, 0.1867E-01,& - 0.1888E-01, 0.1931E-01, 0.1953E-01, 0.1974E-01,& - 0.1996E-01, 0.2039E-01, 0.2060E-01, 0.2103E-01,& - 0.2124E-01, 0.2146E-01, 0.2189E-01, 0.2210E-01,& - 0.2253E-01, 0.2275E-01, 0.2317E-01, 0.2339E-01,& - 0.2382E-01, 0.2403E-01, 0.2446E-01, 0.2468E-01,& - 0.2510E-01, 0.2532E-01, 0.2575E-01, 0.2618E-01,& - 0.2639E-01, 0.2682E-01, 0.2725E-01, 0.2746E-01,& - 0.2789E-01, 0.2832E-01, 0.2854E-01, 0.2896E-01,& - 0.2939E-01, 0.2982E-01, 0.3025E-01, 0.3068E-01,& - 0.3090E-01, 0.3132E-01, 0.3175E-01, 0.3218E-01,& - 0.3261E-01, 0.3304E-01, 0.3347E-01, 0.3390E-01,& - 0.3433E-01, 0.3476E-01, 0.3518E-01, 0.3561E-01,& - 0.3604E-01, 0.3669E-01, 0.3712E-01, 0.3754E-01,& - 0.3797E-01, 0.3840E-01, 0.3905E-01, 0.3947E-01,& - 0.3990E-01, 0.4033E-01, 0.4098E-01, 0.4140E-01,& - 0.4183E-01, 0.4248E-01, 0.4291E-01, 0.4355E-01,& - 0.4398E-01, 0.4462E-01, 0.4505E-01, 0.4569E-01,& - 0.4612E-01, 0.4677E-01, 0.4741E-01, 0.4784E-01,& - 0.4848E-01, 0.4913E-01, 0.4956E-01, 0.5020E-01,& - 0.5084E-01, 0.5149E-01, 0.5191E-01, 0.5256E-01,& - 0.5320E-01, 0.5384E-01, 0.5449E-01, 0.5513E-01,& - 0.5578E-01, 0.5642E-01, 0.5706E-01, 0.5771E-01,& - 0.5835E-01, 0.5899E-01, 0.5964E-01, 0.6049E-01,& - 0.6114E-01, 0.6178E-01, 0.6242E-01, 0.6328E-01,& - 0.6393E-01, 0.6457E-01, 0.6543E-01, 0.6607E-01,& - 0.6693E-01, 0.6757E-01, 0.6843E-01, 0.6907E-01,& - 0.6993E-01, 0.7057E-01, 0.7143E-01, 0.7229E-01,& - 0.7293E-01, 0.7379E-01, 0.7465E-01, 0.7551E-01,& - 0.7637E-01, 0.7722E-01, 0.7787E-01, 0.7872E-01,& - 0.7958E-01, 0.8044E-01, 0.8130E-01, 0.8237E-01,& - 0.8323E-01, 0.8409E-01, 0.8494E-01, 0.8580E-01,& - 0.8687E-01, 0.8773E-01, 0.8859E-01, 0.8966E-01,& - 0.9052E-01, 0.9138E-01, 0.9245E-01, 0.9331E-01,& - 0.9438E-01, 0.9545E-01, 0.9631E-01, 0.9738E-01,& - 0.9846E-01, 0.9931E-01, 0.1004E+00, 0.1015E+00,& - 0.1025E+00, 0.1036E+00, 0.1047E+00, 0.1057E+00,& - 0.1068E+00, 0.1079E+00, 0.1090E+00, 0.1100E+00,& - 0.1111E+00, 0.1124E+00, 0.1135E+00, 0.1145E+00,& - 0.1158E+00, 0.1169E+00, 0.1182E+00, 0.1193E+00,& - 0.1205E+00, 0.1216E+00, 0.1229E+00, 0.1242E+00,& - 0.1253E+00, 0.1266E+00, 0.1278E+00, 0.1291E+00,& - 0.1304E+00, 0.1317E+00, 0.1330E+00, 0.1343E+00,& - 0.1356E+00, 0.1368E+00, 0.1384E+00, 0.1396E+00,& - 0.1409E+00, 0.1424E+00, 0.1437E+00, 0.1450E+00,& - 0.1465E+00, 0.1480E+00, 0.1493E+00, 0.1508E+00,& - 0.1523E+00, 0.1536E+00, 0.1551E+00, 0.1566E+00,& - 0.1581E+00, 0.1596E+00, 0.1611E+00, 0.1626E+00,& - 0.1641E+00, 0.1658E+00, 0.1673E+00, 0.1688E+00,& - 0.1705E+00, 0.1720E+00, 0.1737E+00, 0.1752E+00,& - 0.1770E+00, 0.1787E+00, 0.1802E+00, 0.1819E+00,& - 0.1836E+00, 0.1853E+00, 0.1870E+00, 0.1888E+00,& - 0.1905E+00, 0.1922E+00, 0.1939E+00, 0.1958E+00,& - 0.1975E+00, 0.1993E+00, 0.2012E+00, 0.2029E+00,& - 0.2048E+00, 0.2068E+00, 0.2085E+00, 0.2104E+00,& - 0.2123E+00, 0.2143E+00, 0.2162E+00, 0.2181E+00,& - 0.2201E+00, 0.2220E+00, 0.2241E+00, 0.2261E+00,& - 0.2280E+00, 0.2301E+00, 0.2321E+00, 0.2342E+00,& - 0.2364E+00, 0.2383E+00, 0.2404E+00, 0.2426E+00,& - 0.2447E+00, 0.2469E+00, 0.2490E+00, 0.2514E+00,& - 0.2535E+00, 0.2557E+00, 0.2580E+00, 0.2602E+00,& - 0.2625E+00, 0.2647E+00, 0.2670E+00, 0.2694E+00,& - 0.2718E+00, 0.2741E+00, 0.2765E+00, 0.2788E+00,& - 0.2812E+00, 0.2836E+00, 0.2861E+00, 0.2885E+00,& - 0.2911E+00, 0.2934E+00, 0.2960E+00, 0.2986E+00,& - 0.3011E+00, 0.3037E+00, 0.3063E+00, 0.3089E+00,& - 0.3114E+00, 0.3140E+00, 0.3168E+00, 0.3194E+00,& - 0.3222E+00, 0.3247E+00, 0.3275E+00, 0.3303E+00,& - 0.3331E+00, 0.3359E+00, 0.3387E+00, 0.3415E+00,& - 0.3443E+00, 0.3473E+00, 0.3500E+00, 0.3530E+00,& - 0.3560E+00, 0.3588E+00, 0.3618E+00, 0.3648E+00,& - 0.3678E+00, 0.3708E+00, 0.3741E+00, 0.3771E+00,& - 0.3803E+00, 0.3833E+00, 0.3865E+00, 0.3897E+00,& - 0.3927E+00, 0.3959E+00, 0.3992E+00, 0.4026E+00,& - 0.4058E+00, 0.4090E+00, 0.4125E+00, 0.4159E+00,& - 0.4191E+00, 0.4225E+00, 0.4260E+00, 0.4294E+00,& - 0.4328E+00, 0.4365E+00, 0.4399E+00, 0.4436E+00,& - 0.4470E+00, 0.4506E+00, 0.4543E+00, 0.4579E+00,& - 0.4616E+00, 0.4652E+00, 0.4689E+00, 0.4727E+00,& - 0.4764E+00, 0.4802E+00, 0.4841E+00, 0.4880E+00,& - 0.4918E+00, 0.4957E+00, 0.4998E+00, 0.5036E+00,& - 0.5077E+00, 0.5115E+00, 0.5156E+00, 0.5197E+00,& - 0.5238E+00, 0.5281E+00, 0.5321E+00, 0.5362E+00,& - 0.5405E+00, 0.5448E+00, 0.5491E+00, 0.5534E+00,& - 0.5577E+00, 0.5620E+00, 0.5665E+00, 0.5707E+00,& - 0.5752E+00, 0.5798E+00, 0.5843E+00, 0.5888E+00,& - 0.5935E+00, 0.5980E+00, 0.6027E+00, 0.6074E+00,& - 0.6121E+00, 0.6169E+00, 0.6216E+00, 0.6263E+00,& - 0.6312E+00, 0.6362E+00, 0.6409E+00, 0.6460E+00,& - 0.6510E+00, 0.6559E+00, 0.6610E+00, 0.6660E+00,& - 0.6711E+00, 0.6763E+00, 0.6814E+00, 0.6868E+00,& - 0.6919E+00, 0.6973E+00, 0.7027E+00, 0.7080E+00,& - 0.7134E+00, 0.7187E+00, 0.7243E+00, 0.7299E+00,& - 0.7353E+00, 0.7410E+00, 0.7466E+00, 0.7522E+00,& - 0.7580E+00, 0.7638E+00, 0.7696E+00, 0.7754E+00,& - 0.7812E+00, 0.7872E+00, 0.7932E+00, 0.7992E+00,& - 0.8052E+00, 0.8112E+00, 0.8174E+00, 0.8236E+00,& - 0.8298E+00, 0.8361E+00, 0.8423E+00, 0.8487E+00,& - 0.8551E+00, 0.8616E+00, 0.8680E+00, 0.8745E+00,& - 0.8811E+00, 0.8877E+00, 0.8944E+00, 0.9010E+00,& - 0.9079E+00, 0.9146E+00, 0.9214E+00, 0.9285E+00,& - 0.9354E+00, 0.9424E+00, 0.9495E+00, 0.9566E+00,& - 0.9637E+00, 0.9710E+00, 0.9783E+00, 0.9856E+00,& - 0.9928E+00, 0.1000E+01, 0.1008E+01, 0.1015E+01,& - 0.1023E+01, 0.1030E+01, 0.1038E+01, 0.1046E+01,& - 0.1054E+01, 0.1061E+01, 0.1069E+01, 0.1077E+01,& - 0.1085E+01, 0.1094E+01, 0.1102E+01, 0.1110E+01,& - 0.1118E+01, 0.1126E+01, 0.1135E+01, 0.1143E+01,& - 0.1152E+01, 0.1160E+01, 0.1169E+01, 0.1178E+01,& - 0.1187E+01, 0.1195E+01, 0.1204E+01, 0.1213E+01,& - 0.1222E+01, 0.1231E+01, 0.1241E+01, 0.1250E+01,& - 0.1259E+01, 0.1268E+01, 0.1278E+01, 0.1287E+01,& - 0.1297E+01, 0.1307E+01, 0.1316E+01, 0.1326E+01,& - 0.1336E+01, 0.1346E+01, 0.1356E+01, 0.1366E+01,& - 0.1376E+01, 0.1387E+01, 0.1397E+01, 0.1407E+01,& - 0.1418E+01, 0.1428E+01, 0.1439E+01, 0.1450E+01,& - 0.1461E+01, 0.1472E+01, 0.1483E+01, 0.1494E+01,& - 0.1505E+01, 0.1516E+01, 0.1528E+01, 0.1539E+01,& - 0.1550E+01, 0.1562E+01, 0.1574E+01, 0.1586E+01,& - 0.1598E+01, 0.1610E+01, 0.1622E+01, 0.1634E+01,& - 0.1646E+01, 0.1659E+01, 0.1671E+01, 0.1684E+01,& - 0.1697E+01, 0.1709E+01, 0.1722E+01, 0.1735E+01,& - 0.1748E+01, 0.1762E+01, 0.1775E+01, 0.1788E+01,& - 0.1802E+01, 0.1816E+01, 0.1830E+01, 0.1843E+01,& - 0.1857E+01, 0.1872E+01, 0.1886E+01, 0.1900E+01,& - 0.1915E+01, 0.1929E+01, 0.1944E+01, 0.1959E+01,& - 0.1974E+01, 0.1989E+01, 0.2005E+01, 0.2020E+01,& - 0.2036E+01, 0.2051E+01, 0.2067E+01, 0.2083E+01,& - 0.2099E+01, 0.2116E+01, 0.2132E+01, 0.2149E+01,& - 0.2165E+01, 0.2182E+01, 0.2199E+01, 0.2217E+01,& - 0.2234E+01, 0.2251E+01, 0.2269E+01, 0.2287E+01,& - 0.2305E+01, 0.2323E+01, 0.2341E+01, 0.2360E+01,& - 0.2379E+01, 0.2398E+01, 0.2417E+01, 0.2436E+01,& - 0.2456E+01, 0.2475E+01, 0.2495E+01, 0.2515E+01,& - 0.2535E+01, 0.2556E+01, 0.2577E+01, 0.2597E+01,& - 0.2619E+01, 0.2640E+01, 0.2661E+01, 0.2683E+01,& - 0.2705E+01, 0.2727E+01, 0.2750E+01, 0.2772E+01,& - 0.2795E+01, 0.2819E+01, 0.2842E+01, 0.2866E+01,& - 0.2890E+01, 0.2914E+01, 0.2938E+01, 0.2963E+01,& - 0.2988E+01, 0.3013E+01, 0.3039E+01, 0.3065E+01,& - 0.3091E+01, 0.3117E+01, 0.3144E+01, 0.3172E+01,& - 0.3199E+01, 0.3227E+01, 0.3255E+01, 0.3283E+01,& - 0.3312E+01, 0.3341E+01, 0.3371E+01, 0.3401E+01,& - 0.3431E+01, 0.3462E+01, 0.3493E+01, 0.3524E+01,& - 0.3556E+01, 0.3588E+01, 0.3621E+01, 0.3654E+01,& - 0.3688E+01, 0.3722E+01, 0.3757E+01, 0.3792E+01,& - 0.3827E+01, 0.3863E+01, 0.3900E+01, 0.3937E+01,& - 0.3975E+01, 0.4013E+01, 0.4052E+01, 0.4091E+01,& - 0.4131E+01, 0.4172E+01, 0.4213E+01, 0.4255E+01,& - 0.4297E+01, 0.4341E+01, 0.4385E+01, 0.4429E+01,& - 0.4475E+01, 0.4521E+01, 0.4568E+01, 0.4616E+01,& - 0.4665E+01, 0.4715E+01, 0.4765E+01, 0.4817E+01,& - 0.4869E+01, 0.4923E+01, 0.4977E+01, 0.5033E+01,& - 0.5090E+01, 0.5148E+01, 0.5207E+01, 0.5267E+01,& - 0.5329E+01, 0.5392E+01, 0.5457E+01, 0.5523E+01,& - 0.5590E+01, 0.5660E+01, 0.5731E+01, 0.5803E+01,& - 0.5878E+01, 0.5954E+01, 0.6033E+01, 0.6113E+01,& - 0.6196E+01, 0.6281E+01, 0.6369E+01, 0.6460E+01,& - 0.6553E+01, 0.6649E+01, 0.6748E+01, 0.6851E+01,& - 0.6958E+01, 0.7068E+01, 0.7183E+01, 0.7302E+01,& - 0.7426E+01, 0.7555E+01, 0.7690E+01, 0.7831E+01,& - 0.7979E+01, 0.8135E+01, 0.8299E+01, 0.8472E+01,& - 0.8656E+01, 0.8851E+01, 0.9060E+01, 0.9284E+01,& - 0.9526E+01, 0.9789E+01, 0.1008E+02, 0.1040E+02,& - 0.1075E+02, 0.1116E+02, 0.1163E+02, 0.1220E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 84) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2286E-03,& - 0.2286E-03, 0.2286E-03, 0.2286E-03, 0.2286E-03,& - 0.2286E-03, 0.2286E-03, 0.2286E-03, 0.2286E-03,& - 0.2286E-03, 0.2286E-03, 0.2286E-03, 0.2286E-03,& - 0.2286E-03, 0.2286E-03, 0.2286E-03, 0.2286E-03,& - 0.2286E-03, 0.2286E-03, 0.2286E-03, 0.4472E-03,& - 0.4472E-03, 0.4472E-03, 0.4472E-03, 0.4472E-03,& - 0.4472E-03, 0.4472E-03, 0.4472E-03, 0.4472E-03,& - 0.4472E-03, 0.4472E-03, 0.4472E-03, 0.4472E-03,& - 0.4472E-03, 0.6658E-03, 0.6658E-03, 0.6658E-03,& - 0.6658E-03, 0.6658E-03, 0.6658E-03, 0.6658E-03,& - 0.6658E-03, 0.6658E-03, 0.6658E-03, 0.8844E-03,& - 0.8844E-03, 0.8844E-03, 0.8844E-03, 0.8844E-03,& - 0.8844E-03, 0.8844E-03, 0.8844E-03, 0.8844E-03,& - 0.1103E-02, 0.1103E-02, 0.1103E-02, 0.1103E-02,& - 0.1103E-02, 0.1103E-02, 0.1103E-02, 0.1322E-02,& - 0.1322E-02, 0.1322E-02, 0.1322E-02, 0.1322E-02,& - 0.1322E-02, 0.1540E-02, 0.1540E-02, 0.1540E-02,& - 0.1540E-02, 0.1540E-02, 0.1540E-02, 0.1759E-02,& - 0.1759E-02, 0.1759E-02, 0.1759E-02, 0.1759E-02,& - 0.1977E-02, 0.1977E-02, 0.1977E-02, 0.1977E-02,& - 0.1977E-02, 0.2196E-02, 0.2196E-02, 0.2196E-02,& - 0.2196E-02, 0.2415E-02, 0.2415E-02, 0.2415E-02,& - 0.2415E-02, 0.2633E-02, 0.2633E-02, 0.2633E-02,& - 0.2633E-02, 0.2852E-02, 0.2852E-02, 0.2852E-02,& - 0.2852E-02, 0.3070E-02, 0.3070E-02, 0.3070E-02,& - 0.3289E-02, 0.3289E-02, 0.3289E-02, 0.3508E-02,& - 0.3508E-02, 0.3508E-02, 0.3726E-02, 0.3726E-02,& - 0.3726E-02, 0.3945E-02, 0.3945E-02, 0.3945E-02,& - 0.4164E-02, 0.4164E-02, 0.4382E-02, 0.4382E-02,& - 0.4382E-02, 0.4601E-02, 0.4601E-02, 0.4819E-02,& - 0.4819E-02, 0.4819E-02, 0.5038E-02, 0.5038E-02,& - 0.5257E-02, 0.5257E-02, 0.5475E-02, 0.5475E-02,& - 0.5694E-02, 0.5694E-02, 0.5694E-02, 0.5912E-02,& - 0.5912E-02, 0.6131E-02, 0.6131E-02, 0.6350E-02,& - 0.6568E-02, 0.6568E-02, 0.6787E-02, 0.6787E-02,& - 0.7005E-02, 0.7005E-02, 0.7224E-02, 0.7224E-02,& - 0.7443E-02, 0.7661E-02, 0.7661E-02, 0.7880E-02,& - 0.8098E-02, 0.8098E-02, 0.8317E-02, 0.8317E-02,& - 0.8536E-02, 0.8754E-02, 0.8754E-02, 0.8973E-02,& - 0.9191E-02, 0.9410E-02, 0.9410E-02, 0.9629E-02,& - 0.9847E-02, 0.9847E-02, 0.1007E-01, 0.1028E-01,& - 0.1050E-01, 0.1072E-01, 0.1072E-01, 0.1094E-01,& - 0.1116E-01, 0.1138E-01, 0.1160E-01, 0.1160E-01,& - 0.1181E-01, 0.1203E-01, 0.1225E-01, 0.1247E-01,& - 0.1269E-01, 0.1291E-01, 0.1313E-01, 0.1334E-01,& - 0.1356E-01, 0.1378E-01, 0.1400E-01, 0.1400E-01,& - 0.1422E-01, 0.1444E-01, 0.1488E-01, 0.1509E-01,& - 0.1531E-01, 0.1553E-01, 0.1575E-01, 0.1597E-01,& - 0.1619E-01, 0.1641E-01, 0.1662E-01, 0.1684E-01,& - 0.1706E-01, 0.1750E-01, 0.1772E-01, 0.1794E-01,& - 0.1815E-01, 0.1837E-01, 0.1881E-01, 0.1903E-01,& - 0.1925E-01, 0.1947E-01, 0.1990E-01, 0.2012E-01,& - 0.2034E-01, 0.2078E-01, 0.2100E-01, 0.2121E-01,& - 0.2165E-01, 0.2187E-01, 0.2209E-01, 0.2253E-01,& - 0.2275E-01, 0.2318E-01, 0.2340E-01, 0.2384E-01,& - 0.2406E-01, 0.2449E-01, 0.2471E-01, 0.2515E-01,& - 0.2537E-01, 0.2581E-01, 0.2624E-01, 0.2646E-01,& - 0.2690E-01, 0.2734E-01, 0.2755E-01, 0.2799E-01,& - 0.2843E-01, 0.2865E-01, 0.2908E-01, 0.2952E-01,& - 0.2996E-01, 0.3040E-01, 0.3061E-01, 0.3105E-01,& - 0.3149E-01, 0.3193E-01, 0.3236E-01, 0.3280E-01,& - 0.3324E-01, 0.3368E-01, 0.3411E-01, 0.3455E-01,& - 0.3499E-01, 0.3542E-01, 0.3586E-01, 0.3630E-01,& - 0.3674E-01, 0.3717E-01, 0.3761E-01, 0.3827E-01,& - 0.3870E-01, 0.3914E-01, 0.3958E-01, 0.4001E-01,& - 0.4067E-01, 0.4111E-01, 0.4155E-01, 0.4220E-01,& - 0.4264E-01, 0.4329E-01, 0.4373E-01, 0.4417E-01,& - 0.4482E-01, 0.4526E-01, 0.4592E-01, 0.4635E-01,& - 0.4701E-01, 0.4767E-01, 0.4810E-01, 0.4876E-01,& - 0.4941E-01, 0.4985E-01, 0.5051E-01, 0.5116E-01,& - 0.5182E-01, 0.5226E-01, 0.5291E-01, 0.5357E-01,& - 0.5422E-01, 0.5488E-01, 0.5554E-01, 0.5619E-01,& - 0.5685E-01, 0.5750E-01, 0.5816E-01, 0.5881E-01,& - 0.5947E-01, 0.6013E-01, 0.6078E-01, 0.6166E-01,& - 0.6231E-01, 0.6297E-01, 0.6362E-01, 0.6450E-01,& - 0.6515E-01, 0.6581E-01, 0.6668E-01, 0.6734E-01,& - 0.6822E-01, 0.6887E-01, 0.6975E-01, 0.7040E-01,& - 0.7128E-01, 0.7193E-01, 0.7281E-01, 0.7368E-01,& - 0.7455E-01, 0.7521E-01, 0.7608E-01, 0.7696E-01,& - 0.7783E-01, 0.7871E-01, 0.7958E-01, 0.8046E-01,& - 0.8133E-01, 0.8221E-01, 0.8308E-01, 0.8395E-01,& - 0.8483E-01, 0.8570E-01, 0.8658E-01, 0.8767E-01,& - 0.8855E-01, 0.8942E-01, 0.9051E-01, 0.9139E-01,& - 0.9248E-01, 0.9335E-01, 0.9445E-01, 0.9532E-01,& - 0.9642E-01, 0.9729E-01, 0.9838E-01, 0.9948E-01,& - 0.1004E+00, 0.1014E+00, 0.1025E+00, 0.1036E+00,& - 0.1047E+00, 0.1058E+00, 0.1069E+00, 0.1080E+00,& - 0.1091E+00, 0.1102E+00, 0.1113E+00, 0.1126E+00,& - 0.1137E+00, 0.1148E+00, 0.1159E+00, 0.1172E+00,& - 0.1183E+00, 0.1196E+00, 0.1207E+00, 0.1220E+00,& - 0.1231E+00, 0.1244E+00, 0.1257E+00, 0.1270E+00,& - 0.1281E+00, 0.1294E+00, 0.1307E+00, 0.1320E+00,& - 0.1334E+00, 0.1347E+00, 0.1360E+00, 0.1373E+00,& - 0.1388E+00, 0.1401E+00, 0.1414E+00, 0.1428E+00,& - 0.1443E+00, 0.1456E+00, 0.1471E+00, 0.1484E+00,& - 0.1500E+00, 0.1515E+00, 0.1528E+00, 0.1543E+00,& - 0.1559E+00, 0.1574E+00, 0.1589E+00, 0.1605E+00,& - 0.1620E+00, 0.1635E+00, 0.1651E+00, 0.1666E+00,& - 0.1681E+00, 0.1699E+00, 0.1714E+00, 0.1731E+00,& - 0.1747E+00, 0.1764E+00, 0.1780E+00, 0.1797E+00,& - 0.1815E+00, 0.1830E+00, 0.1847E+00, 0.1865E+00,& - 0.1882E+00, 0.1900E+00, 0.1917E+00, 0.1935E+00,& - 0.1954E+00, 0.1972E+00, 0.1989E+00, 0.2009E+00,& - 0.2027E+00, 0.2046E+00, 0.2064E+00, 0.2083E+00,& - 0.2103E+00, 0.2121E+00, 0.2140E+00, 0.2160E+00,& - 0.2180E+00, 0.2199E+00, 0.2219E+00, 0.2241E+00,& - 0.2260E+00, 0.2280E+00, 0.2302E+00, 0.2322E+00,& - 0.2344E+00, 0.2363E+00, 0.2385E+00, 0.2407E+00,& - 0.2429E+00, 0.2451E+00, 0.2473E+00, 0.2494E+00,& - 0.2516E+00, 0.2538E+00, 0.2560E+00, 0.2584E+00,& - 0.2606E+00, 0.2630E+00, 0.2652E+00, 0.2676E+00,& - 0.2700E+00, 0.2724E+00, 0.2746E+00, 0.2770E+00,& - 0.2796E+00, 0.2820E+00, 0.2844E+00, 0.2868E+00,& - 0.2894E+00, 0.2918E+00, 0.2945E+00, 0.2969E+00,& - 0.2995E+00, 0.3021E+00, 0.3047E+00, 0.3074E+00,& - 0.3100E+00, 0.3126E+00, 0.3155E+00, 0.3181E+00,& - 0.3207E+00, 0.3235E+00, 0.3264E+00, 0.3290E+00,& - 0.3319E+00, 0.3347E+00, 0.3375E+00, 0.3404E+00,& - 0.3432E+00, 0.3463E+00, 0.3491E+00, 0.3520E+00,& - 0.3550E+00, 0.3581E+00, 0.3609E+00, 0.3640E+00,& - 0.3670E+00, 0.3701E+00, 0.3734E+00, 0.3764E+00,& - 0.3795E+00, 0.3828E+00, 0.3858E+00, 0.3891E+00,& - 0.3924E+00, 0.3957E+00, 0.3990E+00, 0.4022E+00,& - 0.4055E+00, 0.4088E+00, 0.4123E+00, 0.4156E+00,& - 0.4191E+00, 0.4226E+00, 0.4261E+00, 0.4296E+00,& - 0.4331E+00, 0.4366E+00, 0.4401E+00, 0.4438E+00,& - 0.4475E+00, 0.4510E+00, 0.4547E+00, 0.4584E+00,& - 0.4621E+00, 0.4659E+00, 0.4698E+00, 0.4735E+00,& - 0.4772E+00, 0.4812E+00, 0.4851E+00, 0.4890E+00,& - 0.4930E+00, 0.4969E+00, 0.5008E+00, 0.5050E+00,& - 0.5089E+00, 0.5131E+00, 0.5172E+00, 0.5214E+00,& - 0.5255E+00, 0.5297E+00, 0.5341E+00, 0.5382E+00,& - 0.5426E+00, 0.5467E+00, 0.5511E+00, 0.5555E+00,& - 0.5601E+00, 0.5645E+00, 0.5690E+00, 0.5734E+00,& - 0.5780E+00, 0.5826E+00, 0.5872E+00, 0.5918E+00,& - 0.5966E+00, 0.6012E+00, 0.6060E+00, 0.6108E+00,& - 0.6156E+00, 0.6204E+00, 0.6252E+00, 0.6300E+00,& - 0.6351E+00, 0.6401E+00, 0.6451E+00, 0.6501E+00,& - 0.6552E+00, 0.6602E+00, 0.6654E+00, 0.6707E+00,& - 0.6759E+00, 0.6812E+00, 0.6864E+00, 0.6919E+00,& - 0.6971E+00, 0.7026E+00, 0.7081E+00, 0.7135E+00,& - 0.7190E+00, 0.7247E+00, 0.7304E+00, 0.7358E+00,& - 0.7415E+00, 0.7474E+00, 0.7531E+00, 0.7590E+00,& - 0.7647E+00, 0.7706E+00, 0.7767E+00, 0.7826E+00,& - 0.7887E+00, 0.7946E+00, 0.8008E+00, 0.8069E+00,& - 0.8132E+00, 0.8193E+00, 0.8257E+00, 0.8320E+00,& - 0.8384E+00, 0.8449E+00, 0.8513E+00, 0.8578E+00,& - 0.8644E+00, 0.8709E+00, 0.8777E+00, 0.8843E+00,& - 0.8910E+00, 0.8978E+00, 0.9048E+00, 0.9116E+00,& - 0.9186E+00, 0.9256E+00, 0.9326E+00, 0.9398E+00,& - 0.9470E+00, 0.9542E+00, 0.9614E+00, 0.9687E+00,& - 0.9761E+00, 0.9835E+00, 0.9910E+00, 0.9986E+00,& - 0.1006E+01, 0.1014E+01, 0.1022E+01, 0.1029E+01,& - 0.1037E+01, 0.1045E+01, 0.1053E+01, 0.1061E+01,& - 0.1069E+01, 0.1077E+01, 0.1085E+01, 0.1093E+01,& - 0.1102E+01, 0.1110E+01, 0.1118E+01, 0.1127E+01,& - 0.1135E+01, 0.1144E+01, 0.1153E+01, 0.1161E+01,& - 0.1170E+01, 0.1179E+01, 0.1188E+01, 0.1197E+01,& - 0.1206E+01, 0.1215E+01, 0.1224E+01, 0.1234E+01,& - 0.1243E+01, 0.1252E+01, 0.1262E+01, 0.1271E+01,& - 0.1281E+01, 0.1291E+01, 0.1300E+01, 0.1310E+01,& - 0.1320E+01, 0.1330E+01, 0.1340E+01, 0.1351E+01,& - 0.1361E+01, 0.1371E+01, 0.1381E+01, 0.1392E+01,& - 0.1402E+01, 0.1413E+01, 0.1424E+01, 0.1435E+01,& - 0.1445E+01, 0.1457E+01, 0.1468E+01, 0.1479E+01,& - 0.1490E+01, 0.1501E+01, 0.1513E+01, 0.1524E+01,& - 0.1536E+01, 0.1548E+01, 0.1559E+01, 0.1571E+01,& - 0.1583E+01, 0.1595E+01, 0.1607E+01, 0.1620E+01,& - 0.1632E+01, 0.1645E+01, 0.1657E+01, 0.1670E+01,& - 0.1683E+01, 0.1696E+01, 0.1709E+01, 0.1722E+01,& - 0.1735E+01, 0.1748E+01, 0.1762E+01, 0.1776E+01,& - 0.1789E+01, 0.1803E+01, 0.1817E+01, 0.1831E+01,& - 0.1845E+01, 0.1859E+01, 0.1874E+01, 0.1888E+01,& - 0.1903E+01, 0.1918E+01, 0.1933E+01, 0.1948E+01,& - 0.1963E+01, 0.1978E+01, 0.1994E+01, 0.2009E+01,& - 0.2025E+01, 0.2041E+01, 0.2057E+01, 0.2073E+01,& - 0.2089E+01, 0.2106E+01, 0.2122E+01, 0.2139E+01,& - 0.2156E+01, 0.2173E+01, 0.2190E+01, 0.2208E+01,& - 0.2225E+01, 0.2243E+01, 0.2261E+01, 0.2279E+01,& - 0.2297E+01, 0.2315E+01, 0.2334E+01, 0.2353E+01,& - 0.2372E+01, 0.2391E+01, 0.2410E+01, 0.2430E+01,& - 0.2449E+01, 0.2469E+01, 0.2489E+01, 0.2510E+01,& - 0.2530E+01, 0.2551E+01, 0.2572E+01, 0.2593E+01,& - 0.2614E+01, 0.2636E+01, 0.2658E+01, 0.2680E+01,& - 0.2702E+01, 0.2724E+01, 0.2747E+01, 0.2770E+01,& - 0.2794E+01, 0.2817E+01, 0.2841E+01, 0.2865E+01,& - 0.2889E+01, 0.2914E+01, 0.2938E+01, 0.2963E+01,& - 0.2989E+01, 0.3014E+01, 0.3040E+01, 0.3067E+01,& - 0.3093E+01, 0.3120E+01, 0.3147E+01, 0.3175E+01,& - 0.3203E+01, 0.3231E+01, 0.3259E+01, 0.3288E+01,& - 0.3318E+01, 0.3347E+01, 0.3377E+01, 0.3407E+01,& - 0.3438E+01, 0.3469E+01, 0.3501E+01, 0.3533E+01,& - 0.3565E+01, 0.3598E+01, 0.3631E+01, 0.3665E+01,& - 0.3699E+01, 0.3734E+01, 0.3769E+01, 0.3805E+01,& - 0.3841E+01, 0.3877E+01, 0.3915E+01, 0.3952E+01,& - 0.3990E+01, 0.4029E+01, 0.4069E+01, 0.4109E+01,& - 0.4150E+01, 0.4191E+01, 0.4233E+01, 0.4276E+01,& - 0.4319E+01, 0.4363E+01, 0.4408E+01, 0.4453E+01,& - 0.4499E+01, 0.4547E+01, 0.4594E+01, 0.4643E+01,& - 0.4693E+01, 0.4743E+01, 0.4795E+01, 0.4847E+01,& - 0.4901E+01, 0.4955E+01, 0.5011E+01, 0.5068E+01,& - 0.5125E+01, 0.5184E+01, 0.5245E+01, 0.5306E+01,& - 0.5369E+01, 0.5433E+01, 0.5499E+01, 0.5567E+01,& - 0.5635E+01, 0.5706E+01, 0.5778E+01, 0.5852E+01,& - 0.5928E+01, 0.6006E+01, 0.6086E+01, 0.6168E+01,& - 0.6253E+01, 0.6340E+01, 0.6429E+01, 0.6521E+01,& - 0.6617E+01, 0.6715E+01, 0.6816E+01, 0.6921E+01,& - 0.7030E+01, 0.7143E+01, 0.7260E+01, 0.7381E+01,& - 0.7508E+01, 0.7640E+01, 0.7778E+01, 0.7922E+01,& - 0.8073E+01, 0.8232E+01, 0.8399E+01, 0.8576E+01,& - 0.8764E+01, 0.8963E+01, 0.9177E+01, 0.9406E+01,& - 0.9653E+01, 0.9922E+01, 0.1022E+02, 0.1054E+02,& - 0.1091E+02, 0.1132E+02, 0.1181E+02, 0.1238E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 85) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2328E-03, 0.2328E-03, 0.2328E-03,& - 0.2328E-03, 0.2328E-03, 0.2328E-03, 0.2328E-03,& - 0.2328E-03, 0.2328E-03, 0.2328E-03, 0.2328E-03,& - 0.2328E-03, 0.2328E-03, 0.2328E-03, 0.2328E-03,& - 0.2328E-03, 0.2328E-03, 0.2328E-03, 0.2328E-03,& - 0.2328E-03, 0.2328E-03, 0.4556E-03, 0.4556E-03,& - 0.4556E-03, 0.4556E-03, 0.4556E-03, 0.4556E-03,& - 0.4556E-03, 0.4556E-03, 0.4556E-03, 0.4556E-03,& - 0.4556E-03, 0.4556E-03, 0.4556E-03, 0.4556E-03,& - 0.6783E-03, 0.6783E-03, 0.6783E-03, 0.6783E-03,& - 0.6783E-03, 0.6783E-03, 0.6783E-03, 0.6783E-03,& - 0.6783E-03, 0.6783E-03, 0.9011E-03, 0.9011E-03,& - 0.9011E-03, 0.9011E-03, 0.9011E-03, 0.9011E-03,& - 0.9011E-03, 0.9011E-03, 0.9011E-03, 0.1124E-02,& - 0.1124E-02, 0.1124E-02, 0.1124E-02, 0.1124E-02,& - 0.1124E-02, 0.1124E-02, 0.1347E-02, 0.1347E-02,& - 0.1347E-02, 0.1347E-02, 0.1347E-02, 0.1347E-02,& - 0.1347E-02, 0.1569E-02, 0.1569E-02, 0.1569E-02,& - 0.1569E-02, 0.1569E-02, 0.1792E-02, 0.1792E-02,& - 0.1792E-02, 0.1792E-02, 0.1792E-02, 0.1792E-02,& - 0.2015E-02, 0.2015E-02, 0.2015E-02, 0.2015E-02,& - 0.2238E-02, 0.2238E-02, 0.2238E-02, 0.2238E-02,& - 0.2238E-02, 0.2461E-02, 0.2461E-02, 0.2461E-02,& - 0.2461E-02, 0.2683E-02, 0.2683E-02, 0.2683E-02,& - 0.2683E-02, 0.2906E-02, 0.2906E-02, 0.2906E-02,& - 0.3129E-02, 0.3129E-02, 0.3129E-02, 0.3129E-02,& - 0.3352E-02, 0.3352E-02, 0.3352E-02, 0.3574E-02,& - 0.3574E-02, 0.3574E-02, 0.3797E-02, 0.3797E-02,& - 0.3797E-02, 0.4020E-02, 0.4020E-02, 0.4020E-02,& - 0.4243E-02, 0.4243E-02, 0.4466E-02, 0.4466E-02,& - 0.4466E-02, 0.4688E-02, 0.4688E-02, 0.4911E-02,& - 0.4911E-02, 0.4911E-02, 0.5134E-02, 0.5134E-02,& - 0.5357E-02, 0.5357E-02, 0.5579E-02, 0.5579E-02,& - 0.5802E-02, 0.5802E-02, 0.6025E-02, 0.6025E-02,& - 0.6248E-02, 0.6248E-02, 0.6471E-02, 0.6471E-02,& - 0.6693E-02, 0.6693E-02, 0.6916E-02, 0.6916E-02,& - 0.7139E-02, 0.7139E-02, 0.7362E-02, 0.7584E-02,& - 0.7584E-02, 0.7807E-02, 0.7807E-02, 0.8030E-02,& - 0.8253E-02, 0.8253E-02, 0.8476E-02, 0.8476E-02,& - 0.8698E-02, 0.8921E-02, 0.8921E-02, 0.9144E-02,& - 0.9367E-02, 0.9589E-02, 0.9589E-02, 0.9812E-02,& - 0.1004E-01, 0.1004E-01, 0.1026E-01, 0.1048E-01,& - 0.1070E-01, 0.1093E-01, 0.1093E-01, 0.1115E-01,& - 0.1137E-01, 0.1159E-01, 0.1182E-01, 0.1182E-01,& - 0.1204E-01, 0.1226E-01, 0.1249E-01, 0.1271E-01,& - 0.1293E-01, 0.1315E-01, 0.1338E-01, 0.1360E-01,& - 0.1382E-01, 0.1382E-01, 0.1405E-01, 0.1427E-01,& - 0.1449E-01, 0.1471E-01, 0.1494E-01, 0.1516E-01,& - 0.1560E-01, 0.1583E-01, 0.1605E-01, 0.1627E-01,& - 0.1650E-01, 0.1672E-01, 0.1694E-01, 0.1716E-01,& - 0.1739E-01, 0.1761E-01, 0.1806E-01, 0.1828E-01,& - 0.1850E-01, 0.1872E-01, 0.1895E-01, 0.1939E-01,& - 0.1961E-01, 0.1984E-01, 0.2028E-01, 0.2051E-01,& - 0.2073E-01, 0.2095E-01, 0.2140E-01, 0.2162E-01,& - 0.2207E-01, 0.2229E-01, 0.2251E-01, 0.2296E-01,& - 0.2318E-01, 0.2362E-01, 0.2385E-01, 0.2429E-01,& - 0.2452E-01, 0.2496E-01, 0.2518E-01, 0.2563E-01,& - 0.2585E-01, 0.2630E-01, 0.2674E-01, 0.2697E-01,& - 0.2741E-01, 0.2763E-01, 0.2808E-01, 0.2853E-01,& - 0.2897E-01, 0.2919E-01, 0.2964E-01, 0.3009E-01,& - 0.3053E-01, 0.3075E-01, 0.3120E-01, 0.3164E-01,& - 0.3209E-01, 0.3254E-01, 0.3298E-01, 0.3343E-01,& - 0.3387E-01, 0.3432E-01, 0.3476E-01, 0.3521E-01,& - 0.3565E-01, 0.3610E-01, 0.3655E-01, 0.3699E-01,& - 0.3744E-01, 0.3788E-01, 0.3833E-01, 0.3877E-01,& - 0.3944E-01, 0.3989E-01, 0.4033E-01, 0.4078E-01,& - 0.4145E-01, 0.4189E-01, 0.4234E-01, 0.4301E-01,& - 0.4345E-01, 0.4390E-01, 0.4457E-01, 0.4501E-01,& - 0.4568E-01, 0.4613E-01, 0.4679E-01, 0.4724E-01,& - 0.4791E-01, 0.4858E-01, 0.4902E-01, 0.4969E-01,& - 0.5036E-01, 0.5080E-01, 0.5147E-01, 0.5214E-01,& - 0.5281E-01, 0.5325E-01, 0.5392E-01, 0.5459E-01,& - 0.5526E-01, 0.5593E-01, 0.5660E-01, 0.5726E-01,& - 0.5793E-01, 0.5860E-01, 0.5927E-01, 0.5994E-01,& - 0.6061E-01, 0.6127E-01, 0.6217E-01, 0.6283E-01,& - 0.6350E-01, 0.6417E-01, 0.6506E-01, 0.6573E-01,& - 0.6640E-01, 0.6729E-01, 0.6796E-01, 0.6885E-01,& - 0.6952E-01, 0.7041E-01, 0.7108E-01, 0.7197E-01,& - 0.7264E-01, 0.7353E-01, 0.7442E-01, 0.7509E-01,& - 0.7598E-01, 0.7687E-01, 0.7776E-01, 0.7865E-01,& - 0.7954E-01, 0.8021E-01, 0.8110E-01, 0.8199E-01,& - 0.8288E-01, 0.8377E-01, 0.8489E-01, 0.8578E-01,& - 0.8667E-01, 0.8756E-01, 0.8845E-01, 0.8957E-01,& - 0.9046E-01, 0.9135E-01, 0.9246E-01, 0.9335E-01,& - 0.9447E-01, 0.9536E-01, 0.9647E-01, 0.9736E-01,& - 0.9848E-01, 0.9959E-01, 0.1005E+00, 0.1016E+00,& - 0.1027E+00, 0.1038E+00, 0.1049E+00, 0.1061E+00,& - 0.1072E+00, 0.1083E+00, 0.1094E+00, 0.1105E+00,& - 0.1116E+00, 0.1127E+00, 0.1138E+00, 0.1152E+00,& - 0.1163E+00, 0.1174E+00, 0.1188E+00, 0.1199E+00,& - 0.1212E+00, 0.1223E+00, 0.1237E+00, 0.1248E+00,& - 0.1261E+00, 0.1274E+00, 0.1286E+00, 0.1299E+00,& - 0.1312E+00, 0.1326E+00, 0.1339E+00, 0.1352E+00,& - 0.1366E+00, 0.1379E+00, 0.1392E+00, 0.1408E+00,& - 0.1421E+00, 0.1435E+00, 0.1450E+00, 0.1464E+00,& - 0.1479E+00, 0.1493E+00, 0.1508E+00, 0.1522E+00,& - 0.1537E+00, 0.1553E+00, 0.1566E+00, 0.1582E+00,& - 0.1597E+00, 0.1613E+00, 0.1629E+00, 0.1644E+00,& - 0.1660E+00, 0.1678E+00, 0.1693E+00, 0.1709E+00,& - 0.1727E+00, 0.1742E+00, 0.1758E+00, 0.1776E+00,& - 0.1793E+00, 0.1809E+00, 0.1827E+00, 0.1845E+00,& - 0.1863E+00, 0.1878E+00, 0.1896E+00, 0.1914E+00,& - 0.1934E+00, 0.1952E+00, 0.1969E+00, 0.1987E+00,& - 0.2005E+00, 0.2025E+00, 0.2043E+00, 0.2063E+00,& - 0.2083E+00, 0.2101E+00, 0.2121E+00, 0.2141E+00,& - 0.2161E+00, 0.2181E+00, 0.2201E+00, 0.2221E+00,& - 0.2241E+00, 0.2261E+00, 0.2281E+00, 0.2304E+00,& - 0.2324E+00, 0.2346E+00, 0.2366E+00, 0.2388E+00,& - 0.2411E+00, 0.2431E+00, 0.2453E+00, 0.2475E+00,& - 0.2497E+00, 0.2520E+00, 0.2544E+00, 0.2567E+00,& - 0.2589E+00, 0.2613E+00, 0.2636E+00, 0.2660E+00,& - 0.2682E+00, 0.2707E+00, 0.2731E+00, 0.2756E+00,& - 0.2780E+00, 0.2805E+00, 0.2829E+00, 0.2854E+00,& - 0.2878E+00, 0.2905E+00, 0.2930E+00, 0.2956E+00,& - 0.2981E+00, 0.3008E+00, 0.3034E+00, 0.3061E+00,& - 0.3088E+00, 0.3115E+00, 0.3141E+00, 0.3168E+00,& - 0.3197E+00, 0.3224E+00, 0.3253E+00, 0.3279E+00,& - 0.3308E+00, 0.3337E+00, 0.3366E+00, 0.3395E+00,& - 0.3424E+00, 0.3453E+00, 0.3482E+00, 0.3513E+00,& - 0.3542E+00, 0.3573E+00, 0.3605E+00, 0.3634E+00,& - 0.3665E+00, 0.3696E+00, 0.3727E+00, 0.3761E+00,& - 0.3792E+00, 0.3823E+00, 0.3856E+00, 0.3888E+00,& - 0.3921E+00, 0.3954E+00, 0.3988E+00, 0.4021E+00,& - 0.4055E+00, 0.4088E+00, 0.4124E+00, 0.4157E+00,& - 0.4193E+00, 0.4228E+00, 0.4262E+00, 0.4297E+00,& - 0.4333E+00, 0.4371E+00, 0.4407E+00, 0.4442E+00,& - 0.4480E+00, 0.4518E+00, 0.4554E+00, 0.4592E+00,& - 0.4629E+00, 0.4667E+00, 0.4707E+00, 0.4745E+00,& - 0.4785E+00, 0.4823E+00, 0.4863E+00, 0.4903E+00,& - 0.4944E+00, 0.4984E+00, 0.5024E+00, 0.5066E+00,& - 0.5106E+00, 0.5149E+00, 0.5191E+00, 0.5233E+00,& - 0.5275E+00, 0.5318E+00, 0.5360E+00, 0.5405E+00,& - 0.5449E+00, 0.5492E+00, 0.5536E+00, 0.5581E+00,& - 0.5627E+00, 0.5672E+00, 0.5719E+00, 0.5763E+00,& - 0.5810E+00, 0.5857E+00, 0.5904E+00, 0.5951E+00,& - 0.6000E+00, 0.6046E+00, 0.6095E+00, 0.6144E+00,& - 0.6193E+00, 0.6242E+00, 0.6291E+00, 0.6343E+00,& - 0.6394E+00, 0.6445E+00, 0.6496E+00, 0.6548E+00,& - 0.6599E+00, 0.6652E+00, 0.6703E+00, 0.6757E+00,& - 0.6810E+00, 0.6864E+00, 0.6920E+00, 0.6973E+00,& - 0.7029E+00, 0.7084E+00, 0.7140E+00, 0.7196E+00,& - 0.7254E+00, 0.7309E+00, 0.7367E+00, 0.7425E+00,& - 0.7483E+00, 0.7543E+00, 0.7601E+00, 0.7661E+00,& - 0.7722E+00, 0.7782E+00, 0.7842E+00, 0.7904E+00,& - 0.7967E+00, 0.8029E+00, 0.8091E+00, 0.8154E+00,& - 0.8218E+00, 0.8281E+00, 0.8345E+00, 0.8412E+00,& - 0.8477E+00, 0.8544E+00, 0.8608E+00, 0.8675E+00,& - 0.8744E+00, 0.8811E+00, 0.8880E+00, 0.8949E+00,& - 0.9018E+00, 0.9087E+00, 0.9159E+00, 0.9230E+00,& - 0.9301E+00, 0.9372E+00, 0.9446E+00, 0.9519E+00,& - 0.9593E+00, 0.9666E+00, 0.9742E+00, 0.9818E+00,& - 0.9894E+00, 0.9969E+00, 0.1005E+01, 0.1012E+01,& - 0.1020E+01, 0.1028E+01, 0.1036E+01, 0.1044E+01,& - 0.1052E+01, 0.1060E+01, 0.1068E+01, 0.1076E+01,& - 0.1085E+01, 0.1093E+01, 0.1102E+01, 0.1110E+01,& - 0.1119E+01, 0.1127E+01, 0.1136E+01, 0.1145E+01,& - 0.1154E+01, 0.1162E+01, 0.1171E+01, 0.1180E+01,& - 0.1189E+01, 0.1199E+01, 0.1208E+01, 0.1217E+01,& - 0.1226E+01, 0.1236E+01, 0.1245E+01, 0.1255E+01,& - 0.1265E+01, 0.1275E+01, 0.1284E+01, 0.1294E+01,& - 0.1304E+01, 0.1314E+01, 0.1324E+01, 0.1334E+01,& - 0.1345E+01, 0.1355E+01, 0.1366E+01, 0.1376E+01,& - 0.1387E+01, 0.1397E+01, 0.1408E+01, 0.1419E+01,& - 0.1430E+01, 0.1441E+01, 0.1452E+01, 0.1463E+01,& - 0.1475E+01, 0.1486E+01, 0.1498E+01, 0.1509E+01,& - 0.1521E+01, 0.1533E+01, 0.1545E+01, 0.1557E+01,& - 0.1569E+01, 0.1581E+01, 0.1593E+01, 0.1605E+01,& - 0.1618E+01, 0.1630E+01, 0.1643E+01, 0.1656E+01,& - 0.1669E+01, 0.1682E+01, 0.1695E+01, 0.1708E+01,& - 0.1721E+01, 0.1735E+01, 0.1748E+01, 0.1762E+01,& - 0.1776E+01, 0.1790E+01, 0.1804E+01, 0.1818E+01,& - 0.1832E+01, 0.1847E+01, 0.1861E+01, 0.1876E+01,& - 0.1891E+01, 0.1906E+01, 0.1921E+01, 0.1936E+01,& - 0.1951E+01, 0.1967E+01, 0.1982E+01, 0.1998E+01,& - 0.2014E+01, 0.2030E+01, 0.2046E+01, 0.2062E+01,& - 0.2079E+01, 0.2095E+01, 0.2112E+01, 0.2129E+01,& - 0.2146E+01, 0.2163E+01, 0.2181E+01, 0.2198E+01,& - 0.2216E+01, 0.2234E+01, 0.2252E+01, 0.2270E+01,& - 0.2289E+01, 0.2307E+01, 0.2326E+01, 0.2345E+01,& - 0.2364E+01, 0.2384E+01, 0.2403E+01, 0.2423E+01,& - 0.2443E+01, 0.2463E+01, 0.2483E+01, 0.2504E+01,& - 0.2525E+01, 0.2545E+01, 0.2567E+01, 0.2588E+01,& - 0.2610E+01, 0.2631E+01, 0.2654E+01, 0.2676E+01,& - 0.2698E+01, 0.2721E+01, 0.2744E+01, 0.2768E+01,& - 0.2791E+01, 0.2815E+01, 0.2839E+01, 0.2863E+01,& - 0.2888E+01, 0.2913E+01, 0.2938E+01, 0.2963E+01,& - 0.2989E+01, 0.3015E+01, 0.3041E+01, 0.3068E+01,& - 0.3095E+01, 0.3122E+01, 0.3150E+01, 0.3177E+01,& - 0.3206E+01, 0.3234E+01, 0.3263E+01, 0.3293E+01,& - 0.3322E+01, 0.3352E+01, 0.3383E+01, 0.3414E+01,& - 0.3445E+01, 0.3476E+01, 0.3508E+01, 0.3541E+01,& - 0.3574E+01, 0.3607E+01, 0.3641E+01, 0.3675E+01,& - 0.3710E+01, 0.3745E+01, 0.3781E+01, 0.3817E+01,& - 0.3853E+01, 0.3891E+01, 0.3928E+01, 0.3967E+01,& - 0.4006E+01, 0.4045E+01, 0.4085E+01, 0.4126E+01,& - 0.4167E+01, 0.4209E+01, 0.4252E+01, 0.4295E+01,& - 0.4340E+01, 0.4384E+01, 0.4430E+01, 0.4476E+01,& - 0.4523E+01, 0.4571E+01, 0.4620E+01, 0.4669E+01,& - 0.4720E+01, 0.4771E+01, 0.4824E+01, 0.4877E+01,& - 0.4932E+01, 0.4987E+01, 0.5044E+01, 0.5101E+01,& - 0.5160E+01, 0.5220E+01, 0.5282E+01, 0.5344E+01,& - 0.5409E+01, 0.5474E+01, 0.5541E+01, 0.5610E+01,& - 0.5680E+01, 0.5751E+01, 0.5825E+01, 0.5901E+01,& - 0.5978E+01, 0.6058E+01, 0.6139E+01, 0.6223E+01,& - 0.6309E+01, 0.6398E+01, 0.6489E+01, 0.6583E+01,& - 0.6680E+01, 0.6780E+01, 0.6884E+01, 0.6991E+01,& - 0.7102E+01, 0.7217E+01, 0.7336E+01, 0.7460E+01,& - 0.7589E+01, 0.7724E+01, 0.7865E+01, 0.8012E+01,& - 0.8166E+01, 0.8329E+01, 0.8499E+01, 0.8679E+01,& - 0.8872E+01, 0.9076E+01, 0.9294E+01, 0.9528E+01,& - 0.9781E+01, 0.1006E+02, 0.1036E+02, 0.1069E+02,& - 0.1106E+02, 0.1149E+02, 0.1198E+02, 0.1257E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 86) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2370E-03,& - 0.2370E-03, 0.2370E-03, 0.2370E-03, 0.2370E-03,& - 0.2370E-03, 0.2370E-03, 0.2370E-03, 0.2370E-03,& - 0.2370E-03, 0.2370E-03, 0.2370E-03, 0.2370E-03,& - 0.2370E-03, 0.2370E-03, 0.2370E-03, 0.2370E-03,& - 0.2370E-03, 0.2370E-03, 0.2370E-03, 0.2370E-03,& - 0.4640E-03, 0.4640E-03, 0.4640E-03, 0.4640E-03,& - 0.4640E-03, 0.4640E-03, 0.4640E-03, 0.4640E-03,& - 0.4640E-03, 0.4640E-03, 0.4640E-03, 0.4640E-03,& - 0.4640E-03, 0.4640E-03, 0.4640E-03, 0.6910E-03,& - 0.6910E-03, 0.6910E-03, 0.6910E-03, 0.6910E-03,& - 0.6910E-03, 0.6910E-03, 0.6910E-03, 0.6910E-03,& - 0.6910E-03, 0.9180E-03, 0.9180E-03, 0.9180E-03,& - 0.9180E-03, 0.9180E-03, 0.9180E-03, 0.9180E-03,& - 0.9180E-03, 0.9180E-03, 0.1145E-02, 0.1145E-02,& - 0.1145E-02, 0.1145E-02, 0.1145E-02, 0.1145E-02,& - 0.1145E-02, 0.1372E-02, 0.1372E-02, 0.1372E-02,& - 0.1372E-02, 0.1372E-02, 0.1372E-02, 0.1372E-02,& - 0.1599E-02, 0.1599E-02, 0.1599E-02, 0.1599E-02,& - 0.1599E-02, 0.1599E-02, 0.1826E-02, 0.1826E-02,& - 0.1826E-02, 0.1826E-02, 0.1826E-02, 0.2053E-02,& - 0.2053E-02, 0.2053E-02, 0.2053E-02, 0.2053E-02,& - 0.2280E-02, 0.2280E-02, 0.2280E-02, 0.2280E-02,& - 0.2507E-02, 0.2507E-02, 0.2507E-02, 0.2507E-02,& - 0.2734E-02, 0.2734E-02, 0.2734E-02, 0.2734E-02,& - 0.2961E-02, 0.2961E-02, 0.2961E-02, 0.2961E-02,& - 0.3188E-02, 0.3188E-02, 0.3188E-02, 0.3415E-02,& - 0.3415E-02, 0.3415E-02, 0.3642E-02, 0.3642E-02,& - 0.3642E-02, 0.3869E-02, 0.3869E-02, 0.3869E-02,& - 0.4096E-02, 0.4096E-02, 0.4096E-02, 0.4323E-02,& - 0.4323E-02, 0.4323E-02, 0.4550E-02, 0.4550E-02,& - 0.4777E-02, 0.4777E-02, 0.4777E-02, 0.5004E-02,& - 0.5004E-02, 0.5231E-02, 0.5231E-02, 0.5231E-02,& - 0.5458E-02, 0.5458E-02, 0.5685E-02, 0.5685E-02,& - 0.5912E-02, 0.5912E-02, 0.6139E-02, 0.6139E-02,& - 0.6366E-02, 0.6366E-02, 0.6593E-02, 0.6593E-02,& - 0.6820E-02, 0.6820E-02, 0.7047E-02, 0.7047E-02,& - 0.7274E-02, 0.7274E-02, 0.7501E-02, 0.7728E-02,& - 0.7728E-02, 0.7955E-02, 0.7955E-02, 0.8182E-02,& - 0.8409E-02, 0.8409E-02, 0.8636E-02, 0.8863E-02,& - 0.8863E-02, 0.9090E-02, 0.9317E-02, 0.9317E-02,& - 0.9544E-02, 0.9771E-02, 0.9771E-02, 0.9998E-02,& - 0.1022E-01, 0.1045E-01, 0.1045E-01, 0.1068E-01,& - 0.1091E-01, 0.1113E-01, 0.1113E-01, 0.1136E-01,& - 0.1159E-01, 0.1181E-01, 0.1204E-01, 0.1204E-01,& - 0.1227E-01, 0.1249E-01, 0.1272E-01, 0.1295E-01,& - 0.1318E-01, 0.1340E-01, 0.1363E-01, 0.1386E-01,& - 0.1408E-01, 0.1431E-01, 0.1431E-01, 0.1454E-01,& - 0.1476E-01, 0.1499E-01, 0.1522E-01, 0.1567E-01,& - 0.1590E-01, 0.1613E-01, 0.1635E-01, 0.1658E-01,& - 0.1681E-01, 0.1703E-01, 0.1726E-01, 0.1749E-01,& - 0.1772E-01, 0.1794E-01, 0.1840E-01, 0.1862E-01,& - 0.1885E-01, 0.1908E-01, 0.1930E-01, 0.1976E-01,& - 0.1999E-01, 0.2021E-01, 0.2067E-01, 0.2089E-01,& - 0.2112E-01, 0.2135E-01, 0.2180E-01, 0.2203E-01,& - 0.2248E-01, 0.2271E-01, 0.2294E-01, 0.2339E-01,& - 0.2362E-01, 0.2407E-01, 0.2430E-01, 0.2475E-01,& - 0.2498E-01, 0.2543E-01, 0.2566E-01, 0.2611E-01,& - 0.2634E-01, 0.2680E-01, 0.2725E-01, 0.2748E-01,& - 0.2793E-01, 0.2816E-01, 0.2861E-01, 0.2907E-01,& - 0.2952E-01, 0.2975E-01, 0.3020E-01, 0.3065E-01,& - 0.3111E-01, 0.3134E-01, 0.3179E-01, 0.3224E-01,& - 0.3270E-01, 0.3315E-01, 0.3361E-01, 0.3406E-01,& - 0.3451E-01, 0.3497E-01, 0.3542E-01, 0.3588E-01,& - 0.3633E-01, 0.3678E-01, 0.3724E-01, 0.3769E-01,& - 0.3815E-01, 0.3860E-01, 0.3905E-01, 0.3973E-01,& - 0.4019E-01, 0.4064E-01, 0.4110E-01, 0.4155E-01,& - 0.4223E-01, 0.4269E-01, 0.4314E-01, 0.4382E-01,& - 0.4427E-01, 0.4496E-01, 0.4541E-01, 0.4609E-01,& - 0.4654E-01, 0.4723E-01, 0.4768E-01, 0.4836E-01,& - 0.4881E-01, 0.4950E-01, 0.5018E-01, 0.5063E-01,& - 0.5131E-01, 0.5199E-01, 0.5245E-01, 0.5313E-01,& - 0.5381E-01, 0.5449E-01, 0.5517E-01, 0.5585E-01,& - 0.5631E-01, 0.5699E-01, 0.5767E-01, 0.5835E-01,& - 0.5903E-01, 0.5971E-01, 0.6062E-01, 0.6130E-01,& - 0.6198E-01, 0.6266E-01, 0.6334E-01, 0.6402E-01,& - 0.6493E-01, 0.6561E-01, 0.6629E-01, 0.6720E-01,& - 0.6788E-01, 0.6856E-01, 0.6947E-01, 0.7015E-01,& - 0.7106E-01, 0.7174E-01, 0.7265E-01, 0.7356E-01,& - 0.7424E-01, 0.7515E-01, 0.7605E-01, 0.7674E-01,& - 0.7764E-01, 0.7855E-01, 0.7946E-01, 0.8037E-01,& - 0.8128E-01, 0.8218E-01, 0.8309E-01, 0.8400E-01,& - 0.8491E-01, 0.8582E-01, 0.8672E-01, 0.8763E-01,& - 0.8854E-01, 0.8967E-01, 0.9058E-01, 0.9149E-01,& - 0.9263E-01, 0.9353E-01, 0.9444E-01, 0.9558E-01,& - 0.9648E-01, 0.9762E-01, 0.9875E-01, 0.9966E-01,& - 0.1008E+00, 0.1019E+00, 0.1028E+00, 0.1040E+00,& - 0.1051E+00, 0.1062E+00, 0.1074E+00, 0.1085E+00,& - 0.1097E+00, 0.1108E+00, 0.1119E+00, 0.1131E+00,& - 0.1142E+00, 0.1156E+00, 0.1167E+00, 0.1178E+00,& - 0.1192E+00, 0.1203E+00, 0.1217E+00, 0.1228E+00,& - 0.1242E+00, 0.1253E+00, 0.1267E+00, 0.1280E+00,& - 0.1292E+00, 0.1305E+00, 0.1319E+00, 0.1333E+00,& - 0.1346E+00, 0.1360E+00, 0.1373E+00, 0.1387E+00,& - 0.1401E+00, 0.1414E+00, 0.1430E+00, 0.1444E+00,& - 0.1457E+00, 0.1473E+00, 0.1487E+00, 0.1503E+00,& - 0.1516E+00, 0.1532E+00, 0.1546E+00, 0.1562E+00,& - 0.1578E+00, 0.1594E+00, 0.1610E+00, 0.1625E+00,& - 0.1641E+00, 0.1657E+00, 0.1673E+00, 0.1689E+00,& - 0.1705E+00, 0.1723E+00, 0.1739E+00, 0.1755E+00,& - 0.1773E+00, 0.1789E+00, 0.1807E+00, 0.1825E+00,& - 0.1841E+00, 0.1859E+00, 0.1877E+00, 0.1896E+00,& - 0.1914E+00, 0.1932E+00, 0.1950E+00, 0.1968E+00,& - 0.1986E+00, 0.2007E+00, 0.2025E+00, 0.2043E+00,& - 0.2064E+00, 0.2082E+00, 0.2102E+00, 0.2123E+00,& - 0.2141E+00, 0.2161E+00, 0.2182E+00, 0.2202E+00,& - 0.2222E+00, 0.2243E+00, 0.2263E+00, 0.2286E+00,& - 0.2306E+00, 0.2327E+00, 0.2350E+00, 0.2370E+00,& - 0.2393E+00, 0.2415E+00, 0.2436E+00, 0.2458E+00,& - 0.2481E+00, 0.2504E+00, 0.2527E+00, 0.2549E+00,& - 0.2574E+00, 0.2597E+00, 0.2620E+00, 0.2645E+00,& - 0.2667E+00, 0.2692E+00, 0.2717E+00, 0.2740E+00,& - 0.2765E+00, 0.2790E+00, 0.2815E+00, 0.2840E+00,& - 0.2867E+00, 0.2892E+00, 0.2917E+00, 0.2944E+00,& - 0.2969E+00, 0.2996E+00, 0.3024E+00, 0.3049E+00,& - 0.3076E+00, 0.3103E+00, 0.3130E+00, 0.3160E+00,& - 0.3187E+00, 0.3214E+00, 0.3244E+00, 0.3271E+00,& - 0.3301E+00, 0.3330E+00, 0.3357E+00, 0.3387E+00,& - 0.3416E+00, 0.3446E+00, 0.3478E+00, 0.3507E+00,& - 0.3537E+00, 0.3569E+00, 0.3600E+00, 0.3630E+00,& - 0.3662E+00, 0.3693E+00, 0.3725E+00, 0.3757E+00,& - 0.3789E+00, 0.3823E+00, 0.3855E+00, 0.3889E+00,& - 0.3920E+00, 0.3954E+00, 0.3988E+00, 0.4023E+00,& - 0.4057E+00, 0.4091E+00, 0.4127E+00, 0.4161E+00,& - 0.4197E+00, 0.4231E+00, 0.4268E+00, 0.4304E+00,& - 0.4340E+00, 0.4377E+00, 0.4413E+00, 0.4452E+00,& - 0.4488E+00, 0.4526E+00, 0.4565E+00, 0.4604E+00,& - 0.4642E+00, 0.4681E+00, 0.4719E+00, 0.4758E+00,& - 0.4799E+00, 0.4837E+00, 0.4878E+00, 0.4919E+00,& - 0.4960E+00, 0.5001E+00, 0.5042E+00, 0.5085E+00,& - 0.5126E+00, 0.5169E+00, 0.5212E+00, 0.5255E+00,& - 0.5298E+00, 0.5341E+00, 0.5387E+00, 0.5430E+00,& - 0.5475E+00, 0.5521E+00, 0.5566E+00, 0.5611E+00,& - 0.5657E+00, 0.5702E+00, 0.5750E+00, 0.5798E+00,& - 0.5843E+00, 0.5891E+00, 0.5941E+00, 0.5988E+00,& - 0.6036E+00, 0.6086E+00, 0.6136E+00, 0.6186E+00,& - 0.6236E+00, 0.6286E+00, 0.6336E+00, 0.6388E+00,& - 0.6440E+00, 0.6492E+00, 0.6544E+00, 0.6597E+00,& - 0.6651E+00, 0.6703E+00, 0.6758E+00, 0.6812E+00,& - 0.6867E+00, 0.6921E+00, 0.6978E+00, 0.7033E+00,& - 0.7089E+00, 0.7146E+00, 0.7205E+00, 0.7262E+00,& - 0.7321E+00, 0.7378E+00, 0.7437E+00, 0.7496E+00,& - 0.7557E+00, 0.7616E+00, 0.7677E+00, 0.7738E+00,& - 0.7800E+00, 0.7861E+00, 0.7925E+00, 0.7988E+00,& - 0.8052E+00, 0.8115E+00, 0.8179E+00, 0.8245E+00,& - 0.8311E+00, 0.8376E+00, 0.8442E+00, 0.8508E+00,& - 0.8576E+00, 0.8644E+00, 0.8712E+00, 0.8780E+00,& - 0.8851E+00, 0.8919E+00, 0.8989E+00, 0.9062E+00,& - 0.9132E+00, 0.9205E+00, 0.9278E+00, 0.9350E+00,& - 0.9423E+00, 0.9498E+00, 0.9573E+00, 0.9648E+00,& - 0.9725E+00, 0.9800E+00, 0.9877E+00, 0.9954E+00,& - 0.1003E+01, 0.1011E+01, 0.1019E+01, 0.1027E+01,& - 0.1035E+01, 0.1043E+01, 0.1051E+01, 0.1060E+01,& - 0.1068E+01, 0.1076E+01, 0.1085E+01, 0.1093E+01,& - 0.1102E+01, 0.1110E+01, 0.1119E+01, 0.1128E+01,& - 0.1137E+01, 0.1146E+01, 0.1155E+01, 0.1164E+01,& - 0.1173E+01, 0.1182E+01, 0.1191E+01, 0.1201E+01,& - 0.1210E+01, 0.1219E+01, 0.1229E+01, 0.1239E+01,& - 0.1248E+01, 0.1258E+01, 0.1268E+01, 0.1278E+01,& - 0.1288E+01, 0.1298E+01, 0.1308E+01, 0.1318E+01,& - 0.1329E+01, 0.1339E+01, 0.1350E+01, 0.1360E+01,& - 0.1371E+01, 0.1382E+01, 0.1392E+01, 0.1403E+01,& - 0.1414E+01, 0.1425E+01, 0.1436E+01, 0.1448E+01,& - 0.1459E+01, 0.1471E+01, 0.1482E+01, 0.1494E+01,& - 0.1505E+01, 0.1517E+01, 0.1529E+01, 0.1541E+01,& - 0.1554E+01, 0.1566E+01, 0.1578E+01, 0.1591E+01,& - 0.1603E+01, 0.1616E+01, 0.1628E+01, 0.1641E+01,& - 0.1654E+01, 0.1668E+01, 0.1681E+01, 0.1694E+01,& - 0.1707E+01, 0.1721E+01, 0.1735E+01, 0.1748E+01,& - 0.1762E+01, 0.1776E+01, 0.1790E+01, 0.1805E+01,& - 0.1819E+01, 0.1834E+01, 0.1848E+01, 0.1863E+01,& - 0.1878E+01, 0.1893E+01, 0.1908E+01, 0.1924E+01,& - 0.1939E+01, 0.1954E+01, 0.1970E+01, 0.1986E+01,& - 0.2002E+01, 0.2018E+01, 0.2035E+01, 0.2051E+01,& - 0.2068E+01, 0.2085E+01, 0.2101E+01, 0.2119E+01,& - 0.2136E+01, 0.2153E+01, 0.2171E+01, 0.2189E+01,& - 0.2206E+01, 0.2225E+01, 0.2243E+01, 0.2261E+01,& - 0.2280E+01, 0.2299E+01, 0.2318E+01, 0.2337E+01,& - 0.2356E+01, 0.2376E+01, 0.2396E+01, 0.2415E+01,& - 0.2435E+01, 0.2456E+01, 0.2477E+01, 0.2497E+01,& - 0.2518E+01, 0.2539E+01, 0.2561E+01, 0.2583E+01,& - 0.2604E+01, 0.2626E+01, 0.2649E+01, 0.2671E+01,& - 0.2694E+01, 0.2717E+01, 0.2741E+01, 0.2764E+01,& - 0.2788E+01, 0.2812E+01, 0.2836E+01, 0.2861E+01,& - 0.2886E+01, 0.2911E+01, 0.2937E+01, 0.2962E+01,& - 0.2988E+01, 0.3015E+01, 0.3041E+01, 0.3068E+01,& - 0.3096E+01, 0.3123E+01, 0.3151E+01, 0.3180E+01,& - 0.3208E+01, 0.3237E+01, 0.3267E+01, 0.3296E+01,& - 0.3326E+01, 0.3357E+01, 0.3388E+01, 0.3419E+01,& - 0.3451E+01, 0.3483E+01, 0.3515E+01, 0.3548E+01,& - 0.3582E+01, 0.3615E+01, 0.3650E+01, 0.3684E+01,& - 0.3720E+01, 0.3755E+01, 0.3792E+01, 0.3828E+01,& - 0.3866E+01, 0.3903E+01, 0.3942E+01, 0.3981E+01,& - 0.4020E+01, 0.4060E+01, 0.4101E+01, 0.4143E+01,& - 0.4184E+01, 0.4227E+01, 0.4271E+01, 0.4315E+01,& - 0.4360E+01, 0.4405E+01, 0.4451E+01, 0.4498E+01,& - 0.4546E+01, 0.4595E+01, 0.4645E+01, 0.4695E+01,& - 0.4746E+01, 0.4799E+01, 0.4852E+01, 0.4906E+01,& - 0.4962E+01, 0.5018E+01, 0.5076E+01, 0.5134E+01,& - 0.5194E+01, 0.5256E+01, 0.5318E+01, 0.5382E+01,& - 0.5447E+01, 0.5514E+01, 0.5582E+01, 0.5652E+01,& - 0.5724E+01, 0.5797E+01, 0.5872E+01, 0.5948E+01,& - 0.6027E+01, 0.6108E+01, 0.6192E+01, 0.6277E+01,& - 0.6365E+01, 0.6455E+01, 0.6548E+01, 0.6644E+01,& - 0.6743E+01, 0.6845E+01, 0.6951E+01, 0.7060E+01,& - 0.7173E+01, 0.7291E+01, 0.7412E+01, 0.7539E+01,& - 0.7671E+01, 0.7808E+01, 0.7952E+01, 0.8102E+01,& - 0.8260E+01, 0.8425E+01, 0.8600E+01, 0.8784E+01,& - 0.8980E+01, 0.9188E+01, 0.9411E+01, 0.9650E+01,& - 0.9908E+01, 0.1019E+02, 0.1050E+02, 0.1084E+02,& - 0.1122E+02, 0.1165E+02, 0.1216E+02, 0.1276E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 87) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2413E-03, 0.2413E-03, 0.2413E-03,& - 0.2413E-03, 0.2413E-03, 0.2413E-03, 0.2413E-03,& - 0.2413E-03, 0.2413E-03, 0.2413E-03, 0.2413E-03,& - 0.2413E-03, 0.2413E-03, 0.2413E-03, 0.2413E-03,& - 0.2413E-03, 0.2413E-03, 0.2413E-03, 0.2413E-03,& - 0.2413E-03, 0.2413E-03, 0.2413E-03, 0.4725E-03,& - 0.4725E-03, 0.4725E-03, 0.4725E-03, 0.4725E-03,& - 0.4725E-03, 0.4725E-03, 0.4725E-03, 0.4725E-03,& - 0.4725E-03, 0.4725E-03, 0.4725E-03, 0.4725E-03,& - 0.4725E-03, 0.7038E-03, 0.7038E-03, 0.7038E-03,& - 0.7038E-03, 0.7038E-03, 0.7038E-03, 0.7038E-03,& - 0.7038E-03, 0.7038E-03, 0.7038E-03, 0.7038E-03,& - 0.9351E-03, 0.9351E-03, 0.9351E-03, 0.9351E-03,& - 0.9351E-03, 0.9351E-03, 0.9351E-03, 0.9351E-03,& - 0.9351E-03, 0.1166E-02, 0.1166E-02, 0.1166E-02,& - 0.1166E-02, 0.1166E-02, 0.1166E-02, 0.1166E-02,& - 0.1166E-02, 0.1398E-02, 0.1398E-02, 0.1398E-02,& - 0.1398E-02, 0.1398E-02, 0.1398E-02, 0.1629E-02,& - 0.1629E-02, 0.1629E-02, 0.1629E-02, 0.1629E-02,& - 0.1629E-02, 0.1860E-02, 0.1860E-02, 0.1860E-02,& - 0.1860E-02, 0.1860E-02, 0.2091E-02, 0.2091E-02,& - 0.2091E-02, 0.2091E-02, 0.2091E-02, 0.2323E-02,& - 0.2323E-02, 0.2323E-02, 0.2323E-02, 0.2323E-02,& - 0.2554E-02, 0.2554E-02, 0.2554E-02, 0.2554E-02,& - 0.2785E-02, 0.2785E-02, 0.2785E-02, 0.2785E-02,& - 0.3016E-02, 0.3016E-02, 0.3016E-02, 0.3248E-02,& - 0.3248E-02, 0.3248E-02, 0.3248E-02, 0.3479E-02,& - 0.3479E-02, 0.3479E-02, 0.3710E-02, 0.3710E-02,& - 0.3710E-02, 0.3942E-02, 0.3942E-02, 0.3942E-02,& - 0.4173E-02, 0.4173E-02, 0.4173E-02, 0.4404E-02,& - 0.4404E-02, 0.4404E-02, 0.4635E-02, 0.4635E-02,& - 0.4867E-02, 0.4867E-02, 0.4867E-02, 0.5098E-02,& - 0.5098E-02, 0.5329E-02, 0.5329E-02, 0.5560E-02,& - 0.5560E-02, 0.5560E-02, 0.5792E-02, 0.5792E-02,& - 0.6023E-02, 0.6023E-02, 0.6254E-02, 0.6254E-02,& - 0.6485E-02, 0.6485E-02, 0.6717E-02, 0.6717E-02,& - 0.6948E-02, 0.6948E-02, 0.7179E-02, 0.7179E-02,& - 0.7411E-02, 0.7642E-02, 0.7642E-02, 0.7873E-02,& - 0.7873E-02, 0.8104E-02, 0.8336E-02, 0.8336E-02,& - 0.8567E-02, 0.8567E-02, 0.8798E-02, 0.9029E-02,& - 0.9029E-02, 0.9261E-02, 0.9492E-02, 0.9492E-02,& - 0.9723E-02, 0.9954E-02, 0.9954E-02, 0.1019E-01,& - 0.1042E-01, 0.1065E-01, 0.1065E-01, 0.1088E-01,& - 0.1111E-01, 0.1134E-01, 0.1134E-01, 0.1157E-01,& - 0.1180E-01, 0.1204E-01, 0.1227E-01, 0.1250E-01,& - 0.1250E-01, 0.1273E-01, 0.1296E-01, 0.1319E-01,& - 0.1342E-01, 0.1365E-01, 0.1389E-01, 0.1412E-01,& - 0.1435E-01, 0.1458E-01, 0.1481E-01, 0.1504E-01,& - 0.1527E-01, 0.1550E-01, 0.1574E-01, 0.1597E-01,& - 0.1620E-01, 0.1643E-01, 0.1666E-01, 0.1689E-01,& - 0.1712E-01, 0.1735E-01, 0.1759E-01, 0.1782E-01,& - 0.1805E-01, 0.1851E-01, 0.1874E-01, 0.1897E-01,& - 0.1921E-01, 0.1944E-01, 0.1990E-01, 0.2013E-01,& - 0.2036E-01, 0.2059E-01, 0.2106E-01, 0.2129E-01,& - 0.2152E-01, 0.2198E-01, 0.2221E-01, 0.2244E-01,& - 0.2291E-01, 0.2314E-01, 0.2337E-01, 0.2383E-01,& - 0.2406E-01, 0.2452E-01, 0.2476E-01, 0.2522E-01,& - 0.2545E-01, 0.2591E-01, 0.2614E-01, 0.2661E-01,& - 0.2707E-01, 0.2730E-01, 0.2776E-01, 0.2799E-01,& - 0.2846E-01, 0.2892E-01, 0.2915E-01, 0.2961E-01,& - 0.3007E-01, 0.3054E-01, 0.3077E-01, 0.3123E-01,& - 0.3169E-01, 0.3216E-01, 0.3239E-01, 0.3285E-01,& - 0.3331E-01, 0.3377E-01, 0.3424E-01, 0.3470E-01,& - 0.3516E-01, 0.3562E-01, 0.3609E-01, 0.3655E-01,& - 0.3701E-01, 0.3748E-01, 0.3794E-01, 0.3840E-01,& - 0.3886E-01, 0.3956E-01, 0.4002E-01, 0.4048E-01,& - 0.4094E-01, 0.4141E-01, 0.4210E-01, 0.4256E-01,& - 0.4303E-01, 0.4372E-01, 0.4418E-01, 0.4464E-01,& - 0.4534E-01, 0.4580E-01, 0.4649E-01, 0.4696E-01,& - 0.4765E-01, 0.4811E-01, 0.4881E-01, 0.4927E-01,& - 0.4996E-01, 0.5043E-01, 0.5112E-01, 0.5181E-01,& - 0.5251E-01, 0.5297E-01, 0.5366E-01, 0.5436E-01,& - 0.5505E-01, 0.5551E-01, 0.5621E-01, 0.5690E-01,& - 0.5760E-01, 0.5829E-01, 0.5898E-01, 0.5968E-01,& - 0.6037E-01, 0.6106E-01, 0.6176E-01, 0.6268E-01,& - 0.6338E-01, 0.6407E-01, 0.6476E-01, 0.6546E-01,& - 0.6638E-01, 0.6708E-01, 0.6777E-01, 0.6870E-01,& - 0.6939E-01, 0.7031E-01, 0.7101E-01, 0.7193E-01,& - 0.7263E-01, 0.7355E-01, 0.7425E-01, 0.7517E-01,& - 0.7610E-01, 0.7679E-01, 0.7772E-01, 0.7864E-01,& - 0.7957E-01, 0.8049E-01, 0.8118E-01, 0.8211E-01,& - 0.8303E-01, 0.8396E-01, 0.8488E-01, 0.8581E-01,& - 0.8697E-01, 0.8789E-01, 0.8882E-01, 0.8974E-01,& - 0.9067E-01, 0.9182E-01, 0.9275E-01, 0.9367E-01,& - 0.9483E-01, 0.9575E-01, 0.9691E-01, 0.9784E-01,& - 0.9899E-01, 0.9992E-01, 0.1011E+00, 0.1022E+00,& - 0.1034E+00, 0.1043E+00, 0.1055E+00, 0.1066E+00,& - 0.1078E+00, 0.1089E+00, 0.1101E+00, 0.1112E+00,& - 0.1124E+00, 0.1136E+00, 0.1147E+00, 0.1159E+00,& - 0.1173E+00, 0.1184E+00, 0.1196E+00, 0.1210E+00,& - 0.1221E+00, 0.1235E+00, 0.1247E+00, 0.1260E+00,& - 0.1272E+00, 0.1286E+00, 0.1300E+00, 0.1314E+00,& - 0.1328E+00, 0.1339E+00, 0.1353E+00, 0.1367E+00,& - 0.1381E+00, 0.1395E+00, 0.1411E+00, 0.1425E+00,& - 0.1439E+00, 0.1452E+00, 0.1469E+00, 0.1483E+00,& - 0.1496E+00, 0.1513E+00, 0.1526E+00, 0.1543E+00,& - 0.1559E+00, 0.1573E+00, 0.1589E+00, 0.1605E+00,& - 0.1621E+00, 0.1637E+00, 0.1654E+00, 0.1670E+00,& - 0.1686E+00, 0.1702E+00, 0.1721E+00, 0.1737E+00,& - 0.1753E+00, 0.1772E+00, 0.1788E+00, 0.1806E+00,& - 0.1822E+00, 0.1841E+00, 0.1859E+00, 0.1876E+00,& - 0.1894E+00, 0.1913E+00, 0.1931E+00, 0.1950E+00,& - 0.1968E+00, 0.1987E+00, 0.2007E+00, 0.2026E+00,& - 0.2044E+00, 0.2065E+00, 0.2084E+00, 0.2105E+00,& - 0.2125E+00, 0.2144E+00, 0.2165E+00, 0.2186E+00,& - 0.2206E+00, 0.2227E+00, 0.2248E+00, 0.2269E+00,& - 0.2290E+00, 0.2310E+00, 0.2334E+00, 0.2354E+00,& - 0.2378E+00, 0.2398E+00, 0.2421E+00, 0.2445E+00,& - 0.2468E+00, 0.2489E+00, 0.2512E+00, 0.2535E+00,& - 0.2560E+00, 0.2583E+00, 0.2606E+00, 0.2630E+00,& - 0.2655E+00, 0.2678E+00, 0.2704E+00, 0.2729E+00,& - 0.2752E+00, 0.2778E+00, 0.2803E+00, 0.2828E+00,& - 0.2854E+00, 0.2882E+00, 0.2907E+00, 0.2933E+00,& - 0.2960E+00, 0.2986E+00, 0.3013E+00, 0.3041E+00,& - 0.3067E+00, 0.3094E+00, 0.3122E+00, 0.3150E+00,& - 0.3180E+00, 0.3208E+00, 0.3236E+00, 0.3266E+00,& - 0.3293E+00, 0.3323E+00, 0.3353E+00, 0.3381E+00,& - 0.3411E+00, 0.3441E+00, 0.3474E+00, 0.3504E+00,& - 0.3534E+00, 0.3566E+00, 0.3596E+00, 0.3629E+00,& - 0.3661E+00, 0.3691E+00, 0.3723E+00, 0.3756E+00,& - 0.3791E+00, 0.3823E+00, 0.3855E+00, 0.3890E+00,& - 0.3922E+00, 0.3957E+00, 0.3992E+00, 0.4026E+00,& - 0.4061E+00, 0.4096E+00, 0.4131E+00, 0.4168E+00,& - 0.4202E+00, 0.4239E+00, 0.4276E+00, 0.4313E+00,& - 0.4350E+00, 0.4387E+00, 0.4424E+00, 0.4461E+00,& - 0.4501E+00, 0.4538E+00, 0.4577E+00, 0.4616E+00,& - 0.4655E+00, 0.4695E+00, 0.4734E+00, 0.4773E+00,& - 0.4815E+00, 0.4857E+00, 0.4896E+00, 0.4938E+00,& - 0.4979E+00, 0.5021E+00, 0.5065E+00, 0.5106E+00,& - 0.5150E+00, 0.5192E+00, 0.5236E+00, 0.5280E+00,& - 0.5324E+00, 0.5368E+00, 0.5414E+00, 0.5458E+00,& - 0.5504E+00, 0.5550E+00, 0.5597E+00, 0.5643E+00,& - 0.5689E+00, 0.5738E+00, 0.5784E+00, 0.5833E+00,& - 0.5881E+00, 0.5930E+00, 0.5978E+00, 0.6029E+00,& - 0.6078E+00, 0.6129E+00, 0.6180E+00, 0.6230E+00,& - 0.6281E+00, 0.6332E+00, 0.6385E+00, 0.6439E+00,& - 0.6489E+00, 0.6543E+00, 0.6598E+00, 0.6651E+00,& - 0.6707E+00, 0.6760E+00, 0.6816E+00, 0.6871E+00,& - 0.6927E+00, 0.6984E+00, 0.7042E+00, 0.7098E+00,& - 0.7155E+00, 0.7213E+00, 0.7273E+00, 0.7331E+00,& - 0.7391E+00, 0.7451E+00, 0.7512E+00, 0.7574E+00,& - 0.7634E+00, 0.7697E+00, 0.7759E+00, 0.7822E+00,& - 0.7884E+00, 0.7949E+00, 0.8011E+00, 0.8076E+00,& - 0.8143E+00, 0.8208E+00, 0.8275E+00, 0.8340E+00,& - 0.8407E+00, 0.8476E+00, 0.8543E+00, 0.8612E+00,& - 0.8682E+00, 0.8751E+00, 0.8821E+00, 0.8892E+00,& - 0.8964E+00, 0.9036E+00, 0.9107E+00, 0.9181E+00,& - 0.9253E+00, 0.9327E+00, 0.9403E+00, 0.9477E+00,& - 0.9554E+00, 0.9630E+00, 0.9706E+00, 0.9785E+00,& - 0.9864E+00, 0.9942E+00, 0.1002E+01, 0.1010E+01,& - 0.1018E+01, 0.1026E+01, 0.1034E+01, 0.1043E+01,& - 0.1051E+01, 0.1059E+01, 0.1068E+01, 0.1076E+01,& - 0.1085E+01, 0.1093E+01, 0.1102E+01, 0.1111E+01,& - 0.1120E+01, 0.1129E+01, 0.1138E+01, 0.1147E+01,& - 0.1156E+01, 0.1165E+01, 0.1174E+01, 0.1184E+01,& - 0.1193E+01, 0.1203E+01, 0.1212E+01, 0.1222E+01,& - 0.1232E+01, 0.1241E+01, 0.1251E+01, 0.1261E+01,& - 0.1271E+01, 0.1281E+01, 0.1292E+01, 0.1302E+01,& - 0.1312E+01, 0.1323E+01, 0.1333E+01, 0.1344E+01,& - 0.1355E+01, 0.1365E+01, 0.1376E+01, 0.1387E+01,& - 0.1398E+01, 0.1409E+01, 0.1420E+01, 0.1432E+01,& - 0.1443E+01, 0.1455E+01, 0.1466E+01, 0.1478E+01,& - 0.1490E+01, 0.1502E+01, 0.1514E+01, 0.1526E+01,& - 0.1538E+01, 0.1550E+01, 0.1563E+01, 0.1575E+01,& - 0.1588E+01, 0.1601E+01, 0.1614E+01, 0.1627E+01,& - 0.1640E+01, 0.1653E+01, 0.1666E+01, 0.1679E+01,& - 0.1693E+01, 0.1707E+01, 0.1720E+01, 0.1734E+01,& - 0.1748E+01, 0.1762E+01, 0.1777E+01, 0.1791E+01,& - 0.1806E+01, 0.1820E+01, 0.1835E+01, 0.1850E+01,& - 0.1865E+01, 0.1880E+01, 0.1895E+01, 0.1911E+01,& - 0.1926E+01, 0.1942E+01, 0.1958E+01, 0.1974E+01,& - 0.1990E+01, 0.2006E+01, 0.2023E+01, 0.2040E+01,& - 0.2056E+01, 0.2073E+01, 0.2090E+01, 0.2108E+01,& - 0.2125E+01, 0.2142E+01, 0.2160E+01, 0.2178E+01,& - 0.2196E+01, 0.2215E+01, 0.2233E+01, 0.2252E+01,& - 0.2270E+01, 0.2289E+01, 0.2309E+01, 0.2328E+01,& - 0.2348E+01, 0.2367E+01, 0.2387E+01, 0.2407E+01,& - 0.2428E+01, 0.2448E+01, 0.2469E+01, 0.2490E+01,& - 0.2511E+01, 0.2533E+01, 0.2555E+01, 0.2576E+01,& - 0.2599E+01, 0.2621E+01, 0.2643E+01, 0.2666E+01,& - 0.2689E+01, 0.2713E+01, 0.2736E+01, 0.2760E+01,& - 0.2784E+01, 0.2809E+01, 0.2833E+01, 0.2858E+01,& - 0.2883E+01, 0.2909E+01, 0.2935E+01, 0.2961E+01,& - 0.2987E+01, 0.3014E+01, 0.3041E+01, 0.3068E+01,& - 0.3096E+01, 0.3124E+01, 0.3152E+01, 0.3181E+01,& - 0.3210E+01, 0.3240E+01, 0.3269E+01, 0.3299E+01,& - 0.3330E+01, 0.3361E+01, 0.3392E+01, 0.3424E+01,& - 0.3456E+01, 0.3488E+01, 0.3521E+01, 0.3555E+01,& - 0.3589E+01, 0.3623E+01, 0.3658E+01, 0.3693E+01,& - 0.3729E+01, 0.3765E+01, 0.3802E+01, 0.3839E+01,& - 0.3877E+01, 0.3915E+01, 0.3954E+01, 0.3994E+01,& - 0.4033E+01, 0.4075E+01, 0.4116E+01, 0.4158E+01,& - 0.4201E+01, 0.4244E+01, 0.4288E+01, 0.4333E+01,& - 0.4379E+01, 0.4425E+01, 0.4472E+01, 0.4520E+01,& - 0.4569E+01, 0.4618E+01, 0.4669E+01, 0.4720E+01,& - 0.4772E+01, 0.4825E+01, 0.4880E+01, 0.4935E+01,& - 0.4991E+01, 0.5049E+01, 0.5107E+01, 0.5167E+01,& - 0.5228E+01, 0.5290E+01, 0.5354E+01, 0.5419E+01,& - 0.5485E+01, 0.5553E+01, 0.5623E+01, 0.5694E+01,& - 0.5767E+01, 0.5841E+01, 0.5918E+01, 0.5996E+01,& - 0.6076E+01, 0.6159E+01, 0.6243E+01, 0.6330E+01,& - 0.6420E+01, 0.6512E+01, 0.6607E+01, 0.6705E+01,& - 0.6806E+01, 0.6910E+01, 0.7018E+01, 0.7129E+01,& - 0.7244E+01, 0.7364E+01, 0.7488E+01, 0.7617E+01,& - 0.7752E+01, 0.7892E+01, 0.8038E+01, 0.8192E+01,& - 0.8352E+01, 0.8521E+01, 0.8700E+01, 0.8888E+01,& - 0.9088E+01, 0.9301E+01, 0.9528E+01, 0.9772E+01,& - 0.1004E+02, 0.1032E+02, 0.1064E+02, 0.1099E+02,& - 0.1138E+02, 0.1182E+02, 0.1233E+02, 0.1295E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 88) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.2456E-03, 0.2456E-03, 0.2456E-03, 0.2456E-03,& - 0.2456E-03, 0.2456E-03, 0.2456E-03, 0.2456E-03,& - 0.2456E-03, 0.2456E-03, 0.2456E-03, 0.2456E-03,& - 0.2456E-03, 0.2456E-03, 0.2456E-03, 0.2456E-03,& - 0.2456E-03, 0.2456E-03, 0.2456E-03, 0.2456E-03,& - 0.2456E-03, 0.2456E-03, 0.4812E-03, 0.4812E-03,& - 0.4812E-03, 0.4812E-03, 0.4812E-03, 0.4812E-03,& - 0.4812E-03, 0.4812E-03, 0.4812E-03, 0.4812E-03,& - 0.4812E-03, 0.4812E-03, 0.4812E-03, 0.4812E-03,& - 0.7167E-03, 0.7167E-03, 0.7167E-03, 0.7167E-03,& - 0.7167E-03, 0.7167E-03, 0.7167E-03, 0.7167E-03,& - 0.7167E-03, 0.7167E-03, 0.7167E-03, 0.9523E-03,& - 0.9523E-03, 0.9523E-03, 0.9523E-03, 0.9523E-03,& - 0.9523E-03, 0.9523E-03, 0.9523E-03, 0.9523E-03,& - 0.1188E-02, 0.1188E-02, 0.1188E-02, 0.1188E-02,& - 0.1188E-02, 0.1188E-02, 0.1188E-02, 0.1188E-02,& - 0.1423E-02, 0.1423E-02, 0.1423E-02, 0.1423E-02,& - 0.1423E-02, 0.1423E-02, 0.1659E-02, 0.1659E-02,& - 0.1659E-02, 0.1659E-02, 0.1659E-02, 0.1659E-02,& - 0.1895E-02, 0.1895E-02, 0.1895E-02, 0.1895E-02,& - 0.1895E-02, 0.1895E-02, 0.2130E-02, 0.2130E-02,& - 0.2130E-02, 0.2130E-02, 0.2130E-02, 0.2366E-02,& - 0.2366E-02, 0.2366E-02, 0.2366E-02, 0.2601E-02,& - 0.2601E-02, 0.2601E-02, 0.2601E-02, 0.2837E-02,& - 0.2837E-02, 0.2837E-02, 0.2837E-02, 0.3073E-02,& - 0.3073E-02, 0.3073E-02, 0.3073E-02, 0.3308E-02,& - 0.3308E-02, 0.3308E-02, 0.3544E-02, 0.3544E-02,& - 0.3544E-02, 0.3544E-02, 0.3779E-02, 0.3779E-02,& - 0.3779E-02, 0.4015E-02, 0.4015E-02, 0.4015E-02,& - 0.4250E-02, 0.4250E-02, 0.4486E-02, 0.4486E-02,& - 0.4486E-02, 0.4722E-02, 0.4722E-02, 0.4722E-02,& - 0.4957E-02, 0.4957E-02, 0.5193E-02, 0.5193E-02,& - 0.5193E-02, 0.5428E-02, 0.5428E-02, 0.5664E-02,& - 0.5664E-02, 0.5900E-02, 0.5900E-02, 0.6135E-02,& - 0.6135E-02, 0.6135E-02, 0.6371E-02, 0.6371E-02,& - 0.6606E-02, 0.6606E-02, 0.6842E-02, 0.6842E-02,& - 0.7077E-02, 0.7313E-02, 0.7313E-02, 0.7549E-02,& - 0.7549E-02, 0.7784E-02, 0.7784E-02, 0.8020E-02,& - 0.8020E-02, 0.8255E-02, 0.8491E-02, 0.8491E-02,& - 0.8727E-02, 0.8962E-02, 0.8962E-02, 0.9198E-02,& - 0.9198E-02, 0.9433E-02, 0.9669E-02, 0.9904E-02,& - 0.9904E-02, 0.1014E-01, 0.1038E-01, 0.1038E-01,& - 0.1061E-01, 0.1085E-01, 0.1108E-01, 0.1108E-01,& - 0.1132E-01, 0.1155E-01, 0.1179E-01, 0.1179E-01,& - 0.1202E-01, 0.1226E-01, 0.1250E-01, 0.1273E-01,& - 0.1297E-01, 0.1297E-01, 0.1320E-01, 0.1344E-01,& - 0.1367E-01, 0.1391E-01, 0.1414E-01, 0.1438E-01,& - 0.1462E-01, 0.1485E-01, 0.1509E-01, 0.1532E-01,& - 0.1556E-01, 0.1579E-01, 0.1603E-01, 0.1627E-01,& - 0.1650E-01, 0.1674E-01, 0.1697E-01, 0.1721E-01,& - 0.1744E-01, 0.1768E-01, 0.1791E-01, 0.1815E-01,& - 0.1862E-01, 0.1886E-01, 0.1909E-01, 0.1933E-01,& - 0.1956E-01, 0.2003E-01, 0.2027E-01, 0.2051E-01,& - 0.2074E-01, 0.2121E-01, 0.2145E-01, 0.2168E-01,& - 0.2192E-01, 0.2239E-01, 0.2263E-01, 0.2310E-01,& - 0.2333E-01, 0.2357E-01, 0.2404E-01, 0.2427E-01,& - 0.2475E-01, 0.2498E-01, 0.2545E-01, 0.2569E-01,& - 0.2616E-01, 0.2640E-01, 0.2687E-01, 0.2710E-01,& - 0.2757E-01, 0.2781E-01, 0.2828E-01, 0.2875E-01,& - 0.2899E-01, 0.2946E-01, 0.2993E-01, 0.3016E-01,& - 0.3064E-01, 0.3111E-01, 0.3158E-01, 0.3181E-01,& - 0.3228E-01, 0.3276E-01, 0.3323E-01, 0.3370E-01,& - 0.3417E-01, 0.3464E-01, 0.3488E-01, 0.3535E-01,& - 0.3582E-01, 0.3629E-01, 0.3676E-01, 0.3723E-01,& - 0.3770E-01, 0.3841E-01, 0.3888E-01, 0.3935E-01,& - 0.3982E-01, 0.4029E-01, 0.4077E-01, 0.4124E-01,& - 0.4194E-01, 0.4241E-01, 0.4289E-01, 0.4359E-01,& - 0.4406E-01, 0.4453E-01, 0.4524E-01, 0.4571E-01,& - 0.4618E-01, 0.4689E-01, 0.4736E-01, 0.4807E-01,& - 0.4854E-01, 0.4925E-01, 0.4972E-01, 0.5042E-01,& - 0.5113E-01, 0.5160E-01, 0.5231E-01, 0.5302E-01,& - 0.5349E-01, 0.5419E-01, 0.5490E-01, 0.5561E-01,& - 0.5631E-01, 0.5702E-01, 0.5749E-01, 0.5820E-01,& - 0.5891E-01, 0.5961E-01, 0.6032E-01, 0.6103E-01,& - 0.6173E-01, 0.6267E-01, 0.6338E-01, 0.6409E-01,& - 0.6479E-01, 0.6550E-01, 0.6644E-01, 0.6715E-01,& - 0.6786E-01, 0.6856E-01, 0.6951E-01, 0.7021E-01,& - 0.7116E-01, 0.7186E-01, 0.7280E-01, 0.7351E-01,& - 0.7445E-01, 0.7516E-01, 0.7610E-01, 0.7705E-01,& - 0.7799E-01, 0.7869E-01, 0.7964E-01, 0.8058E-01,& - 0.8152E-01, 0.8246E-01, 0.8341E-01, 0.8435E-01,& - 0.8529E-01, 0.8623E-01, 0.8718E-01, 0.8812E-01,& - 0.8906E-01, 0.9000E-01, 0.9094E-01, 0.9212E-01,& - 0.9306E-01, 0.9401E-01, 0.9518E-01, 0.9613E-01,& - 0.9731E-01, 0.9825E-01, 0.9943E-01, 0.1004E+00,& - 0.1015E+00, 0.1027E+00, 0.1037E+00, 0.1048E+00,& - 0.1060E+00, 0.1072E+00, 0.1084E+00, 0.1093E+00,& - 0.1105E+00, 0.1117E+00, 0.1129E+00, 0.1143E+00,& - 0.1154E+00, 0.1166E+00, 0.1178E+00, 0.1190E+00,& - 0.1204E+00, 0.1216E+00, 0.1230E+00, 0.1242E+00,& - 0.1256E+00, 0.1268E+00, 0.1282E+00, 0.1293E+00,& - 0.1308E+00, 0.1322E+00, 0.1336E+00, 0.1350E+00,& - 0.1364E+00, 0.1378E+00, 0.1392E+00, 0.1407E+00,& - 0.1421E+00, 0.1435E+00, 0.1449E+00, 0.1463E+00,& - 0.1480E+00, 0.1494E+00, 0.1510E+00, 0.1524E+00,& - 0.1541E+00, 0.1555E+00, 0.1571E+00, 0.1588E+00,& - 0.1602E+00, 0.1619E+00, 0.1635E+00, 0.1652E+00,& - 0.1668E+00, 0.1685E+00, 0.1701E+00, 0.1717E+00,& - 0.1736E+00, 0.1753E+00, 0.1769E+00, 0.1788E+00,& - 0.1805E+00, 0.1823E+00, 0.1840E+00, 0.1859E+00,& - 0.1878E+00, 0.1897E+00, 0.1915E+00, 0.1934E+00,& - 0.1953E+00, 0.1972E+00, 0.1991E+00, 0.2010E+00,& - 0.2028E+00, 0.2050E+00, 0.2069E+00, 0.2087E+00,& - 0.2109E+00, 0.2130E+00, 0.2149E+00, 0.2170E+00,& - 0.2191E+00, 0.2212E+00, 0.2233E+00, 0.2255E+00,& - 0.2276E+00, 0.2297E+00, 0.2318E+00, 0.2342E+00,& - 0.2363E+00, 0.2384E+00, 0.2408E+00, 0.2431E+00,& - 0.2453E+00, 0.2476E+00, 0.2500E+00, 0.2523E+00,& - 0.2547E+00, 0.2570E+00, 0.2594E+00, 0.2617E+00,& - 0.2643E+00, 0.2667E+00, 0.2693E+00, 0.2716E+00,& - 0.2742E+00, 0.2768E+00, 0.2794E+00, 0.2820E+00,& - 0.2846E+00, 0.2872E+00, 0.2898E+00, 0.2924E+00,& - 0.2952E+00, 0.2978E+00, 0.3006E+00, 0.3032E+00,& - 0.3060E+00, 0.3089E+00, 0.3117E+00, 0.3145E+00,& - 0.3173E+00, 0.3202E+00, 0.3230E+00, 0.3261E+00,& - 0.3289E+00, 0.3319E+00, 0.3348E+00, 0.3378E+00,& - 0.3409E+00, 0.3440E+00, 0.3470E+00, 0.3501E+00,& - 0.3534E+00, 0.3564E+00, 0.3595E+00, 0.3628E+00,& - 0.3661E+00, 0.3692E+00, 0.3725E+00, 0.3758E+00,& - 0.3793E+00, 0.3826E+00, 0.3859E+00, 0.3894E+00,& - 0.3927E+00, 0.3963E+00, 0.3998E+00, 0.4031E+00,& - 0.4066E+00, 0.4104E+00, 0.4139E+00, 0.4175E+00,& - 0.4212E+00, 0.4248E+00, 0.4285E+00, 0.4323E+00,& - 0.4361E+00, 0.4398E+00, 0.4436E+00, 0.4474E+00,& - 0.4514E+00, 0.4552E+00, 0.4592E+00, 0.4632E+00,& - 0.4672E+00, 0.4712E+00, 0.4752E+00, 0.4794E+00,& - 0.4834E+00, 0.4877E+00, 0.4917E+00, 0.4959E+00,& - 0.5001E+00, 0.5046E+00, 0.5089E+00, 0.5131E+00,& - 0.5176E+00, 0.5221E+00, 0.5263E+00, 0.5308E+00,& - 0.5355E+00, 0.5400E+00, 0.5444E+00, 0.5492E+00,& - 0.5539E+00, 0.5586E+00, 0.5633E+00, 0.5680E+00,& - 0.5727E+00, 0.5777E+00, 0.5824E+00, 0.5873E+00,& - 0.5923E+00, 0.5972E+00, 0.6022E+00, 0.6073E+00,& - 0.6123E+00, 0.6175E+00, 0.6227E+00, 0.6278E+00,& - 0.6333E+00, 0.6384E+00, 0.6439E+00, 0.6490E+00,& - 0.6545E+00, 0.6601E+00, 0.6655E+00, 0.6709E+00,& - 0.6766E+00, 0.6823E+00, 0.6879E+00, 0.6936E+00,& - 0.6992E+00, 0.7051E+00, 0.7110E+00, 0.7169E+00,& - 0.7228E+00, 0.7287E+00, 0.7348E+00, 0.7409E+00,& - 0.7468E+00, 0.7532E+00, 0.7593E+00, 0.7654E+00,& - 0.7718E+00, 0.7781E+00, 0.7845E+00, 0.7911E+00,& - 0.7975E+00, 0.8040E+00, 0.8106E+00, 0.8172E+00,& - 0.8238E+00, 0.8307E+00, 0.8375E+00, 0.8443E+00,& - 0.8512E+00, 0.8582E+00, 0.8653E+00, 0.8724E+00,& - 0.8794E+00, 0.8865E+00, 0.8938E+00, 0.9011E+00,& - 0.9084E+00, 0.9157E+00, 0.9233E+00, 0.9308E+00,& - 0.9383E+00, 0.9459E+00, 0.9536E+00, 0.9614E+00,& - 0.9692E+00, 0.9770E+00, 0.9850E+00, 0.9930E+00,& - 0.1001E+01, 0.1009E+01, 0.1017E+01, 0.1025E+01,& - 0.1034E+01, 0.1042E+01, 0.1051E+01, 0.1059E+01,& - 0.1068E+01, 0.1076E+01, 0.1085E+01, 0.1094E+01,& - 0.1103E+01, 0.1112E+01, 0.1121E+01, 0.1130E+01,& - 0.1139E+01, 0.1148E+01, 0.1157E+01, 0.1167E+01,& - 0.1176E+01, 0.1186E+01, 0.1195E+01, 0.1205E+01,& - 0.1215E+01, 0.1225E+01, 0.1234E+01, 0.1244E+01,& - 0.1254E+01, 0.1265E+01, 0.1275E+01, 0.1285E+01,& - 0.1295E+01, 0.1306E+01, 0.1317E+01, 0.1327E+01,& - 0.1338E+01, 0.1349E+01, 0.1360E+01, 0.1371E+01,& - 0.1382E+01, 0.1393E+01, 0.1404E+01, 0.1416E+01,& - 0.1427E+01, 0.1439E+01, 0.1450E+01, 0.1462E+01,& - 0.1474E+01, 0.1486E+01, 0.1498E+01, 0.1510E+01,& - 0.1523E+01, 0.1535E+01, 0.1547E+01, 0.1560E+01,& - 0.1573E+01, 0.1585E+01, 0.1598E+01, 0.1611E+01,& - 0.1625E+01, 0.1638E+01, 0.1651E+01, 0.1665E+01,& - 0.1678E+01, 0.1692E+01, 0.1706E+01, 0.1720E+01,& - 0.1734E+01, 0.1748E+01, 0.1763E+01, 0.1777E+01,& - 0.1792E+01, 0.1806E+01, 0.1821E+01, 0.1836E+01,& - 0.1851E+01, 0.1867E+01, 0.1882E+01, 0.1898E+01,& - 0.1913E+01, 0.1929E+01, 0.1945E+01, 0.1961E+01,& - 0.1978E+01, 0.1994E+01, 0.2011E+01, 0.2027E+01,& - 0.2044E+01, 0.2061E+01, 0.2079E+01, 0.2096E+01,& - 0.2114E+01, 0.2131E+01, 0.2149E+01, 0.2167E+01,& - 0.2186E+01, 0.2204E+01, 0.2223E+01, 0.2242E+01,& - 0.2260E+01, 0.2280E+01, 0.2299E+01, 0.2319E+01,& - 0.2338E+01, 0.2358E+01, 0.2378E+01, 0.2399E+01,& - 0.2419E+01, 0.2440E+01, 0.2461E+01, 0.2483E+01,& - 0.2504E+01, 0.2526E+01, 0.2548E+01, 0.2570E+01,& - 0.2592E+01, 0.2615E+01, 0.2638E+01, 0.2661E+01,& - 0.2684E+01, 0.2708E+01, 0.2732E+01, 0.2756E+01,& - 0.2780E+01, 0.2804E+01, 0.2830E+01, 0.2855E+01,& - 0.2880E+01, 0.2906E+01, 0.2932E+01, 0.2959E+01,& - 0.2986E+01, 0.3013E+01, 0.3040E+01, 0.3068E+01,& - 0.3096E+01, 0.3124E+01, 0.3153E+01, 0.3182E+01,& - 0.3211E+01, 0.3241E+01, 0.3271E+01, 0.3287E+01,& - 0.3333E+01, 0.3364E+01, 0.3396E+01, 0.3428E+01,& - 0.3460E+01, 0.3493E+01, 0.3527E+01, 0.3561E+01,& - 0.3595E+01, 0.3630E+01, 0.3665E+01, 0.3701E+01,& - 0.3738E+01, 0.3774E+01, 0.3811E+01, 0.3849E+01,& - 0.3888E+01, 0.3927E+01, 0.3966E+01, 0.4007E+01,& - 0.4047E+01, 0.4089E+01, 0.4131E+01, 0.4173E+01,& - 0.4217E+01, 0.4261E+01, 0.4305E+01, 0.4351E+01,& - 0.4397E+01, 0.4444E+01, 0.4492E+01, 0.4541E+01,& - 0.4590E+01, 0.4641E+01, 0.4692E+01, 0.4744E+01,& - 0.4797E+01, 0.4851E+01, 0.4907E+01, 0.4963E+01,& - 0.5020E+01, 0.5078E+01, 0.5138E+01, 0.5199E+01,& - 0.5261E+01, 0.5324E+01, 0.5389E+01, 0.5455E+01,& - 0.5523E+01, 0.5592E+01, 0.5663E+01, 0.5735E+01,& - 0.5809E+01, 0.5885E+01, 0.5963E+01, 0.6043E+01,& - 0.6124E+01, 0.6209E+01, 0.6295E+01, 0.6384E+01,& - 0.6475E+01, 0.6568E+01, 0.6665E+01, 0.6765E+01,& - 0.6868E+01, 0.6974E+01, 0.7084E+01, 0.7197E+01,& - 0.7315E+01, 0.7437E+01, 0.7564E+01, 0.7695E+01,& - 0.7832E+01, 0.7975E+01, 0.8125E+01, 0.8281E+01,& - 0.8445E+01, 0.8618E+01, 0.8800E+01, 0.8992E+01,& - 0.9196E+01, 0.9413E+01, 0.9645E+01, 0.9894E+01,& - 0.1016E+02, 0.1046E+02, 0.1078E+02, 0.1113E+02,& - 0.1153E+02, 0.1199E+02, 0.1251E+02, 0.1314E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 89) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.2499E-03, 0.2499E-03,& - 0.2499E-03, 0.2499E-03, 0.2499E-03, 0.2499E-03,& - 0.2499E-03, 0.2499E-03, 0.2499E-03, 0.2499E-03,& - 0.2499E-03, 0.2499E-03, 0.2499E-03, 0.2499E-03,& - 0.2499E-03, 0.2499E-03, 0.2499E-03, 0.2499E-03,& - 0.2499E-03, 0.2499E-03, 0.2499E-03, 0.2499E-03,& - 0.4899E-03, 0.4899E-03, 0.4899E-03, 0.4899E-03,& - 0.4899E-03, 0.4899E-03, 0.4899E-03, 0.4899E-03,& - 0.4899E-03, 0.4899E-03, 0.4899E-03, 0.4899E-03,& - 0.4899E-03, 0.4899E-03, 0.4899E-03, 0.7298E-03,& - 0.7298E-03, 0.7298E-03, 0.7298E-03, 0.7298E-03,& - 0.7298E-03, 0.7298E-03, 0.7298E-03, 0.7298E-03,& - 0.7298E-03, 0.7298E-03, 0.9698E-03, 0.9698E-03,& - 0.9698E-03, 0.9698E-03, 0.9698E-03, 0.9698E-03,& - 0.9698E-03, 0.9698E-03, 0.9698E-03, 0.1210E-02,& - 0.1210E-02, 0.1210E-02, 0.1210E-02, 0.1210E-02,& - 0.1210E-02, 0.1210E-02, 0.1210E-02, 0.1450E-02,& - 0.1450E-02, 0.1450E-02, 0.1450E-02, 0.1450E-02,& - 0.1450E-02, 0.1450E-02, 0.1690E-02, 0.1690E-02,& - 0.1690E-02, 0.1690E-02, 0.1690E-02, 0.1690E-02,& - 0.1930E-02, 0.1930E-02, 0.1930E-02, 0.1930E-02,& - 0.1930E-02, 0.2169E-02, 0.2169E-02, 0.2169E-02,& - 0.2169E-02, 0.2169E-02, 0.2409E-02, 0.2409E-02,& - 0.2409E-02, 0.2409E-02, 0.2649E-02, 0.2649E-02,& - 0.2649E-02, 0.2649E-02, 0.2649E-02, 0.2889E-02,& - 0.2889E-02, 0.2889E-02, 0.2889E-02, 0.3129E-02,& - 0.3129E-02, 0.3129E-02, 0.3369E-02, 0.3369E-02,& - 0.3369E-02, 0.3369E-02, 0.3609E-02, 0.3609E-02,& - 0.3609E-02, 0.3849E-02, 0.3849E-02, 0.3849E-02,& - 0.4089E-02, 0.4089E-02, 0.4089E-02, 0.4329E-02,& - 0.4329E-02, 0.4329E-02, 0.4569E-02, 0.4569E-02,& - 0.4569E-02, 0.4809E-02, 0.4809E-02, 0.5049E-02,& - 0.5049E-02, 0.5049E-02, 0.5289E-02, 0.5289E-02,& - 0.5529E-02, 0.5529E-02, 0.5529E-02, 0.5769E-02,& - 0.5769E-02, 0.6009E-02, 0.6009E-02, 0.6249E-02,& - 0.6249E-02, 0.6488E-02, 0.6488E-02, 0.6728E-02,& - 0.6728E-02, 0.6968E-02, 0.6968E-02, 0.7208E-02,& - 0.7208E-02, 0.7448E-02, 0.7448E-02, 0.7688E-02,& - 0.7688E-02, 0.7928E-02, 0.7928E-02, 0.8168E-02,& - 0.8408E-02, 0.8408E-02, 0.8648E-02, 0.8648E-02,& - 0.8888E-02, 0.9128E-02, 0.9128E-02, 0.9368E-02,& - 0.9608E-02, 0.9608E-02, 0.9848E-02, 0.1009E-01,& - 0.1009E-01, 0.1033E-01, 0.1057E-01, 0.1081E-01,& - 0.1081E-01, 0.1105E-01, 0.1129E-01, 0.1153E-01,& - 0.1153E-01, 0.1177E-01, 0.1201E-01, 0.1225E-01,& - 0.1225E-01, 0.1249E-01, 0.1273E-01, 0.1297E-01,& - 0.1321E-01, 0.1345E-01, 0.1369E-01, 0.1369E-01,& - 0.1393E-01, 0.1417E-01, 0.1441E-01, 0.1465E-01,& - 0.1489E-01, 0.1513E-01, 0.1537E-01, 0.1561E-01,& - 0.1585E-01, 0.1609E-01, 0.1633E-01, 0.1657E-01,& - 0.1681E-01, 0.1705E-01, 0.1729E-01, 0.1753E-01,& - 0.1777E-01, 0.1825E-01, 0.1849E-01, 0.1873E-01,& - 0.1897E-01, 0.1921E-01, 0.1945E-01, 0.1969E-01,& - 0.2017E-01, 0.2041E-01, 0.2065E-01, 0.2089E-01,& - 0.2137E-01, 0.2160E-01, 0.2184E-01, 0.2232E-01,& - 0.2256E-01, 0.2280E-01, 0.2328E-01, 0.2352E-01,& - 0.2376E-01, 0.2424E-01, 0.2448E-01, 0.2496E-01,& - 0.2520E-01, 0.2544E-01, 0.2592E-01, 0.2616E-01,& - 0.2664E-01, 0.2712E-01, 0.2736E-01, 0.2784E-01,& - 0.2808E-01, 0.2856E-01, 0.2904E-01, 0.2928E-01,& - 0.2976E-01, 0.3000E-01, 0.3048E-01, 0.3096E-01,& - 0.3144E-01, 0.3168E-01, 0.3216E-01, 0.3264E-01,& - 0.3312E-01, 0.3360E-01, 0.3384E-01, 0.3432E-01,& - 0.3480E-01, 0.3528E-01, 0.3576E-01, 0.3624E-01,& - 0.3672E-01, 0.3720E-01, 0.3768E-01, 0.3816E-01,& - 0.3864E-01, 0.3912E-01, 0.3960E-01, 0.4032E-01,& - 0.4080E-01, 0.4128E-01, 0.4176E-01, 0.4224E-01,& - 0.4296E-01, 0.4344E-01, 0.4392E-01, 0.4440E-01,& - 0.4512E-01, 0.4560E-01, 0.4632E-01, 0.4680E-01,& - 0.4728E-01, 0.4800E-01, 0.4848E-01, 0.4920E-01,& - 0.4968E-01, 0.5040E-01, 0.5112E-01, 0.5160E-01,& - 0.5232E-01, 0.5304E-01, 0.5352E-01, 0.5424E-01,& - 0.5496E-01, 0.5568E-01, 0.5616E-01, 0.5688E-01,& - 0.5760E-01, 0.5832E-01, 0.5904E-01, 0.5976E-01,& - 0.6048E-01, 0.6120E-01, 0.6192E-01, 0.6264E-01,& - 0.6336E-01, 0.6408E-01, 0.6479E-01, 0.6575E-01,& - 0.6647E-01, 0.6719E-01, 0.6791E-01, 0.6887E-01,& - 0.6959E-01, 0.7031E-01, 0.7127E-01, 0.7199E-01,& - 0.7295E-01, 0.7367E-01, 0.7463E-01, 0.7535E-01,& - 0.7631E-01, 0.7727E-01, 0.7799E-01, 0.7895E-01,& - 0.7991E-01, 0.8087E-01, 0.8183E-01, 0.8255E-01,& - 0.8351E-01, 0.8447E-01, 0.8543E-01, 0.8639E-01,& - 0.8735E-01, 0.8831E-01, 0.8951E-01, 0.9047E-01,& - 0.9143E-01, 0.9239E-01, 0.9335E-01, 0.9455E-01,& - 0.9551E-01, 0.9671E-01, 0.9767E-01, 0.9863E-01,& - 0.9983E-01, 0.1010E+00, 0.1020E+00, 0.1032E+00,& - 0.1044E+00, 0.1053E+00, 0.1065E+00, 0.1077E+00,& - 0.1089E+00, 0.1101E+00, 0.1113E+00, 0.1125E+00,& - 0.1137E+00, 0.1149E+00, 0.1161E+00, 0.1173E+00,& - 0.1185E+00, 0.1200E+00, 0.1212E+00, 0.1224E+00,& - 0.1238E+00, 0.1250E+00, 0.1265E+00, 0.1277E+00,& - 0.1291E+00, 0.1303E+00, 0.1317E+00, 0.1332E+00,& - 0.1346E+00, 0.1361E+00, 0.1375E+00, 0.1387E+00,& - 0.1404E+00, 0.1418E+00, 0.1433E+00, 0.1447E+00,& - 0.1461E+00, 0.1476E+00, 0.1493E+00, 0.1507E+00,& - 0.1524E+00, 0.1538E+00, 0.1555E+00, 0.1569E+00,& - 0.1586E+00, 0.1603E+00, 0.1617E+00, 0.1634E+00,& - 0.1651E+00, 0.1668E+00, 0.1685E+00, 0.1701E+00,& - 0.1718E+00, 0.1737E+00, 0.1754E+00, 0.1771E+00,& - 0.1790E+00, 0.1807E+00, 0.1826E+00, 0.1843E+00,& - 0.1862E+00, 0.1879E+00, 0.1898E+00, 0.1917E+00,& - 0.1936E+00, 0.1956E+00, 0.1975E+00, 0.1994E+00,& - 0.2013E+00, 0.2032E+00, 0.2054E+00, 0.2073E+00,& - 0.2092E+00, 0.2114E+00, 0.2136E+00, 0.2155E+00,& - 0.2176E+00, 0.2198E+00, 0.2220E+00, 0.2241E+00,& - 0.2263E+00, 0.2284E+00, 0.2306E+00, 0.2328E+00,& - 0.2349E+00, 0.2373E+00, 0.2395E+00, 0.2419E+00,& - 0.2440E+00, 0.2464E+00, 0.2488E+00, 0.2512E+00,& - 0.2536E+00, 0.2560E+00, 0.2584E+00, 0.2608E+00,& - 0.2632E+00, 0.2656E+00, 0.2683E+00, 0.2707E+00,& - 0.2733E+00, 0.2759E+00, 0.2783E+00, 0.2810E+00,& - 0.2836E+00, 0.2863E+00, 0.2889E+00, 0.2918E+00,& - 0.2944E+00, 0.2971E+00, 0.2999E+00, 0.3026E+00,& - 0.3055E+00, 0.3083E+00, 0.3110E+00, 0.3139E+00,& - 0.3167E+00, 0.3199E+00, 0.3227E+00, 0.3256E+00,& - 0.3287E+00, 0.3316E+00, 0.3347E+00, 0.3376E+00,& - 0.3407E+00, 0.3439E+00, 0.3470E+00, 0.3501E+00,& - 0.3532E+00, 0.3566E+00, 0.3597E+00, 0.3630E+00,& - 0.3662E+00, 0.3695E+00, 0.3729E+00, 0.3762E+00,& - 0.3796E+00, 0.3830E+00, 0.3866E+00, 0.3899E+00,& - 0.3933E+00, 0.3969E+00, 0.4005E+00, 0.4041E+00,& - 0.4077E+00, 0.4113E+00, 0.4149E+00, 0.4185E+00,& - 0.4223E+00, 0.4259E+00, 0.4298E+00, 0.4336E+00,& - 0.4374E+00, 0.4413E+00, 0.4451E+00, 0.4489E+00,& - 0.4530E+00, 0.4569E+00, 0.4609E+00, 0.4650E+00,& - 0.4691E+00, 0.4732E+00, 0.4773E+00, 0.4816E+00,& - 0.4857E+00, 0.4900E+00, 0.4943E+00, 0.4984E+00,& - 0.5027E+00, 0.5073E+00, 0.5116E+00, 0.5159E+00,& - 0.5204E+00, 0.5250E+00, 0.5296E+00, 0.5341E+00,& - 0.5387E+00, 0.5432E+00, 0.5480E+00, 0.5526E+00,& - 0.5574E+00, 0.5622E+00, 0.5670E+00, 0.5718E+00,& - 0.5768E+00, 0.5816E+00, 0.5867E+00, 0.5917E+00,& - 0.5968E+00, 0.6018E+00, 0.6071E+00, 0.6121E+00,& - 0.6174E+00, 0.6227E+00, 0.6279E+00, 0.6332E+00,& - 0.6385E+00, 0.6440E+00, 0.6495E+00, 0.6551E+00,& - 0.6606E+00, 0.6661E+00, 0.6716E+00, 0.6774E+00,& - 0.6831E+00, 0.6889E+00, 0.6946E+00, 0.7004E+00,& - 0.7064E+00, 0.7124E+00, 0.7184E+00, 0.7244E+00,& - 0.7304E+00, 0.7366E+00, 0.7426E+00, 0.7489E+00,& - 0.7551E+00, 0.7616E+00, 0.7678E+00, 0.7743E+00,& - 0.7808E+00, 0.7873E+00, 0.7937E+00, 0.8005E+00,& - 0.8072E+00, 0.8139E+00, 0.8206E+00, 0.8273E+00,& - 0.8343E+00, 0.8413E+00, 0.8482E+00, 0.8554E+00,& - 0.8624E+00, 0.8696E+00, 0.8768E+00, 0.8840E+00,& - 0.8914E+00, 0.8988E+00, 0.9063E+00, 0.9137E+00,& - 0.9212E+00, 0.9288E+00, 0.9365E+00, 0.9442E+00,& - 0.9521E+00, 0.9600E+00, 0.9679E+00, 0.9759E+00,& - 0.9838E+00, 0.9919E+00, 0.1000E+01, 0.1008E+01,& - 0.1017E+01, 0.1025E+01, 0.1033E+01, 0.1042E+01,& - 0.1051E+01, 0.1059E+01, 0.1068E+01, 0.1077E+01,& - 0.1086E+01, 0.1095E+01, 0.1104E+01, 0.1113E+01,& - 0.1122E+01, 0.1131E+01, 0.1140E+01, 0.1150E+01,& - 0.1159E+01, 0.1169E+01, 0.1178E+01, 0.1188E+01,& - 0.1198E+01, 0.1207E+01, 0.1217E+01, 0.1228E+01,& - 0.1238E+01, 0.1248E+01, 0.1258E+01, 0.1268E+01,& - 0.1279E+01, 0.1289E+01, 0.1300E+01, 0.1311E+01,& - 0.1321E+01, 0.1332E+01, 0.1343E+01, 0.1354E+01,& - 0.1365E+01, 0.1377E+01, 0.1388E+01, 0.1399E+01,& - 0.1411E+01, 0.1422E+01, 0.1434E+01, 0.1446E+01,& - 0.1458E+01, 0.1470E+01, 0.1482E+01, 0.1494E+01,& - 0.1507E+01, 0.1519E+01, 0.1532E+01, 0.1544E+01,& - 0.1557E+01, 0.1570E+01, 0.1583E+01, 0.1596E+01,& - 0.1609E+01, 0.1623E+01, 0.1636E+01, 0.1650E+01,& - 0.1663E+01, 0.1677E+01, 0.1691E+01, 0.1705E+01,& - 0.1719E+01, 0.1734E+01, 0.1748E+01, 0.1763E+01,& - 0.1777E+01, 0.1792E+01, 0.1807E+01, 0.1822E+01,& - 0.1838E+01, 0.1853E+01, 0.1868E+01, 0.1884E+01,& - 0.1900E+01, 0.1916E+01, 0.1932E+01, 0.1948E+01,& - 0.1965E+01, 0.1981E+01, 0.1998E+01, 0.2015E+01,& - 0.2032E+01, 0.2049E+01, 0.2067E+01, 0.2084E+01,& - 0.2102E+01, 0.2120E+01, 0.2138E+01, 0.2156E+01,& - 0.2174E+01, 0.2193E+01, 0.2212E+01, 0.2231E+01,& - 0.2250E+01, 0.2269E+01, 0.2289E+01, 0.2309E+01,& - 0.2329E+01, 0.2349E+01, 0.2369E+01, 0.2390E+01,& - 0.2411E+01, 0.2432E+01, 0.2453E+01, 0.2474E+01,& - 0.2496E+01, 0.2518E+01, 0.2540E+01, 0.2562E+01,& - 0.2585E+01, 0.2608E+01, 0.2631E+01, 0.2655E+01,& - 0.2678E+01, 0.2702E+01, 0.2726E+01, 0.2750E+01,& - 0.2775E+01, 0.2800E+01, 0.2825E+01, 0.2851E+01,& - 0.2877E+01, 0.2903E+01, 0.2929E+01, 0.2956E+01,& - 0.2983E+01, 0.3011E+01, 0.3038E+01, 0.3066E+01,& - 0.3095E+01, 0.3124E+01, 0.3153E+01, 0.3182E+01,& - 0.3212E+01, 0.3242E+01, 0.3273E+01, 0.3304E+01,& - 0.3335E+01, 0.3367E+01, 0.3399E+01, 0.3431E+01,& - 0.3464E+01, 0.3498E+01, 0.3532E+01, 0.3566E+01,& - 0.3601E+01, 0.3636E+01, 0.3672E+01, 0.3708E+01,& - 0.3745E+01, 0.3782E+01, 0.3820E+01, 0.3859E+01,& - 0.3898E+01, 0.3937E+01, 0.3978E+01, 0.4018E+01,& - 0.4060E+01, 0.4102E+01, 0.4144E+01, 0.4188E+01,& - 0.4232E+01, 0.4277E+01, 0.4322E+01, 0.4368E+01,& - 0.4415E+01, 0.4463E+01, 0.4512E+01, 0.4561E+01,& - 0.4611E+01, 0.4663E+01, 0.4715E+01, 0.4768E+01,& - 0.4822E+01, 0.4877E+01, 0.4933E+01, 0.4990E+01,& - 0.5048E+01, 0.5108E+01, 0.5168E+01, 0.5230E+01,& - 0.5293E+01, 0.5358E+01, 0.5424E+01, 0.5491E+01,& - 0.5560E+01, 0.5630E+01, 0.5702E+01, 0.5776E+01,& - 0.5851E+01, 0.5929E+01, 0.6008E+01, 0.6089E+01,& - 0.6172E+01, 0.6258E+01, 0.6346E+01, 0.6436E+01,& - 0.6529E+01, 0.6624E+01, 0.6723E+01, 0.6825E+01,& - 0.6929E+01, 0.7038E+01, 0.7149E+01, 0.7265E+01,& - 0.7385E+01, 0.7509E+01, 0.7638E+01, 0.7773E+01,& - 0.7913E+01, 0.8059E+01, 0.8211E+01, 0.8370E+01,& - 0.8538E+01, 0.8714E+01, 0.8899E+01, 0.9096E+01,& - 0.9304E+01, 0.9525E+01, 0.9762E+01, 0.1002E+02,& - 0.1029E+02, 0.1059E+02, 0.1092E+02, 0.1128E+02,& - 0.1169E+02, 0.1215E+02, 0.1269E+02, 0.1334E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 90) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.2544E-03, 0.2544E-03, 0.2544E-03, 0.2544E-03,& - 0.2544E-03, 0.2544E-03, 0.2544E-03, 0.2544E-03,& - 0.2544E-03, 0.2544E-03, 0.2544E-03, 0.2544E-03,& - 0.2544E-03, 0.2544E-03, 0.2544E-03, 0.2544E-03,& - 0.2544E-03, 0.2544E-03, 0.2544E-03, 0.2544E-03,& - 0.2544E-03, 0.2544E-03, 0.2544E-03, 0.4987E-03,& - 0.4987E-03, 0.4987E-03, 0.4987E-03, 0.4987E-03,& - 0.4987E-03, 0.4987E-03, 0.4987E-03, 0.4987E-03,& - 0.4987E-03, 0.4987E-03, 0.4987E-03, 0.4987E-03,& - 0.4987E-03, 0.4987E-03, 0.7431E-03, 0.7431E-03,& - 0.7431E-03, 0.7431E-03, 0.7431E-03, 0.7431E-03,& - 0.7431E-03, 0.7431E-03, 0.7431E-03, 0.7431E-03,& - 0.7431E-03, 0.9874E-03, 0.9874E-03, 0.9874E-03,& - 0.9874E-03, 0.9874E-03, 0.9874E-03, 0.9874E-03,& - 0.9874E-03, 0.9874E-03, 0.1232E-02, 0.1232E-02,& - 0.1232E-02, 0.1232E-02, 0.1232E-02, 0.1232E-02,& - 0.1232E-02, 0.1232E-02, 0.1476E-02, 0.1476E-02,& - 0.1476E-02, 0.1476E-02, 0.1476E-02, 0.1476E-02,& - 0.1476E-02, 0.1720E-02, 0.1720E-02, 0.1720E-02,& - 0.1720E-02, 0.1720E-02, 0.1720E-02, 0.1965E-02,& - 0.1965E-02, 0.1965E-02, 0.1965E-02, 0.1965E-02,& - 0.2209E-02, 0.2209E-02, 0.2209E-02, 0.2209E-02,& - 0.2209E-02, 0.2454E-02, 0.2454E-02, 0.2454E-02,& - 0.2454E-02, 0.2454E-02, 0.2698E-02, 0.2698E-02,& - 0.2698E-02, 0.2698E-02, 0.2942E-02, 0.2942E-02,& - 0.2942E-02, 0.2942E-02, 0.3187E-02, 0.3187E-02,& - 0.3187E-02, 0.3187E-02, 0.3431E-02, 0.3431E-02,& - 0.3431E-02, 0.3675E-02, 0.3675E-02, 0.3675E-02,& - 0.3675E-02, 0.3920E-02, 0.3920E-02, 0.3920E-02,& - 0.4164E-02, 0.4164E-02, 0.4164E-02, 0.4408E-02,& - 0.4408E-02, 0.4408E-02, 0.4653E-02, 0.4653E-02,& - 0.4897E-02, 0.4897E-02, 0.4897E-02, 0.5141E-02,& - 0.5141E-02, 0.5386E-02, 0.5386E-02, 0.5386E-02,& - 0.5630E-02, 0.5630E-02, 0.5875E-02, 0.5875E-02,& - 0.6119E-02, 0.6119E-02, 0.6119E-02, 0.6363E-02,& - 0.6363E-02, 0.6608E-02, 0.6608E-02, 0.6852E-02,& - 0.6852E-02, 0.7096E-02, 0.7096E-02, 0.7341E-02,& - 0.7341E-02, 0.7585E-02, 0.7585E-02, 0.7829E-02,& - 0.8074E-02, 0.8074E-02, 0.8318E-02, 0.8318E-02,& - 0.8562E-02, 0.8562E-02, 0.8807E-02, 0.9051E-02,& - 0.9051E-02, 0.9295E-02, 0.9540E-02, 0.9540E-02,& - 0.9784E-02, 0.1003E-01, 0.1003E-01, 0.1027E-01,& - 0.1052E-01, 0.1052E-01, 0.1076E-01, 0.1101E-01,& - 0.1125E-01, 0.1125E-01, 0.1149E-01, 0.1174E-01,& - 0.1198E-01, 0.1198E-01, 0.1223E-01, 0.1247E-01,& - 0.1272E-01, 0.1296E-01, 0.1296E-01, 0.1321E-01,& - 0.1345E-01, 0.1369E-01, 0.1394E-01, 0.1418E-01,& - 0.1443E-01, 0.1467E-01, 0.1492E-01, 0.1492E-01,& - 0.1516E-01, 0.1540E-01, 0.1565E-01, 0.1589E-01,& - 0.1614E-01, 0.1638E-01, 0.1663E-01, 0.1687E-01,& - 0.1711E-01, 0.1736E-01, 0.1785E-01, 0.1809E-01,& - 0.1834E-01, 0.1858E-01, 0.1883E-01, 0.1907E-01,& - 0.1931E-01, 0.1956E-01, 0.2005E-01, 0.2029E-01,& - 0.2054E-01, 0.2078E-01, 0.2127E-01, 0.2151E-01,& - 0.2176E-01, 0.2200E-01, 0.2249E-01, 0.2274E-01,& - 0.2298E-01, 0.2347E-01, 0.2371E-01, 0.2396E-01,& - 0.2445E-01, 0.2469E-01, 0.2518E-01, 0.2542E-01,& - 0.2591E-01, 0.2616E-01, 0.2664E-01, 0.2689E-01,& - 0.2738E-01, 0.2762E-01, 0.2811E-01, 0.2836E-01,& - 0.2884E-01, 0.2933E-01, 0.2958E-01, 0.3007E-01,& - 0.3031E-01, 0.3080E-01, 0.3129E-01, 0.3178E-01,& - 0.3202E-01, 0.3251E-01, 0.3300E-01, 0.3349E-01,& - 0.3398E-01, 0.3422E-01, 0.3471E-01, 0.3520E-01,& - 0.3569E-01, 0.3617E-01, 0.3666E-01, 0.3715E-01,& - 0.3764E-01, 0.3813E-01, 0.3862E-01, 0.3911E-01,& - 0.3960E-01, 0.4008E-01, 0.4057E-01, 0.4131E-01,& - 0.4179E-01, 0.4228E-01, 0.4277E-01, 0.4326E-01,& - 0.4399E-01, 0.4448E-01, 0.4497E-01, 0.4570E-01,& - 0.4619E-01, 0.4668E-01, 0.4741E-01, 0.4790E-01,& - 0.4864E-01, 0.4913E-01, 0.4986E-01, 0.5035E-01,& - 0.5108E-01, 0.5157E-01, 0.5230E-01, 0.5304E-01,& - 0.5352E-01, 0.5426E-01, 0.5499E-01, 0.5572E-01,& - 0.5621E-01, 0.5694E-01, 0.5768E-01, 0.5841E-01,& - 0.5914E-01, 0.5988E-01, 0.6061E-01, 0.6134E-01,& - 0.6208E-01, 0.6281E-01, 0.6354E-01, 0.6428E-01,& - 0.6501E-01, 0.6574E-01, 0.6647E-01, 0.6745E-01,& - 0.6819E-01, 0.6892E-01, 0.6990E-01, 0.7063E-01,& - 0.7136E-01, 0.7234E-01, 0.7307E-01, 0.7405E-01,& - 0.7478E-01, 0.7576E-01, 0.7649E-01, 0.7747E-01,& - 0.7845E-01, 0.7918E-01, 0.8016E-01, 0.8114E-01,& - 0.8211E-01, 0.8309E-01, 0.8382E-01, 0.8480E-01,& - 0.8578E-01, 0.8676E-01, 0.8773E-01, 0.8871E-01,& - 0.8993E-01, 0.9091E-01, 0.9189E-01, 0.9286E-01,& - 0.9384E-01, 0.9506E-01, 0.9604E-01, 0.9702E-01,& - 0.9824E-01, 0.9922E-01, 0.1004E+00, 0.1014E+00,& - 0.1026E+00, 0.1039E+00, 0.1048E+00, 0.1061E+00,& - 0.1073E+00, 0.1085E+00, 0.1097E+00, 0.1107E+00,& - 0.1119E+00, 0.1131E+00, 0.1144E+00, 0.1156E+00,& - 0.1171E+00, 0.1183E+00, 0.1195E+00, 0.1207E+00,& - 0.1222E+00, 0.1234E+00, 0.1246E+00, 0.1261E+00,& - 0.1273E+00, 0.1288E+00, 0.1303E+00, 0.1315E+00,& - 0.1329E+00, 0.1344E+00, 0.1356E+00, 0.1371E+00,& - 0.1386E+00, 0.1400E+00, 0.1415E+00, 0.1430E+00,& - 0.1444E+00, 0.1461E+00, 0.1476E+00, 0.1491E+00,& - 0.1505E+00, 0.1522E+00, 0.1537E+00, 0.1554E+00,& - 0.1569E+00, 0.1586E+00, 0.1603E+00, 0.1618E+00,& - 0.1635E+00, 0.1652E+00, 0.1669E+00, 0.1686E+00,& - 0.1703E+00, 0.1720E+00, 0.1737E+00, 0.1757E+00,& - 0.1774E+00, 0.1791E+00, 0.1811E+00, 0.1828E+00,& - 0.1847E+00, 0.1865E+00, 0.1884E+00, 0.1904E+00,& - 0.1921E+00, 0.1940E+00, 0.1960E+00, 0.1979E+00,& - 0.1999E+00, 0.2018E+00, 0.2040E+00, 0.2060E+00,& - 0.2080E+00, 0.2102E+00, 0.2121E+00, 0.2143E+00,& - 0.2163E+00, 0.2185E+00, 0.2207E+00, 0.2229E+00,& - 0.2251E+00, 0.2273E+00, 0.2295E+00, 0.2317E+00,& - 0.2339E+00, 0.2361E+00, 0.2385E+00, 0.2407E+00,& - 0.2431E+00, 0.2453E+00, 0.2478E+00, 0.2502E+00,& - 0.2527E+00, 0.2549E+00, 0.2573E+00, 0.2600E+00,& - 0.2624E+00, 0.2649E+00, 0.2673E+00, 0.2700E+00,& - 0.2725E+00, 0.2752E+00, 0.2778E+00, 0.2803E+00,& - 0.2830E+00, 0.2857E+00, 0.2883E+00, 0.2910E+00,& - 0.2940E+00, 0.2967E+00, 0.2993E+00, 0.3023E+00,& - 0.3050E+00, 0.3079E+00, 0.3108E+00, 0.3138E+00,& - 0.3167E+00, 0.3196E+00, 0.3226E+00, 0.3255E+00,& - 0.3284E+00, 0.3316E+00, 0.3345E+00, 0.3377E+00,& - 0.3409E+00, 0.3441E+00, 0.3472E+00, 0.3504E+00,& - 0.3536E+00, 0.3568E+00, 0.3602E+00, 0.3634E+00,& - 0.3668E+00, 0.3700E+00, 0.3734E+00, 0.3768E+00,& - 0.3802E+00, 0.3836E+00, 0.3873E+00, 0.3907E+00,& - 0.3944E+00, 0.3978E+00, 0.4015E+00, 0.4052E+00,& - 0.4088E+00, 0.4125E+00, 0.4161E+00, 0.4198E+00,& - 0.4237E+00, 0.4274E+00, 0.4313E+00, 0.4352E+00,& - 0.4391E+00, 0.4430E+00, 0.4469E+00, 0.4508E+00,& - 0.4550E+00, 0.4589E+00, 0.4631E+00, 0.4672E+00,& - 0.4714E+00, 0.4755E+00, 0.4797E+00, 0.4841E+00,& - 0.4882E+00, 0.4926E+00, 0.4970E+00, 0.5012E+00,& - 0.5058E+00, 0.5102E+00, 0.5146E+00, 0.5193E+00,& - 0.5237E+00, 0.5283E+00, 0.5329E+00, 0.5376E+00,& - 0.5422E+00, 0.5471E+00, 0.5518E+00, 0.5567E+00,& - 0.5615E+00, 0.5664E+00, 0.5713E+00, 0.5762E+00,& - 0.5813E+00, 0.5862E+00, 0.5913E+00, 0.5965E+00,& - 0.6016E+00, 0.6070E+00, 0.6121E+00, 0.6175E+00,& - 0.6229E+00, 0.6282E+00, 0.6336E+00, 0.6390E+00,& - 0.6446E+00, 0.6500E+00, 0.6556E+00, 0.6612E+00,& - 0.6669E+00, 0.6727E+00, 0.6783E+00, 0.6842E+00,& - 0.6901E+00, 0.6959E+00, 0.7020E+00, 0.7079E+00,& - 0.7140E+00, 0.7201E+00, 0.7262E+00, 0.7323E+00,& - 0.7387E+00, 0.7450E+00, 0.7512E+00, 0.7578E+00,& - 0.7641E+00, 0.7705E+00, 0.7771E+00, 0.7837E+00,& - 0.7903E+00, 0.7971E+00, 0.8037E+00, 0.8105E+00,& - 0.8174E+00, 0.8245E+00, 0.8313E+00, 0.8384E+00,& - 0.8455E+00, 0.8526E+00, 0.8597E+00, 0.8670E+00,& - 0.8743E+00, 0.8816E+00, 0.8890E+00, 0.8965E+00,& - 0.9041E+00, 0.9117E+00, 0.9193E+00, 0.9271E+00,& - 0.9349E+00, 0.9427E+00, 0.9506E+00, 0.9586E+00,& - 0.9667E+00, 0.9747E+00, 0.9828E+00, 0.9911E+00,& - 0.9994E+00, 0.1008E+01, 0.1016E+01, 0.1025E+01,& - 0.1033E+01, 0.1042E+01, 0.1051E+01, 0.1060E+01,& - 0.1068E+01, 0.1077E+01, 0.1086E+01, 0.1095E+01,& - 0.1104E+01, 0.1114E+01, 0.1123E+01, 0.1132E+01,& - 0.1142E+01, 0.1151E+01, 0.1161E+01, 0.1171E+01,& - 0.1180E+01, 0.1190E+01, 0.1200E+01, 0.1210E+01,& - 0.1221E+01, 0.1231E+01, 0.1241E+01, 0.1251E+01,& - 0.1262E+01, 0.1272E+01, 0.1283E+01, 0.1294E+01,& - 0.1304E+01, 0.1315E+01, 0.1326E+01, 0.1337E+01,& - 0.1349E+01, 0.1360E+01, 0.1371E+01, 0.1383E+01,& - 0.1394E+01, 0.1406E+01, 0.1418E+01, 0.1429E+01,& - 0.1441E+01, 0.1453E+01, 0.1466E+01, 0.1478E+01,& - 0.1490E+01, 0.1503E+01, 0.1516E+01, 0.1528E+01,& - 0.1541E+01, 0.1554E+01, 0.1567E+01, 0.1580E+01,& - 0.1593E+01, 0.1607E+01, 0.1620E+01, 0.1634E+01,& - 0.1648E+01, 0.1662E+01, 0.1676E+01, 0.1690E+01,& - 0.1704E+01, 0.1719E+01, 0.1733E+01, 0.1748E+01,& - 0.1763E+01, 0.1777E+01, 0.1793E+01, 0.1808E+01,& - 0.1823E+01, 0.1839E+01, 0.1854E+01, 0.1870E+01,& - 0.1886E+01, 0.1902E+01, 0.1918E+01, 0.1935E+01,& - 0.1951E+01, 0.1968E+01, 0.1985E+01, 0.2002E+01,& - 0.2019E+01, 0.2036E+01, 0.2054E+01, 0.2072E+01,& - 0.2090E+01, 0.2108E+01, 0.2126E+01, 0.2144E+01,& - 0.2163E+01, 0.2182E+01, 0.2201E+01, 0.2220E+01,& - 0.2239E+01, 0.2259E+01, 0.2278E+01, 0.2298E+01,& - 0.2319E+01, 0.2339E+01, 0.2360E+01, 0.2380E+01,& - 0.2401E+01, 0.2423E+01, 0.2444E+01, 0.2466E+01,& - 0.2488E+01, 0.2510E+01, 0.2532E+01, 0.2555E+01,& - 0.2577E+01, 0.2601E+01, 0.2624E+01, 0.2648E+01,& - 0.2672E+01, 0.2696E+01, 0.2720E+01, 0.2745E+01,& - 0.2770E+01, 0.2795E+01, 0.2821E+01, 0.2847E+01,& - 0.2873E+01, 0.2899E+01, 0.2926E+01, 0.2953E+01,& - 0.2980E+01, 0.3008E+01, 0.3036E+01, 0.3064E+01,& - 0.3093E+01, 0.3122E+01, 0.3152E+01, 0.3182E+01,& - 0.3212E+01, 0.3242E+01, 0.3273E+01, 0.3305E+01,& - 0.3336E+01, 0.3369E+01, 0.3401E+01, 0.3434E+01,& - 0.3468E+01, 0.3502E+01, 0.3536E+01, 0.3571E+01,& - 0.3606E+01, 0.3642E+01, 0.3678E+01, 0.3715E+01,& - 0.3752E+01, 0.3790E+01, 0.3829E+01, 0.3868E+01,& - 0.3907E+01, 0.3947E+01, 0.3988E+01, 0.4029E+01,& - 0.4071E+01, 0.4114E+01, 0.4157E+01, 0.4201E+01,& - 0.4246E+01, 0.4292E+01, 0.4338E+01, 0.4385E+01,& - 0.4432E+01, 0.4481E+01, 0.4530E+01, 0.4581E+01,& - 0.4632E+01, 0.4684E+01, 0.4737E+01, 0.4791E+01,& - 0.4846E+01, 0.4901E+01, 0.4958E+01, 0.5017E+01,& - 0.5076E+01, 0.5136E+01, 0.5198E+01, 0.5261E+01,& - 0.5325E+01, 0.5390E+01, 0.5457E+01, 0.5526E+01,& - 0.5596E+01, 0.5668E+01, 0.5741E+01, 0.5816E+01,& - 0.5892E+01, 0.5971E+01, 0.6052E+01, 0.6134E+01,& - 0.6219E+01, 0.6306E+01, 0.6396E+01, 0.6488E+01,& - 0.6582E+01, 0.6680E+01, 0.6780E+01, 0.6884E+01,& - 0.6990E+01, 0.7101E+01, 0.7215E+01, 0.7333E+01,& - 0.7455E+01, 0.7581E+01, 0.7713E+01, 0.7850E+01,& - 0.7993E+01, 0.8141E+01, 0.8297E+01, 0.8459E+01,& - 0.8630E+01, 0.8810E+01, 0.8999E+01, 0.9199E+01,& - 0.9411E+01, 0.9638E+01, 0.9879E+01, 0.1014E+02,& - 0.1042E+02, 0.1073E+02, 0.1106E+02, 0.1143E+02,& - 0.1185E+02, 0.1232E+02, 0.1287E+02, 0.1353E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 91) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2588E-03,& - 0.2588E-03, 0.2588E-03, 0.2588E-03, 0.2588E-03,& - 0.2588E-03, 0.2588E-03, 0.2588E-03, 0.2588E-03,& - 0.2588E-03, 0.2588E-03, 0.2588E-03, 0.2588E-03,& - 0.2588E-03, 0.2588E-03, 0.2588E-03, 0.2588E-03,& - 0.2588E-03, 0.2588E-03, 0.2588E-03, 0.2588E-03,& - 0.2588E-03, 0.2588E-03, 0.5076E-03, 0.5076E-03,& - 0.5076E-03, 0.5076E-03, 0.5076E-03, 0.5076E-03,& - 0.5076E-03, 0.5076E-03, 0.5076E-03, 0.5076E-03,& - 0.5076E-03, 0.5076E-03, 0.5076E-03, 0.5076E-03,& - 0.5076E-03, 0.7564E-03, 0.7564E-03, 0.7564E-03,& - 0.7564E-03, 0.7564E-03, 0.7564E-03, 0.7564E-03,& - 0.7564E-03, 0.7564E-03, 0.7564E-03, 0.7564E-03,& - 0.1005E-02, 0.1005E-02, 0.1005E-02, 0.1005E-02,& - 0.1005E-02, 0.1005E-02, 0.1005E-02, 0.1005E-02,& - 0.1005E-02, 0.1254E-02, 0.1254E-02, 0.1254E-02,& - 0.1254E-02, 0.1254E-02, 0.1254E-02, 0.1254E-02,& - 0.1254E-02, 0.1503E-02, 0.1503E-02, 0.1503E-02,& - 0.1503E-02, 0.1503E-02, 0.1503E-02, 0.1503E-02,& - 0.1752E-02, 0.1752E-02, 0.1752E-02, 0.1752E-02,& - 0.1752E-02, 0.1752E-02, 0.2001E-02, 0.2001E-02,& - 0.2001E-02, 0.2001E-02, 0.2001E-02, 0.2001E-02,& - 0.2249E-02, 0.2249E-02, 0.2249E-02, 0.2249E-02,& - 0.2249E-02, 0.2498E-02, 0.2498E-02, 0.2498E-02,& - 0.2498E-02, 0.2747E-02, 0.2747E-02, 0.2747E-02,& - 0.2747E-02, 0.2996E-02, 0.2996E-02, 0.2996E-02,& - 0.2996E-02, 0.3245E-02, 0.3245E-02, 0.3245E-02,& - 0.3245E-02, 0.3493E-02, 0.3493E-02, 0.3493E-02,& - 0.3493E-02, 0.3742E-02, 0.3742E-02, 0.3742E-02,& - 0.3991E-02, 0.3991E-02, 0.3991E-02, 0.4240E-02,& - 0.4240E-02, 0.4240E-02, 0.4489E-02, 0.4489E-02,& - 0.4489E-02, 0.4737E-02, 0.4737E-02, 0.4737E-02,& - 0.4986E-02, 0.4986E-02, 0.5235E-02, 0.5235E-02,& - 0.5235E-02, 0.5484E-02, 0.5484E-02, 0.5733E-02,& - 0.5733E-02, 0.5733E-02, 0.5982E-02, 0.5982E-02,& - 0.6230E-02, 0.6230E-02, 0.6479E-02, 0.6479E-02,& - 0.6728E-02, 0.6728E-02, 0.6977E-02, 0.6977E-02,& - 0.7226E-02, 0.7226E-02, 0.7474E-02, 0.7474E-02,& - 0.7723E-02, 0.7723E-02, 0.7972E-02, 0.7972E-02,& - 0.8221E-02, 0.8221E-02, 0.8470E-02, 0.8718E-02,& - 0.8718E-02, 0.8967E-02, 0.8967E-02, 0.9216E-02,& - 0.9465E-02, 0.9465E-02, 0.9714E-02, 0.9963E-02,& - 0.9963E-02, 0.1021E-01, 0.1046E-01, 0.1046E-01,& - 0.1071E-01, 0.1096E-01, 0.1096E-01, 0.1121E-01,& - 0.1146E-01, 0.1170E-01, 0.1170E-01, 0.1195E-01,& - 0.1220E-01, 0.1245E-01, 0.1245E-01, 0.1270E-01,& - 0.1295E-01, 0.1320E-01, 0.1345E-01, 0.1369E-01,& - 0.1369E-01, 0.1394E-01, 0.1419E-01, 0.1444E-01,& - 0.1469E-01, 0.1494E-01, 0.1519E-01, 0.1544E-01,& - 0.1569E-01, 0.1593E-01, 0.1618E-01, 0.1643E-01,& - 0.1668E-01, 0.1693E-01, 0.1718E-01, 0.1743E-01,& - 0.1768E-01, 0.1792E-01, 0.1817E-01, 0.1842E-01,& - 0.1867E-01, 0.1892E-01, 0.1917E-01, 0.1967E-01,& - 0.1992E-01, 0.2016E-01, 0.2041E-01, 0.2066E-01,& - 0.2116E-01, 0.2141E-01, 0.2166E-01, 0.2191E-01,& - 0.2240E-01, 0.2265E-01, 0.2290E-01, 0.2340E-01,& - 0.2365E-01, 0.2390E-01, 0.2439E-01, 0.2464E-01,& - 0.2489E-01, 0.2539E-01, 0.2564E-01, 0.2614E-01,& - 0.2638E-01, 0.2688E-01, 0.2713E-01, 0.2763E-01,& - 0.2788E-01, 0.2837E-01, 0.2862E-01, 0.2912E-01,& - 0.2962E-01, 0.2987E-01, 0.3037E-01, 0.3086E-01,& - 0.3111E-01, 0.3161E-01, 0.3211E-01, 0.3236E-01,& - 0.3285E-01, 0.3335E-01, 0.3385E-01, 0.3435E-01,& - 0.3484E-01, 0.3509E-01, 0.3559E-01, 0.3609E-01,& - 0.3659E-01, 0.3708E-01, 0.3758E-01, 0.3808E-01,& - 0.3858E-01, 0.3907E-01, 0.3957E-01, 0.4007E-01,& - 0.4057E-01, 0.4106E-01, 0.4181E-01, 0.4231E-01,& - 0.4281E-01, 0.4330E-01, 0.4380E-01, 0.4455E-01,& - 0.4505E-01, 0.4554E-01, 0.4629E-01, 0.4679E-01,& - 0.4728E-01, 0.4803E-01, 0.4853E-01, 0.4928E-01,& - 0.4977E-01, 0.5052E-01, 0.5102E-01, 0.5176E-01,& - 0.5226E-01, 0.5301E-01, 0.5375E-01, 0.5425E-01,& - 0.5500E-01, 0.5574E-01, 0.5649E-01, 0.5699E-01,& - 0.5773E-01, 0.5848E-01, 0.5923E-01, 0.5997E-01,& - 0.6072E-01, 0.6147E-01, 0.6221E-01, 0.6296E-01,& - 0.6371E-01, 0.6445E-01, 0.6520E-01, 0.6595E-01,& - 0.6669E-01, 0.6769E-01, 0.6843E-01, 0.6918E-01,& - 0.6993E-01, 0.7092E-01, 0.7167E-01, 0.7266E-01,& - 0.7341E-01, 0.7441E-01, 0.7515E-01, 0.7615E-01,& - 0.7689E-01, 0.7789E-01, 0.7864E-01, 0.7963E-01,& - 0.8063E-01, 0.8162E-01, 0.8237E-01, 0.8336E-01,& - 0.8436E-01, 0.8535E-01, 0.8635E-01, 0.8734E-01,& - 0.8834E-01, 0.8933E-01, 0.9033E-01, 0.9132E-01,& - 0.9232E-01, 0.9356E-01, 0.9456E-01, 0.9555E-01,& - 0.9680E-01, 0.9779E-01, 0.9879E-01, 0.1000E+00,& - 0.1010E+00, 0.1023E+00, 0.1033E+00, 0.1045E+00,& - 0.1058E+00, 0.1068E+00, 0.1080E+00, 0.1092E+00,& - 0.1105E+00, 0.1117E+00, 0.1130E+00, 0.1142E+00,& - 0.1155E+00, 0.1167E+00, 0.1179E+00, 0.1192E+00,& - 0.1204E+00, 0.1219E+00, 0.1232E+00, 0.1244E+00,& - 0.1259E+00, 0.1272E+00, 0.1286E+00, 0.1299E+00,& - 0.1314E+00, 0.1329E+00, 0.1341E+00, 0.1356E+00,& - 0.1371E+00, 0.1386E+00, 0.1401E+00, 0.1416E+00,& - 0.1431E+00, 0.1446E+00, 0.1461E+00, 0.1476E+00,& - 0.1490E+00, 0.1508E+00, 0.1523E+00, 0.1538E+00,& - 0.1555E+00, 0.1570E+00, 0.1588E+00, 0.1605E+00,& - 0.1620E+00, 0.1637E+00, 0.1655E+00, 0.1672E+00,& - 0.1690E+00, 0.1707E+00, 0.1724E+00, 0.1742E+00,& - 0.1759E+00, 0.1777E+00, 0.1797E+00, 0.1814E+00,& - 0.1834E+00, 0.1851E+00, 0.1871E+00, 0.1889E+00,& - 0.1909E+00, 0.1928E+00, 0.1948E+00, 0.1966E+00,& - 0.1986E+00, 0.2008E+00, 0.2028E+00, 0.2048E+00,& - 0.2068E+00, 0.2088E+00, 0.2110E+00, 0.2130E+00,& - 0.2152E+00, 0.2172E+00, 0.2195E+00, 0.2217E+00,& - 0.2239E+00, 0.2262E+00, 0.2284E+00, 0.2307E+00,& - 0.2329E+00, 0.2351E+00, 0.2374E+00, 0.2399E+00,& - 0.2421E+00, 0.2446E+00, 0.2468E+00, 0.2493E+00,& - 0.2518E+00, 0.2543E+00, 0.2565E+00, 0.2590E+00,& - 0.2618E+00, 0.2643E+00, 0.2667E+00, 0.2692E+00,& - 0.2720E+00, 0.2745E+00, 0.2772E+00, 0.2799E+00,& - 0.2824E+00, 0.2852E+00, 0.2879E+00, 0.2906E+00,& - 0.2936E+00, 0.2963E+00, 0.2991E+00, 0.3021E+00,& - 0.3048E+00, 0.3078E+00, 0.3105E+00, 0.3135E+00,& - 0.3165E+00, 0.3195E+00, 0.3225E+00, 0.3255E+00,& - 0.3287E+00, 0.3317E+00, 0.3349E+00, 0.3379E+00,& - 0.3411E+00, 0.3444E+00, 0.3476E+00, 0.3508E+00,& - 0.3541E+00, 0.3573E+00, 0.3608E+00, 0.3640E+00,& - 0.3675E+00, 0.3707E+00, 0.3742E+00, 0.3777E+00,& - 0.3812E+00, 0.3847E+00, 0.3882E+00, 0.3919E+00,& - 0.3954E+00, 0.3991E+00, 0.4026E+00, 0.4063E+00,& - 0.4101E+00, 0.4138E+00, 0.4178E+00, 0.4215E+00,& - 0.4252E+00, 0.4292E+00, 0.4332E+00, 0.4369E+00,& - 0.4409E+00, 0.4449E+00, 0.4491E+00, 0.4531E+00,& - 0.4571E+00, 0.4613E+00, 0.4655E+00, 0.4695E+00,& - 0.4738E+00, 0.4782E+00, 0.4825E+00, 0.4867E+00,& - 0.4912E+00, 0.4956E+00, 0.4999E+00, 0.5044E+00,& - 0.5088E+00, 0.5136E+00, 0.5180E+00, 0.5228E+00,& - 0.5272E+00, 0.5320E+00, 0.5367E+00, 0.5414E+00,& - 0.5464E+00, 0.5511E+00, 0.5561E+00, 0.5611E+00,& - 0.5661E+00, 0.5710E+00, 0.5760E+00, 0.5810E+00,& - 0.5862E+00, 0.5914E+00, 0.5967E+00, 0.6019E+00,& - 0.6071E+00, 0.6123E+00, 0.6178E+00, 0.6233E+00,& - 0.6288E+00, 0.6342E+00, 0.6397E+00, 0.6452E+00,& - 0.6509E+00, 0.6566E+00, 0.6624E+00, 0.6681E+00,& - 0.6738E+00, 0.6798E+00, 0.6857E+00, 0.6917E+00,& - 0.6977E+00, 0.7037E+00, 0.7099E+00, 0.7158E+00,& - 0.7221E+00, 0.7283E+00, 0.7348E+00, 0.7410E+00,& - 0.7474E+00, 0.7539E+00, 0.7604E+00, 0.7671E+00,& - 0.7736E+00, 0.7803E+00, 0.7870E+00, 0.7937E+00,& - 0.8007E+00, 0.8074E+00, 0.8144E+00, 0.8213E+00,& - 0.8286E+00, 0.8355E+00, 0.8427E+00, 0.8500E+00,& - 0.8572E+00, 0.8646E+00, 0.8719E+00, 0.8793E+00,& - 0.8870E+00, 0.8945E+00, 0.9022E+00, 0.9099E+00,& - 0.9176E+00, 0.9256E+00, 0.9333E+00, 0.9413E+00,& - 0.9495E+00, 0.9574E+00, 0.9657E+00, 0.9739E+00,& - 0.9821E+00, 0.9905E+00, 0.9990E+00, 0.1007E+01,& - 0.1016E+01, 0.1025E+01, 0.1033E+01, 0.1042E+01,& - 0.1051E+01, 0.1060E+01, 0.1069E+01, 0.1078E+01,& - 0.1087E+01, 0.1096E+01, 0.1106E+01, 0.1115E+01,& - 0.1125E+01, 0.1134E+01, 0.1144E+01, 0.1154E+01,& - 0.1163E+01, 0.1173E+01, 0.1183E+01, 0.1193E+01,& - 0.1203E+01, 0.1213E+01, 0.1224E+01, 0.1234E+01,& - 0.1245E+01, 0.1255E+01, 0.1266E+01, 0.1276E+01,& - 0.1287E+01, 0.1298E+01, 0.1309E+01, 0.1320E+01,& - 0.1332E+01, 0.1343E+01, 0.1354E+01, 0.1366E+01,& - 0.1377E+01, 0.1389E+01, 0.1401E+01, 0.1413E+01,& - 0.1425E+01, 0.1437E+01, 0.1449E+01, 0.1462E+01,& - 0.1474E+01, 0.1486E+01, 0.1499E+01, 0.1512E+01,& - 0.1525E+01, 0.1538E+01, 0.1551E+01, 0.1564E+01,& - 0.1577E+01, 0.1591E+01, 0.1605E+01, 0.1618E+01,& - 0.1632E+01, 0.1646E+01, 0.1660E+01, 0.1675E+01,& - 0.1689E+01, 0.1703E+01, 0.1718E+01, 0.1733E+01,& - 0.1748E+01, 0.1763E+01, 0.1778E+01, 0.1793E+01,& - 0.1809E+01, 0.1824E+01, 0.1840E+01, 0.1856E+01,& - 0.1872E+01, 0.1888E+01, 0.1904E+01, 0.1921E+01,& - 0.1938E+01, 0.1954E+01, 0.1971E+01, 0.1989E+01,& - 0.2006E+01, 0.2023E+01, 0.2041E+01, 0.2059E+01,& - 0.2077E+01, 0.2095E+01, 0.2114E+01, 0.2132E+01,& - 0.2151E+01, 0.2170E+01, 0.2189E+01, 0.2208E+01,& - 0.2228E+01, 0.2248E+01, 0.2267E+01, 0.2288E+01,& - 0.2308E+01, 0.2328E+01, 0.2349E+01, 0.2370E+01,& - 0.2391E+01, 0.2413E+01, 0.2435E+01, 0.2456E+01,& - 0.2478E+01, 0.2501E+01, 0.2523E+01, 0.2546E+01,& - 0.2570E+01, 0.2593E+01, 0.2617E+01, 0.2640E+01,& - 0.2665E+01, 0.2689E+01, 0.2714E+01, 0.2738E+01,& - 0.2764E+01, 0.2789E+01, 0.2815E+01, 0.2841E+01,& - 0.2868E+01, 0.2894E+01, 0.2922E+01, 0.2949E+01,& - 0.2977E+01, 0.3005E+01, 0.3033E+01, 0.3062E+01,& - 0.3091E+01, 0.3120E+01, 0.3150E+01, 0.3181E+01,& - 0.3211E+01, 0.3242E+01, 0.3273E+01, 0.3305E+01,& - 0.3337E+01, 0.3370E+01, 0.3403E+01, 0.3436E+01,& - 0.3470E+01, 0.3505E+01, 0.3539E+01, 0.3575E+01,& - 0.3611E+01, 0.3647E+01, 0.3684E+01, 0.3721E+01,& - 0.3759E+01, 0.3797E+01, 0.3836E+01, 0.3876E+01,& - 0.3916E+01, 0.3957E+01, 0.3998E+01, 0.4040E+01,& - 0.4083E+01, 0.4126E+01, 0.4170E+01, 0.4214E+01,& - 0.4260E+01, 0.4306E+01, 0.4353E+01, 0.4401E+01,& - 0.4449E+01, 0.4498E+01, 0.4548E+01, 0.4599E+01,& - 0.4651E+01, 0.4704E+01, 0.4758E+01, 0.4813E+01,& - 0.4869E+01, 0.4925E+01, 0.4983E+01, 0.5042E+01,& - 0.5103E+01, 0.5164E+01, 0.5227E+01, 0.5291E+01,& - 0.5356E+01, 0.5423E+01, 0.5491E+01, 0.5560E+01,& - 0.5631E+01, 0.5704E+01, 0.5778E+01, 0.5855E+01,& - 0.5933E+01, 0.6011E+01, 0.6095E+01, 0.6179E+01,& - 0.6266E+01, 0.6354E+01, 0.6446E+01, 0.6539E+01,& - 0.6635E+01, 0.6735E+01, 0.6837E+01, 0.6942E+01,& - 0.7051E+01, 0.7163E+01, 0.7279E+01, 0.7399E+01,& - 0.7516E+01, 0.7653E+01, 0.7787E+01, 0.7927E+01,& - 0.8072E+01, 0.8224E+01, 0.8382E+01, 0.8548E+01,& - 0.8722E+01, 0.8905E+01, 0.9098E+01, 0.9302E+01,& - 0.9519E+01, 0.9750E+01, 0.9996E+01, 0.1026E+02,& - 0.1055E+02, 0.1086E+02, 0.1120E+02, 0.1158E+02,& - 0.1200E+02, 0.1249E+02, 0.1305E+02, 0.1372E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 92) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2633E-03, 0.2633E-03, 0.2633E-03,& - 0.2633E-03, 0.2633E-03, 0.2633E-03, 0.2633E-03,& - 0.2633E-03, 0.2633E-03, 0.2633E-03, 0.2633E-03,& - 0.2633E-03, 0.2633E-03, 0.2633E-03, 0.2633E-03,& - 0.2633E-03, 0.2633E-03, 0.2633E-03, 0.2633E-03,& - 0.2633E-03, 0.2633E-03, 0.2633E-03, 0.2633E-03,& - 0.2633E-03, 0.5166E-03, 0.5166E-03, 0.5166E-03,& - 0.5166E-03, 0.5166E-03, 0.5166E-03, 0.5166E-03,& - 0.5166E-03, 0.5166E-03, 0.5166E-03, 0.5166E-03,& - 0.5166E-03, 0.5166E-03, 0.5166E-03, 0.5166E-03,& - 0.7700E-03, 0.7700E-03, 0.7700E-03, 0.7700E-03,& - 0.7700E-03, 0.7700E-03, 0.7700E-03, 0.7700E-03,& - 0.7700E-03, 0.7700E-03, 0.7700E-03, 0.1023E-02,& - 0.1023E-02, 0.1023E-02, 0.1023E-02, 0.1023E-02,& - 0.1023E-02, 0.1023E-02, 0.1023E-02, 0.1023E-02,& - 0.1277E-02, 0.1277E-02, 0.1277E-02, 0.1277E-02,& - 0.1277E-02, 0.1277E-02, 0.1277E-02, 0.1277E-02,& - 0.1530E-02, 0.1530E-02, 0.1530E-02, 0.1530E-02,& - 0.1530E-02, 0.1530E-02, 0.1530E-02, 0.1783E-02,& - 0.1783E-02, 0.1783E-02, 0.1783E-02, 0.1783E-02,& - 0.1783E-02, 0.2037E-02, 0.2037E-02, 0.2037E-02,& - 0.2037E-02, 0.2037E-02, 0.2037E-02, 0.2290E-02,& - 0.2290E-02, 0.2290E-02, 0.2290E-02, 0.2290E-02,& - 0.2543E-02, 0.2543E-02, 0.2543E-02, 0.2543E-02,& - 0.2797E-02, 0.2797E-02, 0.2797E-02, 0.2797E-02,& - 0.2797E-02, 0.3050E-02, 0.3050E-02, 0.3050E-02,& - 0.3050E-02, 0.3303E-02, 0.3303E-02, 0.3303E-02,& - 0.3556E-02, 0.3556E-02, 0.3556E-02, 0.3556E-02,& - 0.3810E-02, 0.3810E-02, 0.3810E-02, 0.4063E-02,& - 0.4063E-02, 0.4063E-02, 0.4063E-02, 0.4316E-02,& - 0.4316E-02, 0.4316E-02, 0.4570E-02, 0.4570E-02,& - 0.4823E-02, 0.4823E-02, 0.4823E-02, 0.5076E-02,& - 0.5076E-02, 0.5076E-02, 0.5330E-02, 0.5330E-02,& - 0.5583E-02, 0.5583E-02, 0.5583E-02, 0.5836E-02,& - 0.5836E-02, 0.6090E-02, 0.6090E-02, 0.6343E-02,& - 0.6343E-02, 0.6343E-02, 0.6596E-02, 0.6596E-02,& - 0.6850E-02, 0.6850E-02, 0.7103E-02, 0.7103E-02,& - 0.7356E-02, 0.7356E-02, 0.7610E-02, 0.7610E-02,& - 0.7863E-02, 0.7863E-02, 0.8116E-02, 0.8370E-02,& - 0.8370E-02, 0.8623E-02, 0.8623E-02, 0.8876E-02,& - 0.8876E-02, 0.9130E-02, 0.9383E-02, 0.9383E-02,& - 0.9636E-02, 0.9889E-02, 0.9889E-02, 0.1014E-01,& - 0.1040E-01, 0.1040E-01, 0.1065E-01, 0.1090E-01,& - 0.1090E-01, 0.1116E-01, 0.1141E-01, 0.1141E-01,& - 0.1166E-01, 0.1192E-01, 0.1217E-01, 0.1217E-01,& - 0.1242E-01, 0.1268E-01, 0.1293E-01, 0.1318E-01,& - 0.1318E-01, 0.1344E-01, 0.1369E-01, 0.1394E-01,& - 0.1420E-01, 0.1445E-01, 0.1470E-01, 0.1496E-01,& - 0.1496E-01, 0.1521E-01, 0.1546E-01, 0.1572E-01,& - 0.1597E-01, 0.1622E-01, 0.1648E-01, 0.1673E-01,& - 0.1698E-01, 0.1724E-01, 0.1749E-01, 0.1774E-01,& - 0.1800E-01, 0.1825E-01, 0.1876E-01, 0.1901E-01,& - 0.1926E-01, 0.1952E-01, 0.1977E-01, 0.2002E-01,& - 0.2028E-01, 0.2078E-01, 0.2104E-01, 0.2129E-01,& - 0.2154E-01, 0.2180E-01, 0.2230E-01, 0.2256E-01,& - 0.2281E-01, 0.2332E-01, 0.2357E-01, 0.2382E-01,& - 0.2433E-01, 0.2458E-01, 0.2484E-01, 0.2534E-01,& - 0.2560E-01, 0.2610E-01, 0.2636E-01, 0.2686E-01,& - 0.2712E-01, 0.2762E-01, 0.2788E-01, 0.2838E-01,& - 0.2864E-01, 0.2914E-01, 0.2940E-01, 0.2990E-01,& - 0.3041E-01, 0.3066E-01, 0.3117E-01, 0.3167E-01,& - 0.3193E-01, 0.3243E-01, 0.3294E-01, 0.3345E-01,& - 0.3370E-01, 0.3421E-01, 0.3471E-01, 0.3522E-01,& - 0.3573E-01, 0.3623E-01, 0.3649E-01, 0.3699E-01,& - 0.3750E-01, 0.3801E-01, 0.3851E-01, 0.3902E-01,& - 0.3953E-01, 0.4003E-01, 0.4079E-01, 0.4130E-01,& - 0.4181E-01, 0.4231E-01, 0.4282E-01, 0.4333E-01,& - 0.4409E-01, 0.4459E-01, 0.4510E-01, 0.4561E-01,& - 0.4637E-01, 0.4687E-01, 0.4738E-01, 0.4814E-01,& - 0.4865E-01, 0.4941E-01, 0.4991E-01, 0.5067E-01,& - 0.5118E-01, 0.5194E-01, 0.5245E-01, 0.5321E-01,& - 0.5371E-01, 0.5447E-01, 0.5523E-01, 0.5599E-01,& - 0.5650E-01, 0.5726E-01, 0.5802E-01, 0.5878E-01,& - 0.5954E-01, 0.6005E-01, 0.6081E-01, 0.6157E-01,& - 0.6233E-01, 0.6309E-01, 0.6385E-01, 0.6461E-01,& - 0.6562E-01, 0.6638E-01, 0.6714E-01, 0.6790E-01,& - 0.6866E-01, 0.6967E-01, 0.7043E-01, 0.7119E-01,& - 0.7195E-01, 0.7297E-01, 0.7373E-01, 0.7474E-01,& - 0.7550E-01, 0.7651E-01, 0.7727E-01, 0.7829E-01,& - 0.7930E-01, 0.8006E-01, 0.8107E-01, 0.8209E-01,& - 0.8310E-01, 0.8386E-01, 0.8487E-01, 0.8589E-01,& - 0.8690E-01, 0.8791E-01, 0.8893E-01, 0.8994E-01,& - 0.9095E-01, 0.9197E-01, 0.9298E-01, 0.9424E-01,& - 0.9526E-01, 0.9627E-01, 0.9754E-01, 0.9855E-01,& - 0.9956E-01, 0.1008E+00, 0.1018E+00, 0.1031E+00,& - 0.1041E+00, 0.1054E+00, 0.1067E+00, 0.1077E+00,& - 0.1089E+00, 0.1102E+00, 0.1115E+00, 0.1127E+00,& - 0.1140E+00, 0.1153E+00, 0.1165E+00, 0.1178E+00,& - 0.1191E+00, 0.1203E+00, 0.1216E+00, 0.1231E+00,& - 0.1244E+00, 0.1257E+00, 0.1272E+00, 0.1284E+00,& - 0.1300E+00, 0.1312E+00, 0.1327E+00, 0.1343E+00,& - 0.1355E+00, 0.1371E+00, 0.1386E+00, 0.1401E+00,& - 0.1416E+00, 0.1431E+00, 0.1447E+00, 0.1462E+00,& - 0.1477E+00, 0.1492E+00, 0.1510E+00, 0.1525E+00,& - 0.1540E+00, 0.1558E+00, 0.1573E+00, 0.1591E+00,& - 0.1606E+00, 0.1624E+00, 0.1642E+00, 0.1659E+00,& - 0.1675E+00, 0.1692E+00, 0.1710E+00, 0.1728E+00,& - 0.1745E+00, 0.1766E+00, 0.1783E+00, 0.1801E+00,& - 0.1819E+00, 0.1839E+00, 0.1857E+00, 0.1877E+00,& - 0.1897E+00, 0.1915E+00, 0.1935E+00, 0.1956E+00,& - 0.1976E+00, 0.1996E+00, 0.2017E+00, 0.2037E+00,& - 0.2057E+00, 0.2077E+00, 0.2100E+00, 0.2120E+00,& - 0.2141E+00, 0.2163E+00, 0.2184E+00, 0.2207E+00,& - 0.2229E+00, 0.2252E+00, 0.2275E+00, 0.2298E+00,& - 0.2321E+00, 0.2343E+00, 0.2366E+00, 0.2389E+00,& - 0.2414E+00, 0.2437E+00, 0.2462E+00, 0.2485E+00,& - 0.2510E+00, 0.2536E+00, 0.2561E+00, 0.2586E+00,& - 0.2612E+00, 0.2637E+00, 0.2662E+00, 0.2688E+00,& - 0.2716E+00, 0.2741E+00, 0.2769E+00, 0.2794E+00,& - 0.2822E+00, 0.2850E+00, 0.2878E+00, 0.2906E+00,& - 0.2934E+00, 0.2961E+00, 0.2989E+00, 0.3020E+00,& - 0.3048E+00, 0.3078E+00, 0.3106E+00, 0.3136E+00,& - 0.3167E+00, 0.3197E+00, 0.3227E+00, 0.3258E+00,& - 0.3291E+00, 0.3321E+00, 0.3352E+00, 0.3384E+00,& - 0.3417E+00, 0.3448E+00, 0.3481E+00, 0.3514E+00,& - 0.3547E+00, 0.3582E+00, 0.3615E+00, 0.3648E+00,& - 0.3683E+00, 0.3719E+00, 0.3752E+00, 0.3787E+00,& - 0.3823E+00, 0.3858E+00, 0.3896E+00, 0.3932E+00,& - 0.3967E+00, 0.4005E+00, 0.4043E+00, 0.4079E+00,& - 0.4117E+00, 0.4155E+00, 0.4195E+00, 0.4233E+00,& - 0.4271E+00, 0.4312E+00, 0.4352E+00, 0.4393E+00,& - 0.4431E+00, 0.4474E+00, 0.4514E+00, 0.4555E+00,& - 0.4598E+00, 0.4638E+00, 0.4681E+00, 0.4725E+00,& - 0.4768E+00, 0.4811E+00, 0.4854E+00, 0.4899E+00,& - 0.4942E+00, 0.4988E+00, 0.5034E+00, 0.5079E+00,& - 0.5125E+00, 0.5173E+00, 0.5218E+00, 0.5267E+00,& - 0.5312E+00, 0.5360E+00, 0.5408E+00, 0.5459E+00,& - 0.5507E+00, 0.5558E+00, 0.5606E+00, 0.5657E+00,& - 0.5707E+00, 0.5758E+00, 0.5811E+00, 0.5862E+00,& - 0.5915E+00, 0.5968E+00, 0.6022E+00, 0.6075E+00,& - 0.6128E+00, 0.6184E+00, 0.6239E+00, 0.6295E+00,& - 0.6351E+00, 0.6407E+00, 0.6462E+00, 0.6521E+00,& - 0.6579E+00, 0.6637E+00, 0.6695E+00, 0.6754E+00,& - 0.6814E+00, 0.6870E+00, 0.6933E+00, 0.6997E+00,& - 0.7058E+00, 0.7118E+00, 0.7182E+00, 0.7245E+00,& - 0.7308E+00, 0.7374E+00, 0.7438E+00, 0.7503E+00,& - 0.7569E+00, 0.7635E+00, 0.7701E+00, 0.7769E+00,& - 0.7838E+00, 0.7906E+00, 0.7975E+00, 0.8046E+00,& - 0.8114E+00, 0.8185E+00, 0.8258E+00, 0.8329E+00,& - 0.8403E+00, 0.8474E+00, 0.8550E+00, 0.8623E+00,& - 0.8699E+00, 0.8773E+00, 0.8849E+00, 0.8927E+00,& - 0.9003E+00, 0.9082E+00, 0.9160E+00, 0.9241E+00,& - 0.9320E+00, 0.9401E+00, 0.9482E+00, 0.9565E+00,& - 0.9647E+00, 0.9730E+00, 0.9816E+00, 0.9900E+00,& - 0.9986E+00, 0.1007E+01, 0.1016E+01, 0.1025E+01,& - 0.1034E+01, 0.1042E+01, 0.1052E+01, 0.1061E+01,& - 0.1070E+01, 0.1079E+01, 0.1088E+01, 0.1098E+01,& - 0.1107E+01, 0.1117E+01, 0.1126E+01, 0.1136E+01,& - 0.1146E+01, 0.1156E+01, 0.1166E+01, 0.1176E+01,& - 0.1186E+01, 0.1196E+01, 0.1206E+01, 0.1217E+01,& - 0.1227E+01, 0.1238E+01, 0.1248E+01, 0.1259E+01,& - 0.1270E+01, 0.1281E+01, 0.1292E+01, 0.1303E+01,& - 0.1314E+01, 0.1326E+01, 0.1337E+01, 0.1349E+01,& - 0.1360E+01, 0.1372E+01, 0.1384E+01, 0.1396E+01,& - 0.1408E+01, 0.1420E+01, 0.1432E+01, 0.1445E+01,& - 0.1457E+01, 0.1470E+01, 0.1482E+01, 0.1495E+01,& - 0.1508E+01, 0.1521E+01, 0.1535E+01, 0.1548E+01,& - 0.1561E+01, 0.1575E+01, 0.1589E+01, 0.1602E+01,& - 0.1616E+01, 0.1630E+01, 0.1644E+01, 0.1659E+01,& - 0.1673E+01, 0.1688E+01, 0.1702E+01, 0.1717E+01,& - 0.1732E+01, 0.1747E+01, 0.1763E+01, 0.1778E+01,& - 0.1794E+01, 0.1809E+01, 0.1825E+01, 0.1841E+01,& - 0.1857E+01, 0.1874E+01, 0.1890E+01, 0.1907E+01,& - 0.1923E+01, 0.1940E+01, 0.1958E+01, 0.1975E+01,& - 0.1992E+01, 0.2010E+01, 0.2028E+01, 0.2046E+01,& - 0.2064E+01, 0.2082E+01, 0.2101E+01, 0.2120E+01,& - 0.2139E+01, 0.2158E+01, 0.2177E+01, 0.2196E+01,& - 0.2216E+01, 0.2236E+01, 0.2256E+01, 0.2276E+01,& - 0.2297E+01, 0.2318E+01, 0.2338E+01, 0.2360E+01,& - 0.2381E+01, 0.2403E+01, 0.2425E+01, 0.2447E+01,& - 0.2469E+01, 0.2492E+01, 0.2514E+01, 0.2538E+01,& - 0.2561E+01, 0.2584E+01, 0.2608E+01, 0.2633E+01,& - 0.2657E+01, 0.2681E+01, 0.2706E+01, 0.2732E+01,& - 0.2757E+01, 0.2783E+01, 0.2809E+01, 0.2836E+01,& - 0.2862E+01, 0.2889E+01, 0.2917E+01, 0.2945E+01,& - 0.2972E+01, 0.3001E+01, 0.3030E+01, 0.3059E+01,& - 0.3088E+01, 0.3118E+01, 0.3148E+01, 0.3179E+01,& - 0.3210E+01, 0.3241E+01, 0.3273E+01, 0.3305E+01,& - 0.3337E+01, 0.3371E+01, 0.3404E+01, 0.3438E+01,& - 0.3472E+01, 0.3507E+01, 0.3542E+01, 0.3578E+01,& - 0.3614E+01, 0.3651E+01, 0.3689E+01, 0.3726E+01,& - 0.3765E+01, 0.3804E+01, 0.3843E+01, 0.3883E+01,& - 0.3924E+01, 0.3965E+01, 0.4007E+01, 0.4050E+01,& - 0.4093E+01, 0.4137E+01, 0.4182E+01, 0.4227E+01,& - 0.4273E+01, 0.4320E+01, 0.4367E+01, 0.4416E+01,& - 0.4465E+01, 0.4515E+01, 0.4566E+01, 0.4618E+01,& - 0.4670E+01, 0.4724E+01, 0.4779E+01, 0.4834E+01,& - 0.4891E+01, 0.4949E+01, 0.5008E+01, 0.5067E+01,& - 0.5129E+01, 0.5191E+01, 0.5255E+01, 0.5320E+01,& - 0.5386E+01, 0.5454E+01, 0.5523E+01, 0.5594E+01,& - 0.5667E+01, 0.5740E+01, 0.5816E+01, 0.5894E+01,& - 0.5973E+01, 0.6055E+01, 0.6138E+01, 0.6224E+01,& - 0.6312E+01, 0.6402E+01, 0.6495E+01, 0.6590E+01,& - 0.6688E+01, 0.6789E+01, 0.6893E+01, 0.7000E+01,& - 0.7111E+01, 0.7225E+01, 0.7343E+01, 0.7466E+01,& - 0.7593E+01, 0.7724E+01, 0.7861E+01, 0.8003E+01,& - 0.8151E+01, 0.8306E+01, 0.8467E+01, 0.8636E+01,& - 0.8814E+01, 0.9000E+01, 0.9197E+01, 0.9406E+01,& - 0.9626E+01, 0.9862E+01, 0.1011E+02, 0.1038E+02,& - 0.1068E+02, 0.1099E+02, 0.1134E+02, 0.1173E+02,& - 0.1216E+02, 0.1266E+02, 0.1323E+02, 0.1392E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 93) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.2679E-03, 0.2679E-03, 0.2679E-03, 0.2679E-03,& - 0.2679E-03, 0.2679E-03, 0.2679E-03, 0.2679E-03,& - 0.2679E-03, 0.2679E-03, 0.2679E-03, 0.2679E-03,& - 0.2679E-03, 0.2679E-03, 0.2679E-03, 0.2679E-03,& - 0.2679E-03, 0.2679E-03, 0.2679E-03, 0.2679E-03,& - 0.2679E-03, 0.2679E-03, 0.2679E-03, 0.5257E-03,& - 0.5257E-03, 0.5257E-03, 0.5257E-03, 0.5257E-03,& - 0.5257E-03, 0.5257E-03, 0.5257E-03, 0.5257E-03,& - 0.5257E-03, 0.5257E-03, 0.5257E-03, 0.5257E-03,& - 0.5257E-03, 0.5257E-03, 0.5257E-03, 0.7836E-03,& - 0.7836E-03, 0.7836E-03, 0.7836E-03, 0.7836E-03,& - 0.7836E-03, 0.7836E-03, 0.7836E-03, 0.7836E-03,& - 0.7836E-03, 0.7836E-03, 0.1041E-02, 0.1041E-02,& - 0.1041E-02, 0.1041E-02, 0.1041E-02, 0.1041E-02,& - 0.1041E-02, 0.1041E-02, 0.1041E-02, 0.1041E-02,& - 0.1299E-02, 0.1299E-02, 0.1299E-02, 0.1299E-02,& - 0.1299E-02, 0.1299E-02, 0.1299E-02, 0.1557E-02,& - 0.1557E-02, 0.1557E-02, 0.1557E-02, 0.1557E-02,& - 0.1557E-02, 0.1557E-02, 0.1815E-02, 0.1815E-02,& - 0.1815E-02, 0.1815E-02, 0.1815E-02, 0.1815E-02,& - 0.1815E-02, 0.2073E-02, 0.2073E-02, 0.2073E-02,& - 0.2073E-02, 0.2073E-02, 0.2331E-02, 0.2331E-02,& - 0.2331E-02, 0.2331E-02, 0.2331E-02, 0.2589E-02,& - 0.2589E-02, 0.2589E-02, 0.2589E-02, 0.2589E-02,& - 0.2847E-02, 0.2847E-02, 0.2847E-02, 0.2847E-02,& - 0.3104E-02, 0.3104E-02, 0.3104E-02, 0.3104E-02,& - 0.3362E-02, 0.3362E-02, 0.3362E-02, 0.3362E-02,& - 0.3620E-02, 0.3620E-02, 0.3620E-02, 0.3878E-02,& - 0.3878E-02, 0.3878E-02, 0.3878E-02, 0.4136E-02,& - 0.4136E-02, 0.4136E-02, 0.4394E-02, 0.4394E-02,& - 0.4394E-02, 0.4652E-02, 0.4652E-02, 0.4652E-02,& - 0.4910E-02, 0.4910E-02, 0.4910E-02, 0.5167E-02,& - 0.5167E-02, 0.5425E-02, 0.5425E-02, 0.5425E-02,& - 0.5683E-02, 0.5683E-02, 0.5941E-02, 0.5941E-02,& - 0.5941E-02, 0.6199E-02, 0.6199E-02, 0.6457E-02,& - 0.6457E-02, 0.6715E-02, 0.6715E-02, 0.6973E-02,& - 0.6973E-02, 0.7230E-02, 0.7230E-02, 0.7488E-02,& - 0.7488E-02, 0.7746E-02, 0.7746E-02, 0.8004E-02,& - 0.8004E-02, 0.8262E-02, 0.8262E-02, 0.8520E-02,& - 0.8520E-02, 0.8778E-02, 0.9036E-02, 0.9036E-02,& - 0.9293E-02, 0.9293E-02, 0.9551E-02, 0.9809E-02,& - 0.9809E-02, 0.1007E-01, 0.1032E-01, 0.1032E-01,& - 0.1058E-01, 0.1084E-01, 0.1084E-01, 0.1110E-01,& - 0.1136E-01, 0.1136E-01, 0.1161E-01, 0.1187E-01,& - 0.1213E-01, 0.1213E-01, 0.1239E-01, 0.1265E-01,& - 0.1290E-01, 0.1290E-01, 0.1316E-01, 0.1342E-01,& - 0.1368E-01, 0.1394E-01, 0.1419E-01, 0.1445E-01,& - 0.1445E-01, 0.1471E-01, 0.1497E-01, 0.1522E-01,& - 0.1548E-01, 0.1574E-01, 0.1600E-01, 0.1626E-01,& - 0.1651E-01, 0.1677E-01, 0.1703E-01, 0.1729E-01,& - 0.1755E-01, 0.1780E-01, 0.1806E-01, 0.1832E-01,& - 0.1858E-01, 0.1883E-01, 0.1909E-01, 0.1935E-01,& - 0.1961E-01, 0.2012E-01, 0.2038E-01, 0.2064E-01,& - 0.2090E-01, 0.2116E-01, 0.2167E-01, 0.2193E-01,& - 0.2219E-01, 0.2244E-01, 0.2296E-01, 0.2322E-01,& - 0.2348E-01, 0.2373E-01, 0.2425E-01, 0.2451E-01,& - 0.2502E-01, 0.2528E-01, 0.2554E-01, 0.2606E-01,& - 0.2631E-01, 0.2683E-01, 0.2709E-01, 0.2760E-01,& - 0.2786E-01, 0.2838E-01, 0.2863E-01, 0.2915E-01,& - 0.2941E-01, 0.2992E-01, 0.3018E-01, 0.3070E-01,& - 0.3121E-01, 0.3147E-01, 0.3199E-01, 0.3250E-01,& - 0.3302E-01, 0.3328E-01, 0.3379E-01, 0.3431E-01,& - 0.3482E-01, 0.3508E-01, 0.3560E-01, 0.3611E-01,& - 0.3663E-01, 0.3714E-01, 0.3766E-01, 0.3818E-01,& - 0.3869E-01, 0.3921E-01, 0.3972E-01, 0.4024E-01,& - 0.4075E-01, 0.4127E-01, 0.4179E-01, 0.4230E-01,& - 0.4282E-01, 0.4359E-01, 0.4411E-01, 0.4462E-01,& - 0.4514E-01, 0.4591E-01, 0.4643E-01, 0.4694E-01,& - 0.4772E-01, 0.4823E-01, 0.4875E-01, 0.4952E-01,& - 0.5004E-01, 0.5081E-01, 0.5133E-01, 0.5210E-01,& - 0.5262E-01, 0.5339E-01, 0.5416E-01, 0.5468E-01,& - 0.5545E-01, 0.5623E-01, 0.5674E-01, 0.5752E-01,& - 0.5829E-01, 0.5906E-01, 0.5958E-01, 0.6035E-01,& - 0.6113E-01, 0.6190E-01, 0.6267E-01, 0.6345E-01,& - 0.6422E-01, 0.6499E-01, 0.6577E-01, 0.6654E-01,& - 0.6757E-01, 0.6835E-01, 0.6912E-01, 0.6989E-01,& - 0.7067E-01, 0.7170E-01, 0.7247E-01, 0.7350E-01,& - 0.7428E-01, 0.7505E-01, 0.7608E-01, 0.7686E-01,& - 0.7789E-01, 0.7892E-01, 0.7969E-01, 0.8072E-01,& - 0.8176E-01, 0.8253E-01, 0.8356E-01, 0.8459E-01,& - 0.8562E-01, 0.8666E-01, 0.8769E-01, 0.8872E-01,& - 0.8975E-01, 0.9078E-01, 0.9181E-01, 0.9284E-01,& - 0.9388E-01, 0.9491E-01, 0.9594E-01, 0.9723E-01,& - 0.9826E-01, 0.9929E-01, 0.1006E+00, 0.1016E+00,& - 0.1029E+00, 0.1039E+00, 0.1052E+00, 0.1065E+00,& - 0.1075E+00, 0.1088E+00, 0.1101E+00, 0.1112E+00,& - 0.1124E+00, 0.1137E+00, 0.1150E+00, 0.1163E+00,& - 0.1176E+00, 0.1189E+00, 0.1202E+00, 0.1217E+00,& - 0.1230E+00, 0.1243E+00, 0.1256E+00, 0.1271E+00,& - 0.1284E+00, 0.1300E+00, 0.1313E+00, 0.1328E+00,& - 0.1344E+00, 0.1357E+00, 0.1372E+00, 0.1387E+00,& - 0.1403E+00, 0.1418E+00, 0.1434E+00, 0.1449E+00,& - 0.1465E+00, 0.1480E+00, 0.1496E+00, 0.1511E+00,& - 0.1527E+00, 0.1545E+00, 0.1560E+00, 0.1578E+00,& - 0.1594E+00, 0.1612E+00, 0.1627E+00, 0.1645E+00,& - 0.1663E+00, 0.1681E+00, 0.1699E+00, 0.1718E+00,& - 0.1736E+00, 0.1754E+00, 0.1772E+00, 0.1790E+00,& - 0.1808E+00, 0.1828E+00, 0.1846E+00, 0.1867E+00,& - 0.1885E+00, 0.1906E+00, 0.1924E+00, 0.1944E+00,& - 0.1965E+00, 0.1986E+00, 0.2006E+00, 0.2027E+00,& - 0.2048E+00, 0.2068E+00, 0.2089E+00, 0.2112E+00,& - 0.2133E+00, 0.2153E+00, 0.2177E+00, 0.2200E+00,& - 0.2220E+00, 0.2244E+00, 0.2267E+00, 0.2290E+00,& - 0.2313E+00, 0.2336E+00, 0.2360E+00, 0.2383E+00,& - 0.2406E+00, 0.2432E+00, 0.2455E+00, 0.2481E+00,& - 0.2504E+00, 0.2530E+00, 0.2556E+00, 0.2581E+00,& - 0.2607E+00, 0.2633E+00, 0.2659E+00, 0.2685E+00,& - 0.2713E+00, 0.2739E+00, 0.2767E+00, 0.2793E+00,& - 0.2821E+00, 0.2850E+00, 0.2875E+00, 0.2904E+00,& - 0.2932E+00, 0.2963E+00, 0.2991E+00, 0.3020E+00,& - 0.3051E+00, 0.3079E+00, 0.3110E+00, 0.3138E+00,& - 0.3169E+00, 0.3200E+00, 0.3231E+00, 0.3262E+00,& - 0.3296E+00, 0.3327E+00, 0.3358E+00, 0.3391E+00,& - 0.3425E+00, 0.3456E+00, 0.3489E+00, 0.3523E+00,& - 0.3556E+00, 0.3590E+00, 0.3626E+00, 0.3659E+00,& - 0.3695E+00, 0.3729E+00, 0.3765E+00, 0.3801E+00,& - 0.3837E+00, 0.3873E+00, 0.3909E+00, 0.3948E+00,& - 0.3984E+00, 0.4023E+00, 0.4059E+00, 0.4098E+00,& - 0.4136E+00, 0.4175E+00, 0.4214E+00, 0.4255E+00,& - 0.4294E+00, 0.4335E+00, 0.4374E+00, 0.4415E+00,& - 0.4456E+00, 0.4497E+00, 0.4541E+00, 0.4583E+00,& - 0.4626E+00, 0.4668E+00, 0.4711E+00, 0.4755E+00,& - 0.4799E+00, 0.4843E+00, 0.4889E+00, 0.4933E+00,& - 0.4980E+00, 0.5023E+00, 0.5070E+00, 0.5119E+00,& - 0.5165E+00, 0.5212E+00, 0.5261E+00, 0.5307E+00,& - 0.5356E+00, 0.5405E+00, 0.5454E+00, 0.5506E+00,& - 0.5555E+00, 0.5606E+00, 0.5658E+00, 0.5709E+00,& - 0.5761E+00, 0.5813E+00, 0.5867E+00, 0.5918E+00,& - 0.5972E+00, 0.6027E+00, 0.6081E+00, 0.6135E+00,& - 0.6192E+00, 0.6248E+00, 0.6303E+00, 0.6362E+00,& - 0.6419E+00, 0.6475E+00, 0.6535E+00, 0.6594E+00,& - 0.6653E+00, 0.6713E+00, 0.6772E+00, 0.6834E+00,& - 0.6893E+00, 0.6955E+00, 0.7017E+00, 0.7081E+00,& - 0.7143E+00, 0.7208E+00, 0.7272E+00, 0.7337E+00,& - 0.7404E+00, 0.7468E+00, 0.7535E+00, 0.7602E+00,& - 0.7669E+00, 0.7739E+00, 0.7806E+00, 0.7876E+00,& - 0.7945E+00, 0.8017E+00, 0.8087E+00, 0.8159E+00,& - 0.8231E+00, 0.8304E+00, 0.8378E+00, 0.8451E+00,& - 0.8525E+00, 0.8603E+00, 0.8678E+00, 0.8755E+00,& - 0.8832E+00, 0.8910E+00, 0.8987E+00, 0.9067E+00,& - 0.9147E+00, 0.9227E+00, 0.9309E+00, 0.9392E+00,& - 0.9474E+00, 0.9557E+00, 0.9642E+00, 0.9727E+00,& - 0.9812E+00, 0.9897E+00, 0.9985E+00, 0.1007E+01,& - 0.1016E+01, 0.1025E+01, 0.1034E+01, 0.1043E+01,& - 0.1052E+01, 0.1061E+01, 0.1071E+01, 0.1080E+01,& - 0.1090E+01, 0.1099E+01, 0.1109E+01, 0.1118E+01,& - 0.1128E+01, 0.1138E+01, 0.1148E+01, 0.1158E+01,& - 0.1168E+01, 0.1178E+01, 0.1189E+01, 0.1199E+01,& - 0.1210E+01, 0.1220E+01, 0.1231E+01, 0.1242E+01,& - 0.1253E+01, 0.1264E+01, 0.1275E+01, 0.1286E+01,& - 0.1297E+01, 0.1308E+01, 0.1320E+01, 0.1331E+01,& - 0.1343E+01, 0.1355E+01, 0.1367E+01, 0.1379E+01,& - 0.1391E+01, 0.1403E+01, 0.1415E+01, 0.1428E+01,& - 0.1440E+01, 0.1453E+01, 0.1466E+01, 0.1479E+01,& - 0.1492E+01, 0.1505E+01, 0.1518E+01, 0.1531E+01,& - 0.1545E+01, 0.1558E+01, 0.1572E+01, 0.1586E+01,& - 0.1600E+01, 0.1614E+01, 0.1628E+01, 0.1643E+01,& - 0.1657E+01, 0.1672E+01, 0.1687E+01, 0.1701E+01,& - 0.1716E+01, 0.1732E+01, 0.1747E+01, 0.1763E+01,& - 0.1778E+01, 0.1794E+01, 0.1810E+01, 0.1826E+01,& - 0.1842E+01, 0.1859E+01, 0.1875E+01, 0.1892E+01,& - 0.1909E+01, 0.1926E+01, 0.1943E+01, 0.1961E+01,& - 0.1978E+01, 0.1996E+01, 0.2014E+01, 0.2032E+01,& - 0.2050E+01, 0.2069E+01, 0.2087E+01, 0.2107E+01,& - 0.2125E+01, 0.2145E+01, 0.2164E+01, 0.2184E+01,& - 0.2204E+01, 0.2224E+01, 0.2244E+01, 0.2265E+01,& - 0.2285E+01, 0.2306E+01, 0.2327E+01, 0.2349E+01,& - 0.2370E+01, 0.2392E+01, 0.2414E+01, 0.2436E+01,& - 0.2459E+01, 0.2482E+01, 0.2505E+01, 0.2528E+01,& - 0.2552E+01, 0.2576E+01, 0.2600E+01, 0.2624E+01,& - 0.2649E+01, 0.2674E+01, 0.2699E+01, 0.2724E+01,& - 0.2750E+01, 0.2776E+01, 0.2803E+01, 0.2829E+01,& - 0.2856E+01, 0.2884E+01, 0.2911E+01, 0.2940E+01,& - 0.2968E+01, 0.2996E+01, 0.3026E+01, 0.3055E+01,& - 0.3085E+01, 0.3115E+01, 0.3146E+01, 0.3176E+01,& - 0.3208E+01, 0.3239E+01, 0.3272E+01, 0.3304E+01,& - 0.3337E+01, 0.3371E+01, 0.3404E+01, 0.3439E+01,& - 0.3474E+01, 0.3509E+01, 0.3544E+01, 0.3581E+01,& - 0.3618E+01, 0.3655E+01, 0.3693E+01, 0.3731E+01,& - 0.3770E+01, 0.3809E+01, 0.3850E+01, 0.3890E+01,& - 0.3931E+01, 0.3973E+01, 0.4016E+01, 0.4059E+01,& - 0.4103E+01, 0.4147E+01, 0.4193E+01, 0.4238E+01,& - 0.4285E+01, 0.4333E+01, 0.4381E+01, 0.4430E+01,& - 0.4480E+01, 0.4531E+01, 0.4582E+01, 0.4635E+01,& - 0.4689E+01, 0.4743E+01, 0.4799E+01, 0.4855E+01,& - 0.4912E+01, 0.4971E+01, 0.5031E+01, 0.5092E+01,& - 0.5154E+01, 0.5218E+01, 0.5282E+01, 0.5348E+01,& - 0.5416E+01, 0.5485E+01, 0.5555E+01, 0.5627E+01,& - 0.5701E+01, 0.5776E+01, 0.5853E+01, 0.5932E+01,& - 0.6013E+01, 0.6095E+01, 0.6180E+01, 0.6267E+01,& - 0.6357E+01, 0.6449E+01, 0.6543E+01, 0.6640E+01,& - 0.6740E+01, 0.6843E+01, 0.6948E+01, 0.7058E+01,& - 0.7170E+01, 0.7287E+01, 0.7407E+01, 0.7532E+01,& - 0.7661E+01, 0.7795E+01, 0.7934E+01, 0.8079E+01,& - 0.8230E+01, 0.8388E+01, 0.8552E+01, 0.8724E+01,& - 0.8905E+01, 0.9096E+01, 0.9296E+01, 0.9509E+01,& - 0.9734E+01, 0.9974E+01, 0.1023E+02, 0.1051E+02,& - 0.1080E+02, 0.1113E+02, 0.1148E+02, 0.1188E+02,& - 0.1232E+02, 0.1282E+02, 0.1341E+02, 0.1411E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 94) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.2725E-03, 0.2725E-03,& - 0.2725E-03, 0.2725E-03, 0.2725E-03, 0.2725E-03,& - 0.2725E-03, 0.2725E-03, 0.2725E-03, 0.2725E-03,& - 0.2725E-03, 0.2725E-03, 0.2725E-03, 0.2725E-03,& - 0.2725E-03, 0.2725E-03, 0.2725E-03, 0.2725E-03,& - 0.2725E-03, 0.2725E-03, 0.2725E-03, 0.2725E-03,& - 0.2725E-03, 0.2725E-03, 0.5349E-03, 0.5349E-03,& - 0.5349E-03, 0.5349E-03, 0.5349E-03, 0.5349E-03,& - 0.5349E-03, 0.5349E-03, 0.5349E-03, 0.5349E-03,& - 0.5349E-03, 0.5349E-03, 0.5349E-03, 0.5349E-03,& - 0.5349E-03, 0.7974E-03, 0.7974E-03, 0.7974E-03,& - 0.7974E-03, 0.7974E-03, 0.7974E-03, 0.7974E-03,& - 0.7974E-03, 0.7974E-03, 0.7974E-03, 0.7974E-03,& - 0.7974E-03, 0.1060E-02, 0.1060E-02, 0.1060E-02,& - 0.1060E-02, 0.1060E-02, 0.1060E-02, 0.1060E-02,& - 0.1060E-02, 0.1060E-02, 0.1060E-02, 0.1322E-02,& - 0.1322E-02, 0.1322E-02, 0.1322E-02, 0.1322E-02,& - 0.1322E-02, 0.1322E-02, 0.1322E-02, 0.1585E-02,& - 0.1585E-02, 0.1585E-02, 0.1585E-02, 0.1585E-02,& - 0.1585E-02, 0.1847E-02, 0.1847E-02, 0.1847E-02,& - 0.1847E-02, 0.1847E-02, 0.1847E-02, 0.1847E-02,& - 0.2110E-02, 0.2110E-02, 0.2110E-02, 0.2110E-02,& - 0.2110E-02, 0.2372E-02, 0.2372E-02, 0.2372E-02,& - 0.2372E-02, 0.2372E-02, 0.2635E-02, 0.2635E-02,& - 0.2635E-02, 0.2635E-02, 0.2635E-02, 0.2897E-02,& - 0.2897E-02, 0.2897E-02, 0.2897E-02, 0.3160E-02,& - 0.3160E-02, 0.3160E-02, 0.3160E-02, 0.3422E-02,& - 0.3422E-02, 0.3422E-02, 0.3422E-02, 0.3685E-02,& - 0.3685E-02, 0.3685E-02, 0.3685E-02, 0.3947E-02,& - 0.3947E-02, 0.3947E-02, 0.4210E-02, 0.4210E-02,& - 0.4210E-02, 0.4472E-02, 0.4472E-02, 0.4472E-02,& - 0.4735E-02, 0.4735E-02, 0.4735E-02, 0.4997E-02,& - 0.4997E-02, 0.4997E-02, 0.5259E-02, 0.5259E-02,& - 0.5259E-02, 0.5522E-02, 0.5522E-02, 0.5784E-02,& - 0.5784E-02, 0.5784E-02, 0.6047E-02, 0.6047E-02,& - 0.6309E-02, 0.6309E-02, 0.6572E-02, 0.6572E-02,& - 0.6834E-02, 0.6834E-02, 0.6834E-02, 0.7097E-02,& - 0.7097E-02, 0.7359E-02, 0.7359E-02, 0.7622E-02,& - 0.7622E-02, 0.7884E-02, 0.7884E-02, 0.8147E-02,& - 0.8409E-02, 0.8409E-02, 0.8672E-02, 0.8672E-02,& - 0.8934E-02, 0.8934E-02, 0.9197E-02, 0.9459E-02,& - 0.9459E-02, 0.9722E-02, 0.9722E-02, 0.9984E-02,& - 0.1025E-01, 0.1025E-01, 0.1051E-01, 0.1077E-01,& - 0.1077E-01, 0.1103E-01, 0.1130E-01, 0.1130E-01,& - 0.1156E-01, 0.1182E-01, 0.1208E-01, 0.1208E-01,& - 0.1235E-01, 0.1261E-01, 0.1287E-01, 0.1287E-01,& - 0.1313E-01, 0.1340E-01, 0.1366E-01, 0.1392E-01,& - 0.1418E-01, 0.1418E-01, 0.1445E-01, 0.1471E-01,& - 0.1497E-01, 0.1523E-01, 0.1550E-01, 0.1576E-01,& - 0.1602E-01, 0.1628E-01, 0.1655E-01, 0.1655E-01,& - 0.1681E-01, 0.1707E-01, 0.1733E-01, 0.1760E-01,& - 0.1812E-01, 0.1838E-01, 0.1865E-01, 0.1891E-01,& - 0.1917E-01, 0.1943E-01, 0.1970E-01, 0.1996E-01,& - 0.2022E-01, 0.2048E-01, 0.2101E-01, 0.2127E-01,& - 0.2153E-01, 0.2180E-01, 0.2206E-01, 0.2258E-01,& - 0.2285E-01, 0.2311E-01, 0.2337E-01, 0.2390E-01,& - 0.2416E-01, 0.2442E-01, 0.2495E-01, 0.2521E-01,& - 0.2573E-01, 0.2600E-01, 0.2626E-01, 0.2678E-01,& - 0.2704E-01, 0.2757E-01, 0.2783E-01, 0.2836E-01,& - 0.2862E-01, 0.2914E-01, 0.2941E-01, 0.2993E-01,& - 0.3019E-01, 0.3072E-01, 0.3124E-01, 0.3151E-01,& - 0.3203E-01, 0.3256E-01, 0.3282E-01, 0.3334E-01,& - 0.3387E-01, 0.3439E-01, 0.3466E-01, 0.3518E-01,& - 0.3571E-01, 0.3623E-01, 0.3676E-01, 0.3728E-01,& - 0.3781E-01, 0.3833E-01, 0.3886E-01, 0.3938E-01,& - 0.3991E-01, 0.4043E-01, 0.4096E-01, 0.4148E-01,& - 0.4201E-01, 0.4253E-01, 0.4306E-01, 0.4358E-01,& - 0.4411E-01, 0.4489E-01, 0.4542E-01, 0.4594E-01,& - 0.4647E-01, 0.4726E-01, 0.4778E-01, 0.4831E-01,& - 0.4909E-01, 0.4962E-01, 0.5041E-01, 0.5093E-01,& - 0.5172E-01, 0.5224E-01, 0.5303E-01, 0.5355E-01,& - 0.5434E-01, 0.5487E-01, 0.5565E-01, 0.5644E-01,& - 0.5723E-01, 0.5775E-01, 0.5854E-01, 0.5933E-01,& - 0.6012E-01, 0.6090E-01, 0.6143E-01, 0.6222E-01,& - 0.6300E-01, 0.6379E-01, 0.6458E-01, 0.6537E-01,& - 0.6615E-01, 0.6720E-01, 0.6799E-01, 0.6878E-01,& - 0.6957E-01, 0.7035E-01, 0.7140E-01, 0.7219E-01,& - 0.7298E-01, 0.7403E-01, 0.7482E-01, 0.7560E-01,& - 0.7665E-01, 0.7744E-01, 0.7849E-01, 0.7954E-01,& - 0.8033E-01, 0.8138E-01, 0.8243E-01, 0.8321E-01,& - 0.8426E-01, 0.8531E-01, 0.8636E-01, 0.8741E-01,& - 0.8846E-01, 0.8925E-01, 0.9030E-01, 0.9161E-01,& - 0.9266E-01, 0.9371E-01, 0.9476E-01, 0.9581E-01,& - 0.9686E-01, 0.9818E-01, 0.9923E-01, 0.1003E+00,& - 0.1016E+00, 0.1026E+00, 0.1040E+00, 0.1050E+00,& - 0.1063E+00, 0.1076E+00, 0.1087E+00, 0.1100E+00,& - 0.1113E+00, 0.1123E+00, 0.1137E+00, 0.1150E+00,& - 0.1163E+00, 0.1176E+00, 0.1189E+00, 0.1202E+00,& - 0.1218E+00, 0.1231E+00, 0.1244E+00, 0.1257E+00,& - 0.1273E+00, 0.1286E+00, 0.1302E+00, 0.1315E+00,& - 0.1331E+00, 0.1344E+00, 0.1360E+00, 0.1375E+00,& - 0.1389E+00, 0.1404E+00, 0.1420E+00, 0.1436E+00,& - 0.1452E+00, 0.1467E+00, 0.1483E+00, 0.1499E+00,& - 0.1515E+00, 0.1533E+00, 0.1549E+00, 0.1564E+00,& - 0.1583E+00, 0.1599E+00, 0.1617E+00, 0.1635E+00,& - 0.1651E+00, 0.1669E+00, 0.1688E+00, 0.1706E+00,& - 0.1725E+00, 0.1743E+00, 0.1761E+00, 0.1780E+00,& - 0.1798E+00, 0.1816E+00, 0.1837E+00, 0.1856E+00,& - 0.1877E+00, 0.1895E+00, 0.1916E+00, 0.1935E+00,& - 0.1956E+00, 0.1977E+00, 0.1998E+00, 0.2019E+00,& - 0.2040E+00, 0.2061E+00, 0.2082E+00, 0.2103E+00,& - 0.2126E+00, 0.2147E+00, 0.2168E+00, 0.2192E+00,& - 0.2215E+00, 0.2236E+00, 0.2260E+00, 0.2284E+00,& - 0.2307E+00, 0.2331E+00, 0.2354E+00, 0.2378E+00,& - 0.2402E+00, 0.2428E+00, 0.2452E+00, 0.2478E+00,& - 0.2501E+00, 0.2528E+00, 0.2551E+00, 0.2578E+00,& - 0.2604E+00, 0.2630E+00, 0.2656E+00, 0.2683E+00,& - 0.2711E+00, 0.2738E+00, 0.2767E+00, 0.2793E+00,& - 0.2822E+00, 0.2848E+00, 0.2877E+00, 0.2906E+00,& - 0.2935E+00, 0.2963E+00, 0.2992E+00, 0.3024E+00,& - 0.3053E+00, 0.3084E+00, 0.3113E+00, 0.3145E+00,& - 0.3176E+00, 0.3208E+00, 0.3239E+00, 0.3271E+00,& - 0.3302E+00, 0.3334E+00, 0.3368E+00, 0.3399E+00,& - 0.3433E+00, 0.3467E+00, 0.3499E+00, 0.3533E+00,& - 0.3567E+00, 0.3604E+00, 0.3638E+00, 0.3672E+00,& - 0.3709E+00, 0.3743E+00, 0.3780E+00, 0.3816E+00,& - 0.3853E+00, 0.3890E+00, 0.3927E+00, 0.3966E+00,& - 0.4003E+00, 0.4042E+00, 0.4079E+00, 0.4118E+00,& - 0.4158E+00, 0.4197E+00, 0.4239E+00, 0.4278E+00,& - 0.4318E+00, 0.4360E+00, 0.4402E+00, 0.4444E+00,& - 0.4486E+00, 0.4528E+00, 0.4570E+00, 0.4614E+00,& - 0.4656E+00, 0.4701E+00, 0.4746E+00, 0.4790E+00,& - 0.4835E+00, 0.4880E+00, 0.4924E+00, 0.4971E+00,& - 0.5019E+00, 0.5066E+00, 0.5113E+00, 0.5160E+00,& - 0.5208E+00, 0.5257E+00, 0.5305E+00, 0.5355E+00,& - 0.5404E+00, 0.5454E+00, 0.5504E+00, 0.5557E+00,& - 0.5607E+00, 0.5659E+00, 0.5712E+00, 0.5764E+00,& - 0.5817E+00, 0.5872E+00, 0.5924E+00, 0.5979E+00,& - 0.6034E+00, 0.6090E+00, 0.6145E+00, 0.6202E+00,& - 0.6260E+00, 0.6315E+00, 0.6373E+00, 0.6433E+00,& - 0.6491E+00, 0.6551E+00, 0.6609E+00, 0.6670E+00,& - 0.6733E+00, 0.6793E+00, 0.6853E+00, 0.6916E+00,& - 0.6979E+00, 0.7042E+00, 0.7108E+00, 0.7171E+00,& - 0.7237E+00, 0.7302E+00, 0.7368E+00, 0.7436E+00,& - 0.7502E+00, 0.7570E+00, 0.7638E+00, 0.7706E+00,& - 0.7777E+00, 0.7848E+00, 0.7919E+00, 0.7990E+00,& - 0.8061E+00, 0.8134E+00, 0.8208E+00, 0.8281E+00,& - 0.8355E+00, 0.8431E+00, 0.8507E+00, 0.8583E+00,& - 0.8659E+00, 0.8738E+00, 0.8814E+00, 0.8895E+00,& - 0.8974E+00, 0.9055E+00, 0.9134E+00, 0.9218E+00,& - 0.9300E+00, 0.9384E+00, 0.9468E+00, 0.9552E+00,& - 0.9636E+00, 0.9722E+00, 0.9809E+00, 0.9895E+00,& - 0.9985E+00, 0.1007E+01, 0.1016E+01, 0.1025E+01,& - 0.1035E+01, 0.1044E+01, 0.1053E+01, 0.1063E+01,& - 0.1072E+01, 0.1081E+01, 0.1091E+01, 0.1101E+01,& - 0.1111E+01, 0.1121E+01, 0.1130E+01, 0.1140E+01,& - 0.1151E+01, 0.1161E+01, 0.1171E+01, 0.1182E+01,& - 0.1192E+01, 0.1203E+01, 0.1213E+01, 0.1224E+01,& - 0.1235E+01, 0.1246E+01, 0.1257E+01, 0.1268E+01,& - 0.1280E+01, 0.1291E+01, 0.1302E+01, 0.1314E+01,& - 0.1326E+01, 0.1338E+01, 0.1349E+01, 0.1361E+01,& - 0.1374E+01, 0.1386E+01, 0.1398E+01, 0.1411E+01,& - 0.1423E+01, 0.1436E+01, 0.1449E+01, 0.1461E+01,& - 0.1475E+01, 0.1488E+01, 0.1501E+01, 0.1514E+01,& - 0.1528E+01, 0.1542E+01, 0.1555E+01, 0.1569E+01,& - 0.1583E+01, 0.1597E+01, 0.1612E+01, 0.1626E+01,& - 0.1641E+01, 0.1655E+01, 0.1670E+01, 0.1685E+01,& - 0.1701E+01, 0.1716E+01, 0.1731E+01, 0.1747E+01,& - 0.1763E+01, 0.1779E+01, 0.1795E+01, 0.1811E+01,& - 0.1827E+01, 0.1844E+01, 0.1860E+01, 0.1877E+01,& - 0.1894E+01, 0.1911E+01, 0.1929E+01, 0.1946E+01,& - 0.1964E+01, 0.1982E+01, 0.2000E+01, 0.2018E+01,& - 0.2037E+01, 0.2055E+01, 0.2074E+01, 0.2093E+01,& - 0.2112E+01, 0.2132E+01, 0.2151E+01, 0.2171E+01,& - 0.2191E+01, 0.2211E+01, 0.2232E+01, 0.2252E+01,& - 0.2273E+01, 0.2294E+01, 0.2316E+01, 0.2337E+01,& - 0.2359E+01, 0.2381E+01, 0.2403E+01, 0.2426E+01,& - 0.2449E+01, 0.2471E+01, 0.2495E+01, 0.2518E+01,& - 0.2542E+01, 0.2566E+01, 0.2590E+01, 0.2615E+01,& - 0.2640E+01, 0.2665E+01, 0.2691E+01, 0.2716E+01,& - 0.2742E+01, 0.2769E+01, 0.2796E+01, 0.2823E+01,& - 0.2850E+01, 0.2878E+01, 0.2906E+01, 0.2934E+01,& - 0.2963E+01, 0.2991E+01, 0.3021E+01, 0.3051E+01,& - 0.3081E+01, 0.3111E+01, 0.3142E+01, 0.3174E+01,& - 0.3205E+01, 0.3237E+01, 0.3270E+01, 0.3303E+01,& - 0.3336E+01, 0.3370E+01, 0.3404E+01, 0.3439E+01,& - 0.3474E+01, 0.3510E+01, 0.3546E+01, 0.3583E+01,& - 0.3620E+01, 0.3658E+01, 0.3696E+01, 0.3735E+01,& - 0.3774E+01, 0.3815E+01, 0.3855E+01, 0.3896E+01,& - 0.3938E+01, 0.3980E+01, 0.4023E+01, 0.4067E+01,& - 0.4112E+01, 0.4157E+01, 0.4203E+01, 0.4249E+01,& - 0.4297E+01, 0.4345E+01, 0.4394E+01, 0.4444E+01,& - 0.4495E+01, 0.4546E+01, 0.4599E+01, 0.4652E+01,& - 0.4706E+01, 0.4761E+01, 0.4818E+01, 0.4875E+01,& - 0.4933E+01, 0.4993E+01, 0.5054E+01, 0.5116E+01,& - 0.5179E+01, 0.5243E+01, 0.5309E+01, 0.5376E+01,& - 0.5445E+01, 0.5515E+01, 0.5586E+01, 0.5659E+01,& - 0.5734E+01, 0.5811E+01, 0.5889E+01, 0.5969E+01,& - 0.6051E+01, 0.6136E+01, 0.6222E+01, 0.6311E+01,& - 0.6402E+01, 0.6495E+01, 0.6591E+01, 0.6689E+01,& - 0.6791E+01, 0.6896E+01, 0.7003E+01, 0.7115E+01,& - 0.7229E+01, 0.7348E+01, 0.7471E+01, 0.7597E+01,& - 0.7729E+01, 0.7866E+01, 0.8007E+01, 0.8155E+01,& - 0.8308E+01, 0.8469E+01, 0.8636E+01, 0.8812E+01,& - 0.8997E+01, 0.9190E+01, 0.9395E+01, 0.9611E+01,& - 0.9841E+01, 0.1009E+02, 0.1035E+02, 0.1063E+02,& - 0.1093E+02, 0.1126E+02, 0.1163E+02, 0.1203E+02,& - 0.1248E+02, 0.1299E+02, 0.1359E+02, 0.1431E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 95) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.2771E-03, 0.2771E-03, 0.2771E-03, 0.2771E-03,& - 0.2771E-03, 0.2771E-03, 0.2771E-03, 0.2771E-03,& - 0.2771E-03, 0.2771E-03, 0.2771E-03, 0.2771E-03,& - 0.2771E-03, 0.2771E-03, 0.2771E-03, 0.2771E-03,& - 0.2771E-03, 0.2771E-03, 0.2771E-03, 0.2771E-03,& - 0.2771E-03, 0.2771E-03, 0.2771E-03, 0.2771E-03,& - 0.2771E-03, 0.5442E-03, 0.5442E-03, 0.5442E-03,& - 0.5442E-03, 0.5442E-03, 0.5442E-03, 0.5442E-03,& - 0.5442E-03, 0.5442E-03, 0.5442E-03, 0.5442E-03,& - 0.5442E-03, 0.5442E-03, 0.5442E-03, 0.5442E-03,& - 0.8114E-03, 0.8114E-03, 0.8114E-03, 0.8114E-03,& - 0.8114E-03, 0.8114E-03, 0.8114E-03, 0.8114E-03,& - 0.8114E-03, 0.8114E-03, 0.8114E-03, 0.8114E-03,& - 0.1078E-02, 0.1078E-02, 0.1078E-02, 0.1078E-02,& - 0.1078E-02, 0.1078E-02, 0.1078E-02, 0.1078E-02,& - 0.1078E-02, 0.1078E-02, 0.1346E-02, 0.1346E-02,& - 0.1346E-02, 0.1346E-02, 0.1346E-02, 0.1346E-02,& - 0.1346E-02, 0.1346E-02, 0.1613E-02, 0.1613E-02,& - 0.1613E-02, 0.1613E-02, 0.1613E-02, 0.1613E-02,& - 0.1613E-02, 0.1880E-02, 0.1880E-02, 0.1880E-02,& - 0.1880E-02, 0.1880E-02, 0.1880E-02, 0.2147E-02,& - 0.2147E-02, 0.2147E-02, 0.2147E-02, 0.2147E-02,& - 0.2414E-02, 0.2414E-02, 0.2414E-02, 0.2414E-02,& - 0.2414E-02, 0.2681E-02, 0.2681E-02, 0.2681E-02,& - 0.2681E-02, 0.2681E-02, 0.2948E-02, 0.2948E-02,& - 0.2948E-02, 0.2948E-02, 0.3215E-02, 0.3215E-02,& - 0.3215E-02, 0.3215E-02, 0.3483E-02, 0.3483E-02,& - 0.3483E-02, 0.3483E-02, 0.3750E-02, 0.3750E-02,& - 0.3750E-02, 0.3750E-02, 0.4017E-02, 0.4017E-02,& - 0.4017E-02, 0.4284E-02, 0.4284E-02, 0.4284E-02,& - 0.4551E-02, 0.4551E-02, 0.4551E-02, 0.4818E-02,& - 0.4818E-02, 0.4818E-02, 0.5085E-02, 0.5085E-02,& - 0.5085E-02, 0.5352E-02, 0.5352E-02, 0.5352E-02,& - 0.5620E-02, 0.5620E-02, 0.5887E-02, 0.5887E-02,& - 0.5887E-02, 0.6154E-02, 0.6154E-02, 0.6421E-02,& - 0.6421E-02, 0.6421E-02, 0.6688E-02, 0.6688E-02,& - 0.6955E-02, 0.6955E-02, 0.7222E-02, 0.7222E-02,& - 0.7489E-02, 0.7489E-02, 0.7757E-02, 0.7757E-02,& - 0.8024E-02, 0.8024E-02, 0.8291E-02, 0.8291E-02,& - 0.8558E-02, 0.8558E-02, 0.8825E-02, 0.9092E-02,& - 0.9092E-02, 0.9359E-02, 0.9359E-02, 0.9626E-02,& - 0.9894E-02, 0.9894E-02, 0.1016E-01, 0.1016E-01,& - 0.1043E-01, 0.1069E-01, 0.1069E-01, 0.1096E-01,& - 0.1123E-01, 0.1150E-01, 0.1150E-01, 0.1176E-01,& - 0.1203E-01, 0.1203E-01, 0.1230E-01, 0.1256E-01,& - 0.1283E-01, 0.1283E-01, 0.1310E-01, 0.1337E-01,& - 0.1363E-01, 0.1390E-01, 0.1390E-01, 0.1417E-01,& - 0.1443E-01, 0.1470E-01, 0.1497E-01, 0.1524E-01,& - 0.1550E-01, 0.1577E-01, 0.1577E-01, 0.1604E-01,& - 0.1630E-01, 0.1657E-01, 0.1684E-01, 0.1711E-01,& - 0.1737E-01, 0.1764E-01, 0.1791E-01, 0.1817E-01,& - 0.1844E-01, 0.1871E-01, 0.1898E-01, 0.1951E-01,& - 0.1978E-01, 0.2004E-01, 0.2031E-01, 0.2058E-01,& - 0.2085E-01, 0.2111E-01, 0.2138E-01, 0.2191E-01,& - 0.2218E-01, 0.2245E-01, 0.2272E-01, 0.2325E-01,& - 0.2352E-01, 0.2378E-01, 0.2405E-01, 0.2459E-01,& - 0.2485E-01, 0.2539E-01, 0.2565E-01, 0.2592E-01,& - 0.2646E-01, 0.2672E-01, 0.2726E-01, 0.2752E-01,& - 0.2779E-01, 0.2833E-01, 0.2859E-01, 0.2913E-01,& - 0.2966E-01, 0.2993E-01, 0.3046E-01, 0.3073E-01,& - 0.3126E-01, 0.3180E-01, 0.3206E-01, 0.3260E-01,& - 0.3313E-01, 0.3340E-01, 0.3393E-01, 0.3447E-01,& - 0.3500E-01, 0.3527E-01, 0.3580E-01, 0.3634E-01,& - 0.3687E-01, 0.3741E-01, 0.3794E-01, 0.3848E-01,& - 0.3874E-01, 0.3928E-01, 0.3981E-01, 0.4035E-01,& - 0.4088E-01, 0.4168E-01, 0.4222E-01, 0.4275E-01,& - 0.4328E-01, 0.4382E-01, 0.4435E-01, 0.4489E-01,& - 0.4569E-01, 0.4622E-01, 0.4676E-01, 0.4729E-01,& - 0.4809E-01, 0.4863E-01, 0.4916E-01, 0.4996E-01,& - 0.5050E-01, 0.5130E-01, 0.5183E-01, 0.5263E-01,& - 0.5317E-01, 0.5397E-01, 0.5450E-01, 0.5530E-01,& - 0.5611E-01, 0.5664E-01, 0.5744E-01, 0.5824E-01,& - 0.5904E-01, 0.5958E-01, 0.6038E-01, 0.6118E-01,& - 0.6198E-01, 0.6278E-01, 0.6359E-01, 0.6439E-01,& - 0.6519E-01, 0.6599E-01, 0.6679E-01, 0.6759E-01,& - 0.6839E-01, 0.6920E-01, 0.7000E-01, 0.7107E-01,& - 0.7187E-01, 0.7267E-01, 0.7374E-01, 0.7454E-01,& - 0.7534E-01, 0.7641E-01, 0.7721E-01, 0.7828E-01,& - 0.7908E-01, 0.8015E-01, 0.8122E-01, 0.8202E-01,& - 0.8309E-01, 0.8415E-01, 0.8496E-01, 0.8602E-01,& - 0.8709E-01, 0.8816E-01, 0.8923E-01, 0.9030E-01,& - 0.9137E-01, 0.9243E-01, 0.9350E-01, 0.9457E-01,& - 0.9564E-01, 0.9698E-01, 0.9804E-01, 0.9911E-01,& - 0.1002E+00, 0.1015E+00, 0.1026E+00, 0.1039E+00,& - 0.1050E+00, 0.1063E+00, 0.1074E+00, 0.1087E+00,& - 0.1101E+00, 0.1111E+00, 0.1125E+00, 0.1138E+00,& - 0.1151E+00, 0.1165E+00, 0.1178E+00, 0.1191E+00,& - 0.1205E+00, 0.1218E+00, 0.1232E+00, 0.1245E+00,& - 0.1261E+00, 0.1274E+00, 0.1288E+00, 0.1304E+00,& - 0.1317E+00, 0.1333E+00, 0.1346E+00, 0.1362E+00,& - 0.1378E+00, 0.1394E+00, 0.1408E+00, 0.1424E+00,& - 0.1440E+00, 0.1456E+00, 0.1472E+00, 0.1488E+00,& - 0.1504E+00, 0.1523E+00, 0.1539E+00, 0.1555E+00,& - 0.1571E+00, 0.1589E+00, 0.1606E+00, 0.1624E+00,& - 0.1643E+00, 0.1659E+00, 0.1678E+00, 0.1696E+00,& - 0.1715E+00, 0.1734E+00, 0.1752E+00, 0.1771E+00,& - 0.1790E+00, 0.1809E+00, 0.1827E+00, 0.1849E+00,& - 0.1867E+00, 0.1886E+00, 0.1907E+00, 0.1929E+00,& - 0.1947E+00, 0.1969E+00, 0.1990E+00, 0.2012E+00,& - 0.2033E+00, 0.2054E+00, 0.2076E+00, 0.2097E+00,& - 0.2118E+00, 0.2140E+00, 0.2164E+00, 0.2185E+00,& - 0.2209E+00, 0.2233E+00, 0.2255E+00, 0.2279E+00,& - 0.2303E+00, 0.2327E+00, 0.2351E+00, 0.2375E+00,& - 0.2399E+00, 0.2423E+00, 0.2450E+00, 0.2474E+00,& - 0.2500E+00, 0.2524E+00, 0.2551E+00, 0.2578E+00,& - 0.2605E+00, 0.2631E+00, 0.2658E+00, 0.2685E+00,& - 0.2711E+00, 0.2738E+00, 0.2768E+00, 0.2794E+00,& - 0.2824E+00, 0.2850E+00, 0.2880E+00, 0.2909E+00,& - 0.2938E+00, 0.2968E+00, 0.2997E+00, 0.3029E+00,& - 0.3059E+00, 0.3088E+00, 0.3120E+00, 0.3152E+00,& - 0.3182E+00, 0.3214E+00, 0.3246E+00, 0.3278E+00,& - 0.3312E+00, 0.3344E+00, 0.3377E+00, 0.3411E+00,& - 0.3443E+00, 0.3478E+00, 0.3513E+00, 0.3548E+00,& - 0.3582E+00, 0.3617E+00, 0.3652E+00, 0.3689E+00,& - 0.3724E+00, 0.3761E+00, 0.3799E+00, 0.3836E+00,& - 0.3873E+00, 0.3911E+00, 0.3948E+00, 0.3986E+00,& - 0.4026E+00, 0.4063E+00, 0.4103E+00, 0.4143E+00,& - 0.4183E+00, 0.4223E+00, 0.4263E+00, 0.4306E+00,& - 0.4346E+00, 0.4389E+00, 0.4432E+00, 0.4474E+00,& - 0.4517E+00, 0.4560E+00, 0.4603E+00, 0.4648E+00,& - 0.4691E+00, 0.4736E+00, 0.4782E+00, 0.4827E+00,& - 0.4872E+00, 0.4921E+00, 0.4966E+00, 0.5014E+00,& - 0.5059E+00, 0.5108E+00, 0.5156E+00, 0.5206E+00,& - 0.5254E+00, 0.5305E+00, 0.5353E+00, 0.5404E+00,& - 0.5455E+00, 0.5508E+00, 0.5559E+00, 0.5612E+00,& - 0.5663E+00, 0.5717E+00, 0.5770E+00, 0.5823E+00,& - 0.5880E+00, 0.5933E+00, 0.5989E+00, 0.6045E+00,& - 0.6101E+00, 0.6157E+00, 0.6216E+00, 0.6272E+00,& - 0.6331E+00, 0.6390E+00, 0.6451E+00, 0.6510E+00,& - 0.6571E+00, 0.6630E+00, 0.6692E+00, 0.6753E+00,& - 0.6817E+00, 0.6879E+00, 0.6943E+00, 0.7007E+00,& - 0.7071E+00, 0.7138E+00, 0.7202E+00, 0.7269E+00,& - 0.7335E+00, 0.7402E+00, 0.7472E+00, 0.7541E+00,& - 0.7608E+00, 0.7680E+00, 0.7749E+00, 0.7819E+00,& - 0.7891E+00, 0.7963E+00, 0.8038E+00, 0.8110E+00,& - 0.8185E+00, 0.8260E+00, 0.8334E+00, 0.8409E+00,& - 0.8487E+00, 0.8564E+00, 0.8642E+00, 0.8722E+00,& - 0.8802E+00, 0.8879E+00, 0.8962E+00, 0.9042E+00,& - 0.9125E+00, 0.9208E+00, 0.9291E+00, 0.9376E+00,& - 0.9462E+00, 0.9547E+00, 0.9633E+00, 0.9721E+00,& - 0.9809E+00, 0.9897E+00, 0.9988E+00, 0.1008E+01,& - 0.1017E+01, 0.1026E+01, 0.1035E+01, 0.1045E+01,& - 0.1054E+01, 0.1064E+01, 0.1073E+01, 0.1083E+01,& - 0.1093E+01, 0.1103E+01, 0.1113E+01, 0.1123E+01,& - 0.1133E+01, 0.1143E+01, 0.1153E+01, 0.1164E+01,& - 0.1174E+01, 0.1185E+01, 0.1196E+01, 0.1207E+01,& - 0.1217E+01, 0.1228E+01, 0.1239E+01, 0.1251E+01,& - 0.1262E+01, 0.1273E+01, 0.1285E+01, 0.1296E+01,& - 0.1308E+01, 0.1320E+01, 0.1332E+01, 0.1344E+01,& - 0.1356E+01, 0.1368E+01, 0.1381E+01, 0.1393E+01,& - 0.1406E+01, 0.1418E+01, 0.1431E+01, 0.1444E+01,& - 0.1457E+01, 0.1471E+01, 0.1484E+01, 0.1497E+01,& - 0.1511E+01, 0.1525E+01, 0.1538E+01, 0.1553E+01,& - 0.1566E+01, 0.1581E+01, 0.1595E+01, 0.1610E+01,& - 0.1624E+01, 0.1639E+01, 0.1654E+01, 0.1669E+01,& - 0.1684E+01, 0.1700E+01, 0.1715E+01, 0.1731E+01,& - 0.1747E+01, 0.1762E+01, 0.1779E+01, 0.1795E+01,& - 0.1811E+01, 0.1828E+01, 0.1845E+01, 0.1862E+01,& - 0.1879E+01, 0.1896E+01, 0.1914E+01, 0.1931E+01,& - 0.1949E+01, 0.1967E+01, 0.1985E+01, 0.2004E+01,& - 0.2022E+01, 0.2041E+01, 0.2060E+01, 0.2079E+01,& - 0.2099E+01, 0.2118E+01, 0.2138E+01, 0.2158E+01,& - 0.2178E+01, 0.2198E+01, 0.2219E+01, 0.2240E+01,& - 0.2261E+01, 0.2282E+01, 0.2303E+01, 0.2325E+01,& - 0.2347E+01, 0.2369E+01, 0.2392E+01, 0.2415E+01,& - 0.2438E+01, 0.2461E+01, 0.2484E+01, 0.2508E+01,& - 0.2532E+01, 0.2556E+01, 0.2581E+01, 0.2606E+01,& - 0.2631E+01, 0.2656E+01, 0.2682E+01, 0.2708E+01,& - 0.2734E+01, 0.2761E+01, 0.2788E+01, 0.2815E+01,& - 0.2843E+01, 0.2871E+01, 0.2899E+01, 0.2928E+01,& - 0.2957E+01, 0.2986E+01, 0.3016E+01, 0.3046E+01,& - 0.3076E+01, 0.3107E+01, 0.3138E+01, 0.3170E+01,& - 0.3202E+01, 0.3235E+01, 0.3267E+01, 0.3301E+01,& - 0.3335E+01, 0.3369E+01, 0.3403E+01, 0.3439E+01,& - 0.3474E+01, 0.3511E+01, 0.3547E+01, 0.3584E+01,& - 0.3622E+01, 0.3660E+01, 0.3699E+01, 0.3738E+01,& - 0.3778E+01, 0.3819E+01, 0.3860E+01, 0.3902E+01,& - 0.3944E+01, 0.3987E+01, 0.4031E+01, 0.4075E+01,& - 0.4120E+01, 0.4166E+01, 0.4213E+01, 0.4260E+01,& - 0.4308E+01, 0.4357E+01, 0.4406E+01, 0.4457E+01,& - 0.4508E+01, 0.4561E+01, 0.4614E+01, 0.4668E+01,& - 0.4723E+01, 0.4779E+01, 0.4836E+01, 0.4895E+01,& - 0.4954E+01, 0.5014E+01, 0.5076E+01, 0.5139E+01,& - 0.5203E+01, 0.5268E+01, 0.5335E+01, 0.5403E+01,& - 0.5473E+01, 0.5544E+01, 0.5617E+01, 0.5691E+01,& - 0.5767E+01, 0.5845E+01, 0.5925E+01, 0.6006E+01,& - 0.6090E+01, 0.6175E+01, 0.6263E+01, 0.6353E+01,& - 0.6445E+01, 0.6541E+01, 0.6638E+01, 0.6738E+01,& - 0.6842E+01, 0.6948E+01, 0.7058E+01, 0.7171E+01,& - 0.7288E+01, 0.7408E+01, 0.7533E+01, 0.7662E+01,& - 0.7796E+01, 0.7935E+01, 0.8080E+01, 0.8230E+01,& - 0.8386E+01, 0.8550E+01, 0.8721E+01, 0.8900E+01,& - 0.9087E+01, 0.9285E+01, 0.9493E+01, 0.9714E+01,& - 0.9948E+01, 0.1020E+02, 0.1046E+02, 0.1075E+02,& - 0.1106E+02, 0.1140E+02, 0.1177E+02, 0.1218E+02,& - 0.1264E+02, 0.1316E+02, 0.1377E+02, 0.1451E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 96) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2818E-03,& - 0.2818E-03, 0.2818E-03, 0.2818E-03, 0.2818E-03,& - 0.2818E-03, 0.2818E-03, 0.2818E-03, 0.2818E-03,& - 0.2818E-03, 0.2818E-03, 0.2818E-03, 0.2818E-03,& - 0.2818E-03, 0.2818E-03, 0.2818E-03, 0.2818E-03,& - 0.2818E-03, 0.2818E-03, 0.2818E-03, 0.2818E-03,& - 0.2818E-03, 0.2818E-03, 0.2818E-03, 0.5536E-03,& - 0.5536E-03, 0.5536E-03, 0.5536E-03, 0.5536E-03,& - 0.5536E-03, 0.5536E-03, 0.5536E-03, 0.5536E-03,& - 0.5536E-03, 0.5536E-03, 0.5536E-03, 0.5536E-03,& - 0.5536E-03, 0.5536E-03, 0.5536E-03, 0.8255E-03,& - 0.8255E-03, 0.8255E-03, 0.8255E-03, 0.8255E-03,& - 0.8255E-03, 0.8255E-03, 0.8255E-03, 0.8255E-03,& - 0.8255E-03, 0.8255E-03, 0.8255E-03, 0.1097E-02,& - 0.1097E-02, 0.1097E-02, 0.1097E-02, 0.1097E-02,& - 0.1097E-02, 0.1097E-02, 0.1097E-02, 0.1097E-02,& - 0.1097E-02, 0.1369E-02, 0.1369E-02, 0.1369E-02,& - 0.1369E-02, 0.1369E-02, 0.1369E-02, 0.1369E-02,& - 0.1369E-02, 0.1641E-02, 0.1641E-02, 0.1641E-02,& - 0.1641E-02, 0.1641E-02, 0.1641E-02, 0.1641E-02,& - 0.1913E-02, 0.1913E-02, 0.1913E-02, 0.1913E-02,& - 0.1913E-02, 0.1913E-02, 0.2185E-02, 0.2185E-02,& - 0.2185E-02, 0.2185E-02, 0.2185E-02, 0.2456E-02,& - 0.2456E-02, 0.2456E-02, 0.2456E-02, 0.2456E-02,& - 0.2456E-02, 0.2728E-02, 0.2728E-02, 0.2728E-02,& - 0.2728E-02, 0.3000E-02, 0.3000E-02, 0.3000E-02,& - 0.3000E-02, 0.3000E-02, 0.3272E-02, 0.3272E-02,& - 0.3272E-02, 0.3272E-02, 0.3544E-02, 0.3544E-02,& - 0.3544E-02, 0.3815E-02, 0.3815E-02, 0.3815E-02,& - 0.3815E-02, 0.4087E-02, 0.4087E-02, 0.4087E-02,& - 0.4359E-02, 0.4359E-02, 0.4359E-02, 0.4359E-02,& - 0.4631E-02, 0.4631E-02, 0.4631E-02, 0.4903E-02,& - 0.4903E-02, 0.4903E-02, 0.5175E-02, 0.5175E-02,& - 0.5446E-02, 0.5446E-02, 0.5446E-02, 0.5718E-02,& - 0.5718E-02, 0.5718E-02, 0.5990E-02, 0.5990E-02,& - 0.6262E-02, 0.6262E-02, 0.6534E-02, 0.6534E-02,& - 0.6534E-02, 0.6806E-02, 0.6806E-02, 0.7077E-02,& - 0.7077E-02, 0.7349E-02, 0.7349E-02, 0.7621E-02,& - 0.7621E-02, 0.7893E-02, 0.7893E-02, 0.8165E-02,& - 0.8165E-02, 0.8436E-02, 0.8436E-02, 0.8708E-02,& - 0.8708E-02, 0.8980E-02, 0.8980E-02, 0.9252E-02,& - 0.9524E-02, 0.9524E-02, 0.9796E-02, 0.9796E-02,& - 0.1007E-01, 0.1034E-01, 0.1034E-01, 0.1061E-01,& - 0.1088E-01, 0.1088E-01, 0.1115E-01, 0.1143E-01,& - 0.1143E-01, 0.1170E-01, 0.1197E-01, 0.1197E-01,& - 0.1224E-01, 0.1251E-01, 0.1279E-01, 0.1279E-01,& - 0.1306E-01, 0.1333E-01, 0.1360E-01, 0.1387E-01,& - 0.1387E-01, 0.1414E-01, 0.1442E-01, 0.1469E-01,& - 0.1496E-01, 0.1523E-01, 0.1550E-01, 0.1550E-01,& - 0.1578E-01, 0.1605E-01, 0.1632E-01, 0.1659E-01,& - 0.1686E-01, 0.1713E-01, 0.1741E-01, 0.1768E-01,& - 0.1795E-01, 0.1822E-01, 0.1849E-01, 0.1877E-01,& - 0.1904E-01, 0.1931E-01, 0.1958E-01, 0.1985E-01,& - 0.2040E-01, 0.2067E-01, 0.2094E-01, 0.2121E-01,& - 0.2148E-01, 0.2176E-01, 0.2230E-01, 0.2257E-01,& - 0.2284E-01, 0.2311E-01, 0.2339E-01, 0.2393E-01,& - 0.2420E-01, 0.2447E-01, 0.2502E-01, 0.2529E-01,& - 0.2556E-01, 0.2610E-01, 0.2638E-01, 0.2692E-01,& - 0.2719E-01, 0.2746E-01, 0.2801E-01, 0.2828E-01,& - 0.2882E-01, 0.2909E-01, 0.2964E-01, 0.2991E-01,& - 0.3045E-01, 0.3100E-01, 0.3127E-01, 0.3181E-01,& - 0.3208E-01, 0.3263E-01, 0.3317E-01, 0.3372E-01,& - 0.3399E-01, 0.3453E-01, 0.3507E-01, 0.3562E-01,& - 0.3589E-01, 0.3643E-01, 0.3698E-01, 0.3752E-01,& - 0.3806E-01, 0.3861E-01, 0.3915E-01, 0.3970E-01,& - 0.4024E-01, 0.4078E-01, 0.4133E-01, 0.4187E-01,& - 0.4241E-01, 0.4296E-01, 0.4350E-01, 0.4404E-01,& - 0.4459E-01, 0.4513E-01, 0.4595E-01, 0.4649E-01,& - 0.4704E-01, 0.4758E-01, 0.4839E-01, 0.4894E-01,& - 0.4948E-01, 0.5030E-01, 0.5084E-01, 0.5166E-01,& - 0.5220E-01, 0.5302E-01, 0.5356E-01, 0.5437E-01,& - 0.5492E-01, 0.5573E-01, 0.5655E-01, 0.5709E-01,& - 0.5791E-01, 0.5872E-01, 0.5927E-01, 0.6008E-01,& - 0.6090E-01, 0.6171E-01, 0.6253E-01, 0.6334E-01,& - 0.6416E-01, 0.6498E-01, 0.6579E-01, 0.6661E-01,& - 0.6742E-01, 0.6824E-01, 0.6905E-01, 0.6987E-01,& - 0.7068E-01, 0.7150E-01, 0.7259E-01, 0.7340E-01,& - 0.7422E-01, 0.7530E-01, 0.7612E-01, 0.7721E-01,& - 0.7802E-01, 0.7911E-01, 0.7993E-01, 0.8101E-01,& - 0.8183E-01, 0.8292E-01, 0.8400E-01, 0.8482E-01,& - 0.8591E-01, 0.8699E-01, 0.8808E-01, 0.8917E-01,& - 0.9025E-01, 0.9134E-01, 0.9243E-01, 0.9352E-01,& - 0.9460E-01, 0.9569E-01, 0.9678E-01, 0.9787E-01,& - 0.9922E-01, 0.1003E+00, 0.1014E+00, 0.1028E+00,& - 0.1038E+00, 0.1052E+00, 0.1063E+00, 0.1077E+00,& - 0.1087E+00, 0.1101E+00, 0.1115E+00, 0.1128E+00,& - 0.1139E+00, 0.1153E+00, 0.1166E+00, 0.1180E+00,& - 0.1193E+00, 0.1207E+00, 0.1221E+00, 0.1234E+00,& - 0.1250E+00, 0.1264E+00, 0.1278E+00, 0.1291E+00,& - 0.1308E+00, 0.1321E+00, 0.1337E+00, 0.1351E+00,& - 0.1367E+00, 0.1384E+00, 0.1397E+00, 0.1414E+00,& - 0.1430E+00, 0.1446E+00, 0.1462E+00, 0.1479E+00,& - 0.1495E+00, 0.1511E+00, 0.1528E+00, 0.1544E+00,& - 0.1563E+00, 0.1579E+00, 0.1598E+00, 0.1615E+00,& - 0.1634E+00, 0.1650E+00, 0.1669E+00, 0.1688E+00,& - 0.1704E+00, 0.1723E+00, 0.1742E+00, 0.1761E+00,& - 0.1781E+00, 0.1800E+00, 0.1821E+00, 0.1840E+00,& - 0.1859E+00, 0.1881E+00, 0.1900E+00, 0.1922E+00,& - 0.1941E+00, 0.1963E+00, 0.1984E+00, 0.2003E+00,& - 0.2025E+00, 0.2047E+00, 0.2069E+00, 0.2090E+00,& - 0.2115E+00, 0.2137E+00, 0.2158E+00, 0.2183E+00,& - 0.2205E+00, 0.2229E+00, 0.2251E+00, 0.2275E+00,& - 0.2300E+00, 0.2324E+00, 0.2349E+00, 0.2373E+00,& - 0.2398E+00, 0.2422E+00, 0.2449E+00, 0.2474E+00,& - 0.2498E+00, 0.2525E+00, 0.2552E+00, 0.2577E+00,& - 0.2604E+00, 0.2631E+00, 0.2659E+00, 0.2686E+00,& - 0.2713E+00, 0.2743E+00, 0.2770E+00, 0.2797E+00,& - 0.2827E+00, 0.2857E+00, 0.2884E+00, 0.2914E+00,& - 0.2944E+00, 0.2974E+00, 0.3004E+00, 0.3036E+00,& - 0.3066E+00, 0.3096E+00, 0.3129E+00, 0.3161E+00,& - 0.3191E+00, 0.3224E+00, 0.3257E+00, 0.3289E+00,& - 0.3322E+00, 0.3357E+00, 0.3390E+00, 0.3425E+00,& - 0.3458E+00, 0.3493E+00, 0.3528E+00, 0.3564E+00,& - 0.3599E+00, 0.3634E+00, 0.3670E+00, 0.3708E+00,& - 0.3743E+00, 0.3781E+00, 0.3819E+00, 0.3855E+00,& - 0.3893E+00, 0.3933E+00, 0.3971E+00, 0.4009E+00,& - 0.4050E+00, 0.4088E+00, 0.4129E+00, 0.4170E+00,& - 0.4211E+00, 0.4251E+00, 0.4295E+00, 0.4336E+00,& - 0.4379E+00, 0.4420E+00, 0.4463E+00, 0.4507E+00,& - 0.4550E+00, 0.4594E+00, 0.4640E+00, 0.4684E+00,& - 0.4730E+00, 0.4776E+00, 0.4822E+00, 0.4868E+00,& - 0.4915E+00, 0.4964E+00, 0.5010E+00, 0.5059E+00,& - 0.5108E+00, 0.5157E+00, 0.5205E+00, 0.5254E+00,& - 0.5306E+00, 0.5358E+00, 0.5407E+00, 0.5458E+00,& - 0.5513E+00, 0.5564E+00, 0.5616E+00, 0.5670E+00,& - 0.5725E+00, 0.5779E+00, 0.5833E+00, 0.5890E+00,& - 0.5945E+00, 0.6002E+00, 0.6059E+00, 0.6116E+00,& - 0.6173E+00, 0.6233E+00, 0.6290E+00, 0.6350E+00,& - 0.6410E+00, 0.6469E+00, 0.6532E+00, 0.6592E+00,& - 0.6654E+00, 0.6717E+00, 0.6779E+00, 0.6845E+00,& - 0.6907E+00, 0.6972E+00, 0.7038E+00, 0.7103E+00,& - 0.7171E+00, 0.7236E+00, 0.7304E+00, 0.7372E+00,& - 0.7443E+00, 0.7511E+00, 0.7581E+00, 0.7652E+00,& - 0.7723E+00, 0.7793E+00, 0.7867E+00, 0.7940E+00,& - 0.8013E+00, 0.8087E+00, 0.8163E+00, 0.8239E+00,& - 0.8315E+00, 0.8391E+00, 0.8470E+00, 0.8549E+00,& - 0.8628E+00, 0.8707E+00, 0.8788E+00, 0.8870E+00,& - 0.8951E+00, 0.9033E+00, 0.9117E+00, 0.9201E+00,& - 0.9286E+00, 0.9372E+00, 0.9457E+00, 0.9544E+00,& - 0.9633E+00, 0.9720E+00, 0.9810E+00, 0.9900E+00,& - 0.9992E+00, 0.1008E+01, 0.1018E+01, 0.1027E+01,& - 0.1036E+01, 0.1046E+01, 0.1055E+01, 0.1065E+01,& - 0.1075E+01, 0.1085E+01, 0.1095E+01, 0.1105E+01,& - 0.1115E+01, 0.1125E+01, 0.1136E+01, 0.1146E+01,& - 0.1157E+01, 0.1167E+01, 0.1178E+01, 0.1189E+01,& - 0.1200E+01, 0.1210E+01, 0.1222E+01, 0.1233E+01,& - 0.1244E+01, 0.1256E+01, 0.1267E+01, 0.1279E+01,& - 0.1290E+01, 0.1302E+01, 0.1314E+01, 0.1326E+01,& - 0.1338E+01, 0.1351E+01, 0.1363E+01, 0.1376E+01,& - 0.1388E+01, 0.1401E+01, 0.1414E+01, 0.1427E+01,& - 0.1440E+01, 0.1453E+01, 0.1466E+01, 0.1480E+01,& - 0.1494E+01, 0.1508E+01, 0.1521E+01, 0.1535E+01,& - 0.1549E+01, 0.1564E+01, 0.1578E+01, 0.1593E+01,& - 0.1608E+01, 0.1622E+01, 0.1637E+01, 0.1652E+01,& - 0.1668E+01, 0.1683E+01, 0.1699E+01, 0.1714E+01,& - 0.1730E+01, 0.1746E+01, 0.1762E+01, 0.1779E+01,& - 0.1795E+01, 0.1812E+01, 0.1829E+01, 0.1846E+01,& - 0.1863E+01, 0.1881E+01, 0.1898E+01, 0.1916E+01,& - 0.1934E+01, 0.1952E+01, 0.1970E+01, 0.1989E+01,& - 0.2008E+01, 0.2026E+01, 0.2045E+01, 0.2065E+01,& - 0.2084E+01, 0.2104E+01, 0.2124E+01, 0.2144E+01,& - 0.2164E+01, 0.2185E+01, 0.2206E+01, 0.2226E+01,& - 0.2248E+01, 0.2269E+01, 0.2291E+01, 0.2313E+01,& - 0.2335E+01, 0.2357E+01, 0.2380E+01, 0.2403E+01,& - 0.2426E+01, 0.2449E+01, 0.2473E+01, 0.2497E+01,& - 0.2521E+01, 0.2546E+01, 0.2571E+01, 0.2596E+01,& - 0.2621E+01, 0.2647E+01, 0.2673E+01, 0.2699E+01,& - 0.2726E+01, 0.2752E+01, 0.2780E+01, 0.2807E+01,& - 0.2835E+01, 0.2863E+01, 0.2892E+01, 0.2921E+01,& - 0.2950E+01, 0.2980E+01, 0.3010E+01, 0.3040E+01,& - 0.3071E+01, 0.3102E+01, 0.3134E+01, 0.3166E+01,& - 0.3198E+01, 0.3231E+01, 0.3264E+01, 0.3298E+01,& - 0.3332E+01, 0.3367E+01, 0.3402E+01, 0.3438E+01,& - 0.3474E+01, 0.3510E+01, 0.3547E+01, 0.3585E+01,& - 0.3623E+01, 0.3662E+01, 0.3701E+01, 0.3741E+01,& - 0.3782E+01, 0.3823E+01, 0.3864E+01, 0.3906E+01,& - 0.3949E+01, 0.3993E+01, 0.4037E+01, 0.4082E+01,& - 0.4128E+01, 0.4174E+01, 0.4221E+01, 0.4270E+01,& - 0.4318E+01, 0.4368E+01, 0.4418E+01, 0.4469E+01,& - 0.4521E+01, 0.4574E+01, 0.4628E+01, 0.4683E+01,& - 0.4739E+01, 0.4796E+01, 0.4854E+01, 0.4913E+01,& - 0.4974E+01, 0.5035E+01, 0.5097E+01, 0.5161E+01,& - 0.5226E+01, 0.5293E+01, 0.5361E+01, 0.5430E+01,& - 0.5501E+01, 0.5573E+01, 0.5647E+01, 0.5722E+01,& - 0.5799E+01, 0.5878E+01, 0.5959E+01, 0.6042E+01,& - 0.6127E+01, 0.6214E+01, 0.6303E+01, 0.6395E+01,& - 0.6489E+01, 0.6585E+01, 0.6685E+01, 0.6787E+01,& - 0.6892E+01, 0.7000E+01, 0.7112E+01, 0.7227E+01,& - 0.7346E+01, 0.7468E+01, 0.7596E+01, 0.7727E+01,& - 0.7863E+01, 0.8005E+01, 0.8152E+01, 0.8305E+01,& - 0.8464E+01, 0.8630E+01, 0.8804E+01, 0.8986E+01,& - 0.9178E+01, 0.9379E+01, 0.9591E+01, 0.9816E+01,& - 0.1005E+02, 0.1031E+02, 0.1058E+02, 0.1087E+02,& - 0.1119E+02, 0.1153E+02, 0.1191E+02, 0.1233E+02,& - 0.1280E+02, 0.1333E+02, 0.1396E+02, 0.1470E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 97) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2866E-03, 0.2866E-03, 0.2866E-03,& - 0.2866E-03, 0.2866E-03, 0.2866E-03, 0.2866E-03,& - 0.2866E-03, 0.2866E-03, 0.2866E-03, 0.2866E-03,& - 0.2866E-03, 0.2866E-03, 0.2866E-03, 0.2866E-03,& - 0.2866E-03, 0.2866E-03, 0.2866E-03, 0.2866E-03,& - 0.2866E-03, 0.2866E-03, 0.2866E-03, 0.2866E-03,& - 0.2866E-03, 0.2866E-03, 0.5631E-03, 0.5631E-03,& - 0.5631E-03, 0.5631E-03, 0.5631E-03, 0.5631E-03,& - 0.5631E-03, 0.5631E-03, 0.5631E-03, 0.5631E-03,& - 0.5631E-03, 0.5631E-03, 0.5631E-03, 0.5631E-03,& - 0.5631E-03, 0.5631E-03, 0.8397E-03, 0.8397E-03,& - 0.8397E-03, 0.8397E-03, 0.8397E-03, 0.8397E-03,& - 0.8397E-03, 0.8397E-03, 0.8397E-03, 0.8397E-03,& - 0.8397E-03, 0.8397E-03, 0.1116E-02, 0.1116E-02,& - 0.1116E-02, 0.1116E-02, 0.1116E-02, 0.1116E-02,& - 0.1116E-02, 0.1116E-02, 0.1116E-02, 0.1393E-02,& - 0.1393E-02, 0.1393E-02, 0.1393E-02, 0.1393E-02,& - 0.1393E-02, 0.1393E-02, 0.1393E-02, 0.1393E-02,& - 0.1669E-02, 0.1669E-02, 0.1669E-02, 0.1669E-02,& - 0.1669E-02, 0.1669E-02, 0.1669E-02, 0.1946E-02,& - 0.1946E-02, 0.1946E-02, 0.1946E-02, 0.1946E-02,& - 0.1946E-02, 0.2223E-02, 0.2223E-02, 0.2223E-02,& - 0.2223E-02, 0.2223E-02, 0.2223E-02, 0.2499E-02,& - 0.2499E-02, 0.2499E-02, 0.2499E-02, 0.2499E-02,& - 0.2776E-02, 0.2776E-02, 0.2776E-02, 0.2776E-02,& - 0.3052E-02, 0.3052E-02, 0.3052E-02, 0.3052E-02,& - 0.3052E-02, 0.3329E-02, 0.3329E-02, 0.3329E-02,& - 0.3329E-02, 0.3605E-02, 0.3605E-02, 0.3605E-02,& - 0.3605E-02, 0.3882E-02, 0.3882E-02, 0.3882E-02,& - 0.4158E-02, 0.4158E-02, 0.4158E-02, 0.4158E-02,& - 0.4435E-02, 0.4435E-02, 0.4435E-02, 0.4712E-02,& - 0.4712E-02, 0.4712E-02, 0.4988E-02, 0.4988E-02,& - 0.4988E-02, 0.5265E-02, 0.5265E-02, 0.5265E-02,& - 0.5541E-02, 0.5541E-02, 0.5818E-02, 0.5818E-02,& - 0.5818E-02, 0.6094E-02, 0.6094E-02, 0.6371E-02,& - 0.6371E-02, 0.6371E-02, 0.6648E-02, 0.6648E-02,& - 0.6924E-02, 0.6924E-02, 0.7201E-02, 0.7201E-02,& - 0.7477E-02, 0.7477E-02, 0.7754E-02, 0.7754E-02,& - 0.8030E-02, 0.8030E-02, 0.8307E-02, 0.8307E-02,& - 0.8584E-02, 0.8584E-02, 0.8860E-02, 0.8860E-02,& - 0.9137E-02, 0.9137E-02, 0.9413E-02, 0.9690E-02,& - 0.9690E-02, 0.9966E-02, 0.9966E-02, 0.1024E-01,& - 0.1052E-01, 0.1052E-01, 0.1080E-01, 0.1107E-01,& - 0.1107E-01, 0.1135E-01, 0.1163E-01, 0.1163E-01,& - 0.1190E-01, 0.1218E-01, 0.1218E-01, 0.1246E-01,& - 0.1273E-01, 0.1301E-01, 0.1301E-01, 0.1329E-01,& - 0.1356E-01, 0.1384E-01, 0.1411E-01, 0.1411E-01,& - 0.1439E-01, 0.1467E-01, 0.1494E-01, 0.1522E-01,& - 0.1550E-01, 0.1550E-01, 0.1577E-01, 0.1605E-01,& - 0.1633E-01, 0.1660E-01, 0.1688E-01, 0.1716E-01,& - 0.1743E-01, 0.1771E-01, 0.1799E-01, 0.1826E-01,& - 0.1854E-01, 0.1882E-01, 0.1909E-01, 0.1937E-01,& - 0.1965E-01, 0.1992E-01, 0.2020E-01, 0.2075E-01,& - 0.2103E-01, 0.2131E-01, 0.2158E-01, 0.2186E-01,& - 0.2214E-01, 0.2269E-01, 0.2296E-01, 0.2324E-01,& - 0.2352E-01, 0.2379E-01, 0.2435E-01, 0.2462E-01,& - 0.2490E-01, 0.2545E-01, 0.2573E-01, 0.2601E-01,& - 0.2656E-01, 0.2684E-01, 0.2739E-01, 0.2767E-01,& - 0.2794E-01, 0.2850E-01, 0.2877E-01, 0.2933E-01,& - 0.2960E-01, 0.3016E-01, 0.3071E-01, 0.3099E-01,& - 0.3154E-01, 0.3182E-01, 0.3237E-01, 0.3292E-01,& - 0.3320E-01, 0.3375E-01, 0.3430E-01, 0.3458E-01,& - 0.3513E-01, 0.3569E-01, 0.3624E-01, 0.3679E-01,& - 0.3707E-01, 0.3762E-01, 0.3818E-01, 0.3873E-01,& - 0.3928E-01, 0.3984E-01, 0.4039E-01, 0.4094E-01,& - 0.4149E-01, 0.4205E-01, 0.4260E-01, 0.4315E-01,& - 0.4371E-01, 0.4426E-01, 0.4481E-01, 0.4564E-01,& - 0.4620E-01, 0.4675E-01, 0.4730E-01, 0.4813E-01,& - 0.4869E-01, 0.4924E-01, 0.5007E-01, 0.5062E-01,& - 0.5117E-01, 0.5200E-01, 0.5256E-01, 0.5339E-01,& - 0.5394E-01, 0.5477E-01, 0.5532E-01, 0.5615E-01,& - 0.5698E-01, 0.5754E-01, 0.5837E-01, 0.5920E-01,& - 0.5975E-01, 0.6058E-01, 0.6141E-01, 0.6224E-01,& - 0.6307E-01, 0.6390E-01, 0.6473E-01, 0.6556E-01,& - 0.6639E-01, 0.6722E-01, 0.6805E-01, 0.6887E-01,& - 0.6970E-01, 0.7053E-01, 0.7136E-01, 0.7247E-01,& - 0.7330E-01, 0.7413E-01, 0.7496E-01, 0.7607E-01,& - 0.7690E-01, 0.7800E-01, 0.7883E-01, 0.7994E-01,& - 0.8077E-01, 0.8187E-01, 0.8270E-01, 0.8381E-01,& - 0.8492E-01, 0.8602E-01, 0.8685E-01, 0.8796E-01,& - 0.8906E-01, 0.9017E-01, 0.9128E-01, 0.9238E-01,& - 0.9349E-01, 0.9460E-01, 0.9570E-01, 0.9681E-01,& - 0.9791E-01, 0.9930E-01, 0.1004E+00, 0.1015E+00,& - 0.1029E+00, 0.1040E+00, 0.1054E+00, 0.1065E+00,& - 0.1079E+00, 0.1090E+00, 0.1104E+00, 0.1117E+00,& - 0.1128E+00, 0.1142E+00, 0.1156E+00, 0.1170E+00,& - 0.1184E+00, 0.1198E+00, 0.1211E+00, 0.1225E+00,& - 0.1239E+00, 0.1253E+00, 0.1267E+00, 0.1283E+00,& - 0.1297E+00, 0.1311E+00, 0.1328E+00, 0.1341E+00,& - 0.1358E+00, 0.1372E+00, 0.1388E+00, 0.1405E+00,& - 0.1422E+00, 0.1435E+00, 0.1452E+00, 0.1469E+00,& - 0.1485E+00, 0.1502E+00, 0.1518E+00, 0.1538E+00,& - 0.1554E+00, 0.1571E+00, 0.1590E+00, 0.1607E+00,& - 0.1624E+00, 0.1643E+00, 0.1662E+00, 0.1679E+00,& - 0.1698E+00, 0.1718E+00, 0.1737E+00, 0.1756E+00,& - 0.1776E+00, 0.1795E+00, 0.1814E+00, 0.1834E+00,& - 0.1853E+00, 0.1875E+00, 0.1895E+00, 0.1914E+00,& - 0.1936E+00, 0.1958E+00, 0.1978E+00, 0.2000E+00,& - 0.2022E+00, 0.2044E+00, 0.2066E+00, 0.2088E+00,& - 0.2110E+00, 0.2132E+00, 0.2157E+00, 0.2179E+00,& - 0.2202E+00, 0.2226E+00, 0.2249E+00, 0.2273E+00,& - 0.2298E+00, 0.2323E+00, 0.2348E+00, 0.2373E+00,& - 0.2398E+00, 0.2423E+00, 0.2448E+00, 0.2475E+00,& - 0.2500E+00, 0.2528E+00, 0.2553E+00, 0.2580E+00,& - 0.2608E+00, 0.2636E+00, 0.2663E+00, 0.2691E+00,& - 0.2719E+00, 0.2746E+00, 0.2774E+00, 0.2804E+00,& - 0.2832E+00, 0.2863E+00, 0.2893E+00, 0.2921E+00,& - 0.2951E+00, 0.2981E+00, 0.3015E+00, 0.3045E+00,& - 0.3076E+00, 0.3106E+00, 0.3139E+00, 0.3172E+00,& - 0.3203E+00, 0.3236E+00, 0.3269E+00, 0.3302E+00,& - 0.3335E+00, 0.3371E+00, 0.3405E+00, 0.3441E+00,& - 0.3474E+00, 0.3510E+00, 0.3546E+00, 0.3582E+00,& - 0.3618E+00, 0.3654E+00, 0.3689E+00, 0.3728E+00,& - 0.3764E+00, 0.3803E+00, 0.3842E+00, 0.3880E+00,& - 0.3919E+00, 0.3958E+00, 0.3996E+00, 0.4038E+00,& - 0.4077E+00, 0.4118E+00, 0.4160E+00, 0.4201E+00,& - 0.4243E+00, 0.4284E+00, 0.4326E+00, 0.4370E+00,& - 0.4411E+00, 0.4456E+00, 0.4500E+00, 0.4544E+00,& - 0.4588E+00, 0.4633E+00, 0.4680E+00, 0.4727E+00,& - 0.4771E+00, 0.4818E+00, 0.4865E+00, 0.4915E+00,& - 0.4962E+00, 0.5009E+00, 0.5058E+00, 0.5108E+00,& - 0.5158E+00, 0.5208E+00, 0.5258E+00, 0.5310E+00,& - 0.5360E+00, 0.5412E+00, 0.5465E+00, 0.5518E+00,& - 0.5573E+00, 0.5625E+00, 0.5681E+00, 0.5736E+00,& - 0.5791E+00, 0.5847E+00, 0.5902E+00, 0.5960E+00,& - 0.6015E+00, 0.6073E+00, 0.6132E+00, 0.6192E+00,& - 0.6250E+00, 0.6311E+00, 0.6372E+00, 0.6433E+00,& - 0.6494E+00, 0.6555E+00, 0.6618E+00, 0.6682E+00,& - 0.6746E+00, 0.6809E+00, 0.6873E+00, 0.6939E+00,& - 0.7006E+00, 0.7072E+00, 0.7138E+00, 0.7207E+00,& - 0.7274E+00, 0.7343E+00, 0.7412E+00, 0.7484E+00,& - 0.7553E+00, 0.7625E+00, 0.7697E+00, 0.7772E+00,& - 0.7843E+00, 0.7918E+00, 0.7993E+00, 0.8068E+00,& - 0.8145E+00, 0.8220E+00, 0.8297E+00, 0.8375E+00,& - 0.8455E+00, 0.8535E+00, 0.8615E+00, 0.8695E+00,& - 0.8776E+00, 0.8858E+00, 0.8941E+00, 0.9024E+00,& - 0.9110E+00, 0.9196E+00, 0.9282E+00, 0.9367E+00,& - 0.9456E+00, 0.9544E+00, 0.9633E+00, 0.9724E+00,& - 0.9815E+00, 0.9907E+00, 0.9998E+00, 0.1009E+01,& - 0.1019E+01, 0.1028E+01, 0.1038E+01, 0.1047E+01,& - 0.1057E+01, 0.1067E+01, 0.1077E+01, 0.1087E+01,& - 0.1097E+01, 0.1107E+01, 0.1118E+01, 0.1128E+01,& - 0.1139E+01, 0.1149E+01, 0.1160E+01, 0.1171E+01,& - 0.1181E+01, 0.1193E+01, 0.1204E+01, 0.1215E+01,& - 0.1226E+01, 0.1238E+01, 0.1249E+01, 0.1261E+01,& - 0.1272E+01, 0.1284E+01, 0.1296E+01, 0.1308E+01,& - 0.1321E+01, 0.1333E+01, 0.1345E+01, 0.1358E+01,& - 0.1370E+01, 0.1383E+01, 0.1396E+01, 0.1409E+01,& - 0.1422E+01, 0.1436E+01, 0.1449E+01, 0.1462E+01,& - 0.1476E+01, 0.1490E+01, 0.1504E+01, 0.1518E+01,& - 0.1532E+01, 0.1547E+01, 0.1561E+01, 0.1576E+01,& - 0.1590E+01, 0.1605E+01, 0.1620E+01, 0.1636E+01,& - 0.1651E+01, 0.1666E+01, 0.1682E+01, 0.1698E+01,& - 0.1714E+01, 0.1730E+01, 0.1746E+01, 0.1763E+01,& - 0.1779E+01, 0.1796E+01, 0.1813E+01, 0.1830E+01,& - 0.1847E+01, 0.1865E+01, 0.1883E+01, 0.1901E+01,& - 0.1919E+01, 0.1937E+01, 0.1955E+01, 0.1974E+01,& - 0.1993E+01, 0.2011E+01, 0.2031E+01, 0.2050E+01,& - 0.2070E+01, 0.2089E+01, 0.2110E+01, 0.2130E+01,& - 0.2150E+01, 0.2171E+01, 0.2192E+01, 0.2213E+01,& - 0.2234E+01, 0.2256E+01, 0.2278E+01, 0.2300E+01,& - 0.2322E+01, 0.2345E+01, 0.2368E+01, 0.2391E+01,& - 0.2414E+01, 0.2438E+01, 0.2462E+01, 0.2486E+01,& - 0.2510E+01, 0.2535E+01, 0.2560E+01, 0.2585E+01,& - 0.2611E+01, 0.2637E+01, 0.2663E+01, 0.2689E+01,& - 0.2716E+01, 0.2744E+01, 0.2771E+01, 0.2799E+01,& - 0.2827E+01, 0.2856E+01, 0.2884E+01, 0.2914E+01,& - 0.2943E+01, 0.2973E+01, 0.3004E+01, 0.3034E+01,& - 0.3065E+01, 0.3097E+01, 0.3129E+01, 0.3161E+01,& - 0.3194E+01, 0.3227E+01, 0.3261E+01, 0.3295E+01,& - 0.3329E+01, 0.3364E+01, 0.3400E+01, 0.3436E+01,& - 0.3473E+01, 0.3510E+01, 0.3547E+01, 0.3585E+01,& - 0.3624E+01, 0.3663E+01, 0.3703E+01, 0.3743E+01,& - 0.3784E+01, 0.3825E+01, 0.3868E+01, 0.3911E+01,& - 0.3954E+01, 0.3998E+01, 0.4043E+01, 0.4089E+01,& - 0.4135E+01, 0.4182E+01, 0.4230E+01, 0.4278E+01,& - 0.4328E+01, 0.4378E+01, 0.4429E+01, 0.4481E+01,& - 0.4534E+01, 0.4588E+01, 0.4642E+01, 0.4698E+01,& - 0.4755E+01, 0.4813E+01, 0.4871E+01, 0.4931E+01,& - 0.4992E+01, 0.5055E+01, 0.5118E+01, 0.5183E+01,& - 0.5249E+01, 0.5316E+01, 0.5385E+01, 0.5456E+01,& - 0.5527E+01, 0.5601E+01, 0.5676E+01, 0.5753E+01,& - 0.5831E+01, 0.5911E+01, 0.5993E+01, 0.6078E+01,& - 0.6164E+01, 0.6252E+01, 0.6343E+01, 0.6436E+01,& - 0.6532E+01, 0.6630E+01, 0.6731E+01, 0.6834E+01,& - 0.6942E+01, 0.7052E+01, 0.7165E+01, 0.7282E+01,& - 0.7403E+01, 0.7528E+01, 0.7657E+01, 0.7791E+01,& - 0.6797E+01, 0.8074E+01, 0.8223E+01, 0.8379E+01,& - 0.8541E+01, 0.8710E+01, 0.8888E+01, 0.9073E+01,& - 0.9268E+01, 0.9473E+01, 0.9689E+01, 0.9918E+01,& - 0.1016E+02, 0.1042E+02, 0.1070E+02, 0.1100E+02,& - 0.1132E+02, 0.1167E+02, 0.1205E+02, 0.1248E+02,& - 0.1296E+02, 0.1351E+02, 0.1414E+02, 0.1490E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 98) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.2914E-03, 0.2914E-03, 0.2914E-03, 0.2914E-03,& - 0.2914E-03, 0.2914E-03, 0.2914E-03, 0.2914E-03,& - 0.2914E-03, 0.2914E-03, 0.2914E-03, 0.2914E-03,& - 0.2914E-03, 0.2914E-03, 0.2914E-03, 0.2914E-03,& - 0.2914E-03, 0.2914E-03, 0.2914E-03, 0.2914E-03,& - 0.2914E-03, 0.2914E-03, 0.2914E-03, 0.2914E-03,& - 0.2914E-03, 0.5727E-03, 0.5727E-03, 0.5727E-03,& - 0.5727E-03, 0.5727E-03, 0.5727E-03, 0.5727E-03,& - 0.5727E-03, 0.5727E-03, 0.5727E-03, 0.5727E-03,& - 0.5727E-03, 0.5727E-03, 0.5727E-03, 0.5727E-03,& - 0.5727E-03, 0.8541E-03, 0.8541E-03, 0.8541E-03,& - 0.8541E-03, 0.8541E-03, 0.8541E-03, 0.8541E-03,& - 0.8541E-03, 0.8541E-03, 0.8541E-03, 0.8541E-03,& - 0.8541E-03, 0.1135E-02, 0.1135E-02, 0.1135E-02,& - 0.1135E-02, 0.1135E-02, 0.1135E-02, 0.1135E-02,& - 0.1135E-02, 0.1135E-02, 0.1417E-02, 0.1417E-02,& - 0.1417E-02, 0.1417E-02, 0.1417E-02, 0.1417E-02,& - 0.1417E-02, 0.1417E-02, 0.1417E-02, 0.1698E-02,& - 0.1698E-02, 0.1698E-02, 0.1698E-02, 0.1698E-02,& - 0.1698E-02, 0.1698E-02, 0.1980E-02, 0.1980E-02,& - 0.1980E-02, 0.1980E-02, 0.1980E-02, 0.1980E-02,& - 0.2261E-02, 0.2261E-02, 0.2261E-02, 0.2261E-02,& - 0.2261E-02, 0.2261E-02, 0.2542E-02, 0.2542E-02,& - 0.2542E-02, 0.2542E-02, 0.2542E-02, 0.2824E-02,& - 0.2824E-02, 0.2824E-02, 0.2824E-02, 0.3105E-02,& - 0.3105E-02, 0.3105E-02, 0.3105E-02, 0.3105E-02,& - 0.3386E-02, 0.3386E-02, 0.3386E-02, 0.3386E-02,& - 0.3668E-02, 0.3668E-02, 0.3668E-02, 0.3668E-02,& - 0.3949E-02, 0.3949E-02, 0.3949E-02, 0.4230E-02,& - 0.4230E-02, 0.4230E-02, 0.4230E-02, 0.4512E-02,& - 0.4512E-02, 0.4512E-02, 0.4793E-02, 0.4793E-02,& - 0.4793E-02, 0.5074E-02, 0.5074E-02, 0.5074E-02,& - 0.5356E-02, 0.5356E-02, 0.5356E-02, 0.5637E-02,& - 0.5637E-02, 0.5919E-02, 0.5919E-02, 0.5919E-02,& - 0.6200E-02, 0.6200E-02, 0.6481E-02, 0.6481E-02,& - 0.6481E-02, 0.6763E-02, 0.6763E-02, 0.7044E-02,& - 0.7044E-02, 0.7325E-02, 0.7325E-02, 0.7607E-02,& - 0.7607E-02, 0.7888E-02, 0.7888E-02, 0.8169E-02,& - 0.8169E-02, 0.8451E-02, 0.8451E-02, 0.8732E-02,& - 0.8732E-02, 0.9013E-02, 0.9013E-02, 0.9295E-02,& - 0.9295E-02, 0.9576E-02, 0.9858E-02, 0.9858E-02,& - 0.1014E-01, 0.1014E-01, 0.1042E-01, 0.1070E-01,& - 0.1070E-01, 0.1098E-01, 0.1126E-01, 0.1126E-01,& - 0.1155E-01, 0.1183E-01, 0.1183E-01, 0.1211E-01,& - 0.1239E-01, 0.1239E-01, 0.1267E-01, 0.1295E-01,& - 0.1323E-01, 0.1323E-01, 0.1352E-01, 0.1380E-01,& - 0.1408E-01, 0.1436E-01, 0.1436E-01, 0.1464E-01,& - 0.1492E-01, 0.1520E-01, 0.1548E-01, 0.1577E-01,& - 0.1577E-01, 0.1605E-01, 0.1633E-01, 0.1661E-01,& - 0.1689E-01, 0.1717E-01, 0.1745E-01, 0.1774E-01,& - 0.1802E-01, 0.1830E-01, 0.1858E-01, 0.1886E-01,& - 0.1914E-01, 0.1942E-01, 0.1971E-01, 0.1999E-01,& - 0.2027E-01, 0.2055E-01, 0.2111E-01, 0.2139E-01,& - 0.2167E-01, 0.2196E-01, 0.2224E-01, 0.2252E-01,& - 0.2308E-01, 0.2336E-01, 0.2364E-01, 0.2393E-01,& - 0.2449E-01, 0.2477E-01, 0.2505E-01, 0.2533E-01,& - 0.2589E-01, 0.2618E-01, 0.2674E-01, 0.2702E-01,& - 0.2730E-01, 0.2786E-01, 0.2815E-01, 0.2871E-01,& - 0.2899E-01, 0.2955E-01, 0.2983E-01, 0.3040E-01,& - 0.3068E-01, 0.3124E-01, 0.3152E-01, 0.3208E-01,& - 0.3265E-01, 0.3293E-01, 0.3349E-01, 0.3405E-01,& - 0.3434E-01, 0.3490E-01, 0.3546E-01, 0.3574E-01,& - 0.3631E-01, 0.3687E-01, 0.3743E-01, 0.3799E-01,& - 0.3856E-01, 0.3884E-01, 0.3940E-01, 0.3996E-01,& - 0.4053E-01, 0.4109E-01, 0.4165E-01, 0.4221E-01,& - 0.4278E-01, 0.4334E-01, 0.4418E-01, 0.4475E-01,& - 0.4531E-01, 0.4587E-01, 0.4643E-01, 0.4700E-01,& - 0.4784E-01, 0.4840E-01, 0.4897E-01, 0.4981E-01,& - 0.5037E-01, 0.5094E-01, 0.5178E-01, 0.5234E-01,& - 0.5319E-01, 0.5375E-01, 0.5459E-01, 0.5516E-01,& - 0.5600E-01, 0.5656E-01, 0.5741E-01, 0.5825E-01,& - 0.5881E-01, 0.5966E-01, 0.6050E-01, 0.6135E-01,& - 0.6191E-01, 0.6275E-01, 0.6360E-01, 0.6444E-01,& - 0.6528E-01, 0.6613E-01, 0.6697E-01, 0.6782E-01,& - 0.6866E-01, 0.6951E-01, 0.7035E-01, 0.7147E-01,& - 0.7232E-01, 0.7316E-01, 0.7401E-01, 0.7513E-01,& - 0.7598E-01, 0.7682E-01, 0.7795E-01, 0.7879E-01,& - 0.7992E-01, 0.8076E-01, 0.8189E-01, 0.8273E-01,& - 0.8385E-01, 0.8498E-01, 0.8582E-01, 0.8695E-01,& - 0.8807E-01, 0.8920E-01, 0.9033E-01, 0.9145E-01,& - 0.9258E-01, 0.9370E-01, 0.9483E-01, 0.9595E-01,& - 0.9708E-01, 0.9820E-01, 0.9933E-01, 0.1005E+00,& - 0.1019E+00, 0.1030E+00, 0.1044E+00, 0.1055E+00,& - 0.1066E+00, 0.1081E+00, 0.1095E+00, 0.1106E+00,& - 0.1120E+00, 0.1134E+00, 0.1145E+00, 0.1159E+00,& - 0.1173E+00, 0.1187E+00, 0.1201E+00, 0.1216E+00,& - 0.1230E+00, 0.1244E+00, 0.1258E+00, 0.1275E+00,& - 0.1289E+00, 0.1303E+00, 0.1317E+00, 0.1334E+00,& - 0.1348E+00, 0.1365E+00, 0.1382E+00, 0.1396E+00,& - 0.1413E+00, 0.1429E+00, 0.1443E+00, 0.1460E+00,& - 0.1477E+00, 0.1494E+00, 0.1511E+00, 0.1528E+00,& - 0.1548E+00, 0.1564E+00, 0.1581E+00, 0.1601E+00,& - 0.1618E+00, 0.1635E+00, 0.1654E+00, 0.1674E+00,& - 0.1691E+00, 0.1711E+00, 0.1730E+00, 0.1750E+00,& - 0.1770E+00, 0.1790E+00, 0.1809E+00, 0.1829E+00,& - 0.1849E+00, 0.1868E+00, 0.1891E+00, 0.1911E+00,& - 0.1933E+00, 0.1953E+00, 0.1975E+00, 0.1998E+00,& - 0.2017E+00, 0.2040E+00, 0.2062E+00, 0.2085E+00,& - 0.2107E+00, 0.2130E+00, 0.2155E+00, 0.2178E+00,& - 0.2200E+00, 0.2226E+00, 0.2248E+00, 0.2273E+00,& - 0.2299E+00, 0.2324E+00, 0.2349E+00, 0.2364E+00,& - 0.2400E+00, 0.2425E+00, 0.2451E+00, 0.2476E+00,& - 0.2504E+00, 0.2530E+00, 0.2558E+00, 0.2583E+00,& - 0.2611E+00, 0.2639E+00, 0.2667E+00, 0.2696E+00,& - 0.2724E+00, 0.2752E+00, 0.2783E+00, 0.2811E+00,& - 0.2842E+00, 0.2870E+00, 0.2901E+00, 0.2932E+00,& - 0.2963E+00, 0.2994E+00, 0.3025E+00, 0.3056E+00,& - 0.3087E+00, 0.3120E+00, 0.3151E+00, 0.3185E+00,& - 0.3219E+00, 0.3250E+00, 0.3284E+00, 0.3317E+00,& - 0.3354E+00, 0.3388E+00, 0.3421E+00, 0.3458E+00,& - 0.3492E+00, 0.3528E+00, 0.3565E+00, 0.3601E+00,& - 0.3638E+00, 0.3675E+00, 0.3714E+00, 0.3751E+00,& - 0.3790E+00, 0.3827E+00, 0.3866E+00, 0.3905E+00,& - 0.3945E+00, 0.3984E+00, 0.4026E+00, 0.4066E+00,& - 0.4108E+00, 0.4150E+00, 0.4190E+00, 0.4232E+00,& - 0.4277E+00, 0.4319E+00, 0.4361E+00, 0.4406E+00,& - 0.4448E+00, 0.4493E+00, 0.4538E+00, 0.4583E+00,& - 0.4631E+00, 0.4676E+00, 0.4724E+00, 0.4769E+00,& - 0.4817E+00, 0.4865E+00, 0.4913E+00, 0.4963E+00,& - 0.5011E+00, 0.5062E+00, 0.5112E+00, 0.5160E+00,& - 0.5214E+00, 0.5264E+00, 0.5315E+00, 0.5368E+00,& - 0.5422E+00, 0.5475E+00, 0.5529E+00, 0.5582E+00,& - 0.5636E+00, 0.5692E+00, 0.5748E+00, 0.5805E+00,& - 0.5861E+00, 0.5917E+00, 0.5976E+00, 0.6035E+00,& - 0.6094E+00, 0.6153E+00, 0.6212E+00, 0.6272E+00,& - 0.6333E+00, 0.6395E+00, 0.6457E+00, 0.6519E+00,& - 0.6584E+00, 0.6646E+00, 0.6710E+00, 0.6775E+00,& - 0.6840E+00, 0.6907E+00, 0.6975E+00, 0.7042E+00,& - 0.7110E+00, 0.7178E+00, 0.7248E+00, 0.7315E+00,& - 0.7386E+00, 0.7459E+00, 0.7529E+00, 0.7602E+00,& - 0.7676E+00, 0.7749E+00, 0.7822E+00, 0.7898E+00,& - 0.7974E+00, 0.8050E+00, 0.8126E+00, 0.8204E+00,& - 0.8280E+00, 0.8362E+00, 0.8441E+00, 0.8522E+00,& - 0.8601E+00, 0.8686E+00, 0.8767E+00, 0.8852E+00,& - 0.8936E+00, 0.9020E+00, 0.9105E+00, 0.9192E+00,& - 0.9279E+00, 0.9366E+00, 0.9457E+00, 0.9547E+00,& - 0.9637E+00, 0.9729E+00, 0.9819E+00, 0.9915E+00,& - 0.1001E+01, 0.1010E+01, 0.1020E+01, 0.1029E+01,& - 0.1039E+01, 0.1049E+01, 0.1059E+01, 0.1069E+01,& - 0.1079E+01, 0.1089E+01, 0.1100E+01, 0.1110E+01,& - 0.1121E+01, 0.1131E+01, 0.1142E+01, 0.1153E+01,& - 0.1164E+01, 0.1175E+01, 0.1186E+01, 0.1197E+01,& - 0.1208E+01, 0.1220E+01, 0.1231E+01, 0.1243E+01,& - 0.1255E+01, 0.1266E+01, 0.1278E+01, 0.1290E+01,& - 0.1303E+01, 0.1315E+01, 0.1327E+01, 0.1340E+01,& - 0.1352E+01, 0.1365E+01, 0.1378E+01, 0.1391E+01,& - 0.1405E+01, 0.1418E+01, 0.1431E+01, 0.1445E+01,& - 0.1459E+01, 0.1472E+01, 0.1486E+01, 0.1500E+01,& - 0.1515E+01, 0.1529E+01, 0.1544E+01, 0.1558E+01,& - 0.1573E+01, 0.1588E+01, 0.1603E+01, 0.1618E+01,& - 0.1634E+01, 0.1649E+01, 0.1665E+01, 0.1681E+01,& - 0.1697E+01, 0.1713E+01, 0.1730E+01, 0.1746E+01,& - 0.1763E+01, 0.1780E+01, 0.1797E+01, 0.1814E+01,& - 0.1831E+01, 0.1849E+01, 0.1867E+01, 0.1885E+01,& - 0.1903E+01, 0.1921E+01, 0.1939E+01, 0.1958E+01,& - 0.1977E+01, 0.1996E+01, 0.2016E+01, 0.2035E+01,& - 0.2055E+01, 0.2075E+01, 0.2095E+01, 0.2115E+01,& - 0.2136E+01, 0.2157E+01, 0.2178E+01, 0.2199E+01,& - 0.2220E+01, 0.2242E+01, 0.2264E+01, 0.2287E+01,& - 0.2309E+01, 0.2332E+01, 0.2355E+01, 0.2378E+01,& - 0.2402E+01, 0.2426E+01, 0.2450E+01, 0.2474E+01,& - 0.2498E+01, 0.2524E+01, 0.2549E+01, 0.2574E+01,& - 0.2600E+01, 0.2626E+01, 0.2653E+01, 0.2679E+01,& - 0.2706E+01, 0.2734E+01, 0.2762E+01, 0.2790E+01,& - 0.2818E+01, 0.2847E+01, 0.2876E+01, 0.2906E+01,& - 0.2935E+01, 0.2966E+01, 0.2996E+01, 0.3027E+01,& - 0.3059E+01, 0.3091E+01, 0.3123E+01, 0.3156E+01,& - 0.3189E+01, 0.3222E+01, 0.3256E+01, 0.3291E+01,& - 0.3326E+01, 0.3361E+01, 0.3397E+01, 0.3434E+01,& - 0.3471E+01, 0.3508E+01, 0.3546E+01, 0.3585E+01,& - 0.3624E+01, 0.3663E+01, 0.3704E+01, 0.3744E+01,& - 0.3786E+01, 0.3828E+01, 0.3871E+01, 0.3914E+01,& - 0.3958E+01, 0.4003E+01, 0.4048E+01, 0.4094E+01,& - 0.4141E+01, 0.4189E+01, 0.4237E+01, 0.4286E+01,& - 0.4337E+01, 0.4388E+01, 0.4439E+01, 0.4492E+01,& - 0.4545E+01, 0.4600E+01, 0.4655E+01, 0.4712E+01,& - 0.4770E+01, 0.4828E+01, 0.4888E+01, 0.4949E+01,& - 0.5011E+01, 0.5074E+01, 0.5138E+01, 0.5204E+01,& - 0.5271E+01, 0.5339E+01, 0.5409E+01, 0.5481E+01,& - 0.5554E+01, 0.5628E+01, 0.5704E+01, 0.5782E+01,& - 0.5862E+01, 0.5943E+01, 0.6027E+01, 0.6112E+01,& - 0.6200E+01, 0.6290E+01, 0.6382E+01, 0.6477E+01,& - 0.6574E+01, 0.6674E+01, 0.6776E+01, 0.6882E+01,& - 0.6990E+01, 0.7102E+01, 0.7218E+01, 0.7337E+01,& - 0.7460E+01, 0.7587E+01, 0.7718E+01, 0.7853E+01,& - 0.7995E+01, 0.8142E+01, 0.8294E+01, 0.8453E+01,& - 0.8618E+01, 0.8790E+01, 0.8971E+01, 0.9160E+01,& - 0.9358E+01, 0.9567E+01, 0.9787E+01, 0.1002E+02,& - 0.1027E+02, 0.1053E+02, 0.1081E+02, 0.1112E+02,& - 0.1145E+02, 0.1180E+02, 0.1220E+02, 0.1263E+02,& - 0.1312E+02, 0.1368E+02, 0.1432E+02, 0.1510E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 99) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.2962E-03, 0.2962E-03,& - 0.2962E-03, 0.2962E-03, 0.2962E-03, 0.2962E-03,& - 0.2962E-03, 0.2962E-03, 0.2962E-03, 0.2962E-03,& - 0.2962E-03, 0.2962E-03, 0.2962E-03, 0.2962E-03,& - 0.2962E-03, 0.2962E-03, 0.2962E-03, 0.2962E-03,& - 0.2962E-03, 0.2962E-03, 0.2962E-03, 0.2962E-03,& - 0.2962E-03, 0.2962E-03, 0.2962E-03, 0.5824E-03,& - 0.5824E-03, 0.5824E-03, 0.5824E-03, 0.5824E-03,& - 0.5824E-03, 0.5824E-03, 0.5824E-03, 0.5824E-03,& - 0.5824E-03, 0.5824E-03, 0.5824E-03, 0.5824E-03,& - 0.5824E-03, 0.5824E-03, 0.5824E-03, 0.5824E-03,& - 0.8686E-03, 0.8686E-03, 0.8686E-03, 0.8686E-03,& - 0.8686E-03, 0.8686E-03, 0.8686E-03, 0.8686E-03,& - 0.8686E-03, 0.8686E-03, 0.8686E-03, 0.8686E-03,& - 0.1155E-02, 0.1155E-02, 0.1155E-02, 0.1155E-02,& - 0.1155E-02, 0.1155E-02, 0.1155E-02, 0.1155E-02,& - 0.1155E-02, 0.1441E-02, 0.1441E-02, 0.1441E-02,& - 0.1441E-02, 0.1441E-02, 0.1441E-02, 0.1441E-02,& - 0.1441E-02, 0.1727E-02, 0.1727E-02, 0.1727E-02,& - 0.1727E-02, 0.1727E-02, 0.1727E-02, 0.1727E-02,& - 0.1727E-02, 0.2013E-02, 0.2013E-02, 0.2013E-02,& - 0.2013E-02, 0.2013E-02, 0.2013E-02, 0.2300E-02,& - 0.2300E-02, 0.2300E-02, 0.2300E-02, 0.2300E-02,& - 0.2300E-02, 0.2586E-02, 0.2586E-02, 0.2586E-02,& - 0.2586E-02, 0.2586E-02, 0.2872E-02, 0.2872E-02,& - 0.2872E-02, 0.2872E-02, 0.3158E-02, 0.3158E-02,& - 0.3158E-02, 0.3158E-02, 0.3158E-02, 0.3444E-02,& - 0.3444E-02, 0.3444E-02, 0.3444E-02, 0.3731E-02,& - 0.3731E-02, 0.3731E-02, 0.3731E-02, 0.4017E-02,& - 0.4017E-02, 0.4017E-02, 0.4303E-02, 0.4303E-02,& - 0.4303E-02, 0.4303E-02, 0.4589E-02, 0.4589E-02,& - 0.4589E-02, 0.4875E-02, 0.4875E-02, 0.4875E-02,& - 0.5162E-02, 0.5162E-02, 0.5162E-02, 0.5448E-02,& - 0.5448E-02, 0.5448E-02, 0.5734E-02, 0.5734E-02,& - 0.6020E-02, 0.6020E-02, 0.6020E-02, 0.6306E-02,& - 0.6306E-02, 0.6593E-02, 0.6593E-02, 0.6593E-02,& - 0.6879E-02, 0.6879E-02, 0.7165E-02, 0.7165E-02,& - 0.7451E-02, 0.7451E-02, 0.7737E-02, 0.7737E-02,& - 0.8024E-02, 0.8024E-02, 0.8310E-02, 0.8310E-02,& - 0.8596E-02, 0.8596E-02, 0.8882E-02, 0.8882E-02,& - 0.9168E-02, 0.9168E-02, 0.9455E-02, 0.9455E-02,& - 0.9741E-02, 0.1003E-01, 0.1003E-01, 0.1031E-01,& - 0.1031E-01, 0.1060E-01, 0.1089E-01, 0.1089E-01,& - 0.1117E-01, 0.1146E-01, 0.1146E-01, 0.1174E-01,& - 0.1203E-01, 0.1203E-01, 0.1232E-01, 0.1260E-01,& - 0.1260E-01, 0.1289E-01, 0.1318E-01, 0.1346E-01,& - 0.1346E-01, 0.1375E-01, 0.1403E-01, 0.1432E-01,& - 0.1461E-01, 0.1461E-01, 0.1489E-01, 0.1518E-01,& - 0.1546E-01, 0.1575E-01, 0.1604E-01, 0.1632E-01,& - 0.1632E-01, 0.1661E-01, 0.1690E-01, 0.1718E-01,& - 0.1747E-01, 0.1775E-01, 0.1804E-01, 0.1833E-01,& - 0.1861E-01, 0.1890E-01, 0.1919E-01, 0.1947E-01,& - 0.1976E-01, 0.2004E-01, 0.2033E-01, 0.2062E-01,& - 0.2119E-01, 0.2147E-01, 0.2176E-01, 0.2205E-01,& - 0.2233E-01, 0.2262E-01, 0.2319E-01, 0.2348E-01,& - 0.2376E-01, 0.2405E-01, 0.2434E-01, 0.2491E-01,& - 0.2520E-01, 0.2548E-01, 0.2605E-01, 0.2634E-01,& - 0.2663E-01, 0.2720E-01, 0.2748E-01, 0.2806E-01,& - 0.2834E-01, 0.2863E-01, 0.2920E-01, 0.2949E-01,& - 0.3006E-01, 0.3035E-01, 0.3092E-01, 0.3149E-01,& - 0.3178E-01, 0.3235E-01, 0.3264E-01, 0.3321E-01,& - 0.3378E-01, 0.3407E-01, 0.3464E-01, 0.3521E-01,& - 0.3550E-01, 0.3607E-01, 0.3664E-01, 0.3722E-01,& - 0.3779E-01, 0.3807E-01, 0.3865E-01, 0.3922E-01,& - 0.3979E-01, 0.4036E-01, 0.4094E-01, 0.4151E-01,& - 0.4208E-01, 0.4265E-01, 0.4323E-01, 0.4380E-01,& - 0.4437E-01, 0.4494E-01, 0.4580E-01, 0.4637E-01,& - 0.4695E-01, 0.4752E-01, 0.4809E-01, 0.4895E-01,& - 0.4952E-01, 0.5009E-01, 0.5095E-01, 0.5153E-01,& - 0.5210E-01, 0.5296E-01, 0.5353E-01, 0.5439E-01,& - 0.5496E-01, 0.5582E-01, 0.5639E-01, 0.5725E-01,& - 0.5811E-01, 0.5868E-01, 0.5954E-01, 0.6040E-01,& - 0.6126E-01, 0.6183E-01, 0.6269E-01, 0.6355E-01,& - 0.6440E-01, 0.6526E-01, 0.6612E-01, 0.6698E-01,& - 0.6784E-01, 0.6870E-01, 0.6956E-01, 0.7041E-01,& - 0.7127E-01, 0.7213E-01, 0.7299E-01, 0.7414E-01,& - 0.7499E-01, 0.7585E-01, 0.7700E-01, 0.7786E-01,& - 0.7900E-01, 0.7986E-01, 0.8100E-01, 0.8186E-01,& - 0.8301E-01, 0.8387E-01, 0.8501E-01, 0.8616E-01,& - 0.8701E-01, 0.8816E-01, 0.8930E-01, 0.9045E-01,& - 0.9159E-01, 0.9274E-01, 0.9388E-01, 0.9503E-01,& - 0.9617E-01, 0.9732E-01, 0.9846E-01, 0.9961E-01,& - 0.1008E+00, 0.1022E+00, 0.1033E+00, 0.1045E+00,& - 0.1059E+00, 0.1070E+00, 0.1085E+00, 0.1096E+00,& - 0.1111E+00, 0.1125E+00, 0.1136E+00, 0.1151E+00,& - 0.1165E+00, 0.1179E+00, 0.1194E+00, 0.1208E+00,& - 0.1222E+00, 0.1236E+00, 0.1251E+00, 0.1265E+00,& - 0.1279E+00, 0.1294E+00, 0.1311E+00, 0.1325E+00,& - 0.1342E+00, 0.1357E+00, 0.1374E+00, 0.1388E+00,& - 0.1405E+00, 0.1423E+00, 0.1437E+00, 0.1454E+00,& - 0.1471E+00, 0.1488E+00, 0.1505E+00, 0.1523E+00,& - 0.1540E+00, 0.1557E+00, 0.1577E+00, 0.1594E+00,& - 0.1611E+00, 0.1631E+00, 0.1649E+00, 0.1669E+00,& - 0.1686E+00, 0.1706E+00, 0.1726E+00, 0.1746E+00,& - 0.1766E+00, 0.1783E+00, 0.1803E+00, 0.1826E+00,& - 0.1846E+00, 0.1866E+00, 0.1886E+00, 0.1909E+00,& - 0.1929E+00, 0.1952E+00, 0.1972E+00, 0.1995E+00,& - 0.2018E+00, 0.2038E+00, 0.2061E+00, 0.2084E+00,& - 0.2107E+00, 0.2132E+00, 0.2155E+00, 0.2178E+00,& - 0.2201E+00, 0.2227E+00, 0.2250E+00, 0.2275E+00,& - 0.2301E+00, 0.2324E+00, 0.2350E+00, 0.2376E+00,& - 0.2401E+00, 0.2427E+00, 0.2456E+00, 0.2481E+00,& - 0.2507E+00, 0.2536E+00, 0.2562E+00, 0.2590E+00,& - 0.2619E+00, 0.2645E+00, 0.2673E+00, 0.2702E+00,& - 0.2730E+00, 0.2762E+00, 0.2791E+00, 0.2819E+00,& - 0.2851E+00, 0.2882E+00, 0.2911E+00, 0.2942E+00,& - 0.2974E+00, 0.3005E+00, 0.3037E+00, 0.3068E+00,& - 0.3102E+00, 0.3134E+00, 0.3165E+00, 0.3200E+00,& - 0.3234E+00, 0.3268E+00, 0.3303E+00, 0.3337E+00,& - 0.3372E+00, 0.3406E+00, 0.3443E+00, 0.3477E+00,& - 0.3515E+00, 0.3552E+00, 0.3586E+00, 0.3623E+00,& - 0.3663E+00, 0.3701E+00, 0.3738E+00, 0.3778E+00,& - 0.3815E+00, 0.3855E+00, 0.3895E+00, 0.3935E+00,& - 0.3975E+00, 0.4015E+00, 0.4058E+00, 0.4098E+00,& - 0.4141E+00, 0.4184E+00, 0.4227E+00, 0.4270E+00,& - 0.4313E+00, 0.4356E+00, 0.4402E+00, 0.4445E+00,& - 0.4491E+00, 0.4536E+00, 0.4582E+00, 0.4628E+00,& - 0.4677E+00, 0.4722E+00, 0.4771E+00, 0.4820E+00,& - 0.4868E+00, 0.4917E+00, 0.4966E+00, 0.5014E+00,& - 0.5066E+00, 0.5117E+00, 0.5169E+00, 0.5220E+00,& - 0.5272E+00, 0.5323E+00, 0.5378E+00, 0.5432E+00,& - 0.5487E+00, 0.5541E+00, 0.5595E+00, 0.5650E+00,& - 0.5707E+00, 0.5764E+00, 0.5821E+00, 0.5879E+00,& - 0.5936E+00, 0.5996E+00, 0.6056E+00, 0.6113E+00,& - 0.6176E+00, 0.6236E+00, 0.6296E+00, 0.6359E+00,& - 0.6422E+00, 0.6485E+00, 0.6548E+00, 0.6614E+00,& - 0.6677E+00, 0.6743E+00, 0.6809E+00, 0.6877E+00,& - 0.6943E+00, 0.7012E+00, 0.7081E+00, 0.7149E+00,& - 0.7221E+00, 0.7290E+00, 0.7361E+00, 0.7433E+00,& - 0.7507E+00, 0.7579E+00, 0.7653E+00, 0.7727E+00,& - 0.7802E+00, 0.7879E+00, 0.7954E+00, 0.8031E+00,& - 0.8111E+00, 0.8188E+00, 0.8268E+00, 0.8348E+00,& - 0.8429E+00, 0.8512E+00, 0.8592E+00, 0.8675E+00,& - 0.8761E+00, 0.8844E+00, 0.8929E+00, 0.9015E+00,& - 0.9104E+00, 0.9190E+00, 0.9279E+00, 0.9370E+00,& - 0.9459E+00, 0.9551E+00, 0.9642E+00, 0.9737E+00,& - 0.9828E+00, 0.9914E+00, 0.1002E+01, 0.1012E+01,& - 0.1021E+01, 0.1031E+01, 0.1041E+01, 0.1051E+01,& - 0.1061E+01, 0.1071E+01, 0.1082E+01, 0.1092E+01,& - 0.1102E+01, 0.1113E+01, 0.1124E+01, 0.1134E+01,& - 0.1145E+01, 0.1157E+01, 0.1168E+01, 0.1179E+01,& - 0.1190E+01, 0.1201E+01, 0.1213E+01, 0.1225E+01,& - 0.1236E+01, 0.1248E+01, 0.1260E+01, 0.1272E+01,& - 0.1284E+01, 0.1297E+01, 0.1309E+01, 0.1322E+01,& - 0.1335E+01, 0.1347E+01, 0.1360E+01, 0.1373E+01,& - 0.1387E+01, 0.1400E+01, 0.1413E+01, 0.1427E+01,& - 0.1441E+01, 0.1454E+01, 0.1468E+01, 0.1483E+01,& - 0.1497E+01, 0.1511E+01, 0.1526E+01, 0.1541E+01,& - 0.1555E+01, 0.1570E+01, 0.1586E+01, 0.1601E+01,& - 0.1616E+01, 0.1632E+01, 0.1648E+01, 0.1664E+01,& - 0.1680E+01, 0.1696E+01, 0.1713E+01, 0.1729E+01,& - 0.1746E+01, 0.1763E+01, 0.1780E+01, 0.1797E+01,& - 0.1815E+01, 0.1833E+01, 0.1850E+01, 0.1868E+01,& - 0.1887E+01, 0.1905E+01, 0.1924E+01, 0.1942E+01,& - 0.1961E+01, 0.1981E+01, 0.2000E+01, 0.2020E+01,& - 0.2039E+01, 0.2060E+01, 0.2080E+01, 0.2100E+01,& - 0.2121E+01, 0.2142E+01, 0.2163E+01, 0.2185E+01,& - 0.2206E+01, 0.2228E+01, 0.2250E+01, 0.2273E+01,& - 0.2296E+01, 0.2318E+01, 0.2342E+01, 0.2365E+01,& - 0.2389E+01, 0.2413E+01, 0.2437E+01, 0.2462E+01,& - 0.2486E+01, 0.2512E+01, 0.2537E+01, 0.2563E+01,& - 0.2589E+01, 0.2615E+01, 0.2642E+01, 0.2669E+01,& - 0.2696E+01, 0.2724E+01, 0.2752E+01, 0.2780E+01,& - 0.2809E+01, 0.2838E+01, 0.2867E+01, 0.2897E+01,& - 0.2928E+01, 0.2958E+01, 0.2989E+01, 0.3020E+01,& - 0.3052E+01, 0.3084E+01, 0.3117E+01, 0.3150E+01,& - 0.3183E+01, 0.3217E+01, 0.3252E+01, 0.3286E+01,& - 0.3322E+01, 0.3358E+01, 0.3394E+01, 0.3431E+01,& - 0.3468E+01, 0.3506E+01, 0.3545E+01, 0.3583E+01,& - 0.3623E+01, 0.3663E+01, 0.3704E+01, 0.3745E+01,& - 0.3787E+01, 0.3830E+01, 0.3873E+01, 0.3917E+01,& - 0.3962E+01, 0.4007E+01, 0.4053E+01, 0.4100E+01,& - 0.4147E+01, 0.4195E+01, 0.4244E+01, 0.4294E+01,& - 0.4345E+01, 0.4396E+01, 0.4449E+01, 0.4502E+01,& - 0.4557E+01, 0.4612E+01, 0.4668E+01, 0.4725E+01,& - 0.4784E+01, 0.4843E+01, 0.4903E+01, 0.4965E+01,& - 0.5028E+01, 0.5092E+01, 0.5158E+01, 0.5224E+01,& - 0.5292E+01, 0.5362E+01, 0.5433E+01, 0.5505E+01,& - 0.5579E+01, 0.5655E+01, 0.5732E+01, 0.5811E+01,& - 0.5892E+01, 0.5975E+01, 0.6060E+01, 0.6146E+01,& - 0.6235E+01, 0.6327E+01, 0.6420E+01, 0.6516E+01,& - 0.6615E+01, 0.6716E+01, 0.6821E+01, 0.6928E+01,& - 0.7038E+01, 0.7152E+01, 0.7270E+01, 0.7391E+01,& - 0.7516E+01, 0.7645E+01, 0.7779E+01, 0.7917E+01,& - 0.8061E+01, 0.8210E+01, 0.8365E+01, 0.8526E+01,& - 0.8694E+01, 0.8870E+01, 0.9053E+01, 0.9245E+01,& - 0.9447E+01, 0.9660E+01, 0.9884E+01, 0.1012E+02,& - 0.1037E+02, 0.1064E+02, 0.1093E+02, 0.1124E+02,& - 0.1157E+02, 0.1194E+02, 0.1234E+02, 0.1278E+02,& - 0.1328E+02, 0.1385E+02, 0.1451E+02, 0.1530E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,100) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3011E-03, 0.3011E-03, 0.3011E-03,& - 0.3011E-03, 0.3011E-03, 0.3011E-03, 0.3011E-03,& - 0.3011E-03, 0.3011E-03, 0.3011E-03, 0.3011E-03,& - 0.3011E-03, 0.3011E-03, 0.3011E-03, 0.3011E-03,& - 0.3011E-03, 0.3011E-03, 0.3011E-03, 0.3011E-03,& - 0.3011E-03, 0.3011E-03, 0.3011E-03, 0.3011E-03,& - 0.3011E-03, 0.3011E-03, 0.5922E-03, 0.5922E-03,& - 0.5922E-03, 0.5922E-03, 0.5922E-03, 0.5922E-03,& - 0.5922E-03, 0.5922E-03, 0.5922E-03, 0.5922E-03,& - 0.5922E-03, 0.5922E-03, 0.5922E-03, 0.5922E-03,& - 0.5922E-03, 0.5922E-03, 0.8833E-03, 0.8833E-03,& - 0.8833E-03, 0.8833E-03, 0.8833E-03, 0.8833E-03,& - 0.8833E-03, 0.8833E-03, 0.8833E-03, 0.8833E-03,& - 0.8833E-03, 0.8833E-03, 0.1174E-02, 0.1174E-02,& - 0.1174E-02, 0.1174E-02, 0.1174E-02, 0.1174E-02,& - 0.1174E-02, 0.1174E-02, 0.1174E-02, 0.1174E-02,& - 0.1465E-02, 0.1465E-02, 0.1465E-02, 0.1465E-02,& - 0.1465E-02, 0.1465E-02, 0.1465E-02, 0.1465E-02,& - 0.1757E-02, 0.1757E-02, 0.1757E-02, 0.1757E-02,& - 0.1757E-02, 0.1757E-02, 0.1757E-02, 0.2048E-02,& - 0.2048E-02, 0.2048E-02, 0.2048E-02, 0.2048E-02,& - 0.2048E-02, 0.2048E-02, 0.2339E-02, 0.2339E-02,& - 0.2339E-02, 0.2339E-02, 0.2339E-02, 0.2630E-02,& - 0.2630E-02, 0.2630E-02, 0.2630E-02, 0.2630E-02,& - 0.2630E-02, 0.2921E-02, 0.2921E-02, 0.2921E-02,& - 0.2921E-02, 0.3212E-02, 0.3212E-02, 0.3212E-02,& - 0.3212E-02, 0.3212E-02, 0.3503E-02, 0.3503E-02,& - 0.3503E-02, 0.3503E-02, 0.3794E-02, 0.3794E-02,& - 0.3794E-02, 0.3794E-02, 0.4085E-02, 0.4085E-02,& - 0.4085E-02, 0.4376E-02, 0.4376E-02, 0.4376E-02,& - 0.4376E-02, 0.4667E-02, 0.4667E-02, 0.4667E-02,& - 0.4958E-02, 0.4958E-02, 0.4958E-02, 0.5250E-02,& - 0.5250E-02, 0.5250E-02, 0.5541E-02, 0.5541E-02,& - 0.5541E-02, 0.5832E-02, 0.5832E-02, 0.6123E-02,& - 0.6123E-02, 0.6123E-02, 0.6414E-02, 0.6414E-02,& - 0.6705E-02, 0.6705E-02, 0.6705E-02, 0.6996E-02,& - 0.6996E-02, 0.7287E-02, 0.7287E-02, 0.7578E-02,& - 0.7578E-02, 0.7869E-02, 0.7869E-02, 0.8160E-02,& - 0.8160E-02, 0.8451E-02, 0.8451E-02, 0.8743E-02,& - 0.8743E-02, 0.9034E-02, 0.9034E-02, 0.9325E-02,& - 0.9325E-02, 0.9616E-02, 0.9616E-02, 0.9907E-02,& - 0.1020E-01, 0.1020E-01, 0.1049E-01, 0.1049E-01,& - 0.1078E-01, 0.1107E-01, 0.1107E-01, 0.1136E-01,& - 0.1165E-01, 0.1165E-01, 0.1194E-01, 0.1224E-01,& - 0.1224E-01, 0.1253E-01, 0.1282E-01, 0.1282E-01,& - 0.1311E-01, 0.1340E-01, 0.1369E-01, 0.1369E-01,& - 0.1398E-01, 0.1427E-01, 0.1456E-01, 0.1486E-01,& - 0.1486E-01, 0.1515E-01, 0.1544E-01, 0.1573E-01,& - 0.1602E-01, 0.1631E-01, 0.1660E-01, 0.1689E-01,& - 0.1689E-01, 0.1718E-01, 0.1748E-01, 0.1777E-01,& - 0.1806E-01, 0.1835E-01, 0.1864E-01, 0.1893E-01,& - 0.1922E-01, 0.1951E-01, 0.1980E-01, 0.2009E-01,& - 0.2039E-01, 0.2097E-01, 0.2126E-01, 0.2155E-01,& - 0.2184E-01, 0.2213E-01, 0.2242E-01, 0.2271E-01,& - 0.2330E-01, 0.2359E-01, 0.2388E-01, 0.2417E-01,& - 0.2475E-01, 0.2504E-01, 0.2533E-01, 0.2563E-01,& - 0.2621E-01, 0.2650E-01, 0.2679E-01, 0.2737E-01,& - 0.2766E-01, 0.2825E-01, 0.2854E-01, 0.2883E-01,& - 0.2941E-01, 0.2970E-01, 0.3028E-01, 0.3057E-01,& - 0.3116E-01, 0.3145E-01, 0.3203E-01, 0.3261E-01,& - 0.3290E-01, 0.3348E-01, 0.3407E-01, 0.3436E-01,& - 0.3494E-01, 0.3552E-01, 0.3581E-01, 0.3640E-01,& - 0.3698E-01, 0.3756E-01, 0.3814E-01, 0.3843E-01,& - 0.3902E-01, 0.3960E-01, 0.4018E-01, 0.4076E-01,& - 0.4134E-01, 0.4193E-01, 0.4251E-01, 0.4309E-01,& - 0.4367E-01, 0.4425E-01, 0.4484E-01, 0.4542E-01,& - 0.4600E-01, 0.4687E-01, 0.4746E-01, 0.4804E-01,& - 0.4862E-01, 0.4920E-01, 0.5008E-01, 0.5066E-01,& - 0.5124E-01, 0.5211E-01, 0.5270E-01, 0.5357E-01,& - 0.5415E-01, 0.5503E-01, 0.5561E-01, 0.5648E-01,& - 0.5706E-01, 0.5794E-01, 0.5881E-01, 0.5939E-01,& - 0.6026E-01, 0.6114E-01, 0.6172E-01, 0.6259E-01,& - 0.6347E-01, 0.6434E-01, 0.6521E-01, 0.6609E-01,& - 0.6696E-01, 0.6783E-01, 0.6871E-01, 0.6958E-01,& - 0.7045E-01, 0.7133E-01, 0.7220E-01, 0.7307E-01,& - 0.7424E-01, 0.7511E-01, 0.7598E-01, 0.7686E-01,& - 0.7802E-01, 0.7889E-01, 0.8006E-01, 0.8093E-01,& - 0.8210E-01, 0.8297E-01, 0.8413E-01, 0.8530E-01,& - 0.8617E-01, 0.8734E-01, 0.8850E-01, 0.8937E-01,& - 0.9054E-01, 0.9170E-01, 0.9287E-01, 0.9403E-01,& - 0.9519E-01, 0.9636E-01, 0.9752E-01, 0.9869E-01,& - 0.1001E+00, 0.1013E+00, 0.1025E+00, 0.1036E+00,& - 0.1051E+00, 0.1063E+00, 0.1077E+00, 0.1089E+00,& - 0.1103E+00, 0.1115E+00, 0.1130E+00, 0.1144E+00,& - 0.1156E+00, 0.1170E+00, 0.1185E+00, 0.1199E+00,& - 0.1214E+00, 0.1228E+00, 0.1243E+00, 0.1258E+00,& - 0.1272E+00, 0.1287E+00, 0.1304E+00, 0.1319E+00,& - 0.1333E+00, 0.1351E+00, 0.1365E+00, 0.1383E+00,& - 0.1397E+00, 0.1415E+00, 0.1432E+00, 0.1450E+00,& - 0.1464E+00, 0.1482E+00, 0.1499E+00, 0.1517E+00,& - 0.1534E+00, 0.1552E+00, 0.1572E+00, 0.1589E+00,& - 0.1607E+00, 0.1627E+00, 0.1645E+00, 0.1665E+00,& - 0.1683E+00, 0.1703E+00, 0.1720E+00, 0.1741E+00,& - 0.1761E+00, 0.1782E+00, 0.1802E+00, 0.1822E+00,& - 0.1843E+00, 0.1863E+00, 0.1886E+00, 0.1907E+00,& - 0.1927E+00, 0.1950E+00, 0.1971E+00, 0.1994E+00,& - 0.2017E+00, 0.2038E+00, 0.2061E+00, 0.2084E+00,& - 0.2108E+00, 0.2131E+00, 0.2157E+00, 0.2180E+00,& - 0.2204E+00, 0.2230E+00, 0.2253E+00, 0.2279E+00,& - 0.2303E+00, 0.2329E+00, 0.2355E+00, 0.2381E+00,& - 0.2407E+00, 0.2434E+00, 0.2460E+00, 0.2486E+00,& - 0.2515E+00, 0.2541E+00, 0.2570E+00, 0.2597E+00,& - 0.2626E+00, 0.2655E+00, 0.2684E+00, 0.2713E+00,& - 0.2742E+00, 0.2771E+00, 0.2800E+00, 0.2832E+00,& - 0.2861E+00, 0.2893E+00, 0.2926E+00, 0.2955E+00,& - 0.2987E+00, 0.3019E+00, 0.3051E+00, 0.3086E+00,& - 0.3118E+00, 0.3150E+00, 0.3185E+00, 0.3217E+00,& - 0.3252E+00, 0.3286E+00, 0.3321E+00, 0.3356E+00,& - 0.3391E+00, 0.3429E+00, 0.3464E+00, 0.3502E+00,& - 0.3537E+00, 0.3575E+00, 0.3612E+00, 0.3650E+00,& - 0.3688E+00, 0.3729E+00, 0.3767E+00, 0.3807E+00,& - 0.3845E+00, 0.3886E+00, 0.3927E+00, 0.3968E+00,& - 0.4008E+00, 0.4052E+00, 0.4093E+00, 0.4136E+00,& - 0.4177E+00, 0.4221E+00, 0.4264E+00, 0.4308E+00,& - 0.4355E+00, 0.4398E+00, 0.4445E+00, 0.4489E+00,& - 0.4535E+00, 0.4582E+00, 0.4628E+00, 0.4678E+00,& - 0.4724E+00, 0.4774E+00, 0.4820E+00, 0.4870E+00,& - 0.4919E+00, 0.4972E+00, 0.5021E+00, 0.5074E+00,& - 0.5123E+00, 0.5176E+00, 0.5228E+00, 0.5283E+00,& - 0.5336E+00, 0.5388E+00, 0.5443E+00, 0.5499E+00,& - 0.5554E+00, 0.5609E+00, 0.5668E+00, 0.5726E+00,& - 0.5781E+00, 0.5839E+00, 0.5897E+00, 0.5959E+00,& - 0.6017E+00, 0.6078E+00, 0.6139E+00, 0.6200E+00,& - 0.6264E+00, 0.6325E+00, 0.6389E+00, 0.6453E+00,& - 0.6517E+00, 0.6582E+00, 0.6648E+00, 0.6713E+00,& - 0.6779E+00, 0.6849E+00, 0.6916E+00, 0.6986E+00,& - 0.7053E+00, 0.7123E+00, 0.7196E+00, 0.7266E+00,& - 0.7338E+00, 0.7411E+00, 0.7484E+00, 0.7557E+00,& - 0.7632E+00, 0.7708E+00, 0.7784E+00, 0.7862E+00,& - 0.7938E+00, 0.8017E+00, 0.8095E+00, 0.8177E+00,& - 0.8255E+00, 0.8337E+00, 0.8418E+00, 0.8503E+00,& - 0.8584E+00, 0.8669E+00, 0.8756E+00, 0.8840E+00,& - 0.8928E+00, 0.9015E+00, 0.9102E+00, 0.9193E+00,& - 0.9283E+00, 0.9373E+00, 0.9463E+00, 0.9556E+00,& - 0.9650E+00, 0.9746E+00, 0.9839E+00, 0.9938E+00,& - 0.1003E+01, 0.1013E+01, 0.1023E+01, 0.1033E+01,& - 0.1043E+01, 0.1053E+01, 0.1064E+01, 0.1074E+01,& - 0.1084E+01, 0.1095E+01, 0.1106E+01, 0.1116E+01,& - 0.1127E+01, 0.1138E+01, 0.1149E+01, 0.1161E+01,& - 0.1172E+01, 0.1183E+01, 0.1195E+01, 0.1207E+01,& - 0.1218E+01, 0.1230E+01, 0.1242E+01, 0.1254E+01,& - 0.1266E+01, 0.1279E+01, 0.1291E+01, 0.1304E+01,& - 0.1316E+01, 0.1329E+01, 0.1342E+01, 0.1355E+01,& - 0.1368E+01, 0.1382E+01, 0.1395E+01, 0.1409E+01,& - 0.1423E+01, 0.1437E+01, 0.1450E+01, 0.1465E+01,& - 0.1479E+01, 0.1494E+01, 0.1508E+01, 0.1523E+01,& - 0.1538E+01, 0.1553E+01, 0.1568E+01, 0.1583E+01,& - 0.1599E+01, 0.1614E+01, 0.1630E+01, 0.1646E+01,& - 0.1662E+01, 0.1679E+01, 0.1695E+01, 0.1712E+01,& - 0.1729E+01, 0.1746E+01, 0.1763E+01, 0.1780E+01,& - 0.1798E+01, 0.1816E+01, 0.1834E+01, 0.1852E+01,& - 0.1870E+01, 0.1889E+01, 0.1907E+01, 0.1926E+01,& - 0.1945E+01, 0.1965E+01, 0.1984E+01, 0.2004E+01,& - 0.2024E+01, 0.2044E+01, 0.2064E+01, 0.2085E+01,& - 0.2106E+01, 0.2127E+01, 0.2149E+01, 0.2170E+01,& - 0.2192E+01, 0.2214E+01, 0.2236E+01, 0.2259E+01,& - 0.2282E+01, 0.2305E+01, 0.2328E+01, 0.2352E+01,& - 0.2376E+01, 0.2400E+01, 0.2424E+01, 0.2449E+01,& - 0.2474E+01, 0.2499E+01, 0.2525E+01, 0.2551E+01,& - 0.2577E+01, 0.2604E+01, 0.2631E+01, 0.2658E+01,& - 0.2686E+01, 0.2714E+01, 0.2742E+01, 0.2770E+01,& - 0.2799E+01, 0.2828E+01, 0.2858E+01, 0.2888E+01,& - 0.2919E+01, 0.2950E+01, 0.2981E+01, 0.3012E+01,& - 0.3045E+01, 0.3077E+01, 0.3110E+01, 0.3143E+01,& - 0.3177E+01, 0.3212E+01, 0.3246E+01, 0.3281E+01,& - 0.3317E+01, 0.3353E+01, 0.3390E+01, 0.3427E+01,& - 0.3465E+01, 0.3504E+01, 0.3542E+01, 0.3582E+01,& - 0.3622E+01, 0.3662E+01, 0.3703E+01, 0.3745E+01,& - 0.3788E+01, 0.3831E+01, 0.3875E+01, 0.3919E+01,& - 0.3964E+01, 0.4010E+01, 0.4057E+01, 0.4104E+01,& - 0.4152E+01, 0.4201E+01, 0.4250E+01, 0.4301E+01,& - 0.4352E+01, 0.4405E+01, 0.4458E+01, 0.4512E+01,& - 0.4567E+01, 0.4623E+01, 0.4680E+01, 0.4738E+01,& - 0.4797E+01, 0.4857E+01, 0.4918E+01, 0.4981E+01,& - 0.5045E+01, 0.5110E+01, 0.5176E+01, 0.5244E+01,& - 0.5313E+01, 0.5383E+01, 0.5455E+01, 0.5529E+01,& - 0.5604E+01, 0.5681E+01, 0.5759E+01, 0.5839E+01,& - 0.5922E+01, 0.6006E+01, 0.6092E+01, 0.6180E+01,& - 0.6270E+01, 0.6363E+01, 0.6458E+01, 0.6556E+01,& - 0.6656E+01, 0.6759E+01, 0.6865E+01, 0.6974E+01,& - 0.7086E+01, 0.7202E+01, 0.7321E+01, 0.7444E+01,& - 0.7571E+01, 0.7703E+01, 0.7839E+01, 0.7980E+01,& - 0.8125E+01, 0.8277E+01, 0.8435E+01, 0.8599E+01,& - 0.8770E+01, 0.8948E+01, 0.9135E+01, 0.9331E+01,& - 0.9537E+01, 0.9753E+01, 0.9982E+01, 0.1022E+02,& - 0.1048E+02, 0.1075E+02, 0.1105E+02, 0.1136E+02,& - 0.1170E+02, 0.1207E+02, 0.1248E+02, 0.1293E+02,& - 0.1344E+02, 0.1402E+02, 0.1469E+02, 0.1550E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,101) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3060E-03,& - 0.3060E-03, 0.3060E-03, 0.3060E-03, 0.3060E-03,& - 0.3060E-03, 0.3060E-03, 0.3060E-03, 0.3060E-03,& - 0.3060E-03, 0.3060E-03, 0.3060E-03, 0.3060E-03,& - 0.3060E-03, 0.3060E-03, 0.3060E-03, 0.3060E-03,& - 0.3060E-03, 0.3060E-03, 0.3060E-03, 0.3060E-03,& - 0.3060E-03, 0.3060E-03, 0.3060E-03, 0.3060E-03,& - 0.3060E-03, 0.6020E-03, 0.6020E-03, 0.6020E-03,& - 0.6020E-03, 0.6020E-03, 0.6020E-03, 0.6020E-03,& - 0.6020E-03, 0.6020E-03, 0.6020E-03, 0.6020E-03,& - 0.6020E-03, 0.6020E-03, 0.6020E-03, 0.6020E-03,& - 0.6020E-03, 0.8981E-03, 0.8981E-03, 0.8981E-03,& - 0.8981E-03, 0.8981E-03, 0.8981E-03, 0.8981E-03,& - 0.8981E-03, 0.8981E-03, 0.8981E-03, 0.8981E-03,& - 0.8981E-03, 0.1194E-02, 0.1194E-02, 0.1194E-02,& - 0.1194E-02, 0.1194E-02, 0.1194E-02, 0.1194E-02,& - 0.1194E-02, 0.1194E-02, 0.1194E-02, 0.1490E-02,& - 0.1490E-02, 0.1490E-02, 0.1490E-02, 0.1490E-02,& - 0.1490E-02, 0.1490E-02, 0.1490E-02, 0.1786E-02,& - 0.1786E-02, 0.1786E-02, 0.1786E-02, 0.1786E-02,& - 0.1786E-02, 0.1786E-02, 0.2082E-02, 0.2082E-02,& - 0.2082E-02, 0.2082E-02, 0.2082E-02, 0.2082E-02,& - 0.2082E-02, 0.2378E-02, 0.2378E-02, 0.2378E-02,& - 0.2378E-02, 0.2378E-02, 0.2674E-02, 0.2674E-02,& - 0.2674E-02, 0.2674E-02, 0.2674E-02, 0.2970E-02,& - 0.2970E-02, 0.2970E-02, 0.2970E-02, 0.2970E-02,& - 0.3266E-02, 0.3266E-02, 0.3266E-02, 0.3266E-02,& - 0.3266E-02, 0.3562E-02, 0.3562E-02, 0.3562E-02,& - 0.3562E-02, 0.3858E-02, 0.3858E-02, 0.3858E-02,& - 0.4154E-02, 0.4154E-02, 0.4154E-02, 0.4154E-02,& - 0.4450E-02, 0.4450E-02, 0.4450E-02, 0.4746E-02,& - 0.4746E-02, 0.4746E-02, 0.4746E-02, 0.5042E-02,& - 0.5042E-02, 0.5042E-02, 0.5338E-02, 0.5338E-02,& - 0.5338E-02, 0.5634E-02, 0.5634E-02, 0.5930E-02,& - 0.5930E-02, 0.5930E-02, 0.6226E-02, 0.6226E-02,& - 0.6226E-02, 0.6522E-02, 0.6522E-02, 0.6818E-02,& - 0.6818E-02, 0.6818E-02, 0.7114E-02, 0.7114E-02,& - 0.7411E-02, 0.7411E-02, 0.7707E-02, 0.7707E-02,& - 0.8003E-02, 0.8003E-02, 0.8299E-02, 0.8299E-02,& - 0.8595E-02, 0.8595E-02, 0.8891E-02, 0.8891E-02,& - 0.9187E-02, 0.9187E-02, 0.9483E-02, 0.9483E-02,& - 0.9779E-02, 0.9779E-02, 0.1007E-01, 0.1037E-01,& - 0.1037E-01, 0.1067E-01, 0.1067E-01, 0.1096E-01,& - 0.1126E-01, 0.1126E-01, 0.1155E-01, 0.1185E-01,& - 0.1185E-01, 0.1215E-01, 0.1244E-01, 0.1244E-01,& - 0.1274E-01, 0.1303E-01, 0.1333E-01, 0.1333E-01,& - 0.1363E-01, 0.1392E-01, 0.1422E-01, 0.1422E-01,& - 0.1452E-01, 0.1481E-01, 0.1511E-01, 0.1540E-01,& - 0.1540E-01, 0.1570E-01, 0.1600E-01, 0.1629E-01,& - 0.1659E-01, 0.1688E-01, 0.1718E-01, 0.1748E-01,& - 0.1777E-01, 0.1807E-01, 0.1836E-01, 0.1866E-01,& - 0.1896E-01, 0.1925E-01, 0.1955E-01, 0.1984E-01,& - 0.2014E-01, 0.2044E-01, 0.2073E-01, 0.2103E-01,& - 0.2132E-01, 0.2162E-01, 0.2192E-01, 0.2221E-01,& - 0.2251E-01, 0.2310E-01, 0.2340E-01, 0.2369E-01,& - 0.2399E-01, 0.2428E-01, 0.2488E-01, 0.2517E-01,& - 0.2547E-01, 0.2606E-01, 0.2636E-01, 0.2665E-01,& - 0.2724E-01, 0.2754E-01, 0.2784E-01, 0.2843E-01,& - 0.2872E-01, 0.2932E-01, 0.2961E-01, 0.2991E-01,& - 0.3050E-01, 0.3109E-01, 0.3139E-01, 0.3198E-01,& - 0.3228E-01, 0.3287E-01, 0.3316E-01, 0.3376E-01,& - 0.3435E-01, 0.3464E-01, 0.3524E-01, 0.3583E-01,& - 0.3612E-01, 0.3672E-01, 0.3731E-01, 0.3790E-01,& - 0.3849E-01, 0.3879E-01, 0.3938E-01, 0.3997E-01,& - 0.4056E-01, 0.4116E-01, 0.4175E-01, 0.4234E-01,& - 0.4293E-01, 0.4353E-01, 0.4412E-01, 0.4471E-01,& - 0.4530E-01, 0.4589E-01, 0.4649E-01, 0.4737E-01,& - 0.4797E-01, 0.4856E-01, 0.4915E-01, 0.5004E-01,& - 0.5063E-01, 0.5122E-01, 0.5211E-01, 0.5270E-01,& - 0.5329E-01, 0.5418E-01, 0.5477E-01, 0.5566E-01,& - 0.5625E-01, 0.5714E-01, 0.5803E-01, 0.5862E-01,& - 0.5951E-01, 0.6010E-01, 0.6099E-01, 0.6188E-01,& - 0.6277E-01, 0.6336E-01, 0.6425E-01, 0.6513E-01,& - 0.6602E-01, 0.6691E-01, 0.6780E-01, 0.6869E-01,& - 0.6957E-01, 0.7046E-01, 0.7135E-01, 0.7224E-01,& - 0.7342E-01, 0.7431E-01, 0.7520E-01, 0.7609E-01,& - 0.7727E-01, 0.7816E-01, 0.7905E-01, 0.8023E-01,& - 0.8112E-01, 0.8230E-01, 0.8319E-01, 0.8438E-01,& - 0.8556E-01, 0.8645E-01, 0.8763E-01, 0.8882E-01,& - 0.8970E-01, 0.9089E-01, 0.9207E-01, 0.9326E-01,& - 0.9444E-01, 0.9562E-01, 0.9681E-01, 0.9799E-01,& - 0.9918E-01, 0.1004E+00, 0.1018E+00, 0.1030E+00,& - 0.1042E+00, 0.1057E+00, 0.1069E+00, 0.1081E+00,& - 0.1095E+00, 0.1107E+00, 0.1122E+00, 0.1137E+00,& - 0.1149E+00, 0.1163E+00, 0.1178E+00, 0.1193E+00,& - 0.1208E+00, 0.1223E+00, 0.1237E+00, 0.1252E+00,& - 0.1267E+00, 0.1282E+00, 0.1297E+00, 0.1311E+00,& - 0.1329E+00, 0.1344E+00, 0.1362E+00, 0.1377E+00,& - 0.1394E+00, 0.1409E+00, 0.1427E+00, 0.1445E+00,& - 0.1459E+00, 0.1477E+00, 0.1495E+00, 0.1513E+00,& - 0.1531E+00, 0.1548E+00, 0.1566E+00, 0.1584E+00,& - 0.1605E+00, 0.1622E+00, 0.1640E+00, 0.1661E+00,& - 0.1679E+00, 0.1699E+00, 0.1720E+00, 0.1738E+00,& - 0.1758E+00, 0.1779E+00, 0.1800E+00, 0.1821E+00,& - 0.1841E+00, 0.1862E+00, 0.1886E+00, 0.1906E+00,& - 0.1927E+00, 0.1951E+00, 0.1972E+00, 0.1995E+00,& - 0.2016E+00, 0.2040E+00, 0.2063E+00, 0.2087E+00,& - 0.2111E+00, 0.2134E+00, 0.2158E+00, 0.2182E+00,& - 0.2208E+00, 0.2232E+00, 0.2259E+00, 0.2282E+00,& - 0.2309E+00, 0.2333E+00, 0.2359E+00, 0.2386E+00,& - 0.2413E+00, 0.2439E+00, 0.2466E+00, 0.2496E+00,& - 0.2522E+00, 0.2549E+00, 0.2578E+00, 0.2608E+00,& - 0.2635E+00, 0.2664E+00, 0.2694E+00, 0.2723E+00,& - 0.2753E+00, 0.2783E+00, 0.2815E+00, 0.2845E+00,& - 0.2874E+00, 0.2907E+00, 0.2940E+00, 0.2972E+00,& - 0.3005E+00, 0.3037E+00, 0.3070E+00, 0.3102E+00,& - 0.3135E+00, 0.3170E+00, 0.3203E+00, 0.3239E+00,& - 0.3274E+00, 0.3310E+00, 0.3345E+00, 0.3381E+00,& - 0.3416E+00, 0.3452E+00, 0.3490E+00, 0.3526E+00,& - 0.3564E+00, 0.3603E+00, 0.3641E+00, 0.3680E+00,& - 0.3718E+00, 0.3760E+00, 0.3798E+00, 0.3839E+00,& - 0.3878E+00, 0.3919E+00, 0.3961E+00, 0.4002E+00,& - 0.4047E+00, 0.4088E+00, 0.4130E+00, 0.4174E+00,& - 0.4218E+00, 0.4263E+00, 0.4307E+00, 0.4352E+00,& - 0.4399E+00, 0.4443E+00, 0.4491E+00, 0.4538E+00,& - 0.4585E+00, 0.4633E+00, 0.4680E+00, 0.4728E+00,& - 0.4778E+00, 0.4828E+00, 0.4879E+00, 0.4929E+00,& - 0.4979E+00, 0.5029E+00, 0.5083E+00, 0.5133E+00,& - 0.5186E+00, 0.5240E+00, 0.5296E+00, 0.5349E+00,& - 0.5405E+00, 0.5459E+00, 0.5515E+00, 0.5571E+00,& - 0.5630E+00, 0.5687E+00, 0.5746E+00, 0.5802E+00,& - 0.5861E+00, 0.5923E+00, 0.5983E+00, 0.6045E+00,& - 0.6104E+00, 0.6166E+00, 0.6228E+00, 0.6293E+00,& - 0.6356E+00, 0.6421E+00, 0.6486E+00, 0.6551E+00,& - 0.6619E+00, 0.6684E+00, 0.6752E+00, 0.6820E+00,& - 0.6888E+00, 0.6960E+00, 0.7028E+00, 0.7099E+00,& - 0.7173E+00, 0.7244E+00, 0.7315E+00, 0.7389E+00,& - 0.7463E+00, 0.7540E+00, 0.7614E+00, 0.7691E+00,& - 0.7768E+00, 0.7845E+00, 0.7925E+00, 0.8004E+00,& - 0.8084E+00, 0.8164E+00, 0.8244E+00, 0.8327E+00,& - 0.8410E+00, 0.8496E+00, 0.8579E+00, 0.8665E+00,& - 0.8750E+00, 0.8839E+00, 0.8925E+00, 0.9014E+00,& - 0.9106E+00, 0.9194E+00, 0.9286E+00, 0.9378E+00,& - 0.9473E+00, 0.9567E+00, 0.9662E+00, 0.9757E+00,& - 0.9855E+00, 0.9952E+00, 0.1005E+01, 0.1015E+01,& - 0.1025E+01, 0.1035E+01, 0.1045E+01, 0.1056E+01,& - 0.1066E+01, 0.1077E+01, 0.1087E+01, 0.1098E+01,& - 0.1109E+01, 0.1120E+01, 0.1131E+01, 0.1142E+01,& - 0.1154E+01, 0.1165E+01, 0.1176E+01, 0.1188E+01,& - 0.1200E+01, 0.1212E+01, 0.1224E+01, 0.1236E+01,& - 0.1248E+01, 0.1260E+01, 0.1273E+01, 0.1285E+01,& - 0.1298E+01, 0.1311E+01, 0.1324E+01, 0.1337E+01,& - 0.1350E+01, 0.1363E+01, 0.1377E+01, 0.1391E+01,& - 0.1404E+01, 0.1418E+01, 0.1432E+01, 0.1447E+01,& - 0.1461E+01, 0.1475E+01, 0.1490E+01, 0.1505E+01,& - 0.1520E+01, 0.1535E+01, 0.1550E+01, 0.1565E+01,& - 0.1581E+01, 0.1597E+01, 0.1613E+01, 0.1629E+01,& - 0.1645E+01, 0.1661E+01, 0.1678E+01, 0.1694E+01,& - 0.1711E+01, 0.1728E+01, 0.1746E+01, 0.1763E+01,& - 0.1781E+01, 0.1799E+01, 0.1817E+01, 0.1835E+01,& - 0.1853E+01, 0.1872E+01, 0.1891E+01, 0.1910E+01,& - 0.1929E+01, 0.1948E+01, 0.1968E+01, 0.1988E+01,& - 0.2008E+01, 0.2028E+01, 0.2049E+01, 0.2069E+01,& - 0.2091E+01, 0.2112E+01, 0.2133E+01, 0.2155E+01,& - 0.2177E+01, 0.2199E+01, 0.2222E+01, 0.2244E+01,& - 0.2267E+01, 0.2291E+01, 0.2314E+01, 0.2338E+01,& - 0.2362E+01, 0.2386E+01, 0.2411E+01, 0.2436E+01,& - 0.2461E+01, 0.2487E+01, 0.2512E+01, 0.2539E+01,& - 0.2565E+01, 0.2592E+01, 0.2619E+01, 0.2646E+01,& - 0.2674E+01, 0.2702E+01, 0.2731E+01, 0.2760E+01,& - 0.2789E+01, 0.2818E+01, 0.2848E+01, 0.2879E+01,& - 0.2910E+01, 0.2941E+01, 0.2972E+01, 0.3004E+01,& - 0.3037E+01, 0.3069E+01, 0.3103E+01, 0.3136E+01,& - 0.3171E+01, 0.3205E+01, 0.3240E+01, 0.3276E+01,& - 0.3312E+01, 0.3349E+01, 0.3386E+01, 0.3423E+01,& - 0.3461E+01, 0.3500E+01, 0.3540E+01, 0.3579E+01,& - 0.3620E+01, 0.3661E+01, 0.3702E+01, 0.3745E+01,& - 0.3788E+01, 0.3831E+01, 0.3876E+01, 0.3921E+01,& - 0.3966E+01, 0.4013E+01, 0.4060E+01, 0.4108E+01,& - 0.4156E+01, 0.4206E+01, 0.4256E+01, 0.4307E+01,& - 0.4359E+01, 0.4412E+01, 0.4466E+01, 0.4521E+01,& - 0.4576E+01, 0.4633E+01, 0.4691E+01, 0.4750E+01,& - 0.4810E+01, 0.4871E+01, 0.4933E+01, 0.4996E+01,& - 0.5061E+01, 0.5127E+01, 0.5194E+01, 0.5263E+01,& - 0.5333E+01, 0.5404E+01, 0.5477E+01, 0.5552E+01,& - 0.5628E+01, 0.5706E+01, 0.5785E+01, 0.5867E+01,& - 0.5950E+01, 0.6036E+01, 0.6123E+01, 0.6213E+01,& - 0.6304E+01, 0.6398E+01, 0.6495E+01, 0.6594E+01,& - 0.6696E+01, 0.6801E+01, 0.6909E+01, 0.7019E+01,& - 0.7133E+01, 0.7251E+01, 0.7372E+01, 0.7497E+01,& - 0.7626E+01, 0.7760E+01, 0.7898E+01, 0.8041E+01,& - 0.8190E+01, 0.8344E+01, 0.8504E+01, 0.8671E+01,& - 0.8845E+01, 0.9027E+01, 0.9217E+01, 0.9416E+01,& - 0.9625E+01, 0.9846E+01, 0.1008E+02, 0.1032E+02,& - 0.1059E+02, 0.1086E+02, 0.1116E+02, 0.1148E+02,& - 0.1183E+02, 0.1221E+02, 0.1263E+02, 0.1309E+02,& - 0.1360E+02, 0.1419E+02, 0.1488E+02, 0.1570E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,102) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.3110E-03, 0.3110E-03,& - 0.3110E-03, 0.3110E-03, 0.3110E-03, 0.3110E-03,& - 0.3110E-03, 0.3110E-03, 0.3110E-03, 0.3110E-03,& - 0.3110E-03, 0.3110E-03, 0.3110E-03, 0.3110E-03,& - 0.3110E-03, 0.3110E-03, 0.3110E-03, 0.3110E-03,& - 0.3110E-03, 0.3110E-03, 0.3110E-03, 0.3110E-03,& - 0.3110E-03, 0.3110E-03, 0.3110E-03, 0.6120E-03,& - 0.6120E-03, 0.6120E-03, 0.6120E-03, 0.6120E-03,& - 0.6120E-03, 0.6120E-03, 0.6120E-03, 0.6120E-03,& - 0.6120E-03, 0.6120E-03, 0.6120E-03, 0.6120E-03,& - 0.6120E-03, 0.6120E-03, 0.6120E-03, 0.6120E-03,& - 0.9130E-03, 0.9130E-03, 0.9130E-03, 0.9130E-03,& - 0.9130E-03, 0.9130E-03, 0.9130E-03, 0.9130E-03,& - 0.9130E-03, 0.9130E-03, 0.9130E-03, 0.9130E-03,& - 0.1214E-02, 0.1214E-02, 0.1214E-02, 0.1214E-02,& - 0.1214E-02, 0.1214E-02, 0.1214E-02, 0.1214E-02,& - 0.1214E-02, 0.1214E-02, 0.1515E-02, 0.1515E-02,& - 0.1515E-02, 0.1515E-02, 0.1515E-02, 0.1515E-02,& - 0.1515E-02, 0.1515E-02, 0.1816E-02, 0.1816E-02,& - 0.1816E-02, 0.1816E-02, 0.1816E-02, 0.1816E-02,& - 0.1816E-02, 0.2117E-02, 0.2117E-02, 0.2117E-02,& - 0.2117E-02, 0.2117E-02, 0.2117E-02, 0.2418E-02,& - 0.2418E-02, 0.2418E-02, 0.2418E-02, 0.2418E-02,& - 0.2418E-02, 0.2719E-02, 0.2719E-02, 0.2719E-02,& - 0.2719E-02, 0.2719E-02, 0.3020E-02, 0.3020E-02,& - 0.3020E-02, 0.3020E-02, 0.3020E-02, 0.3321E-02,& - 0.3321E-02, 0.3321E-02, 0.3321E-02, 0.3622E-02,& - 0.3622E-02, 0.3622E-02, 0.3622E-02, 0.3923E-02,& - 0.3923E-02, 0.3923E-02, 0.3923E-02, 0.4224E-02,& - 0.4224E-02, 0.4224E-02, 0.4224E-02, 0.4525E-02,& - 0.4525E-02, 0.4525E-02, 0.4826E-02, 0.4826E-02,& - 0.4826E-02, 0.4826E-02, 0.5127E-02, 0.5127E-02,& - 0.5127E-02, 0.5428E-02, 0.5428E-02, 0.5729E-02,& - 0.5729E-02, 0.5729E-02, 0.6030E-02, 0.6030E-02,& - 0.6030E-02, 0.6331E-02, 0.6331E-02, 0.6632E-02,& - 0.6632E-02, 0.6632E-02, 0.6933E-02, 0.6933E-02,& - 0.7234E-02, 0.7234E-02, 0.7234E-02, 0.7535E-02,& - 0.7535E-02, 0.7836E-02, 0.7836E-02, 0.8137E-02,& - 0.8137E-02, 0.8438E-02, 0.8438E-02, 0.8739E-02,& - 0.8739E-02, 0.9040E-02, 0.9040E-02, 0.9341E-02,& - 0.9341E-02, 0.9642E-02, 0.9642E-02, 0.9943E-02,& - 0.1024E-01, 0.1024E-01, 0.1055E-01, 0.1055E-01,& - 0.1085E-01, 0.1115E-01, 0.1115E-01, 0.1145E-01,& - 0.1175E-01, 0.1175E-01, 0.1205E-01, 0.1235E-01,& - 0.1235E-01, 0.1265E-01, 0.1295E-01, 0.1295E-01,& - 0.1325E-01, 0.1356E-01, 0.1386E-01, 0.1386E-01,& - 0.1416E-01, 0.1446E-01, 0.1476E-01, 0.1476E-01,& - 0.1506E-01, 0.1536E-01, 0.1566E-01, 0.1596E-01,& - 0.1626E-01, 0.1626E-01, 0.1657E-01, 0.1687E-01,& - 0.1717E-01, 0.1747E-01, 0.1777E-01, 0.1807E-01,& - 0.1837E-01, 0.1867E-01, 0.1897E-01, 0.1927E-01,& - 0.1958E-01, 0.1988E-01, 0.2018E-01, 0.2048E-01,& - 0.2078E-01, 0.2108E-01, 0.2138E-01, 0.2168E-01,& - 0.2198E-01, 0.2259E-01, 0.2289E-01, 0.2319E-01,& - 0.2349E-01, 0.2379E-01, 0.2439E-01, 0.2469E-01,& - 0.2499E-01, 0.2529E-01, 0.2590E-01, 0.2620E-01,& - 0.2650E-01, 0.2680E-01, 0.2740E-01, 0.2770E-01,& - 0.2830E-01, 0.2861E-01, 0.2891E-01, 0.2951E-01,& - 0.2981E-01, 0.3041E-01, 0.3071E-01, 0.3131E-01,& - 0.3162E-01, 0.3222E-01, 0.3252E-01, 0.3312E-01,& - 0.3372E-01, 0.3402E-01, 0.3463E-01, 0.3523E-01,& - 0.3553E-01, 0.3613E-01, 0.3673E-01, 0.3703E-01,& - 0.3764E-01, 0.3824E-01, 0.3884E-01, 0.3944E-01,& - 0.4004E-01, 0.4034E-01, 0.4095E-01, 0.4155E-01,& - 0.4215E-01, 0.4275E-01, 0.4335E-01, 0.4396E-01,& - 0.4456E-01, 0.4516E-01, 0.4576E-01, 0.4667E-01,& - 0.4727E-01, 0.4787E-01, 0.4847E-01, 0.4907E-01,& - 0.4998E-01, 0.5058E-01, 0.5118E-01, 0.5208E-01,& - 0.5269E-01, 0.5329E-01, 0.5419E-01, 0.5479E-01,& - 0.5570E-01, 0.5630E-01, 0.5720E-01, 0.5780E-01,& - 0.5871E-01, 0.5961E-01, 0.6021E-01, 0.6111E-01,& - 0.6202E-01, 0.6262E-01, 0.6352E-01, 0.6442E-01,& - 0.6533E-01, 0.6623E-01, 0.6713E-01, 0.6804E-01,& - 0.6894E-01, 0.6984E-01, 0.7075E-01, 0.7165E-01,& - 0.7255E-01, 0.7345E-01, 0.7436E-01, 0.7526E-01,& - 0.7646E-01, 0.7737E-01, 0.7827E-01, 0.7947E-01,& - 0.8038E-01, 0.8158E-01, 0.8248E-01, 0.8369E-01,& - 0.8459E-01, 0.8580E-01, 0.8700E-01, 0.8790E-01,& - 0.8911E-01, 0.9031E-01, 0.9152E-01, 0.9242E-01,& - 0.9362E-01, 0.9483E-01, 0.9603E-01, 0.9723E-01,& - 0.9844E-01, 0.9964E-01, 0.1011E+00, 0.1024E+00,& - 0.1036E+00, 0.1048E+00, 0.1063E+00, 0.1075E+00,& - 0.1090E+00, 0.1102E+00, 0.1117E+00, 0.1129E+00,& - 0.1144E+00, 0.1159E+00, 0.1171E+00, 0.1186E+00,& - 0.1201E+00, 0.1216E+00, 0.1231E+00, 0.1246E+00,& - 0.1261E+00, 0.1276E+00, 0.1291E+00, 0.1306E+00,& - 0.1325E+00, 0.1340E+00, 0.1355E+00, 0.1373E+00,& - 0.1388E+00, 0.1406E+00, 0.1421E+00, 0.1439E+00,& - 0.1457E+00, 0.1475E+00, 0.1493E+00, 0.1508E+00,& - 0.1526E+00, 0.1544E+00, 0.1565E+00, 0.1583E+00,& - 0.1601E+00, 0.1619E+00, 0.1641E+00, 0.1659E+00,& - 0.1680E+00, 0.1698E+00, 0.1719E+00, 0.1737E+00,& - 0.1758E+00, 0.1779E+00, 0.1800E+00, 0.1821E+00,& - 0.1842E+00, 0.1863E+00, 0.1884E+00, 0.1908E+00,& - 0.1930E+00, 0.1951E+00, 0.1975E+00, 0.1996E+00,& - 0.2020E+00, 0.2044E+00, 0.2068E+00, 0.2089E+00,& - 0.2113E+00, 0.2137E+00, 0.2164E+00, 0.2188E+00,& - 0.2212E+00, 0.2237E+00, 0.2264E+00, 0.2288E+00,& - 0.2315E+00, 0.2342E+00, 0.2369E+00, 0.2393E+00,& - 0.2420E+00, 0.2447E+00, 0.2477E+00, 0.2504E+00,& - 0.2532E+00, 0.2562E+00, 0.2589E+00, 0.2619E+00,& - 0.2646E+00, 0.2676E+00, 0.2706E+00, 0.2736E+00,& - 0.2766E+00, 0.2799E+00, 0.2830E+00, 0.2860E+00,& - 0.2893E+00, 0.2923E+00, 0.2956E+00, 0.2989E+00,& - 0.3022E+00, 0.3055E+00, 0.3088E+00, 0.3122E+00,& - 0.3158E+00, 0.3191E+00, 0.3227E+00, 0.3260E+00,& - 0.3296E+00, 0.3332E+00, 0.3368E+00, 0.3404E+00,& - 0.3444E+00, 0.3480E+00, 0.3519E+00, 0.3555E+00,& - 0.3594E+00, 0.3633E+00, 0.3672E+00, 0.3711E+00,& - 0.3751E+00, 0.3793E+00, 0.3832E+00, 0.3874E+00,& - 0.3916E+00, 0.3958E+00, 0.4000E+00, 0.4043E+00,& - 0.4085E+00, 0.4130E+00, 0.4172E+00, 0.4217E+00,& - 0.4262E+00, 0.4307E+00, 0.4353E+00, 0.4398E+00,& - 0.4446E+00, 0.4494E+00, 0.4539E+00, 0.4587E+00,& - 0.4636E+00, 0.4687E+00, 0.4735E+00, 0.4786E+00,& - 0.4834E+00, 0.4885E+00, 0.4937E+00, 0.4988E+00,& - 0.5042E+00, 0.5093E+00, 0.5147E+00, 0.5201E+00,& - 0.5256E+00, 0.5310E+00, 0.5364E+00, 0.5421E+00,& - 0.5478E+00, 0.5536E+00, 0.5593E+00, 0.5650E+00,& - 0.5707E+00, 0.5767E+00, 0.5828E+00, 0.5888E+00,& - 0.5948E+00, 0.6011E+00, 0.6071E+00, 0.6135E+00,& - 0.6198E+00, 0.6261E+00, 0.6327E+00, 0.6390E+00,& - 0.6457E+00, 0.6523E+00, 0.6589E+00, 0.6658E+00,& - 0.6728E+00, 0.6794E+00, 0.6866E+00, 0.6935E+00,& - 0.7004E+00, 0.7077E+00, 0.7149E+00, 0.7221E+00,& - 0.7296E+00, 0.7372E+00, 0.7447E+00, 0.7522E+00,& - 0.7597E+00, 0.7676E+00, 0.7754E+00, 0.7832E+00,& - 0.7910E+00, 0.7992E+00, 0.8073E+00, 0.8154E+00,& - 0.8239E+00, 0.8320E+00, 0.8404E+00, 0.8491E+00,& - 0.8576E+00, 0.8663E+00, 0.8750E+00, 0.8838E+00,& - 0.8928E+00, 0.9018E+00, 0.9108E+00, 0.9202E+00,& - 0.9292E+00, 0.9388E+00, 0.9482E+00, 0.9578E+00,& - 0.9674E+00, 0.9771E+00, 0.9870E+00, 0.9969E+00,& - 0.1007E+01, 0.1017E+01, 0.1027E+01, 0.1038E+01,& - 0.1048E+01, 0.1059E+01, 0.1069E+01, 0.1080E+01,& - 0.1091E+01, 0.1102E+01, 0.1113E+01, 0.1124E+01,& - 0.1135E+01, 0.1147E+01, 0.1158E+01, 0.1170E+01,& - 0.1181E+01, 0.1193E+01, 0.1205E+01, 0.1217E+01,& - 0.1230E+01, 0.1242E+01, 0.1254E+01, 0.1267E+01,& - 0.1280E+01, 0.1293E+01, 0.1305E+01, 0.1318E+01,& - 0.1332E+01, 0.1345E+01, 0.1359E+01, 0.1372E+01,& - 0.1386E+01, 0.1400E+01, 0.1414E+01, 0.1428E+01,& - 0.1443E+01, 0.1457E+01, 0.1472E+01, 0.1487E+01,& - 0.1501E+01, 0.1517E+01, 0.1532E+01, 0.1547E+01,& - 0.1563E+01, 0.1579E+01, 0.1595E+01, 0.1611E+01,& - 0.1627E+01, 0.1643E+01, 0.1660E+01, 0.1677E+01,& - 0.1694E+01, 0.1711E+01, 0.1728E+01, 0.1746E+01,& - 0.1764E+01, 0.1781E+01, 0.1799E+01, 0.1818E+01,& - 0.1836E+01, 0.1855E+01, 0.1874E+01, 0.1893E+01,& - 0.1912E+01, 0.1932E+01, 0.1951E+01, 0.1972E+01,& - 0.1992E+01, 0.2012E+01, 0.2033E+01, 0.2053E+01,& - 0.2075E+01, 0.2096E+01, 0.2118E+01, 0.2140E+01,& - 0.2162E+01, 0.2184E+01, 0.2206E+01, 0.2229E+01,& - 0.2252E+01, 0.2276E+01, 0.2300E+01, 0.2323E+01,& - 0.2348E+01, 0.2372E+01, 0.2397E+01, 0.2422E+01,& - 0.2447E+01, 0.2473E+01, 0.2499E+01, 0.2526E+01,& - 0.2553E+01, 0.2579E+01, 0.2607E+01, 0.2634E+01,& - 0.2662E+01, 0.2691E+01, 0.2720E+01, 0.2749E+01,& - 0.2778E+01, 0.2808E+01, 0.2838E+01, 0.2869E+01,& - 0.2900E+01, 0.2931E+01, 0.2963E+01, 0.2995E+01,& - 0.3028E+01, 0.3061E+01, 0.3095E+01, 0.3129E+01,& - 0.3163E+01, 0.3198E+01, 0.3234E+01, 0.3270E+01,& - 0.3306E+01, 0.3343E+01, 0.3381E+01, 0.3419E+01,& - 0.3457E+01, 0.3496E+01, 0.3536E+01, 0.3576E+01,& - 0.3617E+01, 0.3659E+01, 0.3701E+01, 0.3744E+01,& - 0.3787E+01, 0.3831E+01, 0.3876E+01, 0.3921E+01,& - 0.3968E+01, 0.4014E+01, 0.4062E+01, 0.4111E+01,& - 0.4160E+01, 0.4210E+01, 0.4261E+01, 0.4313E+01,& - 0.4365E+01, 0.4419E+01, 0.4474E+01, 0.4529E+01,& - 0.4585E+01, 0.4643E+01, 0.4701E+01, 0.4761E+01,& - 0.4822E+01, 0.4883E+01, 0.4947E+01, 0.5011E+01,& - 0.5076E+01, 0.5143E+01, 0.5211E+01, 0.5281E+01,& - 0.5352E+01, 0.5424E+01, 0.5498E+01, 0.5574E+01,& - 0.5651E+01, 0.5731E+01, 0.5811E+01, 0.5894E+01,& - 0.5979E+01, 0.6065E+01, 0.6154E+01, 0.6245E+01,& - 0.6338E+01, 0.6433E+01, 0.6531E+01, 0.6632E+01,& - 0.6736E+01, 0.6842E+01, 0.6951E+01, 0.7064E+01,& - 0.7180E+01, 0.7299E+01, 0.7422E+01, 0.7549E+01,& - 0.7680E+01, 0.7812E+01, 0.7957E+01, 0.8102E+01,& - 0.8254E+01, 0.8410E+01, 0.8573E+01, 0.8743E+01,& - 0.8920E+01, 0.9105E+01, 0.9298E+01, 0.9500E+01,& - 0.9714E+01, 0.9938E+01, 0.1017E+02, 0.1043E+02,& - 0.1069E+02, 0.1098E+02, 0.1128E+02, 0.1161E+02,& - 0.1196E+02, 0.1235E+02, 0.1277E+02, 0.1324E+02,& - 0.1376E+02, 0.1437E+02, 0.1506E+02, 0.1590E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,103) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3160E-03, 0.3160E-03, 0.3160E-03, 0.3160E-03,& - 0.3160E-03, 0.3160E-03, 0.3160E-03, 0.3160E-03,& - 0.3160E-03, 0.3160E-03, 0.3160E-03, 0.3160E-03,& - 0.3160E-03, 0.3160E-03, 0.3160E-03, 0.3160E-03,& - 0.3160E-03, 0.3160E-03, 0.3160E-03, 0.3160E-03,& - 0.3160E-03, 0.3160E-03, 0.3160E-03, 0.3160E-03,& - 0.3160E-03, 0.3160E-03, 0.6221E-03, 0.6221E-03,& - 0.6221E-03, 0.6221E-03, 0.6221E-03, 0.6221E-03,& - 0.6221E-03, 0.6221E-03, 0.6221E-03, 0.6221E-03,& - 0.6221E-03, 0.6221E-03, 0.6221E-03, 0.6221E-03,& - 0.6221E-03, 0.6221E-03, 0.9281E-03, 0.9281E-03,& - 0.9281E-03, 0.9281E-03, 0.9281E-03, 0.9281E-03,& - 0.9281E-03, 0.9281E-03, 0.9281E-03, 0.9281E-03,& - 0.9281E-03, 0.9281E-03, 0.9281E-03, 0.1234E-02,& - 0.1234E-02, 0.1234E-02, 0.1234E-02, 0.1234E-02,& - 0.1234E-02, 0.1234E-02, 0.1234E-02, 0.1234E-02,& - 0.1540E-02, 0.1540E-02, 0.1540E-02, 0.1540E-02,& - 0.1540E-02, 0.1540E-02, 0.1540E-02, 0.1540E-02,& - 0.1540E-02, 0.1846E-02, 0.1846E-02, 0.1846E-02,& - 0.1846E-02, 0.1846E-02, 0.1846E-02, 0.1846E-02,& - 0.2152E-02, 0.2152E-02, 0.2152E-02, 0.2152E-02,& - 0.2152E-02, 0.2152E-02, 0.2458E-02, 0.2458E-02,& - 0.2458E-02, 0.2458E-02, 0.2458E-02, 0.2458E-02,& - 0.2764E-02, 0.2764E-02, 0.2764E-02, 0.2764E-02,& - 0.2764E-02, 0.3070E-02, 0.3070E-02, 0.3070E-02,& - 0.3070E-02, 0.3070E-02, 0.3376E-02, 0.3376E-02,& - 0.3376E-02, 0.3376E-02, 0.3682E-02, 0.3682E-02,& - 0.3682E-02, 0.3682E-02, 0.3988E-02, 0.3988E-02,& - 0.3988E-02, 0.3988E-02, 0.4294E-02, 0.4294E-02,& - 0.4294E-02, 0.4294E-02, 0.4601E-02, 0.4601E-02,& - 0.4601E-02, 0.4907E-02, 0.4907E-02, 0.4907E-02,& - 0.5213E-02, 0.5213E-02, 0.5213E-02, 0.5519E-02,& - 0.5519E-02, 0.5519E-02, 0.5825E-02, 0.5825E-02,& - 0.5825E-02, 0.6131E-02, 0.6131E-02, 0.6131E-02,& - 0.6437E-02, 0.6437E-02, 0.6743E-02, 0.6743E-02,& - 0.6743E-02, 0.7049E-02, 0.7049E-02, 0.7355E-02,& - 0.7355E-02, 0.7661E-02, 0.7661E-02, 0.7661E-02,& - 0.7967E-02, 0.7967E-02, 0.8273E-02, 0.8273E-02,& - 0.8579E-02, 0.8579E-02, 0.8885E-02, 0.8885E-02,& - 0.9191E-02, 0.9191E-02, 0.9497E-02, 0.9803E-02,& - 0.9803E-02, 0.1011E-01, 0.1011E-01, 0.1042E-01,& - 0.1042E-01, 0.1072E-01, 0.1103E-01, 0.1103E-01,& - 0.1133E-01, 0.1133E-01, 0.1164E-01, 0.1195E-01,& - 0.1195E-01, 0.1225E-01, 0.1256E-01, 0.1256E-01,& - 0.1286E-01, 0.1317E-01, 0.1348E-01, 0.1348E-01,& - 0.1378E-01, 0.1409E-01, 0.1439E-01, 0.1439E-01,& - 0.1470E-01, 0.1501E-01, 0.1531E-01, 0.1562E-01,& - 0.1562E-01, 0.1592E-01, 0.1623E-01, 0.1654E-01,& - 0.1684E-01, 0.1715E-01, 0.1745E-01, 0.1776E-01,& - 0.1776E-01, 0.1807E-01, 0.1837E-01, 0.1868E-01,& - 0.1898E-01, 0.1929E-01, 0.1960E-01, 0.1990E-01,& - 0.2021E-01, 0.2051E-01, 0.2082E-01, 0.2143E-01,& - 0.2174E-01, 0.2204E-01, 0.2235E-01, 0.2266E-01,& - 0.2296E-01, 0.2327E-01, 0.2388E-01, 0.2419E-01,& - 0.2449E-01, 0.2480E-01, 0.2510E-01, 0.2572E-01,& - 0.2602E-01, 0.2633E-01, 0.2694E-01, 0.2725E-01,& - 0.2755E-01, 0.2817E-01, 0.2847E-01, 0.2878E-01,& - 0.2939E-01, 0.2970E-01, 0.3031E-01, 0.3061E-01,& - 0.3123E-01, 0.3153E-01, 0.3214E-01, 0.3245E-01,& - 0.3306E-01, 0.3337E-01, 0.3398E-01, 0.3459E-01,& - 0.3490E-01, 0.3551E-01, 0.3612E-01, 0.3643E-01,& - 0.3704E-01, 0.3765E-01, 0.3826E-01, 0.3857E-01,& - 0.3918E-01, 0.3979E-01, 0.4041E-01, 0.4102E-01,& - 0.4163E-01, 0.4224E-01, 0.4285E-01, 0.4347E-01,& - 0.4408E-01, 0.4469E-01, 0.4530E-01, 0.4592E-01,& - 0.4653E-01, 0.4714E-01, 0.4775E-01, 0.4836E-01,& - 0.4928E-01, 0.4989E-01, 0.5051E-01, 0.5112E-01,& - 0.5204E-01, 0.5265E-01, 0.5357E-01, 0.5418E-01,& - 0.5479E-01, 0.5571E-01, 0.5632E-01, 0.5724E-01,& - 0.5785E-01, 0.5877E-01, 0.5969E-01, 0.6030E-01,& - 0.6122E-01, 0.6213E-01, 0.6275E-01, 0.6367E-01,& - 0.6458E-01, 0.6550E-01, 0.6642E-01, 0.6734E-01,& - 0.6795E-01, 0.6887E-01, 0.6979E-01, 0.7101E-01,& - 0.7193E-01, 0.7285E-01, 0.7376E-01, 0.7468E-01,& - 0.7560E-01, 0.7682E-01, 0.7774E-01, 0.7866E-01,& - 0.7988E-01, 0.8080E-01, 0.8172E-01, 0.8295E-01,& - 0.8386E-01, 0.8509E-01, 0.8631E-01, 0.8723E-01,& - 0.8845E-01, 0.8968E-01, 0.9060E-01, 0.9182E-01,& - 0.9304E-01, 0.9427E-01, 0.9549E-01, 0.9672E-01,& - 0.9794E-01, 0.9917E-01, 0.1004E+00, 0.1016E+00,& - 0.1028E+00, 0.1044E+00, 0.1056E+00, 0.1068E+00,& - 0.1083E+00, 0.1096E+00, 0.1111E+00, 0.1123E+00,& - 0.1139E+00, 0.1154E+00, 0.1166E+00, 0.1181E+00,& - 0.1197E+00, 0.1212E+00, 0.1227E+00, 0.1240E+00,& - 0.1258E+00, 0.1273E+00, 0.1289E+00, 0.1304E+00,& - 0.1319E+00, 0.1334E+00, 0.1353E+00, 0.1368E+00,& - 0.1386E+00, 0.1402E+00, 0.1420E+00, 0.1435E+00,& - 0.1454E+00, 0.1472E+00, 0.1490E+00, 0.1506E+00,& - 0.1524E+00, 0.1543E+00, 0.1561E+00, 0.1582E+00,& - 0.1601E+00, 0.1619E+00, 0.1637E+00, 0.1659E+00,& - 0.1677E+00, 0.1699E+00, 0.1717E+00, 0.1738E+00,& - 0.1760E+00, 0.1781E+00, 0.1800E+00, 0.1821E+00,& - 0.1842E+00, 0.1867E+00, 0.1888E+00, 0.1910E+00,& - 0.1931E+00, 0.1956E+00, 0.1977E+00, 0.2002E+00,& - 0.2023E+00, 0.2047E+00, 0.2072E+00, 0.2096E+00,& - 0.2121E+00, 0.2145E+00, 0.2170E+00, 0.2194E+00,& - 0.2219E+00, 0.2246E+00, 0.2271E+00, 0.2295E+00,& - 0.2323E+00, 0.2350E+00, 0.2378E+00, 0.2402E+00,& - 0.2430E+00, 0.2458E+00, 0.2488E+00, 0.2516E+00,& - 0.2543E+00, 0.2574E+00, 0.2601E+00, 0.2632E+00,& - 0.2663E+00, 0.2690E+00, 0.2721E+00, 0.2751E+00,& - 0.2782E+00, 0.2816E+00, 0.2846E+00, 0.2877E+00,& - 0.2910E+00, 0.2944E+00, 0.2975E+00, 0.3008E+00,& - 0.3042E+00, 0.3076E+00, 0.3109E+00, 0.3146E+00,& - 0.3180E+00, 0.3213E+00, 0.3250E+00, 0.3287E+00,& - 0.3324E+00, 0.3360E+00, 0.3397E+00, 0.3434E+00,& - 0.3471E+00, 0.3510E+00, 0.3547E+00, 0.3587E+00,& - 0.3627E+00, 0.3666E+00, 0.3706E+00, 0.3746E+00,& - 0.3786E+00, 0.3829E+00, 0.3871E+00, 0.3911E+00,& - 0.3954E+00, 0.3997E+00, 0.4040E+00, 0.4086E+00,& - 0.4128E+00, 0.4174E+00, 0.4217E+00, 0.4263E+00,& - 0.4309E+00, 0.4355E+00, 0.4404E+00, 0.4450E+00,& - 0.4499E+00, 0.4545E+00, 0.4594E+00, 0.4643E+00,& - 0.4695E+00, 0.4744E+00, 0.4793E+00, 0.4845E+00,& - 0.4897E+00, 0.4949E+00, 0.5001E+00, 0.5056E+00,& - 0.5108E+00, 0.5163E+00, 0.5218E+00, 0.5273E+00,& - 0.5328E+00, 0.5383E+00, 0.5441E+00, 0.5500E+00,& - 0.5558E+00, 0.5616E+00, 0.5674E+00, 0.5732E+00,& - 0.5793E+00, 0.5855E+00, 0.5916E+00, 0.5977E+00,& - 0.6041E+00, 0.6102E+00, 0.6167E+00, 0.6231E+00,& - 0.6298E+00, 0.6363E+00, 0.6430E+00, 0.6497E+00,& - 0.6565E+00, 0.6632E+00, 0.6702E+00, 0.6770E+00,& - 0.6840E+00, 0.6913E+00, 0.6984E+00, 0.7057E+00,& - 0.7131E+00, 0.7204E+00, 0.7278E+00, 0.7354E+00,& - 0.7428E+00, 0.7507E+00, 0.7584E+00, 0.7660E+00,& - 0.7740E+00, 0.7819E+00, 0.7902E+00, 0.7981E+00,& - 0.8064E+00, 0.8147E+00, 0.8232E+00, 0.8315E+00,& - 0.8401E+00, 0.8486E+00, 0.8575E+00, 0.8661E+00,& - 0.8753E+00, 0.8841E+00, 0.8930E+00, 0.9022E+00,& - 0.9114E+00, 0.9209E+00, 0.9304E+00, 0.9398E+00,& - 0.9493E+00, 0.9591E+00, 0.9689E+00, 0.9787E+00,& - 0.9888E+00, 0.9989E+00, 0.1009E+01, 0.1019E+01,& - 0.1030E+01, 0.1040E+01, 0.1051E+01, 0.1062E+01,& - 0.1072E+01, 0.1083E+01, 0.1094E+01, 0.1105E+01,& - 0.1117E+01, 0.1128E+01, 0.1140E+01, 0.1151E+01,& - 0.1163E+01, 0.1175E+01, 0.1187E+01, 0.1199E+01,& - 0.1211E+01, 0.1223E+01, 0.1236E+01, 0.1248E+01,& - 0.1261E+01, 0.1274E+01, 0.1287E+01, 0.1300E+01,& - 0.1313E+01, 0.1327E+01, 0.1340E+01, 0.1354E+01,& - 0.1368E+01, 0.1381E+01, 0.1396E+01, 0.1410E+01,& - 0.1424E+01, 0.1439E+01, 0.1453E+01, 0.1468E+01,& - 0.1483E+01, 0.1498E+01, 0.1514E+01, 0.1529E+01,& - 0.1545E+01, 0.1560E+01, 0.1576E+01, 0.1593E+01,& - 0.1609E+01, 0.1625E+01, 0.1642E+01, 0.1659E+01,& - 0.1676E+01, 0.1693E+01, 0.1710E+01, 0.1728E+01,& - 0.1746E+01, 0.1764E+01, 0.1782E+01, 0.1800E+01,& - 0.1819E+01, 0.1838E+01, 0.1857E+01, 0.1876E+01,& - 0.1895E+01, 0.1915E+01, 0.1935E+01, 0.1955E+01,& - 0.1975E+01, 0.1996E+01, 0.2016E+01, 0.2037E+01,& - 0.2058E+01, 0.2080E+01, 0.2102E+01, 0.2124E+01,& - 0.2146E+01, 0.2168E+01, 0.2191E+01, 0.2214E+01,& - 0.2237E+01, 0.2261E+01, 0.2285E+01, 0.2309E+01,& - 0.2333E+01, 0.2358E+01, 0.2383E+01, 0.2408E+01,& - 0.2434E+01, 0.2460E+01, 0.2486E+01, 0.2513E+01,& - 0.2539E+01, 0.2566E+01, 0.2594E+01, 0.2622E+01,& - 0.2650E+01, 0.2679E+01, 0.2708E+01, 0.2737E+01,& - 0.2767E+01, 0.2797E+01, 0.2827E+01, 0.2858E+01,& - 0.2890E+01, 0.2921E+01, 0.2954E+01, 0.2986E+01,& - 0.3019E+01, 0.3052E+01, 0.3086E+01, 0.3121E+01,& - 0.3156E+01, 0.3191E+01, 0.3227E+01, 0.3263E+01,& - 0.3300E+01, 0.3337E+01, 0.3375E+01, 0.3414E+01,& - 0.3452E+01, 0.3492E+01, 0.3532E+01, 0.3573E+01,& - 0.3614E+01, 0.3656E+01, 0.3699E+01, 0.3742E+01,& - 0.3786E+01, 0.3830E+01, 0.3876E+01, 0.3922E+01,& - 0.3968E+01, 0.4016E+01, 0.4064E+01, 0.4113E+01,& - 0.4163E+01, 0.4213E+01, 0.4265E+01, 0.4318E+01,& - 0.4371E+01, 0.4425E+01, 0.4480E+01, 0.4537E+01,& - 0.4594E+01, 0.4652E+01, 0.4711E+01, 0.4772E+01,& - 0.4833E+01, 0.4896E+01, 0.4960E+01, 0.5025E+01,& - 0.5091E+01, 0.5159E+01, 0.5228E+01, 0.5298E+01,& - 0.5370E+01, 0.5444E+01, 0.5519E+01, 0.5596E+01,& - 0.5674E+01, 0.5754E+01, 0.5836E+01, 0.5920E+01,& - 0.6006E+01, 0.6094E+01, 0.6184E+01, 0.6276E+01,& - 0.6370E+01, 0.6467E+01, 0.6567E+01, 0.6669E+01,& - 0.6774E+01, 0.6882E+01, 0.6993E+01, 0.7108E+01,& - 0.7225E+01, 0.7347E+01, 0.7472E+01, 0.7601E+01,& - 0.7734E+01, 0.7872E+01, 0.8015E+01, 0.8163E+01,& - 0.8316E+01, 0.8476E+01, 0.8641E+01, 0.8814E+01,& - 0.8994E+01, 0.9182E+01, 0.9379E+01, 0.9585E+01,& - 0.9802E+01, 0.1003E+02, 0.1027E+02, 0.1053E+02,& - 0.1080E+02, 0.1109E+02, 0.1139E+02, 0.1173E+02,& - 0.1209E+02, 0.1248E+02, 0.1291E+02, 0.1339E+02,& - 0.1393E+02, 0.1454E+02, 0.1525E+02, 0.1611E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,104) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3211E-03,& - 0.3211E-03, 0.3211E-03, 0.3211E-03, 0.3211E-03,& - 0.3211E-03, 0.3211E-03, 0.3211E-03, 0.3211E-03,& - 0.3211E-03, 0.3211E-03, 0.3211E-03, 0.3211E-03,& - 0.3211E-03, 0.3211E-03, 0.3211E-03, 0.3211E-03,& - 0.3211E-03, 0.3211E-03, 0.3211E-03, 0.3211E-03,& - 0.3211E-03, 0.3211E-03, 0.3211E-03, 0.3211E-03,& - 0.6322E-03, 0.6322E-03, 0.6322E-03, 0.6322E-03,& - 0.6322E-03, 0.6322E-03, 0.6322E-03, 0.6322E-03,& - 0.6322E-03, 0.6322E-03, 0.6322E-03, 0.6322E-03,& - 0.6322E-03, 0.6322E-03, 0.6322E-03, 0.6322E-03,& - 0.6322E-03, 0.9433E-03, 0.9433E-03, 0.9433E-03,& - 0.9433E-03, 0.9433E-03, 0.9433E-03, 0.9433E-03,& - 0.9433E-03, 0.9433E-03, 0.9433E-03, 0.9433E-03,& - 0.9433E-03, 0.1254E-02, 0.1254E-02, 0.1254E-02,& - 0.1254E-02, 0.1254E-02, 0.1254E-02, 0.1254E-02,& - 0.1254E-02, 0.1254E-02, 0.1254E-02, 0.1566E-02,& - 0.1566E-02, 0.1566E-02, 0.1566E-02, 0.1566E-02,& - 0.1566E-02, 0.1566E-02, 0.1566E-02, 0.1877E-02,& - 0.1877E-02, 0.1877E-02, 0.1877E-02, 0.1877E-02,& - 0.1877E-02, 0.1877E-02, 0.1877E-02, 0.2188E-02,& - 0.2188E-02, 0.2188E-02, 0.2188E-02, 0.2188E-02,& - 0.2188E-02, 0.2499E-02, 0.2499E-02, 0.2499E-02,& - 0.2499E-02, 0.2499E-02, 0.2499E-02, 0.2810E-02,& - 0.2810E-02, 0.2810E-02, 0.2810E-02, 0.2810E-02,& - 0.3121E-02, 0.3121E-02, 0.3121E-02, 0.3121E-02,& - 0.3432E-02, 0.3432E-02, 0.3432E-02, 0.3432E-02,& - 0.3432E-02, 0.3743E-02, 0.3743E-02, 0.3743E-02,& - 0.3743E-02, 0.4054E-02, 0.4054E-02, 0.4054E-02,& - 0.4054E-02, 0.4366E-02, 0.4366E-02, 0.4366E-02,& - 0.4677E-02, 0.4677E-02, 0.4677E-02, 0.4677E-02,& - 0.4988E-02, 0.4988E-02, 0.4988E-02, 0.5299E-02,& - 0.5299E-02, 0.5299E-02, 0.5610E-02, 0.5610E-02,& - 0.5610E-02, 0.5921E-02, 0.5921E-02, 0.5921E-02,& - 0.6232E-02, 0.6232E-02, 0.6543E-02, 0.6543E-02,& - 0.6543E-02, 0.6854E-02, 0.6854E-02, 0.7166E-02,& - 0.7166E-02, 0.7166E-02, 0.7477E-02, 0.7477E-02,& - 0.7788E-02, 0.7788E-02, 0.8099E-02, 0.8099E-02,& - 0.8410E-02, 0.8410E-02, 0.8721E-02, 0.8721E-02,& - 0.9032E-02, 0.9032E-02, 0.9343E-02, 0.9343E-02,& - 0.9654E-02, 0.9654E-02, 0.9966E-02, 0.9966E-02,& - 0.1028E-01, 0.1028E-01, 0.1059E-01, 0.1090E-01,& - 0.1090E-01, 0.1121E-01, 0.1121E-01, 0.1152E-01,& - 0.1183E-01, 0.1183E-01, 0.1214E-01, 0.1245E-01,& - 0.1245E-01, 0.1277E-01, 0.1308E-01, 0.1308E-01,& - 0.1339E-01, 0.1370E-01, 0.1401E-01, 0.1401E-01,& - 0.1432E-01, 0.1463E-01, 0.1494E-01, 0.1525E-01,& - 0.1525E-01, 0.1557E-01, 0.1588E-01, 0.1619E-01,& - 0.1650E-01, 0.1681E-01, 0.1681E-01, 0.1712E-01,& - 0.1743E-01, 0.1774E-01, 0.1805E-01, 0.1837E-01,& - 0.1868E-01, 0.1899E-01, 0.1930E-01, 0.1961E-01,& - 0.1992E-01, 0.2023E-01, 0.2054E-01, 0.2085E-01,& - 0.2117E-01, 0.2148E-01, 0.2179E-01, 0.2210E-01,& - 0.2241E-01, 0.2303E-01, 0.2334E-01, 0.2365E-01,& - 0.2397E-01, 0.2428E-01, 0.2459E-01, 0.2521E-01,& - 0.2552E-01, 0.2583E-01, 0.2614E-01, 0.2677E-01,& - 0.2708E-01, 0.2739E-01, 0.2801E-01, 0.2832E-01,& - 0.2863E-01, 0.2925E-01, 0.2957E-01, 0.3019E-01,& - 0.3050E-01, 0.3112E-01, 0.3143E-01, 0.3205E-01,& - 0.3237E-01, 0.3299E-01, 0.3330E-01, 0.3392E-01,& - 0.3454E-01, 0.3485E-01, 0.3548E-01, 0.3579E-01,& - 0.3641E-01, 0.3703E-01, 0.3765E-01, 0.3797E-01,& - 0.3859E-01, 0.3921E-01, 0.3983E-01, 0.4045E-01,& - 0.4108E-01, 0.4139E-01, 0.4201E-01, 0.4263E-01,& - 0.4325E-01, 0.4388E-01, 0.4450E-01, 0.4512E-01,& - 0.4574E-01, 0.4637E-01, 0.4730E-01, 0.4792E-01,& - 0.4854E-01, 0.4917E-01, 0.4979E-01, 0.5072E-01,& - 0.5134E-01, 0.5197E-01, 0.5290E-01, 0.5352E-01,& - 0.5414E-01, 0.5508E-01, 0.5570E-01, 0.5663E-01,& - 0.5725E-01, 0.5819E-01, 0.5881E-01, 0.5974E-01,& - 0.6068E-01, 0.6130E-01, 0.6223E-01, 0.6317E-01,& - 0.6379E-01, 0.6472E-01, 0.6565E-01, 0.6659E-01,& - 0.6752E-01, 0.6845E-01, 0.6939E-01, 0.7032E-01,& - 0.7125E-01, 0.7219E-01, 0.7312E-01, 0.7405E-01,& - 0.7499E-01, 0.7592E-01, 0.7717E-01, 0.7810E-01,& - 0.7903E-01, 0.8028E-01, 0.8121E-01, 0.8214E-01,& - 0.8339E-01, 0.8432E-01, 0.8557E-01, 0.8681E-01,& - 0.8774E-01, 0.8899E-01, 0.9023E-01, 0.9117E-01,& - 0.9241E-01, 0.9365E-01, 0.9490E-01, 0.9614E-01,& - 0.9739E-01, 0.9863E-01, 0.9988E-01, 0.1011E+00,& - 0.1024E+00, 0.1039E+00, 0.1052E+00, 0.1064E+00,& - 0.1077E+00, 0.1092E+00, 0.1105E+00, 0.1120E+00,& - 0.1133E+00, 0.1148E+00, 0.1164E+00, 0.1176E+00,& - 0.1192E+00, 0.1207E+00, 0.1223E+00, 0.1238E+00,& - 0.1254E+00, 0.1269E+00, 0.1285E+00, 0.1301E+00,& - 0.1316E+00, 0.1332E+00, 0.1350E+00, 0.1366E+00,& - 0.1381E+00, 0.1400E+00, 0.1416E+00, 0.1434E+00,& - 0.1453E+00, 0.1469E+00, 0.1487E+00, 0.1506E+00,& - 0.1525E+00, 0.1543E+00, 0.1562E+00, 0.1581E+00,& - 0.1599E+00, 0.1618E+00, 0.1640E+00, 0.1658E+00,& - 0.1680E+00, 0.1699E+00, 0.1721E+00, 0.1739E+00,& - 0.1761E+00, 0.1783E+00, 0.1805E+00, 0.1826E+00,& - 0.1848E+00, 0.1870E+00, 0.1892E+00, 0.1913E+00,& - 0.1935E+00, 0.1960E+00, 0.1982E+00, 0.2007E+00,& - 0.2029E+00, 0.2053E+00, 0.2078E+00, 0.2103E+00,& - 0.2125E+00, 0.2150E+00, 0.2178E+00, 0.2203E+00,& - 0.2228E+00, 0.2253E+00, 0.2281E+00, 0.2305E+00,& - 0.2333E+00, 0.2361E+00, 0.2386E+00, 0.2414E+00,& - 0.2442E+00, 0.2470E+00, 0.2498E+00, 0.2529E+00,& - 0.2557E+00, 0.2589E+00, 0.2617E+00, 0.2648E+00,& - 0.2676E+00, 0.2707E+00, 0.2738E+00, 0.2769E+00,& - 0.2800E+00, 0.2834E+00, 0.2865E+00, 0.2897E+00,& - 0.2931E+00, 0.2965E+00, 0.2996E+00, 0.3030E+00,& - 0.3065E+00, 0.3099E+00, 0.3136E+00, 0.3170E+00,& - 0.3205E+00, 0.3242E+00, 0.3279E+00, 0.3313E+00,& - 0.3351E+00, 0.3388E+00, 0.3425E+00, 0.3466E+00,& - 0.3503E+00, 0.3544E+00, 0.3581E+00, 0.3621E+00,& - 0.3662E+00, 0.3702E+00, 0.3743E+00, 0.3783E+00,& - 0.3827E+00, 0.3867E+00, 0.3911E+00, 0.3954E+00,& - 0.3998E+00, 0.4041E+00, 0.4085E+00, 0.4132E+00,& - 0.4175E+00, 0.4222E+00, 0.4269E+00, 0.4315E+00,& - 0.4362E+00, 0.4409E+00, 0.4455E+00, 0.4505E+00,& - 0.4555E+00, 0.4605E+00, 0.4654E+00, 0.4704E+00,& - 0.4754E+00, 0.4807E+00, 0.4857E+00, 0.4909E+00,& - 0.4962E+00, 0.5015E+00, 0.5071E+00, 0.5124E+00,& - 0.5180E+00, 0.5236E+00, 0.5292E+00, 0.5348E+00,& - 0.5407E+00, 0.5463E+00, 0.5522E+00, 0.5581E+00,& - 0.5641E+00, 0.5700E+00, 0.5762E+00, 0.5824E+00,& - 0.5886E+00, 0.5949E+00, 0.6011E+00, 0.6076E+00,& - 0.6138E+00, 0.6204E+00, 0.6269E+00, 0.6337E+00,& - 0.6403E+00, 0.6471E+00, 0.6540E+00, 0.6608E+00,& - 0.6677E+00, 0.6748E+00, 0.6820E+00, 0.6891E+00,& - 0.6963E+00, 0.7037E+00, 0.7112E+00, 0.7187E+00,& - 0.7261E+00, 0.7336E+00, 0.7414E+00, 0.7492E+00,& - 0.7569E+00, 0.7650E+00, 0.7731E+00, 0.7812E+00,& - 0.7893E+00, 0.7974E+00, 0.8058E+00, 0.8142E+00,& - 0.8226E+00, 0.8313E+00, 0.8400E+00, 0.8487E+00,& - 0.8574E+00, 0.8665E+00, 0.8755E+00, 0.8845E+00,& - 0.8938E+00, 0.9032E+00, 0.9125E+00, 0.9218E+00,& - 0.9315E+00, 0.9411E+00, 0.9508E+00, 0.9607E+00,& - 0.9707E+00, 0.9806E+00, 0.9909E+00, 0.1001E+01,& - 0.1011E+01, 0.1022E+01, 0.1033E+01, 0.1043E+01,& - 0.1054E+01, 0.1065E+01, 0.1076E+01, 0.1087E+01,& - 0.1098E+01, 0.1110E+01, 0.1121E+01, 0.1133E+01,& - 0.1144E+01, 0.1156E+01, 0.1168E+01, 0.1180E+01,& - 0.1193E+01, 0.1205E+01, 0.1217E+01, 0.1230E+01,& - 0.1243E+01, 0.1255E+01, 0.1268E+01, 0.1281E+01,& - 0.1295E+01, 0.1308E+01, 0.1322E+01, 0.1335E+01,& - 0.1349E+01, 0.1363E+01, 0.1377E+01, 0.1391E+01,& - 0.1406E+01, 0.1420E+01, 0.1435E+01, 0.1450E+01,& - 0.1465E+01, 0.1480E+01, 0.1495E+01, 0.1511E+01,& - 0.1526E+01, 0.1542E+01, 0.1558E+01, 0.1574E+01,& - 0.1591E+01, 0.1607E+01, 0.1624E+01, 0.1641E+01,& - 0.1658E+01, 0.1675E+01, 0.1692E+01, 0.1710E+01,& - 0.1728E+01, 0.1746E+01, 0.1764E+01, 0.1783E+01,& - 0.1801E+01, 0.1820E+01, 0.1839E+01, 0.1859E+01,& - 0.1878E+01, 0.1897E+01, 0.1917E+01, 0.1938E+01,& - 0.1958E+01, 0.1979E+01, 0.2000E+01, 0.2021E+01,& - 0.2042E+01, 0.2064E+01, 0.2085E+01, 0.2107E+01,& - 0.2130E+01, 0.2152E+01, 0.2175E+01, 0.2198E+01,& - 0.2222E+01, 0.2245E+01, 0.2270E+01, 0.2294E+01,& - 0.2318E+01, 0.2343E+01, 0.2368E+01, 0.2394E+01,& - 0.2420E+01, 0.2446E+01, 0.2472E+01, 0.2499E+01,& - 0.2526E+01, 0.2553E+01, 0.2581E+01, 0.2609E+01,& - 0.2638E+01, 0.2666E+01, 0.2695E+01, 0.2725E+01,& - 0.2755E+01, 0.2785E+01, 0.2816E+01, 0.2847E+01,& - 0.2879E+01, 0.2911E+01, 0.2943E+01, 0.2976E+01,& - 0.3009E+01, 0.3043E+01, 0.3077E+01, 0.3112E+01,& - 0.3147E+01, 0.3183E+01, 0.3219E+01, 0.3255E+01,& - 0.3293E+01, 0.3330E+01, 0.3369E+01, 0.3408E+01,& - 0.3447E+01, 0.3487E+01, 0.3527E+01, 0.3568E+01,& - 0.3610E+01, 0.3653E+01, 0.3696E+01, 0.3739E+01,& - 0.3784E+01, 0.3829E+01, 0.3875E+01, 0.3921E+01,& - 0.3969E+01, 0.4016E+01, 0.4065E+01, 0.4115E+01,& - 0.4165E+01, 0.4217E+01, 0.4269E+01, 0.4322E+01,& - 0.4376E+01, 0.4431E+01, 0.4487E+01, 0.4543E+01,& - 0.4601E+01, 0.4660E+01, 0.4720E+01, 0.4781E+01,& - 0.4844E+01, 0.4907E+01, 0.4972E+01, 0.5038E+01,& - 0.5105E+01, 0.5174E+01, 0.5244E+01, 0.5315E+01,& - 0.5388E+01, 0.5463E+01, 0.5539E+01, 0.5617E+01,& - 0.5696E+01, 0.5777E+01, 0.5860E+01, 0.5946E+01,& - 0.6032E+01, 0.6122E+01, 0.6213E+01, 0.6307E+01,& - 0.6403E+01, 0.6501E+01, 0.6602E+01, 0.6706E+01,& - 0.6812E+01, 0.6922E+01, 0.7035E+01, 0.7151E+01,& - 0.7270E+01, 0.7394E+01, 0.7521E+01, 0.7652E+01,& - 0.7787E+01, 0.7927E+01, 0.8073E+01, 0.8223E+01,& - 0.8379E+01, 0.8541E+01, 0.8710E+01, 0.8885E+01,& - 0.9068E+01, 0.9259E+01, 0.9459E+01, 0.9669E+01,& - 0.9889E+01, 0.1012E+02, 0.1037E+02, 0.1063E+02,& - 0.1090E+02, 0.1120E+02, 0.1151E+02, 0.1185E+02,& - 0.1222E+02, 0.1262E+02, 0.1305E+02, 0.1354E+02,& - 0.1409E+02, 0.1471E+02, 0.1544E+02, 0.1631E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,105) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3262E-03, 0.3262E-03, 0.3262E-03,& - 0.3262E-03, 0.3262E-03, 0.3262E-03, 0.3262E-03,& - 0.3262E-03, 0.3262E-03, 0.3262E-03, 0.3262E-03,& - 0.3262E-03, 0.3262E-03, 0.3262E-03, 0.3262E-03,& - 0.3262E-03, 0.3262E-03, 0.3262E-03, 0.3262E-03,& - 0.3262E-03, 0.3262E-03, 0.3262E-03, 0.3262E-03,& - 0.3262E-03, 0.3262E-03, 0.3262E-03, 0.6425E-03,& - 0.6425E-03, 0.6425E-03, 0.6425E-03, 0.6425E-03,& - 0.6425E-03, 0.6425E-03, 0.6425E-03, 0.6425E-03,& - 0.6425E-03, 0.6425E-03, 0.6425E-03, 0.6425E-03,& - 0.6425E-03, 0.6425E-03, 0.6425E-03, 0.9587E-03,& - 0.9587E-03, 0.9587E-03, 0.9587E-03, 0.9587E-03,& - 0.9587E-03, 0.9587E-03, 0.9587E-03, 0.9587E-03,& - 0.9587E-03, 0.9587E-03, 0.9587E-03, 0.9587E-03,& - 0.1275E-02, 0.1275E-02, 0.1275E-02, 0.1275E-02,& - 0.1275E-02, 0.1275E-02, 0.1275E-02, 0.1275E-02,& - 0.1275E-02, 0.1275E-02, 0.1591E-02, 0.1591E-02,& - 0.1591E-02, 0.1591E-02, 0.1591E-02, 0.1591E-02,& - 0.1591E-02, 0.1591E-02, 0.1907E-02, 0.1907E-02,& - 0.1907E-02, 0.1907E-02, 0.1907E-02, 0.1907E-02,& - 0.1907E-02, 0.2224E-02, 0.2224E-02, 0.2224E-02,& - 0.2224E-02, 0.2224E-02, 0.2224E-02, 0.2224E-02,& - 0.2540E-02, 0.2540E-02, 0.2540E-02, 0.2540E-02,& - 0.2540E-02, 0.2856E-02, 0.2856E-02, 0.2856E-02,& - 0.2856E-02, 0.2856E-02, 0.3172E-02, 0.3172E-02,& - 0.3172E-02, 0.3172E-02, 0.3172E-02, 0.3489E-02,& - 0.3489E-02, 0.3489E-02, 0.3489E-02, 0.3489E-02,& - 0.3805E-02, 0.3805E-02, 0.3805E-02, 0.3805E-02,& - 0.4121E-02, 0.4121E-02, 0.4121E-02, 0.4437E-02,& - 0.4437E-02, 0.4437E-02, 0.4437E-02, 0.4754E-02,& - 0.4754E-02, 0.4754E-02, 0.5070E-02, 0.5070E-02,& - 0.5070E-02, 0.5070E-02, 0.5386E-02, 0.5386E-02,& - 0.5386E-02, 0.5702E-02, 0.5702E-02, 0.5702E-02,& - 0.6019E-02, 0.6019E-02, 0.6335E-02, 0.6335E-02,& - 0.6335E-02, 0.6651E-02, 0.6651E-02, 0.6651E-02,& - 0.6967E-02, 0.6967E-02, 0.7283E-02, 0.7283E-02,& - 0.7600E-02, 0.7600E-02, 0.7600E-02, 0.7916E-02,& - 0.7916E-02, 0.8232E-02, 0.8232E-02, 0.8548E-02,& - 0.8548E-02, 0.8865E-02, 0.8865E-02, 0.9181E-02,& - 0.9181E-02, 0.9497E-02, 0.9497E-02, 0.9813E-02,& - 0.9813E-02, 0.1013E-01, 0.1045E-01, 0.1045E-01,& - 0.1076E-01, 0.1076E-01, 0.1108E-01, 0.1139E-01,& - 0.1139E-01, 0.1171E-01, 0.1171E-01, 0.1203E-01,& - 0.1234E-01, 0.1234E-01, 0.1266E-01, 0.1298E-01,& - 0.1298E-01, 0.1329E-01, 0.1361E-01, 0.1392E-01,& - 0.1392E-01, 0.1424E-01, 0.1456E-01, 0.1487E-01,& - 0.1487E-01, 0.1519E-01, 0.1551E-01, 0.1582E-01,& - 0.1614E-01, 0.1614E-01, 0.1645E-01, 0.1677E-01,& - 0.1709E-01, 0.1740E-01, 0.1772E-01, 0.1804E-01,& - 0.1835E-01, 0.1867E-01, 0.1898E-01, 0.1898E-01,& - 0.1930E-01, 0.1962E-01, 0.1993E-01, 0.2025E-01,& - 0.2057E-01, 0.2120E-01, 0.2151E-01, 0.2183E-01,& - 0.2215E-01, 0.2246E-01, 0.2278E-01, 0.2310E-01,& - 0.2341E-01, 0.2373E-01, 0.2436E-01, 0.2468E-01,& - 0.2499E-01, 0.2531E-01, 0.2594E-01, 0.2626E-01,& - 0.2657E-01, 0.2689E-01, 0.2752E-01, 0.2784E-01,& - 0.2816E-01, 0.2879E-01, 0.2910E-01, 0.2942E-01,& - 0.3005E-01, 0.3037E-01, 0.3100E-01, 0.3132E-01,& - 0.3195E-01, 0.3227E-01, 0.3290E-01, 0.3322E-01,& - 0.3385E-01, 0.3448E-01, 0.3480E-01, 0.3543E-01,& - 0.3574E-01, 0.3638E-01, 0.3701E-01, 0.3764E-01,& - 0.3796E-01, 0.3859E-01, 0.3922E-01, 0.3986E-01,& - 0.4049E-01, 0.4080E-01, 0.4144E-01, 0.4207E-01,& - 0.4270E-01, 0.4333E-01, 0.4397E-01, 0.4460E-01,& - 0.4523E-01, 0.4586E-01, 0.4650E-01, 0.4713E-01,& - 0.4776E-01, 0.4871E-01, 0.4934E-01, 0.4998E-01,& - 0.5061E-01, 0.5156E-01, 0.5219E-01, 0.5282E-01,& - 0.5377E-01, 0.5440E-01, 0.5504E-01, 0.5598E-01,& - 0.5662E-01, 0.5757E-01, 0.5820E-01, 0.5915E-01,& - 0.5978E-01, 0.6073E-01, 0.6168E-01, 0.6231E-01,& - 0.6326E-01, 0.6421E-01, 0.6516E-01, 0.6579E-01,& - 0.6674E-01, 0.6769E-01, 0.6863E-01, 0.6958E-01,& - 0.7053E-01, 0.7148E-01, 0.7243E-01, 0.7338E-01,& - 0.7433E-01, 0.7559E-01, 0.7654E-01, 0.7749E-01,& - 0.7844E-01, 0.7970E-01, 0.8065E-01, 0.8160E-01,& - 0.8286E-01, 0.8381E-01, 0.8508E-01, 0.8603E-01,& - 0.8729E-01, 0.8856E-01, 0.8951E-01, 0.9077E-01,& - 0.9204E-01, 0.9330E-01, 0.9425E-01, 0.9551E-01,& - 0.9678E-01, 0.9804E-01, 0.9931E-01, 0.1006E+00,& - 0.1022E+00, 0.1034E+00, 0.1047E+00, 0.1059E+00,& - 0.1075E+00, 0.1088E+00, 0.1101E+00, 0.1116E+00,& - 0.1129E+00, 0.1145E+00, 0.1158E+00, 0.1173E+00,& - 0.1189E+00, 0.1205E+00, 0.1218E+00, 0.1233E+00,& - 0.1249E+00, 0.1265E+00, 0.1281E+00, 0.1297E+00,& - 0.1316E+00, 0.1331E+00, 0.1347E+00, 0.1363E+00,& - 0.1382E+00, 0.1398E+00, 0.1417E+00, 0.1433E+00,& - 0.1452E+00, 0.1471E+00, 0.1486E+00, 0.1505E+00,& - 0.1524E+00, 0.1543E+00, 0.1562E+00, 0.1581E+00,& - 0.1600E+00, 0.1619E+00, 0.1641E+00, 0.1660E+00,& - 0.1679E+00, 0.1701E+00, 0.1720E+00, 0.1743E+00,& - 0.1765E+00, 0.1787E+00, 0.1806E+00, 0.1828E+00,& - 0.1850E+00, 0.1872E+00, 0.1894E+00, 0.1920E+00,& - 0.1942E+00, 0.1964E+00, 0.1989E+00, 0.2011E+00,& - 0.2037E+00, 0.2062E+00, 0.2084E+00, 0.2109E+00,& - 0.2135E+00, 0.2160E+00, 0.2185E+00, 0.2211E+00,& - 0.2239E+00, 0.2264E+00, 0.2290E+00, 0.2318E+00,& - 0.2347E+00, 0.2372E+00, 0.2400E+00, 0.2429E+00,& - 0.2457E+00, 0.2486E+00, 0.2514E+00, 0.2543E+00,& - 0.2574E+00, 0.2603E+00, 0.2634E+00, 0.2663E+00,& - 0.2694E+00, 0.2726E+00, 0.2758E+00, 0.2789E+00,& - 0.2821E+00, 0.2853E+00, 0.2887E+00, 0.2919E+00,& - 0.2954E+00, 0.2989E+00, 0.3020E+00, 0.3055E+00,& - 0.3090E+00, 0.3128E+00, 0.3162E+00, 0.3197E+00,& - 0.3235E+00, 0.3270E+00, 0.3308E+00, 0.3346E+00,& - 0.3384E+00, 0.3422E+00, 0.3460E+00, 0.3498E+00,& - 0.3539E+00, 0.3580E+00, 0.3618E+00, 0.3659E+00,& - 0.3700E+00, 0.3741E+00, 0.3782E+00, 0.3827E+00,& - 0.3868E+00, 0.3912E+00, 0.3956E+00, 0.4001E+00,& - 0.4045E+00, 0.4089E+00, 0.4133E+00, 0.4181E+00,& - 0.4225E+00, 0.4272E+00, 0.4320E+00, 0.4367E+00,& - 0.4418E+00, 0.4465E+00, 0.4513E+00, 0.4563E+00,& - 0.4614E+00, 0.4665E+00, 0.4715E+00, 0.4769E+00,& - 0.4820E+00, 0.4873E+00, 0.4927E+00, 0.4981E+00,& - 0.5035E+00, 0.5088E+00, 0.5145E+00, 0.5202E+00,& - 0.5256E+00, 0.5316E+00, 0.5373E+00, 0.5430E+00,& - 0.5490E+00, 0.5550E+00, 0.5610E+00, 0.5670E+00,& - 0.5730E+00, 0.5794E+00, 0.5857E+00, 0.5920E+00,& - 0.5983E+00, 0.6047E+00, 0.6113E+00, 0.6176E+00,& - 0.6243E+00, 0.6312E+00, 0.6379E+00, 0.6448E+00,& - 0.6518E+00, 0.6587E+00, 0.6657E+00, 0.6726E+00,& - 0.6799E+00, 0.6872E+00, 0.6945E+00, 0.7021E+00,& - 0.7093E+00, 0.7169E+00, 0.7245E+00, 0.7324E+00,& - 0.7400E+00, 0.7479E+00, 0.7558E+00, 0.7640E+00,& - 0.7719E+00, 0.7802E+00, 0.7887E+00, 0.7969E+00,& - 0.8055E+00, 0.8140E+00, 0.8225E+00, 0.8311E+00,& - 0.8399E+00, 0.8488E+00, 0.8580E+00, 0.8668E+00,& - 0.8760E+00, 0.8852E+00, 0.8946E+00, 0.9041E+00,& - 0.9136E+00, 0.9231E+00, 0.9329E+00, 0.9427E+00,& - 0.9525E+00, 0.9626E+00, 0.9728E+00, 0.9829E+00,& - 0.9933E+00, 0.1004E+01, 0.1014E+01, 0.1025E+01,& - 0.1036E+01, 0.1046E+01, 0.1058E+01, 0.1069E+01,& - 0.1080E+01, 0.1091E+01, 0.1103E+01, 0.1114E+01,& - 0.1126E+01, 0.1138E+01, 0.1150E+01, 0.1162E+01,& - 0.1174E+01, 0.1186E+01, 0.1199E+01, 0.1211E+01,& - 0.1224E+01, 0.1237E+01, 0.1249E+01, 0.1263E+01,& - 0.1276E+01, 0.1289E+01, 0.1303E+01, 0.1317E+01,& - 0.1330E+01, 0.1344E+01, 0.1358E+01, 0.1372E+01,& - 0.1387E+01, 0.1402E+01, 0.1416E+01, 0.1431E+01,& - 0.1446E+01, 0.1461E+01, 0.1477E+01, 0.1492E+01,& - 0.1508E+01, 0.1524E+01, 0.1540E+01, 0.1556E+01,& - 0.1572E+01, 0.1589E+01, 0.1606E+01, 0.1622E+01,& - 0.1639E+01, 0.1657E+01, 0.1674E+01, 0.1692E+01,& - 0.1710E+01, 0.1728E+01, 0.1746E+01, 0.1765E+01,& - 0.1783E+01, 0.1802E+01, 0.1822E+01, 0.1841E+01,& - 0.1860E+01, 0.1880E+01, 0.1900E+01, 0.1920E+01,& - 0.1941E+01, 0.1962E+01, 0.1983E+01, 0.2004E+01,& - 0.2025E+01, 0.2047E+01, 0.2069E+01, 0.2091E+01,& - 0.2113E+01, 0.2136E+01, 0.2159E+01, 0.2182E+01,& - 0.2206E+01, 0.2230E+01, 0.2254E+01, 0.2278E+01,& - 0.2303E+01, 0.2328E+01, 0.2353E+01, 0.2379E+01,& - 0.2405E+01, 0.2431E+01, 0.2458E+01, 0.2485E+01,& - 0.2512E+01, 0.2539E+01, 0.2568E+01, 0.2596E+01,& - 0.2624E+01, 0.2654E+01, 0.2683E+01, 0.2713E+01,& - 0.2743E+01, 0.2773E+01, 0.2804E+01, 0.2836E+01,& - 0.2868E+01, 0.2900E+01, 0.2932E+01, 0.2966E+01,& - 0.2999E+01, 0.3033E+01, 0.3068E+01, 0.3103E+01,& - 0.3138E+01, 0.3174E+01, 0.3211E+01, 0.3248E+01,& - 0.3285E+01, 0.3323E+01, 0.3362E+01, 0.3401E+01,& - 0.3441E+01, 0.3481E+01, 0.3522E+01, 0.3564E+01,& - 0.3606E+01, 0.3649E+01, 0.3692E+01, 0.3736E+01,& - 0.3781E+01, 0.3827E+01, 0.3873E+01, 0.3920E+01,& - 0.3968E+01, 0.4017E+01, 0.4066E+01, 0.4116E+01,& - 0.4167E+01, 0.4219E+01, 0.4272E+01, 0.4325E+01,& - 0.4380E+01, 0.4436E+01, 0.4492E+01, 0.4550E+01,& - 0.4608E+01, 0.4668E+01, 0.4729E+01, 0.4791E+01,& - 0.4854E+01, 0.4918E+01, 0.4984E+01, 0.5050E+01,& - 0.5119E+01, 0.5188E+01, 0.5259E+01, 0.5331E+01,& - 0.5405E+01, 0.5481E+01, 0.5558E+01, 0.5637E+01,& - 0.5717E+01, 0.5800E+01, 0.5884E+01, 0.5970E+01,& - 0.6059E+01, 0.6149E+01, 0.6242E+01, 0.6336E+01,& - 0.6434E+01, 0.6534E+01, 0.6636E+01, 0.6742E+01,& - 0.6850E+01, 0.6961E+01, 0.7076E+01, 0.7193E+01,& - 0.7315E+01, 0.7440E+01, 0.7569E+01, 0.7702E+01,& - 0.7840E+01, 0.7982E+01, 0.8130E+01, 0.8283E+01,& - 0.8441E+01, 0.8606E+01, 0.8777E+01, 0.8955E+01,& - 0.9141E+01, 0.9336E+01, 0.9539E+01, 0.9752E+01,& - 0.9976E+01, 0.1021E+02, 0.1046E+02, 0.1073E+02,& - 0.1101E+02, 0.1131E+02, 0.1163E+02, 0.1197E+02,& - 0.1234E+02, 0.1275E+02, 0.1320E+02, 0.1369E+02,& - 0.1425E+02, 0.1489E+02, 0.1563E+02, 0.1651E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,106) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3314E-03,& - 0.3314E-03, 0.3314E-03, 0.3314E-03, 0.3314E-03,& - 0.3314E-03, 0.3314E-03, 0.3314E-03, 0.3314E-03,& - 0.3314E-03, 0.3314E-03, 0.3314E-03, 0.3314E-03,& - 0.3314E-03, 0.3314E-03, 0.3314E-03, 0.3314E-03,& - 0.3314E-03, 0.3314E-03, 0.3314E-03, 0.3314E-03,& - 0.3314E-03, 0.3314E-03, 0.3314E-03, 0.3314E-03,& - 0.3314E-03, 0.6528E-03, 0.6528E-03, 0.6528E-03,& - 0.6528E-03, 0.6528E-03, 0.6528E-03, 0.6528E-03,& - 0.6528E-03, 0.6528E-03, 0.6528E-03, 0.6528E-03,& - 0.6528E-03, 0.6528E-03, 0.6528E-03, 0.6528E-03,& - 0.6528E-03, 0.6528E-03, 0.9742E-03, 0.9742E-03,& - 0.9742E-03, 0.9742E-03, 0.9742E-03, 0.9742E-03,& - 0.9742E-03, 0.9742E-03, 0.9742E-03, 0.9742E-03,& - 0.9742E-03, 0.9742E-03, 0.1296E-02, 0.1296E-02,& - 0.1296E-02, 0.1296E-02, 0.1296E-02, 0.1296E-02,& - 0.1296E-02, 0.1296E-02, 0.1296E-02, 0.1296E-02,& - 0.1617E-02, 0.1617E-02, 0.1617E-02, 0.1617E-02,& - 0.1617E-02, 0.1617E-02, 0.1617E-02, 0.1617E-02,& - 0.1617E-02, 0.1938E-02, 0.1938E-02, 0.1938E-02,& - 0.1938E-02, 0.1938E-02, 0.1938E-02, 0.1938E-02,& - 0.2260E-02, 0.2260E-02, 0.2260E-02, 0.2260E-02,& - 0.2260E-02, 0.2260E-02, 0.2581E-02, 0.2581E-02,& - 0.2581E-02, 0.2581E-02, 0.2581E-02, 0.2581E-02,& - 0.2903E-02, 0.2903E-02, 0.2903E-02, 0.2903E-02,& - 0.2903E-02, 0.3224E-02, 0.3224E-02, 0.3224E-02,& - 0.3224E-02, 0.3224E-02, 0.3546E-02, 0.3546E-02,& - 0.3546E-02, 0.3546E-02, 0.3867E-02, 0.3867E-02,& - 0.3867E-02, 0.3867E-02, 0.4188E-02, 0.4188E-02,& - 0.4188E-02, 0.4188E-02, 0.4510E-02, 0.4510E-02,& - 0.4510E-02, 0.4510E-02, 0.4831E-02, 0.4831E-02,& - 0.4831E-02, 0.5153E-02, 0.5153E-02, 0.5153E-02,& - 0.5474E-02, 0.5474E-02, 0.5474E-02, 0.5795E-02,& - 0.5795E-02, 0.5795E-02, 0.6117E-02, 0.6117E-02,& - 0.6117E-02, 0.6438E-02, 0.6438E-02, 0.6760E-02,& - 0.6760E-02, 0.6760E-02, 0.7081E-02, 0.7081E-02,& - 0.7402E-02, 0.7402E-02, 0.7402E-02, 0.7724E-02,& - 0.7724E-02, 0.8045E-02, 0.8045E-02, 0.8367E-02,& - 0.8367E-02, 0.8688E-02, 0.8688E-02, 0.9010E-02,& - 0.9010E-02, 0.9331E-02, 0.9331E-02, 0.9652E-02,& - 0.9652E-02, 0.9974E-02, 0.9974E-02, 0.1030E-01,& - 0.1030E-01, 0.1062E-01, 0.1062E-01, 0.1094E-01,& - 0.1126E-01, 0.1126E-01, 0.1158E-01, 0.1158E-01,& - 0.1190E-01, 0.1222E-01, 0.1222E-01, 0.1255E-01,& - 0.1287E-01, 0.1287E-01, 0.1319E-01, 0.1351E-01,& - 0.1383E-01, 0.1383E-01, 0.1415E-01, 0.1447E-01,& - 0.1479E-01, 0.1479E-01, 0.1512E-01, 0.1544E-01,& - 0.1576E-01, 0.1576E-01, 0.1608E-01, 0.1640E-01,& - 0.1672E-01, 0.1704E-01, 0.1737E-01, 0.1769E-01,& - 0.1769E-01, 0.1801E-01, 0.1833E-01, 0.1865E-01,& - 0.1897E-01, 0.1929E-01, 0.1962E-01, 0.1994E-01,& - 0.2026E-01, 0.2058E-01, 0.2090E-01, 0.2122E-01,& - 0.2154E-01, 0.2187E-01, 0.2219E-01, 0.2283E-01,& - 0.2315E-01, 0.2347E-01, 0.2379E-01, 0.2412E-01,& - 0.2444E-01, 0.2508E-01, 0.2540E-01, 0.2572E-01,& - 0.2604E-01, 0.2637E-01, 0.2701E-01, 0.2733E-01,& - 0.2765E-01, 0.2829E-01, 0.2862E-01, 0.2894E-01,& - 0.2958E-01, 0.2990E-01, 0.3054E-01, 0.3087E-01,& - 0.3151E-01, 0.3183E-01, 0.3247E-01, 0.3279E-01,& - 0.3344E-01, 0.3376E-01, 0.3440E-01, 0.3472E-01,& - 0.3537E-01, 0.3601E-01, 0.3633E-01, 0.3697E-01,& - 0.3762E-01, 0.3794E-01, 0.3858E-01, 0.3922E-01,& - 0.3987E-01, 0.4051E-01, 0.4083E-01, 0.4147E-01,& - 0.4211E-01, 0.4276E-01, 0.4340E-01, 0.4404E-01,& - 0.4469E-01, 0.4533E-01, 0.4597E-01, 0.4661E-01,& - 0.4726E-01, 0.4790E-01, 0.4886E-01, 0.4951E-01,& - 0.5015E-01, 0.5079E-01, 0.5144E-01, 0.5240E-01,& - 0.5304E-01, 0.5369E-01, 0.5465E-01, 0.5529E-01,& - 0.5626E-01, 0.5690E-01, 0.5786E-01, 0.5851E-01,& - 0.5947E-01, 0.6011E-01, 0.6108E-01, 0.6172E-01,& - 0.6269E-01, 0.6365E-01, 0.6461E-01, 0.6526E-01,& - 0.6622E-01, 0.6719E-01, 0.6815E-01, 0.6911E-01,& - 0.7008E-01, 0.7104E-01, 0.7201E-01, 0.7297E-01,& - 0.7393E-01, 0.7490E-01, 0.7586E-01, 0.7683E-01,& - 0.7811E-01, 0.7908E-01, 0.8004E-01, 0.8133E-01,& - 0.8229E-01, 0.8326E-01, 0.8454E-01, 0.8551E-01,& - 0.8679E-01, 0.8808E-01, 0.8904E-01, 0.9033E-01,& - 0.9161E-01, 0.9258E-01, 0.9386E-01, 0.9515E-01,& - 0.9643E-01, 0.9772E-01, 0.9900E-01, 0.1003E+00,& - 0.1016E+00, 0.1029E+00, 0.1041E+00, 0.1058E+00,& - 0.1070E+00, 0.1083E+00, 0.1099E+00, 0.1112E+00,& - 0.1128E+00, 0.1141E+00, 0.1157E+00, 0.1170E+00,& - 0.1186E+00, 0.1202E+00, 0.1218E+00, 0.1231E+00,& - 0.1247E+00, 0.1263E+00, 0.1279E+00, 0.1295E+00,& - 0.1315E+00, 0.1331E+00, 0.1347E+00, 0.1363E+00,& - 0.1382E+00, 0.1398E+00, 0.1418E+00, 0.1434E+00,& - 0.1453E+00, 0.1469E+00, 0.1488E+00, 0.1508E+00,& - 0.1527E+00, 0.1546E+00, 0.1565E+00, 0.1585E+00,& - 0.1604E+00, 0.1623E+00, 0.1643E+00, 0.1665E+00,& - 0.1684E+00, 0.1704E+00, 0.1726E+00, 0.1749E+00,& - 0.1768E+00, 0.1790E+00, 0.1813E+00, 0.1835E+00,& - 0.1858E+00, 0.1880E+00, 0.1903E+00, 0.1925E+00,& - 0.1948E+00, 0.1974E+00, 0.1996E+00, 0.2022E+00,& - 0.2044E+00, 0.2070E+00, 0.2096E+00, 0.2118E+00,& - 0.2144E+00, 0.2170E+00, 0.2195E+00, 0.2224E+00,& - 0.2250E+00, 0.2276E+00, 0.2305E+00, 0.2330E+00,& - 0.2359E+00, 0.2388E+00, 0.2414E+00, 0.2443E+00,& - 0.2472E+00, 0.2501E+00, 0.2533E+00, 0.2562E+00,& - 0.2591E+00, 0.2623E+00, 0.2652E+00, 0.2684E+00,& - 0.2716E+00, 0.2748E+00, 0.2780E+00, 0.2812E+00,& - 0.2845E+00, 0.2877E+00, 0.2912E+00, 0.2944E+00,& - 0.2980E+00, 0.3015E+00, 0.3047E+00, 0.3082E+00,& - 0.3118E+00, 0.3156E+00, 0.3192E+00, 0.3227E+00,& - 0.3266E+00, 0.3304E+00, 0.3340E+00, 0.3378E+00,& - 0.3417E+00, 0.3458E+00, 0.3497E+00, 0.3536E+00,& - 0.3577E+00, 0.3616E+00, 0.3658E+00, 0.3700E+00,& - 0.3741E+00, 0.3783E+00, 0.3828E+00, 0.3870E+00,& - 0.3915E+00, 0.3960E+00, 0.4005E+00, 0.4050E+00,& - 0.4095E+00, 0.4140E+00, 0.4188E+00, 0.4233E+00,& - 0.4281E+00, 0.4330E+00, 0.4378E+00, 0.4426E+00,& - 0.4477E+00, 0.4526E+00, 0.4577E+00, 0.4628E+00,& - 0.4680E+00, 0.4731E+00, 0.4783E+00, 0.4837E+00,& - 0.4892E+00, 0.4943E+00, 0.4998E+00, 0.5056E+00,& - 0.5111E+00, 0.5168E+00, 0.5223E+00, 0.5281E+00,& - 0.5339E+00, 0.5400E+00, 0.5458E+00, 0.5519E+00,& - 0.5580E+00, 0.5641E+00, 0.5702E+00, 0.5763E+00,& - 0.5827E+00, 0.5892E+00, 0.5956E+00, 0.6020E+00,& - 0.6088E+00, 0.6152E+00, 0.6219E+00, 0.6287E+00,& - 0.6354E+00, 0.6425E+00, 0.6496E+00, 0.6567E+00,& - 0.6637E+00, 0.6708E+00, 0.6782E+00, 0.6856E+00,& - 0.6930E+00, 0.7004E+00, 0.7081E+00, 0.7155E+00,& - 0.7235E+00, 0.7312E+00, 0.7389E+00, 0.7470E+00,& - 0.7550E+00, 0.7630E+00, 0.7714E+00, 0.7798E+00,& - 0.7881E+00, 0.7965E+00, 0.8051E+00, 0.8138E+00,& - 0.8225E+00, 0.8312E+00, 0.8402E+00, 0.8492E+00,& - 0.8582E+00, 0.8675E+00, 0.8768E+00, 0.8861E+00,& - 0.8958E+00, 0.9051E+00, 0.9151E+00, 0.9247E+00,& - 0.9347E+00, 0.9446E+00, 0.9546E+00, 0.9649E+00,& - 0.9752E+00, 0.9855E+00, 0.9961E+00, 0.1007E+01,& - 0.1017E+01, 0.1028E+01, 0.1039E+01, 0.1050E+01,& - 0.1061E+01, 0.1073E+01, 0.1084E+01, 0.1096E+01,& - 0.1107E+01, 0.1119E+01, 0.1131E+01, 0.1143E+01,& - 0.1155E+01, 0.1167E+01, 0.1180E+01, 0.1192E+01,& - 0.1205E+01, 0.1218E+01, 0.1231E+01, 0.1244E+01,& - 0.1257E+01, 0.1271E+01, 0.1284E+01, 0.1298E+01,& - 0.1311E+01, 0.1325E+01, 0.1339E+01, 0.1354E+01,& - 0.1368E+01, 0.1383E+01, 0.1397E+01, 0.1412E+01,& - 0.1427E+01, 0.1443E+01, 0.1458E+01, 0.1473E+01,& - 0.1489E+01, 0.1505E+01, 0.1521E+01, 0.1537E+01,& - 0.1554E+01, 0.1570E+01, 0.1587E+01, 0.1604E+01,& - 0.1621E+01, 0.1638E+01, 0.1656E+01, 0.1674E+01,& - 0.1692E+01, 0.1710E+01, 0.1728E+01, 0.1747E+01,& - 0.1765E+01, 0.1784E+01, 0.1803E+01, 0.1823E+01,& - 0.1842E+01, 0.1862E+01, 0.1883E+01, 0.1903E+01,& - 0.1923E+01, 0.1944E+01, 0.1965E+01, 0.1986E+01,& - 0.2008E+01, 0.2030E+01, 0.2052E+01, 0.2074E+01,& - 0.2097E+01, 0.2119E+01, 0.2143E+01, 0.2166E+01,& - 0.2189E+01, 0.2214E+01, 0.2238E+01, 0.2262E+01,& - 0.2287E+01, 0.2312E+01, 0.2338E+01, 0.2364E+01,& - 0.2390E+01, 0.2416E+01, 0.2443E+01, 0.2470E+01,& - 0.2497E+01, 0.2525E+01, 0.2553E+01, 0.2582E+01,& - 0.2611E+01, 0.2640E+01, 0.2670E+01, 0.2700E+01,& - 0.2730E+01, 0.2761E+01, 0.2792E+01, 0.2824E+01,& - 0.2856E+01, 0.2889E+01, 0.2921E+01, 0.2955E+01,& - 0.2988E+01, 0.3023E+01, 0.3058E+01, 0.3093E+01,& - 0.3129E+01, 0.3165E+01, 0.3202E+01, 0.3239E+01,& - 0.3277E+01, 0.3316E+01, 0.3355E+01, 0.3394E+01,& - 0.3434E+01, 0.3475E+01, 0.3516E+01, 0.3558E+01,& - 0.3601E+01, 0.3644E+01, 0.3688E+01, 0.3733E+01,& - 0.3778E+01, 0.3824E+01, 0.3871E+01, 0.3918E+01,& - 0.3967E+01, 0.4016E+01, 0.4066E+01, 0.4114E+01,& - 0.4168E+01, 0.4220E+01, 0.4274E+01, 0.4328E+01,& - 0.4383E+01, 0.4440E+01, 0.4497E+01, 0.4555E+01,& - 0.4615E+01, 0.4675E+01, 0.4736E+01, 0.4799E+01,& - 0.4863E+01, 0.4928E+01, 0.4994E+01, 0.5062E+01,& - 0.5131E+01, 0.5201E+01, 0.5273E+01, 0.5347E+01,& - 0.5422E+01, 0.5498E+01, 0.5577E+01, 0.5656E+01,& - 0.5738E+01, 0.5821E+01, 0.5907E+01, 0.5994E+01,& - 0.6084E+01, 0.6176E+01, 0.6269E+01, 0.6366E+01,& - 0.6465E+01, 0.6566E+01, 0.6670E+01, 0.6777E+01,& - 0.6887E+01, 0.7000E+01, 0.7116E+01, 0.7235E+01,& - 0.7358E+01, 0.7486E+01, 0.7617E+01, 0.7752E+01,& - 0.7892E+01, 0.8036E+01, 0.8186E+01, 0.8341E+01,& - 0.8502E+01, 0.8670E+01, 0.8844E+01, 0.9025E+01,& - 0.9214E+01, 0.9412E+01, 0.9618E+01, 0.9835E+01,& - 0.1006E+02, 0.1030E+02, 0.1056E+02, 0.1083E+02,& - 0.1111E+02, 0.1141E+02, 0.1174E+02, 0.1209E+02,& - 0.1247E+02, 0.1289E+02, 0.1334E+02, 0.1385E+02,& - 0.1441E+02, 0.1506E+02, 0.1581E+02, 0.1671E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,107) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.3366E-03, 0.3366E-03,& - 0.3366E-03, 0.3366E-03, 0.3366E-03, 0.3366E-03,& - 0.3366E-03, 0.3366E-03, 0.3366E-03, 0.3366E-03,& - 0.3366E-03, 0.3366E-03, 0.3366E-03, 0.3366E-03,& - 0.3366E-03, 0.3366E-03, 0.3366E-03, 0.3366E-03,& - 0.3366E-03, 0.3366E-03, 0.3366E-03, 0.3366E-03,& - 0.3366E-03, 0.3366E-03, 0.3366E-03, 0.3366E-03,& - 0.6633E-03, 0.6633E-03, 0.6633E-03, 0.6633E-03,& - 0.6633E-03, 0.6633E-03, 0.6633E-03, 0.6633E-03,& - 0.6633E-03, 0.6633E-03, 0.6633E-03, 0.6633E-03,& - 0.6633E-03, 0.6633E-03, 0.6633E-03, 0.6633E-03,& - 0.9899E-03, 0.9899E-03, 0.9899E-03, 0.9899E-03,& - 0.9899E-03, 0.9899E-03, 0.9899E-03, 0.9899E-03,& - 0.9899E-03, 0.9899E-03, 0.9899E-03, 0.9899E-03,& - 0.9899E-03, 0.1317E-02, 0.1317E-02, 0.1317E-02,& - 0.1317E-02, 0.1317E-02, 0.1317E-02, 0.1317E-02,& - 0.1317E-02, 0.1317E-02, 0.1317E-02, 0.1643E-02,& - 0.1643E-02, 0.1643E-02, 0.1643E-02, 0.1643E-02,& - 0.1643E-02, 0.1643E-02, 0.1643E-02, 0.1970E-02,& - 0.1970E-02, 0.1970E-02, 0.1970E-02, 0.1970E-02,& - 0.1970E-02, 0.1970E-02, 0.2296E-02, 0.2296E-02,& - 0.2296E-02, 0.2296E-02, 0.2296E-02, 0.2296E-02,& - 0.2296E-02, 0.2623E-02, 0.2623E-02, 0.2623E-02,& - 0.2623E-02, 0.2623E-02, 0.2950E-02, 0.2950E-02,& - 0.2950E-02, 0.2950E-02, 0.2950E-02, 0.3276E-02,& - 0.3276E-02, 0.3276E-02, 0.3276E-02, 0.3276E-02,& - 0.3603E-02, 0.3603E-02, 0.3603E-02, 0.3603E-02,& - 0.3603E-02, 0.3930E-02, 0.3930E-02, 0.3930E-02,& - 0.3930E-02, 0.4256E-02, 0.4256E-02, 0.4256E-02,& - 0.4583E-02, 0.4583E-02, 0.4583E-02, 0.4583E-02,& - 0.4910E-02, 0.4910E-02, 0.4910E-02, 0.5236E-02,& - 0.5236E-02, 0.5236E-02, 0.5236E-02, 0.5563E-02,& - 0.5563E-02, 0.5563E-02, 0.5889E-02, 0.5889E-02,& - 0.5889E-02, 0.6216E-02, 0.6216E-02, 0.6543E-02,& - 0.6543E-02, 0.6543E-02, 0.6869E-02, 0.6869E-02,& - 0.7196E-02, 0.7196E-02, 0.7196E-02, 0.7523E-02,& - 0.7523E-02, 0.7849E-02, 0.7849E-02, 0.7849E-02,& - 0.8176E-02, 0.8176E-02, 0.8502E-02, 0.8502E-02,& - 0.8829E-02, 0.8829E-02, 0.9156E-02, 0.9156E-02,& - 0.9482E-02, 0.9482E-02, 0.9809E-02, 0.9809E-02,& - 0.1014E-01, 0.1046E-01, 0.1046E-01, 0.1079E-01,& - 0.1079E-01, 0.1112E-01, 0.1112E-01, 0.1144E-01,& - 0.1177E-01, 0.1177E-01, 0.1210E-01, 0.1242E-01,& - 0.1242E-01, 0.1275E-01, 0.1308E-01, 0.1308E-01,& - 0.1340E-01, 0.1373E-01, 0.1373E-01, 0.1406E-01,& - 0.1438E-01, 0.1471E-01, 0.1471E-01, 0.1504E-01,& - 0.1536E-01, 0.1569E-01, 0.1569E-01, 0.1602E-01,& - 0.1634E-01, 0.1667E-01, 0.1699E-01, 0.1732E-01,& - 0.1732E-01, 0.1765E-01, 0.1797E-01, 0.1830E-01,& - 0.1863E-01, 0.1895E-01, 0.1928E-01, 0.1961E-01,& - 0.1993E-01, 0.2026E-01, 0.2059E-01, 0.2091E-01,& - 0.2124E-01, 0.2157E-01, 0.2189E-01, 0.2222E-01,& - 0.2255E-01, 0.2287E-01, 0.2320E-01, 0.2385E-01,& - 0.2418E-01, 0.2451E-01, 0.2483E-01, 0.2516E-01,& - 0.2581E-01, 0.2614E-01, 0.2647E-01, 0.2679E-01,& - 0.2745E-01, 0.2777E-01, 0.2810E-01, 0.2875E-01,& - 0.2908E-01, 0.2941E-01, 0.3006E-01, 0.3039E-01,& - 0.3104E-01, 0.3137E-01, 0.3169E-01, 0.3235E-01,& - 0.3267E-01, 0.3333E-01, 0.3398E-01, 0.3431E-01,& - 0.3496E-01, 0.3529E-01, 0.3594E-01, 0.3659E-01,& - 0.3692E-01, 0.3757E-01, 0.3823E-01, 0.3855E-01,& - 0.3921E-01, 0.3986E-01, 0.4051E-01, 0.4117E-01,& - 0.4182E-01, 0.4215E-01, 0.4280E-01, 0.4345E-01,& - 0.4411E-01, 0.4476E-01, 0.4541E-01, 0.4607E-01,& - 0.4672E-01, 0.4737E-01, 0.4835E-01, 0.4901E-01,& - 0.4966E-01, 0.5031E-01, 0.5096E-01, 0.5194E-01,& - 0.5260E-01, 0.5325E-01, 0.5390E-01, 0.5488E-01,& - 0.5554E-01, 0.5652E-01, 0.5717E-01, 0.5815E-01,& - 0.5880E-01, 0.5978E-01, 0.6044E-01, 0.6142E-01,& - 0.6207E-01, 0.6305E-01, 0.6403E-01, 0.6501E-01,& - 0.6566E-01, 0.6664E-01, 0.6762E-01, 0.6860E-01,& - 0.6958E-01, 0.7056E-01, 0.7154E-01, 0.7252E-01,& - 0.7350E-01, 0.7448E-01, 0.7546E-01, 0.7644E-01,& - 0.7742E-01, 0.7873E-01, 0.7971E-01, 0.8069E-01,& - 0.8199E-01, 0.8297E-01, 0.8395E-01, 0.8526E-01,& - 0.8657E-01, 0.8755E-01, 0.8885E-01, 0.8983E-01,& - 0.9114E-01, 0.9245E-01, 0.9375E-01, 0.9473E-01,& - 0.9604E-01, 0.9735E-01, 0.9865E-01, 0.9996E-01,& - 0.1013E+00, 0.1026E+00, 0.1039E+00, 0.1055E+00,& - 0.1068E+00, 0.1081E+00, 0.1098E+00, 0.1111E+00,& - 0.1124E+00, 0.1140E+00, 0.1153E+00, 0.1169E+00,& - 0.1186E+00, 0.1199E+00, 0.1215E+00, 0.1232E+00,& - 0.1248E+00, 0.1264E+00, 0.1281E+00, 0.1297E+00,& - 0.1313E+00, 0.1329E+00, 0.1346E+00, 0.1365E+00,& - 0.1382E+00, 0.1398E+00, 0.1418E+00, 0.1434E+00,& - 0.1454E+00, 0.1473E+00, 0.1490E+00, 0.1509E+00,& - 0.1529E+00, 0.1548E+00, 0.1568E+00, 0.1588E+00,& - 0.1607E+00, 0.1627E+00, 0.1646E+00, 0.1669E+00,& - 0.1689E+00, 0.1708E+00, 0.1731E+00, 0.1754E+00,& - 0.1774E+00, 0.1797E+00, 0.1819E+00, 0.1842E+00,& - 0.1865E+00, 0.1888E+00, 0.1911E+00, 0.1934E+00,& - 0.1957E+00, 0.1983E+00, 0.2006E+00, 0.2028E+00,& - 0.2055E+00, 0.2081E+00, 0.2107E+00, 0.2130E+00,& - 0.2156E+00, 0.2182E+00, 0.2208E+00, 0.2238E+00,& - 0.2264E+00, 0.2290E+00, 0.2319E+00, 0.2345E+00,& - 0.2375E+00, 0.2404E+00, 0.2430E+00, 0.2460E+00,& - 0.2489E+00, 0.2522E+00, 0.2551E+00, 0.2581E+00,& - 0.2610E+00, 0.2643E+00, 0.2675E+00, 0.2705E+00,& - 0.2737E+00, 0.2770E+00, 0.2803E+00, 0.2835E+00,& - 0.2868E+00, 0.2904E+00, 0.2937E+00, 0.2972E+00,& - 0.3008E+00, 0.3041E+00, 0.3077E+00, 0.3113E+00,& - 0.3149E+00, 0.3188E+00, 0.3224E+00, 0.3263E+00,& - 0.3299E+00, 0.3338E+00, 0.3377E+00, 0.3417E+00,& - 0.3456E+00, 0.3495E+00, 0.3538E+00, 0.3577E+00,& - 0.3619E+00, 0.3658E+00, 0.3701E+00, 0.3743E+00,& - 0.3789E+00, 0.3832E+00, 0.3874E+00, 0.3920E+00,& - 0.3965E+00, 0.4008E+00, 0.4057E+00, 0.4103E+00,& - 0.4148E+00, 0.4194E+00, 0.4243E+00, 0.4292E+00,& - 0.4341E+00, 0.4390E+00, 0.4439E+00, 0.4488E+00,& - 0.4540E+00, 0.4593E+00, 0.4645E+00, 0.4697E+00,& - 0.4749E+00, 0.4802E+00, 0.4857E+00, 0.4909E+00,& - 0.4965E+00, 0.5020E+00, 0.5079E+00, 0.5135E+00,& - 0.5194E+00, 0.5249E+00, 0.5308E+00, 0.5370E+00,& - 0.5429E+00, 0.5488E+00, 0.5550E+00, 0.5612E+00,& - 0.5674E+00, 0.5736E+00, 0.5801E+00, 0.5866E+00,& - 0.5932E+00, 0.5997E+00, 0.6062E+00, 0.6128E+00,& - 0.6196E+00, 0.6265E+00, 0.6334E+00, 0.6405E+00,& - 0.6474E+00, 0.6546E+00, 0.6618E+00, 0.6693E+00,& - 0.6765E+00, 0.6840E+00, 0.6915E+00, 0.6990E+00,& - 0.7068E+00, 0.7144E+00, 0.7222E+00, 0.7300E+00,& - 0.7382E+00, 0.7464E+00, 0.7545E+00, 0.7627E+00,& - 0.7709E+00, 0.7794E+00, 0.7878E+00, 0.7963E+00,& - 0.8052E+00, 0.8140E+00, 0.8228E+00, 0.8316E+00,& - 0.8408E+00, 0.8499E+00, 0.8591E+00, 0.8685E+00,& - 0.8780E+00, 0.8875E+00, 0.8969E+00, 0.9067E+00,& - 0.9165E+00, 0.9263E+00, 0.9365E+00, 0.9466E+00,& - 0.9570E+00, 0.9672E+00, 0.9776E+00, 0.9884E+00,& - 0.9989E+00, 0.1010E+01, 0.1021E+01, 0.1032E+01,& - 0.1043E+01, 0.1054E+01, 0.1065E+01, 0.1077E+01,& - 0.1089E+01, 0.1100E+01, 0.1112E+01, 0.1124E+01,& - 0.1136E+01, 0.1149E+01, 0.1161E+01, 0.1174E+01,& - 0.1186E+01, 0.1199E+01, 0.1212E+01, 0.1225E+01,& - 0.1238E+01, 0.1252E+01, 0.1265E+01, 0.1279E+01,& - 0.1292E+01, 0.1306E+01, 0.1321E+01, 0.1335E+01,& - 0.1349E+01, 0.1364E+01, 0.1378E+01, 0.1393E+01,& - 0.1408E+01, 0.1423E+01, 0.1439E+01, 0.1455E+01,& - 0.1470E+01, 0.1486E+01, 0.1502E+01, 0.1518E+01,& - 0.1535E+01, 0.1552E+01, 0.1568E+01, 0.1585E+01,& - 0.1602E+01, 0.1620E+01, 0.1637E+01, 0.1655E+01,& - 0.1673E+01, 0.1691E+01, 0.1710E+01, 0.1728E+01,& - 0.1747E+01, 0.1766E+01, 0.1785E+01, 0.1805E+01,& - 0.1824E+01, 0.1844E+01, 0.1864E+01, 0.1885E+01,& - 0.1906E+01, 0.1926E+01, 0.1947E+01, 0.1969E+01,& - 0.1991E+01, 0.2012E+01, 0.2035E+01, 0.2057E+01,& - 0.2080E+01, 0.2103E+01, 0.2126E+01, 0.2149E+01,& - 0.2173E+01, 0.2197E+01, 0.2221E+01, 0.2246E+01,& - 0.2271E+01, 0.2297E+01, 0.2322E+01, 0.2348E+01,& - 0.2374E+01, 0.2401E+01, 0.2428E+01, 0.2455E+01,& - 0.2483E+01, 0.2511E+01, 0.2539E+01, 0.2568E+01,& - 0.2597E+01, 0.2626E+01, 0.2656E+01, 0.2686E+01,& - 0.2717E+01, 0.2748E+01, 0.2780E+01, 0.2811E+01,& - 0.2844E+01, 0.2876E+01, 0.2910E+01, 0.2943E+01,& - 0.2978E+01, 0.3012E+01, 0.3047E+01, 0.3083E+01,& - 0.3119E+01, 0.3156E+01, 0.3193E+01, 0.3230E+01,& - 0.3269E+01, 0.3307E+01, 0.3347E+01, 0.3387E+01,& - 0.3427E+01, 0.3468E+01, 0.3510E+01, 0.3552E+01,& - 0.3595E+01, 0.3639E+01, 0.3683E+01, 0.3729E+01,& - 0.3774E+01, 0.3821E+01, 0.3868E+01, 0.3916E+01,& - 0.3965E+01, 0.4015E+01, 0.4065E+01, 0.4116E+01,& - 0.4169E+01, 0.4221E+01, 0.4276E+01, 0.4331E+01,& - 0.4386E+01, 0.4443E+01, 0.4501E+01, 0.4560E+01,& - 0.4620E+01, 0.4681E+01, 0.4743E+01, 0.4807E+01,& - 0.4871E+01, 0.4937E+01, 0.5005E+01, 0.5073E+01,& - 0.5143E+01, 0.5214E+01, 0.5287E+01, 0.5361E+01,& - 0.5437E+01, 0.5515E+01, 0.5594E+01, 0.5675E+01,& - 0.5758E+01, 0.5843E+01, 0.5929E+01, 0.6018E+01,& - 0.6109E+01, 0.6201E+01, 0.6297E+01, 0.6395E+01,& - 0.6495E+01, 0.6597E+01, 0.6703E+01, 0.6811E+01,& - 0.6923E+01, 0.7037E+01, 0.7155E+01, 0.7277E+01,& - 0.7402E+01, 0.7531E+01, 0.7663E+01, 0.7801E+01,& - 0.7943E+01, 0.8090E+01, 0.8242E+01, 0.8400E+01,& - 0.8563E+01, 0.8733E+01, 0.8910E+01, 0.9094E+01,& - 0.9286E+01, 0.9487E+01, 0.9697E+01, 0.9918E+01,& - 0.1015E+02, 0.1039E+02, 0.1065E+02, 0.1092E+02,& - 0.1121E+02, 0.1152E+02, 0.1186E+02, 0.1221E+02,& - 0.1260E+02, 0.1302E+02, 0.1348E+02, 0.1400E+02,& - 0.1458E+02, 0.1523E+02, 0.1600E+02, 0.1692E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,108) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3419E-03, 0.3419E-03, 0.3419E-03, 0.3419E-03,& - 0.3419E-03, 0.3419E-03, 0.3419E-03, 0.3419E-03,& - 0.3419E-03, 0.3419E-03, 0.3419E-03, 0.3419E-03,& - 0.3419E-03, 0.3419E-03, 0.3419E-03, 0.3419E-03,& - 0.3419E-03, 0.3419E-03, 0.3419E-03, 0.3419E-03,& - 0.3419E-03, 0.3419E-03, 0.3419E-03, 0.3419E-03,& - 0.3419E-03, 0.3419E-03, 0.6738E-03, 0.6738E-03,& - 0.6738E-03, 0.6738E-03, 0.6738E-03, 0.6738E-03,& - 0.6738E-03, 0.6738E-03, 0.6738E-03, 0.6738E-03,& - 0.6738E-03, 0.6738E-03, 0.6738E-03, 0.6738E-03,& - 0.6738E-03, 0.6738E-03, 0.6738E-03, 0.1006E-02,& - 0.1006E-02, 0.1006E-02, 0.1006E-02, 0.1006E-02,& - 0.1006E-02, 0.1006E-02, 0.1006E-02, 0.1006E-02,& - 0.1006E-02, 0.1006E-02, 0.1006E-02, 0.1338E-02,& - 0.1338E-02, 0.1338E-02, 0.1338E-02, 0.1338E-02,& - 0.1338E-02, 0.1338E-02, 0.1338E-02, 0.1338E-02,& - 0.1338E-02, 0.1670E-02, 0.1670E-02, 0.1670E-02,& - 0.1670E-02, 0.1670E-02, 0.1670E-02, 0.1670E-02,& - 0.1670E-02, 0.1670E-02, 0.2001E-02, 0.2001E-02,& - 0.2001E-02, 0.2001E-02, 0.2001E-02, 0.2001E-02,& - 0.2001E-02, 0.2333E-02, 0.2333E-02, 0.2333E-02,& - 0.2333E-02, 0.2333E-02, 0.2333E-02, 0.2665E-02,& - 0.2665E-02, 0.2665E-02, 0.2665E-02, 0.2665E-02,& - 0.2665E-02, 0.2997E-02, 0.2997E-02, 0.2997E-02,& - 0.2997E-02, 0.2997E-02, 0.3329E-02, 0.3329E-02,& - 0.3329E-02, 0.3329E-02, 0.3329E-02, 0.3661E-02,& - 0.3661E-02, 0.3661E-02, 0.3661E-02, 0.3993E-02,& - 0.3993E-02, 0.3993E-02, 0.3993E-02, 0.4325E-02,& - 0.4325E-02, 0.4325E-02, 0.4325E-02, 0.4657E-02,& - 0.4657E-02, 0.4657E-02, 0.4989E-02, 0.4989E-02,& - 0.4989E-02, 0.4989E-02, 0.5320E-02, 0.5320E-02,& - 0.5320E-02, 0.5652E-02, 0.5652E-02, 0.5652E-02,& - 0.5984E-02, 0.5984E-02, 0.5984E-02, 0.6316E-02,& - 0.6316E-02, 0.6316E-02, 0.6648E-02, 0.6648E-02,& - 0.6980E-02, 0.6980E-02, 0.6980E-02, 0.7312E-02,& - 0.7312E-02, 0.7644E-02, 0.7644E-02, 0.7644E-02,& - 0.7976E-02, 0.7976E-02, 0.8308E-02, 0.8308E-02,& - 0.8639E-02, 0.8639E-02, 0.8971E-02, 0.8971E-02,& - 0.9303E-02, 0.9303E-02, 0.9635E-02, 0.9635E-02,& - 0.9967E-02, 0.9967E-02, 0.1030E-01, 0.1030E-01,& - 0.1063E-01, 0.1063E-01, 0.1096E-01, 0.1129E-01,& - 0.1129E-01, 0.1163E-01, 0.1163E-01, 0.1196E-01,& - 0.1229E-01, 0.1229E-01, 0.1262E-01, 0.1295E-01,& - 0.1295E-01, 0.1329E-01, 0.1362E-01, 0.1362E-01,& - 0.1395E-01, 0.1428E-01, 0.1461E-01, 0.1461E-01,& - 0.1495E-01, 0.1528E-01, 0.1561E-01, 0.1561E-01,& - 0.1594E-01, 0.1627E-01, 0.1661E-01, 0.1694E-01,& - 0.1727E-01, 0.1727E-01, 0.1760E-01, 0.1793E-01,& - 0.1826E-01, 0.1860E-01, 0.1893E-01, 0.1926E-01,& - 0.1959E-01, 0.1992E-01, 0.2026E-01, 0.2059E-01,& - 0.2092E-01, 0.2125E-01, 0.2158E-01, 0.2192E-01,& - 0.2225E-01, 0.2258E-01, 0.2291E-01, 0.2324E-01,& - 0.2358E-01, 0.2424E-01, 0.2457E-01, 0.2490E-01,& - 0.2523E-01, 0.2557E-01, 0.2590E-01, 0.2656E-01,& - 0.2689E-01, 0.2723E-01, 0.2789E-01, 0.2822E-01,& - 0.2855E-01, 0.2922E-01, 0.2955E-01, 0.2988E-01,& - 0.3055E-01, 0.3088E-01, 0.3154E-01, 0.3187E-01,& - 0.3254E-01, 0.3287E-01, 0.3353E-01, 0.3386E-01,& - 0.3453E-01, 0.3486E-01, 0.3552E-01, 0.3586E-01,& - 0.3652E-01, 0.3718E-01, 0.3751E-01, 0.3818E-01,& - 0.3884E-01, 0.3951E-01, 0.3984E-01, 0.4050E-01,& - 0.4117E-01, 0.4183E-01, 0.4249E-01, 0.4316E-01,& - 0.4382E-01, 0.4448E-01, 0.4515E-01, 0.4581E-01,& - 0.4648E-01, 0.4714E-01, 0.4780E-01, 0.4847E-01,& - 0.4913E-01, 0.4980E-01, 0.5046E-01, 0.5145E-01,& - 0.5212E-01, 0.5278E-01, 0.5345E-01, 0.5444E-01,& - 0.5511E-01, 0.5577E-01, 0.5677E-01, 0.5743E-01,& - 0.5842E-01, 0.5909E-01, 0.6008E-01, 0.6075E-01,& - 0.6174E-01, 0.6274E-01, 0.6340E-01, 0.6440E-01,& - 0.6539E-01, 0.6639E-01, 0.6705E-01, 0.6805E-01,& - 0.6905E-01, 0.7004E-01, 0.7104E-01, 0.7203E-01,& - 0.7303E-01, 0.7402E-01, 0.7502E-01, 0.7602E-01,& - 0.7701E-01, 0.7834E-01, 0.7933E-01, 0.8033E-01,& - 0.8166E-01, 0.8265E-01, 0.8365E-01, 0.8498E-01,& - 0.8597E-01, 0.8730E-01, 0.8830E-01, 0.8962E-01,& - 0.9095E-01, 0.9195E-01, 0.9327E-01, 0.9460E-01,& - 0.9593E-01, 0.9726E-01, 0.9859E-01, 0.9991E-01,& - 0.1012E+00, 0.1026E+00, 0.1039E+00, 0.1052E+00,& - 0.1066E+00, 0.1079E+00, 0.1095E+00, 0.1109E+00,& - 0.1125E+00, 0.1139E+00, 0.1155E+00, 0.1168E+00,& - 0.1185E+00, 0.1202E+00, 0.1215E+00, 0.1231E+00,& - 0.1248E+00, 0.1265E+00, 0.1281E+00, 0.1298E+00,& - 0.1314E+00, 0.1331E+00, 0.1348E+00, 0.1364E+00,& - 0.1384E+00, 0.1401E+00, 0.1421E+00, 0.1437E+00,& - 0.1457E+00, 0.1474E+00, 0.1494E+00, 0.1514E+00,& - 0.1533E+00, 0.1550E+00, 0.1570E+00, 0.1590E+00,& - 0.1610E+00, 0.1633E+00, 0.1653E+00, 0.1673E+00,& - 0.1696E+00, 0.1716E+00, 0.1736E+00, 0.1759E+00,& - 0.1782E+00, 0.1802E+00, 0.1826E+00, 0.1849E+00,& - 0.1872E+00, 0.1895E+00, 0.1918E+00, 0.1942E+00,& - 0.1968E+00, 0.1992E+00, 0.2018E+00, 0.2041E+00,& - 0.2068E+00, 0.2091E+00, 0.2118E+00, 0.2144E+00,& - 0.2171E+00, 0.2197E+00, 0.2224E+00, 0.2250E+00,& - 0.2280E+00, 0.2307E+00, 0.2333E+00, 0.2363E+00,& - 0.2393E+00, 0.2420E+00, 0.2450E+00, 0.2479E+00,& - 0.2509E+00, 0.2539E+00, 0.2572E+00, 0.2602E+00,& - 0.2632E+00, 0.2665E+00, 0.2698E+00, 0.2728E+00,& - 0.2762E+00, 0.2795E+00, 0.2828E+00, 0.2864E+00,& - 0.2898E+00, 0.2931E+00, 0.2967E+00, 0.3000E+00,& - 0.3037E+00, 0.3074E+00, 0.3110E+00, 0.3147E+00,& - 0.3183E+00, 0.3223E+00, 0.3259E+00, 0.3299E+00,& - 0.3336E+00, 0.3376E+00, 0.3415E+00, 0.3455E+00,& - 0.3495E+00, 0.3538E+00, 0.3578E+00, 0.3621E+00,& - 0.3664E+00, 0.3704E+00, 0.3747E+00, 0.3794E+00,& - 0.3837E+00, 0.3880E+00, 0.3927E+00, 0.3973E+00,& - 0.4016E+00, 0.4063E+00, 0.4112E+00, 0.4159E+00,& - 0.4205E+00, 0.4255E+00, 0.4305E+00, 0.4355E+00,& - 0.4404E+00, 0.4454E+00, 0.4504E+00, 0.4557E+00,& - 0.4610E+00, 0.4663E+00, 0.4716E+00, 0.4770E+00,& - 0.4823E+00, 0.4879E+00, 0.4935E+00, 0.4989E+00,& - 0.5048E+00, 0.5105E+00, 0.5161E+00, 0.5221E+00,& - 0.5281E+00, 0.5340E+00, 0.5400E+00, 0.5460E+00,& - 0.5523E+00, 0.5586E+00, 0.5649E+00, 0.5712E+00,& - 0.5775E+00, 0.5842E+00, 0.5908E+00, 0.5974E+00,& - 0.6041E+00, 0.6107E+00, 0.6177E+00, 0.6247E+00,& - 0.6316E+00, 0.6386E+00, 0.6456E+00, 0.6529E+00,& - 0.6602E+00, 0.6675E+00, 0.6751E+00, 0.6824E+00,& - 0.6900E+00, 0.6977E+00, 0.7056E+00, 0.7133E+00,& - 0.7212E+00, 0.7292E+00, 0.7375E+00, 0.7458E+00,& - 0.7538E+00, 0.7624E+00, 0.7707E+00, 0.7793E+00,& - 0.7879E+00, 0.7966E+00, 0.8052E+00, 0.8142E+00,& - 0.8231E+00, 0.8324E+00, 0.8414E+00, 0.8507E+00,& - 0.8600E+00, 0.8696E+00, 0.8792E+00, 0.8888E+00,& - 0.8985E+00, 0.9084E+00, 0.9184E+00, 0.9287E+00,& - 0.9386E+00, 0.9489E+00, 0.9595E+00, 0.9702E+00,& - 0.9808E+00, 0.9914E+00, 0.1002E+01, 0.1013E+01,& - 0.1024E+01, 0.1036E+01, 0.1047E+01, 0.1058E+01,& - 0.1070E+01, 0.1082E+01, 0.1094E+01, 0.1106E+01,& - 0.1118E+01, 0.1130E+01, 0.1142E+01, 0.1155E+01,& - 0.1167E+01, 0.1180E+01, 0.1193E+01, 0.1206E+01,& - 0.1219E+01, 0.1233E+01, 0.1246E+01, 0.1260E+01,& - 0.1274E+01, 0.1287E+01, 0.1301E+01, 0.1316E+01,& - 0.1330E+01, 0.1345E+01, 0.1359E+01, 0.1374E+01,& - 0.1389E+01, 0.1404E+01, 0.1420E+01, 0.1435E+01,& - 0.1451E+01, 0.1467E+01, 0.1483E+01, 0.1499E+01,& - 0.1516E+01, 0.1532E+01, 0.1549E+01, 0.1566E+01,& - 0.1584E+01, 0.1601E+01, 0.1618E+01, 0.1636E+01,& - 0.1654E+01, 0.1672E+01, 0.1691E+01, 0.1710E+01,& - 0.1729E+01, 0.1747E+01, 0.1767E+01, 0.1786E+01,& - 0.1806E+01, 0.1826E+01, 0.1846E+01, 0.1867E+01,& - 0.1888E+01, 0.1908E+01, 0.1930E+01, 0.1951E+01,& - 0.1973E+01, 0.1995E+01, 0.2017E+01, 0.2040E+01,& - 0.2062E+01, 0.2085E+01, 0.2109E+01, 0.2132E+01,& - 0.2156E+01, 0.2180E+01, 0.2205E+01, 0.2230E+01,& - 0.2255E+01, 0.2280E+01, 0.2306E+01, 0.2332E+01,& - 0.2359E+01, 0.2385E+01, 0.2412E+01, 0.2440E+01,& - 0.2467E+01, 0.2496E+01, 0.2524E+01, 0.2553E+01,& - 0.2582E+01, 0.2612E+01, 0.2642E+01, 0.2672E+01,& - 0.2703E+01, 0.2735E+01, 0.2766E+01, 0.2799E+01,& - 0.2831E+01, 0.2864E+01, 0.2898E+01, 0.2931E+01,& - 0.2966E+01, 0.3001E+01, 0.3036E+01, 0.3072E+01,& - 0.3108E+01, 0.3145E+01, 0.3183E+01, 0.3221E+01,& - 0.3259E+01, 0.3298E+01, 0.3338E+01, 0.3378E+01,& - 0.3419E+01, 0.3461E+01, 0.3503E+01, 0.3546E+01,& - 0.3589E+01, 0.3633E+01, 0.3678E+01, 0.3724E+01,& - 0.3770E+01, 0.3817E+01, 0.3865E+01, 0.3913E+01,& - 0.3963E+01, 0.4013E+01, 0.4064E+01, 0.4116E+01,& - 0.4168E+01, 0.4222E+01, 0.4277E+01, 0.4332E+01,& - 0.4388E+01, 0.4446E+01, 0.4505E+01, 0.4564E+01,& - 0.4625E+01, 0.4687E+01, 0.4750E+01, 0.4814E+01,& - 0.4879E+01, 0.4946E+01, 0.5014E+01, 0.5083E+01,& - 0.5154E+01, 0.5226E+01, 0.5300E+01, 0.5376E+01,& - 0.5453E+01, 0.5531E+01, 0.5611E+01, 0.5693E+01,& - 0.5777E+01, 0.5863E+01, 0.5951E+01, 0.6040E+01,& - 0.6133E+01, 0.6227E+01, 0.6323E+01, 0.6422E+01,& - 0.6524E+01, 0.6628E+01, 0.6735E+01, 0.6845E+01,& - 0.6958E+01, 0.7075E+01, 0.7194E+01, 0.7317E+01,& - 0.7444E+01, 0.7575E+01, 0.7710E+01, 0.7850E+01,& - 0.7994E+01, 0.8143E+01, 0.8297E+01, 0.8457E+01,& - 0.8623E+01, 0.8796E+01, 0.8976E+01, 0.9163E+01,& - 0.9358E+01, 0.9562E+01, 0.9776E+01, 0.1000E+02,& - 0.1024E+02, 0.1048E+02, 0.1075E+02, 0.1102E+02,& - 0.1132E+02, 0.1163E+02, 0.1197E+02, 0.1233E+02,& - 0.1273E+02, 0.1316E+02, 0.1363E+02, 0.1415E+02,& - 0.1474E+02, 0.1541E+02, 0.1619E+02, 0.1713E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,109) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.3472E-03, 0.3472E-03,& - 0.3472E-03, 0.3472E-03, 0.3472E-03, 0.3472E-03,& - 0.3472E-03, 0.3472E-03, 0.3472E-03, 0.3472E-03,& - 0.3472E-03, 0.3472E-03, 0.3472E-03, 0.3472E-03,& - 0.3472E-03, 0.3472E-03, 0.3472E-03, 0.3472E-03,& - 0.3472E-03, 0.3472E-03, 0.3472E-03, 0.3472E-03,& - 0.3472E-03, 0.3472E-03, 0.3472E-03, 0.3472E-03,& - 0.3472E-03, 0.6844E-03, 0.6844E-03, 0.6844E-03,& - 0.6844E-03, 0.6844E-03, 0.6844E-03, 0.6844E-03,& - 0.6844E-03, 0.6844E-03, 0.6844E-03, 0.6844E-03,& - 0.6844E-03, 0.6844E-03, 0.6844E-03, 0.6844E-03,& - 0.6844E-03, 0.1022E-02, 0.1022E-02, 0.1022E-02,& - 0.1022E-02, 0.1022E-02, 0.1022E-02, 0.1022E-02,& - 0.1022E-02, 0.1022E-02, 0.1022E-02, 0.1022E-02,& - 0.1022E-02, 0.1022E-02, 0.1359E-02, 0.1359E-02,& - 0.1359E-02, 0.1359E-02, 0.1359E-02, 0.1359E-02,& - 0.1359E-02, 0.1359E-02, 0.1359E-02, 0.1359E-02,& - 0.1696E-02, 0.1696E-02, 0.1696E-02, 0.1696E-02,& - 0.1696E-02, 0.1696E-02, 0.1696E-02, 0.1696E-02,& - 0.2033E-02, 0.2033E-02, 0.2033E-02, 0.2033E-02,& - 0.2033E-02, 0.2033E-02, 0.2033E-02, 0.2371E-02,& - 0.2371E-02, 0.2371E-02, 0.2371E-02, 0.2371E-02,& - 0.2371E-02, 0.2708E-02, 0.2708E-02, 0.2708E-02,& - 0.2708E-02, 0.2708E-02, 0.2708E-02, 0.3045E-02,& - 0.3045E-02, 0.3045E-02, 0.3045E-02, 0.3045E-02,& - 0.3382E-02, 0.3382E-02, 0.3382E-02, 0.3382E-02,& - 0.3382E-02, 0.3719E-02, 0.3719E-02, 0.3719E-02,& - 0.3719E-02, 0.4057E-02, 0.4057E-02, 0.4057E-02,& - 0.4057E-02, 0.4394E-02, 0.4394E-02, 0.4394E-02,& - 0.4394E-02, 0.4731E-02, 0.4731E-02, 0.4731E-02,& - 0.4731E-02, 0.5068E-02, 0.5068E-02, 0.5068E-02,& - 0.5406E-02, 0.5406E-02, 0.5406E-02, 0.5743E-02,& - 0.5743E-02, 0.5743E-02, 0.6080E-02, 0.6080E-02,& - 0.6080E-02, 0.6417E-02, 0.6417E-02, 0.6417E-02,& - 0.6754E-02, 0.6754E-02, 0.6754E-02, 0.7092E-02,& - 0.7092E-02, 0.7429E-02, 0.7429E-02, 0.7429E-02,& - 0.7766E-02, 0.7766E-02, 0.8103E-02, 0.8103E-02,& - 0.8440E-02, 0.8440E-02, 0.8778E-02, 0.8778E-02,& - 0.9115E-02, 0.9115E-02, 0.9452E-02, 0.9452E-02,& - 0.9789E-02, 0.9789E-02, 0.1013E-01, 0.1013E-01,& - 0.1046E-01, 0.1046E-01, 0.1080E-01, 0.1080E-01,& - 0.1114E-01, 0.1148E-01, 0.1148E-01, 0.1181E-01,& - 0.1181E-01, 0.1215E-01, 0.1249E-01, 0.1249E-01,& - 0.1282E-01, 0.1316E-01, 0.1316E-01, 0.1350E-01,& - 0.1384E-01, 0.1384E-01, 0.1417E-01, 0.1451E-01,& - 0.1451E-01, 0.1485E-01, 0.1518E-01, 0.1552E-01,& - 0.1586E-01, 0.1586E-01, 0.1620E-01, 0.1653E-01,& - 0.1687E-01, 0.1721E-01, 0.1721E-01, 0.1755E-01,& - 0.1788E-01, 0.1822E-01, 0.1856E-01, 0.1889E-01,& - 0.1923E-01, 0.1957E-01, 0.1991E-01, 0.2024E-01,& - 0.2058E-01, 0.2092E-01, 0.2125E-01, 0.2159E-01,& - 0.2193E-01, 0.2227E-01, 0.2260E-01, 0.2294E-01,& - 0.2328E-01, 0.2362E-01, 0.2395E-01, 0.2463E-01,& - 0.2496E-01, 0.2530E-01, 0.2564E-01, 0.2598E-01,& - 0.2665E-01, 0.2699E-01, 0.2732E-01, 0.2766E-01,& - 0.2834E-01, 0.2867E-01, 0.2901E-01, 0.2969E-01,& - 0.3002E-01, 0.3036E-01, 0.3103E-01, 0.3137E-01,& - 0.3205E-01, 0.3238E-01, 0.3306E-01, 0.3339E-01,& - 0.3407E-01, 0.3441E-01, 0.3508E-01, 0.3542E-01,& - 0.3609E-01, 0.3677E-01, 0.3710E-01, 0.3778E-01,& - 0.3845E-01, 0.3913E-01, 0.3946E-01, 0.4014E-01,& - 0.4081E-01, 0.4149E-01, 0.4216E-01, 0.4250E-01,& - 0.4317E-01, 0.4385E-01, 0.4452E-01, 0.4520E-01,& - 0.4587E-01, 0.4655E-01, 0.4722E-01, 0.4790E-01,& - 0.4857E-01, 0.4924E-01, 0.5026E-01, 0.5093E-01,& - 0.5160E-01, 0.5228E-01, 0.5329E-01, 0.5397E-01,& - 0.5464E-01, 0.5565E-01, 0.5633E-01, 0.5700E-01,& - 0.5801E-01, 0.5869E-01, 0.5970E-01, 0.6037E-01,& - 0.6138E-01, 0.6240E-01, 0.6307E-01, 0.6408E-01,& - 0.6509E-01, 0.6577E-01, 0.6678E-01, 0.6779E-01,& - 0.6880E-01, 0.6981E-01, 0.7083E-01, 0.7184E-01,& - 0.7251E-01, 0.7386E-01, 0.7487E-01, 0.7588E-01,& - 0.7690E-01, 0.7791E-01, 0.7892E-01, 0.8027E-01,& - 0.8128E-01, 0.8229E-01, 0.8364E-01, 0.8465E-01,& - 0.8566E-01, 0.8701E-01, 0.8802E-01, 0.8937E-01,& - 0.9072E-01, 0.9173E-01, 0.9308E-01, 0.9443E-01,& - 0.9578E-01, 0.9713E-01, 0.9814E-01, 0.9949E-01,& - 0.1008E+00, 0.1022E+00, 0.1039E+00, 0.1052E+00,& - 0.1066E+00, 0.1079E+00, 0.1093E+00, 0.1110E+00,& - 0.1123E+00, 0.1140E+00, 0.1153E+00, 0.1170E+00,& - 0.1184E+00, 0.1201E+00, 0.1217E+00, 0.1231E+00,& - 0.1248E+00, 0.1265E+00, 0.1282E+00, 0.1298E+00,& - 0.1315E+00, 0.1332E+00, 0.1349E+00, 0.1369E+00,& - 0.1386E+00, 0.1403E+00, 0.1423E+00, 0.1440E+00,& - 0.1460E+00, 0.1477E+00, 0.1497E+00, 0.1518E+00,& - 0.1538E+00, 0.1558E+00, 0.1578E+00, 0.1599E+00,& - 0.1619E+00, 0.1639E+00, 0.1659E+00, 0.1679E+00,& - 0.1703E+00, 0.1723E+00, 0.1747E+00, 0.1767E+00,& - 0.1791E+00, 0.1814E+00, 0.1835E+00, 0.1858E+00,& - 0.1882E+00, 0.1905E+00, 0.1929E+00, 0.1956E+00,& - 0.1980E+00, 0.2003E+00, 0.2030E+00, 0.2054E+00,& - 0.2081E+00, 0.2108E+00, 0.2131E+00, 0.2158E+00,& - 0.2185E+00, 0.2212E+00, 0.2239E+00, 0.2270E+00,& - 0.2297E+00, 0.2324E+00, 0.2354E+00, 0.2381E+00,& - 0.2411E+00, 0.2442E+00, 0.2472E+00, 0.2502E+00,& - 0.2533E+00, 0.2563E+00, 0.2593E+00, 0.2627E+00,& - 0.2657E+00, 0.2691E+00, 0.2725E+00, 0.2755E+00,& - 0.2789E+00, 0.2823E+00, 0.2856E+00, 0.2893E+00,& - 0.2927E+00, 0.2961E+00, 0.2998E+00, 0.3035E+00,& - 0.3072E+00, 0.3109E+00, 0.3146E+00, 0.3183E+00,& - 0.3221E+00, 0.3258E+00, 0.3298E+00, 0.3339E+00,& - 0.3376E+00, 0.3416E+00, 0.3457E+00, 0.3500E+00,& - 0.3541E+00, 0.3581E+00, 0.3625E+00, 0.3669E+00,& - 0.3713E+00, 0.3757E+00, 0.3801E+00, 0.3844E+00,& - 0.3888E+00, 0.3935E+00, 0.3983E+00, 0.4026E+00,& - 0.4074E+00, 0.4124E+00, 0.4172E+00, 0.4219E+00,& - 0.4269E+00, 0.4320E+00, 0.4370E+00, 0.4421E+00,& - 0.4472E+00, 0.4522E+00, 0.4576E+00, 0.4630E+00,& - 0.4684E+00, 0.4738E+00, 0.4792E+00, 0.4846E+00,& - 0.4903E+00, 0.4961E+00, 0.5018E+00, 0.5075E+00,& - 0.5133E+00, 0.5193E+00, 0.5251E+00, 0.5311E+00,& - 0.5372E+00, 0.5436E+00, 0.5497E+00, 0.5561E+00,& - 0.5625E+00, 0.5689E+00, 0.5753E+00, 0.5817E+00,& - 0.5885E+00, 0.5952E+00, 0.6019E+00, 0.6087E+00,& - 0.6158E+00, 0.6225E+00, 0.6296E+00, 0.6370E+00,& - 0.6441E+00, 0.6515E+00, 0.6586E+00, 0.6664E+00,& - 0.6738E+00, 0.6812E+00, 0.6889E+00, 0.6967E+00,& - 0.7048E+00, 0.7126E+00, 0.7206E+00, 0.7287E+00,& - 0.7368E+00, 0.7453E+00, 0.7537E+00, 0.7621E+00,& - 0.7706E+00, 0.7793E+00, 0.7881E+00, 0.7969E+00,& - 0.8056E+00, 0.8147E+00, 0.8238E+00, 0.8333E+00,& - 0.8424E+00, 0.8518E+00, 0.8613E+00, 0.8710E+00,& - 0.8808E+00, 0.8906E+00, 0.9004E+00, 0.9105E+00,& - 0.9206E+00, 0.9311E+00, 0.9412E+00, 0.9516E+00,& - 0.9624E+00, 0.9732E+00, 0.9840E+00, 0.9948E+00,& - 0.1006E+01, 0.1017E+01, 0.1029E+01, 0.1040E+01,& - 0.1051E+01, 0.1063E+01, 0.1075E+01, 0.1087E+01,& - 0.1099E+01, 0.1111E+01, 0.1123E+01, 0.1136E+01,& - 0.1148E+01, 0.1161E+01, 0.1174E+01, 0.1187E+01,& - 0.1200E+01, 0.1214E+01, 0.1227E+01, 0.1241E+01,& - 0.1254E+01, 0.1268E+01, 0.1282E+01, 0.1297E+01,& - 0.1311E+01, 0.1326E+01, 0.1340E+01, 0.1355E+01,& - 0.1370E+01, 0.1385E+01, 0.1401E+01, 0.1416E+01,& - 0.1432E+01, 0.1448E+01, 0.1464E+01, 0.1480E+01,& - 0.1497E+01, 0.1513E+01, 0.1530E+01, 0.1547E+01,& - 0.1564E+01, 0.1582E+01, 0.1599E+01, 0.1617E+01,& - 0.1635E+01, 0.1654E+01, 0.1672E+01, 0.1691E+01,& - 0.1710E+01, 0.1729E+01, 0.1748E+01, 0.1768E+01,& - 0.1788E+01, 0.1808E+01, 0.1828E+01, 0.1848E+01,& - 0.1869E+01, 0.1890E+01, 0.1911E+01, 0.1933E+01,& - 0.1955E+01, 0.1977E+01, 0.1999E+01, 0.2022E+01,& - 0.2045E+01, 0.2068E+01, 0.2091E+01, 0.2115E+01,& - 0.2139E+01, 0.2163E+01, 0.2188E+01, 0.2213E+01,& - 0.2238E+01, 0.2263E+01, 0.2289E+01, 0.2316E+01,& - 0.2342E+01, 0.2369E+01, 0.2396E+01, 0.2424E+01,& - 0.2452E+01, 0.2480E+01, 0.2509E+01, 0.2538E+01,& - 0.2568E+01, 0.2597E+01, 0.2628E+01, 0.2658E+01,& - 0.2689E+01, 0.2721E+01, 0.2753E+01, 0.2785E+01,& - 0.2818E+01, 0.2851E+01, 0.2885E+01, 0.2919E+01,& - 0.2954E+01, 0.2989E+01, 0.3025E+01, 0.3061E+01,& - 0.3097E+01, 0.3135E+01, 0.3173E+01, 0.3211E+01,& - 0.3250E+01, 0.3289E+01, 0.3329E+01, 0.3370E+01,& - 0.3411E+01, 0.3453E+01, 0.3496E+01, 0.3539E+01,& - 0.3583E+01, 0.3627E+01, 0.3672E+01, 0.3718E+01,& - 0.3765E+01, 0.3813E+01, 0.3861E+01, 0.3910E+01,& - 0.3960E+01, 0.4010E+01, 0.4062E+01, 0.4114E+01,& - 0.4167E+01, 0.4222E+01, 0.4277E+01, 0.4333E+01,& - 0.4390E+01, 0.4448E+01, 0.4507E+01, 0.4568E+01,& - 0.4629E+01, 0.4692E+01, 0.4755E+01, 0.4820E+01,& - 0.4887E+01, 0.4954E+01, 0.5023E+01, 0.5093E+01,& - 0.5165E+01, 0.5238E+01, 0.5313E+01, 0.5389E+01,& - 0.5467E+01, 0.5546E+01, 0.5628E+01, 0.5710E+01,& - 0.5795E+01, 0.5882E+01, 0.5971E+01, 0.6063E+01,& - 0.6156E+01, 0.6251E+01, 0.6349E+01, 0.6449E+01,& - 0.6553E+01, 0.6658E+01, 0.6767E+01, 0.6878E+01,& - 0.6993E+01, 0.7111E+01, 0.7232E+01, 0.7357E+01,& - 0.7486E+01, 0.7618E+01, 0.7756E+01, 0.7897E+01,& - 0.8044E+01, 0.8195E+01, 0.8352E+01, 0.8514E+01,& - 0.8683E+01, 0.8858E+01, 0.9041E+01, 0.9231E+01,& - 0.9429E+01, 0.9636E+01, 0.9854E+01, 0.1008E+02,& - 0.1032E+02, 0.1057E+02, 0.1084E+02, 0.1112E+02,& - 0.1142E+02, 0.1174E+02, 0.1209E+02, 0.1245E+02,& - 0.1285E+02, 0.1329E+02, 0.1377E+02, 0.1430E+02,& - 0.1490E+02, 0.1558E+02, 0.1638E+02, 0.1734E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,110) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3526E-03, 0.3526E-03, 0.3526E-03,& - 0.3526E-03, 0.3526E-03, 0.3526E-03, 0.3526E-03,& - 0.3526E-03, 0.3526E-03, 0.3526E-03, 0.3526E-03,& - 0.3526E-03, 0.3526E-03, 0.3526E-03, 0.3526E-03,& - 0.3526E-03, 0.3526E-03, 0.3526E-03, 0.3526E-03,& - 0.3526E-03, 0.3526E-03, 0.3526E-03, 0.3526E-03,& - 0.3526E-03, 0.3526E-03, 0.3526E-03, 0.6952E-03,& - 0.6952E-03, 0.6952E-03, 0.6952E-03, 0.6952E-03,& - 0.6952E-03, 0.6952E-03, 0.6952E-03, 0.6952E-03,& - 0.6952E-03, 0.6952E-03, 0.6952E-03, 0.6952E-03,& - 0.6952E-03, 0.6952E-03, 0.6952E-03, 0.6952E-03,& - 0.1038E-02, 0.1038E-02, 0.1038E-02, 0.1038E-02,& - 0.1038E-02, 0.1038E-02, 0.1038E-02, 0.1038E-02,& - 0.1038E-02, 0.1038E-02, 0.1038E-02, 0.1038E-02,& - 0.1380E-02, 0.1380E-02, 0.1380E-02, 0.1380E-02,& - 0.1380E-02, 0.1380E-02, 0.1380E-02, 0.1380E-02,& - 0.1380E-02, 0.1380E-02, 0.1723E-02, 0.1723E-02,& - 0.1723E-02, 0.1723E-02, 0.1723E-02, 0.1723E-02,& - 0.1723E-02, 0.1723E-02, 0.2066E-02, 0.2066E-02,& - 0.2066E-02, 0.2066E-02, 0.2066E-02, 0.2066E-02,& - 0.2066E-02, 0.2066E-02, 0.2408E-02, 0.2408E-02,& - 0.2408E-02, 0.2408E-02, 0.2408E-02, 0.2408E-02,& - 0.2751E-02, 0.2751E-02, 0.2751E-02, 0.2751E-02,& - 0.2751E-02, 0.2751E-02, 0.3093E-02, 0.3093E-02,& - 0.3093E-02, 0.3093E-02, 0.3093E-02, 0.3436E-02,& - 0.3436E-02, 0.3436E-02, 0.3436E-02, 0.3778E-02,& - 0.3778E-02, 0.3778E-02, 0.3778E-02, 0.3778E-02,& - 0.4121E-02, 0.4121E-02, 0.4121E-02, 0.4121E-02,& - 0.4464E-02, 0.4464E-02, 0.4464E-02, 0.4464E-02,& - 0.4806E-02, 0.4806E-02, 0.4806E-02, 0.5149E-02,& - 0.5149E-02, 0.5149E-02, 0.5491E-02, 0.5491E-02,& - 0.5491E-02, 0.5491E-02, 0.5834E-02, 0.5834E-02,& - 0.5834E-02, 0.6177E-02, 0.6177E-02, 0.6177E-02,& - 0.6519E-02, 0.6519E-02, 0.6862E-02, 0.6862E-02,& - 0.6862E-02, 0.7204E-02, 0.7204E-02, 0.7547E-02,& - 0.7547E-02, 0.7547E-02, 0.7889E-02, 0.7889E-02,& - 0.8232E-02, 0.8232E-02, 0.8575E-02, 0.8575E-02,& - 0.8575E-02, 0.8917E-02, 0.8917E-02, 0.9260E-02,& - 0.9260E-02, 0.9602E-02, 0.9602E-02, 0.9945E-02,& - 0.9945E-02, 0.1029E-01, 0.1063E-01, 0.1063E-01,& - 0.1097E-01, 0.1097E-01, 0.1132E-01, 0.1132E-01,& - 0.1166E-01, 0.1200E-01, 0.1200E-01, 0.1234E-01,& - 0.1269E-01, 0.1269E-01, 0.1303E-01, 0.1303E-01,& - 0.1337E-01, 0.1371E-01, 0.1406E-01, 0.1406E-01,& - 0.1440E-01, 0.1474E-01, 0.1474E-01, 0.1508E-01,& - 0.1543E-01, 0.1577E-01, 0.1577E-01, 0.1611E-01,& - 0.1645E-01, 0.1680E-01, 0.1714E-01, 0.1748E-01,& - 0.1748E-01, 0.1782E-01, 0.1817E-01, 0.1851E-01,& - 0.1885E-01, 0.1919E-01, 0.1954E-01, 0.1988E-01,& - 0.2022E-01, 0.2057E-01, 0.2091E-01, 0.2125E-01,& - 0.2159E-01, 0.2194E-01, 0.2228E-01, 0.2262E-01,& - 0.2296E-01, 0.2331E-01, 0.2365E-01, 0.2399E-01,& - 0.2433E-01, 0.2502E-01, 0.2536E-01, 0.2570E-01,& - 0.2605E-01, 0.2639E-01, 0.2707E-01, 0.2742E-01,& - 0.2776E-01, 0.2844E-01, 0.2879E-01, 0.2913E-01,& - 0.2981E-01, 0.3016E-01, 0.3050E-01, 0.3119E-01,& - 0.3153E-01, 0.3221E-01, 0.3256E-01, 0.3290E-01,& - 0.3358E-01, 0.3427E-01, 0.3461E-01, 0.3530E-01,& - 0.3564E-01, 0.3632E-01, 0.3667E-01, 0.3735E-01,& - 0.3804E-01, 0.3872E-01, 0.3906E-01, 0.3975E-01,& - 0.4043E-01, 0.4112E-01, 0.4146E-01, 0.4215E-01,& - 0.4283E-01, 0.4352E-01, 0.4420E-01, 0.4489E-01,& - 0.4557E-01, 0.4626E-01, 0.4694E-01, 0.4763E-01,& - 0.4831E-01, 0.4900E-01, 0.4968E-01, 0.5037E-01,& - 0.5140E-01, 0.5208E-01, 0.5277E-01, 0.5345E-01,& - 0.5448E-01, 0.5517E-01, 0.5585E-01, 0.5688E-01,& - 0.5756E-01, 0.5825E-01, 0.5928E-01, 0.5996E-01,& - 0.6099E-01, 0.6202E-01, 0.6270E-01, 0.6373E-01,& - 0.6476E-01, 0.6544E-01, 0.6647E-01, 0.6750E-01,& - 0.6853E-01, 0.6921E-01, 0.7024E-01, 0.7127E-01,& - 0.7230E-01, 0.7332E-01, 0.7435E-01, 0.7538E-01,& - 0.7641E-01, 0.7778E-01, 0.7880E-01, 0.7983E-01,& - 0.8086E-01, 0.8223E-01, 0.8326E-01, 0.8429E-01,& - 0.8566E-01, 0.8668E-01, 0.8805E-01, 0.8908E-01,& - 0.9045E-01, 0.9182E-01, 0.9285E-01, 0.9422E-01,& - 0.9559E-01, 0.9696E-01, 0.9833E-01, 0.9970E-01,& - 0.1011E+00, 0.1024E+00, 0.1038E+00, 0.1052E+00,& - 0.1066E+00, 0.1079E+00, 0.1093E+00, 0.1110E+00,& - 0.1124E+00, 0.1141E+00, 0.1155E+00, 0.1172E+00,& - 0.1185E+00, 0.1203E+00, 0.1220E+00, 0.1233E+00,& - 0.1251E+00, 0.1268E+00, 0.1285E+00, 0.1302E+00,& - 0.1319E+00, 0.1336E+00, 0.1353E+00, 0.1370E+00,& - 0.1391E+00, 0.1408E+00, 0.1425E+00, 0.1446E+00,& - 0.1466E+00, 0.1483E+00, 0.1504E+00, 0.1525E+00,& - 0.1542E+00, 0.1562E+00, 0.1583E+00, 0.1603E+00,& - 0.1624E+00, 0.1645E+00, 0.1668E+00, 0.1689E+00,& - 0.1710E+00, 0.1734E+00, 0.1754E+00, 0.1778E+00,& - 0.1799E+00, 0.1823E+00, 0.1847E+00, 0.1871E+00,& - 0.1895E+00, 0.1919E+00, 0.1943E+00, 0.1967E+00,& - 0.1994E+00, 0.2018E+00, 0.2042E+00, 0.2069E+00,& - 0.2097E+00, 0.2121E+00, 0.2148E+00, 0.2176E+00,& - 0.2203E+00, 0.2230E+00, 0.2258E+00, 0.2289E+00,& - 0.2316E+00, 0.2343E+00, 0.2374E+00, 0.2405E+00,& - 0.2432E+00, 0.2463E+00, 0.2494E+00, 0.2525E+00,& - 0.2556E+00, 0.2587E+00, 0.2621E+00, 0.2652E+00,& - 0.2686E+00, 0.2717E+00, 0.2751E+00, 0.2785E+00,& - 0.2820E+00, 0.2854E+00, 0.2888E+00, 0.2926E+00,& - 0.2960E+00, 0.2998E+00, 0.3032E+00, 0.3070E+00,& - 0.3107E+00, 0.3145E+00, 0.3183E+00, 0.3220E+00,& - 0.3261E+00, 0.3299E+00, 0.3340E+00, 0.3381E+00,& - 0.3423E+00, 0.3464E+00, 0.3505E+00, 0.3546E+00,& - 0.3587E+00, 0.3631E+00, 0.3676E+00, 0.3721E+00,& - 0.3762E+00, 0.3810E+00, 0.3854E+00, 0.3899E+00,& - 0.3947E+00, 0.3995E+00, 0.4039E+00, 0.4087E+00,& - 0.4139E+00, 0.4186E+00, 0.4234E+00, 0.4286E+00,& - 0.4337E+00, 0.4389E+00, 0.4440E+00, 0.4491E+00,& - 0.4543E+00, 0.4598E+00, 0.4652E+00, 0.4707E+00,& - 0.4762E+00, 0.4817E+00, 0.4875E+00, 0.4930E+00,& - 0.4988E+00, 0.5046E+00, 0.5105E+00, 0.5166E+00,& - 0.5224E+00, 0.5286E+00, 0.5348E+00, 0.5409E+00,& - 0.5471E+00, 0.5536E+00, 0.5601E+00, 0.5666E+00,& - 0.5732E+00, 0.5797E+00, 0.5865E+00, 0.5930E+00,& - 0.5999E+00, 0.6071E+00, 0.6139E+00, 0.6211E+00,& - 0.6280E+00, 0.6355E+00, 0.6427E+00, 0.6499E+00,& - 0.6574E+00, 0.6650E+00, 0.6725E+00, 0.6804E+00,& - 0.6883E+00, 0.6961E+00, 0.7040E+00, 0.7119E+00,& - 0.7201E+00, 0.7283E+00, 0.7366E+00, 0.7451E+00,& - 0.7537E+00, 0.7623E+00, 0.7708E+00, 0.7797E+00,& - 0.7883E+00, 0.7975E+00, 0.8065E+00, 0.8157E+00,& - 0.8250E+00, 0.8342E+00, 0.8438E+00, 0.8534E+00,& - 0.8630E+00, 0.8726E+00, 0.8825E+00, 0.8924E+00,& - 0.9027E+00, 0.9130E+00, 0.9233E+00, 0.9336E+00,& - 0.9442E+00, 0.9548E+00, 0.9654E+00, 0.9764E+00,& - 0.9873E+00, 0.9986E+00, 0.1010E+01, 0.1021E+01,& - 0.1033E+01, 0.1044E+01, 0.1056E+01, 0.1068E+01,& - 0.1080E+01, 0.1092E+01, 0.1104E+01, 0.1117E+01,& - 0.1130E+01, 0.1142E+01, 0.1155E+01, 0.1168E+01,& - 0.1181E+01, 0.1195E+01, 0.1208E+01, 0.1221E+01,& - 0.1235E+01, 0.1249E+01, 0.1263E+01, 0.1278E+01,& - 0.1292E+01, 0.1306E+01, 0.1321E+01, 0.1336E+01,& - 0.1351E+01, 0.1366E+01, 0.1381E+01, 0.1397E+01,& - 0.1413E+01, 0.1429E+01, 0.1445E+01, 0.1461E+01,& - 0.1478E+01, 0.1494E+01, 0.1511E+01, 0.1528E+01,& - 0.1545E+01, 0.1563E+01, 0.1580E+01, 0.1598E+01,& - 0.1616E+01, 0.1634E+01, 0.1653E+01, 0.1672E+01,& - 0.1691E+01, 0.1710E+01, 0.1729E+01, 0.1749E+01,& - 0.1769E+01, 0.1789E+01, 0.1809E+01, 0.1830E+01,& - 0.1851E+01, 0.1872E+01, 0.1893E+01, 0.1914E+01,& - 0.1936E+01, 0.1959E+01, 0.1981E+01, 0.2003E+01,& - 0.2026E+01, 0.2050E+01, 0.2073E+01, 0.2097E+01,& - 0.2121E+01, 0.2146E+01, 0.2170E+01, 0.2196E+01,& - 0.2221E+01, 0.2247E+01, 0.2273E+01, 0.2299E+01,& - 0.2326E+01, 0.2353E+01, 0.2380E+01, 0.2408E+01,& - 0.2436E+01, 0.2465E+01, 0.2493E+01, 0.2522E+01,& - 0.2552E+01, 0.2582E+01, 0.2613E+01, 0.2644E+01,& - 0.2675E+01, 0.2706E+01, 0.2739E+01, 0.2771E+01,& - 0.2804E+01, 0.2838E+01, 0.2872E+01, 0.2906E+01,& - 0.2941E+01, 0.2977E+01, 0.3013E+01, 0.3049E+01,& - 0.3086E+01, 0.3123E+01, 0.3162E+01, 0.3200E+01,& - 0.3239E+01, 0.3279E+01, 0.3320E+01, 0.3361E+01,& - 0.3402E+01, 0.3444E+01, 0.3488E+01, 0.3531E+01,& - 0.3575E+01, 0.3620E+01, 0.3666E+01, 0.3712E+01,& - 0.3760E+01, 0.3807E+01, 0.3856E+01, 0.3905E+01,& - 0.3956E+01, 0.4007E+01, 0.4059E+01, 0.4112E+01,& - 0.4166E+01, 0.4221E+01, 0.4276E+01, 0.4333E+01,& - 0.4391E+01, 0.4450E+01, 0.4510E+01, 0.4570E+01,& - 0.4633E+01, 0.4696E+01, 0.4761E+01, 0.4826E+01,& - 0.4893E+01, 0.4961E+01, 0.5031E+01, 0.5102E+01,& - 0.5175E+01, 0.5249E+01, 0.5324E+01, 0.5402E+01,& - 0.5480E+01, 0.5561E+01, 0.5643E+01, 0.5727E+01,& - 0.5813E+01, 0.5901E+01, 0.5991E+01, 0.6084E+01,& - 0.6178E+01, 0.6275E+01, 0.6374E+01, 0.6476E+01,& - 0.6580E+01, 0.6688E+01, 0.6798E+01, 0.6911E+01,& - 0.7027E+01, 0.7146E+01, 0.7270E+01, 0.7396E+01,& - 0.7527E+01, 0.7662E+01, 0.7801E+01, 0.7945E+01,& - 0.8093E+01, 0.8247E+01, 0.8406E+01, 0.8571E+01,& - 0.8742E+01, 0.8920E+01, 0.9105E+01, 0.9298E+01,& - 0.9500E+01, 0.9711E+01, 0.9931E+01, 0.1016E+02,& - 0.1041E+02, 0.1066E+02, 0.1093E+02, 0.1122E+02,& - 0.1152E+02, 0.1185E+02, 0.1220E+02, 0.1258E+02,& - 0.1298E+02, 0.1343E+02, 0.1391E+02, 0.1446E+02,& - 0.1506E+02, 0.1575E+02, 0.1657E+02, 0.1754E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,111) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3580E-03,& - 0.3580E-03, 0.3580E-03, 0.3580E-03, 0.3580E-03,& - 0.3580E-03, 0.3580E-03, 0.3580E-03, 0.3580E-03,& - 0.3580E-03, 0.3580E-03, 0.3580E-03, 0.3580E-03,& - 0.3580E-03, 0.3580E-03, 0.3580E-03, 0.3580E-03,& - 0.3580E-03, 0.3580E-03, 0.3580E-03, 0.3580E-03,& - 0.3580E-03, 0.3580E-03, 0.3580E-03, 0.3580E-03,& - 0.3580E-03, 0.7060E-03, 0.7060E-03, 0.7060E-03,& - 0.7060E-03, 0.7060E-03, 0.7060E-03, 0.7060E-03,& - 0.7060E-03, 0.7060E-03, 0.7060E-03, 0.7060E-03,& - 0.7060E-03, 0.7060E-03, 0.7060E-03, 0.7060E-03,& - 0.7060E-03, 0.7060E-03, 0.1054E-02, 0.1054E-02,& - 0.1054E-02, 0.1054E-02, 0.1054E-02, 0.1054E-02,& - 0.1054E-02, 0.1054E-02, 0.1054E-02, 0.1054E-02,& - 0.1054E-02, 0.1054E-02, 0.1402E-02, 0.1402E-02,& - 0.1402E-02, 0.1402E-02, 0.1402E-02, 0.1402E-02,& - 0.1402E-02, 0.1402E-02, 0.1402E-02, 0.1402E-02,& - 0.1750E-02, 0.1750E-02, 0.1750E-02, 0.1750E-02,& - 0.1750E-02, 0.1750E-02, 0.1750E-02, 0.1750E-02,& - 0.1750E-02, 0.2098E-02, 0.2098E-02, 0.2098E-02,& - 0.2098E-02, 0.2098E-02, 0.2098E-02, 0.2098E-02,& - 0.2446E-02, 0.2446E-02, 0.2446E-02, 0.2446E-02,& - 0.2446E-02, 0.2446E-02, 0.2794E-02, 0.2794E-02,& - 0.2794E-02, 0.2794E-02, 0.2794E-02, 0.2794E-02,& - 0.3142E-02, 0.3142E-02, 0.3142E-02, 0.3142E-02,& - 0.3142E-02, 0.3490E-02, 0.3490E-02, 0.3490E-02,& - 0.3490E-02, 0.3490E-02, 0.3838E-02, 0.3838E-02,& - 0.3838E-02, 0.3838E-02, 0.4186E-02, 0.4186E-02,& - 0.4186E-02, 0.4186E-02, 0.4534E-02, 0.4534E-02,& - 0.4534E-02, 0.4534E-02, 0.4882E-02, 0.4882E-02,& - 0.4882E-02, 0.5230E-02, 0.5230E-02, 0.5230E-02,& - 0.5230E-02, 0.5578E-02, 0.5578E-02, 0.5578E-02,& - 0.5926E-02, 0.5926E-02, 0.5926E-02, 0.6274E-02,& - 0.6274E-02, 0.6274E-02, 0.6622E-02, 0.6622E-02,& - 0.6970E-02, 0.6970E-02, 0.6970E-02, 0.7318E-02,& - 0.7318E-02, 0.7318E-02, 0.7666E-02, 0.7666E-02,& - 0.8014E-02, 0.8014E-02, 0.8362E-02, 0.8362E-02,& - 0.8362E-02, 0.8710E-02, 0.8710E-02, 0.9058E-02,& - 0.9058E-02, 0.9406E-02, 0.9406E-02, 0.9754E-02,& - 0.9754E-02, 0.1010E-01, 0.1010E-01, 0.1045E-01,& - 0.1080E-01, 0.1080E-01, 0.1115E-01, 0.1115E-01,& - 0.1149E-01, 0.1149E-01, 0.1184E-01, 0.1219E-01,& - 0.1219E-01, 0.1254E-01, 0.1254E-01, 0.1289E-01,& - 0.1323E-01, 0.1323E-01, 0.1358E-01, 0.1393E-01,& - 0.1428E-01, 0.1428E-01, 0.1463E-01, 0.1497E-01,& - 0.1497E-01, 0.1532E-01, 0.1567E-01, 0.1602E-01,& - 0.1637E-01, 0.1637E-01, 0.1671E-01, 0.1706E-01,& - 0.1741E-01, 0.1776E-01, 0.1776E-01, 0.1811E-01,& - 0.1845E-01, 0.1880E-01, 0.1915E-01, 0.1950E-01,& - 0.1985E-01, 0.2019E-01, 0.2054E-01, 0.2089E-01,& - 0.2124E-01, 0.2159E-01, 0.2193E-01, 0.2228E-01,& - 0.2263E-01, 0.2298E-01, 0.2333E-01, 0.2367E-01,& - 0.2402E-01, 0.2472E-01, 0.2507E-01, 0.2541E-01,& - 0.2576E-01, 0.2611E-01, 0.2646E-01, 0.2715E-01,& - 0.2750E-01, 0.2785E-01, 0.2820E-01, 0.2889E-01,& - 0.2924E-01, 0.2959E-01, 0.3029E-01, 0.3063E-01,& - 0.3133E-01, 0.3168E-01, 0.3203E-01, 0.3272E-01,& - 0.3307E-01, 0.3377E-01, 0.3411E-01, 0.3481E-01,& - 0.3551E-01, 0.3585E-01, 0.3655E-01, 0.3690E-01,& - 0.3759E-01, 0.3829E-01, 0.3864E-01, 0.3933E-01,& - 0.4003E-01, 0.4073E-01, 0.4107E-01, 0.4177E-01,& - 0.4247E-01, 0.4316E-01, 0.4386E-01, 0.4455E-01,& - 0.4525E-01, 0.4595E-01, 0.4664E-01, 0.4734E-01,& - 0.4803E-01, 0.4873E-01, 0.4943E-01, 0.5012E-01,& - 0.5082E-01, 0.5151E-01, 0.5256E-01, 0.5325E-01,& - 0.5395E-01, 0.5465E-01, 0.5569E-01, 0.5639E-01,& - 0.5708E-01, 0.5813E-01, 0.5882E-01, 0.5987E-01,& - 0.6056E-01, 0.6161E-01, 0.6265E-01, 0.6335E-01,& - 0.6439E-01, 0.6509E-01, 0.6613E-01, 0.6717E-01,& - 0.6822E-01, 0.6926E-01, 0.6996E-01, 0.7100E-01,& - 0.7205E-01, 0.7309E-01, 0.7413E-01, 0.7518E-01,& - 0.7622E-01, 0.7761E-01, 0.7866E-01, 0.7970E-01,& - 0.8075E-01, 0.8179E-01, 0.8318E-01, 0.8422E-01,& - 0.8562E-01, 0.8666E-01, 0.8805E-01, 0.8910E-01,& - 0.9049E-01, 0.9153E-01, 0.9292E-01, 0.9432E-01,& - 0.9536E-01, 0.9675E-01, 0.9814E-01, 0.9954E-01,& - 0.1009E+00, 0.1023E+00, 0.1037E+00, 0.1051E+00,& - 0.1065E+00, 0.1082E+00, 0.1096E+00, 0.1110E+00,& - 0.1124E+00, 0.1142E+00, 0.1155E+00, 0.1173E+00,& - 0.1187E+00, 0.1204E+00, 0.1222E+00, 0.1239E+00,& - 0.1253E+00, 0.1270E+00, 0.1288E+00, 0.1305E+00,& - 0.1322E+00, 0.1340E+00, 0.1357E+00, 0.1378E+00,& - 0.1396E+00, 0.1413E+00, 0.1434E+00, 0.1451E+00,& - 0.1472E+00, 0.1490E+00, 0.1510E+00, 0.1531E+00,& - 0.1549E+00, 0.1570E+00, 0.1590E+00, 0.1611E+00,& - 0.1632E+00, 0.1653E+00, 0.1677E+00, 0.1698E+00,& - 0.1719E+00, 0.1744E+00, 0.1764E+00, 0.1789E+00,& - 0.1813E+00, 0.1834E+00, 0.1858E+00, 0.1883E+00,& - 0.1907E+00, 0.1931E+00, 0.1956E+00, 0.1984E+00,& - 0.2008E+00, 0.2032E+00, 0.2060E+00, 0.2085E+00,& - 0.2112E+00, 0.2140E+00, 0.2168E+00, 0.2196E+00,& - 0.2224E+00, 0.2252E+00, 0.2279E+00, 0.2307E+00,& - 0.2339E+00, 0.2366E+00, 0.2398E+00, 0.2426E+00,& - 0.2457E+00, 0.2488E+00, 0.2520E+00, 0.2551E+00,& - 0.2582E+00, 0.2561E+00, 0.2648E+00, 0.2680E+00,& - 0.2714E+00, 0.2749E+00, 0.2784E+00, 0.2815E+00,& - 0.2854E+00, 0.2888E+00, 0.2923E+00, 0.2958E+00,& - 0.2996E+00, 0.3031E+00, 0.3069E+00, 0.3108E+00,& - 0.3146E+00, 0.3184E+00, 0.3223E+00, 0.3264E+00,& - 0.3303E+00, 0.3344E+00, 0.3386E+00, 0.3428E+00,& - 0.3470E+00, 0.3511E+00, 0.3553E+00, 0.3595E+00,& - 0.3640E+00, 0.3685E+00, 0.3727E+00, 0.3772E+00,& - 0.3821E+00, 0.3866E+00, 0.3912E+00, 0.3960E+00,& - 0.4006E+00, 0.4054E+00, 0.4103E+00, 0.4152E+00,& - 0.4204E+00, 0.4253E+00, 0.4305E+00, 0.4357E+00,& - 0.4409E+00, 0.4461E+00, 0.4514E+00, 0.4569E+00,& - 0.4621E+00, 0.4677E+00, 0.4733E+00, 0.4789E+00,& - 0.4844E+00, 0.4903E+00, 0.4963E+00, 0.5022E+00,& - 0.5081E+00, 0.5140E+00, 0.5199E+00, 0.5262E+00,& - 0.5324E+00, 0.5387E+00, 0.5450E+00, 0.5512E+00,& - 0.5578E+00, 0.5645E+00, 0.5711E+00, 0.5777E+00,& - 0.5846E+00, 0.5913E+00, 0.5982E+00, 0.6052E+00,& - 0.6125E+00, 0.6194E+00, 0.6268E+00, 0.6341E+00,& - 0.6414E+00, 0.6490E+00, 0.6563E+00, 0.6640E+00,& - 0.6716E+00, 0.6796E+00, 0.6873E+00, 0.6953E+00,& - 0.7033E+00, 0.7117E+00, 0.7200E+00, 0.7280E+00,& - 0.7367E+00, 0.7451E+00, 0.7538E+00, 0.7625E+00,& - 0.7712E+00, 0.7802E+00, 0.7893E+00, 0.7983E+00,& - 0.8074E+00, 0.8168E+00, 0.8262E+00, 0.8355E+00,& - 0.8453E+00, 0.8550E+00, 0.8648E+00, 0.8745E+00,& - 0.8846E+00, 0.8947E+00, 0.9051E+00, 0.9156E+00,& - 0.9260E+00, 0.9365E+00, 0.9473E+00, 0.9580E+00,& - 0.9692E+00, 0.9800E+00, 0.9914E+00, 0.1003E+01,& - 0.1014E+01, 0.1026E+01, 0.1037E+01, 0.1049E+01,& - 0.1061E+01, 0.1073E+01, 0.1086E+01, 0.1098E+01,& - 0.1110E+01, 0.1123E+01, 0.1136E+01, 0.1149E+01,& - 0.1162E+01, 0.1175E+01, 0.1189E+01, 0.1202E+01,& - 0.1216E+01, 0.1230E+01, 0.1244E+01, 0.1258E+01,& - 0.1272E+01, 0.1287E+01, 0.1302E+01, 0.1316E+01,& - 0.1331E+01, 0.1347E+01, 0.1362E+01, 0.1378E+01,& - 0.1393E+01, 0.1409E+01, 0.1425E+01, 0.1442E+01,& - 0.1458E+01, 0.1475E+01, 0.1492E+01, 0.1509E+01,& - 0.1526E+01, 0.1543E+01, 0.1561E+01, 0.1579E+01,& - 0.1597E+01, 0.1615E+01, 0.1634E+01, 0.1653E+01,& - 0.1671E+01, 0.1691E+01, 0.1710E+01, 0.1730E+01,& - 0.1750E+01, 0.1770E+01, 0.1790E+01, 0.1811E+01,& - 0.1832E+01, 0.1853E+01, 0.1874E+01, 0.1896E+01,& - 0.1918E+01, 0.1940E+01, 0.1962E+01, 0.1985E+01,& - 0.2008E+01, 0.2032E+01, 0.2055E+01, 0.2079E+01,& - 0.2103E+01, 0.2128E+01, 0.2153E+01, 0.2178E+01,& - 0.2204E+01, 0.2229E+01, 0.2255E+01, 0.2282E+01,& - 0.2309E+01, 0.2336E+01, 0.2364E+01, 0.2391E+01,& - 0.2420E+01, 0.2448E+01, 0.2477E+01, 0.2507E+01,& - 0.2537E+01, 0.2567E+01, 0.2597E+01, 0.2628E+01,& - 0.2660E+01, 0.2692E+01, 0.2724E+01, 0.2757E+01,& - 0.2790E+01, 0.2824E+01, 0.2858E+01, 0.2893E+01,& - 0.2928E+01, 0.2964E+01, 0.3000E+01, 0.3037E+01,& - 0.3074E+01, 0.3112E+01, 0.3150E+01, 0.3189E+01,& - 0.3229E+01, 0.3269E+01, 0.3309E+01, 0.3351E+01,& - 0.3393E+01, 0.3435E+01, 0.3479E+01, 0.3523E+01,& - 0.3567E+01, 0.3613E+01, 0.3659E+01, 0.3706E+01,& - 0.3753E+01, 0.3802E+01, 0.3851E+01, 0.3901E+01,& - 0.3952E+01, 0.4003E+01, 0.4056E+01, 0.4109E+01,& - 0.4164E+01, 0.4219E+01, 0.4275E+01, 0.4333E+01,& - 0.4391E+01, 0.4451E+01, 0.4511E+01, 0.4573E+01,& - 0.4636E+01, 0.4699E+01, 0.4765E+01, 0.4831E+01,& - 0.4899E+01, 0.4968E+01, 0.5039E+01, 0.5110E+01,& - 0.5184E+01, 0.5259E+01, 0.5335E+01, 0.5413E+01,& - 0.5493E+01, 0.5575E+01, 0.5658E+01, 0.5743E+01,& - 0.5830E+01, 0.5919E+01, 0.6011E+01, 0.6104E+01,& - 0.6200E+01, 0.6298E+01, 0.6399E+01, 0.6502E+01,& - 0.6607E+01, 0.6716E+01, 0.6828E+01, 0.6942E+01,& - 0.7060E+01, 0.7181E+01, 0.7306E+01, 0.7435E+01,& - 0.7567E+01, 0.7704E+01, 0.7845E+01, 0.7991E+01,& - 0.8141E+01, 0.8298E+01, 0.8459E+01, 0.8626E+01,& - 0.8800E+01, 0.8981E+01, 0.9169E+01, 0.9365E+01,& - 0.9570E+01, 0.9784E+01, 0.1001E+02, 0.1024E+02,& - 0.1049E+02, 0.1075E+02, 0.1103E+02, 0.1132E+02,& - 0.1163E+02, 0.1196E+02, 0.1231E+02, 0.1270E+02,& - 0.1311E+02, 0.1356E+02, 0.1406E+02, 0.1461E+02,& - 0.1523E+02, 0.1593E+02, 0.1676E+02, 0.1775E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,112) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3635E-03, 0.3635E-03, 0.3635E-03,& - 0.3635E-03, 0.3635E-03, 0.3635E-03, 0.3635E-03,& - 0.3635E-03, 0.3635E-03, 0.3635E-03, 0.3635E-03,& - 0.3635E-03, 0.3635E-03, 0.3635E-03, 0.3635E-03,& - 0.3635E-03, 0.3635E-03, 0.3635E-03, 0.3635E-03,& - 0.3635E-03, 0.3635E-03, 0.3635E-03, 0.3635E-03,& - 0.3635E-03, 0.3635E-03, 0.3635E-03, 0.7169E-03,& - 0.7169E-03, 0.7169E-03, 0.7169E-03, 0.7169E-03,& - 0.7169E-03, 0.7169E-03, 0.7169E-03, 0.7169E-03,& - 0.7169E-03, 0.7169E-03, 0.7169E-03, 0.7169E-03,& - 0.7169E-03, 0.7169E-03, 0.7169E-03, 0.7169E-03,& - 0.1070E-02, 0.1070E-02, 0.1070E-02, 0.1070E-02,& - 0.1070E-02, 0.1070E-02, 0.1070E-02, 0.1070E-02,& - 0.1070E-02, 0.1070E-02, 0.1070E-02, 0.1070E-02,& - 0.1070E-02, 0.1424E-02, 0.1424E-02, 0.1424E-02,& - 0.1424E-02, 0.1424E-02, 0.1424E-02, 0.1424E-02,& - 0.1424E-02, 0.1424E-02, 0.1424E-02, 0.1777E-02,& - 0.1777E-02, 0.1777E-02, 0.1777E-02, 0.1777E-02,& - 0.1777E-02, 0.1777E-02, 0.1777E-02, 0.2131E-02,& - 0.2131E-02, 0.2131E-02, 0.2131E-02, 0.2131E-02,& - 0.2131E-02, 0.2131E-02, 0.2484E-02, 0.2484E-02,& - 0.2484E-02, 0.2484E-02, 0.2484E-02, 0.2484E-02,& - 0.2838E-02, 0.2838E-02, 0.2838E-02, 0.2838E-02,& - 0.2838E-02, 0.2838E-02, 0.3191E-02, 0.3191E-02,& - 0.3191E-02, 0.3191E-02, 0.3191E-02, 0.3545E-02,& - 0.3545E-02, 0.3545E-02, 0.3545E-02, 0.3545E-02,& - 0.3898E-02, 0.3898E-02, 0.3898E-02, 0.3898E-02,& - 0.4251E-02, 0.4251E-02, 0.4251E-02, 0.4251E-02,& - 0.4605E-02, 0.4605E-02, 0.4605E-02, 0.4605E-02,& - 0.4958E-02, 0.4958E-02, 0.4958E-02, 0.4958E-02,& - 0.5312E-02, 0.5312E-02, 0.5312E-02, 0.5665E-02,& - 0.5665E-02, 0.5665E-02, 0.6019E-02, 0.6019E-02,& - 0.6019E-02, 0.6372E-02, 0.6372E-02, 0.6372E-02,& - 0.6726E-02, 0.6726E-02, 0.6726E-02, 0.7079E-02,& - 0.7079E-02, 0.7433E-02, 0.7433E-02, 0.7433E-02,& - 0.7786E-02, 0.7786E-02, 0.8139E-02, 0.8139E-02,& - 0.8493E-02, 0.8493E-02, 0.8493E-02, 0.8846E-02,& - 0.8846E-02, 0.9200E-02, 0.9200E-02, 0.9553E-02,& - 0.9553E-02, 0.9907E-02, 0.9907E-02, 0.1026E-01,& - 0.1026E-01, 0.1061E-01, 0.1097E-01, 0.1097E-01,& - 0.1132E-01, 0.1132E-01, 0.1167E-01, 0.1167E-01,& - 0.1203E-01, 0.1238E-01, 0.1238E-01, 0.1273E-01,& - 0.1273E-01, 0.1309E-01, 0.1344E-01, 0.1344E-01,& - 0.1379E-01, 0.1415E-01, 0.1450E-01, 0.1450E-01,& - 0.1486E-01, 0.1521E-01, 0.1521E-01, 0.1556E-01,& - 0.1592E-01, 0.1627E-01, 0.1662E-01, 0.1662E-01,& - 0.1698E-01, 0.1733E-01, 0.1768E-01, 0.1804E-01,& - 0.1839E-01, 0.1839E-01, 0.1874E-01, 0.1910E-01,& - 0.1945E-01, 0.1980E-01, 0.2016E-01, 0.2051E-01,& - 0.2086E-01, 0.2122E-01, 0.2157E-01, 0.2192E-01,& - 0.2228E-01, 0.2263E-01, 0.2298E-01, 0.2334E-01,& - 0.2369E-01, 0.2440E-01, 0.2475E-01, 0.2511E-01,& - 0.2546E-01, 0.2581E-01, 0.2617E-01, 0.2687E-01,& - 0.2723E-01, 0.2758E-01, 0.2793E-01, 0.2864E-01,& - 0.2899E-01, 0.2935E-01, 0.3005E-01, 0.3041E-01,& - 0.3076E-01, 0.3147E-01, 0.3182E-01, 0.3253E-01,& - 0.3288E-01, 0.3323E-01, 0.3394E-01, 0.3430E-01,& - 0.3500E-01, 0.3571E-01, 0.3606E-01, 0.3677E-01,& - 0.3712E-01, 0.3783E-01, 0.3854E-01, 0.3889E-01,& - 0.3960E-01, 0.4030E-01, 0.4101E-01, 0.4136E-01,& - 0.4207E-01, 0.4278E-01, 0.4349E-01, 0.4419E-01,& - 0.4490E-01, 0.4561E-01, 0.4631E-01, 0.4702E-01,& - 0.4773E-01, 0.4843E-01, 0.4914E-01, 0.4985E-01,& - 0.5055E-01, 0.5126E-01, 0.5197E-01, 0.5303E-01,& - 0.5374E-01, 0.5444E-01, 0.5515E-01, 0.5621E-01,& - 0.5692E-01, 0.5798E-01, 0.5868E-01, 0.5939E-01,& - 0.6045E-01, 0.6116E-01, 0.6222E-01, 0.6328E-01,& - 0.6399E-01, 0.6505E-01, 0.6611E-01, 0.6681E-01,& - 0.6787E-01, 0.6893E-01, 0.6999E-01, 0.7105E-01,& - 0.7211E-01, 0.7318E-01, 0.7424E-01, 0.7530E-01,& - 0.7636E-01, 0.7742E-01, 0.7848E-01, 0.7954E-01,& - 0.8060E-01, 0.8201E-01, 0.8307E-01, 0.8413E-01,& - 0.8555E-01, 0.8661E-01, 0.8802E-01, 0.8908E-01,& - 0.9049E-01, 0.9155E-01, 0.9297E-01, 0.9438E-01,& - 0.9544E-01, 0.9686E-01, 0.9827E-01, 0.9968E-01,& - 0.1011E+00, 0.1025E+00, 0.1039E+00, 0.1053E+00,& - 0.1068E+00, 0.1082E+00, 0.1099E+00, 0.1113E+00,& - 0.1128E+00, 0.1145E+00, 0.1159E+00, 0.1177E+00,& - 0.1191E+00, 0.1209E+00, 0.1223E+00, 0.1241E+00,& - 0.1258E+00, 0.1276E+00, 0.1294E+00, 0.1311E+00,& - 0.1329E+00, 0.1347E+00, 0.1364E+00, 0.1382E+00,& - 0.1400E+00, 0.1421E+00, 0.1439E+00, 0.1460E+00,& - 0.1478E+00, 0.1499E+00, 0.1516E+00, 0.1538E+00,& - 0.1559E+00, 0.1580E+00, 0.1601E+00, 0.1622E+00,& - 0.1644E+00, 0.1665E+00, 0.1686E+00, 0.1711E+00,& - 0.1732E+00, 0.1753E+00, 0.1778E+00, 0.1803E+00,& - 0.1824E+00, 0.1849E+00, 0.1873E+00, 0.1898E+00,& - 0.1923E+00, 0.1948E+00, 0.1972E+00, 0.1997E+00,& - 0.2025E+00, 0.2050E+00, 0.2078E+00, 0.2103E+00,& - 0.2131E+00, 0.2160E+00, 0.2188E+00, 0.2216E+00,& - 0.2245E+00, 0.2273E+00, 0.2301E+00, 0.2329E+00,& - 0.2361E+00, 0.2389E+00, 0.2421E+00, 0.2453E+00,& - 0.2485E+00, 0.2517E+00, 0.2549E+00, 0.2580E+00,& - 0.2612E+00, 0.2644E+00, 0.2679E+00, 0.2711E+00,& - 0.2746E+00, 0.2782E+00, 0.2817E+00, 0.2852E+00,& - 0.2888E+00, 0.2923E+00, 0.2959E+00, 0.2997E+00,& - 0.3036E+00, 0.3072E+00, 0.3111E+00, 0.3149E+00,& - 0.3188E+00, 0.3227E+00, 0.3270E+00, 0.3308E+00,& - 0.3351E+00, 0.3390E+00, 0.3432E+00, 0.3475E+00,& - 0.3517E+00, 0.3563E+00, 0.3605E+00, 0.3651E+00,& - 0.3694E+00, 0.3740E+00, 0.3786E+00, 0.3832E+00,& - 0.3881E+00, 0.3927E+00, 0.3976E+00, 0.4022E+00,& - 0.4072E+00, 0.4121E+00, 0.4171E+00, 0.4224E+00,& - 0.4273E+00, 0.4326E+00, 0.4379E+00, 0.4432E+00,& - 0.4485E+00, 0.4538E+00, 0.4595E+00, 0.4648E+00,& - 0.4705E+00, 0.4761E+00, 0.4818E+00, 0.4878E+00,& - 0.4934E+00, 0.4994E+00, 0.5055E+00, 0.5115E+00,& - 0.5178E+00, 0.5238E+00, 0.5302E+00, 0.5366E+00,& - 0.5429E+00, 0.5493E+00, 0.5560E+00, 0.5624E+00,& - 0.5691E+00, 0.5758E+00, 0.5829E+00, 0.5896E+00,& - 0.5966E+00, 0.6037E+00, 0.6108E+00, 0.6182E+00,& - 0.6256E+00, 0.6327E+00, 0.6405E+00, 0.6479E+00,& - 0.6557E+00, 0.6631E+00, 0.6712E+00, 0.6790E+00,& - 0.6868E+00, 0.6949E+00, 0.7030E+00, 0.7115E+00,& - 0.7196E+00, 0.7281E+00, 0.7366E+00, 0.7454E+00,& - 0.7543E+00, 0.7628E+00, 0.7720E+00, 0.7808E+00,& - 0.7900E+00, 0.7992E+00, 0.8087E+00, 0.8179E+00,& - 0.8274E+00, 0.8373E+00, 0.8469E+00, 0.8568E+00,& - 0.8667E+00, 0.8769E+00, 0.8872E+00, 0.8974E+00,& - 0.9077E+00, 0.9183E+00, 0.9289E+00, 0.9398E+00,& - 0.9508E+00, 0.9618E+00, 0.9727E+00, 0.9840E+00,& - 0.9957E+00, 0.1007E+01, 0.1019E+01, 0.1031E+01,& - 0.1042E+01, 0.1055E+01, 0.1067E+01, 0.1079E+01,& - 0.1091E+01, 0.1104E+01, 0.1117E+01, 0.1130E+01,& - 0.1143E+01, 0.1156E+01, 0.1170E+01, 0.1183E+01,& - 0.1197E+01, 0.1211E+01, 0.1225E+01, 0.1239E+01,& - 0.1253E+01, 0.1268E+01, 0.1282E+01, 0.1297E+01,& - 0.1312E+01, 0.1327E+01, 0.1342E+01, 0.1358E+01,& - 0.1374E+01, 0.1390E+01, 0.1406E+01, 0.1422E+01,& - 0.1439E+01, 0.1455E+01, 0.1472E+01, 0.1489E+01,& - 0.1506E+01, 0.1524E+01, 0.1541E+01, 0.1559E+01,& - 0.1577E+01, 0.1596E+01, 0.1614E+01, 0.1633E+01,& - 0.1652E+01, 0.1672E+01, 0.1691E+01, 0.1710E+01,& - 0.1731E+01, 0.1751E+01, 0.1771E+01, 0.1792E+01,& - 0.1813E+01, 0.1834E+01, 0.1855E+01, 0.1877E+01,& - 0.1899E+01, 0.1921E+01, 0.1944E+01, 0.1967E+01,& - 0.1990E+01, 0.2013E+01, 0.2037E+01, 0.2061E+01,& - 0.2085E+01, 0.2110E+01, 0.2135E+01, 0.2160E+01,& - 0.2186E+01, 0.2212E+01, 0.2238E+01, 0.2265E+01,& - 0.2291E+01, 0.2319E+01, 0.2347E+01, 0.2375E+01,& - 0.2403E+01, 0.2432E+01, 0.2461E+01, 0.2490E+01,& - 0.2521E+01, 0.2551E+01, 0.2582E+01, 0.2613E+01,& - 0.2645E+01, 0.2677E+01, 0.2709E+01, 0.2742E+01,& - 0.2776E+01, 0.2810E+01, 0.2844E+01, 0.2879E+01,& - 0.2915E+01, 0.2951E+01, 0.2987E+01, 0.3024E+01,& - 0.3062E+01, 0.3100E+01, 0.3138E+01, 0.3178E+01,& - 0.3218E+01, 0.3258E+01, 0.3299E+01, 0.3341E+01,& - 0.3383E+01, 0.3426E+01, 0.3470E+01, 0.3514E+01,& - 0.3559E+01, 0.3605E+01, 0.3651E+01, 0.3699E+01,& - 0.3747E+01, 0.3795E+01, 0.3845E+01, 0.3895E+01,& - 0.3947E+01, 0.3999E+01, 0.4052E+01, 0.4106E+01,& - 0.4161E+01, 0.4217E+01, 0.4274E+01, 0.4332E+01,& - 0.4391E+01, 0.4451E+01, 0.4512E+01, 0.4574E+01,& - 0.4638E+01, 0.4702E+01, 0.4768E+01, 0.4836E+01,& - 0.4904E+01, 0.4974E+01, 0.5045E+01, 0.5118E+01,& - 0.5192E+01, 0.5268E+01, 0.5345E+01, 0.5424E+01,& - 0.5505E+01, 0.5588E+01, 0.5672E+01, 0.5759E+01,& - 0.5847E+01, 0.5937E+01, 0.6029E+01, 0.6124E+01,& - 0.6221E+01, 0.6321E+01, 0.6422E+01, 0.6527E+01,& - 0.6634E+01, 0.6744E+01, 0.6857E+01, 0.6973E+01,& - 0.7093E+01, 0.7216E+01, 0.7342E+01, 0.7473E+01,& - 0.7607E+01, 0.7746E+01, 0.7889E+01, 0.8037E+01,& - 0.8190E+01, 0.8348E+01, 0.8512E+01, 0.8682E+01,& - 0.8858E+01, 0.9042E+01, 0.9233E+01, 0.9432E+01,& - 0.9639E+01, 0.9857E+01, 0.1008E+02, 0.1032E+02,& - 0.1057E+02, 0.1084E+02, 0.1112E+02, 0.1141E+02,& - 0.1173E+02, 0.1207E+02, 0.1243E+02, 0.1282E+02,& - 0.1324E+02, 0.1370E+02, 0.1420E+02, 0.1476E+02,& - 0.1539E+02, 0.1611E+02, 0.1695E+02, 0.1796E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,113) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3690E-03,& - 0.3690E-03, 0.3690E-03, 0.3690E-03, 0.3690E-03,& - 0.3690E-03, 0.3690E-03, 0.3690E-03, 0.3690E-03,& - 0.3690E-03, 0.3690E-03, 0.3690E-03, 0.3690E-03,& - 0.3690E-03, 0.3690E-03, 0.3690E-03, 0.3690E-03,& - 0.3690E-03, 0.3690E-03, 0.3690E-03, 0.3690E-03,& - 0.3690E-03, 0.3690E-03, 0.3690E-03, 0.3690E-03,& - 0.3690E-03, 0.3690E-03, 0.7279E-03, 0.7279E-03,& - 0.7279E-03, 0.7279E-03, 0.7279E-03, 0.7279E-03,& - 0.7279E-03, 0.7279E-03, 0.7279E-03, 0.7279E-03,& - 0.7279E-03, 0.7279E-03, 0.7279E-03, 0.7279E-03,& - 0.7279E-03, 0.7279E-03, 0.1087E-02, 0.1087E-02,& - 0.1087E-02, 0.1087E-02, 0.1087E-02, 0.1087E-02,& - 0.1087E-02, 0.1087E-02, 0.1087E-02, 0.1087E-02,& - 0.1087E-02, 0.1087E-02, 0.1087E-02, 0.1446E-02,& - 0.1446E-02, 0.1446E-02, 0.1446E-02, 0.1446E-02,& - 0.1446E-02, 0.1446E-02, 0.1446E-02, 0.1446E-02,& - 0.1446E-02, 0.1805E-02, 0.1805E-02, 0.1805E-02,& - 0.1805E-02, 0.1805E-02, 0.1805E-02, 0.1805E-02,& - 0.1805E-02, 0.2164E-02, 0.2164E-02, 0.2164E-02,& - 0.2164E-02, 0.2164E-02, 0.2164E-02, 0.2164E-02,& - 0.2523E-02, 0.2523E-02, 0.2523E-02, 0.2523E-02,& - 0.2523E-02, 0.2523E-02, 0.2523E-02, 0.2882E-02,& - 0.2882E-02, 0.2882E-02, 0.2882E-02, 0.2882E-02,& - 0.3241E-02, 0.3241E-02, 0.3241E-02, 0.3241E-02,& - 0.3241E-02, 0.3600E-02, 0.3600E-02, 0.3600E-02,& - 0.3600E-02, 0.3600E-02, 0.3959E-02, 0.3959E-02,& - 0.3959E-02, 0.3959E-02, 0.4318E-02, 0.4318E-02,& - 0.4318E-02, 0.4318E-02, 0.4677E-02, 0.4677E-02,& - 0.4677E-02, 0.4677E-02, 0.5035E-02, 0.5035E-02,& - 0.5035E-02, 0.5035E-02, 0.5394E-02, 0.5394E-02,& - 0.5394E-02, 0.5753E-02, 0.5753E-02, 0.5753E-02,& - 0.6112E-02, 0.6112E-02, 0.6112E-02, 0.6471E-02,& - 0.6471E-02, 0.6471E-02, 0.6830E-02, 0.6830E-02,& - 0.6830E-02, 0.7189E-02, 0.7189E-02, 0.7548E-02,& - 0.7548E-02, 0.7548E-02, 0.7907E-02, 0.7907E-02,& - 0.8266E-02, 0.8266E-02, 0.8625E-02, 0.8625E-02,& - 0.8625E-02, 0.8984E-02, 0.8984E-02, 0.9343E-02,& - 0.9343E-02, 0.9702E-02, 0.9702E-02, 0.1006E-01,& - 0.1006E-01, 0.1042E-01, 0.1042E-01, 0.1078E-01,& - 0.1114E-01, 0.1114E-01, 0.1150E-01, 0.1150E-01,& - 0.1186E-01, 0.1186E-01, 0.1221E-01, 0.1257E-01,& - 0.1257E-01, 0.1293E-01, 0.1329E-01, 0.1329E-01,& - 0.1365E-01, 0.1401E-01, 0.1401E-01, 0.1437E-01,& - 0.1473E-01, 0.1473E-01, 0.1509E-01, 0.1545E-01,& - 0.1580E-01, 0.1580E-01, 0.1616E-01, 0.1652E-01,& - 0.1688E-01, 0.1724E-01, 0.1724E-01, 0.1760E-01,& - 0.1796E-01, 0.1832E-01, 0.1868E-01, 0.1904E-01,& - 0.1939E-01, 0.1975E-01, 0.1975E-01, 0.2011E-01,& - 0.2047E-01, 0.2083E-01, 0.2119E-01, 0.2155E-01,& - 0.2191E-01, 0.2227E-01, 0.2262E-01, 0.2298E-01,& - 0.2370E-01, 0.2406E-01, 0.2442E-01, 0.2478E-01,& - 0.2514E-01, 0.2550E-01, 0.2586E-01, 0.2657E-01,& - 0.2693E-01, 0.2729E-01, 0.2765E-01, 0.2801E-01,& - 0.2873E-01, 0.2909E-01, 0.2944E-01, 0.3016E-01,& - 0.3052E-01, 0.3088E-01, 0.3160E-01, 0.3196E-01,& - 0.3268E-01, 0.3303E-01, 0.3375E-01, 0.3411E-01,& - 0.3483E-01, 0.3519E-01, 0.3591E-01, 0.3627E-01,& - 0.3698E-01, 0.3770E-01, 0.3806E-01, 0.3878E-01,& - 0.3950E-01, 0.3985E-01, 0.4057E-01, 0.4129E-01,& - 0.4201E-01, 0.4237E-01, 0.4309E-01, 0.4380E-01,& - 0.4452E-01, 0.4524E-01, 0.4596E-01, 0.4668E-01,& - 0.4739E-01, 0.4811E-01, 0.4883E-01, 0.4955E-01,& - 0.5026E-01, 0.5098E-01, 0.5170E-01, 0.5278E-01,& - 0.5350E-01, 0.5421E-01, 0.5493E-01, 0.5601E-01,& - 0.5673E-01, 0.5744E-01, 0.5852E-01, 0.5924E-01,& - 0.6032E-01, 0.6103E-01, 0.6211E-01, 0.6283E-01,& - 0.6391E-01, 0.6498E-01, 0.6570E-01, 0.6678E-01,& - 0.6785E-01, 0.6893E-01, 0.6965E-01, 0.7073E-01,& - 0.7180E-01, 0.7288E-01, 0.7396E-01, 0.7503E-01,& - 0.7611E-01, 0.7719E-01, 0.7826E-01, 0.7934E-01,& - 0.8078E-01, 0.8185E-01, 0.8293E-01, 0.8437E-01,& - 0.8544E-01, 0.8652E-01, 0.8796E-01, 0.8903E-01,& - 0.9047E-01, 0.9155E-01, 0.9298E-01, 0.9442E-01,& - 0.9585E-01, 0.9693E-01, 0.9837E-01, 0.9980E-01,& - 0.1012E+00, 0.1027E+00, 0.1041E+00, 0.1055E+00,& - 0.1070E+00, 0.1084E+00, 0.1102E+00, 0.1116E+00,& - 0.1131E+00, 0.1149E+00, 0.1163E+00, 0.1181E+00,& - 0.1195E+00, 0.1213E+00, 0.1228E+00, 0.1246E+00,& - 0.1264E+00, 0.1282E+00, 0.1300E+00, 0.1317E+00,& - 0.1335E+00, 0.1353E+00, 0.1371E+00, 0.1389E+00,& - 0.1407E+00, 0.1429E+00, 0.1447E+00, 0.1468E+00,& - 0.1486E+00, 0.1508E+00, 0.1526E+00, 0.1547E+00,& - 0.1569E+00, 0.1590E+00, 0.1612E+00, 0.1633E+00,& - 0.1655E+00, 0.1676E+00, 0.1698E+00, 0.1723E+00,& - 0.1745E+00, 0.1770E+00, 0.1791E+00, 0.1816E+00,& - 0.1842E+00, 0.1863E+00, 0.1888E+00, 0.1913E+00,& - 0.1938E+00, 0.1964E+00, 0.1992E+00, 0.2017E+00,& - 0.2043E+00, 0.2071E+00, 0.2096E+00, 0.2125E+00,& - 0.2154E+00, 0.2179E+00, 0.2208E+00, 0.2236E+00,& - 0.2265E+00, 0.2297E+00, 0.2326E+00, 0.2355E+00,& - 0.2387E+00, 0.2416E+00, 0.2448E+00, 0.2481E+00,& - 0.2513E+00, 0.2545E+00, 0.2577E+00, 0.2610E+00,& - 0.2642E+00, 0.2678E+00, 0.2710E+00, 0.2746E+00,& - 0.2782E+00, 0.2818E+00, 0.2854E+00, 0.2890E+00,& - 0.2926E+00, 0.2962E+00, 0.3001E+00, 0.3037E+00,& - 0.3076E+00, 0.3116E+00, 0.3155E+00, 0.3195E+00,& - 0.3234E+00, 0.3274E+00, 0.3317E+00, 0.3356E+00,& - 0.3399E+00, 0.3443E+00, 0.3486E+00, 0.3529E+00,& - 0.3572E+00, 0.3618E+00, 0.3662E+00, 0.3708E+00,& - 0.3755E+00, 0.3802E+00, 0.3848E+00, 0.3895E+00,& - 0.3945E+00, 0.3992E+00, 0.4042E+00, 0.4092E+00,& - 0.4143E+00, 0.4193E+00, 0.4247E+00, 0.4297E+00,& - 0.4351E+00, 0.4405E+00, 0.4458E+00, 0.4512E+00,& - 0.4566E+00, 0.4624E+00, 0.4681E+00, 0.4738E+00,& - 0.4796E+00, 0.4853E+00, 0.4911E+00, 0.4972E+00,& - 0.5033E+00, 0.5094E+00, 0.5155E+00, 0.5216E+00,& - 0.5280E+00, 0.5345E+00, 0.5410E+00, 0.5474E+00,& - 0.5539E+00, 0.5607E+00, 0.5675E+00, 0.5744E+00,& - 0.5812E+00, 0.5884E+00, 0.5952E+00, 0.6023E+00,& - 0.6095E+00, 0.6171E+00, 0.6242E+00, 0.6318E+00,& - 0.6393E+00, 0.6472E+00, 0.6548E+00, 0.6627E+00,& - 0.6706E+00, 0.6784E+00, 0.6867E+00, 0.6950E+00,& - 0.7032E+00, 0.7115E+00, 0.7201E+00, 0.7283E+00,& - 0.7370E+00, 0.7459E+00, 0.7549E+00, 0.7635E+00,& - 0.7729E+00, 0.7818E+00, 0.7912E+00, 0.8005E+00,& - 0.8098E+00, 0.8195E+00, 0.8292E+00, 0.8389E+00,& - 0.8490E+00, 0.8590E+00, 0.8691E+00, 0.8795E+00,& - 0.8899E+00, 0.9003E+00, 0.9107E+00, 0.9215E+00,& - 0.9322E+00, 0.9434E+00, 0.9545E+00, 0.9656E+00,& - 0.9771E+00, 0.9886E+00, 0.1000E+01, 0.1012E+01,& - 0.1024E+01, 0.1036E+01, 0.1048E+01, 0.1060E+01,& - 0.1073E+01, 0.1085E+01, 0.1098E+01, 0.1111E+01,& - 0.1124E+01, 0.1137E+01, 0.1150E+01, 0.1164E+01,& - 0.1177E+01, 0.1191E+01, 0.1205E+01, 0.1219E+01,& - 0.1234E+01, 0.1248E+01, 0.1263E+01, 0.1278E+01,& - 0.1293E+01, 0.1308E+01, 0.1323E+01, 0.1339E+01,& - 0.1354E+01, 0.1370E+01, 0.1386E+01, 0.1402E+01,& - 0.1419E+01, 0.1436E+01, 0.1452E+01, 0.1470E+01,& - 0.1487E+01, 0.1504E+01, 0.1522E+01, 0.1540E+01,& - 0.1558E+01, 0.1576E+01, 0.1595E+01, 0.1614E+01,& - 0.1633E+01, 0.1652E+01, 0.1671E+01, 0.1691E+01,& - 0.1711E+01, 0.1731E+01, 0.1752E+01, 0.1773E+01,& - 0.1793E+01, 0.1815E+01, 0.1836E+01, 0.1858E+01,& - 0.1880E+01, 0.1903E+01, 0.1925E+01, 0.1948E+01,& - 0.1971E+01, 0.1994E+01, 0.2018E+01, 0.2043E+01,& - 0.2067E+01, 0.2092E+01, 0.2116E+01, 0.2142E+01,& - 0.2168E+01, 0.2194E+01, 0.2220E+01, 0.2247E+01,& - 0.2274E+01, 0.2301E+01, 0.2329E+01, 0.2357E+01,& - 0.2386E+01, 0.2415E+01, 0.2444E+01, 0.2474E+01,& - 0.2504E+01, 0.2535E+01, 0.2566E+01, 0.2597E+01,& - 0.2629E+01, 0.2661E+01, 0.2694E+01, 0.2727E+01,& - 0.2761E+01, 0.2795E+01, 0.2830E+01, 0.2865E+01,& - 0.2900E+01, 0.2937E+01, 0.2974E+01, 0.3011E+01,& - 0.3049E+01, 0.3087E+01, 0.3126E+01, 0.3165E+01,& - 0.3206E+01, 0.3246E+01, 0.3288E+01, 0.3330E+01,& - 0.3372E+01, 0.3416E+01, 0.3460E+01, 0.3505E+01,& - 0.3550E+01, 0.3596E+01, 0.3643E+01, 0.3691E+01,& - 0.3739E+01, 0.3789E+01, 0.3839E+01, 0.3890E+01,& - 0.3941E+01, 0.3994E+01, 0.4048E+01, 0.4102E+01,& - 0.4158E+01, 0.4214E+01, 0.4272E+01, 0.4330E+01,& - 0.4390E+01, 0.4450E+01, 0.4512E+01, 0.4575E+01,& - 0.4639E+01, 0.4705E+01, 0.4771E+01, 0.4839E+01,& - 0.4908E+01, 0.4979E+01, 0.5051E+01, 0.5125E+01,& - 0.5200E+01, 0.5277E+01, 0.5355E+01, 0.5435E+01,& - 0.5517E+01, 0.5600E+01, 0.5686E+01, 0.5773E+01,& - 0.5862E+01, 0.5954E+01, 0.6047E+01, 0.6143E+01,& - 0.6241E+01, 0.6342E+01, 0.6445E+01, 0.6551E+01,& - 0.6660E+01, 0.6771E+01, 0.6886E+01, 0.7003E+01,& - 0.7125E+01, 0.7249E+01, 0.7377E+01, 0.7510E+01,& - 0.7646E+01, 0.7787E+01, 0.7932E+01, 0.8082E+01,& - 0.8237E+01, 0.8397E+01, 0.8564E+01, 0.8736E+01,& - 0.8915E+01, 0.9102E+01, 0.9295E+01, 0.9497E+01,& - 0.9709E+01, 0.9929E+01, 0.1016E+02, 0.1040E+02,& - 0.1066E+02, 0.1093E+02, 0.1121E+02, 0.1151E+02,& - 0.1183E+02, 0.1217E+02, 0.1254E+02, 0.1294E+02,& - 0.1336E+02, 0.1383E+02, 0.1434E+02, 0.1491E+02,& - 0.1555E+02, 0.1629E+02, 0.1714E+02, 0.1817E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,114) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3745E-03, 0.3745E-03, 0.3745E-03,& - 0.3745E-03, 0.3745E-03, 0.3745E-03, 0.3745E-03,& - 0.3745E-03, 0.3745E-03, 0.3745E-03, 0.3745E-03,& - 0.3745E-03, 0.3745E-03, 0.3745E-03, 0.3745E-03,& - 0.3745E-03, 0.3745E-03, 0.3745E-03, 0.3745E-03,& - 0.3745E-03, 0.3745E-03, 0.3745E-03, 0.3745E-03,& - 0.3745E-03, 0.3745E-03, 0.3745E-03, 0.3745E-03,& - 0.7390E-03, 0.7390E-03, 0.7390E-03, 0.7390E-03,& - 0.7390E-03, 0.7390E-03, 0.7390E-03, 0.7390E-03,& - 0.7390E-03, 0.7390E-03, 0.7390E-03, 0.7390E-03,& - 0.7390E-03, 0.7390E-03, 0.7390E-03, 0.7390E-03,& - 0.7390E-03, 0.1104E-02, 0.1104E-02, 0.1104E-02,& - 0.1104E-02, 0.1104E-02, 0.1104E-02, 0.1104E-02,& - 0.1104E-02, 0.1104E-02, 0.1104E-02, 0.1104E-02,& - 0.1104E-02, 0.1468E-02, 0.1468E-02, 0.1468E-02,& - 0.1468E-02, 0.1468E-02, 0.1468E-02, 0.1468E-02,& - 0.1468E-02, 0.1468E-02, 0.1468E-02, 0.1833E-02,& - 0.1833E-02, 0.1833E-02, 0.1833E-02, 0.1833E-02,& - 0.1833E-02, 0.1833E-02, 0.1833E-02, 0.2197E-02,& - 0.2197E-02, 0.2197E-02, 0.2197E-02, 0.2197E-02,& - 0.2197E-02, 0.2197E-02, 0.2562E-02, 0.2562E-02,& - 0.2562E-02, 0.2562E-02, 0.2562E-02, 0.2562E-02,& - 0.2562E-02, 0.2926E-02, 0.2926E-02, 0.2926E-02,& - 0.2926E-02, 0.2926E-02, 0.3291E-02, 0.3291E-02,& - 0.3291E-02, 0.3291E-02, 0.3291E-02, 0.3655E-02,& - 0.3655E-02, 0.3655E-02, 0.3655E-02, 0.3655E-02,& - 0.4020E-02, 0.4020E-02, 0.4020E-02, 0.4020E-02,& - 0.4384E-02, 0.4384E-02, 0.4384E-02, 0.4384E-02,& - 0.4749E-02, 0.4749E-02, 0.4749E-02, 0.4749E-02,& - 0.5113E-02, 0.5113E-02, 0.5113E-02, 0.5113E-02,& - 0.5478E-02, 0.5478E-02, 0.5478E-02, 0.5842E-02,& - 0.5842E-02, 0.5842E-02, 0.6207E-02, 0.6207E-02,& - 0.6207E-02, 0.6571E-02, 0.6571E-02, 0.6571E-02,& - 0.6936E-02, 0.6936E-02, 0.6936E-02, 0.7300E-02,& - 0.7300E-02, 0.7665E-02, 0.7665E-02, 0.7665E-02,& - 0.8029E-02, 0.8029E-02, 0.8394E-02, 0.8394E-02,& - 0.8758E-02, 0.8758E-02, 0.9123E-02, 0.9123E-02,& - 0.9123E-02, 0.9487E-02, 0.9487E-02, 0.9852E-02,& - 0.9852E-02, 0.1022E-01, 0.1022E-01, 0.1058E-01,& - 0.1095E-01, 0.1095E-01, 0.1131E-01, 0.1131E-01,& - 0.1167E-01, 0.1167E-01, 0.1204E-01, 0.1240E-01,& - 0.1240E-01, 0.1277E-01, 0.1277E-01, 0.1313E-01,& - 0.1350E-01, 0.1350E-01, 0.1386E-01, 0.1423E-01,& - 0.1423E-01, 0.1459E-01, 0.1496E-01, 0.1532E-01,& - 0.1532E-01, 0.1568E-01, 0.1605E-01, 0.1641E-01,& - 0.1641E-01, 0.1678E-01, 0.1714E-01, 0.1751E-01,& - 0.1787E-01, 0.1787E-01, 0.1824E-01, 0.1860E-01,& - 0.1896E-01, 0.1933E-01, 0.1969E-01, 0.2006E-01,& - 0.2042E-01, 0.2079E-01, 0.2115E-01, 0.2152E-01,& - 0.2188E-01, 0.2225E-01, 0.2261E-01, 0.2297E-01,& - 0.2334E-01, 0.2370E-01, 0.2407E-01, 0.2443E-01,& - 0.2480E-01, 0.2516E-01, 0.2553E-01, 0.2626E-01,& - 0.2662E-01, 0.2698E-01, 0.2735E-01, 0.2808E-01,& - 0.2844E-01, 0.2881E-01, 0.2917E-01, 0.2990E-01,& - 0.3027E-01, 0.3063E-01, 0.3136E-01, 0.3172E-01,& - 0.3245E-01, 0.3282E-01, 0.3318E-01, 0.3391E-01,& - 0.3427E-01, 0.3500E-01, 0.3537E-01, 0.3610E-01,& - 0.3683E-01, 0.3719E-01, 0.3792E-01, 0.3865E-01,& - 0.3901E-01, 0.3974E-01, 0.4047E-01, 0.4084E-01,& - 0.4157E-01, 0.4229E-01, 0.4302E-01, 0.4375E-01,& - 0.4412E-01, 0.4485E-01, 0.4557E-01, 0.4630E-01,& - 0.4703E-01, 0.4776E-01, 0.4849E-01, 0.4922E-01,& - 0.4995E-01, 0.5104E-01, 0.5177E-01, 0.5250E-01,& - 0.5323E-01, 0.5396E-01, 0.5505E-01, 0.5578E-01,& - 0.5651E-01, 0.5760E-01, 0.5833E-01, 0.5906E-01,& - 0.6016E-01, 0.6088E-01, 0.6198E-01, 0.6271E-01,& - 0.6380E-01, 0.6489E-01, 0.6562E-01, 0.6672E-01,& - 0.6781E-01, 0.6854E-01, 0.6963E-01, 0.7073E-01,& - 0.7182E-01, 0.7291E-01, 0.7401E-01, 0.7510E-01,& - 0.7619E-01, 0.7729E-01, 0.7838E-01, 0.7947E-01,& - 0.8057E-01, 0.8203E-01, 0.8312E-01, 0.8421E-01,& - 0.8567E-01, 0.8677E-01, 0.8786E-01, 0.8932E-01,& - 0.9041E-01, 0.9187E-01, 0.9333E-01, 0.9442E-01,& - 0.9588E-01, 0.9734E-01, 0.9879E-01, 0.9989E-01,& - 0.1013E+00, 0.1028E+00, 0.1043E+00, 0.1057E+00,& - 0.1075E+00, 0.1090E+00, 0.1105E+00, 0.1119E+00,& - 0.1137E+00, 0.1152E+00, 0.1167E+00, 0.1185E+00,& - 0.1199E+00, 0.1218E+00, 0.1236E+00, 0.1250E+00,& - 0.1269E+00, 0.1287E+00, 0.1305E+00, 0.1323E+00,& - 0.1342E+00, 0.1360E+00, 0.1378E+00, 0.1400E+00,& - 0.1418E+00, 0.1436E+00, 0.1458E+00, 0.1476E+00,& - 0.1498E+00, 0.1516E+00, 0.1538E+00, 0.1560E+00,& - 0.1582E+00, 0.1600E+00, 0.1622E+00, 0.1644E+00,& - 0.1670E+00, 0.1691E+00, 0.1713E+00, 0.1735E+00,& - 0.1761E+00, 0.1783E+00, 0.1808E+00, 0.1834E+00,& - 0.1855E+00, 0.1881E+00, 0.1907E+00, 0.1932E+00,& - 0.1958E+00, 0.1983E+00, 0.2009E+00, 0.2038E+00,& - 0.2063E+00, 0.2092E+00, 0.2118E+00, 0.2147E+00,& - 0.2176E+00, 0.2205E+00, 0.2235E+00, 0.2264E+00,& - 0.2293E+00, 0.2322E+00, 0.2351E+00, 0.2384E+00,& - 0.2413E+00, 0.2446E+00, 0.2479E+00, 0.2512E+00,& - 0.2544E+00, 0.2577E+00, 0.2610E+00, 0.2643E+00,& - 0.2679E+00, 0.2712E+00, 0.2749E+00, 0.2781E+00,& - 0.2818E+00, 0.2854E+00, 0.2891E+00, 0.2931E+00,& - 0.2967E+00, 0.3004E+00, 0.3044E+00, 0.3084E+00,& - 0.3120E+00, 0.3160E+00, 0.3201E+00, 0.3244E+00,& - 0.3284E+00, 0.3325E+00, 0.3368E+00, 0.3412E+00,& - 0.3452E+00, 0.3496E+00, 0.3543E+00, 0.3587E+00,& - 0.3631E+00, 0.3678E+00, 0.3725E+00, 0.3769E+00,& - 0.3817E+00, 0.3868E+00, 0.3915E+00, 0.3962E+00,& - 0.4013E+00, 0.4064E+00, 0.4116E+00, 0.4167E+00,& - 0.4218E+00, 0.4269E+00, 0.4323E+00, 0.4378E+00,& - 0.4433E+00, 0.4487E+00, 0.4542E+00, 0.4597E+00,& - 0.4655E+00, 0.4713E+00, 0.4772E+00, 0.4830E+00,& - 0.4888E+00, 0.4950E+00, 0.5012E+00, 0.5071E+00,& - 0.5136E+00, 0.5198E+00, 0.5260E+00, 0.5326E+00,& - 0.5391E+00, 0.5457E+00, 0.5523E+00, 0.5592E+00,& - 0.5661E+00, 0.5730E+00, 0.5800E+00, 0.5869E+00,& - 0.5942E+00, 0.6015E+00, 0.6088E+00, 0.6160E+00,& - 0.6237E+00, 0.6310E+00, 0.6386E+00, 0.6467E+00,& - 0.6543E+00, 0.6623E+00, 0.6704E+00, 0.6784E+00,& - 0.6864E+00, 0.6948E+00, 0.7032E+00, 0.7115E+00,& - 0.7203E+00, 0.7290E+00, 0.7378E+00, 0.7465E+00,& - 0.7557E+00, 0.7648E+00, 0.7739E+00, 0.7830E+00,& - 0.7925E+00, 0.8019E+00, 0.8118E+00, 0.8213E+00,& - 0.8311E+00, 0.8413E+00, 0.8512E+00, 0.8614E+00,& - 0.8716E+00, 0.8821E+00, 0.8927E+00, 0.9033E+00,& - 0.9142E+00, 0.9252E+00, 0.9361E+00, 0.9474E+00,& - 0.9587E+00, 0.9700E+00, 0.9817E+00, 0.9933E+00,& - 0.1005E+01, 0.1017E+01, 0.1029E+01, 0.1041E+01,& - 0.1054E+01, 0.1066E+01, 0.1079E+01, 0.1092E+01,& - 0.1105E+01, 0.1118E+01, 0.1131E+01, 0.1145E+01,& - 0.1158E+01, 0.1172E+01, 0.1186E+01, 0.1200E+01,& - 0.1214E+01, 0.1229E+01, 0.1243E+01, 0.1258E+01,& - 0.1273E+01, 0.1288E+01, 0.1304E+01, 0.1319E+01,& - 0.1335E+01, 0.1351E+01, 0.1367E+01, 0.1383E+01,& - 0.1399E+01, 0.1416E+01, 0.1433E+01, 0.1450E+01,& - 0.1467E+01, 0.1485E+01, 0.1502E+01, 0.1520E+01,& - 0.1538E+01, 0.1557E+01, 0.1575E+01, 0.1594E+01,& - 0.1613E+01, 0.1632E+01, 0.1652E+01, 0.1672E+01,& - 0.1691E+01, 0.1712E+01, 0.1732E+01, 0.1753E+01,& - 0.1774E+01, 0.1795E+01, 0.1817E+01, 0.1839E+01,& - 0.1861E+01, 0.1883E+01, 0.1906E+01, 0.1929E+01,& - 0.1952E+01, 0.1976E+01, 0.1999E+01, 0.2024E+01,& - 0.2048E+01, 0.2073E+01, 0.2098E+01, 0.2124E+01,& - 0.2149E+01, 0.2175E+01, 0.2202E+01, 0.2229E+01,& - 0.2256E+01, 0.2284E+01, 0.2311E+01, 0.2340E+01,& - 0.2369E+01, 0.2397E+01, 0.2427E+01, 0.2457E+01,& - 0.2487E+01, 0.2518E+01, 0.2549E+01, 0.2581E+01,& - 0.2613E+01, 0.2645E+01, 0.2678E+01, 0.2712E+01,& - 0.2746E+01, 0.2780E+01, 0.2815E+01, 0.2850E+01,& - 0.2886E+01, 0.2923E+01, 0.2960E+01, 0.2997E+01,& - 0.3035E+01, 0.3074E+01, 0.3113E+01, 0.3153E+01,& - 0.3194E+01, 0.3234E+01, 0.3276E+01, 0.3319E+01,& - 0.3362E+01, 0.3405E+01, 0.3450E+01, 0.3495E+01,& - 0.3541E+01, 0.3587E+01, 0.3635E+01, 0.3682E+01,& - 0.3732E+01, 0.3781E+01, 0.3832E+01, 0.3883E+01,& - 0.3935E+01, 0.3989E+01, 0.4043E+01, 0.4098E+01,& - 0.4154E+01, 0.4211E+01, 0.4269E+01, 0.4328E+01,& - 0.4388E+01, 0.4449E+01, 0.4512E+01, 0.4575E+01,& - 0.4640E+01, 0.4706E+01, 0.4774E+01, 0.4842E+01,& - 0.4913E+01, 0.4984E+01, 0.5057E+01, 0.5131E+01,& - 0.5207E+01, 0.5285E+01, 0.5364E+01, 0.5445E+01,& - 0.5528E+01, 0.5612E+01, 0.5699E+01, 0.5787E+01,& - 0.5877E+01, 0.5970E+01, 0.6064E+01, 0.6161E+01,& - 0.6261E+01, 0.6363E+01, 0.6467E+01, 0.6574E+01,& - 0.6685E+01, 0.6798E+01, 0.6914E+01, 0.7033E+01,& - 0.7156E+01, 0.7282E+01, 0.7412E+01, 0.7546E+01,& - 0.7684E+01, 0.7827E+01, 0.7974E+01, 0.8126E+01,& - 0.8283E+01, 0.8446E+01, 0.8615E+01, 0.8790E+01,& - 0.8972E+01, 0.9161E+01, 0.9358E+01, 0.9563E+01,& - 0.9777E+01, 0.1000E+02, 0.1024E+02, 0.1048E+02,& - 0.1074E+02, 0.1101E+02, 0.1130E+02, 0.1161E+02,& - 0.1193E+02, 0.1228E+02, 0.1265E+02, 0.1305E+02,& - 0.1349E+02, 0.1396E+02, 0.1449E+02, 0.1507E+02,& - 0.1572E+02, 0.1646E+02, 0.1733E+02, 0.1837E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,115) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3801E-03,& - 0.3801E-03, 0.3801E-03, 0.3801E-03, 0.3801E-03,& - 0.3801E-03, 0.3801E-03, 0.3801E-03, 0.3801E-03,& - 0.3801E-03, 0.3801E-03, 0.3801E-03, 0.3801E-03,& - 0.3801E-03, 0.3801E-03, 0.3801E-03, 0.3801E-03,& - 0.3801E-03, 0.3801E-03, 0.3801E-03, 0.3801E-03,& - 0.3801E-03, 0.3801E-03, 0.3801E-03, 0.3801E-03,& - 0.3801E-03, 0.3801E-03, 0.7502E-03, 0.7502E-03,& - 0.7502E-03, 0.7502E-03, 0.7502E-03, 0.7502E-03,& - 0.7502E-03, 0.7502E-03, 0.7502E-03, 0.7502E-03,& - 0.7502E-03, 0.7502E-03, 0.7502E-03, 0.7502E-03,& - 0.7502E-03, 0.7502E-03, 0.7502E-03, 0.1120E-02,& - 0.1120E-02, 0.1120E-02, 0.1120E-02, 0.1120E-02,& - 0.1120E-02, 0.1120E-02, 0.1120E-02, 0.1120E-02,& - 0.1120E-02, 0.1120E-02, 0.1120E-02, 0.1490E-02,& - 0.1490E-02, 0.1490E-02, 0.1490E-02, 0.1490E-02,& - 0.1490E-02, 0.1490E-02, 0.1490E-02, 0.1490E-02,& - 0.1490E-02, 0.1861E-02, 0.1861E-02, 0.1861E-02,& - 0.1861E-02, 0.1861E-02, 0.1861E-02, 0.1861E-02,& - 0.1861E-02, 0.2231E-02, 0.2231E-02, 0.2231E-02,& - 0.2231E-02, 0.2231E-02, 0.2231E-02, 0.2231E-02,& - 0.2601E-02, 0.2601E-02, 0.2601E-02, 0.2601E-02,& - 0.2601E-02, 0.2601E-02, 0.2601E-02, 0.2971E-02,& - 0.2971E-02, 0.2971E-02, 0.2971E-02, 0.2971E-02,& - 0.3341E-02, 0.3341E-02, 0.3341E-02, 0.3341E-02,& - 0.3341E-02, 0.3711E-02, 0.3711E-02, 0.3711E-02,& - 0.3711E-02, 0.3711E-02, 0.4081E-02, 0.4081E-02,& - 0.4081E-02, 0.4081E-02, 0.4451E-02, 0.4451E-02,& - 0.4451E-02, 0.4451E-02, 0.4822E-02, 0.4822E-02,& - 0.4822E-02, 0.4822E-02, 0.5192E-02, 0.5192E-02,& - 0.5192E-02, 0.5192E-02, 0.5562E-02, 0.5562E-02,& - 0.5562E-02, 0.5932E-02, 0.5932E-02, 0.5932E-02,& - 0.6302E-02, 0.6302E-02, 0.6302E-02, 0.6672E-02,& - 0.6672E-02, 0.6672E-02, 0.7042E-02, 0.7042E-02,& - 0.7412E-02, 0.7412E-02, 0.7412E-02, 0.7783E-02,& - 0.7783E-02, 0.8153E-02, 0.8153E-02, 0.8153E-02,& - 0.8523E-02, 0.8523E-02, 0.8893E-02, 0.8893E-02,& - 0.9263E-02, 0.9263E-02, 0.9633E-02, 0.9633E-02,& - 0.1000E-01, 0.1000E-01, 0.1037E-01, 0.1037E-01,& - 0.1074E-01, 0.1074E-01, 0.1111E-01, 0.1111E-01,& - 0.1148E-01, 0.1148E-01, 0.1185E-01, 0.1185E-01,& - 0.1222E-01, 0.1259E-01, 0.1259E-01, 0.1296E-01,& - 0.1333E-01, 0.1333E-01, 0.1370E-01, 0.1407E-01,& - 0.1407E-01, 0.1444E-01, 0.1481E-01, 0.1481E-01,& - 0.1518E-01, 0.1556E-01, 0.1593E-01, 0.1593E-01,& - 0.1630E-01, 0.1667E-01, 0.1704E-01, 0.1704E-01,& - 0.1741E-01, 0.1778E-01, 0.1815E-01, 0.1852E-01,& - 0.1889E-01, 0.1926E-01, 0.1926E-01, 0.1963E-01,& - 0.2000E-01, 0.2037E-01, 0.2074E-01, 0.2111E-01,& - 0.2148E-01, 0.2185E-01, 0.2222E-01, 0.2259E-01,& - 0.2296E-01, 0.2333E-01, 0.2370E-01, 0.2407E-01,& - 0.2444E-01, 0.2518E-01, 0.2555E-01, 0.2592E-01,& - 0.2629E-01, 0.2666E-01, 0.2703E-01, 0.2777E-01,& - 0.2814E-01, 0.2851E-01, 0.2888E-01, 0.2962E-01,& - 0.2999E-01, 0.3036E-01, 0.3110E-01, 0.3147E-01,& - 0.3221E-01, 0.3258E-01, 0.3295E-01, 0.3369E-01,& - 0.3406E-01, 0.3480E-01, 0.3517E-01, 0.3591E-01,& - 0.3628E-01, 0.3702E-01, 0.3776E-01, 0.3813E-01,& - 0.3887E-01, 0.3961E-01, 0.3998E-01, 0.4072E-01,& - 0.4146E-01, 0.4220E-01, 0.4257E-01, 0.4331E-01,& - 0.4405E-01, 0.4479E-01, 0.4553E-01, 0.4628E-01,& - 0.4702E-01, 0.4776E-01, 0.4850E-01, 0.4924E-01,& - 0.4998E-01, 0.5072E-01, 0.5146E-01, 0.5220E-01,& - 0.5294E-01, 0.5405E-01, 0.5479E-01, 0.5553E-01,& - 0.5627E-01, 0.5738E-01, 0.5812E-01, 0.5923E-01,& - 0.5997E-01, 0.6071E-01, 0.6182E-01, 0.6293E-01,& - 0.6367E-01, 0.6478E-01, 0.6552E-01, 0.6663E-01,& - 0.6774E-01, 0.6848E-01, 0.6959E-01, 0.7070E-01,& - 0.7181E-01, 0.7292E-01, 0.7403E-01, 0.7514E-01,& - 0.7625E-01, 0.7737E-01, 0.7848E-01, 0.7959E-01,& - 0.8070E-01, 0.8181E-01, 0.8329E-01, 0.8440E-01,& - 0.8551E-01, 0.8699E-01, 0.8810E-01, 0.8958E-01,& - 0.9069E-01, 0.9217E-01, 0.9328E-01, 0.9476E-01,& - 0.9624E-01, 0.9772E-01, 0.9883E-01, 0.1003E+00,& - 0.1018E+00, 0.1033E+00, 0.1048E+00, 0.1062E+00,& - 0.1077E+00, 0.1092E+00, 0.1110E+00, 0.1125E+00,& - 0.1140E+00, 0.1159E+00, 0.1173E+00, 0.1192E+00,& - 0.1207E+00, 0.1225E+00, 0.1240E+00, 0.1259E+00,& - 0.1277E+00, 0.1296E+00, 0.1314E+00, 0.1333E+00,& - 0.1351E+00, 0.1370E+00, 0.1388E+00, 0.1407E+00,& - 0.1429E+00, 0.1447E+00, 0.1466E+00, 0.1488E+00,& - 0.1506E+00, 0.1529E+00, 0.1551E+00, 0.1573E+00,& - 0.1592E+00, 0.1614E+00, 0.1636E+00, 0.1658E+00,& - 0.1684E+00, 0.1706E+00, 0.1729E+00, 0.1751E+00,& - 0.1777E+00, 0.1799E+00, 0.1825E+00, 0.1851E+00,& - 0.1873E+00, 0.1899E+00, 0.1925E+00, 0.1951E+00,& - 0.1977E+00, 0.2006E+00, 0.2032E+00, 0.2058E+00,& - 0.2088E+00, 0.2113E+00, 0.2143E+00, 0.2173E+00,& - 0.2202E+00, 0.2228E+00, 0.2258E+00, 0.2291E+00,& - 0.2321E+00, 0.2350E+00, 0.2384E+00, 0.2413E+00,& - 0.2447E+00, 0.2476E+00, 0.2510E+00, 0.2543E+00,& - 0.2576E+00, 0.2609E+00, 0.2646E+00, 0.2680E+00,& - 0.2717E+00, 0.2750E+00, 0.2787E+00, 0.2824E+00,& - 0.2861E+00, 0.2898E+00, 0.2935E+00, 0.2972E+00,& - 0.3013E+00, 0.3050E+00, 0.3091E+00, 0.3131E+00,& - 0.3172E+00, 0.3213E+00, 0.3253E+00, 0.3294E+00,& - 0.3339E+00, 0.3379E+00, 0.3424E+00, 0.3468E+00,& - 0.3513E+00, 0.3557E+00, 0.3601E+00, 0.3649E+00,& - 0.3694E+00, 0.3742E+00, 0.3790E+00, 0.3838E+00,& - 0.3886E+00, 0.3934E+00, 0.3986E+00, 0.4034E+00,& - 0.4086E+00, 0.4138E+00, 0.4190E+00, 0.4245E+00,& - 0.4297E+00, 0.4353E+00, 0.4408E+00, 0.4460E+00,& - 0.4519E+00, 0.4575E+00, 0.4630E+00, 0.4690E+00,& - 0.4749E+00, 0.4808E+00, 0.4867E+00, 0.4930E+00,& - 0.4989E+00, 0.5052E+00, 0.5115E+00, 0.5178E+00,& - 0.5245E+00, 0.5308E+00, 0.5374E+00, 0.5441E+00,& - 0.5508E+00, 0.5578E+00, 0.5648E+00, 0.5715E+00,& - 0.5789E+00, 0.5859E+00, 0.5929E+00, 0.6003E+00,& - 0.6077E+00, 0.6152E+00, 0.6229E+00, 0.6307E+00,& - 0.6381E+00, 0.6462E+00, 0.6540E+00, 0.6622E+00,& - 0.6703E+00, 0.6784E+00, 0.6866E+00, 0.6951E+00,& - 0.7036E+00, 0.7121E+00, 0.7210E+00, 0.7295E+00,& - 0.7388E+00, 0.7477E+00, 0.7565E+00, 0.7658E+00,& - 0.7754E+00, 0.7847E+00, 0.7943E+00, 0.8039E+00,& - 0.8135E+00, 0.8235E+00, 0.8335E+00, 0.8435E+00,& - 0.8539E+00, 0.8642E+00, 0.8746E+00, 0.8853E+00,& - 0.8961E+00, 0.9068E+00, 0.9179E+00, 0.9290E+00,& - 0.9401E+00, 0.9516E+00, 0.9631E+00, 0.9745E+00,& - 0.9864E+00, 0.9982E+00, 0.1010E+01, 0.1023E+01,& - 0.1035E+01, 0.1047E+01, 0.1060E+01, 0.1073E+01,& - 0.1086E+01, 0.1099E+01, 0.1112E+01, 0.1126E+01,& - 0.1139E+01, 0.1153E+01, 0.1167E+01, 0.1181E+01,& - 0.1195E+01, 0.1209E+01, 0.1224E+01, 0.1238E+01,& - 0.1254E+01, 0.1269E+01, 0.1284E+01, 0.1300E+01,& - 0.1315E+01, 0.1331E+01, 0.1347E+01, 0.1363E+01,& - 0.1379E+01, 0.1396E+01, 0.1413E+01, 0.1430E+01,& - 0.1447E+01, 0.1465E+01, 0.1482E+01, 0.1500E+01,& - 0.1519E+01, 0.1537E+01, 0.1555E+01, 0.1574E+01,& - 0.1593E+01, 0.1613E+01, 0.1632E+01, 0.1652E+01,& - 0.1672E+01, 0.1692E+01, 0.1713E+01, 0.1733E+01,& - 0.1754E+01, 0.1776E+01, 0.1797E+01, 0.1819E+01,& - 0.1841E+01, 0.1864E+01, 0.1887E+01, 0.1909E+01,& - 0.1933E+01, 0.1956E+01, 0.1981E+01, 0.2005E+01,& - 0.2029E+01, 0.2054E+01, 0.2079E+01, 0.2105E+01,& - 0.2131E+01, 0.2157E+01, 0.2183E+01, 0.2210E+01,& - 0.2238E+01, 0.2266E+01, 0.2294E+01, 0.2322E+01,& - 0.2351E+01, 0.2380E+01, 0.2409E+01, 0.2440E+01,& - 0.2470E+01, 0.2501E+01, 0.2532E+01, 0.2564E+01,& - 0.2596E+01, 0.2629E+01, 0.2662E+01, 0.2696E+01,& - 0.2730E+01, 0.2764E+01, 0.2800E+01, 0.2835E+01,& - 0.2871E+01, 0.2908E+01, 0.2945E+01, 0.2983E+01,& - 0.3021E+01, 0.3060E+01, 0.3100E+01, 0.3140E+01,& - 0.3181E+01, 0.3222E+01, 0.3264E+01, 0.3307E+01,& - 0.3350E+01, 0.3394E+01, 0.3439E+01, 0.3484E+01,& - 0.3531E+01, 0.3578E+01, 0.3625E+01, 0.3674E+01,& - 0.3723E+01, 0.3773E+01, 0.3824E+01, 0.3876E+01,& - 0.3929E+01, 0.3983E+01, 0.4037E+01, 0.4093E+01,& - 0.4149E+01, 0.4207E+01, 0.4265E+01, 0.4325E+01,& - 0.4386E+01, 0.4448E+01, 0.4511E+01, 0.4575E+01,& - 0.4641E+01, 0.4707E+01, 0.4775E+01, 0.4845E+01,& - 0.4916E+01, 0.4988E+01, 0.5061E+01, 0.5137E+01,& - 0.5214E+01, 0.5292E+01, 0.5372E+01, 0.5454E+01,& - 0.5537E+01, 0.5623E+01, 0.5711E+01, 0.5800E+01,& - 0.5892E+01, 0.5985E+01, 0.6081E+01, 0.6179E+01,& - 0.6280E+01, 0.6383E+01, 0.6489E+01, 0.6597E+01,& - 0.6709E+01, 0.6824E+01, 0.6941E+01, 0.7062E+01,& - 0.7186E+01, 0.7314E+01, 0.7446E+01, 0.7582E+01,& - 0.7722E+01, 0.7867E+01, 0.8016E+01, 0.8170E+01,& - 0.8330E+01, 0.8495E+01, 0.8666E+01, 0.8843E+01,& - 0.9028E+01, 0.9219E+01, 0.9419E+01, 0.9627E+01,& - 0.9844E+01, 0.1007E+02, 0.1031E+02, 0.1056E+02,& - 0.1082E+02, 0.1110E+02, 0.1139E+02, 0.1170E+02,& - 0.1203E+02, 0.1239E+02, 0.1277E+02, 0.1317E+02,& - 0.1362E+02, 0.1410E+02, 0.1463E+02, 0.1522E+02,& - 0.1588E+02, 0.1664E+02, 0.1752E+02, 0.1858E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,116) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3858E-03, 0.3858E-03, 0.3858E-03,& - 0.3858E-03, 0.3858E-03, 0.3858E-03, 0.3858E-03,& - 0.3858E-03, 0.3858E-03, 0.3858E-03, 0.3858E-03,& - 0.3858E-03, 0.3858E-03, 0.3858E-03, 0.3858E-03,& - 0.3858E-03, 0.3858E-03, 0.3858E-03, 0.3858E-03,& - 0.3858E-03, 0.3858E-03, 0.3858E-03, 0.3858E-03,& - 0.3858E-03, 0.3858E-03, 0.3858E-03, 0.3858E-03,& - 0.7615E-03, 0.7615E-03, 0.7615E-03, 0.7615E-03,& - 0.7615E-03, 0.7615E-03, 0.7615E-03, 0.7615E-03,& - 0.7615E-03, 0.7615E-03, 0.7615E-03, 0.7615E-03,& - 0.7615E-03, 0.7615E-03, 0.7615E-03, 0.7615E-03,& - 0.7615E-03, 0.1137E-02, 0.1137E-02, 0.1137E-02,& - 0.1137E-02, 0.1137E-02, 0.1137E-02, 0.1137E-02,& - 0.1137E-02, 0.1137E-02, 0.1137E-02, 0.1137E-02,& - 0.1137E-02, 0.1513E-02, 0.1513E-02, 0.1513E-02,& - 0.1513E-02, 0.1513E-02, 0.1513E-02, 0.1513E-02,& - 0.1513E-02, 0.1513E-02, 0.1513E-02, 0.1889E-02,& - 0.1889E-02, 0.1889E-02, 0.1889E-02, 0.1889E-02,& - 0.1889E-02, 0.1889E-02, 0.1889E-02, 0.2265E-02,& - 0.2265E-02, 0.2265E-02, 0.2265E-02, 0.2265E-02,& - 0.2265E-02, 0.2265E-02, 0.2640E-02, 0.2640E-02,& - 0.2640E-02, 0.2640E-02, 0.2640E-02, 0.2640E-02,& - 0.2640E-02, 0.3016E-02, 0.3016E-02, 0.3016E-02,& - 0.3016E-02, 0.3016E-02, 0.3392E-02, 0.3392E-02,& - 0.3392E-02, 0.3392E-02, 0.3392E-02, 0.3768E-02,& - 0.3768E-02, 0.3768E-02, 0.3768E-02, 0.3768E-02,& - 0.4143E-02, 0.4143E-02, 0.4143E-02, 0.4143E-02,& - 0.4519E-02, 0.4519E-02, 0.4519E-02, 0.4519E-02,& - 0.4895E-02, 0.4895E-02, 0.4895E-02, 0.4895E-02,& - 0.5271E-02, 0.5271E-02, 0.5271E-02, 0.5647E-02,& - 0.5647E-02, 0.5647E-02, 0.5647E-02, 0.6022E-02,& - 0.6022E-02, 0.6022E-02, 0.6398E-02, 0.6398E-02,& - 0.6398E-02, 0.6774E-02, 0.6774E-02, 0.6774E-02,& - 0.7150E-02, 0.7150E-02, 0.7525E-02, 0.7525E-02,& - 0.7525E-02, 0.7901E-02, 0.7901E-02, 0.8277E-02,& - 0.8277E-02, 0.8277E-02, 0.8653E-02, 0.8653E-02,& - 0.9029E-02, 0.9029E-02, 0.9404E-02, 0.9404E-02,& - 0.9780E-02, 0.9780E-02, 0.1016E-01, 0.1016E-01,& - 0.1053E-01, 0.1053E-01, 0.1091E-01, 0.1091E-01,& - 0.1128E-01, 0.1128E-01, 0.1166E-01, 0.1166E-01,& - 0.1203E-01, 0.1241E-01, 0.1241E-01, 0.1279E-01,& - 0.1316E-01, 0.1316E-01, 0.1354E-01, 0.1354E-01,& - 0.1391E-01, 0.1429E-01, 0.1429E-01, 0.1467E-01,& - 0.1504E-01, 0.1542E-01, 0.1542E-01, 0.1579E-01,& - 0.1617E-01, 0.1654E-01, 0.1654E-01, 0.1692E-01,& - 0.1730E-01, 0.1767E-01, 0.1805E-01, 0.1805E-01,& - 0.1842E-01, 0.1880E-01, 0.1917E-01, 0.1955E-01,& - 0.1993E-01, 0.2030E-01, 0.2068E-01, 0.2105E-01,& - 0.2143E-01, 0.2180E-01, 0.2218E-01, 0.2256E-01,& - 0.2293E-01, 0.2331E-01, 0.2368E-01, 0.2406E-01,& - 0.2444E-01, 0.2481E-01, 0.2519E-01, 0.2556E-01,& - 0.2594E-01, 0.2669E-01, 0.2707E-01, 0.2744E-01,& - 0.2782E-01, 0.2819E-01, 0.2894E-01, 0.2932E-01,& - 0.2970E-01, 0.3045E-01, 0.3082E-01, 0.3120E-01,& - 0.3195E-01, 0.3233E-01, 0.3270E-01, 0.3345E-01,& - 0.3383E-01, 0.3458E-01, 0.3496E-01, 0.3571E-01,& - 0.3608E-01, 0.3684E-01, 0.3759E-01, 0.3796E-01,& - 0.3871E-01, 0.3909E-01, 0.3984E-01, 0.4059E-01,& - 0.4134E-01, 0.4172E-01, 0.4247E-01, 0.4322E-01,& - 0.4398E-01, 0.4473E-01, 0.4548E-01, 0.4585E-01,& - 0.4661E-01, 0.4736E-01, 0.4811E-01, 0.4886E-01,& - 0.4961E-01, 0.5074E-01, 0.5149E-01, 0.5224E-01,& - 0.5299E-01, 0.5375E-01, 0.5450E-01, 0.5562E-01,& - 0.5638E-01, 0.5713E-01, 0.5825E-01, 0.5901E-01,& - 0.5976E-01, 0.6088E-01, 0.6164E-01, 0.6276E-01,& - 0.6352E-01, 0.6464E-01, 0.6577E-01, 0.6652E-01,& - 0.6765E-01, 0.6878E-01, 0.6990E-01, 0.7066E-01,& - 0.7178E-01, 0.7291E-01, 0.7404E-01, 0.7516E-01,& - 0.7629E-01, 0.7742E-01, 0.7855E-01, 0.7967E-01,& - 0.8080E-01, 0.8230E-01, 0.8343E-01, 0.8456E-01,& - 0.8569E-01, 0.8719E-01, 0.8832E-01, 0.8982E-01,& - 0.9095E-01, 0.9245E-01, 0.9358E-01, 0.9508E-01,& - 0.9658E-01, 0.9809E-01, 0.9921E-01, 0.1007E+00,& - 0.1022E+00, 0.1037E+00, 0.1052E+00, 0.1067E+00,& - 0.1082E+00, 0.1101E+00, 0.1116E+00, 0.1131E+00,& - 0.1146E+00, 0.1165E+00, 0.1180E+00, 0.1199E+00,& - 0.1214E+00, 0.1233E+00, 0.1251E+00, 0.1266E+00,& - 0.1285E+00, 0.1304E+00, 0.1323E+00, 0.1342E+00,& - 0.1360E+00, 0.1379E+00, 0.1398E+00, 0.1417E+00,& - 0.1439E+00, 0.1458E+00, 0.1481E+00, 0.1499E+00,& - 0.1522E+00, 0.1541E+00, 0.1563E+00, 0.1586E+00,& - 0.1608E+00, 0.1631E+00, 0.1653E+00, 0.1676E+00,& - 0.1699E+00, 0.1721E+00, 0.1747E+00, 0.1770E+00,& - 0.1793E+00, 0.1819E+00, 0.1845E+00, 0.1868E+00,& - 0.1894E+00, 0.1920E+00, 0.1947E+00, 0.1973E+00,& - 0.1999E+00, 0.2029E+00, 0.2056E+00, 0.2082E+00,& - 0.2112E+00, 0.2138E+00, 0.2168E+00, 0.2198E+00,& - 0.2228E+00, 0.2258E+00, 0.2289E+00, 0.2319E+00,& - 0.2349E+00, 0.2382E+00, 0.2413E+00, 0.2446E+00,& - 0.2480E+00, 0.2510E+00, 0.2544E+00, 0.2578E+00,& - 0.2612E+00, 0.2649E+00, 0.2683E+00, 0.2721E+00,& - 0.2755E+00, 0.2792E+00, 0.2830E+00, 0.2867E+00,& - 0.2905E+00, 0.2942E+00, 0.2980E+00, 0.3021E+00,& - 0.3059E+00, 0.3100E+00, 0.3142E+00, 0.3179E+00,& - 0.3224E+00, 0.3266E+00, 0.3307E+00, 0.3348E+00,& - 0.3393E+00, 0.3438E+00, 0.3484E+00, 0.3529E+00,& - 0.3574E+00, 0.3619E+00, 0.3668E+00, 0.3713E+00,& - 0.3762E+00, 0.3810E+00, 0.3859E+00, 0.3908E+00,& - 0.3961E+00, 0.4010E+00, 0.4062E+00, 0.4115E+00,& - 0.4167E+00, 0.4220E+00, 0.4273E+00, 0.4329E+00,& - 0.4382E+00, 0.4438E+00, 0.4494E+00, 0.4551E+00,& - 0.4611E+00, 0.4667E+00, 0.4727E+00, 0.4787E+00,& - 0.4848E+00, 0.4911E+00, 0.4972E+00, 0.5035E+00,& - 0.5099E+00, 0.5163E+00, 0.5227E+00, 0.5295E+00,& - 0.5362E+00, 0.5426E+00, 0.5498E+00, 0.5565E+00,& - 0.5637E+00, 0.5704E+00, 0.5776E+00, 0.5851E+00,& - 0.5922E+00, 0.5997E+00, 0.6073E+00, 0.6148E+00,& - 0.6223E+00, 0.6302E+00, 0.6381E+00, 0.6460E+00,& - 0.6539E+00, 0.6621E+00, 0.6704E+00, 0.6787E+00,& - 0.6869E+00, 0.6956E+00, 0.7042E+00, 0.7128E+00,& - 0.7219E+00, 0.7305E+00, 0.7395E+00, 0.7489E+00,& - 0.7579E+00, 0.7673E+00, 0.7767E+00, 0.7865E+00,& - 0.7963E+00, 0.8060E+00, 0.8158E+00, 0.8260E+00,& - 0.8361E+00, 0.8462E+00, 0.8568E+00, 0.8673E+00,& - 0.8778E+00, 0.8887E+00, 0.8996E+00, 0.9105E+00,& - 0.9218E+00, 0.9331E+00, 0.9447E+00, 0.9560E+00,& - 0.9680E+00, 0.9796E+00, 0.9917E+00, 0.1004E+01,& - 0.1016E+01, 0.1028E+01, 0.1041E+01, 0.1054E+01,& - 0.1067E+01, 0.1080E+01, 0.1093E+01, 0.1106E+01,& - 0.1120E+01, 0.1133E+01, 0.1147E+01, 0.1161E+01,& - 0.1175E+01, 0.1190E+01, 0.1204E+01, 0.1219E+01,& - 0.1234E+01, 0.1249E+01, 0.1264E+01, 0.1280E+01,& - 0.1295E+01, 0.1311E+01, 0.1327E+01, 0.1343E+01,& - 0.1360E+01, 0.1376E+01, 0.1393E+01, 0.1410E+01,& - 0.1428E+01, 0.1445E+01, 0.1463E+01, 0.1481E+01,& - 0.1499E+01, 0.1517E+01, 0.1535E+01, 0.1554E+01,& - 0.1573E+01, 0.1593E+01, 0.1612E+01, 0.1632E+01,& - 0.1652E+01, 0.1672E+01, 0.1693E+01, 0.1714E+01,& - 0.1735E+01, 0.1756E+01, 0.1778E+01, 0.1800E+01,& - 0.1822E+01, 0.1844E+01, 0.1867E+01, 0.1890E+01,& - 0.1913E+01, 0.1937E+01, 0.1961E+01, 0.1985E+01,& - 0.2010E+01, 0.2035E+01, 0.2060E+01, 0.2086E+01,& - 0.2112E+01, 0.2138E+01, 0.2165E+01, 0.2192E+01,& - 0.2219E+01, 0.2247E+01, 0.2275E+01, 0.2304E+01,& - 0.2333E+01, 0.2362E+01, 0.2392E+01, 0.2422E+01,& - 0.2453E+01, 0.2484E+01, 0.2515E+01, 0.2547E+01,& - 0.2580E+01, 0.2612E+01, 0.2646E+01, 0.2680E+01,& - 0.2714E+01, 0.2748E+01, 0.2784E+01, 0.2820E+01,& - 0.2856E+01, 0.2893E+01, 0.2930E+01, 0.2969E+01,& - 0.3007E+01, 0.3046E+01, 0.3086E+01, 0.3126E+01,& - 0.3167E+01, 0.3209E+01, 0.3252E+01, 0.3294E+01,& - 0.3338E+01, 0.3383E+01, 0.3427E+01, 0.3473E+01,& - 0.3520E+01, 0.3567E+01, 0.3615E+01, 0.3665E+01,& - 0.3714E+01, 0.3764E+01, 0.3816E+01, 0.3869E+01,& - 0.3922E+01, 0.3976E+01, 0.4031E+01, 0.4087E+01,& - 0.4144E+01, 0.4202E+01, 0.4261E+01, 0.4322E+01,& - 0.4383E+01, 0.4445E+01, 0.4509E+01, 0.4574E+01,& - 0.4640E+01, 0.4708E+01, 0.4776E+01, 0.4847E+01,& - 0.4918E+01, 0.4991E+01, 0.5066E+01, 0.5142E+01,& - 0.5219E+01, 0.5298E+01, 0.5380E+01, 0.5462E+01,& - 0.5547E+01, 0.5634E+01, 0.5722E+01, 0.5812E+01,& - 0.5905E+01, 0.6000E+01, 0.6097E+01, 0.6196E+01,& - 0.6298E+01, 0.6403E+01, 0.6510E+01, 0.6620E+01,& - 0.6733E+01, 0.6848E+01, 0.6968E+01, 0.7090E+01,& - 0.7216E+01, 0.7346E+01, 0.7479E+01, 0.7617E+01,& - 0.7759E+01, 0.7905E+01, 0.8057E+01, 0.8213E+01,& - 0.8375E+01, 0.8542E+01, 0.8716E+01, 0.8896E+01,& - 0.9083E+01, 0.9277E+01, 0.9480E+01, 0.9691E+01,& - 0.9912E+01, 0.1014E+02, 0.1038E+02, 0.1064E+02,& - 0.1090E+02, 0.1119E+02, 0.1148E+02, 0.1180E+02,& - 0.1214E+02, 0.1249E+02, 0.1288E+02, 0.1329E+02,& - 0.1374E+02, 0.1423E+02, 0.1477E+02, 0.1537E+02,& - 0.1604E+02, 0.1681E+02, 0.1771E+02, 0.1879E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,117) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.3915E-03, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.3915E-03, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.3915E-03, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.3915E-03, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.3915E-03, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.3915E-03, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.7729E-03, 0.7729E-03,& - 0.7729E-03, 0.7729E-03, 0.7729E-03, 0.7729E-03,& - 0.7729E-03, 0.7729E-03, 0.7729E-03, 0.7729E-03,& - 0.7729E-03, 0.7729E-03, 0.7729E-03, 0.7729E-03,& - 0.7729E-03, 0.7729E-03, 0.7729E-03, 0.1154E-02,& - 0.1154E-02, 0.1154E-02, 0.1154E-02, 0.1154E-02,& - 0.1154E-02, 0.1154E-02, 0.1154E-02, 0.1154E-02,& - 0.1154E-02, 0.1154E-02, 0.1154E-02, 0.1536E-02,& - 0.1536E-02, 0.1536E-02, 0.1536E-02, 0.1536E-02,& - 0.1536E-02, 0.1536E-02, 0.1536E-02, 0.1536E-02,& - 0.1536E-02, 0.1917E-02, 0.1917E-02, 0.1917E-02,& - 0.1917E-02, 0.1917E-02, 0.1917E-02, 0.1917E-02,& - 0.1917E-02, 0.2299E-02, 0.2299E-02, 0.2299E-02,& - 0.2299E-02, 0.2299E-02, 0.2299E-02, 0.2299E-02,& - 0.2680E-02, 0.2680E-02, 0.2680E-02, 0.2680E-02,& - 0.2680E-02, 0.2680E-02, 0.2680E-02, 0.3062E-02,& - 0.3062E-02, 0.3062E-02, 0.3062E-02, 0.3062E-02,& - 0.3443E-02, 0.3443E-02, 0.3443E-02, 0.3443E-02,& - 0.3443E-02, 0.3825E-02, 0.3825E-02, 0.3825E-02,& - 0.3825E-02, 0.3825E-02, 0.4206E-02, 0.4206E-02,& - 0.4206E-02, 0.4206E-02, 0.4588E-02, 0.4588E-02,& - 0.4588E-02, 0.4588E-02, 0.4969E-02, 0.4969E-02,& - 0.4969E-02, 0.4969E-02, 0.5351E-02, 0.5351E-02,& - 0.5351E-02, 0.5732E-02, 0.5732E-02, 0.5732E-02,& - 0.6114E-02, 0.6114E-02, 0.6114E-02, 0.6114E-02,& - 0.6495E-02, 0.6495E-02, 0.6495E-02, 0.6876E-02,& - 0.6876E-02, 0.7258E-02, 0.7258E-02, 0.7258E-02,& - 0.7639E-02, 0.7639E-02, 0.7639E-02, 0.8021E-02,& - 0.8021E-02, 0.8402E-02, 0.8402E-02, 0.8784E-02,& - 0.8784E-02, 0.8784E-02, 0.9165E-02, 0.9165E-02,& - 0.9547E-02, 0.9547E-02, 0.9928E-02, 0.9928E-02,& - 0.1031E-01, 0.1031E-01, 0.1069E-01, 0.1069E-01,& - 0.1107E-01, 0.1107E-01, 0.1145E-01, 0.1184E-01,& - 0.1184E-01, 0.1222E-01, 0.1222E-01, 0.1260E-01,& - 0.1298E-01, 0.1298E-01, 0.1336E-01, 0.1336E-01,& - 0.1374E-01, 0.1412E-01, 0.1412E-01, 0.1451E-01,& - 0.1489E-01, 0.1489E-01, 0.1527E-01, 0.1565E-01,& - 0.1603E-01, 0.1603E-01, 0.1641E-01, 0.1679E-01,& - 0.1718E-01, 0.1756E-01, 0.1756E-01, 0.1794E-01,& - 0.1832E-01, 0.1870E-01, 0.1908E-01, 0.1946E-01,& - 0.1946E-01, 0.1985E-01, 0.2023E-01, 0.2061E-01,& - 0.2099E-01, 0.2137E-01, 0.2175E-01, 0.2214E-01,& - 0.2252E-01, 0.2290E-01, 0.2328E-01, 0.2366E-01,& - 0.2404E-01, 0.2442E-01, 0.2519E-01, 0.2557E-01,& - 0.2595E-01, 0.2633E-01, 0.2671E-01, 0.2709E-01,& - 0.2786E-01, 0.2824E-01, 0.2862E-01, 0.2900E-01,& - 0.2976E-01, 0.3015E-01, 0.3053E-01, 0.3129E-01,& - 0.3167E-01, 0.3205E-01, 0.3282E-01, 0.3320E-01,& - 0.3396E-01, 0.3434E-01, 0.3472E-01, 0.3549E-01,& - 0.3625E-01, 0.3663E-01, 0.3739E-01, 0.3778E-01,& - 0.3854E-01, 0.3930E-01, 0.3968E-01, 0.4045E-01,& - 0.4121E-01, 0.4159E-01, 0.4235E-01, 0.4312E-01,& - 0.4388E-01, 0.4464E-01, 0.4502E-01, 0.4579E-01,& - 0.4655E-01, 0.4731E-01, 0.4808E-01, 0.4884E-01,& - 0.4960E-01, 0.5036E-01, 0.5113E-01, 0.5227E-01,& - 0.5303E-01, 0.5380E-01, 0.5456E-01, 0.5532E-01,& - 0.5647E-01, 0.5723E-01, 0.5799E-01, 0.5914E-01,& - 0.5990E-01, 0.6066E-01, 0.6181E-01, 0.6257E-01,& - 0.6372E-01, 0.6486E-01, 0.6562E-01, 0.6677E-01,& - 0.6791E-01, 0.6867E-01, 0.6982E-01, 0.7096E-01,& - 0.7211E-01, 0.7325E-01, 0.7402E-01, 0.7516E-01,& - 0.7630E-01, 0.7745E-01, 0.7859E-01, 0.8012E-01,& - 0.8126E-01, 0.8241E-01, 0.8355E-01, 0.8508E-01,& - 0.8622E-01, 0.8737E-01, 0.8889E-01, 0.9004E-01,& - 0.9156E-01, 0.9271E-01, 0.9423E-01, 0.9538E-01,& - 0.9690E-01, 0.9843E-01, 0.9996E-01, 0.1015E+00,& - 0.1030E+00, 0.1042E+00, 0.1057E+00, 0.1076E+00,& - 0.1091E+00, 0.1106E+00, 0.1122E+00, 0.1137E+00,& - 0.1156E+00, 0.1171E+00, 0.1190E+00, 0.1206E+00,& - 0.1225E+00, 0.1240E+00, 0.1259E+00, 0.1278E+00,& - 0.1297E+00, 0.1312E+00, 0.1331E+00, 0.1351E+00,& - 0.1370E+00, 0.1392E+00, 0.1412E+00, 0.1431E+00,& - 0.1450E+00, 0.1473E+00, 0.1492E+00, 0.1515E+00,& - 0.1534E+00, 0.1556E+00, 0.1579E+00, 0.1602E+00,& - 0.1625E+00, 0.1644E+00, 0.1671E+00, 0.1694E+00,& - 0.1717E+00, 0.1740E+00, 0.1766E+00, 0.1789E+00,& - 0.1816E+00, 0.1839E+00, 0.1865E+00, 0.1892E+00,& - 0.1915E+00, 0.1942E+00, 0.1968E+00, 0.1999E+00,& - 0.2026E+00, 0.2052E+00, 0.2079E+00, 0.2110E+00,& - 0.2140E+00, 0.2167E+00, 0.2197E+00, 0.2228E+00,& - 0.2258E+00, 0.2289E+00, 0.2319E+00, 0.2350E+00,& - 0.2384E+00, 0.2415E+00, 0.2449E+00, 0.2480E+00,& - 0.2514E+00, 0.2548E+00, 0.2583E+00, 0.2617E+00,& - 0.2651E+00, 0.2689E+00, 0.2724E+00, 0.2762E+00,& - 0.2796E+00, 0.2834E+00, 0.2873E+00, 0.2911E+00,& - 0.2949E+00, 0.2991E+00, 0.3029E+00, 0.3071E+00,& - 0.3109E+00, 0.3151E+00, 0.3193E+00, 0.3235E+00,& - 0.3277E+00, 0.3323E+00, 0.3365E+00, 0.3410E+00,& - 0.3456E+00, 0.3498E+00, 0.3544E+00, 0.3594E+00,& - 0.3639E+00, 0.3689E+00, 0.3735E+00, 0.3784E+00,& - 0.3834E+00, 0.3883E+00, 0.3933E+00, 0.3986E+00,& - 0.4036E+00, 0.4089E+00, 0.4143E+00, 0.4196E+00,& - 0.4250E+00, 0.4307E+00, 0.4360E+00, 0.4418E+00,& - 0.4475E+00, 0.4532E+00, 0.4589E+00, 0.4650E+00,& - 0.4707E+00, 0.4768E+00, 0.4830E+00, 0.4894E+00,& - 0.4955E+00, 0.5020E+00, 0.5081E+00, 0.5150E+00,& - 0.5215E+00, 0.5280E+00, 0.5348E+00, 0.5417E+00,& - 0.5486E+00, 0.5554E+00, 0.5627E+00, 0.5695E+00,& - 0.5768E+00, 0.5840E+00, 0.5917E+00, 0.5989E+00,& - 0.6065E+00, 0.6142E+00, 0.6222E+00, 0.6298E+00,& - 0.6378E+00, 0.6458E+00, 0.6542E+00, 0.6622E+00,& - 0.6706E+00, 0.6790E+00, 0.6878E+00, 0.6962E+00,& - 0.7050E+00, 0.7137E+00, 0.7229E+00, 0.7317E+00,& - 0.7412E+00, 0.7504E+00, 0.7595E+00, 0.7691E+00,& - 0.7790E+00, 0.7885E+00, 0.7984E+00, 0.8083E+00,& - 0.8183E+00, 0.8286E+00, 0.8389E+00, 0.8495E+00,& - 0.8598E+00, 0.8705E+00, 0.8816E+00, 0.8926E+00,& - 0.9037E+00, 0.9148E+00, 0.9262E+00, 0.9377E+00,& - 0.9495E+00, 0.9609E+00, 0.9731E+00, 0.9850E+00,& - 0.9972E+00, 0.1010E+01, 0.1022E+01, 0.1035E+01,& - 0.1048E+01, 0.1060E+01, 0.1074E+01, 0.1087E+01,& - 0.1101E+01, 0.1114E+01, 0.1128E+01, 0.1142E+01,& - 0.1156E+01, 0.1170E+01, 0.1185E+01, 0.1199E+01,& - 0.1214E+01, 0.1229E+01, 0.1245E+01, 0.1260E+01,& - 0.1276E+01, 0.1291E+01, 0.1307E+01, 0.1323E+01,& - 0.1340E+01, 0.1357E+01, 0.1373E+01, 0.1390E+01,& - 0.1408E+01, 0.1425E+01, 0.1443E+01, 0.1460E+01,& - 0.1479E+01, 0.1497E+01, 0.1516E+01, 0.1534E+01,& - 0.1553E+01, 0.1572E+01, 0.1592E+01, 0.1612E+01,& - 0.1632E+01, 0.1652E+01, 0.1673E+01, 0.1694E+01,& - 0.1715E+01, 0.1736E+01, 0.1758E+01, 0.1780E+01,& - 0.1802E+01, 0.1824E+01, 0.1847E+01, 0.1870E+01,& - 0.1894E+01, 0.1917E+01, 0.1941E+01, 0.1966E+01,& - 0.1991E+01, 0.2016E+01, 0.2041E+01, 0.2067E+01,& - 0.2093E+01, 0.2119E+01, 0.2146E+01, 0.2173E+01,& - 0.2200E+01, 0.2229E+01, 0.2257E+01, 0.2285E+01,& - 0.2314E+01, 0.2344E+01, 0.2374E+01, 0.2404E+01,& - 0.2435E+01, 0.2466E+01, 0.2497E+01, 0.2530E+01,& - 0.2562E+01, 0.2595E+01, 0.2629E+01, 0.2663E+01,& - 0.2697E+01, 0.2732E+01, 0.2768E+01, 0.2804E+01,& - 0.2840E+01, 0.2877E+01, 0.2915E+01, 0.2953E+01,& - 0.2992E+01, 0.3032E+01, 0.3072E+01, 0.3112E+01,& - 0.3154E+01, 0.3196E+01, 0.3238E+01, 0.3282E+01,& - 0.3326E+01, 0.3370E+01, 0.3416E+01, 0.3462E+01,& - 0.3509E+01, 0.3556E+01, 0.3605E+01, 0.3654E+01,& - 0.3704E+01, 0.3756E+01, 0.3807E+01, 0.3860E+01,& - 0.3914E+01, 0.3968E+01, 0.4024E+01, 0.4081E+01,& - 0.4138E+01, 0.4197E+01, 0.4257E+01, 0.4317E+01,& - 0.4379E+01, 0.4443E+01, 0.4507E+01, 0.4572E+01,& - 0.4639E+01, 0.4707E+01, 0.4777E+01, 0.4848E+01,& - 0.4920E+01, 0.4994E+01, 0.5069E+01, 0.5145E+01,& - 0.5224E+01, 0.5304E+01, 0.5386E+01, 0.5470E+01,& - 0.5556E+01, 0.5643E+01, 0.5732E+01, 0.5824E+01,& - 0.5918E+01, 0.6013E+01, 0.6112E+01, 0.6212E+01,& - 0.6316E+01, 0.6421E+01, 0.6530E+01, 0.6641E+01,& - 0.6755E+01, 0.6873E+01, 0.6993E+01, 0.7117E+01,& - 0.7245E+01, 0.7376E+01, 0.7512E+01, 0.7651E+01,& - 0.7795E+01, 0.7944E+01, 0.8097E+01, 0.8255E+01,& - 0.8419E+01, 0.8589E+01, 0.8765E+01, 0.8948E+01,& - 0.9138E+01, 0.9335E+01, 0.9540E+01, 0.9755E+01,& - 0.9978E+01, 0.1021E+02, 0.1046E+02, 0.1072E+02,& - 0.1099E+02, 0.1127E+02, 0.1157E+02, 0.1189E+02,& - 0.1224E+02, 0.1260E+02, 0.1299E+02, 0.1341E+02,& - 0.1387E+02, 0.1437E+02, 0.1491E+02, 0.1552E+02,& - 0.1621E+02, 0.1699E+02, 0.1791E+02, 0.1900E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,118) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3972E-03, 0.3972E-03, 0.3972E-03,& - 0.3972E-03, 0.3972E-03, 0.3972E-03, 0.3972E-03,& - 0.3972E-03, 0.3972E-03, 0.3972E-03, 0.3972E-03,& - 0.3972E-03, 0.3972E-03, 0.3972E-03, 0.3972E-03,& - 0.3972E-03, 0.3972E-03, 0.3972E-03, 0.3972E-03,& - 0.3972E-03, 0.3972E-03, 0.3972E-03, 0.3972E-03,& - 0.3972E-03, 0.3972E-03, 0.3972E-03, 0.3972E-03,& - 0.7844E-03, 0.7844E-03, 0.7844E-03, 0.7844E-03,& - 0.7844E-03, 0.7844E-03, 0.7844E-03, 0.7844E-03,& - 0.7844E-03, 0.7844E-03, 0.7844E-03, 0.7844E-03,& - 0.7844E-03, 0.7844E-03, 0.7844E-03, 0.7844E-03,& - 0.7844E-03, 0.1172E-02, 0.1172E-02, 0.1172E-02,& - 0.1172E-02, 0.1172E-02, 0.1172E-02, 0.1172E-02,& - 0.1172E-02, 0.1172E-02, 0.1172E-02, 0.1172E-02,& - 0.1172E-02, 0.1559E-02, 0.1559E-02, 0.1559E-02,& - 0.1559E-02, 0.1559E-02, 0.1559E-02, 0.1559E-02,& - 0.1559E-02, 0.1559E-02, 0.1559E-02, 0.1946E-02,& - 0.1946E-02, 0.1946E-02, 0.1946E-02, 0.1946E-02,& - 0.1946E-02, 0.1946E-02, 0.1946E-02, 0.2333E-02,& - 0.2333E-02, 0.2333E-02, 0.2333E-02, 0.2333E-02,& - 0.2333E-02, 0.2333E-02, 0.2721E-02, 0.2721E-02,& - 0.2721E-02, 0.2721E-02, 0.2721E-02, 0.2721E-02,& - 0.3108E-02, 0.3108E-02, 0.3108E-02, 0.3108E-02,& - 0.3108E-02, 0.3108E-02, 0.3495E-02, 0.3495E-02,& - 0.3495E-02, 0.3495E-02, 0.3495E-02, 0.3882E-02,& - 0.3882E-02, 0.3882E-02, 0.3882E-02, 0.3882E-02,& - 0.4269E-02, 0.4269E-02, 0.4269E-02, 0.4269E-02,& - 0.4657E-02, 0.4657E-02, 0.4657E-02, 0.4657E-02,& - 0.5044E-02, 0.5044E-02, 0.5044E-02, 0.5431E-02,& - 0.5431E-02, 0.5431E-02, 0.5431E-02, 0.5818E-02,& - 0.5818E-02, 0.5818E-02, 0.6205E-02, 0.6205E-02,& - 0.6205E-02, 0.6593E-02, 0.6593E-02, 0.6593E-02,& - 0.6980E-02, 0.6980E-02, 0.6980E-02, 0.7367E-02,& - 0.7367E-02, 0.7367E-02, 0.7754E-02, 0.7754E-02,& - 0.8142E-02, 0.8142E-02, 0.8142E-02, 0.8529E-02,& - 0.8529E-02, 0.8916E-02, 0.8916E-02, 0.9303E-02,& - 0.9303E-02, 0.9690E-02, 0.9690E-02, 0.1008E-01,& - 0.1008E-01, 0.1008E-01, 0.1046E-01, 0.1085E-01,& - 0.1085E-01, 0.1124E-01, 0.1124E-01, 0.1163E-01,& - 0.1163E-01, 0.1201E-01, 0.1201E-01, 0.1240E-01,& - 0.1279E-01, 0.1279E-01, 0.1318E-01, 0.1318E-01,& - 0.1356E-01, 0.1395E-01, 0.1395E-01, 0.1434E-01,& - 0.1472E-01, 0.1472E-01, 0.1511E-01, 0.1550E-01,& - 0.1589E-01, 0.1589E-01, 0.1627E-01, 0.1666E-01,& - 0.1705E-01, 0.1705E-01, 0.1743E-01, 0.1782E-01,& - 0.1821E-01, 0.1860E-01, 0.1898E-01, 0.1898E-01,& - 0.1937E-01, 0.1976E-01, 0.2015E-01, 0.2053E-01,& - 0.2092E-01, 0.2131E-01, 0.2169E-01, 0.2208E-01,& - 0.2247E-01, 0.2286E-01, 0.2324E-01, 0.2363E-01,& - 0.2402E-01, 0.2440E-01, 0.2479E-01, 0.2518E-01,& - 0.2557E-01, 0.2595E-01, 0.2673E-01, 0.2712E-01,& - 0.2750E-01, 0.2789E-01, 0.2828E-01, 0.2905E-01,& - 0.2944E-01, 0.2983E-01, 0.3060E-01, 0.3099E-01,& - 0.3137E-01, 0.3215E-01, 0.3254E-01, 0.3292E-01,& - 0.3370E-01, 0.3408E-01, 0.3486E-01, 0.3525E-01,& - 0.3602E-01, 0.3641E-01, 0.3718E-01, 0.3757E-01,& - 0.3834E-01, 0.3912E-01, 0.3951E-01, 0.4028E-01,& - 0.4105E-01, 0.4144E-01, 0.4222E-01, 0.4299E-01,& - 0.4377E-01, 0.4454E-01, 0.4493E-01, 0.4570E-01,& - 0.4648E-01, 0.4725E-01, 0.4802E-01, 0.4880E-01,& - 0.4957E-01, 0.5035E-01, 0.5112E-01, 0.5190E-01,& - 0.5306E-01, 0.5383E-01, 0.5461E-01, 0.5538E-01,& - 0.5616E-01, 0.5732E-01, 0.5809E-01, 0.5887E-01,& - 0.6003E-01, 0.6080E-01, 0.6196E-01, 0.6274E-01,& - 0.6390E-01, 0.6468E-01, 0.6584E-01, 0.6700E-01,& - 0.6777E-01, 0.6893E-01, 0.7010E-01, 0.7087E-01,& - 0.7203E-01, 0.7319E-01, 0.7436E-01, 0.7552E-01,& - 0.7668E-01, 0.7784E-01, 0.7900E-01, 0.8016E-01,& - 0.8133E-01, 0.8287E-01, 0.8404E-01, 0.8520E-01,& - 0.8636E-01, 0.8791E-01, 0.8907E-01, 0.9062E-01,& - 0.9178E-01, 0.9333E-01, 0.9449E-01, 0.9604E-01,& - 0.9759E-01, 0.9914E-01, 0.1003E+00, 0.1018E+00,& - 0.1034E+00, 0.1049E+00, 0.1065E+00, 0.1080E+00,& - 0.1096E+00, 0.1115E+00, 0.1131E+00, 0.1146E+00,& - 0.1162E+00, 0.1181E+00, 0.1197E+00, 0.1216E+00,& - 0.1231E+00, 0.1251E+00, 0.1270E+00, 0.1286E+00,& - 0.1305E+00, 0.1324E+00, 0.1344E+00, 0.1363E+00,& - 0.1382E+00, 0.1402E+00, 0.1425E+00, 0.1444E+00,& - 0.1464E+00, 0.1487E+00, 0.1506E+00, 0.1530E+00,& - 0.1549E+00, 0.1572E+00, 0.1595E+00, 0.1619E+00,& - 0.1642E+00, 0.1665E+00, 0.1688E+00, 0.1712E+00,& - 0.1735E+00, 0.1762E+00, 0.1785E+00, 0.1808E+00,& - 0.1836E+00, 0.1863E+00, 0.1886E+00, 0.1913E+00,& - 0.1940E+00, 0.1967E+00, 0.1994E+00, 0.2021E+00,& - 0.2052E+00, 0.2079E+00, 0.2110E+00, 0.2138E+00,& - 0.2169E+00, 0.2199E+00, 0.2227E+00, 0.2258E+00,& - 0.2289E+00, 0.2320E+00, 0.2354E+00, 0.2385E+00,& - 0.2420E+00, 0.2451E+00, 0.2486E+00, 0.2521E+00,& - 0.2552E+00, 0.2587E+00, 0.2622E+00, 0.2660E+00,& - 0.2695E+00, 0.2730E+00, 0.2769E+00, 0.2807E+00,& - 0.2846E+00, 0.2881E+00, 0.2924E+00, 0.2962E+00,& - 0.3001E+00, 0.3040E+00, 0.3082E+00, 0.3125E+00,& - 0.3164E+00, 0.3206E+00, 0.3253E+00, 0.3295E+00,& - 0.3338E+00, 0.3384E+00, 0.3427E+00, 0.3473E+00,& - 0.3520E+00, 0.3566E+00, 0.3613E+00, 0.3663E+00,& - 0.3710E+00, 0.3760E+00, 0.3810E+00, 0.3861E+00,& - 0.3911E+00, 0.3961E+00, 0.4016E+00, 0.4066E+00,& - 0.4120E+00, 0.4174E+00, 0.4228E+00, 0.4283E+00,& - 0.4341E+00, 0.4399E+00, 0.4453E+00, 0.4511E+00,& - 0.4573E+00, 0.4631E+00, 0.4693E+00, 0.4751E+00,& - 0.4813E+00, 0.4875E+00, 0.4941E+00, 0.5003E+00,& - 0.5069E+00, 0.5135E+00, 0.5200E+00, 0.5270E+00,& - 0.5336E+00, 0.5406E+00, 0.5475E+00, 0.5545E+00,& - 0.5619E+00, 0.5688E+00, 0.5762E+00, 0.5835E+00,& - 0.5913E+00, 0.5986E+00, 0.6064E+00, 0.6141E+00,& - 0.6219E+00, 0.6300E+00, 0.6381E+00, 0.6463E+00,& - 0.6544E+00, 0.6629E+00, 0.6711E+00, 0.6800E+00,& - 0.6885E+00, 0.6974E+00, 0.7059E+00, 0.7152E+00,& - 0.7241E+00, 0.7334E+00, 0.7427E+00, 0.7520E+00,& - 0.7617E+00, 0.7713E+00, 0.7810E+00, 0.7907E+00,& - 0.8008E+00, 0.8108E+00, 0.8213E+00, 0.8317E+00,& - 0.8422E+00, 0.8527E+00, 0.8635E+00, 0.8743E+00,& - 0.8856E+00, 0.8964E+00, 0.9080E+00, 0.9193E+00,& - 0.9309E+00, 0.9425E+00, 0.9545E+00, 0.9665E+00,& - 0.9785E+00, 0.9909E+00, 0.1003E+01, 0.1016E+01,& - 0.1029E+01, 0.1042E+01, 0.1055E+01, 0.1068E+01,& - 0.1082E+01, 0.1095E+01, 0.1109E+01, 0.1123E+01,& - 0.1136E+01, 0.1151E+01, 0.1166E+01, 0.1180E+01,& - 0.1195E+01, 0.1210E+01, 0.1225E+01, 0.1240E+01,& - 0.1256E+01, 0.1272E+01, 0.1288E+01, 0.1304E+01,& - 0.1320E+01, 0.1337E+01, 0.1353E+01, 0.1370E+01,& - 0.1387E+01, 0.1405E+01, 0.1423E+01, 0.1440E+01,& - 0.1459E+01, 0.1477E+01, 0.1495E+01, 0.1514E+01,& - 0.1533E+01, 0.1552E+01, 0.1572E+01, 0.1592E+01,& - 0.1612E+01, 0.1632E+01, 0.1653E+01, 0.1674E+01,& - 0.1694E+01, 0.1716E+01, 0.1738E+01, 0.1760E+01,& - 0.1782E+01, 0.1804E+01, 0.1827E+01, 0.1851E+01,& - 0.1874E+01, 0.1898E+01, 0.1922E+01, 0.1946E+01,& - 0.1971E+01, 0.1996E+01, 0.2021E+01, 0.2047E+01,& - 0.2073E+01, 0.2100E+01, 0.2127E+01, 0.2154E+01,& - 0.2182E+01, 0.2209E+01, 0.2238E+01, 0.2267E+01,& - 0.2296E+01, 0.2325E+01, 0.2355E+01, 0.2386E+01,& - 0.2417E+01, 0.2448E+01, 0.2480E+01, 0.2512E+01,& - 0.2545E+01, 0.2578E+01, 0.2611E+01, 0.2646E+01,& - 0.2680E+01, 0.2716E+01, 0.2751E+01, 0.2788E+01,& - 0.2824E+01, 0.2862E+01, 0.2899E+01, 0.2938E+01,& - 0.2977E+01, 0.3017E+01, 0.3057E+01, 0.3098E+01,& - 0.3140E+01, 0.3182E+01, 0.3225E+01, 0.3268E+01,& - 0.3313E+01, 0.3358E+01, 0.3404E+01, 0.3450E+01,& - 0.3497E+01, 0.3545E+01, 0.3594E+01, 0.3644E+01,& - 0.3694E+01, 0.3746E+01, 0.3798E+01, 0.3852E+01,& - 0.3905E+01, 0.3961E+01, 0.4017E+01, 0.4074E+01,& - 0.4132E+01, 0.4191E+01, 0.4251E+01, 0.4313E+01,& - 0.4375E+01, 0.4439E+01, 0.4504E+01, 0.4570E+01,& - 0.4638E+01, 0.4707E+01, 0.4777E+01, 0.4848E+01,& - 0.4921E+01, 0.4996E+01, 0.5072E+01, 0.5150E+01,& - 0.5229E+01, 0.5310E+01, 0.5393E+01, 0.5477E+01,& - 0.5564E+01, 0.5652E+01, 0.5742E+01, 0.5835E+01,& - 0.5930E+01, 0.6027E+01, 0.6126E+01, 0.6228E+01,& - 0.6333E+01, 0.6439E+01, 0.6549E+01, 0.6662E+01,& - 0.6778E+01, 0.6897E+01, 0.7019E+01, 0.7145E+01,& - 0.7273E+01, 0.7407E+01, 0.7544E+01, 0.7685E+01,& - 0.7831E+01, 0.7981E+01, 0.8137E+01, 0.8297E+01,& - 0.8463E+01, 0.8635E+01, 0.8814E+01, 0.8999E+01,& - 0.9191E+01, 0.9392E+01, 0.9600E+01, 0.9817E+01,& - 0.1004E+02, 0.1028E+02, 0.1053E+02, 0.1079E+02,& - 0.1107E+02, 0.1136E+02, 0.1166E+02, 0.1199E+02,& - 0.1234E+02, 0.1271E+02, 0.1310E+02, 0.1353E+02,& - 0.1399E+02, 0.1450E+02, 0.1506E+02, 0.1568E+02,& - 0.1637E+02, 0.1717E+02, 0.1810E+02, 0.1921E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,119) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.4030E-03,& - 0.4030E-03, 0.4030E-03, 0.4030E-03, 0.4030E-03,& - 0.4030E-03, 0.4030E-03, 0.4030E-03, 0.4030E-03,& - 0.4030E-03, 0.4030E-03, 0.4030E-03, 0.4030E-03,& - 0.4030E-03, 0.4030E-03, 0.4030E-03, 0.4030E-03,& - 0.4030E-03, 0.4030E-03, 0.4030E-03, 0.4030E-03,& - 0.4030E-03, 0.4030E-03, 0.4030E-03, 0.4030E-03,& - 0.4030E-03, 0.4030E-03, 0.7960E-03, 0.7960E-03,& - 0.7960E-03, 0.7960E-03, 0.7960E-03, 0.7960E-03,& - 0.7960E-03, 0.7960E-03, 0.7960E-03, 0.7960E-03,& - 0.7960E-03, 0.7960E-03, 0.7960E-03, 0.7960E-03,& - 0.7960E-03, 0.7960E-03, 0.1189E-02, 0.1189E-02,& - 0.1189E-02, 0.1189E-02, 0.1189E-02, 0.1189E-02,& - 0.1189E-02, 0.1189E-02, 0.1189E-02, 0.1189E-02,& - 0.1189E-02, 0.1189E-02, 0.1189E-02, 0.1582E-02,& - 0.1582E-02, 0.1582E-02, 0.1582E-02, 0.1582E-02,& - 0.1582E-02, 0.1582E-02, 0.1582E-02, 0.1582E-02,& - 0.1582E-02, 0.1975E-02, 0.1975E-02, 0.1975E-02,& - 0.1975E-02, 0.1975E-02, 0.1975E-02, 0.1975E-02,& - 0.1975E-02, 0.2368E-02, 0.2368E-02, 0.2368E-02,& - 0.2368E-02, 0.2368E-02, 0.2368E-02, 0.2368E-02,& - 0.2761E-02, 0.2761E-02, 0.2761E-02, 0.2761E-02,& - 0.2761E-02, 0.2761E-02, 0.3154E-02, 0.3154E-02,& - 0.3154E-02, 0.3154E-02, 0.3154E-02, 0.3154E-02,& - 0.3547E-02, 0.3547E-02, 0.3547E-02, 0.3547E-02,& - 0.3547E-02, 0.3940E-02, 0.3940E-02, 0.3940E-02,& - 0.3940E-02, 0.4333E-02, 0.4333E-02, 0.4333E-02,& - 0.4333E-02, 0.4333E-02, 0.4726E-02, 0.4726E-02,& - 0.4726E-02, 0.4726E-02, 0.5119E-02, 0.5119E-02,& - 0.5119E-02, 0.5512E-02, 0.5512E-02, 0.5512E-02,& - 0.5512E-02, 0.5905E-02, 0.5905E-02, 0.5905E-02,& - 0.6298E-02, 0.6298E-02, 0.6298E-02, 0.6691E-02,& - 0.6691E-02, 0.6691E-02, 0.7084E-02, 0.7084E-02,& - 0.7084E-02, 0.7477E-02, 0.7477E-02, 0.7870E-02,& - 0.7870E-02, 0.7870E-02, 0.8263E-02, 0.8263E-02,& - 0.8656E-02, 0.8656E-02, 0.8656E-02, 0.9049E-02,& - 0.9049E-02, 0.9442E-02, 0.9442E-02, 0.9835E-02,& - 0.9835E-02, 0.1023E-01, 0.1023E-01, 0.1062E-01,& - 0.1062E-01, 0.1101E-01, 0.1101E-01, 0.1141E-01,& - 0.1141E-01, 0.1180E-01, 0.1219E-01, 0.1219E-01,& - 0.1259E-01, 0.1259E-01, 0.1298E-01, 0.1337E-01,& - 0.1337E-01, 0.1377E-01, 0.1377E-01, 0.1416E-01,& - 0.1455E-01, 0.1455E-01, 0.1494E-01, 0.1534E-01,& - 0.1573E-01, 0.1573E-01, 0.1612E-01, 0.1652E-01,& - 0.1691E-01, 0.1691E-01, 0.1730E-01, 0.1770E-01,& - 0.1809E-01, 0.1848E-01, 0.1848E-01, 0.1887E-01,& - 0.1927E-01, 0.1966E-01, 0.2005E-01, 0.2045E-01,& - 0.2084E-01, 0.2123E-01, 0.2163E-01, 0.2202E-01,& - 0.2241E-01, 0.2280E-01, 0.2320E-01, 0.2359E-01,& - 0.2398E-01, 0.2438E-01, 0.2477E-01, 0.2516E-01,& - 0.2556E-01, 0.2595E-01, 0.2634E-01, 0.2673E-01,& - 0.2752E-01, 0.2791E-01, 0.2831E-01, 0.2870E-01,& - 0.2909E-01, 0.2988E-01, 0.3027E-01, 0.3066E-01,& - 0.3145E-01, 0.3184E-01, 0.3224E-01, 0.3302E-01,& - 0.3342E-01, 0.3420E-01, 0.3459E-01, 0.3538E-01,& - 0.3577E-01, 0.3656E-01, 0.3695E-01, 0.3774E-01,& - 0.3813E-01, 0.3892E-01, 0.3970E-01, 0.4010E-01,& - 0.4088E-01, 0.4167E-01, 0.4206E-01, 0.4285E-01,& - 0.4363E-01, 0.4442E-01, 0.4521E-01, 0.4560E-01,& - 0.4639E-01, 0.4717E-01, 0.4796E-01, 0.4874E-01,& - 0.4953E-01, 0.5032E-01, 0.5110E-01, 0.5189E-01,& - 0.5307E-01, 0.5385E-01, 0.5464E-01, 0.5542E-01,& - 0.5621E-01, 0.5739E-01, 0.5818E-01, 0.5896E-01,& - 0.6014E-01, 0.6093E-01, 0.6211E-01, 0.6289E-01,& - 0.6407E-01, 0.6486E-01, 0.6604E-01, 0.6682E-01,& - 0.6800E-01, 0.6918E-01, 0.7036E-01, 0.7114E-01,& - 0.7232E-01, 0.7350E-01, 0.7468E-01, 0.7586E-01,& - 0.7704E-01, 0.7822E-01, 0.7940E-01, 0.8058E-01,& - 0.8176E-01, 0.8293E-01, 0.8451E-01, 0.8569E-01,& - 0.8687E-01, 0.8844E-01, 0.8962E-01, 0.9119E-01,& - 0.9237E-01, 0.9394E-01, 0.9512E-01, 0.9669E-01,& - 0.9826E-01, 0.9944E-01, 0.1010E+00, 0.1026E+00,& - 0.1042E+00, 0.1057E+00, 0.1073E+00, 0.1089E+00,& - 0.1104E+00, 0.1120E+00, 0.1140E+00, 0.1156E+00,& - 0.1171E+00, 0.1191E+00, 0.1207E+00, 0.1226E+00,& - 0.1242E+00, 0.1262E+00, 0.1281E+00, 0.1301E+00,& - 0.1317E+00, 0.1336E+00, 0.1356E+00, 0.1376E+00,& - 0.1395E+00, 0.1419E+00, 0.1439E+00, 0.1458E+00,& - 0.1482E+00, 0.1501E+00, 0.1525E+00, 0.1545E+00,& - 0.1568E+00, 0.1592E+00, 0.1611E+00, 0.1635E+00,& - 0.1659E+00, 0.1682E+00, 0.1710E+00, 0.1733E+00,& - 0.1757E+00, 0.1780E+00, 0.1808E+00, 0.1832E+00,& - 0.1859E+00, 0.1887E+00, 0.1914E+00, 0.1938E+00,& - 0.1965E+00, 0.1993E+00, 0.2024E+00, 0.2052E+00,& - 0.2079E+00, 0.2111E+00, 0.2138E+00, 0.2170E+00,& - 0.2201E+00, 0.2228E+00, 0.2260E+00, 0.2291E+00,& - 0.2323E+00, 0.2358E+00, 0.2390E+00, 0.2421E+00,& - 0.2456E+00, 0.2492E+00, 0.2523E+00, 0.2559E+00,& - 0.2594E+00, 0.2629E+00, 0.2669E+00, 0.2704E+00,& - 0.2739E+00, 0.2779E+00, 0.2818E+00, 0.2853E+00,& - 0.2893E+00, 0.2932E+00, 0.2975E+00, 0.3014E+00,& - 0.3054E+00, 0.3097E+00, 0.3140E+00, 0.3180E+00,& - 0.3223E+00, 0.3270E+00, 0.3313E+00, 0.3356E+00,& - 0.3404E+00, 0.3447E+00, 0.3494E+00, 0.3541E+00,& - 0.3588E+00, 0.3639E+00, 0.3687E+00, 0.3738E+00,& - 0.3785E+00, 0.3836E+00, 0.3887E+00, 0.3938E+00,& - 0.3993E+00, 0.4044E+00, 0.4099E+00, 0.4154E+00,& - 0.4209E+00, 0.4264E+00, 0.4323E+00, 0.4378E+00,& - 0.4437E+00, 0.4496E+00, 0.4555E+00, 0.4614E+00,& - 0.4677E+00, 0.4736E+00, 0.4799E+00, 0.4862E+00,& - 0.4928E+00, 0.4991E+00, 0.5058E+00, 0.5125E+00,& - 0.5192E+00, 0.5259E+00, 0.5325E+00, 0.5396E+00,& - 0.5467E+00, 0.5538E+00, 0.5612E+00, 0.5683E+00,& - 0.5758E+00, 0.5832E+00, 0.5907E+00, 0.5986E+00,& - 0.6064E+00, 0.6143E+00, 0.6221E+00, 0.6304E+00,& - 0.6383E+00, 0.6465E+00, 0.6552E+00, 0.6634E+00,& - 0.6721E+00, 0.6807E+00, 0.6893E+00, 0.6984E+00,& - 0.7074E+00, 0.7165E+00, 0.7259E+00, 0.7349E+00,& - 0.7444E+00, 0.7542E+00, 0.7636E+00, 0.7735E+00,& - 0.7833E+00, 0.7935E+00, 0.8037E+00, 0.8139E+00,& - 0.8245E+00, 0.8348E+00, 0.8458E+00, 0.8564E+00,& - 0.8674E+00, 0.8784E+00, 0.8898E+00, 0.9012E+00,& - 0.9126E+00, 0.9244E+00, 0.9362E+00, 0.9479E+00,& - 0.9601E+00, 0.9723E+00, 0.9845E+00, 0.9971E+00,& - 0.1010E+01, 0.1023E+01, 0.1036E+01, 0.1049E+01,& - 0.1062E+01, 0.1076E+01, 0.1089E+01, 0.1103E+01,& - 0.1117E+01, 0.1131E+01, 0.1146E+01, 0.1161E+01,& - 0.1175E+01, 0.1190E+01, 0.1205E+01, 0.1221E+01,& - 0.1236E+01, 0.1252E+01, 0.1267E+01, 0.1284E+01,& - 0.1300E+01, 0.1317E+01, 0.1333E+01, 0.1350E+01,& - 0.1367E+01, 0.1385E+01, 0.1402E+01, 0.1420E+01,& - 0.1438E+01, 0.1457E+01, 0.1475E+01, 0.1494E+01,& - 0.1513E+01, 0.1532E+01, 0.1552E+01, 0.1572E+01,& - 0.1592E+01, 0.1612E+01, 0.1633E+01, 0.1653E+01,& - 0.1674E+01, 0.1696E+01, 0.1717E+01, 0.1739E+01,& - 0.1762E+01, 0.1784E+01, 0.1807E+01, 0.1830E+01,& - 0.1854E+01, 0.1878E+01, 0.1902E+01, 0.1926E+01,& - 0.1951E+01, 0.1976E+01, 0.2002E+01, 0.2028E+01,& - 0.2054E+01, 0.2080E+01, 0.2107E+01, 0.2134E+01,& - 0.2162E+01, 0.2190E+01, 0.2219E+01, 0.2248E+01,& - 0.2277E+01, 0.2307E+01, 0.2337E+01, 0.2367E+01,& - 0.2398E+01, 0.2430E+01, 0.2461E+01, 0.2494E+01,& - 0.2527E+01, 0.2560E+01, 0.2594E+01, 0.2628E+01,& - 0.2663E+01, 0.2698E+01, 0.2735E+01, 0.2771E+01,& - 0.2808E+01, 0.2845E+01, 0.2884E+01, 0.2922E+01,& - 0.2962E+01, 0.3001E+01, 0.3042E+01, 0.3083E+01,& - 0.3125E+01, 0.3168E+01, 0.3211E+01, 0.3255E+01,& - 0.3299E+01, 0.3345E+01, 0.3391E+01, 0.3438E+01,& - 0.3485E+01, 0.3534E+01, 0.3583E+01, 0.3633E+01,& - 0.3684E+01, 0.3736E+01, 0.3789E+01, 0.3842E+01,& - 0.3897E+01, 0.3952E+01, 0.4009E+01, 0.4066E+01,& - 0.4125E+01, 0.4185E+01, 0.4246E+01, 0.4307E+01,& - 0.4371E+01, 0.4435E+01, 0.4500E+01, 0.4567E+01,& - 0.4635E+01, 0.4705E+01, 0.4776E+01, 0.4848E+01,& - 0.4922E+01, 0.4997E+01, 0.5074E+01, 0.5152E+01,& - 0.5233E+01, 0.5314E+01, 0.5398E+01, 0.5484E+01,& - 0.5571E+01, 0.5661E+01, 0.5752E+01, 0.5845E+01,& - 0.5941E+01, 0.6039E+01, 0.6140E+01, 0.6243E+01,& - 0.6349E+01, 0.6457E+01, 0.6568E+01, 0.6682E+01,& - 0.6799E+01, 0.6919E+01, 0.7043E+01, 0.7170E+01,& - 0.7301E+01, 0.7436E+01, 0.7575E+01, 0.7718E+01,& - 0.7865E+01, 0.8018E+01, 0.8175E+01, 0.8338E+01,& - 0.8507E+01, 0.8681E+01, 0.8862E+01, 0.9050E+01,& - 0.9245E+01, 0.9448E+01, 0.9659E+01, 0.9879E+01,& - 0.1011E+02, 0.1035E+02, 0.1060E+02, 0.1087E+02,& - 0.1115E+02, 0.1144E+02, 0.1175E+02, 0.1208E+02,& - 0.1244E+02, 0.1281E+02, 0.1321E+02, 0.1365E+02,& - 0.1412E+02, 0.1463E+02, 0.1520E+02, 0.1583E+02,& - 0.1653E+02, 0.1735E+02, 0.1829E+02, 0.1943E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,120) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.4089E-03, 0.4089E-03, 0.4089E-03,& - 0.4089E-03, 0.4089E-03, 0.4089E-03, 0.4089E-03,& - 0.4089E-03, 0.4089E-03, 0.4089E-03, 0.4089E-03,& - 0.4089E-03, 0.4089E-03, 0.4089E-03, 0.4089E-03,& - 0.4089E-03, 0.4089E-03, 0.4089E-03, 0.4089E-03,& - 0.4089E-03, 0.4089E-03, 0.4089E-03, 0.4089E-03,& - 0.4089E-03, 0.4089E-03, 0.4089E-03, 0.4089E-03,& - 0.8077E-03, 0.8077E-03, 0.8077E-03, 0.8077E-03,& - 0.8077E-03, 0.8077E-03, 0.8077E-03, 0.8077E-03,& - 0.8077E-03, 0.8077E-03, 0.8077E-03, 0.8077E-03,& - 0.8077E-03, 0.8077E-03, 0.8077E-03, 0.8077E-03,& - 0.1207E-02, 0.1207E-02, 0.1207E-02, 0.1207E-02,& - 0.1207E-02, 0.1207E-02, 0.1207E-02, 0.1207E-02,& - 0.1207E-02, 0.1207E-02, 0.1207E-02, 0.1207E-02,& - 0.1207E-02, 0.1605E-02, 0.1605E-02, 0.1605E-02,& - 0.1605E-02, 0.1605E-02, 0.1605E-02, 0.1605E-02,& - 0.1605E-02, 0.1605E-02, 0.2004E-02, 0.2004E-02,& - 0.2004E-02, 0.2004E-02, 0.2004E-02, 0.2004E-02,& - 0.2004E-02, 0.2004E-02, 0.2004E-02, 0.2403E-02,& - 0.2403E-02, 0.2403E-02, 0.2403E-02, 0.2403E-02,& - 0.2403E-02, 0.2403E-02, 0.2802E-02, 0.2802E-02,& - 0.2802E-02, 0.2802E-02, 0.2802E-02, 0.2802E-02,& - 0.3201E-02, 0.3201E-02, 0.3201E-02, 0.3201E-02,& - 0.3201E-02, 0.3600E-02, 0.3600E-02, 0.3600E-02,& - 0.3600E-02, 0.3600E-02, 0.3999E-02, 0.3999E-02,& - 0.3999E-02, 0.3999E-02, 0.3999E-02, 0.4397E-02,& - 0.4397E-02, 0.4397E-02, 0.4397E-02, 0.4796E-02,& - 0.4796E-02, 0.4796E-02, 0.4796E-02, 0.5195E-02,& - 0.5195E-02, 0.5195E-02, 0.5195E-02, 0.5594E-02,& - 0.5594E-02, 0.5594E-02, 0.5993E-02, 0.5993E-02,& - 0.5993E-02, 0.6392E-02, 0.6392E-02, 0.6392E-02,& - 0.6392E-02, 0.6790E-02, 0.6790E-02, 0.7189E-02,& - 0.7189E-02, 0.7189E-02, 0.7588E-02, 0.7588E-02,& - 0.7588E-02, 0.7987E-02, 0.7987E-02, 0.8386E-02,& - 0.8386E-02, 0.8386E-02, 0.8785E-02, 0.8785E-02,& - 0.9184E-02, 0.9184E-02, 0.9582E-02, 0.9582E-02,& - 0.9981E-02, 0.9981E-02, 0.1038E-01, 0.1038E-01,& - 0.1078E-01, 0.1078E-01, 0.1118E-01, 0.1118E-01,& - 0.1158E-01, 0.1158E-01, 0.1198E-01, 0.1198E-01,& - 0.1237E-01, 0.1237E-01, 0.1277E-01, 0.1317E-01,& - 0.1317E-01, 0.1357E-01, 0.1397E-01, 0.1397E-01,& - 0.1437E-01, 0.1477E-01, 0.1477E-01, 0.1517E-01,& - 0.1557E-01, 0.1557E-01, 0.1596E-01, 0.1636E-01,& - 0.1676E-01, 0.1676E-01, 0.1716E-01, 0.1756E-01,& - 0.1796E-01, 0.1796E-01, 0.1836E-01, 0.1876E-01,& - 0.1915E-01, 0.1955E-01, 0.1995E-01, 0.2035E-01,& - 0.2075E-01, 0.2075E-01, 0.2115E-01, 0.2155E-01,& - 0.2195E-01, 0.2235E-01, 0.2274E-01, 0.2314E-01,& - 0.2354E-01, 0.2394E-01, 0.2434E-01, 0.2514E-01,& - 0.2554E-01, 0.2594E-01, 0.2633E-01, 0.2673E-01,& - 0.2713E-01, 0.2753E-01, 0.2833E-01, 0.2873E-01,& - 0.2913E-01, 0.2952E-01, 0.3032E-01, 0.3072E-01,& - 0.3112E-01, 0.3192E-01, 0.3232E-01, 0.3272E-01,& - 0.3351E-01, 0.3391E-01, 0.3471E-01, 0.3511E-01,& - 0.3591E-01, 0.3631E-01, 0.3710E-01, 0.3750E-01,& - 0.3830E-01, 0.3870E-01, 0.3950E-01, 0.4029E-01,& - 0.4069E-01, 0.4149E-01, 0.4229E-01, 0.4269E-01,& - 0.4348E-01, 0.4428E-01, 0.4508E-01, 0.4588E-01,& - 0.4668E-01, 0.4747E-01, 0.4827E-01, 0.4907E-01,& - 0.4987E-01, 0.5066E-01, 0.5146E-01, 0.5226E-01,& - 0.5306E-01, 0.5385E-01, 0.5465E-01, 0.5545E-01,& - 0.5665E-01, 0.5744E-01, 0.5824E-01, 0.5944E-01,& - 0.6024E-01, 0.6103E-01, 0.6223E-01, 0.6303E-01,& - 0.6422E-01, 0.6502E-01, 0.6622E-01, 0.6742E-01,& - 0.6821E-01, 0.6941E-01, 0.7061E-01, 0.7140E-01,& - 0.7260E-01, 0.7380E-01, 0.7499E-01, 0.7619E-01,& - 0.7739E-01, 0.7858E-01, 0.7978E-01, 0.8098E-01,& - 0.8217E-01, 0.8377E-01, 0.8497E-01, 0.8616E-01,& - 0.8736E-01, 0.8895E-01, 0.9015E-01, 0.9175E-01,& - 0.9294E-01, 0.9454E-01, 0.9573E-01, 0.9733E-01,& - 0.9892E-01, 0.1005E+00, 0.1017E+00, 0.1033E+00,& - 0.1049E+00, 0.1065E+00, 0.1081E+00, 0.1097E+00,& - 0.1117E+00, 0.1133E+00, 0.1149E+00, 0.1165E+00,& - 0.1185E+00, 0.1201E+00, 0.1221E+00, 0.1237E+00,& - 0.1256E+00, 0.1272E+00, 0.1292E+00, 0.1312E+00,& - 0.1332E+00, 0.1352E+00, 0.1372E+00, 0.1392E+00,& - 0.1412E+00, 0.1432E+00, 0.1456E+00, 0.1476E+00,& - 0.1496E+00, 0.1520E+00, 0.1540E+00, 0.1564E+00,& - 0.1588E+00, 0.1611E+00, 0.1631E+00, 0.1655E+00,& - 0.1679E+00, 0.1707E+00, 0.1731E+00, 0.1755E+00,& - 0.1779E+00, 0.1807E+00, 0.1831E+00, 0.1859E+00,& - 0.1887E+00, 0.1911E+00, 0.1939E+00, 0.1966E+00,& - 0.1994E+00, 0.2022E+00, 0.2054E+00, 0.2082E+00,& - 0.2110E+00, 0.2142E+00, 0.2170E+00, 0.2202E+00,& - 0.2234E+00, 0.2266E+00, 0.2297E+00, 0.2329E+00,& - 0.2361E+00, 0.2393E+00, 0.2429E+00, 0.2461E+00,& - 0.2497E+00, 0.2533E+00, 0.2569E+00, 0.2605E+00,& - 0.2640E+00, 0.2676E+00, 0.2712E+00, 0.2752E+00,& - 0.2788E+00, 0.2828E+00, 0.2868E+00, 0.2908E+00,& - 0.2948E+00, 0.2987E+00, 0.3027E+00, 0.3071E+00,& - 0.3115E+00, 0.3155E+00, 0.3199E+00, 0.3243E+00,& - 0.3287E+00, 0.3334E+00, 0.3378E+00, 0.3426E+00,& - 0.3470E+00, 0.3518E+00, 0.3566E+00, 0.3614E+00,& - 0.3666E+00, 0.3713E+00, 0.3765E+00, 0.3813E+00,& - 0.3865E+00, 0.3921E+00, 0.3973E+00, 0.4025E+00,& - 0.4080E+00, 0.4136E+00, 0.4192E+00, 0.4248E+00,& - 0.4304E+00, 0.4360E+00, 0.4419E+00, 0.4479E+00,& - 0.4539E+00, 0.4599E+00, 0.4663E+00, 0.4722E+00,& - 0.4786E+00, 0.4850E+00, 0.4914E+00, 0.4982E+00,& - 0.5046E+00, 0.5113E+00, 0.5181E+00, 0.5249E+00,& - 0.5321E+00, 0.5389E+00, 0.5460E+00, 0.5532E+00,& - 0.5608E+00, 0.5680E+00, 0.5756E+00, 0.5831E+00,& - 0.5907E+00, 0.5987E+00, 0.6067E+00, 0.6146E+00,& - 0.6226E+00, 0.6306E+00, 0.6390E+00, 0.6473E+00,& - 0.6557E+00, 0.6645E+00, 0.6733E+00, 0.6820E+00,& - 0.6908E+00, 0.7000E+00, 0.7088E+00, 0.7183E+00,& - 0.7275E+00, 0.7371E+00, 0.7467E+00, 0.7562E+00,& - 0.7662E+00, 0.7762E+00, 0.7861E+00, 0.7965E+00,& - 0.8069E+00, 0.8173E+00, 0.8280E+00, 0.8384E+00,& - 0.8496E+00, 0.8603E+00, 0.8715E+00, 0.8831E+00,& - 0.8942E+00, 0.9058E+00, 0.9178E+00, 0.9293E+00,& - 0.9413E+00, 0.9537E+00, 0.9660E+00, 0.9784E+00,& - 0.9912E+00, 0.1004E+01, 0.1017E+01, 0.1030E+01,& - 0.1043E+01, 0.1057E+01, 0.1070E+01, 0.1084E+01,& - 0.1098E+01, 0.1112E+01, 0.1126E+01, 0.1141E+01,& - 0.1155E+01, 0.1171E+01, 0.1185E+01, 0.1201E+01,& - 0.1216E+01, 0.1232E+01, 0.1248E+01, 0.1264E+01,& - 0.1280E+01, 0.1297E+01, 0.1313E+01, 0.1330E+01,& - 0.1347E+01, 0.1364E+01, 0.1382E+01, 0.1400E+01,& - 0.1418E+01, 0.1436E+01, 0.1455E+01, 0.1474E+01,& - 0.1493E+01, 0.1512E+01, 0.1531E+01, 0.1551E+01,& - 0.1571E+01, 0.1591E+01, 0.1612E+01, 0.1633E+01,& - 0.1654E+01, 0.1676E+01, 0.1697E+01, 0.1719E+01,& - 0.1741E+01, 0.1764E+01, 0.1787E+01, 0.1810E+01,& - 0.1834E+01, 0.1857E+01, 0.1882E+01, 0.1906E+01,& - 0.1931E+01, 0.1956E+01, 0.1982E+01, 0.2007E+01,& - 0.2034E+01, 0.2060E+01, 0.2088E+01, 0.2115E+01,& - 0.2143E+01, 0.2171E+01, 0.2199E+01, 0.2228E+01,& - 0.2258E+01, 0.2287E+01, 0.2318E+01, 0.2348E+01,& - 0.2380E+01, 0.2411E+01, 0.2443E+01, 0.2476E+01,& - 0.2509E+01, 0.2542E+01, 0.2576E+01, 0.2610E+01,& - 0.2646E+01, 0.2681E+01, 0.2717E+01, 0.2754E+01,& - 0.2791E+01, 0.2829E+01, 0.2867E+01, 0.2906E+01,& - 0.2946E+01, 0.2986E+01, 0.3026E+01, 0.3068E+01,& - 0.3110E+01, 0.3153E+01, 0.3196E+01, 0.3241E+01,& - 0.3285E+01, 0.3331E+01, 0.3377E+01, 0.3425E+01,& - 0.3473E+01, 0.3521E+01, 0.3571E+01, 0.3622E+01,& - 0.3673E+01, 0.3725E+01, 0.3778E+01, 0.3832E+01,& - 0.3887E+01, 0.3943E+01, 0.4000E+01, 0.4058E+01,& - 0.4118E+01, 0.4178E+01, 0.4239E+01, 0.4302E+01,& - 0.4365E+01, 0.4430E+01, 0.4496E+01, 0.4564E+01,& - 0.4633E+01, 0.4702E+01, 0.4774E+01, 0.4847E+01,& - 0.4922E+01, 0.4998E+01, 0.5075E+01, 0.5154E+01,& - 0.5235E+01, 0.5318E+01, 0.5403E+01, 0.5489E+01,& - 0.5578E+01, 0.5668E+01, 0.5761E+01, 0.5855E+01,& - 0.5952E+01, 0.6051E+01, 0.6153E+01, 0.6257E+01,& - 0.6364E+01, 0.6473E+01, 0.6586E+01, 0.6701E+01,& - 0.6820E+01, 0.6942E+01, 0.7067E+01, 0.7196E+01,& - 0.7328E+01, 0.7464E+01, 0.7605E+01, 0.7750E+01,& - 0.7900E+01, 0.8054E+01, 0.8214E+01, 0.8378E+01,& - 0.8549E+01, 0.8726E+01, 0.8909E+01, 0.9100E+01,& - 0.9297E+01, 0.9503E+01, 0.9718E+01, 0.9941E+01,& - 0.1017E+02, 0.1042E+02, 0.1068E+02, 0.1094E+02,& - 0.1123E+02, 0.1153E+02, 0.1184E+02, 0.1218E+02,& - 0.1253E+02, 0.1292E+02, 0.1332E+02, 0.1377E+02,& - 0.1424E+02, 0.1477E+02, 0.1534E+02, 0.1598E+02,& - 0.1670E+02, 0.1752E+02, 0.1848E+02, 0.1964E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,121) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.4147E-03,& - 0.4147E-03, 0.4147E-03, 0.4147E-03, 0.4147E-03,& - 0.4147E-03, 0.4147E-03, 0.4147E-03, 0.4147E-03,& - 0.4147E-03, 0.4147E-03, 0.4147E-03, 0.4147E-03,& - 0.4147E-03, 0.4147E-03, 0.4147E-03, 0.4147E-03,& - 0.4147E-03, 0.4147E-03, 0.4147E-03, 0.4147E-03,& - 0.4147E-03, 0.4147E-03, 0.4147E-03, 0.4147E-03,& - 0.4147E-03, 0.8195E-03, 0.8195E-03, 0.8195E-03,& - 0.8195E-03, 0.8195E-03, 0.8195E-03, 0.8195E-03,& - 0.8195E-03, 0.8195E-03, 0.8195E-03, 0.8195E-03,& - 0.8195E-03, 0.8195E-03, 0.8195E-03, 0.8195E-03,& - 0.8195E-03, 0.8195E-03, 0.1224E-02, 0.1224E-02,& - 0.1224E-02, 0.1224E-02, 0.1224E-02, 0.1224E-02,& - 0.1224E-02, 0.1224E-02, 0.1224E-02, 0.1224E-02,& - 0.1224E-02, 0.1224E-02, 0.1629E-02, 0.1629E-02,& - 0.1629E-02, 0.1629E-02, 0.1629E-02, 0.1629E-02,& - 0.1629E-02, 0.1629E-02, 0.1629E-02, 0.1629E-02,& - 0.2034E-02, 0.2034E-02, 0.2034E-02, 0.2034E-02,& - 0.2034E-02, 0.2034E-02, 0.2034E-02, 0.2034E-02,& - 0.2438E-02, 0.2438E-02, 0.2438E-02, 0.2438E-02,& - 0.2438E-02, 0.2438E-02, 0.2438E-02, 0.2843E-02,& - 0.2843E-02, 0.2843E-02, 0.2843E-02, 0.2843E-02,& - 0.2843E-02, 0.2843E-02, 0.3248E-02, 0.3248E-02,& - 0.3248E-02, 0.3248E-02, 0.3248E-02, 0.3653E-02,& - 0.3653E-02, 0.3653E-02, 0.3653E-02, 0.3653E-02,& - 0.4057E-02, 0.4057E-02, 0.4057E-02, 0.4057E-02,& - 0.4057E-02, 0.4462E-02, 0.4462E-02, 0.4462E-02,& - 0.4462E-02, 0.4867E-02, 0.4867E-02, 0.4867E-02,& - 0.4867E-02, 0.5272E-02, 0.5272E-02, 0.5272E-02,& - 0.5676E-02, 0.5676E-02, 0.5676E-02, 0.5676E-02,& - 0.6081E-02, 0.6081E-02, 0.6081E-02, 0.6486E-02,& - 0.6486E-02, 0.6486E-02, 0.6891E-02, 0.6891E-02,& - 0.6891E-02, 0.7295E-02, 0.7295E-02, 0.7295E-02,& - 0.7700E-02, 0.7700E-02, 0.8105E-02, 0.8105E-02,& - 0.8105E-02, 0.8510E-02, 0.8510E-02, 0.8914E-02,& - 0.8914E-02, 0.9319E-02, 0.9319E-02, 0.9319E-02,& - 0.9724E-02, 0.9724E-02, 0.1013E-01, 0.1013E-01,& - 0.1053E-01, 0.1053E-01, 0.1094E-01, 0.1094E-01,& - 0.1134E-01, 0.1134E-01, 0.1175E-01, 0.1215E-01,& - 0.1215E-01, 0.1256E-01, 0.1256E-01, 0.1296E-01,& - 0.1296E-01, 0.1337E-01, 0.1377E-01, 0.1377E-01,& - 0.1418E-01, 0.1458E-01, 0.1458E-01, 0.1499E-01,& - 0.1539E-01, 0.1539E-01, 0.1579E-01, 0.1620E-01,& - 0.1660E-01, 0.1660E-01, 0.1701E-01, 0.1741E-01,& - 0.1782E-01, 0.1782E-01, 0.1822E-01, 0.1863E-01,& - 0.1903E-01, 0.1944E-01, 0.1984E-01, 0.2025E-01,& - 0.2025E-01, 0.2065E-01, 0.2106E-01, 0.2146E-01,& - 0.2187E-01, 0.2227E-01, 0.2268E-01, 0.2308E-01,& - 0.2348E-01, 0.2389E-01, 0.2429E-01, 0.2470E-01,& - 0.2510E-01, 0.2591E-01, 0.2632E-01, 0.2672E-01,& - 0.2713E-01, 0.2753E-01, 0.2794E-01, 0.2875E-01,& - 0.2915E-01, 0.2956E-01, 0.2996E-01, 0.3077E-01,& - 0.3117E-01, 0.3158E-01, 0.3239E-01, 0.3279E-01,& - 0.3320E-01, 0.3401E-01, 0.3441E-01, 0.3522E-01,& - 0.3563E-01, 0.3644E-01, 0.3684E-01, 0.3765E-01,& - 0.3806E-01, 0.3886E-01, 0.3927E-01, 0.4008E-01,& - 0.4089E-01, 0.4170E-01, 0.4210E-01, 0.4291E-01,& - 0.4372E-01, 0.4453E-01, 0.4494E-01, 0.4575E-01,& - 0.4656E-01, 0.4736E-01, 0.4817E-01, 0.4898E-01,& - 0.4979E-01, 0.5060E-01, 0.5141E-01, 0.5222E-01,& - 0.5303E-01, 0.5384E-01, 0.5505E-01, 0.5586E-01,& - 0.5667E-01, 0.5748E-01, 0.5870E-01, 0.5951E-01,& - 0.6032E-01, 0.6153E-01, 0.6234E-01, 0.6355E-01,& - 0.6436E-01, 0.6558E-01, 0.6639E-01, 0.6760E-01,& - 0.6882E-01, 0.6963E-01, 0.7084E-01, 0.7205E-01,& - 0.7327E-01, 0.7408E-01, 0.7529E-01, 0.7651E-01,& - 0.7772E-01, 0.7893E-01, 0.8015E-01, 0.8177E-01,& - 0.8298E-01, 0.8420E-01, 0.8541E-01, 0.8662E-01,& - 0.8824E-01, 0.8946E-01, 0.9108E-01, 0.9229E-01,& - 0.9391E-01, 0.9512E-01, 0.9674E-01, 0.9796E-01,& - 0.9958E-01, 0.1012E+00, 0.1028E+00, 0.1044E+00,& - 0.1061E+00, 0.1077E+00, 0.1093E+00, 0.1109E+00,& - 0.1125E+00, 0.1141E+00, 0.1162E+00, 0.1178E+00,& - 0.1194E+00, 0.1214E+00, 0.1231E+00, 0.1251E+00,& - 0.1271E+00, 0.1287E+00, 0.1307E+00, 0.1328E+00,& - 0.1348E+00, 0.1368E+00, 0.1388E+00, 0.1409E+00,& - 0.1429E+00, 0.1449E+00, 0.1473E+00, 0.1494E+00,& - 0.1514E+00, 0.1538E+00, 0.1562E+00, 0.1583E+00,& - 0.1607E+00, 0.1631E+00, 0.1655E+00, 0.1680E+00,& - 0.1704E+00, 0.1728E+00, 0.1753E+00, 0.1781E+00,& - 0.1805E+00, 0.1834E+00, 0.1858E+00, 0.1886E+00,& - 0.1915E+00, 0.1939E+00, 0.1967E+00, 0.1995E+00,& - 0.2024E+00, 0.2056E+00, 0.2085E+00, 0.2113E+00,& - 0.2145E+00, 0.2174E+00, 0.2206E+00, 0.2238E+00,& - 0.2271E+00, 0.2303E+00, 0.2335E+00, 0.2368E+00,& - 0.2400E+00, 0.2437E+00, 0.2469E+00, 0.2505E+00,& - 0.2542E+00, 0.2578E+00, 0.2615E+00, 0.2651E+00,& - 0.2688E+00, 0.2724E+00, 0.2764E+00, 0.2801E+00,& - 0.2841E+00, 0.2882E+00, 0.2922E+00, 0.2963E+00,& - 0.3003E+00, 0.3048E+00, 0.3088E+00, 0.3133E+00,& - 0.3177E+00, 0.3218E+00, 0.3262E+00, 0.3311E+00,& - 0.3355E+00, 0.3400E+00, 0.3448E+00, 0.3497E+00,& - 0.3546E+00, 0.3594E+00, 0.3643E+00, 0.3691E+00,& - 0.3744E+00, 0.3797E+00, 0.3845E+00, 0.3898E+00,& - 0.3954E+00, 0.4007E+00, 0.4060E+00, 0.4116E+00,& - 0.4173E+00, 0.4230E+00, 0.4286E+00, 0.4347E+00,& - 0.4404E+00, 0.4464E+00, 0.4525E+00, 0.4586E+00,& - 0.4647E+00, 0.4711E+00, 0.4776E+00, 0.4841E+00,& - 0.4906E+00, 0.4970E+00, 0.5039E+00, 0.5104E+00,& - 0.5173E+00, 0.5241E+00, 0.5314E+00, 0.5383E+00,& - 0.5456E+00, 0.5529E+00, 0.5606E+00, 0.5679E+00,& - 0.5755E+00, 0.5832E+00, 0.5909E+00, 0.5990E+00,& - 0.6067E+00, 0.6148E+00, 0.6229E+00, 0.6314E+00,& - 0.6399E+00, 0.6484E+00, 0.6569E+00, 0.6654E+00,& - 0.6743E+00, 0.6832E+00, 0.6925E+00, 0.7014E+00,& - 0.7107E+00, 0.7200E+00, 0.7298E+00, 0.7395E+00,& - 0.7492E+00, 0.7589E+00, 0.7690E+00, 0.7791E+00,& - 0.7893E+00, 0.7998E+00, 0.8103E+00, 0.8208E+00,& - 0.8317E+00, 0.8427E+00, 0.8536E+00, 0.8649E+00,& - 0.8763E+00, 0.8876E+00, 0.8993E+00, 0.9111E+00,& - 0.9228E+00, 0.9350E+00, 0.9471E+00, 0.9596E+00,& - 0.9722E+00, 0.9851E+00, 0.9977E+00, 0.1011E+01,& - 0.1024E+01, 0.1037E+01, 0.1051E+01, 0.1065E+01,& - 0.1079E+01, 0.1093E+01, 0.1107E+01, 0.1122E+01,& - 0.1136E+01, 0.1151E+01, 0.1166E+01, 0.1181E+01,& - 0.1196E+01, 0.1212E+01, 0.1228E+01, 0.1244E+01,& - 0.1260E+01, 0.1277E+01, 0.1293E+01, 0.1310E+01,& - 0.1327E+01, 0.1345E+01, 0.1362E+01, 0.1380E+01,& - 0.1398E+01, 0.1416E+01, 0.1434E+01, 0.1453E+01,& - 0.1472E+01, 0.1491E+01, 0.1511E+01, 0.1531E+01,& - 0.1551E+01, 0.1571E+01, 0.1591E+01, 0.1612E+01,& - 0.1634E+01, 0.1655E+01, 0.1677E+01, 0.1699E+01,& - 0.1721E+01, 0.1744E+01, 0.1766E+01, 0.1790E+01,& - 0.1813E+01, 0.1837E+01, 0.1861E+01, 0.1886E+01,& - 0.1911E+01, 0.1936E+01, 0.1961E+01, 0.1988E+01,& - 0.2014E+01, 0.2040E+01, 0.2067E+01, 0.2095E+01,& - 0.2123E+01, 0.2151E+01, 0.2180E+01, 0.2209E+01,& - 0.2238E+01, 0.2268E+01, 0.2299E+01, 0.2329E+01,& - 0.2360E+01, 0.2392E+01, 0.2424E+01, 0.2457E+01,& - 0.2490E+01, 0.2524E+01, 0.2558E+01, 0.2592E+01,& - 0.2628E+01, 0.2663E+01, 0.2700E+01, 0.2736E+01,& - 0.2774E+01, 0.2812E+01, 0.2850E+01, 0.2889E+01,& - 0.2929E+01, 0.2970E+01, 0.3010E+01, 0.3052E+01,& - 0.3095E+01, 0.3138E+01, 0.3182E+01, 0.3226E+01,& - 0.3271E+01, 0.3317E+01, 0.3364E+01, 0.3411E+01,& - 0.3460E+01, 0.3509E+01, 0.3559E+01, 0.3609E+01,& - 0.3661E+01, 0.3714E+01, 0.3767E+01, 0.3822E+01,& - 0.3877E+01, 0.3934E+01, 0.3991E+01, 0.4050E+01,& - 0.4109E+01, 0.4170E+01, 0.4232E+01, 0.4295E+01,& - 0.4359E+01, 0.4425E+01, 0.4491E+01, 0.4560E+01,& - 0.4629E+01, 0.4700E+01, 0.4772E+01, 0.4846E+01,& - 0.4921E+01, 0.4998E+01, 0.5076E+01, 0.5156E+01,& - 0.5238E+01, 0.5322E+01, 0.5407E+01, 0.5494E+01,& - 0.5583E+01, 0.5675E+01, 0.5768E+01, 0.5864E+01,& - 0.5962E+01, 0.6062E+01, 0.6165E+01, 0.6271E+01,& - 0.6379E+01, 0.6490E+01, 0.6603E+01, 0.6720E+01,& - 0.6840E+01, 0.6963E+01, 0.7090E+01, 0.7220E+01,& - 0.7354E+01, 0.7493E+01, 0.7635E+01, 0.7782E+01,& - 0.7933E+01, 0.8090E+01, 0.8251E+01, 0.8418E+01,& - 0.8591E+01, 0.8770E+01, 0.8956E+01, 0.9149E+01,& - 0.9349E+01, 0.9558E+01, 0.9775E+01, 0.1000E+02,& - 0.1024E+02, 0.1049E+02, 0.1075E+02, 0.1102E+02,& - 0.1131E+02, 0.1161E+02, 0.1193E+02, 0.1227E+02,& - 0.1263E+02, 0.1302E+02, 0.1344E+02, 0.1388E+02,& - 0.1437E+02, 0.1490E+02, 0.1548E+02, 0.1613E+02,& - 0.1686E+02, 0.1770E+02, 0.1868E+02, 0.1985E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,122) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.4207E-03, 0.4207E-03, 0.4207E-03, 0.4207E-03,& - 0.4207E-03, 0.4207E-03, 0.4207E-03, 0.4207E-03,& - 0.4207E-03, 0.4207E-03, 0.4207E-03, 0.4207E-03,& - 0.4207E-03, 0.4207E-03, 0.4207E-03, 0.4207E-03,& - 0.4207E-03, 0.4207E-03, 0.4207E-03, 0.4207E-03,& - 0.4207E-03, 0.4207E-03, 0.4207E-03, 0.4207E-03,& - 0.4207E-03, 0.4207E-03, 0.4207E-03, 0.8314E-03,& - 0.8314E-03, 0.8314E-03, 0.8314E-03, 0.8314E-03,& - 0.8314E-03, 0.8314E-03, 0.8314E-03, 0.8314E-03,& - 0.8314E-03, 0.8314E-03, 0.8314E-03, 0.8314E-03,& - 0.8314E-03, 0.8314E-03, 0.8314E-03, 0.8314E-03,& - 0.1242E-02, 0.1242E-02, 0.1242E-02, 0.1242E-02,& - 0.1242E-02, 0.1242E-02, 0.1242E-02, 0.1242E-02,& - 0.1242E-02, 0.1242E-02, 0.1242E-02, 0.1242E-02,& - 0.1653E-02, 0.1653E-02, 0.1653E-02, 0.1653E-02,& - 0.1653E-02, 0.1653E-02, 0.1653E-02, 0.1653E-02,& - 0.1653E-02, 0.1653E-02, 0.2063E-02, 0.2063E-02,& - 0.2063E-02, 0.2063E-02, 0.2063E-02, 0.2063E-02,& - 0.2063E-02, 0.2063E-02, 0.2474E-02, 0.2474E-02,& - 0.2474E-02, 0.2474E-02, 0.2474E-02, 0.2474E-02,& - 0.2474E-02, 0.2885E-02, 0.2885E-02, 0.2885E-02,& - 0.2885E-02, 0.2885E-02, 0.2885E-02, 0.3295E-02,& - 0.3295E-02, 0.3295E-02, 0.3295E-02, 0.3295E-02,& - 0.3295E-02, 0.3706E-02, 0.3706E-02, 0.3706E-02,& - 0.3706E-02, 0.3706E-02, 0.4117E-02, 0.4117E-02,& - 0.4117E-02, 0.4117E-02, 0.4527E-02, 0.4527E-02,& - 0.4527E-02, 0.4527E-02, 0.4938E-02, 0.4938E-02,& - 0.4938E-02, 0.4938E-02, 0.5349E-02, 0.5349E-02,& - 0.5349E-02, 0.5349E-02, 0.5759E-02, 0.5759E-02,& - 0.5759E-02, 0.6170E-02, 0.6170E-02, 0.6170E-02,& - 0.6581E-02, 0.6581E-02, 0.6581E-02, 0.6991E-02,& - 0.6991E-02, 0.6991E-02, 0.7402E-02, 0.7402E-02,& - 0.7402E-02, 0.7813E-02, 0.7813E-02, 0.7813E-02,& - 0.8224E-02, 0.8224E-02, 0.8634E-02, 0.8634E-02,& - 0.8634E-02, 0.9045E-02, 0.9045E-02, 0.9456E-02,& - 0.9456E-02, 0.9866E-02, 0.9866E-02, 0.1028E-01,& - 0.1028E-01, 0.1069E-01, 0.1069E-01, 0.1110E-01,& - 0.1110E-01, 0.1151E-01, 0.1151E-01, 0.1192E-01,& - 0.1192E-01, 0.1233E-01, 0.1274E-01, 0.1274E-01,& - 0.1315E-01, 0.1315E-01, 0.1356E-01, 0.1397E-01,& - 0.1397E-01, 0.1438E-01, 0.1479E-01, 0.1479E-01,& - 0.1521E-01, 0.1562E-01, 0.1562E-01, 0.1603E-01,& - 0.1644E-01, 0.1644E-01, 0.1685E-01, 0.1726E-01,& - 0.1767E-01, 0.1808E-01, 0.1808E-01, 0.1849E-01,& - 0.1890E-01, 0.1931E-01, 0.1972E-01, 0.2013E-01,& - 0.2013E-01, 0.2054E-01, 0.2095E-01, 0.2137E-01,& - 0.2178E-01, 0.2219E-01, 0.2260E-01, 0.2301E-01,& - 0.2342E-01, 0.2383E-01, 0.2424E-01, 0.2465E-01,& - 0.2506E-01, 0.2547E-01, 0.2629E-01, 0.2670E-01,& - 0.2711E-01, 0.2753E-01, 0.2794E-01, 0.2835E-01,& - 0.2917E-01, 0.2958E-01, 0.2999E-01, 0.3040E-01,& - 0.3122E-01, 0.3163E-01, 0.3204E-01, 0.3286E-01,& - 0.3327E-01, 0.3369E-01, 0.3451E-01, 0.3492E-01,& - 0.3574E-01, 0.3615E-01, 0.3697E-01, 0.3738E-01,& - 0.3820E-01, 0.3902E-01, 0.3943E-01, 0.4026E-01,& - 0.4067E-01, 0.4149E-01, 0.4231E-01, 0.4313E-01,& - 0.4354E-01, 0.4436E-01, 0.4518E-01, 0.4601E-01,& - 0.4683E-01, 0.4765E-01, 0.4806E-01, 0.4888E-01,& - 0.4970E-01, 0.5052E-01, 0.5176E-01, 0.5258E-01,& - 0.5340E-01, 0.5422E-01, 0.5504E-01, 0.5586E-01,& - 0.5668E-01, 0.5792E-01, 0.5874E-01, 0.5956E-01,& - 0.6079E-01, 0.6161E-01, 0.6284E-01, 0.6366E-01,& - 0.6490E-01, 0.6572E-01, 0.6695E-01, 0.6777E-01,& - 0.6900E-01, 0.7024E-01, 0.7106E-01, 0.7229E-01,& - 0.7352E-01, 0.7475E-01, 0.7599E-01, 0.7722E-01,& - 0.7845E-01, 0.7968E-01, 0.8091E-01, 0.8215E-01,& - 0.8338E-01, 0.8461E-01, 0.8625E-01, 0.8748E-01,& - 0.8872E-01, 0.9036E-01, 0.9159E-01, 0.9323E-01,& - 0.9447E-01, 0.9611E-01, 0.9734E-01, 0.9898E-01,& - 0.1006E+00, 0.1023E+00, 0.1039E+00, 0.1051E+00,& - 0.1068E+00, 0.1084E+00, 0.1105E+00, 0.1121E+00,& - 0.1138E+00, 0.1154E+00, 0.1171E+00, 0.1191E+00,& - 0.1207E+00, 0.1228E+00, 0.1244E+00, 0.1265E+00,& - 0.1286E+00, 0.1302E+00, 0.1322E+00, 0.1343E+00,& - 0.1364E+00, 0.1384E+00, 0.1405E+00, 0.1425E+00,& - 0.1446E+00, 0.1470E+00, 0.1491E+00, 0.1511E+00,& - 0.1536E+00, 0.1561E+00, 0.1581E+00, 0.1606E+00,& - 0.1630E+00, 0.1655E+00, 0.1680E+00, 0.1704E+00,& - 0.1729E+00, 0.1754E+00, 0.1778E+00, 0.1807E+00,& - 0.1832E+00, 0.1860E+00, 0.1885E+00, 0.1914E+00,& - 0.1943E+00, 0.1971E+00, 0.2000E+00, 0.2029E+00,& - 0.2058E+00, 0.2086E+00, 0.2119E+00, 0.2148E+00,& - 0.2181E+00, 0.2214E+00, 0.2242E+00, 0.2275E+00,& - 0.2308E+00, 0.2341E+00, 0.2378E+00, 0.2411E+00,& - 0.2444E+00, 0.2481E+00, 0.2518E+00, 0.2550E+00,& - 0.2587E+00, 0.2624E+00, 0.2661E+00, 0.2702E+00,& - 0.2739E+00, 0.2776E+00, 0.2817E+00, 0.2858E+00,& - 0.2899E+00, 0.2941E+00, 0.2982E+00, 0.3023E+00,& - 0.3064E+00, 0.3109E+00, 0.3154E+00, 0.3195E+00,& - 0.3240E+00, 0.3286E+00, 0.3335E+00, 0.3380E+00,& - 0.3429E+00, 0.3474E+00, 0.3524E+00, 0.3573E+00,& - 0.3622E+00, 0.3672E+00, 0.3725E+00, 0.3774E+00,& - 0.3828E+00, 0.3881E+00, 0.3934E+00, 0.3988E+00,& - 0.4045E+00, 0.4103E+00, 0.4156E+00, 0.4214E+00,& - 0.4271E+00, 0.4333E+00, 0.4390E+00, 0.4452E+00,& - 0.4513E+00, 0.4575E+00, 0.4637E+00, 0.4702E+00,& - 0.4764E+00, 0.4830E+00, 0.4895E+00, 0.4961E+00,& - 0.5031E+00, 0.5101E+00, 0.5166E+00, 0.5240E+00,& - 0.5310E+00, 0.5384E+00, 0.5454E+00, 0.5528E+00,& - 0.5606E+00, 0.5680E+00, 0.5758E+00, 0.5836E+00,& - 0.5914E+00, 0.5992E+00, 0.6074E+00, 0.6156E+00,& - 0.6238E+00, 0.6325E+00, 0.6407E+00, 0.6493E+00,& - 0.6579E+00, 0.6669E+00, 0.6760E+00, 0.6850E+00,& - 0.6941E+00, 0.7035E+00, 0.7129E+00, 0.7224E+00,& - 0.7322E+00, 0.7417E+00, 0.7515E+00, 0.7618E+00,& - 0.7721E+00, 0.7823E+00, 0.7926E+00, 0.8033E+00,& - 0.8140E+00, 0.8246E+00, 0.8357E+00, 0.8468E+00,& - 0.8579E+00, 0.8694E+00, 0.8809E+00, 0.8928E+00,& - 0.9047E+00, 0.9166E+00, 0.9290E+00, 0.9413E+00,& - 0.9536E+00, 0.9663E+00, 0.9791E+00, 0.9918E+00,& - 0.1005E+01, 0.1018E+01, 0.1032E+01, 0.1046E+01,& - 0.1059E+01, 0.1074E+01, 0.1087E+01, 0.1102E+01,& - 0.1117E+01, 0.1131E+01, 0.1146E+01, 0.1161E+01,& - 0.1177E+01, 0.1192E+01, 0.1208E+01, 0.1224E+01,& - 0.1240E+01, 0.1257E+01, 0.1273E+01, 0.1290E+01,& - 0.1307E+01, 0.1324E+01, 0.1342E+01, 0.1359E+01,& - 0.1377E+01, 0.1395E+01, 0.1414E+01, 0.1433E+01,& - 0.1452E+01, 0.1471E+01, 0.1490E+01, 0.1510E+01,& - 0.1530E+01, 0.1550E+01, 0.1571E+01, 0.1592E+01,& - 0.1613E+01, 0.1635E+01, 0.1656E+01, 0.1678E+01,& - 0.1700E+01, 0.1723E+01, 0.1746E+01, 0.1769E+01,& - 0.1793E+01, 0.1816E+01, 0.1841E+01, 0.1865E+01,& - 0.1890E+01, 0.1915E+01, 0.1941E+01, 0.1967E+01,& - 0.1993E+01, 0.2020E+01, 0.2047E+01, 0.2075E+01,& - 0.2103E+01, 0.2131E+01, 0.2160E+01, 0.2189E+01,& - 0.2218E+01, 0.2248E+01, 0.2279E+01, 0.2310E+01,& - 0.2341E+01, 0.2373E+01, 0.2405E+01, 0.2438E+01,& - 0.2471E+01, 0.2503E+01, 0.2539E+01, 0.2574E+01,& - 0.2609E+01, 0.2645E+01, 0.2682E+01, 0.2719E+01,& - 0.2756E+01, 0.2794E+01, 0.2833E+01, 0.2872E+01,& - 0.2913E+01, 0.2953E+01, 0.2994E+01, 0.3036E+01,& - 0.3079E+01, 0.3122E+01, 0.3166E+01, 0.3211E+01,& - 0.3256E+01, 0.3303E+01, 0.3349E+01, 0.3398E+01,& - 0.3446E+01, 0.3496E+01, 0.3546E+01, 0.3597E+01,& - 0.3649E+01, 0.3702E+01, 0.3756E+01, 0.3811E+01,& - 0.3867E+01, 0.3924E+01, 0.3982E+01, 0.4041E+01,& - 0.4101E+01, 0.4162E+01, 0.4225E+01, 0.4288E+01,& - 0.4353E+01, 0.4419E+01, 0.4486E+01, 0.4555E+01,& - 0.4625E+01, 0.4695E+01, 0.4769E+01, 0.4844E+01,& - 0.4919E+01, 0.4997E+01, 0.5076E+01, 0.5157E+01,& - 0.5239E+01, 0.5324E+01, 0.5410E+01, 0.5499E+01,& - 0.5589E+01, 0.5681E+01, 0.5776E+01, 0.5872E+01,& - 0.5971E+01, 0.6073E+01, 0.6177E+01, 0.6283E+01,& - 0.6393E+01, 0.6505E+01, 0.6620E+01, 0.6738E+01,& - 0.6859E+01, 0.6984E+01, 0.7112E+01, 0.7244E+01,& - 0.7380E+01, 0.7519E+01, 0.7664E+01, 0.7812E+01,& - 0.7965E+01, 0.8124E+01, 0.8288E+01, 0.8457E+01,& - 0.8632E+01, 0.8814E+01, 0.9002E+01, 0.9198E+01,& - 0.9401E+01, 0.9612E+01, 0.9832E+01, 0.1006E+02,& - 0.1030E+02, 0.1055E+02, 0.1082E+02, 0.1109E+02,& - 0.1139E+02, 0.1169E+02, 0.1202E+02, 0.1236E+02,& - 0.1273E+02, 0.1312E+02, 0.1355E+02, 0.1400E+02,& - 0.1449E+02, 0.1503E+02, 0.1563E+02, 0.1629E+02,& - 0.1703E+02, 0.1788E+02, 0.1887E+02, 0.2006E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,123) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.4267E-03, 0.4267E-03,& - 0.4267E-03, 0.4267E-03, 0.4267E-03, 0.4267E-03,& - 0.4267E-03, 0.4267E-03, 0.4267E-03, 0.4267E-03,& - 0.4267E-03, 0.4267E-03, 0.4267E-03, 0.4267E-03,& - 0.4267E-03, 0.4267E-03, 0.4267E-03, 0.4267E-03,& - 0.4267E-03, 0.4267E-03, 0.4267E-03, 0.4267E-03,& - 0.4267E-03, 0.4267E-03, 0.4267E-03, 0.4267E-03,& - 0.4267E-03, 0.8433E-03, 0.8433E-03, 0.8433E-03,& - 0.8433E-03, 0.8433E-03, 0.8433E-03, 0.8433E-03,& - 0.8433E-03, 0.8433E-03, 0.8433E-03, 0.8433E-03,& - 0.8433E-03, 0.8433E-03, 0.8433E-03, 0.8433E-03,& - 0.8433E-03, 0.1260E-02, 0.1260E-02, 0.1260E-02,& - 0.1260E-02, 0.1260E-02, 0.1260E-02, 0.1260E-02,& - 0.1260E-02, 0.1260E-02, 0.1260E-02, 0.1260E-02,& - 0.1260E-02, 0.1260E-02, 0.1677E-02, 0.1677E-02,& - 0.1677E-02, 0.1677E-02, 0.1677E-02, 0.1677E-02,& - 0.1677E-02, 0.1677E-02, 0.1677E-02, 0.2093E-02,& - 0.2093E-02, 0.2093E-02, 0.2093E-02, 0.2093E-02,& - 0.2093E-02, 0.2093E-02, 0.2093E-02, 0.2093E-02,& - 0.2510E-02, 0.2510E-02, 0.2510E-02, 0.2510E-02,& - 0.2510E-02, 0.2510E-02, 0.2927E-02, 0.2927E-02,& - 0.2927E-02, 0.2927E-02, 0.2927E-02, 0.2927E-02,& - 0.2927E-02, 0.3343E-02, 0.3343E-02, 0.3343E-02,& - 0.3343E-02, 0.3343E-02, 0.3760E-02, 0.3760E-02,& - 0.3760E-02, 0.3760E-02, 0.3760E-02, 0.4177E-02,& - 0.4177E-02, 0.4177E-02, 0.4177E-02, 0.4177E-02,& - 0.4593E-02, 0.4593E-02, 0.4593E-02, 0.4593E-02,& - 0.5010E-02, 0.5010E-02, 0.5010E-02, 0.5010E-02,& - 0.5427E-02, 0.5427E-02, 0.5427E-02, 0.5843E-02,& - 0.5843E-02, 0.5843E-02, 0.5843E-02, 0.6260E-02,& - 0.6260E-02, 0.6260E-02, 0.6677E-02, 0.6677E-02,& - 0.6677E-02, 0.7093E-02, 0.7093E-02, 0.7093E-02,& - 0.7510E-02, 0.7510E-02, 0.7927E-02, 0.7927E-02,& - 0.7927E-02, 0.8343E-02, 0.8343E-02, 0.8760E-02,& - 0.8760E-02, 0.8760E-02, 0.9177E-02, 0.9177E-02,& - 0.9593E-02, 0.9593E-02, 0.1001E-01, 0.1001E-01,& - 0.1043E-01, 0.1043E-01, 0.1084E-01, 0.1084E-01,& - 0.1126E-01, 0.1126E-01, 0.1168E-01, 0.1168E-01,& - 0.1209E-01, 0.1209E-01, 0.1251E-01, 0.1251E-01,& - 0.1293E-01, 0.1334E-01, 0.1334E-01, 0.1376E-01,& - 0.1376E-01, 0.1418E-01, 0.1459E-01, 0.1459E-01,& - 0.1501E-01, 0.1543E-01, 0.1543E-01, 0.1584E-01,& - 0.1626E-01, 0.1668E-01, 0.1668E-01, 0.1709E-01,& - 0.1751E-01, 0.1793E-01, 0.1793E-01, 0.1834E-01,& - 0.1876E-01, 0.1918E-01, 0.1959E-01, 0.2001E-01,& - 0.2043E-01, 0.2043E-01, 0.2084E-01, 0.2126E-01,& - 0.2168E-01, 0.2209E-01, 0.2251E-01, 0.2293E-01,& - 0.2334E-01, 0.2376E-01, 0.2418E-01, 0.2459E-01,& - 0.2501E-01, 0.2543E-01, 0.2584E-01, 0.2668E-01,& - 0.2709E-01, 0.2751E-01, 0.2793E-01, 0.2834E-01,& - 0.2876E-01, 0.2959E-01, 0.3001E-01, 0.3043E-01,& - 0.3126E-01, 0.3168E-01, 0.3209E-01, 0.3293E-01,& - 0.3334E-01, 0.3376E-01, 0.3459E-01, 0.3501E-01,& - 0.3584E-01, 0.3626E-01, 0.3709E-01, 0.3751E-01,& - 0.3834E-01, 0.3876E-01, 0.3959E-01, 0.4043E-01,& - 0.4084E-01, 0.4168E-01, 0.4251E-01, 0.4293E-01,& - 0.4376E-01, 0.4459E-01, 0.4543E-01, 0.4584E-01,& - 0.4668E-01, 0.4751E-01, 0.4834E-01, 0.4918E-01,& - 0.5001E-01, 0.5084E-01, 0.5168E-01, 0.5251E-01,& - 0.5334E-01, 0.5459E-01, 0.5543E-01, 0.5626E-01,& - 0.5709E-01, 0.5793E-01, 0.5918E-01, 0.6001E-01,& - 0.6084E-01, 0.6209E-01, 0.6293E-01, 0.6418E-01,& - 0.6501E-01, 0.6626E-01, 0.6709E-01, 0.6834E-01,& - 0.6959E-01, 0.7043E-01, 0.7168E-01, 0.7293E-01,& - 0.7418E-01, 0.7543E-01, 0.7668E-01, 0.7793E-01,& - 0.7918E-01, 0.8043E-01, 0.8168E-01, 0.8293E-01,& - 0.8418E-01, 0.8543E-01, 0.8668E-01, 0.8834E-01,& - 0.8959E-01, 0.9126E-01, 0.9251E-01, 0.9418E-01,& - 0.9543E-01, 0.9709E-01, 0.9834E-01, 0.1000E+00,& - 0.1017E+00, 0.1033E+00, 0.1050E+00, 0.1063E+00,& - 0.1079E+00, 0.1096E+00, 0.1117E+00, 0.1133E+00,& - 0.1150E+00, 0.1167E+00, 0.1188E+00, 0.1204E+00,& - 0.1221E+00, 0.1242E+00, 0.1263E+00, 0.1279E+00,& - 0.1300E+00, 0.1321E+00, 0.1342E+00, 0.1358E+00,& - 0.1379E+00, 0.1400E+00, 0.1425E+00, 0.1446E+00,& - 0.1467E+00, 0.1488E+00, 0.1513E+00, 0.1533E+00,& - 0.1558E+00, 0.1579E+00, 0.1604E+00, 0.1629E+00,& - 0.1654E+00, 0.1679E+00, 0.1704E+00, 0.1729E+00,& - 0.1754E+00, 0.1779E+00, 0.1808E+00, 0.1833E+00,& - 0.1863E+00, 0.1888E+00, 0.1917E+00, 0.1946E+00,& - 0.1975E+00, 0.2004E+00, 0.2033E+00, 0.2063E+00,& - 0.2092E+00, 0.2125E+00, 0.2154E+00, 0.2188E+00,& - 0.2221E+00, 0.2250E+00, 0.2283E+00, 0.2317E+00,& - 0.2350E+00, 0.2388E+00, 0.2421E+00, 0.2454E+00,& - 0.2492E+00, 0.2529E+00, 0.2563E+00, 0.2600E+00,& - 0.2638E+00, 0.2679E+00, 0.2717E+00, 0.2754E+00,& - 0.2796E+00, 0.2833E+00, 0.2875E+00, 0.2917E+00,& - 0.2958E+00, 0.3000E+00, 0.3042E+00, 0.3088E+00,& - 0.3129E+00, 0.3175E+00, 0.3221E+00, 0.3267E+00,& - 0.3313E+00, 0.3358E+00, 0.3408E+00, 0.3454E+00,& - 0.3504E+00, 0.3554E+00, 0.3604E+00, 0.3654E+00,& - 0.3708E+00, 0.3758E+00, 0.3813E+00, 0.3867E+00,& - 0.3921E+00, 0.3975E+00, 0.4029E+00, 0.4088E+00,& - 0.4142E+00, 0.4200E+00, 0.4258E+00, 0.4321E+00,& - 0.4379E+00, 0.4442E+00, 0.4500E+00, 0.4563E+00,& - 0.4629E+00, 0.4692E+00, 0.4758E+00, 0.4821E+00,& - 0.4888E+00, 0.4958E+00, 0.5025E+00, 0.5096E+00,& - 0.5167E+00, 0.5238E+00, 0.5308E+00, 0.5379E+00,& - 0.5454E+00, 0.5529E+00, 0.5604E+00, 0.5683E+00,& - 0.5758E+00, 0.5838E+00, 0.5921E+00, 0.6000E+00,& - 0.6083E+00, 0.6167E+00, 0.6250E+00, 0.6333E+00,& - 0.6421E+00, 0.6508E+00, 0.6596E+00, 0.6687E+00,& - 0.6775E+00, 0.6871E+00, 0.6962E+00, 0.7058E+00,& - 0.7154E+00, 0.7250E+00, 0.7346E+00, 0.7446E+00,& - 0.7546E+00, 0.7650E+00, 0.7754E+00, 0.7858E+00,& - 0.7962E+00, 0.8071E+00, 0.8179E+00, 0.8292E+00,& - 0.8400E+00, 0.8517E+00, 0.8629E+00, 0.8746E+00,& - 0.8862E+00, 0.8983E+00, 0.9104E+00, 0.9225E+00,& - 0.9350E+00, 0.9475E+00, 0.9604E+00, 0.9733E+00,& - 0.9862E+00, 0.9996E+00, 0.1013E+01, 0.1026E+01,& - 0.1040E+01, 0.1054E+01, 0.1068E+01, 0.1082E+01,& - 0.1097E+01, 0.1112E+01, 0.1127E+01, 0.1142E+01,& - 0.1157E+01, 0.1172E+01, 0.1188E+01, 0.1204E+01,& - 0.1220E+01, 0.1237E+01, 0.1253E+01, 0.1270E+01,& - 0.1287E+01, 0.1304E+01, 0.1322E+01, 0.1339E+01,& - 0.1357E+01, 0.1375E+01, 0.1394E+01, 0.1412E+01,& - 0.1431E+01, 0.1450E+01, 0.1470E+01, 0.1490E+01,& - 0.1510E+01, 0.1530E+01, 0.1550E+01, 0.1571E+01,& - 0.1592E+01, 0.1614E+01, 0.1635E+01, 0.1657E+01,& - 0.1680E+01, 0.1702E+01, 0.1725E+01, 0.1748E+01,& - 0.1772E+01, 0.1796E+01, 0.1820E+01, 0.1845E+01,& - 0.1870E+01, 0.1895E+01, 0.1921E+01, 0.1947E+01,& - 0.1973E+01, 0.2000E+01, 0.2027E+01, 0.2055E+01,& - 0.2082E+01, 0.2111E+01, 0.2140E+01, 0.2169E+01,& - 0.2198E+01, 0.2229E+01, 0.2259E+01, 0.2290E+01,& - 0.2322E+01, 0.2353E+01, 0.2386E+01, 0.2419E+01,& - 0.2452E+01, 0.2486E+01, 0.2520E+01, 0.2555E+01,& - 0.2591E+01, 0.2627E+01, 0.2663E+01, 0.2700E+01,& - 0.2738E+01, 0.2777E+01, 0.2815E+01, 0.2855E+01,& - 0.2895E+01, 0.2936E+01, 0.2977E+01, 0.3020E+01,& - 0.3062E+01, 0.3106E+01, 0.3150E+01, 0.3195E+01,& - 0.3241E+01, 0.3287E+01, 0.3335E+01, 0.3383E+01,& - 0.3432E+01, 0.3482E+01, 0.3532E+01, 0.3584E+01,& - 0.3637E+01, 0.3690E+01, 0.3744E+01, 0.3800E+01,& - 0.3856E+01, 0.3913E+01, 0.3972E+01, 0.4031E+01,& - 0.4092E+01, 0.4153E+01, 0.4216E+01, 0.4280E+01,& - 0.4346E+01, 0.4412E+01, 0.4480E+01, 0.4550E+01,& - 0.4620E+01, 0.4692E+01, 0.4766E+01, 0.4841E+01,& - 0.4917E+01, 0.4996E+01, 0.5076E+01, 0.5157E+01,& - 0.5241E+01, 0.5326E+01, 0.5413E+01, 0.5502E+01,& - 0.5593E+01, 0.5687E+01, 0.5782E+01, 0.5880E+01,& - 0.5980E+01, 0.6082E+01, 0.6187E+01, 0.6295E+01,& - 0.6406E+01, 0.6519E+01, 0.6635E+01, 0.6755E+01,& - 0.6878E+01, 0.7004E+01, 0.7134E+01, 0.7267E+01,& - 0.7404E+01, 0.7546E+01, 0.7692E+01, 0.7842E+01,& - 0.7997E+01, 0.8158E+01, 0.8324E+01, 0.8495E+01,& - 0.8673E+01, 0.8857E+01, 0.9047E+01, 0.9245E+01,& - 0.9451E+01, 0.9665E+01, 0.9889E+01, 0.1012E+02,& - 0.1037E+02, 0.1062E+02, 0.1089E+02, 0.1117E+02,& - 0.1146E+02, 0.1178E+02, 0.1211E+02, 0.1246E+02,& - 0.1283E+02, 0.1323E+02, 0.1366E+02, 0.1412E+02,& - 0.1462E+02, 0.1517E+02, 0.1577E+02, 0.1644E+02,& - 0.1719E+02, 0.1805E+02, 0.1906E+02, 0.2028E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,124) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.4327E-03, 0.4327E-03, 0.4327E-03, 0.4327E-03,& - 0.4327E-03, 0.4327E-03, 0.4327E-03, 0.4327E-03,& - 0.4327E-03, 0.4327E-03, 0.4327E-03, 0.4327E-03,& - 0.4327E-03, 0.4327E-03, 0.4327E-03, 0.4327E-03,& - 0.4327E-03, 0.4327E-03, 0.4327E-03, 0.4327E-03,& - 0.4327E-03, 0.4327E-03, 0.4327E-03, 0.4327E-03,& - 0.4327E-03, 0.4327E-03, 0.8554E-03, 0.8554E-03,& - 0.8554E-03, 0.8554E-03, 0.8554E-03, 0.8554E-03,& - 0.8554E-03, 0.8554E-03, 0.8554E-03, 0.8554E-03,& - 0.8554E-03, 0.8554E-03, 0.8554E-03, 0.8554E-03,& - 0.8554E-03, 0.8554E-03, 0.8554E-03, 0.1278E-02,& - 0.1278E-02, 0.1278E-02, 0.1278E-02, 0.1278E-02,& - 0.1278E-02, 0.1278E-02, 0.1278E-02, 0.1278E-02,& - 0.1278E-02, 0.1278E-02, 0.1278E-02, 0.1701E-02,& - 0.1701E-02, 0.1701E-02, 0.1701E-02, 0.1701E-02,& - 0.1701E-02, 0.1701E-02, 0.1701E-02, 0.1701E-02,& - 0.1701E-02, 0.2123E-02, 0.2123E-02, 0.2123E-02,& - 0.2123E-02, 0.2123E-02, 0.2123E-02, 0.2123E-02,& - 0.2123E-02, 0.2546E-02, 0.2546E-02, 0.2546E-02,& - 0.2546E-02, 0.2546E-02, 0.2546E-02, 0.2546E-02,& - 0.2969E-02, 0.2969E-02, 0.2969E-02, 0.2969E-02,& - 0.2969E-02, 0.2969E-02, 0.3392E-02, 0.3392E-02,& - 0.3392E-02, 0.3392E-02, 0.3392E-02, 0.3392E-02,& - 0.3814E-02, 0.3814E-02, 0.3814E-02, 0.3814E-02,& - 0.4237E-02, 0.4237E-02, 0.4237E-02, 0.4237E-02,& - 0.4237E-02, 0.4660E-02, 0.4660E-02, 0.4660E-02,& - 0.4660E-02, 0.5082E-02, 0.5082E-02, 0.5082E-02,& - 0.5082E-02, 0.5505E-02, 0.5505E-02, 0.5505E-02,& - 0.5505E-02, 0.5928E-02, 0.5928E-02, 0.5928E-02,& - 0.6350E-02, 0.6350E-02, 0.6350E-02, 0.6773E-02,& - 0.6773E-02, 0.6773E-02, 0.7196E-02, 0.7196E-02,& - 0.7196E-02, 0.7618E-02, 0.7618E-02, 0.7618E-02,& - 0.8041E-02, 0.8041E-02, 0.8464E-02, 0.8464E-02,& - 0.8464E-02, 0.8887E-02, 0.8887E-02, 0.9309E-02,& - 0.9309E-02, 0.9732E-02, 0.9732E-02, 0.9732E-02,& - 0.1015E-01, 0.1015E-01, 0.1058E-01, 0.1058E-01,& - 0.1100E-01, 0.1100E-01, 0.1142E-01, 0.1185E-01,& - 0.1185E-01, 0.1227E-01, 0.1227E-01, 0.1269E-01,& - 0.1269E-01, 0.1311E-01, 0.1354E-01, 0.1354E-01,& - 0.1396E-01, 0.1396E-01, 0.1438E-01, 0.1480E-01,& - 0.1480E-01, 0.1523E-01, 0.1565E-01, 0.1565E-01,& - 0.1607E-01, 0.1649E-01, 0.1692E-01, 0.1692E-01,& - 0.1734E-01, 0.1776E-01, 0.1819E-01, 0.1819E-01,& - 0.1861E-01, 0.1903E-01, 0.1945E-01, 0.1988E-01,& - 0.2030E-01, 0.2072E-01, 0.2072E-01, 0.2114E-01,& - 0.2157E-01, 0.2199E-01, 0.2241E-01, 0.2284E-01,& - 0.2326E-01, 0.2368E-01, 0.2410E-01, 0.2453E-01,& - 0.2495E-01, 0.2537E-01, 0.2622E-01, 0.2664E-01,& - 0.2706E-01, 0.2748E-01, 0.2791E-01, 0.2833E-01,& - 0.2875E-01, 0.2960E-01, 0.3002E-01, 0.3044E-01,& - 0.3087E-01, 0.3171E-01, 0.3213E-01, 0.3256E-01,& - 0.3340E-01, 0.3383E-01, 0.3467E-01, 0.3509E-01,& - 0.3594E-01, 0.3636E-01, 0.3678E-01, 0.3763E-01,& - 0.3847E-01, 0.3890E-01, 0.3974E-01, 0.4017E-01,& - 0.4101E-01, 0.4186E-01, 0.4228E-01, 0.4312E-01,& - 0.4397E-01, 0.4482E-01, 0.4524E-01, 0.4608E-01,& - 0.4693E-01, 0.4777E-01, 0.4862E-01, 0.4946E-01,& - 0.5031E-01, 0.5116E-01, 0.5200E-01, 0.5285E-01,& - 0.5369E-01, 0.5454E-01, 0.5538E-01, 0.5665E-01,& - 0.5750E-01, 0.5834E-01, 0.5961E-01, 0.6045E-01,& - 0.6130E-01, 0.6257E-01, 0.6341E-01, 0.6468E-01,& - 0.6553E-01, 0.6680E-01, 0.6764E-01, 0.6891E-01,& - 0.7018E-01, 0.7102E-01, 0.7229E-01, 0.7356E-01,& - 0.7483E-01, 0.7609E-01, 0.7694E-01, 0.7821E-01,& - 0.7948E-01, 0.8074E-01, 0.8243E-01, 0.8370E-01,& - 0.8497E-01, 0.8624E-01, 0.8751E-01, 0.8920E-01,& - 0.9047E-01, 0.9216E-01, 0.9342E-01, 0.9512E-01,& - 0.9638E-01, 0.9807E-01, 0.9934E-01, 0.1010E+00,& - 0.1027E+00, 0.1044E+00, 0.1061E+00, 0.1078E+00,& - 0.1095E+00, 0.1112E+00, 0.1129E+00, 0.1146E+00,& - 0.1163E+00, 0.1184E+00, 0.1201E+00, 0.1217E+00,& - 0.1239E+00, 0.1260E+00, 0.1277E+00, 0.1298E+00,& - 0.1319E+00, 0.1336E+00, 0.1357E+00, 0.1378E+00,& - 0.1399E+00, 0.1420E+00, 0.1446E+00, 0.1467E+00,& - 0.1488E+00, 0.1509E+00, 0.1534E+00, 0.1556E+00,& - 0.1581E+00, 0.1606E+00, 0.1632E+00, 0.1653E+00,& - 0.1678E+00, 0.1704E+00, 0.1729E+00, 0.1758E+00,& - 0.1784E+00, 0.1809E+00, 0.1839E+00, 0.1864E+00,& - 0.1894E+00, 0.1923E+00, 0.1949E+00, 0.1978E+00,& - 0.2008E+00, 0.2037E+00, 0.2071E+00, 0.2101E+00,& - 0.2130E+00, 0.2164E+00, 0.2194E+00, 0.2228E+00,& - 0.2262E+00, 0.2295E+00, 0.2329E+00, 0.2363E+00,& - 0.2397E+00, 0.2435E+00, 0.2469E+00, 0.2507E+00,& - 0.2540E+00, 0.2579E+00, 0.2617E+00, 0.2655E+00,& - 0.2693E+00, 0.2731E+00, 0.2773E+00, 0.2811E+00,& - 0.2853E+00, 0.2896E+00, 0.2938E+00, 0.2980E+00,& - 0.3022E+00, 0.3065E+00, 0.3111E+00, 0.3153E+00,& - 0.3200E+00, 0.3246E+00, 0.3293E+00, 0.3339E+00,& - 0.3390E+00, 0.3437E+00, 0.3487E+00, 0.3538E+00,& - 0.3589E+00, 0.3639E+00, 0.3690E+00, 0.3741E+00,& - 0.3796E+00, 0.3851E+00, 0.3906E+00, 0.3961E+00,& - 0.4016E+00, 0.4071E+00, 0.4130E+00, 0.4189E+00,& - 0.4248E+00, 0.4307E+00, 0.4367E+00, 0.4430E+00,& - 0.4493E+00, 0.4557E+00, 0.4620E+00, 0.4684E+00,& - 0.4751E+00, 0.4819E+00, 0.4882E+00, 0.4954E+00,& - 0.5022E+00, 0.5094E+00, 0.5161E+00, 0.5233E+00,& - 0.5309E+00, 0.5381E+00, 0.5457E+00, 0.5533E+00,& - 0.5609E+00, 0.5685E+00, 0.5766E+00, 0.5846E+00,& - 0.5926E+00, 0.6011E+00, 0.6091E+00, 0.6176E+00,& - 0.6260E+00, 0.6349E+00, 0.6433E+00, 0.6522E+00,& - 0.6615E+00, 0.6704E+00, 0.6797E+00, 0.6890E+00,& - 0.6987E+00, 0.7080E+00, 0.7177E+00, 0.7279E+00,& - 0.7376E+00, 0.7478E+00, 0.7579E+00, 0.7685E+00,& - 0.7790E+00, 0.7896E+00, 0.8006E+00, 0.8112E+00,& - 0.8226E+00, 0.8336E+00, 0.8450E+00, 0.8564E+00,& - 0.8682E+00, 0.8801E+00, 0.8919E+00, 0.9041E+00,& - 0.9164E+00, 0.9291E+00, 0.9418E+00, 0.9544E+00,& - 0.9676E+00, 0.9807E+00, 0.9938E+00, 0.1007E+01,& - 0.1021E+01, 0.1035E+01, 0.1049E+01, 0.1063E+01,& - 0.1077E+01, 0.1092E+01, 0.1107E+01, 0.1122E+01,& - 0.1137E+01, 0.1153E+01, 0.1168E+01, 0.1184E+01,& - 0.1200E+01, 0.1217E+01, 0.1233E+01, 0.1249E+01,& - 0.1267E+01, 0.1284E+01, 0.1301E+01, 0.1319E+01,& - 0.1337E+01, 0.1355E+01, 0.1373E+01, 0.1392E+01,& - 0.1411E+01, 0.1430E+01, 0.1449E+01, 0.1469E+01,& - 0.1489E+01, 0.1509E+01, 0.1530E+01, 0.1550E+01,& - 0.1572E+01, 0.1593E+01, 0.1615E+01, 0.1637E+01,& - 0.1659E+01, 0.1681E+01, 0.1704E+01, 0.1728E+01,& - 0.1751E+01, 0.1775E+01, 0.1799E+01, 0.1824E+01,& - 0.1849E+01, 0.1874E+01, 0.1900E+01, 0.1926E+01,& - 0.1952E+01, 0.1979E+01, 0.2007E+01, 0.2034E+01,& - 0.2062E+01, 0.2091E+01, 0.2119E+01, 0.2149E+01,& - 0.2178E+01, 0.2209E+01, 0.2239E+01, 0.2270E+01,& - 0.2302E+01, 0.2334E+01, 0.2366E+01, 0.2399E+01,& - 0.2433E+01, 0.2466E+01, 0.2501E+01, 0.2536E+01,& - 0.2572E+01, 0.2608E+01, 0.2645E+01, 0.2682E+01,& - 0.2720E+01, 0.2758E+01, 0.2797E+01, 0.2837E+01,& - 0.2878E+01, 0.2919E+01, 0.2961E+01, 0.3003E+01,& - 0.3046E+01, 0.3089E+01, 0.3134E+01, 0.3180E+01,& - 0.3226E+01, 0.3272E+01, 0.3320E+01, 0.3368E+01,& - 0.3417E+01, 0.3468E+01, 0.3519E+01, 0.3570E+01,& - 0.3623E+01, 0.3677E+01, 0.3732E+01, 0.3788E+01,& - 0.3844E+01, 0.3902E+01, 0.3961E+01, 0.4021E+01,& - 0.4082E+01, 0.4144E+01, 0.4207E+01, 0.4272E+01,& - 0.4338E+01, 0.4405E+01, 0.4474E+01, 0.4544E+01,& - 0.4615E+01, 0.4688E+01, 0.4762E+01, 0.4838E+01,& - 0.4915E+01, 0.4994E+01, 0.5074E+01, 0.5157E+01,& - 0.5241E+01, 0.5327E+01, 0.5415E+01, 0.5505E+01,& - 0.5597E+01, 0.5692E+01, 0.5788E+01, 0.5887E+01,& - 0.5988E+01, 0.6091E+01, 0.6198E+01, 0.6307E+01,& - 0.6418E+01, 0.6533E+01, 0.6651E+01, 0.6772E+01,& - 0.6895E+01, 0.7023E+01, 0.7154E+01, 0.7289E+01,& - 0.7428E+01, 0.7572E+01, 0.7719E+01, 0.7872E+01,& - 0.8029E+01, 0.8191E+01, 0.8359E+01, 0.8532E+01,& - 0.8713E+01, 0.8899E+01, 0.9092E+01, 0.9292E+01,& - 0.9501E+01, 0.9718E+01, 0.9944E+01, 0.1018E+02,& - 0.1043E+02, 0.1069E+02, 0.1096E+02, 0.1124E+02,& - 0.1154E+02, 0.1186E+02, 0.1219E+02, 0.1255E+02,& - 0.1293E+02, 0.1333E+02, 0.1377E+02, 0.1423E+02,& - 0.1474E+02, 0.1530E+02, 0.1591E+02, 0.1659E+02,& - 0.1736E+02, 0.1823E+02, 0.1926E+02, 0.2049E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,125) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.4388E-03, 0.4388E-03, 0.4388E-03,& - 0.4388E-03, 0.4388E-03, 0.4388E-03, 0.4388E-03,& - 0.4388E-03, 0.4388E-03, 0.4388E-03, 0.4388E-03,& - 0.4388E-03, 0.4388E-03, 0.4388E-03, 0.4388E-03,& - 0.4388E-03, 0.4388E-03, 0.4388E-03, 0.4388E-03,& - 0.4388E-03, 0.4388E-03, 0.4388E-03, 0.4388E-03,& - 0.4388E-03, 0.4388E-03, 0.4388E-03, 0.4388E-03,& - 0.8675E-03, 0.8675E-03, 0.8675E-03, 0.8675E-03,& - 0.8675E-03, 0.8675E-03, 0.8675E-03, 0.8675E-03,& - 0.8675E-03, 0.8675E-03, 0.8675E-03, 0.8675E-03,& - 0.8675E-03, 0.8675E-03, 0.8675E-03, 0.8675E-03,& - 0.8675E-03, 0.1296E-02, 0.1296E-02, 0.1296E-02,& - 0.1296E-02, 0.1296E-02, 0.1296E-02, 0.1296E-02,& - 0.1296E-02, 0.1296E-02, 0.1296E-02, 0.1296E-02,& - 0.1296E-02, 0.1725E-02, 0.1725E-02, 0.1725E-02,& - 0.1725E-02, 0.1725E-02, 0.1725E-02, 0.1725E-02,& - 0.1725E-02, 0.1725E-02, 0.2154E-02, 0.2154E-02,& - 0.2154E-02, 0.2154E-02, 0.2154E-02, 0.2154E-02,& - 0.2154E-02, 0.2154E-02, 0.2583E-02, 0.2583E-02,& - 0.2583E-02, 0.2583E-02, 0.2583E-02, 0.2583E-02,& - 0.2583E-02, 0.3011E-02, 0.3011E-02, 0.3011E-02,& - 0.3011E-02, 0.3011E-02, 0.3011E-02, 0.3440E-02,& - 0.3440E-02, 0.3440E-02, 0.3440E-02, 0.3440E-02,& - 0.3440E-02, 0.3869E-02, 0.3869E-02, 0.3869E-02,& - 0.3869E-02, 0.3869E-02, 0.4298E-02, 0.4298E-02,& - 0.4298E-02, 0.4298E-02, 0.4726E-02, 0.4726E-02,& - 0.4726E-02, 0.4726E-02, 0.5155E-02, 0.5155E-02,& - 0.5155E-02, 0.5155E-02, 0.5584E-02, 0.5584E-02,& - 0.5584E-02, 0.5584E-02, 0.6013E-02, 0.6013E-02,& - 0.6013E-02, 0.6442E-02, 0.6442E-02, 0.6442E-02,& - 0.6870E-02, 0.6870E-02, 0.6870E-02, 0.7299E-02,& - 0.7299E-02, 0.7299E-02, 0.7728E-02, 0.7728E-02,& - 0.7728E-02, 0.8157E-02, 0.8157E-02, 0.8585E-02,& - 0.8585E-02, 0.8585E-02, 0.9014E-02, 0.9014E-02,& - 0.9443E-02, 0.9443E-02, 0.9872E-02, 0.9872E-02,& - 0.9872E-02, 0.1030E-01, 0.1030E-01, 0.1073E-01,& - 0.1073E-01, 0.1116E-01, 0.1116E-01, 0.1159E-01,& - 0.1159E-01, 0.1202E-01, 0.1244E-01, 0.1244E-01,& - 0.1287E-01, 0.1287E-01, 0.1330E-01, 0.1330E-01,& - 0.1373E-01, 0.1416E-01, 0.1416E-01, 0.1459E-01,& - 0.1502E-01, 0.1502E-01, 0.1545E-01, 0.1587E-01,& - 0.1587E-01, 0.1630E-01, 0.1673E-01, 0.1716E-01,& - 0.1716E-01, 0.1759E-01, 0.1802E-01, 0.1845E-01,& - 0.1888E-01, 0.1888E-01, 0.1930E-01, 0.1973E-01,& - 0.2016E-01, 0.2059E-01, 0.2102E-01, 0.2145E-01,& - 0.2145E-01, 0.2188E-01, 0.2231E-01, 0.2273E-01,& - 0.2316E-01, 0.2359E-01, 0.2402E-01, 0.2445E-01,& - 0.2488E-01, 0.2574E-01, 0.2617E-01, 0.2659E-01,& - 0.2702E-01, 0.2745E-01, 0.2788E-01, 0.2831E-01,& - 0.2917E-01, 0.2960E-01, 0.3002E-01, 0.3045E-01,& - 0.3131E-01, 0.3174E-01, 0.3217E-01, 0.3260E-01,& - 0.3345E-01, 0.3388E-01, 0.3474E-01, 0.3517E-01,& - 0.3603E-01, 0.3646E-01, 0.3688E-01, 0.3774E-01,& - 0.3860E-01, 0.3903E-01, 0.3989E-01, 0.4031E-01,& - 0.4117E-01, 0.4203E-01, 0.4246E-01, 0.4332E-01,& - 0.4417E-01, 0.4503E-01, 0.4546E-01, 0.4632E-01,& - 0.4717E-01, 0.4803E-01, 0.4889E-01, 0.4975E-01,& - 0.5061E-01, 0.5146E-01, 0.5232E-01, 0.5318E-01,& - 0.5404E-01, 0.5489E-01, 0.5575E-01, 0.5704E-01,& - 0.5789E-01, 0.5875E-01, 0.5961E-01, 0.6090E-01,& - 0.6175E-01, 0.6304E-01, 0.6390E-01, 0.6518E-01,& - 0.6604E-01, 0.6733E-01, 0.6818E-01, 0.6947E-01,& - 0.7076E-01, 0.7161E-01, 0.7290E-01, 0.7419E-01,& - 0.7547E-01, 0.7676E-01, 0.7805E-01, 0.7933E-01,& - 0.8062E-01, 0.8191E-01, 0.8319E-01, 0.8448E-01,& - 0.8576E-01, 0.8705E-01, 0.8877E-01, 0.9005E-01,& - 0.9134E-01, 0.9305E-01, 0.9434E-01, 0.9605E-01,& - 0.9734E-01, 0.9906E-01, 0.1008E+00, 0.1025E+00,& - 0.1038E+00, 0.1055E+00, 0.1072E+00, 0.1089E+00,& - 0.1106E+00, 0.1123E+00, 0.1145E+00, 0.1162E+00,& - 0.1179E+00, 0.1196E+00, 0.1218E+00, 0.1235E+00,& - 0.1256E+00, 0.1274E+00, 0.1295E+00, 0.1316E+00,& - 0.1338E+00, 0.1355E+00, 0.1376E+00, 0.1398E+00,& - 0.1419E+00, 0.1445E+00, 0.1467E+00, 0.1488E+00,& - 0.1514E+00, 0.1535E+00, 0.1557E+00, 0.1582E+00,& - 0.1608E+00, 0.1634E+00, 0.1655E+00, 0.1681E+00,& - 0.1707E+00, 0.1732E+00, 0.1762E+00, 0.1788E+00,& - 0.1814E+00, 0.1844E+00, 0.1870E+00, 0.1900E+00,& - 0.1930E+00, 0.1955E+00, 0.1985E+00, 0.2015E+00,& - 0.2045E+00, 0.2080E+00, 0.2110E+00, 0.2140E+00,& - 0.2174E+00, 0.2204E+00, 0.2238E+00, 0.2273E+00,& - 0.2307E+00, 0.2341E+00, 0.2375E+00, 0.2410E+00,& - 0.2444E+00, 0.2483E+00, 0.2521E+00, 0.2556E+00,& - 0.2594E+00, 0.2633E+00, 0.2671E+00, 0.2710E+00,& - 0.2753E+00, 0.2791E+00, 0.2834E+00, 0.2873E+00,& - 0.2916E+00, 0.2959E+00, 0.3002E+00, 0.3049E+00,& - 0.3092E+00, 0.3134E+00, 0.3182E+00, 0.3229E+00,& - 0.3276E+00, 0.3323E+00, 0.3370E+00, 0.3422E+00,& - 0.3469E+00, 0.3520E+00, 0.3572E+00, 0.3623E+00,& - 0.3675E+00, 0.3726E+00, 0.3782E+00, 0.3838E+00,& - 0.3889E+00, 0.3945E+00, 0.4005E+00, 0.4061E+00,& - 0.4121E+00, 0.4176E+00, 0.4236E+00, 0.4296E+00,& - 0.4361E+00, 0.4421E+00, 0.4485E+00, 0.4549E+00,& - 0.4614E+00, 0.4678E+00, 0.4747E+00, 0.4811E+00,& - 0.4880E+00, 0.4948E+00, 0.5021E+00, 0.5090E+00,& - 0.5163E+00, 0.5235E+00, 0.5308E+00, 0.5385E+00,& - 0.5458E+00, 0.5536E+00, 0.5617E+00, 0.5694E+00,& - 0.5776E+00, 0.5857E+00, 0.5939E+00, 0.6020E+00,& - 0.6106E+00, 0.6192E+00, 0.6277E+00, 0.6363E+00,& - 0.6453E+00, 0.6543E+00, 0.6633E+00, 0.6728E+00,& - 0.6822E+00, 0.6916E+00, 0.7011E+00, 0.7109E+00,& - 0.7208E+00, 0.7306E+00, 0.7409E+00, 0.7512E+00,& - 0.7615E+00, 0.7722E+00, 0.7829E+00, 0.7937E+00,& - 0.8048E+00, 0.8160E+00, 0.8271E+00, 0.8387E+00,& - 0.8503E+00, 0.8618E+00, 0.8738E+00, 0.8859E+00,& - 0.8983E+00, 0.9103E+00, 0.9232E+00, 0.9356E+00,& - 0.9485E+00, 0.9617E+00, 0.9750E+00, 0.9883E+00,& - 0.1002E+01, 0.1016E+01, 0.1030E+01, 0.1044E+01,& - 0.1058E+01, 0.1073E+01, 0.1087E+01, 0.1102E+01,& - 0.1118E+01, 0.1133E+01, 0.1149E+01, 0.1164E+01,& - 0.1180E+01, 0.1196E+01, 0.1213E+01, 0.1230E+01,& - 0.1246E+01, 0.1264E+01, 0.1281E+01, 0.1298E+01,& - 0.1316E+01, 0.1334E+01, 0.1353E+01, 0.1371E+01,& - 0.1390E+01, 0.1409E+01, 0.1429E+01, 0.1448E+01,& - 0.1468E+01, 0.1488E+01, 0.1509E+01, 0.1529E+01,& - 0.1551E+01, 0.1572E+01, 0.1594E+01, 0.1616E+01,& - 0.1638E+01, 0.1661E+01, 0.1683E+01, 0.1707E+01,& - 0.1730E+01, 0.1754E+01, 0.1779E+01, 0.1803E+01,& - 0.1828E+01, 0.1854E+01, 0.1879E+01, 0.1905E+01,& - 0.1932E+01, 0.1959E+01, 0.1986E+01, 0.2014E+01,& - 0.2041E+01, 0.2070E+01, 0.2099E+01, 0.2128E+01,& - 0.2158E+01, 0.2188E+01, 0.2219E+01, 0.2250E+01,& - 0.2282E+01, 0.2314E+01, 0.2346E+01, 0.2379E+01,& - 0.2413E+01, 0.2447E+01, 0.2482E+01, 0.2517E+01,& - 0.2552E+01, 0.2589E+01, 0.2626E+01, 0.2663E+01,& - 0.2701E+01, 0.2740E+01, 0.2779E+01, 0.2819E+01,& - 0.2859E+01, 0.2901E+01, 0.2943E+01, 0.2986E+01,& - 0.3029E+01, 0.3073E+01, 0.3118E+01, 0.3163E+01,& - 0.3209E+01, 0.3257E+01, 0.3305E+01, 0.3353E+01,& - 0.3403E+01, 0.3453E+01, 0.3504E+01, 0.3557E+01,& - 0.3610E+01, 0.3664E+01, 0.3719E+01, 0.3775E+01,& - 0.3832E+01, 0.3891E+01, 0.3950E+01, 0.4010E+01,& - 0.4072E+01, 0.4134E+01, 0.4198E+01, 0.4263E+01,& - 0.4330E+01, 0.4397E+01, 0.4467E+01, 0.4537E+01,& - 0.4609E+01, 0.4682E+01, 0.4757E+01, 0.4834E+01,& - 0.4912E+01, 0.4991E+01, 0.5073E+01, 0.5156E+01,& - 0.5241E+01, 0.5328E+01, 0.5417E+01, 0.5508E+01,& - 0.5601E+01, 0.5696E+01, 0.5793E+01, 0.5893E+01,& - 0.5995E+01, 0.6100E+01, 0.6207E+01, 0.6318E+01,& - 0.6430E+01, 0.6546E+01, 0.6665E+01, 0.6787E+01,& - 0.6913E+01, 0.7042E+01, 0.7175E+01, 0.7311E+01,& - 0.7452E+01, 0.7597E+01, 0.7746E+01, 0.7900E+01,& - 0.8059E+01, 0.8224E+01, 0.8394E+01, 0.8569E+01,& - 0.8751E+01, 0.8940E+01, 0.9136E+01, 0.9339E+01,& - 0.9550E+01, 0.9770E+01, 0.9999E+01, 0.1024E+02,& - 0.1049E+02, 0.1075E+02, 0.1103E+02, 0.1131E+02,& - 0.1162E+02, 0.1194E+02, 0.1228E+02, 0.1264E+02,& - 0.1302E+02, 0.1343E+02, 0.1387E+02, 0.1435E+02,& - 0.1487E+02, 0.1543E+02, 0.1605E+02, 0.1674E+02,& - 0.1752E+02, 0.1841E+02, 0.1945E+02, 0.2070E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,126) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.4449E-03,& - 0.4449E-03, 0.4449E-03, 0.4449E-03, 0.4449E-03,& - 0.4449E-03, 0.4449E-03, 0.4449E-03, 0.4449E-03,& - 0.4449E-03, 0.4449E-03, 0.4449E-03, 0.4449E-03,& - 0.4449E-03, 0.4449E-03, 0.4449E-03, 0.4449E-03,& - 0.4449E-03, 0.4449E-03, 0.4449E-03, 0.4449E-03,& - 0.4449E-03, 0.4449E-03, 0.4449E-03, 0.4449E-03,& - 0.4449E-03, 0.4449E-03, 0.8798E-03, 0.8798E-03,& - 0.8798E-03, 0.8798E-03, 0.8798E-03, 0.8798E-03,& - 0.8798E-03, 0.8798E-03, 0.8798E-03, 0.8798E-03,& - 0.8798E-03, 0.8798E-03, 0.8798E-03, 0.8798E-03,& - 0.8798E-03, 0.8798E-03, 0.1315E-02, 0.1315E-02,& - 0.1315E-02, 0.1315E-02, 0.1315E-02, 0.1315E-02,& - 0.1315E-02, 0.1315E-02, 0.1315E-02, 0.1315E-02,& - 0.1315E-02, 0.1315E-02, 0.1750E-02, 0.1750E-02,& - 0.1750E-02, 0.1750E-02, 0.1750E-02, 0.1750E-02,& - 0.1750E-02, 0.1750E-02, 0.1750E-02, 0.1750E-02,& - 0.2184E-02, 0.2184E-02, 0.2184E-02, 0.2184E-02,& - 0.2184E-02, 0.2184E-02, 0.2184E-02, 0.2184E-02,& - 0.2619E-02, 0.2619E-02, 0.2619E-02, 0.2619E-02,& - 0.2619E-02, 0.2619E-02, 0.2619E-02, 0.3054E-02,& - 0.3054E-02, 0.3054E-02, 0.3054E-02, 0.3054E-02,& - 0.3054E-02, 0.3489E-02, 0.3489E-02, 0.3489E-02,& - 0.3489E-02, 0.3489E-02, 0.3924E-02, 0.3924E-02,& - 0.3924E-02, 0.3924E-02, 0.3924E-02, 0.4359E-02,& - 0.4359E-02, 0.4359E-02, 0.4359E-02, 0.4359E-02,& - 0.4794E-02, 0.4794E-02, 0.4794E-02, 0.4794E-02,& - 0.5229E-02, 0.5229E-02, 0.5229E-02, 0.5229E-02,& - 0.5664E-02, 0.5664E-02, 0.5664E-02, 0.6099E-02,& - 0.6099E-02, 0.6099E-02, 0.6533E-02, 0.6533E-02,& - 0.6533E-02, 0.6533E-02, 0.6968E-02, 0.6968E-02,& - 0.6968E-02, 0.7403E-02, 0.7403E-02, 0.7838E-02,& - 0.7838E-02, 0.7838E-02, 0.8273E-02, 0.8273E-02,& - 0.8273E-02, 0.8708E-02, 0.8708E-02, 0.9143E-02,& - 0.9143E-02, 0.9578E-02, 0.9578E-02, 0.9578E-02,& - 0.1001E-01, 0.1001E-01, 0.1045E-01, 0.1045E-01,& - 0.1088E-01, 0.1088E-01, 0.1132E-01, 0.1132E-01,& - 0.1175E-01, 0.1175E-01, 0.1219E-01, 0.1262E-01,& - 0.1262E-01, 0.1306E-01, 0.1306E-01, 0.1349E-01,& - 0.1349E-01, 0.1393E-01, 0.1436E-01, 0.1436E-01,& - 0.1480E-01, 0.1523E-01, 0.1523E-01, 0.1567E-01,& - 0.1610E-01, 0.1610E-01, 0.1654E-01, 0.1697E-01,& - 0.1741E-01, 0.1741E-01, 0.1784E-01, 0.1828E-01,& - 0.1871E-01, 0.1915E-01, 0.1915E-01, 0.1958E-01,& - 0.2002E-01, 0.2045E-01, 0.2089E-01, 0.2132E-01,& - 0.2175E-01, 0.2219E-01, 0.2262E-01, 0.2306E-01,& - 0.2349E-01, 0.2393E-01, 0.2436E-01, 0.2480E-01,& - 0.2523E-01, 0.2567E-01, 0.2610E-01, 0.2654E-01,& - 0.2697E-01, 0.2741E-01, 0.2784E-01, 0.2828E-01,& - 0.2915E-01, 0.2958E-01, 0.3002E-01, 0.3045E-01,& - 0.3132E-01, 0.3176E-01, 0.3219E-01, 0.3306E-01,& - 0.3350E-01, 0.3393E-01, 0.3480E-01, 0.3524E-01,& - 0.3611E-01, 0.3654E-01, 0.3741E-01, 0.3785E-01,& - 0.3872E-01, 0.3915E-01, 0.4002E-01, 0.4046E-01,& - 0.4133E-01, 0.4220E-01, 0.4263E-01, 0.4350E-01,& - 0.4437E-01, 0.4524E-01, 0.4611E-01, 0.4654E-01,& - 0.4741E-01, 0.4828E-01, 0.4915E-01, 0.5002E-01,& - 0.5089E-01, 0.5176E-01, 0.5263E-01, 0.5350E-01,& - 0.5437E-01, 0.5524E-01, 0.5655E-01, 0.5742E-01,& - 0.5829E-01, 0.5916E-01, 0.6046E-01, 0.6133E-01,& - 0.6220E-01, 0.6351E-01, 0.6438E-01, 0.6568E-01,& - 0.6655E-01, 0.6785E-01, 0.6872E-01, 0.7003E-01,& - 0.7133E-01, 0.7264E-01, 0.7351E-01, 0.7481E-01,& - 0.7612E-01, 0.7742E-01, 0.7873E-01, 0.8003E-01,& - 0.8134E-01, 0.8264E-01, 0.8395E-01, 0.8525E-01,& - 0.8655E-01, 0.8829E-01, 0.8960E-01, 0.9090E-01,& - 0.9264E-01, 0.9395E-01, 0.9569E-01, 0.9699E-01,& - 0.9873E-01, 0.1005E+00, 0.1018E+00, 0.1035E+00,& - 0.1053E+00, 0.1070E+00, 0.1087E+00, 0.1105E+00,& - 0.1122E+00, 0.1140E+00, 0.1157E+00, 0.1179E+00,& - 0.1196E+00, 0.1213E+00, 0.1235E+00, 0.1253E+00,& - 0.1274E+00, 0.1296E+00, 0.1313E+00, 0.1335E+00,& - 0.1357E+00, 0.1379E+00, 0.1400E+00, 0.1422E+00,& - 0.1444E+00, 0.1466E+00, 0.1492E+00, 0.1514E+00,& - 0.1535E+00, 0.1561E+00, 0.1583E+00, 0.1609E+00,& - 0.1635E+00, 0.1661E+00, 0.1688E+00, 0.1714E+00,& - 0.1740E+00, 0.1766E+00, 0.1792E+00, 0.1818E+00,& - 0.1848E+00, 0.1875E+00, 0.1905E+00, 0.1935E+00,& - 0.1966E+00, 0.1992E+00, 0.2022E+00, 0.2057E+00,& - 0.2088E+00, 0.2118E+00, 0.2149E+00, 0.2183E+00,& - 0.2218E+00, 0.2249E+00, 0.2283E+00, 0.2318E+00,& - 0.2353E+00, 0.2388E+00, 0.2427E+00, 0.2462E+00,& - 0.2496E+00, 0.2536E+00, 0.2575E+00, 0.2614E+00,& - 0.2653E+00, 0.2692E+00, 0.2731E+00, 0.2770E+00,& - 0.2814E+00, 0.2853E+00, 0.2897E+00, 0.2940E+00,& - 0.2984E+00, 0.3027E+00, 0.3075E+00, 0.3118E+00,& - 0.3166E+00, 0.3210E+00, 0.3257E+00, 0.3305E+00,& - 0.3353E+00, 0.3405E+00, 0.3453E+00, 0.3505E+00,& - 0.3558E+00, 0.3610E+00, 0.3662E+00, 0.3714E+00,& - 0.3766E+00, 0.3823E+00, 0.3879E+00, 0.3936E+00,& - 0.3992E+00, 0.4049E+00, 0.4110E+00, 0.4171E+00,& - 0.4227E+00, 0.4288E+00, 0.4353E+00, 0.4414E+00,& - 0.4480E+00, 0.4545E+00, 0.4610E+00, 0.4675E+00,& - 0.4741E+00, 0.4810E+00, 0.4880E+00, 0.4949E+00,& - 0.5019E+00, 0.5093E+00, 0.5167E+00, 0.5241E+00,& - 0.5315E+00, 0.5389E+00, 0.5467E+00, 0.5545E+00,& - 0.5623E+00, 0.5702E+00, 0.5784E+00, 0.5867E+00,& - 0.5950E+00, 0.6032E+00, 0.6119E+00, 0.6206E+00,& - 0.6293E+00, 0.6384E+00, 0.6471E+00, 0.6563E+00,& - 0.6658E+00, 0.6750E+00, 0.6845E+00, 0.6941E+00,& - 0.7041E+00, 0.7141E+00, 0.7241E+00, 0.7341E+00,& - 0.7446E+00, 0.7550E+00, 0.7654E+00, 0.7763E+00,& - 0.7872E+00, 0.7985E+00, 0.8094E+00, 0.8207E+00,& - 0.8324E+00, 0.8441E+00, 0.8559E+00, 0.8676E+00,& - 0.8798E+00, 0.8920E+00, 0.9046E+00, 0.9172E+00,& - 0.9298E+00, 0.9429E+00, 0.9564E+00, 0.9694E+00,& - 0.9829E+00, 0.9968E+00, 0.1011E+01, 0.1025E+01,& - 0.1039E+01, 0.1053E+01, 0.1068E+01, 0.1083E+01,& - 0.1098E+01, 0.1113E+01, 0.1129E+01, 0.1145E+01,& - 0.1160E+01, 0.1176E+01, 0.1193E+01, 0.1209E+01,& - 0.1226E+01, 0.1243E+01, 0.1261E+01, 0.1278E+01,& - 0.1296E+01, 0.1314E+01, 0.1332E+01, 0.1351E+01,& - 0.1370E+01, 0.1389E+01, 0.1408E+01, 0.1428E+01,& - 0.1447E+01, 0.1468E+01, 0.1488E+01, 0.1509E+01,& - 0.1530E+01, 0.1551E+01, 0.1573E+01, 0.1595E+01,& - 0.1617E+01, 0.1640E+01, 0.1663E+01, 0.1686E+01,& - 0.1709E+01, 0.1733E+01, 0.1757E+01, 0.1782E+01,& - 0.1807E+01, 0.1832E+01, 0.1858E+01, 0.1884E+01,& - 0.1911E+01, 0.1937E+01, 0.1965E+01, 0.1992E+01,& - 0.2021E+01, 0.2049E+01, 0.2078E+01, 0.2108E+01,& - 0.2137E+01, 0.2168E+01, 0.2198E+01, 0.2229E+01,& - 0.2261E+01, 0.2293E+01, 0.2326E+01, 0.2359E+01,& - 0.2393E+01, 0.2427E+01, 0.2462E+01, 0.2497E+01,& - 0.2533E+01, 0.2569E+01, 0.2606E+01, 0.2644E+01,& - 0.2682E+01, 0.2721E+01, 0.2761E+01, 0.2801E+01,& - 0.2841E+01, 0.2883E+01, 0.2925E+01, 0.2968E+01,& - 0.3011E+01, 0.3056E+01, 0.3100E+01, 0.3147E+01,& - 0.3193E+01, 0.3240E+01, 0.3288E+01, 0.3337E+01,& - 0.3387E+01, 0.3438E+01, 0.3490E+01, 0.3542E+01,& - 0.3596E+01, 0.3650E+01, 0.3706E+01, 0.3762E+01,& - 0.3820E+01, 0.3878E+01, 0.3938E+01, 0.3999E+01,& - 0.4061E+01, 0.4124E+01, 0.4189E+01, 0.4254E+01,& - 0.4321E+01, 0.4389E+01, 0.4459E+01, 0.4530E+01,& - 0.4603E+01, 0.4676E+01, 0.4752E+01, 0.4829E+01,& - 0.4908E+01, 0.4988E+01, 0.5071E+01, 0.5154E+01,& - 0.5240E+01, 0.5328E+01, 0.5418E+01, 0.5509E+01,& - 0.5603E+01, 0.5699E+01, 0.5798E+01, 0.5899E+01,& - 0.6002E+01, 0.6108E+01, 0.6216E+01, 0.6327E+01,& - 0.6441E+01, 0.6559E+01, 0.6679E+01, 0.6802E+01,& - 0.6929E+01, 0.7060E+01, 0.7194E+01, 0.7332E+01,& - 0.7475E+01, 0.7621E+01, 0.7772E+01, 0.7928E+01,& - 0.8089E+01, 0.8256E+01, 0.8427E+01, 0.8605E+01,& - 0.8790E+01, 0.8981E+01, 0.9179E+01, 0.9385E+01,& - 0.9599E+01, 0.9822E+01, 0.1005E+02, 0.1030E+02,& - 0.1055E+02, 0.1082E+02, 0.1109E+02, 0.1139E+02,& - 0.1169E+02, 0.1202E+02, 0.1236E+02, 0.1273E+02,& - 0.1312E+02, 0.1354E+02, 0.1398E+02, 0.1447E+02,& - 0.1499E+02, 0.1556E+02, 0.1619E+02, 0.1689E+02,& - 0.1768E+02, 0.1859E+02, 0.1964E+02, 0.2092E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,127) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.4511E-03, 0.4511E-03, 0.4511E-03,& - 0.4511E-03, 0.4511E-03, 0.4511E-03, 0.4511E-03,& - 0.4511E-03, 0.4511E-03, 0.4511E-03, 0.4511E-03,& - 0.4511E-03, 0.4511E-03, 0.4511E-03, 0.4511E-03,& - 0.4511E-03, 0.4511E-03, 0.4511E-03, 0.4511E-03,& - 0.4511E-03, 0.4511E-03, 0.4511E-03, 0.4511E-03,& - 0.4511E-03, 0.4511E-03, 0.4511E-03, 0.8921E-03,& - 0.8921E-03, 0.8921E-03, 0.8921E-03, 0.8921E-03,& - 0.8921E-03, 0.8921E-03, 0.8921E-03, 0.8921E-03,& - 0.8921E-03, 0.8921E-03, 0.8921E-03, 0.8921E-03,& - 0.8921E-03, 0.8921E-03, 0.8921E-03, 0.1333E-02,& - 0.1333E-02, 0.1333E-02, 0.1333E-02, 0.1333E-02,& - 0.1333E-02, 0.1333E-02, 0.1333E-02, 0.1333E-02,& - 0.1333E-02, 0.1333E-02, 0.1333E-02, 0.1333E-02,& - 0.1774E-02, 0.1774E-02, 0.1774E-02, 0.1774E-02,& - 0.1774E-02, 0.1774E-02, 0.1774E-02, 0.1774E-02,& - 0.1774E-02, 0.2215E-02, 0.2215E-02, 0.2215E-02,& - 0.2215E-02, 0.2215E-02, 0.2215E-02, 0.2215E-02,& - 0.2215E-02, 0.2656E-02, 0.2656E-02, 0.2656E-02,& - 0.2656E-02, 0.2656E-02, 0.2656E-02, 0.2656E-02,& - 0.3098E-02, 0.3098E-02, 0.3098E-02, 0.3098E-02,& - 0.3098E-02, 0.3098E-02, 0.3539E-02, 0.3539E-02,& - 0.3539E-02, 0.3539E-02, 0.3539E-02, 0.3980E-02,& - 0.3980E-02, 0.3980E-02, 0.3980E-02, 0.3980E-02,& - 0.4421E-02, 0.4421E-02, 0.4421E-02, 0.4421E-02,& - 0.4421E-02, 0.4862E-02, 0.4862E-02, 0.4862E-02,& - 0.4862E-02, 0.5303E-02, 0.5303E-02, 0.5303E-02,& - 0.5303E-02, 0.5744E-02, 0.5744E-02, 0.5744E-02,& - 0.6185E-02, 0.6185E-02, 0.6185E-02, 0.6185E-02,& - 0.6626E-02, 0.6626E-02, 0.6626E-02, 0.7067E-02,& - 0.7067E-02, 0.7067E-02, 0.7508E-02, 0.7508E-02,& - 0.7949E-02, 0.7949E-02, 0.7949E-02, 0.8390E-02,& - 0.8390E-02, 0.8390E-02, 0.8831E-02, 0.8831E-02,& - 0.9273E-02, 0.9273E-02, 0.9714E-02, 0.9714E-02,& - 0.9714E-02, 0.1015E-01, 0.1015E-01, 0.1060E-01,& - 0.1060E-01, 0.1104E-01, 0.1104E-01, 0.1148E-01,& - 0.1148E-01, 0.1192E-01, 0.1192E-01, 0.1236E-01,& - 0.1280E-01, 0.1280E-01, 0.1324E-01, 0.1324E-01,& - 0.1368E-01, 0.1412E-01, 0.1412E-01, 0.1457E-01,& - 0.1457E-01, 0.1501E-01, 0.1545E-01, 0.1545E-01,& - 0.1589E-01, 0.1633E-01, 0.1677E-01, 0.1677E-01,& - 0.1721E-01, 0.1765E-01, 0.1809E-01, 0.1809E-01,& - 0.1854E-01, 0.1898E-01, 0.1942E-01, 0.1986E-01,& - 0.1986E-01, 0.2030E-01, 0.2074E-01, 0.2118E-01,& - 0.2162E-01, 0.2206E-01, 0.2250E-01, 0.2295E-01,& - 0.2339E-01, 0.2383E-01, 0.2427E-01, 0.2471E-01,& - 0.2515E-01, 0.2559E-01, 0.2603E-01, 0.2647E-01,& - 0.2692E-01, 0.2736E-01, 0.2824E-01, 0.2868E-01,& - 0.2912E-01, 0.2956E-01, 0.3000E-01, 0.3089E-01,& - 0.3133E-01, 0.3177E-01, 0.3221E-01, 0.3309E-01,& - 0.3353E-01, 0.3441E-01, 0.3485E-01, 0.3530E-01,& - 0.3618E-01, 0.3662E-01, 0.3750E-01, 0.3794E-01,& - 0.3882E-01, 0.3927E-01, 0.4015E-01, 0.4103E-01,& - 0.4147E-01, 0.4235E-01, 0.4324E-01, 0.4368E-01,& - 0.4456E-01, 0.4544E-01, 0.4632E-01, 0.4720E-01,& - 0.4765E-01, 0.4853E-01, 0.4941E-01, 0.5029E-01,& - 0.5117E-01, 0.5206E-01, 0.5294E-01, 0.5382E-01,& - 0.5470E-01, 0.5603E-01, 0.5691E-01, 0.5779E-01,& - 0.5867E-01, 0.6000E-01, 0.6088E-01, 0.6176E-01,& - 0.6308E-01, 0.6397E-01, 0.6529E-01, 0.6617E-01,& - 0.6749E-01, 0.6838E-01, 0.6970E-01, 0.7058E-01,& - 0.7191E-01, 0.7323E-01, 0.7455E-01, 0.7587E-01,& - 0.7676E-01, 0.7808E-01, 0.7940E-01, 0.8073E-01,& - 0.8205E-01, 0.8337E-01, 0.8514E-01, 0.8646E-01,& - 0.8778E-01, 0.8911E-01, 0.9087E-01, 0.9219E-01,& - 0.9396E-01, 0.9528E-01, 0.9705E-01, 0.9837E-01,& - 0.1001E+00, 0.1019E+00, 0.1032E+00, 0.1050E+00,& - 0.1067E+00, 0.1085E+00, 0.1103E+00, 0.1120E+00,& - 0.1138E+00, 0.1156E+00, 0.1178E+00, 0.1195E+00,& - 0.1213E+00, 0.1235E+00, 0.1253E+00, 0.1275E+00,& - 0.1292E+00, 0.1315E+00, 0.1337E+00, 0.1359E+00,& - 0.1381E+00, 0.1403E+00, 0.1425E+00, 0.1447E+00,& - 0.1469E+00, 0.1491E+00, 0.1517E+00, 0.1539E+00,& - 0.1562E+00, 0.1588E+00, 0.1614E+00, 0.1636E+00,& - 0.1663E+00, 0.1689E+00, 0.1716E+00, 0.1742E+00,& - 0.1769E+00, 0.1800E+00, 0.1826E+00, 0.1857E+00,& - 0.1883E+00, 0.1914E+00, 0.1941E+00, 0.1972E+00,& - 0.2003E+00, 0.2033E+00, 0.2064E+00, 0.2095E+00,& - 0.2130E+00, 0.2161E+00, 0.2197E+00, 0.2228E+00,& - 0.2263E+00, 0.2298E+00, 0.2333E+00, 0.2369E+00,& - 0.2404E+00, 0.2439E+00, 0.2479E+00, 0.2514E+00,& - 0.2554E+00, 0.2594E+00, 0.2633E+00, 0.2673E+00,& - 0.2713E+00, 0.2752E+00, 0.2797E+00, 0.2836E+00,& - 0.2880E+00, 0.2924E+00, 0.2969E+00, 0.3013E+00,& - 0.3057E+00, 0.3101E+00, 0.3149E+00, 0.3193E+00,& - 0.3242E+00, 0.3291E+00, 0.3339E+00, 0.3388E+00,& - 0.3440E+00, 0.3489E+00, 0.3542E+00, 0.3595E+00,& - 0.3648E+00, 0.3701E+00, 0.3758E+00, 0.3811E+00,& - 0.3868E+00, 0.3926E+00, 0.3983E+00, 0.4040E+00,& - 0.4102E+00, 0.4159E+00, 0.4221E+00, 0.4283E+00,& - 0.4345E+00, 0.4411E+00, 0.4473E+00, 0.4539E+00,& - 0.4605E+00, 0.4671E+00, 0.4742E+00, 0.4808E+00,& - 0.4878E+00, 0.4949E+00, 0.5024E+00, 0.5095E+00,& - 0.5169E+00, 0.5244E+00, 0.5319E+00, 0.5394E+00,& - 0.5474E+00, 0.5553E+00, 0.5633E+00, 0.5716E+00,& - 0.5796E+00, 0.5880E+00, 0.5963E+00, 0.6052E+00,& - 0.6135E+00, 0.6224E+00, 0.6316E+00, 0.6404E+00,& - 0.6497E+00, 0.6590E+00, 0.6682E+00, 0.6779E+00,& - 0.6876E+00, 0.6973E+00, 0.7075E+00, 0.7172E+00,& - 0.7278E+00, 0.7379E+00, 0.7485E+00, 0.7591E+00,& - 0.7697E+00, 0.7807E+00, 0.7917E+00, 0.8032E+00,& - 0.8147E+00, 0.8261E+00, 0.8376E+00, 0.8495E+00,& - 0.8619E+00, 0.8738E+00, 0.8861E+00, 0.8989E+00,& - 0.9117E+00, 0.9245E+00, 0.9373E+00, 0.9505E+00,& - 0.9642E+00, 0.9779E+00, 0.9915E+00, 0.1006E+01,& - 0.1020E+01, 0.1034E+01, 0.1049E+01, 0.1063E+01,& - 0.1078E+01, 0.1094E+01, 0.1109E+01, 0.1125E+01,& - 0.1141E+01, 0.1157E+01, 0.1173E+01, 0.1190E+01,& - 0.1206E+01, 0.1223E+01, 0.1240E+01, 0.1258E+01,& - 0.1276E+01, 0.1294E+01, 0.1312E+01, 0.1330E+01,& - 0.1349E+01, 0.1368E+01, 0.1387E+01, 0.1407E+01,& - 0.1426E+01, 0.1447E+01, 0.1467E+01, 0.1488E+01,& - 0.1509E+01, 0.1530E+01, 0.1552E+01, 0.1574E+01,& - 0.1596E+01, 0.1618E+01, 0.1641E+01, 0.1665E+01,& - 0.1688E+01, 0.1712E+01, 0.1736E+01, 0.1761E+01,& - 0.1786E+01, 0.1811E+01, 0.1837E+01, 0.1863E+01,& - 0.1890E+01, 0.1916E+01, 0.1944E+01, 0.1972E+01,& - 0.1999E+01, 0.2028E+01, 0.2057E+01, 0.2087E+01,& - 0.2116E+01, 0.2147E+01, 0.2178E+01, 0.2209E+01,& - 0.2241E+01, 0.2273E+01, 0.2306E+01, 0.2339E+01,& - 0.2373E+01, 0.2407E+01, 0.2442E+01, 0.2477E+01,& - 0.2513E+01, 0.2550E+01, 0.2587E+01, 0.2624E+01,& - 0.2663E+01, 0.2702E+01, 0.2742E+01, 0.2782E+01,& - 0.2823E+01, 0.2864E+01, 0.2907E+01, 0.2950E+01,& - 0.2994E+01, 0.3038E+01, 0.3083E+01, 0.3129E+01,& - 0.3176E+01, 0.3224E+01, 0.3272E+01, 0.3321E+01,& - 0.3372E+01, 0.3423E+01, 0.3474E+01, 0.3527E+01,& - 0.3581E+01, 0.3636E+01, 0.3692E+01, 0.3749E+01,& - 0.3807E+01, 0.3866E+01, 0.3926E+01, 0.3987E+01,& - 0.4050E+01, 0.4113E+01, 0.4178E+01, 0.4244E+01,& - 0.4312E+01, 0.4380E+01, 0.4450E+01, 0.4522E+01,& - 0.4595E+01, 0.4670E+01, 0.4746E+01, 0.4824E+01,& - 0.4903E+01, 0.4984E+01, 0.5067E+01, 0.5152E+01,& - 0.5239E+01, 0.5327E+01, 0.5418E+01, 0.5510E+01,& - 0.5605E+01, 0.5702E+01, 0.5801E+01, 0.5903E+01,& - 0.6007E+01, 0.6115E+01, 0.6224E+01, 0.6336E+01,& - 0.6452E+01, 0.6570E+01, 0.6692E+01, 0.6816E+01,& - 0.6945E+01, 0.7077E+01, 0.7213E+01, 0.7352E+01,& - 0.7497E+01, 0.7645E+01, 0.7798E+01, 0.7955E+01,& - 0.8118E+01, 0.8286E+01, 0.8461E+01, 0.8641E+01,& - 0.8827E+01, 0.9021E+01, 0.9222E+01, 0.9428E+01,& - 0.9647E+01, 0.9873E+01, 0.1011E+02, 0.1035E+02,& - 0.1061E+02, 0.1088E+02, 0.1116E+02, 0.1146E+02,& - 0.1177E+02, 0.1210E+02, 0.1245E+02, 0.1282E+02,& - 0.1322E+02, 0.1364E+02, 0.1409E+02, 0.1458E+02,& - 0.1511E+02, 0.1569E+02, 0.1633E+02, 0.1705E+02,& - 0.1785E+02, 0.1877E+02, 0.1984E+02, 0.2113E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,128) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.4573E-03, 0.4573E-03,& - 0.4573E-03, 0.4573E-03, 0.4573E-03, 0.4573E-03,& - 0.4573E-03, 0.4573E-03, 0.4573E-03, 0.4573E-03,& - 0.4573E-03, 0.4573E-03, 0.4573E-03, 0.4573E-03,& - 0.4573E-03, 0.4573E-03, 0.4573E-03, 0.4573E-03,& - 0.4573E-03, 0.4573E-03, 0.4573E-03, 0.4573E-03,& - 0.4573E-03, 0.4573E-03, 0.4573E-03, 0.4573E-03,& - 0.9046E-03, 0.9046E-03, 0.9046E-03, 0.9046E-03,& - 0.9046E-03, 0.9046E-03, 0.9046E-03, 0.9046E-03,& - 0.9046E-03, 0.9046E-03, 0.9046E-03, 0.9046E-03,& - 0.9046E-03, 0.9046E-03, 0.9046E-03, 0.9046E-03,& - 0.9046E-03, 0.1352E-02, 0.1352E-02, 0.1352E-02,& - 0.1352E-02, 0.1352E-02, 0.1352E-02, 0.1352E-02,& - 0.1352E-02, 0.1352E-02, 0.1352E-02, 0.1352E-02,& - 0.1352E-02, 0.1799E-02, 0.1799E-02, 0.1799E-02,& - 0.1799E-02, 0.1799E-02, 0.1799E-02, 0.1799E-02,& - 0.1799E-02, 0.1799E-02, 0.2246E-02, 0.2246E-02,& - 0.2246E-02, 0.2246E-02, 0.2246E-02, 0.2246E-02,& - 0.2246E-02, 0.2246E-02, 0.2694E-02, 0.2694E-02,& - 0.2694E-02, 0.2694E-02, 0.2694E-02, 0.2694E-02,& - 0.2694E-02, 0.3141E-02, 0.3141E-02, 0.3141E-02,& - 0.3141E-02, 0.3141E-02, 0.3141E-02, 0.3588E-02,& - 0.3588E-02, 0.3588E-02, 0.3588E-02, 0.3588E-02,& - 0.3588E-02, 0.4036E-02, 0.4036E-02, 0.4036E-02,& - 0.4036E-02, 0.3588E-02, 0.4483E-02, 0.4483E-02,& - 0.4483E-02, 0.4483E-02, 0.4930E-02, 0.4930E-02,& - 0.4930E-02, 0.4930E-02, 0.5378E-02, 0.5378E-02,& - 0.5378E-02, 0.5378E-02, 0.5825E-02, 0.5825E-02,& - 0.5825E-02, 0.6272E-02, 0.6272E-02, 0.6272E-02,& - 0.6272E-02, 0.6719E-02, 0.6719E-02, 0.6719E-02,& - 0.7167E-02, 0.7167E-02, 0.7167E-02, 0.7614E-02,& - 0.7614E-02, 0.8061E-02, 0.8061E-02, 0.8061E-02,& - 0.8509E-02, 0.8509E-02, 0.8509E-02, 0.8956E-02,& - 0.8956E-02, 0.9403E-02, 0.9403E-02, 0.9851E-02,& - 0.9851E-02, 0.9851E-02, 0.1030E-01, 0.1030E-01,& - 0.1075E-01, 0.1075E-01, 0.1119E-01, 0.1119E-01,& - 0.1164E-01, 0.1164E-01, 0.1209E-01, 0.1253E-01,& - 0.1253E-01, 0.1298E-01, 0.1298E-01, 0.1343E-01,& - 0.1343E-01, 0.1388E-01, 0.1432E-01, 0.1432E-01,& - 0.1477E-01, 0.1522E-01, 0.1522E-01, 0.1567E-01,& - 0.1611E-01, 0.1611E-01, 0.1656E-01, 0.1701E-01,& - 0.1701E-01, 0.1745E-01, 0.1790E-01, 0.1835E-01,& - 0.1880E-01, 0.1880E-01, 0.1924E-01, 0.1969E-01,& - 0.2014E-01, 0.2059E-01, 0.2103E-01, 0.2103E-01,& - 0.2148E-01, 0.2193E-01, 0.2237E-01, 0.2282E-01,& - 0.2327E-01, 0.2372E-01, 0.2416E-01, 0.2461E-01,& - 0.2506E-01, 0.2551E-01, 0.2595E-01, 0.2640E-01,& - 0.2730E-01, 0.2774E-01, 0.2819E-01, 0.2864E-01,& - 0.2908E-01, 0.2953E-01, 0.3043E-01, 0.3087E-01,& - 0.3132E-01, 0.3177E-01, 0.3266E-01, 0.3311E-01,& - 0.3356E-01, 0.3445E-01, 0.3490E-01, 0.3579E-01,& - 0.3624E-01, 0.3714E-01, 0.3758E-01, 0.3848E-01,& - 0.3892E-01, 0.3982E-01, 0.4027E-01, 0.4116E-01,& - 0.4206E-01, 0.4250E-01, 0.4340E-01, 0.4429E-01,& - 0.4474E-01, 0.4563E-01, 0.4653E-01, 0.4742E-01,& - 0.4832E-01, 0.4921E-01, 0.5011E-01, 0.5100E-01,& - 0.5190E-01, 0.5279E-01, 0.5369E-01, 0.5458E-01,& - 0.5547E-01, 0.5637E-01, 0.5726E-01, 0.5816E-01,& - 0.5950E-01, 0.6040E-01, 0.6129E-01, 0.6263E-01,& - 0.6353E-01, 0.6487E-01, 0.6576E-01, 0.6710E-01,& - 0.6800E-01, 0.6934E-01, 0.7024E-01, 0.7158E-01,& - 0.7292E-01, 0.7426E-01, 0.7516E-01, 0.7650E-01,& - 0.7784E-01, 0.7918E-01, 0.8052E-01, 0.8187E-01,& - 0.8321E-01, 0.8455E-01, 0.8589E-01, 0.8768E-01,& - 0.8902E-01, 0.9036E-01, 0.9215E-01, 0.9350E-01,& - 0.9528E-01, 0.9663E-01, 0.9842E-01, 0.9976E-01,& - 0.1015E+00, 0.1033E+00, 0.1051E+00, 0.1065E+00,& - 0.1083E+00, 0.1100E+00, 0.1118E+00, 0.1136E+00,& - 0.1159E+00, 0.1176E+00, 0.1194E+00, 0.1212E+00,& - 0.1235E+00, 0.1253E+00, 0.1275E+00, 0.1293E+00,& - 0.1315E+00, 0.1338E+00, 0.1360E+00, 0.1382E+00,& - 0.1405E+00, 0.1427E+00, 0.1449E+00, 0.1472E+00,& - 0.1494E+00, 0.1521E+00, 0.1543E+00, 0.1566E+00,& - 0.1592E+00, 0.1619E+00, 0.1642E+00, 0.1669E+00,& - 0.1695E+00, 0.1722E+00, 0.1749E+00, 0.1776E+00,& - 0.1807E+00, 0.1834E+00, 0.1865E+00, 0.1892E+00,& - 0.1923E+00, 0.1950E+00, 0.1982E+00, 0.2013E+00,& - 0.2044E+00, 0.2076E+00, 0.2111E+00, 0.2143E+00,& - 0.2174E+00, 0.2210E+00, 0.2246E+00, 0.2277E+00,& - 0.2313E+00, 0.2348E+00, 0.2384E+00, 0.2420E+00,& - 0.2460E+00, 0.2496E+00, 0.2536E+00, 0.2577E+00,& - 0.2612E+00, 0.2653E+00, 0.2693E+00, 0.2738E+00,& - 0.2778E+00, 0.2818E+00, 0.2863E+00, 0.2908E+00,& - 0.2952E+00, 0.2997E+00, 0.3042E+00, 0.3086E+00,& - 0.3131E+00, 0.3180E+00, 0.3230E+00, 0.3279E+00,& - 0.3328E+00, 0.3377E+00, 0.3426E+00, 0.3480E+00,& - 0.3529E+00, 0.3583E+00, 0.3637E+00, 0.3690E+00,& - 0.3748E+00, 0.3802E+00, 0.3860E+00, 0.3918E+00,& - 0.3977E+00, 0.4035E+00, 0.4093E+00, 0.4155E+00,& - 0.4218E+00, 0.4281E+00, 0.4343E+00, 0.4406E+00,& - 0.4473E+00, 0.4540E+00, 0.4603E+00, 0.4674E+00,& - 0.4741E+00, 0.4813E+00, 0.4880E+00, 0.4952E+00,& - 0.5028E+00, 0.5099E+00, 0.5175E+00, 0.5251E+00,& - 0.5327E+00, 0.5403E+00, 0.5484E+00, 0.5564E+00,& - 0.5645E+00, 0.5730E+00, 0.5810E+00, 0.5895E+00,& - 0.5980E+00, 0.6070E+00, 0.6155E+00, 0.6244E+00,& - 0.6338E+00, 0.6428E+00, 0.6522E+00, 0.6616E+00,& - 0.6714E+00, 0.6808E+00, 0.6906E+00, 0.7009E+00,& - 0.7108E+00, 0.7211E+00, 0.7313E+00, 0.7421E+00,& - 0.7528E+00, 0.7635E+00, 0.7747E+00, 0.7855E+00,& - 0.7971E+00, 0.8083E+00, 0.8199E+00, 0.8320E+00,& - 0.8436E+00, 0.8557E+00, 0.8682E+00, 0.8807E+00,& - 0.8933E+00, 0.9058E+00, 0.9188E+00, 0.9322E+00,& - 0.9456E+00, 0.9590E+00, 0.9724E+00, 0.9867E+00,& - 0.1001E+01, 0.1015E+01, 0.1029E+01, 0.1044E+01,& - 0.1059E+01, 0.1074E+01, 0.1090E+01, 0.1105E+01,& - 0.1121E+01, 0.1137E+01, 0.1153E+01, 0.1169E+01,& - 0.1186E+01, 0.1203E+01, 0.1220E+01, 0.1238E+01,& - 0.1255E+01, 0.1273E+01, 0.1291E+01, 0.1310E+01,& - 0.1328E+01, 0.1347E+01, 0.1367E+01, 0.1386E+01,& - 0.1406E+01, 0.1426E+01, 0.1446E+01, 0.1467E+01,& - 0.1488E+01, 0.1509E+01, 0.1531E+01, 0.1553E+01,& - 0.1575E+01, 0.1597E+01, 0.1620E+01, 0.1643E+01,& - 0.1667E+01, 0.1691E+01, 0.1715E+01, 0.1740E+01,& - 0.1765E+01, 0.1790E+01, 0.1816E+01, 0.1842E+01,& - 0.1868E+01, 0.1895E+01, 0.1922E+01, 0.1950E+01,& - 0.1978E+01, 0.2007E+01, 0.2036E+01, 0.2066E+01,& - 0.2095E+01, 0.2126E+01, 0.2156E+01, 0.2188E+01,& - 0.2220E+01, 0.2252E+01, 0.2285E+01, 0.2318E+01,& - 0.2352E+01, 0.2386E+01, 0.2422E+01, 0.2457E+01,& - 0.2493E+01, 0.2530E+01, 0.2567E+01, 0.2605E+01,& - 0.2644E+01, 0.2682E+01, 0.2722E+01, 0.2763E+01,& - 0.2804E+01, 0.2846E+01, 0.2888E+01, 0.2931E+01,& - 0.2975E+01, 0.3020E+01, 0.3065E+01, 0.3112E+01,& - 0.3159E+01, 0.3207E+01, 0.3255E+01, 0.3305E+01,& - 0.3355E+01, 0.3407E+01, 0.3459E+01, 0.3512E+01,& - 0.3566E+01, 0.3621E+01, 0.3678E+01, 0.3735E+01,& - 0.3793E+01, 0.3853E+01, 0.3913E+01, 0.3975E+01,& - 0.4038E+01, 0.4102E+01, 0.4167E+01, 0.4234E+01,& - 0.4302E+01, 0.4371E+01, 0.4442E+01, 0.4514E+01,& - 0.4588E+01, 0.4663E+01, 0.4740E+01, 0.4818E+01,& - 0.4898E+01, 0.4980E+01, 0.5064E+01, 0.5149E+01,& - 0.5237E+01, 0.5326E+01, 0.5417E+01, 0.5511E+01,& - 0.5606E+01, 0.5704E+01, 0.5805E+01, 0.5907E+01,& - 0.6013E+01, 0.6121E+01, 0.6231E+01, 0.6345E+01,& - 0.6462E+01, 0.6581E+01, 0.6704E+01, 0.6830E+01,& - 0.6960E+01, 0.7093E+01, 0.7231E+01, 0.7372E+01,& - 0.7518E+01, 0.7668E+01, 0.7822E+01, 0.7982E+01,& - 0.8147E+01, 0.8317E+01, 0.8493E+01, 0.8675E+01,& - 0.8864E+01, 0.9060E+01, 0.9263E+01, 0.9474E+01,& - 0.9694E+01, 0.9922E+01, 0.1016E+02, 0.1041E+02,& - 0.1067E+02, 0.1094E+02, 0.1123E+02, 0.1153E+02,& - 0.1185E+02, 0.1218E+02, 0.1253E+02, 0.1291E+02,& - 0.1331E+02, 0.1374E+02, 0.1420E+02, 0.1470E+02,& - 0.1524E+02, 0.1582E+02, 0.1647E+02, 0.1720E+02,& - 0.1801E+02, 0.1894E+02, 0.2003E+02, 0.2135E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,129) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.4636E-03,& - 0.4636E-03, 0.4636E-03, 0.4636E-03, 0.4636E-03,& - 0.4636E-03, 0.4636E-03, 0.4636E-03, 0.4636E-03,& - 0.4636E-03, 0.4636E-03, 0.4636E-03, 0.4636E-03,& - 0.4636E-03, 0.4636E-03, 0.4636E-03, 0.4636E-03,& - 0.4636E-03, 0.4636E-03, 0.4636E-03, 0.4636E-03,& - 0.4636E-03, 0.4636E-03, 0.4636E-03, 0.4636E-03,& - 0.4636E-03, 0.4636E-03, 0.9171E-03, 0.9171E-03,& - 0.9171E-03, 0.9171E-03, 0.9171E-03, 0.9171E-03,& - 0.9171E-03, 0.9171E-03, 0.9171E-03, 0.9171E-03,& - 0.9171E-03, 0.9171E-03, 0.9171E-03, 0.9171E-03,& - 0.9171E-03, 0.9171E-03, 0.1371E-02, 0.1371E-02,& - 0.1371E-02, 0.1371E-02, 0.1371E-02, 0.1371E-02,& - 0.1371E-02, 0.1371E-02, 0.1371E-02, 0.1371E-02,& - 0.1371E-02, 0.1371E-02, 0.1824E-02, 0.1824E-02,& - 0.1824E-02, 0.1824E-02, 0.1824E-02, 0.1824E-02,& - 0.1824E-02, 0.1824E-02, 0.1824E-02, 0.1824E-02,& - 0.2278E-02, 0.2278E-02, 0.2278E-02, 0.2278E-02,& - 0.2278E-02, 0.2278E-02, 0.2278E-02, 0.2278E-02,& - 0.2731E-02, 0.2731E-02, 0.2731E-02, 0.2731E-02,& - 0.2731E-02, 0.2731E-02, 0.3185E-02, 0.3185E-02,& - 0.3185E-02, 0.3185E-02, 0.3185E-02, 0.3185E-02,& - 0.3639E-02, 0.3639E-02, 0.3639E-02, 0.3639E-02,& - 0.3639E-02, 0.3639E-02, 0.4092E-02, 0.4092E-02,& - 0.4092E-02, 0.4092E-02, 0.4092E-02, 0.4546E-02,& - 0.4546E-02, 0.4546E-02, 0.4546E-02, 0.4999E-02,& - 0.4999E-02, 0.4999E-02, 0.4999E-02, 0.5453E-02,& - 0.5453E-02, 0.5453E-02, 0.5453E-02, 0.5906E-02,& - 0.5906E-02, 0.5906E-02, 0.6360E-02, 0.6360E-02,& - 0.6360E-02, 0.6360E-02, 0.6814E-02, 0.6814E-02,& - 0.6814E-02, 0.7267E-02, 0.7267E-02, 0.7267E-02,& - 0.7721E-02, 0.7721E-02, 0.8174E-02, 0.8174E-02,& - 0.8174E-02, 0.8628E-02, 0.8628E-02, 0.8628E-02,& - 0.9081E-02, 0.9081E-02, 0.9535E-02, 0.9535E-02,& - 0.9988E-02, 0.9988E-02, 0.1044E-01, 0.1044E-01,& - 0.1044E-01, 0.1090E-01, 0.1090E-01, 0.1135E-01,& - 0.1135E-01, 0.1180E-01, 0.1226E-01, 0.1226E-01,& - 0.1271E-01, 0.1271E-01, 0.1316E-01, 0.1316E-01,& - 0.1362E-01, 0.1407E-01, 0.1407E-01, 0.1452E-01,& - 0.1452E-01, 0.1498E-01, 0.1543E-01, 0.1543E-01,& - 0.1588E-01, 0.1634E-01, 0.1634E-01, 0.1679E-01,& - 0.1725E-01, 0.1770E-01, 0.1770E-01, 0.1815E-01,& - 0.1861E-01, 0.1906E-01, 0.1951E-01, 0.1951E-01,& - 0.1997E-01, 0.2042E-01, 0.2087E-01, 0.2133E-01,& - 0.2178E-01, 0.2223E-01, 0.2269E-01, 0.2314E-01,& - 0.2360E-01, 0.2405E-01, 0.2450E-01, 0.2496E-01,& - 0.2541E-01, 0.2586E-01, 0.2632E-01, 0.2677E-01,& - 0.2722E-01, 0.2768E-01, 0.2813E-01, 0.2858E-01,& - 0.2949E-01, 0.2995E-01, 0.3040E-01, 0.3085E-01,& - 0.3176E-01, 0.3221E-01, 0.3267E-01, 0.3312E-01,& - 0.3403E-01, 0.3448E-01, 0.3539E-01, 0.3584E-01,& - 0.3630E-01, 0.3720E-01, 0.3766E-01, 0.3856E-01,& - 0.3947E-01, 0.3992E-01, 0.4083E-01, 0.4128E-01,& - 0.4219E-01, 0.4310E-01, 0.4355E-01, 0.4446E-01,& - 0.4537E-01, 0.4627E-01, 0.4673E-01, 0.4763E-01,& - 0.4854E-01, 0.4945E-01, 0.5036E-01, 0.5126E-01,& - 0.5217E-01, 0.5308E-01, 0.5398E-01, 0.5489E-01,& - 0.5580E-01, 0.5671E-01, 0.5807E-01, 0.5897E-01,& - 0.5988E-01, 0.6124E-01, 0.6215E-01, 0.6306E-01,& - 0.6442E-01, 0.6532E-01, 0.6668E-01, 0.6759E-01,& - 0.6895E-01, 0.6986E-01, 0.7122E-01, 0.7258E-01,& - 0.7349E-01, 0.7485E-01, 0.7621E-01, 0.7757E-01,& - 0.7893E-01, 0.8029E-01, 0.8165E-01, 0.8301E-01,& - 0.8437E-01, 0.8573E-01, 0.8709E-01, 0.8891E-01,& - 0.9027E-01, 0.9163E-01, 0.9344E-01, 0.9481E-01,& - 0.9662E-01, 0.9798E-01, 0.9979E-01, 0.1016E+00,& - 0.1030E+00, 0.1048E+00, 0.1066E+00, 0.1084E+00,& - 0.1102E+00, 0.1120E+00, 0.1139E+00, 0.1157E+00,& - 0.1175E+00, 0.1193E+00, 0.1216E+00, 0.1234E+00,& - 0.1256E+00, 0.1275E+00, 0.1297E+00, 0.1320E+00,& - 0.1338E+00, 0.1361E+00, 0.1383E+00, 0.1406E+00,& - 0.1429E+00, 0.1452E+00, 0.1474E+00, 0.1501E+00,& - 0.1524E+00, 0.1547E+00, 0.1574E+00, 0.1597E+00,& - 0.1624E+00, 0.1651E+00, 0.1678E+00, 0.1701E+00,& - 0.1733E+00, 0.1760E+00, 0.1787E+00, 0.1814E+00,& - 0.1842E+00, 0.1873E+00, 0.1901E+00, 0.1932E+00,& - 0.1964E+00, 0.1996E+00, 0.2028E+00, 0.2059E+00,& - 0.2091E+00, 0.2123E+00, 0.2155E+00, 0.2191E+00,& - 0.2223E+00, 0.2259E+00, 0.2295E+00, 0.2331E+00,& - 0.2368E+00, 0.2404E+00, 0.2440E+00, 0.2481E+00,& - 0.2517E+00, 0.2558E+00, 0.2595E+00, 0.2635E+00,& - 0.2676E+00, 0.2717E+00, 0.2762E+00, 0.2803E+00,& - 0.2849E+00, 0.2889E+00, 0.2935E+00, 0.2980E+00,& - 0.3025E+00, 0.3071E+00, 0.3121E+00, 0.3166E+00,& - 0.3216E+00, 0.3266E+00, 0.3316E+00, 0.3366E+00,& - 0.3415E+00, 0.3465E+00, 0.3520E+00, 0.3574E+00,& - 0.3629E+00, 0.3683E+00, 0.3737E+00, 0.3796E+00,& - 0.3851E+00, 0.3910E+00, 0.3969E+00, 0.4028E+00,& - 0.4091E+00, 0.4150E+00, 0.4214E+00, 0.4277E+00,& - 0.4341E+00, 0.4404E+00, 0.4472E+00, 0.4536E+00,& - 0.4604E+00, 0.4676E+00, 0.4744E+00, 0.4812E+00,& - 0.4885E+00, 0.4958E+00, 0.5035E+00, 0.5107E+00,& - 0.5184E+00, 0.5261E+00, 0.5339E+00, 0.5416E+00,& - 0.5497E+00, 0.5579E+00, 0.5661E+00, 0.5742E+00,& - 0.5828E+00, 0.5915E+00, 0.6001E+00, 0.6092E+00,& - 0.6178E+00, 0.6268E+00, 0.6364E+00, 0.6454E+00,& - 0.6550E+00, 0.6645E+00, 0.6745E+00, 0.6840E+00,& - 0.6944E+00, 0.7044E+00, 0.7148E+00, 0.7253E+00,& - 0.7357E+00, 0.7466E+00, 0.7575E+00, 0.7684E+00,& - 0.7797E+00, 0.7910E+00, 0.8024E+00, 0.8142E+00,& - 0.8260E+00, 0.8377E+00, 0.8500E+00, 0.8622E+00,& - 0.8749E+00, 0.8876E+00, 0.9003E+00, 0.9135E+00,& - 0.9266E+00, 0.9403E+00, 0.9539E+00, 0.9675E+00,& - 0.9815E+00, 0.9956E+00, 0.1010E+01, 0.1025E+01,& - 0.1040E+01, 0.1055E+01, 0.1070E+01, 0.1085E+01,& - 0.1101E+01, 0.1117E+01, 0.1133E+01, 0.1149E+01,& - 0.1166E+01, 0.1183E+01, 0.1200E+01, 0.1217E+01,& - 0.1235E+01, 0.1253E+01, 0.1271E+01, 0.1289E+01,& - 0.1308E+01, 0.1327E+01, 0.1346E+01, 0.1365E+01,& - 0.1385E+01, 0.1405E+01, 0.1425E+01, 0.1446E+01,& - 0.1467E+01, 0.1488E+01, 0.1509E+01, 0.1531E+01,& - 0.1553E+01, 0.1576E+01, 0.1599E+01, 0.1622E+01,& - 0.1646E+01, 0.1670E+01, 0.1694E+01, 0.1718E+01,& - 0.1743E+01, 0.1768E+01, 0.1794E+01, 0.1821E+01,& - 0.1847E+01, 0.1874E+01, 0.1901E+01, 0.1929E+01,& - 0.1957E+01, 0.1986E+01, 0.2015E+01, 0.2044E+01,& - 0.2074E+01, 0.2105E+01, 0.2135E+01, 0.2167E+01,& - 0.2199E+01, 0.2231E+01, 0.2264E+01, 0.2297E+01,& - 0.2331E+01, 0.2366E+01, 0.2401E+01, 0.2437E+01,& - 0.2473E+01, 0.2510E+01, 0.2547E+01, 0.2585E+01,& - 0.2623E+01, 0.2663E+01, 0.2703E+01, 0.2743E+01,& - 0.2784E+01, 0.2827E+01, 0.2869E+01, 0.2912E+01,& - 0.2957E+01, 0.3002E+01, 0.3047E+01, 0.3094E+01,& - 0.3141E+01, 0.3189E+01, 0.3238E+01, 0.3288E+01,& - 0.3339E+01, 0.3390E+01, 0.3443E+01, 0.3497E+01,& - 0.3551E+01, 0.3606E+01, 0.3663E+01, 0.3721E+01,& - 0.3779E+01, 0.3839E+01, 0.3900E+01, 0.3962E+01,& - 0.4025E+01, 0.4090E+01, 0.4156E+01, 0.4223E+01,& - 0.4291E+01, 0.4361E+01, 0.4433E+01, 0.4505E+01,& - 0.4580E+01, 0.4655E+01, 0.4733E+01, 0.4812E+01,& - 0.4893E+01, 0.4975E+01, 0.5060E+01, 0.5146E+01,& - 0.5234E+01, 0.5324E+01, 0.5416E+01, 0.5510E+01,& - 0.5607E+01, 0.5706E+01, 0.5807E+01, 0.5911E+01,& - 0.6017E+01, 0.6126E+01, 0.6238E+01, 0.6353E+01,& - 0.6471E+01, 0.6592E+01, 0.6716E+01, 0.6843E+01,& - 0.6974E+01, 0.7109E+01, 0.7248E+01, 0.7391E+01,& - 0.7538E+01, 0.7690E+01, 0.7846E+01, 0.8008E+01,& - 0.8174E+01, 0.8347E+01, 0.8525E+01, 0.8709E+01,& - 0.8900E+01, 0.9099E+01, 0.9304E+01, 0.9518E+01,& - 0.9740E+01, 0.9972E+01, 0.1021E+02, 0.1047E+02,& - 0.1073E+02, 0.1100E+02, 0.1129E+02, 0.1160E+02,& - 0.1192E+02, 0.1226E+02, 0.1262E+02, 0.1300E+02,& - 0.1341E+02, 0.1384E+02, 0.1430E+02, 0.1481E+02,& - 0.1536E+02, 0.1596E+02, 0.1661E+02, 0.1735E+02,& - 0.1817E+02, 0.1912E+02, 0.2023E+02, 0.2156E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,130) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.4699E-03, 0.4699E-03, 0.4699E-03,& - 0.4699E-03, 0.4699E-03, 0.4699E-03, 0.4699E-03,& - 0.4699E-03, 0.4699E-03, 0.4699E-03, 0.4699E-03,& - 0.4699E-03, 0.4699E-03, 0.4699E-03, 0.4699E-03,& - 0.4699E-03, 0.4699E-03, 0.4699E-03, 0.4699E-03,& - 0.4699E-03, 0.4699E-03, 0.4699E-03, 0.4699E-03,& - 0.4699E-03, 0.4699E-03, 0.4699E-03, 0.9298E-03,& - 0.9298E-03, 0.9298E-03, 0.9298E-03, 0.9298E-03,& - 0.9298E-03, 0.9298E-03, 0.9298E-03, 0.9298E-03,& - 0.9298E-03, 0.9298E-03, 0.9298E-03, 0.9298E-03,& - 0.9298E-03, 0.9298E-03, 0.9298E-03, 0.1390E-02,& - 0.1390E-02, 0.1390E-02, 0.1390E-02, 0.1390E-02,& - 0.1390E-02, 0.1390E-02, 0.1390E-02, 0.1390E-02,& - 0.1390E-02, 0.1390E-02, 0.1390E-02, 0.1850E-02,& - 0.1850E-02, 0.1850E-02, 0.1850E-02, 0.1850E-02,& - 0.1850E-02, 0.1850E-02, 0.1850E-02, 0.1850E-02,& - 0.1850E-02, 0.2309E-02, 0.2309E-02, 0.2309E-02,& - 0.2309E-02, 0.2309E-02, 0.2309E-02, 0.2309E-02,& - 0.2309E-02, 0.2769E-02, 0.2769E-02, 0.2769E-02,& - 0.2769E-02, 0.2769E-02, 0.2769E-02, 0.2769E-02,& - 0.3229E-02, 0.3229E-02, 0.3229E-02, 0.3229E-02,& - 0.3229E-02, 0.3229E-02, 0.3689E-02, 0.3689E-02,& - 0.3689E-02, 0.3689E-02, 0.3689E-02, 0.4149E-02,& - 0.4149E-02, 0.4149E-02, 0.4149E-02, 0.4149E-02,& - 0.4609E-02, 0.4609E-02, 0.4609E-02, 0.4609E-02,& - 0.5069E-02, 0.5069E-02, 0.5069E-02, 0.5069E-02,& - 0.5529E-02, 0.5529E-02, 0.5529E-02, 0.5529E-02,& - 0.5989E-02, 0.5989E-02, 0.5989E-02, 0.6448E-02,& - 0.6448E-02, 0.6448E-02, 0.6448E-02, 0.6908E-02,& - 0.6908E-02, 0.6908E-02, 0.7368E-02, 0.7368E-02,& - 0.7368E-02, 0.7828E-02, 0.7828E-02, 0.8288E-02,& - 0.8288E-02, 0.8288E-02, 0.8748E-02, 0.8748E-02,& - 0.9208E-02, 0.9208E-02, 0.9208E-02, 0.9668E-02,& - 0.9668E-02, 0.1013E-01, 0.1013E-01, 0.1059E-01,& - 0.1059E-01, 0.1105E-01, 0.1105E-01, 0.1151E-01,& - 0.1151E-01, 0.1197E-01, 0.1197E-01, 0.1243E-01,& - 0.1243E-01, 0.1289E-01, 0.1289E-01, 0.1335E-01,& - 0.1381E-01, 0.1381E-01, 0.1427E-01, 0.1427E-01,& - 0.1473E-01, 0.1519E-01, 0.1519E-01, 0.1565E-01,& - 0.1611E-01, 0.1611E-01, 0.1657E-01, 0.1703E-01,& - 0.1703E-01, 0.1749E-01, 0.1795E-01, 0.1841E-01,& - 0.1887E-01, 0.1887E-01, 0.1933E-01, 0.1979E-01,& - 0.2024E-01, 0.2070E-01, 0.2116E-01, 0.2116E-01,& - 0.2162E-01, 0.2208E-01, 0.2254E-01, 0.2300E-01,& - 0.2346E-01, 0.2392E-01, 0.2438E-01, 0.2484E-01,& - 0.2530E-01, 0.2576E-01, 0.2622E-01, 0.2668E-01,& - 0.2714E-01, 0.2806E-01, 0.2852E-01, 0.2898E-01,& - 0.2944E-01, 0.2990E-01, 0.3036E-01, 0.3128E-01,& - 0.3174E-01, 0.3220E-01, 0.3312E-01, 0.3358E-01,& - 0.3404E-01, 0.3496E-01, 0.3542E-01, 0.3634E-01,& - 0.3680E-01, 0.3726E-01, 0.3818E-01, 0.3864E-01,& - 0.3956E-01, 0.4048E-01, 0.4094E-01, 0.4186E-01,& - 0.4232E-01, 0.4324E-01, 0.4416E-01, 0.4508E-01,& - 0.4554E-01, 0.4646E-01, 0.4738E-01, 0.4830E-01,& - 0.4922E-01, 0.5014E-01, 0.5106E-01, 0.5198E-01,& - 0.5290E-01, 0.5382E-01, 0.5474E-01, 0.5566E-01,& - 0.5658E-01, 0.5750E-01, 0.5842E-01, 0.5980E-01,& - 0.6071E-01, 0.6163E-01, 0.6301E-01, 0.6393E-01,& - 0.6485E-01, 0.6623E-01, 0.6715E-01, 0.6853E-01,& - 0.6991E-01, 0.7083E-01, 0.7221E-01, 0.7359E-01,& - 0.7451E-01, 0.7589E-01, 0.7727E-01, 0.7865E-01,& - 0.8003E-01, 0.8141E-01, 0.8279E-01, 0.8417E-01,& - 0.8555E-01, 0.8693E-01, 0.8877E-01, 0.9015E-01,& - 0.9153E-01, 0.9337E-01, 0.9475E-01, 0.9659E-01,& - 0.9797E-01, 0.9981E-01, 0.1012E+00, 0.1030E+00,& - 0.1049E+00, 0.1067E+00, 0.1085E+00, 0.1099E+00,& - 0.1118E+00, 0.1141E+00, 0.1159E+00, 0.1177E+00,& - 0.1196E+00, 0.1214E+00, 0.1237E+00, 0.1256E+00,& - 0.1279E+00, 0.1297E+00, 0.1320E+00, 0.1343E+00,& - 0.1366E+00, 0.1389E+00, 0.1412E+00, 0.1435E+00,& - 0.1458E+00, 0.1481E+00, 0.1504E+00, 0.1527E+00,& - 0.1555E+00, 0.1578E+00, 0.1605E+00, 0.1633E+00,& - 0.1656E+00, 0.1683E+00, 0.1711E+00, 0.1738E+00,& - 0.1766E+00, 0.1794E+00, 0.1826E+00, 0.1853E+00,& - 0.1886E+00, 0.1913E+00, 0.1945E+00, 0.1978E+00,& - 0.2005E+00, 0.2037E+00, 0.2070E+00, 0.2106E+00,& - 0.2139E+00, 0.2171E+00, 0.2208E+00, 0.2240E+00,& - 0.2277E+00, 0.2313E+00, 0.2350E+00, 0.2387E+00,& - 0.2424E+00, 0.2460E+00, 0.2502E+00, 0.2539E+00,& - 0.2580E+00, 0.2621E+00, 0.2663E+00, 0.2704E+00,& - 0.2746E+00, 0.2787E+00, 0.2833E+00, 0.2874E+00,& - 0.2920E+00, 0.2966E+00, 0.3012E+00, 0.3058E+00,& - 0.3104E+00, 0.3155E+00, 0.3206E+00, 0.3251E+00,& - 0.3302E+00, 0.3353E+00, 0.3403E+00, 0.3458E+00,& - 0.3509E+00, 0.3564E+00, 0.3619E+00, 0.3675E+00,& - 0.3730E+00, 0.3790E+00, 0.3845E+00, 0.3905E+00,& - 0.3964E+00, 0.4024E+00, 0.4084E+00, 0.4148E+00,& - 0.4213E+00, 0.4272E+00, 0.4341E+00, 0.4406E+00,& - 0.4470E+00, 0.4539E+00, 0.4608E+00, 0.4677E+00,& - 0.4746E+00, 0.4820E+00, 0.4893E+00, 0.4967E+00,& - 0.5040E+00, 0.5119E+00, 0.5192E+00, 0.5270E+00,& - 0.5349E+00, 0.5431E+00, 0.5510E+00, 0.5592E+00,& - 0.5675E+00, 0.5762E+00, 0.5850E+00, 0.5937E+00,& - 0.6025E+00, 0.6112E+00, 0.6204E+00, 0.6296E+00,& - 0.6388E+00, 0.6484E+00, 0.6581E+00, 0.6678E+00,& - 0.6779E+00, 0.6880E+00, 0.6981E+00, 0.7082E+00,& - 0.7188E+00, 0.7294E+00, 0.7404E+00, 0.7510E+00,& - 0.7620E+00, 0.7735E+00, 0.7850E+00, 0.7965E+00,& - 0.8080E+00, 0.8200E+00, 0.8319E+00, 0.8444E+00,& - 0.8568E+00, 0.8692E+00, 0.8821E+00, 0.8949E+00,& - 0.9083E+00, 0.9216E+00, 0.9350E+00, 0.9488E+00,& - 0.9626E+00, 0.9768E+00, 0.9911E+00, 0.1006E+01,& - 0.1020E+01, 0.1035E+01, 0.1050E+01, 0.1066E+01,& - 0.1081E+01, 0.1097E+01, 0.1113E+01, 0.1129E+01,& - 0.1146E+01, 0.1163E+01, 0.1180E+01, 0.1197E+01,& - 0.1215E+01, 0.1233E+01, 0.1250E+01, 0.1269E+01,& - 0.1287E+01, 0.1306E+01, 0.1325E+01, 0.1345E+01,& - 0.1364E+01, 0.1384E+01, 0.1405E+01, 0.1425E+01,& - 0.1446E+01, 0.1467E+01, 0.1488E+01, 0.1510E+01,& - 0.1532E+01, 0.1555E+01, 0.1577E+01, 0.1601E+01,& - 0.1624E+01, 0.1648E+01, 0.1672E+01, 0.1697E+01,& - 0.1722E+01, 0.1747E+01, 0.1773E+01, 0.1799E+01,& - 0.1825E+01, 0.1852E+01, 0.1880E+01, 0.1908E+01,& - 0.1936E+01, 0.1964E+01, 0.1993E+01, 0.2023E+01,& - 0.2053E+01, 0.2083E+01, 0.2114E+01, 0.2145E+01,& - 0.2178E+01, 0.2210E+01, 0.2243E+01, 0.2276E+01,& - 0.2310E+01, 0.2345E+01, 0.2380E+01, 0.2416E+01,& - 0.2452E+01, 0.2489E+01, 0.2527E+01, 0.2565E+01,& - 0.2603E+01, 0.2643E+01, 0.2683E+01, 0.2723E+01,& - 0.2765E+01, 0.2807E+01, 0.2850E+01, 0.2894E+01,& - 0.2938E+01, 0.2983E+01, 0.3029E+01, 0.3075E+01,& - 0.3123E+01, 0.3171E+01, 0.3221E+01, 0.3271E+01,& - 0.3322E+01, 0.3374E+01, 0.3426E+01, 0.3480E+01,& - 0.3535E+01, 0.3591E+01, 0.3648E+01, 0.3706E+01,& - 0.3765E+01, 0.3825E+01, 0.3886E+01, 0.3949E+01,& - 0.4013E+01, 0.4077E+01, 0.4144E+01, 0.4211E+01,& - 0.4280E+01, 0.4351E+01, 0.4423E+01, 0.4496E+01,& - 0.4571E+01, 0.4647E+01, 0.4725E+01, 0.4805E+01,& - 0.4886E+01, 0.4970E+01, 0.5055E+01, 0.5142E+01,& - 0.5230E+01, 0.5321E+01, 0.5414E+01, 0.5509E+01,& - 0.5607E+01, 0.5707E+01, 0.5809E+01, 0.5914E+01,& - 0.6021E+01, 0.6131E+01, 0.6244E+01, 0.6360E+01,& - 0.6479E+01, 0.6601E+01, 0.6726E+01, 0.6856E+01,& - 0.6988E+01, 0.7124E+01, 0.7264E+01, 0.7409E+01,& - 0.7558E+01, 0.7711E+01, 0.7869E+01, 0.8032E+01,& - 0.8201E+01, 0.8375E+01, 0.8556E+01, 0.8742E+01,& - 0.8936E+01, 0.9137E+01, 0.9345E+01, 0.9561E+01,& - 0.9786E+01, 0.1002E+02, 0.1027E+02, 0.1052E+02,& - 0.1079E+02, 0.1107E+02, 0.1136E+02, 0.1167E+02,& - 0.1199E+02, 0.1234E+02, 0.1270E+02, 0.1309E+02,& - 0.1350E+02, 0.1394E+02, 0.1441E+02, 0.1493E+02,& - 0.1548E+02, 0.1609E+02, 0.1675E+02, 0.1750E+02,& - 0.1834E+02, 0.1930E+02, 0.2042E+02, 0.2178E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,131) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.4763E-03, 0.4763E-03,& - 0.4763E-03, 0.4763E-03, 0.4763E-03, 0.4763E-03,& - 0.4763E-03, 0.4763E-03, 0.4763E-03, 0.4763E-03,& - 0.4763E-03, 0.4763E-03, 0.4763E-03, 0.4763E-03,& - 0.4763E-03, 0.4763E-03, 0.4763E-03, 0.4763E-03,& - 0.4763E-03, 0.4763E-03, 0.4763E-03, 0.4763E-03,& - 0.4763E-03, 0.4763E-03, 0.4763E-03, 0.4763E-03,& - 0.9425E-03, 0.9425E-03, 0.9425E-03, 0.9425E-03,& - 0.9425E-03, 0.9425E-03, 0.9425E-03, 0.9425E-03,& - 0.9425E-03, 0.9425E-03, 0.9425E-03, 0.9425E-03,& - 0.9425E-03, 0.9425E-03, 0.9425E-03, 0.9425E-03,& - 0.9425E-03, 0.1409E-02, 0.1409E-02, 0.1409E-02,& - 0.1409E-02, 0.1409E-02, 0.1409E-02, 0.1409E-02,& - 0.1409E-02, 0.1409E-02, 0.1409E-02, 0.1409E-02,& - 0.1409E-02, 0.1875E-02, 0.1875E-02, 0.1875E-02,& - 0.1875E-02, 0.1875E-02, 0.1875E-02, 0.1875E-02,& - 0.1875E-02, 0.1875E-02, 0.2341E-02, 0.2341E-02,& - 0.2341E-02, 0.2341E-02, 0.2341E-02, 0.2341E-02,& - 0.2341E-02, 0.2341E-02, 0.2808E-02, 0.2808E-02,& - 0.2808E-02, 0.2808E-02, 0.2808E-02, 0.2808E-02,& - 0.2808E-02, 0.3274E-02, 0.3274E-02, 0.3274E-02,& - 0.3274E-02, 0.3274E-02, 0.3274E-02, 0.3740E-02,& - 0.3740E-02, 0.3740E-02, 0.3740E-02, 0.3740E-02,& - 0.4206E-02, 0.4206E-02, 0.4206E-02, 0.4206E-02,& - 0.4206E-02, 0.4673E-02, 0.4673E-02, 0.4673E-02,& - 0.4673E-02, 0.5139E-02, 0.5139E-02, 0.5139E-02,& - 0.5139E-02, 0.5605E-02, 0.5605E-02, 0.5605E-02,& - 0.5605E-02, 0.6071E-02, 0.6071E-02, 0.6071E-02,& - 0.6538E-02, 0.6538E-02, 0.6538E-02, 0.7004E-02,& - 0.7004E-02, 0.7004E-02, 0.7470E-02, 0.7470E-02,& - 0.7470E-02, 0.7936E-02, 0.7936E-02, 0.7936E-02,& - 0.8403E-02, 0.8403E-02, 0.8403E-02, 0.8869E-02,& - 0.8869E-02, 0.9335E-02, 0.9335E-02, 0.9335E-02,& - 0.9801E-02, 0.9801E-02, 0.1027E-01, 0.1027E-01,& - 0.1073E-01, 0.1073E-01, 0.1120E-01, 0.1120E-01,& - 0.1167E-01, 0.1167E-01, 0.1213E-01, 0.1213E-01,& - 0.1260E-01, 0.1260E-01, 0.1307E-01, 0.1353E-01,& - 0.1353E-01, 0.1400E-01, 0.1400E-01, 0.1446E-01,& - 0.1493E-01, 0.1493E-01, 0.1540E-01, 0.1586E-01,& - 0.1586E-01, 0.1633E-01, 0.1680E-01, 0.1680E-01,& - 0.1726E-01, 0.1773E-01, 0.1819E-01, 0.1819E-01,& - 0.1866E-01, 0.1913E-01, 0.1959E-01, 0.2006E-01,& - 0.2006E-01, 0.2053E-01, 0.2099E-01, 0.2146E-01,& - 0.2192E-01, 0.2239E-01, 0.2286E-01, 0.2332E-01,& - 0.2379E-01, 0.2426E-01, 0.2472E-01, 0.2519E-01,& - 0.2565E-01, 0.2612E-01, 0.2659E-01, 0.2705E-01,& - 0.2752E-01, 0.2799E-01, 0.2845E-01, 0.2892E-01,& - 0.2985E-01, 0.3032E-01, 0.3078E-01, 0.3125E-01,& - 0.3218E-01, 0.3265E-01, 0.3311E-01, 0.3358E-01,& - 0.3451E-01, 0.3498E-01, 0.3591E-01, 0.3638E-01,& - 0.3731E-01, 0.3778E-01, 0.3871E-01, 0.3918E-01,& - 0.4011E-01, 0.4057E-01, 0.4151E-01, 0.4197E-01,& - 0.4291E-01, 0.4384E-01, 0.4430E-01, 0.4524E-01,& - 0.4617E-01, 0.4710E-01, 0.4803E-01, 0.4897E-01,& - 0.4943E-01, 0.5037E-01, 0.5130E-01, 0.5223E-01,& - 0.5316E-01, 0.5410E-01, 0.5503E-01, 0.5643E-01,& - 0.5736E-01, 0.5829E-01, 0.5922E-01, 0.6016E-01,& - 0.6156E-01, 0.6249E-01, 0.6342E-01, 0.6482E-01,& - 0.6575E-01, 0.6715E-01, 0.6808E-01, 0.6948E-01,& - 0.7088E-01, 0.7181E-01, 0.7321E-01, 0.7461E-01,& - 0.7554E-01, 0.7694E-01, 0.7834E-01, 0.7974E-01,& - 0.8114E-01, 0.8254E-01, 0.8394E-01, 0.8533E-01,& - 0.8673E-01, 0.8860E-01, 0.9000E-01, 0.9140E-01,& - 0.9326E-01, 0.9466E-01, 0.9652E-01, 0.9792E-01,& - 0.9979E-01, 0.1012E+00, 0.1031E+00, 0.1049E+00,& - 0.1068E+00, 0.1086E+00, 0.1100E+00, 0.1119E+00,& - 0.1142E+00, 0.1161E+00, 0.1180E+00, 0.1198E+00,& - 0.1217E+00, 0.1240E+00, 0.1259E+00, 0.1282E+00,& - 0.1301E+00, 0.1324E+00, 0.1348E+00, 0.1371E+00,& - 0.1390E+00, 0.1413E+00, 0.1436E+00, 0.1464E+00,& - 0.1487E+00, 0.1511E+00, 0.1534E+00, 0.1562E+00,& - 0.1585E+00, 0.1613E+00, 0.1641E+00, 0.1665E+00,& - 0.1693E+00, 0.1721E+00, 0.1749E+00, 0.1777E+00,& - 0.1804E+00, 0.1837E+00, 0.1865E+00, 0.1898E+00,& - 0.1926E+00, 0.1958E+00, 0.1991E+00, 0.2024E+00,& - 0.2056E+00, 0.2089E+00, 0.2122E+00, 0.2154E+00,& - 0.2191E+00, 0.2224E+00, 0.2261E+00, 0.2299E+00,& - 0.2331E+00, 0.2369E+00, 0.2411E+00, 0.2448E+00,& - 0.2485E+00, 0.2527E+00, 0.2564E+00, 0.2606E+00,& - 0.2648E+00, 0.2690E+00, 0.2732E+00, 0.2774E+00,& - 0.2821E+00, 0.2863E+00, 0.2910E+00, 0.2951E+00,& - 0.2998E+00, 0.3049E+00, 0.3096E+00, 0.3143E+00,& - 0.3194E+00, 0.3241E+00, 0.3292E+00, 0.3343E+00,& - 0.3394E+00, 0.3450E+00, 0.3502E+00, 0.3558E+00,& - 0.3614E+00, 0.3669E+00, 0.3725E+00, 0.3781E+00,& - 0.3842E+00, 0.3903E+00, 0.3959E+00, 0.4024E+00,& - 0.4084E+00, 0.4145E+00, 0.4210E+00, 0.4276E+00,& - 0.4341E+00, 0.4406E+00, 0.4476E+00, 0.4541E+00,& - 0.4611E+00, 0.4681E+00, 0.4756E+00, 0.4826E+00,& - 0.4900E+00, 0.4975E+00, 0.5050E+00, 0.5129E+00,& - 0.5203E+00, 0.5283E+00, 0.5367E+00, 0.5446E+00,& - 0.5530E+00, 0.5614E+00, 0.5698E+00, 0.5782E+00,& - 0.5870E+00, 0.5959E+00, 0.6047E+00, 0.6141E+00,& - 0.6234E+00, 0.6327E+00, 0.6420E+00, 0.6518E+00,& - 0.6616E+00, 0.6714E+00, 0.6817E+00, 0.6919E+00,& - 0.7022E+00, 0.7124E+00, 0.7232E+00, 0.7344E+00,& - 0.7451E+00, 0.7563E+00, 0.7675E+00, 0.7791E+00,& - 0.7908E+00, 0.8024E+00, 0.8146E+00, 0.8267E+00,& - 0.8388E+00, 0.8514E+00, 0.8640E+00, 0.8766E+00,& - 0.8896E+00, 0.9031E+00, 0.9167E+00, 0.9302E+00,& - 0.9437E+00, 0.9577E+00, 0.9721E+00, 0.9866E+00,& - 0.1001E+01, 0.1016E+01, 0.1031E+01, 0.1046E+01,& - 0.1062E+01, 0.1078E+01, 0.1093E+01, 0.1110E+01,& - 0.1126E+01, 0.1143E+01, 0.1160E+01, 0.1177E+01,& - 0.1195E+01, 0.1212E+01, 0.1230E+01, 0.1248E+01,& - 0.1267E+01, 0.1285E+01, 0.1305E+01, 0.1324E+01,& - 0.1343E+01, 0.1363E+01, 0.1383E+01, 0.1404E+01,& - 0.1425E+01, 0.1446E+01, 0.1467E+01, 0.1489E+01,& - 0.1511E+01, 0.1534E+01, 0.1556E+01, 0.1579E+01,& - 0.1603E+01, 0.1627E+01, 0.1651E+01, 0.1675E+01,& - 0.1700E+01, 0.1726E+01, 0.1751E+01, 0.1777E+01,& - 0.1804E+01, 0.1831E+01, 0.1858E+01, 0.1886E+01,& - 0.1914E+01, 0.1942E+01, 0.1972E+01, 0.2001E+01,& - 0.2031E+01, 0.2062E+01, 0.2093E+01, 0.2124E+01,& - 0.2156E+01, 0.2189E+01, 0.2222E+01, 0.2255E+01,& - 0.2289E+01, 0.2324E+01, 0.2359E+01, 0.2395E+01,& - 0.2431E+01, 0.2468E+01, 0.2506E+01, 0.2544E+01,& - 0.2583E+01, 0.2622E+01, 0.2663E+01, 0.2703E+01,& - 0.2745E+01, 0.2787E+01, 0.2830E+01, 0.2874E+01,& - 0.2919E+01, 0.2964E+01, 0.3010E+01, 0.3057E+01,& - 0.3104E+01, 0.3153E+01, 0.3203E+01, 0.3253E+01,& - 0.3304E+01, 0.3356E+01, 0.3409E+01, 0.3464E+01,& - 0.3519E+01, 0.3575E+01, 0.3632E+01, 0.3690E+01,& - 0.3750E+01, 0.3810E+01, 0.3872E+01, 0.3935E+01,& - 0.3999E+01, 0.4064E+01, 0.4131E+01, 0.4200E+01,& - 0.4269E+01, 0.4340E+01, 0.4412E+01, 0.4486E+01,& - 0.4561E+01, 0.4638E+01, 0.4717E+01, 0.4797E+01,& - 0.4879E+01, 0.4963E+01, 0.5049E+01, 0.5137E+01,& - 0.5226E+01, 0.5318E+01, 0.5412E+01, 0.5508E+01,& - 0.5606E+01, 0.5707E+01, 0.5810E+01, 0.5916E+01,& - 0.6024E+01, 0.6135E+01, 0.6250E+01, 0.6367E+01,& - 0.6486E+01, 0.6610E+01, 0.6737E+01, 0.6867E+01,& - 0.7001E+01, 0.7138E+01, 0.7280E+01, 0.7426E+01,& - 0.7577E+01, 0.7732E+01, 0.7892E+01, 0.8057E+01,& - 0.8227E+01, 0.8404E+01, 0.8586E+01, 0.8775E+01,& - 0.8971E+01, 0.9174E+01, 0.9384E+01, 0.9603E+01,& - 0.9830E+01, 0.1007E+02, 0.1032E+02, 0.1057E+02,& - 0.1085E+02, 0.1113E+02, 0.1143E+02, 0.1174E+02,& - 0.1207E+02, 0.1242E+02, 0.1278E+02, 0.1318E+02,& - 0.1359E+02, 0.1404E+02, 0.1452E+02, 0.1504E+02,& - 0.1560E+02, 0.1622E+02, 0.1690E+02, 0.1765E+02,& - 0.1850E+02, 0.1948E+02, 0.2062E+02, 0.2199E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,132) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.4827E-03,& - 0.4827E-03, 0.4827E-03, 0.4827E-03, 0.4827E-03,& - 0.4827E-03, 0.4827E-03, 0.4827E-03, 0.4827E-03,& - 0.4827E-03, 0.4827E-03, 0.4827E-03, 0.4827E-03,& - 0.4827E-03, 0.4827E-03, 0.4827E-03, 0.4827E-03,& - 0.4827E-03, 0.4827E-03, 0.4827E-03, 0.4827E-03,& - 0.4827E-03, 0.4827E-03, 0.4827E-03, 0.4827E-03,& - 0.4827E-03, 0.4827E-03, 0.9553E-03, 0.9553E-03,& - 0.9553E-03, 0.9553E-03, 0.9553E-03, 0.9553E-03,& - 0.9553E-03, 0.9553E-03, 0.9553E-03, 0.9553E-03,& - 0.9553E-03, 0.9553E-03, 0.9553E-03, 0.9553E-03,& - 0.9553E-03, 0.9553E-03, 0.1428E-02, 0.1428E-02,& - 0.1428E-02, 0.1428E-02, 0.1428E-02, 0.1428E-02,& - 0.1428E-02, 0.1428E-02, 0.1428E-02, 0.1428E-02,& - 0.1428E-02, 0.1428E-02, 0.1901E-02, 0.1901E-02,& - 0.1901E-02, 0.1901E-02, 0.1901E-02, 0.1901E-02,& - 0.1901E-02, 0.1901E-02, 0.1901E-02, 0.2373E-02,& - 0.2373E-02, 0.2373E-02, 0.2373E-02, 0.2373E-02,& - 0.2373E-02, 0.2373E-02, 0.2373E-02, 0.2846E-02,& - 0.2846E-02, 0.2846E-02, 0.2846E-02, 0.2846E-02,& - 0.2846E-02, 0.2846E-02, 0.3319E-02, 0.3319E-02,& - 0.3319E-02, 0.3319E-02, 0.3319E-02, 0.3319E-02,& - 0.3791E-02, 0.3791E-02, 0.3791E-02, 0.3791E-02,& - 0.3791E-02, 0.4264E-02, 0.4264E-02, 0.4264E-02,& - 0.4264E-02, 0.4264E-02, 0.4737E-02, 0.4737E-02,& - 0.4737E-02, 0.4737E-02, 0.5209E-02, 0.5209E-02,& - 0.5209E-02, 0.5209E-02, 0.5682E-02, 0.5682E-02,& - 0.5682E-02, 0.5682E-02, 0.6155E-02, 0.6155E-02,& - 0.6155E-02, 0.6627E-02, 0.6627E-02, 0.6627E-02,& - 0.7100E-02, 0.7100E-02, 0.7100E-02, 0.7573E-02,& - 0.7573E-02, 0.7573E-02, 0.8045E-02, 0.8045E-02,& - 0.8045E-02, 0.8518E-02, 0.8518E-02, 0.8991E-02,& - 0.8991E-02, 0.8991E-02, 0.9463E-02, 0.9463E-02,& - 0.9936E-02, 0.9936E-02, 0.9936E-02, 0.1041E-01,& - 0.1041E-01, 0.1088E-01, 0.1088E-01, 0.1135E-01,& - 0.1135E-01, 0.1183E-01, 0.1183E-01, 0.1230E-01,& - 0.1230E-01, 0.1277E-01, 0.1324E-01, 0.1324E-01,& - 0.1372E-01, 0.1372E-01, 0.1419E-01, 0.1466E-01,& - 0.1466E-01, 0.1514E-01, 0.1514E-01, 0.1561E-01,& - 0.1608E-01, 0.1655E-01, 0.1655E-01, 0.1703E-01,& - 0.1750E-01, 0.1750E-01, 0.1797E-01, 0.1844E-01,& - 0.1892E-01, 0.1892E-01, 0.1939E-01, 0.1986E-01,& - 0.2033E-01, 0.2081E-01, 0.2128E-01, 0.2175E-01,& - 0.2175E-01, 0.2223E-01, 0.2270E-01, 0.2317E-01,& - 0.2364E-01, 0.2412E-01, 0.2459E-01, 0.2506E-01,& - 0.2553E-01, 0.2601E-01, 0.2648E-01, 0.2695E-01,& - 0.2790E-01, 0.2837E-01, 0.2884E-01, 0.2932E-01,& - 0.2979E-01, 0.3026E-01, 0.3121E-01, 0.3168E-01,& - 0.3215E-01, 0.3262E-01, 0.3357E-01, 0.3404E-01,& - 0.3451E-01, 0.3546E-01, 0.3593E-01, 0.3688E-01,& - 0.3735E-01, 0.3830E-01, 0.3877E-01, 0.3971E-01,& - 0.4019E-01, 0.4113E-01, 0.4160E-01, 0.4255E-01,& - 0.4350E-01, 0.4397E-01, 0.4491E-01, 0.4586E-01,& - 0.4680E-01, 0.4775E-01, 0.4822E-01, 0.4917E-01,& - 0.5011E-01, 0.5106E-01, 0.5200E-01, 0.5295E-01,& - 0.5389E-01, 0.5484E-01, 0.5578E-01, 0.5673E-01,& - 0.5815E-01, 0.5909E-01, 0.6004E-01, 0.6098E-01,& - 0.6240E-01, 0.6335E-01, 0.6429E-01, 0.6571E-01,& - 0.6666E-01, 0.6807E-01, 0.6902E-01, 0.7044E-01,& - 0.7186E-01, 0.7280E-01, 0.7422E-01, 0.7564E-01,& - 0.7705E-01, 0.7847E-01, 0.7989E-01, 0.8084E-01,& - 0.8273E-01, 0.8414E-01, 0.8556E-01, 0.8698E-01,& - 0.8840E-01, 0.8982E-01, 0.9171E-01, 0.9312E-01,& - 0.9454E-01, 0.9643E-01, 0.9785E-01, 0.9974E-01,& - 0.1016E+00, 0.1031E+00, 0.1049E+00, 0.1068E+00,& - 0.1087E+00, 0.1106E+00, 0.1125E+00, 0.1144E+00,& - 0.1163E+00, 0.1182E+00, 0.1201E+00, 0.1224E+00,& - 0.1243E+00, 0.1262E+00, 0.1286E+00, 0.1305E+00,& - 0.1328E+00, 0.1352E+00, 0.1376E+00, 0.1399E+00,& - 0.1423E+00, 0.1446E+00, 0.1470E+00, 0.1494E+00,& - 0.1517E+00, 0.1546E+00, 0.1569E+00, 0.1593E+00,& - 0.1621E+00, 0.1650E+00, 0.1678E+00, 0.1702E+00,& - 0.1730E+00, 0.1758E+00, 0.1791E+00, 0.1820E+00,& - 0.1848E+00, 0.1881E+00, 0.1910E+00, 0.1943E+00,& - 0.1971E+00, 0.2004E+00, 0.2037E+00, 0.2070E+00,& - 0.2103E+00, 0.2141E+00, 0.2174E+00, 0.2207E+00,& - 0.2245E+00, 0.2283E+00, 0.2316E+00, 0.2354E+00,& - 0.2392E+00, 0.2434E+00, 0.2472E+00, 0.2510E+00,& - 0.2552E+00, 0.2590E+00, 0.2633E+00, 0.2675E+00,& - 0.2718E+00, 0.2760E+00, 0.2808E+00, 0.2850E+00,& - 0.2898E+00, 0.2945E+00, 0.2987E+00, 0.3035E+00,& - 0.3087E+00, 0.3134E+00, 0.3181E+00, 0.3233E+00,& - 0.3285E+00, 0.3337E+00, 0.3389E+00, 0.3441E+00,& - 0.3498E+00, 0.3550E+00, 0.3607E+00, 0.3663E+00,& - 0.3720E+00, 0.3781E+00, 0.3838E+00, 0.3900E+00,& - 0.3961E+00, 0.4022E+00, 0.4084E+00, 0.4145E+00,& - 0.4212E+00, 0.4278E+00, 0.4344E+00, 0.4410E+00,& - 0.4481E+00, 0.4547E+00, 0.4618E+00, 0.4689E+00,& - 0.4765E+00, 0.4835E+00, 0.4911E+00, 0.4987E+00,& - 0.5062E+00, 0.5143E+00, 0.5218E+00, 0.5299E+00,& - 0.5384E+00, 0.5464E+00, 0.5549E+00, 0.5634E+00,& - 0.5719E+00, 0.5804E+00, 0.5894E+00, 0.5984E+00,& - 0.6079E+00, 0.6168E+00, 0.6263E+00, 0.6357E+00,& - 0.6457E+00, 0.6551E+00, 0.6650E+00, 0.6754E+00,& - 0.6858E+00, 0.6962E+00, 0.7066E+00, 0.7175E+00,& - 0.7284E+00, 0.7393E+00, 0.7501E+00, 0.7615E+00,& - 0.7733E+00, 0.7851E+00, 0.7969E+00, 0.8087E+00,& - 0.8210E+00, 0.8333E+00, 0.8461E+00, 0.8588E+00,& - 0.8716E+00, 0.8848E+00, 0.8981E+00, 0.9113E+00,& - 0.9250E+00, 0.9392E+00, 0.9534E+00, 0.9676E+00,& - 0.9822E+00, 0.9969E+00, 0.1012E+01, 0.1027E+01,& - 0.1042E+01, 0.1058E+01, 0.1074E+01, 0.1090E+01,& - 0.1107E+01, 0.1123E+01, 0.1140E+01, 0.1157E+01,& - 0.1174E+01, 0.1192E+01, 0.1210E+01, 0.1228E+01,& - 0.1246E+01, 0.1265E+01, 0.1284E+01, 0.1303E+01,& - 0.1323E+01, 0.1342E+01, 0.1363E+01, 0.1383E+01,& - 0.1404E+01, 0.1425E+01, 0.1446E+01, 0.1468E+01,& - 0.1490E+01, 0.1512E+01, 0.1535E+01, 0.1558E+01,& - 0.1581E+01, 0.1605E+01, 0.1629E+01, 0.1654E+01,& - 0.1678E+01, 0.1704E+01, 0.1729E+01, 0.1755E+01,& - 0.1782E+01, 0.1809E+01, 0.1836E+01, 0.1864E+01,& - 0.1892E+01, 0.1921E+01, 0.1950E+01, 0.1980E+01,& - 0.2009E+01, 0.2040E+01, 0.2071E+01, 0.2102E+01,& - 0.2135E+01, 0.2167E+01, 0.2200E+01, 0.2234E+01,& - 0.2268E+01, 0.2302E+01, 0.2338E+01, 0.2374E+01,& - 0.2410E+01, 0.2447E+01, 0.2485E+01, 0.2523E+01,& - 0.2562E+01, 0.2602E+01, 0.2642E+01, 0.2683E+01,& - 0.2725E+01, 0.2767E+01, 0.2810E+01, 0.2854E+01,& - 0.2899E+01, 0.2944E+01, 0.2991E+01, 0.3038E+01,& - 0.3086E+01, 0.3135E+01, 0.3184E+01, 0.3235E+01,& - 0.3286E+01, 0.3339E+01, 0.3392E+01, 0.3447E+01,& - 0.3502E+01, 0.3558E+01, 0.3616E+01, 0.3675E+01,& - 0.3735E+01, 0.3796E+01, 0.3857E+01, 0.3921E+01,& - 0.3986E+01, 0.4051E+01, 0.4118E+01, 0.4187E+01,& - 0.4257E+01, 0.4328E+01, 0.4401E+01, 0.4476E+01,& - 0.4551E+01, 0.4629E+01, 0.4708E+01, 0.4789E+01,& - 0.4872E+01, 0.4956E+01, 0.5043E+01, 0.5131E+01,& - 0.5222E+01, 0.5314E+01, 0.5409E+01, 0.5506E+01,& - 0.5605E+01, 0.5707E+01, 0.5811E+01, 0.5918E+01,& - 0.6027E+01, 0.6139E+01, 0.6254E+01, 0.6372E+01,& - 0.6493E+01, 0.6618E+01, 0.6746E+01, 0.6878E+01,& - 0.7013E+01, 0.7152E+01, 0.7296E+01, 0.7443E+01,& - 0.7595E+01, 0.7752E+01, 0.7913E+01, 0.8081E+01,& - 0.8253E+01, 0.8431E+01, 0.8616E+01, 0.8807E+01,& - 0.9005E+01, 0.9209E+01, 0.9424E+01, 0.9645E+01,& - 0.9875E+01, 0.1012E+02, 0.1037E+02, 0.1063E+02,& - 0.1090E+02, 0.1119E+02, 0.1149E+02, 0.1181E+02,& - 0.1214E+02, 0.1249E+02, 0.1287E+02, 0.1326E+02,& - 0.1369E+02, 0.1414E+02, 0.1463E+02, 0.1515E+02,& - 0.1572E+02, 0.1635E+02, 0.1704E+02, 0.1780E+02,& - 0.1867E+02, 0.1965E+02, 0.2081E+02, 0.2221E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,133) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.4891E-03, 0.4891E-03, 0.4891E-03,& - 0.4891E-03, 0.4891E-03, 0.4891E-03, 0.4891E-03,& - 0.4891E-03, 0.4891E-03, 0.4891E-03, 0.4891E-03,& - 0.4891E-03, 0.4891E-03, 0.4891E-03, 0.4891E-03,& - 0.4891E-03, 0.4891E-03, 0.4891E-03, 0.4891E-03,& - 0.4891E-03, 0.4891E-03, 0.4891E-03, 0.4891E-03,& - 0.4891E-03, 0.4891E-03, 0.4891E-03, 0.9683E-03,& - 0.9683E-03, 0.9683E-03, 0.9683E-03, 0.9683E-03,& - 0.9683E-03, 0.9683E-03, 0.9683E-03, 0.9683E-03,& - 0.9683E-03, 0.9683E-03, 0.9683E-03, 0.9683E-03,& - 0.9683E-03, 0.9683E-03, 0.9683E-03, 0.1447E-02,& - 0.1447E-02, 0.1447E-02, 0.1447E-02, 0.1447E-02,& - 0.1447E-02, 0.1447E-02, 0.1447E-02, 0.1447E-02,& - 0.1447E-02, 0.1447E-02, 0.1447E-02, 0.1927E-02,& - 0.1927E-02, 0.1927E-02, 0.1927E-02, 0.1927E-02,& - 0.1927E-02, 0.1927E-02, 0.1927E-02, 0.1927E-02,& - 0.2406E-02, 0.2406E-02, 0.2406E-02, 0.2406E-02,& - 0.2406E-02, 0.2406E-02, 0.2406E-02, 0.2406E-02,& - 0.2885E-02, 0.2885E-02, 0.2885E-02, 0.2885E-02,& - 0.2885E-02, 0.2885E-02, 0.2885E-02, 0.3364E-02,& - 0.3364E-02, 0.3364E-02, 0.3364E-02, 0.3364E-02,& - 0.3843E-02, 0.3843E-02, 0.3843E-02, 0.3843E-02,& - 0.3843E-02, 0.3843E-02, 0.4322E-02, 0.4322E-02,& - 0.4322E-02, 0.4322E-02, 0.4801E-02, 0.4801E-02,& - 0.4801E-02, 0.4801E-02, 0.4801E-02, 0.5280E-02,& - 0.5280E-02, 0.5280E-02, 0.5280E-02, 0.5760E-02,& - 0.5760E-02, 0.5760E-02, 0.6239E-02, 0.6239E-02,& - 0.6239E-02, 0.6239E-02, 0.6718E-02, 0.6718E-02,& - 0.6718E-02, 0.7197E-02, 0.7197E-02, 0.7197E-02,& - 0.7676E-02, 0.7676E-02, 0.7676E-02, 0.8155E-02,& - 0.8155E-02, 0.8155E-02, 0.8634E-02, 0.8634E-02,& - 0.9113E-02, 0.9113E-02, 0.9113E-02, 0.9593E-02,& - 0.9593E-02, 0.1007E-01, 0.1007E-01, 0.1055E-01,& - 0.1055E-01, 0.1103E-01, 0.1103E-01, 0.1151E-01,& - 0.1151E-01, 0.1199E-01, 0.1199E-01, 0.1247E-01,& - 0.1247E-01, 0.1295E-01, 0.1295E-01, 0.1343E-01,& - 0.1343E-01, 0.1390E-01, 0.1438E-01, 0.1438E-01,& - 0.1486E-01, 0.1486E-01, 0.1534E-01, 0.1582E-01,& - 0.1582E-01, 0.1630E-01, 0.1678E-01, 0.1726E-01,& - 0.1726E-01, 0.1774E-01, 0.1822E-01, 0.1870E-01,& - 0.1870E-01, 0.1918E-01, 0.1965E-01, 0.2013E-01,& - 0.2061E-01, 0.2061E-01, 0.2109E-01, 0.2157E-01,& - 0.2205E-01, 0.2253E-01, 0.2301E-01, 0.2349E-01,& - 0.2397E-01, 0.2445E-01, 0.2492E-01, 0.2540E-01,& - 0.2588E-01, 0.2636E-01, 0.2684E-01, 0.2732E-01,& - 0.2780E-01, 0.2828E-01, 0.2924E-01, 0.2972E-01,& - 0.3019E-01, 0.3067E-01, 0.3115E-01, 0.3211E-01,& - 0.3259E-01, 0.3307E-01, 0.3355E-01, 0.3451E-01,& - 0.3499E-01, 0.3594E-01, 0.3642E-01, 0.3690E-01,& - 0.3786E-01, 0.3834E-01, 0.3930E-01, 0.3978E-01,& - 0.4074E-01, 0.4169E-01, 0.4217E-01, 0.4313E-01,& - 0.4409E-01, 0.4457E-01, 0.4553E-01, 0.4649E-01,& - 0.4744E-01, 0.4792E-01, 0.4888E-01, 0.4984E-01,& - 0.5080E-01, 0.5176E-01, 0.5271E-01, 0.5367E-01,& - 0.5463E-01, 0.5559E-01, 0.5655E-01, 0.5798E-01,& - 0.5894E-01, 0.5990E-01, 0.6086E-01, 0.6230E-01,& - 0.6325E-01, 0.6421E-01, 0.6565E-01, 0.6661E-01,& - 0.6805E-01, 0.6900E-01, 0.7044E-01, 0.7140E-01,& - 0.7284E-01, 0.7427E-01, 0.7571E-01, 0.7667E-01,& - 0.7811E-01, 0.7954E-01, 0.8098E-01, 0.8242E-01,& - 0.8386E-01, 0.8529E-01, 0.8673E-01, 0.8865E-01,& - 0.9009E-01, 0.9152E-01, 0.9296E-01, 0.9488E-01,& - 0.9631E-01, 0.9823E-01, 0.9967E-01, 0.1016E+00,& - 0.1035E+00, 0.1049E+00, 0.1069E+00, 0.1088E+00,& - 0.1107E+00, 0.1126E+00, 0.1145E+00, 0.1164E+00,& - 0.1184E+00, 0.1207E+00, 0.1227E+00, 0.1246E+00,& - 0.1270E+00, 0.1289E+00, 0.1313E+00, 0.1337E+00,& - 0.1356E+00, 0.1380E+00, 0.1404E+00, 0.1428E+00,& - 0.1452E+00, 0.1476E+00, 0.1500E+00, 0.1529E+00,& - 0.1552E+00, 0.1576E+00, 0.1605E+00, 0.1634E+00,& - 0.1658E+00, 0.1687E+00, 0.1715E+00, 0.1744E+00,& - 0.1773E+00, 0.1802E+00, 0.1830E+00, 0.1864E+00,& - 0.1893E+00, 0.1926E+00, 0.1955E+00, 0.1988E+00,& - 0.2022E+00, 0.2056E+00, 0.2089E+00, 0.2123E+00,& - 0.2161E+00, 0.2194E+00, 0.2228E+00, 0.2266E+00,& - 0.2305E+00, 0.2343E+00, 0.2381E+00, 0.2420E+00,& - 0.2458E+00, 0.2496E+00, 0.2539E+00, 0.2578E+00,& - 0.2621E+00, 0.2664E+00, 0.2707E+00, 0.2750E+00,& - 0.2793E+00, 0.2841E+00, 0.2884E+00, 0.2932E+00,& - 0.2980E+00, 0.3028E+00, 0.3076E+00, 0.3124E+00,& - 0.3177E+00, 0.3225E+00, 0.3277E+00, 0.3330E+00,& - 0.3383E+00, 0.3435E+00, 0.3493E+00, 0.3546E+00,& - 0.3603E+00, 0.3661E+00, 0.3718E+00, 0.3776E+00,& - 0.3838E+00, 0.3895E+00, 0.3958E+00, 0.4020E+00,& - 0.4087E+00, 0.4149E+00, 0.4216E+00, 0.4279E+00,& - 0.4346E+00, 0.4418E+00, 0.4485E+00, 0.4557E+00,& - 0.4628E+00, 0.4700E+00, 0.4772E+00, 0.4849E+00,& - 0.4921E+00, 0.4997E+00, 0.5079E+00, 0.5155E+00,& - 0.5237E+00, 0.5318E+00, 0.5400E+00, 0.5486E+00,& - 0.5568E+00, 0.5654E+00, 0.5745E+00, 0.5831E+00,& - 0.5922E+00, 0.6013E+00, 0.6109E+00, 0.6200E+00,& - 0.6296E+00, 0.6392E+00, 0.6492E+00, 0.6593E+00,& - 0.6693E+00, 0.6794E+00, 0.6900E+00, 0.7005E+00,& - 0.7115E+00, 0.7221E+00, 0.7336E+00, 0.7446E+00,& - 0.7561E+00, 0.7676E+00, 0.7791E+00, 0.7910E+00,& - 0.8035E+00, 0.8155E+00, 0.8279E+00, 0.8404E+00,& - 0.8533E+00, 0.8663E+00, 0.8797E+00, 0.8931E+00,& - 0.9065E+00, 0.9204E+00, 0.9343E+00, 0.9487E+00,& - 0.9631E+00, 0.9779E+00, 0.9928E+00, 0.1008E+01,& - 0.1023E+01, 0.1039E+01, 0.1054E+01, 0.1070E+01,& - 0.1087E+01, 0.1103E+01, 0.1120E+01, 0.1137E+01,& - 0.1154E+01, 0.1171E+01, 0.1189E+01, 0.1207E+01,& - 0.1226E+01, 0.1244E+01, 0.1263E+01, 0.1282E+01,& - 0.1302E+01, 0.1321E+01, 0.1342E+01, 0.1362E+01,& - 0.1383E+01, 0.1403E+01, 0.1425E+01, 0.1446E+01,& - 0.1469E+01, 0.1491E+01, 0.1514E+01, 0.1537E+01,& - 0.1560E+01, 0.1584E+01, 0.1607E+01, 0.1632E+01,& - 0.1657E+01, 0.1682E+01, 0.1708E+01, 0.1734E+01,& - 0.1760E+01, 0.1787E+01, 0.1814E+01, 0.1842E+01,& - 0.1871E+01, 0.1899E+01, 0.1928E+01, 0.1958E+01,& - 0.1988E+01, 0.2018E+01, 0.2049E+01, 0.2081E+01,& - 0.2113E+01, 0.2146E+01, 0.2179E+01, 0.2212E+01,& - 0.2246E+01, 0.2281E+01, 0.2317E+01, 0.2353E+01,& - 0.2389E+01, 0.2426E+01, 0.2464E+01, 0.2502E+01,& - 0.2541E+01, 0.2581E+01, 0.2621E+01, 0.2663E+01,& - 0.2704E+01, 0.2747E+01, 0.2790E+01, 0.2834E+01,& - 0.2879E+01, 0.2925E+01, 0.2971E+01, 0.3019E+01,& - 0.3066E+01, 0.3116E+01, 0.3166E+01, 0.3216E+01,& - 0.3268E+01, 0.3321E+01, 0.3374E+01, 0.3429E+01,& - 0.3485E+01, 0.3542E+01, 0.3599E+01, 0.3657E+01,& - 0.3719E+01, 0.3780E+01, 0.3842E+01, 0.3906E+01,& - 0.3971E+01, 0.4037E+01, 0.4105E+01, 0.4174E+01,& - 0.4244E+01, 0.4316E+01, 0.4389E+01, 0.4465E+01,& - 0.4541E+01, 0.4619E+01, 0.4699E+01, 0.4780E+01,& - 0.4864E+01, 0.4949E+01, 0.5036E+01, 0.5125E+01,& - 0.5217E+01, 0.5310E+01, 0.5406E+01, 0.5503E+01,& - 0.5603E+01, 0.5706E+01, 0.5811E+01, 0.5919E+01,& - 0.6029E+01, 0.6142E+01, 0.6258E+01, 0.6378E+01,& - 0.6500E+01, 0.6626E+01, 0.6755E+01, 0.6888E+01,& - 0.7024E+01, 0.7165E+01, 0.7310E+01, 0.7459E+01,& - 0.7612E+01, 0.7771E+01, 0.7934E+01, 0.8103E+01,& - 0.8278E+01, 0.8458E+01, 0.8644E+01, 0.8838E+01,& - 0.9038E+01, 0.9246E+01, 0.9460E+01, 0.9682E+01,& - 0.9919E+01, 0.1016E+02, 0.1042E+02, 0.1068E+02,& - 0.1096E+02, 0.1125E+02, 0.1155E+02, 0.1187E+02,& - 0.1221E+02, 0.1257E+02, 0.1295E+02, 0.1335E+02,& - 0.1378E+02, 0.1424E+02, 0.1473E+02, 0.1527E+02,& - 0.1584E+02, 0.1648E+02, 0.1717E+02, 0.1795E+02,& - 0.1883E+02, 0.1983E+02, 0.2101E+02, 0.2242E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,134) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.4956E-03, 0.4956E-03,& - 0.4956E-03, 0.4956E-03, 0.4956E-03, 0.4956E-03,& - 0.4956E-03, 0.4956E-03, 0.4956E-03, 0.4956E-03,& - 0.4956E-03, 0.4956E-03, 0.4956E-03, 0.4956E-03,& - 0.4956E-03, 0.4956E-03, 0.4956E-03, 0.4956E-03,& - 0.4956E-03, 0.4956E-03, 0.4956E-03, 0.4956E-03,& - 0.4956E-03, 0.4956E-03, 0.4956E-03, 0.4956E-03,& - 0.9813E-03, 0.9813E-03, 0.9813E-03, 0.9813E-03,& - 0.9813E-03, 0.9813E-03, 0.9813E-03, 0.9813E-03,& - 0.9813E-03, 0.9813E-03, 0.9813E-03, 0.9813E-03,& - 0.9813E-03, 0.9813E-03, 0.9813E-03, 0.9813E-03,& - 0.1467E-02, 0.1467E-02, 0.1467E-02, 0.1467E-02,& - 0.1467E-02, 0.1467E-02, 0.1467E-02, 0.1467E-02,& - 0.1467E-02, 0.1467E-02, 0.1467E-02, 0.1467E-02,& - 0.1953E-02, 0.1953E-02, 0.1953E-02, 0.1953E-02,& - 0.1953E-02, 0.1953E-02, 0.1953E-02, 0.1953E-02,& - 0.1953E-02, 0.2438E-02, 0.2438E-02, 0.2438E-02,& - 0.2438E-02, 0.2438E-02, 0.2438E-02, 0.2438E-02,& - 0.2438E-02, 0.2924E-02, 0.2924E-02, 0.2924E-02,& - 0.2924E-02, 0.2924E-02, 0.2924E-02, 0.3409E-02,& - 0.3409E-02, 0.3409E-02, 0.3409E-02, 0.3409E-02,& - 0.3409E-02, 0.3895E-02, 0.3895E-02, 0.3895E-02,& - 0.3895E-02, 0.3895E-02, 0.4381E-02, 0.4381E-02,& - 0.4381E-02, 0.4381E-02, 0.4381E-02, 0.4866E-02,& - 0.4866E-02, 0.4866E-02, 0.4866E-02, 0.5352E-02,& - 0.5352E-02, 0.5352E-02, 0.5352E-02, 0.5838E-02,& - 0.5838E-02, 0.5838E-02, 0.5838E-02, 0.6323E-02,& - 0.6323E-02, 0.6323E-02, 0.6809E-02, 0.6809E-02,& - 0.6809E-02, 0.6809E-02, 0.7295E-02, 0.7295E-02,& - 0.7295E-02, 0.7780E-02, 0.7780E-02, 0.7780E-02,& - 0.8266E-02, 0.8266E-02, 0.8751E-02, 0.8751E-02,& - 0.8751E-02, 0.9237E-02, 0.9237E-02, 0.9723E-02,& - 0.9723E-02, 0.9723E-02, 0.1021E-01, 0.1021E-01,& - 0.1069E-01, 0.1069E-01, 0.1118E-01, 0.1118E-01,& - 0.1167E-01, 0.1167E-01, 0.1215E-01, 0.1215E-01,& - 0.1264E-01, 0.1264E-01, 0.1312E-01, 0.1361E-01,& - 0.1361E-01, 0.1409E-01, 0.1409E-01, 0.1458E-01,& - 0.1506E-01, 0.1506E-01, 0.1555E-01, 0.1604E-01,& - 0.1604E-01, 0.1652E-01, 0.1701E-01, 0.1701E-01,& - 0.1749E-01, 0.1798E-01, 0.1798E-01, 0.1846E-01,& - 0.1895E-01, 0.1944E-01, 0.1992E-01, 0.1992E-01,& - 0.2041E-01, 0.2089E-01, 0.2138E-01, 0.2186E-01,& - 0.2235E-01, 0.2283E-01, 0.2332E-01, 0.2381E-01,& - 0.2429E-01, 0.2478E-01, 0.2526E-01, 0.2575E-01,& - 0.2623E-01, 0.2672E-01, 0.2721E-01, 0.2769E-01,& - 0.2818E-01, 0.2866E-01, 0.2915E-01, 0.2963E-01,& - 0.3060E-01, 0.3109E-01, 0.3158E-01, 0.3206E-01,& - 0.3303E-01, 0.3352E-01, 0.3400E-01, 0.3498E-01,& - 0.3546E-01, 0.3595E-01, 0.3692E-01, 0.3740E-01,& - 0.3838E-01, 0.3886E-01, 0.3983E-01, 0.4032E-01,& - 0.4129E-01, 0.4226E-01, 0.4275E-01, 0.4372E-01,& - 0.4469E-01, 0.4517E-01, 0.4615E-01, 0.4712E-01,& - 0.4809E-01, 0.4857E-01, 0.4954E-01, 0.5052E-01,& - 0.5149E-01, 0.5246E-01, 0.5343E-01, 0.5440E-01,& - 0.5537E-01, 0.5634E-01, 0.5731E-01, 0.5877E-01,& - 0.5974E-01, 0.6071E-01, 0.6169E-01, 0.6314E-01,& - 0.6411E-01, 0.6557E-01, 0.6654E-01, 0.6751E-01,& - 0.6897E-01, 0.7043E-01, 0.7140E-01, 0.7286E-01,& - 0.7431E-01, 0.7528E-01, 0.7674E-01, 0.7820E-01,& - 0.7965E-01, 0.8111E-01, 0.8257E-01, 0.8402E-01,& - 0.8548E-01, 0.8694E-01, 0.8840E-01, 0.8985E-01,& - 0.9179E-01, 0.9325E-01, 0.9471E-01, 0.9665E-01,& - 0.9811E-01, 0.1001E+00, 0.1020E+00, 0.1035E+00,& - 0.1054E+00, 0.1073E+00, 0.1093E+00, 0.1112E+00,& - 0.1132E+00, 0.1151E+00, 0.1170E+00, 0.1190E+00,& - 0.1209E+00, 0.1234E+00, 0.1253E+00, 0.1272E+00,& - 0.1297E+00, 0.1321E+00, 0.1340E+00, 0.1365E+00,& - 0.1389E+00, 0.1413E+00, 0.1438E+00, 0.1462E+00,& - 0.1486E+00, 0.1510E+00, 0.1535E+00, 0.1564E+00,& - 0.1588E+00, 0.1617E+00, 0.1642E+00, 0.1671E+00,& - 0.1700E+00, 0.1729E+00, 0.1758E+00, 0.1787E+00,& - 0.1816E+00, 0.1846E+00, 0.1880E+00, 0.1909E+00,& - 0.1943E+00, 0.1977E+00, 0.2006E+00, 0.2040E+00,& - 0.2074E+00, 0.2108E+00, 0.2147E+00, 0.2181E+00,& - 0.2215E+00, 0.2253E+00, 0.2292E+00, 0.2326E+00,& - 0.2365E+00, 0.2404E+00, 0.2448E+00, 0.2487E+00,& - 0.2525E+00, 0.2569E+00, 0.2608E+00, 0.2652E+00,& - 0.2695E+00, 0.2739E+00, 0.2783E+00, 0.2831E+00,& - 0.2875E+00, 0.2924E+00, 0.2972E+00, 0.3021E+00,& - 0.3069E+00, 0.3118E+00, 0.3166E+00, 0.3220E+00,& - 0.3273E+00, 0.3327E+00, 0.3380E+00, 0.3434E+00,& - 0.3487E+00, 0.3545E+00, 0.3599E+00, 0.3657E+00,& - 0.3715E+00, 0.3778E+00, 0.3837E+00, 0.3900E+00,& - 0.3963E+00, 0.4026E+00, 0.4089E+00, 0.4152E+00,& - 0.4220E+00, 0.4288E+00, 0.4356E+00, 0.4424E+00,& - 0.4492E+00, 0.4565E+00, 0.4638E+00, 0.4711E+00,& - 0.4784E+00, 0.4861E+00, 0.4939E+00, 0.5017E+00,& - 0.5094E+00, 0.5167E+00, 0.5255E+00, 0.5337E+00,& - 0.5425E+00, 0.5507E+00, 0.5595E+00, 0.5682E+00,& - 0.5769E+00, 0.5862E+00, 0.5954E+00, 0.6046E+00,& - 0.6139E+00, 0.6236E+00, 0.6333E+00, 0.6430E+00,& - 0.6532E+00, 0.6634E+00, 0.6736E+00, 0.6843E+00,& - 0.6950E+00, 0.7056E+00, 0.7163E+00, 0.7275E+00,& - 0.7391E+00, 0.7503E+00, 0.7620E+00, 0.7736E+00,& - 0.7858E+00, 0.7979E+00, 0.8100E+00, 0.8227E+00,& - 0.8353E+00, 0.8484E+00, 0.8615E+00, 0.8746E+00,& - 0.8882E+00, 0.9018E+00, 0.9159E+00, 0.9300E+00,& - 0.9441E+00, 0.9587E+00, 0.9737E+00, 0.9888E+00,& - 0.1004E+01, 0.1019E+01, 0.1035E+01, 0.1051E+01,& - 0.1067E+01, 0.1083E+01, 0.1100E+01, 0.1117E+01,& - 0.1134E+01, 0.1151E+01, 0.1169E+01, 0.1187E+01,& - 0.1205E+01, 0.1224E+01, 0.1243E+01, 0.1262E+01,& - 0.1281E+01, 0.1301E+01, 0.1320E+01, 0.1341E+01,& - 0.1362E+01, 0.1383E+01, 0.1403E+01, 0.1425E+01,& - 0.1447E+01, 0.1470E+01, 0.1492E+01, 0.1515E+01,& - 0.1538E+01, 0.1562E+01, 0.1586E+01, 0.1610E+01,& - 0.1635E+01, 0.1660E+01, 0.1686E+01, 0.1712E+01,& - 0.1739E+01, 0.1765E+01, 0.1792E+01, 0.1820E+01,& - 0.1848E+01, 0.1877E+01, 0.1906E+01, 0.1936E+01,& - 0.1966E+01, 0.1996E+01, 0.2027E+01, 0.2059E+01,& - 0.2091E+01, 0.2124E+01, 0.2157E+01, 0.2190E+01,& - 0.2225E+01, 0.2259E+01, 0.2295E+01, 0.2331E+01,& - 0.2367E+01, 0.2404E+01, 0.2442E+01, 0.2481E+01,& - 0.2520E+01, 0.2560E+01, 0.2601E+01, 0.2642E+01,& - 0.2684E+01, 0.2726E+01, 0.2770E+01, 0.2814E+01,& - 0.2859E+01, 0.2905E+01, 0.2951E+01, 0.2999E+01,& - 0.3047E+01, 0.3096E+01, 0.3146E+01, 0.3197E+01,& - 0.3249E+01, 0.3302E+01, 0.3356E+01, 0.3411E+01,& - 0.3467E+01, 0.3524E+01, 0.3583E+01, 0.3642E+01,& - 0.3702E+01, 0.3764E+01, 0.3827E+01, 0.3891E+01,& - 0.3956E+01, 0.4023E+01, 0.4091E+01, 0.4160E+01,& - 0.4231E+01, 0.4304E+01, 0.4378E+01, 0.4453E+01,& - 0.4530E+01, 0.4609E+01, 0.4689E+01, 0.4771E+01,& - 0.4855E+01, 0.4941E+01, 0.5029E+01, 0.5119E+01,& - 0.5211E+01, 0.5305E+01, 0.5401E+01, 0.5500E+01,& - 0.5601E+01, 0.5704E+01, 0.5810E+01, 0.5918E+01,& - 0.6030E+01, 0.6144E+01, 0.6262E+01, 0.6382E+01,& - 0.6506E+01, 0.6633E+01, 0.6763E+01, 0.6897E+01,& - 0.7035E+01, 0.7177E+01, 0.7323E+01, 0.7474E+01,& - 0.7629E+01, 0.7790E+01, 0.7955E+01, 0.8126E+01,& - 0.8302E+01, 0.8484E+01, 0.8672E+01, 0.8868E+01,& - 0.9071E+01, 0.9281E+01, 0.9499E+01, 0.9726E+01,& - 0.9962E+01, 0.1021E+02, 0.1046E+02, 0.1073E+02,& - 0.1101E+02, 0.1131E+02, 0.1162E+02, 0.1194E+02,& - 0.1228E+02, 0.1265E+02, 0.1303E+02, 0.1344E+02,& - 0.1387E+02, 0.1434E+02, 0.1484E+02, 0.1538E+02,& - 0.1596E+02, 0.1661E+02, 0.1731E+02, 0.1810E+02,& - 0.1899E+02, 0.2001E+02, 0.2120E+02, 0.2264E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,135) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.5022E-03,& - 0.5022E-03, 0.5022E-03, 0.5022E-03, 0.5022E-03,& - 0.5022E-03, 0.5022E-03, 0.5022E-03, 0.5022E-03,& - 0.5022E-03, 0.5022E-03, 0.5022E-03, 0.5022E-03,& - 0.5022E-03, 0.5022E-03, 0.5022E-03, 0.5022E-03,& - 0.5022E-03, 0.5022E-03, 0.5022E-03, 0.5022E-03,& - 0.5022E-03, 0.5022E-03, 0.5022E-03, 0.5022E-03,& - 0.5022E-03, 0.9944E-03, 0.9944E-03, 0.9944E-03,& - 0.9944E-03, 0.9944E-03, 0.9944E-03, 0.9944E-03,& - 0.9944E-03, 0.9944E-03, 0.9944E-03, 0.9944E-03,& - 0.9944E-03, 0.9944E-03, 0.9944E-03, 0.9944E-03,& - 0.9944E-03, 0.1487E-02, 0.1487E-02, 0.1487E-02,& - 0.1487E-02, 0.1487E-02, 0.1487E-02, 0.1487E-02,& - 0.1487E-02, 0.1487E-02, 0.1487E-02, 0.1487E-02,& - 0.1487E-02, 0.1979E-02, 0.1979E-02, 0.1979E-02,& - 0.1979E-02, 0.1979E-02, 0.1979E-02, 0.1979E-02,& - 0.1979E-02, 0.1979E-02, 0.2471E-02, 0.2471E-02,& - 0.2471E-02, 0.2471E-02, 0.2471E-02, 0.2471E-02,& - 0.2471E-02, 0.2471E-02, 0.2963E-02, 0.2963E-02,& - 0.2963E-02, 0.2963E-02, 0.2963E-02, 0.2963E-02,& - 0.3455E-02, 0.3455E-02, 0.3455E-02, 0.3455E-02,& - 0.3455E-02, 0.3455E-02, 0.3948E-02, 0.3948E-02,& - 0.3948E-02, 0.3948E-02, 0.3948E-02, 0.4440E-02,& - 0.4440E-02, 0.4440E-02, 0.4440E-02, 0.4440E-02,& - 0.4932E-02, 0.4932E-02, 0.4932E-02, 0.4932E-02,& - 0.5424E-02, 0.5424E-02, 0.5424E-02, 0.5424E-02,& - 0.5916E-02, 0.5916E-02, 0.5916E-02, 0.5916E-02,& - 0.6408E-02, 0.6408E-02, 0.6408E-02, 0.6901E-02,& - 0.6901E-02, 0.6901E-02, 0.7393E-02, 0.7393E-02,& - 0.7393E-02, 0.7885E-02, 0.7885E-02, 0.7885E-02,& - 0.8377E-02, 0.8377E-02, 0.8377E-02, 0.8869E-02,& - 0.8869E-02, 0.9362E-02, 0.9362E-02, 0.9362E-02,& - 0.9854E-02, 0.9854E-02, 0.1035E-01, 0.1035E-01,& - 0.1084E-01, 0.1084E-01, 0.1133E-01, 0.1133E-01,& - 0.1182E-01, 0.1182E-01, 0.1231E-01, 0.1231E-01,& - 0.1281E-01, 0.1281E-01, 0.1330E-01, 0.1330E-01,& - 0.1379E-01, 0.1379E-01, 0.1428E-01, 0.1478E-01,& - 0.1478E-01, 0.1527E-01, 0.1576E-01, 0.1576E-01,& - 0.1625E-01, 0.1674E-01, 0.1674E-01, 0.1724E-01,& - 0.1773E-01, 0.1773E-01, 0.1822E-01, 0.1871E-01,& - 0.1921E-01, 0.1970E-01, 0.1970E-01, 0.2019E-01,& - 0.2068E-01, 0.2117E-01, 0.2167E-01, 0.2216E-01,& - 0.2265E-01, 0.2265E-01, 0.2314E-01, 0.2364E-01,& - 0.2413E-01, 0.2462E-01, 0.2511E-01, 0.2560E-01,& - 0.2610E-01, 0.2659E-01, 0.2757E-01, 0.2806E-01,& - 0.2856E-01, 0.2905E-01, 0.2954E-01, 0.3003E-01,& - 0.3053E-01, 0.3151E-01, 0.3200E-01, 0.3249E-01,& - 0.3299E-01, 0.3397E-01, 0.3446E-01, 0.3496E-01,& - 0.3594E-01, 0.3643E-01, 0.3742E-01, 0.3791E-01,& - 0.3889E-01, 0.3939E-01, 0.4037E-01, 0.4086E-01,& - 0.4185E-01, 0.4234E-01, 0.4332E-01, 0.4431E-01,& - 0.4529E-01, 0.4578E-01, 0.4677E-01, 0.4775E-01,& - 0.4874E-01, 0.4972E-01, 0.5021E-01, 0.5120E-01,& - 0.5218E-01, 0.5317E-01, 0.5415E-01, 0.5514E-01,& - 0.5612E-01, 0.5760E-01, 0.5858E-01, 0.5957E-01,& - 0.6055E-01, 0.6153E-01, 0.6301E-01, 0.6399E-01,& - 0.6547E-01, 0.6646E-01, 0.6744E-01, 0.6892E-01,& - 0.7039E-01, 0.7138E-01, 0.7285E-01, 0.7433E-01,& - 0.7532E-01, 0.7679E-01, 0.7827E-01, 0.7974E-01,& - 0.8122E-01, 0.8270E-01, 0.8417E-01, 0.8565E-01,& - 0.8713E-01, 0.8860E-01, 0.9008E-01, 0.9205E-01,& - 0.9353E-01, 0.9500E-01, 0.9697E-01, 0.9845E-01,& - 0.1004E+00, 0.1019E+00, 0.1039E+00, 0.1058E+00,& - 0.1078E+00, 0.1098E+00, 0.1112E+00, 0.1132E+00,& - 0.1157E+00, 0.1176E+00, 0.1196E+00, 0.1216E+00,& - 0.1235E+00, 0.1260E+00, 0.1280E+00, 0.1304E+00,& - 0.1324E+00, 0.1349E+00, 0.1373E+00, 0.1398E+00,& - 0.1423E+00, 0.1447E+00, 0.1472E+00, 0.1496E+00,& - 0.1521E+00, 0.1546E+00, 0.1575E+00, 0.1600E+00,& - 0.1629E+00, 0.1659E+00, 0.1683E+00, 0.1713E+00,& - 0.1742E+00, 0.1772E+00, 0.1802E+00, 0.1831E+00,& - 0.1866E+00, 0.1895E+00, 0.1929E+00, 0.1959E+00,& - 0.1993E+00, 0.2028E+00, 0.2062E+00, 0.2097E+00,& - 0.2131E+00, 0.2166E+00, 0.2205E+00, 0.2240E+00,& - 0.2279E+00, 0.2318E+00, 0.2353E+00, 0.2392E+00,& - 0.2432E+00, 0.2476E+00, 0.2515E+00, 0.2559E+00,& - 0.2599E+00, 0.2643E+00, 0.2687E+00, 0.2732E+00,& - 0.2776E+00, 0.2820E+00, 0.2870E+00, 0.2914E+00,& - 0.2963E+00, 0.3012E+00, 0.3062E+00, 0.3111E+00,& - 0.3165E+00, 0.3214E+00, 0.3268E+00, 0.3322E+00,& - 0.3377E+00, 0.3431E+00, 0.3485E+00, 0.3544E+00,& - 0.3598E+00, 0.3657E+00, 0.3716E+00, 0.3780E+00,& - 0.3839E+00, 0.3903E+00, 0.3962E+00, 0.4026E+00,& - 0.4095E+00, 0.4159E+00, 0.4228E+00, 0.4292E+00,& - 0.4361E+00, 0.4435E+00, 0.4504E+00, 0.4577E+00,& - 0.4651E+00, 0.4725E+00, 0.4799E+00, 0.4878E+00,& - 0.4956E+00, 0.5035E+00, 0.5114E+00, 0.5193E+00,& - 0.5276E+00, 0.5360E+00, 0.5449E+00, 0.5532E+00,& - 0.5621E+00, 0.5710E+00, 0.5798E+00, 0.5892E+00,& - 0.5985E+00, 0.6079E+00, 0.6177E+00, 0.6276E+00,& - 0.6374E+00, 0.6472E+00, 0.6576E+00, 0.6679E+00,& - 0.6782E+00, 0.6891E+00, 0.6999E+00, 0.7107E+00,& - 0.7221E+00, 0.7334E+00, 0.7447E+00, 0.7565E+00,& - 0.7683E+00, 0.7806E+00, 0.7924E+00, 0.8052E+00,& - 0.8175E+00, 0.8303E+00, 0.8436E+00, 0.8564E+00,& - 0.8702E+00, 0.8835E+00, 0.8973E+00, 0.9115E+00,& - 0.9253E+00, 0.9401E+00, 0.9549E+00, 0.9696E+00,& - 0.9844E+00, 0.1000E+01, 0.1015E+01, 0.1031E+01,& - 0.1047E+01, 0.1064E+01, 0.1080E+01, 0.1097E+01,& - 0.1114E+01, 0.1132E+01, 0.1149E+01, 0.1167E+01,& - 0.1185E+01, 0.1203E+01, 0.1222E+01, 0.1241E+01,& - 0.1261E+01, 0.1280E+01, 0.1300E+01, 0.1320E+01,& - 0.1340E+01, 0.1361E+01, 0.1383E+01, 0.1404E+01,& - 0.1426E+01, 0.1448E+01, 0.1471E+01, 0.1493E+01,& - 0.1516E+01, 0.1540E+01, 0.1564E+01, 0.1589E+01,& - 0.1613E+01, 0.1639E+01, 0.1664E+01, 0.1690E+01,& - 0.1716E+01, 0.1743E+01, 0.1770E+01, 0.1798E+01,& - 0.1827E+01, 0.1855E+01, 0.1884E+01, 0.1914E+01,& - 0.1944E+01, 0.1974E+01, 0.2005E+01, 0.2037E+01,& - 0.2069E+01, 0.2101E+01, 0.2135E+01, 0.2168E+01,& - 0.2203E+01, 0.2238E+01, 0.2273E+01, 0.2309E+01,& - 0.2345E+01, 0.2383E+01, 0.2421E+01, 0.2459E+01,& - 0.2498E+01, 0.2538E+01, 0.2579E+01, 0.2620E+01,& - 0.2663E+01, 0.2706E+01, 0.2749E+01, 0.2793E+01,& - 0.2838E+01, 0.2884E+01, 0.2931E+01, 0.2979E+01,& - 0.3027E+01, 0.3077E+01, 0.3127E+01, 0.3178E+01,& - 0.3230E+01, 0.3283E+01, 0.3338E+01, 0.3393E+01,& - 0.3449E+01, 0.3507E+01, 0.3565E+01, 0.3625E+01,& - 0.3686E+01, 0.3748E+01, 0.3811E+01, 0.3875E+01,& - 0.3941E+01, 0.4008E+01, 0.4076E+01, 0.4146E+01,& - 0.4218E+01, 0.4290E+01, 0.4365E+01, 0.4441E+01,& - 0.4518E+01, 0.4598E+01, 0.4679E+01, 0.4761E+01,& - 0.4846E+01, 0.4933E+01, 0.5021E+01, 0.5112E+01,& - 0.5204E+01, 0.5299E+01, 0.5396E+01, 0.5496E+01,& - 0.5597E+01, 0.5702E+01, 0.5808E+01, 0.5918E+01,& - 0.6031E+01, 0.6146E+01, 0.6264E+01, 0.6386E+01,& - 0.6511E+01, 0.6639E+01, 0.6771E+01, 0.6906E+01,& - 0.7045E+01, 0.7189E+01, 0.7337E+01, 0.7489E+01,& - 0.7646E+01, 0.7807E+01, 0.7974E+01, 0.8147E+01,& - 0.8325E+01, 0.8510E+01, 0.8700E+01, 0.8898E+01,& - 0.9103E+01, 0.9315E+01, 0.9536E+01, 0.9766E+01,& - 0.1000E+02, 0.1025E+02, 0.1051E+02, 0.1078E+02,& - 0.1107E+02, 0.1137E+02, 0.1168E+02, 0.1201E+02,& - 0.1235E+02, 0.1272E+02, 0.1311E+02, 0.1352E+02,& - 0.1396E+02, 0.1444E+02, 0.1494E+02, 0.1549E+02,& - 0.1608E+02, 0.1674E+02, 0.1745E+02, 0.1825E+02,& - 0.1915E+02, 0.2019E+02, 0.2140E+02, 0.2286E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,136) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.5088E-03, 0.5088E-03, 0.5088E-03, 0.5088E-03,& - 0.5088E-03, 0.5088E-03, 0.5088E-03, 0.5088E-03,& - 0.5088E-03, 0.5088E-03, 0.5088E-03, 0.5088E-03,& - 0.5088E-03, 0.5088E-03, 0.5088E-03, 0.5088E-03,& - 0.5088E-03, 0.5088E-03, 0.5088E-03, 0.5088E-03,& - 0.5088E-03, 0.5088E-03, 0.5088E-03, 0.5088E-03,& - 0.5088E-03, 0.5088E-03, 0.1008E-02, 0.1008E-02,& - 0.1008E-02, 0.1008E-02, 0.1008E-02, 0.1008E-02,& - 0.1008E-02, 0.1008E-02, 0.1008E-02, 0.1008E-02,& - 0.1008E-02, 0.1008E-02, 0.1008E-02, 0.1008E-02,& - 0.1008E-02, 0.1008E-02, 0.1506E-02, 0.1506E-02,& - 0.1506E-02, 0.1506E-02, 0.1506E-02, 0.1506E-02,& - 0.1506E-02, 0.1506E-02, 0.1506E-02, 0.1506E-02,& - 0.1506E-02, 0.2005E-02, 0.2005E-02, 0.2005E-02,& - 0.2005E-02, 0.2005E-02, 0.2005E-02, 0.2005E-02,& - 0.2005E-02, 0.2005E-02, 0.2005E-02, 0.2504E-02,& - 0.2504E-02, 0.2504E-02, 0.2504E-02, 0.2504E-02,& - 0.2504E-02, 0.2504E-02, 0.3003E-02, 0.3003E-02,& - 0.3003E-02, 0.3003E-02, 0.3003E-02, 0.3003E-02,& - 0.3003E-02, 0.3502E-02, 0.3502E-02, 0.3502E-02,& - 0.3502E-02, 0.3502E-02, 0.3502E-02, 0.4000E-02,& - 0.4000E-02, 0.4000E-02, 0.4000E-02, 0.4000E-02,& - 0.4499E-02, 0.4499E-02, 0.4499E-02, 0.4499E-02,& - 0.4499E-02, 0.4998E-02, 0.4998E-02, 0.4998E-02,& - 0.4998E-02, 0.5497E-02, 0.5497E-02, 0.5497E-02,& - 0.5497E-02, 0.5996E-02, 0.5996E-02, 0.5996E-02,& - 0.6494E-02, 0.6494E-02, 0.6494E-02, 0.6494E-02,& - 0.6993E-02, 0.6993E-02, 0.6993E-02, 0.7492E-02,& - 0.7492E-02, 0.7492E-02, 0.7991E-02, 0.7991E-02,& - 0.7991E-02, 0.8490E-02, 0.8490E-02, 0.8988E-02,& - 0.8988E-02, 0.8988E-02, 0.9487E-02, 0.9487E-02,& - 0.9986E-02, 0.9986E-02, 0.9986E-02, 0.1048E-01,& - 0.1048E-01, 0.1098E-01, 0.1098E-01, 0.1148E-01,& - 0.1148E-01, 0.1198E-01, 0.1198E-01, 0.1248E-01,& - 0.1248E-01, 0.1298E-01, 0.1348E-01, 0.1348E-01,& - 0.1398E-01, 0.1398E-01, 0.1448E-01, 0.1448E-01,& - 0.1497E-01, 0.1547E-01, 0.1547E-01, 0.1597E-01,& - 0.1647E-01, 0.1647E-01, 0.1697E-01, 0.1747E-01,& - 0.1797E-01, 0.1797E-01, 0.1847E-01, 0.1896E-01,& - 0.1946E-01, 0.1946E-01, 0.1996E-01, 0.2046E-01,& - 0.2096E-01, 0.2146E-01, 0.2196E-01, 0.2196E-01,& - 0.2246E-01, 0.2295E-01, 0.2345E-01, 0.2395E-01,& - 0.2445E-01, 0.2495E-01, 0.2545E-01, 0.2595E-01,& - 0.2645E-01, 0.2694E-01, 0.2744E-01, 0.2844E-01,& - 0.2894E-01, 0.2944E-01, 0.2994E-01, 0.3044E-01,& - 0.3094E-01, 0.3193E-01, 0.3243E-01, 0.3293E-01,& - 0.3343E-01, 0.3443E-01, 0.3493E-01, 0.3542E-01,& - 0.3642E-01, 0.3692E-01, 0.3792E-01, 0.3842E-01,& - 0.3941E-01, 0.3991E-01, 0.4091E-01, 0.4141E-01,& - 0.4241E-01, 0.4341E-01, 0.4390E-01, 0.4490E-01,& - 0.4590E-01, 0.4640E-01, 0.4740E-01, 0.4839E-01,& - 0.4939E-01, 0.5039E-01, 0.5139E-01, 0.5238E-01,& - 0.5338E-01, 0.5438E-01, 0.5538E-01, 0.5637E-01,& - 0.5737E-01, 0.5837E-01, 0.5937E-01, 0.6036E-01,& - 0.6186E-01, 0.6286E-01, 0.6386E-01, 0.6535E-01,& - 0.6635E-01, 0.6785E-01, 0.6884E-01, 0.7034E-01,& - 0.7134E-01, 0.7283E-01, 0.7433E-01, 0.7533E-01,& - 0.7682E-01, 0.7832E-01, 0.7982E-01, 0.8131E-01,& - 0.8281E-01, 0.8431E-01, 0.8580E-01, 0.8730E-01,& - 0.8880E-01, 0.9029E-01, 0.9229E-01, 0.9378E-01,& - 0.9528E-01, 0.9728E-01, 0.9877E-01, 0.1008E+00,& - 0.1023E+00, 0.1043E+00, 0.1063E+00, 0.1082E+00,& - 0.1102E+00, 0.1117E+00, 0.1137E+00, 0.1162E+00,& - 0.1182E+00, 0.1202E+00, 0.1222E+00, 0.1242E+00,& - 0.1267E+00, 0.1287E+00, 0.1312E+00, 0.1337E+00,& - 0.1357E+00, 0.1382E+00, 0.1407E+00, 0.1432E+00,& - 0.1457E+00, 0.1482E+00, 0.1506E+00, 0.1531E+00,& - 0.1561E+00, 0.1586E+00, 0.1616E+00, 0.1641E+00,& - 0.1671E+00, 0.1701E+00, 0.1731E+00, 0.1761E+00,& - 0.1791E+00, 0.1821E+00, 0.1851E+00, 0.1881E+00,& - 0.1915E+00, 0.1945E+00, 0.1980E+00, 0.2015E+00,& - 0.2050E+00, 0.2085E+00, 0.2120E+00, 0.2155E+00,& - 0.2190E+00, 0.2230E+00, 0.2265E+00, 0.2305E+00,& - 0.2344E+00, 0.2384E+00, 0.2424E+00, 0.2464E+00,& - 0.2504E+00, 0.2549E+00, 0.2589E+00, 0.2634E+00,& - 0.2679E+00, 0.2724E+00, 0.2768E+00, 0.2813E+00,& - 0.2863E+00, 0.2908E+00, 0.2958E+00, 0.3008E+00,& - 0.3058E+00, 0.3108E+00, 0.3157E+00, 0.3212E+00,& - 0.3262E+00, 0.3317E+00, 0.3372E+00, 0.3427E+00,& - 0.3487E+00, 0.3542E+00, 0.3601E+00, 0.3661E+00,& - 0.3721E+00, 0.3781E+00, 0.3841E+00, 0.3906E+00,& - 0.3971E+00, 0.4035E+00, 0.4100E+00, 0.4165E+00,& - 0.4235E+00, 0.4305E+00, 0.4375E+00, 0.4444E+00,& - 0.4514E+00, 0.4589E+00, 0.4664E+00, 0.4739E+00,& - 0.4818E+00, 0.4893E+00, 0.4973E+00, 0.5053E+00,& - 0.5133E+00, 0.5218E+00, 0.5302E+00, 0.5387E+00,& - 0.5472E+00, 0.5562E+00, 0.5651E+00, 0.5741E+00,& - 0.5831E+00, 0.5926E+00, 0.6021E+00, 0.6115E+00,& - 0.6215E+00, 0.6315E+00, 0.6415E+00, 0.6519E+00,& - 0.6624E+00, 0.6729E+00, 0.6834E+00, 0.6943E+00,& - 0.7053E+00, 0.7168E+00, 0.7278E+00, 0.7397E+00,& - 0.7512E+00, 0.7632E+00, 0.7751E+00, 0.7876E+00,& - 0.8001E+00, 0.8125E+00, 0.8255E+00, 0.8385E+00,& - 0.8520E+00, 0.8654E+00, 0.8789E+00, 0.8929E+00,& - 0.9068E+00, 0.9213E+00, 0.9358E+00, 0.9507E+00,& - 0.9657E+00, 0.9806E+00, 0.9961E+00, 0.1012E+01,& - 0.1028E+01, 0.1044E+01, 0.1060E+01, 0.1077E+01,& - 0.1094E+01, 0.1111E+01, 0.1129E+01, 0.1147E+01,& - 0.1165E+01, 0.1183E+01, 0.1202E+01, 0.1221E+01,& - 0.1240E+01, 0.1259E+01, 0.1279E+01, 0.1299E+01,& - 0.1319E+01, 0.1340E+01, 0.1361E+01, 0.1383E+01,& - 0.1405E+01, 0.1427E+01, 0.1449E+01, 0.1472E+01,& - 0.1495E+01, 0.1519E+01, 0.1543E+01, 0.1567E+01,& - 0.1592E+01, 0.1617E+01, 0.1642E+01, 0.1668E+01,& - 0.1694E+01, 0.1721E+01, 0.1748E+01, 0.1776E+01,& - 0.1804E+01, 0.1833E+01, 0.1862E+01, 0.1891E+01,& - 0.1921E+01, 0.1952E+01, 0.1983E+01, 0.2015E+01,& - 0.2047E+01, 0.2079E+01, 0.2112E+01, 0.2146E+01,& - 0.2180E+01, 0.2215E+01, 0.2251E+01, 0.2287E+01,& - 0.2323E+01, 0.2361E+01, 0.2399E+01, 0.2438E+01,& - 0.2477E+01, 0.2517E+01, 0.2558E+01, 0.2599E+01,& - 0.2641E+01, 0.2684E+01, 0.2728E+01, 0.2772E+01,& - 0.2818E+01, 0.2864E+01, 0.2910E+01, 0.2958E+01,& - 0.3007E+01, 0.3057E+01, 0.3108E+01, 0.3159E+01,& - 0.3211E+01, 0.3265E+01, 0.3319E+01, 0.3374E+01,& - 0.3431E+01, 0.3489E+01, 0.3547E+01, 0.3607E+01,& - 0.3668E+01, 0.3731E+01, 0.3794E+01, 0.3859E+01,& - 0.3925E+01, 0.3993E+01, 0.4062E+01, 0.4132E+01,& - 0.4204E+01, 0.4277E+01, 0.4352E+01, 0.4428E+01,& - 0.4506E+01, 0.4586E+01, 0.4668E+01, 0.4751E+01,& - 0.4836E+01, 0.4924E+01, 0.5013E+01, 0.5104E+01,& - 0.5197E+01, 0.5293E+01, 0.5390E+01, 0.5491E+01,& - 0.5594E+01, 0.5699E+01, 0.5806E+01, 0.5917E+01,& - 0.6030E+01, 0.6147E+01, 0.6266E+01, 0.6389E+01,& - 0.6515E+01, 0.6644E+01, 0.6777E+01, 0.6914E+01,& - 0.7055E+01, 0.7200E+01, 0.7349E+01, 0.7502E+01,& - 0.7661E+01, 0.7825E+01, 0.7993E+01, 0.8167E+01,& - 0.8348E+01, 0.8534E+01, 0.8727E+01, 0.8926E+01,& - 0.9133E+01, 0.9348E+01, 0.9572E+01, 0.9804E+01,& - 0.1005E+02, 0.1030E+02, 0.1056E+02, 0.1084E+02,& - 0.1112E+02, 0.1142E+02, 0.1174E+02, 0.1207E+02,& - 0.1243E+02, 0.1280E+02, 0.1319E+02, 0.1361E+02,& - 0.1406E+02, 0.1453E+02, 0.1505E+02, 0.1560E+02,& - 0.1620E+02, 0.1686E+02, 0.1759E+02, 0.1840E+02,& - 0.1932E+02, 0.2037E+02, 0.2159E+02, 0.2307E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,137) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.5154E-03, 0.5154E-03, 0.5154E-03,& - 0.5154E-03, 0.5154E-03, 0.5154E-03, 0.5154E-03,& - 0.5154E-03, 0.5154E-03, 0.5154E-03, 0.5154E-03,& - 0.5154E-03, 0.5154E-03, 0.5154E-03, 0.5154E-03,& - 0.5154E-03, 0.5154E-03, 0.5154E-03, 0.5154E-03,& - 0.5154E-03, 0.5154E-03, 0.5154E-03, 0.5154E-03,& - 0.5154E-03, 0.5154E-03, 0.5154E-03, 0.1021E-02,& - 0.1021E-02, 0.1021E-02, 0.1021E-02, 0.1021E-02,& - 0.1021E-02, 0.1021E-02, 0.1021E-02, 0.1021E-02,& - 0.1021E-02, 0.1021E-02, 0.1021E-02, 0.1021E-02,& - 0.1021E-02, 0.1021E-02, 0.1021E-02, 0.1526E-02,& - 0.1526E-02, 0.1526E-02, 0.1526E-02, 0.1526E-02,& - 0.1526E-02, 0.1526E-02, 0.1526E-02, 0.1526E-02,& - 0.1526E-02, 0.1526E-02, 0.2032E-02, 0.2032E-02,& - 0.2032E-02, 0.2032E-02, 0.2032E-02, 0.2032E-02,& - 0.2032E-02, 0.2032E-02, 0.2032E-02, 0.2537E-02,& - 0.2537E-02, 0.2537E-02, 0.2537E-02, 0.2537E-02,& - 0.2537E-02, 0.2537E-02, 0.2537E-02, 0.3043E-02,& - 0.3043E-02, 0.3043E-02, 0.3043E-02, 0.3043E-02,& - 0.3043E-02, 0.3043E-02, 0.3548E-02, 0.3548E-02,& - 0.3548E-02, 0.3548E-02, 0.3548E-02, 0.4054E-02,& - 0.4054E-02, 0.4054E-02, 0.4054E-02, 0.4054E-02,& - 0.4054E-02, 0.4559E-02, 0.4559E-02, 0.4559E-02,& - 0.4559E-02, 0.5064E-02, 0.5064E-02, 0.5064E-02,& - 0.5064E-02, 0.5570E-02, 0.5570E-02, 0.5570E-02,& - 0.5570E-02, 0.6075E-02, 0.6075E-02, 0.6075E-02,& - 0.6075E-02, 0.6581E-02, 0.6581E-02, 0.6581E-02,& - 0.7086E-02, 0.7086E-02, 0.7086E-02, 0.7592E-02,& - 0.7592E-02, 0.7592E-02, 0.8097E-02, 0.8097E-02,& - 0.8097E-02, 0.8603E-02, 0.8603E-02, 0.8603E-02,& - 0.9108E-02, 0.9108E-02, 0.9613E-02, 0.9613E-02,& - 0.9613E-02, 0.1012E-01, 0.1012E-01, 0.1062E-01,& - 0.1062E-01, 0.1113E-01, 0.1113E-01, 0.1164E-01,& - 0.1164E-01, 0.1214E-01, 0.1214E-01, 0.1265E-01,& - 0.1265E-01, 0.1315E-01, 0.1315E-01, 0.1366E-01,& - 0.1366E-01, 0.1416E-01, 0.1467E-01, 0.1467E-01,& - 0.1517E-01, 0.1568E-01, 0.1568E-01, 0.1618E-01,& - 0.1669E-01, 0.1669E-01, 0.1720E-01, 0.1770E-01,& - 0.1770E-01, 0.1821E-01, 0.1871E-01, 0.1922E-01,& - 0.1922E-01, 0.1972E-01, 0.2023E-01, 0.2073E-01,& - 0.2124E-01, 0.2174E-01, 0.2174E-01, 0.2225E-01,& - 0.2276E-01, 0.2326E-01, 0.2377E-01, 0.2427E-01,& - 0.2478E-01, 0.2528E-01, 0.2579E-01, 0.2629E-01,& - 0.2680E-01, 0.2730E-01, 0.2781E-01, 0.2832E-01,& - 0.2933E-01, 0.2983E-01, 0.3034E-01, 0.3084E-01,& - 0.3135E-01, 0.3236E-01, 0.3286E-01, 0.3337E-01,& - 0.3387E-01, 0.3489E-01, 0.3539E-01, 0.3590E-01,& - 0.3691E-01, 0.3741E-01, 0.3842E-01, 0.3893E-01,& - 0.3994E-01, 0.4045E-01, 0.4146E-01, 0.4196E-01,& - 0.4297E-01, 0.4398E-01, 0.4449E-01, 0.4550E-01,& - 0.4651E-01, 0.4752E-01, 0.4803E-01, 0.4904E-01,& - 0.5005E-01, 0.5106E-01, 0.5207E-01, 0.5308E-01,& - 0.5409E-01, 0.5510E-01, 0.5611E-01, 0.5713E-01,& - 0.5814E-01, 0.5965E-01, 0.6066E-01, 0.6167E-01,& - 0.6269E-01, 0.6420E-01, 0.6521E-01, 0.6622E-01,& - 0.6774E-01, 0.6875E-01, 0.7027E-01, 0.7178E-01,& - 0.7279E-01, 0.7431E-01, 0.7583E-01, 0.7684E-01,& - 0.7835E-01, 0.7987E-01, 0.8139E-01, 0.8290E-01,& - 0.8442E-01, 0.8594E-01, 0.8745E-01, 0.8897E-01,& - 0.9099E-01, 0.9251E-01, 0.9402E-01, 0.9604E-01,& - 0.9756E-01, 0.9908E-01, 0.1011E+00, 0.1031E+00,& - 0.1046E+00, 0.1067E+00, 0.1087E+00, 0.1107E+00,& - 0.1127E+00, 0.1147E+00, 0.1168E+00, 0.1188E+00,& - 0.1208E+00, 0.1228E+00, 0.1254E+00, 0.1274E+00,& - 0.1299E+00, 0.1319E+00, 0.1345E+00, 0.1370E+00,& - 0.1390E+00, 0.1415E+00, 0.1441E+00, 0.1466E+00,& - 0.1491E+00, 0.1521E+00, 0.1547E+00, 0.1572E+00,& - 0.1602E+00, 0.1628E+00, 0.1658E+00, 0.1688E+00,& - 0.1714E+00, 0.1744E+00, 0.1774E+00, 0.1805E+00,& - 0.1840E+00, 0.1870E+00, 0.1901E+00, 0.1936E+00,& - 0.1966E+00, 0.2002E+00, 0.2037E+00, 0.2072E+00,& - 0.2108E+00, 0.2143E+00, 0.2179E+00, 0.2219E+00,& - 0.2254E+00, 0.2295E+00, 0.2335E+00, 0.2376E+00,& - 0.2416E+00, 0.2457E+00, 0.2497E+00, 0.2537E+00,& - 0.2583E+00, 0.2628E+00, 0.2669E+00, 0.2714E+00,& - 0.2760E+00, 0.2810E+00, 0.2856E+00, 0.2906E+00,& - 0.2952E+00, 0.3002E+00, 0.3053E+00, 0.3104E+00,& - 0.3154E+00, 0.3210E+00, 0.3260E+00, 0.3316E+00,& - 0.3371E+00, 0.3427E+00, 0.3488E+00, 0.3543E+00,& - 0.3604E+00, 0.3665E+00, 0.3725E+00, 0.3786E+00,& - 0.3847E+00, 0.3912E+00, 0.3978E+00, 0.4044E+00,& - 0.4109E+00, 0.4175E+00, 0.4246E+00, 0.4317E+00,& - 0.4387E+00, 0.4458E+00, 0.4529E+00, 0.4605E+00,& - 0.4681E+00, 0.4756E+00, 0.4837E+00, 0.4913E+00,& - 0.4994E+00, 0.5075E+00, 0.5161E+00, 0.5242E+00,& - 0.5328E+00, 0.5413E+00, 0.5504E+00, 0.5590E+00,& - 0.5681E+00, 0.5777E+00, 0.5868E+00, 0.5964E+00,& - 0.6060E+00, 0.6156E+00, 0.6258E+00, 0.6359E+00,& - 0.6460E+00, 0.6566E+00, 0.6672E+00, 0.6778E+00,& - 0.6889E+00, 0.7001E+00, 0.7112E+00, 0.7228E+00,& - 0.7344E+00, 0.7461E+00, 0.7582E+00, 0.7703E+00,& - 0.7824E+00, 0.7951E+00, 0.8077E+00, 0.8209E+00,& - 0.8340E+00, 0.8471E+00, 0.8608E+00, 0.8744E+00,& - 0.8886E+00, 0.9027E+00, 0.9169E+00, 0.9315E+00,& - 0.9467E+00, 0.9619E+00, 0.9770E+00, 0.9927E+00,& - 0.1008E+01, 0.1025E+01, 0.1041E+01, 0.1057E+01,& - 0.1074E+01, 0.1091E+01, 0.1109E+01, 0.1127E+01,& - 0.1144E+01, 0.1163E+01, 0.1181E+01, 0.1200E+01,& - 0.1219E+01, 0.1238E+01, 0.1258E+01, 0.1278E+01,& - 0.1299E+01, 0.1319E+01, 0.1340E+01, 0.1362E+01,& - 0.1383E+01, 0.1405E+01, 0.1427E+01, 0.1450E+01,& - 0.1473E+01, 0.1497E+01, 0.1521E+01, 0.1545E+01,& - 0.1570E+01, 0.1595E+01, 0.1620E+01, 0.1646E+01,& - 0.1673E+01, 0.1699E+01, 0.1726E+01, 0.1754E+01,& - 0.1782E+01, 0.1811E+01, 0.1840E+01, 0.1869E+01,& - 0.1899E+01, 0.1930E+01, 0.1961E+01, 0.1992E+01,& - 0.2024E+01, 0.2057E+01, 0.2090E+01, 0.2124E+01,& - 0.2158E+01, 0.2193E+01, 0.2229E+01, 0.2265E+01,& - 0.2301E+01, 0.2339E+01, 0.2377E+01, 0.2416E+01,& - 0.2455E+01, 0.2495E+01, 0.2536E+01, 0.2577E+01,& - 0.2620E+01, 0.2663E+01, 0.2707E+01, 0.2751E+01,& - 0.2797E+01, 0.2843E+01, 0.2890E+01, 0.2938E+01,& - 0.2987E+01, 0.3036E+01, 0.3087E+01, 0.3139E+01,& - 0.3191E+01, 0.3245E+01, 0.3300E+01, 0.3356E+01,& - 0.3412E+01, 0.3470E+01, 0.3529E+01, 0.3589E+01,& - 0.3651E+01, 0.3714E+01, 0.3777E+01, 0.3842E+01,& - 0.3909E+01, 0.3977E+01, 0.4046E+01, 0.4117E+01,& - 0.4189E+01, 0.4263E+01, 0.4338E+01, 0.4415E+01,& - 0.4494E+01, 0.4574E+01, 0.4656E+01, 0.4740E+01,& - 0.4826E+01, 0.4914E+01, 0.5004E+01, 0.5095E+01,& - 0.5189E+01, 0.5286E+01, 0.5385E+01, 0.5486E+01,& - 0.5589E+01, 0.5695E+01, 0.5804E+01, 0.5915E+01,& - 0.6030E+01, 0.6147E+01, 0.6268E+01, 0.6391E+01,& - 0.6518E+01, 0.6649E+01, 0.6783E+01, 0.6921E+01,& - 0.7063E+01, 0.7210E+01, 0.7360E+01, 0.7516E+01,& - 0.7676E+01, 0.7841E+01, 0.8011E+01, 0.8187E+01,& - 0.8369E+01, 0.8558E+01, 0.8752E+01, 0.8955E+01,& - 0.9164E+01, 0.9381E+01, 0.9607E+01, 0.9842E+01,& - 0.1009E+02, 0.1034E+02, 0.1061E+02, 0.1089E+02,& - 0.1118E+02, 0.1148E+02, 0.1180E+02, 0.1214E+02,& - 0.1250E+02, 0.1287E+02, 0.1327E+02, 0.1369E+02,& - 0.1415E+02, 0.1463E+02, 0.1515E+02, 0.1571E+02,& - 0.1632E+02, 0.1699E+02, 0.1773E+02, 0.1855E+02,& - 0.1948E+02, 0.2054E+02, 0.2179E+02, 0.2329E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,138) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.5221E-03, 0.5221E-03,& - 0.5221E-03, 0.5221E-03, 0.5221E-03, 0.5221E-03,& - 0.5221E-03, 0.5221E-03, 0.5221E-03, 0.5221E-03,& - 0.5221E-03, 0.5221E-03, 0.5221E-03, 0.5221E-03,& - 0.5221E-03, 0.5221E-03, 0.5221E-03, 0.5221E-03,& - 0.5221E-03, 0.5221E-03, 0.5221E-03, 0.5221E-03,& - 0.5221E-03, 0.5221E-03, 0.5221E-03, 0.5221E-03,& - 0.1034E-02, 0.1034E-02, 0.1034E-02, 0.1034E-02,& - 0.1034E-02, 0.1034E-02, 0.1034E-02, 0.1034E-02,& - 0.1034E-02, 0.1034E-02, 0.1034E-02, 0.1034E-02,& - 0.1034E-02, 0.1034E-02, 0.1034E-02, 0.1546E-02,& - 0.1546E-02, 0.1546E-02, 0.1546E-02, 0.1546E-02,& - 0.1546E-02, 0.1546E-02, 0.1546E-02, 0.1546E-02,& - 0.1546E-02, 0.1546E-02, 0.1546E-02, 0.2059E-02,& - 0.2059E-02, 0.2059E-02, 0.2059E-02, 0.2059E-02,& - 0.2059E-02, 0.2059E-02, 0.2059E-02, 0.2059E-02,& - 0.2571E-02, 0.2571E-02, 0.2571E-02, 0.2571E-02,& - 0.2571E-02, 0.2571E-02, 0.2571E-02, 0.2571E-02,& - 0.3083E-02, 0.3083E-02, 0.3083E-02, 0.3083E-02,& - 0.3083E-02, 0.3083E-02, 0.3595E-02, 0.3595E-02,& - 0.3595E-02, 0.3595E-02, 0.3595E-02, 0.3595E-02,& - 0.4107E-02, 0.4107E-02, 0.4107E-02, 0.4107E-02,& - 0.4107E-02, 0.4619E-02, 0.4619E-02, 0.4619E-02,& - 0.4619E-02, 0.4619E-02, 0.5131E-02, 0.5131E-02,& - 0.5131E-02, 0.5131E-02, 0.5644E-02, 0.5644E-02,& - 0.5644E-02, 0.5644E-02, 0.6156E-02, 0.6156E-02,& - 0.6156E-02, 0.6668E-02, 0.6668E-02, 0.6668E-02,& - 0.6668E-02, 0.7180E-02, 0.7180E-02, 0.7180E-02,& - 0.7692E-02, 0.7692E-02, 0.7692E-02, 0.8204E-02,& - 0.8204E-02, 0.8204E-02, 0.8716E-02, 0.8716E-02,& - 0.9229E-02, 0.9229E-02, 0.9229E-02, 0.9741E-02,& - 0.9741E-02, 0.1025E-01, 0.1025E-01, 0.1077E-01,& - 0.1077E-01, 0.1128E-01, 0.1128E-01, 0.1128E-01,& - 0.1179E-01, 0.1179E-01, 0.1230E-01, 0.1281E-01,& - 0.1281E-01, 0.1333E-01, 0.1333E-01, 0.1384E-01,& - 0.1384E-01, 0.1435E-01, 0.1486E-01, 0.1486E-01,& - 0.1537E-01, 0.1537E-01, 0.1589E-01, 0.1640E-01,& - 0.1640E-01, 0.1691E-01, 0.1742E-01, 0.1742E-01,& - 0.1794E-01, 0.1845E-01, 0.1896E-01, 0.1947E-01,& - 0.1947E-01, 0.1998E-01, 0.2050E-01, 0.2101E-01,& - 0.2152E-01, 0.2152E-01, 0.2203E-01, 0.2254E-01,& - 0.2306E-01, 0.2357E-01, 0.2408E-01, 0.2459E-01,& - 0.2511E-01, 0.2562E-01, 0.2613E-01, 0.2664E-01,& - 0.2715E-01, 0.2767E-01, 0.2818E-01, 0.2869E-01,& - 0.2971E-01, 0.3023E-01, 0.3074E-01, 0.3125E-01,& - 0.3176E-01, 0.3279E-01, 0.3330E-01, 0.3381E-01,& - 0.3432E-01, 0.3535E-01, 0.3586E-01, 0.3688E-01,& - 0.3740E-01, 0.3791E-01, 0.3893E-01, 0.3945E-01,& - 0.4047E-01, 0.4149E-01, 0.4201E-01, 0.4303E-01,& - 0.4354E-01, 0.4457E-01, 0.4559E-01, 0.4610E-01,& - 0.4713E-01, 0.4815E-01, 0.4918E-01, 0.5020E-01,& - 0.5122E-01, 0.5225E-01, 0.5276E-01, 0.5379E-01,& - 0.5481E-01, 0.5635E-01, 0.5737E-01, 0.5839E-01,& - 0.5942E-01, 0.6044E-01, 0.6147E-01, 0.6300E-01,& - 0.6403E-01, 0.6505E-01, 0.6659E-01, 0.6761E-01,& - 0.6915E-01, 0.7017E-01, 0.7171E-01, 0.7325E-01,& - 0.7427E-01, 0.7581E-01, 0.7734E-01, 0.7888E-01,& - 0.7990E-01, 0.8144E-01, 0.8298E-01, 0.8451E-01,& - 0.8605E-01, 0.8759E-01, 0.8964E-01, 0.9117E-01,& - 0.9271E-01, 0.9425E-01, 0.9629E-01, 0.9783E-01,& - 0.9988E-01, 0.1014E+00, 0.1035E+00, 0.1055E+00,& - 0.1070E+00, 0.1091E+00, 0.1111E+00, 0.1132E+00,& - 0.1152E+00, 0.1173E+00, 0.1193E+00, 0.1219E+00,& - 0.1239E+00, 0.1260E+00, 0.1286E+00, 0.1306E+00,& - 0.1332E+00, 0.1352E+00, 0.1378E+00, 0.1403E+00,& - 0.1429E+00, 0.1455E+00, 0.1480E+00, 0.1506E+00,& - 0.1531E+00, 0.1562E+00, 0.1588E+00, 0.1618E+00,& - 0.1644E+00, 0.1675E+00, 0.1706E+00, 0.1731E+00,& - 0.1762E+00, 0.1793E+00, 0.1828E+00, 0.1859E+00,& - 0.1890E+00, 0.1926E+00, 0.1957E+00, 0.1992E+00,& - 0.2028E+00, 0.2064E+00, 0.2100E+00, 0.2136E+00,& - 0.2172E+00, 0.2207E+00, 0.2248E+00, 0.2284E+00,& - 0.2325E+00, 0.2366E+00, 0.2407E+00, 0.2448E+00,& - 0.2489E+00, 0.2530E+00, 0.2576E+00, 0.2622E+00,& - 0.2663E+00, 0.2709E+00, 0.2755E+00, 0.2802E+00,& - 0.2853E+00, 0.2899E+00, 0.2950E+00, 0.3001E+00,& - 0.3052E+00, 0.3104E+00, 0.3155E+00, 0.3206E+00,& - 0.3262E+00, 0.3319E+00, 0.3375E+00, 0.3431E+00,& - 0.3488E+00, 0.3549E+00, 0.3606E+00, 0.3667E+00,& - 0.3729E+00, 0.3790E+00, 0.3857E+00, 0.3918E+00,& - 0.3985E+00, 0.4051E+00, 0.4118E+00, 0.4189E+00,& - 0.4256E+00, 0.4328E+00, 0.4399E+00, 0.4471E+00,& - 0.4548E+00, 0.4625E+00, 0.4702E+00, 0.4778E+00,& - 0.4855E+00, 0.4937E+00, 0.5019E+00, 0.5101E+00,& - 0.5183E+00, 0.5270E+00, 0.5357E+00, 0.5444E+00,& - 0.5536E+00, 0.5623E+00, 0.5716E+00, 0.5813E+00,& - 0.5905E+00, 0.6002E+00, 0.6100E+00, 0.6202E+00,& - 0.6305E+00, 0.6407E+00, 0.6509E+00, 0.6617E+00,& - 0.6725E+00, 0.6837E+00, 0.6945E+00, 0.7057E+00,& - 0.7175E+00, 0.7293E+00, 0.7411E+00, 0.7529E+00,& - 0.7652E+00, 0.7774E+00, 0.7903E+00, 0.8031E+00,& - 0.8159E+00, 0.8292E+00, 0.8425E+00, 0.8563E+00,& - 0.8701E+00, 0.8845E+00, 0.8988E+00, 0.9132E+00,& - 0.9280E+00, 0.9429E+00, 0.9582E+00, 0.9736E+00,& - 0.9895E+00, 0.1005E+01, 0.1021E+01, 0.1038E+01,& - 0.1055E+01, 0.1071E+01, 0.1089E+01, 0.1106E+01,& - 0.1124E+01, 0.1143E+01, 0.1161E+01, 0.1179E+01,& - 0.1198E+01, 0.1218E+01, 0.1237E+01, 0.1257E+01,& - 0.1278E+01, 0.1298E+01, 0.1319E+01, 0.1340E+01,& - 0.1362E+01, 0.1384E+01, 0.1406E+01, 0.1429E+01,& - 0.1452E+01, 0.1476E+01, 0.1499E+01, 0.1523E+01,& - 0.1548E+01, 0.1573E+01, 0.1598E+01, 0.1624E+01,& - 0.1650E+01, 0.1677E+01, 0.1704E+01, 0.1732E+01,& - 0.1760E+01, 0.1788E+01, 0.1817E+01, 0.1847E+01,& - 0.1877E+01, 0.1907E+01, 0.1938E+01, 0.1970E+01,& - 0.2002E+01, 0.2034E+01, 0.2068E+01, 0.2101E+01,& - 0.2136E+01, 0.2170E+01, 0.2206E+01, 0.2242E+01,& - 0.2279E+01, 0.2316E+01, 0.2355E+01, 0.2393E+01,& - 0.2433E+01, 0.2473E+01, 0.2514E+01, 0.2556E+01,& - 0.2598E+01, 0.2641E+01, 0.2685E+01, 0.2730E+01,& - 0.2775E+01, 0.2821E+01, 0.2869E+01, 0.2917E+01,& - 0.2966E+01, 0.3016E+01, 0.3067E+01, 0.3118E+01,& - 0.3171E+01, 0.3226E+01, 0.3280E+01, 0.3336E+01,& - 0.3393E+01, 0.3451E+01, 0.3511E+01, 0.3571E+01,& - 0.3633E+01, 0.3696E+01, 0.3760E+01, 0.3826E+01,& - 0.3892E+01, 0.3960E+01, 0.4030E+01, 0.4101E+01,& - 0.4174E+01, 0.4248E+01, 0.4324E+01, 0.4401E+01,& - 0.4481E+01, 0.4562E+01, 0.4644E+01, 0.4729E+01,& - 0.4815E+01, 0.4904E+01, 0.4994E+01, 0.5087E+01,& - 0.5181E+01, 0.5279E+01, 0.5378E+01, 0.5480E+01,& - 0.5584E+01, 0.5691E+01, 0.5801E+01, 0.5913E+01,& - 0.6028E+01, 0.6147E+01, 0.6268E+01, 0.6393E+01,& - 0.6521E+01, 0.6653E+01, 0.6789E+01, 0.6928E+01,& - 0.7071E+01, 0.7219E+01, 0.7371E+01, 0.7528E+01,& - 0.7690E+01, 0.7856E+01, 0.8029E+01, 0.8207E+01,& - 0.8391E+01, 0.8581E+01, 0.8778E+01, 0.8982E+01,& - 0.9194E+01, 0.9414E+01, 0.9642E+01, 0.9879E+01,& - 0.1013E+02, 0.1038E+02, 0.1065E+02, 0.1093E+02,& - 0.1123E+02, 0.1154E+02, 0.1186E+02, 0.1220E+02,& - 0.1256E+02, 0.1295E+02, 0.1335E+02, 0.1378E+02,& - 0.1424E+02, 0.1473E+02, 0.1525E+02, 0.1582E+02,& - 0.1644E+02, 0.1712E+02, 0.1787E+02, 0.1870E+02,& - 0.1964E+02, 0.2072E+02, 0.2198E+02, 0.2351E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,139) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.5289E-03,& - 0.5289E-03, 0.5289E-03, 0.5289E-03, 0.5289E-03,& - 0.5289E-03, 0.5289E-03, 0.5289E-03, 0.5289E-03,& - 0.5289E-03, 0.5289E-03, 0.5289E-03, 0.5289E-03,& - 0.5289E-03, 0.5289E-03, 0.5289E-03, 0.5289E-03,& - 0.5289E-03, 0.5289E-03, 0.5289E-03, 0.5289E-03,& - 0.5289E-03, 0.5289E-03, 0.5289E-03, 0.5289E-03,& - 0.1048E-02, 0.1048E-02, 0.1048E-02, 0.1048E-02,& - 0.1048E-02, 0.1048E-02, 0.1048E-02, 0.1048E-02,& - 0.1048E-02, 0.1048E-02, 0.1048E-02, 0.1048E-02,& - 0.1048E-02, 0.1048E-02, 0.1048E-02, 0.1048E-02,& - 0.1567E-02, 0.1567E-02, 0.1567E-02, 0.1567E-02,& - 0.1567E-02, 0.1567E-02, 0.1567E-02, 0.1567E-02,& - 0.1567E-02, 0.1567E-02, 0.1567E-02, 0.1567E-02,& - 0.2086E-02, 0.2086E-02, 0.2086E-02, 0.2086E-02,& - 0.2086E-02, 0.2086E-02, 0.2086E-02, 0.2086E-02,& - 0.2086E-02, 0.2604E-02, 0.2604E-02, 0.2604E-02,& - 0.2604E-02, 0.2604E-02, 0.2604E-02, 0.2604E-02,& - 0.3123E-02, 0.3123E-02, 0.3123E-02, 0.3123E-02,& - 0.3123E-02, 0.3123E-02, 0.3123E-02, 0.3642E-02,& - 0.3642E-02, 0.3642E-02, 0.3642E-02, 0.3642E-02,& - 0.3642E-02, 0.4161E-02, 0.4161E-02, 0.4161E-02,& - 0.4161E-02, 0.4161E-02, 0.4680E-02, 0.4680E-02,& - 0.4680E-02, 0.4680E-02, 0.5199E-02, 0.5199E-02,& - 0.5199E-02, 0.5199E-02, 0.5718E-02, 0.5718E-02,& - 0.5718E-02, 0.5718E-02, 0.6237E-02, 0.6237E-02,& - 0.6237E-02, 0.6237E-02, 0.6756E-02, 0.6756E-02,& - 0.6756E-02, 0.7275E-02, 0.7275E-02, 0.7275E-02,& - 0.7793E-02, 0.7793E-02, 0.7793E-02, 0.8312E-02,& - 0.8312E-02, 0.8312E-02, 0.8831E-02, 0.8831E-02,& - 0.9350E-02, 0.9350E-02, 0.9350E-02, 0.9869E-02,& - 0.9869E-02, 0.1039E-01, 0.1039E-01, 0.1039E-01,& - 0.1091E-01, 0.1091E-01, 0.1143E-01, 0.1143E-01,& - 0.1194E-01, 0.1194E-01, 0.1246E-01, 0.1246E-01,& - 0.1298E-01, 0.1298E-01, 0.1350E-01, 0.1402E-01,& - 0.1402E-01, 0.1454E-01, 0.1454E-01, 0.1506E-01,& - 0.1558E-01, 0.1558E-01, 0.1610E-01, 0.1661E-01,& - 0.1661E-01, 0.1713E-01, 0.1765E-01, 0.1765E-01,& - 0.1817E-01, 0.1869E-01, 0.1921E-01, 0.1921E-01,& - 0.1973E-01, 0.2025E-01, 0.2077E-01, 0.2128E-01,& - 0.2180E-01, 0.2180E-01, 0.2232E-01, 0.2284E-01,& - 0.2336E-01, 0.2388E-01, 0.2440E-01, 0.2492E-01,& - 0.2544E-01, 0.2595E-01, 0.2647E-01, 0.2699E-01,& - 0.2751E-01, 0.2803E-01, 0.2855E-01, 0.2907E-01,& - 0.3011E-01, 0.3062E-01, 0.3114E-01, 0.3166E-01,& - 0.3218E-01, 0.3322E-01, 0.3374E-01, 0.3426E-01,& - 0.3529E-01, 0.3581E-01, 0.3633E-01, 0.3737E-01,& - 0.3789E-01, 0.3893E-01, 0.3945E-01, 0.4048E-01,& - 0.4100E-01, 0.4204E-01, 0.4256E-01, 0.4360E-01,& - 0.4463E-01, 0.4515E-01, 0.4619E-01, 0.4723E-01,& - 0.4827E-01, 0.4879E-01, 0.4982E-01, 0.5086E-01,& - 0.5190E-01, 0.5294E-01, 0.5397E-01, 0.5501E-01,& - 0.5605E-01, 0.5709E-01, 0.5813E-01, 0.5968E-01,& - 0.6072E-01, 0.6176E-01, 0.6280E-01, 0.6435E-01,& - 0.6539E-01, 0.6643E-01, 0.6799E-01, 0.6902E-01,& - 0.7058E-01, 0.7162E-01, 0.7317E-01, 0.7473E-01,& - 0.7577E-01, 0.7733E-01, 0.7888E-01, 0.8044E-01,& - 0.8200E-01, 0.8355E-01, 0.8511E-01, 0.8667E-01,& - 0.8822E-01, 0.8978E-01, 0.9134E-01, 0.9341E-01,& - 0.9497E-01, 0.9652E-01, 0.9860E-01, 0.1002E+00,& - 0.1022E+00, 0.1043E+00, 0.1059E+00, 0.1079E+00,& - 0.1100E+00, 0.1121E+00, 0.1142E+00, 0.1162E+00,& - 0.1183E+00, 0.1204E+00, 0.1225E+00, 0.1251E+00,& - 0.1271E+00, 0.1292E+00, 0.1318E+00, 0.1344E+00,& - 0.1365E+00, 0.1391E+00, 0.1417E+00, 0.1443E+00,& - 0.1469E+00, 0.1495E+00, 0.1520E+00, 0.1546E+00,& - 0.1578E+00, 0.1603E+00, 0.1635E+00, 0.1661E+00,& - 0.1692E+00, 0.1723E+00, 0.1754E+00, 0.1785E+00,& - 0.1816E+00, 0.1847E+00, 0.1878E+00, 0.1915E+00,& - 0.1946E+00, 0.1982E+00, 0.2019E+00, 0.2050E+00,& - 0.2086E+00, 0.2122E+00, 0.2164E+00, 0.2200E+00,& - 0.2237E+00, 0.2278E+00, 0.2320E+00, 0.2356E+00,& - 0.2397E+00, 0.2439E+00, 0.2486E+00, 0.2527E+00,& - 0.2569E+00, 0.2615E+00, 0.2662E+00, 0.2704E+00,& - 0.2750E+00, 0.2802E+00, 0.2849E+00, 0.2896E+00,& - 0.2947E+00, 0.2999E+00, 0.3051E+00, 0.3103E+00,& - 0.3155E+00, 0.3207E+00, 0.3264E+00, 0.3321E+00,& - 0.3378E+00, 0.3435E+00, 0.3492E+00, 0.3549E+00,& - 0.3612E+00, 0.3674E+00, 0.3736E+00, 0.3798E+00,& - 0.3861E+00, 0.3928E+00, 0.3996E+00, 0.4063E+00,& - 0.4130E+00, 0.4203E+00, 0.4271E+00, 0.4343E+00,& - 0.4416E+00, 0.4489E+00, 0.4566E+00, 0.4644E+00,& - 0.4722E+00, 0.4800E+00, 0.4878E+00, 0.4961E+00,& - 0.5044E+00, 0.5127E+00, 0.5215E+00, 0.5298E+00,& - 0.5391E+00, 0.5480E+00, 0.5568E+00, 0.5661E+00,& - 0.5755E+00, 0.5853E+00, 0.5947E+00, 0.6045E+00,& - 0.6149E+00, 0.6248E+00, 0.6351E+00, 0.6455E+00,& - 0.6564E+00, 0.6673E+00, 0.6782E+00, 0.6896E+00,& - 0.7010E+00, 0.7125E+00, 0.7239E+00, 0.7358E+00,& - 0.7483E+00, 0.7602E+00, 0.7726E+00, 0.7856E+00,& - 0.7986E+00, 0.8116E+00, 0.8251E+00, 0.8385E+00,& - 0.8520E+00, 0.8660E+00, 0.8801E+00, 0.8946E+00,& - 0.9091E+00, 0.9242E+00, 0.9392E+00, 0.9548E+00,& - 0.9703E+00, 0.9859E+00, 0.1002E+01, 0.1019E+01,& - 0.1035E+01, 0.1052E+01, 0.1069E+01, 0.1087E+01,& - 0.1104E+01, 0.1122E+01, 0.1141E+01, 0.1159E+01,& - 0.1178E+01, 0.1197E+01, 0.1217E+01, 0.1237E+01,& - 0.1257E+01, 0.1277E+01, 0.1298E+01, 0.1319E+01,& - 0.1341E+01, 0.1363E+01, 0.1385E+01, 0.1407E+01,& - 0.1430E+01, 0.1453E+01, 0.1477E+01, 0.1502E+01,& - 0.1526E+01, 0.1551E+01, 0.1576E+01, 0.1602E+01,& - 0.1628E+01, 0.1655E+01, 0.1682E+01, 0.1709E+01,& - 0.1737E+01, 0.1766E+01, 0.1795E+01, 0.1824E+01,& - 0.1855E+01, 0.1885E+01, 0.1916E+01, 0.1947E+01,& - 0.1979E+01, 0.2012E+01, 0.2045E+01, 0.2079E+01,& - 0.2113E+01, 0.2148E+01, 0.2184E+01, 0.2220E+01,& - 0.2257E+01, 0.2294E+01, 0.2332E+01, 0.2371E+01,& - 0.2411E+01, 0.2451E+01, 0.2492E+01, 0.2533E+01,& - 0.2576E+01, 0.2619E+01, 0.2663E+01, 0.2708E+01,& - 0.2754E+01, 0.2800E+01, 0.2848E+01, 0.2896E+01,& - 0.2945E+01, 0.2995E+01, 0.3046E+01, 0.3098E+01,& - 0.3151E+01, 0.3205E+01, 0.3260E+01, 0.3316E+01,& - 0.3374E+01, 0.3432E+01, 0.3492E+01, 0.3552E+01,& - 0.3615E+01, 0.3678E+01, 0.3742E+01, 0.3808E+01,& - 0.3875E+01, 0.3944E+01, 0.4014E+01, 0.4086E+01,& - 0.4158E+01, 0.4233E+01, 0.4309E+01, 0.4387E+01,& - 0.4467E+01, 0.4549E+01, 0.4632E+01, 0.4717E+01,& - 0.4804E+01, 0.4893E+01, 0.4984E+01, 0.5077E+01,& - 0.5173E+01, 0.5270E+01, 0.5371E+01, 0.5473E+01,& - 0.5579E+01, 0.5686E+01, 0.5797E+01, 0.5910E+01,& - 0.6026E+01, 0.6146E+01, 0.6268E+01, 0.6394E+01,& - 0.6524E+01, 0.6656E+01, 0.6793E+01, 0.6934E+01,& - 0.7079E+01, 0.7228E+01, 0.7381E+01, 0.7540E+01,& - 0.7703E+01, 0.7872E+01, 0.8045E+01, 0.8225E+01,& - 0.8411E+01, 0.8603E+01, 0.8803E+01, 0.9009E+01,& - 0.9223E+01, 0.9445E+01, 0.9676E+01, 0.9916E+01,& - 0.1017E+02, 0.1043E+02, 0.1070E+02, 0.1098E+02,& - 0.1128E+02, 0.1159E+02, 0.1192E+02, 0.1227E+02,& - 0.1263E+02, 0.1302E+02, 0.1343E+02, 0.1386E+02,& - 0.1433E+02, 0.1482E+02, 0.1536E+02, 0.1593E+02,& - 0.1656E+02, 0.1725E+02, 0.1801E+02, 0.1885E+02,& - 0.1981E+02, 0.2090E+02, 0.2218E+02, 0.2373E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,140) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.5357E-03, 0.5357E-03, 0.5357E-03, 0.5357E-03,& - 0.5357E-03, 0.5357E-03, 0.5357E-03, 0.5357E-03,& - 0.5357E-03, 0.5357E-03, 0.5357E-03, 0.5357E-03,& - 0.5357E-03, 0.5357E-03, 0.5357E-03, 0.5357E-03,& - 0.5357E-03, 0.5357E-03, 0.5357E-03, 0.5357E-03,& - 0.5357E-03, 0.5357E-03, 0.5357E-03, 0.5357E-03,& - 0.5357E-03, 0.1061E-02, 0.1061E-02, 0.1061E-02,& - 0.1061E-02, 0.1061E-02, 0.1061E-02, 0.1061E-02,& - 0.1061E-02, 0.1061E-02, 0.1061E-02, 0.1061E-02,& - 0.1061E-02, 0.1061E-02, 0.1061E-02, 0.1061E-02,& - 0.1061E-02, 0.1587E-02, 0.1587E-02, 0.1587E-02,& - 0.1587E-02, 0.1587E-02, 0.1587E-02, 0.1587E-02,& - 0.1587E-02, 0.1587E-02, 0.1587E-02, 0.1587E-02,& - 0.2113E-02, 0.2113E-02, 0.2113E-02, 0.2113E-02,& - 0.2113E-02, 0.2113E-02, 0.2113E-02, 0.2113E-02,& - 0.2113E-02, 0.2638E-02, 0.2638E-02, 0.2638E-02,& - 0.2638E-02, 0.2638E-02, 0.2638E-02, 0.2638E-02,& - 0.2638E-02, 0.3164E-02, 0.3164E-02, 0.3164E-02,& - 0.3164E-02, 0.3164E-02, 0.3164E-02, 0.3690E-02,& - 0.3690E-02, 0.3690E-02, 0.3690E-02, 0.3690E-02,& - 0.3690E-02, 0.4216E-02, 0.4216E-02, 0.4216E-02,& - 0.4216E-02, 0.4216E-02, 0.4741E-02, 0.4741E-02,& - 0.4741E-02, 0.4741E-02, 0.4741E-02, 0.5267E-02,& - 0.5267E-02, 0.5267E-02, 0.5267E-02, 0.5793E-02,& - 0.5793E-02, 0.5793E-02, 0.5793E-02, 0.6318E-02,& - 0.6318E-02, 0.6318E-02, 0.6844E-02, 0.6844E-02,& - 0.6844E-02, 0.7370E-02, 0.7370E-02, 0.7370E-02,& - 0.7370E-02, 0.7895E-02, 0.7895E-02, 0.8421E-02,& - 0.8421E-02, 0.8421E-02, 0.8947E-02, 0.8947E-02,& - 0.8947E-02, 0.9472E-02, 0.9472E-02, 0.9998E-02,& - 0.9998E-02, 0.9998E-02, 0.1052E-01, 0.1052E-01,& - 0.1105E-01, 0.1105E-01, 0.1158E-01, 0.1158E-01,& - 0.1210E-01, 0.1210E-01, 0.1263E-01, 0.1263E-01,& - 0.1315E-01, 0.1315E-01, 0.1368E-01, 0.1420E-01,& - 0.1420E-01, 0.1473E-01, 0.1473E-01, 0.1525E-01,& - 0.1578E-01, 0.1578E-01, 0.1631E-01, 0.1683E-01,& - 0.1683E-01, 0.1736E-01, 0.1788E-01, 0.1788E-01,& - 0.1841E-01, 0.1893E-01, 0.1946E-01, 0.1946E-01,& - 0.1999E-01, 0.2051E-01, 0.2104E-01, 0.2156E-01,& - 0.2209E-01, 0.2209E-01, 0.2261E-01, 0.2314E-01,& - 0.2367E-01, 0.2419E-01, 0.2472E-01, 0.2524E-01,& - 0.2577E-01, 0.2629E-01, 0.2682E-01, 0.2735E-01,& - 0.2787E-01, 0.2840E-01, 0.2892E-01, 0.2997E-01,& - 0.3050E-01, 0.3103E-01, 0.3155E-01, 0.3208E-01,& - 0.3313E-01, 0.3365E-01, 0.3418E-01, 0.3523E-01,& - 0.3576E-01, 0.3628E-01, 0.3733E-01, 0.3786E-01,& - 0.3891E-01, 0.3944E-01, 0.4049E-01, 0.4101E-01,& - 0.4207E-01, 0.4259E-01, 0.4364E-01, 0.4469E-01,& - 0.4522E-01, 0.4627E-01, 0.4732E-01, 0.4785E-01,& - 0.4890E-01, 0.4995E-01, 0.5100E-01, 0.5205E-01,& - 0.5310E-01, 0.5416E-01, 0.5521E-01, 0.5626E-01,& - 0.5731E-01, 0.5836E-01, 0.5941E-01, 0.6046E-01,& - 0.6204E-01, 0.6309E-01, 0.6414E-01, 0.6572E-01,& - 0.6677E-01, 0.6782E-01, 0.6940E-01, 0.7098E-01,& - 0.7203E-01, 0.7361E-01, 0.7466E-01, 0.7623E-01,& - 0.7781E-01, 0.7939E-01, 0.8097E-01, 0.8202E-01,& - 0.8359E-01, 0.8517E-01, 0.8727E-01, 0.8885E-01,& - 0.9043E-01, 0.9201E-01, 0.9358E-01, 0.9569E-01,& - 0.9726E-01, 0.9937E-01, 0.1009E+00, 0.1030E+00,& - 0.1046E+00, 0.1067E+00, 0.1088E+00, 0.1109E+00,& - 0.1130E+00, 0.1151E+00, 0.1172E+00, 0.1193E+00,& - 0.1214E+00, 0.1235E+00, 0.1262E+00, 0.1283E+00,& - 0.1304E+00, 0.1330E+00, 0.1356E+00, 0.1377E+00,& - 0.1404E+00, 0.1430E+00, 0.1456E+00, 0.1483E+00,& - 0.1509E+00, 0.1535E+00, 0.1567E+00, 0.1593E+00,& - 0.1619E+00, 0.1651E+00, 0.1682E+00, 0.1709E+00,& - 0.1740E+00, 0.1772E+00, 0.1803E+00, 0.1835E+00,& - 0.1872E+00, 0.1903E+00, 0.1940E+00, 0.1971E+00,& - 0.2008E+00, 0.2045E+00, 0.2082E+00, 0.2119E+00,& - 0.2155E+00, 0.2192E+00, 0.2229E+00, 0.2271E+00,& - 0.2313E+00, 0.2350E+00, 0.2392E+00, 0.2434E+00,& - 0.2476E+00, 0.2523E+00, 0.2565E+00, 0.2613E+00,& - 0.2655E+00, 0.2702E+00, 0.2749E+00, 0.2797E+00,& - 0.2844E+00, 0.2897E+00, 0.2944E+00, 0.2997E+00,& - 0.3049E+00, 0.3102E+00, 0.3154E+00, 0.3212E+00,& - 0.3265E+00, 0.3322E+00, 0.3380E+00, 0.3438E+00,& - 0.3496E+00, 0.3559E+00, 0.3617E+00, 0.3680E+00,& - 0.3743E+00, 0.3806E+00, 0.3874E+00, 0.3938E+00,& - 0.4006E+00, 0.4074E+00, 0.4143E+00, 0.4216E+00,& - 0.4290E+00, 0.4358E+00, 0.4437E+00, 0.4511E+00,& - 0.4584E+00, 0.4663E+00, 0.4742E+00, 0.4826E+00,& - 0.4905E+00, 0.4989E+00, 0.5073E+00, 0.5157E+00,& - 0.5246E+00, 0.5336E+00, 0.5425E+00, 0.5515E+00,& - 0.5609E+00, 0.5704E+00, 0.5798E+00, 0.5893E+00,& - 0.5993E+00, 0.6093E+00, 0.6198E+00, 0.6298E+00,& - 0.6403E+00, 0.6513E+00, 0.6619E+00, 0.6729E+00,& - 0.6845E+00, 0.6960E+00, 0.7076E+00, 0.7192E+00,& - 0.7312E+00, 0.7433E+00, 0.7554E+00, 0.7680E+00,& - 0.7812E+00, 0.7938E+00, 0.8069E+00, 0.8206E+00,& - 0.8343E+00, 0.8479E+00, 0.8621E+00, 0.8763E+00,& - 0.8905E+00, 0.9058E+00, 0.9205E+00, 0.9357E+00,& - 0.9510E+00, 0.9668E+00, 0.9830E+00, 0.9993E+00,& - 0.1016E+01, 0.1032E+01, 0.1049E+01, 0.1067E+01,& - 0.1085E+01, 0.1102E+01, 0.1120E+01, 0.1139E+01,& - 0.1158E+01, 0.1177E+01, 0.1196E+01, 0.1216E+01,& - 0.1236E+01, 0.1256E+01, 0.1277E+01, 0.1298E+01,& - 0.1319E+01, 0.1342E+01, 0.1364E+01, 0.1386E+01,& - 0.1409E+01, 0.1432E+01, 0.1456E+01, 0.1480E+01,& - 0.1504E+01, 0.1529E+01, 0.1554E+01, 0.1580E+01,& - 0.1606E+01, 0.1633E+01, 0.1660E+01, 0.1687E+01,& - 0.1715E+01, 0.1744E+01, 0.1773E+01, 0.1802E+01,& - 0.1832E+01, 0.1862E+01, 0.1893E+01, 0.1925E+01,& - 0.1957E+01, 0.1989E+01, 0.2022E+01, 0.2056E+01,& - 0.2091E+01, 0.2125E+01, 0.2161E+01, 0.2197E+01,& - 0.2234E+01, 0.2272E+01, 0.2310E+01, 0.2349E+01,& - 0.2388E+01, 0.2428E+01, 0.2469E+01, 0.2511E+01,& - 0.2554E+01, 0.2597E+01, 0.2641E+01, 0.2686E+01,& - 0.2732E+01, 0.2778E+01, 0.2826E+01, 0.2874E+01,& - 0.2923E+01, 0.2974E+01, 0.3025E+01, 0.3077E+01,& - 0.3130E+01, 0.3185E+01, 0.3240E+01, 0.3297E+01,& - 0.3354E+01, 0.3413E+01, 0.3472E+01, 0.3533E+01,& - 0.3596E+01, 0.3659E+01, 0.3724E+01, 0.3790E+01,& - 0.3858E+01, 0.3927E+01, 0.3997E+01, 0.4069E+01,& - 0.4143E+01, 0.4218E+01, 0.4294E+01, 0.4373E+01,& - 0.4453E+01, 0.4535E+01, 0.4619E+01, 0.4704E+01,& - 0.4792E+01, 0.4882E+01, 0.4974E+01, 0.5063E+01,& - 0.5163E+01, 0.5262E+01, 0.5363E+01, 0.5466E+01,& - 0.5572E+01, 0.5681E+01, 0.5792E+01, 0.5907E+01,& - 0.6024E+01, 0.6144E+01, 0.6268E+01, 0.6395E+01,& - 0.6525E+01, 0.6659E+01, 0.6797E+01, 0.6939E+01,& - 0.7085E+01, 0.7236E+01, 0.7391E+01, 0.7550E+01,& - 0.7716E+01, 0.7885E+01, 0.8061E+01, 0.8243E+01,& - 0.8430E+01, 0.8625E+01, 0.8826E+01, 0.9035E+01,& - 0.9251E+01, 0.9476E+01, 0.9709E+01, 0.9952E+01,& - 0.1020E+02, 0.1047E+02, 0.1074E+02, 0.1103E+02,& - 0.1133E+02, 0.1165E+02, 0.1198E+02, 0.1233E+02,& - 0.1270E+02, 0.1309E+02, 0.1350E+02, 0.1394E+02,& - 0.1441E+02, 0.1492E+02, 0.1546E+02, 0.1604E+02,& - 0.1668E+02, 0.1738E+02, 0.1814E+02, 0.1900E+02,& - 0.1997E+02, 0.2108E+02, 0.2238E+02, 0.2394E+02,& - 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/) - - end subroutine tabulate_xcw_beta - - subroutine tabulate_xcw_gamma - - if (allocated(xcw)) deallocate(xcw) - allocate (xcw(n1,n2)) - - xcw(:, 1) = (/& - 0.1000E-04, 0.7192E+00, 0.7364E+00, 0.7470E+00,& - 0.7549E+00, 0.7612E+00, 0.7665E+00, 0.7711E+00,& - 0.7752E+00, 0.7789E+00, 0.7822E+00, 0.7852E+00,& - 0.7881E+00, 0.7907E+00, 0.7932E+00, 0.7955E+00,& - 0.7977E+00, 0.7998E+00, 0.8018E+00, 0.8037E+00,& - 0.8055E+00, 0.8073E+00, 0.8090E+00, 0.8106E+00,& - 0.8122E+00, 0.8137E+00, 0.8151E+00, 0.8166E+00,& - 0.8179E+00, 0.8193E+00, 0.8206E+00, 0.8219E+00,& - 0.8231E+00, 0.8243E+00, 0.8255E+00, 0.8266E+00,& - 0.8278E+00, 0.8289E+00, 0.8299E+00, 0.8310E+00,& - 0.8320E+00, 0.8331E+00, 0.8341E+00, 0.8350E+00,& - 0.8360E+00, 0.8369E+00, 0.8379E+00, 0.8388E+00,& - 0.8397E+00, 0.8406E+00, 0.8414E+00, 0.8423E+00,& - 0.8431E+00, 0.8440E+00, 0.8448E+00, 0.8456E+00,& - 0.8464E+00, 0.8472E+00, 0.8480E+00, 0.8487E+00,& - 0.8495E+00, 0.8502E+00, 0.8510E+00, 0.8517E+00,& - 0.8524E+00, 0.8531E+00, 0.8538E+00, 0.8545E+00,& - 0.8552E+00, 0.8559E+00, 0.8566E+00, 0.8573E+00,& - 0.8579E+00, 0.8586E+00, 0.8592E+00, 0.8599E+00,& - 0.8605E+00, 0.8611E+00, 0.8618E+00, 0.8624E+00,& - 0.8630E+00, 0.8636E+00, 0.8642E+00, 0.8648E+00,& - 0.8654E+00, 0.8660E+00, 0.8665E+00, 0.8671E+00,& - 0.8677E+00, 0.8683E+00, 0.8688E+00, 0.8694E+00,& - 0.8699E+00, 0.8705E+00, 0.8710E+00, 0.8716E+00,& - 0.8721E+00, 0.8726E+00, 0.8732E+00, 0.8737E+00,& - 0.8742E+00, 0.8747E+00, 0.8753E+00, 0.8758E+00,& - 0.8763E+00, 0.8768E+00, 0.8773E+00, 0.8778E+00,& - 0.8783E+00, 0.8788E+00, 0.8793E+00, 0.8798E+00,& - 0.8802E+00, 0.8807E+00, 0.8812E+00, 0.8817E+00,& - 0.8821E+00, 0.8826E+00, 0.8831E+00, 0.8835E+00,& - 0.8840E+00, 0.8845E+00, 0.8849E+00, 0.8854E+00,& - 0.8858E+00, 0.8863E+00, 0.8867E+00, 0.8872E+00,& - 0.8876E+00, 0.8881E+00, 0.8885E+00, 0.8889E+00,& - 0.8894E+00, 0.8898E+00, 0.8902E+00, 0.8907E+00,& - 0.8911E+00, 0.8915E+00, 0.8919E+00, 0.8923E+00,& - 0.8928E+00, 0.8932E+00, 0.8936E+00, 0.8940E+00,& - 0.8944E+00, 0.8948E+00, 0.8952E+00, 0.8956E+00,& - 0.8960E+00, 0.8964E+00, 0.8968E+00, 0.8972E+00,& - 0.8976E+00, 0.8980E+00, 0.8984E+00, 0.8988E+00,& - 0.8992E+00, 0.8996E+00, 0.9000E+00, 0.9004E+00,& - 0.9007E+00, 0.9011E+00, 0.9015E+00, 0.9019E+00,& - 0.9023E+00, 0.9026E+00, 0.9030E+00, 0.9034E+00,& - 0.9038E+00, 0.9041E+00, 0.9045E+00, 0.9049E+00,& - 0.9052E+00, 0.9056E+00, 0.9060E+00, 0.9063E+00,& - 0.9067E+00, 0.9071E+00, 0.9074E+00, 0.9078E+00,& - 0.9081E+00, 0.9085E+00, 0.9089E+00, 0.9092E+00,& - 0.9096E+00, 0.9099E+00, 0.9103E+00, 0.9106E+00,& - 0.9110E+00, 0.9113E+00, 0.9117E+00, 0.9120E+00,& - 0.9124E+00, 0.9127E+00, 0.9130E+00, 0.9134E+00,& - 0.9137E+00, 0.9141E+00, 0.9144E+00, 0.9147E+00,& - 0.9151E+00, 0.9154E+00, 0.9158E+00, 0.9161E+00,& - 0.9164E+00, 0.9168E+00, 0.9171E+00, 0.9174E+00,& - 0.9177E+00, 0.9181E+00, 0.9184E+00, 0.9187E+00,& - 0.9191E+00, 0.9194E+00, 0.9197E+00, 0.9200E+00,& - 0.9204E+00, 0.9207E+00, 0.9210E+00, 0.9213E+00,& - 0.9216E+00, 0.9220E+00, 0.9223E+00, 0.9226E+00,& - 0.9229E+00, 0.9232E+00, 0.9235E+00, 0.9239E+00,& - 0.9242E+00, 0.9245E+00, 0.9248E+00, 0.9251E+00,& - 0.9254E+00, 0.9257E+00, 0.9261E+00, 0.9264E+00,& - 0.9267E+00, 0.9270E+00, 0.9273E+00, 0.9276E+00,& - 0.9279E+00, 0.9282E+00, 0.9285E+00, 0.9288E+00,& - 0.9291E+00, 0.9294E+00, 0.9297E+00, 0.9300E+00,& - 0.9303E+00, 0.9306E+00, 0.9309E+00, 0.9312E+00,& - 0.9315E+00, 0.9318E+00, 0.9321E+00, 0.9324E+00,& - 0.9327E+00, 0.9330E+00, 0.9333E+00, 0.9336E+00,& - 0.9339E+00, 0.9342E+00, 0.9345E+00, 0.9348E+00,& - 0.9351E+00, 0.9354E+00, 0.9357E+00, 0.9360E+00,& - 0.9362E+00, 0.9365E+00, 0.9368E+00, 0.9371E+00,& - 0.9374E+00, 0.9377E+00, 0.9380E+00, 0.9383E+00,& - 0.9386E+00, 0.9388E+00, 0.9391E+00, 0.9394E+00,& - 0.9397E+00, 0.9400E+00, 0.9403E+00, 0.9406E+00,& - 0.9408E+00, 0.9411E+00, 0.9414E+00, 0.9417E+00,& - 0.9420E+00, 0.9423E+00, 0.9425E+00, 0.9428E+00,& - 0.9431E+00, 0.9434E+00, 0.9437E+00, 0.9439E+00,& - 0.9442E+00, 0.9445E+00, 0.9448E+00, 0.9450E+00,& - 0.9453E+00, 0.9456E+00, 0.9459E+00, 0.9462E+00,& - 0.9464E+00, 0.9467E+00, 0.9470E+00, 0.9473E+00,& - 0.9475E+00, 0.9478E+00, 0.9481E+00, 0.9484E+00,& - 0.9486E+00, 0.9489E+00, 0.9492E+00, 0.9494E+00,& - 0.9497E+00, 0.9500E+00, 0.9503E+00, 0.9505E+00,& - 0.9508E+00, 0.9511E+00, 0.9513E+00, 0.9516E+00,& - 0.9519E+00, 0.9521E+00, 0.9524E+00, 0.9527E+00,& - 0.9530E+00, 0.9532E+00, 0.9535E+00, 0.9538E+00,& - 0.9540E+00, 0.9543E+00, 0.9546E+00, 0.9548E+00,& - 0.9551E+00, 0.9554E+00, 0.9556E+00, 0.9559E+00,& - 0.9562E+00, 0.9564E+00, 0.9567E+00, 0.9570E+00,& - 0.9572E+00, 0.9575E+00, 0.9577E+00, 0.9580E+00,& - 0.9583E+00, 0.9585E+00, 0.9588E+00, 0.9591E+00,& - 0.9593E+00, 0.9596E+00, 0.9598E+00, 0.9601E+00,& - 0.9604E+00, 0.9606E+00, 0.9609E+00, 0.9611E+00,& - 0.9614E+00, 0.9617E+00, 0.9619E+00, 0.9622E+00,& - 0.9625E+00, 0.9627E+00, 0.9630E+00, 0.9632E+00,& - 0.9635E+00, 0.9637E+00, 0.9640E+00, 0.9643E+00,& - 0.9645E+00, 0.9648E+00, 0.9650E+00, 0.9653E+00,& - 0.9656E+00, 0.9658E+00, 0.9661E+00, 0.9663E+00,& - 0.9666E+00, 0.9668E+00, 0.9671E+00, 0.9674E+00,& - 0.9676E+00, 0.9679E+00, 0.9681E+00, 0.9684E+00,& - 0.9686E+00, 0.9689E+00, 0.9691E+00, 0.9694E+00,& - 0.9697E+00, 0.9699E+00, 0.9702E+00, 0.9704E+00,& - 0.9707E+00, 0.9709E+00, 0.9712E+00, 0.9714E+00,& - 0.9717E+00, 0.9720E+00, 0.9722E+00, 0.9725E+00,& - 0.9727E+00, 0.9730E+00, 0.9732E+00, 0.9735E+00,& - 0.9737E+00, 0.9740E+00, 0.9742E+00, 0.9745E+00,& - 0.9747E+00, 0.9750E+00, 0.9752E+00, 0.9755E+00,& - 0.9757E+00, 0.9760E+00, 0.9763E+00, 0.9765E+00,& - 0.9768E+00, 0.9770E+00, 0.9773E+00, 0.9775E+00,& - 0.9778E+00, 0.9780E+00, 0.9783E+00, 0.9785E+00,& - 0.9788E+00, 0.9790E+00, 0.9793E+00, 0.9795E+00,& - 0.9798E+00, 0.9800E+00, 0.9803E+00, 0.9805E+00,& - 0.9808E+00, 0.9810E+00, 0.9813E+00, 0.9815E+00,& - 0.9818E+00, 0.9820E+00, 0.9823E+00, 0.9825E+00,& - 0.9828E+00, 0.9830E+00, 0.9833E+00, 0.9835E+00,& - 0.9838E+00, 0.9840E+00, 0.9843E+00, 0.9845E+00,& - 0.9848E+00, 0.9850E+00, 0.9853E+00, 0.9855E+00,& - 0.9858E+00, 0.9860E+00, 0.9863E+00, 0.9865E+00,& - 0.9868E+00, 0.9870E+00, 0.9873E+00, 0.9875E+00,& - 0.9878E+00, 0.9880E+00, 0.9883E+00, 0.9885E+00,& - 0.9888E+00, 0.9890E+00, 0.9893E+00, 0.9895E+00,& - 0.9898E+00, 0.9900E+00, 0.9903E+00, 0.9905E+00,& - 0.9908E+00, 0.9910E+00, 0.9913E+00, 0.9915E+00,& - 0.9918E+00, 0.9920E+00, 0.9923E+00, 0.9925E+00,& - 0.9928E+00, 0.9930E+00, 0.9933E+00, 0.9935E+00,& - 0.9938E+00, 0.9940E+00, 0.9943E+00, 0.9945E+00,& - 0.9948E+00, 0.9950E+00, 0.9953E+00, 0.9955E+00,& - 0.9958E+00, 0.9960E+00, 0.9963E+00, 0.9965E+00,& - 0.9968E+00, 0.9970E+00, 0.9973E+00, 0.9975E+00,& - 0.9978E+00, 0.9980E+00, 0.9983E+00, 0.9986E+00,& - 0.9988E+00, 0.9990E+00, 0.9993E+00, 0.9995E+00,& - 0.9998E+00, 0.1000E+01, 0.1000E+01, 0.1001E+01,& - 0.1001E+01, 0.1001E+01, 0.1001E+01, 0.1002E+01,& - 0.1002E+01, 0.1002E+01, 0.1002E+01, 0.1003E+01,& - 0.1003E+01, 0.1003E+01, 0.1003E+01, 0.1004E+01,& - 0.1004E+01, 0.1004E+01, 0.1004E+01, 0.1005E+01,& - 0.1005E+01, 0.1005E+01, 0.1005E+01, 0.1006E+01,& - 0.1006E+01, 0.1006E+01, 0.1006E+01, 0.1007E+01,& - 0.1007E+01, 0.1007E+01, 0.1007E+01, 0.1008E+01,& - 0.1008E+01, 0.1008E+01, 0.1008E+01, 0.1009E+01,& - 0.1009E+01, 0.1009E+01, 0.1009E+01, 0.1010E+01,& - 0.1010E+01, 0.1010E+01, 0.1010E+01, 0.1011E+01,& - 0.1011E+01, 0.1011E+01, 0.1011E+01, 0.1012E+01,& - 0.1012E+01, 0.1012E+01, 0.1012E+01, 0.1013E+01,& - 0.1013E+01, 0.1013E+01, 0.1013E+01, 0.1014E+01,& - 0.1014E+01, 0.1014E+01, 0.1015E+01, 0.1015E+01,& - 0.1015E+01, 0.1015E+01, 0.1016E+01, 0.1016E+01,& - 0.1016E+01, 0.1016E+01, 0.1017E+01, 0.1017E+01,& - 0.1017E+01, 0.1017E+01, 0.1018E+01, 0.1018E+01,& - 0.1018E+01, 0.1018E+01, 0.1019E+01, 0.1019E+01,& - 0.1019E+01, 0.1019E+01, 0.1020E+01, 0.1020E+01,& - 0.1020E+01, 0.1020E+01, 0.1021E+01, 0.1021E+01,& - 0.1021E+01, 0.1022E+01, 0.1022E+01, 0.1022E+01,& - 0.1022E+01, 0.1023E+01, 0.1023E+01, 0.1023E+01,& - 0.1023E+01, 0.1024E+01, 0.1024E+01, 0.1024E+01,& - 0.1024E+01, 0.1025E+01, 0.1025E+01, 0.1025E+01,& - 0.1026E+01, 0.1026E+01, 0.1026E+01, 0.1026E+01,& - 0.1027E+01, 0.1027E+01, 0.1027E+01, 0.1027E+01,& - 0.1028E+01, 0.1028E+01, 0.1028E+01, 0.1028E+01,& - 0.1029E+01, 0.1029E+01, 0.1029E+01, 0.1030E+01,& - 0.1030E+01, 0.1030E+01, 0.1030E+01, 0.1031E+01,& - 0.1031E+01, 0.1031E+01, 0.1031E+01, 0.1032E+01,& - 0.1032E+01, 0.1032E+01, 0.1033E+01, 0.1033E+01,& - 0.1033E+01, 0.1033E+01, 0.1034E+01, 0.1034E+01,& - 0.1034E+01, 0.1034E+01, 0.1035E+01, 0.1035E+01,& - 0.1035E+01, 0.1036E+01, 0.1036E+01, 0.1036E+01,& - 0.1036E+01, 0.1037E+01, 0.1037E+01, 0.1037E+01,& - 0.1037E+01, 0.1038E+01, 0.1038E+01, 0.1038E+01,& - 0.1039E+01, 0.1039E+01, 0.1039E+01, 0.1039E+01,& - 0.1040E+01, 0.1040E+01, 0.1040E+01, 0.1041E+01,& - 0.1041E+01, 0.1041E+01, 0.1041E+01, 0.1042E+01,& - 0.1042E+01, 0.1042E+01, 0.1043E+01, 0.1043E+01,& - 0.1043E+01, 0.1043E+01, 0.1044E+01, 0.1044E+01,& - 0.1044E+01, 0.1045E+01, 0.1045E+01, 0.1045E+01,& - 0.1045E+01, 0.1046E+01, 0.1046E+01, 0.1046E+01,& - 0.1047E+01, 0.1047E+01, 0.1047E+01, 0.1047E+01,& - 0.1048E+01, 0.1048E+01, 0.1048E+01, 0.1049E+01,& - 0.1049E+01, 0.1049E+01, 0.1050E+01, 0.1050E+01,& - 0.1050E+01, 0.1050E+01, 0.1051E+01, 0.1051E+01,& - 0.1051E+01, 0.1052E+01, 0.1052E+01, 0.1052E+01,& - 0.1053E+01, 0.1053E+01, 0.1053E+01, 0.1053E+01,& - 0.1054E+01, 0.1054E+01, 0.1054E+01, 0.1055E+01,& - 0.1055E+01, 0.1055E+01, 0.1056E+01, 0.1056E+01,& - 0.1056E+01, 0.1057E+01, 0.1057E+01, 0.1057E+01,& - 0.1057E+01, 0.1058E+01, 0.1058E+01, 0.1058E+01,& - 0.1059E+01, 0.1059E+01, 0.1059E+01, 0.1060E+01,& - 0.1060E+01, 0.1060E+01, 0.1061E+01, 0.1061E+01,& - 0.1061E+01, 0.1062E+01, 0.1062E+01, 0.1062E+01,& - 0.1063E+01, 0.1063E+01, 0.1063E+01, 0.1063E+01,& - 0.1064E+01, 0.1064E+01, 0.1064E+01, 0.1065E+01,& - 0.1065E+01, 0.1065E+01, 0.1066E+01, 0.1066E+01,& - 0.1066E+01, 0.1067E+01, 0.1067E+01, 0.1067E+01,& - 0.1068E+01, 0.1068E+01, 0.1068E+01, 0.1069E+01,& - 0.1069E+01, 0.1069E+01, 0.1070E+01, 0.1070E+01,& - 0.1070E+01, 0.1071E+01, 0.1071E+01, 0.1071E+01,& - 0.1072E+01, 0.1072E+01, 0.1073E+01, 0.1073E+01,& - 0.1073E+01, 0.1074E+01, 0.1074E+01, 0.1074E+01,& - 0.1075E+01, 0.1075E+01, 0.1075E+01, 0.1076E+01,& - 0.1076E+01, 0.1076E+01, 0.1077E+01, 0.1077E+01,& - 0.1077E+01, 0.1078E+01, 0.1078E+01, 0.1079E+01,& - 0.1079E+01, 0.1079E+01, 0.1080E+01, 0.1080E+01,& - 0.1080E+01, 0.1081E+01, 0.1081E+01, 0.1081E+01,& - 0.1082E+01, 0.1082E+01, 0.1083E+01, 0.1083E+01,& - 0.1083E+01, 0.1084E+01, 0.1084E+01, 0.1084E+01,& - 0.1085E+01, 0.1085E+01, 0.1086E+01, 0.1086E+01,& - 0.1086E+01, 0.1087E+01, 0.1087E+01, 0.1088E+01,& - 0.1088E+01, 0.1088E+01, 0.1089E+01, 0.1089E+01,& - 0.1090E+01, 0.1090E+01, 0.1090E+01, 0.1091E+01,& - 0.1091E+01, 0.1092E+01, 0.1092E+01, 0.1092E+01,& - 0.1093E+01, 0.1093E+01, 0.1094E+01, 0.1094E+01,& - 0.1094E+01, 0.1095E+01, 0.1095E+01, 0.1096E+01,& - 0.1096E+01, 0.1097E+01, 0.1097E+01, 0.1097E+01,& - 0.1098E+01, 0.1098E+01, 0.1099E+01, 0.1099E+01,& - 0.1100E+01, 0.1100E+01, 0.1100E+01, 0.1101E+01,& - 0.1101E+01, 0.1102E+01, 0.1102E+01, 0.1103E+01,& - 0.1103E+01, 0.1104E+01, 0.1104E+01, 0.1105E+01,& - 0.1105E+01, 0.1106E+01, 0.1106E+01, 0.1106E+01,& - 0.1107E+01, 0.1107E+01, 0.1108E+01, 0.1108E+01,& - 0.1109E+01, 0.1109E+01, 0.1110E+01, 0.1110E+01,& - 0.1111E+01, 0.1111E+01, 0.1112E+01, 0.1112E+01,& - 0.1113E+01, 0.1113E+01, 0.1114E+01, 0.1114E+01,& - 0.1115E+01, 0.1115E+01, 0.1116E+01, 0.1116E+01,& - 0.1117E+01, 0.1117E+01, 0.1118E+01, 0.1119E+01,& - 0.1119E+01, 0.1120E+01, 0.1120E+01, 0.1121E+01,& - 0.1121E+01, 0.1122E+01, 0.1122E+01, 0.1123E+01,& - 0.1124E+01, 0.1124E+01, 0.1125E+01, 0.1125E+01,& - 0.1126E+01, 0.1126E+01, 0.1127E+01, 0.1128E+01,& - 0.1128E+01, 0.1129E+01, 0.1129E+01, 0.1130E+01,& - 0.1131E+01, 0.1131E+01, 0.1132E+01, 0.1133E+01,& - 0.1133E+01, 0.1134E+01, 0.1134E+01, 0.1135E+01,& - 0.1136E+01, 0.1136E+01, 0.1137E+01, 0.1138E+01,& - 0.1139E+01, 0.1139E+01, 0.1140E+01, 0.1141E+01,& - 0.1141E+01, 0.1142E+01, 0.1143E+01, 0.1143E+01,& - 0.1144E+01, 0.1145E+01, 0.1146E+01, 0.1147E+01,& - 0.1147E+01, 0.1148E+01, 0.1149E+01, 0.1150E+01,& - 0.1150E+01, 0.1151E+01, 0.1152E+01, 0.1153E+01,& - 0.1154E+01, 0.1155E+01, 0.1155E+01, 0.1156E+01,& - 0.1157E+01, 0.1158E+01, 0.1159E+01, 0.1160E+01,& - 0.1161E+01, 0.1162E+01, 0.1163E+01, 0.1164E+01,& - 0.1165E+01, 0.1166E+01, 0.1167E+01, 0.1168E+01,& - 0.1169E+01, 0.1170E+01, 0.1171E+01, 0.1172E+01,& - 0.1173E+01, 0.1174E+01, 0.1176E+01, 0.1177E+01,& - 0.1178E+01, 0.1179E+01, 0.1180E+01, 0.1182E+01,& - 0.1183E+01, 0.1184E+01, 0.1186E+01, 0.1187E+01,& - 0.1189E+01, 0.1190E+01, 0.1192E+01, 0.1193E+01,& - 0.1195E+01, 0.1196E+01, 0.1198E+01, 0.1200E+01,& - 0.1201E+01, 0.1203E+01, 0.1205E+01, 0.1207E+01,& - 0.1209E+01, 0.1211E+01, 0.1214E+01, 0.1216E+01,& - 0.1218E+01, 0.1221E+01, 0.1223E+01, 0.1226E+01,& - 0.1229E+01, 0.1232E+01, 0.1236E+01, 0.1239E+01,& - 0.1243E+01, 0.1247E+01, 0.1252E+01, 0.1257E+01,& - 0.1262E+01, 0.1269E+01, 0.1276E+01, 0.1285E+01,& - 0.1000E-04, 0.6577E+00, 0.6779E+00, 0.6905E+00/) - xcw(:, 2) = (/& - 0.1000E-04, 0.6577E+00, 0.6779E+00, 0.6905E+00,& - 0.6999E+00, 0.7074E+00, 0.7137E+00, 0.7192E+00,& - 0.7241E+00, 0.7284E+00, 0.7324E+00, 0.7360E+00,& - 0.7394E+00, 0.7426E+00, 0.7455E+00, 0.7483E+00,& - 0.7510E+00, 0.7535E+00, 0.7559E+00, 0.7582E+00,& - 0.7604E+00, 0.7625E+00, 0.7645E+00, 0.7665E+00,& - 0.7683E+00, 0.7702E+00, 0.7719E+00, 0.7736E+00,& - 0.7753E+00, 0.7769E+00, 0.7785E+00, 0.7800E+00,& - 0.7815E+00, 0.7830E+00, 0.7844E+00, 0.7858E+00,& - 0.7872E+00, 0.7885E+00, 0.7898E+00, 0.7911E+00,& - 0.7923E+00, 0.7936E+00, 0.7948E+00, 0.7960E+00,& - 0.7971E+00, 0.7983E+00, 0.7994E+00, 0.8005E+00,& - 0.8016E+00, 0.8026E+00, 0.8037E+00, 0.8047E+00,& - 0.8058E+00, 0.8068E+00, 0.8078E+00, 0.8088E+00,& - 0.8097E+00, 0.8107E+00, 0.8116E+00, 0.8126E+00,& - 0.8135E+00, 0.8144E+00, 0.8153E+00, 0.8162E+00,& - 0.8170E+00, 0.8179E+00, 0.8188E+00, 0.8196E+00,& - 0.8205E+00, 0.8213E+00, 0.8221E+00, 0.8229E+00,& - 0.8237E+00, 0.8245E+00, 0.8253E+00, 0.8261E+00,& - 0.8269E+00, 0.8276E+00, 0.8284E+00, 0.8291E+00,& - 0.8299E+00, 0.8306E+00, 0.8314E+00, 0.8321E+00,& - 0.8328E+00, 0.8335E+00, 0.8342E+00, 0.8349E+00,& - 0.8356E+00, 0.8363E+00, 0.8370E+00, 0.8377E+00,& - 0.8384E+00, 0.8390E+00, 0.8397E+00, 0.8404E+00,& - 0.8410E+00, 0.8417E+00, 0.8423E+00, 0.8429E+00,& - 0.8436E+00, 0.8442E+00, 0.8449E+00, 0.8455E+00,& - 0.8461E+00, 0.8467E+00, 0.8473E+00, 0.8479E+00,& - 0.8485E+00, 0.8491E+00, 0.8497E+00, 0.8503E+00,& - 0.8509E+00, 0.8515E+00, 0.8521E+00, 0.8527E+00,& - 0.8533E+00, 0.8538E+00, 0.8544E+00, 0.8550E+00,& - 0.8555E+00, 0.8561E+00, 0.8567E+00, 0.8572E+00,& - 0.8578E+00, 0.8583E+00, 0.8589E+00, 0.8594E+00,& - 0.8599E+00, 0.8605E+00, 0.8610E+00, 0.8616E+00,& - 0.8621E+00, 0.8626E+00, 0.8631E+00, 0.8637E+00,& - 0.8642E+00, 0.8647E+00, 0.8652E+00, 0.8657E+00,& - 0.8662E+00, 0.8668E+00, 0.8673E+00, 0.8678E+00,& - 0.8683E+00, 0.8688E+00, 0.8693E+00, 0.8698E+00,& - 0.8703E+00, 0.8708E+00, 0.8712E+00, 0.8717E+00,& - 0.8722E+00, 0.8727E+00, 0.8732E+00, 0.8737E+00,& - 0.8741E+00, 0.8746E+00, 0.8751E+00, 0.8756E+00,& - 0.8760E+00, 0.8765E+00, 0.8770E+00, 0.8774E+00,& - 0.8779E+00, 0.8784E+00, 0.8788E+00, 0.8793E+00,& - 0.8797E+00, 0.8802E+00, 0.8807E+00, 0.8811E+00,& - 0.8816E+00, 0.8820E+00, 0.8825E+00, 0.8829E+00,& - 0.8833E+00, 0.8838E+00, 0.8842E+00, 0.8847E+00,& - 0.8851E+00, 0.8856E+00, 0.8860E+00, 0.8864E+00,& - 0.8869E+00, 0.8873E+00, 0.8877E+00, 0.8882E+00,& - 0.8886E+00, 0.8890E+00, 0.8895E+00, 0.8899E+00,& - 0.8903E+00, 0.8907E+00, 0.8911E+00, 0.8916E+00,& - 0.8920E+00, 0.8924E+00, 0.8928E+00, 0.8932E+00,& - 0.8937E+00, 0.8941E+00, 0.8945E+00, 0.8949E+00,& - 0.8953E+00, 0.8957E+00, 0.8961E+00, 0.8965E+00,& - 0.8969E+00, 0.8973E+00, 0.8977E+00, 0.8981E+00,& - 0.8985E+00, 0.8989E+00, 0.8993E+00, 0.8998E+00,& - 0.9001E+00, 0.9005E+00, 0.9009E+00, 0.9013E+00,& - 0.9017E+00, 0.9021E+00, 0.9025E+00, 0.9029E+00,& - 0.9033E+00, 0.9037E+00, 0.9041E+00, 0.9045E+00,& - 0.9049E+00, 0.9052E+00, 0.9056E+00, 0.9060E+00,& - 0.9064E+00, 0.9068E+00, 0.9072E+00, 0.9075E+00,& - 0.9079E+00, 0.9083E+00, 0.9087E+00, 0.9091E+00,& - 0.9094E+00, 0.9098E+00, 0.9102E+00, 0.9106E+00,& - 0.9110E+00, 0.9113E+00, 0.9117E+00, 0.9121E+00,& - 0.9124E+00, 0.9128E+00, 0.9132E+00, 0.9136E+00,& - 0.9139E+00, 0.9143E+00, 0.9147E+00, 0.9150E+00,& - 0.9154E+00, 0.9158E+00, 0.9161E+00, 0.9165E+00,& - 0.9169E+00, 0.9172E+00, 0.9176E+00, 0.9179E+00,& - 0.9183E+00, 0.9187E+00, 0.9190E+00, 0.9194E+00,& - 0.9198E+00, 0.9201E+00, 0.9205E+00, 0.9208E+00,& - 0.9212E+00, 0.9215E+00, 0.9219E+00, 0.9222E+00,& - 0.9226E+00, 0.9230E+00, 0.9233E+00, 0.9237E+00,& - 0.9240E+00, 0.9244E+00, 0.9247E+00, 0.9251E+00,& - 0.9254E+00, 0.9258E+00, 0.9261E+00, 0.9265E+00,& - 0.9268E+00, 0.9272E+00, 0.9275E+00, 0.9279E+00,& - 0.9282E+00, 0.9286E+00, 0.9289E+00, 0.9293E+00,& - 0.9296E+00, 0.9299E+00, 0.9303E+00, 0.9306E+00,& - 0.9310E+00, 0.9313E+00, 0.9317E+00, 0.9320E+00,& - 0.9323E+00, 0.9327E+00, 0.9330E+00, 0.9334E+00,& - 0.9337E+00, 0.9340E+00, 0.9344E+00, 0.9347E+00,& - 0.9351E+00, 0.9354E+00, 0.9357E+00, 0.9361E+00,& - 0.9364E+00, 0.9367E+00, 0.9371E+00, 0.9374E+00,& - 0.9378E+00, 0.9381E+00, 0.9384E+00, 0.9388E+00,& - 0.9391E+00, 0.9394E+00, 0.9398E+00, 0.9401E+00,& - 0.9404E+00, 0.9408E+00, 0.9411E+00, 0.9414E+00,& - 0.9418E+00, 0.9421E+00, 0.9424E+00, 0.9427E+00,& - 0.9431E+00, 0.9434E+00, 0.9437E+00, 0.9441E+00,& - 0.9444E+00, 0.9447E+00, 0.9450E+00, 0.9454E+00,& - 0.9457E+00, 0.9460E+00, 0.9464E+00, 0.9467E+00,& - 0.9470E+00, 0.9473E+00, 0.9477E+00, 0.9480E+00,& - 0.9483E+00, 0.9486E+00, 0.9490E+00, 0.9493E+00,& - 0.9496E+00, 0.9499E+00, 0.9503E+00, 0.9506E+00,& - 0.9509E+00, 0.9512E+00, 0.9516E+00, 0.9519E+00,& - 0.9522E+00, 0.9525E+00, 0.9528E+00, 0.9532E+00,& - 0.9535E+00, 0.9538E+00, 0.9541E+00, 0.9545E+00,& - 0.9548E+00, 0.9551E+00, 0.9554E+00, 0.9557E+00,& - 0.9561E+00, 0.9564E+00, 0.9567E+00, 0.9570E+00,& - 0.9573E+00, 0.9577E+00, 0.9580E+00, 0.9583E+00,& - 0.9586E+00, 0.9589E+00, 0.9592E+00, 0.9596E+00,& - 0.9599E+00, 0.9602E+00, 0.9605E+00, 0.9608E+00,& - 0.9612E+00, 0.9615E+00, 0.9618E+00, 0.9621E+00,& - 0.9624E+00, 0.9627E+00, 0.9631E+00, 0.9634E+00,& - 0.9637E+00, 0.9640E+00, 0.9643E+00, 0.9646E+00,& - 0.9649E+00, 0.9653E+00, 0.9656E+00, 0.9659E+00,& - 0.9662E+00, 0.9665E+00, 0.9668E+00, 0.9672E+00,& - 0.9675E+00, 0.9678E+00, 0.9681E+00, 0.9684E+00,& - 0.9687E+00, 0.9690E+00, 0.9694E+00, 0.9697E+00,& - 0.9700E+00, 0.9703E+00, 0.9706E+00, 0.9709E+00,& - 0.9712E+00, 0.9715E+00, 0.9719E+00, 0.9722E+00,& - 0.9725E+00, 0.9728E+00, 0.9731E+00, 0.9734E+00,& - 0.9737E+00, 0.9741E+00, 0.9744E+00, 0.9747E+00,& - 0.9750E+00, 0.9753E+00, 0.9756E+00, 0.9759E+00,& - 0.9762E+00, 0.9766E+00, 0.9769E+00, 0.9772E+00,& - 0.9775E+00, 0.9778E+00, 0.9781E+00, 0.9784E+00,& - 0.9787E+00, 0.9790E+00, 0.9794E+00, 0.9797E+00,& - 0.9800E+00, 0.9803E+00, 0.9806E+00, 0.9809E+00,& - 0.9812E+00, 0.9815E+00, 0.9819E+00, 0.9822E+00,& - 0.9825E+00, 0.9828E+00, 0.9831E+00, 0.9834E+00,& - 0.9837E+00, 0.9840E+00, 0.9843E+00, 0.9847E+00,& - 0.9850E+00, 0.9853E+00, 0.9856E+00, 0.9859E+00,& - 0.9862E+00, 0.9865E+00, 0.9868E+00, 0.9872E+00,& - 0.9875E+00, 0.9878E+00, 0.9881E+00, 0.9884E+00,& - 0.9887E+00, 0.9890E+00, 0.9893E+00, 0.9896E+00,& - 0.9900E+00, 0.9903E+00, 0.9906E+00, 0.9909E+00,& - 0.9912E+00, 0.9915E+00, 0.9918E+00, 0.9921E+00,& - 0.9925E+00, 0.9928E+00, 0.9931E+00, 0.9934E+00,& - 0.9937E+00, 0.9940E+00, 0.9943E+00, 0.9946E+00,& - 0.9950E+00, 0.9953E+00, 0.9956E+00, 0.9959E+00,& - 0.9962E+00, 0.9965E+00, 0.9968E+00, 0.9971E+00,& - 0.9975E+00, 0.9978E+00, 0.9981E+00, 0.9984E+00,& - 0.9987E+00, 0.9990E+00, 0.9993E+00, 0.9997E+00,& - 0.1000E+01, 0.1000E+01, 0.1001E+01, 0.1001E+01,& - 0.1001E+01, 0.1002E+01, 0.1002E+01, 0.1002E+01,& - 0.1002E+01, 0.1003E+01, 0.1003E+01, 0.1003E+01,& - 0.1004E+01, 0.1004E+01, 0.1004E+01, 0.1005E+01,& - 0.1005E+01, 0.1005E+01, 0.1006E+01, 0.1006E+01,& - 0.1006E+01, 0.1007E+01, 0.1007E+01, 0.1007E+01,& - 0.1008E+01, 0.1008E+01, 0.1008E+01, 0.1008E+01,& - 0.1009E+01, 0.1009E+01, 0.1009E+01, 0.1010E+01,& - 0.1010E+01, 0.1010E+01, 0.1011E+01, 0.1011E+01,& - 0.1011E+01, 0.1012E+01, 0.1012E+01, 0.1012E+01,& - 0.1013E+01, 0.1013E+01, 0.1013E+01, 0.1014E+01,& - 0.1014E+01, 0.1014E+01, 0.1015E+01, 0.1015E+01,& - 0.1015E+01, 0.1016E+01, 0.1016E+01, 0.1016E+01,& - 0.1016E+01, 0.1017E+01, 0.1017E+01, 0.1017E+01,& - 0.1018E+01, 0.1018E+01, 0.1018E+01, 0.1019E+01,& - 0.1019E+01, 0.1019E+01, 0.1020E+01, 0.1020E+01,& - 0.1020E+01, 0.1021E+01, 0.1021E+01, 0.1021E+01,& - 0.1022E+01, 0.1022E+01, 0.1022E+01, 0.1023E+01,& - 0.1023E+01, 0.1023E+01, 0.1024E+01, 0.1024E+01,& - 0.1024E+01, 0.1025E+01, 0.1025E+01, 0.1025E+01,& - 0.1026E+01, 0.1026E+01, 0.1026E+01, 0.1027E+01,& - 0.1027E+01, 0.1027E+01, 0.1028E+01, 0.1028E+01,& - 0.1028E+01, 0.1029E+01, 0.1029E+01, 0.1029E+01,& - 0.1030E+01, 0.1030E+01, 0.1030E+01, 0.1031E+01,& - 0.1031E+01, 0.1031E+01, 0.1032E+01, 0.1032E+01,& - 0.1032E+01, 0.1033E+01, 0.1033E+01, 0.1033E+01,& - 0.1034E+01, 0.1034E+01, 0.1034E+01, 0.1035E+01,& - 0.1035E+01, 0.1035E+01, 0.1036E+01, 0.1036E+01,& - 0.1036E+01, 0.1037E+01, 0.1037E+01, 0.1037E+01,& - 0.1038E+01, 0.1038E+01, 0.1038E+01, 0.1039E+01,& - 0.1039E+01, 0.1039E+01, 0.1040E+01, 0.1040E+01,& - 0.1040E+01, 0.1041E+01, 0.1041E+01, 0.1041E+01,& - 0.1042E+01, 0.1042E+01, 0.1042E+01, 0.1043E+01,& - 0.1043E+01, 0.1043E+01, 0.1044E+01, 0.1044E+01,& - 0.1045E+01, 0.1045E+01, 0.1045E+01, 0.1046E+01,& - 0.1046E+01, 0.1046E+01, 0.1047E+01, 0.1047E+01,& - 0.1047E+01, 0.1048E+01, 0.1048E+01, 0.1048E+01,& - 0.1049E+01, 0.1049E+01, 0.1049E+01, 0.1050E+01,& - 0.1050E+01, 0.1051E+01, 0.1051E+01, 0.1051E+01,& - 0.1052E+01, 0.1052E+01, 0.1052E+01, 0.1053E+01,& - 0.1053E+01, 0.1053E+01, 0.1054E+01, 0.1054E+01,& - 0.1054E+01, 0.1055E+01, 0.1055E+01, 0.1056E+01,& - 0.1056E+01, 0.1056E+01, 0.1057E+01, 0.1057E+01,& - 0.1057E+01, 0.1058E+01, 0.1058E+01, 0.1058E+01,& - 0.1059E+01, 0.1059E+01, 0.1060E+01, 0.1060E+01,& - 0.1060E+01, 0.1061E+01, 0.1061E+01, 0.1061E+01,& - 0.1062E+01, 0.1062E+01, 0.1063E+01, 0.1063E+01,& - 0.1063E+01, 0.1064E+01, 0.1064E+01, 0.1064E+01,& - 0.1065E+01, 0.1065E+01, 0.1066E+01, 0.1066E+01,& - 0.1066E+01, 0.1067E+01, 0.1067E+01, 0.1068E+01,& - 0.1068E+01, 0.1068E+01, 0.1069E+01, 0.1069E+01,& - 0.1069E+01, 0.1070E+01, 0.1070E+01, 0.1071E+01,& - 0.1071E+01, 0.1071E+01, 0.1072E+01, 0.1072E+01,& - 0.1073E+01, 0.1073E+01, 0.1073E+01, 0.1074E+01,& - 0.1074E+01, 0.1075E+01, 0.1075E+01, 0.1075E+01,& - 0.1076E+01, 0.1076E+01, 0.1077E+01, 0.1077E+01,& - 0.1077E+01, 0.1078E+01, 0.1078E+01, 0.1079E+01,& - 0.1079E+01, 0.1079E+01, 0.1080E+01, 0.1080E+01,& - 0.1081E+01, 0.1081E+01, 0.1082E+01, 0.1082E+01,& - 0.1082E+01, 0.1083E+01, 0.1083E+01, 0.1084E+01,& - 0.1084E+01, 0.1084E+01, 0.1085E+01, 0.1085E+01,& - 0.1086E+01, 0.1086E+01, 0.1087E+01, 0.1087E+01,& - 0.1087E+01, 0.1088E+01, 0.1088E+01, 0.1089E+01,& - 0.1089E+01, 0.1090E+01, 0.1090E+01, 0.1091E+01,& - 0.1091E+01, 0.1091E+01, 0.1092E+01, 0.1092E+01,& - 0.1093E+01, 0.1093E+01, 0.1094E+01, 0.1094E+01,& - 0.1095E+01, 0.1095E+01, 0.1095E+01, 0.1096E+01,& - 0.1096E+01, 0.1097E+01, 0.1097E+01, 0.1098E+01,& - 0.1098E+01, 0.1099E+01, 0.1099E+01, 0.1100E+01,& - 0.1100E+01, 0.1100E+01, 0.1101E+01, 0.1101E+01,& - 0.1102E+01, 0.1102E+01, 0.1103E+01, 0.1103E+01,& - 0.1104E+01, 0.1104E+01, 0.1105E+01, 0.1105E+01,& - 0.1106E+01, 0.1106E+01, 0.1107E+01, 0.1107E+01,& - 0.1108E+01, 0.1108E+01, 0.1109E+01, 0.1109E+01,& - 0.1110E+01, 0.1110E+01, 0.1111E+01, 0.1111E+01,& - 0.1112E+01, 0.1112E+01, 0.1113E+01, 0.1113E+01,& - 0.1114E+01, 0.1114E+01, 0.1115E+01, 0.1115E+01,& - 0.1116E+01, 0.1116E+01, 0.1117E+01, 0.1117E+01,& - 0.1118E+01, 0.1118E+01, 0.1119E+01, 0.1119E+01,& - 0.1120E+01, 0.1121E+01, 0.1121E+01, 0.1122E+01,& - 0.1122E+01, 0.1123E+01, 0.1123E+01, 0.1124E+01,& - 0.1124E+01, 0.1125E+01, 0.1126E+01, 0.1126E+01,& - 0.1127E+01, 0.1127E+01, 0.1128E+01, 0.1128E+01,& - 0.1129E+01, 0.1130E+01, 0.1130E+01, 0.1131E+01,& - 0.1131E+01, 0.1132E+01, 0.1132E+01, 0.1133E+01,& - 0.1134E+01, 0.1134E+01, 0.1135E+01, 0.1135E+01,& - 0.1136E+01, 0.1137E+01, 0.1137E+01, 0.1138E+01,& - 0.1139E+01, 0.1139E+01, 0.1140E+01, 0.1140E+01,& - 0.1141E+01, 0.1142E+01, 0.1142E+01, 0.1143E+01,& - 0.1144E+01, 0.1144E+01, 0.1145E+01, 0.1146E+01,& - 0.1146E+01, 0.1147E+01, 0.1148E+01, 0.1148E+01,& - 0.1149E+01, 0.1150E+01, 0.1150E+01, 0.1151E+01,& - 0.1152E+01, 0.1153E+01, 0.1153E+01, 0.1154E+01,& - 0.1155E+01, 0.1155E+01, 0.1156E+01, 0.1157E+01,& - 0.1158E+01, 0.1158E+01, 0.1159E+01, 0.1160E+01,& - 0.1161E+01, 0.1162E+01, 0.1162E+01, 0.1163E+01,& - 0.1164E+01, 0.1165E+01, 0.1165E+01, 0.1166E+01,& - 0.1167E+01, 0.1168E+01, 0.1169E+01, 0.1170E+01,& - 0.1170E+01, 0.1171E+01, 0.1172E+01, 0.1173E+01,& - 0.1174E+01, 0.1175E+01, 0.1176E+01, 0.1177E+01,& - 0.1177E+01, 0.1178E+01, 0.1179E+01, 0.1180E+01,& - 0.1181E+01, 0.1182E+01, 0.1183E+01, 0.1184E+01,& - 0.1185E+01, 0.1186E+01, 0.1187E+01, 0.1188E+01,& - 0.1189E+01, 0.1190E+01, 0.1191E+01, 0.1192E+01,& - 0.1193E+01, 0.1194E+01, 0.1196E+01, 0.1197E+01,& - 0.1198E+01, 0.1199E+01, 0.1200E+01, 0.1201E+01,& - 0.1202E+01, 0.1204E+01, 0.1205E+01, 0.1206E+01,& - 0.1207E+01, 0.1209E+01, 0.1210E+01, 0.1211E+01,& - 0.1213E+01, 0.1214E+01, 0.1215E+01, 0.1217E+01,& - 0.1218E+01, 0.1220E+01, 0.1221E+01, 0.1223E+01,& - 0.1224E+01, 0.1226E+01, 0.1227E+01, 0.1229E+01,& - 0.1231E+01, 0.1233E+01, 0.1234E+01, 0.1236E+01,& - 0.1238E+01, 0.1240E+01, 0.1242E+01, 0.1244E+01,& - 0.1246E+01, 0.1248E+01, 0.1250E+01, 0.1252E+01,& - 0.1255E+01, 0.1257E+01, 0.1259E+01, 0.1262E+01,& - 0.1265E+01, 0.1267E+01, 0.1270E+01, 0.1273E+01,& - 0.1276E+01, 0.1279E+01, 0.1283E+01, 0.1286E+01,& - 0.1290E+01, 0.1294E+01, 0.1299E+01, 0.1303E+01,& - 0.1308E+01, 0.1313E+01, 0.1319E+01, 0.1326E+01,& - 0.1333E+01, 0.1341E+01, 0.1351E+01, 0.1363E+01,& - 0.1000E-04, 0.5997E+00, 0.6224E+00, 0.6367E+00/) - xcw(:, 3) = (/& - 0.1000E-04, 0.5997E+00, 0.6224E+00, 0.6367E+00,& - 0.6473E+00, 0.6559E+00, 0.6631E+00, 0.6694E+00,& - 0.6749E+00, 0.6799E+00, 0.6845E+00, 0.6886E+00,& - 0.6925E+00, 0.6961E+00, 0.6996E+00, 0.7028E+00,& - 0.7058E+00, 0.7087E+00, 0.7115E+00, 0.7141E+00,& - 0.7166E+00, 0.7190E+00, 0.7214E+00, 0.7236E+00,& - 0.7258E+00, 0.7279E+00, 0.7300E+00, 0.7319E+00,& - 0.7339E+00, 0.7357E+00, 0.7375E+00, 0.7393E+00,& - 0.7410E+00, 0.7427E+00, 0.7444E+00, 0.7460E+00,& - 0.7476E+00, 0.7491E+00, 0.7506E+00, 0.7521E+00,& - 0.7536E+00, 0.7550E+00, 0.7564E+00, 0.7578E+00,& - 0.7591E+00, 0.7604E+00, 0.7617E+00, 0.7630E+00,& - 0.7643E+00, 0.7655E+00, 0.7668E+00, 0.7680E+00,& - 0.7692E+00, 0.7703E+00, 0.7715E+00, 0.7726E+00,& - 0.7738E+00, 0.7749E+00, 0.7760E+00, 0.7771E+00,& - 0.7781E+00, 0.7792E+00, 0.7802E+00, 0.7813E+00,& - 0.7823E+00, 0.7833E+00, 0.7843E+00, 0.7853E+00,& - 0.7863E+00, 0.7872E+00, 0.7882E+00, 0.7891E+00,& - 0.7901E+00, 0.7910E+00, 0.7919E+00, 0.7928E+00,& - 0.7937E+00, 0.7946E+00, 0.7955E+00, 0.7964E+00,& - 0.7973E+00, 0.7981E+00, 0.7990E+00, 0.7998E+00,& - 0.8007E+00, 0.8015E+00, 0.8023E+00, 0.8032E+00,& - 0.8040E+00, 0.8048E+00, 0.8056E+00, 0.8064E+00,& - 0.8072E+00, 0.8080E+00, 0.8087E+00, 0.8095E+00,& - 0.8103E+00, 0.8110E+00, 0.8118E+00, 0.8126E+00,& - 0.8133E+00, 0.8140E+00, 0.8148E+00, 0.8155E+00,& - 0.8162E+00, 0.8170E+00, 0.8177E+00, 0.8184E+00,& - 0.8191E+00, 0.8198E+00, 0.8205E+00, 0.8212E+00,& - 0.8219E+00, 0.8226E+00, 0.8233E+00, 0.8240E+00,& - 0.8246E+00, 0.8253E+00, 0.8260E+00, 0.8266E+00,& - 0.8273E+00, 0.8280E+00, 0.8286E+00, 0.8293E+00,& - 0.8299E+00, 0.8306E+00, 0.8312E+00, 0.8318E+00,& - 0.8325E+00, 0.8331E+00, 0.8337E+00, 0.8344E+00,& - 0.8350E+00, 0.8356E+00, 0.8362E+00, 0.8368E+00,& - 0.8375E+00, 0.8381E+00, 0.8387E+00, 0.8393E+00,& - 0.8399E+00, 0.8405E+00, 0.8411E+00, 0.8417E+00,& - 0.8423E+00, 0.8429E+00, 0.8434E+00, 0.8440E+00,& - 0.8446E+00, 0.8452E+00, 0.8458E+00, 0.8463E+00,& - 0.8469E+00, 0.8475E+00, 0.8480E+00, 0.8486E+00,& - 0.8492E+00, 0.8497E+00, 0.8503E+00, 0.8508E+00,& - 0.8514E+00, 0.8520E+00, 0.8525E+00, 0.8531E+00,& - 0.8536E+00, 0.8541E+00, 0.8547E+00, 0.8552E+00,& - 0.8558E+00, 0.8563E+00, 0.8568E+00, 0.8574E+00,& - 0.8579E+00, 0.8584E+00, 0.8590E+00, 0.8595E+00,& - 0.8600E+00, 0.8605E+00, 0.8611E+00, 0.8616E+00,& - 0.8621E+00, 0.8626E+00, 0.8631E+00, 0.8637E+00,& - 0.8642E+00, 0.8647E+00, 0.8652E+00, 0.8657E+00,& - 0.8662E+00, 0.8667E+00, 0.8672E+00, 0.8677E+00,& - 0.8682E+00, 0.8687E+00, 0.8692E+00, 0.8697E+00,& - 0.8702E+00, 0.8707E+00, 0.8712E+00, 0.8717E+00,& - 0.8722E+00, 0.8727E+00, 0.8731E+00, 0.8736E+00,& - 0.8741E+00, 0.8746E+00, 0.8751E+00, 0.8756E+00,& - 0.8760E+00, 0.8765E+00, 0.8770E+00, 0.8775E+00,& - 0.8780E+00, 0.8784E+00, 0.8789E+00, 0.8794E+00,& - 0.8798E+00, 0.8803E+00, 0.8808E+00, 0.8813E+00,& - 0.8817E+00, 0.8822E+00, 0.8826E+00, 0.8831E+00,& - 0.8836E+00, 0.8840E+00, 0.8845E+00, 0.8850E+00,& - 0.8854E+00, 0.8859E+00, 0.8863E+00, 0.8868E+00,& - 0.8872E+00, 0.8877E+00, 0.8881E+00, 0.8886E+00,& - 0.8890E+00, 0.8895E+00, 0.8899E+00, 0.8904E+00,& - 0.8908E+00, 0.8913E+00, 0.8917E+00, 0.8922E+00,& - 0.8926E+00, 0.8931E+00, 0.8935E+00, 0.8939E+00,& - 0.8944E+00, 0.8948E+00, 0.8953E+00, 0.8957E+00,& - 0.8961E+00, 0.8966E+00, 0.8970E+00, 0.8975E+00,& - 0.8979E+00, 0.8983E+00, 0.8988E+00, 0.8992E+00,& - 0.8996E+00, 0.9001E+00, 0.9005E+00, 0.9009E+00,& - 0.9013E+00, 0.9018E+00, 0.9022E+00, 0.9026E+00,& - 0.9030E+00, 0.9035E+00, 0.9039E+00, 0.9043E+00,& - 0.9047E+00, 0.9052E+00, 0.9056E+00, 0.9060E+00,& - 0.9064E+00, 0.9069E+00, 0.9073E+00, 0.9077E+00,& - 0.9081E+00, 0.9085E+00, 0.9089E+00, 0.9094E+00,& - 0.9098E+00, 0.9102E+00, 0.9106E+00, 0.9110E+00,& - 0.9114E+00, 0.9119E+00, 0.9123E+00, 0.9127E+00,& - 0.9131E+00, 0.9135E+00, 0.9139E+00, 0.9143E+00,& - 0.9147E+00, 0.9151E+00, 0.9155E+00, 0.9160E+00,& - 0.9164E+00, 0.9168E+00, 0.9172E+00, 0.9176E+00,& - 0.9180E+00, 0.9184E+00, 0.9188E+00, 0.9192E+00,& - 0.9196E+00, 0.9200E+00, 0.9204E+00, 0.9208E+00,& - 0.9212E+00, 0.9216E+00, 0.9220E+00, 0.9224E+00,& - 0.9228E+00, 0.9232E+00, 0.9236E+00, 0.9240E+00,& - 0.9244E+00, 0.9248E+00, 0.9252E+00, 0.9256E+00,& - 0.9260E+00, 0.9264E+00, 0.9268E+00, 0.9272E+00,& - 0.9276E+00, 0.9280E+00, 0.9284E+00, 0.9288E+00,& - 0.9292E+00, 0.9296E+00, 0.9300E+00, 0.9304E+00,& - 0.9307E+00, 0.9311E+00, 0.9315E+00, 0.9319E+00,& - 0.9323E+00, 0.9327E+00, 0.9331E+00, 0.9335E+00,& - 0.9339E+00, 0.9343E+00, 0.9347E+00, 0.9350E+00,& - 0.9354E+00, 0.9358E+00, 0.9362E+00, 0.9366E+00,& - 0.9370E+00, 0.9374E+00, 0.9378E+00, 0.9381E+00,& - 0.9385E+00, 0.9389E+00, 0.9393E+00, 0.9397E+00,& - 0.9401E+00, 0.9405E+00, 0.9408E+00, 0.9412E+00,& - 0.9416E+00, 0.9420E+00, 0.9424E+00, 0.9428E+00,& - 0.9431E+00, 0.9435E+00, 0.9439E+00, 0.9443E+00,& - 0.9447E+00, 0.9451E+00, 0.9454E+00, 0.9458E+00,& - 0.9462E+00, 0.9466E+00, 0.9470E+00, 0.9473E+00,& - 0.9477E+00, 0.9481E+00, 0.9485E+00, 0.9489E+00,& - 0.9492E+00, 0.9496E+00, 0.9500E+00, 0.9504E+00,& - 0.9508E+00, 0.9511E+00, 0.9515E+00, 0.9519E+00,& - 0.9523E+00, 0.9527E+00, 0.9530E+00, 0.9534E+00,& - 0.9538E+00, 0.9542E+00, 0.9545E+00, 0.9549E+00,& - 0.9553E+00, 0.9557E+00, 0.9561E+00, 0.9564E+00,& - 0.9568E+00, 0.9572E+00, 0.9576E+00, 0.9579E+00,& - 0.9583E+00, 0.9587E+00, 0.9591E+00, 0.9594E+00,& - 0.9598E+00, 0.9602E+00, 0.9606E+00, 0.9609E+00,& - 0.9613E+00, 0.9617E+00, 0.9621E+00, 0.9624E+00,& - 0.9628E+00, 0.9632E+00, 0.9636E+00, 0.9639E+00,& - 0.9643E+00, 0.9647E+00, 0.9651E+00, 0.9654E+00,& - 0.9658E+00, 0.9662E+00, 0.9666E+00, 0.9669E+00,& - 0.9673E+00, 0.9677E+00, 0.9681E+00, 0.9684E+00,& - 0.9688E+00, 0.9692E+00, 0.9696E+00, 0.9699E+00,& - 0.9703E+00, 0.9707E+00, 0.9710E+00, 0.9714E+00,& - 0.9718E+00, 0.9722E+00, 0.9725E+00, 0.9729E+00,& - 0.9733E+00, 0.9737E+00, 0.9740E+00, 0.9744E+00,& - 0.9748E+00, 0.9751E+00, 0.9755E+00, 0.9759E+00,& - 0.9763E+00, 0.9766E+00, 0.9770E+00, 0.9774E+00,& - 0.9778E+00, 0.9781E+00, 0.9785E+00, 0.9789E+00,& - 0.9792E+00, 0.9796E+00, 0.9800E+00, 0.9804E+00,& - 0.9807E+00, 0.9811E+00, 0.9815E+00, 0.9819E+00,& - 0.9822E+00, 0.9826E+00, 0.9830E+00, 0.9834E+00,& - 0.9837E+00, 0.9841E+00, 0.9845E+00, 0.9848E+00,& - 0.9852E+00, 0.9856E+00, 0.9860E+00, 0.9863E+00,& - 0.9867E+00, 0.9871E+00, 0.9875E+00, 0.9878E+00,& - 0.9882E+00, 0.9886E+00, 0.9890E+00, 0.9893E+00,& - 0.9897E+00, 0.9901E+00, 0.9905E+00, 0.9908E+00,& - 0.9912E+00, 0.9916E+00, 0.9919E+00, 0.9923E+00,& - 0.9927E+00, 0.9931E+00, 0.9934E+00, 0.9938E+00,& - 0.9942E+00, 0.9946E+00, 0.9949E+00, 0.9953E+00,& - 0.9957E+00, 0.9961E+00, 0.9964E+00, 0.9968E+00,& - 0.9972E+00, 0.9976E+00, 0.9980E+00, 0.9983E+00,& - 0.9987E+00, 0.9991E+00, 0.9995E+00, 0.9998E+00,& - 0.1000E+01, 0.1001E+01, 0.1001E+01, 0.1001E+01,& - 0.1002E+01, 0.1002E+01, 0.1002E+01, 0.1003E+01,& - 0.1003E+01, 0.1004E+01, 0.1004E+01, 0.1004E+01,& - 0.1005E+01, 0.1005E+01, 0.1006E+01, 0.1006E+01,& - 0.1006E+01, 0.1007E+01, 0.1007E+01, 0.1007E+01,& - 0.1008E+01, 0.1008E+01, 0.1009E+01, 0.1009E+01,& - 0.1009E+01, 0.1010E+01, 0.1010E+01, 0.1010E+01,& - 0.1011E+01, 0.1011E+01, 0.1012E+01, 0.1012E+01,& - 0.1012E+01, 0.1013E+01, 0.1013E+01, 0.1014E+01,& - 0.1014E+01, 0.1014E+01, 0.1015E+01, 0.1015E+01,& - 0.1015E+01, 0.1016E+01, 0.1016E+01, 0.1017E+01,& - 0.1017E+01, 0.1017E+01, 0.1018E+01, 0.1018E+01,& - 0.1019E+01, 0.1019E+01, 0.1019E+01, 0.1020E+01,& - 0.1020E+01, 0.1020E+01, 0.1021E+01, 0.1021E+01,& - 0.1022E+01, 0.1022E+01, 0.1022E+01, 0.1023E+01,& - 0.1023E+01, 0.1024E+01, 0.1024E+01, 0.1024E+01,& - 0.1025E+01, 0.1025E+01, 0.1026E+01, 0.1026E+01,& - 0.1026E+01, 0.1027E+01, 0.1027E+01, 0.1028E+01,& - 0.1028E+01, 0.1028E+01, 0.1029E+01, 0.1029E+01,& - 0.1029E+01, 0.1030E+01, 0.1030E+01, 0.1031E+01,& - 0.1031E+01, 0.1031E+01, 0.1032E+01, 0.1032E+01,& - 0.1033E+01, 0.1033E+01, 0.1033E+01, 0.1034E+01,& - 0.1034E+01, 0.1035E+01, 0.1035E+01, 0.1035E+01,& - 0.1036E+01, 0.1036E+01, 0.1037E+01, 0.1037E+01,& - 0.1037E+01, 0.1038E+01, 0.1038E+01, 0.1039E+01,& - 0.1039E+01, 0.1039E+01, 0.1040E+01, 0.1040E+01,& - 0.1041E+01, 0.1041E+01, 0.1042E+01, 0.1042E+01,& - 0.1042E+01, 0.1043E+01, 0.1043E+01, 0.1044E+01,& - 0.1044E+01, 0.1044E+01, 0.1045E+01, 0.1045E+01,& - 0.1046E+01, 0.1046E+01, 0.1046E+01, 0.1047E+01,& - 0.1047E+01, 0.1048E+01, 0.1048E+01, 0.1049E+01,& - 0.1049E+01, 0.1049E+01, 0.1050E+01, 0.1050E+01,& - 0.1051E+01, 0.1051E+01, 0.1051E+01, 0.1052E+01,& - 0.1052E+01, 0.1053E+01, 0.1053E+01, 0.1054E+01,& - 0.1054E+01, 0.1054E+01, 0.1055E+01, 0.1055E+01,& - 0.1056E+01, 0.1056E+01, 0.1057E+01, 0.1057E+01,& - 0.1057E+01, 0.1058E+01, 0.1058E+01, 0.1059E+01,& - 0.1059E+01, 0.1060E+01, 0.1060E+01, 0.1060E+01,& - 0.1061E+01, 0.1061E+01, 0.1062E+01, 0.1062E+01,& - 0.1063E+01, 0.1063E+01, 0.1063E+01, 0.1064E+01,& - 0.1064E+01, 0.1065E+01, 0.1065E+01, 0.1066E+01,& - 0.1066E+01, 0.1067E+01, 0.1067E+01, 0.1067E+01,& - 0.1068E+01, 0.1068E+01, 0.1069E+01, 0.1069E+01,& - 0.1070E+01, 0.1070E+01, 0.1071E+01, 0.1071E+01,& - 0.1071E+01, 0.1072E+01, 0.1072E+01, 0.1073E+01,& - 0.1073E+01, 0.1074E+01, 0.1074E+01, 0.1075E+01,& - 0.1075E+01, 0.1075E+01, 0.1076E+01, 0.1076E+01,& - 0.1077E+01, 0.1077E+01, 0.1078E+01, 0.1078E+01,& - 0.1079E+01, 0.1079E+01, 0.1080E+01, 0.1080E+01,& - 0.1081E+01, 0.1081E+01, 0.1082E+01, 0.1082E+01,& - 0.1082E+01, 0.1083E+01, 0.1083E+01, 0.1084E+01,& - 0.1084E+01, 0.1085E+01, 0.1085E+01, 0.1086E+01,& - 0.1086E+01, 0.1087E+01, 0.1087E+01, 0.1088E+01,& - 0.1088E+01, 0.1089E+01, 0.1089E+01, 0.1090E+01,& - 0.1090E+01, 0.1091E+01, 0.1091E+01, 0.1092E+01,& - 0.1092E+01, 0.1093E+01, 0.1093E+01, 0.1094E+01,& - 0.1094E+01, 0.1095E+01, 0.1095E+01, 0.1096E+01,& - 0.1096E+01, 0.1097E+01, 0.1097E+01, 0.1098E+01,& - 0.1098E+01, 0.1099E+01, 0.1099E+01, 0.1100E+01,& - 0.1100E+01, 0.1101E+01, 0.1101E+01, 0.1102E+01,& - 0.1102E+01, 0.1103E+01, 0.1103E+01, 0.1104E+01,& - 0.1104E+01, 0.1105E+01, 0.1105E+01, 0.1106E+01,& - 0.1106E+01, 0.1107E+01, 0.1107E+01, 0.1108E+01,& - 0.1108E+01, 0.1109E+01, 0.1110E+01, 0.1110E+01,& - 0.1111E+01, 0.1111E+01, 0.1112E+01, 0.1112E+01,& - 0.1113E+01, 0.1113E+01, 0.1114E+01, 0.1114E+01,& - 0.1115E+01, 0.1116E+01, 0.1116E+01, 0.1117E+01,& - 0.1117E+01, 0.1118E+01, 0.1118E+01, 0.1119E+01,& - 0.1119E+01, 0.1120E+01, 0.1121E+01, 0.1121E+01,& - 0.1122E+01, 0.1122E+01, 0.1123E+01, 0.1123E+01,& - 0.1124E+01, 0.1125E+01, 0.1125E+01, 0.1126E+01,& - 0.1126E+01, 0.1127E+01, 0.1128E+01, 0.1128E+01,& - 0.1129E+01, 0.1129E+01, 0.1130E+01, 0.1131E+01,& - 0.1131E+01, 0.1132E+01, 0.1132E+01, 0.1133E+01,& - 0.1134E+01, 0.1134E+01, 0.1135E+01, 0.1135E+01,& - 0.1136E+01, 0.1137E+01, 0.1137E+01, 0.1138E+01,& - 0.1139E+01, 0.1139E+01, 0.1140E+01, 0.1141E+01,& - 0.1141E+01, 0.1142E+01, 0.1142E+01, 0.1143E+01,& - 0.1144E+01, 0.1144E+01, 0.1145E+01, 0.1146E+01,& - 0.1146E+01, 0.1147E+01, 0.1148E+01, 0.1148E+01,& - 0.1149E+01, 0.1150E+01, 0.1150E+01, 0.1151E+01,& - 0.1152E+01, 0.1153E+01, 0.1153E+01, 0.1154E+01,& - 0.1155E+01, 0.1155E+01, 0.1156E+01, 0.1157E+01,& - 0.1157E+01, 0.1158E+01, 0.1159E+01, 0.1160E+01,& - 0.1160E+01, 0.1161E+01, 0.1162E+01, 0.1163E+01,& - 0.1163E+01, 0.1164E+01, 0.1165E+01, 0.1166E+01,& - 0.1166E+01, 0.1167E+01, 0.1168E+01, 0.1169E+01,& - 0.1169E+01, 0.1170E+01, 0.1171E+01, 0.1172E+01,& - 0.1173E+01, 0.1173E+01, 0.1174E+01, 0.1175E+01,& - 0.1176E+01, 0.1177E+01, 0.1178E+01, 0.1178E+01,& - 0.1179E+01, 0.1180E+01, 0.1181E+01, 0.1182E+01,& - 0.1183E+01, 0.1184E+01, 0.1184E+01, 0.1185E+01,& - 0.1186E+01, 0.1187E+01, 0.1188E+01, 0.1189E+01,& - 0.1190E+01, 0.1191E+01, 0.1192E+01, 0.1193E+01,& - 0.1193E+01, 0.1194E+01, 0.1195E+01, 0.1196E+01,& - 0.1197E+01, 0.1198E+01, 0.1199E+01, 0.1200E+01,& - 0.1201E+01, 0.1202E+01, 0.1203E+01, 0.1204E+01,& - 0.1205E+01, 0.1206E+01, 0.1207E+01, 0.1208E+01,& - 0.1210E+01, 0.1211E+01, 0.1212E+01, 0.1213E+01,& - 0.1214E+01, 0.1215E+01, 0.1216E+01, 0.1217E+01,& - 0.1218E+01, 0.1220E+01, 0.1221E+01, 0.1222E+01,& - 0.1223E+01, 0.1224E+01, 0.1226E+01, 0.1227E+01,& - 0.1228E+01, 0.1229E+01, 0.1231E+01, 0.1232E+01,& - 0.1233E+01, 0.1235E+01, 0.1236E+01, 0.1237E+01,& - 0.1239E+01, 0.1240E+01, 0.1242E+01, 0.1243E+01,& - 0.1245E+01, 0.1246E+01, 0.1248E+01, 0.1249E+01,& - 0.1251E+01, 0.1252E+01, 0.1254E+01, 0.1255E+01,& - 0.1257E+01, 0.1259E+01, 0.1260E+01, 0.1262E+01,& - 0.1264E+01, 0.1266E+01, 0.1268E+01, 0.1269E+01,& - 0.1271E+01, 0.1273E+01, 0.1275E+01, 0.1277E+01,& - 0.1279E+01, 0.1282E+01, 0.1284E+01, 0.1286E+01,& - 0.1288E+01, 0.1290E+01, 0.1293E+01, 0.1295E+01,& - 0.1298E+01, 0.1300E+01, 0.1303E+01, 0.1306E+01,& - 0.1309E+01, 0.1312E+01, 0.1315E+01, 0.1318E+01,& - 0.1321E+01, 0.1324E+01, 0.1328E+01, 0.1332E+01,& - 0.1335E+01, 0.1339E+01, 0.1344E+01, 0.1348E+01,& - 0.1353E+01, 0.1358E+01, 0.1363E+01, 0.1369E+01,& - 0.1375E+01, 0.1382E+01, 0.1389E+01, 0.1397E+01,& - 0.1406E+01, 0.1416E+01, 0.1428E+01, 0.1443E+01,& - 0.1000E-04, 0.5449E+00, 0.5698E+00, 0.5856E+00/) - xcw(:, 4) = (/& - 0.1000E-04, 0.5449E+00, 0.5698E+00, 0.5856E+00,& - 0.5973E+00, 0.6067E+00, 0.6147E+00, 0.6216E+00,& - 0.6278E+00, 0.6333E+00, 0.6384E+00, 0.6430E+00,& - 0.6474E+00, 0.6514E+00, 0.6552E+00, 0.6588E+00,& - 0.6622E+00, 0.6654E+00, 0.6685E+00, 0.6714E+00,& - 0.6743E+00, 0.6770E+00, 0.6796E+00, 0.6821E+00,& - 0.6846E+00, 0.6869E+00, 0.6892E+00, 0.6914E+00,& - 0.6936E+00, 0.6957E+00, 0.6977E+00, 0.6997E+00,& - 0.7017E+00, 0.7036E+00, 0.7054E+00, 0.7072E+00,& - 0.7090E+00, 0.7107E+00, 0.7125E+00, 0.7141E+00,& - 0.7158E+00, 0.7174E+00, 0.7189E+00, 0.7205E+00,& - 0.7220E+00, 0.7235E+00, 0.7250E+00, 0.7264E+00,& - 0.7279E+00, 0.7293E+00, 0.7307E+00, 0.7320E+00,& - 0.7334E+00, 0.7347E+00, 0.7360E+00, 0.7373E+00,& - 0.7386E+00, 0.7398E+00, 0.7411E+00, 0.7423E+00,& - 0.7435E+00, 0.7447E+00, 0.7459E+00, 0.7470E+00,& - 0.7482E+00, 0.7493E+00, 0.7505E+00, 0.7516E+00,& - 0.7527E+00, 0.7538E+00, 0.7549E+00, 0.7560E+00,& - 0.7570E+00, 0.7581E+00, 0.7591E+00, 0.7601E+00,& - 0.7612E+00, 0.7622E+00, 0.7632E+00, 0.7642E+00,& - 0.7652E+00, 0.7662E+00, 0.7671E+00, 0.7681E+00,& - 0.7690E+00, 0.7700E+00, 0.7709E+00, 0.7719E+00,& - 0.7728E+00, 0.7737E+00, 0.7746E+00, 0.7755E+00,& - 0.7764E+00, 0.7773E+00, 0.7782E+00, 0.7791E+00,& - 0.7800E+00, 0.7808E+00, 0.7817E+00, 0.7825E+00,& - 0.7834E+00, 0.7842E+00, 0.7851E+00, 0.7859E+00,& - 0.7867E+00, 0.7876E+00, 0.7884E+00, 0.7892E+00,& - 0.7900E+00, 0.7908E+00, 0.7916E+00, 0.7924E+00,& - 0.7932E+00, 0.7940E+00, 0.7947E+00, 0.7955E+00,& - 0.7963E+00, 0.7971E+00, 0.7978E+00, 0.7986E+00,& - 0.7993E+00, 0.8001E+00, 0.8008E+00, 0.8016E+00,& - 0.8023E+00, 0.8031E+00, 0.8038E+00, 0.8045E+00,& - 0.8052E+00, 0.8060E+00, 0.8067E+00, 0.8074E+00,& - 0.8081E+00, 0.8088E+00, 0.8095E+00, 0.8102E+00,& - 0.8109E+00, 0.8116E+00, 0.8123E+00, 0.8130E+00,& - 0.8137E+00, 0.8144E+00, 0.8151E+00, 0.8157E+00,& - 0.8164E+00, 0.8171E+00, 0.8177E+00, 0.8184E+00,& - 0.8191E+00, 0.8197E+00, 0.8204E+00, 0.8211E+00,& - 0.8217E+00, 0.8224E+00, 0.8230E+00, 0.8237E+00,& - 0.8243E+00, 0.8249E+00, 0.8256E+00, 0.8262E+00,& - 0.8269E+00, 0.8275E+00, 0.8281E+00, 0.8287E+00,& - 0.8294E+00, 0.8300E+00, 0.8306E+00, 0.8312E+00,& - 0.8319E+00, 0.8325E+00, 0.8331E+00, 0.8337E+00,& - 0.8343E+00, 0.8349E+00, 0.8355E+00, 0.8361E+00,& - 0.8367E+00, 0.8373E+00, 0.8379E+00, 0.8385E+00,& - 0.8391E+00, 0.8397E+00, 0.8403E+00, 0.8409E+00,& - 0.8415E+00, 0.8421E+00, 0.8426E+00, 0.8432E+00,& - 0.8438E+00, 0.8444E+00, 0.8450E+00, 0.8455E+00,& - 0.8461E+00, 0.8467E+00, 0.8473E+00, 0.8478E+00,& - 0.8484E+00, 0.8490E+00, 0.8495E+00, 0.8501E+00,& - 0.8507E+00, 0.8512E+00, 0.8518E+00, 0.8523E+00,& - 0.8529E+00, 0.8534E+00, 0.8540E+00, 0.8545E+00,& - 0.8551E+00, 0.8556E+00, 0.8562E+00, 0.8567E+00,& - 0.8573E+00, 0.8578E+00, 0.8584E+00, 0.8589E+00,& - 0.8595E+00, 0.8600E+00, 0.8605E+00, 0.8611E+00,& - 0.8616E+00, 0.8621E+00, 0.8627E+00, 0.8632E+00,& - 0.8637E+00, 0.8643E+00, 0.8648E+00, 0.8653E+00,& - 0.8659E+00, 0.8664E+00, 0.8669E+00, 0.8674E+00,& - 0.8680E+00, 0.8685E+00, 0.8690E+00, 0.8695E+00,& - 0.8700E+00, 0.8706E+00, 0.8711E+00, 0.8716E+00,& - 0.8721E+00, 0.8726E+00, 0.8731E+00, 0.8736E+00,& - 0.8742E+00, 0.8747E+00, 0.8752E+00, 0.8757E+00,& - 0.8762E+00, 0.8767E+00, 0.8772E+00, 0.8777E+00,& - 0.8782E+00, 0.8787E+00, 0.8792E+00, 0.8797E+00,& - 0.8802E+00, 0.8807E+00, 0.8812E+00, 0.8817E+00,& - 0.8822E+00, 0.8827E+00, 0.8832E+00, 0.8837E+00,& - 0.8842E+00, 0.8847E+00, 0.8852E+00, 0.8857E+00,& - 0.8862E+00, 0.8866E+00, 0.8871E+00, 0.8876E+00,& - 0.8881E+00, 0.8886E+00, 0.8891E+00, 0.8896E+00,& - 0.8901E+00, 0.8905E+00, 0.8910E+00, 0.8915E+00,& - 0.8920E+00, 0.8925E+00, 0.8930E+00, 0.8934E+00,& - 0.8939E+00, 0.8944E+00, 0.8949E+00, 0.8954E+00,& - 0.8958E+00, 0.8963E+00, 0.8968E+00, 0.8973E+00,& - 0.8977E+00, 0.8982E+00, 0.8987E+00, 0.8992E+00,& - 0.8996E+00, 0.9001E+00, 0.9006E+00, 0.9010E+00,& - 0.9015E+00, 0.9020E+00, 0.9025E+00, 0.9029E+00,& - 0.9034E+00, 0.9039E+00, 0.9043E+00, 0.9048E+00,& - 0.9053E+00, 0.9057E+00, 0.9062E+00, 0.9067E+00,& - 0.9071E+00, 0.9076E+00, 0.9080E+00, 0.9085E+00,& - 0.9090E+00, 0.9094E+00, 0.9099E+00, 0.9104E+00,& - 0.9108E+00, 0.9113E+00, 0.9117E+00, 0.9122E+00,& - 0.9127E+00, 0.9131E+00, 0.9136E+00, 0.9140E+00,& - 0.9145E+00, 0.9149E+00, 0.9154E+00, 0.9159E+00,& - 0.9163E+00, 0.9168E+00, 0.9172E+00, 0.9177E+00,& - 0.9181E+00, 0.9186E+00, 0.9190E+00, 0.9195E+00,& - 0.9199E+00, 0.9204E+00, 0.9208E+00, 0.9213E+00,& - 0.9217E+00, 0.9222E+00, 0.9226E+00, 0.9231E+00,& - 0.9235E+00, 0.9240E+00, 0.9244E+00, 0.9249E+00,& - 0.9253E+00, 0.9258E+00, 0.9262E+00, 0.9267E+00,& - 0.9271E+00, 0.9276E+00, 0.9280E+00, 0.9285E+00,& - 0.9289E+00, 0.9294E+00, 0.9298E+00, 0.9303E+00,& - 0.9307E+00, 0.9311E+00, 0.9316E+00, 0.9320E+00,& - 0.9325E+00, 0.9329E+00, 0.9334E+00, 0.9338E+00,& - 0.9343E+00, 0.9347E+00, 0.9351E+00, 0.9356E+00,& - 0.9360E+00, 0.9365E+00, 0.9369E+00, 0.9373E+00,& - 0.9378E+00, 0.9382E+00, 0.9387E+00, 0.9391E+00,& - 0.9395E+00, 0.9400E+00, 0.9404E+00, 0.9409E+00,& - 0.9413E+00, 0.9417E+00, 0.9422E+00, 0.9426E+00,& - 0.9431E+00, 0.9435E+00, 0.9439E+00, 0.9444E+00,& - 0.9448E+00, 0.9453E+00, 0.9457E+00, 0.9461E+00,& - 0.9466E+00, 0.9470E+00, 0.9474E+00, 0.9479E+00,& - 0.9483E+00, 0.9488E+00, 0.9492E+00, 0.9496E+00,& - 0.9501E+00, 0.9505E+00, 0.9509E+00, 0.9514E+00,& - 0.9518E+00, 0.9522E+00, 0.9527E+00, 0.9531E+00,& - 0.9535E+00, 0.9540E+00, 0.9544E+00, 0.9548E+00,& - 0.9553E+00, 0.9557E+00, 0.9562E+00, 0.9566E+00,& - 0.9570E+00, 0.9575E+00, 0.9579E+00, 0.9583E+00,& - 0.9588E+00, 0.9592E+00, 0.9596E+00, 0.9601E+00,& - 0.9605E+00, 0.9609E+00, 0.9614E+00, 0.9618E+00,& - 0.9622E+00, 0.9627E+00, 0.9631E+00, 0.9635E+00,& - 0.9640E+00, 0.9644E+00, 0.9648E+00, 0.9653E+00,& - 0.9657E+00, 0.9661E+00, 0.9666E+00, 0.9670E+00,& - 0.9674E+00, 0.9679E+00, 0.9683E+00, 0.9687E+00,& - 0.9692E+00, 0.9696E+00, 0.9700E+00, 0.9705E+00,& - 0.9709E+00, 0.9713E+00, 0.9718E+00, 0.9722E+00,& - 0.9726E+00, 0.9731E+00, 0.9735E+00, 0.9739E+00,& - 0.9744E+00, 0.9748E+00, 0.9752E+00, 0.9757E+00,& - 0.9761E+00, 0.9765E+00, 0.9770E+00, 0.9774E+00,& - 0.9778E+00, 0.9783E+00, 0.9787E+00, 0.9791E+00,& - 0.9796E+00, 0.9800E+00, 0.9805E+00, 0.9809E+00,& - 0.9813E+00, 0.9818E+00, 0.9822E+00, 0.9826E+00,& - 0.9831E+00, 0.9835E+00, 0.9839E+00, 0.9844E+00,& - 0.9848E+00, 0.9852E+00, 0.9857E+00, 0.9861E+00,& - 0.9865E+00, 0.9870E+00, 0.9874E+00, 0.9878E+00,& - 0.9883E+00, 0.9887E+00, 0.9892E+00, 0.9896E+00,& - 0.9900E+00, 0.9905E+00, 0.9909E+00, 0.9913E+00,& - 0.9918E+00, 0.9922E+00, 0.9927E+00, 0.9931E+00,& - 0.9935E+00, 0.9940E+00, 0.9944E+00, 0.9948E+00,& - 0.9953E+00, 0.9957E+00, 0.9962E+00, 0.9966E+00,& - 0.9970E+00, 0.9975E+00, 0.9979E+00, 0.9983E+00,& - 0.9988E+00, 0.9992E+00, 0.9997E+00, 0.1000E+01,& - 0.1001E+01, 0.1001E+01, 0.1001E+01, 0.1002E+01,& - 0.1002E+01, 0.1003E+01, 0.1003E+01, 0.1004E+01,& - 0.1004E+01, 0.1005E+01, 0.1005E+01, 0.1005E+01,& - 0.1006E+01, 0.1006E+01, 0.1007E+01, 0.1007E+01,& - 0.1008E+01, 0.1008E+01, 0.1009E+01, 0.1009E+01,& - 0.1009E+01, 0.1010E+01, 0.1010E+01, 0.1011E+01,& - 0.1011E+01, 0.1012E+01, 0.1012E+01, 0.1013E+01,& - 0.1013E+01, 0.1013E+01, 0.1014E+01, 0.1014E+01,& - 0.1015E+01, 0.1015E+01, 0.1016E+01, 0.1016E+01,& - 0.1017E+01, 0.1017E+01, 0.1017E+01, 0.1018E+01,& - 0.1018E+01, 0.1019E+01, 0.1019E+01, 0.1020E+01,& - 0.1020E+01, 0.1021E+01, 0.1021E+01, 0.1022E+01,& - 0.1022E+01, 0.1022E+01, 0.1023E+01, 0.1023E+01,& - 0.1024E+01, 0.1024E+01, 0.1025E+01, 0.1025E+01,& - 0.1026E+01, 0.1026E+01, 0.1027E+01, 0.1027E+01,& - 0.1027E+01, 0.1028E+01, 0.1028E+01, 0.1029E+01,& - 0.1029E+01, 0.1030E+01, 0.1030E+01, 0.1031E+01,& - 0.1031E+01, 0.1032E+01, 0.1032E+01, 0.1033E+01,& - 0.1033E+01, 0.1033E+01, 0.1034E+01, 0.1034E+01,& - 0.1035E+01, 0.1035E+01, 0.1036E+01, 0.1036E+01,& - 0.1037E+01, 0.1037E+01, 0.1038E+01, 0.1038E+01,& - 0.1039E+01, 0.1039E+01, 0.1039E+01, 0.1040E+01,& - 0.1040E+01, 0.1041E+01, 0.1041E+01, 0.1042E+01,& - 0.1042E+01, 0.1043E+01, 0.1043E+01, 0.1044E+01,& - 0.1044E+01, 0.1045E+01, 0.1045E+01, 0.1046E+01,& - 0.1046E+01, 0.1047E+01, 0.1047E+01, 0.1048E+01,& - 0.1048E+01, 0.1048E+01, 0.1049E+01, 0.1049E+01,& - 0.1050E+01, 0.1050E+01, 0.1051E+01, 0.1051E+01,& - 0.1052E+01, 0.1052E+01, 0.1053E+01, 0.1053E+01,& - 0.1054E+01, 0.1054E+01, 0.1055E+01, 0.1055E+01,& - 0.1056E+01, 0.1056E+01, 0.1057E+01, 0.1057E+01,& - 0.1058E+01, 0.1058E+01, 0.1059E+01, 0.1059E+01,& - 0.1060E+01, 0.1060E+01, 0.1061E+01, 0.1061E+01,& - 0.1062E+01, 0.1062E+01, 0.1063E+01, 0.1063E+01,& - 0.1064E+01, 0.1064E+01, 0.1065E+01, 0.1065E+01,& - 0.1066E+01, 0.1066E+01, 0.1067E+01, 0.1067E+01,& - 0.1068E+01, 0.1068E+01, 0.1069E+01, 0.1069E+01,& - 0.1070E+01, 0.1070E+01, 0.1071E+01, 0.1071E+01,& - 0.1072E+01, 0.1072E+01, 0.1073E+01, 0.1073E+01,& - 0.1074E+01, 0.1074E+01, 0.1075E+01, 0.1075E+01,& - 0.1076E+01, 0.1076E+01, 0.1077E+01, 0.1077E+01,& - 0.1078E+01, 0.1078E+01, 0.1079E+01, 0.1079E+01,& - 0.1080E+01, 0.1081E+01, 0.1081E+01, 0.1082E+01,& - 0.1082E+01, 0.1083E+01, 0.1083E+01, 0.1084E+01,& - 0.1084E+01, 0.1085E+01, 0.1085E+01, 0.1086E+01,& - 0.1086E+01, 0.1087E+01, 0.1087E+01, 0.1088E+01,& - 0.1089E+01, 0.1089E+01, 0.1090E+01, 0.1090E+01,& - 0.1091E+01, 0.1091E+01, 0.1092E+01, 0.1092E+01,& - 0.1093E+01, 0.1093E+01, 0.1094E+01, 0.1095E+01,& - 0.1095E+01, 0.1096E+01, 0.1096E+01, 0.1097E+01,& - 0.1097E+01, 0.1098E+01, 0.1098E+01, 0.1099E+01,& - 0.1100E+01, 0.1100E+01, 0.1101E+01, 0.1101E+01,& - 0.1102E+01, 0.1102E+01, 0.1103E+01, 0.1104E+01,& - 0.1104E+01, 0.1105E+01, 0.1105E+01, 0.1106E+01,& - 0.1106E+01, 0.1107E+01, 0.1108E+01, 0.1108E+01,& - 0.1109E+01, 0.1109E+01, 0.1110E+01, 0.1110E+01,& - 0.1111E+01, 0.1112E+01, 0.1112E+01, 0.1113E+01,& - 0.1113E+01, 0.1114E+01, 0.1115E+01, 0.1115E+01,& - 0.1116E+01, 0.1116E+01, 0.1117E+01, 0.1118E+01,& - 0.1118E+01, 0.1119E+01, 0.1119E+01, 0.1120E+01,& - 0.1121E+01, 0.1121E+01, 0.1122E+01, 0.1123E+01,& - 0.1123E+01, 0.1124E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1126E+01, 0.1127E+01, 0.1128E+01,& - 0.1128E+01, 0.1129E+01, 0.1130E+01, 0.1130E+01,& - 0.1131E+01, 0.1131E+01, 0.1132E+01, 0.1133E+01,& - 0.1133E+01, 0.1134E+01, 0.1135E+01, 0.1135E+01,& - 0.1136E+01, 0.1137E+01, 0.1137E+01, 0.1138E+01,& - 0.1139E+01, 0.1139E+01, 0.1140E+01, 0.1141E+01,& - 0.1141E+01, 0.1142E+01, 0.1143E+01, 0.1143E+01,& - 0.1144E+01, 0.1145E+01, 0.1145E+01, 0.1146E+01,& - 0.1147E+01, 0.1148E+01, 0.1148E+01, 0.1149E+01,& - 0.1150E+01, 0.1150E+01, 0.1151E+01, 0.1152E+01,& - 0.1152E+01, 0.1153E+01, 0.1154E+01, 0.1155E+01,& - 0.1155E+01, 0.1156E+01, 0.1157E+01, 0.1158E+01,& - 0.1158E+01, 0.1159E+01, 0.1160E+01, 0.1161E+01,& - 0.1161E+01, 0.1162E+01, 0.1163E+01, 0.1164E+01,& - 0.1164E+01, 0.1165E+01, 0.1166E+01, 0.1167E+01,& - 0.1167E+01, 0.1168E+01, 0.1169E+01, 0.1170E+01,& - 0.1171E+01, 0.1171E+01, 0.1172E+01, 0.1173E+01,& - 0.1174E+01, 0.1175E+01, 0.1175E+01, 0.1176E+01,& - 0.1177E+01, 0.1178E+01, 0.1179E+01, 0.1179E+01,& - 0.1180E+01, 0.1181E+01, 0.1182E+01, 0.1183E+01,& - 0.1184E+01, 0.1184E+01, 0.1185E+01, 0.1186E+01,& - 0.1187E+01, 0.1188E+01, 0.1189E+01, 0.1190E+01,& - 0.1191E+01, 0.1191E+01, 0.1192E+01, 0.1193E+01,& - 0.1194E+01, 0.1195E+01, 0.1196E+01, 0.1197E+01,& - 0.1198E+01, 0.1199E+01, 0.1200E+01, 0.1201E+01,& - 0.1202E+01, 0.1203E+01, 0.1204E+01, 0.1204E+01,& - 0.1205E+01, 0.1206E+01, 0.1207E+01, 0.1208E+01,& - 0.1209E+01, 0.1210E+01, 0.1211E+01, 0.1212E+01,& - 0.1213E+01, 0.1214E+01, 0.1216E+01, 0.1217E+01,& - 0.1218E+01, 0.1219E+01, 0.1220E+01, 0.1221E+01,& - 0.1222E+01, 0.1223E+01, 0.1224E+01, 0.1225E+01,& - 0.1226E+01, 0.1227E+01, 0.1229E+01, 0.1230E+01,& - 0.1231E+01, 0.1232E+01, 0.1233E+01, 0.1234E+01,& - 0.1236E+01, 0.1237E+01, 0.1238E+01, 0.1239E+01,& - 0.1240E+01, 0.1242E+01, 0.1243E+01, 0.1244E+01,& - 0.1245E+01, 0.1247E+01, 0.1248E+01, 0.1249E+01,& - 0.1251E+01, 0.1252E+01, 0.1253E+01, 0.1255E+01,& - 0.1256E+01, 0.1257E+01, 0.1259E+01, 0.1260E+01,& - 0.1262E+01, 0.1263E+01, 0.1265E+01, 0.1266E+01,& - 0.1268E+01, 0.1269E+01, 0.1271E+01, 0.1272E+01,& - 0.1274E+01, 0.1275E+01, 0.1277E+01, 0.1279E+01,& - 0.1280E+01, 0.1282E+01, 0.1284E+01, 0.1285E+01,& - 0.1287E+01, 0.1289E+01, 0.1291E+01, 0.1293E+01,& - 0.1294E+01, 0.1296E+01, 0.1298E+01, 0.1300E+01,& - 0.1302E+01, 0.1304E+01, 0.1306E+01, 0.1308E+01,& - 0.1310E+01, 0.1312E+01, 0.1315E+01, 0.1317E+01,& - 0.1319E+01, 0.1321E+01, 0.1324E+01, 0.1326E+01,& - 0.1329E+01, 0.1331E+01, 0.1334E+01, 0.1337E+01,& - 0.1339E+01, 0.1342E+01, 0.1345E+01, 0.1348E+01,& - 0.1351E+01, 0.1354E+01, 0.1357E+01, 0.1360E+01,& - 0.1364E+01, 0.1367E+01, 0.1371E+01, 0.1375E+01,& - 0.1379E+01, 0.1383E+01, 0.1387E+01, 0.1391E+01,& - 0.1396E+01, 0.1401E+01, 0.1406E+01, 0.1411E+01,& - 0.1417E+01, 0.1423E+01, 0.1429E+01, 0.1436E+01,& - 0.1443E+01, 0.1451E+01, 0.1460E+01, 0.1470E+01,& - 0.1481E+01, 0.1493E+01, 0.1508E+01, 0.1525E+01,& - 0.1000E-04, 0.4935E+00, 0.5202E+00, 0.5370E+00/) - xcw(:, 5) = (/& - 0.1000E-04, 0.4935E+00, 0.5202E+00, 0.5370E+00,& - 0.5497E+00, 0.5599E+00, 0.5685E+00, 0.5760E+00,& - 0.5827E+00, 0.5887E+00, 0.5942E+00, 0.5993E+00,& - 0.6040E+00, 0.6084E+00, 0.6125E+00, 0.6164E+00,& - 0.6201E+00, 0.6237E+00, 0.6270E+00, 0.6302E+00,& - 0.6333E+00, 0.6363E+00, 0.6392E+00, 0.6419E+00,& - 0.6446E+00, 0.6472E+00, 0.6497E+00, 0.6522E+00,& - 0.6545E+00, 0.6568E+00, 0.6591E+00, 0.6613E+00,& - 0.6634E+00, 0.6655E+00, 0.6675E+00, 0.6695E+00,& - 0.6715E+00, 0.6734E+00, 0.6753E+00, 0.6771E+00,& - 0.6789E+00, 0.6807E+00, 0.6824E+00, 0.6841E+00,& - 0.6858E+00, 0.6875E+00, 0.6891E+00, 0.6907E+00,& - 0.6923E+00, 0.6938E+00, 0.6954E+00, 0.6969E+00,& - 0.6984E+00, 0.6998E+00, 0.7013E+00, 0.7027E+00,& - 0.7041E+00, 0.7055E+00, 0.7069E+00, 0.7082E+00,& - 0.7096E+00, 0.7109E+00, 0.7122E+00, 0.7135E+00,& - 0.7148E+00, 0.7160E+00, 0.7173E+00, 0.7185E+00,& - 0.7198E+00, 0.7210E+00, 0.7222E+00, 0.7234E+00,& - 0.7246E+00, 0.7257E+00, 0.7269E+00, 0.7280E+00,& - 0.7292E+00, 0.7303E+00, 0.7314E+00, 0.7325E+00,& - 0.7336E+00, 0.7347E+00, 0.7358E+00, 0.7368E+00,& - 0.7379E+00, 0.7390E+00, 0.7400E+00, 0.7410E+00,& - 0.7421E+00, 0.7431E+00, 0.7441E+00, 0.7451E+00,& - 0.7461E+00, 0.7471E+00, 0.7481E+00, 0.7491E+00,& - 0.7500E+00, 0.7510E+00, 0.7520E+00, 0.7529E+00,& - 0.7539E+00, 0.7548E+00, 0.7557E+00, 0.7567E+00,& - 0.7576E+00, 0.7585E+00, 0.7594E+00, 0.7603E+00,& - 0.7612E+00, 0.7621E+00, 0.7630E+00, 0.7639E+00,& - 0.7648E+00, 0.7657E+00, 0.7665E+00, 0.7674E+00,& - 0.7682E+00, 0.7691E+00, 0.7700E+00, 0.7708E+00,& - 0.7716E+00, 0.7725E+00, 0.7733E+00, 0.7741E+00,& - 0.7750E+00, 0.7758E+00, 0.7766E+00, 0.7774E+00,& - 0.7782E+00, 0.7790E+00, 0.7798E+00, 0.7806E+00,& - 0.7814E+00, 0.7822E+00, 0.7830E+00, 0.7838E+00,& - 0.7846E+00, 0.7854E+00, 0.7861E+00, 0.7869E+00,& - 0.7877E+00, 0.7884E+00, 0.7892E+00, 0.7900E+00,& - 0.7907E+00, 0.7915E+00, 0.7922E+00, 0.7930E+00,& - 0.7937E+00, 0.7945E+00, 0.7952E+00, 0.7959E+00,& - 0.7967E+00, 0.7974E+00, 0.7981E+00, 0.7988E+00,& - 0.7996E+00, 0.8003E+00, 0.8010E+00, 0.8017E+00,& - 0.8024E+00, 0.8031E+00, 0.8038E+00, 0.8045E+00,& - 0.8052E+00, 0.8059E+00, 0.8066E+00, 0.8073E+00,& - 0.8080E+00, 0.8087E+00, 0.8094E+00, 0.8101E+00,& - 0.8108E+00, 0.8114E+00, 0.8121E+00, 0.8128E+00,& - 0.8135E+00, 0.8142E+00, 0.8148E+00, 0.8155E+00,& - 0.8162E+00, 0.8168E+00, 0.8175E+00, 0.8181E+00,& - 0.8188E+00, 0.8195E+00, 0.8201E+00, 0.8208E+00,& - 0.8214E+00, 0.8221E+00, 0.8227E+00, 0.8234E+00,& - 0.8240E+00, 0.8247E+00, 0.8253E+00, 0.8259E+00,& - 0.8266E+00, 0.8272E+00, 0.8278E+00, 0.8285E+00,& - 0.8291E+00, 0.8297E+00, 0.8304E+00, 0.8310E+00,& - 0.8316E+00, 0.8322E+00, 0.8329E+00, 0.8335E+00,& - 0.8341E+00, 0.8347E+00, 0.8353E+00, 0.8360E+00,& - 0.8366E+00, 0.8372E+00, 0.8378E+00, 0.8384E+00,& - 0.8390E+00, 0.8396E+00, 0.8402E+00, 0.8408E+00,& - 0.8414E+00, 0.8420E+00, 0.8426E+00, 0.8432E+00,& - 0.8438E+00, 0.8444E+00, 0.8450E+00, 0.8456E+00,& - 0.8462E+00, 0.8468E+00, 0.8474E+00, 0.8480E+00,& - 0.8486E+00, 0.8492E+00, 0.8497E+00, 0.8503E+00,& - 0.8509E+00, 0.8515E+00, 0.8521E+00, 0.8527E+00,& - 0.8532E+00, 0.8538E+00, 0.8544E+00, 0.8550E+00,& - 0.8556E+00, 0.8561E+00, 0.8567E+00, 0.8573E+00,& - 0.8578E+00, 0.8584E+00, 0.8590E+00, 0.8596E+00,& - 0.8601E+00, 0.8607E+00, 0.8613E+00, 0.8618E+00,& - 0.8624E+00, 0.8629E+00, 0.8635E+00, 0.8641E+00,& - 0.8646E+00, 0.8652E+00, 0.8657E+00, 0.8663E+00,& - 0.8669E+00, 0.8674E+00, 0.8680E+00, 0.8685E+00,& - 0.8691E+00, 0.8696E+00, 0.8702E+00, 0.8707E+00,& - 0.8713E+00, 0.8718E+00, 0.8724E+00, 0.8729E+00,& - 0.8735E+00, 0.8740E+00, 0.8746E+00, 0.8751E+00,& - 0.8757E+00, 0.8762E+00, 0.8768E+00, 0.8773E+00,& - 0.8778E+00, 0.8784E+00, 0.8789E+00, 0.8795E+00,& - 0.8800E+00, 0.8805E+00, 0.8811E+00, 0.8816E+00,& - 0.8822E+00, 0.8827E+00, 0.8832E+00, 0.8838E+00,& - 0.8843E+00, 0.8848E+00, 0.8854E+00, 0.8859E+00,& - 0.8864E+00, 0.8870E+00, 0.8875E+00, 0.8880E+00,& - 0.8885E+00, 0.8891E+00, 0.8896E+00, 0.8901E+00,& - 0.8907E+00, 0.8912E+00, 0.8917E+00, 0.8922E+00,& - 0.8928E+00, 0.8933E+00, 0.8938E+00, 0.8943E+00,& - 0.8949E+00, 0.8954E+00, 0.8959E+00, 0.8964E+00,& - 0.8969E+00, 0.8975E+00, 0.8980E+00, 0.8985E+00,& - 0.8990E+00, 0.8995E+00, 0.9001E+00, 0.9006E+00,& - 0.9011E+00, 0.9016E+00, 0.9021E+00, 0.9026E+00,& - 0.9032E+00, 0.9037E+00, 0.9042E+00, 0.9047E+00,& - 0.9052E+00, 0.9057E+00, 0.9062E+00, 0.9068E+00,& - 0.9073E+00, 0.9078E+00, 0.9083E+00, 0.9088E+00,& - 0.9093E+00, 0.9098E+00, 0.9103E+00, 0.9109E+00,& - 0.9114E+00, 0.9119E+00, 0.9124E+00, 0.9129E+00,& - 0.9134E+00, 0.9139E+00, 0.9144E+00, 0.9149E+00,& - 0.9154E+00, 0.9159E+00, 0.9164E+00, 0.9169E+00,& - 0.9174E+00, 0.9180E+00, 0.9185E+00, 0.9190E+00,& - 0.9195E+00, 0.9200E+00, 0.9205E+00, 0.9210E+00,& - 0.9215E+00, 0.9220E+00, 0.9225E+00, 0.9230E+00,& - 0.9235E+00, 0.9240E+00, 0.9245E+00, 0.9250E+00,& - 0.9255E+00, 0.9260E+00, 0.9265E+00, 0.9270E+00,& - 0.9275E+00, 0.9280E+00, 0.9285E+00, 0.9290E+00,& - 0.9295E+00, 0.9300E+00, 0.9305E+00, 0.9310E+00,& - 0.9315E+00, 0.9320E+00, 0.9325E+00, 0.9330E+00,& - 0.9335E+00, 0.9340E+00, 0.9345E+00, 0.9350E+00,& - 0.9355E+00, 0.9360E+00, 0.9365E+00, 0.9370E+00,& - 0.9375E+00, 0.9380E+00, 0.9385E+00, 0.9390E+00,& - 0.9395E+00, 0.9400E+00, 0.9405E+00, 0.9409E+00,& - 0.9414E+00, 0.9419E+00, 0.9424E+00, 0.9429E+00,& - 0.9434E+00, 0.9439E+00, 0.9444E+00, 0.9449E+00,& - 0.9454E+00, 0.9459E+00, 0.9464E+00, 0.9469E+00,& - 0.9474E+00, 0.9479E+00, 0.9484E+00, 0.9489E+00,& - 0.9494E+00, 0.9499E+00, 0.9503E+00, 0.9508E+00,& - 0.9513E+00, 0.9518E+00, 0.9523E+00, 0.9528E+00,& - 0.9533E+00, 0.9538E+00, 0.9543E+00, 0.9548E+00,& - 0.9553E+00, 0.9558E+00, 0.9563E+00, 0.9568E+00,& - 0.9573E+00, 0.9578E+00, 0.9582E+00, 0.9587E+00,& - 0.9592E+00, 0.9597E+00, 0.9602E+00, 0.9607E+00,& - 0.9612E+00, 0.9617E+00, 0.9622E+00, 0.9627E+00,& - 0.9632E+00, 0.9637E+00, 0.9642E+00, 0.9647E+00,& - 0.9652E+00, 0.9656E+00, 0.9661E+00, 0.9666E+00,& - 0.9671E+00, 0.9676E+00, 0.9681E+00, 0.9686E+00,& - 0.9691E+00, 0.9696E+00, 0.9701E+00, 0.9706E+00,& - 0.9711E+00, 0.9716E+00, 0.9721E+00, 0.9726E+00,& - 0.9731E+00, 0.9736E+00, 0.9740E+00, 0.9745E+00,& - 0.9750E+00, 0.9755E+00, 0.9760E+00, 0.9765E+00,& - 0.9770E+00, 0.9775E+00, 0.9780E+00, 0.9785E+00,& - 0.9790E+00, 0.9795E+00, 0.9800E+00, 0.9805E+00,& - 0.9810E+00, 0.9815E+00, 0.9820E+00, 0.9825E+00,& - 0.9830E+00, 0.9835E+00, 0.9840E+00, 0.9845E+00,& - 0.9850E+00, 0.9855E+00, 0.9860E+00, 0.9865E+00,& - 0.9869E+00, 0.9874E+00, 0.9879E+00, 0.9884E+00,& - 0.9889E+00, 0.9894E+00, 0.9899E+00, 0.9904E+00,& - 0.9909E+00, 0.9914E+00, 0.9919E+00, 0.9924E+00,& - 0.9929E+00, 0.9934E+00, 0.9939E+00, 0.9944E+00,& - 0.9949E+00, 0.9954E+00, 0.9959E+00, 0.9964E+00,& - 0.9969E+00, 0.9974E+00, 0.9980E+00, 0.9985E+00,& - 0.9990E+00, 0.9995E+00, 0.1000E+01, 0.1000E+01,& - 0.1001E+01, 0.1001E+01, 0.1002E+01, 0.1002E+01,& - 0.1003E+01, 0.1003E+01, 0.1004E+01, 0.1005E+01,& - 0.1005E+01, 0.1006E+01, 0.1006E+01, 0.1007E+01,& - 0.1007E+01, 0.1008E+01, 0.1008E+01, 0.1009E+01,& - 0.1009E+01, 0.1010E+01, 0.1010E+01, 0.1011E+01,& - 0.1011E+01, 0.1012E+01, 0.1012E+01, 0.1013E+01,& - 0.1013E+01, 0.1014E+01, 0.1014E+01, 0.1015E+01,& - 0.1015E+01, 0.1016E+01, 0.1016E+01, 0.1017E+01,& - 0.1017E+01, 0.1018E+01, 0.1018E+01, 0.1019E+01,& - 0.1019E+01, 0.1020E+01, 0.1020E+01, 0.1021E+01,& - 0.1021E+01, 0.1022E+01, 0.1022E+01, 0.1023E+01,& - 0.1023E+01, 0.1024E+01, 0.1024E+01, 0.1025E+01,& - 0.1026E+01, 0.1026E+01, 0.1027E+01, 0.1027E+01,& - 0.1028E+01, 0.1028E+01, 0.1029E+01, 0.1029E+01,& - 0.1030E+01, 0.1030E+01, 0.1031E+01, 0.1031E+01,& - 0.1032E+01, 0.1032E+01, 0.1033E+01, 0.1033E+01,& - 0.1034E+01, 0.1034E+01, 0.1035E+01, 0.1035E+01,& - 0.1036E+01, 0.1037E+01, 0.1037E+01, 0.1038E+01,& - 0.1038E+01, 0.1039E+01, 0.1039E+01, 0.1040E+01,& - 0.1040E+01, 0.1041E+01, 0.1041E+01, 0.1042E+01,& - 0.1042E+01, 0.1043E+01, 0.1043E+01, 0.1044E+01,& - 0.1045E+01, 0.1045E+01, 0.1046E+01, 0.1046E+01,& - 0.1047E+01, 0.1047E+01, 0.1048E+01, 0.1048E+01,& - 0.1049E+01, 0.1049E+01, 0.1050E+01, 0.1051E+01,& - 0.1051E+01, 0.1052E+01, 0.1052E+01, 0.1053E+01,& - 0.1053E+01, 0.1054E+01, 0.1054E+01, 0.1055E+01,& - 0.1055E+01, 0.1056E+01, 0.1057E+01, 0.1057E+01,& - 0.1058E+01, 0.1058E+01, 0.1059E+01, 0.1059E+01,& - 0.1060E+01, 0.1060E+01, 0.1061E+01, 0.1062E+01,& - 0.1062E+01, 0.1063E+01, 0.1063E+01, 0.1064E+01,& - 0.1064E+01, 0.1065E+01, 0.1066E+01, 0.1066E+01,& - 0.1067E+01, 0.1067E+01, 0.1068E+01, 0.1068E+01,& - 0.1069E+01, 0.1069E+01, 0.1070E+01, 0.1071E+01,& - 0.1071E+01, 0.1072E+01, 0.1072E+01, 0.1073E+01,& - 0.1074E+01, 0.1074E+01, 0.1075E+01, 0.1075E+01,& - 0.1076E+01, 0.1076E+01, 0.1077E+01, 0.1078E+01,& - 0.1078E+01, 0.1079E+01, 0.1079E+01, 0.1080E+01,& - 0.1080E+01, 0.1081E+01, 0.1082E+01, 0.1082E+01,& - 0.1083E+01, 0.1083E+01, 0.1084E+01, 0.1085E+01,& - 0.1085E+01, 0.1086E+01, 0.1086E+01, 0.1087E+01,& - 0.1088E+01, 0.1088E+01, 0.1089E+01, 0.1089E+01,& - 0.1090E+01, 0.1091E+01, 0.1091E+01, 0.1092E+01,& - 0.1092E+01, 0.1093E+01, 0.1094E+01, 0.1094E+01,& - 0.1095E+01, 0.1095E+01, 0.1096E+01, 0.1097E+01,& - 0.1097E+01, 0.1098E+01, 0.1099E+01, 0.1099E+01,& - 0.1100E+01, 0.1100E+01, 0.1101E+01, 0.1102E+01,& - 0.1102E+01, 0.1103E+01, 0.1104E+01, 0.1104E+01,& - 0.1105E+01, 0.1105E+01, 0.1106E+01, 0.1107E+01,& - 0.1107E+01, 0.1108E+01, 0.1109E+01, 0.1109E+01,& - 0.1110E+01, 0.1111E+01, 0.1111E+01, 0.1112E+01,& - 0.1113E+01, 0.1113E+01, 0.1114E+01, 0.1114E+01,& - 0.1115E+01, 0.1116E+01, 0.1116E+01, 0.1117E+01,& - 0.1118E+01, 0.1118E+01, 0.1119E+01, 0.1120E+01,& - 0.1120E+01, 0.1121E+01, 0.1122E+01, 0.1122E+01,& - 0.1123E+01, 0.1124E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1127E+01, 0.1127E+01, 0.1128E+01,& - 0.1129E+01, 0.1129E+01, 0.1130E+01, 0.1131E+01,& - 0.1131E+01, 0.1132E+01, 0.1133E+01, 0.1133E+01,& - 0.1134E+01, 0.1135E+01, 0.1136E+01, 0.1136E+01,& - 0.1137E+01, 0.1138E+01, 0.1138E+01, 0.1139E+01,& - 0.1140E+01, 0.1141E+01, 0.1141E+01, 0.1142E+01,& - 0.1143E+01, 0.1143E+01, 0.1144E+01, 0.1145E+01,& - 0.1146E+01, 0.1146E+01, 0.1147E+01, 0.1148E+01,& - 0.1149E+01, 0.1149E+01, 0.1150E+01, 0.1151E+01,& - 0.1152E+01, 0.1152E+01, 0.1153E+01, 0.1154E+01,& - 0.1155E+01, 0.1155E+01, 0.1156E+01, 0.1157E+01,& - 0.1158E+01, 0.1158E+01, 0.1159E+01, 0.1160E+01,& - 0.1161E+01, 0.1162E+01, 0.1162E+01, 0.1163E+01,& - 0.1164E+01, 0.1165E+01, 0.1165E+01, 0.1166E+01,& - 0.1167E+01, 0.1168E+01, 0.1169E+01, 0.1170E+01,& - 0.1170E+01, 0.1171E+01, 0.1172E+01, 0.1173E+01,& - 0.1174E+01, 0.1174E+01, 0.1175E+01, 0.1176E+01,& - 0.1177E+01, 0.1178E+01, 0.1179E+01, 0.1180E+01,& - 0.1180E+01, 0.1181E+01, 0.1182E+01, 0.1183E+01,& - 0.1184E+01, 0.1185E+01, 0.1186E+01, 0.1186E+01,& - 0.1187E+01, 0.1188E+01, 0.1189E+01, 0.1190E+01,& - 0.1191E+01, 0.1192E+01, 0.1193E+01, 0.1194E+01,& - 0.1195E+01, 0.1195E+01, 0.1196E+01, 0.1197E+01,& - 0.1198E+01, 0.1199E+01, 0.1200E+01, 0.1201E+01,& - 0.1202E+01, 0.1203E+01, 0.1204E+01, 0.1205E+01,& - 0.1206E+01, 0.1207E+01, 0.1208E+01, 0.1209E+01,& - 0.1210E+01, 0.1211E+01, 0.1212E+01, 0.1213E+01,& - 0.1214E+01, 0.1215E+01, 0.1216E+01, 0.1217E+01,& - 0.1218E+01, 0.1219E+01, 0.1220E+01, 0.1221E+01,& - 0.1222E+01, 0.1223E+01, 0.1224E+01, 0.1225E+01,& - 0.1226E+01, 0.1227E+01, 0.1228E+01, 0.1229E+01,& - 0.1231E+01, 0.1232E+01, 0.1233E+01, 0.1234E+01,& - 0.1235E+01, 0.1236E+01, 0.1237E+01, 0.1238E+01,& - 0.1240E+01, 0.1241E+01, 0.1242E+01, 0.1243E+01,& - 0.1244E+01, 0.1246E+01, 0.1247E+01, 0.1248E+01,& - 0.1249E+01, 0.1250E+01, 0.1252E+01, 0.1253E+01,& - 0.1254E+01, 0.1255E+01, 0.1257E+01, 0.1258E+01,& - 0.1259E+01, 0.1261E+01, 0.1262E+01, 0.1263E+01,& - 0.1265E+01, 0.1266E+01, 0.1267E+01, 0.1269E+01,& - 0.1270E+01, 0.1271E+01, 0.1273E+01, 0.1274E+01,& - 0.1276E+01, 0.1277E+01, 0.1279E+01, 0.1280E+01,& - 0.1282E+01, 0.1283E+01, 0.1285E+01, 0.1286E+01,& - 0.1288E+01, 0.1289E+01, 0.1291E+01, 0.1292E+01,& - 0.1294E+01, 0.1296E+01, 0.1297E+01, 0.1299E+01,& - 0.1300E+01, 0.1302E+01, 0.1304E+01, 0.1306E+01,& - 0.1307E+01, 0.1309E+01, 0.1311E+01, 0.1313E+01,& - 0.1315E+01, 0.1316E+01, 0.1318E+01, 0.1320E+01,& - 0.1322E+01, 0.1324E+01, 0.1326E+01, 0.1328E+01,& - 0.1330E+01, 0.1332E+01, 0.1334E+01, 0.1336E+01,& - 0.1339E+01, 0.1341E+01, 0.1343E+01, 0.1345E+01,& - 0.1348E+01, 0.1350E+01, 0.1352E+01, 0.1355E+01,& - 0.1357E+01, 0.1360E+01, 0.1362E+01, 0.1365E+01,& - 0.1368E+01, 0.1370E+01, 0.1373E+01, 0.1376E+01,& - 0.1379E+01, 0.1382E+01, 0.1385E+01, 0.1388E+01,& - 0.1391E+01, 0.1394E+01, 0.1398E+01, 0.1401E+01,& - 0.1405E+01, 0.1408E+01, 0.1412E+01, 0.1416E+01,& - 0.1420E+01, 0.1424E+01, 0.1428E+01, 0.1433E+01,& - 0.1437E+01, 0.1442E+01, 0.1447E+01, 0.1452E+01,& - 0.1458E+01, 0.1463E+01, 0.1469E+01, 0.1475E+01,& - 0.1482E+01, 0.1489E+01, 0.1497E+01, 0.1505E+01,& - 0.1514E+01, 0.1523E+01, 0.1533E+01, 0.1545E+01,& - 0.1558E+01, 0.1572E+01, 0.1590E+01, 0.1610E+01,& - 0.1000E-04, 0.4453E+00, 0.4733E+00, 0.4911E+00/) - xcw(:, 6) = (/& - 0.1000E-04, 0.4453E+00, 0.4733E+00, 0.4911E+00,& - 0.5045E+00, 0.5153E+00, 0.5245E+00, 0.5324E+00,& - 0.5396E+00, 0.5460E+00, 0.5519E+00, 0.5573E+00,& - 0.5623E+00, 0.5670E+00, 0.5715E+00, 0.5757E+00,& - 0.5796E+00, 0.5834E+00, 0.5870E+00, 0.5905E+00,& - 0.5938E+00, 0.5970E+00, 0.6001E+00, 0.6031E+00,& - 0.6060E+00, 0.6088E+00, 0.6115E+00, 0.6141E+00,& - 0.6167E+00, 0.6192E+00, 0.6216E+00, 0.6240E+00,& - 0.6263E+00, 0.6285E+00, 0.6308E+00, 0.6329E+00,& - 0.6350E+00, 0.6371E+00, 0.6391E+00, 0.6411E+00,& - 0.6431E+00, 0.6450E+00, 0.6469E+00, 0.6487E+00,& - 0.6506E+00, 0.6524E+00, 0.6541E+00, 0.6559E+00,& - 0.6576E+00, 0.6593E+00, 0.6609E+00, 0.6626E+00,& - 0.6642E+00, 0.6658E+00, 0.6673E+00, 0.6689E+00,& - 0.6704E+00, 0.6719E+00, 0.6734E+00, 0.6749E+00,& - 0.6764E+00, 0.6778E+00, 0.6792E+00, 0.6807E+00,& - 0.6820E+00, 0.6834E+00, 0.6848E+00, 0.6861E+00,& - 0.6875E+00, 0.6888E+00, 0.6901E+00, 0.6914E+00,& - 0.6927E+00, 0.6940E+00, 0.6952E+00, 0.6965E+00,& - 0.6977E+00, 0.6990E+00, 0.7002E+00, 0.7014E+00,& - 0.7026E+00, 0.7038E+00, 0.7050E+00, 0.7061E+00,& - 0.7073E+00, 0.7084E+00, 0.7096E+00, 0.7107E+00,& - 0.7118E+00, 0.7130E+00, 0.7141E+00, 0.7152E+00,& - 0.7163E+00, 0.7174E+00, 0.7184E+00, 0.7195E+00,& - 0.7206E+00, 0.7216E+00, 0.7227E+00, 0.7237E+00,& - 0.7248E+00, 0.7258E+00, 0.7268E+00, 0.7278E+00,& - 0.7288E+00, 0.7298E+00, 0.7308E+00, 0.7318E+00,& - 0.7328E+00, 0.7338E+00, 0.7348E+00, 0.7357E+00,& - 0.7367E+00, 0.7377E+00, 0.7386E+00, 0.7396E+00,& - 0.7405E+00, 0.7415E+00, 0.7424E+00, 0.7433E+00,& - 0.7443E+00, 0.7452E+00, 0.7461E+00, 0.7470E+00,& - 0.7479E+00, 0.7488E+00, 0.7497E+00, 0.7506E+00,& - 0.7515E+00, 0.7524E+00, 0.7533E+00, 0.7541E+00,& - 0.7550E+00, 0.7559E+00, 0.7568E+00, 0.7576E+00,& - 0.7585E+00, 0.7593E+00, 0.7602E+00, 0.7610E+00,& - 0.7619E+00, 0.7627E+00, 0.7636E+00, 0.7644E+00,& - 0.7652E+00, 0.7660E+00, 0.7669E+00, 0.7677E+00,& - 0.7685E+00, 0.7693E+00, 0.7701E+00, 0.7709E+00,& - 0.7718E+00, 0.7726E+00, 0.7734E+00, 0.7742E+00,& - 0.7749E+00, 0.7757E+00, 0.7765E+00, 0.7773E+00,& - 0.7781E+00, 0.7789E+00, 0.7797E+00, 0.7804E+00,& - 0.7812E+00, 0.7820E+00, 0.7827E+00, 0.7835E+00,& - 0.7843E+00, 0.7850E+00, 0.7858E+00, 0.7865E+00,& - 0.7873E+00, 0.7881E+00, 0.7888E+00, 0.7896E+00,& - 0.7903E+00, 0.7910E+00, 0.7918E+00, 0.7925E+00,& - 0.7933E+00, 0.7940E+00, 0.7947E+00, 0.7954E+00,& - 0.7962E+00, 0.7969E+00, 0.7976E+00, 0.7983E+00,& - 0.7991E+00, 0.7998E+00, 0.8005E+00, 0.8012E+00,& - 0.8019E+00, 0.8026E+00, 0.8033E+00, 0.8041E+00,& - 0.8048E+00, 0.8055E+00, 0.8062E+00, 0.8069E+00,& - 0.8076E+00, 0.8083E+00, 0.8090E+00, 0.8096E+00,& - 0.8103E+00, 0.8110E+00, 0.8117E+00, 0.8124E+00,& - 0.8131E+00, 0.8138E+00, 0.8145E+00, 0.8151E+00,& - 0.8158E+00, 0.8165E+00, 0.8172E+00, 0.8178E+00,& - 0.8185E+00, 0.8192E+00, 0.8199E+00, 0.8205E+00,& - 0.8212E+00, 0.8219E+00, 0.8225E+00, 0.8232E+00,& - 0.8238E+00, 0.8245E+00, 0.8252E+00, 0.8258E+00,& - 0.8265E+00, 0.8271E+00, 0.8278E+00, 0.8284E+00,& - 0.8291E+00, 0.8298E+00, 0.8304E+00, 0.8310E+00,& - 0.8317E+00, 0.8323E+00, 0.8330E+00, 0.8336E+00,& - 0.8343E+00, 0.8349E+00, 0.8356E+00, 0.8362E+00,& - 0.8368E+00, 0.8375E+00, 0.8381E+00, 0.8387E+00,& - 0.8394E+00, 0.8400E+00, 0.8406E+00, 0.8413E+00,& - 0.8419E+00, 0.8425E+00, 0.8432E+00, 0.8438E+00,& - 0.8444E+00, 0.8450E+00, 0.8457E+00, 0.8463E+00,& - 0.8469E+00, 0.8475E+00, 0.8481E+00, 0.8488E+00,& - 0.8494E+00, 0.8500E+00, 0.8506E+00, 0.8512E+00,& - 0.8518E+00, 0.8525E+00, 0.8531E+00, 0.8537E+00,& - 0.8543E+00, 0.8549E+00, 0.8555E+00, 0.8561E+00,& - 0.8567E+00, 0.8573E+00, 0.8580E+00, 0.8586E+00,& - 0.8592E+00, 0.8598E+00, 0.8604E+00, 0.8610E+00,& - 0.8616E+00, 0.8622E+00, 0.8628E+00, 0.8634E+00,& - 0.8640E+00, 0.8646E+00, 0.8652E+00, 0.8658E+00,& - 0.8664E+00, 0.8670E+00, 0.8676E+00, 0.8682E+00,& - 0.8687E+00, 0.8693E+00, 0.8699E+00, 0.8705E+00,& - 0.8711E+00, 0.8717E+00, 0.8723E+00, 0.8729E+00,& - 0.8735E+00, 0.8741E+00, 0.8747E+00, 0.8752E+00,& - 0.8758E+00, 0.8764E+00, 0.8770E+00, 0.8776E+00,& - 0.8782E+00, 0.8788E+00, 0.8793E+00, 0.8799E+00,& - 0.8805E+00, 0.8811E+00, 0.8817E+00, 0.8822E+00,& - 0.8828E+00, 0.8834E+00, 0.8840E+00, 0.8846E+00,& - 0.8851E+00, 0.8857E+00, 0.8863E+00, 0.8869E+00,& - 0.8874E+00, 0.8880E+00, 0.8886E+00, 0.8892E+00,& - 0.8897E+00, 0.8903E+00, 0.8909E+00, 0.8915E+00,& - 0.8920E+00, 0.8926E+00, 0.8932E+00, 0.8938E+00,& - 0.8943E+00, 0.8949E+00, 0.8955E+00, 0.8960E+00,& - 0.8966E+00, 0.8972E+00, 0.8977E+00, 0.8983E+00,& - 0.8989E+00, 0.8994E+00, 0.9000E+00, 0.9006E+00,& - 0.9012E+00, 0.9017E+00, 0.9023E+00, 0.9028E+00,& - 0.9034E+00, 0.9040E+00, 0.9045E+00, 0.9051E+00,& - 0.9057E+00, 0.9062E+00, 0.9068E+00, 0.9074E+00,& - 0.9079E+00, 0.9085E+00, 0.9091E+00, 0.9096E+00,& - 0.9102E+00, 0.9107E+00, 0.9113E+00, 0.9119E+00,& - 0.9124E+00, 0.9130E+00, 0.9135E+00, 0.9141E+00,& - 0.9147E+00, 0.9152E+00, 0.9158E+00, 0.9163E+00,& - 0.9169E+00, 0.9175E+00, 0.9180E+00, 0.9186E+00,& - 0.9191E+00, 0.9197E+00, 0.9202E+00, 0.9208E+00,& - 0.9214E+00, 0.9219E+00, 0.9225E+00, 0.9230E+00,& - 0.9236E+00, 0.9241E+00, 0.9247E+00, 0.9253E+00,& - 0.9258E+00, 0.9264E+00, 0.9269E+00, 0.9275E+00,& - 0.9280E+00, 0.9286E+00, 0.9291E+00, 0.9297E+00,& - 0.9303E+00, 0.9308E+00, 0.9314E+00, 0.9319E+00,& - 0.9325E+00, 0.9330E+00, 0.9336E+00, 0.9341E+00,& - 0.9347E+00, 0.9352E+00, 0.9358E+00, 0.9363E+00,& - 0.9369E+00, 0.9375E+00, 0.9380E+00, 0.9386E+00,& - 0.9391E+00, 0.9397E+00, 0.9402E+00, 0.9408E+00,& - 0.9413E+00, 0.9419E+00, 0.9424E+00, 0.9430E+00,& - 0.9435E+00, 0.9441E+00, 0.9446E+00, 0.9452E+00,& - 0.9457E+00, 0.9463E+00, 0.9469E+00, 0.9474E+00,& - 0.9480E+00, 0.9485E+00, 0.9491E+00, 0.9496E+00,& - 0.9502E+00, 0.9507E+00, 0.9513E+00, 0.9518E+00,& - 0.9524E+00, 0.9529E+00, 0.9535E+00, 0.9540E+00,& - 0.9546E+00, 0.9551E+00, 0.9557E+00, 0.9562E+00,& - 0.9568E+00, 0.9574E+00, 0.9579E+00, 0.9585E+00,& - 0.9590E+00, 0.9596E+00, 0.9601E+00, 0.9607E+00,& - 0.9612E+00, 0.9618E+00, 0.9623E+00, 0.9629E+00,& - 0.9634E+00, 0.9640E+00, 0.9645E+00, 0.9651E+00,& - 0.9657E+00, 0.9662E+00, 0.9668E+00, 0.9673E+00,& - 0.9679E+00, 0.9684E+00, 0.9690E+00, 0.9695E+00,& - 0.9701E+00, 0.9706E+00, 0.9712E+00, 0.9718E+00,& - 0.9723E+00, 0.9729E+00, 0.9734E+00, 0.9740E+00,& - 0.9745E+00, 0.9751E+00, 0.9756E+00, 0.9762E+00,& - 0.9768E+00, 0.9773E+00, 0.9779E+00, 0.9784E+00,& - 0.9790E+00, 0.9795E+00, 0.9801E+00, 0.9807E+00,& - 0.9812E+00, 0.9818E+00, 0.9823E+00, 0.9829E+00,& - 0.9835E+00, 0.9840E+00, 0.9846E+00, 0.9851E+00,& - 0.9857E+00, 0.9863E+00, 0.9868E+00, 0.9874E+00,& - 0.9879E+00, 0.9885E+00, 0.9891E+00, 0.9896E+00,& - 0.9902E+00, 0.9907E+00, 0.9913E+00, 0.9919E+00,& - 0.9924E+00, 0.9930E+00, 0.9936E+00, 0.9941E+00,& - 0.9947E+00, 0.9952E+00, 0.9958E+00, 0.9964E+00,& - 0.9969E+00, 0.9975E+00, 0.9981E+00, 0.9986E+00,& - 0.9992E+00, 0.9998E+00, 0.1000E+01, 0.1001E+01,& - 0.1001E+01, 0.1002E+01, 0.1003E+01, 0.1003E+01,& - 0.1004E+01, 0.1004E+01, 0.1005E+01, 0.1005E+01,& - 0.1006E+01, 0.1007E+01, 0.1007E+01, 0.1008E+01,& - 0.1008E+01, 0.1009E+01, 0.1009E+01, 0.1010E+01,& - 0.1011E+01, 0.1011E+01, 0.1012E+01, 0.1012E+01,& - 0.1013E+01, 0.1013E+01, 0.1014E+01, 0.1015E+01,& - 0.1015E+01, 0.1016E+01, 0.1016E+01, 0.1017E+01,& - 0.1018E+01, 0.1018E+01, 0.1019E+01, 0.1019E+01,& - 0.1020E+01, 0.1020E+01, 0.1021E+01, 0.1022E+01,& - 0.1022E+01, 0.1023E+01, 0.1023E+01, 0.1024E+01,& - 0.1024E+01, 0.1025E+01, 0.1026E+01, 0.1026E+01,& - 0.1027E+01, 0.1027E+01, 0.1028E+01, 0.1029E+01,& - 0.1029E+01, 0.1030E+01, 0.1030E+01, 0.1031E+01,& - 0.1032E+01, 0.1032E+01, 0.1033E+01, 0.1033E+01,& - 0.1034E+01, 0.1035E+01, 0.1035E+01, 0.1036E+01,& - 0.1036E+01, 0.1037E+01, 0.1037E+01, 0.1038E+01,& - 0.1039E+01, 0.1039E+01, 0.1040E+01, 0.1040E+01,& - 0.1041E+01, 0.1042E+01, 0.1042E+01, 0.1043E+01,& - 0.1043E+01, 0.1044E+01, 0.1045E+01, 0.1045E+01,& - 0.1046E+01, 0.1046E+01, 0.1047E+01, 0.1048E+01,& - 0.1048E+01, 0.1049E+01, 0.1050E+01, 0.1050E+01,& - 0.1051E+01, 0.1051E+01, 0.1052E+01, 0.1053E+01,& - 0.1053E+01, 0.1054E+01, 0.1054E+01, 0.1055E+01,& - 0.1056E+01, 0.1056E+01, 0.1057E+01, 0.1058E+01,& - 0.1058E+01, 0.1059E+01, 0.1059E+01, 0.1060E+01,& - 0.1061E+01, 0.1061E+01, 0.1062E+01, 0.1062E+01,& - 0.1063E+01, 0.1064E+01, 0.1064E+01, 0.1065E+01,& - 0.1066E+01, 0.1066E+01, 0.1067E+01, 0.1068E+01,& - 0.1068E+01, 0.1069E+01, 0.1069E+01, 0.1070E+01,& - 0.1071E+01, 0.1071E+01, 0.1072E+01, 0.1073E+01,& - 0.1073E+01, 0.1074E+01, 0.1075E+01, 0.1075E+01,& - 0.1076E+01, 0.1076E+01, 0.1077E+01, 0.1078E+01,& - 0.1078E+01, 0.1079E+01, 0.1080E+01, 0.1080E+01,& - 0.1081E+01, 0.1082E+01, 0.1082E+01, 0.1083E+01,& - 0.1084E+01, 0.1084E+01, 0.1085E+01, 0.1086E+01,& - 0.1086E+01, 0.1087E+01, 0.1088E+01, 0.1088E+01,& - 0.1089E+01, 0.1090E+01, 0.1090E+01, 0.1091E+01,& - 0.1092E+01, 0.1092E+01, 0.1093E+01, 0.1094E+01,& - 0.1094E+01, 0.1095E+01, 0.1096E+01, 0.1096E+01,& - 0.1097E+01, 0.1098E+01, 0.1098E+01, 0.1099E+01,& - 0.1100E+01, 0.1100E+01, 0.1101E+01, 0.1102E+01,& - 0.1102E+01, 0.1103E+01, 0.1104E+01, 0.1104E+01,& - 0.1105E+01, 0.1106E+01, 0.1107E+01, 0.1107E+01,& - 0.1108E+01, 0.1109E+01, 0.1109E+01, 0.1110E+01,& - 0.1111E+01, 0.1111E+01, 0.1112E+01, 0.1113E+01,& - 0.1114E+01, 0.1114E+01, 0.1115E+01, 0.1116E+01,& - 0.1116E+01, 0.1117E+01, 0.1118E+01, 0.1119E+01,& - 0.1119E+01, 0.1120E+01, 0.1121E+01, 0.1122E+01,& - 0.1122E+01, 0.1123E+01, 0.1124E+01, 0.1124E+01,& - 0.1125E+01, 0.1126E+01, 0.1127E+01, 0.1127E+01,& - 0.1128E+01, 0.1129E+01, 0.1130E+01, 0.1130E+01,& - 0.1131E+01, 0.1132E+01, 0.1133E+01, 0.1133E+01,& - 0.1134E+01, 0.1135E+01, 0.1136E+01, 0.1136E+01,& - 0.1137E+01, 0.1138E+01, 0.1139E+01, 0.1139E+01,& - 0.1140E+01, 0.1141E+01, 0.1142E+01, 0.1143E+01,& - 0.1143E+01, 0.1144E+01, 0.1145E+01, 0.1146E+01,& - 0.1146E+01, 0.1147E+01, 0.1148E+01, 0.1149E+01,& - 0.1150E+01, 0.1150E+01, 0.1151E+01, 0.1152E+01,& - 0.1153E+01, 0.1154E+01, 0.1154E+01, 0.1155E+01,& - 0.1156E+01, 0.1157E+01, 0.1158E+01, 0.1159E+01,& - 0.1159E+01, 0.1160E+01, 0.1161E+01, 0.1162E+01,& - 0.1163E+01, 0.1164E+01, 0.1164E+01, 0.1165E+01,& - 0.1166E+01, 0.1167E+01, 0.1168E+01, 0.1169E+01,& - 0.1169E+01, 0.1170E+01, 0.1171E+01, 0.1172E+01,& - 0.1173E+01, 0.1174E+01, 0.1175E+01, 0.1176E+01,& - 0.1176E+01, 0.1177E+01, 0.1178E+01, 0.1179E+01,& - 0.1180E+01, 0.1181E+01, 0.1182E+01, 0.1183E+01,& - 0.1184E+01, 0.1184E+01, 0.1185E+01, 0.1186E+01,& - 0.1187E+01, 0.1188E+01, 0.1189E+01, 0.1190E+01,& - 0.1191E+01, 0.1192E+01, 0.1193E+01, 0.1194E+01,& - 0.1195E+01, 0.1196E+01, 0.1196E+01, 0.1197E+01,& - 0.1198E+01, 0.1199E+01, 0.1200E+01, 0.1201E+01,& - 0.1202E+01, 0.1203E+01, 0.1204E+01, 0.1205E+01,& - 0.1206E+01, 0.1207E+01, 0.1208E+01, 0.1209E+01,& - 0.1210E+01, 0.1211E+01, 0.1212E+01, 0.1213E+01,& - 0.1214E+01, 0.1215E+01, 0.1216E+01, 0.1217E+01,& - 0.1218E+01, 0.1219E+01, 0.1220E+01, 0.1222E+01,& - 0.1223E+01, 0.1224E+01, 0.1225E+01, 0.1226E+01,& - 0.1227E+01, 0.1228E+01, 0.1229E+01, 0.1230E+01,& - 0.1231E+01, 0.1232E+01, 0.1233E+01, 0.1235E+01,& - 0.1236E+01, 0.1237E+01, 0.1238E+01, 0.1239E+01,& - 0.1240E+01, 0.1241E+01, 0.1243E+01, 0.1244E+01,& - 0.1245E+01, 0.1246E+01, 0.1247E+01, 0.1248E+01,& - 0.1250E+01, 0.1251E+01, 0.1252E+01, 0.1253E+01,& - 0.1255E+01, 0.1256E+01, 0.1257E+01, 0.1258E+01,& - 0.1260E+01, 0.1261E+01, 0.1262E+01, 0.1263E+01,& - 0.1265E+01, 0.1266E+01, 0.1267E+01, 0.1269E+01,& - 0.1270E+01, 0.1271E+01, 0.1273E+01, 0.1274E+01,& - 0.1275E+01, 0.1277E+01, 0.1278E+01, 0.1279E+01,& - 0.1281E+01, 0.1282E+01, 0.1284E+01, 0.1285E+01,& - 0.1286E+01, 0.1288E+01, 0.1289E+01, 0.1291E+01,& - 0.1292E+01, 0.1294E+01, 0.1295E+01, 0.1297E+01,& - 0.1298E+01, 0.1300E+01, 0.1301E+01, 0.1303E+01,& - 0.1305E+01, 0.1306E+01, 0.1308E+01, 0.1309E+01,& - 0.1311E+01, 0.1313E+01, 0.1314E+01, 0.1316E+01,& - 0.1318E+01, 0.1320E+01, 0.1321E+01, 0.1323E+01,& - 0.1325E+01, 0.1327E+01, 0.1328E+01, 0.1330E+01,& - 0.1332E+01, 0.1334E+01, 0.1336E+01, 0.1338E+01,& - 0.1340E+01, 0.1342E+01, 0.1343E+01, 0.1345E+01,& - 0.1347E+01, 0.1349E+01, 0.1352E+01, 0.1354E+01,& - 0.1356E+01, 0.1358E+01, 0.1360E+01, 0.1362E+01,& - 0.1364E+01, 0.1367E+01, 0.1369E+01, 0.1371E+01,& - 0.1374E+01, 0.1376E+01, 0.1378E+01, 0.1381E+01,& - 0.1383E+01, 0.1386E+01, 0.1388E+01, 0.1391E+01,& - 0.1394E+01, 0.1396E+01, 0.1399E+01, 0.1402E+01,& - 0.1405E+01, 0.1408E+01, 0.1411E+01, 0.1414E+01,& - 0.1417E+01, 0.1420E+01, 0.1423E+01, 0.1426E+01,& - 0.1430E+01, 0.1433E+01, 0.1437E+01, 0.1440E+01,& - 0.1444E+01, 0.1448E+01, 0.1451E+01, 0.1455E+01,& - 0.1459E+01, 0.1464E+01, 0.1468E+01, 0.1472E+01,& - 0.1477E+01, 0.1482E+01, 0.1487E+01, 0.1492E+01,& - 0.1497E+01, 0.1503E+01, 0.1508E+01, 0.1514E+01,& - 0.1521E+01, 0.1527E+01, 0.1534E+01, 0.1541E+01,& - 0.1549E+01, 0.1557E+01, 0.1566E+01, 0.1575E+01,& - 0.1585E+01, 0.1596E+01, 0.1608E+01, 0.1622E+01,& - 0.1637E+01, 0.1654E+01, 0.1674E+01, 0.1698E+01,& - 0.1000E-04, 0.4004E+00, 0.4293E+00, 0.4478E+00/) - xcw(:, 7) = (/& - 0.1000E-04, 0.4004E+00, 0.4293E+00, 0.4478E+00,& - 0.4617E+00, 0.4730E+00, 0.4826E+00, 0.4910E+00,& - 0.4984E+00, 0.5052E+00, 0.5114E+00, 0.5171E+00,& - 0.5224E+00, 0.5274E+00, 0.5321E+00, 0.5365E+00,& - 0.5407E+00, 0.5447E+00, 0.5486E+00, 0.5522E+00,& - 0.5558E+00, 0.5592E+00, 0.5625E+00, 0.5656E+00,& - 0.5687E+00, 0.5717E+00, 0.5745E+00, 0.5773E+00,& - 0.5801E+00, 0.5827E+00, 0.5853E+00, 0.5878E+00,& - 0.5903E+00, 0.5927E+00, 0.5951E+00, 0.5974E+00,& - 0.5996E+00, 0.6018E+00, 0.6040E+00, 0.6061E+00,& - 0.6082E+00, 0.6103E+00, 0.6123E+00, 0.6143E+00,& - 0.6162E+00, 0.6182E+00, 0.6201E+00, 0.6219E+00,& - 0.6237E+00, 0.6256E+00, 0.6273E+00, 0.6291E+00,& - 0.6308E+00, 0.6325E+00, 0.6342E+00, 0.6359E+00,& - 0.6375E+00, 0.6392E+00, 0.6408E+00, 0.6424E+00,& - 0.6439E+00, 0.6455E+00, 0.6470E+00, 0.6485E+00,& - 0.6500E+00, 0.6515E+00, 0.6530E+00, 0.6544E+00,& - 0.6559E+00, 0.6573E+00, 0.6587E+00, 0.6601E+00,& - 0.6615E+00, 0.6629E+00, 0.6642E+00, 0.6656E+00,& - 0.6669E+00, 0.6682E+00, 0.6695E+00, 0.6709E+00,& - 0.6721E+00, 0.6734E+00, 0.6747E+00, 0.6760E+00,& - 0.6772E+00, 0.6785E+00, 0.6797E+00, 0.6809E+00,& - 0.6821E+00, 0.6833E+00, 0.6845E+00, 0.6857E+00,& - 0.6869E+00, 0.6881E+00, 0.6892E+00, 0.6904E+00,& - 0.6915E+00, 0.6927E+00, 0.6938E+00, 0.6949E+00,& - 0.6961E+00, 0.6972E+00, 0.6983E+00, 0.6994E+00,& - 0.7005E+00, 0.7016E+00, 0.7026E+00, 0.7037E+00,& - 0.7048E+00, 0.7059E+00, 0.7069E+00, 0.7080E+00,& - 0.7090E+00, 0.7100E+00, 0.7111E+00, 0.7121E+00,& - 0.7131E+00, 0.7141E+00, 0.7152E+00, 0.7162E+00,& - 0.7172E+00, 0.7182E+00, 0.7192E+00, 0.7202E+00,& - 0.7211E+00, 0.7221E+00, 0.7231E+00, 0.7241E+00,& - 0.7250E+00, 0.7260E+00, 0.7269E+00, 0.7279E+00,& - 0.7288E+00, 0.7298E+00, 0.7307E+00, 0.7317E+00,& - 0.7326E+00, 0.7335E+00, 0.7344E+00, 0.7354E+00,& - 0.7363E+00, 0.7372E+00, 0.7381E+00, 0.7390E+00,& - 0.7399E+00, 0.7408E+00, 0.7417E+00, 0.7426E+00,& - 0.7435E+00, 0.7444E+00, 0.7453E+00, 0.7461E+00,& - 0.7470E+00, 0.7479E+00, 0.7488E+00, 0.7496E+00,& - 0.7505E+00, 0.7514E+00, 0.7522E+00, 0.7531E+00,& - 0.7539E+00, 0.7548E+00, 0.7556E+00, 0.7565E+00,& - 0.7573E+00, 0.7581E+00, 0.7590E+00, 0.7598E+00,& - 0.7606E+00, 0.7615E+00, 0.7623E+00, 0.7631E+00,& - 0.7639E+00, 0.7648E+00, 0.7656E+00, 0.7664E+00,& - 0.7672E+00, 0.7680E+00, 0.7688E+00, 0.7696E+00,& - 0.7704E+00, 0.7712E+00, 0.7720E+00, 0.7728E+00,& - 0.7736E+00, 0.7744E+00, 0.7752E+00, 0.7760E+00,& - 0.7768E+00, 0.7775E+00, 0.7783E+00, 0.7791E+00,& - 0.7799E+00, 0.7806E+00, 0.7814E+00, 0.7822E+00,& - 0.7830E+00, 0.7837E+00, 0.7845E+00, 0.7853E+00,& - 0.7860E+00, 0.7868E+00, 0.7875E+00, 0.7883E+00,& - 0.7890E+00, 0.7898E+00, 0.7906E+00, 0.7913E+00,& - 0.7921E+00, 0.7928E+00, 0.7935E+00, 0.7943E+00,& - 0.7950E+00, 0.7958E+00, 0.7965E+00, 0.7972E+00,& - 0.7980E+00, 0.7987E+00, 0.7994E+00, 0.8002E+00,& - 0.8009E+00, 0.8016E+00, 0.8024E+00, 0.8031E+00,& - 0.8038E+00, 0.8045E+00, 0.8053E+00, 0.8060E+00,& - 0.8067E+00, 0.8074E+00, 0.8081E+00, 0.8088E+00,& - 0.8095E+00, 0.8103E+00, 0.8110E+00, 0.8117E+00,& - 0.8124E+00, 0.8131E+00, 0.8138E+00, 0.8145E+00,& - 0.8152E+00, 0.8159E+00, 0.8166E+00, 0.8173E+00,& - 0.8180E+00, 0.8187E+00, 0.8194E+00, 0.8201E+00,& - 0.8208E+00, 0.8215E+00, 0.8222E+00, 0.8229E+00,& - 0.8236E+00, 0.8242E+00, 0.8249E+00, 0.8256E+00,& - 0.8263E+00, 0.8270E+00, 0.8277E+00, 0.8284E+00,& - 0.8290E+00, 0.8297E+00, 0.8304E+00, 0.8311E+00,& - 0.8318E+00, 0.8324E+00, 0.8331E+00, 0.8338E+00,& - 0.8345E+00, 0.8351E+00, 0.8358E+00, 0.8365E+00,& - 0.8371E+00, 0.8378E+00, 0.8385E+00, 0.8391E+00,& - 0.8398E+00, 0.8405E+00, 0.8411E+00, 0.8418E+00,& - 0.8425E+00, 0.8431E+00, 0.8438E+00, 0.8445E+00,& - 0.8451E+00, 0.8458E+00, 0.8464E+00, 0.8471E+00,& - 0.8478E+00, 0.8484E+00, 0.8491E+00, 0.8497E+00,& - 0.8504E+00, 0.8510E+00, 0.8517E+00, 0.8523E+00,& - 0.8530E+00, 0.8536E+00, 0.8543E+00, 0.8549E+00,& - 0.8556E+00, 0.8562E+00, 0.8569E+00, 0.8575E+00,& - 0.8582E+00, 0.8588E+00, 0.8595E+00, 0.8601E+00,& - 0.8608E+00, 0.8614E+00, 0.8621E+00, 0.8627E+00,& - 0.8633E+00, 0.8640E+00, 0.8646E+00, 0.8653E+00,& - 0.8659E+00, 0.8665E+00, 0.8672E+00, 0.8678E+00,& - 0.8685E+00, 0.8691E+00, 0.8697E+00, 0.8704E+00,& - 0.8710E+00, 0.8716E+00, 0.8723E+00, 0.8729E+00,& - 0.8735E+00, 0.8742E+00, 0.8748E+00, 0.8754E+00,& - 0.8761E+00, 0.8767E+00, 0.8773E+00, 0.8780E+00,& - 0.8786E+00, 0.8792E+00, 0.8799E+00, 0.8805E+00,& - 0.8811E+00, 0.8817E+00, 0.8824E+00, 0.8830E+00,& - 0.8836E+00, 0.8842E+00, 0.8849E+00, 0.8855E+00,& - 0.8861E+00, 0.8867E+00, 0.8874E+00, 0.8880E+00,& - 0.8886E+00, 0.8892E+00, 0.8899E+00, 0.8905E+00,& - 0.8911E+00, 0.8917E+00, 0.8924E+00, 0.8930E+00,& - 0.8936E+00, 0.8942E+00, 0.8948E+00, 0.8955E+00,& - 0.8961E+00, 0.8967E+00, 0.8973E+00, 0.8979E+00,& - 0.8986E+00, 0.8992E+00, 0.8998E+00, 0.9004E+00,& - 0.9010E+00, 0.9017E+00, 0.9023E+00, 0.9029E+00,& - 0.9035E+00, 0.9041E+00, 0.9047E+00, 0.9054E+00,& - 0.9060E+00, 0.9066E+00, 0.9072E+00, 0.9078E+00,& - 0.9084E+00, 0.9090E+00, 0.9097E+00, 0.9103E+00,& - 0.9109E+00, 0.9115E+00, 0.9121E+00, 0.9127E+00,& - 0.9133E+00, 0.9140E+00, 0.9146E+00, 0.9152E+00,& - 0.9158E+00, 0.9164E+00, 0.9170E+00, 0.9176E+00,& - 0.9183E+00, 0.9189E+00, 0.9195E+00, 0.9201E+00,& - 0.9207E+00, 0.9213E+00, 0.9219E+00, 0.9225E+00,& - 0.9232E+00, 0.9238E+00, 0.9244E+00, 0.9250E+00,& - 0.9256E+00, 0.9262E+00, 0.9268E+00, 0.9274E+00,& - 0.9280E+00, 0.9287E+00, 0.9293E+00, 0.9299E+00,& - 0.9305E+00, 0.9311E+00, 0.9317E+00, 0.9323E+00,& - 0.9329E+00, 0.9335E+00, 0.9342E+00, 0.9348E+00,& - 0.9354E+00, 0.9360E+00, 0.9366E+00, 0.9372E+00,& - 0.9378E+00, 0.9384E+00, 0.9390E+00, 0.9397E+00,& - 0.9403E+00, 0.9409E+00, 0.9415E+00, 0.9421E+00,& - 0.9427E+00, 0.9433E+00, 0.9439E+00, 0.9445E+00,& - 0.9451E+00, 0.9458E+00, 0.9464E+00, 0.9470E+00,& - 0.9476E+00, 0.9482E+00, 0.9488E+00, 0.9494E+00,& - 0.9500E+00, 0.9507E+00, 0.9513E+00, 0.9519E+00,& - 0.9525E+00, 0.9531E+00, 0.9537E+00, 0.9543E+00,& - 0.9549E+00, 0.9555E+00, 0.9562E+00, 0.9568E+00,& - 0.9574E+00, 0.9580E+00, 0.9586E+00, 0.9592E+00,& - 0.9598E+00, 0.9604E+00, 0.9611E+00, 0.9617E+00,& - 0.9623E+00, 0.9629E+00, 0.9635E+00, 0.9641E+00,& - 0.9647E+00, 0.9654E+00, 0.9660E+00, 0.9666E+00,& - 0.9672E+00, 0.9678E+00, 0.9684E+00, 0.9691E+00,& - 0.9697E+00, 0.9703E+00, 0.9709E+00, 0.9715E+00,& - 0.9721E+00, 0.9728E+00, 0.9734E+00, 0.9740E+00,& - 0.9746E+00, 0.9752E+00, 0.9758E+00, 0.9765E+00,& - 0.9771E+00, 0.9777E+00, 0.9783E+00, 0.9789E+00,& - 0.9795E+00, 0.9802E+00, 0.9808E+00, 0.9814E+00,& - 0.9820E+00, 0.9827E+00, 0.9833E+00, 0.9839E+00,& - 0.9845E+00, 0.9851E+00, 0.9858E+00, 0.9864E+00,& - 0.9870E+00, 0.9876E+00, 0.9883E+00, 0.9889E+00,& - 0.9895E+00, 0.9901E+00, 0.9908E+00, 0.9914E+00,& - 0.9920E+00, 0.9926E+00, 0.9933E+00, 0.9939E+00,& - 0.9945E+00, 0.9951E+00, 0.9958E+00, 0.9964E+00,& - 0.9970E+00, 0.9977E+00, 0.9983E+00, 0.9989E+00,& - 0.9995E+00, 0.1000E+01, 0.1001E+01, 0.1001E+01,& - 0.1002E+01, 0.1003E+01, 0.1003E+01, 0.1004E+01,& - 0.1005E+01, 0.1005E+01, 0.1006E+01, 0.1007E+01,& - 0.1007E+01, 0.1008E+01, 0.1008E+01, 0.1009E+01,& - 0.1010E+01, 0.1010E+01, 0.1011E+01, 0.1012E+01,& - 0.1012E+01, 0.1013E+01, 0.1014E+01, 0.1014E+01,& - 0.1015E+01, 0.1015E+01, 0.1016E+01, 0.1017E+01,& - 0.1017E+01, 0.1018E+01, 0.1019E+01, 0.1019E+01,& - 0.1020E+01, 0.1021E+01, 0.1021E+01, 0.1022E+01,& - 0.1023E+01, 0.1023E+01, 0.1024E+01, 0.1024E+01,& - 0.1025E+01, 0.1026E+01, 0.1026E+01, 0.1027E+01,& - 0.1028E+01, 0.1028E+01, 0.1029E+01, 0.1030E+01,& - 0.1030E+01, 0.1031E+01, 0.1032E+01, 0.1032E+01,& - 0.1033E+01, 0.1034E+01, 0.1034E+01, 0.1035E+01,& - 0.1036E+01, 0.1036E+01, 0.1037E+01, 0.1038E+01,& - 0.1038E+01, 0.1039E+01, 0.1040E+01, 0.1040E+01,& - 0.1041E+01, 0.1042E+01, 0.1042E+01, 0.1043E+01,& - 0.1044E+01, 0.1044E+01, 0.1045E+01, 0.1046E+01,& - 0.1046E+01, 0.1047E+01, 0.1048E+01, 0.1048E+01,& - 0.1049E+01, 0.1050E+01, 0.1050E+01, 0.1051E+01,& - 0.1052E+01, 0.1052E+01, 0.1053E+01, 0.1054E+01,& - 0.1054E+01, 0.1055E+01, 0.1056E+01, 0.1056E+01,& - 0.1057E+01, 0.1058E+01, 0.1058E+01, 0.1059E+01,& - 0.1060E+01, 0.1060E+01, 0.1061E+01, 0.1062E+01,& - 0.1063E+01, 0.1063E+01, 0.1064E+01, 0.1065E+01,& - 0.1065E+01, 0.1066E+01, 0.1067E+01, 0.1067E+01,& - 0.1068E+01, 0.1069E+01, 0.1070E+01, 0.1070E+01,& - 0.1071E+01, 0.1072E+01, 0.1072E+01, 0.1073E+01,& - 0.1074E+01, 0.1074E+01, 0.1075E+01, 0.1076E+01,& - 0.1077E+01, 0.1077E+01, 0.1078E+01, 0.1079E+01,& - 0.1079E+01, 0.1080E+01, 0.1081E+01, 0.1082E+01,& - 0.1082E+01, 0.1083E+01, 0.1084E+01, 0.1084E+01,& - 0.1085E+01, 0.1086E+01, 0.1087E+01, 0.1087E+01,& - 0.1088E+01, 0.1089E+01, 0.1090E+01, 0.1090E+01,& - 0.1091E+01, 0.1092E+01, 0.1092E+01, 0.1093E+01,& - 0.1094E+01, 0.1095E+01, 0.1095E+01, 0.1096E+01,& - 0.1097E+01, 0.1098E+01, 0.1098E+01, 0.1099E+01,& - 0.1100E+01, 0.1101E+01, 0.1101E+01, 0.1102E+01,& - 0.1103E+01, 0.1104E+01, 0.1104E+01, 0.1105E+01,& - 0.1106E+01, 0.1107E+01, 0.1107E+01, 0.1108E+01,& - 0.1109E+01, 0.1110E+01, 0.1110E+01, 0.1111E+01,& - 0.1112E+01, 0.1113E+01, 0.1114E+01, 0.1114E+01,& - 0.1115E+01, 0.1116E+01, 0.1117E+01, 0.1117E+01,& - 0.1118E+01, 0.1119E+01, 0.1120E+01, 0.1121E+01,& - 0.1121E+01, 0.1122E+01, 0.1123E+01, 0.1124E+01,& - 0.1124E+01, 0.1125E+01, 0.1126E+01, 0.1127E+01,& - 0.1128E+01, 0.1128E+01, 0.1129E+01, 0.1130E+01,& - 0.1131E+01, 0.1132E+01, 0.1133E+01, 0.1133E+01,& - 0.1134E+01, 0.1135E+01, 0.1136E+01, 0.1137E+01,& - 0.1137E+01, 0.1138E+01, 0.1139E+01, 0.1140E+01,& - 0.1141E+01, 0.1142E+01, 0.1142E+01, 0.1143E+01,& - 0.1144E+01, 0.1145E+01, 0.1146E+01, 0.1147E+01,& - 0.1147E+01, 0.1148E+01, 0.1149E+01, 0.1150E+01,& - 0.1151E+01, 0.1152E+01, 0.1153E+01, 0.1153E+01,& - 0.1154E+01, 0.1155E+01, 0.1156E+01, 0.1157E+01,& - 0.1158E+01, 0.1159E+01, 0.1160E+01, 0.1160E+01,& - 0.1161E+01, 0.1162E+01, 0.1163E+01, 0.1164E+01,& - 0.1165E+01, 0.1166E+01, 0.1167E+01, 0.1168E+01,& - 0.1168E+01, 0.1169E+01, 0.1170E+01, 0.1171E+01,& - 0.1172E+01, 0.1173E+01, 0.1174E+01, 0.1175E+01,& - 0.1176E+01, 0.1177E+01, 0.1178E+01, 0.1179E+01,& - 0.1180E+01, 0.1180E+01, 0.1181E+01, 0.1182E+01,& - 0.1183E+01, 0.1184E+01, 0.1185E+01, 0.1186E+01,& - 0.1187E+01, 0.1188E+01, 0.1189E+01, 0.1190E+01,& - 0.1191E+01, 0.1192E+01, 0.1193E+01, 0.1194E+01,& - 0.1195E+01, 0.1196E+01, 0.1197E+01, 0.1198E+01,& - 0.1199E+01, 0.1200E+01, 0.1201E+01, 0.1202E+01,& - 0.1203E+01, 0.1204E+01, 0.1205E+01, 0.1206E+01,& - 0.1207E+01, 0.1208E+01, 0.1209E+01, 0.1210E+01,& - 0.1211E+01, 0.1212E+01, 0.1213E+01, 0.1214E+01,& - 0.1215E+01, 0.1216E+01, 0.1217E+01, 0.1219E+01,& - 0.1220E+01, 0.1221E+01, 0.1222E+01, 0.1223E+01,& - 0.1224E+01, 0.1225E+01, 0.1226E+01, 0.1227E+01,& - 0.1228E+01, 0.1229E+01, 0.1231E+01, 0.1232E+01,& - 0.1233E+01, 0.1234E+01, 0.1235E+01, 0.1236E+01,& - 0.1237E+01, 0.1239E+01, 0.1240E+01, 0.1241E+01,& - 0.1242E+01, 0.1243E+01, 0.1244E+01, 0.1246E+01,& - 0.1247E+01, 0.1248E+01, 0.1249E+01, 0.1250E+01,& - 0.1252E+01, 0.1253E+01, 0.1254E+01, 0.1255E+01,& - 0.1257E+01, 0.1258E+01, 0.1259E+01, 0.1260E+01,& - 0.1262E+01, 0.1263E+01, 0.1264E+01, 0.1265E+01,& - 0.1267E+01, 0.1268E+01, 0.1269E+01, 0.1271E+01,& - 0.1272E+01, 0.1273E+01, 0.1275E+01, 0.1276E+01,& - 0.1277E+01, 0.1279E+01, 0.1280E+01, 0.1281E+01,& - 0.1283E+01, 0.1284E+01, 0.1286E+01, 0.1287E+01,& - 0.1288E+01, 0.1290E+01, 0.1291E+01, 0.1293E+01,& - 0.1294E+01, 0.1296E+01, 0.1297E+01, 0.1299E+01,& - 0.1300E+01, 0.1302E+01, 0.1303E+01, 0.1305E+01,& - 0.1306E+01, 0.1308E+01, 0.1309E+01, 0.1311E+01,& - 0.1312E+01, 0.1314E+01, 0.1316E+01, 0.1317E+01,& - 0.1319E+01, 0.1321E+01, 0.1322E+01, 0.1324E+01,& - 0.1325E+01, 0.1327E+01, 0.1329E+01, 0.1331E+01,& - 0.1332E+01, 0.1334E+01, 0.1336E+01, 0.1338E+01,& - 0.1339E+01, 0.1341E+01, 0.1343E+01, 0.1345E+01,& - 0.1347E+01, 0.1349E+01, 0.1350E+01, 0.1352E+01,& - 0.1354E+01, 0.1356E+01, 0.1358E+01, 0.1360E+01,& - 0.1362E+01, 0.1364E+01, 0.1366E+01, 0.1368E+01,& - 0.1370E+01, 0.1372E+01, 0.1375E+01, 0.1377E+01,& - 0.1379E+01, 0.1381E+01, 0.1383E+01, 0.1386E+01,& - 0.1388E+01, 0.1390E+01, 0.1393E+01, 0.1395E+01,& - 0.1397E+01, 0.1400E+01, 0.1402E+01, 0.1405E+01,& - 0.1407E+01, 0.1410E+01, 0.1412E+01, 0.1415E+01,& - 0.1418E+01, 0.1420E+01, 0.1423E+01, 0.1426E+01,& - 0.1429E+01, 0.1431E+01, 0.1434E+01, 0.1437E+01,& - 0.1440E+01, 0.1443E+01, 0.1447E+01, 0.1450E+01,& - 0.1453E+01, 0.1456E+01, 0.1460E+01, 0.1463E+01,& - 0.1466E+01, 0.1470E+01, 0.1474E+01, 0.1477E+01,& - 0.1481E+01, 0.1485E+01, 0.1489E+01, 0.1493E+01,& - 0.1497E+01, 0.1502E+01, 0.1506E+01, 0.1510E+01,& - 0.1515E+01, 0.1520E+01, 0.1525E+01, 0.1530E+01,& - 0.1535E+01, 0.1541E+01, 0.1546E+01, 0.1552E+01,& - 0.1558E+01, 0.1564E+01, 0.1571E+01, 0.1578E+01,& - 0.1585E+01, 0.1592E+01, 0.1600E+01, 0.1608E+01,& - 0.1617E+01, 0.1626E+01, 0.1636E+01, 0.1647E+01,& - 0.1659E+01, 0.1671E+01, 0.1685E+01, 0.1700E+01,& - 0.1718E+01, 0.1737E+01, 0.1760E+01, 0.1788E+01,& - 0.1000E-04, 0.3585E+00, 0.3880E+00, 0.4069E+00/) - xcw(:, 8) = (/& - 0.1000E-04, 0.3585E+00, 0.3880E+00, 0.4069E+00,& - 0.4213E+00, 0.4329E+00, 0.4429E+00, 0.4516E+00,& - 0.4593E+00, 0.4663E+00, 0.4728E+00, 0.4787E+00,& - 0.4842E+00, 0.4894E+00, 0.4943E+00, 0.4990E+00,& - 0.5034E+00, 0.5076E+00, 0.5116E+00, 0.5155E+00,& - 0.5192E+00, 0.5227E+00, 0.5262E+00, 0.5295E+00,& - 0.5327E+00, 0.5358E+00, 0.5389E+00, 0.5418E+00,& - 0.5447E+00, 0.5475E+00, 0.5502E+00, 0.5529E+00,& - 0.5555E+00, 0.5580E+00, 0.5605E+00, 0.5629E+00,& - 0.5653E+00, 0.5676E+00, 0.5699E+00, 0.5722E+00,& - 0.5744E+00, 0.5766E+00, 0.5787E+00, 0.5808E+00,& - 0.5829E+00, 0.5849E+00, 0.5869E+00, 0.5889E+00,& - 0.5908E+00, 0.5927E+00, 0.5946E+00, 0.5965E+00,& - 0.5983E+00, 0.6001E+00, 0.6019E+00, 0.6037E+00,& - 0.6054E+00, 0.6072E+00, 0.6089E+00, 0.6106E+00,& - 0.6122E+00, 0.6139E+00, 0.6155E+00, 0.6171E+00,& - 0.6187E+00, 0.6203E+00, 0.6219E+00, 0.6234E+00,& - 0.6249E+00, 0.6265E+00, 0.6280E+00, 0.6294E+00,& - 0.6309E+00, 0.6324E+00, 0.6338E+00, 0.6353E+00,& - 0.6367E+00, 0.6381E+00, 0.6395E+00, 0.6409E+00,& - 0.6423E+00, 0.6436E+00, 0.6450E+00, 0.6463E+00,& - 0.6477E+00, 0.6490E+00, 0.6503E+00, 0.6516E+00,& - 0.6529E+00, 0.6542E+00, 0.6555E+00, 0.6568E+00,& - 0.6580E+00, 0.6593E+00, 0.6605E+00, 0.6618E+00,& - 0.6630E+00, 0.6642E+00, 0.6654E+00, 0.6666E+00,& - 0.6678E+00, 0.6690E+00, 0.6702E+00, 0.6714E+00,& - 0.6725E+00, 0.6737E+00, 0.6749E+00, 0.6760E+00,& - 0.6772E+00, 0.6783E+00, 0.6794E+00, 0.6806E+00,& - 0.6817E+00, 0.6828E+00, 0.6839E+00, 0.6850E+00,& - 0.6861E+00, 0.6872E+00, 0.6883E+00, 0.6893E+00,& - 0.6904E+00, 0.6915E+00, 0.6926E+00, 0.6936E+00,& - 0.6947E+00, 0.6957E+00, 0.6968E+00, 0.6978E+00,& - 0.6988E+00, 0.6999E+00, 0.7009E+00, 0.7019E+00,& - 0.7029E+00, 0.7040E+00, 0.7050E+00, 0.7060E+00,& - 0.7070E+00, 0.7080E+00, 0.7090E+00, 0.7099E+00,& - 0.7109E+00, 0.7119E+00, 0.7129E+00, 0.7139E+00,& - 0.7148E+00, 0.7158E+00, 0.7168E+00, 0.7177E+00,& - 0.7187E+00, 0.7196E+00, 0.7206E+00, 0.7215E+00,& - 0.7225E+00, 0.7234E+00, 0.7243E+00, 0.7253E+00,& - 0.7262E+00, 0.7271E+00, 0.7281E+00, 0.7290E+00,& - 0.7299E+00, 0.7308E+00, 0.7317E+00, 0.7326E+00,& - 0.7335E+00, 0.7344E+00, 0.7353E+00, 0.7362E+00,& - 0.7371E+00, 0.7380E+00, 0.7389E+00, 0.7398E+00,& - 0.7407E+00, 0.7416E+00, 0.7424E+00, 0.7433E+00,& - 0.7442E+00, 0.7451E+00, 0.7459E+00, 0.7468E+00,& - 0.7477E+00, 0.7485E+00, 0.7494E+00, 0.7502E+00,& - 0.7511E+00, 0.7520E+00, 0.7528E+00, 0.7537E+00,& - 0.7545E+00, 0.7553E+00, 0.7562E+00, 0.7570E+00,& - 0.7579E+00, 0.7587E+00, 0.7595E+00, 0.7604E+00,& - 0.7612E+00, 0.7620E+00, 0.7629E+00, 0.7637E+00,& - 0.7645E+00, 0.7653E+00, 0.7661E+00, 0.7670E+00,& - 0.7678E+00, 0.7686E+00, 0.7694E+00, 0.7702E+00,& - 0.7710E+00, 0.7718E+00, 0.7726E+00, 0.7734E+00,& - 0.7742E+00, 0.7750E+00, 0.7758E+00, 0.7766E+00,& - 0.7774E+00, 0.7782E+00, 0.7790E+00, 0.7798E+00,& - 0.7806E+00, 0.7814E+00, 0.7822E+00, 0.7829E+00,& - 0.7837E+00, 0.7845E+00, 0.7853E+00, 0.7861E+00,& - 0.7868E+00, 0.7876E+00, 0.7884E+00, 0.7892E+00,& - 0.7899E+00, 0.7907E+00, 0.7915E+00, 0.7922E+00,& - 0.7930E+00, 0.7938E+00, 0.7945E+00, 0.7953E+00,& - 0.7961E+00, 0.7968E+00, 0.7976E+00, 0.7983E+00,& - 0.7991E+00, 0.7998E+00, 0.8006E+00, 0.8014E+00,& - 0.8021E+00, 0.8029E+00, 0.8036E+00, 0.8044E+00,& - 0.8051E+00, 0.8059E+00, 0.8066E+00, 0.8073E+00,& - 0.8081E+00, 0.8088E+00, 0.8096E+00, 0.8103E+00,& - 0.8110E+00, 0.8118E+00, 0.8125E+00, 0.8133E+00,& - 0.8140E+00, 0.8147E+00, 0.8155E+00, 0.8162E+00,& - 0.8169E+00, 0.8176E+00, 0.8184E+00, 0.8191E+00,& - 0.8198E+00, 0.8206E+00, 0.8213E+00, 0.8220E+00,& - 0.8227E+00, 0.8235E+00, 0.8242E+00, 0.8249E+00,& - 0.8256E+00, 0.8263E+00, 0.8271E+00, 0.8278E+00,& - 0.8285E+00, 0.8292E+00, 0.8299E+00, 0.8306E+00,& - 0.8314E+00, 0.8321E+00, 0.8328E+00, 0.8335E+00,& - 0.8342E+00, 0.8349E+00, 0.8356E+00, 0.8363E+00,& - 0.8370E+00, 0.8378E+00, 0.8385E+00, 0.8392E+00,& - 0.8399E+00, 0.8406E+00, 0.8413E+00, 0.8420E+00,& - 0.8427E+00, 0.8434E+00, 0.8441E+00, 0.8448E+00,& - 0.8455E+00, 0.8462E+00, 0.8469E+00, 0.8476E+00,& - 0.8483E+00, 0.8490E+00, 0.8497E+00, 0.8504E+00,& - 0.8511E+00, 0.8518E+00, 0.8525E+00, 0.8532E+00,& - 0.8539E+00, 0.8545E+00, 0.8552E+00, 0.8559E+00,& - 0.8566E+00, 0.8573E+00, 0.8580E+00, 0.8587E+00,& - 0.8594E+00, 0.8601E+00, 0.8608E+00, 0.8615E+00,& - 0.8621E+00, 0.8628E+00, 0.8635E+00, 0.8642E+00,& - 0.8649E+00, 0.8656E+00, 0.8663E+00, 0.8669E+00,& - 0.8676E+00, 0.8683E+00, 0.8690E+00, 0.8697E+00,& - 0.8704E+00, 0.8710E+00, 0.8717E+00, 0.8724E+00,& - 0.8731E+00, 0.8738E+00, 0.8744E+00, 0.8751E+00,& - 0.8758E+00, 0.8765E+00, 0.8772E+00, 0.8778E+00,& - 0.8785E+00, 0.8792E+00, 0.8799E+00, 0.8806E+00,& - 0.8812E+00, 0.8819E+00, 0.8826E+00, 0.8833E+00,& - 0.8839E+00, 0.8846E+00, 0.8853E+00, 0.8860E+00,& - 0.8866E+00, 0.8873E+00, 0.8880E+00, 0.8887E+00,& - 0.8893E+00, 0.8900E+00, 0.8907E+00, 0.8914E+00,& - 0.8920E+00, 0.8927E+00, 0.8934E+00, 0.8941E+00,& - 0.8947E+00, 0.8954E+00, 0.8961E+00, 0.8967E+00,& - 0.8974E+00, 0.8981E+00, 0.8988E+00, 0.8994E+00,& - 0.9001E+00, 0.9008E+00, 0.9014E+00, 0.9021E+00,& - 0.9028E+00, 0.9035E+00, 0.9041E+00, 0.9048E+00,& - 0.9055E+00, 0.9061E+00, 0.9068E+00, 0.9075E+00,& - 0.9081E+00, 0.9088E+00, 0.9095E+00, 0.9101E+00,& - 0.9108E+00, 0.9115E+00, 0.9122E+00, 0.9128E+00,& - 0.9135E+00, 0.9142E+00, 0.9148E+00, 0.9155E+00,& - 0.9162E+00, 0.9168E+00, 0.9175E+00, 0.9182E+00,& - 0.9188E+00, 0.9195E+00, 0.9202E+00, 0.9208E+00,& - 0.9215E+00, 0.9222E+00, 0.9228E+00, 0.9235E+00,& - 0.9242E+00, 0.9248E+00, 0.9255E+00, 0.9262E+00,& - 0.9269E+00, 0.9275E+00, 0.9282E+00, 0.9289E+00,& - 0.9295E+00, 0.9302E+00, 0.9309E+00, 0.9315E+00,& - 0.9322E+00, 0.9329E+00, 0.9335E+00, 0.9342E+00,& - 0.9349E+00, 0.9355E+00, 0.9362E+00, 0.9369E+00,& - 0.9375E+00, 0.9382E+00, 0.9389E+00, 0.9396E+00,& - 0.9402E+00, 0.9409E+00, 0.9416E+00, 0.9422E+00,& - 0.9429E+00, 0.9436E+00, 0.9442E+00, 0.9449E+00,& - 0.9456E+00, 0.9462E+00, 0.9469E+00, 0.9476E+00,& - 0.9483E+00, 0.9489E+00, 0.9496E+00, 0.9503E+00,& - 0.9509E+00, 0.9516E+00, 0.9523E+00, 0.9530E+00,& - 0.9536E+00, 0.9543E+00, 0.9550E+00, 0.9556E+00,& - 0.9563E+00, 0.9570E+00, 0.9577E+00, 0.9583E+00,& - 0.9590E+00, 0.9597E+00, 0.9604E+00, 0.9610E+00,& - 0.9617E+00, 0.9624E+00, 0.9631E+00, 0.9637E+00,& - 0.9644E+00, 0.9651E+00, 0.9658E+00, 0.9664E+00,& - 0.9671E+00, 0.9678E+00, 0.9685E+00, 0.9691E+00,& - 0.9698E+00, 0.9705E+00, 0.9712E+00, 0.9719E+00,& - 0.9725E+00, 0.9732E+00, 0.9739E+00, 0.9746E+00,& - 0.9752E+00, 0.9759E+00, 0.9766E+00, 0.9773E+00,& - 0.9780E+00, 0.9787E+00, 0.9793E+00, 0.9800E+00,& - 0.9807E+00, 0.9814E+00, 0.9821E+00, 0.9827E+00,& - 0.9834E+00, 0.9841E+00, 0.9848E+00, 0.9855E+00,& - 0.9862E+00, 0.9869E+00, 0.9875E+00, 0.9882E+00,& - 0.9889E+00, 0.9896E+00, 0.9903E+00, 0.9910E+00,& - 0.9917E+00, 0.9924E+00, 0.9930E+00, 0.9937E+00,& - 0.9944E+00, 0.9951E+00, 0.9958E+00, 0.9965E+00,& - 0.9972E+00, 0.9979E+00, 0.9986E+00, 0.9993E+00,& - 0.1000E+01, 0.1001E+01, 0.1001E+01, 0.1002E+01,& - 0.1003E+01, 0.1003E+01, 0.1004E+01, 0.1005E+01,& - 0.1006E+01, 0.1006E+01, 0.1007E+01, 0.1008E+01,& - 0.1008E+01, 0.1009E+01, 0.1010E+01, 0.1010E+01,& - 0.1011E+01, 0.1012E+01, 0.1013E+01, 0.1013E+01,& - 0.1014E+01, 0.1015E+01, 0.1015E+01, 0.1016E+01,& - 0.1017E+01, 0.1017E+01, 0.1018E+01, 0.1019E+01,& - 0.1020E+01, 0.1020E+01, 0.1021E+01, 0.1022E+01,& - 0.1022E+01, 0.1023E+01, 0.1024E+01, 0.1025E+01,& - 0.1025E+01, 0.1026E+01, 0.1027E+01, 0.1027E+01,& - 0.1028E+01, 0.1029E+01, 0.1030E+01, 0.1030E+01,& - 0.1031E+01, 0.1032E+01, 0.1032E+01, 0.1033E+01,& - 0.1034E+01, 0.1035E+01, 0.1035E+01, 0.1036E+01,& - 0.1037E+01, 0.1038E+01, 0.1038E+01, 0.1039E+01,& - 0.1040E+01, 0.1040E+01, 0.1041E+01, 0.1042E+01,& - 0.1043E+01, 0.1043E+01, 0.1044E+01, 0.1045E+01,& - 0.1046E+01, 0.1046E+01, 0.1047E+01, 0.1048E+01,& - 0.1049E+01, 0.1049E+01, 0.1050E+01, 0.1051E+01,& - 0.1052E+01, 0.1052E+01, 0.1053E+01, 0.1054E+01,& - 0.1055E+01, 0.1055E+01, 0.1056E+01, 0.1057E+01,& - 0.1057E+01, 0.1058E+01, 0.1059E+01, 0.1060E+01,& - 0.1061E+01, 0.1061E+01, 0.1062E+01, 0.1063E+01,& - 0.1064E+01, 0.1064E+01, 0.1065E+01, 0.1066E+01,& - 0.1067E+01, 0.1067E+01, 0.1068E+01, 0.1069E+01,& - 0.1070E+01, 0.1070E+01, 0.1071E+01, 0.1072E+01,& - 0.1073E+01, 0.1073E+01, 0.1074E+01, 0.1075E+01,& - 0.1076E+01, 0.1077E+01, 0.1077E+01, 0.1078E+01,& - 0.1079E+01, 0.1080E+01, 0.1080E+01, 0.1081E+01,& - 0.1082E+01, 0.1083E+01, 0.1084E+01, 0.1084E+01,& - 0.1085E+01, 0.1086E+01, 0.1087E+01, 0.1088E+01,& - 0.1088E+01, 0.1089E+01, 0.1090E+01, 0.1091E+01,& - 0.1092E+01, 0.1092E+01, 0.1093E+01, 0.1094E+01,& - 0.1095E+01, 0.1096E+01, 0.1096E+01, 0.1097E+01,& - 0.1098E+01, 0.1099E+01, 0.1100E+01, 0.1100E+01,& - 0.1101E+01, 0.1102E+01, 0.1103E+01, 0.1104E+01,& - 0.1104E+01, 0.1105E+01, 0.1106E+01, 0.1107E+01,& - 0.1108E+01, 0.1109E+01, 0.1109E+01, 0.1110E+01,& - 0.1111E+01, 0.1112E+01, 0.1113E+01, 0.1114E+01,& - 0.1114E+01, 0.1115E+01, 0.1116E+01, 0.1117E+01,& - 0.1118E+01, 0.1119E+01, 0.1119E+01, 0.1120E+01,& - 0.1121E+01, 0.1122E+01, 0.1123E+01, 0.1124E+01,& - 0.1125E+01, 0.1125E+01, 0.1126E+01, 0.1127E+01,& - 0.1128E+01, 0.1129E+01, 0.1130E+01, 0.1131E+01,& - 0.1132E+01, 0.1132E+01, 0.1133E+01, 0.1134E+01,& - 0.1135E+01, 0.1136E+01, 0.1137E+01, 0.1138E+01,& - 0.1139E+01, 0.1139E+01, 0.1140E+01, 0.1141E+01,& - 0.1142E+01, 0.1143E+01, 0.1144E+01, 0.1145E+01,& - 0.1146E+01, 0.1147E+01, 0.1148E+01, 0.1148E+01,& - 0.1149E+01, 0.1150E+01, 0.1151E+01, 0.1152E+01,& - 0.1153E+01, 0.1154E+01, 0.1155E+01, 0.1156E+01,& - 0.1157E+01, 0.1158E+01, 0.1159E+01, 0.1160E+01,& - 0.1160E+01, 0.1161E+01, 0.1162E+01, 0.1163E+01,& - 0.1164E+01, 0.1165E+01, 0.1166E+01, 0.1167E+01,& - 0.1168E+01, 0.1169E+01, 0.1170E+01, 0.1171E+01,& - 0.1172E+01, 0.1173E+01, 0.1174E+01, 0.1175E+01,& - 0.1176E+01, 0.1177E+01, 0.1178E+01, 0.1179E+01,& - 0.1180E+01, 0.1181E+01, 0.1182E+01, 0.1183E+01,& - 0.1184E+01, 0.1185E+01, 0.1186E+01, 0.1187E+01,& - 0.1188E+01, 0.1189E+01, 0.1190E+01, 0.1191E+01,& - 0.1192E+01, 0.1193E+01, 0.1194E+01, 0.1195E+01,& - 0.1196E+01, 0.1197E+01, 0.1198E+01, 0.1199E+01,& - 0.1200E+01, 0.1201E+01, 0.1202E+01, 0.1203E+01,& - 0.1204E+01, 0.1206E+01, 0.1207E+01, 0.1208E+01,& - 0.1209E+01, 0.1210E+01, 0.1211E+01, 0.1212E+01,& - 0.1213E+01, 0.1214E+01, 0.1215E+01, 0.1216E+01,& - 0.1218E+01, 0.1219E+01, 0.1220E+01, 0.1221E+01,& - 0.1222E+01, 0.1223E+01, 0.1224E+01, 0.1225E+01,& - 0.1227E+01, 0.1228E+01, 0.1229E+01, 0.1230E+01,& - 0.1231E+01, 0.1232E+01, 0.1233E+01, 0.1235E+01,& - 0.1236E+01, 0.1237E+01, 0.1238E+01, 0.1239E+01,& - 0.1241E+01, 0.1242E+01, 0.1243E+01, 0.1244E+01,& - 0.1245E+01, 0.1247E+01, 0.1248E+01, 0.1249E+01,& - 0.1250E+01, 0.1252E+01, 0.1253E+01, 0.1254E+01,& - 0.1255E+01, 0.1257E+01, 0.1258E+01, 0.1259E+01,& - 0.1260E+01, 0.1262E+01, 0.1263E+01, 0.1264E+01,& - 0.1266E+01, 0.1267E+01, 0.1268E+01, 0.1270E+01,& - 0.1271E+01, 0.1272E+01, 0.1274E+01, 0.1275E+01,& - 0.1276E+01, 0.1278E+01, 0.1279E+01, 0.1280E+01,& - 0.1282E+01, 0.1283E+01, 0.1285E+01, 0.1286E+01,& - 0.1287E+01, 0.1289E+01, 0.1290E+01, 0.1292E+01,& - 0.1293E+01, 0.1295E+01, 0.1296E+01, 0.1297E+01,& - 0.1299E+01, 0.1300E+01, 0.1302E+01, 0.1303E+01,& - 0.1305E+01, 0.1306E+01, 0.1308E+01, 0.1310E+01,& - 0.1311E+01, 0.1313E+01, 0.1314E+01, 0.1316E+01,& - 0.1317E+01, 0.1319E+01, 0.1321E+01, 0.1322E+01,& - 0.1324E+01, 0.1325E+01, 0.1327E+01, 0.1329E+01,& - 0.1330E+01, 0.1332E+01, 0.1334E+01, 0.1335E+01,& - 0.1337E+01, 0.1339E+01, 0.1341E+01, 0.1342E+01,& - 0.1344E+01, 0.1346E+01, 0.1348E+01, 0.1350E+01,& - 0.1351E+01, 0.1353E+01, 0.1355E+01, 0.1357E+01,& - 0.1359E+01, 0.1361E+01, 0.1363E+01, 0.1364E+01,& - 0.1366E+01, 0.1368E+01, 0.1370E+01, 0.1372E+01,& - 0.1374E+01, 0.1376E+01, 0.1378E+01, 0.1380E+01,& - 0.1382E+01, 0.1385E+01, 0.1387E+01, 0.1389E+01,& - 0.1391E+01, 0.1393E+01, 0.1395E+01, 0.1398E+01,& - 0.1400E+01, 0.1402E+01, 0.1404E+01, 0.1407E+01,& - 0.1409E+01, 0.1411E+01, 0.1414E+01, 0.1416E+01,& - 0.1419E+01, 0.1421E+01, 0.1424E+01, 0.1426E+01,& - 0.1429E+01, 0.1431E+01, 0.1434E+01, 0.1436E+01,& - 0.1439E+01, 0.1442E+01, 0.1445E+01, 0.1447E+01,& - 0.1450E+01, 0.1453E+01, 0.1456E+01, 0.1459E+01,& - 0.1462E+01, 0.1465E+01, 0.1468E+01, 0.1471E+01,& - 0.1474E+01, 0.1477E+01, 0.1481E+01, 0.1484E+01,& - 0.1487E+01, 0.1491E+01, 0.1494E+01, 0.1498E+01,& - 0.1502E+01, 0.1505E+01, 0.1509E+01, 0.1513E+01,& - 0.1517E+01, 0.1521E+01, 0.1525E+01, 0.1529E+01,& - 0.1533E+01, 0.1538E+01, 0.1542E+01, 0.1547E+01,& - 0.1552E+01, 0.1556E+01, 0.1561E+01, 0.1566E+01,& - 0.1572E+01, 0.1577E+01, 0.1583E+01, 0.1588E+01,& - 0.1594E+01, 0.1600E+01, 0.1607E+01, 0.1613E+01,& - 0.1620E+01, 0.1627E+01, 0.1634E+01, 0.1642E+01,& - 0.1650E+01, 0.1659E+01, 0.1667E+01, 0.1677E+01,& - 0.1687E+01, 0.1697E+01, 0.1709E+01, 0.1721E+01,& - 0.1734E+01, 0.1748E+01, 0.1764E+01, 0.1781E+01,& - 0.1800E+01, 0.1823E+01, 0.1849E+01, 0.1880E+01,& - 0.1000E-04, 0.3197E+00, 0.3494E+00, 0.3686E+00/) - xcw(:, 9) = (/& - 0.1000E-04, 0.3197E+00, 0.3494E+00, 0.3686E+00,& - 0.3832E+00, 0.3951E+00, 0.4053E+00, 0.4142E+00,& - 0.4221E+00, 0.4294E+00, 0.4360E+00, 0.4421E+00,& - 0.4478E+00, 0.4532E+00, 0.4583E+00, 0.4631E+00,& - 0.4676E+00, 0.4720E+00, 0.4761E+00, 0.4801E+00,& - 0.4840E+00, 0.4877E+00, 0.4913E+00, 0.4947E+00,& - 0.4981E+00, 0.5013E+00, 0.5045E+00, 0.5076E+00,& - 0.5105E+00, 0.5135E+00, 0.5163E+00, 0.5191E+00,& - 0.5218E+00, 0.5244E+00, 0.5270E+00, 0.5296E+00,& - 0.5321E+00, 0.5345E+00, 0.5369E+00, 0.5393E+00,& - 0.5416E+00, 0.5439E+00, 0.5461E+00, 0.5483E+00,& - 0.5505E+00, 0.5526E+00, 0.5547E+00, 0.5568E+00,& - 0.5588E+00, 0.5608E+00, 0.5628E+00, 0.5648E+00,& - 0.5667E+00, 0.5686E+00, 0.5705E+00, 0.5723E+00,& - 0.5742E+00, 0.5760E+00, 0.5778E+00, 0.5796E+00,& - 0.5813E+00, 0.5831E+00, 0.5848E+00, 0.5865E+00,& - 0.5881E+00, 0.5898E+00, 0.5915E+00, 0.5931E+00,& - 0.5947E+00, 0.5963E+00, 0.5979E+00, 0.5995E+00,& - 0.6010E+00, 0.6026E+00, 0.6041E+00, 0.6056E+00,& - 0.6071E+00, 0.6086E+00, 0.6101E+00, 0.6116E+00,& - 0.6130E+00, 0.6145E+00, 0.6159E+00, 0.6173E+00,& - 0.6187E+00, 0.6201E+00, 0.6215E+00, 0.6229E+00,& - 0.6243E+00, 0.6256E+00, 0.6270E+00, 0.6283E+00,& - 0.6297E+00, 0.6310E+00, 0.6323E+00, 0.6336E+00,& - 0.6349E+00, 0.6362E+00, 0.6375E+00, 0.6388E+00,& - 0.6400E+00, 0.6413E+00, 0.6426E+00, 0.6438E+00,& - 0.6450E+00, 0.6463E+00, 0.6475E+00, 0.6487E+00,& - 0.6499E+00, 0.6511E+00, 0.6523E+00, 0.6535E+00,& - 0.6547E+00, 0.6559E+00, 0.6571E+00, 0.6583E+00,& - 0.6594E+00, 0.6606E+00, 0.6617E+00, 0.6629E+00,& - 0.6640E+00, 0.6652E+00, 0.6663E+00, 0.6674E+00,& - 0.6685E+00, 0.6696E+00, 0.6708E+00, 0.6719E+00,& - 0.6730E+00, 0.6741E+00, 0.6752E+00, 0.6762E+00,& - 0.6773E+00, 0.6784E+00, 0.6795E+00, 0.6805E+00,& - 0.6816E+00, 0.6827E+00, 0.6837E+00, 0.6848E+00,& - 0.6858E+00, 0.6869E+00, 0.6879E+00, 0.6890E+00,& - 0.6900E+00, 0.6910E+00, 0.6920E+00, 0.6931E+00,& - 0.6941E+00, 0.6951E+00, 0.6961E+00, 0.6971E+00,& - 0.6981E+00, 0.6991E+00, 0.7001E+00, 0.7011E+00,& - 0.7021E+00, 0.7031E+00, 0.7041E+00, 0.7051E+00,& - 0.7060E+00, 0.7070E+00, 0.7080E+00, 0.7090E+00,& - 0.7099E+00, 0.7109E+00, 0.7119E+00, 0.7128E+00,& - 0.7138E+00, 0.7147E+00, 0.7157E+00, 0.7166E+00,& - 0.7176E+00, 0.7185E+00, 0.7194E+00, 0.7204E+00,& - 0.7213E+00, 0.7222E+00, 0.7232E+00, 0.7241E+00,& - 0.7250E+00, 0.7259E+00, 0.7269E+00, 0.7278E+00,& - 0.7287E+00, 0.7296E+00, 0.7305E+00, 0.7314E+00,& - 0.7323E+00, 0.7332E+00, 0.7341E+00, 0.7350E+00,& - 0.7359E+00, 0.7368E+00, 0.7377E+00, 0.7386E+00,& - 0.7395E+00, 0.7404E+00, 0.7413E+00, 0.7421E+00,& - 0.7430E+00, 0.7439E+00, 0.7448E+00, 0.7457E+00,& - 0.7465E+00, 0.7474E+00, 0.7483E+00, 0.7491E+00,& - 0.7500E+00, 0.7509E+00, 0.7517E+00, 0.7526E+00,& - 0.7534E+00, 0.7543E+00, 0.7552E+00, 0.7560E+00,& - 0.7569E+00, 0.7577E+00, 0.7586E+00, 0.7594E+00,& - 0.7602E+00, 0.7611E+00, 0.7619E+00, 0.7628E+00,& - 0.7636E+00, 0.7645E+00, 0.7653E+00, 0.7661E+00,& - 0.7670E+00, 0.7678E+00, 0.7686E+00, 0.7694E+00,& - 0.7703E+00, 0.7711E+00, 0.7719E+00, 0.7727E+00,& - 0.7736E+00, 0.7744E+00, 0.7752E+00, 0.7760E+00,& - 0.7768E+00, 0.7777E+00, 0.7785E+00, 0.7793E+00,& - 0.7801E+00, 0.7809E+00, 0.7817E+00, 0.7825E+00,& - 0.7833E+00, 0.7841E+00, 0.7850E+00, 0.7858E+00,& - 0.7866E+00, 0.7874E+00, 0.7882E+00, 0.7890E+00,& - 0.7898E+00, 0.7906E+00, 0.7913E+00, 0.7921E+00,& - 0.7929E+00, 0.7937E+00, 0.7945E+00, 0.7953E+00,& - 0.7961E+00, 0.7969E+00, 0.7977E+00, 0.7985E+00,& - 0.7993E+00, 0.8000E+00, 0.8008E+00, 0.8016E+00,& - 0.8024E+00, 0.8032E+00, 0.8040E+00, 0.8047E+00,& - 0.8055E+00, 0.8063E+00, 0.8071E+00, 0.8078E+00,& - 0.8086E+00, 0.8094E+00, 0.8102E+00, 0.8109E+00,& - 0.8117E+00, 0.8125E+00, 0.8133E+00, 0.8140E+00,& - 0.8148E+00, 0.8156E+00, 0.8163E+00, 0.8171E+00,& - 0.8179E+00, 0.8186E+00, 0.8194E+00, 0.8201E+00,& - 0.8209E+00, 0.8217E+00, 0.8224E+00, 0.8232E+00,& - 0.8240E+00, 0.8247E+00, 0.8255E+00, 0.8262E+00,& - 0.8270E+00, 0.8277E+00, 0.8285E+00, 0.8293E+00,& - 0.8300E+00, 0.8308E+00, 0.8315E+00, 0.8323E+00,& - 0.8330E+00, 0.8338E+00, 0.8345E+00, 0.8353E+00,& - 0.8360E+00, 0.8368E+00, 0.8375E+00, 0.8383E+00,& - 0.8390E+00, 0.8398E+00, 0.8405E+00, 0.8413E+00,& - 0.8420E+00, 0.8428E+00, 0.8435E+00, 0.8443E+00,& - 0.8450E+00, 0.8457E+00, 0.8465E+00, 0.8472E+00,& - 0.8480E+00, 0.8487E+00, 0.8495E+00, 0.8502E+00,& - 0.8509E+00, 0.8517E+00, 0.8524E+00, 0.8532E+00,& - 0.8539E+00, 0.8546E+00, 0.8554E+00, 0.8561E+00,& - 0.8568E+00, 0.8576E+00, 0.8583E+00, 0.8591E+00,& - 0.8598E+00, 0.8605E+00, 0.8613E+00, 0.8620E+00,& - 0.8627E+00, 0.8635E+00, 0.8642E+00, 0.8649E+00,& - 0.8657E+00, 0.8664E+00, 0.8671E+00, 0.8679E+00,& - 0.8686E+00, 0.8693E+00, 0.8701E+00, 0.8708E+00,& - 0.8715E+00, 0.8722E+00, 0.8730E+00, 0.8737E+00,& - 0.8744E+00, 0.8752E+00, 0.8759E+00, 0.8766E+00,& - 0.8774E+00, 0.8781E+00, 0.8788E+00, 0.8795E+00,& - 0.8803E+00, 0.8810E+00, 0.8817E+00, 0.8825E+00,& - 0.8832E+00, 0.8839E+00, 0.8846E+00, 0.8854E+00,& - 0.8861E+00, 0.8868E+00, 0.8875E+00, 0.8883E+00,& - 0.8890E+00, 0.8897E+00, 0.8904E+00, 0.8912E+00,& - 0.8919E+00, 0.8926E+00, 0.8933E+00, 0.8941E+00,& - 0.8948E+00, 0.8955E+00, 0.8962E+00, 0.8970E+00,& - 0.8977E+00, 0.8984E+00, 0.8991E+00, 0.8999E+00,& - 0.9006E+00, 0.9013E+00, 0.9020E+00, 0.9028E+00,& - 0.9035E+00, 0.9042E+00, 0.9049E+00, 0.9057E+00,& - 0.9064E+00, 0.9071E+00, 0.9078E+00, 0.9086E+00,& - 0.9093E+00, 0.9100E+00, 0.9107E+00, 0.9115E+00,& - 0.9122E+00, 0.9129E+00, 0.9136E+00, 0.9144E+00,& - 0.9151E+00, 0.9158E+00, 0.9165E+00, 0.9172E+00,& - 0.9180E+00, 0.9187E+00, 0.9194E+00, 0.9201E+00,& - 0.9209E+00, 0.9216E+00, 0.9223E+00, 0.9230E+00,& - 0.9238E+00, 0.9245E+00, 0.9252E+00, 0.9259E+00,& - 0.9267E+00, 0.9274E+00, 0.9281E+00, 0.9288E+00,& - 0.9296E+00, 0.9303E+00, 0.9310E+00, 0.9317E+00,& - 0.9325E+00, 0.9332E+00, 0.9339E+00, 0.9347E+00,& - 0.9354E+00, 0.9361E+00, 0.9368E+00, 0.9376E+00,& - 0.9383E+00, 0.9390E+00, 0.9397E+00, 0.9405E+00,& - 0.9412E+00, 0.9419E+00, 0.9427E+00, 0.9434E+00,& - 0.9441E+00, 0.9448E+00, 0.9456E+00, 0.9463E+00,& - 0.9470E+00, 0.9478E+00, 0.9485E+00, 0.9492E+00,& - 0.9500E+00, 0.9507E+00, 0.9514E+00, 0.9521E+00,& - 0.9529E+00, 0.9536E+00, 0.9543E+00, 0.9551E+00,& - 0.9558E+00, 0.9565E+00, 0.9573E+00, 0.9580E+00,& - 0.9587E+00, 0.9595E+00, 0.9602E+00, 0.9609E+00,& - 0.9617E+00, 0.9624E+00, 0.9632E+00, 0.9639E+00,& - 0.9646E+00, 0.9654E+00, 0.9661E+00, 0.9668E+00,& - 0.9676E+00, 0.9683E+00, 0.9691E+00, 0.9698E+00,& - 0.9705E+00, 0.9713E+00, 0.9720E+00, 0.9728E+00,& - 0.9735E+00, 0.9742E+00, 0.9750E+00, 0.9757E+00,& - 0.9765E+00, 0.9772E+00, 0.9780E+00, 0.9787E+00,& - 0.9794E+00, 0.9802E+00, 0.9809E+00, 0.9817E+00,& - 0.9824E+00, 0.9832E+00, 0.9839E+00, 0.9847E+00,& - 0.9854E+00, 0.9862E+00, 0.9869E+00, 0.9877E+00,& - 0.9884E+00, 0.9892E+00, 0.9899E+00, 0.9907E+00,& - 0.9914E+00, 0.9922E+00, 0.9929E+00, 0.9937E+00,& - 0.9944E+00, 0.9952E+00, 0.9959E+00, 0.9967E+00,& - 0.9974E+00, 0.9982E+00, 0.9990E+00, 0.9997E+00,& - 0.1000E+01, 0.1001E+01, 0.1002E+01, 0.1003E+01,& - 0.1004E+01, 0.1004E+01, 0.1005E+01, 0.1006E+01,& - 0.1007E+01, 0.1007E+01, 0.1008E+01, 0.1009E+01,& - 0.1010E+01, 0.1010E+01, 0.1011E+01, 0.1012E+01,& - 0.1013E+01, 0.1013E+01, 0.1014E+01, 0.1015E+01,& - 0.1016E+01, 0.1017E+01, 0.1017E+01, 0.1018E+01,& - 0.1019E+01, 0.1020E+01, 0.1020E+01, 0.1021E+01,& - 0.1022E+01, 0.1023E+01, 0.1024E+01, 0.1024E+01,& - 0.1025E+01, 0.1026E+01, 0.1027E+01, 0.1027E+01,& - 0.1028E+01, 0.1029E+01, 0.1030E+01, 0.1031E+01,& - 0.1031E+01, 0.1032E+01, 0.1033E+01, 0.1034E+01,& - 0.1035E+01, 0.1035E+01, 0.1036E+01, 0.1037E+01,& - 0.1038E+01, 0.1038E+01, 0.1039E+01, 0.1040E+01,& - 0.1041E+01, 0.1042E+01, 0.1042E+01, 0.1043E+01,& - 0.1044E+01, 0.1045E+01, 0.1046E+01, 0.1046E+01,& - 0.1047E+01, 0.1048E+01, 0.1049E+01, 0.1050E+01,& - 0.1050E+01, 0.1051E+01, 0.1052E+01, 0.1053E+01,& - 0.1054E+01, 0.1055E+01, 0.1055E+01, 0.1056E+01,& - 0.1057E+01, 0.1058E+01, 0.1059E+01, 0.1059E+01,& - 0.1060E+01, 0.1061E+01, 0.1062E+01, 0.1063E+01,& - 0.1064E+01, 0.1064E+01, 0.1065E+01, 0.1066E+01,& - 0.1067E+01, 0.1068E+01, 0.1068E+01, 0.1069E+01,& - 0.1070E+01, 0.1071E+01, 0.1072E+01, 0.1073E+01,& - 0.1073E+01, 0.1074E+01, 0.1075E+01, 0.1076E+01,& - 0.1077E+01, 0.1078E+01, 0.1079E+01, 0.1079E+01,& - 0.1080E+01, 0.1081E+01, 0.1082E+01, 0.1083E+01,& - 0.1084E+01, 0.1084E+01, 0.1085E+01, 0.1086E+01,& - 0.1087E+01, 0.1088E+01, 0.1089E+01, 0.1090E+01,& - 0.1090E+01, 0.1091E+01, 0.1092E+01, 0.1093E+01,& - 0.1094E+01, 0.1095E+01, 0.1096E+01, 0.1097E+01,& - 0.1097E+01, 0.1098E+01, 0.1099E+01, 0.1100E+01,& - 0.1101E+01, 0.1102E+01, 0.1103E+01, 0.1104E+01,& - 0.1104E+01, 0.1105E+01, 0.1106E+01, 0.1107E+01,& - 0.1108E+01, 0.1109E+01, 0.1110E+01, 0.1111E+01,& - 0.1112E+01, 0.1113E+01, 0.1113E+01, 0.1114E+01,& - 0.1115E+01, 0.1116E+01, 0.1117E+01, 0.1118E+01,& - 0.1119E+01, 0.1120E+01, 0.1121E+01, 0.1122E+01,& - 0.1123E+01, 0.1123E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1127E+01, 0.1128E+01, 0.1129E+01,& - 0.1130E+01, 0.1131E+01, 0.1132E+01, 0.1133E+01,& - 0.1134E+01, 0.1135E+01, 0.1136E+01, 0.1137E+01,& - 0.1137E+01, 0.1138E+01, 0.1139E+01, 0.1140E+01,& - 0.1141E+01, 0.1142E+01, 0.1143E+01, 0.1144E+01,& - 0.1145E+01, 0.1146E+01, 0.1147E+01, 0.1148E+01,& - 0.1149E+01, 0.1150E+01, 0.1151E+01, 0.1152E+01,& - 0.1153E+01, 0.1154E+01, 0.1155E+01, 0.1156E+01,& - 0.1157E+01, 0.1158E+01, 0.1159E+01, 0.1160E+01,& - 0.1161E+01, 0.1162E+01, 0.1163E+01, 0.1164E+01,& - 0.1165E+01, 0.1166E+01, 0.1167E+01, 0.1168E+01,& - 0.1169E+01, 0.1170E+01, 0.1171E+01, 0.1172E+01,& - 0.1173E+01, 0.1174E+01, 0.1175E+01, 0.1176E+01,& - 0.1177E+01, 0.1178E+01, 0.1179E+01, 0.1180E+01,& - 0.1181E+01, 0.1183E+01, 0.1184E+01, 0.1185E+01,& - 0.1186E+01, 0.1187E+01, 0.1188E+01, 0.1189E+01,& - 0.1190E+01, 0.1191E+01, 0.1192E+01, 0.1193E+01,& - 0.1194E+01, 0.1195E+01, 0.1197E+01, 0.1198E+01,& - 0.1199E+01, 0.1200E+01, 0.1201E+01, 0.1202E+01,& - 0.1203E+01, 0.1204E+01, 0.1205E+01, 0.1207E+01,& - 0.1208E+01, 0.1209E+01, 0.1210E+01, 0.1211E+01,& - 0.1212E+01, 0.1213E+01, 0.1215E+01, 0.1216E+01,& - 0.1217E+01, 0.1218E+01, 0.1219E+01, 0.1220E+01,& - 0.1222E+01, 0.1223E+01, 0.1224E+01, 0.1225E+01,& - 0.1226E+01, 0.1227E+01, 0.1229E+01, 0.1230E+01,& - 0.1231E+01, 0.1232E+01, 0.1233E+01, 0.1235E+01,& - 0.1236E+01, 0.1237E+01, 0.1238E+01, 0.1240E+01,& - 0.1241E+01, 0.1242E+01, 0.1243E+01, 0.1245E+01,& - 0.1246E+01, 0.1247E+01, 0.1248E+01, 0.1250E+01,& - 0.1251E+01, 0.1252E+01, 0.1254E+01, 0.1255E+01,& - 0.1256E+01, 0.1257E+01, 0.1259E+01, 0.1260E+01,& - 0.1261E+01, 0.1263E+01, 0.1264E+01, 0.1265E+01,& - 0.1267E+01, 0.1268E+01, 0.1269E+01, 0.1271E+01,& - 0.1272E+01, 0.1273E+01, 0.1275E+01, 0.1276E+01,& - 0.1278E+01, 0.1279E+01, 0.1280E+01, 0.1282E+01,& - 0.1283E+01, 0.1285E+01, 0.1286E+01, 0.1288E+01,& - 0.1289E+01, 0.1290E+01, 0.1292E+01, 0.1293E+01,& - 0.1295E+01, 0.1296E+01, 0.1298E+01, 0.1299E+01,& - 0.1301E+01, 0.1302E+01, 0.1304E+01, 0.1305E+01,& - 0.1307E+01, 0.1308E+01, 0.1310E+01, 0.1311E+01,& - 0.1313E+01, 0.1315E+01, 0.1316E+01, 0.1318E+01,& - 0.1319E+01, 0.1321E+01, 0.1323E+01, 0.1324E+01,& - 0.1326E+01, 0.1327E+01, 0.1329E+01, 0.1331E+01,& - 0.1332E+01, 0.1334E+01, 0.1336E+01, 0.1338E+01,& - 0.1339E+01, 0.1341E+01, 0.1343E+01, 0.1344E+01,& - 0.1346E+01, 0.1348E+01, 0.1350E+01, 0.1351E+01,& - 0.1353E+01, 0.1355E+01, 0.1357E+01, 0.1359E+01,& - 0.1361E+01, 0.1362E+01, 0.1364E+01, 0.1366E+01,& - 0.1368E+01, 0.1370E+01, 0.1372E+01, 0.1374E+01,& - 0.1376E+01, 0.1378E+01, 0.1380E+01, 0.1382E+01,& - 0.1384E+01, 0.1386E+01, 0.1388E+01, 0.1390E+01,& - 0.1392E+01, 0.1394E+01, 0.1396E+01, 0.1398E+01,& - 0.1400E+01, 0.1403E+01, 0.1405E+01, 0.1407E+01,& - 0.1409E+01, 0.1411E+01, 0.1414E+01, 0.1416E+01,& - 0.1418E+01, 0.1421E+01, 0.1423E+01, 0.1425E+01,& - 0.1428E+01, 0.1430E+01, 0.1433E+01, 0.1435E+01,& - 0.1438E+01, 0.1440E+01, 0.1443E+01, 0.1445E+01,& - 0.1448E+01, 0.1450E+01, 0.1453E+01, 0.1456E+01,& - 0.1458E+01, 0.1461E+01, 0.1464E+01, 0.1467E+01,& - 0.1470E+01, 0.1472E+01, 0.1475E+01, 0.1478E+01,& - 0.1481E+01, 0.1484E+01, 0.1487E+01, 0.1490E+01,& - 0.1494E+01, 0.1497E+01, 0.1500E+01, 0.1503E+01,& - 0.1507E+01, 0.1510E+01, 0.1513E+01, 0.1517E+01,& - 0.1520E+01, 0.1524E+01, 0.1528E+01, 0.1531E+01,& - 0.1535E+01, 0.1539E+01, 0.1543E+01, 0.1547E+01,& - 0.1551E+01, 0.1555E+01, 0.1559E+01, 0.1563E+01,& - 0.1568E+01, 0.1572E+01, 0.1577E+01, 0.1581E+01,& - 0.1586E+01, 0.1591E+01, 0.1596E+01, 0.1601E+01,& - 0.1606E+01, 0.1612E+01, 0.1617E+01, 0.1623E+01,& - 0.1629E+01, 0.1635E+01, 0.1641E+01, 0.1647E+01,& - 0.1654E+01, 0.1661E+01, 0.1668E+01, 0.1675E+01,& - 0.1683E+01, 0.1691E+01, 0.1699E+01, 0.1708E+01,& - 0.1717E+01, 0.1726E+01, 0.1736E+01, 0.1747E+01,& - 0.1758E+01, 0.1770E+01, 0.1782E+01, 0.1796E+01,& - 0.1810E+01, 0.1826E+01, 0.1844E+01, 0.1863E+01,& - 0.1885E+01, 0.1910E+01, 0.1940E+01, 0.1975E+01,& - 0.1000E-04, 0.2838E+00, 0.3135E+00, 0.3327E+00/) - xcw(:, 10) = (/& - 0.1000E-04, 0.2838E+00, 0.3135E+00, 0.3327E+00,& - 0.3474E+00, 0.3595E+00, 0.3698E+00, 0.3788E+00,& - 0.3869E+00, 0.3943E+00, 0.4010E+00, 0.4073E+00,& - 0.4131E+00, 0.4186E+00, 0.4238E+00, 0.4287E+00,& - 0.4334E+00, 0.4379E+00, 0.4422E+00, 0.4463E+00,& - 0.4502E+00, 0.4541E+00, 0.4577E+00, 0.4613E+00,& - 0.4648E+00, 0.4681E+00, 0.4714E+00, 0.4746E+00,& - 0.4776E+00, 0.4807E+00, 0.4836E+00, 0.4865E+00,& - 0.4893E+00, 0.4920E+00, 0.4947E+00, 0.4974E+00,& - 0.5000E+00, 0.5025E+00, 0.5050E+00, 0.5074E+00,& - 0.5098E+00, 0.5122E+00, 0.5145E+00, 0.5168E+00,& - 0.5191E+00, 0.5213E+00, 0.5235E+00, 0.5256E+00,& - 0.5277E+00, 0.5298E+00, 0.5319E+00, 0.5339E+00,& - 0.5359E+00, 0.5379E+00, 0.5399E+00, 0.5418E+00,& - 0.5438E+00, 0.5456E+00, 0.5475E+00, 0.5494E+00,& - 0.5512E+00, 0.5530E+00, 0.5548E+00, 0.5566E+00,& - 0.5583E+00, 0.5601E+00, 0.5618E+00, 0.5635E+00,& - 0.5652E+00, 0.5669E+00, 0.5685E+00, 0.5702E+00,& - 0.5718E+00, 0.5734E+00, 0.5750E+00, 0.5766E+00,& - 0.5782E+00, 0.5797E+00, 0.5813E+00, 0.5828E+00,& - 0.5844E+00, 0.5859E+00, 0.5874E+00, 0.5889E+00,& - 0.5903E+00, 0.5918E+00, 0.5933E+00, 0.5947E+00,& - 0.5962E+00, 0.5976E+00, 0.5990E+00, 0.6004E+00,& - 0.6018E+00, 0.6032E+00, 0.6046E+00, 0.6060E+00,& - 0.6073E+00, 0.6087E+00, 0.6101E+00, 0.6114E+00,& - 0.6127E+00, 0.6141E+00, 0.6154E+00, 0.6167E+00,& - 0.6180E+00, 0.6193E+00, 0.6206E+00, 0.6219E+00,& - 0.6231E+00, 0.6244E+00, 0.6257E+00, 0.6269E+00,& - 0.6282E+00, 0.6294E+00, 0.6307E+00, 0.6319E+00,& - 0.6331E+00, 0.6344E+00, 0.6356E+00, 0.6368E+00,& - 0.6380E+00, 0.6392E+00, 0.6404E+00, 0.6416E+00,& - 0.6427E+00, 0.6439E+00, 0.6451E+00, 0.6463E+00,& - 0.6474E+00, 0.6486E+00, 0.6497E+00, 0.6509E+00,& - 0.6520E+00, 0.6532E+00, 0.6543E+00, 0.6554E+00,& - 0.6565E+00, 0.6577E+00, 0.6588E+00, 0.6599E+00,& - 0.6610E+00, 0.6621E+00, 0.6632E+00, 0.6643E+00,& - 0.6654E+00, 0.6665E+00, 0.6676E+00, 0.6687E+00,& - 0.6697E+00, 0.6708E+00, 0.6719E+00, 0.6729E+00,& - 0.6740E+00, 0.6751E+00, 0.6761E+00, 0.6772E+00,& - 0.6782E+00, 0.6793E+00, 0.6803E+00, 0.6813E+00,& - 0.6824E+00, 0.6834E+00, 0.6844E+00, 0.6855E+00,& - 0.6865E+00, 0.6875E+00, 0.6885E+00, 0.6895E+00,& - 0.6906E+00, 0.6916E+00, 0.6926E+00, 0.6936E+00,& - 0.6946E+00, 0.6956E+00, 0.6966E+00, 0.6976E+00,& - 0.6985E+00, 0.6995E+00, 0.7005E+00, 0.7015E+00,& - 0.7025E+00, 0.7035E+00, 0.7044E+00, 0.7054E+00,& - 0.7064E+00, 0.7073E+00, 0.7083E+00, 0.7093E+00,& - 0.7102E+00, 0.7112E+00, 0.7121E+00, 0.7131E+00,& - 0.7141E+00, 0.7150E+00, 0.7160E+00, 0.7169E+00,& - 0.7178E+00, 0.7188E+00, 0.7197E+00, 0.7207E+00,& - 0.7216E+00, 0.7225E+00, 0.7235E+00, 0.7244E+00,& - 0.7253E+00, 0.7262E+00, 0.7272E+00, 0.7281E+00,& - 0.7290E+00, 0.7299E+00, 0.7308E+00, 0.7318E+00,& - 0.7327E+00, 0.7336E+00, 0.7345E+00, 0.7354E+00,& - 0.7363E+00, 0.7372E+00, 0.7381E+00, 0.7390E+00,& - 0.7399E+00, 0.7408E+00, 0.7417E+00, 0.7426E+00,& - 0.7435E+00, 0.7444E+00, 0.7453E+00, 0.7462E+00,& - 0.7470E+00, 0.7479E+00, 0.7488E+00, 0.7497E+00,& - 0.7506E+00, 0.7515E+00, 0.7523E+00, 0.7532E+00,& - 0.7541E+00, 0.7550E+00, 0.7558E+00, 0.7567E+00,& - 0.7576E+00, 0.7585E+00, 0.7593E+00, 0.7602E+00,& - 0.7610E+00, 0.7619E+00, 0.7628E+00, 0.7636E+00,& - 0.7645E+00, 0.7654E+00, 0.7662E+00, 0.7671E+00,& - 0.7679E+00, 0.7688E+00, 0.7696E+00, 0.7705E+00,& - 0.7713E+00, 0.7722E+00, 0.7730E+00, 0.7739E+00,& - 0.7747E+00, 0.7756E+00, 0.7764E+00, 0.7773E+00,& - 0.7781E+00, 0.7790E+00, 0.7798E+00, 0.7806E+00,& - 0.7815E+00, 0.7823E+00, 0.7831E+00, 0.7840E+00,& - 0.7848E+00, 0.7857E+00, 0.7865E+00, 0.7873E+00,& - 0.7882E+00, 0.7890E+00, 0.7898E+00, 0.7906E+00,& - 0.7915E+00, 0.7923E+00, 0.7931E+00, 0.7939E+00,& - 0.7948E+00, 0.7956E+00, 0.7964E+00, 0.7972E+00,& - 0.7981E+00, 0.7989E+00, 0.7997E+00, 0.8005E+00,& - 0.8013E+00, 0.8022E+00, 0.8030E+00, 0.8038E+00,& - 0.8046E+00, 0.8054E+00, 0.8062E+00, 0.8071E+00,& - 0.8079E+00, 0.8087E+00, 0.8095E+00, 0.8103E+00,& - 0.8111E+00, 0.8119E+00, 0.8127E+00, 0.8135E+00,& - 0.8143E+00, 0.8152E+00, 0.8160E+00, 0.8168E+00,& - 0.8176E+00, 0.8184E+00, 0.8192E+00, 0.8200E+00,& - 0.8208E+00, 0.8216E+00, 0.8224E+00, 0.8232E+00,& - 0.8240E+00, 0.8248E+00, 0.8256E+00, 0.8264E+00,& - 0.8272E+00, 0.8280E+00, 0.8288E+00, 0.8296E+00,& - 0.8304E+00, 0.8312E+00, 0.8320E+00, 0.8328E+00,& - 0.8336E+00, 0.8344E+00, 0.8352E+00, 0.8359E+00,& - 0.8367E+00, 0.8375E+00, 0.8383E+00, 0.8391E+00,& - 0.8399E+00, 0.8407E+00, 0.8415E+00, 0.8423E+00,& - 0.8431E+00, 0.8439E+00, 0.8447E+00, 0.8454E+00,& - 0.8462E+00, 0.8470E+00, 0.8478E+00, 0.8486E+00,& - 0.8494E+00, 0.8502E+00, 0.8510E+00, 0.8517E+00,& - 0.8525E+00, 0.8533E+00, 0.8541E+00, 0.8549E+00,& - 0.8557E+00, 0.8565E+00, 0.8572E+00, 0.8580E+00,& - 0.8588E+00, 0.8596E+00, 0.8604E+00, 0.8612E+00,& - 0.8619E+00, 0.8627E+00, 0.8635E+00, 0.8643E+00,& - 0.8651E+00, 0.8659E+00, 0.8666E+00, 0.8674E+00,& - 0.8682E+00, 0.8690E+00, 0.8698E+00, 0.8706E+00,& - 0.8713E+00, 0.8721E+00, 0.8729E+00, 0.8737E+00,& - 0.8745E+00, 0.8752E+00, 0.8760E+00, 0.8768E+00,& - 0.8776E+00, 0.8784E+00, 0.8791E+00, 0.8799E+00,& - 0.8807E+00, 0.8815E+00, 0.8823E+00, 0.8830E+00,& - 0.8838E+00, 0.8846E+00, 0.8854E+00, 0.8862E+00,& - 0.8869E+00, 0.8877E+00, 0.8885E+00, 0.8893E+00,& - 0.8900E+00, 0.8908E+00, 0.8916E+00, 0.8924E+00,& - 0.8932E+00, 0.8939E+00, 0.8947E+00, 0.8955E+00,& - 0.8963E+00, 0.8971E+00, 0.8978E+00, 0.8986E+00,& - 0.8994E+00, 0.9002E+00, 0.9010E+00, 0.9017E+00,& - 0.9025E+00, 0.9033E+00, 0.9041E+00, 0.9048E+00,& - 0.9056E+00, 0.9064E+00, 0.9072E+00, 0.9080E+00,& - 0.9087E+00, 0.9095E+00, 0.9103E+00, 0.9111E+00,& - 0.9119E+00, 0.9126E+00, 0.9134E+00, 0.9142E+00,& - 0.9150E+00, 0.9158E+00, 0.9165E+00, 0.9173E+00,& - 0.9181E+00, 0.9189E+00, 0.9197E+00, 0.9205E+00,& - 0.9212E+00, 0.9220E+00, 0.9228E+00, 0.9236E+00,& - 0.9244E+00, 0.9251E+00, 0.9259E+00, 0.9267E+00,& - 0.9275E+00, 0.9283E+00, 0.9291E+00, 0.9298E+00,& - 0.9306E+00, 0.9314E+00, 0.9322E+00, 0.9330E+00,& - 0.9338E+00, 0.9346E+00, 0.9353E+00, 0.9361E+00,& - 0.9369E+00, 0.9377E+00, 0.9385E+00, 0.9393E+00,& - 0.9401E+00, 0.9408E+00, 0.9416E+00, 0.9424E+00,& - 0.9432E+00, 0.9440E+00, 0.9448E+00, 0.9456E+00,& - 0.9464E+00, 0.9472E+00, 0.9479E+00, 0.9487E+00,& - 0.9495E+00, 0.9503E+00, 0.9511E+00, 0.9519E+00,& - 0.9527E+00, 0.9535E+00, 0.9543E+00, 0.9551E+00,& - 0.9559E+00, 0.9567E+00, 0.9575E+00, 0.9582E+00,& - 0.9590E+00, 0.9598E+00, 0.9606E+00, 0.9614E+00,& - 0.9622E+00, 0.9630E+00, 0.9638E+00, 0.9646E+00,& - 0.9654E+00, 0.9662E+00, 0.9670E+00, 0.9678E+00,& - 0.9686E+00, 0.9694E+00, 0.9702E+00, 0.9710E+00,& - 0.9718E+00, 0.9726E+00, 0.9734E+00, 0.9742E+00,& - 0.9750E+00, 0.9758E+00, 0.9766E+00, 0.9775E+00,& - 0.9783E+00, 0.9791E+00, 0.9799E+00, 0.9807E+00,& - 0.9815E+00, 0.9823E+00, 0.9831E+00, 0.9839E+00,& - 0.9847E+00, 0.9855E+00, 0.9864E+00, 0.9872E+00,& - 0.9880E+00, 0.9888E+00, 0.9896E+00, 0.9904E+00,& - 0.9912E+00, 0.9921E+00, 0.9929E+00, 0.9937E+00,& - 0.9945E+00, 0.9953E+00, 0.9961E+00, 0.9970E+00,& - 0.9978E+00, 0.9986E+00, 0.9994E+00, 0.1000E+01,& - 0.1001E+01, 0.1002E+01, 0.1003E+01, 0.1004E+01,& - 0.1004E+01, 0.1005E+01, 0.1006E+01, 0.1007E+01,& - 0.1008E+01, 0.1009E+01, 0.1009E+01, 0.1010E+01,& - 0.1011E+01, 0.1012E+01, 0.1013E+01, 0.1014E+01,& - 0.1014E+01, 0.1015E+01, 0.1016E+01, 0.1017E+01,& - 0.1018E+01, 0.1019E+01, 0.1019E+01, 0.1020E+01,& - 0.1021E+01, 0.1022E+01, 0.1023E+01, 0.1024E+01,& - 0.1024E+01, 0.1025E+01, 0.1026E+01, 0.1027E+01,& - 0.1028E+01, 0.1029E+01, 0.1030E+01, 0.1030E+01,& - 0.1031E+01, 0.1032E+01, 0.1033E+01, 0.1034E+01,& - 0.1035E+01, 0.1035E+01, 0.1036E+01, 0.1037E+01,& - 0.1038E+01, 0.1039E+01, 0.1040E+01, 0.1041E+01,& - 0.1042E+01, 0.1042E+01, 0.1043E+01, 0.1044E+01,& - 0.1045E+01, 0.1046E+01, 0.1047E+01, 0.1048E+01,& - 0.1048E+01, 0.1049E+01, 0.1050E+01, 0.1051E+01,& - 0.1052E+01, 0.1053E+01, 0.1054E+01, 0.1055E+01,& - 0.1055E+01, 0.1056E+01, 0.1057E+01, 0.1058E+01,& - 0.1059E+01, 0.1060E+01, 0.1061E+01, 0.1062E+01,& - 0.1063E+01, 0.1063E+01, 0.1064E+01, 0.1065E+01,& - 0.1066E+01, 0.1067E+01, 0.1068E+01, 0.1069E+01,& - 0.1070E+01, 0.1071E+01, 0.1071E+01, 0.1072E+01,& - 0.1073E+01, 0.1074E+01, 0.1075E+01, 0.1076E+01,& - 0.1077E+01, 0.1078E+01, 0.1079E+01, 0.1080E+01,& - 0.1081E+01, 0.1082E+01, 0.1082E+01, 0.1083E+01,& - 0.1084E+01, 0.1085E+01, 0.1086E+01, 0.1087E+01,& - 0.1088E+01, 0.1089E+01, 0.1090E+01, 0.1091E+01,& - 0.1092E+01, 0.1093E+01, 0.1094E+01, 0.1094E+01,& - 0.1095E+01, 0.1096E+01, 0.1097E+01, 0.1098E+01,& - 0.1099E+01, 0.1100E+01, 0.1101E+01, 0.1102E+01,& - 0.1103E+01, 0.1104E+01, 0.1105E+01, 0.1106E+01,& - 0.1107E+01, 0.1108E+01, 0.1109E+01, 0.1110E+01,& - 0.1111E+01, 0.1112E+01, 0.1113E+01, 0.1114E+01,& - 0.1115E+01, 0.1115E+01, 0.1116E+01, 0.1117E+01,& - 0.1118E+01, 0.1119E+01, 0.1120E+01, 0.1121E+01,& - 0.1122E+01, 0.1123E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1127E+01, 0.1128E+01, 0.1129E+01,& - 0.1130E+01, 0.1131E+01, 0.1132E+01, 0.1133E+01,& - 0.1134E+01, 0.1135E+01, 0.1136E+01, 0.1137E+01,& - 0.1138E+01, 0.1139E+01, 0.1140E+01, 0.1141E+01,& - 0.1142E+01, 0.1143E+01, 0.1144E+01, 0.1146E+01,& - 0.1147E+01, 0.1148E+01, 0.1149E+01, 0.1150E+01,& - 0.1151E+01, 0.1152E+01, 0.1153E+01, 0.1154E+01,& - 0.1155E+01, 0.1156E+01, 0.1157E+01, 0.1158E+01,& - 0.1159E+01, 0.1160E+01, 0.1161E+01, 0.1162E+01,& - 0.1163E+01, 0.1164E+01, 0.1166E+01, 0.1167E+01,& - 0.1168E+01, 0.1169E+01, 0.1170E+01, 0.1171E+01,& - 0.1172E+01, 0.1173E+01, 0.1174E+01, 0.1175E+01,& - 0.1176E+01, 0.1178E+01, 0.1179E+01, 0.1180E+01,& - 0.1181E+01, 0.1182E+01, 0.1183E+01, 0.1184E+01,& - 0.1185E+01, 0.1187E+01, 0.1188E+01, 0.1189E+01,& - 0.1190E+01, 0.1191E+01, 0.1192E+01, 0.1193E+01,& - 0.1195E+01, 0.1196E+01, 0.1197E+01, 0.1198E+01,& - 0.1199E+01, 0.1200E+01, 0.1201E+01, 0.1203E+01,& - 0.1204E+01, 0.1205E+01, 0.1206E+01, 0.1207E+01,& - 0.1209E+01, 0.1210E+01, 0.1211E+01, 0.1212E+01,& - 0.1213E+01, 0.1215E+01, 0.1216E+01, 0.1217E+01,& - 0.1218E+01, 0.1219E+01, 0.1221E+01, 0.1222E+01,& - 0.1223E+01, 0.1224E+01, 0.1226E+01, 0.1227E+01,& - 0.1228E+01, 0.1229E+01, 0.1231E+01, 0.1232E+01,& - 0.1233E+01, 0.1234E+01, 0.1236E+01, 0.1237E+01,& - 0.1238E+01, 0.1240E+01, 0.1241E+01, 0.1242E+01,& - 0.1243E+01, 0.1245E+01, 0.1246E+01, 0.1247E+01,& - 0.1249E+01, 0.1250E+01, 0.1251E+01, 0.1253E+01,& - 0.1254E+01, 0.1255E+01, 0.1257E+01, 0.1258E+01,& - 0.1259E+01, 0.1261E+01, 0.1262E+01, 0.1264E+01,& - 0.1265E+01, 0.1266E+01, 0.1268E+01, 0.1269E+01,& - 0.1270E+01, 0.1272E+01, 0.1273E+01, 0.1275E+01,& - 0.1276E+01, 0.1278E+01, 0.1279E+01, 0.1280E+01,& - 0.1282E+01, 0.1283E+01, 0.1285E+01, 0.1286E+01,& - 0.1288E+01, 0.1289E+01, 0.1291E+01, 0.1292E+01,& - 0.1294E+01, 0.1295E+01, 0.1297E+01, 0.1298E+01,& - 0.1300E+01, 0.1301E+01, 0.1303E+01, 0.1304E+01,& - 0.1306E+01, 0.1307E+01, 0.1309E+01, 0.1311E+01,& - 0.1312E+01, 0.1314E+01, 0.1315E+01, 0.1317E+01,& - 0.1319E+01, 0.1320E+01, 0.1322E+01, 0.1323E+01,& - 0.1325E+01, 0.1327E+01, 0.1328E+01, 0.1330E+01,& - 0.1332E+01, 0.1333E+01, 0.1335E+01, 0.1337E+01,& - 0.1339E+01, 0.1340E+01, 0.1342E+01, 0.1344E+01,& - 0.1345E+01, 0.1347E+01, 0.1349E+01, 0.1351E+01,& - 0.1353E+01, 0.1354E+01, 0.1356E+01, 0.1358E+01,& - 0.1360E+01, 0.1362E+01, 0.1364E+01, 0.1365E+01,& - 0.1367E+01, 0.1369E+01, 0.1371E+01, 0.1373E+01,& - 0.1375E+01, 0.1377E+01, 0.1379E+01, 0.1381E+01,& - 0.1383E+01, 0.1385E+01, 0.1387E+01, 0.1389E+01,& - 0.1391E+01, 0.1393E+01, 0.1395E+01, 0.1397E+01,& - 0.1399E+01, 0.1401E+01, 0.1403E+01, 0.1405E+01,& - 0.1408E+01, 0.1410E+01, 0.1412E+01, 0.1414E+01,& - 0.1416E+01, 0.1419E+01, 0.1421E+01, 0.1423E+01,& - 0.1425E+01, 0.1428E+01, 0.1430E+01, 0.1432E+01,& - 0.1435E+01, 0.1437E+01, 0.1439E+01, 0.1442E+01,& - 0.1444E+01, 0.1447E+01, 0.1449E+01, 0.1452E+01,& - 0.1454E+01, 0.1457E+01, 0.1459E+01, 0.1462E+01,& - 0.1465E+01, 0.1467E+01, 0.1470E+01, 0.1473E+01,& - 0.1475E+01, 0.1478E+01, 0.1481E+01, 0.1484E+01,& - 0.1487E+01, 0.1490E+01, 0.1493E+01, 0.1495E+01,& - 0.1498E+01, 0.1501E+01, 0.1505E+01, 0.1508E+01,& - 0.1511E+01, 0.1514E+01, 0.1517E+01, 0.1520E+01,& - 0.1524E+01, 0.1527E+01, 0.1530E+01, 0.1534E+01,& - 0.1537E+01, 0.1541E+01, 0.1544E+01, 0.1548E+01,& - 0.1552E+01, 0.1555E+01, 0.1559E+01, 0.1563E+01,& - 0.1567E+01, 0.1571E+01, 0.1575E+01, 0.1579E+01,& - 0.1583E+01, 0.1587E+01, 0.1592E+01, 0.1596E+01,& - 0.1601E+01, 0.1605E+01, 0.1610E+01, 0.1615E+01,& - 0.1619E+01, 0.1624E+01, 0.1629E+01, 0.1634E+01,& - 0.1640E+01, 0.1645E+01, 0.1651E+01, 0.1656E+01,& - 0.1662E+01, 0.1668E+01, 0.1674E+01, 0.1681E+01,& - 0.1687E+01, 0.1694E+01, 0.1700E+01, 0.1708E+01,& - 0.1715E+01, 0.1722E+01, 0.1730E+01, 0.1738E+01,& - 0.1747E+01, 0.1756E+01, 0.1765E+01, 0.1774E+01,& - 0.1784E+01, 0.1795E+01, 0.1806E+01, 0.1818E+01,& - 0.1830E+01, 0.1843E+01, 0.1857E+01, 0.1872E+01,& - 0.1889E+01, 0.1906E+01, 0.1926E+01, 0.1948E+01,& - 0.1972E+01, 0.2000E+01, 0.2030E+01, 0.2072E+01,& - 0.1000E-04, 0.2509E+00, 0.2801E+00, 0.2993E+00/) - xcw(:, 11) = (/& - 0.1000E-04, 0.2509E+00, 0.2801E+00, 0.2993E+00,& - 0.3140E+00, 0.3260E+00, 0.3364E+00, 0.3455E+00,& - 0.3536E+00, 0.3611E+00, 0.3679E+00, 0.3742E+00,& - 0.3802E+00, 0.3857E+00, 0.3910E+00, 0.3960E+00,& - 0.4008E+00, 0.4053E+00, 0.4097E+00, 0.4139E+00,& - 0.4179E+00, 0.4218E+00, 0.4256E+00, 0.4293E+00,& - 0.4328E+00, 0.4362E+00, 0.4396E+00, 0.4428E+00,& - 0.4460E+00, 0.4491E+00, 0.4521E+00, 0.4551E+00,& - 0.4580E+00, 0.4608E+00, 0.4636E+00, 0.4663E+00,& - 0.4689E+00, 0.4716E+00, 0.4741E+00, 0.4766E+00,& - 0.4791E+00, 0.4816E+00, 0.4839E+00, 0.4863E+00,& - 0.4886E+00, 0.4909E+00, 0.4932E+00, 0.4954E+00,& - 0.4976E+00, 0.4998E+00, 0.5019E+00, 0.5040E+00,& - 0.5061E+00, 0.5081E+00, 0.5102E+00, 0.5122E+00,& - 0.5142E+00, 0.5161E+00, 0.5181E+00, 0.5200E+00,& - 0.5219E+00, 0.5238E+00, 0.5256E+00, 0.5275E+00,& - 0.5293E+00, 0.5311E+00, 0.5329E+00, 0.5346E+00,& - 0.5364E+00, 0.5381E+00, 0.5399E+00, 0.5416E+00,& - 0.5433E+00, 0.5449E+00, 0.5466E+00, 0.5483E+00,& - 0.5499E+00, 0.5515E+00, 0.5531E+00, 0.5547E+00,& - 0.5563E+00, 0.5579E+00, 0.5595E+00, 0.5610E+00,& - 0.5626E+00, 0.5641E+00, 0.5656E+00, 0.5671E+00,& - 0.5686E+00, 0.5701E+00, 0.5716E+00, 0.5731E+00,& - 0.5745E+00, 0.5760E+00, 0.5774E+00, 0.5789E+00,& - 0.5803E+00, 0.5817E+00, 0.5831E+00, 0.5845E+00,& - 0.5859E+00, 0.5873E+00, 0.5887E+00, 0.5901E+00,& - 0.5914E+00, 0.5928E+00, 0.5941E+00, 0.5955E+00,& - 0.5968E+00, 0.5981E+00, 0.5995E+00, 0.6008E+00,& - 0.6021E+00, 0.6034E+00, 0.6047E+00, 0.6060E+00,& - 0.6072E+00, 0.6085E+00, 0.6098E+00, 0.6111E+00,& - 0.6123E+00, 0.6136E+00, 0.6148E+00, 0.6161E+00,& - 0.6173E+00, 0.6185E+00, 0.6198E+00, 0.6210E+00,& - 0.6222E+00, 0.6234E+00, 0.6246E+00, 0.6258E+00,& - 0.6270E+00, 0.6282E+00, 0.6294E+00, 0.6306E+00,& - 0.6318E+00, 0.6330E+00, 0.6341E+00, 0.6353E+00,& - 0.6365E+00, 0.6376E+00, 0.6388E+00, 0.6399E+00,& - 0.6411E+00, 0.6422E+00, 0.6434E+00, 0.6445E+00,& - 0.6456E+00, 0.6467E+00, 0.6479E+00, 0.6490E+00,& - 0.6501E+00, 0.6512E+00, 0.6523E+00, 0.6534E+00,& - 0.6545E+00, 0.6556E+00, 0.6567E+00, 0.6578E+00,& - 0.6589E+00, 0.6600E+00, 0.6611E+00, 0.6622E+00,& - 0.6632E+00, 0.6643E+00, 0.6654E+00, 0.6665E+00,& - 0.6675E+00, 0.6686E+00, 0.6696E+00, 0.6707E+00,& - 0.6718E+00, 0.6728E+00, 0.6739E+00, 0.6749E+00,& - 0.6759E+00, 0.6770E+00, 0.6780E+00, 0.6791E+00,& - 0.6801E+00, 0.6811E+00, 0.6821E+00, 0.6832E+00,& - 0.6842E+00, 0.6852E+00, 0.6862E+00, 0.6872E+00,& - 0.6883E+00, 0.6893E+00, 0.6903E+00, 0.6913E+00,& - 0.6923E+00, 0.6933E+00, 0.6943E+00, 0.6953E+00,& - 0.6963E+00, 0.6973E+00, 0.6983E+00, 0.6992E+00,& - 0.7002E+00, 0.7012E+00, 0.7022E+00, 0.7032E+00,& - 0.7042E+00, 0.7051E+00, 0.7061E+00, 0.7071E+00,& - 0.7081E+00, 0.7090E+00, 0.7100E+00, 0.7110E+00,& - 0.7119E+00, 0.7129E+00, 0.7139E+00, 0.7148E+00,& - 0.7158E+00, 0.7167E+00, 0.7177E+00, 0.7186E+00,& - 0.7196E+00, 0.7205E+00, 0.7215E+00, 0.7224E+00,& - 0.7234E+00, 0.7243E+00, 0.7252E+00, 0.7262E+00,& - 0.7271E+00, 0.7281E+00, 0.7290E+00, 0.7299E+00,& - 0.7309E+00, 0.7318E+00, 0.7327E+00, 0.7337E+00,& - 0.7346E+00, 0.7355E+00, 0.7364E+00, 0.7374E+00,& - 0.7383E+00, 0.7392E+00, 0.7401E+00, 0.7410E+00,& - 0.7419E+00, 0.7429E+00, 0.7438E+00, 0.7447E+00,& - 0.7456E+00, 0.7465E+00, 0.7474E+00, 0.7483E+00,& - 0.7492E+00, 0.7501E+00, 0.7510E+00, 0.7519E+00,& - 0.7528E+00, 0.7537E+00, 0.7546E+00, 0.7555E+00,& - 0.7564E+00, 0.7573E+00, 0.7582E+00, 0.7591E+00,& - 0.7600E+00, 0.7609E+00, 0.7618E+00, 0.7627E+00,& - 0.7636E+00, 0.7645E+00, 0.7654E+00, 0.7663E+00,& - 0.7671E+00, 0.7680E+00, 0.7689E+00, 0.7698E+00,& - 0.7707E+00, 0.7716E+00, 0.7724E+00, 0.7733E+00,& - 0.7742E+00, 0.7751E+00, 0.7759E+00, 0.7768E+00,& - 0.7777E+00, 0.7786E+00, 0.7795E+00, 0.7803E+00,& - 0.7812E+00, 0.7821E+00, 0.7829E+00, 0.7838E+00,& - 0.7847E+00, 0.7855E+00, 0.7864E+00, 0.7873E+00,& - 0.7881E+00, 0.7890E+00, 0.7899E+00, 0.7907E+00,& - 0.7916E+00, 0.7925E+00, 0.7933E+00, 0.7942E+00,& - 0.7951E+00, 0.7959E+00, 0.7968E+00, 0.7976E+00,& - 0.7985E+00, 0.7994E+00, 0.8002E+00, 0.8011E+00,& - 0.8019E+00, 0.8028E+00, 0.8036E+00, 0.8045E+00,& - 0.8053E+00, 0.8062E+00, 0.8070E+00, 0.8079E+00,& - 0.8088E+00, 0.8096E+00, 0.8105E+00, 0.8113E+00,& - 0.8122E+00, 0.8130E+00, 0.8139E+00, 0.8147E+00,& - 0.8156E+00, 0.8164E+00, 0.8172E+00, 0.8181E+00,& - 0.8189E+00, 0.8198E+00, 0.8206E+00, 0.8215E+00,& - 0.8223E+00, 0.8232E+00, 0.8240E+00, 0.8249E+00,& - 0.8257E+00, 0.8265E+00, 0.8274E+00, 0.8282E+00,& - 0.8291E+00, 0.8299E+00, 0.8308E+00, 0.8316E+00,& - 0.8324E+00, 0.8333E+00, 0.8341E+00, 0.8350E+00,& - 0.8358E+00, 0.8366E+00, 0.8375E+00, 0.8383E+00,& - 0.8391E+00, 0.8400E+00, 0.8408E+00, 0.8417E+00,& - 0.8425E+00, 0.8433E+00, 0.8442E+00, 0.8450E+00,& - 0.8458E+00, 0.8467E+00, 0.8475E+00, 0.8484E+00,& - 0.8492E+00, 0.8500E+00, 0.8509E+00, 0.8517E+00,& - 0.8525E+00, 0.8534E+00, 0.8542E+00, 0.8550E+00,& - 0.8559E+00, 0.8567E+00, 0.8575E+00, 0.8584E+00,& - 0.8592E+00, 0.8600E+00, 0.8609E+00, 0.8617E+00,& - 0.8625E+00, 0.8634E+00, 0.8642E+00, 0.8650E+00,& - 0.8659E+00, 0.8667E+00, 0.8675E+00, 0.8684E+00,& - 0.8692E+00, 0.8700E+00, 0.8709E+00, 0.8717E+00,& - 0.8725E+00, 0.8734E+00, 0.8742E+00, 0.8750E+00,& - 0.8759E+00, 0.8767E+00, 0.8775E+00, 0.8784E+00,& - 0.8792E+00, 0.8800E+00, 0.8809E+00, 0.8817E+00,& - 0.8825E+00, 0.8833E+00, 0.8842E+00, 0.8850E+00,& - 0.8858E+00, 0.8867E+00, 0.8875E+00, 0.8883E+00,& - 0.8892E+00, 0.8900E+00, 0.8908E+00, 0.8917E+00,& - 0.8925E+00, 0.8933E+00, 0.8942E+00, 0.8950E+00,& - 0.8958E+00, 0.8967E+00, 0.8975E+00, 0.8983E+00,& - 0.8992E+00, 0.9000E+00, 0.9008E+00, 0.9017E+00,& - 0.9025E+00, 0.9033E+00, 0.9042E+00, 0.9050E+00,& - 0.9059E+00, 0.9067E+00, 0.9075E+00, 0.9084E+00,& - 0.9092E+00, 0.9100E+00, 0.9109E+00, 0.9117E+00,& - 0.9125E+00, 0.9134E+00, 0.9142E+00, 0.9151E+00,& - 0.9159E+00, 0.9167E+00, 0.9176E+00, 0.9184E+00,& - 0.9192E+00, 0.9201E+00, 0.9209E+00, 0.9218E+00,& - 0.9226E+00, 0.9234E+00, 0.9243E+00, 0.9251E+00,& - 0.9260E+00, 0.9268E+00, 0.9276E+00, 0.9285E+00,& - 0.9293E+00, 0.9302E+00, 0.9310E+00, 0.9319E+00,& - 0.9327E+00, 0.9335E+00, 0.9344E+00, 0.9352E+00,& - 0.9361E+00, 0.9369E+00, 0.9378E+00, 0.9386E+00,& - 0.9395E+00, 0.9403E+00, 0.9412E+00, 0.9420E+00,& - 0.9429E+00, 0.9437E+00, 0.9445E+00, 0.9454E+00,& - 0.9462E+00, 0.9471E+00, 0.9479E+00, 0.9488E+00,& - 0.9497E+00, 0.9505E+00, 0.9514E+00, 0.9522E+00,& - 0.9531E+00, 0.9539E+00, 0.9548E+00, 0.9556E+00,& - 0.9565E+00, 0.9573E+00, 0.9582E+00, 0.9590E+00,& - 0.9599E+00, 0.9608E+00, 0.9616E+00, 0.9625E+00,& - 0.9633E+00, 0.9642E+00, 0.9651E+00, 0.9659E+00,& - 0.9668E+00, 0.9676E+00, 0.9685E+00, 0.9694E+00,& - 0.9702E+00, 0.9711E+00, 0.9720E+00, 0.9728E+00,& - 0.9737E+00, 0.9746E+00, 0.9754E+00, 0.9763E+00,& - 0.9772E+00, 0.9780E+00, 0.9789E+00, 0.9798E+00,& - 0.9806E+00, 0.9815E+00, 0.9824E+00, 0.9833E+00,& - 0.9841E+00, 0.9850E+00, 0.9859E+00, 0.9868E+00,& - 0.9876E+00, 0.9885E+00, 0.9894E+00, 0.9903E+00,& - 0.9911E+00, 0.9920E+00, 0.9929E+00, 0.9938E+00,& - 0.9947E+00, 0.9956E+00, 0.9964E+00, 0.9973E+00,& - 0.9982E+00, 0.9991E+00, 0.1000E+01, 0.1001E+01,& - 0.1002E+01, 0.1003E+01, 0.1004E+01, 0.1004E+01,& - 0.1005E+01, 0.1006E+01, 0.1007E+01, 0.1008E+01,& - 0.1009E+01, 0.1010E+01, 0.1011E+01, 0.1012E+01,& - 0.1012E+01, 0.1013E+01, 0.1014E+01, 0.1015E+01,& - 0.1016E+01, 0.1017E+01, 0.1018E+01, 0.1019E+01,& - 0.1020E+01, 0.1021E+01, 0.1022E+01, 0.1022E+01,& - 0.1023E+01, 0.1024E+01, 0.1025E+01, 0.1026E+01,& - 0.1027E+01, 0.1028E+01, 0.1029E+01, 0.1030E+01,& - 0.1031E+01, 0.1032E+01, 0.1032E+01, 0.1033E+01,& - 0.1034E+01, 0.1035E+01, 0.1036E+01, 0.1037E+01,& - 0.1038E+01, 0.1039E+01, 0.1040E+01, 0.1041E+01,& - 0.1042E+01, 0.1043E+01, 0.1044E+01, 0.1045E+01,& - 0.1045E+01, 0.1046E+01, 0.1047E+01, 0.1048E+01,& - 0.1049E+01, 0.1050E+01, 0.1051E+01, 0.1052E+01,& - 0.1053E+01, 0.1054E+01, 0.1055E+01, 0.1056E+01,& - 0.1057E+01, 0.1058E+01, 0.1059E+01, 0.1060E+01,& - 0.1061E+01, 0.1062E+01, 0.1062E+01, 0.1063E+01,& - 0.1064E+01, 0.1065E+01, 0.1066E+01, 0.1067E+01,& - 0.1068E+01, 0.1069E+01, 0.1070E+01, 0.1071E+01,& - 0.1072E+01, 0.1073E+01, 0.1074E+01, 0.1075E+01,& - 0.1076E+01, 0.1077E+01, 0.1078E+01, 0.1079E+01,& - 0.1080E+01, 0.1081E+01, 0.1082E+01, 0.1083E+01,& - 0.1084E+01, 0.1085E+01, 0.1086E+01, 0.1087E+01,& - 0.1088E+01, 0.1089E+01, 0.1090E+01, 0.1091E+01,& - 0.1092E+01, 0.1093E+01, 0.1094E+01, 0.1095E+01,& - 0.1096E+01, 0.1097E+01, 0.1098E+01, 0.1099E+01,& - 0.1100E+01, 0.1101E+01, 0.1102E+01, 0.1103E+01,& - 0.1104E+01, 0.1105E+01, 0.1106E+01, 0.1107E+01,& - 0.1108E+01, 0.1109E+01, 0.1110E+01, 0.1111E+01,& - 0.1112E+01, 0.1113E+01, 0.1114E+01, 0.1115E+01,& - 0.1116E+01, 0.1117E+01, 0.1118E+01, 0.1119E+01,& - 0.1121E+01, 0.1122E+01, 0.1123E+01, 0.1124E+01,& - 0.1125E+01, 0.1126E+01, 0.1127E+01, 0.1128E+01,& - 0.1129E+01, 0.1130E+01, 0.1131E+01, 0.1132E+01,& - 0.1133E+01, 0.1134E+01, 0.1135E+01, 0.1137E+01,& - 0.1138E+01, 0.1139E+01, 0.1140E+01, 0.1141E+01,& - 0.1142E+01, 0.1143E+01, 0.1144E+01, 0.1145E+01,& - 0.1146E+01, 0.1147E+01, 0.1149E+01, 0.1150E+01,& - 0.1151E+01, 0.1152E+01, 0.1153E+01, 0.1154E+01,& - 0.1155E+01, 0.1156E+01, 0.1157E+01, 0.1159E+01,& - 0.1160E+01, 0.1161E+01, 0.1162E+01, 0.1163E+01,& - 0.1164E+01, 0.1165E+01, 0.1167E+01, 0.1168E+01,& - 0.1169E+01, 0.1170E+01, 0.1171E+01, 0.1172E+01,& - 0.1173E+01, 0.1175E+01, 0.1176E+01, 0.1177E+01,& - 0.1178E+01, 0.1179E+01, 0.1181E+01, 0.1182E+01,& - 0.1183E+01, 0.1184E+01, 0.1185E+01, 0.1186E+01,& - 0.1188E+01, 0.1189E+01, 0.1190E+01, 0.1191E+01,& - 0.1192E+01, 0.1194E+01, 0.1195E+01, 0.1196E+01,& - 0.1197E+01, 0.1199E+01, 0.1200E+01, 0.1201E+01,& - 0.1202E+01, 0.1203E+01, 0.1205E+01, 0.1206E+01,& - 0.1207E+01, 0.1208E+01, 0.1210E+01, 0.1211E+01,& - 0.1212E+01, 0.1213E+01, 0.1215E+01, 0.1216E+01,& - 0.1217E+01, 0.1219E+01, 0.1220E+01, 0.1221E+01,& - 0.1222E+01, 0.1224E+01, 0.1225E+01, 0.1226E+01,& - 0.1228E+01, 0.1229E+01, 0.1230E+01, 0.1232E+01,& - 0.1233E+01, 0.1234E+01, 0.1236E+01, 0.1237E+01,& - 0.1238E+01, 0.1240E+01, 0.1241E+01, 0.1242E+01,& - 0.1244E+01, 0.1245E+01, 0.1246E+01, 0.1248E+01,& - 0.1249E+01, 0.1251E+01, 0.1252E+01, 0.1253E+01,& - 0.1255E+01, 0.1256E+01, 0.1257E+01, 0.1259E+01,& - 0.1260E+01, 0.1262E+01, 0.1263E+01, 0.1265E+01,& - 0.1266E+01, 0.1267E+01, 0.1269E+01, 0.1270E+01,& - 0.1272E+01, 0.1273E+01, 0.1275E+01, 0.1276E+01,& - 0.1278E+01, 0.1279E+01, 0.1281E+01, 0.1282E+01,& - 0.1284E+01, 0.1285E+01, 0.1287E+01, 0.1288E+01,& - 0.1290E+01, 0.1291E+01, 0.1293E+01, 0.1294E+01,& - 0.1296E+01, 0.1297E+01, 0.1299E+01, 0.1301E+01,& - 0.1302E+01, 0.1304E+01, 0.1305E+01, 0.1307E+01,& - 0.1308E+01, 0.1310E+01, 0.1312E+01, 0.1313E+01,& - 0.1315E+01, 0.1317E+01, 0.1318E+01, 0.1320E+01,& - 0.1322E+01, 0.1323E+01, 0.1325E+01, 0.1327E+01,& - 0.1328E+01, 0.1330E+01, 0.1332E+01, 0.1333E+01,& - 0.1335E+01, 0.1337E+01, 0.1339E+01, 0.1340E+01,& - 0.1342E+01, 0.1344E+01, 0.1346E+01, 0.1347E+01,& - 0.1349E+01, 0.1351E+01, 0.1353E+01, 0.1355E+01,& - 0.1356E+01, 0.1358E+01, 0.1360E+01, 0.1362E+01,& - 0.1364E+01, 0.1366E+01, 0.1368E+01, 0.1370E+01,& - 0.1371E+01, 0.1373E+01, 0.1375E+01, 0.1377E+01,& - 0.1379E+01, 0.1381E+01, 0.1383E+01, 0.1385E+01,& - 0.1387E+01, 0.1389E+01, 0.1391E+01, 0.1393E+01,& - 0.1395E+01, 0.1397E+01, 0.1399E+01, 0.1401E+01,& - 0.1404E+01, 0.1406E+01, 0.1408E+01, 0.1410E+01,& - 0.1412E+01, 0.1414E+01, 0.1416E+01, 0.1419E+01,& - 0.1421E+01, 0.1423E+01, 0.1425E+01, 0.1428E+01,& - 0.1430E+01, 0.1432E+01, 0.1435E+01, 0.1437E+01,& - 0.1439E+01, 0.1442E+01, 0.1444E+01, 0.1446E+01,& - 0.1449E+01, 0.1451E+01, 0.1454E+01, 0.1456E+01,& - 0.1459E+01, 0.1461E+01, 0.1464E+01, 0.1466E+01,& - 0.1469E+01, 0.1471E+01, 0.1474E+01, 0.1477E+01,& - 0.1479E+01, 0.1482E+01, 0.1485E+01, 0.1488E+01,& - 0.1490E+01, 0.1493E+01, 0.1496E+01, 0.1499E+01,& - 0.1502E+01, 0.1505E+01, 0.1508E+01, 0.1511E+01,& - 0.1514E+01, 0.1517E+01, 0.1520E+01, 0.1523E+01,& - 0.1526E+01, 0.1529E+01, 0.1532E+01, 0.1535E+01,& - 0.1539E+01, 0.1542E+01, 0.1545E+01, 0.1549E+01,& - 0.1552E+01, 0.1556E+01, 0.1559E+01, 0.1563E+01,& - 0.1566E+01, 0.1570E+01, 0.1574E+01, 0.1577E+01,& - 0.1581E+01, 0.1585E+01, 0.1589E+01, 0.1593E+01,& - 0.1597E+01, 0.1601E+01, 0.1605E+01, 0.1609E+01,& - 0.1614E+01, 0.1618E+01, 0.1623E+01, 0.1627E+01,& - 0.1632E+01, 0.1636E+01, 0.1641E+01, 0.1646E+01,& - 0.1651E+01, 0.1656E+01, 0.1661E+01, 0.1666E+01,& - 0.1671E+01, 0.1677E+01, 0.1682E+01, 0.1688E+01,& - 0.1694E+01, 0.1700E+01, 0.1706E+01, 0.1712E+01,& - 0.1719E+01, 0.1725E+01, 0.1732E+01, 0.1739E+01,& - 0.1746E+01, 0.1753E+01, 0.1761E+01, 0.1769E+01,& - 0.1777E+01, 0.1785E+01, 0.1794E+01, 0.1802E+01,& - 0.1812E+01, 0.1821E+01, 0.1832E+01, 0.1842E+01,& - 0.1853E+01, 0.1865E+01, 0.1877E+01, 0.1890E+01,& - 0.1904E+01, 0.1918E+01, 0.1934E+01, 0.1950E+01,& - 0.1968E+01, 0.1988E+01, 0.2010E+01, 0.2034E+01,& - 0.2061E+01, 0.2092E+01, 0.2128E+01, 0.2172E+01,& - 0.1000E-04, 0.2206E+00, 0.2492E+00, 0.2681E+00/) - xcw(:, 12) = (/& - 0.1000E-04, 0.2206E+00, 0.2492E+00, 0.2681E+00,& - 0.2827E+00, 0.2947E+00, 0.3050E+00, 0.3141E+00,& - 0.3222E+00, 0.3297E+00, 0.3366E+00, 0.3429E+00,& - 0.3489E+00, 0.3545E+00, 0.3598E+00, 0.3649E+00,& - 0.3697E+00, 0.3743E+00, 0.3787E+00, 0.3830E+00,& - 0.3871E+00, 0.3910E+00, 0.3949E+00, 0.3986E+00,& - 0.4022E+00, 0.4057E+00, 0.4091E+00, 0.4124E+00,& - 0.4156E+00, 0.4188E+00, 0.4219E+00, 0.4249E+00,& - 0.4278E+00, 0.4307E+00, 0.4335E+00, 0.4363E+00,& - 0.4390E+00, 0.4417E+00, 0.4443E+00, 0.4469E+00,& - 0.4495E+00, 0.4519E+00, 0.4544E+00, 0.4568E+00,& - 0.4592E+00, 0.4616E+00, 0.4639E+00, 0.4662E+00,& - 0.4684E+00, 0.4706E+00, 0.4728E+00, 0.4750E+00,& - 0.4771E+00, 0.4792E+00, 0.4813E+00, 0.4834E+00,& - 0.4854E+00, 0.4875E+00, 0.4895E+00, 0.4914E+00,& - 0.4934E+00, 0.4953E+00, 0.4972E+00, 0.4991E+00,& - 0.5010E+00, 0.5029E+00, 0.5047E+00, 0.5065E+00,& - 0.5084E+00, 0.5102E+00, 0.5119E+00, 0.5137E+00,& - 0.5154E+00, 0.5172E+00, 0.5189E+00, 0.5206E+00,& - 0.5223E+00, 0.5240E+00, 0.5257E+00, 0.5273E+00,& - 0.5290E+00, 0.5306E+00, 0.5322E+00, 0.5338E+00,& - 0.5354E+00, 0.5370E+00, 0.5386E+00, 0.5401E+00,& - 0.5417E+00, 0.5432E+00, 0.5448E+00, 0.5463E+00,& - 0.5478E+00, 0.5493E+00, 0.5508E+00, 0.5523E+00,& - 0.5538E+00, 0.5553E+00, 0.5567E+00, 0.5582E+00,& - 0.5596E+00, 0.5611E+00, 0.5625E+00, 0.5639E+00,& - 0.5653E+00, 0.5667E+00, 0.5681E+00, 0.5695E+00,& - 0.5709E+00, 0.5723E+00, 0.5737E+00, 0.5750E+00,& - 0.5764E+00, 0.5778E+00, 0.5791E+00, 0.5804E+00,& - 0.5818E+00, 0.5831E+00, 0.5844E+00, 0.5858E+00,& - 0.5871E+00, 0.5884E+00, 0.5897E+00, 0.5910E+00,& - 0.5923E+00, 0.5935E+00, 0.5948E+00, 0.5961E+00,& - 0.5974E+00, 0.5986E+00, 0.5999E+00, 0.6011E+00,& - 0.6024E+00, 0.6036E+00, 0.6049E+00, 0.6061E+00,& - 0.6073E+00, 0.6086E+00, 0.6098E+00, 0.6110E+00,& - 0.6122E+00, 0.6134E+00, 0.6146E+00, 0.6158E+00,& - 0.6170E+00, 0.6182E+00, 0.6194E+00, 0.6206E+00,& - 0.6218E+00, 0.6230E+00, 0.6241E+00, 0.6253E+00,& - 0.6265E+00, 0.6276E+00, 0.6288E+00, 0.6300E+00,& - 0.6311E+00, 0.6323E+00, 0.6334E+00, 0.6345E+00,& - 0.6357E+00, 0.6368E+00, 0.6379E+00, 0.6391E+00,& - 0.6402E+00, 0.6413E+00, 0.6424E+00, 0.6436E+00,& - 0.6447E+00, 0.6458E+00, 0.6469E+00, 0.6480E+00,& - 0.6491E+00, 0.6502E+00, 0.6513E+00, 0.6524E+00,& - 0.6535E+00, 0.6546E+00, 0.6557E+00, 0.6568E+00,& - 0.6578E+00, 0.6589E+00, 0.6600E+00, 0.6611E+00,& - 0.6621E+00, 0.6632E+00, 0.6643E+00, 0.6653E+00,& - 0.6664E+00, 0.6675E+00, 0.6685E+00, 0.6696E+00,& - 0.6706E+00, 0.6717E+00, 0.6727E+00, 0.6738E+00,& - 0.6748E+00, 0.6758E+00, 0.6769E+00, 0.6779E+00,& - 0.6790E+00, 0.6800E+00, 0.6810E+00, 0.6821E+00,& - 0.6831E+00, 0.6841E+00, 0.6851E+00, 0.6862E+00,& - 0.6872E+00, 0.6882E+00, 0.6892E+00, 0.6902E+00,& - 0.6912E+00, 0.6922E+00, 0.6933E+00, 0.6943E+00,& - 0.6953E+00, 0.6963E+00, 0.6973E+00, 0.6983E+00,& - 0.6993E+00, 0.7003E+00, 0.7013E+00, 0.7023E+00,& - 0.7033E+00, 0.7043E+00, 0.7052E+00, 0.7062E+00,& - 0.7072E+00, 0.7082E+00, 0.7092E+00, 0.7102E+00,& - 0.7111E+00, 0.7121E+00, 0.7131E+00, 0.7141E+00,& - 0.7151E+00, 0.7160E+00, 0.7170E+00, 0.7180E+00,& - 0.7189E+00, 0.7199E+00, 0.7209E+00, 0.7218E+00,& - 0.7228E+00, 0.7238E+00, 0.7247E+00, 0.7257E+00,& - 0.7267E+00, 0.7276E+00, 0.7286E+00, 0.7295E+00,& - 0.7305E+00, 0.7314E+00, 0.7324E+00, 0.7333E+00,& - 0.7343E+00, 0.7352E+00, 0.7362E+00, 0.7371E+00,& - 0.7381E+00, 0.7390E+00, 0.7400E+00, 0.7409E+00,& - 0.7419E+00, 0.7428E+00, 0.7437E+00, 0.7447E+00,& - 0.7456E+00, 0.7466E+00, 0.7475E+00, 0.7484E+00,& - 0.7494E+00, 0.7503E+00, 0.7512E+00, 0.7522E+00,& - 0.7531E+00, 0.7540E+00, 0.7549E+00, 0.7559E+00,& - 0.7568E+00, 0.7577E+00, 0.7587E+00, 0.7596E+00,& - 0.7605E+00, 0.7614E+00, 0.7624E+00, 0.7633E+00,& - 0.7642E+00, 0.7651E+00, 0.7660E+00, 0.7670E+00,& - 0.7679E+00, 0.7688E+00, 0.7697E+00, 0.7706E+00,& - 0.7715E+00, 0.7725E+00, 0.7734E+00, 0.7743E+00,& - 0.7752E+00, 0.7761E+00, 0.7770E+00, 0.7779E+00,& - 0.7788E+00, 0.7797E+00, 0.7807E+00, 0.7816E+00,& - 0.7825E+00, 0.7834E+00, 0.7843E+00, 0.7852E+00,& - 0.7861E+00, 0.7870E+00, 0.7879E+00, 0.7888E+00,& - 0.7897E+00, 0.7906E+00, 0.7915E+00, 0.7924E+00,& - 0.7933E+00, 0.7942E+00, 0.7951E+00, 0.7960E+00,& - 0.7969E+00, 0.7978E+00, 0.7987E+00, 0.7996E+00,& - 0.8005E+00, 0.8014E+00, 0.8023E+00, 0.8032E+00,& - 0.8041E+00, 0.8050E+00, 0.8059E+00, 0.8068E+00,& - 0.8077E+00, 0.8086E+00, 0.8095E+00, 0.8104E+00,& - 0.8113E+00, 0.8122E+00, 0.8130E+00, 0.8139E+00,& - 0.8148E+00, 0.8157E+00, 0.8166E+00, 0.8175E+00,& - 0.8184E+00, 0.8193E+00, 0.8202E+00, 0.8211E+00,& - 0.8220E+00, 0.8228E+00, 0.8237E+00, 0.8246E+00,& - 0.8255E+00, 0.8264E+00, 0.8273E+00, 0.8282E+00,& - 0.8291E+00, 0.8300E+00, 0.8308E+00, 0.8317E+00,& - 0.8326E+00, 0.8335E+00, 0.8344E+00, 0.8353E+00,& - 0.8362E+00, 0.8370E+00, 0.8379E+00, 0.8388E+00,& - 0.8397E+00, 0.8406E+00, 0.8415E+00, 0.8424E+00,& - 0.8432E+00, 0.8441E+00, 0.8450E+00, 0.8459E+00,& - 0.8468E+00, 0.8477E+00, 0.8486E+00, 0.8494E+00,& - 0.8503E+00, 0.8512E+00, 0.8521E+00, 0.8530E+00,& - 0.8539E+00, 0.8547E+00, 0.8556E+00, 0.8565E+00,& - 0.8574E+00, 0.8583E+00, 0.8592E+00, 0.8601E+00,& - 0.8609E+00, 0.8618E+00, 0.8627E+00, 0.8636E+00,& - 0.8645E+00, 0.8654E+00, 0.8662E+00, 0.8671E+00,& - 0.8680E+00, 0.8689E+00, 0.8698E+00, 0.8707E+00,& - 0.8715E+00, 0.8724E+00, 0.8733E+00, 0.8742E+00,& - 0.8751E+00, 0.8760E+00, 0.8769E+00, 0.8777E+00,& - 0.8786E+00, 0.8795E+00, 0.8804E+00, 0.8813E+00,& - 0.8822E+00, 0.8831E+00, 0.8839E+00, 0.8848E+00,& - 0.8857E+00, 0.8866E+00, 0.8875E+00, 0.8884E+00,& - 0.8893E+00, 0.8902E+00, 0.8910E+00, 0.8919E+00,& - 0.8928E+00, 0.8937E+00, 0.8946E+00, 0.8955E+00,& - 0.8964E+00, 0.8973E+00, 0.8982E+00, 0.8990E+00,& - 0.8999E+00, 0.9008E+00, 0.9017E+00, 0.9026E+00,& - 0.9035E+00, 0.9044E+00, 0.9053E+00, 0.9062E+00,& - 0.9071E+00, 0.9080E+00, 0.9088E+00, 0.9097E+00,& - 0.9106E+00, 0.9115E+00, 0.9124E+00, 0.9133E+00,& - 0.9142E+00, 0.9151E+00, 0.9160E+00, 0.9169E+00,& - 0.9178E+00, 0.9187E+00, 0.9196E+00, 0.9205E+00,& - 0.9214E+00, 0.9223E+00, 0.9232E+00, 0.9241E+00,& - 0.9250E+00, 0.9259E+00, 0.9268E+00, 0.9277E+00,& - 0.9286E+00, 0.9295E+00, 0.9304E+00, 0.9313E+00,& - 0.9322E+00, 0.9331E+00, 0.9340E+00, 0.9349E+00,& - 0.9358E+00, 0.9367E+00, 0.9376E+00, 0.9385E+00,& - 0.9394E+00, 0.9403E+00, 0.9412E+00, 0.9421E+00,& - 0.9430E+00, 0.9440E+00, 0.9449E+00, 0.9458E+00,& - 0.9467E+00, 0.9476E+00, 0.9485E+00, 0.9494E+00,& - 0.9503E+00, 0.9512E+00, 0.9522E+00, 0.9531E+00,& - 0.9540E+00, 0.9549E+00, 0.9558E+00, 0.9567E+00,& - 0.9577E+00, 0.9586E+00, 0.9595E+00, 0.9604E+00,& - 0.9613E+00, 0.9623E+00, 0.9632E+00, 0.9641E+00,& - 0.9650E+00, 0.9659E+00, 0.9669E+00, 0.9678E+00,& - 0.9687E+00, 0.9696E+00, 0.9706E+00, 0.9715E+00,& - 0.9724E+00, 0.9734E+00, 0.9743E+00, 0.9752E+00,& - 0.9761E+00, 0.9771E+00, 0.9780E+00, 0.9789E+00,& - 0.9799E+00, 0.9808E+00, 0.9817E+00, 0.9827E+00,& - 0.9836E+00, 0.9846E+00, 0.9855E+00, 0.9864E+00,& - 0.9874E+00, 0.9883E+00, 0.9893E+00, 0.9902E+00,& - 0.9911E+00, 0.9921E+00, 0.9930E+00, 0.9940E+00,& - 0.9949E+00, 0.9959E+00, 0.9968E+00, 0.9978E+00,& - 0.9987E+00, 0.9997E+00, 0.1001E+01, 0.1002E+01,& - 0.1003E+01, 0.1003E+01, 0.1004E+01, 0.1005E+01,& - 0.1006E+01, 0.1007E+01, 0.1008E+01, 0.1009E+01,& - 0.1010E+01, 0.1011E+01, 0.1012E+01, 0.1013E+01,& - 0.1014E+01, 0.1015E+01, 0.1016E+01, 0.1017E+01,& - 0.1018E+01, 0.1019E+01, 0.1020E+01, 0.1021E+01,& - 0.1022E+01, 0.1023E+01, 0.1024E+01, 0.1025E+01,& - 0.1026E+01, 0.1027E+01, 0.1028E+01, 0.1029E+01,& - 0.1030E+01, 0.1031E+01, 0.1032E+01, 0.1033E+01,& - 0.1034E+01, 0.1035E+01, 0.1036E+01, 0.1037E+01,& - 0.1038E+01, 0.1039E+01, 0.1040E+01, 0.1041E+01,& - 0.1042E+01, 0.1043E+01, 0.1044E+01, 0.1045E+01,& - 0.1046E+01, 0.1047E+01, 0.1048E+01, 0.1049E+01,& - 0.1050E+01, 0.1051E+01, 0.1052E+01, 0.1053E+01,& - 0.1054E+01, 0.1055E+01, 0.1056E+01, 0.1057E+01,& - 0.1058E+01, 0.1059E+01, 0.1060E+01, 0.1061E+01,& - 0.1062E+01, 0.1063E+01, 0.1064E+01, 0.1065E+01,& - 0.1066E+01, 0.1067E+01, 0.1068E+01, 0.1069E+01,& - 0.1070E+01, 0.1071E+01, 0.1072E+01, 0.1073E+01,& - 0.1074E+01, 0.1075E+01, 0.1076E+01, 0.1077E+01,& - 0.1078E+01, 0.1079E+01, 0.1080E+01, 0.1081E+01,& - 0.1083E+01, 0.1084E+01, 0.1085E+01, 0.1086E+01,& - 0.1087E+01, 0.1088E+01, 0.1089E+01, 0.1090E+01,& - 0.1091E+01, 0.1092E+01, 0.1093E+01, 0.1094E+01,& - 0.1095E+01, 0.1096E+01, 0.1097E+01, 0.1099E+01,& - 0.1100E+01, 0.1101E+01, 0.1102E+01, 0.1103E+01,& - 0.1104E+01, 0.1105E+01, 0.1106E+01, 0.1107E+01,& - 0.1108E+01, 0.1109E+01, 0.1111E+01, 0.1112E+01,& - 0.1113E+01, 0.1114E+01, 0.1115E+01, 0.1116E+01,& - 0.1117E+01, 0.1118E+01, 0.1119E+01, 0.1121E+01,& - 0.1122E+01, 0.1123E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1127E+01, 0.1128E+01, 0.1130E+01,& - 0.1131E+01, 0.1132E+01, 0.1133E+01, 0.1134E+01,& - 0.1135E+01, 0.1136E+01, 0.1138E+01, 0.1139E+01,& - 0.1140E+01, 0.1141E+01, 0.1142E+01, 0.1143E+01,& - 0.1144E+01, 0.1146E+01, 0.1147E+01, 0.1148E+01,& - 0.1149E+01, 0.1150E+01, 0.1152E+01, 0.1153E+01,& - 0.1154E+01, 0.1155E+01, 0.1156E+01, 0.1157E+01,& - 0.1159E+01, 0.1160E+01, 0.1161E+01, 0.1162E+01,& - 0.1163E+01, 0.1165E+01, 0.1166E+01, 0.1167E+01,& - 0.1168E+01, 0.1170E+01, 0.1171E+01, 0.1172E+01,& - 0.1173E+01, 0.1174E+01, 0.1176E+01, 0.1177E+01,& - 0.1178E+01, 0.1179E+01, 0.1181E+01, 0.1182E+01,& - 0.1183E+01, 0.1184E+01, 0.1186E+01, 0.1187E+01,& - 0.1188E+01, 0.1189E+01, 0.1191E+01, 0.1192E+01,& - 0.1193E+01, 0.1195E+01, 0.1196E+01, 0.1197E+01,& - 0.1198E+01, 0.1200E+01, 0.1201E+01, 0.1202E+01,& - 0.1204E+01, 0.1205E+01, 0.1206E+01, 0.1208E+01,& - 0.1209E+01, 0.1210E+01, 0.1211E+01, 0.1213E+01,& - 0.1214E+01, 0.1215E+01, 0.1217E+01, 0.1218E+01,& - 0.1220E+01, 0.1221E+01, 0.1222E+01, 0.1224E+01,& - 0.1225E+01, 0.1226E+01, 0.1228E+01, 0.1229E+01,& - 0.1230E+01, 0.1232E+01, 0.1233E+01, 0.1235E+01,& - 0.1236E+01, 0.1237E+01, 0.1239E+01, 0.1240E+01,& - 0.1242E+01, 0.1243E+01, 0.1244E+01, 0.1246E+01,& - 0.1247E+01, 0.1249E+01, 0.1250E+01, 0.1252E+01,& - 0.1253E+01, 0.1254E+01, 0.1256E+01, 0.1257E+01,& - 0.1259E+01, 0.1260E+01, 0.1262E+01, 0.1263E+01,& - 0.1265E+01, 0.1266E+01, 0.1268E+01, 0.1269E+01,& - 0.1271E+01, 0.1272E+01, 0.1274E+01, 0.1275E+01,& - 0.1277E+01, 0.1278E+01, 0.1280E+01, 0.1281E+01,& - 0.1283E+01, 0.1285E+01, 0.1286E+01, 0.1288E+01,& - 0.1289E+01, 0.1291E+01, 0.1292E+01, 0.1294E+01,& - 0.1296E+01, 0.1297E+01, 0.1299E+01, 0.1300E+01,& - 0.1302E+01, 0.1304E+01, 0.1305E+01, 0.1307E+01,& - 0.1309E+01, 0.1310E+01, 0.1312E+01, 0.1314E+01,& - 0.1315E+01, 0.1317E+01, 0.1319E+01, 0.1320E+01,& - 0.1322E+01, 0.1324E+01, 0.1326E+01, 0.1327E+01,& - 0.1329E+01, 0.1331E+01, 0.1332E+01, 0.1334E+01,& - 0.1336E+01, 0.1338E+01, 0.1340E+01, 0.1341E+01,& - 0.1343E+01, 0.1345E+01, 0.1347E+01, 0.1349E+01,& - 0.1350E+01, 0.1352E+01, 0.1354E+01, 0.1356E+01,& - 0.1358E+01, 0.1360E+01, 0.1362E+01, 0.1363E+01,& - 0.1365E+01, 0.1367E+01, 0.1369E+01, 0.1371E+01,& - 0.1373E+01, 0.1375E+01, 0.1377E+01, 0.1379E+01,& - 0.1381E+01, 0.1383E+01, 0.1385E+01, 0.1387E+01,& - 0.1389E+01, 0.1391E+01, 0.1393E+01, 0.1395E+01,& - 0.1397E+01, 0.1399E+01, 0.1401E+01, 0.1403E+01,& - 0.1406E+01, 0.1408E+01, 0.1410E+01, 0.1412E+01,& - 0.1414E+01, 0.1416E+01, 0.1419E+01, 0.1421E+01,& - 0.1423E+01, 0.1425E+01, 0.1428E+01, 0.1430E+01,& - 0.1432E+01, 0.1434E+01, 0.1437E+01, 0.1439E+01,& - 0.1441E+01, 0.1444E+01, 0.1446E+01, 0.1449E+01,& - 0.1451E+01, 0.1453E+01, 0.1456E+01, 0.1458E+01,& - 0.1461E+01, 0.1463E+01, 0.1466E+01, 0.1468E+01,& - 0.1471E+01, 0.1473E+01, 0.1476E+01, 0.1479E+01,& - 0.1481E+01, 0.1484E+01, 0.1487E+01, 0.1489E+01,& - 0.1492E+01, 0.1495E+01, 0.1497E+01, 0.1500E+01,& - 0.1503E+01, 0.1506E+01, 0.1509E+01, 0.1512E+01,& - 0.1515E+01, 0.1518E+01, 0.1520E+01, 0.1523E+01,& - 0.1526E+01, 0.1530E+01, 0.1533E+01, 0.1536E+01,& - 0.1539E+01, 0.1542E+01, 0.1545E+01, 0.1548E+01,& - 0.1552E+01, 0.1555E+01, 0.1558E+01, 0.1562E+01,& - 0.1565E+01, 0.1569E+01, 0.1572E+01, 0.1576E+01,& - 0.1579E+01, 0.1583E+01, 0.1586E+01, 0.1590E+01,& - 0.1594E+01, 0.1598E+01, 0.1601E+01, 0.1605E+01,& - 0.1609E+01, 0.1613E+01, 0.1617E+01, 0.1621E+01,& - 0.1626E+01, 0.1630E+01, 0.1634E+01, 0.1638E+01,& - 0.1643E+01, 0.1647E+01, 0.1652E+01, 0.1656E+01,& - 0.1661E+01, 0.1666E+01, 0.1671E+01, 0.1676E+01,& - 0.1681E+01, 0.1686E+01, 0.1691E+01, 0.1696E+01,& - 0.1701E+01, 0.1707E+01, 0.1713E+01, 0.1718E+01,& - 0.1724E+01, 0.1730E+01, 0.1736E+01, 0.1742E+01,& - 0.1749E+01, 0.1755E+01, 0.1762E+01, 0.1769E+01,& - 0.1776E+01, 0.1783E+01, 0.1790E+01, 0.1798E+01,& - 0.1805E+01, 0.1813E+01, 0.1822E+01, 0.1830E+01,& - 0.1839E+01, 0.1848E+01, 0.1858E+01, 0.1868E+01,& - 0.1878E+01, 0.1888E+01, 0.1899E+01, 0.1911E+01,& - 0.1923E+01, 0.1936E+01, 0.1949E+01, 0.1963E+01,& - 0.1978E+01, 0.1994E+01, 0.2011E+01, 0.2030E+01,& - 0.2050E+01, 0.2071E+01, 0.2095E+01, 0.2121E+01,& - 0.2151E+01, 0.2185E+01, 0.2225E+01, 0.2274E+01,& - 0.1000E-04, 0.1931E+00, 0.2208E+00, 0.2393E+00/) - xcw(:, 13) = (/& - 0.1000E-04, 0.1931E+00, 0.2208E+00, 0.2393E+00,& - 0.2536E+00, 0.2654E+00, 0.2756E+00, 0.2846E+00,& - 0.2927E+00, 0.3001E+00, 0.3070E+00, 0.3134E+00,& - 0.3193E+00, 0.3249E+00, 0.3303E+00, 0.3353E+00,& - 0.3402E+00, 0.3448E+00, 0.3493E+00, 0.3535E+00,& - 0.3577E+00, 0.3617E+00, 0.3655E+00, 0.3693E+00,& - 0.3729E+00, 0.3764E+00, 0.3799E+00, 0.3832E+00,& - 0.3865E+00, 0.3897E+00, 0.3928E+00, 0.3959E+00,& - 0.3989E+00, 0.4018E+00, 0.4047E+00, 0.4075E+00,& - 0.4103E+00, 0.4130E+00, 0.4156E+00, 0.4183E+00,& - 0.4208E+00, 0.4234E+00, 0.4259E+00, 0.4284E+00,& - 0.4308E+00, 0.4332E+00, 0.4355E+00, 0.4379E+00,& - 0.4402E+00, 0.4424E+00, 0.4447E+00, 0.4469E+00,& - 0.4491E+00, 0.4513E+00, 0.4534E+00, 0.4555E+00,& - 0.4576E+00, 0.4597E+00, 0.4617E+00, 0.4637E+00,& - 0.4657E+00, 0.4677E+00, 0.4697E+00, 0.4716E+00,& - 0.4735E+00, 0.4755E+00, 0.4773E+00, 0.4792E+00,& - 0.4811E+00, 0.4829E+00, 0.4847E+00, 0.4866E+00,& - 0.4884E+00, 0.4901E+00, 0.4919E+00, 0.4937E+00,& - 0.4954E+00, 0.4971E+00, 0.4988E+00, 0.5005E+00,& - 0.5022E+00, 0.5039E+00, 0.5056E+00, 0.5072E+00,& - 0.5089E+00, 0.5105E+00, 0.5121E+00, 0.5138E+00,& - 0.5154E+00, 0.5169E+00, 0.5185E+00, 0.5201E+00,& - 0.5217E+00, 0.5232E+00, 0.5248E+00, 0.5263E+00,& - 0.5278E+00, 0.5293E+00, 0.5309E+00, 0.5324E+00,& - 0.5339E+00, 0.5353E+00, 0.5368E+00, 0.5383E+00,& - 0.5397E+00, 0.5412E+00, 0.5427E+00, 0.5441E+00,& - 0.5455E+00, 0.5470E+00, 0.5484E+00, 0.5498E+00,& - 0.5512E+00, 0.5526E+00, 0.5540E+00, 0.5554E+00,& - 0.5568E+00, 0.5581E+00, 0.5595E+00, 0.5609E+00,& - 0.5622E+00, 0.5636E+00, 0.5649E+00, 0.5663E+00,& - 0.5676E+00, 0.5689E+00, 0.5703E+00, 0.5716E+00,& - 0.5729E+00, 0.5742E+00, 0.5755E+00, 0.5768E+00,& - 0.5781E+00, 0.5794E+00, 0.5807E+00, 0.5820E+00,& - 0.5832E+00, 0.5845E+00, 0.5858E+00, 0.5870E+00,& - 0.5883E+00, 0.5896E+00, 0.5908E+00, 0.5921E+00,& - 0.5933E+00, 0.5945E+00, 0.5958E+00, 0.5970E+00,& - 0.5982E+00, 0.5995E+00, 0.6007E+00, 0.6019E+00,& - 0.6031E+00, 0.6043E+00, 0.6055E+00, 0.6067E+00,& - 0.6079E+00, 0.6091E+00, 0.6103E+00, 0.6115E+00,& - 0.6127E+00, 0.6139E+00, 0.6150E+00, 0.6162E+00,& - 0.6174E+00, 0.6186E+00, 0.6197E+00, 0.6209E+00,& - 0.6220E+00, 0.6232E+00, 0.6244E+00, 0.6255E+00,& - 0.6267E+00, 0.6278E+00, 0.6289E+00, 0.6301E+00,& - 0.6312E+00, 0.6324E+00, 0.6335E+00, 0.6346E+00,& - 0.6357E+00, 0.6369E+00, 0.6380E+00, 0.6391E+00,& - 0.6402E+00, 0.6413E+00, 0.6425E+00, 0.6436E+00,& - 0.6447E+00, 0.6458E+00, 0.6469E+00, 0.6480E+00,& - 0.6491E+00, 0.6502E+00, 0.6513E+00, 0.6524E+00,& - 0.6535E+00, 0.6545E+00, 0.6556E+00, 0.6567E+00,& - 0.6578E+00, 0.6589E+00, 0.6599E+00, 0.6610E+00,& - 0.6621E+00, 0.6632E+00, 0.6642E+00, 0.6653E+00,& - 0.6664E+00, 0.6674E+00, 0.6685E+00, 0.6696E+00,& - 0.6706E+00, 0.6717E+00, 0.6727E+00, 0.6738E+00,& - 0.6748E+00, 0.6759E+00, 0.6769E+00, 0.6780E+00,& - 0.6790E+00, 0.6801E+00, 0.6811E+00, 0.6821E+00,& - 0.6832E+00, 0.6842E+00, 0.6853E+00, 0.6863E+00,& - 0.6873E+00, 0.6884E+00, 0.6894E+00, 0.6904E+00,& - 0.6914E+00, 0.6925E+00, 0.6935E+00, 0.6945E+00,& - 0.6955E+00, 0.6965E+00, 0.6976E+00, 0.6986E+00,& - 0.6996E+00, 0.7006E+00, 0.7016E+00, 0.7026E+00,& - 0.7037E+00, 0.7047E+00, 0.7057E+00, 0.7067E+00,& - 0.7077E+00, 0.7087E+00, 0.7097E+00, 0.7107E+00,& - 0.7117E+00, 0.7127E+00, 0.7137E+00, 0.7147E+00,& - 0.7157E+00, 0.7167E+00, 0.7177E+00, 0.7187E+00,& - 0.7197E+00, 0.7207E+00, 0.7216E+00, 0.7226E+00,& - 0.7236E+00, 0.7246E+00, 0.7256E+00, 0.7266E+00,& - 0.7276E+00, 0.7286E+00, 0.7295E+00, 0.7305E+00,& - 0.7315E+00, 0.7325E+00, 0.7335E+00, 0.7344E+00,& - 0.7354E+00, 0.7364E+00, 0.7374E+00, 0.7383E+00,& - 0.7393E+00, 0.7403E+00, 0.7413E+00, 0.7422E+00,& - 0.7432E+00, 0.7442E+00, 0.7451E+00, 0.7461E+00,& - 0.7471E+00, 0.7480E+00, 0.7490E+00, 0.7500E+00,& - 0.7509E+00, 0.7519E+00, 0.7529E+00, 0.7538E+00,& - 0.7548E+00, 0.7558E+00, 0.7567E+00, 0.7577E+00,& - 0.7586E+00, 0.7596E+00, 0.7606E+00, 0.7615E+00,& - 0.7625E+00, 0.7634E+00, 0.7644E+00, 0.7653E+00,& - 0.7663E+00, 0.7672E+00, 0.7682E+00, 0.7692E+00,& - 0.7701E+00, 0.7711E+00, 0.7720E+00, 0.7730E+00,& - 0.7739E+00, 0.7749E+00, 0.7758E+00, 0.7768E+00,& - 0.7777E+00, 0.7787E+00, 0.7796E+00, 0.7806E+00,& - 0.7815E+00, 0.7825E+00, 0.7834E+00, 0.7843E+00,& - 0.7853E+00, 0.7862E+00, 0.7872E+00, 0.7881E+00,& - 0.7891E+00, 0.7900E+00, 0.7910E+00, 0.7919E+00,& - 0.7928E+00, 0.7938E+00, 0.7947E+00, 0.7957E+00,& - 0.7966E+00, 0.7976E+00, 0.7985E+00, 0.7994E+00,& - 0.8004E+00, 0.8013E+00, 0.8023E+00, 0.8032E+00,& - 0.8041E+00, 0.8051E+00, 0.8060E+00, 0.8070E+00,& - 0.8079E+00, 0.8088E+00, 0.8098E+00, 0.8107E+00,& - 0.8116E+00, 0.8126E+00, 0.8135E+00, 0.8145E+00,& - 0.8154E+00, 0.8163E+00, 0.8173E+00, 0.8182E+00,& - 0.8191E+00, 0.8201E+00, 0.8210E+00, 0.8219E+00,& - 0.8229E+00, 0.8238E+00, 0.8248E+00, 0.8257E+00,& - 0.8266E+00, 0.8276E+00, 0.8285E+00, 0.8294E+00,& - 0.8304E+00, 0.8313E+00, 0.8322E+00, 0.8332E+00,& - 0.8341E+00, 0.8350E+00, 0.8360E+00, 0.8369E+00,& - 0.8378E+00, 0.8388E+00, 0.8397E+00, 0.8406E+00,& - 0.8416E+00, 0.8425E+00, 0.8434E+00, 0.8444E+00,& - 0.8453E+00, 0.8463E+00, 0.8472E+00, 0.8481E+00,& - 0.8491E+00, 0.8500E+00, 0.8509E+00, 0.8519E+00,& - 0.8528E+00, 0.8537E+00, 0.8547E+00, 0.8556E+00,& - 0.8565E+00, 0.8575E+00, 0.8584E+00, 0.8593E+00,& - 0.8603E+00, 0.8612E+00, 0.8622E+00, 0.8631E+00,& - 0.8640E+00, 0.8650E+00, 0.8659E+00, 0.8668E+00,& - 0.8678E+00, 0.8687E+00, 0.8696E+00, 0.8706E+00,& - 0.8715E+00, 0.8725E+00, 0.8734E+00, 0.8743E+00,& - 0.8753E+00, 0.8762E+00, 0.8772E+00, 0.8781E+00,& - 0.8790E+00, 0.8800E+00, 0.8809E+00, 0.8819E+00,& - 0.8828E+00, 0.8837E+00, 0.8847E+00, 0.8856E+00,& - 0.8866E+00, 0.8875E+00, 0.8884E+00, 0.8894E+00,& - 0.8903E+00, 0.8913E+00, 0.8922E+00, 0.8932E+00,& - 0.8941E+00, 0.8950E+00, 0.8960E+00, 0.8969E+00,& - 0.8979E+00, 0.8988E+00, 0.8998E+00, 0.9007E+00,& - 0.9017E+00, 0.9026E+00, 0.9036E+00, 0.9045E+00,& - 0.9055E+00, 0.9064E+00, 0.9074E+00, 0.9083E+00,& - 0.9093E+00, 0.9102E+00, 0.9112E+00, 0.9121E+00,& - 0.9131E+00, 0.9140E+00, 0.9150E+00, 0.9159E+00,& - 0.9169E+00, 0.9178E+00, 0.9188E+00, 0.9197E+00,& - 0.9207E+00, 0.9217E+00, 0.9226E+00, 0.9236E+00,& - 0.9245E+00, 0.9255E+00, 0.9264E+00, 0.9274E+00,& - 0.9284E+00, 0.9293E+00, 0.9303E+00, 0.9312E+00,& - 0.9322E+00, 0.9332E+00, 0.9341E+00, 0.9351E+00,& - 0.9361E+00, 0.9370E+00, 0.9380E+00, 0.9390E+00,& - 0.9399E+00, 0.9409E+00, 0.9419E+00, 0.9428E+00,& - 0.9438E+00, 0.9448E+00, 0.9457E+00, 0.9467E+00,& - 0.9477E+00, 0.9487E+00, 0.9496E+00, 0.9506E+00,& - 0.9516E+00, 0.9526E+00, 0.9535E+00, 0.9545E+00,& - 0.9555E+00, 0.9565E+00, 0.9574E+00, 0.9584E+00,& - 0.9594E+00, 0.9604E+00, 0.9614E+00, 0.9624E+00,& - 0.9633E+00, 0.9643E+00, 0.9653E+00, 0.9663E+00,& - 0.9673E+00, 0.9683E+00, 0.9693E+00, 0.9702E+00,& - 0.9712E+00, 0.9722E+00, 0.9732E+00, 0.9742E+00,& - 0.9752E+00, 0.9762E+00, 0.9772E+00, 0.9782E+00,& - 0.9792E+00, 0.9802E+00, 0.9812E+00, 0.9822E+00,& - 0.9832E+00, 0.9842E+00, 0.9852E+00, 0.9862E+00,& - 0.9872E+00, 0.9882E+00, 0.9892E+00, 0.9902E+00,& - 0.9912E+00, 0.9922E+00, 0.9932E+00, 0.9942E+00,& - 0.9953E+00, 0.9963E+00, 0.9973E+00, 0.9983E+00,& - 0.9993E+00, 0.1000E+01, 0.1001E+01, 0.1002E+01,& - 0.1003E+01, 0.1004E+01, 0.1005E+01, 0.1006E+01,& - 0.1007E+01, 0.1009E+01, 0.1010E+01, 0.1011E+01,& - 0.1012E+01, 0.1013E+01, 0.1014E+01, 0.1015E+01,& - 0.1016E+01, 0.1017E+01, 0.1018E+01, 0.1019E+01,& - 0.1020E+01, 0.1021E+01, 0.1022E+01, 0.1023E+01,& - 0.1024E+01, 0.1025E+01, 0.1026E+01, 0.1027E+01,& - 0.1028E+01, 0.1029E+01, 0.1030E+01, 0.1031E+01,& - 0.1032E+01, 0.1033E+01, 0.1035E+01, 0.1036E+01,& - 0.1037E+01, 0.1038E+01, 0.1039E+01, 0.1040E+01,& - 0.1041E+01, 0.1042E+01, 0.1043E+01, 0.1044E+01,& - 0.1045E+01, 0.1046E+01, 0.1047E+01, 0.1048E+01,& - 0.1049E+01, 0.1051E+01, 0.1052E+01, 0.1053E+01,& - 0.1054E+01, 0.1055E+01, 0.1056E+01, 0.1057E+01,& - 0.1058E+01, 0.1059E+01, 0.1060E+01, 0.1061E+01,& - 0.1062E+01, 0.1064E+01, 0.1065E+01, 0.1066E+01,& - 0.1067E+01, 0.1068E+01, 0.1069E+01, 0.1070E+01,& - 0.1071E+01, 0.1072E+01, 0.1073E+01, 0.1075E+01,& - 0.1076E+01, 0.1077E+01, 0.1078E+01, 0.1079E+01,& - 0.1080E+01, 0.1081E+01, 0.1082E+01, 0.1084E+01,& - 0.1085E+01, 0.1086E+01, 0.1087E+01, 0.1088E+01,& - 0.1089E+01, 0.1090E+01, 0.1091E+01, 0.1093E+01,& - 0.1094E+01, 0.1095E+01, 0.1096E+01, 0.1097E+01,& - 0.1098E+01, 0.1099E+01, 0.1101E+01, 0.1102E+01,& - 0.1103E+01, 0.1104E+01, 0.1105E+01, 0.1106E+01,& - 0.1108E+01, 0.1109E+01, 0.1110E+01, 0.1111E+01,& - 0.1112E+01, 0.1113E+01, 0.1115E+01, 0.1116E+01,& - 0.1117E+01, 0.1118E+01, 0.1119E+01, 0.1121E+01,& - 0.1122E+01, 0.1123E+01, 0.1124E+01, 0.1125E+01,& - 0.1126E+01, 0.1128E+01, 0.1129E+01, 0.1130E+01,& - 0.1131E+01, 0.1133E+01, 0.1134E+01, 0.1135E+01,& - 0.1136E+01, 0.1137E+01, 0.1139E+01, 0.1140E+01,& - 0.1141E+01, 0.1142E+01, 0.1144E+01, 0.1145E+01,& - 0.1146E+01, 0.1147E+01, 0.1148E+01, 0.1150E+01,& - 0.1151E+01, 0.1152E+01, 0.1153E+01, 0.1155E+01,& - 0.1156E+01, 0.1157E+01, 0.1158E+01, 0.1160E+01,& - 0.1161E+01, 0.1162E+01, 0.1164E+01, 0.1165E+01,& - 0.1166E+01, 0.1167E+01, 0.1169E+01, 0.1170E+01,& - 0.1171E+01, 0.1173E+01, 0.1174E+01, 0.1175E+01,& - 0.1176E+01, 0.1178E+01, 0.1179E+01, 0.1180E+01,& - 0.1182E+01, 0.1183E+01, 0.1184E+01, 0.1186E+01,& - 0.1187E+01, 0.1188E+01, 0.1190E+01, 0.1191E+01,& - 0.1192E+01, 0.1194E+01, 0.1195E+01, 0.1196E+01,& - 0.1198E+01, 0.1199E+01, 0.1201E+01, 0.1202E+01,& - 0.1203E+01, 0.1205E+01, 0.1206E+01, 0.1207E+01,& - 0.1209E+01, 0.1210E+01, 0.1212E+01, 0.1213E+01,& - 0.1214E+01, 0.1216E+01, 0.1217E+01, 0.1219E+01,& - 0.1220E+01, 0.1221E+01, 0.1223E+01, 0.1224E+01,& - 0.1226E+01, 0.1227E+01, 0.1229E+01, 0.1230E+01,& - 0.1231E+01, 0.1233E+01, 0.1234E+01, 0.1236E+01,& - 0.1237E+01, 0.1239E+01, 0.1240E+01, 0.1242E+01,& - 0.1243E+01, 0.1245E+01, 0.1246E+01, 0.1248E+01,& - 0.1249E+01, 0.1251E+01, 0.1252E+01, 0.1254E+01,& - 0.1255E+01, 0.1257E+01, 0.1258E+01, 0.1260E+01,& - 0.1261E+01, 0.1263E+01, 0.1264E+01, 0.1266E+01,& - 0.1267E+01, 0.1269E+01, 0.1271E+01, 0.1272E+01,& - 0.1274E+01, 0.1275E+01, 0.1277E+01, 0.1279E+01,& - 0.1280E+01, 0.1282E+01, 0.1283E+01, 0.1285E+01,& - 0.1287E+01, 0.1288E+01, 0.1290E+01, 0.1291E+01,& - 0.1293E+01, 0.1295E+01, 0.1296E+01, 0.1298E+01,& - 0.1300E+01, 0.1301E+01, 0.1303E+01, 0.1305E+01,& - 0.1306E+01, 0.1308E+01, 0.1310E+01, 0.1312E+01,& - 0.1313E+01, 0.1315E+01, 0.1317E+01, 0.1319E+01,& - 0.1320E+01, 0.1322E+01, 0.1324E+01, 0.1326E+01,& - 0.1327E+01, 0.1329E+01, 0.1331E+01, 0.1333E+01,& - 0.1335E+01, 0.1336E+01, 0.1338E+01, 0.1340E+01,& - 0.1342E+01, 0.1344E+01, 0.1345E+01, 0.1347E+01,& - 0.1349E+01, 0.1351E+01, 0.1353E+01, 0.1355E+01,& - 0.1357E+01, 0.1359E+01, 0.1361E+01, 0.1363E+01,& - 0.1364E+01, 0.1366E+01, 0.1368E+01, 0.1370E+01,& - 0.1372E+01, 0.1374E+01, 0.1376E+01, 0.1378E+01,& - 0.1380E+01, 0.1382E+01, 0.1384E+01, 0.1386E+01,& - 0.1388E+01, 0.1391E+01, 0.1393E+01, 0.1395E+01,& - 0.1397E+01, 0.1399E+01, 0.1401E+01, 0.1403E+01,& - 0.1405E+01, 0.1407E+01, 0.1410E+01, 0.1412E+01,& - 0.1414E+01, 0.1416E+01, 0.1418E+01, 0.1421E+01,& - 0.1423E+01, 0.1425E+01, 0.1427E+01, 0.1430E+01,& - 0.1432E+01, 0.1434E+01, 0.1437E+01, 0.1439E+01,& - 0.1441E+01, 0.1444E+01, 0.1446E+01, 0.1448E+01,& - 0.1451E+01, 0.1453E+01, 0.1456E+01, 0.1458E+01,& - 0.1461E+01, 0.1463E+01, 0.1465E+01, 0.1468E+01,& - 0.1471E+01, 0.1473E+01, 0.1476E+01, 0.1478E+01,& - 0.1481E+01, 0.1483E+01, 0.1486E+01, 0.1489E+01,& - 0.1491E+01, 0.1494E+01, 0.1497E+01, 0.1500E+01,& - 0.1502E+01, 0.1505E+01, 0.1508E+01, 0.1511E+01,& - 0.1514E+01, 0.1517E+01, 0.1519E+01, 0.1522E+01,& - 0.1525E+01, 0.1528E+01, 0.1531E+01, 0.1534E+01,& - 0.1537E+01, 0.1540E+01, 0.1543E+01, 0.1547E+01,& - 0.1550E+01, 0.1553E+01, 0.1556E+01, 0.1559E+01,& - 0.1563E+01, 0.1566E+01, 0.1569E+01, 0.1573E+01,& - 0.1576E+01, 0.1579E+01, 0.1583E+01, 0.1586E+01,& - 0.1590E+01, 0.1594E+01, 0.1597E+01, 0.1601E+01,& - 0.1605E+01, 0.1608E+01, 0.1612E+01, 0.1616E+01,& - 0.1620E+01, 0.1624E+01, 0.1628E+01, 0.1632E+01,& - 0.1636E+01, 0.1640E+01, 0.1644E+01, 0.1648E+01,& - 0.1652E+01, 0.1657E+01, 0.1661E+01, 0.1666E+01,& - 0.1670E+01, 0.1675E+01, 0.1679E+01, 0.1684E+01,& - 0.1689E+01, 0.1694E+01, 0.1699E+01, 0.1704E+01,& - 0.1709E+01, 0.1714E+01, 0.1719E+01, 0.1724E+01,& - 0.1730E+01, 0.1735E+01, 0.1741E+01, 0.1747E+01,& - 0.1753E+01, 0.1759E+01, 0.1765E+01, 0.1771E+01,& - 0.1777E+01, 0.1784E+01, 0.1790E+01, 0.1797E+01,& - 0.1804E+01, 0.1811E+01, 0.1818E+01, 0.1826E+01,& - 0.1833E+01, 0.1841E+01, 0.1849E+01, 0.1857E+01,& - 0.1866E+01, 0.1875E+01, 0.1884E+01, 0.1893E+01,& - 0.1903E+01, 0.1912E+01, 0.1923E+01, 0.1934E+01,& - 0.1945E+01, 0.1956E+01, 0.1968E+01, 0.1981E+01,& - 0.1994E+01, 0.2008E+01, 0.2023E+01, 0.2038E+01,& - 0.2055E+01, 0.2072E+01, 0.2091E+01, 0.2111E+01,& - 0.2132E+01, 0.2156E+01, 0.2182E+01, 0.2211E+01,& - 0.2244E+01, 0.2281E+01, 0.2325E+01, 0.2378E+01,& - 0.1000E-04, 0.1681E+00, 0.1947E+00, 0.2127E+00/) - xcw(:, 14) = (/& - 0.1000E-04, 0.1681E+00, 0.1947E+00, 0.2127E+00,& - 0.2266E+00, 0.2382E+00, 0.2482E+00, 0.2571E+00,& - 0.2651E+00, 0.2724E+00, 0.2792E+00, 0.2855E+00,& - 0.2914E+00, 0.2970E+00, 0.3023E+00, 0.3074E+00,& - 0.3122E+00, 0.3168E+00, 0.3213E+00, 0.3255E+00,& - 0.3297E+00, 0.3337E+00, 0.3375E+00, 0.3413E+00,& - 0.3449E+00, 0.3485E+00, 0.3520E+00, 0.3553E+00,& - 0.3586E+00, 0.3618E+00, 0.3650E+00, 0.3681E+00,& - 0.3711E+00, 0.3741E+00, 0.3770E+00, 0.3798E+00,& - 0.3826E+00, 0.3853E+00, 0.3880E+00, 0.3907E+00,& - 0.3933E+00, 0.3959E+00, 0.3984E+00, 0.4009E+00,& - 0.4034E+00, 0.4058E+00, 0.4082E+00, 0.4106E+00,& - 0.4129E+00, 0.4152E+00, 0.4175E+00, 0.4197E+00,& - 0.4220E+00, 0.4242E+00, 0.4263E+00, 0.4285E+00,& - 0.4306E+00, 0.4327E+00, 0.4348E+00, 0.4369E+00,& - 0.4389E+00, 0.4409E+00, 0.4429E+00, 0.4449E+00,& - 0.4469E+00, 0.4488E+00, 0.4508E+00, 0.4527E+00,& - 0.4546E+00, 0.4564E+00, 0.4583E+00, 0.4602E+00,& - 0.4620E+00, 0.4638E+00, 0.4656E+00, 0.4674E+00,& - 0.4692E+00, 0.4710E+00, 0.4727E+00, 0.4745E+00,& - 0.4762E+00, 0.4779E+00, 0.4796E+00, 0.4813E+00,& - 0.4830E+00, 0.4847E+00, 0.4863E+00, 0.4880E+00,& - 0.4896E+00, 0.4913E+00, 0.4929E+00, 0.4945E+00,& - 0.4961E+00, 0.4977E+00, 0.4993E+00, 0.5009E+00,& - 0.5024E+00, 0.5040E+00, 0.5055E+00, 0.5071E+00,& - 0.5086E+00, 0.5101E+00, 0.5117E+00, 0.5132E+00,& - 0.5147E+00, 0.5162E+00, 0.5177E+00, 0.5191E+00,& - 0.5206E+00, 0.5221E+00, 0.5236E+00, 0.5250E+00,& - 0.5265E+00, 0.5279E+00, 0.5293E+00, 0.5308E+00,& - 0.5322E+00, 0.5336E+00, 0.5350E+00, 0.5364E+00,& - 0.5378E+00, 0.5392E+00, 0.5406E+00, 0.5420E+00,& - 0.5434E+00, 0.5447E+00, 0.5461E+00, 0.5475E+00,& - 0.5488E+00, 0.5502E+00, 0.5515E+00, 0.5529E+00,& - 0.5542E+00, 0.5555E+00, 0.5569E+00, 0.5582E+00,& - 0.5595E+00, 0.5608E+00, 0.5621E+00, 0.5634E+00,& - 0.5647E+00, 0.5660E+00, 0.5673E+00, 0.5686E+00,& - 0.5699E+00, 0.5712E+00, 0.5724E+00, 0.5737E+00,& - 0.5750E+00, 0.5763E+00, 0.5775E+00, 0.5788E+00,& - 0.5800E+00, 0.5813E+00, 0.5825E+00, 0.5838E+00,& - 0.5850E+00, 0.5862E+00, 0.5875E+00, 0.5887E+00,& - 0.5899E+00, 0.5912E+00, 0.5924E+00, 0.5936E+00,& - 0.5948E+00, 0.5960E+00, 0.5972E+00, 0.5984E+00,& - 0.5996E+00, 0.6008E+00, 0.6020E+00, 0.6032E+00,& - 0.6044E+00, 0.6056E+00, 0.6068E+00, 0.6080E+00,& - 0.6092E+00, 0.6103E+00, 0.6115E+00, 0.6127E+00,& - 0.6138E+00, 0.6150E+00, 0.6162E+00, 0.6173E+00,& - 0.6185E+00, 0.6197E+00, 0.6208E+00, 0.6220E+00,& - 0.6231E+00, 0.6243E+00, 0.6254E+00, 0.6265E+00,& - 0.6277E+00, 0.6288E+00, 0.6300E+00, 0.6311E+00,& - 0.6322E+00, 0.6334E+00, 0.6345E+00, 0.6356E+00,& - 0.6367E+00, 0.6379E+00, 0.6390E+00, 0.6401E+00,& - 0.6412E+00, 0.6423E+00, 0.6434E+00, 0.6445E+00,& - 0.6457E+00, 0.6468E+00, 0.6479E+00, 0.6490E+00,& - 0.6501E+00, 0.6512E+00, 0.6523E+00, 0.6534E+00,& - 0.6545E+00, 0.6556E+00, 0.6566E+00, 0.6577E+00,& - 0.6588E+00, 0.6599E+00, 0.6610E+00, 0.6621E+00,& - 0.6632E+00, 0.6642E+00, 0.6653E+00, 0.6664E+00,& - 0.6675E+00, 0.6685E+00, 0.6696E+00, 0.6707E+00,& - 0.6718E+00, 0.6728E+00, 0.6739E+00, 0.6750E+00,& - 0.6760E+00, 0.6771E+00, 0.6781E+00, 0.6792E+00,& - 0.6803E+00, 0.6813E+00, 0.6824E+00, 0.6834E+00,& - 0.6845E+00, 0.6855E+00, 0.6866E+00, 0.6876E+00,& - 0.6887E+00, 0.6897E+00, 0.6908E+00, 0.6918E+00,& - 0.6929E+00, 0.6939E+00, 0.6950E+00, 0.6960E+00,& - 0.6970E+00, 0.6981E+00, 0.6991E+00, 0.7002E+00,& - 0.7012E+00, 0.7022E+00, 0.7033E+00, 0.7043E+00,& - 0.7053E+00, 0.7064E+00, 0.7074E+00, 0.7084E+00,& - 0.7095E+00, 0.7105E+00, 0.7115E+00, 0.7125E+00,& - 0.7136E+00, 0.7146E+00, 0.7156E+00, 0.7166E+00,& - 0.7177E+00, 0.7187E+00, 0.7197E+00, 0.7207E+00,& - 0.7217E+00, 0.7228E+00, 0.7238E+00, 0.7248E+00,& - 0.7258E+00, 0.7268E+00, 0.7278E+00, 0.7288E+00,& - 0.7299E+00, 0.7309E+00, 0.7319E+00, 0.7329E+00,& - 0.7339E+00, 0.7349E+00, 0.7359E+00, 0.7369E+00,& - 0.7379E+00, 0.7389E+00, 0.7399E+00, 0.7410E+00,& - 0.7420E+00, 0.7430E+00, 0.7440E+00, 0.7450E+00,& - 0.7460E+00, 0.7470E+00, 0.7480E+00, 0.7490E+00,& - 0.7500E+00, 0.7510E+00, 0.7520E+00, 0.7530E+00,& - 0.7540E+00, 0.7550E+00, 0.7560E+00, 0.7570E+00,& - 0.7580E+00, 0.7590E+00, 0.7600E+00, 0.7609E+00,& - 0.7619E+00, 0.7629E+00, 0.7639E+00, 0.7649E+00,& - 0.7659E+00, 0.7669E+00, 0.7679E+00, 0.7689E+00,& - 0.7699E+00, 0.7709E+00, 0.7719E+00, 0.7729E+00,& - 0.7739E+00, 0.7748E+00, 0.7758E+00, 0.7768E+00,& - 0.7778E+00, 0.7788E+00, 0.7798E+00, 0.7808E+00,& - 0.7818E+00, 0.7828E+00, 0.7837E+00, 0.7847E+00,& - 0.7857E+00, 0.7867E+00, 0.7877E+00, 0.7887E+00,& - 0.7897E+00, 0.7906E+00, 0.7916E+00, 0.7926E+00,& - 0.7936E+00, 0.7946E+00, 0.7956E+00, 0.7966E+00,& - 0.7975E+00, 0.7985E+00, 0.7995E+00, 0.8005E+00,& - 0.8015E+00, 0.8025E+00, 0.8035E+00, 0.8044E+00,& - 0.8054E+00, 0.8064E+00, 0.8074E+00, 0.8084E+00,& - 0.8094E+00, 0.8103E+00, 0.8113E+00, 0.8123E+00,& - 0.8133E+00, 0.8143E+00, 0.8153E+00, 0.8162E+00,& - 0.8172E+00, 0.8182E+00, 0.8192E+00, 0.8202E+00,& - 0.8212E+00, 0.8221E+00, 0.8231E+00, 0.8241E+00,& - 0.8251E+00, 0.8261E+00, 0.8271E+00, 0.8280E+00,& - 0.8290E+00, 0.8300E+00, 0.8310E+00, 0.8320E+00,& - 0.8330E+00, 0.8339E+00, 0.8349E+00, 0.8359E+00,& - 0.8369E+00, 0.8379E+00, 0.8389E+00, 0.8398E+00,& - 0.8408E+00, 0.8418E+00, 0.8428E+00, 0.8438E+00,& - 0.8448E+00, 0.8458E+00, 0.8467E+00, 0.8477E+00,& - 0.8487E+00, 0.8497E+00, 0.8507E+00, 0.8517E+00,& - 0.8527E+00, 0.8536E+00, 0.8546E+00, 0.8556E+00,& - 0.8566E+00, 0.8576E+00, 0.8586E+00, 0.8596E+00,& - 0.8606E+00, 0.8615E+00, 0.8625E+00, 0.8635E+00,& - 0.8645E+00, 0.8655E+00, 0.8665E+00, 0.8675E+00,& - 0.8685E+00, 0.8695E+00, 0.8705E+00, 0.8714E+00,& - 0.8724E+00, 0.8734E+00, 0.8744E+00, 0.8754E+00,& - 0.8764E+00, 0.8774E+00, 0.8784E+00, 0.8794E+00,& - 0.8804E+00, 0.8814E+00, 0.8824E+00, 0.8834E+00,& - 0.8844E+00, 0.8854E+00, 0.8864E+00, 0.8874E+00,& - 0.8884E+00, 0.8894E+00, 0.8904E+00, 0.8914E+00,& - 0.8924E+00, 0.8934E+00, 0.8944E+00, 0.8954E+00,& - 0.8964E+00, 0.8974E+00, 0.8984E+00, 0.8994E+00,& - 0.9004E+00, 0.9014E+00, 0.9024E+00, 0.9034E+00,& - 0.9044E+00, 0.9054E+00, 0.9064E+00, 0.9074E+00,& - 0.9084E+00, 0.9094E+00, 0.9104E+00, 0.9114E+00,& - 0.9125E+00, 0.9135E+00, 0.9145E+00, 0.9155E+00,& - 0.9165E+00, 0.9175E+00, 0.9185E+00, 0.9195E+00,& - 0.9206E+00, 0.9216E+00, 0.9226E+00, 0.9236E+00,& - 0.9246E+00, 0.9256E+00, 0.9267E+00, 0.9277E+00,& - 0.9287E+00, 0.9297E+00, 0.9307E+00, 0.9318E+00,& - 0.9328E+00, 0.9338E+00, 0.9348E+00, 0.9359E+00,& - 0.9369E+00, 0.9379E+00, 0.9389E+00, 0.9400E+00,& - 0.9410E+00, 0.9420E+00, 0.9431E+00, 0.9441E+00,& - 0.9451E+00, 0.9461E+00, 0.9472E+00, 0.9482E+00,& - 0.9492E+00, 0.9503E+00, 0.9513E+00, 0.9524E+00,& - 0.9534E+00, 0.9544E+00, 0.9555E+00, 0.9565E+00,& - 0.9576E+00, 0.9586E+00, 0.9596E+00, 0.9607E+00,& - 0.9617E+00, 0.9628E+00, 0.9638E+00, 0.9649E+00,& - 0.9659E+00, 0.9670E+00, 0.9680E+00, 0.9691E+00,& - 0.9701E+00, 0.9712E+00, 0.9722E+00, 0.9733E+00,& - 0.9743E+00, 0.9754E+00, 0.9765E+00, 0.9775E+00,& - 0.9786E+00, 0.9796E+00, 0.9807E+00, 0.9818E+00,& - 0.9828E+00, 0.9839E+00, 0.9850E+00, 0.9860E+00,& - 0.9871E+00, 0.9882E+00, 0.9892E+00, 0.9903E+00,& - 0.9914E+00, 0.9925E+00, 0.9935E+00, 0.9946E+00,& - 0.9957E+00, 0.9968E+00, 0.9978E+00, 0.9989E+00,& - 0.1000E+01, 0.1001E+01, 0.1002E+01, 0.1003E+01,& - 0.1004E+01, 0.1005E+01, 0.1007E+01, 0.1008E+01,& - 0.1009E+01, 0.1010E+01, 0.1011E+01, 0.1012E+01,& - 0.1013E+01, 0.1014E+01, 0.1015E+01, 0.1016E+01,& - 0.1017E+01, 0.1019E+01, 0.1020E+01, 0.1021E+01,& - 0.1022E+01, 0.1023E+01, 0.1024E+01, 0.1025E+01,& - 0.1026E+01, 0.1027E+01, 0.1029E+01, 0.1030E+01,& - 0.1031E+01, 0.1032E+01, 0.1033E+01, 0.1034E+01,& - 0.1035E+01, 0.1036E+01, 0.1038E+01, 0.1039E+01,& - 0.1040E+01, 0.1041E+01, 0.1042E+01, 0.1043E+01,& - 0.1044E+01, 0.1045E+01, 0.1047E+01, 0.1048E+01,& - 0.1049E+01, 0.1050E+01, 0.1051E+01, 0.1052E+01,& - 0.1053E+01, 0.1055E+01, 0.1056E+01, 0.1057E+01,& - 0.1058E+01, 0.1059E+01, 0.1060E+01, 0.1062E+01,& - 0.1063E+01, 0.1064E+01, 0.1065E+01, 0.1066E+01,& - 0.1067E+01, 0.1069E+01, 0.1070E+01, 0.1071E+01,& - 0.1072E+01, 0.1073E+01, 0.1074E+01, 0.1076E+01,& - 0.1077E+01, 0.1078E+01, 0.1079E+01, 0.1080E+01,& - 0.1082E+01, 0.1083E+01, 0.1084E+01, 0.1085E+01,& - 0.1086E+01, 0.1088E+01, 0.1089E+01, 0.1090E+01,& - 0.1091E+01, 0.1092E+01, 0.1094E+01, 0.1095E+01,& - 0.1096E+01, 0.1097E+01, 0.1098E+01, 0.1100E+01,& - 0.1101E+01, 0.1102E+01, 0.1103E+01, 0.1105E+01,& - 0.1106E+01, 0.1107E+01, 0.1108E+01, 0.1109E+01,& - 0.1111E+01, 0.1112E+01, 0.1113E+01, 0.1114E+01,& - 0.1116E+01, 0.1117E+01, 0.1118E+01, 0.1119E+01,& - 0.1121E+01, 0.1122E+01, 0.1123E+01, 0.1125E+01,& - 0.1126E+01, 0.1127E+01, 0.1128E+01, 0.1130E+01,& - 0.1131E+01, 0.1132E+01, 0.1133E+01, 0.1135E+01,& - 0.1136E+01, 0.1137E+01, 0.1139E+01, 0.1140E+01,& - 0.1141E+01, 0.1142E+01, 0.1144E+01, 0.1145E+01,& - 0.1146E+01, 0.1148E+01, 0.1149E+01, 0.1150E+01,& - 0.1152E+01, 0.1153E+01, 0.1154E+01, 0.1156E+01,& - 0.1157E+01, 0.1158E+01, 0.1160E+01, 0.1161E+01,& - 0.1162E+01, 0.1164E+01, 0.1165E+01, 0.1166E+01,& - 0.1168E+01, 0.1169E+01, 0.1170E+01, 0.1172E+01,& - 0.1173E+01, 0.1175E+01, 0.1176E+01, 0.1177E+01,& - 0.1179E+01, 0.1180E+01, 0.1181E+01, 0.1183E+01,& - 0.1184E+01, 0.1186E+01, 0.1187E+01, 0.1188E+01,& - 0.1190E+01, 0.1191E+01, 0.1193E+01, 0.1194E+01,& - 0.1195E+01, 0.1197E+01, 0.1198E+01, 0.1200E+01,& - 0.1201E+01, 0.1203E+01, 0.1204E+01, 0.1206E+01,& - 0.1207E+01, 0.1208E+01, 0.1210E+01, 0.1211E+01,& - 0.1213E+01, 0.1214E+01, 0.1216E+01, 0.1217E+01,& - 0.1219E+01, 0.1220E+01, 0.1222E+01, 0.1223E+01,& - 0.1225E+01, 0.1226E+01, 0.1228E+01, 0.1229E+01,& - 0.1231E+01, 0.1232E+01, 0.1234E+01, 0.1235E+01,& - 0.1237E+01, 0.1238E+01, 0.1240E+01, 0.1241E+01,& - 0.1243E+01, 0.1244E+01, 0.1246E+01, 0.1248E+01,& - 0.1249E+01, 0.1251E+01, 0.1252E+01, 0.1254E+01,& - 0.1255E+01, 0.1257E+01, 0.1259E+01, 0.1260E+01,& - 0.1262E+01, 0.1263E+01, 0.1265E+01, 0.1267E+01,& - 0.1268E+01, 0.1270E+01, 0.1272E+01, 0.1273E+01,& - 0.1275E+01, 0.1277E+01, 0.1278E+01, 0.1280E+01,& - 0.1282E+01, 0.1283E+01, 0.1285E+01, 0.1287E+01,& - 0.1288E+01, 0.1290E+01, 0.1292E+01, 0.1293E+01,& - 0.1295E+01, 0.1297E+01, 0.1298E+01, 0.1300E+01,& - 0.1302E+01, 0.1304E+01, 0.1305E+01, 0.1307E+01,& - 0.1309E+01, 0.1311E+01, 0.1313E+01, 0.1314E+01,& - 0.1316E+01, 0.1318E+01, 0.1320E+01, 0.1321E+01,& - 0.1323E+01, 0.1325E+01, 0.1327E+01, 0.1329E+01,& - 0.1331E+01, 0.1332E+01, 0.1334E+01, 0.1336E+01,& - 0.1338E+01, 0.1340E+01, 0.1342E+01, 0.1344E+01,& - 0.1346E+01, 0.1348E+01, 0.1350E+01, 0.1351E+01,& - 0.1353E+01, 0.1355E+01, 0.1357E+01, 0.1359E+01,& - 0.1361E+01, 0.1363E+01, 0.1365E+01, 0.1367E+01,& - 0.1369E+01, 0.1371E+01, 0.1373E+01, 0.1375E+01,& - 0.1377E+01, 0.1379E+01, 0.1381E+01, 0.1383E+01,& - 0.1386E+01, 0.1388E+01, 0.1390E+01, 0.1392E+01,& - 0.1394E+01, 0.1396E+01, 0.1398E+01, 0.1400E+01,& - 0.1403E+01, 0.1405E+01, 0.1407E+01, 0.1409E+01,& - 0.1411E+01, 0.1414E+01, 0.1416E+01, 0.1418E+01,& - 0.1420E+01, 0.1422E+01, 0.1425E+01, 0.1427E+01,& - 0.1429E+01, 0.1432E+01, 0.1434E+01, 0.1436E+01,& - 0.1439E+01, 0.1441E+01, 0.1443E+01, 0.1446E+01,& - 0.1448E+01, 0.1451E+01, 0.1453E+01, 0.1456E+01,& - 0.1458E+01, 0.1460E+01, 0.1463E+01, 0.1465E+01,& - 0.1468E+01, 0.1471E+01, 0.1473E+01, 0.1476E+01,& - 0.1478E+01, 0.1481E+01, 0.1483E+01, 0.1486E+01,& - 0.1489E+01, 0.1491E+01, 0.1494E+01, 0.1497E+01,& - 0.1500E+01, 0.1502E+01, 0.1505E+01, 0.1508E+01,& - 0.1511E+01, 0.1514E+01, 0.1516E+01, 0.1519E+01,& - 0.1522E+01, 0.1525E+01, 0.1528E+01, 0.1531E+01,& - 0.1534E+01, 0.1537E+01, 0.1540E+01, 0.1543E+01,& - 0.1546E+01, 0.1549E+01, 0.1552E+01, 0.1555E+01,& - 0.1559E+01, 0.1562E+01, 0.1565E+01, 0.1568E+01,& - 0.1572E+01, 0.1575E+01, 0.1578E+01, 0.1582E+01,& - 0.1585E+01, 0.1588E+01, 0.1592E+01, 0.1595E+01,& - 0.1599E+01, 0.1602E+01, 0.1606E+01, 0.1610E+01,& - 0.1613E+01, 0.1617E+01, 0.1621E+01, 0.1625E+01,& - 0.1628E+01, 0.1632E+01, 0.1636E+01, 0.1640E+01,& - 0.1644E+01, 0.1648E+01, 0.1652E+01, 0.1656E+01,& - 0.1661E+01, 0.1665E+01, 0.1669E+01, 0.1673E+01,& - 0.1678E+01, 0.1682E+01, 0.1687E+01, 0.1691E+01,& - 0.1696E+01, 0.1701E+01, 0.1705E+01, 0.1710E+01,& - 0.1715E+01, 0.1720E+01, 0.1725E+01, 0.1730E+01,& - 0.1735E+01, 0.1740E+01, 0.1746E+01, 0.1751E+01,& - 0.1757E+01, 0.1762E+01, 0.1768E+01, 0.1774E+01,& - 0.1780E+01, 0.1786E+01, 0.1792E+01, 0.1798E+01,& - 0.1804E+01, 0.1811E+01, 0.1817E+01, 0.1824E+01,& - 0.1831E+01, 0.1838E+01, 0.1845E+01, 0.1852E+01,& - 0.1860E+01, 0.1867E+01, 0.1875E+01, 0.1883E+01,& - 0.1892E+01, 0.1900E+01, 0.1909E+01, 0.1918E+01,& - 0.1927E+01, 0.1936E+01, 0.1946E+01, 0.1956E+01,& - 0.1967E+01, 0.1978E+01, 0.1989E+01, 0.2000E+01,& - 0.2012E+01, 0.2025E+01, 0.2038E+01, 0.2052E+01,& - 0.2066E+01, 0.2081E+01, 0.2097E+01, 0.2114E+01,& - 0.2132E+01, 0.2151E+01, 0.2171E+01, 0.2193E+01,& - 0.2217E+01, 0.2243E+01, 0.2271E+01, 0.2302E+01,& - 0.2338E+01, 0.2379E+01, 0.2426E+01, 0.2484E+01,& - 0.1000E-04, 0.1455E+00, 0.1709E+00, 0.1882E+00/) - xcw(:, 15) = (/& - 0.1000E-04, 0.1455E+00, 0.1709E+00, 0.1882E+00,& - 0.2017E+00, 0.2129E+00, 0.2227E+00, 0.2313E+00,& - 0.2392E+00, 0.2464E+00, 0.2531E+00, 0.2593E+00,& - 0.2651E+00, 0.2707E+00, 0.2759E+00, 0.2809E+00,& - 0.2857E+00, 0.2903E+00, 0.2947E+00, 0.2990E+00,& - 0.3031E+00, 0.3071E+00, 0.3109E+00, 0.3147E+00,& - 0.3183E+00, 0.3219E+00, 0.3253E+00, 0.3287E+00,& - 0.3320E+00, 0.3352E+00, 0.3384E+00, 0.3415E+00,& - 0.3445E+00, 0.3475E+00, 0.3504E+00, 0.3533E+00,& - 0.3561E+00, 0.3588E+00, 0.3616E+00, 0.3642E+00,& - 0.3669E+00, 0.3695E+00, 0.3720E+00, 0.3745E+00,& - 0.3770E+00, 0.3795E+00, 0.3819E+00, 0.3843E+00,& - 0.3866E+00, 0.3890E+00, 0.3913E+00, 0.3935E+00,& - 0.3958E+00, 0.3980E+00, 0.4002E+00, 0.4024E+00,& - 0.4045E+00, 0.4067E+00, 0.4088E+00, 0.4109E+00,& - 0.4129E+00, 0.4150E+00, 0.4170E+00, 0.4190E+00,& - 0.4210E+00, 0.4230E+00, 0.4250E+00, 0.4269E+00,& - 0.4288E+00, 0.4308E+00, 0.4326E+00, 0.4345E+00,& - 0.4364E+00, 0.4383E+00, 0.4401E+00, 0.4419E+00,& - 0.4437E+00, 0.4455E+00, 0.4473E+00, 0.4491E+00,& - 0.4509E+00, 0.4526E+00, 0.4543E+00, 0.4561E+00,& - 0.4578E+00, 0.4595E+00, 0.4612E+00, 0.4629E+00,& - 0.4646E+00, 0.4662E+00, 0.4679E+00, 0.4695E+00,& - 0.4712E+00, 0.4728E+00, 0.4744E+00, 0.4760E+00,& - 0.4776E+00, 0.4792E+00, 0.4808E+00, 0.4824E+00,& - 0.4840E+00, 0.4855E+00, 0.4871E+00, 0.4886E+00,& - 0.4902E+00, 0.4917E+00, 0.4932E+00, 0.4947E+00,& - 0.4962E+00, 0.4977E+00, 0.4992E+00, 0.5007E+00,& - 0.5022E+00, 0.5037E+00, 0.5052E+00, 0.5066E+00,& - 0.5081E+00, 0.5095E+00, 0.5110E+00, 0.5124E+00,& - 0.5139E+00, 0.5153E+00, 0.5167E+00, 0.5181E+00,& - 0.5195E+00, 0.5210E+00, 0.5224E+00, 0.5238E+00,& - 0.5252E+00, 0.5265E+00, 0.5279E+00, 0.5293E+00,& - 0.5307E+00, 0.5320E+00, 0.5334E+00, 0.5348E+00,& - 0.5361E+00, 0.5375E+00, 0.5388E+00, 0.5402E+00,& - 0.5415E+00, 0.5428E+00, 0.5442E+00, 0.5455E+00,& - 0.5468E+00, 0.5481E+00, 0.5494E+00, 0.5508E+00,& - 0.5521E+00, 0.5534E+00, 0.5547E+00, 0.5560E+00,& - 0.5573E+00, 0.5585E+00, 0.5598E+00, 0.5611E+00,& - 0.5624E+00, 0.5637E+00, 0.5649E+00, 0.5662E+00,& - 0.5675E+00, 0.5687E+00, 0.5700E+00, 0.5712E+00,& - 0.5725E+00, 0.5737E+00, 0.5750E+00, 0.5762E+00,& - 0.5775E+00, 0.5787E+00, 0.5799E+00, 0.5812E+00,& - 0.5824E+00, 0.5836E+00, 0.5849E+00, 0.5861E+00,& - 0.5873E+00, 0.5885E+00, 0.5897E+00, 0.5909E+00,& - 0.5921E+00, 0.5933E+00, 0.5946E+00, 0.5958E+00,& - 0.5969E+00, 0.5981E+00, 0.5993E+00, 0.6005E+00,& - 0.6017E+00, 0.6029E+00, 0.6041E+00, 0.6053E+00,& - 0.6065E+00, 0.6076E+00, 0.6088E+00, 0.6100E+00,& - 0.6111E+00, 0.6123E+00, 0.6135E+00, 0.6147E+00,& - 0.6158E+00, 0.6170E+00, 0.6181E+00, 0.6193E+00,& - 0.6204E+00, 0.6216E+00, 0.6228E+00, 0.6239E+00,& - 0.6251E+00, 0.6262E+00, 0.6273E+00, 0.6285E+00,& - 0.6296E+00, 0.6308E+00, 0.6319E+00, 0.6330E+00,& - 0.6342E+00, 0.6353E+00, 0.6364E+00, 0.6376E+00,& - 0.6387E+00, 0.6398E+00, 0.6409E+00, 0.6421E+00,& - 0.6432E+00, 0.6443E+00, 0.6454E+00, 0.6465E+00,& - 0.6477E+00, 0.6488E+00, 0.6499E+00, 0.6510E+00,& - 0.6521E+00, 0.6532E+00, 0.6543E+00, 0.6554E+00,& - 0.6565E+00, 0.6576E+00, 0.6587E+00, 0.6598E+00,& - 0.6609E+00, 0.6620E+00, 0.6631E+00, 0.6642E+00,& - 0.6653E+00, 0.6664E+00, 0.6675E+00, 0.6686E+00,& - 0.6697E+00, 0.6708E+00, 0.6719E+00, 0.6730E+00,& - 0.6741E+00, 0.6751E+00, 0.6762E+00, 0.6773E+00,& - 0.6784E+00, 0.6795E+00, 0.6806E+00, 0.6816E+00,& - 0.6827E+00, 0.6838E+00, 0.6849E+00, 0.6859E+00,& - 0.6870E+00, 0.6881E+00, 0.6892E+00, 0.6902E+00,& - 0.6913E+00, 0.6924E+00, 0.6934E+00, 0.6945E+00,& - 0.6956E+00, 0.6966E+00, 0.6977E+00, 0.6988E+00,& - 0.6998E+00, 0.7009E+00, 0.7020E+00, 0.7030E+00,& - 0.7041E+00, 0.7051E+00, 0.7062E+00, 0.7073E+00,& - 0.7083E+00, 0.7094E+00, 0.7104E+00, 0.7115E+00,& - 0.7125E+00, 0.7136E+00, 0.7147E+00, 0.7157E+00,& - 0.7168E+00, 0.7178E+00, 0.7189E+00, 0.7199E+00,& - 0.7210E+00, 0.7220E+00, 0.7231E+00, 0.7241E+00,& - 0.7252E+00, 0.7262E+00, 0.7273E+00, 0.7283E+00,& - 0.7293E+00, 0.7304E+00, 0.7314E+00, 0.7325E+00,& - 0.7335E+00, 0.7346E+00, 0.7356E+00, 0.7367E+00,& - 0.7377E+00, 0.7387E+00, 0.7398E+00, 0.7408E+00,& - 0.7419E+00, 0.7429E+00, 0.7439E+00, 0.7450E+00,& - 0.7460E+00, 0.7471E+00, 0.7481E+00, 0.7491E+00,& - 0.7502E+00, 0.7512E+00, 0.7522E+00, 0.7533E+00,& - 0.7543E+00, 0.7553E+00, 0.7564E+00, 0.7574E+00,& - 0.7585E+00, 0.7595E+00, 0.7605E+00, 0.7616E+00,& - 0.7626E+00, 0.7636E+00, 0.7647E+00, 0.7657E+00,& - 0.7667E+00, 0.7678E+00, 0.7688E+00, 0.7698E+00,& - 0.7709E+00, 0.7719E+00, 0.7729E+00, 0.7740E+00,& - 0.7750E+00, 0.7760E+00, 0.7770E+00, 0.7781E+00,& - 0.7791E+00, 0.7801E+00, 0.7812E+00, 0.7822E+00,& - 0.7832E+00, 0.7843E+00, 0.7853E+00, 0.7863E+00,& - 0.7874E+00, 0.7884E+00, 0.7894E+00, 0.7904E+00,& - 0.7915E+00, 0.7925E+00, 0.7935E+00, 0.7946E+00,& - 0.7956E+00, 0.7966E+00, 0.7977E+00, 0.7987E+00,& - 0.7997E+00, 0.8007E+00, 0.8018E+00, 0.8028E+00,& - 0.8038E+00, 0.8049E+00, 0.8059E+00, 0.8069E+00,& - 0.8080E+00, 0.8090E+00, 0.8100E+00, 0.8110E+00,& - 0.8121E+00, 0.8131E+00, 0.8141E+00, 0.8152E+00,& - 0.8162E+00, 0.8172E+00, 0.8183E+00, 0.8193E+00,& - 0.8203E+00, 0.8214E+00, 0.8224E+00, 0.8234E+00,& - 0.8244E+00, 0.8255E+00, 0.8265E+00, 0.8275E+00,& - 0.8286E+00, 0.8296E+00, 0.8306E+00, 0.8317E+00,& - 0.8327E+00, 0.8337E+00, 0.8348E+00, 0.8358E+00,& - 0.8368E+00, 0.8379E+00, 0.8389E+00, 0.8400E+00,& - 0.8410E+00, 0.8420E+00, 0.8431E+00, 0.8441E+00,& - 0.8451E+00, 0.8462E+00, 0.8472E+00, 0.8482E+00,& - 0.8493E+00, 0.8503E+00, 0.8514E+00, 0.8524E+00,& - 0.8534E+00, 0.8545E+00, 0.8555E+00, 0.8566E+00,& - 0.8576E+00, 0.8586E+00, 0.8597E+00, 0.8607E+00,& - 0.8618E+00, 0.8628E+00, 0.8639E+00, 0.8649E+00,& - 0.8659E+00, 0.8670E+00, 0.8680E+00, 0.8691E+00,& - 0.8701E+00, 0.8712E+00, 0.8722E+00, 0.8733E+00,& - 0.8743E+00, 0.8754E+00, 0.8764E+00, 0.8775E+00,& - 0.8785E+00, 0.8796E+00, 0.8806E+00, 0.8817E+00,& - 0.8827E+00, 0.8838E+00, 0.8848E+00, 0.8859E+00,& - 0.8869E+00, 0.8880E+00, 0.8890E+00, 0.8901E+00,& - 0.8911E+00, 0.8922E+00, 0.8932E+00, 0.8943E+00,& - 0.8954E+00, 0.8964E+00, 0.8975E+00, 0.8985E+00,& - 0.8996E+00, 0.9007E+00, 0.9017E+00, 0.9028E+00,& - 0.9039E+00, 0.9049E+00, 0.9060E+00, 0.9070E+00,& - 0.9081E+00, 0.9092E+00, 0.9102E+00, 0.9113E+00,& - 0.9124E+00, 0.9135E+00, 0.9145E+00, 0.9156E+00,& - 0.9167E+00, 0.9177E+00, 0.9188E+00, 0.9199E+00,& - 0.9210E+00, 0.9220E+00, 0.9231E+00, 0.9242E+00,& - 0.9253E+00, 0.9263E+00, 0.9274E+00, 0.9285E+00,& - 0.9296E+00, 0.9307E+00, 0.9317E+00, 0.9328E+00,& - 0.9339E+00, 0.9350E+00, 0.9361E+00, 0.9372E+00,& - 0.9383E+00, 0.9393E+00, 0.9404E+00, 0.9415E+00,& - 0.9426E+00, 0.9437E+00, 0.9448E+00, 0.9459E+00,& - 0.9470E+00, 0.9481E+00, 0.9492E+00, 0.9503E+00,& - 0.9514E+00, 0.9525E+00, 0.9536E+00, 0.9547E+00,& - 0.9558E+00, 0.9569E+00, 0.9580E+00, 0.9591E+00,& - 0.9602E+00, 0.9613E+00, 0.9624E+00, 0.9635E+00,& - 0.9646E+00, 0.9658E+00, 0.9669E+00, 0.9680E+00,& - 0.9691E+00, 0.9702E+00, 0.9713E+00, 0.9724E+00,& - 0.9736E+00, 0.9747E+00, 0.9758E+00, 0.9769E+00,& - 0.9781E+00, 0.9792E+00, 0.9803E+00, 0.9814E+00,& - 0.9826E+00, 0.9837E+00, 0.9848E+00, 0.9860E+00,& - 0.9871E+00, 0.9882E+00, 0.9894E+00, 0.9905E+00,& - 0.9916E+00, 0.9928E+00, 0.9939E+00, 0.9951E+00,& - 0.9962E+00, 0.9973E+00, 0.9985E+00, 0.9996E+00,& - 0.1001E+01, 0.1002E+01, 0.1003E+01, 0.1004E+01,& - 0.1005E+01, 0.1007E+01, 0.1008E+01, 0.1009E+01,& - 0.1010E+01, 0.1011E+01, 0.1012E+01, 0.1014E+01,& - 0.1015E+01, 0.1016E+01, 0.1017E+01, 0.1018E+01,& - 0.1019E+01, 0.1021E+01, 0.1022E+01, 0.1023E+01,& - 0.1024E+01, 0.1025E+01, 0.1026E+01, 0.1028E+01,& - 0.1029E+01, 0.1030E+01, 0.1031E+01, 0.1032E+01,& - 0.1034E+01, 0.1035E+01, 0.1036E+01, 0.1037E+01,& - 0.1038E+01, 0.1039E+01, 0.1041E+01, 0.1042E+01,& - 0.1043E+01, 0.1044E+01, 0.1045E+01, 0.1047E+01,& - 0.1048E+01, 0.1049E+01, 0.1050E+01, 0.1052E+01,& - 0.1053E+01, 0.1054E+01, 0.1055E+01, 0.1056E+01,& - 0.1058E+01, 0.1059E+01, 0.1060E+01, 0.1061E+01,& - 0.1063E+01, 0.1064E+01, 0.1065E+01, 0.1066E+01,& - 0.1068E+01, 0.1069E+01, 0.1070E+01, 0.1071E+01,& - 0.1072E+01, 0.1074E+01, 0.1075E+01, 0.1076E+01,& - 0.1077E+01, 0.1079E+01, 0.1080E+01, 0.1081E+01,& - 0.1083E+01, 0.1084E+01, 0.1085E+01, 0.1086E+01,& - 0.1088E+01, 0.1089E+01, 0.1090E+01, 0.1091E+01,& - 0.1093E+01, 0.1094E+01, 0.1095E+01, 0.1097E+01,& - 0.1098E+01, 0.1099E+01, 0.1100E+01, 0.1102E+01,& - 0.1103E+01, 0.1104E+01, 0.1106E+01, 0.1107E+01,& - 0.1108E+01, 0.1110E+01, 0.1111E+01, 0.1112E+01,& - 0.1113E+01, 0.1115E+01, 0.1116E+01, 0.1117E+01,& - 0.1119E+01, 0.1120E+01, 0.1121E+01, 0.1123E+01,& - 0.1124E+01, 0.1125E+01, 0.1127E+01, 0.1128E+01,& - 0.1129E+01, 0.1131E+01, 0.1132E+01, 0.1133E+01,& - 0.1135E+01, 0.1136E+01, 0.1138E+01, 0.1139E+01,& - 0.1140E+01, 0.1142E+01, 0.1143E+01, 0.1144E+01,& - 0.1146E+01, 0.1147E+01, 0.1149E+01, 0.1150E+01,& - 0.1151E+01, 0.1153E+01, 0.1154E+01, 0.1156E+01,& - 0.1157E+01, 0.1158E+01, 0.1160E+01, 0.1161E+01,& - 0.1163E+01, 0.1164E+01, 0.1165E+01, 0.1167E+01,& - 0.1168E+01, 0.1170E+01, 0.1171E+01, 0.1173E+01,& - 0.1174E+01, 0.1175E+01, 0.1177E+01, 0.1178E+01,& - 0.1180E+01, 0.1181E+01, 0.1183E+01, 0.1184E+01,& - 0.1186E+01, 0.1187E+01, 0.1189E+01, 0.1190E+01,& - 0.1192E+01, 0.1193E+01, 0.1195E+01, 0.1196E+01,& - 0.1198E+01, 0.1199E+01, 0.1201E+01, 0.1202E+01,& - 0.1204E+01, 0.1205E+01, 0.1207E+01, 0.1208E+01,& - 0.1210E+01, 0.1211E+01, 0.1213E+01, 0.1214E+01,& - 0.1216E+01, 0.1217E+01, 0.1219E+01, 0.1220E+01,& - 0.1222E+01, 0.1224E+01, 0.1225E+01, 0.1227E+01,& - 0.1228E+01, 0.1230E+01, 0.1231E+01, 0.1233E+01,& - 0.1235E+01, 0.1236E+01, 0.1238E+01, 0.1239E+01,& - 0.1241E+01, 0.1243E+01, 0.1244E+01, 0.1246E+01,& - 0.1247E+01, 0.1249E+01, 0.1251E+01, 0.1252E+01,& - 0.1254E+01, 0.1256E+01, 0.1257E+01, 0.1259E+01,& - 0.1261E+01, 0.1262E+01, 0.1264E+01, 0.1266E+01,& - 0.1267E+01, 0.1269E+01, 0.1271E+01, 0.1273E+01,& - 0.1274E+01, 0.1276E+01, 0.1278E+01, 0.1279E+01,& - 0.1281E+01, 0.1283E+01, 0.1285E+01, 0.1286E+01,& - 0.1288E+01, 0.1290E+01, 0.1292E+01, 0.1293E+01,& - 0.1295E+01, 0.1297E+01, 0.1299E+01, 0.1301E+01,& - 0.1302E+01, 0.1304E+01, 0.1306E+01, 0.1308E+01,& - 0.1310E+01, 0.1311E+01, 0.1313E+01, 0.1315E+01,& - 0.1317E+01, 0.1319E+01, 0.1321E+01, 0.1323E+01,& - 0.1324E+01, 0.1326E+01, 0.1328E+01, 0.1330E+01,& - 0.1332E+01, 0.1334E+01, 0.1336E+01, 0.1338E+01,& - 0.1340E+01, 0.1342E+01, 0.1344E+01, 0.1346E+01,& - 0.1348E+01, 0.1350E+01, 0.1352E+01, 0.1354E+01,& - 0.1356E+01, 0.1358E+01, 0.1360E+01, 0.1362E+01,& - 0.1364E+01, 0.1366E+01, 0.1368E+01, 0.1370E+01,& - 0.1372E+01, 0.1374E+01, 0.1376E+01, 0.1378E+01,& - 0.1380E+01, 0.1382E+01, 0.1385E+01, 0.1387E+01,& - 0.1389E+01, 0.1391E+01, 0.1393E+01, 0.1395E+01,& - 0.1397E+01, 0.1400E+01, 0.1402E+01, 0.1404E+01,& - 0.1406E+01, 0.1409E+01, 0.1411E+01, 0.1413E+01,& - 0.1415E+01, 0.1418E+01, 0.1420E+01, 0.1422E+01,& - 0.1424E+01, 0.1427E+01, 0.1429E+01, 0.1432E+01,& - 0.1434E+01, 0.1436E+01, 0.1439E+01, 0.1441E+01,& - 0.1443E+01, 0.1446E+01, 0.1448E+01, 0.1451E+01,& - 0.1453E+01, 0.1456E+01, 0.1458E+01, 0.1461E+01,& - 0.1463E+01, 0.1466E+01, 0.1468E+01, 0.1471E+01,& - 0.1473E+01, 0.1476E+01, 0.1479E+01, 0.1481E+01,& - 0.1484E+01, 0.1487E+01, 0.1489E+01, 0.1492E+01,& - 0.1495E+01, 0.1497E+01, 0.1500E+01, 0.1503E+01,& - 0.1506E+01, 0.1508E+01, 0.1511E+01, 0.1514E+01,& - 0.1517E+01, 0.1520E+01, 0.1523E+01, 0.1526E+01,& - 0.1528E+01, 0.1531E+01, 0.1534E+01, 0.1537E+01,& - 0.1540E+01, 0.1543E+01, 0.1546E+01, 0.1550E+01,& - 0.1553E+01, 0.1556E+01, 0.1559E+01, 0.1562E+01,& - 0.1565E+01, 0.1568E+01, 0.1572E+01, 0.1575E+01,& - 0.1578E+01, 0.1582E+01, 0.1585E+01, 0.1588E+01,& - 0.1592E+01, 0.1595E+01, 0.1599E+01, 0.1602E+01,& - 0.1606E+01, 0.1609E+01, 0.1613E+01, 0.1616E+01,& - 0.1620E+01, 0.1624E+01, 0.1628E+01, 0.1631E+01,& - 0.1635E+01, 0.1639E+01, 0.1643E+01, 0.1647E+01,& - 0.1651E+01, 0.1655E+01, 0.1659E+01, 0.1663E+01,& - 0.1667E+01, 0.1671E+01, 0.1675E+01, 0.1679E+01,& - 0.1684E+01, 0.1688E+01, 0.1692E+01, 0.1697E+01,& - 0.1701E+01, 0.1706E+01, 0.1711E+01, 0.1715E+01,& - 0.1720E+01, 0.1725E+01, 0.1730E+01, 0.1734E+01,& - 0.1739E+01, 0.1744E+01, 0.1750E+01, 0.1755E+01,& - 0.1760E+01, 0.1765E+01, 0.1771E+01, 0.1776E+01,& - 0.1782E+01, 0.1787E+01, 0.1793E+01, 0.1799E+01,& - 0.1805E+01, 0.1811E+01, 0.1817E+01, 0.1823E+01,& - 0.1830E+01, 0.1836E+01, 0.1843E+01, 0.1849E+01,& - 0.1856E+01, 0.1863E+01, 0.1870E+01, 0.1877E+01,& - 0.1885E+01, 0.1892E+01, 0.1900E+01, 0.1908E+01,& - 0.1916E+01, 0.1924E+01, 0.1933E+01, 0.1942E+01,& - 0.1950E+01, 0.1960E+01, 0.1969E+01, 0.1979E+01,& - 0.1989E+01, 0.1999E+01, 0.2009E+01, 0.2020E+01,& - 0.2032E+01, 0.2043E+01, 0.2055E+01, 0.2068E+01,& - 0.2081E+01, 0.2095E+01, 0.2109E+01, 0.2124E+01,& - 0.2139E+01, 0.2156E+01, 0.2173E+01, 0.2191E+01,& - 0.2211E+01, 0.2231E+01, 0.2253E+01, 0.2277E+01,& - 0.2303E+01, 0.2331E+01, 0.2361E+01, 0.2395E+01,& - 0.2434E+01, 0.2478E+01, 0.2530E+01, 0.2593E+01,& - 0.1000E-04, 0.1252E+00, 0.1493E+00, 0.1658E+00/) - xcw(:, 16) = (/& - 0.1000E-04, 0.1252E+00, 0.1493E+00, 0.1658E+00,& - 0.1787E+00, 0.1896E+00, 0.1990E+00, 0.2075E+00,& - 0.2151E+00, 0.2221E+00, 0.2286E+00, 0.2347E+00,& - 0.2405E+00, 0.2459E+00, 0.2511E+00, 0.2560E+00,& - 0.2607E+00, 0.2653E+00, 0.2696E+00, 0.2738E+00,& - 0.2779E+00, 0.2819E+00, 0.2857E+00, 0.2894E+00,& - 0.2930E+00, 0.2966E+00, 0.3000E+00, 0.3034E+00,& - 0.3067E+00, 0.3099E+00, 0.3130E+00, 0.3161E+00,& - 0.3191E+00, 0.3221E+00, 0.3250E+00, 0.3279E+00,& - 0.3307E+00, 0.3334E+00, 0.3362E+00, 0.3388E+00,& - 0.3415E+00, 0.3441E+00, 0.3467E+00, 0.3492E+00,& - 0.3517E+00, 0.3541E+00, 0.3566E+00, 0.3590E+00,& - 0.3613E+00, 0.3637E+00, 0.3660E+00, 0.3683E+00,& - 0.3706E+00, 0.3728E+00, 0.3750E+00, 0.3772E+00,& - 0.3794E+00, 0.3815E+00, 0.3836E+00, 0.3858E+00,& - 0.3878E+00, 0.3899E+00, 0.3920E+00, 0.3940E+00,& - 0.3960E+00, 0.3980E+00, 0.4000E+00, 0.4020E+00,& - 0.4039E+00, 0.4058E+00, 0.4078E+00, 0.4097E+00,& - 0.4116E+00, 0.4134E+00, 0.4153E+00, 0.4171E+00,& - 0.4190E+00, 0.4208E+00, 0.4226E+00, 0.4244E+00,& - 0.4262E+00, 0.4280E+00, 0.4298E+00, 0.4315E+00,& - 0.4333E+00, 0.4350E+00, 0.4367E+00, 0.4384E+00,& - 0.4401E+00, 0.4418E+00, 0.4435E+00, 0.4452E+00,& - 0.4468E+00, 0.4485E+00, 0.4501E+00, 0.4518E+00,& - 0.4534E+00, 0.4550E+00, 0.4567E+00, 0.4583E+00,& - 0.4599E+00, 0.4614E+00, 0.4630E+00, 0.4646E+00,& - 0.4662E+00, 0.4677E+00, 0.4693E+00, 0.4708E+00,& - 0.4724E+00, 0.4739E+00, 0.4754E+00, 0.4770E+00,& - 0.4785E+00, 0.4800E+00, 0.4815E+00, 0.4830E+00,& - 0.4845E+00, 0.4860E+00, 0.4874E+00, 0.4889E+00,& - 0.4904E+00, 0.4918E+00, 0.4933E+00, 0.4947E+00,& - 0.4962E+00, 0.4976E+00, 0.4991E+00, 0.5005E+00,& - 0.5019E+00, 0.5033E+00, 0.5047E+00, 0.5062E+00,& - 0.5076E+00, 0.5090E+00, 0.5104E+00, 0.5118E+00,& - 0.5131E+00, 0.5145E+00, 0.5159E+00, 0.5173E+00,& - 0.5187E+00, 0.5200E+00, 0.5214E+00, 0.5227E+00,& - 0.5241E+00, 0.5254E+00, 0.5268E+00, 0.5281E+00,& - 0.5295E+00, 0.5308E+00, 0.5322E+00, 0.5335E+00,& - 0.5348E+00, 0.5361E+00, 0.5374E+00, 0.5388E+00,& - 0.5401E+00, 0.5414E+00, 0.5427E+00, 0.5440E+00,& - 0.5453E+00, 0.5466E+00, 0.5479E+00, 0.5492E+00,& - 0.5505E+00, 0.5517E+00, 0.5530E+00, 0.5543E+00,& - 0.5556E+00, 0.5568E+00, 0.5581E+00, 0.5594E+00,& - 0.5606E+00, 0.5619E+00, 0.5632E+00, 0.5644E+00,& - 0.5657E+00, 0.5669E+00, 0.5682E+00, 0.5694E+00,& - 0.5707E+00, 0.5719E+00, 0.5731E+00, 0.5744E+00,& - 0.5756E+00, 0.5768E+00, 0.5781E+00, 0.5793E+00,& - 0.5805E+00, 0.5817E+00, 0.5830E+00, 0.5842E+00,& - 0.5854E+00, 0.5866E+00, 0.5878E+00, 0.5890E+00,& - 0.5902E+00, 0.5914E+00, 0.5926E+00, 0.5938E+00,& - 0.5950E+00, 0.5962E+00, 0.5974E+00, 0.5986E+00,& - 0.5998E+00, 0.6010E+00, 0.6022E+00, 0.6034E+00,& - 0.6046E+00, 0.6058E+00, 0.6069E+00, 0.6081E+00,& - 0.6093E+00, 0.6105E+00, 0.6116E+00, 0.6128E+00,& - 0.6140E+00, 0.6152E+00, 0.6163E+00, 0.6175E+00,& - 0.6187E+00, 0.6198E+00, 0.6210E+00, 0.6221E+00,& - 0.6233E+00, 0.6245E+00, 0.6256E+00, 0.6268E+00,& - 0.6279E+00, 0.6291E+00, 0.6302E+00, 0.6314E+00,& - 0.6325E+00, 0.6337E+00, 0.6348E+00, 0.6360E+00,& - 0.6371E+00, 0.6383E+00, 0.6394E+00, 0.6405E+00,& - 0.6417E+00, 0.6428E+00, 0.6439E+00, 0.6451E+00,& - 0.6462E+00, 0.6473E+00, 0.6485E+00, 0.6496E+00,& - 0.6507E+00, 0.6519E+00, 0.6530E+00, 0.6541E+00,& - 0.6552E+00, 0.6564E+00, 0.6575E+00, 0.6586E+00,& - 0.6597E+00, 0.6608E+00, 0.6620E+00, 0.6631E+00,& - 0.6642E+00, 0.6653E+00, 0.6664E+00, 0.6675E+00,& - 0.6687E+00, 0.6698E+00, 0.6709E+00, 0.6720E+00,& - 0.6731E+00, 0.6742E+00, 0.6753E+00, 0.6764E+00,& - 0.6775E+00, 0.6786E+00, 0.6798E+00, 0.6809E+00,& - 0.6820E+00, 0.6831E+00, 0.6842E+00, 0.6853E+00,& - 0.6864E+00, 0.6875E+00, 0.6886E+00, 0.6897E+00,& - 0.6908E+00, 0.6919E+00, 0.6930E+00, 0.6941E+00,& - 0.6952E+00, 0.6962E+00, 0.6973E+00, 0.6984E+00,& - 0.6995E+00, 0.7006E+00, 0.7017E+00, 0.7028E+00,& - 0.7039E+00, 0.7050E+00, 0.7061E+00, 0.7072E+00,& - 0.7083E+00, 0.7093E+00, 0.7104E+00, 0.7115E+00,& - 0.7126E+00, 0.7137E+00, 0.7148E+00, 0.7159E+00,& - 0.7170E+00, 0.7180E+00, 0.7191E+00, 0.7202E+00,& - 0.7213E+00, 0.7224E+00, 0.7235E+00, 0.7245E+00,& - 0.7256E+00, 0.7267E+00, 0.7278E+00, 0.7289E+00,& - 0.7299E+00, 0.7310E+00, 0.7321E+00, 0.7332E+00,& - 0.7343E+00, 0.7353E+00, 0.7364E+00, 0.7375E+00,& - 0.7386E+00, 0.7397E+00, 0.7407E+00, 0.7418E+00,& - 0.7429E+00, 0.7440E+00, 0.7451E+00, 0.7461E+00,& - 0.7472E+00, 0.7483E+00, 0.7494E+00, 0.7504E+00,& - 0.7515E+00, 0.7526E+00, 0.7537E+00, 0.7547E+00,& - 0.7558E+00, 0.7569E+00, 0.7580E+00, 0.7590E+00,& - 0.7601E+00, 0.7612E+00, 0.7623E+00, 0.7633E+00,& - 0.7644E+00, 0.7655E+00, 0.7666E+00, 0.7676E+00,& - 0.7687E+00, 0.7698E+00, 0.7709E+00, 0.7719E+00,& - 0.7730E+00, 0.7741E+00, 0.7752E+00, 0.7762E+00,& - 0.7773E+00, 0.7784E+00, 0.7795E+00, 0.7805E+00,& - 0.7816E+00, 0.7827E+00, 0.7838E+00, 0.7848E+00,& - 0.7859E+00, 0.7870E+00, 0.7881E+00, 0.7891E+00,& - 0.7902E+00, 0.7913E+00, 0.7924E+00, 0.7934E+00,& - 0.7945E+00, 0.7956E+00, 0.7967E+00, 0.7977E+00,& - 0.7988E+00, 0.7999E+00, 0.8010E+00, 0.8020E+00,& - 0.8031E+00, 0.8042E+00, 0.8053E+00, 0.8064E+00,& - 0.8074E+00, 0.8085E+00, 0.8096E+00, 0.8107E+00,& - 0.8117E+00, 0.8128E+00, 0.8139E+00, 0.8150E+00,& - 0.8161E+00, 0.8171E+00, 0.8182E+00, 0.8193E+00,& - 0.8204E+00, 0.8215E+00, 0.8225E+00, 0.8236E+00,& - 0.8247E+00, 0.8258E+00, 0.8269E+00, 0.8280E+00,& - 0.8290E+00, 0.8301E+00, 0.8312E+00, 0.8323E+00,& - 0.8334E+00, 0.8345E+00, 0.8355E+00, 0.8366E+00,& - 0.8377E+00, 0.8388E+00, 0.8399E+00, 0.8410E+00,& - 0.8421E+00, 0.8432E+00, 0.8442E+00, 0.8453E+00,& - 0.8464E+00, 0.8475E+00, 0.8486E+00, 0.8497E+00,& - 0.8508E+00, 0.8519E+00, 0.8530E+00, 0.8541E+00,& - 0.8552E+00, 0.8562E+00, 0.8573E+00, 0.8584E+00,& - 0.8595E+00, 0.8606E+00, 0.8617E+00, 0.8628E+00,& - 0.8639E+00, 0.8650E+00, 0.8661E+00, 0.8672E+00,& - 0.8683E+00, 0.8694E+00, 0.8705E+00, 0.8716E+00,& - 0.8727E+00, 0.8738E+00, 0.8749E+00, 0.8760E+00,& - 0.8771E+00, 0.8782E+00, 0.8793E+00, 0.8804E+00,& - 0.8816E+00, 0.8827E+00, 0.8838E+00, 0.8849E+00,& - 0.8860E+00, 0.8871E+00, 0.8882E+00, 0.8893E+00,& - 0.8904E+00, 0.8915E+00, 0.8927E+00, 0.8938E+00,& - 0.8949E+00, 0.8960E+00, 0.8971E+00, 0.8982E+00,& - 0.8994E+00, 0.9005E+00, 0.9016E+00, 0.9027E+00,& - 0.9038E+00, 0.9050E+00, 0.9061E+00, 0.9072E+00,& - 0.9083E+00, 0.9095E+00, 0.9106E+00, 0.9117E+00,& - 0.9128E+00, 0.9140E+00, 0.9151E+00, 0.9162E+00,& - 0.9174E+00, 0.9185E+00, 0.9196E+00, 0.9208E+00,& - 0.9219E+00, 0.9230E+00, 0.9242E+00, 0.9253E+00,& - 0.9264E+00, 0.9276E+00, 0.9287E+00, 0.9299E+00,& - 0.9310E+00, 0.9322E+00, 0.9333E+00, 0.9344E+00,& - 0.9356E+00, 0.9367E+00, 0.9379E+00, 0.9390E+00,& - 0.9402E+00, 0.9413E+00, 0.9425E+00, 0.9437E+00,& - 0.9448E+00, 0.9460E+00, 0.9471E+00, 0.9483E+00,& - 0.9494E+00, 0.9506E+00, 0.9518E+00, 0.9529E+00,& - 0.9541E+00, 0.9552E+00, 0.9564E+00, 0.9576E+00,& - 0.9588E+00, 0.9599E+00, 0.9611E+00, 0.9623E+00,& - 0.9634E+00, 0.9646E+00, 0.9658E+00, 0.9670E+00,& - 0.9681E+00, 0.9693E+00, 0.9705E+00, 0.9717E+00,& - 0.9729E+00, 0.9740E+00, 0.9752E+00, 0.9764E+00,& - 0.9776E+00, 0.9788E+00, 0.9800E+00, 0.9812E+00,& - 0.9824E+00, 0.9836E+00, 0.9848E+00, 0.9860E+00,& - 0.9872E+00, 0.9884E+00, 0.9896E+00, 0.9908E+00,& - 0.9920E+00, 0.9932E+00, 0.9944E+00, 0.9956E+00,& - 0.9968E+00, 0.9980E+00, 0.9992E+00, 0.1000E+01,& - 0.1002E+01, 0.1003E+01, 0.1004E+01, 0.1005E+01,& - 0.1007E+01, 0.1008E+01, 0.1009E+01, 0.1010E+01,& - 0.1011E+01, 0.1013E+01, 0.1014E+01, 0.1015E+01,& - 0.1016E+01, 0.1018E+01, 0.1019E+01, 0.1020E+01,& - 0.1021E+01, 0.1023E+01, 0.1024E+01, 0.1025E+01,& - 0.1026E+01, 0.1028E+01, 0.1029E+01, 0.1030E+01,& - 0.1031E+01, 0.1033E+01, 0.1034E+01, 0.1035E+01,& - 0.1036E+01, 0.1038E+01, 0.1039E+01, 0.1040E+01,& - 0.1041E+01, 0.1043E+01, 0.1044E+01, 0.1045E+01,& - 0.1046E+01, 0.1048E+01, 0.1049E+01, 0.1050E+01,& - 0.1052E+01, 0.1053E+01, 0.1054E+01, 0.1055E+01,& - 0.1057E+01, 0.1058E+01, 0.1059E+01, 0.1061E+01,& - 0.1062E+01, 0.1063E+01, 0.1065E+01, 0.1066E+01,& - 0.1067E+01, 0.1068E+01, 0.1070E+01, 0.1071E+01,& - 0.1072E+01, 0.1074E+01, 0.1075E+01, 0.1076E+01,& - 0.1078E+01, 0.1079E+01, 0.1080E+01, 0.1082E+01,& - 0.1083E+01, 0.1084E+01, 0.1086E+01, 0.1087E+01,& - 0.1088E+01, 0.1090E+01, 0.1091E+01, 0.1092E+01,& - 0.1094E+01, 0.1095E+01, 0.1096E+01, 0.1098E+01,& - 0.1099E+01, 0.1101E+01, 0.1102E+01, 0.1103E+01,& - 0.1105E+01, 0.1106E+01, 0.1107E+01, 0.1109E+01,& - 0.1110E+01, 0.1112E+01, 0.1113E+01, 0.1114E+01,& - 0.1116E+01, 0.1117E+01, 0.1119E+01, 0.1120E+01,& - 0.1121E+01, 0.1123E+01, 0.1124E+01, 0.1126E+01,& - 0.1127E+01, 0.1128E+01, 0.1130E+01, 0.1131E+01,& - 0.1133E+01, 0.1134E+01, 0.1135E+01, 0.1137E+01,& - 0.1138E+01, 0.1140E+01, 0.1141E+01, 0.1143E+01,& - 0.1144E+01, 0.1146E+01, 0.1147E+01, 0.1148E+01,& - 0.1150E+01, 0.1151E+01, 0.1153E+01, 0.1154E+01,& - 0.1156E+01, 0.1157E+01, 0.1159E+01, 0.1160E+01,& - 0.1162E+01, 0.1163E+01, 0.1165E+01, 0.1166E+01,& - 0.1168E+01, 0.1169E+01, 0.1171E+01, 0.1172E+01,& - 0.1174E+01, 0.1175E+01, 0.1177E+01, 0.1178E+01,& - 0.1180E+01, 0.1181E+01, 0.1183E+01, 0.1184E+01,& - 0.1186E+01, 0.1188E+01, 0.1189E+01, 0.1191E+01,& - 0.1192E+01, 0.1194E+01, 0.1195E+01, 0.1197E+01,& - 0.1198E+01, 0.1200E+01, 0.1202E+01, 0.1203E+01,& - 0.1205E+01, 0.1206E+01, 0.1208E+01, 0.1210E+01,& - 0.1211E+01, 0.1213E+01, 0.1214E+01, 0.1216E+01,& - 0.1218E+01, 0.1219E+01, 0.1221E+01, 0.1222E+01,& - 0.1224E+01, 0.1226E+01, 0.1227E+01, 0.1229E+01,& - 0.1231E+01, 0.1232E+01, 0.1234E+01, 0.1236E+01,& - 0.1237E+01, 0.1239E+01, 0.1241E+01, 0.1242E+01,& - 0.1244E+01, 0.1246E+01, 0.1247E+01, 0.1249E+01,& - 0.1251E+01, 0.1253E+01, 0.1254E+01, 0.1256E+01,& - 0.1258E+01, 0.1260E+01, 0.1261E+01, 0.1263E+01,& - 0.1265E+01, 0.1267E+01, 0.1268E+01, 0.1270E+01,& - 0.1272E+01, 0.1274E+01, 0.1275E+01, 0.1277E+01,& - 0.1279E+01, 0.1281E+01, 0.1283E+01, 0.1284E+01,& - 0.1286E+01, 0.1288E+01, 0.1290E+01, 0.1292E+01,& - 0.1294E+01, 0.1295E+01, 0.1297E+01, 0.1299E+01,& - 0.1301E+01, 0.1303E+01, 0.1305E+01, 0.1307E+01,& - 0.1308E+01, 0.1310E+01, 0.1312E+01, 0.1314E+01,& - 0.1316E+01, 0.1318E+01, 0.1320E+01, 0.1322E+01,& - 0.1324E+01, 0.1326E+01, 0.1328E+01, 0.1330E+01,& - 0.1332E+01, 0.1334E+01, 0.1336E+01, 0.1338E+01,& - 0.1340E+01, 0.1342E+01, 0.1344E+01, 0.1346E+01,& - 0.1348E+01, 0.1350E+01, 0.1352E+01, 0.1354E+01,& - 0.1356E+01, 0.1358E+01, 0.1360E+01, 0.1362E+01,& - 0.1364E+01, 0.1366E+01, 0.1368E+01, 0.1371E+01,& - 0.1373E+01, 0.1375E+01, 0.1377E+01, 0.1379E+01,& - 0.1381E+01, 0.1384E+01, 0.1386E+01, 0.1388E+01,& - 0.1390E+01, 0.1392E+01, 0.1395E+01, 0.1397E+01,& - 0.1399E+01, 0.1401E+01, 0.1404E+01, 0.1406E+01,& - 0.1408E+01, 0.1410E+01, 0.1413E+01, 0.1415E+01,& - 0.1417E+01, 0.1420E+01, 0.1422E+01, 0.1424E+01,& - 0.1427E+01, 0.1429E+01, 0.1432E+01, 0.1434E+01,& - 0.1436E+01, 0.1439E+01, 0.1441E+01, 0.1444E+01,& - 0.1446E+01, 0.1449E+01, 0.1451E+01, 0.1454E+01,& - 0.1456E+01, 0.1459E+01, 0.1461E+01, 0.1464E+01,& - 0.1466E+01, 0.1469E+01, 0.1472E+01, 0.1474E+01,& - 0.1477E+01, 0.1479E+01, 0.1482E+01, 0.1485E+01,& - 0.1487E+01, 0.1490E+01, 0.1493E+01, 0.1496E+01,& - 0.1498E+01, 0.1501E+01, 0.1504E+01, 0.1507E+01,& - 0.1510E+01, 0.1512E+01, 0.1515E+01, 0.1518E+01,& - 0.1521E+01, 0.1524E+01, 0.1527E+01, 0.1530E+01,& - 0.1533E+01, 0.1536E+01, 0.1539E+01, 0.1542E+01,& - 0.1545E+01, 0.1548E+01, 0.1551E+01, 0.1554E+01,& - 0.1557E+01, 0.1560E+01, 0.1564E+01, 0.1567E+01,& - 0.1570E+01, 0.1573E+01, 0.1576E+01, 0.1580E+01,& - 0.1583E+01, 0.1586E+01, 0.1590E+01, 0.1593E+01,& - 0.1597E+01, 0.1600E+01, 0.1603E+01, 0.1607E+01,& - 0.1610E+01, 0.1614E+01, 0.1618E+01, 0.1621E+01,& - 0.1625E+01, 0.1629E+01, 0.1632E+01, 0.1636E+01,& - 0.1640E+01, 0.1644E+01, 0.1647E+01, 0.1651E+01,& - 0.1655E+01, 0.1659E+01, 0.1663E+01, 0.1667E+01,& - 0.1671E+01, 0.1675E+01, 0.1679E+01, 0.1684E+01,& - 0.1688E+01, 0.1692E+01, 0.1696E+01, 0.1701E+01,& - 0.1705E+01, 0.1710E+01, 0.1714E+01, 0.1719E+01,& - 0.1723E+01, 0.1728E+01, 0.1733E+01, 0.1737E+01,& - 0.1742E+01, 0.1747E+01, 0.1752E+01, 0.1757E+01,& - 0.1762E+01, 0.1767E+01, 0.1772E+01, 0.1778E+01,& - 0.1783E+01, 0.1788E+01, 0.1794E+01, 0.1800E+01,& - 0.1805E+01, 0.1811E+01, 0.1817E+01, 0.1823E+01,& - 0.1829E+01, 0.1835E+01, 0.1841E+01, 0.1847E+01,& - 0.1853E+01, 0.1860E+01, 0.1866E+01, 0.1873E+01,& - 0.1880E+01, 0.1887E+01, 0.1894E+01, 0.1901E+01,& - 0.1908E+01, 0.1916E+01, 0.1924E+01, 0.1931E+01,& - 0.1939E+01, 0.1947E+01, 0.1956E+01, 0.1964E+01,& - 0.1973E+01, 0.1982E+01, 0.1991E+01, 0.2000E+01,& - 0.2010E+01, 0.2020E+01, 0.2030E+01, 0.2040E+01,& - 0.2051E+01, 0.2062E+01, 0.2073E+01, 0.2085E+01,& - 0.2097E+01, 0.2110E+01, 0.2123E+01, 0.2137E+01,& - 0.2151E+01, 0.2165E+01, 0.2181E+01, 0.2197E+01,& - 0.2214E+01, 0.2231E+01, 0.2250E+01, 0.2270E+01,& - 0.2290E+01, 0.2313E+01, 0.2336E+01, 0.2362E+01,& - 0.2390E+01, 0.2420E+01, 0.2453E+01, 0.2490E+01,& - 0.2532E+01, 0.2580E+01, 0.2636E+01, 0.2704E+01,& - 0.1000E-04, 0.1072E+00, 0.1297E+00, 0.1453E+00/) - xcw(:, 17) = (/& - 0.1000E-04, 0.1072E+00, 0.1297E+00, 0.1453E+00,& - 0.1577E+00, 0.1681E+00, 0.1772E+00, 0.1853E+00,& - 0.1927E+00, 0.1995E+00, 0.2059E+00, 0.2118E+00,& - 0.2174E+00, 0.2227E+00, 0.2278E+00, 0.2326E+00,& - 0.2372E+00, 0.2417E+00, 0.2460E+00, 0.2501E+00,& - 0.2541E+00, 0.2580E+00, 0.2618E+00, 0.2655E+00,& - 0.2691E+00, 0.2726E+00, 0.2760E+00, 0.2793E+00,& - 0.2825E+00, 0.2857E+00, 0.2889E+00, 0.2919E+00,& - 0.2949E+00, 0.2979E+00, 0.3008E+00, 0.3036E+00,& - 0.3064E+00, 0.3092E+00, 0.3119E+00, 0.3146E+00,& - 0.3172E+00, 0.3198E+00, 0.3223E+00, 0.3249E+00,& - 0.3274E+00, 0.3298E+00, 0.3323E+00, 0.3347E+00,& - 0.3370E+00, 0.3394E+00, 0.3417E+00, 0.3440E+00,& - 0.3463E+00, 0.3485E+00, 0.3507E+00, 0.3529E+00,& - 0.3551E+00, 0.3573E+00, 0.3594E+00, 0.3615E+00,& - 0.3636E+00, 0.3657E+00, 0.3678E+00, 0.3698E+00,& - 0.3718E+00, 0.3738E+00, 0.3758E+00, 0.3778E+00,& - 0.3798E+00, 0.3817E+00, 0.3837E+00, 0.3856E+00,& - 0.3875E+00, 0.3894E+00, 0.3913E+00, 0.3931E+00,& - 0.3950E+00, 0.3968E+00, 0.3987E+00, 0.4005E+00,& - 0.4023E+00, 0.4041E+00, 0.4059E+00, 0.4076E+00,& - 0.4094E+00, 0.4112E+00, 0.4129E+00, 0.4146E+00,& - 0.4164E+00, 0.4181E+00, 0.4198E+00, 0.4215E+00,& - 0.4232E+00, 0.4248E+00, 0.4265E+00, 0.4282E+00,& - 0.4298E+00, 0.4315E+00, 0.4331E+00, 0.4347E+00,& - 0.4364E+00, 0.4380E+00, 0.4396E+00, 0.4412E+00,& - 0.4428E+00, 0.4444E+00, 0.4459E+00, 0.4475E+00,& - 0.4491E+00, 0.4506E+00, 0.4522E+00, 0.4537E+00,& - 0.4553E+00, 0.4568E+00, 0.4583E+00, 0.4598E+00,& - 0.4614E+00, 0.4629E+00, 0.4644E+00, 0.4659E+00,& - 0.4674E+00, 0.4688E+00, 0.4703E+00, 0.4718E+00,& - 0.4733E+00, 0.4747E+00, 0.4762E+00, 0.4777E+00,& - 0.4791E+00, 0.4806E+00, 0.4820E+00, 0.4834E+00,& - 0.4849E+00, 0.4863E+00, 0.4877E+00, 0.4892E+00,& - 0.4906E+00, 0.4920E+00, 0.4934E+00, 0.4948E+00,& - 0.4962E+00, 0.4976E+00, 0.4990E+00, 0.5004E+00,& - 0.5018E+00, 0.5031E+00, 0.5045E+00, 0.5059E+00,& - 0.5073E+00, 0.5086E+00, 0.5100E+00, 0.5113E+00,& - 0.5127E+00, 0.5140E+00, 0.5154E+00, 0.5167E+00,& - 0.5181E+00, 0.5194E+00, 0.5208E+00, 0.5221E+00,& - 0.5234E+00, 0.5247E+00, 0.5261E+00, 0.5274E+00,& - 0.5287E+00, 0.5300E+00, 0.5313E+00, 0.5326E+00,& - 0.5339E+00, 0.5352E+00, 0.5365E+00, 0.5378E+00,& - 0.5391E+00, 0.5404E+00, 0.5417E+00, 0.5430E+00,& - 0.5443E+00, 0.5456E+00, 0.5469E+00, 0.5481E+00,& - 0.5494E+00, 0.5507E+00, 0.5519E+00, 0.5532E+00,& - 0.5545E+00, 0.5557E+00, 0.5570E+00, 0.5583E+00,& - 0.5595E+00, 0.5608E+00, 0.5620E+00, 0.5633E+00,& - 0.5645E+00, 0.5658E+00, 0.5670E+00, 0.5683E+00,& - 0.5695E+00, 0.5707E+00, 0.5720E+00, 0.5732E+00,& - 0.5744E+00, 0.5757E+00, 0.5769E+00, 0.5781E+00,& - 0.5794E+00, 0.5806E+00, 0.5818E+00, 0.5830E+00,& - 0.5842E+00, 0.5855E+00, 0.5867E+00, 0.5879E+00,& - 0.5891E+00, 0.5903E+00, 0.5915E+00, 0.5927E+00,& - 0.5939E+00, 0.5951E+00, 0.5963E+00, 0.5975E+00,& - 0.5987E+00, 0.5999E+00, 0.6011E+00, 0.6023E+00,& - 0.6035E+00, 0.6047E+00, 0.6059E+00, 0.6071E+00,& - 0.6083E+00, 0.6095E+00, 0.6107E+00, 0.6118E+00,& - 0.6130E+00, 0.6142E+00, 0.6154E+00, 0.6166E+00,& - 0.6177E+00, 0.6189E+00, 0.6201E+00, 0.6213E+00,& - 0.6224E+00, 0.6236E+00, 0.6248E+00, 0.6260E+00,& - 0.6271E+00, 0.6283E+00, 0.6295E+00, 0.6306E+00,& - 0.6318E+00, 0.6330E+00, 0.6341E+00, 0.6353E+00,& - 0.6364E+00, 0.6376E+00, 0.6388E+00, 0.6399E+00,& - 0.6411E+00, 0.6422E+00, 0.6434E+00, 0.6445E+00,& - 0.6457E+00, 0.6469E+00, 0.6480E+00, 0.6492E+00,& - 0.6503E+00, 0.6515E+00, 0.6526E+00, 0.6538E+00,& - 0.6549E+00, 0.6560E+00, 0.6572E+00, 0.6583E+00,& - 0.6595E+00, 0.6606E+00, 0.6618E+00, 0.6629E+00,& - 0.6640E+00, 0.6652E+00, 0.6663E+00, 0.6675E+00,& - 0.6686E+00, 0.6697E+00, 0.6709E+00, 0.6720E+00,& - 0.6732E+00, 0.6743E+00, 0.6754E+00, 0.6766E+00,& - 0.6777E+00, 0.6788E+00, 0.6800E+00, 0.6811E+00,& - 0.6822E+00, 0.6834E+00, 0.6845E+00, 0.6856E+00,& - 0.6867E+00, 0.6879E+00, 0.6890E+00, 0.6901E+00,& - 0.6913E+00, 0.6924E+00, 0.6935E+00, 0.6946E+00,& - 0.6958E+00, 0.6969E+00, 0.6980E+00, 0.6992E+00,& - 0.7003E+00, 0.7014E+00, 0.7025E+00, 0.7036E+00,& - 0.7048E+00, 0.7059E+00, 0.7070E+00, 0.7081E+00,& - 0.7093E+00, 0.7104E+00, 0.7115E+00, 0.7126E+00,& - 0.7137E+00, 0.7149E+00, 0.7160E+00, 0.7171E+00,& - 0.7182E+00, 0.7194E+00, 0.7205E+00, 0.7216E+00,& - 0.7227E+00, 0.7238E+00, 0.7249E+00, 0.7261E+00,& - 0.7272E+00, 0.7283E+00, 0.7294E+00, 0.7305E+00,& - 0.7317E+00, 0.7328E+00, 0.7339E+00, 0.7350E+00,& - 0.7361E+00, 0.7372E+00, 0.7384E+00, 0.7395E+00,& - 0.7406E+00, 0.7417E+00, 0.7428E+00, 0.7440E+00,& - 0.7451E+00, 0.7462E+00, 0.7473E+00, 0.7484E+00,& - 0.7495E+00, 0.7507E+00, 0.7518E+00, 0.7529E+00,& - 0.7540E+00, 0.7551E+00, 0.7562E+00, 0.7574E+00,& - 0.7585E+00, 0.7596E+00, 0.7607E+00, 0.7618E+00,& - 0.7629E+00, 0.7641E+00, 0.7652E+00, 0.7663E+00,& - 0.7674E+00, 0.7685E+00, 0.7696E+00, 0.7708E+00,& - 0.7719E+00, 0.7730E+00, 0.7741E+00, 0.7752E+00,& - 0.7764E+00, 0.7775E+00, 0.7786E+00, 0.7797E+00,& - 0.7808E+00, 0.7820E+00, 0.7831E+00, 0.7842E+00,& - 0.7853E+00, 0.7864E+00, 0.7876E+00, 0.7887E+00,& - 0.7898E+00, 0.7909E+00, 0.7920E+00, 0.7932E+00,& - 0.7943E+00, 0.7954E+00, 0.7965E+00, 0.7977E+00,& - 0.7988E+00, 0.7999E+00, 0.8010E+00, 0.8022E+00,& - 0.8033E+00, 0.8044E+00, 0.8055E+00, 0.8067E+00,& - 0.8078E+00, 0.8089E+00, 0.8100E+00, 0.8112E+00,& - 0.8123E+00, 0.8134E+00, 0.8145E+00, 0.8157E+00,& - 0.8168E+00, 0.8179E+00, 0.8191E+00, 0.8202E+00,& - 0.8213E+00, 0.8225E+00, 0.8236E+00, 0.8247E+00,& - 0.8259E+00, 0.8270E+00, 0.8281E+00, 0.8293E+00,& - 0.8304E+00, 0.8315E+00, 0.8327E+00, 0.8338E+00,& - 0.8349E+00, 0.8361E+00, 0.8372E+00, 0.8384E+00,& - 0.8395E+00, 0.8406E+00, 0.8418E+00, 0.8429E+00,& - 0.8441E+00, 0.8452E+00, 0.8463E+00, 0.8475E+00,& - 0.8486E+00, 0.8498E+00, 0.8509E+00, 0.8521E+00,& - 0.8532E+00, 0.8544E+00, 0.8555E+00, 0.8566E+00,& - 0.8578E+00, 0.8589E+00, 0.8601E+00, 0.8612E+00,& - 0.8624E+00, 0.8636E+00, 0.8647E+00, 0.8659E+00,& - 0.8670E+00, 0.8682E+00, 0.8693E+00, 0.8705E+00,& - 0.8716E+00, 0.8728E+00, 0.8740E+00, 0.8751E+00,& - 0.8763E+00, 0.8774E+00, 0.8786E+00, 0.8798E+00,& - 0.8809E+00, 0.8821E+00, 0.8832E+00, 0.8844E+00,& - 0.8856E+00, 0.8867E+00, 0.8879E+00, 0.8891E+00,& - 0.8903E+00, 0.8914E+00, 0.8926E+00, 0.8938E+00,& - 0.8949E+00, 0.8961E+00, 0.8973E+00, 0.8985E+00,& - 0.8996E+00, 0.9008E+00, 0.9020E+00, 0.9032E+00,& - 0.9044E+00, 0.9055E+00, 0.9067E+00, 0.9079E+00,& - 0.9091E+00, 0.9103E+00, 0.9115E+00, 0.9127E+00,& - 0.9138E+00, 0.9150E+00, 0.9162E+00, 0.9174E+00,& - 0.9186E+00, 0.9198E+00, 0.9210E+00, 0.9222E+00,& - 0.9234E+00, 0.9246E+00, 0.9258E+00, 0.9270E+00,& - 0.9282E+00, 0.9294E+00, 0.9306E+00, 0.9318E+00,& - 0.9330E+00, 0.9342E+00, 0.9354E+00, 0.9366E+00,& - 0.9378E+00, 0.9391E+00, 0.9403E+00, 0.9415E+00,& - 0.9427E+00, 0.9439E+00, 0.9451E+00, 0.9463E+00,& - 0.9476E+00, 0.9488E+00, 0.9500E+00, 0.9512E+00,& - 0.9525E+00, 0.9537E+00, 0.9549E+00, 0.9561E+00,& - 0.9574E+00, 0.9586E+00, 0.9598E+00, 0.9611E+00,& - 0.9623E+00, 0.9635E+00, 0.9648E+00, 0.9660E+00,& - 0.9673E+00, 0.9685E+00, 0.9698E+00, 0.9710E+00,& - 0.9722E+00, 0.9735E+00, 0.9747E+00, 0.9760E+00,& - 0.9772E+00, 0.9785E+00, 0.9798E+00, 0.9810E+00,& - 0.9823E+00, 0.9835E+00, 0.9848E+00, 0.9861E+00,& - 0.9873E+00, 0.9886E+00, 0.9898E+00, 0.9911E+00,& - 0.9924E+00, 0.9937E+00, 0.9949E+00, 0.9962E+00,& - 0.9975E+00, 0.9988E+00, 0.1000E+01, 0.1001E+01,& - 0.1003E+01, 0.1004E+01, 0.1005E+01, 0.1006E+01,& - 0.1008E+01, 0.1009E+01, 0.1010E+01, 0.1012E+01,& - 0.1013E+01, 0.1014E+01, 0.1016E+01, 0.1017E+01,& - 0.1018E+01, 0.1019E+01, 0.1021E+01, 0.1022E+01,& - 0.1023E+01, 0.1025E+01, 0.1026E+01, 0.1027E+01,& - 0.1029E+01, 0.1030E+01, 0.1031E+01, 0.1033E+01,& - 0.1034E+01, 0.1035E+01, 0.1037E+01, 0.1038E+01,& - 0.1039E+01, 0.1041E+01, 0.1042E+01, 0.1043E+01,& - 0.1045E+01, 0.1046E+01, 0.1047E+01, 0.1049E+01,& - 0.1050E+01, 0.1051E+01, 0.1053E+01, 0.1054E+01,& - 0.1055E+01, 0.1057E+01, 0.1058E+01, 0.1060E+01,& - 0.1061E+01, 0.1062E+01, 0.1064E+01, 0.1065E+01,& - 0.1066E+01, 0.1068E+01, 0.1069E+01, 0.1071E+01,& - 0.1072E+01, 0.1073E+01, 0.1075E+01, 0.1076E+01,& - 0.1077E+01, 0.1079E+01, 0.1080E+01, 0.1082E+01,& - 0.1083E+01, 0.1084E+01, 0.1086E+01, 0.1087E+01,& - 0.1089E+01, 0.1090E+01, 0.1092E+01, 0.1093E+01,& - 0.1094E+01, 0.1096E+01, 0.1097E+01, 0.1099E+01,& - 0.1100E+01, 0.1102E+01, 0.1103E+01, 0.1104E+01,& - 0.1106E+01, 0.1107E+01, 0.1109E+01, 0.1110E+01,& - 0.1112E+01, 0.1113E+01, 0.1115E+01, 0.1116E+01,& - 0.1118E+01, 0.1119E+01, 0.1120E+01, 0.1122E+01,& - 0.1123E+01, 0.1125E+01, 0.1126E+01, 0.1128E+01,& - 0.1129E+01, 0.1131E+01, 0.1132E+01, 0.1134E+01,& - 0.1135E+01, 0.1137E+01, 0.1138E+01, 0.1140E+01,& - 0.1141E+01, 0.1143E+01, 0.1144E+01, 0.1146E+01,& - 0.1148E+01, 0.1149E+01, 0.1151E+01, 0.1152E+01,& - 0.1154E+01, 0.1155E+01, 0.1157E+01, 0.1158E+01,& - 0.1160E+01, 0.1161E+01, 0.1163E+01, 0.1165E+01,& - 0.1166E+01, 0.1168E+01, 0.1169E+01, 0.1171E+01,& - 0.1172E+01, 0.1174E+01, 0.1176E+01, 0.1177E+01,& - 0.1179E+01, 0.1180E+01, 0.1182E+01, 0.1184E+01,& - 0.1185E+01, 0.1187E+01, 0.1188E+01, 0.1190E+01,& - 0.1192E+01, 0.1193E+01, 0.1195E+01, 0.1197E+01,& - 0.1198E+01, 0.1200E+01, 0.1202E+01, 0.1203E+01,& - 0.1205E+01, 0.1207E+01, 0.1208E+01, 0.1210E+01,& - 0.1212E+01, 0.1213E+01, 0.1215E+01, 0.1217E+01,& - 0.1218E+01, 0.1220E+01, 0.1222E+01, 0.1223E+01,& - 0.1225E+01, 0.1227E+01, 0.1229E+01, 0.1230E+01,& - 0.1232E+01, 0.1234E+01, 0.1235E+01, 0.1237E+01,& - 0.1239E+01, 0.1241E+01, 0.1242E+01, 0.1244E+01,& - 0.1246E+01, 0.1248E+01, 0.1250E+01, 0.1251E+01,& - 0.1253E+01, 0.1255E+01, 0.1257E+01, 0.1259E+01,& - 0.1260E+01, 0.1262E+01, 0.1264E+01, 0.1266E+01,& - 0.1268E+01, 0.1269E+01, 0.1271E+01, 0.1273E+01,& - 0.1275E+01, 0.1277E+01, 0.1279E+01, 0.1281E+01,& - 0.1283E+01, 0.1284E+01, 0.1286E+01, 0.1288E+01,& - 0.1290E+01, 0.1292E+01, 0.1294E+01, 0.1296E+01,& - 0.1298E+01, 0.1300E+01, 0.1302E+01, 0.1304E+01,& - 0.1305E+01, 0.1307E+01, 0.1309E+01, 0.1311E+01,& - 0.1313E+01, 0.1315E+01, 0.1317E+01, 0.1319E+01,& - 0.1321E+01, 0.1323E+01, 0.1325E+01, 0.1327E+01,& - 0.1329E+01, 0.1331E+01, 0.1334E+01, 0.1336E+01,& - 0.1338E+01, 0.1340E+01, 0.1342E+01, 0.1344E+01,& - 0.1346E+01, 0.1348E+01, 0.1350E+01, 0.1352E+01,& - 0.1354E+01, 0.1357E+01, 0.1359E+01, 0.1361E+01,& - 0.1363E+01, 0.1365E+01, 0.1367E+01, 0.1370E+01,& - 0.1372E+01, 0.1374E+01, 0.1376E+01, 0.1378E+01,& - 0.1381E+01, 0.1383E+01, 0.1385E+01, 0.1387E+01,& - 0.1390E+01, 0.1392E+01, 0.1394E+01, 0.1396E+01,& - 0.1399E+01, 0.1401E+01, 0.1403E+01, 0.1406E+01,& - 0.1408E+01, 0.1410E+01, 0.1413E+01, 0.1415E+01,& - 0.1417E+01, 0.1420E+01, 0.1422E+01, 0.1425E+01,& - 0.1427E+01, 0.1430E+01, 0.1432E+01, 0.1434E+01,& - 0.1437E+01, 0.1439E+01, 0.1442E+01, 0.1444E+01,& - 0.1447E+01, 0.1449E+01, 0.1452E+01, 0.1455E+01,& - 0.1457E+01, 0.1460E+01, 0.1462E+01, 0.1465E+01,& - 0.1468E+01, 0.1470E+01, 0.1473E+01, 0.1476E+01,& - 0.1478E+01, 0.1481E+01, 0.1484E+01, 0.1486E+01,& - 0.1489E+01, 0.1492E+01, 0.1495E+01, 0.1497E+01,& - 0.1500E+01, 0.1503E+01, 0.1506E+01, 0.1509E+01,& - 0.1511E+01, 0.1514E+01, 0.1517E+01, 0.1520E+01,& - 0.1523E+01, 0.1526E+01, 0.1529E+01, 0.1532E+01,& - 0.1535E+01, 0.1538E+01, 0.1541E+01, 0.1544E+01,& - 0.1547E+01, 0.1550E+01, 0.1553E+01, 0.1557E+01,& - 0.1560E+01, 0.1563E+01, 0.1566E+01, 0.1569E+01,& - 0.1573E+01, 0.1576E+01, 0.1579E+01, 0.1582E+01,& - 0.1586E+01, 0.1589E+01, 0.1592E+01, 0.1596E+01,& - 0.1599E+01, 0.1603E+01, 0.1606E+01, 0.1610E+01,& - 0.1613E+01, 0.1617E+01, 0.1620E+01, 0.1624E+01,& - 0.1628E+01, 0.1631E+01, 0.1635E+01, 0.1639E+01,& - 0.1643E+01, 0.1646E+01, 0.1650E+01, 0.1654E+01,& - 0.1658E+01, 0.1662E+01, 0.1666E+01, 0.1670E+01,& - 0.1674E+01, 0.1678E+01, 0.1682E+01, 0.1686E+01,& - 0.1690E+01, 0.1695E+01, 0.1699E+01, 0.1703E+01,& - 0.1707E+01, 0.1712E+01, 0.1716E+01, 0.1721E+01,& - 0.1725E+01, 0.1730E+01, 0.1734E+01, 0.1739E+01,& - 0.1744E+01, 0.1748E+01, 0.1753E+01, 0.1758E+01,& - 0.1763E+01, 0.1768E+01, 0.1773E+01, 0.1778E+01,& - 0.1783E+01, 0.1789E+01, 0.1794E+01, 0.1799E+01,& - 0.1805E+01, 0.1810E+01, 0.1816E+01, 0.1821E+01,& - 0.1827E+01, 0.1833E+01, 0.1839E+01, 0.1845E+01,& - 0.1851E+01, 0.1857E+01, 0.1863E+01, 0.1869E+01,& - 0.1876E+01, 0.1882E+01, 0.1889E+01, 0.1895E+01,& - 0.1902E+01, 0.1909E+01, 0.1916E+01, 0.1923E+01,& - 0.1931E+01, 0.1938E+01, 0.1946E+01, 0.1953E+01,& - 0.1961E+01, 0.1969E+01, 0.1977E+01, 0.1986E+01,& - 0.1994E+01, 0.2003E+01, 0.2012E+01, 0.2021E+01,& - 0.2030E+01, 0.2040E+01, 0.2050E+01, 0.2060E+01,& - 0.2070E+01, 0.2081E+01, 0.2091E+01, 0.2103E+01,& - 0.2114E+01, 0.2126E+01, 0.2138E+01, 0.2151E+01,& - 0.2164E+01, 0.2177E+01, 0.2191E+01, 0.2206E+01,& - 0.2221E+01, 0.2237E+01, 0.2253E+01, 0.2271E+01,& - 0.2289E+01, 0.2308E+01, 0.2328E+01, 0.2349E+01,& - 0.2371E+01, 0.2395E+01, 0.2421E+01, 0.2449E+01,& - 0.2478E+01, 0.2511E+01, 0.2547E+01, 0.2587E+01,& - 0.2632E+01, 0.2683E+01, 0.2744E+01, 0.2818E+01,& - 0.1000E-04, 0.9113E-01, 0.1121E+00, 0.1268E+00/) - xcw(:, 18) = (/& - 0.1000E-04, 0.9113E-01, 0.1121E+00, 0.1268E+00,& - 0.1385E+00, 0.1484E+00, 0.1571E+00, 0.1649E+00,& - 0.1720E+00, 0.1786E+00, 0.1847E+00, 0.1905E+00,& - 0.1959E+00, 0.2010E+00, 0.2060E+00, 0.2107E+00,& - 0.2152E+00, 0.2195E+00, 0.2237E+00, 0.2278E+00,& - 0.2317E+00, 0.2355E+00, 0.2393E+00, 0.2429E+00,& - 0.2464E+00, 0.2498E+00, 0.2532E+00, 0.2565E+00,& - 0.2597E+00, 0.2628E+00, 0.2659E+00, 0.2689E+00,& - 0.2719E+00, 0.2748E+00, 0.2777E+00, 0.2805E+00,& - 0.2833E+00, 0.2860E+00, 0.2887E+00, 0.2914E+00,& - 0.2940E+00, 0.2965E+00, 0.2991E+00, 0.3016E+00,& - 0.3041E+00, 0.3065E+00, 0.3090E+00, 0.3113E+00,& - 0.3137E+00, 0.3161E+00, 0.3184E+00, 0.3207E+00,& - 0.3229E+00, 0.3252E+00, 0.3274E+00, 0.3296E+00,& - 0.3318E+00, 0.3339E+00, 0.3361E+00, 0.3382E+00,& - 0.3403E+00, 0.3424E+00, 0.3444E+00, 0.3465E+00,& - 0.3485E+00, 0.3505E+00, 0.3525E+00, 0.3545E+00,& - 0.3565E+00, 0.3584E+00, 0.3604E+00, 0.3623E+00,& - 0.3642E+00, 0.3661E+00, 0.3680E+00, 0.3699E+00,& - 0.3718E+00, 0.3736E+00, 0.3754E+00, 0.3773E+00,& - 0.3791E+00, 0.3809E+00, 0.3827E+00, 0.3845E+00,& - 0.3863E+00, 0.3880E+00, 0.3898E+00, 0.3915E+00,& - 0.3933E+00, 0.3950E+00, 0.3967E+00, 0.3984E+00,& - 0.4001E+00, 0.4018E+00, 0.4035E+00, 0.4052E+00,& - 0.4069E+00, 0.4085E+00, 0.4102E+00, 0.4118E+00,& - 0.4135E+00, 0.4151E+00, 0.4167E+00, 0.4183E+00,& - 0.4199E+00, 0.4215E+00, 0.4231E+00, 0.4247E+00,& - 0.4263E+00, 0.4279E+00, 0.4295E+00, 0.4310E+00,& - 0.4326E+00, 0.4341E+00, 0.4357E+00, 0.4372E+00,& - 0.4388E+00, 0.4403E+00, 0.4418E+00, 0.4433E+00,& - 0.4449E+00, 0.4464E+00, 0.4479E+00, 0.4494E+00,& - 0.4509E+00, 0.4523E+00, 0.4538E+00, 0.4553E+00,& - 0.4568E+00, 0.4583E+00, 0.4597E+00, 0.4612E+00,& - 0.4626E+00, 0.4641E+00, 0.4655E+00, 0.4670E+00,& - 0.4684E+00, 0.4699E+00, 0.4713E+00, 0.4727E+00,& - 0.4741E+00, 0.4756E+00, 0.4770E+00, 0.4784E+00,& - 0.4798E+00, 0.4812E+00, 0.4826E+00, 0.4840E+00,& - 0.4854E+00, 0.4868E+00, 0.4882E+00, 0.4896E+00,& - 0.4909E+00, 0.4923E+00, 0.4937E+00, 0.4951E+00,& - 0.4964E+00, 0.4978E+00, 0.4991E+00, 0.5005E+00,& - 0.5019E+00, 0.5032E+00, 0.5046E+00, 0.5059E+00,& - 0.5073E+00, 0.5086E+00, 0.5099E+00, 0.5113E+00,& - 0.5126E+00, 0.5139E+00, 0.5153E+00, 0.5166E+00,& - 0.5179E+00, 0.5192E+00, 0.5205E+00, 0.5219E+00,& - 0.5232E+00, 0.5245E+00, 0.5258E+00, 0.5271E+00,& - 0.5284E+00, 0.5297E+00, 0.5310E+00, 0.5323E+00,& - 0.5336E+00, 0.5349E+00, 0.5362E+00, 0.5375E+00,& - 0.5387E+00, 0.5400E+00, 0.5413E+00, 0.5426E+00,& - 0.5439E+00, 0.5451E+00, 0.5464E+00, 0.5477E+00,& - 0.5490E+00, 0.5502E+00, 0.5515E+00, 0.5528E+00,& - 0.5540E+00, 0.5553E+00, 0.5565E+00, 0.5578E+00,& - 0.5591E+00, 0.5603E+00, 0.5616E+00, 0.5628E+00,& - 0.5641E+00, 0.5653E+00, 0.5666E+00, 0.5678E+00,& - 0.5690E+00, 0.5703E+00, 0.5715E+00, 0.5728E+00,& - 0.5740E+00, 0.5752E+00, 0.5765E+00, 0.5777E+00,& - 0.5789E+00, 0.5802E+00, 0.5814E+00, 0.5826E+00,& - 0.5838E+00, 0.5851E+00, 0.5863E+00, 0.5875E+00,& - 0.5887E+00, 0.5900E+00, 0.5912E+00, 0.5924E+00,& - 0.5936E+00, 0.5948E+00, 0.5960E+00, 0.5972E+00,& - 0.5985E+00, 0.5997E+00, 0.6009E+00, 0.6021E+00,& - 0.6033E+00, 0.6045E+00, 0.6057E+00, 0.6069E+00,& - 0.6081E+00, 0.6093E+00, 0.6105E+00, 0.6117E+00,& - 0.6129E+00, 0.6141E+00, 0.6153E+00, 0.6165E+00,& - 0.6177E+00, 0.6189E+00, 0.6201E+00, 0.6213E+00,& - 0.6225E+00, 0.6236E+00, 0.6248E+00, 0.6260E+00,& - 0.6272E+00, 0.6284E+00, 0.6296E+00, 0.6308E+00,& - 0.6320E+00, 0.6331E+00, 0.6343E+00, 0.6355E+00,& - 0.6367E+00, 0.6379E+00, 0.6390E+00, 0.6402E+00,& - 0.6414E+00, 0.6426E+00, 0.6438E+00, 0.6449E+00,& - 0.6461E+00, 0.6473E+00, 0.6485E+00, 0.6496E+00,& - 0.6508E+00, 0.6520E+00, 0.6532E+00, 0.6543E+00,& - 0.6555E+00, 0.6567E+00, 0.6579E+00, 0.6590E+00,& - 0.6602E+00, 0.6614E+00, 0.6625E+00, 0.6637E+00,& - 0.6649E+00, 0.6660E+00, 0.6672E+00, 0.6684E+00,& - 0.6695E+00, 0.6707E+00, 0.6719E+00, 0.6730E+00,& - 0.6742E+00, 0.6754E+00, 0.6765E+00, 0.6777E+00,& - 0.6789E+00, 0.6800E+00, 0.6812E+00, 0.6823E+00,& - 0.6835E+00, 0.6847E+00, 0.6858E+00, 0.6870E+00,& - 0.6882E+00, 0.6893E+00, 0.6905E+00, 0.6916E+00,& - 0.6928E+00, 0.6940E+00, 0.6951E+00, 0.6963E+00,& - 0.6974E+00, 0.6986E+00, 0.6998E+00, 0.7009E+00,& - 0.7021E+00, 0.7032E+00, 0.7044E+00, 0.7055E+00,& - 0.7067E+00, 0.7079E+00, 0.7090E+00, 0.7102E+00,& - 0.7113E+00, 0.7125E+00, 0.7137E+00, 0.7148E+00,& - 0.7160E+00, 0.7171E+00, 0.7183E+00, 0.7194E+00,& - 0.7206E+00, 0.7218E+00, 0.7229E+00, 0.7241E+00,& - 0.7252E+00, 0.7264E+00, 0.7275E+00, 0.7287E+00,& - 0.7299E+00, 0.7310E+00, 0.7322E+00, 0.7333E+00,& - 0.7345E+00, 0.7356E+00, 0.7368E+00, 0.7380E+00,& - 0.7391E+00, 0.7403E+00, 0.7414E+00, 0.7426E+00,& - 0.7437E+00, 0.7449E+00, 0.7461E+00, 0.7472E+00,& - 0.7484E+00, 0.7495E+00, 0.7507E+00, 0.7519E+00,& - 0.7530E+00, 0.7542E+00, 0.7553E+00, 0.7565E+00,& - 0.7577E+00, 0.7588E+00, 0.7600E+00, 0.7611E+00,& - 0.7623E+00, 0.7635E+00, 0.7646E+00, 0.7658E+00,& - 0.7669E+00, 0.7681E+00, 0.7693E+00, 0.7704E+00,& - 0.7716E+00, 0.7728E+00, 0.7739E+00, 0.7751E+00,& - 0.7762E+00, 0.7774E+00, 0.7786E+00, 0.7797E+00,& - 0.7809E+00, 0.7821E+00, 0.7832E+00, 0.7844E+00,& - 0.7856E+00, 0.7867E+00, 0.7879E+00, 0.7891E+00,& - 0.7902E+00, 0.7914E+00, 0.7926E+00, 0.7938E+00,& - 0.7949E+00, 0.7961E+00, 0.7973E+00, 0.7984E+00,& - 0.7996E+00, 0.8008E+00, 0.8020E+00, 0.8031E+00,& - 0.8043E+00, 0.8055E+00, 0.8067E+00, 0.8078E+00,& - 0.8090E+00, 0.8102E+00, 0.8114E+00, 0.8125E+00,& - 0.8137E+00, 0.8149E+00, 0.8161E+00, 0.8173E+00,& - 0.8184E+00, 0.8196E+00, 0.8208E+00, 0.8220E+00,& - 0.8232E+00, 0.8244E+00, 0.8255E+00, 0.8267E+00,& - 0.8279E+00, 0.8291E+00, 0.8303E+00, 0.8315E+00,& - 0.8327E+00, 0.8338E+00, 0.8350E+00, 0.8362E+00,& - 0.8374E+00, 0.8386E+00, 0.8398E+00, 0.8410E+00,& - 0.8422E+00, 0.8434E+00, 0.8446E+00, 0.8458E+00,& - 0.8470E+00, 0.8482E+00, 0.8494E+00, 0.8506E+00,& - 0.8518E+00, 0.8530E+00, 0.8542E+00, 0.8554E+00,& - 0.8566E+00, 0.8578E+00, 0.8590E+00, 0.8602E+00,& - 0.8614E+00, 0.8626E+00, 0.8638E+00, 0.8650E+00,& - 0.8662E+00, 0.8674E+00, 0.8686E+00, 0.8699E+00,& - 0.8711E+00, 0.8723E+00, 0.8735E+00, 0.8747E+00,& - 0.8759E+00, 0.8771E+00, 0.8784E+00, 0.8796E+00,& - 0.8808E+00, 0.8820E+00, 0.8832E+00, 0.8845E+00,& - 0.8857E+00, 0.8869E+00, 0.8881E+00, 0.8894E+00,& - 0.8906E+00, 0.8918E+00, 0.8931E+00, 0.8943E+00,& - 0.8955E+00, 0.8968E+00, 0.8980E+00, 0.8992E+00,& - 0.9005E+00, 0.9017E+00, 0.9029E+00, 0.9042E+00,& - 0.9054E+00, 0.9067E+00, 0.9079E+00, 0.9092E+00,& - 0.9104E+00, 0.9116E+00, 0.9129E+00, 0.9141E+00,& - 0.9154E+00, 0.9166E+00, 0.9179E+00, 0.9192E+00,& - 0.9204E+00, 0.9217E+00, 0.9229E+00, 0.9242E+00,& - 0.9254E+00, 0.9267E+00, 0.9280E+00, 0.9292E+00,& - 0.9305E+00, 0.9318E+00, 0.9330E+00, 0.9343E+00,& - 0.9356E+00, 0.9368E+00, 0.9381E+00, 0.9394E+00,& - 0.9407E+00, 0.9419E+00, 0.9432E+00, 0.9445E+00,& - 0.9458E+00, 0.9471E+00, 0.9483E+00, 0.9496E+00,& - 0.9509E+00, 0.9522E+00, 0.9535E+00, 0.9548E+00,& - 0.9561E+00, 0.9574E+00, 0.9587E+00, 0.9600E+00,& - 0.9613E+00, 0.9626E+00, 0.9639E+00, 0.9652E+00,& - 0.9665E+00, 0.9678E+00, 0.9691E+00, 0.9704E+00,& - 0.9717E+00, 0.9730E+00, 0.9743E+00, 0.9756E+00,& - 0.9770E+00, 0.9783E+00, 0.9796E+00, 0.9809E+00,& - 0.9823E+00, 0.9836E+00, 0.9849E+00, 0.9862E+00,& - 0.9876E+00, 0.9889E+00, 0.9902E+00, 0.9916E+00,& - 0.9929E+00, 0.9942E+00, 0.9956E+00, 0.9969E+00,& - 0.9983E+00, 0.9996E+00, 0.1001E+01, 0.1002E+01,& - 0.1004E+01, 0.1005E+01, 0.1006E+01, 0.1008E+01,& - 0.1009E+01, 0.1010E+01, 0.1012E+01, 0.1013E+01,& - 0.1015E+01, 0.1016E+01, 0.1017E+01, 0.1019E+01,& - 0.1020E+01, 0.1021E+01, 0.1023E+01, 0.1024E+01,& - 0.1026E+01, 0.1027E+01, 0.1028E+01, 0.1030E+01,& - 0.1031E+01, 0.1033E+01, 0.1034E+01, 0.1035E+01,& - 0.1037E+01, 0.1038E+01, 0.1039E+01, 0.1041E+01,& - 0.1042E+01, 0.1044E+01, 0.1045E+01, 0.1047E+01,& - 0.1048E+01, 0.1049E+01, 0.1051E+01, 0.1052E+01,& - 0.1054E+01, 0.1055E+01, 0.1057E+01, 0.1058E+01,& - 0.1059E+01, 0.1061E+01, 0.1062E+01, 0.1064E+01,& - 0.1065E+01, 0.1067E+01, 0.1068E+01, 0.1070E+01,& - 0.1071E+01, 0.1072E+01, 0.1074E+01, 0.1075E+01,& - 0.1077E+01, 0.1078E+01, 0.1080E+01, 0.1081E+01,& - 0.1083E+01, 0.1084E+01, 0.1086E+01, 0.1087E+01,& - 0.1089E+01, 0.1090E+01, 0.1092E+01, 0.1093E+01,& - 0.1095E+01, 0.1096E+01, 0.1098E+01, 0.1099E+01,& - 0.1101E+01, 0.1102E+01, 0.1104E+01, 0.1105E+01,& - 0.1107E+01, 0.1108E+01, 0.1110E+01, 0.1111E+01,& - 0.1113E+01, 0.1114E+01, 0.1116E+01, 0.1117E+01,& - 0.1119E+01, 0.1120E+01, 0.1122E+01, 0.1124E+01,& - 0.1125E+01, 0.1127E+01, 0.1128E+01, 0.1130E+01,& - 0.1131E+01, 0.1133E+01, 0.1135E+01, 0.1136E+01,& - 0.1138E+01, 0.1139E+01, 0.1141E+01, 0.1142E+01,& - 0.1144E+01, 0.1146E+01, 0.1147E+01, 0.1149E+01,& - 0.1150E+01, 0.1152E+01, 0.1154E+01, 0.1155E+01,& - 0.1157E+01, 0.1159E+01, 0.1160E+01, 0.1162E+01,& - 0.1163E+01, 0.1165E+01, 0.1167E+01, 0.1168E+01,& - 0.1170E+01, 0.1172E+01, 0.1173E+01, 0.1175E+01,& - 0.1177E+01, 0.1178E+01, 0.1180E+01, 0.1182E+01,& - 0.1183E+01, 0.1185E+01, 0.1187E+01, 0.1188E+01,& - 0.1190E+01, 0.1192E+01, 0.1194E+01, 0.1195E+01,& - 0.1197E+01, 0.1199E+01, 0.1200E+01, 0.1202E+01,& - 0.1204E+01, 0.1206E+01, 0.1207E+01, 0.1209E+01,& - 0.1211E+01, 0.1213E+01, 0.1214E+01, 0.1216E+01,& - 0.1218E+01, 0.1220E+01, 0.1221E+01, 0.1223E+01,& - 0.1225E+01, 0.1227E+01, 0.1229E+01, 0.1230E+01,& - 0.1232E+01, 0.1234E+01, 0.1236E+01, 0.1238E+01,& - 0.1239E+01, 0.1241E+01, 0.1243E+01, 0.1245E+01,& - 0.1247E+01, 0.1249E+01, 0.1251E+01, 0.1252E+01,& - 0.1254E+01, 0.1256E+01, 0.1258E+01, 0.1260E+01,& - 0.1262E+01, 0.1264E+01, 0.1266E+01, 0.1267E+01,& - 0.1269E+01, 0.1271E+01, 0.1273E+01, 0.1275E+01,& - 0.1277E+01, 0.1279E+01, 0.1281E+01, 0.1283E+01,& - 0.1285E+01, 0.1287E+01, 0.1289E+01, 0.1291E+01,& - 0.1293E+01, 0.1295E+01, 0.1297E+01, 0.1299E+01,& - 0.1301E+01, 0.1303E+01, 0.1305E+01, 0.1307E+01,& - 0.1309E+01, 0.1311E+01, 0.1313E+01, 0.1315E+01,& - 0.1317E+01, 0.1319E+01, 0.1321E+01, 0.1323E+01,& - 0.1325E+01, 0.1327E+01, 0.1330E+01, 0.1332E+01,& - 0.1334E+01, 0.1336E+01, 0.1338E+01, 0.1340E+01,& - 0.1342E+01, 0.1345E+01, 0.1347E+01, 0.1349E+01,& - 0.1351E+01, 0.1353E+01, 0.1355E+01, 0.1358E+01,& - 0.1360E+01, 0.1362E+01, 0.1364E+01, 0.1367E+01,& - 0.1369E+01, 0.1371E+01, 0.1373E+01, 0.1376E+01,& - 0.1378E+01, 0.1380E+01, 0.1382E+01, 0.1385E+01,& - 0.1387E+01, 0.1389E+01, 0.1392E+01, 0.1394E+01,& - 0.1396E+01, 0.1399E+01, 0.1401E+01, 0.1404E+01,& - 0.1406E+01, 0.1408E+01, 0.1411E+01, 0.1413E+01,& - 0.1416E+01, 0.1418E+01, 0.1421E+01, 0.1423E+01,& - 0.1426E+01, 0.1428E+01, 0.1430E+01, 0.1433E+01,& - 0.1436E+01, 0.1438E+01, 0.1441E+01, 0.1443E+01,& - 0.1446E+01, 0.1448E+01, 0.1451E+01, 0.1454E+01,& - 0.1456E+01, 0.1459E+01, 0.1461E+01, 0.1464E+01,& - 0.1467E+01, 0.1469E+01, 0.1472E+01, 0.1475E+01,& - 0.1478E+01, 0.1480E+01, 0.1483E+01, 0.1486E+01,& - 0.1489E+01, 0.1491E+01, 0.1494E+01, 0.1497E+01,& - 0.1500E+01, 0.1503E+01, 0.1506E+01, 0.1509E+01,& - 0.1511E+01, 0.1514E+01, 0.1517E+01, 0.1520E+01,& - 0.1523E+01, 0.1526E+01, 0.1529E+01, 0.1532E+01,& - 0.1535E+01, 0.1538E+01, 0.1541E+01, 0.1544E+01,& - 0.1548E+01, 0.1551E+01, 0.1554E+01, 0.1557E+01,& - 0.1560E+01, 0.1563E+01, 0.1567E+01, 0.1570E+01,& - 0.1573E+01, 0.1576E+01, 0.1580E+01, 0.1583E+01,& - 0.1586E+01, 0.1590E+01, 0.1593E+01, 0.1597E+01,& - 0.1600E+01, 0.1604E+01, 0.1607E+01, 0.1611E+01,& - 0.1614E+01, 0.1618E+01, 0.1621E+01, 0.1625E+01,& - 0.1629E+01, 0.1632E+01, 0.1636E+01, 0.1640E+01,& - 0.1643E+01, 0.1647E+01, 0.1651E+01, 0.1655E+01,& - 0.1659E+01, 0.1663E+01, 0.1667E+01, 0.1671E+01,& - 0.1675E+01, 0.1679E+01, 0.1683E+01, 0.1687E+01,& - 0.1691E+01, 0.1695E+01, 0.1699E+01, 0.1703E+01,& - 0.1708E+01, 0.1712E+01, 0.1716E+01, 0.1721E+01,& - 0.1725E+01, 0.1730E+01, 0.1734E+01, 0.1739E+01,& - 0.1744E+01, 0.1748E+01, 0.1753E+01, 0.1758E+01,& - 0.1762E+01, 0.1767E+01, 0.1772E+01, 0.1777E+01,& - 0.1782E+01, 0.1787E+01, 0.1792E+01, 0.1798E+01,& - 0.1803E+01, 0.1808E+01, 0.1813E+01, 0.1819E+01,& - 0.1824E+01, 0.1830E+01, 0.1836E+01, 0.1841E+01,& - 0.1847E+01, 0.1853E+01, 0.1859E+01, 0.1865E+01,& - 0.1871E+01, 0.1877E+01, 0.1883E+01, 0.1890E+01,& - 0.1896E+01, 0.1903E+01, 0.1909E+01, 0.1916E+01,& - 0.1923E+01, 0.1930E+01, 0.1937E+01, 0.1944E+01,& - 0.1951E+01, 0.1959E+01, 0.1966E+01, 0.1974E+01,& - 0.1982E+01, 0.1990E+01, 0.1998E+01, 0.2006E+01,& - 0.2014E+01, 0.2023E+01, 0.2032E+01, 0.2040E+01,& - 0.2050E+01, 0.2059E+01, 0.2068E+01, 0.2078E+01,& - 0.2088E+01, 0.2098E+01, 0.2109E+01, 0.2120E+01,& - 0.2131E+01, 0.2142E+01, 0.2153E+01, 0.2165E+01,& - 0.2178E+01, 0.2190E+01, 0.2204E+01, 0.2217E+01,& - 0.2231E+01, 0.2246E+01, 0.2261E+01, 0.2276E+01,& - 0.2292E+01, 0.2309E+01, 0.2327E+01, 0.2345E+01,& - 0.2365E+01, 0.2385E+01, 0.2407E+01, 0.2429E+01,& - 0.2454E+01, 0.2479E+01, 0.2507E+01, 0.2536E+01,& - 0.2568E+01, 0.2603E+01, 0.2642E+01, 0.2685E+01,& - 0.2733E+01, 0.2789E+01, 0.2854E+01, 0.2933E+01,& - 0.1000E-04, 0.7699E-01, 0.9635E-01, 0.1101E+00/) - xcw(:, 19) = (/& - 0.1000E-04, 0.7699E-01, 0.9635E-01, 0.1101E+00,& - 0.1211E+00, 0.1304E+00, 0.1387E+00, 0.1461E+00,& - 0.1529E+00, 0.1592E+00, 0.1651E+00, 0.1706E+00,& - 0.1759E+00, 0.1809E+00, 0.1856E+00, 0.1902E+00,& - 0.1946E+00, 0.1988E+00, 0.2029E+00, 0.2068E+00,& - 0.2107E+00, 0.2144E+00, 0.2180E+00, 0.2215E+00,& - 0.2250E+00, 0.2284E+00, 0.2316E+00, 0.2349E+00,& - 0.2380E+00, 0.2411E+00, 0.2441E+00, 0.2471E+00,& - 0.2500E+00, 0.2529E+00, 0.2557E+00, 0.2585E+00,& - 0.2613E+00, 0.2640E+00, 0.2666E+00, 0.2692E+00,& - 0.2718E+00, 0.2744E+00, 0.2769E+00, 0.2794E+00,& - 0.2818E+00, 0.2843E+00, 0.2867E+00, 0.2890E+00,& - 0.2914E+00, 0.2937E+00, 0.2960E+00, 0.2983E+00,& - 0.3005E+00, 0.3028E+00, 0.3050E+00, 0.3072E+00,& - 0.3093E+00, 0.3115E+00, 0.3136E+00, 0.3157E+00,& - 0.3178E+00, 0.3199E+00, 0.3220E+00, 0.3240E+00,& - 0.3260E+00, 0.3280E+00, 0.3300E+00, 0.3320E+00,& - 0.3340E+00, 0.3360E+00, 0.3379E+00, 0.3398E+00,& - 0.3417E+00, 0.3436E+00, 0.3455E+00, 0.3474E+00,& - 0.3493E+00, 0.3511E+00, 0.3530E+00, 0.3548E+00,& - 0.3566E+00, 0.3585E+00, 0.3603E+00, 0.3620E+00,& - 0.3638E+00, 0.3656E+00, 0.3674E+00, 0.3691E+00,& - 0.3709E+00, 0.3726E+00, 0.3743E+00, 0.3761E+00,& - 0.3778E+00, 0.3795E+00, 0.3812E+00, 0.3828E+00,& - 0.3845E+00, 0.3862E+00, 0.3879E+00, 0.3895E+00,& - 0.3912E+00, 0.3928E+00, 0.3945E+00, 0.3961E+00,& - 0.3977E+00, 0.3993E+00, 0.4009E+00, 0.4025E+00,& - 0.4041E+00, 0.4057E+00, 0.4073E+00, 0.4089E+00,& - 0.4105E+00, 0.4120E+00, 0.4136E+00, 0.4151E+00,& - 0.4167E+00, 0.4182E+00, 0.4198E+00, 0.4213E+00,& - 0.4229E+00, 0.4244E+00, 0.4259E+00, 0.4274E+00,& - 0.4289E+00, 0.4304E+00, 0.4319E+00, 0.4334E+00,& - 0.4349E+00, 0.4364E+00, 0.4379E+00, 0.4394E+00,& - 0.4408E+00, 0.4423E+00, 0.4438E+00, 0.4453E+00,& - 0.4467E+00, 0.4482E+00, 0.4496E+00, 0.4511E+00,& - 0.4525E+00, 0.4539E+00, 0.4554E+00, 0.4568E+00,& - 0.4582E+00, 0.4597E+00, 0.4611E+00, 0.4625E+00,& - 0.4639E+00, 0.4653E+00, 0.4667E+00, 0.4681E+00,& - 0.4696E+00, 0.4709E+00, 0.4723E+00, 0.4737E+00,& - 0.4751E+00, 0.4765E+00, 0.4779E+00, 0.4793E+00,& - 0.4807E+00, 0.4820E+00, 0.4834E+00, 0.4848E+00,& - 0.4861E+00, 0.4875E+00, 0.4889E+00, 0.4902E+00,& - 0.4916E+00, 0.4929E+00, 0.4943E+00, 0.4956E+00,& - 0.4970E+00, 0.4983E+00, 0.4997E+00, 0.5010E+00,& - 0.5023E+00, 0.5037E+00, 0.5050E+00, 0.5063E+00,& - 0.5077E+00, 0.5090E+00, 0.5103E+00, 0.5116E+00,& - 0.5130E+00, 0.5143E+00, 0.5156E+00, 0.5169E+00,& - 0.5182E+00, 0.5195E+00, 0.5208E+00, 0.5221E+00,& - 0.5234E+00, 0.5247E+00, 0.5260E+00, 0.5273E+00,& - 0.5286E+00, 0.5299E+00, 0.5312E+00, 0.5325E+00,& - 0.5338E+00, 0.5351E+00, 0.5364E+00, 0.5377E+00,& - 0.5390E+00, 0.5402E+00, 0.5415E+00, 0.5428E+00,& - 0.5441E+00, 0.5453E+00, 0.5466E+00, 0.5479E+00,& - 0.5492E+00, 0.5504E+00, 0.5517E+00, 0.5530E+00,& - 0.5542E+00, 0.5555E+00, 0.5567E+00, 0.5580E+00,& - 0.5593E+00, 0.5605E+00, 0.5618E+00, 0.5630E+00,& - 0.5643E+00, 0.5655E+00, 0.5668E+00, 0.5681E+00,& - 0.5693E+00, 0.5705E+00, 0.5718E+00, 0.5730E+00,& - 0.5743E+00, 0.5755E+00, 0.5768E+00, 0.5780E+00,& - 0.5793E+00, 0.5805E+00, 0.5817E+00, 0.5830E+00,& - 0.5842E+00, 0.5854E+00, 0.5867E+00, 0.5879E+00,& - 0.5891E+00, 0.5904E+00, 0.5916E+00, 0.5928E+00,& - 0.5941E+00, 0.5953E+00, 0.5965E+00, 0.5978E+00,& - 0.5990E+00, 0.6002E+00, 0.6014E+00, 0.6027E+00,& - 0.6039E+00, 0.6051E+00, 0.6063E+00, 0.6075E+00,& - 0.6088E+00, 0.6100E+00, 0.6112E+00, 0.6124E+00,& - 0.6136E+00, 0.6148E+00, 0.6161E+00, 0.6173E+00,& - 0.6185E+00, 0.6197E+00, 0.6209E+00, 0.6221E+00,& - 0.6233E+00, 0.6246E+00, 0.6258E+00, 0.6270E+00,& - 0.6282E+00, 0.6294E+00, 0.6306E+00, 0.6318E+00,& - 0.6330E+00, 0.6342E+00, 0.6354E+00, 0.6366E+00,& - 0.6378E+00, 0.6390E+00, 0.6403E+00, 0.6415E+00,& - 0.6427E+00, 0.6439E+00, 0.6451E+00, 0.6463E+00,& - 0.6475E+00, 0.6487E+00, 0.6499E+00, 0.6511E+00,& - 0.6523E+00, 0.6535E+00, 0.6547E+00, 0.6559E+00,& - 0.6571E+00, 0.6583E+00, 0.6595E+00, 0.6607E+00,& - 0.6619E+00, 0.6631E+00, 0.6643E+00, 0.6655E+00,& - 0.6667E+00, 0.6679E+00, 0.6691E+00, 0.6703E+00,& - 0.6715E+00, 0.6727E+00, 0.6738E+00, 0.6750E+00,& - 0.6762E+00, 0.6774E+00, 0.6786E+00, 0.6798E+00,& - 0.6810E+00, 0.6822E+00, 0.6834E+00, 0.6846E+00,& - 0.6858E+00, 0.6870E+00, 0.6882E+00, 0.6894E+00,& - 0.6906E+00, 0.6918E+00, 0.6930E+00, 0.6942E+00,& - 0.6954E+00, 0.6966E+00, 0.6978E+00, 0.6989E+00,& - 0.7001E+00, 0.7013E+00, 0.7025E+00, 0.7037E+00,& - 0.7049E+00, 0.7061E+00, 0.7073E+00, 0.7085E+00,& - 0.7097E+00, 0.7109E+00, 0.7121E+00, 0.7133E+00,& - 0.7145E+00, 0.7157E+00, 0.7169E+00, 0.7181E+00,& - 0.7193E+00, 0.7205E+00, 0.7217E+00, 0.7229E+00,& - 0.7241E+00, 0.7252E+00, 0.7264E+00, 0.7276E+00,& - 0.7288E+00, 0.7300E+00, 0.7312E+00, 0.7324E+00,& - 0.7336E+00, 0.7348E+00, 0.7360E+00, 0.7372E+00,& - 0.7384E+00, 0.7396E+00, 0.7408E+00, 0.7420E+00,& - 0.7432E+00, 0.7444E+00, 0.7456E+00, 0.7468E+00,& - 0.7480E+00, 0.7492E+00, 0.7504E+00, 0.7516E+00,& - 0.7528E+00, 0.7540E+00, 0.7552E+00, 0.7564E+00,& - 0.7577E+00, 0.7589E+00, 0.7601E+00, 0.7613E+00,& - 0.7625E+00, 0.7637E+00, 0.7649E+00, 0.7661E+00,& - 0.7673E+00, 0.7685E+00, 0.7697E+00, 0.7709E+00,& - 0.7721E+00, 0.7733E+00, 0.7746E+00, 0.7758E+00,& - 0.7770E+00, 0.7782E+00, 0.7794E+00, 0.7806E+00,& - 0.7818E+00, 0.7830E+00, 0.7843E+00, 0.7855E+00,& - 0.7867E+00, 0.7879E+00, 0.7891E+00, 0.7903E+00,& - 0.7916E+00, 0.7928E+00, 0.7940E+00, 0.7952E+00,& - 0.7964E+00, 0.7976E+00, 0.7989E+00, 0.8001E+00,& - 0.8013E+00, 0.8025E+00, 0.8038E+00, 0.8050E+00,& - 0.8062E+00, 0.8074E+00, 0.8087E+00, 0.8099E+00,& - 0.8111E+00, 0.8123E+00, 0.8136E+00, 0.8148E+00,& - 0.8160E+00, 0.8173E+00, 0.8185E+00, 0.8197E+00,& - 0.8210E+00, 0.8222E+00, 0.8234E+00, 0.8247E+00,& - 0.8259E+00, 0.8271E+00, 0.8284E+00, 0.8296E+00,& - 0.8309E+00, 0.8321E+00, 0.8333E+00, 0.8346E+00,& - 0.8358E+00, 0.8370E+00, 0.8383E+00, 0.8396E+00,& - 0.8408E+00, 0.8421E+00, 0.8433E+00, 0.8446E+00,& - 0.8458E+00, 0.8471E+00, 0.8483E+00, 0.8496E+00,& - 0.8508E+00, 0.8521E+00, 0.8533E+00, 0.8546E+00,& - 0.8558E+00, 0.8571E+00, 0.8584E+00, 0.8596E+00,& - 0.8609E+00, 0.8621E+00, 0.8634E+00, 0.8647E+00,& - 0.8659E+00, 0.8672E+00, 0.8685E+00, 0.8697E+00,& - 0.8710E+00, 0.8723E+00, 0.8736E+00, 0.8748E+00,& - 0.8761E+00, 0.8774E+00, 0.8787E+00, 0.8799E+00,& - 0.8812E+00, 0.8825E+00, 0.8838E+00, 0.8851E+00,& - 0.8863E+00, 0.8876E+00, 0.8889E+00, 0.8902E+00,& - 0.8915E+00, 0.8928E+00, 0.8941E+00, 0.8953E+00,& - 0.8966E+00, 0.8979E+00, 0.8992E+00, 0.9005E+00,& - 0.9018E+00, 0.9031E+00, 0.9044E+00, 0.9057E+00,& - 0.9070E+00, 0.9083E+00, 0.9096E+00, 0.9109E+00,& - 0.9122E+00, 0.9136E+00, 0.9149E+00, 0.9162E+00,& - 0.9175E+00, 0.9188E+00, 0.9201E+00, 0.9214E+00,& - 0.9228E+00, 0.9241E+00, 0.9254E+00, 0.9267E+00,& - 0.9281E+00, 0.9294E+00, 0.9307E+00, 0.9320E+00,& - 0.9334E+00, 0.9347E+00, 0.9360E+00, 0.9374E+00,& - 0.9387E+00, 0.9400E+00, 0.9414E+00, 0.9427E+00,& - 0.9441E+00, 0.9454E+00, 0.9468E+00, 0.9481E+00,& - 0.9494E+00, 0.9508E+00, 0.9521E+00, 0.9535E+00,& - 0.9549E+00, 0.9562E+00, 0.9576E+00, 0.9589E+00,& - 0.9603E+00, 0.9617E+00, 0.9630E+00, 0.9644E+00,& - 0.9658E+00, 0.9671E+00, 0.9685E+00, 0.9699E+00,& - 0.9712E+00, 0.9726E+00, 0.9740E+00, 0.9754E+00,& - 0.9768E+00, 0.9782E+00, 0.9795E+00, 0.9809E+00,& - 0.9823E+00, 0.9837E+00, 0.9851E+00, 0.9865E+00,& - 0.9879E+00, 0.9893E+00, 0.9907E+00, 0.9921E+00,& - 0.9935E+00, 0.9949E+00, 0.9963E+00, 0.9977E+00,& - 0.9991E+00, 0.1001E+01, 0.1002E+01, 0.1003E+01,& - 0.1005E+01, 0.1006E+01, 0.1008E+01, 0.1009E+01,& - 0.1011E+01, 0.1012E+01, 0.1013E+01, 0.1015E+01,& - 0.1016E+01, 0.1018E+01, 0.1019E+01, 0.1021E+01,& - 0.1022E+01, 0.1023E+01, 0.1025E+01, 0.1026E+01,& - 0.1028E+01, 0.1029E+01, 0.1031E+01, 0.1032E+01,& - 0.1034E+01, 0.1035E+01, 0.1037E+01, 0.1038E+01,& - 0.1040E+01, 0.1041E+01, 0.1043E+01, 0.1044E+01,& - 0.1045E+01, 0.1047E+01, 0.1048E+01, 0.1050E+01,& - 0.1051E+01, 0.1053E+01, 0.1054E+01, 0.1056E+01,& - 0.1057E+01, 0.1059E+01, 0.1060E+01, 0.1062E+01,& - 0.1063E+01, 0.1065E+01, 0.1067E+01, 0.1068E+01,& - 0.1070E+01, 0.1071E+01, 0.1073E+01, 0.1074E+01,& - 0.1076E+01, 0.1077E+01, 0.1079E+01, 0.1080E+01,& - 0.1082E+01, 0.1083E+01, 0.1085E+01, 0.1086E+01,& - 0.1088E+01, 0.1090E+01, 0.1091E+01, 0.1093E+01,& - 0.1094E+01, 0.1096E+01, 0.1097E+01, 0.1099E+01,& - 0.1101E+01, 0.1102E+01, 0.1104E+01, 0.1105E+01,& - 0.1107E+01, 0.1109E+01, 0.1110E+01, 0.1112E+01,& - 0.1113E+01, 0.1115E+01, 0.1117E+01, 0.1118E+01,& - 0.1120E+01, 0.1121E+01, 0.1123E+01, 0.1125E+01,& - 0.1126E+01, 0.1128E+01, 0.1130E+01, 0.1131E+01,& - 0.1133E+01, 0.1135E+01, 0.1136E+01, 0.1138E+01,& - 0.1140E+01, 0.1141E+01, 0.1143E+01, 0.1145E+01,& - 0.1146E+01, 0.1148E+01, 0.1150E+01, 0.1151E+01,& - 0.1153E+01, 0.1155E+01, 0.1156E+01, 0.1158E+01,& - 0.1160E+01, 0.1161E+01, 0.1163E+01, 0.1165E+01,& - 0.1167E+01, 0.1168E+01, 0.1170E+01, 0.1172E+01,& - 0.1173E+01, 0.1175E+01, 0.1177E+01, 0.1179E+01,& - 0.1180E+01, 0.1182E+01, 0.1184E+01, 0.1186E+01,& - 0.1187E+01, 0.1189E+01, 0.1191E+01, 0.1193E+01,& - 0.1195E+01, 0.1196E+01, 0.1198E+01, 0.1200E+01,& - 0.1202E+01, 0.1204E+01, 0.1205E+01, 0.1207E+01,& - 0.1209E+01, 0.1211E+01, 0.1213E+01, 0.1215E+01,& - 0.1216E+01, 0.1218E+01, 0.1220E+01, 0.1222E+01,& - 0.1224E+01, 0.1226E+01, 0.1228E+01, 0.1229E+01,& - 0.1231E+01, 0.1233E+01, 0.1235E+01, 0.1237E+01,& - 0.1239E+01, 0.1241E+01, 0.1243E+01, 0.1245E+01,& - 0.1246E+01, 0.1248E+01, 0.1250E+01, 0.1252E+01,& - 0.1254E+01, 0.1256E+01, 0.1258E+01, 0.1260E+01,& - 0.1262E+01, 0.1264E+01, 0.1266E+01, 0.1268E+01,& - 0.1270E+01, 0.1272E+01, 0.1274E+01, 0.1276E+01,& - 0.1278E+01, 0.1280E+01, 0.1282E+01, 0.1284E+01,& - 0.1286E+01, 0.1288E+01, 0.1290E+01, 0.1292E+01,& - 0.1294E+01, 0.1296E+01, 0.1298E+01, 0.1301E+01,& - 0.1303E+01, 0.1305E+01, 0.1307E+01, 0.1309E+01,& - 0.1311E+01, 0.1313E+01, 0.1315E+01, 0.1317E+01,& - 0.1320E+01, 0.1322E+01, 0.1324E+01, 0.1326E+01,& - 0.1328E+01, 0.1330E+01, 0.1333E+01, 0.1335E+01,& - 0.1337E+01, 0.1339E+01, 0.1341E+01, 0.1344E+01,& - 0.1346E+01, 0.1348E+01, 0.1350E+01, 0.1353E+01,& - 0.1355E+01, 0.1357E+01, 0.1359E+01, 0.1362E+01,& - 0.1364E+01, 0.1366E+01, 0.1369E+01, 0.1371E+01,& - 0.1373E+01, 0.1376E+01, 0.1378E+01, 0.1380E+01,& - 0.1383E+01, 0.1385E+01, 0.1388E+01, 0.1390E+01,& - 0.1392E+01, 0.1395E+01, 0.1397E+01, 0.1400E+01,& - 0.1402E+01, 0.1405E+01, 0.1407E+01, 0.1409E+01,& - 0.1412E+01, 0.1414E+01, 0.1417E+01, 0.1419E+01,& - 0.1422E+01, 0.1425E+01, 0.1427E+01, 0.1430E+01,& - 0.1432E+01, 0.1435E+01, 0.1437E+01, 0.1440E+01,& - 0.1443E+01, 0.1445E+01, 0.1448E+01, 0.1451E+01,& - 0.1453E+01, 0.1456E+01, 0.1459E+01, 0.1461E+01,& - 0.1464E+01, 0.1467E+01, 0.1470E+01, 0.1472E+01,& - 0.1475E+01, 0.1478E+01, 0.1481E+01, 0.1483E+01,& - 0.1486E+01, 0.1489E+01, 0.1492E+01, 0.1495E+01,& - 0.1498E+01, 0.1501E+01, 0.1504E+01, 0.1506E+01,& - 0.1509E+01, 0.1512E+01, 0.1515E+01, 0.1518E+01,& - 0.1521E+01, 0.1524E+01, 0.1527E+01, 0.1530E+01,& - 0.1533E+01, 0.1537E+01, 0.1540E+01, 0.1543E+01,& - 0.1546E+01, 0.1549E+01, 0.1552E+01, 0.1555E+01,& - 0.1559E+01, 0.1562E+01, 0.1565E+01, 0.1568E+01,& - 0.1572E+01, 0.1575E+01, 0.1578E+01, 0.1582E+01,& - 0.1585E+01, 0.1589E+01, 0.1592E+01, 0.1595E+01,& - 0.1599E+01, 0.1602E+01, 0.1606E+01, 0.1609E+01,& - 0.1613E+01, 0.1616E+01, 0.1620E+01, 0.1624E+01,& - 0.1627E+01, 0.1631E+01, 0.1635E+01, 0.1638E+01,& - 0.1642E+01, 0.1646E+01, 0.1650E+01, 0.1654E+01,& - 0.1658E+01, 0.1661E+01, 0.1665E+01, 0.1669E+01,& - 0.1673E+01, 0.1677E+01, 0.1681E+01, 0.1685E+01,& - 0.1690E+01, 0.1694E+01, 0.1698E+01, 0.1702E+01,& - 0.1706E+01, 0.1711E+01, 0.1715E+01, 0.1719E+01,& - 0.1724E+01, 0.1728E+01, 0.1733E+01, 0.1737E+01,& - 0.1742E+01, 0.1746E+01, 0.1751E+01, 0.1756E+01,& - 0.1760E+01, 0.1765E+01, 0.1770E+01, 0.1775E+01,& - 0.1780E+01, 0.1785E+01, 0.1790E+01, 0.1795E+01,& - 0.1800E+01, 0.1805E+01, 0.1810E+01, 0.1815E+01,& - 0.1821E+01, 0.1826E+01, 0.1831E+01, 0.1837E+01,& - 0.1843E+01, 0.1848E+01, 0.1854E+01, 0.1860E+01,& - 0.1866E+01, 0.1871E+01, 0.1877E+01, 0.1883E+01,& - 0.1890E+01, 0.1896E+01, 0.1902E+01, 0.1909E+01,& - 0.1915E+01, 0.1922E+01, 0.1928E+01, 0.1935E+01,& - 0.1942E+01, 0.1949E+01, 0.1956E+01, 0.1963E+01,& - 0.1970E+01, 0.1978E+01, 0.1985E+01, 0.1993E+01,& - 0.2000E+01, 0.2008E+01, 0.2016E+01, 0.2024E+01,& - 0.2033E+01, 0.2041E+01, 0.2050E+01, 0.2059E+01,& - 0.2068E+01, 0.2077E+01, 0.2086E+01, 0.2096E+01,& - 0.2105E+01, 0.2115E+01, 0.2125E+01, 0.2136E+01,& - 0.2146E+01, 0.2157E+01, 0.2168E+01, 0.2180E+01,& - 0.2192E+01, 0.2204E+01, 0.2216E+01, 0.2229E+01,& - 0.2242E+01, 0.2256E+01, 0.2270E+01, 0.2284E+01,& - 0.2299E+01, 0.2314E+01, 0.2331E+01, 0.2347E+01,& - 0.2365E+01, 0.2383E+01, 0.2401E+01, 0.2421E+01,& - 0.2442E+01, 0.2464E+01, 0.2487E+01, 0.2511E+01,& - 0.2537E+01, 0.2564E+01, 0.2594E+01, 0.2625E+01,& - 0.2660E+01, 0.2697E+01, 0.2739E+01, 0.2784E+01,& - 0.2836E+01, 0.2896E+01, 0.2966E+01, 0.3051E+01,& - 0.1000E-04, 0.6461E-01, 0.8233E-01, 0.9503E-01/) - xcw(:, 20) = (/& - 0.1000E-04, 0.6461E-01, 0.8233E-01, 0.9503E-01,& - 0.1053E+00, 0.1141E+00, 0.1219E+00, 0.1289E+00,& - 0.1354E+00, 0.1414E+00, 0.1470E+00, 0.1523E+00,& - 0.1573E+00, 0.1621E+00, 0.1667E+00, 0.1711E+00,& - 0.1753E+00, 0.1794E+00, 0.1834E+00, 0.1872E+00,& - 0.1909E+00, 0.1945E+00, 0.1981E+00, 0.2015E+00,& - 0.2049E+00, 0.2081E+00, 0.2113E+00, 0.2145E+00,& - 0.2176E+00, 0.2206E+00, 0.2236E+00, 0.2265E+00,& - 0.2293E+00, 0.2322E+00, 0.2349E+00, 0.2377E+00,& - 0.2404E+00, 0.2430E+00, 0.2456E+00, 0.2482E+00,& - 0.2508E+00, 0.2533E+00, 0.2558E+00, 0.2582E+00,& - 0.2606E+00, 0.2630E+00, 0.2654E+00, 0.2677E+00,& - 0.2701E+00, 0.2724E+00, 0.2746E+00, 0.2769E+00,& - 0.2791E+00, 0.2813E+00, 0.2835E+00, 0.2857E+00,& - 0.2878E+00, 0.2900E+00, 0.2921E+00, 0.2942E+00,& - 0.2963E+00, 0.2983E+00, 0.3004E+00, 0.3024E+00,& - 0.3044E+00, 0.3064E+00, 0.3084E+00, 0.3104E+00,& - 0.3123E+00, 0.3143E+00, 0.3162E+00, 0.3181E+00,& - 0.3201E+00, 0.3220E+00, 0.3238E+00, 0.3257E+00,& - 0.3276E+00, 0.3294E+00, 0.3313E+00, 0.3331E+00,& - 0.3349E+00, 0.3367E+00, 0.3385E+00, 0.3403E+00,& - 0.3421E+00, 0.3439E+00, 0.3457E+00, 0.3474E+00,& - 0.3492E+00, 0.3509E+00, 0.3526E+00, 0.3544E+00,& - 0.3561E+00, 0.3578E+00, 0.3595E+00, 0.3612E+00,& - 0.3629E+00, 0.3645E+00, 0.3662E+00, 0.3679E+00,& - 0.3695E+00, 0.3712E+00, 0.3728E+00, 0.3745E+00,& - 0.3761E+00, 0.3777E+00, 0.3793E+00, 0.3809E+00,& - 0.3825E+00, 0.3841E+00, 0.3857E+00, 0.3873E+00,& - 0.3889E+00, 0.3905E+00, 0.3921E+00, 0.3936E+00,& - 0.3952E+00, 0.3967E+00, 0.3983E+00, 0.3998E+00,& - 0.4014E+00, 0.4029E+00, 0.4045E+00, 0.4060E+00,& - 0.4075E+00, 0.4090E+00, 0.4105E+00, 0.4120E+00,& - 0.4136E+00, 0.4151E+00, 0.4166E+00, 0.4180E+00,& - 0.4195E+00, 0.4210E+00, 0.4225E+00, 0.4240E+00,& - 0.4255E+00, 0.4269E+00, 0.4284E+00, 0.4299E+00,& - 0.4313E+00, 0.4328E+00, 0.4342E+00, 0.4357E+00,& - 0.4371E+00, 0.4386E+00, 0.4400E+00, 0.4414E+00,& - 0.4429E+00, 0.4443E+00, 0.4457E+00, 0.4471E+00,& - 0.4486E+00, 0.4500E+00, 0.4514E+00, 0.4528E+00,& - 0.4542E+00, 0.4556E+00, 0.4570E+00, 0.4584E+00,& - 0.4598E+00, 0.4612E+00, 0.4626E+00, 0.4640E+00,& - 0.4654E+00, 0.4668E+00, 0.4681E+00, 0.4695E+00,& - 0.4709E+00, 0.4723E+00, 0.4736E+00, 0.4750E+00,& - 0.4764E+00, 0.4777E+00, 0.4791E+00, 0.4805E+00,& - 0.4818E+00, 0.4832E+00, 0.4845E+00, 0.4859E+00,& - 0.4872E+00, 0.4886E+00, 0.4899E+00, 0.4913E+00,& - 0.4926E+00, 0.4939E+00, 0.4953E+00, 0.4966E+00,& - 0.4979E+00, 0.4993E+00, 0.5006E+00, 0.5019E+00,& - 0.5033E+00, 0.5046E+00, 0.5059E+00, 0.5072E+00,& - 0.5086E+00, 0.5099E+00, 0.5112E+00, 0.5125E+00,& - 0.5138E+00, 0.5151E+00, 0.5164E+00, 0.5177E+00,& - 0.5190E+00, 0.5204E+00, 0.5217E+00, 0.5230E+00,& - 0.5243E+00, 0.5256E+00, 0.5269E+00, 0.5282E+00,& - 0.5294E+00, 0.5307E+00, 0.5320E+00, 0.5333E+00,& - 0.5346E+00, 0.5359E+00, 0.5372E+00, 0.5385E+00,& - 0.5398E+00, 0.5410E+00, 0.5423E+00, 0.5436E+00,& - 0.5449E+00, 0.5462E+00, 0.5475E+00, 0.5487E+00,& - 0.5500E+00, 0.5513E+00, 0.5526E+00, 0.5538E+00,& - 0.5551E+00, 0.5564E+00, 0.5576E+00, 0.5589E+00,& - 0.5602E+00, 0.5614E+00, 0.5627E+00, 0.5640E+00,& - 0.5652E+00, 0.5665E+00, 0.5678E+00, 0.5690E+00,& - 0.5703E+00, 0.5715E+00, 0.5728E+00, 0.5741E+00,& - 0.5753E+00, 0.5766E+00, 0.5778E+00, 0.5791E+00,& - 0.5803E+00, 0.5816E+00, 0.5828E+00, 0.5841E+00,& - 0.5854E+00, 0.5866E+00, 0.5879E+00, 0.5891E+00,& - 0.5904E+00, 0.5916E+00, 0.5928E+00, 0.5941E+00,& - 0.5953E+00, 0.5966E+00, 0.5978E+00, 0.5991E+00,& - 0.6003E+00, 0.6016E+00, 0.6028E+00, 0.6041E+00,& - 0.6053E+00, 0.6065E+00, 0.6078E+00, 0.6090E+00,& - 0.6103E+00, 0.6115E+00, 0.6127E+00, 0.6140E+00,& - 0.6152E+00, 0.6165E+00, 0.6177E+00, 0.6189E+00,& - 0.6202E+00, 0.6214E+00, 0.6226E+00, 0.6239E+00,& - 0.6251E+00, 0.6263E+00, 0.6276E+00, 0.6288E+00,& - 0.6300E+00, 0.6313E+00, 0.6325E+00, 0.6337E+00,& - 0.6350E+00, 0.6362E+00, 0.6374E+00, 0.6387E+00,& - 0.6399E+00, 0.6411E+00, 0.6424E+00, 0.6436E+00,& - 0.6448E+00, 0.6461E+00, 0.6473E+00, 0.6485E+00,& - 0.6498E+00, 0.6510E+00, 0.6522E+00, 0.6535E+00,& - 0.6547E+00, 0.6559E+00, 0.6571E+00, 0.6584E+00,& - 0.6596E+00, 0.6608E+00, 0.6621E+00, 0.6633E+00,& - 0.6645E+00, 0.6658E+00, 0.6670E+00, 0.6682E+00,& - 0.6694E+00, 0.6707E+00, 0.6719E+00, 0.6731E+00,& - 0.6744E+00, 0.6756E+00, 0.6768E+00, 0.6780E+00,& - 0.6793E+00, 0.6805E+00, 0.6817E+00, 0.6830E+00,& - 0.6842E+00, 0.6854E+00, 0.6867E+00, 0.6879E+00,& - 0.6891E+00, 0.6904E+00, 0.6916E+00, 0.6928E+00,& - 0.6940E+00, 0.6953E+00, 0.6965E+00, 0.6977E+00,& - 0.6990E+00, 0.7002E+00, 0.7014E+00, 0.7027E+00,& - 0.7039E+00, 0.7051E+00, 0.7064E+00, 0.7076E+00,& - 0.7088E+00, 0.7101E+00, 0.7113E+00, 0.7125E+00,& - 0.7138E+00, 0.7150E+00, 0.7162E+00, 0.7175E+00,& - 0.7187E+00, 0.7199E+00, 0.7212E+00, 0.7224E+00,& - 0.7237E+00, 0.7249E+00, 0.7261E+00, 0.7274E+00,& - 0.7286E+00, 0.7298E+00, 0.7311E+00, 0.7323E+00,& - 0.7336E+00, 0.7348E+00, 0.7361E+00, 0.7373E+00,& - 0.7385E+00, 0.7398E+00, 0.7410E+00, 0.7423E+00,& - 0.7435E+00, 0.7447E+00, 0.7460E+00, 0.7472E+00,& - 0.7485E+00, 0.7497E+00, 0.7510E+00, 0.7522E+00,& - 0.7535E+00, 0.7547E+00, 0.7560E+00, 0.7572E+00,& - 0.7585E+00, 0.7597E+00, 0.7610E+00, 0.7622E+00,& - 0.7635E+00, 0.7647E+00, 0.7660E+00, 0.7672E+00,& - 0.7685E+00, 0.7697E+00, 0.7710E+00, 0.7723E+00,& - 0.7735E+00, 0.7748E+00, 0.7760E+00, 0.7773E+00,& - 0.7785E+00, 0.7798E+00, 0.7811E+00, 0.7823E+00,& - 0.7836E+00, 0.7849E+00, 0.7861E+00, 0.7874E+00,& - 0.7886E+00, 0.7899E+00, 0.7912E+00, 0.7924E+00,& - 0.7937E+00, 0.7950E+00, 0.7963E+00, 0.7975E+00,& - 0.7988E+00, 0.8001E+00, 0.8013E+00, 0.8026E+00,& - 0.8039E+00, 0.8052E+00, 0.8064E+00, 0.8077E+00,& - 0.8090E+00, 0.8103E+00, 0.8116E+00, 0.8128E+00,& - 0.8141E+00, 0.8154E+00, 0.8167E+00, 0.8180E+00,& - 0.8192E+00, 0.8205E+00, 0.8218E+00, 0.8231E+00,& - 0.8244E+00, 0.8257E+00, 0.8270E+00, 0.8283E+00,& - 0.8296E+00, 0.8309E+00, 0.8321E+00, 0.8334E+00,& - 0.8347E+00, 0.8360E+00, 0.8373E+00, 0.8386E+00,& - 0.8399E+00, 0.8412E+00, 0.8425E+00, 0.8438E+00,& - 0.8451E+00, 0.8465E+00, 0.8478E+00, 0.8491E+00,& - 0.8504E+00, 0.8517E+00, 0.8530E+00, 0.8543E+00,& - 0.8556E+00, 0.8569E+00, 0.8583E+00, 0.8596E+00,& - 0.8609E+00, 0.8622E+00, 0.8635E+00, 0.8648E+00,& - 0.8662E+00, 0.8675E+00, 0.8688E+00, 0.8701E+00,& - 0.8715E+00, 0.8728E+00, 0.8741E+00, 0.8755E+00,& - 0.8768E+00, 0.8781E+00, 0.8795E+00, 0.8808E+00,& - 0.8821E+00, 0.8835E+00, 0.8848E+00, 0.8862E+00,& - 0.8875E+00, 0.8888E+00, 0.8902E+00, 0.8915E+00,& - 0.8929E+00, 0.8942E+00, 0.8956E+00, 0.8969E+00,& - 0.8983E+00, 0.8997E+00, 0.9010E+00, 0.9024E+00,& - 0.9037E+00, 0.9051E+00, 0.9064E+00, 0.9078E+00,& - 0.9092E+00, 0.9105E+00, 0.9119E+00, 0.9133E+00,& - 0.9147E+00, 0.9160E+00, 0.9174E+00, 0.9188E+00,& - 0.9202E+00, 0.9215E+00, 0.9229E+00, 0.9243E+00,& - 0.9257E+00, 0.9271E+00, 0.9285E+00, 0.9298E+00,& - 0.9312E+00, 0.9326E+00, 0.9340E+00, 0.9354E+00,& - 0.9368E+00, 0.9382E+00, 0.9396E+00, 0.9410E+00,& - 0.9424E+00, 0.9438E+00, 0.9452E+00, 0.9466E+00,& - 0.9481E+00, 0.9495E+00, 0.9509E+00, 0.9523E+00,& - 0.9537E+00, 0.9551E+00, 0.9566E+00, 0.9580E+00,& - 0.9594E+00, 0.9608E+00, 0.9623E+00, 0.9637E+00,& - 0.9651E+00, 0.9666E+00, 0.9680E+00, 0.9694E+00,& - 0.9709E+00, 0.9723E+00, 0.9738E+00, 0.9752E+00,& - 0.9767E+00, 0.9781E+00, 0.9796E+00, 0.9810E+00,& - 0.9825E+00, 0.9839E+00, 0.9854E+00, 0.9869E+00,& - 0.9883E+00, 0.9898E+00, 0.9913E+00, 0.9927E+00,& - 0.9942E+00, 0.9957E+00, 0.9972E+00, 0.9986E+00,& - 0.1000E+01, 0.1002E+01, 0.1003E+01, 0.1005E+01,& - 0.1006E+01, 0.1008E+01, 0.1009E+01, 0.1011E+01,& - 0.1012E+01, 0.1014E+01, 0.1015E+01, 0.1017E+01,& - 0.1018E+01, 0.1020E+01, 0.1021E+01, 0.1023E+01,& - 0.1024E+01, 0.1026E+01, 0.1027E+01, 0.1029E+01,& - 0.1030E+01, 0.1032E+01, 0.1033E+01, 0.1035E+01,& - 0.1036E+01, 0.1038E+01, 0.1039E+01, 0.1041E+01,& - 0.1043E+01, 0.1044E+01, 0.1046E+01, 0.1047E+01,& - 0.1049E+01, 0.1050E+01, 0.1052E+01, 0.1053E+01,& - 0.1055E+01, 0.1057E+01, 0.1058E+01, 0.1060E+01,& - 0.1061E+01, 0.1063E+01, 0.1065E+01, 0.1066E+01,& - 0.1068E+01, 0.1069E+01, 0.1071E+01, 0.1072E+01,& - 0.1074E+01, 0.1076E+01, 0.1077E+01, 0.1079E+01,& - 0.1081E+01, 0.1082E+01, 0.1084E+01, 0.1085E+01,& - 0.1087E+01, 0.1089E+01, 0.1090E+01, 0.1092E+01,& - 0.1094E+01, 0.1095E+01, 0.1097E+01, 0.1099E+01,& - 0.1100E+01, 0.1102E+01, 0.1103E+01, 0.1105E+01,& - 0.1107E+01, 0.1108E+01, 0.1110E+01, 0.1112E+01,& - 0.1114E+01, 0.1115E+01, 0.1117E+01, 0.1119E+01,& - 0.1120E+01, 0.1122E+01, 0.1124E+01, 0.1125E+01,& - 0.1127E+01, 0.1129E+01, 0.1131E+01, 0.1132E+01,& - 0.1134E+01, 0.1136E+01, 0.1137E+01, 0.1139E+01,& - 0.1141E+01, 0.1143E+01, 0.1144E+01, 0.1146E+01,& - 0.1148E+01, 0.1150E+01, 0.1151E+01, 0.1153E+01,& - 0.1155E+01, 0.1157E+01, 0.1158E+01, 0.1160E+01,& - 0.1162E+01, 0.1164E+01, 0.1166E+01, 0.1167E+01,& - 0.1169E+01, 0.1171E+01, 0.1173E+01, 0.1175E+01,& - 0.1176E+01, 0.1178E+01, 0.1180E+01, 0.1182E+01,& - 0.1184E+01, 0.1186E+01, 0.1187E+01, 0.1189E+01,& - 0.1191E+01, 0.1193E+01, 0.1195E+01, 0.1197E+01,& - 0.1199E+01, 0.1200E+01, 0.1202E+01, 0.1204E+01,& - 0.1206E+01, 0.1208E+01, 0.1210E+01, 0.1212E+01,& - 0.1214E+01, 0.1216E+01, 0.1218E+01, 0.1220E+01,& - 0.1221E+01, 0.1223E+01, 0.1225E+01, 0.1227E+01,& - 0.1229E+01, 0.1231E+01, 0.1233E+01, 0.1235E+01,& - 0.1237E+01, 0.1239E+01, 0.1241E+01, 0.1243E+01,& - 0.1245E+01, 0.1247E+01, 0.1249E+01, 0.1251E+01,& - 0.1253E+01, 0.1255E+01, 0.1257E+01, 0.1259E+01,& - 0.1261E+01, 0.1263E+01, 0.1265E+01, 0.1267E+01,& - 0.1269E+01, 0.1271E+01, 0.1274E+01, 0.1276E+01,& - 0.1278E+01, 0.1280E+01, 0.1282E+01, 0.1284E+01,& - 0.1286E+01, 0.1288E+01, 0.1290E+01, 0.1292E+01,& - 0.1295E+01, 0.1297E+01, 0.1299E+01, 0.1301E+01,& - 0.1303E+01, 0.1305E+01, 0.1308E+01, 0.1310E+01,& - 0.1312E+01, 0.1314E+01, 0.1316E+01, 0.1319E+01,& - 0.1321E+01, 0.1323E+01, 0.1325E+01, 0.1328E+01,& - 0.1330E+01, 0.1332E+01, 0.1334E+01, 0.1337E+01,& - 0.1339E+01, 0.1341E+01, 0.1343E+01, 0.1346E+01,& - 0.1348E+01, 0.1350E+01, 0.1353E+01, 0.1355E+01,& - 0.1357E+01, 0.1360E+01, 0.1362E+01, 0.1365E+01,& - 0.1367E+01, 0.1369E+01, 0.1372E+01, 0.1374E+01,& - 0.1377E+01, 0.1379E+01, 0.1381E+01, 0.1384E+01,& - 0.1386E+01, 0.1389E+01, 0.1391E+01, 0.1394E+01,& - 0.1396E+01, 0.1399E+01, 0.1401E+01, 0.1404E+01,& - 0.1406E+01, 0.1409E+01, 0.1411E+01, 0.1414E+01,& - 0.1417E+01, 0.1419E+01, 0.1422E+01, 0.1424E+01,& - 0.1427E+01, 0.1430E+01, 0.1432E+01, 0.1435E+01,& - 0.1438E+01, 0.1440E+01, 0.1443E+01, 0.1446E+01,& - 0.1448E+01, 0.1451E+01, 0.1454E+01, 0.1457E+01,& - 0.1459E+01, 0.1462E+01, 0.1465E+01, 0.1468E+01,& - 0.1471E+01, 0.1473E+01, 0.1476E+01, 0.1479E+01,& - 0.1482E+01, 0.1485E+01, 0.1488E+01, 0.1491E+01,& - 0.1494E+01, 0.1496E+01, 0.1499E+01, 0.1502E+01,& - 0.1505E+01, 0.1508E+01, 0.1511E+01, 0.1514E+01,& - 0.1517E+01, 0.1521E+01, 0.1524E+01, 0.1527E+01,& - 0.1530E+01, 0.1533E+01, 0.1536E+01, 0.1539E+01,& - 0.1542E+01, 0.1546E+01, 0.1549E+01, 0.1552E+01,& - 0.1555E+01, 0.1559E+01, 0.1562E+01, 0.1565E+01,& - 0.1568E+01, 0.1572E+01, 0.1575E+01, 0.1578E+01,& - 0.1582E+01, 0.1585E+01, 0.1589E+01, 0.1592E+01,& - 0.1596E+01, 0.1599E+01, 0.1603E+01, 0.1606E+01,& - 0.1610E+01, 0.1613E+01, 0.1617E+01, 0.1621E+01,& - 0.1624E+01, 0.1628E+01, 0.1632E+01, 0.1635E+01,& - 0.1639E+01, 0.1643E+01, 0.1647E+01, 0.1651E+01,& - 0.1654E+01, 0.1658E+01, 0.1662E+01, 0.1666E+01,& - 0.1670E+01, 0.1674E+01, 0.1678E+01, 0.1682E+01,& - 0.1686E+01, 0.1690E+01, 0.1695E+01, 0.1699E+01,& - 0.1703E+01, 0.1707E+01, 0.1712E+01, 0.1716E+01,& - 0.1720E+01, 0.1725E+01, 0.1729E+01, 0.1733E+01,& - 0.1738E+01, 0.1742E+01, 0.1747E+01, 0.1752E+01,& - 0.1756E+01, 0.1761E+01, 0.1766E+01, 0.1770E+01,& - 0.1775E+01, 0.1780E+01, 0.1785E+01, 0.1790E+01,& - 0.1795E+01, 0.1800E+01, 0.1805E+01, 0.1810E+01,& - 0.1816E+01, 0.1821E+01, 0.1826E+01, 0.1831E+01,& - 0.1837E+01, 0.1842E+01, 0.1848E+01, 0.1853E+01,& - 0.1859E+01, 0.1865E+01, 0.1871E+01, 0.1876E+01,& - 0.1882E+01, 0.1888E+01, 0.1894E+01, 0.1900E+01,& - 0.1907E+01, 0.1913E+01, 0.1919E+01, 0.1926E+01,& - 0.1932E+01, 0.1939E+01, 0.1945E+01, 0.1952E+01,& - 0.1959E+01, 0.1966E+01, 0.1973E+01, 0.1980E+01,& - 0.1988E+01, 0.1995E+01, 0.2002E+01, 0.2010E+01,& - 0.2018E+01, 0.2026E+01, 0.2034E+01, 0.2042E+01,& - 0.2050E+01, 0.2058E+01, 0.2067E+01, 0.2075E+01,& - 0.2084E+01, 0.2093E+01, 0.2102E+01, 0.2112E+01,& - 0.2121E+01, 0.2131E+01, 0.2141E+01, 0.2151E+01,& - 0.2161E+01, 0.2172E+01, 0.2183E+01, 0.2194E+01,& - 0.2205E+01, 0.2217E+01, 0.2228E+01, 0.2241E+01,& - 0.2253E+01, 0.2266E+01, 0.2279E+01, 0.2293E+01,& - 0.2307E+01, 0.2321E+01, 0.2336E+01, 0.2352E+01,& - 0.2367E+01, 0.2384E+01, 0.2401E+01, 0.2419E+01,& - 0.2437E+01, 0.2457E+01, 0.2477E+01, 0.2498E+01,& - 0.2520E+01, 0.2543E+01, 0.2568E+01, 0.2594E+01,& - 0.2621E+01, 0.2650E+01, 0.2682E+01, 0.2716E+01,& - 0.2752E+01, 0.2792E+01, 0.2837E+01, 0.2886E+01,& - 0.2941E+01, 0.3005E+01, 0.3080E+01, 0.3171E+01,& - 0.1000E-04, 0.5385E-01, 0.6993E-01, 0.8161E-01/) - xcw(:, 21) = (/& - 0.1000E-04, 0.5385E-01, 0.6993E-01, 0.8161E-01,& - 0.9114E-01, 0.9935E-01, 0.1067E+00, 0.1133E+00,& - 0.1194E+00, 0.1251E+00, 0.1304E+00, 0.1354E+00,& - 0.1402E+00, 0.1448E+00, 0.1492E+00, 0.1534E+00,& - 0.1575E+00, 0.1614E+00, 0.1652E+00, 0.1689E+00,& - 0.1725E+00, 0.1760E+00, 0.1794E+00, 0.1827E+00,& - 0.1860E+00, 0.1892E+00, 0.1923E+00, 0.1953E+00,& - 0.1983E+00, 0.2013E+00, 0.2042E+00, 0.2070E+00,& - 0.2098E+00, 0.2126E+00, 0.2153E+00, 0.2179E+00,& - 0.2206E+00, 0.2232E+00, 0.2257E+00, 0.2283E+00,& - 0.2308E+00, 0.2332E+00, 0.2357E+00, 0.2381E+00,& - 0.2405E+00, 0.2428E+00, 0.2451E+00, 0.2474E+00,& - 0.2497E+00, 0.2520E+00, 0.2542E+00, 0.2565E+00,& - 0.2587E+00, 0.2608E+00, 0.2630E+00, 0.2651E+00,& - 0.2673E+00, 0.2694E+00, 0.2715E+00, 0.2735E+00,& - 0.2756E+00, 0.2776E+00, 0.2797E+00, 0.2817E+00,& - 0.2837E+00, 0.2857E+00, 0.2876E+00, 0.2896E+00,& - 0.2915E+00, 0.2935E+00, 0.2954E+00, 0.2973E+00,& - 0.2992E+00, 0.3011E+00, 0.3030E+00, 0.3048E+00,& - 0.3067E+00, 0.3085E+00, 0.3103E+00, 0.3122E+00,& - 0.3140E+00, 0.3158E+00, 0.3176E+00, 0.3194E+00,& - 0.3211E+00, 0.3229E+00, 0.3247E+00, 0.3264E+00,& - 0.3282E+00, 0.3299E+00, 0.3316E+00, 0.3334E+00,& - 0.3351E+00, 0.3368E+00, 0.3385E+00, 0.3402E+00,& - 0.3418E+00, 0.3435E+00, 0.3452E+00, 0.3469E+00,& - 0.3485E+00, 0.3502E+00, 0.3518E+00, 0.3535E+00,& - 0.3551E+00, 0.3567E+00, 0.3583E+00, 0.3599E+00,& - 0.3616E+00, 0.3632E+00, 0.3648E+00, 0.3663E+00,& - 0.3679E+00, 0.3695E+00, 0.3711E+00, 0.3727E+00,& - 0.3742E+00, 0.3758E+00, 0.3774E+00, 0.3789E+00,& - 0.3805E+00, 0.3820E+00, 0.3835E+00, 0.3851E+00,& - 0.3866E+00, 0.3881E+00, 0.3897E+00, 0.3912E+00,& - 0.3927E+00, 0.3942E+00, 0.3957E+00, 0.3972E+00,& - 0.3987E+00, 0.4002E+00, 0.4017E+00, 0.4032E+00,& - 0.4047E+00, 0.4062E+00, 0.4076E+00, 0.4091E+00,& - 0.4106E+00, 0.4120E+00, 0.4135E+00, 0.4150E+00,& - 0.4164E+00, 0.4179E+00, 0.4193E+00, 0.4208E+00,& - 0.4222E+00, 0.4237E+00, 0.4251E+00, 0.4265E+00,& - 0.4280E+00, 0.4294E+00, 0.4308E+00, 0.4322E+00,& - 0.4337E+00, 0.4351E+00, 0.4365E+00, 0.4379E+00,& - 0.4393E+00, 0.4407E+00, 0.4421E+00, 0.4436E+00,& - 0.4450E+00, 0.4464E+00, 0.4478E+00, 0.4491E+00,& - 0.4505E+00, 0.4519E+00, 0.4533E+00, 0.4547E+00,& - 0.4561E+00, 0.4575E+00, 0.4588E+00, 0.4602E+00,& - 0.4616E+00, 0.4630E+00, 0.4643E+00, 0.4657E+00,& - 0.4671E+00, 0.4684E+00, 0.4698E+00, 0.4712E+00,& - 0.4725E+00, 0.4739E+00, 0.4752E+00, 0.4766E+00,& - 0.4779E+00, 0.4793E+00, 0.4806E+00, 0.4820E+00,& - 0.4833E+00, 0.4847E+00, 0.4860E+00, 0.4874E+00,& - 0.4887E+00, 0.4900E+00, 0.4914E+00, 0.4927E+00,& - 0.4940E+00, 0.4954E+00, 0.4967E+00, 0.4980E+00,& - 0.4994E+00, 0.5007E+00, 0.5020E+00, 0.5033E+00,& - 0.5047E+00, 0.5060E+00, 0.5073E+00, 0.5086E+00,& - 0.5099E+00, 0.5113E+00, 0.5126E+00, 0.5139E+00,& - 0.5152E+00, 0.5165E+00, 0.5178E+00, 0.5191E+00,& - 0.5204E+00, 0.5217E+00, 0.5230E+00, 0.5244E+00,& - 0.5257E+00, 0.5270E+00, 0.5283E+00, 0.5296E+00,& - 0.5309E+00, 0.5322E+00, 0.5335E+00, 0.5348E+00,& - 0.5360E+00, 0.5373E+00, 0.5386E+00, 0.5399E+00,& - 0.5412E+00, 0.5425E+00, 0.5438E+00, 0.5451E+00,& - 0.5464E+00, 0.5477E+00, 0.5490E+00, 0.5502E+00,& - 0.5515E+00, 0.5528E+00, 0.5541E+00, 0.5554E+00,& - 0.5567E+00, 0.5579E+00, 0.5592E+00, 0.5605E+00,& - 0.5618E+00, 0.5631E+00, 0.5644E+00, 0.5656E+00,& - 0.5669E+00, 0.5682E+00, 0.5695E+00, 0.5707E+00,& - 0.5720E+00, 0.5733E+00, 0.5746E+00, 0.5758E+00,& - 0.5771E+00, 0.5784E+00, 0.5797E+00, 0.5809E+00,& - 0.5822E+00, 0.5835E+00, 0.5847E+00, 0.5860E+00,& - 0.5873E+00, 0.5886E+00, 0.5898E+00, 0.5911E+00,& - 0.5924E+00, 0.5936E+00, 0.5949E+00, 0.5962E+00,& - 0.5974E+00, 0.5987E+00, 0.6000E+00, 0.6012E+00,& - 0.6025E+00, 0.6038E+00, 0.6050E+00, 0.6063E+00,& - 0.6076E+00, 0.6088E+00, 0.6101E+00, 0.6113E+00,& - 0.6126E+00, 0.6139E+00, 0.6151E+00, 0.6164E+00,& - 0.6177E+00, 0.6189E+00, 0.6202E+00, 0.6214E+00,& - 0.6227E+00, 0.6240E+00, 0.6252E+00, 0.6265E+00,& - 0.6278E+00, 0.6290E+00, 0.6303E+00, 0.6315E+00,& - 0.6328E+00, 0.6341E+00, 0.6353E+00, 0.6366E+00,& - 0.6379E+00, 0.6391E+00, 0.6404E+00, 0.6416E+00,& - 0.6429E+00, 0.6442E+00, 0.6454E+00, 0.6467E+00,& - 0.6479E+00, 0.6492E+00, 0.6505E+00, 0.6517E+00,& - 0.6530E+00, 0.6543E+00, 0.6555E+00, 0.6568E+00,& - 0.6580E+00, 0.6593E+00, 0.6606E+00, 0.6618E+00,& - 0.6631E+00, 0.6644E+00, 0.6656E+00, 0.6669E+00,& - 0.6682E+00, 0.6694E+00, 0.6707E+00, 0.6719E+00,& - 0.6732E+00, 0.6745E+00, 0.6757E+00, 0.6770E+00,& - 0.6783E+00, 0.6795E+00, 0.6808E+00, 0.6821E+00,& - 0.6833E+00, 0.6846E+00, 0.6859E+00, 0.6871E+00,& - 0.6884E+00, 0.6897E+00, 0.6909E+00, 0.6922E+00,& - 0.6935E+00, 0.6947E+00, 0.6960E+00, 0.6973E+00,& - 0.6986E+00, 0.6998E+00, 0.7011E+00, 0.7024E+00,& - 0.7036E+00, 0.7049E+00, 0.7062E+00, 0.7075E+00,& - 0.7087E+00, 0.7100E+00, 0.7113E+00, 0.7125E+00,& - 0.7138E+00, 0.7151E+00, 0.7164E+00, 0.7177E+00,& - 0.7189E+00, 0.7202E+00, 0.7215E+00, 0.7228E+00,& - 0.7240E+00, 0.7253E+00, 0.7266E+00, 0.7279E+00,& - 0.7292E+00, 0.7305E+00, 0.7317E+00, 0.7330E+00,& - 0.7343E+00, 0.7356E+00, 0.7369E+00, 0.7382E+00,& - 0.7394E+00, 0.7407E+00, 0.7420E+00, 0.7433E+00,& - 0.7446E+00, 0.7459E+00, 0.7472E+00, 0.7485E+00,& - 0.7498E+00, 0.7510E+00, 0.7523E+00, 0.7536E+00,& - 0.7549E+00, 0.7562E+00, 0.7575E+00, 0.7588E+00,& - 0.7601E+00, 0.7614E+00, 0.7627E+00, 0.7640E+00,& - 0.7653E+00, 0.7666E+00, 0.7679E+00, 0.7692E+00,& - 0.7705E+00, 0.7718E+00, 0.7731E+00, 0.7744E+00,& - 0.7757E+00, 0.7770E+00, 0.7783E+00, 0.7797E+00,& - 0.7810E+00, 0.7823E+00, 0.7836E+00, 0.7849E+00,& - 0.7862E+00, 0.7875E+00, 0.7888E+00, 0.7902E+00,& - 0.7915E+00, 0.7928E+00, 0.7941E+00, 0.7954E+00,& - 0.7967E+00, 0.7981E+00, 0.7994E+00, 0.8007E+00,& - 0.8020E+00, 0.8034E+00, 0.8047E+00, 0.8060E+00,& - 0.8073E+00, 0.8087E+00, 0.8100E+00, 0.8113E+00,& - 0.8127E+00, 0.8140E+00, 0.8153E+00, 0.8167E+00,& - 0.8180E+00, 0.8193E+00, 0.8207E+00, 0.8220E+00,& - 0.8234E+00, 0.8247E+00, 0.8261E+00, 0.8274E+00,& - 0.8287E+00, 0.8301E+00, 0.8314E+00, 0.8328E+00,& - 0.8341E+00, 0.8355E+00, 0.8368E+00, 0.8382E+00,& - 0.8396E+00, 0.8409E+00, 0.8423E+00, 0.8436E+00,& - 0.8450E+00, 0.8463E+00, 0.8477E+00, 0.8491E+00,& - 0.8504E+00, 0.8518E+00, 0.8532E+00, 0.8545E+00,& - 0.8559E+00, 0.8573E+00, 0.8587E+00, 0.8600E+00,& - 0.8614E+00, 0.8628E+00, 0.8642E+00, 0.8655E+00,& - 0.8669E+00, 0.8683E+00, 0.8697E+00, 0.8711E+00,& - 0.8725E+00, 0.8738E+00, 0.8752E+00, 0.8766E+00,& - 0.8780E+00, 0.8794E+00, 0.8808E+00, 0.8822E+00,& - 0.8836E+00, 0.8850E+00, 0.8864E+00, 0.8878E+00,& - 0.8892E+00, 0.8906E+00, 0.8920E+00, 0.8934E+00,& - 0.8948E+00, 0.8962E+00, 0.8977E+00, 0.8991E+00,& - 0.9005E+00, 0.9019E+00, 0.9033E+00, 0.9048E+00,& - 0.9062E+00, 0.9076E+00, 0.9090E+00, 0.9105E+00,& - 0.9119E+00, 0.9133E+00, 0.9148E+00, 0.9162E+00,& - 0.9176E+00, 0.9191E+00, 0.9205E+00, 0.9219E+00,& - 0.9234E+00, 0.9248E+00, 0.9263E+00, 0.9277E+00,& - 0.9292E+00, 0.9306E+00, 0.9321E+00, 0.9335E+00,& - 0.9350E+00, 0.9365E+00, 0.9379E+00, 0.9394E+00,& - 0.9409E+00, 0.9423E+00, 0.9438E+00, 0.9453E+00,& - 0.9467E+00, 0.9482E+00, 0.9497E+00, 0.9512E+00,& - 0.9527E+00, 0.9541E+00, 0.9556E+00, 0.9571E+00,& - 0.9586E+00, 0.9601E+00, 0.9616E+00, 0.9631E+00,& - 0.9646E+00, 0.9661E+00, 0.9676E+00, 0.9691E+00,& - 0.9706E+00, 0.9721E+00, 0.9736E+00, 0.9751E+00,& - 0.9766E+00, 0.9782E+00, 0.9797E+00, 0.9812E+00,& - 0.9827E+00, 0.9842E+00, 0.9858E+00, 0.9873E+00,& - 0.9888E+00, 0.9904E+00, 0.9919E+00, 0.9934E+00,& - 0.9950E+00, 0.9965E+00, 0.9981E+00, 0.9996E+00,& - 0.1001E+01, 0.1003E+01, 0.1004E+01, 0.1006E+01,& - 0.1007E+01, 0.1009E+01, 0.1011E+01, 0.1012E+01,& - 0.1014E+01, 0.1015E+01, 0.1017E+01, 0.1018E+01,& - 0.1020E+01, 0.1022E+01, 0.1023E+01, 0.1025E+01,& - 0.1026E+01, 0.1028E+01, 0.1030E+01, 0.1031E+01,& - 0.1033E+01, 0.1034E+01, 0.1036E+01, 0.1038E+01,& - 0.1039E+01, 0.1041E+01, 0.1042E+01, 0.1044E+01,& - 0.1046E+01, 0.1047E+01, 0.1049E+01, 0.1051E+01,& - 0.1052E+01, 0.1054E+01, 0.1055E+01, 0.1057E+01,& - 0.1059E+01, 0.1060E+01, 0.1062E+01, 0.1064E+01,& - 0.1065E+01, 0.1067E+01, 0.1069E+01, 0.1070E+01,& - 0.1072E+01, 0.1074E+01, 0.1075E+01, 0.1077E+01,& - 0.1079E+01, 0.1080E+01, 0.1082E+01, 0.1084E+01,& - 0.1086E+01, 0.1087E+01, 0.1089E+01, 0.1091E+01,& - 0.1092E+01, 0.1094E+01, 0.1096E+01, 0.1098E+01,& - 0.1099E+01, 0.1101E+01, 0.1103E+01, 0.1104E+01,& - 0.1106E+01, 0.1108E+01, 0.1110E+01, 0.1111E+01,& - 0.1113E+01, 0.1115E+01, 0.1117E+01, 0.1118E+01,& - 0.1120E+01, 0.1122E+01, 0.1124E+01, 0.1126E+01,& - 0.1127E+01, 0.1129E+01, 0.1131E+01, 0.1133E+01,& - 0.1135E+01, 0.1136E+01, 0.1138E+01, 0.1140E+01,& - 0.1142E+01, 0.1144E+01, 0.1145E+01, 0.1147E+01,& - 0.1149E+01, 0.1151E+01, 0.1153E+01, 0.1155E+01,& - 0.1156E+01, 0.1158E+01, 0.1160E+01, 0.1162E+01,& - 0.1164E+01, 0.1166E+01, 0.1168E+01, 0.1169E+01,& - 0.1171E+01, 0.1173E+01, 0.1175E+01, 0.1177E+01,& - 0.1179E+01, 0.1181E+01, 0.1183E+01, 0.1185E+01,& - 0.1187E+01, 0.1189E+01, 0.1190E+01, 0.1192E+01,& - 0.1194E+01, 0.1196E+01, 0.1198E+01, 0.1200E+01,& - 0.1202E+01, 0.1204E+01, 0.1206E+01, 0.1208E+01,& - 0.1210E+01, 0.1212E+01, 0.1214E+01, 0.1216E+01,& - 0.1218E+01, 0.1220E+01, 0.1222E+01, 0.1224E+01,& - 0.1226E+01, 0.1228E+01, 0.1230E+01, 0.1232E+01,& - 0.1234E+01, 0.1236E+01, 0.1238E+01, 0.1240E+01,& - 0.1242E+01, 0.1244E+01, 0.1247E+01, 0.1249E+01,& - 0.1251E+01, 0.1253E+01, 0.1255E+01, 0.1257E+01,& - 0.1259E+01, 0.1261E+01, 0.1263E+01, 0.1265E+01,& - 0.1268E+01, 0.1270E+01, 0.1272E+01, 0.1274E+01,& - 0.1276E+01, 0.1278E+01, 0.1281E+01, 0.1283E+01,& - 0.1285E+01, 0.1287E+01, 0.1289E+01, 0.1292E+01,& - 0.1294E+01, 0.1296E+01, 0.1298E+01, 0.1300E+01,& - 0.1303E+01, 0.1305E+01, 0.1307E+01, 0.1309E+01,& - 0.1312E+01, 0.1314E+01, 0.1316E+01, 0.1319E+01,& - 0.1321E+01, 0.1323E+01, 0.1326E+01, 0.1328E+01,& - 0.1330E+01, 0.1333E+01, 0.1335E+01, 0.1337E+01,& - 0.1340E+01, 0.1342E+01, 0.1344E+01, 0.1347E+01,& - 0.1349E+01, 0.1352E+01, 0.1354E+01, 0.1356E+01,& - 0.1359E+01, 0.1361E+01, 0.1364E+01, 0.1366E+01,& - 0.1369E+01, 0.1371E+01, 0.1374E+01, 0.1376E+01,& - 0.1379E+01, 0.1381E+01, 0.1384E+01, 0.1386E+01,& - 0.1389E+01, 0.1391E+01, 0.1394E+01, 0.1396E+01,& - 0.1399E+01, 0.1402E+01, 0.1404E+01, 0.1407E+01,& - 0.1409E+01, 0.1412E+01, 0.1415E+01, 0.1417E+01,& - 0.1420E+01, 0.1423E+01, 0.1425E+01, 0.1428E+01,& - 0.1431E+01, 0.1434E+01, 0.1436E+01, 0.1439E+01,& - 0.1442E+01, 0.1445E+01, 0.1447E+01, 0.1450E+01,& - 0.1453E+01, 0.1456E+01, 0.1459E+01, 0.1461E+01,& - 0.1464E+01, 0.1467E+01, 0.1470E+01, 0.1473E+01,& - 0.1476E+01, 0.1479E+01, 0.1482E+01, 0.1485E+01,& - 0.1488E+01, 0.1490E+01, 0.1493E+01, 0.1496E+01,& - 0.1499E+01, 0.1503E+01, 0.1506E+01, 0.1509E+01,& - 0.1512E+01, 0.1515E+01, 0.1518E+01, 0.1521E+01,& - 0.1524E+01, 0.1527E+01, 0.1530E+01, 0.1534E+01,& - 0.1537E+01, 0.1540E+01, 0.1543E+01, 0.1547E+01,& - 0.1550E+01, 0.1553E+01, 0.1556E+01, 0.1560E+01,& - 0.1563E+01, 0.1566E+01, 0.1570E+01, 0.1573E+01,& - 0.1577E+01, 0.1580E+01, 0.1584E+01, 0.1587E+01,& - 0.1591E+01, 0.1594E+01, 0.1598E+01, 0.1601E+01,& - 0.1605E+01, 0.1608E+01, 0.1612E+01, 0.1616E+01,& - 0.1619E+01, 0.1623E+01, 0.1627E+01, 0.1630E+01,& - 0.1634E+01, 0.1638E+01, 0.1642E+01, 0.1646E+01,& - 0.1649E+01, 0.1653E+01, 0.1657E+01, 0.1661E+01,& - 0.1665E+01, 0.1669E+01, 0.1673E+01, 0.1677E+01,& - 0.1681E+01, 0.1685E+01, 0.1689E+01, 0.1694E+01,& - 0.1698E+01, 0.1702E+01, 0.1706E+01, 0.1711E+01,& - 0.1715E+01, 0.1719E+01, 0.1724E+01, 0.1728E+01,& - 0.1732E+01, 0.1737E+01, 0.1741E+01, 0.1746E+01,& - 0.1751E+01, 0.1755E+01, 0.1760E+01, 0.1765E+01,& - 0.1769E+01, 0.1774E+01, 0.1779E+01, 0.1784E+01,& - 0.1789E+01, 0.1794E+01, 0.1799E+01, 0.1804E+01,& - 0.1809E+01, 0.1814E+01, 0.1819E+01, 0.1824E+01,& - 0.1830E+01, 0.1835E+01, 0.1840E+01, 0.1846E+01,& - 0.1851E+01, 0.1857E+01, 0.1863E+01, 0.1868E+01,& - 0.1874E+01, 0.1880E+01, 0.1886E+01, 0.1891E+01,& - 0.1897E+01, 0.1903E+01, 0.1910E+01, 0.1916E+01,& - 0.1922E+01, 0.1928E+01, 0.1935E+01, 0.1941E+01,& - 0.1948E+01, 0.1954E+01, 0.1961E+01, 0.1968E+01,& - 0.1975E+01, 0.1982E+01, 0.1989E+01, 0.1996E+01,& - 0.2003E+01, 0.2011E+01, 0.2018E+01, 0.2026E+01,& - 0.2033E+01, 0.2041E+01, 0.2049E+01, 0.2057E+01,& - 0.2065E+01, 0.2074E+01, 0.2082E+01, 0.2091E+01,& - 0.2099E+01, 0.2108E+01, 0.2117E+01, 0.2127E+01,& - 0.2136E+01, 0.2145E+01, 0.2155E+01, 0.2165E+01,& - 0.2175E+01, 0.2185E+01, 0.2196E+01, 0.2207E+01,& - 0.2218E+01, 0.2229E+01, 0.2240E+01, 0.2252E+01,& - 0.2264E+01, 0.2276E+01, 0.2289E+01, 0.2302E+01,& - 0.2315E+01, 0.2329E+01, 0.2343E+01, 0.2357E+01,& - 0.2372E+01, 0.2388E+01, 0.2403E+01, 0.2420E+01,& - 0.2437E+01, 0.2454E+01, 0.2472E+01, 0.2491E+01,& - 0.2511E+01, 0.2531E+01, 0.2553E+01, 0.2575E+01,& - 0.2599E+01, 0.2624E+01, 0.2650E+01, 0.2677E+01,& - 0.2707E+01, 0.2738E+01, 0.2771E+01, 0.2807E+01,& - 0.2847E+01, 0.2889E+01, 0.2936E+01, 0.2989E+01,& - 0.3048E+01, 0.3116E+01, 0.3196E+01, 0.3294E+01,& - 0.1000E-04, 0.4456E-01, 0.5903E-01, 0.6969E-01/) - xcw(:, 22) = (/& - 0.1000E-04, 0.4456E-01, 0.5903E-01, 0.6969E-01,& - 0.7846E-01, 0.8607E-01, 0.9287E-01, 0.9907E-01,& - 0.1048E+00, 0.1101E+00, 0.1152E+00, 0.1200E+00,& - 0.1245E+00, 0.1288E+00, 0.1330E+00, 0.1370E+00,& - 0.1409E+00, 0.1447E+00, 0.1483E+00, 0.1519E+00,& - 0.1553E+00, 0.1587E+00, 0.1620E+00, 0.1652E+00,& - 0.1683E+00, 0.1714E+00, 0.1744E+00, 0.1774E+00,& - 0.1803E+00, 0.1831E+00, 0.1859E+00, 0.1887E+00,& - 0.1914E+00, 0.1941E+00, 0.1967E+00, 0.1993E+00,& - 0.2019E+00, 0.2044E+00, 0.2069E+00, 0.2094E+00,& - 0.2118E+00, 0.2142E+00, 0.2166E+00, 0.2190E+00,& - 0.2213E+00, 0.2236E+00, 0.2259E+00, 0.2281E+00,& - 0.2304E+00, 0.2326E+00, 0.2348E+00, 0.2370E+00,& - 0.2392E+00, 0.2413E+00, 0.2434E+00, 0.2455E+00,& - 0.2476E+00, 0.2497E+00, 0.2517E+00, 0.2538E+00,& - 0.2558E+00, 0.2578E+00, 0.2598E+00, 0.2618E+00,& - 0.2638E+00, 0.2658E+00, 0.2677E+00, 0.2696E+00,& - 0.2716E+00, 0.2735E+00, 0.2754E+00, 0.2773E+00,& - 0.2791E+00, 0.2810E+00, 0.2829E+00, 0.2847E+00,& - 0.2866E+00, 0.2884E+00, 0.2902E+00, 0.2920E+00,& - 0.2938E+00, 0.2956E+00, 0.2974E+00, 0.2992E+00,& - 0.3009E+00, 0.3027E+00, 0.3044E+00, 0.3062E+00,& - 0.3079E+00, 0.3096E+00, 0.3113E+00, 0.3131E+00,& - 0.3148E+00, 0.3165E+00, 0.3182E+00, 0.3198E+00,& - 0.3215E+00, 0.3232E+00, 0.3249E+00, 0.3265E+00,& - 0.3282E+00, 0.3298E+00, 0.3315E+00, 0.3331E+00,& - 0.3347E+00, 0.3363E+00, 0.3380E+00, 0.3396E+00,& - 0.3412E+00, 0.3428E+00, 0.3444E+00, 0.3460E+00,& - 0.3476E+00, 0.3491E+00, 0.3507E+00, 0.3523E+00,& - 0.3539E+00, 0.3554E+00, 0.3570E+00, 0.3585E+00,& - 0.3601E+00, 0.3616E+00, 0.3632E+00, 0.3647E+00,& - 0.3663E+00, 0.3678E+00, 0.3693E+00, 0.3708E+00,& - 0.3724E+00, 0.3739E+00, 0.3754E+00, 0.3769E+00,& - 0.3784E+00, 0.3799E+00, 0.3814E+00, 0.3829E+00,& - 0.3844E+00, 0.3859E+00, 0.3873E+00, 0.3888E+00,& - 0.3903E+00, 0.3918E+00, 0.3932E+00, 0.3947E+00,& - 0.3962E+00, 0.3976E+00, 0.3991E+00, 0.4006E+00,& - 0.4020E+00, 0.4035E+00, 0.4049E+00, 0.4064E+00,& - 0.4078E+00, 0.4092E+00, 0.4107E+00, 0.4121E+00,& - 0.4135E+00, 0.4150E+00, 0.4164E+00, 0.4178E+00,& - 0.4193E+00, 0.4207E+00, 0.4221E+00, 0.4235E+00,& - 0.4249E+00, 0.4263E+00, 0.4277E+00, 0.4291E+00,& - 0.4306E+00, 0.4320E+00, 0.4334E+00, 0.4348E+00,& - 0.4361E+00, 0.4375E+00, 0.4389E+00, 0.4403E+00,& - 0.4417E+00, 0.4431E+00, 0.4445E+00, 0.4459E+00,& - 0.4473E+00, 0.4486E+00, 0.4500E+00, 0.4514E+00,& - 0.4528E+00, 0.4541E+00, 0.4555E+00, 0.4569E+00,& - 0.4582E+00, 0.4596E+00, 0.4610E+00, 0.4623E+00,& - 0.4637E+00, 0.4651E+00, 0.4664E+00, 0.4678E+00,& - 0.4691E+00, 0.4705E+00, 0.4718E+00, 0.4732E+00,& - 0.4745E+00, 0.4759E+00, 0.4772E+00, 0.4786E+00,& - 0.4799E+00, 0.4813E+00, 0.4826E+00, 0.4840E+00,& - 0.4853E+00, 0.4866E+00, 0.4880E+00, 0.4893E+00,& - 0.4907E+00, 0.4920E+00, 0.4933E+00, 0.4947E+00,& - 0.4960E+00, 0.4973E+00, 0.4986E+00, 0.5000E+00,& - 0.5013E+00, 0.5026E+00, 0.5039E+00, 0.5053E+00,& - 0.5066E+00, 0.5079E+00, 0.5092E+00, 0.5106E+00,& - 0.5119E+00, 0.5132E+00, 0.5145E+00, 0.5158E+00,& - 0.5172E+00, 0.5185E+00, 0.5198E+00, 0.5211E+00,& - 0.5224E+00, 0.5237E+00, 0.5250E+00, 0.5264E+00,& - 0.5277E+00, 0.5290E+00, 0.5303E+00, 0.5316E+00,& - 0.5329E+00, 0.5342E+00, 0.5355E+00, 0.5368E+00,& - 0.5381E+00, 0.5394E+00, 0.5407E+00, 0.5420E+00,& - 0.5433E+00, 0.5446E+00, 0.5460E+00, 0.5473E+00,& - 0.5486E+00, 0.5499E+00, 0.5512E+00, 0.5525E+00,& - 0.5538E+00, 0.5551E+00, 0.5564E+00, 0.5577E+00,& - 0.5590E+00, 0.5602E+00, 0.5615E+00, 0.5628E+00,& - 0.5641E+00, 0.5654E+00, 0.5667E+00, 0.5680E+00,& - 0.5693E+00, 0.5706E+00, 0.5719E+00, 0.5732E+00,& - 0.5745E+00, 0.5758E+00, 0.5771E+00, 0.5784E+00,& - 0.5797E+00, 0.5810E+00, 0.5823E+00, 0.5836E+00,& - 0.5848E+00, 0.5861E+00, 0.5874E+00, 0.5887E+00,& - 0.5900E+00, 0.5913E+00, 0.5926E+00, 0.5939E+00,& - 0.5952E+00, 0.5965E+00, 0.5978E+00, 0.5990E+00,& - 0.6003E+00, 0.6016E+00, 0.6029E+00, 0.6042E+00,& - 0.6055E+00, 0.6068E+00, 0.6081E+00, 0.6094E+00,& - 0.6107E+00, 0.6120E+00, 0.6132E+00, 0.6145E+00,& - 0.6158E+00, 0.6171E+00, 0.6184E+00, 0.6197E+00,& - 0.6210E+00, 0.6223E+00, 0.6236E+00, 0.6249E+00,& - 0.6262E+00, 0.6274E+00, 0.6287E+00, 0.6300E+00,& - 0.6313E+00, 0.6326E+00, 0.6339E+00, 0.6352E+00,& - 0.6365E+00, 0.6378E+00, 0.6391E+00, 0.6404E+00,& - 0.6417E+00, 0.6430E+00, 0.6442E+00, 0.6455E+00,& - 0.6468E+00, 0.6481E+00, 0.6494E+00, 0.6507E+00,& - 0.6520E+00, 0.6533E+00, 0.6546E+00, 0.6559E+00,& - 0.6572E+00, 0.6585E+00, 0.6598E+00, 0.6611E+00,& - 0.6624E+00, 0.6637E+00, 0.6650E+00, 0.6663E+00,& - 0.6676E+00, 0.6689E+00, 0.6702E+00, 0.6715E+00,& - 0.6728E+00, 0.6741E+00, 0.6754E+00, 0.6767E+00,& - 0.6780E+00, 0.6793E+00, 0.6806E+00, 0.6819E+00,& - 0.6832E+00, 0.6845E+00, 0.6858E+00, 0.6871E+00,& - 0.6884E+00, 0.6897E+00, 0.6910E+00, 0.6923E+00,& - 0.6936E+00, 0.6950E+00, 0.6963E+00, 0.6976E+00,& - 0.6989E+00, 0.7002E+00, 0.7015E+00, 0.7028E+00,& - 0.7041E+00, 0.7054E+00, 0.7068E+00, 0.7081E+00,& - 0.7094E+00, 0.7107E+00, 0.7120E+00, 0.7133E+00,& - 0.7147E+00, 0.7160E+00, 0.7173E+00, 0.7186E+00,& - 0.7199E+00, 0.7210E+00, 0.7226E+00, 0.7239E+00,& - 0.7252E+00, 0.7265E+00, 0.7279E+00, 0.7292E+00,& - 0.7305E+00, 0.7318E+00, 0.7332E+00, 0.7345E+00,& - 0.7358E+00, 0.7372E+00, 0.7385E+00, 0.7398E+00,& - 0.7411E+00, 0.7425E+00, 0.7438E+00, 0.7451E+00,& - 0.7465E+00, 0.7478E+00, 0.7492E+00, 0.7505E+00,& - 0.7518E+00, 0.7532E+00, 0.7545E+00, 0.7559E+00,& - 0.7572E+00, 0.7585E+00, 0.7599E+00, 0.7612E+00,& - 0.7626E+00, 0.7639E+00, 0.7653E+00, 0.7666E+00,& - 0.7680E+00, 0.7693E+00, 0.7707E+00, 0.7720E+00,& - 0.7734E+00, 0.7747E+00, 0.7761E+00, 0.7774E+00,& - 0.7788E+00, 0.7802E+00, 0.7815E+00, 0.7829E+00,& - 0.7842E+00, 0.7856E+00, 0.7870E+00, 0.7883E+00,& - 0.7897E+00, 0.7911E+00, 0.7924E+00, 0.7938E+00,& - 0.7952E+00, 0.7965E+00, 0.7979E+00, 0.7993E+00,& - 0.8007E+00, 0.8020E+00, 0.8034E+00, 0.8048E+00,& - 0.8062E+00, 0.8076E+00, 0.8089E+00, 0.8103E+00,& - 0.8117E+00, 0.8131E+00, 0.8145E+00, 0.8159E+00,& - 0.8173E+00, 0.8187E+00, 0.8200E+00, 0.8214E+00,& - 0.8228E+00, 0.8242E+00, 0.8256E+00, 0.8270E+00,& - 0.8284E+00, 0.8298E+00, 0.8312E+00, 0.8326E+00,& - 0.8340E+00, 0.8354E+00, 0.8368E+00, 0.8383E+00,& - 0.8397E+00, 0.8411E+00, 0.8425E+00, 0.8439E+00,& - 0.8453E+00, 0.8467E+00, 0.8482E+00, 0.8496E+00,& - 0.8510E+00, 0.8524E+00, 0.8539E+00, 0.8553E+00,& - 0.8567E+00, 0.8581E+00, 0.8596E+00, 0.8610E+00,& - 0.8624E+00, 0.8639E+00, 0.8653E+00, 0.8667E+00,& - 0.8682E+00, 0.8696E+00, 0.8711E+00, 0.8725E+00,& - 0.8740E+00, 0.8754E+00, 0.8769E+00, 0.8783E+00,& - 0.8798E+00, 0.8812E+00, 0.8827E+00, 0.8841E+00,& - 0.8856E+00, 0.8871E+00, 0.8885E+00, 0.8900E+00,& - 0.8914E+00, 0.8929E+00, 0.8944E+00, 0.8959E+00,& - 0.8973E+00, 0.8988E+00, 0.9003E+00, 0.9018E+00,& - 0.9032E+00, 0.9047E+00, 0.9062E+00, 0.9077E+00,& - 0.9092E+00, 0.9107E+00, 0.9122E+00, 0.9137E+00,& - 0.9152E+00, 0.9167E+00, 0.9182E+00, 0.9197E+00,& - 0.9212E+00, 0.9227E+00, 0.9242E+00, 0.9257E+00,& - 0.9272E+00, 0.9287E+00, 0.9302E+00, 0.9317E+00,& - 0.9333E+00, 0.9348E+00, 0.9363E+00, 0.9378E+00,& - 0.9394E+00, 0.9409E+00, 0.9424E+00, 0.9440E+00,& - 0.9455E+00, 0.9470E+00, 0.9486E+00, 0.9501E+00,& - 0.9517E+00, 0.9532E+00, 0.9547E+00, 0.9563E+00,& - 0.9579E+00, 0.9594E+00, 0.9610E+00, 0.9626E+00,& - 0.9641E+00, 0.9657E+00, 0.9672E+00, 0.9688E+00,& - 0.9704E+00, 0.9720E+00, 0.9735E+00, 0.9751E+00,& - 0.9767E+00, 0.9783E+00, 0.9799E+00, 0.9815E+00,& - 0.9831E+00, 0.9846E+00, 0.9862E+00, 0.9878E+00,& - 0.9894E+00, 0.9911E+00, 0.9927E+00, 0.9943E+00,& - 0.9959E+00, 0.9975E+00, 0.9991E+00, 0.1001E+01,& - 0.1002E+01, 0.1004E+01, 0.1006E+01, 0.1007E+01,& - 0.1009E+01, 0.1011E+01, 0.1012E+01, 0.1014E+01,& - 0.1015E+01, 0.1017E+01, 0.1019E+01, 0.1020E+01,& - 0.1022E+01, 0.1024E+01, 0.1025E+01, 0.1027E+01,& - 0.1029E+01, 0.1030E+01, 0.1032E+01, 0.1034E+01,& - 0.1035E+01, 0.1037E+01, 0.1039E+01, 0.1040E+01,& - 0.1042E+01, 0.1044E+01, 0.1046E+01, 0.1047E+01,& - 0.1049E+01, 0.1051E+01, 0.1052E+01, 0.1054E+01,& - 0.1056E+01, 0.1057E+01, 0.1059E+01, 0.1061E+01,& - 0.1063E+01, 0.1064E+01, 0.1066E+01, 0.1068E+01,& - 0.1070E+01, 0.1071E+01, 0.1073E+01, 0.1075E+01,& - 0.1077E+01, 0.1078E+01, 0.1080E+01, 0.1082E+01,& - 0.1084E+01, 0.1085E+01, 0.1087E+01, 0.1089E+01,& - 0.1091E+01, 0.1093E+01, 0.1094E+01, 0.1096E+01,& - 0.1098E+01, 0.1100E+01, 0.1102E+01, 0.1103E+01,& - 0.1105E+01, 0.1107E+01, 0.1109E+01, 0.1111E+01,& - 0.1112E+01, 0.1114E+01, 0.1116E+01, 0.1118E+01,& - 0.1120E+01, 0.1122E+01, 0.1123E+01, 0.1125E+01,& - 0.1127E+01, 0.1129E+01, 0.1131E+01, 0.1133E+01,& - 0.1135E+01, 0.1137E+01, 0.1138E+01, 0.1140E+01,& - 0.1142E+01, 0.1144E+01, 0.1146E+01, 0.1148E+01,& - 0.1150E+01, 0.1152E+01, 0.1154E+01, 0.1156E+01,& - 0.1158E+01, 0.1159E+01, 0.1161E+01, 0.1163E+01,& - 0.1165E+01, 0.1167E+01, 0.1169E+01, 0.1171E+01,& - 0.1173E+01, 0.1175E+01, 0.1177E+01, 0.1179E+01,& - 0.1181E+01, 0.1183E+01, 0.1185E+01, 0.1187E+01,& - 0.1189E+01, 0.1191E+01, 0.1193E+01, 0.1195E+01,& - 0.1197E+01, 0.1199E+01, 0.1201E+01, 0.1203E+01,& - 0.1205E+01, 0.1207E+01, 0.1209E+01, 0.1211E+01,& - 0.1213E+01, 0.1215E+01, 0.1218E+01, 0.1220E+01,& - 0.1222E+01, 0.1224E+01, 0.1226E+01, 0.1228E+01,& - 0.1230E+01, 0.1232E+01, 0.1234E+01, 0.1237E+01,& - 0.1239E+01, 0.1241E+01, 0.1243E+01, 0.1245E+01,& - 0.1247E+01, 0.1249E+01, 0.1252E+01, 0.1254E+01,& - 0.1256E+01, 0.1258E+01, 0.1260E+01, 0.1263E+01,& - 0.1265E+01, 0.1267E+01, 0.1269E+01, 0.1271E+01,& - 0.1274E+01, 0.1276E+01, 0.1278E+01, 0.1280E+01,& - 0.1283E+01, 0.1285E+01, 0.1287E+01, 0.1289E+01,& - 0.1292E+01, 0.1294E+01, 0.1296E+01, 0.1299E+01,& - 0.1301E+01, 0.1303E+01, 0.1306E+01, 0.1308E+01,& - 0.1310E+01, 0.1313E+01, 0.1315E+01, 0.1317E+01,& - 0.1320E+01, 0.1322E+01, 0.1325E+01, 0.1327E+01,& - 0.1329E+01, 0.1332E+01, 0.1334E+01, 0.1337E+01,& - 0.1339E+01, 0.1342E+01, 0.1344E+01, 0.1346E+01,& - 0.1349E+01, 0.1351E+01, 0.1354E+01, 0.1356E+01,& - 0.1359E+01, 0.1361E+01, 0.1364E+01, 0.1367E+01,& - 0.1369E+01, 0.1372E+01, 0.1374E+01, 0.1377E+01,& - 0.1379E+01, 0.1382E+01, 0.1385E+01, 0.1387E+01,& - 0.1390E+01, 0.1392E+01, 0.1395E+01, 0.1398E+01,& - 0.1400E+01, 0.1403E+01, 0.1406E+01, 0.1408E+01,& - 0.1411E+01, 0.1414E+01, 0.1417E+01, 0.1419E+01,& - 0.1422E+01, 0.1425E+01, 0.1428E+01, 0.1430E+01,& - 0.1433E+01, 0.1436E+01, 0.1439E+01, 0.1442E+01,& - 0.1445E+01, 0.1447E+01, 0.1450E+01, 0.1453E+01,& - 0.1456E+01, 0.1459E+01, 0.1462E+01, 0.1465E+01,& - 0.1468E+01, 0.1471E+01, 0.1474E+01, 0.1477E+01,& - 0.1480E+01, 0.1483E+01, 0.1486E+01, 0.1489E+01,& - 0.1492E+01, 0.1495E+01, 0.1498E+01, 0.1501E+01,& - 0.1504E+01, 0.1507E+01, 0.1510E+01, 0.1513E+01,& - 0.1517E+01, 0.1520E+01, 0.1523E+01, 0.1526E+01,& - 0.1529E+01, 0.1533E+01, 0.1536E+01, 0.1539E+01,& - 0.1543E+01, 0.1546E+01, 0.1549E+01, 0.1553E+01,& - 0.1556E+01, 0.1559E+01, 0.1563E+01, 0.1566E+01,& - 0.1570E+01, 0.1573E+01, 0.1576E+01, 0.1580E+01,& - 0.1583E+01, 0.1587E+01, 0.1591E+01, 0.1594E+01,& - 0.1598E+01, 0.1601E+01, 0.1605E+01, 0.1609E+01,& - 0.1612E+01, 0.1616E+01, 0.1620E+01, 0.1623E+01,& - 0.1627E+01, 0.1631E+01, 0.1635E+01, 0.1639E+01,& - 0.1643E+01, 0.1646E+01, 0.1650E+01, 0.1654E+01,& - 0.1658E+01, 0.1662E+01, 0.1666E+01, 0.1670E+01,& - 0.1674E+01, 0.1678E+01, 0.1682E+01, 0.1687E+01,& - 0.1691E+01, 0.1695E+01, 0.1699E+01, 0.1703E+01,& - 0.1708E+01, 0.1712E+01, 0.1716E+01, 0.1721E+01,& - 0.1725E+01, 0.1730E+01, 0.1734E+01, 0.1739E+01,& - 0.1743E+01, 0.1748E+01, 0.1752E+01, 0.1757E+01,& - 0.1762E+01, 0.1766E+01, 0.1771E+01, 0.1776E+01,& - 0.1781E+01, 0.1786E+01, 0.1791E+01, 0.1796E+01,& - 0.1801E+01, 0.1806E+01, 0.1811E+01, 0.1816E+01,& - 0.1821E+01, 0.1826E+01, 0.1832E+01, 0.1837E+01,& - 0.1842E+01, 0.1848E+01, 0.1853E+01, 0.1859E+01,& - 0.1864E+01, 0.1870E+01, 0.1876E+01, 0.1881E+01,& - 0.1887E+01, 0.1893E+01, 0.1899E+01, 0.1905E+01,& - 0.1911E+01, 0.1917E+01, 0.1923E+01, 0.1929E+01,& - 0.1936E+01, 0.1942E+01, 0.1949E+01, 0.1955E+01,& - 0.1962E+01, 0.1968E+01, 0.1975E+01, 0.1982E+01,& - 0.1989E+01, 0.1996E+01, 0.2003E+01, 0.2010E+01,& - 0.2017E+01, 0.2025E+01, 0.2032E+01, 0.2040E+01,& - 0.2048E+01, 0.2055E+01, 0.2063E+01, 0.2071E+01,& - 0.2079E+01, 0.2088E+01, 0.2096E+01, 0.2105E+01,& - 0.2113E+01, 0.2122E+01, 0.2131E+01, 0.2140E+01,& - 0.2149E+01, 0.2159E+01, 0.2168E+01, 0.2178E+01,& - 0.2188E+01, 0.2198E+01, 0.2208E+01, 0.2219E+01,& - 0.2229E+01, 0.2240E+01, 0.2251E+01, 0.2263E+01,& - 0.2274E+01, 0.2286E+01, 0.2298E+01, 0.2311E+01,& - 0.2324E+01, 0.2337E+01, 0.2350E+01, 0.2364E+01,& - 0.2378E+01, 0.2392E+01, 0.2407E+01, 0.2422E+01,& - 0.2438E+01, 0.2454E+01, 0.2471E+01, 0.2489E+01,& - 0.2506E+01, 0.2525E+01, 0.2544E+01, 0.2564E+01,& - 0.2585E+01, 0.2607E+01, 0.2630E+01, 0.2654E+01,& - 0.2679E+01, 0.2705E+01, 0.2733E+01, 0.2762E+01,& - 0.2793E+01, 0.2826E+01, 0.2862E+01, 0.2900E+01,& - 0.2942E+01, 0.2987E+01, 0.3037E+01, 0.3093E+01,& - 0.3156E+01, 0.3229E+01, 0.3314E+01, 0.3418E+01,& - 0.1000E-04, 0.3661E-01, 0.4951E-01, 0.5916E-01/) - xcw(:, 23) = (/& - 0.1000E-04, 0.3661E-01, 0.4951E-01, 0.5916E-01,& - 0.6718E-01, 0.7418E-01, 0.8047E-01, 0.8623E-01,& - 0.9157E-01, 0.9658E-01, 0.1013E+00, 0.1058E+00,& - 0.1101E+00, 0.1142E+00, 0.1181E+00, 0.1220E+00,& - 0.1257E+00, 0.1292E+00, 0.1327E+00, 0.1361E+00,& - 0.1394E+00, 0.1426E+00, 0.1457E+00, 0.1488E+00,& - 0.1518E+00, 0.1548E+00, 0.1577E+00, 0.1605E+00,& - 0.1633E+00, 0.1661E+00, 0.1688E+00, 0.1715E+00,& - 0.1741E+00, 0.1767E+00, 0.1792E+00, 0.1818E+00,& - 0.1842E+00, 0.1867E+00, 0.1891E+00, 0.1915E+00,& - 0.1939E+00, 0.1963E+00, 0.1986E+00, 0.2009E+00,& - 0.2031E+00, 0.2054E+00, 0.2076E+00, 0.2098E+00,& - 0.2120E+00, 0.2142E+00, 0.2164E+00, 0.2185E+00,& - 0.2206E+00, 0.2227E+00, 0.2248E+00, 0.2268E+00,& - 0.2289E+00, 0.2309E+00, 0.2330E+00, 0.2350E+00,& - 0.2370E+00, 0.2389E+00, 0.2409E+00, 0.2429E+00,& - 0.2448E+00, 0.2467E+00, 0.2486E+00, 0.2506E+00,& - 0.2524E+00, 0.2543E+00, 0.2562E+00, 0.2581E+00,& - 0.2599E+00, 0.2618E+00, 0.2636E+00, 0.2654E+00,& - 0.2672E+00, 0.2690E+00, 0.2708E+00, 0.2726E+00,& - 0.2744E+00, 0.2762E+00, 0.2779E+00, 0.2797E+00,& - 0.2814E+00, 0.2832E+00, 0.2849E+00, 0.2866E+00,& - 0.2884E+00, 0.2901E+00, 0.2918E+00, 0.2935E+00,& - 0.2952E+00, 0.2969E+00, 0.2985E+00, 0.3002E+00,& - 0.3019E+00, 0.3035E+00, 0.3052E+00, 0.3068E+00,& - 0.3085E+00, 0.3101E+00, 0.3117E+00, 0.3134E+00,& - 0.3150E+00, 0.3166E+00, 0.3182E+00, 0.3198E+00,& - 0.3214E+00, 0.3230E+00, 0.3246E+00, 0.3262E+00,& - 0.3278E+00, 0.3294E+00, 0.3309E+00, 0.3325E+00,& - 0.3341E+00, 0.3356E+00, 0.3372E+00, 0.3387E+00,& - 0.3403E+00, 0.3418E+00, 0.3434E+00, 0.3449E+00,& - 0.3465E+00, 0.3480E+00, 0.3495E+00, 0.3510E+00,& - 0.3526E+00, 0.3541E+00, 0.3556E+00, 0.3571E+00,& - 0.3586E+00, 0.3601E+00, 0.3616E+00, 0.3631E+00,& - 0.3646E+00, 0.3661E+00, 0.3676E+00, 0.3690E+00,& - 0.3705E+00, 0.3720E+00, 0.3735E+00, 0.3749E+00,& - 0.3764E+00, 0.3779E+00, 0.3793E+00, 0.3808E+00,& - 0.3823E+00, 0.3837E+00, 0.3852E+00, 0.3866E+00,& - 0.3881E+00, 0.3895E+00, 0.3910E+00, 0.3924E+00,& - 0.3938E+00, 0.3953E+00, 0.3967E+00, 0.3981E+00,& - 0.3996E+00, 0.4010E+00, 0.4024E+00, 0.4039E+00,& - 0.4053E+00, 0.4067E+00, 0.4081E+00, 0.4095E+00,& - 0.4109E+00, 0.4124E+00, 0.4138E+00, 0.4152E+00,& - 0.4166E+00, 0.4180E+00, 0.4194E+00, 0.4208E+00,& - 0.4222E+00, 0.4236E+00, 0.4250E+00, 0.4264E+00,& - 0.4278E+00, 0.4292E+00, 0.4305E+00, 0.4319E+00,& - 0.4333E+00, 0.4347E+00, 0.4361E+00, 0.4375E+00,& - 0.4388E+00, 0.4402E+00, 0.4416E+00, 0.4430E+00,& - 0.4444E+00, 0.4457E+00, 0.4471E+00, 0.4485E+00,& - 0.4498E+00, 0.4512E+00, 0.4526E+00, 0.4539E+00,& - 0.4553E+00, 0.4567E+00, 0.4580E+00, 0.4594E+00,& - 0.4608E+00, 0.4621E+00, 0.4635E+00, 0.4648E+00,& - 0.4662E+00, 0.4675E+00, 0.4689E+00, 0.4702E+00,& - 0.4716E+00, 0.4729E+00, 0.4743E+00, 0.4756E+00,& - 0.4770E+00, 0.4783E+00, 0.4797E+00, 0.4810E+00,& - 0.4824E+00, 0.4837E+00, 0.4851E+00, 0.4864E+00,& - 0.4877E+00, 0.4891E+00, 0.4904E+00, 0.4918E+00,& - 0.4931E+00, 0.4944E+00, 0.4958E+00, 0.4971E+00,& - 0.4984E+00, 0.4998E+00, 0.5011E+00, 0.5024E+00,& - 0.5038E+00, 0.5051E+00, 0.5064E+00, 0.5078E+00,& - 0.5091E+00, 0.5104E+00, 0.5118E+00, 0.5131E+00,& - 0.5144E+00, 0.5157E+00, 0.5171E+00, 0.5184E+00,& - 0.5197E+00, 0.5210E+00, 0.5224E+00, 0.5237E+00,& - 0.5250E+00, 0.5263E+00, 0.5277E+00, 0.5290E+00,& - 0.5303E+00, 0.5316E+00, 0.5330E+00, 0.5343E+00,& - 0.5356E+00, 0.5369E+00, 0.5382E+00, 0.5396E+00,& - 0.5409E+00, 0.5422E+00, 0.5435E+00, 0.5448E+00,& - 0.5462E+00, 0.5475E+00, 0.5488E+00, 0.5501E+00,& - 0.5514E+00, 0.5527E+00, 0.5541E+00, 0.5554E+00,& - 0.5567E+00, 0.5580E+00, 0.5593E+00, 0.5607E+00,& - 0.5620E+00, 0.5633E+00, 0.5646E+00, 0.5659E+00,& - 0.5672E+00, 0.5686E+00, 0.5699E+00, 0.5712E+00,& - 0.5725E+00, 0.5738E+00, 0.5751E+00, 0.5764E+00,& - 0.5778E+00, 0.5791E+00, 0.5804E+00, 0.5817E+00,& - 0.5830E+00, 0.5843E+00, 0.5857E+00, 0.5870E+00,& - 0.5883E+00, 0.5896E+00, 0.5909E+00, 0.5922E+00,& - 0.5936E+00, 0.5949E+00, 0.5962E+00, 0.5975E+00,& - 0.5988E+00, 0.6001E+00, 0.6015E+00, 0.6028E+00,& - 0.6041E+00, 0.6054E+00, 0.6067E+00, 0.6081E+00,& - 0.6094E+00, 0.6107E+00, 0.6120E+00, 0.6133E+00,& - 0.6146E+00, 0.6160E+00, 0.6173E+00, 0.6186E+00,& - 0.6199E+00, 0.6212E+00, 0.6226E+00, 0.6239E+00,& - 0.6252E+00, 0.6265E+00, 0.6279E+00, 0.6292E+00,& - 0.6305E+00, 0.6318E+00, 0.6332E+00, 0.6345E+00,& - 0.6358E+00, 0.6371E+00, 0.6384E+00, 0.6398E+00,& - 0.6411E+00, 0.6424E+00, 0.6438E+00, 0.6451E+00,& - 0.6464E+00, 0.6477E+00, 0.6491E+00, 0.6504E+00,& - 0.6517E+00, 0.6531E+00, 0.6544E+00, 0.6557E+00,& - 0.6570E+00, 0.6584E+00, 0.6597E+00, 0.6610E+00,& - 0.6624E+00, 0.6637E+00, 0.6650E+00, 0.6664E+00,& - 0.6677E+00, 0.6691E+00, 0.6704E+00, 0.6717E+00,& - 0.6731E+00, 0.6744E+00, 0.6757E+00, 0.6771E+00,& - 0.6784E+00, 0.6798E+00, 0.6811E+00, 0.6825E+00,& - 0.6838E+00, 0.6851E+00, 0.6865E+00, 0.6878E+00,& - 0.6892E+00, 0.6905E+00, 0.6919E+00, 0.6932E+00,& - 0.6946E+00, 0.6959E+00, 0.6973E+00, 0.6986E+00,& - 0.7000E+00, 0.7013E+00, 0.7027E+00, 0.7040E+00,& - 0.7054E+00, 0.7067E+00, 0.7081E+00, 0.7095E+00,& - 0.7108E+00, 0.7122E+00, 0.7135E+00, 0.7149E+00,& - 0.7163E+00, 0.7176E+00, 0.7190E+00, 0.7203E+00,& - 0.7217E+00, 0.7231E+00, 0.7244E+00, 0.7258E+00,& - 0.7272E+00, 0.7285E+00, 0.7299E+00, 0.7313E+00,& - 0.7327E+00, 0.7340E+00, 0.7354E+00, 0.7368E+00,& - 0.7382E+00, 0.7395E+00, 0.7409E+00, 0.7423E+00,& - 0.7437E+00, 0.7450E+00, 0.7464E+00, 0.7478E+00,& - 0.7492E+00, 0.7506E+00, 0.7520E+00, 0.7534E+00,& - 0.7547E+00, 0.7561E+00, 0.7575E+00, 0.7589E+00,& - 0.7603E+00, 0.7617E+00, 0.7631E+00, 0.7645E+00,& - 0.7659E+00, 0.7673E+00, 0.7687E+00, 0.7701E+00,& - 0.7715E+00, 0.7729E+00, 0.7743E+00, 0.7757E+00,& - 0.7771E+00, 0.7785E+00, 0.7799E+00, 0.7813E+00,& - 0.7827E+00, 0.7841E+00, 0.7856E+00, 0.7870E+00,& - 0.7884E+00, 0.7898E+00, 0.7912E+00, 0.7926E+00,& - 0.7941E+00, 0.7955E+00, 0.7969E+00, 0.7983E+00,& - 0.7998E+00, 0.8012E+00, 0.8026E+00, 0.8041E+00,& - 0.8055E+00, 0.8069E+00, 0.8084E+00, 0.8098E+00,& - 0.8112E+00, 0.8127E+00, 0.8141E+00, 0.8156E+00,& - 0.8170E+00, 0.8184E+00, 0.8199E+00, 0.8213E+00,& - 0.8228E+00, 0.8242E+00, 0.8257E+00, 0.8271E+00,& - 0.8286E+00, 0.8300E+00, 0.8315E+00, 0.8330E+00,& - 0.8344E+00, 0.8359E+00, 0.8374E+00, 0.8388E+00,& - 0.8403E+00, 0.8418E+00, 0.8432E+00, 0.8447E+00,& - 0.8462E+00, 0.8476E+00, 0.8491E+00, 0.8506E+00,& - 0.8521E+00, 0.8536E+00, 0.8550E+00, 0.8565E+00,& - 0.8580E+00, 0.8595E+00, 0.8610E+00, 0.8625E+00,& - 0.8640E+00, 0.8655E+00, 0.8670E+00, 0.8685E+00,& - 0.8700E+00, 0.8715E+00, 0.8730E+00, 0.8745E+00,& - 0.8760E+00, 0.8775E+00, 0.8790E+00, 0.8805E+00,& - 0.8821E+00, 0.8836E+00, 0.8851E+00, 0.8866E+00,& - 0.8881E+00, 0.8897E+00, 0.8912E+00, 0.8927E+00,& - 0.8942E+00, 0.8958E+00, 0.8973E+00, 0.8989E+00,& - 0.9004E+00, 0.9019E+00, 0.9035E+00, 0.9050E+00,& - 0.9066E+00, 0.9081E+00, 0.9097E+00, 0.9112E+00,& - 0.9128E+00, 0.9143E+00, 0.9159E+00, 0.9175E+00,& - 0.9190E+00, 0.9206E+00, 0.9222E+00, 0.9237E+00,& - 0.9253E+00, 0.9269E+00, 0.9284E+00, 0.9300E+00,& - 0.9316E+00, 0.9332E+00, 0.9348E+00, 0.9364E+00,& - 0.9380E+00, 0.9396E+00, 0.9412E+00, 0.9427E+00,& - 0.9443E+00, 0.9460E+00, 0.9476E+00, 0.9492E+00,& - 0.9508E+00, 0.9524E+00, 0.9540E+00, 0.9556E+00,& - 0.9572E+00, 0.9589E+00, 0.9605E+00, 0.9621E+00,& - 0.9637E+00, 0.9654E+00, 0.9670E+00, 0.9686E+00,& - 0.9703E+00, 0.9719E+00, 0.9736E+00, 0.9752E+00,& - 0.9769E+00, 0.9785E+00, 0.9802E+00, 0.9818E+00,& - 0.9835E+00, 0.9851E+00, 0.9868E+00, 0.9885E+00,& - 0.9902E+00, 0.9918E+00, 0.9935E+00, 0.9952E+00,& - 0.9969E+00, 0.9986E+00, 0.1000E+01, 0.1002E+01,& - 0.1004E+01, 0.1005E+01, 0.1007E+01, 0.1009E+01,& - 0.1010E+01, 0.1012E+01, 0.1014E+01, 0.1016E+01,& - 0.1017E+01, 0.1019E+01, 0.1021E+01, 0.1022E+01,& - 0.1024E+01, 0.1026E+01, 0.1028E+01, 0.1029E+01,& - 0.1031E+01, 0.1033E+01, 0.1035E+01, 0.1036E+01,& - 0.1038E+01, 0.1040E+01, 0.1042E+01, 0.1043E+01,& - 0.1045E+01, 0.1047E+01, 0.1049E+01, 0.1051E+01,& - 0.1052E+01, 0.1054E+01, 0.1056E+01, 0.1058E+01,& - 0.1059E+01, 0.1061E+01, 0.1063E+01, 0.1065E+01,& - 0.1067E+01, 0.1068E+01, 0.1070E+01, 0.1072E+01,& - 0.1074E+01, 0.1076E+01, 0.1078E+01, 0.1079E+01,& - 0.1081E+01, 0.1083E+01, 0.1085E+01, 0.1087E+01,& - 0.1089E+01, 0.1091E+01, 0.1092E+01, 0.1094E+01,& - 0.1096E+01, 0.1098E+01, 0.1100E+01, 0.1102E+01,& - 0.1104E+01, 0.1106E+01, 0.1107E+01, 0.1109E+01,& - 0.1111E+01, 0.1113E+01, 0.1115E+01, 0.1117E+01,& - 0.1119E+01, 0.1121E+01, 0.1123E+01, 0.1125E+01,& - 0.1127E+01, 0.1128E+01, 0.1130E+01, 0.1132E+01,& - 0.1134E+01, 0.1136E+01, 0.1138E+01, 0.1140E+01,& - 0.1142E+01, 0.1144E+01, 0.1146E+01, 0.1148E+01,& - 0.1150E+01, 0.1152E+01, 0.1154E+01, 0.1156E+01,& - 0.1158E+01, 0.1160E+01, 0.1162E+01, 0.1164E+01,& - 0.1166E+01, 0.1168E+01, 0.1170E+01, 0.1172E+01,& - 0.1174E+01, 0.1176E+01, 0.1178E+01, 0.1180E+01,& - 0.1183E+01, 0.1185E+01, 0.1187E+01, 0.1189E+01,& - 0.1191E+01, 0.1193E+01, 0.1195E+01, 0.1197E+01,& - 0.1199E+01, 0.1201E+01, 0.1204E+01, 0.1206E+01,& - 0.1208E+01, 0.1210E+01, 0.1212E+01, 0.1214E+01,& - 0.1216E+01, 0.1219E+01, 0.1221E+01, 0.1223E+01,& - 0.1225E+01, 0.1227E+01, 0.1229E+01, 0.1232E+01,& - 0.1234E+01, 0.1236E+01, 0.1238E+01, 0.1240E+01,& - 0.1243E+01, 0.1245E+01, 0.1247E+01, 0.1249E+01,& - 0.1252E+01, 0.1254E+01, 0.1256E+01, 0.1258E+01,& - 0.1261E+01, 0.1263E+01, 0.1265E+01, 0.1268E+01,& - 0.1270E+01, 0.1272E+01, 0.1275E+01, 0.1277E+01,& - 0.1279E+01, 0.1282E+01, 0.1284E+01, 0.1286E+01,& - 0.1289E+01, 0.1291E+01, 0.1293E+01, 0.1296E+01,& - 0.1298E+01, 0.1300E+01, 0.1303E+01, 0.1305E+01,& - 0.1308E+01, 0.1310E+01, 0.1313E+01, 0.1315E+01,& - 0.1317E+01, 0.1320E+01, 0.1322E+01, 0.1325E+01,& - 0.1327E+01, 0.1330E+01, 0.1332E+01, 0.1335E+01,& - 0.1337E+01, 0.1340E+01, 0.1342E+01, 0.1345E+01,& - 0.1348E+01, 0.1350E+01, 0.1353E+01, 0.1355E+01,& - 0.1358E+01, 0.1360E+01, 0.1363E+01, 0.1366E+01,& - 0.1368E+01, 0.1371E+01, 0.1374E+01, 0.1376E+01,& - 0.1379E+01, 0.1382E+01, 0.1384E+01, 0.1387E+01,& - 0.1390E+01, 0.1392E+01, 0.1395E+01, 0.1398E+01,& - 0.1401E+01, 0.1403E+01, 0.1406E+01, 0.1409E+01,& - 0.1412E+01, 0.1414E+01, 0.1417E+01, 0.1420E+01,& - 0.1423E+01, 0.1426E+01, 0.1429E+01, 0.1432E+01,& - 0.1434E+01, 0.1437E+01, 0.1440E+01, 0.1443E+01,& - 0.1446E+01, 0.1449E+01, 0.1452E+01, 0.1455E+01,& - 0.1458E+01, 0.1461E+01, 0.1464E+01, 0.1467E+01,& - 0.1470E+01, 0.1473E+01, 0.1476E+01, 0.1479E+01,& - 0.1482E+01, 0.1485E+01, 0.1488E+01, 0.1491E+01,& - 0.1495E+01, 0.1498E+01, 0.1501E+01, 0.1504E+01,& - 0.1507E+01, 0.1510E+01, 0.1514E+01, 0.1517E+01,& - 0.1520E+01, 0.1523E+01, 0.1527E+01, 0.1530E+01,& - 0.1533E+01, 0.1537E+01, 0.1540E+01, 0.1543E+01,& - 0.1547E+01, 0.1550E+01, 0.1554E+01, 0.1557E+01,& - 0.1561E+01, 0.1564E+01, 0.1568E+01, 0.1571E+01,& - 0.1575E+01, 0.1578E+01, 0.1582E+01, 0.1585E+01,& - 0.1589E+01, 0.1592E+01, 0.1596E+01, 0.1600E+01,& - 0.1603E+01, 0.1607E+01, 0.1611E+01, 0.1615E+01,& - 0.1618E+01, 0.1622E+01, 0.1626E+01, 0.1630E+01,& - 0.1634E+01, 0.1638E+01, 0.1642E+01, 0.1645E+01,& - 0.1649E+01, 0.1653E+01, 0.1657E+01, 0.1661E+01,& - 0.1665E+01, 0.1670E+01, 0.1674E+01, 0.1678E+01,& - 0.1682E+01, 0.1686E+01, 0.1690E+01, 0.1695E+01,& - 0.1699E+01, 0.1703E+01, 0.1707E+01, 0.1712E+01,& - 0.1716E+01, 0.1721E+01, 0.1725E+01, 0.1729E+01,& - 0.1734E+01, 0.1739E+01, 0.1743E+01, 0.1748E+01,& - 0.1752E+01, 0.1757E+01, 0.1762E+01, 0.1766E+01,& - 0.1771E+01, 0.1776E+01, 0.1781E+01, 0.1786E+01,& - 0.1791E+01, 0.1796E+01, 0.1801E+01, 0.1806E+01,& - 0.1811E+01, 0.1816E+01, 0.1821E+01, 0.1826E+01,& - 0.1832E+01, 0.1837E+01, 0.1842E+01, 0.1848E+01,& - 0.1853E+01, 0.1859E+01, 0.1864E+01, 0.1870E+01,& - 0.1875E+01, 0.1881E+01, 0.1887E+01, 0.1893E+01,& - 0.1899E+01, 0.1905E+01, 0.1911E+01, 0.1917E+01,& - 0.1923E+01, 0.1929E+01, 0.1935E+01, 0.1941E+01,& - 0.1948E+01, 0.1954E+01, 0.1961E+01, 0.1967E+01,& - 0.1974E+01, 0.1981E+01, 0.1987E+01, 0.1994E+01,& - 0.2001E+01, 0.2008E+01, 0.2015E+01, 0.2023E+01,& - 0.2030E+01, 0.2037E+01, 0.2045E+01, 0.2052E+01,& - 0.2060E+01, 0.2068E+01, 0.2076E+01, 0.2056E+01,& - 0.2092E+01, 0.2100E+01, 0.2108E+01, 0.2117E+01,& - 0.2125E+01, 0.2134E+01, 0.2143E+01, 0.2152E+01,& - 0.2161E+01, 0.2170E+01, 0.2180E+01, 0.2189E+01,& - 0.2199E+01, 0.2209E+01, 0.2219E+01, 0.2229E+01,& - 0.2240E+01, 0.2251E+01, 0.2261E+01, 0.2272E+01,& - 0.2284E+01, 0.2295E+01, 0.2307E+01, 0.2319E+01,& - 0.2331E+01, 0.2344E+01, 0.2357E+01, 0.2370E+01,& - 0.2383E+01, 0.2397E+01, 0.2411E+01, 0.2426E+01,& - 0.2441E+01, 0.2456E+01, 0.2472E+01, 0.2488E+01,& - 0.2505E+01, 0.2522E+01, 0.2540E+01, 0.2558E+01,& - 0.2577E+01, 0.2597E+01, 0.2617E+01, 0.2638E+01,& - 0.2660E+01, 0.2683E+01, 0.2708E+01, 0.2733E+01,& - 0.2759E+01, 0.2787E+01, 0.2816E+01, 0.2848E+01,& - 0.2881E+01, 0.2916E+01, 0.2954E+01, 0.2994E+01,& - 0.3038E+01, 0.3087E+01, 0.3140E+01, 0.3199E+01,& - 0.3266E+01, 0.3343E+01, 0.3434E+01, 0.3544E+01,& - 0.1000E-04, 0.2985E-01, 0.4126E-01, 0.4992E-01/) - xcw(:, 24) = (/& - 0.1000E-04, 0.2985E-01, 0.4126E-01, 0.4992E-01,& - 0.5720E-01, 0.6360E-01, 0.6938E-01, 0.7469E-01,& - 0.7965E-01, 0.8430E-01, 0.8872E-01, 0.9291E-01,& - 0.9694E-01, 0.1008E+00, 0.1045E+00, 0.1081E+00,& - 0.1116E+00, 0.1150E+00, 0.1183E+00, 0.1215E+00,& - 0.1246E+00, 0.1277E+00, 0.1307E+00, 0.1336E+00,& - 0.1365E+00, 0.1394E+00, 0.1421E+00, 0.1449E+00,& - 0.1476E+00, 0.1502E+00, 0.1528E+00, 0.1554E+00,& - 0.1579E+00, 0.1604E+00, 0.1629E+00, 0.1653E+00,& - 0.1677E+00, 0.1701E+00, 0.1724E+00, 0.1747E+00,& - 0.1770E+00, 0.1793E+00, 0.1816E+00, 0.1838E+00,& - 0.1860E+00, 0.1882E+00, 0.1904E+00, 0.1925E+00,& - 0.1946E+00, 0.1968E+00, 0.1989E+00, 0.2009E+00,& - 0.2030E+00, 0.2050E+00, 0.2071E+00, 0.2091E+00,& - 0.2111E+00, 0.2131E+00, 0.2151E+00, 0.2170E+00,& - 0.2190E+00, 0.2209E+00, 0.2228E+00, 0.2248E+00,& - 0.2267E+00, 0.2286E+00, 0.2304E+00, 0.2323E+00,& - 0.2342E+00, 0.2360E+00, 0.2379E+00, 0.2397E+00,& - 0.2415E+00, 0.2433E+00, 0.2451E+00, 0.2469E+00,& - 0.2487E+00, 0.2505E+00, 0.2523E+00, 0.2540E+00,& - 0.2558E+00, 0.2575E+00, 0.2593E+00, 0.2610E+00,& - 0.2627E+00, 0.2644E+00, 0.2662E+00, 0.2679E+00,& - 0.2696E+00, 0.2713E+00, 0.2729E+00, 0.2746E+00,& - 0.2763E+00, 0.2780E+00, 0.2796E+00, 0.2813E+00,& - 0.2829E+00, 0.2846E+00, 0.2862E+00, 0.2878E+00,& - 0.2895E+00, 0.2911E+00, 0.2927E+00, 0.2943E+00,& - 0.2959E+00, 0.2975E+00, 0.2991E+00, 0.3007E+00,& - 0.3023E+00, 0.3039E+00, 0.3055E+00, 0.3071E+00,& - 0.3086E+00, 0.3102E+00, 0.3118E+00, 0.3133E+00,& - 0.3149E+00, 0.3165E+00, 0.3180E+00, 0.3195E+00,& - 0.3211E+00, 0.3226E+00, 0.3242E+00, 0.3257E+00,& - 0.3272E+00, 0.3287E+00, 0.3303E+00, 0.3318E+00,& - 0.3333E+00, 0.3348E+00, 0.3363E+00, 0.3378E+00,& - 0.3393E+00, 0.3408E+00, 0.3423E+00, 0.3438E+00,& - 0.3453E+00, 0.3468E+00, 0.3483E+00, 0.3498E+00,& - 0.3512E+00, 0.3527E+00, 0.3542E+00, 0.3557E+00,& - 0.3571E+00, 0.3586E+00, 0.3601E+00, 0.3615E+00,& - 0.3630E+00, 0.3644E+00, 0.3659E+00, 0.3673E+00,& - 0.3688E+00, 0.3702E+00, 0.3717E+00, 0.3731E+00,& - 0.3746E+00, 0.3760E+00, 0.3775E+00, 0.3789E+00,& - 0.3803E+00, 0.3818E+00, 0.3832E+00, 0.3846E+00,& - 0.3860E+00, 0.3875E+00, 0.3889E+00, 0.3903E+00,& - 0.3917E+00, 0.3931E+00, 0.3946E+00, 0.3960E+00,& - 0.3974E+00, 0.3988E+00, 0.4002E+00, 0.4016E+00,& - 0.4030E+00, 0.4044E+00, 0.4058E+00, 0.4072E+00,& - 0.4086E+00, 0.4100E+00, 0.4114E+00, 0.4128E+00,& - 0.4142E+00, 0.4156E+00, 0.4170E+00, 0.4184E+00,& - 0.4198E+00, 0.4212E+00, 0.4225E+00, 0.4239E+00,& - 0.4253E+00, 0.4267E+00, 0.4281E+00, 0.4295E+00,& - 0.4308E+00, 0.4322E+00, 0.4336E+00, 0.4350E+00,& - 0.4364E+00, 0.4377E+00, 0.4391E+00, 0.4405E+00,& - 0.4418E+00, 0.4432E+00, 0.4446E+00, 0.4460E+00,& - 0.4473E+00, 0.4487E+00, 0.4501E+00, 0.4514E+00,& - 0.4528E+00, 0.4541E+00, 0.4555E+00, 0.4569E+00,& - 0.4582E+00, 0.4596E+00, 0.4610E+00, 0.4623E+00,& - 0.4637E+00, 0.4650E+00, 0.4664E+00, 0.4677E+00,& - 0.4691E+00, 0.4705E+00, 0.4718E+00, 0.4732E+00,& - 0.4745E+00, 0.4759E+00, 0.4772E+00, 0.4786E+00,& - 0.4799E+00, 0.4813E+00, 0.4826E+00, 0.4840E+00,& - 0.4853E+00, 0.4867E+00, 0.4880E+00, 0.4894E+00,& - 0.4907E+00, 0.4920E+00, 0.4934E+00, 0.4947E+00,& - 0.4961E+00, 0.4974E+00, 0.4988E+00, 0.5001E+00,& - 0.5015E+00, 0.5028E+00, 0.5041E+00, 0.5055E+00,& - 0.5068E+00, 0.5082E+00, 0.5095E+00, 0.5109E+00,& - 0.5122E+00, 0.5135E+00, 0.5149E+00, 0.5162E+00,& - 0.5176E+00, 0.5189E+00, 0.5202E+00, 0.5216E+00,& - 0.5229E+00, 0.5243E+00, 0.5256E+00, 0.5269E+00,& - 0.5283E+00, 0.5296E+00, 0.5310E+00, 0.5323E+00,& - 0.5336E+00, 0.5350E+00, 0.5363E+00, 0.5376E+00,& - 0.5390E+00, 0.5403E+00, 0.5417E+00, 0.5430E+00,& - 0.5443E+00, 0.5457E+00, 0.5470E+00, 0.5483E+00,& - 0.5497E+00, 0.5510E+00, 0.5524E+00, 0.5537E+00,& - 0.5550E+00, 0.5564E+00, 0.5577E+00, 0.5591E+00,& - 0.5604E+00, 0.5617E+00, 0.5631E+00, 0.5644E+00,& - 0.5657E+00, 0.5671E+00, 0.5684E+00, 0.5698E+00,& - 0.5711E+00, 0.5724E+00, 0.5738E+00, 0.5751E+00,& - 0.5765E+00, 0.5778E+00, 0.5791E+00, 0.5805E+00,& - 0.5818E+00, 0.5832E+00, 0.5845E+00, 0.5859E+00,& - 0.5872E+00, 0.5885E+00, 0.5899E+00, 0.5912E+00,& - 0.5926E+00, 0.5939E+00, 0.5953E+00, 0.5966E+00,& - 0.5980E+00, 0.5993E+00, 0.6006E+00, 0.6020E+00,& - 0.6033E+00, 0.6047E+00, 0.6060E+00, 0.6074E+00,& - 0.6087E+00, 0.6101E+00, 0.6114E+00, 0.6128E+00,& - 0.6141E+00, 0.6155E+00, 0.6168E+00, 0.6182E+00,& - 0.6195E+00, 0.6209E+00, 0.6222E+00, 0.6236E+00,& - 0.6249E+00, 0.6263E+00, 0.6276E+00, 0.6290E+00,& - 0.6304E+00, 0.6317E+00, 0.6331E+00, 0.6344E+00,& - 0.6358E+00, 0.6371E+00, 0.6385E+00, 0.6399E+00,& - 0.6412E+00, 0.6426E+00, 0.6439E+00, 0.6453E+00,& - 0.6467E+00, 0.6480E+00, 0.6494E+00, 0.6508E+00,& - 0.6521E+00, 0.6535E+00, 0.6549E+00, 0.6562E+00,& - 0.6576E+00, 0.6590E+00, 0.6603E+00, 0.6617E+00,& - 0.6631E+00, 0.6645E+00, 0.6658E+00, 0.6672E+00,& - 0.6686E+00, 0.6700E+00, 0.6713E+00, 0.6727E+00,& - 0.6741E+00, 0.6755E+00, 0.6768E+00, 0.6782E+00,& - 0.6796E+00, 0.6810E+00, 0.6824E+00, 0.6837E+00,& - 0.6851E+00, 0.6865E+00, 0.6879E+00, 0.6893E+00,& - 0.6907E+00, 0.6921E+00, 0.6935E+00, 0.6948E+00,& - 0.6962E+00, 0.6976E+00, 0.6990E+00, 0.7004E+00,& - 0.7018E+00, 0.7032E+00, 0.7046E+00, 0.7060E+00,& - 0.7074E+00, 0.7088E+00, 0.7102E+00, 0.7116E+00,& - 0.7130E+00, 0.7144E+00, 0.7158E+00, 0.7172E+00,& - 0.7186E+00, 0.7200E+00, 0.7214E+00, 0.7229E+00,& - 0.7243E+00, 0.7257E+00, 0.7271E+00, 0.7285E+00,& - 0.7299E+00, 0.7313E+00, 0.7328E+00, 0.7342E+00,& - 0.7356E+00, 0.7370E+00, 0.7384E+00, 0.7399E+00,& - 0.7413E+00, 0.7427E+00, 0.7441E+00, 0.7456E+00,& - 0.7470E+00, 0.7484E+00, 0.7499E+00, 0.7513E+00,& - 0.7527E+00, 0.7542E+00, 0.7556E+00, 0.7570E+00,& - 0.7585E+00, 0.7599E+00, 0.7614E+00, 0.7628E+00,& - 0.7643E+00, 0.7657E+00, 0.7671E+00, 0.7686E+00,& - 0.7700E+00, 0.7715E+00, 0.7730E+00, 0.7744E+00,& - 0.7759E+00, 0.7773E+00, 0.7788E+00, 0.7802E+00,& - 0.7817E+00, 0.7832E+00, 0.7846E+00, 0.7861E+00,& - 0.7876E+00, 0.7890E+00, 0.7905E+00, 0.7920E+00,& - 0.7934E+00, 0.7949E+00, 0.7964E+00, 0.7979E+00,& - 0.7993E+00, 0.8008E+00, 0.8023E+00, 0.8038E+00,& - 0.8053E+00, 0.8068E+00, 0.8082E+00, 0.8097E+00,& - 0.8112E+00, 0.8127E+00, 0.8142E+00, 0.8157E+00,& - 0.8172E+00, 0.8187E+00, 0.8202E+00, 0.8217E+00,& - 0.8232E+00, 0.8247E+00, 0.8262E+00, 0.8277E+00,& - 0.8293E+00, 0.8308E+00, 0.8323E+00, 0.8338E+00,& - 0.8353E+00, 0.8368E+00, 0.8384E+00, 0.8399E+00,& - 0.8414E+00, 0.8429E+00, 0.8445E+00, 0.8460E+00,& - 0.8475E+00, 0.8491E+00, 0.8506E+00, 0.8521E+00,& - 0.8537E+00, 0.8552E+00, 0.8568E+00, 0.8583E+00,& - 0.8599E+00, 0.8614E+00, 0.8630E+00, 0.8645E+00,& - 0.8661E+00, 0.8676E+00, 0.8692E+00, 0.8707E+00,& - 0.8723E+00, 0.8739E+00, 0.8754E+00, 0.8770E+00,& - 0.8786E+00, 0.8802E+00, 0.8817E+00, 0.8833E+00,& - 0.8849E+00, 0.8865E+00, 0.8881E+00, 0.8896E+00,& - 0.8912E+00, 0.8928E+00, 0.8944E+00, 0.8960E+00,& - 0.8976E+00, 0.8992E+00, 0.9008E+00, 0.9024E+00,& - 0.9040E+00, 0.9056E+00, 0.9072E+00, 0.9089E+00,& - 0.9105E+00, 0.9121E+00, 0.9137E+00, 0.9153E+00,& - 0.9170E+00, 0.9186E+00, 0.9202E+00, 0.9218E+00,& - 0.9235E+00, 0.9251E+00, 0.9267E+00, 0.9284E+00,& - 0.9300E+00, 0.9317E+00, 0.9333E+00, 0.9350E+00,& - 0.9366E+00, 0.9383E+00, 0.9400E+00, 0.9416E+00,& - 0.9433E+00, 0.9449E+00, 0.9466E+00, 0.9483E+00,& - 0.9500E+00, 0.9516E+00, 0.9533E+00, 0.9550E+00,& - 0.9567E+00, 0.9584E+00, 0.9601E+00, 0.9617E+00,& - 0.9634E+00, 0.9651E+00, 0.9668E+00, 0.9685E+00,& - 0.9703E+00, 0.9720E+00, 0.9737E+00, 0.9754E+00,& - 0.9771E+00, 0.9788E+00, 0.9806E+00, 0.9823E+00,& - 0.9840E+00, 0.9857E+00, 0.9875E+00, 0.9892E+00,& - 0.9910E+00, 0.9927E+00, 0.9945E+00, 0.9962E+00,& - 0.9980E+00, 0.9997E+00, 0.1001E+01, 0.1003E+01,& - 0.1005E+01, 0.1007E+01, 0.1009E+01, 0.1010E+01,& - 0.1012E+01, 0.1014E+01, 0.1016E+01, 0.1017E+01,& - 0.1019E+01, 0.1021E+01, 0.1023E+01, 0.1025E+01,& - 0.1026E+01, 0.1028E+01, 0.1030E+01, 0.1032E+01,& - 0.1034E+01, 0.1036E+01, 0.1037E+01, 0.1039E+01,& - 0.1041E+01, 0.1043E+01, 0.1045E+01, 0.1047E+01,& - 0.1048E+01, 0.1050E+01, 0.1052E+01, 0.1054E+01,& - 0.1056E+01, 0.1058E+01, 0.1060E+01, 0.1061E+01,& - 0.1063E+01, 0.1065E+01, 0.1067E+01, 0.1069E+01,& - 0.1071E+01, 0.1073E+01, 0.1075E+01, 0.1077E+01,& - 0.1078E+01, 0.1080E+01, 0.1082E+01, 0.1084E+01,& - 0.1086E+01, 0.1088E+01, 0.1090E+01, 0.1092E+01,& - 0.1094E+01, 0.1096E+01, 0.1098E+01, 0.1100E+01,& - 0.1102E+01, 0.1104E+01, 0.1106E+01, 0.1108E+01,& - 0.1109E+01, 0.1111E+01, 0.1113E+01, 0.1115E+01,& - 0.1117E+01, 0.1119E+01, 0.1121E+01, 0.1123E+01,& - 0.1125E+01, 0.1127E+01, 0.1129E+01, 0.1131E+01,& - 0.1134E+01, 0.1136E+01, 0.1138E+01, 0.1140E+01,& - 0.1142E+01, 0.1144E+01, 0.1146E+01, 0.1148E+01,& - 0.1150E+01, 0.1152E+01, 0.1154E+01, 0.1156E+01,& - 0.1158E+01, 0.1160E+01, 0.1162E+01, 0.1165E+01,& - 0.1167E+01, 0.1169E+01, 0.1171E+01, 0.1173E+01,& - 0.1175E+01, 0.1177E+01, 0.1179E+01, 0.1182E+01,& - 0.1184E+01, 0.1186E+01, 0.1188E+01, 0.1190E+01,& - 0.1192E+01, 0.1194E+01, 0.1197E+01, 0.1199E+01,& - 0.1201E+01, 0.1203E+01, 0.1205E+01, 0.1208E+01,& - 0.1210E+01, 0.1212E+01, 0.1214E+01, 0.1217E+01,& - 0.1219E+01, 0.1221E+01, 0.1223E+01, 0.1226E+01,& - 0.1228E+01, 0.1230E+01, 0.1232E+01, 0.1235E+01,& - 0.1237E+01, 0.1239E+01, 0.1242E+01, 0.1244E+01,& - 0.1246E+01, 0.1249E+01, 0.1251E+01, 0.1253E+01,& - 0.1256E+01, 0.1258E+01, 0.1260E+01, 0.1263E+01,& - 0.1265E+01, 0.1267E+01, 0.1270E+01, 0.1272E+01,& - 0.1275E+01, 0.1277E+01, 0.1279E+01, 0.1282E+01,& - 0.1284E+01, 0.1287E+01, 0.1289E+01, 0.1292E+01,& - 0.1294E+01, 0.1296E+01, 0.1299E+01, 0.1301E+01,& - 0.1304E+01, 0.1306E+01, 0.1309E+01, 0.1311E+01,& - 0.1314E+01, 0.1317E+01, 0.1319E+01, 0.1322E+01,& - 0.1324E+01, 0.1327E+01, 0.1329E+01, 0.1332E+01,& - 0.1334E+01, 0.1337E+01, 0.1340E+01, 0.1342E+01,& - 0.1345E+01, 0.1348E+01, 0.1350E+01, 0.1353E+01,& - 0.1356E+01, 0.1358E+01, 0.1361E+01, 0.1364E+01,& - 0.1366E+01, 0.1369E+01, 0.1372E+01, 0.1374E+01,& - 0.1377E+01, 0.1380E+01, 0.1383E+01, 0.1385E+01,& - 0.1388E+01, 0.1391E+01, 0.1394E+01, 0.1397E+01,& - 0.1399E+01, 0.1402E+01, 0.1405E+01, 0.1408E+01,& - 0.1411E+01, 0.1414E+01, 0.1417E+01, 0.1420E+01,& - 0.1422E+01, 0.1425E+01, 0.1428E+01, 0.1431E+01,& - 0.1434E+01, 0.1437E+01, 0.1440E+01, 0.1443E+01,& - 0.1446E+01, 0.1449E+01, 0.1452E+01, 0.1455E+01,& - 0.1458E+01, 0.1461E+01, 0.1464E+01, 0.1468E+01,& - 0.1471E+01, 0.1474E+01, 0.1477E+01, 0.1480E+01,& - 0.1483E+01, 0.1486E+01, 0.1490E+01, 0.1493E+01,& - 0.1496E+01, 0.1499E+01, 0.1503E+01, 0.1506E+01,& - 0.1509E+01, 0.1512E+01, 0.1516E+01, 0.1519E+01,& - 0.1522E+01, 0.1526E+01, 0.1529E+01, 0.1533E+01,& - 0.1536E+01, 0.1539E+01, 0.1543E+01, 0.1546E+01,& - 0.1550E+01, 0.1553E+01, 0.1557E+01, 0.1560E+01,& - 0.1564E+01, 0.1567E+01, 0.1571E+01, 0.1575E+01,& - 0.1578E+01, 0.1582E+01, 0.1585E+01, 0.1589E+01,& - 0.1593E+01, 0.1596E+01, 0.1600E+01, 0.1604E+01,& - 0.1608E+01, 0.1612E+01, 0.1615E+01, 0.1619E+01,& - 0.1623E+01, 0.1627E+01, 0.1631E+01, 0.1635E+01,& - 0.1639E+01, 0.1643E+01, 0.1647E+01, 0.1651E+01,& - 0.1655E+01, 0.1659E+01, 0.1663E+01, 0.1667E+01,& - 0.1671E+01, 0.1675E+01, 0.1680E+01, 0.1684E+01,& - 0.1688E+01, 0.1692E+01, 0.1697E+01, 0.1701E+01,& - 0.1705E+01, 0.1710E+01, 0.1714E+01, 0.1719E+01,& - 0.1723E+01, 0.1727E+01, 0.1732E+01, 0.1737E+01,& - 0.1741E+01, 0.1746E+01, 0.1750E+01, 0.1755E+01,& - 0.1760E+01, 0.1765E+01, 0.1769E+01, 0.1774E+01,& - 0.1779E+01, 0.1784E+01, 0.1789E+01, 0.1794E+01,& - 0.1799E+01, 0.1804E+01, 0.1809E+01, 0.1814E+01,& - 0.1819E+01, 0.1825E+01, 0.1830E+01, 0.1835E+01,& - 0.1841E+01, 0.1846E+01, 0.1851E+01, 0.1857E+01,& - 0.1862E+01, 0.1868E+01, 0.1874E+01, 0.1879E+01,& - 0.1885E+01, 0.1891E+01, 0.1897E+01, 0.1903E+01,& - 0.1908E+01, 0.1914E+01, 0.1921E+01, 0.1927E+01,& - 0.1933E+01, 0.1939E+01, 0.1945E+01, 0.1952E+01,& - 0.1958E+01, 0.1965E+01, 0.1971E+01, 0.1978E+01,& - 0.1984E+01, 0.1991E+01, 0.1998E+01, 0.2005E+01,& - 0.2012E+01, 0.2019E+01, 0.2026E+01, 0.2033E+01,& - 0.2041E+01, 0.2048E+01, 0.2056E+01, 0.2063E+01,& - 0.2071E+01, 0.2079E+01, 0.2087E+01, 0.2095E+01,& - 0.2103E+01, 0.2111E+01, 0.2119E+01, 0.2128E+01,& - 0.2136E+01, 0.2145E+01, 0.2154E+01, 0.2162E+01,& - 0.2172E+01, 0.2181E+01, 0.2190E+01, 0.2199E+01,& - 0.2209E+01, 0.2219E+01, 0.2229E+01, 0.2239E+01,& - 0.2249E+01, 0.2260E+01, 0.2270E+01, 0.2281E+01,& - 0.2292E+01, 0.2303E+01, 0.2315E+01, 0.2326E+01,& - 0.2338E+01, 0.2350E+01, 0.2363E+01, 0.2376E+01,& - 0.2389E+01, 0.2402E+01, 0.2415E+01, 0.2429E+01,& - 0.2443E+01, 0.2458E+01, 0.2473E+01, 0.2488E+01,& - 0.2504E+01, 0.2520E+01, 0.2537E+01, 0.2554E+01,& - 0.2571E+01, 0.2590E+01, 0.2608E+01, 0.2628E+01,& - 0.2648E+01, 0.2669E+01, 0.2690E+01, 0.2713E+01,& - 0.2736E+01, 0.2760E+01, 0.2786E+01, 0.2813E+01,& - 0.2841E+01, 0.2870E+01, 0.2901E+01, 0.2934E+01,& - 0.2969E+01, 0.3006E+01, 0.3046E+01, 0.3090E+01,& - 0.3136E+01, 0.3187E+01, 0.3244E+01, 0.3306E+01,& - 0.3377E+01, 0.3459E+01, 0.3555E+01, 0.3673E+01,& - 0.1000E-04, 0.2416E-01, 0.3415E-01, 0.4187E-01/) - xcw(:, 25) = (/& - 0.1000E-04, 0.2416E-01, 0.3415E-01, 0.4187E-01,& - 0.4842E-01, 0.5423E-01, 0.5950E-01, 0.6438E-01,& - 0.6894E-01, 0.7325E-01, 0.7734E-01, 0.8124E-01,& - 0.8499E-01, 0.8860E-01, 0.9209E-01, 0.9547E-01,& - 0.9875E-01, 0.1019E+00, 0.1051E+00, 0.1081E+00,& - 0.1111E+00, 0.1140E+00, 0.1168E+00, 0.1196E+00,& - 0.1223E+00, 0.1250E+00, 0.1277E+00, 0.1303E+00,& - 0.1329E+00, 0.1354E+00, 0.1379E+00, 0.1403E+00,& - 0.1428E+00, 0.1452E+00, 0.1475E+00, 0.1499E+00,& - 0.1522E+00, 0.1545E+00, 0.1567E+00, 0.1590E+00,& - 0.1612E+00, 0.1634E+00, 0.1656E+00, 0.1677E+00,& - 0.1699E+00, 0.1720E+00, 0.1741E+00, 0.1762E+00,& - 0.1782E+00, 0.1803E+00, 0.1823E+00, 0.1843E+00,& - 0.1863E+00, 0.1883E+00, 0.1903E+00, 0.1923E+00,& - 0.1942E+00, 0.1962E+00, 0.1981E+00, 0.2000E+00,& - 0.2019E+00, 0.2038E+00, 0.2057E+00, 0.2075E+00,& - 0.2094E+00, 0.2112E+00, 0.2131E+00, 0.2149E+00,& - 0.2167E+00, 0.2186E+00, 0.2204E+00, 0.2221E+00,& - 0.2239E+00, 0.2257E+00, 0.2275E+00, 0.2292E+00,& - 0.2310E+00, 0.2327E+00, 0.2345E+00, 0.2362E+00,& - 0.2379E+00, 0.2397E+00, 0.2414E+00, 0.2431E+00,& - 0.2448E+00, 0.2465E+00, 0.2481E+00, 0.2498E+00,& - 0.2515E+00, 0.2532E+00, 0.2548E+00, 0.2565E+00,& - 0.2581E+00, 0.2598E+00, 0.2614E+00, 0.2630E+00,& - 0.2647E+00, 0.2663E+00, 0.2679E+00, 0.2695E+00,& - 0.2711E+00, 0.2728E+00, 0.2744E+00, 0.2759E+00,& - 0.2775E+00, 0.2791E+00, 0.2807E+00, 0.2823E+00,& - 0.2839E+00, 0.2854E+00, 0.2870E+00, 0.2886E+00,& - 0.2901E+00, 0.2917E+00, 0.2932E+00, 0.2948E+00,& - 0.2963E+00, 0.2979E+00, 0.2994E+00, 0.3009E+00,& - 0.3025E+00, 0.3040E+00, 0.3055E+00, 0.3070E+00,& - 0.3086E+00, 0.3101E+00, 0.3116E+00, 0.3131E+00,& - 0.3146E+00, 0.3161E+00, 0.3176E+00, 0.3191E+00,& - 0.3206E+00, 0.3221E+00, 0.3236E+00, 0.3251E+00,& - 0.3266E+00, 0.3280E+00, 0.3295E+00, 0.3310E+00,& - 0.3325E+00, 0.3339E+00, 0.3354E+00, 0.3369E+00,& - 0.3383E+00, 0.3398E+00, 0.3413E+00, 0.3427E+00,& - 0.3442E+00, 0.3456E+00, 0.3471E+00, 0.3485E+00,& - 0.3500E+00, 0.3514E+00, 0.3529E+00, 0.3543E+00,& - 0.3558E+00, 0.3572E+00, 0.3586E+00, 0.3601E+00,& - 0.3615E+00, 0.3629E+00, 0.3644E+00, 0.3658E+00,& - 0.3672E+00, 0.3687E+00, 0.3701E+00, 0.3715E+00,& - 0.3729E+00, 0.3743E+00, 0.3758E+00, 0.3772E+00,& - 0.3786E+00, 0.3800E+00, 0.3814E+00, 0.3828E+00,& - 0.3842E+00, 0.3856E+00, 0.3871E+00, 0.3885E+00,& - 0.3899E+00, 0.3913E+00, 0.3927E+00, 0.3941E+00,& - 0.3955E+00, 0.3969E+00, 0.3983E+00, 0.3997E+00,& - 0.4011E+00, 0.4024E+00, 0.4038E+00, 0.4052E+00,& - 0.4066E+00, 0.4080E+00, 0.4094E+00, 0.4108E+00,& - 0.4122E+00, 0.4136E+00, 0.4149E+00, 0.4163E+00,& - 0.4177E+00, 0.4191E+00, 0.4205E+00, 0.4219E+00,& - 0.4232E+00, 0.4246E+00, 0.4260E+00, 0.4274E+00,& - 0.4287E+00, 0.4301E+00, 0.4315E+00, 0.4329E+00,& - 0.4342E+00, 0.4356E+00, 0.4370E+00, 0.4384E+00,& - 0.4397E+00, 0.4411E+00, 0.4425E+00, 0.4438E+00,& - 0.4452E+00, 0.4466E+00, 0.4480E+00, 0.4493E+00,& - 0.4507E+00, 0.4520E+00, 0.4534E+00, 0.4548E+00,& - 0.4561E+00, 0.4575E+00, 0.4589E+00, 0.4602E+00,& - 0.4616E+00, 0.4630E+00, 0.4643E+00, 0.4657E+00,& - 0.4671E+00, 0.4684E+00, 0.4698E+00, 0.4711E+00,& - 0.4725E+00, 0.4739E+00, 0.4752E+00, 0.4766E+00,& - 0.4779E+00, 0.4793E+00, 0.4807E+00, 0.4820E+00,& - 0.4834E+00, 0.4847E+00, 0.4861E+00, 0.4874E+00,& - 0.4888E+00, 0.4902E+00, 0.4915E+00, 0.4929E+00,& - 0.4942E+00, 0.4956E+00, 0.4969E+00, 0.4983E+00,& - 0.4997E+00, 0.5010E+00, 0.5024E+00, 0.5037E+00,& - 0.5051E+00, 0.5064E+00, 0.5078E+00, 0.5091E+00,& - 0.5105E+00, 0.5119E+00, 0.5132E+00, 0.5146E+00,& - 0.5159E+00, 0.5173E+00, 0.5186E+00, 0.5200E+00,& - 0.5214E+00, 0.5227E+00, 0.5241E+00, 0.5254E+00,& - 0.5268E+00, 0.5281E+00, 0.5295E+00, 0.5308E+00,& - 0.5322E+00, 0.5336E+00, 0.5349E+00, 0.5363E+00,& - 0.5376E+00, 0.5390E+00, 0.5404E+00, 0.5417E+00,& - 0.5431E+00, 0.5444E+00, 0.5458E+00, 0.5471E+00,& - 0.5485E+00, 0.5499E+00, 0.5512E+00, 0.5526E+00,& - 0.5540E+00, 0.5553E+00, 0.5567E+00, 0.5580E+00,& - 0.5594E+00, 0.5608E+00, 0.5621E+00, 0.5635E+00,& - 0.5649E+00, 0.5662E+00, 0.5676E+00, 0.5689E+00,& - 0.5703E+00, 0.5717E+00, 0.5730E+00, 0.5744E+00,& - 0.5758E+00, 0.5771E+00, 0.5785E+00, 0.5799E+00,& - 0.5812E+00, 0.5826E+00, 0.5840E+00, 0.5854E+00,& - 0.5867E+00, 0.5881E+00, 0.5895E+00, 0.5908E+00,& - 0.5922E+00, 0.5936E+00, 0.5950E+00, 0.5963E+00,& - 0.5977E+00, 0.5991E+00, 0.6005E+00, 0.6018E+00,& - 0.6032E+00, 0.6046E+00, 0.6060E+00, 0.6073E+00,& - 0.6087E+00, 0.6101E+00, 0.6115E+00, 0.6129E+00,& - 0.6142E+00, 0.6156E+00, 0.6170E+00, 0.6184E+00,& - 0.6198E+00, 0.6212E+00, 0.6226E+00, 0.6239E+00,& - 0.6253E+00, 0.6267E+00, 0.6281E+00, 0.6295E+00,& - 0.6309E+00, 0.6323E+00, 0.6337E+00, 0.6351E+00,& - 0.6365E+00, 0.6378E+00, 0.6392E+00, 0.6406E+00,& - 0.6420E+00, 0.6434E+00, 0.6448E+00, 0.6462E+00,& - 0.6476E+00, 0.6490E+00, 0.6504E+00, 0.6518E+00,& - 0.6532E+00, 0.6546E+00, 0.6561E+00, 0.6575E+00,& - 0.6589E+00, 0.6603E+00, 0.6617E+00, 0.6631E+00,& - 0.6645E+00, 0.6659E+00, 0.6673E+00, 0.6687E+00,& - 0.6702E+00, 0.6716E+00, 0.6730E+00, 0.6744E+00,& - 0.6758E+00, 0.6772E+00, 0.6787E+00, 0.6801E+00,& - 0.6815E+00, 0.6829E+00, 0.6844E+00, 0.6858E+00,& - 0.6872E+00, 0.6886E+00, 0.6901E+00, 0.6915E+00,& - 0.6929E+00, 0.6944E+00, 0.6958E+00, 0.6972E+00,& - 0.6987E+00, 0.7001E+00, 0.7015E+00, 0.7030E+00,& - 0.7044E+00, 0.7059E+00, 0.7073E+00, 0.7087E+00,& - 0.7102E+00, 0.7116E+00, 0.7131E+00, 0.7145E+00,& - 0.7160E+00, 0.7174E+00, 0.7189E+00, 0.7203E+00,& - 0.7218E+00, 0.7232E+00, 0.7247E+00, 0.7262E+00,& - 0.7276E+00, 0.7291E+00, 0.7305E+00, 0.7320E+00,& - 0.7335E+00, 0.7349E+00, 0.7364E+00, 0.7379E+00,& - 0.7394E+00, 0.7408E+00, 0.7423E+00, 0.7438E+00,& - 0.7452E+00, 0.7467E+00, 0.7482E+00, 0.7497E+00,& - 0.7512E+00, 0.7527E+00, 0.7541E+00, 0.7556E+00,& - 0.7571E+00, 0.7586E+00, 0.7601E+00, 0.7616E+00,& - 0.7631E+00, 0.7646E+00, 0.7661E+00, 0.7676E+00,& - 0.7691E+00, 0.7706E+00, 0.7721E+00, 0.7736E+00,& - 0.7751E+00, 0.7766E+00, 0.7781E+00, 0.7796E+00,& - 0.7811E+00, 0.7826E+00, 0.7842E+00, 0.7857E+00,& - 0.7872E+00, 0.7887E+00, 0.7902E+00, 0.7918E+00,& - 0.7933E+00, 0.7948E+00, 0.7963E+00, 0.7979E+00,& - 0.7994E+00, 0.8009E+00, 0.8025E+00, 0.8040E+00,& - 0.8055E+00, 0.8071E+00, 0.8086E+00, 0.8102E+00,& - 0.8117E+00, 0.8133E+00, 0.8148E+00, 0.8164E+00,& - 0.8179E+00, 0.8195E+00, 0.8210E+00, 0.8226E+00,& - 0.8242E+00, 0.8257E+00, 0.8273E+00, 0.8289E+00,& - 0.8304E+00, 0.8320E+00, 0.8336E+00, 0.8351E+00,& - 0.8367E+00, 0.8383E+00, 0.8399E+00, 0.8415E+00,& - 0.8430E+00, 0.8446E+00, 0.8462E+00, 0.8478E+00,& - 0.8494E+00, 0.8510E+00, 0.8526E+00, 0.8542E+00,& - 0.8558E+00, 0.8574E+00, 0.8590E+00, 0.8606E+00,& - 0.8622E+00, 0.8638E+00, 0.8655E+00, 0.8671E+00,& - 0.8687E+00, 0.8703E+00, 0.8719E+00, 0.8736E+00,& - 0.8752E+00, 0.8768E+00, 0.8785E+00, 0.8801E+00,& - 0.8817E+00, 0.8834E+00, 0.8850E+00, 0.8866E+00,& - 0.8883E+00, 0.8899E+00, 0.8916E+00, 0.8932E+00,& - 0.8949E+00, 0.8966E+00, 0.8982E+00, 0.8999E+00,& - 0.9015E+00, 0.9032E+00, 0.9049E+00, 0.9066E+00,& - 0.9082E+00, 0.9099E+00, 0.9116E+00, 0.9133E+00,& - 0.9150E+00, 0.9166E+00, 0.9183E+00, 0.9200E+00,& - 0.9217E+00, 0.9234E+00, 0.9251E+00, 0.9268E+00,& - 0.9285E+00, 0.9302E+00, 0.9320E+00, 0.9337E+00,& - 0.9354E+00, 0.9371E+00, 0.9388E+00, 0.9406E+00,& - 0.9423E+00, 0.9440E+00, 0.9457E+00, 0.9475E+00,& - 0.9492E+00, 0.9510E+00, 0.9527E+00, 0.9545E+00,& - 0.9562E+00, 0.9580E+00, 0.9597E+00, 0.9615E+00,& - 0.9632E+00, 0.9650E+00, 0.9668E+00, 0.9686E+00,& - 0.9703E+00, 0.9721E+00, 0.9739E+00, 0.9757E+00,& - 0.9775E+00, 0.9792E+00, 0.9810E+00, 0.9828E+00,& - 0.9846E+00, 0.9864E+00, 0.9882E+00, 0.9901E+00,& - 0.9919E+00, 0.9937E+00, 0.9955E+00, 0.9973E+00,& - 0.9992E+00, 0.1001E+01, 0.1003E+01, 0.1005E+01,& - 0.1006E+01, 0.1008E+01, 0.1010E+01, 0.1012E+01,& - 0.1014E+01, 0.1016E+01, 0.1018E+01, 0.1019E+01,& - 0.1021E+01, 0.1023E+01, 0.1025E+01, 0.1027E+01,& - 0.1029E+01, 0.1031E+01, 0.1033E+01, 0.1034E+01,& - 0.1036E+01, 0.1038E+01, 0.1040E+01, 0.1042E+01,& - 0.1044E+01, 0.1046E+01, 0.1048E+01, 0.1050E+01,& - 0.1052E+01, 0.1054E+01, 0.1056E+01, 0.1058E+01,& - 0.1059E+01, 0.1061E+01, 0.1063E+01, 0.1065E+01,& - 0.1067E+01, 0.1069E+01, 0.1071E+01, 0.1073E+01,& - 0.1075E+01, 0.1077E+01, 0.1079E+01, 0.1081E+01,& - 0.1083E+01, 0.1085E+01, 0.1087E+01, 0.1089E+01,& - 0.1091E+01, 0.1093E+01, 0.1095E+01, 0.1097E+01,& - 0.1099E+01, 0.1101E+01, 0.1103E+01, 0.1105E+01,& - 0.1107E+01, 0.1109E+01, 0.1111E+01, 0.1113E+01,& - 0.1116E+01, 0.1118E+01, 0.1120E+01, 0.1122E+01,& - 0.1124E+01, 0.1126E+01, 0.1128E+01, 0.1130E+01,& - 0.1132E+01, 0.1134E+01, 0.1136E+01, 0.1139E+01,& - 0.1141E+01, 0.1143E+01, 0.1145E+01, 0.1147E+01,& - 0.1149E+01, 0.1151E+01, 0.1154E+01, 0.1156E+01,& - 0.1158E+01, 0.1160E+01, 0.1162E+01, 0.1164E+01,& - 0.1167E+01, 0.1169E+01, 0.1171E+01, 0.1173E+01,& - 0.1175E+01, 0.1178E+01, 0.1180E+01, 0.1182E+01,& - 0.1184E+01, 0.1187E+01, 0.1189E+01, 0.1191E+01,& - 0.1193E+01, 0.1196E+01, 0.1198E+01, 0.1200E+01,& - 0.1202E+01, 0.1205E+01, 0.1207E+01, 0.1209E+01,& - 0.1212E+01, 0.1214E+01, 0.1216E+01, 0.1218E+01,& - 0.1221E+01, 0.1223E+01, 0.1225E+01, 0.1228E+01,& - 0.1230E+01, 0.1233E+01, 0.1235E+01, 0.1237E+01,& - 0.1240E+01, 0.1242E+01, 0.1244E+01, 0.1247E+01,& - 0.1249E+01, 0.1252E+01, 0.1254E+01, 0.1257E+01,& - 0.1259E+01, 0.1261E+01, 0.1264E+01, 0.1266E+01,& - 0.1269E+01, 0.1271E+01, 0.1274E+01, 0.1276E+01,& - 0.1279E+01, 0.1281E+01, 0.1284E+01, 0.1286E+01,& - 0.1289E+01, 0.1291E+01, 0.1294E+01, 0.1296E+01,& - 0.1299E+01, 0.1302E+01, 0.1304E+01, 0.1307E+01,& - 0.1309E+01, 0.1312E+01, 0.1315E+01, 0.1317E+01,& - 0.1320E+01, 0.1322E+01, 0.1325E+01, 0.1328E+01,& - 0.1330E+01, 0.1333E+01, 0.1336E+01, 0.1338E+01,& - 0.1341E+01, 0.1344E+01, 0.1347E+01, 0.1349E+01,& - 0.1352E+01, 0.1355E+01, 0.1357E+01, 0.1360E+01,& - 0.1363E+01, 0.1366E+01, 0.1369E+01, 0.1371E+01,& - 0.1374E+01, 0.1377E+01, 0.1380E+01, 0.1383E+01,& - 0.1386E+01, 0.1388E+01, 0.1391E+01, 0.1394E+01,& - 0.1397E+01, 0.1400E+01, 0.1403E+01, 0.1406E+01,& - 0.1409E+01, 0.1412E+01, 0.1415E+01, 0.1418E+01,& - 0.1421E+01, 0.1423E+01, 0.1427E+01, 0.1430E+01,& - 0.1433E+01, 0.1436E+01, 0.1439E+01, 0.1442E+01,& - 0.1445E+01, 0.1448E+01, 0.1451E+01, 0.1454E+01,& - 0.1458E+01, 0.1461E+01, 0.1464E+01, 0.1467E+01,& - 0.1470E+01, 0.1473E+01, 0.1477E+01, 0.1480E+01,& - 0.1483E+01, 0.1486E+01, 0.1490E+01, 0.1493E+01,& - 0.1496E+01, 0.1500E+01, 0.1503E+01, 0.1506E+01,& - 0.1510E+01, 0.1513E+01, 0.1516E+01, 0.1520E+01,& - 0.1523E+01, 0.1527E+01, 0.1530E+01, 0.1534E+01,& - 0.1537E+01, 0.1541E+01, 0.1544E+01, 0.1548E+01,& - 0.1551E+01, 0.1555E+01, 0.1558E+01, 0.1562E+01,& - 0.1566E+01, 0.1569E+01, 0.1573E+01, 0.1577E+01,& - 0.1580E+01, 0.1584E+01, 0.1588E+01, 0.1592E+01,& - 0.1595E+01, 0.1599E+01, 0.1603E+01, 0.1607E+01,& - 0.1611E+01, 0.1615E+01, 0.1618E+01, 0.1622E+01,& - 0.1626E+01, 0.1630E+01, 0.1634E+01, 0.1638E+01,& - 0.1642E+01, 0.1646E+01, 0.1650E+01, 0.1655E+01,& - 0.1659E+01, 0.1663E+01, 0.1667E+01, 0.1671E+01,& - 0.1675E+01, 0.1680E+01, 0.1684E+01, 0.1688E+01,& - 0.1693E+01, 0.1697E+01, 0.1701E+01, 0.1706E+01,& - 0.1710E+01, 0.1715E+01, 0.1719E+01, 0.1724E+01,& - 0.1728E+01, 0.1733E+01, 0.1738E+01, 0.1742E+01,& - 0.1747E+01, 0.1752E+01, 0.1756E+01, 0.1761E+01,& - 0.1766E+01, 0.1771E+01, 0.1776E+01, 0.1781E+01,& - 0.1786E+01, 0.1790E+01, 0.1796E+01, 0.1801E+01,& - 0.1806E+01, 0.1811E+01, 0.1816E+01, 0.1821E+01,& - 0.1826E+01, 0.1832E+01, 0.1837E+01, 0.1842E+01,& - 0.1848E+01, 0.1853E+01, 0.1859E+01, 0.1864E+01,& - 0.1870E+01, 0.1876E+01, 0.1881E+01, 0.1887E+01,& - 0.1893E+01, 0.1899E+01, 0.1905E+01, 0.1911E+01,& - 0.1917E+01, 0.1923E+01, 0.1929E+01, 0.1935E+01,& - 0.1941E+01, 0.1948E+01, 0.1954E+01, 0.1960E+01,& - 0.1967E+01, 0.1973E+01, 0.1980E+01, 0.1987E+01,& - 0.1993E+01, 0.2000E+01, 0.2007E+01, 0.2014E+01,& - 0.2021E+01, 0.2028E+01, 0.2035E+01, 0.2043E+01,& - 0.2050E+01, 0.2057E+01, 0.2065E+01, 0.2072E+01,& - 0.2080E+01, 0.2088E+01, 0.2096E+01, 0.2104E+01,& - 0.2112E+01, 0.2120E+01, 0.2128E+01, 0.2137E+01,& - 0.2145E+01, 0.2154E+01, 0.2163E+01, 0.2171E+01,& - 0.2180E+01, 0.2189E+01, 0.2199E+01, 0.2208E+01,& - 0.2218E+01, 0.2227E+01, 0.2237E+01, 0.2247E+01,& - 0.2257E+01, 0.2267E+01, 0.2278E+01, 0.2288E+01,& - 0.2299E+01, 0.2310E+01, 0.2321E+01, 0.2333E+01,& - 0.2344E+01, 0.2356E+01, 0.2368E+01, 0.2381E+01,& - 0.2393E+01, 0.2406E+01, 0.2419E+01, 0.2432E+01,& - 0.2446E+01, 0.2460E+01, 0.2474E+01, 0.2489E+01,& - 0.2504E+01, 0.2519E+01, 0.2535E+01, 0.2551E+01,& - 0.2568E+01, 0.2585E+01, 0.2602E+01, 0.2620E+01,& - 0.2639E+01, 0.2658E+01, 0.2678E+01, 0.2698E+01,& - 0.2719E+01, 0.2741E+01, 0.2764E+01, 0.2788E+01,& - 0.2813E+01, 0.2838E+01, 0.2865E+01, 0.2893E+01,& - 0.2923E+01, 0.2954E+01, 0.2987E+01, 0.3022E+01,& - 0.3059E+01, 0.3098E+01, 0.3140E+01, 0.3186E+01,& - 0.3235E+01, 0.3289E+01, 0.3349E+01, 0.3415E+01,& - 0.3491E+01, 0.3577E+01, 0.3679E+01, 0.3803E+01,& - 0.1000E-04, 0.1939E-01, 0.2808E-01, 0.3490E-01/) - xcw(:, 26) = (/& - 0.1000E-04, 0.1939E-01, 0.2808E-01, 0.3490E-01,& - 0.4075E-01, 0.4598E-01, 0.5076E-01, 0.5521E-01,& - 0.5938E-01, 0.6334E-01, 0.6710E-01, 0.7072E-01,& - 0.7419E-01, 0.7755E-01, 0.8080E-01, 0.8396E-01,& - 0.8703E-01, 0.9002E-01, 0.9294E-01, 0.9579E-01,& - 0.9859E-01, 0.1013E+00, 0.1040E+00, 0.1067E+00,& - 0.1093E+00, 0.1118E+00, 0.1143E+00, 0.1168E+00,& - 0.1192E+00, 0.1216E+00, 0.1240E+00, 0.1264E+00,& - 0.1287E+00, 0.1310E+00, 0.1332E+00, 0.1355E+00,& - 0.1377E+00, 0.1399E+00, 0.1421E+00, 0.1442E+00,& - 0.1463E+00, 0.1485E+00, 0.1505E+00, 0.1526E+00,& - 0.1547E+00, 0.1567E+00, 0.1588E+00, 0.1608E+00,& - 0.1628E+00, 0.1647E+00, 0.1667E+00, 0.1687E+00,& - 0.1706E+00, 0.1725E+00, 0.1744E+00, 0.1763E+00,& - 0.1782E+00, 0.1801E+00, 0.1820E+00, 0.1839E+00,& - 0.1857E+00, 0.1875E+00, 0.1894E+00, 0.1912E+00,& - 0.1930E+00, 0.1948E+00, 0.1966E+00, 0.1984E+00,& - 0.2002E+00, 0.2019E+00, 0.2037E+00, 0.2054E+00,& - 0.2072E+00, 0.2089E+00, 0.2106E+00, 0.2124E+00,& - 0.2141E+00, 0.2158E+00, 0.2175E+00, 0.2192E+00,& - 0.2209E+00, 0.2226E+00, 0.2242E+00, 0.2259E+00,& - 0.2276E+00, 0.2292E+00, 0.2309E+00, 0.2325E+00,& - 0.2342E+00, 0.2358E+00, 0.2375E+00, 0.2391E+00,& - 0.2407E+00, 0.2423E+00, 0.2439E+00, 0.2455E+00,& - 0.2471E+00, 0.2487E+00, 0.2503E+00, 0.2519E+00,& - 0.2535E+00, 0.2551E+00, 0.2567E+00, 0.2582E+00,& - 0.2598E+00, 0.2614E+00, 0.2629E+00, 0.2645E+00,& - 0.2661E+00, 0.2676E+00, 0.2692E+00, 0.2707E+00,& - 0.2722E+00, 0.2738E+00, 0.2753E+00, 0.2769E+00,& - 0.2784E+00, 0.2799E+00, 0.2814E+00, 0.2829E+00,& - 0.2845E+00, 0.2860E+00, 0.2875E+00, 0.2890E+00,& - 0.2905E+00, 0.2920E+00, 0.2935E+00, 0.2950E+00,& - 0.2965E+00, 0.2980E+00, 0.2995E+00, 0.3010E+00,& - 0.3024E+00, 0.3039E+00, 0.3054E+00, 0.3069E+00,& - 0.3083E+00, 0.3098E+00, 0.3113E+00, 0.3128E+00,& - 0.3142E+00, 0.3157E+00, 0.3172E+00, 0.3186E+00,& - 0.3201E+00, 0.3215E+00, 0.3230E+00, 0.3244E+00,& - 0.3259E+00, 0.3273E+00, 0.3288E+00, 0.3302E+00,& - 0.3317E+00, 0.3331E+00, 0.3345E+00, 0.3360E+00,& - 0.3374E+00, 0.3389E+00, 0.3403E+00, 0.3417E+00,& - 0.3432E+00, 0.3446E+00, 0.3460E+00, 0.3474E+00,& - 0.3489E+00, 0.3503E+00, 0.3517E+00, 0.3531E+00,& - 0.3545E+00, 0.3560E+00, 0.3574E+00, 0.3588E+00,& - 0.3602E+00, 0.3616E+00, 0.3630E+00, 0.3644E+00,& - 0.3659E+00, 0.3673E+00, 0.3687E+00, 0.3701E+00,& - 0.3715E+00, 0.3729E+00, 0.3743E+00, 0.3757E+00,& - 0.3771E+00, 0.3785E+00, 0.3799E+00, 0.3813E+00,& - 0.3827E+00, 0.3841E+00, 0.3855E+00, 0.3869E+00,& - 0.3883E+00, 0.3897E+00, 0.3911E+00, 0.3924E+00,& - 0.3938E+00, 0.3952E+00, 0.3966E+00, 0.3980E+00,& - 0.3994E+00, 0.4008E+00, 0.4022E+00, 0.4035E+00,& - 0.4049E+00, 0.4063E+00, 0.4077E+00, 0.4091E+00,& - 0.4105E+00, 0.4119E+00, 0.4132E+00, 0.4146E+00,& - 0.4160E+00, 0.4174E+00, 0.4188E+00, 0.4201E+00,& - 0.4215E+00, 0.4229E+00, 0.4243E+00, 0.4256E+00,& - 0.4270E+00, 0.4284E+00, 0.4298E+00, 0.4311E+00,& - 0.4325E+00, 0.4339E+00, 0.4353E+00, 0.4366E+00,& - 0.4380E+00, 0.4394E+00, 0.4408E+00, 0.4421E+00,& - 0.4435E+00, 0.4449E+00, 0.4463E+00, 0.4476E+00,& - 0.4490E+00, 0.4504E+00, 0.4517E+00, 0.4531E+00,& - 0.4545E+00, 0.4559E+00, 0.4572E+00, 0.4586E+00,& - 0.4600E+00, 0.4613E+00, 0.4627E+00, 0.4641E+00,& - 0.4655E+00, 0.4668E+00, 0.4682E+00, 0.4696E+00,& - 0.4709E+00, 0.4723E+00, 0.4737E+00, 0.4750E+00,& - 0.4764E+00, 0.4778E+00, 0.4792E+00, 0.4805E+00,& - 0.4819E+00, 0.4833E+00, 0.4846E+00, 0.4860E+00,& - 0.4874E+00, 0.4887E+00, 0.4901E+00, 0.4915E+00,& - 0.4929E+00, 0.4942E+00, 0.4956E+00, 0.4970E+00,& - 0.4983E+00, 0.4997E+00, 0.5011E+00, 0.5025E+00,& - 0.5038E+00, 0.5052E+00, 0.5066E+00, 0.5080E+00,& - 0.5093E+00, 0.5107E+00, 0.5121E+00, 0.5134E+00,& - 0.5148E+00, 0.5162E+00, 0.5176E+00, 0.5189E+00,& - 0.5203E+00, 0.5217E+00, 0.5231E+00, 0.5244E+00,& - 0.5258E+00, 0.5272E+00, 0.5286E+00, 0.5300E+00,& - 0.5313E+00, 0.5327E+00, 0.5341E+00, 0.5355E+00,& - 0.5368E+00, 0.5382E+00, 0.5396E+00, 0.5410E+00,& - 0.5424E+00, 0.5438E+00, 0.5451E+00, 0.5465E+00,& - 0.5479E+00, 0.5493E+00, 0.5507E+00, 0.5521E+00,& - 0.5534E+00, 0.5548E+00, 0.5562E+00, 0.5576E+00,& - 0.5590E+00, 0.5604E+00, 0.5618E+00, 0.5632E+00,& - 0.5645E+00, 0.5659E+00, 0.5673E+00, 0.5687E+00,& - 0.5701E+00, 0.5715E+00, 0.5729E+00, 0.5743E+00,& - 0.5757E+00, 0.5771E+00, 0.5785E+00, 0.5799E+00,& - 0.5813E+00, 0.5827E+00, 0.5841E+00, 0.5855E+00,& - 0.5869E+00, 0.5883E+00, 0.5897E+00, 0.5911E+00,& - 0.5925E+00, 0.5939E+00, 0.5953E+00, 0.5967E+00,& - 0.5981E+00, 0.5995E+00, 0.6009E+00, 0.6023E+00,& - 0.6037E+00, 0.6051E+00, 0.6065E+00, 0.6080E+00,& - 0.6094E+00, 0.6108E+00, 0.6122E+00, 0.6136E+00,& - 0.6150E+00, 0.6164E+00, 0.6179E+00, 0.6193E+00,& - 0.6207E+00, 0.6221E+00, 0.6235E+00, 0.6250E+00,& - 0.6264E+00, 0.6278E+00, 0.6292E+00, 0.6307E+00,& - 0.6321E+00, 0.6335E+00, 0.6349E+00, 0.6364E+00,& - 0.6378E+00, 0.6392E+00, 0.6407E+00, 0.6421E+00,& - 0.6435E+00, 0.6450E+00, 0.6464E+00, 0.6478E+00,& - 0.6493E+00, 0.6507E+00, 0.6522E+00, 0.6536E+00,& - 0.6551E+00, 0.6565E+00, 0.6579E+00, 0.6594E+00,& - 0.6608E+00, 0.6623E+00, 0.6637E+00, 0.6652E+00,& - 0.6666E+00, 0.6681E+00, 0.6695E+00, 0.6710E+00,& - 0.6725E+00, 0.6739E+00, 0.6754E+00, 0.6768E+00,& - 0.6783E+00, 0.6798E+00, 0.6812E+00, 0.6827E+00,& - 0.6842E+00, 0.6856E+00, 0.6871E+00, 0.6886E+00,& - 0.6900E+00, 0.6915E+00, 0.6930E+00, 0.6945E+00,& - 0.6959E+00, 0.6974E+00, 0.6989E+00, 0.7004E+00,& - 0.7019E+00, 0.7033E+00, 0.7048E+00, 0.7063E+00,& - 0.7078E+00, 0.7093E+00, 0.7108E+00, 0.7123E+00,& - 0.7138E+00, 0.7153E+00, 0.7168E+00, 0.7183E+00,& - 0.7198E+00, 0.7213E+00, 0.7228E+00, 0.7243E+00,& - 0.7258E+00, 0.7273E+00, 0.7288E+00, 0.7303E+00,& - 0.7318E+00, 0.7333E+00, 0.7348E+00, 0.7363E+00,& - 0.7379E+00, 0.7394E+00, 0.7409E+00, 0.7424E+00,& - 0.7440E+00, 0.7455E+00, 0.7470E+00, 0.7485E+00,& - 0.7501E+00, 0.7516E+00, 0.7531E+00, 0.7547E+00,& - 0.7562E+00, 0.7577E+00, 0.7593E+00, 0.7608E+00,& - 0.7624E+00, 0.7639E+00, 0.7655E+00, 0.7670E+00,& - 0.7685E+00, 0.7701E+00, 0.7717E+00, 0.7732E+00,& - 0.7748E+00, 0.7763E+00, 0.7779E+00, 0.7795E+00,& - 0.7810E+00, 0.7826E+00, 0.7842E+00, 0.7857E+00,& - 0.7873E+00, 0.7889E+00, 0.7904E+00, 0.7920E+00,& - 0.7936E+00, 0.7952E+00, 0.7968E+00, 0.7984E+00,& - 0.7999E+00, 0.8015E+00, 0.8031E+00, 0.8047E+00,& - 0.8063E+00, 0.8079E+00, 0.8095E+00, 0.8111E+00,& - 0.8127E+00, 0.8143E+00, 0.8159E+00, 0.8175E+00,& - 0.8191E+00, 0.8208E+00, 0.8224E+00, 0.8240E+00,& - 0.8256E+00, 0.8272E+00, 0.8289E+00, 0.8305E+00,& - 0.8321E+00, 0.8337E+00, 0.8354E+00, 0.8370E+00,& - 0.8386E+00, 0.8403E+00, 0.8419E+00, 0.8436E+00,& - 0.8452E+00, 0.8469E+00, 0.8485E+00, 0.8502E+00,& - 0.8518E+00, 0.8535E+00, 0.8551E+00, 0.8568E+00,& - 0.8585E+00, 0.8601E+00, 0.8618E+00, 0.8635E+00,& - 0.8651E+00, 0.8668E+00, 0.8685E+00, 0.8702E+00,& - 0.8719E+00, 0.8736E+00, 0.8752E+00, 0.8769E+00,& - 0.8786E+00, 0.8803E+00, 0.8820E+00, 0.8837E+00,& - 0.8854E+00, 0.8871E+00, 0.8888E+00, 0.8906E+00,& - 0.8923E+00, 0.8940E+00, 0.8957E+00, 0.8974E+00,& - 0.8991E+00, 0.9009E+00, 0.9026E+00, 0.9043E+00,& - 0.9061E+00, 0.9078E+00, 0.9096E+00, 0.9113E+00,& - 0.9130E+00, 0.9148E+00, 0.9165E+00, 0.9183E+00,& - 0.9201E+00, 0.9218E+00, 0.9236E+00, 0.9254E+00,& - 0.9271E+00, 0.9289E+00, 0.9307E+00, 0.9324E+00,& - 0.9342E+00, 0.9360E+00, 0.9378E+00, 0.9396E+00,& - 0.9414E+00, 0.9432E+00, 0.9450E+00, 0.9468E+00,& - 0.9486E+00, 0.9504E+00, 0.9522E+00, 0.9540E+00,& - 0.9558E+00, 0.9577E+00, 0.9595E+00, 0.9613E+00,& - 0.9631E+00, 0.9650E+00, 0.9668E+00, 0.9687E+00,& - 0.9705E+00, 0.9723E+00, 0.9742E+00, 0.9760E+00,& - 0.9779E+00, 0.9798E+00, 0.9816E+00, 0.9835E+00,& - 0.9854E+00, 0.9872E+00, 0.9891E+00, 0.9910E+00,& - 0.9929E+00, 0.9948E+00, 0.9967E+00, 0.9986E+00,& - 0.1000E+01, 0.1002E+01, 0.1004E+01, 0.1006E+01,& - 0.1008E+01, 0.1010E+01, 0.1012E+01, 0.1014E+01,& - 0.1016E+01, 0.1018E+01, 0.1020E+01, 0.1022E+01,& - 0.1024E+01, 0.1025E+01, 0.1027E+01, 0.1029E+01,& - 0.1031E+01, 0.1033E+01, 0.1035E+01, 0.1037E+01,& - 0.1039E+01, 0.1041E+01, 0.1043E+01, 0.1045E+01,& - 0.1047E+01, 0.1049E+01, 0.1051E+01, 0.1053E+01,& - 0.1055E+01, 0.1057E+01, 0.1059E+01, 0.1061E+01,& - 0.1063E+01, 0.1065E+01, 0.1067E+01, 0.1069E+01,& - 0.1071E+01, 0.1073E+01, 0.1075E+01, 0.1078E+01,& - 0.1080E+01, 0.1082E+01, 0.1084E+01, 0.1086E+01,& - 0.1088E+01, 0.1090E+01, 0.1092E+01, 0.1094E+01,& - 0.1096E+01, 0.1098E+01, 0.1100E+01, 0.1103E+01,& - 0.1105E+01, 0.1107E+01, 0.1109E+01, 0.1111E+01,& - 0.1113E+01, 0.1115E+01, 0.1118E+01, 0.1120E+01,& - 0.1122E+01, 0.1124E+01, 0.1126E+01, 0.1128E+01,& - 0.1130E+01, 0.1133E+01, 0.1135E+01, 0.1137E+01,& - 0.1139E+01, 0.1141E+01, 0.1144E+01, 0.1146E+01,& - 0.1148E+01, 0.1150E+01, 0.1153E+01, 0.1155E+01,& - 0.1157E+01, 0.1159E+01, 0.1162E+01, 0.1164E+01,& - 0.1166E+01, 0.1168E+01, 0.1171E+01, 0.1173E+01,& - 0.1175E+01, 0.1177E+01, 0.1180E+01, 0.1182E+01,& - 0.1184E+01, 0.1187E+01, 0.1189E+01, 0.1191E+01,& - 0.1194E+01, 0.1196E+01, 0.1198E+01, 0.1201E+01,& - 0.1203E+01, 0.1205E+01, 0.1208E+01, 0.1210E+01,& - 0.1213E+01, 0.1215E+01, 0.1217E+01, 0.1220E+01,& - 0.1222E+01, 0.1225E+01, 0.1227E+01, 0.1230E+01,& - 0.1232E+01, 0.1234E+01, 0.1237E+01, 0.1239E+01,& - 0.1242E+01, 0.1244E+01, 0.1247E+01, 0.1249E+01,& - 0.1252E+01, 0.1254E+01, 0.1257E+01, 0.1259E+01,& - 0.1262E+01, 0.1264E+01, 0.1267E+01, 0.1270E+01,& - 0.1272E+01, 0.1275E+01, 0.1277E+01, 0.1280E+01,& - 0.1282E+01, 0.1285E+01, 0.1288E+01, 0.1290E+01,& - 0.1293E+01, 0.1296E+01, 0.1298E+01, 0.1301E+01,& - 0.1303E+01, 0.1306E+01, 0.1309E+01, 0.1311E+01,& - 0.1314E+01, 0.1317E+01, 0.1320E+01, 0.1322E+01,& - 0.1325E+01, 0.1328E+01, 0.1331E+01, 0.1333E+01,& - 0.1336E+01, 0.1339E+01, 0.1342E+01, 0.1344E+01,& - 0.1347E+01, 0.1350E+01, 0.1353E+01, 0.1356E+01,& - 0.1359E+01, 0.1361E+01, 0.1364E+01, 0.1367E+01,& - 0.1370E+01, 0.1373E+01, 0.1376E+01, 0.1379E+01,& - 0.1382E+01, 0.1385E+01, 0.1388E+01, 0.1391E+01,& - 0.1394E+01, 0.1396E+01, 0.1399E+01, 0.1402E+01,& - 0.1406E+01, 0.1409E+01, 0.1412E+01, 0.1415E+01,& - 0.1418E+01, 0.1421E+01, 0.1424E+01, 0.1427E+01,& - 0.1430E+01, 0.1433E+01, 0.1436E+01, 0.1439E+01,& - 0.1443E+01, 0.1446E+01, 0.1449E+01, 0.1452E+01,& - 0.1455E+01, 0.1459E+01, 0.1462E+01, 0.1465E+01,& - 0.1468E+01, 0.1472E+01, 0.1475E+01, 0.1478E+01,& - 0.1482E+01, 0.1485E+01, 0.1488E+01, 0.1492E+01,& - 0.1495E+01, 0.1498E+01, 0.1502E+01, 0.1505E+01,& - 0.1509E+01, 0.1512E+01, 0.1516E+01, 0.1519E+01,& - 0.1523E+01, 0.1526E+01, 0.1530E+01, 0.1533E+01,& - 0.1537E+01, 0.1540E+01, 0.1544E+01, 0.1548E+01,& - 0.1551E+01, 0.1555E+01, 0.1559E+01, 0.1562E+01,& - 0.1566E+01, 0.1570E+01, 0.1574E+01, 0.1577E+01,& - 0.1581E+01, 0.1585E+01, 0.1589E+01, 0.1593E+01,& - 0.1596E+01, 0.1600E+01, 0.1604E+01, 0.1608E+01,& - 0.1612E+01, 0.1616E+01, 0.1620E+01, 0.1624E+01,& - 0.1628E+01, 0.1632E+01, 0.1636E+01, 0.1640E+01,& - 0.1644E+01, 0.1649E+01, 0.1653E+01, 0.1657E+01,& - 0.1661E+01, 0.1665E+01, 0.1670E+01, 0.1674E+01,& - 0.1678E+01, 0.1683E+01, 0.1687E+01, 0.1691E+01,& - 0.1696E+01, 0.1700E+01, 0.1705E+01, 0.1709E+01,& - 0.1714E+01, 0.1718E+01, 0.1723E+01, 0.1727E+01,& - 0.1732E+01, 0.1737E+01, 0.1741E+01, 0.1746E+01,& - 0.1751E+01, 0.1756E+01, 0.1761E+01, 0.1765E+01,& - 0.1770E+01, 0.1775E+01, 0.1780E+01, 0.1785E+01,& - 0.1790E+01, 0.1795E+01, 0.1800E+01, 0.1806E+01,& - 0.1811E+01, 0.1816E+01, 0.1821E+01, 0.1827E+01,& - 0.1832E+01, 0.1837E+01, 0.1843E+01, 0.1848E+01,& - 0.1854E+01, 0.1859E+01, 0.1865E+01, 0.1870E+01,& - 0.1876E+01, 0.1882E+01, 0.1888E+01, 0.1893E+01,& - 0.1899E+01, 0.1905E+01, 0.1911E+01, 0.1917E+01,& - 0.1923E+01, 0.1929E+01, 0.1936E+01, 0.1942E+01,& - 0.1948E+01, 0.1954E+01, 0.1961E+01, 0.1967E+01,& - 0.1974E+01, 0.1980E+01, 0.1987E+01, 0.1994E+01,& - 0.2001E+01, 0.2007E+01, 0.2014E+01, 0.2021E+01,& - 0.2028E+01, 0.2036E+01, 0.2043E+01, 0.2050E+01,& - 0.2057E+01, 0.2065E+01, 0.2072E+01, 0.2080E+01,& - 0.2088E+01, 0.2095E+01, 0.2103E+01, 0.2111E+01,& - 0.2119E+01, 0.2128E+01, 0.2136E+01, 0.2144E+01,& - 0.2153E+01, 0.2161E+01, 0.2170E+01, 0.2179E+01,& - 0.2188E+01, 0.2197E+01, 0.2206E+01, 0.2215E+01,& - 0.2225E+01, 0.2234E+01, 0.2244E+01, 0.2254E+01,& - 0.2264E+01, 0.2274E+01, 0.2284E+01, 0.2294E+01,& - 0.2305E+01, 0.2316E+01, 0.2327E+01, 0.2338E+01,& - 0.2349E+01, 0.2361E+01, 0.2373E+01, 0.2385E+01,& - 0.2397E+01, 0.2409E+01, 0.2422E+01, 0.2435E+01,& - 0.2448E+01, 0.2462E+01, 0.2475E+01, 0.2489E+01,& - 0.2504E+01, 0.2518E+01, 0.2533E+01, 0.2549E+01,& - 0.2564E+01, 0.2581E+01, 0.2597E+01, 0.2614E+01,& - 0.2631E+01, 0.2649E+01, 0.2668E+01, 0.2687E+01,& - 0.2706E+01, 0.2727E+01, 0.2747E+01, 0.2769E+01,& - 0.2791E+01, 0.2815E+01, 0.2838E+01, 0.2864E+01,& - 0.2890E+01, 0.2916E+01, 0.2945E+01, 0.2975E+01,& - 0.3006E+01, 0.3039E+01, 0.3073E+01, 0.3110E+01,& - 0.3149E+01, 0.3191E+01, 0.3235E+01, 0.3283E+01,& - 0.3336E+01, 0.3393E+01, 0.3456E+01, 0.3526E+01,& - 0.3605E+01, 0.3697E+01, 0.3804E+01, 0.3936E+01,& - 0.1000E-04, 0.1544E-01, 0.2292E-01, 0.2890E-01/) - xcw(:, 27) = (/& - 0.1000E-04, 0.1544E-01, 0.2292E-01, 0.2890E-01,& - 0.3409E-01, 0.3876E-01, 0.4307E-01, 0.4709E-01,& - 0.5089E-01, 0.5450E-01, 0.5795E-01, 0.6127E-01,& - 0.6448E-01, 0.6758E-01, 0.7059E-01, 0.7352E-01,& - 0.7637E-01, 0.7916E-01, 0.8189E-01, 0.8456E-01,& - 0.8718E-01, 0.8975E-01, 0.9228E-01, 0.9477E-01,& - 0.9721E-01, 0.9962E-01, 0.1020E+00, 0.1043E+00,& - 0.1066E+00, 0.1089E+00, 0.1112E+00, 0.1134E+00,& - 0.1156E+00, 0.1178E+00, 0.1200E+00, 0.1221E+00,& - 0.1242E+00, 0.1263E+00, 0.1284E+00, 0.1304E+00,& - 0.1325E+00, 0.1345E+00, 0.1365E+00, 0.1385E+00,& - 0.1405E+00, 0.1424E+00, 0.1444E+00, 0.1463E+00,& - 0.1482E+00, 0.1501E+00, 0.1520E+00, 0.1539E+00,& - 0.1558E+00, 0.1576E+00, 0.1595E+00, 0.1613E+00,& - 0.1632E+00, 0.1650E+00, 0.1668E+00, 0.1686E+00,& - 0.1704E+00, 0.1722E+00, 0.1739E+00, 0.1757E+00,& - 0.1775E+00, 0.1792E+00, 0.1810E+00, 0.1827E+00,& - 0.1844E+00, 0.1861E+00, 0.1878E+00, 0.1895E+00,& - 0.1912E+00, 0.1929E+00, 0.1946E+00, 0.1963E+00,& - 0.1980E+00, 0.1996E+00, 0.2013E+00, 0.2030E+00,& - 0.2046E+00, 0.2062E+00, 0.2079E+00, 0.2095E+00,& - 0.2111E+00, 0.2128E+00, 0.2144E+00, 0.2160E+00,& - 0.2176E+00, 0.2192E+00, 0.2208E+00, 0.2224E+00,& - 0.2240E+00, 0.2256E+00, 0.2272E+00, 0.2287E+00,& - 0.2303E+00, 0.2319E+00, 0.2335E+00, 0.2350E+00,& - 0.2366E+00, 0.2381E+00, 0.2397E+00, 0.2412E+00,& - 0.2428E+00, 0.2443E+00, 0.2459E+00, 0.2474E+00,& - 0.2489E+00, 0.2504E+00, 0.2520E+00, 0.2535E+00,& - 0.2550E+00, 0.2565E+00, 0.2580E+00, 0.2596E+00,& - 0.2611E+00, 0.2626E+00, 0.2641E+00, 0.2656E+00,& - 0.2671E+00, 0.2686E+00, 0.2700E+00, 0.2715E+00,& - 0.2730E+00, 0.2745E+00, 0.2760E+00, 0.2775E+00,& - 0.2790E+00, 0.2804E+00, 0.2819E+00, 0.2834E+00,& - 0.2848E+00, 0.2863E+00, 0.2878E+00, 0.2892E+00,& - 0.2907E+00, 0.2922E+00, 0.2936E+00, 0.2951E+00,& - 0.2965E+00, 0.2980E+00, 0.2994E+00, 0.3009E+00,& - 0.3023E+00, 0.3038E+00, 0.3052E+00, 0.3066E+00,& - 0.3081E+00, 0.3095E+00, 0.3110E+00, 0.3124E+00,& - 0.3138E+00, 0.3153E+00, 0.3167E+00, 0.3181E+00,& - 0.3196E+00, 0.3210E+00, 0.3224E+00, 0.3238E+00,& - 0.3253E+00, 0.3267E+00, 0.3281E+00, 0.3295E+00,& - 0.3309E+00, 0.3324E+00, 0.3338E+00, 0.3352E+00,& - 0.3366E+00, 0.3380E+00, 0.3394E+00, 0.3408E+00,& - 0.3423E+00, 0.3437E+00, 0.3451E+00, 0.3465E+00,& - 0.3479E+00, 0.3493E+00, 0.3507E+00, 0.3521E+00,& - 0.3535E+00, 0.3549E+00, 0.3563E+00, 0.3577E+00,& - 0.3591E+00, 0.3605E+00, 0.3619E+00, 0.3633E+00,& - 0.3647E+00, 0.3661E+00, 0.3675E+00, 0.3689E+00,& - 0.3703E+00, 0.3717E+00, 0.3731E+00, 0.3745E+00,& - 0.3758E+00, 0.3772E+00, 0.3786E+00, 0.3800E+00,& - 0.3814E+00, 0.3828E+00, 0.3842E+00, 0.3856E+00,& - 0.3870E+00, 0.3883E+00, 0.3897E+00, 0.3911E+00,& - 0.3925E+00, 0.3939E+00, 0.3953E+00, 0.3967E+00,& - 0.3980E+00, 0.3994E+00, 0.4008E+00, 0.4022E+00,& - 0.4036E+00, 0.4050E+00, 0.4063E+00, 0.4077E+00,& - 0.4091E+00, 0.4105E+00, 0.4119E+00, 0.4132E+00,& - 0.4146E+00, 0.4160E+00, 0.4174E+00, 0.4188E+00,& - 0.4202E+00, 0.4215E+00, 0.4229E+00, 0.4243E+00,& - 0.4257E+00, 0.4271E+00, 0.4284E+00, 0.4298E+00,& - 0.4312E+00, 0.4326E+00, 0.4339E+00, 0.4353E+00,& - 0.4367E+00, 0.4381E+00, 0.4395E+00, 0.4408E+00,& - 0.4422E+00, 0.4436E+00, 0.4450E+00, 0.4464E+00,& - 0.4477E+00, 0.4491E+00, 0.4505E+00, 0.4519E+00,& - 0.4533E+00, 0.4546E+00, 0.4560E+00, 0.4574E+00,& - 0.4588E+00, 0.4602E+00, 0.4615E+00, 0.4629E+00,& - 0.4643E+00, 0.4657E+00, 0.4671E+00, 0.4685E+00,& - 0.4698E+00, 0.4712E+00, 0.4726E+00, 0.4740E+00,& - 0.4754E+00, 0.4767E+00, 0.4781E+00, 0.4795E+00,& - 0.4809E+00, 0.4823E+00, 0.4837E+00, 0.4851E+00,& - 0.4864E+00, 0.4878E+00, 0.4892E+00, 0.4906E+00,& - 0.4920E+00, 0.4934E+00, 0.4948E+00, 0.4961E+00,& - 0.4975E+00, 0.4989E+00, 0.5003E+00, 0.5017E+00,& - 0.5031E+00, 0.5045E+00, 0.5059E+00, 0.5073E+00,& - 0.5087E+00, 0.5101E+00, 0.5114E+00, 0.5128E+00,& - 0.5142E+00, 0.5156E+00, 0.5170E+00, 0.5184E+00,& - 0.5198E+00, 0.5212E+00, 0.5226E+00, 0.5240E+00,& - 0.5254E+00, 0.5268E+00, 0.5282E+00, 0.5296E+00,& - 0.5310E+00, 0.5324E+00, 0.5338E+00, 0.5352E+00,& - 0.5366E+00, 0.5380E+00, 0.5394E+00, 0.5408E+00,& - 0.5422E+00, 0.5436E+00, 0.5450E+00, 0.5465E+00,& - 0.5479E+00, 0.5493E+00, 0.5507E+00, 0.5521E+00,& - 0.5535E+00, 0.5549E+00, 0.5563E+00, 0.5577E+00,& - 0.5592E+00, 0.5606E+00, 0.5620E+00, 0.5634E+00,& - 0.5648E+00, 0.5662E+00, 0.5677E+00, 0.5691E+00,& - 0.5705E+00, 0.5719E+00, 0.5734E+00, 0.5748E+00,& - 0.5762E+00, 0.5776E+00, 0.5790E+00, 0.5805E+00,& - 0.5819E+00, 0.5833E+00, 0.5848E+00, 0.5862E+00,& - 0.5876E+00, 0.5891E+00, 0.5905E+00, 0.5919E+00,& - 0.5934E+00, 0.5948E+00, 0.5962E+00, 0.5977E+00,& - 0.5991E+00, 0.6006E+00, 0.6020E+00, 0.6034E+00,& - 0.6049E+00, 0.6063E+00, 0.6078E+00, 0.6092E+00,& - 0.6107E+00, 0.6121E+00, 0.6136E+00, 0.6150E+00,& - 0.6165E+00, 0.6179E+00, 0.6194E+00, 0.6208E+00,& - 0.6223E+00, 0.6237E+00, 0.6252E+00, 0.6267E+00,& - 0.6281E+00, 0.6296E+00, 0.6310E+00, 0.6325E+00,& - 0.6340E+00, 0.6354E+00, 0.6369E+00, 0.6384E+00,& - 0.6398E+00, 0.6413E+00, 0.6428E+00, 0.6443E+00,& - 0.6457E+00, 0.6472E+00, 0.6487E+00, 0.6502E+00,& - 0.6516E+00, 0.6531E+00, 0.6546E+00, 0.6561E+00,& - 0.6576E+00, 0.6591E+00, 0.6606E+00, 0.6620E+00,& - 0.6635E+00, 0.6650E+00, 0.6665E+00, 0.6680E+00,& - 0.6695E+00, 0.6710E+00, 0.6725E+00, 0.6740E+00,& - 0.6755E+00, 0.6770E+00, 0.6785E+00, 0.6800E+00,& - 0.6815E+00, 0.6830E+00, 0.6845E+00, 0.6861E+00,& - 0.6876E+00, 0.6891E+00, 0.6906E+00, 0.6921E+00,& - 0.6936E+00, 0.6952E+00, 0.6967E+00, 0.6982E+00,& - 0.6997E+00, 0.7013E+00, 0.7028E+00, 0.7043E+00,& - 0.7058E+00, 0.7074E+00, 0.7089E+00, 0.7104E+00,& - 0.7120E+00, 0.7135E+00, 0.7151E+00, 0.7166E+00,& - 0.7182E+00, 0.7197E+00, 0.7212E+00, 0.7228E+00,& - 0.7243E+00, 0.7259E+00, 0.7275E+00, 0.7290E+00,& - 0.7306E+00, 0.7321E+00, 0.7337E+00, 0.7353E+00,& - 0.7368E+00, 0.7384E+00, 0.7400E+00, 0.7415E+00,& - 0.7431E+00, 0.7447E+00, 0.7462E+00, 0.7478E+00,& - 0.7494E+00, 0.7510E+00, 0.7526E+00, 0.7541E+00,& - 0.7557E+00, 0.7573E+00, 0.7589E+00, 0.7605E+00,& - 0.7621E+00, 0.7637E+00, 0.7653E+00, 0.7669E+00,& - 0.7685E+00, 0.7701E+00, 0.7717E+00, 0.7733E+00,& - 0.7749E+00, 0.7765E+00, 0.7782E+00, 0.7798E+00,& - 0.7814E+00, 0.7830E+00, 0.7846E+00, 0.7863E+00,& - 0.7879E+00, 0.7895E+00, 0.7911E+00, 0.7928E+00,& - 0.7944E+00, 0.7960E+00, 0.7977E+00, 0.7993E+00,& - 0.8010E+00, 0.8026E+00, 0.8043E+00, 0.8059E+00,& - 0.8076E+00, 0.8092E+00, 0.8109E+00, 0.8125E+00,& - 0.8142E+00, 0.8159E+00, 0.8175E+00, 0.8192E+00,& - 0.8209E+00, 0.8225E+00, 0.8242E+00, 0.8259E+00,& - 0.8276E+00, 0.8292E+00, 0.8309E+00, 0.8326E+00,& - 0.8343E+00, 0.8360E+00, 0.8377E+00, 0.8394E+00,& - 0.8411E+00, 0.8428E+00, 0.8445E+00, 0.8462E+00,& - 0.8479E+00, 0.8496E+00, 0.8513E+00, 0.8531E+00,& - 0.8548E+00, 0.8565E+00, 0.8582E+00, 0.8599E+00,& - 0.8617E+00, 0.8634E+00, 0.8651E+00, 0.8669E+00,& - 0.8686E+00, 0.8704E+00, 0.8721E+00, 0.8739E+00,& - 0.8756E+00, 0.8774E+00, 0.8791E+00, 0.8809E+00,& - 0.8826E+00, 0.8844E+00, 0.8862E+00, 0.8879E+00,& - 0.8897E+00, 0.8915E+00, 0.8933E+00, 0.8950E+00,& - 0.8968E+00, 0.8986E+00, 0.9004E+00, 0.9022E+00,& - 0.9040E+00, 0.9058E+00, 0.9076E+00, 0.9094E+00,& - 0.9112E+00, 0.9130E+00, 0.9148E+00, 0.9167E+00,& - 0.9185E+00, 0.9203E+00, 0.9221E+00, 0.9240E+00,& - 0.9258E+00, 0.9276E+00, 0.9295E+00, 0.9313E+00,& - 0.9332E+00, 0.9350E+00, 0.9369E+00, 0.9387E+00,& - 0.9406E+00, 0.9424E+00, 0.9443E+00, 0.9462E+00,& - 0.9480E+00, 0.9499E+00, 0.9518E+00, 0.9537E+00,& - 0.9556E+00, 0.9574E+00, 0.9593E+00, 0.9612E+00,& - 0.9631E+00, 0.9650E+00, 0.9669E+00, 0.9688E+00,& - 0.9708E+00, 0.9727E+00, 0.9746E+00, 0.9765E+00,& - 0.9785E+00, 0.9804E+00, 0.9823E+00, 0.9843E+00,& - 0.9862E+00, 0.9881E+00, 0.9901E+00, 0.9920E+00,& - 0.9940E+00, 0.9960E+00, 0.9979E+00, 0.9999E+00,& - 0.1002E+01, 0.1004E+01, 0.1006E+01, 0.1008E+01,& - 0.1010E+01, 0.1012E+01, 0.1014E+01, 0.1016E+01,& - 0.1018E+01, 0.1020E+01, 0.1022E+01, 0.1024E+01,& - 0.1026E+01, 0.1028E+01, 0.1030E+01, 0.1032E+01,& - 0.1034E+01, 0.1036E+01, 0.1038E+01, 0.1040E+01,& - 0.1042E+01, 0.1044E+01, 0.1046E+01, 0.1048E+01,& - 0.1050E+01, 0.1053E+01, 0.1055E+01, 0.1057E+01,& - 0.1059E+01, 0.1061E+01, 0.1063E+01, 0.1065E+01,& - 0.1067E+01, 0.1069E+01, 0.1071E+01, 0.1074E+01,& - 0.1076E+01, 0.1078E+01, 0.1080E+01, 0.1082E+01,& - 0.1084E+01, 0.1086E+01, 0.1089E+01, 0.1091E+01,& - 0.1093E+01, 0.1095E+01, 0.1097E+01, 0.1099E+01,& - 0.1102E+01, 0.1104E+01, 0.1106E+01, 0.1108E+01,& - 0.1110E+01, 0.1113E+01, 0.1115E+01, 0.1117E+01,& - 0.1119E+01, 0.1122E+01, 0.1124E+01, 0.1126E+01,& - 0.1128E+01, 0.1131E+01, 0.1133E+01, 0.1135E+01,& - 0.1137E+01, 0.1140E+01, 0.1142E+01, 0.1144E+01,& - 0.1146E+01, 0.1149E+01, 0.1151E+01, 0.1153E+01,& - 0.1156E+01, 0.1158E+01, 0.1160E+01, 0.1163E+01,& - 0.1165E+01, 0.1167E+01, 0.1170E+01, 0.1172E+01,& - 0.1175E+01, 0.1177E+01, 0.1179E+01, 0.1182E+01,& - 0.1184E+01, 0.1186E+01, 0.1189E+01, 0.1191E+01,& - 0.1194E+01, 0.1196E+01, 0.1199E+01, 0.1201E+01,& - 0.1203E+01, 0.1206E+01, 0.1208E+01, 0.1211E+01,& - 0.1213E+01, 0.1216E+01, 0.1218E+01, 0.1221E+01,& - 0.1223E+01, 0.1226E+01, 0.1228E+01, 0.1231E+01,& - 0.1233E+01, 0.1236E+01, 0.1238E+01, 0.1241E+01,& - 0.1244E+01, 0.1246E+01, 0.1249E+01, 0.1251E+01,& - 0.1254E+01, 0.1256E+01, 0.1259E+01, 0.1262E+01,& - 0.1264E+01, 0.1267E+01, 0.1270E+01, 0.1272E+01,& - 0.1275E+01, 0.1278E+01, 0.1280E+01, 0.1283E+01,& - 0.1286E+01, 0.1288E+01, 0.1291E+01, 0.1294E+01,& - 0.1296E+01, 0.1299E+01, 0.1302E+01, 0.1305E+01,& - 0.1307E+01, 0.1310E+01, 0.1313E+01, 0.1316E+01,& - 0.1319E+01, 0.1321E+01, 0.1324E+01, 0.1327E+01,& - 0.1330E+01, 0.1333E+01, 0.1336E+01, 0.1338E+01,& - 0.1341E+01, 0.1344E+01, 0.1347E+01, 0.1350E+01,& - 0.1353E+01, 0.1356E+01, 0.1359E+01, 0.1362E+01,& - 0.1365E+01, 0.1368E+01, 0.1371E+01, 0.1374E+01,& - 0.1377E+01, 0.1380E+01, 0.1383E+01, 0.1386E+01,& - 0.1389E+01, 0.1392E+01, 0.1395E+01, 0.1398E+01,& - 0.1401E+01, 0.1404E+01, 0.1407E+01, 0.1410E+01,& - 0.1413E+01, 0.1417E+01, 0.1420E+01, 0.1423E+01,& - 0.1426E+01, 0.1429E+01, 0.1432E+01, 0.1436E+01,& - 0.1439E+01, 0.1442E+01, 0.1445E+01, 0.1449E+01,& - 0.1452E+01, 0.1455E+01, 0.1459E+01, 0.1462E+01,& - 0.1465E+01, 0.1469E+01, 0.1472E+01, 0.1475E+01,& - 0.1479E+01, 0.1482E+01, 0.1486E+01, 0.1489E+01,& - 0.1493E+01, 0.1496E+01, 0.1499E+01, 0.1503E+01,& - 0.1507E+01, 0.1510E+01, 0.1514E+01, 0.1517E+01,& - 0.1521E+01, 0.1524E+01, 0.1528E+01, 0.1532E+01,& - 0.1535E+01, 0.1539E+01, 0.1543E+01, 0.1546E+01,& - 0.1550E+01, 0.1554E+01, 0.1557E+01, 0.1561E+01,& - 0.1565E+01, 0.1569E+01, 0.1573E+01, 0.1577E+01,& - 0.1580E+01, 0.1584E+01, 0.1588E+01, 0.1592E+01,& - 0.1596E+01, 0.1600E+01, 0.1604E+01, 0.1608E+01,& - 0.1612E+01, 0.1616E+01, 0.1620E+01, 0.1624E+01,& - 0.1628E+01, 0.1632E+01, 0.1637E+01, 0.1641E+01,& - 0.1645E+01, 0.1649E+01, 0.1654E+01, 0.1658E+01,& - 0.1662E+01, 0.1666E+01, 0.1671E+01, 0.1675E+01,& - 0.1680E+01, 0.1684E+01, 0.1688E+01, 0.1693E+01,& - 0.1697E+01, 0.1702E+01, 0.1706E+01, 0.1711E+01,& - 0.1716E+01, 0.1720E+01, 0.1725E+01, 0.1730E+01,& - 0.1734E+01, 0.1739E+01, 0.1744E+01, 0.1749E+01,& - 0.1754E+01, 0.1758E+01, 0.1763E+01, 0.1768E+01,& - 0.1773E+01, 0.1778E+01, 0.1783E+01, 0.1788E+01,& - 0.1793E+01, 0.1799E+01, 0.1804E+01, 0.1809E+01,& - 0.1814E+01, 0.1820E+01, 0.1825E+01, 0.1830E+01,& - 0.1836E+01, 0.1841E+01, 0.1847E+01, 0.1852E+01,& - 0.1858E+01, 0.1863E+01, 0.1869E+01, 0.1875E+01,& - 0.1880E+01, 0.1886E+01, 0.1892E+01, 0.1898E+01,& - 0.1904E+01, 0.1910E+01, 0.1916E+01, 0.1922E+01,& - 0.1928E+01, 0.1934E+01, 0.1941E+01, 0.1947E+01,& - 0.1953E+01, 0.1960E+01, 0.1966E+01, 0.1973E+01,& - 0.1979E+01, 0.1986E+01, 0.1992E+01, 0.1999E+01,& - 0.2006E+01, 0.2013E+01, 0.2020E+01, 0.2027E+01,& - 0.2034E+01, 0.2041E+01, 0.2049E+01, 0.2056E+01,& - 0.2063E+01, 0.2071E+01, 0.2078E+01, 0.2086E+01,& - 0.2094E+01, 0.2101E+01, 0.2109E+01, 0.2117E+01,& - 0.2125E+01, 0.2133E+01, 0.2142E+01, 0.2150E+01,& - 0.2158E+01, 0.2167E+01, 0.2176E+01, 0.2184E+01,& - 0.2193E+01, 0.2202E+01, 0.2211E+01, 0.2221E+01,& - 0.2230E+01, 0.2239E+01, 0.2249E+01, 0.2259E+01,& - 0.2269E+01, 0.2279E+01, 0.2289E+01, 0.2299E+01,& - 0.2310E+01, 0.2320E+01, 0.2331E+01, 0.2342E+01,& - 0.2353E+01, 0.2364E+01, 0.2376E+01, 0.2388E+01,& - 0.2400E+01, 0.2412E+01, 0.2424E+01, 0.2437E+01,& - 0.2449E+01, 0.2462E+01, 0.2476E+01, 0.2489E+01,& - 0.2503E+01, 0.2517E+01, 0.2532E+01, 0.2546E+01,& - 0.2561E+01, 0.2577E+01, 0.2593E+01, 0.2609E+01,& - 0.2625E+01, 0.2642E+01, 0.2660E+01, 0.2677E+01,& - 0.2696E+01, 0.2715E+01, 0.2734E+01, 0.2754E+01,& - 0.2775E+01, 0.2796E+01, 0.2818E+01, 0.2840E+01,& - 0.2864E+01, 0.2888E+01, 0.2914E+01, 0.2940E+01,& - 0.2967E+01, 0.2996E+01, 0.3026E+01, 0.3057E+01,& - 0.3090E+01, 0.3124E+01, 0.3161E+01, 0.3199E+01,& - 0.3240E+01, 0.3284E+01, 0.3331E+01, 0.3382E+01,& - 0.3437E+01, 0.3497E+01, 0.3564E+01, 0.3638E+01,& - 0.3721E+01, 0.3818E+01, 0.3932E+01, 0.4071E+01,& - 0.1000E-04, 0.1220E-01, 0.1858E-01, 0.2378E-01/) - xcw(:, 28) = (/& - 0.1000E-04, 0.1220E-01, 0.1858E-01, 0.2378E-01,& - 0.2835E-01, 0.3249E-01, 0.3634E-01, 0.3995E-01,& - 0.4338E-01, 0.4666E-01, 0.4980E-01, 0.5284E-01,& - 0.5577E-01, 0.5862E-01, 0.6140E-01, 0.6410E-01,& - 0.6674E-01, 0.6933E-01, 0.7186E-01, 0.7435E-01,& - 0.7679E-01, 0.7919E-01, 0.8155E-01, 0.8388E-01,& - 0.8618E-01, 0.8844E-01, 0.9067E-01, 0.9288E-01,& - 0.9505E-01, 0.9721E-01, 0.9934E-01, 0.1014E+00,& - 0.1035E+00, 0.1056E+00, 0.1076E+00, 0.1097E+00,& - 0.1117E+00, 0.1137E+00, 0.1156E+00, 0.1176E+00,& - 0.1195E+00, 0.1215E+00, 0.1234E+00, 0.1253E+00,& - 0.1272E+00, 0.1291E+00, 0.1309E+00, 0.1328E+00,& - 0.1346E+00, 0.1364E+00, 0.1383E+00, 0.1401E+00,& - 0.1419E+00, 0.1437E+00, 0.1454E+00, 0.1472E+00,& - 0.1490E+00, 0.1507E+00, 0.1525E+00, 0.1542E+00,& - 0.1559E+00, 0.1577E+00, 0.1594E+00, 0.1611E+00,& - 0.1628E+00, 0.1645E+00, 0.1661E+00, 0.1678E+00,& - 0.1695E+00, 0.1712E+00, 0.1728E+00, 0.1745E+00,& - 0.1761E+00, 0.1778E+00, 0.1794E+00, 0.1810E+00,& - 0.1827E+00, 0.1843E+00, 0.1859E+00, 0.1875E+00,& - 0.1891E+00, 0.1907E+00, 0.1923E+00, 0.1939E+00,& - 0.1955E+00, 0.1971E+00, 0.1986E+00, 0.2002E+00,& - 0.2018E+00, 0.2034E+00, 0.2049E+00, 0.2065E+00,& - 0.2080E+00, 0.2096E+00, 0.2111E+00, 0.2127E+00,& - 0.2142E+00, 0.2157E+00, 0.2173E+00, 0.2188E+00,& - 0.2203E+00, 0.2219E+00, 0.2234E+00, 0.2249E+00,& - 0.2264E+00, 0.2279E+00, 0.2294E+00, 0.2309E+00,& - 0.2324E+00, 0.2339E+00, 0.2354E+00, 0.2369E+00,& - 0.2384E+00, 0.2399E+00, 0.2414E+00, 0.2429E+00,& - 0.2444E+00, 0.2459E+00, 0.2473E+00, 0.2488E+00,& - 0.2503E+00, 0.2518E+00, 0.2532E+00, 0.2547E+00,& - 0.2562E+00, 0.2576E+00, 0.2591E+00, 0.2605E+00,& - 0.2620E+00, 0.2635E+00, 0.2649E+00, 0.2664E+00,& - 0.2678E+00, 0.2693E+00, 0.2707E+00, 0.2722E+00,& - 0.2736E+00, 0.2750E+00, 0.2765E+00, 0.2779E+00,& - 0.2794E+00, 0.2808E+00, 0.2822E+00, 0.2837E+00,& - 0.2851E+00, 0.2865E+00, 0.2880E+00, 0.2894E+00,& - 0.2908E+00, 0.2922E+00, 0.2937E+00, 0.2951E+00,& - 0.2965E+00, 0.2979E+00, 0.2994E+00, 0.3008E+00,& - 0.3022E+00, 0.3036E+00, 0.3050E+00, 0.3064E+00,& - 0.3079E+00, 0.3093E+00, 0.3107E+00, 0.3121E+00,& - 0.3135E+00, 0.3149E+00, 0.3163E+00, 0.3177E+00,& - 0.3191E+00, 0.3205E+00, 0.3219E+00, 0.3233E+00,& - 0.3247E+00, 0.3261E+00, 0.3275E+00, 0.3289E+00,& - 0.3303E+00, 0.3317E+00, 0.3331E+00, 0.3345E+00,& - 0.3359E+00, 0.3373E+00, 0.3387E+00, 0.3401E+00,& - 0.3415E+00, 0.3429E+00, 0.3443E+00, 0.3457E+00,& - 0.3471E+00, 0.3485E+00, 0.3499E+00, 0.3513E+00,& - 0.3527E+00, 0.3540E+00, 0.3554E+00, 0.3568E+00,& - 0.3582E+00, 0.3596E+00, 0.3610E+00, 0.3624E+00,& - 0.3638E+00, 0.3652E+00, 0.3665E+00, 0.3679E+00,& - 0.3693E+00, 0.3707E+00, 0.3721E+00, 0.3735E+00,& - 0.3749E+00, 0.3763E+00, 0.3776E+00, 0.3790E+00,& - 0.3804E+00, 0.3818E+00, 0.3832E+00, 0.3846E+00,& - 0.3859E+00, 0.3873E+00, 0.3887E+00, 0.3901E+00,& - 0.3915E+00, 0.3929E+00, 0.3942E+00, 0.3956E+00,& - 0.3970E+00, 0.3984E+00, 0.3998E+00, 0.4012E+00,& - 0.4026E+00, 0.4039E+00, 0.4053E+00, 0.4067E+00,& - 0.4081E+00, 0.4095E+00, 0.4109E+00, 0.4122E+00,& - 0.4136E+00, 0.4150E+00, 0.4164E+00, 0.4178E+00,& - 0.4192E+00, 0.4205E+00, 0.4219E+00, 0.4233E+00,& - 0.4247E+00, 0.4261E+00, 0.4275E+00, 0.4289E+00,& - 0.4303E+00, 0.4316E+00, 0.4330E+00, 0.4344E+00,& - 0.4358E+00, 0.4372E+00, 0.4386E+00, 0.4400E+00,& - 0.4413E+00, 0.4427E+00, 0.4441E+00, 0.4455E+00,& - 0.4469E+00, 0.4483E+00, 0.4497E+00, 0.4511E+00,& - 0.4525E+00, 0.4539E+00, 0.4553E+00, 0.4566E+00,& - 0.4580E+00, 0.4594E+00, 0.4608E+00, 0.4622E+00,& - 0.4636E+00, 0.4650E+00, 0.4664E+00, 0.4678E+00,& - 0.4692E+00, 0.4706E+00, 0.4720E+00, 0.4734E+00,& - 0.4748E+00, 0.4762E+00, 0.4776E+00, 0.4790E+00,& - 0.4804E+00, 0.4818E+00, 0.4832E+00, 0.4846E+00,& - 0.4860E+00, 0.4874E+00, 0.4888E+00, 0.4902E+00,& - 0.4916E+00, 0.4930E+00, 0.4944E+00, 0.4958E+00,& - 0.4972E+00, 0.4986E+00, 0.5000E+00, 0.5015E+00,& - 0.5029E+00, 0.5043E+00, 0.5057E+00, 0.5071E+00,& - 0.5085E+00, 0.5099E+00, 0.5113E+00, 0.5128E+00,& - 0.5142E+00, 0.5156E+00, 0.5170E+00, 0.5184E+00,& - 0.5198E+00, 0.5213E+00, 0.5227E+00, 0.5241E+00,& - 0.5255E+00, 0.5270E+00, 0.5284E+00, 0.5298E+00,& - 0.5312E+00, 0.5327E+00, 0.5341E+00, 0.5355E+00,& - 0.5369E+00, 0.5384E+00, 0.5398E+00, 0.5412E+00,& - 0.5427E+00, 0.5441E+00, 0.5455E+00, 0.5470E+00,& - 0.5484E+00, 0.5498E+00, 0.5513E+00, 0.5527E+00,& - 0.5542E+00, 0.5556E+00, 0.5570E+00, 0.5585E+00,& - 0.5599E+00, 0.5614E+00, 0.5628E+00, 0.5643E+00,& - 0.5657E+00, 0.5672E+00, 0.5686E+00, 0.5701E+00,& - 0.5715E+00, 0.5730E+00, 0.5744E+00, 0.5759E+00,& - 0.5773E+00, 0.5788E+00, 0.5802E+00, 0.5817E+00,& - 0.5832E+00, 0.5846E+00, 0.5861E+00, 0.5875E+00,& - 0.5890E+00, 0.5905E+00, 0.5919E+00, 0.5934E+00,& - 0.5949E+00, 0.5964E+00, 0.5978E+00, 0.5993E+00,& - 0.6008E+00, 0.6022E+00, 0.6037E+00, 0.6052E+00,& - 0.6067E+00, 0.6082E+00, 0.6096E+00, 0.6111E+00,& - 0.6126E+00, 0.6141E+00, 0.6156E+00, 0.6171E+00,& - 0.6186E+00, 0.6201E+00, 0.6215E+00, 0.6230E+00,& - 0.6245E+00, 0.6260E+00, 0.6275E+00, 0.6290E+00,& - 0.6305E+00, 0.6320E+00, 0.6335E+00, 0.6350E+00,& - 0.6365E+00, 0.6380E+00, 0.6396E+00, 0.6411E+00,& - 0.6426E+00, 0.6441E+00, 0.6456E+00, 0.6471E+00,& - 0.6486E+00, 0.6502E+00, 0.6517E+00, 0.6532E+00,& - 0.6547E+00, 0.6562E+00, 0.6578E+00, 0.6593E+00,& - 0.6608E+00, 0.6624E+00, 0.6639E+00, 0.6654E+00,& - 0.6670E+00, 0.6685E+00, 0.6700E+00, 0.6716E+00,& - 0.6731E+00, 0.6747E+00, 0.6762E+00, 0.6778E+00,& - 0.6793E+00, 0.6809E+00, 0.6824E+00, 0.6840E+00,& - 0.6855E+00, 0.6871E+00, 0.6886E+00, 0.6902E+00,& - 0.6918E+00, 0.6933E+00, 0.6949E+00, 0.6964E+00,& - 0.6980E+00, 0.6996E+00, 0.7012E+00, 0.7027E+00,& - 0.7043E+00, 0.7059E+00, 0.7075E+00, 0.7090E+00,& - 0.7106E+00, 0.7122E+00, 0.7138E+00, 0.7154E+00,& - 0.7170E+00, 0.7186E+00, 0.7202E+00, 0.7218E+00,& - 0.7234E+00, 0.7250E+00, 0.7266E+00, 0.7282E+00,& - 0.7298E+00, 0.7314E+00, 0.7330E+00, 0.7346E+00,& - 0.7362E+00, 0.7378E+00, 0.7394E+00, 0.7411E+00,& - 0.7427E+00, 0.7443E+00, 0.7459E+00, 0.7476E+00,& - 0.7492E+00, 0.7508E+00, 0.7525E+00, 0.7541E+00,& - 0.7557E+00, 0.7574E+00, 0.7590E+00, 0.7607E+00,& - 0.7623E+00, 0.7640E+00, 0.7656E+00, 0.7673E+00,& - 0.7689E+00, 0.7706E+00, 0.7722E+00, 0.7739E+00,& - 0.7756E+00, 0.7772E+00, 0.7789E+00, 0.7806E+00,& - 0.7822E+00, 0.7839E+00, 0.7856E+00, 0.7873E+00,& - 0.7889E+00, 0.7906E+00, 0.7923E+00, 0.7940E+00,& - 0.7957E+00, 0.7974E+00, 0.7991E+00, 0.8008E+00,& - 0.8025E+00, 0.8042E+00, 0.8059E+00, 0.8076E+00,& - 0.8093E+00, 0.8110E+00, 0.8128E+00, 0.8145E+00,& - 0.8162E+00, 0.8179E+00, 0.8196E+00, 0.8214E+00,& - 0.8231E+00, 0.8248E+00, 0.8266E+00, 0.8283E+00,& - 0.8300E+00, 0.8318E+00, 0.8335E+00, 0.8353E+00,& - 0.8370E+00, 0.8388E+00, 0.8406E+00, 0.8423E+00,& - 0.8441E+00, 0.8458E+00, 0.8476E+00, 0.8494E+00,& - 0.8512E+00, 0.8529E+00, 0.8547E+00, 0.8565E+00,& - 0.8583E+00, 0.8601E+00, 0.8619E+00, 0.8636E+00,& - 0.8654E+00, 0.8672E+00, 0.8690E+00, 0.8709E+00,& - 0.8727E+00, 0.8745E+00, 0.8763E+00, 0.8781E+00,& - 0.8799E+00, 0.8817E+00, 0.8836E+00, 0.8854E+00,& - 0.8872E+00, 0.8891E+00, 0.8909E+00, 0.8927E+00,& - 0.8946E+00, 0.8964E+00, 0.8983E+00, 0.9001E+00,& - 0.9020E+00, 0.9039E+00, 0.9057E+00, 0.9076E+00,& - 0.9095E+00, 0.9113E+00, 0.9132E+00, 0.9151E+00,& - 0.9170E+00, 0.9189E+00, 0.9208E+00, 0.9226E+00,& - 0.9245E+00, 0.9264E+00, 0.9283E+00, 0.9303E+00,& - 0.9322E+00, 0.9341E+00, 0.9360E+00, 0.9379E+00,& - 0.9398E+00, 0.9418E+00, 0.9437E+00, 0.9456E+00,& - 0.9476E+00, 0.9495E+00, 0.9515E+00, 0.9534E+00,& - 0.9554E+00, 0.9573E+00, 0.9593E+00, 0.9613E+00,& - 0.9632E+00, 0.9652E+00, 0.9672E+00, 0.9691E+00,& - 0.9711E+00, 0.9731E+00, 0.9751E+00, 0.9771E+00,& - 0.9791E+00, 0.9811E+00, 0.9831E+00, 0.9851E+00,& - 0.9871E+00, 0.9892E+00, 0.9912E+00, 0.9932E+00,& - 0.9952E+00, 0.9973E+00, 0.9993E+00, 0.1001E+01,& - 0.1003E+01, 0.1005E+01, 0.1008E+01, 0.1010E+01,& - 0.1012E+01, 0.1014E+01, 0.1016E+01, 0.1018E+01,& - 0.1020E+01, 0.1022E+01, 0.1024E+01, 0.1026E+01,& - 0.1028E+01, 0.1030E+01, 0.1033E+01, 0.1035E+01,& - 0.1037E+01, 0.1039E+01, 0.1041E+01, 0.1043E+01,& - 0.1045E+01, 0.1047E+01, 0.1050E+01, 0.1052E+01,& - 0.1054E+01, 0.1056E+01, 0.1058E+01, 0.1060E+01,& - 0.1063E+01, 0.1065E+01, 0.1067E+01, 0.1069E+01,& - 0.1071E+01, 0.1074E+01, 0.1076E+01, 0.1078E+01,& - 0.1080E+01, 0.1082E+01, 0.1085E+01, 0.1087E+01,& - 0.1089E+01, 0.1091E+01, 0.1094E+01, 0.1096E+01,& - 0.1098E+01, 0.1100E+01, 0.1103E+01, 0.1105E+01,& - 0.1107E+01, 0.1109E+01, 0.1112E+01, 0.1114E+01,& - 0.1116E+01, 0.1119E+01, 0.1121E+01, 0.1123E+01,& - 0.1126E+01, 0.1128E+01, 0.1130E+01, 0.1133E+01,& - 0.1135E+01, 0.1137E+01, 0.1140E+01, 0.1142E+01,& - 0.1144E+01, 0.1147E+01, 0.1149E+01, 0.1152E+01,& - 0.1154E+01, 0.1156E+01, 0.1159E+01, 0.1161E+01,& - 0.1164E+01, 0.1166E+01, 0.1168E+01, 0.1171E+01,& - 0.1173E+01, 0.1176E+01, 0.1178E+01, 0.1181E+01,& - 0.1183E+01, 0.1186E+01, 0.1188E+01, 0.1191E+01,& - 0.1193E+01, 0.1196E+01, 0.1198E+01, 0.1201E+01,& - 0.1203E+01, 0.1206E+01, 0.1208E+01, 0.1211E+01,& - 0.1213E+01, 0.1216E+01, 0.1219E+01, 0.1221E+01,& - 0.1224E+01, 0.1226E+01, 0.1229E+01, 0.1232E+01,& - 0.1234E+01, 0.1237E+01, 0.1239E+01, 0.1242E+01,& - 0.1245E+01, 0.1247E+01, 0.1250E+01, 0.1253E+01,& - 0.1255E+01, 0.1258E+01, 0.1261E+01, 0.1264E+01,& - 0.1266E+01, 0.1269E+01, 0.1272E+01, 0.1274E+01,& - 0.1277E+01, 0.1280E+01, 0.1283E+01, 0.1286E+01,& - 0.1288E+01, 0.1291E+01, 0.1294E+01, 0.1297E+01,& - 0.1300E+01, 0.1302E+01, 0.1305E+01, 0.1308E+01,& - 0.1311E+01, 0.1314E+01, 0.1317E+01, 0.1320E+01,& - 0.1322E+01, 0.1325E+01, 0.1328E+01, 0.1331E+01,& - 0.1334E+01, 0.1337E+01, 0.1340E+01, 0.1343E+01,& - 0.1346E+01, 0.1349E+01, 0.1352E+01, 0.1355E+01,& - 0.1358E+01, 0.1361E+01, 0.1364E+01, 0.1367E+01,& - 0.1370E+01, 0.1373E+01, 0.1376E+01, 0.1379E+01,& - 0.1383E+01, 0.1386E+01, 0.1389E+01, 0.1392E+01,& - 0.1395E+01, 0.1398E+01, 0.1401E+01, 0.1405E+01,& - 0.1408E+01, 0.1411E+01, 0.1414E+01, 0.1418E+01,& - 0.1421E+01, 0.1424E+01, 0.1427E+01, 0.1431E+01,& - 0.1434E+01, 0.1437E+01, 0.1441E+01, 0.1444E+01,& - 0.1447E+01, 0.1451E+01, 0.1454E+01, 0.1457E+01,& - 0.1461E+01, 0.1464E+01, 0.1468E+01, 0.1471E+01,& - 0.1475E+01, 0.1478E+01, 0.1482E+01, 0.1485E+01,& - 0.1489E+01, 0.1492E+01, 0.1496E+01, 0.1499E+01,& - 0.1503E+01, 0.1507E+01, 0.1510E+01, 0.1514E+01,& - 0.1517E+01, 0.1521E+01, 0.1525E+01, 0.1529E+01,& - 0.1532E+01, 0.1536E+01, 0.1540E+01, 0.1544E+01,& - 0.1547E+01, 0.1551E+01, 0.1555E+01, 0.1559E+01,& - 0.1563E+01, 0.1567E+01, 0.1570E+01, 0.1574E+01,& - 0.1578E+01, 0.1582E+01, 0.1586E+01, 0.1590E+01,& - 0.1594E+01, 0.1598E+01, 0.1602E+01, 0.1607E+01,& - 0.1611E+01, 0.1615E+01, 0.1619E+01, 0.1623E+01,& - 0.1627E+01, 0.1631E+01, 0.1636E+01, 0.1640E+01,& - 0.1644E+01, 0.1649E+01, 0.1653E+01, 0.1657E+01,& - 0.1662E+01, 0.1666E+01, 0.1670E+01, 0.1675E+01,& - 0.1679E+01, 0.1684E+01, 0.1688E+01, 0.1693E+01,& - 0.1697E+01, 0.1702E+01, 0.1707E+01, 0.1711E+01,& - 0.1716E+01, 0.1721E+01, 0.1726E+01, 0.1730E+01,& - 0.1735E+01, 0.1740E+01, 0.1745E+01, 0.1750E+01,& - 0.1755E+01, 0.1760E+01, 0.1765E+01, 0.1770E+01,& - 0.1775E+01, 0.1780E+01, 0.1785E+01, 0.1790E+01,& - 0.1795E+01, 0.1800E+01, 0.1806E+01, 0.1811E+01,& - 0.1816E+01, 0.1822E+01, 0.1827E+01, 0.1832E+01,& - 0.1838E+01, 0.1843E+01, 0.1849E+01, 0.1855E+01,& - 0.1860E+01, 0.1866E+01, 0.1872E+01, 0.1877E+01,& - 0.1883E+01, 0.1889E+01, 0.1895E+01, 0.1901E+01,& - 0.1907E+01, 0.1913E+01, 0.1919E+01, 0.1925E+01,& - 0.1931E+01, 0.1938E+01, 0.1944E+01, 0.1950E+01,& - 0.1957E+01, 0.1963E+01, 0.1970E+01, 0.1976E+01,& - 0.1983E+01, 0.1990E+01, 0.1996E+01, 0.2003E+01,& - 0.2010E+01, 0.2017E+01, 0.2024E+01, 0.2031E+01,& - 0.2038E+01, 0.2045E+01, 0.2053E+01, 0.2060E+01,& - 0.2067E+01, 0.2075E+01, 0.2082E+01, 0.2090E+01,& - 0.2098E+01, 0.2106E+01, 0.2114E+01, 0.2121E+01,& - 0.2130E+01, 0.2138E+01, 0.2146E+01, 0.2154E+01,& - 0.2163E+01, 0.2171E+01, 0.2180E+01, 0.2189E+01,& - 0.2197E+01, 0.2206E+01, 0.2215E+01, 0.2225E+01,& - 0.2234E+01, 0.2243E+01, 0.2253E+01, 0.2262E+01,& - 0.2272E+01, 0.2282E+01, 0.2292E+01, 0.2302E+01,& - 0.2313E+01, 0.2323E+01, 0.2334E+01, 0.2345E+01,& - 0.2356E+01, 0.2367E+01, 0.2378E+01, 0.2389E+01,& - 0.2401E+01, 0.2413E+01, 0.2425E+01, 0.2437E+01,& - 0.2450E+01, 0.2463E+01, 0.2475E+01, 0.2489E+01,& - 0.2502E+01, 0.2516E+01, 0.2530E+01, 0.2544E+01,& - 0.2558E+01, 0.2573E+01, 0.2588E+01, 0.2604E+01,& - 0.2620E+01, 0.2636E+01, 0.2652E+01, 0.2669E+01,& - 0.2686E+01, 0.2704E+01, 0.2722E+01, 0.2741E+01,& - 0.2760E+01, 0.2780E+01, 0.2801E+01, 0.2821E+01,& - 0.2843E+01, 0.2865E+01, 0.2888E+01, 0.2912E+01,& - 0.2937E+01, 0.2962E+01, 0.2989E+01, 0.3017E+01,& - 0.3045E+01, 0.3075E+01, 0.3107E+01, 0.3140E+01,& - 0.3174E+01, 0.3210E+01, 0.3249E+01, 0.3289E+01,& - 0.3333E+01, 0.3379E+01, 0.3428E+01, 0.3482E+01,& - 0.3539E+01, 0.3603E+01, 0.3673E+01, 0.3751E+01,& - 0.3839E+01, 0.3941E+01, 0.4061E+01, 0.4207E+01,& - 0.1000E-04, 0.9562E-02, 0.1495E-01, 0.1943E-01/) - xcw(:, 29) = (/& - 0.1000E-04, 0.9562E-02, 0.1495E-01, 0.1943E-01,& - 0.2342E-01, 0.2707E-01, 0.3049E-01, 0.3371E-01,& - 0.3679E-01, 0.3974E-01, 0.4259E-01, 0.4534E-01,& - 0.4802E-01, 0.5062E-01, 0.5316E-01, 0.5564E-01,& - 0.5807E-01, 0.6046E-01, 0.6280E-01, 0.6510E-01,& - 0.6737E-01, 0.6960E-01, 0.7179E-01, 0.7396E-01,& - 0.7610E-01, 0.7822E-01, 0.8031E-01, 0.8237E-01,& - 0.8442E-01, 0.8644E-01, 0.8844E-01, 0.9043E-01,& - 0.9239E-01, 0.9434E-01, 0.9627E-01, 0.9818E-01,& - 0.1001E+00, 0.1020E+00, 0.1038E+00, 0.1057E+00,& - 0.1075E+00, 0.1094E+00, 0.1112E+00, 0.1130E+00,& - 0.1148E+00, 0.1166E+00, 0.1184E+00, 0.1201E+00,& - 0.1219E+00, 0.1236E+00, 0.1254E+00, 0.1271E+00,& - 0.1288E+00, 0.1306E+00, 0.1323E+00, 0.1340E+00,& - 0.1356E+00, 0.1373E+00, 0.1390E+00, 0.1407E+00,& - 0.1423E+00, 0.1440E+00, 0.1456E+00, 0.1473E+00,& - 0.1489E+00, 0.1505E+00, 0.1522E+00, 0.1538E+00,& - 0.1554E+00, 0.1570E+00, 0.1586E+00, 0.1602E+00,& - 0.1618E+00, 0.1634E+00, 0.1650E+00, 0.1666E+00,& - 0.1681E+00, 0.1697E+00, 0.1713E+00, 0.1728E+00,& - 0.1744E+00, 0.1759E+00, 0.1775E+00, 0.1790E+00,& - 0.1806E+00, 0.1821E+00, 0.1837E+00, 0.1852E+00,& - 0.1867E+00, 0.1882E+00, 0.1898E+00, 0.1913E+00,& - 0.1928E+00, 0.1943E+00, 0.1958E+00, 0.1973E+00,& - 0.1988E+00, 0.2003E+00, 0.2018E+00, 0.2033E+00,& - 0.2048E+00, 0.2063E+00, 0.2078E+00, 0.2093E+00,& - 0.2107E+00, 0.2122E+00, 0.2137E+00, 0.2152E+00,& - 0.2166E+00, 0.2181E+00, 0.2196E+00, 0.2210E+00,& - 0.2225E+00, 0.2240E+00, 0.2254E+00, 0.2269E+00,& - 0.2283E+00, 0.2298E+00, 0.2312E+00, 0.2327E+00,& - 0.2341E+00, 0.2356E+00, 0.2370E+00, 0.2385E+00,& - 0.2399E+00, 0.2414E+00, 0.2428E+00, 0.2442E+00,& - 0.2457E+00, 0.2471E+00, 0.2485E+00, 0.2500E+00,& - 0.2514E+00, 0.2528E+00, 0.2542E+00, 0.2557E+00,& - 0.2571E+00, 0.2585E+00, 0.2599E+00, 0.2614E+00,& - 0.2628E+00, 0.2642E+00, 0.2656E+00, 0.2670E+00,& - 0.2684E+00, 0.2699E+00, 0.2713E+00, 0.2727E+00,& - 0.2741E+00, 0.2755E+00, 0.2769E+00, 0.2783E+00,& - 0.2797E+00, 0.2811E+00, 0.2825E+00, 0.2839E+00,& - 0.2853E+00, 0.2867E+00, 0.2881E+00, 0.2895E+00,& - 0.2909E+00, 0.2923E+00, 0.2937E+00, 0.2951E+00,& - 0.2965E+00, 0.2979E+00, 0.2993E+00, 0.3007E+00,& - 0.3021E+00, 0.3035E+00, 0.3049E+00, 0.3063E+00,& - 0.3077E+00, 0.3091E+00, 0.3105E+00, 0.3119E+00,& - 0.3132E+00, 0.3146E+00, 0.3160E+00, 0.3174E+00,& - 0.3188E+00, 0.3202E+00, 0.3216E+00, 0.3230E+00,& - 0.3244E+00, 0.3257E+00, 0.3271E+00, 0.3285E+00,& - 0.3299E+00, 0.3313E+00, 0.3327E+00, 0.3341E+00,& - 0.3354E+00, 0.3368E+00, 0.3382E+00, 0.3396E+00,& - 0.3410E+00, 0.3424E+00, 0.3437E+00, 0.3451E+00,& - 0.3465E+00, 0.3479E+00, 0.3493E+00, 0.3507E+00,& - 0.3520E+00, 0.3534E+00, 0.3548E+00, 0.3562E+00,& - 0.3576E+00, 0.3590E+00, 0.3603E+00, 0.3617E+00,& - 0.3631E+00, 0.3645E+00, 0.3659E+00, 0.3673E+00,& - 0.3686E+00, 0.3700E+00, 0.3714E+00, 0.3728E+00,& - 0.3742E+00, 0.3756E+00, 0.3769E+00, 0.3783E+00,& - 0.3797E+00, 0.3811E+00, 0.3825E+00, 0.3839E+00,& - 0.3852E+00, 0.3866E+00, 0.3880E+00, 0.3894E+00,& - 0.3908E+00, 0.3922E+00, 0.3936E+00, 0.3949E+00,& - 0.3963E+00, 0.3977E+00, 0.3991E+00, 0.4005E+00,& - 0.4019E+00, 0.4033E+00, 0.4047E+00, 0.4060E+00,& - 0.4074E+00, 0.4088E+00, 0.4102E+00, 0.4116E+00,& - 0.4130E+00, 0.4144E+00, 0.4158E+00, 0.4172E+00,& - 0.4186E+00, 0.4199E+00, 0.4213E+00, 0.4227E+00,& - 0.4241E+00, 0.4255E+00, 0.4269E+00, 0.4283E+00,& - 0.4297E+00, 0.4311E+00, 0.4325E+00, 0.4339E+00,& - 0.4353E+00, 0.4367E+00, 0.4381E+00, 0.4395E+00,& - 0.4409E+00, 0.4423E+00, 0.4437E+00, 0.4451E+00,& - 0.4465E+00, 0.4479E+00, 0.4493E+00, 0.4507E+00,& - 0.4521E+00, 0.4535E+00, 0.4549E+00, 0.4562E+00,& - 0.4577E+00, 0.4591E+00, 0.4606E+00, 0.4620E+00,& - 0.4634E+00, 0.4648E+00, 0.4662E+00, 0.4676E+00,& - 0.4690E+00, 0.4704E+00, 0.4718E+00, 0.4733E+00,& - 0.4747E+00, 0.4761E+00, 0.4775E+00, 0.4789E+00,& - 0.4803E+00, 0.4818E+00, 0.4832E+00, 0.4846E+00,& - 0.4860E+00, 0.4874E+00, 0.4889E+00, 0.4903E+00,& - 0.4917E+00, 0.4931E+00, 0.4946E+00, 0.4960E+00,& - 0.4974E+00, 0.4989E+00, 0.5003E+00, 0.5017E+00,& - 0.5032E+00, 0.5046E+00, 0.5060E+00, 0.5075E+00,& - 0.5089E+00, 0.5103E+00, 0.5118E+00, 0.5132E+00,& - 0.5146E+00, 0.5161E+00, 0.5175E+00, 0.5190E+00,& - 0.5204E+00, 0.5219E+00, 0.5233E+00, 0.5248E+00,& - 0.5262E+00, 0.5276E+00, 0.5291E+00, 0.5305E+00,& - 0.5320E+00, 0.5335E+00, 0.5349E+00, 0.5364E+00,& - 0.5378E+00, 0.5393E+00, 0.5407E+00, 0.5422E+00,& - 0.5437E+00, 0.5451E+00, 0.5466E+00, 0.5480E+00,& - 0.5495E+00, 0.5510E+00, 0.5524E+00, 0.5539E+00,& - 0.5554E+00, 0.5568E+00, 0.5583E+00, 0.5598E+00,& - 0.5613E+00, 0.5627E+00, 0.5642E+00, 0.5657E+00,& - 0.5672E+00, 0.5687E+00, 0.5701E+00, 0.5716E+00,& - 0.5731E+00, 0.5746E+00, 0.5761E+00, 0.5776E+00,& - 0.5791E+00, 0.5806E+00, 0.5820E+00, 0.5835E+00,& - 0.5850E+00, 0.5865E+00, 0.5880E+00, 0.5895E+00,& - 0.5910E+00, 0.5925E+00, 0.5940E+00, 0.5955E+00,& - 0.5970E+00, 0.5986E+00, 0.6001E+00, 0.6016E+00,& - 0.6031E+00, 0.6046E+00, 0.6061E+00, 0.6076E+00,& - 0.6091E+00, 0.6107E+00, 0.6122E+00, 0.6137E+00,& - 0.6152E+00, 0.6168E+00, 0.6183E+00, 0.6198E+00,& - 0.6213E+00, 0.6229E+00, 0.6244E+00, 0.6259E+00,& - 0.6275E+00, 0.6290E+00, 0.6306E+00, 0.6321E+00,& - 0.6336E+00, 0.6352E+00, 0.6367E+00, 0.6383E+00,& - 0.6398E+00, 0.6414E+00, 0.6429E+00, 0.6445E+00,& - 0.6460E+00, 0.6476E+00, 0.6491E+00, 0.6507E+00,& - 0.6523E+00, 0.6538E+00, 0.6554E+00, 0.6570E+00,& - 0.6585E+00, 0.6601E+00, 0.6617E+00, 0.6632E+00,& - 0.6648E+00, 0.6664E+00, 0.6680E+00, 0.6696E+00,& - 0.6711E+00, 0.6727E+00, 0.6743E+00, 0.6759E+00,& - 0.6775E+00, 0.6791E+00, 0.6807E+00, 0.6823E+00,& - 0.6839E+00, 0.6855E+00, 0.6871E+00, 0.6887E+00,& - 0.6903E+00, 0.6919E+00, 0.6935E+00, 0.6951E+00,& - 0.6967E+00, 0.6983E+00, 0.7000E+00, 0.7016E+00,& - 0.7032E+00, 0.7048E+00, 0.7064E+00, 0.7081E+00,& - 0.7097E+00, 0.7113E+00, 0.7130E+00, 0.7146E+00,& - 0.7162E+00, 0.7179E+00, 0.7195E+00, 0.7212E+00,& - 0.7228E+00, 0.7245E+00, 0.7261E+00, 0.7278E+00,& - 0.7294E+00, 0.7311E+00, 0.7327E+00, 0.7344E+00,& - 0.7361E+00, 0.7377E+00, 0.7394E+00, 0.7411E+00,& - 0.7427E+00, 0.7444E+00, 0.7461E+00, 0.7478E+00,& - 0.7494E+00, 0.7511E+00, 0.7528E+00, 0.7545E+00,& - 0.7562E+00, 0.7579E+00, 0.7596E+00, 0.7613E+00,& - 0.7630E+00, 0.7647E+00, 0.7664E+00, 0.7681E+00,& - 0.7698E+00, 0.7715E+00, 0.7732E+00, 0.7749E+00,& - 0.7767E+00, 0.7784E+00, 0.7801E+00, 0.7818E+00,& - 0.7836E+00, 0.7853E+00, 0.7870E+00, 0.7888E+00,& - 0.7905E+00, 0.7923E+00, 0.7940E+00, 0.7957E+00,& - 0.7975E+00, 0.7992E+00, 0.8010E+00, 0.8028E+00,& - 0.8045E+00, 0.8063E+00, 0.8081E+00, 0.8098E+00,& - 0.8116E+00, 0.8134E+00, 0.8151E+00, 0.8169E+00,& - 0.8187E+00, 0.8205E+00, 0.8223E+00, 0.8241E+00,& - 0.8259E+00, 0.8277E+00, 0.8294E+00, 0.8313E+00,& - 0.8331E+00, 0.8349E+00, 0.8367E+00, 0.8385E+00,& - 0.8403E+00, 0.8421E+00, 0.8440E+00, 0.8458E+00,& - 0.8476E+00, 0.8494E+00, 0.8513E+00, 0.8531E+00,& - 0.8550E+00, 0.8568E+00, 0.8586E+00, 0.8605E+00,& - 0.8623E+00, 0.8642E+00, 0.8661E+00, 0.8679E+00,& - 0.8698E+00, 0.8717E+00, 0.8735E+00, 0.8754E+00,& - 0.8773E+00, 0.8792E+00, 0.8811E+00, 0.8829E+00,& - 0.8848E+00, 0.8867E+00, 0.8886E+00, 0.8905E+00,& - 0.8924E+00, 0.8943E+00, 0.8963E+00, 0.8982E+00,& - 0.9001E+00, 0.9020E+00, 0.9039E+00, 0.9059E+00,& - 0.9078E+00, 0.9097E+00, 0.9117E+00, 0.9136E+00,& - 0.9156E+00, 0.9175E+00, 0.9195E+00, 0.9214E+00,& - 0.9234E+00, 0.9254E+00, 0.9273E+00, 0.9293E+00,& - 0.9313E+00, 0.9333E+00, 0.9352E+00, 0.9372E+00,& - 0.9392E+00, 0.9412E+00, 0.9432E+00, 0.9452E+00,& - 0.9472E+00, 0.9492E+00, 0.9512E+00, 0.9533E+00,& - 0.9553E+00, 0.9573E+00, 0.9593E+00, 0.9614E+00,& - 0.9634E+00, 0.9655E+00, 0.9675E+00, 0.9696E+00,& - 0.9716E+00, 0.9737E+00, 0.9757E+00, 0.9778E+00,& - 0.9799E+00, 0.9819E+00, 0.9840E+00, 0.9861E+00,& - 0.9882E+00, 0.9903E+00, 0.9924E+00, 0.9945E+00,& - 0.9966E+00, 0.9987E+00, 0.1001E+01, 0.1003E+01,& - 0.1005E+01, 0.1007E+01, 0.1009E+01, 0.1011E+01,& - 0.1014E+01, 0.1016E+01, 0.1018E+01, 0.1020E+01,& - 0.1022E+01, 0.1024E+01, 0.1027E+01, 0.1029E+01,& - 0.1031E+01, 0.1033E+01, 0.1035E+01, 0.1037E+01,& - 0.1040E+01, 0.1042E+01, 0.1044E+01, 0.1046E+01,& - 0.1049E+01, 0.1051E+01, 0.1053E+01, 0.1055E+01,& - 0.1057E+01, 0.1060E+01, 0.1062E+01, 0.1064E+01,& - 0.1066E+01, 0.1069E+01, 0.1071E+01, 0.1073E+01,& - 0.1076E+01, 0.1078E+01, 0.1080E+01, 0.1082E+01,& - 0.1085E+01, 0.1087E+01, 0.1089E+01, 0.1092E+01,& - 0.1094E+01, 0.1096E+01, 0.1099E+01, 0.1101E+01,& - 0.1103E+01, 0.1106E+01, 0.1108E+01, 0.1111E+01,& - 0.1113E+01, 0.1115E+01, 0.1118E+01, 0.1120E+01,& - 0.1122E+01, 0.1125E+01, 0.1127E+01, 0.1130E+01,& - 0.1132E+01, 0.1135E+01, 0.1137E+01, 0.1139E+01,& - 0.1142E+01, 0.1144E+01, 0.1147E+01, 0.1149E+01,& - 0.1152E+01, 0.1154E+01, 0.1157E+01, 0.1159E+01,& - 0.1162E+01, 0.1164E+01, 0.1167E+01, 0.1169E+01,& - 0.1172E+01, 0.1174E+01, 0.1177E+01, 0.1179E+01,& - 0.1182E+01, 0.1184E+01, 0.1187E+01, 0.1190E+01,& - 0.1192E+01, 0.1195E+01, 0.1197E+01, 0.1200E+01,& - 0.1203E+01, 0.1205E+01, 0.1208E+01, 0.1210E+01,& - 0.1213E+01, 0.1216E+01, 0.1218E+01, 0.1221E+01,& - 0.1224E+01, 0.1226E+01, 0.1229E+01, 0.1232E+01,& - 0.1235E+01, 0.1237E+01, 0.1240E+01, 0.1243E+01,& - 0.1245E+01, 0.1248E+01, 0.1251E+01, 0.1254E+01,& - 0.1257E+01, 0.1259E+01, 0.1262E+01, 0.1265E+01,& - 0.1268E+01, 0.1271E+01, 0.1273E+01, 0.1276E+01,& - 0.1279E+01, 0.1282E+01, 0.1285E+01, 0.1288E+01,& - 0.1291E+01, 0.1293E+01, 0.1296E+01, 0.1299E+01,& - 0.1302E+01, 0.1305E+01, 0.1308E+01, 0.1311E+01,& - 0.1314E+01, 0.1317E+01, 0.1320E+01, 0.1323E+01,& - 0.1326E+01, 0.1329E+01, 0.1332E+01, 0.1335E+01,& - 0.1338E+01, 0.1341E+01, 0.1344E+01, 0.1347E+01,& - 0.1350E+01, 0.1353E+01, 0.1356E+01, 0.1360E+01,& - 0.1363E+01, 0.1366E+01, 0.1369E+01, 0.1372E+01,& - 0.1375E+01, 0.1378E+01, 0.1382E+01, 0.1385E+01,& - 0.1388E+01, 0.1391E+01, 0.1395E+01, 0.1398E+01,& - 0.1401E+01, 0.1404E+01, 0.1408E+01, 0.1411E+01,& - 0.1414E+01, 0.1418E+01, 0.1421E+01, 0.1424E+01,& - 0.1428E+01, 0.1431E+01, 0.1434E+01, 0.1438E+01,& - 0.1441E+01, 0.1445E+01, 0.1448E+01, 0.1452E+01,& - 0.1455E+01, 0.1459E+01, 0.1462E+01, 0.1466E+01,& - 0.1469E+01, 0.1473E+01, 0.1476E+01, 0.1480E+01,& - 0.1484E+01, 0.1487E+01, 0.1491E+01, 0.1494E+01,& - 0.1498E+01, 0.1502E+01, 0.1505E+01, 0.1509E+01,& - 0.1513E+01, 0.1517E+01, 0.1520E+01, 0.1524E+01,& - 0.1528E+01, 0.1532E+01, 0.1536E+01, 0.1539E+01,& - 0.1543E+01, 0.1547E+01, 0.1551E+01, 0.1555E+01,& - 0.1559E+01, 0.1563E+01, 0.1567E+01, 0.1571E+01,& - 0.1575E+01, 0.1579E+01, 0.1583E+01, 0.1587E+01,& - 0.1591E+01, 0.1595E+01, 0.1599E+01, 0.1604E+01,& - 0.1608E+01, 0.1612E+01, 0.1616E+01, 0.1620E+01,& - 0.1625E+01, 0.1629E+01, 0.1633E+01, 0.1638E+01,& - 0.1642E+01, 0.1646E+01, 0.1651E+01, 0.1655E+01,& - 0.1660E+01, 0.1664E+01, 0.1669E+01, 0.1673E+01,& - 0.1678E+01, 0.1682E+01, 0.1687E+01, 0.1691E+01,& - 0.1696E+01, 0.1701E+01, 0.1705E+01, 0.1710E+01,& - 0.1715E+01, 0.1720E+01, 0.1725E+01, 0.1729E+01,& - 0.1734E+01, 0.1739E+01, 0.1744E+01, 0.1749E+01,& - 0.1754E+01, 0.1759E+01, 0.1764E+01, 0.1769E+01,& - 0.1774E+01, 0.1780E+01, 0.1785E+01, 0.1790E+01,& - 0.1795E+01, 0.1801E+01, 0.1806E+01, 0.1811E+01,& - 0.1817E+01, 0.1822E+01, 0.1828E+01, 0.1833E+01,& - 0.1839E+01, 0.1844E+01, 0.1850E+01, 0.1855E+01,& - 0.1861E+01, 0.1867E+01, 0.1873E+01, 0.1879E+01,& - 0.1884E+01, 0.1890E+01, 0.1896E+01, 0.1902E+01,& - 0.1908E+01, 0.1914E+01, 0.1921E+01, 0.1927E+01,& - 0.1933E+01, 0.1939E+01, 0.1946E+01, 0.1952E+01,& - 0.1959E+01, 0.1965E+01, 0.1972E+01, 0.1978E+01,& - 0.1985E+01, 0.1992E+01, 0.1999E+01, 0.2005E+01,& - 0.2012E+01, 0.2019E+01, 0.2026E+01, 0.2033E+01,& - 0.2041E+01, 0.2048E+01, 0.2055E+01, 0.2062E+01,& - 0.2070E+01, 0.2077E+01, 0.2085E+01, 0.2093E+01,& - 0.2100E+01, 0.2108E+01, 0.2116E+01, 0.2124E+01,& - 0.2132E+01, 0.2140E+01, 0.2149E+01, 0.2157E+01,& - 0.2165E+01, 0.2174E+01, 0.2182E+01, 0.2191E+01,& - 0.2200E+01, 0.2209E+01, 0.2218E+01, 0.2227E+01,& - 0.2236E+01, 0.2246E+01, 0.2255E+01, 0.2265E+01,& - 0.2274E+01, 0.2284E+01, 0.2294E+01, 0.2304E+01,& - 0.2314E+01, 0.2325E+01, 0.2335E+01, 0.2346E+01,& - 0.2357E+01, 0.2368E+01, 0.2379E+01, 0.2390E+01,& - 0.2401E+01, 0.2413E+01, 0.2425E+01, 0.2437E+01,& - 0.2449E+01, 0.2462E+01, 0.2474E+01, 0.2487E+01,& - 0.2500E+01, 0.2513E+01, 0.2527E+01, 0.2541E+01,& - 0.2555E+01, 0.2569E+01, 0.2584E+01, 0.2598E+01,& - 0.2614E+01, 0.2629E+01, 0.2645E+01, 0.2661E+01,& - 0.2678E+01, 0.2695E+01, 0.2712E+01, 0.2730E+01,& - 0.2748E+01, 0.2766E+01, 0.2786E+01, 0.2805E+01,& - 0.2825E+01, 0.2846E+01, 0.2867E+01, 0.2889E+01,& - 0.2912E+01, 0.2935E+01, 0.2959E+01, 0.2984E+01,& - 0.3010E+01, 0.3037E+01, 0.3065E+01, 0.3094E+01,& - 0.3124E+01, 0.3156E+01, 0.3189E+01, 0.3223E+01,& - 0.3259E+01, 0.3297E+01, 0.3338E+01, 0.3380E+01,& - 0.3426E+01, 0.3474E+01, 0.3526E+01, 0.3582E+01,& - 0.3643E+01, 0.3710E+01, 0.3783E+01, 0.3865E+01,& - 0.3958E+01, 0.4065E+01, 0.4191E+01, 0.4346E+01,& - 0.1000E-04, 0.7431E-02, 0.1194E-01, 0.1577E-01/) - xcw(:, 30) = (/& - 0.1000E-04, 0.7431E-02, 0.1194E-01, 0.1577E-01,& - 0.1922E-01, 0.2242E-01, 0.2543E-01, 0.2829E-01,& - 0.3103E-01, 0.3367E-01, 0.3623E-01, 0.3872E-01,& - 0.4114E-01, 0.4350E-01, 0.4582E-01, 0.4808E-01,& - 0.5031E-01, 0.5250E-01, 0.5465E-01, 0.5676E-01,& - 0.5886E-01, 0.6092E-01, 0.6295E-01, 0.6496E-01,& - 0.6695E-01, 0.6892E-01, 0.7086E-01, 0.7279E-01,& - 0.7469E-01, 0.7659E-01, 0.7846E-01, 0.8032E-01,& - 0.8216E-01, 0.8399E-01, 0.8581E-01, 0.8761E-01,& - 0.8940E-01, 0.9118E-01, 0.9294E-01, 0.9470E-01,& - 0.9644E-01, 0.9818E-01, 0.9990E-01, 0.1016E+00,& - 0.1033E+00, 0.1050E+00, 0.1067E+00, 0.1084E+00,& - 0.1101E+00, 0.1117E+00, 0.1134E+00, 0.1150E+00,& - 0.1167E+00, 0.1183E+00, 0.1199E+00, 0.1216E+00,& - 0.1232E+00, 0.1248E+00, 0.1264E+00, 0.1280E+00,& - 0.1296E+00, 0.1312E+00, 0.1327E+00, 0.1343E+00,& - 0.1359E+00, 0.1375E+00, 0.1390E+00, 0.1406E+00,& - 0.1421E+00, 0.1437E+00, 0.1452E+00, 0.1468E+00,& - 0.1483E+00, 0.1498E+00, 0.1514E+00, 0.1529E+00,& - 0.1544E+00, 0.1559E+00, 0.1574E+00, 0.1589E+00,& - 0.1604E+00, 0.1619E+00, 0.1634E+00, 0.1649E+00,& - 0.1664E+00, 0.1679E+00, 0.1694E+00, 0.1709E+00,& - 0.1724E+00, 0.1739E+00, 0.1753E+00, 0.1768E+00,& - 0.1783E+00, 0.1798E+00, 0.1812E+00, 0.1827E+00,& - 0.1841E+00, 0.1856E+00, 0.1871E+00, 0.1885E+00,& - 0.1900E+00, 0.1914E+00, 0.1929E+00, 0.1943E+00,& - 0.1958E+00, 0.1972E+00, 0.1986E+00, 0.2001E+00,& - 0.2015E+00, 0.2030E+00, 0.2044E+00, 0.2058E+00,& - 0.2073E+00, 0.2087E+00, 0.2101E+00, 0.2115E+00,& - 0.2130E+00, 0.2144E+00, 0.2158E+00, 0.2172E+00,& - 0.2186E+00, 0.2201E+00, 0.2215E+00, 0.2229E+00,& - 0.2243E+00, 0.2257E+00, 0.2271E+00, 0.2285E+00,& - 0.2299E+00, 0.2313E+00, 0.2327E+00, 0.2342E+00,& - 0.2356E+00, 0.2370E+00, 0.2384E+00, 0.2398E+00,& - 0.2412E+00, 0.2426E+00, 0.2440E+00, 0.2454E+00,& - 0.2468E+00, 0.2481E+00, 0.2495E+00, 0.2509E+00,& - 0.2523E+00, 0.2537E+00, 0.2551E+00, 0.2565E+00,& - 0.2579E+00, 0.2593E+00, 0.2607E+00, 0.2621E+00,& - 0.2634E+00, 0.2648E+00, 0.2662E+00, 0.2676E+00,& - 0.2690E+00, 0.2704E+00, 0.2718E+00, 0.2731E+00,& - 0.2745E+00, 0.2759E+00, 0.2773E+00, 0.2787E+00,& - 0.2801E+00, 0.2814E+00, 0.2828E+00, 0.2842E+00,& - 0.2856E+00, 0.2870E+00, 0.2883E+00, 0.2897E+00,& - 0.2911E+00, 0.2925E+00, 0.2938E+00, 0.2952E+00,& - 0.2966E+00, 0.2980E+00, 0.2994E+00, 0.3007E+00,& - 0.3021E+00, 0.3035E+00, 0.3049E+00, 0.3062E+00,& - 0.3076E+00, 0.3090E+00, 0.3104E+00, 0.3117E+00,& - 0.3131E+00, 0.3145E+00, 0.3159E+00, 0.3173E+00,& - 0.3186E+00, 0.3200E+00, 0.3214E+00, 0.3228E+00,& - 0.3241E+00, 0.3255E+00, 0.3269E+00, 0.3283E+00,& - 0.3296E+00, 0.3310E+00, 0.3324E+00, 0.3338E+00,& - 0.3351E+00, 0.3365E+00, 0.3379E+00, 0.3393E+00,& - 0.3407E+00, 0.3420E+00, 0.3434E+00, 0.3448E+00,& - 0.3462E+00, 0.3475E+00, 0.3489E+00, 0.3503E+00,& - 0.3517E+00, 0.3531E+00, 0.3544E+00, 0.3558E+00,& - 0.3572E+00, 0.3586E+00, 0.3600E+00, 0.3613E+00,& - 0.3627E+00, 0.3641E+00, 0.3655E+00, 0.3669E+00,& - 0.3682E+00, 0.3696E+00, 0.3710E+00, 0.3724E+00,& - 0.3738E+00, 0.3752E+00, 0.3765E+00, 0.3779E+00,& - 0.3793E+00, 0.3807E+00, 0.3821E+00, 0.3835E+00,& - 0.3849E+00, 0.3863E+00, 0.3876E+00, 0.3890E+00,& - 0.3904E+00, 0.3918E+00, 0.3932E+00, 0.3946E+00,& - 0.3960E+00, 0.3974E+00, 0.3988E+00, 0.4002E+00,& - 0.4016E+00, 0.4029E+00, 0.4043E+00, 0.4057E+00,& - 0.4071E+00, 0.4085E+00, 0.4099E+00, 0.4113E+00,& - 0.4127E+00, 0.4141E+00, 0.4155E+00, 0.4169E+00,& - 0.4183E+00, 0.4197E+00, 0.4211E+00, 0.4225E+00,& - 0.4239E+00, 0.4254E+00, 0.4268E+00, 0.4282E+00,& - 0.4296E+00, 0.4310E+00, 0.4324E+00, 0.4338E+00,& - 0.4352E+00, 0.4366E+00, 0.4380E+00, 0.4394E+00,& - 0.4409E+00, 0.4423E+00, 0.4437E+00, 0.4451E+00,& - 0.4465E+00, 0.4479E+00, 0.4494E+00, 0.4508E+00,& - 0.4522E+00, 0.4536E+00, 0.4550E+00, 0.4565E+00,& - 0.4579E+00, 0.4593E+00, 0.4607E+00, 0.4622E+00,& - 0.4636E+00, 0.4650E+00, 0.4664E+00, 0.4679E+00,& - 0.4693E+00, 0.4707E+00, 0.4722E+00, 0.4736E+00,& - 0.4750E+00, 0.4765E+00, 0.4779E+00, 0.4793E+00,& - 0.4808E+00, 0.4822E+00, 0.4837E+00, 0.4851E+00,& - 0.4866E+00, 0.4880E+00, 0.4894E+00, 0.4909E+00,& - 0.4923E+00, 0.4938E+00, 0.4952E+00, 0.4967E+00,& - 0.4981E+00, 0.4996E+00, 0.5010E+00, 0.5025E+00,& - 0.5040E+00, 0.5054E+00, 0.5069E+00, 0.5083E+00,& - 0.5098E+00, 0.5113E+00, 0.5127E+00, 0.5142E+00,& - 0.5156E+00, 0.5171E+00, 0.5186E+00, 0.5201E+00,& - 0.5215E+00, 0.5230E+00, 0.5245E+00, 0.5259E+00,& - 0.5274E+00, 0.5289E+00, 0.5304E+00, 0.5319E+00,& - 0.5333E+00, 0.5348E+00, 0.5363E+00, 0.5378E+00,& - 0.5393E+00, 0.5408E+00, 0.5422E+00, 0.5437E+00,& - 0.5452E+00, 0.5467E+00, 0.5482E+00, 0.5497E+00,& - 0.5512E+00, 0.5527E+00, 0.5542E+00, 0.5557E+00,& - 0.5572E+00, 0.5587E+00, 0.5602E+00, 0.5617E+00,& - 0.5632E+00, 0.5647E+00, 0.5662E+00, 0.5678E+00,& - 0.5693E+00, 0.5708E+00, 0.5723E+00, 0.5738E+00,& - 0.5753E+00, 0.5769E+00, 0.5784E+00, 0.5799E+00,& - 0.5814E+00, 0.5830E+00, 0.5845E+00, 0.5860E+00,& - 0.5875E+00, 0.5891E+00, 0.5906E+00, 0.5922E+00,& - 0.5937E+00, 0.5952E+00, 0.5968E+00, 0.5983E+00,& - 0.5999E+00, 0.6014E+00, 0.6030E+00, 0.6045E+00,& - 0.6061E+00, 0.6076E+00, 0.6092E+00, 0.6107E+00,& - 0.6123E+00, 0.6138E+00, 0.6154E+00, 0.6170E+00,& - 0.6185E+00, 0.6201E+00, 0.6217E+00, 0.6232E+00,& - 0.6248E+00, 0.6264E+00, 0.6280E+00, 0.6295E+00,& - 0.6311E+00, 0.6327E+00, 0.6343E+00, 0.6359E+00,& - 0.6375E+00, 0.6390E+00, 0.6406E+00, 0.6422E+00,& - 0.6438E+00, 0.6454E+00, 0.6470E+00, 0.6486E+00,& - 0.6502E+00, 0.6518E+00, 0.6534E+00, 0.6550E+00,& - 0.6566E+00, 0.6582E+00, 0.6599E+00, 0.6615E+00,& - 0.6631E+00, 0.6647E+00, 0.6663E+00, 0.6680E+00,& - 0.6696E+00, 0.6712E+00, 0.6728E+00, 0.6745E+00,& - 0.6761E+00, 0.6777E+00, 0.6794E+00, 0.6810E+00,& - 0.6827E+00, 0.6843E+00, 0.6859E+00, 0.6876E+00,& - 0.6892E+00, 0.6909E+00, 0.6925E+00, 0.6942E+00,& - 0.6959E+00, 0.6975E+00, 0.6992E+00, 0.7009E+00,& - 0.7025E+00, 0.7042E+00, 0.7059E+00, 0.7075E+00,& - 0.7092E+00, 0.7109E+00, 0.7126E+00, 0.7143E+00,& - 0.7159E+00, 0.7176E+00, 0.7193E+00, 0.7210E+00,& - 0.7227E+00, 0.7244E+00, 0.7261E+00, 0.7278E+00,& - 0.7295E+00, 0.7312E+00, 0.7329E+00, 0.7346E+00,& - 0.7364E+00, 0.7381E+00, 0.7398E+00, 0.7415E+00,& - 0.7432E+00, 0.7450E+00, 0.7467E+00, 0.7484E+00,& - 0.7502E+00, 0.7519E+00, 0.7536E+00, 0.7554E+00,& - 0.7571E+00, 0.7589E+00, 0.7606E+00, 0.7624E+00,& - 0.7641E+00, 0.7659E+00, 0.7676E+00, 0.7694E+00,& - 0.7712E+00, 0.7729E+00, 0.7747E+00, 0.7765E+00,& - 0.7783E+00, 0.7800E+00, 0.7818E+00, 0.7836E+00,& - 0.7854E+00, 0.7872E+00, 0.7890E+00, 0.7908E+00,& - 0.7926E+00, 0.7944E+00, 0.7962E+00, 0.7980E+00,& - 0.7998E+00, 0.8016E+00, 0.8034E+00, 0.8052E+00,& - 0.8071E+00, 0.8089E+00, 0.8107E+00, 0.8126E+00,& - 0.8144E+00, 0.8162E+00, 0.8181E+00, 0.8199E+00,& - 0.8218E+00, 0.8236E+00, 0.8255E+00, 0.8273E+00,& - 0.8292E+00, 0.8310E+00, 0.8329E+00, 0.8348E+00,& - 0.8366E+00, 0.8385E+00, 0.8404E+00, 0.8423E+00,& - 0.8441E+00, 0.8460E+00, 0.8479E+00, 0.8498E+00,& - 0.8517E+00, 0.8536E+00, 0.8555E+00, 0.8574E+00,& - 0.8593E+00, 0.8612E+00, 0.8632E+00, 0.8651E+00,& - 0.8670E+00, 0.8689E+00, 0.8709E+00, 0.8728E+00,& - 0.8747E+00, 0.8767E+00, 0.8786E+00, 0.8806E+00,& - 0.8825E+00, 0.8845E+00, 0.8864E+00, 0.8884E+00,& - 0.8904E+00, 0.8923E+00, 0.8943E+00, 0.8963E+00,& - 0.8983E+00, 0.9002E+00, 0.9022E+00, 0.9042E+00,& - 0.9062E+00, 0.9082E+00, 0.9102E+00, 0.9122E+00,& - 0.9142E+00, 0.9163E+00, 0.9183E+00, 0.9203E+00,& - 0.9223E+00, 0.9244E+00, 0.9264E+00, 0.9284E+00,& - 0.9305E+00, 0.9325E+00, 0.9346E+00, 0.9366E+00,& - 0.9387E+00, 0.9407E+00, 0.9428E+00, 0.9449E+00,& - 0.9470E+00, 0.9490E+00, 0.9511E+00, 0.9532E+00,& - 0.9553E+00, 0.9574E+00, 0.9595E+00, 0.9616E+00,& - 0.9637E+00, 0.9658E+00, 0.9679E+00, 0.9701E+00,& - 0.9722E+00, 0.9743E+00, 0.9765E+00, 0.9786E+00,& - 0.9808E+00, 0.9829E+00, 0.9851E+00, 0.9872E+00,& - 0.9894E+00, 0.9915E+00, 0.9937E+00, 0.9959E+00,& - 0.9981E+00, 0.1000E+01, 0.1002E+01, 0.1005E+01,& - 0.1007E+01, 0.1009E+01, 0.1011E+01, 0.1013E+01,& - 0.1016E+01, 0.1018E+01, 0.1020E+01, 0.1022E+01,& - 0.1025E+01, 0.1027E+01, 0.1029E+01, 0.1031E+01,& - 0.1034E+01, 0.1036E+01, 0.1038E+01, 0.1040E+01,& - 0.1043E+01, 0.1045E+01, 0.1047E+01, 0.1050E+01,& - 0.1052E+01, 0.1054E+01, 0.1057E+01, 0.1059E+01,& - 0.1061E+01, 0.1064E+01, 0.1066E+01, 0.1068E+01,& - 0.1071E+01, 0.1073E+01, 0.1075E+01, 0.1078E+01,& - 0.1080E+01, 0.1082E+01, 0.1085E+01, 0.1087E+01,& - 0.1090E+01, 0.1092E+01, 0.1094E+01, 0.1097E+01,& - 0.1099E+01, 0.1102E+01, 0.1104E+01, 0.1107E+01,& - 0.1109E+01, 0.1111E+01, 0.1114E+01, 0.1116E+01,& - 0.1119E+01, 0.1121E+01, 0.1124E+01, 0.1126E+01,& - 0.1129E+01, 0.1131E+01, 0.1134E+01, 0.1136E+01,& - 0.1139E+01, 0.1141E+01, 0.1144E+01, 0.1146E+01,& - 0.1149E+01, 0.1152E+01, 0.1154E+01, 0.1157E+01,& - 0.1159E+01, 0.1162E+01, 0.1164E+01, 0.1167E+01,& - 0.1170E+01, 0.1172E+01, 0.1175E+01, 0.1177E+01,& - 0.1180E+01, 0.1183E+01, 0.1185E+01, 0.1188E+01,& - 0.1191E+01, 0.1193E+01, 0.1196E+01, 0.1199E+01,& - 0.1201E+01, 0.1204E+01, 0.1207E+01, 0.1210E+01,& - 0.1212E+01, 0.1215E+01, 0.1218E+01, 0.1221E+01,& - 0.1223E+01, 0.1226E+01, 0.1229E+01, 0.1232E+01,& - 0.1234E+01, 0.1237E+01, 0.1240E+01, 0.1243E+01,& - 0.1246E+01, 0.1249E+01, 0.1251E+01, 0.1254E+01,& - 0.1257E+01, 0.1260E+01, 0.1263E+01, 0.1266E+01,& - 0.1269E+01, 0.1272E+01, 0.1274E+01, 0.1277E+01,& - 0.1280E+01, 0.1283E+01, 0.1286E+01, 0.1289E+01,& - 0.1292E+01, 0.1295E+01, 0.1298E+01, 0.1301E+01,& - 0.1304E+01, 0.1307E+01, 0.1310E+01, 0.1313E+01,& - 0.1316E+01, 0.1319E+01, 0.1323E+01, 0.1326E+01,& - 0.1329E+01, 0.1332E+01, 0.1335E+01, 0.1338E+01,& - 0.1341E+01, 0.1344E+01, 0.1348E+01, 0.1351E+01,& - 0.1354E+01, 0.1357E+01, 0.1360E+01, 0.1364E+01,& - 0.1367E+01, 0.1370E+01, 0.1373E+01, 0.1377E+01,& - 0.1380E+01, 0.1383E+01, 0.1386E+01, 0.1390E+01,& - 0.1393E+01, 0.1396E+01, 0.1400E+01, 0.1403E+01,& - 0.1407E+01, 0.1410E+01, 0.1413E+01, 0.1417E+01,& - 0.1420E+01, 0.1424E+01, 0.1427E+01, 0.1431E+01,& - 0.1434E+01, 0.1438E+01, 0.1441E+01, 0.1445E+01,& - 0.1448E+01, 0.1452E+01, 0.1455E+01, 0.1459E+01,& - 0.1463E+01, 0.1466E+01, 0.1470E+01, 0.1473E+01,& - 0.1477E+01, 0.1481E+01, 0.1484E+01, 0.1488E+01,& - 0.1492E+01, 0.1496E+01, 0.1499E+01, 0.1503E+01,& - 0.1507E+01, 0.1511E+01, 0.1515E+01, 0.1518E+01,& - 0.1522E+01, 0.1526E+01, 0.1530E+01, 0.1534E+01,& - 0.1538E+01, 0.1542E+01, 0.1546E+01, 0.1550E+01,& - 0.1554E+01, 0.1558E+01, 0.1562E+01, 0.1566E+01,& - 0.1570E+01, 0.1574E+01, 0.1578E+01, 0.1583E+01,& - 0.1587E+01, 0.1591E+01, 0.1595E+01, 0.1599E+01,& - 0.1604E+01, 0.1608E+01, 0.1612E+01, 0.1616E+01,& - 0.1621E+01, 0.1625E+01, 0.1629E+01, 0.1634E+01,& - 0.1638E+01, 0.1643E+01, 0.1647E+01, 0.1652E+01,& - 0.1656E+01, 0.1661E+01, 0.1665E+01, 0.1670E+01,& - 0.1675E+01, 0.1679E+01, 0.1684E+01, 0.1689E+01,& - 0.1693E+01, 0.1698E+01, 0.1703E+01, 0.1708E+01,& - 0.1712E+01, 0.1717E+01, 0.1722E+01, 0.1727E+01,& - 0.1732E+01, 0.1737E+01, 0.1742E+01, 0.1747E+01,& - 0.1752E+01, 0.1757E+01, 0.1762E+01, 0.1767E+01,& - 0.1773E+01, 0.1778E+01, 0.1783E+01, 0.1788E+01,& - 0.1794E+01, 0.1799E+01, 0.1805E+01, 0.1810E+01,& - 0.1815E+01, 0.1821E+01, 0.1826E+01, 0.1832E+01,& - 0.1838E+01, 0.1843E+01, 0.1849E+01, 0.1855E+01,& - 0.1861E+01, 0.1866E+01, 0.1872E+01, 0.1878E+01,& - 0.1884E+01, 0.1889E+01, 0.1896E+01, 0.1902E+01,& - 0.1908E+01, 0.1914E+01, 0.1921E+01, 0.1927E+01,& - 0.1933E+01, 0.1939E+01, 0.1946E+01, 0.1952E+01,& - 0.1959E+01, 0.1965E+01, 0.1972E+01, 0.1979E+01,& - 0.1985E+01, 0.1992E+01, 0.1999E+01, 0.2006E+01,& - 0.2013E+01, 0.2020E+01, 0.2027E+01, 0.2034E+01,& - 0.2041E+01, 0.2049E+01, 0.2056E+01, 0.2063E+01,& - 0.2071E+01, 0.2078E+01, 0.2086E+01, 0.2094E+01,& - 0.2101E+01, 0.2109E+01, 0.2117E+01, 0.2125E+01,& - 0.2133E+01, 0.2141E+01, 0.2150E+01, 0.2158E+01,& - 0.2166E+01, 0.2175E+01, 0.2183E+01, 0.2192E+01,& - 0.2201E+01, 0.2210E+01, 0.2219E+01, 0.2228E+01,& - 0.2237E+01, 0.2246E+01, 0.2256E+01, 0.2265E+01,& - 0.2275E+01, 0.2284E+01, 0.2294E+01, 0.2304E+01,& - 0.2314E+01, 0.2325E+01, 0.2335E+01, 0.2346E+01,& - 0.2356E+01, 0.2367E+01, 0.2378E+01, 0.2389E+01,& - 0.2400E+01, 0.2412E+01, 0.2424E+01, 0.2435E+01,& - 0.2447E+01, 0.2459E+01, 0.2472E+01, 0.2484E+01,& - 0.2497E+01, 0.2510E+01, 0.2523E+01, 0.2537E+01,& - 0.2550E+01, 0.2564E+01, 0.2578E+01, 0.2593E+01,& - 0.2607E+01, 0.2622E+01, 0.2638E+01, 0.2653E+01,& - 0.2669E+01, 0.2685E+01, 0.2702E+01, 0.2719E+01,& - 0.2736E+01, 0.2754E+01, 0.2772E+01, 0.2790E+01,& - 0.2809E+01, 0.2829E+01, 0.2849E+01, 0.2869E+01,& - 0.2890E+01, 0.2912E+01, 0.2934E+01, 0.2957E+01,& - 0.2981E+01, 0.3006E+01, 0.3031E+01, 0.3057E+01,& - 0.3084E+01, 0.3112E+01, 0.3141E+01, 0.3172E+01,& - 0.3203E+01, 0.3236E+01, 0.3271E+01, 0.3307E+01,& - 0.3345E+01, 0.3385E+01, 0.3427E+01, 0.3472E+01,& - 0.3520E+01, 0.3571E+01, 0.3625E+01, 0.3684E+01,& - 0.3748E+01, 0.3818E+01, 0.3895E+01, 0.3981E+01,& - 0.4079E+01, 0.4191E+01, 0.4324E+01, 0.4486E+01,& - 0.1000E-04, 0.5727E-02, 0.9468E-02, 0.1272E-01/) - xcw(:, 31) = (/& - 0.1000E-04, 0.5727E-02, 0.9468E-02, 0.1272E-01,& - 0.1568E-01, 0.1845E-01, 0.2108E-01, 0.2360E-01,& - 0.2603E-01, 0.2838E-01, 0.3066E-01, 0.3289E-01,& - 0.3507E-01, 0.3720E-01, 0.3930E-01, 0.4136E-01,& - 0.4338E-01, 0.4538E-01, 0.4734E-01, 0.4928E-01,& - 0.5120E-01, 0.5310E-01, 0.5497E-01, 0.5683E-01,& - 0.5866E-01, 0.6048E-01, 0.6228E-01, 0.6407E-01,& - 0.6585E-01, 0.6760E-01, 0.6935E-01, 0.7108E-01,& - 0.7281E-01, 0.7451E-01, 0.7621E-01, 0.7790E-01,& - 0.7958E-01, 0.8125E-01, 0.8291E-01, 0.8456E-01,& - 0.8620E-01, 0.8783E-01, 0.8946E-01, 0.9108E-01,& - 0.9269E-01, 0.9429E-01, 0.9589E-01, 0.9748E-01,& - 0.9906E-01, 0.1006E+00, 0.1022E+00, 0.1038E+00,& - 0.1053E+00, 0.1069E+00, 0.1084E+00, 0.1100E+00,& - 0.1115E+00, 0.1131E+00, 0.1146E+00, 0.1161E+00,& - 0.1176E+00, 0.1191E+00, 0.1207E+00, 0.1222E+00,& - 0.1237E+00, 0.1252E+00, 0.1267E+00, 0.1282E+00,& - 0.1296E+00, 0.1311E+00, 0.1326E+00, 0.1341E+00,& - 0.1356E+00, 0.1370E+00, 0.1385E+00, 0.1400E+00,& - 0.1414E+00, 0.1429E+00, 0.1444E+00, 0.1458E+00,& - 0.1473E+00, 0.1487E+00, 0.1502E+00, 0.1516E+00,& - 0.1530E+00, 0.1545E+00, 0.1559E+00, 0.1574E+00,& - 0.1588E+00, 0.1602E+00, 0.1617E+00, 0.1631E+00,& - 0.1645E+00, 0.1659E+00, 0.1673E+00, 0.1688E+00,& - 0.1702E+00, 0.1716E+00, 0.1730E+00, 0.1744E+00,& - 0.1758E+00, 0.1772E+00, 0.1787E+00, 0.1801E+00,& - 0.1815E+00, 0.1829E+00, 0.1843E+00, 0.1857E+00,& - 0.1871E+00, 0.1885E+00, 0.1899E+00, 0.1913E+00,& - 0.1927E+00, 0.1940E+00, 0.1954E+00, 0.1968E+00,& - 0.1982E+00, 0.1996E+00, 0.2010E+00, 0.2024E+00,& - 0.2038E+00, 0.2052E+00, 0.2065E+00, 0.2079E+00,& - 0.2093E+00, 0.2107E+00, 0.2121E+00, 0.2134E+00,& - 0.2148E+00, 0.2162E+00, 0.2176E+00, 0.2189E+00,& - 0.2203E+00, 0.2217E+00, 0.2231E+00, 0.2244E+00,& - 0.2258E+00, 0.2272E+00, 0.2286E+00, 0.2299E+00,& - 0.2313E+00, 0.2327E+00, 0.2340E+00, 0.2354E+00,& - 0.2368E+00, 0.2382E+00, 0.2395E+00, 0.2409E+00,& - 0.2423E+00, 0.2436E+00, 0.2450E+00, 0.2463E+00,& - 0.2477E+00, 0.2491E+00, 0.2504E+00, 0.2518E+00,& - 0.2532E+00, 0.2545E+00, 0.2559E+00, 0.2573E+00,& - 0.2586E+00, 0.2600E+00, 0.2614E+00, 0.2627E+00,& - 0.2641E+00, 0.2654E+00, 0.2668E+00, 0.2682E+00,& - 0.2695E+00, 0.2709E+00, 0.2723E+00, 0.2736E+00,& - 0.2750E+00, 0.2763E+00, 0.2777E+00, 0.2791E+00,& - 0.2804E+00, 0.2818E+00, 0.2832E+00, 0.2845E+00,& - 0.2859E+00, 0.2872E+00, 0.2886E+00, 0.2900E+00,& - 0.2913E+00, 0.2927E+00, 0.2941E+00, 0.2954E+00,& - 0.2968E+00, 0.2981E+00, 0.2995E+00, 0.3009E+00,& - 0.3022E+00, 0.3036E+00, 0.3050E+00, 0.3063E+00,& - 0.3077E+00, 0.3091E+00, 0.3104E+00, 0.3118E+00,& - 0.3132E+00, 0.3145E+00, 0.3159E+00, 0.3173E+00,& - 0.3186E+00, 0.3200E+00, 0.3214E+00, 0.3227E+00,& - 0.3241E+00, 0.3255E+00, 0.3268E+00, 0.3282E+00,& - 0.3296E+00, 0.3309E+00, 0.3323E+00, 0.3337E+00,& - 0.3351E+00, 0.3364E+00, 0.3378E+00, 0.3392E+00,& - 0.3406E+00, 0.3419E+00, 0.3433E+00, 0.3447E+00,& - 0.3461E+00, 0.3474E+00, 0.3488E+00, 0.3502E+00,& - 0.3516E+00, 0.3529E+00, 0.3543E+00, 0.3557E+00,& - 0.3571E+00, 0.3585E+00, 0.3598E+00, 0.3612E+00,& - 0.3626E+00, 0.3640E+00, 0.3654E+00, 0.3668E+00,& - 0.3681E+00, 0.3695E+00, 0.3709E+00, 0.3723E+00,& - 0.3737E+00, 0.3751E+00, 0.3765E+00, 0.3779E+00,& - 0.3792E+00, 0.3806E+00, 0.3820E+00, 0.3834E+00,& - 0.3848E+00, 0.3862E+00, 0.3876E+00, 0.3890E+00,& - 0.3904E+00, 0.3918E+00, 0.3932E+00, 0.3946E+00,& - 0.3960E+00, 0.3974E+00, 0.3988E+00, 0.4002E+00,& - 0.4016E+00, 0.4030E+00, 0.4044E+00, 0.4058E+00,& - 0.4072E+00, 0.4086E+00, 0.4100E+00, 0.4114E+00,& - 0.4128E+00, 0.4143E+00, 0.4157E+00, 0.4171E+00,& - 0.4185E+00, 0.4199E+00, 0.4213E+00, 0.4227E+00,& - 0.4242E+00, 0.4256E+00, 0.4270E+00, 0.4284E+00,& - 0.4298E+00, 0.4313E+00, 0.4327E+00, 0.4341E+00,& - 0.4355E+00, 0.4370E+00, 0.4384E+00, 0.4398E+00,& - 0.4412E+00, 0.4427E+00, 0.4441E+00, 0.4455E+00,& - 0.4470E+00, 0.4484E+00, 0.4498E+00, 0.4513E+00,& - 0.4527E+00, 0.4542E+00, 0.4556E+00, 0.4570E+00,& - 0.4585E+00, 0.4599E+00, 0.4614E+00, 0.4628E+00,& - 0.4643E+00, 0.4657E+00, 0.4672E+00, 0.4686E+00,& - 0.4701E+00, 0.4715E+00, 0.4730E+00, 0.4744E+00,& - 0.4759E+00, 0.4773E+00, 0.4788E+00, 0.4803E+00,& - 0.4817E+00, 0.4832E+00, 0.4846E+00, 0.4861E+00,& - 0.4876E+00, 0.4891E+00, 0.4905E+00, 0.4920E+00,& - 0.4935E+00, 0.4949E+00, 0.4964E+00, 0.4979E+00,& - 0.4994E+00, 0.5008E+00, 0.5023E+00, 0.5038E+00,& - 0.5053E+00, 0.5068E+00, 0.5082E+00, 0.5097E+00,& - 0.5112E+00, 0.5127E+00, 0.5142E+00, 0.5157E+00,& - 0.5172E+00, 0.5187E+00, 0.5202E+00, 0.5217E+00,& - 0.5232E+00, 0.5247E+00, 0.5262E+00, 0.5277E+00,& - 0.5292E+00, 0.5307E+00, 0.5322E+00, 0.5337E+00,& - 0.5352E+00, 0.5367E+00, 0.5383E+00, 0.5398E+00,& - 0.5413E+00, 0.5428E+00, 0.5443E+00, 0.5459E+00,& - 0.5474E+00, 0.5489E+00, 0.5504E+00, 0.5520E+00,& - 0.5535E+00, 0.5550E+00, 0.5566E+00, 0.5581E+00,& - 0.5596E+00, 0.5612E+00, 0.5627E+00, 0.5642E+00,& - 0.5658E+00, 0.5673E+00, 0.5689E+00, 0.5704E+00,& - 0.5720E+00, 0.5735E+00, 0.5751E+00, 0.5766E+00,& - 0.5782E+00, 0.5798E+00, 0.5813E+00, 0.5829E+00,& - 0.5844E+00, 0.5860E+00, 0.5876E+00, 0.5891E+00,& - 0.5907E+00, 0.5923E+00, 0.5939E+00, 0.5954E+00,& - 0.5970E+00, 0.5986E+00, 0.6002E+00, 0.6018E+00,& - 0.6033E+00, 0.6049E+00, 0.6065E+00, 0.6081E+00,& - 0.6097E+00, 0.6113E+00, 0.6129E+00, 0.6145E+00,& - 0.6161E+00, 0.6177E+00, 0.6193E+00, 0.6209E+00,& - 0.6225E+00, 0.6241E+00, 0.6258E+00, 0.6274E+00,& - 0.6290E+00, 0.6306E+00, 0.6322E+00, 0.6339E+00,& - 0.6355E+00, 0.6371E+00, 0.6387E+00, 0.6404E+00,& - 0.6420E+00, 0.6436E+00, 0.6453E+00, 0.6469E+00,& - 0.6486E+00, 0.6502E+00, 0.6518E+00, 0.6535E+00,& - 0.6551E+00, 0.6568E+00, 0.6585E+00, 0.6601E+00,& - 0.6618E+00, 0.6634E+00, 0.6651E+00, 0.6668E+00,& - 0.6684E+00, 0.6701E+00, 0.6718E+00, 0.6734E+00,& - 0.6751E+00, 0.6768E+00, 0.6785E+00, 0.6802E+00,& - 0.6819E+00, 0.6835E+00, 0.6852E+00, 0.6869E+00,& - 0.6886E+00, 0.6903E+00, 0.6920E+00, 0.6937E+00,& - 0.6954E+00, 0.6971E+00, 0.6989E+00, 0.7006E+00,& - 0.7023E+00, 0.7040E+00, 0.7057E+00, 0.7074E+00,& - 0.7092E+00, 0.7109E+00, 0.7126E+00, 0.7144E+00,& - 0.7161E+00, 0.7178E+00, 0.7196E+00, 0.7213E+00,& - 0.7231E+00, 0.7248E+00, 0.7266E+00, 0.7283E+00,& - 0.7301E+00, 0.7318E+00, 0.7336E+00, 0.7354E+00,& - 0.7371E+00, 0.7389E+00, 0.7407E+00, 0.7424E+00,& - 0.7442E+00, 0.7460E+00, 0.7478E+00, 0.7496E+00,& - 0.7514E+00, 0.7531E+00, 0.7549E+00, 0.7567E+00,& - 0.7585E+00, 0.7603E+00, 0.7621E+00, 0.7640E+00,& - 0.7658E+00, 0.7676E+00, 0.7694E+00, 0.7712E+00,& - 0.7730E+00, 0.7749E+00, 0.7767E+00, 0.7785E+00,& - 0.7804E+00, 0.7822E+00, 0.7840E+00, 0.7859E+00,& - 0.7877E+00, 0.7896E+00, 0.7914E+00, 0.7933E+00,& - 0.7952E+00, 0.7970E+00, 0.7989E+00, 0.8008E+00,& - 0.8026E+00, 0.8045E+00, 0.8064E+00, 0.8083E+00,& - 0.8101E+00, 0.8120E+00, 0.8139E+00, 0.8158E+00,& - 0.8177E+00, 0.8196E+00, 0.8215E+00, 0.8234E+00,& - 0.8253E+00, 0.8273E+00, 0.8292E+00, 0.8311E+00,& - 0.8330E+00, 0.8350E+00, 0.8369E+00, 0.8388E+00,& - 0.8408E+00, 0.8427E+00, 0.8446E+00, 0.8466E+00,& - 0.8485E+00, 0.8505E+00, 0.8525E+00, 0.8544E+00,& - 0.8564E+00, 0.8584E+00, 0.8603E+00, 0.8623E+00,& - 0.8643E+00, 0.8663E+00, 0.8681E+00, 0.8703E+00,& - 0.8723E+00, 0.8743E+00, 0.8763E+00, 0.8783E+00,& - 0.8803E+00, 0.8823E+00, 0.8843E+00, 0.8863E+00,& - 0.8884E+00, 0.8904E+00, 0.8924E+00, 0.8945E+00,& - 0.8965E+00, 0.8986E+00, 0.9006E+00, 0.9027E+00,& - 0.9047E+00, 0.9068E+00, 0.9089E+00, 0.9109E+00,& - 0.9130E+00, 0.9151E+00, 0.9172E+00, 0.9193E+00,& - 0.9214E+00, 0.9235E+00, 0.9256E+00, 0.9277E+00,& - 0.9298E+00, 0.9319E+00, 0.9340E+00, 0.9361E+00,& - 0.9383E+00, 0.9404E+00, 0.9425E+00, 0.9447E+00,& - 0.9468E+00, 0.9490E+00, 0.9511E+00, 0.9533E+00,& - 0.9554E+00, 0.9576E+00, 0.9598E+00, 0.9619E+00,& - 0.9641E+00, 0.9663E+00, 0.9685E+00, 0.9707E+00,& - 0.9729E+00, 0.9751E+00, 0.9773E+00, 0.9795E+00,& - 0.9817E+00, 0.9840E+00, 0.9862E+00, 0.9884E+00,& - 0.9907E+00, 0.9929E+00, 0.9952E+00, 0.9974E+00,& - 0.9997E+00, 0.1002E+01, 0.1004E+01, 0.1006E+01,& - 0.1009E+01, 0.1011E+01, 0.1013E+01, 0.1016E+01,& - 0.1018E+01, 0.1020E+01, 0.1023E+01, 0.1025E+01,& - 0.1027E+01, 0.1030E+01, 0.1032E+01, 0.1034E+01,& - 0.1037E+01, 0.1039E+01, 0.1041E+01, 0.1044E+01,& - 0.1046E+01, 0.1048E+01, 0.1051E+01, 0.1053E+01,& - 0.1056E+01, 0.1058E+01, 0.1060E+01, 0.1063E+01,& - 0.1065E+01, 0.1068E+01, 0.1070E+01, 0.1072E+01,& - 0.1075E+01, 0.1077E+01, 0.1080E+01, 0.1082E+01,& - 0.1085E+01, 0.1087E+01, 0.1090E+01, 0.1092E+01,& - 0.1095E+01, 0.1097E+01, 0.1100E+01, 0.1102E+01,& - 0.1105E+01, 0.1107E+01, 0.1110E+01, 0.1112E+01,& - 0.1115E+01, 0.1117E+01, 0.1120E+01, 0.1122E+01,& - 0.1125E+01, 0.1128E+01, 0.1130E+01, 0.1133E+01,& - 0.1135E+01, 0.1138E+01, 0.1141E+01, 0.1143E+01,& - 0.1146E+01, 0.1148E+01, 0.1151E+01, 0.1154E+01,& - 0.1156E+01, 0.1159E+01, 0.1162E+01, 0.1164E+01,& - 0.1167E+01, 0.1170E+01, 0.1172E+01, 0.1175E+01,& - 0.1178E+01, 0.1181E+01, 0.1183E+01, 0.1186E+01,& - 0.1189E+01, 0.1192E+01, 0.1194E+01, 0.1197E+01,& - 0.1200E+01, 0.1203E+01, 0.1205E+01, 0.1208E+01,& - 0.1211E+01, 0.1214E+01, 0.1217E+01, 0.1220E+01,& - 0.1222E+01, 0.1225E+01, 0.1228E+01, 0.1231E+01,& - 0.1234E+01, 0.1237E+01, 0.1240E+01, 0.1243E+01,& - 0.1245E+01, 0.1248E+01, 0.1251E+01, 0.1254E+01,& - 0.1257E+01, 0.1260E+01, 0.1263E+01, 0.1266E+01,& - 0.1269E+01, 0.1272E+01, 0.1275E+01, 0.1278E+01,& - 0.1281E+01, 0.1284E+01, 0.1287E+01, 0.1290E+01,& - 0.1293E+01, 0.1296E+01, 0.1300E+01, 0.1303E+01,& - 0.1306E+01, 0.1309E+01, 0.1312E+01, 0.1315E+01,& - 0.1318E+01, 0.1322E+01, 0.1325E+01, 0.1328E+01,& - 0.1331E+01, 0.1334E+01, 0.1338E+01, 0.1341E+01,& - 0.1344E+01, 0.1347E+01, 0.1351E+01, 0.1354E+01,& - 0.1357E+01, 0.1360E+01, 0.1364E+01, 0.1367E+01,& - 0.1370E+01, 0.1374E+01, 0.1377E+01, 0.1381E+01,& - 0.1384E+01, 0.1387E+01, 0.1391E+01, 0.1394E+01,& - 0.1398E+01, 0.1401E+01, 0.1405E+01, 0.1408E+01,& - 0.1411E+01, 0.1415E+01, 0.1419E+01, 0.1422E+01,& - 0.1426E+01, 0.1429E+01, 0.1433E+01, 0.1436E+01,& - 0.1440E+01, 0.1444E+01, 0.1447E+01, 0.1451E+01,& - 0.1455E+01, 0.1458E+01, 0.1462E+01, 0.1466E+01,& - 0.1469E+01, 0.1473E+01, 0.1477E+01, 0.1481E+01,& - 0.1484E+01, 0.1488E+01, 0.1492E+01, 0.1496E+01,& - 0.1500E+01, 0.1504E+01, 0.1508E+01, 0.1511E+01,& - 0.1515E+01, 0.1519E+01, 0.1523E+01, 0.1527E+01,& - 0.1531E+01, 0.1535E+01, 0.1539E+01, 0.1543E+01,& - 0.1547E+01, 0.1552E+01, 0.1556E+01, 0.1560E+01,& - 0.1564E+01, 0.1568E+01, 0.1572E+01, 0.1577E+01,& - 0.1581E+01, 0.1585E+01, 0.1589E+01, 0.1594E+01,& - 0.1598E+01, 0.1602E+01, 0.1607E+01, 0.1611E+01,& - 0.1615E+01, 0.1620E+01, 0.1624E+01, 0.1629E+01,& - 0.1633E+01, 0.1638E+01, 0.1642E+01, 0.1647E+01,& - 0.1651E+01, 0.1656E+01, 0.1661E+01, 0.1665E+01,& - 0.1670E+01, 0.1675E+01, 0.1679E+01, 0.1684E+01,& - 0.1689E+01, 0.1694E+01, 0.1699E+01, 0.1704E+01,& - 0.1708E+01, 0.1713E+01, 0.1718E+01, 0.1723E+01,& - 0.1728E+01, 0.1733E+01, 0.1738E+01, 0.1743E+01,& - 0.1749E+01, 0.1754E+01, 0.1759E+01, 0.1764E+01,& - 0.1769E+01, 0.1775E+01, 0.1780E+01, 0.1785E+01,& - 0.1791E+01, 0.1796E+01, 0.1802E+01, 0.1807E+01,& - 0.1813E+01, 0.1818E+01, 0.1824E+01, 0.1830E+01,& - 0.1835E+01, 0.1841E+01, 0.1847E+01, 0.1852E+01,& - 0.1858E+01, 0.1864E+01, 0.1870E+01, 0.1876E+01,& - 0.1882E+01, 0.1888E+01, 0.1894E+01, 0.1900E+01,& - 0.1906E+01, 0.1913E+01, 0.1919E+01, 0.1925E+01,& - 0.1932E+01, 0.1938E+01, 0.1944E+01, 0.1951E+01,& - 0.1957E+01, 0.1964E+01, 0.1971E+01, 0.1977E+01,& - 0.1984E+01, 0.1991E+01, 0.1998E+01, 0.2005E+01,& - 0.2012E+01, 0.2019E+01, 0.2026E+01, 0.2033E+01,& - 0.2040E+01, 0.2048E+01, 0.2055E+01, 0.2062E+01,& - 0.2070E+01, 0.2078E+01, 0.2085E+01, 0.2093E+01,& - 0.2101E+01, 0.2108E+01, 0.2116E+01, 0.2124E+01,& - 0.2132E+01, 0.2141E+01, 0.2149E+01, 0.2157E+01,& - 0.2166E+01, 0.2174E+01, 0.2183E+01, 0.2191E+01,& - 0.2200E+01, 0.2209E+01, 0.2218E+01, 0.2227E+01,& - 0.2236E+01, 0.2245E+01, 0.2255E+01, 0.2264E+01,& - 0.2274E+01, 0.2283E+01, 0.2293E+01, 0.2303E+01,& - 0.2313E+01, 0.2323E+01, 0.2333E+01, 0.2344E+01,& - 0.2354E+01, 0.2365E+01, 0.2376E+01, 0.2387E+01,& - 0.2398E+01, 0.2409E+01, 0.2421E+01, 0.2432E+01,& - 0.2444E+01, 0.2456E+01, 0.2468E+01, 0.2480E+01,& - 0.2493E+01, 0.2506E+01, 0.2519E+01, 0.2532E+01,& - 0.2545E+01, 0.2558E+01, 0.2572E+01, 0.2586E+01,& - 0.2600E+01, 0.2615E+01, 0.2630E+01, 0.2645E+01,& - 0.2660E+01, 0.2676E+01, 0.2692E+01, 0.2708E+01,& - 0.2724E+01, 0.2741E+01, 0.2759E+01, 0.2776E+01,& - 0.2794E+01, 0.2813E+01, 0.2832E+01, 0.2851E+01,& - 0.2871E+01, 0.2891E+01, 0.2912E+01, 0.2934E+01,& - 0.2956E+01, 0.2978E+01, 0.3002E+01, 0.3026E+01,& - 0.3051E+01, 0.3076E+01, 0.3103E+01, 0.3130E+01,& - 0.3158E+01, 0.3188E+01, 0.3218E+01, 0.3250E+01,& - 0.3283E+01, 0.3318E+01, 0.3354E+01, 0.3392E+01,& - 0.3431E+01, 0.3473E+01, 0.3518E+01, 0.3565E+01,& - 0.3614E+01, 0.3668E+01, 0.3725E+01, 0.3787E+01,& - 0.3854E+01, 0.3927E+01, 0.4008E+01, 0.4098E+01,& - 0.4201E+01, 0.4319E+01, 0.4458E+01, 0.4628E+01,& - 0.1000E-04, 0.4375E-02, 0.7448E-02, 0.1018E-01/) - xcw(:, 32) = (/& - 0.1000E-04, 0.4375E-02, 0.7448E-02, 0.1018E-01,& - 0.1271E-01, 0.1509E-01, 0.1737E-01, 0.1958E-01,& - 0.2171E-01, 0.2379E-01, 0.2581E-01, 0.2780E-01,& - 0.2975E-01, 0.3167E-01, 0.3355E-01, 0.3540E-01,& - 0.3724E-01, 0.3905E-01, 0.4083E-01, 0.4260E-01,& - 0.4435E-01, 0.4608E-01, 0.4780E-01, 0.4951E-01,& - 0.5119E-01, 0.5287E-01, 0.5453E-01, 0.5618E-01,& - 0.5782E-01, 0.5945E-01, 0.6107E-01, 0.6268E-01,& - 0.6428E-01, 0.6587E-01, 0.6745E-01, 0.6903E-01,& - 0.7059E-01, 0.7215E-01, 0.7370E-01, 0.7525E-01,& - 0.7679E-01, 0.7832E-01, 0.7985E-01, 0.8137E-01,& - 0.8288E-01, 0.8439E-01, 0.8590E-01, 0.8740E-01,& - 0.8889E-01, 0.9038E-01, 0.9187E-01, 0.9334E-01,& - 0.9482E-01, 0.9630E-01, 0.9776E-01, 0.9923E-01,& - 0.1007E+00, 0.1021E+00, 0.1036E+00, 0.1050E+00,& - 0.1065E+00, 0.1079E+00, 0.1094E+00, 0.1108E+00,& - 0.1122E+00, 0.1137E+00, 0.1151E+00, 0.1165E+00,& - 0.1179E+00, 0.1194E+00, 0.1208E+00, 0.1222E+00,& - 0.1236E+00, 0.1250E+00, 0.1264E+00, 0.1278E+00,& - 0.1292E+00, 0.1306E+00, 0.1320E+00, 0.1334E+00,& - 0.1348E+00, 0.1362E+00, 0.1376E+00, 0.1390E+00,& - 0.1404E+00, 0.1418E+00, 0.1432E+00, 0.1445E+00,& - 0.1459E+00, 0.1473E+00, 0.1487E+00, 0.1501E+00,& - 0.1514E+00, 0.1528E+00, 0.1542E+00, 0.1556E+00,& - 0.1569E+00, 0.1583E+00, 0.1597E+00, 0.1610E+00,& - 0.1624E+00, 0.1638E+00, 0.1651E+00, 0.1665E+00,& - 0.1679E+00, 0.1692E+00, 0.1706E+00, 0.1719E+00,& - 0.1733E+00, 0.1747E+00, 0.1760E+00, 0.1774E+00,& - 0.1787E+00, 0.1801E+00, 0.1814E+00, 0.1828E+00,& - 0.1841E+00, 0.1855E+00, 0.1868E+00, 0.1882E+00,& - 0.1895E+00, 0.1909E+00, 0.1922E+00, 0.1936E+00,& - 0.1949E+00, 0.1963E+00, 0.1976E+00, 0.1990E+00,& - 0.2003E+00, 0.2017E+00, 0.2030E+00, 0.2044E+00,& - 0.2057E+00, 0.2070E+00, 0.2084E+00, 0.2097E+00,& - 0.2111E+00, 0.2124E+00, 0.2138E+00, 0.2151E+00,& - 0.2164E+00, 0.2178E+00, 0.2191E+00, 0.2205E+00,& - 0.2218E+00, 0.2232E+00, 0.2245E+00, 0.2258E+00,& - 0.2272E+00, 0.2285E+00, 0.2299E+00, 0.2312E+00,& - 0.2325E+00, 0.2339E+00, 0.2352E+00, 0.2366E+00,& - 0.2379E+00, 0.2392E+00, 0.2406E+00, 0.2419E+00,& - 0.2433E+00, 0.2446E+00, 0.2459E+00, 0.2473E+00,& - 0.2486E+00, 0.2500E+00, 0.2513E+00, 0.2527E+00,& - 0.2540E+00, 0.2553E+00, 0.2567E+00, 0.2580E+00,& - 0.2594E+00, 0.2607E+00, 0.2621E+00, 0.2634E+00,& - 0.2647E+00, 0.2661E+00, 0.2674E+00, 0.2688E+00,& - 0.2701E+00, 0.2715E+00, 0.2728E+00, 0.2742E+00,& - 0.2755E+00, 0.2768E+00, 0.2782E+00, 0.2795E+00,& - 0.2809E+00, 0.2822E+00, 0.2836E+00, 0.2849E+00,& - 0.2863E+00, 0.2876E+00, 0.2890E+00, 0.2903E+00,& - 0.2917E+00, 0.2930E+00, 0.2944E+00, 0.2957E+00,& - 0.2971E+00, 0.2984E+00, 0.2998E+00, 0.3012E+00,& - 0.3025E+00, 0.3039E+00, 0.3052E+00, 0.3066E+00,& - 0.3079E+00, 0.3093E+00, 0.3107E+00, 0.3120E+00,& - 0.3134E+00, 0.3147E+00, 0.3161E+00, 0.3175E+00,& - 0.3188E+00, 0.3202E+00, 0.3215E+00, 0.3229E+00,& - 0.3243E+00, 0.3256E+00, 0.3270E+00, 0.3284E+00,& - 0.3297E+00, 0.3311E+00, 0.3325E+00, 0.3338E+00,& - 0.3352E+00, 0.3366E+00, 0.3380E+00, 0.3393E+00,& - 0.3407E+00, 0.3421E+00, 0.3435E+00, 0.3448E+00,& - 0.3462E+00, 0.3476E+00, 0.3490E+00, 0.3503E+00,& - 0.3517E+00, 0.3531E+00, 0.3545E+00, 0.3559E+00,& - 0.3573E+00, 0.3586E+00, 0.3600E+00, 0.3614E+00,& - 0.3628E+00, 0.3642E+00, 0.3656E+00, 0.3670E+00,& - 0.3683E+00, 0.3697E+00, 0.3711E+00, 0.3725E+00,& - 0.3739E+00, 0.3753E+00, 0.3767E+00, 0.3781E+00,& - 0.3795E+00, 0.3809E+00, 0.3823E+00, 0.3837E+00,& - 0.3851E+00, 0.3865E+00, 0.3879E+00, 0.3893E+00,& - 0.3907E+00, 0.3921E+00, 0.3935E+00, 0.3949E+00,& - 0.3964E+00, 0.3978E+00, 0.3992E+00, 0.4006E+00,& - 0.4020E+00, 0.4034E+00, 0.4048E+00, 0.4063E+00,& - 0.4077E+00, 0.4091E+00, 0.4105E+00, 0.4119E+00,& - 0.4134E+00, 0.4148E+00, 0.4162E+00, 0.4176E+00,& - 0.4191E+00, 0.4205E+00, 0.4219E+00, 0.4234E+00,& - 0.4248E+00, 0.4262E+00, 0.4277E+00, 0.4291E+00,& - 0.4305E+00, 0.4320E+00, 0.4334E+00, 0.4349E+00,& - 0.4363E+00, 0.4377E+00, 0.4392E+00, 0.4406E+00,& - 0.4421E+00, 0.4435E+00, 0.4450E+00, 0.4464E+00,& - 0.4479E+00, 0.4493E+00, 0.4508E+00, 0.4522E+00,& - 0.4537E+00, 0.4552E+00, 0.4566E+00, 0.4581E+00,& - 0.4595E+00, 0.4610E+00, 0.4625E+00, 0.4639E+00,& - 0.4654E+00, 0.4669E+00, 0.4684E+00, 0.4698E+00,& - 0.4713E+00, 0.4728E+00, 0.4743E+00, 0.4757E+00,& - 0.4772E+00, 0.4787E+00, 0.4802E+00, 0.4817E+00,& - 0.4832E+00, 0.4846E+00, 0.4861E+00, 0.4876E+00,& - 0.4891E+00, 0.4906E+00, 0.4921E+00, 0.4936E+00,& - 0.4951E+00, 0.4966E+00, 0.4981E+00, 0.4996E+00,& - 0.5011E+00, 0.5026E+00, 0.5041E+00, 0.5056E+00,& - 0.5071E+00, 0.5087E+00, 0.5102E+00, 0.5117E+00,& - 0.5132E+00, 0.5147E+00, 0.5162E+00, 0.5178E+00,& - 0.5193E+00, 0.5208E+00, 0.5223E+00, 0.5239E+00,& - 0.5254E+00, 0.5269E+00, 0.5285E+00, 0.5300E+00,& - 0.5315E+00, 0.5331E+00, 0.5346E+00, 0.5362E+00,& - 0.5377E+00, 0.5393E+00, 0.5408E+00, 0.5424E+00,& - 0.5439E+00, 0.5455E+00, 0.5470E+00, 0.5486E+00,& - 0.5501E+00, 0.5517E+00, 0.5532E+00, 0.5548E+00,& - 0.5564E+00, 0.5579E+00, 0.5595E+00, 0.5611E+00,& - 0.5627E+00, 0.5642E+00, 0.5658E+00, 0.5674E+00,& - 0.5690E+00, 0.5706E+00, 0.5721E+00, 0.5737E+00,& - 0.5753E+00, 0.5769E+00, 0.5785E+00, 0.5801E+00,& - 0.5817E+00, 0.5833E+00, 0.5849E+00, 0.5865E+00,& - 0.5881E+00, 0.5897E+00, 0.5913E+00, 0.5929E+00,& - 0.5945E+00, 0.5962E+00, 0.5978E+00, 0.5994E+00,& - 0.6010E+00, 0.6026E+00, 0.6043E+00, 0.6059E+00,& - 0.6075E+00, 0.6092E+00, 0.6108E+00, 0.6124E+00,& - 0.6141E+00, 0.6157E+00, 0.6173E+00, 0.6190E+00,& - 0.6206E+00, 0.6223E+00, 0.6239E+00, 0.6256E+00,& - 0.6272E+00, 0.6289E+00, 0.6306E+00, 0.6322E+00,& - 0.6339E+00, 0.6356E+00, 0.6372E+00, 0.6389E+00,& - 0.6406E+00, 0.6423E+00, 0.6439E+00, 0.6456E+00,& - 0.6473E+00, 0.6490E+00, 0.6507E+00, 0.6524E+00,& - 0.6541E+00, 0.6557E+00, 0.6574E+00, 0.6591E+00,& - 0.6608E+00, 0.6626E+00, 0.6643E+00, 0.6660E+00,& - 0.6677E+00, 0.6694E+00, 0.6711E+00, 0.6728E+00,& - 0.6746E+00, 0.6763E+00, 0.6780E+00, 0.6797E+00,& - 0.6815E+00, 0.6832E+00, 0.6849E+00, 0.6867E+00,& - 0.6884E+00, 0.6902E+00, 0.6919E+00, 0.6937E+00,& - 0.6954E+00, 0.6972E+00, 0.6989E+00, 0.7007E+00,& - 0.7025E+00, 0.7042E+00, 0.7060E+00, 0.7078E+00,& - 0.7096E+00, 0.7113E+00, 0.7131E+00, 0.7149E+00,& - 0.7167E+00, 0.7185E+00, 0.7203E+00, 0.7221E+00,& - 0.7239E+00, 0.7257E+00, 0.7275E+00, 0.7293E+00,& - 0.7311E+00, 0.7329E+00, 0.7347E+00, 0.7365E+00,& - 0.7383E+00, 0.7402E+00, 0.7420E+00, 0.7438E+00,& - 0.7457E+00, 0.7475E+00, 0.7493E+00, 0.7512E+00,& - 0.7530E+00, 0.7549E+00, 0.7567E+00, 0.7586E+00,& - 0.7604E+00, 0.7623E+00, 0.7642E+00, 0.7660E+00,& - 0.7679E+00, 0.7698E+00, 0.7717E+00, 0.7735E+00,& - 0.7754E+00, 0.7773E+00, 0.7792E+00, 0.7811E+00,& - 0.7830E+00, 0.7849E+00, 0.7868E+00, 0.7887E+00,& - 0.7906E+00, 0.7925E+00, 0.7944E+00, 0.7963E+00,& - 0.7983E+00, 0.8002E+00, 0.8021E+00, 0.8041E+00,& - 0.8060E+00, 0.8079E+00, 0.8099E+00, 0.8118E+00,& - 0.8138E+00, 0.8157E+00, 0.8177E+00, 0.8196E+00,& - 0.8216E+00, 0.8236E+00, 0.8255E+00, 0.8275E+00,& - 0.8295E+00, 0.8315E+00, 0.8335E+00, 0.8355E+00,& - 0.8375E+00, 0.8395E+00, 0.8415E+00, 0.8435E+00,& - 0.8455E+00, 0.8475E+00, 0.8495E+00, 0.8515E+00,& - 0.8535E+00, 0.8556E+00, 0.8576E+00, 0.8596E+00,& - 0.8617E+00, 0.8637E+00, 0.8658E+00, 0.8678E+00,& - 0.8699E+00, 0.8719E+00, 0.8740E+00, 0.8761E+00,& - 0.8781E+00, 0.8802E+00, 0.8823E+00, 0.8844E+00,& - 0.8865E+00, 0.8886E+00, 0.8907E+00, 0.8928E+00,& - 0.8949E+00, 0.8970E+00, 0.8991E+00, 0.9012E+00,& - 0.9033E+00, 0.9055E+00, 0.9076E+00, 0.9097E+00,& - 0.9119E+00, 0.9140E+00, 0.9162E+00, 0.9183E+00,& - 0.9205E+00, 0.9227E+00, 0.9248E+00, 0.9270E+00,& - 0.9292E+00, 0.9314E+00, 0.9335E+00, 0.9357E+00,& - 0.9379E+00, 0.9401E+00, 0.9423E+00, 0.9445E+00,& - 0.9468E+00, 0.9490E+00, 0.9512E+00, 0.9534E+00,& - 0.9557E+00, 0.9579E+00, 0.9602E+00, 0.9624E+00,& - 0.9647E+00, 0.9669E+00, 0.9692E+00, 0.9714E+00,& - 0.9737E+00, 0.9760E+00, 0.9783E+00, 0.9806E+00,& - 0.9829E+00, 0.9852E+00, 0.9875E+00, 0.9898E+00,& - 0.9921E+00, 0.9944E+00, 0.9968E+00, 0.9991E+00,& - 0.1001E+01, 0.1004E+01, 0.1006E+01, 0.1008E+01,& - 0.1011E+01, 0.1013E+01, 0.1016E+01, 0.1018E+01,& - 0.1020E+01, 0.1023E+01, 0.1025E+01, 0.1028E+01,& - 0.1030E+01, 0.1032E+01, 0.1035E+01, 0.1037E+01,& - 0.1040E+01, 0.1042E+01, 0.1044E+01, 0.1047E+01,& - 0.1049E+01, 0.1052E+01, 0.1054E+01, 0.1057E+01,& - 0.1059E+01, 0.1062E+01, 0.1064E+01, 0.1067E+01,& - 0.1069E+01, 0.1072E+01, 0.1074E+01, 0.1077E+01,& - 0.1079E+01, 0.1082E+01, 0.1084E+01, 0.1087E+01,& - 0.1089E+01, 0.1092E+01, 0.1095E+01, 0.1097E+01,& - 0.1100E+01, 0.1102E+01, 0.1105E+01, 0.1108E+01,& - 0.1110E+01, 0.1113E+01, 0.1115E+01, 0.1118E+01,& - 0.1121E+01, 0.1123E+01, 0.1126E+01, 0.1129E+01,& - 0.1131E+01, 0.1134E+01, 0.1137E+01, 0.1139E+01,& - 0.1142E+01, 0.1145E+01, 0.1148E+01, 0.1150E+01,& - 0.1153E+01, 0.1156E+01, 0.1158E+01, 0.1161E+01,& - 0.1164E+01, 0.1167E+01, 0.1169E+01, 0.1172E+01,& - 0.1175E+01, 0.1178E+01, 0.1181E+01, 0.1183E+01,& - 0.1186E+01, 0.1189E+01, 0.1192E+01, 0.1195E+01,& - 0.1198E+01, 0.1201E+01, 0.1203E+01, 0.1206E+01,& - 0.1209E+01, 0.1212E+01, 0.1215E+01, 0.1218E+01,& - 0.1221E+01, 0.1224E+01, 0.1227E+01, 0.1230E+01,& - 0.1233E+01, 0.1236E+01, 0.1239E+01, 0.1242E+01,& - 0.1245E+01, 0.1248E+01, 0.1251E+01, 0.1254E+01,& - 0.1257E+01, 0.1260E+01, 0.1263E+01, 0.1266E+01,& - 0.1269E+01, 0.1272E+01, 0.1275E+01, 0.1278E+01,& - 0.1281E+01, 0.1285E+01, 0.1288E+01, 0.1291E+01,& - 0.1294E+01, 0.1297E+01, 0.1300E+01, 0.1304E+01,& - 0.1307E+01, 0.1310E+01, 0.1313E+01, 0.1317E+01,& - 0.1320E+01, 0.1323E+01, 0.1326E+01, 0.1330E+01,& - 0.1333E+01, 0.1336E+01, 0.1340E+01, 0.1343E+01,& - 0.1346E+01, 0.1350E+01, 0.1353E+01, 0.1356E+01,& - 0.1360E+01, 0.1363E+01, 0.1367E+01, 0.1370E+01,& - 0.1374E+01, 0.1377E+01, 0.1380E+01, 0.1384E+01,& - 0.1387E+01, 0.1391E+01, 0.1394E+01, 0.1398E+01,& - 0.1402E+01, 0.1405E+01, 0.1409E+01, 0.1412E+01,& - 0.1416E+01, 0.1420E+01, 0.1423E+01, 0.1427E+01,& - 0.1431E+01, 0.1434E+01, 0.1438E+01, 0.1442E+01,& - 0.1445E+01, 0.1449E+01, 0.1453E+01, 0.1457E+01,& - 0.1460E+01, 0.1464E+01, 0.1468E+01, 0.1472E+01,& - 0.1476E+01, 0.1480E+01, 0.1483E+01, 0.1487E+01,& - 0.1491E+01, 0.1495E+01, 0.1499E+01, 0.1503E+01,& - 0.1507E+01, 0.1511E+01, 0.1515E+01, 0.1519E+01,& - 0.1523E+01, 0.1527E+01, 0.1531E+01, 0.1536E+01,& - 0.1540E+01, 0.1544E+01, 0.1548E+01, 0.1552E+01,& - 0.1556E+01, 0.1561E+01, 0.1565E+01, 0.1569E+01,& - 0.1574E+01, 0.1578E+01, 0.1582E+01, 0.1587E+01,& - 0.1591E+01, 0.1595E+01, 0.1600E+01, 0.1604E+01,& - 0.1609E+01, 0.1613E+01, 0.1618E+01, 0.1622E+01,& - 0.1627E+01, 0.1631E+01, 0.1636E+01, 0.1641E+01,& - 0.1645E+01, 0.1650E+01, 0.1655E+01, 0.1659E+01,& - 0.1664E+01, 0.1669E+01, 0.1674E+01, 0.1678E+01,& - 0.1683E+01, 0.1688E+01, 0.1693E+01, 0.1698E+01,& - 0.1703E+01, 0.1708E+01, 0.1713E+01, 0.1718E+01,& - 0.1723E+01, 0.1728E+01, 0.1733E+01, 0.1738E+01,& - 0.1744E+01, 0.1749E+01, 0.1754E+01, 0.1759E+01,& - 0.1765E+01, 0.1770E+01, 0.1775E+01, 0.1781E+01,& - 0.1786E+01, 0.1792E+01, 0.1797E+01, 0.1803E+01,& - 0.1808E+01, 0.1814E+01, 0.1820E+01, 0.1825E+01,& - 0.1831E+01, 0.1837E+01, 0.1843E+01, 0.1849E+01,& - 0.1855E+01, 0.1860E+01, 0.1866E+01, 0.1872E+01,& - 0.1878E+01, 0.1885E+01, 0.1891E+01, 0.1897E+01,& - 0.1903E+01, 0.1909E+01, 0.1916E+01, 0.1922E+01,& - 0.1928E+01, 0.1935E+01, 0.1941E+01, 0.1948E+01,& - 0.1955E+01, 0.1961E+01, 0.1968E+01, 0.1975E+01,& - 0.1981E+01, 0.1988E+01, 0.1995E+01, 0.2002E+01,& - 0.2009E+01, 0.2016E+01, 0.2023E+01, 0.2031E+01,& - 0.2038E+01, 0.2045E+01, 0.2053E+01, 0.2060E+01,& - 0.2068E+01, 0.2075E+01, 0.2083E+01, 0.2091E+01,& - 0.2098E+01, 0.2106E+01, 0.2114E+01, 0.2122E+01,& - 0.2130E+01, 0.2138E+01, 0.2147E+01, 0.2155E+01,& - 0.2163E+01, 0.2172E+01, 0.2180E+01, 0.2189E+01,& - 0.2198E+01, 0.2206E+01, 0.2215E+01, 0.2224E+01,& - 0.2234E+01, 0.2243E+01, 0.2252E+01, 0.2261E+01,& - 0.2271E+01, 0.2281E+01, 0.2290E+01, 0.2300E+01,& - 0.2310E+01, 0.2320E+01, 0.2330E+01, 0.2341E+01,& - 0.2351E+01, 0.2362E+01, 0.2372E+01, 0.2383E+01,& - 0.2394E+01, 0.2405E+01, 0.2417E+01, 0.2428E+01,& - 0.2440E+01, 0.2451E+01, 0.2463E+01, 0.2475E+01,& - 0.2488E+01, 0.2500E+01, 0.2513E+01, 0.2525E+01,& - 0.2539E+01, 0.2552E+01, 0.2565E+01, 0.2579E+01,& - 0.2593E+01, 0.2607E+01, 0.2621E+01, 0.2636E+01,& - 0.2651E+01, 0.2666E+01, 0.2681E+01, 0.2697E+01,& - 0.2713E+01, 0.2729E+01, 0.2746E+01, 0.2763E+01,& - 0.2780E+01, 0.2797E+01, 0.2816E+01, 0.2834E+01,& - 0.2853E+01, 0.2872E+01, 0.2892E+01, 0.2912E+01,& - 0.2933E+01, 0.2954E+01, 0.2976E+01, 0.2998E+01,& - 0.3021E+01, 0.3045E+01, 0.3069E+01, 0.3095E+01,& - 0.3120E+01, 0.3147E+01, 0.3175E+01, 0.3203E+01,& - 0.3233E+01, 0.3264E+01, 0.3296E+01, 0.3329E+01,& - 0.3363E+01, 0.3400E+01, 0.3437E+01, 0.3477E+01,& - 0.3519E+01, 0.3562E+01, 0.3609E+01, 0.3658E+01,& - 0.3710E+01, 0.3766E+01, 0.3826E+01, 0.3890E+01,& - 0.3960E+01, 0.4037E+01, 0.4122E+01, 0.4217E+01,& - 0.4324E+01, 0.4448E+01, 0.4594E+01, 0.4773E+01,& - 0.1000E-04, 0.3311E-02, 0.5818E-02, 0.8088E-02/) - xcw(:, 33) = (/& - 0.1000E-04, 0.3311E-02, 0.5818E-02, 0.8088E-02,& - 0.1022E-01, 0.1227E-01, 0.1423E-01, 0.1615E-01,& - 0.1801E-01, 0.1983E-01, 0.2162E-01, 0.2338E-01,& - 0.2511E-01, 0.2681E-01, 0.2850E-01, 0.3017E-01,& - 0.3181E-01, 0.3345E-01, 0.3506E-01, 0.3666E-01,& - 0.3825E-01, 0.3983E-01, 0.4139E-01, 0.4295E-01,& - 0.4449E-01, 0.4602E-01, 0.4755E-01, 0.4907E-01,& - 0.5058E-01, 0.5207E-01, 0.5357E-01, 0.5506E-01,& - 0.5654E-01, 0.5801E-01, 0.5948E-01, 0.6094E-01,& - 0.6240E-01, 0.6385E-01, 0.6529E-01, 0.6673E-01,& - 0.6817E-01, 0.6960E-01, 0.7103E-01, 0.7245E-01,& - 0.7387E-01, 0.7529E-01, 0.7670E-01, 0.7811E-01,& - 0.7951E-01, 0.8091E-01, 0.8231E-01, 0.8370E-01,& - 0.8510E-01, 0.8648E-01, 0.8787E-01, 0.8925E-01,& - 0.9063E-01, 0.9201E-01, 0.9339E-01, 0.9476E-01,& - 0.9613E-01, 0.9749E-01, 0.9886E-01, 0.1002E+00,& - 0.1016E+00, 0.1029E+00, 0.1043E+00, 0.1057E+00,& - 0.1070E+00, 0.1084E+00, 0.1097E+00, 0.1111E+00,& - 0.1124E+00, 0.1138E+00, 0.1151E+00, 0.1164E+00,& - 0.1178E+00, 0.1191E+00, 0.1205E+00, 0.1218E+00,& - 0.1231E+00, 0.1245E+00, 0.1258E+00, 0.1271E+00,& - 0.1285E+00, 0.1298E+00, 0.1311E+00, 0.1325E+00,& - 0.1338E+00, 0.1351E+00, 0.1364E+00, 0.1378E+00,& - 0.1391E+00, 0.1404E+00, 0.1417E+00, 0.1431E+00,& - 0.1444E+00, 0.1457E+00, 0.1470E+00, 0.1483E+00,& - 0.1497E+00, 0.1510E+00, 0.1523E+00, 0.1536E+00,& - 0.1549E+00, 0.1563E+00, 0.1576E+00, 0.1589E+00,& - 0.1602E+00, 0.1615E+00, 0.1628E+00, 0.1641E+00,& - 0.1655E+00, 0.1668E+00, 0.1681E+00, 0.1694E+00,& - 0.1707E+00, 0.1720E+00, 0.1733E+00, 0.1746E+00,& - 0.1760E+00, 0.1773E+00, 0.1786E+00, 0.1799E+00,& - 0.1812E+00, 0.1825E+00, 0.1838E+00, 0.1851E+00,& - 0.1864E+00, 0.1878E+00, 0.1891E+00, 0.1904E+00,& - 0.1917E+00, 0.1930E+00, 0.1943E+00, 0.1956E+00,& - 0.1969E+00, 0.1982E+00, 0.1995E+00, 0.2009E+00,& - 0.2022E+00, 0.2035E+00, 0.2048E+00, 0.2061E+00,& - 0.2074E+00, 0.2087E+00, 0.2100E+00, 0.2113E+00,& - 0.2127E+00, 0.2140E+00, 0.2153E+00, 0.2166E+00,& - 0.2179E+00, 0.2192E+00, 0.2205E+00, 0.2219E+00,& - 0.2232E+00, 0.2245E+00, 0.2258E+00, 0.2271E+00,& - 0.2284E+00, 0.2297E+00, 0.2311E+00, 0.2324E+00,& - 0.2337E+00, 0.2350E+00, 0.2363E+00, 0.2376E+00,& - 0.2390E+00, 0.2403E+00, 0.2416E+00, 0.2429E+00,& - 0.2442E+00, 0.2456E+00, 0.2469E+00, 0.2482E+00,& - 0.2495E+00, 0.2509E+00, 0.2522E+00, 0.2535E+00,& - 0.2548E+00, 0.2562E+00, 0.2575E+00, 0.2588E+00,& - 0.2601E+00, 0.2615E+00, 0.2628E+00, 0.2641E+00,& - 0.2655E+00, 0.2668E+00, 0.2681E+00, 0.2694E+00,& - 0.2708E+00, 0.2721E+00, 0.2734E+00, 0.2748E+00,& - 0.2761E+00, 0.2774E+00, 0.2788E+00, 0.2801E+00,& - 0.2815E+00, 0.2828E+00, 0.2841E+00, 0.2855E+00,& - 0.2868E+00, 0.2882E+00, 0.2895E+00, 0.2908E+00,& - 0.2922E+00, 0.2935E+00, 0.2949E+00, 0.2962E+00,& - 0.2976E+00, 0.2989E+00, 0.3003E+00, 0.3016E+00,& - 0.3030E+00, 0.3043E+00, 0.3057E+00, 0.3070E+00,& - 0.3084E+00, 0.3097E+00, 0.3111E+00, 0.3124E+00,& - 0.3138E+00, 0.3151E+00, 0.3165E+00, 0.3179E+00,& - 0.3192E+00, 0.3206E+00, 0.3219E+00, 0.3233E+00,& - 0.3247E+00, 0.3260E+00, 0.3274E+00, 0.3288E+00,& - 0.3301E+00, 0.3315E+00, 0.3329E+00, 0.3343E+00,& - 0.3356E+00, 0.3370E+00, 0.3384E+00, 0.3398E+00,& - 0.3411E+00, 0.3425E+00, 0.3439E+00, 0.3453E+00,& - 0.3466E+00, 0.3480E+00, 0.3494E+00, 0.3508E+00,& - 0.3522E+00, 0.3536E+00, 0.3549E+00, 0.3563E+00,& - 0.3577E+00, 0.3591E+00, 0.3605E+00, 0.3619E+00,& - 0.3633E+00, 0.3647E+00, 0.3661E+00, 0.3675E+00,& - 0.3689E+00, 0.3703E+00, 0.3717E+00, 0.3731E+00,& - 0.3745E+00, 0.3759E+00, 0.3773E+00, 0.3787E+00,& - 0.3801E+00, 0.3815E+00, 0.3829E+00, 0.3843E+00,& - 0.3857E+00, 0.3872E+00, 0.3886E+00, 0.3900E+00,& - 0.3914E+00, 0.3928E+00, 0.3942E+00, 0.3957E+00,& - 0.3971E+00, 0.3985E+00, 0.3999E+00, 0.4014E+00,& - 0.4028E+00, 0.4042E+00, 0.4057E+00, 0.4071E+00,& - 0.4085E+00, 0.4100E+00, 0.4114E+00, 0.4128E+00,& - 0.4143E+00, 0.4157E+00, 0.4172E+00, 0.4186E+00,& - 0.4200E+00, 0.4215E+00, 0.4229E+00, 0.4244E+00,& - 0.4258E+00, 0.4273E+00, 0.4287E+00, 0.4302E+00,& - 0.4317E+00, 0.4331E+00, 0.4346E+00, 0.4360E+00,& - 0.4375E+00, 0.4390E+00, 0.4404E+00, 0.4419E+00,& - 0.4433E+00, 0.4448E+00, 0.4463E+00, 0.4478E+00,& - 0.4492E+00, 0.4507E+00, 0.4522E+00, 0.4537E+00,& - 0.4551E+00, 0.4566E+00, 0.4581E+00, 0.4596E+00,& - 0.4611E+00, 0.4626E+00, 0.4641E+00, 0.4656E+00,& - 0.4670E+00, 0.4685E+00, 0.4700E+00, 0.4715E+00,& - 0.4730E+00, 0.4745E+00, 0.4760E+00, 0.4775E+00,& - 0.4791E+00, 0.4806E+00, 0.4821E+00, 0.4836E+00,& - 0.4851E+00, 0.4866E+00, 0.4881E+00, 0.4896E+00,& - 0.4911E+00, 0.4927E+00, 0.4942E+00, 0.4957E+00,& - 0.4973E+00, 0.4988E+00, 0.5003E+00, 0.5019E+00,& - 0.5034E+00, 0.5049E+00, 0.5065E+00, 0.5080E+00,& - 0.5095E+00, 0.5111E+00, 0.5126E+00, 0.5142E+00,& - 0.5157E+00, 0.5173E+00, 0.5188E+00, 0.5204E+00,& - 0.5219E+00, 0.5235E+00, 0.5251E+00, 0.5266E+00,& - 0.5282E+00, 0.5298E+00, 0.5313E+00, 0.5329E+00,& - 0.5345E+00, 0.5360E+00, 0.5376E+00, 0.5392E+00,& - 0.5408E+00, 0.5424E+00, 0.5439E+00, 0.5455E+00,& - 0.5471E+00, 0.5487E+00, 0.5503E+00, 0.5519E+00,& - 0.5535E+00, 0.5551E+00, 0.5567E+00, 0.5583E+00,& - 0.5599E+00, 0.5615E+00, 0.5631E+00, 0.5647E+00,& - 0.5663E+00, 0.5680E+00, 0.5696E+00, 0.5712E+00,& - 0.5728E+00, 0.5744E+00, 0.5761E+00, 0.5777E+00,& - 0.5793E+00, 0.5809E+00, 0.5826E+00, 0.5842E+00,& - 0.5859E+00, 0.5875E+00, 0.5891E+00, 0.5908E+00,& - 0.5924E+00, 0.5941E+00, 0.5957E+00, 0.5974E+00,& - 0.5991E+00, 0.6007E+00, 0.6024E+00, 0.6040E+00,& - 0.6057E+00, 0.6074E+00, 0.6091E+00, 0.6107E+00,& - 0.6124E+00, 0.6141E+00, 0.6158E+00, 0.6174E+00,& - 0.6191E+00, 0.6208E+00, 0.6225E+00, 0.6242E+00,& - 0.6259E+00, 0.6276E+00, 0.6293E+00, 0.6310E+00,& - 0.6327E+00, 0.6344E+00, 0.6361E+00, 0.6378E+00,& - 0.6396E+00, 0.6413E+00, 0.6430E+00, 0.6447E+00,& - 0.6464E+00, 0.6482E+00, 0.6499E+00, 0.6516E+00,& - 0.6534E+00, 0.6551E+00, 0.6569E+00, 0.6586E+00,& - 0.6603E+00, 0.6621E+00, 0.6639E+00, 0.6656E+00,& - 0.6674E+00, 0.6691E+00, 0.6709E+00, 0.6727E+00,& - 0.6744E+00, 0.6762E+00, 0.6780E+00, 0.6797E+00,& - 0.6815E+00, 0.6833E+00, 0.6851E+00, 0.6869E+00,& - 0.6887E+00, 0.6905E+00, 0.6923E+00, 0.6941E+00,& - 0.6959E+00, 0.6977E+00, 0.6995E+00, 0.7013E+00,& - 0.7031E+00, 0.7049E+00, 0.7068E+00, 0.7086E+00,& - 0.7104E+00, 0.7122E+00, 0.7141E+00, 0.7159E+00,& - 0.7177E+00, 0.7196E+00, 0.7214E+00, 0.7233E+00,& - 0.7251E+00, 0.7270E+00, 0.7288E+00, 0.7307E+00,& - 0.7326E+00, 0.7344E+00, 0.7363E+00, 0.7382E+00,& - 0.7401E+00, 0.7419E+00, 0.7438E+00, 0.7457E+00,& - 0.7476E+00, 0.7495E+00, 0.7514E+00, 0.7533E+00,& - 0.7552E+00, 0.7571E+00, 0.7590E+00, 0.7609E+00,& - 0.7628E+00, 0.7648E+00, 0.7667E+00, 0.7686E+00,& - 0.7705E+00, 0.7725E+00, 0.7744E+00, 0.7763E+00,& - 0.7783E+00, 0.7802E+00, 0.7822E+00, 0.7841E+00,& - 0.7861E+00, 0.7881E+00, 0.7900E+00, 0.7920E+00,& - 0.7940E+00, 0.7960E+00, 0.7979E+00, 0.7999E+00,& - 0.8019E+00, 0.8039E+00, 0.8059E+00, 0.8079E+00,& - 0.8099E+00, 0.8119E+00, 0.8139E+00, 0.8159E+00,& - 0.8179E+00, 0.8200E+00, 0.8220E+00, 0.8240E+00,& - 0.8261E+00, 0.8281E+00, 0.8301E+00, 0.8322E+00,& - 0.8342E+00, 0.8363E+00, 0.8383E+00, 0.8404E+00,& - 0.8425E+00, 0.8445E+00, 0.8466E+00, 0.8487E+00,& - 0.8508E+00, 0.8529E+00, 0.8550E+00, 0.8571E+00,& - 0.8591E+00, 0.8613E+00, 0.8634E+00, 0.8655E+00,& - 0.8676E+00, 0.8697E+00, 0.8718E+00, 0.8740E+00,& - 0.8761E+00, 0.8782E+00, 0.8804E+00, 0.8825E+00,& - 0.8847E+00, 0.8868E+00, 0.8890E+00, 0.8912E+00,& - 0.8933E+00, 0.8955E+00, 0.8977E+00, 0.8999E+00,& - 0.9020E+00, 0.9042E+00, 0.9064E+00, 0.9086E+00,& - 0.9108E+00, 0.9131E+00, 0.9153E+00, 0.9175E+00,& - 0.9197E+00, 0.9220E+00, 0.9242E+00, 0.9264E+00,& - 0.9287E+00, 0.9309E+00, 0.9332E+00, 0.9354E+00,& - 0.9377E+00, 0.9400E+00, 0.9423E+00, 0.9445E+00,& - 0.9468E+00, 0.9491E+00, 0.9514E+00, 0.9537E+00,& - 0.9560E+00, 0.9583E+00, 0.9607E+00, 0.9630E+00,& - 0.9653E+00, 0.9676E+00, 0.9700E+00, 0.9723E+00,& - 0.9747E+00, 0.9770E+00, 0.9794E+00, 0.9817E+00,& - 0.9841E+00, 0.9865E+00, 0.9889E+00, 0.9913E+00,& - 0.9937E+00, 0.9961E+00, 0.9985E+00, 0.1001E+01,& - 0.1003E+01, 0.1006E+01, 0.1008E+01, 0.1011E+01,& - 0.1013E+01, 0.1015E+01, 0.1018E+01, 0.1020E+01,& - 0.1023E+01, 0.1025E+01, 0.1028E+01, 0.1030E+01,& - 0.1033E+01, 0.1035E+01, 0.1038E+01, 0.1040E+01,& - 0.1043E+01, 0.1045E+01, 0.1048E+01, 0.1050E+01,& - 0.1053E+01, 0.1055E+01, 0.1058E+01, 0.1061E+01,& - 0.1063E+01, 0.1066E+01, 0.1068E+01, 0.1071E+01,& - 0.1074E+01, 0.1076E+01, 0.1079E+01, 0.1081E+01,& - 0.1084E+01, 0.1087E+01, 0.1089E+01, 0.1092E+01,& - 0.1095E+01, 0.1097E+01, 0.1100E+01, 0.1103E+01,& - 0.1105E+01, 0.1108E+01, 0.1111E+01, 0.1113E+01,& - 0.1116E+01, 0.1119E+01, 0.1121E+01, 0.1124E+01,& - 0.1127E+01, 0.1130E+01, 0.1132E+01, 0.1135E+01,& - 0.1138E+01, 0.1141E+01, 0.1144E+01, 0.1146E+01,& - 0.1149E+01, 0.1152E+01, 0.1155E+01, 0.1158E+01,& - 0.1160E+01, 0.1163E+01, 0.1166E+01, 0.1169E+01,& - 0.1172E+01, 0.1175E+01, 0.1178E+01, 0.1180E+01,& - 0.1183E+01, 0.1186E+01, 0.1189E+01, 0.1192E+01,& - 0.1195E+01, 0.1198E+01, 0.1201E+01, 0.1204E+01,& - 0.1207E+01, 0.1210E+01, 0.1213E+01, 0.1216E+01,& - 0.1219E+01, 0.1222E+01, 0.1225E+01, 0.1228E+01,& - 0.1231E+01, 0.1234E+01, 0.1237E+01, 0.1240E+01,& - 0.1243E+01, 0.1247E+01, 0.1250E+01, 0.1253E+01,& - 0.1256E+01, 0.1259E+01, 0.1262E+01, 0.1265E+01,& - 0.1269E+01, 0.1272E+01, 0.1275E+01, 0.1278E+01,& - 0.1281E+01, 0.1285E+01, 0.1288E+01, 0.1291E+01,& - 0.1294E+01, 0.1298E+01, 0.1301E+01, 0.1304E+01,& - 0.1307E+01, 0.1311E+01, 0.1314E+01, 0.1317E+01,& - 0.1321E+01, 0.1324E+01, 0.1328E+01, 0.1331E+01,& - 0.1334E+01, 0.1338E+01, 0.1341E+01, 0.1345E+01,& - 0.1348E+01, 0.1351E+01, 0.1355E+01, 0.1358E+01,& - 0.1362E+01, 0.1365E+01, 0.1369E+01, 0.1373E+01,& - 0.1376E+01, 0.1380E+01, 0.1383E+01, 0.1387E+01,& - 0.1390E+01, 0.1394E+01, 0.1398E+01, 0.1401E+01,& - 0.1405E+01, 0.1409E+01, 0.1412E+01, 0.1416E+01,& - 0.1420E+01, 0.1424E+01, 0.1427E+01, 0.1431E+01,& - 0.1435E+01, 0.1439E+01, 0.1443E+01, 0.1446E+01,& - 0.1450E+01, 0.1454E+01, 0.1458E+01, 0.1462E+01,& - 0.1466E+01, 0.1470E+01, 0.1474E+01, 0.1478E+01,& - 0.1482E+01, 0.1486E+01, 0.1490E+01, 0.1494E+01,& - 0.1498E+01, 0.1502E+01, 0.1506E+01, 0.1510E+01,& - 0.1514E+01, 0.1518E+01, 0.1522E+01, 0.1526E+01,& - 0.1531E+01, 0.1535E+01, 0.1539E+01, 0.1543E+01,& - 0.1548E+01, 0.1552E+01, 0.1556E+01, 0.1561E+01,& - 0.1565E+01, 0.1569E+01, 0.1574E+01, 0.1578E+01,& - 0.1583E+01, 0.1587E+01, 0.1592E+01, 0.1596E+01,& - 0.1601E+01, 0.1605E+01, 0.1610E+01, 0.1614E+01,& - 0.1619E+01, 0.1623E+01, 0.1628E+01, 0.1633E+01,& - 0.1638E+01, 0.1642E+01, 0.1647E+01, 0.1652E+01,& - 0.1657E+01, 0.1661E+01, 0.1666E+01, 0.1671E+01,& - 0.1676E+01, 0.1681E+01, 0.1686E+01, 0.1691E+01,& - 0.1696E+01, 0.1701E+01, 0.1706E+01, 0.1711E+01,& - 0.1716E+01, 0.1722E+01, 0.1727E+01, 0.1732E+01,& - 0.1737E+01, 0.1743E+01, 0.1748E+01, 0.1753E+01,& - 0.1759E+01, 0.1764E+01, 0.1769E+01, 0.1775E+01,& - 0.1780E+01, 0.1786E+01, 0.1791E+01, 0.1797E+01,& - 0.1803E+01, 0.1808E+01, 0.1814E+01, 0.1820E+01,& - 0.1826E+01, 0.1831E+01, 0.1837E+01, 0.1843E+01,& - 0.1849E+01, 0.1855E+01, 0.1861E+01, 0.1867E+01,& - 0.1873E+01, 0.1880E+01, 0.1886E+01, 0.1892E+01,& - 0.1898E+01, 0.1904E+01, 0.1911E+01, 0.1917E+01,& - 0.1924E+01, 0.1930E+01, 0.1937E+01, 0.1943E+01,& - 0.1950E+01, 0.1957E+01, 0.1963E+01, 0.1970E+01,& - 0.1977E+01, 0.1984E+01, 0.1991E+01, 0.1998E+01,& - 0.2005E+01, 0.2012E+01, 0.2019E+01, 0.2026E+01,& - 0.2034E+01, 0.2041E+01, 0.2049E+01, 0.2056E+01,& - 0.2064E+01, 0.2071E+01, 0.2079E+01, 0.2087E+01,& - 0.2094E+01, 0.2102E+01, 0.2110E+01, 0.2118E+01,& - 0.2126E+01, 0.2134E+01, 0.2143E+01, 0.2151E+01,& - 0.2159E+01, 0.2168E+01, 0.2176E+01, 0.2185E+01,& - 0.2194E+01, 0.2202E+01, 0.2211E+01, 0.2220E+01,& - 0.2229E+01, 0.2239E+01, 0.2248E+01, 0.2257E+01,& - 0.2267E+01, 0.2276E+01, 0.2286E+01, 0.2296E+01,& - 0.2306E+01, 0.2316E+01, 0.2326E+01, 0.2336E+01,& - 0.2346E+01, 0.2357E+01, 0.2367E+01, 0.2378E+01,& - 0.2389E+01, 0.2400E+01, 0.2411E+01, 0.2422E+01,& - 0.2434E+01, 0.2445E+01, 0.2457E+01, 0.2469E+01,& - 0.2481E+01, 0.2493E+01, 0.2506E+01, 0.2518E+01,& - 0.2531E+01, 0.2544E+01, 0.2557E+01, 0.2570E+01,& - 0.2584E+01, 0.2598E+01, 0.2612E+01, 0.2626E+01,& - 0.2640E+01, 0.2655E+01, 0.2670E+01, 0.2685E+01,& - 0.2701E+01, 0.2716E+01, 0.2732E+01, 0.2749E+01,& - 0.2765E+01, 0.2782E+01, 0.2800E+01, 0.2817E+01,& - 0.2835E+01, 0.2854E+01, 0.2872E+01, 0.2892E+01,& - 0.2911E+01, 0.2931E+01, 0.2952E+01, 0.2973E+01,& - 0.2995E+01, 0.3017E+01, 0.3040E+01, 0.3063E+01,& - 0.3087E+01, 0.3112E+01, 0.3137E+01, 0.3163E+01,& - 0.3190E+01, 0.3218E+01, 0.3247E+01, 0.3277E+01,& - 0.3308E+01, 0.3340E+01, 0.3373E+01, 0.3408E+01,& - 0.3444E+01, 0.3482E+01, 0.3521E+01, 0.3563E+01,& - 0.3606E+01, 0.3652E+01, 0.3700E+01, 0.3752E+01,& - 0.3806E+01, 0.3865E+01, 0.3927E+01, 0.3995E+01,& - 0.4068E+01, 0.4149E+01, 0.4237E+01, 0.4337E+01,& - 0.4449E+01, 0.4578E+01, 0.4731E+01, 0.4919E+01,& - 0.1000E-04, 0.2488E-02, 0.4509E-02, 0.6385E-02/) - xcw(:, 34) = (/& - 0.1000E-04, 0.2488E-02, 0.4509E-02, 0.6385E-02,& - 0.8177E-02, 0.9907E-02, 0.1159E-01, 0.1323E-01,& - 0.1485E-01, 0.1644E-01, 0.1800E-01, 0.1955E-01,& - 0.2108E-01, 0.2259E-01, 0.2409E-01, 0.2558E-01,& - 0.2705E-01, 0.2851E-01, 0.2996E-01, 0.3141E-01,& - 0.3284E-01, 0.3427E-01, 0.3569E-01, 0.3710E-01,& - 0.3850E-01, 0.3990E-01, 0.4129E-01, 0.4268E-01,& - 0.4406E-01, 0.4544E-01, 0.4681E-01, 0.4818E-01,& - 0.4954E-01, 0.5090E-01, 0.5225E-01, 0.5360E-01,& - 0.5495E-01, 0.5629E-01, 0.5763E-01, 0.5898E-01,& - 0.6031E-01, 0.6164E-01, 0.6297E-01, 0.6429E-01,& - 0.6562E-01, 0.6694E-01, 0.6826E-01, 0.6958E-01,& - 0.7089E-01, 0.7220E-01, 0.7351E-01, 0.7482E-01,& - 0.7613E-01, 0.7743E-01, 0.7873E-01, 0.8003E-01,& - 0.8133E-01, 0.8263E-01, 0.8393E-01, 0.8522E-01,& - 0.8652E-01, 0.8781E-01, 0.8910E-01, 0.9039E-01,& - 0.9168E-01, 0.9297E-01, 0.9426E-01, 0.9554E-01,& - 0.9683E-01, 0.9811E-01, 0.9939E-01, 0.1007E+00,& - 0.1020E+00, 0.1032E+00, 0.1045E+00, 0.1058E+00,& - 0.1071E+00, 0.1083E+00, 0.1096E+00, 0.1109E+00,& - 0.1122E+00, 0.1135E+00, 0.1147E+00, 0.1160E+00,& - 0.1173E+00, 0.1186E+00, 0.1198E+00, 0.1211E+00,& - 0.1224E+00, 0.1236E+00, 0.1249E+00, 0.1262E+00,& - 0.1275E+00, 0.1287E+00, 0.1300E+00, 0.1313E+00,& - 0.1325E+00, 0.1338E+00, 0.1351E+00, 0.1363E+00,& - 0.1376E+00, 0.1389E+00, 0.1402E+00, 0.1414E+00,& - 0.1427E+00, 0.1440E+00, 0.1452E+00, 0.1465E+00,& - 0.1478E+00, 0.1490E+00, 0.1503E+00, 0.1516E+00,& - 0.1528E+00, 0.1541E+00, 0.1554E+00, 0.1567E+00,& - 0.1579E+00, 0.1592E+00, 0.1605E+00, 0.1617E+00,& - 0.1630E+00, 0.1643E+00, 0.1655E+00, 0.1668E+00,& - 0.1681E+00, 0.1694E+00, 0.1706E+00, 0.1719E+00,& - 0.1732E+00, 0.1745E+00, 0.1757E+00, 0.1770E+00,& - 0.1783E+00, 0.1795E+00, 0.1808E+00, 0.1821E+00,& - 0.1834E+00, 0.1847E+00, 0.1859E+00, 0.1872E+00,& - 0.1885E+00, 0.1898E+00, 0.1910E+00, 0.1923E+00,& - 0.1936E+00, 0.1949E+00, 0.1962E+00, 0.1974E+00,& - 0.1987E+00, 0.2000E+00, 0.2013E+00, 0.2026E+00,& - 0.2038E+00, 0.2051E+00, 0.2064E+00, 0.2077E+00,& - 0.2090E+00, 0.2103E+00, 0.2116E+00, 0.2128E+00,& - 0.2141E+00, 0.2154E+00, 0.2167E+00, 0.2180E+00,& - 0.2193E+00, 0.2206E+00, 0.2219E+00, 0.2232E+00,& - 0.2245E+00, 0.2258E+00, 0.2270E+00, 0.2283E+00,& - 0.2296E+00, 0.2309E+00, 0.2322E+00, 0.2335E+00,& - 0.2348E+00, 0.2361E+00, 0.2374E+00, 0.2387E+00,& - 0.2400E+00, 0.2413E+00, 0.2426E+00, 0.2439E+00,& - 0.2453E+00, 0.2466E+00, 0.2479E+00, 0.2446E+00,& - 0.2505E+00, 0.2518E+00, 0.2531E+00, 0.2544E+00,& - 0.2557E+00, 0.2570E+00, 0.2584E+00, 0.2597E+00,& - 0.2610E+00, 0.2623E+00, 0.2636E+00, 0.2649E+00,& - 0.2663E+00, 0.2676E+00, 0.2689E+00, 0.2702E+00,& - 0.2715E+00, 0.2729E+00, 0.2742E+00, 0.2755E+00,& - 0.2768E+00, 0.2782E+00, 0.2795E+00, 0.2808E+00,& - 0.2822E+00, 0.2835E+00, 0.2848E+00, 0.2862E+00,& - 0.2875E+00, 0.2888E+00, 0.2902E+00, 0.2915E+00,& - 0.2928E+00, 0.2942E+00, 0.2955E+00, 0.2969E+00,& - 0.2982E+00, 0.2996E+00, 0.3009E+00, 0.3023E+00,& - 0.3036E+00, 0.3050E+00, 0.3063E+00, 0.3077E+00,& - 0.3090E+00, 0.3104E+00, 0.3117E+00, 0.3131E+00,& - 0.3144E+00, 0.3158E+00, 0.3171E+00, 0.3185E+00,& - 0.3199E+00, 0.3212E+00, 0.3226E+00, 0.3240E+00,& - 0.3253E+00, 0.3267E+00, 0.3281E+00, 0.3294E+00,& - 0.3308E+00, 0.3322E+00, 0.3336E+00, 0.3349E+00,& - 0.3363E+00, 0.3377E+00, 0.3391E+00, 0.3404E+00,& - 0.3418E+00, 0.3432E+00, 0.3446E+00, 0.3460E+00,& - 0.3474E+00, 0.3488E+00, 0.3501E+00, 0.3515E+00,& - 0.3529E+00, 0.3543E+00, 0.3557E+00, 0.3571E+00,& - 0.3585E+00, 0.3599E+00, 0.3613E+00, 0.3627E+00,& - 0.3641E+00, 0.3655E+00, 0.3669E+00, 0.3683E+00,& - 0.3697E+00, 0.3711E+00, 0.3726E+00, 0.3740E+00,& - 0.3754E+00, 0.3768E+00, 0.3782E+00, 0.3796E+00,& - 0.3811E+00, 0.3825E+00, 0.3839E+00, 0.3853E+00,& - 0.3867E+00, 0.3882E+00, 0.3896E+00, 0.3910E+00,& - 0.3925E+00, 0.3939E+00, 0.3953E+00, 0.3968E+00,& - 0.3982E+00, 0.3997E+00, 0.4011E+00, 0.4025E+00,& - 0.4040E+00, 0.4054E+00, 0.4069E+00, 0.4083E+00,& - 0.4098E+00, 0.4112E+00, 0.4127E+00, 0.4141E+00,& - 0.4156E+00, 0.4170E+00, 0.4185E+00, 0.4200E+00,& - 0.4214E+00, 0.4229E+00, 0.4244E+00, 0.4258E+00,& - 0.4273E+00, 0.4288E+00, 0.4302E+00, 0.4317E+00,& - 0.4332E+00, 0.4347E+00, 0.4362E+00, 0.4376E+00,& - 0.4391E+00, 0.4406E+00, 0.4421E+00, 0.4436E+00,& - 0.4451E+00, 0.4466E+00, 0.4481E+00, 0.4496E+00,& - 0.4511E+00, 0.4526E+00, 0.4541E+00, 0.4556E+00,& - 0.4571E+00, 0.4586E+00, 0.4601E+00, 0.4616E+00,& - 0.4631E+00, 0.4646E+00, 0.4661E+00, 0.4677E+00,& - 0.4692E+00, 0.4707E+00, 0.4722E+00, 0.4737E+00,& - 0.4753E+00, 0.4768E+00, 0.4783E+00, 0.4799E+00,& - 0.4814E+00, 0.4829E+00, 0.4845E+00, 0.4860E+00,& - 0.4876E+00, 0.4891E+00, 0.4906E+00, 0.4922E+00,& - 0.4937E+00, 0.4953E+00, 0.4969E+00, 0.4984E+00,& - 0.5000E+00, 0.5015E+00, 0.5031E+00, 0.5047E+00,& - 0.5062E+00, 0.5078E+00, 0.5094E+00, 0.5109E+00,& - 0.5125E+00, 0.5141E+00, 0.5157E+00, 0.5172E+00,& - 0.5188E+00, 0.5204E+00, 0.5220E+00, 0.5236E+00,& - 0.5252E+00, 0.5268E+00, 0.5284E+00, 0.5300E+00,& - 0.5316E+00, 0.5332E+00, 0.5348E+00, 0.5364E+00,& - 0.5380E+00, 0.5396E+00, 0.5412E+00, 0.5428E+00,& - 0.5445E+00, 0.5461E+00, 0.5477E+00, 0.5493E+00,& - 0.5510E+00, 0.5526E+00, 0.5542E+00, 0.5558E+00,& - 0.5575E+00, 0.5591E+00, 0.5608E+00, 0.5624E+00,& - 0.5641E+00, 0.5657E+00, 0.5673E+00, 0.5690E+00,& - 0.5707E+00, 0.5723E+00, 0.5740E+00, 0.5756E+00,& - 0.5773E+00, 0.5790E+00, 0.5806E+00, 0.5823E+00,& - 0.5840E+00, 0.5857E+00, 0.5873E+00, 0.5890E+00,& - 0.5907E+00, 0.5924E+00, 0.5941E+00, 0.5958E+00,& - 0.5975E+00, 0.5992E+00, 0.6009E+00, 0.6026E+00,& - 0.6043E+00, 0.6060E+00, 0.6077E+00, 0.6094E+00,& - 0.6111E+00, 0.6128E+00, 0.6146E+00, 0.6163E+00,& - 0.6180E+00, 0.6197E+00, 0.6215E+00, 0.6232E+00,& - 0.6249E+00, 0.6267E+00, 0.6284E+00, 0.6302E+00,& - 0.6319E+00, 0.6337E+00, 0.6354E+00, 0.6372E+00,& - 0.6389E+00, 0.6407E+00, 0.6425E+00, 0.6442E+00,& - 0.6460E+00, 0.6478E+00, 0.6495E+00, 0.6513E+00,& - 0.6531E+00, 0.6549E+00, 0.6567E+00, 0.6585E+00,& - 0.6603E+00, 0.6621E+00, 0.6639E+00, 0.6657E+00,& - 0.6675E+00, 0.6693E+00, 0.6711E+00, 0.6729E+00,& - 0.6747E+00, 0.6765E+00, 0.6784E+00, 0.6802E+00,& - 0.6820E+00, 0.6838E+00, 0.6857E+00, 0.6875E+00,& - 0.6894E+00, 0.6912E+00, 0.6931E+00, 0.6949E+00,& - 0.6968E+00, 0.6986E+00, 0.7005E+00, 0.7023E+00,& - 0.7042E+00, 0.7061E+00, 0.7080E+00, 0.7098E+00,& - 0.7117E+00, 0.7136E+00, 0.7155E+00, 0.7174E+00,& - 0.7193E+00, 0.7212E+00, 0.7231E+00, 0.7250E+00,& - 0.7269E+00, 0.7288E+00, 0.7307E+00, 0.7326E+00,& - 0.7345E+00, 0.7365E+00, 0.7384E+00, 0.7403E+00,& - 0.7422E+00, 0.7442E+00, 0.7461E+00, 0.7481E+00,& - 0.7500E+00, 0.7520E+00, 0.7539E+00, 0.7559E+00,& - 0.7579E+00, 0.7598E+00, 0.7618E+00, 0.7638E+00,& - 0.7657E+00, 0.7677E+00, 0.7697E+00, 0.7717E+00,& - 0.7737E+00, 0.7757E+00, 0.7777E+00, 0.7797E+00,& - 0.7817E+00, 0.7837E+00, 0.7857E+00, 0.7878E+00,& - 0.7898E+00, 0.7918E+00, 0.7938E+00, 0.7959E+00,& - 0.7979E+00, 0.8000E+00, 0.8020E+00, 0.8041E+00,& - 0.8061E+00, 0.8082E+00, 0.8102E+00, 0.8123E+00,& - 0.8144E+00, 0.8165E+00, 0.8185E+00, 0.8206E+00,& - 0.8227E+00, 0.8248E+00, 0.8269E+00, 0.8290E+00,& - 0.8311E+00, 0.8332E+00, 0.8353E+00, 0.8374E+00,& - 0.8396E+00, 0.8417E+00, 0.8438E+00, 0.8460E+00,& - 0.8481E+00, 0.8502E+00, 0.8524E+00, 0.8545E+00,& - 0.8567E+00, 0.8589E+00, 0.8610E+00, 0.8632E+00,& - 0.8654E+00, 0.8676E+00, 0.8698E+00, 0.8719E+00,& - 0.8741E+00, 0.8763E+00, 0.8785E+00, 0.8808E+00,& - 0.8830E+00, 0.8852E+00, 0.8874E+00, 0.8896E+00,& - 0.8919E+00, 0.8941E+00, 0.8964E+00, 0.8986E+00,& - 0.9009E+00, 0.9031E+00, 0.9054E+00, 0.9076E+00,& - 0.9099E+00, 0.9122E+00, 0.9145E+00, 0.9168E+00,& - 0.9191E+00, 0.9214E+00, 0.9237E+00, 0.9260E+00,& - 0.9283E+00, 0.9306E+00, 0.9329E+00, 0.9353E+00,& - 0.9376E+00, 0.9400E+00, 0.9423E+00, 0.9447E+00,& - 0.9470E+00, 0.9494E+00, 0.9517E+00, 0.9541E+00,& - 0.9565E+00, 0.9589E+00, 0.9613E+00, 0.9637E+00,& - 0.9661E+00, 0.9685E+00, 0.9709E+00, 0.9733E+00,& - 0.9757E+00, 0.9782E+00, 0.9806E+00, 0.9831E+00,& - 0.9855E+00, 0.9880E+00, 0.9904E+00, 0.9929E+00,& - 0.9954E+00, 0.9979E+00, 0.1000E+01, 0.1003E+01,& - 0.1005E+01, 0.1008E+01, 0.1010E+01, 0.1013E+01,& - 0.1015E+01, 0.1018E+01, 0.1020E+01, 0.1023E+01,& - 0.1026E+01, 0.1028E+01, 0.1031E+01, 0.1033E+01,& - 0.1036E+01, 0.1038E+01, 0.1041E+01, 0.1044E+01,& - 0.1046E+01, 0.1049E+01, 0.1051E+01, 0.1054E+01,& - 0.1057E+01, 0.1059E+01, 0.1062E+01, 0.1065E+01,& - 0.1067E+01, 0.1070E+01, 0.1073E+01, 0.1075E+01,& - 0.1078E+01, 0.1081E+01, 0.1083E+01, 0.1086E+01,& - 0.1089E+01, 0.1092E+01, 0.1094E+01, 0.1097E+01,& - 0.1100E+01, 0.1103E+01, 0.1105E+01, 0.1108E+01,& - 0.1111E+01, 0.1114E+01, 0.1116E+01, 0.1119E+01,& - 0.1122E+01, 0.1125E+01, 0.1128E+01, 0.1130E+01,& - 0.1133E+01, 0.1136E+01, 0.1139E+01, 0.1142E+01,& - 0.1145E+01, 0.1148E+01, 0.1151E+01, 0.1153E+01,& - 0.1156E+01, 0.1159E+01, 0.1162E+01, 0.1165E+01,& - 0.1168E+01, 0.1171E+01, 0.1174E+01, 0.1177E+01,& - 0.1180E+01, 0.1183E+01, 0.1186E+01, 0.1189E+01,& - 0.1192E+01, 0.1195E+01, 0.1198E+01, 0.1201E+01,& - 0.1204E+01, 0.1207E+01, 0.1210E+01, 0.1213E+01,& - 0.1217E+01, 0.1220E+01, 0.1223E+01, 0.1226E+01,& - 0.1229E+01, 0.1232E+01, 0.1235E+01, 0.1238E+01,& - 0.1242E+01, 0.1245E+01, 0.1248E+01, 0.1251E+01,& - 0.1254E+01, 0.1258E+01, 0.1261E+01, 0.1264E+01,& - 0.1267E+01, 0.1271E+01, 0.1274E+01, 0.1277E+01,& - 0.1281E+01, 0.1284E+01, 0.1287E+01, 0.1291E+01,& - 0.1294E+01, 0.1297E+01, 0.1301E+01, 0.1304E+01,& - 0.1307E+01, 0.1311E+01, 0.1314E+01, 0.1318E+01,& - 0.1321E+01, 0.1325E+01, 0.1328E+01, 0.1332E+01,& - 0.1335E+01, 0.1339E+01, 0.1342E+01, 0.1346E+01,& - 0.1349E+01, 0.1353E+01, 0.1356E+01, 0.1360E+01,& - 0.1364E+01, 0.1367E+01, 0.1371E+01, 0.1375E+01,& - 0.1378E+01, 0.1382E+01, 0.1386E+01, 0.1389E+01,& - 0.1393E+01, 0.1397E+01, 0.1400E+01, 0.1404E+01,& - 0.1408E+01, 0.1412E+01, 0.1416E+01, 0.1419E+01,& - 0.1423E+01, 0.1427E+01, 0.1431E+01, 0.1435E+01,& - 0.1439E+01, 0.1443E+01, 0.1447E+01, 0.1451E+01,& - 0.1455E+01, 0.1459E+01, 0.1463E+01, 0.1467E+01,& - 0.1471E+01, 0.1475E+01, 0.1479E+01, 0.1483E+01,& - 0.1487E+01, 0.1491E+01, 0.1495E+01, 0.1499E+01,& - 0.1503E+01, 0.1508E+01, 0.1512E+01, 0.1516E+01,& - 0.1520E+01, 0.1525E+01, 0.1529E+01, 0.1533E+01,& - 0.1538E+01, 0.1542E+01, 0.1546E+01, 0.1551E+01,& - 0.1555E+01, 0.1559E+01, 0.1564E+01, 0.1568E+01,& - 0.1573E+01, 0.1577E+01, 0.1582E+01, 0.1587E+01,& - 0.1591E+01, 0.1596E+01, 0.1600E+01, 0.1605E+01,& - 0.1610E+01, 0.1614E+01, 0.1619E+01, 0.1624E+01,& - 0.1629E+01, 0.1633E+01, 0.1638E+01, 0.1643E+01,& - 0.1648E+01, 0.1653E+01, 0.1658E+01, 0.1663E+01,& - 0.1668E+01, 0.1673E+01, 0.1678E+01, 0.1683E+01,& - 0.1688E+01, 0.1693E+01, 0.1698E+01, 0.1703E+01,& - 0.1708E+01, 0.1714E+01, 0.1719E+01, 0.1724E+01,& - 0.1729E+01, 0.1735E+01, 0.1740E+01, 0.1745E+01,& - 0.1751E+01, 0.1756E+01, 0.1762E+01, 0.1767E+01,& - 0.1773E+01, 0.1779E+01, 0.1784E+01, 0.1790E+01,& - 0.1796E+01, 0.1801E+01, 0.1807E+01, 0.1813E+01,& - 0.1819E+01, 0.1825E+01, 0.1830E+01, 0.1836E+01,& - 0.1842E+01, 0.1848E+01, 0.1854E+01, 0.1861E+01,& - 0.1867E+01, 0.1873E+01, 0.1879E+01, 0.1885E+01,& - 0.1892E+01, 0.1898E+01, 0.1904E+01, 0.1911E+01,& - 0.1917E+01, 0.1924E+01, 0.1931E+01, 0.1937E+01,& - 0.1944E+01, 0.1951E+01, 0.1957E+01, 0.1964E+01,& - 0.1971E+01, 0.1978E+01, 0.1985E+01, 0.1992E+01,& - 0.1999E+01, 0.2006E+01, 0.2013E+01, 0.2021E+01,& - 0.2028E+01, 0.2035E+01, 0.2043E+01, 0.2050E+01,& - 0.2058E+01, 0.2066E+01, 0.2073E+01, 0.2081E+01,& - 0.2089E+01, 0.2097E+01, 0.2105E+01, 0.2113E+01,& - 0.2121E+01, 0.2129E+01, 0.2137E+01, 0.2145E+01,& - 0.2154E+01, 0.2162E+01, 0.2171E+01, 0.2179E+01,& - 0.2188E+01, 0.2197E+01, 0.2206E+01, 0.2215E+01,& - 0.2224E+01, 0.2232E+01, 0.2242E+01, 0.2251E+01,& - 0.2261E+01, 0.2270E+01, 0.2280E+01, 0.2290E+01,& - 0.2300E+01, 0.2309E+01, 0.2320E+01, 0.2330E+01,& - 0.2340E+01, 0.2350E+01, 0.2361E+01, 0.2371E+01,& - 0.2382E+01, 0.2393E+01, 0.2404E+01, 0.2415E+01,& - 0.2426E+01, 0.2438E+01, 0.2449E+01, 0.2461E+01,& - 0.2473E+01, 0.2485E+01, 0.2497E+01, 0.2510E+01,& - 0.2522E+01, 0.2535E+01, 0.2548E+01, 0.2561E+01,& - 0.2574E+01, 0.2588E+01, 0.2601E+01, 0.2615E+01,& - 0.2629E+01, 0.2643E+01, 0.2658E+01, 0.2673E+01,& - 0.2688E+01, 0.2703E+01, 0.2719E+01, 0.2734E+01,& - 0.2750E+01, 0.2767E+01, 0.2784E+01, 0.2801E+01,& - 0.2818E+01, 0.2836E+01, 0.2854E+01, 0.2872E+01,& - 0.2891E+01, 0.2910E+01, 0.2929E+01, 0.2949E+01,& - 0.2970E+01, 0.2991E+01, 0.3012E+01, 0.3034E+01,& - 0.3057E+01, 0.3080E+01, 0.3104E+01, 0.3128E+01,& - 0.3153E+01, 0.3179E+01, 0.3205E+01, 0.3233E+01,& - 0.3261E+01, 0.3290E+01, 0.3320E+01, 0.3351E+01,& - 0.3383E+01, 0.3417E+01, 0.3452E+01, 0.3488E+01,& - 0.3525E+01, 0.3565E+01, 0.3606E+01, 0.3649E+01,& - 0.3694E+01, 0.3742E+01, 0.3793E+01, 0.3846E+01,& - 0.3903E+01, 0.3964E+01, 0.4030E+01, 0.4100E+01,& - 0.4177E+01, 0.4261E+01, 0.4354E+01, 0.4457E+01,& - 0.4575E+01, 0.4709E+01, 0.4871E+01, 0.5066E+01,& - 0.1000E-04, 0.1852E-02, 0.3466E-02, 0.5004E-02/) - xcw(:, 35) = (/& - 0.1000E-04, 0.1852E-02, 0.3466E-02, 0.5004E-02,& - 0.6492E-02, 0.7948E-02, 0.9377E-02, 0.1078E-01,& - 0.1218E-01, 0.1355E-01, 0.1491E-01, 0.1626E-01,& - 0.1760E-01, 0.1893E-01, 0.2026E-01, 0.2158E-01,& - 0.2288E-01, 0.2419E-01, 0.2549E-01, 0.2678E-01,& - 0.2807E-01, 0.2935E-01, 0.3063E-01, 0.3191E-01,& - 0.3318E-01, 0.3445E-01, 0.3571E-01, 0.3697E-01,& - 0.3823E-01, 0.3949E-01, 0.4074E-01, 0.4199E-01,& - 0.4324E-01, 0.4449E-01, 0.4573E-01, 0.4697E-01,& - 0.4822E-01, 0.4946E-01, 0.5069E-01, 0.5193E-01,& - 0.5316E-01, 0.5440E-01, 0.5563E-01, 0.5686E-01,& - 0.5809E-01, 0.5932E-01, 0.6054E-01, 0.6177E-01,& - 0.6299E-01, 0.6422E-01, 0.6544E-01, 0.6666E-01,& - 0.6789E-01, 0.6911E-01, 0.7033E-01, 0.7155E-01,& - 0.7277E-01, 0.7398E-01, 0.7520E-01, 0.7642E-01,& - 0.7764E-01, 0.7885E-01, 0.8007E-01, 0.8128E-01,& - 0.8250E-01, 0.8372E-01, 0.8493E-01, 0.8614E-01,& - 0.8736E-01, 0.8857E-01, 0.8979E-01, 0.9100E-01,& - 0.9222E-01, 0.9343E-01, 0.9464E-01, 0.9586E-01,& - 0.9707E-01, 0.9828E-01, 0.9950E-01, 0.1007E+00,& - 0.1019E+00, 0.1031E+00, 0.1044E+00, 0.1056E+00,& - 0.1068E+00, 0.1080E+00, 0.1092E+00, 0.1104E+00,& - 0.1116E+00, 0.1129E+00, 0.1141E+00, 0.1153E+00,& - 0.1165E+00, 0.1177E+00, 0.1189E+00, 0.1201E+00,& - 0.1214E+00, 0.1226E+00, 0.1238E+00, 0.1250E+00,& - 0.1262E+00, 0.1275E+00, 0.1287E+00, 0.1299E+00,& - 0.1311E+00, 0.1323E+00, 0.1336E+00, 0.1348E+00,& - 0.1360E+00, 0.1372E+00, 0.1384E+00, 0.1397E+00,& - 0.1409E+00, 0.1421E+00, 0.1433E+00, 0.1446E+00,& - 0.1458E+00, 0.1470E+00, 0.1482E+00, 0.1495E+00,& - 0.1507E+00, 0.1519E+00, 0.1532E+00, 0.1544E+00,& - 0.1556E+00, 0.1568E+00, 0.1581E+00, 0.1593E+00,& - 0.1605E+00, 0.1618E+00, 0.1630E+00, 0.1642E+00,& - 0.1655E+00, 0.1667E+00, 0.1680E+00, 0.1692E+00,& - 0.1704E+00, 0.1717E+00, 0.1729E+00, 0.1741E+00,& - 0.1754E+00, 0.1766E+00, 0.1779E+00, 0.1791E+00,& - 0.1804E+00, 0.1816E+00, 0.1829E+00, 0.1841E+00,& - 0.1853E+00, 0.1866E+00, 0.1878E+00, 0.1891E+00,& - 0.1903E+00, 0.1916E+00, 0.1928E+00, 0.1941E+00,& - 0.1954E+00, 0.1966E+00, 0.1979E+00, 0.1991E+00,& - 0.2004E+00, 0.2016E+00, 0.2029E+00, 0.2042E+00,& - 0.2054E+00, 0.2067E+00, 0.2079E+00, 0.2092E+00,& - 0.2105E+00, 0.2117E+00, 0.2130E+00, 0.2143E+00,& - 0.2156E+00, 0.2168E+00, 0.2181E+00, 0.2194E+00,& - 0.2206E+00, 0.2219E+00, 0.2232E+00, 0.2245E+00,& - 0.2257E+00, 0.2270E+00, 0.2283E+00, 0.2296E+00,& - 0.2309E+00, 0.2321E+00, 0.2334E+00, 0.2347E+00,& - 0.2360E+00, 0.2373E+00, 0.2386E+00, 0.2399E+00,& - 0.2411E+00, 0.2424E+00, 0.2437E+00, 0.2450E+00,& - 0.2463E+00, 0.2476E+00, 0.2489E+00, 0.2502E+00,& - 0.2515E+00, 0.2528E+00, 0.2541E+00, 0.2554E+00,& - 0.2567E+00, 0.2580E+00, 0.2593E+00, 0.2606E+00,& - 0.2619E+00, 0.2632E+00, 0.2646E+00, 0.2659E+00,& - 0.2672E+00, 0.2685E+00, 0.2698E+00, 0.2711E+00,& - 0.2725E+00, 0.2738E+00, 0.2751E+00, 0.2764E+00,& - 0.2777E+00, 0.2791E+00, 0.2804E+00, 0.2817E+00,& - 0.2830E+00, 0.2844E+00, 0.2857E+00, 0.2870E+00,& - 0.2884E+00, 0.2897E+00, 0.2910E+00, 0.2924E+00,& - 0.2937E+00, 0.2950E+00, 0.2964E+00, 0.2977E+00,& - 0.2991E+00, 0.3004E+00, 0.3018E+00, 0.3031E+00,& - 0.3045E+00, 0.3058E+00, 0.3072E+00, 0.3085E+00,& - 0.3099E+00, 0.3112E+00, 0.3126E+00, 0.3139E+00,& - 0.3153E+00, 0.3167E+00, 0.3180E+00, 0.3194E+00,& - 0.3208E+00, 0.3221E+00, 0.3235E+00, 0.3249E+00,& - 0.3262E+00, 0.3276E+00, 0.3290E+00, 0.3304E+00,& - 0.3317E+00, 0.3331E+00, 0.3345E+00, 0.3359E+00,& - 0.3373E+00, 0.3386E+00, 0.3400E+00, 0.3414E+00,& - 0.3428E+00, 0.3442E+00, 0.3456E+00, 0.3470E+00,& - 0.3484E+00, 0.3498E+00, 0.3512E+00, 0.3526E+00,& - 0.3540E+00, 0.3554E+00, 0.3568E+00, 0.3582E+00,& - 0.3596E+00, 0.3610E+00, 0.3624E+00, 0.3638E+00,& - 0.3653E+00, 0.3667E+00, 0.3681E+00, 0.3695E+00,& - 0.3709E+00, 0.3724E+00, 0.3738E+00, 0.3752E+00,& - 0.3766E+00, 0.3781E+00, 0.3795E+00, 0.3809E+00,& - 0.3824E+00, 0.3838E+00, 0.3852E+00, 0.3867E+00,& - 0.3881E+00, 0.3896E+00, 0.3910E+00, 0.3925E+00,& - 0.3939E+00, 0.3954E+00, 0.3968E+00, 0.3983E+00,& - 0.3997E+00, 0.4012E+00, 0.4026E+00, 0.4041E+00,& - 0.4056E+00, 0.4070E+00, 0.4085E+00, 0.4100E+00,& - 0.4114E+00, 0.4129E+00, 0.4144E+00, 0.4158E+00,& - 0.4173E+00, 0.4188E+00, 0.4203E+00, 0.4218E+00,& - 0.4233E+00, 0.4247E+00, 0.4262E+00, 0.4277E+00,& - 0.4292E+00, 0.4307E+00, 0.4322E+00, 0.4337E+00,& - 0.4352E+00, 0.4367E+00, 0.4382E+00, 0.4397E+00,& - 0.4412E+00, 0.4427E+00, 0.4442E+00, 0.4458E+00,& - 0.4473E+00, 0.4488E+00, 0.4503E+00, 0.4518E+00,& - 0.4534E+00, 0.4549E+00, 0.4564E+00, 0.4579E+00,& - 0.4595E+00, 0.4610E+00, 0.4625E+00, 0.4641E+00,& - 0.4656E+00, 0.4672E+00, 0.4687E+00, 0.4703E+00,& - 0.4718E+00, 0.4734E+00, 0.4749E+00, 0.4765E+00,& - 0.4780E+00, 0.4796E+00, 0.4811E+00, 0.4827E+00,& - 0.4843E+00, 0.4858E+00, 0.4874E+00, 0.4890E+00,& - 0.4906E+00, 0.4921E+00, 0.4937E+00, 0.4953E+00,& - 0.4969E+00, 0.4985E+00, 0.5000E+00, 0.5016E+00,& - 0.5032E+00, 0.5048E+00, 0.5064E+00, 0.5080E+00,& - 0.5096E+00, 0.5112E+00, 0.5128E+00, 0.5144E+00,& - 0.5161E+00, 0.5177E+00, 0.5193E+00, 0.5209E+00,& - 0.5225E+00, 0.5241E+00, 0.5258E+00, 0.5274E+00,& - 0.5290E+00, 0.5307E+00, 0.5323E+00, 0.5339E+00,& - 0.5356E+00, 0.5372E+00, 0.5388E+00, 0.5405E+00,& - 0.5421E+00, 0.5438E+00, 0.5454E+00, 0.5471E+00,& - 0.5488E+00, 0.5504E+00, 0.5521E+00, 0.5538E+00,& - 0.5554E+00, 0.5571E+00, 0.5588E+00, 0.5604E+00,& - 0.5621E+00, 0.5638E+00, 0.5655E+00, 0.5672E+00,& - 0.5689E+00, 0.5706E+00, 0.5723E+00, 0.5740E+00,& - 0.5757E+00, 0.5774E+00, 0.5791E+00, 0.5808E+00,& - 0.5825E+00, 0.5842E+00, 0.5859E+00, 0.5876E+00,& - 0.5894E+00, 0.5911E+00, 0.5928E+00, 0.5945E+00,& - 0.5963E+00, 0.5980E+00, 0.5997E+00, 0.6015E+00,& - 0.6032E+00, 0.6050E+00, 0.6067E+00, 0.6085E+00,& - 0.6102E+00, 0.6120E+00, 0.6138E+00, 0.6155E+00,& - 0.6173E+00, 0.6191E+00, 0.6208E+00, 0.6226E+00,& - 0.6244E+00, 0.6262E+00, 0.6280E+00, 0.6297E+00,& - 0.6315E+00, 0.6333E+00, 0.6351E+00, 0.6369E+00,& - 0.6387E+00, 0.6405E+00, 0.6423E+00, 0.6442E+00,& - 0.6460E+00, 0.6478E+00, 0.6496E+00, 0.6514E+00,& - 0.6533E+00, 0.6551E+00, 0.6569E+00, 0.6588E+00,& - 0.6606E+00, 0.6624E+00, 0.6643E+00, 0.6661E+00,& - 0.6680E+00, 0.6699E+00, 0.6717E+00, 0.6736E+00,& - 0.6754E+00, 0.6773E+00, 0.6792E+00, 0.6811E+00,& - 0.6829E+00, 0.6848E+00, 0.6867E+00, 0.6886E+00,& - 0.6905E+00, 0.6924E+00, 0.6943E+00, 0.6962E+00,& - 0.6981E+00, 0.7000E+00, 0.7019E+00, 0.7038E+00,& - 0.7058E+00, 0.7077E+00, 0.7096E+00, 0.7115E+00,& - 0.7135E+00, 0.7154E+00, 0.7174E+00, 0.7193E+00,& - 0.7213E+00, 0.7232E+00, 0.7252E+00, 0.7271E+00,& - 0.7291E+00, 0.7311E+00, 0.7330E+00, 0.7350E+00,& - 0.7370E+00, 0.7390E+00, 0.7410E+00, 0.7430E+00,& - 0.7449E+00, 0.7469E+00, 0.7489E+00, 0.7510E+00,& - 0.7530E+00, 0.7550E+00, 0.7570E+00, 0.7590E+00,& - 0.7610E+00, 0.7631E+00, 0.7651E+00, 0.7671E+00,& - 0.7692E+00, 0.7712E+00, 0.7733E+00, 0.7753E+00,& - 0.7774E+00, 0.7795E+00, 0.7815E+00, 0.7836E+00,& - 0.7856E+00, 0.7877E+00, 0.7898E+00, 0.7919E+00,& - 0.7940E+00, 0.7961E+00, 0.7982E+00, 0.8003E+00,& - 0.8024E+00, 0.8045E+00, 0.8066E+00, 0.8088E+00,& - 0.8109E+00, 0.8130E+00, 0.8152E+00, 0.8173E+00,& - 0.8194E+00, 0.8216E+00, 0.8237E+00, 0.8259E+00,& - 0.8281E+00, 0.8302E+00, 0.8324E+00, 0.8346E+00,& - 0.8367E+00, 0.8389E+00, 0.8411E+00, 0.8433E+00,& - 0.8455E+00, 0.8477E+00, 0.8499E+00, 0.8521E+00,& - 0.8544E+00, 0.8566E+00, 0.8588E+00, 0.8610E+00,& - 0.8633E+00, 0.8655E+00, 0.8678E+00, 0.8700E+00,& - 0.8723E+00, 0.8745E+00, 0.8768E+00, 0.8791E+00,& - 0.8814E+00, 0.8836E+00, 0.8859E+00, 0.8882E+00,& - 0.8905E+00, 0.8928E+00, 0.8951E+00, 0.8975E+00,& - 0.8998E+00, 0.9021E+00, 0.9044E+00, 0.9068E+00,& - 0.9091E+00, 0.9115E+00, 0.9138E+00, 0.9162E+00,& - 0.9185E+00, 0.9209E+00, 0.9233E+00, 0.9256E+00,& - 0.9280E+00, 0.9304E+00, 0.9328E+00, 0.9352E+00,& - 0.9376E+00, 0.9400E+00, 0.9425E+00, 0.9449E+00,& - 0.9473E+00, 0.9498E+00, 0.9522E+00, 0.9546E+00,& - 0.9571E+00, 0.9596E+00, 0.9620E+00, 0.9645E+00,& - 0.9670E+00, 0.9695E+00, 0.9720E+00, 0.9745E+00,& - 0.9770E+00, 0.9795E+00, 0.9820E+00, 0.9845E+00,& - 0.9870E+00, 0.9896E+00, 0.9921E+00, 0.9947E+00,& - 0.9972E+00, 0.9998E+00, 0.1002E+01, 0.1005E+01,& - 0.1008E+01, 0.1010E+01, 0.1013E+01, 0.1015E+01,& - 0.1018E+01, 0.1021E+01, 0.1023E+01, 0.1026E+01,& - 0.1028E+01, 0.1031E+01, 0.1034E+01, 0.1036E+01,& - 0.1039E+01, 0.1042E+01, 0.1044E+01, 0.1047E+01,& - 0.1050E+01, 0.1052E+01, 0.1055E+01, 0.1058E+01,& - 0.1061E+01, 0.1063E+01, 0.1066E+01, 0.1069E+01,& - 0.1072E+01, 0.1074E+01, 0.1077E+01, 0.1080E+01,& - 0.1083E+01, 0.1085E+01, 0.1088E+01, 0.1091E+01,& - 0.1094E+01, 0.1097E+01, 0.1100E+01, 0.1102E+01,& - 0.1105E+01, 0.1108E+01, 0.1111E+01, 0.1114E+01,& - 0.1117E+01, 0.1120E+01, 0.1122E+01, 0.1125E+01,& - 0.1128E+01, 0.1131E+01, 0.1134E+01, 0.1137E+01,& - 0.1140E+01, 0.1143E+01, 0.1146E+01, 0.1149E+01,& - 0.1152E+01, 0.1155E+01, 0.1158E+01, 0.1161E+01,& - 0.1164E+01, 0.1167E+01, 0.1170E+01, 0.1173E+01,& - 0.1176E+01, 0.1179E+01, 0.1182E+01, 0.1185E+01,& - 0.1188E+01, 0.1192E+01, 0.1195E+01, 0.1198E+01,& - 0.1201E+01, 0.1204E+01, 0.1207E+01, 0.1210E+01,& - 0.1214E+01, 0.1217E+01, 0.1220E+01, 0.1223E+01,& - 0.1226E+01, 0.1230E+01, 0.1233E+01, 0.1236E+01,& - 0.1239E+01, 0.1243E+01, 0.1246E+01, 0.1249E+01,& - 0.1253E+01, 0.1256E+01, 0.1259E+01, 0.1263E+01,& - 0.1266E+01, 0.1269E+01, 0.1273E+01, 0.1276E+01,& - 0.1279E+01, 0.1283E+01, 0.1286E+01, 0.1290E+01,& - 0.1293E+01, 0.1297E+01, 0.1300E+01, 0.1304E+01,& - 0.1307E+01, 0.1311E+01, 0.1314E+01, 0.1318E+01,& - 0.1321E+01, 0.1325E+01, 0.1328E+01, 0.1332E+01,& - 0.1335E+01, 0.1339E+01, 0.1343E+01, 0.1346E+01,& - 0.1350E+01, 0.1354E+01, 0.1357E+01, 0.1361E+01,& - 0.1365E+01, 0.1368E+01, 0.1372E+01, 0.1376E+01,& - 0.1380E+01, 0.1384E+01, 0.1387E+01, 0.1391E+01,& - 0.1395E+01, 0.1399E+01, 0.1403E+01, 0.1407E+01,& - 0.1410E+01, 0.1414E+01, 0.1418E+01, 0.1422E+01,& - 0.1426E+01, 0.1430E+01, 0.1434E+01, 0.1438E+01,& - 0.1442E+01, 0.1446E+01, 0.1450E+01, 0.1454E+01,& - 0.1458E+01, 0.1462E+01, 0.1467E+01, 0.1471E+01,& - 0.1475E+01, 0.1479E+01, 0.1483E+01, 0.1487E+01,& - 0.1492E+01, 0.1496E+01, 0.1500E+01, 0.1504E+01,& - 0.1509E+01, 0.1513E+01, 0.1517E+01, 0.1522E+01,& - 0.1526E+01, 0.1531E+01, 0.1535E+01, 0.1539E+01,& - 0.1544E+01, 0.1548E+01, 0.1553E+01, 0.1557E+01,& - 0.1562E+01, 0.1566E+01, 0.1571E+01, 0.1576E+01,& - 0.1580E+01, 0.1585E+01, 0.1590E+01, 0.1594E+01,& - 0.1599E+01, 0.1604E+01, 0.1609E+01, 0.1613E+01,& - 0.1618E+01, 0.1623E+01, 0.1628E+01, 0.1633E+01,& - 0.1638E+01, 0.1643E+01, 0.1648E+01, 0.1653E+01,& - 0.1658E+01, 0.1663E+01, 0.1668E+01, 0.1673E+01,& - 0.1678E+01, 0.1683E+01, 0.1688E+01, 0.1694E+01,& - 0.1699E+01, 0.1704E+01, 0.1709E+01, 0.1715E+01,& - 0.1720E+01, 0.1725E+01, 0.1731E+01, 0.1736E+01,& - 0.1742E+01, 0.1747E+01, 0.1753E+01, 0.1758E+01,& - 0.1764E+01, 0.1770E+01, 0.1775E+01, 0.1781E+01,& - 0.1787E+01, 0.1793E+01, 0.1798E+01, 0.1804E+01,& - 0.1810E+01, 0.1816E+01, 0.1822E+01, 0.1828E+01,& - 0.1834E+01, 0.1840E+01, 0.1846E+01, 0.1852E+01,& - 0.1859E+01, 0.1865E+01, 0.1871E+01, 0.1877E+01,& - 0.1884E+01, 0.1890E+01, 0.1897E+01, 0.1903E+01,& - 0.1910E+01, 0.1916E+01, 0.1923E+01, 0.1929E+01,& - 0.1936E+01, 0.1943E+01, 0.1950E+01, 0.1957E+01,& - 0.1964E+01, 0.1971E+01, 0.1978E+01, 0.1985E+01,& - 0.1992E+01, 0.1999E+01, 0.2006E+01, 0.2013E+01,& - 0.2021E+01, 0.2028E+01, 0.2036E+01, 0.2043E+01,& - 0.2051E+01, 0.2058E+01, 0.2066E+01, 0.2074E+01,& - 0.2082E+01, 0.2089E+01, 0.2097E+01, 0.2105E+01,& - 0.2114E+01, 0.2122E+01, 0.2130E+01, 0.2138E+01,& - 0.2147E+01, 0.2155E+01, 0.2164E+01, 0.2172E+01,& - 0.2181E+01, 0.2190E+01, 0.2199E+01, 0.2207E+01,& - 0.2216E+01, 0.2226E+01, 0.2235E+01, 0.2244E+01,& - 0.2253E+01, 0.2263E+01, 0.2272E+01, 0.2282E+01,& - 0.2292E+01, 0.2302E+01, 0.2312E+01, 0.2322E+01,& - 0.2332E+01, 0.2342E+01, 0.2353E+01, 0.2363E+01,& - 0.2374E+01, 0.2385E+01, 0.2396E+01, 0.2407E+01,& - 0.2418E+01, 0.2429E+01, 0.2440E+01, 0.2452E+01,& - 0.2464E+01, 0.2476E+01, 0.2488E+01, 0.2500E+01,& - 0.2512E+01, 0.2525E+01, 0.2537E+01, 0.2550E+01,& - 0.2563E+01, 0.2576E+01, 0.2590E+01, 0.2603E+01,& - 0.2617E+01, 0.2631E+01, 0.2645E+01, 0.2660E+01,& - 0.2674E+01, 0.2689E+01, 0.2704E+01, 0.2719E+01,& - 0.2735E+01, 0.2751E+01, 0.2767E+01, 0.2784E+01,& - 0.2800E+01, 0.2817E+01, 0.2835E+01, 0.2852E+01,& - 0.2870E+01, 0.2889E+01, 0.2907E+01, 0.2927E+01,& - 0.2946E+01, 0.2966E+01, 0.2986E+01, 0.3007E+01,& - 0.3028E+01, 0.3050E+01, 0.3073E+01, 0.3095E+01,& - 0.3119E+01, 0.3143E+01, 0.3168E+01, 0.3193E+01,& - 0.3219E+01, 0.3246E+01, 0.3273E+01, 0.3302E+01,& - 0.3331E+01, 0.3362E+01, 0.3393E+01, 0.3425E+01,& - 0.3459E+01, 0.3494E+01, 0.3530E+01, 0.3568E+01,& - 0.3607E+01, 0.3648E+01, 0.3691E+01, 0.3736E+01,& - 0.3783E+01, 0.3832E+01, 0.3886E+01, 0.3942E+01,& - 0.4001E+01, 0.4065E+01, 0.4133E+01, 0.4207E+01,& - 0.4287E+01, 0.4374E+01, 0.4471E+01, 0.4580E+01,& - 0.4702E+01, 0.4844E+01, 0.5011E+01, 0.5216E+01,& - 0.1000E-04, 0.1368E-02, 0.2642E-02, 0.3889E-02/) - xcw(:, 36) = (/& - 0.1000E-04, 0.1368E-02, 0.2642E-02, 0.3889E-02,& - 0.5116E-02, 0.6335E-02, 0.7535E-02, 0.8735E-02,& - 0.9916E-02, 0.1110E-01, 0.1228E-01, 0.1345E-01,& - 0.1462E-01, 0.1578E-01, 0.1695E-01, 0.1811E-01,& - 0.1926E-01, 0.2043E-01, 0.2158E-01, 0.2272E-01,& - 0.2388E-01, 0.2502E-01, 0.2617E-01, 0.2732E-01,& - 0.2846E-01, 0.2961E-01, 0.3075E-01, 0.3189E-01,& - 0.3303E-01, 0.3417E-01, 0.3532E-01, 0.3645E-01,& - 0.3759E-01, 0.3873E-01, 0.3987E-01, 0.4101E-01,& - 0.4214E-01, 0.4328E-01, 0.4441E-01, 0.4556E-01,& - 0.4669E-01, 0.4783E-01, 0.4896E-01, 0.5010E-01,& - 0.5124E-01, 0.5238E-01, 0.5351E-01, 0.5465E-01,& - 0.5579E-01, 0.5692E-01, 0.5806E-01, 0.5919E-01,& - 0.6034E-01, 0.6147E-01, 0.6262E-01, 0.6375E-01,& - 0.6489E-01, 0.6603E-01, 0.6717E-01, 0.6831E-01,& - 0.6945E-01, 0.7059E-01, 0.7173E-01, 0.7288E-01,& - 0.7401E-01, 0.7516E-01, 0.7630E-01, 0.7744E-01,& - 0.7859E-01, 0.7973E-01, 0.8088E-01, 0.8202E-01,& - 0.8317E-01, 0.8432E-01, 0.8546E-01, 0.8661E-01,& - 0.8776E-01, 0.8891E-01, 0.9006E-01, 0.9121E-01,& - 0.9236E-01, 0.9351E-01, 0.9466E-01, 0.9581E-01,& - 0.9697E-01, 0.9812E-01, 0.9927E-01, 0.1004E+00,& - 0.1016E+00, 0.1027E+00, 0.1039E+00, 0.1051E+00,& - 0.1062E+00, 0.1074E+00, 0.1085E+00, 0.1097E+00,& - 0.1109E+00, 0.1120E+00, 0.1132E+00, 0.1144E+00,& - 0.1155E+00, 0.1167E+00, 0.1179E+00, 0.1190E+00,& - 0.1202E+00, 0.1214E+00, 0.1225E+00, 0.1237E+00,& - 0.1249E+00, 0.1261E+00, 0.1272E+00, 0.1284E+00,& - 0.1296E+00, 0.1307E+00, 0.1319E+00, 0.1331E+00,& - 0.1343E+00, 0.1355E+00, 0.1367E+00, 0.1378E+00,& - 0.1390E+00, 0.1402E+00, 0.1414E+00, 0.1426E+00,& - 0.1438E+00, 0.1449E+00, 0.1461E+00, 0.1473E+00,& - 0.1485E+00, 0.1497E+00, 0.1509E+00, 0.1521E+00,& - 0.1533E+00, 0.1545E+00, 0.1557E+00, 0.1569E+00,& - 0.1581E+00, 0.1593E+00, 0.1605E+00, 0.1617E+00,& - 0.1629E+00, 0.1641E+00, 0.1653E+00, 0.1665E+00,& - 0.1677E+00, 0.1689E+00, 0.1701E+00, 0.1713E+00,& - 0.1725E+00, 0.1738E+00, 0.1750E+00, 0.1762E+00,& - 0.1774E+00, 0.1786E+00, 0.1799E+00, 0.1811E+00,& - 0.1823E+00, 0.1835E+00, 0.1847E+00, 0.1860E+00,& - 0.1872E+00, 0.1884E+00, 0.1896E+00, 0.1909E+00,& - 0.1921E+00, 0.1933E+00, 0.1946E+00, 0.1958E+00,& - 0.1970E+00, 0.1983E+00, 0.1995E+00, 0.2007E+00,& - 0.2020E+00, 0.2032E+00, 0.2045E+00, 0.2057E+00,& - 0.2070E+00, 0.2082E+00, 0.2094E+00, 0.2107E+00,& - 0.2119E+00, 0.2132E+00, 0.2145E+00, 0.2157E+00,& - 0.2170E+00, 0.2182E+00, 0.2195E+00, 0.2207E+00,& - 0.2220E+00, 0.2233E+00, 0.2245E+00, 0.2258E+00,& - 0.2270E+00, 0.2283E+00, 0.2296E+00, 0.2308E+00,& - 0.2321E+00, 0.2334E+00, 0.2347E+00, 0.2359E+00,& - 0.2372E+00, 0.2385E+00, 0.2398E+00, 0.2411E+00,& - 0.2423E+00, 0.2436E+00, 0.2449E+00, 0.2462E+00,& - 0.2475E+00, 0.2488E+00, 0.2500E+00, 0.2513E+00,& - 0.2526E+00, 0.2539E+00, 0.2552E+00, 0.2565E+00,& - 0.2578E+00, 0.2591E+00, 0.2604E+00, 0.2617E+00,& - 0.2630E+00, 0.2643E+00, 0.2656E+00, 0.2669E+00,& - 0.2683E+00, 0.2696E+00, 0.2709E+00, 0.2722E+00,& - 0.2735E+00, 0.2748E+00, 0.2761E+00, 0.2775E+00,& - 0.2788E+00, 0.2801E+00, 0.2814E+00, 0.2828E+00,& - 0.2841E+00, 0.2854E+00, 0.2868E+00, 0.2881E+00,& - 0.2894E+00, 0.2907E+00, 0.2921E+00, 0.2934E+00,& - 0.2948E+00, 0.2961E+00, 0.2974E+00, 0.2988E+00,& - 0.3001E+00, 0.3015E+00, 0.3028E+00, 0.3042E+00,& - 0.3055E+00, 0.3069E+00, 0.3083E+00, 0.3096E+00,& - 0.3110E+00, 0.3123E+00, 0.3137E+00, 0.3151E+00,& - 0.3164E+00, 0.3178E+00, 0.3192E+00, 0.3205E+00,& - 0.3219E+00, 0.3233E+00, 0.3247E+00, 0.3260E+00,& - 0.3274E+00, 0.3288E+00, 0.3302E+00, 0.3316E+00,& - 0.3329E+00, 0.3343E+00, 0.3357E+00, 0.3371E+00,& - 0.3385E+00, 0.3399E+00, 0.3413E+00, 0.3427E+00,& - 0.3441E+00, 0.3455E+00, 0.3469E+00, 0.3483E+00,& - 0.3497E+00, 0.3511E+00, 0.3525E+00, 0.3540E+00,& - 0.3554E+00, 0.3568E+00, 0.3582E+00, 0.3596E+00,& - 0.3610E+00, 0.3625E+00, 0.3639E+00, 0.3653E+00,& - 0.3668E+00, 0.3682E+00, 0.3696E+00, 0.3711E+00,& - 0.3725E+00, 0.3739E+00, 0.3754E+00, 0.3768E+00,& - 0.3783E+00, 0.3797E+00, 0.3811E+00, 0.3826E+00,& - 0.3841E+00, 0.3855E+00, 0.3870E+00, 0.3884E+00,& - 0.3899E+00, 0.3913E+00, 0.3928E+00, 0.3943E+00,& - 0.3957E+00, 0.3972E+00, 0.3987E+00, 0.4002E+00,& - 0.4016E+00, 0.4031E+00, 0.4046E+00, 0.4061E+00,& - 0.4076E+00, 0.4090E+00, 0.4105E+00, 0.4120E+00,& - 0.4135E+00, 0.4150E+00, 0.4165E+00, 0.4180E+00,& - 0.4195E+00, 0.4210E+00, 0.4225E+00, 0.4240E+00,& - 0.4255E+00, 0.4270E+00, 0.4285E+00, 0.4301E+00,& - 0.4316E+00, 0.4331E+00, 0.4346E+00, 0.4361E+00,& - 0.4377E+00, 0.4392E+00, 0.4407E+00, 0.4423E+00,& - 0.4438E+00, 0.4453E+00, 0.4469E+00, 0.4484E+00,& - 0.4500E+00, 0.4515E+00, 0.4530E+00, 0.4546E+00,& - 0.4561E+00, 0.4577E+00, 0.4593E+00, 0.4608E+00,& - 0.4624E+00, 0.4639E+00, 0.4655E+00, 0.4671E+00,& - 0.4686E+00, 0.4702E+00, 0.4718E+00, 0.4734E+00,& - 0.4750E+00, 0.4765E+00, 0.4781E+00, 0.4797E+00,& - 0.4813E+00, 0.4829E+00, 0.4845E+00, 0.4861E+00,& - 0.4877E+00, 0.4893E+00, 0.4909E+00, 0.4925E+00,& - 0.4941E+00, 0.4957E+00, 0.4973E+00, 0.4989E+00,& - 0.5006E+00, 0.5022E+00, 0.5038E+00, 0.5054E+00,& - 0.5071E+00, 0.5087E+00, 0.5103E+00, 0.5120E+00,& - 0.5136E+00, 0.5152E+00, 0.5169E+00, 0.5185E+00,& - 0.5202E+00, 0.5218E+00, 0.5235E+00, 0.5251E+00,& - 0.5268E+00, 0.5285E+00, 0.5301E+00, 0.5318E+00,& - 0.5335E+00, 0.5351E+00, 0.5368E+00, 0.5385E+00,& - 0.5402E+00, 0.5419E+00, 0.5435E+00, 0.5452E+00,& - 0.5469E+00, 0.5486E+00, 0.5503E+00, 0.5520E+00,& - 0.5537E+00, 0.5554E+00, 0.5571E+00, 0.5589E+00,& - 0.5606E+00, 0.5623E+00, 0.5640E+00, 0.5657E+00,& - 0.5674E+00, 0.5692E+00, 0.5709E+00, 0.5726E+00,& - 0.5744E+00, 0.5761E+00, 0.5779E+00, 0.5796E+00,& - 0.5814E+00, 0.5831E+00, 0.5849E+00, 0.5866E+00,& - 0.5884E+00, 0.5901E+00, 0.5919E+00, 0.5937E+00,& - 0.5955E+00, 0.5972E+00, 0.5990E+00, 0.6008E+00,& - 0.6026E+00, 0.6044E+00, 0.6061E+00, 0.6079E+00,& - 0.6097E+00, 0.6115E+00, 0.6133E+00, 0.6152E+00,& - 0.6170E+00, 0.6188E+00, 0.6206E+00, 0.6224E+00,& - 0.6242E+00, 0.6261E+00, 0.6279E+00, 0.6297E+00,& - 0.6315E+00, 0.6334E+00, 0.6352E+00, 0.6371E+00,& - 0.6389E+00, 0.6408E+00, 0.6426E+00, 0.6445E+00,& - 0.6464E+00, 0.6482E+00, 0.6501E+00, 0.6520E+00,& - 0.6538E+00, 0.6557E+00, 0.6576E+00, 0.6595E+00,& - 0.6614E+00, 0.6633E+00, 0.6652E+00, 0.6671E+00,& - 0.6690E+00, 0.6709E+00, 0.6728E+00, 0.6747E+00,& - 0.6766E+00, 0.6785E+00, 0.6805E+00, 0.6824E+00,& - 0.6843E+00, 0.6863E+00, 0.6882E+00, 0.6901E+00,& - 0.6921E+00, 0.6940E+00, 0.6960E+00, 0.6979E+00,& - 0.6999E+00, 0.7019E+00, 0.7038E+00, 0.7058E+00,& - 0.7078E+00, 0.7098E+00, 0.7118E+00, 0.7137E+00,& - 0.7157E+00, 0.7177E+00, 0.7197E+00, 0.7217E+00,& - 0.7237E+00, 0.7258E+00, 0.7278E+00, 0.7298E+00,& - 0.7318E+00, 0.7338E+00, 0.7359E+00, 0.7379E+00,& - 0.7400E+00, 0.7420E+00, 0.7440E+00, 0.7461E+00,& - 0.7482E+00, 0.7502E+00, 0.7523E+00, 0.7543E+00,& - 0.7564E+00, 0.7585E+00, 0.7606E+00, 0.7627E+00,& - 0.7648E+00, 0.7669E+00, 0.7689E+00, 0.7711E+00,& - 0.7732E+00, 0.7753E+00, 0.7774E+00, 0.7795E+00,& - 0.7816E+00, 0.7838E+00, 0.7859E+00, 0.7880E+00,& - 0.7902E+00, 0.7923E+00, 0.7945E+00, 0.7966E+00,& - 0.7988E+00, 0.8010E+00, 0.8031E+00, 0.8053E+00,& - 0.8075E+00, 0.8097E+00, 0.8119E+00, 0.8141E+00,& - 0.8163E+00, 0.8185E+00, 0.8207E+00, 0.8229E+00,& - 0.8251E+00, 0.8273E+00, 0.8296E+00, 0.8318E+00,& - 0.8340E+00, 0.8363E+00, 0.8385E+00, 0.8408E+00,& - 0.8430E+00, 0.8453E+00, 0.8476E+00, 0.8498E+00,& - 0.8521E+00, 0.8544E+00, 0.8567E+00, 0.8590E+00,& - 0.8613E+00, 0.8636E+00, 0.8659E+00, 0.8682E+00,& - 0.8705E+00, 0.8729E+00, 0.8752E+00, 0.8775E+00,& - 0.8799E+00, 0.8822E+00, 0.8846E+00, 0.8869E+00,& - 0.8893E+00, 0.8917E+00, 0.8940E+00, 0.8964E+00,& - 0.8988E+00, 0.9012E+00, 0.9036E+00, 0.9060E+00,& - 0.9084E+00, 0.9108E+00, 0.9132E+00, 0.9157E+00,& - 0.9181E+00, 0.9205E+00, 0.9230E+00, 0.9254E+00,& - 0.9279E+00, 0.9303E+00, 0.9328E+00, 0.9353E+00,& - 0.9378E+00, 0.9403E+00, 0.9428E+00, 0.9452E+00,& - 0.9478E+00, 0.9503E+00, 0.9528E+00, 0.9553E+00,& - 0.9578E+00, 0.9604E+00, 0.9629E+00, 0.9655E+00,& - 0.9680E+00, 0.9706E+00, 0.9732E+00, 0.9757E+00,& - 0.9783E+00, 0.9809E+00, 0.9835E+00, 0.9861E+00,& - 0.9887E+00, 0.9913E+00, 0.9940E+00, 0.9966E+00,& - 0.9992E+00, 0.1002E+01, 0.1005E+01, 0.1007E+01,& - 0.1010E+01, 0.1013E+01, 0.1015E+01, 0.1018E+01,& - 0.1021E+01, 0.1023E+01, 0.1026E+01, 0.1029E+01,& - 0.1031E+01, 0.1034E+01, 0.1037E+01, 0.1040E+01,& - 0.1042E+01, 0.1045E+01, 0.1048E+01, 0.1051E+01,& - 0.1053E+01, 0.1056E+01, 0.1059E+01, 0.1062E+01,& - 0.1065E+01, 0.1068E+01, 0.1070E+01, 0.1073E+01,& - 0.1076E+01, 0.1079E+01, 0.1082E+01, 0.1085E+01,& - 0.1088E+01, 0.1090E+01, 0.1093E+01, 0.1096E+01,& - 0.1099E+01, 0.1102E+01, 0.1105E+01, 0.1108E+01,& - 0.1111E+01, 0.1114E+01, 0.1117E+01, 0.1120E+01,& - 0.1123E+01, 0.1126E+01, 0.1129E+01, 0.1132E+01,& - 0.1135E+01, 0.1138E+01, 0.1141E+01, 0.1144E+01,& - 0.1147E+01, 0.1150E+01, 0.1153E+01, 0.1156E+01,& - 0.1159E+01, 0.1162E+01, 0.1166E+01, 0.1169E+01,& - 0.1172E+01, 0.1175E+01, 0.1178E+01, 0.1181E+01,& - 0.1184E+01, 0.1188E+01, 0.1191E+01, 0.1194E+01,& - 0.1197E+01, 0.1200E+01, 0.1204E+01, 0.1207E+01,& - 0.1210E+01, 0.1213E+01, 0.1217E+01, 0.1220E+01,& - 0.1223E+01, 0.1227E+01, 0.1230E+01, 0.1233E+01,& - 0.1237E+01, 0.1240E+01, 0.1243E+01, 0.1247E+01,& - 0.1250E+01, 0.1254E+01, 0.1257E+01, 0.1260E+01,& - 0.1264E+01, 0.1267E+01, 0.1271E+01, 0.1274E+01,& - 0.1278E+01, 0.1281E+01, 0.1285E+01, 0.1288E+01,& - 0.1292E+01, 0.1295E+01, 0.1299E+01, 0.1302E+01,& - 0.1306E+01, 0.1310E+01, 0.1313E+01, 0.1317E+01,& - 0.1321E+01, 0.1324E+01, 0.1328E+01, 0.1332E+01,& - 0.1335E+01, 0.1339E+01, 0.1343E+01, 0.1346E+01,& - 0.1350E+01, 0.1354E+01, 0.1358E+01, 0.1362E+01,& - 0.1365E+01, 0.1369E+01, 0.1373E+01, 0.1377E+01,& - 0.1381E+01, 0.1385E+01, 0.1389E+01, 0.1392E+01,& - 0.1396E+01, 0.1400E+01, 0.1404E+01, 0.1408E+01,& - 0.1412E+01, 0.1416E+01, 0.1420E+01, 0.1424E+01,& - 0.1428E+01, 0.1433E+01, 0.1437E+01, 0.1441E+01,& - 0.1445E+01, 0.1449E+01, 0.1453E+01, 0.1457E+01,& - 0.1462E+01, 0.1466E+01, 0.1470E+01, 0.1474E+01,& - 0.1479E+01, 0.1483E+01, 0.1487E+01, 0.1492E+01,& - 0.1496E+01, 0.1500E+01, 0.1505E+01, 0.1509E+01,& - 0.1513E+01, 0.1518E+01, 0.1522E+01, 0.1527E+01,& - 0.1531E+01, 0.1536E+01, 0.1540E+01, 0.1545E+01,& - 0.1550E+01, 0.1554E+01, 0.1559E+01, 0.1564E+01,& - 0.1568E+01, 0.1573E+01, 0.1578E+01, 0.1582E+01,& - 0.1587E+01, 0.1592E+01, 0.1597E+01, 0.1602E+01,& - 0.1607E+01, 0.1611E+01, 0.1616E+01, 0.1621E+01,& - 0.1626E+01, 0.1631E+01, 0.1636E+01, 0.1641E+01,& - 0.1646E+01, 0.1651E+01, 0.1657E+01, 0.1662E+01,& - 0.1667E+01, 0.1672E+01, 0.1677E+01, 0.1683E+01,& - 0.1688E+01, 0.1693E+01, 0.1699E+01, 0.1704E+01,& - 0.1709E+01, 0.1715E+01, 0.1720E+01, 0.1726E+01,& - 0.1731E+01, 0.1737E+01, 0.1742E+01, 0.1748E+01,& - 0.1754E+01, 0.1759E+01, 0.1765E+01, 0.1771E+01,& - 0.1777E+01, 0.1782E+01, 0.1788E+01, 0.1794E+01,& - 0.1800E+01, 0.1806E+01, 0.1812E+01, 0.1818E+01,& - 0.1824E+01, 0.1830E+01, 0.1837E+01, 0.1843E+01,& - 0.1849E+01, 0.1855E+01, 0.1862E+01, 0.1868E+01,& - 0.1874E+01, 0.1881E+01, 0.1887E+01, 0.1894E+01,& - 0.1900E+01, 0.1907E+01, 0.1914E+01, 0.1920E+01,& - 0.1927E+01, 0.1934E+01, 0.1941E+01, 0.1948E+01,& - 0.1954E+01, 0.1961E+01, 0.1969E+01, 0.1976E+01,& - 0.1983E+01, 0.1990E+01, 0.1997E+01, 0.2005E+01,& - 0.2012E+01, 0.2019E+01, 0.2027E+01, 0.2034E+01,& - 0.2042E+01, 0.2050E+01, 0.2057E+01, 0.2065E+01,& - 0.2073E+01, 0.2081E+01, 0.2089E+01, 0.2097E+01,& - 0.2105E+01, 0.2113E+01, 0.2121E+01, 0.2130E+01,& - 0.2138E+01, 0.2146E+01, 0.2155E+01, 0.2163E+01,& - 0.2172E+01, 0.2181E+01, 0.2190E+01, 0.2199E+01,& - 0.2208E+01, 0.2217E+01, 0.2226E+01, 0.2235E+01,& - 0.2244E+01, 0.2254E+01, 0.2263E+01, 0.2273E+01,& - 0.2283E+01, 0.2293E+01, 0.2302E+01, 0.2312E+01,& - 0.2323E+01, 0.2333E+01, 0.2343E+01, 0.2354E+01,& - 0.2364E+01, 0.2375E+01, 0.2386E+01, 0.2397E+01,& - 0.2408E+01, 0.2419E+01, 0.2430E+01, 0.2441E+01,& - 0.2453E+01, 0.2465E+01, 0.2477E+01, 0.2489E+01,& - 0.2501E+01, 0.2513E+01, 0.2525E+01, 0.2538E+01,& - 0.2551E+01, 0.2564E+01, 0.2577E+01, 0.2590E+01,& - 0.2604E+01, 0.2617E+01, 0.2631E+01, 0.2645E+01,& - 0.2660E+01, 0.2674E+01, 0.2689E+01, 0.2704E+01,& - 0.2719E+01, 0.2734E+01, 0.2750E+01, 0.2766E+01,& - 0.2782E+01, 0.2799E+01, 0.2815E+01, 0.2833E+01,& - 0.2850E+01, 0.2868E+01, 0.2886E+01, 0.2904E+01,& - 0.2923E+01, 0.2942E+01, 0.2961E+01, 0.2981E+01,& - 0.3001E+01, 0.3022E+01, 0.3043E+01, 0.3065E+01,& - 0.3087E+01, 0.3110E+01, 0.3133E+01, 0.3157E+01,& - 0.3181E+01, 0.3206E+01, 0.3232E+01, 0.3258E+01,& - 0.3285E+01, 0.3313E+01, 0.3342E+01, 0.3371E+01,& - 0.3402E+01, 0.3433E+01, 0.3466E+01, 0.3500E+01,& - 0.3535E+01, 0.3571E+01, 0.3609E+01, 0.3648E+01,& - 0.3689E+01, 0.3732E+01, 0.3776E+01, 0.3823E+01,& - 0.3873E+01, 0.3924E+01, 0.3979E+01, 0.4038E+01,& - 0.4100E+01, 0.4166E+01, 0.4237E+01, 0.4314E+01,& - 0.4397E+01, 0.4489E+01, 0.4590E+01, 0.4703E+01,& - 0.4831E+01, 0.4979E+01, 0.5154E+01, 0.5367E+01,& - 0.1000E-04, 0.9923E-03, 0.2003E-02, 0.3005E-02/) - xcw(:, 37) = (/& - 0.1000E-04, 0.9923E-03, 0.2003E-02, 0.3005E-02,& - 0.4006E-02, 0.5017E-02, 0.6018E-02, 0.7029E-02,& - 0.8040E-02, 0.9041E-02, 0.1005E-01, 0.1106E-01,& - 0.1208E-01, 0.1309E-01, 0.1411E-01, 0.1513E-01,& - 0.1614E-01, 0.1716E-01, 0.1818E-01, 0.1920E-01,& - 0.2022E-01, 0.2124E-01, 0.2226E-01, 0.2329E-01,& - 0.2431E-01, 0.2534E-01, 0.2637E-01, 0.2739E-01,& - 0.2842E-01, 0.2945E-01, 0.3049E-01, 0.3152E-01,& - 0.3255E-01, 0.3359E-01, 0.3462E-01, 0.3566E-01,& - 0.3670E-01, 0.3774E-01, 0.3878E-01, 0.3982E-01,& - 0.4086E-01, 0.4190E-01, 0.4294E-01, 0.4399E-01,& - 0.4504E-01, 0.4608E-01, 0.4713E-01, 0.4819E-01,& - 0.4924E-01, 0.5029E-01, 0.5134E-01, 0.5240E-01,& - 0.5345E-01, 0.5450E-01, 0.5556E-01, 0.5662E-01,& - 0.5769E-01, 0.5875E-01, 0.5981E-01, 0.6087E-01,& - 0.6193E-01, 0.6300E-01, 0.6407E-01, 0.6514E-01,& - 0.6620E-01, 0.6727E-01, 0.6834E-01, 0.6942E-01,& - 0.7049E-01, 0.7156E-01, 0.7264E-01, 0.7372E-01,& - 0.7480E-01, 0.7587E-01, 0.7695E-01, 0.7804E-01,& - 0.7912E-01, 0.8020E-01, 0.8129E-01, 0.8238E-01,& - 0.8347E-01, 0.8455E-01, 0.8564E-01, 0.8674E-01,& - 0.8782E-01, 0.8892E-01, 0.9002E-01, 0.9111E-01,& - 0.9221E-01, 0.9331E-01, 0.9440E-01, 0.9550E-01,& - 0.9661E-01, 0.9771E-01, 0.9881E-01, 0.9992E-01,& - 0.1010E+00, 0.1021E+00, 0.1032E+00, 0.1044E+00,& - 0.1055E+00, 0.1066E+00, 0.1077E+00, 0.1088E+00,& - 0.1099E+00, 0.1110E+00, 0.1122E+00, 0.1133E+00,& - 0.1144E+00, 0.1155E+00, 0.1167E+00, 0.1178E+00,& - 0.1189E+00, 0.1200E+00, 0.1212E+00, 0.1223E+00,& - 0.1234E+00, 0.1246E+00, 0.1257E+00, 0.1268E+00,& - 0.1280E+00, 0.1291E+00, 0.1302E+00, 0.1314E+00,& - 0.1325E+00, 0.1337E+00, 0.1348E+00, 0.1360E+00,& - 0.1371E+00, 0.1383E+00, 0.1394E+00, 0.1406E+00,& - 0.1417E+00, 0.1429E+00, 0.1440E+00, 0.1452E+00,& - 0.1463E+00, 0.1475E+00, 0.1487E+00, 0.1498E+00,& - 0.1510E+00, 0.1521E+00, 0.1533E+00, 0.1545E+00,& - 0.1556E+00, 0.1568E+00, 0.1580E+00, 0.1592E+00,& - 0.1603E+00, 0.1615E+00, 0.1627E+00, 0.1639E+00,& - 0.1651E+00, 0.1662E+00, 0.1674E+00, 0.1686E+00,& - 0.1698E+00, 0.1710E+00, 0.1722E+00, 0.1733E+00,& - 0.1745E+00, 0.1757E+00, 0.1769E+00, 0.1781E+00,& - 0.1793E+00, 0.1805E+00, 0.1817E+00, 0.1829E+00,& - 0.1841E+00, 0.1853E+00, 0.1865E+00, 0.1877E+00,& - 0.1889E+00, 0.1902E+00, 0.1914E+00, 0.1926E+00,& - 0.1938E+00, 0.1950E+00, 0.1962E+00, 0.1974E+00,& - 0.1987E+00, 0.1999E+00, 0.2011E+00, 0.2023E+00,& - 0.2036E+00, 0.2048E+00, 0.2060E+00, 0.2073E+00,& - 0.2085E+00, 0.2097E+00, 0.2110E+00, 0.2122E+00,& - 0.2134E+00, 0.2147E+00, 0.2159E+00, 0.2172E+00,& - 0.2184E+00, 0.2196E+00, 0.2209E+00, 0.2221E+00,& - 0.2234E+00, 0.2246E+00, 0.2259E+00, 0.2271E+00,& - 0.2284E+00, 0.2297E+00, 0.2309E+00, 0.2322E+00,& - 0.2335E+00, 0.2347E+00, 0.2360E+00, 0.2373E+00,& - 0.2385E+00, 0.2398E+00, 0.2411E+00, 0.2423E+00,& - 0.2436E+00, 0.2449E+00, 0.2462E+00, 0.2475E+00,& - 0.2487E+00, 0.2500E+00, 0.2513E+00, 0.2526E+00,& - 0.2539E+00, 0.2552E+00, 0.2565E+00, 0.2578E+00,& - 0.2591E+00, 0.2604E+00, 0.2617E+00, 0.2630E+00,& - 0.2643E+00, 0.2656E+00, 0.2669E+00, 0.2682E+00,& - 0.2695E+00, 0.2708E+00, 0.2721E+00, 0.2734E+00,& - 0.2747E+00, 0.2761E+00, 0.2774E+00, 0.2787E+00,& - 0.2800E+00, 0.2814E+00, 0.2827E+00, 0.2840E+00,& - 0.2853E+00, 0.2867E+00, 0.2880E+00, 0.2893E+00,& - 0.2907E+00, 0.2920E+00, 0.2934E+00, 0.2947E+00,& - 0.2960E+00, 0.2974E+00, 0.2987E+00, 0.3001E+00,& - 0.3015E+00, 0.3028E+00, 0.3042E+00, 0.3055E+00,& - 0.3069E+00, 0.3082E+00, 0.3096E+00, 0.3110E+00,& - 0.3123E+00, 0.3137E+00, 0.3151E+00, 0.3164E+00,& - 0.3178E+00, 0.3192E+00, 0.3206E+00, 0.3220E+00,& - 0.3233E+00, 0.3247E+00, 0.3261E+00, 0.3275E+00,& - 0.3289E+00, 0.3303E+00, 0.3317E+00, 0.3331E+00,& - 0.3345E+00, 0.3359E+00, 0.3373E+00, 0.3387E+00,& - 0.3401E+00, 0.3415E+00, 0.3429E+00, 0.3443E+00,& - 0.3457E+00, 0.3471E+00, 0.3485E+00, 0.3500E+00,& - 0.3514E+00, 0.3528E+00, 0.3542E+00, 0.3557E+00,& - 0.3571E+00, 0.3585E+00, 0.3600E+00, 0.3614E+00,& - 0.3628E+00, 0.3643E+00, 0.3657E+00, 0.3672E+00,& - 0.3686E+00, 0.3701E+00, 0.3715E+00, 0.3730E+00,& - 0.3744E+00, 0.3759E+00, 0.3773E+00, 0.3788E+00,& - 0.3803E+00, 0.3817E+00, 0.3832E+00, 0.3847E+00,& - 0.3861E+00, 0.3876E+00, 0.3891E+00, 0.3906E+00,& - 0.3920E+00, 0.3935E+00, 0.3950E+00, 0.3965E+00,& - 0.3980E+00, 0.3995E+00, 0.4010E+00, 0.4025E+00,& - 0.4040E+00, 0.4055E+00, 0.4070E+00, 0.4085E+00,& - 0.4100E+00, 0.4115E+00, 0.4130E+00, 0.4145E+00,& - 0.4160E+00, 0.4175E+00, 0.4191E+00, 0.4206E+00,& - 0.4221E+00, 0.4236E+00, 0.4252E+00, 0.4267E+00,& - 0.4282E+00, 0.4298E+00, 0.4313E+00, 0.4329E+00,& - 0.4344E+00, 0.4360E+00, 0.4375E+00, 0.4391E+00,& - 0.4406E+00, 0.4422E+00, 0.4437E+00, 0.4453E+00,& - 0.4468E+00, 0.4484E+00, 0.4500E+00, 0.4516E+00,& - 0.4531E+00, 0.4547E+00, 0.4563E+00, 0.4579E+00,& - 0.4594E+00, 0.4610E+00, 0.4626E+00, 0.4642E+00,& - 0.4658E+00, 0.4674E+00, 0.4690E+00, 0.4706E+00,& - 0.4722E+00, 0.4738E+00, 0.4754E+00, 0.4770E+00,& - 0.4786E+00, 0.4803E+00, 0.4819E+00, 0.4835E+00,& - 0.4851E+00, 0.4868E+00, 0.4884E+00, 0.4900E+00,& - 0.4917E+00, 0.4933E+00, 0.4949E+00, 0.4966E+00,& - 0.4982E+00, 0.4999E+00, 0.5015E+00, 0.5032E+00,& - 0.5048E+00, 0.5065E+00, 0.5082E+00, 0.5098E+00,& - 0.5115E+00, 0.5132E+00, 0.5148E+00, 0.5165E+00,& - 0.5182E+00, 0.5199E+00, 0.5216E+00, 0.5232E+00,& - 0.5249E+00, 0.5266E+00, 0.5283E+00, 0.5300E+00,& - 0.5317E+00, 0.5334E+00, 0.5351E+00, 0.5369E+00,& - 0.5386E+00, 0.5403E+00, 0.5420E+00, 0.5437E+00,& - 0.5454E+00, 0.5472E+00, 0.5489E+00, 0.5506E+00,& - 0.5524E+00, 0.5541E+00, 0.5559E+00, 0.5576E+00,& - 0.5594E+00, 0.5611E+00, 0.5629E+00, 0.5646E+00,& - 0.5664E+00, 0.5682E+00, 0.5699E+00, 0.5717E+00,& - 0.5735E+00, 0.5752E+00, 0.5770E+00, 0.5788E+00,& - 0.5806E+00, 0.5824E+00, 0.5842E+00, 0.5860E+00,& - 0.5878E+00, 0.5896E+00, 0.5914E+00, 0.5932E+00,& - 0.5950E+00, 0.5968E+00, 0.5986E+00, 0.6005E+00,& - 0.6023E+00, 0.6041E+00, 0.6060E+00, 0.6078E+00,& - 0.6096E+00, 0.6115E+00, 0.6133E+00, 0.6152E+00,& - 0.6170E+00, 0.6189E+00, 0.6208E+00, 0.6226E+00,& - 0.6245E+00, 0.6264E+00, 0.6282E+00, 0.6301E+00,& - 0.6320E+00, 0.6339E+00, 0.6358E+00, 0.6377E+00,& - 0.6396E+00, 0.6415E+00, 0.6433E+00, 0.6453E+00,& - 0.6472E+00, 0.6491E+00, 0.6510E+00, 0.6529E+00,& - 0.6548E+00, 0.6568E+00, 0.6587E+00, 0.6606E+00,& - 0.6626E+00, 0.6645E+00, 0.6665E+00, 0.6684E+00,& - 0.6704E+00, 0.6723E+00, 0.6743E+00, 0.6763E+00,& - 0.6782E+00, 0.6802E+00, 0.6822E+00, 0.6842E+00,& - 0.6862E+00, 0.6882E+00, 0.6901E+00, 0.6921E+00,& - 0.6941E+00, 0.6962E+00, 0.6982E+00, 0.7002E+00,& - 0.7022E+00, 0.7042E+00, 0.7062E+00, 0.7083E+00,& - 0.7103E+00, 0.7123E+00, 0.7144E+00, 0.7164E+00,& - 0.7185E+00, 0.7205E+00, 0.7226E+00, 0.7247E+00,& - 0.7267E+00, 0.7288E+00, 0.7309E+00, 0.7330E+00,& - 0.7351E+00, 0.7371E+00, 0.7392E+00, 0.7413E+00,& - 0.7434E+00, 0.7455E+00, 0.7477E+00, 0.7498E+00,& - 0.7519E+00, 0.7540E+00, 0.7561E+00, 0.7583E+00,& - 0.7604E+00, 0.7626E+00, 0.7647E+00, 0.7669E+00,& - 0.7690E+00, 0.7712E+00, 0.7734E+00, 0.7755E+00,& - 0.7777E+00, 0.7799E+00, 0.7821E+00, 0.7843E+00,& - 0.7865E+00, 0.7887E+00, 0.7909E+00, 0.7931E+00,& - 0.7953E+00, 0.7975E+00, 0.7997E+00, 0.8020E+00,& - 0.8042E+00, 0.8064E+00, 0.8087E+00, 0.8109E+00,& - 0.8132E+00, 0.8154E+00, 0.8177E+00, 0.8200E+00,& - 0.8222E+00, 0.8245E+00, 0.8268E+00, 0.8291E+00,& - 0.8314E+00, 0.8337E+00, 0.8360E+00, 0.8383E+00,& - 0.8406E+00, 0.8430E+00, 0.8453E+00, 0.8476E+00,& - 0.8500E+00, 0.8523E+00, 0.8547E+00, 0.8570E+00,& - 0.8594E+00, 0.8617E+00, 0.8641E+00, 0.8665E+00,& - 0.8689E+00, 0.8713E+00, 0.8737E+00, 0.8761E+00,& - 0.8785E+00, 0.8809E+00, 0.8833E+00, 0.8857E+00,& - 0.8882E+00, 0.8906E+00, 0.8930E+00, 0.8955E+00,& - 0.8979E+00, 0.9004E+00, 0.9029E+00, 0.9053E+00,& - 0.9078E+00, 0.9103E+00, 0.9128E+00, 0.9153E+00,& - 0.9178E+00, 0.9203E+00, 0.9228E+00, 0.9253E+00,& - 0.9279E+00, 0.9304E+00, 0.9329E+00, 0.9355E+00,& - 0.9380E+00, 0.9406E+00, 0.9432E+00, 0.9457E+00,& - 0.9483E+00, 0.9509E+00, 0.9535E+00, 0.9561E+00,& - 0.9587E+00, 0.9613E+00, 0.9640E+00, 0.9666E+00,& - 0.9692E+00, 0.9719E+00, 0.9745E+00, 0.9772E+00,& - 0.9798E+00, 0.9825E+00, 0.9852E+00, 0.9879E+00,& - 0.9906E+00, 0.9933E+00, 0.9960E+00, 0.9987E+00,& - 0.1001E+01, 0.1004E+01, 0.1007E+01, 0.1010E+01,& - 0.1012E+01, 0.1015E+01, 0.1018E+01, 0.1021E+01,& - 0.1023E+01, 0.1026E+01, 0.1029E+01, 0.1032E+01,& - 0.1035E+01, 0.1037E+01, 0.1040E+01, 0.1043E+01,& - 0.1046E+01, 0.1049E+01, 0.1052E+01, 0.1055E+01,& - 0.1057E+01, 0.1060E+01, 0.1063E+01, 0.1066E+01,& - 0.1069E+01, 0.1072E+01, 0.1075E+01, 0.1078E+01,& - 0.1081E+01, 0.1084E+01, 0.1087E+01, 0.1090E+01,& - 0.1093E+01, 0.1096E+01, 0.1099E+01, 0.1102E+01,& - 0.1105E+01, 0.1108E+01, 0.1111E+01, 0.1114E+01,& - 0.1117E+01, 0.1120E+01, 0.1123E+01, 0.1126E+01,& - 0.1129E+01, 0.1132E+01, 0.1135E+01, 0.1138E+01,& - 0.1142E+01, 0.1145E+01, 0.1148E+01, 0.1151E+01,& - 0.1154E+01, 0.1157E+01, 0.1161E+01, 0.1164E+01,& - 0.1167E+01, 0.1170E+01, 0.1173E+01, 0.1177E+01,& - 0.1180E+01, 0.1183E+01, 0.1186E+01, 0.1190E+01,& - 0.1193E+01, 0.1196E+01, 0.1200E+01, 0.1203E+01,& - 0.1206E+01, 0.1210E+01, 0.1213E+01, 0.1216E+01,& - 0.1220E+01, 0.1223E+01, 0.1227E+01, 0.1230E+01,& - 0.1233E+01, 0.1237E+01, 0.1240E+01, 0.1244E+01,& - 0.1247E+01, 0.1251E+01, 0.1254E+01, 0.1258E+01,& - 0.1261E+01, 0.1265E+01, 0.1268E+01, 0.1272E+01,& - 0.1276E+01, 0.1279E+01, 0.1283E+01, 0.1286E+01,& - 0.1290E+01, 0.1294E+01, 0.1297E+01, 0.1301E+01,& - 0.1305E+01, 0.1308E+01, 0.1312E+01, 0.1316E+01,& - 0.1320E+01, 0.1323E+01, 0.1327E+01, 0.1331E+01,& - 0.1335E+01, 0.1338E+01, 0.1342E+01, 0.1346E+01,& - 0.1350E+01, 0.1354E+01, 0.1358E+01, 0.1362E+01,& - 0.1365E+01, 0.1369E+01, 0.1373E+01, 0.1377E+01,& - 0.1381E+01, 0.1385E+01, 0.1389E+01, 0.1393E+01,& - 0.1397E+01, 0.1401E+01, 0.1405E+01, 0.1410E+01,& - 0.1414E+01, 0.1418E+01, 0.1422E+01, 0.1426E+01,& - 0.1430E+01, 0.1434E+01, 0.1439E+01, 0.1443E+01,& - 0.1447E+01, 0.1451E+01, 0.1456E+01, 0.1460E+01,& - 0.1464E+01, 0.1469E+01, 0.1473E+01, 0.1477E+01,& - 0.1482E+01, 0.1486E+01, 0.1491E+01, 0.1495E+01,& - 0.1500E+01, 0.1504E+01, 0.1509E+01, 0.1513E+01,& - 0.1518E+01, 0.1522E+01, 0.1527E+01, 0.1531E+01,& - 0.1536E+01, 0.1541E+01, 0.1545E+01, 0.1550E+01,& - 0.1555E+01, 0.1560E+01, 0.1564E+01, 0.1569E+01,& - 0.1574E+01, 0.1579E+01, 0.1584E+01, 0.1589E+01,& - 0.1594E+01, 0.1598E+01, 0.1603E+01, 0.1608E+01,& - 0.1613E+01, 0.1618E+01, 0.1624E+01, 0.1629E+01,& - 0.1634E+01, 0.1639E+01, 0.1644E+01, 0.1649E+01,& - 0.1654E+01, 0.1660E+01, 0.1665E+01, 0.1670E+01,& - 0.1676E+01, 0.1681E+01, 0.1686E+01, 0.1692E+01,& - 0.1697E+01, 0.1703E+01, 0.1708E+01, 0.1714E+01,& - 0.1719E+01, 0.1725E+01, 0.1731E+01, 0.1736E+01,& - 0.1742E+01, 0.1748E+01, 0.1753E+01, 0.1759E+01,& - 0.1765E+01, 0.1771E+01, 0.1777E+01, 0.1783E+01,& - 0.1789E+01, 0.1795E+01, 0.1801E+01, 0.1807E+01,& - 0.1813E+01, 0.1819E+01, 0.1825E+01, 0.1832E+01,& - 0.1838E+01, 0.1844E+01, 0.1851E+01, 0.1857E+01,& - 0.1863E+01, 0.1870E+01, 0.1876E+01, 0.1883E+01,& - 0.1889E+01, 0.1896E+01, 0.1903E+01, 0.1910E+01,& - 0.1916E+01, 0.1923E+01, 0.1930E+01, 0.1937E+01,& - 0.1944E+01, 0.1951E+01, 0.1958E+01, 0.1965E+01,& - 0.1972E+01, 0.1979E+01, 0.1987E+01, 0.1994E+01,& - 0.2001E+01, 0.2009E+01, 0.2016E+01, 0.2024E+01,& - 0.2032E+01, 0.2039E+01, 0.2047E+01, 0.2055E+01,& - 0.2063E+01, 0.2070E+01, 0.2078E+01, 0.2086E+01,& - 0.2095E+01, 0.2103E+01, 0.2111E+01, 0.2119E+01,& - 0.2128E+01, 0.2136E+01, 0.2145E+01, 0.2153E+01,& - 0.2162E+01, 0.2171E+01, 0.2179E+01, 0.2188E+01,& - 0.2197E+01, 0.2206E+01, 0.2215E+01, 0.2225E+01,& - 0.2234E+01, 0.2243E+01, 0.2253E+01, 0.2262E+01,& - 0.2272E+01, 0.2282E+01, 0.2292E+01, 0.2302E+01,& - 0.2312E+01, 0.2322E+01, 0.2332E+01, 0.2342E+01,& - 0.2353E+01, 0.2363E+01, 0.2374E+01, 0.2385E+01,& - 0.2396E+01, 0.2407E+01, 0.2418E+01, 0.2429E+01,& - 0.2441E+01, 0.2452E+01, 0.2464E+01, 0.2476E+01,& - 0.2488E+01, 0.2500E+01, 0.2512E+01, 0.2525E+01,& - 0.2537E+01, 0.2550E+01, 0.2563E+01, 0.2576E+01,& - 0.2589E+01, 0.2603E+01, 0.2616E+01, 0.2630E+01,& - 0.2644E+01, 0.2658E+01, 0.2673E+01, 0.2687E+01,& - 0.2702E+01, 0.2717E+01, 0.2732E+01, 0.2748E+01,& - 0.2764E+01, 0.2780E+01, 0.2796E+01, 0.2812E+01,& - 0.2829E+01, 0.2846E+01, 0.2864E+01, 0.2881E+01,& - 0.2899E+01, 0.2918E+01, 0.2936E+01, 0.2956E+01,& - 0.2975E+01, 0.2995E+01, 0.3015E+01, 0.3036E+01,& - 0.3057E+01, 0.3078E+01, 0.3100E+01, 0.3120E+01,& - 0.3146E+01, 0.3169E+01, 0.3193E+01, 0.3218E+01,& - 0.3243E+01, 0.3269E+01, 0.3296E+01, 0.3323E+01,& - 0.3351E+01, 0.3380E+01, 0.3410E+01, 0.3441E+01,& - 0.3473E+01, 0.3506E+01, 0.3539E+01, 0.3575E+01,& - 0.3611E+01, 0.3649E+01, 0.3688E+01, 0.3729E+01,& - 0.3771E+01, 0.3816E+01, 0.3862E+01, 0.3911E+01,& - 0.3962E+01, 0.4016E+01, 0.4074E+01, 0.4134E+01,& - 0.4199E+01, 0.4268E+01, 0.4342E+01, 0.4422E+01,& - 0.4509E+01, 0.4604E+01, 0.4710E+01, 0.4827E+01,& - 0.4961E+01, 0.5115E+01, 0.5297E+01, 0.5520E+01,& - 0.1000E-04, 0.7238E-03, 0.1496E-02, 0.2298E-02/) - xcw(:, 38) = (/& - 0.1000E-04, 0.7238E-03, 0.1496E-02, 0.2298E-02,& - 0.3119E-02, 0.3941E-02, 0.4782E-02, 0.5623E-02,& - 0.6473E-02, 0.7324E-02, 0.8185E-02, 0.9055E-02,& - 0.9925E-02, 0.1081E-01, 0.1169E-01, 0.1257E-01,& - 0.1345E-01, 0.1434E-01, 0.1524E-01, 0.1613E-01,& - 0.1704E-01, 0.1794E-01, 0.1885E-01, 0.1976E-01,& - 0.2067E-01, 0.2159E-01, 0.2251E-01, 0.2343E-01,& - 0.2436E-01, 0.2528E-01, 0.2621E-01, 0.2713E-01,& - 0.2807E-01, 0.2901E-01, 0.2995E-01, 0.3089E-01,& - 0.3183E-01, 0.3278E-01, 0.3372E-01, 0.3467E-01,& - 0.3562E-01, 0.3657E-01, 0.3753E-01, 0.3849E-01,& - 0.3945E-01, 0.4040E-01, 0.4137E-01, 0.4234E-01,& - 0.4331E-01, 0.4428E-01, 0.4524E-01, 0.4622E-01,& - 0.4719E-01, 0.4817E-01, 0.4915E-01, 0.5012E-01,& - 0.5111E-01, 0.5210E-01, 0.5308E-01, 0.5406E-01,& - 0.5506E-01, 0.5605E-01, 0.5705E-01, 0.5803E-01,& - 0.5903E-01, 0.6003E-01, 0.6104E-01, 0.6203E-01,& - 0.6304E-01, 0.6405E-01, 0.6505E-01, 0.6606E-01,& - 0.6707E-01, 0.6809E-01, 0.6909E-01, 0.7011E-01,& - 0.7113E-01, 0.7215E-01, 0.7317E-01, 0.7420E-01,& - 0.7521E-01, 0.7624E-01, 0.7727E-01, 0.7830E-01,& - 0.7933E-01, 0.8037E-01, 0.8139E-01, 0.8243E-01,& - 0.8347E-01, 0.8451E-01, 0.8555E-01, 0.8660E-01,& - 0.8764E-01, 0.8868E-01, 0.8973E-01, 0.9078E-01,& - 0.9183E-01, 0.9288E-01, 0.9394E-01, 0.9499E-01,& - 0.9605E-01, 0.9711E-01, 0.9816E-01, 0.9923E-01,& - 0.1003E+00, 0.1014E+00, 0.1024E+00, 0.1035E+00,& - 0.1046E+00, 0.1056E+00, 0.1067E+00, 0.1078E+00,& - 0.1089E+00, 0.1099E+00, 0.1110E+00, 0.1121E+00,& - 0.1132E+00, 0.1143E+00, 0.1154E+00, 0.1164E+00,& - 0.1175E+00, 0.1186E+00, 0.1197E+00, 0.1208E+00,& - 0.1219E+00, 0.1230E+00, 0.1241E+00, 0.1252E+00,& - 0.1263E+00, 0.1274E+00, 0.1285E+00, 0.1296E+00,& - 0.1307E+00, 0.1318E+00, 0.1330E+00, 0.1341E+00,& - 0.1352E+00, 0.1363E+00, 0.1374E+00, 0.1385E+00,& - 0.1397E+00, 0.1408E+00, 0.1419E+00, 0.1430E+00,& - 0.1442E+00, 0.1453E+00, 0.1464E+00, 0.1476E+00,& - 0.1487E+00, 0.1498E+00, 0.1510E+00, 0.1521E+00,& - 0.1533E+00, 0.1544E+00, 0.1555E+00, 0.1567E+00,& - 0.1578E+00, 0.1590E+00, 0.1601E+00, 0.1613E+00,& - 0.1624E+00, 0.1636E+00, 0.1648E+00, 0.1659E+00,& - 0.1671E+00, 0.1683E+00, 0.1694E+00, 0.1706E+00,& - 0.1717E+00, 0.1729E+00, 0.1741E+00, 0.1753E+00,& - 0.1764E+00, 0.1776E+00, 0.1788E+00, 0.1800E+00,& - 0.1812E+00, 0.1823E+00, 0.1835E+00, 0.1847E+00,& - 0.1859E+00, 0.1871E+00, 0.1883E+00, 0.1895E+00,& - 0.1907E+00, 0.1919E+00, 0.1931E+00, 0.1943E+00,& - 0.1955E+00, 0.1967E+00, 0.1979E+00, 0.1991E+00,& - 0.2003E+00, 0.2015E+00, 0.2027E+00, 0.2039E+00,& - 0.2052E+00, 0.2064E+00, 0.2076E+00, 0.2088E+00,& - 0.2100E+00, 0.2113E+00, 0.2125E+00, 0.2137E+00,& - 0.2150E+00, 0.2162E+00, 0.2174E+00, 0.2187E+00,& - 0.2199E+00, 0.2211E+00, 0.2224E+00, 0.2236E+00,& - 0.2249E+00, 0.2261E+00, 0.2274E+00, 0.2286E+00,& - 0.2299E+00, 0.2311E+00, 0.2324E+00, 0.2336E+00,& - 0.2349E+00, 0.2362E+00, 0.2374E+00, 0.2387E+00,& - 0.2399E+00, 0.2412E+00, 0.2425E+00, 0.2438E+00,& - 0.2450E+00, 0.2463E+00, 0.2476E+00, 0.2489E+00,& - 0.2501E+00, 0.2514E+00, 0.2527E+00, 0.2540E+00,& - 0.2553E+00, 0.2566E+00, 0.2579E+00, 0.2592E+00,& - 0.2605E+00, 0.2618E+00, 0.2631E+00, 0.2644E+00,& - 0.2657E+00, 0.2670E+00, 0.2683E+00, 0.2696E+00,& - 0.2709E+00, 0.2722E+00, 0.2736E+00, 0.2749E+00,& - 0.2762E+00, 0.2775E+00, 0.2788E+00, 0.2802E+00,& - 0.2815E+00, 0.2828E+00, 0.2842E+00, 0.2855E+00,& - 0.2868E+00, 0.2882E+00, 0.2895E+00, 0.2908E+00,& - 0.2922E+00, 0.2935E+00, 0.2949E+00, 0.2962E+00,& - 0.2976E+00, 0.2989E+00, 0.3003E+00, 0.3017E+00,& - 0.3030E+00, 0.3044E+00, 0.3057E+00, 0.3071E+00,& - 0.3085E+00, 0.3098E+00, 0.3112E+00, 0.3126E+00,& - 0.3140E+00, 0.3154E+00, 0.3167E+00, 0.3181E+00,& - 0.3195E+00, 0.3209E+00, 0.3223E+00, 0.3237E+00,& - 0.3251E+00, 0.3265E+00, 0.3279E+00, 0.3293E+00,& - 0.3307E+00, 0.3321E+00, 0.3335E+00, 0.3349E+00,& - 0.3363E+00, 0.3377E+00, 0.3391E+00, 0.3405E+00,& - 0.3420E+00, 0.3434E+00, 0.3448E+00, 0.3462E+00,& - 0.3477E+00, 0.3491E+00, 0.3505E+00, 0.3520E+00,& - 0.3534E+00, 0.3548E+00, 0.3563E+00, 0.3577E+00,& - 0.3592E+00, 0.3606E+00, 0.3621E+00, 0.3635E+00,& - 0.3650E+00, 0.3665E+00, 0.3679E+00, 0.3694E+00,& - 0.3708E+00, 0.3723E+00, 0.3738E+00, 0.3752E+00,& - 0.3767E+00, 0.3782E+00, 0.3797E+00, 0.3812E+00,& - 0.3826E+00, 0.3841E+00, 0.3856E+00, 0.3871E+00,& - 0.3886E+00, 0.3901E+00, 0.3916E+00, 0.3931E+00,& - 0.3946E+00, 0.3961E+00, 0.3976E+00, 0.3991E+00,& - 0.4006E+00, 0.4022E+00, 0.4037E+00, 0.4052E+00,& - 0.4067E+00, 0.4082E+00, 0.4098E+00, 0.4113E+00,& - 0.4128E+00, 0.4144E+00, 0.4159E+00, 0.4175E+00,& - 0.4190E+00, 0.4205E+00, 0.4221E+00, 0.4236E+00,& - 0.4252E+00, 0.4268E+00, 0.4283E+00, 0.4299E+00,& - 0.4314E+00, 0.4330E+00, 0.4346E+00, 0.4361E+00,& - 0.4377E+00, 0.4393E+00, 0.4409E+00, 0.4425E+00,& - 0.4440E+00, 0.4456E+00, 0.4472E+00, 0.4488E+00,& - 0.4504E+00, 0.4520E+00, 0.4536E+00, 0.4552E+00,& - 0.4568E+00, 0.4584E+00, 0.4600E+00, 0.4617E+00,& - 0.4633E+00, 0.4649E+00, 0.4665E+00, 0.4681E+00,& - 0.4698E+00, 0.4714E+00, 0.4730E+00, 0.4747E+00,& - 0.4763E+00, 0.4780E+00, 0.4796E+00, 0.4812E+00,& - 0.4829E+00, 0.4845E+00, 0.4862E+00, 0.4879E+00,& - 0.4895E+00, 0.4912E+00, 0.4929E+00, 0.4945E+00,& - 0.4962E+00, 0.4979E+00, 0.4996E+00, 0.5012E+00,& - 0.5029E+00, 0.5046E+00, 0.5063E+00, 0.5080E+00,& - 0.5097E+00, 0.5114E+00, 0.5131E+00, 0.5148E+00,& - 0.5165E+00, 0.5183E+00, 0.5200E+00, 0.5217E+00,& - 0.5234E+00, 0.5251E+00, 0.5269E+00, 0.5286E+00,& - 0.5303E+00, 0.5321E+00, 0.5338E+00, 0.5355E+00,& - 0.5373E+00, 0.5390E+00, 0.5408E+00, 0.5426E+00,& - 0.5443E+00, 0.5461E+00, 0.5478E+00, 0.5496E+00,& - 0.5514E+00, 0.5532E+00, 0.5550E+00, 0.5567E+00,& - 0.5585E+00, 0.5603E+00, 0.5621E+00, 0.5639E+00,& - 0.5657E+00, 0.5675E+00, 0.5693E+00, 0.5711E+00,& - 0.5729E+00, 0.5748E+00, 0.5766E+00, 0.5784E+00,& - 0.5802E+00, 0.5821E+00, 0.5839E+00, 0.5857E+00,& - 0.5876E+00, 0.5894E+00, 0.5913E+00, 0.5931E+00,& - 0.5950E+00, 0.5968E+00, 0.5987E+00, 0.6006E+00,& - 0.6024E+00, 0.6043E+00, 0.6062E+00, 0.6081E+00,& - 0.6099E+00, 0.6118E+00, 0.6137E+00, 0.6156E+00,& - 0.6175E+00, 0.6194E+00, 0.6213E+00, 0.6232E+00,& - 0.6252E+00, 0.6271E+00, 0.6290E+00, 0.6309E+00,& - 0.6329E+00, 0.6348E+00, 0.6367E+00, 0.6387E+00,& - 0.6406E+00, 0.6426E+00, 0.6445E+00, 0.6465E+00,& - 0.6484E+00, 0.6504E+00, 0.6523E+00, 0.6543E+00,& - 0.6563E+00, 0.6583E+00, 0.6603E+00, 0.6623E+00,& - 0.6642E+00, 0.6662E+00, 0.6682E+00, 0.6702E+00,& - 0.6723E+00, 0.6743E+00, 0.6763E+00, 0.6783E+00,& - 0.6803E+00, 0.6824E+00, 0.6844E+00, 0.6864E+00,& - 0.6885E+00, 0.6905E+00, 0.6926E+00, 0.6946E+00,& - 0.6967E+00, 0.6987E+00, 0.7008E+00, 0.7029E+00,& - 0.7050E+00, 0.7070E+00, 0.7091E+00, 0.7112E+00,& - 0.7133E+00, 0.7154E+00, 0.7175E+00, 0.7196E+00,& - 0.7217E+00, 0.7239E+00, 0.7260E+00, 0.7281E+00,& - 0.7302E+00, 0.7324E+00, 0.7345E+00, 0.7367E+00,& - 0.7388E+00, 0.7410E+00, 0.7431E+00, 0.7453E+00,& - 0.7475E+00, 0.7496E+00, 0.7518E+00, 0.7540E+00,& - 0.7562E+00, 0.7584E+00, 0.7606E+00, 0.7628E+00,& - 0.7650E+00, 0.7672E+00, 0.7694E+00, 0.7716E+00,& - 0.7739E+00, 0.7761E+00, 0.7783E+00, 0.7806E+00,& - 0.7828E+00, 0.7851E+00, 0.7873E+00, 0.7896E+00,& - 0.7919E+00, 0.7941E+00, 0.7964E+00, 0.7987E+00,& - 0.8010E+00, 0.8033E+00, 0.8056E+00, 0.8079E+00,& - 0.8102E+00, 0.8125E+00, 0.8148E+00, 0.8172E+00,& - 0.8195E+00, 0.8218E+00, 0.8242E+00, 0.8265E+00,& - 0.8289E+00, 0.8312E+00, 0.8336E+00, 0.8360E+00,& - 0.8384E+00, 0.8407E+00, 0.8431E+00, 0.8455E+00,& - 0.8479E+00, 0.8503E+00, 0.8527E+00, 0.8552E+00,& - 0.8576E+00, 0.8600E+00, 0.8625E+00, 0.8649E+00,& - 0.8673E+00, 0.8698E+00, 0.8723E+00, 0.8747E+00,& - 0.8772E+00, 0.8797E+00, 0.8822E+00, 0.8846E+00,& - 0.8872E+00, 0.8897E+00, 0.8922E+00, 0.8947E+00,& - 0.8972E+00, 0.8997E+00, 0.9023E+00, 0.9048E+00,& - 0.9074E+00, 0.9099E+00, 0.9125E+00, 0.9150E+00,& - 0.9176E+00, 0.9202E+00, 0.9228E+00, 0.9254E+00,& - 0.9280E+00, 0.9306E+00, 0.9332E+00, 0.9358E+00,& - 0.9385E+00, 0.9411E+00, 0.9437E+00, 0.9464E+00,& - 0.9490E+00, 0.9517E+00, 0.9544E+00, 0.9571E+00,& - 0.9597E+00, 0.9624E+00, 0.9651E+00, 0.9678E+00,& - 0.9706E+00, 0.9733E+00, 0.9760E+00, 0.9787E+00,& - 0.9815E+00, 0.9842E+00, 0.9870E+00, 0.9898E+00,& - 0.9925E+00, 0.9953E+00, 0.9981E+00, 0.1001E+01,& - 0.1004E+01, 0.1007E+01, 0.1009E+01, 0.1012E+01,& - 0.1015E+01, 0.1018E+01, 0.1021E+01, 0.1024E+01,& - 0.1026E+01, 0.1029E+01, 0.1032E+01, 0.1035E+01,& - 0.1038E+01, 0.1041E+01, 0.1044E+01, 0.1047E+01,& - 0.1050E+01, 0.1053E+01, 0.1056E+01, 0.1059E+01,& - 0.1062E+01, 0.1065E+01, 0.1068E+01, 0.1071E+01,& - 0.1074E+01, 0.1077E+01, 0.1080E+01, 0.1083E+01,& - 0.1086E+01, 0.1089E+01, 0.1092E+01, 0.1095E+01,& - 0.1098E+01, 0.1101E+01, 0.1104E+01, 0.1107E+01,& - 0.1110E+01, 0.1114E+01, 0.1117E+01, 0.1120E+01,& - 0.1123E+01, 0.1126E+01, 0.1129E+01, 0.1133E+01,& - 0.1136E+01, 0.1139E+01, 0.1142E+01, 0.1145E+01,& - 0.1149E+01, 0.1152E+01, 0.1155E+01, 0.1158E+01,& - 0.1162E+01, 0.1165E+01, 0.1168E+01, 0.1172E+01,& - 0.1175E+01, 0.1178E+01, 0.1182E+01, 0.1185E+01,& - 0.1188E+01, 0.1192E+01, 0.1195E+01, 0.1199E+01,& - 0.1202E+01, 0.1205E+01, 0.1209E+01, 0.1212E+01,& - 0.1216E+01, 0.1219E+01, 0.1223E+01, 0.1226E+01,& - 0.1230E+01, 0.1233E+01, 0.1237E+01, 0.1240E+01,& - 0.1244E+01, 0.1247E+01, 0.1251E+01, 0.1255E+01,& - 0.1258E+01, 0.1262E+01, 0.1266E+01, 0.1269E+01,& - 0.1273E+01, 0.1277E+01, 0.1280E+01, 0.1284E+01,& - 0.1288E+01, 0.1291E+01, 0.1295E+01, 0.1299E+01,& - 0.1303E+01, 0.1306E+01, 0.1310E+01, 0.1314E+01,& - 0.1318E+01, 0.1322E+01, 0.1326E+01, 0.1329E+01,& - 0.1333E+01, 0.1337E+01, 0.1341E+01, 0.1345E+01,& - 0.1349E+01, 0.1353E+01, 0.1357E+01, 0.1361E+01,& - 0.1365E+01, 0.1369E+01, 0.1373E+01, 0.1377E+01,& - 0.1381E+01, 0.1385E+01, 0.1390E+01, 0.1394E+01,& - 0.1398E+01, 0.1402E+01, 0.1406E+01, 0.1410E+01,& - 0.1415E+01, 0.1419E+01, 0.1423E+01, 0.1427E+01,& - 0.1432E+01, 0.1436E+01, 0.1440E+01, 0.1445E+01,& - 0.1449E+01, 0.1453E+01, 0.1458E+01, 0.1462E+01,& - 0.1467E+01, 0.1471E+01, 0.1475E+01, 0.1480E+01,& - 0.1484E+01, 0.1489E+01, 0.1494E+01, 0.1498E+01,& - 0.1503E+01, 0.1507E+01, 0.1512E+01, 0.1517E+01,& - 0.1521E+01, 0.1526E+01, 0.1531E+01, 0.1536E+01,& - 0.1540E+01, 0.1545E+01, 0.1550E+01, 0.1555E+01,& - 0.1560E+01, 0.1564E+01, 0.1569E+01, 0.1574E+01,& - 0.1579E+01, 0.1584E+01, 0.1589E+01, 0.1594E+01,& - 0.1599E+01, 0.1604E+01, 0.1610E+01, 0.1615E+01,& - 0.1620E+01, 0.1625E+01, 0.1630E+01, 0.1635E+01,& - 0.1641E+01, 0.1646E+01, 0.1651E+01, 0.1657E+01,& - 0.1662E+01, 0.1667E+01, 0.1673E+01, 0.1678E+01,& - 0.1684E+01, 0.1689E+01, 0.1695E+01, 0.1700E+01,& - 0.1706E+01, 0.1712E+01, 0.1717E+01, 0.1723E+01,& - 0.1729E+01, 0.1735E+01, 0.1740E+01, 0.1746E+01,& - 0.1752E+01, 0.1758E+01, 0.1764E+01, 0.1770E+01,& - 0.1776E+01, 0.1782E+01, 0.1788E+01, 0.1794E+01,& - 0.1800E+01, 0.1807E+01, 0.1813E+01, 0.1819E+01,& - 0.1825E+01, 0.1832E+01, 0.1838E+01, 0.1844E+01,& - 0.1851E+01, 0.1857E+01, 0.1864E+01, 0.1871E+01,& - 0.1877E+01, 0.1884E+01, 0.1891E+01, 0.1897E+01,& - 0.1904E+01, 0.1911E+01, 0.1918E+01, 0.1925E+01,& - 0.1932E+01, 0.1939E+01, 0.1946E+01, 0.1953E+01,& - 0.1960E+01, 0.1968E+01, 0.1975E+01, 0.1982E+01,& - 0.1990E+01, 0.1997E+01, 0.2005E+01, 0.2012E+01,& - 0.2020E+01, 0.2027E+01, 0.2035E+01, 0.2043E+01,& - 0.2051E+01, 0.2059E+01, 0.2067E+01, 0.2075E+01,& - 0.2083E+01, 0.2091E+01, 0.2099E+01, 0.2107E+01,& - 0.2116E+01, 0.2124E+01, 0.2133E+01, 0.2141E+01,& - 0.2150E+01, 0.2159E+01, 0.2167E+01, 0.2176E+01,& - 0.2185E+01, 0.2194E+01, 0.2203E+01, 0.2213E+01,& - 0.2222E+01, 0.2231E+01, 0.2241E+01, 0.2250E+01,& - 0.2260E+01, 0.2269E+01, 0.2279E+01, 0.2289E+01,& - 0.2299E+01, 0.2309E+01, 0.2319E+01, 0.2330E+01,& - 0.2340E+01, 0.2351E+01, 0.2361E+01, 0.2372E+01,& - 0.2383E+01, 0.2394E+01, 0.2405E+01, 0.2416E+01,& - 0.2427E+01, 0.2439E+01, 0.2450E+01, 0.2462E+01,& - 0.2474E+01, 0.2486E+01, 0.2498E+01, 0.2510E+01,& - 0.2522E+01, 0.2535E+01, 0.2548E+01, 0.2561E+01,& - 0.2574E+01, 0.2587E+01, 0.2600E+01, 0.2613E+01,& - 0.2627E+01, 0.2641E+01, 0.2655E+01, 0.2670E+01,& - 0.2684E+01, 0.2699E+01, 0.2714E+01, 0.2729E+01,& - 0.2744E+01, 0.2760E+01, 0.2776E+01, 0.2792E+01,& - 0.2808E+01, 0.2825E+01, 0.2841E+01, 0.2859E+01,& - 0.2876E+01, 0.2894E+01, 0.2912E+01, 0.2930E+01,& - 0.2949E+01, 0.2968E+01, 0.2987E+01, 0.3007E+01,& - 0.3027E+01, 0.3048E+01, 0.3069E+01, 0.3090E+01,& - 0.3112E+01, 0.3134E+01, 0.3157E+01, 0.3180E+01,& - 0.3204E+01, 0.3228E+01, 0.3253E+01, 0.3279E+01,& - 0.3305E+01, 0.3332E+01, 0.3360E+01, 0.3388E+01,& - 0.3418E+01, 0.3448E+01, 0.3479E+01, 0.3511E+01,& - 0.3544E+01, 0.3578E+01, 0.3613E+01, 0.3649E+01,& - 0.3687E+01, 0.3726E+01, 0.3767E+01, 0.3810E+01,& - 0.3854E+01, 0.3900E+01, 0.3948E+01, 0.3999E+01,& - 0.4053E+01, 0.4109E+01, 0.4168E+01, 0.4231E+01,& - 0.4298E+01, 0.4370E+01, 0.4447E+01, 0.4531E+01,& - 0.4621E+01, 0.4720E+01, 0.4830E+01, 0.4953E+01,& - 0.5092E+01, 0.5253E+01, 0.5443E+01, 0.5675E+01,& - 0.1000E-04, 0.5213E-03, 0.1113E-02, 0.1754E-02/) - xcw(:, 39) = (/& - 0.1000E-04, 0.5213E-03, 0.1113E-02, 0.1754E-02,& - 0.2406E-02, 0.3078E-02, 0.3770E-02, 0.4471E-02,& - 0.5183E-02, 0.5895E-02, 0.6627E-02, 0.7369E-02,& - 0.8111E-02, 0.8863E-02, 0.9624E-02, 0.1039E-01,& - 0.1116E-01, 0.1193E-01, 0.1271E-01, 0.1350E-01,& - 0.1430E-01, 0.1509E-01, 0.1589E-01, 0.1669E-01,& - 0.1750E-01, 0.1832E-01, 0.1913E-01, 0.1995E-01,& - 0.2077E-01, 0.2160E-01, 0.2244E-01, 0.2327E-01,& - 0.2411E-01, 0.2495E-01, 0.2580E-01, 0.2665E-01,& - 0.2750E-01, 0.2835E-01, 0.2921E-01, 0.3008E-01,& - 0.3094E-01, 0.3180E-01, 0.3267E-01, 0.3355E-01,& - 0.3442E-01, 0.3530E-01, 0.3618E-01, 0.3706E-01,& - 0.3795E-01, 0.3884E-01, 0.3973E-01, 0.4062E-01,& - 0.4153E-01, 0.4242E-01, 0.4332E-01, 0.4423E-01,& - 0.4513E-01, 0.4605E-01, 0.4696E-01, 0.4787E-01,& - 0.4878E-01, 0.4971E-01, 0.5063E-01, 0.5155E-01,& - 0.5247E-01, 0.5341E-01, 0.5434E-01, 0.5527E-01,& - 0.5620E-01, 0.5714E-01, 0.5808E-01, 0.5902E-01,& - 0.5996E-01, 0.6091E-01, 0.6186E-01, 0.6281E-01,& - 0.6376E-01, 0.6471E-01, 0.6568E-01, 0.6663E-01,& - 0.6759E-01, 0.6855E-01, 0.6953E-01, 0.7049E-01,& - 0.7146E-01, 0.7243E-01, 0.7341E-01, 0.7438E-01,& - 0.7536E-01, 0.7633E-01, 0.7732E-01, 0.7831E-01,& - 0.7929E-01, 0.8027E-01, 0.8127E-01, 0.8226E-01,& - 0.8325E-01, 0.8425E-01, 0.8525E-01, 0.8625E-01,& - 0.8725E-01, 0.8825E-01, 0.8926E-01, 0.9027E-01,& - 0.9128E-01, 0.9229E-01, 0.9331E-01, 0.9432E-01,& - 0.9534E-01, 0.9635E-01, 0.9738E-01, 0.9840E-01,& - 0.9943E-01, 0.1005E+00, 0.1015E+00, 0.1025E+00,& - 0.1036E+00, 0.1046E+00, 0.1056E+00, 0.1067E+00,& - 0.1077E+00, 0.1087E+00, 0.1098E+00, 0.1108E+00,& - 0.1119E+00, 0.1129E+00, 0.1140E+00, 0.1150E+00,& - 0.1161E+00, 0.1172E+00, 0.1182E+00, 0.1193E+00,& - 0.1203E+00, 0.1214E+00, 0.1225E+00, 0.1235E+00,& - 0.1246E+00, 0.1257E+00, 0.1268E+00, 0.1278E+00,& - 0.1289E+00, 0.1300E+00, 0.1311E+00, 0.1322E+00,& - 0.1333E+00, 0.1344E+00, 0.1354E+00, 0.1365E+00,& - 0.1376E+00, 0.1387E+00, 0.1398E+00, 0.1409E+00,& - 0.1420E+00, 0.1431E+00, 0.1442E+00, 0.1453E+00,& - 0.1465E+00, 0.1476E+00, 0.1487E+00, 0.1498E+00,& - 0.1509E+00, 0.1520E+00, 0.1531E+00, 0.1543E+00,& - 0.1554E+00, 0.1565E+00, 0.1577E+00, 0.1588E+00,& - 0.1599E+00, 0.1610E+00, 0.1622E+00, 0.1633E+00,& - 0.1645E+00, 0.1656E+00, 0.1668E+00, 0.1679E+00,& - 0.1690E+00, 0.1702E+00, 0.1713E+00, 0.1725E+00,& - 0.1737E+00, 0.1748E+00, 0.1760E+00, 0.1771E+00,& - 0.1783E+00, 0.1795E+00, 0.1806E+00, 0.1818E+00,& - 0.1830E+00, 0.1841E+00, 0.1853E+00, 0.1865E+00,& - 0.1877E+00, 0.1889E+00, 0.1900E+00, 0.1912E+00,& - 0.1924E+00, 0.1936E+00, 0.1948E+00, 0.1960E+00,& - 0.1972E+00, 0.1984E+00, 0.1996E+00, 0.2008E+00,& - 0.2020E+00, 0.2032E+00, 0.2044E+00, 0.2056E+00,& - 0.2068E+00, 0.2080E+00, 0.2092E+00, 0.2104E+00,& - 0.2117E+00, 0.2129E+00, 0.2141E+00, 0.2153E+00,& - 0.2166E+00, 0.2178E+00, 0.2190E+00, 0.2202E+00,& - 0.2215E+00, 0.2227E+00, 0.2239E+00, 0.2252E+00,& - 0.2264E+00, 0.2277E+00, 0.2289E+00, 0.2302E+00,& - 0.2314E+00, 0.2327E+00, 0.2339E+00, 0.2352E+00,& - 0.2365E+00, 0.2377E+00, 0.2390E+00, 0.2402E+00,& - 0.2415E+00, 0.2428E+00, 0.2441E+00, 0.2453E+00,& - 0.2466E+00, 0.2479E+00, 0.2492E+00, 0.2504E+00,& - 0.2517E+00, 0.2530E+00, 0.2543E+00, 0.2556E+00,& - 0.2569E+00, 0.2582E+00, 0.2595E+00, 0.2608E+00,& - 0.2621E+00, 0.2634E+00, 0.2647E+00, 0.2660E+00,& - 0.2673E+00, 0.2686E+00, 0.2699E+00, 0.2712E+00,& - 0.2726E+00, 0.2739E+00, 0.2752E+00, 0.2765E+00,& - 0.2778E+00, 0.2792E+00, 0.2805E+00, 0.2818E+00,& - 0.2832E+00, 0.2845E+00, 0.2858E+00, 0.2872E+00,& - 0.2885E+00, 0.2899E+00, 0.2912E+00, 0.2926E+00,& - 0.2939E+00, 0.2953E+00, 0.2967E+00, 0.2980E+00,& - 0.2994E+00, 0.3007E+00, 0.3021E+00, 0.3035E+00,& - 0.3048E+00, 0.3062E+00, 0.3076E+00, 0.3090E+00,& - 0.3103E+00, 0.3117E+00, 0.3131E+00, 0.3145E+00,& - 0.3159E+00, 0.3173E+00, 0.3187E+00, 0.3201E+00,& - 0.3215E+00, 0.3229E+00, 0.3243E+00, 0.3257E+00,& - 0.3271E+00, 0.3285E+00, 0.3299E+00, 0.3313E+00,& - 0.3328E+00, 0.3342E+00, 0.3356E+00, 0.3370E+00,& - 0.3385E+00, 0.3399E+00, 0.3413E+00, 0.3428E+00,& - 0.3442E+00, 0.3456E+00, 0.3471E+00, 0.3485E+00,& - 0.3500E+00, 0.3514E+00, 0.3529E+00, 0.3543E+00,& - 0.3558E+00, 0.3572E+00, 0.3587E+00, 0.3602E+00,& - 0.3616E+00, 0.3631E+00, 0.3646E+00, 0.3661E+00,& - 0.3675E+00, 0.3690E+00, 0.3705E+00, 0.3720E+00,& - 0.3735E+00, 0.3750E+00, 0.3764E+00, 0.3779E+00,& - 0.3794E+00, 0.3809E+00, 0.3824E+00, 0.3839E+00,& - 0.3855E+00, 0.3870E+00, 0.3885E+00, 0.3900E+00,& - 0.3915E+00, 0.3930E+00, 0.3946E+00, 0.3961E+00,& - 0.3976E+00, 0.3991E+00, 0.4007E+00, 0.4022E+00,& - 0.4037E+00, 0.4053E+00, 0.4068E+00, 0.4084E+00,& - 0.4099E+00, 0.4115E+00, 0.4131E+00, 0.4146E+00,& - 0.4162E+00, 0.4177E+00, 0.4193E+00, 0.4209E+00,& - 0.4224E+00, 0.4240E+00, 0.4256E+00, 0.4272E+00,& - 0.4288E+00, 0.4303E+00, 0.4319E+00, 0.4335E+00,& - 0.4351E+00, 0.4367E+00, 0.4383E+00, 0.4399E+00,& - 0.4415E+00, 0.4431E+00, 0.4448E+00, 0.4464E+00,& - 0.4480E+00, 0.4496E+00, 0.4512E+00, 0.4529E+00,& - 0.4545E+00, 0.4561E+00, 0.4578E+00, 0.4594E+00,& - 0.4610E+00, 0.4627E+00, 0.4643E+00, 0.4660E+00,& - 0.4676E+00, 0.4693E+00, 0.4710E+00, 0.4726E+00,& - 0.4743E+00, 0.4760E+00, 0.4776E+00, 0.4793E+00,& - 0.4810E+00, 0.4827E+00, 0.4844E+00, 0.4860E+00,& - 0.4877E+00, 0.4894E+00, 0.4911E+00, 0.4928E+00,& - 0.4945E+00, 0.4962E+00, 0.4979E+00, 0.4997E+00,& - 0.5014E+00, 0.5031E+00, 0.5048E+00, 0.5065E+00,& - 0.5083E+00, 0.5100E+00, 0.5117E+00, 0.5135E+00,& - 0.5152E+00, 0.5170E+00, 0.5187E+00, 0.5205E+00,& - 0.5222E+00, 0.5240E+00, 0.5257E+00, 0.5275E+00,& - 0.5293E+00, 0.5311E+00, 0.5328E+00, 0.5346E+00,& - 0.5364E+00, 0.5382E+00, 0.5400E+00, 0.5418E+00,& - 0.5436E+00, 0.5454E+00, 0.5472E+00, 0.5490E+00,& - 0.5508E+00, 0.5526E+00, 0.5544E+00, 0.5562E+00,& - 0.5581E+00, 0.5599E+00, 0.5617E+00, 0.5636E+00,& - 0.5654E+00, 0.5672E+00, 0.5691E+00, 0.5709E+00,& - 0.5728E+00, 0.5747E+00, 0.5765E+00, 0.5784E+00,& - 0.5802E+00, 0.5821E+00, 0.5840E+00, 0.5859E+00,& - 0.5878E+00, 0.5896E+00, 0.5915E+00, 0.5934E+00,& - 0.5953E+00, 0.5972E+00, 0.5991E+00, 0.6010E+00,& - 0.6030E+00, 0.6049E+00, 0.6068E+00, 0.6087E+00,& - 0.6107E+00, 0.6126E+00, 0.6145E+00, 0.6165E+00,& - 0.6184E+00, 0.6204E+00, 0.6223E+00, 0.6243E+00,& - 0.6262E+00, 0.6282E+00, 0.6302E+00, 0.6322E+00,& - 0.6341E+00, 0.6361E+00, 0.6381E+00, 0.6401E+00,& - 0.6421E+00, 0.6441E+00, 0.6461E+00, 0.6481E+00,& - 0.6501E+00, 0.6521E+00, 0.6542E+00, 0.6562E+00,& - 0.6582E+00, 0.6602E+00, 0.6623E+00, 0.6643E+00,& - 0.6664E+00, 0.6684E+00, 0.6705E+00, 0.6725E+00,& - 0.6746E+00, 0.6767E+00, 0.6787E+00, 0.6808E+00,& - 0.6829E+00, 0.6850E+00, 0.6871E+00, 0.6892E+00,& - 0.6913E+00, 0.6934E+00, 0.6955E+00, 0.6976E+00,& - 0.6997E+00, 0.7018E+00, 0.7040E+00, 0.7061E+00,& - 0.7083E+00, 0.7104E+00, 0.7125E+00, 0.7147E+00,& - 0.7168E+00, 0.7190E+00, 0.7212E+00, 0.7233E+00,& - 0.7255E+00, 0.7277E+00, 0.7299E+00, 0.7321E+00,& - 0.7343E+00, 0.7365E+00, 0.7387E+00, 0.7409E+00,& - 0.7431E+00, 0.7453E+00, 0.7476E+00, 0.7498E+00,& - 0.7520E+00, 0.7543E+00, 0.7565E+00, 0.7588E+00,& - 0.7610E+00, 0.7633E+00, 0.7656E+00, 0.7678E+00,& - 0.7701E+00, 0.7724E+00, 0.7747E+00, 0.7770E+00,& - 0.7793E+00, 0.7816E+00, 0.7839E+00, 0.7862E+00,& - 0.7885E+00, 0.7909E+00, 0.7932E+00, 0.7955E+00,& - 0.7979E+00, 0.8002E+00, 0.8026E+00, 0.8050E+00,& - 0.8073E+00, 0.8097E+00, 0.8121E+00, 0.8145E+00,& - 0.8168E+00, 0.8192E+00, 0.8216E+00, 0.8241E+00,& - 0.8265E+00, 0.8289E+00, 0.8313E+00, 0.8337E+00,& - 0.8362E+00, 0.8386E+00, 0.8411E+00, 0.8435E+00,& - 0.8460E+00, 0.8485E+00, 0.8509E+00, 0.8534E+00,& - 0.8559E+00, 0.8584E+00, 0.8609E+00, 0.8634E+00,& - 0.8659E+00, 0.8684E+00, 0.8710E+00, 0.8735E+00,& - 0.8760E+00, 0.8786E+00, 0.8811E+00, 0.8837E+00,& - 0.8863E+00, 0.8888E+00, 0.8914E+00, 0.8940E+00,& - 0.8966E+00, 0.8992E+00, 0.9018E+00, 0.9044E+00,& - 0.9070E+00, 0.9097E+00, 0.9123E+00, 0.9149E+00,& - 0.9176E+00, 0.9202E+00, 0.9229E+00, 0.9256E+00,& - 0.9282E+00, 0.9309E+00, 0.9336E+00, 0.9363E+00,& - 0.9390E+00, 0.9417E+00, 0.9444E+00, 0.9472E+00,& - 0.9499E+00, 0.9526E+00, 0.9554E+00, 0.9582E+00,& - 0.9609E+00, 0.9637E+00, 0.9665E+00, 0.9693E+00,& - 0.9721E+00, 0.9749E+00, 0.9777E+00, 0.9805E+00,& - 0.9833E+00, 0.9862E+00, 0.9889E+00, 0.9919E+00,& - 0.9947E+00, 0.9976E+00, 0.1000E+01, 0.1003E+01,& - 0.1006E+01, 0.1009E+01, 0.1012E+01, 0.1015E+01,& - 0.1018E+01, 0.1021E+01, 0.1024E+01, 0.1027E+01,& - 0.1030E+01, 0.1033E+01, 0.1036E+01, 0.1039E+01,& - 0.1042E+01, 0.1045E+01, 0.1048E+01, 0.1051E+01,& - 0.1054E+01, 0.1057E+01, 0.1060E+01, 0.1063E+01,& - 0.1066E+01, 0.1069E+01, 0.1072E+01, 0.1075E+01,& - 0.1078E+01, 0.1081E+01, 0.1085E+01, 0.1088E+01,& - 0.1091E+01, 0.1094E+01, 0.1097E+01, 0.1100E+01,& - 0.1104E+01, 0.1107E+01, 0.1110E+01, 0.1113E+01,& - 0.1116E+01, 0.1120E+01, 0.1123E+01, 0.1126E+01,& - 0.1129E+01, 0.1133E+01, 0.1136E+01, 0.1139E+01,& - 0.1143E+01, 0.1146E+01, 0.1149E+01, 0.1153E+01,& - 0.1156E+01, 0.1159E+01, 0.1163E+01, 0.1166E+01,& - 0.1169E+01, 0.1173E+01, 0.1176E+01, 0.1180E+01,& - 0.1183E+01, 0.1187E+01, 0.1190E+01, 0.1194E+01,& - 0.1197E+01, 0.1201E+01, 0.1204E+01, 0.1208E+01,& - 0.1211E+01, 0.1215E+01, 0.1218E+01, 0.1222E+01,& - 0.1226E+01, 0.1229E+01, 0.1233E+01, 0.1236E+01,& - 0.1240E+01, 0.1244E+01, 0.1247E+01, 0.1251E+01,& - 0.1255E+01, 0.1258E+01, 0.1262E+01, 0.1266E+01,& - 0.1270E+01, 0.1273E+01, 0.1277E+01, 0.1281E+01,& - 0.1285E+01, 0.1289E+01, 0.1292E+01, 0.1296E+01,& - 0.1300E+01, 0.1304E+01, 0.1308E+01, 0.1312E+01,& - 0.1316E+01, 0.1320E+01, 0.1324E+01, 0.1328E+01,& - 0.1332E+01, 0.1336E+01, 0.1340E+01, 0.1344E+01,& - 0.1348E+01, 0.1352E+01, 0.1356E+01, 0.1360E+01,& - 0.1364E+01, 0.1368E+01, 0.1372E+01, 0.1377E+01,& - 0.1381E+01, 0.1385E+01, 0.1389E+01, 0.1393E+01,& - 0.1398E+01, 0.1402E+01, 0.1406E+01, 0.1411E+01,& - 0.1415E+01, 0.1419E+01, 0.1424E+01, 0.1428E+01,& - 0.1432E+01, 0.1437E+01, 0.1441E+01, 0.1446E+01,& - 0.1450E+01, 0.1455E+01, 0.1459E+01, 0.1464E+01,& - 0.1468E+01, 0.1473E+01, 0.1477E+01, 0.1482E+01,& - 0.1487E+01, 0.1491E+01, 0.1496E+01, 0.1501E+01,& - 0.1505E+01, 0.1510E+01, 0.1515E+01, 0.1520E+01,& - 0.1524E+01, 0.1529E+01, 0.1534E+01, 0.1539E+01,& - 0.1544E+01, 0.1549E+01, 0.1554E+01, 0.1559E+01,& - 0.1564E+01, 0.1569E+01, 0.1574E+01, 0.1579E+01,& - 0.1584E+01, 0.1589E+01, 0.1594E+01, 0.1599E+01,& - 0.1605E+01, 0.1610E+01, 0.1615E+01, 0.1620E+01,& - 0.1626E+01, 0.1631E+01, 0.1636E+01, 0.1642E+01,& - 0.1647E+01, 0.1653E+01, 0.1658E+01, 0.1664E+01,& - 0.1669E+01, 0.1675E+01, 0.1680E+01, 0.1686E+01,& - 0.1691E+01, 0.1697E+01, 0.1703E+01, 0.1709E+01,& - 0.1714E+01, 0.1720E+01, 0.1726E+01, 0.1732E+01,& - 0.1738E+01, 0.1744E+01, 0.1750E+01, 0.1756E+01,& - 0.1762E+01, 0.1768E+01, 0.1774E+01, 0.1780E+01,& - 0.1786E+01, 0.1792E+01, 0.1799E+01, 0.1805E+01,& - 0.1811E+01, 0.1818E+01, 0.1824E+01, 0.1831E+01,& - 0.1837E+01, 0.1844E+01, 0.1850E+01, 0.1857E+01,& - 0.1863E+01, 0.1870E+01, 0.1877E+01, 0.1884E+01,& - 0.1890E+01, 0.1897E+01, 0.1904E+01, 0.1911E+01,& - 0.1918E+01, 0.1925E+01, 0.1932E+01, 0.1940E+01,& - 0.1947E+01, 0.1954E+01, 0.1961E+01, 0.1969E+01,& - 0.1976E+01, 0.1984E+01, 0.1991E+01, 0.1999E+01,& - 0.2006E+01, 0.2014E+01, 0.2022E+01, 0.2030E+01,& - 0.2037E+01, 0.2045E+01, 0.2053E+01, 0.2061E+01,& - 0.2069E+01, 0.2078E+01, 0.2086E+01, 0.2094E+01,& - 0.2102E+01, 0.2111E+01, 0.2119E+01, 0.2128E+01,& - 0.2137E+01, 0.2145E+01, 0.2154E+01, 0.2163E+01,& - 0.2172E+01, 0.2181E+01, 0.2190E+01, 0.2199E+01,& - 0.2208E+01, 0.2218E+01, 0.2227E+01, 0.2236E+01,& - 0.2246E+01, 0.2256E+01, 0.2265E+01, 0.2275E+01,& - 0.2285E+01, 0.2295E+01, 0.2305E+01, 0.2315E+01,& - 0.2326E+01, 0.2336E+01, 0.2347E+01, 0.2357E+01,& - 0.2368E+01, 0.2379E+01, 0.2390E+01, 0.2401E+01,& - 0.2412E+01, 0.2424E+01, 0.2435E+01, 0.2447E+01,& - 0.2458E+01, 0.2470E+01, 0.2482E+01, 0.2494E+01,& - 0.2506E+01, 0.2519E+01, 0.2531E+01, 0.2544E+01,& - 0.2557E+01, 0.2570E+01, 0.2583E+01, 0.2596E+01,& - 0.2609E+01, 0.2623E+01, 0.2637E+01, 0.2651E+01,& - 0.2665E+01, 0.2680E+01, 0.2694E+01, 0.2709E+01,& - 0.2724E+01, 0.2739E+01, 0.2755E+01, 0.2770E+01,& - 0.2786E+01, 0.2802E+01, 0.2819E+01, 0.2835E+01,& - 0.2852E+01, 0.2869E+01, 0.2887E+01, 0.2904E+01,& - 0.2922E+01, 0.2941E+01, 0.2959E+01, 0.2979E+01,& - 0.2998E+01, 0.3018E+01, 0.3038E+01, 0.3058E+01,& - 0.3079E+01, 0.3100E+01, 0.3122E+01, 0.3144E+01,& - 0.3166E+01, 0.3190E+01, 0.3214E+01, 0.3238E+01,& - 0.3262E+01, 0.3288E+01, 0.3314E+01, 0.3340E+01,& - 0.3367E+01, 0.3395E+01, 0.3424E+01, 0.3454E+01,& - 0.3483E+01, 0.3515E+01, 0.3547E+01, 0.3581E+01,& - 0.3615E+01, 0.3650E+01, 0.3687E+01, 0.3725E+01,& - 0.3764E+01, 0.3805E+01, 0.3847E+01, 0.3891E+01,& - 0.3937E+01, 0.3985E+01, 0.4035E+01, 0.4088E+01,& - 0.4143E+01, 0.4202E+01, 0.4263E+01, 0.4329E+01,& - 0.4399E+01, 0.4473E+01, 0.4554E+01, 0.4640E+01,& - 0.4734E+01, 0.4838E+01, 0.4952E+01, 0.5080E+01,& - 0.5224E+01, 0.5391E+01, 0.5589E+01, 0.5832E+01,& - 0.1000E-04, 0.3698E-03, 0.8220E-03, 0.1326E-02/) - xcw(:, 40) = (/& - 0.1000E-04, 0.3698E-03, 0.8220E-03, 0.1326E-02,& - 0.1840E-02, 0.2384E-02, 0.2950E-02, 0.3525E-02,& - 0.4122E-02, 0.4718E-02, 0.5334E-02, 0.5961E-02,& - 0.6588E-02, 0.7236E-02, 0.7884E-02, 0.8541E-02,& - 0.9210E-02, 0.9878E-02, 0.1056E-01, 0.1123E-01,& - 0.1193E-01, 0.1262E-01, 0.1333E-01, 0.1403E-01,& - 0.1475E-01, 0.1547E-01, 0.1619E-01, 0.1692E-01,& - 0.1765E-01, 0.1839E-01, 0.1913E-01, 0.1987E-01,& - 0.2062E-01, 0.2138E-01, 0.2213E-01, 0.2290E-01,& - 0.2366E-01, 0.2443E-01, 0.2520E-01, 0.2598E-01,& - 0.2677E-01, 0.2755E-01, 0.2834E-01, 0.2913E-01,& - 0.2992E-01, 0.3072E-01, 0.3152E-01, 0.3234E-01,& - 0.3314E-01, 0.3395E-01, 0.3477E-01, 0.3558E-01,& - 0.3641E-01, 0.3723E-01, 0.3806E-01, 0.3889E-01,& - 0.3973E-01, 0.4056E-01, 0.4140E-01, 0.4225E-01,& - 0.4309E-01, 0.4394E-01, 0.4478E-01, 0.4564E-01,& - 0.4650E-01, 0.4735E-01, 0.4822E-01, 0.4908E-01,& - 0.4995E-01, 0.5083E-01, 0.5169E-01, 0.5258E-01,& - 0.5345E-01, 0.5433E-01, 0.5522E-01, 0.5610E-01,& - 0.5699E-01, 0.5788E-01, 0.5877E-01, 0.5967E-01,& - 0.6057E-01, 0.6147E-01, 0.6237E-01, 0.6328E-01,& - 0.6419E-01, 0.6511E-01, 0.6601E-01, 0.6694E-01,& - 0.6785E-01, 0.6878E-01, 0.6969E-01, 0.7062E-01,& - 0.7155E-01, 0.7248E-01, 0.7341E-01, 0.7435E-01,& - 0.7528E-01, 0.7623E-01, 0.7716E-01, 0.7811E-01,& - 0.7905E-01, 0.8001E-01, 0.8096E-01, 0.8191E-01,& - 0.8287E-01, 0.8382E-01, 0.8479E-01, 0.8575E-01,& - 0.8671E-01, 0.8768E-01, 0.8865E-01, 0.8962E-01,& - 0.9060E-01, 0.9157E-01, 0.9255E-01, 0.9354E-01,& - 0.9451E-01, 0.9550E-01, 0.9649E-01, 0.9747E-01,& - 0.9847E-01, 0.9947E-01, 0.1005E+00, 0.1015E+00,& - 0.1025E+00, 0.1035E+00, 0.1045E+00, 0.1055E+00,& - 0.1065E+00, 0.1075E+00, 0.1085E+00, 0.1095E+00,& - 0.1105E+00, 0.1116E+00, 0.1126E+00, 0.1136E+00,& - 0.1146E+00, 0.1157E+00, 0.1167E+00, 0.1177E+00,& - 0.1188E+00, 0.1198E+00, 0.1208E+00, 0.1219E+00,& - 0.1229E+00, 0.1240E+00, 0.1250E+00, 0.1261E+00,& - 0.1271E+00, 0.1282E+00, 0.1292E+00, 0.1303E+00,& - 0.1314E+00, 0.1324E+00, 0.1335E+00, 0.1345E+00,& - 0.1356E+00, 0.1367E+00, 0.1378E+00, 0.1388E+00,& - 0.1399E+00, 0.1410E+00, 0.1421E+00, 0.1432E+00,& - 0.1443E+00, 0.1453E+00, 0.1464E+00, 0.1475E+00,& - 0.1486E+00, 0.1497E+00, 0.1508E+00, 0.1519E+00,& - 0.1530E+00, 0.1541E+00, 0.1552E+00, 0.1564E+00,& - 0.1575E+00, 0.1586E+00, 0.1597E+00, 0.1608E+00,& - 0.1619E+00, 0.1631E+00, 0.1642E+00, 0.1653E+00,& - 0.1664E+00, 0.1676E+00, 0.1687E+00, 0.1698E+00,& - 0.1710E+00, 0.1721E+00, 0.1732E+00, 0.1744E+00,& - 0.1755E+00, 0.1767E+00, 0.1778E+00, 0.1790E+00,& - 0.1801E+00, 0.1813E+00, 0.1825E+00, 0.1836E+00,& - 0.1848E+00, 0.1860E+00, 0.1871E+00, 0.1883E+00,& - 0.1895E+00, 0.1906E+00, 0.1918E+00, 0.1930E+00,& - 0.1942E+00, 0.1954E+00, 0.1966E+00, 0.1977E+00,& - 0.1989E+00, 0.2001E+00, 0.2013E+00, 0.2025E+00,& - 0.2037E+00, 0.2049E+00, 0.2061E+00, 0.2073E+00,& - 0.2085E+00, 0.2097E+00, 0.2109E+00, 0.2122E+00,& - 0.2134E+00, 0.2146E+00, 0.2158E+00, 0.2170E+00,& - 0.2183E+00, 0.2195E+00, 0.2207E+00, 0.2219E+00,& - 0.2232E+00, 0.2244E+00, 0.2257E+00, 0.2269E+00,& - 0.2281E+00, 0.2294E+00, 0.2306E+00, 0.2319E+00,& - 0.2331E+00, 0.2344E+00, 0.2356E+00, 0.2369E+00,& - 0.2382E+00, 0.2394E+00, 0.2407E+00, 0.2420E+00,& - 0.2432E+00, 0.2445E+00, 0.2458E+00, 0.2471E+00,& - 0.2483E+00, 0.2496E+00, 0.2509E+00, 0.2522E+00,& - 0.2535E+00, 0.2548E+00, 0.2561E+00, 0.2574E+00,& - 0.2586E+00, 0.2600E+00, 0.2612E+00, 0.2626E+00,& - 0.2639E+00, 0.2652E+00, 0.2665E+00, 0.2678E+00,& - 0.2691E+00, 0.2704E+00, 0.2718E+00, 0.2731E+00,& - 0.2744E+00, 0.2757E+00, 0.2771E+00, 0.2784E+00,& - 0.2797E+00, 0.2811E+00, 0.2824E+00, 0.2838E+00,& - 0.2851E+00, 0.2864E+00, 0.2878E+00, 0.2892E+00,& - 0.2905E+00, 0.2919E+00, 0.2932E+00, 0.2946E+00,& - 0.2959E+00, 0.2973E+00, 0.2987E+00, 0.3001E+00,& - 0.3014E+00, 0.3028E+00, 0.3042E+00, 0.3056E+00,& - 0.3070E+00, 0.3083E+00, 0.3097E+00, 0.3111E+00,& - 0.3125E+00, 0.3139E+00, 0.3153E+00, 0.3167E+00,& - 0.3181E+00, 0.3195E+00, 0.3209E+00, 0.3224E+00,& - 0.3238E+00, 0.3252E+00, 0.3266E+00, 0.3280E+00,& - 0.3295E+00, 0.3309E+00, 0.3323E+00, 0.3338E+00,& - 0.3352E+00, 0.3366E+00, 0.3381E+00, 0.3395E+00,& - 0.3410E+00, 0.3424E+00, 0.3439E+00, 0.3453E+00,& - 0.3468E+00, 0.3482E+00, 0.3497E+00, 0.3512E+00,& - 0.3526E+00, 0.3541E+00, 0.3556E+00, 0.3570E+00,& - 0.3585E+00, 0.3600E+00, 0.3615E+00, 0.3630E+00,& - 0.3645E+00, 0.3660E+00, 0.3675E+00, 0.3690E+00,& - 0.3705E+00, 0.3720E+00, 0.3735E+00, 0.3750E+00,& - 0.3765E+00, 0.3780E+00, 0.3795E+00, 0.3810E+00,& - 0.3826E+00, 0.3841E+00, 0.3856E+00, 0.3871E+00,& - 0.3887E+00, 0.3902E+00, 0.3918E+00, 0.3933E+00,& - 0.3948E+00, 0.3964E+00, 0.3979E+00, 0.3995E+00,& - 0.4011E+00, 0.4026E+00, 0.4042E+00, 0.4057E+00,& - 0.4073E+00, 0.4089E+00, 0.4105E+00, 0.4120E+00,& - 0.4136E+00, 0.4152E+00, 0.4168E+00, 0.4184E+00,& - 0.4200E+00, 0.4216E+00, 0.4232E+00, 0.4248E+00,& - 0.4264E+00, 0.4280E+00, 0.4296E+00, 0.4312E+00,& - 0.4328E+00, 0.4344E+00, 0.4361E+00, 0.4377E+00,& - 0.4393E+00, 0.4410E+00, 0.4426E+00, 0.4442E+00,& - 0.4459E+00, 0.4475E+00, 0.4492E+00, 0.4508E+00,& - 0.4525E+00, 0.4541E+00, 0.4558E+00, 0.4575E+00,& - 0.4591E+00, 0.4608E+00, 0.4625E+00, 0.4641E+00,& - 0.4658E+00, 0.4675E+00, 0.4692E+00, 0.4709E+00,& - 0.4726E+00, 0.4743E+00, 0.4760E+00, 0.4777E+00,& - 0.4794E+00, 0.4811E+00, 0.4828E+00, 0.4845E+00,& - 0.4862E+00, 0.4880E+00, 0.4897E+00, 0.4914E+00,& - 0.4932E+00, 0.4949E+00, 0.4967E+00, 0.4984E+00,& - 0.5001E+00, 0.5019E+00, 0.5037E+00, 0.5054E+00,& - 0.5072E+00, 0.5089E+00, 0.5107E+00, 0.5125E+00,& - 0.5142E+00, 0.5160E+00, 0.5178E+00, 0.5196E+00,& - 0.5214E+00, 0.5232E+00, 0.5250E+00, 0.5268E+00,& - 0.5286E+00, 0.5304E+00, 0.5322E+00, 0.5340E+00,& - 0.5358E+00, 0.5377E+00, 0.5395E+00, 0.5413E+00,& - 0.5432E+00, 0.5450E+00, 0.5468E+00, 0.5487E+00,& - 0.5505E+00, 0.5524E+00, 0.5542E+00, 0.5561E+00,& - 0.5580E+00, 0.5598E+00, 0.5617E+00, 0.5636E+00,& - 0.5655E+00, 0.5673E+00, 0.5692E+00, 0.5711E+00,& - 0.5730E+00, 0.5749E+00, 0.5768E+00, 0.5787E+00,& - 0.5806E+00, 0.5826E+00, 0.5845E+00, 0.5864E+00,& - 0.5883E+00, 0.5903E+00, 0.5922E+00, 0.5941E+00,& - 0.5961E+00, 0.5980E+00, 0.6000E+00, 0.6019E+00,& - 0.6039E+00, 0.6059E+00, 0.6078E+00, 0.6098E+00,& - 0.6118E+00, 0.6138E+00, 0.6158E+00, 0.6178E+00,& - 0.6198E+00, 0.6217E+00, 0.6237E+00, 0.6258E+00,& - 0.6278E+00, 0.6298E+00, 0.6318E+00, 0.6338E+00,& - 0.6359E+00, 0.6379E+00, 0.6399E+00, 0.6420E+00,& - 0.6440E+00, 0.6461E+00, 0.6481E+00, 0.6502E+00,& - 0.6523E+00, 0.6543E+00, 0.6564E+00, 0.6585E+00,& - 0.6606E+00, 0.6627E+00, 0.6648E+00, 0.6669E+00,& - 0.6690E+00, 0.6711E+00, 0.6732E+00, 0.6753E+00,& - 0.6774E+00, 0.6796E+00, 0.6817E+00, 0.6838E+00,& - 0.6860E+00, 0.6881E+00, 0.6903E+00, 0.6924E+00,& - 0.6946E+00, 0.6967E+00, 0.6989E+00, 0.7011E+00,& - 0.7033E+00, 0.7055E+00, 0.7077E+00, 0.7098E+00,& - 0.7121E+00, 0.7143E+00, 0.7165E+00, 0.7187E+00,& - 0.7209E+00, 0.7231E+00, 0.7254E+00, 0.7276E+00,& - 0.7298E+00, 0.7321E+00, 0.7343E+00, 0.7366E+00,& - 0.7389E+00, 0.7411E+00, 0.7434E+00, 0.7457E+00,& - 0.7480E+00, 0.7503E+00, 0.7526E+00, 0.7549E+00,& - 0.7572E+00, 0.7595E+00, 0.7618E+00, 0.7641E+00,& - 0.7665E+00, 0.7688E+00, 0.7711E+00, 0.7735E+00,& - 0.7759E+00, 0.7782E+00, 0.7806E+00, 0.7829E+00,& - 0.7853E+00, 0.7877E+00, 0.7901E+00, 0.7925E+00,& - 0.7949E+00, 0.7973E+00, 0.7997E+00, 0.8021E+00,& - 0.8046E+00, 0.8070E+00, 0.8094E+00, 0.8119E+00,& - 0.8143E+00, 0.8168E+00, 0.8192E+00, 0.8217E+00,& - 0.8242E+00, 0.8266E+00, 0.8291E+00, 0.8316E+00,& - 0.8341E+00, 0.8366E+00, 0.8391E+00, 0.8417E+00,& - 0.8442E+00, 0.8467E+00, 0.8493E+00, 0.8518E+00,& - 0.8544E+00, 0.8569E+00, 0.8595E+00, 0.8621E+00,& - 0.8646E+00, 0.8672E+00, 0.8698E+00, 0.8724E+00,& - 0.8750E+00, 0.8776E+00, 0.8802E+00, 0.8829E+00,& - 0.8855E+00, 0.8881E+00, 0.8908E+00, 0.8934E+00,& - 0.8961E+00, 0.8988E+00, 0.9015E+00, 0.9041E+00,& - 0.9068E+00, 0.9095E+00, 0.9122E+00, 0.9149E+00,& - 0.9177E+00, 0.9204E+00, 0.9231E+00, 0.9259E+00,& - 0.9286E+00, 0.9314E+00, 0.9342E+00, 0.9369E+00,& - 0.9397E+00, 0.9425E+00, 0.9453E+00, 0.9481E+00,& - 0.9509E+00, 0.9537E+00, 0.9566E+00, 0.9594E+00,& - 0.9623E+00, 0.9651E+00, 0.9680E+00, 0.9708E+00,& - 0.9737E+00, 0.9766E+00, 0.9795E+00, 0.9824E+00,& - 0.9853E+00, 0.9882E+00, 0.9912E+00, 0.9941E+00,& - 0.9971E+00, 0.1000E+01, 0.1003E+01, 0.1006E+01,& - 0.1009E+01, 0.1012E+01, 0.1015E+01, 0.1018E+01,& - 0.1021E+01, 0.1024E+01, 0.1027E+01, 0.1030E+01,& - 0.1033E+01, 0.1036E+01, 0.1039E+01, 0.1042E+01,& - 0.1045E+01, 0.1049E+01, 0.1052E+01, 0.1055E+01,& - 0.1058E+01, 0.1061E+01, 0.1064E+01, 0.1067E+01,& - 0.1071E+01, 0.1074E+01, 0.1077E+01, 0.1080E+01,& - 0.1083E+01, 0.1087E+01, 0.1090E+01, 0.1093E+01,& - 0.1096E+01, 0.1100E+01, 0.1103E+01, 0.1106E+01,& - 0.1109E+01, 0.1113E+01, 0.1116E+01, 0.1119E+01,& - 0.1123E+01, 0.1126E+01, 0.1129E+01, 0.1133E+01,& - 0.1136E+01, 0.1139E+01, 0.1143E+01, 0.1146E+01,& - 0.1150E+01, 0.1153E+01, 0.1157E+01, 0.1160E+01,& - 0.1164E+01, 0.1167E+01, 0.1171E+01, 0.1174E+01,& - 0.1178E+01, 0.1181E+01, 0.1185E+01, 0.1188E+01,& - 0.1192E+01, 0.1195E+01, 0.1199E+01, 0.1203E+01,& - 0.1206E+01, 0.1210E+01, 0.1214E+01, 0.1217E+01,& - 0.1221E+01, 0.1225E+01, 0.1228E+01, 0.1232E+01,& - 0.1236E+01, 0.1239E+01, 0.1243E+01, 0.1247E+01,& - 0.1251E+01, 0.1255E+01, 0.1258E+01, 0.1262E+01,& - 0.1266E+01, 0.1270E+01, 0.1274E+01, 0.1278E+01,& - 0.1282E+01, 0.1285E+01, 0.1289E+01, 0.1293E+01,& - 0.1297E+01, 0.1301E+01, 0.1305E+01, 0.1309E+01,& - 0.1313E+01, 0.1317E+01, 0.1321E+01, 0.1325E+01,& - 0.1329E+01, 0.1334E+01, 0.1338E+01, 0.1342E+01,& - 0.1346E+01, 0.1350E+01, 0.1354E+01, 0.1358E+01,& - 0.1363E+01, 0.1367E+01, 0.1371E+01, 0.1375E+01,& - 0.1380E+01, 0.1384E+01, 0.1388E+01, 0.1393E+01,& - 0.1397E+01, 0.1401E+01, 0.1406E+01, 0.1410E+01,& - 0.1415E+01, 0.1419E+01, 0.1424E+01, 0.1428E+01,& - 0.1433E+01, 0.1437E+01, 0.1442E+01, 0.1446E+01,& - 0.1451E+01, 0.1455E+01, 0.1460E+01, 0.1465E+01,& - 0.1469E+01, 0.1474E+01, 0.1479E+01, 0.1483E+01,& - 0.1488E+01, 0.1493E+01, 0.1498E+01, 0.1503E+01,& - 0.1507E+01, 0.1512E+01, 0.1517E+01, 0.1522E+01,& - 0.1527E+01, 0.1532E+01, 0.1537E+01, 0.1542E+01,& - 0.1547E+01, 0.1552E+01, 0.1557E+01, 0.1562E+01,& - 0.1567E+01, 0.1573E+01, 0.1578E+01, 0.1583E+01,& - 0.1588E+01, 0.1593E+01, 0.1599E+01, 0.1604E+01,& - 0.1609E+01, 0.1615E+01, 0.1620E+01, 0.1626E+01,& - 0.1631E+01, 0.1636E+01, 0.1642E+01, 0.1647E+01,& - 0.1653E+01, 0.1659E+01, 0.1664E+01, 0.1670E+01,& - 0.1676E+01, 0.1681E+01, 0.1687E+01, 0.1693E+01,& - 0.1699E+01, 0.1704E+01, 0.1710E+01, 0.1716E+01,& - 0.1722E+01, 0.1728E+01, 0.1734E+01, 0.1740E+01,& - 0.1746E+01, 0.1752E+01, 0.1758E+01, 0.1765E+01,& - 0.1771E+01, 0.1777E+01, 0.1783E+01, 0.1790E+01,& - 0.1796E+01, 0.1802E+01, 0.1809E+01, 0.1815E+01,& - 0.1822E+01, 0.1828E+01, 0.1835E+01, 0.1842E+01,& - 0.1848E+01, 0.1855E+01, 0.1862E+01, 0.1869E+01,& - 0.1875E+01, 0.1882E+01, 0.1889E+01, 0.1896E+01,& - 0.1903E+01, 0.1910E+01, 0.1917E+01, 0.1925E+01,& - 0.1932E+01, 0.1939E+01, 0.1946E+01, 0.1954E+01,& - 0.1961E+01, 0.1969E+01, 0.1976E+01, 0.1984E+01,& - 0.1991E+01, 0.1999E+01, 0.2007E+01, 0.2015E+01,& - 0.2023E+01, 0.2030E+01, 0.2038E+01, 0.2046E+01,& - 0.2055E+01, 0.2063E+01, 0.2071E+01, 0.2079E+01,& - 0.2088E+01, 0.2096E+01, 0.2104E+01, 0.2113E+01,& - 0.2122E+01, 0.2130E+01, 0.2139E+01, 0.2148E+01,& - 0.2157E+01, 0.2166E+01, 0.2175E+01, 0.2184E+01,& - 0.2193E+01, 0.2202E+01, 0.2212E+01, 0.2221E+01,& - 0.2231E+01, 0.2240E+01, 0.2250E+01, 0.2260E+01,& - 0.2270E+01, 0.2279E+01, 0.2290E+01, 0.2300E+01,& - 0.2310E+01, 0.2320E+01, 0.2331E+01, 0.2341E+01,& - 0.2352E+01, 0.2363E+01, 0.2374E+01, 0.2385E+01,& - 0.2396E+01, 0.2407E+01, 0.2418E+01, 0.2430E+01,& - 0.2441E+01, 0.2453E+01, 0.2465E+01, 0.2477E+01,& - 0.2489E+01, 0.2501E+01, 0.2513E+01, 0.2526E+01,& - 0.2538E+01, 0.2551E+01, 0.2564E+01, 0.2577E+01,& - 0.2590E+01, 0.2604E+01, 0.2617E+01, 0.2631E+01,& - 0.2645E+01, 0.2659E+01, 0.2673E+01, 0.2688E+01,& - 0.2703E+01, 0.2717E+01, 0.2733E+01, 0.2748E+01,& - 0.2763E+01, 0.2779E+01, 0.2795E+01, 0.2811E+01,& - 0.2828E+01, 0.2844E+01, 0.2861E+01, 0.2878E+01,& - 0.2896E+01, 0.2914E+01, 0.2932E+01, 0.2950E+01,& - 0.2969E+01, 0.2988E+01, 0.3007E+01, 0.3027E+01,& - 0.3047E+01, 0.3067E+01, 0.3088E+01, 0.3109E+01,& - 0.3131E+01, 0.3153E+01, 0.3175E+01, 0.3198E+01,& - 0.3222E+01, 0.3246E+01, 0.3270E+01, 0.3295E+01,& - 0.3321E+01, 0.3347E+01, 0.3374E+01, 0.3401E+01,& - 0.3430E+01, 0.3459E+01, 0.3488E+01, 0.3519E+01,& - 0.3550E+01, 0.3583E+01, 0.3616E+01, 0.3651E+01,& - 0.3686E+01, 0.3723E+01, 0.3761E+01, 0.3800E+01,& - 0.3841E+01, 0.3883E+01, 0.3927E+01, 0.3972E+01,& - 0.4020E+01, 0.4070E+01, 0.4122E+01, 0.4177E+01,& - 0.4234E+01, 0.4295E+01, 0.4359E+01, 0.4427E+01,& - 0.4500E+01, 0.4577E+01, 0.4661E+01, 0.4751E+01,& - 0.4849E+01, 0.4956E+01, 0.5074E+01, 0.5207E+01,& - 0.5358E+01, 0.5532E+01, 0.5738E+01, 0.5990E+01,& - 0.1000E-04, 0.2629E-03, 0.6001E-03, 0.9900E-03/) - xcw(:, 41) = (/& - 0.1000E-04, 0.2629E-03, 0.6001E-03, 0.9900E-03,& - 0.1401E-02, 0.1844E-02, 0.2297E-02, 0.2771E-02,& - 0.3256E-02, 0.3762E-02, 0.4267E-02, 0.4794E-02,& - 0.5332E-02, 0.5869E-02, 0.6428E-02, 0.6986E-02,& - 0.7555E-02, 0.8135E-02, 0.8714E-02, 0.9305E-02,& - 0.9905E-02, 0.1052E-01, 0.1113E-01, 0.1175E-01,& - 0.1237E-01, 0.1300E-01, 0.1364E-01, 0.1428E-01,& - 0.1492E-01, 0.1557E-01, 0.1624E-01, 0.1689E-01,& - 0.1757E-01, 0.1823E-01, 0.1892E-01, 0.1959E-01,& - 0.2027E-01, 0.2097E-01, 0.2167E-01, 0.2236E-01,& - 0.2307E-01, 0.2377E-01, 0.2448E-01, 0.2520E-01,& - 0.2592E-01, 0.2664E-01, 0.2737E-01, 0.2810E-01,& - 0.2883E-01, 0.2957E-01, 0.3032E-01, 0.3107E-01,& - 0.3181E-01, 0.3256E-01, 0.3332E-01, 0.3408E-01,& - 0.3484E-01, 0.3561E-01, 0.3638E-01, 0.3716E-01,& - 0.3793E-01, 0.3871E-01, 0.3950E-01, 0.4028E-01,& - 0.4107E-01, 0.4187E-01, 0.4266E-01, 0.4346E-01,& - 0.4426E-01, 0.4506E-01, 0.4587E-01, 0.4668E-01,& - 0.4749E-01, 0.4832E-01, 0.4914E-01, 0.4996E-01,& - 0.5078E-01, 0.5162E-01, 0.5245E-01, 0.5328E-01,& - 0.5411E-01, 0.5496E-01, 0.5580E-01, 0.5665E-01,& - 0.5750E-01, 0.5835E-01, 0.5920E-01, 0.6006E-01,& - 0.6092E-01, 0.6178E-01, 0.6265E-01, 0.6351E-01,& - 0.6439E-01, 0.6526E-01, 0.6614E-01, 0.6701E-01,& - 0.6790E-01, 0.6878E-01, 0.6967E-01, 0.7055E-01,& - 0.7145E-01, 0.7234E-01, 0.7324E-01, 0.7413E-01,& - 0.7504E-01, 0.7595E-01, 0.7685E-01, 0.7776E-01,& - 0.7868E-01, 0.7959E-01, 0.8051E-01, 0.8143E-01,& - 0.8234E-01, 0.8327E-01, 0.8420E-01, 0.8513E-01,& - 0.8606E-01, 0.8700E-01, 0.8794E-01, 0.8888E-01,& - 0.8982E-01, 0.9076E-01, 0.9171E-01, 0.9266E-01,& - 0.9361E-01, 0.9457E-01, 0.9553E-01, 0.9649E-01,& - 0.9745E-01, 0.9840E-01, 0.9937E-01, 0.1003E+00,& - 0.1013E+00, 0.1023E+00, 0.1033E+00, 0.1042E+00,& - 0.1052E+00, 0.1062E+00, 0.1072E+00, 0.1082E+00,& - 0.1092E+00, 0.1102E+00, 0.1112E+00, 0.1122E+00,& - 0.1132E+00, 0.1142E+00, 0.1152E+00, 0.1162E+00,& - 0.1172E+00, 0.1182E+00, 0.1192E+00, 0.1202E+00,& - 0.1212E+00, 0.1223E+00, 0.1233E+00, 0.1243E+00,& - 0.1253E+00, 0.1264E+00, 0.1274E+00, 0.1284E+00,& - 0.1295E+00, 0.1305E+00, 0.1316E+00, 0.1326E+00,& - 0.1337E+00, 0.1347E+00, 0.1358E+00, 0.1368E+00,& - 0.1379E+00, 0.1389E+00, 0.1400E+00, 0.1411E+00,& - 0.1421E+00, 0.1432E+00, 0.1443E+00, 0.1453E+00,& - 0.1464E+00, 0.1475E+00, 0.1486E+00, 0.1496E+00,& - 0.1507E+00, 0.1518E+00, 0.1529E+00, 0.1540E+00,& - 0.1551E+00, 0.1562E+00, 0.1573E+00, 0.1584E+00,& - 0.1595E+00, 0.1606E+00, 0.1617E+00, 0.1628E+00,& - 0.1639E+00, 0.1650E+00, 0.1662E+00, 0.1673E+00,& - 0.1684E+00, 0.1695E+00, 0.1706E+00, 0.1718E+00,& - 0.1729E+00, 0.1740E+00, 0.1752E+00, 0.1763E+00,& - 0.1775E+00, 0.1786E+00, 0.1797E+00, 0.1809E+00,& - 0.1820E+00, 0.1832E+00, 0.1843E+00, 0.1855E+00,& - 0.1867E+00, 0.1878E+00, 0.1890E+00, 0.1901E+00,& - 0.1913E+00, 0.1925E+00, 0.1937E+00, 0.1948E+00,& - 0.1960E+00, 0.1972E+00, 0.1984E+00, 0.1996E+00,& - 0.2008E+00, 0.2019E+00, 0.2031E+00, 0.2043E+00,& - 0.2055E+00, 0.2067E+00, 0.2079E+00, 0.2091E+00,& - 0.2103E+00, 0.2116E+00, 0.2128E+00, 0.2140E+00,& - 0.2152E+00, 0.2164E+00, 0.2176E+00, 0.2189E+00,& - 0.2201E+00, 0.2213E+00, 0.2225E+00, 0.2238E+00,& - 0.2250E+00, 0.2263E+00, 0.2275E+00, 0.2287E+00,& - 0.2300E+00, 0.2312E+00, 0.2325E+00, 0.2337E+00,& - 0.2350E+00, 0.2363E+00, 0.2375E+00, 0.2388E+00,& - 0.2400E+00, 0.2413E+00, 0.2426E+00, 0.2439E+00,& - 0.2451E+00, 0.2464E+00, 0.2477E+00, 0.2490E+00,& - 0.2503E+00, 0.2515E+00, 0.2528E+00, 0.2541E+00,& - 0.2554E+00, 0.2567E+00, 0.2580E+00, 0.2593E+00,& - 0.2606E+00, 0.2619E+00, 0.2633E+00, 0.2646E+00,& - 0.2659E+00, 0.2672E+00, 0.2685E+00, 0.2698E+00,& - 0.2712E+00, 0.2725E+00, 0.2738E+00, 0.2752E+00,& - 0.2765E+00, 0.2778E+00, 0.2792E+00, 0.2805E+00,& - 0.2819E+00, 0.2832E+00, 0.2846E+00, 0.2859E+00,& - 0.2873E+00, 0.2886E+00, 0.2900E+00, 0.2914E+00,& - 0.2927E+00, 0.2941E+00, 0.2955E+00, 0.2969E+00,& - 0.2982E+00, 0.2996E+00, 0.3010E+00, 0.3024E+00,& - 0.3038E+00, 0.3052E+00, 0.3066E+00, 0.3080E+00,& - 0.3094E+00, 0.3108E+00, 0.3122E+00, 0.3136E+00,& - 0.3150E+00, 0.3164E+00, 0.3178E+00, 0.3193E+00,& - 0.3207E+00, 0.3221E+00, 0.3235E+00, 0.3250E+00,& - 0.3264E+00, 0.3278E+00, 0.3293E+00, 0.3307E+00,& - 0.3322E+00, 0.3336E+00, 0.3351E+00, 0.3365E+00,& - 0.3380E+00, 0.3394E+00, 0.3409E+00, 0.3424E+00,& - 0.3438E+00, 0.3453E+00, 0.3468E+00, 0.3483E+00,& - 0.3497E+00, 0.3512E+00, 0.3527E+00, 0.3542E+00,& - 0.3557E+00, 0.3572E+00, 0.3587E+00, 0.3602E+00,& - 0.3617E+00, 0.3632E+00, 0.3647E+00, 0.3662E+00,& - 0.3677E+00, 0.3692E+00, 0.3708E+00, 0.3723E+00,& - 0.3738E+00, 0.3753E+00, 0.3769E+00, 0.3784E+00,& - 0.3799E+00, 0.3815E+00, 0.3830E+00, 0.3846E+00,& - 0.3861E+00, 0.3877E+00, 0.3892E+00, 0.3908E+00,& - 0.3924E+00, 0.3939E+00, 0.3955E+00, 0.3971E+00,& - 0.3986E+00, 0.4002E+00, 0.4018E+00, 0.4034E+00,& - 0.4050E+00, 0.4066E+00, 0.4082E+00, 0.4098E+00,& - 0.4114E+00, 0.4130E+00, 0.4146E+00, 0.4162E+00,& - 0.4178E+00, 0.4194E+00, 0.4210E+00, 0.4227E+00,& - 0.4243E+00, 0.4259E+00, 0.4275E+00, 0.4292E+00,& - 0.4308E+00, 0.4325E+00, 0.4341E+00, 0.4358E+00,& - 0.4374E+00, 0.4391E+00, 0.4407E+00, 0.4424E+00,& - 0.4441E+00, 0.4457E+00, 0.4474E+00, 0.4491E+00,& - 0.4508E+00, 0.4525E+00, 0.4541E+00, 0.4558E+00,& - 0.4575E+00, 0.4592E+00, 0.4609E+00, 0.4626E+00,& - 0.4643E+00, 0.4660E+00, 0.4678E+00, 0.4695E+00,& - 0.4712E+00, 0.4729E+00, 0.4747E+00, 0.4764E+00,& - 0.4781E+00, 0.4799E+00, 0.4816E+00, 0.4834E+00,& - 0.4851E+00, 0.4869E+00, 0.4886E+00, 0.4904E+00,& - 0.4921E+00, 0.4939E+00, 0.4957E+00, 0.4975E+00,& - 0.4993E+00, 0.5010E+00, 0.5028E+00, 0.5046E+00,& - 0.5064E+00, 0.5082E+00, 0.5100E+00, 0.5118E+00,& - 0.5136E+00, 0.5154E+00, 0.5173E+00, 0.5191E+00,& - 0.5209E+00, 0.5227E+00, 0.5246E+00, 0.5264E+00,& - 0.5283E+00, 0.5301E+00, 0.5319E+00, 0.5338E+00,& - 0.5357E+00, 0.5375E+00, 0.5394E+00, 0.5413E+00,& - 0.5431E+00, 0.5450E+00, 0.5469E+00, 0.5488E+00,& - 0.5507E+00, 0.5526E+00, 0.5545E+00, 0.5563E+00,& - 0.5583E+00, 0.5602E+00, 0.5621E+00, 0.5640E+00,& - 0.5659E+00, 0.5679E+00, 0.5698E+00, 0.5717E+00,& - 0.5737E+00, 0.5756E+00, 0.5776E+00, 0.5795E+00,& - 0.5815E+00, 0.5834E+00, 0.5854E+00, 0.5874E+00,& - 0.5893E+00, 0.5913E+00, 0.5933E+00, 0.5953E+00,& - 0.5973E+00, 0.5993E+00, 0.6013E+00, 0.6033E+00,& - 0.6053E+00, 0.6073E+00, 0.6093E+00, 0.6113E+00,& - 0.6134E+00, 0.6154E+00, 0.6174E+00, 0.6195E+00,& - 0.6215E+00, 0.6236E+00, 0.6256E+00, 0.6277E+00,& - 0.6297E+00, 0.6318E+00, 0.6339E+00, 0.6360E+00,& - 0.6380E+00, 0.6401E+00, 0.6422E+00, 0.6443E+00,& - 0.6464E+00, 0.6485E+00, 0.6507E+00, 0.6528E+00,& - 0.6549E+00, 0.6570E+00, 0.6592E+00, 0.6613E+00,& - 0.6634E+00, 0.6656E+00, 0.6677E+00, 0.6699E+00,& - 0.6721E+00, 0.6742E+00, 0.6764E+00, 0.6786E+00,& - 0.6807E+00, 0.6829E+00, 0.6851E+00, 0.6873E+00,& - 0.6895E+00, 0.6917E+00, 0.6940E+00, 0.6962E+00,& - 0.6984E+00, 0.7006E+00, 0.7029E+00, 0.7051E+00,& - 0.7073E+00, 0.7096E+00, 0.7119E+00, 0.7141E+00,& - 0.7164E+00, 0.7187E+00, 0.7209E+00, 0.7232E+00,& - 0.7255E+00, 0.7278E+00, 0.7301E+00, 0.7324E+00,& - 0.7347E+00, 0.7371E+00, 0.7394E+00, 0.7417E+00,& - 0.7440E+00, 0.7464E+00, 0.7487E+00, 0.7511E+00,& - 0.7534E+00, 0.7558E+00, 0.7582E+00, 0.7606E+00,& - 0.7629E+00, 0.7653E+00, 0.7677E+00, 0.7701E+00,& - 0.7725E+00, 0.7749E+00, 0.7774E+00, 0.7798E+00,& - 0.7822E+00, 0.7847E+00, 0.7871E+00, 0.7895E+00,& - 0.7920E+00, 0.7945E+00, 0.7969E+00, 0.7994E+00,& - 0.8019E+00, 0.8044E+00, 0.8069E+00, 0.8094E+00,& - 0.8119E+00, 0.8144E+00, 0.8169E+00, 0.8194E+00,& - 0.8220E+00, 0.8245E+00, 0.8271E+00, 0.8296E+00,& - 0.8322E+00, 0.8348E+00, 0.8373E+00, 0.8399E+00,& - 0.8425E+00, 0.8451E+00, 0.8477E+00, 0.8503E+00,& - 0.8529E+00, 0.8555E+00, 0.8582E+00, 0.8608E+00,& - 0.8635E+00, 0.8661E+00, 0.8688E+00, 0.8714E+00,& - 0.8741E+00, 0.8768E+00, 0.8795E+00, 0.8822E+00,& - 0.8849E+00, 0.8876E+00, 0.8903E+00, 0.8930E+00,& - 0.8958E+00, 0.8985E+00, 0.9013E+00, 0.9040E+00,& - 0.9068E+00, 0.9096E+00, 0.9123E+00, 0.9151E+00,& - 0.9179E+00, 0.9207E+00, 0.9235E+00, 0.9264E+00,& - 0.9292E+00, 0.9320E+00, 0.9349E+00, 0.9377E+00,& - 0.9406E+00, 0.9434E+00, 0.9463E+00, 0.9492E+00,& - 0.9521E+00, 0.9550E+00, 0.9579E+00, 0.9608E+00,& - 0.9638E+00, 0.9667E+00, 0.9697E+00, 0.9726E+00,& - 0.9756E+00, 0.9785E+00, 0.9815E+00, 0.9845E+00,& - 0.9875E+00, 0.9905E+00, 0.9935E+00, 0.9966E+00,& - 0.9996E+00, 0.1003E+01, 0.1006E+01, 0.1009E+01,& - 0.1012E+01, 0.1015E+01, 0.1018E+01, 0.1021E+01,& - 0.1024E+01, 0.1027E+01, 0.1030E+01, 0.1034E+01,& - 0.1037E+01, 0.1040E+01, 0.1043E+01, 0.1046E+01,& - 0.1049E+01, 0.1053E+01, 0.1056E+01, 0.1059E+01,& - 0.1062E+01, 0.1066E+01, 0.1069E+01, 0.1072E+01,& - 0.1075E+01, 0.1079E+01, 0.1082E+01, 0.1085E+01,& - 0.1089E+01, 0.1092E+01, 0.1095E+01, 0.1099E+01,& - 0.1102E+01, 0.1105E+01, 0.1109E+01, 0.1112E+01,& - 0.1115E+01, 0.1119E+01, 0.1122E+01, 0.1126E+01,& - 0.1129E+01, 0.1133E+01, 0.1136E+01, 0.1140E+01,& - 0.1143E+01, 0.1147E+01, 0.1150E+01, 0.1154E+01,& - 0.1157E+01, 0.1161E+01, 0.1164E+01, 0.1168E+01,& - 0.1172E+01, 0.1175E+01, 0.1179E+01, 0.1182E+01,& - 0.1186E+01, 0.1190E+01, 0.1193E+01, 0.1197E+01,& - 0.1201E+01, 0.1204E+01, 0.1208E+01, 0.1212E+01,& - 0.1216E+01, 0.1219E+01, 0.1223E+01, 0.1227E+01,& - 0.1231E+01, 0.1235E+01, 0.1239E+01, 0.1242E+01,& - 0.1246E+01, 0.1250E+01, 0.1254E+01, 0.1258E+01,& - 0.1262E+01, 0.1266E+01, 0.1270E+01, 0.1274E+01,& - 0.1278E+01, 0.1282E+01, 0.1286E+01, 0.1290E+01,& - 0.1294E+01, 0.1298E+01, 0.1302E+01, 0.1306E+01,& - 0.1310E+01, 0.1314E+01, 0.1318E+01, 0.1323E+01,& - 0.1327E+01, 0.1331E+01, 0.1335E+01, 0.1339E+01,& - 0.1344E+01, 0.1348E+01, 0.1352E+01, 0.1356E+01,& - 0.1361E+01, 0.1365E+01, 0.1369E+01, 0.1374E+01,& - 0.1378E+01, 0.1383E+01, 0.1387E+01, 0.1391E+01,& - 0.1396E+01, 0.1400E+01, 0.1405E+01, 0.1409E+01,& - 0.1414E+01, 0.1419E+01, 0.1423E+01, 0.1428E+01,& - 0.1432E+01, 0.1437E+01, 0.1442E+01, 0.1446E+01,& - 0.1451E+01, 0.1456E+01, 0.1460E+01, 0.1465E+01,& - 0.1470E+01, 0.1475E+01, 0.1480E+01, 0.1484E+01,& - 0.1489E+01, 0.1494E+01, 0.1499E+01, 0.1504E+01,& - 0.1509E+01, 0.1514E+01, 0.1519E+01, 0.1524E+01,& - 0.1529E+01, 0.1534E+01, 0.1539E+01, 0.1544E+01,& - 0.1550E+01, 0.1555E+01, 0.1560E+01, 0.1565E+01,& - 0.1570E+01, 0.1576E+01, 0.1581E+01, 0.1586E+01,& - 0.1592E+01, 0.1597E+01, 0.1603E+01, 0.1608E+01,& - 0.1614E+01, 0.1619E+01, 0.1625E+01, 0.1630E+01,& - 0.1636E+01, 0.1641E+01, 0.1647E+01, 0.1653E+01,& - 0.1658E+01, 0.1664E+01, 0.1670E+01, 0.1676E+01,& - 0.1681E+01, 0.1687E+01, 0.1693E+01, 0.1699E+01,& - 0.1705E+01, 0.1711E+01, 0.1717E+01, 0.1723E+01,& - 0.1729E+01, 0.1735E+01, 0.1742E+01, 0.1748E+01,& - 0.1754E+01, 0.1760E+01, 0.1767E+01, 0.1773E+01,& - 0.1779E+01, 0.1786E+01, 0.1792E+01, 0.1799E+01,& - 0.1805E+01, 0.1812E+01, 0.1818E+01, 0.1825E+01,& - 0.1832E+01, 0.1838E+01, 0.1845E+01, 0.1852E+01,& - 0.1859E+01, 0.1866E+01, 0.1873E+01, 0.1880E+01,& - 0.1887E+01, 0.1894E+01, 0.1901E+01, 0.1908E+01,& - 0.1916E+01, 0.1923E+01, 0.1930E+01, 0.1938E+01,& - 0.1945E+01, 0.1952E+01, 0.1960E+01, 0.1968E+01,& - 0.1975E+01, 0.1983E+01, 0.1991E+01, 0.1998E+01,& - 0.2006E+01, 0.2014E+01, 0.2022E+01, 0.2030E+01,& - 0.2038E+01, 0.2046E+01, 0.2055E+01, 0.2063E+01,& - 0.2071E+01, 0.2080E+01, 0.2088E+01, 0.2097E+01,& - 0.2105E+01, 0.2114E+01, 0.2123E+01, 0.2131E+01,& - 0.2140E+01, 0.2149E+01, 0.2158E+01, 0.2167E+01,& - 0.2176E+01, 0.2186E+01, 0.2195E+01, 0.2204E+01,& - 0.2214E+01, 0.2223E+01, 0.2233E+01, 0.2243E+01,& - 0.2253E+01, 0.2263E+01, 0.2273E+01, 0.2283E+01,& - 0.2293E+01, 0.2303E+01, 0.2313E+01, 0.2324E+01,& - 0.2334E+01, 0.2345E+01, 0.2356E+01, 0.2367E+01,& - 0.2378E+01, 0.2389E+01, 0.2400E+01, 0.2411E+01,& - 0.2423E+01, 0.2434E+01, 0.2446E+01, 0.2458E+01,& - 0.2470E+01, 0.2482E+01, 0.2494E+01, 0.2506E+01,& - 0.2519E+01, 0.2531E+01, 0.2544E+01, 0.2557E+01,& - 0.2570E+01, 0.2583E+01, 0.2597E+01, 0.2610E+01,& - 0.2624E+01, 0.2638E+01, 0.2652E+01, 0.2666E+01,& - 0.2680E+01, 0.2695E+01, 0.2710E+01, 0.2724E+01,& - 0.2740E+01, 0.2755E+01, 0.2771E+01, 0.2786E+01,& - 0.2802E+01, 0.2819E+01, 0.2835E+01, 0.2852E+01,& - 0.2869E+01, 0.2886E+01, 0.2904E+01, 0.2921E+01,& - 0.2939E+01, 0.2958E+01, 0.2976E+01, 0.2995E+01,& - 0.3013E+01, 0.3034E+01, 0.3054E+01, 0.3075E+01,& - 0.3095E+01, 0.3117E+01, 0.3138E+01, 0.3160E+01,& - 0.3182E+01, 0.3205E+01, 0.3228E+01, 0.3252E+01,& - 0.3276E+01, 0.3301E+01, 0.3327E+01, 0.3352E+01,& - 0.3379E+01, 0.3406E+01, 0.3434E+01, 0.3462E+01,& - 0.3492E+01, 0.3522E+01, 0.3553E+01, 0.3584E+01,& - 0.3617E+01, 0.3650E+01, 0.3685E+01, 0.3721E+01,& - 0.3757E+01, 0.3795E+01, 0.3835E+01, 0.3875E+01,& - 0.3917E+01, 0.3961E+01, 0.4007E+01, 0.4054E+01,& - 0.4104E+01, 0.4155E+01, 0.4209E+01, 0.4266E+01,& - 0.4326E+01, 0.4389E+01, 0.4455E+01, 0.4526E+01,& - 0.4601E+01, 0.4682E+01, 0.4768E+01, 0.4861E+01,& - 0.4963E+01, 0.5075E+01, 0.5198E+01, 0.5336E+01,& - 0.5492E+01, 0.5673E+01, 0.5887E+01, 0.6149E+01,& - 0.1000E-04, 0.1829E-03, 0.4421E-03, 0.7338E-03/) - xcw(:, 42) = (/& - 0.1000E-04, 0.1829E-03, 0.4421E-03, 0.7338E-03,& - 0.1058E-02, 0.1404E-02, 0.1771E-02, 0.2160E-02,& - 0.2560E-02, 0.2970E-02, 0.3391E-02, 0.3834E-02,& - 0.4277E-02, 0.4742E-02, 0.5206E-02, 0.5682E-02,& - 0.6168E-02, 0.6665E-02, 0.7162E-02, 0.7670E-02,& - 0.8188E-02, 0.8717E-02, 0.9247E-02, 0.9787E-02,& - 0.1033E-01, 0.1088E-01, 0.1143E-01, 0.1200E-01,& - 0.1256E-01, 0.1314E-01, 0.1372E-01, 0.1430E-01,& - 0.1490E-01, 0.1549E-01, 0.1610E-01, 0.1670E-01,& - 0.1731E-01, 0.1792E-01, 0.1855E-01, 0.1918E-01,& - 0.1980E-01, 0.2044E-01, 0.2108E-01, 0.2171E-01,& - 0.2236E-01, 0.2302E-01, 0.2367E-01, 0.2433E-01,& - 0.2500E-01, 0.2567E-01, 0.2634E-01, 0.2702E-01,& - 0.2770E-01, 0.2838E-01, 0.2907E-01, 0.2976E-01,& - 0.3045E-01, 0.3116E-01, 0.3186E-01, 0.3257E-01,& - 0.3327E-01, 0.3399E-01, 0.3471E-01, 0.3543E-01,& - 0.3616E-01, 0.3688E-01, 0.3762E-01, 0.3835E-01,& - 0.3909E-01, 0.3983E-01, 0.4058E-01, 0.4132E-01,& - 0.4208E-01, 0.4283E-01, 0.4359E-01, 0.4436E-01,& - 0.4511E-01, 0.4589E-01, 0.4666E-01, 0.4744E-01,& - 0.4821E-01, 0.4899E-01, 0.4977E-01, 0.5056E-01,& - 0.5135E-01, 0.5215E-01, 0.5295E-01, 0.5373E-01,& - 0.5455E-01, 0.5534E-01, 0.5615E-01, 0.5697E-01,& - 0.5779E-01, 0.5860E-01, 0.5942E-01, 0.6024E-01,& - 0.6107E-01, 0.6189E-01, 0.6272E-01, 0.6357E-01,& - 0.6440E-01, 0.6524E-01, 0.6608E-01, 0.6693E-01,& - 0.6778E-01, 0.6863E-01, 0.6949E-01, 0.7034E-01,& - 0.7120E-01, 0.7206E-01, 0.7292E-01, 0.7380E-01,& - 0.7466E-01, 0.7554E-01, 0.7641E-01, 0.7730E-01,& - 0.7817E-01, 0.7906E-01, 0.7994E-01, 0.8084E-01,& - 0.8173E-01, 0.8262E-01, 0.8352E-01, 0.8443E-01,& - 0.8532E-01, 0.8623E-01, 0.8714E-01, 0.8806E-01,& - 0.8896E-01, 0.8988E-01, 0.9080E-01, 0.9172E-01,& - 0.9265E-01, 0.9358E-01, 0.9451E-01, 0.9544E-01,& - 0.9638E-01, 0.9730E-01, 0.9824E-01, 0.9920E-01,& - 0.1001E+00, 0.1011E+00, 0.1020E+00, 0.1030E+00,& - 0.1039E+00, 0.1049E+00, 0.1059E+00, 0.1068E+00,& - 0.1078E+00, 0.1088E+00, 0.1097E+00, 0.1107E+00,& - 0.1117E+00, 0.1127E+00, 0.1136E+00, 0.1146E+00,& - 0.1156E+00, 0.1166E+00, 0.1176E+00, 0.1186E+00,& - 0.1196E+00, 0.1206E+00, 0.1216E+00, 0.1226E+00,& - 0.1236E+00, 0.1246E+00, 0.1256E+00, 0.1266E+00,& - 0.1276E+00, 0.1287E+00, 0.1297E+00, 0.1307E+00,& - 0.1317E+00, 0.1328E+00, 0.1338E+00, 0.1348E+00,& - 0.1359E+00, 0.1369E+00, 0.1379E+00, 0.1390E+00,& - 0.1400E+00, 0.1411E+00, 0.1421E+00, 0.1432E+00,& - 0.1442E+00, 0.1453E+00, 0.1464E+00, 0.1474E+00,& - 0.1485E+00, 0.1496E+00, 0.1506E+00, 0.1517E+00,& - 0.1528E+00, 0.1539E+00, 0.1550E+00, 0.1560E+00,& - 0.1571E+00, 0.1582E+00, 0.1593E+00, 0.1604E+00,& - 0.1615E+00, 0.1626E+00, 0.1637E+00, 0.1648E+00,& - 0.1659E+00, 0.1670E+00, 0.1681E+00, 0.1693E+00,& - 0.1704E+00, 0.1715E+00, 0.1726E+00, 0.1737E+00,& - 0.1749E+00, 0.1760E+00, 0.1771E+00, 0.1783E+00,& - 0.1794E+00, 0.1805E+00, 0.1817E+00, 0.1828E+00,& - 0.1840E+00, 0.1851E+00, 0.1863E+00, 0.1874E+00,& - 0.1886E+00, 0.1897E+00, 0.1909E+00, 0.1921E+00,& - 0.1932E+00, 0.1944E+00, 0.1956E+00, 0.1968E+00,& - 0.1979E+00, 0.1991E+00, 0.2003E+00, 0.2015E+00,& - 0.2027E+00, 0.2039E+00, 0.2051E+00, 0.2063E+00,& - 0.2075E+00, 0.2087E+00, 0.2099E+00, 0.2111E+00,& - 0.2123E+00, 0.2135E+00, 0.2147E+00, 0.2159E+00,& - 0.2171E+00, 0.2184E+00, 0.2196E+00, 0.2208E+00,& - 0.2221E+00, 0.2233E+00, 0.2245E+00, 0.2258E+00,& - 0.2270E+00, 0.2283E+00, 0.2295E+00, 0.2307E+00,& - 0.2320E+00, 0.2333E+00, 0.2345E+00, 0.2358E+00,& - 0.2370E+00, 0.2383E+00, 0.2396E+00, 0.2408E+00,& - 0.2421E+00, 0.2434E+00, 0.2447E+00, 0.2459E+00,& - 0.2472E+00, 0.2485E+00, 0.2498E+00, 0.2511E+00,& - 0.2524E+00, 0.2537E+00, 0.2550E+00, 0.2563E+00,& - 0.2576E+00, 0.2589E+00, 0.2602E+00, 0.2615E+00,& - 0.2628E+00, 0.2642E+00, 0.2655E+00, 0.2668E+00,& - 0.2681E+00, 0.2695E+00, 0.2708E+00, 0.2721E+00,& - 0.2735E+00, 0.2748E+00, 0.2762E+00, 0.2775E+00,& - 0.2789E+00, 0.2802E+00, 0.2816E+00, 0.2829E+00,& - 0.2843E+00, 0.2857E+00, 0.2870E+00, 0.2884E+00,& - 0.2898E+00, 0.2911E+00, 0.2925E+00, 0.2939E+00,& - 0.2953E+00, 0.2967E+00, 0.2981E+00, 0.2994E+00,& - 0.3008E+00, 0.3022E+00, 0.3036E+00, 0.3051E+00,& - 0.3065E+00, 0.3079E+00, 0.3093E+00, 0.3107E+00,& - 0.3121E+00, 0.3135E+00, 0.3150E+00, 0.3164E+00,& - 0.3178E+00, 0.3193E+00, 0.3207E+00, 0.3221E+00,& - 0.3236E+00, 0.3250E+00, 0.3265E+00, 0.3279E+00,& - 0.3294E+00, 0.3308E+00, 0.3323E+00, 0.3338E+00,& - 0.3352E+00, 0.3367E+00, 0.3382E+00, 0.3396E+00,& - 0.3411E+00, 0.3426E+00, 0.3441E+00, 0.3456E+00,& - 0.3471E+00, 0.3486E+00, 0.3501E+00, 0.3516E+00,& - 0.3531E+00, 0.3546E+00, 0.3561E+00, 0.3576E+00,& - 0.3591E+00, 0.3606E+00, 0.3622E+00, 0.3637E+00,& - 0.3652E+00, 0.3668E+00, 0.3683E+00, 0.3698E+00,& - 0.3714E+00, 0.3729E+00, 0.3745E+00, 0.3760E+00,& - 0.3776E+00, 0.3791E+00, 0.3807E+00, 0.3823E+00,& - 0.3838E+00, 0.3854E+00, 0.3870E+00, 0.3886E+00,& - 0.3901E+00, 0.3917E+00, 0.3933E+00, 0.3949E+00,& - 0.3965E+00, 0.3981E+00, 0.3997E+00, 0.4013E+00,& - 0.4029E+00, 0.4045E+00, 0.4061E+00, 0.4077E+00,& - 0.4094E+00, 0.4110E+00, 0.4126E+00, 0.4143E+00,& - 0.4159E+00, 0.4175E+00, 0.4192E+00, 0.4208E+00,& - 0.4225E+00, 0.4241E+00, 0.4258E+00, 0.4274E+00,& - 0.4291E+00, 0.4308E+00, 0.4324E+00, 0.4341E+00,& - 0.4358E+00, 0.4375E+00, 0.4392E+00, 0.4409E+00,& - 0.4426E+00, 0.4443E+00, 0.4459E+00, 0.4477E+00,& - 0.4494E+00, 0.4511E+00, 0.4528E+00, 0.4545E+00,& - 0.4562E+00, 0.4580E+00, 0.4597E+00, 0.4614E+00,& - 0.4631E+00, 0.4649E+00, 0.4666E+00, 0.4684E+00,& - 0.4701E+00, 0.4719E+00, 0.4736E+00, 0.4754E+00,& - 0.4772E+00, 0.4790E+00, 0.4807E+00, 0.4825E+00,& - 0.4843E+00, 0.4861E+00, 0.4879E+00, 0.4897E+00,& - 0.4915E+00, 0.4933E+00, 0.4951E+00, 0.4969E+00,& - 0.4987E+00, 0.5005E+00, 0.5023E+00, 0.5042E+00,& - 0.5060E+00, 0.5078E+00, 0.5097E+00, 0.5115E+00,& - 0.5134E+00, 0.5152E+00, 0.5171E+00, 0.5189E+00,& - 0.5208E+00, 0.5227E+00, 0.5245E+00, 0.5264E+00,& - 0.5283E+00, 0.5302E+00, 0.5321E+00, 0.5339E+00,& - 0.5358E+00, 0.5377E+00, 0.5396E+00, 0.5416E+00,& - 0.5435E+00, 0.5454E+00, 0.5473E+00, 0.5492E+00,& - 0.5512E+00, 0.5531E+00, 0.5550E+00, 0.5570E+00,& - 0.5589E+00, 0.5609E+00, 0.5629E+00, 0.5648E+00,& - 0.5668E+00, 0.5688E+00, 0.5707E+00, 0.5727E+00,& - 0.5747E+00, 0.5767E+00, 0.5787E+00, 0.5807E+00,& - 0.5827E+00, 0.5847E+00, 0.5867E+00, 0.5887E+00,& - 0.5907E+00, 0.5928E+00, 0.5948E+00, 0.5968E+00,& - 0.5989E+00, 0.6009E+00, 0.6030E+00, 0.6050E+00,& - 0.6071E+00, 0.6091E+00, 0.6112E+00, 0.6133E+00,& - 0.6154E+00, 0.6175E+00, 0.6195E+00, 0.6216E+00,& - 0.6237E+00, 0.6258E+00, 0.6279E+00, 0.6301E+00,& - 0.6322E+00, 0.6343E+00, 0.6364E+00, 0.6386E+00,& - 0.6407E+00, 0.6429E+00, 0.6450E+00, 0.6472E+00,& - 0.6493E+00, 0.6515E+00, 0.6536E+00, 0.6558E+00,& - 0.6580E+00, 0.6602E+00, 0.6624E+00, 0.6646E+00,& - 0.6668E+00, 0.6690E+00, 0.6712E+00, 0.6734E+00,& - 0.6756E+00, 0.6779E+00, 0.6801E+00, 0.6823E+00,& - 0.6846E+00, 0.6868E+00, 0.6891E+00, 0.6914E+00,& - 0.6936E+00, 0.6959E+00, 0.6982E+00, 0.7005E+00,& - 0.7028E+00, 0.7051E+00, 0.7074E+00, 0.7097E+00,& - 0.7120E+00, 0.7143E+00, 0.7166E+00, 0.7190E+00,& - 0.7213E+00, 0.7236E+00, 0.7260E+00, 0.7283E+00,& - 0.7307E+00, 0.7331E+00, 0.7354E+00, 0.7378E+00,& - 0.7402E+00, 0.7426E+00, 0.7450E+00, 0.7474E+00,& - 0.7498E+00, 0.7522E+00, 0.7546E+00, 0.7571E+00,& - 0.7595E+00, 0.7619E+00, 0.7644E+00, 0.7669E+00,& - 0.7693E+00, 0.7718E+00, 0.7743E+00, 0.7767E+00,& - 0.7792E+00, 0.7817E+00, 0.7842E+00, 0.7867E+00,& - 0.7892E+00, 0.7918E+00, 0.7943E+00, 0.7968E+00,& - 0.7993E+00, 0.8019E+00, 0.8044E+00, 0.8070E+00,& - 0.8096E+00, 0.8122E+00, 0.8147E+00, 0.8173E+00,& - 0.8199E+00, 0.8225E+00, 0.8251E+00, 0.8277E+00,& - 0.8304E+00, 0.8330E+00, 0.8356E+00, 0.8383E+00,& - 0.8409E+00, 0.8436E+00, 0.8463E+00, 0.8489E+00,& - 0.8516E+00, 0.8543E+00, 0.8570E+00, 0.8597E+00,& - 0.8624E+00, 0.8651E+00, 0.8679E+00, 0.8706E+00,& - 0.8733E+00, 0.8761E+00, 0.8789E+00, 0.8816E+00,& - 0.8844E+00, 0.8872E+00, 0.8900E+00, 0.8928E+00,& - 0.8956E+00, 0.8984E+00, 0.9012E+00, 0.9040E+00,& - 0.9069E+00, 0.9097E+00, 0.9126E+00, 0.9154E+00,& - 0.9183E+00, 0.9212E+00, 0.9241E+00, 0.9270E+00,& - 0.9299E+00, 0.9328E+00, 0.9357E+00, 0.9387E+00,& - 0.9416E+00, 0.9446E+00, 0.9475E+00, 0.9505E+00,& - 0.9535E+00, 0.9564E+00, 0.9594E+00, 0.9624E+00,& - 0.9654E+00, 0.9685E+00, 0.9715E+00, 0.9745E+00,& - 0.9776E+00, 0.9807E+00, 0.9837E+00, 0.9868E+00,& - 0.9899E+00, 0.9930E+00, 0.9961E+00, 0.9992E+00,& - 0.1002E+01, 0.1005E+01, 0.1009E+01, 0.1012E+01,& - 0.1015E+01, 0.1018E+01, 0.1021E+01, 0.1024E+01,& - 0.1028E+01, 0.1031E+01, 0.1034E+01, 0.1037E+01,& - 0.1041E+01, 0.1044E+01, 0.1047E+01, 0.1050E+01,& - 0.1054E+01, 0.1057E+01, 0.1060E+01, 0.1064E+01,& - 0.1067E+01, 0.1070E+01, 0.1074E+01, 0.1077E+01,& - 0.1080E+01, 0.1084E+01, 0.1087E+01, 0.1091E+01,& - 0.1094E+01, 0.1097E+01, 0.1101E+01, 0.1104E+01,& - 0.1108E+01, 0.1111E+01, 0.1115E+01, 0.1118E+01,& - 0.1122E+01, 0.1125E+01, 0.1129E+01, 0.1132E+01,& - 0.1136E+01, 0.1140E+01, 0.1143E+01, 0.1147E+01,& - 0.1150E+01, 0.1154E+01, 0.1158E+01, 0.1161E+01,& - 0.1165E+01, 0.1169E+01, 0.1172E+01, 0.1176E+01,& - 0.1180E+01, 0.1184E+01, 0.1187E+01, 0.1191E+01,& - 0.1195E+01, 0.1199E+01, 0.1202E+01, 0.1206E+01,& - 0.1210E+01, 0.1214E+01, 0.1218E+01, 0.1222E+01,& - 0.1226E+01, 0.1229E+01, 0.1233E+01, 0.1237E+01,& - 0.1241E+01, 0.1245E+01, 0.1249E+01, 0.1253E+01,& - 0.1257E+01, 0.1261E+01, 0.1265E+01, 0.1269E+01,& - 0.1273E+01, 0.1277E+01, 0.1282E+01, 0.1285E+01,& - 0.1290E+01, 0.1294E+01, 0.1298E+01, 0.1302E+01,& - 0.1307E+01, 0.1311E+01, 0.1315E+01, 0.1319E+01,& - 0.1323E+01, 0.1328E+01, 0.1332E+01, 0.1336E+01,& - 0.1341E+01, 0.1345E+01, 0.1349E+01, 0.1354E+01,& - 0.1358E+01, 0.1363E+01, 0.1367E+01, 0.1372E+01,& - 0.1376E+01, 0.1381E+01, 0.1385E+01, 0.1390E+01,& - 0.1394E+01, 0.1399E+01, 0.1403E+01, 0.1408E+01,& - 0.1413E+01, 0.1417E+01, 0.1422E+01, 0.1427E+01,& - 0.1431E+01, 0.1436E+01, 0.1441E+01, 0.1446E+01,& - 0.1451E+01, 0.1455E+01, 0.1460E+01, 0.1465E+01,& - 0.1470E+01, 0.1475E+01, 0.1480E+01, 0.1485E+01,& - 0.1490E+01, 0.1495E+01, 0.1500E+01, 0.1505E+01,& - 0.1510E+01, 0.1515E+01, 0.1520E+01, 0.1525E+01,& - 0.1531E+01, 0.1536E+01, 0.1541E+01, 0.1546E+01,& - 0.1552E+01, 0.1557E+01, 0.1562E+01, 0.1568E+01,& - 0.1573E+01, 0.1578E+01, 0.1584E+01, 0.1589E+01,& - 0.1595E+01, 0.1600E+01, 0.1606E+01, 0.1612E+01,& - 0.1617E+01, 0.1623E+01, 0.1628E+01, 0.1634E+01,& - 0.1640E+01, 0.1646E+01, 0.1651E+01, 0.1657E+01,& - 0.1663E+01, 0.1669E+01, 0.1675E+01, 0.1681E+01,& - 0.1687E+01, 0.1693E+01, 0.1699E+01, 0.1705E+01,& - 0.1711E+01, 0.1717E+01, 0.1723E+01, 0.1730E+01,& - 0.1736E+01, 0.1742E+01, 0.1749E+01, 0.1755E+01,& - 0.1761E+01, 0.1768E+01, 0.1774E+01, 0.1781E+01,& - 0.1787E+01, 0.1794E+01, 0.1800E+01, 0.1807E+01,& - 0.1814E+01, 0.1821E+01, 0.1827E+01, 0.1834E+01,& - 0.1841E+01, 0.1848E+01, 0.1855E+01, 0.1862E+01,& - 0.1869E+01, 0.1876E+01, 0.1883E+01, 0.1891E+01,& - 0.1898E+01, 0.1905E+01, 0.1912E+01, 0.1920E+01,& - 0.1927E+01, 0.1935E+01, 0.1942E+01, 0.1950E+01,& - 0.1957E+01, 0.1965E+01, 0.1973E+01, 0.1981E+01,& - 0.1989E+01, 0.1996E+01, 0.2004E+01, 0.2012E+01,& - 0.2020E+01, 0.2029E+01, 0.2037E+01, 0.2045E+01,& - 0.2053E+01, 0.2062E+01, 0.2070E+01, 0.2079E+01,& - 0.2087E+01, 0.2096E+01, 0.2105E+01, 0.2113E+01,& - 0.2122E+01, 0.2131E+01, 0.2140E+01, 0.2149E+01,& - 0.2158E+01, 0.2168E+01, 0.2177E+01, 0.2186E+01,& - 0.2196E+01, 0.2205E+01, 0.2215E+01, 0.2224E+01,& - 0.2234E+01, 0.2244E+01, 0.2254E+01, 0.2264E+01,& - 0.2274E+01, 0.2284E+01, 0.2295E+01, 0.2305E+01,& - 0.2315E+01, 0.2326E+01, 0.2337E+01, 0.2348E+01,& - 0.2358E+01, 0.2369E+01, 0.2381E+01, 0.2392E+01,& - 0.2403E+01, 0.2414E+01, 0.2426E+01, 0.2438E+01,& - 0.2449E+01, 0.2461E+01, 0.2473E+01, 0.2486E+01,& - 0.2498E+01, 0.2510E+01, 0.2523E+01, 0.2536E+01,& - 0.2548E+01, 0.2561E+01, 0.2575E+01, 0.2588E+01,& - 0.2601E+01, 0.2615E+01, 0.2629E+01, 0.2643E+01,& - 0.2657E+01, 0.2671E+01, 0.2685E+01, 0.2700E+01,& - 0.2715E+01, 0.2730E+01, 0.2745E+01, 0.2761E+01,& - 0.2776E+01, 0.2792E+01, 0.2808E+01, 0.2825E+01,& - 0.2841E+01, 0.2858E+01, 0.2875E+01, 0.2892E+01,& - 0.2910E+01, 0.2928E+01, 0.2946E+01, 0.2964E+01,& - 0.2983E+01, 0.3002E+01, 0.3021E+01, 0.3041E+01,& - 0.3060E+01, 0.3081E+01, 0.3101E+01, 0.3122E+01,& - 0.3144E+01, 0.3166E+01, 0.3188E+01, 0.3211E+01,& - 0.3234E+01, 0.3257E+01, 0.3281E+01, 0.3306E+01,& - 0.3331E+01, 0.3357E+01, 0.3383E+01, 0.3410E+01,& - 0.3437E+01, 0.3465E+01, 0.3494E+01, 0.3523E+01,& - 0.3554E+01, 0.3585E+01, 0.3617E+01, 0.3649E+01,& - 0.3683E+01, 0.3718E+01, 0.3754E+01, 0.3791E+01,& - 0.3829E+01, 0.3868E+01, 0.3909E+01, 0.3951E+01,& - 0.3995E+01, 0.4040E+01, 0.4087E+01, 0.4136E+01,& - 0.4187E+01, 0.4241E+01, 0.4297E+01, 0.4356E+01,& - 0.4418E+01, 0.4483E+01, 0.4552E+01, 0.4625E+01,& - 0.4703E+01, 0.4787E+01, 0.4876E+01, 0.4973E+01,& - 0.5079E+01, 0.5195E+01, 0.5323E+01, 0.5466E+01,& - 0.5628E+01, 0.5816E+01, 0.6038E+01, 0.6311E+01,& - 0.1000E-04, 0.1207E-03, 0.3090E-03, 0.5416E-03/) - xcw(:, 43) = (/& - 0.1000E-04, 0.1207E-03, 0.3090E-03, 0.5416E-03,& - 0.7963E-03, 0.1073E-02, 0.1361E-02, 0.1671E-02,& - 0.1992E-02, 0.2336E-02, 0.2690E-02, 0.3044E-02,& - 0.3421E-02, 0.3809E-02, 0.4196E-02, 0.4595E-02,& - 0.5005E-02, 0.5425E-02, 0.5857E-02, 0.6289E-02,& - 0.6732E-02, 0.7186E-02, 0.7640E-02, 0.8105E-02,& - 0.8582E-02, 0.9058E-02, 0.9545E-02, 0.1003E-01,& - 0.1053E-01, 0.1103E-01, 0.1154E-01, 0.1206E-01,& - 0.1258E-01, 0.1310E-01, 0.1363E-01, 0.1417E-01,& - 0.1472E-01, 0.1526E-01, 0.1581E-01, 0.1637E-01,& - 0.1693E-01, 0.1750E-01, 0.1806E-01, 0.1864E-01,& - 0.1922E-01, 0.1981E-01, 0.2040E-01, 0.2100E-01,& - 0.2159E-01, 0.2219E-01, 0.2280E-01, 0.2341E-01,& - 0.2403E-01, 0.2464E-01, 0.2527E-01, 0.2590E-01,& - 0.2653E-01, 0.2716E-01, 0.2781E-01, 0.2845E-01,& - 0.2909E-01, 0.2975E-01, 0.3040E-01, 0.3106E-01,& - 0.3173E-01, 0.3239E-01, 0.3306E-01, 0.3373E-01,& - 0.3441E-01, 0.3509E-01, 0.3578E-01, 0.3647E-01,& - 0.3715E-01, 0.3785E-01, 0.3855E-01, 0.3926E-01,& - 0.3997E-01, 0.4068E-01, 0.4138E-01, 0.4210E-01,& - 0.4282E-01, 0.4354E-01, 0.4426E-01, 0.4499E-01,& - 0.4573E-01, 0.4647E-01, 0.4721E-01, 0.4795E-01,& - 0.4869E-01, 0.4945E-01, 0.5020E-01, 0.5095E-01,& - 0.5171E-01, 0.5247E-01, 0.5323E-01, 0.5401E-01,& - 0.5477E-01, 0.5555E-01, 0.5632E-01, 0.5711E-01,& - 0.5790E-01, 0.5868E-01, 0.5947E-01, 0.6026E-01,& - 0.6105E-01, 0.6185E-01, 0.6266E-01, 0.6346E-01,& - 0.6426E-01, 0.6508E-01, 0.6589E-01, 0.6671E-01,& - 0.6753E-01, 0.6835E-01, 0.6918E-01, 0.7000E-01,& - 0.7084E-01, 0.7167E-01, 0.7250E-01, 0.7335E-01,& - 0.7419E-01, 0.7504E-01, 0.7588E-01, 0.7673E-01,& - 0.7759E-01, 0.7845E-01, 0.7931E-01, 0.8017E-01,& - 0.8104E-01, 0.8191E-01, 0.8278E-01, 0.8366E-01,& - 0.8453E-01, 0.8541E-01, 0.8629E-01, 0.8718E-01,& - 0.8806E-01, 0.8896E-01, 0.8985E-01, 0.9074E-01,& - 0.9165E-01, 0.9255E-01, 0.9346E-01, 0.9437E-01,& - 0.9527E-01, 0.9618E-01, 0.9710E-01, 0.9802E-01,& - 0.9894E-01, 0.9987E-01, 0.1008E+00, 0.1017E+00,& - 0.1027E+00, 0.1036E+00, 0.1045E+00, 0.1055E+00,& - 0.1064E+00, 0.1074E+00, 0.1083E+00, 0.1093E+00,& - 0.1102E+00, 0.1112E+00, 0.1121E+00, 0.1131E+00,& - 0.1141E+00, 0.1150E+00, 0.1160E+00, 0.1170E+00,& - 0.1179E+00, 0.1189E+00, 0.1199E+00, 0.1209E+00,& - 0.1219E+00, 0.1229E+00, 0.1239E+00, 0.1249E+00,& - 0.1258E+00, 0.1268E+00, 0.1279E+00, 0.1289E+00,& - 0.1299E+00, 0.1309E+00, 0.1319E+00, 0.1329E+00,& - 0.1339E+00, 0.1349E+00, 0.1360E+00, 0.1370E+00,& - 0.1380E+00, 0.1391E+00, 0.1401E+00, 0.1411E+00,& - 0.1422E+00, 0.1432E+00, 0.1443E+00, 0.1453E+00,& - 0.1464E+00, 0.1474E+00, 0.1485E+00, 0.1495E+00,& - 0.1506E+00, 0.1517E+00, 0.1527E+00, 0.1538E+00,& - 0.1549E+00, 0.1559E+00, 0.1570E+00, 0.1581E+00,& - 0.1592E+00, 0.1603E+00, 0.1614E+00, 0.1625E+00,& - 0.1635E+00, 0.1646E+00, 0.1657E+00, 0.1668E+00,& - 0.1679E+00, 0.1691E+00, 0.1702E+00, 0.1713E+00,& - 0.1724E+00, 0.1735E+00, 0.1746E+00, 0.1758E+00,& - 0.1769E+00, 0.1780E+00, 0.1791E+00, 0.1803E+00,& - 0.1814E+00, 0.1826E+00, 0.1837E+00, 0.1848E+00,& - 0.1860E+00, 0.1871E+00, 0.1883E+00, 0.1895E+00,& - 0.1906E+00, 0.1918E+00, 0.1929E+00, 0.1941E+00,& - 0.1953E+00, 0.1965E+00, 0.1976E+00, 0.1988E+00,& - 0.2000E+00, 0.2012E+00, 0.2024E+00, 0.2035E+00,& - 0.2047E+00, 0.2059E+00, 0.2071E+00, 0.2083E+00,& - 0.2095E+00, 0.2107E+00, 0.2120E+00, 0.2132E+00,& - 0.2144E+00, 0.2156E+00, 0.2168E+00, 0.2180E+00,& - 0.2193E+00, 0.2205E+00, 0.2217E+00, 0.2230E+00,& - 0.2242E+00, 0.2254E+00, 0.2267E+00, 0.2279E+00,& - 0.2292E+00, 0.2304E+00, 0.2317E+00, 0.2329E+00,& - 0.2342E+00, 0.2355E+00, 0.2367E+00, 0.2380E+00,& - 0.2393E+00, 0.2405E+00, 0.2418E+00, 0.2431E+00,& - 0.2444E+00, 0.2457E+00, 0.2469E+00, 0.2482E+00,& - 0.2495E+00, 0.2508E+00, 0.2521E+00, 0.2534E+00,& - 0.2547E+00, 0.2561E+00, 0.2574E+00, 0.2587E+00,& - 0.2600E+00, 0.2613E+00, 0.2626E+00, 0.2640E+00,& - 0.2653E+00, 0.2666E+00, 0.2680E+00, 0.2693E+00,& - 0.2706E+00, 0.2720E+00, 0.2733E+00, 0.2747E+00,& - 0.2760E+00, 0.2774E+00, 0.2788E+00, 0.2801E+00,& - 0.2815E+00, 0.2829E+00, 0.2842E+00, 0.2856E+00,& - 0.2870E+00, 0.2884E+00, 0.2898E+00, 0.2911E+00,& - 0.2925E+00, 0.2939E+00, 0.2953E+00, 0.2967E+00,& - 0.2981E+00, 0.2995E+00, 0.3009E+00, 0.3023E+00,& - 0.3038E+00, 0.3052E+00, 0.3066E+00, 0.3080E+00,& - 0.3094E+00, 0.3109E+00, 0.3123E+00, 0.3138E+00,& - 0.3152E+00, 0.3166E+00, 0.3181E+00, 0.3195E+00,& - 0.3210E+00, 0.3224E+00, 0.3239E+00, 0.3254E+00,& - 0.3268E+00, 0.3283E+00, 0.3298E+00, 0.3312E+00,& - 0.3327E+00, 0.3342E+00, 0.3357E+00, 0.3372E+00,& - 0.3387E+00, 0.3402E+00, 0.3417E+00, 0.3432E+00,& - 0.3447E+00, 0.3462E+00, 0.3477E+00, 0.3492E+00,& - 0.3507E+00, 0.3522E+00, 0.3538E+00, 0.3553E+00,& - 0.3568E+00, 0.3584E+00, 0.3599E+00, 0.3614E+00,& - 0.3630E+00, 0.3645E+00, 0.3661E+00, 0.3676E+00,& - 0.3692E+00, 0.3708E+00, 0.3723E+00, 0.3739E+00,& - 0.3755E+00, 0.3771E+00, 0.3786E+00, 0.3802E+00,& - 0.3818E+00, 0.3834E+00, 0.3850E+00, 0.3866E+00,& - 0.3882E+00, 0.3898E+00, 0.3914E+00, 0.3930E+00,& - 0.3946E+00, 0.3962E+00, 0.3979E+00, 0.3995E+00,& - 0.4011E+00, 0.4028E+00, 0.4044E+00, 0.4060E+00,& - 0.4077E+00, 0.4093E+00, 0.4110E+00, 0.4126E+00,& - 0.4143E+00, 0.4160E+00, 0.4176E+00, 0.4193E+00,& - 0.4210E+00, 0.4226E+00, 0.4243E+00, 0.4260E+00,& - 0.4277E+00, 0.4294E+00, 0.4311E+00, 0.4328E+00,& - 0.4345E+00, 0.4362E+00, 0.4379E+00, 0.4396E+00,& - 0.4414E+00, 0.4431E+00, 0.4448E+00, 0.4465E+00,& - 0.4483E+00, 0.4500E+00, 0.4518E+00, 0.4535E+00,& - 0.4553E+00, 0.4570E+00, 0.4588E+00, 0.4605E+00,& - 0.4623E+00, 0.4641E+00, 0.4658E+00, 0.4676E+00,& - 0.4694E+00, 0.4712E+00, 0.4730E+00, 0.4748E+00,& - 0.4766E+00, 0.4784E+00, 0.4802E+00, 0.4820E+00,& - 0.4838E+00, 0.4856E+00, 0.4875E+00, 0.4893E+00,& - 0.4911E+00, 0.4930E+00, 0.4948E+00, 0.4966E+00,& - 0.4985E+00, 0.5003E+00, 0.5022E+00, 0.5041E+00,& - 0.5059E+00, 0.5078E+00, 0.5097E+00, 0.5116E+00,& - 0.5134E+00, 0.5153E+00, 0.5172E+00, 0.5191E+00,& - 0.5210E+00, 0.5229E+00, 0.5248E+00, 0.5268E+00,& - 0.5287E+00, 0.5306E+00, 0.5325E+00, 0.5345E+00,& - 0.5364E+00, 0.5383E+00, 0.5403E+00, 0.5422E+00,& - 0.5442E+00, 0.5462E+00, 0.5481E+00, 0.5501E+00,& - 0.5521E+00, 0.5540E+00, 0.5560E+00, 0.5580E+00,& - 0.5600E+00, 0.5620E+00, 0.5640E+00, 0.5660E+00,& - 0.5680E+00, 0.5701E+00, 0.5721E+00, 0.5741E+00,& - 0.5761E+00, 0.5782E+00, 0.5802E+00, 0.5823E+00,& - 0.5843E+00, 0.5864E+00, 0.5884E+00, 0.5905E+00,& - 0.5926E+00, 0.5946E+00, 0.5967E+00, 0.5988E+00,& - 0.6009E+00, 0.6030E+00, 0.6051E+00, 0.6072E+00,& - 0.6093E+00, 0.6114E+00, 0.6136E+00, 0.6157E+00,& - 0.6178E+00, 0.6200E+00, 0.6221E+00, 0.6243E+00,& - 0.6264E+00, 0.6286E+00, 0.6307E+00, 0.6329E+00,& - 0.6351E+00, 0.6373E+00, 0.6394E+00, 0.6416E+00,& - 0.6438E+00, 0.6460E+00, 0.6482E+00, 0.6505E+00,& - 0.6527E+00, 0.6549E+00, 0.6571E+00, 0.6594E+00,& - 0.6616E+00, 0.6639E+00, 0.6661E+00, 0.6684E+00,& - 0.6706E+00, 0.6729E+00, 0.6752E+00, 0.6775E+00,& - 0.6798E+00, 0.6820E+00, 0.6843E+00, 0.6867E+00,& - 0.6890E+00, 0.6913E+00, 0.6936E+00, 0.6959E+00,& - 0.6983E+00, 0.7006E+00, 0.7030E+00, 0.7053E+00,& - 0.7077E+00, 0.7100E+00, 0.7124E+00, 0.7148E+00,& - 0.7172E+00, 0.7196E+00, 0.7220E+00, 0.7244E+00,& - 0.7268E+00, 0.7292E+00, 0.7316E+00, 0.7340E+00,& - 0.7365E+00, 0.7389E+00, 0.7414E+00, 0.7438E+00,& - 0.7463E+00, 0.7487E+00, 0.7512E+00, 0.7537E+00,& - 0.7562E+00, 0.7587E+00, 0.7612E+00, 0.7637E+00,& - 0.7662E+00, 0.7687E+00, 0.7713E+00, 0.7738E+00,& - 0.7763E+00, 0.7789E+00, 0.7814E+00, 0.7840E+00,& - 0.7866E+00, 0.7891E+00, 0.7917E+00, 0.7943E+00,& - 0.7969E+00, 0.7995E+00, 0.8021E+00, 0.8048E+00,& - 0.8074E+00, 0.8100E+00, 0.8127E+00, 0.8153E+00,& - 0.8180E+00, 0.8206E+00, 0.8233E+00, 0.8260E+00,& - 0.8287E+00, 0.8314E+00, 0.8341E+00, 0.8368E+00,& - 0.8395E+00, 0.8422E+00, 0.8450E+00, 0.8477E+00,& - 0.8504E+00, 0.8532E+00, 0.8560E+00, 0.8587E+00,& - 0.8615E+00, 0.8643E+00, 0.8671E+00, 0.8699E+00,& - 0.8727E+00, 0.8756E+00, 0.8784E+00, 0.8812E+00,& - 0.8841E+00, 0.8869E+00, 0.8898E+00, 0.8927E+00,& - 0.8955E+00, 0.8984E+00, 0.9013E+00, 0.9042E+00,& - 0.9071E+00, 0.9101E+00, 0.9130E+00, 0.9159E+00,& - 0.9189E+00, 0.9218E+00, 0.9248E+00, 0.9278E+00,& - 0.9308E+00, 0.9338E+00, 0.9368E+00, 0.9398E+00,& - 0.9428E+00, 0.9458E+00, 0.9489E+00, 0.9519E+00,& - 0.9550E+00, 0.9581E+00, 0.9611E+00, 0.9642E+00,& - 0.9673E+00, 0.9704E+00, 0.9736E+00, 0.9767E+00,& - 0.9798E+00, 0.9830E+00, 0.9861E+00, 0.9893E+00,& - 0.9925E+00, 0.9956E+00, 0.9988E+00, 0.1002E+01,& - 0.1005E+01, 0.1009E+01, 0.1012E+01, 0.1015E+01,& - 0.1018E+01, 0.1022E+01, 0.1025E+01, 0.1028E+01,& - 0.1031E+01, 0.1035E+01, 0.1038E+01, 0.1041E+01,& - 0.1045E+01, 0.1048E+01, 0.1051E+01, 0.1055E+01,& - 0.1058E+01, 0.1062E+01, 0.1065E+01, 0.1068E+01,& - 0.1072E+01, 0.1075E+01, 0.1079E+01, 0.1082E+01,& - 0.1086E+01, 0.1089E+01, 0.1093E+01, 0.1096E+01,& - 0.1100E+01, 0.1103E+01, 0.1107E+01, 0.1110E+01,& - 0.1114E+01, 0.1118E+01, 0.1120E+01, 0.1125E+01,& - 0.1129E+01, 0.1132E+01, 0.1136E+01, 0.1140E+01,& - 0.1143E+01, 0.1147E+01, 0.1151E+01, 0.1154E+01,& - 0.1158E+01, 0.1162E+01, 0.1166E+01, 0.1169E+01,& - 0.1173E+01, 0.1177E+01, 0.1181E+01, 0.1185E+01,& - 0.1188E+01, 0.1192E+01, 0.1196E+01, 0.1200E+01,& - 0.1204E+01, 0.1208E+01, 0.1212E+01, 0.1216E+01,& - 0.1220E+01, 0.1224E+01, 0.1228E+01, 0.1232E+01,& - 0.1236E+01, 0.1240E+01, 0.1244E+01, 0.1248E+01,& - 0.1252E+01, 0.1256E+01, 0.1260E+01, 0.1264E+01,& - 0.1269E+01, 0.1273E+01, 0.1277E+01, 0.1281E+01,& - 0.1285E+01, 0.1290E+01, 0.1294E+01, 0.1298E+01,& - 0.1302E+01, 0.1307E+01, 0.1311E+01, 0.1315E+01,& - 0.1320E+01, 0.1324E+01, 0.1329E+01, 0.1333E+01,& - 0.1337E+01, 0.1342E+01, 0.1346E+01, 0.1351E+01,& - 0.1355E+01, 0.1360E+01, 0.1364E+01, 0.1369E+01,& - 0.1374E+01, 0.1378E+01, 0.1383E+01, 0.1387E+01,& - 0.1392E+01, 0.1397E+01, 0.1401E+01, 0.1406E+01,& - 0.1411E+01, 0.1416E+01, 0.1421E+01, 0.1425E+01,& - 0.1430E+01, 0.1435E+01, 0.1440E+01, 0.1445E+01,& - 0.1450E+01, 0.1455E+01, 0.1460E+01, 0.1465E+01,& - 0.1470E+01, 0.1475E+01, 0.1480E+01, 0.1485E+01,& - 0.1490E+01, 0.1495E+01, 0.1500E+01, 0.1505E+01,& - 0.1511E+01, 0.1516E+01, 0.1521E+01, 0.1526E+01,& - 0.1532E+01, 0.1537E+01, 0.1542E+01, 0.1548E+01,& - 0.1553E+01, 0.1559E+01, 0.1564E+01, 0.1570E+01,& - 0.1575E+01, 0.1581E+01, 0.1586E+01, 0.1592E+01,& - 0.1597E+01, 0.1603E+01, 0.1609E+01, 0.1614E+01,& - 0.1620E+01, 0.1626E+01, 0.1632E+01, 0.1638E+01,& - 0.1644E+01, 0.1649E+01, 0.1655E+01, 0.1661E+01,& - 0.1667E+01, 0.1673E+01, 0.1679E+01, 0.1686E+01,& - 0.1692E+01, 0.1698E+01, 0.1704E+01, 0.1710E+01,& - 0.1717E+01, 0.1723E+01, 0.1729E+01, 0.1736E+01,& - 0.1742E+01, 0.1748E+01, 0.1755E+01, 0.1761E+01,& - 0.1768E+01, 0.1775E+01, 0.1781E+01, 0.1788E+01,& - 0.1795E+01, 0.1801E+01, 0.1808E+01, 0.1815E+01,& - 0.1822E+01, 0.1829E+01, 0.1836E+01, 0.1843E+01,& - 0.1850E+01, 0.1857E+01, 0.1864E+01, 0.1871E+01,& - 0.1879E+01, 0.1886E+01, 0.1893E+01, 0.1901E+01,& - 0.1908E+01, 0.1916E+01, 0.1923E+01, 0.1931E+01,& - 0.1938E+01, 0.1946E+01, 0.1954E+01, 0.1962E+01,& - 0.1969E+01, 0.1977E+01, 0.1985E+01, 0.1993E+01,& - 0.2001E+01, 0.2009E+01, 0.2018E+01, 0.2026E+01,& - 0.2034E+01, 0.2043E+01, 0.2051E+01, 0.2059E+01,& - 0.2068E+01, 0.2077E+01, 0.2085E+01, 0.2094E+01,& - 0.2103E+01, 0.2112E+01, 0.2121E+01, 0.2130E+01,& - 0.2139E+01, 0.2148E+01, 0.2157E+01, 0.2167E+01,& - 0.2176E+01, 0.2185E+01, 0.2195E+01, 0.2205E+01,& - 0.2214E+01, 0.2224E+01, 0.2234E+01, 0.2244E+01,& - 0.2254E+01, 0.2264E+01, 0.2274E+01, 0.2285E+01,& - 0.2295E+01, 0.2306E+01, 0.2316E+01, 0.2327E+01,& - 0.2338E+01, 0.2349E+01, 0.2360E+01, 0.2371E+01,& - 0.2382E+01, 0.2393E+01, 0.2405E+01, 0.2416E+01,& - 0.2428E+01, 0.2440E+01, 0.2451E+01, 0.2463E+01,& - 0.2476E+01, 0.2488E+01, 0.2500E+01, 0.2513E+01,& - 0.2526E+01, 0.2538E+01, 0.2551E+01, 0.2564E+01,& - 0.2578E+01, 0.2591E+01, 0.2605E+01, 0.2618E+01,& - 0.2632E+01, 0.2646E+01, 0.2660E+01, 0.2675E+01,& - 0.2689E+01, 0.2704E+01, 0.2719E+01, 0.2734E+01,& - 0.2749E+01, 0.2765E+01, 0.2781E+01, 0.2796E+01,& - 0.2813E+01, 0.2829E+01, 0.2846E+01, 0.2862E+01,& - 0.2879E+01, 0.2897E+01, 0.2914E+01, 0.2932E+01,& - 0.2950E+01, 0.2969E+01, 0.2987E+01, 0.3006E+01,& - 0.3026E+01, 0.3045E+01, 0.3065E+01, 0.3085E+01,& - 0.3106E+01, 0.3127E+01, 0.3148E+01, 0.3170E+01,& - 0.3192E+01, 0.3215E+01, 0.3238E+01, 0.3261E+01,& - 0.3285E+01, 0.3309E+01, 0.3334E+01, 0.3359E+01,& - 0.3385E+01, 0.3412E+01, 0.3439E+01, 0.3467E+01,& - 0.3495E+01, 0.3524E+01, 0.3554E+01, 0.3584E+01,& - 0.3616E+01, 0.3648E+01, 0.3681E+01, 0.3715E+01,& - 0.3750E+01, 0.3785E+01, 0.3822E+01, 0.3861E+01,& - 0.3900E+01, 0.3941E+01, 0.3983E+01, 0.4026E+01,& - 0.4072E+01, 0.4119E+01, 0.4167E+01, 0.4218E+01,& - 0.4271E+01, 0.4327E+01, 0.4385E+01, 0.4446E+01,& - 0.4510E+01, 0.4578E+01, 0.4649E+01, 0.4725E+01,& - 0.4806E+01, 0.4892E+01, 0.4985E+01, 0.5086E+01,& - 0.5194E+01, 0.5315E+01, 0.5448E+01, 0.5596E+01,& - 0.5765E+01, 0.5960E+01, 0.6191E+01, 0.6473E+01,& - 0.1000E-04, 0.7811E-04, 0.2257E-03, 0.3960E-03/) - xcw(:, 44) = (/& - 0.1000E-04, 0.7811E-04, 0.2257E-03, 0.3960E-03,& - 0.5889E-03, 0.8046E-03, 0.1043E-02, 0.1293E-02,& - 0.1554E-02, 0.1826E-02, 0.2110E-02, 0.2405E-02,& - 0.2712E-02, 0.3041E-02, 0.3359E-02, 0.3699E-02,& - 0.4051E-02, 0.4403E-02, 0.4766E-02, 0.5130E-02,& - 0.5516E-02, 0.5902E-02, 0.6287E-02, 0.6685E-02,& - 0.7093E-02, 0.7513E-02, 0.7933E-02, 0.8353E-02,& - 0.8785E-02, 0.9228E-02, 0.9670E-02, 0.1012E-01,& - 0.1058E-01, 0.1103E-01, 0.1150E-01, 0.1197E-01,& - 0.1245E-01, 0.1294E-01, 0.1343E-01, 0.1392E-01,& - 0.1442E-01, 0.1491E-01, 0.1543E-01, 0.1594E-01,& - 0.1646E-01, 0.1698E-01, 0.1750E-01, 0.1804E-01,& - 0.1858E-01, 0.1911E-01, 0.1966E-01, 0.2022E-01,& - 0.2076E-01, 0.2133E-01, 0.2188E-01, 0.2245E-01,& - 0.2303E-01, 0.2360E-01, 0.2418E-01, 0.2477E-01,& - 0.2535E-01, 0.2595E-01, 0.2654E-01, 0.2714E-01,& - 0.2774E-01, 0.2836E-01, 0.2896E-01, 0.2958E-01,& - 0.3019E-01, 0.3082E-01, 0.3144E-01, 0.3208E-01,& - 0.3271E-01, 0.3335E-01, 0.3399E-01, 0.3463E-01,& - 0.3528E-01, 0.3594E-01, 0.3660E-01, 0.3725E-01,& - 0.3791E-01, 0.3858E-01, 0.3925E-01, 0.3992E-01,& - 0.4060E-01, 0.4128E-01, 0.4197E-01, 0.4266E-01,& - 0.4335E-01, 0.4404E-01, 0.4474E-01, 0.4544E-01,& - 0.4614E-01, 0.4686E-01, 0.4756E-01, 0.4828E-01,& - 0.4899E-01, 0.4972E-01, 0.5045E-01, 0.5117E-01,& - 0.5190E-01, 0.5264E-01, 0.5337E-01, 0.5411E-01,& - 0.5485E-01, 0.5560E-01, 0.5635E-01, 0.5711E-01,& - 0.5786E-01, 0.5862E-01, 0.5938E-01, 0.6015E-01,& - 0.6092E-01, 0.6170E-01, 0.6247E-01, 0.6325E-01,& - 0.6402E-01, 0.6482E-01, 0.6560E-01, 0.6639E-01,& - 0.6718E-01, 0.6798E-01, 0.6878E-01, 0.6958E-01,& - 0.7039E-01, 0.7120E-01, 0.7201E-01, 0.7282E-01,& - 0.7364E-01, 0.7447E-01, 0.7528E-01, 0.7611E-01,& - 0.7694E-01, 0.7778E-01, 0.7861E-01, 0.7945E-01,& - 0.8029E-01, 0.8114E-01, 0.8198E-01, 0.8283E-01,& - 0.8369E-01, 0.8455E-01, 0.8541E-01, 0.8627E-01,& - 0.8713E-01, 0.8800E-01, 0.8887E-01, 0.8975E-01,& - 0.9062E-01, 0.9150E-01, 0.9239E-01, 0.9328E-01,& - 0.9416E-01, 0.9506E-01, 0.9594E-01, 0.9684E-01,& - 0.9775E-01, 0.9864E-01, 0.9955E-01, 0.1005E+00,& - 0.1014E+00, 0.1023E+00, 0.1032E+00, 0.1041E+00,& - 0.1050E+00, 0.1060E+00, 0.1069E+00, 0.1078E+00,& - 0.1088E+00, 0.1097E+00, 0.1106E+00, 0.1116E+00,& - 0.1125E+00, 0.1135E+00, 0.1144E+00, 0.1154E+00,& - 0.1164E+00, 0.1173E+00, 0.1183E+00, 0.1192E+00,& - 0.1202E+00, 0.1212E+00, 0.1222E+00, 0.1231E+00,& - 0.1241E+00, 0.1251E+00, 0.1261E+00, 0.1271E+00,& - 0.1281E+00, 0.1291E+00, 0.1300E+00, 0.1311E+00,& - 0.1321E+00, 0.1331E+00, 0.1341E+00, 0.1351E+00,& - 0.1361E+00, 0.1371E+00, 0.1381E+00, 0.1391E+00,& - 0.1402E+00, 0.1412E+00, 0.1422E+00, 0.1433E+00,& - 0.1443E+00, 0.1453E+00, 0.1464E+00, 0.1474E+00,& - 0.1485E+00, 0.1495E+00, 0.1506E+00, 0.1516E+00,& - 0.1527E+00, 0.1538E+00, 0.1548E+00, 0.1559E+00,& - 0.1570E+00, 0.1580E+00, 0.1591E+00, 0.1602E+00,& - 0.1613E+00, 0.1624E+00, 0.1635E+00, 0.1645E+00,& - 0.1656E+00, 0.1667E+00, 0.1678E+00, 0.1689E+00,& - 0.1700E+00, 0.1711E+00, 0.1723E+00, 0.1734E+00,& - 0.1745E+00, 0.1756E+00, 0.1767E+00, 0.1779E+00,& - 0.1790E+00, 0.1801E+00, 0.1813E+00, 0.1824E+00,& - 0.1835E+00, 0.1847E+00, 0.1858E+00, 0.1870E+00,& - 0.1881E+00, 0.1893E+00, 0.1904E+00, 0.1916E+00,& - 0.1928E+00, 0.1939E+00, 0.1951E+00, 0.1963E+00,& - 0.1974E+00, 0.1986E+00, 0.1998E+00, 0.2010E+00,& - 0.2022E+00, 0.2034E+00, 0.2045E+00, 0.2057E+00,& - 0.2069E+00, 0.2081E+00, 0.2093E+00, 0.2105E+00,& - 0.2118E+00, 0.2130E+00, 0.2142E+00, 0.2154E+00,& - 0.2166E+00, 0.2179E+00, 0.2191E+00, 0.2203E+00,& - 0.2215E+00, 0.2228E+00, 0.2240E+00, 0.2253E+00,& - 0.2265E+00, 0.2278E+00, 0.2290E+00, 0.2303E+00,& - 0.2315E+00, 0.2328E+00, 0.2341E+00, 0.2353E+00,& - 0.2366E+00, 0.2379E+00, 0.2392E+00, 0.2404E+00,& - 0.2417E+00, 0.2430E+00, 0.2443E+00, 0.2456E+00,& - 0.2469E+00, 0.2482E+00, 0.2495E+00, 0.2508E+00,& - 0.2521E+00, 0.2534E+00, 0.2547E+00, 0.2560E+00,& - 0.2574E+00, 0.2587E+00, 0.2600E+00, 0.2613E+00,& - 0.2627E+00, 0.2640E+00, 0.2653E+00, 0.2667E+00,& - 0.2680E+00, 0.2694E+00, 0.2707E+00, 0.2721E+00,& - 0.2734E+00, 0.2748E+00, 0.2762E+00, 0.2775E+00,& - 0.2789E+00, 0.2803E+00, 0.2817E+00, 0.2830E+00,& - 0.2844E+00, 0.2858E+00, 0.2872E+00, 0.2886E+00,& - 0.2900E+00, 0.2914E+00, 0.2928E+00, 0.2942E+00,& - 0.2956E+00, 0.2970E+00, 0.2984E+00, 0.2999E+00,& - 0.3013E+00, 0.3027E+00, 0.3041E+00, 0.3056E+00,& - 0.3070E+00, 0.3084E+00, 0.3099E+00, 0.3113E+00,& - 0.3128E+00, 0.3142E+00, 0.3157E+00, 0.3172E+00,& - 0.3186E+00, 0.3201E+00, 0.3216E+00, 0.3230E+00,& - 0.3245E+00, 0.3260E+00, 0.3275E+00, 0.3290E+00,& - 0.3304E+00, 0.3319E+00, 0.3334E+00, 0.3349E+00,& - 0.3365E+00, 0.3380E+00, 0.3395E+00, 0.3410E+00,& - 0.3425E+00, 0.3440E+00, 0.3456E+00, 0.3471E+00,& - 0.3486E+00, 0.3502E+00, 0.3517E+00, 0.3532E+00,& - 0.3548E+00, 0.3563E+00, 0.3579E+00, 0.3595E+00,& - 0.3610E+00, 0.3626E+00, 0.3641E+00, 0.3657E+00,& - 0.3673E+00, 0.3689E+00, 0.3705E+00, 0.3721E+00,& - 0.3736E+00, 0.3752E+00, 0.3768E+00, 0.3784E+00,& - 0.3801E+00, 0.3817E+00, 0.3833E+00, 0.3849E+00,& - 0.3865E+00, 0.3881E+00, 0.3898E+00, 0.3914E+00,& - 0.3930E+00, 0.3947E+00, 0.3963E+00, 0.3980E+00,& - 0.3996E+00, 0.4013E+00, 0.4029E+00, 0.4046E+00,& - 0.4063E+00, 0.4079E+00, 0.4096E+00, 0.4113E+00,& - 0.4130E+00, 0.4147E+00, 0.4164E+00, 0.4180E+00,& - 0.4198E+00, 0.4215E+00, 0.4232E+00, 0.4249E+00,& - 0.4266E+00, 0.4283E+00, 0.4300E+00, 0.4318E+00,& - 0.4335E+00, 0.4352E+00, 0.4370E+00, 0.4387E+00,& - 0.4405E+00, 0.4422E+00, 0.4440E+00, 0.4457E+00,& - 0.4475E+00, 0.4493E+00, 0.4510E+00, 0.4528E+00,& - 0.4546E+00, 0.4564E+00, 0.4582E+00, 0.4600E+00,& - 0.4618E+00, 0.4636E+00, 0.4654E+00, 0.4672E+00,& - 0.4690E+00, 0.4708E+00, 0.4726E+00, 0.4745E+00,& - 0.4763E+00, 0.4781E+00, 0.4800E+00, 0.4818E+00,& - 0.4837E+00, 0.4855E+00, 0.4874E+00, 0.4893E+00,& - 0.4911E+00, 0.4930E+00, 0.4949E+00, 0.4968E+00,& - 0.4986E+00, 0.5005E+00, 0.5024E+00, 0.5043E+00,& - 0.5062E+00, 0.5081E+00, 0.5101E+00, 0.5120E+00,& - 0.5139E+00, 0.5158E+00, 0.5178E+00, 0.5197E+00,& - 0.5216E+00, 0.5236E+00, 0.5255E+00, 0.5275E+00,& - 0.5295E+00, 0.5314E+00, 0.5334E+00, 0.5354E+00,& - 0.5374E+00, 0.5393E+00, 0.5413E+00, 0.5433E+00,& - 0.5453E+00, 0.5473E+00, 0.5493E+00, 0.5514E+00,& - 0.5534E+00, 0.5554E+00, 0.5574E+00, 0.5595E+00,& - 0.5615E+00, 0.5636E+00, 0.5656E+00, 0.5677E+00,& - 0.5697E+00, 0.5718E+00, 0.5738E+00, 0.5759E+00,& - 0.5780E+00, 0.5801E+00, 0.5822E+00, 0.5843E+00,& - 0.5864E+00, 0.5885E+00, 0.5906E+00, 0.5927E+00,& - 0.5949E+00, 0.5970E+00, 0.5991E+00, 0.6013E+00,& - 0.6034E+00, 0.6055E+00, 0.6077E+00, 0.6099E+00,& - 0.6120E+00, 0.6142E+00, 0.6164E+00, 0.6186E+00,& - 0.6208E+00, 0.6229E+00, 0.6251E+00, 0.6274E+00,& - 0.6296E+00, 0.6318E+00, 0.6340E+00, 0.6362E+00,& - 0.6385E+00, 0.6407E+00, 0.6430E+00, 0.6452E+00,& - 0.6475E+00, 0.6497E+00, 0.6520E+00, 0.6543E+00,& - 0.6566E+00, 0.6589E+00, 0.6611E+00, 0.6634E+00,& - 0.6657E+00, 0.6681E+00, 0.6704E+00, 0.6727E+00,& - 0.6750E+00, 0.6774E+00, 0.6797E+00, 0.6821E+00,& - 0.6844E+00, 0.6868E+00, 0.6891E+00, 0.6915E+00,& - 0.6939E+00, 0.6963E+00, 0.6987E+00, 0.7011E+00,& - 0.7035E+00, 0.7059E+00, 0.7083E+00, 0.7107E+00,& - 0.7132E+00, 0.7156E+00, 0.7181E+00, 0.7205E+00,& - 0.7230E+00, 0.7254E+00, 0.7279E+00, 0.7304E+00,& - 0.7329E+00, 0.7354E+00, 0.7379E+00, 0.7404E+00,& - 0.7429E+00, 0.7454E+00, 0.7479E+00, 0.7504E+00,& - 0.7530E+00, 0.7555E+00, 0.7581E+00, 0.7607E+00,& - 0.7632E+00, 0.7658E+00, 0.7684E+00, 0.7710E+00,& - 0.7736E+00, 0.7762E+00, 0.7788E+00, 0.7814E+00,& - 0.7840E+00, 0.7867E+00, 0.7893E+00, 0.7920E+00,& - 0.7946E+00, 0.7973E+00, 0.8000E+00, 0.8026E+00,& - 0.8053E+00, 0.8080E+00, 0.8107E+00, 0.8134E+00,& - 0.8162E+00, 0.8189E+00, 0.8216E+00, 0.8244E+00,& - 0.8271E+00, 0.8299E+00, 0.8326E+00, 0.8354E+00,& - 0.8382E+00, 0.8410E+00, 0.8438E+00, 0.8466E+00,& - 0.8494E+00, 0.8522E+00, 0.8551E+00, 0.8579E+00,& - 0.8608E+00, 0.8636E+00, 0.8665E+00, 0.8694E+00,& - 0.8723E+00, 0.8751E+00, 0.8781E+00, 0.8810E+00,& - 0.8839E+00, 0.8868E+00, 0.8897E+00, 0.8927E+00,& - 0.8956E+00, 0.8986E+00, 0.9016E+00, 0.9046E+00,& - 0.9076E+00, 0.9106E+00, 0.9136E+00, 0.9166E+00,& - 0.9196E+00, 0.9227E+00, 0.9257E+00, 0.9288E+00,& - 0.9318E+00, 0.9349E+00, 0.9380E+00, 0.9411E+00,& - 0.9442E+00, 0.9473E+00, 0.9504E+00, 0.9536E+00,& - 0.9567E+00, 0.9599E+00, 0.9630E+00, 0.9662E+00,& - 0.9694E+00, 0.9726E+00, 0.9758E+00, 0.9790E+00,& - 0.9822E+00, 0.9855E+00, 0.9887E+00, 0.9920E+00,& - 0.9952E+00, 0.9985E+00, 0.1002E+01, 0.1005E+01,& - 0.1008E+01, 0.1012E+01, 0.1015E+01, 0.1018E+01,& - 0.1022E+01, 0.1025E+01, 0.1029E+01, 0.1032E+01,& - 0.1035E+01, 0.1039E+01, 0.1042E+01, 0.1046E+01,& - 0.1049E+01, 0.1053E+01, 0.1056E+01, 0.1059E+01,& - 0.1063E+01, 0.1066E+01, 0.1070E+01, 0.1074E+01,& - 0.1077E+01, 0.1081E+01, 0.1084E+01, 0.1088E+01,& - 0.1091E+01, 0.1095E+01, 0.1099E+01, 0.1102E+01,& - 0.1106E+01, 0.1110E+01, 0.1113E+01, 0.1117E+01,& - 0.1121E+01, 0.1124E+01, 0.1128E+01, 0.1132E+01,& - 0.1136E+01, 0.1139E+01, 0.1143E+01, 0.1147E+01,& - 0.1151E+01, 0.1155E+01, 0.1158E+01, 0.1162E+01,& - 0.1166E+01, 0.1170E+01, 0.1174E+01, 0.1178E+01,& - 0.1182E+01, 0.1186E+01, 0.1190E+01, 0.1194E+01,& - 0.1197E+01, 0.1201E+01, 0.1205E+01, 0.1210E+01,& - 0.1214E+01, 0.1218E+01, 0.1222E+01, 0.1226E+01,& - 0.1230E+01, 0.1234E+01, 0.1238E+01, 0.1242E+01,& - 0.1246E+01, 0.1251E+01, 0.1255E+01, 0.1259E+01,& - 0.1263E+01, 0.1268E+01, 0.1272E+01, 0.1276E+01,& - 0.1280E+01, 0.1285E+01, 0.1289E+01, 0.1293E+01,& - 0.1298E+01, 0.1302E+01, 0.1307E+01, 0.1311E+01,& - 0.1316E+01, 0.1320E+01, 0.1325E+01, 0.1329E+01,& - 0.1334E+01, 0.1338E+01, 0.1343E+01, 0.1347E+01,& - 0.1352E+01, 0.1356E+01, 0.1361E+01, 0.1366E+01,& - 0.1370E+01, 0.1375E+01, 0.1380E+01, 0.1385E+01,& - 0.1389E+01, 0.1394E+01, 0.1399E+01, 0.1404E+01,& - 0.1409E+01, 0.1414E+01, 0.1418E+01, 0.1423E+01,& - 0.1428E+01, 0.1433E+01, 0.1438E+01, 0.1443E+01,& - 0.1448E+01, 0.1453E+01, 0.1458E+01, 0.1464E+01,& - 0.1469E+01, 0.1474E+01, 0.1479E+01, 0.1484E+01,& - 0.1489E+01, 0.1495E+01, 0.1500E+01, 0.1505E+01,& - 0.1511E+01, 0.1516E+01, 0.1521E+01, 0.1527E+01,& - 0.1532E+01, 0.1538E+01, 0.1543E+01, 0.1549E+01,& - 0.1554E+01, 0.1560E+01, 0.1565E+01, 0.1571E+01,& - 0.1576E+01, 0.1582E+01, 0.1588E+01, 0.1594E+01,& - 0.1599E+01, 0.1605E+01, 0.1611E+01, 0.1617E+01,& - 0.1623E+01, 0.1629E+01, 0.1635E+01, 0.1641E+01,& - 0.1647E+01, 0.1653E+01, 0.1659E+01, 0.1665E+01,& - 0.1671E+01, 0.1677E+01, 0.1683E+01, 0.1690E+01,& - 0.1696E+01, 0.1702E+01, 0.1709E+01, 0.1715E+01,& - 0.1721E+01, 0.1728E+01, 0.1734E+01, 0.1741E+01,& - 0.1747E+01, 0.1754E+01, 0.1761E+01, 0.1767E+01,& - 0.1774E+01, 0.1781E+01, 0.1788E+01, 0.1795E+01,& - 0.1801E+01, 0.1808E+01, 0.1815E+01, 0.1822E+01,& - 0.1829E+01, 0.1837E+01, 0.1844E+01, 0.1851E+01,& - 0.1858E+01, 0.1865E+01, 0.1873E+01, 0.1880E+01,& - 0.1888E+01, 0.1895E+01, 0.1903E+01, 0.1910E+01,& - 0.1918E+01, 0.1926E+01, 0.1933E+01, 0.1941E+01,& - 0.1949E+01, 0.1957E+01, 0.1965E+01, 0.1973E+01,& - 0.1981E+01, 0.1989E+01, 0.1997E+01, 0.2005E+01,& - 0.2014E+01, 0.2022E+01, 0.2030E+01, 0.2039E+01,& - 0.2047E+01, 0.2056E+01, 0.2065E+01, 0.2073E+01,& - 0.2082E+01, 0.2091E+01, 0.2100E+01, 0.2109E+01,& - 0.2118E+01, 0.2127E+01, 0.2136E+01, 0.2145E+01,& - 0.2155E+01, 0.2164E+01, 0.2174E+01, 0.2183E+01,& - 0.2193E+01, 0.2203E+01, 0.2213E+01, 0.2222E+01,& - 0.2232E+01, 0.2242E+01, 0.2253E+01, 0.2263E+01,& - 0.2273E+01, 0.2284E+01, 0.2294E+01, 0.2305E+01,& - 0.2315E+01, 0.2326E+01, 0.2337E+01, 0.2348E+01,& - 0.2359E+01, 0.2370E+01, 0.2382E+01, 0.2393E+01,& - 0.2405E+01, 0.2416E+01, 0.2428E+01, 0.2440E+01,& - 0.2452E+01, 0.2464E+01, 0.2476E+01, 0.2489E+01,& - 0.2501E+01, 0.2514E+01, 0.2527E+01, 0.2540E+01,& - 0.2553E+01, 0.2566E+01, 0.2579E+01, 0.2593E+01,& - 0.2606E+01, 0.2620E+01, 0.2634E+01, 0.2648E+01,& - 0.2662E+01, 0.2677E+01, 0.2692E+01, 0.2706E+01,& - 0.2721E+01, 0.2737E+01, 0.2752E+01, 0.2767E+01,& - 0.2783E+01, 0.2799E+01, 0.2815E+01, 0.2832E+01,& - 0.2848E+01, 0.2865E+01, 0.2882E+01, 0.2900E+01,& - 0.2917E+01, 0.2935E+01, 0.2953E+01, 0.2972E+01,& - 0.2990E+01, 0.3009E+01, 0.3029E+01, 0.3048E+01,& - 0.3068E+01, 0.3088E+01, 0.3109E+01, 0.3130E+01,& - 0.3151E+01, 0.3173E+01, 0.3195E+01, 0.3217E+01,& - 0.3240E+01, 0.3263E+01, 0.3287E+01, 0.3311E+01,& - 0.3336E+01, 0.3361E+01, 0.3386E+01, 0.3413E+01,& - 0.3439E+01, 0.3467E+01, 0.3495E+01, 0.3523E+01,& - 0.3553E+01, 0.3583E+01, 0.3614E+01, 0.3645E+01,& - 0.3677E+01, 0.3711E+01, 0.3745E+01, 0.3780E+01,& - 0.3816E+01, 0.3853E+01, 0.3891E+01, 0.3931E+01,& - 0.3971E+01, 0.4014E+01, 0.4057E+01, 0.4102E+01,& - 0.4149E+01, 0.4198E+01, 0.4248E+01, 0.4301E+01,& - 0.4356E+01, 0.4413E+01, 0.4473E+01, 0.4536E+01,& - 0.4602E+01, 0.4672E+01, 0.4746E+01, 0.4825E+01,& - 0.4909E+01, 0.4998E+01, 0.5095E+01, 0.5199E+01,& - 0.5312E+01, 0.5437E+01, 0.5574E+01, 0.5728E+01,& - 0.5903E+01, 0.6105E+01, 0.6344E+01, 0.6638E+01,& - 0.1000E-04, 0.5654E-04, 0.1613E-03, 0.2892E-03/) - xcw(:, 45) = (/& - 0.1000E-04, 0.5654E-04, 0.1613E-03, 0.2892E-03,& - 0.4405E-03, 0.6034E-03, 0.7895E-03, 0.9873E-03,& - 0.1197E-02, 0.1418E-02, 0.1651E-02, 0.1895E-02,& - 0.2151E-02, 0.2407E-02, 0.2686E-02, 0.2965E-02,& - 0.3256E-02, 0.3547E-02, 0.3849E-02, 0.4164E-02,& - 0.4489E-02, 0.4815E-02, 0.5153E-02, 0.5490E-02,& - 0.5839E-02, 0.6200E-02, 0.6560E-02, 0.6921E-02,& - 0.7293E-02, 0.7677E-02, 0.8061E-02, 0.8457E-02,& - 0.8852E-02, 0.9260E-02, 0.9667E-02, 0.1007E-01,& - 0.1049E-01, 0.1092E-01, 0.1135E-01, 0.1178E-01,& - 0.1223E-01, 0.1267E-01, 0.1312E-01, 0.1358E-01,& - 0.1404E-01, 0.1450E-01, 0.1497E-01, 0.1545E-01,& - 0.1593E-01, 0.1640E-01, 0.1689E-01, 0.1738E-01,& - 0.1788E-01, 0.1838E-01, 0.1889E-01, 0.1941E-01,& - 0.1992E-01, 0.2043E-01, 0.2095E-01, 0.2149E-01,& - 0.2201E-01, 0.2255E-01, 0.2309E-01, 0.2363E-01,& - 0.2418E-01, 0.2473E-01, 0.2528E-01, 0.2585E-01,& - 0.2641E-01, 0.2698E-01, 0.2755E-01, 0.2812E-01,& - 0.2870E-01, 0.2928E-01, 0.2988E-01, 0.3046E-01,& - 0.3105E-01, 0.3166E-01, 0.3226E-01, 0.3287E-01,& - 0.3347E-01, 0.3409E-01, 0.3471E-01, 0.3532E-01,& - 0.3594E-01, 0.3657E-01, 0.3721E-01, 0.3783E-01,& - 0.3847E-01, 0.3911E-01, 0.3977E-01, 0.4041E-01,& - 0.4106E-01, 0.4172E-01, 0.4237E-01, 0.4304E-01,& - 0.4370E-01, 0.4437E-01, 0.4505E-01, 0.4572E-01,& - 0.4640E-01, 0.4708E-01, 0.4777E-01, 0.4846E-01,& - 0.4916E-01, 0.4985E-01, 0.5055E-01, 0.5125E-01,& - 0.5196E-01, 0.5267E-01, 0.5338E-01, 0.5410E-01,& - 0.5481E-01, 0.5554E-01, 0.5626E-01, 0.5700E-01,& - 0.5773E-01, 0.5846E-01, 0.5920E-01, 0.5994E-01,& - 0.6069E-01, 0.6143E-01, 0.6219E-01, 0.6294E-01,& - 0.6370E-01, 0.6446E-01, 0.6522E-01, 0.6599E-01,& - 0.6676E-01, 0.6754E-01, 0.6831E-01, 0.6909E-01,& - 0.6988E-01, 0.7066E-01, 0.7145E-01, 0.7224E-01,& - 0.7304E-01, 0.7383E-01, 0.7464E-01, 0.7544E-01,& - 0.7625E-01, 0.7706E-01, 0.7787E-01, 0.7870E-01,& - 0.7951E-01, 0.8034E-01, 0.8116E-01, 0.8199E-01,& - 0.8283E-01, 0.8365E-01, 0.8450E-01, 0.8534E-01,& - 0.8618E-01, 0.8703E-01, 0.8788E-01, 0.8874E-01,& - 0.8959E-01, 0.9045E-01, 0.9131E-01, 0.9218E-01,& - 0.9304E-01, 0.9391E-01, 0.9480E-01, 0.9567E-01,& - 0.9656E-01, 0.9744E-01, 0.9832E-01, 0.9921E-01,& - 0.1001E+00, 0.1010E+00, 0.1019E+00, 0.1028E+00,& - 0.1037E+00, 0.1046E+00, 0.1055E+00, 0.1064E+00,& - 0.1074E+00, 0.1083E+00, 0.1092E+00, 0.1101E+00,& - 0.1111E+00, 0.1120E+00, 0.1129E+00, 0.1139E+00,& - 0.1148E+00, 0.1157E+00, 0.1167E+00, 0.1176E+00,& - 0.1186E+00, 0.1195E+00, 0.1205E+00, 0.1215E+00,& - 0.1224E+00, 0.1234E+00, 0.1244E+00, 0.1253E+00,& - 0.1263E+00, 0.1273E+00, 0.1283E+00, 0.1293E+00,& - 0.1303E+00, 0.1312E+00, 0.1322E+00, 0.1332E+00,& - 0.1342E+00, 0.1352E+00, 0.1362E+00, 0.1373E+00,& - 0.1383E+00, 0.1393E+00, 0.1403E+00, 0.1413E+00,& - 0.1423E+00, 0.1434E+00, 0.1444E+00, 0.1454E+00,& - 0.1465E+00, 0.1475E+00, 0.1485E+00, 0.1496E+00,& - 0.1506E+00, 0.1517E+00, 0.1527E+00, 0.1538E+00,& - 0.1549E+00, 0.1559E+00, 0.1570E+00, 0.1581E+00,& - 0.1591E+00, 0.1602E+00, 0.1613E+00, 0.1624E+00,& - 0.1634E+00, 0.1645E+00, 0.1656E+00, 0.1667E+00,& - 0.1678E+00, 0.1689E+00, 0.1700E+00, 0.1711E+00,& - 0.1722E+00, 0.1733E+00, 0.1745E+00, 0.1756E+00,& - 0.1767E+00, 0.1778E+00, 0.1789E+00, 0.1801E+00,& - 0.1812E+00, 0.1823E+00, 0.1835E+00, 0.1846E+00,& - 0.1858E+00, 0.1869E+00, 0.1881E+00, 0.1892E+00,& - 0.1904E+00, 0.1915E+00, 0.1927E+00, 0.1939E+00,& - 0.1950E+00, 0.1962E+00, 0.1974E+00, 0.1986E+00,& - 0.1997E+00, 0.2009E+00, 0.2021E+00, 0.2033E+00,& - 0.2045E+00, 0.2057E+00, 0.2069E+00, 0.2081E+00,& - 0.2093E+00, 0.2105E+00, 0.2117E+00, 0.2130E+00,& - 0.2142E+00, 0.2154E+00, 0.2166E+00, 0.2178E+00,& - 0.2191E+00, 0.2203E+00, 0.2215E+00, 0.2228E+00,& - 0.2240E+00, 0.2253E+00, 0.2265E+00, 0.2278E+00,& - 0.2291E+00, 0.2303E+00, 0.2316E+00, 0.2328E+00,& - 0.2341E+00, 0.2354E+00, 0.2367E+00, 0.2379E+00,& - 0.2392E+00, 0.2405E+00, 0.2418E+00, 0.2431E+00,& - 0.2444E+00, 0.2457E+00, 0.2470E+00, 0.2483E+00,& - 0.2496E+00, 0.2509E+00, 0.2522E+00, 0.2536E+00,& - 0.2549E+00, 0.2562E+00, 0.2575E+00, 0.2589E+00,& - 0.2602E+00, 0.2616E+00, 0.2629E+00, 0.2642E+00,& - 0.2656E+00, 0.2669E+00, 0.2683E+00, 0.2697E+00,& - 0.2710E+00, 0.2724E+00, 0.2738E+00, 0.2751E+00,& - 0.2765E+00, 0.2779E+00, 0.2793E+00, 0.2807E+00,& - 0.2821E+00, 0.2835E+00, 0.2849E+00, 0.2862E+00,& - 0.2877E+00, 0.2891E+00, 0.2905E+00, 0.2919E+00,& - 0.2933E+00, 0.2947E+00, 0.2962E+00, 0.2976E+00,& - 0.2990E+00, 0.3005E+00, 0.3019E+00, 0.3033E+00,& - 0.3048E+00, 0.3062E+00, 0.3077E+00, 0.3091E+00,& - 0.3106E+00, 0.3121E+00, 0.3135E+00, 0.3150E+00,& - 0.3165E+00, 0.3180E+00, 0.3194E+00, 0.3209E+00,& - 0.3224E+00, 0.3239E+00, 0.3254E+00, 0.3269E+00,& - 0.3284E+00, 0.3299E+00, 0.3314E+00, 0.3330E+00,& - 0.3345E+00, 0.3360E+00, 0.3375E+00, 0.3391E+00,& - 0.3406E+00, 0.3421E+00, 0.3437E+00, 0.3452E+00,& - 0.3468E+00, 0.3483E+00, 0.3499E+00, 0.3514E+00,& - 0.3530E+00, 0.3546E+00, 0.3561E+00, 0.3577E+00,& - 0.3593E+00, 0.3609E+00, 0.3625E+00, 0.3641E+00,& - 0.3657E+00, 0.3673E+00, 0.3689E+00, 0.3705E+00,& - 0.3721E+00, 0.3737E+00, 0.3753E+00, 0.3769E+00,& - 0.3786E+00, 0.3802E+00, 0.3818E+00, 0.3835E+00,& - 0.3851E+00, 0.3868E+00, 0.3884E+00, 0.3901E+00,& - 0.3917E+00, 0.3934E+00, 0.3951E+00, 0.3967E+00,& - 0.3984E+00, 0.4001E+00, 0.4018E+00, 0.4035E+00,& - 0.4051E+00, 0.4068E+00, 0.4085E+00, 0.4102E+00,& - 0.4120E+00, 0.4137E+00, 0.4154E+00, 0.4171E+00,& - 0.4188E+00, 0.4206E+00, 0.4223E+00, 0.4240E+00,& - 0.4258E+00, 0.4275E+00, 0.4293E+00, 0.4310E+00,& - 0.4328E+00, 0.4346E+00, 0.4363E+00, 0.4381E+00,& - 0.4399E+00, 0.4417E+00, 0.4434E+00, 0.4452E+00,& - 0.4470E+00, 0.4488E+00, 0.4506E+00, 0.4524E+00,& - 0.4543E+00, 0.4561E+00, 0.4579E+00, 0.4597E+00,& - 0.4616E+00, 0.4634E+00, 0.4652E+00, 0.4671E+00,& - 0.4689E+00, 0.4708E+00, 0.4726E+00, 0.4745E+00,& - 0.4764E+00, 0.4782E+00, 0.4801E+00, 0.4820E+00,& - 0.4839E+00, 0.4858E+00, 0.4877E+00, 0.4896E+00,& - 0.4915E+00, 0.4934E+00, 0.4953E+00, 0.4972E+00,& - 0.4992E+00, 0.5011E+00, 0.5030E+00, 0.5050E+00,& - 0.5069E+00, 0.5088E+00, 0.5108E+00, 0.5128E+00,& - 0.5147E+00, 0.5167E+00, 0.5187E+00, 0.5207E+00,& - 0.5226E+00, 0.5246E+00, 0.5266E+00, 0.5286E+00,& - 0.5306E+00, 0.5326E+00, 0.5347E+00, 0.5367E+00,& - 0.5387E+00, 0.5407E+00, 0.5428E+00, 0.5448E+00,& - 0.5468E+00, 0.5489E+00, 0.5510E+00, 0.5530E+00,& - 0.5551E+00, 0.5572E+00, 0.5592E+00, 0.5613E+00,& - 0.5634E+00, 0.5655E+00, 0.5676E+00, 0.5697E+00,& - 0.5718E+00, 0.5739E+00, 0.5761E+00, 0.5782E+00,& - 0.5803E+00, 0.5825E+00, 0.5846E+00, 0.5868E+00,& - 0.5889E+00, 0.5911E+00, 0.5932E+00, 0.5954E+00,& - 0.5976E+00, 0.5998E+00, 0.6019E+00, 0.6041E+00,& - 0.6063E+00, 0.6086E+00, 0.6108E+00, 0.6130E+00,& - 0.6152E+00, 0.6174E+00, 0.6197E+00, 0.6219E+00,& - 0.6242E+00, 0.6264E+00, 0.6287E+00, 0.6309E+00,& - 0.6332E+00, 0.6355E+00, 0.6378E+00, 0.6401E+00,& - 0.6424E+00, 0.6447E+00, 0.6470E+00, 0.6493E+00,& - 0.6516E+00, 0.6539E+00, 0.6563E+00, 0.6586E+00,& - 0.6610E+00, 0.6633E+00, 0.6657E+00, 0.6680E+00,& - 0.6704E+00, 0.6728E+00, 0.6752E+00, 0.6776E+00,& - 0.6800E+00, 0.6824E+00, 0.6848E+00, 0.6872E+00,& - 0.6896E+00, 0.6921E+00, 0.6945E+00, 0.6969E+00,& - 0.6994E+00, 0.7019E+00, 0.7043E+00, 0.7068E+00,& - 0.7093E+00, 0.7118E+00, 0.7143E+00, 0.7168E+00,& - 0.7193E+00, 0.7218E+00, 0.7243E+00, 0.7268E+00,& - 0.7294E+00, 0.7319E+00, 0.7345E+00, 0.7370E+00,& - 0.7396E+00, 0.7422E+00, 0.7447E+00, 0.7473E+00,& - 0.7499E+00, 0.7525E+00, 0.7551E+00, 0.7577E+00,& - 0.7604E+00, 0.7630E+00, 0.7656E+00, 0.7683E+00,& - 0.7709E+00, 0.7736E+00, 0.7763E+00, 0.7789E+00,& - 0.7816E+00, 0.7843E+00, 0.7870E+00, 0.7897E+00,& - 0.7925E+00, 0.7952E+00, 0.7979E+00, 0.8007E+00,& - 0.8034E+00, 0.8062E+00, 0.8089E+00, 0.8117E+00,& - 0.8145E+00, 0.8173E+00, 0.8201E+00, 0.8229E+00,& - 0.8257E+00, 0.8285E+00, 0.8314E+00, 0.8342E+00,& - 0.8371E+00, 0.8399E+00, 0.8428E+00, 0.8457E+00,& - 0.8485E+00, 0.8514E+00, 0.8543E+00, 0.8573E+00,& - 0.8602E+00, 0.8631E+00, 0.8660E+00, 0.8690E+00,& - 0.8719E+00, 0.8749E+00, 0.8779E+00, 0.8809E+00,& - 0.8839E+00, 0.8869E+00, 0.8899E+00, 0.8929E+00,& - 0.8959E+00, 0.8990E+00, 0.9020E+00, 0.9051E+00,& - 0.9081E+00, 0.9112E+00, 0.9143E+00, 0.9174E+00,& - 0.9205E+00, 0.9236E+00, 0.9268E+00, 0.9299E+00,& - 0.9331E+00, 0.9362E+00, 0.9394E+00, 0.9426E+00,& - 0.9458E+00, 0.9490E+00, 0.9522E+00, 0.9554E+00,& - 0.9586E+00, 0.9619E+00, 0.9651E+00, 0.9684E+00,& - 0.9717E+00, 0.9749E+00, 0.9782E+00, 0.9815E+00,& - 0.9849E+00, 0.9882E+00, 0.9915E+00, 0.9949E+00,& - 0.9983E+00, 0.1002E+01, 0.1005E+01, 0.1008E+01,& - 0.1012E+01, 0.1015E+01, 0.1019E+01, 0.1022E+01,& - 0.1026E+01, 0.1029E+01, 0.1033E+01, 0.1036E+01,& - 0.1040E+01, 0.1043E+01, 0.1047E+01, 0.1050E+01,& - 0.1054E+01, 0.1057E+01, 0.1061E+01, 0.1064E+01,& - 0.1068E+01, 0.1072E+01, 0.1075E+01, 0.1079E+01,& - 0.1083E+01, 0.1086E+01, 0.1090E+01, 0.1094E+01,& - 0.1097E+01, 0.1101E+01, 0.1105E+01, 0.1108E+01,& - 0.1112E+01, 0.1116E+01, 0.1120E+01, 0.1124E+01,& - 0.1127E+01, 0.1131E+01, 0.1135E+01, 0.1139E+01,& - 0.1143E+01, 0.1147E+01, 0.1151E+01, 0.1155E+01,& - 0.1159E+01, 0.1162E+01, 0.1166E+01, 0.1170E+01,& - 0.1174E+01, 0.1178E+01, 0.1182E+01, 0.1186E+01,& - 0.1191E+01, 0.1195E+01, 0.1199E+01, 0.1203E+01,& - 0.1207E+01, 0.1211E+01, 0.1215E+01, 0.1219E+01,& - 0.1224E+01, 0.1228E+01, 0.1232E+01, 0.1236E+01,& - 0.1240E+01, 0.1245E+01, 0.1249E+01, 0.1253E+01,& - 0.1258E+01, 0.1262E+01, 0.1266E+01, 0.1271E+01,& - 0.1275E+01, 0.1279E+01, 0.1284E+01, 0.1288E+01,& - 0.1293E+01, 0.1297E+01, 0.1302E+01, 0.1306E+01,& - 0.1311E+01, 0.1315E+01, 0.1320E+01, 0.1325E+01,& - 0.1329E+01, 0.1334E+01, 0.1339E+01, 0.1343E+01,& - 0.1348E+01, 0.1353E+01, 0.1357E+01, 0.1362E+01,& - 0.1367E+01, 0.1372E+01, 0.1376E+01, 0.1381E+01,& - 0.1386E+01, 0.1391E+01, 0.1396E+01, 0.1401E+01,& - 0.1406E+01, 0.1411E+01, 0.1416E+01, 0.1421E+01,& - 0.1426E+01, 0.1431E+01, 0.1436E+01, 0.1441E+01,& - 0.1446E+01, 0.1451E+01, 0.1457E+01, 0.1462E+01,& - 0.1467E+01, 0.1472E+01, 0.1478E+01, 0.1483E+01,& - 0.1488E+01, 0.1494E+01, 0.1499E+01, 0.1504E+01,& - 0.1510E+01, 0.1515E+01, 0.1521E+01, 0.1526E+01,& - 0.1532E+01, 0.1538E+01, 0.1543E+01, 0.1549E+01,& - 0.1554E+01, 0.1560E+01, 0.1566E+01, 0.1572E+01,& - 0.1577E+01, 0.1583E+01, 0.1589E+01, 0.1595E+01,& - 0.1601E+01, 0.1607E+01, 0.1613E+01, 0.1619E+01,& - 0.1625E+01, 0.1631E+01, 0.1637E+01, 0.1643E+01,& - 0.1649E+01, 0.1655E+01, 0.1662E+01, 0.1668E+01,& - 0.1674E+01, 0.1680E+01, 0.1687E+01, 0.1693E+01,& - 0.1700E+01, 0.1706E+01, 0.1713E+01, 0.1719E+01,& - 0.1726E+01, 0.1732E+01, 0.1739E+01, 0.1746E+01,& - 0.1752E+01, 0.1759E+01, 0.1766E+01, 0.1773E+01,& - 0.1780E+01, 0.1787E+01, 0.1794E+01, 0.1801E+01,& - 0.1808E+01, 0.1815E+01, 0.1822E+01, 0.1829E+01,& - 0.1836E+01, 0.1844E+01, 0.1851E+01, 0.1858E+01,& - 0.1866E+01, 0.1873E+01, 0.1881E+01, 0.1888E+01,& - 0.1896E+01, 0.1904E+01, 0.1911E+01, 0.1919E+01,& - 0.1927E+01, 0.1935E+01, 0.1943E+01, 0.1951E+01,& - 0.1959E+01, 0.1967E+01, 0.1975E+01, 0.1983E+01,& - 0.1992E+01, 0.2000E+01, 0.2008E+01, 0.2017E+01,& - 0.2025E+01, 0.2034E+01, 0.2042E+01, 0.2051E+01,& - 0.2060E+01, 0.2069E+01, 0.2078E+01, 0.2087E+01,& - 0.2096E+01, 0.2105E+01, 0.2114E+01, 0.2123E+01,& - 0.2132E+01, 0.2142E+01, 0.2151E+01, 0.2161E+01,& - 0.2170E+01, 0.2180E+01, 0.2190E+01, 0.2200E+01,& - 0.2209E+01, 0.2219E+01, 0.2230E+01, 0.2240E+01,& - 0.2250E+01, 0.2260E+01, 0.2271E+01, 0.2281E+01,& - 0.2292E+01, 0.2303E+01, 0.2313E+01, 0.2324E+01,& - 0.2335E+01, 0.2346E+01, 0.2358E+01, 0.2369E+01,& - 0.2380E+01, 0.2392E+01, 0.2404E+01, 0.2415E+01,& - 0.2427E+01, 0.2439E+01, 0.2451E+01, 0.2463E+01,& - 0.2476E+01, 0.2488E+01, 0.2501E+01, 0.2514E+01,& - 0.2526E+01, 0.2539E+01, 0.2553E+01, 0.2566E+01,& - 0.2579E+01, 0.2593E+01, 0.2607E+01, 0.2620E+01,& - 0.2635E+01, 0.2649E+01, 0.2663E+01, 0.2678E+01,& - 0.2692E+01, 0.2707E+01, 0.2722E+01, 0.2738E+01,& - 0.2753E+01, 0.2769E+01, 0.2784E+01, 0.2800E+01,& - 0.2817E+01, 0.2833E+01, 0.2850E+01, 0.2867E+01,& - 0.2884E+01, 0.2901E+01, 0.2919E+01, 0.2937E+01,& - 0.2955E+01, 0.2973E+01, 0.2992E+01, 0.3011E+01,& - 0.3030E+01, 0.3050E+01, 0.3070E+01, 0.3090E+01,& - 0.3110E+01, 0.3131E+01, 0.3152E+01, 0.3174E+01,& - 0.3196E+01, 0.3218E+01, 0.3241E+01, 0.3264E+01,& - 0.3287E+01, 0.3311E+01, 0.3336E+01, 0.3361E+01,& - 0.3386E+01, 0.3412E+01, 0.3439E+01, 0.3466E+01,& - 0.3493E+01, 0.3522E+01, 0.3551E+01, 0.3580E+01,& - 0.3610E+01, 0.3641E+01, 0.3673E+01, 0.3706E+01,& - 0.3739E+01, 0.3773E+01, 0.3809E+01, 0.3845E+01,& - 0.3882E+01, 0.3920E+01, 0.3960E+01, 0.4001E+01,& - 0.4043E+01, 0.4086E+01, 0.4131E+01, 0.4178E+01,& - 0.4226E+01, 0.4277E+01, 0.4329E+01, 0.4383E+01,& - 0.4440E+01, 0.4499E+01, 0.4561E+01, 0.4627E+01,& - 0.4695E+01, 0.4767E+01, 0.4844E+01, 0.4926E+01,& - 0.5012E+01, 0.5105E+01, 0.5205E+01, 0.5313E+01,& - 0.5430E+01, 0.5559E+01, 0.5701E+01, 0.5861E+01,& - 0.6042E+01, 0.6251E+01, 0.6499E+01, 0.6804E+01,& - 0.1000E-04, 0.3385E-04, 0.1054E-03, 0.2008E-03/) - xcw(:, 46) = (/& - 0.1000E-04, 0.3385E-04, 0.1054E-03, 0.2008E-03,& - 0.3200E-03, 0.4512E-03, 0.5943E-03, 0.7493E-03,& - 0.9162E-03, 0.1095E-02, 0.1274E-02, 0.1477E-02,& - 0.1679E-02, 0.1906E-02, 0.2121E-02, 0.2359E-02,& - 0.2597E-02, 0.2848E-02, 0.3098E-02, 0.3361E-02,& - 0.3635E-02, 0.3909E-02, 0.4195E-02, 0.4481E-02,& - 0.4780E-02, 0.5090E-02, 0.5400E-02, 0.5710E-02,& - 0.6032E-02, 0.6365E-02, 0.6699E-02, 0.7033E-02,& - 0.7379E-02, 0.7725E-02, 0.8082E-02, 0.8440E-02,& - 0.8810E-02, 0.9179E-02, 0.9561E-02, 0.9943E-02,& - 0.1032E-01, 0.1072E-01, 0.1111E-01, 0.1152E-01,& - 0.1192E-01, 0.1234E-01, 0.1274E-01, 0.1317E-01,& - 0.1359E-01, 0.1402E-01, 0.1446E-01, 0.1490E-01,& - 0.1534E-01, 0.1579E-01, 0.1624E-01, 0.1670E-01,& - 0.1716E-01, 0.1762E-01, 0.1810E-01, 0.1858E-01,& - 0.1905E-01, 0.1953E-01, 0.2002E-01, 0.2051E-01,& - 0.2100E-01, 0.2150E-01, 0.2200E-01, 0.2251E-01,& - 0.2302E-01, 0.2354E-01, 0.2406E-01, 0.2457E-01,& - 0.2511E-01, 0.2563E-01, 0.2617E-01, 0.2671E-01,& - 0.2724E-01, 0.2779E-01, 0.2834E-01, 0.2890E-01,& - 0.2946E-01, 0.3002E-01, 0.3058E-01, 0.3116E-01,& - 0.3173E-01, 0.3230E-01, 0.3288E-01, 0.3346E-01,& - 0.3405E-01, 0.3464E-01, 0.3523E-01, 0.3583E-01,& - 0.3644E-01, 0.3703E-01, 0.3764E-01, 0.3826E-01,& - 0.3887E-01, 0.3949E-01, 0.4011E-01, 0.4074E-01,& - 0.4137E-01, 0.4201E-01, 0.4264E-01, 0.4328E-01,& - 0.4393E-01, 0.4457E-01, 0.4523E-01, 0.4587E-01,& - 0.4653E-01, 0.4719E-01, 0.4786E-01, 0.4853E-01,& - 0.4920E-01, 0.4986E-01, 0.5054E-01, 0.5122E-01,& - 0.5191E-01, 0.5259E-01, 0.5329E-01, 0.5398E-01,& - 0.5468E-01, 0.5538E-01, 0.5609E-01, 0.5679E-01,& - 0.5751E-01, 0.5821E-01, 0.5894E-01, 0.5965E-01,& - 0.6038E-01, 0.6111E-01, 0.6184E-01, 0.6256E-01,& - 0.6330E-01, 0.6404E-01, 0.6478E-01, 0.6553E-01,& - 0.6628E-01, 0.6703E-01, 0.6779E-01, 0.6855E-01,& - 0.6931E-01, 0.7007E-01, 0.7085E-01, 0.7161E-01,& - 0.7239E-01, 0.7318E-01, 0.7395E-01, 0.7474E-01,& - 0.7552E-01, 0.7631E-01, 0.7711E-01, 0.7791E-01,& - 0.7871E-01, 0.7951E-01, 0.8032E-01, 0.8113E-01,& - 0.8194E-01, 0.8276E-01, 0.8357E-01, 0.8440E-01,& - 0.8523E-01, 0.8605E-01, 0.8689E-01, 0.8772E-01,& - 0.8856E-01, 0.8940E-01, 0.9025E-01, 0.9110E-01,& - 0.9194E-01, 0.9280E-01, 0.9366E-01, 0.9452E-01,& - 0.9538E-01, 0.9625E-01, 0.9712E-01, 0.9799E-01,& - 0.9886E-01, 0.9974E-01, 0.1006E+00, 0.1015E+00,& - 0.1024E+00, 0.1033E+00, 0.1042E+00, 0.1051E+00,& - 0.1060E+00, 0.1069E+00, 0.1078E+00, 0.1087E+00,& - 0.1096E+00, 0.1105E+00, 0.1115E+00, 0.1124E+00,& - 0.1133E+00, 0.1142E+00, 0.1151E+00, 0.1161E+00,& - 0.1170E+00, 0.1180E+00, 0.1189E+00, 0.1199E+00,& - 0.1208E+00, 0.1218E+00, 0.1227E+00, 0.1237E+00,& - 0.1246E+00, 0.1256E+00, 0.1266E+00, 0.1275E+00,& - 0.1285E+00, 0.1295E+00, 0.1305E+00, 0.1315E+00,& - 0.1324E+00, 0.1334E+00, 0.1344E+00, 0.1354E+00,& - 0.1364E+00, 0.1374E+00, 0.1384E+00, 0.1394E+00,& - 0.1405E+00, 0.1415E+00, 0.1425E+00, 0.1435E+00,& - 0.1445E+00, 0.1456E+00, 0.1466E+00, 0.1476E+00,& - 0.1487E+00, 0.1497E+00, 0.1508E+00, 0.1518E+00,& - 0.1529E+00, 0.1539E+00, 0.1550E+00, 0.1560E+00,& - 0.1571E+00, 0.1581E+00, 0.1592E+00, 0.1603E+00,& - 0.1614E+00, 0.1624E+00, 0.1635E+00, 0.1646E+00,& - 0.1657E+00, 0.1668E+00, 0.1679E+00, 0.1690E+00,& - 0.1701E+00, 0.1712E+00, 0.1723E+00, 0.1734E+00,& - 0.1745E+00, 0.1756E+00, 0.1768E+00, 0.1779E+00,& - 0.1790E+00, 0.1801E+00, 0.1813E+00, 0.1824E+00,& - 0.1835E+00, 0.1847E+00, 0.1858E+00, 0.1870E+00,& - 0.1881E+00, 0.1893E+00, 0.1904E+00, 0.1916E+00,& - 0.1928E+00, 0.1939E+00, 0.1951E+00, 0.1963E+00,& - 0.1975E+00, 0.1987E+00, 0.1998E+00, 0.2010E+00,& - 0.2022E+00, 0.2034E+00, 0.2046E+00, 0.2058E+00,& - 0.2070E+00, 0.2082E+00, 0.2094E+00, 0.2106E+00,& - 0.2119E+00, 0.2131E+00, 0.2143E+00, 0.2155E+00,& - 0.2168E+00, 0.2180E+00, 0.2192E+00, 0.2205E+00,& - 0.2217E+00, 0.2230E+00, 0.2242E+00, 0.2255E+00,& - 0.2267E+00, 0.2280E+00, 0.2293E+00, 0.2305E+00,& - 0.2318E+00, 0.2331E+00, 0.2344E+00, 0.2356E+00,& - 0.2369E+00, 0.2382E+00, 0.2395E+00, 0.2408E+00,& - 0.2421E+00, 0.2434E+00, 0.2447E+00, 0.2460E+00,& - 0.2473E+00, 0.2486E+00, 0.2500E+00, 0.2513E+00,& - 0.2526E+00, 0.2540E+00, 0.2553E+00, 0.2566E+00,& - 0.2580E+00, 0.2593E+00, 0.2607E+00, 0.2620E+00,& - 0.2634E+00, 0.2647E+00, 0.2661E+00, 0.2675E+00,& - 0.2688E+00, 0.2702E+00, 0.2716E+00, 0.2729E+00,& - 0.2743E+00, 0.2757E+00, 0.2771E+00, 0.2785E+00,& - 0.2799E+00, 0.2813E+00, 0.2827E+00, 0.2841E+00,& - 0.2855E+00, 0.2870E+00, 0.2884E+00, 0.2898E+00,& - 0.2912E+00, 0.2927E+00, 0.2941E+00, 0.2955E+00,& - 0.2970E+00, 0.2984E+00, 0.2999E+00, 0.3013E+00,& - 0.3028E+00, 0.3042E+00, 0.3057E+00, 0.3072E+00,& - 0.3087E+00, 0.3101E+00, 0.3116E+00, 0.3131E+00,& - 0.3146E+00, 0.3161E+00, 0.3176E+00, 0.3191E+00,& - 0.3206E+00, 0.3221E+00, 0.3236E+00, 0.3251E+00,& - 0.3266E+00, 0.3282E+00, 0.3297E+00, 0.3312E+00,& - 0.3327E+00, 0.3343E+00, 0.3358E+00, 0.3374E+00,& - 0.3389E+00, 0.3405E+00, 0.3420E+00, 0.3436E+00,& - 0.3452E+00, 0.3467E+00, 0.3483E+00, 0.3499E+00,& - 0.3515E+00, 0.3531E+00, 0.3547E+00, 0.3562E+00,& - 0.3578E+00, 0.3594E+00, 0.3611E+00, 0.3627E+00,& - 0.3643E+00, 0.3659E+00, 0.3675E+00, 0.3692E+00,& - 0.3708E+00, 0.3724E+00, 0.3741E+00, 0.3757E+00,& - 0.3774E+00, 0.3790E+00, 0.3807E+00, 0.3823E+00,& - 0.3840E+00, 0.3857E+00, 0.3873E+00, 0.3890E+00,& - 0.3907E+00, 0.3924E+00, 0.3941E+00, 0.3958E+00,& - 0.3975E+00, 0.3992E+00, 0.4009E+00, 0.4026E+00,& - 0.4043E+00, 0.4060E+00, 0.4078E+00, 0.4095E+00,& - 0.4112E+00, 0.4130E+00, 0.4147E+00, 0.4165E+00,& - 0.4182E+00, 0.4200E+00, 0.4217E+00, 0.4235E+00,& - 0.4253E+00, 0.4271E+00, 0.4288E+00, 0.4306E+00,& - 0.4324E+00, 0.4342E+00, 0.4360E+00, 0.4378E+00,& - 0.4396E+00, 0.4414E+00, 0.4432E+00, 0.4451E+00,& - 0.4469E+00, 0.4487E+00, 0.4506E+00, 0.4524E+00,& - 0.4543E+00, 0.4561E+00, 0.4580E+00, 0.4598E+00,& - 0.4617E+00, 0.4636E+00, 0.4654E+00, 0.4673E+00,& - 0.4692E+00, 0.4711E+00, 0.4730E+00, 0.4749E+00,& - 0.4768E+00, 0.4787E+00, 0.4806E+00, 0.4825E+00,& - 0.4845E+00, 0.4864E+00, 0.4883E+00, 0.4903E+00,& - 0.4922E+00, 0.4941E+00, 0.4961E+00, 0.4981E+00,& - 0.5000E+00, 0.5020E+00, 0.5040E+00, 0.5060E+00,& - 0.5079E+00, 0.5099E+00, 0.5119E+00, 0.5139E+00,& - 0.5159E+00, 0.5180E+00, 0.5200E+00, 0.5220E+00,& - 0.5240E+00, 0.5261E+00, 0.5281E+00, 0.5301E+00,& - 0.5322E+00, 0.5342E+00, 0.5363E+00, 0.5384E+00,& - 0.5404E+00, 0.5425E+00, 0.5446E+00, 0.5467E+00,& - 0.5488E+00, 0.5509E+00, 0.5530E+00, 0.5551E+00,& - 0.5572E+00, 0.5593E+00, 0.5615E+00, 0.5636E+00,& - 0.5658E+00, 0.5679E+00, 0.5700E+00, 0.5722E+00,& - 0.5744E+00, 0.5765E+00, 0.5787E+00, 0.5809E+00,& - 0.5831E+00, 0.5853E+00, 0.5875E+00, 0.5897E+00,& - 0.5919E+00, 0.5941E+00, 0.5963E+00, 0.5985E+00,& - 0.6008E+00, 0.6030E+00, 0.6053E+00, 0.6075E+00,& - 0.6098E+00, 0.6121E+00, 0.6143E+00, 0.6166E+00,& - 0.6189E+00, 0.6212E+00, 0.6235E+00, 0.6258E+00,& - 0.6281E+00, 0.6304E+00, 0.6327E+00, 0.6350E+00,& - 0.6374E+00, 0.6397E+00, 0.6421E+00, 0.6444E+00,& - 0.6468E+00, 0.6492E+00, 0.6515E+00, 0.6539E+00,& - 0.6563E+00, 0.6587E+00, 0.6611E+00, 0.6635E+00,& - 0.6659E+00, 0.6683E+00, 0.6708E+00, 0.6732E+00,& - 0.6757E+00, 0.6781E+00, 0.6806E+00, 0.6830E+00,& - 0.6855E+00, 0.6880E+00, 0.6905E+00, 0.6929E+00,& - 0.6954E+00, 0.6980E+00, 0.7005E+00, 0.7030E+00,& - 0.7055E+00, 0.7080E+00, 0.7106E+00, 0.7131E+00,& - 0.7157E+00, 0.7183E+00, 0.7208E+00, 0.7234E+00,& - 0.7260E+00, 0.7286E+00, 0.7312E+00, 0.7338E+00,& - 0.7364E+00, 0.7390E+00, 0.7417E+00, 0.7443E+00,& - 0.7470E+00, 0.7496E+00, 0.7523E+00, 0.7550E+00,& - 0.7576E+00, 0.7603E+00, 0.7630E+00, 0.7657E+00,& - 0.7684E+00, 0.7712E+00, 0.7739E+00, 0.7766E+00,& - 0.7794E+00, 0.7821E+00, 0.7849E+00, 0.7877E+00,& - 0.7904E+00, 0.7932E+00, 0.7960E+00, 0.7988E+00,& - 0.8016E+00, 0.8044E+00, 0.8073E+00, 0.8101E+00,& - 0.8130E+00, 0.8158E+00, 0.8187E+00, 0.8216E+00,& - 0.8244E+00, 0.8273E+00, 0.8302E+00, 0.8331E+00,& - 0.8361E+00, 0.8390E+00, 0.8419E+00, 0.8449E+00,& - 0.8478E+00, 0.8508E+00, 0.8537E+00, 0.8567E+00,& - 0.8597E+00, 0.8627E+00, 0.8657E+00, 0.8688E+00,& - 0.8718E+00, 0.8748E+00, 0.8779E+00, 0.8809E+00,& - 0.8840E+00, 0.8871E+00, 0.8902E+00, 0.8933E+00,& - 0.8964E+00, 0.8995E+00, 0.9026E+00, 0.9058E+00,& - 0.9089E+00, 0.9121E+00, 0.9153E+00, 0.9184E+00,& - 0.9216E+00, 0.9248E+00, 0.9280E+00, 0.9313E+00,& - 0.9345E+00, 0.9377E+00, 0.9410E+00, 0.9443E+00,& - 0.9475E+00, 0.9508E+00, 0.9541E+00, 0.9574E+00,& - 0.9607E+00, 0.9641E+00, 0.9674E+00, 0.9708E+00,& - 0.9741E+00, 0.9775E+00, 0.9809E+00, 0.9843E+00,& - 0.9877E+00, 0.9911E+00, 0.9946E+00, 0.9980E+00,& - 0.1001E+01, 0.1005E+01, 0.1008E+01, 0.1012E+01,& - 0.1015E+01, 0.1019E+01, 0.1022E+01, 0.1026E+01,& - 0.1030E+01, 0.1033E+01, 0.1037E+01, 0.1040E+01,& - 0.1044E+01, 0.1048E+01, 0.1051E+01, 0.1055E+01,& - 0.1059E+01, 0.1062E+01, 0.1066E+01, 0.1070E+01,& - 0.1073E+01, 0.1077E+01, 0.1081E+01, 0.1085E+01,& - 0.1088E+01, 0.1092E+01, 0.1096E+01, 0.1100E+01,& - 0.1103E+01, 0.1107E+01, 0.1111E+01, 0.1115E+01,& - 0.1119E+01, 0.1123E+01, 0.1127E+01, 0.1131E+01,& - 0.1135E+01, 0.1139E+01, 0.1143E+01, 0.1147E+01,& - 0.1151E+01, 0.1155E+01, 0.1159E+01, 0.1163E+01,& - 0.1167E+01, 0.1171E+01, 0.1175E+01, 0.1179E+01,& - 0.1183E+01, 0.1187E+01, 0.1191E+01, 0.1196E+01,& - 0.1200E+01, 0.1204E+01, 0.1208E+01, 0.1212E+01,& - 0.1217E+01, 0.1221E+01, 0.1225E+01, 0.1230E+01,& - 0.1234E+01, 0.1238E+01, 0.1243E+01, 0.1247E+01,& - 0.1251E+01, 0.1256E+01, 0.1260E+01, 0.1265E+01,& - 0.1269E+01, 0.1274E+01, 0.1278E+01, 0.1283E+01,& - 0.1287E+01, 0.1292E+01, 0.1296E+01, 0.1301E+01,& - 0.1306E+01, 0.1310E+01, 0.1315E+01, 0.1320E+01,& - 0.1324E+01, 0.1329E+01, 0.1334E+01, 0.1339E+01,& - 0.1343E+01, 0.1348E+01, 0.1353E+01, 0.1358E+01,& - 0.1363E+01, 0.1368E+01, 0.1373E+01, 0.1378E+01,& - 0.1383E+01, 0.1387E+01, 0.1393E+01, 0.1398E+01,& - 0.1403E+01, 0.1408E+01, 0.1413E+01, 0.1418E+01,& - 0.1423E+01, 0.1428E+01, 0.1433E+01, 0.1439E+01,& - 0.1444E+01, 0.1449E+01, 0.1454E+01, 0.1460E+01,& - 0.1465E+01, 0.1470E+01, 0.1476E+01, 0.1481E+01,& - 0.1487E+01, 0.1492E+01, 0.1498E+01, 0.1503E+01,& - 0.1509E+01, 0.1514E+01, 0.1520E+01, 0.1526E+01,& - 0.1531E+01, 0.1537E+01, 0.1543E+01, 0.1549E+01,& - 0.1554E+01, 0.1560E+01, 0.1566E+01, 0.1572E+01,& - 0.1578E+01, 0.1584E+01, 0.1590E+01, 0.1596E+01,& - 0.1602E+01, 0.1608E+01, 0.1614E+01, 0.1620E+01,& - 0.1626E+01, 0.1632E+01, 0.1639E+01, 0.1645E+01,& - 0.1651E+01, 0.1657E+01, 0.1664E+01, 0.1670E+01,& - 0.1677E+01, 0.1683E+01, 0.1690E+01, 0.1696E+01,& - 0.1703E+01, 0.1709E+01, 0.1716E+01, 0.1723E+01,& - 0.1729E+01, 0.1736E+01, 0.1743E+01, 0.1750E+01,& - 0.1757E+01, 0.1764E+01, 0.1771E+01, 0.1778E+01,& - 0.1785E+01, 0.1792E+01, 0.1799E+01, 0.1806E+01,& - 0.1813E+01, 0.1821E+01, 0.1828E+01, 0.1835E+01,& - 0.1843E+01, 0.1850E+01, 0.1858E+01, 0.1865E+01,& - 0.1873E+01, 0.1881E+01, 0.1888E+01, 0.1896E+01,& - 0.1904E+01, 0.1912E+01, 0.1920E+01, 0.1928E+01,& - 0.1936E+01, 0.1944E+01, 0.1952E+01, 0.1960E+01,& - 0.1968E+01, 0.1977E+01, 0.1985E+01, 0.1993E+01,& - 0.2002E+01, 0.2010E+01, 0.2019E+01, 0.2028E+01,& - 0.2036E+01, 0.2045E+01, 0.2054E+01, 0.2063E+01,& - 0.2072E+01, 0.2081E+01, 0.2090E+01, 0.2099E+01,& - 0.2108E+01, 0.2118E+01, 0.2127E+01, 0.2137E+01,& - 0.2146E+01, 0.2156E+01, 0.2166E+01, 0.2175E+01,& - 0.2185E+01, 0.2195E+01, 0.2205E+01, 0.2215E+01,& - 0.2225E+01, 0.2236E+01, 0.2246E+01, 0.2256E+01,& - 0.2267E+01, 0.2278E+01, 0.2288E+01, 0.2299E+01,& - 0.2310E+01, 0.2321E+01, 0.2332E+01, 0.2343E+01,& - 0.2355E+01, 0.2366E+01, 0.2378E+01, 0.2389E+01,& - 0.2401E+01, 0.2413E+01, 0.2425E+01, 0.2437E+01,& - 0.2449E+01, 0.2461E+01, 0.2474E+01, 0.2486E+01,& - 0.2499E+01, 0.2512E+01, 0.2525E+01, 0.2538E+01,& - 0.2551E+01, 0.2564E+01, 0.2578E+01, 0.2592E+01,& - 0.2605E+01, 0.2619E+01, 0.2634E+01, 0.2648E+01,& - 0.2662E+01, 0.2677E+01, 0.2692E+01, 0.2707E+01,& - 0.2722E+01, 0.2737E+01, 0.2753E+01, 0.2768E+01,& - 0.2784E+01, 0.2800E+01, 0.2816E+01, 0.2833E+01,& - 0.2850E+01, 0.2867E+01, 0.2884E+01, 0.2901E+01,& - 0.2919E+01, 0.2937E+01, 0.2955E+01, 0.2973E+01,& - 0.2992E+01, 0.3011E+01, 0.3030E+01, 0.3050E+01,& - 0.3070E+01, 0.3090E+01, 0.3110E+01, 0.3131E+01,& - 0.3152E+01, 0.3174E+01, 0.3195E+01, 0.3218E+01,& - 0.3240E+01, 0.3263E+01, 0.3287E+01, 0.3310E+01,& - 0.3335E+01, 0.3359E+01, 0.3385E+01, 0.3410E+01,& - 0.3437E+01, 0.3463E+01, 0.3491E+01, 0.3519E+01,& - 0.3547E+01, 0.3576E+01, 0.3606E+01, 0.3637E+01,& - 0.3668E+01, 0.3700E+01, 0.3732E+01, 0.3766E+01,& - 0.3801E+01, 0.3836E+01, 0.3872E+01, 0.3910E+01,& - 0.3948E+01, 0.3988E+01, 0.4029E+01, 0.4071E+01,& - 0.4114E+01, 0.4159E+01, 0.4206E+01, 0.4254E+01,& - 0.4304E+01, 0.4356E+01, 0.4410E+01, 0.4466E+01,& - 0.4524E+01, 0.4586E+01, 0.4650E+01, 0.4717E+01,& - 0.4788E+01, 0.4863E+01, 0.4942E+01, 0.5027E+01,& - 0.5116E+01, 0.5212E+01, 0.5315E+01, 0.5427E+01,& - 0.5548E+01, 0.5682E+01, 0.5829E+01, 0.5994E+01,& - 0.6182E+01, 0.6399E+01, 0.6656E+01, 0.6971E+01,& - 0.1000E-04, 0.2222E-04, 0.7109E-04, 0.1444E-03/) - xcw(:, 47) = (/& - 0.1000E-04, 0.2222E-04, 0.7109E-04, 0.1444E-03,& - 0.2299E-03, 0.3277E-03, 0.4377E-03, 0.5599E-03,& - 0.6943E-03, 0.8409E-03, 0.9875E-03, 0.1146E-02,& - 0.1317E-02, 0.1488E-02, 0.1672E-02, 0.1867E-02,& - 0.2063E-02, 0.2271E-02, 0.2478E-02, 0.2698E-02,& - 0.2930E-02, 0.3162E-02, 0.3407E-02, 0.3651E-02,& - 0.3896E-02, 0.4152E-02, 0.4421E-02, 0.4690E-02,& - 0.4971E-02, 0.5252E-02, 0.5533E-02, 0.5826E-02,& - 0.6119E-02, 0.6425E-02, 0.6730E-02, 0.7048E-02,& - 0.7366E-02, 0.7683E-02, 0.8013E-02, 0.8343E-02,& - 0.8685E-02, 0.9028E-02, 0.9382E-02, 0.9736E-02,& - 0.1009E-01, 0.1044E-01, 0.1081E-01, 0.1119E-01,& - 0.1157E-01, 0.1195E-01, 0.1233E-01, 0.1272E-01,& - 0.1311E-01, 0.1351E-01, 0.1392E-01, 0.1432E-01,& - 0.1473E-01, 0.1515E-01, 0.1556E-01, 0.1599E-01,& - 0.1642E-01, 0.1686E-01, 0.1729E-01, 0.1774E-01,& - 0.1818E-01, 0.1863E-01, 0.1908E-01, 0.1954E-01,& - 0.2000E-01, 0.2046E-01, 0.2093E-01, 0.2141E-01,& - 0.2188E-01, 0.2237E-01, 0.2285E-01, 0.2334E-01,& - 0.2384E-01, 0.2433E-01, 0.2483E-01, 0.2534E-01,& - 0.2584E-01, 0.2635E-01, 0.2687E-01, 0.2739E-01,& - 0.2792E-01, 0.2844E-01, 0.2897E-01, 0.2951E-01,& - 0.3004E-01, 0.3058E-01, 0.3113E-01, 0.3168E-01,& - 0.3223E-01, 0.3278E-01, 0.3334E-01, 0.3391E-01,& - 0.3448E-01, 0.3504E-01, 0.3562E-01, 0.3620E-01,& - 0.3678E-01, 0.3736E-01, 0.3795E-01, 0.3855E-01,& - 0.3915E-01, 0.3975E-01, 0.4034E-01, 0.4094E-01,& - 0.4155E-01, 0.4218E-01, 0.4279E-01, 0.4341E-01,& - 0.4403E-01, 0.4466E-01, 0.4529E-01, 0.4592E-01,& - 0.4656E-01, 0.4720E-01, 0.4785E-01, 0.4849E-01,& - 0.4914E-01, 0.4979E-01, 0.5045E-01, 0.5111E-01,& - 0.5178E-01, 0.5244E-01, 0.5311E-01, 0.5379E-01,& - 0.5447E-01, 0.5515E-01, 0.5584E-01, 0.5652E-01,& - 0.5721E-01, 0.5790E-01, 0.5860E-01, 0.5931E-01,& - 0.6001E-01, 0.6071E-01, 0.6142E-01, 0.6214E-01,& - 0.6286E-01, 0.6359E-01, 0.6431E-01, 0.6503E-01,& - 0.6576E-01, 0.6649E-01, 0.6723E-01, 0.6797E-01,& - 0.6872E-01, 0.6946E-01, 0.7021E-01, 0.7097E-01,& - 0.7172E-01, 0.7248E-01, 0.7325E-01, 0.7401E-01,& - 0.7478E-01, 0.7556E-01, 0.7633E-01, 0.7711E-01,& - 0.7789E-01, 0.7868E-01, 0.7947E-01, 0.8026E-01,& - 0.8106E-01, 0.8185E-01, 0.8266E-01, 0.8347E-01,& - 0.8427E-01, 0.8509E-01, 0.8590E-01, 0.8672E-01,& - 0.8753E-01, 0.8837E-01, 0.8920E-01, 0.9003E-01,& - 0.9086E-01, 0.9169E-01, 0.9253E-01, 0.9337E-01,& - 0.9423E-01, 0.9507E-01, 0.9593E-01, 0.9678E-01,& - 0.9765E-01, 0.9851E-01, 0.9937E-01, 0.1002E+00,& - 0.1011E+00, 0.1020E+00, 0.1029E+00, 0.1038E+00,& - 0.1046E+00, 0.1055E+00, 0.1064E+00, 0.1073E+00,& - 0.1082E+00, 0.1091E+00, 0.1100E+00, 0.1109E+00,& - 0.1118E+00, 0.1128E+00, 0.1137E+00, 0.1146E+00,& - 0.1155E+00, 0.1164E+00, 0.1174E+00, 0.1183E+00,& - 0.1193E+00, 0.1202E+00, 0.1211E+00, 0.1221E+00,& - 0.1230E+00, 0.1240E+00, 0.1249E+00, 0.1259E+00,& - 0.1269E+00, 0.1278E+00, 0.1288E+00, 0.1298E+00,& - 0.1308E+00, 0.1317E+00, 0.1327E+00, 0.1337E+00,& - 0.1347E+00, 0.1357E+00, 0.1367E+00, 0.1377E+00,& - 0.1387E+00, 0.1397E+00, 0.1407E+00, 0.1417E+00,& - 0.1427E+00, 0.1437E+00, 0.1448E+00, 0.1458E+00,& - 0.1468E+00, 0.1478E+00, 0.1489E+00, 0.1499E+00,& - 0.1510E+00, 0.1520E+00, 0.1530E+00, 0.1541E+00,& - 0.1552E+00, 0.1562E+00, 0.1573E+00, 0.1583E+00,& - 0.1594E+00, 0.1605E+00, 0.1615E+00, 0.1626E+00,& - 0.1637E+00, 0.1648E+00, 0.1659E+00, 0.1670E+00,& - 0.1681E+00, 0.1692E+00, 0.1703E+00, 0.1714E+00,& - 0.1725E+00, 0.1736E+00, 0.1747E+00, 0.1758E+00,& - 0.1769E+00, 0.1781E+00, 0.1792E+00, 0.1803E+00,& - 0.1814E+00, 0.1826E+00, 0.1837E+00, 0.1849E+00,& - 0.1860E+00, 0.1872E+00, 0.1883E+00, 0.1895E+00,& - 0.1906E+00, 0.1918E+00, 0.1930E+00, 0.1942E+00,& - 0.1953E+00, 0.1965E+00, 0.1977E+00, 0.1989E+00,& - 0.2001E+00, 0.2013E+00, 0.2025E+00, 0.2037E+00,& - 0.2049E+00, 0.2061E+00, 0.2073E+00, 0.2085E+00,& - 0.2097E+00, 0.2109E+00, 0.2122E+00, 0.2134E+00,& - 0.2146E+00, 0.2158E+00, 0.2171E+00, 0.2183E+00,& - 0.2196E+00, 0.2208E+00, 0.2221E+00, 0.2233E+00,& - 0.2246E+00, 0.2259E+00, 0.2271E+00, 0.2284E+00,& - 0.2297E+00, 0.2309E+00, 0.2322E+00, 0.2335E+00,& - 0.2348E+00, 0.2361E+00, 0.2374E+00, 0.2387E+00,& - 0.2400E+00, 0.2413E+00, 0.2426E+00, 0.2439E+00,& - 0.2452E+00, 0.2466E+00, 0.2479E+00, 0.2492E+00,& - 0.2505E+00, 0.2519E+00, 0.2532E+00, 0.2546E+00,& - 0.2559E+00, 0.2573E+00, 0.2586E+00, 0.2600E+00,& - 0.2613E+00, 0.2627E+00, 0.2641E+00, 0.2654E+00,& - 0.2668E+00, 0.2682E+00, 0.2696E+00, 0.2710E+00,& - 0.2724E+00, 0.2738E+00, 0.2752E+00, 0.2766E+00,& - 0.2780E+00, 0.2794E+00, 0.2808E+00, 0.2822E+00,& - 0.2836E+00, 0.2851E+00, 0.2865E+00, 0.2879E+00,& - 0.2894E+00, 0.2908E+00, 0.2923E+00, 0.2937E+00,& - 0.2952E+00, 0.2966E+00, 0.2981E+00, 0.2995E+00,& - 0.3010E+00, 0.3025E+00, 0.3040E+00, 0.3054E+00,& - 0.3069E+00, 0.3084E+00, 0.3099E+00, 0.3114E+00,& - 0.3129E+00, 0.3144E+00, 0.3159E+00, 0.3174E+00,& - 0.3190E+00, 0.3205E+00, 0.3220E+00, 0.3235E+00,& - 0.3251E+00, 0.3266E+00, 0.3282E+00, 0.3297E+00,& - 0.3313E+00, 0.3328E+00, 0.3344E+00, 0.3359E+00,& - 0.3375E+00, 0.3391E+00, 0.3406E+00, 0.3422E+00,& - 0.3438E+00, 0.3454E+00, 0.3470E+00, 0.3486E+00,& - 0.3502E+00, 0.3518E+00, 0.3534E+00, 0.3550E+00,& - 0.3566E+00, 0.3583E+00, 0.3599E+00, 0.3615E+00,& - 0.3632E+00, 0.3648E+00, 0.3665E+00, 0.3681E+00,& - 0.3698E+00, 0.3714E+00, 0.3731E+00, 0.3747E+00,& - 0.3764E+00, 0.3781E+00, 0.3798E+00, 0.3815E+00,& - 0.3831E+00, 0.3848E+00, 0.3865E+00, 0.3882E+00,& - 0.3900E+00, 0.3917E+00, 0.3934E+00, 0.3951E+00,& - 0.3968E+00, 0.3986E+00, 0.4003E+00, 0.4020E+00,& - 0.4038E+00, 0.4055E+00, 0.4073E+00, 0.4090E+00,& - 0.4108E+00, 0.4126E+00, 0.4143E+00, 0.4161E+00,& - 0.4179E+00, 0.4197E+00, 0.4215E+00, 0.4233E+00,& - 0.4251E+00, 0.4269E+00, 0.4287E+00, 0.4305E+00,& - 0.4323E+00, 0.4342E+00, 0.4360E+00, 0.4378E+00,& - 0.4397E+00, 0.4415E+00, 0.4434E+00, 0.4452E+00,& - 0.4471E+00, 0.4490E+00, 0.4508E+00, 0.4527E+00,& - 0.4546E+00, 0.4565E+00, 0.4584E+00, 0.4603E+00,& - 0.4622E+00, 0.4641E+00, 0.4660E+00, 0.4679E+00,& - 0.4698E+00, 0.4717E+00, 0.4737E+00, 0.4756E+00,& - 0.4776E+00, 0.4795E+00, 0.4815E+00, 0.4834E+00,& - 0.4854E+00, 0.4874E+00, 0.4893E+00, 0.4913E+00,& - 0.4933E+00, 0.4953E+00, 0.4973E+00, 0.4993E+00,& - 0.5013E+00, 0.5033E+00, 0.5053E+00, 0.5073E+00,& - 0.5094E+00, 0.5114E+00, 0.5134E+00, 0.5155E+00,& - 0.5176E+00, 0.5196E+00, 0.5217E+00, 0.5237E+00,& - 0.5258E+00, 0.5279E+00, 0.5300E+00, 0.5321E+00,& - 0.5342E+00, 0.5363E+00, 0.5384E+00, 0.5405E+00,& - 0.5426E+00, 0.5447E+00, 0.5469E+00, 0.5490E+00,& - 0.5512E+00, 0.5533E+00, 0.5555E+00, 0.5576E+00,& - 0.5598E+00, 0.5620E+00, 0.5642E+00, 0.5663E+00,& - 0.5685E+00, 0.5707E+00, 0.5729E+00, 0.5752E+00,& - 0.5774E+00, 0.5796E+00, 0.5818E+00, 0.5841E+00,& - 0.5863E+00, 0.5885E+00, 0.5908E+00, 0.5931E+00,& - 0.5953E+00, 0.5976E+00, 0.5999E+00, 0.6022E+00,& - 0.6045E+00, 0.6068E+00, 0.6091E+00, 0.6114E+00,& - 0.6137E+00, 0.6160E+00, 0.6184E+00, 0.6207E+00,& - 0.6231E+00, 0.6254E+00, 0.6278E+00, 0.6301E+00,& - 0.6325E+00, 0.6349E+00, 0.6373E+00, 0.6397E+00,& - 0.6421E+00, 0.6445E+00, 0.6469E+00, 0.6493E+00,& - 0.6518E+00, 0.6542E+00, 0.6566E+00, 0.6591E+00,& - 0.6615E+00, 0.6640E+00, 0.6665E+00, 0.6690E+00,& - 0.6714E+00, 0.6739E+00, 0.6764E+00, 0.6789E+00,& - 0.6815E+00, 0.6840E+00, 0.6865E+00, 0.6891E+00,& - 0.6916E+00, 0.6942E+00, 0.6967E+00, 0.6993E+00,& - 0.7019E+00, 0.7044E+00, 0.7070E+00, 0.7096E+00,& - 0.7122E+00, 0.7149E+00, 0.7175E+00, 0.7201E+00,& - 0.7227E+00, 0.7254E+00, 0.7281E+00, 0.7307E+00,& - 0.7334E+00, 0.7361E+00, 0.7388E+00, 0.7414E+00,& - 0.7441E+00, 0.7469E+00, 0.7496E+00, 0.7523E+00,& - 0.7550E+00, 0.7578E+00, 0.7605E+00, 0.7633E+00,& - 0.7661E+00, 0.7689E+00, 0.7716E+00, 0.7744E+00,& - 0.7772E+00, 0.7801E+00, 0.7829E+00, 0.7857E+00,& - 0.7885E+00, 0.7914E+00, 0.7943E+00, 0.7971E+00,& - 0.8000E+00, 0.8029E+00, 0.8058E+00, 0.8087E+00,& - 0.8116E+00, 0.8145E+00, 0.8174E+00, 0.8204E+00,& - 0.8233E+00, 0.8263E+00, 0.8292E+00, 0.8322E+00,& - 0.8352E+00, 0.8382E+00, 0.8412E+00, 0.8442E+00,& - 0.8473E+00, 0.8503E+00, 0.8533E+00, 0.8564E+00,& - 0.8595E+00, 0.8625E+00, 0.8656E+00, 0.8687E+00,& - 0.8718E+00, 0.8749E+00, 0.8781E+00, 0.8812E+00,& - 0.8843E+00, 0.8875E+00, 0.8907E+00, 0.8938E+00,& - 0.8970E+00, 0.9002E+00, 0.9034E+00, 0.9067E+00,& - 0.9099E+00, 0.9131E+00, 0.9164E+00, 0.9196E+00,& - 0.9229E+00, 0.9262E+00, 0.9295E+00, 0.9328E+00,& - 0.9361E+00, 0.9395E+00, 0.9428E+00, 0.9461E+00,& - 0.9495E+00, 0.9529E+00, 0.9563E+00, 0.9597E+00,& - 0.9631E+00, 0.9665E+00, 0.9699E+00, 0.9734E+00,& - 0.9769E+00, 0.9803E+00, 0.9838E+00, 0.9873E+00,& - 0.9908E+00, 0.9943E+00, 0.9979E+00, 0.1001E+01,& - 0.1005E+01, 0.1009E+01, 0.1012E+01, 0.1016E+01,& - 0.1019E+01, 0.1023E+01, 0.1027E+01, 0.1030E+01,& - 0.1034E+01, 0.1038E+01, 0.1041E+01, 0.1045E+01,& - 0.1049E+01, 0.1052E+01, 0.1056E+01, 0.1060E+01,& - 0.1064E+01, 0.1067E+01, 0.1071E+01, 0.1075E+01,& - 0.1079E+01, 0.1083E+01, 0.1087E+01, 0.1090E+01,& - 0.1094E+01, 0.1098E+01, 0.1102E+01, 0.1106E+01,& - 0.1110E+01, 0.1114E+01, 0.1118E+01, 0.1122E+01,& - 0.1126E+01, 0.1130E+01, 0.1134E+01, 0.1138E+01,& - 0.1142E+01, 0.1146E+01, 0.1150E+01, 0.1154E+01,& - 0.1159E+01, 0.1163E+01, 0.1167E+01, 0.1171E+01,& - 0.1175E+01, 0.1179E+01, 0.1184E+01, 0.1188E+01,& - 0.1192E+01, 0.1196E+01, 0.1201E+01, 0.1205E+01,& - 0.1209E+01, 0.1214E+01, 0.1218E+01, 0.1223E+01,& - 0.1227E+01, 0.1231E+01, 0.1236E+01, 0.1240E+01,& - 0.1245E+01, 0.1249E+01, 0.1254E+01, 0.1258E+01,& - 0.1263E+01, 0.1267E+01, 0.1272E+01, 0.1277E+01,& - 0.1281E+01, 0.1286E+01, 0.1291E+01, 0.1295E+01,& - 0.1300E+01, 0.1305E+01, 0.1310E+01, 0.1314E+01,& - 0.1319E+01, 0.1324E+01, 0.1329E+01, 0.1334E+01,& - 0.1338E+01, 0.1343E+01, 0.1348E+01, 0.1353E+01,& - 0.1358E+01, 0.1363E+01, 0.1368E+01, 0.1373E+01,& - 0.1378E+01, 0.1383E+01, 0.1388E+01, 0.1394E+01,& - 0.1399E+01, 0.1404E+01, 0.1409E+01, 0.1414E+01,& - 0.1420E+01, 0.1425E+01, 0.1430E+01, 0.1436E+01,& - 0.1441E+01, 0.1446E+01, 0.1452E+01, 0.1457E+01,& - 0.1463E+01, 0.1468E+01, 0.1474E+01, 0.1479E+01,& - 0.1485E+01, 0.1490E+01, 0.1496E+01, 0.1501E+01,& - 0.1507E+01, 0.1513E+01, 0.1519E+01, 0.1524E+01,& - 0.1530E+01, 0.1536E+01, 0.1542E+01, 0.1548E+01,& - 0.1554E+01, 0.1560E+01, 0.1566E+01, 0.1572E+01,& - 0.1578E+01, 0.1584E+01, 0.1590E+01, 0.1596E+01,& - 0.1602E+01, 0.1608E+01, 0.1614E+01, 0.1621E+01,& - 0.1627E+01, 0.1633E+01, 0.1640E+01, 0.1646E+01,& - 0.1653E+01, 0.1659E+01, 0.1665E+01, 0.1672E+01,& - 0.1679E+01, 0.1685E+01, 0.1692E+01, 0.1699E+01,& - 0.1705E+01, 0.1712E+01, 0.1719E+01, 0.1726E+01,& - 0.1733E+01, 0.1740E+01, 0.1747E+01, 0.1754E+01,& - 0.1761E+01, 0.1768E+01, 0.1775E+01, 0.1782E+01,& - 0.1789E+01, 0.1796E+01, 0.1804E+01, 0.1811E+01,& - 0.1819E+01, 0.1826E+01, 0.1834E+01, 0.1841E+01,& - 0.1849E+01, 0.1856E+01, 0.1864E+01, 0.1872E+01,& - 0.1880E+01, 0.1887E+01, 0.1895E+01, 0.1903E+01,& - 0.1911E+01, 0.1919E+01, 0.1927E+01, 0.1936E+01,& - 0.1944E+01, 0.1952E+01, 0.1960E+01, 0.1969E+01,& - 0.1977E+01, 0.1986E+01, 0.1994E+01, 0.2003E+01,& - 0.2012E+01, 0.2020E+01, 0.2029E+01, 0.2038E+01,& - 0.2047E+01, 0.2056E+01, 0.2065E+01, 0.2074E+01,& - 0.2083E+01, 0.2093E+01, 0.2102E+01, 0.2111E+01,& - 0.2121E+01, 0.2130E+01, 0.2140E+01, 0.2150E+01,& - 0.2160E+01, 0.2169E+01, 0.2179E+01, 0.2189E+01,& - 0.2199E+01, 0.2210E+01, 0.2220E+01, 0.2230E+01,& - 0.2241E+01, 0.2251E+01, 0.2262E+01, 0.2273E+01,& - 0.2283E+01, 0.2294E+01, 0.2305E+01, 0.2316E+01,& - 0.2328E+01, 0.2339E+01, 0.2350E+01, 0.2362E+01,& - 0.2373E+01, 0.2385E+01, 0.2397E+01, 0.2409E+01,& - 0.2421E+01, 0.2433E+01, 0.2445E+01, 0.2458E+01,& - 0.2470E+01, 0.2483E+01, 0.2496E+01, 0.2509E+01,& - 0.2522E+01, 0.2535E+01, 0.2548E+01, 0.2562E+01,& - 0.2575E+01, 0.2589E+01, 0.2603E+01, 0.2617E+01,& - 0.2631E+01, 0.2645E+01, 0.2660E+01, 0.2675E+01,& - 0.2689E+01, 0.2704E+01, 0.2720E+01, 0.2735E+01,& - 0.2751E+01, 0.2766E+01, 0.2782E+01, 0.2798E+01,& - 0.2815E+01, 0.2831E+01, 0.2848E+01, 0.2865E+01,& - 0.2882E+01, 0.2900E+01, 0.2917E+01, 0.2935E+01,& - 0.2953E+01, 0.2972E+01, 0.2991E+01, 0.3009E+01,& - 0.3029E+01, 0.3048E+01, 0.3068E+01, 0.3088E+01,& - 0.3109E+01, 0.3129E+01, 0.3150E+01, 0.3172E+01,& - 0.3193E+01, 0.3216E+01, 0.3238E+01, 0.3261E+01,& - 0.3284E+01, 0.3308E+01, 0.3332E+01, 0.3357E+01,& - 0.3382E+01, 0.3407E+01, 0.3433E+01, 0.3460E+01,& - 0.3486E+01, 0.3514E+01, 0.3542E+01, 0.3571E+01,& - 0.3600E+01, 0.3631E+01, 0.3661E+01, 0.3693E+01,& - 0.3725E+01, 0.3758E+01, 0.3792E+01, 0.3826E+01,& - 0.3862E+01, 0.3898E+01, 0.3936E+01, 0.3974E+01,& - 0.4014E+01, 0.4055E+01, 0.4097E+01, 0.4141E+01,& - 0.4185E+01, 0.4232E+01, 0.4280E+01, 0.4330E+01,& - 0.4381E+01, 0.4435E+01, 0.4490E+01, 0.4548E+01,& - 0.4609E+01, 0.4672E+01, 0.4739E+01, 0.4808E+01,& - 0.4882E+01, 0.4959E+01, 0.5041E+01, 0.5128E+01,& - 0.5221E+01, 0.5320E+01, 0.5426E+01, 0.5542E+01,& - 0.5667E+01, 0.5805E+01, 0.5958E+01, 0.6129E+01,& - 0.6323E+01, 0.6547E+01, 0.6813E+01, 0.7140E+01,& - 0.1000E-04, 0.1000E-04, 0.4756E-04, 0.9764E-04/) - xcw(:, 48) = (/& - 0.1000E-04, 0.1000E-04, 0.4756E-04, 0.9764E-04,& - 0.1602E-03, 0.2354E-03, 0.3230E-03, 0.4232E-03,& - 0.5233E-03, 0.6360E-03, 0.7612E-03, 0.8864E-03,& - 0.1024E-02, 0.1162E-02, 0.1312E-02, 0.1475E-02,& - 0.1638E-02, 0.1800E-02, 0.1976E-02, 0.2163E-02,& - 0.2351E-02, 0.2539E-02, 0.2739E-02, 0.2952E-02,& - 0.3165E-02, 0.3378E-02, 0.3603E-02, 0.3829E-02,& - 0.4066E-02, 0.4304E-02, 0.4555E-02, 0.4805E-02,& - 0.5056E-02, 0.5318E-02, 0.5581E-02, 0.5857E-02,& - 0.6132E-02, 0.6408E-02, 0.6696E-02, 0.6984E-02,& - 0.7272E-02, 0.7572E-02, 0.7885E-02, 0.8186E-02,& - 0.8499E-02, 0.8824E-02, 0.9137E-02, 0.9463E-02,& - 0.9801E-02, 0.1014E-01, 0.1048E-01, 0.1081E-01,& - 0.1117E-01, 0.1152E-01, 0.1188E-01, 0.1224E-01,& - 0.1261E-01, 0.1298E-01, 0.1334E-01, 0.1373E-01,& - 0.1411E-01, 0.1450E-01, 0.1488E-01, 0.1528E-01,& - 0.1568E-01, 0.1609E-01, 0.1649E-01, 0.1690E-01,& - 0.1731E-01, 0.1774E-01, 0.1816E-01, 0.1859E-01,& - 0.1902E-01, 0.1945E-01, 0.1989E-01, 0.2033E-01,& - 0.2078E-01, 0.2123E-01, 0.2168E-01, 0.2213E-01,& - 0.2260E-01, 0.2306E-01, 0.2353E-01, 0.2401E-01,& - 0.2449E-01, 0.2496E-01, 0.2545E-01, 0.2594E-01,& - 0.2643E-01, 0.2692E-01, 0.2742E-01, 0.2792E-01,& - 0.2843E-01, 0.2894E-01, 0.2946E-01, 0.2997E-01,& - 0.3048E-01, 0.3101E-01, 0.3155E-01, 0.3207E-01,& - 0.3261E-01, 0.3315E-01, 0.3369E-01, 0.3424E-01,& - 0.3478E-01, 0.3534E-01, 0.3589E-01, 0.3646E-01,& - 0.3702E-01, 0.3758E-01, 0.3816E-01, 0.3873E-01,& - 0.3931E-01, 0.3989E-01, 0.4047E-01, 0.4106E-01,& - 0.4165E-01, 0.4224E-01, 0.4284E-01, 0.4344E-01,& - 0.4406E-01, 0.4466E-01, 0.4527E-01, 0.4588E-01,& - 0.4651E-01, 0.4712E-01, 0.4775E-01, 0.4839E-01,& - 0.4901E-01, 0.4965E-01, 0.5029E-01, 0.5093E-01,& - 0.5158E-01, 0.5223E-01, 0.5288E-01, 0.5355E-01,& - 0.5420E-01, 0.5486E-01, 0.5552E-01, 0.5620E-01,& - 0.5688E-01, 0.5755E-01, 0.5823E-01, 0.5892E-01,& - 0.5960E-01, 0.6029E-01, 0.6098E-01, 0.6168E-01,& - 0.6238E-01, 0.6309E-01, 0.6379E-01, 0.6450E-01,& - 0.6521E-01, 0.6593E-01, 0.6665E-01, 0.6737E-01,& - 0.6811E-01, 0.6883E-01, 0.6956E-01, 0.7030E-01,& - 0.7104E-01, 0.7179E-01, 0.7253E-01, 0.7328E-01,& - 0.7403E-01, 0.7479E-01, 0.7556E-01, 0.7632E-01,& - 0.7708E-01, 0.7785E-01, 0.7862E-01, 0.7940E-01,& - 0.8018E-01, 0.8096E-01, 0.8175E-01, 0.8254E-01,& - 0.8333E-01, 0.8413E-01, 0.8493E-01, 0.8573E-01,& - 0.8654E-01, 0.8735E-01, 0.8816E-01, 0.8898E-01,& - 0.8979E-01, 0.9062E-01, 0.9144E-01, 0.9227E-01,& - 0.9311E-01, 0.9395E-01, 0.9479E-01, 0.9562E-01,& - 0.9646E-01, 0.9732E-01, 0.9817E-01, 0.9903E-01,& - 0.9988E-01, 0.1007E+00, 0.1016E+00, 0.1025E+00,& - 0.1033E+00, 0.1042E+00, 0.1051E+00, 0.1060E+00,& - 0.1069E+00, 0.1078E+00, 0.1087E+00, 0.1096E+00,& - 0.1104E+00, 0.1113E+00, 0.1123E+00, 0.1132E+00,& - 0.1141E+00, 0.1150E+00, 0.1159E+00, 0.1168E+00,& - 0.1178E+00, 0.1187E+00, 0.1196E+00, 0.1206E+00,& - 0.1215E+00, 0.1224E+00, 0.1234E+00, 0.1243E+00,& - 0.1253E+00, 0.1262E+00, 0.1272E+00, 0.1282E+00,& - 0.1291E+00, 0.1301E+00, 0.1311E+00, 0.1320E+00,& - 0.1330E+00, 0.1340E+00, 0.1350E+00, 0.1360E+00,& - 0.1370E+00, 0.1380E+00, 0.1390E+00, 0.1400E+00,& - 0.1410E+00, 0.1420E+00, 0.1430E+00, 0.1440E+00,& - 0.1450E+00, 0.1461E+00, 0.1471E+00, 0.1481E+00,& - 0.1492E+00, 0.1502E+00, 0.1512E+00, 0.1523E+00,& - 0.1533E+00, 0.1544E+00, 0.1554E+00, 0.1565E+00,& - 0.1575E+00, 0.1586E+00, 0.1597E+00, 0.1608E+00,& - 0.1618E+00, 0.1629E+00, 0.1640E+00, 0.1651E+00,& - 0.1662E+00, 0.1673E+00, 0.1684E+00, 0.1695E+00,& - 0.1706E+00, 0.1717E+00, 0.1728E+00, 0.1739E+00,& - 0.1750E+00, 0.1761E+00, 0.1772E+00, 0.1784E+00,& - 0.1795E+00, 0.1806E+00, 0.1818E+00, 0.1829E+00,& - 0.1841E+00, 0.1852E+00, 0.1864E+00, 0.1875E+00,& - 0.1887E+00, 0.1898E+00, 0.1910E+00, 0.1922E+00,& - 0.1934E+00, 0.1945E+00, 0.1957E+00, 0.1969E+00,& - 0.1981E+00, 0.1993E+00, 0.2005E+00, 0.2017E+00,& - 0.2029E+00, 0.2041E+00, 0.2053E+00, 0.2065E+00,& - 0.2077E+00, 0.2089E+00, 0.2102E+00, 0.2114E+00,& - 0.2126E+00, 0.2139E+00, 0.2151E+00, 0.2163E+00,& - 0.2176E+00, 0.2188E+00, 0.2201E+00, 0.2214E+00,& - 0.2226E+00, 0.2239E+00, 0.2252E+00, 0.2264E+00,& - 0.2277E+00, 0.2290E+00, 0.2303E+00, 0.2316E+00,& - 0.2328E+00, 0.2341E+00, 0.2354E+00, 0.2367E+00,& - 0.2381E+00, 0.2394E+00, 0.2407E+00, 0.2420E+00,& - 0.2433E+00, 0.2446E+00, 0.2460E+00, 0.2473E+00,& - 0.2486E+00, 0.2500E+00, 0.2513E+00, 0.2527E+00,& - 0.2540E+00, 0.2554E+00, 0.2568E+00, 0.2581E+00,& - 0.2595E+00, 0.2609E+00, 0.2622E+00, 0.2636E+00,& - 0.2650E+00, 0.2664E+00, 0.2678E+00, 0.2692E+00,& - 0.2706E+00, 0.2720E+00, 0.2734E+00, 0.2748E+00,& - 0.2762E+00, 0.2777E+00, 0.2791E+00, 0.2805E+00,& - 0.2819E+00, 0.2834E+00, 0.2848E+00, 0.2863E+00,& - 0.2877E+00, 0.2892E+00, 0.2906E+00, 0.2921E+00,& - 0.2936E+00, 0.2950E+00, 0.2965E+00, 0.2980E+00,& - 0.2995E+00, 0.3010E+00, 0.3024E+00, 0.3039E+00,& - 0.3054E+00, 0.3069E+00, 0.3085E+00, 0.3100E+00,& - 0.3115E+00, 0.3130E+00, 0.3145E+00, 0.3161E+00,& - 0.3176E+00, 0.3191E+00, 0.3207E+00, 0.3222E+00,& - 0.3238E+00, 0.3253E+00, 0.3269E+00, 0.3284E+00,& - 0.3300E+00, 0.3316E+00, 0.3332E+00, 0.3347E+00,& - 0.3363E+00, 0.3379E+00, 0.3395E+00, 0.3411E+00,& - 0.3427E+00, 0.3443E+00, 0.3459E+00, 0.3476E+00,& - 0.3492E+00, 0.3508E+00, 0.3524E+00, 0.3541E+00,& - 0.3557E+00, 0.3574E+00, 0.3590E+00, 0.3607E+00,& - 0.3623E+00, 0.3640E+00, 0.3657E+00, 0.3673E+00,& - 0.3690E+00, 0.3707E+00, 0.3724E+00, 0.3741E+00,& - 0.3758E+00, 0.3775E+00, 0.3792E+00, 0.3809E+00,& - 0.3826E+00, 0.3843E+00, 0.3860E+00, 0.3878E+00,& - 0.3895E+00, 0.3912E+00, 0.3930E+00, 0.3947E+00,& - 0.3965E+00, 0.3982E+00, 0.4000E+00, 0.4018E+00,& - 0.4035E+00, 0.4053E+00, 0.4071E+00, 0.4089E+00,& - 0.4107E+00, 0.4125E+00, 0.4143E+00, 0.4161E+00,& - 0.4179E+00, 0.4197E+00, 0.4216E+00, 0.4234E+00,& - 0.4252E+00, 0.4271E+00, 0.4289E+00, 0.4307E+00,& - 0.4326E+00, 0.4345E+00, 0.4363E+00, 0.4382E+00,& - 0.4401E+00, 0.4420E+00, 0.4438E+00, 0.4457E+00,& - 0.4476E+00, 0.4495E+00, 0.4514E+00, 0.4533E+00,& - 0.4553E+00, 0.4572E+00, 0.4591E+00, 0.4610E+00,& - 0.4630E+00, 0.4649E+00, 0.4669E+00, 0.4688E+00,& - 0.4708E+00, 0.4728E+00, 0.4747E+00, 0.4767E+00,& - 0.4787E+00, 0.4807E+00, 0.4827E+00, 0.4847E+00,& - 0.4867E+00, 0.4887E+00, 0.4907E+00, 0.4927E+00,& - 0.4948E+00, 0.4968E+00, 0.4988E+00, 0.5009E+00,& - 0.5029E+00, 0.5050E+00, 0.5071E+00, 0.5091E+00,& - 0.5112E+00, 0.5133E+00, 0.5154E+00, 0.5175E+00,& - 0.5196E+00, 0.5217E+00, 0.5238E+00, 0.5259E+00,& - 0.5280E+00, 0.5301E+00, 0.5323E+00, 0.5344E+00,& - 0.5366E+00, 0.5387E+00, 0.5409E+00, 0.5431E+00,& - 0.5452E+00, 0.5474E+00, 0.5496E+00, 0.5518E+00,& - 0.5540E+00, 0.5562E+00, 0.5584E+00, 0.5606E+00,& - 0.5628E+00, 0.5651E+00, 0.5673E+00, 0.5695E+00,& - 0.5718E+00, 0.5740E+00, 0.5763E+00, 0.5786E+00,& - 0.5808E+00, 0.5831E+00, 0.5854E+00, 0.5877E+00,& - 0.5900E+00, 0.5923E+00, 0.5946E+00, 0.5969E+00,& - 0.5993E+00, 0.6016E+00, 0.6040E+00, 0.6063E+00,& - 0.6087E+00, 0.6110E+00, 0.6134E+00, 0.6158E+00,& - 0.6182E+00, 0.6205E+00, 0.6230E+00, 0.6254E+00,& - 0.6278E+00, 0.6302E+00, 0.6326E+00, 0.6350E+00,& - 0.6375E+00, 0.6399E+00, 0.6424E+00, 0.6449E+00,& - 0.6473E+00, 0.6498E+00, 0.6523E+00, 0.6548E+00,& - 0.6573E+00, 0.6598E+00, 0.6623E+00, 0.6648E+00,& - 0.6674E+00, 0.6699E+00, 0.6725E+00, 0.6750E+00,& - 0.6776E+00, 0.6801E+00, 0.6827E+00, 0.6853E+00,& - 0.6879E+00, 0.6905E+00, 0.6931E+00, 0.6957E+00,& - 0.6983E+00, 0.7010E+00, 0.7036E+00, 0.7063E+00,& - 0.7089E+00, 0.7116E+00, 0.7143E+00, 0.7170E+00,& - 0.7196E+00, 0.7223E+00, 0.7250E+00, 0.7278E+00,& - 0.7305E+00, 0.7332E+00, 0.7360E+00, 0.7387E+00,& - 0.7415E+00, 0.7442E+00, 0.7470E+00, 0.7498E+00,& - 0.7526E+00, 0.7554E+00, 0.7582E+00, 0.7610E+00,& - 0.7639E+00, 0.7667E+00, 0.7695E+00, 0.7724E+00,& - 0.7753E+00, 0.7781E+00, 0.7810E+00, 0.7839E+00,& - 0.7868E+00, 0.7897E+00, 0.7926E+00, 0.7956E+00,& - 0.7985E+00, 0.8014E+00, 0.8044E+00, 0.8074E+00,& - 0.8104E+00, 0.8133E+00, 0.8163E+00, 0.8194E+00,& - 0.8224E+00, 0.8254E+00, 0.8284E+00, 0.8315E+00,& - 0.8345E+00, 0.8376E+00, 0.8407E+00, 0.8438E+00,& - 0.8469E+00, 0.8500E+00, 0.8531E+00, 0.8562E+00,& - 0.8594E+00, 0.8625E+00, 0.8657E+00, 0.8688E+00,& - 0.8720E+00, 0.8752E+00, 0.8784E+00, 0.8816E+00,& - 0.8848E+00, 0.8881E+00, 0.8913E+00, 0.8946E+00,& - 0.8979E+00, 0.9011E+00, 0.9044E+00, 0.9077E+00,& - 0.9110E+00, 0.9144E+00, 0.9177E+00, 0.9211E+00,& - 0.9244E+00, 0.9278E+00, 0.9312E+00, 0.9346E+00,& - 0.9380E+00, 0.9414E+00, 0.9448E+00, 0.9483E+00,& - 0.9517E+00, 0.9552E+00, 0.9587E+00, 0.9622E+00,& - 0.9657E+00, 0.9692E+00, 0.9727E+00, 0.9762E+00,& - 0.9798E+00, 0.9834E+00, 0.9869E+00, 0.9905E+00,& - 0.9941E+00, 0.9978E+00, 0.1001E+01, 0.1005E+01,& - 0.1009E+01, 0.1012E+01, 0.1016E+01, 0.1020E+01,& - 0.1023E+01, 0.1027E+01, 0.1031E+01, 0.1035E+01,& - 0.1038E+01, 0.1042E+01, 0.1046E+01, 0.1050E+01,& - 0.1054E+01, 0.1058E+01, 0.1061E+01, 0.1065E+01,& - 0.1069E+01, 0.1073E+01, 0.1077E+01, 0.1081E+01,& - 0.1085E+01, 0.1089E+01, 0.1093E+01, 0.1097E+01,& - 0.1101E+01, 0.1105E+01, 0.1109E+01, 0.1113E+01,& - 0.1117E+01, 0.1121E+01, 0.1125E+01, 0.1129E+01,& - 0.1133E+01, 0.1137E+01, 0.1142E+01, 0.1146E+01,& - 0.1150E+01, 0.1154E+01, 0.1158E+01, 0.1163E+01,& - 0.1167E+01, 0.1171E+01, 0.1176E+01, 0.1180E+01,& - 0.1184E+01, 0.1189E+01, 0.1193E+01, 0.1197E+01,& - 0.1202E+01, 0.1206E+01, 0.1211E+01, 0.1215E+01,& - 0.1220E+01, 0.1224E+01, 0.1229E+01, 0.1233E+01,& - 0.1238E+01, 0.1242E+01, 0.1247E+01, 0.1251E+01,& - 0.1256E+01, 0.1261E+01, 0.1265E+01, 0.1270E+01,& - 0.1275E+01, 0.1280E+01, 0.1284E+01, 0.1289E+01,& - 0.1294E+01, 0.1299E+01, 0.1304E+01, 0.1308E+01,& - 0.1313E+01, 0.1318E+01, 0.1323E+01, 0.1328E+01,& - 0.1333E+01, 0.1338E+01, 0.1343E+01, 0.1348E+01,& - 0.1353E+01, 0.1358E+01, 0.1363E+01, 0.1368E+01,& - 0.1374E+01, 0.1379E+01, 0.1384E+01, 0.1389E+01,& - 0.1394E+01, 0.1400E+01, 0.1405E+01, 0.1410E+01,& - 0.1416E+01, 0.1421E+01, 0.1426E+01, 0.1432E+01,& - 0.1437E+01, 0.1443E+01, 0.1448E+01, 0.1454E+01,& - 0.1459E+01, 0.1465E+01, 0.1471E+01, 0.1476E+01,& - 0.1482E+01, 0.1488E+01, 0.1493E+01, 0.1499E+01,& - 0.1505E+01, 0.1511E+01, 0.1517E+01, 0.1523E+01,& - 0.1528E+01, 0.1534E+01, 0.1540E+01, 0.1546E+01,& - 0.1552E+01, 0.1558E+01, 0.1565E+01, 0.1571E+01,& - 0.1577E+01, 0.1583E+01, 0.1589E+01, 0.1596E+01,& - 0.1602E+01, 0.1608E+01, 0.1614E+01, 0.1621E+01,& - 0.1627E+01, 0.1634E+01, 0.1640E+01, 0.1647E+01,& - 0.1653E+01, 0.1660E+01, 0.1667E+01, 0.1673E+01,& - 0.1680E+01, 0.1687E+01, 0.1694E+01, 0.1700E+01,& - 0.1707E+01, 0.1714E+01, 0.1721E+01, 0.1728E+01,& - 0.1735E+01, 0.1742E+01, 0.1749E+01, 0.1757E+01,& - 0.1764E+01, 0.1771E+01, 0.1778E+01, 0.1786E+01,& - 0.1793E+01, 0.1801E+01, 0.1808E+01, 0.1816E+01,& - 0.1823E+01, 0.1831E+01, 0.1838E+01, 0.1846E+01,& - 0.1854E+01, 0.1862E+01, 0.1870E+01, 0.1878E+01,& - 0.1885E+01, 0.1894E+01, 0.1902E+01, 0.1910E+01,& - 0.1918E+01, 0.1926E+01, 0.1934E+01, 0.1943E+01,& - 0.1951E+01, 0.1960E+01, 0.1968E+01, 0.1977E+01,& - 0.1985E+01, 0.1994E+01, 0.2003E+01, 0.2012E+01,& - 0.2021E+01, 0.2030E+01, 0.2039E+01, 0.2048E+01,& - 0.2057E+01, 0.2066E+01, 0.2075E+01, 0.2085E+01,& - 0.2094E+01, 0.2104E+01, 0.2113E+01, 0.2123E+01,& - 0.2133E+01, 0.2142E+01, 0.2152E+01, 0.2162E+01,& - 0.2172E+01, 0.2182E+01, 0.2193E+01, 0.2203E+01,& - 0.2213E+01, 0.2224E+01, 0.2234E+01, 0.2245E+01,& - 0.2256E+01, 0.2266E+01, 0.2277E+01, 0.2288E+01,& - 0.2299E+01, 0.2311E+01, 0.2322E+01, 0.2333E+01,& - 0.2345E+01, 0.2356E+01, 0.2368E+01, 0.2380E+01,& - 0.2392E+01, 0.2404E+01, 0.2416E+01, 0.2428E+01,& - 0.2440E+01, 0.2453E+01, 0.2466E+01, 0.2478E+01,& - 0.2491E+01, 0.2504E+01, 0.2517E+01, 0.2530E+01,& - 0.2544E+01, 0.2557E+01, 0.2571E+01, 0.2585E+01,& - 0.2599E+01, 0.2613E+01, 0.2627E+01, 0.2642E+01,& - 0.2656E+01, 0.2671E+01, 0.2686E+01, 0.2701E+01,& - 0.2716E+01, 0.2732E+01, 0.2747E+01, 0.2763E+01,& - 0.2779E+01, 0.2795E+01, 0.2812E+01, 0.2828E+01,& - 0.2845E+01, 0.2862E+01, 0.2879E+01, 0.2897E+01,& - 0.2914E+01, 0.2932E+01, 0.2950E+01, 0.2969E+01,& - 0.2988E+01, 0.3006E+01, 0.3026E+01, 0.3045E+01,& - 0.3065E+01, 0.3085E+01, 0.3105E+01, 0.3126E+01,& - 0.3147E+01, 0.3168E+01, 0.3190E+01, 0.3212E+01,& - 0.3234E+01, 0.3257E+01, 0.3280E+01, 0.3304E+01,& - 0.3328E+01, 0.3352E+01, 0.3377E+01, 0.3402E+01,& - 0.3428E+01, 0.3454E+01, 0.3481E+01, 0.3508E+01,& - 0.3536E+01, 0.3565E+01, 0.3594E+01, 0.3623E+01,& - 0.3654E+01, 0.3685E+01, 0.3716E+01, 0.3749E+01,& - 0.3782E+01, 0.3816E+01, 0.3851E+01, 0.3886E+01,& - 0.3923E+01, 0.3961E+01, 0.3999E+01, 0.4039E+01,& - 0.4080E+01, 0.4122E+01, 0.4166E+01, 0.4210E+01,& - 0.4257E+01, 0.4304E+01, 0.4354E+01, 0.4405E+01,& - 0.4459E+01, 0.4514E+01, 0.4571E+01, 0.4631E+01,& - 0.4694E+01, 0.4759E+01, 0.4828E+01, 0.4900E+01,& - 0.4975E+01, 0.5055E+01, 0.5140E+01, 0.5230E+01,& - 0.5325E+01, 0.5428E+01, 0.5538E+01, 0.5657E+01,& - 0.5787E+01, 0.5930E+01, 0.6087E+01, 0.6264E+01,& - 0.6465E+01, 0.6697E+01, 0.6972E+01, 0.7310E+01,& - 0.1000E-04, 0.1000E-04, 0.3565E-04, 0.7413E-04/) - xcw(:, 49) = (/& - 0.1000E-04, 0.1000E-04, 0.3565E-04, 0.7413E-04,& - 0.1126E-03, 0.1767E-03, 0.2409E-03, 0.3178E-03,& - 0.3948E-03, 0.4846E-03, 0.5744E-03, 0.6770E-03,& - 0.7924E-03, 0.8951E-03, 0.1023E-02, 0.1152E-02,& - 0.1280E-02, 0.1421E-02, 0.1562E-02, 0.1716E-02,& - 0.1870E-02, 0.2037E-02, 0.2203E-02, 0.2370E-02,& - 0.2550E-02, 0.2742E-02, 0.2922E-02, 0.3114E-02,& - 0.3319E-02, 0.3525E-02, 0.3730E-02, 0.3935E-02,& - 0.4153E-02, 0.4384E-02, 0.4615E-02, 0.4846E-02,& - 0.5077E-02, 0.5320E-02, 0.5564E-02, 0.5821E-02,& - 0.6077E-02, 0.6334E-02, 0.6590E-02, 0.6860E-02,& - 0.7142E-02, 0.7411E-02, 0.7693E-02, 0.7976E-02,& - 0.8271E-02, 0.8566E-02, 0.8861E-02, 0.9168E-02,& - 0.9476E-02, 0.9784E-02, 0.1010E-01, 0.1043E-01,& - 0.1075E-01, 0.1107E-01, 0.1140E-01, 0.1173E-01,& - 0.1208E-01, 0.1243E-01, 0.1277E-01, 0.1312E-01,& - 0.1348E-01, 0.1384E-01, 0.1420E-01, 0.1457E-01,& - 0.1494E-01, 0.1531E-01, 0.1570E-01, 0.1608E-01,& - 0.1647E-01, 0.1685E-01, 0.1725E-01, 0.1765E-01,& - 0.1806E-01, 0.1846E-01, 0.1887E-01, 0.1929E-01,& - 0.1970E-01, 0.2012E-01, 0.2055E-01, 0.2098E-01,& - 0.2141E-01, 0.2184E-01, 0.2229E-01, 0.2273E-01,& - 0.2318E-01, 0.2362E-01, 0.2409E-01, 0.2454E-01,& - 0.2500E-01, 0.2547E-01, 0.2593E-01, 0.2641E-01,& - 0.2688E-01, 0.2737E-01, 0.2784E-01, 0.2833E-01,& - 0.2883E-01, 0.2932E-01, 0.2982E-01, 0.3032E-01,& - 0.3082E-01, 0.3133E-01, 0.3185E-01, 0.3236E-01,& - 0.3289E-01, 0.3340E-01, 0.3392E-01, 0.3446E-01,& - 0.3499E-01, 0.3553E-01, 0.3607E-01, 0.3662E-01,& - 0.3716E-01, 0.3771E-01, 0.3826E-01, 0.3882E-01,& - 0.3939E-01, 0.3995E-01, 0.4052E-01, 0.4109E-01,& - 0.4166E-01, 0.4225E-01, 0.4283E-01, 0.4342E-01,& - 0.4399E-01, 0.4460E-01, 0.4519E-01, 0.4579E-01,& - 0.4639E-01, 0.4699E-01, 0.4761E-01, 0.4821E-01,& - 0.4883E-01, 0.4946E-01, 0.5007E-01, 0.5070E-01,& - 0.5133E-01, 0.5197E-01, 0.5260E-01, 0.5324E-01,& - 0.5388E-01, 0.5454E-01, 0.5518E-01, 0.5583E-01,& - 0.5650E-01, 0.5715E-01, 0.5782E-01, 0.5849E-01,& - 0.5915E-01, 0.5983E-01, 0.6051E-01, 0.6119E-01,& - 0.6187E-01, 0.6257E-01, 0.6326E-01, 0.6395E-01,& - 0.6464E-01, 0.6535E-01, 0.6606E-01, 0.6676E-01,& - 0.6747E-01, 0.6819E-01, 0.6890E-01, 0.6962E-01,& - 0.7035E-01, 0.7108E-01, 0.7182E-01, 0.7255E-01,& - 0.7329E-01, 0.7402E-01, 0.7478E-01, 0.7552E-01,& - 0.7627E-01, 0.7702E-01, 0.7779E-01, 0.7855E-01,& - 0.7932E-01, 0.8009E-01, 0.8086E-01, 0.8163E-01,& - 0.8241E-01, 0.8319E-01, 0.8397E-01, 0.8477E-01,& - 0.8555E-01, 0.8635E-01, 0.8716E-01, 0.8795E-01,& - 0.8876E-01, 0.8957E-01, 0.9039E-01, 0.9120E-01,& - 0.9202E-01, 0.9284E-01, 0.9367E-01, 0.9449E-01,& - 0.9533E-01, 0.9617E-01, 0.9701E-01, 0.9785E-01,& - 0.9870E-01, 0.9955E-01, 0.1004E+00, 0.1013E+00,& - 0.1021E+00, 0.1030E+00, 0.1038E+00, 0.1047E+00,& - 0.1056E+00, 0.1065E+00, 0.1074E+00, 0.1082E+00,& - 0.1091E+00, 0.1100E+00, 0.1109E+00, 0.1118E+00,& - 0.1127E+00, 0.1136E+00, 0.1145E+00, 0.1154E+00,& - 0.1164E+00, 0.1173E+00, 0.1182E+00, 0.1191E+00,& - 0.1200E+00, 0.1210E+00, 0.1219E+00, 0.1229E+00,& - 0.1238E+00, 0.1247E+00, 0.1257E+00, 0.1267E+00,& - 0.1276E+00, 0.1286E+00, 0.1295E+00, 0.1305E+00,& - 0.1315E+00, 0.1324E+00, 0.1334E+00, 0.1344E+00,& - 0.1354E+00, 0.1364E+00, 0.1374E+00, 0.1383E+00,& - 0.1393E+00, 0.1403E+00, 0.1414E+00, 0.1424E+00,& - 0.1434E+00, 0.1444E+00, 0.1454E+00, 0.1464E+00,& - 0.1475E+00, 0.1485E+00, 0.1495E+00, 0.1506E+00,& - 0.1516E+00, 0.1527E+00, 0.1537E+00, 0.1548E+00,& - 0.1558E+00, 0.1569E+00, 0.1579E+00, 0.1590E+00,& - 0.1601E+00, 0.1611E+00, 0.1622E+00, 0.1633E+00,& - 0.1644E+00, 0.1655E+00, 0.1666E+00, 0.1677E+00,& - 0.1688E+00, 0.1699E+00, 0.1710E+00, 0.1721E+00,& - 0.1732E+00, 0.1743E+00, 0.1754E+00, 0.1766E+00,& - 0.1777E+00, 0.1788E+00, 0.1800E+00, 0.1811E+00,& - 0.1822E+00, 0.1834E+00, 0.1845E+00, 0.1857E+00,& - 0.1868E+00, 0.1880E+00, 0.1892E+00, 0.1903E+00,& - 0.1915E+00, 0.1927E+00, 0.1939E+00, 0.1951E+00,& - 0.1962E+00, 0.1974E+00, 0.1986E+00, 0.1998E+00,& - 0.2010E+00, 0.2022E+00, 0.2035E+00, 0.2047E+00,& - 0.2059E+00, 0.2071E+00, 0.2083E+00, 0.2096E+00,& - 0.2108E+00, 0.2120E+00, 0.2133E+00, 0.2145E+00,& - 0.2158E+00, 0.2170E+00, 0.2183E+00, 0.2195E+00,& - 0.2208E+00, 0.2221E+00, 0.2234E+00, 0.2245E+00,& - 0.2259E+00, 0.2270E+00, 0.2285E+00, 0.2298E+00,& - 0.2311E+00, 0.2324E+00, 0.2337E+00, 0.2350E+00,& - 0.2363E+00, 0.2376E+00, 0.2389E+00, 0.2403E+00,& - 0.2416E+00, 0.2429E+00, 0.2443E+00, 0.2456E+00,& - 0.2469E+00, 0.2483E+00, 0.2496E+00, 0.2510E+00,& - 0.2524E+00, 0.2537E+00, 0.2551E+00, 0.2565E+00,& - 0.2578E+00, 0.2592E+00, 0.2606E+00, 0.2620E+00,& - 0.2634E+00, 0.2648E+00, 0.2662E+00, 0.2676E+00,& - 0.2690E+00, 0.2704E+00, 0.2719E+00, 0.2733E+00,& - 0.2747E+00, 0.2761E+00, 0.2776E+00, 0.2790E+00,& - 0.2805E+00, 0.2819E+00, 0.2834E+00, 0.2848E+00,& - 0.2863E+00, 0.2877E+00, 0.2892E+00, 0.2907E+00,& - 0.2922E+00, 0.2937E+00, 0.2951E+00, 0.2966E+00,& - 0.2981E+00, 0.2996E+00, 0.3011E+00, 0.3026E+00,& - 0.3042E+00, 0.3057E+00, 0.3072E+00, 0.3087E+00,& - 0.3103E+00, 0.3118E+00, 0.3133E+00, 0.3149E+00,& - 0.3164E+00, 0.3180E+00, 0.3196E+00, 0.3211E+00,& - 0.3227E+00, 0.3243E+00, 0.3258E+00, 0.3274E+00,& - 0.3290E+00, 0.3306E+00, 0.3322E+00, 0.3338E+00,& - 0.3354E+00, 0.3370E+00, 0.3386E+00, 0.3403E+00,& - 0.3419E+00, 0.3435E+00, 0.3451E+00, 0.3468E+00,& - 0.3484E+00, 0.3501E+00, 0.3517E+00, 0.3534E+00,& - 0.3550E+00, 0.3567E+00, 0.3584E+00, 0.3601E+00,& - 0.3617E+00, 0.3634E+00, 0.3651E+00, 0.3668E+00,& - 0.3685E+00, 0.3702E+00, 0.3719E+00, 0.3737E+00,& - 0.3754E+00, 0.3771E+00, 0.3788E+00, 0.3806E+00,& - 0.3823E+00, 0.3841E+00, 0.3858E+00, 0.3876E+00,& - 0.3893E+00, 0.3911E+00, 0.3929E+00, 0.3947E+00,& - 0.3964E+00, 0.3982E+00, 0.4000E+00, 0.4018E+00,& - 0.4036E+00, 0.4054E+00, 0.4072E+00, 0.4091E+00,& - 0.4109E+00, 0.4127E+00, 0.4146E+00, 0.4164E+00,& - 0.4182E+00, 0.4201E+00, 0.4219E+00, 0.4238E+00,& - 0.4257E+00, 0.4275E+00, 0.4294E+00, 0.4313E+00,& - 0.4332E+00, 0.4351E+00, 0.4370E+00, 0.4389E+00,& - 0.4408E+00, 0.4427E+00, 0.4446E+00, 0.4466E+00,& - 0.4485E+00, 0.4504E+00, 0.4524E+00, 0.4543E+00,& - 0.4563E+00, 0.4583E+00, 0.4602E+00, 0.4622E+00,& - 0.4642E+00, 0.4662E+00, 0.4681E+00, 0.4701E+00,& - 0.4721E+00, 0.4741E+00, 0.4762E+00, 0.4782E+00,& - 0.4802E+00, 0.4822E+00, 0.4843E+00, 0.4863E+00,& - 0.4884E+00, 0.4904E+00, 0.4925E+00, 0.4946E+00,& - 0.4966E+00, 0.4987E+00, 0.5008E+00, 0.5029E+00,& - 0.5050E+00, 0.5071E+00, 0.5092E+00, 0.5113E+00,& - 0.5134E+00, 0.5156E+00, 0.5177E+00, 0.5198E+00,& - 0.5220E+00, 0.5241E+00, 0.5263E+00, 0.5285E+00,& - 0.5306E+00, 0.5328E+00, 0.5350E+00, 0.5372E+00,& - 0.5394E+00, 0.5416E+00, 0.5438E+00, 0.5460E+00,& - 0.5483E+00, 0.5505E+00, 0.5527E+00, 0.5550E+00,& - 0.5572E+00, 0.5595E+00, 0.5618E+00, 0.5640E+00,& - 0.5663E+00, 0.5686E+00, 0.5709E+00, 0.5732E+00,& - 0.5755E+00, 0.5778E+00, 0.5801E+00, 0.5825E+00,& - 0.5848E+00, 0.5871E+00, 0.5895E+00, 0.5919E+00,& - 0.5942E+00, 0.5966E+00, 0.5990E+00, 0.6013E+00,& - 0.6037E+00, 0.6061E+00, 0.6085E+00, 0.6110E+00,& - 0.6134E+00, 0.6158E+00, 0.6183E+00, 0.6207E+00,& - 0.6231E+00, 0.6256E+00, 0.6281E+00, 0.6305E+00,& - 0.6330E+00, 0.6355E+00, 0.6380E+00, 0.6405E+00,& - 0.6430E+00, 0.6455E+00, 0.6481E+00, 0.6506E+00,& - 0.6532E+00, 0.6557E+00, 0.6583E+00, 0.6608E+00,& - 0.6634E+00, 0.6660E+00, 0.6686E+00, 0.6712E+00,& - 0.6738E+00, 0.6764E+00, 0.6790E+00, 0.6817E+00,& - 0.6843E+00, 0.6870E+00, 0.6896E+00, 0.6923E+00,& - 0.6950E+00, 0.6976E+00, 0.7003E+00, 0.7030E+00,& - 0.7057E+00, 0.7085E+00, 0.7112E+00, 0.7139E+00,& - 0.7167E+00, 0.7194E+00, 0.7222E+00, 0.7249E+00,& - 0.7277E+00, 0.7305E+00, 0.7333E+00, 0.7361E+00,& - 0.7389E+00, 0.7418E+00, 0.7446E+00, 0.7474E+00,& - 0.7503E+00, 0.7531E+00, 0.7560E+00, 0.7589E+00,& - 0.7618E+00, 0.7647E+00, 0.7676E+00, 0.7705E+00,& - 0.7734E+00, 0.7763E+00, 0.7793E+00, 0.7822E+00,& - 0.7852E+00, 0.7882E+00, 0.7912E+00, 0.7942E+00,& - 0.7972E+00, 0.8002E+00, 0.8032E+00, 0.8062E+00,& - 0.8093E+00, 0.8124E+00, 0.8154E+00, 0.8185E+00,& - 0.8216E+00, 0.8247E+00, 0.8278E+00, 0.8309E+00,& - 0.8340E+00, 0.8372E+00, 0.8403E+00, 0.8435E+00,& - 0.8466E+00, 0.8498E+00, 0.8530E+00, 0.8562E+00,& - 0.8594E+00, 0.8627E+00, 0.8659E+00, 0.8691E+00,& - 0.8724E+00, 0.8757E+00, 0.8789E+00, 0.8822E+00,& - 0.8856E+00, 0.8889E+00, 0.8922E+00, 0.8955E+00,& - 0.8989E+00, 0.9022E+00, 0.9056E+00, 0.9090E+00,& - 0.9124E+00, 0.9158E+00, 0.9192E+00, 0.9227E+00,& - 0.9261E+00, 0.9296E+00, 0.9331E+00, 0.9365E+00,& - 0.9400E+00, 0.9435E+00, 0.9471E+00, 0.9506E+00,& - 0.9542E+00, 0.9577E+00, 0.9613E+00, 0.9649E+00,& - 0.9685E+00, 0.9721E+00, 0.9757E+00, 0.9793E+00,& - 0.9830E+00, 0.9867E+00, 0.9903E+00, 0.9940E+00,& - 0.9977E+00, 0.1001E+01, 0.1005E+01, 0.1009E+01,& - 0.1013E+01, 0.1016E+01, 0.1020E+01, 0.1024E+01,& - 0.1028E+01, 0.1032E+01, 0.1036E+01, 0.1039E+01,& - 0.1043E+01, 0.1047E+01, 0.1051E+01, 0.1055E+01,& - 0.1059E+01, 0.1063E+01, 0.1067E+01, 0.1071E+01,& - 0.1075E+01, 0.1079E+01, 0.1083E+01, 0.1087E+01,& - 0.1091E+01, 0.1095E+01, 0.1099E+01, 0.1103E+01,& - 0.1107E+01, 0.1112E+01, 0.1116E+01, 0.1120E+01,& - 0.1124E+01, 0.1128E+01, 0.1133E+01, 0.1137E+01,& - 0.1141E+01, 0.1145E+01, 0.1150E+01, 0.1154E+01,& - 0.1158E+01, 0.1163E+01, 0.1167E+01, 0.1171E+01,& - 0.1176E+01, 0.1180E+01, 0.1185E+01, 0.1189E+01,& - 0.1194E+01, 0.1198E+01, 0.1203E+01, 0.1207E+01,& - 0.1212E+01, 0.1216E+01, 0.1221E+01, 0.1225E+01,& - 0.1230E+01, 0.1235E+01, 0.1239E+01, 0.1244E+01,& - 0.1249E+01, 0.1254E+01, 0.1258E+01, 0.1263E+01,& - 0.1268E+01, 0.1273E+01, 0.1278E+01, 0.1282E+01,& - 0.1287E+01, 0.1292E+01, 0.1297E+01, 0.1302E+01,& - 0.1307E+01, 0.1312E+01, 0.1317E+01, 0.1322E+01,& - 0.1327E+01, 0.1332E+01, 0.1337E+01, 0.1342E+01,& - 0.1348E+01, 0.1353E+01, 0.1358E+01, 0.1363E+01,& - 0.1368E+01, 0.1374E+01, 0.1379E+01, 0.1384E+01,& - 0.1390E+01, 0.1395E+01, 0.1400E+01, 0.1406E+01,& - 0.1411E+01, 0.1417E+01, 0.1422E+01, 0.1428E+01,& - 0.1433E+01, 0.1439E+01, 0.1445E+01, 0.1450E+01,& - 0.1456E+01, 0.1462E+01, 0.1467E+01, 0.1473E+01,& - 0.1479E+01, 0.1485E+01, 0.1491E+01, 0.1496E+01,& - 0.1502E+01, 0.1508E+01, 0.1514E+01, 0.1520E+01,& - 0.1526E+01, 0.1532E+01, 0.1538E+01, 0.1544E+01,& - 0.1551E+01, 0.1557E+01, 0.1563E+01, 0.1569E+01,& - 0.1576E+01, 0.1582E+01, 0.1588E+01, 0.1595E+01,& - 0.1601E+01, 0.1608E+01, 0.1614E+01, 0.1621E+01,& - 0.1627E+01, 0.1634E+01, 0.1640E+01, 0.1647E+01,& - 0.1654E+01, 0.1660E+01, 0.1667E+01, 0.1674E+01,& - 0.1681E+01, 0.1688E+01, 0.1695E+01, 0.1702E+01,& - 0.1709E+01, 0.1716E+01, 0.1723E+01, 0.1730E+01,& - 0.1737E+01, 0.1745E+01, 0.1752E+01, 0.1759E+01,& - 0.1767E+01, 0.1774E+01, 0.1781E+01, 0.1789E+01,& - 0.1796E+01, 0.1804E+01, 0.1812E+01, 0.1819E+01,& - 0.1827E+01, 0.1835E+01, 0.1843E+01, 0.1851E+01,& - 0.1859E+01, 0.1867E+01, 0.1875E+01, 0.1883E+01,& - 0.1891E+01, 0.1899E+01, 0.1907E+01, 0.1916E+01,& - 0.1924E+01, 0.1932E+01, 0.1941E+01, 0.1949E+01,& - 0.1958E+01, 0.1967E+01, 0.1975E+01, 0.1984E+01,& - 0.1993E+01, 0.2002E+01, 0.2011E+01, 0.2020E+01,& - 0.2029E+01, 0.2038E+01, 0.2048E+01, 0.2057E+01,& - 0.2066E+01, 0.2076E+01, 0.2085E+01, 0.2095E+01,& - 0.2104E+01, 0.2114E+01, 0.2124E+01, 0.2134E+01,& - 0.2144E+01, 0.2154E+01, 0.2164E+01, 0.2174E+01,& - 0.2184E+01, 0.2195E+01, 0.2205E+01, 0.2216E+01,& - 0.2226E+01, 0.2237E+01, 0.2248E+01, 0.2259E+01,& - 0.2270E+01, 0.2281E+01, 0.2292E+01, 0.2303E+01,& - 0.2315E+01, 0.2326E+01, 0.2338E+01, 0.2349E+01,& - 0.2361E+01, 0.2373E+01, 0.2385E+01, 0.2397E+01,& - 0.2409E+01, 0.2422E+01, 0.2434E+01, 0.2447E+01,& - 0.2459E+01, 0.2472E+01, 0.2485E+01, 0.2498E+01,& - 0.2511E+01, 0.2525E+01, 0.2538E+01, 0.2552E+01,& - 0.2565E+01, 0.2579E+01, 0.2593E+01, 0.2608E+01,& - 0.2622E+01, 0.2636E+01, 0.2651E+01, 0.2666E+01,& - 0.2681E+01, 0.2696E+01, 0.2711E+01, 0.2727E+01,& - 0.2742E+01, 0.2758E+01, 0.2774E+01, 0.2790E+01,& - 0.2807E+01, 0.2823E+01, 0.2840E+01, 0.2857E+01,& - 0.2875E+01, 0.2892E+01, 0.2910E+01, 0.2928E+01,& - 0.2946E+01, 0.2964E+01, 0.2983E+01, 0.3002E+01,& - 0.3021E+01, 0.3041E+01, 0.3060E+01, 0.3080E+01,& - 0.3101E+01, 0.3121E+01, 0.3142E+01, 0.3164E+01,& - 0.3185E+01, 0.3207E+01, 0.3229E+01, 0.3252E+01,& - 0.3275E+01, 0.3299E+01, 0.3322E+01, 0.3347E+01,& - 0.3371E+01, 0.3396E+01, 0.3422E+01, 0.3448E+01,& - 0.3474E+01, 0.3501E+01, 0.3529E+01, 0.3557E+01,& - 0.3586E+01, 0.3615E+01, 0.3645E+01, 0.3675E+01,& - 0.3706E+01, 0.3738E+01, 0.3771E+01, 0.3804E+01,& - 0.3839E+01, 0.3873E+01, 0.3909E+01, 0.3946E+01,& - 0.3984E+01, 0.4023E+01, 0.4063E+01, 0.4104E+01,& - 0.4146E+01, 0.4189E+01, 0.4234E+01, 0.4280E+01,& - 0.4328E+01, 0.4377E+01, 0.4428E+01, 0.4481E+01,& - 0.4536E+01, 0.4593E+01, 0.4652E+01, 0.4714E+01,& - 0.4779E+01, 0.4846E+01, 0.4917E+01, 0.4991E+01,& - 0.5069E+01, 0.5152E+01, 0.5239E+01, 0.5332E+01,& - 0.5430E+01, 0.5536E+01, 0.5650E+01, 0.5773E+01,& - 0.5907E+01, 0.6055E+01, 0.6218E+01, 0.6400E+01,& - 0.6607E+01, 0.6847E+01, 0.7132E+01, 0.7481E+01,& - 0.1000E-04, 0.1000E-04, 0.2314E-04, 0.4942E-04/) - xcw(:, 50) = (/& - 0.1000E-04, 0.1000E-04, 0.2314E-04, 0.4942E-04,& - 0.7570E-04, 0.1283E-03, 0.1677E-03, 0.2334E-03,& - 0.2859E-03, 0.3648E-03, 0.4305E-03, 0.5225E-03,& - 0.6013E-03, 0.6933E-03, 0.7853E-03, 0.8904E-03,& - 0.1009E-02, 0.1114E-02, 0.1232E-02, 0.1363E-02,& - 0.1482E-02, 0.1626E-02, 0.1758E-02, 0.1902E-02,& - 0.2047E-02, 0.2204E-02, 0.2362E-02, 0.2520E-02,& - 0.2691E-02, 0.2861E-02, 0.3032E-02, 0.3216E-02,& - 0.3400E-02, 0.3597E-02, 0.3794E-02, 0.3991E-02,& - 0.4188E-02, 0.4399E-02, 0.4609E-02, 0.4819E-02,& - 0.5043E-02, 0.5266E-02, 0.5489E-02, 0.5726E-02,& - 0.5962E-02, 0.6212E-02, 0.6449E-02, 0.6698E-02,& - 0.6948E-02, 0.7211E-02, 0.7473E-02, 0.7736E-02,& - 0.8012E-02, 0.8275E-02, 0.8551E-02, 0.8840E-02,& - 0.9129E-02, 0.9418E-02, 0.9707E-02, 0.9996E-02,& - 0.1030E-01, 0.1061E-01, 0.1092E-01, 0.1123E-01,& - 0.1155E-01, 0.1186E-01, 0.1219E-01, 0.1252E-01,& - 0.1285E-01, 0.1319E-01, 0.1352E-01, 0.1387E-01,& - 0.1421E-01, 0.1457E-01, 0.1491E-01, 0.1528E-01,& - 0.1563E-01, 0.1600E-01, 0.1637E-01, 0.1674E-01,& - 0.1712E-01, 0.1750E-01, 0.1788E-01, 0.1827E-01,& - 0.1866E-01, 0.1906E-01, 0.1946E-01, 0.1985E-01,& - 0.2026E-01, 0.2067E-01, 0.2109E-01, 0.2151E-01,& - 0.2191E-01, 0.2235E-01, 0.2277E-01, 0.2320E-01,& - 0.2364E-01, 0.2407E-01, 0.2452E-01, 0.2496E-01,& - 0.2541E-01, 0.2586E-01, 0.2632E-01, 0.2678E-01,& - 0.2724E-01, 0.2771E-01, 0.2817E-01, 0.2865E-01,& - 0.2913E-01, 0.2960E-01, 0.3009E-01, 0.3057E-01,& - 0.3107E-01, 0.3156E-01, 0.3206E-01, 0.3256E-01,& - 0.3307E-01, 0.3357E-01, 0.3408E-01, 0.3461E-01,& - 0.3512E-01, 0.3565E-01, 0.3617E-01, 0.3670E-01,& - 0.3724E-01, 0.3776E-01, 0.3830E-01, 0.3885E-01,& - 0.3939E-01, 0.3994E-01, 0.4049E-01, 0.4106E-01,& - 0.4161E-01, 0.4218E-01, 0.4274E-01, 0.4332E-01,& - 0.4390E-01, 0.4448E-01, 0.4505E-01, 0.4563E-01,& - 0.4622E-01, 0.4681E-01, 0.4741E-01, 0.4801E-01,& - 0.4861E-01, 0.4922E-01, 0.4982E-01, 0.5043E-01,& - 0.5105E-01, 0.5166E-01, 0.5229E-01, 0.5291E-01,& - 0.5354E-01, 0.5417E-01, 0.5482E-01, 0.5545E-01,& - 0.5609E-01, 0.5673E-01, 0.5739E-01, 0.5805E-01,& - 0.5869E-01, 0.5936E-01, 0.6002E-01, 0.6069E-01,& - 0.6136E-01, 0.6203E-01, 0.6271E-01, 0.6338E-01,& - 0.6407E-01, 0.6476E-01, 0.6545E-01, 0.6614E-01,& - 0.6684E-01, 0.6755E-01, 0.6825E-01, 0.6895E-01,& - 0.6966E-01, 0.7039E-01, 0.7110E-01, 0.7182E-01,& - 0.7254E-01, 0.7328E-01, 0.7400E-01, 0.7474E-01,& - 0.7547E-01, 0.7622E-01, 0.7697E-01, 0.7772E-01,& - 0.7847E-01, 0.7922E-01, 0.7998E-01, 0.8074E-01,& - 0.8152E-01, 0.8228E-01, 0.8305E-01, 0.8383E-01,& - 0.8460E-01, 0.8539E-01, 0.8618E-01, 0.8697E-01,& - 0.8776E-01, 0.8856E-01, 0.8936E-01, 0.9016E-01,& - 0.9098E-01, 0.9178E-01, 0.9259E-01, 0.9342E-01,& - 0.9424E-01, 0.9506E-01, 0.9589E-01, 0.9672E-01,& - 0.9756E-01, 0.9840E-01, 0.9924E-01, 0.1001E+00,& - 0.1009E+00, 0.1018E+00, 0.1026E+00, 0.1035E+00,& - 0.1044E+00, 0.1052E+00, 0.1061E+00, 0.1070E+00,& - 0.1079E+00, 0.1087E+00, 0.1096E+00, 0.1105E+00,& - 0.1114E+00, 0.1123E+00, 0.1132E+00, 0.1141E+00,& - 0.1150E+00, 0.1159E+00, 0.1168E+00, 0.1177E+00,& - 0.1187E+00, 0.1196E+00, 0.1205E+00, 0.1214E+00,& - 0.1224E+00, 0.1233E+00, 0.1243E+00, 0.1252E+00,& - 0.1262E+00, 0.1271E+00, 0.1281E+00, 0.1290E+00,& - 0.1300E+00, 0.1309E+00, 0.1319E+00, 0.1329E+00,& - 0.1339E+00, 0.1349E+00, 0.1358E+00, 0.1368E+00,& - 0.1378E+00, 0.1388E+00, 0.1398E+00, 0.1408E+00,& - 0.1418E+00, 0.1428E+00, 0.1439E+00, 0.1449E+00,& - 0.1459E+00, 0.1469E+00, 0.1479E+00, 0.1490E+00,& - 0.1500E+00, 0.1511E+00, 0.1521E+00, 0.1531E+00,& - 0.1542E+00, 0.1552E+00, 0.1563E+00, 0.1574E+00,& - 0.1584E+00, 0.1595E+00, 0.1606E+00, 0.1617E+00,& - 0.1627E+00, 0.1638E+00, 0.1649E+00, 0.1660E+00,& - 0.1671E+00, 0.1682E+00, 0.1693E+00, 0.1704E+00,& - 0.1715E+00, 0.1726E+00, 0.1738E+00, 0.1749E+00,& - 0.1760E+00, 0.1771E+00, 0.1783E+00, 0.1794E+00,& - 0.1806E+00, 0.1817E+00, 0.1829E+00, 0.1840E+00,& - 0.1852E+00, 0.1863E+00, 0.1875E+00, 0.1887E+00,& - 0.1898E+00, 0.1910E+00, 0.1922E+00, 0.1934E+00,& - 0.1946E+00, 0.1958E+00, 0.1969E+00, 0.1981E+00,& - 0.1994E+00, 0.2006E+00, 0.2018E+00, 0.2030E+00,& - 0.2042E+00, 0.2054E+00, 0.2067E+00, 0.2079E+00,& - 0.2091E+00, 0.2104E+00, 0.2116E+00, 0.2129E+00,& - 0.2141E+00, 0.2154E+00, 0.2166E+00, 0.2179E+00,& - 0.2192E+00, 0.2204E+00, 0.2217E+00, 0.2230E+00,& - 0.2243E+00, 0.2256E+00, 0.2269E+00, 0.2282E+00,& - 0.2295E+00, 0.2308E+00, 0.2321E+00, 0.2334E+00,& - 0.2347E+00, 0.2360E+00, 0.2374E+00, 0.2387E+00,& - 0.2400E+00, 0.2414E+00, 0.2427E+00, 0.2441E+00,& - 0.2454E+00, 0.2468E+00, 0.2481E+00, 0.2495E+00,& - 0.2509E+00, 0.2523E+00, 0.2536E+00, 0.2550E+00,& - 0.2564E+00, 0.2578E+00, 0.2592E+00, 0.2606E+00,& - 0.2620E+00, 0.2634E+00, 0.2648E+00, 0.2662E+00,& - 0.2677E+00, 0.2691E+00, 0.2705E+00, 0.2719E+00,& - 0.2734E+00, 0.2748E+00, 0.2763E+00, 0.2777E+00,& - 0.2792E+00, 0.2807E+00, 0.2821E+00, 0.2836E+00,& - 0.2851E+00, 0.2865E+00, 0.2880E+00, 0.2895E+00,& - 0.2910E+00, 0.2925E+00, 0.2940E+00, 0.2955E+00,& - 0.2970E+00, 0.2985E+00, 0.3001E+00, 0.3016E+00,& - 0.3031E+00, 0.3047E+00, 0.3062E+00, 0.3077E+00,& - 0.3093E+00, 0.3108E+00, 0.3124E+00, 0.3140E+00,& - 0.3155E+00, 0.3171E+00, 0.3187E+00, 0.3203E+00,& - 0.3219E+00, 0.3235E+00, 0.3251E+00, 0.3267E+00,& - 0.3283E+00, 0.3299E+00, 0.3315E+00, 0.3331E+00,& - 0.3347E+00, 0.3364E+00, 0.3380E+00, 0.3396E+00,& - 0.3413E+00, 0.3429E+00, 0.3446E+00, 0.3463E+00,& - 0.3479E+00, 0.3496E+00, 0.3513E+00, 0.3530E+00,& - 0.3547E+00, 0.3563E+00, 0.3580E+00, 0.3597E+00,& - 0.3614E+00, 0.3632E+00, 0.3649E+00, 0.3666E+00,& - 0.3683E+00, 0.3701E+00, 0.3718E+00, 0.3735E+00,& - 0.3753E+00, 0.3770E+00, 0.3788E+00, 0.3806E+00,& - 0.3823E+00, 0.3841E+00, 0.3859E+00, 0.3877E+00,& - 0.3895E+00, 0.3913E+00, 0.3931E+00, 0.3949E+00,& - 0.3967E+00, 0.3985E+00, 0.4003E+00, 0.4022E+00,& - 0.4040E+00, 0.4058E+00, 0.4077E+00, 0.4095E+00,& - 0.4114E+00, 0.4133E+00, 0.4151E+00, 0.4170E+00,& - 0.4189E+00, 0.4208E+00, 0.4227E+00, 0.4245E+00,& - 0.4265E+00, 0.4284E+00, 0.4303E+00, 0.4322E+00,& - 0.4341E+00, 0.4360E+00, 0.4380E+00, 0.4399E+00,& - 0.4419E+00, 0.4438E+00, 0.4458E+00, 0.4477E+00,& - 0.4497E+00, 0.4517E+00, 0.4537E+00, 0.4557E+00,& - 0.4577E+00, 0.4597E+00, 0.4617E+00, 0.4637E+00,& - 0.4657E+00, 0.4677E+00, 0.4698E+00, 0.4718E+00,& - 0.4739E+00, 0.4759E+00, 0.4780E+00, 0.4800E+00,& - 0.4821E+00, 0.4842E+00, 0.4863E+00, 0.4884E+00,& - 0.4904E+00, 0.4925E+00, 0.4947E+00, 0.4968E+00,& - 0.4989E+00, 0.5010E+00, 0.5031E+00, 0.5053E+00,& - 0.5074E+00, 0.5096E+00, 0.5118E+00, 0.5139E+00,& - 0.5161E+00, 0.5183E+00, 0.5205E+00, 0.5226E+00,& - 0.5249E+00, 0.5271E+00, 0.5293E+00, 0.5315E+00,& - 0.5337E+00, 0.5359E+00, 0.5382E+00, 0.5404E+00,& - 0.5427E+00, 0.5450E+00, 0.5472E+00, 0.5495E+00,& - 0.5518E+00, 0.5541E+00, 0.5564E+00, 0.5587E+00,& - 0.5610E+00, 0.5633E+00, 0.5656E+00, 0.5680E+00,& - 0.5703E+00, 0.5726E+00, 0.5750E+00, 0.5774E+00,& - 0.5797E+00, 0.5821E+00, 0.5845E+00, 0.5869E+00,& - 0.5893E+00, 0.5917E+00, 0.5941E+00, 0.5965E+00,& - 0.5989E+00, 0.6014E+00, 0.6038E+00, 0.6063E+00,& - 0.6087E+00, 0.6112E+00, 0.6137E+00, 0.6162E+00,& - 0.6186E+00, 0.6212E+00, 0.6237E+00, 0.6262E+00,& - 0.6287E+00, 0.6312E+00, 0.6338E+00, 0.6363E+00,& - 0.6389E+00, 0.6414E+00, 0.6440E+00, 0.6466E+00,& - 0.6492E+00, 0.6518E+00, 0.6544E+00, 0.6570E+00,& - 0.6596E+00, 0.6622E+00, 0.6649E+00, 0.6675E+00,& - 0.6702E+00, 0.6728E+00, 0.6755E+00, 0.6782E+00,& - 0.6809E+00, 0.6836E+00, 0.6863E+00, 0.6890E+00,& - 0.6917E+00, 0.6944E+00, 0.6972E+00, 0.6999E+00,& - 0.7027E+00, 0.7055E+00, 0.7082E+00, 0.7110E+00,& - 0.7138E+00, 0.7166E+00, 0.7194E+00, 0.7223E+00,& - 0.7251E+00, 0.7279E+00, 0.7308E+00, 0.7337E+00,& - 0.7365E+00, 0.7394E+00, 0.7423E+00, 0.7452E+00,& - 0.7481E+00, 0.7510E+00, 0.7540E+00, 0.7569E+00,& - 0.7598E+00, 0.7628E+00, 0.7658E+00, 0.7687E+00,& - 0.7717E+00, 0.7747E+00, 0.7777E+00, 0.7808E+00,& - 0.7838E+00, 0.7868E+00, 0.7899E+00, 0.7929E+00,& - 0.7960E+00, 0.7991E+00, 0.8022E+00, 0.8053E+00,& - 0.8084E+00, 0.8115E+00, 0.8147E+00, 0.8178E+00,& - 0.8210E+00, 0.8241E+00, 0.8273E+00, 0.8305E+00,& - 0.8337E+00, 0.8369E+00, 0.8401E+00, 0.8434E+00,& - 0.8466E+00, 0.8499E+00, 0.8531E+00, 0.8564E+00,& - 0.8597E+00, 0.8630E+00, 0.8663E+00, 0.8696E+00,& - 0.8730E+00, 0.8763E+00, 0.8797E+00, 0.8831E+00,& - 0.8865E+00, 0.8899E+00, 0.8933E+00, 0.8967E+00,& - 0.9001E+00, 0.9036E+00, 0.9070E+00, 0.9105E+00,& - 0.9140E+00, 0.9175E+00, 0.9210E+00, 0.9245E+00,& - 0.9281E+00, 0.9316E+00, 0.9352E+00, 0.9387E+00,& - 0.9423E+00, 0.9459E+00, 0.9495E+00, 0.9532E+00,& - 0.9568E+00, 0.9605E+00, 0.9641E+00, 0.9678E+00,& - 0.9715E+00, 0.9752E+00, 0.9790E+00, 0.9827E+00,& - 0.9865E+00, 0.9902E+00, 0.9940E+00, 0.9978E+00,& - 0.1002E+01, 0.1005E+01, 0.1009E+01, 0.1013E+01,& - 0.1017E+01, 0.1021E+01, 0.1025E+01, 0.1029E+01,& - 0.1033E+01, 0.1037E+01, 0.1041E+01, 0.1044E+01,& - 0.1048E+01, 0.1052E+01, 0.1057E+01, 0.1061E+01,& - 0.1065E+01, 0.1069E+01, 0.1073E+01, 0.1077E+01,& - 0.1081E+01, 0.1085E+01, 0.1089E+01, 0.1093E+01,& - 0.1098E+01, 0.1102E+01, 0.1106E+01, 0.1110E+01,& - 0.1115E+01, 0.1119E+01, 0.1123E+01, 0.1127E+01,& - 0.1132E+01, 0.1136E+01, 0.1140E+01, 0.1145E+01,& - 0.1149E+01, 0.1154E+01, 0.1158E+01, 0.1163E+01,& - 0.1167E+01, 0.1171E+01, 0.1176E+01, 0.1181E+01,& - 0.1185E+01, 0.1190E+01, 0.1194E+01, 0.1199E+01,& - 0.1203E+01, 0.1208E+01, 0.1213E+01, 0.1217E+01,& - 0.1222E+01, 0.1227E+01, 0.1232E+01, 0.1236E+01,& - 0.1241E+01, 0.1246E+01, 0.1251E+01, 0.1256E+01,& - 0.1261E+01, 0.1265E+01, 0.1270E+01, 0.1275E+01,& - 0.1280E+01, 0.1285E+01, 0.1290E+01, 0.1295E+01,& - 0.1300E+01, 0.1305E+01, 0.1310E+01, 0.1316E+01,& - 0.1321E+01, 0.1326E+01, 0.1331E+01, 0.1336E+01,& - 0.1342E+01, 0.1347E+01, 0.1352E+01, 0.1357E+01,& - 0.1363E+01, 0.1368E+01, 0.1374E+01, 0.1379E+01,& - 0.1384E+01, 0.1390E+01, 0.1395E+01, 0.1401E+01,& - 0.1406E+01, 0.1412E+01, 0.1418E+01, 0.1423E+01,& - 0.1429E+01, 0.1435E+01, 0.1440E+01, 0.1446E+01,& - 0.1452E+01, 0.1458E+01, 0.1463E+01, 0.1469E+01,& - 0.1475E+01, 0.1481E+01, 0.1487E+01, 0.1493E+01,& - 0.1499E+01, 0.1505E+01, 0.1511E+01, 0.1517E+01,& - 0.1523E+01, 0.1530E+01, 0.1536E+01, 0.1542E+01,& - 0.1548E+01, 0.1555E+01, 0.1561E+01, 0.1567E+01,& - 0.1574E+01, 0.1580E+01, 0.1587E+01, 0.1593E+01,& - 0.1600E+01, 0.1606E+01, 0.1613E+01, 0.1620E+01,& - 0.1626E+01, 0.1633E+01, 0.1640E+01, 0.1647E+01,& - 0.1653E+01, 0.1660E+01, 0.1667E+01, 0.1674E+01,& - 0.1681E+01, 0.1688E+01, 0.1695E+01, 0.1703E+01,& - 0.1710E+01, 0.1717E+01, 0.1724E+01, 0.1731E+01,& - 0.1739E+01, 0.1746E+01, 0.1754E+01, 0.1761E+01,& - 0.1769E+01, 0.1776E+01, 0.1784E+01, 0.1791E+01,& - 0.1799E+01, 0.1807E+01, 0.1815E+01, 0.1823E+01,& - 0.1831E+01, 0.1838E+01, 0.1846E+01, 0.1855E+01,& - 0.1863E+01, 0.1871E+01, 0.1879E+01, 0.1887E+01,& - 0.1896E+01, 0.1904E+01, 0.1913E+01, 0.1921E+01,& - 0.1930E+01, 0.1938E+01, 0.1947E+01, 0.1956E+01,& - 0.1964E+01, 0.1973E+01, 0.1982E+01, 0.1991E+01,& - 0.2000E+01, 0.2009E+01, 0.2019E+01, 0.2028E+01,& - 0.2037E+01, 0.2046E+01, 0.2056E+01, 0.2065E+01,& - 0.2075E+01, 0.2085E+01, 0.2094E+01, 0.2104E+01,& - 0.2114E+01, 0.2124E+01, 0.2134E+01, 0.2144E+01,& - 0.2154E+01, 0.2165E+01, 0.2175E+01, 0.2185E+01,& - 0.2196E+01, 0.2207E+01, 0.2217E+01, 0.2228E+01,& - 0.2239E+01, 0.2250E+01, 0.2261E+01, 0.2272E+01,& - 0.2283E+01, 0.2295E+01, 0.2306E+01, 0.2318E+01,& - 0.2329E+01, 0.2341E+01, 0.2353E+01, 0.2365E+01,& - 0.2377E+01, 0.2389E+01, 0.2401E+01, 0.2414E+01,& - 0.2426E+01, 0.2439E+01, 0.2452E+01, 0.2465E+01,& - 0.2478E+01, 0.2491E+01, 0.2504E+01, 0.2517E+01,& - 0.2531E+01, 0.2545E+01, 0.2558E+01, 0.2572E+01,& - 0.2586E+01, 0.2601E+01, 0.2615E+01, 0.2630E+01,& - 0.2644E+01, 0.2659E+01, 0.2674E+01, 0.2689E+01,& - 0.2705E+01, 0.2720E+01, 0.2736E+01, 0.2752E+01,& - 0.2768E+01, 0.2784E+01, 0.2801E+01, 0.2817E+01,& - 0.2834E+01, 0.2851E+01, 0.2869E+01, 0.2886E+01,& - 0.2904E+01, 0.2922E+01, 0.2940E+01, 0.2958E+01,& - 0.2977E+01, 0.2996E+01, 0.3015E+01, 0.3035E+01,& - 0.3054E+01, 0.3074E+01, 0.3095E+01, 0.3115E+01,& - 0.3136E+01, 0.3157E+01, 0.3175E+01, 0.3201E+01,& - 0.3223E+01, 0.3245E+01, 0.3268E+01, 0.3292E+01,& - 0.3315E+01, 0.3339E+01, 0.3364E+01, 0.3389E+01,& - 0.3414E+01, 0.3440E+01, 0.3466E+01, 0.3493E+01,& - 0.3520E+01, 0.3548E+01, 0.3576E+01, 0.3605E+01,& - 0.3635E+01, 0.3665E+01, 0.3696E+01, 0.3727E+01,& - 0.3759E+01, 0.3792E+01, 0.3825E+01, 0.3860E+01,& - 0.3895E+01, 0.3931E+01, 0.3968E+01, 0.4006E+01,& - 0.4045E+01, 0.4085E+01, 0.4126E+01, 0.4168E+01,& - 0.4211E+01, 0.4256E+01, 0.4302E+01, 0.4350E+01,& - 0.4399E+01, 0.4450E+01, 0.4502E+01, 0.4557E+01,& - 0.4613E+01, 0.4672E+01, 0.4733E+01, 0.4797E+01,& - 0.4864E+01, 0.4933E+01, 0.5006E+01, 0.5083E+01,& - 0.5163E+01, 0.5248E+01, 0.5338E+01, 0.5434E+01,& - 0.5536E+01, 0.5645E+01, 0.5763E+01, 0.5890E+01,& - 0.6028E+01, 0.6180E+01, 0.6348E+01, 0.6537E+01,& - 0.6751E+01, 0.6999E+01, 0.7293E+01, 0.7654E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3692E-04/) - xcw(:, 51) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3692E-04,& - 0.5038E-04, 0.9075E-04, 0.1311E-03, 0.1715E-03,& - 0.2119E-03, 0.2657E-03, 0.3330E-03, 0.3868E-03,& - 0.4541E-03, 0.5349E-03, 0.6156E-03, 0.6964E-03,& - 0.7771E-03, 0.8714E-03, 0.9656E-03, 0.1073E-02,& - 0.1167E-02, 0.1289E-02, 0.1396E-02, 0.1517E-02,& - 0.1639E-02, 0.1760E-02, 0.1894E-02, 0.2029E-02,& - 0.2177E-02, 0.2311E-02, 0.2459E-02, 0.2621E-02,& - 0.2769E-02, 0.2931E-02, 0.3106E-02, 0.3267E-02,& - 0.3442E-02, 0.3617E-02, 0.3792E-02, 0.3980E-02,& - 0.4169E-02, 0.4371E-02, 0.4559E-02, 0.4761E-02,& - 0.4963E-02, 0.5178E-02, 0.5380E-02, 0.5609E-02,& - 0.5824E-02, 0.6040E-02, 0.6268E-02, 0.6511E-02,& - 0.6739E-02, 0.6982E-02, 0.7224E-02, 0.7466E-02,& - 0.7722E-02, 0.7978E-02, 0.8233E-02, 0.8489E-02,& - 0.8758E-02, 0.9027E-02, 0.9297E-02, 0.9579E-02,& - 0.9848E-02, 0.1013E-01, 0.1043E-01, 0.1071E-01,& - 0.1101E-01, 0.1132E-01, 0.1161E-01, 0.1192E-01,& - 0.1223E-01, 0.1254E-01, 0.1285E-01, 0.1317E-01,& - 0.1350E-01, 0.1382E-01, 0.1416E-01, 0.1449E-01,& - 0.1483E-01, 0.1516E-01, 0.1551E-01, 0.1586E-01,& - 0.1621E-01, 0.1658E-01, 0.1693E-01, 0.1729E-01,& - 0.1765E-01, 0.1803E-01, 0.1841E-01, 0.1878E-01,& - 0.1916E-01, 0.1955E-01, 0.1993E-01, 0.2032E-01,& - 0.2072E-01, 0.2111E-01, 0.2152E-01, 0.2192E-01,& - 0.2234E-01, 0.2274E-01, 0.2316E-01, 0.2358E-01,& - 0.2401E-01, 0.2442E-01, 0.2485E-01, 0.2529E-01,& - 0.2573E-01, 0.2616E-01, 0.2660E-01, 0.2706E-01,& - 0.2751E-01, 0.2796E-01, 0.2842E-01, 0.2888E-01,& - 0.2935E-01, 0.2981E-01, 0.3028E-01, 0.3076E-01,& - 0.3123E-01, 0.3172E-01, 0.3220E-01, 0.3269E-01,& - 0.3319E-01, 0.3368E-01, 0.3418E-01, 0.3468E-01,& - 0.3518E-01, 0.3569E-01, 0.3620E-01, 0.3673E-01,& - 0.3724E-01, 0.3776E-01, 0.3829E-01, 0.3882E-01,& - 0.3935E-01, 0.3989E-01, 0.4043E-01, 0.4098E-01,& - 0.4152E-01, 0.4207E-01, 0.4262E-01, 0.4319E-01,& - 0.4374E-01, 0.4430E-01, 0.4487E-01, 0.4545E-01,& - 0.4601E-01, 0.4659E-01, 0.4718E-01, 0.4776E-01,& - 0.4835E-01, 0.4895E-01, 0.4954E-01, 0.5013E-01,& - 0.5074E-01, 0.5134E-01, 0.5195E-01, 0.5257E-01,& - 0.5319E-01, 0.5380E-01, 0.5442E-01, 0.5504E-01,& - 0.5568E-01, 0.5631E-01, 0.5694E-01, 0.5759E-01,& - 0.5823E-01, 0.5888E-01, 0.5952E-01, 0.6018E-01,& - 0.6083E-01, 0.6149E-01, 0.6216E-01, 0.6282E-01,& - 0.6349E-01, 0.6417E-01, 0.6485E-01, 0.6553E-01,& - 0.6621E-01, 0.6690E-01, 0.6760E-01, 0.6829E-01,& - 0.6899E-01, 0.6969E-01, 0.7040E-01, 0.7111E-01,& - 0.7183E-01, 0.7254E-01, 0.7325E-01, 0.7398E-01,& - 0.7471E-01, 0.7543E-01, 0.7617E-01, 0.7690E-01,& - 0.7764E-01, 0.7839E-01, 0.7913E-01, 0.7989E-01,& - 0.8064E-01, 0.8139E-01, 0.8216E-01, 0.8293E-01,& - 0.8370E-01, 0.8446E-01, 0.8524E-01, 0.8602E-01,& - 0.8681E-01, 0.8759E-01, 0.8838E-01, 0.8917E-01,& - 0.8997E-01, 0.9078E-01, 0.9157E-01, 0.9238E-01,& - 0.9320E-01, 0.9401E-01, 0.9483E-01, 0.9565E-01,& - 0.9647E-01, 0.9730E-01, 0.9814E-01, 0.9897E-01,& - 0.9981E-01, 0.1007E+00, 0.1015E+00, 0.1024E+00,& - 0.1032E+00, 0.1041E+00, 0.1049E+00, 0.1058E+00,& - 0.1067E+00, 0.1075E+00, 0.1084E+00, 0.1093E+00,& - 0.1102E+00, 0.1111E+00, 0.1119E+00, 0.1128E+00,& - 0.1137E+00, 0.1146E+00, 0.1155E+00, 0.1165E+00,& - 0.1174E+00, 0.1183E+00, 0.1192E+00, 0.1201E+00,& - 0.1210E+00, 0.1220E+00, 0.1229E+00, 0.1239E+00,& - 0.1248E+00, 0.1257E+00, 0.1267E+00, 0.1276E+00,& - 0.1286E+00, 0.1296E+00, 0.1305E+00, 0.1315E+00,& - 0.1325E+00, 0.1334E+00, 0.1344E+00, 0.1354E+00,& - 0.1364E+00, 0.1374E+00, 0.1384E+00, 0.1394E+00,& - 0.1404E+00, 0.1414E+00, 0.1424E+00, 0.1434E+00,& - 0.1444E+00, 0.1454E+00, 0.1465E+00, 0.1475E+00,& - 0.1485E+00, 0.1496E+00, 0.1506E+00, 0.1516E+00,& - 0.1527E+00, 0.1537E+00, 0.1548E+00, 0.1558E+00,& - 0.1569E+00, 0.1580E+00, 0.1591E+00, 0.1601E+00,& - 0.1612E+00, 0.1623E+00, 0.1634E+00, 0.1645E+00,& - 0.1656E+00, 0.1667E+00, 0.1678E+00, 0.1689E+00,& - 0.1700E+00, 0.1711E+00, 0.1722E+00, 0.1733E+00,& - 0.1745E+00, 0.1756E+00, 0.1767E+00, 0.1779E+00,& - 0.1790E+00, 0.1801E+00, 0.1813E+00, 0.1825E+00,& - 0.1836E+00, 0.1848E+00, 0.1859E+00, 0.1871E+00,& - 0.1883E+00, 0.1895E+00, 0.1906E+00, 0.1918E+00,& - 0.1930E+00, 0.1942E+00, 0.1954E+00, 0.1966E+00,& - 0.1978E+00, 0.1990E+00, 0.2002E+00, 0.2015E+00,& - 0.2027E+00, 0.2039E+00, 0.2051E+00, 0.2064E+00,& - 0.2076E+00, 0.2089E+00, 0.2101E+00, 0.2114E+00,& - 0.2126E+00, 0.2139E+00, 0.2152E+00, 0.2164E+00,& - 0.2177E+00, 0.2190E+00, 0.2203E+00, 0.2216E+00,& - 0.2228E+00, 0.2241E+00, 0.2254E+00, 0.2267E+00,& - 0.2281E+00, 0.2294E+00, 0.2307E+00, 0.2320E+00,& - 0.2333E+00, 0.2347E+00, 0.2360E+00, 0.2373E+00,& - 0.2387E+00, 0.2400E+00, 0.2414E+00, 0.2427E+00,& - 0.2441E+00, 0.2455E+00, 0.2468E+00, 0.2482E+00,& - 0.2496E+00, 0.2510E+00, 0.2524E+00, 0.2537E+00,& - 0.2551E+00, 0.2565E+00, 0.2580E+00, 0.2594E+00,& - 0.2608E+00, 0.2622E+00, 0.2636E+00, 0.2651E+00,& - 0.2665E+00, 0.2679E+00, 0.2694E+00, 0.2708E+00,& - 0.2723E+00, 0.2737E+00, 0.2752E+00, 0.2767E+00,& - 0.2781E+00, 0.2796E+00, 0.2811E+00, 0.2826E+00,& - 0.2841E+00, 0.2856E+00, 0.2871E+00, 0.2886E+00,& - 0.2901E+00, 0.2916E+00, 0.2931E+00, 0.2946E+00,& - 0.2962E+00, 0.2977E+00, 0.2992E+00, 0.3008E+00,& - 0.3023E+00, 0.3039E+00, 0.3054E+00, 0.3070E+00,& - 0.3086E+00, 0.3101E+00, 0.3117E+00, 0.3133E+00,& - 0.3149E+00, 0.3165E+00, 0.3181E+00, 0.3197E+00,& - 0.3213E+00, 0.3229E+00, 0.3245E+00, 0.3261E+00,& - 0.3278E+00, 0.3294E+00, 0.3310E+00, 0.3327E+00,& - 0.3343E+00, 0.3360E+00, 0.3376E+00, 0.3393E+00,& - 0.3410E+00, 0.3427E+00, 0.3443E+00, 0.3460E+00,& - 0.3477E+00, 0.3494E+00, 0.3511E+00, 0.3528E+00,& - 0.3545E+00, 0.3562E+00, 0.3580E+00, 0.3597E+00,& - 0.3614E+00, 0.3632E+00, 0.3649E+00, 0.3667E+00,& - 0.3684E+00, 0.3702E+00, 0.3719E+00, 0.3737E+00,& - 0.3755E+00, 0.3773E+00, 0.3791E+00, 0.3809E+00,& - 0.3827E+00, 0.3845E+00, 0.3863E+00, 0.3881E+00,& - 0.3899E+00, 0.3917E+00, 0.3936E+00, 0.3954E+00,& - 0.3973E+00, 0.3991E+00, 0.4010E+00, 0.4028E+00,& - 0.4047E+00, 0.4066E+00, 0.4085E+00, 0.4103E+00,& - 0.4122E+00, 0.4141E+00, 0.4160E+00, 0.4179E+00,& - 0.4199E+00, 0.4218E+00, 0.4237E+00, 0.4256E+00,& - 0.4276E+00, 0.4295E+00, 0.4315E+00, 0.4334E+00,& - 0.4354E+00, 0.4374E+00, 0.4393E+00, 0.4413E+00,& - 0.4433E+00, 0.4453E+00, 0.4473E+00, 0.4493E+00,& - 0.4513E+00, 0.4533E+00, 0.4554E+00, 0.4574E+00,& - 0.4594E+00, 0.4615E+00, 0.4635E+00, 0.4656E+00,& - 0.4676E+00, 0.4697E+00, 0.4718E+00, 0.4739E+00,& - 0.4760E+00, 0.4781E+00, 0.4802E+00, 0.4823E+00,& - 0.4844E+00, 0.4865E+00, 0.4887E+00, 0.4908E+00,& - 0.4929E+00, 0.4951E+00, 0.4972E+00, 0.4994E+00,& - 0.5016E+00, 0.5038E+00, 0.5059E+00, 0.5081E+00,& - 0.5103E+00, 0.5125E+00, 0.5147E+00, 0.5170E+00,& - 0.5192E+00, 0.5214E+00, 0.5237E+00, 0.5259E+00,& - 0.5282E+00, 0.5304E+00, 0.5327E+00, 0.5350E+00,& - 0.5372E+00, 0.5395E+00, 0.5418E+00, 0.5441E+00,& - 0.5464E+00, 0.5488E+00, 0.5511E+00, 0.5534E+00,& - 0.5558E+00, 0.5581E+00, 0.5605E+00, 0.5628E+00,& - 0.5652E+00, 0.5676E+00, 0.5700E+00, 0.5724E+00,& - 0.5748E+00, 0.5772E+00, 0.5796E+00, 0.5820E+00,& - 0.5845E+00, 0.5869E+00, 0.5894E+00, 0.5918E+00,& - 0.5943E+00, 0.5968E+00, 0.5992E+00, 0.6017E+00,& - 0.6042E+00, 0.6067E+00, 0.6092E+00, 0.6118E+00,& - 0.6143E+00, 0.6168E+00, 0.6194E+00, 0.6219E+00,& - 0.6245E+00, 0.6271E+00, 0.6296E+00, 0.6322E+00,& - 0.6348E+00, 0.6374E+00, 0.6401E+00, 0.6427E+00,& - 0.6453E+00, 0.6479E+00, 0.6506E+00, 0.6532E+00,& - 0.6559E+00, 0.6586E+00, 0.6613E+00, 0.6640E+00,& - 0.6667E+00, 0.6694E+00, 0.6721E+00, 0.6748E+00,& - 0.6776E+00, 0.6803E+00, 0.6831E+00, 0.6858E+00,& - 0.6886E+00, 0.6914E+00, 0.6942E+00, 0.6970E+00,& - 0.6998E+00, 0.7026E+00, 0.7054E+00, 0.7083E+00,& - 0.7111E+00, 0.7140E+00, 0.7169E+00, 0.7197E+00,& - 0.7226E+00, 0.7255E+00, 0.7284E+00, 0.7314E+00,& - 0.7343E+00, 0.7372E+00, 0.7402E+00, 0.7431E+00,& - 0.7461E+00, 0.7491E+00, 0.7521E+00, 0.7551E+00,& - 0.7581E+00, 0.7611E+00, 0.7641E+00, 0.7672E+00,& - 0.7702E+00, 0.7733E+00, 0.7764E+00, 0.7794E+00,& - 0.7825E+00, 0.7856E+00, 0.7888E+00, 0.7919E+00,& - 0.7950E+00, 0.7982E+00, 0.8013E+00, 0.8045E+00,& - 0.8077E+00, 0.8109E+00, 0.8141E+00, 0.8173E+00,& - 0.8205E+00, 0.8238E+00, 0.8270E+00, 0.8303E+00,& - 0.8335E+00, 0.8368E+00, 0.8401E+00, 0.8434E+00,& - 0.8468E+00, 0.8501E+00, 0.8534E+00, 0.8568E+00,& - 0.8602E+00, 0.8636E+00, 0.8670E+00, 0.8704E+00,& - 0.8738E+00, 0.8772E+00, 0.8807E+00, 0.8841E+00,& - 0.8876E+00, 0.8911E+00, 0.8946E+00, 0.8981E+00,& - 0.9016E+00, 0.9051E+00, 0.9087E+00, 0.9122E+00,& - 0.9158E+00, 0.9194E+00, 0.9230E+00, 0.9266E+00,& - 0.9302E+00, 0.9339E+00, 0.9375E+00, 0.9412E+00,& - 0.9449E+00, 0.9486E+00, 0.9523E+00, 0.9560E+00,& - 0.9598E+00, 0.9635E+00, 0.9673E+00, 0.9710E+00,& - 0.9749E+00, 0.9787E+00, 0.9825E+00, 0.9863E+00,& - 0.9902E+00, 0.9940E+00, 0.9979E+00, 0.1002E+01,& - 0.1006E+01, 0.1010E+01, 0.1014E+01, 0.1018E+01,& - 0.1022E+01, 0.1026E+01, 0.1030E+01, 0.1034E+01,& - 0.1038E+01, 0.1042E+01, 0.1046E+01, 0.1050E+01,& - 0.1054E+01, 0.1058E+01, 0.1062E+01, 0.1066E+01,& - 0.1071E+01, 0.1075E+01, 0.1079E+01, 0.1083E+01,& - 0.1087E+01, 0.1092E+01, 0.1096E+01, 0.1100E+01,& - 0.1105E+01, 0.1109E+01, 0.1113E+01, 0.1118E+01,& - 0.1122E+01, 0.1126E+01, 0.1131E+01, 0.1135E+01,& - 0.1140E+01, 0.1144E+01, 0.1149E+01, 0.1153E+01,& - 0.1158E+01, 0.1162E+01, 0.1167E+01, 0.1171E+01,& - 0.1176E+01, 0.1181E+01, 0.1185E+01, 0.1190E+01,& - 0.1195E+01, 0.1199E+01, 0.1204E+01, 0.1209E+01,& - 0.1214E+01, 0.1219E+01, 0.1223E+01, 0.1228E+01,& - 0.1233E+01, 0.1238E+01, 0.1243E+01, 0.1248E+01,& - 0.1253E+01, 0.1258E+01, 0.1263E+01, 0.1268E+01,& - 0.1273E+01, 0.1278E+01, 0.1283E+01, 0.1288E+01,& - 0.1293E+01, 0.1298E+01, 0.1303E+01, 0.1309E+01,& - 0.1314E+01, 0.1319E+01, 0.1324E+01, 0.1330E+01,& - 0.1335E+01, 0.1340E+01, 0.1346E+01, 0.1351E+01,& - 0.1357E+01, 0.1362E+01, 0.1368E+01, 0.1373E+01,& - 0.1379E+01, 0.1384E+01, 0.1390E+01, 0.1395E+01,& - 0.1401E+01, 0.1407E+01, 0.1412E+01, 0.1418E+01,& - 0.1424E+01, 0.1430E+01, 0.1436E+01, 0.1441E+01,& - 0.1447E+01, 0.1453E+01, 0.1459E+01, 0.1465E+01,& - 0.1471E+01, 0.1477E+01, 0.1483E+01, 0.1489E+01,& - 0.1495E+01, 0.1502E+01, 0.1508E+01, 0.1514E+01,& - 0.1520E+01, 0.1526E+01, 0.1533E+01, 0.1539E+01,& - 0.1546E+01, 0.1552E+01, 0.1558E+01, 0.1565E+01,& - 0.1571E+01, 0.1578E+01, 0.1585E+01, 0.1591E+01,& - 0.1598E+01, 0.1605E+01, 0.1611E+01, 0.1618E+01,& - 0.1625E+01, 0.1632E+01, 0.1639E+01, 0.1646E+01,& - 0.1653E+01, 0.1660E+01, 0.1667E+01, 0.1674E+01,& - 0.1681E+01, 0.1688E+01, 0.1695E+01, 0.1703E+01,& - 0.1710E+01, 0.1717E+01, 0.1725E+01, 0.1732E+01,& - 0.1740E+01, 0.1747E+01, 0.1755E+01, 0.1762E+01,& - 0.1770E+01, 0.1778E+01, 0.1786E+01, 0.1794E+01,& - 0.1801E+01, 0.1809E+01, 0.1817E+01, 0.1825E+01,& - 0.1833E+01, 0.1841E+01, 0.1850E+01, 0.1858E+01,& - 0.1866E+01, 0.1875E+01, 0.1883E+01, 0.1891E+01,& - 0.1900E+01, 0.1908E+01, 0.1917E+01, 0.1926E+01,& - 0.1935E+01, 0.1943E+01, 0.1952E+01, 0.1961E+01,& - 0.1970E+01, 0.1979E+01, 0.1988E+01, 0.1997E+01,& - 0.2007E+01, 0.2016E+01, 0.2025E+01, 0.2035E+01,& - 0.2044E+01, 0.2054E+01, 0.2064E+01, 0.2073E+01,& - 0.2083E+01, 0.2093E+01, 0.2103E+01, 0.2113E+01,& - 0.2123E+01, 0.2133E+01, 0.2144E+01, 0.2154E+01,& - 0.2164E+01, 0.2175E+01, 0.2186E+01, 0.2196E+01,& - 0.2207E+01, 0.2218E+01, 0.2229E+01, 0.2240E+01,& - 0.2251E+01, 0.2262E+01, 0.2274E+01, 0.2285E+01,& - 0.2296E+01, 0.2308E+01, 0.2320E+01, 0.2332E+01,& - 0.2344E+01, 0.2356E+01, 0.2368E+01, 0.2380E+01,& - 0.2392E+01, 0.2405E+01, 0.2417E+01, 0.2430E+01,& - 0.2443E+01, 0.2456E+01, 0.2469E+01, 0.2482E+01,& - 0.2495E+01, 0.2509E+01, 0.2522E+01, 0.2536E+01,& - 0.2550E+01, 0.2564E+01, 0.2578E+01, 0.2592E+01,& - 0.2607E+01, 0.2622E+01, 0.2636E+01, 0.2651E+01,& - 0.2666E+01, 0.2681E+01, 0.2697E+01, 0.2712E+01,& - 0.2728E+01, 0.2744E+01, 0.2760E+01, 0.2777E+01,& - 0.2793E+01, 0.2810E+01, 0.2827E+01, 0.2844E+01,& - 0.2861E+01, 0.2879E+01, 0.2896E+01, 0.2914E+01,& - 0.2932E+01, 0.2951E+01, 0.2970E+01, 0.2988E+01,& - 0.3008E+01, 0.3027E+01, 0.3047E+01, 0.3067E+01,& - 0.3087E+01, 0.3107E+01, 0.3128E+01, 0.3149E+01,& - 0.3171E+01, 0.3193E+01, 0.3215E+01, 0.3237E+01,& - 0.3260E+01, 0.3283E+01, 0.3307E+01, 0.3331E+01,& - 0.3355E+01, 0.3380E+01, 0.3405E+01, 0.3430E+01,& - 0.3457E+01, 0.3483E+01, 0.3510E+01, 0.3538E+01,& - 0.3566E+01, 0.3594E+01, 0.3623E+01, 0.3653E+01,& - 0.3683E+01, 0.3714E+01, 0.3746E+01, 0.3778E+01,& - 0.3811E+01, 0.3845E+01, 0.3879E+01, 0.3915E+01,& - 0.3951E+01, 0.3988E+01, 0.4026E+01, 0.4065E+01,& - 0.4105E+01, 0.4146E+01, 0.4188E+01, 0.4232E+01,& - 0.4277E+01, 0.4323E+01, 0.4370E+01, 0.4419E+01,& - 0.4470E+01, 0.4522E+01, 0.4576E+01, 0.4632E+01,& - 0.4691E+01, 0.4751E+01, 0.4814E+01, 0.4880E+01,& - 0.4948E+01, 0.5020E+01, 0.5095E+01, 0.5174E+01,& - 0.5257E+01, 0.5345E+01, 0.5438E+01, 0.5536E+01,& - 0.5642E+01, 0.5754E+01, 0.5876E+01, 0.6007E+01,& - 0.6150E+01, 0.6306E+01, 0.6480E+01, 0.6675E+01,& - 0.6896E+01, 0.7152E+01, 0.7455E+01, 0.7828E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2378E-04/) - xcw(:, 52) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2378E-04,& - 0.3757E-04, 0.6513E-04, 0.9270E-04, 0.1203E-03,& - 0.1616E-03, 0.2030E-03, 0.2443E-03, 0.2995E-03,& - 0.3408E-03, 0.4097E-03, 0.4649E-03, 0.5338E-03,& - 0.6027E-03, 0.6716E-03, 0.7543E-03, 0.8370E-03,& - 0.9197E-03, 0.1016E-02, 0.1099E-02, 0.1195E-02,& - 0.1306E-02, 0.1402E-02, 0.1512E-02, 0.1636E-02,& - 0.1747E-02, 0.1871E-02, 0.1995E-02, 0.2119E-02,& - 0.2257E-02, 0.2381E-02, 0.2519E-02, 0.2670E-02,& - 0.2808E-02, 0.2960E-02, 0.3111E-02, 0.3277E-02,& - 0.3442E-02, 0.3608E-02, 0.3773E-02, 0.3938E-02,& - 0.4118E-02, 0.4297E-02, 0.4476E-02, 0.4669E-02,& - 0.4862E-02, 0.5055E-02, 0.5248E-02, 0.5455E-02,& - 0.5647E-02, 0.5854E-02, 0.6075E-02, 0.6282E-02,& - 0.6502E-02, 0.6723E-02, 0.6957E-02, 0.7177E-02,& - 0.7412E-02, 0.7646E-02, 0.7894E-02, 0.8129E-02,& - 0.8377E-02, 0.8625E-02, 0.8887E-02, 0.9149E-02,& - 0.9397E-02, 0.9672E-02, 0.9934E-02, 0.1021E-01,& - 0.1049E-01, 0.1076E-01, 0.1104E-01, 0.1133E-01,& - 0.1162E-01, 0.1191E-01, 0.1219E-01, 0.1250E-01,& - 0.1280E-01, 0.1310E-01, 0.1342E-01, 0.1372E-01,& - 0.1404E-01, 0.1436E-01, 0.1469E-01, 0.1502E-01,& - 0.1535E-01, 0.1568E-01, 0.1601E-01, 0.1636E-01,& - 0.1670E-01, 0.1705E-01, 0.1739E-01, 0.1775E-01,& - 0.1811E-01, 0.1847E-01, 0.1884E-01, 0.1920E-01,& - 0.1957E-01, 0.1994E-01, 0.2033E-01, 0.2070E-01,& - 0.2109E-01, 0.2147E-01, 0.2187E-01, 0.2226E-01,& - 0.2266E-01, 0.2306E-01, 0.2347E-01, 0.2387E-01,& - 0.2428E-01, 0.2470E-01, 0.2512E-01, 0.2554E-01,& - 0.2596E-01, 0.2639E-01, 0.2683E-01, 0.2726E-01,& - 0.2770E-01, 0.2814E-01, 0.2860E-01, 0.2904E-01,& - 0.2949E-01, 0.2995E-01, 0.3042E-01, 0.3087E-01,& - 0.3134E-01, 0.3181E-01, 0.3228E-01, 0.3276E-01,& - 0.3324E-01, 0.3372E-01, 0.3421E-01, 0.3470E-01,& - 0.3520E-01, 0.3570E-01, 0.3619E-01, 0.3670E-01,& - 0.3720E-01, 0.3771E-01, 0.3823E-01, 0.3874E-01,& - 0.3927E-01, 0.3979E-01, 0.4031E-01, 0.4085E-01,& - 0.4139E-01, 0.4193E-01, 0.4246E-01, 0.4301E-01,& - 0.4355E-01, 0.4410E-01, 0.4467E-01, 0.4522E-01,& - 0.4579E-01, 0.4635E-01, 0.4692E-01, 0.4749E-01,& - 0.4807E-01, 0.4865E-01, 0.4923E-01, 0.4982E-01,& - 0.5040E-01, 0.5100E-01, 0.5160E-01, 0.5219E-01,& - 0.5280E-01, 0.5341E-01, 0.5401E-01, 0.5463E-01,& - 0.5525E-01, 0.5587E-01, 0.5650E-01, 0.5713E-01,& - 0.5775E-01, 0.5838E-01, 0.5903E-01, 0.5967E-01,& - 0.6031E-01, 0.6096E-01, 0.6161E-01, 0.6227E-01,& - 0.6293E-01, 0.6359E-01, 0.6426E-01, 0.6493E-01,& - 0.6561E-01, 0.6628E-01, 0.6696E-01, 0.6765E-01,& - 0.6834E-01, 0.6902E-01, 0.6971E-01, 0.7042E-01,& - 0.7112E-01, 0.7182E-01, 0.7253E-01, 0.7324E-01,& - 0.7396E-01, 0.7468E-01, 0.7539E-01, 0.7612E-01,& - 0.7685E-01, 0.7758E-01, 0.7833E-01, 0.7906E-01,& - 0.7980E-01, 0.8056E-01, 0.8131E-01, 0.8206E-01,& - 0.8282E-01, 0.8358E-01, 0.8435E-01, 0.8511E-01,& - 0.8590E-01, 0.8667E-01, 0.8744E-01, 0.8822E-01,& - 0.8901E-01, 0.8981E-01, 0.9060E-01, 0.9140E-01,& - 0.9219E-01, 0.9301E-01, 0.9382E-01, 0.9463E-01,& - 0.9545E-01, 0.9626E-01, 0.9709E-01, 0.9791E-01,& - 0.9874E-01, 0.9958E-01, 0.1004E+00, 0.1013E+00,& - 0.1021E+00, 0.1030E+00, 0.1038E+00, 0.1047E+00,& - 0.1055E+00, 0.1064E+00, 0.1073E+00, 0.1081E+00,& - 0.1090E+00, 0.1099E+00, 0.1108E+00, 0.1117E+00,& - 0.1125E+00, 0.1134E+00, 0.1143E+00, 0.1152E+00,& - 0.1162E+00, 0.1171E+00, 0.1180E+00, 0.1189E+00,& - 0.1198E+00, 0.1207E+00, 0.1216E+00, 0.1226E+00,& - 0.1235E+00, 0.1245E+00, 0.1254E+00, 0.1264E+00,& - 0.1273E+00, 0.1283E+00, 0.1292E+00, 0.1302E+00,& - 0.1311E+00, 0.1321E+00, 0.1331E+00, 0.1341E+00,& - 0.1350E+00, 0.1360E+00, 0.1370E+00, 0.1380E+00,& - 0.1390E+00, 0.1400E+00, 0.1410E+00, 0.1420E+00,& - 0.1431E+00, 0.1441E+00, 0.1451E+00, 0.1461E+00,& - 0.1471E+00, 0.1482E+00, 0.1492E+00, 0.1503E+00,& - 0.1513E+00, 0.1523E+00, 0.1534E+00, 0.1545E+00,& - 0.1555E+00, 0.1566E+00, 0.1577E+00, 0.1587E+00,& - 0.1598E+00, 0.1609E+00, 0.1620E+00, 0.1631E+00,& - 0.1641E+00, 0.1652E+00, 0.1664E+00, 0.1675E+00,& - 0.1686E+00, 0.1697E+00, 0.1708E+00, 0.1719E+00,& - 0.1730E+00, 0.1742E+00, 0.1753E+00, 0.1765E+00,& - 0.1776E+00, 0.1787E+00, 0.1799E+00, 0.1810E+00,& - 0.1822E+00, 0.1834E+00, 0.1845E+00, 0.1857E+00,& - 0.1869E+00, 0.1881E+00, 0.1892E+00, 0.1904E+00,& - 0.1916E+00, 0.1928E+00, 0.1940E+00, 0.1952E+00,& - 0.1965E+00, 0.1977E+00, 0.1989E+00, 0.2001E+00,& - 0.2013E+00, 0.2026E+00, 0.2038E+00, 0.2050E+00,& - 0.2063E+00, 0.2075E+00, 0.2088E+00, 0.2100E+00,& - 0.2113E+00, 0.2126E+00, 0.2138E+00, 0.2151E+00,& - 0.2164E+00, 0.2177E+00, 0.2190E+00, 0.2203E+00,& - 0.2216E+00, 0.2229E+00, 0.2242E+00, 0.2255E+00,& - 0.2268E+00, 0.2281E+00, 0.2295E+00, 0.2308E+00,& - 0.2321E+00, 0.2335E+00, 0.2348E+00, 0.2362E+00,& - 0.2375E+00, 0.2389E+00, 0.2402E+00, 0.2416E+00,& - 0.2430E+00, 0.2443E+00, 0.2457E+00, 0.2471E+00,& - 0.2485E+00, 0.2499E+00, 0.2513E+00, 0.2527E+00,& - 0.2541E+00, 0.2555E+00, 0.2569E+00, 0.2584E+00,& - 0.2598E+00, 0.2612E+00, 0.2627E+00, 0.2641E+00,& - 0.2655E+00, 0.2670E+00, 0.2684E+00, 0.2699E+00,& - 0.2714E+00, 0.2729E+00, 0.2743E+00, 0.2758E+00,& - 0.2773E+00, 0.2788E+00, 0.2803E+00, 0.2818E+00,& - 0.2833E+00, 0.2848E+00, 0.2863E+00, 0.2878E+00,& - 0.2894E+00, 0.2909E+00, 0.2924E+00, 0.2940E+00,& - 0.2955E+00, 0.2971E+00, 0.2986E+00, 0.3002E+00,& - 0.3018E+00, 0.3033E+00, 0.3049E+00, 0.3065E+00,& - 0.3081E+00, 0.3097E+00, 0.3113E+00, 0.3129E+00,& - 0.3145E+00, 0.3161E+00, 0.3177E+00, 0.3193E+00,& - 0.3210E+00, 0.3226E+00, 0.3242E+00, 0.3259E+00,& - 0.3275E+00, 0.3292E+00, 0.3309E+00, 0.3325E+00,& - 0.3342E+00, 0.3359E+00, 0.3376E+00, 0.3392E+00,& - 0.3409E+00, 0.3426E+00, 0.3443E+00, 0.3460E+00,& - 0.3478E+00, 0.3495E+00, 0.3512E+00, 0.3530E+00,& - 0.3547E+00, 0.3564E+00, 0.3582E+00, 0.3599E+00,& - 0.3617E+00, 0.3635E+00, 0.3652E+00, 0.3670E+00,& - 0.3688E+00, 0.3706E+00, 0.3724E+00, 0.3742E+00,& - 0.3760E+00, 0.3778E+00, 0.3796E+00, 0.3815E+00,& - 0.3833E+00, 0.3851E+00, 0.3870E+00, 0.3888E+00,& - 0.3907E+00, 0.3925E+00, 0.3944E+00, 0.3963E+00,& - 0.3981E+00, 0.4000E+00, 0.4019E+00, 0.4038E+00,& - 0.4057E+00, 0.4076E+00, 0.4095E+00, 0.4115E+00,& - 0.4134E+00, 0.4153E+00, 0.4173E+00, 0.4192E+00,& - 0.4212E+00, 0.4231E+00, 0.4251E+00, 0.4271E+00,& - 0.4291E+00, 0.4310E+00, 0.4330E+00, 0.4350E+00,& - 0.4370E+00, 0.4390E+00, 0.4410E+00, 0.4431E+00,& - 0.4451E+00, 0.4471E+00, 0.4492E+00, 0.4512E+00,& - 0.4533E+00, 0.4554E+00, 0.4574E+00, 0.4595E+00,& - 0.4616E+00, 0.4637E+00, 0.4658E+00, 0.4679E+00,& - 0.4700E+00, 0.4721E+00, 0.4742E+00, 0.4764E+00,& - 0.4785E+00, 0.4806E+00, 0.4828E+00, 0.4849E+00,& - 0.4871E+00, 0.4893E+00, 0.4915E+00, 0.4936E+00,& - 0.4958E+00, 0.4980E+00, 0.5002E+00, 0.5025E+00,& - 0.5047E+00, 0.5069E+00, 0.5092E+00, 0.5114E+00,& - 0.5137E+00, 0.5159E+00, 0.5182E+00, 0.5204E+00,& - 0.5227E+00, 0.5250E+00, 0.5273E+00, 0.5296E+00,& - 0.5319E+00, 0.5342E+00, 0.5366E+00, 0.5389E+00,& - 0.5412E+00, 0.5436E+00, 0.5460E+00, 0.5483E+00,& - 0.5507E+00, 0.5531E+00, 0.5555E+00, 0.5579E+00,& - 0.5603E+00, 0.5627E+00, 0.5651E+00, 0.5675E+00,& - 0.5700E+00, 0.5724E+00, 0.5749E+00, 0.5773E+00,& - 0.5798E+00, 0.5823E+00, 0.5848E+00, 0.5872E+00,& - 0.5897E+00, 0.5923E+00, 0.5948E+00, 0.5973E+00,& - 0.5998E+00, 0.6024E+00, 0.6049E+00, 0.6075E+00,& - 0.6101E+00, 0.6126E+00, 0.6152E+00, 0.6178E+00,& - 0.6204E+00, 0.6230E+00, 0.6257E+00, 0.6283E+00,& - 0.6309E+00, 0.6336E+00, 0.6362E+00, 0.6389E+00,& - 0.6416E+00, 0.6443E+00, 0.6470E+00, 0.6497E+00,& - 0.6524E+00, 0.6551E+00, 0.6578E+00, 0.6606E+00,& - 0.6633E+00, 0.6661E+00, 0.6688E+00, 0.6716E+00,& - 0.6744E+00, 0.6772E+00, 0.6800E+00, 0.6828E+00,& - 0.6856E+00, 0.6885E+00, 0.6913E+00, 0.6942E+00,& - 0.6970E+00, 0.6999E+00, 0.7028E+00, 0.7057E+00,& - 0.7086E+00, 0.7115E+00, 0.7144E+00, 0.7174E+00,& - 0.7203E+00, 0.7233E+00, 0.7262E+00, 0.7292E+00,& - 0.7322E+00, 0.7352E+00, 0.7382E+00, 0.7412E+00,& - 0.7443E+00, 0.7473E+00, 0.7503E+00, 0.7534E+00,& - 0.7565E+00, 0.7595E+00, 0.7627E+00, 0.7658E+00,& - 0.7689E+00, 0.7720E+00, 0.7751E+00, 0.7783E+00,& - 0.7815E+00, 0.7846E+00, 0.7878E+00, 0.7910E+00,& - 0.7942E+00, 0.7974E+00, 0.8007E+00, 0.8039E+00,& - 0.8071E+00, 0.8104E+00, 0.8137E+00, 0.8170E+00,& - 0.8203E+00, 0.8236E+00, 0.8269E+00, 0.8303E+00,& - 0.8336E+00, 0.8370E+00, 0.8403E+00, 0.8437E+00,& - 0.8471E+00, 0.8505E+00, 0.8540E+00, 0.8574E+00,& - 0.8608E+00, 0.8643E+00, 0.8678E+00, 0.8713E+00,& - 0.8748E+00, 0.8783E+00, 0.8818E+00, 0.8854E+00,& - 0.8889E+00, 0.8925E+00, 0.8961E+00, 0.8997E+00,& - 0.9033E+00, 0.9069E+00, 0.9105E+00, 0.9142E+00,& - 0.9178E+00, 0.9215E+00, 0.9252E+00, 0.9289E+00,& - 0.9326E+00, 0.9364E+00, 0.9401E+00, 0.9439E+00,& - 0.9477E+00, 0.9515E+00, 0.9553E+00, 0.9591E+00,& - 0.9629E+00, 0.9668E+00, 0.9707E+00, 0.9745E+00,& - 0.9784E+00, 0.9824E+00, 0.9863E+00, 0.9902E+00,& - 0.9942E+00, 0.9982E+00, 0.1002E+01, 0.1006E+01,& - 0.1010E+01, 0.1014E+01, 0.1018E+01, 0.1022E+01,& - 0.1026E+01, 0.1031E+01, 0.1035E+01, 0.1039E+01,& - 0.1043E+01, 0.1047E+01, 0.1051E+01, 0.1056E+01,& - 0.1060E+01, 0.1064E+01, 0.1068E+01, 0.1073E+01,& - 0.1077E+01, 0.1081E+01, 0.1086E+01, 0.1090E+01,& - 0.1094E+01, 0.1099E+01, 0.1103E+01, 0.1107E+01,& - 0.1112E+01, 0.1116E+01, 0.1121E+01, 0.1125E+01,& - 0.1130E+01, 0.1134E+01, 0.1139E+01, 0.1144E+01,& - 0.1148E+01, 0.1153E+01, 0.1157E+01, 0.1162E+01,& - 0.1167E+01, 0.1171E+01, 0.1176E+01, 0.1181E+01,& - 0.1186E+01, 0.1190E+01, 0.1195E+01, 0.1200E+01,& - 0.1205E+01, 0.1210E+01, 0.1215E+01, 0.1220E+01,& - 0.1225E+01, 0.1229E+01, 0.1234E+01, 0.1239E+01,& - 0.1244E+01, 0.1250E+01, 0.1255E+01, 0.1260E+01,& - 0.1265E+01, 0.1270E+01, 0.1275E+01, 0.1280E+01,& - 0.1286E+01, 0.1291E+01, 0.1296E+01, 0.1301E+01,& - 0.1307E+01, 0.1312E+01, 0.1317E+01, 0.1323E+01,& - 0.1328E+01, 0.1334E+01, 0.1339E+01, 0.1345E+01,& - 0.1350E+01, 0.1356E+01, 0.1361E+01, 0.1367E+01,& - 0.1372E+01, 0.1378E+01, 0.1384E+01, 0.1389E+01,& - 0.1395E+01, 0.1401E+01, 0.1407E+01, 0.1413E+01,& - 0.1418E+01, 0.1424E+01, 0.1430E+01, 0.1436E+01,& - 0.1442E+01, 0.1448E+01, 0.1454E+01, 0.1460E+01,& - 0.1466E+01, 0.1473E+01, 0.1479E+01, 0.1485E+01,& - 0.1491E+01, 0.1497E+01, 0.1504E+01, 0.1510E+01,& - 0.1516E+01, 0.1523E+01, 0.1529E+01, 0.1536E+01,& - 0.1542E+01, 0.1549E+01, 0.1555E+01, 0.1562E+01,& - 0.1569E+01, 0.1575E+01, 0.1582E+01, 0.1589E+01,& - 0.1596E+01, 0.1602E+01, 0.1609E+01, 0.1616E+01,& - 0.1623E+01, 0.1630E+01, 0.1637E+01, 0.1644E+01,& - 0.1651E+01, 0.1659E+01, 0.1666E+01, 0.1673E+01,& - 0.1680E+01, 0.1688E+01, 0.1695E+01, 0.1702E+01,& - 0.1710E+01, 0.1717E+01, 0.1725E+01, 0.1732E+01,& - 0.1740E+01, 0.1748E+01, 0.1756E+01, 0.1763E+01,& - 0.1771E+01, 0.1779E+01, 0.1787E+01, 0.1795E+01,& - 0.1803E+01, 0.1811E+01, 0.1819E+01, 0.1827E+01,& - 0.1836E+01, 0.1844E+01, 0.1852E+01, 0.1861E+01,& - 0.1869E+01, 0.1878E+01, 0.1886E+01, 0.1895E+01,& - 0.1904E+01, 0.1912E+01, 0.1921E+01, 0.1930E+01,& - 0.1939E+01, 0.1948E+01, 0.1957E+01, 0.1966E+01,& - 0.1975E+01, 0.1985E+01, 0.1994E+01, 0.2003E+01,& - 0.2013E+01, 0.2022E+01, 0.2032E+01, 0.2041E+01,& - 0.2051E+01, 0.2061E+01, 0.2071E+01, 0.2081E+01,& - 0.2091E+01, 0.2101E+01, 0.2111E+01, 0.2121E+01,& - 0.2132E+01, 0.2142E+01, 0.2153E+01, 0.2163E+01,& - 0.2174E+01, 0.2185E+01, 0.2195E+01, 0.2206E+01,& - 0.2217E+01, 0.2228E+01, 0.2240E+01, 0.2251E+01,& - 0.2262E+01, 0.2274E+01, 0.2285E+01, 0.2297E+01,& - 0.2309E+01, 0.2321E+01, 0.2333E+01, 0.2345E+01,& - 0.2357E+01, 0.2369E+01, 0.2382E+01, 0.2394E+01,& - 0.2407E+01, 0.2420E+01, 0.2433E+01, 0.2446E+01,& - 0.2459E+01, 0.2472E+01, 0.2485E+01, 0.2499E+01,& - 0.2513E+01, 0.2526E+01, 0.2540E+01, 0.2554E+01,& - 0.2569E+01, 0.2583E+01, 0.2597E+01, 0.2612E+01,& - 0.2627E+01, 0.2642E+01, 0.2657E+01, 0.2672E+01,& - 0.2688E+01, 0.2703E+01, 0.2719E+01, 0.2735E+01,& - 0.2751E+01, 0.2767E+01, 0.2784E+01, 0.2801E+01,& - 0.2818E+01, 0.2835E+01, 0.2852E+01, 0.2870E+01,& - 0.2887E+01, 0.2905E+01, 0.2923E+01, 0.2942E+01,& - 0.2961E+01, 0.2979E+01, 0.2999E+01, 0.3018E+01,& - 0.3038E+01, 0.3058E+01, 0.3078E+01, 0.3098E+01,& - 0.3119E+01, 0.3140E+01, 0.3162E+01, 0.3183E+01,& - 0.3205E+01, 0.3228E+01, 0.3250E+01, 0.3273E+01,& - 0.3297E+01, 0.3321E+01, 0.3345E+01, 0.3369E+01,& - 0.3394E+01, 0.3420E+01, 0.3446E+01, 0.3472E+01,& - 0.3499E+01, 0.3526E+01, 0.3554E+01, 0.3582E+01,& - 0.3611E+01, 0.3640E+01, 0.3670E+01, 0.3700E+01,& - 0.3732E+01, 0.3763E+01, 0.3796E+01, 0.3829E+01,& - 0.3863E+01, 0.3898E+01, 0.3933E+01, 0.3970E+01,& - 0.4007E+01, 0.4045E+01, 0.4084E+01, 0.4124E+01,& - 0.4165E+01, 0.4208E+01, 0.4251E+01, 0.4296E+01,& - 0.4342E+01, 0.4389E+01, 0.4438E+01, 0.4488E+01,& - 0.4541E+01, 0.4594E+01, 0.4650E+01, 0.4708E+01,& - 0.4767E+01, 0.4830E+01, 0.4895E+01, 0.4963E+01,& - 0.5033E+01, 0.5107E+01, 0.5185E+01, 0.5266E+01,& - 0.5352E+01, 0.5442E+01, 0.5538E+01, 0.5639E+01,& - 0.5748E+01, 0.5864E+01, 0.5989E+01, 0.6124E+01,& - 0.6271E+01, 0.6433E+01, 0.6612E+01, 0.6813E+01,& - 0.7040E+01, 0.7306E+01, 0.7619E+01, 0.8004E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 53) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.2411E-04, 0.3823E-04, 0.6646E-04, 0.8057E-04,& - 0.1088E-03, 0.1511E-03, 0.1794E-03, 0.2217E-03,& - 0.2641E-03, 0.3064E-03, 0.3487E-03, 0.4052E-03,& - 0.4617E-03, 0.5181E-03, 0.5887E-03, 0.6451E-03,& - 0.7157E-03, 0.7863E-03, 0.8710E-03, 0.9415E-03,& - 0.1026E-02, 0.1111E-02, 0.1210E-02, 0.1294E-02,& - 0.1393E-02, 0.1492E-02, 0.1605E-02, 0.1704E-02,& - 0.1817E-02, 0.1930E-02, 0.2042E-02, 0.2169E-02,& - 0.2297E-02, 0.2424E-02, 0.2551E-02, 0.2678E-02,& - 0.2819E-02, 0.2960E-02, 0.3101E-02, 0.3256E-02,& - 0.3397E-02, 0.3553E-02, 0.3708E-02, 0.3877E-02,& - 0.4033E-02, 0.4202E-02, 0.4371E-02, 0.4541E-02,& - 0.4724E-02, 0.4908E-02, 0.5091E-02, 0.5275E-02,& - 0.5458E-02, 0.5656E-02, 0.5853E-02, 0.6051E-02,& - 0.6249E-02, 0.6460E-02, 0.6672E-02, 0.6884E-02,& - 0.7095E-02, 0.7321E-02, 0.7547E-02, 0.7773E-02,& - 0.7999E-02, 0.8239E-02, 0.8465E-02, 0.8704E-02,& - 0.8959E-02, 0.9198E-02, 0.9453E-02, 0.9707E-02,& - 0.9961E-02, 0.1021E-01, 0.1048E-01, 0.1075E-01,& - 0.1102E-01, 0.1129E-01, 0.1157E-01, 0.1184E-01,& - 0.1213E-01, 0.1242E-01, 0.1270E-01, 0.1300E-01,& - 0.1329E-01, 0.1359E-01, 0.1390E-01, 0.1419E-01,& - 0.1451E-01, 0.1482E-01, 0.1514E-01, 0.1545E-01,& - 0.1578E-01, 0.1610E-01, 0.1643E-01, 0.1676E-01,& - 0.1710E-01, 0.1744E-01, 0.1778E-01, 0.1813E-01,& - 0.1847E-01, 0.1882E-01, 0.1918E-01, 0.1954E-01,& - 0.1990E-01, 0.2026E-01, 0.2063E-01, 0.2101E-01,& - 0.2138E-01, 0.2176E-01, 0.2214E-01, 0.2254E-01,& - 0.2292E-01, 0.2331E-01, 0.2371E-01, 0.2410E-01,& - 0.2451E-01, 0.2491E-01, 0.2532E-01, 0.2574E-01,& - 0.2615E-01, 0.2657E-01, 0.2700E-01, 0.2742E-01,& - 0.2784E-01, 0.2828E-01, 0.2872E-01, 0.2916E-01,& - 0.2959E-01, 0.3005E-01, 0.3048E-01, 0.3093E-01,& - 0.3140E-01, 0.3185E-01, 0.3232E-01, 0.3278E-01,& - 0.3325E-01, 0.3373E-01, 0.3421E-01, 0.3467E-01,& - 0.3517E-01, 0.3565E-01, 0.3614E-01, 0.3664E-01,& - 0.3713E-01, 0.3762E-01, 0.3813E-01, 0.3864E-01,& - 0.3915E-01, 0.3966E-01, 0.4018E-01, 0.4070E-01,& - 0.4122E-01, 0.4175E-01, 0.4228E-01, 0.4282E-01,& - 0.4336E-01, 0.4389E-01, 0.4444E-01, 0.4498E-01,& - 0.4553E-01, 0.4609E-01, 0.4664E-01, 0.4721E-01,& - 0.4777E-01, 0.4834E-01, 0.4892E-01, 0.4949E-01,& - 0.5007E-01, 0.5065E-01, 0.5123E-01, 0.5182E-01,& - 0.5242E-01, 0.5301E-01, 0.5362E-01, 0.5421E-01,& - 0.5482E-01, 0.5544E-01, 0.5604E-01, 0.5667E-01,& - 0.5729E-01, 0.5791E-01, 0.5853E-01, 0.5916E-01,& - 0.5980E-01, 0.6043E-01, 0.6108E-01, 0.6172E-01,& - 0.6237E-01, 0.6303E-01, 0.6368E-01, 0.6434E-01,& - 0.6501E-01, 0.6567E-01, 0.6633E-01, 0.6701E-01,& - 0.6769E-01, 0.6837E-01, 0.6906E-01, 0.6973E-01,& - 0.7043E-01, 0.7113E-01, 0.7182E-01, 0.7253E-01,& - 0.7324E-01, 0.7394E-01, 0.7466E-01, 0.7537E-01,& - 0.7609E-01, 0.7682E-01, 0.7754E-01, 0.7827E-01,& - 0.7901E-01, 0.7974E-01, 0.8049E-01, 0.8124E-01,& - 0.8199E-01, 0.8273E-01, 0.8350E-01, 0.8426E-01,& - 0.8502E-01, 0.8578E-01, 0.8656E-01, 0.8734E-01,& - 0.8811E-01, 0.8889E-01, 0.8968E-01, 0.9047E-01,& - 0.9126E-01, 0.9206E-01, 0.9285E-01, 0.9366E-01,& - 0.9448E-01, 0.9528E-01, 0.9610E-01, 0.9692E-01,& - 0.9774E-01, 0.9857E-01, 0.9940E-01, 0.1002E+00,& - 0.1011E+00, 0.1019E+00, 0.1028E+00, 0.1036E+00,& - 0.1045E+00, 0.1053E+00, 0.1062E+00, 0.1071E+00,& - 0.1079E+00, 0.1088E+00, 0.1097E+00, 0.1105E+00,& - 0.1114E+00, 0.1123E+00, 0.1132E+00, 0.1141E+00,& - 0.1150E+00, 0.1159E+00, 0.1168E+00, 0.1177E+00,& - 0.1186E+00, 0.1196E+00, 0.1205E+00, 0.1214E+00,& - 0.1223E+00, 0.1233E+00, 0.1242E+00, 0.1252E+00,& - 0.1261E+00, 0.1271E+00, 0.1280E+00, 0.1290E+00,& - 0.1299E+00, 0.1309E+00, 0.1319E+00, 0.1328E+00,& - 0.1338E+00, 0.1348E+00, 0.1358E+00, 0.1368E+00,& - 0.1378E+00, 0.1388E+00, 0.1398E+00, 0.1408E+00,& - 0.1418E+00, 0.1428E+00, 0.1438E+00, 0.1449E+00,& - 0.1459E+00, 0.1469E+00, 0.1479E+00, 0.1490E+00,& - 0.1500E+00, 0.1511E+00, 0.1521E+00, 0.1532E+00,& - 0.1542E+00, 0.1553E+00, 0.1564E+00, 0.1574E+00,& - 0.1585E+00, 0.1596E+00, 0.1607E+00, 0.1618E+00,& - 0.1629E+00, 0.1640E+00, 0.1651E+00, 0.1662E+00,& - 0.1673E+00, 0.1684E+00, 0.1695E+00, 0.1706E+00,& - 0.1718E+00, 0.1729E+00, 0.1740E+00, 0.1752E+00,& - 0.1763E+00, 0.1775E+00, 0.1786E+00, 0.1798E+00,& - 0.1809E+00, 0.1821E+00, 0.1833E+00, 0.1845E+00,& - 0.1856E+00, 0.1868E+00, 0.1880E+00, 0.1892E+00,& - 0.1904E+00, 0.1916E+00, 0.1928E+00, 0.1940E+00,& - 0.1952E+00, 0.1964E+00, 0.1977E+00, 0.1989E+00,& - 0.2001E+00, 0.2014E+00, 0.2026E+00, 0.2038E+00,& - 0.2051E+00, 0.2064E+00, 0.2076E+00, 0.2089E+00,& - 0.2102E+00, 0.2114E+00, 0.2127E+00, 0.2140E+00,& - 0.2153E+00, 0.2166E+00, 0.2179E+00, 0.2192E+00,& - 0.2205E+00, 0.2218E+00, 0.2231E+00, 0.2244E+00,& - 0.2257E+00, 0.2271E+00, 0.2284E+00, 0.2297E+00,& - 0.2311E+00, 0.2324E+00, 0.2338E+00, 0.2352E+00,& - 0.2365E+00, 0.2379E+00, 0.2392E+00, 0.2406E+00,& - 0.2420E+00, 0.2434E+00, 0.2448E+00, 0.2462E+00,& - 0.2476E+00, 0.2490E+00, 0.2504E+00, 0.2518E+00,& - 0.2533E+00, 0.2547E+00, 0.2561E+00, 0.2575E+00,& - 0.2590E+00, 0.2604E+00, 0.2619E+00, 0.2633E+00,& - 0.2648E+00, 0.2663E+00, 0.2677E+00, 0.2692E+00,& - 0.2707E+00, 0.2722E+00, 0.2737E+00, 0.2752E+00,& - 0.2767E+00, 0.2782E+00, 0.2797E+00, 0.2812E+00,& - 0.2827E+00, 0.2843E+00, 0.2858E+00, 0.2873E+00,& - 0.2889E+00, 0.2904E+00, 0.2920E+00, 0.2935E+00,& - 0.2951E+00, 0.2967E+00, 0.2983E+00, 0.2998E+00,& - 0.3014E+00, 0.3030E+00, 0.3046E+00, 0.3062E+00,& - 0.3078E+00, 0.3094E+00, 0.3111E+00, 0.3127E+00,& - 0.3143E+00, 0.3159E+00, 0.3176E+00, 0.3192E+00,& - 0.3209E+00, 0.3226E+00, 0.3242E+00, 0.3259E+00,& - 0.3276E+00, 0.3292E+00, 0.3309E+00, 0.3326E+00,& - 0.3343E+00, 0.3360E+00, 0.3377E+00, 0.3394E+00,& - 0.3412E+00, 0.3429E+00, 0.3446E+00, 0.3464E+00,& - 0.3481E+00, 0.3498E+00, 0.3516E+00, 0.3534E+00,& - 0.3551E+00, 0.3569E+00, 0.3587E+00, 0.3605E+00,& - 0.3623E+00, 0.3641E+00, 0.3659E+00, 0.3677E+00,& - 0.3695E+00, 0.3713E+00, 0.3731E+00, 0.3750E+00,& - 0.3768E+00, 0.3787E+00, 0.3805E+00, 0.3824E+00,& - 0.3842E+00, 0.3861E+00, 0.3880E+00, 0.3898E+00,& - 0.3917E+00, 0.3936E+00, 0.3955E+00, 0.3975E+00,& - 0.3994E+00, 0.4013E+00, 0.4032E+00, 0.4051E+00,& - 0.4071E+00, 0.4090E+00, 0.4110E+00, 0.4129E+00,& - 0.4149E+00, 0.4169E+00, 0.4189E+00, 0.4208E+00,& - 0.4228E+00, 0.4248E+00, 0.4268E+00, 0.4289E+00,& - 0.4309E+00, 0.4329E+00, 0.4349E+00, 0.4370E+00,& - 0.4390E+00, 0.4411E+00, 0.4431E+00, 0.4452E+00,& - 0.4473E+00, 0.4494E+00, 0.4514E+00, 0.4535E+00,& - 0.4557E+00, 0.4578E+00, 0.4599E+00, 0.4620E+00,& - 0.4641E+00, 0.4663E+00, 0.4684E+00, 0.4706E+00,& - 0.4727E+00, 0.4749E+00, 0.4770E+00, 0.4792E+00,& - 0.4814E+00, 0.4836E+00, 0.4858E+00, 0.4880E+00,& - 0.4902E+00, 0.4925E+00, 0.4947E+00, 0.4969E+00,& - 0.4992E+00, 0.5014E+00, 0.5037E+00, 0.5060E+00,& - 0.5083E+00, 0.5105E+00, 0.5128E+00, 0.5151E+00,& - 0.5174E+00, 0.5198E+00, 0.5221E+00, 0.5244E+00,& - 0.5267E+00, 0.5291E+00, 0.5315E+00, 0.5338E+00,& - 0.5362E+00, 0.5386E+00, 0.5410E+00, 0.5434E+00,& - 0.5458E+00, 0.5482E+00, 0.5506E+00, 0.5530E+00,& - 0.5555E+00, 0.5579E+00, 0.5604E+00, 0.5628E+00,& - 0.5653E+00, 0.5678E+00, 0.5702E+00, 0.5727E+00,& - 0.5752E+00, 0.5778E+00, 0.5803E+00, 0.5828E+00,& - 0.5853E+00, 0.5879E+00, 0.5905E+00, 0.5930E+00,& - 0.5956E+00, 0.5982E+00, 0.6008E+00, 0.6034E+00,& - 0.6060E+00, 0.6086E+00, 0.6112E+00, 0.6139E+00,& - 0.6165E+00, 0.6192E+00, 0.6218E+00, 0.6245E+00,& - 0.6272E+00, 0.6299E+00, 0.6326E+00, 0.6353E+00,& - 0.6380E+00, 0.6407E+00, 0.6435E+00, 0.6462E+00,& - 0.6490E+00, 0.6517E+00, 0.6545E+00, 0.6573E+00,& - 0.6601E+00, 0.6629E+00, 0.6657E+00, 0.6686E+00,& - 0.6714E+00, 0.6742E+00, 0.6771E+00, 0.6800E+00,& - 0.6828E+00, 0.6857E+00, 0.6886E+00, 0.6915E+00,& - 0.6944E+00, 0.6974E+00, 0.7003E+00, 0.7033E+00,& - 0.7062E+00, 0.7092E+00, 0.7122E+00, 0.7152E+00,& - 0.7182E+00, 0.7212E+00, 0.7242E+00, 0.7272E+00,& - 0.7303E+00, 0.7333E+00, 0.7364E+00, 0.7395E+00,& - 0.7426E+00, 0.7457E+00, 0.7488E+00, 0.7519E+00,& - 0.7550E+00, 0.7582E+00, 0.7614E+00, 0.7645E+00,& - 0.7677E+00, 0.7709E+00, 0.7741E+00, 0.7773E+00,& - 0.7805E+00, 0.7838E+00, 0.7870E+00, 0.7903E+00,& - 0.7936E+00, 0.7969E+00, 0.8002E+00, 0.8035E+00,& - 0.8068E+00, 0.8101E+00, 0.8135E+00, 0.8169E+00,& - 0.8202E+00, 0.8236E+00, 0.8270E+00, 0.8304E+00,& - 0.8339E+00, 0.8373E+00, 0.8408E+00, 0.8442E+00,& - 0.8477E+00, 0.8512E+00, 0.8547E+00, 0.8582E+00,& - 0.8617E+00, 0.8653E+00, 0.8688E+00, 0.8724E+00,& - 0.8760E+00, 0.8796E+00, 0.8832E+00, 0.8868E+00,& - 0.8905E+00, 0.8941E+00, 0.8978E+00, 0.9015E+00,& - 0.9052E+00, 0.9089E+00, 0.9126E+00, 0.9164E+00,& - 0.9201E+00, 0.9239E+00, 0.9277E+00, 0.9315E+00,& - 0.9353E+00, 0.9392E+00, 0.9430E+00, 0.9469E+00,& - 0.9507E+00, 0.9546E+00, 0.9585E+00, 0.9625E+00,& - 0.9664E+00, 0.9704E+00, 0.9743E+00, 0.9783E+00,& - 0.9823E+00, 0.9864E+00, 0.9904E+00, 0.9944E+00,& - 0.9985E+00, 0.1003E+01, 0.1007E+01, 0.1011E+01,& - 0.1015E+01, 0.1019E+01, 0.1023E+01, 0.1027E+01,& - 0.1032E+01, 0.1036E+01, 0.1040E+01, 0.1044E+01,& - 0.1049E+01, 0.1053E+01, 0.1057E+01, 0.1062E+01,& - 0.1066E+01, 0.1070E+01, 0.1075E+01, 0.1079E+01,& - 0.1084E+01, 0.1088E+01, 0.1092E+01, 0.1097E+01,& - 0.1101E+01, 0.1106E+01, 0.1110E+01, 0.1115E+01,& - 0.1120E+01, 0.1124E+01, 0.1129E+01, 0.1133E+01,& - 0.1138E+01, 0.1143E+01, 0.1148E+01, 0.1152E+01,& - 0.1157E+01, 0.1162E+01, 0.1167E+01, 0.1171E+01,& - 0.1176E+01, 0.1181E+01, 0.1186E+01, 0.1191E+01,& - 0.1196E+01, 0.1201E+01, 0.1206E+01, 0.1211E+01,& - 0.1216E+01, 0.1221E+01, 0.1226E+01, 0.1231E+01,& - 0.1236E+01, 0.1241E+01, 0.1246E+01, 0.1251E+01,& - 0.1256E+01, 0.1262E+01, 0.1267E+01, 0.1272E+01,& - 0.1277E+01, 0.1283E+01, 0.1288E+01, 0.1294E+01,& - 0.1299E+01, 0.1304E+01, 0.1310E+01, 0.1315E+01,& - 0.1321E+01, 0.1326E+01, 0.1332E+01, 0.1337E+01,& - 0.1343E+01, 0.1349E+01, 0.1354E+01, 0.1360E+01,& - 0.1366E+01, 0.1371E+01, 0.1377E+01, 0.1383E+01,& - 0.1389E+01, 0.1395E+01, 0.1401E+01, 0.1407E+01,& - 0.1413E+01, 0.1419E+01, 0.1425E+01, 0.1431E+01,& - 0.1437E+01, 0.1443E+01, 0.1449E+01, 0.1455E+01,& - 0.1461E+01, 0.1468E+01, 0.1474E+01, 0.1480E+01,& - 0.1486E+01, 0.1493E+01, 0.1499E+01, 0.1506E+01,& - 0.1512E+01, 0.1519E+01, 0.1525E+01, 0.1532E+01,& - 0.1538E+01, 0.1545E+01, 0.1552E+01, 0.1558E+01,& - 0.1565E+01, 0.1572E+01, 0.1579E+01, 0.1586E+01,& - 0.1593E+01, 0.1600E+01, 0.1607E+01, 0.1614E+01,& - 0.1621E+01, 0.1628E+01, 0.1635E+01, 0.1642E+01,& - 0.1650E+01, 0.1657E+01, 0.1664E+01, 0.1672E+01,& - 0.1679E+01, 0.1686E+01, 0.1694E+01, 0.1701E+01,& - 0.1709E+01, 0.1717E+01, 0.1724E+01, 0.1732E+01,& - 0.1740E+01, 0.1748E+01, 0.1756E+01, 0.1764E+01,& - 0.1772E+01, 0.1780E+01, 0.1788E+01, 0.1796E+01,& - 0.1804E+01, 0.1812E+01, 0.1821E+01, 0.1829E+01,& - 0.1837E+01, 0.1846E+01, 0.1854E+01, 0.1863E+01,& - 0.1872E+01, 0.1880E+01, 0.1889E+01, 0.1898E+01,& - 0.1907E+01, 0.1916E+01, 0.1925E+01, 0.1934E+01,& - 0.1943E+01, 0.1952E+01, 0.1961E+01, 0.1970E+01,& - 0.1980E+01, 0.1989E+01, 0.1999E+01, 0.2008E+01,& - 0.2018E+01, 0.2028E+01, 0.2038E+01, 0.2047E+01,& - 0.2057E+01, 0.2067E+01, 0.2077E+01, 0.2088E+01,& - 0.2098E+01, 0.2108E+01, 0.2119E+01, 0.2129E+01,& - 0.2140E+01, 0.2150E+01, 0.2161E+01, 0.2172E+01,& - 0.2183E+01, 0.2194E+01, 0.2205E+01, 0.2216E+01,& - 0.2227E+01, 0.2239E+01, 0.2250E+01, 0.2262E+01,& - 0.2273E+01, 0.2285E+01, 0.2297E+01, 0.2309E+01,& - 0.2321E+01, 0.2333E+01, 0.2345E+01, 0.2358E+01,& - 0.2370E+01, 0.2383E+01, 0.2395E+01, 0.2408E+01,& - 0.2421E+01, 0.2434E+01, 0.2447E+01, 0.2461E+01,& - 0.2474E+01, 0.2488E+01, 0.2501E+01, 0.2515E+01,& - 0.2529E+01, 0.2543E+01, 0.2558E+01, 0.2572E+01,& - 0.2586E+01, 0.2601E+01, 0.2616E+01, 0.2631E+01,& - 0.2646E+01, 0.2661E+01, 0.2677E+01, 0.2693E+01,& - 0.2708E+01, 0.2724E+01, 0.2741E+01, 0.2757E+01,& - 0.2773E+01, 0.2790E+01, 0.2807E+01, 0.2824E+01,& - 0.2842E+01, 0.2859E+01, 0.2877E+01, 0.2895E+01,& - 0.2913E+01, 0.2931E+01, 0.2950E+01, 0.2969E+01,& - 0.2988E+01, 0.3007E+01, 0.3027E+01, 0.3047E+01,& - 0.3067E+01, 0.3088E+01, 0.3108E+01, 0.3129E+01,& - 0.3151E+01, 0.3172E+01, 0.3194E+01, 0.3216E+01,& - 0.3239E+01, 0.3262E+01, 0.3285E+01, 0.3309E+01,& - 0.3333E+01, 0.3357E+01, 0.3382E+01, 0.3407E+01,& - 0.3433E+01, 0.3459E+01, 0.3486E+01, 0.3513E+01,& - 0.3540E+01, 0.3568E+01, 0.3597E+01, 0.3626E+01,& - 0.3655E+01, 0.3685E+01, 0.3716E+01, 0.3748E+01,& - 0.3780E+01, 0.3812E+01, 0.3846E+01, 0.3880E+01,& - 0.3915E+01, 0.3950E+01, 0.3987E+01, 0.4024E+01,& - 0.4062E+01, 0.4101E+01, 0.4142E+01, 0.4183E+01,& - 0.4225E+01, 0.4269E+01, 0.4313E+01, 0.4359E+01,& - 0.4407E+01, 0.4455E+01, 0.4506E+01, 0.4558E+01,& - 0.4611E+01, 0.4667E+01, 0.4724E+01, 0.4783E+01,& - 0.4845E+01, 0.4909E+01, 0.4976E+01, 0.5046E+01,& - 0.5118E+01, 0.5194E+01, 0.5274E+01, 0.5358E+01,& - 0.5446E+01, 0.5539E+01, 0.5638E+01, 0.5742E+01,& - 0.5854E+01, 0.5974E+01, 0.6103E+01, 0.6242E+01,& - 0.6394E+01, 0.6560E+01, 0.6745E+01, 0.6952E+01,& - 0.7188E+01, 0.7460E+01, 0.7783E+01, 0.8181E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 54) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2445E-04, 0.3890E-04, 0.5335E-04,& - 0.8226E-04, 0.1112E-03, 0.1256E-03, 0.1545E-03,& - 0.1979E-03, 0.2268E-03, 0.2701E-03, 0.3135E-03,& - 0.3568E-03, 0.4002E-03, 0.4435E-03, 0.5013E-03,& - 0.5591E-03, 0.6169E-03, 0.6748E-03, 0.7470E-03,& - 0.8048E-03, 0.8771E-03, 0.9493E-03, 0.1036E-02,& - 0.1108E-02, 0.1195E-02, 0.1282E-02, 0.1368E-02,& - 0.1455E-02, 0.1556E-02, 0.1657E-02, 0.1759E-02,& - 0.1860E-02, 0.1961E-02, 0.2077E-02, 0.2192E-02,& - 0.2308E-02, 0.2423E-02, 0.2539E-02, 0.2669E-02,& - 0.2799E-02, 0.2929E-02, 0.3059E-02, 0.3204E-02,& - 0.3334E-02, 0.3478E-02, 0.3623E-02, 0.3782E-02,& - 0.3926E-02, 0.4085E-02, 0.4244E-02, 0.4403E-02,& - 0.4562E-02, 0.4736E-02, 0.4909E-02, 0.5082E-02,& - 0.5256E-02, 0.5444E-02, 0.5617E-02, 0.5805E-02,& - 0.5993E-02, 0.6195E-02, 0.6383E-02, 0.6585E-02,& - 0.6788E-02, 0.6990E-02, 0.7192E-02, 0.7409E-02,& - 0.7626E-02, 0.7843E-02, 0.8059E-02, 0.8291E-02,& - 0.8507E-02, 0.8738E-02, 0.8970E-02, 0.9215E-02,& - 0.9447E-02, 0.9692E-02, 0.9938E-02, 0.1018E-01,& - 0.1044E-01, 0.1069E-01, 0.1095E-01, 0.1121E-01,& - 0.1147E-01, 0.1174E-01, 0.1202E-01, 0.1229E-01,& - 0.1257E-01, 0.1284E-01, 0.1313E-01, 0.1342E-01,& - 0.1371E-01, 0.1400E-01, 0.1429E-01, 0.1459E-01,& - 0.1489E-01, 0.1520E-01, 0.1552E-01, 0.1582E-01,& - 0.1614E-01, 0.1646E-01, 0.1677E-01, 0.1711E-01,& - 0.1744E-01, 0.1776E-01, 0.1810E-01, 0.1844E-01,& - 0.1878E-01, 0.1911E-01, 0.1946E-01, 0.1982E-01,& - 0.2017E-01, 0.2053E-01, 0.2089E-01, 0.2125E-01,& - 0.2161E-01, 0.2199E-01, 0.2237E-01, 0.2274E-01,& - 0.2312E-01, 0.2351E-01, 0.2390E-01, 0.2429E-01,& - 0.2468E-01, 0.2507E-01, 0.2547E-01, 0.2588E-01,& - 0.2628E-01, 0.2669E-01, 0.2711E-01, 0.2752E-01,& - 0.2794E-01, 0.2836E-01, 0.2878E-01, 0.2922E-01,& - 0.2965E-01, 0.3008E-01, 0.3053E-01, 0.3096E-01,& - 0.3141E-01, 0.3186E-01, 0.3232E-01, 0.3277E-01,& - 0.3323E-01, 0.3370E-01, 0.3416E-01, 0.3463E-01,& - 0.3510E-01, 0.3557E-01, 0.3605E-01, 0.3654E-01,& - 0.3703E-01, 0.3751E-01, 0.3802E-01, 0.3851E-01,& - 0.3901E-01, 0.3950E-01, 0.4001E-01, 0.4053E-01,& - 0.4104E-01, 0.4156E-01, 0.4208E-01, 0.4260E-01,& - 0.4313E-01, 0.4365E-01, 0.4419E-01, 0.4474E-01,& - 0.4527E-01, 0.4582E-01, 0.4637E-01, 0.4692E-01,& - 0.4747E-01, 0.4803E-01, 0.4859E-01, 0.4916E-01,& - 0.4972E-01, 0.5030E-01, 0.5086E-01, 0.5146E-01,& - 0.5203E-01, 0.5261E-01, 0.5320E-01, 0.5380E-01,& - 0.5439E-01, 0.5500E-01, 0.5560E-01, 0.5621E-01,& - 0.5682E-01, 0.5744E-01, 0.5805E-01, 0.5867E-01,& - 0.5930E-01, 0.5992E-01, 0.6056E-01, 0.6120E-01,& - 0.6183E-01, 0.6247E-01, 0.6312E-01, 0.6377E-01,& - 0.6442E-01, 0.6508E-01, 0.6573E-01, 0.6640E-01,& - 0.6708E-01, 0.6774E-01, 0.6842E-01, 0.6910E-01,& - 0.6978E-01, 0.7046E-01, 0.7115E-01, 0.7185E-01,& - 0.7254E-01, 0.7325E-01, 0.7394E-01, 0.7465E-01,& - 0.7537E-01, 0.7608E-01, 0.7680E-01, 0.7753E-01,& - 0.7825E-01, 0.7899E-01, 0.7971E-01, 0.8045E-01,& - 0.8120E-01, 0.8193E-01, 0.8268E-01, 0.8344E-01,& - 0.8419E-01, 0.8495E-01, 0.8572E-01, 0.8649E-01,& - 0.8725E-01, 0.8803E-01, 0.8881E-01, 0.8959E-01,& - 0.9037E-01, 0.9117E-01, 0.9196E-01, 0.9276E-01,& - 0.9355E-01, 0.9436E-01, 0.9517E-01, 0.9598E-01,& - 0.9680E-01, 0.9763E-01, 0.9845E-01, 0.9927E-01,& - 0.1001E+00, 0.1009E+00, 0.1018E+00, 0.1026E+00,& - 0.1035E+00, 0.1043E+00, 0.1052E+00, 0.1060E+00,& - 0.1069E+00, 0.1078E+00, 0.1086E+00, 0.1095E+00,& - 0.1104E+00, 0.1113E+00, 0.1122E+00, 0.1131E+00,& - 0.1139E+00, 0.1149E+00, 0.1157E+00, 0.1167E+00,& - 0.1176E+00, 0.1185E+00, 0.1194E+00, 0.1203E+00,& - 0.1213E+00, 0.1222E+00, 0.1231E+00, 0.1241E+00,& - 0.1250E+00, 0.1260E+00, 0.1269E+00, 0.1278E+00,& - 0.1288E+00, 0.1298E+00, 0.1307E+00, 0.1317E+00,& - 0.1327E+00, 0.1337E+00, 0.1347E+00, 0.1356E+00,& - 0.1366E+00, 0.1376E+00, 0.1386E+00, 0.1396E+00,& - 0.1406E+00, 0.1417E+00, 0.1427E+00, 0.1437E+00,& - 0.1447E+00, 0.1457E+00, 0.1468E+00, 0.1478E+00,& - 0.1489E+00, 0.1499E+00, 0.1510E+00, 0.1520E+00,& - 0.1531E+00, 0.1541E+00, 0.1552E+00, 0.1563E+00,& - 0.1574E+00, 0.1584E+00, 0.1595E+00, 0.1606E+00,& - 0.1617E+00, 0.1628E+00, 0.1639E+00, 0.1650E+00,& - 0.1661E+00, 0.1673E+00, 0.1684E+00, 0.1695E+00,& - 0.1706E+00, 0.1718E+00, 0.1729E+00, 0.1740E+00,& - 0.1752E+00, 0.1763E+00, 0.1775E+00, 0.1787E+00,& - 0.1798E+00, 0.1810E+00, 0.1822E+00, 0.1833E+00,& - 0.1845E+00, 0.1857E+00, 0.1869E+00, 0.1881E+00,& - 0.1893E+00, 0.1905E+00, 0.1917E+00, 0.1929E+00,& - 0.1942E+00, 0.1954E+00, 0.1966E+00, 0.1978E+00,& - 0.1991E+00, 0.2003E+00, 0.2016E+00, 0.2028E+00,& - 0.2041E+00, 0.2053E+00, 0.2066E+00, 0.2079E+00,& - 0.2092E+00, 0.2104E+00, 0.2117E+00, 0.2130E+00,& - 0.2143E+00, 0.2156E+00, 0.2169E+00, 0.2182E+00,& - 0.2196E+00, 0.2209E+00, 0.2222E+00, 0.2235E+00,& - 0.2249E+00, 0.2262E+00, 0.2275E+00, 0.2289E+00,& - 0.2302E+00, 0.2316E+00, 0.2330E+00, 0.2343E+00,& - 0.2357E+00, 0.2371E+00, 0.2385E+00, 0.2399E+00,& - 0.2413E+00, 0.2427E+00, 0.2441E+00, 0.2455E+00,& - 0.2469E+00, 0.2483E+00, 0.2497E+00, 0.2512E+00,& - 0.2526E+00, 0.2540E+00, 0.2555E+00, 0.2569E+00,& - 0.2584E+00, 0.2599E+00, 0.2613E+00, 0.2628E+00,& - 0.2643E+00, 0.2658E+00, 0.2672E+00, 0.2687E+00,& - 0.2702E+00, 0.2717E+00, 0.2732E+00, 0.2748E+00,& - 0.2763E+00, 0.2778E+00, 0.2793E+00, 0.2809E+00,& - 0.2824E+00, 0.2840E+00, 0.2855E+00, 0.2871E+00,& - 0.2886E+00, 0.2902E+00, 0.2918E+00, 0.2934E+00,& - 0.2949E+00, 0.2965E+00, 0.2981E+00, 0.2997E+00,& - 0.3013E+00, 0.3029E+00, 0.3046E+00, 0.3062E+00,& - 0.3078E+00, 0.3095E+00, 0.3111E+00, 0.3128E+00,& - 0.3144E+00, 0.3161E+00, 0.3177E+00, 0.3194E+00,& - 0.3211E+00, 0.3228E+00, 0.3245E+00, 0.3261E+00,& - 0.3278E+00, 0.3296E+00, 0.3313E+00, 0.3330E+00,& - 0.3347E+00, 0.3364E+00, 0.3382E+00, 0.3399E+00,& - 0.3417E+00, 0.3434E+00, 0.3452E+00, 0.3470E+00,& - 0.3487E+00, 0.3505E+00, 0.3523E+00, 0.3541E+00,& - 0.3559E+00, 0.3577E+00, 0.3595E+00, 0.3613E+00,& - 0.3631E+00, 0.3650E+00, 0.3668E+00, 0.3686E+00,& - 0.3705E+00, 0.3723E+00, 0.3742E+00, 0.3761E+00,& - 0.3779E+00, 0.3798E+00, 0.3817E+00, 0.3836E+00,& - 0.3855E+00, 0.3874E+00, 0.3893E+00, 0.3912E+00,& - 0.3932E+00, 0.3951E+00, 0.3970E+00, 0.3990E+00,& - 0.4009E+00, 0.4029E+00, 0.4048E+00, 0.4068E+00,& - 0.4088E+00, 0.4108E+00, 0.4128E+00, 0.4148E+00,& - 0.4168E+00, 0.4188E+00, 0.4208E+00, 0.4229E+00,& - 0.4249E+00, 0.4269E+00, 0.4290E+00, 0.4310E+00,& - 0.4331E+00, 0.4352E+00, 0.4372E+00, 0.4393E+00,& - 0.4414E+00, 0.4435E+00, 0.4456E+00, 0.4477E+00,& - 0.4498E+00, 0.4520E+00, 0.4541E+00, 0.4562E+00,& - 0.4584E+00, 0.4606E+00, 0.4627E+00, 0.4649E+00,& - 0.4671E+00, 0.4693E+00, 0.4714E+00, 0.4737E+00,& - 0.4759E+00, 0.4781E+00, 0.4803E+00, 0.4825E+00,& - 0.4848E+00, 0.4870E+00, 0.4893E+00, 0.4916E+00,& - 0.4938E+00, 0.4961E+00, 0.4984E+00, 0.5007E+00,& - 0.5030E+00, 0.5053E+00, 0.5076E+00, 0.5099E+00,& - 0.5123E+00, 0.5146E+00, 0.5170E+00, 0.5193E+00,& - 0.5217E+00, 0.5241E+00, 0.5265E+00, 0.5289E+00,& - 0.5313E+00, 0.5337E+00, 0.5361E+00, 0.5385E+00,& - 0.5409E+00, 0.5434E+00, 0.5458E+00, 0.5483E+00,& - 0.5508E+00, 0.5533E+00, 0.5557E+00, 0.5582E+00,& - 0.5607E+00, 0.5633E+00, 0.5658E+00, 0.5683E+00,& - 0.5708E+00, 0.5734E+00, 0.5759E+00, 0.5785E+00,& - 0.5811E+00, 0.5837E+00, 0.5863E+00, 0.5889E+00,& - 0.5915E+00, 0.5941E+00, 0.5967E+00, 0.5994E+00,& - 0.6020E+00, 0.6047E+00, 0.6073E+00, 0.6100E+00,& - 0.6127E+00, 0.6154E+00, 0.6181E+00, 0.6208E+00,& - 0.6236E+00, 0.6263E+00, 0.6290E+00, 0.6318E+00,& - 0.6346E+00, 0.6373E+00, 0.6401E+00, 0.6429E+00,& - 0.6457E+00, 0.6485E+00, 0.6514E+00, 0.6542E+00,& - 0.6570E+00, 0.6599E+00, 0.6628E+00, 0.6656E+00,& - 0.6685E+00, 0.6714E+00, 0.6743E+00, 0.6772E+00,& - 0.6802E+00, 0.6831E+00, 0.6861E+00, 0.6890E+00,& - 0.6920E+00, 0.6950E+00, 0.6980E+00, 0.7010E+00,& - 0.7040E+00, 0.7070E+00, 0.7101E+00, 0.7131E+00,& - 0.7162E+00, 0.7192E+00, 0.7223E+00, 0.7254E+00,& - 0.7285E+00, 0.7317E+00, 0.7348E+00, 0.7379E+00,& - 0.7411E+00, 0.7442E+00, 0.7474E+00, 0.7506E+00,& - 0.7538E+00, 0.7570E+00, 0.7602E+00, 0.7635E+00,& - 0.7667E+00, 0.7700E+00, 0.7732E+00, 0.7765E+00,& - 0.7798E+00, 0.7831E+00, 0.7865E+00, 0.7898E+00,& - 0.7931E+00, 0.7965E+00, 0.7999E+00, 0.8033E+00,& - 0.8067E+00, 0.8101E+00, 0.8135E+00, 0.8169E+00,& - 0.8204E+00, 0.8239E+00, 0.8273E+00, 0.8308E+00,& - 0.8343E+00, 0.8378E+00, 0.8414E+00, 0.8449E+00,& - 0.8485E+00, 0.8521E+00, 0.8556E+00, 0.8592E+00,& - 0.8629E+00, 0.8665E+00, 0.8701E+00, 0.8738E+00,& - 0.8775E+00, 0.8812E+00, 0.8849E+00, 0.8886E+00,& - 0.8923E+00, 0.8961E+00, 0.8998E+00, 0.9036E+00,& - 0.9074E+00, 0.9112E+00, 0.9150E+00, 0.9188E+00,& - 0.9227E+00, 0.9266E+00, 0.9304E+00, 0.9343E+00,& - 0.9383E+00, 0.9422E+00, 0.9461E+00, 0.9501E+00,& - 0.9541E+00, 0.9581E+00, 0.9621E+00, 0.9661E+00,& - 0.9702E+00, 0.9742E+00, 0.9783E+00, 0.9824E+00,& - 0.9865E+00, 0.9906E+00, 0.9948E+00, 0.9990E+00,& - 0.1003E+01, 0.1007E+01, 0.1012E+01, 0.1016E+01,& - 0.1020E+01, 0.1024E+01, 0.1029E+01, 0.1033E+01,& - 0.1037E+01, 0.1042E+01, 0.1046E+01, 0.1050E+01,& - 0.1055E+01, 0.1059E+01, 0.1064E+01, 0.1068E+01,& - 0.1073E+01, 0.1077E+01, 0.1082E+01, 0.1086E+01,& - 0.1091E+01, 0.1095E+01, 0.1100E+01, 0.1104E+01,& - 0.1109E+01, 0.1114E+01, 0.1118E+01, 0.1123E+01,& - 0.1128E+01, 0.1133E+01, 0.1137E+01, 0.1142E+01,& - 0.1147E+01, 0.1152E+01, 0.1157E+01, 0.1161E+01,& - 0.1166E+01, 0.1171E+01, 0.1176E+01, 0.1181E+01,& - 0.1186E+01, 0.1191E+01, 0.1196E+01, 0.1201E+01,& - 0.1206E+01, 0.1211E+01, 0.1216E+01, 0.1222E+01,& - 0.1227E+01, 0.1232E+01, 0.1237E+01, 0.1242E+01,& - 0.1248E+01, 0.1253E+01, 0.1258E+01, 0.1264E+01,& - 0.1269E+01, 0.1274E+01, 0.1280E+01, 0.1285E+01,& - 0.1291E+01, 0.1296E+01, 0.1302E+01, 0.1307E+01,& - 0.1313E+01, 0.1318E+01, 0.1324E+01, 0.1330E+01,& - 0.1335E+01, 0.1341E+01, 0.1347E+01, 0.1353E+01,& - 0.1359E+01, 0.1364E+01, 0.1370E+01, 0.1376E+01,& - 0.1382E+01, 0.1388E+01, 0.1394E+01, 0.1400E+01,& - 0.1406E+01, 0.1412E+01, 0.1418E+01, 0.1424E+01,& - 0.1431E+01, 0.1437E+01, 0.1443E+01, 0.1449E+01,& - 0.1456E+01, 0.1462E+01, 0.1468E+01, 0.1475E+01,& - 0.1481E+01, 0.1488E+01, 0.1494E+01, 0.1501E+01,& - 0.1507E+01, 0.1514E+01, 0.1521E+01, 0.1527E+01,& - 0.1534E+01, 0.1541E+01, 0.1548E+01, 0.1554E+01,& - 0.1561E+01, 0.1568E+01, 0.1575E+01, 0.1582E+01,& - 0.1589E+01, 0.1596E+01, 0.1604E+01, 0.1611E+01,& - 0.1618E+01, 0.1625E+01, 0.1632E+01, 0.1640E+01,& - 0.1647E+01, 0.1655E+01, 0.1662E+01, 0.1670E+01,& - 0.1677E+01, 0.1685E+01, 0.1692E+01, 0.1700E+01,& - 0.1708E+01, 0.1716E+01, 0.1723E+01, 0.1731E+01,& - 0.1739E+01, 0.1747E+01, 0.1755E+01, 0.1763E+01,& - 0.1771E+01, 0.1780E+01, 0.1788E+01, 0.1796E+01,& - 0.1805E+01, 0.1813E+01, 0.1821E+01, 0.1830E+01,& - 0.1838E+01, 0.1847E+01, 0.1856E+01, 0.1865E+01,& - 0.1873E+01, 0.1882E+01, 0.1891E+01, 0.1900E+01,& - 0.1909E+01, 0.1918E+01, 0.1927E+01, 0.1937E+01,& - 0.1946E+01, 0.1955E+01, 0.1965E+01, 0.1974E+01,& - 0.1984E+01, 0.1993E+01, 0.2003E+01, 0.2013E+01,& - 0.2023E+01, 0.2033E+01, 0.2043E+01, 0.2053E+01,& - 0.2063E+01, 0.2073E+01, 0.2083E+01, 0.2094E+01,& - 0.2104E+01, 0.2115E+01, 0.2125E+01, 0.2136E+01,& - 0.2147E+01, 0.2158E+01, 0.2169E+01, 0.2180E+01,& - 0.2191E+01, 0.2202E+01, 0.2213E+01, 0.2225E+01,& - 0.2236E+01, 0.2248E+01, 0.2260E+01, 0.2271E+01,& - 0.2283E+01, 0.2295E+01, 0.2307E+01, 0.2320E+01,& - 0.2332E+01, 0.2344E+01, 0.2357E+01, 0.2370E+01,& - 0.2382E+01, 0.2395E+01, 0.2408E+01, 0.2421E+01,& - 0.2435E+01, 0.2448E+01, 0.2461E+01, 0.2475E+01,& - 0.2489E+01, 0.2501E+01, 0.2517E+01, 0.2531E+01,& - 0.2545E+01, 0.2560E+01, 0.2574E+01, 0.2589E+01,& - 0.2604E+01, 0.2619E+01, 0.2634E+01, 0.2649E+01,& - 0.2665E+01, 0.2681E+01, 0.2696E+01, 0.2712E+01,& - 0.2729E+01, 0.2745E+01, 0.2762E+01, 0.2778E+01,& - 0.2795E+01, 0.2812E+01, 0.2830E+01, 0.2847E+01,& - 0.2865E+01, 0.2883E+01, 0.2901E+01, 0.2920E+01,& - 0.2938E+01, 0.2957E+01, 0.2976E+01, 0.2996E+01,& - 0.3015E+01, 0.3035E+01, 0.3055E+01, 0.3075E+01,& - 0.3096E+01, 0.3117E+01, 0.3138E+01, 0.3160E+01,& - 0.3182E+01, 0.3204E+01, 0.3226E+01, 0.3249E+01,& - 0.3272E+01, 0.3296E+01, 0.3320E+01, 0.3344E+01,& - 0.3369E+01, 0.3394E+01, 0.3419E+01, 0.3445E+01,& - 0.3471E+01, 0.3498E+01, 0.3525E+01, 0.3553E+01,& - 0.3581E+01, 0.3610E+01, 0.3639E+01, 0.3669E+01,& - 0.3699E+01, 0.3730E+01, 0.3762E+01, 0.3794E+01,& - 0.3827E+01, 0.3861E+01, 0.3895E+01, 0.3930E+01,& - 0.3966E+01, 0.4002E+01, 0.4040E+01, 0.4078E+01,& - 0.4117E+01, 0.4158E+01, 0.4199E+01, 0.4241E+01,& - 0.4285E+01, 0.4330E+01, 0.4375E+01, 0.4423E+01,& - 0.4471E+01, 0.4521E+01, 0.4573E+01, 0.4626E+01,& - 0.4682E+01, 0.4739E+01, 0.4798E+01, 0.4859E+01,& - 0.4922E+01, 0.4988E+01, 0.5057E+01, 0.5129E+01,& - 0.5203E+01, 0.5282E+01, 0.5364E+01, 0.5450E+01,& - 0.5541E+01, 0.5636E+01, 0.5738E+01, 0.5846E+01,& - 0.5961E+01, 0.6084E+01, 0.6217E+01, 0.6360E+01,& - 0.6517E+01, 0.6688E+01, 0.6879E+01, 0.7092E+01,& - 0.7335E+01, 0.7616E+01, 0.7949E+01, 0.8357E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 55) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.2479E-04, 0.3959E-04,& - 0.5438E-04, 0.6918E-04, 0.9876E-04, 0.1136E-03,& - 0.1431E-03, 0.1727E-03, 0.2023E-03, 0.2319E-03,& - 0.2615E-03, 0.3059E-03, 0.3503E-03, 0.3798E-03,& - 0.4242E-03, 0.4834E-03, 0.5278E-03, 0.5722E-03,& - 0.6313E-03, 0.6905E-03, 0.7497E-03, 0.8089E-03,& - 0.8828E-03, 0.9420E-03, 0.1016E-02, 0.1090E-02,& - 0.1164E-02, 0.1253E-02, 0.1327E-02, 0.1415E-02,& - 0.1504E-02, 0.1593E-02, 0.1682E-02, 0.1770E-02,& - 0.1874E-02, 0.1978E-02, 0.2081E-02, 0.2185E-02,& - 0.2288E-02, 0.2407E-02, 0.2510E-02, 0.2629E-02,& - 0.2747E-02, 0.2865E-02, 0.2998E-02, 0.3132E-02,& - 0.3250E-02, 0.3383E-02, 0.3531E-02, 0.3664E-02,& - 0.3812E-02, 0.3945E-02, 0.4093E-02, 0.4256E-02,& - 0.4404E-02, 0.4567E-02, 0.4714E-02, 0.4877E-02,& - 0.5040E-02, 0.5217E-02, 0.5380E-02, 0.5558E-02,& - 0.5735E-02, 0.5913E-02, 0.6090E-02, 0.6283E-02,& - 0.6475E-02, 0.6652E-02, 0.6860E-02, 0.7052E-02,& - 0.7244E-02, 0.7451E-02, 0.7658E-02, 0.7866E-02,& - 0.8073E-02, 0.8295E-02, 0.8516E-02, 0.8724E-02,& - 0.8960E-02, 0.9182E-02, 0.9404E-02, 0.9641E-02,& - 0.9878E-02, 0.1011E-01, 0.1035E-01, 0.1060E-01,& - 0.1085E-01, 0.1111E-01, 0.1136E-01, 0.1161E-01,& - 0.1187E-01, 0.1213E-01, 0.1239E-01, 0.1267E-01,& - 0.1294E-01, 0.1321E-01, 0.1349E-01, 0.1377E-01,& - 0.1405E-01, 0.1435E-01, 0.1463E-01, 0.1492E-01,& - 0.1522E-01, 0.1553E-01, 0.1582E-01, 0.1614E-01,& - 0.1645E-01, 0.1676E-01, 0.1707E-01, 0.1738E-01,& - 0.1770E-01, 0.1803E-01, 0.1835E-01, 0.1869E-01,& - 0.1902E-01, 0.1936E-01, 0.1970E-01, 0.2004E-01,& - 0.2040E-01, 0.2074E-01, 0.2109E-01, 0.2145E-01,& - 0.2180E-01, 0.2217E-01, 0.2254E-01, 0.2291E-01,& - 0.2328E-01, 0.2365E-01, 0.2404E-01, 0.2442E-01,& - 0.2480E-01, 0.2519E-01, 0.2557E-01, 0.2597E-01,& - 0.2637E-01, 0.2677E-01, 0.2717E-01, 0.2759E-01,& - 0.2800E-01, 0.2841E-01, 0.2883E-01, 0.2924E-01,& - 0.2967E-01, 0.3010E-01, 0.3053E-01, 0.3096E-01,& - 0.3140E-01, 0.3185E-01, 0.3229E-01, 0.3273E-01,& - 0.3318E-01, 0.3364E-01, 0.3410E-01, 0.3455E-01,& - 0.3501E-01, 0.3549E-01, 0.3596E-01, 0.3643E-01,& - 0.3691E-01, 0.3738E-01, 0.3787E-01, 0.3836E-01,& - 0.3884E-01, 0.3935E-01, 0.3984E-01, 0.4034E-01,& - 0.4084E-01, 0.4136E-01, 0.4186E-01, 0.4238E-01,& - 0.4290E-01, 0.4342E-01, 0.4395E-01, 0.4447E-01,& - 0.4500E-01, 0.4553E-01, 0.4608E-01, 0.4661E-01,& - 0.4716E-01, 0.4771E-01, 0.4827E-01, 0.4881E-01,& - 0.4938E-01, 0.4994E-01, 0.5052E-01, 0.5108E-01,& - 0.5166E-01, 0.5223E-01, 0.5281E-01, 0.5340E-01,& - 0.5398E-01, 0.5457E-01, 0.5516E-01, 0.5577E-01,& - 0.5637E-01, 0.5697E-01, 0.5759E-01, 0.5819E-01,& - 0.5882E-01, 0.5942E-01, 0.6006E-01, 0.6068E-01,& - 0.6132E-01, 0.6194E-01, 0.6259E-01, 0.6322E-01,& - 0.6386E-01, 0.6451E-01, 0.6516E-01, 0.6583E-01,& - 0.6648E-01, 0.6714E-01, 0.6781E-01, 0.6849E-01,& - 0.6916E-01, 0.6984E-01, 0.7052E-01, 0.7120E-01,& - 0.7189E-01, 0.7259E-01, 0.7328E-01, 0.7398E-01,& - 0.7469E-01, 0.7538E-01, 0.7611E-01, 0.7682E-01,& - 0.7753E-01, 0.7825E-01, 0.7898E-01, 0.7972E-01,& - 0.8044E-01, 0.8118E-01, 0.8192E-01, 0.8268E-01,& - 0.8342E-01, 0.8417E-01, 0.8493E-01, 0.8570E-01,& - 0.8645E-01, 0.8722E-01, 0.8799E-01, 0.8877E-01,& - 0.8956E-01, 0.9034E-01, 0.9113E-01, 0.9191E-01,& - 0.9271E-01, 0.9351E-01, 0.9431E-01, 0.9512E-01,& - 0.9593E-01, 0.9675E-01, 0.9756E-01, 0.9839E-01,& - 0.9920E-01, 0.1000E+00, 0.1009E+00, 0.1017E+00,& - 0.1026E+00, 0.1034E+00, 0.1042E+00, 0.1051E+00,& - 0.1060E+00, 0.1068E+00, 0.1077E+00, 0.1086E+00,& - 0.1094E+00, 0.1103E+00, 0.1112E+00, 0.1121E+00,& - 0.1130E+00, 0.1139E+00, 0.1148E+00, 0.1157E+00,& - 0.1166E+00, 0.1175E+00, 0.1184E+00, 0.1193E+00,& - 0.1203E+00, 0.1212E+00, 0.1221E+00, 0.1231E+00,& - 0.1240E+00, 0.1249E+00, 0.1259E+00, 0.1268E+00,& - 0.1278E+00, 0.1287E+00, 0.1297E+00, 0.1307E+00,& - 0.1317E+00, 0.1326E+00, 0.1336E+00, 0.1346E+00,& - 0.1356E+00, 0.1366E+00, 0.1376E+00, 0.1386E+00,& - 0.1396E+00, 0.1406E+00, 0.1416E+00, 0.1427E+00,& - 0.1437E+00, 0.1447E+00, 0.1457E+00, 0.1468E+00,& - 0.1478E+00, 0.1489E+00, 0.1499E+00, 0.1510E+00,& - 0.1520E+00, 0.1531E+00, 0.1542E+00, 0.1552E+00,& - 0.1563E+00, 0.1574E+00, 0.1585E+00, 0.1596E+00,& - 0.1607E+00, 0.1618E+00, 0.1629E+00, 0.1640E+00,& - 0.1651E+00, 0.1662E+00, 0.1674E+00, 0.1685E+00,& - 0.1696E+00, 0.1707E+00, 0.1719E+00, 0.1730E+00,& - 0.1742E+00, 0.1753E+00, 0.1765E+00, 0.1777E+00,& - 0.1788E+00, 0.1800E+00, 0.1812E+00, 0.1824E+00,& - 0.1836E+00, 0.1848E+00, 0.1860E+00, 0.1872E+00,& - 0.1884E+00, 0.1896E+00, 0.1908E+00, 0.1920E+00,& - 0.1932E+00, 0.1945E+00, 0.1957E+00, 0.1970E+00,& - 0.1982E+00, 0.1994E+00, 0.2007E+00, 0.2020E+00,& - 0.2032E+00, 0.2045E+00, 0.2058E+00, 0.2071E+00,& - 0.2083E+00, 0.2096E+00, 0.2109E+00, 0.2122E+00,& - 0.2135E+00, 0.2148E+00, 0.2162E+00, 0.2175E+00,& - 0.2188E+00, 0.2201E+00, 0.2215E+00, 0.2228E+00,& - 0.2242E+00, 0.2255E+00, 0.2269E+00, 0.2282E+00,& - 0.2296E+00, 0.2310E+00, 0.2323E+00, 0.2337E+00,& - 0.2351E+00, 0.2365E+00, 0.2379E+00, 0.2393E+00,& - 0.2407E+00, 0.2421E+00, 0.2435E+00, 0.2450E+00,& - 0.2464E+00, 0.2478E+00, 0.2493E+00, 0.2507E+00,& - 0.2522E+00, 0.2536E+00, 0.2551E+00, 0.2565E+00,& - 0.2580E+00, 0.2595E+00, 0.2610E+00, 0.2625E+00,& - 0.2640E+00, 0.2655E+00, 0.2670E+00, 0.2685E+00,& - 0.2700E+00, 0.2715E+00, 0.2730E+00, 0.2746E+00,& - 0.2761E+00, 0.2776E+00, 0.2792E+00, 0.2808E+00,& - 0.2823E+00, 0.2839E+00, 0.2855E+00, 0.2870E+00,& - 0.2886E+00, 0.2902E+00, 0.2918E+00, 0.2934E+00,& - 0.2950E+00, 0.2966E+00, 0.2983E+00, 0.2999E+00,& - 0.3015E+00, 0.3031E+00, 0.3048E+00, 0.3064E+00,& - 0.3081E+00, 0.3097E+00, 0.3114E+00, 0.3131E+00,& - 0.3148E+00, 0.3165E+00, 0.3181E+00, 0.3198E+00,& - 0.3215E+00, 0.3232E+00, 0.3250E+00, 0.3267E+00,& - 0.3284E+00, 0.3301E+00, 0.3319E+00, 0.3336E+00,& - 0.3354E+00, 0.3371E+00, 0.3389E+00, 0.3407E+00,& - 0.3425E+00, 0.3442E+00, 0.3460E+00, 0.3478E+00,& - 0.3496E+00, 0.3514E+00, 0.3533E+00, 0.3551E+00,& - 0.3569E+00, 0.3587E+00, 0.3606E+00, 0.3624E+00,& - 0.3643E+00, 0.3662E+00, 0.3680E+00, 0.3699E+00,& - 0.3718E+00, 0.3737E+00, 0.3756E+00, 0.3775E+00,& - 0.3794E+00, 0.3813E+00, 0.3832E+00, 0.3852E+00,& - 0.3871E+00, 0.3890E+00, 0.3910E+00, 0.3929E+00,& - 0.3949E+00, 0.3969E+00, 0.3989E+00, 0.4008E+00,& - 0.4028E+00, 0.4048E+00, 0.4068E+00, 0.4088E+00,& - 0.4109E+00, 0.4129E+00, 0.4149E+00, 0.4170E+00,& - 0.4190E+00, 0.4211E+00, 0.4231E+00, 0.4252E+00,& - 0.4273E+00, 0.4294E+00, 0.4315E+00, 0.4336E+00,& - 0.4357E+00, 0.4378E+00, 0.4399E+00, 0.4421E+00,& - 0.4442E+00, 0.4463E+00, 0.4485E+00, 0.4506E+00,& - 0.4528E+00, 0.4550E+00, 0.4572E+00, 0.4594E+00,& - 0.4616E+00, 0.4638E+00, 0.4660E+00, 0.4682E+00,& - 0.4705E+00, 0.4727E+00, 0.4749E+00, 0.4772E+00,& - 0.4795E+00, 0.4817E+00, 0.4840E+00, 0.4863E+00,& - 0.4886E+00, 0.4909E+00, 0.4932E+00, 0.4955E+00,& - 0.4979E+00, 0.5002E+00, 0.5025E+00, 0.5049E+00,& - 0.5073E+00, 0.5096E+00, 0.5120E+00, 0.5144E+00,& - 0.5168E+00, 0.5192E+00, 0.5216E+00, 0.5240E+00,& - 0.5265E+00, 0.5289E+00, 0.5314E+00, 0.5338E+00,& - 0.5363E+00, 0.5388E+00, 0.5412E+00, 0.5437E+00,& - 0.5462E+00, 0.5487E+00, 0.5513E+00, 0.5538E+00,& - 0.5563E+00, 0.5589E+00, 0.5614E+00, 0.5640E+00,& - 0.5666E+00, 0.5692E+00, 0.5718E+00, 0.5744E+00,& - 0.5770E+00, 0.5796E+00, 0.5822E+00, 0.5849E+00,& - 0.5875E+00, 0.5902E+00, 0.5929E+00, 0.5955E+00,& - 0.5982E+00, 0.6009E+00, 0.6036E+00, 0.6064E+00,& - 0.6091E+00, 0.6118E+00, 0.6146E+00, 0.6173E+00,& - 0.6201E+00, 0.6229E+00, 0.6257E+00, 0.6285E+00,& - 0.6313E+00, 0.6341E+00, 0.6369E+00, 0.6398E+00,& - 0.6426E+00, 0.6455E+00, 0.6484E+00, 0.6513E+00,& - 0.6541E+00, 0.6570E+00, 0.6600E+00, 0.6629E+00,& - 0.6658E+00, 0.6688E+00, 0.6717E+00, 0.6747E+00,& - 0.6777E+00, 0.6807E+00, 0.6837E+00, 0.6867E+00,& - 0.6897E+00, 0.6928E+00, 0.6958E+00, 0.6989E+00,& - 0.7019E+00, 0.7050E+00, 0.7081E+00, 0.7112E+00,& - 0.7144E+00, 0.7175E+00, 0.7206E+00, 0.7238E+00,& - 0.7270E+00, 0.7301E+00, 0.7333E+00, 0.7365E+00,& - 0.7397E+00, 0.7430E+00, 0.7462E+00, 0.7495E+00,& - 0.7527E+00, 0.7560E+00, 0.7593E+00, 0.7626E+00,& - 0.7659E+00, 0.7692E+00, 0.7726E+00, 0.7759E+00,& - 0.7793E+00, 0.7827E+00, 0.7861E+00, 0.7895E+00,& - 0.7929E+00, 0.7963E+00, 0.7998E+00, 0.8033E+00,& - 0.8067E+00, 0.8102E+00, 0.8137E+00, 0.8172E+00,& - 0.8208E+00, 0.8243E+00, 0.8279E+00, 0.8314E+00,& - 0.8350E+00, 0.8386E+00, 0.8422E+00, 0.8459E+00,& - 0.8495E+00, 0.8532E+00, 0.8568E+00, 0.8605E+00,& - 0.8642E+00, 0.8679E+00, 0.8717E+00, 0.8754E+00,& - 0.8792E+00, 0.8830E+00, 0.8867E+00, 0.8906E+00,& - 0.8944E+00, 0.8982E+00, 0.9021E+00, 0.9059E+00,& - 0.9098E+00, 0.9137E+00, 0.9176E+00, 0.9216E+00,& - 0.9255E+00, 0.9295E+00, 0.9335E+00, 0.9375E+00,& - 0.9415E+00, 0.9455E+00, 0.9496E+00, 0.9536E+00,& - 0.9577E+00, 0.9618E+00, 0.9659E+00, 0.9701E+00,& - 0.9742E+00, 0.9784E+00, 0.9826E+00, 0.9868E+00,& - 0.9910E+00, 0.9953E+00, 0.9995E+00, 0.1004E+01,& - 0.1008E+01, 0.1012E+01, 0.1017E+01, 0.1021E+01,& - 0.1025E+01, 0.1030E+01, 0.1034E+01, 0.1039E+01,& - 0.1043E+01, 0.1048E+01, 0.1052E+01, 0.1057E+01,& - 0.1061E+01, 0.1066E+01, 0.1070E+01, 0.1075E+01,& - 0.1079E+01, 0.1084E+01, 0.1089E+01, 0.1093E+01,& - 0.1098E+01, 0.1103E+01, 0.1108E+01, 0.1112E+01,& - 0.1117E+01, 0.1122E+01, 0.1127E+01, 0.1131E+01,& - 0.1136E+01, 0.1141E+01, 0.1146E+01, 0.1151E+01,& - 0.1156E+01, 0.1161E+01, 0.1166E+01, 0.1171E+01,& - 0.1176E+01, 0.1181E+01, 0.1186E+01, 0.1191E+01,& - 0.1196E+01, 0.1202E+01, 0.1207E+01, 0.1212E+01,& - 0.1217E+01, 0.1223E+01, 0.1228E+01, 0.1233E+01,& - 0.1238E+01, 0.1244E+01, 0.1249E+01, 0.1255E+01,& - 0.1260E+01, 0.1266E+01, 0.1271E+01, 0.1277E+01,& - 0.1282E+01, 0.1288E+01, 0.1293E+01, 0.1299E+01,& - 0.1305E+01, 0.1310E+01, 0.1316E+01, 0.1322E+01,& - 0.1328E+01, 0.1333E+01, 0.1339E+01, 0.1345E+01,& - 0.1351E+01, 0.1357E+01, 0.1363E+01, 0.1369E+01,& - 0.1375E+01, 0.1381E+01, 0.1387E+01, 0.1393E+01,& - 0.1399E+01, 0.1405E+01, 0.1412E+01, 0.1418E+01,& - 0.1424E+01, 0.1430E+01, 0.1437E+01, 0.1443E+01,& - 0.1450E+01, 0.1456E+01, 0.1462E+01, 0.1469E+01,& - 0.1475E+01, 0.1482E+01, 0.1489E+01, 0.1495E+01,& - 0.1502E+01, 0.1509E+01, 0.1516E+01, 0.1522E+01,& - 0.1529E+01, 0.1536E+01, 0.1543E+01, 0.1550E+01,& - 0.1557E+01, 0.1564E+01, 0.1571E+01, 0.1578E+01,& - 0.1585E+01, 0.1593E+01, 0.1600E+01, 0.1607E+01,& - 0.1614E+01, 0.1622E+01, 0.1629E+01, 0.1637E+01,& - 0.1644E+01, 0.1652E+01, 0.1659E+01, 0.1667E+01,& - 0.1675E+01, 0.1682E+01, 0.1690E+01, 0.1698E+01,& - 0.1706E+01, 0.1714E+01, 0.1722E+01, 0.1730E+01,& - 0.1738E+01, 0.1746E+01, 0.1754E+01, 0.1763E+01,& - 0.1771E+01, 0.1779E+01, 0.1788E+01, 0.1796E+01,& - 0.1804E+01, 0.1813E+01, 0.1822E+01, 0.1830E+01,& - 0.1839E+01, 0.1848E+01, 0.1857E+01, 0.1866E+01,& - 0.1875E+01, 0.1884E+01, 0.1893E+01, 0.1902E+01,& - 0.1911E+01, 0.1920E+01, 0.1930E+01, 0.1939E+01,& - 0.1949E+01, 0.1958E+01, 0.1968E+01, 0.1977E+01,& - 0.1987E+01, 0.1997E+01, 0.2007E+01, 0.2017E+01,& - 0.2027E+01, 0.2037E+01, 0.2047E+01, 0.2058E+01,& - 0.2068E+01, 0.2078E+01, 0.2089E+01, 0.2099E+01,& - 0.2110E+01, 0.2121E+01, 0.2132E+01, 0.2143E+01,& - 0.2154E+01, 0.2165E+01, 0.2176E+01, 0.2187E+01,& - 0.2199E+01, 0.2210E+01, 0.2222E+01, 0.2233E+01,& - 0.2245E+01, 0.2257E+01, 0.2269E+01, 0.2281E+01,& - 0.2293E+01, 0.2305E+01, 0.2318E+01, 0.2330E+01,& - 0.2343E+01, 0.2355E+01, 0.2368E+01, 0.2381E+01,& - 0.2394E+01, 0.2407E+01, 0.2421E+01, 0.2434E+01,& - 0.2448E+01, 0.2461E+01, 0.2475E+01, 0.2489E+01,& - 0.2503E+01, 0.2517E+01, 0.2531E+01, 0.2546E+01,& - 0.2561E+01, 0.2575E+01, 0.2590E+01, 0.2605E+01,& - 0.2621E+01, 0.2636E+01, 0.2651E+01, 0.2667E+01,& - 0.2683E+01, 0.2699E+01, 0.2715E+01, 0.2732E+01,& - 0.2748E+01, 0.2765E+01, 0.2782E+01, 0.2799E+01,& - 0.2816E+01, 0.2834E+01, 0.2852E+01, 0.2870E+01,& - 0.2888E+01, 0.2906E+01, 0.2925E+01, 0.2944E+01,& - 0.2963E+01, 0.2982E+01, 0.3002E+01, 0.3021E+01,& - 0.3042E+01, 0.3062E+01, 0.3083E+01, 0.3103E+01,& - 0.3125E+01, 0.3146E+01, 0.3168E+01, 0.3190E+01,& - 0.3212E+01, 0.3235E+01, 0.3258E+01, 0.3281E+01,& - 0.3305E+01, 0.3329E+01, 0.3354E+01, 0.3379E+01,& - 0.3404E+01, 0.3430E+01, 0.3456E+01, 0.3482E+01,& - 0.3509E+01, 0.3537E+01, 0.3565E+01, 0.3593E+01,& - 0.3622E+01, 0.3651E+01, 0.3681E+01, 0.3712E+01,& - 0.3743E+01, 0.3775E+01, 0.3807E+01, 0.3840E+01,& - 0.3874E+01, 0.3909E+01, 0.3944E+01, 0.3980E+01,& - 0.4016E+01, 0.4054E+01, 0.4093E+01, 0.4132E+01,& - 0.4172E+01, 0.4214E+01, 0.4256E+01, 0.4300E+01,& - 0.4344E+01, 0.4390E+01, 0.4437E+01, 0.4486E+01,& - 0.4536E+01, 0.4587E+01, 0.4640E+01, 0.4695E+01,& - 0.4752E+01, 0.4810E+01, 0.4871E+01, 0.4934E+01,& - 0.4999E+01, 0.5067E+01, 0.5138E+01, 0.5211E+01,& - 0.5288E+01, 0.5369E+01, 0.5453E+01, 0.5542E+01,& - 0.5635E+01, 0.5734E+01, 0.5838E+01, 0.5949E+01,& - 0.6068E+01, 0.6194E+01, 0.6331E+01, 0.6479E+01,& - 0.6640E+01, 0.6817E+01, 0.7013E+01, 0.7233E+01,& - 0.7483E+01, 0.7772E+01, 0.8116E+01, 0.8538E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 56) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2514E-04,& - 0.4029E-04, 0.5543E-04, 0.7057E-04, 0.8571E-04,& - 0.1009E-03, 0.1311E-03, 0.1463E-03, 0.1766E-03,& - 0.2069E-03, 0.2220E-03, 0.2674E-03, 0.2977E-03,& - 0.3280E-03, 0.3734E-03, 0.4037E-03, 0.4491E-03,& - 0.4946E-03, 0.5400E-03, 0.5854E-03, 0.6460E-03,& - 0.6914E-03, 0.7520E-03, 0.8126E-03, 0.8731E-03,& - 0.9337E-03, 0.9943E-03, 0.1055E-02, 0.1131E-02,& - 0.1206E-02, 0.1282E-02, 0.1358E-02, 0.1433E-02,& - 0.1509E-02, 0.1600E-02, 0.1691E-02, 0.1782E-02,& - 0.1873E-02, 0.1963E-02, 0.2054E-02, 0.2160E-02,& - 0.2251E-02, 0.2357E-02, 0.2463E-02, 0.2569E-02,& - 0.2690E-02, 0.2796E-02, 0.2917E-02, 0.3039E-02,& - 0.3160E-02, 0.3281E-02, 0.3417E-02, 0.3538E-02,& - 0.3674E-02, 0.3811E-02, 0.3947E-02, 0.4083E-02,& - 0.4235E-02, 0.4371E-02, 0.4522E-02, 0.4674E-02,& - 0.4825E-02, 0.4977E-02, 0.5143E-02, 0.5310E-02,& - 0.5461E-02, 0.5643E-02, 0.5810E-02, 0.5976E-02,& - 0.6158E-02, 0.6324E-02, 0.6506E-02, 0.6703E-02,& - 0.6885E-02, 0.7066E-02, 0.7263E-02, 0.7460E-02,& - 0.7657E-02, 0.7854E-02, 0.8066E-02, 0.8263E-02,& - 0.8475E-02, 0.8687E-02, 0.8899E-02, 0.9111E-02,& - 0.9338E-02, 0.9565E-02, 0.9792E-02, 0.1002E-01,& - 0.1025E-01, 0.1049E-01, 0.1072E-01, 0.1096E-01,& - 0.1120E-01, 0.1144E-01, 0.1170E-01, 0.1196E-01,& - 0.1220E-01, 0.1246E-01, 0.1273E-01, 0.1299E-01,& - 0.1326E-01, 0.1353E-01, 0.1380E-01, 0.1408E-01,& - 0.1435E-01, 0.1464E-01, 0.1493E-01, 0.1521E-01,& - 0.1550E-01, 0.1579E-01, 0.1609E-01, 0.1639E-01,& - 0.1670E-01, 0.1700E-01, 0.1730E-01, 0.1762E-01,& - 0.1794E-01, 0.1826E-01, 0.1857E-01, 0.1889E-01,& - 0.1923E-01, 0.1956E-01, 0.1989E-01, 0.2023E-01,& - 0.2056E-01, 0.2091E-01, 0.2125E-01, 0.2160E-01,& - 0.2195E-01, 0.2231E-01, 0.2266E-01, 0.2303E-01,& - 0.2339E-01, 0.2377E-01, 0.2413E-01, 0.2451E-01,& - 0.2489E-01, 0.2527E-01, 0.2565E-01, 0.2604E-01,& - 0.2642E-01, 0.2681E-01, 0.2722E-01, 0.2761E-01,& - 0.2802E-01, 0.2843E-01, 0.2884E-01, 0.2925E-01,& - 0.2966E-01, 0.3008E-01, 0.3051E-01, 0.3093E-01,& - 0.3136E-01, 0.3179E-01, 0.3223E-01, 0.3267E-01,& - 0.3311E-01, 0.3355E-01, 0.3401E-01, 0.3446E-01,& - 0.3491E-01, 0.3537E-01, 0.3584E-01, 0.3629E-01,& - 0.3676E-01, 0.3725E-01, 0.3771E-01, 0.3820E-01,& - 0.3868E-01, 0.3917E-01, 0.3965E-01, 0.4014E-01,& - 0.4064E-01, 0.4114E-01, 0.4164E-01, 0.4215E-01,& - 0.4265E-01, 0.4317E-01, 0.4368E-01, 0.4421E-01,& - 0.4473E-01, 0.4526E-01, 0.4579E-01, 0.4632E-01,& - 0.4686E-01, 0.4741E-01, 0.4795E-01, 0.4850E-01,& - 0.4904E-01, 0.4960E-01, 0.5016E-01, 0.5072E-01,& - 0.5128E-01, 0.5186E-01, 0.5242E-01, 0.5299E-01,& - 0.5358E-01, 0.5416E-01, 0.5475E-01, 0.5534E-01,& - 0.5593E-01, 0.5654E-01, 0.5713E-01, 0.5773E-01,& - 0.5834E-01, 0.5896E-01, 0.5957E-01, 0.6019E-01,& - 0.6081E-01, 0.6144E-01, 0.6206E-01, 0.6270E-01,& - 0.6334E-01, 0.6399E-01, 0.6462E-01, 0.6527E-01,& - 0.6593E-01, 0.6658E-01, 0.6724E-01, 0.6791E-01,& - 0.6858E-01, 0.6924E-01, 0.6992E-01, 0.7059E-01,& - 0.7127E-01, 0.7197E-01, 0.7265E-01, 0.7335E-01,& - 0.7404E-01, 0.7474E-01, 0.7545E-01, 0.7615E-01,& - 0.7681E-01, 0.7759E-01, 0.7830E-01, 0.7902E-01,& - 0.7975E-01, 0.8048E-01, 0.8122E-01, 0.8196E-01,& - 0.8270E-01, 0.8345E-01, 0.8420E-01, 0.8496E-01,& - 0.8572E-01, 0.8647E-01, 0.8725E-01, 0.8800E-01,& - 0.8879E-01, 0.8956E-01, 0.9035E-01, 0.9112E-01,& - 0.9193E-01, 0.9271E-01, 0.9352E-01, 0.9432E-01,& - 0.9512E-01, 0.9592E-01, 0.9674E-01, 0.9756E-01,& - 0.9838E-01, 0.9921E-01, 0.1000E+00, 0.1009E+00,& - 0.1017E+00, 0.1026E+00, 0.1034E+00, 0.1043E+00,& - 0.1051E+00, 0.1060E+00, 0.1068E+00, 0.1077E+00,& - 0.1086E+00, 0.1094E+00, 0.1103E+00, 0.1112E+00,& - 0.1121E+00, 0.1130E+00, 0.1139E+00, 0.1148E+00,& - 0.1157E+00, 0.1166E+00, 0.1175E+00, 0.1184E+00,& - 0.1193E+00, 0.1203E+00, 0.1212E+00, 0.1221E+00,& - 0.1231E+00, 0.1240E+00, 0.1250E+00, 0.1259E+00,& - 0.1269E+00, 0.1278E+00, 0.1288E+00, 0.1298E+00,& - 0.1307E+00, 0.1317E+00, 0.1327E+00, 0.1337E+00,& - 0.1347E+00, 0.1357E+00, 0.1367E+00, 0.1377E+00,& - 0.1387E+00, 0.1397E+00, 0.1407E+00, 0.1417E+00,& - 0.1427E+00, 0.1438E+00, 0.1448E+00, 0.1458E+00,& - 0.1469E+00, 0.1480E+00, 0.1490E+00, 0.1501E+00,& - 0.1511E+00, 0.1522E+00, 0.1533E+00, 0.1543E+00,& - 0.1554E+00, 0.1565E+00, 0.1576E+00, 0.1587E+00,& - 0.1598E+00, 0.1609E+00, 0.1620E+00, 0.1631E+00,& - 0.1642E+00, 0.1654E+00, 0.1665E+00, 0.1676E+00,& - 0.1687E+00, 0.1699E+00, 0.1710E+00, 0.1722E+00,& - 0.1733E+00, 0.1745E+00, 0.1757E+00, 0.1768E+00,& - 0.1780E+00, 0.1792E+00, 0.1804E+00, 0.1816E+00,& - 0.1828E+00, 0.1840E+00, 0.1852E+00, 0.1864E+00,& - 0.1876E+00, 0.1888E+00, 0.1900E+00, 0.1913E+00,& - 0.1925E+00, 0.1937E+00, 0.1950E+00, 0.1962E+00,& - 0.1975E+00, 0.1987E+00, 0.2000E+00, 0.2013E+00,& - 0.2025E+00, 0.2038E+00, 0.2051E+00, 0.2064E+00,& - 0.2077E+00, 0.2090E+00, 0.2103E+00, 0.2116E+00,& - 0.2129E+00, 0.2142E+00, 0.2156E+00, 0.2169E+00,& - 0.2182E+00, 0.2196E+00, 0.2209E+00, 0.2223E+00,& - 0.2236E+00, 0.2250E+00, 0.2264E+00, 0.2277E+00,& - 0.2291E+00, 0.2305E+00, 0.2319E+00, 0.2333E+00,& - 0.2347E+00, 0.2361E+00, 0.2375E+00, 0.2389E+00,& - 0.2403E+00, 0.2418E+00, 0.2432E+00, 0.2446E+00,& - 0.2461E+00, 0.2475E+00, 0.2490E+00, 0.2505E+00,& - 0.2519E+00, 0.2534E+00, 0.2549E+00, 0.2564E+00,& - 0.2578E+00, 0.2593E+00, 0.2608E+00, 0.2624E+00,& - 0.2639E+00, 0.2654E+00, 0.2669E+00, 0.2684E+00,& - 0.2700E+00, 0.2715E+00, 0.2731E+00, 0.2746E+00,& - 0.2762E+00, 0.2777E+00, 0.2793E+00, 0.2809E+00,& - 0.2825E+00, 0.2841E+00, 0.2856E+00, 0.2872E+00,& - 0.2889E+00, 0.2905E+00, 0.2921E+00, 0.2937E+00,& - 0.2953E+00, 0.2970E+00, 0.2986E+00, 0.3003E+00,& - 0.3019E+00, 0.3036E+00, 0.3053E+00, 0.3069E+00,& - 0.3086E+00, 0.3103E+00, 0.3120E+00, 0.3137E+00,& - 0.3154E+00, 0.3171E+00, 0.3188E+00, 0.3205E+00,& - 0.3223E+00, 0.3240E+00, 0.3258E+00, 0.3275E+00,& - 0.3293E+00, 0.3310E+00, 0.3328E+00, 0.3346E+00,& - 0.3363E+00, 0.3381E+00, 0.3399E+00, 0.3417E+00,& - 0.3435E+00, 0.3454E+00, 0.3472E+00, 0.3490E+00,& - 0.3508E+00, 0.3527E+00, 0.3545E+00, 0.3564E+00,& - 0.3583E+00, 0.3601E+00, 0.3620E+00, 0.3639E+00,& - 0.3658E+00, 0.3677E+00, 0.3696E+00, 0.3715E+00,& - 0.3734E+00, 0.3753E+00, 0.3773E+00, 0.3792E+00,& - 0.3812E+00, 0.3831E+00, 0.3851E+00, 0.3870E+00,& - 0.3890E+00, 0.3910E+00, 0.3930E+00, 0.3950E+00,& - 0.3970E+00, 0.3990E+00, 0.4010E+00, 0.4031E+00,& - 0.4051E+00, 0.4071E+00, 0.4092E+00, 0.4112E+00,& - 0.4133E+00, 0.4154E+00, 0.4175E+00, 0.4195E+00,& - 0.4216E+00, 0.4237E+00, 0.4258E+00, 0.4280E+00,& - 0.4301E+00, 0.4322E+00, 0.4344E+00, 0.4365E+00,& - 0.4387E+00, 0.4408E+00, 0.4430E+00, 0.4452E+00,& - 0.4474E+00, 0.4496E+00, 0.4518E+00, 0.4540E+00,& - 0.4562E+00, 0.4584E+00, 0.4607E+00, 0.4629E+00,& - 0.4652E+00, 0.4674E+00, 0.4697E+00, 0.4720E+00,& - 0.4743E+00, 0.4766E+00, 0.4789E+00, 0.4812E+00,& - 0.4835E+00, 0.4858E+00, 0.4882E+00, 0.4905E+00,& - 0.4929E+00, 0.4952E+00, 0.4976E+00, 0.5000E+00,& - 0.5024E+00, 0.5048E+00, 0.5072E+00, 0.5096E+00,& - 0.5120E+00, 0.5145E+00, 0.5169E+00, 0.5194E+00,& - 0.5218E+00, 0.5243E+00, 0.5268E+00, 0.5293E+00,& - 0.5318E+00, 0.5343E+00, 0.5368E+00, 0.5393E+00,& - 0.5418E+00, 0.5444E+00, 0.5469E+00, 0.5495E+00,& - 0.5521E+00, 0.5547E+00, 0.5573E+00, 0.5598E+00,& - 0.5625E+00, 0.5651E+00, 0.5677E+00, 0.5704E+00,& - 0.5730E+00, 0.5757E+00, 0.5783E+00, 0.5810E+00,& - 0.5837E+00, 0.5864E+00, 0.5891E+00, 0.5918E+00,& - 0.5946E+00, 0.5973E+00, 0.6001E+00, 0.6028E+00,& - 0.6056E+00, 0.6084E+00, 0.6112E+00, 0.6140E+00,& - 0.6168E+00, 0.6196E+00, 0.6224E+00, 0.6253E+00,& - 0.6282E+00, 0.6310E+00, 0.6339E+00, 0.6368E+00,& - 0.6397E+00, 0.6426E+00, 0.6455E+00, 0.6485E+00,& - 0.6514E+00, 0.6543E+00, 0.6573E+00, 0.6603E+00,& - 0.6633E+00, 0.6663E+00, 0.6693E+00, 0.6723E+00,& - 0.6754E+00, 0.6784E+00, 0.6815E+00, 0.6845E+00,& - 0.6876E+00, 0.6907E+00, 0.6938E+00, 0.6969E+00,& - 0.7001E+00, 0.7032E+00, 0.7064E+00, 0.7095E+00,& - 0.7127E+00, 0.7159E+00, 0.7191E+00, 0.7223E+00,& - 0.7256E+00, 0.7288E+00, 0.7321E+00, 0.7353E+00,& - 0.7386E+00, 0.7419E+00, 0.7452E+00, 0.7485E+00,& - 0.7519E+00, 0.7552E+00, 0.7586E+00, 0.7619E+00,& - 0.7653E+00, 0.7687E+00, 0.7721E+00, 0.7756E+00,& - 0.7790E+00, 0.7825E+00, 0.7859E+00, 0.7894E+00,& - 0.7929E+00, 0.7964E+00, 0.7999E+00, 0.8035E+00,& - 0.8070E+00, 0.8106E+00, 0.8141E+00, 0.8178E+00,& - 0.8214E+00, 0.8250E+00, 0.8286E+00, 0.8323E+00,& - 0.8359E+00, 0.8396E+00, 0.8433E+00, 0.8470E+00,& - 0.8508E+00, 0.8545E+00, 0.8583E+00, 0.8620E+00,& - 0.8658E+00, 0.8696E+00, 0.8734E+00, 0.8773E+00,& - 0.8811E+00, 0.8850E+00, 0.8889E+00, 0.8928E+00,& - 0.8967E+00, 0.9006E+00, 0.9046E+00, 0.9086E+00,& - 0.9125E+00, 0.9165E+00, 0.9206E+00, 0.9246E+00,& - 0.9286E+00, 0.9327E+00, 0.9368E+00, 0.9409E+00,& - 0.9450E+00, 0.9491E+00, 0.9533E+00, 0.9575E+00,& - 0.9617E+00, 0.9659E+00, 0.9701E+00, 0.9744E+00,& - 0.9786E+00, 0.9829E+00, 0.9872E+00, 0.9915E+00,& - 0.9959E+00, 0.1000E+01, 0.1005E+01, 0.1009E+01,& - 0.1013E+01, 0.1018E+01, 0.1022E+01, 0.1027E+01,& - 0.1031E+01, 0.1036E+01, 0.1040E+01, 0.1045E+01,& - 0.1049E+01, 0.1054E+01, 0.1059E+01, 0.1063E+01,& - 0.1068E+01, 0.1073E+01, 0.1077E+01, 0.1082E+01,& - 0.1087E+01, 0.1092E+01, 0.1096E+01, 0.1101E+01,& - 0.1106E+01, 0.1111E+01, 0.1116E+01, 0.1121E+01,& - 0.1125E+01, 0.1130E+01, 0.1135E+01, 0.1140E+01,& - 0.1145E+01, 0.1150E+01, 0.1155E+01, 0.1161E+01,& - 0.1166E+01, 0.1171E+01, 0.1176E+01, 0.1181E+01,& - 0.1186E+01, 0.1192E+01, 0.1197E+01, 0.1202E+01,& - 0.1207E+01, 0.1213E+01, 0.1218E+01, 0.1223E+01,& - 0.1229E+01, 0.1234E+01, 0.1240E+01, 0.1245E+01,& - 0.1251E+01, 0.1256E+01, 0.1262E+01, 0.1267E+01,& - 0.1273E+01, 0.1279E+01, 0.1284E+01, 0.1290E+01,& - 0.1296E+01, 0.1302E+01, 0.1307E+01, 0.1313E+01,& - 0.1319E+01, 0.1325E+01, 0.1331E+01, 0.1337E+01,& - 0.1343E+01, 0.1349E+01, 0.1355E+01, 0.1361E+01,& - 0.1367E+01, 0.1373E+01, 0.1379E+01, 0.1386E+01,& - 0.1392E+01, 0.1398E+01, 0.1404E+01, 0.1411E+01,& - 0.1417E+01, 0.1424E+01, 0.1430E+01, 0.1436E+01,& - 0.1443E+01, 0.1449E+01, 0.1456E+01, 0.1463E+01,& - 0.1469E+01, 0.1476E+01, 0.1483E+01, 0.1489E+01,& - 0.1496E+01, 0.1503E+01, 0.1510E+01, 0.1517E+01,& - 0.1524E+01, 0.1531E+01, 0.1538E+01, 0.1545E+01,& - 0.1552E+01, 0.1559E+01, 0.1566E+01, 0.1574E+01,& - 0.1581E+01, 0.1588E+01, 0.1596E+01, 0.1603E+01,& - 0.1610E+01, 0.1618E+01, 0.1626E+01, 0.1633E+01,& - 0.1641E+01, 0.1648E+01, 0.1656E+01, 0.1664E+01,& - 0.1672E+01, 0.1680E+01, 0.1688E+01, 0.1696E+01,& - 0.1704E+01, 0.1712E+01, 0.1720E+01, 0.1728E+01,& - 0.1736E+01, 0.1744E+01, 0.1753E+01, 0.1761E+01,& - 0.1770E+01, 0.1778E+01, 0.1787E+01, 0.1795E+01,& - 0.1804E+01, 0.1813E+01, 0.1821E+01, 0.1830E+01,& - 0.1839E+01, 0.1848E+01, 0.1857E+01, 0.1866E+01,& - 0.1875E+01, 0.1884E+01, 0.1894E+01, 0.1903E+01,& - 0.1912E+01, 0.1922E+01, 0.1931E+01, 0.1941E+01,& - 0.1951E+01, 0.1960E+01, 0.1970E+01, 0.1980E+01,& - 0.1990E+01, 0.2000E+01, 0.2010E+01, 0.2020E+01,& - 0.2031E+01, 0.2041E+01, 0.2051E+01, 0.2062E+01,& - 0.2072E+01, 0.2083E+01, 0.2094E+01, 0.2104E+01,& - 0.2115E+01, 0.2126E+01, 0.2137E+01, 0.2149E+01,& - 0.2160E+01, 0.2171E+01, 0.2183E+01, 0.2194E+01,& - 0.2206E+01, 0.2217E+01, 0.2229E+01, 0.2241E+01,& - 0.2253E+01, 0.2265E+01, 0.2277E+01, 0.2290E+01,& - 0.2302E+01, 0.2315E+01, 0.2327E+01, 0.2340E+01,& - 0.2353E+01, 0.2366E+01, 0.2379E+01, 0.2392E+01,& - 0.2405E+01, 0.2419E+01, 0.2432E+01, 0.2446E+01,& - 0.2460E+01, 0.2474E+01, 0.2488E+01, 0.2502E+01,& - 0.2516E+01, 0.2531E+01, 0.2546E+01, 0.2560E+01,& - 0.2575E+01, 0.2590E+01, 0.2606E+01, 0.2621E+01,& - 0.2637E+01, 0.2652E+01, 0.2668E+01, 0.2684E+01,& - 0.2701E+01, 0.2717E+01, 0.2734E+01, 0.2750E+01,& - 0.2767E+01, 0.2784E+01, 0.2802E+01, 0.2819E+01,& - 0.2837E+01, 0.2855E+01, 0.2873E+01, 0.2892E+01,& - 0.2910E+01, 0.2929E+01, 0.2948E+01, 0.2967E+01,& - 0.2987E+01, 0.3007E+01, 0.3027E+01, 0.3047E+01,& - 0.3067E+01, 0.3088E+01, 0.3109E+01, 0.3131E+01,& - 0.3152E+01, 0.3174E+01, 0.3197E+01, 0.3219E+01,& - 0.3242E+01, 0.3266E+01, 0.3289E+01, 0.3313E+01,& - 0.3337E+01, 0.3362E+01, 0.3387E+01, 0.3413E+01,& - 0.3439E+01, 0.3465E+01, 0.3492E+01, 0.3519E+01,& - 0.3547E+01, 0.3575E+01, 0.3603E+01, 0.3632E+01,& - 0.3662E+01, 0.3692E+01, 0.3723E+01, 0.3754E+01,& - 0.3786E+01, 0.3819E+01, 0.3852E+01, 0.3886E+01,& - 0.3921E+01, 0.3956E+01, 0.3992E+01, 0.4029E+01,& - 0.4067E+01, 0.4105E+01, 0.4145E+01, 0.4185E+01,& - 0.4227E+01, 0.4269E+01, 0.4313E+01, 0.4357E+01,& - 0.4403E+01, 0.4450E+01, 0.4499E+01, 0.4549E+01,& - 0.4600E+01, 0.4653E+01, 0.4707E+01, 0.4764E+01,& - 0.4822E+01, 0.4882E+01, 0.4944E+01, 0.5009E+01,& - 0.5076E+01, 0.5146E+01, 0.5219E+01, 0.5294E+01,& - 0.5373E+01, 0.5456E+01, 0.5543E+01, 0.5634E+01,& - 0.5730E+01, 0.5831E+01, 0.5939E+01, 0.6053E+01,& - 0.6175E+01, 0.6305E+01, 0.6446E+01, 0.6598E+01,& - 0.6764E+01, 0.6946E+01, 0.7148E+01, 0.7374E+01,& - 0.7631E+01, 0.7930E+01, 0.8284E+01, 0.8719E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 57) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.2550E-04, 0.4099E-04, 0.4099E-04, 0.5649E-04,& - 0.7199E-04, 0.8749E-04, 0.1030E-03, 0.1340E-03,& - 0.1495E-03, 0.1650E-03, 0.1960E-03, 0.2270E-03,& - 0.2580E-03, 0.2735E-03, 0.3199E-03, 0.3509E-03,& - 0.3819E-03, 0.4129E-03, 0.4594E-03, 0.5059E-03,& - 0.5369E-03, 0.5834E-03, 0.6299E-03, 0.6919E-03,& - 0.7384E-03, 0.7849E-03, 0.8468E-03, 0.9088E-03,& - 0.9553E-03, 0.1017E-02, 0.1079E-02, 0.1157E-02,& - 0.1219E-02, 0.1296E-02, 0.1358E-02, 0.1436E-02,& - 0.1513E-02, 0.1591E-02, 0.1668E-02, 0.1761E-02,& - 0.1839E-02, 0.1932E-02, 0.2025E-02, 0.2118E-02,& - 0.2211E-02, 0.2304E-02, 0.2412E-02, 0.2505E-02,& - 0.2614E-02, 0.2722E-02, 0.2830E-02, 0.2939E-02,& - 0.3047E-02, 0.3171E-02, 0.3295E-02, 0.3404E-02,& - 0.3528E-02, 0.3652E-02, 0.3791E-02, 0.3915E-02,& - 0.4055E-02, 0.4179E-02, 0.4318E-02, 0.4458E-02,& - 0.4613E-02, 0.4752E-02, 0.4907E-02, 0.5047E-02,& - 0.5202E-02, 0.5357E-02, 0.5527E-02, 0.5682E-02,& - 0.5837E-02, 0.6007E-02, 0.6178E-02, 0.6348E-02,& - 0.6519E-02, 0.6705E-02, 0.6875E-02, 0.7061E-02,& - 0.7247E-02, 0.7433E-02, 0.7619E-02, 0.7821E-02,& - 0.8007E-02, 0.8208E-02, 0.8409E-02, 0.8611E-02,& - 0.8828E-02, 0.9029E-02, 0.9246E-02, 0.9448E-02,& - 0.9665E-02, 0.9897E-02, 0.1011E-01, 0.1035E-01,& - 0.1056E-01, 0.1080E-01, 0.1103E-01, 0.1128E-01,& - 0.1151E-01, 0.1176E-01, 0.1199E-01, 0.1224E-01,& - 0.1250E-01, 0.1275E-01, 0.1301E-01, 0.1326E-01,& - 0.1352E-01, 0.1379E-01, 0.1407E-01, 0.1433E-01,& - 0.1461E-01, 0.1489E-01, 0.1517E-01, 0.1545E-01,& - 0.1572E-01, 0.1602E-01, 0.1631E-01, 0.1661E-01,& - 0.1690E-01, 0.1720E-01, 0.1751E-01, 0.1782E-01,& - 0.1811E-01, 0.1844E-01, 0.1875E-01, 0.1906E-01,& - 0.1938E-01, 0.1971E-01, 0.2003E-01, 0.2037E-01,& - 0.2070E-01, 0.2104E-01, 0.2138E-01, 0.2172E-01,& - 0.2206E-01, 0.2242E-01, 0.2276E-01, 0.2312E-01,& - 0.2347E-01, 0.2384E-01, 0.2420E-01, 0.2457E-01,& - 0.2494E-01, 0.2532E-01, 0.2569E-01, 0.2608E-01,& - 0.2645E-01, 0.2684E-01, 0.2724E-01, 0.2763E-01,& - 0.2801E-01, 0.2842E-01, 0.2882E-01, 0.2922E-01,& - 0.2964E-01, 0.3004E-01, 0.3046E-01, 0.3088E-01,& - 0.3130E-01, 0.3173E-01, 0.3215E-01, 0.3259E-01,& - 0.3302E-01, 0.3347E-01, 0.3390E-01, 0.3435E-01,& - 0.3480E-01, 0.3525E-01, 0.3570E-01, 0.3616E-01,& - 0.3661E-01, 0.3708E-01, 0.3756E-01, 0.3802E-01,& - 0.3851E-01, 0.3899E-01, 0.3947E-01, 0.3995E-01,& - 0.4043E-01, 0.4092E-01, 0.4142E-01, 0.4191E-01,& - 0.4243E-01, 0.4292E-01, 0.4343E-01, 0.4394E-01,& - 0.4447E-01, 0.4498E-01, 0.4551E-01, 0.4604E-01,& - 0.4656E-01, 0.4709E-01, 0.4763E-01, 0.4818E-01,& - 0.4872E-01, 0.4926E-01, 0.4982E-01, 0.5038E-01,& - 0.5093E-01, 0.5149E-01, 0.5205E-01, 0.5262E-01,& - 0.5320E-01, 0.5377E-01, 0.5434E-01, 0.5493E-01,& - 0.5552E-01, 0.5611E-01, 0.5670E-01, 0.5730E-01,& - 0.5791E-01, 0.5851E-01, 0.5912E-01, 0.5972E-01,& - 0.6034E-01, 0.6096E-01, 0.6158E-01, 0.6222E-01,& - 0.6284E-01, 0.6347E-01, 0.6412E-01, 0.6476E-01,& - 0.6541E-01, 0.6604E-01, 0.6671E-01, 0.6736E-01,& - 0.6803E-01, 0.6868E-01, 0.6936E-01, 0.7003E-01,& - 0.7071E-01, 0.7137E-01, 0.7206E-01, 0.7275E-01,& - 0.7344E-01, 0.7413E-01, 0.7483E-01, 0.7554E-01,& - 0.7624E-01, 0.7695E-01, 0.7767E-01, 0.7838E-01,& - 0.7911E-01, 0.7984E-01, 0.8056E-01, 0.8129E-01,& - 0.8204E-01, 0.8278E-01, 0.8352E-01, 0.8427E-01,& - 0.8503E-01, 0.8579E-01, 0.8655E-01, 0.8731E-01,& - 0.8808E-01, 0.8886E-01, 0.8963E-01, 0.9041E-01,& - 0.9120E-01, 0.9199E-01, 0.9278E-01, 0.9358E-01,& - 0.9437E-01, 0.9518E-01, 0.9600E-01, 0.9681E-01,& - 0.9763E-01, 0.9845E-01, 0.9927E-01, 0.1001E+00,& - 0.1009E+00, 0.1018E+00, 0.1026E+00, 0.1035E+00,& - 0.1043E+00, 0.1052E+00, 0.1060E+00, 0.1069E+00,& - 0.1078E+00, 0.1086E+00, 0.1095E+00, 0.1104E+00,& - 0.1113E+00, 0.1122E+00, 0.1131E+00, 0.1140E+00,& - 0.1149E+00, 0.1158E+00, 0.1167E+00, 0.1176E+00,& - 0.1185E+00, 0.1194E+00, 0.1204E+00, 0.1213E+00,& - 0.1223E+00, 0.1232E+00, 0.1241E+00, 0.1251E+00,& - 0.1260E+00, 0.1270E+00, 0.1280E+00, 0.1289E+00,& - 0.1299E+00, 0.1309E+00, 0.1319E+00, 0.1329E+00,& - 0.1338E+00, 0.1348E+00, 0.1358E+00, 0.1369E+00,& - 0.1379E+00, 0.1389E+00, 0.1399E+00, 0.1409E+00,& - 0.1419E+00, 0.1430E+00, 0.1440E+00, 0.1450E+00,& - 0.1461E+00, 0.1471E+00, 0.1482E+00, 0.1493E+00,& - 0.1503E+00, 0.1514E+00, 0.1525E+00, 0.1535E+00,& - 0.1546E+00, 0.1557E+00, 0.1568E+00, 0.1579E+00,& - 0.1590E+00, 0.1601E+00, 0.1612E+00, 0.1624E+00,& - 0.1635E+00, 0.1646E+00, 0.1657E+00, 0.1669E+00,& - 0.1680E+00, 0.1692E+00, 0.1703E+00, 0.1715E+00,& - 0.1726E+00, 0.1738E+00, 0.1750E+00, 0.1761E+00,& - 0.1773E+00, 0.1785E+00, 0.1797E+00, 0.1809E+00,& - 0.1821E+00, 0.1833E+00, 0.1845E+00, 0.1857E+00,& - 0.1870E+00, 0.1882E+00, 0.1894E+00, 0.1907E+00,& - 0.1919E+00, 0.1931E+00, 0.1944E+00, 0.1956E+00,& - 0.1969E+00, 0.1982E+00, 0.1995E+00, 0.2007E+00,& - 0.2020E+00, 0.2033E+00, 0.2046E+00, 0.2059E+00,& - 0.2072E+00, 0.2085E+00, 0.2098E+00, 0.2112E+00,& - 0.2125E+00, 0.2138E+00, 0.2152E+00, 0.2165E+00,& - 0.2179E+00, 0.2192E+00, 0.2206E+00, 0.2219E+00,& - 0.2233E+00, 0.2247E+00, 0.2261E+00, 0.2274E+00,& - 0.2288E+00, 0.2302E+00, 0.2316E+00, 0.2331E+00,& - 0.2345E+00, 0.2359E+00, 0.2373E+00, 0.2387E+00,& - 0.2402E+00, 0.2416E+00, 0.2431E+00, 0.2445E+00,& - 0.2460E+00, 0.2475E+00, 0.2489E+00, 0.2504E+00,& - 0.2519E+00, 0.2534E+00, 0.2549E+00, 0.2559E+00,& - 0.2579E+00, 0.2594E+00, 0.2609E+00, 0.2625E+00,& - 0.2640E+00, 0.2655E+00, 0.2671E+00, 0.2686E+00,& - 0.2702E+00, 0.2717E+00, 0.2733E+00, 0.2749E+00,& - 0.2765E+00, 0.2780E+00, 0.2796E+00, 0.2812E+00,& - 0.2828E+00, 0.2845E+00, 0.2861E+00, 0.2877E+00,& - 0.2893E+00, 0.2910E+00, 0.2926E+00, 0.2943E+00,& - 0.2959E+00, 0.2976E+00, 0.2992E+00, 0.3009E+00,& - 0.3026E+00, 0.3043E+00, 0.3060E+00, 0.3077E+00,& - 0.3094E+00, 0.3111E+00, 0.3128E+00, 0.3145E+00,& - 0.3163E+00, 0.3180E+00, 0.3198E+00, 0.3215E+00,& - 0.3233E+00, 0.3250E+00, 0.3268E+00, 0.3286E+00,& - 0.3304E+00, 0.3322E+00, 0.3340E+00, 0.3358E+00,& - 0.3376E+00, 0.3394E+00, 0.3413E+00, 0.3431E+00,& - 0.3449E+00, 0.3468E+00, 0.3486E+00, 0.3505E+00,& - 0.3524E+00, 0.3543E+00, 0.3561E+00, 0.3580E+00,& - 0.3599E+00, 0.3618E+00, 0.3637E+00, 0.3657E+00,& - 0.3676E+00, 0.3695E+00, 0.3715E+00, 0.3734E+00,& - 0.3754E+00, 0.3774E+00, 0.3793E+00, 0.3813E+00,& - 0.3833E+00, 0.3853E+00, 0.3873E+00, 0.3893E+00,& - 0.3913E+00, 0.3933E+00, 0.3954E+00, 0.3974E+00,& - 0.3995E+00, 0.4015E+00, 0.4036E+00, 0.4056E+00,& - 0.4077E+00, 0.4098E+00, 0.4119E+00, 0.4140E+00,& - 0.4161E+00, 0.4182E+00, 0.4204E+00, 0.4225E+00,& - 0.4246E+00, 0.4268E+00, 0.4290E+00, 0.4311E+00,& - 0.4333E+00, 0.4355E+00, 0.4377E+00, 0.4399E+00,& - 0.4421E+00, 0.4443E+00, 0.4465E+00, 0.4487E+00,& - 0.4510E+00, 0.4532E+00, 0.4555E+00, 0.4578E+00,& - 0.4600E+00, 0.4623E+00, 0.4646E+00, 0.4669E+00,& - 0.4692E+00, 0.4716E+00, 0.4739E+00, 0.4762E+00,& - 0.4786E+00, 0.4809E+00, 0.4833E+00, 0.4856E+00,& - 0.4880E+00, 0.4904E+00, 0.4928E+00, 0.4952E+00,& - 0.4976E+00, 0.5001E+00, 0.5025E+00, 0.5050E+00,& - 0.5074E+00, 0.5099E+00, 0.5123E+00, 0.5148E+00,& - 0.5173E+00, 0.5198E+00, 0.5223E+00, 0.5249E+00,& - 0.5274E+00, 0.5299E+00, 0.5325E+00, 0.5350E+00,& - 0.5376E+00, 0.5402E+00, 0.5428E+00, 0.5454E+00,& - 0.5480E+00, 0.5506E+00, 0.5532E+00, 0.5558E+00,& - 0.5585E+00, 0.5611E+00, 0.5638E+00, 0.5665E+00,& - 0.5692E+00, 0.5719E+00, 0.5746E+00, 0.5773E+00,& - 0.5800E+00, 0.5828E+00, 0.5855E+00, 0.5883E+00,& - 0.5911E+00, 0.5938E+00, 0.5967E+00, 0.5995E+00,& - 0.6023E+00, 0.6051E+00, 0.6079E+00, 0.6108E+00,& - 0.6136E+00, 0.6165E+00, 0.6194E+00, 0.6223E+00,& - 0.6252E+00, 0.6281E+00, 0.6310E+00, 0.6340E+00,& - 0.6369E+00, 0.6399E+00, 0.6428E+00, 0.6458E+00,& - 0.6488E+00, 0.6518E+00, 0.6548E+00, 0.6579E+00,& - 0.6609E+00, 0.6640E+00, 0.6670E+00, 0.6701E+00,& - 0.6732E+00, 0.6763E+00, 0.6794E+00, 0.6826E+00,& - 0.6857E+00, 0.6888E+00, 0.6920E+00, 0.6952E+00,& - 0.6984E+00, 0.7016E+00, 0.7048E+00, 0.7080E+00,& - 0.7113E+00, 0.7145E+00, 0.7178E+00, 0.7211E+00,& - 0.7244E+00, 0.7277E+00, 0.7310E+00, 0.7343E+00,& - 0.7377E+00, 0.7410E+00, 0.7444E+00, 0.7478E+00,& - 0.7512E+00, 0.7546E+00, 0.7580E+00, 0.7615E+00,& - 0.7649E+00, 0.7684E+00, 0.7719E+00, 0.7754E+00,& - 0.7789E+00, 0.7824E+00, 0.7860E+00, 0.7895E+00,& - 0.7931E+00, 0.7967E+00, 0.8003E+00, 0.8039E+00,& - 0.8075E+00, 0.8112E+00, 0.8148E+00, 0.8185E+00,& - 0.8222E+00, 0.8259E+00, 0.8296E+00, 0.8333E+00,& - 0.8331E+00, 0.8409E+00, 0.8447E+00, 0.8485E+00,& - 0.8523E+00, 0.8561E+00, 0.8599E+00, 0.8638E+00,& - 0.8677E+00, 0.8716E+00, 0.8755E+00, 0.8794E+00,& - 0.8834E+00, 0.8873E+00, 0.8913E+00, 0.8953E+00,& - 0.8993E+00, 0.9033E+00, 0.9074E+00, 0.9115E+00,& - 0.9155E+00, 0.9196E+00, 0.9238E+00, 0.9279E+00,& - 0.9321E+00, 0.9362E+00, 0.9404E+00, 0.9446E+00,& - 0.9488E+00, 0.9531E+00, 0.9573E+00, 0.9616E+00,& - 0.9659E+00, 0.9703E+00, 0.9746E+00, 0.9790E+00,& - 0.9833E+00, 0.9877E+00, 0.9921E+00, 0.9966E+00,& - 0.1001E+01, 0.1006E+01, 0.1010E+01, 0.1015E+01,& - 0.1019E+01, 0.1024E+01, 0.1028E+01, 0.1033E+01,& - 0.1037E+01, 0.1042E+01, 0.1047E+01, 0.1051E+01,& - 0.1056E+01, 0.1061E+01, 0.1066E+01, 0.1070E+01,& - 0.1075E+01, 0.1080E+01, 0.1085E+01, 0.1090E+01,& - 0.1095E+01, 0.1099E+01, 0.1104E+01, 0.1109E+01,& - 0.1114E+01, 0.1119E+01, 0.1124E+01, 0.1129E+01,& - 0.1134E+01, 0.1140E+01, 0.1145E+01, 0.1150E+01,& - 0.1155E+01, 0.1160E+01, 0.1165E+01, 0.1171E+01,& - 0.1176E+01, 0.1181E+01, 0.1186E+01, 0.1192E+01,& - 0.1197E+01, 0.1203E+01, 0.1208E+01, 0.1213E+01,& - 0.1219E+01, 0.1224E+01, 0.1230E+01, 0.1235E+01,& - 0.1241E+01, 0.1247E+01, 0.1252E+01, 0.1258E+01,& - 0.1264E+01, 0.1269E+01, 0.1275E+01, 0.1281E+01,& - 0.1287E+01, 0.1293E+01, 0.1298E+01, 0.1304E+01,& - 0.1310E+01, 0.1316E+01, 0.1322E+01, 0.1328E+01,& - 0.1334E+01, 0.1340E+01, 0.1347E+01, 0.1353E+01,& - 0.1359E+01, 0.1365E+01, 0.1371E+01, 0.1378E+01,& - 0.1384E+01, 0.1390E+01, 0.1397E+01, 0.1403E+01,& - 0.1410E+01, 0.1416E+01, 0.1423E+01, 0.1429E+01,& - 0.1436E+01, 0.1442E+01, 0.1449E+01, 0.1456E+01,& - 0.1463E+01, 0.1469E+01, 0.1476E+01, 0.1483E+01,& - 0.1490E+01, 0.1497E+01, 0.1504E+01, 0.1511E+01,& - 0.1518E+01, 0.1525E+01, 0.1532E+01, 0.1539E+01,& - 0.1547E+01, 0.1554E+01, 0.1561E+01, 0.1569E+01,& - 0.1576E+01, 0.1583E+01, 0.1591E+01, 0.1598E+01,& - 0.1606E+01, 0.1614E+01, 0.1621E+01, 0.1629E+01,& - 0.1637E+01, 0.1645E+01, 0.1652E+01, 0.1660E+01,& - 0.1668E+01, 0.1676E+01, 0.1684E+01, 0.1693E+01,& - 0.1701E+01, 0.1709E+01, 0.1717E+01, 0.1725E+01,& - 0.1734E+01, 0.1742E+01, 0.1751E+01, 0.1759E+01,& - 0.1768E+01, 0.1776E+01, 0.1785E+01, 0.1794E+01,& - 0.1803E+01, 0.1812E+01, 0.1821E+01, 0.1830E+01,& - 0.1839E+01, 0.1848E+01, 0.1857E+01, 0.1866E+01,& - 0.1875E+01, 0.1885E+01, 0.1894E+01, 0.1904E+01,& - 0.1913E+01, 0.1923E+01, 0.1933E+01, 0.1942E+01,& - 0.1952E+01, 0.1962E+01, 0.1972E+01, 0.1982E+01,& - 0.1992E+01, 0.2003E+01, 0.2013E+01, 0.2023E+01,& - 0.2034E+01, 0.2044E+01, 0.2055E+01, 0.2065E+01,& - 0.2076E+01, 0.2087E+01, 0.2098E+01, 0.2109E+01,& - 0.2120E+01, 0.2131E+01, 0.2142E+01, 0.2154E+01,& - 0.2165E+01, 0.2177E+01, 0.2188E+01, 0.2200E+01,& - 0.2212E+01, 0.2224E+01, 0.2236E+01, 0.2248E+01,& - 0.2260E+01, 0.2273E+01, 0.2285E+01, 0.2298E+01,& - 0.2310E+01, 0.2323E+01, 0.2336E+01, 0.2349E+01,& - 0.2362E+01, 0.2375E+01, 0.2389E+01, 0.2402E+01,& - 0.2416E+01, 0.2430E+01, 0.2443E+01, 0.2457E+01,& - 0.2472E+01, 0.2486E+01, 0.2500E+01, 0.2515E+01,& - 0.2529E+01, 0.2544E+01, 0.2559E+01, 0.2574E+01,& - 0.2590E+01, 0.2605E+01, 0.2621E+01, 0.2636E+01,& - 0.2652E+01, 0.2668E+01, 0.2684E+01, 0.2701E+01,& - 0.2717E+01, 0.2734E+01, 0.2751E+01, 0.2768E+01,& - 0.2786E+01, 0.2803E+01, 0.2821E+01, 0.2839E+01,& - 0.2857E+01, 0.2875E+01, 0.2894E+01, 0.2913E+01,& - 0.2932E+01, 0.2951E+01, 0.2971E+01, 0.2990E+01,& - 0.3010E+01, 0.3030E+01, 0.3051E+01, 0.3072E+01,& - 0.3093E+01, 0.3114E+01, 0.3136E+01, 0.3158E+01,& - 0.3180E+01, 0.3202E+01, 0.3225E+01, 0.3248E+01,& - 0.3272E+01, 0.3296E+01, 0.3320E+01, 0.3344E+01,& - 0.3369E+01, 0.3395E+01, 0.3420E+01, 0.3446E+01,& - 0.3473E+01, 0.3500E+01, 0.3527E+01, 0.3555E+01,& - 0.3583E+01, 0.3612E+01, 0.3642E+01, 0.3671E+01,& - 0.3702E+01, 0.3733E+01, 0.3764E+01, 0.3796E+01,& - 0.3829E+01, 0.3863E+01, 0.3897E+01, 0.3931E+01,& - 0.3967E+01, 0.4003E+01, 0.4040E+01, 0.4078E+01,& - 0.4117E+01, 0.4156E+01, 0.4197E+01, 0.4238E+01,& - 0.4281E+01, 0.4324E+01, 0.4369E+01, 0.4415E+01,& - 0.4462E+01, 0.4510E+01, 0.4560E+01, 0.4611E+01,& - 0.4664E+01, 0.4718E+01, 0.4774E+01, 0.4832E+01,& - 0.4892E+01, 0.4954E+01, 0.5018E+01, 0.5084E+01,& - 0.5153E+01, 0.5225E+01, 0.5299E+01, 0.5377E+01,& - 0.5458E+01, 0.5543E+01, 0.5632E+01, 0.5726E+01,& - 0.5825E+01, 0.5929E+01, 0.6039E+01, 0.6157E+01,& - 0.6282E+01, 0.6416E+01, 0.6561E+01, 0.6717E+01,& - 0.6888E+01, 0.7075E+01, 0.7283E+01, 0.7516E+01,& - 0.7781E+01, 0.8088E+01, 0.8452E+01, 0.8901E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 58) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2586E-04, 0.2586E-04, 0.4172E-04,& - 0.5757E-04, 0.5757E-04, 0.7343E-04, 0.8929E-04,& - 0.1051E-03, 0.1210E-03, 0.1527E-03, 0.1686E-03,& - 0.1844E-03, 0.2162E-03, 0.2320E-03, 0.2637E-03,& - 0.2954E-03, 0.3272E-03, 0.3589E-03, 0.3906E-03,& - 0.4223E-03, 0.4540E-03, 0.5016E-03, 0.5333E-03,& - 0.5809E-03, 0.6285E-03, 0.6760E-03, 0.7077E-03,& - 0.7712E-03, 0.8187E-03, 0.8663E-03, 0.9298E-03,& - 0.9773E-03, 0.1041E-02, 0.1104E-02, 0.1168E-02,& - 0.1231E-02, 0.1294E-02, 0.1358E-02, 0.1421E-02,& - 0.1501E-02, 0.1580E-02, 0.1643E-02, 0.1723E-02,& - 0.1802E-02, 0.1897E-02, 0.1976E-02, 0.2056E-02,& - 0.2151E-02, 0.2246E-02, 0.2341E-02, 0.2436E-02,& - 0.2531E-02, 0.2627E-02, 0.2722E-02, 0.2833E-02,& - 0.2944E-02, 0.3055E-02, 0.3150E-02, 0.3277E-02,& - 0.3388E-02, 0.3499E-02, 0.3626E-02, 0.3737E-02,& - 0.3863E-02, 0.3990E-02, 0.4117E-02, 0.4260E-02,& - 0.4387E-02, 0.4529E-02, 0.4656E-02, 0.4799E-02,& - 0.4942E-02, 0.5084E-02, 0.5243E-02, 0.5386E-02,& - 0.5544E-02, 0.5703E-02, 0.5862E-02, 0.6020E-02,& - 0.6179E-02, 0.6337E-02, 0.6512E-02, 0.6686E-02,& - 0.6861E-02, 0.7035E-02, 0.7209E-02, 0.7384E-02,& - 0.7574E-02, 0.7749E-02, 0.7939E-02, 0.8129E-02,& - 0.8319E-02, 0.8526E-02, 0.8716E-02, 0.8922E-02,& - 0.9128E-02, 0.9334E-02, 0.9541E-02, 0.9747E-02,& - 0.9969E-02, 0.1017E-01, 0.1040E-01, 0.1062E-01,& - 0.1084E-01, 0.1108E-01, 0.1130E-01, 0.1154E-01,& - 0.1178E-01, 0.1201E-01, 0.1225E-01, 0.1249E-01,& - 0.1274E-01, 0.1300E-01, 0.1325E-01, 0.1350E-01,& - 0.1376E-01, 0.1401E-01, 0.1428E-01, 0.1455E-01,& - 0.1482E-01, 0.1509E-01, 0.1536E-01, 0.1565E-01,& - 0.1592E-01, 0.1620E-01, 0.1649E-01, 0.1679E-01,& - 0.1707E-01, 0.1737E-01, 0.1766E-01, 0.1796E-01,& - 0.1828E-01, 0.1858E-01, 0.1888E-01, 0.1920E-01,& - 0.1952E-01, 0.1983E-01, 0.2015E-01, 0.2048E-01,& - 0.2082E-01, 0.2113E-01, 0.2147E-01, 0.2181E-01,& - 0.2215E-01, 0.2250E-01, 0.2285E-01, 0.2319E-01,& - 0.2354E-01, 0.2389E-01, 0.2426E-01, 0.2461E-01,& - 0.2497E-01, 0.2535E-01, 0.2572E-01, 0.2610E-01,& - 0.2646E-01, 0.2684E-01, 0.2722E-01, 0.2762E-01,& - 0.2800E-01, 0.2840E-01, 0.2879E-01, 0.2919E-01,& - 0.2960E-01, 0.3000E-01, 0.3041E-01, 0.3082E-01,& - 0.3123E-01, 0.3165E-01, 0.3207E-01, 0.3250E-01,& - 0.3293E-01, 0.3336E-01, 0.3379E-01, 0.3423E-01,& - 0.3468E-01, 0.3512E-01, 0.3556E-01, 0.3602E-01,& - 0.3647E-01, 0.3693E-01, 0.3739E-01, 0.3786E-01,& - 0.3832E-01, 0.3880E-01, 0.3927E-01, 0.3975E-01,& - 0.4023E-01, 0.4072E-01, 0.4121E-01, 0.4170E-01,& - 0.4219E-01, 0.4268E-01, 0.4319E-01, 0.4370E-01,& - 0.4421E-01, 0.4471E-01, 0.4524E-01, 0.4576E-01,& - 0.4628E-01, 0.4681E-01, 0.4733E-01, 0.4787E-01,& - 0.4841E-01, 0.4895E-01, 0.4949E-01, 0.5004E-01,& - 0.5058E-01, 0.5114E-01, 0.5171E-01, 0.5226E-01,& - 0.5283E-01, 0.5340E-01, 0.5397E-01, 0.5454E-01,& - 0.5513E-01, 0.5572E-01, 0.5631E-01, 0.5689E-01,& - 0.5748E-01, 0.5808E-01, 0.5868E-01, 0.5929E-01,& - 0.5990E-01, 0.6052E-01, 0.6113E-01, 0.6176E-01,& - 0.6238E-01, 0.6301E-01, 0.6363E-01, 0.6428E-01,& - 0.6492E-01, 0.6555E-01, 0.6620E-01, 0.6685E-01,& - 0.6752E-01, 0.6817E-01, 0.6883E-01, 0.6950E-01,& - 0.7016E-01, 0.7085E-01, 0.7151E-01, 0.7219E-01,& - 0.7289E-01, 0.7357E-01, 0.7427E-01, 0.7497E-01,& - 0.7567E-01, 0.7638E-01, 0.7708E-01, 0.7779E-01,& - 0.7852E-01, 0.7924E-01, 0.7997E-01, 0.8069E-01,& - 0.8142E-01, 0.8215E-01, 0.8290E-01, 0.8364E-01,& - 0.8439E-01, 0.8515E-01, 0.8591E-01, 0.8667E-01,& - 0.8743E-01, 0.8821E-01, 0.8897E-01, 0.8975E-01,& - 0.9054E-01, 0.9132E-01, 0.9211E-01, 0.9291E-01,& - 0.9371E-01, 0.9451E-01, 0.9532E-01, 0.9612E-01,& - 0.9695E-01, 0.9776E-01, 0.9858E-01, 0.9941E-01,& - 0.1002E+00, 0.1011E+00, 0.1019E+00, 0.1028E+00,& - 0.1036E+00, 0.1045E+00, 0.1053E+00, 0.1062E+00,& - 0.1071E+00, 0.1079E+00, 0.1088E+00, 0.1097E+00,& - 0.1106E+00, 0.1115E+00, 0.1123E+00, 0.1133E+00,& - 0.1142E+00, 0.1151E+00, 0.1160E+00, 0.1169E+00,& - 0.1178E+00, 0.1187E+00, 0.1197E+00, 0.1206E+00,& - 0.1215E+00, 0.1225E+00, 0.1234E+00, 0.1244E+00,& - 0.1253E+00, 0.1263E+00, 0.1272E+00, 0.1282E+00,& - 0.1292E+00, 0.1302E+00, 0.1312E+00, 0.1321E+00,& - 0.1331E+00, 0.1341E+00, 0.1351E+00, 0.1361E+00,& - 0.1371E+00, 0.1382E+00, 0.1392E+00, 0.1402E+00,& - 0.1412E+00, 0.1423E+00, 0.1433E+00, 0.1444E+00,& - 0.1454E+00, 0.1465E+00, 0.1475E+00, 0.1486E+00,& - 0.1496E+00, 0.1507E+00, 0.1518E+00, 0.1529E+00,& - 0.1540E+00, 0.1551E+00, 0.1562E+00, 0.1573E+00,& - 0.1584E+00, 0.1595E+00, 0.1606E+00, 0.1617E+00,& - 0.1629E+00, 0.1640E+00, 0.1651E+00, 0.1663E+00,& - 0.1674E+00, 0.1686E+00, 0.1697E+00, 0.1709E+00,& - 0.1721E+00, 0.1732E+00, 0.1744E+00, 0.1756E+00,& - 0.1768E+00, 0.1780E+00, 0.1792E+00, 0.1804E+00,& - 0.1816E+00, 0.1828E+00, 0.1840E+00, 0.1853E+00,& - 0.1865E+00, 0.1877E+00, 0.1890E+00, 0.1902E+00,& - 0.1915E+00, 0.1927E+00, 0.1940E+00, 0.1953E+00,& - 0.1965E+00, 0.1978E+00, 0.1991E+00, 0.2004E+00,& - 0.2017E+00, 0.2030E+00, 0.2043E+00, 0.2056E+00,& - 0.2069E+00, 0.2082E+00, 0.2096E+00, 0.2109E+00,& - 0.2122E+00, 0.2136E+00, 0.2149E+00, 0.2163E+00,& - 0.2177E+00, 0.2190E+00, 0.2204E+00, 0.2218E+00,& - 0.2232E+00, 0.2245E+00, 0.2260E+00, 0.2273E+00,& - 0.2288E+00, 0.2302E+00, 0.2316E+00, 0.2330E+00,& - 0.2345E+00, 0.2359E+00, 0.2373E+00, 0.2388E+00,& - 0.2402E+00, 0.2417E+00, 0.2432E+00, 0.2446E+00,& - 0.2461E+00, 0.2476E+00, 0.2491E+00, 0.2506E+00,& - 0.2521E+00, 0.2536E+00, 0.2551E+00, 0.2566E+00,& - 0.2582E+00, 0.2597E+00, 0.2612E+00, 0.2628E+00,& - 0.2643E+00, 0.2659E+00, 0.2675E+00, 0.2690E+00,& - 0.2706E+00, 0.2722E+00, 0.2738E+00, 0.2754E+00,& - 0.2770E+00, 0.2786E+00, 0.2802E+00, 0.2819E+00,& - 0.2835E+00, 0.2851E+00, 0.2868E+00, 0.2884E+00,& - 0.2900E+00, 0.2917E+00, 0.2934E+00, 0.2951E+00,& - 0.2967E+00, 0.2984E+00, 0.3001E+00, 0.3018E+00,& - 0.3035E+00, 0.3053E+00, 0.3070E+00, 0.3087E+00,& - 0.3104E+00, 0.3122E+00, 0.3139E+00, 0.3157E+00,& - 0.3175E+00, 0.3192E+00, 0.3210E+00, 0.3228E+00,& - 0.3246E+00, 0.3264E+00, 0.3282E+00, 0.3300E+00,& - 0.3318E+00, 0.3336E+00, 0.3355E+00, 0.3373E+00,& - 0.3392E+00, 0.3410E+00, 0.3429E+00, 0.3448E+00,& - 0.3466E+00, 0.3485E+00, 0.3504E+00, 0.3523E+00,& - 0.3542E+00, 0.3561E+00, 0.3581E+00, 0.3600E+00,& - 0.3619E+00, 0.3639E+00, 0.3658E+00, 0.3678E+00,& - 0.3698E+00, 0.3717E+00, 0.3737E+00, 0.3757E+00,& - 0.3777E+00, 0.3797E+00, 0.3817E+00, 0.3837E+00,& - 0.3858E+00, 0.3878E+00, 0.3899E+00, 0.3919E+00,& - 0.3940E+00, 0.3960E+00, 0.3981E+00, 0.4002E+00,& - 0.4023E+00, 0.4044E+00, 0.4065E+00, 0.4085E+00,& - 0.4108E+00, 0.4129E+00, 0.4150E+00, 0.4172E+00,& - 0.4193E+00, 0.4215E+00, 0.4237E+00, 0.4259E+00,& - 0.4281E+00, 0.4303E+00, 0.4325E+00, 0.4347E+00,& - 0.4369E+00, 0.4392E+00, 0.4414E+00, 0.4437E+00,& - 0.4459E+00, 0.4482E+00, 0.4505E+00, 0.4528E+00,& - 0.4550E+00, 0.4574E+00, 0.4597E+00, 0.4620E+00,& - 0.4643E+00, 0.4667E+00, 0.4690E+00, 0.4714E+00,& - 0.4738E+00, 0.4761E+00, 0.4785E+00, 0.4809E+00,& - 0.4833E+00, 0.4858E+00, 0.4882E+00, 0.4906E+00,& - 0.4931E+00, 0.4955E+00, 0.4980E+00, 0.5005E+00,& - 0.5029E+00, 0.5054E+00, 0.5079E+00, 0.5104E+00,& - 0.5130E+00, 0.5155E+00, 0.5180E+00, 0.5206E+00,& - 0.5231E+00, 0.5257E+00, 0.5283E+00, 0.5309E+00,& - 0.5335E+00, 0.5361E+00, 0.5387E+00, 0.5414E+00,& - 0.5440E+00, 0.5467E+00, 0.5493E+00, 0.5520E+00,& - 0.5547E+00, 0.5574E+00, 0.5601E+00, 0.5628E+00,& - 0.5655E+00, 0.5683E+00, 0.5710E+00, 0.5738E+00,& - 0.5765E+00, 0.5793E+00, 0.5821E+00, 0.5849E+00,& - 0.5877E+00, 0.5906E+00, 0.5934E+00, 0.5962E+00,& - 0.5991E+00, 0.6020E+00, 0.6048E+00, 0.6077E+00,& - 0.6106E+00, 0.6136E+00, 0.6165E+00, 0.6194E+00,& - 0.6224E+00, 0.6253E+00, 0.6283E+00, 0.6313E+00,& - 0.6343E+00, 0.6373E+00, 0.6403E+00, 0.6434E+00,& - 0.6464E+00, 0.6495E+00, 0.6525E+00, 0.6556E+00,& - 0.6587E+00, 0.6618E+00, 0.6650E+00, 0.6681E+00,& - 0.6712E+00, 0.6744E+00, 0.6776E+00, 0.6808E+00,& - 0.6840E+00, 0.6872E+00, 0.6904E+00, 0.6936E+00,& - 0.6969E+00, 0.7001E+00, 0.7034E+00, 0.7067E+00,& - 0.7100E+00, 0.7133E+00, 0.7167E+00, 0.7200E+00,& - 0.7234E+00, 0.7267E+00, 0.7301E+00, 0.7335E+00,& - 0.7369E+00, 0.7404E+00, 0.7438E+00, 0.7473E+00,& - 0.7507E+00, 0.7542E+00, 0.7577E+00, 0.7612E+00,& - 0.7648E+00, 0.7683E+00, 0.7719E+00, 0.7754E+00,& - 0.7790E+00, 0.7826E+00, 0.7862E+00, 0.7899E+00,& - 0.7935E+00, 0.7972E+00, 0.8009E+00, 0.8045E+00,& - 0.8083E+00, 0.8120E+00, 0.8157E+00, 0.8195E+00,& - 0.8233E+00, 0.8270E+00, 0.8308E+00, 0.8347E+00,& - 0.8385E+00, 0.8424E+00, 0.8462E+00, 0.8501E+00,& - 0.8540E+00, 0.8579E+00, 0.8619E+00, 0.8658E+00,& - 0.8698E+00, 0.8738E+00, 0.8778E+00, 0.8818E+00,& - 0.8859E+00, 0.8899E+00, 0.8940E+00, 0.8981E+00,& - 0.9022E+00, 0.9063E+00, 0.9105E+00, 0.9147E+00,& - 0.9188E+00, 0.9230E+00, 0.9273E+00, 0.9315E+00,& - 0.9358E+00, 0.9400E+00, 0.9443E+00, 0.9487E+00,& - 0.9530E+00, 0.9574E+00, 0.9617E+00, 0.9661E+00,& - 0.9705E+00, 0.9750E+00, 0.9794E+00, 0.9839E+00,& - 0.9884E+00, 0.9929E+00, 0.9975E+00, 0.1002E+01,& - 0.1007E+01, 0.1011E+01, 0.1016E+01, 0.1020E+01,& - 0.1025E+01, 0.1030E+01, 0.1034E+01, 0.1039E+01,& - 0.1044E+01, 0.1049E+01, 0.1054E+01, 0.1058E+01,& - 0.1063E+01, 0.1068E+01, 0.1073E+01, 0.1078E+01,& - 0.1083E+01, 0.1088E+01, 0.1093E+01, 0.1098E+01,& - 0.1103E+01, 0.1108E+01, 0.1113E+01, 0.1118E+01,& - 0.1123E+01, 0.1128E+01, 0.1133E+01, 0.1139E+01,& - 0.1144E+01, 0.1149E+01, 0.1154E+01, 0.1160E+01,& - 0.1165E+01, 0.1170E+01, 0.1176E+01, 0.1181E+01,& - 0.1187E+01, 0.1192E+01, 0.1197E+01, 0.1203E+01,& - 0.1209E+01, 0.1214E+01, 0.1220E+01, 0.1225E+01,& - 0.1231E+01, 0.1237E+01, 0.1242E+01, 0.1248E+01,& - 0.1254E+01, 0.1260E+01, 0.1265E+01, 0.1271E+01,& - 0.1277E+01, 0.1283E+01, 0.1289E+01, 0.1295E+01,& - 0.1301E+01, 0.1307E+01, 0.1313E+01, 0.1319E+01,& - 0.1325E+01, 0.1332E+01, 0.1338E+01, 0.1344E+01,& - 0.1350E+01, 0.1357E+01, 0.1363E+01, 0.1369E+01,& - 0.1376E+01, 0.1382E+01, 0.1389E+01, 0.1395E+01,& - 0.1402E+01, 0.1408E+01, 0.1415E+01, 0.1422E+01,& - 0.1428E+01, 0.1435E+01, 0.1442E+01, 0.1449E+01,& - 0.1455E+01, 0.1462E+01, 0.1469E+01, 0.1476E+01,& - 0.1483E+01, 0.1490E+01, 0.1497E+01, 0.1505E+01,& - 0.1512E+01, 0.1519E+01, 0.1526E+01, 0.1533E+01,& - 0.1541E+01, 0.1548E+01, 0.1556E+01, 0.1563E+01,& - 0.1571E+01, 0.1578E+01, 0.1586E+01, 0.1593E+01,& - 0.1601E+01, 0.1609E+01, 0.1617E+01, 0.1624E+01,& - 0.1632E+01, 0.1640E+01, 0.1648E+01, 0.1656E+01,& - 0.1664E+01, 0.1673E+01, 0.1681E+01, 0.1689E+01,& - 0.1697E+01, 0.1706E+01, 0.1714E+01, 0.1722E+01,& - 0.1731E+01, 0.1739E+01, 0.1748E+01, 0.1757E+01,& - 0.1765E+01, 0.1774E+01, 0.1783E+01, 0.1792E+01,& - 0.1801E+01, 0.1810E+01, 0.1819E+01, 0.1828E+01,& - 0.1837E+01, 0.1847E+01, 0.1856E+01, 0.1865E+01,& - 0.1875E+01, 0.1884E+01, 0.1894E+01, 0.1904E+01,& - 0.1913E+01, 0.1923E+01, 0.1933E+01, 0.1943E+01,& - 0.1953E+01, 0.1963E+01, 0.1973E+01, 0.1984E+01,& - 0.1994E+01, 0.2004E+01, 0.2015E+01, 0.2025E+01,& - 0.2036E+01, 0.2047E+01, 0.2058E+01, 0.2068E+01,& - 0.2079E+01, 0.2090E+01, 0.2102E+01, 0.2113E+01,& - 0.2124E+01, 0.2135E+01, 0.2147E+01, 0.2159E+01,& - 0.2170E+01, 0.2182E+01, 0.2194E+01, 0.2206E+01,& - 0.2218E+01, 0.2230E+01, 0.2242E+01, 0.2255E+01,& - 0.2267E+01, 0.2280E+01, 0.2292E+01, 0.2305E+01,& - 0.2318E+01, 0.2331E+01, 0.2344E+01, 0.2358E+01,& - 0.2371E+01, 0.2385E+01, 0.2398E+01, 0.2412E+01,& - 0.2426E+01, 0.2440E+01, 0.2454E+01, 0.2468E+01,& - 0.2483E+01, 0.2497E+01, 0.2512E+01, 0.2527E+01,& - 0.2542E+01, 0.2557E+01, 0.2572E+01, 0.2588E+01,& - 0.2603E+01, 0.2619E+01, 0.2635E+01, 0.2651E+01,& - 0.2667E+01, 0.2684E+01, 0.2700E+01, 0.2717E+01,& - 0.2734E+01, 0.2751E+01, 0.2768E+01, 0.2786E+01,& - 0.2804E+01, 0.2821E+01, 0.2840E+01, 0.2858E+01,& - 0.2876E+01, 0.2895E+01, 0.2914E+01, 0.2933E+01,& - 0.2953E+01, 0.2973E+01, 0.2992E+01, 0.3013E+01,& - 0.3033E+01, 0.3054E+01, 0.3075E+01, 0.3096E+01,& - 0.3117E+01, 0.3139E+01, 0.3161E+01, 0.3184E+01,& - 0.3207E+01, 0.3230E+01, 0.3253E+01, 0.3277E+01,& - 0.3301E+01, 0.3325E+01, 0.3350E+01, 0.3375E+01,& - 0.3400E+01, 0.3426E+01, 0.3453E+01, 0.3479E+01,& - 0.3507E+01, 0.3534E+01, 0.3562E+01, 0.3591E+01,& - 0.3620E+01, 0.3649E+01, 0.3679E+01, 0.3710E+01,& - 0.3741E+01, 0.3773E+01, 0.3805E+01, 0.3838E+01,& - 0.3872E+01, 0.3906E+01, 0.3941E+01, 0.3976E+01,& - 0.4013E+01, 0.4050E+01, 0.4088E+01, 0.4127E+01,& - 0.4166E+01, 0.4207E+01, 0.4248E+01, 0.4291E+01,& - 0.4334E+01, 0.4379E+01, 0.4425E+01, 0.4472E+01,& - 0.4520E+01, 0.4570E+01, 0.4621E+01, 0.4673E+01,& - 0.4727E+01, 0.4783E+01, 0.4841E+01, 0.4900E+01,& - 0.4961E+01, 0.5024E+01, 0.5090E+01, 0.5159E+01,& - 0.5229E+01, 0.5303E+01, 0.5380E+01, 0.5459E+01,& - 0.5543E+01, 0.5630E+01, 0.5722E+01, 0.5818E+01,& - 0.5919E+01, 0.6027E+01, 0.6140E+01, 0.6260E+01,& - 0.6389E+01, 0.6527E+01, 0.6676E+01, 0.6837E+01,& - 0.7012E+01, 0.7205E+01, 0.7419E+01, 0.7658E+01,& - 0.7931E+01, 0.8247E+01, 0.8622E+01, 0.9083E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 59) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.2622E-04, 0.2622E-04,& - 0.4245E-04, 0.4245E-04, 0.5867E-04, 0.5867E-04,& - 0.7490E-04, 0.9112E-04, 0.1073E-03, 0.1236E-03,& - 0.1398E-03, 0.1560E-03, 0.1722E-03, 0.2047E-03,& - 0.2209E-03, 0.2534E-03, 0.2696E-03, 0.3020E-03,& - 0.3345E-03, 0.3507E-03, 0.3832E-03, 0.4156E-03,& - 0.4481E-03, 0.4967E-03, 0.5292E-03, 0.5616E-03,& - 0.6103E-03, 0.6428E-03, 0.6914E-03, 0.7401E-03,& - 0.7888E-03, 0.8374E-03, 0.8861E-03, 0.9348E-03,& - 0.9835E-03, 0.1032E-02, 0.1097E-02, 0.1162E-02,& - 0.1211E-02, 0.1276E-02, 0.1340E-02, 0.1405E-02,& - 0.1470E-02, 0.1551E-02, 0.1616E-02, 0.1697E-02,& - 0.1762E-02, 0.1843E-02, 0.1924E-02, 0.2006E-02,& - 0.2087E-02, 0.2168E-02, 0.2249E-02, 0.2346E-02,& - 0.2444E-02, 0.2525E-02, 0.2622E-02, 0.2719E-02,& - 0.2817E-02, 0.2914E-02, 0.3028E-02, 0.3125E-02,& - 0.3239E-02, 0.3352E-02, 0.3450E-02, 0.3563E-02,& - 0.3693E-02, 0.3807E-02, 0.3920E-02, 0.4050E-02,& - 0.4180E-02, 0.4293E-02, 0.4423E-02, 0.4553E-02,& - 0.4699E-02, 0.4829E-02, 0.4975E-02, 0.5104E-02,& - 0.5250E-02, 0.5396E-02, 0.5543E-02, 0.5689E-02,& - 0.5851E-02, 0.5997E-02, 0.6159E-02, 0.6305E-02,& - 0.6467E-02, 0.6646E-02, 0.6808E-02, 0.6970E-02,& - 0.7149E-02, 0.7311E-02, 0.7489E-02, 0.7668E-02,& - 0.7846E-02, 0.8041E-02, 0.8220E-02, 0.8414E-02,& - 0.8593E-02, 0.8787E-02, 0.8982E-02, 0.9193E-02,& - 0.9388E-02, 0.9599E-02, 0.9793E-02, 0.1000E-01,& - 0.1022E-01, 0.1043E-01, 0.1065E-01, 0.1086E-01,& - 0.1109E-01, 0.1132E-01, 0.1155E-01, 0.1177E-01,& - 0.1200E-01, 0.1223E-01, 0.1247E-01, 0.1271E-01,& - 0.1296E-01, 0.1320E-01, 0.1344E-01, 0.1370E-01,& - 0.1395E-01, 0.1421E-01, 0.1447E-01, 0.1473E-01,& - 0.1500E-01, 0.1526E-01, 0.1554E-01, 0.1581E-01,& - 0.1609E-01, 0.1636E-01, 0.1664E-01, 0.1693E-01,& - 0.1722E-01, 0.1750E-01, 0.1781E-01, 0.1810E-01,& - 0.1839E-01, 0.1870E-01, 0.1901E-01, 0.1932E-01,& - 0.1963E-01, 0.1993E-01, 0.2026E-01, 0.2057E-01,& - 0.2089E-01, 0.2122E-01, 0.2154E-01, 0.2188E-01,& - 0.2220E-01, 0.2255E-01, 0.2289E-01, 0.2323E-01,& - 0.2358E-01, 0.2392E-01, 0.2428E-01, 0.2464E-01,& - 0.2500E-01, 0.2535E-01, 0.2573E-01, 0.2608E-01,& - 0.2646E-01, 0.2683E-01, 0.2722E-01, 0.2759E-01,& - 0.2798E-01, 0.2837E-01, 0.2876E-01, 0.2915E-01,& - 0.2954E-01, 0.2994E-01, 0.3035E-01, 0.3076E-01,& - 0.3116E-01, 0.3157E-01, 0.3199E-01, 0.3241E-01,& - 0.3283E-01, 0.3325E-01, 0.3368E-01, 0.3411E-01,& - 0.3455E-01, 0.3499E-01, 0.3543E-01, 0.3588E-01,& - 0.3632E-01, 0.3677E-01, 0.3723E-01, 0.3768E-01,& - 0.3815E-01, 0.3861E-01, 0.3908E-01, 0.3955E-01,& - 0.4004E-01, 0.4051E-01, 0.4099E-01, 0.4148E-01,& - 0.4197E-01, 0.4245E-01, 0.4296E-01, 0.4346E-01,& - 0.4396E-01, 0.4446E-01, 0.4497E-01, 0.4549E-01,& - 0.4601E-01, 0.4653E-01, 0.4704E-01, 0.4758E-01,& - 0.4812E-01, 0.4865E-01, 0.4919E-01, 0.4972E-01,& - 0.5027E-01, 0.5082E-01, 0.5138E-01, 0.5193E-01,& - 0.5248E-01, 0.5305E-01, 0.5362E-01, 0.5418E-01,& - 0.5477E-01, 0.5534E-01, 0.5592E-01, 0.5650E-01,& - 0.5710E-01, 0.5769E-01, 0.5829E-01, 0.5889E-01,& - 0.5949E-01, 0.6011E-01, 0.6071E-01, 0.6132E-01,& - 0.6195E-01, 0.6257E-01, 0.6320E-01, 0.6384E-01,& - 0.6447E-01, 0.6510E-01, 0.6575E-01, 0.6638E-01,& - 0.6703E-01, 0.6770E-01, 0.6835E-01, 0.6901E-01,& - 0.6968E-01, 0.7034E-01, 0.7102E-01, 0.7171E-01,& - 0.7239E-01, 0.7307E-01, 0.7375E-01, 0.7445E-01,& - 0.7515E-01, 0.7584E-01, 0.7656E-01, 0.7727E-01,& - 0.7797E-01, 0.7870E-01, 0.7941E-01, 0.8014E-01,& - 0.8087E-01, 0.8160E-01, 0.8235E-01, 0.8308E-01,& - 0.8383E-01, 0.8457E-01, 0.8533E-01, 0.8610E-01,& - 0.8686E-01, 0.8762E-01, 0.8838E-01, 0.8916E-01,& - 0.8994E-01, 0.9074E-01, 0.9152E-01, 0.9231E-01,& - 0.9311E-01, 0.9390E-01, 0.9471E-01, 0.9552E-01,& - 0.9633E-01, 0.9715E-01, 0.9797E-01, 0.9880E-01,& - 0.9963E-01, 0.1005E+00, 0.1013E+00, 0.1021E+00,& - 0.1030E+00, 0.1038E+00, 0.1047E+00, 0.1056E+00,& - 0.1064E+00, 0.1073E+00, 0.1082E+00, 0.1091E+00,& - 0.1099E+00, 0.1108E+00, 0.1117E+00, 0.1126E+00,& - 0.1135E+00, 0.1144E+00, 0.1153E+00, 0.1163E+00,& - 0.1172E+00, 0.1181E+00, 0.1190E+00, 0.1200E+00,& - 0.1209E+00, 0.1218E+00, 0.1228E+00, 0.1237E+00,& - 0.1247E+00, 0.1257E+00, 0.1266E+00, 0.1276E+00,& - 0.1286E+00, 0.1295E+00, 0.1305E+00, 0.1315E+00,& - 0.1325E+00, 0.1335E+00, 0.1345E+00, 0.1355E+00,& - 0.1366E+00, 0.1376E+00, 0.1386E+00, 0.1396E+00,& - 0.1407E+00, 0.1417E+00, 0.1427E+00, 0.1438E+00,& - 0.1448E+00, 0.1459E+00, 0.1470E+00, 0.1480E+00,& - 0.1491E+00, 0.1502E+00, 0.1513E+00, 0.1524E+00,& - 0.1534E+00, 0.1545E+00, 0.1557E+00, 0.1568E+00,& - 0.1579E+00, 0.1590E+00, 0.1601E+00, 0.1612E+00,& - 0.1624E+00, 0.1635E+00, 0.1647E+00, 0.1658E+00,& - 0.1670E+00, 0.1681E+00, 0.1693E+00, 0.1705E+00,& - 0.1716E+00, 0.1728E+00, 0.1740E+00, 0.1752E+00,& - 0.1764E+00, 0.1776E+00, 0.1788E+00, 0.1800E+00,& - 0.1812E+00, 0.1825E+00, 0.1837E+00, 0.1849E+00,& - 0.1862E+00, 0.1874E+00, 0.1887E+00, 0.1899E+00,& - 0.1912E+00, 0.1925E+00, 0.1937E+00, 0.1950E+00,& - 0.1963E+00, 0.1976E+00, 0.1989E+00, 0.2002E+00,& - 0.2015E+00, 0.2028E+00, 0.2041E+00, 0.2055E+00,& - 0.2068E+00, 0.2081E+00, 0.2095E+00, 0.2108E+00,& - 0.2122E+00, 0.2135E+00, 0.2149E+00, 0.2163E+00,& - 0.2176E+00, 0.2190E+00, 0.2204E+00, 0.2218E+00,& - 0.2232E+00, 0.2246E+00, 0.2260E+00, 0.2274E+00,& - 0.2289E+00, 0.2303E+00, 0.2317E+00, 0.2332E+00,& - 0.2346E+00, 0.2361E+00, 0.2376E+00, 0.2390E+00,& - 0.2405E+00, 0.2420E+00, 0.2435E+00, 0.2449E+00,& - 0.2464E+00, 0.2480E+00, 0.2495E+00, 0.2510E+00,& - 0.2525E+00, 0.2540E+00, 0.2556E+00, 0.2571E+00,& - 0.2587E+00, 0.2602E+00, 0.2618E+00, 0.2634E+00,& - 0.2649E+00, 0.2665E+00, 0.2681E+00, 0.2697E+00,& - 0.2713E+00, 0.2729E+00, 0.2745E+00, 0.2761E+00,& - 0.2778E+00, 0.2794E+00, 0.2810E+00, 0.2827E+00,& - 0.2844E+00, 0.2860E+00, 0.2877E+00, 0.2894E+00,& - 0.2910E+00, 0.2927E+00, 0.2944E+00, 0.2961E+00,& - 0.2978E+00, 0.2996E+00, 0.3013E+00, 0.3030E+00,& - 0.3048E+00, 0.3065E+00, 0.3083E+00, 0.3100E+00,& - 0.3118E+00, 0.3136E+00, 0.3153E+00, 0.3171E+00,& - 0.3189E+00, 0.3207E+00, 0.3225E+00, 0.3244E+00,& - 0.3262E+00, 0.3280E+00, 0.3299E+00, 0.3317E+00,& - 0.3336E+00, 0.3354E+00, 0.3373E+00, 0.3392E+00,& - 0.3410E+00, 0.3429E+00, 0.3448E+00, 0.3467E+00,& - 0.3487E+00, 0.3506E+00, 0.3525E+00, 0.3545E+00,& - 0.3564E+00, 0.3584E+00, 0.3603E+00, 0.3623E+00,& - 0.3643E+00, 0.3663E+00, 0.3682E+00, 0.3703E+00,& - 0.3723E+00, 0.3743E+00, 0.3763E+00, 0.3783E+00,& - 0.3804E+00, 0.3824E+00, 0.3845E+00, 0.3866E+00,& - 0.3886E+00, 0.3907E+00, 0.3928E+00, 0.3949E+00,& - 0.3970E+00, 0.3991E+00, 0.4013E+00, 0.4034E+00,& - 0.4055E+00, 0.4077E+00, 0.4098E+00, 0.4120E+00,& - 0.4142E+00, 0.4164E+00, 0.4186E+00, 0.4208E+00,& - 0.4230E+00, 0.4252E+00, 0.4274E+00, 0.4297E+00,& - 0.4319E+00, 0.4342E+00, 0.4364E+00, 0.4387E+00,& - 0.4410E+00, 0.4433E+00, 0.4456E+00, 0.4479E+00,& - 0.4502E+00, 0.4525E+00, 0.4549E+00, 0.4572E+00,& - 0.4596E+00, 0.4620E+00, 0.4643E+00, 0.4667E+00,& - 0.4691E+00, 0.4715E+00, 0.4739E+00, 0.4763E+00,& - 0.4788E+00, 0.4812E+00, 0.4837E+00, 0.4861E+00,& - 0.4886E+00, 0.4911E+00, 0.4936E+00, 0.4961E+00,& - 0.4986E+00, 0.5011E+00, 0.5036E+00, 0.5062E+00,& - 0.5087E+00, 0.5113E+00, 0.5139E+00, 0.5165E+00,& - 0.5191E+00, 0.5217E+00, 0.5243E+00, 0.5269E+00,& - 0.5295E+00, 0.5322E+00, 0.5348E+00, 0.5375E+00,& - 0.5402E+00, 0.5429E+00, 0.5456E+00, 0.5483E+00,& - 0.5510E+00, 0.5537E+00, 0.5565E+00, 0.5592E+00,& - 0.5620E+00, 0.5648E+00, 0.5676E+00, 0.5704E+00,& - 0.5732E+00, 0.5760E+00, 0.5788E+00, 0.5817E+00,& - 0.5845E+00, 0.5874E+00, 0.5903E+00, 0.5932E+00,& - 0.5961E+00, 0.5990E+00, 0.6019E+00, 0.6049E+00,& - 0.6078E+00, 0.6108E+00, 0.6138E+00, 0.6167E+00,& - 0.6197E+00, 0.6228E+00, 0.6258E+00, 0.6288E+00,& - 0.6319E+00, 0.6349E+00, 0.6380E+00, 0.6411E+00,& - 0.6442E+00, 0.6473E+00, 0.6504E+00, 0.6536E+00,& - 0.6567E+00, 0.6599E+00, 0.6631E+00, 0.6662E+00,& - 0.6694E+00, 0.6727E+00, 0.6759E+00, 0.6791E+00,& - 0.6824E+00, 0.6857E+00, 0.6889E+00, 0.6923E+00,& - 0.6956E+00, 0.6989E+00, 0.7022E+00, 0.7056E+00,& - 0.7090E+00, 0.7123E+00, 0.7157E+00, 0.7191E+00,& - 0.7226E+00, 0.7260E+00, 0.7294E+00, 0.7329E+00,& - 0.7364E+00, 0.7399E+00, 0.7434E+00, 0.7469E+00,& - 0.7505E+00, 0.7540E+00, 0.7576E+00, 0.7612E+00,& - 0.7648E+00, 0.7684E+00, 0.7720E+00, 0.7757E+00,& - 0.7793E+00, 0.7830E+00, 0.7867E+00, 0.7904E+00,& - 0.7942E+00, 0.7979E+00, 0.8017E+00, 0.8055E+00,& - 0.8092E+00, 0.8130E+00, 0.8169E+00, 0.8207E+00,& - 0.8246E+00, 0.8285E+00, 0.8324E+00, 0.8362E+00,& - 0.8402E+00, 0.8441E+00, 0.8481E+00, 0.8521E+00,& - 0.8561E+00, 0.8601E+00, 0.8641E+00, 0.8682E+00,& - 0.8722E+00, 0.8763E+00, 0.8804E+00, 0.8845E+00,& - 0.8887E+00, 0.8928E+00, 0.8970E+00, 0.9012E+00,& - 0.9054E+00, 0.9096E+00, 0.9139E+00, 0.9182E+00,& - 0.9225E+00, 0.9268E+00, 0.9311E+00, 0.9355E+00,& - 0.9398E+00, 0.9442E+00, 0.9486E+00, 0.9530E+00,& - 0.9575E+00, 0.9620E+00, 0.9665E+00, 0.9710E+00,& - 0.9755E+00, 0.9801E+00, 0.9846E+00, 0.9892E+00,& - 0.9938E+00, 0.9985E+00, 0.1003E+01, 0.1008E+01,& - 0.1013E+01, 0.1017E+01, 0.1022E+01, 0.1027E+01,& - 0.1032E+01, 0.1036E+01, 0.1041E+01, 0.1046E+01,& - 0.1051E+01, 0.1056E+01, 0.1061E+01, 0.1066E+01,& - 0.1071E+01, 0.1076E+01, 0.1081E+01, 0.1086E+01,& - 0.1091E+01, 0.1096E+01, 0.1101E+01, 0.1106E+01,& - 0.1111E+01, 0.1117E+01, 0.1122E+01, 0.1127E+01,& - 0.1132E+01, 0.1138E+01, 0.1143E+01, 0.1148E+01,& - 0.1154E+01, 0.1159E+01, 0.1165E+01, 0.1170E+01,& - 0.1176E+01, 0.1181E+01, 0.1187E+01, 0.1192E+01,& - 0.1198E+01, 0.1203E+01, 0.1209E+01, 0.1215E+01,& - 0.1220E+01, 0.1226E+01, 0.1232E+01, 0.1238E+01,& - 0.1244E+01, 0.1250E+01, 0.1255E+01, 0.1261E+01,& - 0.1267E+01, 0.1273E+01, 0.1279E+01, 0.1285E+01,& - 0.1291E+01, 0.1298E+01, 0.1304E+01, 0.1310E+01,& - 0.1316E+01, 0.1322E+01, 0.1329E+01, 0.1335E+01,& - 0.1341E+01, 0.1348E+01, 0.1354E+01, 0.1361E+01,& - 0.1367E+01, 0.1374E+01, 0.1380E+01, 0.1387E+01,& - 0.1393E+01, 0.1400E+01, 0.1407E+01, 0.1414E+01,& - 0.1420E+01, 0.1427E+01, 0.1434E+01, 0.1441E+01,& - 0.1448E+01, 0.1455E+01, 0.1462E+01, 0.1469E+01,& - 0.1476E+01, 0.1483E+01, 0.1490E+01, 0.1498E+01,& - 0.1505E+01, 0.1512E+01, 0.1520E+01, 0.1527E+01,& - 0.1534E+01, 0.1542E+01, 0.1549E+01, 0.1557E+01,& - 0.1565E+01, 0.1572E+01, 0.1580E+01, 0.1588E+01,& - 0.1596E+01, 0.1603E+01, 0.1611E+01, 0.1619E+01,& - 0.1627E+01, 0.1635E+01, 0.1644E+01, 0.1652E+01,& - 0.1660E+01, 0.1668E+01, 0.1676E+01, 0.1685E+01,& - 0.1693E+01, 0.1702E+01, 0.1710E+01, 0.1719E+01,& - 0.1728E+01, 0.1736E+01, 0.1745E+01, 0.1754E+01,& - 0.1763E+01, 0.1772E+01, 0.1781E+01, 0.1790E+01,& - 0.1799E+01, 0.1808E+01, 0.1817E+01, 0.1826E+01,& - 0.1836E+01, 0.1845E+01, 0.1855E+01, 0.1864E+01,& - 0.1874E+01, 0.1884E+01, 0.1893E+01, 0.1903E+01,& - 0.1913E+01, 0.1923E+01, 0.1933E+01, 0.1943E+01,& - 0.1954E+01, 0.1964E+01, 0.1974E+01, 0.1985E+01,& - 0.1995E+01, 0.2006E+01, 0.2016E+01, 0.2027E+01,& - 0.2038E+01, 0.2049E+01, 0.2060E+01, 0.2071E+01,& - 0.2082E+01, 0.2093E+01, 0.2105E+01, 0.2116E+01,& - 0.2128E+01, 0.2139E+01, 0.2151E+01, 0.2163E+01,& - 0.2175E+01, 0.2187E+01, 0.2199E+01, 0.2211E+01,& - 0.2223E+01, 0.2236E+01, 0.2248E+01, 0.2261E+01,& - 0.2273E+01, 0.2286E+01, 0.2299E+01, 0.2312E+01,& - 0.2325E+01, 0.2339E+01, 0.2352E+01, 0.2366E+01,& - 0.2379E+01, 0.2393E+01, 0.2407E+01, 0.2421E+01,& - 0.2435E+01, 0.2449E+01, 0.2464E+01, 0.2478E+01,& - 0.2493E+01, 0.2508E+01, 0.2523E+01, 0.2538E+01,& - 0.2553E+01, 0.2569E+01, 0.2584E+01, 0.2600E+01,& - 0.2616E+01, 0.2632E+01, 0.2648E+01, 0.2665E+01,& - 0.2681E+01, 0.2698E+01, 0.2715E+01, 0.2732E+01,& - 0.2750E+01, 0.2767E+01, 0.2785E+01, 0.2803E+01,& - 0.2821E+01, 0.2839E+01, 0.2858E+01, 0.2876E+01,& - 0.2895E+01, 0.2914E+01, 0.2934E+01, 0.2953E+01,& - 0.2973E+01, 0.2993E+01, 0.3014E+01, 0.3034E+01,& - 0.3055E+01, 0.3076E+01, 0.3098E+01, 0.3120E+01,& - 0.3142E+01, 0.3164E+01, 0.3187E+01, 0.3209E+01,& - 0.3233E+01, 0.3256E+01, 0.3280E+01, 0.3304E+01,& - 0.3329E+01, 0.3354E+01, 0.3379E+01, 0.3405E+01,& - 0.3431E+01, 0.3458E+01, 0.3484E+01, 0.3512E+01,& - 0.3540E+01, 0.3568E+01, 0.3597E+01, 0.3626E+01,& - 0.3656E+01, 0.3686E+01, 0.3716E+01, 0.3748E+01,& - 0.3780E+01, 0.3812E+01, 0.3845E+01, 0.3879E+01,& - 0.3913E+01, 0.3948E+01, 0.3984E+01, 0.4021E+01,& - 0.4058E+01, 0.4096E+01, 0.4135E+01, 0.4175E+01,& - 0.4215E+01, 0.4257E+01, 0.4299E+01, 0.4343E+01,& - 0.4388E+01, 0.4434E+01, 0.4481E+01, 0.4529E+01,& - 0.4578E+01, 0.4629E+01, 0.4681E+01, 0.4735E+01,& - 0.4791E+01, 0.4848E+01, 0.4907E+01, 0.4968E+01,& - 0.5031E+01, 0.5096E+01, 0.5163E+01, 0.5233E+01,& - 0.5306E+01, 0.5381E+01, 0.5460E+01, 0.5542E+01,& - 0.5628E+01, 0.5717E+01, 0.5811E+01, 0.5910E+01,& - 0.6014E+01, 0.6124E+01, 0.6241E+01, 0.6365E+01,& - 0.6496E+01, 0.6639E+01, 0.6791E+01, 0.6957E+01,& - 0.7137E+01, 0.7335E+01, 0.7555E+01, 0.7801E+01,& - 0.8082E+01, 0.8407E+01, 0.8793E+01, 0.9268E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 60) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.2660E-04, 0.2660E-04, 0.4319E-04, 0.4319E-04,& - 0.5979E-04, 0.5979E-04, 0.7639E-04, 0.9298E-04,& - 0.1096E-03, 0.1262E-03, 0.1428E-03, 0.1594E-03,& - 0.1760E-03, 0.1926E-03, 0.2092E-03, 0.2258E-03,& - 0.2590E-03, 0.2756E-03, 0.2921E-03, 0.3253E-03,& - 0.3585E-03, 0.3751E-03, 0.4083E-03, 0.4415E-03,& - 0.4747E-03, 0.5079E-03, 0.5411E-03, 0.5909E-03,& - 0.6241E-03, 0.6573E-03, 0.7071E-03, 0.7403E-03,& - 0.7901E-03, 0.8398E-03, 0.8896E-03, 0.9228E-03,& - 0.9892E-03, 0.1039E-02, 0.1089E-02, 0.1139E-02,& - 0.1205E-02, 0.1255E-02, 0.1321E-02, 0.1371E-02,& - 0.1437E-02, 0.1504E-02, 0.1570E-02, 0.1636E-02,& - 0.1719E-02, 0.1786E-02, 0.1852E-02, 0.1935E-02,& - 0.2018E-02, 0.2085E-02, 0.2168E-02, 0.2251E-02,& - 0.2334E-02, 0.2433E-02, 0.2516E-02, 0.2599E-02,& - 0.2699E-02, 0.2798E-02, 0.2881E-02, 0.2981E-02,& - 0.3080E-02, 0.3197E-02, 0.3296E-02, 0.3396E-02,& - 0.3512E-02, 0.3612E-02, 0.3728E-02, 0.3844E-02,& - 0.3960E-02, 0.4076E-02, 0.4192E-02, 0.4325E-02,& - 0.4441E-02, 0.4574E-02, 0.4707E-02, 0.4840E-02,& - 0.4972E-02, 0.5105E-02, 0.5238E-02, 0.5371E-02,& - 0.5520E-02, 0.5670E-02, 0.5819E-02, 0.5968E-02,& - 0.6118E-02, 0.6267E-02, 0.6416E-02, 0.6582E-02,& - 0.6732E-02, 0.6898E-02, 0.7064E-02, 0.7230E-02,& - 0.7396E-02, 0.7578E-02, 0.7744E-02, 0.7927E-02,& - 0.8109E-02, 0.8292E-02, 0.8474E-02, 0.8657E-02,& - 0.8840E-02, 0.9039E-02, 0.9221E-02, 0.9420E-02,& - 0.9620E-02, 0.9819E-02, 0.1002E-01, 0.1023E-01,& - 0.1043E-01, 0.1065E-01, 0.1086E-01, 0.1108E-01,& - 0.1130E-01, 0.1151E-01, 0.1174E-01, 0.1198E-01,& - 0.1219E-01, 0.1242E-01, 0.1266E-01, 0.1291E-01,& - 0.1314E-01, 0.1339E-01, 0.1362E-01, 0.1387E-01,& - 0.1412E-01, 0.1438E-01, 0.1463E-01, 0.1490E-01,& - 0.1515E-01, 0.1541E-01, 0.1568E-01, 0.1594E-01,& - 0.1623E-01, 0.1649E-01, 0.1677E-01, 0.1706E-01,& - 0.1734E-01, 0.1762E-01, 0.1792E-01, 0.1820E-01,& - 0.1850E-01, 0.1880E-01, 0.1910E-01, 0.1940E-01,& - 0.1971E-01, 0.2001E-01, 0.2032E-01, 0.2064E-01,& - 0.2096E-01, 0.2127E-01, 0.2160E-01, 0.2193E-01,& - 0.2225E-01, 0.2258E-01, 0.2293E-01, 0.2326E-01,& - 0.2361E-01, 0.2394E-01, 0.2429E-01, 0.2464E-01,& - 0.2500E-01, 0.2535E-01, 0.2572E-01, 0.2608E-01,& - 0.2645E-01, 0.2681E-01, 0.2718E-01, 0.2756E-01,& - 0.2794E-01, 0.2832E-01, 0.2871E-01, 0.2909E-01,& - 0.2949E-01, 0.2988E-01, 0.3028E-01, 0.3068E-01,& - 0.3108E-01, 0.3149E-01, 0.3189E-01, 0.3231E-01,& - 0.3272E-01, 0.3315E-01, 0.3357E-01, 0.3400E-01,& - 0.3443E-01, 0.3486E-01, 0.3530E-01, 0.3573E-01,& - 0.3617E-01, 0.3662E-01, 0.3707E-01, 0.3752E-01,& - 0.3798E-01, 0.3845E-01, 0.3891E-01, 0.3938E-01,& - 0.3984E-01, 0.4031E-01, 0.4079E-01, 0.4127E-01,& - 0.4175E-01, 0.4225E-01, 0.4273E-01, 0.4323E-01,& - 0.4373E-01, 0.4422E-01, 0.4474E-01, 0.4524E-01,& - 0.4575E-01, 0.4627E-01, 0.4678E-01, 0.4731E-01,& - 0.4783E-01, 0.4836E-01, 0.4889E-01, 0.4944E-01,& - 0.4997E-01, 0.5051E-01, 0.5106E-01, 0.5161E-01,& - 0.5217E-01, 0.5272E-01, 0.5329E-01, 0.5385E-01,& - 0.5443E-01, 0.5500E-01, 0.5558E-01, 0.5616E-01,& - 0.5674E-01, 0.5734E-01, 0.5792E-01, 0.5851E-01,& - 0.5911E-01, 0.5973E-01, 0.6032E-01, 0.6094E-01,& - 0.6155E-01, 0.6218E-01, 0.6280E-01, 0.6343E-01,& - 0.6406E-01, 0.6469E-01, 0.6532E-01, 0.6597E-01,& - 0.6661E-01, 0.6726E-01, 0.6792E-01, 0.6857E-01,& - 0.6924E-01, 0.6990E-01, 0.7058E-01, 0.7124E-01,& - 0.7192E-01, 0.7260E-01, 0.7329E-01, 0.7398E-01,& - 0.7468E-01, 0.7538E-01, 0.7607E-01, 0.7679E-01,& - 0.7748E-01, 0.7821E-01, 0.7893E-01, 0.7964E-01,& - 0.8037E-01, 0.8110E-01, 0.8183E-01, 0.8258E-01,& - 0.8333E-01, 0.8407E-01, 0.8482E-01, 0.8558E-01,& - 0.8635E-01, 0.8711E-01, 0.8787E-01, 0.8865E-01,& - 0.8942E-01, 0.9020E-01, 0.9099E-01, 0.9177E-01,& - 0.9257E-01, 0.9337E-01, 0.9418E-01, 0.9499E-01,& - 0.9579E-01, 0.9662E-01, 0.9743E-01, 0.9826E-01,& - 0.9909E-01, 0.9992E-01, 0.1008E+00, 0.1016E+00,& - 0.1025E+00, 0.1033E+00, 0.1042E+00, 0.1050E+00,& - 0.1059E+00, 0.1068E+00, 0.1076E+00, 0.1085E+00,& - 0.1094E+00, 0.1103E+00, 0.1112E+00, 0.1121E+00,& - 0.1130E+00, 0.1139E+00, 0.1148E+00, 0.1157E+00,& - 0.1166E+00, 0.1176E+00, 0.1185E+00, 0.1194E+00,& - 0.1204E+00, 0.1213E+00, 0.1223E+00, 0.1232E+00,& - 0.1242E+00, 0.1252E+00, 0.1261E+00, 0.1271E+00,& - 0.1281E+00, 0.1291E+00, 0.1300E+00, 0.1310E+00,& - 0.1320E+00, 0.1330E+00, 0.1340E+00, 0.1351E+00,& - 0.1361E+00, 0.1371E+00, 0.1381E+00, 0.1392E+00,& - 0.1402E+00, 0.1412E+00, 0.1423E+00, 0.1433E+00,& - 0.1444E+00, 0.1455E+00, 0.1465E+00, 0.1476E+00,& - 0.1487E+00, 0.1498E+00, 0.1509E+00, 0.1520E+00,& - 0.1531E+00, 0.1541E+00, 0.1553E+00, 0.1564E+00,& - 0.1575E+00, 0.1586E+00, 0.1598E+00, 0.1609E+00,& - 0.1620E+00, 0.1632E+00, 0.1643E+00, 0.1655E+00,& - 0.1667E+00, 0.1678E+00, 0.1690E+00, 0.1702E+00,& - 0.1714E+00, 0.1726E+00, 0.1737E+00, 0.1750E+00,& - 0.1762E+00, 0.1774E+00, 0.1786E+00, 0.1798E+00,& - 0.1810E+00, 0.1823E+00, 0.1835E+00, 0.1848E+00,& - 0.1860E+00, 0.1873E+00, 0.1885E+00, 0.1898E+00,& - 0.1911E+00, 0.1924E+00, 0.1936E+00, 0.1949E+00,& - 0.1962E+00, 0.1975E+00, 0.1989E+00, 0.2002E+00,& - 0.2015E+00, 0.2028E+00, 0.2042E+00, 0.2055E+00,& - 0.2068E+00, 0.2082E+00, 0.2095E+00, 0.2109E+00,& - 0.2123E+00, 0.2137E+00, 0.2150E+00, 0.2164E+00,& - 0.2178E+00, 0.2192E+00, 0.2206E+00, 0.2220E+00,& - 0.2235E+00, 0.2249E+00, 0.2263E+00, 0.2278E+00,& - 0.2292E+00, 0.2306E+00, 0.2321E+00, 0.2336E+00,& - 0.2350E+00, 0.2365E+00, 0.2380E+00, 0.2395E+00,& - 0.2410E+00, 0.2425E+00, 0.2440E+00, 0.2455E+00,& - 0.2470E+00, 0.2485E+00, 0.2501E+00, 0.2516E+00,& - 0.2531E+00, 0.2547E+00, 0.2563E+00, 0.2578E+00,& - 0.2594E+00, 0.2610E+00, 0.2626E+00, 0.2642E+00,& - 0.2658E+00, 0.2674E+00, 0.2690E+00, 0.2706E+00,& - 0.2722E+00, 0.2739E+00, 0.2755E+00, 0.2771E+00,& - 0.2788E+00, 0.2805E+00, 0.2821E+00, 0.2838E+00,& - 0.2855E+00, 0.2872E+00, 0.2889E+00, 0.2906E+00,& - 0.2923E+00, 0.2940E+00, 0.2958E+00, 0.2975E+00,& - 0.2992E+00, 0.3010E+00, 0.3027E+00, 0.3045E+00,& - 0.3063E+00, 0.3080E+00, 0.3098E+00, 0.3116E+00,& - 0.3134E+00, 0.3152E+00, 0.3170E+00, 0.3189E+00,& - 0.3207E+00, 0.3225E+00, 0.3244E+00, 0.3262E+00,& - 0.3281E+00, 0.3300E+00, 0.3318E+00, 0.3337E+00,& - 0.3356E+00, 0.3375E+00, 0.3394E+00, 0.3413E+00,& - 0.3433E+00, 0.3452E+00, 0.3471E+00, 0.3491E+00,& - 0.3510E+00, 0.3530E+00, 0.3550E+00, 0.3569E+00,& - 0.3589E+00, 0.3609E+00, 0.3629E+00, 0.3649E+00,& - 0.3670E+00, 0.3690E+00, 0.3710E+00, 0.3731E+00,& - 0.3751E+00, 0.3772E+00, 0.3793E+00, 0.3813E+00,& - 0.3834E+00, 0.3855E+00, 0.3876E+00, 0.3897E+00,& - 0.3919E+00, 0.3940E+00, 0.3961E+00, 0.3983E+00,& - 0.4004E+00, 0.4026E+00, 0.4048E+00, 0.4070E+00,& - 0.4092E+00, 0.4114E+00, 0.4136E+00, 0.4158E+00,& - 0.4180E+00, 0.4203E+00, 0.4225E+00, 0.4248E+00,& - 0.4270E+00, 0.4293E+00, 0.4316E+00, 0.4339E+00,& - 0.4362E+00, 0.4385E+00, 0.4408E+00, 0.4432E+00,& - 0.4455E+00, 0.4479E+00, 0.4502E+00, 0.4526E+00,& - 0.4550E+00, 0.4574E+00, 0.4598E+00, 0.4622E+00,& - 0.4646E+00, 0.4670E+00, 0.4695E+00, 0.4719E+00,& - 0.4744E+00, 0.4768E+00, 0.4793E+00, 0.4818E+00,& - 0.4843E+00, 0.4868E+00, 0.4894E+00, 0.4919E+00,& - 0.4944E+00, 0.4970E+00, 0.4995E+00, 0.5021E+00,& - 0.5047E+00, 0.5073E+00, 0.5099E+00, 0.5125E+00,& - 0.5151E+00, 0.5178E+00, 0.5204E+00, 0.5231E+00,& - 0.5258E+00, 0.5284E+00, 0.5311E+00, 0.5338E+00,& - 0.5365E+00, 0.5393E+00, 0.5420E+00, 0.5448E+00,& - 0.5475E+00, 0.5503E+00, 0.5531E+00, 0.5559E+00,& - 0.5587E+00, 0.5615E+00, 0.5643E+00, 0.5671E+00,& - 0.5700E+00, 0.5729E+00, 0.5757E+00, 0.5786E+00,& - 0.5815E+00, 0.5844E+00, 0.5874E+00, 0.5903E+00,& - 0.5932E+00, 0.5962E+00, 0.5992E+00, 0.6022E+00,& - 0.6052E+00, 0.6082E+00, 0.6112E+00, 0.6142E+00,& - 0.6173E+00, 0.6204E+00, 0.6234E+00, 0.6265E+00,& - 0.6296E+00, 0.6327E+00, 0.6359E+00, 0.6390E+00,& - 0.6421E+00, 0.6453E+00, 0.6485E+00, 0.6517E+00,& - 0.6549E+00, 0.6581E+00, 0.6613E+00, 0.6646E+00,& - 0.6679E+00, 0.6711E+00, 0.6744E+00, 0.6777E+00,& - 0.6810E+00, 0.6844E+00, 0.6877E+00, 0.6911E+00,& - 0.6944E+00, 0.6978E+00, 0.7012E+00, 0.7046E+00,& - 0.7081E+00, 0.7115E+00, 0.7150E+00, 0.7185E+00,& - 0.7220E+00, 0.7255E+00, 0.7290E+00, 0.7325E+00,& - 0.7361E+00, 0.7397E+00, 0.7432E+00, 0.7468E+00,& - 0.7505E+00, 0.7541E+00, 0.7577E+00, 0.7614E+00,& - 0.7651E+00, 0.7688E+00, 0.7725E+00, 0.7762E+00,& - 0.7799E+00, 0.7837E+00, 0.7875E+00, 0.7913E+00,& - 0.7951E+00, 0.7989E+00, 0.8028E+00, 0.8066E+00,& - 0.8105E+00, 0.8144E+00, 0.8183E+00, 0.8222E+00,& - 0.8261E+00, 0.8301E+00, 0.8341E+00, 0.8381E+00,& - 0.8421E+00, 0.8462E+00, 0.8502E+00, 0.8543E+00,& - 0.8584E+00, 0.8625E+00, 0.8666E+00, 0.8708E+00,& - 0.8749E+00, 0.8791E+00, 0.8833E+00, 0.8875E+00,& - 0.8918E+00, 0.8960E+00, 0.9003E+00, 0.9046E+00,& - 0.9089E+00, 0.9133E+00, 0.9176E+00, 0.9220E+00,& - 0.9264E+00, 0.9308E+00, 0.9353E+00, 0.9397E+00,& - 0.9442E+00, 0.9487E+00, 0.9532E+00, 0.9578E+00,& - 0.9623E+00, 0.9669E+00, 0.9715E+00, 0.9762E+00,& - 0.9808E+00, 0.9855E+00, 0.9902E+00, 0.9949E+00,& - 0.9997E+00, 0.1004E+01, 0.1009E+01, 0.1014E+01,& - 0.1019E+01, 0.1024E+01, 0.1029E+01, 0.1033E+01,& - 0.1038E+01, 0.1043E+01, 0.1048E+01, 0.1053E+01,& - 0.1058E+01, 0.1063E+01, 0.1068E+01, 0.1074E+01,& - 0.1079E+01, 0.1084E+01, 0.1089E+01, 0.1094E+01,& - 0.1099E+01, 0.1105E+01, 0.1110E+01, 0.1115E+01,& - 0.1121E+01, 0.1126E+01, 0.1131E+01, 0.1137E+01,& - 0.1142E+01, 0.1148E+01, 0.1153E+01, 0.1159E+01,& - 0.1164E+01, 0.1170E+01, 0.1175E+01, 0.1181E+01,& - 0.1187E+01, 0.1192E+01, 0.1198E+01, 0.1204E+01,& - 0.1210E+01, 0.1215E+01, 0.1221E+01, 0.1227E+01,& - 0.1233E+01, 0.1239E+01, 0.1245E+01, 0.1251E+01,& - 0.1257E+01, 0.1263E+01, 0.1269E+01, 0.1275E+01,& - 0.1281E+01, 0.1288E+01, 0.1294E+01, 0.1300E+01,& - 0.1306E+01, 0.1313E+01, 0.1319E+01, 0.1325E+01,& - 0.1332E+01, 0.1338E+01, 0.1345E+01, 0.1351E+01,& - 0.1358E+01, 0.1365E+01, 0.1371E+01, 0.1378E+01,& - 0.1385E+01, 0.1391E+01, 0.1398E+01, 0.1405E+01,& - 0.1412E+01, 0.1419E+01, 0.1426E+01, 0.1433E+01,& - 0.1440E+01, 0.1447E+01, 0.1454E+01, 0.1461E+01,& - 0.1468E+01, 0.1476E+01, 0.1483E+01, 0.1490E+01,& - 0.1498E+01, 0.1505E+01, 0.1513E+01, 0.1520E+01,& - 0.1528E+01, 0.1535E+01, 0.1543E+01, 0.1551E+01,& - 0.1558E+01, 0.1566E+01, 0.1574E+01, 0.1582E+01,& - 0.1590E+01, 0.1598E+01, 0.1606E+01, 0.1614E+01,& - 0.1622E+01, 0.1630E+01, 0.1638E+01, 0.1647E+01,& - 0.1655E+01, 0.1663E+01, 0.1672E+01, 0.1680E+01,& - 0.1689E+01, 0.1697E+01, 0.1706E+01, 0.1715E+01,& - 0.1724E+01, 0.1732E+01, 0.1741E+01, 0.1750E+01,& - 0.1759E+01, 0.1768E+01, 0.1777E+01, 0.1787E+01,& - 0.1796E+01, 0.1805E+01, 0.1815E+01, 0.1824E+01,& - 0.1834E+01, 0.1843E+01, 0.1853E+01, 0.1863E+01,& - 0.1872E+01, 0.1882E+01, 0.1892E+01, 0.1902E+01,& - 0.1912E+01, 0.1922E+01, 0.1933E+01, 0.1943E+01,& - 0.1953E+01, 0.1964E+01, 0.1974E+01, 0.1985E+01,& - 0.1996E+01, 0.2006E+01, 0.2017E+01, 0.2028E+01,& - 0.2039E+01, 0.2050E+01, 0.2061E+01, 0.2073E+01,& - 0.2084E+01, 0.2096E+01, 0.2107E+01, 0.2119E+01,& - 0.2130E+01, 0.2142E+01, 0.2154E+01, 0.2166E+01,& - 0.2178E+01, 0.2191E+01, 0.2203E+01, 0.2215E+01,& - 0.2228E+01, 0.2240E+01, 0.2253E+01, 0.2266E+01,& - 0.2279E+01, 0.2292E+01, 0.2305E+01, 0.2319E+01,& - 0.2332E+01, 0.2346E+01, 0.2359E+01, 0.2373E+01,& - 0.2387E+01, 0.2401E+01, 0.2415E+01, 0.2429E+01,& - 0.2444E+01, 0.2458E+01, 0.2473E+01, 0.2488E+01,& - 0.2503E+01, 0.2518E+01, 0.2533E+01, 0.2549E+01,& - 0.2564E+01, 0.2580E+01, 0.2596E+01, 0.2612E+01,& - 0.2628E+01, 0.2645E+01, 0.2661E+01, 0.2678E+01,& - 0.2695E+01, 0.2712E+01, 0.2730E+01, 0.2747E+01,& - 0.2765E+01, 0.2783E+01, 0.2801E+01, 0.2819E+01,& - 0.2837E+01, 0.2856E+01, 0.2875E+01, 0.2894E+01,& - 0.2913E+01, 0.2933E+01, 0.2953E+01, 0.2973E+01,& - 0.2993E+01, 0.3013E+01, 0.3035E+01, 0.3056E+01,& - 0.3077E+01, 0.3099E+01, 0.3120E+01, 0.3143E+01,& - 0.3165E+01, 0.3188E+01, 0.3211E+01, 0.3234E+01,& - 0.3258E+01, 0.3282E+01, 0.3307E+01, 0.3332E+01,& - 0.3357E+01, 0.3382E+01, 0.3408E+01, 0.3434E+01,& - 0.3461E+01, 0.3488E+01, 0.3516E+01, 0.3544E+01,& - 0.3572E+01, 0.3601E+01, 0.3630E+01, 0.3660E+01,& - 0.3691E+01, 0.3722E+01, 0.3753E+01, 0.3785E+01,& - 0.3818E+01, 0.3851E+01, 0.3885E+01, 0.3920E+01,& - 0.3955E+01, 0.3991E+01, 0.4027E+01, 0.4065E+01,& - 0.4103E+01, 0.4142E+01, 0.4182E+01, 0.4222E+01,& - 0.4264E+01, 0.4307E+01, 0.4350E+01, 0.4395E+01,& - 0.4441E+01, 0.4488E+01, 0.4536E+01, 0.4585E+01,& - 0.4636E+01, 0.4688E+01, 0.4742E+01, 0.4797E+01,& - 0.4854E+01, 0.4912E+01, 0.4972E+01, 0.5035E+01,& - 0.5100E+01, 0.5166E+01, 0.5236E+01, 0.5307E+01,& - 0.5382E+01, 0.5459E+01, 0.5540E+01, 0.5624E+01,& - 0.5712E+01, 0.5804E+01, 0.5901E+01, 0.6002E+01,& - 0.6109E+01, 0.6222E+01, 0.6342E+01, 0.6469E+01,& - 0.6605E+01, 0.6750E+01, 0.6907E+01, 0.7077E+01,& - 0.7262E+01, 0.7466E+01, 0.7692E+01, 0.7945E+01,& - 0.8233E+01, 0.8567E+01, 0.8964E+01, 0.9453E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 61) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2698E-04, 0.2698E-04, 0.2698E-04,& - 0.4395E-04, 0.4395E-04, 0.6093E-04, 0.6093E-04,& - 0.7790E-04, 0.9488E-04, 0.9488E-04, 0.1119E-03,& - 0.1288E-03, 0.1458E-03, 0.1628E-03, 0.1798E-03,& - 0.1967E-03, 0.2137E-03, 0.2307E-03, 0.2477E-03,& - 0.2816E-03, 0.2986E-03, 0.3156E-03, 0.3495E-03,& - 0.3665E-03, 0.4004E-03, 0.4344E-03, 0.4514E-03,& - 0.4853E-03, 0.5193E-03, 0.5532E-03, 0.5872E-03,& - 0.6211E-03, 0.6720E-03, 0.7060E-03, 0.7399E-03,& - 0.7909E-03, 0.8248E-03, 0.8757E-03, 0.9267E-03,& - 0.9606E-03, 0.1012E-02, 0.1062E-02, 0.1113E-02,& - 0.1181E-02, 0.1232E-02, 0.1283E-02, 0.1334E-02,& - 0.1402E-02, 0.1470E-02, 0.1521E-02, 0.1589E-02,& - 0.1657E-02, 0.1725E-02, 0.1792E-02, 0.1860E-02,& - 0.1928E-02, 0.2013E-02, 0.2081E-02, 0.2166E-02,& - 0.2234E-02, 0.2319E-02, 0.2404E-02, 0.2488E-02,& - 0.2573E-02, 0.2658E-02, 0.2760E-02, 0.2845E-02,& - 0.2930E-02, 0.3032E-02, 0.3133E-02, 0.3235E-02,& - 0.3337E-02, 0.3439E-02, 0.3541E-02, 0.3643E-02,& - 0.3762E-02, 0.3863E-02, 0.3982E-02, 0.4084E-02,& - 0.4203E-02, 0.4322E-02, 0.4441E-02, 0.4576E-02,& - 0.4695E-02, 0.4814E-02, 0.4950E-02, 0.5086E-02,& - 0.5204E-02, 0.5340E-02, 0.5476E-02, 0.5629E-02,& - 0.5765E-02, 0.5900E-02, 0.6053E-02, 0.6206E-02,& - 0.6359E-02, 0.6495E-02, 0.6664E-02, 0.6817E-02,& - 0.6970E-02, 0.7140E-02, 0.7292E-02, 0.7462E-02,& - 0.7632E-02, 0.7802E-02, 0.7971E-02, 0.8141E-02,& - 0.8328E-02, 0.8498E-02, 0.8684E-02, 0.8871E-02,& - 0.9058E-02, 0.9245E-02, 0.9431E-02, 0.9635E-02,& - 0.9822E-02, 0.1003E-01, 0.1023E-01, 0.1043E-01,& - 0.1064E-01, 0.1084E-01, 0.1106E-01, 0.1126E-01,& - 0.1149E-01, 0.1171E-01, 0.1193E-01, 0.1215E-01,& - 0.1237E-01, 0.1261E-01, 0.1283E-01, 0.1306E-01,& - 0.1330E-01, 0.1354E-01, 0.1378E-01, 0.1401E-01,& - 0.1427E-01, 0.1452E-01, 0.1478E-01, 0.1503E-01,& - 0.1529E-01, 0.1554E-01, 0.1580E-01, 0.1607E-01,& - 0.1634E-01, 0.1661E-01, 0.1688E-01, 0.1716E-01,& - 0.1744E-01, 0.1772E-01, 0.1800E-01, 0.1829E-01,& - 0.1858E-01, 0.1887E-01, 0.1918E-01, 0.1946E-01,& - 0.1977E-01, 0.2007E-01, 0.2038E-01, 0.2070E-01,& - 0.2101E-01, 0.2133E-01, 0.2164E-01, 0.2196E-01,& - 0.2230E-01, 0.2262E-01, 0.2294E-01, 0.2328E-01,& - 0.2362E-01, 0.2396E-01, 0.2430E-01, 0.2464E-01,& - 0.2500E-01, 0.2535E-01, 0.2571E-01, 0.2607E-01,& - 0.2642E-01, 0.2678E-01, 0.2715E-01, 0.2753E-01,& - 0.2790E-01, 0.2827E-01, 0.2865E-01, 0.2904E-01,& - 0.2943E-01, 0.2982E-01, 0.3021E-01, 0.3060E-01,& - 0.3101E-01, 0.3140E-01, 0.3180E-01, 0.3221E-01,& - 0.3262E-01, 0.3304E-01, 0.3345E-01, 0.3388E-01,& - 0.3430E-01, 0.3474E-01, 0.3517E-01, 0.3561E-01,& - 0.3603E-01, 0.3647E-01, 0.3693E-01, 0.3737E-01,& - 0.3783E-01, 0.3827E-01, 0.3873E-01, 0.3921E-01,& - 0.3966E-01, 0.4014E-01, 0.4060E-01, 0.4107E-01,& - 0.4157E-01, 0.4204E-01, 0.4253E-01, 0.4301E-01,& - 0.4350E-01, 0.4401E-01, 0.4450E-01, 0.4501E-01,& - 0.4552E-01, 0.4603E-01, 0.4654E-01, 0.4707E-01,& - 0.4758E-01, 0.4810E-01, 0.4863E-01, 0.4917E-01,& - 0.4970E-01, 0.5024E-01, 0.5078E-01, 0.5133E-01,& - 0.5189E-01, 0.5243E-01, 0.5299E-01, 0.5355E-01,& - 0.5413E-01, 0.5469E-01, 0.5526E-01, 0.5584E-01,& - 0.5642E-01, 0.5701E-01, 0.5759E-01, 0.5818E-01,& - 0.5878E-01, 0.5937E-01, 0.5998E-01, 0.6060E-01,& - 0.6121E-01, 0.6182E-01, 0.6243E-01, 0.6306E-01,& - 0.6368E-01, 0.6431E-01, 0.6496E-01, 0.6559E-01,& - 0.6623E-01, 0.6688E-01, 0.6754E-01, 0.6818E-01,& - 0.6885E-01, 0.6951E-01, 0.7017E-01, 0.7085E-01,& - 0.7153E-01, 0.7221E-01, 0.7289E-01, 0.7356E-01,& - 0.7426E-01, 0.7496E-01, 0.7565E-01, 0.7637E-01,& - 0.7706E-01, 0.7777E-01, 0.7849E-01, 0.7922E-01,& - 0.7995E-01, 0.8068E-01, 0.8141E-01, 0.8214E-01,& - 0.8288E-01, 0.8363E-01, 0.8438E-01, 0.8512E-01,& - 0.8589E-01, 0.8665E-01, 0.8742E-01, 0.8820E-01,& - 0.8898E-01, 0.8976E-01, 0.9054E-01, 0.9132E-01,& - 0.9212E-01, 0.9292E-01, 0.9371E-01, 0.9453E-01,& - 0.9534E-01, 0.9616E-01, 0.9697E-01, 0.9781E-01,& - 0.9864E-01, 0.9947E-01, 0.1003E+00, 0.1011E+00,& - 0.1020E+00, 0.1028E+00, 0.1037E+00, 0.1046E+00,& - 0.1054E+00, 0.1063E+00, 0.1072E+00, 0.1081E+00,& - 0.1090E+00, 0.1098E+00, 0.1107E+00, 0.1116E+00,& - 0.1125E+00, 0.1134E+00, 0.1144E+00, 0.1153E+00,& - 0.1162E+00, 0.1171E+00, 0.1181E+00, 0.1190E+00,& - 0.1199E+00, 0.1209E+00, 0.1218E+00, 0.1228E+00,& - 0.1238E+00, 0.1247E+00, 0.1257E+00, 0.1267E+00,& - 0.1277E+00, 0.1286E+00, 0.1297E+00, 0.1306E+00,& - 0.1317E+00, 0.1327E+00, 0.1337E+00, 0.1347E+00,& - 0.1357E+00, 0.1367E+00, 0.1378E+00, 0.1388E+00,& - 0.1399E+00, 0.1409E+00, 0.1420E+00, 0.1430E+00,& - 0.1441E+00, 0.1451E+00, 0.1462E+00, 0.1473E+00,& - 0.1484E+00, 0.1495E+00, 0.1506E+00, 0.1517E+00,& - 0.1528E+00, 0.1539E+00, 0.1550E+00, 0.1561E+00,& - 0.1573E+00, 0.1584E+00, 0.1595E+00, 0.1607E+00,& - 0.1618E+00, 0.1630E+00, 0.1641E+00, 0.1653E+00,& - 0.1665E+00, 0.1677E+00, 0.1688E+00, 0.1701E+00,& - 0.1712E+00, 0.1724E+00, 0.1737E+00, 0.1749E+00,& - 0.1761E+00, 0.1773E+00, 0.1785E+00, 0.1798E+00,& - 0.1810E+00, 0.1823E+00, 0.1835E+00, 0.1848E+00,& - 0.1860E+00, 0.1873E+00, 0.1886E+00, 0.1899E+00,& - 0.1912E+00, 0.1924E+00, 0.1938E+00, 0.1951E+00,& - 0.1964E+00, 0.1977E+00, 0.1990E+00, 0.2003E+00,& - 0.2017E+00, 0.2030E+00, 0.2044E+00, 0.2057E+00,& - 0.2071E+00, 0.2085E+00, 0.2098E+00, 0.2112E+00,& - 0.2126E+00, 0.2140E+00, 0.2154E+00, 0.2168E+00,& - 0.2182E+00, 0.2196E+00, 0.2210E+00, 0.2225E+00,& - 0.2239E+00, 0.2253E+00, 0.2268E+00, 0.2282E+00,& - 0.2297E+00, 0.2312E+00, 0.2327E+00, 0.2341E+00,& - 0.2356E+00, 0.2371E+00, 0.2386E+00, 0.2401E+00,& - 0.2417E+00, 0.2432E+00, 0.2447E+00, 0.2462E+00,& - 0.2478E+00, 0.2493E+00, 0.2509E+00, 0.2525E+00,& - 0.2540E+00, 0.2556E+00, 0.2572E+00, 0.2588E+00,& - 0.2604E+00, 0.2620E+00, 0.2636E+00, 0.2652E+00,& - 0.2668E+00, 0.2685E+00, 0.2701E+00, 0.2718E+00,& - 0.2734E+00, 0.2751E+00, 0.2767E+00, 0.2784E+00,& - 0.2801E+00, 0.2818E+00, 0.2835E+00, 0.2852E+00,& - 0.2869E+00, 0.2886E+00, 0.2904E+00, 0.2921E+00,& - 0.2938E+00, 0.2956E+00, 0.2974E+00, 0.2991E+00,& - 0.3009E+00, 0.3027E+00, 0.3044E+00, 0.3062E+00,& - 0.3081E+00, 0.3099E+00, 0.3117E+00, 0.3135E+00,& - 0.3153E+00, 0.3172E+00, 0.3190E+00, 0.3209E+00,& - 0.3228E+00, 0.3246E+00, 0.3265E+00, 0.3284E+00,& - 0.3303E+00, 0.3322E+00, 0.3341E+00, 0.3361E+00,& - 0.3380E+00, 0.3399E+00, 0.3419E+00, 0.3438E+00,& - 0.3458E+00, 0.3478E+00, 0.3498E+00, 0.3517E+00,& - 0.3537E+00, 0.3557E+00, 0.3577E+00, 0.3598E+00,& - 0.3618E+00, 0.3638E+00, 0.3659E+00, 0.3680E+00,& - 0.3700E+00, 0.3721E+00, 0.3742E+00, 0.3763E+00,& - 0.3784E+00, 0.3805E+00, 0.3826E+00, 0.3847E+00,& - 0.3869E+00, 0.3890E+00, 0.3912E+00, 0.3933E+00,& - 0.3955E+00, 0.3977E+00, 0.3999E+00, 0.4021E+00,& - 0.4043E+00, 0.4065E+00, 0.4087E+00, 0.4110E+00,& - 0.4132E+00, 0.4155E+00, 0.4178E+00, 0.4200E+00,& - 0.4223E+00, 0.4246E+00, 0.4269E+00, 0.4292E+00,& - 0.4316E+00, 0.4339E+00, 0.4362E+00, 0.4386E+00,& - 0.4410E+00, 0.4433E+00, 0.4457E+00, 0.4481E+00,& - 0.4505E+00, 0.4529E+00, 0.4554E+00, 0.4578E+00,& - 0.4602E+00, 0.4627E+00, 0.4652E+00, 0.4676E+00,& - 0.4701E+00, 0.4726E+00, 0.4751E+00, 0.4776E+00,& - 0.4802E+00, 0.4827E+00, 0.4853E+00, 0.4878E+00,& - 0.4904E+00, 0.4930E+00, 0.4956E+00, 0.4982E+00,& - 0.5008E+00, 0.5034E+00, 0.5060E+00, 0.5087E+00,& - 0.5114E+00, 0.5140E+00, 0.5167E+00, 0.5194E+00,& - 0.5221E+00, 0.5248E+00, 0.5276E+00, 0.5303E+00,& - 0.5330E+00, 0.5358E+00, 0.5386E+00, 0.5414E+00,& - 0.5442E+00, 0.5470E+00, 0.5498E+00, 0.5526E+00,& - 0.5555E+00, 0.5583E+00, 0.5612E+00, 0.5641E+00,& - 0.5670E+00, 0.5699E+00, 0.5728E+00, 0.5757E+00,& - 0.5787E+00, 0.5816E+00, 0.5846E+00, 0.5876E+00,& - 0.5906E+00, 0.5936E+00, 0.5966E+00, 0.5996E+00,& - 0.6027E+00, 0.6057E+00, 0.6088E+00, 0.6119E+00,& - 0.6150E+00, 0.6181E+00, 0.6212E+00, 0.6244E+00,& - 0.6275E+00, 0.6307E+00, 0.6339E+00, 0.6371E+00,& - 0.6403E+00, 0.6435E+00, 0.6467E+00, 0.6500E+00,& - 0.6533E+00, 0.6565E+00, 0.6598E+00, 0.6631E+00,& - 0.6664E+00, 0.6698E+00, 0.6731E+00, 0.6765E+00,& - 0.6799E+00, 0.6833E+00, 0.6867E+00, 0.6901E+00,& - 0.6935E+00, 0.6970E+00, 0.7005E+00, 0.7039E+00,& - 0.7074E+00, 0.7110E+00, 0.7145E+00, 0.7180E+00,& - 0.7216E+00, 0.7252E+00, 0.7288E+00, 0.7324E+00,& - 0.7360E+00, 0.7396E+00, 0.7433E+00, 0.7470E+00,& - 0.7507E+00, 0.7544E+00, 0.7581E+00, 0.7618E+00,& - 0.7656E+00, 0.7694E+00, 0.7731E+00, 0.7769E+00,& - 0.7808E+00, 0.7846E+00, 0.7885E+00, 0.7923E+00,& - 0.7962E+00, 0.8001E+00, 0.8041E+00, 0.8080E+00,& - 0.8120E+00, 0.8160E+00, 0.8200E+00, 0.8240E+00,& - 0.8280E+00, 0.8321E+00, 0.8362E+00, 0.8402E+00,& - 0.8443E+00, 0.8485E+00, 0.8526E+00, 0.8568E+00,& - 0.8610E+00, 0.8652E+00, 0.8694E+00, 0.8737E+00,& - 0.8779E+00, 0.8822E+00, 0.8865E+00, 0.8908E+00,& - 0.8952E+00, 0.8996E+00, 0.9039E+00, 0.9083E+00,& - 0.9128E+00, 0.9172E+00, 0.9217E+00, 0.9262E+00,& - 0.9307E+00, 0.9352E+00, 0.9398E+00, 0.9444E+00,& - 0.9490E+00, 0.9536E+00, 0.9582E+00, 0.9629E+00,& - 0.9676E+00, 0.9723E+00, 0.9770E+00, 0.9818E+00,& - 0.9865E+00, 0.9913E+00, 0.9962E+00, 0.1001E+01,& - 0.1006E+01, 0.1011E+01, 0.1016E+01, 0.1021E+01,& - 0.1026E+01, 0.1031E+01, 0.1036E+01, 0.1041E+01,& - 0.1046E+01, 0.1051E+01, 0.1056E+01, 0.1061E+01,& - 0.1066E+01, 0.1071E+01, 0.1077E+01, 0.1082E+01,& - 0.1087E+01, 0.1092E+01, 0.1098E+01, 0.1103E+01,& - 0.1109E+01, 0.1114E+01, 0.1119E+01, 0.1125E+01,& - 0.1130E+01, 0.1136E+01, 0.1141E+01, 0.1147E+01,& - 0.1153E+01, 0.1158E+01, 0.1164E+01, 0.1170E+01,& - 0.1175E+01, 0.1181E+01, 0.1187E+01, 0.1193E+01,& - 0.1198E+01, 0.1204E+01, 0.1210E+01, 0.1216E+01,& - 0.1222E+01, 0.1228E+01, 0.1234E+01, 0.1240E+01,& - 0.1246E+01, 0.1252E+01, 0.1259E+01, 0.1265E+01,& - 0.1271E+01, 0.1277E+01, 0.1284E+01, 0.1290E+01,& - 0.1296E+01, 0.1303E+01, 0.1309E+01, 0.1316E+01,& - 0.1322E+01, 0.1329E+01, 0.1335E+01, 0.1342E+01,& - 0.1348E+01, 0.1355E+01, 0.1362E+01, 0.1369E+01,& - 0.1375E+01, 0.1382E+01, 0.1389E+01, 0.1396E+01,& - 0.1403E+01, 0.1410E+01, 0.1417E+01, 0.1424E+01,& - 0.1431E+01, 0.1439E+01, 0.1446E+01, 0.1453E+01,& - 0.1460E+01, 0.1468E+01, 0.1475E+01, 0.1482E+01,& - 0.1490E+01, 0.1497E+01, 0.1505E+01, 0.1513E+01,& - 0.1520E+01, 0.1528E+01, 0.1536E+01, 0.1544E+01,& - 0.1551E+01, 0.1559E+01, 0.1567E+01, 0.1575E+01,& - 0.1583E+01, 0.1591E+01, 0.1599E+01, 0.1608E+01,& - 0.1616E+01, 0.1624E+01, 0.1633E+01, 0.1641E+01,& - 0.1649E+01, 0.1658E+01, 0.1666E+01, 0.1675E+01,& - 0.1684E+01, 0.1693E+01, 0.1701E+01, 0.1710E+01,& - 0.1719E+01, 0.1728E+01, 0.1737E+01, 0.1746E+01,& - 0.1755E+01, 0.1765E+01, 0.1774E+01, 0.1783E+01,& - 0.1793E+01, 0.1802E+01, 0.1812E+01, 0.1821E+01,& - 0.1831E+01, 0.1841E+01, 0.1850E+01, 0.1860E+01,& - 0.1870E+01, 0.1880E+01, 0.1890E+01, 0.1901E+01,& - 0.1911E+01, 0.1921E+01, 0.1932E+01, 0.1942E+01,& - 0.1953E+01, 0.1963E+01, 0.1974E+01, 0.1985E+01,& - 0.1996E+01, 0.2007E+01, 0.2018E+01, 0.2029E+01,& - 0.2040E+01, 0.2051E+01, 0.2063E+01, 0.2074E+01,& - 0.2086E+01, 0.2097E+01, 0.2109E+01, 0.2121E+01,& - 0.2133E+01, 0.2145E+01, 0.2157E+01, 0.2169E+01,& - 0.2182E+01, 0.2194E+01, 0.2206E+01, 0.2219E+01,& - 0.2232E+01, 0.2245E+01, 0.2258E+01, 0.2271E+01,& - 0.2284E+01, 0.2297E+01, 0.2311E+01, 0.2324E+01,& - 0.2338E+01, 0.2352E+01, 0.2366E+01, 0.2380E+01,& - 0.2394E+01, 0.2408E+01, 0.2423E+01, 0.2437E+01,& - 0.2452E+01, 0.2467E+01, 0.2482E+01, 0.2497E+01,& - 0.2512E+01, 0.2528E+01, 0.2543E+01, 0.2559E+01,& - 0.2575E+01, 0.2591E+01, 0.2607E+01, 0.2624E+01,& - 0.2640E+01, 0.2657E+01, 0.2674E+01, 0.2691E+01,& - 0.2708E+01, 0.2726E+01, 0.2743E+01, 0.2761E+01,& - 0.2779E+01, 0.2797E+01, 0.2816E+01, 0.2834E+01,& - 0.2853E+01, 0.2872E+01, 0.2892E+01, 0.2911E+01,& - 0.2931E+01, 0.2951E+01, 0.2971E+01, 0.2992E+01,& - 0.3012E+01, 0.3033E+01, 0.3055E+01, 0.3076E+01,& - 0.3098E+01, 0.3120E+01, 0.3142E+01, 0.3165E+01,& - 0.3188E+01, 0.3211E+01, 0.3235E+01, 0.3259E+01,& - 0.3283E+01, 0.3308E+01, 0.3333E+01, 0.3358E+01,& - 0.3384E+01, 0.3410E+01, 0.3436E+01, 0.3463E+01,& - 0.3491E+01, 0.3518E+01, 0.3546E+01, 0.3575E+01,& - 0.3604E+01, 0.3634E+01, 0.3664E+01, 0.3694E+01,& - 0.3725E+01, 0.3757E+01, 0.3789E+01, 0.3822E+01,& - 0.3855E+01, 0.3889E+01, 0.3924E+01, 0.3959E+01,& - 0.3996E+01, 0.4032E+01, 0.4068E+01, 0.4108E+01,& - 0.4147E+01, 0.4187E+01, 0.4228E+01, 0.4269E+01,& - 0.4312E+01, 0.4356E+01, 0.4400E+01, 0.4446E+01,& - 0.4493E+01, 0.4541E+01, 0.4590E+01, 0.4641E+01,& - 0.4693E+01, 0.4746E+01, 0.4801E+01, 0.4858E+01,& - 0.4916E+01, 0.4976E+01, 0.5038E+01, 0.5102E+01,& - 0.5168E+01, 0.5237E+01, 0.5308E+01, 0.5381E+01,& - 0.5458E+01, 0.5537E+01, 0.5620E+01, 0.5706E+01,& - 0.5797E+01, 0.5891E+01, 0.5990E+01, 0.6094E+01,& - 0.6204E+01, 0.6320E+01, 0.6443E+01, 0.6573E+01,& - 0.6713E+01, 0.6862E+01, 0.7023E+01, 0.7198E+01,& - 0.7388E+01, 0.7597E+01, 0.7829E+01, 0.8089E+01,& - 0.8385E+01, 0.8729E+01, 0.9137E+01, 0.9639E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 62) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2736E-04,& - 0.2736E-04, 0.2736E-04, 0.4472E-04, 0.4472E-04,& - 0.6208E-04, 0.6208E-04, 0.7944E-04, 0.7944E-04,& - 0.9680E-04, 0.9680E-04, 0.1142E-03, 0.1315E-03,& - 0.1489E-03, 0.1662E-03, 0.1836E-03, 0.2010E-03,& - 0.2183E-03, 0.2357E-03, 0.2530E-03, 0.2704E-03,& - 0.2878E-03, 0.3051E-03, 0.3398E-03, 0.3572E-03,& - 0.3919E-03, 0.4093E-03, 0.4440E-03, 0.4614E-03,& - 0.4961E-03, 0.5308E-03, 0.5655E-03, 0.6002E-03,& - 0.6350E-03, 0.6697E-03, 0.7044E-03, 0.7391E-03,& - 0.7738E-03, 0.8259E-03, 0.8606E-03, 0.9127E-03,& - 0.9474E-03, 0.9995E-03, 0.1052E-02, 0.1086E-02,& - 0.1138E-02, 0.1190E-02, 0.1243E-02, 0.1295E-02,& - 0.1364E-02, 0.1416E-02, 0.1468E-02, 0.1538E-02,& - 0.1590E-02, 0.1659E-02, 0.1729E-02, 0.1781E-02,& - 0.1850E-02, 0.1920E-02, 0.1989E-02, 0.2058E-02,& - 0.2145E-02, 0.2215E-02, 0.2301E-02, 0.2371E-02,& - 0.2458E-02, 0.2527E-02, 0.2614E-02, 0.2701E-02,& - 0.2788E-02, 0.2874E-02, 0.2979E-02, 0.3065E-02,& - 0.3152E-02, 0.3256E-02, 0.3343E-02, 0.3447E-02,& - 0.3551E-02, 0.3656E-02, 0.3760E-02, 0.3864E-02,& - 0.3985E-02, 0.4090E-02, 0.4194E-02, 0.4315E-02,& - 0.4437E-02, 0.4541E-02, 0.4662E-02, 0.4784E-02,& - 0.4923E-02, 0.5044E-02, 0.5166E-02, 0.5305E-02,& - 0.5426E-02, 0.5565E-02, 0.5704E-02, 0.5843E-02,& - 0.5982E-02, 0.6121E-02, 0.6277E-02, 0.6416E-02,& - 0.6572E-02, 0.6711E-02, 0.6867E-02, 0.7023E-02,& - 0.7180E-02, 0.7336E-02, 0.7509E-02, 0.7666E-02,& - 0.7839E-02, 0.7996E-02, 0.8169E-02, 0.8343E-02,& - 0.8516E-02, 0.8707E-02, 0.8881E-02, 0.9054E-02,& - 0.9245E-02, 0.9436E-02, 0.9627E-02, 0.9818E-02,& - 0.1001E-01, 0.1020E-01, 0.1041E-01, 0.1060E-01,& - 0.1081E-01, 0.1102E-01, 0.1122E-01, 0.1143E-01,& - 0.1164E-01, 0.1187E-01, 0.1208E-01, 0.1230E-01,& - 0.1253E-01, 0.1275E-01, 0.1298E-01, 0.1320E-01,& - 0.1343E-01, 0.1367E-01, 0.1392E-01, 0.1416E-01,& - 0.1440E-01, 0.1464E-01, 0.1489E-01, 0.1515E-01,& - 0.1539E-01, 0.1565E-01, 0.1591E-01, 0.1617E-01,& - 0.1643E-01, 0.1671E-01, 0.1697E-01, 0.1725E-01,& - 0.1753E-01, 0.1780E-01, 0.1808E-01, 0.1838E-01,& - 0.1865E-01, 0.1895E-01, 0.1924E-01, 0.1954E-01,& - 0.1983E-01, 0.2013E-01, 0.2043E-01, 0.2074E-01,& - 0.2105E-01, 0.2136E-01, 0.2168E-01, 0.2199E-01,& - 0.2232E-01, 0.2265E-01, 0.2296E-01, 0.2329E-01,& - 0.2364E-01, 0.2397E-01, 0.2430E-01, 0.2464E-01,& - 0.2499E-01, 0.2534E-01, 0.2569E-01, 0.2603E-01,& - 0.2640E-01, 0.2676E-01, 0.2713E-01, 0.2749E-01,& - 0.2786E-01, 0.2822E-01, 0.2860E-01, 0.2898E-01,& - 0.2937E-01, 0.2975E-01, 0.3013E-01, 0.3053E-01,& - 0.3093E-01, 0.3133E-01, 0.3173E-01, 0.3213E-01,& - 0.3252E-01, 0.3294E-01, 0.3336E-01, 0.3377E-01,& - 0.3419E-01, 0.3463E-01, 0.3504E-01, 0.3548E-01,& - 0.3591E-01, 0.3634E-01, 0.3678E-01, 0.3723E-01,& - 0.3768E-01, 0.3813E-01, 0.3858E-01, 0.3903E-01,& - 0.3950E-01, 0.3997E-01, 0.4044E-01, 0.4091E-01,& - 0.4138E-01, 0.4186E-01, 0.4233E-01, 0.4282E-01,& - 0.4331E-01, 0.4381E-01, 0.4429E-01, 0.4480E-01,& - 0.4530E-01, 0.4581E-01, 0.4633E-01, 0.4683E-01,& - 0.4735E-01, 0.4787E-01, 0.4839E-01, 0.4893E-01,& - 0.4945E-01, 0.4999E-01, 0.5053E-01, 0.5108E-01,& - 0.5162E-01, 0.5218E-01, 0.5273E-01, 0.5329E-01,& - 0.5384E-01, 0.5442E-01, 0.5499E-01, 0.5556E-01,& - 0.5613E-01, 0.5671E-01, 0.5730E-01, 0.5789E-01,& - 0.5848E-01, 0.5909E-01, 0.5968E-01, 0.6028E-01,& - 0.6089E-01, 0.6150E-01, 0.6212E-01, 0.6273E-01,& - 0.6336E-01, 0.6400E-01, 0.6462E-01, 0.6527E-01,& - 0.6589E-01, 0.6655E-01, 0.6719E-01, 0.6783E-01,& - 0.6849E-01, 0.6915E-01, 0.6983E-01, 0.7049E-01,& - 0.7117E-01, 0.7185E-01, 0.7252E-01, 0.7322E-01,& - 0.7389E-01, 0.7459E-01, 0.7528E-01, 0.7599E-01,& - 0.7671E-01, 0.7742E-01, 0.7813E-01, 0.7884E-01,& - 0.7957E-01, 0.8030E-01, 0.8103E-01, 0.8176E-01,& - 0.8250E-01, 0.8325E-01, 0.8400E-01, 0.8476E-01,& - 0.8551E-01, 0.8627E-01, 0.8703E-01, 0.8782E-01,& - 0.8858E-01, 0.8936E-01, 0.9016E-01, 0.9094E-01,& - 0.9174E-01, 0.9254E-01, 0.9334E-01, 0.9415E-01,& - 0.9495E-01, 0.9578E-01, 0.9660E-01, 0.9742E-01,& - 0.9825E-01, 0.9908E-01, 0.9993E-01, 0.1008E+00,& - 0.1016E+00, 0.1025E+00, 0.1033E+00, 0.1042E+00,& - 0.1051E+00, 0.1059E+00, 0.1068E+00, 0.1077E+00,& - 0.1086E+00, 0.1095E+00, 0.1104E+00, 0.1113E+00,& - 0.1122E+00, 0.1131E+00, 0.1140E+00, 0.1149E+00,& - 0.1159E+00, 0.1168E+00, 0.1177E+00, 0.1187E+00,& - 0.1196E+00, 0.1206E+00, 0.1215E+00, 0.1225E+00,& - 0.1235E+00, 0.1244E+00, 0.1254E+00, 0.1264E+00,& - 0.1274E+00, 0.1284E+00, 0.1294E+00, 0.1304E+00,& - 0.1314E+00, 0.1324E+00, 0.1334E+00, 0.1344E+00,& - 0.1355E+00, 0.1365E+00, 0.1375E+00, 0.1386E+00,& - 0.1396E+00, 0.1407E+00, 0.1418E+00, 0.1428E+00,& - 0.1439E+00, 0.1450E+00, 0.1460E+00, 0.1471E+00,& - 0.1482E+00, 0.1493E+00, 0.1504E+00, 0.1515E+00,& - 0.1527E+00, 0.1538E+00, 0.1549E+00, 0.1560E+00,& - 0.1572E+00, 0.1583E+00, 0.1595E+00, 0.1606E+00,& - 0.1618E+00, 0.1629E+00, 0.1641E+00, 0.1653E+00,& - 0.1665E+00, 0.1677E+00, 0.1689E+00, 0.1701E+00,& - 0.1713E+00, 0.1725E+00, 0.1737E+00, 0.1749E+00,& - 0.1762E+00, 0.1774E+00, 0.1786E+00, 0.1799E+00,& - 0.1811E+00, 0.1824E+00, 0.1837E+00, 0.1849E+00,& - 0.1862E+00, 0.1875E+00, 0.1888E+00, 0.1901E+00,& - 0.1914E+00, 0.1927E+00, 0.1940E+00, 0.1953E+00,& - 0.1967E+00, 0.1980E+00, 0.1993E+00, 0.2007E+00,& - 0.2020E+00, 0.2034E+00, 0.2048E+00, 0.2061E+00,& - 0.2075E+00, 0.2089E+00, 0.2103E+00, 0.2117E+00,& - 0.2131E+00, 0.2145E+00, 0.2159E+00, 0.2173E+00,& - 0.2188E+00, 0.2202E+00, 0.2216E+00, 0.2231E+00,& - 0.2246E+00, 0.2260E+00, 0.2275E+00, 0.2290E+00,& - 0.2304E+00, 0.2319E+00, 0.2334E+00, 0.2349E+00,& - 0.2365E+00, 0.2380E+00, 0.2395E+00, 0.2410E+00,& - 0.2426E+00, 0.2441E+00, 0.2457E+00, 0.2472E+00,& - 0.2488E+00, 0.2504E+00, 0.2520E+00, 0.2536E+00,& - 0.2551E+00, 0.2567E+00, 0.2584E+00, 0.2600E+00,& - 0.2616E+00, 0.2632E+00, 0.2649E+00, 0.2665E+00,& - 0.2682E+00, 0.2698E+00, 0.2715E+00, 0.2732E+00,& - 0.2749E+00, 0.2766E+00, 0.2783E+00, 0.2800E+00,& - 0.2817E+00, 0.2834E+00, 0.2851E+00, 0.2869E+00,& - 0.2886E+00, 0.2904E+00, 0.2921E+00, 0.2939E+00,& - 0.2957E+00, 0.2974E+00, 0.2992E+00, 0.3010E+00,& - 0.3028E+00, 0.3047E+00, 0.3065E+00, 0.3083E+00,& - 0.3102E+00, 0.3120E+00, 0.3139E+00, 0.3157E+00,& - 0.3176E+00, 0.3195E+00, 0.3214E+00, 0.3233E+00,& - 0.3252E+00, 0.3271E+00, 0.3290E+00, 0.3309E+00,& - 0.3329E+00, 0.3348E+00, 0.3368E+00, 0.3387E+00,& - 0.3407E+00, 0.3427E+00, 0.3447E+00, 0.3467E+00,& - 0.3487E+00, 0.3507E+00, 0.3527E+00, 0.3548E+00,& - 0.3568E+00, 0.3589E+00, 0.3609E+00, 0.3630E+00,& - 0.3651E+00, 0.3672E+00, 0.3693E+00, 0.3714E+00,& - 0.3735E+00, 0.3756E+00, 0.3777E+00, 0.3799E+00,& - 0.3820E+00, 0.3842E+00, 0.3864E+00, 0.3885E+00,& - 0.3907E+00, 0.3929E+00, 0.3951E+00, 0.3974E+00,& - 0.3996E+00, 0.4018E+00, 0.4041E+00, 0.4063E+00,& - 0.4086E+00, 0.4109E+00, 0.4131E+00, 0.4154E+00,& - 0.4178E+00, 0.4201E+00, 0.4224E+00, 0.4247E+00,& - 0.4271E+00, 0.4294E+00, 0.4318E+00, 0.4342E+00,& - 0.4366E+00, 0.4390E+00, 0.4414E+00, 0.4438E+00,& - 0.4462E+00, 0.4486E+00, 0.4511E+00, 0.4536E+00,& - 0.4560E+00, 0.4585E+00, 0.4610E+00, 0.4635E+00,& - 0.4660E+00, 0.4685E+00, 0.4711E+00, 0.4736E+00,& - 0.4762E+00, 0.4787E+00, 0.4813E+00, 0.4839E+00,& - 0.4865E+00, 0.4891E+00, 0.4918E+00, 0.4944E+00,& - 0.4970E+00, 0.4997E+00, 0.5024E+00, 0.5050E+00,& - 0.5077E+00, 0.5104E+00, 0.5132E+00, 0.5159E+00,& - 0.5186E+00, 0.5214E+00, 0.5241E+00, 0.5269E+00,& - 0.5297E+00, 0.5325E+00, 0.5353E+00, 0.5381E+00,& - 0.5410E+00, 0.5438E+00, 0.5467E+00, 0.5496E+00,& - 0.5525E+00, 0.5554E+00, 0.5583E+00, 0.5612E+00,& - 0.5641E+00, 0.5671E+00, 0.5700E+00, 0.5730E+00,& - 0.5760E+00, 0.5790E+00, 0.5820E+00, 0.5851E+00,& - 0.5881E+00, 0.5911E+00, 0.5942E+00, 0.5973E+00,& - 0.6004E+00, 0.6034E+00, 0.6066E+00, 0.6098E+00,& - 0.6129E+00, 0.6161E+00, 0.6193E+00, 0.6224E+00,& - 0.6256E+00, 0.6289E+00, 0.6321E+00, 0.6353E+00,& - 0.6386E+00, 0.6419E+00, 0.6452E+00, 0.6485E+00,& - 0.6518E+00, 0.6552E+00, 0.6585E+00, 0.6619E+00,& - 0.6652E+00, 0.6686E+00, 0.6721E+00, 0.6755E+00,& - 0.6789E+00, 0.6824E+00, 0.6858E+00, 0.6893E+00,& - 0.6928E+00, 0.6964E+00, 0.6999E+00, 0.7034E+00,& - 0.7070E+00, 0.7106E+00, 0.7142E+00, 0.7178E+00,& - 0.7215E+00, 0.7251E+00, 0.7288E+00, 0.7324E+00,& - 0.7361E+00, 0.7399E+00, 0.7436E+00, 0.7473E+00,& - 0.7511E+00, 0.7549E+00, 0.7587E+00, 0.7625E+00,& - 0.7663E+00, 0.7702E+00, 0.7741E+00, 0.7780E+00,& - 0.7819E+00, 0.7858E+00, 0.7897E+00, 0.7937E+00,& - 0.7977E+00, 0.8017E+00, 0.8057E+00, 0.8097E+00,& - 0.8138E+00, 0.8178E+00, 0.8219E+00, 0.8260E+00,& - 0.8302E+00, 0.8343E+00, 0.8385E+00, 0.8427E+00,& - 0.8469E+00, 0.8511E+00, 0.8553E+00, 0.8596E+00,& - 0.8639E+00, 0.8682E+00, 0.8725E+00, 0.8769E+00,& - 0.8812E+00, 0.8856E+00, 0.8900E+00, 0.8945E+00,& - 0.8989E+00, 0.9034E+00, 0.9079E+00, 0.9124E+00,& - 0.9170E+00, 0.9215E+00, 0.9261E+00, 0.9307E+00,& - 0.9353E+00, 0.9400E+00, 0.9447E+00, 0.9494E+00,& - 0.9541E+00, 0.9588E+00, 0.9636E+00, 0.9684E+00,& - 0.9732E+00, 0.9780E+00, 0.9829E+00, 0.9878E+00,& - 0.9927E+00, 0.9976E+00, 0.1003E+01, 0.1008E+01,& - 0.1013E+01, 0.1018E+01, 0.1023E+01, 0.1028E+01,& - 0.1033E+01, 0.1038E+01, 0.1043E+01, 0.1048E+01,& - 0.1053E+01, 0.1059E+01, 0.1064E+01, 0.1069E+01,& - 0.1075E+01, 0.1080E+01, 0.1085E+01, 0.1091E+01,& - 0.1096E+01, 0.1102E+01, 0.1107E+01, 0.1113E+01,& - 0.1118E+01, 0.1124E+01, 0.1129E+01, 0.1135E+01,& - 0.1141E+01, 0.1146E+01, 0.1152E+01, 0.1158E+01,& - 0.1163E+01, 0.1169E+01, 0.1175E+01, 0.1181E+01,& - 0.1187E+01, 0.1193E+01, 0.1199E+01, 0.1205E+01,& - 0.1211E+01, 0.1217E+01, 0.1223E+01, 0.1229E+01,& - 0.1235E+01, 0.1241E+01, 0.1248E+01, 0.1254E+01,& - 0.1260E+01, 0.1267E+01, 0.1273E+01, 0.1279E+01,& - 0.1286E+01, 0.1292E+01, 0.1299E+01, 0.1305E+01,& - 0.1312E+01, 0.1318E+01, 0.1325E+01, 0.1332E+01,& - 0.1339E+01, 0.1345E+01, 0.1352E+01, 0.1359E+01,& - 0.1366E+01, 0.1373E+01, 0.1380E+01, 0.1387E+01,& - 0.1394E+01, 0.1401E+01, 0.1408E+01, 0.1415E+01,& - 0.1422E+01, 0.1430E+01, 0.1437E+01, 0.1444E+01,& - 0.1452E+01, 0.1459E+01, 0.1467E+01, 0.1474E+01,& - 0.1482E+01, 0.1489E+01, 0.1497E+01, 0.1505E+01,& - 0.1513E+01, 0.1520E+01, 0.1528E+01, 0.1536E+01,& - 0.1544E+01, 0.1552E+01, 0.1560E+01, 0.1568E+01,& - 0.1576E+01, 0.1585E+01, 0.1593E+01, 0.1601E+01,& - 0.1609E+01, 0.1618E+01, 0.1626E+01, 0.1635E+01,& - 0.1643E+01, 0.1652E+01, 0.1661E+01, 0.1670E+01,& - 0.1678E+01, 0.1687E+01, 0.1696E+01, 0.1705E+01,& - 0.1714E+01, 0.1723E+01, 0.1732E+01, 0.1742E+01,& - 0.1751E+01, 0.1760E+01, 0.1770E+01, 0.1779E+01,& - 0.1789E+01, 0.1798E+01, 0.1808E+01, 0.1818E+01,& - 0.1828E+01, 0.1838E+01, 0.1847E+01, 0.1858E+01,& - 0.1868E+01, 0.1878E+01, 0.1888E+01, 0.1898E+01,& - 0.1909E+01, 0.1919E+01, 0.1930E+01, 0.1941E+01,& - 0.1951E+01, 0.1962E+01, 0.1973E+01, 0.1984E+01,& - 0.1995E+01, 0.2006E+01, 0.2017E+01, 0.2029E+01,& - 0.2040E+01, 0.2051E+01, 0.2063E+01, 0.2075E+01,& - 0.2086E+01, 0.2098E+01, 0.2110E+01, 0.2122E+01,& - 0.2134E+01, 0.2147E+01, 0.2159E+01, 0.2172E+01,& - 0.2184E+01, 0.2197E+01, 0.2210E+01, 0.2222E+01,& - 0.2235E+01, 0.2248E+01, 0.2262E+01, 0.2275E+01,& - 0.2288E+01, 0.2302E+01, 0.2316E+01, 0.2329E+01,& - 0.2343E+01, 0.2357E+01, 0.2372E+01, 0.2385E+01,& - 0.2400E+01, 0.2415E+01, 0.2430E+01, 0.2445E+01,& - 0.2459E+01, 0.2475E+01, 0.2490E+01, 0.2505E+01,& - 0.2521E+01, 0.2537E+01, 0.2553E+01, 0.2569E+01,& - 0.2585E+01, 0.2601E+01, 0.2618E+01, 0.2634E+01,& - 0.2651E+01, 0.2668E+01, 0.2686E+01, 0.2703E+01,& - 0.2721E+01, 0.2738E+01, 0.2756E+01, 0.2775E+01,& - 0.2793E+01, 0.2812E+01, 0.2830E+01, 0.2849E+01,& - 0.2869E+01, 0.2888E+01, 0.2908E+01, 0.2928E+01,& - 0.2948E+01, 0.2968E+01, 0.2989E+01, 0.3010E+01,& - 0.3031E+01, 0.3052E+01, 0.3074E+01, 0.3096E+01,& - 0.3118E+01, 0.3141E+01, 0.3164E+01, 0.3187E+01,& - 0.3210E+01, 0.3234E+01, 0.3258E+01, 0.3283E+01,& - 0.3308E+01, 0.3333E+01, 0.3358E+01, 0.3384E+01,& - 0.3410E+01, 0.3437E+01, 0.3464E+01, 0.3492E+01,& - 0.3519E+01, 0.3548E+01, 0.3577E+01, 0.3606E+01,& - 0.3636E+01, 0.3666E+01, 0.3696E+01, 0.3728E+01,& - 0.3760E+01, 0.3792E+01, 0.3825E+01, 0.3858E+01,& - 0.3893E+01, 0.3927E+01, 0.3963E+01, 0.3999E+01,& - 0.4036E+01, 0.4073E+01, 0.4112E+01, 0.4151E+01,& - 0.4191E+01, 0.4232E+01, 0.4273E+01, 0.4316E+01,& - 0.4360E+01, 0.4404E+01, 0.4450E+01, 0.4497E+01,& - 0.4545E+01, 0.4594E+01, 0.4645E+01, 0.4697E+01,& - 0.4750E+01, 0.4805E+01, 0.4861E+01, 0.4919E+01,& - 0.4978E+01, 0.5040E+01, 0.5104E+01, 0.5169E+01,& - 0.5237E+01, 0.5307E+01, 0.5380E+01, 0.5455E+01,& - 0.5533E+01, 0.5615E+01, 0.5700E+01, 0.5788E+01,& - 0.5881E+01, 0.5978E+01, 0.6079E+01, 0.6186E+01,& - 0.6298E+01, 0.6417E+01, 0.6543E+01, 0.6678E+01,& - 0.6821E+01, 0.6974E+01, 0.7139E+01, 0.7318E+01,& - 0.7514E+01, 0.7728E+01, 0.7967E+01, 0.8234E+01,& - 0.8538E+01, 0.8891E+01, 0.9310E+01, 0.9826E+01,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 63) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2775E-04, 0.2775E-04, 0.2775E-04,& - 0.4550E-04, 0.4550E-04, 0.4550E-04, 0.6325E-04,& - 0.6325E-04, 0.8100E-04, 0.8100E-04, 0.9875E-04,& - 0.1165E-03, 0.1165E-03, 0.1343E-03, 0.1520E-03,& - 0.1520E-03, 0.1698E-03, 0.1875E-03, 0.2053E-03,& - 0.2230E-03, 0.2408E-03, 0.2585E-03, 0.2763E-03,& - 0.2940E-03, 0.3295E-03, 0.3473E-03, 0.3650E-03,& - 0.4005E-03, 0.4183E-03, 0.4538E-03, 0.4715E-03,& - 0.5070E-03, 0.5248E-03, 0.5603E-03, 0.5958E-03,& - 0.6313E-03, 0.6668E-03, 0.7023E-03, 0.7378E-03,& - 0.7733E-03, 0.8088E-03, 0.8443E-03, 0.8798E-03,& - 0.9330E-03, 0.9685E-03, 0.1022E-02, 0.1057E-02,& - 0.1111E-02, 0.1164E-02, 0.1199E-02, 0.1253E-02,& - 0.1306E-02, 0.1359E-02, 0.1412E-02, 0.1466E-02,& - 0.1537E-02, 0.1590E-02, 0.1643E-02, 0.1714E-02,& - 0.1767E-02, 0.1838E-02, 0.1909E-02, 0.1980E-02,& - 0.2034E-02, 0.2105E-02, 0.2176E-02, 0.2264E-02,& - 0.2335E-02, 0.2406E-02, 0.2495E-02, 0.2566E-02,& - 0.2655E-02, 0.2726E-02, 0.2815E-02, 0.2903E-02,& - 0.2992E-02, 0.3081E-02, 0.3170E-02, 0.3258E-02,& - 0.3365E-02, 0.3454E-02, 0.3560E-02, 0.3649E-02,& - 0.3755E-02, 0.3862E-02, 0.3968E-02, 0.4075E-02,& - 0.4181E-02, 0.4288E-02, 0.4412E-02, 0.4519E-02,& - 0.4643E-02, 0.4749E-02, 0.4874E-02, 0.4998E-02,& - 0.5122E-02, 0.5246E-02, 0.5371E-02, 0.5495E-02,& - 0.5637E-02, 0.5761E-02, 0.5903E-02, 0.6045E-02,& - 0.6187E-02, 0.6329E-02, 0.6471E-02, 0.6613E-02,& - 0.6755E-02, 0.6915E-02, 0.7057E-02, 0.7217E-02,& - 0.7376E-02, 0.7536E-02, 0.7696E-02, 0.7856E-02,& - 0.8015E-02, 0.8175E-02, 0.8353E-02, 0.8530E-02,& - 0.8690E-02, 0.8867E-02, 0.9045E-02, 0.9240E-02,& - 0.9418E-02, 0.9595E-02, 0.9790E-02, 0.9968E-02,& - 0.1016E-01, 0.1036E-01, 0.1055E-01, 0.1075E-01,& - 0.1096E-01, 0.1116E-01, 0.1137E-01, 0.1158E-01,& - 0.1178E-01, 0.1199E-01, 0.1222E-01, 0.1244E-01,& - 0.1265E-01, 0.1288E-01, 0.1311E-01, 0.1332E-01,& - 0.1355E-01, 0.1380E-01, 0.1403E-01, 0.1426E-01,& - 0.1451E-01, 0.1474E-01, 0.1499E-01, 0.1524E-01,& - 0.1549E-01, 0.1575E-01, 0.1600E-01, 0.1627E-01,& - 0.1652E-01, 0.1678E-01, 0.1705E-01, 0.1733E-01,& - 0.1760E-01, 0.1787E-01, 0.1815E-01, 0.1843E-01,& - 0.1872E-01, 0.1900E-01, 0.1929E-01, 0.1959E-01,& - 0.1987E-01, 0.2017E-01, 0.2048E-01, 0.2078E-01,& - 0.2108E-01, 0.2140E-01, 0.2170E-01, 0.2202E-01,& - 0.2234E-01, 0.2266E-01, 0.2298E-01, 0.2330E-01,& - 0.2364E-01, 0.2397E-01, 0.2429E-01, 0.2463E-01,& - 0.2498E-01, 0.2532E-01, 0.2568E-01, 0.2601E-01,& - 0.2637E-01, 0.2672E-01, 0.2708E-01, 0.2745E-01,& - 0.2781E-01, 0.2818E-01, 0.2855E-01, 0.2893E-01,& - 0.2932E-01, 0.2969E-01, 0.3008E-01, 0.3047E-01,& - 0.3086E-01, 0.3125E-01, 0.3164E-01, 0.3205E-01,& - 0.3244E-01, 0.3285E-01, 0.3326E-01, 0.3368E-01,& - 0.3409E-01, 0.3452E-01, 0.3494E-01, 0.3537E-01,& - 0.3579E-01, 0.3622E-01, 0.3666E-01, 0.3711E-01,& - 0.3755E-01, 0.3800E-01, 0.3844E-01, 0.3890E-01,& - 0.3936E-01, 0.3981E-01, 0.4029E-01, 0.4075E-01,& - 0.4123E-01, 0.4169E-01, 0.4217E-01, 0.4265E-01,& - 0.4314E-01, 0.4362E-01, 0.4412E-01, 0.4462E-01,& - 0.4511E-01, 0.4561E-01, 0.4613E-01, 0.4664E-01,& - 0.4715E-01, 0.4767E-01, 0.4818E-01, 0.4872E-01,& - 0.4925E-01, 0.4978E-01, 0.5031E-01, 0.5085E-01,& - 0.5140E-01, 0.5195E-01, 0.5250E-01, 0.5305E-01,& - 0.5362E-01, 0.5417E-01, 0.5473E-01, 0.5530E-01,& - 0.5589E-01, 0.5646E-01, 0.5704E-01, 0.5763E-01,& - 0.5821E-01, 0.5882E-01, 0.5942E-01, 0.6001E-01,& - 0.6063E-01, 0.6123E-01, 0.6185E-01, 0.6246E-01,& - 0.6308E-01, 0.6372E-01, 0.6434E-01, 0.6498E-01,& - 0.6561E-01, 0.6625E-01, 0.6689E-01, 0.6755E-01,& - 0.6821E-01, 0.6886E-01, 0.6952E-01, 0.7019E-01,& - 0.7087E-01, 0.7154E-01, 0.7222E-01, 0.7291E-01,& - 0.7360E-01, 0.7429E-01, 0.7499E-01, 0.7568E-01,& - 0.7639E-01, 0.7710E-01, 0.7781E-01, 0.7854E-01,& - 0.7926E-01, 0.7997E-01, 0.8072E-01, 0.8145E-01,& - 0.8219E-01, 0.8294E-01, 0.8368E-01, 0.8445E-01,& - 0.8519E-01, 0.8596E-01, 0.8674E-01, 0.8750E-01,& - 0.8828E-01, 0.8906E-01, 0.8984E-01, 0.9064E-01,& - 0.9142E-01, 0.9222E-01, 0.9304E-01, 0.9384E-01,& - 0.9465E-01, 0.9547E-01, 0.9631E-01, 0.9712E-01,& - 0.9796E-01, 0.9879E-01, 0.9964E-01, 0.1005E+00,& - 0.1013E+00, 0.1022E+00, 0.1031E+00, 0.1039E+00,& - 0.1048E+00, 0.1057E+00, 0.1065E+00, 0.1074E+00,& - 0.1083E+00, 0.1092E+00, 0.1101E+00, 0.1110E+00,& - 0.1119E+00, 0.1128E+00, 0.1138E+00, 0.1147E+00,& - 0.1156E+00, 0.1166E+00, 0.1175E+00, 0.1185E+00,& - 0.1194E+00, 0.1204E+00, 0.1213E+00, 0.1223E+00,& - 0.1233E+00, 0.1242E+00, 0.1252E+00, 0.1262E+00,& - 0.1272E+00, 0.1282E+00, 0.1292E+00, 0.1302E+00,& - 0.1312E+00, 0.1322E+00, 0.1333E+00, 0.1343E+00,& - 0.1353E+00, 0.1364E+00, 0.1374E+00, 0.1385E+00,& - 0.1395E+00, 0.1406E+00, 0.1417E+00, 0.1427E+00,& - 0.1438E+00, 0.1449E+00, 0.1460E+00, 0.1471E+00,& - 0.1482E+00, 0.1493E+00, 0.1504E+00, 0.1515E+00,& - 0.1527E+00, 0.1538E+00, 0.1549E+00, 0.1561E+00,& - 0.1572E+00, 0.1584E+00, 0.1595E+00, 0.1607E+00,& - 0.1619E+00, 0.1630E+00, 0.1642E+00, 0.1654E+00,& - 0.1666E+00, 0.1678E+00, 0.1690E+00, 0.1702E+00,& - 0.1715E+00, 0.1727E+00, 0.1739E+00, 0.1752E+00,& - 0.1764E+00, 0.1776E+00, 0.1789E+00, 0.1802E+00,& - 0.1814E+00, 0.1827E+00, 0.1840E+00, 0.1853E+00,& - 0.1866E+00, 0.1879E+00, 0.1892E+00, 0.1905E+00,& - 0.1918E+00, 0.1931E+00, 0.1945E+00, 0.1958E+00,& - 0.1971E+00, 0.1985E+00, 0.1998E+00, 0.2012E+00,& - 0.2026E+00, 0.2040E+00, 0.2053E+00, 0.2067E+00,& - 0.2081E+00, 0.2095E+00, 0.2110E+00, 0.2124E+00,& - 0.2138E+00, 0.2152E+00, 0.2167E+00, 0.2181E+00,& - 0.2195E+00, 0.2210E+00, 0.2225E+00, 0.2239E+00,& - 0.2254E+00, 0.2269E+00, 0.2284E+00, 0.2299E+00,& - 0.2314E+00, 0.2329E+00, 0.2344E+00, 0.2360E+00,& - 0.2375E+00, 0.2391E+00, 0.2406E+00, 0.2422E+00,& - 0.2437E+00, 0.2453E+00, 0.2469E+00, 0.2485E+00,& - 0.2501E+00, 0.2517E+00, 0.2533E+00, 0.2549E+00,& - 0.2565E+00, 0.2581E+00, 0.2598E+00, 0.2614E+00,& - 0.2631E+00, 0.2647E+00, 0.2664E+00, 0.2681E+00,& - 0.2698E+00, 0.2714E+00, 0.2732E+00, 0.2749E+00,& - 0.2766E+00, 0.2783E+00, 0.2800E+00, 0.2818E+00,& - 0.2835E+00, 0.2853E+00, 0.2870E+00, 0.2888E+00,& - 0.2906E+00, 0.2924E+00, 0.2942E+00, 0.2960E+00,& - 0.2978E+00, 0.2996E+00, 0.3014E+00, 0.3033E+00,& - 0.3051E+00, 0.3070E+00, 0.3088E+00, 0.3107E+00,& - 0.3126E+00, 0.3145E+00, 0.3164E+00, 0.3183E+00,& - 0.3202E+00, 0.3221E+00, 0.3240E+00, 0.3260E+00,& - 0.3279E+00, 0.3298E+00, 0.3318E+00, 0.3338E+00,& - 0.3358E+00, 0.3378E+00, 0.3398E+00, 0.3418E+00,& - 0.3438E+00, 0.3458E+00, 0.3478E+00, 0.3499E+00,& - 0.3519E+00, 0.3540E+00, 0.3561E+00, 0.3582E+00,& - 0.3603E+00, 0.3624E+00, 0.3645E+00, 0.3666E+00,& - 0.3687E+00, 0.3708E+00, 0.3730E+00, 0.3752E+00,& - 0.3773E+00, 0.3795E+00, 0.3817E+00, 0.3839E+00,& - 0.3861E+00, 0.3883E+00, 0.3905E+00, 0.3928E+00,& - 0.3950E+00, 0.3973E+00, 0.3995E+00, 0.4018E+00,& - 0.4041E+00, 0.4064E+00, 0.4087E+00, 0.4110E+00,& - 0.4133E+00, 0.4157E+00, 0.4180E+00, 0.4204E+00,& - 0.4227E+00, 0.4251E+00, 0.4275E+00, 0.4299E+00,& - 0.4323E+00, 0.4347E+00, 0.4372E+00, 0.4396E+00,& - 0.4420E+00, 0.4445E+00, 0.4470E+00, 0.4495E+00,& - 0.4520E+00, 0.4545E+00, 0.4570E+00, 0.4595E+00,& - 0.4621E+00, 0.4646E+00, 0.4672E+00, 0.4698E+00,& - 0.4723E+00, 0.4749E+00, 0.4775E+00, 0.4802E+00,& - 0.4828E+00, 0.4854E+00, 0.4881E+00, 0.4908E+00,& - 0.4934E+00, 0.4961E+00, 0.4988E+00, 0.5016E+00,& - 0.5043E+00, 0.5070E+00, 0.5098E+00, 0.5125E+00,& - 0.5153E+00, 0.5181E+00, 0.5209E+00, 0.5237E+00,& - 0.5265E+00, 0.5294E+00, 0.5322E+00, 0.5351E+00,& - 0.5380E+00, 0.5409E+00, 0.5438E+00, 0.5467E+00,& - 0.5496E+00, 0.5525E+00, 0.5555E+00, 0.5585E+00,& - 0.5615E+00, 0.5645E+00, 0.5675E+00, 0.5705E+00,& - 0.5735E+00, 0.5766E+00, 0.5796E+00, 0.5827E+00,& - 0.5858E+00, 0.5889E+00, 0.5920E+00, 0.5951E+00,& - 0.5983E+00, 0.6014E+00, 0.6046E+00, 0.6078E+00,& - 0.6110E+00, 0.6142E+00, 0.6175E+00, 0.6207E+00,& - 0.6239E+00, 0.6272E+00, 0.6305E+00, 0.6338E+00,& - 0.6371E+00, 0.6405E+00, 0.6438E+00, 0.6472E+00,& - 0.6506E+00, 0.6540E+00, 0.6574E+00, 0.6608E+00,& - 0.6643E+00, 0.6677E+00, 0.6712E+00, 0.6747E+00,& - 0.6782E+00, 0.6817E+00, 0.6852E+00, 0.6888E+00,& - 0.6924E+00, 0.6960E+00, 0.6996E+00, 0.7032E+00,& - 0.7068E+00, 0.7105E+00, 0.7141E+00, 0.7178E+00,& - 0.7215E+00, 0.7252E+00, 0.7290E+00, 0.7328E+00,& - 0.7365E+00, 0.7403E+00, 0.7441E+00, 0.7480E+00,& - 0.7518E+00, 0.7557E+00, 0.7595E+00, 0.7634E+00,& - 0.7674E+00, 0.7713E+00, 0.7753E+00, 0.7792E+00,& - 0.7832E+00, 0.7872E+00, 0.7912E+00, 0.7953E+00,& - 0.7994E+00, 0.8035E+00, 0.8076E+00, 0.8117E+00,& - 0.8158E+00, 0.8200E+00, 0.8242E+00, 0.8284E+00,& - 0.8326E+00, 0.8368E+00, 0.8411E+00, 0.8454E+00,& - 0.8497E+00, 0.8540E+00, 0.8584E+00, 0.8627E+00,& - 0.8671E+00, 0.8715E+00, 0.8760E+00, 0.8804E+00,& - 0.8849E+00, 0.8894E+00, 0.8939E+00, 0.8985E+00,& - 0.9030E+00, 0.9076E+00, 0.9122E+00, 0.9169E+00,& - 0.9215E+00, 0.9262E+00, 0.9309E+00, 0.9356E+00,& - 0.9404E+00, 0.9451E+00, 0.9499E+00, 0.9547E+00,& - 0.9596E+00, 0.9645E+00, 0.9693E+00, 0.9743E+00,& - 0.9792E+00, 0.9842E+00, 0.9891E+00, 0.9942E+00,& - 0.9992E+00, 0.1004E+01, 0.1009E+01, 0.1014E+01,& - 0.1020E+01, 0.1025E+01, 0.1030E+01, 0.1035E+01,& - 0.1040E+01, 0.1046E+01, 0.1051E+01, 0.1056E+01,& - 0.1062E+01, 0.1067E+01, 0.1073E+01, 0.1078E+01,& - 0.1083E+01, 0.1089E+01, 0.1094E+01, 0.1100E+01,& - 0.1106E+01, 0.1111E+01, 0.1117E+01, 0.1123E+01,& - 0.1128E+01, 0.1134E+01, 0.1140E+01, 0.1146E+01,& - 0.1151E+01, 0.1157E+01, 0.1163E+01, 0.1169E+01,& - 0.1175E+01, 0.1181E+01, 0.1187E+01, 0.1193E+01,& - 0.1199E+01, 0.1205E+01, 0.1211E+01, 0.1218E+01,& - 0.1224E+01, 0.1230E+01, 0.1236E+01, 0.1243E+01,& - 0.1249E+01, 0.1255E+01, 0.1262E+01, 0.1268E+01,& - 0.1275E+01, 0.1281E+01, 0.1288E+01, 0.1295E+01,& - 0.1301E+01, 0.1308E+01, 0.1315E+01, 0.1321E+01,& - 0.1328E+01, 0.1335E+01, 0.1342E+01, 0.1349E+01,& - 0.1356E+01, 0.1363E+01, 0.1370E+01, 0.1377E+01,& - 0.1384E+01, 0.1391E+01, 0.1399E+01, 0.1406E+01,& - 0.1413E+01, 0.1420E+01, 0.1428E+01, 0.1435E+01,& - 0.1443E+01, 0.1450E+01, 0.1458E+01, 0.1465E+01,& - 0.1473E+01, 0.1481E+01, 0.1489E+01, 0.1496E+01,& - 0.1504E+01, 0.1512E+01, 0.1520E+01, 0.1528E+01,& - 0.1536E+01, 0.1544E+01, 0.1552E+01, 0.1561E+01,& - 0.1569E+01, 0.1577E+01, 0.1586E+01, 0.1594E+01,& - 0.1602E+01, 0.1611E+01, 0.1620E+01, 0.1628E+01,& - 0.1637E+01, 0.1646E+01, 0.1655E+01, 0.1663E+01,& - 0.1672E+01, 0.1681E+01, 0.1690E+01, 0.1699E+01,& - 0.1709E+01, 0.1718E+01, 0.1727E+01, 0.1737E+01,& - 0.1746E+01, 0.1755E+01, 0.1765E+01, 0.1775E+01,& - 0.1784E+01, 0.1794E+01, 0.1804E+01, 0.1814E+01,& - 0.1824E+01, 0.1834E+01, 0.1844E+01, 0.1854E+01,& - 0.1864E+01, 0.1875E+01, 0.1885E+01, 0.1896E+01,& - 0.1906E+01, 0.1917E+01, 0.1928E+01, 0.1938E+01,& - 0.1949E+01, 0.1960E+01, 0.1971E+01, 0.1983E+01,& - 0.1994E+01, 0.2005E+01, 0.2016E+01, 0.2028E+01,& - 0.2040E+01, 0.2051E+01, 0.2063E+01, 0.2075E+01,& - 0.2087E+01, 0.2099E+01, 0.2111E+01, 0.2123E+01,& - 0.2136E+01, 0.2148E+01, 0.2161E+01, 0.2173E+01,& - 0.2186E+01, 0.2199E+01, 0.2212E+01, 0.2225E+01,& - 0.2238E+01, 0.2252E+01, 0.2265E+01, 0.2279E+01,& - 0.2292E+01, 0.2306E+01, 0.2320E+01, 0.2334E+01,& - 0.2348E+01, 0.2362E+01, 0.2377E+01, 0.2391E+01,& - 0.2406E+01, 0.2421E+01, 0.2436E+01, 0.2451E+01,& - 0.2466E+01, 0.2482E+01, 0.2497E+01, 0.2513E+01,& - 0.2529E+01, 0.2545E+01, 0.2561E+01, 0.2578E+01,& - 0.2594E+01, 0.2611E+01, 0.2628E+01, 0.2645E+01,& - 0.2662E+01, 0.2679E+01, 0.2697E+01, 0.2715E+01,& - 0.2732E+01, 0.2751E+01, 0.2769E+01, 0.2788E+01,& - 0.2806E+01, 0.2825E+01, 0.2844E+01, 0.2864E+01,& - 0.2883E+01, 0.2903E+01, 0.2923E+01, 0.2944E+01,& - 0.2964E+01, 0.2985E+01, 0.3006E+01, 0.3027E+01,& - 0.3049E+01, 0.3071E+01, 0.3093E+01, 0.3116E+01,& - 0.3138E+01, 0.3161E+01, 0.3185E+01, 0.3208E+01,& - 0.3232E+01, 0.3256E+01, 0.3281E+01, 0.3306E+01,& - 0.3331E+01, 0.3357E+01, 0.3383E+01, 0.3409E+01,& - 0.3436E+01, 0.3464E+01, 0.3491E+01, 0.3519E+01,& - 0.3548E+01, 0.3577E+01, 0.3606E+01, 0.3636E+01,& - 0.3666E+01, 0.3697E+01, 0.3729E+01, 0.3761E+01,& - 0.3793E+01, 0.3826E+01, 0.3860E+01, 0.3894E+01,& - 0.3929E+01, 0.3965E+01, 0.4001E+01, 0.4038E+01,& - 0.4076E+01, 0.4114E+01, 0.4153E+01, 0.4193E+01,& - 0.4234E+01, 0.4276E+01, 0.4319E+01, 0.4362E+01,& - 0.4407E+01, 0.4453E+01, 0.4500E+01, 0.4547E+01,& - 0.4597E+01, 0.4647E+01, 0.4699E+01, 0.4752E+01,& - 0.4806E+01, 0.4862E+01, 0.4920E+01, 0.4979E+01,& - 0.5040E+01, 0.5103E+01, 0.5168E+01, 0.5236E+01,& - 0.5305E+01, 0.5377E+01, 0.5451E+01, 0.5528E+01,& - 0.5609E+01, 0.5692E+01, 0.5779E+01, 0.5870E+01,& - 0.5965E+01, 0.6064E+01, 0.6168E+01, 0.6278E+01,& - 0.6393E+01, 0.6515E+01, 0.6644E+01, 0.6782E+01,& - 0.6929E+01, 0.7086E+01, 0.7256E+01, 0.7439E+01,& - 0.7640E+01, 0.7860E+01, 0.8105E+01, 0.8379E+01,& - 0.8692E+01, 0.9054E+01, 0.9483E+01, 0.1001E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 64) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.2815E-04,& - 0.2815E-04, 0.2815E-04, 0.2815E-04, 0.4629E-04,& - 0.4629E-04, 0.6444E-04, 0.6444E-04, 0.6444E-04,& - 0.8259E-04, 0.8259E-04, 0.1007E-03, 0.1189E-03,& - 0.1189E-03, 0.1370E-03, 0.1370E-03, 0.1552E-03,& - 0.1733E-03, 0.1915E-03, 0.2096E-03, 0.2096E-03,& - 0.2278E-03, 0.2459E-03, 0.2641E-03, 0.2822E-03,& - 0.3003E-03, 0.3366E-03, 0.3548E-03, 0.3729E-03,& - 0.3911E-03, 0.4274E-03, 0.4455E-03, 0.4637E-03,& - 0.5000E-03, 0.5181E-03, 0.5544E-03, 0.5907E-03,& - 0.6088E-03, 0.6451E-03, 0.6814E-03, 0.7177E-03,& - 0.7540E-03, 0.7903E-03, 0.8266E-03, 0.8629E-03,& - 0.8992E-03, 0.9355E-03, 0.9899E-03, 0.1026E-02,& - 0.1063E-02, 0.1117E-02, 0.1153E-02, 0.1208E-02,& - 0.1262E-02, 0.1298E-02, 0.1353E-02, 0.1407E-02,& - 0.1462E-02, 0.1516E-02, 0.1571E-02, 0.1625E-02,& - 0.1698E-02, 0.1752E-02, 0.1807E-02, 0.1879E-02,& - 0.1934E-02, 0.2006E-02, 0.2079E-02, 0.2151E-02,& - 0.2206E-02, 0.2278E-02, 0.2351E-02, 0.2442E-02,& - 0.2514E-02, 0.2587E-02, 0.2659E-02, 0.2750E-02,& - 0.2823E-02, 0.2913E-02, 0.3004E-02, 0.3077E-02,& - 0.3168E-02, 0.3258E-02, 0.3349E-02, 0.3440E-02,& - 0.3549E-02, 0.3639E-02, 0.3730E-02, 0.3839E-02,& - 0.3948E-02, 0.4039E-02, 0.4147E-02, 0.4256E-02,& - 0.4365E-02, 0.4474E-02, 0.4583E-02, 0.4710E-02,& - 0.4819E-02, 0.4928E-02, 0.5055E-02, 0.5182E-02,& - 0.5309E-02, 0.5418E-02, 0.5545E-02, 0.5690E-02,& - 0.5817E-02, 0.5944E-02, 0.6089E-02, 0.6216E-02,& - 0.6361E-02, 0.6506E-02, 0.6634E-02, 0.6779E-02,& - 0.6924E-02, 0.7087E-02, 0.7232E-02, 0.7378E-02,& - 0.7541E-02, 0.7704E-02, 0.7849E-02, 0.8013E-02,& - 0.8176E-02, 0.8339E-02, 0.8521E-02, 0.8684E-02,& - 0.8847E-02, 0.9029E-02, 0.9210E-02, 0.9392E-02,& - 0.9573E-02, 0.9755E-02, 0.9936E-02, 0.1012E-01,& - 0.1032E-01, 0.1050E-01, 0.1070E-01, 0.1090E-01,& - 0.1110E-01, 0.1130E-01, 0.1150E-01, 0.1170E-01,& - 0.1191E-01, 0.1213E-01, 0.1233E-01, 0.1255E-01,& - 0.1277E-01, 0.1298E-01, 0.1322E-01, 0.1344E-01,& - 0.1367E-01, 0.1389E-01, 0.1413E-01, 0.1436E-01,& - 0.1460E-01, 0.1485E-01, 0.1509E-01, 0.1534E-01,& - 0.1558E-01, 0.1583E-01, 0.1609E-01, 0.1634E-01,& - 0.1660E-01, 0.1687E-01, 0.1712E-01, 0.1739E-01,& - 0.1767E-01, 0.1794E-01, 0.1821E-01, 0.1848E-01,& - 0.1877E-01, 0.1905E-01, 0.1934E-01, 0.1963E-01,& - 0.1992E-01, 0.2021E-01, 0.2052E-01, 0.2081E-01,& - 0.2111E-01, 0.2142E-01, 0.2173E-01, 0.2204E-01,& - 0.2235E-01, 0.2268E-01, 0.2298E-01, 0.2331E-01,& - 0.2364E-01, 0.2396E-01, 0.2429E-01, 0.2463E-01,& - 0.2496E-01, 0.2531E-01, 0.2565E-01, 0.2600E-01,& - 0.2634E-01, 0.2670E-01, 0.2707E-01, 0.2741E-01,& - 0.2777E-01, 0.2814E-01, 0.2852E-01, 0.2888E-01,& - 0.2926E-01, 0.2964E-01, 0.3002E-01, 0.3041E-01,& - 0.3079E-01, 0.3119E-01, 0.3157E-01, 0.3197E-01,& - 0.3237E-01, 0.3276E-01, 0.3318E-01, 0.3358E-01,& - 0.3400E-01, 0.3442E-01, 0.3483E-01, 0.3527E-01,& - 0.3569E-01, 0.3612E-01, 0.3656E-01, 0.3699E-01,& - 0.3743E-01, 0.3788E-01, 0.3832E-01, 0.3877E-01,& - 0.3922E-01, 0.3968E-01, 0.4015E-01, 0.4060E-01,& - 0.4108E-01, 0.4155E-01, 0.4202E-01, 0.4251E-01,& - 0.4298E-01, 0.4347E-01, 0.4396E-01, 0.4445E-01,& - 0.4496E-01, 0.4545E-01, 0.4596E-01, 0.4647E-01,& - 0.4697E-01, 0.4748E-01, 0.4801E-01, 0.4853E-01,& - 0.4906E-01, 0.4959E-01, 0.5011E-01, 0.5066E-01,& - 0.5120E-01, 0.5175E-01, 0.5229E-01, 0.5285E-01,& - 0.5340E-01, 0.5396E-01, 0.5452E-01, 0.5510E-01,& - 0.5567E-01, 0.5625E-01, 0.5683E-01, 0.5741E-01,& - 0.5801E-01, 0.5859E-01, 0.5919E-01, 0.5978E-01,& - 0.6040E-01, 0.6100E-01, 0.6162E-01, 0.6223E-01,& - 0.6285E-01, 0.6347E-01, 0.6410E-01, 0.6474E-01,& - 0.6537E-01, 0.6601E-01, 0.6666E-01, 0.6732E-01,& - 0.6797E-01, 0.6862E-01, 0.6928E-01, 0.6995E-01,& - 0.7062E-01, 0.7129E-01, 0.7198E-01, 0.7265E-01,& - 0.7334E-01, 0.7405E-01, 0.7474E-01, 0.7545E-01,& - 0.7614E-01, 0.7686E-01, 0.7757E-01, 0.7829E-01,& - 0.7900E-01, 0.7975E-01, 0.8047E-01, 0.8120E-01,& - 0.8194E-01, 0.8269E-01, 0.8345E-01, 0.8419E-01,& - 0.8495E-01, 0.8572E-01, 0.8650E-01, 0.8726E-01,& - 0.8804E-01, 0.8882E-01, 0.8962E-01, 0.9040E-01,& - 0.9120E-01, 0.9200E-01, 0.9281E-01, 0.9363E-01,& - 0.9445E-01, 0.9526E-01, 0.9608E-01, 0.9691E-01,& - 0.9775E-01, 0.9858E-01, 0.9944E-01, 0.1003E+00,& - 0.1011E+00, 0.1020E+00, 0.1029E+00, 0.1037E+00,& - 0.1046E+00, 0.1055E+00, 0.1064E+00, 0.1073E+00,& - 0.1081E+00, 0.1091E+00, 0.1100E+00, 0.1109E+00,& - 0.1118E+00, 0.1127E+00, 0.1136E+00, 0.1146E+00,& - 0.1155E+00, 0.1164E+00, 0.1174E+00, 0.1183E+00,& - 0.1193E+00, 0.1202E+00, 0.1212E+00, 0.1222E+00,& - 0.1232E+00, 0.1242E+00, 0.1251E+00, 0.1261E+00,& - 0.1271E+00, 0.1281E+00, 0.1292E+00, 0.1302E+00,& - 0.1312E+00, 0.1322E+00, 0.1332E+00, 0.1343E+00,& - 0.1353E+00, 0.1364E+00, 0.1374E+00, 0.1385E+00,& - 0.1396E+00, 0.1406E+00, 0.1417E+00, 0.1428E+00,& - 0.1439E+00, 0.1450E+00, 0.1461E+00, 0.1472E+00,& - 0.1483E+00, 0.1494E+00, 0.1505E+00, 0.1517E+00,& - 0.1528E+00, 0.1539E+00, 0.1551E+00, 0.1563E+00,& - 0.1574E+00, 0.1586E+00, 0.1598E+00, 0.1609E+00,& - 0.1621E+00, 0.1633E+00, 0.1645E+00, 0.1657E+00,& - 0.1669E+00, 0.1681E+00, 0.1693E+00, 0.1706E+00,& - 0.1718E+00, 0.1730E+00, 0.1743E+00, 0.1755E+00,& - 0.1768E+00, 0.1781E+00, 0.1793E+00, 0.1806E+00,& - 0.1819E+00, 0.1832E+00, 0.1845E+00, 0.1858E+00,& - 0.1871E+00, 0.1884E+00, 0.1897E+00, 0.1911E+00,& - 0.1924E+00, 0.1937E+00, 0.1951E+00, 0.1964E+00,& - 0.1978E+00, 0.1992E+00, 0.2005E+00, 0.2019E+00,& - 0.2033E+00, 0.2047E+00, 0.2061E+00, 0.2075E+00,& - 0.2090E+00, 0.2104E+00, 0.2118E+00, 0.2133E+00,& - 0.2147E+00, 0.2162E+00, 0.2176E+00, 0.2191E+00,& - 0.2205E+00, 0.2220E+00, 0.2235E+00, 0.2250E+00,& - 0.2265E+00, 0.2280E+00, 0.2295E+00, 0.2311E+00,& - 0.2326E+00, 0.2341E+00, 0.2357E+00, 0.2372E+00,& - 0.2388E+00, 0.2404E+00, 0.2419E+00, 0.2435E+00,& - 0.2451E+00, 0.2467E+00, 0.2483E+00, 0.2499E+00,& - 0.2516E+00, 0.2532E+00, 0.2548E+00, 0.2565E+00,& - 0.2581E+00, 0.2598E+00, 0.2614E+00, 0.2631E+00,& - 0.2648E+00, 0.2665E+00, 0.2682E+00, 0.2699E+00,& - 0.2716E+00, 0.2734E+00, 0.2751E+00, 0.2768E+00,& - 0.2786E+00, 0.2803E+00, 0.2821E+00, 0.2839E+00,& - 0.2857E+00, 0.2874E+00, 0.2892E+00, 0.2910E+00,& - 0.2929E+00, 0.2947E+00, 0.2965E+00, 0.2984E+00,& - 0.3002E+00, 0.3021E+00, 0.3039E+00, 0.3058E+00,& - 0.3077E+00, 0.3096E+00, 0.3115E+00, 0.3134E+00,& - 0.3153E+00, 0.3172E+00, 0.3192E+00, 0.3211E+00,& - 0.3231E+00, 0.3250E+00, 0.3270E+00, 0.3290E+00,& - 0.3310E+00, 0.3330E+00, 0.3350E+00, 0.3370E+00,& - 0.3390E+00, 0.3411E+00, 0.3431E+00, 0.3452E+00,& - 0.3472E+00, 0.3493E+00, 0.3514E+00, 0.3535E+00,& - 0.3556E+00, 0.3577E+00, 0.3598E+00, 0.3620E+00,& - 0.3641E+00, 0.3662E+00, 0.3684E+00, 0.3706E+00,& - 0.3728E+00, 0.3750E+00, 0.3772E+00, 0.3794E+00,& - 0.3816E+00, 0.3838E+00, 0.3861E+00, 0.3883E+00,& - 0.3906E+00, 0.3928E+00, 0.3951E+00, 0.3974E+00,& - 0.3997E+00, 0.4020E+00, 0.4044E+00, 0.4067E+00,& - 0.4091E+00, 0.4114E+00, 0.4138E+00, 0.4161E+00,& - 0.4185E+00, 0.4209E+00, 0.4234E+00, 0.4258E+00,& - 0.4282E+00, 0.4306E+00, 0.4331E+00, 0.4356E+00,& - 0.4381E+00, 0.4405E+00, 0.4430E+00, 0.4455E+00,& - 0.4481E+00, 0.4506E+00, 0.4531E+00, 0.4557E+00,& - 0.4583E+00, 0.4608E+00, 0.4634E+00, 0.4661E+00,& - 0.4687E+00, 0.4713E+00, 0.4739E+00, 0.4766E+00,& - 0.4792E+00, 0.4819E+00, 0.4846E+00, 0.4873E+00,& - 0.4900E+00, 0.4927E+00, 0.4955E+00, 0.4982E+00,& - 0.5010E+00, 0.5038E+00, 0.5066E+00, 0.5093E+00,& - 0.5122E+00, 0.5150E+00, 0.5178E+00, 0.5207E+00,& - 0.5235E+00, 0.5264E+00, 0.5293E+00, 0.5322E+00,& - 0.5351E+00, 0.5381E+00, 0.5410E+00, 0.5440E+00,& - 0.5469E+00, 0.5499E+00, 0.5529E+00, 0.5559E+00,& - 0.5589E+00, 0.5620E+00, 0.5650E+00, 0.5681E+00,& - 0.5712E+00, 0.5743E+00, 0.5774E+00, 0.5805E+00,& - 0.5837E+00, 0.5868E+00, 0.5900E+00, 0.5932E+00,& - 0.5963E+00, 0.5996E+00, 0.6028E+00, 0.6060E+00,& - 0.6093E+00, 0.6125E+00, 0.6158E+00, 0.6191E+00,& - 0.6225E+00, 0.6258E+00, 0.6291E+00, 0.6325E+00,& - 0.6359E+00, 0.6393E+00, 0.6427E+00, 0.6461E+00,& - 0.6496E+00, 0.6530E+00, 0.6565E+00, 0.6600E+00,& - 0.6635E+00, 0.6669E+00, 0.6705E+00, 0.6741E+00,& - 0.6777E+00, 0.6813E+00, 0.6849E+00, 0.6885E+00,& - 0.6921E+00, 0.6958E+00, 0.6995E+00, 0.7031E+00,& - 0.7069E+00, 0.7106E+00, 0.7143E+00, 0.7181E+00,& - 0.7219E+00, 0.7257E+00, 0.7295E+00, 0.7333E+00,& - 0.7372E+00, 0.7410E+00, 0.7449E+00, 0.7488E+00,& - 0.7528E+00, 0.7567E+00, 0.7607E+00, 0.7646E+00,& - 0.7686E+00, 0.7727E+00, 0.7767E+00, 0.7808E+00,& - 0.7848E+00, 0.7889E+00, 0.7931E+00, 0.7972E+00,& - 0.8013E+00, 0.8055E+00, 0.8097E+00, 0.8140E+00,& - 0.8182E+00, 0.8225E+00, 0.8267E+00, 0.8310E+00,& - 0.8354E+00, 0.8397E+00, 0.8441E+00, 0.8485E+00,& - 0.8529E+00, 0.8573E+00, 0.8617E+00, 0.8662E+00,& - 0.8707E+00, 0.8752E+00, 0.8798E+00, 0.8843E+00,& - 0.8889E+00, 0.8935E+00, 0.8982E+00, 0.9028E+00,& - 0.9075E+00, 0.9122E+00, 0.9169E+00, 0.9217E+00,& - 0.9264E+00, 0.9312E+00, 0.9360E+00, 0.9409E+00,& - 0.9458E+00, 0.9507E+00, 0.9556E+00, 0.9605E+00,& - 0.9655E+00, 0.9705E+00, 0.9755E+00, 0.9806E+00,& - 0.9856E+00, 0.9907E+00, 0.9959E+00, 0.1001E+01,& - 0.1006E+01, 0.1011E+01, 0.1017E+01, 0.1022E+01,& - 0.1027E+01, 0.1032E+01, 0.1038E+01, 0.1043E+01,& - 0.1049E+01, 0.1054E+01, 0.1059E+01, 0.1065E+01,& - 0.1070E+01, 0.1076E+01, 0.1082E+01, 0.1087E+01,& - 0.1093E+01, 0.1098E+01, 0.1104E+01, 0.1110E+01,& - 0.1116E+01, 0.1121E+01, 0.1127E+01, 0.1133E+01,& - 0.1139E+01, 0.1145E+01, 0.1151E+01, 0.1157E+01,& - 0.1163E+01, 0.1169E+01, 0.1175E+01, 0.1181E+01,& - 0.1187E+01, 0.1193E+01, 0.1200E+01, 0.1206E+01,& - 0.1212E+01, 0.1218E+01, 0.1225E+01, 0.1231E+01,& - 0.1238E+01, 0.1244E+01, 0.1251E+01, 0.1257E+01,& - 0.1264E+01, 0.1270E+01, 0.1277E+01, 0.1284E+01,& - 0.1290E+01, 0.1297E+01, 0.1304E+01, 0.1311E+01,& - 0.1318E+01, 0.1324E+01, 0.1331E+01, 0.1338E+01,& - 0.1345E+01, 0.1353E+01, 0.1360E+01, 0.1367E+01,& - 0.1374E+01, 0.1381E+01, 0.1389E+01, 0.1396E+01,& - 0.1403E+01, 0.1411E+01, 0.1418E+01, 0.1426E+01,& - 0.1433E+01, 0.1441E+01, 0.1449E+01, 0.1456E+01,& - 0.1464E+01, 0.1472E+01, 0.1480E+01, 0.1488E+01,& - 0.1496E+01, 0.1504E+01, 0.1512E+01, 0.1520E+01,& - 0.1528E+01, 0.1536E+01, 0.1544E+01, 0.1553E+01,& - 0.1561E+01, 0.1569E+01, 0.1578E+01, 0.1586E+01,& - 0.1595E+01, 0.1604E+01, 0.1612E+01, 0.1621E+01,& - 0.1630E+01, 0.1639E+01, 0.1648E+01, 0.1657E+01,& - 0.1666E+01, 0.1675E+01, 0.1684E+01, 0.1693E+01,& - 0.1703E+01, 0.1712E+01, 0.1721E+01, 0.1731E+01,& - 0.1741E+01, 0.1750E+01, 0.1760E+01, 0.1770E+01,& - 0.1779E+01, 0.1789E+01, 0.1799E+01, 0.1809E+01,& - 0.1820E+01, 0.1830E+01, 0.1840E+01, 0.1850E+01,& - 0.1861E+01, 0.1871E+01, 0.1882E+01, 0.1892E+01,& - 0.1903E+01, 0.1914E+01, 0.1925E+01, 0.1936E+01,& - 0.1947E+01, 0.1958E+01, 0.1969E+01, 0.1981E+01,& - 0.1992E+01, 0.2004E+01, 0.2015E+01, 0.2027E+01,& - 0.2039E+01, 0.2050E+01, 0.2062E+01, 0.2074E+01,& - 0.2087E+01, 0.2099E+01, 0.2111E+01, 0.2124E+01,& - 0.2136E+01, 0.2149E+01, 0.2162E+01, 0.2174E+01,& - 0.2187E+01, 0.2201E+01, 0.2214E+01, 0.2227E+01,& - 0.2241E+01, 0.2254E+01, 0.2268E+01, 0.2282E+01,& - 0.2295E+01, 0.2309E+01, 0.2324E+01, 0.2338E+01,& - 0.2352E+01, 0.2367E+01, 0.2382E+01, 0.2396E+01,& - 0.2411E+01, 0.2427E+01, 0.2442E+01, 0.2457E+01,& - 0.2473E+01, 0.2488E+01, 0.2504E+01, 0.2520E+01,& - 0.2536E+01, 0.2553E+01, 0.2569E+01, 0.2586E+01,& - 0.2603E+01, 0.2620E+01, 0.2637E+01, 0.2654E+01,& - 0.2672E+01, 0.2689E+01, 0.2707E+01, 0.2725E+01,& - 0.2744E+01, 0.2762E+01, 0.2781E+01, 0.2800E+01,& - 0.2819E+01, 0.2838E+01, 0.2858E+01, 0.2878E+01,& - 0.2898E+01, 0.2918E+01, 0.2938E+01, 0.2959E+01,& - 0.2980E+01, 0.3001E+01, 0.3023E+01, 0.3044E+01,& - 0.3066E+01, 0.3089E+01, 0.3111E+01, 0.3134E+01,& - 0.3157E+01, 0.3181E+01, 0.3205E+01, 0.3229E+01,& - 0.3253E+01, 0.3278E+01, 0.3303E+01, 0.3329E+01,& - 0.3355E+01, 0.3381E+01, 0.3407E+01, 0.3434E+01,& - 0.3462E+01, 0.3489E+01, 0.3518E+01, 0.3546E+01,& - 0.3575E+01, 0.3605E+01, 0.3635E+01, 0.3666E+01,& - 0.3697E+01, 0.3728E+01, 0.3760E+01, 0.3793E+01,& - 0.3826E+01, 0.3860E+01, 0.3894E+01, 0.3929E+01,& - 0.3965E+01, 0.4001E+01, 0.4038E+01, 0.4076E+01,& - 0.4115E+01, 0.4154E+01, 0.4194E+01, 0.4235E+01,& - 0.4277E+01, 0.4320E+01, 0.4363E+01, 0.4408E+01,& - 0.4454E+01, 0.4500E+01, 0.4548E+01, 0.4597E+01,& - 0.4648E+01, 0.4699E+01, 0.4752E+01, 0.4806E+01,& - 0.4862E+01, 0.4920E+01, 0.4979E+01, 0.5039E+01,& - 0.5102E+01, 0.5166E+01, 0.5233E+01, 0.5302E+01,& - 0.5373E+01, 0.5447E+01, 0.5523E+01, 0.5602E+01,& - 0.5684E+01, 0.5770E+01, 0.5859E+01, 0.5952E+01,& - 0.6049E+01, 0.6151E+01, 0.6257E+01, 0.6369E+01,& - 0.6488E+01, 0.6613E+01, 0.6745E+01, 0.6886E+01,& - 0.7036E+01, 0.7196E+01, 0.7372E+01, 0.7561E+01,& - 0.7766E+01, 0.7992E+01, 0.8243E+01, 0.8525E+01,& - 0.8846E+01, 0.9218E+01, 0.9660E+01, 0.1020E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 65) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2855E-04, 0.2855E-04, 0.2855E-04,& - 0.2855E-04, 0.4710E-04, 0.4710E-04, 0.4710E-04,& - 0.6565E-04, 0.6565E-04, 0.6565E-04, 0.8420E-04,& - 0.8420E-04, 0.1027E-03, 0.1027E-03, 0.1213E-03,& - 0.1398E-03, 0.1398E-03, 0.1584E-03, 0.1584E-03,& - 0.1769E-03, 0.1955E-03, 0.2140E-03, 0.2326E-03,& - 0.2326E-03, 0.2511E-03, 0.2697E-03, 0.2882E-03,& - 0.3068E-03, 0.3253E-03, 0.3439E-03, 0.3810E-03,& - 0.3995E-03, 0.4181E-03, 0.4366E-03, 0.4737E-03,& - 0.4923E-03, 0.5108E-03, 0.5479E-03, 0.5665E-03,& - 0.6036E-03, 0.6407E-03, 0.6592E-03, 0.6963E-03,& - 0.7334E-03, 0.7705E-03, 0.7891E-03, 0.8262E-03,& - 0.8633E-03, 0.9003E-03, 0.9560E-03, 0.9931E-03,& - 0.1030E-02, 0.1067E-02, 0.1104E-02, 0.1160E-02,& - 0.1197E-02, 0.1253E-02, 0.1290E-02, 0.1346E-02,& - 0.1401E-02, 0.1457E-02, 0.1494E-02, 0.1550E-02,& - 0.1605E-02, 0.1661E-02, 0.1717E-02, 0.1791E-02,& - 0.1846E-02, 0.1902E-02, 0.1976E-02, 0.2032E-02,& - 0.2106E-02, 0.2162E-02, 0.2236E-02, 0.2310E-02,& - 0.2366E-02, 0.2440E-02, 0.2514E-02, 0.2588E-02,& - 0.2681E-02, 0.2755E-02, 0.2829E-02, 0.2904E-02,& - 0.2996E-02, 0.3071E-02, 0.3163E-02, 0.3256E-02,& - 0.3349E-02, 0.3423E-02, 0.3516E-02, 0.3608E-02,& - 0.3720E-02, 0.3813E-02, 0.3905E-02, 0.4017E-02,& - 0.4109E-02, 0.4221E-02, 0.4313E-02, 0.4425E-02,& - 0.4536E-02, 0.4647E-02, 0.4759E-02, 0.4870E-02,& - 0.4981E-02, 0.5111E-02, 0.5222E-02, 0.5352E-02,& - 0.5463E-02, 0.5593E-02, 0.5723E-02, 0.5853E-02,& - 0.5983E-02, 0.6113E-02, 0.6242E-02, 0.6372E-02,& - 0.6521E-02, 0.6651E-02, 0.6799E-02, 0.6947E-02,& - 0.7096E-02, 0.7244E-02, 0.7392E-02, 0.7541E-02,& - 0.7689E-02, 0.7856E-02, 0.8005E-02, 0.8172E-02,& - 0.8320E-02, 0.8487E-02, 0.8654E-02, 0.8821E-02,& - 0.9006E-02, 0.9173E-02, 0.9340E-02, 0.9526E-02,& - 0.9711E-02, 0.9878E-02, 0.1006E-01, 0.1025E-01,& - 0.1043E-01, 0.1064E-01, 0.1082E-01, 0.1103E-01,& - 0.1121E-01, 0.1142E-01, 0.1162E-01, 0.1183E-01,& - 0.1203E-01, 0.1223E-01, 0.1246E-01, 0.1266E-01,& - 0.1288E-01, 0.1311E-01, 0.1331E-01, 0.1355E-01,& - 0.1377E-01, 0.1400E-01, 0.1422E-01, 0.1446E-01,& - 0.1470E-01, 0.1494E-01, 0.1518E-01, 0.1542E-01,& - 0.1567E-01, 0.1591E-01, 0.1617E-01, 0.1643E-01,& - 0.1667E-01, 0.1693E-01, 0.1719E-01, 0.1746E-01,& - 0.1772E-01, 0.1800E-01, 0.1826E-01, 0.1854E-01,& - 0.1882E-01, 0.1910E-01, 0.1938E-01, 0.1967E-01,& - 0.1995E-01, 0.2025E-01, 0.2054E-01, 0.2084E-01,& - 0.2114E-01, 0.2143E-01, 0.2175E-01, 0.2206E-01,& - 0.2236E-01, 0.2268E-01, 0.2299E-01, 0.2333E-01,& - 0.2364E-01, 0.2398E-01, 0.2429E-01, 0.2462E-01,& - 0.2496E-01, 0.2529E-01, 0.2564E-01, 0.2598E-01,& - 0.2633E-01, 0.2668E-01, 0.2704E-01, 0.2739E-01,& - 0.2774E-01, 0.2811E-01, 0.2848E-01, 0.2885E-01,& - 0.2922E-01, 0.2960E-01, 0.2997E-01, 0.3036E-01,& - 0.3073E-01, 0.3112E-01, 0.3151E-01, 0.3191E-01,& - 0.3230E-01, 0.3271E-01, 0.3312E-01, 0.3351E-01,& - 0.3394E-01, 0.3434E-01, 0.3475E-01, 0.3518E-01,& - 0.3561E-01, 0.3603E-01, 0.3646E-01, 0.3690E-01,& - 0.3733E-01, 0.3778E-01, 0.3822E-01, 0.3867E-01,& - 0.3911E-01, 0.3957E-01, 0.4004E-01, 0.4050E-01,& - 0.4097E-01, 0.4143E-01, 0.4191E-01, 0.4238E-01,& - 0.4286E-01, 0.4334E-01, 0.4382E-01, 0.4432E-01,& - 0.4482E-01, 0.4531E-01, 0.4581E-01, 0.4633E-01,& - 0.4683E-01, 0.4735E-01, 0.4787E-01, 0.4839E-01,& - 0.4891E-01, 0.4944E-01, 0.4996E-01, 0.5050E-01,& - 0.5104E-01, 0.5158E-01, 0.5213E-01, 0.5269E-01,& - 0.5325E-01, 0.5380E-01, 0.5436E-01, 0.5493E-01,& - 0.5551E-01, 0.5608E-01, 0.5666E-01, 0.5723E-01,& - 0.5783E-01, 0.5842E-01, 0.5901E-01, 0.5961E-01,& - 0.6022E-01, 0.6081E-01, 0.6143E-01, 0.6204E-01,& - 0.6267E-01, 0.6330E-01, 0.6391E-01, 0.6454E-01,& - 0.6519E-01, 0.6582E-01, 0.6647E-01, 0.6712E-01,& - 0.6777E-01, 0.6844E-01, 0.6910E-01, 0.6975E-01,& - 0.7044E-01, 0.7111E-01, 0.7179E-01, 0.7248E-01,& - 0.7317E-01, 0.7385E-01, 0.7456E-01, 0.7524E-01,& - 0.7597E-01, 0.7667E-01, 0.7738E-01, 0.7810E-01,& - 0.7882E-01, 0.7957E-01, 0.8029E-01, 0.8103E-01,& - 0.8177E-01, 0.8252E-01, 0.8328E-01, 0.8404E-01,& - 0.8480E-01, 0.8556E-01, 0.8632E-01, 0.8710E-01,& - 0.8788E-01, 0.8867E-01, 0.8945E-01, 0.9025E-01,& - 0.9105E-01, 0.9186E-01, 0.9266E-01, 0.9348E-01,& - 0.9429E-01, 0.9513E-01, 0.9595E-01, 0.9678E-01,& - 0.9761E-01, 0.9847E-01, 0.9932E-01, 0.1002E+00,& - 0.1010E+00, 0.1019E+00, 0.1028E+00, 0.1036E+00,& - 0.1045E+00, 0.1054E+00, 0.1063E+00, 0.1072E+00,& - 0.1081E+00, 0.1090E+00, 0.1099E+00, 0.1108E+00,& - 0.1117E+00, 0.1127E+00, 0.1136E+00, 0.1145E+00,& - 0.1155E+00, 0.1164E+00, 0.1174E+00, 0.1183E+00,& - 0.1193E+00, 0.1203E+00, 0.1212E+00, 0.1222E+00,& - 0.1232E+00, 0.1242E+00, 0.1252E+00, 0.1262E+00,& - 0.1272E+00, 0.1282E+00, 0.1292E+00, 0.1302E+00,& - 0.1313E+00, 0.1323E+00, 0.1334E+00, 0.1344E+00,& - 0.1355E+00, 0.1365E+00, 0.1376E+00, 0.1386E+00,& - 0.1397E+00, 0.1408E+00, 0.1419E+00, 0.1430E+00,& - 0.1441E+00, 0.1452E+00, 0.1463E+00, 0.1474E+00,& - 0.1486E+00, 0.1497E+00, 0.1508E+00, 0.1519E+00,& - 0.1531E+00, 0.1542E+00, 0.1554E+00, 0.1566E+00,& - 0.1578E+00, 0.1589E+00, 0.1601E+00, 0.1613E+00,& - 0.1625E+00, 0.1637E+00, 0.1649E+00, 0.1661E+00,& - 0.1674E+00, 0.1686E+00, 0.1698E+00, 0.1711E+00,& - 0.1723E+00, 0.1736E+00, 0.1748E+00, 0.1761E+00,& - 0.1774E+00, 0.1787E+00, 0.1799E+00, 0.1812E+00,& - 0.1825E+00, 0.1838E+00, 0.1851E+00, 0.1865E+00,& - 0.1878E+00, 0.1891E+00, 0.1905E+00, 0.1918E+00,& - 0.1932E+00, 0.1945E+00, 0.1959E+00, 0.1973E+00,& - 0.1987E+00, 0.2001E+00, 0.2015E+00, 0.2029E+00,& - 0.2043E+00, 0.2057E+00, 0.2071E+00, 0.2085E+00,& - 0.2100E+00, 0.2114E+00, 0.2129E+00, 0.2143E+00,& - 0.2158E+00, 0.2173E+00, 0.2188E+00, 0.2203E+00,& - 0.2218E+00, 0.2233E+00, 0.2248E+00, 0.2263E+00,& - 0.2278E+00, 0.2294E+00, 0.2309E+00, 0.2324E+00,& - 0.2340E+00, 0.2356E+00, 0.2372E+00, 0.2387E+00,& - 0.2403E+00, 0.2419E+00, 0.2435E+00, 0.2451E+00,& - 0.2467E+00, 0.2484E+00, 0.2500E+00, 0.2517E+00,& - 0.2533E+00, 0.2550E+00, 0.2566E+00, 0.2583E+00,& - 0.2600E+00, 0.2617E+00, 0.2634E+00, 0.2651E+00,& - 0.2668E+00, 0.2685E+00, 0.2703E+00, 0.2720E+00,& - 0.2738E+00, 0.2755E+00, 0.2773E+00, 0.2791E+00,& - 0.2809E+00, 0.2827E+00, 0.2845E+00, 0.2863E+00,& - 0.2881E+00, 0.2899E+00, 0.2917E+00, 0.2936E+00,& - 0.2954E+00, 0.2973E+00, 0.2992E+00, 0.3011E+00,& - 0.3030E+00, 0.3048E+00, 0.3068E+00, 0.3087E+00,& - 0.3106E+00, 0.3125E+00, 0.3145E+00, 0.3164E+00,& - 0.3184E+00, 0.3204E+00, 0.3223E+00, 0.3243E+00,& - 0.3263E+00, 0.3283E+00, 0.3304E+00, 0.3324E+00,& - 0.3344E+00, 0.3365E+00, 0.3385E+00, 0.3406E+00,& - 0.3427E+00, 0.3448E+00, 0.3469E+00, 0.3490E+00,& - 0.3511E+00, 0.3532E+00, 0.3553E+00, 0.3575E+00,& - 0.3596E+00, 0.3618E+00, 0.3640E+00, 0.3662E+00,& - 0.3684E+00, 0.3706E+00, 0.3728E+00, 0.3750E+00,& - 0.3772E+00, 0.3795E+00, 0.3817E+00, 0.3840E+00,& - 0.3863E+00, 0.3886E+00, 0.3909E+00, 0.3932E+00,& - 0.3955E+00, 0.3979E+00, 0.4002E+00, 0.4026E+00,& - 0.4049E+00, 0.4073E+00, 0.4097E+00, 0.4121E+00,& - 0.4145E+00, 0.4169E+00, 0.4194E+00, 0.4218E+00,& - 0.4243E+00, 0.4267E+00, 0.4292E+00, 0.4317E+00,& - 0.4342E+00, 0.4367E+00, 0.4392E+00, 0.4418E+00,& - 0.4443E+00, 0.4469E+00, 0.4495E+00, 0.4520E+00,& - 0.4546E+00, 0.4572E+00, 0.4599E+00, 0.4625E+00,& - 0.4651E+00, 0.4678E+00, 0.4705E+00, 0.4732E+00,& - 0.4758E+00, 0.4786E+00, 0.4813E+00, 0.4840E+00,& - 0.4868E+00, 0.4895E+00, 0.4923E+00, 0.4951E+00,& - 0.4979E+00, 0.5007E+00, 0.5035E+00, 0.5063E+00,& - 0.5092E+00, 0.5121E+00, 0.5149E+00, 0.5178E+00,& - 0.5207E+00, 0.5236E+00, 0.5266E+00, 0.5295E+00,& - 0.5325E+00, 0.5354E+00, 0.5384E+00, 0.5414E+00,& - 0.5444E+00, 0.5475E+00, 0.5505E+00, 0.5536E+00,& - 0.5566E+00, 0.5597E+00, 0.5628E+00, 0.5659E+00,& - 0.5691E+00, 0.5722E+00, 0.5754E+00, 0.5785E+00,& - 0.5817E+00, 0.5849E+00, 0.5881E+00, 0.5914E+00,& - 0.5946E+00, 0.5979E+00, 0.6012E+00, 0.6045E+00,& - 0.6078E+00, 0.6111E+00, 0.6144E+00, 0.6178E+00,& - 0.6212E+00, 0.6246E+00, 0.6280E+00, 0.6314E+00,& - 0.6348E+00, 0.6383E+00, 0.6417E+00, 0.6452E+00,& - 0.6487E+00, 0.6523E+00, 0.6558E+00, 0.6594E+00,& - 0.6629E+00, 0.6665E+00, 0.6701E+00, 0.6737E+00,& - 0.6774E+00, 0.6810E+00, 0.6847E+00, 0.6884E+00,& - 0.6921E+00, 0.6958E+00, 0.6996E+00, 0.7033E+00,& - 0.7071E+00, 0.7109E+00, 0.7148E+00, 0.7186E+00,& - 0.7225E+00, 0.7263E+00, 0.7302E+00, 0.7341E+00,& - 0.7381E+00, 0.7420E+00, 0.7460E+00, 0.7500E+00,& - 0.7540E+00, 0.7580E+00, 0.7621E+00, 0.7661E+00,& - 0.7702E+00, 0.7743E+00, 0.7785E+00, 0.7826E+00,& - 0.7868E+00, 0.7910E+00, 0.7952E+00, 0.7994E+00,& - 0.8036E+00, 0.8079E+00, 0.8122E+00, 0.8165E+00,& - 0.8209E+00, 0.8252E+00, 0.8296E+00, 0.8340E+00,& - 0.8384E+00, 0.8429E+00, 0.8473E+00, 0.8518E+00,& - 0.8563E+00, 0.8609E+00, 0.8654E+00, 0.8700E+00,& - 0.8746E+00, 0.8793E+00, 0.8839E+00, 0.8886E+00,& - 0.8933E+00, 0.8980E+00, 0.9028E+00, 0.9075E+00,& - 0.9123E+00, 0.9171E+00, 0.9220E+00, 0.9269E+00,& - 0.9318E+00, 0.9367E+00, 0.9416E+00, 0.9466E+00,& - 0.9516E+00, 0.9566E+00, 0.9617E+00, 0.9667E+00,& - 0.9718E+00, 0.9770E+00, 0.9821E+00, 0.9873E+00,& - 0.9925E+00, 0.9978E+00, 0.1003E+01, 0.1008E+01,& - 0.1014E+01, 0.1019E+01, 0.1024E+01, 0.1030E+01,& - 0.1035E+01, 0.1041E+01, 0.1046E+01, 0.1052E+01,& - 0.1057E+01, 0.1063E+01, 0.1068E+01, 0.1074E+01,& - 0.1080E+01, 0.1085E+01, 0.1091E+01, 0.1097E+01,& - 0.1103E+01, 0.1109E+01, 0.1114E+01, 0.1120E+01,& - 0.1126E+01, 0.1132E+01, 0.1138E+01, 0.1144E+01,& - 0.1150E+01, 0.1156E+01, 0.1163E+01, 0.1169E+01,& - 0.1175E+01, 0.1181E+01, 0.1187E+01, 0.1194E+01,& - 0.1200E+01, 0.1206E+01, 0.1213E+01, 0.1219E+01,& - 0.1226E+01, 0.1232E+01, 0.1239E+01, 0.1245E+01,& - 0.1252E+01, 0.1259E+01, 0.1265E+01, 0.1272E+01,& - 0.1279E+01, 0.1286E+01, 0.1293E+01, 0.1300E+01,& - 0.1307E+01, 0.1313E+01, 0.1321E+01, 0.1328E+01,& - 0.1335E+01, 0.1342E+01, 0.1349E+01, 0.1356E+01,& - 0.1364E+01, 0.1371E+01, 0.1378E+01, 0.1386E+01,& - 0.1393E+01, 0.1401E+01, 0.1408E+01, 0.1416E+01,& - 0.1424E+01, 0.1431E+01, 0.1439E+01, 0.1447E+01,& - 0.1455E+01, 0.1463E+01, 0.1470E+01, 0.1478E+01,& - 0.1487E+01, 0.1495E+01, 0.1503E+01, 0.1511E+01,& - 0.1519E+01, 0.1528E+01, 0.1536E+01, 0.1544E+01,& - 0.1553E+01, 0.1561E+01, 0.1570E+01, 0.1579E+01,& - 0.1587E+01, 0.1596E+01, 0.1605E+01, 0.1614E+01,& - 0.1623E+01, 0.1632E+01, 0.1641E+01, 0.1650E+01,& - 0.1659E+01, 0.1668E+01, 0.1677E+01, 0.1687E+01,& - 0.1696E+01, 0.1706E+01, 0.1715E+01, 0.1725E+01,& - 0.1735E+01, 0.1744E+01, 0.1754E+01, 0.1764E+01,& - 0.1774E+01, 0.1784E+01, 0.1794E+01, 0.1804E+01,& - 0.1815E+01, 0.1825E+01, 0.1835E+01, 0.1846E+01,& - 0.1857E+01, 0.1867E+01, 0.1878E+01, 0.1889E+01,& - 0.1900E+01, 0.1911E+01, 0.1922E+01, 0.1933E+01,& - 0.1944E+01, 0.1955E+01, 0.1967E+01, 0.1978E+01,& - 0.1990E+01, 0.2001E+01, 0.2013E+01, 0.2025E+01,& - 0.2037E+01, 0.2049E+01, 0.2061E+01, 0.2073E+01,& - 0.2086E+01, 0.2098E+01, 0.2111E+01, 0.2123E+01,& - 0.2136E+01, 0.2149E+01, 0.2162E+01, 0.2175E+01,& - 0.2188E+01, 0.2202E+01, 0.2215E+01, 0.2229E+01,& - 0.2242E+01, 0.2256E+01, 0.2270E+01, 0.2284E+01,& - 0.2298E+01, 0.2312E+01, 0.2327E+01, 0.2341E+01,& - 0.2356E+01, 0.2371E+01, 0.2386E+01, 0.2401E+01,& - 0.2416E+01, 0.2431E+01, 0.2447E+01, 0.2463E+01,& - 0.2478E+01, 0.2494E+01, 0.2510E+01, 0.2527E+01,& - 0.2543E+01, 0.2560E+01, 0.2577E+01, 0.2594E+01,& - 0.2611E+01, 0.2628E+01, 0.2645E+01, 0.2663E+01,& - 0.2681E+01, 0.2699E+01, 0.2717E+01, 0.2736E+01,& - 0.2754E+01, 0.2773E+01, 0.2792E+01, 0.2811E+01,& - 0.2831E+01, 0.2851E+01, 0.2871E+01, 0.2891E+01,& - 0.2911E+01, 0.2932E+01, 0.2953E+01, 0.2974E+01,& - 0.2995E+01, 0.3017E+01, 0.3039E+01, 0.3061E+01,& - 0.3083E+01, 0.3106E+01, 0.3129E+01, 0.3152E+01,& - 0.3176E+01, 0.3200E+01, 0.3224E+01, 0.3249E+01,& - 0.3274E+01, 0.3299E+01, 0.3325E+01, 0.3351E+01,& - 0.3377E+01, 0.3404E+01, 0.3431E+01, 0.3458E+01,& - 0.3486E+01, 0.3515E+01, 0.3544E+01, 0.3573E+01,& - 0.3603E+01, 0.3633E+01, 0.3663E+01, 0.3695E+01,& - 0.3726E+01, 0.3758E+01, 0.3791E+01, 0.3825E+01,& - 0.3859E+01, 0.3893E+01, 0.3928E+01, 0.3964E+01,& - 0.4000E+01, 0.4038E+01, 0.4075E+01, 0.4114E+01,& - 0.4153E+01, 0.4194E+01, 0.4235E+01, 0.4277E+01,& - 0.4319E+01, 0.4363E+01, 0.4408E+01, 0.4453E+01,& - 0.4500E+01, 0.4548E+01, 0.4597E+01, 0.4647E+01,& - 0.4698E+01, 0.4751E+01, 0.4805E+01, 0.4861E+01,& - 0.4918E+01, 0.4976E+01, 0.5037E+01, 0.5099E+01,& - 0.5163E+01, 0.5229E+01, 0.5297E+01, 0.5368E+01,& - 0.5440E+01, 0.5515E+01, 0.5594E+01, 0.5675E+01,& - 0.5759E+01, 0.5847E+01, 0.5938E+01, 0.6033E+01,& - 0.6133E+01, 0.6237E+01, 0.6346E+01, 0.6461E+01,& - 0.6582E+01, 0.6710E+01, 0.6846E+01, 0.6991E+01,& - 0.7145E+01, 0.7311E+01, 0.7489E+01, 0.7682E+01,& - 0.7893E+01, 0.8125E+01, 0.8382E+01, 0.8671E+01,& - 0.9000E+01, 0.9382E+01, 0.9836E+01, 0.1039E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 66) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.2896E-04, 0.2896E-04, 0.2896E-04, 0.2896E-04,& - 0.4791E-04, 0.4791E-04, 0.4791E-04, 0.6687E-04,& - 0.6687E-04, 0.6687E-04, 0.8583E-04, 0.8583E-04,& - 0.1048E-03, 0.1048E-03, 0.1237E-03, 0.1237E-03,& - 0.1427E-03, 0.1427E-03, 0.1617E-03, 0.1806E-03,& - 0.1806E-03, 0.1996E-03, 0.2185E-03, 0.2375E-03,& - 0.2375E-03, 0.2564E-03, 0.2754E-03, 0.2944E-03,& - 0.3133E-03, 0.3323E-03, 0.3512E-03, 0.3702E-03,& - 0.3891E-03, 0.4081E-03, 0.4271E-03, 0.4650E-03,& - 0.4839E-03, 0.5029E-03, 0.5408E-03, 0.5598E-03,& - 0.5787E-03, 0.6166E-03, 0.6356E-03, 0.6735E-03,& - 0.7114E-03, 0.7304E-03, 0.7683E-03, 0.8062E-03,& - 0.8441E-03, 0.8820E-03, 0.9010E-03, 0.9389E-03,& - 0.9768E-03, 0.1034E-02, 0.1072E-02, 0.1110E-02,& - 0.1147E-02, 0.1185E-02, 0.1242E-02, 0.1280E-02,& - 0.1337E-02, 0.1375E-02, 0.1432E-02, 0.1470E-02,& - 0.1527E-02, 0.1583E-02, 0.1640E-02, 0.1697E-02,& - 0.1754E-02, 0.1811E-02, 0.1868E-02, 0.1925E-02,& - 0.1982E-02, 0.2057E-02, 0.2114E-02, 0.2171E-02,& - 0.2247E-02, 0.2304E-02, 0.2380E-02, 0.2455E-02,& - 0.2531E-02, 0.2588E-02, 0.2664E-02, 0.2740E-02,& - 0.2816E-02, 0.2910E-02, 0.2986E-02, 0.3062E-02,& - 0.3157E-02, 0.3233E-02, 0.3328E-02, 0.3403E-02,& - 0.3498E-02, 0.3593E-02, 0.3688E-02, 0.3764E-02,& - 0.3877E-02, 0.3972E-02, 0.4067E-02, 0.4162E-02,& - 0.4256E-02, 0.4370E-02, 0.4484E-02, 0.4579E-02,& - 0.4692E-02, 0.4806E-02, 0.4920E-02, 0.5034E-02,& - 0.5147E-02, 0.5261E-02, 0.5375E-02, 0.5489E-02,& - 0.5621E-02, 0.5735E-02, 0.5868E-02, 0.6000E-02,& - 0.6133E-02, 0.6266E-02, 0.6399E-02, 0.6531E-02,& - 0.6664E-02, 0.6797E-02, 0.6948E-02, 0.7081E-02,& - 0.7233E-02, 0.7384E-02, 0.7536E-02, 0.7688E-02,& - 0.7839E-02, 0.7991E-02, 0.8143E-02, 0.8294E-02,& - 0.8465E-02, 0.8636E-02, 0.8787E-02, 0.8958E-02,& - 0.9128E-02, 0.9299E-02, 0.9470E-02, 0.9659E-02,& - 0.9830E-02, 0.1000E-01, 0.1019E-01, 0.1038E-01,& - 0.1057E-01, 0.1076E-01, 0.1095E-01, 0.1114E-01,& - 0.1133E-01, 0.1154E-01, 0.1173E-01, 0.1193E-01,& - 0.1214E-01, 0.1235E-01, 0.1256E-01, 0.1277E-01,& - 0.1298E-01, 0.1319E-01, 0.1341E-01, 0.1364E-01,& - 0.1387E-01, 0.1408E-01, 0.1432E-01, 0.1455E-01,& - 0.1478E-01, 0.1502E-01, 0.1525E-01, 0.1550E-01,& - 0.1574E-01, 0.1599E-01, 0.1624E-01, 0.1648E-01,& - 0.1673E-01, 0.1700E-01, 0.1726E-01, 0.1753E-01,& - 0.1777E-01, 0.1806E-01, 0.1832E-01, 0.1859E-01,& - 0.1887E-01, 0.1914E-01, 0.1942E-01, 0.1971E-01,& - 0.1999E-01, 0.2028E-01, 0.2058E-01, 0.2086E-01,& - 0.2117E-01, 0.2147E-01, 0.2177E-01, 0.2208E-01,& - 0.2238E-01, 0.2270E-01, 0.2301E-01, 0.2333E-01,& - 0.2365E-01, 0.2397E-01, 0.2429E-01, 0.2464E-01,& - 0.2496E-01, 0.2530E-01, 0.2564E-01, 0.2598E-01,& - 0.2632E-01, 0.2666E-01, 0.2702E-01, 0.2737E-01,& - 0.2773E-01, 0.2809E-01, 0.2845E-01, 0.2883E-01,& - 0.2919E-01, 0.2956E-01, 0.2994E-01, 0.3032E-01,& - 0.3070E-01, 0.3108E-01, 0.3148E-01, 0.3186E-01,& - 0.3226E-01, 0.3265E-01, 0.3305E-01, 0.3347E-01,& - 0.3387E-01, 0.3428E-01, 0.3470E-01, 0.3512E-01,& - 0.3554E-01, 0.3597E-01, 0.3639E-01, 0.3682E-01,& - 0.3726E-01, 0.3770E-01, 0.3813E-01, 0.3859E-01,& - 0.3904E-01, 0.3950E-01, 0.3995E-01, 0.4041E-01,& - 0.4086E-01, 0.4134E-01, 0.4181E-01, 0.4228E-01,& - 0.4276E-01, 0.4325E-01, 0.4373E-01, 0.4422E-01,& - 0.4471E-01, 0.4520E-01, 0.4572E-01, 0.4621E-01,& - 0.4672E-01, 0.4723E-01, 0.4774E-01, 0.4826E-01,& - 0.4879E-01, 0.4932E-01, 0.4985E-01, 0.5038E-01,& - 0.5091E-01, 0.5146E-01, 0.5201E-01, 0.5256E-01,& - 0.5311E-01, 0.5368E-01, 0.5423E-01, 0.5480E-01,& - 0.5537E-01, 0.5595E-01, 0.5652E-01, 0.5711E-01,& - 0.5770E-01, 0.5828E-01, 0.5887E-01, 0.5948E-01,& - 0.6009E-01, 0.6069E-01, 0.6130E-01, 0.6191E-01,& - 0.6253E-01, 0.6316E-01, 0.6378E-01, 0.6441E-01,& - 0.6505E-01, 0.6570E-01, 0.6634E-01, 0.6699E-01,& - 0.6765E-01, 0.6829E-01, 0.6896E-01, 0.6964E-01,& - 0.7030E-01, 0.7099E-01, 0.7167E-01, 0.7235E-01,& - 0.7303E-01, 0.7373E-01, 0.7444E-01, 0.7514E-01,& - 0.7584E-01, 0.7656E-01, 0.7726E-01, 0.7798E-01,& - 0.7872E-01, 0.7944E-01, 0.8018E-01, 0.8092E-01,& - 0.8166E-01, 0.8242E-01, 0.8318E-01, 0.8393E-01,& - 0.8469E-01, 0.8547E-01, 0.8625E-01, 0.8702E-01,& - 0.8780E-01, 0.8858E-01, 0.8937E-01, 0.9017E-01,& - 0.9099E-01, 0.9178E-01, 0.9260E-01, 0.9341E-01,& - 0.9425E-01, 0.9506E-01, 0.9590E-01, 0.9675E-01,& - 0.9758E-01, 0.9844E-01, 0.9929E-01, 0.1001E+00,& - 0.1010E+00, 0.1019E+00, 0.1028E+00, 0.1036E+00,& - 0.1045E+00, 0.1054E+00, 0.1063E+00, 0.1072E+00,& - 0.1081E+00, 0.1090E+00, 0.1099E+00, 0.1109E+00,& - 0.1118E+00, 0.1127E+00, 0.1137E+00, 0.1146E+00,& - 0.1155E+00, 0.1165E+00, 0.1175E+00, 0.1184E+00,& - 0.1194E+00, 0.1204E+00, 0.1214E+00, 0.1223E+00,& - 0.1233E+00, 0.1243E+00, 0.1253E+00, 0.1263E+00,& - 0.1274E+00, 0.1284E+00, 0.1294E+00, 0.1305E+00,& - 0.1315E+00, 0.1325E+00, 0.1336E+00, 0.1346E+00,& - 0.1357E+00, 0.1368E+00, 0.1378E+00, 0.1389E+00,& - 0.1400E+00, 0.1411E+00, 0.1422E+00, 0.1433E+00,& - 0.1444E+00, 0.1455E+00, 0.1467E+00, 0.1478E+00,& - 0.1489E+00, 0.1501E+00, 0.1512E+00, 0.1524E+00,& - 0.1535E+00, 0.1547E+00, 0.1559E+00, 0.1571E+00,& - 0.1582E+00, 0.1594E+00, 0.1606E+00, 0.1618E+00,& - 0.1631E+00, 0.1643E+00, 0.1655E+00, 0.1667E+00,& - 0.1680E+00, 0.1692E+00, 0.1705E+00, 0.1717E+00,& - 0.1730E+00, 0.1743E+00, 0.1755E+00, 0.1768E+00,& - 0.1781E+00, 0.1794E+00, 0.1807E+00, 0.1820E+00,& - 0.1833E+00, 0.1847E+00, 0.1860E+00, 0.1873E+00,& - 0.1887E+00, 0.1901E+00, 0.1914E+00, 0.1928E+00,& - 0.1942E+00, 0.1955E+00, 0.1969E+00, 0.1983E+00,& - 0.1997E+00, 0.2011E+00, 0.2026E+00, 0.2040E+00,& - 0.2054E+00, 0.2069E+00, 0.2083E+00, 0.2098E+00,& - 0.2112E+00, 0.2127E+00, 0.2142E+00, 0.2157E+00,& - 0.2171E+00, 0.2187E+00, 0.2202E+00, 0.2217E+00,& - 0.2232E+00, 0.2247E+00, 0.2263E+00, 0.2278E+00,& - 0.2294E+00, 0.2309E+00, 0.2325E+00, 0.2341E+00,& - 0.2357E+00, 0.2373E+00, 0.2389E+00, 0.2405E+00,& - 0.2421E+00, 0.2437E+00, 0.2454E+00, 0.2470E+00,& - 0.2487E+00, 0.2503E+00, 0.2520E+00, 0.2537E+00,& - 0.2553E+00, 0.2570E+00, 0.2587E+00, 0.2604E+00,& - 0.2622E+00, 0.2639E+00, 0.2656E+00, 0.2674E+00,& - 0.2691E+00, 0.2709E+00, 0.2727E+00, 0.2744E+00,& - 0.2762E+00, 0.2780E+00, 0.2798E+00, 0.2816E+00,& - 0.2835E+00, 0.2853E+00, 0.2871E+00, 0.2890E+00,& - 0.2908E+00, 0.2927E+00, 0.2946E+00, 0.2965E+00,& - 0.2984E+00, 0.3003E+00, 0.3022E+00, 0.3041E+00,& - 0.3060E+00, 0.3080E+00, 0.3099E+00, 0.3119E+00,& - 0.3138E+00, 0.3158E+00, 0.3178E+00, 0.3198E+00,& - 0.3218E+00, 0.3239E+00, 0.3259E+00, 0.3279E+00,& - 0.3300E+00, 0.3320E+00, 0.3341E+00, 0.3362E+00,& - 0.3382E+00, 0.3403E+00, 0.3425E+00, 0.3446E+00,& - 0.3467E+00, 0.3488E+00, 0.3510E+00, 0.3531E+00,& - 0.3553E+00, 0.3575E+00, 0.3597E+00, 0.3619E+00,& - 0.3641E+00, 0.3663E+00, 0.3686E+00, 0.3708E+00,& - 0.3731E+00, 0.3753E+00, 0.3776E+00, 0.3799E+00,& - 0.3822E+00, 0.3845E+00, 0.3868E+00, 0.3891E+00,& - 0.3915E+00, 0.3938E+00, 0.3962E+00, 0.3986E+00,& - 0.4010E+00, 0.4034E+00, 0.4058E+00, 0.4082E+00,& - 0.4106E+00, 0.4131E+00, 0.4155E+00, 0.4180E+00,& - 0.4205E+00, 0.4230E+00, 0.4255E+00, 0.4280E+00,& - 0.4305E+00, 0.4331E+00, 0.4356E+00, 0.4381E+00,& - 0.4407E+00, 0.4433E+00, 0.4459E+00, 0.4485E+00,& - 0.4512E+00, 0.4538E+00, 0.4564E+00, 0.4591E+00,& - 0.4618E+00, 0.4645E+00, 0.4672E+00, 0.4699E+00,& - 0.4726E+00, 0.4754E+00, 0.4781E+00, 0.4809E+00,& - 0.4837E+00, 0.4865E+00, 0.4893E+00, 0.4921E+00,& - 0.4949E+00, 0.4978E+00, 0.5006E+00, 0.5035E+00,& - 0.5064E+00, 0.5093E+00, 0.5122E+00, 0.5151E+00,& - 0.5181E+00, 0.5210E+00, 0.5240E+00, 0.5270E+00,& - 0.5300E+00, 0.5330E+00, 0.5360E+00, 0.5391E+00,& - 0.5421E+00, 0.5452E+00, 0.5483E+00, 0.5514E+00,& - 0.5545E+00, 0.5576E+00, 0.5608E+00, 0.5640E+00,& - 0.5671E+00, 0.5703E+00, 0.5735E+00, 0.5767E+00,& - 0.5800E+00, 0.5832E+00, 0.5865E+00, 0.5898E+00,& - 0.5931E+00, 0.5964E+00, 0.5997E+00, 0.6031E+00,& - 0.6065E+00, 0.6098E+00, 0.6132E+00, 0.6167E+00,& - 0.6201E+00, 0.6235E+00, 0.6270E+00, 0.6305E+00,& - 0.6340E+00, 0.6375E+00, 0.6410E+00, 0.6446E+00,& - 0.6482E+00, 0.6517E+00, 0.6553E+00, 0.6590E+00,& - 0.6626E+00, 0.6662E+00, 0.6699E+00, 0.6736E+00,& - 0.6773E+00, 0.6810E+00, 0.6848E+00, 0.6886E+00,& - 0.6923E+00, 0.6961E+00, 0.7000E+00, 0.7038E+00,& - 0.7077E+00, 0.7116E+00, 0.7154E+00, 0.7194E+00,& - 0.7233E+00, 0.7272E+00, 0.7312E+00, 0.7352E+00,& - 0.7392E+00, 0.7433E+00, 0.7473E+00, 0.7514E+00,& - 0.7555E+00, 0.7596E+00, 0.7637E+00, 0.7679E+00,& - 0.7721E+00, 0.7763E+00, 0.7805E+00, 0.7847E+00,& - 0.7890E+00, 0.7933E+00, 0.7976E+00, 0.8019E+00,& - 0.8062E+00, 0.8106E+00, 0.8150E+00, 0.8194E+00,& - 0.8239E+00, 0.8283E+00, 0.8328E+00, 0.8373E+00,& - 0.8418E+00, 0.8464E+00, 0.8510E+00, 0.8556E+00,& - 0.8602E+00, 0.8648E+00, 0.8695E+00, 0.8742E+00,& - 0.8789E+00, 0.8837E+00, 0.8884E+00, 0.8932E+00,& - 0.8980E+00, 0.9029E+00, 0.9077E+00, 0.9126E+00,& - 0.9176E+00, 0.9225E+00, 0.9275E+00, 0.9325E+00,& - 0.9375E+00, 0.9425E+00, 0.9476E+00, 0.9527E+00,& - 0.9578E+00, 0.9630E+00, 0.9682E+00, 0.9734E+00,& - 0.9786E+00, 0.9839E+00, 0.9892E+00, 0.9945E+00,& - 0.9997E+00, 0.1005E+01, 0.1011E+01, 0.1016E+01,& - 0.1022E+01, 0.1027E+01, 0.1033E+01, 0.1038E+01,& - 0.1044E+01, 0.1049E+01, 0.1055E+01, 0.1061E+01,& - 0.1066E+01, 0.1072E+01, 0.1078E+01, 0.1084E+01,& - 0.1090E+01, 0.1095E+01, 0.1101E+01, 0.1107E+01,& - 0.1113E+01, 0.1119E+01, 0.1125E+01, 0.1131E+01,& - 0.1138E+01, 0.1144E+01, 0.1150E+01, 0.1156E+01,& - 0.1162E+01, 0.1169E+01, 0.1175E+01, 0.1181E+01,& - 0.1188E+01, 0.1194E+01, 0.1201E+01, 0.1207E+01,& - 0.1214E+01, 0.1220E+01, 0.1227E+01, 0.1233E+01,& - 0.1240E+01, 0.1247E+01, 0.1254E+01, 0.1260E+01,& - 0.1267E+01, 0.1274E+01, 0.1281E+01, 0.1288E+01,& - 0.1295E+01, 0.1302E+01, 0.1309E+01, 0.1316E+01,& - 0.1324E+01, 0.1331E+01, 0.1338E+01, 0.1345E+01,& - 0.1353E+01, 0.1360E+01, 0.1368E+01, 0.1375E+01,& - 0.1383E+01, 0.1390E+01, 0.1398E+01, 0.1406E+01,& - 0.1413E+01, 0.1421E+01, 0.1429E+01, 0.1437E+01,& - 0.1445E+01, 0.1453E+01, 0.1461E+01, 0.1469E+01,& - 0.1477E+01, 0.1485E+01, 0.1493E+01, 0.1502E+01,& - 0.1510E+01, 0.1518E+01, 0.1527E+01, 0.1535E+01,& - 0.1544E+01, 0.1553E+01, 0.1561E+01, 0.1570E+01,& - 0.1579E+01, 0.1588E+01, 0.1597E+01, 0.1606E+01,& - 0.1615E+01, 0.1624E+01, 0.1633E+01, 0.1642E+01,& - 0.1651E+01, 0.1661E+01, 0.1670E+01, 0.1680E+01,& - 0.1689E+01, 0.1699E+01, 0.1709E+01, 0.1718E+01,& - 0.1728E+01, 0.1738E+01, 0.1748E+01, 0.1758E+01,& - 0.1768E+01, 0.1778E+01, 0.1789E+01, 0.1799E+01,& - 0.1809E+01, 0.1820E+01, 0.1830E+01, 0.1841E+01,& - 0.1852E+01, 0.1863E+01, 0.1873E+01, 0.1884E+01,& - 0.1895E+01, 0.1907E+01, 0.1918E+01, 0.1929E+01,& - 0.1940E+01, 0.1952E+01, 0.1964E+01, 0.1975E+01,& - 0.1987E+01, 0.1999E+01, 0.2011E+01, 0.2023E+01,& - 0.2035E+01, 0.2047E+01, 0.2059E+01, 0.2072E+01,& - 0.2084E+01, 0.2097E+01, 0.2110E+01, 0.2123E+01,& - 0.2136E+01, 0.2149E+01, 0.2162E+01, 0.2175E+01,& - 0.2189E+01, 0.2202E+01, 0.2216E+01, 0.2229E+01,& - 0.2243E+01, 0.2257E+01, 0.2271E+01, 0.2286E+01,& - 0.2300E+01, 0.2315E+01, 0.2329E+01, 0.2344E+01,& - 0.2359E+01, 0.2374E+01, 0.2389E+01, 0.2405E+01,& - 0.2420E+01, 0.2436E+01, 0.2451E+01, 0.2467E+01,& - 0.2483E+01, 0.2500E+01, 0.2516E+01, 0.2533E+01,& - 0.2549E+01, 0.2566E+01, 0.2583E+01, 0.2601E+01,& - 0.2618E+01, 0.2636E+01, 0.2653E+01, 0.2671E+01,& - 0.2690E+01, 0.2708E+01, 0.2727E+01, 0.2745E+01,& - 0.2764E+01, 0.2783E+01, 0.2803E+01, 0.2822E+01,& - 0.2842E+01, 0.2862E+01, 0.2883E+01, 0.2903E+01,& - 0.2924E+01, 0.2945E+01, 0.2966E+01, 0.2988E+01,& - 0.3010E+01, 0.3032E+01, 0.3054E+01, 0.3077E+01,& - 0.3099E+01, 0.3123E+01, 0.3146E+01, 0.3170E+01,& - 0.3194E+01, 0.3218E+01, 0.3243E+01, 0.3268E+01,& - 0.3294E+01, 0.3319E+01, 0.3346E+01, 0.3372E+01,& - 0.3399E+01, 0.3426E+01, 0.3454E+01, 0.3482E+01,& - 0.3511E+01, 0.3539E+01, 0.3569E+01, 0.3599E+01,& - 0.3629E+01, 0.3660E+01, 0.3691E+01, 0.3723E+01,& - 0.3755E+01, 0.3788E+01, 0.3822E+01, 0.3856E+01,& - 0.3890E+01, 0.3926E+01, 0.3962E+01, 0.3998E+01,& - 0.4035E+01, 0.4073E+01, 0.4112E+01, 0.4151E+01,& - 0.4192E+01, 0.4233E+01, 0.4275E+01, 0.4317E+01,& - 0.4361E+01, 0.4406E+01, 0.4451E+01, 0.4498E+01,& - 0.4546E+01, 0.4594E+01, 0.4645E+01, 0.4696E+01,& - 0.4748E+01, 0.4802E+01, 0.4857E+01, 0.4914E+01,& - 0.4973E+01, 0.5033E+01, 0.5095E+01, 0.5158E+01,& - 0.5224E+01, 0.5291E+01, 0.5361E+01, 0.5433E+01,& - 0.5507E+01, 0.5585E+01, 0.5665E+01, 0.5747E+01,& - 0.5834E+01, 0.5923E+01, 0.6017E+01, 0.6114E+01,& - 0.6216E+01, 0.6323E+01, 0.6435E+01, 0.6552E+01,& - 0.6677E+01, 0.6808E+01, 0.6947E+01, 0.7095E+01,& - 0.7253E+01, 0.7423E+01, 0.7606E+01, 0.7804E+01,& - 0.8020E+01, 0.8258E+01, 0.8522E+01, 0.8818E+01,& - 0.9155E+01, 0.9547E+01, 0.1001E+02, 0.1059E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 67) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.2937E-04, 0.2937E-04,& - 0.2937E-04, 0.2937E-04, 0.2937E-04, 0.4874E-04,& - 0.4874E-04, 0.4874E-04, 0.6811E-04, 0.6811E-04,& - 0.6811E-04, 0.8749E-04, 0.8749E-04, 0.8749E-04,& - 0.1069E-03, 0.1069E-03, 0.1262E-03, 0.1262E-03,& - 0.1456E-03, 0.1456E-03, 0.1650E-03, 0.1843E-03,& - 0.1843E-03, 0.2037E-03, 0.2231E-03, 0.2231E-03,& - 0.2425E-03, 0.2618E-03, 0.2812E-03, 0.3006E-03,& - 0.3006E-03, 0.3199E-03, 0.3393E-03, 0.3587E-03,& - 0.3781E-03, 0.3974E-03, 0.4362E-03, 0.4555E-03,& - 0.4749E-03, 0.4943E-03, 0.5137E-03, 0.5524E-03,& - 0.5718E-03, 0.5911E-03, 0.6299E-03, 0.6493E-03,& - 0.6880E-03, 0.7074E-03, 0.7461E-03, 0.7655E-03,& - 0.8042E-03, 0.8430E-03, 0.8623E-03, 0.9011E-03,& - 0.9398E-03, 0.9786E-03, 0.1017E-02, 0.1056E-02,& - 0.1095E-02, 0.1134E-02, 0.1172E-02, 0.1230E-02,& - 0.1269E-02, 0.1308E-02, 0.1366E-02, 0.1405E-02,& - 0.1443E-02, 0.1502E-02, 0.1560E-02, 0.1598E-02,& - 0.1657E-02, 0.1715E-02, 0.1773E-02, 0.1812E-02,& - 0.1870E-02, 0.1928E-02, 0.1986E-02, 0.2063E-02,& - 0.2121E-02, 0.2180E-02, 0.2238E-02, 0.2315E-02,& - 0.2373E-02, 0.2451E-02, 0.2509E-02, 0.2586E-02,& - 0.2664E-02, 0.2741E-02, 0.2819E-02, 0.2877E-02,& - 0.2954E-02, 0.3051E-02, 0.3129E-02, 0.3206E-02,& - 0.3284E-02, 0.3381E-02, 0.3458E-02, 0.3555E-02,& - 0.3632E-02, 0.3729E-02, 0.3826E-02, 0.3923E-02,& - 0.4020E-02, 0.4117E-02, 0.4214E-02, 0.4310E-02,& - 0.4407E-02, 0.4504E-02, 0.4620E-02, 0.4717E-02,& - 0.4834E-02, 0.4950E-02, 0.5047E-02, 0.5163E-02,& - 0.5279E-02, 0.5395E-02, 0.5512E-02, 0.5647E-02,& - 0.5763E-02, 0.5880E-02, 0.6015E-02, 0.6131E-02,& - 0.6267E-02, 0.6403E-02, 0.6538E-02, 0.6674E-02,& - 0.6809E-02, 0.6945E-02, 0.7081E-02, 0.7216E-02,& - 0.7371E-02, 0.7507E-02, 0.7662E-02, 0.7817E-02,& - 0.7972E-02, 0.8107E-02, 0.8262E-02, 0.8437E-02,& - 0.8592E-02, 0.8747E-02, 0.8921E-02, 0.9076E-02,& - 0.9250E-02, 0.9425E-02, 0.9599E-02, 0.9773E-02,& - 0.9948E-02, 0.1012E-01, 0.1030E-01, 0.1049E-01,& - 0.1066E-01, 0.1086E-01, 0.1105E-01, 0.1125E-01,& - 0.1144E-01, 0.1163E-01, 0.1183E-01, 0.1204E-01,& - 0.1223E-01, 0.1245E-01, 0.1264E-01, 0.1285E-01,& - 0.1307E-01, 0.1328E-01, 0.1349E-01, 0.1373E-01,& - 0.1394E-01, 0.1417E-01, 0.1440E-01, 0.1462E-01,& - 0.1485E-01, 0.1510E-01, 0.1533E-01, 0.1557E-01,& - 0.1582E-01, 0.1605E-01, 0.1630E-01, 0.1655E-01,& - 0.1681E-01, 0.1706E-01, 0.1731E-01, 0.1758E-01,& - 0.1783E-01, 0.1810E-01, 0.1837E-01, 0.1865E-01,& - 0.1892E-01, 0.1919E-01, 0.1948E-01, 0.1975E-01,& - 0.2004E-01, 0.2033E-01, 0.2060E-01, 0.2091E-01,& - 0.2120E-01, 0.2149E-01, 0.2180E-01, 0.2209E-01,& - 0.2240E-01, 0.2271E-01, 0.2302E-01, 0.2335E-01,& - 0.2366E-01, 0.2399E-01, 0.2430E-01, 0.2463E-01,& - 0.2496E-01, 0.2531E-01, 0.2564E-01, 0.2597E-01,& - 0.2632E-01, 0.2667E-01, 0.2701E-01, 0.2736E-01,& - 0.2771E-01, 0.2808E-01, 0.2845E-01, 0.2880E-01,& - 0.2916E-01, 0.2953E-01, 0.2992E-01, 0.3029E-01,& - 0.3068E-01, 0.3106E-01, 0.3145E-01, 0.3184E-01,& - 0.3222E-01, 0.3261E-01, 0.3302E-01, 0.3343E-01,& - 0.3383E-01, 0.3424E-01, 0.3465E-01, 0.3507E-01,& - 0.3550E-01, 0.3591E-01, 0.3633E-01, 0.3678E-01,& - 0.3720E-01, 0.3765E-01, 0.3808E-01, 0.3852E-01,& - 0.3899E-01, 0.3943E-01, 0.3988E-01, 0.4034E-01,& - 0.4081E-01, 0.4127E-01, 0.4174E-01, 0.4222E-01,& - 0.4269E-01, 0.4317E-01, 0.4365E-01, 0.4414E-01,& - 0.4464E-01, 0.4513E-01, 0.4563E-01, 0.4613E-01,& - 0.4664E-01, 0.4716E-01, 0.4766E-01, 0.4819E-01,& - 0.4871E-01, 0.4923E-01, 0.4976E-01, 0.5030E-01,& - 0.5084E-01, 0.5138E-01, 0.5193E-01, 0.5247E-01,& - 0.5303E-01, 0.5359E-01, 0.5415E-01, 0.5472E-01,& - 0.5528E-01, 0.5586E-01, 0.5644E-01, 0.5702E-01,& - 0.5760E-01, 0.5820E-01, 0.5878E-01, 0.5938E-01,& - 0.5998E-01, 0.6060E-01, 0.6120E-01, 0.6182E-01,& - 0.6244E-01, 0.6306E-01, 0.6370E-01, 0.6434E-01,& - 0.6498E-01, 0.6562E-01, 0.6626E-01, 0.6692E-01,& - 0.6758E-01, 0.6824E-01, 0.6890E-01, 0.6955E-01,& - 0.7023E-01, 0.7091E-01, 0.7159E-01, 0.7229E-01,& - 0.7298E-01, 0.7366E-01, 0.7438E-01, 0.7507E-01,& - 0.7579E-01, 0.7651E-01, 0.7722E-01, 0.7794E-01,& - 0.7868E-01, 0.7941E-01, 0.8015E-01, 0.8089E-01,& - 0.8164E-01, 0.8240E-01, 0.8315E-01, 0.8391E-01,& - 0.8468E-01, 0.8546E-01, 0.8623E-01, 0.8701E-01,& - 0.8780E-01, 0.8860E-01, 0.8939E-01, 0.9018E-01,& - 0.9100E-01, 0.9181E-01, 0.9263E-01, 0.9344E-01,& - 0.9427E-01, 0.9510E-01, 0.9594E-01, 0.9679E-01,& - 0.9764E-01, 0.9849E-01, 0.9935E-01, 0.1002E+00,& - 0.1011E+00, 0.1020E+00, 0.1028E+00, 0.1037E+00,& - 0.1046E+00, 0.1055E+00, 0.1064E+00, 0.1073E+00,& - 0.1082E+00, 0.1091E+00, 0.1101E+00, 0.1110E+00,& - 0.1119E+00, 0.1129E+00, 0.1138E+00, 0.1148E+00,& - 0.1157E+00, 0.1167E+00, 0.1177E+00, 0.1186E+00,& - 0.1196E+00, 0.1206E+00, 0.1216E+00, 0.1226E+00,& - 0.1236E+00, 0.1246E+00, 0.1256E+00, 0.1266E+00,& - 0.1276E+00, 0.1287E+00, 0.1297E+00, 0.1308E+00,& - 0.1318E+00, 0.1329E+00, 0.1339E+00, 0.1350E+00,& - 0.1361E+00, 0.1372E+00, 0.1382E+00, 0.1393E+00,& - 0.1405E+00, 0.1416E+00, 0.1427E+00, 0.1438E+00,& - 0.1449E+00, 0.1460E+00, 0.1472E+00, 0.1483E+00,& - 0.1495E+00, 0.1506E+00, 0.1518E+00, 0.1529E+00,& - 0.1541E+00, 0.1553E+00, 0.1565E+00, 0.1577E+00,& - 0.1589E+00, 0.1601E+00, 0.1613E+00, 0.1625E+00,& - 0.1638E+00, 0.1650E+00, 0.1662E+00, 0.1675E+00,& - 0.1688E+00, 0.1700E+00, 0.1713E+00, 0.1726E+00,& - 0.1738E+00, 0.1751E+00, 0.1764E+00, 0.1777E+00,& - 0.1790E+00, 0.1804E+00, 0.1817E+00, 0.1830E+00,& - 0.1843E+00, 0.1857E+00, 0.1871E+00, 0.1884E+00,& - 0.1898E+00, 0.1912E+00, 0.1925E+00, 0.1939E+00,& - 0.1953E+00, 0.1967E+00, 0.1981E+00, 0.1996E+00,& - 0.2010E+00, 0.2024E+00, 0.2039E+00, 0.2053E+00,& - 0.2068E+00, 0.2083E+00, 0.2097E+00, 0.2112E+00,& - 0.2127E+00, 0.2142E+00, 0.2157E+00, 0.2172E+00,& - 0.2187E+00, 0.2202E+00, 0.2218E+00, 0.2233E+00,& - 0.2249E+00, 0.2264E+00, 0.2280E+00, 0.2296E+00,& - 0.2312E+00, 0.2328E+00, 0.2344E+00, 0.2360E+00,& - 0.2376E+00, 0.2392E+00, 0.2409E+00, 0.2425E+00,& - 0.2441E+00, 0.2458E+00, 0.2475E+00, 0.2491E+00,& - 0.2508E+00, 0.2525E+00, 0.2542E+00, 0.2559E+00,& - 0.2577E+00, 0.2594E+00, 0.2611E+00, 0.2629E+00,& - 0.2646E+00, 0.2664E+00, 0.2682E+00, 0.2699E+00,& - 0.2717E+00, 0.2735E+00, 0.2753E+00, 0.2771E+00,& - 0.2790E+00, 0.2808E+00, 0.2826E+00, 0.2845E+00,& - 0.2864E+00, 0.2882E+00, 0.2901E+00, 0.2920E+00,& - 0.2939E+00, 0.2958E+00, 0.2977E+00, 0.2997E+00,& - 0.3016E+00, 0.3036E+00, 0.3055E+00, 0.3075E+00,& - 0.3095E+00, 0.3114E+00, 0.3134E+00, 0.3155E+00,& - 0.3175E+00, 0.3195E+00, 0.3215E+00, 0.3236E+00,& - 0.3256E+00, 0.3277E+00, 0.3298E+00, 0.3319E+00,& - 0.3340E+00, 0.3361E+00, 0.3382E+00, 0.3403E+00,& - 0.3425E+00, 0.3446E+00, 0.3468E+00, 0.3490E+00,& - 0.3512E+00, 0.3533E+00, 0.3556E+00, 0.3578E+00,& - 0.3600E+00, 0.3622E+00, 0.3645E+00, 0.3667E+00,& - 0.3690E+00, 0.3713E+00, 0.3736E+00, 0.3759E+00,& - 0.3782E+00, 0.3805E+00, 0.3829E+00, 0.3852E+00,& - 0.3876E+00, 0.3900E+00, 0.3923E+00, 0.3947E+00,& - 0.3971E+00, 0.3996E+00, 0.4020E+00, 0.4044E+00,& - 0.4069E+00, 0.4093E+00, 0.4118E+00, 0.4143E+00,& - 0.4168E+00, 0.4193E+00, 0.4219E+00, 0.4244E+00,& - 0.4270E+00, 0.4295E+00, 0.4321E+00, 0.4347E+00,& - 0.4373E+00, 0.4399E+00, 0.4426E+00, 0.4452E+00,& - 0.4478E+00, 0.4505E+00, 0.4532E+00, 0.4559E+00,& - 0.4586E+00, 0.4613E+00, 0.4641E+00, 0.4668E+00,& - 0.4696E+00, 0.4723E+00, 0.4751E+00, 0.4779E+00,& - 0.4807E+00, 0.4836E+00, 0.4864E+00, 0.4893E+00,& - 0.4921E+00, 0.4950E+00, 0.4979E+00, 0.5008E+00,& - 0.5037E+00, 0.5067E+00, 0.5096E+00, 0.5126E+00,& - 0.5156E+00, 0.5186E+00, 0.5216E+00, 0.5246E+00,& - 0.5277E+00, 0.5307E+00, 0.5338E+00, 0.5369E+00,& - 0.5400E+00, 0.5431E+00, 0.5462E+00, 0.5494E+00,& - 0.5526E+00, 0.5557E+00, 0.5589E+00, 0.5622E+00,& - 0.5654E+00, 0.5686E+00, 0.5719E+00, 0.5751E+00,& - 0.5784E+00, 0.5818E+00, 0.5851E+00, 0.5884E+00,& - 0.5918E+00, 0.5951E+00, 0.5985E+00, 0.6019E+00,& - 0.6054E+00, 0.6088E+00, 0.6123E+00, 0.6157E+00,& - 0.6192E+00, 0.6227E+00, 0.6263E+00, 0.6298E+00,& - 0.6334E+00, 0.6369E+00, 0.6405E+00, 0.6442E+00,& - 0.6478E+00, 0.6515E+00, 0.6551E+00, 0.6588E+00,& - 0.6625E+00, 0.6662E+00, 0.6700E+00, 0.6737E+00,& - 0.6775E+00, 0.6813E+00, 0.6851E+00, 0.6890E+00,& - 0.6928E+00, 0.6967E+00, 0.7006E+00, 0.7045E+00,& - 0.7085E+00, 0.7124E+00, 0.7164E+00, 0.7204E+00,& - 0.7244E+00, 0.7284E+00, 0.7325E+00, 0.7366E+00,& - 0.7407E+00, 0.7448E+00, 0.7489E+00, 0.7531E+00,& - 0.7573E+00, 0.7615E+00, 0.7657E+00, 0.7699E+00,& - 0.7742E+00, 0.7785E+00, 0.7828E+00, 0.7872E+00,& - 0.7915E+00, 0.7959E+00, 0.8003E+00, 0.8047E+00,& - 0.8092E+00, 0.8137E+00, 0.8181E+00, 0.8227E+00,& - 0.8272E+00, 0.8318E+00, 0.8364E+00, 0.8410E+00,& - 0.8456E+00, 0.8503E+00, 0.8550E+00, 0.8597E+00,& - 0.8644E+00, 0.8692E+00, 0.8739E+00, 0.8787E+00,& - 0.8836E+00, 0.8884E+00, 0.8933E+00, 0.8982E+00,& - 0.9032E+00, 0.9081E+00, 0.9131E+00, 0.9182E+00,& - 0.9232E+00, 0.9283E+00, 0.9334E+00, 0.9385E+00,& - 0.9437E+00, 0.9488E+00, 0.9540E+00, 0.9593E+00,& - 0.9646E+00, 0.9698E+00, 0.9752E+00, 0.9805E+00,& - 0.9859E+00, 0.9913E+00, 0.9968E+00, 0.1002E+01,& - 0.1008E+01, 0.1013E+01, 0.1019E+01, 0.1024E+01,& - 0.1030E+01, 0.1036E+01, 0.1041E+01, 0.1047E+01,& - 0.1053E+01, 0.1059E+01, 0.1064E+01, 0.1070E+01,& - 0.1076E+01, 0.1082E+01, 0.1088E+01, 0.1094E+01,& - 0.1100E+01, 0.1106E+01, 0.1112E+01, 0.1118E+01,& - 0.1124E+01, 0.1131E+01, 0.1137E+01, 0.1143E+01,& - 0.1149E+01, 0.1156E+01, 0.1162E+01, 0.1168E+01,& - 0.1175E+01, 0.1181E+01, 0.1188E+01, 0.1194E+01,& - 0.1201E+01, 0.1208E+01, 0.1214E+01, 0.1221E+01,& - 0.1228E+01, 0.1235E+01, 0.1241E+01, 0.1248E+01,& - 0.1255E+01, 0.1262E+01, 0.1269E+01, 0.1276E+01,& - 0.1283E+01, 0.1290E+01, 0.1298E+01, 0.1305E+01,& - 0.1312E+01, 0.1319E+01, 0.1327E+01, 0.1334E+01,& - 0.1342E+01, 0.1349E+01, 0.1357E+01, 0.1364E+01,& - 0.1372E+01, 0.1379E+01, 0.1387E+01, 0.1395E+01,& - 0.1403E+01, 0.1411E+01, 0.1419E+01, 0.1426E+01,& - 0.1434E+01, 0.1443E+01, 0.1451E+01, 0.1459E+01,& - 0.1467E+01, 0.1475E+01, 0.1484E+01, 0.1492E+01,& - 0.1501E+01, 0.1509E+01, 0.1518E+01, 0.1526E+01,& - 0.1535E+01, 0.1544E+01, 0.1552E+01, 0.1561E+01,& - 0.1570E+01, 0.1579E+01, 0.1588E+01, 0.1597E+01,& - 0.1606E+01, 0.1616E+01, 0.1625E+01, 0.1634E+01,& - 0.1644E+01, 0.1653E+01, 0.1663E+01, 0.1672E+01,& - 0.1682E+01, 0.1692E+01, 0.1701E+01, 0.1711E+01,& - 0.1721E+01, 0.1731E+01, 0.1741E+01, 0.1752E+01,& - 0.1762E+01, 0.1772E+01, 0.1782E+01, 0.1793E+01,& - 0.1803E+01, 0.1814E+01, 0.1825E+01, 0.1836E+01,& - 0.1846E+01, 0.1857E+01, 0.1868E+01, 0.1880E+01,& - 0.1891E+01, 0.1902E+01, 0.1913E+01, 0.1925E+01,& - 0.1936E+01, 0.1948E+01, 0.1960E+01, 0.1972E+01,& - 0.1984E+01, 0.1996E+01, 0.2008E+01, 0.2020E+01,& - 0.2032E+01, 0.2045E+01, 0.2057E+01, 0.2070E+01,& - 0.2083E+01, 0.2095E+01, 0.2108E+01, 0.2121E+01,& - 0.2134E+01, 0.2148E+01, 0.2161E+01, 0.2175E+01,& - 0.2188E+01, 0.2202E+01, 0.2216E+01, 0.2230E+01,& - 0.2244E+01, 0.2258E+01, 0.2272E+01, 0.2287E+01,& - 0.2302E+01, 0.2316E+01, 0.2331E+01, 0.2346E+01,& - 0.2361E+01, 0.2377E+01, 0.2392E+01, 0.2408E+01,& - 0.2423E+01, 0.2439E+01, 0.2455E+01, 0.2472E+01,& - 0.2488E+01, 0.2504E+01, 0.2521E+01, 0.2538E+01,& - 0.2555E+01, 0.2572E+01, 0.2590E+01, 0.2607E+01,& - 0.2625E+01, 0.2643E+01, 0.2661E+01, 0.2679E+01,& - 0.2698E+01, 0.2716E+01, 0.2735E+01, 0.2754E+01,& - 0.2774E+01, 0.2793E+01, 0.2813E+01, 0.2833E+01,& - 0.2853E+01, 0.2873E+01, 0.2894E+01, 0.2915E+01,& - 0.2936E+01, 0.2958E+01, 0.2979E+01, 0.3001E+01,& - 0.3023E+01, 0.3046E+01, 0.3069E+01, 0.3092E+01,& - 0.3115E+01, 0.3139E+01, 0.3162E+01, 0.3187E+01,& - 0.3211E+01, 0.3236E+01, 0.3261E+01, 0.3287E+01,& - 0.3313E+01, 0.3339E+01, 0.3366E+01, 0.3393E+01,& - 0.3420E+01, 0.3448E+01, 0.3476E+01, 0.3505E+01,& - 0.3534E+01, 0.3564E+01, 0.3594E+01, 0.3624E+01,& - 0.3655E+01, 0.3686E+01, 0.3718E+01, 0.3751E+01,& - 0.3784E+01, 0.3817E+01, 0.3851E+01, 0.3886E+01,& - 0.3922E+01, 0.3958E+01, 0.3994E+01, 0.4032E+01,& - 0.4070E+01, 0.4108E+01, 0.4148E+01, 0.4188E+01,& - 0.4229E+01, 0.4271E+01, 0.4314E+01, 0.4358E+01,& - 0.4402E+01, 0.4448E+01, 0.4494E+01, 0.4542E+01,& - 0.4591E+01, 0.4641E+01, 0.4692E+01, 0.4744E+01,& - 0.4798E+01, 0.4853E+01, 0.4910E+01, 0.4968E+01,& - 0.5027E+01, 0.5089E+01, 0.5152E+01, 0.5217E+01,& - 0.5284E+01, 0.5353E+01, 0.5424E+01, 0.5498E+01,& - 0.5574E+01, 0.5653E+01, 0.5735E+01, 0.5820E+01,& - 0.5908E+01, 0.6000E+01, 0.6095E+01, 0.6195E+01,& - 0.6299E+01, 0.6409E+01, 0.6523E+01, 0.6644E+01,& - 0.6771E+01, 0.6905E+01, 0.7048E+01, 0.7199E+01,& - 0.7361E+01, 0.7535E+01, 0.7722E+01, 0.7926E+01,& - 0.8147E+01, 0.8391E+01, 0.8661E+01, 0.8965E+01,& - 0.9311E+01, 0.9710E+01, 0.1019E+02, 0.1078E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 68) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.2979E-04, 0.2979E-04, 0.2979E-04,& - 0.2979E-04, 0.2979E-04, 0.4958E-04, 0.4958E-04,& - 0.4958E-04, 0.4958E-04, 0.6938E-04, 0.6938E-04,& - 0.6938E-04, 0.8917E-04, 0.8917E-04, 0.1090E-03,& - 0.1090E-03, 0.1090E-03, 0.1288E-03, 0.1288E-03,& - 0.1485E-03, 0.1485E-03, 0.1683E-03, 0.1881E-03,& - 0.1881E-03, 0.2079E-03, 0.2079E-03, 0.2277E-03,& - 0.2475E-03, 0.2673E-03, 0.2673E-03, 0.2871E-03,& - 0.3069E-03, 0.3267E-03, 0.3465E-03, 0.3663E-03,& - 0.3860E-03, 0.3860E-03, 0.4058E-03, 0.4454E-03,& - 0.4652E-03, 0.4850E-03, 0.5048E-03, 0.5246E-03,& - 0.5444E-03, 0.5840E-03, 0.6038E-03, 0.6235E-03,& - 0.6631E-03, 0.6829E-03, 0.7027E-03, 0.7423E-03,& - 0.7621E-03, 0.8017E-03, 0.8413E-03, 0.8610E-03,& - 0.9006E-03, 0.9402E-03, 0.9600E-03, 0.9996E-03,& - 0.1039E-02, 0.1079E-02, 0.1118E-02, 0.1158E-02,& - 0.1198E-02, 0.1237E-02, 0.1296E-02, 0.1336E-02,& - 0.1376E-02, 0.1415E-02, 0.1475E-02, 0.1514E-02,& - 0.1574E-02, 0.1613E-02, 0.1673E-02, 0.1712E-02,& - 0.1771E-02, 0.1831E-02, 0.1890E-02, 0.1950E-02,& - 0.1989E-02, 0.2049E-02, 0.2128E-02, 0.2187E-02,& - 0.2246E-02, 0.2306E-02, 0.2365E-02, 0.2444E-02,& - 0.2504E-02, 0.2583E-02, 0.2642E-02, 0.2721E-02,& - 0.2781E-02, 0.2860E-02, 0.2939E-02, 0.3018E-02,& - 0.3098E-02, 0.3177E-02, 0.3256E-02, 0.3335E-02,& - 0.3414E-02, 0.3513E-02, 0.3592E-02, 0.3691E-02,& - 0.3770E-02, 0.3869E-02, 0.3949E-02, 0.4048E-02,& - 0.4146E-02, 0.4245E-02, 0.4344E-02, 0.4443E-02,& - 0.4542E-02, 0.4641E-02, 0.4760E-02, 0.4859E-02,& - 0.4958E-02, 0.5077E-02, 0.5195E-02, 0.5294E-02,& - 0.5413E-02, 0.5532E-02, 0.5651E-02, 0.5769E-02,& - 0.5888E-02, 0.6007E-02, 0.6145E-02, 0.6264E-02,& - 0.6403E-02, 0.6521E-02, 0.6660E-02, 0.6799E-02,& - 0.6917E-02, 0.7056E-02, 0.7214E-02, 0.7353E-02,& - 0.7491E-02, 0.7630E-02, 0.7788E-02, 0.7927E-02,& - 0.8085E-02, 0.8243E-02, 0.8382E-02, 0.8540E-02,& - 0.8699E-02, 0.8877E-02, 0.9035E-02, 0.9193E-02,& - 0.9371E-02, 0.9530E-02, 0.9708E-02, 0.9866E-02,& - 0.1004E-01, 0.1022E-01, 0.1040E-01, 0.1060E-01,& - 0.1078E-01, 0.1095E-01, 0.1115E-01, 0.1133E-01,& - 0.1153E-01, 0.1173E-01, 0.1192E-01, 0.1212E-01,& - 0.1232E-01, 0.1254E-01, 0.1274E-01, 0.1295E-01,& - 0.1315E-01, 0.1337E-01, 0.1359E-01, 0.1380E-01,& - 0.1402E-01, 0.1424E-01, 0.1448E-01, 0.1470E-01,& - 0.1493E-01, 0.1517E-01, 0.1541E-01, 0.1565E-01,& - 0.1588E-01, 0.1612E-01, 0.1636E-01, 0.1662E-01,& - 0.1687E-01, 0.1711E-01, 0.1737E-01, 0.1762E-01,& - 0.1790E-01, 0.1816E-01, 0.1842E-01, 0.1869E-01,& - 0.1897E-01, 0.1925E-01, 0.1952E-01, 0.1980E-01,& - 0.2008E-01, 0.2036E-01, 0.2065E-01, 0.2095E-01,& - 0.2123E-01, 0.2152E-01, 0.2184E-01, 0.2214E-01,& - 0.2243E-01, 0.2275E-01, 0.2307E-01, 0.2336E-01,& - 0.2368E-01, 0.2402E-01, 0.2433E-01, 0.2465E-01,& - 0.2499E-01, 0.2532E-01, 0.2566E-01, 0.2600E-01,& - 0.2633E-01, 0.2667E-01, 0.2703E-01, 0.2736E-01,& - 0.2772E-01, 0.2807E-01, 0.2843E-01, 0.2881E-01,& - 0.2916E-01, 0.2954E-01, 0.2992E-01, 0.3029E-01,& - 0.3067E-01, 0.3104E-01, 0.3144E-01, 0.3182E-01,& - 0.3221E-01, 0.3261E-01, 0.3300E-01, 0.3340E-01,& - 0.3381E-01, 0.3421E-01, 0.3463E-01, 0.3504E-01,& - 0.3546E-01, 0.3589E-01, 0.3631E-01, 0.3674E-01,& - 0.3718E-01, 0.3761E-01, 0.3805E-01, 0.3850E-01,& - 0.3894E-01, 0.3940E-01, 0.3985E-01, 0.4031E-01,& - 0.4076E-01, 0.4124E-01, 0.4171E-01, 0.4217E-01,& - 0.4264E-01, 0.4314E-01, 0.4361E-01, 0.4411E-01,& - 0.4460E-01, 0.4510E-01, 0.4559E-01, 0.4609E-01,& - 0.4660E-01, 0.4711E-01, 0.4763E-01, 0.4814E-01,& - 0.4866E-01, 0.4919E-01, 0.4973E-01, 0.5026E-01,& - 0.5080E-01, 0.5133E-01, 0.5188E-01, 0.5244E-01,& - 0.5299E-01, 0.5355E-01, 0.5410E-01, 0.5467E-01,& - 0.5525E-01, 0.5582E-01, 0.5640E-01, 0.5697E-01,& - 0.5756E-01, 0.5816E-01, 0.5875E-01, 0.5935E-01,& - 0.5996E-01, 0.6057E-01, 0.6119E-01, 0.6180E-01,& - 0.6241E-01, 0.6305E-01, 0.6368E-01, 0.6431E-01,& - 0.6495E-01, 0.6560E-01, 0.6623E-01, 0.6689E-01,& - 0.6756E-01, 0.6821E-01, 0.6889E-01, 0.6956E-01,& - 0.7023E-01, 0.7090E-01, 0.7160E-01, 0.7229E-01,& - 0.7298E-01, 0.7367E-01, 0.7439E-01, 0.7508E-01,& - 0.7579E-01, 0.7652E-01, 0.7724E-01, 0.7797E-01,& - 0.7870E-01, 0.7943E-01, 0.8019E-01, 0.8092E-01,& - 0.8167E-01, 0.8244E-01, 0.8319E-01, 0.8397E-01,& - 0.8474E-01, 0.8551E-01, 0.8630E-01, 0.8707E-01,& - 0.8787E-01, 0.8868E-01, 0.8947E-01, 0.9028E-01,& - 0.9109E-01, 0.9190E-01, 0.9273E-01, 0.9357E-01,& - 0.9440E-01, 0.9523E-01, 0.9608E-01, 0.9693E-01,& - 0.9778E-01, 0.9863E-01, 0.9950E-01, 0.1004E+00,& - 0.1012E+00, 0.1021E+00, 0.1030E+00, 0.1039E+00,& - 0.1048E+00, 0.1057E+00, 0.1066E+00, 0.1075E+00,& - 0.1084E+00, 0.1094E+00, 0.1103E+00, 0.1113E+00,& - 0.1122E+00, 0.1131E+00, 0.1141E+00, 0.1151E+00,& - 0.1160E+00, 0.1170E+00, 0.1180E+00, 0.1190E+00,& - 0.1199E+00, 0.1209E+00, 0.1219E+00, 0.1230E+00,& - 0.1240E+00, 0.1250E+00, 0.1260E+00, 0.1270E+00,& - 0.1281E+00, 0.1291E+00, 0.1302E+00, 0.1312E+00,& - 0.1323E+00, 0.1334E+00, 0.1344E+00, 0.1355E+00,& - 0.1366E+00, 0.1377E+00, 0.1388E+00, 0.1399E+00,& - 0.1410E+00, 0.1421E+00, 0.1433E+00, 0.1444E+00,& - 0.1455E+00, 0.1467E+00, 0.1478E+00, 0.1490E+00,& - 0.1501E+00, 0.1513E+00, 0.1525E+00, 0.1537E+00,& - 0.1549E+00, 0.1561E+00, 0.1573E+00, 0.1585E+00,& - 0.1597E+00, 0.1609E+00, 0.1622E+00, 0.1634E+00,& - 0.1647E+00, 0.1659E+00, 0.1672E+00, 0.1684E+00,& - 0.1697E+00, 0.1710E+00, 0.1723E+00, 0.1736E+00,& - 0.1749E+00, 0.1762E+00, 0.1775E+00, 0.1788E+00,& - 0.1802E+00, 0.1815E+00, 0.1828E+00, 0.1842E+00,& - 0.1856E+00, 0.1869E+00, 0.1883E+00, 0.1897E+00,& - 0.1911E+00, 0.1925E+00, 0.1939E+00, 0.1953E+00,& - 0.1967E+00, 0.1981E+00, 0.1996E+00, 0.2010E+00,& - 0.2025E+00, 0.2039E+00, 0.2054E+00, 0.2069E+00,& - 0.2084E+00, 0.2099E+00, 0.2114E+00, 0.2129E+00,& - 0.2144E+00, 0.2159E+00, 0.2174E+00, 0.2190E+00,& - 0.2205E+00, 0.2221E+00, 0.2237E+00, 0.2252E+00,& - 0.2268E+00, 0.2284E+00, 0.2300E+00, 0.2316E+00,& - 0.2332E+00, 0.2348E+00, 0.2365E+00, 0.2381E+00,& - 0.2398E+00, 0.2414E+00, 0.2431E+00, 0.2448E+00,& - 0.2465E+00, 0.2481E+00, 0.2498E+00, 0.2516E+00,& - 0.2533E+00, 0.2550E+00, 0.2567E+00, 0.2585E+00,& - 0.2603E+00, 0.2620E+00, 0.2638E+00, 0.2656E+00,& - 0.2674E+00, 0.2692E+00, 0.2710E+00, 0.2728E+00,& - 0.2746E+00, 0.2765E+00, 0.2783E+00, 0.2802E+00,& - 0.2820E+00, 0.2839E+00, 0.2858E+00, 0.2877E+00,& - 0.2896E+00, 0.2915E+00, 0.2935E+00, 0.2954E+00,& - 0.2973E+00, 0.2993E+00, 0.3013E+00, 0.3032E+00,& - 0.3052E+00, 0.3072E+00, 0.3092E+00, 0.3112E+00,& - 0.3133E+00, 0.3153E+00, 0.3174E+00, 0.3194E+00,& - 0.3215E+00, 0.3235E+00, 0.3256E+00, 0.3277E+00,& - 0.3299E+00, 0.3320E+00, 0.3341E+00, 0.3363E+00,& - 0.3384E+00, 0.3406E+00, 0.3427E+00, 0.3449E+00,& - 0.3471E+00, 0.3493E+00, 0.3516E+00, 0.3538E+00,& - 0.3560E+00, 0.3583E+00, 0.3606E+00, 0.3628E+00,& - 0.3651E+00, 0.3674E+00, 0.3697E+00, 0.3721E+00,& - 0.3744E+00, 0.3767E+00, 0.3791E+00, 0.3815E+00,& - 0.3838E+00, 0.3862E+00, 0.3886E+00, 0.3911E+00,& - 0.3935E+00, 0.3959E+00, 0.3984E+00, 0.4008E+00,& - 0.4033E+00, 0.4058E+00, 0.4083E+00, 0.4108E+00,& - 0.4134E+00, 0.4159E+00, 0.4184E+00, 0.4210E+00,& - 0.4236E+00, 0.4262E+00, 0.4288E+00, 0.4314E+00,& - 0.4340E+00, 0.4367E+00, 0.4393E+00, 0.4420E+00,& - 0.4447E+00, 0.4474E+00, 0.4501E+00, 0.4528E+00,& - 0.4556E+00, 0.4583E+00, 0.4611E+00, 0.4639E+00,& - 0.4667E+00, 0.4695E+00, 0.4723E+00, 0.4751E+00,& - 0.4780E+00, 0.4808E+00, 0.4837E+00, 0.4866E+00,& - 0.4895E+00, 0.4924E+00, 0.4954E+00, 0.4983E+00,& - 0.5013E+00, 0.5043E+00, 0.5073E+00, 0.5103E+00,& - 0.5133E+00, 0.5164E+00, 0.5194E+00, 0.5225E+00,& - 0.5256E+00, 0.5287E+00, 0.5318E+00, 0.5349E+00,& - 0.5381E+00, 0.5412E+00, 0.5444E+00, 0.5476E+00,& - 0.5508E+00, 0.5541E+00, 0.5573E+00, 0.5606E+00,& - 0.5638E+00, 0.5671E+00, 0.5704E+00, 0.5738E+00,& - 0.5771E+00, 0.5805E+00, 0.5838E+00, 0.5872E+00,& - 0.5907E+00, 0.5941E+00, 0.5975E+00, 0.6010E+00,& - 0.6045E+00, 0.6080E+00, 0.6115E+00, 0.6150E+00,& - 0.6186E+00, 0.6222E+00, 0.6257E+00, 0.6294E+00,& - 0.6330E+00, 0.6366E+00, 0.6403E+00, 0.6440E+00,& - 0.6477E+00, 0.6514E+00, 0.6551E+00, 0.6589E+00,& - 0.6627E+00, 0.6665E+00, 0.6703E+00, 0.6741E+00,& - 0.6780E+00, 0.6818E+00, 0.6857E+00, 0.6897E+00,& - 0.6936E+00, 0.6975E+00, 0.7015E+00, 0.7055E+00,& - 0.7095E+00, 0.7136E+00, 0.7176E+00, 0.7217E+00,& - 0.7258E+00, 0.7299E+00, 0.7341E+00, 0.7382E+00,& - 0.7424E+00, 0.7466E+00, 0.7508E+00, 0.7551E+00,& - 0.7594E+00, 0.7637E+00, 0.7680E+00, 0.7723E+00,& - 0.7767E+00, 0.7811E+00, 0.7855E+00, 0.7899E+00,& - 0.7944E+00, 0.7989E+00, 0.8034E+00, 0.8079E+00,& - 0.8124E+00, 0.8170E+00, 0.8216E+00, 0.8262E+00,& - 0.8309E+00, 0.8356E+00, 0.8402E+00, 0.8450E+00,& - 0.8497E+00, 0.8545E+00, 0.8593E+00, 0.8641E+00,& - 0.8689E+00, 0.8739E+00, 0.8788E+00, 0.8837E+00,& - 0.8886E+00, 0.8936E+00, 0.8986E+00, 0.9037E+00,& - 0.9087E+00, 0.9138E+00, 0.9190E+00, 0.9241E+00,& - 0.9293E+00, 0.9345E+00, 0.9397E+00, 0.9450E+00,& - 0.9503E+00, 0.9556E+00, 0.9609E+00, 0.9663E+00,& - 0.9717E+00, 0.9772E+00, 0.9826E+00, 0.9881E+00,& - 0.9937E+00, 0.9992E+00, 0.1005E+01, 0.1010E+01,& - 0.1016E+01, 0.1022E+01, 0.1027E+01, 0.1033E+01,& - 0.1039E+01, 0.1045E+01, 0.1051E+01, 0.1057E+01,& - 0.1062E+01, 0.1068E+01, 0.1074E+01, 0.1080E+01,& - 0.1086E+01, 0.1093E+01, 0.1099E+01, 0.1105E+01,& - 0.1111E+01, 0.1117E+01, 0.1124E+01, 0.1130E+01,& - 0.1136E+01, 0.1143E+01, 0.1149E+01, 0.1155E+01,& - 0.1162E+01, 0.1168E+01, 0.1175E+01, 0.1182E+01,& - 0.1188E+01, 0.1195E+01, 0.1202E+01, 0.1208E+01,& - 0.1215E+01, 0.1222E+01, 0.1229E+01, 0.1236E+01,& - 0.1243E+01, 0.1250E+01, 0.1257E+01, 0.1264E+01,& - 0.1271E+01, 0.1278E+01, 0.1286E+01, 0.1293E+01,& - 0.1300E+01, 0.1308E+01, 0.1315E+01, 0.1322E+01,& - 0.1330E+01, 0.1338E+01, 0.1345E+01, 0.1353E+01,& - 0.1360E+01, 0.1368E+01, 0.1376E+01, 0.1384E+01,& - 0.1392E+01, 0.1400E+01, 0.1408E+01, 0.1416E+01,& - 0.1424E+01, 0.1432E+01, 0.1440E+01, 0.1448E+01,& - 0.1457E+01, 0.1465E+01, 0.1474E+01, 0.1482E+01,& - 0.1491E+01, 0.1499E+01, 0.1508E+01, 0.1516E+01,& - 0.1525E+01, 0.1534E+01, 0.1543E+01, 0.1552E+01,& - 0.1561E+01, 0.1570E+01, 0.1579E+01, 0.1588E+01,& - 0.1598E+01, 0.1607E+01, 0.1616E+01, 0.1626E+01,& - 0.1635E+01, 0.1645E+01, 0.1654E+01, 0.1664E+01,& - 0.1674E+01, 0.1684E+01, 0.1694E+01, 0.1704E+01,& - 0.1714E+01, 0.1724E+01, 0.1734E+01, 0.1745E+01,& - 0.1755E+01, 0.1765E+01, 0.1776E+01, 0.1786E+01,& - 0.1797E+01, 0.1808E+01, 0.1819E+01, 0.1830E+01,& - 0.1841E+01, 0.1852E+01, 0.1863E+01, 0.1874E+01,& - 0.1886E+01, 0.1897E+01, 0.1909E+01, 0.1920E+01,& - 0.1932E+01, 0.1944E+01, 0.1956E+01, 0.1968E+01,& - 0.1980E+01, 0.1992E+01, 0.2004E+01, 0.2017E+01,& - 0.2029E+01, 0.2042E+01, 0.2054E+01, 0.2067E+01,& - 0.2080E+01, 0.2093E+01, 0.2106E+01, 0.2119E+01,& - 0.2133E+01, 0.2146E+01, 0.2160E+01, 0.2174E+01,& - 0.2187E+01, 0.2201E+01, 0.2215E+01, 0.2230E+01,& - 0.2244E+01, 0.2258E+01, 0.2273E+01, 0.2288E+01,& - 0.2302E+01, 0.2317E+01, 0.2332E+01, 0.2348E+01,& - 0.2363E+01, 0.2379E+01, 0.2394E+01, 0.2410E+01,& - 0.2426E+01, 0.2442E+01, 0.2459E+01, 0.2475E+01,& - 0.2492E+01, 0.2509E+01, 0.2526E+01, 0.2543E+01,& - 0.2560E+01, 0.2577E+01, 0.2595E+01, 0.2613E+01,& - 0.2631E+01, 0.2649E+01, 0.2668E+01, 0.2686E+01,& - 0.2705E+01, 0.2724E+01, 0.2743E+01, 0.2763E+01,& - 0.2782E+01, 0.2802E+01, 0.2822E+01, 0.2843E+01,& - 0.2863E+01, 0.2884E+01, 0.2905E+01, 0.2926E+01,& - 0.2948E+01, 0.2970E+01, 0.2992E+01, 0.3014E+01,& - 0.3037E+01, 0.3059E+01, 0.3083E+01, 0.3106E+01,& - 0.3130E+01, 0.3154E+01, 0.3178E+01, 0.3203E+01,& - 0.3228E+01, 0.3253E+01, 0.3279E+01, 0.3305E+01,& - 0.3331E+01, 0.3358E+01, 0.3385E+01, 0.3413E+01,& - 0.3441E+01, 0.3469E+01, 0.3498E+01, 0.3527E+01,& - 0.3557E+01, 0.3587E+01, 0.3618E+01, 0.3649E+01,& - 0.3680E+01, 0.3712E+01, 0.3745E+01, 0.3778E+01,& - 0.3812E+01, 0.3846E+01, 0.3881E+01, 0.3916E+01,& - 0.3952E+01, 0.3989E+01, 0.4026E+01, 0.4064E+01,& - 0.4103E+01, 0.4143E+01, 0.4183E+01, 0.4224E+01,& - 0.4266E+01, 0.4309E+01, 0.4353E+01, 0.4397E+01,& - 0.4443E+01, 0.4489E+01, 0.4537E+01, 0.4586E+01,& - 0.4635E+01, 0.4686E+01, 0.4739E+01, 0.4792E+01,& - 0.4847E+01, 0.4903E+01, 0.4961E+01, 0.5021E+01,& - 0.5082E+01, 0.5144E+01, 0.5209E+01, 0.5275E+01,& - 0.5344E+01, 0.5414E+01, 0.5487E+01, 0.5563E+01,& - 0.5641E+01, 0.5721E+01, 0.5805E+01, 0.5892E+01,& - 0.5982E+01, 0.6076E+01, 0.6174E+01, 0.6276E+01,& - 0.6382E+01, 0.6494E+01, 0.6611E+01, 0.6735E+01,& - 0.6865E+01, 0.7003E+01, 0.7148E+01, 0.7304E+01,& - 0.7470E+01, 0.7648E+01, 0.7839E+01, 0.8047E+01,& - 0.8274E+01, 0.8524E+01, 0.8801E+01, 0.9112E+01,& - 0.9467E+01, 0.9879E+01, 0.1037E+02, 0.1097E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 69) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3022E-04, 0.3022E-04, 0.3022E-04, 0.3022E-04,& - 0.3022E-04, 0.5044E-04, 0.5044E-04, 0.5044E-04,& - 0.5044E-04, 0.7065E-04, 0.7065E-04, 0.7065E-04,& - 0.9087E-04, 0.9087E-04, 0.9087E-04, 0.1111E-03,& - 0.1111E-03, 0.1111E-03, 0.1313E-03, 0.1313E-03,& - 0.1515E-03, 0.1515E-03, 0.1717E-03, 0.1717E-03,& - 0.1920E-03, 0.2122E-03, 0.2122E-03, 0.2324E-03,& - 0.2324E-03, 0.2526E-03, 0.2728E-03, 0.2931E-03,& - 0.2931E-03, 0.3133E-03, 0.3335E-03, 0.3537E-03,& - 0.3739E-03, 0.3941E-03, 0.3941E-03, 0.4144E-03,& - 0.4346E-03, 0.4548E-03, 0.4750E-03, 0.5154E-03,& - 0.5357E-03, 0.5559E-03, 0.5761E-03, 0.5963E-03,& - 0.6165E-03, 0.6570E-03, 0.6772E-03, 0.6974E-03,& - 0.7378E-03, 0.7581E-03, 0.7985E-03, 0.8187E-03,& - 0.8592E-03, 0.8794E-03, 0.9198E-03, 0.9602E-03,& - 0.1001E-02, 0.1021E-02, 0.1061E-02, 0.1102E-02,& - 0.1142E-02, 0.1183E-02, 0.1223E-02, 0.1264E-02,& - 0.1304E-02, 0.1344E-02, 0.1385E-02, 0.1425E-02,& - 0.1486E-02, 0.1526E-02, 0.1567E-02, 0.1627E-02,& - 0.1668E-02, 0.1729E-02, 0.1769E-02, 0.1830E-02,& - 0.1890E-02, 0.1931E-02, 0.1991E-02, 0.2052E-02,& - 0.2113E-02, 0.2173E-02, 0.2234E-02, 0.2295E-02,& - 0.2355E-02, 0.2416E-02, 0.2497E-02, 0.2557E-02,& - 0.2618E-02, 0.2699E-02, 0.2760E-02, 0.2841E-02,& - 0.2901E-02, 0.2982E-02, 0.3063E-02, 0.3144E-02,& - 0.3225E-02, 0.3306E-02, 0.3386E-02, 0.3467E-02,& - 0.3548E-02, 0.3629E-02, 0.3710E-02, 0.3811E-02,& - 0.3892E-02, 0.3993E-02, 0.4074E-02, 0.4175E-02,& - 0.4276E-02, 0.4357E-02, 0.4458E-02, 0.4559E-02,& - 0.4660E-02, 0.4761E-02, 0.4883E-02, 0.4984E-02,& - 0.5085E-02, 0.5206E-02, 0.5307E-02, 0.5428E-02,& - 0.5529E-02, 0.5651E-02, 0.5772E-02, 0.5893E-02,& - 0.6015E-02, 0.6136E-02, 0.6257E-02, 0.6379E-02,& - 0.6520E-02, 0.6641E-02, 0.6783E-02, 0.6904E-02,& - 0.7046E-02, 0.7187E-02, 0.7329E-02, 0.7470E-02,& - 0.7612E-02, 0.7753E-02, 0.7895E-02, 0.8037E-02,& - 0.8198E-02, 0.8340E-02, 0.8502E-02, 0.8663E-02,& - 0.8825E-02, 0.8967E-02, 0.9128E-02, 0.9310E-02,& - 0.9472E-02, 0.9634E-02, 0.9816E-02, 0.9977E-02,& - 0.1016E-01, 0.1032E-01, 0.1050E-01, 0.1069E-01,& - 0.1087E-01, 0.1105E-01, 0.1125E-01, 0.1143E-01,& - 0.1164E-01, 0.1182E-01, 0.1202E-01, 0.1222E-01,& - 0.1242E-01, 0.1263E-01, 0.1283E-01, 0.1303E-01,& - 0.1323E-01, 0.1345E-01, 0.1368E-01, 0.1388E-01,& - 0.1410E-01, 0.1432E-01, 0.1455E-01, 0.1477E-01,& - 0.1501E-01, 0.1523E-01, 0.1548E-01, 0.1572E-01,& - 0.1594E-01, 0.1618E-01, 0.1643E-01, 0.1669E-01,& - 0.1693E-01, 0.1717E-01, 0.1744E-01, 0.1770E-01,& - 0.1794E-01, 0.1821E-01, 0.1849E-01, 0.1875E-01,& - 0.1901E-01, 0.1930E-01, 0.1956E-01, 0.1984E-01,& - 0.2013E-01, 0.2041E-01, 0.2069E-01, 0.2100E-01,& - 0.2128E-01, 0.2158E-01, 0.2187E-01, 0.2217E-01,& - 0.2247E-01, 0.2278E-01, 0.2310E-01, 0.2340E-01,& - 0.2373E-01, 0.2405E-01, 0.2435E-01, 0.2468E-01,& - 0.2502E-01, 0.2534E-01, 0.2567E-01, 0.2601E-01,& - 0.2635E-01, 0.2670E-01, 0.2704E-01, 0.2739E-01,& - 0.2775E-01, 0.2809E-01, 0.2846E-01, 0.2882E-01,& - 0.2918E-01, 0.2955E-01, 0.2991E-01, 0.3030E-01,& - 0.3068E-01, 0.3104E-01, 0.3143E-01, 0.3183E-01,& - 0.3222E-01, 0.3260E-01, 0.3301E-01, 0.3341E-01,& - 0.3381E-01, 0.3422E-01, 0.3462E-01, 0.3505E-01,& - 0.3547E-01, 0.3588E-01, 0.3630E-01, 0.3675E-01,& - 0.3717E-01, 0.3762E-01, 0.3804E-01, 0.3848E-01,& - 0.3893E-01, 0.3939E-01, 0.3984E-01, 0.4030E-01,& - 0.4077E-01, 0.4123E-01, 0.4170E-01, 0.4216E-01,& - 0.4265E-01, 0.4311E-01, 0.4360E-01, 0.4408E-01,& - 0.4459E-01, 0.4508E-01, 0.4558E-01, 0.4609E-01,& - 0.4659E-01, 0.4710E-01, 0.4762E-01, 0.4813E-01,& - 0.4865E-01, 0.4918E-01, 0.4971E-01, 0.5025E-01,& - 0.5078E-01, 0.5132E-01, 0.5187E-01, 0.5243E-01,& - 0.5298E-01, 0.5355E-01, 0.5411E-01, 0.5468E-01,& - 0.5525E-01, 0.5581E-01, 0.5640E-01, 0.5698E-01,& - 0.5757E-01, 0.5818E-01, 0.5876E-01, 0.5937E-01,& - 0.5998E-01, 0.6058E-01, 0.6119E-01, 0.6182E-01,& - 0.6244E-01, 0.6307E-01, 0.6370E-01, 0.6434E-01,& - 0.6499E-01, 0.6564E-01, 0.6628E-01, 0.6693E-01,& - 0.6760E-01, 0.6827E-01, 0.6893E-01, 0.6960E-01,& - 0.7029E-01, 0.7097E-01, 0.7166E-01, 0.7235E-01,& - 0.7304E-01, 0.7374E-01, 0.7445E-01, 0.7516E-01,& - 0.7589E-01, 0.7660E-01, 0.7732E-01, 0.7807E-01,& - 0.7880E-01, 0.7955E-01, 0.8030E-01, 0.8104E-01,& - 0.8179E-01, 0.8256E-01, 0.8333E-01, 0.8410E-01,& - 0.8486E-01, 0.8565E-01, 0.8644E-01, 0.8723E-01,& - 0.8804E-01, 0.8883E-01, 0.8964E-01, 0.9046E-01,& - 0.9127E-01, 0.9210E-01, 0.9293E-01, 0.9376E-01,& - 0.9461E-01, 0.9544E-01, 0.9629E-01, 0.9716E-01,& - 0.9801E-01, 0.9888E-01, 0.9977E-01, 0.1006E+00,& - 0.1015E+00, 0.1024E+00, 0.1033E+00, 0.1042E+00,& - 0.1051E+00, 0.1060E+00, 0.1069E+00, 0.1079E+00,& - 0.1088E+00, 0.1097E+00, 0.1107E+00, 0.1116E+00,& - 0.1126E+00, 0.1135E+00, 0.1145E+00, 0.1155E+00,& - 0.1164E+00, 0.1174E+00, 0.1184E+00, 0.1194E+00,& - 0.1204E+00, 0.1214E+00, 0.1224E+00, 0.1234E+00,& - 0.1245E+00, 0.1255E+00, 0.1265E+00, 0.1276E+00,& - 0.1286E+00, 0.1297E+00, 0.1307E+00, 0.1318E+00,& - 0.1329E+00, 0.1340E+00, 0.1351E+00, 0.1362E+00,& - 0.1372E+00, 0.1384E+00, 0.1395E+00, 0.1406E+00,& - 0.1417E+00, 0.1429E+00, 0.1440E+00, 0.1452E+00,& - 0.1463E+00, 0.1475E+00, 0.1486E+00, 0.1498E+00,& - 0.1510E+00, 0.1522E+00, 0.1534E+00, 0.1546E+00,& - 0.1558E+00, 0.1570E+00, 0.1582E+00, 0.1594E+00,& - 0.1607E+00, 0.1619E+00, 0.1632E+00, 0.1644E+00,& - 0.1657E+00, 0.1670E+00, 0.1683E+00, 0.1695E+00,& - 0.1708E+00, 0.1721E+00, 0.1734E+00, 0.1748E+00,& - 0.1761E+00, 0.1774E+00, 0.1788E+00, 0.1801E+00,& - 0.1815E+00, 0.1828E+00, 0.1842E+00, 0.1856E+00,& - 0.1869E+00, 0.1883E+00, 0.1898E+00, 0.1911E+00,& - 0.1926E+00, 0.1940E+00, 0.1954E+00, 0.1969E+00,& - 0.1983E+00, 0.1998E+00, 0.2012E+00, 0.2027E+00,& - 0.2042E+00, 0.2057E+00, 0.2072E+00, 0.2087E+00,& - 0.2102E+00, 0.2117E+00, 0.2132E+00, 0.2148E+00,& - 0.2163E+00, 0.2179E+00, 0.2194E+00, 0.2210E+00,& - 0.2226E+00, 0.2242E+00, 0.2258E+00, 0.2274E+00,& - 0.2290E+00, 0.2306E+00, 0.2322E+00, 0.2339E+00,& - 0.2355E+00, 0.2372E+00, 0.2388E+00, 0.2405E+00,& - 0.2422E+00, 0.2439E+00, 0.2456E+00, 0.2473E+00,& - 0.2490E+00, 0.2508E+00, 0.2525E+00, 0.2542E+00,& - 0.2560E+00, 0.2578E+00, 0.2596E+00, 0.2613E+00,& - 0.2631E+00, 0.2649E+00, 0.2668E+00, 0.2686E+00,& - 0.2704E+00, 0.2723E+00, 0.2741E+00, 0.2760E+00,& - 0.2779E+00, 0.2797E+00, 0.2816E+00, 0.2835E+00,& - 0.2854E+00, 0.2874E+00, 0.2893E+00, 0.2912E+00,& - 0.2932E+00, 0.2952E+00, 0.2971E+00, 0.2991E+00,& - 0.3011E+00, 0.3031E+00, 0.3051E+00, 0.3072E+00,& - 0.3092E+00, 0.3112E+00, 0.3133E+00, 0.3154E+00,& - 0.3175E+00, 0.3195E+00, 0.3216E+00, 0.3238E+00,& - 0.3259E+00, 0.3280E+00, 0.3301E+00, 0.3323E+00,& - 0.3345E+00, 0.3367E+00, 0.3388E+00, 0.3410E+00,& - 0.3432E+00, 0.3455E+00, 0.3477E+00, 0.3500E+00,& - 0.3522E+00, 0.3545E+00, 0.3568E+00, 0.3591E+00,& - 0.3614E+00, 0.3637E+00, 0.3660E+00, 0.3684E+00,& - 0.3707E+00, 0.3731E+00, 0.3755E+00, 0.3778E+00,& - 0.3802E+00, 0.3827E+00, 0.3851E+00, 0.3875E+00,& - 0.3900E+00, 0.3924E+00, 0.3949E+00, 0.3974E+00,& - 0.3999E+00, 0.4024E+00, 0.4050E+00, 0.4075E+00,& - 0.4100E+00, 0.4126E+00, 0.4152E+00, 0.4178E+00,& - 0.4204E+00, 0.4230E+00, 0.4256E+00, 0.4283E+00,& - 0.4309E+00, 0.4336E+00, 0.4363E+00, 0.4390E+00,& - 0.4417E+00, 0.4444E+00, 0.4472E+00, 0.4499E+00,& - 0.4527E+00, 0.4555E+00, 0.4583E+00, 0.4611E+00,& - 0.4639E+00, 0.4668E+00, 0.4697E+00, 0.4725E+00,& - 0.4754E+00, 0.4783E+00, 0.4812E+00, 0.4841E+00,& - 0.4871E+00, 0.4901E+00, 0.4930E+00, 0.4960E+00,& - 0.4990E+00, 0.4969E+00, 0.5051E+00, 0.5081E+00,& - 0.5112E+00, 0.5143E+00, 0.5174E+00, 0.5205E+00,& - 0.5236E+00, 0.5268E+00, 0.5300E+00, 0.5331E+00,& - 0.5363E+00, 0.5395E+00, 0.5428E+00, 0.5460E+00,& - 0.5493E+00, 0.5526E+00, 0.5559E+00, 0.5592E+00,& - 0.5625E+00, 0.5658E+00, 0.5692E+00, 0.5726E+00,& - 0.5760E+00, 0.5794E+00, 0.5829E+00, 0.5863E+00,& - 0.5898E+00, 0.5933E+00, 0.5968E+00, 0.6003E+00,& - 0.6038E+00, 0.6074E+00, 0.6110E+00, 0.6146E+00,& - 0.6182E+00, 0.6218E+00, 0.6255E+00, 0.6292E+00,& - 0.6328E+00, 0.6365E+00, 0.6403E+00, 0.6440E+00,& - 0.6478E+00, 0.6516E+00, 0.6554E+00, 0.6592E+00,& - 0.6631E+00, 0.6669E+00, 0.6708E+00, 0.6747E+00,& - 0.6787E+00, 0.6826E+00, 0.6866E+00, 0.6906E+00,& - 0.6946E+00, 0.6986E+00, 0.7027E+00, 0.7068E+00,& - 0.7109E+00, 0.7150E+00, 0.7191E+00, 0.7233E+00,& - 0.7275E+00, 0.7317E+00, 0.7359E+00, 0.7402E+00,& - 0.7445E+00, 0.7487E+00, 0.7531E+00, 0.7574E+00,& - 0.7618E+00, 0.7662E+00, 0.7706E+00, 0.7750E+00,& - 0.7795E+00, 0.7840E+00, 0.7885E+00, 0.7930E+00,& - 0.7976E+00, 0.8022E+00, 0.8068E+00, 0.8114E+00,& - 0.8160E+00, 0.8207E+00, 0.8254E+00, 0.8302E+00,& - 0.8349E+00, 0.8397E+00, 0.8445E+00, 0.8494E+00,& - 0.8542E+00, 0.8591E+00, 0.8640E+00, 0.8690E+00,& - 0.8739E+00, 0.8790E+00, 0.8840E+00, 0.8890E+00,& - 0.8941E+00, 0.8992E+00, 0.9044E+00, 0.9095E+00,& - 0.9147E+00, 0.9199E+00, 0.9252E+00, 0.9305E+00,& - 0.9358E+00, 0.9411E+00, 0.9465E+00, 0.9519E+00,& - 0.9573E+00, 0.9628E+00, 0.9683E+00, 0.9738E+00,& - 0.9794E+00, 0.9850E+00, 0.9906E+00, 0.9962E+00,& - 0.1002E+01, 0.1008E+01, 0.1013E+01, 0.1019E+01,& - 0.1025E+01, 0.1031E+01, 0.1037E+01, 0.1043E+01,& - 0.1048E+01, 0.1053E+01, 0.1061E+01, 0.1067E+01,& - 0.1073E+01, 0.1079E+01, 0.1085E+01, 0.1091E+01,& - 0.1097E+01, 0.1104E+01, 0.1110E+01, 0.1116E+01,& - 0.1123E+01, 0.1129E+01, 0.1136E+01, 0.1142E+01,& - 0.1149E+01, 0.1155E+01, 0.1162E+01, 0.1169E+01,& - 0.1175E+01, 0.1182E+01, 0.1189E+01, 0.1196E+01,& - 0.1202E+01, 0.1209E+01, 0.1216E+01, 0.1223E+01,& - 0.1230E+01, 0.1237E+01, 0.1244E+01, 0.1252E+01,& - 0.1259E+01, 0.1266E+01, 0.1273E+01, 0.1281E+01,& - 0.1288E+01, 0.1295E+01, 0.1303E+01, 0.1310E+01,& - 0.1318E+01, 0.1326E+01, 0.1333E+01, 0.1341E+01,& - 0.1349E+01, 0.1357E+01, 0.1364E+01, 0.1372E+01,& - 0.1380E+01, 0.1388E+01, 0.1396E+01, 0.1405E+01,& - 0.1413E+01, 0.1421E+01, 0.1429E+01, 0.1438E+01,& - 0.1446E+01, 0.1454E+01, 0.1463E+01, 0.1471E+01,& - 0.1480E+01, 0.1489E+01, 0.1498E+01, 0.1506E+01,& - 0.1515E+01, 0.1524E+01, 0.1533E+01, 0.1542E+01,& - 0.1551E+01, 0.1560E+01, 0.1570E+01, 0.1579E+01,& - 0.1588E+01, 0.1598E+01, 0.1607E+01, 0.1617E+01,& - 0.1626E+01, 0.1636E+01, 0.1646E+01, 0.1656E+01,& - 0.1666E+01, 0.1676E+01, 0.1686E+01, 0.1696E+01,& - 0.1706E+01, 0.1716E+01, 0.1727E+01, 0.1737E+01,& - 0.1748E+01, 0.1758E+01, 0.1769E+01, 0.1780E+01,& - 0.1790E+01, 0.1801E+01, 0.1812E+01, 0.1823E+01,& - 0.1834E+01, 0.1846E+01, 0.1857E+01, 0.1868E+01,& - 0.1880E+01, 0.1891E+01, 0.1903E+01, 0.1915E+01,& - 0.1927E+01, 0.1939E+01, 0.1951E+01, 0.1963E+01,& - 0.1975E+01, 0.1988E+01, 0.2000E+01, 0.2013E+01,& - 0.2025E+01, 0.2038E+01, 0.2051E+01, 0.2064E+01,& - 0.2077E+01, 0.2090E+01, 0.2104E+01, 0.2117E+01,& - 0.2131E+01, 0.2144E+01, 0.2158E+01, 0.2172E+01,& - 0.2186E+01, 0.2200E+01, 0.2214E+01, 0.2229E+01,& - 0.2243E+01, 0.2258E+01, 0.2273E+01, 0.2288E+01,& - 0.2303E+01, 0.2318E+01, 0.2333E+01, 0.2349E+01,& - 0.2364E+01, 0.2380E+01, 0.2396E+01, 0.2412E+01,& - 0.2428E+01, 0.2445E+01, 0.2461E+01, 0.2478E+01,& - 0.2495E+01, 0.2512E+01, 0.2529E+01, 0.2547E+01,& - 0.2564E+01, 0.2582E+01, 0.2600E+01, 0.2618E+01,& - 0.2637E+01, 0.2655E+01, 0.2674E+01, 0.2693E+01,& - 0.2712E+01, 0.2731E+01, 0.2751E+01, 0.2770E+01,& - 0.2790E+01, 0.2811E+01, 0.2831E+01, 0.2852E+01,& - 0.2873E+01, 0.2894E+01, 0.2915E+01, 0.2937E+01,& - 0.2959E+01, 0.2981E+01, 0.3003E+01, 0.3026E+01,& - 0.3049E+01, 0.3072E+01, 0.3096E+01, 0.3120E+01,& - 0.3144E+01, 0.3169E+01, 0.3193E+01, 0.3218E+01,& - 0.3244E+01, 0.3270E+01, 0.3296E+01, 0.3323E+01,& - 0.3349E+01, 0.3377E+01, 0.3404E+01, 0.3432E+01,& - 0.3461E+01, 0.3490E+01, 0.3519E+01, 0.3549E+01,& - 0.3579E+01, 0.3610E+01, 0.3641E+01, 0.3673E+01,& - 0.3705E+01, 0.3738E+01, 0.3771E+01, 0.3805E+01,& - 0.3839E+01, 0.3874E+01, 0.3909E+01, 0.3945E+01,& - 0.3982E+01, 0.4020E+01, 0.4058E+01, 0.4097E+01,& - 0.4136E+01, 0.4177E+01, 0.4218E+01, 0.4260E+01,& - 0.4303E+01, 0.4346E+01, 0.4391E+01, 0.4436E+01,& - 0.4483E+01, 0.4530E+01, 0.4579E+01, 0.4629E+01,& - 0.4680E+01, 0.4732E+01, 0.4785E+01, 0.4840E+01,& - 0.4896E+01, 0.4953E+01, 0.5012E+01, 0.5073E+01,& - 0.5135E+01, 0.5199E+01, 0.5265E+01, 0.5333E+01,& - 0.5403E+01, 0.5475E+01, 0.5550E+01, 0.5627E+01,& - 0.5707E+01, 0.5789E+01, 0.5875E+01, 0.5963E+01,& - 0.6056E+01, 0.6152E+01, 0.6252E+01, 0.6356E+01,& - 0.6465E+01, 0.6579E+01, 0.6699E+01, 0.6826E+01,& - 0.6959E+01, 0.7100E+01, 0.7249E+01, 0.7408E+01,& - 0.7578E+01, 0.7760E+01, 0.7956E+01, 0.8169E+01,& - 0.8402E+01, 0.8657E+01, 0.8941E+01, 0.9260E+01,& - 0.9623E+01, 0.1005E+02, 0.1055E+02, 0.1117E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 70) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3065E-04,& - 0.3065E-04, 0.3065E-04, 0.3065E-04, 0.3065E-04,& - 0.5130E-04, 0.5130E-04, 0.5130E-04, 0.5130E-04,& - 0.5130E-04, 0.7195E-04, 0.7195E-04, 0.7195E-04,& - 0.9260E-04, 0.9260E-04, 0.9260E-04, 0.1133E-03,& - 0.1133E-03, 0.1133E-03, 0.1339E-03, 0.1339E-03,& - 0.1546E-03, 0.1546E-03, 0.1752E-03, 0.1752E-03,& - 0.1959E-03, 0.1959E-03, 0.2165E-03, 0.2165E-03,& - 0.2372E-03, 0.2578E-03, 0.2578E-03, 0.2785E-03,& - 0.2991E-03, 0.2991E-03, 0.3198E-03, 0.3404E-03,& - 0.3611E-03, 0.3611E-03, 0.3817E-03, 0.4024E-03,& - 0.4230E-03, 0.4437E-03, 0.4643E-03, 0.4850E-03,& - 0.5056E-03, 0.5263E-03, 0.5469E-03, 0.5676E-03,& - 0.6089E-03, 0.6295E-03, 0.6502E-03, 0.6708E-03,& - 0.6915E-03, 0.7328E-03, 0.7534E-03, 0.7947E-03,& - 0.8154E-03, 0.8360E-03, 0.8773E-03, 0.8980E-03,& - 0.9393E-03, 0.9806E-03, 0.1001E-02, 0.1043E-02,& - 0.1084E-02, 0.1125E-02, 0.1146E-02, 0.1187E-02,& - 0.1228E-02, 0.1270E-02, 0.1311E-02, 0.1352E-02,& - 0.1394E-02, 0.1435E-02, 0.1476E-02, 0.1538E-02,& - 0.1579E-02, 0.1621E-02, 0.1683E-02, 0.1724E-02,& - 0.1765E-02, 0.1827E-02, 0.1889E-02, 0.1930E-02,& - 0.1992E-02, 0.2054E-02, 0.2096E-02, 0.2158E-02,& - 0.2220E-02, 0.2282E-02, 0.2343E-02, 0.2405E-02,& - 0.2467E-02, 0.2529E-02, 0.2591E-02, 0.2674E-02,& - 0.2736E-02, 0.2798E-02, 0.2880E-02, 0.2942E-02,& - 0.3025E-02, 0.3108E-02, 0.3169E-02, 0.3252E-02,& - 0.3335E-02, 0.3417E-02, 0.3500E-02, 0.3582E-02,& - 0.3665E-02, 0.3748E-02, 0.3830E-02, 0.3913E-02,& - 0.4016E-02, 0.4099E-02, 0.4202E-02, 0.4285E-02,& - 0.4388E-02, 0.4491E-02, 0.4574E-02, 0.4677E-02,& - 0.4780E-02, 0.4883E-02, 0.4987E-02, 0.5090E-02,& - 0.5214E-02, 0.5317E-02, 0.5420E-02, 0.5544E-02,& - 0.5647E-02, 0.5771E-02, 0.5895E-02, 0.5999E-02,& - 0.6122E-02, 0.6246E-02, 0.6370E-02, 0.6494E-02,& - 0.6618E-02, 0.6763E-02, 0.6886E-02, 0.7010E-02,& - 0.7155E-02, 0.7299E-02, 0.7423E-02, 0.7568E-02,& - 0.7712E-02, 0.7857E-02, 0.8002E-02, 0.8146E-02,& - 0.8291E-02, 0.8456E-02, 0.8600E-02, 0.8766E-02,& - 0.8910E-02, 0.9075E-02, 0.9241E-02, 0.9406E-02,& - 0.9571E-02, 0.9736E-02, 0.9901E-02, 0.1009E-01,& - 0.1025E-01, 0.1042E-01, 0.1060E-01, 0.1079E-01,& - 0.1098E-01, 0.1116E-01, 0.1135E-01, 0.1153E-01,& - 0.1172E-01, 0.1190E-01, 0.1211E-01, 0.1230E-01,& - 0.1250E-01, 0.1271E-01, 0.1292E-01, 0.1312E-01,& - 0.1333E-01, 0.1354E-01, 0.1374E-01, 0.1397E-01,& - 0.1418E-01, 0.1440E-01, 0.1463E-01, 0.1486E-01,& - 0.1508E-01, 0.1531E-01, 0.1554E-01, 0.1579E-01,& - 0.1601E-01, 0.1626E-01, 0.1651E-01, 0.1676E-01,& - 0.1700E-01, 0.1725E-01, 0.1750E-01, 0.1775E-01,& - 0.1802E-01, 0.1829E-01, 0.1853E-01, 0.1880E-01,& - 0.1907E-01, 0.1936E-01, 0.1963E-01, 0.1990E-01,& - 0.2019E-01, 0.2047E-01, 0.2074E-01, 0.2103E-01,& - 0.2132E-01, 0.2163E-01, 0.2192E-01, 0.2223E-01,& - 0.2252E-01, 0.2283E-01, 0.2314E-01, 0.2345E-01,& - 0.2376E-01, 0.2409E-01, 0.2440E-01, 0.2473E-01,& - 0.2506E-01, 0.2539E-01, 0.2572E-01, 0.2605E-01,& - 0.2638E-01, 0.2673E-01, 0.2708E-01, 0.2743E-01,& - 0.2778E-01, 0.2814E-01, 0.2849E-01, 0.2884E-01,& - 0.2921E-01, 0.2958E-01, 0.2995E-01, 0.3032E-01,& - 0.3070E-01, 0.3109E-01, 0.3146E-01, 0.3185E-01,& - 0.3224E-01, 0.3264E-01, 0.3303E-01, 0.3344E-01,& - 0.3383E-01, 0.3425E-01, 0.3466E-01, 0.3507E-01,& - 0.3549E-01, 0.3590E-01, 0.3633E-01, 0.3677E-01,& - 0.3720E-01, 0.3763E-01, 0.3807E-01, 0.3852E-01,& - 0.3896E-01, 0.3941E-01, 0.3986E-01, 0.4032E-01,& - 0.4079E-01, 0.4125E-01, 0.4172E-01, 0.4220E-01,& - 0.4267E-01, 0.4315E-01, 0.4362E-01, 0.4412E-01,& - 0.4461E-01, 0.4511E-01, 0.4561E-01, 0.4612E-01,& - 0.4662E-01, 0.4713E-01, 0.4765E-01, 0.4817E-01,& - 0.4868E-01, 0.4922E-01, 0.4976E-01, 0.5029E-01,& - 0.5083E-01, 0.5137E-01, 0.5192E-01, 0.5246E-01,& - 0.5302E-01, 0.5360E-01, 0.5415E-01, 0.5473E-01,& - 0.5529E-01, 0.5587E-01, 0.5647E-01, 0.5705E-01,& - 0.5764E-01, 0.5822E-01, 0.5882E-01, 0.5944E-01,& - 0.6004E-01, 0.6066E-01, 0.6128E-01, 0.6190E-01,& - 0.6252E-01, 0.6316E-01, 0.6380E-01, 0.6444E-01,& - 0.6508E-01, 0.6572E-01, 0.6638E-01, 0.6704E-01,& - 0.6770E-01, 0.6836E-01, 0.6904E-01, 0.6972E-01,& - 0.7041E-01, 0.7109E-01, 0.7179E-01, 0.7247E-01,& - 0.7317E-01, 0.7390E-01, 0.7460E-01, 0.7532E-01,& - 0.7604E-01, 0.7677E-01, 0.7749E-01, 0.7823E-01,& - 0.7898E-01, 0.7972E-01, 0.8046E-01, 0.8123E-01,& - 0.8199E-01, 0.8275E-01, 0.8354E-01, 0.8430E-01,& - 0.8509E-01, 0.8587E-01, 0.8668E-01, 0.8746E-01,& - 0.8827E-01, 0.8909E-01, 0.8990E-01, 0.9073E-01,& - 0.9155E-01, 0.9238E-01, 0.9322E-01, 0.9405E-01,& - 0.9490E-01, 0.9576E-01, 0.9661E-01, 0.9748E-01,& - 0.9835E-01, 0.9923E-01, 0.1001E+00, 0.1010E+00,& - 0.1019E+00, 0.1028E+00, 0.1037E+00, 0.1046E+00,& - 0.1055E+00, 0.1064E+00, 0.1074E+00, 0.1083E+00,& - 0.1092E+00, 0.1102E+00, 0.1111E+00, 0.1121E+00,& - 0.1130E+00, 0.1140E+00, 0.1150E+00, 0.1160E+00,& - 0.1170E+00, 0.1180E+00, 0.1190E+00, 0.1200E+00,& - 0.1210E+00, 0.1220E+00, 0.1230E+00, 0.1241E+00,& - 0.1251E+00, 0.1261E+00, 0.1272E+00, 0.1282E+00,& - 0.1293E+00, 0.1304E+00, 0.1314E+00, 0.1325E+00,& - 0.1336E+00, 0.1347E+00, 0.1358E+00, 0.1369E+00,& - 0.1381E+00, 0.1392E+00, 0.1403E+00, 0.1414E+00,& - 0.1426E+00, 0.1437E+00, 0.1449E+00, 0.1461E+00,& - 0.1472E+00, 0.1484E+00, 0.1496E+00, 0.1508E+00,& - 0.1520E+00, 0.1532E+00, 0.1544E+00, 0.1556E+00,& - 0.1568E+00, 0.1581E+00, 0.1593E+00, 0.1606E+00,& - 0.1618E+00, 0.1631E+00, 0.1644E+00, 0.1656E+00,& - 0.1669E+00, 0.1682E+00, 0.1695E+00, 0.1708E+00,& - 0.1721E+00, 0.1735E+00, 0.1748E+00, 0.1762E+00,& - 0.1775E+00, 0.1789E+00, 0.1802E+00, 0.1816E+00,& - 0.1830E+00, 0.1844E+00, 0.1858E+00, 0.1871E+00,& - 0.1886E+00, 0.1900E+00, 0.1914E+00, 0.1928E+00,& - 0.1943E+00, 0.1957E+00, 0.1972E+00, 0.1987E+00,& - 0.2001E+00, 0.2016E+00, 0.2031E+00, 0.2046E+00,& - 0.2061E+00, 0.2076E+00, 0.2092E+00, 0.2107E+00,& - 0.2122E+00, 0.2138E+00, 0.2153E+00, 0.2169E+00,& - 0.2185E+00, 0.2201E+00, 0.2217E+00, 0.2233E+00,& - 0.2249E+00, 0.2265E+00, 0.2281E+00, 0.2298E+00,& - 0.2314E+00, 0.2331E+00, 0.2348E+00, 0.2364E+00,& - 0.2381E+00, 0.2398E+00, 0.2415E+00, 0.2432E+00,& - 0.2449E+00, 0.2467E+00, 0.2484E+00, 0.2502E+00,& - 0.2519E+00, 0.2537E+00, 0.2555E+00, 0.2573E+00,& - 0.2591E+00, 0.2609E+00, 0.2627E+00, 0.2645E+00,& - 0.2664E+00, 0.2682E+00, 0.2701E+00, 0.2719E+00,& - 0.2738E+00, 0.2757E+00, 0.2776E+00, 0.2795E+00,& - 0.2814E+00, 0.2833E+00, 0.2853E+00, 0.2873E+00,& - 0.2892E+00, 0.2912E+00, 0.2932E+00, 0.2952E+00,& - 0.2972E+00, 0.2992E+00, 0.3012E+00, 0.3032E+00,& - 0.3053E+00, 0.3073E+00, 0.3094E+00, 0.3115E+00,& - 0.3136E+00, 0.3157E+00, 0.3178E+00, 0.3199E+00,& - 0.3220E+00, 0.3242E+00, 0.3263E+00, 0.3285E+00,& - 0.3307E+00, 0.3329E+00, 0.3351E+00, 0.3373E+00,& - 0.3395E+00, 0.3418E+00, 0.3440E+00, 0.3463E+00,& - 0.3486E+00, 0.3509E+00, 0.3531E+00, 0.3555E+00,& - 0.3578E+00, 0.3601E+00, 0.3625E+00, 0.3648E+00,& - 0.3672E+00, 0.3696E+00, 0.3720E+00, 0.3744E+00,& - 0.3768E+00, 0.3792E+00, 0.3817E+00, 0.3841E+00,& - 0.3866E+00, 0.3891E+00, 0.3916E+00, 0.3941E+00,& - 0.3967E+00, 0.3992E+00, 0.4017E+00, 0.4043E+00,& - 0.4069E+00, 0.4095E+00, 0.4121E+00, 0.4147E+00,& - 0.4173E+00, 0.4200E+00, 0.4227E+00, 0.4253E+00,& - 0.4280E+00, 0.4307E+00, 0.4334E+00, 0.4362E+00,& - 0.4389E+00, 0.4417E+00, 0.4444E+00, 0.4472E+00,& - 0.4500E+00, 0.4529E+00, 0.4557E+00, 0.4585E+00,& - 0.4614E+00, 0.4643E+00, 0.4672E+00, 0.4701E+00,& - 0.4730E+00, 0.4760E+00, 0.4789E+00, 0.4819E+00,& - 0.4849E+00, 0.4878E+00, 0.4909E+00, 0.4939E+00,& - 0.4970E+00, 0.5000E+00, 0.5031E+00, 0.5062E+00,& - 0.5093E+00, 0.5124E+00, 0.5156E+00, 0.5187E+00,& - 0.5219E+00, 0.5251E+00, 0.5283E+00, 0.5315E+00,& - 0.5348E+00, 0.5380E+00, 0.5413E+00, 0.5446E+00,& - 0.5479E+00, 0.5513E+00, 0.5546E+00, 0.5580E+00,& - 0.5614E+00, 0.5648E+00, 0.5682E+00, 0.5716E+00,& - 0.5751E+00, 0.5786E+00, 0.5821E+00, 0.5856E+00,& - 0.5891E+00, 0.5926E+00, 0.5962E+00, 0.5998E+00,& - 0.6034E+00, 0.6070E+00, 0.6107E+00, 0.6143E+00,& - 0.6180E+00, 0.6217E+00, 0.6254E+00, 0.6292E+00,& - 0.6329E+00, 0.6367E+00, 0.6405E+00, 0.6443E+00,& - 0.6482E+00, 0.6520E+00, 0.6559E+00, 0.6598E+00,& - 0.6637E+00, 0.6677E+00, 0.6717E+00, 0.6757E+00,& - 0.6797E+00, 0.6837E+00, 0.6877E+00, 0.6918E+00,& - 0.6959E+00, 0.7000E+00, 0.7042E+00, 0.7083E+00,& - 0.7125E+00, 0.7167E+00, 0.7209E+00, 0.7252E+00,& - 0.7295E+00, 0.7338E+00, 0.7381E+00, 0.7424E+00,& - 0.7468E+00, 0.7512E+00, 0.7556E+00, 0.7601E+00,& - 0.7645E+00, 0.7690E+00, 0.7735E+00, 0.7781E+00,& - 0.7826E+00, 0.7872E+00, 0.7918E+00, 0.7965E+00,& - 0.8011E+00, 0.8058E+00, 0.8105E+00, 0.8153E+00,& - 0.8200E+00, 0.8248E+00, 0.8296E+00, 0.8345E+00,& - 0.8394E+00, 0.8443E+00, 0.8492E+00, 0.8542E+00,& - 0.8591E+00, 0.8642E+00, 0.8692E+00, 0.8742E+00,& - 0.8793E+00, 0.8845E+00, 0.8896E+00, 0.8948E+00,& - 0.9000E+00, 0.9053E+00, 0.9105E+00, 0.9158E+00,& - 0.9212E+00, 0.9265E+00, 0.9319E+00, 0.9373E+00,& - 0.9428E+00, 0.9483E+00, 0.9538E+00, 0.9593E+00,& - 0.9649E+00, 0.9705E+00, 0.9762E+00, 0.9819E+00,& - 0.9876E+00, 0.9933E+00, 0.9991E+00, 0.1005E+01,& - 0.1011E+01, 0.1017E+01, 0.1023E+01, 0.1028E+01,& - 0.1034E+01, 0.1040E+01, 0.1047E+01, 0.1053E+01,& - 0.1059E+01, 0.1065E+01, 0.1071E+01, 0.1077E+01,& - 0.1084E+01, 0.1090E+01, 0.1096E+01, 0.1103E+01,& - 0.1109E+01, 0.1116E+01, 0.1122E+01, 0.1129E+01,& - 0.1135E+01, 0.1142E+01, 0.1148E+01, 0.1155E+01,& - 0.1162E+01, 0.1169E+01, 0.1175E+01, 0.1182E+01,& - 0.1189E+01, 0.1196E+01, 0.1203E+01, 0.1210E+01,& - 0.1217E+01, 0.1224E+01, 0.1232E+01, 0.1239E+01,& - 0.1246E+01, 0.1253E+01, 0.1261E+01, 0.1268E+01,& - 0.1275E+01, 0.1283E+01, 0.1291E+01, 0.1298E+01,& - 0.1306E+01, 0.1313E+01, 0.1321E+01, 0.1329E+01,& - 0.1337E+01, 0.1345E+01, 0.1353E+01, 0.1361E+01,& - 0.1369E+01, 0.1377E+01, 0.1385E+01, 0.1393E+01,& - 0.1401E+01, 0.1410E+01, 0.1418E+01, 0.1426E+01,& - 0.1435E+01, 0.1443E+01, 0.1452E+01, 0.1461E+01,& - 0.1469E+01, 0.1478E+01, 0.1487E+01, 0.1496E+01,& - 0.1505E+01, 0.1514E+01, 0.1523E+01, 0.1532E+01,& - 0.1541E+01, 0.1550E+01, 0.1560E+01, 0.1569E+01,& - 0.1579E+01, 0.1588E+01, 0.1598E+01, 0.1607E+01,& - 0.1617E+01, 0.1627E+01, 0.1637E+01, 0.1647E+01,& - 0.1657E+01, 0.1667E+01, 0.1677E+01, 0.1687E+01,& - 0.1698E+01, 0.1708E+01, 0.1719E+01, 0.1729E+01,& - 0.1740E+01, 0.1750E+01, 0.1761E+01, 0.1772E+01,& - 0.1783E+01, 0.1794E+01, 0.1805E+01, 0.1816E+01,& - 0.1828E+01, 0.1839E+01, 0.1850E+01, 0.1862E+01,& - 0.1874E+01, 0.1885E+01, 0.1897E+01, 0.1909E+01,& - 0.1921E+01, 0.1933E+01, 0.1946E+01, 0.1958E+01,& - 0.1970E+01, 0.1983E+01, 0.1995E+01, 0.2008E+01,& - 0.2021E+01, 0.2034E+01, 0.2047E+01, 0.2060E+01,& - 0.2073E+01, 0.2087E+01, 0.2100E+01, 0.2114E+01,& - 0.2128E+01, 0.2142E+01, 0.2156E+01, 0.2170E+01,& - 0.2184E+01, 0.2198E+01, 0.2213E+01, 0.2227E+01,& - 0.2242E+01, 0.2257E+01, 0.2272E+01, 0.2287E+01,& - 0.2302E+01, 0.2318E+01, 0.2333E+01, 0.2349E+01,& - 0.2365E+01, 0.2381E+01, 0.2397E+01, 0.2414E+01,& - 0.2430E+01, 0.2447E+01, 0.2464E+01, 0.2481E+01,& - 0.2498E+01, 0.2515E+01, 0.2533E+01, 0.2550E+01,& - 0.2568E+01, 0.2586E+01, 0.2604E+01, 0.2623E+01,& - 0.2641E+01, 0.2660E+01, 0.2679E+01, 0.2699E+01,& - 0.2718E+01, 0.2738E+01, 0.2758E+01, 0.2778E+01,& - 0.2798E+01, 0.2818E+01, 0.2839E+01, 0.2860E+01,& - 0.2882E+01, 0.2903E+01, 0.2925E+01, 0.2947E+01,& - 0.2969E+01, 0.2992E+01, 0.3015E+01, 0.3038E+01,& - 0.3061E+01, 0.3085E+01, 0.3109E+01, 0.3133E+01,& - 0.3158E+01, 0.3183E+01, 0.3208E+01, 0.3233E+01,& - 0.3259E+01, 0.3286E+01, 0.3312E+01, 0.3339E+01,& - 0.3367E+01, 0.3395E+01, 0.3423E+01, 0.3451E+01,& - 0.3480E+01, 0.3510E+01, 0.3540E+01, 0.3570E+01,& - 0.3601E+01, 0.3632E+01, 0.3664E+01, 0.3696E+01,& - 0.3729E+01, 0.3762E+01, 0.3796E+01, 0.3830E+01,& - 0.3865E+01, 0.3901E+01, 0.3937E+01, 0.3974E+01,& - 0.4012E+01, 0.4050E+01, 0.4089E+01, 0.4128E+01,& - 0.4169E+01, 0.4210E+01, 0.4252E+01, 0.4295E+01,& - 0.4338E+01, 0.4383E+01, 0.4428E+01, 0.4475E+01,& - 0.4522E+01, 0.4571E+01, 0.4620E+01, 0.4671E+01,& - 0.4723E+01, 0.4776E+01, 0.4831E+01, 0.4887E+01,& - 0.4944E+01, 0.5003E+01, 0.5063E+01, 0.5125E+01,& - 0.5188E+01, 0.5254E+01, 0.5321E+01, 0.5391E+01,& - 0.5462E+01, 0.5536E+01, 0.5612E+01, 0.5691E+01,& - 0.5772E+01, 0.5856E+01, 0.5944E+01, 0.6035E+01,& - 0.6129E+01, 0.6227E+01, 0.6329E+01, 0.6436E+01,& - 0.6548E+01, 0.6665E+01, 0.6787E+01, 0.6917E+01,& - 0.7053E+01, 0.7197E+01, 0.7350E+01, 0.7512E+01,& - 0.7686E+01, 0.7872E+01, 0.8074E+01, 0.8291E+01,& - 0.8529E+01, 0.8786E+01, 0.9082E+01, 0.9409E+01,& - 0.9781E+01, 0.1021E+02, 0.1073E+02, 0.1136E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 71) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.3109E-04, 0.3109E-04,& - 0.3109E-04, 0.3109E-04, 0.3109E-04, 0.3109E-04,& - 0.5218E-04, 0.5218E-04, 0.5218E-04, 0.5218E-04,& - 0.5218E-04, 0.7326E-04, 0.7326E-04, 0.7326E-04,& - 0.9435E-04, 0.9435E-04, 0.9435E-04, 0.1154E-03,& - 0.1154E-03, 0.1154E-03, 0.1365E-03, 0.1365E-03,& - 0.1365E-03, 0.1576E-03, 0.1576E-03, 0.1787E-03,& - 0.1787E-03, 0.1998E-03, 0.1998E-03, 0.2209E-03,& - 0.2209E-03, 0.2420E-03, 0.2631E-03, 0.2631E-03,& - 0.2841E-03, 0.3052E-03, 0.3052E-03, 0.3263E-03,& - 0.3474E-03, 0.3474E-03, 0.3685E-03, 0.3896E-03,& - 0.4107E-03, 0.4318E-03, 0.4529E-03, 0.4739E-03,& - 0.4950E-03, 0.5161E-03, 0.5372E-03, 0.5583E-03,& - 0.5794E-03, 0.6005E-03, 0.6216E-03, 0.6426E-03,& - 0.6637E-03, 0.6848E-03, 0.7270E-03, 0.7481E-03,& - 0.7692E-03, 0.8113E-03, 0.8324E-03, 0.8535E-03,& - 0.8957E-03, 0.9168E-03, 0.9590E-03, 0.9801E-03,& - 0.1022E-02, 0.1064E-02, 0.1085E-02, 0.1128E-02,& - 0.1170E-02, 0.1191E-02, 0.1233E-02, 0.1275E-02,& - 0.1317E-02, 0.1360E-02, 0.1402E-02, 0.1444E-02,& - 0.1486E-02, 0.1528E-02, 0.1571E-02, 0.1634E-02,& - 0.1676E-02, 0.1718E-02, 0.1760E-02, 0.1824E-02,& - 0.1866E-02, 0.1929E-02, 0.1971E-02, 0.2034E-02,& - 0.2077E-02, 0.2140E-02, 0.2203E-02, 0.2266E-02,& - 0.2330E-02, 0.2372E-02, 0.2435E-02, 0.2498E-02,& - 0.2562E-02, 0.2646E-02, 0.2709E-02, 0.2773E-02,& - 0.2836E-02, 0.2920E-02, 0.2983E-02, 0.3047E-02,& - 0.3131E-02, 0.3194E-02, 0.3279E-02, 0.3363E-02,& - 0.3447E-02, 0.3511E-02, 0.3595E-02, 0.3679E-02,& - 0.3764E-02, 0.3848E-02, 0.3932E-02, 0.4038E-02,& - 0.4122E-02, 0.4207E-02, 0.4312E-02, 0.4396E-02,& - 0.4502E-02, 0.4586E-02, 0.4692E-02, 0.4797E-02,& - 0.4881E-02, 0.4987E-02, 0.5092E-02, 0.5198E-02,& - 0.5303E-02, 0.5430E-02, 0.5535E-02, 0.5641E-02,& - 0.5767E-02, 0.5872E-02, 0.5999E-02, 0.6104E-02,& - 0.6231E-02, 0.6358E-02, 0.6484E-02, 0.6611E-02,& - 0.6737E-02, 0.6864E-02, 0.6990E-02, 0.7117E-02,& - 0.7264E-02, 0.7391E-02, 0.7538E-02, 0.7665E-02,& - 0.7813E-02, 0.7960E-02, 0.8108E-02, 0.8255E-02,& - 0.8403E-02, 0.8551E-02, 0.8698E-02, 0.8867E-02,& - 0.9015E-02, 0.9183E-02, 0.9331E-02, 0.9500E-02,& - 0.9668E-02, 0.9837E-02, 0.1001E-01, 0.1017E-01,& - 0.1034E-01, 0.1053E-01, 0.1070E-01, 0.1087E-01,& - 0.1106E-01, 0.1125E-01, 0.1144E-01, 0.1161E-01,& - 0.1182E-01, 0.1201E-01, 0.1220E-01, 0.1239E-01,& - 0.1260E-01, 0.1279E-01, 0.1300E-01, 0.1321E-01,& - 0.1340E-01, 0.1361E-01, 0.1384E-01, 0.1405E-01,& - 0.1427E-01, 0.1450E-01, 0.1471E-01, 0.1494E-01,& - 0.1517E-01, 0.1538E-01, 0.1562E-01, 0.1587E-01,& - 0.1610E-01, 0.1633E-01, 0.1659E-01, 0.1682E-01,& - 0.1707E-01, 0.1732E-01, 0.1758E-01, 0.1783E-01,& - 0.1808E-01, 0.1836E-01, 0.1861E-01, 0.1888E-01,& - 0.1914E-01, 0.1941E-01, 0.1969E-01, 0.1996E-01,& - 0.2025E-01, 0.2053E-01, 0.2080E-01, 0.2110E-01,& - 0.2139E-01, 0.2169E-01, 0.2198E-01, 0.2228E-01,& - 0.2257E-01, 0.2289E-01, 0.2319E-01, 0.2350E-01,& - 0.2382E-01, 0.2413E-01, 0.2445E-01, 0.2479E-01,& - 0.2510E-01, 0.2544E-01, 0.2576E-01, 0.2610E-01,& - 0.2643E-01, 0.2679E-01, 0.2713E-01, 0.2747E-01,& - 0.2783E-01, 0.2818E-01, 0.2854E-01, 0.2890E-01,& - 0.2926E-01, 0.2962E-01, 0.3000E-01, 0.3038E-01,& - 0.3076E-01, 0.3114E-01, 0.3152E-01, 0.3190E-01,& - 0.3230E-01, 0.3268E-01, 0.3308E-01, 0.3348E-01,& - 0.3388E-01, 0.3430E-01, 0.3470E-01, 0.3512E-01,& - 0.3554E-01, 0.3597E-01, 0.3639E-01, 0.3681E-01,& - 0.3725E-01, 0.3767E-01, 0.3812E-01, 0.3856E-01,& - 0.3902E-01, 0.3947E-01, 0.3991E-01, 0.4037E-01,& - 0.4084E-01, 0.4130E-01, 0.4179E-01, 0.4225E-01,& - 0.4273E-01, 0.4320E-01, 0.4370E-01, 0.4419E-01,& - 0.4467E-01, 0.4518E-01, 0.4567E-01, 0.4617E-01,& - 0.4670E-01, 0.4721E-01, 0.4771E-01, 0.4824E-01,& - 0.4877E-01, 0.4929E-01, 0.4982E-01, 0.5037E-01,& - 0.5092E-01, 0.5147E-01, 0.5201E-01, 0.5256E-01,& - 0.5311E-01, 0.5368E-01, 0.5425E-01, 0.5482E-01,& - 0.5541E-01, 0.5598E-01, 0.5657E-01, 0.5716E-01,& - 0.5775E-01, 0.5834E-01, 0.5895E-01, 0.5956E-01,& - 0.6017E-01, 0.6079E-01, 0.6140E-01, 0.6203E-01,& - 0.6266E-01, 0.6330E-01, 0.6393E-01, 0.6458E-01,& - 0.6524E-01, 0.6589E-01, 0.6654E-01, 0.6720E-01,& - 0.6787E-01, 0.6855E-01, 0.6922E-01, 0.6990E-01,& - 0.7059E-01, 0.7129E-01, 0.7198E-01, 0.7268E-01,& - 0.7340E-01, 0.7409E-01, 0.7481E-01, 0.7555E-01,& - 0.7626E-01, 0.7700E-01, 0.7774E-01, 0.7848E-01,& - 0.7922E-01, 0.7998E-01, 0.8074E-01, 0.8149E-01,& - 0.8227E-01, 0.8303E-01, 0.8381E-01, 0.8462E-01,& - 0.8540E-01, 0.8620E-01, 0.8700E-01, 0.8780E-01,& - 0.8860E-01, 0.8942E-01, 0.9025E-01, 0.9107E-01,& - 0.9191E-01, 0.9276E-01, 0.9360E-01, 0.9444E-01,& - 0.9531E-01, 0.9617E-01, 0.9704E-01, 0.9790E-01,& - 0.9879E-01, 0.9967E-01, 0.1006E+00, 0.1015E+00,& - 0.1024E+00, 0.1033E+00, 0.1042E+00, 0.1051E+00,& - 0.1060E+00, 0.1070E+00, 0.1079E+00, 0.1088E+00,& - 0.1098E+00, 0.1107E+00, 0.1117E+00, 0.1127E+00,& - 0.1137E+00, 0.1146E+00, 0.1156E+00, 0.1166E+00,& - 0.1176E+00, 0.1186E+00, 0.1196E+00, 0.1207E+00,& - 0.1217E+00, 0.1227E+00, 0.1238E+00, 0.1248E+00,& - 0.1259E+00, 0.1269E+00, 0.1280E+00, 0.1290E+00,& - 0.1301E+00, 0.1312E+00, 0.1323E+00, 0.1334E+00,& - 0.1345E+00, 0.1356E+00, 0.1367E+00, 0.1379E+00,& - 0.1390E+00, 0.1401E+00, 0.1413E+00, 0.1424E+00,& - 0.1436E+00, 0.1448E+00, 0.1459E+00, 0.1471E+00,& - 0.1483E+00, 0.1495E+00, 0.1507E+00, 0.1519E+00,& - 0.1532E+00, 0.1544E+00, 0.1556E+00, 0.1569E+00,& - 0.1581E+00, 0.1594E+00, 0.1606E+00, 0.1619E+00,& - 0.1632E+00, 0.1645E+00, 0.1657E+00, 0.1670E+00,& - 0.1684E+00, 0.1697E+00, 0.1710E+00, 0.1723E+00,& - 0.1737E+00, 0.1750E+00, 0.1764E+00, 0.1777E+00,& - 0.1791E+00, 0.1805E+00, 0.1819E+00, 0.1833E+00,& - 0.1847E+00, 0.1861E+00, 0.1875E+00, 0.1889E+00,& - 0.1904E+00, 0.1918E+00, 0.1933E+00, 0.1947E+00,& - 0.1962E+00, 0.1977E+00, 0.1992E+00, 0.2007E+00,& - 0.2022E+00, 0.2037E+00, 0.2052E+00, 0.2068E+00,& - 0.2083E+00, 0.2098E+00, 0.2114E+00, 0.2130E+00,& - 0.2145E+00, 0.2161E+00, 0.2177E+00, 0.2193E+00,& - 0.2209E+00, 0.2226E+00, 0.2242E+00, 0.2258E+00,& - 0.2275E+00, 0.2291E+00, 0.2308E+00, 0.2325E+00,& - 0.2342E+00, 0.2358E+00, 0.2375E+00, 0.2393E+00,& - 0.2410E+00, 0.2427E+00, 0.2445E+00, 0.2462E+00,& - 0.2480E+00, 0.2498E+00, 0.2515E+00, 0.2533E+00,& - 0.2551E+00, 0.2569E+00, 0.2588E+00, 0.2606E+00,& - 0.2624E+00, 0.2643E+00, 0.2662E+00, 0.2680E+00,& - 0.2699E+00, 0.2718E+00, 0.2737E+00, 0.2756E+00,& - 0.2776E+00, 0.2795E+00, 0.2814E+00, 0.2834E+00,& - 0.2854E+00, 0.2873E+00, 0.2893E+00, 0.2913E+00,& - 0.2933E+00, 0.2954E+00, 0.2974E+00, 0.2994E+00,& - 0.3015E+00, 0.3036E+00, 0.3056E+00, 0.3077E+00,& - 0.3098E+00, 0.3119E+00, 0.3141E+00, 0.3162E+00,& - 0.3184E+00, 0.3205E+00, 0.3227E+00, 0.3249E+00,& - 0.3271E+00, 0.3293E+00, 0.3315E+00, 0.3337E+00,& - 0.3360E+00, 0.3382E+00, 0.3405E+00, 0.3428E+00,& - 0.3451E+00, 0.3474E+00, 0.3497E+00, 0.3520E+00,& - 0.3543E+00, 0.3567E+00, 0.3591E+00, 0.3614E+00,& - 0.3638E+00, 0.3662E+00, 0.3687E+00, 0.3711E+00,& - 0.3735E+00, 0.3760E+00, 0.3785E+00, 0.3809E+00,& - 0.3834E+00, 0.3859E+00, 0.3885E+00, 0.3910E+00,& - 0.3936E+00, 0.3961E+00, 0.3987E+00, 0.4013E+00,& - 0.4039E+00, 0.4065E+00, 0.4091E+00, 0.4118E+00,& - 0.4145E+00, 0.4171E+00, 0.4198E+00, 0.4225E+00,& - 0.4253E+00, 0.4280E+00, 0.4307E+00, 0.4335E+00,& - 0.4363E+00, 0.4391E+00, 0.4419E+00, 0.4447E+00,& - 0.4475E+00, 0.4504E+00, 0.4533E+00, 0.4561E+00,& - 0.4590E+00, 0.4619E+00, 0.4649E+00, 0.4678E+00,& - 0.4708E+00, 0.4738E+00, 0.4767E+00, 0.4798E+00,& - 0.4828E+00, 0.4858E+00, 0.4889E+00, 0.4920E+00,& - 0.4951E+00, 0.4982E+00, 0.5013E+00, 0.5044E+00,& - 0.5076E+00, 0.5108E+00, 0.5139E+00, 0.5172E+00,& - 0.5204E+00, 0.5236E+00, 0.5269E+00, 0.5302E+00,& - 0.5335E+00, 0.5368E+00, 0.5401E+00, 0.5435E+00,& - 0.5468E+00, 0.5502E+00, 0.5536E+00, 0.5570E+00,& - 0.5605E+00, 0.5639E+00, 0.5674E+00, 0.5709E+00,& - 0.5744E+00, 0.5780E+00, 0.5815E+00, 0.5851E+00,& - 0.5887E+00, 0.5923E+00, 0.5959E+00, 0.5995E+00,& - 0.6032E+00, 0.6069E+00, 0.6106E+00, 0.6143E+00,& - 0.6181E+00, 0.6219E+00, 0.6257E+00, 0.6295E+00,& - 0.6333E+00, 0.6371E+00, 0.6410E+00, 0.6449E+00,& - 0.6488E+00, 0.6528E+00, 0.6567E+00, 0.6607E+00,& - 0.6647E+00, 0.6687E+00, 0.6728E+00, 0.6768E+00,& - 0.6809E+00, 0.6850E+00, 0.6892E+00, 0.6933E+00,& - 0.6975E+00, 0.7017E+00, 0.7059E+00, 0.7102E+00,& - 0.7145E+00, 0.7187E+00, 0.7231E+00, 0.7274E+00,& - 0.7318E+00, 0.7362E+00, 0.7406E+00, 0.7450E+00,& - 0.7495E+00, 0.7540E+00, 0.7585E+00, 0.7630E+00,& - 0.7676E+00, 0.7722E+00, 0.7768E+00, 0.7814E+00,& - 0.7861E+00, 0.7908E+00, 0.7955E+00, 0.8003E+00,& - 0.8050E+00, 0.8098E+00, 0.8147E+00, 0.8195E+00,& - 0.8244E+00, 0.8293E+00, 0.8341E+00, 0.8392E+00,& - 0.8442E+00, 0.8492E+00, 0.8543E+00, 0.8594E+00,& - 0.8645E+00, 0.8696E+00, 0.8748E+00, 0.8800E+00,& - 0.8852E+00, 0.8904E+00, 0.8957E+00, 0.9010E+00,& - 0.9064E+00, 0.9118E+00, 0.9172E+00, 0.9226E+00,& - 0.9281E+00, 0.9336E+00, 0.9391E+00, 0.9447E+00,& - 0.9503E+00, 0.9559E+00, 0.9616E+00, 0.9673E+00,& - 0.9730E+00, 0.9788E+00, 0.9846E+00, 0.9904E+00,& - 0.9963E+00, 0.1002E+01, 0.1008E+01, 0.1014E+01,& - 0.1020E+01, 0.1026E+01, 0.1032E+01, 0.1038E+01,& - 0.1045E+01, 0.1051E+01, 0.1057E+01, 0.1063E+01,& - 0.1069E+01, 0.1076E+01, 0.1082E+01, 0.1089E+01,& - 0.1095E+01, 0.1102E+01, 0.1108E+01, 0.1115E+01,& - 0.1121E+01, 0.1128E+01, 0.1135E+01, 0.1141E+01,& - 0.1148E+01, 0.1155E+01, 0.1162E+01, 0.1169E+01,& - 0.1176E+01, 0.1183E+01, 0.1190E+01, 0.1197E+01,& - 0.1204E+01, 0.1211E+01, 0.1218E+01, 0.1226E+01,& - 0.1233E+01, 0.1240E+01, 0.1248E+01, 0.1255E+01,& - 0.1263E+01, 0.1270E+01, 0.1278E+01, 0.1285E+01,& - 0.1293E+01, 0.1301E+01, 0.1309E+01, 0.1317E+01,& - 0.1324E+01, 0.1332E+01, 0.1340E+01, 0.1348E+01,& - 0.1357E+01, 0.1365E+01, 0.1373E+01, 0.1381E+01,& - 0.1390E+01, 0.1398E+01, 0.1406E+01, 0.1415E+01,& - 0.1423E+01, 0.1432E+01, 0.1441E+01, 0.1449E+01,& - 0.1458E+01, 0.1467E+01, 0.1476E+01, 0.1485E+01,& - 0.1494E+01, 0.1503E+01, 0.1512E+01, 0.1521E+01,& - 0.1531E+01, 0.1540E+01, 0.1550E+01, 0.1559E+01,& - 0.1569E+01, 0.1578E+01, 0.1588E+01, 0.1598E+01,& - 0.1608E+01, 0.1617E+01, 0.1627E+01, 0.1638E+01,& - 0.1648E+01, 0.1658E+01, 0.1668E+01, 0.1678E+01,& - 0.1689E+01, 0.1699E+01, 0.1710E+01, 0.1721E+01,& - 0.1731E+01, 0.1742E+01, 0.1753E+01, 0.1764E+01,& - 0.1775E+01, 0.1786E+01, 0.1798E+01, 0.1809E+01,& - 0.1820E+01, 0.1832E+01, 0.1843E+01, 0.1855E+01,& - 0.1867E+01, 0.1879E+01, 0.1891E+01, 0.1903E+01,& - 0.1915E+01, 0.1927E+01, 0.1940E+01, 0.1952E+01,& - 0.1965E+01, 0.1978E+01, 0.1990E+01, 0.2003E+01,& - 0.2016E+01, 0.2029E+01, 0.2043E+01, 0.2056E+01,& - 0.2069E+01, 0.2083E+01, 0.2097E+01, 0.2110E+01,& - 0.2124E+01, 0.2138E+01, 0.2153E+01, 0.2167E+01,& - 0.2181E+01, 0.2196E+01, 0.2211E+01, 0.2225E+01,& - 0.2240E+01, 0.2255E+01, 0.2271E+01, 0.2286E+01,& - 0.2302E+01, 0.2317E+01, 0.2333E+01, 0.2349E+01,& - 0.2365E+01, 0.2381E+01, 0.2398E+01, 0.2414E+01,& - 0.2431E+01, 0.2448E+01, 0.2465E+01, 0.2482E+01,& - 0.2500E+01, 0.2517E+01, 0.2535E+01, 0.2553E+01,& - 0.2571E+01, 0.2590E+01, 0.2608E+01, 0.2627E+01,& - 0.2646E+01, 0.2665E+01, 0.2684E+01, 0.2704E+01,& - 0.2724E+01, 0.2744E+01, 0.2764E+01, 0.2784E+01,& - 0.2805E+01, 0.2826E+01, 0.2847E+01, 0.2868E+01,& - 0.2890E+01, 0.2912E+01, 0.2934E+01, 0.2956E+01,& - 0.2979E+01, 0.3002E+01, 0.3025E+01, 0.3049E+01,& - 0.3072E+01, 0.3096E+01, 0.3121E+01, 0.3146E+01,& - 0.3171E+01, 0.3196E+01, 0.3222E+01, 0.3248E+01,& - 0.3274E+01, 0.3301E+01, 0.3328E+01, 0.3356E+01,& - 0.3383E+01, 0.3412E+01, 0.3440E+01, 0.3470E+01,& - 0.3499E+01, 0.3529E+01, 0.3560E+01, 0.3590E+01,& - 0.3622E+01, 0.3654E+01, 0.3686E+01, 0.3719E+01,& - 0.3752E+01, 0.3786E+01, 0.3821E+01, 0.3856E+01,& - 0.3891E+01, 0.3928E+01, 0.3965E+01, 0.4002E+01,& - 0.4040E+01, 0.4079E+01, 0.4119E+01, 0.4159E+01,& - 0.4201E+01, 0.4243E+01, 0.4285E+01, 0.4329E+01,& - 0.4374E+01, 0.4419E+01, 0.4465E+01, 0.4513E+01,& - 0.4561E+01, 0.4611E+01, 0.4661E+01, 0.4713E+01,& - 0.4766E+01, 0.4820E+01, 0.4876E+01, 0.4933E+01,& - 0.4991E+01, 0.5051E+01, 0.5113E+01, 0.5176E+01,& - 0.5241E+01, 0.5308E+01, 0.5377E+01, 0.5447E+01,& - 0.5521E+01, 0.5596E+01, 0.5674E+01, 0.5754E+01,& - 0.5837E+01, 0.5923E+01, 0.6013E+01, 0.6105E+01,& - 0.6202E+01, 0.6302E+01, 0.6407E+01, 0.6516E+01,& - 0.6630E+01, 0.6749E+01, 0.6875E+01, 0.7007E+01,& - 0.7146E+01, 0.7294E+01, 0.7450E+01, 0.7616E+01,& - 0.7794E+01, 0.7985E+01, 0.8190E+01, 0.8414E+01,& - 0.8657E+01, 0.8925E+01, 0.9223E+01, 0.9557E+01,& - 0.9938E+01, 0.1038E+02, 0.1091E+02, 0.1156E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 72) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3153E-04, 0.3153E-04, 0.3153E-04,& - 0.3153E-04, 0.3153E-04, 0.3153E-04, 0.3153E-04,& - 0.5306E-04, 0.5306E-04, 0.5306E-04, 0.5306E-04,& - 0.5306E-04, 0.7460E-04, 0.7460E-04, 0.7460E-04,& - 0.9613E-04, 0.9613E-04, 0.9613E-04, 0.9613E-04,& - 0.1177E-03, 0.1177E-03, 0.1177E-03, 0.1392E-03,& - 0.1392E-03, 0.1607E-03, 0.1607E-03, 0.1607E-03,& - 0.1823E-03, 0.1823E-03, 0.2038E-03, 0.2038E-03,& - 0.2253E-03, 0.2253E-03, 0.2469E-03, 0.2684E-03,& - 0.2684E-03, 0.2899E-03, 0.2899E-03, 0.3115E-03,& - 0.3330E-03, 0.3330E-03, 0.3545E-03, 0.3760E-03,& - 0.3976E-03, 0.4191E-03, 0.4191E-03, 0.4406E-03,& - 0.4622E-03, 0.4837E-03, 0.5052E-03, 0.5268E-03,& - 0.5483E-03, 0.5698E-03, 0.5914E-03, 0.6129E-03,& - 0.6344E-03, 0.6560E-03, 0.6775E-03, 0.6990E-03,& - 0.7421E-03, 0.7636E-03, 0.7852E-03, 0.8067E-03,& - 0.8498E-03, 0.8713E-03, 0.8928E-03, 0.9359E-03,& - 0.9574E-03, 0.1000E-02, 0.1022E-02, 0.1065E-02,& - 0.1087E-02, 0.1130E-02, 0.1173E-02, 0.1194E-02,& - 0.1237E-02, 0.1280E-02, 0.1323E-02, 0.1367E-02,& - 0.1410E-02, 0.1431E-02, 0.1474E-02, 0.1539E-02,& - 0.1582E-02, 0.1625E-02, 0.1668E-02, 0.1711E-02,& - 0.1754E-02, 0.1819E-02, 0.1862E-02, 0.1905E-02,& - 0.1969E-02, 0.2012E-02, 0.2077E-02, 0.2120E-02,& - 0.2185E-02, 0.2228E-02, 0.2292E-02, 0.2357E-02,& - 0.2422E-02, 0.2486E-02, 0.2529E-02, 0.2594E-02,& - 0.2658E-02, 0.2745E-02, 0.2809E-02, 0.2874E-02,& - 0.2938E-02, 0.3003E-02, 0.3089E-02, 0.3154E-02,& - 0.3240E-02, 0.3304E-02, 0.3391E-02, 0.3455E-02,& - 0.3541E-02, 0.3627E-02, 0.3692E-02, 0.3778E-02,& - 0.3864E-02, 0.3950E-02, 0.4037E-02, 0.4123E-02,& - 0.4230E-02, 0.4316E-02, 0.4403E-02, 0.4510E-02,& - 0.4596E-02, 0.4704E-02, 0.4790E-02, 0.4898E-02,& - 0.5005E-02, 0.5092E-02, 0.5199E-02, 0.5307E-02,& - 0.5415E-02, 0.5522E-02, 0.5630E-02, 0.5759E-02,& - 0.5867E-02, 0.5974E-02, 0.6104E-02, 0.6211E-02,& - 0.6340E-02, 0.6448E-02, 0.6577E-02, 0.6707E-02,& - 0.6836E-02, 0.6965E-02, 0.7094E-02, 0.7223E-02,& - 0.7352E-02, 0.7503E-02, 0.7632E-02, 0.7783E-02,& - 0.7912E-02, 0.8063E-02, 0.8214E-02, 0.8343E-02,& - 0.8494E-02, 0.8644E-02, 0.8817E-02, 0.8967E-02,& - 0.9118E-02, 0.9269E-02, 0.9441E-02, 0.9592E-02,& - 0.9764E-02, 0.9936E-02, 0.1011E-01, 0.1026E-01,& - 0.1045E-01, 0.1063E-01, 0.1080E-01, 0.1097E-01,& - 0.1116E-01, 0.1134E-01, 0.1153E-01, 0.1170E-01,& - 0.1190E-01, 0.1209E-01, 0.1228E-01, 0.1248E-01,& - 0.1267E-01, 0.1289E-01, 0.1308E-01, 0.1330E-01,& - 0.1349E-01, 0.1370E-01, 0.1392E-01, 0.1414E-01,& - 0.1435E-01, 0.1457E-01, 0.1480E-01, 0.1502E-01,& - 0.1525E-01, 0.1547E-01, 0.1571E-01, 0.1594E-01,& - 0.1618E-01, 0.1642E-01, 0.1665E-01, 0.1691E-01,& - 0.1715E-01, 0.1741E-01, 0.1764E-01, 0.1790E-01,& - 0.1816E-01, 0.1842E-01, 0.1868E-01, 0.1896E-01,& - 0.1922E-01, 0.1950E-01, 0.1976E-01, 0.2003E-01,& - 0.2031E-01, 0.2059E-01, 0.2090E-01, 0.2118E-01,& - 0.2146E-01, 0.2176E-01, 0.2206E-01, 0.2236E-01,& - 0.2266E-01, 0.2296E-01, 0.2326E-01, 0.2359E-01,& - 0.2389E-01, 0.2421E-01, 0.2454E-01, 0.2486E-01,& - 0.2518E-01, 0.2550E-01, 0.2583E-01, 0.2617E-01,& - 0.2652E-01, 0.2686E-01, 0.2721E-01, 0.2755E-01,& - 0.2789E-01, 0.2824E-01, 0.2860E-01, 0.2897E-01,& - 0.2934E-01, 0.2970E-01, 0.3007E-01, 0.3043E-01,& - 0.3082E-01, 0.3121E-01, 0.3158E-01, 0.3196E-01,& - 0.3237E-01, 0.3276E-01, 0.3315E-01, 0.3356E-01,& - 0.3397E-01, 0.3438E-01, 0.3478E-01, 0.3519E-01,& - 0.3562E-01, 0.3603E-01, 0.3646E-01, 0.3689E-01,& - 0.3733E-01, 0.3776E-01, 0.3821E-01, 0.3866E-01,& - 0.3909E-01, 0.3954E-01, 0.4002E-01, 0.4047E-01,& - 0.4092E-01, 0.4139E-01, 0.4187E-01, 0.4234E-01,& - 0.4282E-01, 0.4331E-01, 0.4378E-01, 0.4428E-01,& - 0.4478E-01, 0.4527E-01, 0.4579E-01, 0.4628E-01,& - 0.4680E-01, 0.4732E-01, 0.4783E-01, 0.4835E-01,& - 0.4889E-01, 0.4943E-01, 0.4996E-01, 0.5050E-01,& - 0.5104E-01, 0.5158E-01, 0.5214E-01, 0.5270E-01,& - 0.5326E-01, 0.5382E-01, 0.5440E-01, 0.5498E-01,& - 0.5554E-01, 0.5614E-01, 0.5673E-01, 0.5731E-01,& - 0.5791E-01, 0.5851E-01, 0.5912E-01, 0.5974E-01,& - 0.6034E-01, 0.6097E-01, 0.6159E-01, 0.6222E-01,& - 0.6286E-01, 0.6349E-01, 0.6413E-01, 0.6480E-01,& - 0.6545E-01, 0.6609E-01, 0.6676E-01, 0.6743E-01,& - 0.6812E-01, 0.6878E-01, 0.6947E-01, 0.7016E-01,& - 0.7085E-01, 0.7154E-01, 0.7225E-01, 0.7296E-01,& - 0.7367E-01, 0.7438E-01, 0.7511E-01, 0.7585E-01,& - 0.7658E-01, 0.7731E-01, 0.7806E-01, 0.7880E-01,& - 0.7955E-01, 0.8032E-01, 0.8108E-01, 0.8185E-01,& - 0.8263E-01, 0.8340E-01, 0.8420E-01, 0.8500E-01,& - 0.8579E-01, 0.8659E-01, 0.8741E-01, 0.8821E-01,& - 0.8902E-01, 0.8986E-01, 0.9068E-01, 0.9152E-01,& - 0.9236E-01, 0.9322E-01, 0.9408E-01, 0.9492E-01,& - 0.9581E-01, 0.9667E-01, 0.9755E-01, 0.9843E-01,& - 0.9932E-01, 0.1002E+00, 0.1011E+00, 0.1020E+00,& - 0.1029E+00, 0.1039E+00, 0.1048E+00, 0.1057E+00,& - 0.1067E+00, 0.1076E+00, 0.1086E+00, 0.1095E+00,& - 0.1105E+00, 0.1114E+00, 0.1124E+00, 0.1134E+00,& - 0.1144E+00, 0.1154E+00, 0.1164E+00, 0.1174E+00,& - 0.1184E+00, 0.1194E+00, 0.1205E+00, 0.1215E+00,& - 0.1225E+00, 0.1236E+00, 0.1246E+00, 0.1257E+00,& - 0.1267E+00, 0.1278E+00, 0.1289E+00, 0.1300E+00,& - 0.1311E+00, 0.1322E+00, 0.1333E+00, 0.1344E+00,& - 0.1356E+00, 0.1367E+00, 0.1378E+00, 0.1390E+00,& - 0.1401E+00, 0.1413E+00, 0.1424E+00, 0.1436E+00,& - 0.1448E+00, 0.1460E+00, 0.1472E+00, 0.1484E+00,& - 0.1496E+00, 0.1508E+00, 0.1520E+00, 0.1533E+00,& - 0.1545E+00, 0.1557E+00, 0.1570E+00, 0.1582E+00,& - 0.1595E+00, 0.1608E+00, 0.1621E+00, 0.1634E+00,& - 0.1647E+00, 0.1660E+00, 0.1673E+00, 0.1686E+00,& - 0.1700E+00, 0.1713E+00, 0.1727E+00, 0.1740E+00,& - 0.1754E+00, 0.1768E+00, 0.1781E+00, 0.1795E+00,& - 0.1809E+00, 0.1823E+00, 0.1838E+00, 0.1852E+00,& - 0.1866E+00, 0.1881E+00, 0.1895E+00, 0.1910E+00,& - 0.1924E+00, 0.1939E+00, 0.1954E+00, 0.1969E+00,& - 0.1984E+00, 0.1999E+00, 0.2014E+00, 0.2030E+00,& - 0.2045E+00, 0.2060E+00, 0.2076E+00, 0.2092E+00,& - 0.2107E+00, 0.2123E+00, 0.2139E+00, 0.2155E+00,& - 0.2171E+00, 0.2187E+00, 0.2203E+00, 0.2220E+00,& - 0.2236E+00, 0.2253E+00, 0.2270E+00, 0.2286E+00,& - 0.2303E+00, 0.2320E+00, 0.2337E+00, 0.2354E+00,& - 0.2372E+00, 0.2389E+00, 0.2407E+00, 0.2424E+00,& - 0.2442E+00, 0.2460E+00, 0.2477E+00, 0.2495E+00,& - 0.2513E+00, 0.2531E+00, 0.2550E+00, 0.2568E+00,& - 0.2587E+00, 0.2605E+00, 0.2624E+00, 0.2643E+00,& - 0.2661E+00, 0.2680E+00, 0.2700E+00, 0.2719E+00,& - 0.2738E+00, 0.2758E+00, 0.2777E+00, 0.2797E+00,& - 0.2817E+00, 0.2836E+00, 0.2856E+00, 0.2876E+00,& - 0.2897E+00, 0.2917E+00, 0.2938E+00, 0.2958E+00,& - 0.2979E+00, 0.2999E+00, 0.3020E+00, 0.3041E+00,& - 0.3062E+00, 0.3084E+00, 0.3105E+00, 0.3127E+00,& - 0.3148E+00, 0.3170E+00, 0.3192E+00, 0.3214E+00,& - 0.3236E+00, 0.3258E+00, 0.3280E+00, 0.3303E+00,& - 0.3325E+00, 0.3348E+00, 0.3371E+00, 0.3394E+00,& - 0.3417E+00, 0.3440E+00, 0.3463E+00, 0.3487E+00,& - 0.3510E+00, 0.3534E+00, 0.3558E+00, 0.3582E+00,& - 0.3606E+00, 0.3630E+00, 0.3655E+00, 0.3679E+00,& - 0.3704E+00, 0.3729E+00, 0.3754E+00, 0.3779E+00,& - 0.3804E+00, 0.3829E+00, 0.3855E+00, 0.3880E+00,& - 0.3906E+00, 0.3932E+00, 0.3958E+00, 0.3983E+00,& - 0.4011E+00, 0.4037E+00, 0.4064E+00, 0.4091E+00,& - 0.4117E+00, 0.4144E+00, 0.4172E+00, 0.4199E+00,& - 0.4226E+00, 0.4254E+00, 0.4282E+00, 0.4310E+00,& - 0.4338E+00, 0.4366E+00, 0.4395E+00, 0.4423E+00,& - 0.4452E+00, 0.4481E+00, 0.4510E+00, 0.4539E+00,& - 0.4569E+00, 0.4598E+00, 0.4628E+00, 0.4658E+00,& - 0.4688E+00, 0.4718E+00, 0.4748E+00, 0.4779E+00,& - 0.4809E+00, 0.4840E+00, 0.4871E+00, 0.4902E+00,& - 0.4934E+00, 0.4965E+00, 0.4997E+00, 0.5029E+00,& - 0.5061E+00, 0.5093E+00, 0.5125E+00, 0.5158E+00,& - 0.5191E+00, 0.5224E+00, 0.5257E+00, 0.5290E+00,& - 0.5323E+00, 0.5357E+00, 0.5391E+00, 0.5425E+00,& - 0.5459E+00, 0.5494E+00, 0.5528E+00, 0.5563E+00,& - 0.5598E+00, 0.5633E+00, 0.5668E+00, 0.5704E+00,& - 0.5740E+00, 0.5776E+00, 0.5812E+00, 0.5848E+00,& - 0.5885E+00, 0.5921E+00, 0.5958E+00, 0.5995E+00,& - 0.6033E+00, 0.6070E+00, 0.6108E+00, 0.6146E+00,& - 0.6184E+00, 0.6223E+00, 0.6261E+00, 0.6300E+00,& - 0.6339E+00, 0.6378E+00, 0.6418E+00, 0.6457E+00,& - 0.6497E+00, 0.6537E+00, 0.6578E+00, 0.6618E+00,& - 0.6659E+00, 0.6700E+00, 0.6741E+00, 0.6783E+00,& - 0.6825E+00, 0.6867E+00, 0.6909E+00, 0.6951E+00,& - 0.6994E+00, 0.7037E+00, 0.7080E+00, 0.7123E+00,& - 0.7167E+00, 0.7211E+00, 0.7255E+00, 0.7299E+00,& - 0.7344E+00, 0.7389E+00, 0.7434E+00, 0.7479E+00,& - 0.7525E+00, 0.7571E+00, 0.7617E+00, 0.7663E+00,& - 0.7710E+00, 0.7757E+00, 0.7804E+00, 0.7852E+00,& - 0.7900E+00, 0.7948E+00, 0.7996E+00, 0.8045E+00,& - 0.8093E+00, 0.8142E+00, 0.8192E+00, 0.8242E+00,& - 0.8292E+00, 0.8342E+00, 0.8392E+00, 0.8443E+00,& - 0.8495E+00, 0.8546E+00, 0.8598E+00, 0.8650E+00,& - 0.8702E+00, 0.8755E+00, 0.8808E+00, 0.8861E+00,& - 0.8915E+00, 0.8969E+00, 0.9023E+00, 0.9077E+00,& - 0.9132E+00, 0.9187E+00, 0.9243E+00, 0.9299E+00,& - 0.9355E+00, 0.9411E+00, 0.9468E+00, 0.9526E+00,& - 0.9583E+00, 0.9641E+00, 0.9699E+00, 0.9758E+00,& - 0.9817E+00, 0.9876E+00, 0.9935E+00, 0.9995E+00,& - 0.1006E+01, 0.1012E+01, 0.1018E+01, 0.1024E+01,& - 0.1030E+01, 0.1036E+01, 0.1043E+01, 0.1049E+01,& - 0.1055E+01, 0.1062E+01, 0.1068E+01, 0.1074E+01,& - 0.1081E+01, 0.1087E+01, 0.1094E+01, 0.1101E+01,& - 0.1107E+01, 0.1114E+01, 0.1121E+01, 0.1127E+01,& - 0.1134E+01, 0.1141E+01, 0.1148E+01, 0.1155E+01,& - 0.1162E+01, 0.1169E+01, 0.1176E+01, 0.1183E+01,& - 0.1190E+01, 0.1198E+01, 0.1205E+01, 0.1212E+01,& - 0.1220E+01, 0.1227E+01, 0.1234E+01, 0.1242E+01,& - 0.1250E+01, 0.1257E+01, 0.1265E+01, 0.1273E+01,& - 0.1280E+01, 0.1288E+01, 0.1296E+01, 0.1304E+01,& - 0.1312E+01, 0.1320E+01, 0.1328E+01, 0.1336E+01,& - 0.1344E+01, 0.1352E+01, 0.1361E+01, 0.1369E+01,& - 0.1377E+01, 0.1386E+01, 0.1394E+01, 0.1403E+01,& - 0.1412E+01, 0.1420E+01, 0.1429E+01, 0.1438E+01,& - 0.1447E+01, 0.1456E+01, 0.1465E+01, 0.1474E+01,& - 0.1483E+01, 0.1492E+01, 0.1501E+01, 0.1511E+01,& - 0.1520E+01, 0.1529E+01, 0.1539E+01, 0.1548E+01,& - 0.1558E+01, 0.1568E+01, 0.1578E+01, 0.1588E+01,& - 0.1597E+01, 0.1607E+01, 0.1618E+01, 0.1628E+01,& - 0.1638E+01, 0.1648E+01, 0.1659E+01, 0.1669E+01,& - 0.1680E+01, 0.1690E+01, 0.1701E+01, 0.1712E+01,& - 0.1723E+01, 0.1734E+01, 0.1745E+01, 0.1756E+01,& - 0.1767E+01, 0.1778E+01, 0.1790E+01, 0.1801E+01,& - 0.1813E+01, 0.1824E+01, 0.1836E+01, 0.1848E+01,& - 0.1860E+01, 0.1872E+01, 0.1884E+01, 0.1896E+01,& - 0.1909E+01, 0.1921E+01, 0.1934E+01, 0.1946E+01,& - 0.1959E+01, 0.1972E+01, 0.1985E+01, 0.1998E+01,& - 0.2011E+01, 0.2024E+01, 0.2038E+01, 0.2051E+01,& - 0.2065E+01, 0.2078E+01, 0.2092E+01, 0.2106E+01,& - 0.2120E+01, 0.2135E+01, 0.2149E+01, 0.2164E+01,& - 0.2178E+01, 0.2193E+01, 0.2208E+01, 0.2223E+01,& - 0.2238E+01, 0.2253E+01, 0.2269E+01, 0.2284E+01,& - 0.2300E+01, 0.2316E+01, 0.2332E+01, 0.2348E+01,& - 0.2365E+01, 0.2381E+01, 0.2398E+01, 0.2415E+01,& - 0.2432E+01, 0.2449E+01, 0.2466E+01, 0.2484E+01,& - 0.2501E+01, 0.2519E+01, 0.2537E+01, 0.2555E+01,& - 0.2574E+01, 0.2592E+01, 0.2611E+01, 0.2630E+01,& - 0.2649E+01, 0.2669E+01, 0.2689E+01, 0.2708E+01,& - 0.2728E+01, 0.2749E+01, 0.2769E+01, 0.2790E+01,& - 0.2811E+01, 0.2832E+01, 0.2854E+01, 0.2875E+01,& - 0.2897E+01, 0.2920E+01, 0.2942E+01, 0.2965E+01,& - 0.2988E+01, 0.3011E+01, 0.3035E+01, 0.3059E+01,& - 0.3083E+01, 0.3108E+01, 0.3132E+01, 0.3158E+01,& - 0.3183E+01, 0.3209E+01, 0.3235E+01, 0.3261E+01,& - 0.3288E+01, 0.3316E+01, 0.3343E+01, 0.3371E+01,& - 0.3400E+01, 0.3428E+01, 0.3458E+01, 0.3487E+01,& - 0.3517E+01, 0.3548E+01, 0.3579E+01, 0.3610E+01,& - 0.3642E+01, 0.3675E+01, 0.3707E+01, 0.3741E+01,& - 0.3775E+01, 0.3810E+01, 0.3845E+01, 0.3880E+01,& - 0.3917E+01, 0.3954E+01, 0.3991E+01, 0.4030E+01,& - 0.4069E+01, 0.4108E+01, 0.4149E+01, 0.4190E+01,& - 0.4232E+01, 0.4275E+01, 0.4318E+01, 0.4363E+01,& - 0.4408E+01, 0.4454E+01, 0.4502E+01, 0.4550E+01,& - 0.4600E+01, 0.4650E+01, 0.4702E+01, 0.4754E+01,& - 0.4809E+01, 0.4864E+01, 0.4921E+01, 0.4979E+01,& - 0.5038E+01, 0.5100E+01, 0.5162E+01, 0.5227E+01,& - 0.5293E+01, 0.5361E+01, 0.5432E+01, 0.5501E+01,& - 0.5579E+01, 0.5655E+01, 0.5735E+01, 0.5817E+01,& - 0.5902E+01, 0.5990E+01, 0.6081E+01, 0.6176E+01,& - 0.6274E+01, 0.6377E+01, 0.6484E+01, 0.6595E+01,& - 0.6712E+01, 0.6834E+01, 0.6962E+01, 0.7097E+01,& - 0.7240E+01, 0.7390E+01, 0.7550E+01, 0.7720E+01,& - 0.7902E+01, 0.8097E+01, 0.8308E+01, 0.8536E+01,& - 0.8785E+01, 0.9059E+01, 0.9364E+01, 0.9706E+01,& - 0.1010E+02, 0.1055E+02, 0.1109E+02, 0.1175E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 73) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3198E-04, 0.3198E-04, 0.3198E-04,& - 0.3198E-04, 0.3198E-04, 0.3198E-04, 0.3198E-04,& - 0.5396E-04, 0.5396E-04, 0.5396E-04, 0.5396E-04,& - 0.5396E-04, 0.7595E-04, 0.7595E-04, 0.7595E-04,& - 0.7595E-04, 0.9793E-04, 0.9793E-04, 0.9793E-04,& - 0.1199E-03, 0.1199E-03, 0.1199E-03, 0.1419E-03,& - 0.1419E-03, 0.1419E-03, 0.1639E-03, 0.1639E-03,& - 0.1859E-03, 0.1859E-03, 0.1859E-03, 0.2078E-03,& - 0.2078E-03, 0.2298E-03, 0.2298E-03, 0.2518E-03,& - 0.2518E-03, 0.2738E-03, 0.2958E-03, 0.2958E-03,& - 0.3178E-03, 0.3397E-03, 0.3397E-03, 0.3617E-03,& - 0.3837E-03, 0.3837E-03, 0.4057E-03, 0.4277E-03,& - 0.4496E-03, 0.4496E-03, 0.4716E-03, 0.4936E-03,& - 0.5156E-03, 0.5376E-03, 0.5596E-03, 0.5815E-03,& - 0.6035E-03, 0.6255E-03, 0.6475E-03, 0.6695E-03,& - 0.6914E-03, 0.7134E-03, 0.7354E-03, 0.7794E-03,& - 0.8014E-03, 0.8233E-03, 0.8453E-03, 0.8893E-03,& - 0.9113E-03, 0.9333E-03, 0.9772E-03, 0.9992E-03,& - 0.1043E-02, 0.1065E-02, 0.1109E-02, 0.1131E-02,& - 0.1175E-02, 0.1197E-02, 0.1241E-02, 0.1285E-02,& - 0.1307E-02, 0.1351E-02, 0.1395E-02, 0.1439E-02,& - 0.1483E-02, 0.1527E-02, 0.1571E-02, 0.1615E-02,& - 0.1659E-02, 0.1703E-02, 0.1747E-02, 0.1791E-02,& - 0.1835E-02, 0.1900E-02, 0.1944E-02, 0.1988E-02,& - 0.2054E-02, 0.2098E-02, 0.2164E-02, 0.2208E-02,& - 0.2274E-02, 0.2318E-02, 0.2384E-02, 0.2450E-02,& - 0.2516E-02, 0.2560E-02, 0.2626E-02, 0.2692E-02,& - 0.2758E-02, 0.2824E-02, 0.2890E-02, 0.2956E-02,& - 0.3044E-02, 0.3109E-02, 0.3175E-02, 0.3241E-02,& - 0.3329E-02, 0.3395E-02, 0.3483E-02, 0.3549E-02,& - 0.3637E-02, 0.3725E-02, 0.3791E-02, 0.3879E-02,& - 0.3967E-02, 0.4055E-02, 0.4143E-02, 0.4231E-02,& - 0.4319E-02, 0.4406E-02, 0.4516E-02, 0.4604E-02,& - 0.4692E-02, 0.4802E-02, 0.4890E-02, 0.5000E-02,& - 0.5088E-02, 0.5198E-02, 0.5308E-02, 0.5418E-02,& - 0.5528E-02, 0.5615E-02, 0.5747E-02, 0.5857E-02,& - 0.5967E-02, 0.6077E-02, 0.6187E-02, 0.6319E-02,& - 0.6429E-02, 0.6561E-02, 0.6693E-02, 0.6802E-02,& - 0.6934E-02, 0.7066E-02, 0.7198E-02, 0.7330E-02,& - 0.7462E-02, 0.7594E-02, 0.7726E-02, 0.7880E-02,& - 0.8012E-02, 0.8165E-02, 0.8297E-02, 0.8451E-02,& - 0.8605E-02, 0.8759E-02, 0.8913E-02, 0.9067E-02,& - 0.9221E-02, 0.9374E-02, 0.9528E-02, 0.9704E-02,& - 0.9858E-02, 0.1003E-01, 0.1019E-01, 0.1036E-01,& - 0.1054E-01, 0.1072E-01, 0.1089E-01, 0.1107E-01,& - 0.1124E-01, 0.1144E-01, 0.1162E-01, 0.1181E-01,& - 0.1199E-01, 0.1219E-01, 0.1239E-01, 0.1258E-01,& - 0.1278E-01, 0.1298E-01, 0.1318E-01, 0.1338E-01,& - 0.1359E-01, 0.1379E-01, 0.1401E-01, 0.1423E-01,& - 0.1445E-01, 0.1467E-01, 0.1489E-01, 0.1511E-01,& - 0.1533E-01, 0.1557E-01, 0.1579E-01, 0.1604E-01,& - 0.1625E-01, 0.1650E-01, 0.1674E-01, 0.1698E-01,& - 0.1724E-01, 0.1749E-01, 0.1773E-01, 0.1799E-01,& - 0.1826E-01, 0.1852E-01, 0.1878E-01, 0.1905E-01,& - 0.1931E-01, 0.1957E-01, 0.1986E-01, 0.2012E-01,& - 0.2041E-01, 0.2070E-01, 0.2098E-01, 0.2127E-01,& - 0.2155E-01, 0.2184E-01, 0.2215E-01, 0.2243E-01,& - 0.2274E-01, 0.2305E-01, 0.2336E-01, 0.2366E-01,& - 0.2397E-01, 0.2430E-01, 0.2461E-01, 0.2494E-01,& - 0.2527E-01, 0.2560E-01, 0.2593E-01, 0.2626E-01,& - 0.2661E-01, 0.2694E-01, 0.2729E-01, 0.2764E-01,& - 0.2799E-01, 0.2835E-01, 0.2870E-01, 0.2905E-01,& - 0.2942E-01, 0.2980E-01, 0.3017E-01, 0.3054E-01,& - 0.3092E-01, 0.3129E-01, 0.3169E-01, 0.3206E-01,& - 0.3246E-01, 0.3285E-01, 0.3325E-01, 0.3366E-01,& - 0.3406E-01, 0.3448E-01, 0.3490E-01, 0.3531E-01,& - 0.3573E-01, 0.3615E-01, 0.3657E-01, 0.3701E-01,& - 0.3745E-01, 0.3789E-01, 0.3832E-01, 0.3876E-01,& - 0.3923E-01, 0.3967E-01, 0.4013E-01, 0.4059E-01,& - 0.4105E-01, 0.4153E-01, 0.4200E-01, 0.4248E-01,& - 0.4296E-01, 0.4345E-01, 0.4393E-01, 0.4444E-01,& - 0.4492E-01, 0.4543E-01, 0.4593E-01, 0.4644E-01,& - 0.4696E-01, 0.4747E-01, 0.4800E-01, 0.4852E-01,& - 0.4905E-01, 0.4958E-01, 0.5013E-01, 0.5068E-01,& - 0.5121E-01, 0.5178E-01, 0.5233E-01, 0.5288E-01,& - 0.5345E-01, 0.5402E-01, 0.5459E-01, 0.5519E-01,& - 0.5576E-01, 0.5635E-01, 0.5694E-01, 0.5754E-01,& - 0.5813E-01, 0.5875E-01, 0.5936E-01, 0.5998E-01,& - 0.6059E-01, 0.6121E-01, 0.6185E-01, 0.6248E-01,& - 0.6312E-01, 0.6376E-01, 0.6442E-01, 0.6506E-01,& - 0.6571E-01, 0.6640E-01, 0.6706E-01, 0.6774E-01,& - 0.6842E-01, 0.6910E-01, 0.6978E-01, 0.7048E-01,& - 0.7117E-01, 0.7187E-01, 0.7260E-01, 0.7330E-01,& - 0.7402E-01, 0.7475E-01, 0.7547E-01, 0.7622E-01,& - 0.7695E-01, 0.7770E-01, 0.7844E-01, 0.7921E-01,& - 0.7998E-01, 0.8073E-01, 0.8152E-01, 0.8229E-01,& - 0.8308E-01, 0.8387E-01, 0.8466E-01, 0.8545E-01,& - 0.8627E-01, 0.8708E-01, 0.8789E-01, 0.8873E-01,& - 0.8954E-01, 0.9038E-01, 0.9124E-01, 0.9207E-01,& - 0.9293E-01, 0.9379E-01, 0.9464E-01, 0.9552E-01,& - 0.9640E-01, 0.9728E-01, 0.9818E-01, 0.9906E-01,& - 0.9996E-01, 0.1009E+00, 0.1018E+00, 0.1027E+00,& - 0.1036E+00, 0.1046E+00, 0.1055E+00, 0.1064E+00,& - 0.1074E+00, 0.1084E+00, 0.1093E+00, 0.1103E+00,& - 0.1113E+00, 0.1123E+00, 0.1132E+00, 0.1142E+00,& - 0.1152E+00, 0.1163E+00, 0.1173E+00, 0.1183E+00,& - 0.1193E+00, 0.1204E+00, 0.1214E+00, 0.1225E+00,& - 0.1235E+00, 0.1246E+00, 0.1256E+00, 0.1267E+00,& - 0.1278E+00, 0.1289E+00, 0.1300E+00, 0.1311E+00,& - 0.1322E+00, 0.1333E+00, 0.1345E+00, 0.1356E+00,& - 0.1367E+00, 0.1379E+00, 0.1390E+00, 0.1402E+00,& - 0.1414E+00, 0.1425E+00, 0.1437E+00, 0.1449E+00,& - 0.1461E+00, 0.1473E+00, 0.1486E+00, 0.1498E+00,& - 0.1510E+00, 0.1523E+00, 0.1535E+00, 0.1547E+00,& - 0.1560E+00, 0.1573E+00, 0.1586E+00, 0.1598E+00,& - 0.1611E+00, 0.1625E+00, 0.1638E+00, 0.1651E+00,& - 0.1664E+00, 0.1677E+00, 0.1691E+00, 0.1704E+00,& - 0.1718E+00, 0.1732E+00, 0.1745E+00, 0.1759E+00,& - 0.1773E+00, 0.1787E+00, 0.1801E+00, 0.1815E+00,& - 0.1830E+00, 0.1844E+00, 0.1858E+00, 0.1873E+00,& - 0.1888E+00, 0.1902E+00, 0.1917E+00, 0.1932E+00,& - 0.1947E+00, 0.1962E+00, 0.1977E+00, 0.1993E+00,& - 0.2008E+00, 0.2023E+00, 0.2039E+00, 0.2055E+00,& - 0.2070E+00, 0.2086E+00, 0.2102E+00, 0.2118E+00,& - 0.2134E+00, 0.2150E+00, 0.2167E+00, 0.2183E+00,& - 0.2199E+00, 0.2216E+00, 0.2233E+00, 0.2250E+00,& - 0.2266E+00, 0.2283E+00, 0.2300E+00, 0.2317E+00,& - 0.2335E+00, 0.2352E+00, 0.2370E+00, 0.2387E+00,& - 0.2405E+00, 0.2423E+00, 0.2441E+00, 0.2459E+00,& - 0.2477E+00, 0.2495E+00, 0.2513E+00, 0.2532E+00,& - 0.2550E+00, 0.2569E+00, 0.2587E+00, 0.2606E+00,& - 0.2625E+00, 0.2644E+00, 0.2663E+00, 0.2683E+00,& - 0.2702E+00, 0.2722E+00, 0.2741E+00, 0.2761E+00,& - 0.2781E+00, 0.2801E+00, 0.2821E+00, 0.2841E+00,& - 0.2861E+00, 0.2882E+00, 0.2902E+00, 0.2923E+00,& - 0.2944E+00, 0.2965E+00, 0.2986E+00, 0.3007E+00,& - 0.3028E+00, 0.3049E+00, 0.3071E+00, 0.3093E+00,& - 0.3114E+00, 0.3136E+00, 0.3158E+00, 0.3180E+00,& - 0.3202E+00, 0.3225E+00, 0.3247E+00, 0.3270E+00,& - 0.3293E+00, 0.3315E+00, 0.3339E+00, 0.3362E+00,& - 0.3385E+00, 0.3408E+00, 0.3432E+00, 0.3455E+00,& - 0.3479E+00, 0.3503E+00, 0.3527E+00, 0.3551E+00,& - 0.3576E+00, 0.3600E+00, 0.3625E+00, 0.3650E+00,& - 0.3674E+00, 0.3699E+00, 0.3725E+00, 0.3750E+00,& - 0.3775E+00, 0.3801E+00, 0.3827E+00, 0.3852E+00,& - 0.3878E+00, 0.3905E+00, 0.3931E+00, 0.3957E+00,& - 0.3984E+00, 0.4011E+00, 0.4038E+00, 0.4065E+00,& - 0.4092E+00, 0.4119E+00, 0.4147E+00, 0.4175E+00,& - 0.4202E+00, 0.4230E+00, 0.4258E+00, 0.4287E+00,& - 0.4315E+00, 0.4344E+00, 0.4373E+00, 0.4401E+00,& - 0.4431E+00, 0.4460E+00, 0.4489E+00, 0.4519E+00,& - 0.4548E+00, 0.4578E+00, 0.4608E+00, 0.4639E+00,& - 0.4669E+00, 0.4700E+00, 0.4730E+00, 0.4761E+00,& - 0.4792E+00, 0.4824E+00, 0.4855E+00, 0.4887E+00,& - 0.4919E+00, 0.4951E+00, 0.4983E+00, 0.5015E+00,& - 0.5048E+00, 0.5080E+00, 0.5113E+00, 0.5146E+00,& - 0.5180E+00, 0.5213E+00, 0.5247E+00, 0.5280E+00,& - 0.5314E+00, 0.5349E+00, 0.5383E+00, 0.5418E+00,& - 0.5452E+00, 0.5487E+00, 0.5522E+00, 0.5558E+00,& - 0.5593E+00, 0.5629E+00, 0.5665E+00, 0.5701E+00,& - 0.5737E+00, 0.5774E+00, 0.5811E+00, 0.5848E+00,& - 0.5885E+00, 0.5922E+00, 0.5960E+00, 0.5998E+00,& - 0.6036E+00, 0.6074E+00, 0.6112E+00, 0.6151E+00,& - 0.6190E+00, 0.6229E+00, 0.6269E+00, 0.6308E+00,& - 0.6348E+00, 0.6388E+00, 0.6428E+00, 0.6469E+00,& - 0.6509E+00, 0.6550E+00, 0.6591E+00, 0.6633E+00,& - 0.6674E+00, 0.6716E+00, 0.6758E+00, 0.6801E+00,& - 0.6843E+00, 0.6886E+00, 0.6929E+00, 0.6972E+00,& - 0.7016E+00, 0.7060E+00, 0.7104E+00, 0.7148E+00,& - 0.7193E+00, 0.7238E+00, 0.7283E+00, 0.7328E+00,& - 0.7374E+00, 0.7420E+00, 0.7466E+00, 0.7512E+00,& - 0.7559E+00, 0.7606E+00, 0.7653E+00, 0.7700E+00,& - 0.7748E+00, 0.7796E+00, 0.7844E+00, 0.7893E+00,& - 0.7942E+00, 0.7991E+00, 0.8041E+00, 0.8090E+00,& - 0.8140E+00, 0.8191E+00, 0.8241E+00, 0.8292E+00,& - 0.8343E+00, 0.8395E+00, 0.8447E+00, 0.8499E+00,& - 0.8551E+00, 0.8604E+00, 0.8657E+00, 0.8711E+00,& - 0.8764E+00, 0.8818E+00, 0.8873E+00, 0.8927E+00,& - 0.8982E+00, 0.9038E+00, 0.9093E+00, 0.9149E+00,& - 0.9206E+00, 0.9262E+00, 0.9319E+00, 0.9377E+00,& - 0.9434E+00, 0.9492E+00, 0.9551E+00, 0.9609E+00,& - 0.9669E+00, 0.9728E+00, 0.9788E+00, 0.9848E+00,& - 0.9909E+00, 0.9969E+00, 0.1003E+01, 0.1009E+01,& - 0.1015E+01, 0.1022E+01, 0.1028E+01, 0.1034E+01,& - 0.1041E+01, 0.1047E+01, 0.1054E+01, 0.1060E+01,& - 0.1067E+01, 0.1073E+01, 0.1080E+01, 0.1086E+01,& - 0.1093E+01, 0.1100E+01, 0.1107E+01, 0.1113E+01,& - 0.1120E+01, 0.1127E+01, 0.1134E+01, 0.1141E+01,& - 0.1148E+01, 0.1155E+01, 0.1162E+01, 0.1169E+01,& - 0.1177E+01, 0.1184E+01, 0.1191E+01, 0.1199E+01,& - 0.1206E+01, 0.1213E+01, 0.1221E+01, 0.1229E+01,& - 0.1236E+01, 0.1244E+01, 0.1251E+01, 0.1259E+01,& - 0.1267E+01, 0.1275E+01, 0.1283E+01, 0.1291E+01,& - 0.1299E+01, 0.1307E+01, 0.1315E+01, 0.1323E+01,& - 0.1331E+01, 0.1340E+01, 0.1348E+01, 0.1356E+01,& - 0.1365E+01, 0.1373E+01, 0.1382E+01, 0.1391E+01,& - 0.1399E+01, 0.1408E+01, 0.1417E+01, 0.1426E+01,& - 0.1435E+01, 0.1444E+01, 0.1453E+01, 0.1462E+01,& - 0.1471E+01, 0.1481E+01, 0.1490E+01, 0.1499E+01,& - 0.1509E+01, 0.1518E+01, 0.1528E+01, 0.1538E+01,& - 0.1547E+01, 0.1557E+01, 0.1567E+01, 0.1577E+01,& - 0.1587E+01, 0.1597E+01, 0.1607E+01, 0.1618E+01,& - 0.1628E+01, 0.1638E+01, 0.1649E+01, 0.1659E+01,& - 0.1670E+01, 0.1681E+01, 0.1692E+01, 0.1702E+01,& - 0.1713E+01, 0.1725E+01, 0.1736E+01, 0.1747E+01,& - 0.1758E+01, 0.1770E+01, 0.1781E+01, 0.1793E+01,& - 0.1804E+01, 0.1816E+01, 0.1828E+01, 0.1840E+01,& - 0.1852E+01, 0.1864E+01, 0.1877E+01, 0.1889E+01,& - 0.1901E+01, 0.1914E+01, 0.1927E+01, 0.1940E+01,& - 0.1952E+01, 0.1965E+01, 0.1979E+01, 0.1992E+01,& - 0.2005E+01, 0.2019E+01, 0.2032E+01, 0.2046E+01,& - 0.2060E+01, 0.2074E+01, 0.2088E+01, 0.2102E+01,& - 0.2116E+01, 0.2130E+01, 0.2145E+01, 0.2160E+01,& - 0.2175E+01, 0.2189E+01, 0.2205E+01, 0.2220E+01,& - 0.2235E+01, 0.2251E+01, 0.2266E+01, 0.2282E+01,& - 0.2298E+01, 0.2314E+01, 0.2330E+01, 0.2347E+01,& - 0.2363E+01, 0.2380E+01, 0.2397E+01, 0.2414E+01,& - 0.2431E+01, 0.2449E+01, 0.2466E+01, 0.2484E+01,& - 0.2502E+01, 0.2520E+01, 0.2539E+01, 0.2557E+01,& - 0.2576E+01, 0.2595E+01, 0.2614E+01, 0.2633E+01,& - 0.2653E+01, 0.2672E+01, 0.2692E+01, 0.2712E+01,& - 0.2733E+01, 0.2753E+01, 0.2774E+01, 0.2795E+01,& - 0.2817E+01, 0.2838E+01, 0.2860E+01, 0.2882E+01,& - 0.2904E+01, 0.2927E+01, 0.2950E+01, 0.2973E+01,& - 0.2996E+01, 0.3020E+01, 0.3044E+01, 0.3068E+01,& - 0.3093E+01, 0.3118E+01, 0.3143E+01, 0.3169E+01,& - 0.3195E+01, 0.3221E+01, 0.3248E+01, 0.3274E+01,& - 0.3302E+01, 0.3330E+01, 0.3358E+01, 0.3386E+01,& - 0.3415E+01, 0.3444E+01, 0.3474E+01, 0.3504E+01,& - 0.3535E+01, 0.3566E+01, 0.3597E+01, 0.3629E+01,& - 0.3662E+01, 0.3695E+01, 0.3728E+01, 0.3762E+01,& - 0.3797E+01, 0.3832E+01, 0.3868E+01, 0.3904E+01,& - 0.3941E+01, 0.3979E+01, 0.4017E+01, 0.4056E+01,& - 0.4096E+01, 0.4137E+01, 0.4178E+01, 0.4220E+01,& - 0.4262E+01, 0.4306E+01, 0.4351E+01, 0.4396E+01,& - 0.4442E+01, 0.4489E+01, 0.4538E+01, 0.4587E+01,& - 0.4637E+01, 0.4689E+01, 0.4741E+01, 0.4795E+01,& - 0.4850E+01, 0.4907E+01, 0.4965E+01, 0.5024E+01,& - 0.5085E+01, 0.5147E+01, 0.5211E+01, 0.5277E+01,& - 0.5345E+01, 0.5414E+01, 0.5486E+01, 0.5560E+01,& - 0.5636E+01, 0.5715E+01, 0.5796E+01, 0.5880E+01,& - 0.5966E+01, 0.6056E+01, 0.6149E+01, 0.6246E+01,& - 0.6347E+01, 0.6451E+01, 0.6560E+01, 0.6674E+01,& - 0.6793E+01, 0.6918E+01, 0.7049E+01, 0.7187E+01,& - 0.7333E+01, 0.7487E+01, 0.7650E+01, 0.7824E+01,& - 0.8010E+01, 0.8210E+01, 0.8425E+01, 0.8658E+01,& - 0.8913E+01, 0.9194E+01, 0.9505E+01, 0.9856E+01,& - 0.1025E+02, 0.1072E+02, 0.1127E+02, 0.1195E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 74) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3244E-04, 0.3244E-04, 0.3244E-04, 0.3244E-04,& - 0.3244E-04, 0.3244E-04, 0.3244E-04, 0.3244E-04,& - 0.5488E-04, 0.5488E-04, 0.5488E-04, 0.5488E-04,& - 0.5488E-04, 0.7731E-04, 0.7731E-04, 0.7731E-04,& - 0.7731E-04, 0.9975E-04, 0.9975E-04, 0.9975E-04,& - 0.9975E-04, 0.1222E-03, 0.1222E-03, 0.1222E-03,& - 0.1446E-03, 0.1446E-03, 0.1446E-03, 0.1671E-03,& - 0.1671E-03, 0.1895E-03, 0.1895E-03, 0.1895E-03,& - 0.2119E-03, 0.2119E-03, 0.2344E-03, 0.2344E-03,& - 0.2568E-03, 0.2568E-03, 0.2793E-03, 0.2793E-03,& - 0.3017E-03, 0.3241E-03, 0.3241E-03, 0.3466E-03,& - 0.3466E-03, 0.3690E-03, 0.3914E-03, 0.4139E-03,& - 0.4139E-03, 0.4363E-03, 0.4588E-03, 0.4812E-03,& - 0.4812E-03, 0.5036E-03, 0.5261E-03, 0.5485E-03,& - 0.5710E-03, 0.5934E-03, 0.6158E-03, 0.6383E-03,& - 0.6607E-03, 0.6831E-03, 0.7056E-03, 0.7280E-03,& - 0.7505E-03, 0.7729E-03, 0.7953E-03, 0.8402E-03,& - 0.8626E-03, 0.8851E-03, 0.9075E-03, 0.9524E-03,& - 0.9748E-03, 0.9973E-03, 0.1042E-02, 0.1065E-02,& - 0.1109E-02, 0.1132E-02, 0.1177E-02, 0.1199E-02,& - 0.1244E-02, 0.1267E-02, 0.1311E-02, 0.1356E-02,& - 0.1401E-02, 0.1424E-02, 0.1468E-02, 0.1513E-02,& - 0.1558E-02, 0.1603E-02, 0.1648E-02, 0.1693E-02,& - 0.1738E-02, 0.1783E-02, 0.1827E-02, 0.1872E-02,& - 0.1917E-02, 0.1985E-02, 0.2029E-02, 0.2074E-02,& - 0.2142E-02, 0.2187E-02, 0.2231E-02, 0.2299E-02,& - 0.2344E-02, 0.2411E-02, 0.2478E-02, 0.2523E-02,& - 0.2590E-02, 0.2658E-02, 0.2725E-02, 0.2792E-02,& - 0.2860E-02, 0.2927E-02, 0.2994E-02, 0.3062E-02,& - 0.3129E-02, 0.3196E-02, 0.3264E-02, 0.3331E-02,& - 0.3421E-02, 0.3488E-02, 0.3578E-02, 0.3645E-02,& - 0.3735E-02, 0.3802E-02, 0.3892E-02, 0.3982E-02,& - 0.4071E-02, 0.4139E-02, 0.4228E-02, 0.4318E-02,& - 0.4408E-02, 0.4498E-02, 0.4610E-02, 0.4700E-02,& - 0.4789E-02, 0.4879E-02, 0.4991E-02, 0.5081E-02,& - 0.5193E-02, 0.5305E-02, 0.5395E-02, 0.5507E-02,& - 0.5620E-02, 0.5732E-02, 0.5844E-02, 0.5956E-02,& - 0.6068E-02, 0.6180E-02, 0.6293E-02, 0.6405E-02,& - 0.6540E-02, 0.6652E-02, 0.6786E-02, 0.6899E-02,& - 0.7033E-02, 0.7168E-02, 0.7302E-02, 0.7415E-02,& - 0.7549E-02, 0.7706E-02, 0.7841E-02, 0.7976E-02,& - 0.8110E-02, 0.8267E-02, 0.8402E-02, 0.8559E-02,& - 0.8694E-02, 0.8851E-02, 0.9008E-02, 0.9165E-02,& - 0.9322E-02, 0.9479E-02, 0.9636E-02, 0.9793E-02,& - 0.9950E-02, 0.1013E-01, 0.1029E-01, 0.1047E-01,& - 0.1062E-01, 0.1080E-01, 0.1098E-01, 0.1116E-01,& - 0.1134E-01, 0.1152E-01, 0.1172E-01, 0.1190E-01,& - 0.1208E-01, 0.1228E-01, 0.1246E-01, 0.1267E-01,& - 0.1287E-01, 0.1307E-01, 0.1327E-01, 0.1347E-01,& - 0.1367E-01, 0.1390E-01, 0.1410E-01, 0.1433E-01,& - 0.1453E-01, 0.1475E-01, 0.1498E-01, 0.1520E-01,& - 0.1543E-01, 0.1565E-01, 0.1590E-01, 0.1612E-01,& - 0.1637E-01, 0.1659E-01, 0.1684E-01, 0.1709E-01,& - 0.1733E-01, 0.1758E-01, 0.1783E-01, 0.1810E-01,& - 0.1834E-01, 0.1861E-01, 0.1886E-01, 0.1913E-01,& - 0.1940E-01, 0.1967E-01, 0.1996E-01, 0.2023E-01,& - 0.2050E-01, 0.2079E-01, 0.2108E-01, 0.2135E-01,& - 0.2164E-01, 0.2193E-01, 0.2225E-01, 0.2254E-01,& - 0.2283E-01, 0.2314E-01, 0.2346E-01, 0.2377E-01,& - 0.2409E-01, 0.2440E-01, 0.2471E-01, 0.2505E-01,& - 0.2537E-01, 0.2570E-01, 0.2604E-01, 0.2637E-01,& - 0.2671E-01, 0.2705E-01, 0.2738E-01, 0.2774E-01,& - 0.2810E-01, 0.2846E-01, 0.2882E-01, 0.2918E-01,& - 0.2954E-01, 0.2990E-01, 0.3028E-01, 0.3066E-01,& - 0.3104E-01, 0.3142E-01, 0.3180E-01, 0.3219E-01,& - 0.3259E-01, 0.3299E-01, 0.3338E-01, 0.3378E-01,& - 0.3421E-01, 0.3461E-01, 0.3501E-01, 0.3544E-01,& - 0.3587E-01, 0.3629E-01, 0.3672E-01, 0.3715E-01,& - 0.3759E-01, 0.3802E-01, 0.3847E-01, 0.3892E-01,& - 0.3937E-01, 0.3984E-01, 0.4029E-01, 0.4076E-01,& - 0.4123E-01, 0.4170E-01, 0.4217E-01, 0.4264E-01,& - 0.4314E-01, 0.4363E-01, 0.4412E-01, 0.4462E-01,& - 0.4511E-01, 0.4560E-01, 0.4612E-01, 0.4664E-01,& - 0.4715E-01, 0.4767E-01, 0.4821E-01, 0.4872E-01,& - 0.4926E-01, 0.4980E-01, 0.5034E-01, 0.5090E-01,& - 0.5144E-01, 0.5200E-01, 0.5256E-01, 0.5312E-01,& - 0.5370E-01, 0.5427E-01, 0.5485E-01, 0.5543E-01,& - 0.5602E-01, 0.5662E-01, 0.5720E-01, 0.5781E-01,& - 0.5842E-01, 0.5902E-01, 0.5965E-01, 0.6026E-01,& - 0.6088E-01, 0.6151E-01, 0.6216E-01, 0.6279E-01,& - 0.6344E-01, 0.6409E-01, 0.6474E-01, 0.6542E-01,& - 0.6607E-01, 0.6674E-01, 0.6741E-01, 0.6811E-01,& - 0.6878E-01, 0.6948E-01, 0.7017E-01, 0.7087E-01,& - 0.7159E-01, 0.7228E-01, 0.7300E-01, 0.7372E-01,& - 0.7446E-01, 0.7518E-01, 0.7592E-01, 0.7668E-01,& - 0.7742E-01, 0.7818E-01, 0.7893E-01, 0.7971E-01,& - 0.8047E-01, 0.8126E-01, 0.8202E-01, 0.8281E-01,& - 0.8361E-01, 0.8440E-01, 0.8521E-01, 0.8604E-01,& - 0.8685E-01, 0.8768E-01, 0.8848E-01, 0.8934E-01,& - 0.9017E-01, 0.9102E-01, 0.9187E-01, 0.9272E-01,& - 0.9360E-01, 0.9445E-01, 0.9533E-01, 0.9622E-01,& - 0.9710E-01, 0.9800E-01, 0.9889E-01, 0.9981E-01,& - 0.1007E+00, 0.1017E+00, 0.1026E+00, 0.1035E+00,& - 0.1044E+00, 0.1054E+00, 0.1063E+00, 0.1073E+00,& - 0.1083E+00, 0.1092E+00, 0.1102E+00, 0.1112E+00,& - 0.1122E+00, 0.1132E+00, 0.1142E+00, 0.1152E+00,& - 0.1162E+00, 0.1172E+00, 0.1183E+00, 0.1193E+00,& - 0.1204E+00, 0.1214E+00, 0.1225E+00, 0.1236E+00,& - 0.1246E+00, 0.1257E+00, 0.1268E+00, 0.1279E+00,& - 0.1290E+00, 0.1301E+00, 0.1312E+00, 0.1324E+00,& - 0.1335E+00, 0.1346E+00, 0.1358E+00, 0.1369E+00,& - 0.1381E+00, 0.1392E+00, 0.1404E+00, 0.1416E+00,& - 0.1428E+00, 0.1440E+00, 0.1452E+00, 0.1464E+00,& - 0.1477E+00, 0.1489E+00, 0.1501E+00, 0.1514E+00,& - 0.1526E+00, 0.1539E+00, 0.1551E+00, 0.1564E+00,& - 0.1577E+00, 0.1590E+00, 0.1603E+00, 0.1616E+00,& - 0.1630E+00, 0.1643E+00, 0.1656E+00, 0.1670E+00,& - 0.1683E+00, 0.1697E+00, 0.1711E+00, 0.1724E+00,& - 0.1738E+00, 0.1752E+00, 0.1766E+00, 0.1780E+00,& - 0.1795E+00, 0.1809E+00, 0.1823E+00, 0.1838E+00,& - 0.1852E+00, 0.1867E+00, 0.1882E+00, 0.1897E+00,& - 0.1912E+00, 0.1927E+00, 0.1942E+00, 0.1957E+00,& - 0.1972E+00, 0.1988E+00, 0.2003E+00, 0.2019E+00,& - 0.2035E+00, 0.2050E+00, 0.2066E+00, 0.2082E+00,& - 0.2099E+00, 0.2115E+00, 0.2131E+00, 0.2147E+00,& - 0.2164E+00, 0.2180E+00, 0.2197E+00, 0.2214E+00,& - 0.2231E+00, 0.2248E+00, 0.2265E+00, 0.2282E+00,& - 0.2299E+00, 0.2317E+00, 0.2334E+00, 0.2352E+00,& - 0.2370E+00, 0.2387E+00, 0.2405E+00, 0.2423E+00,& - 0.2441E+00, 0.2460E+00, 0.2478E+00, 0.2496E+00,& - 0.2515E+00, 0.2534E+00, 0.2552E+00, 0.2571E+00,& - 0.2590E+00, 0.2609E+00, 0.2629E+00, 0.2648E+00,& - 0.2668E+00, 0.2687E+00, 0.2707E+00, 0.2727E+00,& - 0.2747E+00, 0.2767E+00, 0.2787E+00, 0.2807E+00,& - 0.2828E+00, 0.2848E+00, 0.2869E+00, 0.2889E+00,& - 0.2910E+00, 0.2931E+00, 0.2952E+00, 0.2974E+00,& - 0.2995E+00, 0.3016E+00, 0.3038E+00, 0.3060E+00,& - 0.3082E+00, 0.3104E+00, 0.3126E+00, 0.3148E+00,& - 0.3170E+00, 0.3193E+00, 0.3216E+00, 0.3238E+00,& - 0.3261E+00, 0.3284E+00, 0.3307E+00, 0.3331E+00,& - 0.3354E+00, 0.3378E+00, 0.3402E+00, 0.3426E+00,& - 0.3449E+00, 0.3474E+00, 0.3498E+00, 0.3522E+00,& - 0.3547E+00, 0.3571E+00, 0.3596E+00, 0.3621E+00,& - 0.3646E+00, 0.3672E+00, 0.3697E+00, 0.3723E+00,& - 0.3748E+00, 0.3774E+00, 0.3800E+00, 0.3826E+00,& - 0.3853E+00, 0.3879E+00, 0.3905E+00, 0.3932E+00,& - 0.3959E+00, 0.3986E+00, 0.4013E+00, 0.4041E+00,& - 0.4068E+00, 0.4096E+00, 0.4124E+00, 0.4152E+00,& - 0.4180E+00, 0.4208E+00, 0.4237E+00, 0.4265E+00,& - 0.4294E+00, 0.4323E+00, 0.4352E+00, 0.4381E+00,& - 0.4411E+00, 0.4441E+00, 0.4470E+00, 0.4500E+00,& - 0.4530E+00, 0.4561E+00, 0.4591E+00, 0.4622E+00,& - 0.4653E+00, 0.4684E+00, 0.4715E+00, 0.4746E+00,& - 0.4778E+00, 0.4809E+00, 0.4841E+00, 0.4873E+00,& - 0.4906E+00, 0.4938E+00, 0.4971E+00, 0.5004E+00,& - 0.5037E+00, 0.5070E+00, 0.5103E+00, 0.5137E+00,& - 0.5171E+00, 0.5204E+00, 0.5239E+00, 0.5273E+00,& - 0.5308E+00, 0.5342E+00, 0.5377E+00, 0.5412E+00,& - 0.5448E+00, 0.5483E+00, 0.5519E+00, 0.5555E+00,& - 0.5591E+00, 0.5627E+00, 0.5664E+00, 0.5701E+00,& - 0.5738E+00, 0.5775E+00, 0.5812E+00, 0.5850E+00,& - 0.5888E+00, 0.5926E+00, 0.5964E+00, 0.6003E+00,& - 0.6042E+00, 0.6080E+00, 0.6120E+00, 0.6159E+00,& - 0.6199E+00, 0.6239E+00, 0.6279E+00, 0.6319E+00,& - 0.6360E+00, 0.6400E+00, 0.6441E+00, 0.6482E+00,& - 0.6524E+00, 0.6566E+00, 0.6608E+00, 0.6650E+00,& - 0.6693E+00, 0.6735E+00, 0.6778E+00, 0.6821E+00,& - 0.6865E+00, 0.6909E+00, 0.6953E+00, 0.6997E+00,& - 0.7041E+00, 0.7086E+00, 0.7131E+00, 0.7176E+00,& - 0.7222E+00, 0.7268E+00, 0.7314E+00, 0.7360E+00,& - 0.7407E+00, 0.7454E+00, 0.7501E+00, 0.7548E+00,& - 0.7596E+00, 0.7644E+00, 0.7692E+00, 0.7741E+00,& - 0.7790E+00, 0.7837E+00, 0.7888E+00, 0.7938E+00,& - 0.7988E+00, 0.8039E+00, 0.8089E+00, 0.8140E+00,& - 0.8191E+00, 0.8243E+00, 0.8295E+00, 0.8347E+00,& - 0.8400E+00, 0.8452E+00, 0.8506E+00, 0.8559E+00,& - 0.8613E+00, 0.8667E+00, 0.8721E+00, 0.8776E+00,& - 0.8831E+00, 0.8887E+00, 0.8942E+00, 0.8998E+00,& - 0.9055E+00, 0.9112E+00, 0.9169E+00, 0.9226E+00,& - 0.9284E+00, 0.9342E+00, 0.9401E+00, 0.9460E+00,& - 0.9519E+00, 0.9579E+00, 0.9639E+00, 0.9699E+00,& - 0.9760E+00, 0.9821E+00, 0.9882E+00, 0.9944E+00,& - 0.1001E+01, 0.1007E+01, 0.1013E+01, 0.1020E+01,& - 0.1026E+01, 0.1032E+01, 0.1039E+01, 0.1045E+01,& - 0.1052E+01, 0.1059E+01, 0.1065E+01, 0.1072E+01,& - 0.1079E+01, 0.1085E+01, 0.1092E+01, 0.1099E+01,& - 0.1106E+01, 0.1113E+01, 0.1120E+01, 0.1127E+01,& - 0.1134E+01, 0.1141E+01, 0.1148E+01, 0.1155E+01,& - 0.1163E+01, 0.1170E+01, 0.1177E+01, 0.1185E+01,& - 0.1192E+01, 0.1200E+01, 0.1207E+01, 0.1215E+01,& - 0.1222E+01, 0.1230E+01, 0.1238E+01, 0.1246E+01,& - 0.1254E+01, 0.1261E+01, 0.1269E+01, 0.1277E+01,& - 0.1286E+01, 0.1294E+01, 0.1302E+01, 0.1310E+01,& - 0.1318E+01, 0.1327E+01, 0.1335E+01, 0.1344E+01,& - 0.1352E+01, 0.1361E+01, 0.1369E+01, 0.1378E+01,& - 0.1387E+01, 0.1396E+01, 0.1405E+01, 0.1414E+01,& - 0.1423E+01, 0.1432E+01, 0.1441E+01, 0.1450E+01,& - 0.1459E+01, 0.1469E+01, 0.1478E+01, 0.1487E+01,& - 0.1497E+01, 0.1507E+01, 0.1516E+01, 0.1526E+01,& - 0.1536E+01, 0.1546E+01, 0.1556E+01, 0.1566E+01,& - 0.1576E+01, 0.1586E+01, 0.1597E+01, 0.1607E+01,& - 0.1617E+01, 0.1628E+01, 0.1639E+01, 0.1649E+01,& - 0.1660E+01, 0.1671E+01, 0.1682E+01, 0.1693E+01,& - 0.1704E+01, 0.1715E+01, 0.1726E+01, 0.1738E+01,& - 0.1749E+01, 0.1761E+01, 0.1772E+01, 0.1784E+01,& - 0.1796E+01, 0.1808E+01, 0.1820E+01, 0.1832E+01,& - 0.1844E+01, 0.1856E+01, 0.1869E+01, 0.1881E+01,& - 0.1894E+01, 0.1907E+01, 0.1919E+01, 0.1932E+01,& - 0.1945E+01, 0.1959E+01, 0.1972E+01, 0.1985E+01,& - 0.1999E+01, 0.2012E+01, 0.2026E+01, 0.2040E+01,& - 0.2054E+01, 0.2068E+01, 0.2082E+01, 0.2097E+01,& - 0.2111E+01, 0.2126E+01, 0.2140E+01, 0.2155E+01,& - 0.2170E+01, 0.2185E+01, 0.2201E+01, 0.2216E+01,& - 0.2232E+01, 0.2247E+01, 0.2263E+01, 0.2279E+01,& - 0.2296E+01, 0.2312E+01, 0.2328E+01, 0.2345E+01,& - 0.2362E+01, 0.2379E+01, 0.2396E+01, 0.2413E+01,& - 0.2431E+01, 0.2448E+01, 0.2466E+01, 0.2484E+01,& - 0.2502E+01, 0.2521E+01, 0.2539E+01, 0.2558E+01,& - 0.2577E+01, 0.2596E+01, 0.2616E+01, 0.2635E+01,& - 0.2655E+01, 0.2675E+01, 0.2695E+01, 0.2716E+01,& - 0.2737E+01, 0.2757E+01, 0.2779E+01, 0.2800E+01,& - 0.2822E+01, 0.2844E+01, 0.2866E+01, 0.2888E+01,& - 0.2911E+01, 0.2934E+01, 0.2957E+01, 0.2980E+01,& - 0.3004E+01, 0.3028E+01, 0.3053E+01, 0.3077E+01,& - 0.3102E+01, 0.3128E+01, 0.3153E+01, 0.3179E+01,& - 0.3206E+01, 0.3232E+01, 0.3259E+01, 0.3287E+01,& - 0.3315E+01, 0.3343E+01, 0.3371E+01, 0.3400E+01,& - 0.3430E+01, 0.3460E+01, 0.3490E+01, 0.3520E+01,& - 0.3552E+01, 0.3583E+01, 0.3615E+01, 0.3648E+01,& - 0.3681E+01, 0.3714E+01, 0.3749E+01, 0.3783E+01,& - 0.3819E+01, 0.3854E+01, 0.3891E+01, 0.3928E+01,& - 0.3966E+01, 0.4004E+01, 0.4043E+01, 0.4083E+01,& - 0.4123E+01, 0.4164E+01, 0.4206E+01, 0.4249E+01,& - 0.4292E+01, 0.4337E+01, 0.4382E+01, 0.4428E+01,& - 0.4476E+01, 0.4524E+01, 0.4573E+01, 0.4623E+01,& - 0.4674E+01, 0.4727E+01, 0.4781E+01, 0.4835E+01,& - 0.4892E+01, 0.4949E+01, 0.5008E+01, 0.5069E+01,& - 0.5131E+01, 0.5194E+01, 0.5260E+01, 0.5327E+01,& - 0.5396E+01, 0.5467E+01, 0.5540E+01, 0.5615E+01,& - 0.5693E+01, 0.5773E+01, 0.5856E+01, 0.5942E+01,& - 0.6030E+01, 0.6122E+01, 0.6217E+01, 0.6316E+01,& - 0.6418E+01, 0.6525E+01, 0.6637E+01, 0.6753E+01,& - 0.6875E+01, 0.7002E+01, 0.7136E+01, 0.7277E+01,& - 0.7426E+01, 0.7583E+01, 0.7750E+01, 0.7928E+01,& - 0.8118E+01, 0.8322E+01, 0.8542E+01, 0.8781E+01,& - 0.9041E+01, 0.9328E+01, 0.9647E+01, 0.1001E+02,& - 0.1041E+02, 0.1089E+02, 0.1145E+02, 0.1215E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 75) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3290E-04, 0.3290E-04, 0.3290E-04, 0.3290E-04,& - 0.3290E-04, 0.3290E-04, 0.3290E-04, 0.3290E-04,& - 0.5580E-04, 0.5580E-04, 0.5580E-04, 0.5580E-04,& - 0.5580E-04, 0.7870E-04, 0.7870E-04, 0.7870E-04,& - 0.7870E-04, 0.7870E-04, 0.1016E-03, 0.1016E-03,& - 0.1016E-03, 0.1016E-03, 0.1245E-03, 0.1245E-03,& - 0.1245E-03, 0.1474E-03, 0.1474E-03, 0.1474E-03,& - 0.1703E-03, 0.1703E-03, 0.1703E-03, 0.1932E-03,& - 0.1932E-03, 0.2161E-03, 0.2161E-03, 0.2390E-03,& - 0.2390E-03, 0.2619E-03, 0.2619E-03, 0.2848E-03,& - 0.2848E-03, 0.3077E-03, 0.3077E-03, 0.3306E-03,& - 0.3306E-03, 0.3535E-03, 0.3764E-03, 0.3764E-03,& - 0.3993E-03, 0.4222E-03, 0.4222E-03, 0.4451E-03,& - 0.4680E-03, 0.4909E-03, 0.4909E-03, 0.5138E-03,& - 0.5367E-03, 0.5596E-03, 0.5825E-03, 0.6054E-03,& - 0.6283E-03, 0.6512E-03, 0.6512E-03, 0.6741E-03,& - 0.7199E-03, 0.7428E-03, 0.7657E-03, 0.7886E-03,& - 0.8115E-03, 0.8344E-03, 0.8573E-03, 0.8802E-03,& - 0.9260E-03, 0.9489E-03, 0.9718E-03, 0.9947E-03,& - 0.1041E-02, 0.1063E-02, 0.1109E-02, 0.1132E-02,& - 0.1155E-02, 0.1201E-02, 0.1224E-02, 0.1270E-02,& - 0.1315E-02, 0.1338E-02, 0.1384E-02, 0.1430E-02,& - 0.1453E-02, 0.1499E-02, 0.1544E-02, 0.1590E-02,& - 0.1636E-02, 0.1682E-02, 0.1705E-02, 0.1750E-02,& - 0.1796E-02, 0.1865E-02, 0.1911E-02, 0.1957E-02,& - 0.2002E-02, 0.2048E-02, 0.2094E-02, 0.2163E-02,& - 0.2208E-02, 0.2254E-02, 0.2323E-02, 0.2369E-02,& - 0.2437E-02, 0.2483E-02, 0.2552E-02, 0.2621E-02,& - 0.2666E-02, 0.2735E-02, 0.2804E-02, 0.2873E-02,& - 0.2941E-02, 0.3010E-02, 0.3079E-02, 0.3147E-02,& - 0.3216E-02, 0.3285E-02, 0.3353E-02, 0.3422E-02,& - 0.3514E-02, 0.3582E-02, 0.3651E-02, 0.3743E-02,& - 0.3811E-02, 0.3903E-02, 0.3995E-02, 0.4063E-02,& - 0.4155E-02, 0.4247E-02, 0.4338E-02, 0.4407E-02,& - 0.4498E-02, 0.4590E-02, 0.4705E-02, 0.4796E-02,& - 0.4888E-02, 0.4979E-02, 0.5094E-02, 0.5185E-02,& - 0.5277E-02, 0.5392E-02, 0.5483E-02, 0.5598E-02,& - 0.5712E-02, 0.5827E-02, 0.5918E-02, 0.6033E-02,& - 0.6147E-02, 0.6262E-02, 0.6399E-02, 0.6514E-02,& - 0.6628E-02, 0.6743E-02, 0.6880E-02, 0.6995E-02,& - 0.7132E-02, 0.7269E-02, 0.7384E-02, 0.7521E-02,& - 0.7659E-02, 0.7796E-02, 0.7933E-02, 0.8071E-02,& - 0.8208E-02, 0.8346E-02, 0.8506E-02, 0.8643E-02,& - 0.8804E-02, 0.8941E-02, 0.9101E-02, 0.9262E-02,& - 0.9399E-02, 0.9559E-02, 0.9720E-02, 0.9880E-02,& - 0.1006E-01, 0.1022E-01, 0.1038E-01, 0.1057E-01,& - 0.1073E-01, 0.1091E-01, 0.1109E-01, 0.1125E-01,& - 0.1144E-01, 0.1162E-01, 0.1180E-01, 0.1201E-01,& - 0.1219E-01, 0.1238E-01, 0.1258E-01, 0.1277E-01,& - 0.1297E-01, 0.1318E-01, 0.1338E-01, 0.1357E-01,& - 0.1380E-01, 0.1400E-01, 0.1421E-01, 0.1441E-01,& - 0.1464E-01, 0.1485E-01, 0.1508E-01, 0.1531E-01,& - 0.1554E-01, 0.1577E-01, 0.1599E-01, 0.1622E-01,& - 0.1648E-01, 0.1670E-01, 0.1696E-01, 0.1719E-01,& - 0.1744E-01, 0.1769E-01, 0.1794E-01, 0.1819E-01,& - 0.1844E-01, 0.1872E-01, 0.1897E-01, 0.1925E-01,& - 0.1952E-01, 0.1977E-01, 0.2005E-01, 0.2035E-01,& - 0.2062E-01, 0.2089E-01, 0.2119E-01, 0.2147E-01,& - 0.2177E-01, 0.2206E-01, 0.2236E-01, 0.2266E-01,& - 0.2296E-01, 0.2325E-01, 0.2357E-01, 0.2389E-01,& - 0.2419E-01, 0.2451E-01, 0.2483E-01, 0.2515E-01,& - 0.2550E-01, 0.2582E-01, 0.2616E-01, 0.2651E-01,& - 0.2683E-01, 0.2717E-01, 0.2754E-01, 0.2788E-01,& - 0.2822E-01, 0.2859E-01, 0.2896E-01, 0.2932E-01,& - 0.2969E-01, 0.3005E-01, 0.3042E-01, 0.3081E-01,& - 0.3118E-01, 0.3157E-01, 0.3196E-01, 0.3234E-01,& - 0.3273E-01, 0.3315E-01, 0.3354E-01, 0.3395E-01,& - 0.3436E-01, 0.3477E-01, 0.3518E-01, 0.3560E-01,& - 0.3603E-01, 0.3647E-01, 0.3690E-01, 0.3734E-01,& - 0.3777E-01, 0.3821E-01, 0.3867E-01, 0.3910E-01,& - 0.3956E-01, 0.4002E-01, 0.4047E-01, 0.4096E-01,& - 0.4141E-01, 0.4189E-01, 0.4238E-01, 0.4286E-01,& - 0.4334E-01, 0.4384E-01, 0.4434E-01, 0.4483E-01,& - 0.4533E-01, 0.4586E-01, 0.4636E-01, 0.4689E-01,& - 0.4739E-01, 0.4792E-01, 0.4844E-01, 0.4899E-01,& - 0.4952E-01, 0.5007E-01, 0.5062E-01, 0.5117E-01,& - 0.5172E-01, 0.5229E-01, 0.5284E-01, 0.5341E-01,& - 0.5399E-01, 0.5458E-01, 0.5515E-01, 0.5575E-01,& - 0.5634E-01, 0.5694E-01, 0.5754E-01, 0.5815E-01,& - 0.5875E-01, 0.5937E-01, 0.6001E-01, 0.6063E-01,& - 0.6127E-01, 0.6189E-01, 0.6253E-01, 0.6319E-01,& - 0.6383E-01, 0.6450E-01, 0.6516E-01, 0.6582E-01,& - 0.6649E-01, 0.6718E-01, 0.6786E-01, 0.6855E-01,& - 0.6924E-01, 0.6992E-01, 0.7063E-01, 0.7134E-01,& - 0.7205E-01, 0.7279E-01, 0.7350E-01, 0.7423E-01,& - 0.7496E-01, 0.7572E-01, 0.7645E-01, 0.7721E-01,& - 0.7796E-01, 0.7874E-01, 0.7950E-01, 0.8027E-01,& - 0.8105E-01, 0.8185E-01, 0.8263E-01, 0.8344E-01,& - 0.8424E-01, 0.8506E-01, 0.8586E-01, 0.8669E-01,& - 0.8751E-01, 0.8836E-01, 0.8918E-01, 0.9003E-01,& - 0.9088E-01, 0.9175E-01, 0.9262E-01, 0.9349E-01,& - 0.9436E-01, 0.9523E-01, 0.9612E-01, 0.9701E-01,& - 0.9793E-01, 0.9882E-01, 0.9974E-01, 0.1007E+00,& - 0.1016E+00, 0.1025E+00, 0.1035E+00, 0.1044E+00,& - 0.1054E+00, 0.1063E+00, 0.1073E+00, 0.1083E+00,& - 0.1092E+00, 0.1103E+00, 0.1112E+00, 0.1122E+00,& - 0.1133E+00, 0.1143E+00, 0.1153E+00, 0.1163E+00,& - 0.1174E+00, 0.1184E+00, 0.1194E+00, 0.1205E+00,& - 0.1216E+00, 0.1226E+00, 0.1237E+00, 0.1248E+00,& - 0.1259E+00, 0.1270E+00, 0.1281E+00, 0.1292E+00,& - 0.1303E+00, 0.1315E+00, 0.1326E+00, 0.1337E+00,& - 0.1349E+00, 0.1361E+00, 0.1372E+00, 0.1384E+00,& - 0.1396E+00, 0.1408E+00, 0.1420E+00, 0.1432E+00,& - 0.1444E+00, 0.1456E+00, 0.1469E+00, 0.1481E+00,& - 0.1494E+00, 0.1506E+00, 0.1519E+00, 0.1531E+00,& - 0.1544E+00, 0.1557E+00, 0.1570E+00, 0.1583E+00,& - 0.1596E+00, 0.1610E+00, 0.1623E+00, 0.1636E+00,& - 0.1650E+00, 0.1663E+00, 0.1677E+00, 0.1691E+00,& - 0.1705E+00, 0.1719E+00, 0.1732E+00, 0.1747E+00,& - 0.1761E+00, 0.1775E+00, 0.1790E+00, 0.1804E+00,& - 0.1818E+00, 0.1833E+00, 0.1848E+00, 0.1863E+00,& - 0.1878E+00, 0.1893E+00, 0.1908E+00, 0.1923E+00,& - 0.1938E+00, 0.1954E+00, 0.1969E+00, 0.1985E+00,& - 0.2000E+00, 0.2016E+00, 0.2032E+00, 0.2048E+00,& - 0.2064E+00, 0.2080E+00, 0.2097E+00, 0.2113E+00,& - 0.2129E+00, 0.2146E+00, 0.2163E+00, 0.2180E+00,& - 0.2196E+00, 0.2213E+00, 0.2231E+00, 0.2248E+00,& - 0.2265E+00, 0.2283E+00, 0.2300E+00, 0.2318E+00,& - 0.2335E+00, 0.2353E+00, 0.2371E+00, 0.2389E+00,& - 0.2407E+00, 0.2426E+00, 0.2444E+00, 0.2463E+00,& - 0.2481E+00, 0.2500E+00, 0.2519E+00, 0.2538E+00,& - 0.2557E+00, 0.2576E+00, 0.2595E+00, 0.2615E+00,& - 0.2634E+00, 0.2654E+00, 0.2674E+00, 0.2694E+00,& - 0.2714E+00, 0.2734E+00, 0.2754E+00, 0.2774E+00,& - 0.2795E+00, 0.2816E+00, 0.2836E+00, 0.2857E+00,& - 0.2878E+00, 0.2899E+00, 0.2921E+00, 0.2942E+00,& - 0.2963E+00, 0.2985E+00, 0.3007E+00, 0.3029E+00,& - 0.3051E+00, 0.3073E+00, 0.3095E+00, 0.3117E+00,& - 0.3140E+00, 0.3163E+00, 0.3186E+00, 0.3208E+00,& - 0.3232E+00, 0.3255E+00, 0.3278E+00, 0.3302E+00,& - 0.3325E+00, 0.3349E+00, 0.3373E+00, 0.3397E+00,& - 0.3421E+00, 0.3445E+00, 0.3470E+00, 0.3495E+00,& - 0.3519E+00, 0.3544E+00, 0.3569E+00, 0.3594E+00,& - 0.3620E+00, 0.3645E+00, 0.3671E+00, 0.3697E+00,& - 0.3723E+00, 0.3749E+00, 0.3775E+00, 0.3802E+00,& - 0.3828E+00, 0.3855E+00, 0.3882E+00, 0.3909E+00,& - 0.3936E+00, 0.3963E+00, 0.3991E+00, 0.4018E+00,& - 0.4046E+00, 0.4074E+00, 0.4102E+00, 0.4131E+00,& - 0.4159E+00, 0.4188E+00, 0.4217E+00, 0.4246E+00,& - 0.4275E+00, 0.4304E+00, 0.4333E+00, 0.4363E+00,& - 0.4393E+00, 0.4423E+00, 0.4453E+00, 0.4484E+00,& - 0.4514E+00, 0.4545E+00, 0.4576E+00, 0.4607E+00,& - 0.4638E+00, 0.4670E+00, 0.4701E+00, 0.4733E+00,& - 0.4765E+00, 0.4797E+00, 0.4830E+00, 0.4862E+00,& - 0.4895E+00, 0.4928E+00, 0.4961E+00, 0.4994E+00,& - 0.5028E+00, 0.5061E+00, 0.5095E+00, 0.5129E+00,& - 0.5164E+00, 0.5198E+00, 0.5233E+00, 0.5268E+00,& - 0.5303E+00, 0.5338E+00, 0.5374E+00, 0.5410E+00,& - 0.5446E+00, 0.5482E+00, 0.5518E+00, 0.5555E+00,& - 0.5591E+00, 0.5628E+00, 0.5666E+00, 0.5703E+00,& - 0.5741E+00, 0.5778E+00, 0.5816E+00, 0.5855E+00,& - 0.5893E+00, 0.5932E+00, 0.5971E+00, 0.6010E+00,& - 0.6050E+00, 0.6082E+00, 0.6130E+00, 0.6170E+00,& - 0.6210E+00, 0.6251E+00, 0.6291E+00, 0.6333E+00,& - 0.6374E+00, 0.6416E+00, 0.6457E+00, 0.6500E+00,& - 0.6542E+00, 0.6585E+00, 0.6627E+00, 0.6670E+00,& - 0.6714E+00, 0.6757E+00, 0.6801E+00, 0.6845E+00,& - 0.6890E+00, 0.6934E+00, 0.6979E+00, 0.7024E+00,& - 0.7070E+00, 0.7116E+00, 0.7162E+00, 0.7208E+00,& - 0.7255E+00, 0.7301E+00, 0.7349E+00, 0.7396E+00,& - 0.7444E+00, 0.7492E+00, 0.7540E+00, 0.7588E+00,& - 0.7637E+00, 0.7686E+00, 0.7736E+00, 0.7785E+00,& - 0.7836E+00, 0.7886E+00, 0.7937E+00, 0.7987E+00,& - 0.8039E+00, 0.8090E+00, 0.8142E+00, 0.8194E+00,& - 0.8247E+00, 0.8300E+00, 0.8353E+00, 0.8406E+00,& - 0.8460E+00, 0.8514E+00, 0.8569E+00, 0.8624E+00,& - 0.8679E+00, 0.8734E+00, 0.8790E+00, 0.8846E+00,& - 0.8903E+00, 0.8960E+00, 0.9017E+00, 0.9074E+00,& - 0.9132E+00, 0.9191E+00, 0.9249E+00, 0.9309E+00,& - 0.9368E+00, 0.9428E+00, 0.9488E+00, 0.9549E+00,& - 0.9609E+00, 0.9671E+00, 0.9732E+00, 0.9794E+00,& - 0.9857E+00, 0.9920E+00, 0.9983E+00, 0.1005E+01,& - 0.1011E+01, 0.1018E+01, 0.1024E+01, 0.1031E+01,& - 0.1037E+01, 0.1044E+01, 0.1050E+01, 0.1057E+01,& - 0.1064E+01, 0.1071E+01, 0.1077E+01, 0.1084E+01,& - 0.1091E+01, 0.1098E+01, 0.1105E+01, 0.1112E+01,& - 0.1119E+01, 0.1127E+01, 0.1134E+01, 0.1141E+01,& - 0.1148E+01, 0.1156E+01, 0.1163E+01, 0.1171E+01,& - 0.1178E+01, 0.1186E+01, 0.1193E+01, 0.1201E+01,& - 0.1208E+01, 0.1216E+01, 0.1224E+01, 0.1232E+01,& - 0.1240E+01, 0.1248E+01, 0.1256E+01, 0.1264E+01,& - 0.1272E+01, 0.1280E+01, 0.1288E+01, 0.1297E+01,& - 0.1305E+01, 0.1313E+01, 0.1322E+01, 0.1330E+01,& - 0.1339E+01, 0.1348E+01, 0.1356E+01, 0.1365E+01,& - 0.1374E+01, 0.1383E+01, 0.1392E+01, 0.1401E+01,& - 0.1410E+01, 0.1419E+01, 0.1428E+01, 0.1438E+01,& - 0.1447E+01, 0.1456E+01, 0.1466E+01, 0.1476E+01,& - 0.1485E+01, 0.1495E+01, 0.1505E+01, 0.1514E+01,& - 0.1524E+01, 0.1534E+01, 0.1544E+01, 0.1555E+01,& - 0.1565E+01, 0.1575E+01, 0.1585E+01, 0.1596E+01,& - 0.1606E+01, 0.1617E+01, 0.1628E+01, 0.1639E+01,& - 0.1649E+01, 0.1660E+01, 0.1671E+01, 0.1683E+01,& - 0.1694E+01, 0.1705E+01, 0.1716E+01, 0.1728E+01,& - 0.1740E+01, 0.1751E+01, 0.1763E+01, 0.1775E+01,& - 0.1787E+01, 0.1799E+01, 0.1811E+01, 0.1823E+01,& - 0.1835E+01, 0.1848E+01, 0.1860E+01, 0.1873E+01,& - 0.1886E+01, 0.1899E+01, 0.1912E+01, 0.1925E+01,& - 0.1938E+01, 0.1951E+01, 0.1965E+01, 0.1978E+01,& - 0.1992E+01, 0.2006E+01, 0.2020E+01, 0.2034E+01,& - 0.2048E+01, 0.2062E+01, 0.2076E+01, 0.2091E+01,& - 0.2106E+01, 0.2120E+01, 0.2135E+01, 0.2150E+01,& - 0.2166E+01, 0.2181E+01, 0.2196E+01, 0.2212E+01,& - 0.2228E+01, 0.2244E+01, 0.2260E+01, 0.2276E+01,& - 0.2292E+01, 0.2309E+01, 0.2326E+01, 0.2343E+01,& - 0.2360E+01, 0.2377E+01, 0.2394E+01, 0.2412E+01,& - 0.2429E+01, 0.2447E+01, 0.2465E+01, 0.2484E+01,& - 0.2502E+01, 0.2521E+01, 0.2540E+01, 0.2559E+01,& - 0.2578E+01, 0.2597E+01, 0.2617E+01, 0.2637E+01,& - 0.2657E+01, 0.2677E+01, 0.2698E+01, 0.2719E+01,& - 0.2740E+01, 0.2761E+01, 0.2782E+01, 0.2804E+01,& - 0.2826E+01, 0.2848E+01, 0.2871E+01, 0.2893E+01,& - 0.2917E+01, 0.2940E+01, 0.2963E+01, 0.2987E+01,& - 0.3011E+01, 0.3036E+01, 0.3061E+01, 0.3086E+01,& - 0.3111E+01, 0.3137E+01, 0.3163E+01, 0.3189E+01,& - 0.3216E+01, 0.3243E+01, 0.3271E+01, 0.3299E+01,& - 0.3327E+01, 0.3356E+01, 0.3385E+01, 0.3414E+01,& - 0.3444E+01, 0.3474E+01, 0.3505E+01, 0.3536E+01,& - 0.3568E+01, 0.3600E+01, 0.3633E+01, 0.3666E+01,& - 0.3699E+01, 0.3733E+01, 0.3768E+01, 0.3804E+01,& - 0.3839E+01, 0.3876E+01, 0.3913E+01, 0.3951E+01,& - 0.3989E+01, 0.4028E+01, 0.4068E+01, 0.4108E+01,& - 0.4149E+01, 0.4191E+01, 0.4234E+01, 0.4277E+01,& - 0.4322E+01, 0.4367E+01, 0.4413E+01, 0.4460E+01,& - 0.4508E+01, 0.4557E+01, 0.4607E+01, 0.4659E+01,& - 0.4711E+01, 0.4764E+01, 0.4819E+01, 0.4875E+01,& - 0.4932E+01, 0.4991E+01, 0.5051E+01, 0.5113E+01,& - 0.5176E+01, 0.5241E+01, 0.5308E+01, 0.5376E+01,& - 0.5446E+01, 0.5519E+01, 0.5594E+01, 0.5670E+01,& - 0.5750E+01, 0.5831E+01, 0.5916E+01, 0.6003E+01,& - 0.6093E+01, 0.6187E+01, 0.6284E+01, 0.6385E+01,& - 0.6490E+01, 0.6599E+01, 0.6713E+01, 0.6831E+01,& - 0.6956E+01, 0.7086E+01, 0.7223E+01, 0.7367E+01,& - 0.7519E+01, 0.7679E+01, 0.7850E+01, 0.8032E+01,& - 0.8226E+01, 0.8434E+01, 0.8659E+01, 0.8903E+01,& - 0.9169E+01, 0.9463E+01, 0.9789E+01, 0.1015E+02,& - 0.1057E+02, 0.1106E+02, 0.1164E+02, 0.1235E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 76) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3337E-04, 0.3337E-04, 0.3337E-04, 0.3337E-04,& - 0.3337E-04, 0.3337E-04, 0.3337E-04, 0.3337E-04,& - 0.5674E-04, 0.5674E-04, 0.5674E-04, 0.5674E-04,& - 0.5674E-04, 0.5674E-04, 0.8010E-04, 0.8010E-04,& - 0.8010E-04, 0.8010E-04, 0.8010E-04, 0.1035E-03,& - 0.1035E-03, 0.1035E-03, 0.1035E-03, 0.1268E-03,& - 0.1268E-03, 0.1268E-03, 0.1502E-03, 0.1502E-03,& - 0.1502E-03, 0.1736E-03, 0.1736E-03, 0.1736E-03,& - 0.1969E-03, 0.1969E-03, 0.2203E-03, 0.2203E-03,& - 0.2203E-03, 0.2437E-03, 0.2437E-03, 0.2670E-03,& - 0.2670E-03, 0.2904E-03, 0.2904E-03, 0.3138E-03,& - 0.3138E-03, 0.3372E-03, 0.3372E-03, 0.3605E-03,& - 0.3839E-03, 0.3839E-03, 0.4073E-03, 0.4306E-03,& - 0.4306E-03, 0.4540E-03, 0.4774E-03, 0.5007E-03,& - 0.5007E-03, 0.5241E-03, 0.5475E-03, 0.5708E-03,& - 0.5942E-03, 0.5942E-03, 0.6176E-03, 0.6409E-03,& - 0.6643E-03, 0.6877E-03, 0.7110E-03, 0.7344E-03,& - 0.7578E-03, 0.7811E-03, 0.8045E-03, 0.8279E-03,& - 0.8512E-03, 0.8980E-03, 0.9214E-03, 0.9447E-03,& - 0.9681E-03, 0.1015E-02, 0.1038E-02, 0.1062E-02,& - 0.1085E-02, 0.1132E-02, 0.1155E-02, 0.1202E-02,& - 0.1225E-02, 0.1272E-02, 0.1295E-02, 0.1342E-02,& - 0.1365E-02, 0.1412E-02, 0.1459E-02, 0.1482E-02,& - 0.1529E-02, 0.1576E-02, 0.1622E-02, 0.1646E-02,& - 0.1692E-02, 0.1739E-02, 0.1786E-02, 0.1833E-02,& - 0.1879E-02, 0.1926E-02, 0.1973E-02, 0.2020E-02,& - 0.2066E-02, 0.2136E-02, 0.2183E-02, 0.2230E-02,& - 0.2277E-02, 0.2347E-02, 0.2394E-02, 0.2464E-02,& - 0.2510E-02, 0.2580E-02, 0.2627E-02, 0.2697E-02,& - 0.2767E-02, 0.2814E-02, 0.2884E-02, 0.2954E-02,& - 0.3024E-02, 0.3095E-02, 0.3165E-02, 0.3235E-02,& - 0.3305E-02, 0.3375E-02, 0.3445E-02, 0.3515E-02,& - 0.3585E-02, 0.3679E-02, 0.3749E-02, 0.3819E-02,& - 0.3912E-02, 0.3983E-02, 0.4076E-02, 0.4146E-02,& - 0.4240E-02, 0.4333E-02, 0.4427E-02, 0.4497E-02,& - 0.4590E-02, 0.4684E-02, 0.4777E-02, 0.4871E-02,& - 0.4987E-02, 0.5081E-02, 0.5174E-02, 0.5268E-02,& - 0.5385E-02, 0.5478E-02, 0.5595E-02, 0.5688E-02,& - 0.5805E-02, 0.5922E-02, 0.6016E-02, 0.6132E-02,& - 0.6249E-02, 0.6366E-02, 0.6483E-02, 0.6600E-02,& - 0.6717E-02, 0.6857E-02, 0.6974E-02, 0.7091E-02,& - 0.7231E-02, 0.7348E-02, 0.7488E-02, 0.7628E-02,& - 0.7745E-02, 0.7885E-02, 0.8025E-02, 0.8165E-02,& - 0.8306E-02, 0.8446E-02, 0.8609E-02, 0.8750E-02,& - 0.8890E-02, 0.9053E-02, 0.9194E-02, 0.9357E-02,& - 0.9521E-02, 0.9661E-02, 0.9825E-02, 0.9988E-02,& - 0.1015E-01, 0.1032E-01, 0.1050E-01, 0.1067E-01,& - 0.1083E-01, 0.1102E-01, 0.1118E-01, 0.1137E-01,& - 0.1155E-01, 0.1174E-01, 0.1193E-01, 0.1211E-01,& - 0.1230E-01, 0.1249E-01, 0.1268E-01, 0.1289E-01,& - 0.1307E-01, 0.1328E-01, 0.1347E-01, 0.1368E-01,& - 0.1389E-01, 0.1410E-01, 0.1431E-01, 0.1452E-01,& - 0.1476E-01, 0.1497E-01, 0.1520E-01, 0.1541E-01,& - 0.1564E-01, 0.1588E-01, 0.1611E-01, 0.1634E-01,& - 0.1658E-01, 0.1681E-01, 0.1707E-01, 0.1730E-01,& - 0.1756E-01, 0.1782E-01, 0.1805E-01, 0.1831E-01,& - 0.1856E-01, 0.1884E-01, 0.1910E-01, 0.1936E-01,& - 0.1964E-01, 0.1990E-01, 0.2018E-01, 0.2046E-01,& - 0.2074E-01, 0.2102E-01, 0.2132E-01, 0.2160E-01,& - 0.2188E-01, 0.2219E-01, 0.2249E-01, 0.2279E-01,& - 0.2310E-01, 0.2340E-01, 0.2371E-01, 0.2403E-01,& - 0.2434E-01, 0.2466E-01, 0.2499E-01, 0.2532E-01,& - 0.2564E-01, 0.2597E-01, 0.2630E-01, 0.2665E-01,& - 0.2698E-01, 0.2733E-01, 0.2768E-01, 0.2803E-01,& - 0.2838E-01, 0.2875E-01, 0.2910E-01, 0.2948E-01,& - 0.2985E-01, 0.3022E-01, 0.3060E-01, 0.3097E-01,& - 0.3135E-01, 0.3174E-01, 0.3214E-01, 0.3254E-01,& - 0.3294E-01, 0.3333E-01, 0.3373E-01, 0.3413E-01,& - 0.3455E-01, 0.3497E-01, 0.3539E-01, 0.3581E-01,& - 0.3623E-01, 0.3667E-01, 0.3710E-01, 0.3754E-01,& - 0.3798E-01, 0.3843E-01, 0.3887E-01, 0.3934E-01,& - 0.3978E-01, 0.4025E-01, 0.4072E-01, 0.4118E-01,& - 0.4168E-01, 0.4214E-01, 0.4263E-01, 0.4312E-01,& - 0.4361E-01, 0.4411E-01, 0.4460E-01, 0.4511E-01,& - 0.4562E-01, 0.4612E-01, 0.4665E-01, 0.4717E-01,& - 0.4768E-01, 0.4822E-01, 0.4876E-01, 0.4929E-01,& - 0.4983E-01, 0.5039E-01, 0.5093E-01, 0.5149E-01,& - 0.5205E-01, 0.5261E-01, 0.5320E-01, 0.5378E-01,& - 0.5434E-01, 0.5492E-01, 0.5553E-01, 0.5612E-01,& - 0.5672E-01, 0.5733E-01, 0.5794E-01, 0.5855E-01,& - 0.5915E-01, 0.5979E-01, 0.6042E-01, 0.6105E-01,& - 0.6168E-01, 0.6233E-01, 0.6299E-01, 0.6364E-01,& - 0.6430E-01, 0.6495E-01, 0.6563E-01, 0.6630E-01,& - 0.6698E-01, 0.6766E-01, 0.6836E-01, 0.6906E-01,& - 0.6976E-01, 0.7046E-01, 0.7119E-01, 0.7189E-01,& - 0.7261E-01, 0.7334E-01, 0.7409E-01, 0.7481E-01,& - 0.7556E-01, 0.7633E-01, 0.7708E-01, 0.7785E-01,& - 0.7860E-01, 0.7939E-01, 0.8016E-01, 0.8096E-01,& - 0.8173E-01, 0.8255E-01, 0.8334E-01, 0.8416E-01,& - 0.8498E-01, 0.8579E-01, 0.8661E-01, 0.8745E-01,& - 0.8829E-01, 0.8914E-01, 0.8998E-01, 0.9084E-01,& - 0.9171E-01, 0.9257E-01, 0.9346E-01, 0.9435E-01,& - 0.9523E-01, 0.9612E-01, 0.9703E-01, 0.9795E-01,& - 0.9886E-01, 0.9979E-01, 0.1007E+00, 0.1016E+00,& - 0.1026E+00, 0.1035E+00, 0.1045E+00, 0.1054E+00,& - 0.1064E+00, 0.1074E+00, 0.1084E+00, 0.1094E+00,& - 0.1104E+00, 0.1114E+00, 0.1124E+00, 0.1134E+00,& - 0.1144E+00, 0.1155E+00, 0.1165E+00, 0.1176E+00,& - 0.1186E+00, 0.1197E+00, 0.1208E+00, 0.1218E+00,& - 0.1229E+00, 0.1240E+00, 0.1251E+00, 0.1262E+00,& - 0.1273E+00, 0.1284E+00, 0.1296E+00, 0.1307E+00,& - 0.1319E+00, 0.1330E+00, 0.1342E+00, 0.1353E+00,& - 0.1365E+00, 0.1377E+00, 0.1389E+00, 0.1401E+00,& - 0.1413E+00, 0.1425E+00, 0.1437E+00, 0.1450E+00,& - 0.1462E+00, 0.1474E+00, 0.1487E+00, 0.1500E+00,& - 0.1512E+00, 0.1525E+00, 0.1538E+00, 0.1551E+00,& - 0.1564E+00, 0.1577E+00, 0.1591E+00, 0.1604E+00,& - 0.1617E+00, 0.1631E+00, 0.1645E+00, 0.1658E+00,& - 0.1672E+00, 0.1686E+00, 0.1700E+00, 0.1714E+00,& - 0.1728E+00, 0.1742E+00, 0.1757E+00, 0.1771E+00,& - 0.1786E+00, 0.1800E+00, 0.1815E+00, 0.1830E+00,& - 0.1845E+00, 0.1860E+00, 0.1875E+00, 0.1890E+00,& - 0.1905E+00, 0.1921E+00, 0.1936E+00, 0.1952E+00,& - 0.1967E+00, 0.1983E+00, 0.1999E+00, 0.2015E+00,& - 0.2031E+00, 0.2047E+00, 0.2063E+00, 0.2080E+00,& - 0.2096E+00, 0.2113E+00, 0.2130E+00, 0.2146E+00,& - 0.2164E+00, 0.2180E+00, 0.2198E+00, 0.2215E+00,& - 0.2232E+00, 0.2250E+00, 0.2267E+00, 0.2285E+00,& - 0.2303E+00, 0.2321E+00, 0.2339E+00, 0.2357E+00,& - 0.2375E+00, 0.2393E+00, 0.2412E+00, 0.2430E+00,& - 0.2449E+00, 0.2468E+00, 0.2486E+00, 0.2506E+00,& - 0.2525E+00, 0.2544E+00, 0.2563E+00, 0.2583E+00,& - 0.2603E+00, 0.2622E+00, 0.2642E+00, 0.2662E+00,& - 0.2682E+00, 0.2702E+00, 0.2723E+00, 0.2743E+00,& - 0.2764E+00, 0.2785E+00, 0.2805E+00, 0.2826E+00,& - 0.2847E+00, 0.2869E+00, 0.2890E+00, 0.2912E+00,& - 0.2933E+00, 0.2955E+00, 0.2977E+00, 0.2999E+00,& - 0.3021E+00, 0.3036E+00, 0.3066E+00, 0.3088E+00,& - 0.3111E+00, 0.3134E+00, 0.3157E+00, 0.3180E+00,& - 0.3203E+00, 0.3227E+00, 0.3250E+00, 0.3274E+00,& - 0.3298E+00, 0.3322E+00, 0.3346E+00, 0.3370E+00,& - 0.3395E+00, 0.3419E+00, 0.3444E+00, 0.3469E+00,& - 0.3494E+00, 0.3519E+00, 0.3544E+00, 0.3569E+00,& - 0.3595E+00, 0.3621E+00, 0.3647E+00, 0.3673E+00,& - 0.3699E+00, 0.3725E+00, 0.3752E+00, 0.3778E+00,& - 0.3805E+00, 0.3832E+00, 0.3860E+00, 0.3887E+00,& - 0.3914E+00, 0.3942E+00, 0.3970E+00, 0.3998E+00,& - 0.4026E+00, 0.4054E+00, 0.4083E+00, 0.4111E+00,& - 0.4140E+00, 0.4169E+00, 0.4198E+00, 0.4228E+00,& - 0.4257E+00, 0.4287E+00, 0.4317E+00, 0.4347E+00,& - 0.4377E+00, 0.4408E+00, 0.4438E+00, 0.4469E+00,& - 0.4500E+00, 0.4531E+00, 0.4562E+00, 0.4594E+00,& - 0.4626E+00, 0.4658E+00, 0.4690E+00, 0.4722E+00,& - 0.4754E+00, 0.4787E+00, 0.4820E+00, 0.4853E+00,& - 0.4886E+00, 0.4920E+00, 0.4953E+00, 0.4987E+00,& - 0.5021E+00, 0.5055E+00, 0.5090E+00, 0.5124E+00,& - 0.5159E+00, 0.5194E+00, 0.5230E+00, 0.5265E+00,& - 0.5301E+00, 0.5337E+00, 0.5373E+00, 0.5409E+00,& - 0.5446E+00, 0.5482E+00, 0.5519E+00, 0.5557E+00,& - 0.5594E+00, 0.5632E+00, 0.5670E+00, 0.5708E+00,& - 0.5746E+00, 0.5785E+00, 0.5823E+00, 0.5862E+00,& - 0.5902E+00, 0.5941E+00, 0.5981E+00, 0.6021E+00,& - 0.6061E+00, 0.6101E+00, 0.6142E+00, 0.6183E+00,& - 0.6224E+00, 0.6266E+00, 0.6307E+00, 0.6349E+00,& - 0.6391E+00, 0.6434E+00, 0.6477E+00, 0.6520E+00,& - 0.6563E+00, 0.6606E+00, 0.6650E+00, 0.6694E+00,& - 0.6738E+00, 0.6783E+00, 0.6828E+00, 0.6873E+00,& - 0.6918E+00, 0.6962E+00, 0.7010E+00, 0.7056E+00,& - 0.7102E+00, 0.7149E+00, 0.7196E+00, 0.7243E+00,& - 0.7291E+00, 0.7339E+00, 0.7387E+00, 0.7435E+00,& - 0.7484E+00, 0.7533E+00, 0.7583E+00, 0.7632E+00,& - 0.7682E+00, 0.7733E+00, 0.7783E+00, 0.7834E+00,& - 0.7885E+00, 0.7937E+00, 0.7989E+00, 0.8041E+00,& - 0.8094E+00, 0.8146E+00, 0.8199E+00, 0.8253E+00,& - 0.8307E+00, 0.8361E+00, 0.8416E+00, 0.8470E+00,& - 0.8526E+00, 0.8581E+00, 0.8637E+00, 0.8693E+00,& - 0.8750E+00, 0.8807E+00, 0.8864E+00, 0.8922E+00,& - 0.8980E+00, 0.9038E+00, 0.9097E+00, 0.9156E+00,& - 0.9216E+00, 0.9276E+00, 0.9336E+00, 0.9397E+00,& - 0.9458E+00, 0.9519E+00, 0.9581E+00, 0.9643E+00,& - 0.9706E+00, 0.9769E+00, 0.9832E+00, 0.9896E+00,& - 0.9960E+00, 0.1002E+01, 0.1009E+01, 0.1016E+01,& - 0.1022E+01, 0.1029E+01, 0.1035E+01, 0.1042E+01,& - 0.1049E+01, 0.1056E+01, 0.1063E+01, 0.1070E+01,& - 0.1077E+01, 0.1084E+01, 0.1091E+01, 0.1098E+01,& - 0.1105E+01, 0.1112E+01, 0.1119E+01, 0.1126E+01,& - 0.1134E+01, 0.1141E+01, 0.1149E+01, 0.1156E+01,& - 0.1164E+01, 0.1171E+01, 0.1179E+01, 0.1187E+01,& - 0.1194E+01, 0.1202E+01, 0.1210E+01, 0.1218E+01,& - 0.1226E+01, 0.1234E+01, 0.1242E+01, 0.1250E+01,& - 0.1258E+01, 0.1266E+01, 0.1275E+01, 0.1283E+01,& - 0.1291E+01, 0.1300E+01, 0.1308E+01, 0.1317E+01,& - 0.1326E+01, 0.1334E+01, 0.1343E+01, 0.1352E+01,& - 0.1361E+01, 0.1370E+01, 0.1379E+01, 0.1388E+01,& - 0.1397E+01, 0.1406E+01, 0.1416E+01, 0.1425E+01,& - 0.1434E+01, 0.1444E+01, 0.1453E+01, 0.1463E+01,& - 0.1473E+01, 0.1483E+01, 0.1492E+01, 0.1502E+01,& - 0.1512E+01, 0.1522E+01, 0.1533E+01, 0.1543E+01,& - 0.1553E+01, 0.1564E+01, 0.1574E+01, 0.1585E+01,& - 0.1595E+01, 0.1606E+01, 0.1617E+01, 0.1628E+01,& - 0.1639E+01, 0.1650E+01, 0.1661E+01, 0.1672E+01,& - 0.1683E+01, 0.1695E+01, 0.1706E+01, 0.1718E+01,& - 0.1729E+01, 0.1741E+01, 0.1753E+01, 0.1765E+01,& - 0.1777E+01, 0.1789E+01, 0.1802E+01, 0.1814E+01,& - 0.1826E+01, 0.1839E+01, 0.1852E+01, 0.1864E+01,& - 0.1877E+01, 0.1890E+01, 0.1904E+01, 0.1917E+01,& - 0.1930E+01, 0.1944E+01, 0.1957E+01, 0.1971E+01,& - 0.1985E+01, 0.1999E+01, 0.2013E+01, 0.2027E+01,& - 0.2041E+01, 0.2056E+01, 0.2070E+01, 0.2085E+01,& - 0.2100E+01, 0.2115E+01, 0.2130E+01, 0.2145E+01,& - 0.2160E+01, 0.2176E+01, 0.2192E+01, 0.2207E+01,& - 0.2223E+01, 0.2239E+01, 0.2256E+01, 0.2272E+01,& - 0.2289E+01, 0.2306E+01, 0.2322E+01, 0.2340E+01,& - 0.2357E+01, 0.2374E+01, 0.2392E+01, 0.2410E+01,& - 0.2428E+01, 0.2446E+01, 0.2464E+01, 0.2483E+01,& - 0.2501E+01, 0.2520E+01, 0.2539E+01, 0.2559E+01,& - 0.2578E+01, 0.2598E+01, 0.2618E+01, 0.2638E+01,& - 0.2658E+01, 0.2679E+01, 0.2700E+01, 0.2721E+01,& - 0.2742E+01, 0.2764E+01, 0.2785E+01, 0.2807E+01,& - 0.2830E+01, 0.2852E+01, 0.2875E+01, 0.2898E+01,& - 0.2922E+01, 0.2945E+01, 0.2969E+01, 0.2993E+01,& - 0.3018E+01, 0.3043E+01, 0.3068E+01, 0.3094E+01,& - 0.3119E+01, 0.3145E+01, 0.3172E+01, 0.3199E+01,& - 0.3226E+01, 0.3254E+01, 0.3281E+01, 0.3310E+01,& - 0.3338E+01, 0.3368E+01, 0.3397E+01, 0.3427E+01,& - 0.3457E+01, 0.3488E+01, 0.3519E+01, 0.3551E+01,& - 0.3583E+01, 0.3616E+01, 0.3649E+01, 0.3683E+01,& - 0.3717E+01, 0.3752E+01, 0.3787E+01, 0.3823E+01,& - 0.3859E+01, 0.3897E+01, 0.3934E+01, 0.3973E+01,& - 0.4012E+01, 0.4051E+01, 0.4092E+01, 0.4133E+01,& - 0.4175E+01, 0.4218E+01, 0.4261E+01, 0.4305E+01,& - 0.4351E+01, 0.4397E+01, 0.4444E+01, 0.4492E+01,& - 0.4540E+01, 0.4590E+01, 0.4641E+01, 0.4694E+01,& - 0.4744E+01, 0.4801E+01, 0.4857E+01, 0.4914E+01,& - 0.4972E+01, 0.5032E+01, 0.5094E+01, 0.5156E+01,& - 0.5221E+01, 0.5287E+01, 0.5355E+01, 0.5424E+01,& - 0.5496E+01, 0.5570E+01, 0.5646E+01, 0.5725E+01,& - 0.5806E+01, 0.5889E+01, 0.5975E+01, 0.6064E+01,& - 0.6156E+01, 0.6252E+01, 0.6351E+01, 0.6454E+01,& - 0.6561E+01, 0.6672E+01, 0.6788E+01, 0.6910E+01,& - 0.7036E+01, 0.7169E+01, 0.7309E+01, 0.7456E+01,& - 0.7611E+01, 0.7775E+01, 0.7950E+01, 0.8135E+01,& - 0.8333E+01, 0.8546E+01, 0.8776E+01, 0.9025E+01,& - 0.9298E+01, 0.9597E+01, 0.9931E+01, 0.1031E+02,& - 0.1073E+02, 0.1123E+02, 0.1182E+02, 0.1255E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 77) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3384E-04, 0.3384E-04, 0.3384E-04, 0.3384E-04,& - 0.3384E-04, 0.3384E-04, 0.3384E-04, 0.3384E-04,& - 0.5768E-04, 0.5768E-04, 0.5768E-04, 0.5768E-04,& - 0.5768E-04, 0.5768E-04, 0.5768E-04, 0.8153E-04,& - 0.8153E-04, 0.8153E-04, 0.8153E-04, 0.1054E-03,& - 0.1054E-03, 0.1054E-03, 0.1054E-03, 0.1054E-03,& - 0.1292E-03, 0.1292E-03, 0.1292E-03, 0.1531E-03,& - 0.1531E-03, 0.1531E-03, 0.1769E-03, 0.1769E-03,& - 0.1769E-03, 0.2007E-03, 0.2007E-03, 0.2007E-03,& - 0.2246E-03, 0.2246E-03, 0.2484E-03, 0.2484E-03,& - 0.2484E-03, 0.2723E-03, 0.2723E-03, 0.2961E-03,& - 0.2961E-03, 0.3199E-03, 0.3199E-03, 0.3438E-03,& - 0.3676E-03, 0.3676E-03, 0.3915E-03, 0.3915E-03,& - 0.4153E-03, 0.4392E-03, 0.4392E-03, 0.4630E-03,& - 0.4868E-03, 0.4868E-03, 0.5107E-03, 0.5345E-03,& - 0.5584E-03, 0.5584E-03, 0.5822E-03, 0.6060E-03,& - 0.6299E-03, 0.6537E-03, 0.6776E-03, 0.7014E-03,& - 0.7253E-03, 0.7491E-03, 0.7729E-03, 0.7968E-03,& - 0.8206E-03, 0.8445E-03, 0.8683E-03, 0.8921E-03,& - 0.9160E-03, 0.9398E-03, 0.9637E-03, 0.1011E-02,& - 0.1035E-02, 0.1059E-02, 0.1083E-02, 0.1131E-02,& - 0.1154E-02, 0.1178E-02, 0.1226E-02, 0.1250E-02,& - 0.1297E-02, 0.1321E-02, 0.1369E-02, 0.1393E-02,& - 0.1441E-02, 0.1464E-02, 0.1512E-02, 0.1560E-02,& - 0.1584E-02, 0.1631E-02, 0.1679E-02, 0.1727E-02,& - 0.1774E-02, 0.1822E-02, 0.1846E-02, 0.1894E-02,& - 0.1941E-02, 0.1989E-02, 0.2037E-02, 0.2108E-02,& - 0.2156E-02, 0.2203E-02, 0.2251E-02, 0.2299E-02,& - 0.2370E-02, 0.2418E-02, 0.2466E-02, 0.2537E-02,& - 0.2585E-02, 0.2656E-02, 0.2704E-02, 0.2776E-02,& - 0.2847E-02, 0.2895E-02, 0.2966E-02, 0.3038E-02,& - 0.3086E-02, 0.3157E-02, 0.3229E-02, 0.3300E-02,& - 0.3372E-02, 0.3443E-02, 0.3515E-02, 0.3610E-02,& - 0.3682E-02, 0.3753E-02, 0.3825E-02, 0.3920E-02,& - 0.3992E-02, 0.4063E-02, 0.4158E-02, 0.4254E-02,& - 0.4325E-02, 0.4421E-02, 0.4516E-02, 0.4588E-02,& - 0.4683E-02, 0.4778E-02, 0.4874E-02, 0.4969E-02,& - 0.5064E-02, 0.5160E-02, 0.5255E-02, 0.5374E-02,& - 0.5470E-02, 0.5565E-02, 0.5684E-02, 0.5780E-02,& - 0.5899E-02, 0.5994E-02, 0.6114E-02, 0.6233E-02,& - 0.6352E-02, 0.6471E-02, 0.6590E-02, 0.6710E-02,& - 0.6829E-02, 0.6948E-02, 0.7067E-02, 0.7186E-02,& - 0.7329E-02, 0.7449E-02, 0.7592E-02, 0.7711E-02,& - 0.7854E-02, 0.7997E-02, 0.8140E-02, 0.8259E-02,& - 0.8402E-02, 0.8545E-02, 0.8712E-02, 0.8855E-02,& - 0.8998E-02, 0.9141E-02, 0.9308E-02, 0.9451E-02,& - 0.9618E-02, 0.9785E-02, 0.9928E-02, 0.1010E-01,& - 0.1026E-01, 0.1043E-01, 0.1060E-01, 0.1076E-01,& - 0.1095E-01, 0.1112E-01, 0.1129E-01, 0.1148E-01,& - 0.1167E-01, 0.1184E-01, 0.1203E-01, 0.1222E-01,& - 0.1241E-01, 0.1260E-01, 0.1279E-01, 0.1298E-01,& - 0.1319E-01, 0.1339E-01, 0.1360E-01, 0.1379E-01,& - 0.1401E-01, 0.1422E-01, 0.1443E-01, 0.1465E-01,& - 0.1486E-01, 0.1510E-01, 0.1532E-01, 0.1553E-01,& - 0.1577E-01, 0.1601E-01, 0.1622E-01, 0.1646E-01,& - 0.1670E-01, 0.1694E-01, 0.1720E-01, 0.1744E-01,& - 0.1768E-01, 0.1794E-01, 0.1820E-01, 0.1844E-01,& - 0.1870E-01, 0.1896E-01, 0.1923E-01, 0.1951E-01,& - 0.1977E-01, 0.2004E-01, 0.2032E-01, 0.2061E-01,& - 0.2090E-01, 0.2116E-01, 0.2147E-01, 0.2175E-01,& - 0.2204E-01, 0.2235E-01, 0.2264E-01, 0.2295E-01,& - 0.2326E-01, 0.2357E-01, 0.2388E-01, 0.2419E-01,& - 0.2450E-01, 0.2483E-01, 0.2514E-01, 0.2547E-01,& - 0.2581E-01, 0.2614E-01, 0.2647E-01, 0.2681E-01,& - 0.2717E-01, 0.2752E-01, 0.2786E-01, 0.2821E-01,& - 0.2857E-01, 0.2893E-01, 0.2931E-01, 0.2967E-01,& - 0.3005E-01, 0.3041E-01, 0.3079E-01, 0.3117E-01,& - 0.3155E-01, 0.3196E-01, 0.3234E-01, 0.3274E-01,& - 0.3315E-01, 0.3356E-01, 0.3396E-01, 0.3437E-01,& - 0.3477E-01, 0.3520E-01, 0.3563E-01, 0.3604E-01,& - 0.3649E-01, 0.3692E-01, 0.3735E-01, 0.3780E-01,& - 0.3823E-01, 0.3868E-01, 0.3913E-01, 0.3961E-01,& - 0.4006E-01, 0.4054E-01, 0.4099E-01, 0.4147E-01,& - 0.4195E-01, 0.4242E-01, 0.4293E-01, 0.4343E-01,& - 0.4390E-01, 0.4440E-01, 0.4490E-01, 0.4543E-01,& - 0.4593E-01, 0.4645E-01, 0.4698E-01, 0.4750E-01,& - 0.4803E-01, 0.4858E-01, 0.4910E-01, 0.4965E-01,& - 0.5020E-01, 0.5075E-01, 0.5132E-01, 0.5187E-01,& - 0.5244E-01, 0.5301E-01, 0.5358E-01, 0.5418E-01,& - 0.5475E-01, 0.5535E-01, 0.5594E-01, 0.5656E-01,& - 0.5716E-01, 0.5778E-01, 0.5837E-01, 0.5902E-01,& - 0.5964E-01, 0.6026E-01, 0.6090E-01, 0.6155E-01,& - 0.6219E-01, 0.6283E-01, 0.6350E-01, 0.6417E-01,& - 0.6484E-01, 0.6550E-01, 0.6617E-01, 0.6686E-01,& - 0.6755E-01, 0.6825E-01, 0.6894E-01, 0.6965E-01,& - 0.7037E-01, 0.7108E-01, 0.7180E-01, 0.7254E-01,& - 0.7325E-01, 0.7399E-01, 0.7475E-01, 0.7549E-01,& - 0.7626E-01, 0.7702E-01, 0.7778E-01, 0.7855E-01,& - 0.7933E-01, 0.8012E-01, 0.8091E-01, 0.8172E-01,& - 0.8253E-01, 0.8331E-01, 0.8415E-01, 0.8496E-01,& - 0.8579E-01, 0.8663E-01, 0.8746E-01, 0.8832E-01,& - 0.8918E-01, 0.9004E-01, 0.9090E-01, 0.9175E-01,& - 0.9264E-01, 0.9352E-01, 0.9442E-01, 0.9533E-01,& - 0.9624E-01, 0.9714E-01, 0.9805E-01, 0.9898E-01,& - 0.9991E-01, 0.1009E+00, 0.1018E+00, 0.1027E+00,& - 0.1037E+00, 0.1047E+00, 0.1057E+00, 0.1066E+00,& - 0.1076E+00, 0.1086E+00, 0.1096E+00, 0.1106E+00,& - 0.1116E+00, 0.1127E+00, 0.1137E+00, 0.1147E+00,& - 0.1158E+00, 0.1168E+00, 0.1179E+00, 0.1190E+00,& - 0.1200E+00, 0.1211E+00, 0.1222E+00, 0.1233E+00,& - 0.1244E+00, 0.1255E+00, 0.1266E+00, 0.1278E+00,& - 0.1289E+00, 0.1300E+00, 0.1312E+00, 0.1324E+00,& - 0.1335E+00, 0.1347E+00, 0.1359E+00, 0.1371E+00,& - 0.1383E+00, 0.1395E+00, 0.1407E+00, 0.1419E+00,& - 0.1432E+00, 0.1444E+00, 0.1457E+00, 0.1469E+00,& - 0.1482E+00, 0.1495E+00, 0.1507E+00, 0.1520E+00,& - 0.1533E+00, 0.1546E+00, 0.1560E+00, 0.1573E+00,& - 0.1586E+00, 0.1600E+00, 0.1613E+00, 0.1627E+00,& - 0.1641E+00, 0.1655E+00, 0.1669E+00, 0.1683E+00,& - 0.1697E+00, 0.1711E+00, 0.1725E+00, 0.1740E+00,& - 0.1754E+00, 0.1769E+00, 0.1783E+00, 0.1798E+00,& - 0.1813E+00, 0.1828E+00, 0.1843E+00, 0.1858E+00,& - 0.1874E+00, 0.1889E+00, 0.1904E+00, 0.1920E+00,& - 0.1936E+00, 0.1951E+00, 0.1967E+00, 0.1983E+00,& - 0.1999E+00, 0.2015E+00, 0.2032E+00, 0.2048E+00,& - 0.2065E+00, 0.2081E+00, 0.2098E+00, 0.2115E+00,& - 0.2132E+00, 0.2149E+00, 0.2166E+00, 0.2183E+00,& - 0.2200E+00, 0.2218E+00, 0.2236E+00, 0.2253E+00,& - 0.2271E+00, 0.2289E+00, 0.2307E+00, 0.2325E+00,& - 0.2344E+00, 0.2362E+00, 0.2380E+00, 0.2399E+00,& - 0.2418E+00, 0.2437E+00, 0.2456E+00, 0.2475E+00,& - 0.2494E+00, 0.2513E+00, 0.2533E+00, 0.2552E+00,& - 0.2572E+00, 0.2592E+00, 0.2612E+00, 0.2632E+00,& - 0.2652E+00, 0.2672E+00, 0.2693E+00, 0.2714E+00,& - 0.2734E+00, 0.2755E+00, 0.2776E+00, 0.2797E+00,& - 0.2818E+00, 0.2840E+00, 0.2861E+00, 0.2883E+00,& - 0.2905E+00, 0.2926E+00, 0.2949E+00, 0.2971E+00,& - 0.2993E+00, 0.3016E+00, 0.3038E+00, 0.3061E+00,& - 0.3084E+00, 0.3107E+00, 0.3130E+00, 0.3153E+00,& - 0.3177E+00, 0.3200E+00, 0.3224E+00, 0.3248E+00,& - 0.3272E+00, 0.3296E+00, 0.3320E+00, 0.3345E+00,& - 0.3369E+00, 0.3394E+00, 0.3419E+00, 0.3444E+00,& - 0.3469E+00, 0.3495E+00, 0.3520E+00, 0.3546E+00,& - 0.3572E+00, 0.3598E+00, 0.3624E+00, 0.3650E+00,& - 0.3677E+00, 0.3703E+00, 0.3730E+00, 0.3757E+00,& - 0.3785E+00, 0.3812E+00, 0.3839E+00, 0.3867E+00,& - 0.3895E+00, 0.3923E+00, 0.3951E+00, 0.3979E+00,& - 0.4008E+00, 0.4036E+00, 0.4065E+00, 0.4094E+00,& - 0.4123E+00, 0.4153E+00, 0.4182E+00, 0.4212E+00,& - 0.4242E+00, 0.4272E+00, 0.4302E+00, 0.4333E+00,& - 0.4363E+00, 0.4394E+00, 0.4425E+00, 0.4456E+00,& - 0.4488E+00, 0.4519E+00, 0.4551E+00, 0.4583E+00,& - 0.4615E+00, 0.4648E+00, 0.4680E+00, 0.4713E+00,& - 0.4746E+00, 0.4779E+00, 0.4812E+00, 0.4846E+00,& - 0.4880E+00, 0.4913E+00, 0.4948E+00, 0.4982E+00,& - 0.5017E+00, 0.5051E+00, 0.5086E+00, 0.5122E+00,& - 0.5157E+00, 0.5193E+00, 0.5229E+00, 0.5265E+00,& - 0.5301E+00, 0.5337E+00, 0.5374E+00, 0.5411E+00,& - 0.5448E+00, 0.5486E+00, 0.5523E+00, 0.5561E+00,& - 0.5599E+00, 0.5638E+00, 0.5676E+00, 0.5715E+00,& - 0.5754E+00, 0.5793E+00, 0.5833E+00, 0.5873E+00,& - 0.5913E+00, 0.5953E+00, 0.5993E+00, 0.6034E+00,& - 0.6075E+00, 0.6116E+00, 0.6158E+00, 0.6199E+00,& - 0.6241E+00, 0.6284E+00, 0.6326E+00, 0.6369E+00,& - 0.6412E+00, 0.6456E+00, 0.6499E+00, 0.6543E+00,& - 0.6587E+00, 0.6631E+00, 0.6676E+00, 0.6721E+00,& - 0.6766E+00, 0.6811E+00, 0.6857E+00, 0.6904E+00,& - 0.6950E+00, 0.6996E+00, 0.7043E+00, 0.7090E+00,& - 0.7138E+00, 0.7186E+00, 0.7234E+00, 0.7282E+00,& - 0.7331E+00, 0.7380E+00, 0.7429E+00, 0.7479E+00,& - 0.7529E+00, 0.7579E+00, 0.7629E+00, 0.7681E+00,& - 0.7732E+00, 0.7783E+00, 0.7835E+00, 0.7887E+00,& - 0.7940E+00, 0.7992E+00, 0.8046E+00, 0.8099E+00,& - 0.8153E+00, 0.8207E+00, 0.8262E+00, 0.8316E+00,& - 0.8372E+00, 0.8427E+00, 0.8483E+00, 0.8539E+00,& - 0.8596E+00, 0.8653E+00, 0.8710E+00, 0.8768E+00,& - 0.8826E+00, 0.8885E+00, 0.8943E+00, 0.9003E+00,& - 0.9062E+00, 0.9122E+00, 0.9183E+00, 0.9243E+00,& - 0.9304E+00, 0.9366E+00, 0.9428E+00, 0.9490E+00,& - 0.9553E+00, 0.9616E+00, 0.9680E+00, 0.9744E+00,& - 0.9808E+00, 0.9873E+00, 0.9939E+00, 0.1000E+01,& - 0.1007E+01, 0.1014E+01, 0.1020E+01, 0.1027E+01,& - 0.1034E+01, 0.1041E+01, 0.1048E+01, 0.1055E+01,& - 0.1062E+01, 0.1069E+01, 0.1076E+01, 0.1083E+01,& - 0.1090E+01, 0.1097E+01, 0.1104E+01, 0.1112E+01,& - 0.1119E+01, 0.1127E+01, 0.1134E+01, 0.1141E+01,& - 0.1149E+01, 0.1157E+01, 0.1164E+01, 0.1172E+01,& - 0.1180E+01, 0.1188E+01, 0.1196E+01, 0.1203E+01,& - 0.1211E+01, 0.1220E+01, 0.1228E+01, 0.1236E+01,& - 0.1244E+01, 0.1252E+01, 0.1261E+01, 0.1269E+01,& - 0.1278E+01, 0.1286E+01, 0.1295E+01, 0.1303E+01,& - 0.1312E+01, 0.1321E+01, 0.1330E+01, 0.1338E+01,& - 0.1347E+01, 0.1356E+01, 0.1366E+01, 0.1375E+01,& - 0.1384E+01, 0.1393E+01, 0.1403E+01, 0.1412E+01,& - 0.1421E+01, 0.1431E+01, 0.1441E+01, 0.1450E+01,& - 0.1460E+01, 0.1470E+01, 0.1480E+01, 0.1490E+01,& - 0.1500E+01, 0.1510E+01, 0.1520E+01, 0.1531E+01,& - 0.1541E+01, 0.1552E+01, 0.1562E+01, 0.1573E+01,& - 0.1584E+01, 0.1594E+01, 0.1605E+01, 0.1616E+01,& - 0.1627E+01, 0.1638E+01, 0.1650E+01, 0.1661E+01,& - 0.1672E+01, 0.1684E+01, 0.1696E+01, 0.1707E+01,& - 0.1719E+01, 0.1731E+01, 0.1743E+01, 0.1755E+01,& - 0.1767E+01, 0.1779E+01, 0.1792E+01, 0.1804E+01,& - 0.1817E+01, 0.1830E+01, 0.1842E+01, 0.1855E+01,& - 0.1868E+01, 0.1882E+01, 0.1895E+01, 0.1908E+01,& - 0.1922E+01, 0.1935E+01, 0.1949E+01, 0.1963E+01,& - 0.1977E+01, 0.1991E+01, 0.2005E+01, 0.2019E+01,& - 0.2034E+01, 0.2049E+01, 0.2063E+01, 0.2078E+01,& - 0.2093E+01, 0.2108E+01, 0.2124E+01, 0.2139E+01,& - 0.2155E+01, 0.2170E+01, 0.2186E+01, 0.2202E+01,& - 0.2218E+01, 0.2235E+01, 0.2251E+01, 0.2268E+01,& - 0.2285E+01, 0.2302E+01, 0.2319E+01, 0.2336E+01,& - 0.2353E+01, 0.2371E+01, 0.2389E+01, 0.2407E+01,& - 0.2425E+01, 0.2444E+01, 0.2462E+01, 0.2481E+01,& - 0.2500E+01, 0.2519E+01, 0.2538E+01, 0.2558E+01,& - 0.2578E+01, 0.2598E+01, 0.2618E+01, 0.2638E+01,& - 0.2659E+01, 0.2680E+01, 0.2701E+01, 0.2722E+01,& - 0.2744E+01, 0.2766E+01, 0.2788E+01, 0.2810E+01,& - 0.2833E+01, 0.2856E+01, 0.2879E+01, 0.2902E+01,& - 0.2926E+01, 0.2950E+01, 0.2974E+01, 0.2999E+01,& - 0.3024E+01, 0.3049E+01, 0.3075E+01, 0.3101E+01,& - 0.3127E+01, 0.3153E+01, 0.3180E+01, 0.3208E+01,& - 0.3235E+01, 0.3263E+01, 0.3291E+01, 0.3320E+01,& - 0.3349E+01, 0.3379E+01, 0.3409E+01, 0.3439E+01,& - 0.3470E+01, 0.3501E+01, 0.3533E+01, 0.3565E+01,& - 0.3598E+01, 0.3631E+01, 0.3662E+01, 0.3699E+01,& - 0.3734E+01, 0.3770E+01, 0.3805E+01, 0.3842E+01,& - 0.3879E+01, 0.3917E+01, 0.3955E+01, 0.3994E+01,& - 0.4034E+01, 0.4074E+01, 0.4115E+01, 0.4157E+01,& - 0.4200E+01, 0.4243E+01, 0.4288E+01, 0.4333E+01,& - 0.4379E+01, 0.4426E+01, 0.4473E+01, 0.4522E+01,& - 0.4572E+01, 0.4623E+01, 0.4675E+01, 0.4728E+01,& - 0.4782E+01, 0.4838E+01, 0.4894E+01, 0.4952E+01,& - 0.5012E+01, 0.5073E+01, 0.5135E+01, 0.5199E+01,& - 0.5265E+01, 0.5332E+01, 0.5402E+01, 0.5473E+01,& - 0.5546E+01, 0.5621E+01, 0.5699E+01, 0.5779E+01,& - 0.5861E+01, 0.5946E+01, 0.6034E+01, 0.6125E+01,& - 0.6219E+01, 0.6316E+01, 0.6417E+01, 0.6522E+01,& - 0.6631E+01, 0.6745E+01, 0.6863E+01, 0.6987E+01,& - 0.7117E+01, 0.7252E+01, 0.7395E+01, 0.7545E+01,& - 0.7703E+01, 0.7871E+01, 0.8049E+01, 0.8238E+01,& - 0.8441E+01, 0.8658E+01, 0.8893E+01, 0.9148E+01,& - 0.9426E+01, 0.9732E+01, 0.1007E+02, 0.1046E+02,& - 0.1089E+02, 0.1140E+02, 0.1200E+02, 0.1275E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 78) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3432E-04, 0.3432E-04, 0.3432E-04, 0.3432E-04,& - 0.3432E-04, 0.3432E-04, 0.3432E-04, 0.3432E-04,& - 0.3432E-04, 0.5864E-04, 0.5864E-04, 0.5864E-04,& - 0.5864E-04, 0.5864E-04, 0.5864E-04, 0.8297E-04,& - 0.8297E-04, 0.8297E-04, 0.8297E-04, 0.8297E-04,& - 0.1073E-03, 0.1073E-03, 0.1073E-03, 0.1073E-03,& - 0.1073E-03, 0.1316E-03, 0.1316E-03, 0.1316E-03,& - 0.1559E-03, 0.1559E-03, 0.1559E-03, 0.1559E-03,& - 0.1803E-03, 0.1803E-03, 0.1803E-03, 0.2046E-03,& - 0.2046E-03, 0.2046E-03, 0.2289E-03, 0.2289E-03,& - 0.2532E-03, 0.2532E-03, 0.2775E-03, 0.2775E-03,& - 0.2775E-03, 0.3019E-03, 0.3019E-03, 0.3262E-03,& - 0.3262E-03, 0.3505E-03, 0.3748E-03, 0.3748E-03,& - 0.3991E-03, 0.3991E-03, 0.4235E-03, 0.4478E-03,& - 0.4478E-03, 0.4721E-03, 0.4721E-03, 0.4964E-03,& - 0.5208E-03, 0.5451E-03, 0.5451E-03, 0.5694E-03,& - 0.5937E-03, 0.6180E-03, 0.6424E-03, 0.6424E-03,& - 0.6667E-03, 0.6910E-03, 0.7153E-03, 0.7397E-03,& - 0.7640E-03, 0.7883E-03, 0.8126E-03, 0.8369E-03,& - 0.8613E-03, 0.8856E-03, 0.9099E-03, 0.9342E-03,& - 0.9585E-03, 0.1007E-02, 0.1032E-02, 0.1056E-02,& - 0.1080E-02, 0.1104E-02, 0.1153E-02, 0.1177E-02,& - 0.1202E-02, 0.1250E-02, 0.1275E-02, 0.1323E-02,& - 0.1348E-02, 0.1372E-02, 0.1421E-02, 0.1469E-02,& - 0.1494E-02, 0.1542E-02, 0.1567E-02, 0.1615E-02,& - 0.1664E-02, 0.1688E-02, 0.1737E-02, 0.1785E-02,& - 0.1834E-02, 0.1883E-02, 0.1931E-02, 0.1980E-02,& - 0.2029E-02, 0.2077E-02, 0.2126E-02, 0.2175E-02,& - 0.2223E-02, 0.2272E-02, 0.2321E-02, 0.2369E-02,& - 0.2442E-02, 0.2491E-02, 0.2539E-02, 0.2612E-02,& - 0.2661E-02, 0.2734E-02, 0.2783E-02, 0.2856E-02,& - 0.2904E-02, 0.2977E-02, 0.3050E-02, 0.3099E-02,& - 0.3172E-02, 0.3245E-02, 0.3318E-02, 0.3391E-02,& - 0.3464E-02, 0.3537E-02, 0.3610E-02, 0.3683E-02,& - 0.3756E-02, 0.3829E-02, 0.3926E-02, 0.3999E-02,& - 0.4072E-02, 0.4169E-02, 0.4242E-02, 0.4339E-02,& - 0.4412E-02, 0.4510E-02, 0.4582E-02, 0.4680E-02,& - 0.4777E-02, 0.4874E-02, 0.4972E-02, 0.5069E-02,& - 0.5166E-02, 0.5263E-02, 0.5361E-02, 0.5458E-02,& - 0.5555E-02, 0.5677E-02, 0.5774E-02, 0.5872E-02,& - 0.5993E-02, 0.6090E-02, 0.6212E-02, 0.6334E-02,& - 0.6431E-02, 0.6553E-02, 0.6674E-02, 0.6796E-02,& - 0.6917E-02, 0.7039E-02, 0.7161E-02, 0.7307E-02,& - 0.7428E-02, 0.7550E-02, 0.7696E-02, 0.7817E-02,& - 0.7963E-02, 0.8085E-02, 0.8231E-02, 0.8377E-02,& - 0.8523E-02, 0.8669E-02, 0.8814E-02, 0.8960E-02,& - 0.9106E-02, 0.9252E-02, 0.9398E-02, 0.9568E-02,& - 0.9714E-02, 0.9885E-02, 0.1005E-01, 0.1020E-01,& - 0.1037E-01, 0.1054E-01, 0.1071E-01, 0.1088E-01,& - 0.1105E-01, 0.1122E-01, 0.1142E-01, 0.1159E-01,& - 0.1178E-01, 0.1195E-01, 0.1215E-01, 0.1234E-01,& - 0.1254E-01, 0.1273E-01, 0.1292E-01, 0.1312E-01,& - 0.1331E-01, 0.1351E-01, 0.1373E-01, 0.1392E-01,& - 0.1414E-01, 0.1436E-01, 0.1455E-01, 0.1477E-01,& - 0.1499E-01, 0.1521E-01, 0.1545E-01, 0.1567E-01,& - 0.1589E-01, 0.1614E-01, 0.1638E-01, 0.1660E-01,& - 0.1684E-01, 0.1708E-01, 0.1733E-01, 0.1757E-01,& - 0.1784E-01, 0.1808E-01, 0.1832E-01, 0.1859E-01,& - 0.1886E-01, 0.1913E-01, 0.1939E-01, 0.1966E-01,& - 0.1993E-01, 0.2020E-01, 0.2049E-01, 0.2076E-01,& - 0.2105E-01, 0.2134E-01, 0.2163E-01, 0.2192E-01,& - 0.2222E-01, 0.2251E-01, 0.2280E-01, 0.2312E-01,& - 0.2343E-01, 0.2372E-01, 0.2404E-01, 0.2436E-01,& - 0.2470E-01, 0.2501E-01, 0.2533E-01, 0.2567E-01,& - 0.2601E-01, 0.2633E-01, 0.2667E-01, 0.2703E-01,& - 0.2737E-01, 0.2771E-01, 0.2808E-01, 0.2842E-01,& - 0.2878E-01, 0.2915E-01, 0.2951E-01, 0.2988E-01,& - 0.3027E-01, 0.3063E-01, 0.3102E-01, 0.3141E-01,& - 0.3180E-01, 0.3219E-01, 0.3258E-01, 0.3299E-01,& - 0.3338E-01, 0.3379E-01, 0.3421E-01, 0.3462E-01,& - 0.3503E-01, 0.3547E-01, 0.3588E-01, 0.3632E-01,& - 0.3676E-01, 0.3720E-01, 0.3764E-01, 0.3807E-01,& - 0.3854E-01, 0.3900E-01, 0.3944E-01, 0.3990E-01,& - 0.4038E-01, 0.4085E-01, 0.4133E-01, 0.4179E-01,& - 0.4228E-01, 0.4277E-01, 0.4325E-01, 0.4376E-01,& - 0.4425E-01, 0.4476E-01, 0.4527E-01, 0.4578E-01,& - 0.4632E-01, 0.4683E-01, 0.4736E-01, 0.4790E-01,& - 0.4843E-01, 0.4897E-01, 0.4953E-01, 0.5006E-01,& - 0.5062E-01, 0.5118E-01, 0.5174E-01, 0.5233E-01,& - 0.5289E-01, 0.5347E-01, 0.5405E-01, 0.5464E-01,& - 0.5524E-01, 0.5583E-01, 0.5644E-01, 0.5704E-01,& - 0.5765E-01, 0.5828E-01, 0.5892E-01, 0.5953E-01,& - 0.6018E-01, 0.6081E-01, 0.6145E-01, 0.6210E-01,& - 0.6276E-01, 0.6342E-01, 0.6410E-01, 0.6475E-01,& - 0.6544E-01, 0.6612E-01, 0.6680E-01, 0.6750E-01,& - 0.6821E-01, 0.6891E-01, 0.6962E-01, 0.7032E-01,& - 0.7105E-01, 0.7178E-01, 0.7251E-01, 0.7324E-01,& - 0.7400E-01, 0.7475E-01, 0.7550E-01, 0.7626E-01,& - 0.7704E-01, 0.7782E-01, 0.7859E-01, 0.7937E-01,& - 0.8017E-01, 0.8095E-01, 0.8176E-01, 0.8258E-01,& - 0.8338E-01, 0.8421E-01, 0.8504E-01, 0.8589E-01,& - 0.8672E-01, 0.8757E-01, 0.8842E-01, 0.8929E-01,& - 0.9015E-01, 0.9102E-01, 0.9192E-01, 0.9280E-01,& - 0.9370E-01, 0.9460E-01, 0.9550E-01, 0.9642E-01,& - 0.9735E-01, 0.9827E-01, 0.9919E-01, 0.1001E+00,& - 0.1011E+00, 0.1020E+00, 0.1030E+00, 0.1040E+00,& - 0.1050E+00, 0.1059E+00, 0.1069E+00, 0.1079E+00,& - 0.1089E+00, 0.1099E+00, 0.1110E+00, 0.1120E+00,& - 0.1130E+00, 0.1141E+00, 0.1151E+00, 0.1162E+00,& - 0.1173E+00, 0.1183E+00, 0.1194E+00, 0.1205E+00,& - 0.1216E+00, 0.1227E+00, 0.1238E+00, 0.1249E+00,& - 0.1261E+00, 0.1272E+00, 0.1283E+00, 0.1295E+00,& - 0.1307E+00, 0.1318E+00, 0.1330E+00, 0.1342E+00,& - 0.1354E+00, 0.1366E+00, 0.1378E+00, 0.1390E+00,& - 0.1402E+00, 0.1415E+00, 0.1427E+00, 0.1440E+00,& - 0.1452E+00, 0.1465E+00, 0.1478E+00, 0.1491E+00,& - 0.1504E+00, 0.1517E+00, 0.1530E+00, 0.1543E+00,& - 0.1556E+00, 0.1570E+00, 0.1583E+00, 0.1597E+00,& - 0.1611E+00, 0.1625E+00, 0.1638E+00, 0.1652E+00,& - 0.1666E+00, 0.1681E+00, 0.1695E+00, 0.1709E+00,& - 0.1724E+00, 0.1738E+00, 0.1753E+00, 0.1768E+00,& - 0.1783E+00, 0.1797E+00, 0.1813E+00, 0.1828E+00,& - 0.1843E+00, 0.1858E+00, 0.1874E+00, 0.1889E+00,& - 0.1905E+00, 0.1921E+00, 0.1937E+00, 0.1953E+00,& - 0.1969E+00, 0.1985E+00, 0.2001E+00, 0.2018E+00,& - 0.2034E+00, 0.2051E+00, 0.2067E+00, 0.2084E+00,& - 0.2101E+00, 0.2118E+00, 0.2136E+00, 0.2153E+00,& - 0.2170E+00, 0.2188E+00, 0.2205E+00, 0.2223E+00,& - 0.2241E+00, 0.2259E+00, 0.2277E+00, 0.2295E+00,& - 0.2314E+00, 0.2332E+00, 0.2351E+00, 0.2369E+00,& - 0.2388E+00, 0.2407E+00, 0.2426E+00, 0.2445E+00,& - 0.2464E+00, 0.2484E+00, 0.2504E+00, 0.2523E+00,& - 0.2543E+00, 0.2563E+00, 0.2583E+00, 0.2603E+00,& - 0.2623E+00, 0.2644E+00, 0.2664E+00, 0.2685E+00,& - 0.2706E+00, 0.2727E+00, 0.2748E+00, 0.2769E+00,& - 0.2791E+00, 0.2812E+00, 0.2834E+00, 0.2855E+00,& - 0.2877E+00, 0.2899E+00, 0.2922E+00, 0.2944E+00,& - 0.2966E+00, 0.2989E+00, 0.3012E+00, 0.3035E+00,& - 0.3058E+00, 0.3081E+00, 0.3104E+00, 0.3128E+00,& - 0.3151E+00, 0.3175E+00, 0.3199E+00, 0.3223E+00,& - 0.3248E+00, 0.3272E+00, 0.3296E+00, 0.3321E+00,& - 0.3346E+00, 0.3371E+00, 0.3396E+00, 0.3421E+00,& - 0.3447E+00, 0.3473E+00, 0.3498E+00, 0.3524E+00,& - 0.3550E+00, 0.3577E+00, 0.3603E+00, 0.3630E+00,& - 0.3656E+00, 0.3683E+00, 0.3710E+00, 0.3738E+00,& - 0.3765E+00, 0.3793E+00, 0.3821E+00, 0.3849E+00,& - 0.3877E+00, 0.3905E+00, 0.3933E+00, 0.3962E+00,& - 0.3991E+00, 0.4020E+00, 0.4049E+00, 0.4079E+00,& - 0.4108E+00, 0.4138E+00, 0.4168E+00, 0.4198E+00,& - 0.4228E+00, 0.4259E+00, 0.4289E+00, 0.4320E+00,& - 0.4351E+00, 0.4383E+00, 0.4414E+00, 0.4446E+00,& - 0.4477E+00, 0.4510E+00, 0.4542E+00, 0.4574E+00,& - 0.4607E+00, 0.4640E+00, 0.4673E+00, 0.4706E+00,& - 0.4739E+00, 0.4773E+00, 0.4807E+00, 0.4841E+00,& - 0.4875E+00, 0.4910E+00, 0.4944E+00, 0.4979E+00,& - 0.5014E+00, 0.5050E+00, 0.5085E+00, 0.5121E+00,& - 0.5157E+00, 0.5194E+00, 0.5230E+00, 0.5267E+00,& - 0.5303E+00, 0.5341E+00, 0.5378E+00, 0.5416E+00,& - 0.5454E+00, 0.5492E+00, 0.5530E+00, 0.5569E+00,& - 0.5607E+00, 0.5646E+00, 0.5686E+00, 0.5725E+00,& - 0.5765E+00, 0.5805E+00, 0.5845E+00, 0.5886E+00,& - 0.5926E+00, 0.5967E+00, 0.6009E+00, 0.6050E+00,& - 0.6092E+00, 0.6134E+00, 0.6176E+00, 0.6219E+00,& - 0.6262E+00, 0.6305E+00, 0.6348E+00, 0.6392E+00,& - 0.6436E+00, 0.6480E+00, 0.6525E+00, 0.6569E+00,& - 0.6614E+00, 0.6660E+00, 0.6705E+00, 0.6751E+00,& - 0.6798E+00, 0.6844E+00, 0.6891E+00, 0.6938E+00,& - 0.6985E+00, 0.7033E+00, 0.7081E+00, 0.7129E+00,& - 0.7178E+00, 0.7227E+00, 0.7276E+00, 0.7325E+00,& - 0.7375E+00, 0.7425E+00, 0.7476E+00, 0.7526E+00,& - 0.7578E+00, 0.7629E+00, 0.7681E+00, 0.7733E+00,& - 0.7785E+00, 0.7838E+00, 0.7891E+00, 0.7945E+00,& - 0.7998E+00, 0.8053E+00, 0.8107E+00, 0.8162E+00,& - 0.8217E+00, 0.8272E+00, 0.8328E+00, 0.8385E+00,& - 0.8441E+00, 0.8498E+00, 0.8555E+00, 0.8613E+00,& - 0.8672E+00, 0.8730E+00, 0.8789E+00, 0.8848E+00,& - 0.8908E+00, 0.8968E+00, 0.9028E+00, 0.9089E+00,& - 0.9150E+00, 0.9212E+00, 0.9274E+00, 0.9336E+00,& - 0.9399E+00, 0.9463E+00, 0.9526E+00, 0.9590E+00,& - 0.9655E+00, 0.9720E+00, 0.9785E+00, 0.9851E+00,& - 0.9918E+00, 0.9984E+00, 0.1005E+01, 0.1012E+01,& - 0.1019E+01, 0.1026E+01, 0.1032E+01, 0.1039E+01,& - 0.1046E+01, 0.1053E+01, 0.1061E+01, 0.1068E+01,& - 0.1075E+01, 0.1082E+01, 0.1089E+01, 0.1097E+01,& - 0.1104E+01, 0.1112E+01, 0.1119E+01, 0.1127E+01,& - 0.1134E+01, 0.1142E+01, 0.1150E+01, 0.1157E+01,& - 0.1165E+01, 0.1173E+01, 0.1181E+01, 0.1189E+01,& - 0.1197E+01, 0.1205E+01, 0.1213E+01, 0.1221E+01,& - 0.1230E+01, 0.1238E+01, 0.1246E+01, 0.1255E+01,& - 0.1263E+01, 0.1272E+01, 0.1281E+01, 0.1289E+01,& - 0.1298E+01, 0.1307E+01, 0.1316E+01, 0.1325E+01,& - 0.1334E+01, 0.1343E+01, 0.1352E+01, 0.1361E+01,& - 0.1370E+01, 0.1380E+01, 0.1389E+01, 0.1399E+01,& - 0.1408E+01, 0.1418E+01, 0.1428E+01, 0.1437E+01,& - 0.1447E+01, 0.1457E+01, 0.1467E+01, 0.1477E+01,& - 0.1487E+01, 0.1498E+01, 0.1508E+01, 0.1518E+01,& - 0.1529E+01, 0.1539E+01, 0.1550E+01, 0.1561E+01,& - 0.1572E+01, 0.1582E+01, 0.1593E+01, 0.1604E+01,& - 0.1616E+01, 0.1627E+01, 0.1638E+01, 0.1650E+01,& - 0.1661E+01, 0.1673E+01, 0.1685E+01, 0.1696E+01,& - 0.1708E+01, 0.1720E+01, 0.1732E+01, 0.1745E+01,& - 0.1757E+01, 0.1769E+01, 0.1782E+01, 0.1794E+01,& - 0.1807E+01, 0.1820E+01, 0.1833E+01, 0.1846E+01,& - 0.1859E+01, 0.1872E+01, 0.1886E+01, 0.1899E+01,& - 0.1913E+01, 0.1927E+01, 0.1940E+01, 0.1954E+01,& - 0.1969E+01, 0.1983E+01, 0.1997E+01, 0.2012E+01,& - 0.2026E+01, 0.2041E+01, 0.2056E+01, 0.2071E+01,& - 0.2086E+01, 0.2101E+01, 0.2117E+01, 0.2133E+01,& - 0.2148E+01, 0.2164E+01, 0.2180E+01, 0.2196E+01,& - 0.2213E+01, 0.2229E+01, 0.2246E+01, 0.2263E+01,& - 0.2280E+01, 0.2297E+01, 0.2314E+01, 0.2332E+01,& - 0.2350E+01, 0.2367E+01, 0.2386E+01, 0.2404E+01,& - 0.2422E+01, 0.2441E+01, 0.2460E+01, 0.2479E+01,& - 0.2498E+01, 0.2517E+01, 0.2537E+01, 0.2557E+01,& - 0.2577E+01, 0.2597E+01, 0.2617E+01, 0.2638E+01,& - 0.2659E+01, 0.2680E+01, 0.2702E+01, 0.2723E+01,& - 0.2745E+01, 0.2767E+01, 0.2790E+01, 0.2813E+01,& - 0.2836E+01, 0.2859E+01, 0.2882E+01, 0.2906E+01,& - 0.2930E+01, 0.2954E+01, 0.2979E+01, 0.3004E+01,& - 0.3029E+01, 0.3055E+01, 0.3081E+01, 0.3107E+01,& - 0.3134E+01, 0.3161E+01, 0.3188E+01, 0.3216E+01,& - 0.3244E+01, 0.3272E+01, 0.3301E+01, 0.3330E+01,& - 0.3360E+01, 0.3390E+01, 0.3420E+01, 0.3451E+01,& - 0.3482E+01, 0.3514E+01, 0.3546E+01, 0.3579E+01,& - 0.3612E+01, 0.3646E+01, 0.3680E+01, 0.3715E+01,& - 0.3751E+01, 0.3787E+01, 0.3823E+01, 0.3860E+01,& - 0.3898E+01, 0.3936E+01, 0.3975E+01, 0.4015E+01,& - 0.4055E+01, 0.4096E+01, 0.4138E+01, 0.4181E+01,& - 0.4224E+01, 0.4268E+01, 0.4313E+01, 0.4359E+01,& - 0.4406E+01, 0.4454E+01, 0.4503E+01, 0.4552E+01,& - 0.4603E+01, 0.4655E+01, 0.4708E+01, 0.4762E+01,& - 0.4817E+01, 0.4873E+01, 0.4931E+01, 0.4990E+01,& - 0.5051E+01, 0.5113E+01, 0.5176E+01, 0.5242E+01,& - 0.5309E+01, 0.5377E+01, 0.5448E+01, 0.5520E+01,& - 0.5595E+01, 0.5672E+01, 0.5751E+01, 0.5832E+01,& - 0.5916E+01, 0.6003E+01, 0.6092E+01, 0.6185E+01,& - 0.6281E+01, 0.6380E+01, 0.6483E+01, 0.6590E+01,& - 0.6701E+01, 0.6817E+01, 0.6938E+01, 0.7064E+01,& - 0.7197E+01, 0.7335E+01, 0.7481E+01, 0.7634E+01,& - 0.7795E+01, 0.7966E+01, 0.8148E+01, 0.8341E+01,& - 0.8548E+01, 0.8770E+01, 0.9010E+01, 0.9270E+01,& - 0.9554E+01, 0.9867E+01, 0.1022E+02, 0.1061E+02,& - 0.1105E+02, 0.1157E+02, 0.1219E+02, 0.1295E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 79) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3481E-04, 0.3481E-04, 0.3481E-04, 0.3481E-04,& - 0.3481E-04, 0.3481E-04, 0.3481E-04, 0.3481E-04,& - 0.3481E-04, 0.3481E-04, 0.5961E-04, 0.5961E-04,& - 0.5961E-04, 0.5961E-04, 0.5961E-04, 0.5961E-04,& - 0.8442E-04, 0.8442E-04, 0.8442E-04, 0.8442E-04,& - 0.8442E-04, 0.8442E-04, 0.1092E-03, 0.1092E-03,& - 0.1092E-03, 0.1092E-03, 0.1340E-03, 0.1340E-03,& - 0.1340E-03, 0.1340E-03, 0.1588E-03, 0.1588E-03,& - 0.1588E-03, 0.1837E-03, 0.1837E-03, 0.1837E-03,& - 0.2085E-03, 0.2085E-03, 0.2085E-03, 0.2333E-03,& - 0.2333E-03, 0.2333E-03, 0.2581E-03, 0.2581E-03,& - 0.2829E-03, 0.2829E-03, 0.2829E-03, 0.3077E-03,& - 0.3077E-03, 0.3325E-03, 0.3325E-03, 0.3573E-03,& - 0.3573E-03, 0.3821E-03, 0.4069E-03, 0.4069E-03,& - 0.4317E-03, 0.4317E-03, 0.4565E-03, 0.4813E-03,& - 0.4813E-03, 0.5061E-03, 0.5310E-03, 0.5310E-03,& - 0.5558E-03, 0.5806E-03, 0.6054E-03, 0.6054E-03,& - 0.6302E-03, 0.6550E-03, 0.6798E-03, 0.7046E-03,& - 0.7046E-03, 0.7294E-03, 0.7542E-03, 0.7790E-03,& - 0.8038E-03, 0.8286E-03, 0.8535E-03, 0.8783E-03,& - 0.9031E-03, 0.9279E-03, 0.9527E-03, 0.9775E-03,& - 0.1027E-02, 0.1052E-02, 0.1077E-02, 0.1102E-02,& - 0.1126E-02, 0.1176E-02, 0.1201E-02, 0.1226E-02,& - 0.1275E-02, 0.1300E-02, 0.1325E-02, 0.1374E-02,& - 0.1399E-02, 0.1449E-02, 0.1474E-02, 0.1523E-02,& - 0.1548E-02, 0.1598E-02, 0.1647E-02, 0.1672E-02,& - 0.1722E-02, 0.1771E-02, 0.1796E-02, 0.1846E-02,& - 0.1895E-02, 0.1945E-02, 0.1995E-02, 0.2044E-02,& - 0.2094E-02, 0.2143E-02, 0.2193E-02, 0.2243E-02,& - 0.2292E-02, 0.2342E-02, 0.2392E-02, 0.2441E-02,& - 0.2516E-02, 0.2565E-02, 0.2615E-02, 0.2689E-02,& - 0.2739E-02, 0.2788E-02, 0.2863E-02, 0.2912E-02,& - 0.2987E-02, 0.3061E-02, 0.3111E-02, 0.3185E-02,& - 0.3260E-02, 0.3334E-02, 0.3384E-02, 0.3458E-02,& - 0.3533E-02, 0.3607E-02, 0.3682E-02, 0.3756E-02,& - 0.3830E-02, 0.3930E-02, 0.4004E-02, 0.4078E-02,& - 0.4153E-02, 0.4252E-02, 0.4326E-02, 0.4426E-02,& - 0.4500E-02, 0.4599E-02, 0.4674E-02, 0.4773E-02,& - 0.4872E-02, 0.4947E-02, 0.5046E-02, 0.5145E-02,& - 0.5244E-02, 0.5344E-02, 0.5443E-02, 0.5542E-02,& - 0.5666E-02, 0.5765E-02, 0.5865E-02, 0.5964E-02,& - 0.6088E-02, 0.6187E-02, 0.6311E-02, 0.6435E-02,& - 0.6534E-02, 0.6658E-02, 0.6782E-02, 0.6906E-02,& - 0.7031E-02, 0.7155E-02, 0.7279E-02, 0.7403E-02,& - 0.7527E-02, 0.7651E-02, 0.7800E-02, 0.7924E-02,& - 0.8048E-02, 0.8196E-02, 0.8345E-02, 0.8469E-02,& - 0.8618E-02, 0.8767E-02, 0.8916E-02, 0.9065E-02,& - 0.9214E-02, 0.9362E-02, 0.9511E-02, 0.9685E-02,& - 0.9834E-02, 0.1001E-01, 0.1016E-01, 0.1033E-01,& - 0.1048E-01, 0.1065E-01, 0.1083E-01, 0.1100E-01,& - 0.1117E-01, 0.1135E-01, 0.1152E-01, 0.1172E-01,& - 0.1189E-01, 0.1209E-01, 0.1226E-01, 0.1246E-01,& - 0.1266E-01, 0.1284E-01, 0.1303E-01, 0.1323E-01,& - 0.1346E-01, 0.1365E-01, 0.1385E-01, 0.1405E-01,& - 0.1427E-01, 0.1450E-01, 0.1470E-01, 0.1492E-01,& - 0.1514E-01, 0.1537E-01, 0.1559E-01, 0.1581E-01,& - 0.1604E-01, 0.1628E-01, 0.1651E-01, 0.1676E-01,& - 0.1700E-01, 0.1725E-01, 0.1747E-01, 0.1772E-01,& - 0.1800E-01, 0.1824E-01, 0.1849E-01, 0.1876E-01,& - 0.1901E-01, 0.1929E-01, 0.1956E-01, 0.1983E-01,& - 0.2010E-01, 0.2038E-01, 0.2065E-01, 0.2095E-01,& - 0.2122E-01, 0.2152E-01, 0.2182E-01, 0.2209E-01,& - 0.2239E-01, 0.2271E-01, 0.2301E-01, 0.2330E-01,& - 0.2363E-01, 0.2392E-01, 0.2425E-01, 0.2457E-01,& - 0.2489E-01, 0.2521E-01, 0.2554E-01, 0.2588E-01,& - 0.2621E-01, 0.2655E-01, 0.2690E-01, 0.2725E-01,& - 0.2760E-01, 0.2794E-01, 0.2832E-01, 0.2866E-01,& - 0.2903E-01, 0.2941E-01, 0.2975E-01, 0.3015E-01,& - 0.3052E-01, 0.3090E-01, 0.3129E-01, 0.3166E-01,& - 0.3206E-01, 0.3246E-01, 0.3286E-01, 0.3328E-01,& - 0.3367E-01, 0.3410E-01, 0.3449E-01, 0.3491E-01,& - 0.3534E-01, 0.3576E-01, 0.3620E-01, 0.3663E-01,& - 0.3707E-01, 0.3752E-01, 0.3797E-01, 0.3841E-01,& - 0.3886E-01, 0.3933E-01, 0.3980E-01, 0.4025E-01,& - 0.4072E-01, 0.4122E-01, 0.4169E-01, 0.4218E-01,& - 0.4265E-01, 0.4315E-01, 0.4365E-01, 0.4417E-01,& - 0.4466E-01, 0.4518E-01, 0.4568E-01, 0.4620E-01,& - 0.4675E-01, 0.4727E-01, 0.4779E-01, 0.4833E-01,& - 0.4888E-01, 0.4943E-01, 0.4997E-01, 0.5054E-01,& - 0.5111E-01, 0.5166E-01, 0.5223E-01, 0.5283E-01,& - 0.5340E-01, 0.5399E-01, 0.5459E-01, 0.5518E-01,& - 0.5578E-01, 0.5640E-01, 0.5699E-01, 0.5761E-01,& - 0.5823E-01, 0.5888E-01, 0.5950E-01, 0.6014E-01,& - 0.6079E-01, 0.6143E-01, 0.6208E-01, 0.6275E-01,& - 0.6342E-01, 0.6409E-01, 0.6476E-01, 0.6543E-01,& - 0.6612E-01, 0.6682E-01, 0.6751E-01, 0.6823E-01,& - 0.6893E-01, 0.6964E-01, 0.7036E-01, 0.7108E-01,& - 0.7183E-01, 0.7257E-01, 0.7332E-01, 0.7406E-01,& - 0.7480E-01, 0.7557E-01, 0.7634E-01, 0.7711E-01,& - 0.7791E-01, 0.7870E-01, 0.7949E-01, 0.8029E-01,& - 0.8108E-01, 0.8190E-01, 0.8272E-01, 0.8354E-01,& - 0.8438E-01, 0.8522E-01, 0.8607E-01, 0.8691E-01,& - 0.8775E-01, 0.8862E-01, 0.8949E-01, 0.9038E-01,& - 0.9125E-01, 0.9214E-01, 0.9304E-01, 0.9396E-01,& - 0.9487E-01, 0.9579E-01, 0.9671E-01, 0.9763E-01,& - 0.9857E-01, 0.9951E-01, 0.1005E+00, 0.1014E+00,& - 0.1024E+00, 0.1034E+00, 0.1044E+00, 0.1053E+00,& - 0.1063E+00, 0.1074E+00, 0.1084E+00, 0.1094E+00,& - 0.1104E+00, 0.1114E+00, 0.1125E+00, 0.1135E+00,& - 0.1146E+00, 0.1157E+00, 0.1167E+00, 0.1178E+00,& - 0.1189E+00, 0.1200E+00, 0.1211E+00, 0.1222E+00,& - 0.1233E+00, 0.1245E+00, 0.1256E+00, 0.1268E+00,& - 0.1279E+00, 0.1291E+00, 0.1302E+00, 0.1314E+00,& - 0.1326E+00, 0.1338E+00, 0.1350E+00, 0.1362E+00,& - 0.1374E+00, 0.1387E+00, 0.1399E+00, 0.1411E+00,& - 0.1424E+00, 0.1437E+00, 0.1449E+00, 0.1462E+00,& - 0.1475E+00, 0.1488E+00, 0.1501E+00, 0.1514E+00,& - 0.1528E+00, 0.1541E+00, 0.1555E+00, 0.1568E+00,& - 0.1582E+00, 0.1595E+00, 0.1609E+00, 0.1623E+00,& - 0.1637E+00, 0.1652E+00, 0.1666E+00, 0.1680E+00,& - 0.1694E+00, 0.1709E+00, 0.1724E+00, 0.1738E+00,& - 0.1753E+00, 0.1768E+00, 0.1783E+00, 0.1798E+00,& - 0.1814E+00, 0.1829E+00, 0.1844E+00, 0.1860E+00,& - 0.1876E+00, 0.1891E+00, 0.1907E+00, 0.1923E+00,& - 0.1939E+00, 0.1955E+00, 0.1972E+00, 0.1988E+00,& - 0.2005E+00, 0.2021E+00, 0.2038E+00, 0.2055E+00,& - 0.2072E+00, 0.2089E+00, 0.2106E+00, 0.2124E+00,& - 0.2141E+00, 0.2159E+00, 0.2176E+00, 0.2194E+00,& - 0.2212E+00, 0.2230E+00, 0.2248E+00, 0.2267E+00,& - 0.2285E+00, 0.2303E+00, 0.2322E+00, 0.2341E+00,& - 0.2360E+00, 0.2379E+00, 0.2398E+00, 0.2417E+00,& - 0.2436E+00, 0.2456E+00, 0.2475E+00, 0.2495E+00,& - 0.2515E+00, 0.2535E+00, 0.2555E+00, 0.2576E+00,& - 0.2596E+00, 0.2617E+00, 0.2637E+00, 0.2658E+00,& - 0.2679E+00, 0.2700E+00, 0.2721E+00, 0.2743E+00,& - 0.2764E+00, 0.2786E+00, 0.2808E+00, 0.2830E+00,& - 0.2852E+00, 0.2874E+00, 0.2896E+00, 0.2919E+00,& - 0.2941E+00, 0.2964E+00, 0.2987E+00, 0.3010E+00,& - 0.3033E+00, 0.3057E+00, 0.3080E+00, 0.3104E+00,& - 0.3128E+00, 0.3152E+00, 0.3176E+00, 0.3200E+00,& - 0.3225E+00, 0.3249E+00, 0.3274E+00, 0.3299E+00,& - 0.3324E+00, 0.3349E+00, 0.3375E+00, 0.3400E+00,& - 0.3426E+00, 0.3452E+00, 0.3478E+00, 0.3504E+00,& - 0.3530E+00, 0.3557E+00, 0.3584E+00, 0.3611E+00,& - 0.3638E+00, 0.3665E+00, 0.3692E+00, 0.3720E+00,& - 0.3748E+00, 0.3776E+00, 0.3804E+00, 0.3832E+00,& - 0.3860E+00, 0.3889E+00, 0.3918E+00, 0.3947E+00,& - 0.3976E+00, 0.4006E+00, 0.4035E+00, 0.4065E+00,& - 0.4095E+00, 0.4125E+00, 0.4155E+00, 0.4186E+00,& - 0.4217E+00, 0.4247E+00, 0.4279E+00, 0.4310E+00,& - 0.4341E+00, 0.4373E+00, 0.4405E+00, 0.4437E+00,& - 0.4469E+00, 0.4502E+00, 0.4534E+00, 0.4567E+00,& - 0.4601E+00, 0.4634E+00, 0.4667E+00, 0.4701E+00,& - 0.4735E+00, 0.4769E+00, 0.4804E+00, 0.4838E+00,& - 0.4873E+00, 0.4908E+00, 0.4943E+00, 0.4979E+00,& - 0.5015E+00, 0.5051E+00, 0.5087E+00, 0.5123E+00,& - 0.5160E+00, 0.5197E+00, 0.5234E+00, 0.5271E+00,& - 0.5309E+00, 0.5347E+00, 0.5385E+00, 0.5423E+00,& - 0.5461E+00, 0.5500E+00, 0.5539E+00, 0.5578E+00,& - 0.5618E+00, 0.5658E+00, 0.5698E+00, 0.5738E+00,& - 0.5778E+00, 0.5819E+00, 0.5860E+00, 0.5902E+00,& - 0.5943E+00, 0.5985E+00, 0.6027E+00, 0.6069E+00,& - 0.6112E+00, 0.6155E+00, 0.6198E+00, 0.6242E+00,& - 0.6285E+00, 0.6329E+00, 0.6374E+00, 0.6418E+00,& - 0.6463E+00, 0.6508E+00, 0.6553E+00, 0.6599E+00,& - 0.6645E+00, 0.6692E+00, 0.6738E+00, 0.6785E+00,& - 0.6832E+00, 0.6880E+00, 0.6928E+00, 0.6976E+00,& - 0.7024E+00, 0.7073E+00, 0.7122E+00, 0.7171E+00,& - 0.7221E+00, 0.7271E+00, 0.7322E+00, 0.7372E+00,& - 0.7423E+00, 0.7475E+00, 0.7526E+00, 0.7578E+00,& - 0.7630E+00, 0.7683E+00, 0.7736E+00, 0.7790E+00,& - 0.7843E+00, 0.7897E+00, 0.7952E+00, 0.8006E+00,& - 0.8062E+00, 0.8117E+00, 0.8173E+00, 0.8229E+00,& - 0.8286E+00, 0.8343E+00, 0.8400E+00, 0.8458E+00,& - 0.8516E+00, 0.8575E+00, 0.8633E+00, 0.8693E+00,& - 0.8752E+00, 0.8812E+00, 0.8873E+00, 0.8934E+00,& - 0.8995E+00, 0.9057E+00, 0.9119E+00, 0.9181E+00,& - 0.9244E+00, 0.9308E+00, 0.9372E+00, 0.9436E+00,& - 0.9500E+00, 0.9565E+00, 0.9631E+00, 0.9697E+00,& - 0.9763E+00, 0.9830E+00, 0.9898E+00, 0.9965E+00,& - 0.1003E+01, 0.1010E+01, 0.1017E+01, 0.1024E+01,& - 0.1031E+01, 0.1038E+01, 0.1045E+01, 0.1052E+01,& - 0.1060E+01, 0.1067E+01, 0.1074E+01, 0.1082E+01,& - 0.1089E+01, 0.1097E+01, 0.1104E+01, 0.1112E+01,& - 0.1119E+01, 0.1127E+01, 0.1135E+01, 0.1142E+01,& - 0.1150E+01, 0.1158E+01, 0.1166E+01, 0.1174E+01,& - 0.1182E+01, 0.1190E+01, 0.1199E+01, 0.1207E+01,& - 0.1215E+01, 0.1223E+01, 0.1232E+01, 0.1240E+01,& - 0.1249E+01, 0.1258E+01, 0.1266E+01, 0.1275E+01,& - 0.1284E+01, 0.1293E+01, 0.1302E+01, 0.1311E+01,& - 0.1320E+01, 0.1329E+01, 0.1338E+01, 0.1347E+01,& - 0.1357E+01, 0.1366E+01, 0.1375E+01, 0.1385E+01,& - 0.1395E+01, 0.1404E+01, 0.1414E+01, 0.1424E+01,& - 0.1434E+01, 0.1444E+01, 0.1454E+01, 0.1464E+01,& - 0.1474E+01, 0.1485E+01, 0.1495E+01, 0.1505E+01,& - 0.1516E+01, 0.1527E+01, 0.1537E+01, 0.1548E+01,& - 0.1559E+01, 0.1570E+01, 0.1581E+01, 0.1592E+01,& - 0.1604E+01, 0.1615E+01, 0.1626E+01, 0.1638E+01,& - 0.1650E+01, 0.1661E+01, 0.1673E+01, 0.1685E+01,& - 0.1697E+01, 0.1709E+01, 0.1721E+01, 0.1734E+01,& - 0.1746E+01, 0.1759E+01, 0.1771E+01, 0.1784E+01,& - 0.1797E+01, 0.1810E+01, 0.1823E+01, 0.1836E+01,& - 0.1849E+01, 0.1863E+01, 0.1876E+01, 0.1890E+01,& - 0.1904E+01, 0.1917E+01, 0.1931E+01, 0.1946E+01,& - 0.1960E+01, 0.1974E+01, 0.1989E+01, 0.2003E+01,& - 0.2018E+01, 0.2033E+01, 0.2048E+01, 0.2063E+01,& - 0.2079E+01, 0.2094E+01, 0.2110E+01, 0.2126E+01,& - 0.2141E+01, 0.2158E+01, 0.2174E+01, 0.2190E+01,& - 0.2207E+01, 0.2223E+01, 0.2240E+01, 0.2257E+01,& - 0.2275E+01, 0.2292E+01, 0.2310E+01, 0.2327E+01,& - 0.2345E+01, 0.2363E+01, 0.2382E+01, 0.2400E+01,& - 0.2419E+01, 0.2437E+01, 0.2457E+01, 0.2476E+01,& - 0.2495E+01, 0.2515E+01, 0.2535E+01, 0.2555E+01,& - 0.2575E+01, 0.2596E+01, 0.2591E+01, 0.2637E+01,& - 0.2659E+01, 0.2680E+01, 0.2702E+01, 0.2724E+01,& - 0.2746E+01, 0.2768E+01, 0.2791E+01, 0.2814E+01,& - 0.2837E+01, 0.2861E+01, 0.2885E+01, 0.2909E+01,& - 0.2933E+01, 0.2958E+01, 0.2983E+01, 0.3008E+01,& - 0.3034E+01, 0.3060E+01, 0.3086E+01, 0.3113E+01,& - 0.3140E+01, 0.3167E+01, 0.3195E+01, 0.3223E+01,& - 0.3252E+01, 0.3280E+01, 0.3310E+01, 0.3339E+01,& - 0.3369E+01, 0.3400E+01, 0.3431E+01, 0.3462E+01,& - 0.3494E+01, 0.3526E+01, 0.3559E+01, 0.3592E+01,& - 0.3626E+01, 0.3660E+01, 0.3695E+01, 0.3731E+01,& - 0.3766E+01, 0.3803E+01, 0.3840E+01, 0.3878E+01,& - 0.3916E+01, 0.3955E+01, 0.3995E+01, 0.4035E+01,& - 0.4076E+01, 0.4118E+01, 0.4161E+01, 0.4204E+01,& - 0.4248E+01, 0.4293E+01, 0.4339E+01, 0.4385E+01,& - 0.4433E+01, 0.4482E+01, 0.4531E+01, 0.4582E+01,& - 0.4633E+01, 0.4686E+01, 0.4740E+01, 0.4795E+01,& - 0.4851E+01, 0.4908E+01, 0.4967E+01, 0.5027E+01,& - 0.5089E+01, 0.5152E+01, 0.5217E+01, 0.5283E+01,& - 0.5352E+01, 0.5422E+01, 0.5493E+01, 0.5567E+01,& - 0.5643E+01, 0.5721E+01, 0.5802E+01, 0.5885E+01,& - 0.5970E+01, 0.6059E+01, 0.6150E+01, 0.6244E+01,& - 0.6342E+01, 0.6443E+01, 0.6549E+01, 0.6658E+01,& - 0.6771E+01, 0.6889E+01, 0.7012E+01, 0.7141E+01,& - 0.7276E+01, 0.7417E+01, 0.7566E+01, 0.7722E+01,& - 0.7887E+01, 0.8061E+01, 0.8247E+01, 0.8444E+01,& - 0.8655E+01, 0.8882E+01, 0.9127E+01, 0.9392E+01,& - 0.9683E+01, 0.1000E+02, 0.1036E+02, 0.1076E+02,& - 0.1121E+02, 0.1174E+02, 0.1237E+02, 0.1315E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 80) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3530E-04, 0.3530E-04, 0.3530E-04,& - 0.3530E-04, 0.3530E-04, 0.3530E-04, 0.3530E-04,& - 0.3530E-04, 0.3530E-04, 0.6060E-04, 0.6060E-04,& - 0.6060E-04, 0.6060E-04, 0.6060E-04, 0.6060E-04,& - 0.6060E-04, 0.8590E-04, 0.8590E-04, 0.8590E-04,& - 0.8590E-04, 0.8590E-04, 0.8590E-04, 0.1112E-03,& - 0.1112E-03, 0.1112E-03, 0.1112E-03, 0.1365E-03,& - 0.1365E-03, 0.1365E-03, 0.1365E-03, 0.1618E-03,& - 0.1618E-03, 0.1618E-03, 0.1618E-03, 0.1871E-03,& - 0.1871E-03, 0.1871E-03, 0.2124E-03, 0.2124E-03,& - 0.2124E-03, 0.2377E-03, 0.2377E-03, 0.2377E-03,& - 0.2630E-03, 0.2630E-03, 0.2883E-03, 0.2883E-03,& - 0.2883E-03, 0.3136E-03, 0.3136E-03, 0.3389E-03,& - 0.3389E-03, 0.3642E-03, 0.3642E-03, 0.3895E-03,& - 0.3895E-03, 0.4148E-03, 0.4401E-03, 0.4401E-03,& - 0.4654E-03, 0.4654E-03, 0.4907E-03, 0.5160E-03,& - 0.5160E-03, 0.5413E-03, 0.5666E-03, 0.5666E-03,& - 0.5919E-03, 0.6172E-03, 0.6425E-03, 0.6425E-03,& - 0.6678E-03, 0.6931E-03, 0.7184E-03, 0.7437E-03,& - 0.7690E-03, 0.7943E-03, 0.7943E-03, 0.8196E-03,& - 0.8449E-03, 0.8702E-03, 0.8955E-03, 0.9208E-03,& - 0.9461E-03, 0.9714E-03, 0.1022E-02, 0.1047E-02,& - 0.1073E-02, 0.1098E-02, 0.1123E-02, 0.1148E-02,& - 0.1199E-02, 0.1224E-02, 0.1250E-02, 0.1275E-02,& - 0.1326E-02, 0.1351E-02, 0.1401E-02, 0.1427E-02,& - 0.1452E-02, 0.1503E-02, 0.1528E-02, 0.1579E-02,& - 0.1604E-02, 0.1654E-02, 0.1705E-02, 0.1730E-02,& - 0.1781E-02, 0.1832E-02, 0.1857E-02, 0.1907E-02,& - 0.1958E-02, 0.2009E-02, 0.2059E-02, 0.2110E-02,& - 0.2160E-02, 0.2211E-02, 0.2262E-02, 0.2312E-02,& - 0.2363E-02, 0.2413E-02, 0.2464E-02, 0.2515E-02,& - 0.2565E-02, 0.2641E-02, 0.2692E-02, 0.2742E-02,& - 0.2818E-02, 0.2869E-02, 0.2945E-02, 0.2995E-02,& - 0.3071E-02, 0.3122E-02, 0.3198E-02, 0.3274E-02,& - 0.3324E-02, 0.3400E-02, 0.3476E-02, 0.3552E-02,& - 0.3628E-02, 0.3678E-02, 0.3754E-02, 0.3855E-02,& - 0.3931E-02, 0.4007E-02, 0.4083E-02, 0.4159E-02,& - 0.4235E-02, 0.4336E-02, 0.4412E-02, 0.4488E-02,& - 0.4589E-02, 0.4665E-02, 0.4766E-02, 0.4867E-02,& - 0.4943E-02, 0.5045E-02, 0.5146E-02, 0.5247E-02,& - 0.5348E-02, 0.5449E-02, 0.5551E-02, 0.5652E-02,& - 0.5753E-02, 0.5854E-02, 0.5955E-02, 0.6082E-02,& - 0.6183E-02, 0.6284E-02, 0.6411E-02, 0.6512E-02,& - 0.6638E-02, 0.6765E-02, 0.6866E-02, 0.6993E-02,& - 0.7119E-02, 0.7246E-02, 0.7372E-02, 0.7499E-02,& - 0.7625E-02, 0.7752E-02, 0.7903E-02, 0.8030E-02,& - 0.8156E-02, 0.8308E-02, 0.8460E-02, 0.8586E-02,& - 0.8738E-02, 0.8890E-02, 0.9017E-02, 0.9168E-02,& - 0.9320E-02, 0.9472E-02, 0.9649E-02, 0.9801E-02,& - 0.9953E-02, 0.1013E-01, 0.1028E-01, 0.1046E-01,& - 0.1061E-01, 0.1079E-01, 0.1096E-01, 0.1112E-01,& - 0.1129E-01, 0.1147E-01, 0.1167E-01, 0.1185E-01,& - 0.1203E-01, 0.1220E-01, 0.1241E-01, 0.1258E-01,& - 0.1279E-01, 0.1299E-01, 0.1319E-01, 0.1339E-01,& - 0.1360E-01, 0.1380E-01, 0.1400E-01, 0.1420E-01,& - 0.1443E-01, 0.1463E-01, 0.1486E-01, 0.1506E-01,& - 0.1529E-01, 0.1552E-01, 0.1575E-01, 0.1597E-01,& - 0.1620E-01, 0.1645E-01, 0.1668E-01, 0.1691E-01,& - 0.1716E-01, 0.1742E-01, 0.1764E-01, 0.1790E-01,& - 0.1815E-01, 0.1843E-01, 0.1868E-01, 0.1893E-01,& - 0.1921E-01, 0.1947E-01, 0.1974E-01, 0.2002E-01,& - 0.2030E-01, 0.2058E-01, 0.2086E-01, 0.2113E-01,& - 0.2141E-01, 0.2172E-01, 0.2202E-01, 0.2230E-01,& - 0.2260E-01, 0.2291E-01, 0.2321E-01, 0.2354E-01,& - 0.2384E-01, 0.2415E-01, 0.2447E-01, 0.2480E-01,& - 0.2513E-01, 0.2546E-01, 0.2579E-01, 0.2612E-01,& - 0.2647E-01, 0.2680E-01, 0.2716E-01, 0.2751E-01,& - 0.2786E-01, 0.2822E-01, 0.2857E-01, 0.2893E-01,& - 0.2931E-01, 0.2966E-01, 0.3004E-01, 0.3042E-01,& - 0.3080E-01, 0.3118E-01, 0.3158E-01, 0.3196E-01,& - 0.3237E-01, 0.3277E-01, 0.3318E-01, 0.3358E-01,& - 0.3399E-01, 0.3442E-01, 0.3482E-01, 0.3525E-01,& - 0.3568E-01, 0.3611E-01, 0.3654E-01, 0.3700E-01,& - 0.3743E-01, 0.3788E-01, 0.3834E-01, 0.3879E-01,& - 0.3925E-01, 0.3970E-01, 0.4019E-01, 0.4067E-01,& - 0.4112E-01, 0.4163E-01, 0.4211E-01, 0.4259E-01,& - 0.4309E-01, 0.4360E-01, 0.4408E-01, 0.4461E-01,& - 0.4512E-01, 0.4562E-01, 0.4616E-01, 0.4669E-01,& - 0.4722E-01, 0.4775E-01, 0.4828E-01, 0.4884E-01,& - 0.4939E-01, 0.4995E-01, 0.5051E-01, 0.5106E-01,& - 0.5165E-01, 0.5223E-01, 0.5281E-01, 0.5339E-01,& - 0.5397E-01, 0.5458E-01, 0.5516E-01, 0.5577E-01,& - 0.5638E-01, 0.5701E-01, 0.5762E-01, 0.5825E-01,& - 0.5888E-01, 0.5951E-01, 0.6017E-01, 0.6080E-01,& - 0.6146E-01, 0.6212E-01, 0.6278E-01, 0.6346E-01,& - 0.6414E-01, 0.6483E-01, 0.6551E-01, 0.6619E-01,& - 0.6690E-01, 0.6761E-01, 0.6832E-01, 0.6903E-01,& - 0.6973E-01, 0.7047E-01, 0.7120E-01, 0.7194E-01,& - 0.7269E-01, 0.7345E-01, 0.7421E-01, 0.7497E-01,& - 0.7573E-01, 0.7651E-01, 0.7730E-01, 0.7808E-01,& - 0.7887E-01, 0.7968E-01, 0.8049E-01, 0.8130E-01,& - 0.8213E-01, 0.8294E-01, 0.8378E-01, 0.8461E-01,& - 0.8547E-01, 0.8633E-01, 0.8719E-01, 0.8805E-01,& - 0.8891E-01, 0.8980E-01, 0.9068E-01, 0.9159E-01,& - 0.9248E-01, 0.9339E-01, 0.9430E-01, 0.9524E-01,& - 0.9615E-01, 0.9708E-01, 0.9804E-01, 0.9898E-01,& - 0.9994E-01, 0.1009E+00, 0.1019E+00, 0.1029E+00,& - 0.1039E+00, 0.1048E+00, 0.1059E+00, 0.1069E+00,& - 0.1079E+00, 0.1089E+00, 0.1099E+00, 0.1110E+00,& - 0.1120E+00, 0.1131E+00, 0.1142E+00, 0.1152E+00,& - 0.1163E+00, 0.1174E+00, 0.1185E+00, 0.1196E+00,& - 0.1207E+00, 0.1218E+00, 0.1230E+00, 0.1241E+00,& - 0.1252E+00, 0.1264E+00, 0.1276E+00, 0.1287E+00,& - 0.1299E+00, 0.1311E+00, 0.1323E+00, 0.1335E+00,& - 0.1347E+00, 0.1359E+00, 0.1372E+00, 0.1384E+00,& - 0.1397E+00, 0.1409E+00, 0.1422E+00, 0.1435E+00,& - 0.1448E+00, 0.1461E+00, 0.1474E+00, 0.1487E+00,& - 0.1500E+00, 0.1513E+00, 0.1527E+00, 0.1540E+00,& - 0.1554E+00, 0.1568E+00, 0.1582E+00, 0.1595E+00,& - 0.1609E+00, 0.1624E+00, 0.1638E+00, 0.1652E+00,& - 0.1667E+00, 0.1681E+00, 0.1696E+00, 0.1710E+00,& - 0.1725E+00, 0.1740E+00, 0.1755E+00, 0.1770E+00,& - 0.1785E+00, 0.1801E+00, 0.1816E+00, 0.1832E+00,& - 0.1847E+00, 0.1863E+00, 0.1879E+00, 0.1895E+00,& - 0.1911E+00, 0.1927E+00, 0.1944E+00, 0.1960E+00,& - 0.1977E+00, 0.1993E+00, 0.2010E+00, 0.2027E+00,& - 0.2044E+00, 0.2061E+00, 0.2078E+00, 0.2096E+00,& - 0.2113E+00, 0.2131E+00, 0.2149E+00, 0.2166E+00,& - 0.2184E+00, 0.2202E+00, 0.2221E+00, 0.2239E+00,& - 0.2258E+00, 0.2276E+00, 0.2295E+00, 0.2313E+00,& - 0.2332E+00, 0.2352E+00, 0.2371E+00, 0.2390E+00,& - 0.2410E+00, 0.2429E+00, 0.2449E+00, 0.2469E+00,& - 0.2489E+00, 0.2509E+00, 0.2529E+00, 0.2549E+00,& - 0.2570E+00, 0.2591E+00, 0.2611E+00, 0.2632E+00,& - 0.2653E+00, 0.2675E+00, 0.2696E+00, 0.2718E+00,& - 0.2739E+00, 0.2761E+00, 0.2783E+00, 0.2805E+00,& - 0.2827E+00, 0.2850E+00, 0.2872E+00, 0.2895E+00,& - 0.2918E+00, 0.2941E+00, 0.2964E+00, 0.2987E+00,& - 0.3010E+00, 0.3034E+00, 0.3058E+00, 0.3082E+00,& - 0.3106E+00, 0.3130E+00, 0.3154E+00, 0.3179E+00,& - 0.3203E+00, 0.3228E+00, 0.3253E+00, 0.3278E+00,& - 0.3304E+00, 0.3329E+00, 0.3355E+00, 0.3381E+00,& - 0.3407E+00, 0.3433E+00, 0.3459E+00, 0.3486E+00,& - 0.3512E+00, 0.3539E+00, 0.3566E+00, 0.3593E+00,& - 0.3621E+00, 0.3648E+00, 0.3676E+00, 0.3704E+00,& - 0.3732E+00, 0.3760E+00, 0.3789E+00, 0.3817E+00,& - 0.3846E+00, 0.3875E+00, 0.3904E+00, 0.3934E+00,& - 0.3963E+00, 0.3993E+00, 0.4023E+00, 0.4053E+00,& - 0.4084E+00, 0.4114E+00, 0.4145E+00, 0.4176E+00,& - 0.4207E+00, 0.4238E+00, 0.4270E+00, 0.4301E+00,& - 0.4333E+00, 0.4365E+00, 0.4398E+00, 0.4430E+00,& - 0.4463E+00, 0.4496E+00, 0.4529E+00, 0.4563E+00,& - 0.4596E+00, 0.4630E+00, 0.4665E+00, 0.4699E+00,& - 0.4733E+00, 0.4768E+00, 0.4803E+00, 0.4838E+00,& - 0.4873E+00, 0.4909E+00, 0.4945E+00, 0.4981E+00,& - 0.5017E+00, 0.5054E+00, 0.5091E+00, 0.5128E+00,& - 0.5165E+00, 0.5202E+00, 0.5240E+00, 0.5278E+00,& - 0.5316E+00, 0.5355E+00, 0.5394E+00, 0.5433E+00,& - 0.5472E+00, 0.5511E+00, 0.5551E+00, 0.5591E+00,& - 0.5631E+00, 0.5672E+00, 0.5713E+00, 0.5754E+00,& - 0.5795E+00, 0.5837E+00, 0.5878E+00, 0.5921E+00,& - 0.5963E+00, 0.6006E+00, 0.6049E+00, 0.6092E+00,& - 0.6135E+00, 0.6179E+00, 0.6223E+00, 0.6267E+00,& - 0.6312E+00, 0.6357E+00, 0.6402E+00, 0.6448E+00,& - 0.6494E+00, 0.6540E+00, 0.6586E+00, 0.6633E+00,& - 0.6680E+00, 0.6727E+00, 0.6775E+00, 0.6823E+00,& - 0.6871E+00, 0.6920E+00, 0.6969E+00, 0.7018E+00,& - 0.7067E+00, 0.7117E+00, 0.7167E+00, 0.7218E+00,& - 0.7269E+00, 0.7320E+00, 0.7372E+00, 0.7423E+00,& - 0.7476E+00, 0.7528E+00, 0.7581E+00, 0.7634E+00,& - 0.7688E+00, 0.7742E+00, 0.7796E+00, 0.7851E+00,& - 0.7906E+00, 0.7961E+00, 0.8017E+00, 0.8074E+00,& - 0.8130E+00, 0.8187E+00, 0.8244E+00, 0.8302E+00,& - 0.8360E+00, 0.8418E+00, 0.8477E+00, 0.8537E+00,& - 0.8596E+00, 0.8654E+00, 0.8717E+00, 0.8778E+00,& - 0.8839E+00, 0.8901E+00, 0.8963E+00, 0.9025E+00,& - 0.9088E+00, 0.9152E+00, 0.9216E+00, 0.9280E+00,& - 0.9345E+00, 0.9410E+00, 0.9475E+00, 0.9541E+00,& - 0.9608E+00, 0.9675E+00, 0.9743E+00, 0.9810E+00,& - 0.9879E+00, 0.9947E+00, 0.1002E+01, 0.1009E+01,& - 0.1016E+01, 0.1023E+01, 0.1030E+01, 0.1037E+01,& - 0.1044E+01, 0.1052E+01, 0.1059E+01, 0.1066E+01,& - 0.1074E+01, 0.1081E+01, 0.1089E+01, 0.1096E+01,& - 0.1104E+01, 0.1112E+01, 0.1120E+01, 0.1127E+01,& - 0.1135E+01, 0.1143E+01, 0.1151E+01, 0.1159E+01,& - 0.1167E+01, 0.1175E+01, 0.1184E+01, 0.1192E+01,& - 0.1200E+01, 0.1209E+01, 0.1217E+01, 0.1226E+01,& - 0.1234E+01, 0.1243E+01, 0.1252E+01, 0.1260E+01,& - 0.1269E+01, 0.1278E+01, 0.1287E+01, 0.1296E+01,& - 0.1305E+01, 0.1314E+01, 0.1324E+01, 0.1333E+01,& - 0.1342E+01, 0.1352E+01, 0.1361E+01, 0.1371E+01,& - 0.1381E+01, 0.1391E+01, 0.1400E+01, 0.1410E+01,& - 0.1420E+01, 0.1430E+01, 0.1440E+01, 0.1451E+01,& - 0.1461E+01, 0.1471E+01, 0.1482E+01, 0.1492E+01,& - 0.1503E+01, 0.1514E+01, 0.1525E+01, 0.1535E+01,& - 0.1546E+01, 0.1557E+01, 0.1569E+01, 0.1580E+01,& - 0.1591E+01, 0.1603E+01, 0.1614E+01, 0.1626E+01,& - 0.1637E+01, 0.1649E+01, 0.1661E+01, 0.1673E+01,& - 0.1685E+01, 0.1698E+01, 0.1710E+01, 0.1722E+01,& - 0.1735E+01, 0.1747E+01, 0.1760E+01, 0.1773E+01,& - 0.1786E+01, 0.1799E+01, 0.1812E+01, 0.1826E+01,& - 0.1839E+01, 0.1852E+01, 0.1866E+01, 0.1880E+01,& - 0.1894E+01, 0.1908E+01, 0.1922E+01, 0.1936E+01,& - 0.1951E+01, 0.1965E+01, 0.1980E+01, 0.1995E+01,& - 0.2010E+01, 0.2025E+01, 0.2040E+01, 0.2055E+01,& - 0.2071E+01, 0.2086E+01, 0.2102E+01, 0.2118E+01,& - 0.2134E+01, 0.2150E+01, 0.2167E+01, 0.2183E+01,& - 0.2200E+01, 0.2217E+01, 0.2234E+01, 0.2251E+01,& - 0.2269E+01, 0.2286E+01, 0.2304E+01, 0.2322E+01,& - 0.2340E+01, 0.2359E+01, 0.2377E+01, 0.2396E+01,& - 0.2415E+01, 0.2434E+01, 0.2453E+01, 0.2472E+01,& - 0.2492E+01, 0.2512E+01, 0.2532E+01, 0.2553E+01,& - 0.2573E+01, 0.2594E+01, 0.2615E+01, 0.2636E+01,& - 0.2658E+01, 0.2679E+01, 0.2701E+01, 0.2724E+01,& - 0.2746E+01, 0.2769E+01, 0.2792E+01, 0.2815E+01,& - 0.2839E+01, 0.2863E+01, 0.2887E+01, 0.2911E+01,& - 0.2936E+01, 0.2961E+01, 0.2986E+01, 0.3012E+01,& - 0.3038E+01, 0.3064E+01, 0.3091E+01, 0.3118E+01,& - 0.3146E+01, 0.3173E+01, 0.3201E+01, 0.3230E+01,& - 0.3259E+01, 0.3288E+01, 0.3318E+01, 0.3348E+01,& - 0.3378E+01, 0.3409E+01, 0.3441E+01, 0.3473E+01,& - 0.3505E+01, 0.3538E+01, 0.3571E+01, 0.3605E+01,& - 0.3639E+01, 0.3674E+01, 0.3709E+01, 0.3745E+01,& - 0.3782E+01, 0.3818E+01, 0.3856E+01, 0.3895E+01,& - 0.3934E+01, 0.3973E+01, 0.4014E+01, 0.4055E+01,& - 0.4096E+01, 0.4139E+01, 0.4182E+01, 0.4226E+01,& - 0.4271E+01, 0.4317E+01, 0.4363E+01, 0.4411E+01,& - 0.4459E+01, 0.4509E+01, 0.4559E+01, 0.4610E+01,& - 0.4663E+01, 0.4716E+01, 0.4771E+01, 0.4827E+01,& - 0.4884E+01, 0.4943E+01, 0.5003E+01, 0.5064E+01,& - 0.5127E+01, 0.5191E+01, 0.5257E+01, 0.5325E+01,& - 0.5394E+01, 0.5465E+01, 0.5538E+01, 0.5614E+01,& - 0.5691E+01, 0.5771E+01, 0.5852E+01, 0.5937E+01,& - 0.6024E+01, 0.6114E+01, 0.6207E+01, 0.6304E+01,& - 0.6403E+01, 0.6506E+01, 0.6613E+01, 0.6725E+01,& - 0.6840E+01, 0.6961E+01, 0.7086E+01, 0.7218E+01,& - 0.7355E+01, 0.7499E+01, 0.7651E+01, 0.7810E+01,& - 0.7978E+01, 0.8156E+01, 0.8346E+01, 0.8547E+01,& - 0.8762E+01, 0.8994E+01, 0.9244E+01, 0.9515E+01,& - 0.9811E+01, 0.1014E+02, 0.1050E+02, 0.1091E+02,& - 0.1137E+02, 0.1191E+02, 0.1256E+02, 0.1336E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 81) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3580E-04, 0.3580E-04, 0.3580E-04,& - 0.3580E-04, 0.3580E-04, 0.3580E-04, 0.3580E-04,& - 0.3580E-04, 0.3580E-04, 0.3580E-04, 0.6159E-04,& - 0.6159E-04, 0.6159E-04, 0.6159E-04, 0.6159E-04,& - 0.6159E-04, 0.6159E-04, 0.6159E-04, 0.8739E-04,& - 0.8739E-04, 0.8739E-04, 0.8739E-04, 0.8739E-04,& - 0.1132E-03, 0.1132E-03, 0.1132E-03, 0.1132E-03,& - 0.1132E-03, 0.1390E-03, 0.1390E-03, 0.1390E-03,& - 0.1390E-03, 0.1648E-03, 0.1648E-03, 0.1648E-03,& - 0.1648E-03, 0.1906E-03, 0.1906E-03, 0.1906E-03,& - 0.2164E-03, 0.2164E-03, 0.2164E-03, 0.2422E-03,& - 0.2422E-03, 0.2422E-03, 0.2680E-03, 0.2680E-03,& - 0.2938E-03, 0.2938E-03, 0.2938E-03, 0.3196E-03,& - 0.3196E-03, 0.3454E-03, 0.3454E-03, 0.3712E-03,& - 0.3712E-03, 0.3970E-03, 0.3970E-03, 0.4228E-03,& - 0.4228E-03, 0.4485E-03, 0.4485E-03, 0.4743E-03,& - 0.5001E-03, 0.5001E-03, 0.5259E-03, 0.5517E-03,& - 0.5517E-03, 0.5775E-03, 0.6033E-03, 0.6033E-03,& - 0.6291E-03, 0.6549E-03, 0.6807E-03, 0.6807E-03,& - 0.7065E-03, 0.7323E-03, 0.7581E-03, 0.7839E-03,& - 0.8097E-03, 0.8355E-03, 0.8355E-03, 0.8613E-03,& - 0.8871E-03, 0.9129E-03, 0.9387E-03, 0.9645E-03,& - 0.9903E-03, 0.1042E-02, 0.1068E-02, 0.1093E-02,& - 0.1119E-02, 0.1145E-02, 0.1171E-02, 0.1197E-02,& - 0.1248E-02, 0.1274E-02, 0.1300E-02, 0.1351E-02,& - 0.1377E-02, 0.1403E-02, 0.1455E-02, 0.1480E-02,& - 0.1506E-02, 0.1558E-02, 0.1584E-02, 0.1635E-02,& - 0.1661E-02, 0.1713E-02, 0.1764E-02, 0.1790E-02,& - 0.1842E-02, 0.1893E-02, 0.1919E-02, 0.1971E-02,& - 0.2022E-02, 0.2074E-02, 0.2125E-02, 0.2177E-02,& - 0.2203E-02, 0.2254E-02, 0.2306E-02, 0.2358E-02,& - 0.2435E-02, 0.2487E-02, 0.2538E-02, 0.2590E-02,& - 0.2641E-02, 0.2693E-02, 0.2770E-02, 0.2822E-02,& - 0.2873E-02, 0.2951E-02, 0.3002E-02, 0.3080E-02,& - 0.3131E-02, 0.3209E-02, 0.3260E-02, 0.3338E-02,& - 0.3415E-02, 0.3467E-02, 0.3544E-02, 0.3622E-02,& - 0.3699E-02, 0.3776E-02, 0.3854E-02, 0.3931E-02,& - 0.4009E-02, 0.4086E-02, 0.4163E-02, 0.4241E-02,& - 0.4318E-02, 0.4421E-02, 0.4499E-02, 0.4576E-02,& - 0.4679E-02, 0.4757E-02, 0.4860E-02, 0.4937E-02,& - 0.5040E-02, 0.5144E-02, 0.5247E-02, 0.5324E-02,& - 0.5427E-02, 0.5531E-02, 0.5634E-02, 0.5737E-02,& - 0.5840E-02, 0.5943E-02, 0.6072E-02, 0.6175E-02,& - 0.6279E-02, 0.6382E-02, 0.6511E-02, 0.6614E-02,& - 0.6743E-02, 0.6872E-02, 0.6975E-02, 0.7104E-02,& - 0.7233E-02, 0.7362E-02, 0.7491E-02, 0.7620E-02,& - 0.7749E-02, 0.7878E-02, 0.8007E-02, 0.8136E-02,& - 0.8291E-02, 0.8420E-02, 0.8575E-02, 0.8704E-02,& - 0.8858E-02, 0.8987E-02, 0.9142E-02, 0.9297E-02,& - 0.9452E-02, 0.9606E-02, 0.9761E-02, 0.9916E-02,& - 0.1007E-01, 0.1025E-01, 0.1041E-01, 0.1059E-01,& - 0.1074E-01, 0.1092E-01, 0.1108E-01, 0.1126E-01,& - 0.1144E-01, 0.1162E-01, 0.1180E-01, 0.1198E-01,& - 0.1216E-01, 0.1237E-01, 0.1255E-01, 0.1275E-01,& - 0.1293E-01, 0.1314E-01, 0.1332E-01, 0.1353E-01,& - 0.1373E-01, 0.1394E-01, 0.1415E-01, 0.1438E-01,& - 0.1459E-01, 0.1479E-01, 0.1502E-01, 0.1523E-01,& - 0.1546E-01, 0.1569E-01, 0.1593E-01, 0.1616E-01,& - 0.1639E-01, 0.1662E-01, 0.1686E-01, 0.1711E-01,& - 0.1735E-01, 0.1760E-01, 0.1784E-01, 0.1809E-01,& - 0.1835E-01, 0.1861E-01, 0.1887E-01, 0.1913E-01,& - 0.1941E-01, 0.1967E-01, 0.1995E-01, 0.2021E-01,& - 0.2049E-01, 0.2078E-01, 0.2106E-01, 0.2134E-01,& - 0.2165E-01, 0.2194E-01, 0.2225E-01, 0.2253E-01,& - 0.2284E-01, 0.2315E-01, 0.2346E-01, 0.2377E-01,& - 0.2408E-01, 0.2441E-01, 0.2472E-01, 0.2506E-01,& - 0.2539E-01, 0.2570E-01, 0.2604E-01, 0.2640E-01,& - 0.2674E-01, 0.2707E-01, 0.2743E-01, 0.2779E-01,& - 0.2813E-01, 0.2849E-01, 0.2885E-01, 0.2924E-01,& - 0.2960E-01, 0.2999E-01, 0.3035E-01, 0.3073E-01,& - 0.3112E-01, 0.3151E-01, 0.3192E-01, 0.3231E-01,& - 0.3269E-01, 0.3311E-01, 0.3352E-01, 0.3393E-01,& - 0.3435E-01, 0.3478E-01, 0.3520E-01, 0.3564E-01,& - 0.3605E-01, 0.3649E-01, 0.3693E-01, 0.3739E-01,& - 0.3783E-01, 0.3829E-01, 0.3876E-01, 0.3920E-01,& - 0.3969E-01, 0.4015E-01, 0.4061E-01, 0.4110E-01,& - 0.4159E-01, 0.4208E-01, 0.4257E-01, 0.4307E-01,& - 0.4356E-01, 0.4407E-01, 0.4459E-01, 0.4510E-01,& - 0.4562E-01, 0.4613E-01, 0.4668E-01, 0.4722E-01,& - 0.4776E-01, 0.4830E-01, 0.4884E-01, 0.4941E-01,& - 0.4995E-01, 0.5052E-01, 0.5109E-01, 0.5166E-01,& - 0.5225E-01, 0.5284E-01, 0.5341E-01, 0.5400E-01,& - 0.5462E-01, 0.5522E-01, 0.5583E-01, 0.5645E-01,& - 0.5707E-01, 0.5769E-01, 0.5831E-01, 0.5896E-01,& - 0.5960E-01, 0.6025E-01, 0.6092E-01, 0.6156E-01,& - 0.6223E-01, 0.6290E-01, 0.6357E-01, 0.6424E-01,& - 0.6494E-01, 0.6564E-01, 0.6633E-01, 0.6703E-01,& - 0.6775E-01, 0.6847E-01, 0.6920E-01, 0.6992E-01,& - 0.7064E-01, 0.7139E-01, 0.7214E-01, 0.7289E-01,& - 0.7366E-01, 0.7441E-01, 0.7518E-01, 0.7596E-01,& - 0.7676E-01, 0.7756E-01, 0.7833E-01, 0.7915E-01,& - 0.7995E-01, 0.8078E-01, 0.8161E-01, 0.8243E-01,& - 0.8326E-01, 0.8411E-01, 0.8496E-01, 0.8581E-01,& - 0.8669E-01, 0.8754E-01, 0.8842E-01, 0.8932E-01,& - 0.9020E-01, 0.9110E-01, 0.9200E-01, 0.9290E-01,& - 0.9383E-01, 0.9476E-01, 0.9569E-01, 0.9665E-01,& - 0.9760E-01, 0.9855E-01, 0.9951E-01, 0.1005E+00,& - 0.1015E+00, 0.1024E+00, 0.1034E+00, 0.1044E+00,& - 0.1054E+00, 0.1065E+00, 0.1075E+00, 0.1085E+00,& - 0.1096E+00, 0.1106E+00, 0.1117E+00, 0.1127E+00,& - 0.1138E+00, 0.1149E+00, 0.1160E+00, 0.1171E+00,& - 0.1182E+00, 0.1193E+00, 0.1204E+00, 0.1215E+00,& - 0.1227E+00, 0.1238E+00, 0.1250E+00, 0.1262E+00,& - 0.1273E+00, 0.1285E+00, 0.1297E+00, 0.1309E+00,& - 0.1321E+00, 0.1333E+00, 0.1346E+00, 0.1358E+00,& - 0.1370E+00, 0.1383E+00, 0.1396E+00, 0.1408E+00,& - 0.1421E+00, 0.1434E+00, 0.1447E+00, 0.1460E+00,& - 0.1473E+00, 0.1487E+00, 0.1500E+00, 0.1514E+00,& - 0.1527E+00, 0.1541E+00, 0.1555E+00, 0.1569E+00,& - 0.1582E+00, 0.1597E+00, 0.1611E+00, 0.1625E+00,& - 0.1639E+00, 0.1654E+00, 0.1669E+00, 0.1683E+00,& - 0.1698E+00, 0.1713E+00, 0.1728E+00, 0.1743E+00,& - 0.1758E+00, 0.1774E+00, 0.1789E+00, 0.1805E+00,& - 0.1820E+00, 0.1836E+00, 0.1852E+00, 0.1868E+00,& - 0.1884E+00, 0.1901E+00, 0.1917E+00, 0.1933E+00,& - 0.1950E+00, 0.1967E+00, 0.1983E+00, 0.2000E+00,& - 0.2017E+00, 0.2034E+00, 0.2052E+00, 0.2069E+00,& - 0.2087E+00, 0.2104E+00, 0.2122E+00, 0.2140E+00,& - 0.2158E+00, 0.2176E+00, 0.2194E+00, 0.2213E+00,& - 0.2231E+00, 0.2250E+00, 0.2269E+00, 0.2288E+00,& - 0.2307E+00, 0.2326E+00, 0.2345E+00, 0.2365E+00,& - 0.2384E+00, 0.2404E+00, 0.2424E+00, 0.2444E+00,& - 0.2464E+00, 0.2484E+00, 0.2504E+00, 0.2525E+00,& - 0.2545E+00, 0.2566E+00, 0.2587E+00, 0.2608E+00,& - 0.2630E+00, 0.2651E+00, 0.2672E+00, 0.2694E+00,& - 0.2716E+00, 0.2738E+00, 0.2760E+00, 0.2782E+00,& - 0.2804E+00, 0.2827E+00, 0.2850E+00, 0.2873E+00,& - 0.2896E+00, 0.2919E+00, 0.2942E+00, 0.2965E+00,& - 0.2989E+00, 0.3013E+00, 0.3037E+00, 0.3061E+00,& - 0.3085E+00, 0.3109E+00, 0.3134E+00, 0.3159E+00,& - 0.3184E+00, 0.3209E+00, 0.3234E+00, 0.3260E+00,& - 0.3285E+00, 0.3311E+00, 0.3337E+00, 0.3363E+00,& - 0.3389E+00, 0.3415E+00, 0.3442E+00, 0.3469E+00,& - 0.3496E+00, 0.3523E+00, 0.3550E+00, 0.3578E+00,& - 0.3605E+00, 0.3633E+00, 0.3661E+00, 0.3690E+00,& - 0.3718E+00, 0.3747E+00, 0.3775E+00, 0.3804E+00,& - 0.3834E+00, 0.3863E+00, 0.3893E+00, 0.3923E+00,& - 0.3952E+00, 0.3983E+00, 0.4013E+00, 0.4044E+00,& - 0.4074E+00, 0.4105E+00, 0.4136E+00, 0.4168E+00,& - 0.4199E+00, 0.4231E+00, 0.4263E+00, 0.4295E+00,& - 0.4328E+00, 0.4360E+00, 0.4393E+00, 0.4426E+00,& - 0.4459E+00, 0.4493E+00, 0.4527E+00, 0.4560E+00,& - 0.4595E+00, 0.4629E+00, 0.4664E+00, 0.4698E+00,& - 0.4734E+00, 0.4769E+00, 0.4804E+00, 0.4840E+00,& - 0.4876E+00, 0.4912E+00, 0.4949E+00, 0.4986E+00,& - 0.5022E+00, 0.5060E+00, 0.5097E+00, 0.5135E+00,& - 0.5173E+00, 0.5211E+00, 0.5249E+00, 0.5288E+00,& - 0.5327E+00, 0.5366E+00, 0.5406E+00, 0.5445E+00,& - 0.5485E+00, 0.5526E+00, 0.5566E+00, 0.5607E+00,& - 0.5648E+00, 0.5689E+00, 0.5731E+00, 0.5772E+00,& - 0.5814E+00, 0.5857E+00, 0.5900E+00, 0.5943E+00,& - 0.5986E+00, 0.6029E+00, 0.6073E+00, 0.6117E+00,& - 0.6162E+00, 0.6206E+00, 0.6251E+00, 0.6297E+00,& - 0.6342E+00, 0.6388E+00, 0.6434E+00, 0.6481E+00,& - 0.6528E+00, 0.6575E+00, 0.6622E+00, 0.6670E+00,& - 0.6718E+00, 0.6766E+00, 0.6815E+00, 0.6864E+00,& - 0.6914E+00, 0.6963E+00, 0.7013E+00, 0.7064E+00,& - 0.7114E+00, 0.7165E+00, 0.7217E+00, 0.7269E+00,& - 0.7321E+00, 0.7373E+00, 0.7426E+00, 0.7479E+00,& - 0.7533E+00, 0.7586E+00, 0.7641E+00, 0.7695E+00,& - 0.7750E+00, 0.7805E+00, 0.7861E+00, 0.7917E+00,& - 0.7974E+00, 0.8031E+00, 0.8088E+00, 0.8145E+00,& - 0.8204E+00, 0.8262E+00, 0.8321E+00, 0.8380E+00,& - 0.8440E+00, 0.8500E+00, 0.8560E+00, 0.8621E+00,& - 0.8682E+00, 0.8744E+00, 0.8806E+00, 0.8869E+00,& - 0.8931E+00, 0.8995E+00, 0.9059E+00, 0.9123E+00,& - 0.9188E+00, 0.9253E+00, 0.9319E+00, 0.9385E+00,& - 0.9452E+00, 0.9519E+00, 0.9586E+00, 0.9654E+00,& - 0.9723E+00, 0.9792E+00, 0.9861E+00, 0.9931E+00,& - 0.1000E+01, 0.1007E+01, 0.1014E+01, 0.1022E+01,& - 0.1029E+01, 0.1036E+01, 0.1043E+01, 0.1051E+01,& - 0.1058E+01, 0.1066E+01, 0.1073E+01, 0.1081E+01,& - 0.1089E+01, 0.1096E+01, 0.1104E+01, 0.1112E+01,& - 0.1120E+01, 0.1128E+01, 0.1136E+01, 0.1144E+01,& - 0.1152E+01, 0.1160E+01, 0.1169E+01, 0.1177E+01,& - 0.1185E+01, 0.1194E+01, 0.1202E+01, 0.1211E+01,& - 0.1219E+01, 0.1228E+01, 0.1237E+01, 0.1246E+01,& - 0.1255E+01, 0.1263E+01, 0.1272E+01, 0.1282E+01,& - 0.1291E+01, 0.1300E+01, 0.1309E+01, 0.1319E+01,& - 0.1328E+01, 0.1338E+01, 0.1347E+01, 0.1357E+01,& - 0.1367E+01, 0.1376E+01, 0.1386E+01, 0.1396E+01,& - 0.1406E+01, 0.1416E+01, 0.1427E+01, 0.1437E+01,& - 0.1447E+01, 0.1458E+01, 0.1468E+01, 0.1479E+01,& - 0.1490E+01, 0.1500E+01, 0.1511E+01, 0.1522E+01,& - 0.1533E+01, 0.1544E+01, 0.1556E+01, 0.1567E+01,& - 0.1578E+01, 0.1590E+01, 0.1602E+01, 0.1613E+01,& - 0.1625E+01, 0.1637E+01, 0.1649E+01, 0.1661E+01,& - 0.1673E+01, 0.1686E+01, 0.1698E+01, 0.1711E+01,& - 0.1723E+01, 0.1736E+01, 0.1749E+01, 0.1762E+01,& - 0.1775E+01, 0.1788E+01, 0.1801E+01, 0.1815E+01,& - 0.1828E+01, 0.1842E+01, 0.1856E+01, 0.1870E+01,& - 0.1884E+01, 0.1898E+01, 0.1912E+01, 0.1926E+01,& - 0.1941E+01, 0.1956E+01, 0.1970E+01, 0.1985E+01,& - 0.2001E+01, 0.2016E+01, 0.2031E+01, 0.2047E+01,& - 0.2062E+01, 0.2078E+01, 0.2094E+01, 0.2110E+01,& - 0.2126E+01, 0.2143E+01, 0.2159E+01, 0.2176E+01,& - 0.2193E+01, 0.2210E+01, 0.2227E+01, 0.2245E+01,& - 0.2263E+01, 0.2280E+01, 0.2298E+01, 0.2316E+01,& - 0.2335E+01, 0.2353E+01, 0.2372E+01, 0.2391E+01,& - 0.2410E+01, 0.2429E+01, 0.2449E+01, 0.2469E+01,& - 0.2488E+01, 0.2509E+01, 0.2529E+01, 0.2550E+01,& - 0.2570E+01, 0.2591E+01, 0.2613E+01, 0.2634E+01,& - 0.2656E+01, 0.2678E+01, 0.2700E+01, 0.2723E+01,& - 0.2746E+01, 0.2769E+01, 0.2792E+01, 0.2816E+01,& - 0.2840E+01, 0.2864E+01, 0.2888E+01, 0.2913E+01,& - 0.2938E+01, 0.2964E+01, 0.2989E+01, 0.3015E+01,& - 0.3042E+01, 0.3068E+01, 0.3095E+01, 0.3123E+01,& - 0.3151E+01, 0.3179E+01, 0.3207E+01, 0.3236E+01,& - 0.3265E+01, 0.3295E+01, 0.3325E+01, 0.3356E+01,& - 0.3387E+01, 0.3418E+01, 0.3450E+01, 0.3482E+01,& - 0.3515E+01, 0.3548E+01, 0.3582E+01, 0.3616E+01,& - 0.3651E+01, 0.3687E+01, 0.3723E+01, 0.3759E+01,& - 0.3796E+01, 0.3834E+01, 0.3872E+01, 0.3911E+01,& - 0.3951E+01, 0.3991E+01, 0.4032E+01, 0.4074E+01,& - 0.4116E+01, 0.4159E+01, 0.4203E+01, 0.4248E+01,& - 0.4293E+01, 0.4340E+01, 0.4387E+01, 0.4435E+01,& - 0.4485E+01, 0.4535E+01, 0.4586E+01, 0.4638E+01,& - 0.4692E+01, 0.4746E+01, 0.4802E+01, 0.4859E+01,& - 0.4917E+01, 0.4977E+01, 0.5038E+01, 0.5100E+01,& - 0.5164E+01, 0.5229E+01, 0.5296E+01, 0.5365E+01,& - 0.5436E+01, 0.5508E+01, 0.5583E+01, 0.5659E+01,& - 0.5738E+01, 0.5819E+01, 0.5903E+01, 0.5989E+01,& - 0.6078E+01, 0.6169E+01, 0.6264E+01, 0.6362E+01,& - 0.6464E+01, 0.6569E+01, 0.6678E+01, 0.6791E+01,& - 0.6909E+01, 0.7032E+01, 0.7160E+01, 0.7294E+01,& - 0.7434E+01, 0.7581E+01, 0.7735E+01, 0.7898E+01,& - 0.8069E+01, 0.8251E+01, 0.8444E+01, 0.8649E+01,& - 0.8869E+01, 0.9105E+01, 0.9360E+01, 0.9637E+01,& - 0.9939E+01, 0.1027E+02, 0.1064E+02, 0.1106E+02,& - 0.1153E+02, 0.1209E+02, 0.1275E+02, 0.1356E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 82) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.3630E-04, 0.3630E-04,& - 0.3630E-04, 0.3630E-04, 0.3630E-04, 0.3630E-04,& - 0.3630E-04, 0.3630E-04, 0.3630E-04, 0.3630E-04,& - 0.6260E-04, 0.6260E-04, 0.6260E-04, 0.6260E-04,& - 0.6260E-04, 0.6260E-04, 0.6260E-04, 0.6260E-04,& - 0.8890E-04, 0.8890E-04, 0.8890E-04, 0.8890E-04,& - 0.8890E-04, 0.8890E-04, 0.1152E-03, 0.1152E-03,& - 0.1152E-03, 0.1152E-03, 0.1152E-03, 0.1415E-03,& - 0.1415E-03, 0.1415E-03, 0.1415E-03, 0.1678E-03,& - 0.1678E-03, 0.1678E-03, 0.1678E-03, 0.1941E-03,& - 0.1941E-03, 0.1941E-03, 0.2204E-03, 0.2204E-03,& - 0.2204E-03, 0.2467E-03, 0.2467E-03, 0.2467E-03,& - 0.2730E-03, 0.2730E-03, 0.2993E-03, 0.2993E-03,& - 0.2993E-03, 0.3256E-03, 0.3256E-03, 0.3519E-03,& - 0.3519E-03, 0.3782E-03, 0.3782E-03, 0.4045E-03,& - 0.4045E-03, 0.4308E-03, 0.4308E-03, 0.4571E-03,& - 0.4571E-03, 0.4834E-03, 0.4834E-03, 0.5097E-03,& - 0.5360E-03, 0.5360E-03, 0.5623E-03, 0.5886E-03,& - 0.5886E-03, 0.6149E-03, 0.6412E-03, 0.6412E-03,& - 0.6675E-03, 0.6938E-03, 0.7201E-03, 0.7201E-03,& - 0.7464E-03, 0.7727E-03, 0.7990E-03, 0.8253E-03,& - 0.8516E-03, 0.8779E-03, 0.8779E-03, 0.9042E-03,& - 0.9305E-03, 0.9568E-03, 0.9831E-03, 0.1009E-02,& - 0.1036E-02, 0.1088E-02, 0.1115E-02, 0.1141E-02,& - 0.1167E-02, 0.1194E-02, 0.1220E-02, 0.1246E-02,& - 0.1299E-02, 0.1325E-02, 0.1351E-02, 0.1378E-02,& - 0.1430E-02, 0.1457E-02, 0.1509E-02, 0.1535E-02,& - 0.1562E-02, 0.1614E-02, 0.1641E-02, 0.1693E-02,& - 0.1720E-02, 0.1772E-02, 0.1825E-02, 0.1851E-02,& - 0.1904E-02, 0.1956E-02, 0.1983E-02, 0.2035E-02,& - 0.2088E-02, 0.2140E-02, 0.2193E-02, 0.2219E-02,& - 0.2272E-02, 0.2324E-02, 0.2377E-02, 0.2430E-02,& - 0.2482E-02, 0.2535E-02, 0.2587E-02, 0.2666E-02,& - 0.2719E-02, 0.2772E-02, 0.2824E-02, 0.2903E-02,& - 0.2956E-02, 0.3008E-02, 0.3087E-02, 0.3140E-02,& - 0.3219E-02, 0.3271E-02, 0.3350E-02, 0.3403E-02,& - 0.3482E-02, 0.3561E-02, 0.3639E-02, 0.3692E-02,& - 0.3771E-02, 0.3850E-02, 0.3929E-02, 0.4008E-02,& - 0.4087E-02, 0.4165E-02, 0.4244E-02, 0.4323E-02,& - 0.4428E-02, 0.4507E-02, 0.4586E-02, 0.4665E-02,& - 0.4770E-02, 0.4849E-02, 0.4955E-02, 0.5033E-02,& - 0.5139E-02, 0.5244E-02, 0.5323E-02, 0.5428E-02,& - 0.5533E-02, 0.5638E-02, 0.5744E-02, 0.5849E-02,& - 0.5954E-02, 0.6059E-02, 0.6164E-02, 0.6270E-02,& - 0.6375E-02, 0.6506E-02, 0.6611E-02, 0.6743E-02,& - 0.6848E-02, 0.6980E-02, 0.7085E-02, 0.7216E-02,& - 0.7348E-02, 0.7453E-02, 0.7585E-02, 0.7716E-02,& - 0.7848E-02, 0.7979E-02, 0.8137E-02, 0.8268E-02,& - 0.8400E-02, 0.8531E-02, 0.8689E-02, 0.8821E-02,& - 0.8978E-02, 0.9136E-02, 0.9268E-02, 0.9426E-02,& - 0.9583E-02, 0.9741E-02, 0.9899E-02, 0.1006E-01,& - 0.1021E-01, 0.1037E-01, 0.1056E-01, 0.1071E-01,& - 0.1087E-01, 0.1106E-01, 0.1124E-01, 0.1140E-01,& - 0.1158E-01, 0.1177E-01, 0.1195E-01, 0.1213E-01,& - 0.1232E-01, 0.1250E-01, 0.1271E-01, 0.1290E-01,& - 0.1311E-01, 0.1329E-01, 0.1350E-01, 0.1371E-01,& - 0.1390E-01, 0.1411E-01, 0.1432E-01, 0.1453E-01,& - 0.1476E-01, 0.1498E-01, 0.1519E-01, 0.1542E-01,& - 0.1563E-01, 0.1587E-01, 0.1611E-01, 0.1634E-01,& - 0.1658E-01, 0.1682E-01, 0.1705E-01, 0.1729E-01,& - 0.1755E-01, 0.1779E-01, 0.1805E-01, 0.1832E-01,& - 0.1855E-01, 0.1881E-01, 0.1908E-01, 0.1934E-01,& - 0.1963E-01, 0.1989E-01, 0.2018E-01, 0.2045E-01,& - 0.2073E-01, 0.2102E-01, 0.2131E-01, 0.2160E-01,& - 0.2189E-01, 0.2218E-01, 0.2250E-01, 0.2279E-01,& - 0.2310E-01, 0.2342E-01, 0.2373E-01, 0.2405E-01,& - 0.2436E-01, 0.2468E-01, 0.2500E-01, 0.2534E-01,& - 0.2568E-01, 0.2599E-01, 0.2634E-01, 0.2668E-01,& - 0.2705E-01, 0.2739E-01, 0.2773E-01, 0.2810E-01,& - 0.2847E-01, 0.2884E-01, 0.2920E-01, 0.2957E-01,& - 0.2994E-01, 0.3031E-01, 0.3070E-01, 0.3110E-01,& - 0.3149E-01, 0.3189E-01, 0.3228E-01, 0.3268E-01,& - 0.3310E-01, 0.3349E-01, 0.3391E-01, 0.3433E-01,& - 0.3475E-01, 0.3517E-01, 0.3562E-01, 0.3604E-01,& - 0.3649E-01, 0.3694E-01, 0.3738E-01, 0.3783E-01,& - 0.3828E-01, 0.3875E-01, 0.3920E-01, 0.3967E-01,& - 0.4014E-01, 0.4062E-01, 0.4112E-01, 0.4159E-01,& - 0.4209E-01, 0.4259E-01, 0.4309E-01, 0.4359E-01,& - 0.4409E-01, 0.4462E-01, 0.4514E-01, 0.4567E-01,& - 0.4619E-01, 0.4672E-01, 0.4725E-01, 0.4780E-01,& - 0.4835E-01, 0.4890E-01, 0.4946E-01, 0.5003E-01,& - 0.5059E-01, 0.5116E-01, 0.5174E-01, 0.5232E-01,& - 0.5293E-01, 0.5351E-01, 0.5411E-01, 0.5472E-01,& - 0.5532E-01, 0.5595E-01, 0.5656E-01, 0.5719E-01,& - 0.5782E-01, 0.5845E-01, 0.5911E-01, 0.5974E-01,& - 0.6040E-01, 0.6105E-01, 0.6174E-01, 0.6239E-01,& - 0.6308E-01, 0.6376E-01, 0.6445E-01, 0.6513E-01,& - 0.6584E-01, 0.6655E-01, 0.6726E-01, 0.6797E-01,& - 0.6871E-01, 0.6942E-01, 0.7015E-01, 0.7092E-01,& - 0.7165E-01, 0.7242E-01, 0.7318E-01, 0.7394E-01,& - 0.7470E-01, 0.7549E-01, 0.7628E-01, 0.7707E-01,& - 0.7789E-01, 0.7867E-01, 0.7949E-01, 0.8031E-01,& - 0.8115E-01, 0.8199E-01, 0.8283E-01, 0.8367E-01,& - 0.8451E-01, 0.8538E-01, 0.8625E-01, 0.8712E-01,& - 0.8801E-01, 0.8891E-01, 0.8980E-01, 0.9069E-01,& - 0.9161E-01, 0.9254E-01, 0.9346E-01, 0.9438E-01,& - 0.9532E-01, 0.9627E-01, 0.9722E-01, 0.9819E-01,& - 0.9916E-01, 0.1001E+00, 0.1011E+00, 0.1021E+00,& - 0.1031E+00, 0.1041E+00, 0.1051E+00, 0.1062E+00,& - 0.1072E+00, 0.1082E+00, 0.1093E+00, 0.1103E+00,& - 0.1114E+00, 0.1125E+00, 0.1136E+00, 0.1147E+00,& - 0.1158E+00, 0.1169E+00, 0.1180E+00, 0.1191E+00,& - 0.1202E+00, 0.1214E+00, 0.1225E+00, 0.1237E+00,& - 0.1249E+00, 0.1260E+00, 0.1272E+00, 0.1284E+00,& - 0.1296E+00, 0.1308E+00, 0.1321E+00, 0.1333E+00,& - 0.1345E+00, 0.1358E+00, 0.1370E+00, 0.1383E+00,& - 0.1396E+00, 0.1409E+00, 0.1422E+00, 0.1435E+00,& - 0.1448E+00, 0.1461E+00, 0.1475E+00, 0.1488E+00,& - 0.1502E+00, 0.1515E+00, 0.1529E+00, 0.1543E+00,& - 0.1557E+00, 0.1571E+00, 0.1585E+00, 0.1599E+00,& - 0.1614E+00, 0.1628E+00, 0.1643E+00, 0.1658E+00,& - 0.1672E+00, 0.1687E+00, 0.1702E+00, 0.1717E+00,& - 0.1733E+00, 0.1748E+00, 0.1763E+00, 0.1779E+00,& - 0.1795E+00, 0.1810E+00, 0.1826E+00, 0.1842E+00,& - 0.1858E+00, 0.1875E+00, 0.1891E+00, 0.1908E+00,& - 0.1924E+00, 0.1941E+00, 0.1958E+00, 0.1975E+00,& - 0.1992E+00, 0.2009E+00, 0.2026E+00, 0.2044E+00,& - 0.2061E+00, 0.2079E+00, 0.2097E+00, 0.2115E+00,& - 0.2133E+00, 0.2151E+00, 0.2169E+00, 0.2188E+00,& - 0.2206E+00, 0.2225E+00, 0.2244E+00, 0.2263E+00,& - 0.2282E+00, 0.2301E+00, 0.2321E+00, 0.2340E+00,& - 0.2360E+00, 0.2380E+00, 0.2400E+00, 0.2420E+00,& - 0.2440E+00, 0.2460E+00, 0.2481E+00, 0.2502E+00,& - 0.2522E+00, 0.2543E+00, 0.2564E+00, 0.2585E+00,& - 0.2607E+00, 0.2628E+00, 0.2650E+00, 0.2672E+00,& - 0.2694E+00, 0.2716E+00, 0.2738E+00, 0.2760E+00,& - 0.2783E+00, 0.2806E+00, 0.2828E+00, 0.2852E+00,& - 0.2875E+00, 0.2898E+00, 0.2922E+00, 0.2945E+00,& - 0.2969E+00, 0.2993E+00, 0.3017E+00, 0.3041E+00,& - 0.3066E+00, 0.3091E+00, 0.3115E+00, 0.3140E+00,& - 0.3166E+00, 0.3191E+00, 0.3216E+00, 0.3242E+00,& - 0.3268E+00, 0.3294E+00, 0.3320E+00, 0.3347E+00,& - 0.3373E+00, 0.3400E+00, 0.3427E+00, 0.3454E+00,& - 0.3481E+00, 0.3509E+00, 0.3536E+00, 0.3564E+00,& - 0.3592E+00, 0.3620E+00, 0.3649E+00, 0.3677E+00,& - 0.3706E+00, 0.3735E+00, 0.3764E+00, 0.3793E+00,& - 0.3823E+00, 0.3853E+00, 0.3883E+00, 0.3913E+00,& - 0.3943E+00, 0.3974E+00, 0.4005E+00, 0.4036E+00,& - 0.4067E+00, 0.4098E+00, 0.4130E+00, 0.4162E+00,& - 0.4194E+00, 0.4226E+00, 0.4258E+00, 0.4291E+00,& - 0.4324E+00, 0.4357E+00, 0.4390E+00, 0.4424E+00,& - 0.4458E+00, 0.4492E+00, 0.4526E+00, 0.4561E+00,& - 0.4595E+00, 0.4630E+00, 0.4665E+00, 0.4701E+00,& - 0.4736E+00, 0.4772E+00, 0.4808E+00, 0.4845E+00,& - 0.4881E+00, 0.4918E+00, 0.4955E+00, 0.4992E+00,& - 0.5030E+00, 0.5068E+00, 0.5106E+00, 0.5144E+00,& - 0.5183E+00, 0.5222E+00, 0.5261E+00, 0.5300E+00,& - 0.5340E+00, 0.5380E+00, 0.5420E+00, 0.5461E+00,& - 0.5501E+00, 0.5542E+00, 0.5584E+00, 0.5625E+00,& - 0.5667E+00, 0.5709E+00, 0.5752E+00, 0.5794E+00,& - 0.5837E+00, 0.5881E+00, 0.5924E+00, 0.5968E+00,& - 0.6012E+00, 0.6057E+00, 0.6101E+00, 0.6146E+00,& - 0.6192E+00, 0.6237E+00, 0.6283E+00, 0.6330E+00,& - 0.6376E+00, 0.6423E+00, 0.6470E+00, 0.6518E+00,& - 0.6566E+00, 0.6614E+00, 0.6662E+00, 0.6711E+00,& - 0.6760E+00, 0.6810E+00, 0.6860E+00, 0.6910E+00,& - 0.6960E+00, 0.7011E+00, 0.7062E+00, 0.7114E+00,& - 0.7166E+00, 0.7218E+00, 0.7271E+00, 0.7324E+00,& - 0.7377E+00, 0.7431E+00, 0.7485E+00, 0.7539E+00,& - 0.7594E+00, 0.7649E+00, 0.7705E+00, 0.7761E+00,& - 0.7817E+00, 0.7874E+00, 0.7931E+00, 0.7989E+00,& - 0.8046E+00, 0.8105E+00, 0.8164E+00, 0.8223E+00,& - 0.8282E+00, 0.8342E+00, 0.8403E+00, 0.8464E+00,& - 0.8525E+00, 0.8586E+00, 0.8649E+00, 0.8711E+00,& - 0.8774E+00, 0.8837E+00, 0.8901E+00, 0.8966E+00,& - 0.9030E+00, 0.9096E+00, 0.9161E+00, 0.9227E+00,& - 0.9294E+00, 0.9361E+00, 0.9429E+00, 0.9497E+00,& - 0.9565E+00, 0.9634E+00, 0.9704E+00, 0.9774E+00,& - 0.9844E+00, 0.9915E+00, 0.9987E+00, 0.1006E+01,& - 0.1013E+01, 0.1020E+01, 0.1028E+01, 0.1035E+01,& - 0.1043E+01, 0.1050E+01, 0.1058E+01, 0.1065E+01,& - 0.1073E+01, 0.1081E+01, 0.1089E+01, 0.1097E+01,& - 0.1104E+01, 0.1112E+01, 0.1120E+01, 0.1129E+01,& - 0.1137E+01, 0.1145E+01, 0.1153E+01, 0.1162E+01,& - 0.1170E+01, 0.1178E+01, 0.1187E+01, 0.1196E+01,& - 0.1204E+01, 0.1213E+01, 0.1222E+01, 0.1231E+01,& - 0.1240E+01, 0.1249E+01, 0.1258E+01, 0.1267E+01,& - 0.1276E+01, 0.1285E+01, 0.1295E+01, 0.1304E+01,& - 0.1313E+01, 0.1323E+01, 0.1333E+01, 0.1342E+01,& - 0.1352E+01, 0.1362E+01, 0.1372E+01, 0.1382E+01,& - 0.1392E+01, 0.1402E+01, 0.1413E+01, 0.1423E+01,& - 0.1433E+01, 0.1444E+01, 0.1454E+01, 0.1465E+01,& - 0.1476E+01, 0.1487E+01, 0.1498E+01, 0.1509E+01,& - 0.1520E+01, 0.1531E+01, 0.1542E+01, 0.1554E+01,& - 0.1565E+01, 0.1577E+01, 0.1589E+01, 0.1600E+01,& - 0.1612E+01, 0.1624E+01, 0.1636E+01, 0.1649E+01,& - 0.1661E+01, 0.1673E+01, 0.1686E+01, 0.1698E+01,& - 0.1711E+01, 0.1724E+01, 0.1737E+01, 0.1750E+01,& - 0.1763E+01, 0.1777E+01, 0.1790E+01, 0.1803E+01,& - 0.1817E+01, 0.1831E+01, 0.1845E+01, 0.1859E+01,& - 0.1873E+01, 0.1887E+01, 0.1902E+01, 0.1916E+01,& - 0.1931E+01, 0.1946E+01, 0.1961E+01, 0.1976E+01,& - 0.1991E+01, 0.2006E+01, 0.2022E+01, 0.2038E+01,& - 0.2053E+01, 0.2069E+01, 0.2085E+01, 0.2102E+01,& - 0.2118E+01, 0.2135E+01, 0.2152E+01, 0.2169E+01,& - 0.2186E+01, 0.2203E+01, 0.2220E+01, 0.2238E+01,& - 0.2256E+01, 0.2274E+01, 0.2292E+01, 0.2310E+01,& - 0.2329E+01, 0.2347E+01, 0.2366E+01, 0.2386E+01,& - 0.2405E+01, 0.2424E+01, 0.2444E+01, 0.2464E+01,& - 0.2484E+01, 0.2505E+01, 0.2525E+01, 0.2546E+01,& - 0.2567E+01, 0.2589E+01, 0.2610E+01, 0.2632E+01,& - 0.2654E+01, 0.2676E+01, 0.2699E+01, 0.2722E+01,& - 0.2745E+01, 0.2768E+01, 0.2792E+01, 0.2816E+01,& - 0.2840E+01, 0.2864E+01, 0.2889E+01, 0.2914E+01,& - 0.2940E+01, 0.2965E+01, 0.2991E+01, 0.3018E+01,& - 0.3045E+01, 0.3072E+01, 0.3099E+01, 0.3127E+01,& - 0.3155E+01, 0.3183E+01, 0.3212E+01, 0.3242E+01,& - 0.3271E+01, 0.3302E+01, 0.3332E+01, 0.3363E+01,& - 0.3394E+01, 0.3426E+01, 0.3459E+01, 0.3491E+01,& - 0.3525E+01, 0.3558E+01, 0.3593E+01, 0.3628E+01,& - 0.3663E+01, 0.3699E+01, 0.3735E+01, 0.3772E+01,& - 0.3810E+01, 0.3848E+01, 0.3887E+01, 0.3927E+01,& - 0.3967E+01, 0.4008E+01, 0.4049E+01, 0.4092E+01,& - 0.4135E+01, 0.4179E+01, 0.4223E+01, 0.4269E+01,& - 0.4315E+01, 0.4362E+01, 0.4410E+01, 0.4460E+01,& - 0.4510E+01, 0.4561E+01, 0.4613E+01, 0.4666E+01,& - 0.4720E+01, 0.4775E+01, 0.4832E+01, 0.4890E+01,& - 0.4949E+01, 0.5010E+01, 0.5072E+01, 0.5135E+01,& - 0.5200E+01, 0.5267E+01, 0.5335E+01, 0.5405E+01,& - 0.5477E+01, 0.5551E+01, 0.5627E+01, 0.5705E+01,& - 0.5785E+01, 0.5867E+01, 0.5952E+01, 0.6040E+01,& - 0.6130E+01, 0.6224E+01, 0.6320E+01, 0.6420E+01,& - 0.6523E+01, 0.6631E+01, 0.6742E+01, 0.6857E+01,& - 0.6977E+01, 0.7102E+01, 0.7233E+01, 0.7369E+01,& - 0.7512E+01, 0.7662E+01, 0.7819E+01, 0.7985E+01,& - 0.8160E+01, 0.8345E+01, 0.8542E+01, 0.8752E+01,& - 0.8976E+01, 0.9217E+01, 0.9477E+01, 0.9759E+01,& - 0.1007E+02, 0.1041E+02, 0.1079E+02, 0.1121E+02,& - 0.1170E+02, 0.1226E+02, 0.1293E+02, 0.1376E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 83) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3681E-04,& - 0.3681E-04, 0.3681E-04, 0.3681E-04, 0.3681E-04,& - 0.3681E-04, 0.3681E-04, 0.3681E-04, 0.3681E-04,& - 0.3681E-04, 0.3681E-04, 0.6362E-04, 0.6362E-04,& - 0.6362E-04, 0.6362E-04, 0.6362E-04, 0.6362E-04,& - 0.6362E-04, 0.9043E-04, 0.9043E-04, 0.9043E-04,& - 0.9043E-04, 0.9043E-04, 0.9043E-04, 0.1172E-03,& - 0.1172E-03, 0.1172E-03, 0.1172E-03, 0.1172E-03,& - 0.1441E-03, 0.1441E-03, 0.1441E-03, 0.1441E-03,& - 0.1441E-03, 0.1709E-03, 0.1709E-03, 0.1709E-03,& - 0.1709E-03, 0.1977E-03, 0.1977E-03, 0.1977E-03,& - 0.2245E-03, 0.2245E-03, 0.2245E-03, 0.2513E-03,& - 0.2513E-03, 0.2513E-03, 0.2781E-03, 0.2781E-03,& - 0.2781E-03, 0.3049E-03, 0.3049E-03, 0.3317E-03,& - 0.3317E-03, 0.3317E-03, 0.3585E-03, 0.3585E-03,& - 0.3853E-03, 0.3853E-03, 0.4122E-03, 0.4122E-03,& - 0.4390E-03, 0.4390E-03, 0.4658E-03, 0.4658E-03,& - 0.4926E-03, 0.5194E-03, 0.5194E-03, 0.5462E-03,& - 0.5462E-03, 0.5730E-03, 0.5998E-03, 0.5998E-03,& - 0.6266E-03, 0.6534E-03, 0.6534E-03, 0.6803E-03,& - 0.7071E-03, 0.7339E-03, 0.7607E-03, 0.7607E-03,& - 0.7875E-03, 0.8143E-03, 0.8411E-03, 0.8679E-03,& - 0.8947E-03, 0.8947E-03, 0.9215E-03, 0.9484E-03,& - 0.9752E-03, 0.1002E-02, 0.1029E-02, 0.1056E-02,& - 0.1082E-02, 0.1109E-02, 0.1163E-02, 0.1190E-02,& - 0.1216E-02, 0.1243E-02, 0.1270E-02, 0.1297E-02,& - 0.1351E-02, 0.1377E-02, 0.1404E-02, 0.1431E-02,& - 0.1485E-02, 0.1511E-02, 0.1538E-02, 0.1592E-02,& - 0.1619E-02, 0.1672E-02, 0.1699E-02, 0.1753E-02,& - 0.1779E-02, 0.1833E-02, 0.1860E-02, 0.1914E-02,& - 0.1967E-02, 0.1994E-02, 0.2048E-02, 0.2101E-02,& - 0.2155E-02, 0.2182E-02, 0.2235E-02, 0.2289E-02,& - 0.2342E-02, 0.2396E-02, 0.2450E-02, 0.2503E-02,& - 0.2557E-02, 0.2611E-02, 0.2664E-02, 0.2718E-02,& - 0.2798E-02, 0.2852E-02, 0.2905E-02, 0.2959E-02,& - 0.3040E-02, 0.3093E-02, 0.3147E-02, 0.3227E-02,& - 0.3281E-02, 0.3361E-02, 0.3415E-02, 0.3495E-02,& - 0.3576E-02, 0.3629E-02, 0.3710E-02, 0.3790E-02,& - 0.3871E-02, 0.3924E-02, 0.4005E-02, 0.4085E-02,& - 0.4166E-02, 0.4246E-02, 0.4326E-02, 0.4407E-02,& - 0.4514E-02, 0.4595E-02, 0.4675E-02, 0.4755E-02,& - 0.4863E-02, 0.4943E-02, 0.5050E-02, 0.5131E-02,& - 0.5238E-02, 0.5318E-02, 0.5426E-02, 0.5533E-02,& - 0.5640E-02, 0.5721E-02, 0.5828E-02, 0.5935E-02,& - 0.6042E-02, 0.6150E-02, 0.6257E-02, 0.6391E-02,& - 0.6498E-02, 0.6605E-02, 0.6713E-02, 0.6847E-02,& - 0.6954E-02, 0.7088E-02, 0.7195E-02, 0.7329E-02,& - 0.7463E-02, 0.7570E-02, 0.7705E-02, 0.7839E-02,& - 0.7973E-02, 0.8107E-02, 0.8241E-02, 0.8375E-02,& - 0.8536E-02, 0.8670E-02, 0.8804E-02, 0.8965E-02,& - 0.9099E-02, 0.9260E-02, 0.9420E-02, 0.9554E-02,& - 0.9715E-02, 0.9876E-02, 0.1004E-01, 0.1020E-01,& - 0.1036E-01, 0.1052E-01, 0.1068E-01, 0.1087E-01,& - 0.1103E-01, 0.1122E-01, 0.1138E-01, 0.1157E-01,& - 0.1175E-01, 0.1191E-01, 0.1210E-01, 0.1229E-01,& - 0.1248E-01, 0.1269E-01, 0.1288E-01, 0.1307E-01,& - 0.1325E-01, 0.1347E-01, 0.1368E-01, 0.1387E-01,& - 0.1409E-01, 0.1430E-01, 0.1451E-01, 0.1473E-01,& - 0.1494E-01, 0.1516E-01, 0.1540E-01, 0.1561E-01,& - 0.1583E-01, 0.1607E-01, 0.1631E-01, 0.1655E-01,& - 0.1679E-01, 0.1703E-01, 0.1728E-01, 0.1752E-01,& - 0.1776E-01, 0.1803E-01, 0.1827E-01, 0.1854E-01,& - 0.1880E-01, 0.1905E-01, 0.1931E-01, 0.1958E-01,& - 0.1988E-01, 0.2014E-01, 0.2041E-01, 0.2071E-01,& - 0.2098E-01, 0.2127E-01, 0.2157E-01, 0.2186E-01,& - 0.2216E-01, 0.2245E-01, 0.2277E-01, 0.2307E-01,& - 0.2339E-01, 0.2368E-01, 0.2401E-01, 0.2433E-01,& - 0.2465E-01, 0.2497E-01, 0.2532E-01, 0.2564E-01,& - 0.2599E-01, 0.2634E-01, 0.2666E-01, 0.2701E-01,& - 0.2736E-01, 0.2773E-01, 0.2808E-01, 0.2846E-01,& - 0.2880E-01, 0.2918E-01, 0.2955E-01, 0.2993E-01,& - 0.3031E-01, 0.3071E-01, 0.3108E-01, 0.3149E-01,& - 0.3189E-01, 0.3229E-01, 0.3269E-01, 0.3309E-01,& - 0.3350E-01, 0.3392E-01, 0.3433E-01, 0.3476E-01,& - 0.3518E-01, 0.3561E-01, 0.3607E-01, 0.3650E-01,& - 0.3695E-01, 0.3741E-01, 0.3787E-01, 0.3832E-01,& - 0.3878E-01, 0.3923E-01, 0.3972E-01, 0.4020E-01,& - 0.4068E-01, 0.4116E-01, 0.4165E-01, 0.4216E-01,& - 0.4264E-01, 0.4315E-01, 0.4366E-01, 0.4417E-01,& - 0.4468E-01, 0.4521E-01, 0.4575E-01, 0.4628E-01,& - 0.4682E-01, 0.4736E-01, 0.4789E-01, 0.4846E-01,& - 0.4902E-01, 0.4958E-01, 0.5015E-01, 0.5071E-01,& - 0.5130E-01, 0.5189E-01, 0.5248E-01, 0.5307E-01,& - 0.5366E-01, 0.5427E-01, 0.5486E-01, 0.5548E-01,& - 0.5612E-01, 0.5674E-01, 0.5736E-01, 0.5800E-01,& - 0.5864E-01, 0.5929E-01, 0.5996E-01, 0.6063E-01,& - 0.6127E-01, 0.6194E-01, 0.6264E-01, 0.6331E-01,& - 0.6401E-01, 0.6470E-01, 0.6540E-01, 0.6612E-01,& - 0.6682E-01, 0.6754E-01, 0.6827E-01, 0.6899E-01,& - 0.6974E-01, 0.7049E-01, 0.7124E-01, 0.7200E-01,& - 0.7277E-01, 0.7352E-01, 0.7430E-01, 0.7511E-01,& - 0.7588E-01, 0.7669E-01, 0.7749E-01, 0.7830E-01,& - 0.7913E-01, 0.7993E-01, 0.8076E-01, 0.8159E-01,& - 0.8245E-01, 0.8331E-01, 0.8417E-01, 0.8503E-01,& - 0.8591E-01, 0.8679E-01, 0.8768E-01, 0.8856E-01,& - 0.8948E-01, 0.9039E-01, 0.9130E-01, 0.9221E-01,& - 0.9315E-01, 0.9409E-01, 0.9503E-01, 0.9599E-01,& - 0.9696E-01, 0.9792E-01, 0.9889E-01, 0.9988E-01,& - 0.1009E+00, 0.1019E+00, 0.1029E+00, 0.1039E+00,& - 0.1049E+00, 0.1060E+00, 0.1070E+00, 0.1081E+00,& - 0.1091E+00, 0.1102E+00, 0.1113E+00, 0.1123E+00,& - 0.1134E+00, 0.1145E+00, 0.1156E+00, 0.1168E+00,& - 0.1179E+00, 0.1190E+00, 0.1202E+00, 0.1213E+00,& - 0.1225E+00, 0.1237E+00, 0.1248E+00, 0.1260E+00,& - 0.1272E+00, 0.1284E+00, 0.1297E+00, 0.1309E+00,& - 0.1321E+00, 0.1334E+00, 0.1346E+00, 0.1359E+00,& - 0.1371E+00, 0.1384E+00, 0.1397E+00, 0.1410E+00,& - 0.1423E+00, 0.1437E+00, 0.1450E+00, 0.1463E+00,& - 0.1477E+00, 0.1491E+00, 0.1504E+00, 0.1518E+00,& - 0.1532E+00, 0.1546E+00, 0.1560E+00, 0.1575E+00,& - 0.1589E+00, 0.1603E+00, 0.1618E+00, 0.1633E+00,& - 0.1648E+00, 0.1662E+00, 0.1677E+00, 0.1693E+00,& - 0.1708E+00, 0.1723E+00, 0.1739E+00, 0.1754E+00,& - 0.1770E+00, 0.1786E+00, 0.1802E+00, 0.1818E+00,& - 0.1834E+00, 0.1850E+00, 0.1867E+00, 0.1883E+00,& - 0.1899E+00, 0.1916E+00, 0.1933E+00, 0.1950E+00,& - 0.1967E+00, 0.1985E+00, 0.2002E+00, 0.2020E+00,& - 0.2037E+00, 0.2055E+00, 0.2073E+00, 0.2091E+00,& - 0.2109E+00, 0.2127E+00, 0.2146E+00, 0.2164E+00,& - 0.2183E+00, 0.2202E+00, 0.2221E+00, 0.2240E+00,& - 0.2259E+00, 0.2278E+00, 0.2298E+00, 0.2317E+00,& - 0.2337E+00, 0.2357E+00, 0.2377E+00, 0.2397E+00,& - 0.2418E+00, 0.2438E+00, 0.2459E+00, 0.2480E+00,& - 0.2500E+00, 0.2521E+00, 0.2543E+00, 0.2564E+00,& - 0.2585E+00, 0.2607E+00, 0.2629E+00, 0.2651E+00,& - 0.2673E+00, 0.2695E+00, 0.2718E+00, 0.2740E+00,& - 0.2763E+00, 0.2786E+00, 0.2809E+00, 0.2832E+00,& - 0.2856E+00, 0.2879E+00, 0.2903E+00, 0.2927E+00,& - 0.2951E+00, 0.2975E+00, 0.2999E+00, 0.3024E+00,& - 0.3049E+00, 0.3074E+00, 0.3099E+00, 0.3124E+00,& - 0.3149E+00, 0.3175E+00, 0.3200E+00, 0.3226E+00,& - 0.3253E+00, 0.3279E+00, 0.3305E+00, 0.3332E+00,& - 0.3359E+00, 0.3386E+00, 0.3413E+00, 0.3441E+00,& - 0.3468E+00, 0.3496E+00, 0.3524E+00, 0.3552E+00,& - 0.3580E+00, 0.3609E+00, 0.3638E+00, 0.3667E+00,& - 0.3696E+00, 0.3725E+00, 0.3755E+00, 0.3784E+00,& - 0.3814E+00, 0.3845E+00, 0.3875E+00, 0.3906E+00,& - 0.3936E+00, 0.3967E+00, 0.3999E+00, 0.4030E+00,& - 0.4062E+00, 0.4093E+00, 0.4125E+00, 0.4158E+00,& - 0.4190E+00, 0.4223E+00, 0.4256E+00, 0.4289E+00,& - 0.4322E+00, 0.4356E+00, 0.4390E+00, 0.4424E+00,& - 0.4458E+00, 0.4493E+00, 0.4528E+00, 0.4563E+00,& - 0.4598E+00, 0.4633E+00, 0.4669E+00, 0.4705E+00,& - 0.4741E+00, 0.4778E+00, 0.4815E+00, 0.4852E+00,& - 0.4889E+00, 0.4926E+00, 0.4964E+00, 0.5002E+00,& - 0.5040E+00, 0.5079E+00, 0.5118E+00, 0.5157E+00,& - 0.5196E+00, 0.5236E+00, 0.5276E+00, 0.5316E+00,& - 0.5356E+00, 0.5397E+00, 0.5438E+00, 0.5479E+00,& - 0.5521E+00, 0.5562E+00, 0.5604E+00, 0.5647E+00,& - 0.5689E+00, 0.5733E+00, 0.5776E+00, 0.5819E+00,& - 0.5863E+00, 0.5907E+00, 0.5952E+00, 0.5996E+00,& - 0.6042E+00, 0.6087E+00, 0.6133E+00, 0.6179E+00,& - 0.6225E+00, 0.6272E+00, 0.6319E+00, 0.6366E+00,& - 0.6414E+00, 0.6461E+00, 0.6510E+00, 0.6558E+00,& - 0.6607E+00, 0.6657E+00, 0.6706E+00, 0.6756E+00,& - 0.6806E+00, 0.6857E+00, 0.6908E+00, 0.6959E+00,& - 0.7011E+00, 0.7063E+00, 0.7116E+00, 0.7168E+00,& - 0.7222E+00, 0.7275E+00, 0.7329E+00, 0.7383E+00,& - 0.7438E+00, 0.7493E+00, 0.7549E+00, 0.7604E+00,& - 0.7661E+00, 0.7717E+00, 0.7774E+00, 0.7832E+00,& - 0.7889E+00, 0.7948E+00, 0.8006E+00, 0.8065E+00,& - 0.8125E+00, 0.8185E+00, 0.8245E+00, 0.8306E+00,& - 0.8367E+00, 0.8428E+00, 0.8490E+00, 0.8553E+00,& - 0.8616E+00, 0.8679E+00, 0.8743E+00, 0.8807E+00,& - 0.8872E+00, 0.8937E+00, 0.9003E+00, 0.9069E+00,& - 0.9136E+00, 0.9203E+00, 0.9270E+00, 0.9338E+00,& - 0.9407E+00, 0.9476E+00, 0.9546E+00, 0.9616E+00,& - 0.9686E+00, 0.9757E+00, 0.9829E+00, 0.9901E+00,& - 0.9974E+00, 0.1005E+01, 0.1012E+01, 0.1019E+01,& - 0.1027E+01, 0.1035E+01, 0.1042E+01, 0.1050E+01,& - 0.1057E+01, 0.1065E+01, 0.1073E+01, 0.1081E+01,& - 0.1089E+01, 0.1097E+01, 0.1105E+01, 0.1113E+01,& - 0.1121E+01, 0.1129E+01, 0.1138E+01, 0.1146E+01,& - 0.1155E+01, 0.1163E+01, 0.1172E+01, 0.1180E+01,& - 0.1189E+01, 0.1198E+01, 0.1207E+01, 0.1215E+01,& - 0.1224E+01, 0.1233E+01, 0.1243E+01, 0.1252E+01,& - 0.1261E+01, 0.1270E+01, 0.1280E+01, 0.1289E+01,& - 0.1299E+01, 0.1308E+01, 0.1318E+01, 0.1328E+01,& - 0.1338E+01, 0.1347E+01, 0.1357E+01, 0.1368E+01,& - 0.1378E+01, 0.1388E+01, 0.1398E+01, 0.1409E+01,& - 0.1419E+01, 0.1430E+01, 0.1440E+01, 0.1451E+01,& - 0.1462E+01, 0.1473E+01, 0.1484E+01, 0.1495E+01,& - 0.1506E+01, 0.1518E+01, 0.1529E+01, 0.1540E+01,& - 0.1552E+01, 0.1564E+01, 0.1575E+01, 0.1587E+01,& - 0.1599E+01, 0.1611E+01, 0.1624E+01, 0.1636E+01,& - 0.1648E+01, 0.1661E+01, 0.1673E+01, 0.1686E+01,& - 0.1699E+01, 0.1712E+01, 0.1725E+01, 0.1738E+01,& - 0.1751E+01, 0.1765E+01, 0.1778E+01, 0.1792E+01,& - 0.1806E+01, 0.1820E+01, 0.1834E+01, 0.1848E+01,& - 0.1862E+01, 0.1876E+01, 0.1891E+01, 0.1906E+01,& - 0.1920E+01, 0.1935E+01, 0.1950E+01, 0.1966E+01,& - 0.1981E+01, 0.1997E+01, 0.2012E+01, 0.2028E+01,& - 0.2044E+01, 0.2060E+01, 0.2076E+01, 0.2093E+01,& - 0.2110E+01, 0.2126E+01, 0.2143E+01, 0.2160E+01,& - 0.2178E+01, 0.2195E+01, 0.2213E+01, 0.2230E+01,& - 0.2248E+01, 0.2267E+01, 0.2285E+01, 0.2304E+01,& - 0.2322E+01, 0.2341E+01, 0.2360E+01, 0.2380E+01,& - 0.2399E+01, 0.2419E+01, 0.2439E+01, 0.2459E+01,& - 0.2480E+01, 0.2500E+01, 0.2521E+01, 0.2542E+01,& - 0.2563E+01, 0.2585E+01, 0.2607E+01, 0.2629E+01,& - 0.2651E+01, 0.2674E+01, 0.2697E+01, 0.2720E+01,& - 0.2743E+01, 0.2767E+01, 0.2791E+01, 0.2815E+01,& - 0.2839E+01, 0.2864E+01, 0.2889E+01, 0.2915E+01,& - 0.2940E+01, 0.2967E+01, 0.2993E+01, 0.3020E+01,& - 0.3047E+01, 0.3074E+01, 0.3102E+01, 0.3130E+01,& - 0.3159E+01, 0.3188E+01, 0.3217E+01, 0.3247E+01,& - 0.3277E+01, 0.3307E+01, 0.3338E+01, 0.3370E+01,& - 0.3402E+01, 0.3434E+01, 0.3467E+01, 0.3500E+01,& - 0.3534E+01, 0.3568E+01, 0.3603E+01, 0.3638E+01,& - 0.3674E+01, 0.3710E+01, 0.3747E+01, 0.3785E+01,& - 0.3823E+01, 0.3862E+01, 0.3902E+01, 0.3942E+01,& - 0.3983E+01, 0.4024E+01, 0.4066E+01, 0.4109E+01,& - 0.4153E+01, 0.4198E+01, 0.4243E+01, 0.4289E+01,& - 0.4336E+01, 0.4384E+01, 0.4433E+01, 0.4483E+01,& - 0.4534E+01, 0.4586E+01, 0.4639E+01, 0.4693E+01,& - 0.4748E+01, 0.4804E+01, 0.4862E+01, 0.4921E+01,& - 0.4981E+01, 0.5042E+01, 0.5105E+01, 0.5170E+01,& - 0.5236E+01, 0.5304E+01, 0.5373E+01, 0.5444E+01,& - 0.5518E+01, 0.5593E+01, 0.5670E+01, 0.5749E+01,& - 0.5831E+01, 0.5915E+01, 0.6001E+01, 0.6091E+01,& - 0.6183E+01, 0.6278E+01, 0.6376E+01, 0.6478E+01,& - 0.6583E+01, 0.6692E+01, 0.6805E+01, 0.6923E+01,& - 0.7045E+01, 0.7173E+01, 0.7306E+01, 0.7445E+01,& - 0.7590E+01, 0.7743E+01, 0.7903E+01, 0.8072E+01,& - 0.8250E+01, 0.8439E+01, 0.8640E+01, 0.8854E+01,& - 0.9082E+01, 0.9328E+01, 0.9593E+01, 0.9881E+01,& - 0.1020E+02, 0.1054E+02, 0.1093E+02, 0.1136E+02,& - 0.1186E+02, 0.1243E+02, 0.1312E+02, 0.1397E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 84) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3733E-04, 0.3733E-04, 0.3733E-04, 0.3733E-04,& - 0.3733E-04, 0.3733E-04, 0.3733E-04, 0.3733E-04,& - 0.3733E-04, 0.3733E-04, 0.3733E-04, 0.6465E-04,& - 0.6465E-04, 0.6465E-04, 0.6465E-04, 0.6465E-04,& - 0.6465E-04, 0.6465E-04, 0.6465E-04, 0.9198E-04,& - 0.9198E-04, 0.9198E-04, 0.9198E-04, 0.9198E-04,& - 0.9198E-04, 0.1193E-03, 0.1193E-03, 0.1193E-03,& - 0.1193E-03, 0.1193E-03, 0.1466E-03, 0.1466E-03,& - 0.1466E-03, 0.1466E-03, 0.1466E-03, 0.1740E-03,& - 0.1740E-03, 0.1740E-03, 0.1740E-03, 0.2013E-03,& - 0.2013E-03, 0.2013E-03, 0.2286E-03, 0.2286E-03,& - 0.2286E-03, 0.2559E-03, 0.2559E-03, 0.2559E-03,& - 0.2833E-03, 0.2833E-03, 0.2833E-03, 0.3106E-03,& - 0.3106E-03, 0.3106E-03, 0.3379E-03, 0.3379E-03,& - 0.3652E-03, 0.3652E-03, 0.3926E-03, 0.3926E-03,& - 0.4199E-03, 0.4199E-03, 0.4472E-03, 0.4472E-03,& - 0.4745E-03, 0.4745E-03, 0.5019E-03, 0.5019E-03,& - 0.5292E-03, 0.5292E-03, 0.5565E-03, 0.5838E-03,& - 0.5838E-03, 0.6112E-03, 0.6385E-03, 0.6385E-03,& - 0.6658E-03, 0.6931E-03, 0.6931E-03, 0.7205E-03,& - 0.7478E-03, 0.7751E-03, 0.7751E-03, 0.8024E-03,& - 0.8298E-03, 0.8571E-03, 0.8844E-03, 0.9117E-03,& - 0.9117E-03, 0.9391E-03, 0.9664E-03, 0.9937E-03,& - 0.1021E-02, 0.1048E-02, 0.1076E-02, 0.1103E-02,& - 0.1130E-02, 0.1158E-02, 0.1185E-02, 0.1240E-02,& - 0.1267E-02, 0.1294E-02, 0.1322E-02, 0.1349E-02,& - 0.1376E-02, 0.1431E-02, 0.1458E-02, 0.1486E-02,& - 0.1540E-02, 0.1568E-02, 0.1595E-02, 0.1650E-02,& - 0.1677E-02, 0.1732E-02, 0.1759E-02, 0.1813E-02,& - 0.1841E-02, 0.1895E-02, 0.1923E-02, 0.1977E-02,& - 0.2032E-02, 0.2059E-02, 0.2114E-02, 0.2169E-02,& - 0.2196E-02, 0.2251E-02, 0.2305E-02, 0.2360E-02,& - 0.2415E-02, 0.2469E-02, 0.2524E-02, 0.2579E-02,& - 0.2633E-02, 0.2688E-02, 0.2743E-02, 0.2797E-02,& - 0.2852E-02, 0.2907E-02, 0.2989E-02, 0.3043E-02,& - 0.3098E-02, 0.3180E-02, 0.3234E-02, 0.3289E-02,& - 0.3371E-02, 0.3426E-02, 0.3508E-02, 0.3562E-02,& - 0.3644E-02, 0.3726E-02, 0.3781E-02, 0.3863E-02,& - 0.3945E-02, 0.4027E-02, 0.4109E-02, 0.4191E-02,& - 0.4245E-02, 0.4327E-02, 0.4437E-02, 0.4519E-02,& - 0.4601E-02, 0.4683E-02, 0.4765E-02, 0.4874E-02,& - 0.4956E-02, 0.5038E-02, 0.5147E-02, 0.5229E-02,& - 0.5339E-02, 0.5420E-02, 0.5530E-02, 0.5639E-02,& - 0.5721E-02, 0.5830E-02, 0.5940E-02, 0.6049E-02,& - 0.6158E-02, 0.6268E-02, 0.6377E-02, 0.6486E-02,& - 0.6596E-02, 0.6732E-02, 0.6841E-02, 0.6951E-02,& - 0.7087E-02, 0.7197E-02, 0.7333E-02, 0.7443E-02,& - 0.7579E-02, 0.7716E-02, 0.7825E-02, 0.7962E-02,& - 0.8098E-02, 0.8235E-02, 0.8372E-02, 0.8508E-02,& - 0.8672E-02, 0.8809E-02, 0.8946E-02, 0.9109E-02,& - 0.9246E-02, 0.9410E-02, 0.9547E-02, 0.9711E-02,& - 0.9875E-02, 0.1001E-01, 0.1018E-01, 0.1034E-01,& - 0.1050E-01, 0.1067E-01, 0.1086E-01, 0.1102E-01,& - 0.1119E-01, 0.1138E-01, 0.1154E-01, 0.1173E-01,& - 0.1190E-01, 0.1209E-01, 0.1228E-01, 0.1247E-01,& - 0.1266E-01, 0.1285E-01, 0.1304E-01, 0.1326E-01,& - 0.1345E-01, 0.1365E-01, 0.1386E-01, 0.1406E-01,& - 0.1427E-01, 0.1449E-01, 0.1471E-01, 0.1493E-01,& - 0.1515E-01, 0.1537E-01, 0.1559E-01, 0.1583E-01,& - 0.1605E-01, 0.1630E-01, 0.1651E-01, 0.1676E-01,& - 0.1701E-01, 0.1725E-01, 0.1750E-01, 0.1774E-01,& - 0.1799E-01, 0.1826E-01, 0.1851E-01, 0.1878E-01,& - 0.1903E-01, 0.1930E-01, 0.1958E-01, 0.1985E-01,& - 0.2012E-01, 0.2042E-01, 0.2070E-01, 0.2097E-01,& - 0.2127E-01, 0.2157E-01, 0.2184E-01, 0.2214E-01,& - 0.2244E-01, 0.2275E-01, 0.2307E-01, 0.2337E-01,& - 0.2370E-01, 0.2400E-01, 0.2433E-01, 0.2466E-01,& - 0.2499E-01, 0.2531E-01, 0.2564E-01, 0.2600E-01,& - 0.2632E-01, 0.2668E-01, 0.2704E-01, 0.2739E-01,& - 0.2775E-01, 0.2810E-01, 0.2846E-01, 0.2884E-01,& - 0.2919E-01, 0.2958E-01, 0.2996E-01, 0.3034E-01,& - 0.3072E-01, 0.3111E-01, 0.3152E-01, 0.3190E-01,& - 0.3231E-01, 0.3272E-01, 0.3313E-01, 0.3354E-01,& - 0.3398E-01, 0.3439E-01, 0.3482E-01, 0.3523E-01,& - 0.3567E-01, 0.3611E-01, 0.3657E-01, 0.3701E-01,& - 0.3747E-01, 0.3791E-01, 0.3838E-01, 0.3884E-01,& - 0.3933E-01, 0.3980E-01, 0.4029E-01, 0.4075E-01,& - 0.4124E-01, 0.4174E-01, 0.4226E-01, 0.4275E-01,& - 0.4327E-01, 0.4376E-01, 0.4428E-01, 0.4480E-01,& - 0.4534E-01, 0.4586E-01, 0.4641E-01, 0.4696E-01,& - 0.4750E-01, 0.4805E-01, 0.4860E-01, 0.4917E-01,& - 0.4974E-01, 0.5032E-01, 0.5089E-01, 0.5146E-01,& - 0.5207E-01, 0.5267E-01, 0.5327E-01, 0.5387E-01,& - 0.5447E-01, 0.5510E-01, 0.5573E-01, 0.5633E-01,& - 0.5698E-01, 0.5761E-01, 0.5827E-01, 0.5890E-01,& - 0.5955E-01, 0.6024E-01, 0.6089E-01, 0.6157E-01,& - 0.6226E-01, 0.6294E-01, 0.6362E-01, 0.6433E-01,& - 0.6502E-01, 0.6573E-01, 0.6647E-01, 0.6718E-01,& - 0.6791E-01, 0.6865E-01, 0.6939E-01, 0.7013E-01,& - 0.7089E-01, 0.7166E-01, 0.7242E-01, 0.7319E-01,& - 0.7398E-01, 0.7477E-01, 0.7557E-01, 0.7636E-01,& - 0.7718E-01, 0.7797E-01, 0.7879E-01, 0.7964E-01,& - 0.8046E-01, 0.8130E-01, 0.8215E-01, 0.8303E-01,& - 0.8387E-01, 0.8475E-01, 0.8562E-01, 0.8652E-01,& - 0.8743E-01, 0.8830E-01, 0.8923E-01, 0.9013E-01,& - 0.9106E-01, 0.9199E-01, 0.9294E-01, 0.9387E-01,& - 0.9483E-01, 0.9579E-01, 0.9677E-01, 0.9775E-01,& - 0.9874E-01, 0.9972E-01, 0.1007E+00, 0.1017E+00,& - 0.1028E+00, 0.1038E+00, 0.1048E+00, 0.1059E+00,& - 0.1069E+00, 0.1080E+00, 0.1090E+00, 0.1101E+00,& - 0.1112E+00, 0.1123E+00, 0.1134E+00, 0.1145E+00,& - 0.1156E+00, 0.1168E+00, 0.1179E+00, 0.1190E+00,& - 0.1202E+00, 0.1214E+00, 0.1225E+00, 0.1237E+00,& - 0.1249E+00, 0.1261E+00, 0.1273E+00, 0.1286E+00,& - 0.1298E+00, 0.1310E+00, 0.1323E+00, 0.1336E+00,& - 0.1348E+00, 0.1361E+00, 0.1374E+00, 0.1387E+00,& - 0.1400E+00, 0.1413E+00, 0.1427E+00, 0.1440E+00,& - 0.1454E+00, 0.1467E+00, 0.1481E+00, 0.1495E+00,& - 0.1508E+00, 0.1523E+00, 0.1537E+00, 0.1551E+00,& - 0.1565E+00, 0.1580E+00, 0.1595E+00, 0.1609E+00,& - 0.1624E+00, 0.1639E+00, 0.1654E+00, 0.1669E+00,& - 0.1684E+00, 0.1699E+00, 0.1715E+00, 0.1731E+00,& - 0.1746E+00, 0.1762E+00, 0.1778E+00, 0.1794E+00,& - 0.1810E+00, 0.1827E+00, 0.1843E+00, 0.1860E+00,& - 0.1877E+00, 0.1893E+00, 0.1910E+00, 0.1927E+00,& - 0.1944E+00, 0.1962E+00, 0.1979E+00, 0.1997E+00,& - 0.2014E+00, 0.2032E+00, 0.2050E+00, 0.2068E+00,& - 0.2086E+00, 0.2105E+00, 0.2123E+00, 0.2142E+00,& - 0.2161E+00, 0.2180E+00, 0.2198E+00, 0.2218E+00,& - 0.2237E+00, 0.2256E+00, 0.2276E+00, 0.2296E+00,& - 0.2316E+00, 0.2336E+00, 0.2356E+00, 0.2376E+00,& - 0.2397E+00, 0.2417E+00, 0.2438E+00, 0.2459E+00,& - 0.2480E+00, 0.2501E+00, 0.2523E+00, 0.2544E+00,& - 0.2566E+00, 0.2587E+00, 0.2609E+00, 0.2632E+00,& - 0.2654E+00, 0.2676E+00, 0.2699E+00, 0.2722E+00,& - 0.2745E+00, 0.2768E+00, 0.2791E+00, 0.2814E+00,& - 0.2838E+00, 0.2862E+00, 0.2886E+00, 0.2910E+00,& - 0.2934E+00, 0.2958E+00, 0.2983E+00, 0.3008E+00,& - 0.3033E+00, 0.3058E+00, 0.3083E+00, 0.3109E+00,& - 0.3134E+00, 0.3160E+00, 0.3186E+00, 0.3213E+00,& - 0.3239E+00, 0.3266E+00, 0.3292E+00, 0.3319E+00,& - 0.3346E+00, 0.3374E+00, 0.3401E+00, 0.3429E+00,& - 0.3457E+00, 0.3485E+00, 0.3513E+00, 0.3542E+00,& - 0.3570E+00, 0.3599E+00, 0.3629E+00, 0.3658E+00,& - 0.3687E+00, 0.3717E+00, 0.3747E+00, 0.3777E+00,& - 0.3808E+00, 0.3838E+00, 0.3869E+00, 0.3900E+00,& - 0.3931E+00, 0.3963E+00, 0.3994E+00, 0.4026E+00,& - 0.4058E+00, 0.4091E+00, 0.4123E+00, 0.4156E+00,& - 0.4189E+00, 0.4222E+00, 0.4256E+00, 0.4289E+00,& - 0.4323E+00, 0.4357E+00, 0.4392E+00, 0.4426E+00,& - 0.4461E+00, 0.4497E+00, 0.4532E+00, 0.4567E+00,& - 0.4603E+00, 0.4639E+00, 0.4676E+00, 0.4712E+00,& - 0.4749E+00, 0.4786E+00, 0.4824E+00, 0.4861E+00,& - 0.4899E+00, 0.4938E+00, 0.4976E+00, 0.5015E+00,& - 0.5053E+00, 0.5093E+00, 0.5132E+00, 0.5172E+00,& - 0.5212E+00, 0.5252E+00, 0.5293E+00, 0.5334E+00,& - 0.5375E+00, 0.5417E+00, 0.5458E+00, 0.5500E+00,& - 0.5543E+00, 0.5585E+00, 0.5628E+00, 0.5672E+00,& - 0.5715E+00, 0.5759E+00, 0.5803E+00, 0.5848E+00,& - 0.5892E+00, 0.5937E+00, 0.5983E+00, 0.6029E+00,& - 0.6075E+00, 0.6121E+00, 0.6168E+00, 0.6215E+00,& - 0.6262E+00, 0.6310E+00, 0.6358E+00, 0.6406E+00,& - 0.6455E+00, 0.6504E+00, 0.6553E+00, 0.6603E+00,& - 0.6653E+00, 0.6703E+00, 0.6754E+00, 0.6805E+00,& - 0.6857E+00, 0.6909E+00, 0.6961E+00, 0.7014E+00,& - 0.7067E+00, 0.7120E+00, 0.7173E+00, 0.7227E+00,& - 0.7282E+00, 0.7337E+00, 0.7392E+00, 0.7448E+00,& - 0.7504E+00, 0.7560E+00, 0.7617E+00, 0.7675E+00,& - 0.7732E+00, 0.7790E+00, 0.7849E+00, 0.7908E+00,& - 0.7967E+00, 0.8027E+00, 0.8087E+00, 0.8148E+00,& - 0.8208E+00, 0.8270E+00, 0.8332E+00, 0.8394E+00,& - 0.8457E+00, 0.8521E+00, 0.8584E+00, 0.8648E+00,& - 0.8713E+00, 0.8778E+00, 0.8844E+00, 0.8910E+00,& - 0.8977E+00, 0.9044E+00, 0.9111E+00, 0.9179E+00,& - 0.9248E+00, 0.9317E+00, 0.9386E+00, 0.9457E+00,& - 0.9527E+00, 0.9598E+00, 0.9670E+00, 0.9742E+00,& - 0.9815E+00, 0.9888E+00, 0.9962E+00, 0.1004E+01,& - 0.1011E+01, 0.1019E+01, 0.1026E+01, 0.1034E+01,& - 0.1042E+01, 0.1049E+01, 0.1057E+01, 0.1065E+01,& - 0.1073E+01, 0.1081E+01, 0.1089E+01, 0.1097E+01,& - 0.1106E+01, 0.1114E+01, 0.1122E+01, 0.1131E+01,& - 0.1139E+01, 0.1147E+01, 0.1156E+01, 0.1165E+01,& - 0.1173E+01, 0.1182E+01, 0.1191E+01, 0.1200E+01,& - 0.1209E+01, 0.1218E+01, 0.1227E+01, 0.1236E+01,& - 0.1246E+01, 0.1255E+01, 0.1264E+01, 0.1274E+01,& - 0.1284E+01, 0.1293E+01, 0.1303E+01, 0.1313E+01,& - 0.1323E+01, 0.1333E+01, 0.1343E+01, 0.1353E+01,& - 0.1363E+01, 0.1373E+01, 0.1384E+01, 0.1394E+01,& - 0.1405E+01, 0.1415E+01, 0.1426E+01, 0.1437E+01,& - 0.1448E+01, 0.1459E+01, 0.1470E+01, 0.1481E+01,& - 0.1492E+01, 0.1504E+01, 0.1515E+01, 0.1527E+01,& - 0.1538E+01, 0.1550E+01, 0.1562E+01, 0.1574E+01,& - 0.1586E+01, 0.1598E+01, 0.1610E+01, 0.1623E+01,& - 0.1635E+01, 0.1648E+01, 0.1660E+01, 0.1673E+01,& - 0.1686E+01, 0.1699E+01, 0.1712E+01, 0.1726E+01,& - 0.1739E+01, 0.1752E+01, 0.1766E+01, 0.1780E+01,& - 0.1794E+01, 0.1808E+01, 0.1822E+01, 0.1836E+01,& - 0.1851E+01, 0.1865E+01, 0.1880E+01, 0.1895E+01,& - 0.1910E+01, 0.1925E+01, 0.1940E+01, 0.1955E+01,& - 0.1971E+01, 0.1986E+01, 0.2002E+01, 0.2018E+01,& - 0.2034E+01, 0.2051E+01, 0.2067E+01, 0.2084E+01,& - 0.2100E+01, 0.2117E+01, 0.2134E+01, 0.2152E+01,& - 0.2169E+01, 0.2187E+01, 0.2205E+01, 0.2222E+01,& - 0.2241E+01, 0.2259E+01, 0.2278E+01, 0.2296E+01,& - 0.2315E+01, 0.2334E+01, 0.2354E+01, 0.2373E+01,& - 0.2393E+01, 0.2413E+01, 0.2433E+01, 0.2454E+01,& - 0.2474E+01, 0.2495E+01, 0.2516E+01, 0.2538E+01,& - 0.2559E+01, 0.2581E+01, 0.2603E+01, 0.2625E+01,& - 0.2648E+01, 0.2671E+01, 0.2694E+01, 0.2717E+01,& - 0.2741E+01, 0.2765E+01, 0.2789E+01, 0.2814E+01,& - 0.2838E+01, 0.2863E+01, 0.2889E+01, 0.2915E+01,& - 0.2941E+01, 0.2967E+01, 0.2994E+01, 0.3021E+01,& - 0.3048E+01, 0.3076E+01, 0.3104E+01, 0.3133E+01,& - 0.3162E+01, 0.3191E+01, 0.3221E+01, 0.3251E+01,& - 0.3282E+01, 0.3312E+01, 0.3344E+01, 0.3376E+01,& - 0.3408E+01, 0.3441E+01, 0.3474E+01, 0.3508E+01,& - 0.3542E+01, 0.3577E+01, 0.3612E+01, 0.3648E+01,& - 0.3684E+01, 0.3721E+01, 0.3759E+01, 0.3797E+01,& - 0.3836E+01, 0.3875E+01, 0.3915E+01, 0.3956E+01,& - 0.3997E+01, 0.4040E+01, 0.4083E+01, 0.4126E+01,& - 0.4171E+01, 0.4216E+01, 0.4262E+01, 0.4309E+01,& - 0.4357E+01, 0.4405E+01, 0.4455E+01, 0.4506E+01,& - 0.4557E+01, 0.4610E+01, 0.4664E+01, 0.4719E+01,& - 0.4775E+01, 0.4832E+01, 0.4891E+01, 0.4950E+01,& - 0.5012E+01, 0.5074E+01, 0.5138E+01, 0.5204E+01,& - 0.5271E+01, 0.5340E+01, 0.5411E+01, 0.5483E+01,& - 0.5557E+01, 0.5634E+01, 0.5712E+01, 0.5793E+01,& - 0.5876E+01, 0.5962E+01, 0.6050E+01, 0.6140E+01,& - 0.6234E+01, 0.6331E+01, 0.6431E+01, 0.6534E+01,& - 0.6642E+01, 0.6753E+01, 0.6868E+01, 0.6988E+01,& - 0.7112E+01, 0.7242E+01, 0.7378E+01, 0.7519E+01,& - 0.7668E+01, 0.7823E+01, 0.7986E+01, 0.8158E+01,& - 0.8340E+01, 0.8533E+01, 0.8737E+01, 0.8955E+01,& - 0.9188E+01, 0.9439E+01, 0.9709E+01, 0.1000E+02,& - 0.1032E+02, 0.1068E+02, 0.1107E+02, 0.1151E+02,& - 0.1202E+02, 0.1261E+02, 0.1331E+02, 0.1417E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 85) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3785E-04, 0.3785E-04, 0.3785E-04,& - 0.3785E-04, 0.3785E-04, 0.3785E-04, 0.3785E-04,& - 0.3785E-04, 0.3785E-04, 0.3785E-04, 0.3785E-04,& - 0.6569E-04, 0.6569E-04, 0.6569E-04, 0.6569E-04,& - 0.6569E-04, 0.6569E-04, 0.6569E-04, 0.6569E-04,& - 0.9354E-04, 0.9354E-04, 0.9354E-04, 0.9354E-04,& - 0.9354E-04, 0.9354E-04, 0.9354E-04, 0.1214E-03,& - 0.1214E-03, 0.1214E-03, 0.1214E-03, 0.1214E-03,& - 0.1492E-03, 0.1492E-03, 0.1492E-03, 0.1492E-03,& - 0.1492E-03, 0.1771E-03, 0.1771E-03, 0.1771E-03,& - 0.1771E-03, 0.2049E-03, 0.2049E-03, 0.2049E-03,& - 0.2328E-03, 0.2328E-03, 0.2328E-03, 0.2328E-03,& - 0.2606E-03, 0.2606E-03, 0.2606E-03, 0.2885E-03,& - 0.2885E-03, 0.3163E-03, 0.3163E-03, 0.3163E-03,& - 0.3442E-03, 0.3442E-03, 0.3720E-03, 0.3720E-03,& - 0.3720E-03, 0.3999E-03, 0.3999E-03, 0.4277E-03,& - 0.4277E-03, 0.4556E-03, 0.4556E-03, 0.4834E-03,& - 0.4834E-03, 0.5113E-03, 0.5113E-03, 0.5391E-03,& - 0.5669E-03, 0.5669E-03, 0.5948E-03, 0.5948E-03,& - 0.6226E-03, 0.6505E-03, 0.6505E-03, 0.6783E-03,& - 0.7062E-03, 0.7062E-03, 0.7340E-03, 0.7619E-03,& - 0.7897E-03, 0.7897E-03, 0.8176E-03, 0.8454E-03,& - 0.8733E-03, 0.9011E-03, 0.9290E-03, 0.9290E-03,& - 0.9568E-03, 0.9847E-03, 0.1013E-02, 0.1040E-02,& - 0.1068E-02, 0.1096E-02, 0.1124E-02, 0.1152E-02,& - 0.1180E-02, 0.1207E-02, 0.1235E-02, 0.1263E-02,& - 0.1319E-02, 0.1347E-02, 0.1375E-02, 0.1402E-02,& - 0.1430E-02, 0.1486E-02, 0.1514E-02, 0.1542E-02,& - 0.1569E-02, 0.1625E-02, 0.1653E-02, 0.1709E-02,& - 0.1737E-02, 0.1764E-02, 0.1820E-02, 0.1848E-02,& - 0.1904E-02, 0.1959E-02, 0.1987E-02, 0.2043E-02,& - 0.2071E-02, 0.2126E-02, 0.2182E-02, 0.2210E-02,& - 0.2266E-02, 0.2321E-02, 0.2377E-02, 0.2433E-02,& - 0.2488E-02, 0.2516E-02, 0.2572E-02, 0.2628E-02,& - 0.2683E-02, 0.2739E-02, 0.2823E-02, 0.2878E-02,& - 0.2934E-02, 0.2990E-02, 0.3045E-02, 0.3101E-02,& - 0.3185E-02, 0.3240E-02, 0.3296E-02, 0.3380E-02,& - 0.3435E-02, 0.3519E-02, 0.3574E-02, 0.3658E-02,& - 0.3714E-02, 0.3797E-02, 0.3881E-02, 0.3964E-02,& - 0.4020E-02, 0.4104E-02, 0.4187E-02, 0.4271E-02,& - 0.4354E-02, 0.4438E-02, 0.4521E-02, 0.4605E-02,& - 0.4688E-02, 0.4772E-02, 0.4855E-02, 0.4967E-02,& - 0.5050E-02, 0.5134E-02, 0.5245E-02, 0.5329E-02,& - 0.5440E-02, 0.5524E-02, 0.5635E-02, 0.5747E-02,& - 0.5830E-02, 0.5941E-02, 0.6053E-02, 0.6164E-02,& - 0.6276E-02, 0.6387E-02, 0.6498E-02, 0.6610E-02,& - 0.6721E-02, 0.6833E-02, 0.6944E-02, 0.7083E-02,& - 0.7195E-02, 0.7334E-02, 0.7445E-02, 0.7584E-02,& - 0.7696E-02, 0.7835E-02, 0.7974E-02, 0.8114E-02,& - 0.8253E-02, 0.8364E-02, 0.8503E-02, 0.8671E-02,& - 0.8810E-02, 0.8949E-02, 0.9088E-02, 0.9255E-02,& - 0.9395E-02, 0.9534E-02, 0.9701E-02, 0.9868E-02,& - 0.1001E-01, 0.1017E-01, 0.1034E-01, 0.1051E-01,& - 0.1068E-01, 0.1084E-01, 0.1101E-01, 0.1118E-01,& - 0.1137E-01, 0.1154E-01, 0.1173E-01, 0.1190E-01,& - 0.1210E-01, 0.1226E-01, 0.1246E-01, 0.1265E-01,& - 0.1285E-01, 0.1304E-01, 0.1324E-01, 0.1346E-01,& - 0.1366E-01, 0.1385E-01, 0.1407E-01, 0.1427E-01,& - 0.1449E-01, 0.1471E-01, 0.1494E-01, 0.1513E-01,& - 0.1535E-01, 0.1560E-01, 0.1583E-01, 0.1605E-01,& - 0.1630E-01, 0.1652E-01, 0.1677E-01, 0.1700E-01,& - 0.1725E-01, 0.1750E-01, 0.1775E-01, 0.1800E-01,& - 0.1825E-01, 0.1853E-01, 0.1878E-01, 0.1906E-01,& - 0.1931E-01, 0.1959E-01, 0.1987E-01, 0.2014E-01,& - 0.2042E-01, 0.2070E-01, 0.2098E-01, 0.2129E-01,& - 0.2156E-01, 0.2187E-01, 0.2218E-01, 0.2248E-01,& - 0.2279E-01, 0.2310E-01, 0.2340E-01, 0.2371E-01,& - 0.2404E-01, 0.2435E-01, 0.2468E-01, 0.2502E-01,& - 0.2535E-01, 0.2569E-01, 0.2602E-01, 0.2635E-01,& - 0.2672E-01, 0.2708E-01, 0.2741E-01, 0.2777E-01,& - 0.2814E-01, 0.2850E-01, 0.2889E-01, 0.2925E-01,& - 0.2964E-01, 0.3000E-01, 0.3039E-01, 0.3078E-01,& - 0.3117E-01, 0.3156E-01, 0.3198E-01, 0.3237E-01,& - 0.3279E-01, 0.3320E-01, 0.3362E-01, 0.3404E-01,& - 0.3446E-01, 0.3490E-01, 0.3532E-01, 0.3577E-01,& - 0.3621E-01, 0.3666E-01, 0.3710E-01, 0.3758E-01,& - 0.3802E-01, 0.3849E-01, 0.3897E-01, 0.3944E-01,& - 0.3992E-01, 0.4042E-01, 0.4089E-01, 0.4139E-01,& - 0.4189E-01, 0.4239E-01, 0.4289E-01, 0.4342E-01,& - 0.4393E-01, 0.4445E-01, 0.4498E-01, 0.4551E-01,& - 0.4604E-01, 0.4660E-01, 0.4713E-01, 0.4768E-01,& - 0.4824E-01, 0.4883E-01, 0.4938E-01, 0.4997E-01,& - 0.5052E-01, 0.5111E-01, 0.5172E-01, 0.5231E-01,& - 0.5292E-01, 0.5350E-01, 0.5412E-01, 0.5476E-01,& - 0.5537E-01, 0.5601E-01, 0.5662E-01, 0.5726E-01,& - 0.5793E-01, 0.5857E-01, 0.5924E-01, 0.5991E-01,& - 0.6058E-01, 0.6125E-01, 0.6191E-01, 0.6261E-01,& - 0.6331E-01, 0.6400E-01, 0.6473E-01, 0.6542E-01,& - 0.6615E-01, 0.6687E-01, 0.6762E-01, 0.6835E-01,& - 0.6910E-01, 0.6985E-01, 0.7060E-01, 0.7138E-01,& - 0.7213E-01, 0.7291E-01, 0.7369E-01, 0.7450E-01,& - 0.7531E-01, 0.7612E-01, 0.7692E-01, 0.7773E-01,& - 0.7857E-01, 0.7940E-01, 0.8024E-01, 0.8110E-01,& - 0.8194E-01, 0.8280E-01, 0.8369E-01, 0.8455E-01,& - 0.8545E-01, 0.8634E-01, 0.8723E-01, 0.8815E-01,& - 0.8907E-01, 0.8998E-01, 0.9090E-01, 0.9185E-01,& - 0.9280E-01, 0.9374E-01, 0.9472E-01, 0.9569E-01,& - 0.9667E-01, 0.9764E-01, 0.9865E-01, 0.9965E-01,& - 0.1007E+00, 0.1017E+00, 0.1027E+00, 0.1037E+00,& - 0.1048E+00, 0.1059E+00, 0.1069E+00, 0.1080E+00,& - 0.1091E+00, 0.1101E+00, 0.1113E+00, 0.1123E+00,& - 0.1135E+00, 0.1146E+00, 0.1157E+00, 0.1169E+00,& - 0.1180E+00, 0.1192E+00, 0.1204E+00, 0.1215E+00,& - 0.1227E+00, 0.1239E+00, 0.1251E+00, 0.1264E+00,& - 0.1276E+00, 0.1288E+00, 0.1301E+00, 0.1313E+00,& - 0.1326E+00, 0.1339E+00, 0.1352E+00, 0.1365E+00,& - 0.1378E+00, 0.1391E+00, 0.1404E+00, 0.1418E+00,& - 0.1431E+00, 0.1445E+00, 0.1458E+00, 0.1472E+00,& - 0.1486E+00, 0.1500E+00, 0.1514E+00, 0.1528E+00,& - 0.1543E+00, 0.1557E+00, 0.1572E+00, 0.1587E+00,& - 0.1601E+00, 0.1616E+00, 0.1631E+00, 0.1646E+00,& - 0.1662E+00, 0.1677E+00, 0.1693E+00, 0.1708E+00,& - 0.1724E+00, 0.1740E+00, 0.1756E+00, 0.1772E+00,& - 0.1788E+00, 0.1805E+00, 0.1821E+00, 0.1837E+00,& - 0.1854E+00, 0.1871E+00, 0.1888E+00, 0.1905E+00,& - 0.1922E+00, 0.1940E+00, 0.1957E+00, 0.1975E+00,& - 0.1993E+00, 0.2011E+00, 0.2028E+00, 0.2047E+00,& - 0.2065E+00, 0.2083E+00, 0.2102E+00, 0.2121E+00,& - 0.2140E+00, 0.2159E+00, 0.2178E+00, 0.2197E+00,& - 0.2216E+00, 0.2236E+00, 0.2256E+00, 0.2276E+00,& - 0.2296E+00, 0.2316E+00, 0.2336E+00, 0.2356E+00,& - 0.2377E+00, 0.2398E+00, 0.2419E+00, 0.2440E+00,& - 0.2461E+00, 0.2482E+00, 0.2504E+00, 0.2525E+00,& - 0.2547E+00, 0.2569E+00, 0.2591E+00, 0.2614E+00,& - 0.2636E+00, 0.2659E+00, 0.2682E+00, 0.2704E+00,& - 0.2727E+00, 0.2751E+00, 0.2774E+00, 0.2798E+00,& - 0.2822E+00, 0.2846E+00, 0.2870E+00, 0.2894E+00,& - 0.2919E+00, 0.2944E+00, 0.2968E+00, 0.2993E+00,& - 0.3018E+00, 0.3044E+00, 0.3069E+00, 0.3095E+00,& - 0.3121E+00, 0.3147E+00, 0.3174E+00, 0.3200E+00,& - 0.3227E+00, 0.3254E+00, 0.3281E+00, 0.3308E+00,& - 0.3336E+00, 0.3363E+00, 0.3391E+00, 0.3419E+00,& - 0.3448E+00, 0.3476E+00, 0.3505E+00, 0.3534E+00,& - 0.3563E+00, 0.3592E+00, 0.3621E+00, 0.3651E+00,& - 0.3681E+00, 0.3711E+00, 0.3742E+00, 0.3772E+00,& - 0.3803E+00, 0.3834E+00, 0.3865E+00, 0.3896E+00,& - 0.3928E+00, 0.3960E+00, 0.3992E+00, 0.4025E+00,& - 0.4057E+00, 0.4090E+00, 0.4123E+00, 0.4156E+00,& - 0.4190E+00, 0.4224E+00, 0.4258E+00, 0.4292E+00,& - 0.4326E+00, 0.4361E+00, 0.4396E+00, 0.4431E+00,& - 0.4467E+00, 0.4502E+00, 0.4538E+00, 0.4575E+00,& - 0.4611E+00, 0.4648E+00, 0.4685E+00, 0.4722E+00,& - 0.4759E+00, 0.4797E+00, 0.4836E+00, 0.4874E+00,& - 0.4912E+00, 0.4951E+00, 0.4990E+00, 0.5030E+00,& - 0.5069E+00, 0.5110E+00, 0.5150E+00, 0.5190E+00,& - 0.5231E+00, 0.5272E+00, 0.5314E+00, 0.5355E+00,& - 0.5397E+00, 0.5440E+00, 0.5482E+00, 0.5525E+00,& - 0.5568E+00, 0.5612E+00, 0.5656E+00, 0.5700E+00,& - 0.5744E+00, 0.5789E+00, 0.5834E+00, 0.5879E+00,& - 0.5925E+00, 0.5971E+00, 0.6018E+00, 0.6064E+00,& - 0.6111E+00, 0.6159E+00, 0.6206E+00, 0.6255E+00,& - 0.6303E+00, 0.6352E+00, 0.6401E+00, 0.6450E+00,& - 0.6500E+00, 0.6550E+00, 0.6601E+00, 0.6652E+00,& - 0.6703E+00, 0.6754E+00, 0.6807E+00, 0.6859E+00,& - 0.6912E+00, 0.6965E+00, 0.7018E+00, 0.7072E+00,& - 0.7126E+00, 0.7181E+00, 0.7236E+00, 0.7291E+00,& - 0.7347E+00, 0.7404E+00, 0.7460E+00, 0.7517E+00,& - 0.7575E+00, 0.7633E+00, 0.7691E+00, 0.7750E+00,& - 0.7809E+00, 0.7869E+00, 0.7928E+00, 0.7989E+00,& - 0.8050E+00, 0.8111E+00, 0.8173E+00, 0.8235E+00,& - 0.8298E+00, 0.8362E+00, 0.8425E+00, 0.8489E+00,& - 0.8554E+00, 0.8619E+00, 0.8685E+00, 0.8751E+00,& - 0.8817E+00, 0.8884E+00, 0.8952E+00, 0.9020E+00,& - 0.9088E+00, 0.9157E+00, 0.9227E+00, 0.9297E+00,& - 0.9367E+00, 0.9439E+00, 0.9510E+00, 0.9582E+00,& - 0.9655E+00, 0.9729E+00, 0.9802E+00, 0.9877E+00,& - 0.9952E+00, 0.1003E+01, 0.1010E+01, 0.1018E+01,& - 0.1026E+01, 0.1034E+01, 0.1041E+01, 0.1049E+01,& - 0.1057E+01, 0.1065E+01, 0.1073E+01, 0.1081E+01,& - 0.1090E+01, 0.1098E+01, 0.1106E+01, 0.1115E+01,& - 0.1123E+01, 0.1132E+01, 0.1140E+01, 0.1149E+01,& - 0.1158E+01, 0.1167E+01, 0.1175E+01, 0.1184E+01,& - 0.1193E+01, 0.1203E+01, 0.1212E+01, 0.1221E+01,& - 0.1230E+01, 0.1240E+01, 0.1249E+01, 0.1259E+01,& - 0.1268E+01, 0.1278E+01, 0.1288E+01, 0.1298E+01,& - 0.1307E+01, 0.1317E+01, 0.1328E+01, 0.1338E+01,& - 0.1348E+01, 0.1358E+01, 0.1369E+01, 0.1379E+01,& - 0.1390E+01, 0.1401E+01, 0.1411E+01, 0.1422E+01,& - 0.1433E+01, 0.1444E+01, 0.1455E+01, 0.1467E+01,& - 0.1478E+01, 0.1489E+01, 0.1501E+01, 0.1512E+01,& - 0.1524E+01, 0.1536E+01, 0.1548E+01, 0.1560E+01,& - 0.1572E+01, 0.1584E+01, 0.1597E+01, 0.1609E+01,& - 0.1622E+01, 0.1634E+01, 0.1647E+01, 0.1660E+01,& - 0.1673E+01, 0.1686E+01, 0.1699E+01, 0.1713E+01,& - 0.1726E+01, 0.1740E+01, 0.1754E+01, 0.1768E+01,& - 0.1781E+01, 0.1796E+01, 0.1810E+01, 0.1824E+01,& - 0.1839E+01, 0.1853E+01, 0.1868E+01, 0.1883E+01,& - 0.1898E+01, 0.1913E+01, 0.1929E+01, 0.1944E+01,& - 0.1960E+01, 0.1976E+01, 0.1992E+01, 0.2008E+01,& - 0.2024E+01, 0.2040E+01, 0.2057E+01, 0.2074E+01,& - 0.2091E+01, 0.2108E+01, 0.2125E+01, 0.2142E+01,& - 0.2160E+01, 0.2178E+01, 0.2196E+01, 0.2214E+01,& - 0.2232E+01, 0.2251E+01, 0.2270E+01, 0.2289E+01,& - 0.2308E+01, 0.2327E+01, 0.2347E+01, 0.2366E+01,& - 0.2386E+01, 0.2407E+01, 0.2427E+01, 0.2448E+01,& - 0.2468E+01, 0.2490E+01, 0.2511E+01, 0.2532E+01,& - 0.2554E+01, 0.2576E+01, 0.2599E+01, 0.2621E+01,& - 0.2644E+01, 0.2667E+01, 0.2691E+01, 0.2714E+01,& - 0.2738E+01, 0.2762E+01, 0.2787E+01, 0.2812E+01,& - 0.2837E+01, 0.2862E+01, 0.2888E+01, 0.2914E+01,& - 0.2940E+01, 0.2967E+01, 0.2994E+01, 0.3022E+01,& - 0.3049E+01, 0.3078E+01, 0.3106E+01, 0.3135E+01,& - 0.3164E+01, 0.3194E+01, 0.3224E+01, 0.3255E+01,& - 0.3286E+01, 0.3317E+01, 0.3349E+01, 0.3381E+01,& - 0.3414E+01, 0.3447E+01, 0.3481E+01, 0.3515E+01,& - 0.3550E+01, 0.3585E+01, 0.3621E+01, 0.3657E+01,& - 0.3694E+01, 0.3732E+01, 0.3770E+01, 0.3808E+01,& - 0.3848E+01, 0.3888E+01, 0.3928E+01, 0.3970E+01,& - 0.4012E+01, 0.4055E+01, 0.4098E+01, 0.4142E+01,& - 0.4187E+01, 0.4233E+01, 0.4280E+01, 0.4328E+01,& - 0.4376E+01, 0.4426E+01, 0.4476E+01, 0.4528E+01,& - 0.4580E+01, 0.4634E+01, 0.4688E+01, 0.4744E+01,& - 0.4801E+01, 0.4859E+01, 0.4919E+01, 0.4980E+01,& - 0.5042E+01, 0.5105E+01, 0.5170E+01, 0.5237E+01,& - 0.5306E+01, 0.5376E+01, 0.5447E+01, 0.5521E+01,& - 0.5597E+01, 0.5674E+01, 0.5754E+01, 0.5836E+01,& - 0.5921E+01, 0.6008E+01, 0.6097E+01, 0.6190E+01,& - 0.6285E+01, 0.6384E+01, 0.6485E+01, 0.6591E+01,& - 0.6700E+01, 0.6813E+01, 0.6930E+01, 0.7050E+01,& - 0.7179E+01, 0.7311E+01, 0.7449E+01, 0.7594E+01,& - 0.7745E+01, 0.7903E+01, 0.8069E+01, 0.8245E+01,& - 0.8430E+01, 0.8626E+01, 0.8833E+01, 0.9057E+01,& - 0.9294E+01, 0.9549E+01, 0.9825E+01, 0.1012E+02,& - 0.1045E+02, 0.1081E+02, 0.1121E+02, 0.1167E+02,& - 0.1218E+02, 0.1278E+02, 0.1350E+02, 0.1438E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 86) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.3837E-04, 0.3837E-04,& - 0.3837E-04, 0.3837E-04, 0.3837E-04, 0.3837E-04,& - 0.3837E-04, 0.3837E-04, 0.3837E-04, 0.3837E-04,& - 0.3837E-04, 0.3837E-04, 0.6675E-04, 0.6675E-04,& - 0.6675E-04, 0.6675E-04, 0.6675E-04, 0.6675E-04,& - 0.6675E-04, 0.6675E-04, 0.9512E-04, 0.9512E-04,& - 0.9512E-04, 0.9512E-04, 0.9512E-04, 0.9512E-04,& - 0.1235E-03, 0.1235E-03, 0.1235E-03, 0.1235E-03,& - 0.1235E-03, 0.1235E-03, 0.1519E-03, 0.1519E-03,& - 0.1519E-03, 0.1519E-03, 0.1519E-03, 0.1802E-03,& - 0.1802E-03, 0.1802E-03, 0.1802E-03, 0.2086E-03,& - 0.2086E-03, 0.2086E-03, 0.2370E-03, 0.2370E-03,& - 0.2370E-03, 0.2370E-03, 0.2654E-03, 0.2654E-03,& - 0.2654E-03, 0.2937E-03, 0.2937E-03, 0.2937E-03,& - 0.3221E-03, 0.3221E-03, 0.3505E-03, 0.3505E-03,& - 0.3505E-03, 0.3789E-03, 0.3789E-03, 0.4072E-03,& - 0.4072E-03, 0.4072E-03, 0.4356E-03, 0.4356E-03,& - 0.4640E-03, 0.4640E-03, 0.4924E-03, 0.4924E-03,& - 0.5207E-03, 0.5491E-03, 0.5491E-03, 0.5775E-03,& - 0.5775E-03, 0.6059E-03, 0.6059E-03, 0.6342E-03,& - 0.6626E-03, 0.6626E-03, 0.6910E-03, 0.7194E-03,& - 0.7194E-03, 0.7477E-03, 0.7761E-03, 0.8045E-03,& - 0.8045E-03, 0.8329E-03, 0.8612E-03, 0.8896E-03,& - 0.9180E-03, 0.9180E-03, 0.9464E-03, 0.9747E-03,& - 0.1003E-02, 0.1031E-02, 0.1060E-02, 0.1088E-02,& - 0.1117E-02, 0.1145E-02, 0.1173E-02, 0.1202E-02,& - 0.1230E-02, 0.1258E-02, 0.1287E-02, 0.1315E-02,& - 0.1344E-02, 0.1400E-02, 0.1429E-02, 0.1457E-02,& - 0.1485E-02, 0.1514E-02, 0.1571E-02, 0.1599E-02,& - 0.1627E-02, 0.1684E-02, 0.1712E-02, 0.1741E-02,& - 0.1798E-02, 0.1826E-02, 0.1883E-02, 0.1911E-02,& - 0.1968E-02, 0.1996E-02, 0.2053E-02, 0.2081E-02,& - 0.2138E-02, 0.2195E-02, 0.2223E-02, 0.2280E-02,& - 0.2337E-02, 0.2393E-02, 0.2450E-02, 0.2479E-02,& - 0.2535E-02, 0.2592E-02, 0.2649E-02, 0.2706E-02,& - 0.2762E-02, 0.2819E-02, 0.2876E-02, 0.2933E-02,& - 0.2989E-02, 0.3074E-02, 0.3131E-02, 0.3188E-02,& - 0.3245E-02, 0.3330E-02, 0.3387E-02, 0.3443E-02,& - 0.3528E-02, 0.3585E-02, 0.3670E-02, 0.3727E-02,& - 0.3812E-02, 0.3897E-02, 0.3954E-02, 0.4039E-02,& - 0.4124E-02, 0.4209E-02, 0.4266E-02, 0.4351E-02,& - 0.4436E-02, 0.4522E-02, 0.4607E-02, 0.4692E-02,& - 0.4777E-02, 0.4862E-02, 0.4976E-02, 0.5061E-02,& - 0.5146E-02, 0.5259E-02, 0.5344E-02, 0.5430E-02,& - 0.5543E-02, 0.5628E-02, 0.5742E-02, 0.5855E-02,& - 0.5940E-02, 0.6054E-02, 0.6167E-02, 0.6281E-02,& - 0.6394E-02, 0.6508E-02, 0.6621E-02, 0.6735E-02,& - 0.6848E-02, 0.6962E-02, 0.7075E-02, 0.7217E-02,& - 0.7331E-02, 0.7444E-02, 0.7586E-02, 0.7700E-02,& - 0.7841E-02, 0.7983E-02, 0.8097E-02, 0.8239E-02,& - 0.8381E-02, 0.8522E-02, 0.8664E-02, 0.8806E-02,& - 0.8948E-02, 0.9090E-02, 0.9260E-02, 0.9402E-02,& - 0.9544E-02, 0.9714E-02, 0.9856E-02, 0.1003E-01,& - 0.1020E-01, 0.1034E-01, 0.1051E-01, 0.1068E-01,& - 0.1085E-01, 0.1102E-01, 0.1119E-01, 0.1136E-01,& - 0.1156E-01, 0.1173E-01, 0.1190E-01, 0.1210E-01,& - 0.1230E-01, 0.1247E-01, 0.1267E-01, 0.1286E-01,& - 0.1306E-01, 0.1326E-01, 0.1346E-01, 0.1366E-01,& - 0.1386E-01, 0.1408E-01, 0.1428E-01, 0.1451E-01,& - 0.1471E-01, 0.1494E-01, 0.1516E-01, 0.1539E-01,& - 0.1562E-01, 0.1584E-01, 0.1607E-01, 0.1630E-01,& - 0.1655E-01, 0.1678E-01, 0.1703E-01, 0.1726E-01,& - 0.1752E-01, 0.1777E-01, 0.1803E-01, 0.1828E-01,& - 0.1854E-01, 0.1879E-01, 0.1908E-01, 0.1933E-01,& - 0.1962E-01, 0.1990E-01, 0.2016E-01, 0.2044E-01,& - 0.2072E-01, 0.2101E-01, 0.2132E-01, 0.2160E-01,& - 0.2192E-01, 0.2220E-01, 0.2251E-01, 0.2282E-01,& - 0.2314E-01, 0.2345E-01, 0.2376E-01, 0.2407E-01,& - 0.2441E-01, 0.2472E-01, 0.2506E-01, 0.2541E-01,& - 0.2575E-01, 0.2609E-01, 0.2643E-01, 0.2677E-01,& - 0.2714E-01, 0.2748E-01, 0.2785E-01, 0.2821E-01,& - 0.2858E-01, 0.2895E-01, 0.2932E-01, 0.2972E-01,& - 0.3009E-01, 0.3048E-01, 0.3088E-01, 0.3128E-01,& - 0.3168E-01, 0.3207E-01, 0.3247E-01, 0.3290E-01,& - 0.3332E-01, 0.3372E-01, 0.3414E-01, 0.3460E-01,& - 0.3502E-01, 0.3545E-01, 0.3590E-01, 0.3636E-01,& - 0.3681E-01, 0.3727E-01, 0.3772E-01, 0.3817E-01,& - 0.3866E-01, 0.3914E-01, 0.3962E-01, 0.4010E-01,& - 0.4059E-01, 0.4107E-01, 0.4158E-01, 0.4209E-01,& - 0.4257E-01, 0.4311E-01, 0.4362E-01, 0.4413E-01,& - 0.4467E-01, 0.4521E-01, 0.4575E-01, 0.4629E-01,& - 0.4683E-01, 0.4740E-01, 0.4794E-01, 0.4850E-01,& - 0.4907E-01, 0.4967E-01, 0.5023E-01, 0.5083E-01,& - 0.5143E-01, 0.5202E-01, 0.5262E-01, 0.5321E-01,& - 0.5384E-01, 0.5446E-01, 0.5509E-01, 0.5571E-01,& - 0.5636E-01, 0.5699E-01, 0.5764E-01, 0.5829E-01,& - 0.5894E-01, 0.5963E-01, 0.6031E-01, 0.6099E-01,& - 0.6167E-01, 0.6235E-01, 0.6306E-01, 0.6377E-01,& - 0.6448E-01, 0.6519E-01, 0.6590E-01, 0.6663E-01,& - 0.6737E-01, 0.6811E-01, 0.6888E-01, 0.6961E-01,& - 0.7038E-01, 0.7115E-01, 0.7194E-01, 0.7271E-01,& - 0.7350E-01, 0.7430E-01, 0.7512E-01, 0.7591E-01,& - 0.7674E-01, 0.7756E-01, 0.7841E-01, 0.7923E-01,& - 0.8008E-01, 0.8093E-01, 0.8181E-01, 0.8267E-01,& - 0.8355E-01, 0.8445E-01, 0.8533E-01, 0.8624E-01,& - 0.8715E-01, 0.8806E-01, 0.8899E-01, 0.8990E-01,& - 0.9087E-01, 0.9180E-01, 0.9277E-01, 0.9373E-01,& - 0.9470E-01, 0.9566E-01, 0.9665E-01, 0.9765E-01,& - 0.9867E-01, 0.9969E-01, 0.1007E+00, 0.1017E+00,& - 0.1028E+00, 0.1038E+00, 0.1049E+00, 0.1059E+00,& - 0.1070E+00, 0.1081E+00, 0.1092E+00, 0.1103E+00,& - 0.1114E+00, 0.1125E+00, 0.1137E+00, 0.1148E+00,& - 0.1159E+00, 0.1171E+00, 0.1183E+00, 0.1194E+00,& - 0.1206E+00, 0.1218E+00, 0.1230E+00, 0.1242E+00,& - 0.1255E+00, 0.1267E+00, 0.1280E+00, 0.1292E+00,& - 0.1304E+00, 0.1317E+00, 0.1330E+00, 0.1343E+00,& - 0.1356E+00, 0.1369E+00, 0.1383E+00, 0.1396E+00,& - 0.1409E+00, 0.1423E+00, 0.1437E+00, 0.1451E+00,& - 0.1465E+00, 0.1478E+00, 0.1493E+00, 0.1507E+00,& - 0.1521E+00, 0.1536E+00, 0.1550E+00, 0.1565E+00,& - 0.1580E+00, 0.1595E+00, 0.1610E+00, 0.1625E+00,& - 0.1640E+00, 0.1656E+00, 0.1671E+00, 0.1687E+00,& - 0.1703E+00, 0.1718E+00, 0.1735E+00, 0.1751E+00,& - 0.1767E+00, 0.1783E+00, 0.1800E+00, 0.1817E+00,& - 0.1833E+00, 0.1850E+00, 0.1867E+00, 0.1884E+00,& - 0.1902E+00, 0.1919E+00, 0.1937E+00, 0.1954E+00,& - 0.1972E+00, 0.1990E+00, 0.2008E+00, 0.2027E+00,& - 0.2045E+00, 0.2064E+00, 0.2082E+00, 0.2101E+00,& - 0.2120E+00, 0.2139E+00, 0.2158E+00, 0.2178E+00,& - 0.2197E+00, 0.2217E+00, 0.2237E+00, 0.2256E+00,& - 0.2277E+00, 0.2297E+00, 0.2317E+00, 0.2338E+00,& - 0.2359E+00, 0.2380E+00, 0.2401E+00, 0.2422E+00,& - 0.2443E+00, 0.2464E+00, 0.2486E+00, 0.2508E+00,& - 0.2530E+00, 0.2552E+00, 0.2575E+00, 0.2597E+00,& - 0.2620E+00, 0.2643E+00, 0.2666E+00, 0.2689E+00,& - 0.2712E+00, 0.2735E+00, 0.2759E+00, 0.2783E+00,& - 0.2807E+00, 0.2831E+00, 0.2856E+00, 0.2880E+00,& - 0.2905E+00, 0.2930E+00, 0.2955E+00, 0.2980E+00,& - 0.3006E+00, 0.3032E+00, 0.3057E+00, 0.3084E+00,& - 0.3110E+00, 0.3136E+00, 0.3163E+00, 0.3190E+00,& - 0.3217E+00, 0.3244E+00, 0.3271E+00, 0.3299E+00,& - 0.3327E+00, 0.3355E+00, 0.3383E+00, 0.3411E+00,& - 0.3440E+00, 0.3469E+00, 0.3498E+00, 0.3527E+00,& - 0.3557E+00, 0.3586E+00, 0.3616E+00, 0.3646E+00,& - 0.3677E+00, 0.3707E+00, 0.3738E+00, 0.3769E+00,& - 0.3800E+00, 0.3832E+00, 0.3863E+00, 0.3895E+00,& - 0.3927E+00, 0.3960E+00, 0.3992E+00, 0.4025E+00,& - 0.4058E+00, 0.4092E+00, 0.4125E+00, 0.4159E+00,& - 0.4193E+00, 0.4227E+00, 0.4262E+00, 0.4297E+00,& - 0.4332E+00, 0.4367E+00, 0.4403E+00, 0.4438E+00,& - 0.4475E+00, 0.4511E+00, 0.4547E+00, 0.4584E+00,& - 0.4621E+00, 0.4659E+00, 0.4696E+00, 0.4734E+00,& - 0.4772E+00, 0.4811E+00, 0.4850E+00, 0.4889E+00,& - 0.4928E+00, 0.4968E+00, 0.5008E+00, 0.5048E+00,& - 0.5088E+00, 0.5129E+00, 0.5170E+00, 0.5211E+00,& - 0.5253E+00, 0.5295E+00, 0.5337E+00, 0.5380E+00,& - 0.5423E+00, 0.5466E+00, 0.5509E+00, 0.5553E+00,& - 0.5597E+00, 0.5642E+00, 0.5686E+00, 0.5731E+00,& - 0.5777E+00, 0.5822E+00, 0.5869E+00, 0.5915E+00,& - 0.5962E+00, 0.6009E+00, 0.6056E+00, 0.6104E+00,& - 0.6152E+00, 0.6200E+00, 0.6249E+00, 0.6298E+00,& - 0.6348E+00, 0.6398E+00, 0.6448E+00, 0.6498E+00,& - 0.6550E+00, 0.6601E+00, 0.6653E+00, 0.6705E+00,& - 0.6757E+00, 0.6810E+00, 0.6863E+00, 0.6917E+00,& - 0.6971E+00, 0.7025E+00, 0.7080E+00, 0.7136E+00,& - 0.7191E+00, 0.7247E+00, 0.7303E+00, 0.7360E+00,& - 0.7418E+00, 0.7475E+00, 0.7534E+00, 0.7592E+00,& - 0.7651E+00, 0.7710E+00, 0.7770E+00, 0.7831E+00,& - 0.7891E+00, 0.7953E+00, 0.8014E+00, 0.8076E+00,& - 0.8139E+00, 0.8202E+00, 0.8266E+00, 0.8330E+00,& - 0.8394E+00, 0.8459E+00, 0.8524E+00, 0.8591E+00,& - 0.8657E+00, 0.8724E+00, 0.8791E+00, 0.8859E+00,& - 0.8928E+00, 0.8997E+00, 0.9066E+00, 0.9136E+00,& - 0.9207E+00, 0.9278E+00, 0.9350E+00, 0.9422E+00,& - 0.9495E+00, 0.9568E+00, 0.9642E+00, 0.9716E+00,& - 0.9791E+00, 0.9867E+00, 0.9943E+00, 0.1002E+01,& - 0.1010E+01, 0.1017E+01, 0.1025E+01, 0.1033E+01,& - 0.1041E+01, 0.1049E+01, 0.1057E+01, 0.1066E+01,& - 0.1074E+01, 0.1082E+01, 0.1090E+01, 0.1099E+01,& - 0.1107E+01, 0.1116E+01, 0.1124E+01, 0.1133E+01,& - 0.1142E+01, 0.1151E+01, 0.1160E+01, 0.1169E+01,& - 0.1178E+01, 0.1187E+01, 0.1196E+01, 0.1205E+01,& - 0.1215E+01, 0.1224E+01, 0.1233E+01, 0.1243E+01,& - 0.1253E+01, 0.1262E+01, 0.1272E+01, 0.1282E+01,& - 0.1292E+01, 0.1302E+01, 0.1312E+01, 0.1322E+01,& - 0.1333E+01, 0.1343E+01, 0.1354E+01, 0.1364E+01,& - 0.1375E+01, 0.1386E+01, 0.1396E+01, 0.1407E+01,& - 0.1418E+01, 0.1429E+01, 0.1441E+01, 0.1452E+01,& - 0.1463E+01, 0.1475E+01, 0.1486E+01, 0.1498E+01,& - 0.1510E+01, 0.1522E+01, 0.1534E+01, 0.1546E+01,& - 0.1558E+01, 0.1570E+01, 0.1583E+01, 0.1595E+01,& - 0.1608E+01, 0.1621E+01, 0.1634E+01, 0.1647E+01,& - 0.1660E+01, 0.1673E+01, 0.1686E+01, 0.1700E+01,& - 0.1713E+01, 0.1727E+01, 0.1741E+01, 0.1755E+01,& - 0.1769E+01, 0.1783E+01, 0.1797E+01, 0.1812E+01,& - 0.1827E+01, 0.1841E+01, 0.1856E+01, 0.1871E+01,& - 0.1886E+01, 0.1902E+01, 0.1917E+01, 0.1933E+01,& - 0.1949E+01, 0.1965E+01, 0.1981E+01, 0.1997E+01,& - 0.2013E+01, 0.2030E+01, 0.2047E+01, 0.2064E+01,& - 0.2081E+01, 0.2098E+01, 0.2115E+01, 0.2133E+01,& - 0.2151E+01, 0.2169E+01, 0.2187E+01, 0.2205E+01,& - 0.2223E+01, 0.2242E+01, 0.2261E+01, 0.2280E+01,& - 0.2300E+01, 0.2319E+01, 0.2339E+01, 0.2359E+01,& - 0.2379E+01, 0.2400E+01, 0.2420E+01, 0.2441E+01,& - 0.2462E+01, 0.2483E+01, 0.2505E+01, 0.2527E+01,& - 0.2549E+01, 0.2571E+01, 0.2594E+01, 0.2617E+01,& - 0.2640E+01, 0.2663E+01, 0.2687E+01, 0.2711E+01,& - 0.2735E+01, 0.2759E+01, 0.2784E+01, 0.2809E+01,& - 0.2835E+01, 0.2860E+01, 0.2886E+01, 0.2913E+01,& - 0.2940E+01, 0.2967E+01, 0.2994E+01, 0.3022E+01,& - 0.3050E+01, 0.3078E+01, 0.3107E+01, 0.3137E+01,& - 0.3166E+01, 0.3196E+01, 0.3227E+01, 0.3258E+01,& - 0.3289E+01, 0.3321E+01, 0.3353E+01, 0.3386E+01,& - 0.3419E+01, 0.3453E+01, 0.3487E+01, 0.3522E+01,& - 0.3557E+01, 0.3593E+01, 0.3629E+01, 0.3666E+01,& - 0.3703E+01, 0.3741E+01, 0.3780E+01, 0.3819E+01,& - 0.3859E+01, 0.3900E+01, 0.3941E+01, 0.3983E+01,& - 0.4025E+01, 0.4069E+01, 0.4113E+01, 0.4158E+01,& - 0.4204E+01, 0.4250E+01, 0.4298E+01, 0.4346E+01,& - 0.4395E+01, 0.4446E+01, 0.4497E+01, 0.4549E+01,& - 0.4602E+01, 0.4657E+01, 0.4712E+01, 0.4769E+01,& - 0.4827E+01, 0.4885E+01, 0.4946E+01, 0.5008E+01,& - 0.5071E+01, 0.5136E+01, 0.5202E+01, 0.5270E+01,& - 0.5339E+01, 0.5411E+01, 0.5484E+01, 0.5559E+01,& - 0.5635E+01, 0.5714E+01, 0.5796E+01, 0.5879E+01,& - 0.5965E+01, 0.6053E+01, 0.6145E+01, 0.6239E+01,& - 0.6336E+01, 0.6436E+01, 0.6539E+01, 0.6647E+01,& - 0.6758E+01, 0.6873E+01, 0.6992E+01, 0.7116E+01,& - 0.7245E+01, 0.7380E+01, 0.7521E+01, 0.7667E+01,& - 0.7821E+01, 0.7982E+01, 0.8152E+01, 0.8330E+01,& - 0.8519E+01, 0.8719E+01, 0.8931E+01, 0.9158E+01,& - 0.9400E+01, 0.9660E+01, 0.9941E+01, 0.1025E+02,& - 0.1058E+02, 0.1095E+02, 0.1136E+02, 0.1182E+02,& - 0.1234E+02, 0.1296E+02, 0.1369E+02, 0.1459E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 87) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.3891E-04,& - 0.3891E-04, 0.3891E-04, 0.3891E-04, 0.3891E-04,& - 0.3891E-04, 0.3891E-04, 0.3891E-04, 0.3891E-04,& - 0.3891E-04, 0.3891E-04, 0.3891E-04, 0.6782E-04,& - 0.6782E-04, 0.6782E-04, 0.6782E-04, 0.6782E-04,& - 0.6782E-04, 0.6782E-04, 0.6782E-04, 0.6782E-04,& - 0.9672E-04, 0.9672E-04, 0.9672E-04, 0.9672E-04,& - 0.9672E-04, 0.9672E-04, 0.1256E-03, 0.1256E-03,& - 0.1256E-03, 0.1256E-03, 0.1256E-03, 0.1256E-03,& - 0.1545E-03, 0.1545E-03, 0.1545E-03, 0.1545E-03,& - 0.1545E-03, 0.1834E-03, 0.1834E-03, 0.1834E-03,& - 0.1834E-03, 0.2124E-03, 0.2124E-03, 0.2124E-03,& - 0.2124E-03, 0.2413E-03, 0.2413E-03, 0.2413E-03,& - 0.2702E-03, 0.2702E-03, 0.2702E-03, 0.2991E-03,& - 0.2991E-03, 0.2991E-03, 0.3280E-03, 0.3280E-03,& - 0.3280E-03, 0.3569E-03, 0.3569E-03, 0.3569E-03,& - 0.3858E-03, 0.3858E-03, 0.4147E-03, 0.4147E-03,& - 0.4436E-03, 0.4436E-03, 0.4725E-03, 0.4725E-03,& - 0.5014E-03, 0.5014E-03, 0.5303E-03, 0.5303E-03,& - 0.5593E-03, 0.5593E-03, 0.5882E-03, 0.5882E-03,& - 0.6171E-03, 0.6460E-03, 0.6460E-03, 0.6749E-03,& - 0.6749E-03, 0.7038E-03, 0.7327E-03, 0.7327E-03,& - 0.7616E-03, 0.7905E-03, 0.8194E-03, 0.8194E-03,& - 0.8483E-03, 0.8772E-03, 0.9062E-03, 0.9351E-03,& - 0.9351E-03, 0.9640E-03, 0.9929E-03, 0.1022E-02,& - 0.1051E-02, 0.1080E-02, 0.1109E-02, 0.1137E-02,& - 0.1166E-02, 0.1195E-02, 0.1224E-02, 0.1253E-02,& - 0.1282E-02, 0.1311E-02, 0.1340E-02, 0.1369E-02,& - 0.1398E-02, 0.1427E-02, 0.1455E-02, 0.1513E-02,& - 0.1542E-02, 0.1571E-02, 0.1600E-02, 0.1658E-02,& - 0.1687E-02, 0.1716E-02, 0.1773E-02, 0.1802E-02,& - 0.1860E-02, 0.1889E-02, 0.1918E-02, 0.1976E-02,& - 0.2034E-02, 0.2062E-02, 0.2120E-02, 0.2149E-02,& - 0.2207E-02, 0.2265E-02, 0.2294E-02, 0.2352E-02,& - 0.2409E-02, 0.2438E-02, 0.2496E-02, 0.2554E-02,& - 0.2612E-02, 0.2670E-02, 0.2727E-02, 0.2785E-02,& - 0.2843E-02, 0.2901E-02, 0.2959E-02, 0.3016E-02,& - 0.3074E-02, 0.3132E-02, 0.3190E-02, 0.3277E-02,& - 0.3334E-02, 0.3392E-02, 0.3479E-02, 0.3537E-02,& - 0.3595E-02, 0.3681E-02, 0.3739E-02, 0.3826E-02,& - 0.3913E-02, 0.3970E-02, 0.4057E-02, 0.4144E-02,& - 0.4202E-02, 0.4288E-02, 0.4375E-02, 0.4462E-02,& - 0.4549E-02, 0.4635E-02, 0.4722E-02, 0.4809E-02,& - 0.4895E-02, 0.4982E-02, 0.5069E-02, 0.5156E-02,& - 0.5271E-02, 0.5358E-02, 0.5445E-02, 0.5560E-02,& - 0.5647E-02, 0.5763E-02, 0.5849E-02, 0.5965E-02,& - 0.6081E-02, 0.6167E-02, 0.6283E-02, 0.6399E-02,& - 0.6514E-02, 0.6630E-02, 0.6746E-02, 0.6861E-02,& - 0.6977E-02, 0.7093E-02, 0.7208E-02, 0.7353E-02,& - 0.7468E-02, 0.7584E-02, 0.7729E-02, 0.7844E-02,& - 0.7989E-02, 0.8133E-02, 0.8249E-02, 0.8393E-02,& - 0.8538E-02, 0.8682E-02, 0.8827E-02, 0.8972E-02,& - 0.9116E-02, 0.9261E-02, 0.9405E-02, 0.9579E-02,& - 0.9723E-02, 0.9868E-02, 0.1004E-01, 0.1019E-01,& - 0.1036E-01, 0.1053E-01, 0.1071E-01, 0.1085E-01,& - 0.1102E-01, 0.1120E-01, 0.1140E-01, 0.1157E-01,& - 0.1175E-01, 0.1192E-01, 0.1212E-01, 0.1230E-01,& - 0.1250E-01, 0.1267E-01, 0.1287E-01, 0.1308E-01,& - 0.1328E-01, 0.1348E-01, 0.1368E-01, 0.1389E-01,& - 0.1409E-01, 0.1432E-01, 0.1452E-01, 0.1475E-01,& - 0.1496E-01, 0.1519E-01, 0.1542E-01, 0.1562E-01,& - 0.1585E-01, 0.1608E-01, 0.1634E-01, 0.1657E-01,& - 0.1681E-01, 0.1707E-01, 0.1730E-01, 0.1756E-01,& - 0.1782E-01, 0.1805E-01, 0.1831E-01, 0.1857E-01,& - 0.1886E-01, 0.1912E-01, 0.1938E-01, 0.1967E-01,& - 0.1993E-01, 0.2022E-01, 0.2051E-01, 0.2080E-01,& - 0.2108E-01, 0.2137E-01, 0.2166E-01, 0.2195E-01,& - 0.2227E-01, 0.2256E-01, 0.2288E-01, 0.2319E-01,& - 0.2351E-01, 0.2383E-01, 0.2415E-01, 0.2447E-01,& - 0.2481E-01, 0.2513E-01, 0.2548E-01, 0.2583E-01,& - 0.2617E-01, 0.2652E-01, 0.2687E-01, 0.2721E-01,& - 0.2759E-01, 0.2794E-01, 0.2831E-01, 0.2869E-01,& - 0.2906E-01, 0.2944E-01, 0.2981E-01, 0.3022E-01,& - 0.3059E-01, 0.3100E-01, 0.3140E-01, 0.3181E-01,& - 0.3221E-01, 0.3262E-01, 0.3302E-01, 0.3346E-01,& - 0.3389E-01, 0.3432E-01, 0.3476E-01, 0.3519E-01,& - 0.3562E-01, 0.3609E-01, 0.3652E-01, 0.3698E-01,& - 0.3745E-01, 0.3791E-01, 0.3837E-01, 0.3886E-01,& - 0.3933E-01, 0.3982E-01, 0.4031E-01, 0.4080E-01,& - 0.4129E-01, 0.4181E-01, 0.4230E-01, 0.4282E-01,& - 0.4334E-01, 0.4386E-01, 0.4438E-01, 0.4493E-01,& - 0.4548E-01, 0.4600E-01, 0.4655E-01, 0.4713E-01,& - 0.4768E-01, 0.4826E-01, 0.4881E-01, 0.4939E-01,& - 0.4999E-01, 0.5057E-01, 0.5115E-01, 0.5176E-01,& - 0.5236E-01, 0.5297E-01, 0.5361E-01, 0.5421E-01,& - 0.5485E-01, 0.5548E-01, 0.5612E-01, 0.5676E-01,& - 0.5742E-01, 0.5809E-01, 0.5875E-01, 0.5942E-01,& - 0.6008E-01, 0.6078E-01, 0.6147E-01, 0.6216E-01,& - 0.6286E-01, 0.6355E-01, 0.6427E-01, 0.6500E-01,& - 0.6572E-01, 0.6647E-01, 0.6719E-01, 0.6794E-01,& - 0.6870E-01, 0.6948E-01, 0.7023E-01, 0.7101E-01,& - 0.7179E-01, 0.7260E-01, 0.7338E-01, 0.7419E-01,& - 0.7500E-01, 0.7581E-01, 0.7665E-01, 0.7748E-01,& - 0.7832E-01, 0.7916E-01, 0.8003E-01, 0.8087E-01,& - 0.8176E-01, 0.8263E-01, 0.8353E-01, 0.8439E-01,& - 0.8532E-01, 0.8621E-01, 0.8714E-01, 0.8806E-01,& - 0.8899E-01, 0.8994E-01, 0.9087E-01, 0.9185E-01,& - 0.9281E-01, 0.9379E-01, 0.9477E-01, 0.9575E-01,& - 0.9674E-01, 0.9775E-01, 0.9879E-01, 0.9980E-01,& - 0.1008E+00, 0.1019E+00, 0.1029E+00, 0.1040E+00,& - 0.1051E+00, 0.1061E+00, 0.1072E+00, 0.1083E+00,& - 0.1094E+00, 0.1106E+00, 0.1117E+00, 0.1128E+00,& - 0.1139E+00, 0.1151E+00, 0.1163E+00, 0.1174E+00,& - 0.1186E+00, 0.1198E+00, 0.1210E+00, 0.1222E+00,& - 0.1234E+00, 0.1247E+00, 0.1259E+00, 0.1272E+00,& - 0.1284E+00, 0.1297E+00, 0.1310E+00, 0.1323E+00,& - 0.1336E+00, 0.1349E+00, 0.1362E+00, 0.1376E+00,& - 0.1389E+00, 0.1403E+00, 0.1416E+00, 0.1430E+00,& - 0.1444E+00, 0.1458E+00, 0.1472E+00, 0.1487E+00,& - 0.1501E+00, 0.1515E+00, 0.1530E+00, 0.1545E+00,& - 0.1559E+00, 0.1574E+00, 0.1589E+00, 0.1605E+00,& - 0.1620E+00, 0.1635E+00, 0.1651E+00, 0.1667E+00,& - 0.1683E+00, 0.1698E+00, 0.1714E+00, 0.1731E+00,& - 0.1747E+00, 0.1764E+00, 0.1780E+00, 0.1797E+00,& - 0.1814E+00, 0.1830E+00, 0.1848E+00, 0.1865E+00,& - 0.1882E+00, 0.1900E+00, 0.1917E+00, 0.1935E+00,& - 0.1953E+00, 0.1971E+00, 0.1989E+00, 0.2007E+00,& - 0.2026E+00, 0.2044E+00, 0.2063E+00, 0.2082E+00,& - 0.2101E+00, 0.2121E+00, 0.2140E+00, 0.2159E+00,& - 0.2179E+00, 0.2199E+00, 0.2219E+00, 0.2239E+00,& - 0.2259E+00, 0.2280E+00, 0.2300E+00, 0.2321E+00,& - 0.2342E+00, 0.2363E+00, 0.2384E+00, 0.2405E+00,& - 0.2427E+00, 0.2448E+00, 0.2470E+00, 0.2492E+00,& - 0.2515E+00, 0.2537E+00, 0.2559E+00, 0.2582E+00,& - 0.2605E+00, 0.2628E+00, 0.2651E+00, 0.2674E+00,& - 0.2698E+00, 0.2722E+00, 0.2746E+00, 0.2770E+00,& - 0.2794E+00, 0.2819E+00, 0.2843E+00, 0.2868E+00,& - 0.2893E+00, 0.2918E+00, 0.2944E+00, 0.2969E+00,& - 0.2995E+00, 0.3021E+00, 0.3047E+00, 0.3073E+00,& - 0.3100E+00, 0.3127E+00, 0.3154E+00, 0.3181E+00,& - 0.3208E+00, 0.3236E+00, 0.3263E+00, 0.3291E+00,& - 0.3320E+00, 0.3348E+00, 0.3377E+00, 0.3405E+00,& - 0.3434E+00, 0.3464E+00, 0.3493E+00, 0.3523E+00,& - 0.3553E+00, 0.3583E+00, 0.3613E+00, 0.3643E+00,& - 0.3674E+00, 0.3705E+00, 0.3736E+00, 0.3768E+00,& - 0.3800E+00, 0.3832E+00, 0.3864E+00, 0.3896E+00,& - 0.3929E+00, 0.3962E+00, 0.3995E+00, 0.4028E+00,& - 0.4062E+00, 0.4096E+00, 0.4130E+00, 0.4164E+00,& - 0.4199E+00, 0.4233E+00, 0.4269E+00, 0.4304E+00,& - 0.4340E+00, 0.4376E+00, 0.4412E+00, 0.4448E+00,& - 0.4485E+00, 0.4522E+00, 0.4559E+00, 0.4597E+00,& - 0.4634E+00, 0.4672E+00, 0.4711E+00, 0.4749E+00,& - 0.4788E+00, 0.4827E+00, 0.4867E+00, 0.4907E+00,& - 0.4945E+00, 0.4987E+00, 0.5028E+00, 0.5069E+00,& - 0.5110E+00, 0.5152E+00, 0.5193E+00, 0.5235E+00,& - 0.5278E+00, 0.5321E+00, 0.5364E+00, 0.5407E+00,& - 0.5451E+00, 0.5495E+00, 0.5539E+00, 0.5584E+00,& - 0.5629E+00, 0.5674E+00, 0.5720E+00, 0.5766E+00,& - 0.5813E+00, 0.5860E+00, 0.5907E+00, 0.5954E+00,& - 0.6002E+00, 0.6050E+00, 0.6098E+00, 0.6147E+00,& - 0.6196E+00, 0.6246E+00, 0.6296E+00, 0.6346E+00,& - 0.6397E+00, 0.6448E+00, 0.6499E+00, 0.6551E+00,& - 0.6603E+00, 0.6656E+00, 0.6709E+00, 0.6762E+00,& - 0.6816E+00, 0.6870E+00, 0.6925E+00, 0.6980E+00,& - 0.7035E+00, 0.7091E+00, 0.7147E+00, 0.7204E+00,& - 0.7261E+00, 0.7318E+00, 0.7376E+00, 0.7434E+00,& - 0.7493E+00, 0.7552E+00, 0.7612E+00, 0.7672E+00,& - 0.7733E+00, 0.7794E+00, 0.7855E+00, 0.7917E+00,& - 0.7980E+00, 0.8043E+00, 0.8106E+00, 0.8170E+00,& - 0.8234E+00, 0.8299E+00, 0.8364E+00, 0.8430E+00,& - 0.8497E+00, 0.8563E+00, 0.8631E+00, 0.8699E+00,& - 0.8767E+00, 0.8836E+00, 0.8905E+00, 0.8975E+00,& - 0.9045E+00, 0.9117E+00, 0.9188E+00, 0.9260E+00,& - 0.9333E+00, 0.9406E+00, 0.9480E+00, 0.9555E+00,& - 0.9629E+00, 0.9705E+00, 0.9781E+00, 0.9858E+00,& - 0.9935E+00, 0.1001E+01, 0.1009E+01, 0.1017E+01,& - 0.1025E+01, 0.1033E+01, 0.1041E+01, 0.1049E+01,& - 0.1058E+01, 0.1066E+01, 0.1074E+01, 0.1083E+01,& - 0.1091E+01, 0.1100E+01, 0.1108E+01, 0.1117E+01,& - 0.1126E+01, 0.1135E+01, 0.1144E+01, 0.1153E+01,& - 0.1162E+01, 0.1171E+01, 0.1180E+01, 0.1189E+01,& - 0.1199E+01, 0.1208E+01, 0.1218E+01, 0.1227E+01,& - 0.1237E+01, 0.1247E+01, 0.1257E+01, 0.1267E+01,& - 0.1277E+01, 0.1287E+01, 0.1297E+01, 0.1307E+01,& - 0.1317E+01, 0.1328E+01, 0.1338E+01, 0.1349E+01,& - 0.1360E+01, 0.1370E+01, 0.1381E+01, 0.1392E+01,& - 0.1403E+01, 0.1414E+01, 0.1426E+01, 0.1437E+01,& - 0.1448E+01, 0.1460E+01, 0.1472E+01, 0.1483E+01,& - 0.1495E+01, 0.1507E+01, 0.1519E+01, 0.1531E+01,& - 0.1544E+01, 0.1556E+01, 0.1569E+01, 0.1581E+01,& - 0.1594E+01, 0.1607E+01, 0.1620E+01, 0.1633E+01,& - 0.1646E+01, 0.1659E+01, 0.1673E+01, 0.1686E+01,& - 0.1700E+01, 0.1714E+01, 0.1728E+01, 0.1742E+01,& - 0.1756E+01, 0.1770E+01, 0.1785E+01, 0.1799E+01,& - 0.1814E+01, 0.1829E+01, 0.1844E+01, 0.1859E+01,& - 0.1874E+01, 0.1890E+01, 0.1905E+01, 0.1921E+01,& - 0.1937E+01, 0.1953E+01, 0.1969E+01, 0.1986E+01,& - 0.2002E+01, 0.2019E+01, 0.2036E+01, 0.2053E+01,& - 0.2070E+01, 0.2088E+01, 0.2105E+01, 0.2123E+01,& - 0.2141E+01, 0.2159E+01, 0.2177E+01, 0.2196E+01,& - 0.2214E+01, 0.2233E+01, 0.2252E+01, 0.2272E+01,& - 0.2291E+01, 0.2311E+01, 0.2331E+01, 0.2351E+01,& - 0.2371E+01, 0.2392E+01, 0.2413E+01, 0.2434E+01,& - 0.2455E+01, 0.2477E+01, 0.2499E+01, 0.2521E+01,& - 0.2543E+01, 0.2566E+01, 0.2588E+01, 0.2611E+01,& - 0.2635E+01, 0.2658E+01, 0.2682E+01, 0.2706E+01,& - 0.2731E+01, 0.2756E+01, 0.2781E+01, 0.2806E+01,& - 0.2832E+01, 0.2858E+01, 0.2884E+01, 0.2911E+01,& - 0.2938E+01, 0.2965E+01, 0.2993E+01, 0.3021E+01,& - 0.3050E+01, 0.3079E+01, 0.3108E+01, 0.3138E+01,& - 0.3168E+01, 0.3198E+01, 0.3229E+01, 0.3260E+01,& - 0.3292E+01, 0.3324E+01, 0.3357E+01, 0.3390E+01,& - 0.3424E+01, 0.3458E+01, 0.3492E+01, 0.3528E+01,& - 0.3563E+01, 0.3599E+01, 0.3636E+01, 0.3674E+01,& - 0.3712E+01, 0.3750E+01, 0.3789E+01, 0.3829E+01,& - 0.3870E+01, 0.3911E+01, 0.3953E+01, 0.3995E+01,& - 0.4038E+01, 0.4082E+01, 0.4127E+01, 0.4173E+01,& - 0.4219E+01, 0.4267E+01, 0.4315E+01, 0.4364E+01,& - 0.4414E+01, 0.4465E+01, 0.4517E+01, 0.4570E+01,& - 0.4624E+01, 0.4679E+01, 0.4735E+01, 0.4793E+01,& - 0.4852E+01, 0.4912E+01, 0.4973E+01, 0.5036E+01,& - 0.5100E+01, 0.5166E+01, 0.5233E+01, 0.5302E+01,& - 0.5373E+01, 0.5445E+01, 0.5519E+01, 0.5595E+01,& - 0.5674E+01, 0.5754E+01, 0.5836E+01, 0.5921E+01,& - 0.6009E+01, 0.6098E+01, 0.6191E+01, 0.6287E+01,& - 0.6385E+01, 0.6487E+01, 0.6593E+01, 0.6702E+01,& - 0.6815E+01, 0.6932E+01, 0.7053E+01, 0.7180E+01,& - 0.7311E+01, 0.7448E+01, 0.7591E+01, 0.7741E+01,& - 0.7897E+01, 0.8061E+01, 0.8234E+01, 0.8416E+01,& - 0.8608E+01, 0.8811E+01, 0.9028E+01, 0.9258E+01,& - 0.9505E+01, 0.9770E+01, 0.1006E+02, 0.1037E+02,& - 0.1071E+02, 0.1108E+02, 0.1150E+02, 0.1197E+02,& - 0.1251E+02, 0.1313E+02, 0.1387E+02, 0.1479E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 88) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.3945E-04, 0.3945E-04, 0.3945E-04, 0.3945E-04,& - 0.3945E-04, 0.3945E-04, 0.3945E-04, 0.3945E-04,& - 0.3945E-04, 0.3945E-04, 0.3945E-04, 0.3945E-04,& - 0.3945E-04, 0.6890E-04, 0.6890E-04, 0.6890E-04,& - 0.6890E-04, 0.6890E-04, 0.6890E-04, 0.6890E-04,& - 0.6890E-04, 0.9834E-04, 0.9834E-04, 0.9834E-04,& - 0.9834E-04, 0.9834E-04, 0.9834E-04, 0.9834E-04,& - 0.1278E-03, 0.1278E-03, 0.1278E-03, 0.1278E-03,& - 0.1278E-03, 0.1278E-03, 0.1572E-03, 0.1572E-03,& - 0.1572E-03, 0.1572E-03, 0.1572E-03, 0.1867E-03,& - 0.1867E-03, 0.1867E-03, 0.1867E-03, 0.2161E-03,& - 0.2161E-03, 0.2161E-03, 0.2161E-03, 0.2456E-03,& - 0.2456E-03, 0.2456E-03, 0.2456E-03, 0.2750E-03,& - 0.2750E-03, 0.2750E-03, 0.3045E-03, 0.3045E-03,& - 0.3045E-03, 0.3339E-03, 0.3339E-03, 0.3339E-03,& - 0.3634E-03, 0.3634E-03, 0.3928E-03, 0.3928E-03,& - 0.3928E-03, 0.4223E-03, 0.4223E-03, 0.4517E-03,& - 0.4517E-03, 0.4812E-03, 0.4812E-03, 0.5106E-03,& - 0.5106E-03, 0.5401E-03, 0.5401E-03, 0.5695E-03,& - 0.5695E-03, 0.5990E-03, 0.5990E-03, 0.6284E-03,& - 0.6578E-03, 0.6578E-03, 0.6873E-03, 0.6873E-03,& - 0.7167E-03, 0.7462E-03, 0.7462E-03, 0.7756E-03,& - 0.8051E-03, 0.8345E-03, 0.8345E-03, 0.8640E-03,& - 0.8934E-03, 0.9229E-03, 0.9229E-03, 0.9523E-03,& - 0.9818E-03, 0.1011E-02, 0.1041E-02, 0.1070E-02,& - 0.1100E-02, 0.1129E-02, 0.1129E-02, 0.1158E-02,& - 0.1188E-02, 0.1217E-02, 0.1247E-02, 0.1276E-02,& - 0.1306E-02, 0.1365E-02, 0.1394E-02, 0.1423E-02,& - 0.1453E-02, 0.1482E-02, 0.1512E-02, 0.1541E-02,& - 0.1600E-02, 0.1630E-02, 0.1659E-02, 0.1718E-02,& - 0.1747E-02, 0.1777E-02, 0.1836E-02, 0.1865E-02,& - 0.1895E-02, 0.1954E-02, 0.1983E-02, 0.2042E-02,& - 0.2071E-02, 0.2130E-02, 0.2160E-02, 0.2219E-02,& - 0.2277E-02, 0.2307E-02, 0.2366E-02, 0.2425E-02,& - 0.2454E-02, 0.2513E-02, 0.2572E-02, 0.2631E-02,& - 0.2690E-02, 0.2749E-02, 0.2808E-02, 0.2866E-02,& - 0.2925E-02, 0.2984E-02, 0.3043E-02, 0.3102E-02,& - 0.3161E-02, 0.3220E-02, 0.3279E-02, 0.3338E-02,& - 0.3426E-02, 0.3485E-02, 0.3544E-02, 0.3632E-02,& - 0.3691E-02, 0.3779E-02, 0.3838E-02, 0.3927E-02,& - 0.3985E-02, 0.4074E-02, 0.4133E-02, 0.4221E-02,& - 0.4309E-02, 0.4398E-02, 0.4457E-02, 0.4545E-02,& - 0.4633E-02, 0.4722E-02, 0.4810E-02, 0.4898E-02,& - 0.4987E-02, 0.5075E-02, 0.5193E-02, 0.5281E-02,& - 0.5369E-02, 0.5458E-02, 0.5576E-02, 0.5664E-02,& - 0.5782E-02, 0.5870E-02, 0.5988E-02, 0.6076E-02,& - 0.6194E-02, 0.6312E-02, 0.6400E-02, 0.6518E-02,& - 0.6636E-02, 0.6754E-02, 0.6871E-02, 0.6989E-02,& - 0.7107E-02, 0.7225E-02, 0.7372E-02, 0.7490E-02,& - 0.7607E-02, 0.7725E-02, 0.7873E-02, 0.7990E-02,& - 0.8138E-02, 0.8285E-02, 0.8403E-02, 0.8550E-02,& - 0.8697E-02, 0.8844E-02, 0.8992E-02, 0.9139E-02,& - 0.9286E-02, 0.9433E-02, 0.9580E-02, 0.9728E-02,& - 0.9904E-02, 0.1005E-01, 0.1023E-01, 0.1038E-01,& - 0.1055E-01, 0.1073E-01, 0.1088E-01, 0.1105E-01,& - 0.1123E-01, 0.1141E-01, 0.1158E-01, 0.1176E-01,& - 0.1197E-01, 0.1214E-01, 0.1232E-01, 0.1253E-01,& - 0.1270E-01, 0.1291E-01, 0.1311E-01, 0.1332E-01,& - 0.1350E-01, 0.1370E-01, 0.1391E-01, 0.1414E-01,& - 0.1435E-01, 0.1456E-01, 0.1479E-01, 0.1500E-01,& - 0.1523E-01, 0.1544E-01, 0.1568E-01, 0.1591E-01,& - 0.1615E-01, 0.1638E-01, 0.1662E-01, 0.1685E-01,& - 0.1712E-01, 0.1735E-01, 0.1762E-01, 0.1786E-01,& - 0.1812E-01, 0.1839E-01, 0.1865E-01, 0.1892E-01,& - 0.1918E-01, 0.1945E-01, 0.1974E-01, 0.2000E-01,& - 0.2030E-01, 0.2056E-01, 0.2086E-01, 0.2115E-01,& - 0.2145E-01, 0.2174E-01, 0.2204E-01, 0.2236E-01,& - 0.2266E-01, 0.2298E-01, 0.2327E-01, 0.2360E-01,& - 0.2392E-01, 0.2425E-01, 0.2457E-01, 0.2492E-01,& - 0.2525E-01, 0.2560E-01, 0.2592E-01, 0.2628E-01,& - 0.2663E-01, 0.2698E-01, 0.2734E-01, 0.2772E-01,& - 0.2807E-01, 0.2846E-01, 0.2881E-01, 0.2919E-01,& - 0.2958E-01, 0.2996E-01, 0.3037E-01, 0.3075E-01,& - 0.3117E-01, 0.3155E-01, 0.3196E-01, 0.3237E-01,& - 0.3279E-01, 0.3323E-01, 0.3364E-01, 0.3408E-01,& - 0.3449E-01, 0.3493E-01, 0.3538E-01, 0.3585E-01,& - 0.3629E-01, 0.3673E-01, 0.3720E-01, 0.3767E-01,& - 0.3814E-01, 0.3862E-01, 0.3909E-01, 0.3959E-01,& - 0.4006E-01, 0.4056E-01, 0.4106E-01, 0.4156E-01,& - 0.4209E-01, 0.4259E-01, 0.4312E-01, 0.4365E-01,& - 0.4418E-01, 0.4471E-01, 0.4524E-01, 0.4580E-01,& - 0.4636E-01, 0.4689E-01, 0.4748E-01, 0.4804E-01,& - 0.4860E-01, 0.4919E-01, 0.4978E-01, 0.5037E-01,& - 0.5095E-01, 0.5157E-01, 0.5216E-01, 0.5278E-01,& - 0.5340E-01, 0.5402E-01, 0.5466E-01, 0.5528E-01,& - 0.5593E-01, 0.5658E-01, 0.5726E-01, 0.5790E-01,& - 0.5858E-01, 0.5926E-01, 0.5994E-01, 0.6061E-01,& - 0.6132E-01, 0.6203E-01, 0.6273E-01, 0.6344E-01,& - 0.6415E-01, 0.6488E-01, 0.6562E-01, 0.6636E-01,& - 0.6709E-01, 0.6786E-01, 0.6862E-01, 0.6939E-01,& - 0.7015E-01, 0.7095E-01, 0.7172E-01, 0.7251E-01,& - 0.7333E-01, 0.7413E-01, 0.7495E-01, 0.7578E-01,& - 0.7660E-01, 0.7746E-01, 0.7831E-01, 0.7917E-01,& - 0.8002E-01, 0.8090E-01, 0.8176E-01, 0.8267E-01,& - 0.8355E-01, 0.8447E-01, 0.8535E-01, 0.8629E-01,& - 0.8720E-01, 0.8815E-01, 0.8909E-01, 0.9003E-01,& - 0.9100E-01, 0.9198E-01, 0.9295E-01, 0.9392E-01,& - 0.9492E-01, 0.9592E-01, 0.9692E-01, 0.9795E-01,& - 0.9898E-01, 0.1000E+00, 0.1011E+00, 0.1021E+00,& - 0.1032E+00, 0.1043E+00, 0.1053E+00, 0.1064E+00,& - 0.1075E+00, 0.1086E+00, 0.1098E+00, 0.1109E+00,& - 0.1120E+00, 0.1132E+00, 0.1144E+00, 0.1155E+00,& - 0.1167E+00, 0.1179E+00, 0.1191E+00, 0.1203E+00,& - 0.1215E+00, 0.1227E+00, 0.1240E+00, 0.1252E+00,& - 0.1265E+00, 0.1278E+00, 0.1290E+00, 0.1303E+00,& - 0.1316E+00, 0.1329E+00, 0.1343E+00, 0.1356E+00,& - 0.1370E+00, 0.1383E+00, 0.1397E+00, 0.1411E+00,& - 0.1424E+00, 0.1439E+00, 0.1453E+00, 0.1467E+00,& - 0.1481E+00, 0.1496E+00, 0.1510E+00, 0.1525E+00,& - 0.1540E+00, 0.1555E+00, 0.1570E+00, 0.1585E+00,& - 0.1601E+00, 0.1616E+00, 0.1632E+00, 0.1647E+00,& - 0.1663E+00, 0.1679E+00, 0.1695E+00, 0.1712E+00,& - 0.1728E+00, 0.1745E+00, 0.1761E+00, 0.1778E+00,& - 0.1795E+00, 0.1812E+00, 0.1829E+00, 0.1846E+00,& - 0.1864E+00, 0.1881E+00, 0.1899E+00, 0.1917E+00,& - 0.1935E+00, 0.1953E+00, 0.1971E+00, 0.1990E+00,& - 0.2008E+00, 0.2027E+00, 0.2046E+00, 0.2065E+00,& - 0.2084E+00, 0.2103E+00, 0.2123E+00, 0.2142E+00,& - 0.2162E+00, 0.2182E+00, 0.2202E+00, 0.2223E+00,& - 0.2243E+00, 0.2263E+00, 0.2284E+00, 0.2305E+00,& - 0.2326E+00, 0.2347E+00, 0.2369E+00, 0.2390E+00,& - 0.2412E+00, 0.2434E+00, 0.2456E+00, 0.2478E+00,& - 0.2500E+00, 0.2523E+00, 0.2546E+00, 0.2569E+00,& - 0.2591E+00, 0.2615E+00, 0.2638E+00, 0.2662E+00,& - 0.2685E+00, 0.2710E+00, 0.2734E+00, 0.2758E+00,& - 0.2783E+00, 0.2807E+00, 0.2832E+00, 0.2857E+00,& - 0.2882E+00, 0.2908E+00, 0.2934E+00, 0.2960E+00,& - 0.2986E+00, 0.3012E+00, 0.3038E+00, 0.3065E+00,& - 0.3092E+00, 0.3119E+00, 0.3146E+00, 0.3174E+00,& - 0.3201E+00, 0.3229E+00, 0.3257E+00, 0.3286E+00,& - 0.3314E+00, 0.3343E+00, 0.3372E+00, 0.3401E+00,& - 0.3430E+00, 0.3460E+00, 0.3490E+00, 0.3520E+00,& - 0.3550E+00, 0.3581E+00, 0.3612E+00, 0.3643E+00,& - 0.3674E+00, 0.3705E+00, 0.3737E+00, 0.3769E+00,& - 0.3801E+00, 0.3834E+00, 0.3866E+00, 0.3899E+00,& - 0.3932E+00, 0.3966E+00, 0.3999E+00, 0.4033E+00,& - 0.4067E+00, 0.4102E+00, 0.4136E+00, 0.4171E+00,& - 0.4207E+00, 0.4242E+00, 0.4278E+00, 0.4314E+00,& - 0.4350E+00, 0.4387E+00, 0.4423E+00, 0.4460E+00,& - 0.4498E+00, 0.4535E+00, 0.4573E+00, 0.4612E+00,& - 0.4650E+00, 0.4689E+00, 0.4728E+00, 0.4767E+00,& - 0.4807E+00, 0.4847E+00, 0.4887E+00, 0.4928E+00,& - 0.4968E+00, 0.5009E+00, 0.5051E+00, 0.5093E+00,& - 0.5135E+00, 0.5177E+00, 0.5220E+00, 0.5263E+00,& - 0.5306E+00, 0.5350E+00, 0.5394E+00, 0.5438E+00,& - 0.5483E+00, 0.5528E+00, 0.5573E+00, 0.5619E+00,& - 0.5665E+00, 0.5711E+00, 0.5758E+00, 0.5805E+00,& - 0.5853E+00, 0.5900E+00, 0.5949E+00, 0.5997E+00,& - 0.6046E+00, 0.6095E+00, 0.6145E+00, 0.6195E+00,& - 0.6245E+00, 0.6296E+00, 0.6347E+00, 0.6398E+00,& - 0.6450E+00, 0.6502E+00, 0.6555E+00, 0.6608E+00,& - 0.6661E+00, 0.6715E+00, 0.6770E+00, 0.6824E+00,& - 0.6880E+00, 0.6935E+00, 0.6991E+00, 0.7048E+00,& - 0.7104E+00, 0.7161E+00, 0.7219E+00, 0.7277E+00,& - 0.7336E+00, 0.7395E+00, 0.7454E+00, 0.7514E+00,& - 0.7574E+00, 0.7635E+00, 0.7697E+00, 0.7758E+00,& - 0.7821E+00, 0.7883E+00, 0.7946E+00, 0.8010E+00,& - 0.8074E+00, 0.8139E+00, 0.8204E+00, 0.8270E+00,& - 0.8336E+00, 0.8402E+00, 0.8470E+00, 0.8537E+00,& - 0.8606E+00, 0.8674E+00, 0.8744E+00, 0.8813E+00,& - 0.8884E+00, 0.8955E+00, 0.9026E+00, 0.9099E+00,& - 0.9171E+00, 0.9244E+00, 0.9318E+00, 0.9392E+00,& - 0.9467E+00, 0.9543E+00, 0.9619E+00, 0.9696E+00,& - 0.9773E+00, 0.9851E+00, 0.9930E+00, 0.1001E+01,& - 0.1009E+01, 0.1017E+01, 0.1025E+01, 0.1033E+01,& - 0.1041E+01, 0.1050E+01, 0.1058E+01, 0.1067E+01,& - 0.1075E+01, 0.1084E+01, 0.1092E+01, 0.1101E+01,& - 0.1110E+01, 0.1119E+01, 0.1128E+01, 0.1137E+01,& - 0.1146E+01, 0.1155E+01, 0.1164E+01, 0.1173E+01,& - 0.1183E+01, 0.1192E+01, 0.1202E+01, 0.1211E+01,& - 0.1221E+01, 0.1231E+01, 0.1241E+01, 0.1251E+01,& - 0.1261E+01, 0.1271E+01, 0.1281E+01, 0.1291E+01,& - 0.1302E+01, 0.1312E+01, 0.1323E+01, 0.1333E+01,& - 0.1344E+01, 0.1355E+01, 0.1366E+01, 0.1377E+01,& - 0.1388E+01, 0.1399E+01, 0.1410E+01, 0.1422E+01,& - 0.1433E+01, 0.1445E+01, 0.1457E+01, 0.1468E+01,& - 0.1480E+01, 0.1492E+01, 0.1504E+01, 0.1517E+01,& - 0.1529E+01, 0.1542E+01, 0.1554E+01, 0.1567E+01,& - 0.1580E+01, 0.1592E+01, 0.1605E+01, 0.1619E+01,& - 0.1632E+01, 0.1645E+01, 0.1659E+01, 0.1672E+01,& - 0.1686E+01, 0.1700E+01, 0.1714E+01, 0.1728E+01,& - 0.1743E+01, 0.1757E+01, 0.1771E+01, 0.1786E+01,& - 0.1801E+01, 0.1816E+01, 0.1831E+01, 0.1846E+01,& - 0.1862E+01, 0.1877E+01, 0.1893E+01, 0.1909E+01,& - 0.1925E+01, 0.1941E+01, 0.1958E+01, 0.1974E+01,& - 0.1991E+01, 0.2008E+01, 0.2025E+01, 0.2042E+01,& - 0.2059E+01, 0.2077E+01, 0.2094E+01, 0.2112E+01,& - 0.2130E+01, 0.2149E+01, 0.2167E+01, 0.2186E+01,& - 0.2205E+01, 0.2224E+01, 0.2243E+01, 0.2263E+01,& - 0.2282E+01, 0.2302E+01, 0.2322E+01, 0.2343E+01,& - 0.2363E+01, 0.2384E+01, 0.2405E+01, 0.2426E+01,& - 0.2448E+01, 0.2470E+01, 0.2492E+01, 0.2514E+01,& - 0.2537E+01, 0.2559E+01, 0.2582E+01, 0.2606E+01,& - 0.2629E+01, 0.2653E+01, 0.2677E+01, 0.2702E+01,& - 0.2727E+01, 0.2752E+01, 0.2777E+01, 0.2803E+01,& - 0.2829E+01, 0.2855E+01, 0.2882E+01, 0.2909E+01,& - 0.2936E+01, 0.2964E+01, 0.2992E+01, 0.3020E+01,& - 0.3049E+01, 0.3078E+01, 0.3108E+01, 0.3138E+01,& - 0.3168E+01, 0.3199E+01, 0.3230E+01, 0.3262E+01,& - 0.3294E+01, 0.3327E+01, 0.3360E+01, 0.3394E+01,& - 0.3428E+01, 0.3462E+01, 0.3497E+01, 0.3533E+01,& - 0.3569E+01, 0.3606E+01, 0.3643E+01, 0.3681E+01,& - 0.3719E+01, 0.3758E+01, 0.3798E+01, 0.3838E+01,& - 0.3880E+01, 0.3921E+01, 0.3964E+01, 0.4007E+01,& - 0.4051E+01, 0.4095E+01, 0.4141E+01, 0.4187E+01,& - 0.4234E+01, 0.4282E+01, 0.4331E+01, 0.4381E+01,& - 0.4432E+01, 0.4483E+01, 0.4536E+01, 0.4590E+01,& - 0.4645E+01, 0.4701E+01, 0.4758E+01, 0.4816E+01,& - 0.4876E+01, 0.4937E+01, 0.4999E+01, 0.5063E+01,& - 0.5128E+01, 0.5195E+01, 0.5263E+01, 0.5333E+01,& - 0.5405E+01, 0.5479E+01, 0.5554E+01, 0.5631E+01,& - 0.5711E+01, 0.5793E+01, 0.5876E+01, 0.5963E+01,& - 0.6051E+01, 0.6143E+01, 0.6237E+01, 0.6334E+01,& - 0.6435E+01, 0.6538E+01, 0.6645E+01, 0.6756E+01,& - 0.6871E+01, 0.6990E+01, 0.7114E+01, 0.7243E+01,& - 0.7376E+01, 0.7516E+01, 0.7661E+01, 0.7814E+01,& - 0.7973E+01, 0.8140E+01, 0.8316E+01, 0.8501E+01,& - 0.8697E+01, 0.8904E+01, 0.9124E+01, 0.9359E+01,& - 0.9610E+01, 0.9879E+01, 0.1017E+02, 0.1049E+02,& - 0.1084E+02, 0.1122E+02, 0.1164E+02, 0.1212E+02,& - 0.1267E+02, 0.1331E+02, 0.1406E+02, 0.1500E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 89) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.3999E-04, 0.3999E-04, 0.3999E-04,& - 0.3999E-04, 0.3999E-04, 0.3999E-04, 0.3999E-04,& - 0.3999E-04, 0.3999E-04, 0.3999E-04, 0.3999E-04,& - 0.3999E-04, 0.3999E-04, 0.6999E-04, 0.6999E-04,& - 0.6999E-04, 0.6999E-04, 0.6999E-04, 0.6999E-04,& - 0.6999E-04, 0.6999E-04, 0.6999E-04, 0.9998E-04,& - 0.9998E-04, 0.9998E-04, 0.9998E-04, 0.9998E-04,& - 0.9998E-04, 0.9998E-04, 0.1300E-03, 0.1300E-03,& - 0.1300E-03, 0.1300E-03, 0.1300E-03, 0.1300E-03,& - 0.1600E-03, 0.1600E-03, 0.1600E-03, 0.1600E-03,& - 0.1600E-03, 0.1900E-03, 0.1900E-03, 0.1900E-03,& - 0.1900E-03, 0.1900E-03, 0.2200E-03, 0.2200E-03,& - 0.2200E-03, 0.2200E-03, 0.2499E-03, 0.2499E-03,& - 0.2499E-03, 0.2799E-03, 0.2799E-03, 0.2799E-03,& - 0.3099E-03, 0.3099E-03, 0.3099E-03, 0.3399E-03,& - 0.3399E-03, 0.3399E-03, 0.3699E-03, 0.3699E-03,& - 0.3699E-03, 0.3999E-03, 0.3999E-03, 0.4299E-03,& - 0.4299E-03, 0.4299E-03, 0.4599E-03, 0.4599E-03,& - 0.4899E-03, 0.4899E-03, 0.5199E-03, 0.5199E-03,& - 0.5499E-03, 0.5499E-03, 0.5799E-03, 0.5799E-03,& - 0.6099E-03, 0.6099E-03, 0.6399E-03, 0.6698E-03,& - 0.6698E-03, 0.6998E-03, 0.6998E-03, 0.7298E-03,& - 0.7598E-03, 0.7598E-03, 0.7898E-03, 0.8198E-03,& - 0.8498E-03, 0.8498E-03, 0.8798E-03, 0.9098E-03,& - 0.9398E-03, 0.9398E-03, 0.9698E-03, 0.9998E-03,& - 0.1030E-02, 0.1060E-02, 0.1090E-02, 0.1090E-02,& - 0.1120E-02, 0.1150E-02, 0.1180E-02, 0.1210E-02,& - 0.1240E-02, 0.1270E-02, 0.1300E-02, 0.1330E-02,& - 0.1360E-02, 0.1390E-02, 0.1420E-02, 0.1480E-02,& - 0.1510E-02, 0.1540E-02, 0.1570E-02, 0.1600E-02,& - 0.1630E-02, 0.1690E-02, 0.1720E-02, 0.1750E-02,& - 0.1810E-02, 0.1840E-02, 0.1870E-02, 0.1930E-02,& - 0.1960E-02, 0.2020E-02, 0.2050E-02, 0.2110E-02,& - 0.2140E-02, 0.2199E-02, 0.2229E-02, 0.2289E-02,& - 0.2319E-02, 0.2379E-02, 0.2439E-02, 0.2499E-02,& - 0.2529E-02, 0.2589E-02, 0.2649E-02, 0.2709E-02,& - 0.2769E-02, 0.2799E-02, 0.2859E-02, 0.2919E-02,& - 0.2979E-02, 0.3039E-02, 0.3099E-02, 0.3159E-02,& - 0.3249E-02, 0.3309E-02, 0.3369E-02, 0.3429E-02,& - 0.3489E-02, 0.3579E-02, 0.3639E-02, 0.3699E-02,& - 0.3789E-02, 0.3849E-02, 0.3939E-02, 0.3999E-02,& - 0.4089E-02, 0.4149E-02, 0.4239E-02, 0.4329E-02,& - 0.4419E-02, 0.4479E-02, 0.4569E-02, 0.4659E-02,& - 0.4749E-02, 0.4839E-02, 0.4929E-02, 0.5019E-02,& - 0.5109E-02, 0.5199E-02, 0.5289E-02, 0.5379E-02,& - 0.5499E-02, 0.5589E-02, 0.5679E-02, 0.5799E-02,& - 0.5889E-02, 0.6009E-02, 0.6099E-02, 0.6219E-02,& - 0.6309E-02, 0.6429E-02, 0.6548E-02, 0.6668E-02,& - 0.6788E-02, 0.6908E-02, 0.7028E-02, 0.7148E-02,& - 0.7268E-02, 0.7388E-02, 0.7508E-02, 0.7628E-02,& - 0.7778E-02, 0.7898E-02, 0.8018E-02, 0.8168E-02,& - 0.8288E-02, 0.8438E-02, 0.8588E-02, 0.8708E-02,& - 0.8858E-02, 0.9008E-02, 0.9158E-02, 0.9308E-02,& - 0.9458E-02, 0.9608E-02, 0.9788E-02, 0.9938E-02,& - 0.1009E-01, 0.1027E-01, 0.1042E-01, 0.1060E-01,& - 0.1075E-01, 0.1093E-01, 0.1111E-01, 0.1129E-01,& - 0.1144E-01, 0.1162E-01, 0.1183E-01, 0.1201E-01,& - 0.1219E-01, 0.1237E-01, 0.1258E-01, 0.1276E-01,& - 0.1297E-01, 0.1315E-01, 0.1336E-01, 0.1357E-01,& - 0.1378E-01, 0.1399E-01, 0.1420E-01, 0.1441E-01,& - 0.1462E-01, 0.1483E-01, 0.1507E-01, 0.1528E-01,& - 0.1552E-01, 0.1573E-01, 0.1597E-01, 0.1621E-01,& - 0.1645E-01, 0.1669E-01, 0.1693E-01, 0.1717E-01,& - 0.1744E-01, 0.1768E-01, 0.1795E-01, 0.1819E-01,& - 0.1846E-01, 0.1873E-01, 0.1900E-01, 0.1927E-01,& - 0.1954E-01, 0.1981E-01, 0.2011E-01, 0.2038E-01,& - 0.2068E-01, 0.2095E-01, 0.2125E-01, 0.2155E-01,& - 0.2184E-01, 0.2214E-01, 0.2244E-01, 0.2277E-01,& - 0.2307E-01, 0.2340E-01, 0.2373E-01, 0.2403E-01,& - 0.2436E-01, 0.2469E-01, 0.2505E-01, 0.2538E-01,& - 0.2571E-01, 0.2607E-01, 0.2643E-01, 0.2679E-01,& - 0.2715E-01, 0.2751E-01, 0.2787E-01, 0.2823E-01,& - 0.2862E-01, 0.2898E-01, 0.2937E-01, 0.2976E-01,& - 0.3015E-01, 0.3054E-01, 0.3093E-01, 0.3135E-01,& - 0.3177E-01, 0.3216E-01, 0.3258E-01, 0.3300E-01,& - 0.3342E-01, 0.3387E-01, 0.3429E-01, 0.3474E-01,& - 0.3519E-01, 0.3564E-01, 0.3609E-01, 0.3654E-01,& - 0.3699E-01, 0.3747E-01, 0.3795E-01, 0.3843E-01,& - 0.3891E-01, 0.3939E-01, 0.3987E-01, 0.4038E-01,& - 0.4086E-01, 0.4137E-01, 0.4188E-01, 0.4242E-01,& - 0.4293E-01, 0.4347E-01, 0.4398E-01, 0.4452E-01,& - 0.4506E-01, 0.4563E-01, 0.4617E-01, 0.4674E-01,& - 0.4731E-01, 0.4788E-01, 0.4845E-01, 0.4902E-01,& - 0.4962E-01, 0.5022E-01, 0.5082E-01, 0.5142E-01,& - 0.5202E-01, 0.5265E-01, 0.5328E-01, 0.5391E-01,& - 0.5454E-01, 0.5517E-01, 0.5583E-01, 0.5649E-01,& - 0.5715E-01, 0.5781E-01, 0.5847E-01, 0.5916E-01,& - 0.5985E-01, 0.6054E-01, 0.6123E-01, 0.6195E-01,& - 0.6264E-01, 0.6336E-01, 0.6408E-01, 0.6482E-01,& - 0.6557E-01, 0.6629E-01, 0.6707E-01, 0.6782E-01,& - 0.6857E-01, 0.6935E-01, 0.7013E-01, 0.7094E-01,& - 0.7172E-01, 0.7253E-01, 0.7334E-01, 0.7415E-01,& - 0.7499E-01, 0.7583E-01, 0.7667E-01, 0.7751E-01,& - 0.7835E-01, 0.7922E-01, 0.8009E-01, 0.8099E-01,& - 0.8186E-01, 0.8276E-01, 0.8366E-01, 0.8459E-01,& - 0.8549E-01, 0.8642E-01, 0.8738E-01, 0.8831E-01,& - 0.8927E-01, 0.9023E-01, 0.9119E-01, 0.9218E-01,& - 0.9317E-01, 0.9416E-01, 0.9518E-01, 0.9620E-01,& - 0.9722E-01, 0.9824E-01, 0.9929E-01, 0.1003E+00,& - 0.1014E+00, 0.1025E+00, 0.1035E+00, 0.1046E+00,& - 0.1057E+00, 0.1068E+00, 0.1080E+00, 0.1091E+00,& - 0.1102E+00, 0.1114E+00, 0.1125E+00, 0.1137E+00,& - 0.1149E+00, 0.1161E+00, 0.1173E+00, 0.1185E+00,& - 0.1197E+00, 0.1209E+00, 0.1221E+00, 0.1234E+00,& - 0.1246E+00, 0.1259E+00, 0.1272E+00, 0.1285E+00,& - 0.1298E+00, 0.1311E+00, 0.1324E+00, 0.1337E+00,& - 0.1351E+00, 0.1364E+00, 0.1378E+00, 0.1392E+00,& - 0.1406E+00, 0.1420E+00, 0.1434E+00, 0.1448E+00,& - 0.1463E+00, 0.1478E+00, 0.1492E+00, 0.1507E+00,& - 0.1522E+00, 0.1537E+00, 0.1552E+00, 0.1567E+00,& - 0.1583E+00, 0.1598E+00, 0.1614E+00, 0.1629E+00,& - 0.1645E+00, 0.1661E+00, 0.1677E+00, 0.1694E+00,& - 0.1710E+00, 0.1727E+00, 0.1743E+00, 0.1760E+00,& - 0.1777E+00, 0.1794E+00, 0.1811E+00, 0.1829E+00,& - 0.1846E+00, 0.1864E+00, 0.1882E+00, 0.1900E+00,& - 0.1918E+00, 0.1936E+00, 0.1954E+00, 0.1973E+00,& - 0.1992E+00, 0.2011E+00, 0.2029E+00, 0.2049E+00,& - 0.2068E+00, 0.2087E+00, 0.2107E+00, 0.2127E+00,& - 0.2147E+00, 0.2167E+00, 0.2187E+00, 0.2207E+00,& - 0.2228E+00, 0.2249E+00, 0.2269E+00, 0.2290E+00,& - 0.2312E+00, 0.2333E+00, 0.2355E+00, 0.2376E+00,& - 0.2398E+00, 0.2420E+00, 0.2442E+00, 0.2465E+00,& - 0.2487E+00, 0.2510E+00, 0.2533E+00, 0.2556E+00,& - 0.2580E+00, 0.2603E+00, 0.2627E+00, 0.2651E+00,& - 0.2675E+00, 0.2699E+00, 0.2723E+00, 0.2748E+00,& - 0.2773E+00, 0.2798E+00, 0.2823E+00, 0.2848E+00,& - 0.2874E+00, 0.2900E+00, 0.2925E+00, 0.2952E+00,& - 0.2978E+00, 0.3005E+00, 0.3031E+00, 0.3058E+00,& - 0.3085E+00, 0.3113E+00, 0.3140E+00, 0.3168E+00,& - 0.3196E+00, 0.3225E+00, 0.3253E+00, 0.3282E+00,& - 0.3311E+00, 0.3340E+00, 0.3369E+00, 0.3399E+00,& - 0.3429E+00, 0.3459E+00, 0.3489E+00, 0.3519E+00,& - 0.3550E+00, 0.3581E+00, 0.3612E+00, 0.3644E+00,& - 0.3676E+00, 0.3708E+00, 0.3740E+00, 0.3772E+00,& - 0.3805E+00, 0.3838E+00, 0.3871E+00, 0.3904E+00,& - 0.3938E+00, 0.3972E+00, 0.4006E+00, 0.4041E+00,& - 0.4075E+00, 0.4110E+00, 0.4146E+00, 0.4181E+00,& - 0.4217E+00, 0.4253E+00, 0.4289E+00, 0.4326E+00,& - 0.4363E+00, 0.4400E+00, 0.4438E+00, 0.4475E+00,& - 0.4513E+00, 0.4552E+00, 0.4590E+00, 0.4629E+00,& - 0.4669E+00, 0.4708E+00, 0.4748E+00, 0.4788E+00,& - 0.4828E+00, 0.4869E+00, 0.4910E+00, 0.4951E+00,& - 0.4993E+00, 0.5035E+00, 0.5077E+00, 0.5120E+00,& - 0.5163E+00, 0.5206E+00, 0.5250E+00, 0.5294E+00,& - 0.5338E+00, 0.5383E+00, 0.5427E+00, 0.5473E+00,& - 0.5519E+00, 0.5564E+00, 0.5611E+00, 0.5657E+00,& - 0.5704E+00, 0.5752E+00, 0.5800E+00, 0.5848E+00,& - 0.5896E+00, 0.5945E+00, 0.5994E+00, 0.6044E+00,& - 0.6094E+00, 0.6144E+00, 0.6195E+00, 0.6246E+00,& - 0.6298E+00, 0.6350E+00, 0.6402E+00, 0.6455E+00,& - 0.6508E+00, 0.6561E+00, 0.6615E+00, 0.6670E+00,& - 0.6725E+00, 0.6780E+00, 0.6836E+00, 0.6892E+00,& - 0.6948E+00, 0.7005E+00, 0.7062E+00, 0.7120E+00,& - 0.7179E+00, 0.7237E+00, 0.7297E+00, 0.7356E+00,& - 0.7416E+00, 0.7477E+00, 0.7538E+00, 0.7599E+00,& - 0.7661E+00, 0.7724E+00, 0.7787E+00, 0.7850E+00,& - 0.7914E+00, 0.7979E+00, 0.8044E+00, 0.8109E+00,& - 0.8175E+00, 0.8242E+00, 0.8308E+00, 0.8376E+00,& - 0.8444E+00, 0.8513E+00, 0.8582E+00, 0.8652E+00,& - 0.8722E+00, 0.8793E+00, 0.8864E+00, 0.8936E+00,& - 0.9009E+00, 0.9082E+00, 0.9155E+00, 0.9230E+00,& - 0.9305E+00, 0.9380E+00, 0.9456E+00, 0.9533E+00,& - 0.9610E+00, 0.9688E+00, 0.9766E+00, 0.9846E+00,& - 0.9925E+00, 0.1001E+01, 0.1009E+01, 0.1017E+01,& - 0.1025E+01, 0.1033E+01, 0.1042E+01, 0.1050E+01,& - 0.1059E+01, 0.1067E+01, 0.1076E+01, 0.1085E+01,& - 0.1094E+01, 0.1102E+01, 0.1111E+01, 0.1120E+01,& - 0.1129E+01, 0.1139E+01, 0.1148E+01, 0.1157E+01,& - 0.1167E+01, 0.1176E+01, 0.1186E+01, 0.1195E+01,& - 0.1205E+01, 0.1215E+01, 0.1225E+01, 0.1235E+01,& - 0.1245E+01, 0.1255E+01, 0.1265E+01, 0.1275E+01,& - 0.1286E+01, 0.1296E+01, 0.1307E+01, 0.1318E+01,& - 0.1328E+01, 0.1339E+01, 0.1350E+01, 0.1361E+01,& - 0.1372E+01, 0.1384E+01, 0.1395E+01, 0.1406E+01,& - 0.1418E+01, 0.1430E+01, 0.1441E+01, 0.1453E+01,& - 0.1465E+01, 0.1477E+01, 0.1489E+01, 0.1502E+01,& - 0.1514E+01, 0.1527E+01, 0.1539E+01, 0.1552E+01,& - 0.1565E+01, 0.1578E+01, 0.1591E+01, 0.1604E+01,& - 0.1617E+01, 0.1631E+01, 0.1645E+01, 0.1658E+01,& - 0.1672E+01, 0.1686E+01, 0.1700E+01, 0.1714E+01,& - 0.1729E+01, 0.1743E+01, 0.1758E+01, 0.1773E+01,& - 0.1788E+01, 0.1803E+01, 0.1818E+01, 0.1833E+01,& - 0.1849E+01, 0.1865E+01, 0.1880E+01, 0.1896E+01,& - 0.1913E+01, 0.1929E+01, 0.1945E+01, 0.1962E+01,& - 0.1979E+01, 0.1996E+01, 0.2013E+01, 0.2030E+01,& - 0.2048E+01, 0.2066E+01, 0.2083E+01, 0.2101E+01,& - 0.2120E+01, 0.2138E+01, 0.2157E+01, 0.2176E+01,& - 0.2195E+01, 0.2214E+01, 0.2233E+01, 0.2253E+01,& - 0.2273E+01, 0.2293E+01, 0.2313E+01, 0.2334E+01,& - 0.2355E+01, 0.2376E+01, 0.2397E+01, 0.2418E+01,& - 0.2440E+01, 0.2462E+01, 0.2484E+01, 0.2507E+01,& - 0.2530E+01, 0.2553E+01, 0.2576E+01, 0.2599E+01,& - 0.2623E+01, 0.2647E+01, 0.2672E+01, 0.2697E+01,& - 0.2722E+01, 0.2747E+01, 0.2773E+01, 0.2799E+01,& - 0.2825E+01, 0.2852E+01, 0.2878E+01, 0.2906E+01,& - 0.2933E+01, 0.2961E+01, 0.2990E+01, 0.3019E+01,& - 0.3048E+01, 0.3077E+01, 0.3107E+01, 0.3138E+01,& - 0.3168E+01, 0.3200E+01, 0.3231E+01, 0.3263E+01,& - 0.3296E+01, 0.3329E+01, 0.3363E+01, 0.3396E+01,& - 0.3431E+01, 0.3466E+01, 0.3502E+01, 0.3538E+01,& - 0.3574E+01, 0.3611E+01, 0.3649E+01, 0.3688E+01,& - 0.3726E+01, 0.3766E+01, 0.3806E+01, 0.3847E+01,& - 0.3889E+01, 0.3931E+01, 0.3974E+01, 0.4018E+01,& - 0.4062E+01, 0.4108E+01, 0.4154E+01, 0.4201E+01,& - 0.4248E+01, 0.4297E+01, 0.4347E+01, 0.4397E+01,& - 0.4449E+01, 0.4501E+01, 0.4555E+01, 0.4609E+01,& - 0.4665E+01, 0.4722E+01, 0.4780E+01, 0.4839E+01,& - 0.4900E+01, 0.4962E+01, 0.5025E+01, 0.5090E+01,& - 0.5156E+01, 0.5224E+01, 0.5293E+01, 0.5364E+01,& - 0.5437E+01, 0.5512E+01, 0.5588E+01, 0.5667E+01,& - 0.5748E+01, 0.5831E+01, 0.5916E+01, 0.6004E+01,& - 0.6094E+01, 0.6187E+01, 0.6282E+01, 0.6381E+01,& - 0.6483E+01, 0.6589E+01, 0.6698E+01, 0.6810E+01,& - 0.6927E+01, 0.7048E+01, 0.7174E+01, 0.7305E+01,& - 0.7441E+01, 0.7583E+01, 0.7731E+01, 0.7886E+01,& - 0.8048E+01, 0.8218E+01, 0.8397E+01, 0.8585E+01,& - 0.8785E+01, 0.8996E+01, 0.9220E+01, 0.9459E+01,& - 0.9715E+01, 0.9990E+01, 0.1029E+02, 0.1061E+02,& - 0.1096E+02, 0.1135E+02, 0.1179E+02, 0.1227E+02,& - 0.1283E+02, 0.1348E+02, 0.1425E+02, 0.1521E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 90) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.4054E-04,& - 0.4054E-04, 0.4054E-04, 0.4054E-04, 0.4054E-04,& - 0.4054E-04, 0.4054E-04, 0.4054E-04, 0.4054E-04,& - 0.4054E-04, 0.4054E-04, 0.4054E-04, 0.4054E-04,& - 0.7109E-04, 0.7109E-04, 0.7109E-04, 0.7109E-04,& - 0.7109E-04, 0.7109E-04, 0.7109E-04, 0.7109E-04,& - 0.7109E-04, 0.1016E-03, 0.1016E-03, 0.1016E-03,& - 0.1016E-03, 0.1016E-03, 0.1016E-03, 0.1016E-03,& - 0.1322E-03, 0.1322E-03, 0.1322E-03, 0.1322E-03,& - 0.1322E-03, 0.1322E-03, 0.1627E-03, 0.1627E-03,& - 0.1627E-03, 0.1627E-03, 0.1627E-03, 0.1933E-03,& - 0.1933E-03, 0.1933E-03, 0.1933E-03, 0.1933E-03,& - 0.2238E-03, 0.2238E-03, 0.2238E-03, 0.2238E-03,& - 0.2544E-03, 0.2544E-03, 0.2544E-03, 0.2544E-03,& - 0.2849E-03, 0.2849E-03, 0.2849E-03, 0.3154E-03,& - 0.3154E-03, 0.3154E-03, 0.3460E-03, 0.3460E-03,& - 0.3460E-03, 0.3765E-03, 0.3765E-03, 0.3765E-03,& - 0.4071E-03, 0.4071E-03, 0.4376E-03, 0.4376E-03,& - 0.4682E-03, 0.4682E-03, 0.4682E-03, 0.4987E-03,& - 0.4987E-03, 0.5293E-03, 0.5293E-03, 0.5598E-03,& - 0.5598E-03, 0.5903E-03, 0.5903E-03, 0.6209E-03,& - 0.6209E-03, 0.6514E-03, 0.6820E-03, 0.6820E-03,& - 0.7125E-03, 0.7125E-03, 0.7431E-03, 0.7736E-03,& - 0.7736E-03, 0.8042E-03, 0.8347E-03, 0.8347E-03,& - 0.8652E-03, 0.8958E-03, 0.9263E-03, 0.9263E-03,& - 0.9569E-03, 0.9874E-03, 0.1018E-02, 0.1049E-02,& - 0.1079E-02, 0.1079E-02, 0.1110E-02, 0.1140E-02,& - 0.1171E-02, 0.1201E-02, 0.1232E-02, 0.1262E-02,& - 0.1293E-02, 0.1323E-02, 0.1354E-02, 0.1384E-02,& - 0.1415E-02, 0.1446E-02, 0.1476E-02, 0.1507E-02,& - 0.1537E-02, 0.1598E-02, 0.1629E-02, 0.1659E-02,& - 0.1690E-02, 0.1751E-02, 0.1782E-02, 0.1812E-02,& - 0.1843E-02, 0.1904E-02, 0.1934E-02, 0.1995E-02,& - 0.2026E-02, 0.2056E-02, 0.2118E-02, 0.2148E-02,& - 0.2209E-02, 0.2240E-02, 0.2301E-02, 0.2362E-02,& - 0.2392E-02, 0.2454E-02, 0.2515E-02, 0.2545E-02,& - 0.2606E-02, 0.2667E-02, 0.2728E-02, 0.2759E-02,& - 0.2820E-02, 0.2881E-02, 0.2942E-02, 0.3003E-02,& - 0.3064E-02, 0.3126E-02, 0.3187E-02, 0.3248E-02,& - 0.3309E-02, 0.3400E-02, 0.3462E-02, 0.3523E-02,& - 0.3584E-02, 0.3675E-02, 0.3736E-02, 0.3798E-02,& - 0.3889E-02, 0.3950E-02, 0.4042E-02, 0.4103E-02,& - 0.4195E-02, 0.4256E-02, 0.4347E-02, 0.4439E-02,& - 0.4500E-02, 0.4592E-02, 0.4683E-02, 0.4775E-02,& - 0.4867E-02, 0.4958E-02, 0.5050E-02, 0.5141E-02,& - 0.5233E-02, 0.5325E-02, 0.5416E-02, 0.5508E-02,& - 0.5600E-02, 0.5722E-02, 0.5813E-02, 0.5905E-02,& - 0.6027E-02, 0.6119E-02, 0.6241E-02, 0.6363E-02,& - 0.6455E-02, 0.6577E-02, 0.6699E-02, 0.6791E-02,& - 0.6913E-02, 0.7035E-02, 0.7157E-02, 0.7280E-02,& - 0.7402E-02, 0.7524E-02, 0.7677E-02, 0.7799E-02,& - 0.7921E-02, 0.8074E-02, 0.8196E-02, 0.8349E-02,& - 0.8471E-02, 0.8624E-02, 0.8746E-02, 0.8898E-02,& - 0.9051E-02, 0.9204E-02, 0.9357E-02, 0.9509E-02,& - 0.9662E-02, 0.9815E-02, 0.9967E-02, 0.1012E-01,& - 0.1030E-01, 0.1046E-01, 0.1064E-01, 0.1079E-01,& - 0.1098E-01, 0.1116E-01, 0.1131E-01, 0.1149E-01,& - 0.1168E-01, 0.1186E-01, 0.1204E-01, 0.1223E-01,& - 0.1244E-01, 0.1262E-01, 0.1281E-01, 0.1302E-01,& - 0.1321E-01, 0.1342E-01, 0.1363E-01, 0.1382E-01,& - 0.1403E-01, 0.1424E-01, 0.1446E-01, 0.1467E-01,& - 0.1492E-01, 0.1513E-01, 0.1534E-01, 0.1559E-01,& - 0.1580E-01, 0.1605E-01, 0.1629E-01, 0.1653E-01,& - 0.1678E-01, 0.1702E-01, 0.1727E-01, 0.1751E-01,& - 0.1779E-01, 0.1803E-01, 0.1831E-01, 0.1855E-01,& - 0.1883E-01, 0.1910E-01, 0.1938E-01, 0.1965E-01,& - 0.1992E-01, 0.2020E-01, 0.2051E-01, 0.2078E-01,& - 0.2109E-01, 0.2136E-01, 0.2167E-01, 0.2197E-01,& - 0.2228E-01, 0.2258E-01, 0.2292E-01, 0.2322E-01,& - 0.2356E-01, 0.2387E-01, 0.2420E-01, 0.2454E-01,& - 0.2487E-01, 0.2521E-01, 0.2555E-01, 0.2588E-01,& - 0.2625E-01, 0.2661E-01, 0.2695E-01, 0.2732E-01,& - 0.2768E-01, 0.2805E-01, 0.2845E-01, 0.2881E-01,& - 0.2921E-01, 0.2958E-01, 0.2997E-01, 0.3037E-01,& - 0.3077E-01, 0.3117E-01, 0.3159E-01, 0.3199E-01,& - 0.3242E-01, 0.3285E-01, 0.3327E-01, 0.3370E-01,& - 0.3413E-01, 0.3456E-01, 0.3501E-01, 0.3547E-01,& - 0.3590E-01, 0.3636E-01, 0.3685E-01, 0.3730E-01,& - 0.3776E-01, 0.3825E-01, 0.3874E-01, 0.3923E-01,& - 0.3972E-01, 0.4021E-01, 0.4073E-01, 0.4124E-01,& - 0.4173E-01, 0.4225E-01, 0.4280E-01, 0.4332E-01,& - 0.4384E-01, 0.4439E-01, 0.4494E-01, 0.4549E-01,& - 0.4604E-01, 0.4662E-01, 0.4717E-01, 0.4775E-01,& - 0.4833E-01, 0.4891E-01, 0.4952E-01, 0.5010E-01,& - 0.5071E-01, 0.5132E-01, 0.5194E-01, 0.5255E-01,& - 0.5319E-01, 0.5383E-01, 0.5444E-01, 0.5511E-01,& - 0.5575E-01, 0.5643E-01, 0.5707E-01, 0.5774E-01,& - 0.5841E-01, 0.5911E-01, 0.5982E-01, 0.6049E-01,& - 0.6119E-01, 0.6192E-01, 0.6263E-01, 0.6336E-01,& - 0.6409E-01, 0.6483E-01, 0.6559E-01, 0.6632E-01,& - 0.6709E-01, 0.6785E-01, 0.6864E-01, 0.6941E-01,& - 0.7020E-01, 0.7100E-01, 0.7179E-01, 0.7261E-01,& - 0.7344E-01, 0.7426E-01, 0.7509E-01, 0.7594E-01,& - 0.7680E-01, 0.7765E-01, 0.7851E-01, 0.7939E-01,& - 0.8025E-01, 0.8117E-01, 0.8205E-01, 0.8297E-01,& - 0.8388E-01, 0.8480E-01, 0.8572E-01, 0.8666E-01,& - 0.8761E-01, 0.8859E-01, 0.8954E-01, 0.9051E-01,& - 0.9149E-01, 0.9250E-01, 0.9348E-01, 0.9451E-01,& - 0.9552E-01, 0.9656E-01, 0.9760E-01, 0.9864E-01,& - 0.9968E-01, 0.1007E+00, 0.1018E+00, 0.1029E+00,& - 0.1040E+00, 0.1051E+00, 0.1062E+00, 0.1073E+00,& - 0.1085E+00, 0.1096E+00, 0.1108E+00, 0.1120E+00,& - 0.1131E+00, 0.1143E+00, 0.1155E+00, 0.1167E+00,& - 0.1179E+00, 0.1191E+00, 0.1204E+00, 0.1216E+00,& - 0.1229E+00, 0.1241E+00, 0.1254E+00, 0.1267E+00,& - 0.1280E+00, 0.1293E+00, 0.1307E+00, 0.1320E+00,& - 0.1333E+00, 0.1347E+00, 0.1361E+00, 0.1375E+00,& - 0.1389E+00, 0.1403E+00, 0.1417E+00, 0.1431E+00,& - 0.1445E+00, 0.1460E+00, 0.1475E+00, 0.1489E+00,& - 0.1504E+00, 0.1519E+00, 0.1535E+00, 0.1550E+00,& - 0.1565E+00, 0.1581E+00, 0.1597E+00, 0.1612E+00,& - 0.1628E+00, 0.1644E+00, 0.1660E+00, 0.1677E+00,& - 0.1693E+00, 0.1710E+00, 0.1727E+00, 0.1744E+00,& - 0.1761E+00, 0.1778E+00, 0.1795E+00, 0.1813E+00,& - 0.1830E+00, 0.1848E+00, 0.1866E+00, 0.1884E+00,& - 0.1902E+00, 0.1920E+00, 0.1939E+00, 0.1958E+00,& - 0.1976E+00, 0.1995E+00, 0.2015E+00, 0.2034E+00,& - 0.2053E+00, 0.2073E+00, 0.2092E+00, 0.2112E+00,& - 0.2132E+00, 0.2153E+00, 0.2173E+00, 0.2193E+00,& - 0.2214E+00, 0.2235E+00, 0.2256E+00, 0.2277E+00,& - 0.2299E+00, 0.2320E+00, 0.2342E+00, 0.2364E+00,& - 0.2386E+00, 0.2408E+00, 0.2431E+00, 0.2453E+00,& - 0.2476E+00, 0.2499E+00, 0.2522E+00, 0.2546E+00,& - 0.2569E+00, 0.2593E+00, 0.2617E+00, 0.2641E+00,& - 0.2665E+00, 0.2690E+00, 0.2714E+00, 0.2739E+00,& - 0.2764E+00, 0.2789E+00, 0.2815E+00, 0.2841E+00,& - 0.2866E+00, 0.2893E+00, 0.2919E+00, 0.2945E+00,& - 0.2972E+00, 0.2999E+00, 0.3026E+00, 0.3053E+00,& - 0.3081E+00, 0.3109E+00, 0.3137E+00, 0.3165E+00,& - 0.3193E+00, 0.3222E+00, 0.3251E+00, 0.3280E+00,& - 0.3309E+00, 0.3339E+00, 0.3369E+00, 0.3398E+00,& - 0.3429E+00, 0.3459E+00, 0.3490E+00, 0.3521E+00,& - 0.3552E+00, 0.3584E+00, 0.3615E+00, 0.3647E+00,& - 0.3679E+00, 0.3712E+00, 0.3745E+00, 0.3778E+00,& - 0.3811E+00, 0.3844E+00, 0.3878E+00, 0.3912E+00,& - 0.3946E+00, 0.3981E+00, 0.4015E+00, 0.4051E+00,& - 0.4086E+00, 0.4121E+00, 0.4157E+00, 0.4194E+00,& - 0.4230E+00, 0.4267E+00, 0.4303E+00, 0.4341E+00,& - 0.4378E+00, 0.4416E+00, 0.4454E+00, 0.4493E+00,& - 0.4532E+00, 0.4571E+00, 0.4610E+00, 0.4650E+00,& - 0.4690E+00, 0.4730E+00, 0.4771E+00, 0.4811E+00,& - 0.4853E+00, 0.4894E+00, 0.4936E+00, 0.4978E+00,& - 0.5021E+00, 0.5064E+00, 0.5107E+00, 0.5150E+00,& - 0.5194E+00, 0.5238E+00, 0.5283E+00, 0.5328E+00,& - 0.5373E+00, 0.5419E+00, 0.5464E+00, 0.5511E+00,& - 0.5557E+00, 0.5604E+00, 0.5652E+00, 0.5700E+00,& - 0.5748E+00, 0.5796E+00, 0.5845E+00, 0.5894E+00,& - 0.5943E+00, 0.5994E+00, 0.6044E+00, 0.6095E+00,& - 0.6146E+00, 0.6198E+00, 0.6250E+00, 0.6302E+00,& - 0.6355E+00, 0.6408E+00, 0.6462E+00, 0.6516E+00,& - 0.6571E+00, 0.6625E+00, 0.6680E+00, 0.6736E+00,& - 0.6793E+00, 0.6849E+00, 0.6906E+00, 0.6964E+00,& - 0.7022E+00, 0.7080E+00, 0.7139E+00, 0.7198E+00,& - 0.7258E+00, 0.7319E+00, 0.7379E+00, 0.7441E+00,& - 0.7502E+00, 0.7565E+00, 0.7627E+00, 0.7691E+00,& - 0.7754E+00, 0.7819E+00, 0.7883E+00, 0.7949E+00,& - 0.8014E+00, 0.8081E+00, 0.8148E+00, 0.8215E+00,& - 0.8283E+00, 0.8351E+00, 0.8420E+00, 0.8490E+00,& - 0.8560E+00, 0.8630E+00, 0.8702E+00, 0.8773E+00,& - 0.8846E+00, 0.8919E+00, 0.8992E+00, 0.9067E+00,& - 0.9141E+00, 0.9217E+00, 0.9293E+00, 0.9369E+00,& - 0.9446E+00, 0.9524E+00, 0.9603E+00, 0.9682E+00,& - 0.9761E+00, 0.9842E+00, 0.9923E+00, 0.1000E+01,& - 0.1009E+01, 0.1017E+01, 0.1025E+01, 0.1034E+01,& - 0.1042E+01, 0.1051E+01, 0.1060E+01, 0.1068E+01,& - 0.1077E+01, 0.1086E+01, 0.1095E+01, 0.1104E+01,& - 0.1113E+01, 0.1122E+01, 0.1132E+01, 0.1141E+01,& - 0.1150E+01, 0.1160E+01, 0.1169E+01, 0.1179E+01,& - 0.1189E+01, 0.1199E+01, 0.1209E+01, 0.1219E+01,& - 0.1229E+01, 0.1239E+01, 0.1249E+01, 0.1259E+01,& - 0.1270E+01, 0.1280E+01, 0.1291E+01, 0.1302E+01,& - 0.1312E+01, 0.1323E+01, 0.1334E+01, 0.1345E+01,& - 0.1357E+01, 0.1368E+01, 0.1379E+01, 0.1391E+01,& - 0.1402E+01, 0.1414E+01, 0.1426E+01, 0.1438E+01,& - 0.1450E+01, 0.1462E+01, 0.1474E+01, 0.1487E+01,& - 0.1499E+01, 0.1512E+01, 0.1524E+01, 0.1537E+01,& - 0.1550E+01, 0.1563E+01, 0.1576E+01, 0.1589E+01,& - 0.1603E+01, 0.1616E+01, 0.1630E+01, 0.1644E+01,& - 0.1658E+01, 0.1672E+01, 0.1686E+01, 0.1700E+01,& - 0.1715E+01, 0.1729E+01, 0.1744E+01, 0.1759E+01,& - 0.1774E+01, 0.1789E+01, 0.1805E+01, 0.1820E+01,& - 0.1836E+01, 0.1852E+01, 0.1867E+01, 0.1884E+01,& - 0.1900E+01, 0.1916E+01, 0.1933E+01, 0.1950E+01,& - 0.1967E+01, 0.1984E+01, 0.2001E+01, 0.2018E+01,& - 0.2036E+01, 0.2054E+01, 0.2072E+01, 0.2090E+01,& - 0.2109E+01, 0.2127E+01, 0.2146E+01, 0.2165E+01,& - 0.2184E+01, 0.2204E+01, 0.2223E+01, 0.2243E+01,& - 0.2263E+01, 0.2283E+01, 0.2304E+01, 0.2325E+01,& - 0.2346E+01, 0.2367E+01, 0.2388E+01, 0.2410E+01,& - 0.2432E+01, 0.2454E+01, 0.2476E+01, 0.2499E+01,& - 0.2522E+01, 0.2545E+01, 0.2569E+01, 0.2593E+01,& - 0.2617E+01, 0.2641E+01, 0.2666E+01, 0.2691E+01,& - 0.2716E+01, 0.2742E+01, 0.2768E+01, 0.2794E+01,& - 0.2821E+01, 0.2847E+01, 0.2875E+01, 0.2902E+01,& - 0.2928E+01, 0.2959E+01, 0.2987E+01, 0.3016E+01,& - 0.3046E+01, 0.3076E+01, 0.3106E+01, 0.3137E+01,& - 0.3168E+01, 0.3200E+01, 0.3232E+01, 0.3264E+01,& - 0.3297E+01, 0.3330E+01, 0.3364E+01, 0.3399E+01,& - 0.3434E+01, 0.3469E+01, 0.3505E+01, 0.3542E+01,& - 0.3579E+01, 0.3616E+01, 0.3655E+01, 0.3694E+01,& - 0.3733E+01, 0.3773E+01, 0.3814E+01, 0.3855E+01,& - 0.3897E+01, 0.3940E+01, 0.3984E+01, 0.4028E+01,& - 0.4073E+01, 0.4119E+01, 0.4166E+01, 0.4214E+01,& - 0.4262E+01, 0.4311E+01, 0.4362E+01, 0.4413E+01,& - 0.4465E+01, 0.4518E+01, 0.4573E+01, 0.4628E+01,& - 0.4685E+01, 0.4742E+01, 0.4801E+01, 0.4861E+01,& - 0.4923E+01, 0.4986E+01, 0.5050E+01, 0.5116E+01,& - 0.5183E+01, 0.5252E+01, 0.5322E+01, 0.5394E+01,& - 0.5468E+01, 0.5544E+01, 0.5622E+01, 0.5702E+01,& - 0.5784E+01, 0.5868E+01, 0.5955E+01, 0.6044E+01,& - 0.6135E+01, 0.6230E+01, 0.6327E+01, 0.6428E+01,& - 0.6531E+01, 0.6638E+01, 0.6749E+01, 0.6864E+01,& - 0.6983E+01, 0.7106E+01, 0.7234E+01, 0.7367E+01,& - 0.7505E+01, 0.7649E+01, 0.7800E+01, 0.7958E+01,& - 0.8123E+01, 0.8296E+01, 0.8478E+01, 0.8670E+01,& - 0.8872E+01, 0.9087E+01, 0.9316E+01, 0.9559E+01,& - 0.9819E+01, 0.1010E+02, 0.1040E+02, 0.1073E+02,& - 0.1109E+02, 0.1149E+02, 0.1193E+02, 0.1243E+02,& - 0.1299E+02, 0.1365E+02, 0.1444E+02, 0.1542E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 91) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.4110E-04, 0.4110E-04, 0.4110E-04, 0.4110E-04,& - 0.4110E-04, 0.4110E-04, 0.4110E-04, 0.4110E-04,& - 0.4110E-04, 0.4110E-04, 0.4110E-04, 0.4110E-04,& - 0.4110E-04, 0.4110E-04, 0.7220E-04, 0.7220E-04,& - 0.7220E-04, 0.7220E-04, 0.7220E-04, 0.7220E-04,& - 0.7220E-04, 0.7220E-04, 0.7220E-04, 0.1033E-03,& - 0.1033E-03, 0.1033E-03, 0.1033E-03, 0.1033E-03,& - 0.1033E-03, 0.1033E-03, 0.1033E-03, 0.1344E-03,& - 0.1344E-03, 0.1344E-03, 0.1344E-03, 0.1344E-03,& - 0.1344E-03, 0.1655E-03, 0.1655E-03, 0.1655E-03,& - 0.1655E-03, 0.1655E-03, 0.1966E-03, 0.1966E-03,& - 0.1966E-03, 0.1966E-03, 0.2277E-03, 0.2277E-03,& - 0.2277E-03, 0.2277E-03, 0.2588E-03, 0.2588E-03,& - 0.2588E-03, 0.2588E-03, 0.2899E-03, 0.2899E-03,& - 0.2899E-03, 0.2899E-03, 0.3210E-03, 0.3210E-03,& - 0.3210E-03, 0.3521E-03, 0.3521E-03, 0.3521E-03,& - 0.3832E-03, 0.3832E-03, 0.4143E-03, 0.4143E-03,& - 0.4143E-03, 0.4454E-03, 0.4454E-03, 0.4765E-03,& - 0.4765E-03, 0.4765E-03, 0.5076E-03, 0.5076E-03,& - 0.5387E-03, 0.5387E-03, 0.5698E-03, 0.5698E-03,& - 0.6009E-03, 0.6009E-03, 0.6320E-03, 0.6631E-03,& - 0.6631E-03, 0.6942E-03, 0.6942E-03, 0.7253E-03,& - 0.7253E-03, 0.7564E-03, 0.7875E-03, 0.7875E-03,& - 0.8186E-03, 0.8497E-03, 0.8497E-03, 0.8808E-03,& - 0.9119E-03, 0.9431E-03, 0.9431E-03, 0.9742E-03,& - 0.1005E-02, 0.1036E-02, 0.1067E-02, 0.1067E-02,& - 0.1099E-02, 0.1130E-02, 0.1161E-02, 0.1192E-02,& - 0.1223E-02, 0.1254E-02, 0.1285E-02, 0.1316E-02,& - 0.1347E-02, 0.1378E-02, 0.1410E-02, 0.1441E-02,& - 0.1472E-02, 0.1503E-02, 0.1534E-02, 0.1565E-02,& - 0.1596E-02, 0.1627E-02, 0.1689E-02, 0.1721E-02,& - 0.1752E-02, 0.1783E-02, 0.1845E-02, 0.1876E-02,& - 0.1907E-02, 0.1969E-02, 0.2001E-02, 0.2032E-02,& - 0.2094E-02, 0.2125E-02, 0.2187E-02, 0.2218E-02,& - 0.2280E-02, 0.2312E-02, 0.2374E-02, 0.2405E-02,& - 0.2467E-02, 0.2529E-02, 0.2560E-02, 0.2623E-02,& - 0.2685E-02, 0.2747E-02, 0.2809E-02, 0.2840E-02,& - 0.2902E-02, 0.2965E-02, 0.3027E-02, 0.3089E-02,& - 0.3151E-02, 0.3213E-02, 0.3276E-02, 0.3338E-02,& - 0.3400E-02, 0.3462E-02, 0.3556E-02, 0.3618E-02,& - 0.3680E-02, 0.3742E-02, 0.3836E-02, 0.3898E-02,& - 0.3991E-02, 0.4053E-02, 0.4115E-02, 0.4209E-02,& - 0.4302E-02, 0.4364E-02, 0.4458E-02, 0.4551E-02,& - 0.4613E-02, 0.4706E-02, 0.4800E-02, 0.4893E-02,& - 0.4986E-02, 0.5048E-02, 0.5142E-02, 0.5266E-02,& - 0.5359E-02, 0.5453E-02, 0.5546E-02, 0.5639E-02,& - 0.5733E-02, 0.5857E-02, 0.5950E-02, 0.6044E-02,& - 0.6168E-02, 0.6261E-02, 0.6386E-02, 0.6479E-02,& - 0.6604E-02, 0.6728E-02, 0.6852E-02, 0.6946E-02,& - 0.7070E-02, 0.7194E-02, 0.7319E-02, 0.7443E-02,& - 0.7568E-02, 0.7692E-02, 0.7848E-02, 0.7972E-02,& - 0.8096E-02, 0.8252E-02, 0.8376E-02, 0.8532E-02,& - 0.8656E-02, 0.8812E-02, 0.8936E-02, 0.9092E-02,& - 0.9247E-02, 0.9403E-02, 0.9558E-02, 0.9714E-02,& - 0.9869E-02, 0.1002E-01, 0.1018E-01, 0.1034E-01,& - 0.1052E-01, 0.1068E-01, 0.1086E-01, 0.1102E-01,& - 0.1121E-01, 0.1139E-01, 0.1155E-01, 0.1174E-01,& - 0.1192E-01, 0.1211E-01, 0.1230E-01, 0.1248E-01,& - 0.1270E-01, 0.1289E-01, 0.1307E-01, 0.1329E-01,& - 0.1348E-01, 0.1369E-01, 0.1391E-01, 0.1413E-01,& - 0.1435E-01, 0.1453E-01, 0.1478E-01, 0.1500E-01,& - 0.1522E-01, 0.1544E-01, 0.1569E-01, 0.1590E-01,& - 0.1615E-01, 0.1640E-01, 0.1662E-01, 0.1687E-01,& - 0.1712E-01, 0.1736E-01, 0.1761E-01, 0.1789E-01,& - 0.1814E-01, 0.1842E-01, 0.1867E-01, 0.1895E-01,& - 0.1923E-01, 0.1948E-01, 0.1976E-01, 0.2007E-01,& - 0.2035E-01, 0.2063E-01, 0.2091E-01, 0.2122E-01,& - 0.2153E-01, 0.2181E-01, 0.2212E-01, 0.2243E-01,& - 0.2275E-01, 0.2306E-01, 0.2340E-01, 0.2371E-01,& - 0.2405E-01, 0.2436E-01, 0.2470E-01, 0.2505E-01,& - 0.2539E-01, 0.2573E-01, 0.2610E-01, 0.2645E-01,& - 0.2682E-01, 0.2716E-01, 0.2754E-01, 0.2791E-01,& - 0.2828E-01, 0.2865E-01, 0.2906E-01, 0.2943E-01,& - 0.2984E-01, 0.3021E-01, 0.3061E-01, 0.3102E-01,& - 0.3142E-01, 0.3186E-01, 0.3226E-01, 0.3270E-01,& - 0.3313E-01, 0.3354E-01, 0.3397E-01, 0.3444E-01,& - 0.3488E-01, 0.3534E-01, 0.3578E-01, 0.3624E-01,& - 0.3671E-01, 0.3718E-01, 0.3764E-01, 0.3814E-01,& - 0.3861E-01, 0.3910E-01, 0.3960E-01, 0.4010E-01,& - 0.4060E-01, 0.4113E-01, 0.4162E-01, 0.4215E-01,& - 0.4268E-01, 0.4321E-01, 0.4377E-01, 0.4430E-01,& - 0.4486E-01, 0.4542E-01, 0.4598E-01, 0.4654E-01,& - 0.4710E-01, 0.4769E-01, 0.4828E-01, 0.4887E-01,& - 0.4946E-01, 0.5005E-01, 0.5067E-01, 0.5127E-01,& - 0.5189E-01, 0.5251E-01, 0.5316E-01, 0.5378E-01,& - 0.5444E-01, 0.5509E-01, 0.5574E-01, 0.5640E-01,& - 0.5708E-01, 0.5777E-01, 0.5845E-01, 0.5913E-01,& - 0.5982E-01, 0.6053E-01, 0.6125E-01, 0.6196E-01,& - 0.6268E-01, 0.6343E-01, 0.6414E-01, 0.6489E-01,& - 0.6567E-01, 0.6641E-01, 0.6719E-01, 0.6797E-01,& - 0.6874E-01, 0.6952E-01, 0.7033E-01, 0.7114E-01,& - 0.7195E-01, 0.7276E-01, 0.7360E-01, 0.7444E-01,& - 0.7528E-01, 0.7612E-01, 0.7699E-01, 0.7786E-01,& - 0.7873E-01, 0.7963E-01, 0.8050E-01, 0.8140E-01,& - 0.8231E-01, 0.8324E-01, 0.8417E-01, 0.8510E-01,& - 0.8604E-01, 0.8700E-01, 0.8797E-01, 0.8893E-01,& - 0.8989E-01, 0.9089E-01, 0.9188E-01, 0.9288E-01,& - 0.9391E-01, 0.9493E-01, 0.9596E-01, 0.9702E-01,& - 0.9807E-01, 0.9913E-01, 0.1002E+00, 0.1013E+00,& - 0.1024E+00, 0.1035E+00, 0.1046E+00, 0.1057E+00,& - 0.1068E+00, 0.1080E+00, 0.1091E+00, 0.1103E+00,& - 0.1114E+00, 0.1126E+00, 0.1138E+00, 0.1150E+00,& - 0.1163E+00, 0.1175E+00, 0.1187E+00, 0.1200E+00,& - 0.1212E+00, 0.1225E+00, 0.1238E+00, 0.1251E+00,& - 0.1263E+00, 0.1277E+00, 0.1290E+00, 0.1303E+00,& - 0.1317E+00, 0.1330E+00, 0.1344E+00, 0.1358E+00,& - 0.1372E+00, 0.1386E+00, 0.1400E+00, 0.1415E+00,& - 0.1429E+00, 0.1444E+00, 0.1458E+00, 0.1473E+00,& - 0.1488E+00, 0.1503E+00, 0.1518E+00, 0.1534E+00,& - 0.1549E+00, 0.1565E+00, 0.1580E+00, 0.1596E+00,& - 0.1612E+00, 0.1629E+00, 0.1645E+00, 0.1661E+00,& - 0.1678E+00, 0.1695E+00, 0.1711E+00, 0.1728E+00,& - 0.1745E+00, 0.1763E+00, 0.1780E+00, 0.1797E+00,& - 0.1815E+00, 0.1833E+00, 0.1851E+00, 0.1869E+00,& - 0.1888E+00, 0.1906E+00, 0.1925E+00, 0.1943E+00,& - 0.1962E+00, 0.1981E+00, 0.2001E+00, 0.2020E+00,& - 0.2039E+00, 0.2059E+00, 0.2079E+00, 0.2099E+00,& - 0.2119E+00, 0.2140E+00, 0.2160E+00, 0.2181E+00,& - 0.2202E+00, 0.2223E+00, 0.2244E+00, 0.2266E+00,& - 0.2287E+00, 0.2309E+00, 0.2331E+00, 0.2353E+00,& - 0.2375E+00, 0.2398E+00, 0.2420E+00, 0.2443E+00,& - 0.2466E+00, 0.2489E+00, 0.2513E+00, 0.2536E+00,& - 0.2560E+00, 0.2584E+00, 0.2608E+00, 0.2633E+00,& - 0.2657E+00, 0.2682E+00, 0.2707E+00, 0.2732E+00,& - 0.2758E+00, 0.2783E+00, 0.2809E+00, 0.2835E+00,& - 0.2861E+00, 0.2887E+00, 0.2914E+00, 0.2941E+00,& - 0.2968E+00, 0.2995E+00, 0.3023E+00, 0.3050E+00,& - 0.3078E+00, 0.3106E+00, 0.3135E+00, 0.3163E+00,& - 0.3192E+00, 0.3221E+00, 0.3250E+00, 0.3280E+00,& - 0.3310E+00, 0.3339E+00, 0.3370E+00, 0.3400E+00,& - 0.3431E+00, 0.3462E+00, 0.3493E+00, 0.3525E+00,& - 0.3556E+00, 0.3588E+00, 0.3620E+00, 0.3653E+00,& - 0.3686E+00, 0.3719E+00, 0.3752E+00, 0.3785E+00,& - 0.3819E+00, 0.3853E+00, 0.3887E+00, 0.3922E+00,& - 0.3957E+00, 0.3992E+00, 0.4027E+00, 0.4063E+00,& - 0.4099E+00, 0.4135E+00, 0.4171E+00, 0.4208E+00,& - 0.4245E+00, 0.4283E+00, 0.4320E+00, 0.4358E+00,& - 0.4397E+00, 0.4436E+00, 0.4474E+00, 0.4514E+00,& - 0.4553E+00, 0.4593E+00, 0.4633E+00, 0.4673E+00,& - 0.4714E+00, 0.4755E+00, 0.4797E+00, 0.4838E+00,& - 0.4880E+00, 0.4923E+00, 0.4965E+00, 0.5009E+00,& - 0.5052E+00, 0.5096E+00, 0.5140E+00, 0.5184E+00,& - 0.5229E+00, 0.5274E+00, 0.5320E+00, 0.5365E+00,& - 0.5412E+00, 0.5458E+00, 0.5505E+00, 0.5553E+00,& - 0.5600E+00, 0.5648E+00, 0.5697E+00, 0.5746E+00,& - 0.5795E+00, 0.5844E+00, 0.5894E+00, 0.5945E+00,& - 0.5996E+00, 0.6047E+00, 0.6099E+00, 0.6150E+00,& - 0.6203E+00, 0.6256E+00, 0.6309E+00, 0.6363E+00,& - 0.6417E+00, 0.6471E+00, 0.6526E+00, 0.6582E+00,& - 0.6638E+00, 0.6694E+00, 0.6751E+00, 0.6808E+00,& - 0.6866E+00, 0.6924E+00, 0.6982E+00, 0.7042E+00,& - 0.7101E+00, 0.7161E+00, 0.7222E+00, 0.7283E+00,& - 0.7344E+00, 0.7406E+00, 0.7468E+00, 0.7531E+00,& - 0.7595E+00, 0.7659E+00, 0.7723E+00, 0.7788E+00,& - 0.7854E+00, 0.7920E+00, 0.7986E+00, 0.8054E+00,& - 0.8121E+00, 0.8189E+00, 0.8258E+00, 0.8328E+00,& - 0.8398E+00, 0.8468E+00, 0.8539E+00, 0.8611E+00,& - 0.8683E+00, 0.8756E+00, 0.8829E+00, 0.8903E+00,& - 0.8978E+00, 0.9053E+00, 0.9129E+00, 0.9205E+00,& - 0.9282E+00, 0.9360E+00, 0.9439E+00, 0.9518E+00,& - 0.9597E+00, 0.9677E+00, 0.9759E+00, 0.9840E+00,& - 0.9922E+00, 0.1001E+01, 0.1009E+01, 0.1017E+01,& - 0.1026E+01, 0.1034E+01, 0.1043E+01, 0.1052E+01,& - 0.1061E+01, 0.1070E+01, 0.1079E+01, 0.1088E+01,& - 0.1097E+01, 0.1106E+01, 0.1115E+01, 0.1124E+01,& - 0.1134E+01, 0.1143E+01, 0.1153E+01, 0.1163E+01,& - 0.1172E+01, 0.1182E+01, 0.1192E+01, 0.1202E+01,& - 0.1212E+01, 0.1223E+01, 0.1233E+01, 0.1243E+01,& - 0.1254E+01, 0.1264E+01, 0.1275E+01, 0.1286E+01,& - 0.1296E+01, 0.1307E+01, 0.1318E+01, 0.1329E+01,& - 0.1341E+01, 0.1352E+01, 0.1363E+01, 0.1375E+01,& - 0.1387E+01, 0.1398E+01, 0.1410E+01, 0.1422E+01,& - 0.1434E+01, 0.1446E+01, 0.1459E+01, 0.1471E+01,& - 0.1483E+01, 0.1496E+01, 0.1509E+01, 0.1522E+01,& - 0.1535E+01, 0.1548E+01, 0.1561E+01, 0.1574E+01,& - 0.1588E+01, 0.1602E+01, 0.1615E+01, 0.1629E+01,& - 0.1643E+01, 0.1657E+01, 0.1672E+01, 0.1686E+01,& - 0.1700E+01, 0.1715E+01, 0.1730E+01, 0.1745E+01,& - 0.1760E+01, 0.1775E+01, 0.1791E+01, 0.1806E+01,& - 0.1822E+01, 0.1838E+01, 0.1854E+01, 0.1870E+01,& - 0.1887E+01, 0.1903E+01, 0.1920E+01, 0.1937E+01,& - 0.1954E+01, 0.1971E+01, 0.1989E+01, 0.2006E+01,& - 0.2024E+01, 0.2042E+01, 0.2060E+01, 0.2078E+01,& - 0.2097E+01, 0.2116E+01, 0.2135E+01, 0.2154E+01,& - 0.2173E+01, 0.2193E+01, 0.2213E+01, 0.2233E+01,& - 0.2253E+01, 0.2273E+01, 0.2294E+01, 0.2315E+01,& - 0.2336E+01, 0.2357E+01, 0.2379E+01, 0.2401E+01,& - 0.2423E+01, 0.2445E+01, 0.2468E+01, 0.2491E+01,& - 0.2514E+01, 0.2538E+01, 0.2561E+01, 0.2585E+01,& - 0.2610E+01, 0.2633E+01, 0.2659E+01, 0.2685E+01,& - 0.2710E+01, 0.2736E+01, 0.2762E+01, 0.2789E+01,& - 0.2816E+01, 0.2843E+01, 0.2870E+01, 0.2898E+01,& - 0.2927E+01, 0.2955E+01, 0.2984E+01, 0.3014E+01,& - 0.3044E+01, 0.3074E+01, 0.3104E+01, 0.3135E+01,& - 0.3167E+01, 0.3199E+01, 0.3231E+01, 0.3264E+01,& - 0.3298E+01, 0.3331E+01, 0.3366E+01, 0.3401E+01,& - 0.3436E+01, 0.3472E+01, 0.3508E+01, 0.3545E+01,& - 0.3583E+01, 0.3621E+01, 0.3660E+01, 0.3699E+01,& - 0.3739E+01, 0.3780E+01, 0.3821E+01, 0.3863E+01,& - 0.3906E+01, 0.3949E+01, 0.3993E+01, 0.4038E+01,& - 0.4084E+01, 0.4130E+01, 0.4178E+01, 0.4226E+01,& - 0.4275E+01, 0.4325E+01, 0.4376E+01, 0.4428E+01,& - 0.4481E+01, 0.4535E+01, 0.4590E+01, 0.4646E+01,& - 0.4704E+01, 0.4762E+01, 0.4822E+01, 0.4883E+01,& - 0.4945E+01, 0.5009E+01, 0.5074E+01, 0.5141E+01,& - 0.5209E+01, 0.5279E+01, 0.5350E+01, 0.5424E+01,& - 0.5499E+01, 0.5576E+01, 0.5655E+01, 0.5736E+01,& - 0.5819E+01, 0.5905E+01, 0.5993E+01, 0.6083E+01,& - 0.6176E+01, 0.6272E+01, 0.6371E+01, 0.6473E+01,& - 0.6579E+01, 0.6688E+01, 0.6800E+01, 0.6917E+01,& - 0.7037E+01, 0.7163E+01, 0.7293E+01, 0.7428E+01,& - 0.7569E+01, 0.7716E+01, 0.7869E+01, 0.8029E+01,& - 0.8197E+01, 0.8373E+01, 0.8558E+01, 0.8753E+01,& - 0.8960E+01, 0.9178E+01, 0.9410E+01, 0.9658E+01,& - 0.9924E+01, 0.1021E+02, 0.1052E+02, 0.1085E+02,& - 0.1122E+02, 0.1162E+02, 0.1207E+02, 0.1258E+02,& - 0.1316E+02, 0.1383E+02, 0.1464E+02, 0.1563E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 92) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.4166E-04, 0.4166E-04,& - 0.4166E-04, 0.4166E-04, 0.4166E-04, 0.4166E-04,& - 0.4166E-04, 0.4166E-04, 0.4166E-04, 0.4166E-04,& - 0.4166E-04, 0.4166E-04, 0.4166E-04, 0.4166E-04,& - 0.7333E-04, 0.7333E-04, 0.7333E-04, 0.7333E-04,& - 0.7333E-04, 0.7333E-04, 0.7333E-04, 0.7333E-04,& - 0.7333E-04, 0.1050E-03, 0.1050E-03, 0.1050E-03,& - 0.1050E-03, 0.1050E-03, 0.1050E-03, 0.1050E-03,& - 0.1050E-03, 0.1367E-03, 0.1367E-03, 0.1367E-03,& - 0.1367E-03, 0.1367E-03, 0.1367E-03, 0.1683E-03,& - 0.1683E-03, 0.1683E-03, 0.1683E-03, 0.1683E-03,& - 0.2000E-03, 0.2000E-03, 0.2000E-03, 0.2000E-03,& - 0.2000E-03, 0.2317E-03, 0.2317E-03, 0.2317E-03,& - 0.2317E-03, 0.2633E-03, 0.2633E-03, 0.2633E-03,& - 0.2633E-03, 0.2950E-03, 0.2950E-03, 0.2950E-03,& - 0.3266E-03, 0.3266E-03, 0.3266E-03, 0.3583E-03,& - 0.3583E-03, 0.3583E-03, 0.3900E-03, 0.3900E-03,& - 0.3900E-03, 0.4216E-03, 0.4216E-03, 0.4216E-03,& - 0.4533E-03, 0.4533E-03, 0.4850E-03, 0.4850E-03,& - 0.5166E-03, 0.5166E-03, 0.5166E-03, 0.5483E-03,& - 0.5483E-03, 0.5800E-03, 0.5800E-03, 0.6116E-03,& - 0.6116E-03, 0.6433E-03, 0.6750E-03, 0.6750E-03,& - 0.7066E-03, 0.7066E-03, 0.7383E-03, 0.7383E-03,& - 0.7700E-03, 0.8016E-03, 0.8016E-03, 0.8333E-03,& - 0.8650E-03, 0.8650E-03, 0.8966E-03, 0.9283E-03,& - 0.9599E-03, 0.9599E-03, 0.9916E-03, 0.1023E-02,& - 0.1055E-02, 0.1055E-02, 0.1087E-02, 0.1118E-02,& - 0.1150E-02, 0.1182E-02, 0.1213E-02, 0.1245E-02,& - 0.1277E-02, 0.1277E-02, 0.1308E-02, 0.1340E-02,& - 0.1372E-02, 0.1403E-02, 0.1435E-02, 0.1467E-02,& - 0.1530E-02, 0.1562E-02, 0.1593E-02, 0.1625E-02,& - 0.1657E-02, 0.1688E-02, 0.1720E-02, 0.1783E-02,& - 0.1815E-02, 0.1847E-02, 0.1878E-02, 0.1942E-02,& - 0.1973E-02, 0.2005E-02, 0.2068E-02, 0.2100E-02,& - 0.2163E-02, 0.2195E-02, 0.2258E-02, 0.2290E-02,& - 0.2353E-02, 0.2385E-02, 0.2448E-02, 0.2480E-02,& - 0.2543E-02, 0.2607E-02, 0.2638E-02, 0.2702E-02,& - 0.2765E-02, 0.2828E-02, 0.2860E-02, 0.2923E-02,& - 0.2987E-02, 0.3050E-02, 0.3113E-02, 0.3176E-02,& - 0.3240E-02, 0.3303E-02, 0.3366E-02, 0.3430E-02,& - 0.3493E-02, 0.3556E-02, 0.3651E-02, 0.3715E-02,& - 0.3778E-02, 0.3841E-02, 0.3936E-02, 0.4000E-02,& - 0.4095E-02, 0.4158E-02, 0.4253E-02, 0.4316E-02,& - 0.4411E-02, 0.4475E-02, 0.4570E-02, 0.4665E-02,& - 0.4728E-02, 0.4823E-02, 0.4918E-02, 0.5013E-02,& - 0.5108E-02, 0.5203E-02, 0.5298E-02, 0.5393E-02,& - 0.5488E-02, 0.5583E-02, 0.5678E-02, 0.5773E-02,& - 0.5868E-02, 0.5995E-02, 0.6090E-02, 0.6185E-02,& - 0.6311E-02, 0.6406E-02, 0.6533E-02, 0.6660E-02,& - 0.6755E-02, 0.6881E-02, 0.7008E-02, 0.7135E-02,& - 0.7230E-02, 0.7356E-02, 0.7483E-02, 0.7610E-02,& - 0.7736E-02, 0.7895E-02, 0.8021E-02, 0.8148E-02,& - 0.8275E-02, 0.8433E-02, 0.8560E-02, 0.8718E-02,& - 0.8845E-02, 0.9003E-02, 0.9161E-02, 0.9288E-02,& - 0.9446E-02, 0.9604E-02, 0.9763E-02, 0.9921E-02,& - 0.1008E-01, 0.1024E-01, 0.1043E-01, 0.1059E-01,& - 0.1074E-01, 0.1093E-01, 0.1109E-01, 0.1128E-01,& - 0.1144E-01, 0.1163E-01, 0.1182E-01, 0.1201E-01,& - 0.1220E-01, 0.1239E-01, 0.1258E-01, 0.1277E-01,& - 0.1296E-01, 0.1318E-01, 0.1337E-01, 0.1359E-01,& - 0.1378E-01, 0.1401E-01, 0.1423E-01, 0.1442E-01,& - 0.1464E-01, 0.1486E-01, 0.1508E-01, 0.1534E-01,& - 0.1556E-01, 0.1578E-01, 0.1603E-01, 0.1625E-01,& - 0.1651E-01, 0.1676E-01, 0.1698E-01, 0.1724E-01,& - 0.1749E-01, 0.1774E-01, 0.1803E-01, 0.1828E-01,& - 0.1853E-01, 0.1882E-01, 0.1910E-01, 0.1936E-01,& - 0.1964E-01, 0.1993E-01, 0.2021E-01, 0.2050E-01,& - 0.2078E-01, 0.2110E-01, 0.2138E-01, 0.2170E-01,& - 0.2199E-01, 0.2230E-01, 0.2262E-01, 0.2294E-01,& - 0.2325E-01, 0.2360E-01, 0.2392E-01, 0.2423E-01,& - 0.2458E-01, 0.2493E-01, 0.2528E-01, 0.2563E-01,& - 0.2598E-01, 0.2632E-01, 0.2667E-01, 0.2705E-01,& - 0.2740E-01, 0.2778E-01, 0.2816E-01, 0.2854E-01,& - 0.2892E-01, 0.2930E-01, 0.2971E-01, 0.3009E-01,& - 0.3050E-01, 0.3091E-01, 0.3133E-01, 0.3174E-01,& - 0.3215E-01, 0.3259E-01, 0.3300E-01, 0.3345E-01,& - 0.3389E-01, 0.3433E-01, 0.3478E-01, 0.3522E-01,& - 0.3570E-01, 0.3614E-01, 0.3661E-01, 0.3709E-01,& - 0.3756E-01, 0.3804E-01, 0.3855E-01, 0.3902E-01,& - 0.3953E-01, 0.4003E-01, 0.4054E-01, 0.4105E-01,& - 0.4159E-01, 0.4209E-01, 0.4263E-01, 0.4317E-01,& - 0.4371E-01, 0.4425E-01, 0.4482E-01, 0.4535E-01,& - 0.4592E-01, 0.4649E-01, 0.4706E-01, 0.4767E-01,& - 0.4824E-01, 0.4884E-01, 0.4944E-01, 0.5004E-01,& - 0.5067E-01, 0.5128E-01, 0.5191E-01, 0.5254E-01,& - 0.5318E-01, 0.5381E-01, 0.5447E-01, 0.5514E-01,& - 0.5580E-01, 0.5647E-01, 0.5713E-01, 0.5783E-01,& - 0.5850E-01, 0.5922E-01, 0.5992E-01, 0.6062E-01,& - 0.6135E-01, 0.6207E-01, 0.6280E-01, 0.6353E-01,& - 0.6429E-01, 0.6505E-01, 0.6581E-01, 0.6657E-01,& - 0.6736E-01, 0.6812E-01, 0.6891E-01, 0.6974E-01,& - 0.7053E-01, 0.7135E-01, 0.7217E-01, 0.7300E-01,& - 0.7382E-01, 0.7468E-01, 0.7553E-01, 0.7639E-01,& - 0.7727E-01, 0.7816E-01, 0.7905E-01, 0.7993E-01,& - 0.8085E-01, 0.8174E-01, 0.8266E-01, 0.8361E-01,& - 0.8456E-01, 0.8547E-01, 0.8646E-01, 0.8741E-01,& - 0.8839E-01, 0.8937E-01, 0.9035E-01, 0.9136E-01,& - 0.9238E-01, 0.9339E-01, 0.9443E-01, 0.9548E-01,& - 0.9652E-01, 0.9757E-01, 0.9865E-01, 0.9972E-01,& - 0.1008E+00, 0.1019E+00, 0.1030E+00, 0.1041E+00,& - 0.1053E+00, 0.1064E+00, 0.1075E+00, 0.1087E+00,& - 0.1099E+00, 0.1111E+00, 0.1123E+00, 0.1135E+00,& - 0.1147E+00, 0.1159E+00, 0.1171E+00, 0.1184E+00,& - 0.1196E+00, 0.1209E+00, 0.1222E+00, 0.1235E+00,& - 0.1248E+00, 0.1261E+00, 0.1274E+00, 0.1288E+00,& - 0.1301E+00, 0.1315E+00, 0.1328E+00, 0.1342E+00,& - 0.1356E+00, 0.1371E+00, 0.1385E+00, 0.1399E+00,& - 0.1414E+00, 0.1428E+00, 0.1443E+00, 0.1458E+00,& - 0.1473E+00, 0.1488E+00, 0.1503E+00, 0.1518E+00,& - 0.1534E+00, 0.1550E+00, 0.1566E+00, 0.1581E+00,& - 0.1598E+00, 0.1614E+00, 0.1630E+00, 0.1647E+00,& - 0.1663E+00, 0.1680E+00, 0.1697E+00, 0.1714E+00,& - 0.1731E+00, 0.1749E+00, 0.1766E+00, 0.1784E+00,& - 0.1802E+00, 0.1819E+00, 0.1838E+00, 0.1856E+00,& - 0.1874E+00, 0.1893E+00, 0.1911E+00, 0.1930E+00,& - 0.1949E+00, 0.1969E+00, 0.1988E+00, 0.2008E+00,& - 0.2027E+00, 0.2047E+00, 0.2067E+00, 0.2087E+00,& - 0.2108E+00, 0.2128E+00, 0.2149E+00, 0.2170E+00,& - 0.2191E+00, 0.2212E+00, 0.2234E+00, 0.2255E+00,& - 0.2277E+00, 0.2299E+00, 0.2321E+00, 0.2343E+00,& - 0.2366E+00, 0.2389E+00, 0.2411E+00, 0.2435E+00,& - 0.2458E+00, 0.2481E+00, 0.2505E+00, 0.2529E+00,& - 0.2553E+00, 0.2577E+00, 0.2601E+00, 0.2626E+00,& - 0.2651E+00, 0.2676E+00, 0.2701E+00, 0.2727E+00,& - 0.2752E+00, 0.2778E+00, 0.2804E+00, 0.2831E+00,& - 0.2857E+00, 0.2884E+00, 0.2911E+00, 0.2938E+00,& - 0.2966E+00, 0.2993E+00, 0.3021E+00, 0.3049E+00,& - 0.3077E+00, 0.3106E+00, 0.3135E+00, 0.3163E+00,& - 0.3193E+00, 0.3222E+00, 0.3252E+00, 0.3282E+00,& - 0.3312E+00, 0.3342E+00, 0.3373E+00, 0.3404E+00,& - 0.3435E+00, 0.3467E+00, 0.3498E+00, 0.3530E+00,& - 0.3562E+00, 0.3595E+00, 0.3628E+00, 0.3661E+00,& - 0.3694E+00, 0.3727E+00, 0.3761E+00, 0.3795E+00,& - 0.3830E+00, 0.3864E+00, 0.3899E+00, 0.3934E+00,& - 0.3970E+00, 0.4005E+00, 0.4041E+00, 0.4078E+00,& - 0.4114E+00, 0.4151E+00, 0.4188E+00, 0.4226E+00,& - 0.4264E+00, 0.4302E+00, 0.4340E+00, 0.4379E+00,& - 0.4418E+00, 0.4457E+00, 0.4497E+00, 0.4537E+00,& - 0.4577E+00, 0.4618E+00, 0.4659E+00, 0.4700E+00,& - 0.4742E+00, 0.4783E+00, 0.4826E+00, 0.4868E+00,& - 0.4911E+00, 0.4955E+00, 0.4998E+00, 0.5042E+00,& - 0.5086E+00, 0.5131E+00, 0.5176E+00, 0.5222E+00,& - 0.5268E+00, 0.5313E+00, 0.5360E+00, 0.5407E+00,& - 0.5454E+00, 0.5502E+00, 0.5550E+00, 0.5598E+00,& - 0.5647E+00, 0.5696E+00, 0.5746E+00, 0.5796E+00,& - 0.5846E+00, 0.5897E+00, 0.5948E+00, 0.6000E+00,& - 0.6052E+00, 0.6104E+00, 0.6157E+00, 0.6211E+00,& - 0.6264E+00, 0.6319E+00, 0.6373E+00, 0.6428E+00,& - 0.6484E+00, 0.6540E+00, 0.6596E+00, 0.6653E+00,& - 0.6710E+00, 0.6768E+00, 0.6826E+00, 0.6885E+00,& - 0.6944E+00, 0.7004E+00, 0.7064E+00, 0.7125E+00,& - 0.7186E+00, 0.7248E+00, 0.7310E+00, 0.7372E+00,& - 0.7435E+00, 0.7499E+00, 0.7563E+00, 0.7628E+00,& - 0.7693E+00, 0.7757E+00, 0.7825E+00, 0.7892E+00,& - 0.7960E+00, 0.8028E+00, 0.8096E+00, 0.8166E+00,& - 0.8235E+00, 0.8306E+00, 0.8376E+00, 0.8448E+00,& - 0.8520E+00, 0.8592E+00, 0.8666E+00, 0.8739E+00,& - 0.8814E+00, 0.8889E+00, 0.8964E+00, 0.9041E+00,& - 0.9118E+00, 0.9195E+00, 0.9274E+00, 0.9353E+00,& - 0.9432E+00, 0.9513E+00, 0.9593E+00, 0.9675E+00,& - 0.9757E+00, 0.9840E+00, 0.9924E+00, 0.1001E+01,& - 0.1009E+01, 0.1018E+01, 0.1027E+01, 0.1035E+01,& - 0.1044E+01, 0.1053E+01, 0.1062E+01, 0.1071E+01,& - 0.1080E+01, 0.1089E+01, 0.1099E+01, 0.1108E+01,& - 0.1117E+01, 0.1127E+01, 0.1136E+01, 0.1146E+01,& - 0.1156E+01, 0.1166E+01, 0.1176E+01, 0.1186E+01,& - 0.1196E+01, 0.1206E+01, 0.1216E+01, 0.1227E+01,& - 0.1237E+01, 0.1248E+01, 0.1258E+01, 0.1269E+01,& - 0.1280E+01, 0.1291E+01, 0.1302E+01, 0.1313E+01,& - 0.1325E+01, 0.1336E+01, 0.1347E+01, 0.1359E+01,& - 0.1371E+01, 0.1382E+01, 0.1394E+01, 0.1406E+01,& - 0.1418E+01, 0.1431E+01, 0.1443E+01, 0.1455E+01,& - 0.1468E+01, 0.1481E+01, 0.1493E+01, 0.1506E+01,& - 0.1519E+01, 0.1532E+01, 0.1546E+01, 0.1559E+01,& - 0.1573E+01, 0.1586E+01, 0.1600E+01, 0.1614E+01,& - 0.1628E+01, 0.1642E+01, 0.1657E+01, 0.1671E+01,& - 0.1686E+01, 0.1701E+01, 0.1716E+01, 0.1731E+01,& - 0.1746E+01, 0.1761E+01, 0.1777E+01, 0.1792E+01,& - 0.1808E+01, 0.1824E+01, 0.1840E+01, 0.1857E+01,& - 0.1873E+01, 0.1890E+01, 0.1907E+01, 0.1924E+01,& - 0.1941E+01, 0.1958E+01, 0.1976E+01, 0.1993E+01,& - 0.2011E+01, 0.2029E+01, 0.2048E+01, 0.2066E+01,& - 0.2085E+01, 0.2104E+01, 0.2123E+01, 0.2142E+01,& - 0.2162E+01, 0.2182E+01, 0.2201E+01, 0.2222E+01,& - 0.2242E+01, 0.2263E+01, 0.2283E+01, 0.2305E+01,& - 0.2326E+01, 0.2348E+01, 0.2369E+01, 0.2391E+01,& - 0.2414E+01, 0.2436E+01, 0.2459E+01, 0.2482E+01,& - 0.2506E+01, 0.2529E+01, 0.2553E+01, 0.2578E+01,& - 0.2602E+01, 0.2627E+01, 0.2652E+01, 0.2678E+01,& - 0.2704E+01, 0.2730E+01, 0.2756E+01, 0.2783E+01,& - 0.2810E+01, 0.2838E+01, 0.2865E+01, 0.2894E+01,& - 0.2922E+01, 0.2951E+01, 0.2981E+01, 0.3010E+01,& - 0.3041E+01, 0.3071E+01, 0.3102E+01, 0.3134E+01,& - 0.3165E+01, 0.3198E+01, 0.3230E+01, 0.3264E+01,& - 0.3297E+01, 0.3332E+01, 0.3366E+01, 0.3402E+01,& - 0.3437E+01, 0.3474E+01, 0.3511E+01, 0.3548E+01,& - 0.3586E+01, 0.3625E+01, 0.3664E+01, 0.3704E+01,& - 0.3744E+01, 0.3785E+01, 0.3827E+01, 0.3870E+01,& - 0.3913E+01, 0.3957E+01, 0.4002E+01, 0.4047E+01,& - 0.4093E+01, 0.4141E+01, 0.4189E+01, 0.4238E+01,& - 0.4287E+01, 0.4338E+01, 0.4390E+01, 0.4442E+01,& - 0.4496E+01, 0.4551E+01, 0.4607E+01, 0.4664E+01,& - 0.4722E+01, 0.4781E+01, 0.4842E+01, 0.4904E+01,& - 0.4967E+01, 0.5032E+01, 0.5098E+01, 0.5165E+01,& - 0.5235E+01, 0.5306E+01, 0.5378E+01, 0.5453E+01,& - 0.5529E+01, 0.5607E+01, 0.5687E+01, 0.5769E+01,& - 0.5854E+01, 0.5941E+01, 0.6030E+01, 0.6122E+01,& - 0.6217E+01, 0.6314E+01, 0.6415E+01, 0.6518E+01,& - 0.6625E+01, 0.6736E+01, 0.6851E+01, 0.6969E+01,& - 0.7092E+01, 0.7219E+01, 0.7351E+01, 0.7489E+01,& - 0.7632E+01, 0.7781E+01, 0.7937E+01, 0.8100E+01,& - 0.8270E+01, 0.8450E+01, 0.8638E+01, 0.8837E+01,& - 0.9047E+01, 0.9269E+01, 0.9505E+01, 0.9758E+01,& - 0.1003E+02, 0.1032E+02, 0.1063E+02, 0.1097E+02,& - 0.1135E+02, 0.1176E+02, 0.1221E+02, 0.1273E+02,& - 0.1332E+02, 0.1401E+02, 0.1483E+02, 0.1584E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 93) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.4223E-04,& - 0.4223E-04, 0.4223E-04, 0.4223E-04, 0.4223E-04,& - 0.4223E-04, 0.4223E-04, 0.4223E-04, 0.4223E-04,& - 0.4223E-04, 0.4223E-04, 0.4223E-04, 0.4223E-04,& - 0.4223E-04, 0.7447E-04, 0.7447E-04, 0.7447E-04,& - 0.7447E-04, 0.7447E-04, 0.7447E-04, 0.7447E-04,& - 0.7447E-04, 0.7447E-04, 0.7447E-04, 0.1067E-03,& - 0.1067E-03, 0.1067E-03, 0.1067E-03, 0.1067E-03,& - 0.1067E-03, 0.1067E-03, 0.1067E-03, 0.1389E-03,& - 0.1389E-03, 0.1389E-03, 0.1389E-03, 0.1389E-03,& - 0.1389E-03, 0.1712E-03, 0.1712E-03, 0.1712E-03,& - 0.1712E-03, 0.1712E-03, 0.1712E-03, 0.2034E-03,& - 0.2034E-03, 0.2034E-03, 0.2034E-03, 0.2356E-03,& - 0.2356E-03, 0.2356E-03, 0.2356E-03, 0.2679E-03,& - 0.2679E-03, 0.2679E-03, 0.2679E-03, 0.3001E-03,& - 0.3001E-03, 0.3001E-03, 0.3001E-03, 0.3323E-03,& - 0.3323E-03, 0.3323E-03, 0.3646E-03, 0.3646E-03,& - 0.3646E-03, 0.3968E-03, 0.3968E-03, 0.3968E-03,& - 0.4290E-03, 0.4290E-03, 0.4613E-03, 0.4613E-03,& - 0.4613E-03, 0.4935E-03, 0.4935E-03, 0.5257E-03,& - 0.5257E-03, 0.5580E-03, 0.5580E-03, 0.5580E-03,& - 0.5902E-03, 0.5902E-03, 0.6224E-03, 0.6224E-03,& - 0.6547E-03, 0.6869E-03, 0.6869E-03, 0.7192E-03,& - 0.7192E-03, 0.7514E-03, 0.7514E-03, 0.7836E-03,& - 0.8159E-03, 0.8159E-03, 0.8481E-03, 0.8803E-03,& - 0.8803E-03, 0.9126E-03, 0.9448E-03, 0.9448E-03,& - 0.9770E-03, 0.1009E-02, 0.1041E-02, 0.1041E-02,& - 0.1074E-02, 0.1106E-02, 0.1138E-02, 0.1170E-02,& - 0.1203E-02, 0.1235E-02, 0.1235E-02, 0.1267E-02,& - 0.1299E-02, 0.1332E-02, 0.1364E-02, 0.1396E-02,& - 0.1428E-02, 0.1461E-02, 0.1493E-02, 0.1525E-02,& - 0.1557E-02, 0.1589E-02, 0.1654E-02, 0.1686E-02,& - 0.1718E-02, 0.1751E-02, 0.1783E-02, 0.1815E-02,& - 0.1880E-02, 0.1912E-02, 0.1944E-02, 0.2009E-02,& - 0.2041E-02, 0.2073E-02, 0.2137E-02, 0.2170E-02,& - 0.2234E-02, 0.2266E-02, 0.2299E-02, 0.2363E-02,& - 0.2428E-02, 0.2460E-02, 0.2524E-02, 0.2557E-02,& - 0.2621E-02, 0.2685E-02, 0.2718E-02, 0.2782E-02,& - 0.2847E-02, 0.2911E-02, 0.2943E-02, 0.3008E-02,& - 0.3072E-02, 0.3137E-02, 0.3201E-02, 0.3266E-02,& - 0.3330E-02, 0.3395E-02, 0.3459E-02, 0.3524E-02,& - 0.3588E-02, 0.3652E-02, 0.3749E-02, 0.3814E-02,& - 0.3878E-02, 0.3975E-02, 0.4039E-02, 0.4104E-02,& - 0.4200E-02, 0.4265E-02, 0.4362E-02, 0.4426E-02,& - 0.4523E-02, 0.4587E-02, 0.4684E-02, 0.4781E-02,& - 0.4845E-02, 0.4942E-02, 0.5039E-02, 0.5135E-02,& - 0.5232E-02, 0.5329E-02, 0.5425E-02, 0.5522E-02,& - 0.5619E-02, 0.5715E-02, 0.5812E-02, 0.5909E-02,& - 0.6038E-02, 0.6134E-02, 0.6231E-02, 0.6360E-02,& - 0.6457E-02, 0.6586E-02, 0.6682E-02, 0.6811E-02,& - 0.6940E-02, 0.7037E-02, 0.7166E-02, 0.7295E-02,& - 0.7424E-02, 0.7553E-02, 0.7682E-02, 0.7811E-02,& - 0.7940E-02, 0.8069E-02, 0.8197E-02, 0.8359E-02,& - 0.8488E-02, 0.8617E-02, 0.8778E-02, 0.8907E-02,& - 0.9068E-02, 0.9229E-02, 0.9358E-02, 0.9519E-02,& - 0.9680E-02, 0.9841E-02, 0.1000E-01, 0.1016E-01,& - 0.1032E-01, 0.1049E-01, 0.1065E-01, 0.1084E-01,& - 0.1100E-01, 0.1120E-01, 0.1136E-01, 0.1155E-01,& - 0.1171E-01, 0.1190E-01, 0.1210E-01, 0.1229E-01,& - 0.1248E-01, 0.1268E-01, 0.1287E-01, 0.1306E-01,& - 0.1326E-01, 0.1348E-01, 0.1368E-01, 0.1390E-01,& - 0.1410E-01, 0.1432E-01, 0.1455E-01, 0.1477E-01,& - 0.1500E-01, 0.1522E-01, 0.1545E-01, 0.1568E-01,& - 0.1590E-01, 0.1616E-01, 0.1638E-01, 0.1664E-01,& - 0.1690E-01, 0.1713E-01, 0.1738E-01, 0.1764E-01,& - 0.1790E-01, 0.1816E-01, 0.1845E-01, 0.1871E-01,& - 0.1896E-01, 0.1925E-01, 0.1954E-01, 0.1980E-01,& - 0.2009E-01, 0.2038E-01, 0.2067E-01, 0.2099E-01,& - 0.2128E-01, 0.2157E-01, 0.2190E-01, 0.2219E-01,& - 0.2251E-01, 0.2283E-01, 0.2315E-01, 0.2348E-01,& - 0.2380E-01, 0.2415E-01, 0.2448E-01, 0.2483E-01,& - 0.2515E-01, 0.2551E-01, 0.2586E-01, 0.2622E-01,& - 0.2657E-01, 0.2696E-01, 0.2731E-01, 0.2770E-01,& - 0.2805E-01, 0.2844E-01, 0.2883E-01, 0.2921E-01,& - 0.2963E-01, 0.3002E-01, 0.3044E-01, 0.3083E-01,& - 0.3124E-01, 0.3166E-01, 0.3208E-01, 0.3250E-01,& - 0.3295E-01, 0.3337E-01, 0.3382E-01, 0.3427E-01,& - 0.3473E-01, 0.3518E-01, 0.3563E-01, 0.3608E-01,& - 0.3656E-01, 0.3705E-01, 0.3753E-01, 0.3801E-01,& - 0.3850E-01, 0.3898E-01, 0.3950E-01, 0.4001E-01,& - 0.4053E-01, 0.4104E-01, 0.4156E-01, 0.4208E-01,& - 0.4262E-01, 0.4317E-01, 0.4372E-01, 0.4427E-01,& - 0.4482E-01, 0.4536E-01, 0.4594E-01, 0.4652E-01,& - 0.4710E-01, 0.4768E-01, 0.4830E-01, 0.4888E-01,& - 0.4949E-01, 0.5010E-01, 0.5071E-01, 0.5133E-01,& - 0.5197E-01, 0.5262E-01, 0.5326E-01, 0.5391E-01,& - 0.5455E-01, 0.5523E-01, 0.5590E-01, 0.5658E-01,& - 0.5726E-01, 0.5793E-01, 0.5864E-01, 0.5935E-01,& - 0.6006E-01, 0.6077E-01, 0.6151E-01, 0.6225E-01,& - 0.6300E-01, 0.6374E-01, 0.6448E-01, 0.6525E-01,& - 0.6603E-01, 0.6680E-01, 0.6757E-01, 0.6838E-01,& - 0.6918E-01, 0.6999E-01, 0.7080E-01, 0.7163E-01,& - 0.7247E-01, 0.7331E-01, 0.7415E-01, 0.7502E-01,& - 0.7589E-01, 0.7676E-01, 0.7763E-01, 0.7853E-01,& - 0.7944E-01, 0.8034E-01, 0.8124E-01, 0.8217E-01,& - 0.8311E-01, 0.8404E-01, 0.8501E-01, 0.8598E-01,& - 0.8695E-01, 0.8791E-01, 0.8891E-01, 0.8991E-01,& - 0.9091E-01, 0.9194E-01, 0.9297E-01, 0.9400E-01,& - 0.9504E-01, 0.9610E-01, 0.9716E-01, 0.9826E-01,& - 0.9932E-01, 0.1004E+00, 0.1015E+00, 0.1026E+00,& - 0.1038E+00, 0.1049E+00, 0.1061E+00, 0.1072E+00,& - 0.1084E+00, 0.1096E+00, 0.1108E+00, 0.1120E+00,& - 0.1132E+00, 0.1144E+00, 0.1156E+00, 0.1169E+00,& - 0.1181E+00, 0.1194E+00, 0.1207E+00, 0.1220E+00,& - 0.1233E+00, 0.1246E+00, 0.1259E+00, 0.1273E+00,& - 0.1286E+00, 0.1300E+00, 0.1314E+00, 0.1328E+00,& - 0.1342E+00, 0.1356E+00, 0.1370E+00, 0.1385E+00,& - 0.1399E+00, 0.1414E+00, 0.1428E+00, 0.1443E+00,& - 0.1458E+00, 0.1474E+00, 0.1489E+00, 0.1504E+00,& - 0.1520E+00, 0.1536E+00, 0.1552E+00, 0.1568E+00,& - 0.1584E+00, 0.1600E+00, 0.1616E+00, 0.1633E+00,& - 0.1650E+00, 0.1667E+00, 0.1684E+00, 0.1701E+00,& - 0.1718E+00, 0.1736E+00, 0.1753E+00, 0.1771E+00,& - 0.1789E+00, 0.1807E+00, 0.1825E+00, 0.1844E+00,& - 0.1862E+00, 0.1881E+00, 0.1900E+00, 0.1919E+00,& - 0.1938E+00, 0.1957E+00, 0.1977E+00, 0.1996E+00,& - 0.2016E+00, 0.2036E+00, 0.2056E+00, 0.2077E+00,& - 0.2097E+00, 0.2118E+00, 0.2139E+00, 0.2160E+00,& - 0.2181E+00, 0.2203E+00, 0.2224E+00, 0.2246E+00,& - 0.2268E+00, 0.2290E+00, 0.2313E+00, 0.2335E+00,& - 0.2358E+00, 0.2381E+00, 0.2404E+00, 0.2427E+00,& - 0.2451E+00, 0.2475E+00, 0.2499E+00, 0.2523E+00,& - 0.2547E+00, 0.2571E+00, 0.2596E+00, 0.2621E+00,& - 0.2646E+00, 0.2672E+00, 0.2697E+00, 0.2723E+00,& - 0.2749E+00, 0.2775E+00, 0.2802E+00, 0.2828E+00,& - 0.2855E+00, 0.2882E+00, 0.2910E+00, 0.2937E+00,& - 0.2965E+00, 0.2993E+00, 0.3021E+00, 0.3049E+00,& - 0.3078E+00, 0.3107E+00, 0.3136E+00, 0.3165E+00,& - 0.3195E+00, 0.3225E+00, 0.3255E+00, 0.3286E+00,& - 0.3316E+00, 0.3347E+00, 0.3379E+00, 0.3410E+00,& - 0.3441E+00, 0.3473E+00, 0.3506E+00, 0.3538E+00,& - 0.3571E+00, 0.3604E+00, 0.3637E+00, 0.3671E+00,& - 0.3704E+00, 0.3739E+00, 0.3773E+00, 0.3808E+00,& - 0.3842E+00, 0.3878E+00, 0.3913E+00, 0.3949E+00,& - 0.3985E+00, 0.4022E+00, 0.4058E+00, 0.4095E+00,& - 0.4133E+00, 0.4170E+00, 0.4208E+00, 0.4246E+00,& - 0.4285E+00, 0.4324E+00, 0.4363E+00, 0.4402E+00,& - 0.4442E+00, 0.4482E+00, 0.4523E+00, 0.4563E+00,& - 0.4604E+00, 0.4646E+00, 0.4688E+00, 0.4730E+00,& - 0.4772E+00, 0.4815E+00, 0.4858E+00, 0.4902E+00,& - 0.4945E+00, 0.4990E+00, 0.5034E+00, 0.5079E+00,& - 0.5125E+00, 0.5170E+00, 0.5216E+00, 0.5263E+00,& - 0.5310E+00, 0.5357E+00, 0.5404E+00, 0.5453E+00,& - 0.5501E+00, 0.5550E+00, 0.5599E+00, 0.5648E+00,& - 0.5698E+00, 0.5748E+00, 0.5799E+00, 0.5851E+00,& - 0.5902E+00, 0.5954E+00, 0.6007E+00, 0.6059E+00,& - 0.6113E+00, 0.6167E+00, 0.6221E+00, 0.6275E+00,& - 0.6331E+00, 0.6386E+00, 0.6442E+00, 0.6499E+00,& - 0.6556E+00, 0.6613E+00, 0.6671E+00, 0.6729E+00,& - 0.6788E+00, 0.6847E+00, 0.6907E+00, 0.6968E+00,& - 0.7028E+00, 0.7090E+00, 0.7152E+00, 0.7214E+00,& - 0.7277E+00, 0.7340E+00, 0.7404E+00, 0.7468E+00,& - 0.7533E+00, 0.7599E+00, 0.7665E+00, 0.7731E+00,& - 0.7799E+00, 0.7866E+00, 0.7935E+00, 0.8004E+00,& - 0.8073E+00, 0.8142E+00, 0.8213E+00, 0.8285E+00,& - 0.8356E+00, 0.8429E+00, 0.8502E+00, 0.8574E+00,& - 0.8650E+00, 0.8725E+00, 0.8800E+00, 0.8876E+00,& - 0.8953E+00, 0.9031E+00, 0.9109E+00, 0.9187E+00,& - 0.9267E+00, 0.9347E+00, 0.9428E+00, 0.9509E+00,& - 0.9591E+00, 0.9674E+00, 0.9758E+00, 0.9842E+00,& - 0.9927E+00, 0.1001E+01, 0.1010E+01, 0.1019E+01,& - 0.1027E+01, 0.1036E+01, 0.1045E+01, 0.1054E+01,& - 0.1063E+01, 0.1073E+01, 0.1082E+01, 0.1091E+01,& - 0.1101E+01, 0.1110E+01, 0.1120E+01, 0.1130E+01,& - 0.1139E+01, 0.1149E+01, 0.1159E+01, 0.1169E+01,& - 0.1179E+01, 0.1190E+01, 0.1200E+01, 0.1210E+01,& - 0.1221E+01, 0.1231E+01, 0.1242E+01, 0.1253E+01,& - 0.1264E+01, 0.1275E+01, 0.1286E+01, 0.1297E+01,& - 0.1308E+01, 0.1320E+01, 0.1331E+01, 0.1343E+01,& - 0.1353E+01, 0.1366E+01, 0.1378E+01, 0.1390E+01,& - 0.1402E+01, 0.1415E+01, 0.1427E+01, 0.1439E+01,& - 0.1452E+01, 0.1465E+01, 0.1478E+01, 0.1491E+01,& - 0.1504E+01, 0.1517E+01, 0.1530E+01, 0.1544E+01,& - 0.1557E+01, 0.1571E+01, 0.1585E+01, 0.1599E+01,& - 0.1613E+01, 0.1627E+01, 0.1642E+01, 0.1656E+01,& - 0.1671E+01, 0.1686E+01, 0.1701E+01, 0.1716E+01,& - 0.1731E+01, 0.1747E+01, 0.1762E+01, 0.1778E+01,& - 0.1794E+01, 0.1810E+01, 0.1826E+01, 0.1843E+01,& - 0.1859E+01, 0.1876E+01, 0.1893E+01, 0.1910E+01,& - 0.1927E+01, 0.1945E+01, 0.1963E+01, 0.1980E+01,& - 0.1998E+01, 0.2017E+01, 0.2035E+01, 0.2054E+01,& - 0.2073E+01, 0.2092E+01, 0.2111E+01, 0.2130E+01,& - 0.2150E+01, 0.2170E+01, 0.2190E+01, 0.2210E+01,& - 0.2231E+01, 0.2252E+01, 0.2273E+01, 0.2294E+01,& - 0.2315E+01, 0.2337E+01, 0.2359E+01, 0.2382E+01,& - 0.2404E+01, 0.2427E+01, 0.2450E+01, 0.2473E+01,& - 0.2497E+01, 0.2521E+01, 0.2545E+01, 0.2569E+01,& - 0.2594E+01, 0.2619E+01, 0.2645E+01, 0.2671E+01,& - 0.2697E+01, 0.2723E+01, 0.2750E+01, 0.2777E+01,& - 0.2804E+01, 0.2832E+01, 0.2860E+01, 0.2889E+01,& - 0.2917E+01, 0.2947E+01, 0.2976E+01, 0.3006E+01,& - 0.3037E+01, 0.3068E+01, 0.3099E+01, 0.3131E+01,& - 0.3163E+01, 0.3196E+01, 0.3229E+01, 0.3263E+01,& - 0.3297E+01, 0.3331E+01, 0.3366E+01, 0.3402E+01,& - 0.3438E+01, 0.3475E+01, 0.3512E+01, 0.3550E+01,& - 0.3589E+01, 0.3628E+01, 0.3667E+01, 0.3708E+01,& - 0.3749E+01, 0.3790E+01, 0.3833E+01, 0.3876E+01,& - 0.3920E+01, 0.3964E+01, 0.4009E+01, 0.4056E+01,& - 0.4103E+01, 0.4150E+01, 0.4199E+01, 0.4248E+01,& - 0.4299E+01, 0.4350E+01, 0.4403E+01, 0.4456E+01,& - 0.4510E+01, 0.4566E+01, 0.4623E+01, 0.4680E+01,& - 0.4739E+01, 0.4800E+01, 0.4861E+01, 0.4924E+01,& - 0.4988E+01, 0.5054E+01, 0.5121E+01, 0.5189E+01,& - 0.5260E+01, 0.5331E+01, 0.5405E+01, 0.5481E+01,& - 0.5558E+01, 0.5637E+01, 0.5719E+01, 0.5802E+01,& - 0.5888E+01, 0.5976E+01, 0.6067E+01, 0.6160E+01,& - 0.6256E+01, 0.6355E+01, 0.6458E+01, 0.6563E+01,& - 0.6672E+01, 0.6784E+01, 0.6900E+01, 0.7021E+01,& - 0.7145E+01, 0.7275E+01, 0.7409E+01, 0.7549E+01,& - 0.7694E+01, 0.7846E+01, 0.8004E+01, 0.8170E+01,& - 0.8344E+01, 0.8526E+01, 0.8717E+01, 0.8919E+01,& - 0.9133E+01, 0.9359E+01, 0.9600E+01, 0.9856E+01,& - 0.1013E+02, 0.1043E+02, 0.1075E+02, 0.1109E+02,& - 0.1147E+02, 0.1189E+02, 0.1236E+02, 0.1288E+02,& - 0.1348E+02, 0.1418E+02, 0.1502E+02, 0.1605E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 94) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.4281E-04, 0.4281E-04, 0.4281E-04,& - 0.4281E-04, 0.4281E-04, 0.4281E-04, 0.4281E-04,& - 0.4281E-04, 0.4281E-04, 0.4281E-04, 0.4281E-04,& - 0.4281E-04, 0.4281E-04, 0.4281E-04, 0.7562E-04,& - 0.7562E-04, 0.7562E-04, 0.7562E-04, 0.7562E-04,& - 0.7562E-04, 0.7562E-04, 0.7562E-04, 0.7562E-04,& - 0.7562E-04, 0.1084E-03, 0.1084E-03, 0.1084E-03,& - 0.1084E-03, 0.1084E-03, 0.1084E-03, 0.1084E-03,& - 0.1084E-03, 0.1412E-03, 0.1412E-03, 0.1412E-03,& - 0.1412E-03, 0.1412E-03, 0.1412E-03, 0.1412E-03,& - 0.1740E-03, 0.1740E-03, 0.1740E-03, 0.1740E-03,& - 0.1740E-03, 0.2069E-03, 0.2069E-03, 0.2069E-03,& - 0.2069E-03, 0.2069E-03, 0.2397E-03, 0.2397E-03,& - 0.2397E-03, 0.2397E-03, 0.2725E-03, 0.2725E-03,& - 0.2725E-03, 0.2725E-03, 0.3053E-03, 0.3053E-03,& - 0.3053E-03, 0.3381E-03, 0.3381E-03, 0.3381E-03,& - 0.3381E-03, 0.3709E-03, 0.3709E-03, 0.3709E-03,& - 0.4037E-03, 0.4037E-03, 0.4037E-03, 0.4365E-03,& - 0.4365E-03, 0.4693E-03, 0.4693E-03, 0.4693E-03,& - 0.5021E-03, 0.5021E-03, 0.5349E-03, 0.5349E-03,& - 0.5678E-03, 0.5678E-03, 0.6006E-03, 0.6006E-03,& - 0.6334E-03, 0.6334E-03, 0.6662E-03, 0.6662E-03,& - 0.6990E-03, 0.6990E-03, 0.7318E-03, 0.7318E-03,& - 0.7646E-03, 0.7646E-03, 0.7974E-03, 0.8302E-03,& - 0.8302E-03, 0.8630E-03, 0.8959E-03, 0.8959E-03,& - 0.9287E-03, 0.9615E-03, 0.9615E-03, 0.9943E-03,& - 0.1027E-02, 0.1060E-02, 0.1060E-02, 0.1093E-02,& - 0.1126E-02, 0.1158E-02, 0.1191E-02, 0.1191E-02,& - 0.1224E-02, 0.1257E-02, 0.1290E-02, 0.1322E-02,& - 0.1355E-02, 0.1388E-02, 0.1421E-02, 0.1454E-02,& - 0.1486E-02, 0.1519E-02, 0.1552E-02, 0.1585E-02,& - 0.1618E-02, 0.1650E-02, 0.1683E-02, 0.1749E-02,& - 0.1782E-02, 0.1815E-02, 0.1847E-02, 0.1880E-02,& - 0.1946E-02, 0.1979E-02, 0.2011E-02, 0.2077E-02,& - 0.2110E-02, 0.2143E-02, 0.2208E-02, 0.2241E-02,& - 0.2274E-02, 0.2339E-02, 0.2372E-02, 0.2438E-02,& - 0.2504E-02, 0.2536E-02, 0.2602E-02, 0.2635E-02,& - 0.2700E-02, 0.2766E-02, 0.2799E-02, 0.2864E-02,& - 0.2930E-02, 0.2996E-02, 0.3028E-02, 0.3094E-02,& - 0.3160E-02, 0.3225E-02, 0.3291E-02, 0.3357E-02,& - 0.3422E-02, 0.3488E-02, 0.3553E-02, 0.3619E-02,& - 0.3685E-02, 0.3783E-02, 0.3849E-02, 0.3914E-02,& - 0.3980E-02, 0.4078E-02, 0.4144E-02, 0.4210E-02,& - 0.4308E-02, 0.4374E-02, 0.4472E-02, 0.4538E-02,& - 0.4636E-02, 0.4735E-02, 0.4800E-02, 0.4899E-02,& - 0.4997E-02, 0.5095E-02, 0.5161E-02, 0.5259E-02,& - 0.5358E-02, 0.5456E-02, 0.5555E-02, 0.5653E-02,& - 0.5752E-02, 0.5850E-02, 0.5981E-02, 0.6080E-02,& - 0.6178E-02, 0.6309E-02, 0.6408E-02, 0.6506E-02,& - 0.6637E-02, 0.6736E-02, 0.6867E-02, 0.6998E-02,& - 0.7097E-02, 0.7228E-02, 0.7359E-02, 0.7491E-02,& - 0.7622E-02, 0.7753E-02, 0.7884E-02, 0.8015E-02,& - 0.8147E-02, 0.8278E-02, 0.8409E-02, 0.8540E-02,& - 0.8704E-02, 0.8836E-02, 0.9000E-02, 0.9131E-02,& - 0.9295E-02, 0.9459E-02, 0.9590E-02, 0.9754E-02,& - 0.9918E-02, 0.1008E-01, 0.1025E-01, 0.1041E-01,& - 0.1057E-01, 0.1074E-01, 0.1094E-01, 0.1110E-01,& - 0.1126E-01, 0.1146E-01, 0.1162E-01, 0.1182E-01,& - 0.1202E-01, 0.1222E-01, 0.1238E-01, 0.1258E-01,& - 0.1277E-01, 0.1297E-01, 0.1320E-01, 0.1340E-01,& - 0.1359E-01, 0.1382E-01, 0.1402E-01, 0.1425E-01,& - 0.1445E-01, 0.1468E-01, 0.1491E-01, 0.1514E-01,& - 0.1536E-01, 0.1559E-01, 0.1582E-01, 0.1605E-01,& - 0.1632E-01, 0.1655E-01, 0.1681E-01, 0.1704E-01,& - 0.1730E-01, 0.1756E-01, 0.1783E-01, 0.1809E-01,& - 0.1835E-01, 0.1861E-01, 0.1888E-01, 0.1917E-01,& - 0.1943E-01, 0.1973E-01, 0.2002E-01, 0.2032E-01,& - 0.2061E-01, 0.2091E-01, 0.2120E-01, 0.2150E-01,& - 0.2180E-01, 0.2212E-01, 0.2242E-01, 0.2275E-01,& - 0.2307E-01, 0.2340E-01, 0.2373E-01, 0.2406E-01,& - 0.2439E-01, 0.2475E-01, 0.2508E-01, 0.2544E-01,& - 0.2580E-01, 0.2616E-01, 0.2652E-01, 0.2688E-01,& - 0.2724E-01, 0.2764E-01, 0.2800E-01, 0.2839E-01,& - 0.2878E-01, 0.2918E-01, 0.2957E-01, 0.2996E-01,& - 0.3036E-01, 0.3079E-01, 0.3121E-01, 0.3161E-01,& - 0.3203E-01, 0.3246E-01, 0.3292E-01, 0.3334E-01,& - 0.3377E-01, 0.3423E-01, 0.3469E-01, 0.3515E-01,& - 0.3561E-01, 0.3607E-01, 0.3656E-01, 0.3702E-01,& - 0.3751E-01, 0.3800E-01, 0.3850E-01, 0.3899E-01,& - 0.3951E-01, 0.4000E-01, 0.4053E-01, 0.4105E-01,& - 0.4158E-01, 0.4210E-01, 0.4266E-01, 0.4319E-01,& - 0.4374E-01, 0.4430E-01, 0.4486E-01, 0.4542E-01,& - 0.4601E-01, 0.4660E-01, 0.4719E-01, 0.4778E-01,& - 0.4837E-01, 0.4896E-01, 0.4958E-01, 0.5021E-01,& - 0.5083E-01, 0.5146E-01, 0.5208E-01, 0.5273E-01,& - 0.5339E-01, 0.5405E-01, 0.5470E-01, 0.5539E-01,& - 0.5605E-01, 0.5674E-01, 0.5743E-01, 0.5815E-01,& - 0.5884E-01, 0.5956E-01, 0.6028E-01, 0.6100E-01,& - 0.6172E-01, 0.6248E-01, 0.6323E-01, 0.6399E-01,& - 0.6474E-01, 0.6553E-01, 0.6632E-01, 0.6711E-01,& - 0.6789E-01, 0.6868E-01, 0.6950E-01, 0.7032E-01,& - 0.7114E-01, 0.7199E-01, 0.7285E-01, 0.7370E-01,& - 0.7455E-01, 0.7541E-01, 0.7629E-01, 0.7718E-01,& - 0.7810E-01, 0.7898E-01, 0.7990E-01, 0.8082E-01,& - 0.8174E-01, 0.8269E-01, 0.8364E-01, 0.8459E-01,& - 0.8558E-01, 0.8656E-01, 0.8755E-01, 0.8853E-01,& - 0.8955E-01, 0.9056E-01, 0.9158E-01, 0.9260E-01,& - 0.9365E-01, 0.9470E-01, 0.9578E-01, 0.9686E-01,& - 0.9795E-01, 0.9903E-01, 0.1001E+00, 0.1013E+00,& - 0.1024E+00, 0.1035E+00, 0.1047E+00, 0.1058E+00,& - 0.1070E+00, 0.1082E+00, 0.1094E+00, 0.1106E+00,& - 0.1118E+00, 0.1130E+00, 0.1143E+00, 0.1155E+00,& - 0.1167E+00, 0.1180E+00, 0.1193E+00, 0.1206E+00,& - 0.1219E+00, 0.1232E+00, 0.1246E+00, 0.1259E+00,& - 0.1272E+00, 0.1286E+00, 0.1300E+00, 0.1314E+00,& - 0.1328E+00, 0.1342E+00, 0.1356E+00, 0.1371E+00,& - 0.1385E+00, 0.1400E+00, 0.1415E+00, 0.1430E+00,& - 0.1445E+00, 0.1460E+00, 0.1476E+00, 0.1491E+00,& - 0.1507E+00, 0.1523E+00, 0.1539E+00, 0.1555E+00,& - 0.1571E+00, 0.1587E+00, 0.1604E+00, 0.1621E+00,& - 0.1637E+00, 0.1654E+00, 0.1671E+00, 0.1688E+00,& - 0.1706E+00, 0.1724E+00, 0.1741E+00, 0.1759E+00,& - 0.1777E+00, 0.1795E+00, 0.1814E+00, 0.1832E+00,& - 0.1851E+00, 0.1870E+00, 0.1889E+00, 0.1908E+00,& - 0.1927E+00, 0.1947E+00, 0.1967E+00, 0.1986E+00,& - 0.2006E+00, 0.2027E+00, 0.2047E+00, 0.2067E+00,& - 0.2088E+00, 0.2109E+00, 0.2130E+00, 0.2152E+00,& - 0.2173E+00, 0.2195E+00, 0.2216E+00, 0.2239E+00,& - 0.2261E+00, 0.2283E+00, 0.2306E+00, 0.2329E+00,& - 0.2352E+00, 0.2375E+00, 0.2398E+00, 0.2422E+00,& - 0.2445E+00, 0.2469E+00, 0.2494E+00, 0.2518E+00,& - 0.2542E+00, 0.2567E+00, 0.2592E+00, 0.2618E+00,& - 0.2643E+00, 0.2669E+00, 0.2695E+00, 0.2721E+00,& - 0.2747E+00, 0.2774E+00, 0.2800E+00, 0.2828E+00,& - 0.2855E+00, 0.2882E+00, 0.2910E+00, 0.2938E+00,& - 0.2966E+00, 0.2994E+00, 0.3023E+00, 0.3052E+00,& - 0.3081E+00, 0.3110E+00, 0.3140E+00, 0.3170E+00,& - 0.3200E+00, 0.3230E+00, 0.3261E+00, 0.3292E+00,& - 0.3323E+00, 0.3354E+00, 0.3386E+00, 0.3418E+00,& - 0.3450E+00, 0.3482E+00, 0.3515E+00, 0.3548E+00,& - 0.3582E+00, 0.3615E+00, 0.3649E+00, 0.3683E+00,& - 0.3717E+00, 0.3752E+00, 0.3787E+00, 0.3822E+00,& - 0.3858E+00, 0.3894E+00, 0.3930E+00, 0.3966E+00,& - 0.4003E+00, 0.4040E+00, 0.4078E+00, 0.4115E+00,& - 0.4153E+00, 0.4192E+00, 0.4230E+00, 0.4269E+00,& - 0.4309E+00, 0.4348E+00, 0.4388E+00, 0.4428E+00,& - 0.4469E+00, 0.4510E+00, 0.4551E+00, 0.4593E+00,& - 0.4635E+00, 0.4677E+00, 0.4720E+00, 0.4763E+00,& - 0.4806E+00, 0.4850E+00, 0.4894E+00, 0.4939E+00,& - 0.4983E+00, 0.5028E+00, 0.5074E+00, 0.5120E+00,& - 0.5166E+00, 0.5213E+00, 0.5260E+00, 0.5308E+00,& - 0.5356E+00, 0.5404E+00, 0.5453E+00, 0.5502E+00,& - 0.5551E+00, 0.5601E+00, 0.5652E+00, 0.5702E+00,& - 0.5754E+00, 0.5805E+00, 0.5857E+00, 0.5910E+00,& - 0.5963E+00, 0.6016E+00, 0.6070E+00, 0.6124E+00,& - 0.6178E+00, 0.6234E+00, 0.6289E+00, 0.6345E+00,& - 0.6402E+00, 0.6459E+00, 0.6516E+00, 0.6574E+00,& - 0.6633E+00, 0.6692E+00, 0.6751E+00, 0.6809E+00,& - 0.6872E+00, 0.6932E+00, 0.6994E+00, 0.7056E+00,& - 0.7118E+00, 0.7181E+00, 0.7245E+00, 0.7309E+00,& - 0.7374E+00, 0.7439E+00, 0.7505E+00, 0.7571E+00,& - 0.7638E+00, 0.7705E+00, 0.7773E+00, 0.7842E+00,& - 0.7911E+00, 0.7981E+00, 0.8051E+00, 0.8122E+00,& - 0.8194E+00, 0.8266E+00, 0.8338E+00, 0.8412E+00,& - 0.8486E+00, 0.8560E+00, 0.8636E+00, 0.8712E+00,& - 0.8788E+00, 0.8866E+00, 0.8943E+00, 0.9022E+00,& - 0.9101E+00, 0.9181E+00, 0.9262E+00, 0.9343E+00,& - 0.9425E+00, 0.9508E+00, 0.9591E+00, 0.9676E+00,& - 0.9761E+00, 0.9846E+00, 0.9932E+00, 0.1002E+01,& - 0.1011E+01, 0.1020E+01, 0.1029E+01, 0.1038E+01,& - 0.1047E+01, 0.1056E+01, 0.1065E+01, 0.1075E+01,& - 0.1084E+01, 0.1094E+01, 0.1103E+01, 0.1113E+01,& - 0.1123E+01, 0.1132E+01, 0.1142E+01, 0.1152E+01,& - 0.1163E+01, 0.1173E+01, 0.1183E+01, 0.1194E+01,& - 0.1204E+01, 0.1215E+01, 0.1225E+01, 0.1236E+01,& - 0.1247E+01, 0.1258E+01, 0.1269E+01, 0.1280E+01,& - 0.1292E+01, 0.1303E+01, 0.1315E+01, 0.1326E+01,& - 0.1338E+01, 0.1350E+01, 0.1362E+01, 0.1374E+01,& - 0.1386E+01, 0.1398E+01, 0.1411E+01, 0.1423E+01,& - 0.1436E+01, 0.1449E+01, 0.1462E+01, 0.1475E+01,& - 0.1488E+01, 0.1501E+01, 0.1514E+01, 0.1528E+01,& - 0.1542E+01, 0.1555E+01, 0.1569E+01, 0.1583E+01,& - 0.1597E+01, 0.1612E+01, 0.1626E+01, 0.1641E+01,& - 0.1656E+01, 0.1670E+01, 0.1686E+01, 0.1701E+01,& - 0.1716E+01, 0.1732E+01, 0.1748E+01, 0.1763E+01,& - 0.1779E+01, 0.1796E+01, 0.1812E+01, 0.1828E+01,& - 0.1845E+01, 0.1862E+01, 0.1879E+01, 0.1896E+01,& - 0.1914E+01, 0.1931E+01, 0.1949E+01, 0.1967E+01,& - 0.1985E+01, 0.2004E+01, 0.2022E+01, 0.2041E+01,& - 0.2060E+01, 0.2079E+01, 0.2098E+01, 0.2118E+01,& - 0.2138E+01, 0.2158E+01, 0.2178E+01, 0.2199E+01,& - 0.2219E+01, 0.2240E+01, 0.2261E+01, 0.2283E+01,& - 0.2305E+01, 0.2326E+01, 0.2349E+01, 0.2371E+01,& - 0.2394E+01, 0.2417E+01, 0.2440E+01, 0.2464E+01,& - 0.2488E+01, 0.2512E+01, 0.2536E+01, 0.2561E+01,& - 0.2586E+01, 0.2611E+01, 0.2637E+01, 0.2663E+01,& - 0.2689E+01, 0.2716E+01, 0.2743E+01, 0.2770E+01,& - 0.2798E+01, 0.2826E+01, 0.2854E+01, 0.2883E+01,& - 0.2912E+01, 0.2942E+01, 0.2972E+01, 0.3002E+01,& - 0.3033E+01, 0.3064E+01, 0.3096E+01, 0.3128E+01,& - 0.3160E+01, 0.3193E+01, 0.3227E+01, 0.3261E+01,& - 0.3295E+01, 0.3330E+01, 0.3366E+01, 0.3402E+01,& - 0.3439E+01, 0.3476E+01, 0.3513E+01, 0.3552E+01,& - 0.3591E+01, 0.3630E+01, 0.3670E+01, 0.3711E+01,& - 0.3753E+01, 0.3795E+01, 0.3838E+01, 0.3881E+01,& - 0.3926E+01, 0.3971E+01, 0.4017E+01, 0.4063E+01,& - 0.4111E+01, 0.4159E+01, 0.4209E+01, 0.4259E+01,& - 0.4310E+01, 0.4362E+01, 0.4415E+01, 0.4469E+01,& - 0.4524E+01, 0.4581E+01, 0.4638E+01, 0.4696E+01,& - 0.4756E+01, 0.4817E+01, 0.4880E+01, 0.4943E+01,& - 0.5008E+01, 0.5075E+01, 0.5143E+01, 0.5213E+01,& - 0.5284E+01, 0.5357E+01, 0.5431E+01, 0.5508E+01,& - 0.5586E+01, 0.5667E+01, 0.5750E+01, 0.5834E+01,& - 0.5922E+01, 0.6011E+01, 0.6103E+01, 0.6198E+01,& - 0.6296E+01, 0.6396E+01, 0.6500E+01, 0.6607E+01,& - 0.6717E+01, 0.6831E+01, 0.6949E+01, 0.7072E+01,& - 0.7198E+01, 0.7330E+01, 0.7466E+01, 0.7608E+01,& - 0.7756E+01, 0.7910E+01, 0.8071E+01, 0.8240E+01,& - 0.8416E+01, 0.8601E+01, 0.8796E+01, 0.9002E+01,& - 0.9219E+01, 0.9449E+01, 0.9694E+01, 0.9955E+01,& - 0.1023E+02, 0.1053E+02, 0.1086E+02, 0.1121E+02,& - 0.1160E+02, 0.1203E+02, 0.1250E+02, 0.1304E+02,& - 0.1365E+02, 0.1436E+02, 0.1521E+02, 0.1626E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 95) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.4339E-04, 0.4339E-04,& - 0.4339E-04, 0.4339E-04, 0.4339E-04, 0.4339E-04,& - 0.4339E-04, 0.4339E-04, 0.4339E-04, 0.4339E-04,& - 0.4339E-04, 0.4339E-04, 0.4339E-04, 0.4339E-04,& - 0.4339E-04, 0.7678E-04, 0.7678E-04, 0.7678E-04,& - 0.7678E-04, 0.7678E-04, 0.7678E-04, 0.7678E-04,& - 0.7678E-04, 0.7678E-04, 0.7678E-04, 0.7678E-04,& - 0.1102E-03, 0.1102E-03, 0.1102E-03, 0.1102E-03,& - 0.1102E-03, 0.1102E-03, 0.1102E-03, 0.1436E-03,& - 0.1436E-03, 0.1436E-03, 0.1436E-03, 0.1436E-03,& - 0.1436E-03, 0.1436E-03, 0.1770E-03, 0.1770E-03,& - 0.1770E-03, 0.1770E-03, 0.1770E-03, 0.2103E-03,& - 0.2103E-03, 0.2103E-03, 0.2103E-03, 0.2103E-03,& - 0.2437E-03, 0.2437E-03, 0.2437E-03, 0.2437E-03,& - 0.2437E-03, 0.2771E-03, 0.2771E-03, 0.2771E-03,& - 0.3105E-03, 0.3105E-03, 0.3105E-03, 0.3105E-03,& - 0.3439E-03, 0.3439E-03, 0.3439E-03, 0.3773E-03,& - 0.3773E-03, 0.3773E-03, 0.4107E-03, 0.4107E-03,& - 0.4107E-03, 0.4441E-03, 0.4441E-03, 0.4441E-03,& - 0.4775E-03, 0.4775E-03, 0.5109E-03, 0.5109E-03,& - 0.5109E-03, 0.5442E-03, 0.5442E-03, 0.5776E-03,& - 0.5776E-03, 0.6110E-03, 0.6110E-03, 0.6444E-03,& - 0.6444E-03, 0.6778E-03, 0.6778E-03, 0.7112E-03,& - 0.7112E-03, 0.7446E-03, 0.7446E-03, 0.7780E-03,& - 0.7780E-03, 0.8114E-03, 0.8448E-03, 0.8448E-03,& - 0.8782E-03, 0.9115E-03, 0.9115E-03, 0.9449E-03,& - 0.9783E-03, 0.9783E-03, 0.1012E-02, 0.1045E-02,& - 0.1078E-02, 0.1078E-02, 0.1112E-02, 0.1145E-02,& - 0.1179E-02, 0.1212E-02, 0.1212E-02, 0.1245E-02,& - 0.1279E-02, 0.1312E-02, 0.1346E-02, 0.1379E-02,& - 0.1412E-02, 0.1446E-02, 0.1479E-02, 0.1513E-02,& - 0.1546E-02, 0.1579E-02, 0.1613E-02, 0.1646E-02,& - 0.1680E-02, 0.1713E-02, 0.1746E-02, 0.1780E-02,& - 0.1846E-02, 0.1880E-02, 0.1913E-02, 0.1947E-02,& - 0.2013E-02, 0.2047E-02, 0.2080E-02, 0.2114E-02,& - 0.2180E-02, 0.2214E-02, 0.2281E-02, 0.2314E-02,& - 0.2347E-02, 0.2414E-02, 0.2448E-02, 0.2514E-02,& - 0.2581E-02, 0.2614E-02, 0.2681E-02, 0.2715E-02,& - 0.2781E-02, 0.2848E-02, 0.2882E-02, 0.2948E-02,& - 0.3015E-02, 0.3082E-02, 0.3149E-02, 0.3182E-02,& - 0.3249E-02, 0.3316E-02, 0.3382E-02, 0.3449E-02,& - 0.3516E-02, 0.3583E-02, 0.3650E-02, 0.3750E-02,& - 0.3817E-02, 0.3883E-02, 0.3950E-02, 0.4017E-02,& - 0.4117E-02, 0.4184E-02, 0.4251E-02, 0.4351E-02,& - 0.4418E-02, 0.4518E-02, 0.4585E-02, 0.4685E-02,& - 0.4751E-02, 0.4852E-02, 0.4952E-02, 0.5052E-02,& - 0.5119E-02, 0.5219E-02, 0.5319E-02, 0.5419E-02,& - 0.5519E-02, 0.5620E-02, 0.5720E-02, 0.5820E-02,& - 0.5920E-02, 0.6020E-02, 0.6120E-02, 0.6254E-02,& - 0.6354E-02, 0.6454E-02, 0.6588E-02, 0.6688E-02,& - 0.6822E-02, 0.6922E-02, 0.7055E-02, 0.7156E-02,& - 0.7289E-02, 0.7423E-02, 0.7556E-02, 0.7690E-02,& - 0.7823E-02, 0.7957E-02, 0.8091E-02, 0.8224E-02,& - 0.8358E-02, 0.8491E-02, 0.8625E-02, 0.8792E-02,& - 0.8925E-02, 0.9059E-02, 0.9226E-02, 0.9393E-02,& - 0.9526E-02, 0.9693E-02, 0.9860E-02, 0.1003E-01,& - 0.1016E-01, 0.1033E-01, 0.1049E-01, 0.1069E-01,& - 0.1086E-01, 0.1103E-01, 0.1120E-01, 0.1140E-01,& - 0.1156E-01, 0.1176E-01, 0.1193E-01, 0.1213E-01,& - 0.1233E-01, 0.1250E-01, 0.1270E-01, 0.1290E-01,& - 0.1310E-01, 0.1330E-01, 0.1353E-01, 0.1373E-01,& - 0.1393E-01, 0.1417E-01, 0.1437E-01, 0.1460E-01,& - 0.1484E-01, 0.1507E-01, 0.1527E-01, 0.1550E-01,& - 0.1574E-01, 0.1600E-01, 0.1624E-01, 0.1647E-01,& - 0.1674E-01, 0.1697E-01, 0.1724E-01, 0.1747E-01,& - 0.1774E-01, 0.1801E-01, 0.1827E-01, 0.1854E-01,& - 0.1881E-01, 0.1911E-01, 0.1938E-01, 0.1968E-01,& - 0.1994E-01, 0.2024E-01, 0.2055E-01, 0.2085E-01,& - 0.2115E-01, 0.2145E-01, 0.2175E-01, 0.2205E-01,& - 0.2238E-01, 0.2268E-01, 0.2302E-01, 0.2335E-01,& - 0.2368E-01, 0.2402E-01, 0.2435E-01, 0.2469E-01,& - 0.2505E-01, 0.2539E-01, 0.2575E-01, 0.2612E-01,& - 0.2649E-01, 0.2686E-01, 0.2722E-01, 0.2759E-01,& - 0.2796E-01, 0.2836E-01, 0.2876E-01, 0.2913E-01,& - 0.2953E-01, 0.2993E-01, 0.3036E-01, 0.3076E-01,& - 0.3120E-01, 0.3160E-01, 0.3203E-01, 0.3247E-01,& - 0.3290E-01, 0.3333E-01, 0.3380E-01, 0.3424E-01,& - 0.3470E-01, 0.3517E-01, 0.3564E-01, 0.3611E-01,& - 0.3657E-01, 0.3707E-01, 0.3754E-01, 0.3804E-01,& - 0.3854E-01, 0.3904E-01, 0.3954E-01, 0.4008E-01,& - 0.4058E-01, 0.4111E-01, 0.4165E-01, 0.4218E-01,& - 0.4272E-01, 0.4328E-01, 0.4385E-01, 0.4439E-01,& - 0.4495E-01, 0.4555E-01, 0.4612E-01, 0.4669E-01,& - 0.4729E-01, 0.4789E-01, 0.4849E-01, 0.4913E-01,& - 0.4973E-01, 0.5036E-01, 0.5100E-01, 0.5163E-01,& - 0.5227E-01, 0.5293E-01, 0.5357E-01, 0.5424E-01,& - 0.5490E-01, 0.5561E-01, 0.5627E-01, 0.5697E-01,& - 0.5768E-01, 0.5838E-01, 0.5911E-01, 0.5981E-01,& - 0.6055E-01, 0.6128E-01, 0.6202E-01, 0.6278E-01,& - 0.6355E-01, 0.6432E-01, 0.6509E-01, 0.6586E-01,& - 0.6666E-01, 0.6746E-01, 0.6826E-01, 0.6909E-01,& - 0.6990E-01, 0.7073E-01, 0.7157E-01, 0.7243E-01,& - 0.7330E-01, 0.7417E-01, 0.7504E-01, 0.7591E-01,& - 0.7681E-01, 0.7771E-01, 0.7861E-01, 0.7955E-01,& - 0.8045E-01, 0.8142E-01, 0.8235E-01, 0.8329E-01,& - 0.8425E-01, 0.8526E-01, 0.8622E-01, 0.8723E-01,& - 0.8823E-01, 0.8923E-01, 0.9026E-01, 0.9130E-01,& - 0.9233E-01, 0.9340E-01, 0.9444E-01, 0.9554E-01,& - 0.9661E-01, 0.9771E-01, 0.9881E-01, 0.9991E-01,& - 0.1010E+00, 0.1022E+00, 0.1033E+00, 0.1045E+00,& - 0.1057E+00, 0.1068E+00, 0.1080E+00, 0.1092E+00,& - 0.1105E+00, 0.1117E+00, 0.1129E+00, 0.1142E+00,& - 0.1154E+00, 0.1167E+00, 0.1180E+00, 0.1193E+00,& - 0.1206E+00, 0.1219E+00, 0.1233E+00, 0.1246E+00,& - 0.1260E+00, 0.1273E+00, 0.1287E+00, 0.1301E+00,& - 0.1315E+00, 0.1329E+00, 0.1344E+00, 0.1358E+00,& - 0.1373E+00, 0.1387E+00, 0.1403E+00, 0.1418E+00,& - 0.1433E+00, 0.1448E+00, 0.1463E+00, 0.1479E+00,& - 0.1495E+00, 0.1511E+00, 0.1527E+00, 0.1543E+00,& - 0.1559E+00, 0.1575E+00, 0.1592E+00, 0.1609E+00,& - 0.1626E+00, 0.1643E+00, 0.1660E+00, 0.1678E+00,& - 0.1695E+00, 0.1713E+00, 0.1731E+00, 0.1749E+00,& - 0.1767E+00, 0.1785E+00, 0.1804E+00, 0.1822E+00,& - 0.1841E+00, 0.1860E+00, 0.1879E+00, 0.1899E+00,& - 0.1918E+00, 0.1938E+00, 0.1958E+00, 0.1978E+00,& - 0.1998E+00, 0.2018E+00, 0.2039E+00, 0.2060E+00,& - 0.2081E+00, 0.2102E+00, 0.2123E+00, 0.2144E+00,& - 0.2166E+00, 0.2188E+00, 0.2210E+00, 0.2232E+00,& - 0.2255E+00, 0.2277E+00, 0.2300E+00, 0.2323E+00,& - 0.2346E+00, 0.2370E+00, 0.2394E+00, 0.2418E+00,& - 0.2442E+00, 0.2466E+00, 0.2490E+00, 0.2515E+00,& - 0.2540E+00, 0.2565E+00, 0.2591E+00, 0.2616E+00,& - 0.2642E+00, 0.2668E+00, 0.2694E+00, 0.2720E+00,& - 0.2747E+00, 0.2774E+00, 0.2801E+00, 0.2829E+00,& - 0.2856E+00, 0.2884E+00, 0.2912E+00, 0.2940E+00,& - 0.2969E+00, 0.2998E+00, 0.3027E+00, 0.3056E+00,& - 0.3086E+00, 0.3115E+00, 0.3146E+00, 0.3176E+00,& - 0.3207E+00, 0.3237E+00, 0.3269E+00, 0.3300E+00,& - 0.3331E+00, 0.3364E+00, 0.3396E+00, 0.3428E+00,& - 0.3461E+00, 0.3494E+00, 0.3527E+00, 0.3561E+00,& - 0.3595E+00, 0.3629E+00, 0.3663E+00, 0.3698E+00,& - 0.3733E+00, 0.3768E+00, 0.3804E+00, 0.3840E+00,& - 0.3876E+00, 0.3912E+00, 0.3950E+00, 0.3987E+00,& - 0.4024E+00, 0.4062E+00, 0.4100E+00, 0.4139E+00,& - 0.4177E+00, 0.4216E+00, 0.4256E+00, 0.4295E+00,& - 0.4336E+00, 0.4376E+00, 0.4417E+00, 0.4458E+00,& - 0.4499E+00, 0.4541E+00, 0.4583E+00, 0.4626E+00,& - 0.4668E+00, 0.4712E+00, 0.4755E+00, 0.4799E+00,& - 0.4844E+00, 0.4888E+00, 0.4934E+00, 0.4979E+00,& - 0.5025E+00, 0.5071E+00, 0.5118E+00, 0.5165E+00,& - 0.5212E+00, 0.5260E+00, 0.5308E+00, 0.5357E+00,& - 0.5406E+00, 0.5455E+00, 0.5505E+00, 0.5555E+00,& - 0.5606E+00, 0.5657E+00, 0.5709E+00, 0.5761E+00,& - 0.5813E+00, 0.5866E+00, 0.5920E+00, 0.5973E+00,& - 0.6027E+00, 0.6082E+00, 0.6137E+00, 0.6193E+00,& - 0.6249E+00, 0.6306E+00, 0.6363E+00, 0.6420E+00,& - 0.6479E+00, 0.6537E+00, 0.6596E+00, 0.6655E+00,& - 0.6716E+00, 0.6776E+00, 0.6837E+00, 0.6899E+00,& - 0.6961E+00, 0.7024E+00, 0.7087E+00, 0.7151E+00,& - 0.7215E+00, 0.7280E+00, 0.7345E+00, 0.7411E+00,& - 0.7478E+00, 0.7545E+00, 0.7612E+00, 0.7681E+00,& - 0.7749E+00, 0.7819E+00, 0.7889E+00, 0.7959E+00,& - 0.8031E+00, 0.8103E+00, 0.8175E+00, 0.8248E+00,& - 0.8322E+00, 0.8396E+00, 0.8471E+00, 0.8547E+00,& - 0.8623E+00, 0.8700E+00, 0.8778E+00, 0.8856E+00,& - 0.8935E+00, 0.9015E+00, 0.9096E+00, 0.9177E+00,& - 0.9259E+00, 0.9341E+00, 0.9425E+00, 0.9508E+00,& - 0.9593E+00, 0.9679E+00, 0.9765E+00, 0.9852E+00,& - 0.9940E+00, 0.1003E+01, 0.1012E+01, 0.1021E+01,& - 0.1030E+01, 0.1039E+01, 0.1048E+01, 0.1058E+01,& - 0.1067E+01, 0.1077E+01, 0.1086E+01, 0.1096E+01,& - 0.1106E+01, 0.1116E+01, 0.1126E+01, 0.1136E+01,& - 0.1146E+01, 0.1156E+01, 0.1166E+01, 0.1177E+01,& - 0.1187E+01, 0.1198E+01, 0.1209E+01, 0.1219E+01,& - 0.1230E+01, 0.1241E+01, 0.1252E+01, 0.1264E+01,& - 0.1275E+01, 0.1286E+01, 0.1298E+01, 0.1310E+01,& - 0.1321E+01, 0.1333E+01, 0.1345E+01, 0.1357E+01,& - 0.1370E+01, 0.1382E+01, 0.1394E+01, 0.1407E+01,& - 0.1420E+01, 0.1432E+01, 0.1445E+01, 0.1458E+01,& - 0.1472E+01, 0.1485E+01, 0.1498E+01, 0.1512E+01,& - 0.1526E+01, 0.1539E+01, 0.1553E+01, 0.1567E+01,& - 0.1582E+01, 0.1596E+01, 0.1611E+01, 0.1625E+01,& - 0.1640E+01, 0.1655E+01, 0.1670E+01, 0.1686E+01,& - 0.1701E+01, 0.1717E+01, 0.1733E+01, 0.1748E+01,& - 0.1765E+01, 0.1781E+01, 0.1797E+01, 0.1814E+01,& - 0.1831E+01, 0.1848E+01, 0.1865E+01, 0.1882E+01,& - 0.1900E+01, 0.1917E+01, 0.1935E+01, 0.1953E+01,& - 0.1972E+01, 0.1990E+01, 0.2009E+01, 0.2028E+01,& - 0.2047E+01, 0.2066E+01, 0.2085E+01, 0.2105E+01,& - 0.2125E+01, 0.2145E+01, 0.2166E+01, 0.2186E+01,& - 0.2207E+01, 0.2228E+01, 0.2250E+01, 0.2271E+01,& - 0.2293E+01, 0.2315E+01, 0.2338E+01, 0.2360E+01,& - 0.2383E+01, 0.2406E+01, 0.2430E+01, 0.2454E+01,& - 0.2478E+01, 0.2502E+01, 0.2527E+01, 0.2552E+01,& - 0.2577E+01, 0.2602E+01, 0.2628E+01, 0.2654E+01,& - 0.2681E+01, 0.2708E+01, 0.2735E+01, 0.2763E+01,& - 0.2791E+01, 0.2819E+01, 0.2848E+01, 0.2877E+01,& - 0.2906E+01, 0.2936E+01, 0.2966E+01, 0.2997E+01,& - 0.3028E+01, 0.3060E+01, 0.3092E+01, 0.3124E+01,& - 0.3157E+01, 0.3190E+01, 0.3224E+01, 0.3259E+01,& - 0.3294E+01, 0.3329E+01, 0.3365E+01, 0.3401E+01,& - 0.3438E+01, 0.3476E+01, 0.3514E+01, 0.3553E+01,& - 0.3592E+01, 0.3632E+01, 0.3673E+01, 0.3714E+01,& - 0.3756E+01, 0.3799E+01, 0.3842E+01, 0.3886E+01,& - 0.3931E+01, 0.3977E+01, 0.4023E+01, 0.4071E+01,& - 0.4119E+01, 0.4168E+01, 0.4217E+01, 0.4268E+01,& - 0.4320E+01, 0.4373E+01, 0.4427E+01, 0.4481E+01,& - 0.4537E+01, 0.4594E+01, 0.4653E+01, 0.4712E+01,& - 0.4772E+01, 0.4834E+01, 0.4897E+01, 0.4962E+01,& - 0.5028E+01, 0.5095E+01, 0.5164E+01, 0.5235E+01,& - 0.5307E+01, 0.5381E+01, 0.5457E+01, 0.5535E+01,& - 0.5614E+01, 0.5696E+01, 0.5780E+01, 0.5866E+01,& - 0.5954E+01, 0.6045E+01, 0.6139E+01, 0.6235E+01,& - 0.6334E+01, 0.6436E+01, 0.6541E+01, 0.6650E+01,& - 0.6762E+01, 0.6878E+01, 0.6998E+01, 0.7122E+01,& - 0.7251E+01, 0.7384E+01, 0.7523E+01, 0.7667E+01,& - 0.7817E+01, 0.7974E+01, 0.8138E+01, 0.8309E+01,& - 0.8488E+01, 0.8677E+01, 0.8874E+01, 0.9084E+01,& - 0.9304E+01, 0.9538E+01, 0.9787E+01, 0.1005E+02,& - 0.1034E+02, 0.1064E+02, 0.1097E+02, 0.1133E+02,& - 0.1173E+02, 0.1216E+02, 0.1264E+02, 0.1319E+02,& - 0.1381E+02, 0.1453E+02, 0.1540E+02, 0.1647E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 96) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.4398E-04, 0.4398E-04, 0.4398E-04, 0.4398E-04,& - 0.4398E-04, 0.4398E-04, 0.4398E-04, 0.4398E-04,& - 0.4398E-04, 0.4398E-04, 0.4398E-04, 0.4398E-04,& - 0.4398E-04, 0.4398E-04, 0.4398E-04, 0.7796E-04,& - 0.7796E-04, 0.7796E-04, 0.7796E-04, 0.7796E-04,& - 0.7796E-04, 0.7796E-04, 0.7796E-04, 0.7796E-04,& - 0.7796E-04, 0.7796E-04, 0.1119E-03, 0.1119E-03,& - 0.1119E-03, 0.1119E-03, 0.1119E-03, 0.1119E-03,& - 0.1119E-03, 0.1119E-03, 0.1459E-03, 0.1459E-03,& - 0.1459E-03, 0.1459E-03, 0.1459E-03, 0.1459E-03,& - 0.1799E-03, 0.1799E-03, 0.1799E-03, 0.1799E-03,& - 0.1799E-03, 0.1799E-03, 0.2139E-03, 0.2139E-03,& - 0.2139E-03, 0.2139E-03, 0.2139E-03, 0.2478E-03,& - 0.2478E-03, 0.2478E-03, 0.2478E-03, 0.2818E-03,& - 0.2818E-03, 0.2818E-03, 0.2818E-03, 0.3158E-03,& - 0.3158E-03, 0.3158E-03, 0.3158E-03, 0.3498E-03,& - 0.3498E-03, 0.3498E-03, 0.3838E-03, 0.3838E-03,& - 0.3838E-03, 0.4177E-03, 0.4177E-03, 0.4177E-03,& - 0.4517E-03, 0.4517E-03, 0.4517E-03, 0.4857E-03,& - 0.4857E-03, 0.5197E-03, 0.5197E-03, 0.5197E-03,& - 0.5536E-03, 0.5536E-03, 0.5876E-03, 0.5876E-03,& - 0.6216E-03, 0.6216E-03, 0.6556E-03, 0.6556E-03,& - 0.6896E-03, 0.6896E-03, 0.7235E-03, 0.7235E-03,& - 0.7575E-03, 0.7575E-03, 0.7915E-03, 0.7915E-03,& - 0.8255E-03, 0.8594E-03, 0.8594E-03, 0.8934E-03,& - 0.9274E-03, 0.9274E-03, 0.9614E-03, 0.9954E-03,& - 0.9954E-03, 0.1029E-02, 0.1063E-02, 0.1063E-02,& - 0.1097E-02, 0.1131E-02, 0.1165E-02, 0.1199E-02,& - 0.1199E-02, 0.1233E-02, 0.1267E-02, 0.1301E-02,& - 0.1335E-02, 0.1369E-02, 0.1403E-02, 0.1437E-02,& - 0.1471E-02, 0.1505E-02, 0.1539E-02, 0.1573E-02,& - 0.1607E-02, 0.1641E-02, 0.1675E-02, 0.1709E-02,& - 0.1743E-02, 0.1777E-02, 0.1811E-02, 0.1845E-02,& - 0.1913E-02, 0.1947E-02, 0.1981E-02, 0.2015E-02,& - 0.2049E-02, 0.2117E-02, 0.2151E-02, 0.2185E-02,& - 0.2253E-02, 0.2287E-02, 0.2354E-02, 0.2388E-02,& - 0.2456E-02, 0.2490E-02, 0.2558E-02, 0.2592E-02,& - 0.2660E-02, 0.2694E-02, 0.2762E-02, 0.2830E-02,& - 0.2864E-02, 0.2932E-02, 0.3000E-02, 0.3034E-02,& - 0.3102E-02, 0.3170E-02, 0.3238E-02, 0.3306E-02,& - 0.3374E-02, 0.3442E-02, 0.3510E-02, 0.3578E-02,& - 0.3646E-02, 0.3714E-02, 0.3782E-02, 0.3849E-02,& - 0.3917E-02, 0.3985E-02, 0.4087E-02, 0.4155E-02,& - 0.4223E-02, 0.4325E-02, 0.4393E-02, 0.4461E-02,& - 0.4563E-02, 0.4631E-02, 0.4733E-02, 0.4801E-02,& - 0.4903E-02, 0.5005E-02, 0.5073E-02, 0.5175E-02,& - 0.5277E-02, 0.5378E-02, 0.5480E-02, 0.5582E-02,& - 0.5684E-02, 0.5786E-02, 0.5888E-02, 0.5990E-02,& - 0.6092E-02, 0.6194E-02, 0.6296E-02, 0.6432E-02,& - 0.6534E-02, 0.6636E-02, 0.6772E-02, 0.6873E-02,& - 0.7009E-02, 0.7111E-02, 0.7247E-02, 0.7383E-02,& - 0.7485E-02, 0.7621E-02, 0.7757E-02, 0.7893E-02,& - 0.8029E-02, 0.8165E-02, 0.8301E-02, 0.8436E-02,& - 0.8572E-02, 0.8708E-02, 0.8878E-02, 0.9014E-02,& - 0.9184E-02, 0.9320E-02, 0.9490E-02, 0.9626E-02,& - 0.9796E-02, 0.9965E-02, 0.1010E-01, 0.1027E-01,& - 0.1044E-01, 0.1061E-01, 0.1078E-01, 0.1095E-01,& - 0.1115E-01, 0.1132E-01, 0.1149E-01, 0.1170E-01,& - 0.1187E-01, 0.1207E-01, 0.1224E-01, 0.1245E-01,& - 0.1265E-01, 0.1285E-01, 0.1306E-01, 0.1326E-01,& - 0.1347E-01, 0.1367E-01, 0.1387E-01, 0.1411E-01,& - 0.1431E-01, 0.1455E-01, 0.1476E-01, 0.1499E-01,& - 0.1523E-01, 0.1547E-01, 0.1571E-01, 0.1595E-01,& - 0.1618E-01, 0.1642E-01, 0.1666E-01, 0.1693E-01,& - 0.1717E-01, 0.1744E-01, 0.1768E-01, 0.1795E-01,& - 0.1822E-01, 0.1849E-01, 0.1877E-01, 0.1904E-01,& - 0.1934E-01, 0.1962E-01, 0.1989E-01, 0.2019E-01,& - 0.2050E-01, 0.2080E-01, 0.2108E-01, 0.2138E-01,& - 0.2172E-01, 0.2203E-01, 0.2233E-01, 0.2267E-01,& - 0.2298E-01, 0.2332E-01, 0.2366E-01, 0.2400E-01,& - 0.2434E-01, 0.2468E-01, 0.2502E-01, 0.2536E-01,& - 0.2573E-01, 0.2610E-01, 0.2644E-01, 0.2682E-01,& - 0.2719E-01, 0.2760E-01, 0.2797E-01, 0.2835E-01,& - 0.2876E-01, 0.2913E-01, 0.2954E-01, 0.2994E-01,& - 0.3035E-01, 0.3079E-01, 0.3120E-01, 0.3164E-01,& - 0.3205E-01, 0.3249E-01, 0.3293E-01, 0.3338E-01,& - 0.3382E-01, 0.3429E-01, 0.3474E-01, 0.3521E-01,& - 0.3569E-01, 0.3616E-01, 0.3664E-01, 0.3711E-01,& - 0.3762E-01, 0.3813E-01, 0.3861E-01, 0.3912E-01,& - 0.3963E-01, 0.4017E-01, 0.4068E-01, 0.4122E-01,& - 0.4177E-01, 0.4231E-01, 0.4286E-01, 0.4340E-01,& - 0.4398E-01, 0.4455E-01, 0.4510E-01, 0.4571E-01,& - 0.4629E-01, 0.4687E-01, 0.4748E-01, 0.4809E-01,& - 0.4870E-01, 0.4931E-01, 0.4992E-01, 0.5057E-01,& - 0.5121E-01, 0.5186E-01, 0.5251E-01, 0.5315E-01,& - 0.5383E-01, 0.5451E-01, 0.5519E-01, 0.5587E-01,& - 0.5658E-01, 0.5726E-01, 0.5798E-01, 0.5869E-01,& - 0.5944E-01, 0.6015E-01, 0.6090E-01, 0.6165E-01,& - 0.6239E-01, 0.6317E-01, 0.6392E-01, 0.6470E-01,& - 0.6548E-01, 0.6630E-01, 0.6708E-01, 0.6790E-01,& - 0.6871E-01, 0.6956E-01, 0.7038E-01, 0.7123E-01,& - 0.7208E-01, 0.7296E-01, 0.7381E-01, 0.7469E-01,& - 0.7561E-01, 0.7649E-01, 0.7741E-01, 0.7833E-01,& - 0.7925E-01, 0.8016E-01, 0.8111E-01, 0.8207E-01,& - 0.8302E-01, 0.8400E-01, 0.8499E-01, 0.8597E-01,& - 0.8699E-01, 0.8798E-01, 0.8900E-01, 0.9005E-01,& - 0.9110E-01, 0.9212E-01, 0.9321E-01, 0.9426E-01,& - 0.9535E-01, 0.9644E-01, 0.9756E-01, 0.9868E-01,& - 0.9980E-01, 0.1009E+00, 0.1021E+00, 0.1032E+00,& - 0.1044E+00, 0.1056E+00, 0.1068E+00, 0.1080E+00,& - 0.1092E+00, 0.1104E+00, 0.1117E+00, 0.1129E+00,& - 0.1142E+00, 0.1155E+00, 0.1168E+00, 0.1180E+00,& - 0.1194E+00, 0.1207E+00, 0.1220E+00, 0.1234E+00,& - 0.1247E+00, 0.1261E+00, 0.1275E+00, 0.1289E+00,& - 0.1303E+00, 0.1317E+00, 0.1332E+00, 0.1346E+00,& - 0.1361E+00, 0.1376E+00, 0.1391E+00, 0.1406E+00,& - 0.1421E+00, 0.1437E+00, 0.1452E+00, 0.1468E+00,& - 0.1484E+00, 0.1500E+00, 0.1516E+00, 0.1532E+00,& - 0.1548E+00, 0.1565E+00, 0.1582E+00, 0.1599E+00,& - 0.1616E+00, 0.1633E+00, 0.1650E+00, 0.1668E+00,& - 0.1685E+00, 0.1703E+00, 0.1721E+00, 0.1739E+00,& - 0.1757E+00, 0.1776E+00, 0.1795E+00, 0.1813E+00,& - 0.1833E+00, 0.1852E+00, 0.1871E+00, 0.1891E+00,& - 0.1910E+00, 0.1930E+00, 0.1950E+00, 0.1970E+00,& - 0.1991E+00, 0.2011E+00, 0.2032E+00, 0.2053E+00,& - 0.2074E+00, 0.2095E+00, 0.2117E+00, 0.2139E+00,& - 0.2161E+00, 0.2183E+00, 0.2205E+00, 0.2227E+00,& - 0.2250E+00, 0.2273E+00, 0.2296E+00, 0.2319E+00,& - 0.2343E+00, 0.2367E+00, 0.2391E+00, 0.2415E+00,& - 0.2439E+00, 0.2464E+00, 0.2489E+00, 0.2513E+00,& - 0.2539E+00, 0.2564E+00, 0.2590E+00, 0.2616E+00,& - 0.2642E+00, 0.2668E+00, 0.2695E+00, 0.2722E+00,& - 0.2749E+00, 0.2776E+00, 0.2804E+00, 0.2831E+00,& - 0.2859E+00, 0.2888E+00, 0.2916E+00, 0.2945E+00,& - 0.2974E+00, 0.3003E+00, 0.3033E+00, 0.3063E+00,& - 0.3092E+00, 0.3123E+00, 0.3154E+00, 0.3184E+00,& - 0.3215E+00, 0.3247E+00, 0.3278E+00, 0.3310E+00,& - 0.3342E+00, 0.3375E+00, 0.3408E+00, 0.3441E+00,& - 0.3474E+00, 0.3508E+00, 0.3542E+00, 0.3576E+00,& - 0.3610E+00, 0.3645E+00, 0.3680E+00, 0.3715E+00,& - 0.3751E+00, 0.3787E+00, 0.3823E+00, 0.3860E+00,& - 0.3897E+00, 0.3934E+00, 0.3972E+00, 0.4009E+00,& - 0.4048E+00, 0.4086E+00, 0.4125E+00, 0.4164E+00,& - 0.4204E+00, 0.4244E+00, 0.4284E+00, 0.4324E+00,& - 0.4366E+00, 0.4407E+00, 0.4448E+00, 0.4490E+00,& - 0.4533E+00, 0.4575E+00, 0.4618E+00, 0.4662E+00,& - 0.4706E+00, 0.4750E+00, 0.4794E+00, 0.4839E+00,& - 0.4885E+00, 0.4930E+00, 0.4976E+00, 0.5023E+00,& - 0.5070E+00, 0.5117E+00, 0.5165E+00, 0.5213E+00,& - 0.5262E+00, 0.5310E+00, 0.5360E+00, 0.5410E+00,& - 0.5460E+00, 0.5511E+00, 0.5562E+00, 0.5613E+00,& - 0.5665E+00, 0.5718E+00, 0.5771E+00, 0.5824E+00,& - 0.5878E+00, 0.5932E+00, 0.5987E+00, 0.6042E+00,& - 0.6098E+00, 0.6154E+00, 0.6210E+00, 0.6268E+00,& - 0.6325E+00, 0.6383E+00, 0.6442E+00, 0.6501E+00,& - 0.6560E+00, 0.6621E+00, 0.6681E+00, 0.6743E+00,& - 0.6804E+00, 0.6867E+00, 0.6929E+00, 0.6993E+00,& - 0.7057E+00, 0.7121E+00, 0.7186E+00, 0.7252E+00,& - 0.7318E+00, 0.7384E+00, 0.7452E+00, 0.7520E+00,& - 0.7588E+00, 0.7657E+00, 0.7727E+00, 0.7797E+00,& - 0.7868E+00, 0.7940E+00, 0.8012E+00, 0.8085E+00,& - 0.8158E+00, 0.8232E+00, 0.8307E+00, 0.8382E+00,& - 0.8458E+00, 0.8535E+00, 0.8613E+00, 0.8691E+00,& - 0.8770E+00, 0.8849E+00, 0.8929E+00, 0.9010E+00,& - 0.9092E+00, 0.9174E+00, 0.9257E+00, 0.9341E+00,& - 0.9426E+00, 0.9511E+00, 0.9597E+00, 0.9684E+00,& - 0.9772E+00, 0.9860E+00, 0.9950E+00, 0.1004E+01,& - 0.1013E+01, 0.1022E+01, 0.1032E+01, 0.1041E+01,& - 0.1050E+01, 0.1060E+01, 0.1069E+01, 0.1079E+01,& - 0.1089E+01, 0.1099E+01, 0.1109E+01, 0.1119E+01,& - 0.1129E+01, 0.1139E+01, 0.1149E+01, 0.1160E+01,& - 0.1170E+01, 0.1181E+01, 0.1192E+01, 0.1203E+01,& - 0.1213E+01, 0.1224E+01, 0.1236E+01, 0.1247E+01,& - 0.1258E+01, 0.1270E+01, 0.1281E+01, 0.1293E+01,& - 0.1305E+01, 0.1317E+01, 0.1329E+01, 0.1341E+01,& - 0.1353E+01, 0.1365E+01, 0.1378E+01, 0.1390E+01,& - 0.1403E+01, 0.1416E+01, 0.1429E+01, 0.1442E+01,& - 0.1455E+01, 0.1468E+01, 0.1482E+01, 0.1496E+01,& - 0.1509E+01, 0.1523E+01, 0.1537E+01, 0.1551E+01,& - 0.1566E+01, 0.1580E+01, 0.1595E+01, 0.1610E+01,& - 0.1624E+01, 0.1640E+01, 0.1655E+01, 0.1670E+01,& - 0.1686E+01, 0.1701E+01, 0.1717E+01, 0.1733E+01,& - 0.1749E+01, 0.1766E+01, 0.1782E+01, 0.1799E+01,& - 0.1816E+01, 0.1833E+01, 0.1850E+01, 0.1868E+01,& - 0.1885E+01, 0.1903E+01, 0.1921E+01, 0.1939E+01,& - 0.1958E+01, 0.1976E+01, 0.1995E+01, 0.2014E+01,& - 0.2033E+01, 0.2053E+01, 0.2072E+01, 0.2092E+01,& - 0.2112E+01, 0.2132E+01, 0.2153E+01, 0.2174E+01,& - 0.2195E+01, 0.2216E+01, 0.2238E+01, 0.2259E+01,& - 0.2281E+01, 0.2304E+01, 0.2326E+01, 0.2349E+01,& - 0.2372E+01, 0.2396E+01, 0.2419E+01, 0.2443E+01,& - 0.2467E+01, 0.2492E+01, 0.2517E+01, 0.2542E+01,& - 0.2567E+01, 0.2593E+01, 0.2619E+01, 0.2646E+01,& - 0.2672E+01, 0.2700E+01, 0.2727E+01, 0.2755E+01,& - 0.2783E+01, 0.2812E+01, 0.2841E+01, 0.2870E+01,& - 0.2900E+01, 0.2930E+01, 0.2961E+01, 0.2992E+01,& - 0.3023E+01, 0.3055E+01, 0.3087E+01, 0.3120E+01,& - 0.3153E+01, 0.3187E+01, 0.3221E+01, 0.3256E+01,& - 0.3291E+01, 0.3327E+01, 0.3363E+01, 0.3400E+01,& - 0.3437E+01, 0.3475E+01, 0.3514E+01, 0.3553E+01,& - 0.3593E+01, 0.3634E+01, 0.3675E+01, 0.3716E+01,& - 0.3759E+01, 0.3802E+01, 0.3846E+01, 0.3891E+01,& - 0.3936E+01, 0.3982E+01, 0.4029E+01, 0.4077E+01,& - 0.4126E+01, 0.4175E+01, 0.4226E+01, 0.4277E+01,& - 0.4330E+01, 0.4383E+01, 0.4438E+01, 0.4493E+01,& - 0.4550E+01, 0.4608E+01, 0.4666E+01, 0.4727E+01,& - 0.4788E+01, 0.4851E+01, 0.4915E+01, 0.4980E+01,& - 0.5047E+01, 0.5115E+01, 0.5185E+01, 0.5257E+01,& - 0.5330E+01, 0.5405E+01, 0.5482E+01, 0.5561E+01,& - 0.5642E+01, 0.5724E+01, 0.5810E+01, 0.5897E+01,& - 0.5987E+01, 0.6078E+01, 0.6174E+01, 0.6271E+01,& - 0.6372E+01, 0.6475E+01, 0.6582E+01, 0.6692E+01,& - 0.6806E+01, 0.6924E+01, 0.7046E+01, 0.7172E+01,& - 0.7302E+01, 0.7438E+01, 0.7579E+01, 0.7726E+01,& - 0.7878E+01, 0.8037E+01, 0.8204E+01, 0.8378E+01,& - 0.8560E+01, 0.8751E+01, 0.8953E+01, 0.9165E+01,& - 0.9389E+01, 0.9627E+01, 0.9880E+01, 0.1015E+02,& - 0.1044E+02, 0.1075E+02, 0.1109E+02, 0.1145E+02,& - 0.1185E+02, 0.1229E+02, 0.1279E+02, 0.1334E+02,& - 0.1397E+02, 0.1471E+02, 0.1559E+02, 0.1668E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 97) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.4457E-04, 0.4457E-04,& - 0.4457E-04, 0.4457E-04, 0.4457E-04, 0.4457E-04,& - 0.4457E-04, 0.4457E-04, 0.4457E-04, 0.4457E-04,& - 0.4457E-04, 0.4457E-04, 0.4457E-04, 0.4457E-04,& - 0.4457E-04, 0.7914E-04, 0.7914E-04, 0.7914E-04,& - 0.7914E-04, 0.7914E-04, 0.7914E-04, 0.7914E-04,& - 0.7914E-04, 0.7914E-04, 0.7914E-04, 0.7914E-04,& - 0.1137E-03, 0.1137E-03, 0.1137E-03, 0.1137E-03,& - 0.1137E-03, 0.1137E-03, 0.1137E-03, 0.1137E-03,& - 0.1483E-03, 0.1483E-03, 0.1483E-03, 0.1483E-03,& - 0.1483E-03, 0.1483E-03, 0.1483E-03, 0.1829E-03,& - 0.1829E-03, 0.1829E-03, 0.1829E-03, 0.1829E-03,& - 0.2174E-03, 0.2174E-03, 0.2174E-03, 0.2174E-03,& - 0.2174E-03, 0.2520E-03, 0.2520E-03, 0.2520E-03,& - 0.2520E-03, 0.2520E-03, 0.2866E-03, 0.2866E-03,& - 0.2866E-03, 0.2866E-03, 0.3211E-03, 0.3211E-03,& - 0.3211E-03, 0.3557E-03, 0.3557E-03, 0.3557E-03,& - 0.3557E-03, 0.3903E-03, 0.3903E-03, 0.3903E-03,& - 0.4248E-03, 0.4248E-03, 0.4248E-03, 0.4594E-03,& - 0.4594E-03, 0.4594E-03, 0.4940E-03, 0.4940E-03,& - 0.5286E-03, 0.5286E-03, 0.5286E-03, 0.5631E-03,& - 0.5631E-03, 0.5977E-03, 0.5977E-03, 0.6323E-03,& - 0.6323E-03, 0.6668E-03, 0.6668E-03, 0.7014E-03,& - 0.7014E-03, 0.7360E-03, 0.7360E-03, 0.7706E-03,& - 0.7706E-03, 0.8051E-03, 0.8051E-03, 0.8397E-03,& - 0.8743E-03, 0.8743E-03, 0.9088E-03, 0.9434E-03,& - 0.9434E-03, 0.9780E-03, 0.1013E-02, 0.1013E-02,& - 0.1047E-02, 0.1082E-02, 0.1082E-02, 0.1116E-02,& - 0.1151E-02, 0.1185E-02, 0.1220E-02, 0.1220E-02,& - 0.1255E-02, 0.1289E-02, 0.1324E-02, 0.1358E-02,& - 0.1393E-02, 0.1427E-02, 0.1462E-02, 0.1462E-02,& - 0.1497E-02, 0.1531E-02, 0.1566E-02, 0.1600E-02,& - 0.1635E-02, 0.1704E-02, 0.1739E-02, 0.1773E-02,& - 0.1808E-02, 0.1842E-02, 0.1877E-02, 0.1911E-02,& - 0.1946E-02, 0.2015E-02, 0.2050E-02, 0.2084E-02,& - 0.2153E-02, 0.2188E-02, 0.2223E-02, 0.2292E-02,& - 0.2326E-02, 0.2361E-02, 0.2430E-02, 0.2465E-02,& - 0.2534E-02, 0.2568E-02, 0.2637E-02, 0.2672E-02,& - 0.2741E-02, 0.2776E-02, 0.2845E-02, 0.2914E-02,& - 0.2949E-02, 0.3018E-02, 0.3087E-02, 0.3156E-02,& - 0.3191E-02, 0.3260E-02, 0.3329E-02, 0.3398E-02,& - 0.3467E-02, 0.3536E-02, 0.3605E-02, 0.3674E-02,& - 0.3744E-02, 0.3813E-02, 0.3882E-02, 0.3951E-02,& - 0.4055E-02, 0.4124E-02, 0.4193E-02, 0.4262E-02,& - 0.4366E-02, 0.4435E-02, 0.4539E-02, 0.4608E-02,& - 0.4677E-02, 0.4781E-02, 0.4884E-02, 0.4954E-02,& - 0.5057E-02, 0.5126E-02, 0.5230E-02, 0.5334E-02,& - 0.5438E-02, 0.5541E-02, 0.5645E-02, 0.5714E-02,& - 0.5818E-02, 0.5956E-02, 0.6060E-02, 0.6164E-02,& - 0.6267E-02, 0.6371E-02, 0.6475E-02, 0.6613E-02,& - 0.6717E-02, 0.6820E-02, 0.6959E-02, 0.7062E-02,& - 0.7201E-02, 0.7339E-02, 0.7443E-02, 0.7581E-02,& - 0.7719E-02, 0.7858E-02, 0.7961E-02, 0.8100E-02,& - 0.8238E-02, 0.8376E-02, 0.8549E-02, 0.8687E-02,& - 0.8826E-02, 0.8964E-02, 0.9137E-02, 0.9275E-02,& - 0.9413E-02, 0.9586E-02, 0.9759E-02, 0.9897E-02,& - 0.1007E-01, 0.1024E-01, 0.1042E-01, 0.1059E-01,& - 0.1076E-01, 0.1093E-01, 0.1111E-01, 0.1128E-01,& - 0.1145E-01, 0.1163E-01, 0.1183E-01, 0.1201E-01,& - 0.1221E-01, 0.1242E-01, 0.1259E-01, 0.1280E-01,& - 0.1301E-01, 0.1322E-01, 0.1342E-01, 0.1363E-01,& - 0.1384E-01, 0.1405E-01, 0.1429E-01, 0.1450E-01,& - 0.1474E-01, 0.1494E-01, 0.1519E-01, 0.1543E-01,& - 0.1567E-01, 0.1588E-01, 0.1612E-01, 0.1640E-01,& - 0.1664E-01, 0.1688E-01, 0.1712E-01, 0.1740E-01,& - 0.1768E-01, 0.1792E-01, 0.1819E-01, 0.1847E-01,& - 0.1875E-01, 0.1902E-01, 0.1930E-01, 0.1958E-01,& - 0.1989E-01, 0.2016E-01, 0.2048E-01, 0.2075E-01,& - 0.2106E-01, 0.2137E-01, 0.2169E-01, 0.2200E-01,& - 0.2234E-01, 0.2265E-01, 0.2296E-01, 0.2331E-01,& - 0.2366E-01, 0.2397E-01, 0.2431E-01, 0.2466E-01,& - 0.2504E-01, 0.2538E-01, 0.2573E-01, 0.2611E-01,& - 0.2649E-01, 0.2684E-01, 0.2722E-01, 0.2760E-01,& - 0.2798E-01, 0.2839E-01, 0.2877E-01, 0.2919E-01,& - 0.2960E-01, 0.2998E-01, 0.3040E-01, 0.3085E-01,& - 0.3126E-01, 0.3168E-01, 0.3213E-01, 0.3254E-01,& - 0.3299E-01, 0.3344E-01, 0.3389E-01, 0.3437E-01,& - 0.3482E-01, 0.3531E-01, 0.3579E-01, 0.3624E-01,& - 0.3676E-01, 0.3724E-01, 0.3773E-01, 0.3825E-01,& - 0.3873E-01, 0.3925E-01, 0.3977E-01, 0.4032E-01,& - 0.4084E-01, 0.4139E-01, 0.4191E-01, 0.4246E-01,& - 0.4302E-01, 0.4360E-01, 0.4416E-01, 0.4474E-01,& - 0.4530E-01, 0.4589E-01, 0.4651E-01, 0.4710E-01,& - 0.4768E-01, 0.4831E-01, 0.4893E-01, 0.4955E-01,& - 0.5021E-01, 0.5083E-01, 0.5149E-01, 0.5214E-01,& - 0.5280E-01, 0.5346E-01, 0.5415E-01, 0.5484E-01,& - 0.5553E-01, 0.5622E-01, 0.5691E-01, 0.5764E-01,& - 0.5837E-01, 0.5909E-01, 0.5982E-01, 0.6054E-01,& - 0.6130E-01, 0.6206E-01, 0.6282E-01, 0.6362E-01,& - 0.6438E-01, 0.6518E-01, 0.6597E-01, 0.6680E-01,& - 0.6760E-01, 0.6843E-01, 0.6926E-01, 0.7012E-01,& - 0.7095E-01, 0.7181E-01, 0.7268E-01, 0.7358E-01,& - 0.7444E-01, 0.7534E-01, 0.7624E-01, 0.7717E-01,& - 0.7807E-01, 0.7900E-01, 0.7997E-01, 0.8091E-01,& - 0.8187E-01, 0.8284E-01, 0.8381E-01, 0.8481E-01,& - 0.8581E-01, 0.8682E-01, 0.8785E-01, 0.8886E-01,& - 0.8993E-01, 0.9097E-01, 0.9204E-01, 0.9311E-01,& - 0.9418E-01, 0.9529E-01, 0.9639E-01, 0.9750E-01,& - 0.9861E-01, 0.9975E-01, 0.1009E+00, 0.1021E+00,& - 0.1032E+00, 0.1044E+00, 0.1056E+00, 0.1068E+00,& - 0.1080E+00, 0.1093E+00, 0.1105E+00, 0.1118E+00,& - 0.1130E+00, 0.1143E+00, 0.1156E+00, 0.1169E+00,& - 0.1182E+00, 0.1196E+00, 0.1209E+00, 0.1223E+00,& - 0.1236E+00, 0.1250E+00, 0.1264E+00, 0.1278E+00,& - 0.1292E+00, 0.1307E+00, 0.1321E+00, 0.1336E+00,& - 0.1350E+00, 0.1365E+00, 0.1381E+00, 0.1395E+00,& - 0.1411E+00, 0.1426E+00, 0.1442E+00, 0.1458E+00,& - 0.1474E+00, 0.1490E+00, 0.1506E+00, 0.1522E+00,& - 0.1539E+00, 0.1555E+00, 0.1572E+00, 0.1589E+00,& - 0.1606E+00, 0.1624E+00, 0.1641E+00, 0.1659E+00,& - 0.1676E+00, 0.1694E+00, 0.1713E+00, 0.1731E+00,& - 0.1749E+00, 0.1768E+00, 0.1787E+00, 0.1806E+00,& - 0.1825E+00, 0.1844E+00, 0.1864E+00, 0.1884E+00,& - 0.1904E+00, 0.1924E+00, 0.1944E+00, 0.1964E+00,& - 0.1985E+00, 0.2006E+00, 0.2027E+00, 0.2048E+00,& - 0.2069E+00, 0.2091E+00, 0.2112E+00, 0.2134E+00,& - 0.2156E+00, 0.2179E+00, 0.2201E+00, 0.2224E+00,& - 0.2247E+00, 0.2270E+00, 0.2294E+00, 0.2317E+00,& - 0.2341E+00, 0.2365E+00, 0.2389E+00, 0.2414E+00,& - 0.2438E+00, 0.2463E+00, 0.2488E+00, 0.2514E+00,& - 0.2539E+00, 0.2565E+00, 0.2591E+00, 0.2617E+00,& - 0.2644E+00, 0.2671E+00, 0.2698E+00, 0.2725E+00,& - 0.2752E+00, 0.2780E+00, 0.2808E+00, 0.2836E+00,& - 0.2865E+00, 0.2893E+00, 0.2922E+00, 0.2951E+00,& - 0.2981E+00, 0.3011E+00, 0.3041E+00, 0.3071E+00,& - 0.3101E+00, 0.3132E+00, 0.3163E+00, 0.3195E+00,& - 0.3226E+00, 0.3258E+00, 0.3290E+00, 0.3323E+00,& - 0.3356E+00, 0.3388E+00, 0.3422E+00, 0.3455E+00,& - 0.3489E+00, 0.3524E+00, 0.3558E+00, 0.3593E+00,& - 0.3628E+00, 0.3664E+00, 0.3699E+00, 0.3735E+00,& - 0.3771E+00, 0.3808E+00, 0.3845E+00, 0.3883E+00,& - 0.3920E+00, 0.3958E+00, 0.3996E+00, 0.4035E+00,& - 0.4074E+00, 0.4114E+00, 0.4153E+00, 0.4193E+00,& - 0.4234E+00, 0.4274E+00, 0.4315E+00, 0.4357E+00,& - 0.4399E+00, 0.4441E+00, 0.4483E+00, 0.4526E+00,& - 0.4569E+00, 0.4613E+00, 0.4657E+00, 0.4702E+00,& - 0.4746E+00, 0.4792E+00, 0.4837E+00, 0.4883E+00,& - 0.4930E+00, 0.4976E+00, 0.5024E+00, 0.5071E+00,& - 0.5119E+00, 0.5168E+00, 0.5216E+00, 0.5266E+00,& - 0.5315E+00, 0.5365E+00, 0.5416E+00, 0.5467E+00,& - 0.5519E+00, 0.5571E+00, 0.5623E+00, 0.5676E+00,& - 0.5729E+00, 0.5783E+00, 0.5837E+00, 0.5892E+00,& - 0.5947E+00, 0.6003E+00, 0.6059E+00, 0.6116E+00,& - 0.6173E+00, 0.6230E+00, 0.6289E+00, 0.6347E+00,& - 0.6406E+00, 0.6466E+00, 0.6526E+00, 0.6587E+00,& - 0.6648E+00, 0.6710E+00, 0.6773E+00, 0.6836E+00,& - 0.6899E+00, 0.6963E+00, 0.7028E+00, 0.7093E+00,& - 0.7159E+00, 0.7225E+00, 0.7292E+00, 0.7360E+00,& - 0.7428E+00, 0.7496E+00, 0.7566E+00, 0.7636E+00,& - 0.7706E+00, 0.7777E+00, 0.7849E+00, 0.7922E+00,& - 0.7995E+00, 0.8069E+00, 0.8143E+00, 0.8218E+00,& - 0.8294E+00, 0.8370E+00, 0.8447E+00, 0.8525E+00,& - 0.8604E+00, 0.8683E+00, 0.8763E+00, 0.8844E+00,& - 0.8925E+00, 0.9007E+00, 0.9090E+00, 0.9174E+00,& - 0.9258E+00, 0.9343E+00, 0.9429E+00, 0.9516E+00,& - 0.9603E+00, 0.9692E+00, 0.9781E+00, 0.9871E+00,& - 0.9962E+00, 0.1005E+01, 0.1015E+01, 0.1024E+01,& - 0.1033E+01, 0.1043E+01, 0.1052E+01, 0.1062E+01,& - 0.1072E+01, 0.1082E+01, 0.1092E+01, 0.1102E+01,& - 0.1112E+01, 0.1122E+01, 0.1132E+01, 0.1143E+01,& - 0.1153E+01, 0.1164E+01, 0.1175E+01, 0.1186E+01,& - 0.1196E+01, 0.1207E+01, 0.1219E+01, 0.1230E+01,& - 0.1239E+01, 0.1253E+01, 0.1264E+01, 0.1276E+01,& - 0.1288E+01, 0.1300E+01, 0.1312E+01, 0.1324E+01,& - 0.1336E+01, 0.1348E+01, 0.1361E+01, 0.1374E+01,& - 0.1386E+01, 0.1399E+01, 0.1412E+01, 0.1425E+01,& - 0.1439E+01, 0.1452E+01, 0.1465E+01, 0.1479E+01,& - 0.1493E+01, 0.1507E+01, 0.1521E+01, 0.1535E+01,& - 0.1550E+01, 0.1564E+01, 0.1579E+01, 0.1594E+01,& - 0.1608E+01, 0.1624E+01, 0.1639E+01, 0.1654E+01,& - 0.1670E+01, 0.1686E+01, 0.1702E+01, 0.1718E+01,& - 0.1734E+01, 0.1750E+01, 0.1767E+01, 0.1784E+01,& - 0.1801E+01, 0.1818E+01, 0.1835E+01, 0.1853E+01,& - 0.1870E+01, 0.1888E+01, 0.1906E+01, 0.1925E+01,& - 0.1943E+01, 0.1962E+01, 0.1981E+01, 0.2000E+01,& - 0.2019E+01, 0.2039E+01, 0.2059E+01, 0.2079E+01,& - 0.2099E+01, 0.2119E+01, 0.2140E+01, 0.2161E+01,& - 0.2182E+01, 0.2203E+01, 0.2225E+01, 0.2247E+01,& - 0.2269E+01, 0.2292E+01, 0.2314E+01, 0.2337E+01,& - 0.2361E+01, 0.2384E+01, 0.2408E+01, 0.2432E+01,& - 0.2457E+01, 0.2481E+01, 0.2506E+01, 0.2532E+01,& - 0.2557E+01, 0.2583E+01, 0.2610E+01, 0.2636E+01,& - 0.2663E+01, 0.2691E+01, 0.2719E+01, 0.2747E+01,& - 0.2775E+01, 0.2804E+01, 0.2833E+01, 0.2863E+01,& - 0.2893E+01, 0.2923E+01, 0.2954E+01, 0.2986E+01,& - 0.3017E+01, 0.3049E+01, 0.3082E+01, 0.3115E+01,& - 0.3149E+01, 0.3183E+01, 0.3217E+01, 0.3253E+01,& - 0.3288E+01, 0.3324E+01, 0.3361E+01, 0.3398E+01,& - 0.3436E+01, 0.3474E+01, 0.3513E+01, 0.3553E+01,& - 0.3593E+01, 0.3634E+01, 0.3676E+01, 0.3718E+01,& - 0.3761E+01, 0.3805E+01, 0.3849E+01, 0.3894E+01,& - 0.3940E+01, 0.3987E+01, 0.4035E+01, 0.4083E+01,& - 0.4132E+01, 0.4183E+01, 0.4234E+01, 0.4286E+01,& - 0.4339E+01, 0.4393E+01, 0.4448E+01, 0.4504E+01,& - 0.4562E+01, 0.4620E+01, 0.4680E+01, 0.4741E+01,& - 0.4803E+01, 0.4866E+01, 0.4931E+01, 0.4998E+01,& - 0.5065E+01, 0.5135E+01, 0.5206E+01, 0.5278E+01,& - 0.5352E+01, 0.5428E+01, 0.5506E+01, 0.5586E+01,& - 0.5668E+01, 0.5752E+01, 0.5838E+01, 0.5927E+01,& - 0.6018E+01, 0.6111E+01, 0.6208E+01, 0.6307E+01,& - 0.6409E+01, 0.6514E+01, 0.6622E+01, 0.6734E+01,& - 0.6850E+01, 0.6969E+01, 0.7093E+01, 0.7221E+01,& - 0.7353E+01, 0.7491E+01, 0.7634E+01, 0.7783E+01,& - 0.7938E+01, 0.8100E+01, 0.8269E+01, 0.8445E+01,& - 0.8631E+01, 0.8825E+01, 0.9030E+01, 0.9246E+01,& - 0.9474E+01, 0.9716E+01, 0.9973E+01, 0.1025E+02,& - 0.1054E+02, 0.1086E+02, 0.1120E+02, 0.1157E+02,& - 0.1198E+02, 0.1243E+02, 0.1293E+02, 0.1349E+02,& - 0.1414E+02, 0.1489E+02, 0.1579E+02, 0.1690E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 98) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.4517E-04, 0.4517E-04, 0.4517E-04, 0.4517E-04,& - 0.4517E-04, 0.4517E-04, 0.4517E-04, 0.4517E-04,& - 0.4517E-04, 0.4517E-04, 0.4517E-04, 0.4517E-04,& - 0.4517E-04, 0.4517E-04, 0.4517E-04, 0.8034E-04,& - 0.8034E-04, 0.8034E-04, 0.8034E-04, 0.8034E-04,& - 0.8034E-04, 0.8034E-04, 0.8034E-04, 0.8034E-04,& - 0.8034E-04, 0.8034E-04, 0.1155E-03, 0.1155E-03,& - 0.1155E-03, 0.1155E-03, 0.1155E-03, 0.1155E-03,& - 0.1155E-03, 0.1155E-03, 0.1507E-03, 0.1507E-03,& - 0.1507E-03, 0.1507E-03, 0.1507E-03, 0.1507E-03,& - 0.1507E-03, 0.1858E-03, 0.1858E-03, 0.1858E-03,& - 0.1858E-03, 0.1858E-03, 0.1858E-03, 0.2210E-03,& - 0.2210E-03, 0.2210E-03, 0.2210E-03, 0.2210E-03,& - 0.2562E-03, 0.2562E-03, 0.2562E-03, 0.2562E-03,& - 0.2914E-03, 0.2914E-03, 0.2914E-03, 0.2914E-03,& - 0.3265E-03, 0.3265E-03, 0.3265E-03, 0.3265E-03,& - 0.3617E-03, 0.3617E-03, 0.3617E-03, 0.3969E-03,& - 0.3969E-03, 0.3969E-03, 0.3969E-03, 0.4320E-03,& - 0.4320E-03, 0.4320E-03, 0.4672E-03, 0.4672E-03,& - 0.5024E-03, 0.5024E-03, 0.5024E-03, 0.5375E-03,& - 0.5375E-03, 0.5727E-03, 0.5727E-03, 0.5727E-03,& - 0.6079E-03, 0.6079E-03, 0.6431E-03, 0.6431E-03,& - 0.6782E-03, 0.6782E-03, 0.7134E-03, 0.7134E-03,& - 0.7486E-03, 0.7486E-03, 0.7837E-03, 0.7837E-03,& - 0.8189E-03, 0.8541E-03, 0.8541E-03, 0.8892E-03,& - 0.8892E-03, 0.9244E-03, 0.9596E-03, 0.9596E-03,& - 0.9948E-03, 0.1030E-02, 0.1030E-02, 0.1065E-02,& - 0.1100E-02, 0.1100E-02, 0.1135E-02, 0.1171E-02,& - 0.1206E-02, 0.1241E-02, 0.1241E-02, 0.1276E-02,& - 0.1311E-02, 0.1346E-02, 0.1382E-02, 0.1417E-02,& - 0.1452E-02, 0.1452E-02, 0.1487E-02, 0.1522E-02,& - 0.1557E-02, 0.1593E-02, 0.1628E-02, 0.1663E-02,& - 0.1698E-02, 0.1733E-02, 0.1804E-02, 0.1839E-02,& - 0.1874E-02, 0.1909E-02, 0.1944E-02, 0.1980E-02,& - 0.2050E-02, 0.2085E-02, 0.2120E-02, 0.2155E-02,& - 0.2226E-02, 0.2261E-02, 0.2296E-02, 0.2366E-02,& - 0.2402E-02, 0.2437E-02, 0.2507E-02, 0.2542E-02,& - 0.2613E-02, 0.2648E-02, 0.2718E-02, 0.2753E-02,& - 0.2824E-02, 0.2894E-02, 0.2929E-02, 0.2999E-02,& - 0.3070E-02, 0.3105E-02, 0.3175E-02, 0.3246E-02,& - 0.3316E-02, 0.3386E-02, 0.3457E-02, 0.3527E-02,& - 0.3562E-02, 0.3632E-02, 0.3703E-02, 0.3808E-02,& - 0.3879E-02, 0.3949E-02, 0.4019E-02, 0.4090E-02,& - 0.4160E-02, 0.4266E-02, 0.4336E-02, 0.4406E-02,& - 0.4477E-02, 0.4582E-02, 0.4652E-02, 0.4758E-02,& - 0.4828E-02, 0.4934E-02, 0.5004E-02, 0.5110E-02,& - 0.5215E-02, 0.5285E-02, 0.5391E-02, 0.5496E-02,& - 0.5602E-02, 0.5707E-02, 0.5813E-02, 0.5919E-02,& - 0.6024E-02, 0.6130E-02, 0.6235E-02, 0.6341E-02,& - 0.6446E-02, 0.6552E-02, 0.6692E-02, 0.6798E-02,& - 0.6903E-02, 0.7044E-02, 0.7149E-02, 0.7290E-02,& - 0.7431E-02, 0.7536E-02, 0.7677E-02, 0.7818E-02,& - 0.7923E-02, 0.8064E-02, 0.8205E-02, 0.8345E-02,& - 0.8486E-02, 0.8627E-02, 0.8802E-02, 0.8943E-02,& - 0.9084E-02, 0.9224E-02, 0.9400E-02, 0.9541E-02,& - 0.9717E-02, 0.9858E-02, 0.1003E-01, 0.1021E-01,& - 0.1035E-01, 0.1053E-01, 0.1070E-01, 0.1088E-01,& - 0.1105E-01, 0.1123E-01, 0.1144E-01, 0.1162E-01,& - 0.1179E-01, 0.1197E-01, 0.1218E-01, 0.1239E-01,& - 0.1257E-01, 0.1278E-01, 0.1299E-01, 0.1316E-01,& - 0.1337E-01, 0.1359E-01, 0.1380E-01, 0.1404E-01,& - 0.1425E-01, 0.1446E-01, 0.1471E-01, 0.1492E-01,& - 0.1517E-01, 0.1538E-01, 0.1563E-01, 0.1587E-01,& - 0.1612E-01, 0.1636E-01, 0.1661E-01, 0.1686E-01,& - 0.1714E-01, 0.1738E-01, 0.1763E-01, 0.1791E-01,& - 0.1819E-01, 0.1844E-01, 0.1872E-01, 0.1900E-01,& - 0.1928E-01, 0.1960E-01, 0.1988E-01, 0.2016E-01,& - 0.2048E-01, 0.2076E-01, 0.2108E-01, 0.2139E-01,& - 0.2171E-01, 0.2203E-01, 0.2234E-01, 0.2266E-01,& - 0.2301E-01, 0.2333E-01, 0.2368E-01, 0.2400E-01,& - 0.2435E-01, 0.2470E-01, 0.2505E-01, 0.2540E-01,& - 0.2579E-01, 0.2614E-01, 0.2653E-01, 0.2688E-01,& - 0.2727E-01, 0.2765E-01, 0.2804E-01, 0.2846E-01,& - 0.2885E-01, 0.2924E-01, 0.2966E-01, 0.3008E-01,& - 0.3050E-01, 0.3092E-01, 0.3135E-01, 0.3177E-01,& - 0.3223E-01, 0.3265E-01, 0.3310E-01, 0.3356E-01,& - 0.3402E-01, 0.3448E-01, 0.3497E-01, 0.3543E-01,& - 0.3592E-01, 0.3641E-01, 0.3690E-01, 0.3740E-01,& - 0.3789E-01, 0.3838E-01, 0.3891E-01, 0.3944E-01,& - 0.3996E-01, 0.4049E-01, 0.4102E-01, 0.4158E-01,& - 0.4211E-01, 0.4267E-01, 0.4323E-01, 0.4383E-01,& - 0.4439E-01, 0.4496E-01, 0.4555E-01, 0.4615E-01,& - 0.4675E-01, 0.4735E-01, 0.4798E-01, 0.4861E-01,& - 0.4925E-01, 0.4988E-01, 0.5051E-01, 0.5115E-01,& - 0.5181E-01, 0.5248E-01, 0.5315E-01, 0.5382E-01,& - 0.5452E-01, 0.5523E-01, 0.5589E-01, 0.5663E-01,& - 0.5734E-01, 0.5804E-01, 0.5878E-01, 0.5952E-01,& - 0.6029E-01, 0.6103E-01, 0.6180E-01, 0.6258E-01,& - 0.6335E-01, 0.6412E-01, 0.6493E-01, 0.6574E-01,& - 0.6655E-01, 0.6736E-01, 0.6820E-01, 0.6905E-01,& - 0.6989E-01, 0.7074E-01, 0.7162E-01, 0.7249E-01,& - 0.7337E-01, 0.7425E-01, 0.7517E-01, 0.7608E-01,& - 0.7700E-01, 0.7791E-01, 0.7886E-01, 0.7981E-01,& - 0.8076E-01, 0.8174E-01, 0.8273E-01, 0.8371E-01,& - 0.8470E-01, 0.8572E-01, 0.8674E-01, 0.8776E-01,& - 0.8881E-01, 0.8987E-01, 0.9092E-01, 0.9198E-01,& - 0.9307E-01, 0.9416E-01, 0.9528E-01, 0.9641E-01,& - 0.9754E-01, 0.9866E-01, 0.9982E-01, 0.1010E+00,& - 0.1021E+00, 0.1033E+00, 0.1045E+00, 0.1057E+00,& - 0.1070E+00, 0.1082E+00, 0.1094E+00, 0.1107E+00,& - 0.1120E+00, 0.1133E+00, 0.1146E+00, 0.1159E+00,& - 0.1172E+00, 0.1185E+00, 0.1199E+00, 0.1212E+00,& - 0.1226E+00, 0.1240E+00, 0.1254E+00, 0.1268E+00,& - 0.1282E+00, 0.1296E+00, 0.1311E+00, 0.1326E+00,& - 0.1341E+00, 0.1356E+00, 0.1371E+00, 0.1386E+00,& - 0.1401E+00, 0.1417E+00, 0.1433E+00, 0.1448E+00,& - 0.1465E+00, 0.1481E+00, 0.1497E+00, 0.1513E+00,& - 0.1530E+00, 0.1547E+00, 0.1564E+00, 0.1581E+00,& - 0.1598E+00, 0.1616E+00, 0.1633E+00, 0.1651E+00,& - 0.1669E+00, 0.1687E+00, 0.1705E+00, 0.1724E+00,& - 0.1742E+00, 0.1761E+00, 0.1780E+00, 0.1799E+00,& - 0.1819E+00, 0.1838E+00, 0.1858E+00, 0.1878E+00,& - 0.1898E+00, 0.1918E+00, 0.1939E+00, 0.1959E+00,& - 0.1980E+00, 0.2001E+00, 0.2022E+00, 0.2044E+00,& - 0.2065E+00, 0.2087E+00, 0.2109E+00, 0.2131E+00,& - 0.2154E+00, 0.2176E+00, 0.2199E+00, 0.2222E+00,& - 0.2245E+00, 0.2269E+00, 0.2292E+00, 0.2316E+00,& - 0.2341E+00, 0.2365E+00, 0.2390E+00, 0.2414E+00,& - 0.2439E+00, 0.2464E+00, 0.2490E+00, 0.2516E+00,& - 0.2541E+00, 0.2568E+00, 0.2594E+00, 0.2621E+00,& - 0.2648E+00, 0.2675E+00, 0.2702E+00, 0.2730E+00,& - 0.2758E+00, 0.2786E+00, 0.2814E+00, 0.2843E+00,& - 0.2872E+00, 0.2901E+00, 0.2930E+00, 0.2960E+00,& - 0.2990E+00, 0.3020E+00, 0.3051E+00, 0.3081E+00,& - 0.3112E+00, 0.3144E+00, 0.3175E+00, 0.3207E+00,& - 0.3239E+00, 0.3272E+00, 0.3305E+00, 0.3338E+00,& - 0.3371E+00, 0.3405E+00, 0.3439E+00, 0.3473E+00,& - 0.3507E+00, 0.3542E+00, 0.3577E+00, 0.3613E+00,& - 0.3649E+00, 0.3684E+00, 0.3721E+00, 0.3758E+00,& - 0.3795E+00, 0.3832E+00, 0.3870E+00, 0.3908E+00,& - 0.3946E+00, 0.3985E+00, 0.4025E+00, 0.4064E+00,& - 0.4104E+00, 0.4144E+00, 0.4184E+00, 0.4225E+00,& - 0.4267E+00, 0.4308E+00, 0.4350E+00, 0.4392E+00,& - 0.4435E+00, 0.4478E+00, 0.4522E+00, 0.4565E+00,& - 0.4610E+00, 0.4654E+00, 0.4699E+00, 0.4745E+00,& - 0.4790E+00, 0.4837E+00, 0.4884E+00, 0.4931E+00,& - 0.4978E+00, 0.5026E+00, 0.5074E+00, 0.5123E+00,& - 0.5173E+00, 0.5222E+00, 0.5272E+00, 0.5323E+00,& - 0.5374E+00, 0.5425E+00, 0.5477E+00, 0.5529E+00,& - 0.5582E+00, 0.5635E+00, 0.5689E+00, 0.5743E+00,& - 0.5798E+00, 0.5853E+00, 0.5909E+00, 0.5965E+00,& - 0.6022E+00, 0.6079E+00, 0.6137E+00, 0.6195E+00,& - 0.6254E+00, 0.6313E+00, 0.6373E+00, 0.6433E+00,& - 0.6493E+00, 0.6555E+00, 0.6617E+00, 0.6680E+00,& - 0.6742E+00, 0.6806E+00, 0.6870E+00, 0.6935E+00,& - 0.7000E+00, 0.7066E+00, 0.7133E+00, 0.7200E+00,& - 0.7268E+00, 0.7336E+00, 0.7405E+00, 0.7474E+00,& - 0.7545E+00, 0.7615E+00, 0.7687E+00, 0.7759E+00,& - 0.7832E+00, 0.7905E+00, 0.7979E+00, 0.8054E+00,& - 0.8130E+00, 0.8206E+00, 0.8283E+00, 0.8360E+00,& - 0.8438E+00, 0.8517E+00, 0.8597E+00, 0.8677E+00,& - 0.8758E+00, 0.8840E+00, 0.8923E+00, 0.9006E+00,& - 0.9090E+00, 0.9175E+00, 0.9261E+00, 0.9348E+00,& - 0.9435E+00, 0.9523E+00, 0.9612E+00, 0.9702E+00,& - 0.9792E+00, 0.9883E+00, 0.9976E+00, 0.1007E+01,& - 0.1016E+01, 0.1026E+01, 0.1035E+01, 0.1045E+01,& - 0.1055E+01, 0.1065E+01, 0.1075E+01, 0.1085E+01,& - 0.1095E+01, 0.1105E+01, 0.1115E+01, 0.1126E+01,& - 0.1136E+01, 0.1147E+01, 0.1158E+01, 0.1168E+01,& - 0.1179E+01, 0.1190E+01, 0.1202E+01, 0.1213E+01,& - 0.1224E+01, 0.1236E+01, 0.1247E+01, 0.1259E+01,& - 0.1271E+01, 0.1283E+01, 0.1295E+01, 0.1307E+01,& - 0.1319E+01, 0.1332E+01, 0.1344E+01, 0.1357E+01,& - 0.1369E+01, 0.1382E+01, 0.1395E+01, 0.1409E+01,& - 0.1422E+01, 0.1435E+01, 0.1449E+01, 0.1463E+01,& - 0.1476E+01, 0.1490E+01, 0.1504E+01, 0.1519E+01,& - 0.1533E+01, 0.1548E+01, 0.1562E+01, 0.1577E+01,& - 0.1592E+01, 0.1607E+01, 0.1623E+01, 0.1638E+01,& - 0.1654E+01, 0.1670E+01, 0.1686E+01, 0.1702E+01,& - 0.1718E+01, 0.1735E+01, 0.1751E+01, 0.1768E+01,& - 0.1785E+01, 0.1802E+01, 0.1820E+01, 0.1838E+01,& - 0.1855E+01, 0.1873E+01, 0.1892E+01, 0.1910E+01,& - 0.1929E+01, 0.1947E+01, 0.1966E+01, 0.1986E+01,& - 0.2005E+01, 0.2025E+01, 0.2045E+01, 0.2065E+01,& - 0.2085E+01, 0.2106E+01, 0.2126E+01, 0.2148E+01,& - 0.2169E+01, 0.2190E+01, 0.2212E+01, 0.2234E+01,& - 0.2257E+01, 0.2279E+01, 0.2302E+01, 0.2325E+01,& - 0.2349E+01, 0.2372E+01, 0.2397E+01, 0.2421E+01,& - 0.2445E+01, 0.2470E+01, 0.2496E+01, 0.2521E+01,& - 0.2547E+01, 0.2573E+01, 0.2600E+01, 0.2627E+01,& - 0.2654E+01, 0.2682E+01, 0.2710E+01, 0.2738E+01,& - 0.2767E+01, 0.2796E+01, 0.2825E+01, 0.2855E+01,& - 0.2885E+01, 0.2916E+01, 0.2947E+01, 0.2979E+01,& - 0.3011E+01, 0.3043E+01, 0.3076E+01, 0.3110E+01,& - 0.3144E+01, 0.3178E+01, 0.3213E+01, 0.3249E+01,& - 0.3285E+01, 0.3321E+01, 0.3358E+01, 0.3396E+01,& - 0.3434E+01, 0.3473E+01, 0.3512E+01, 0.3552E+01,& - 0.3593E+01, 0.3634E+01, 0.3676E+01, 0.3719E+01,& - 0.3763E+01, 0.3807E+01, 0.3852E+01, 0.3897E+01,& - 0.3944E+01, 0.3991E+01, 0.4039E+01, 0.4088E+01,& - 0.4138E+01, 0.4189E+01, 0.4241E+01, 0.4293E+01,& - 0.4347E+01, 0.4402E+01, 0.4458E+01, 0.4515E+01,& - 0.4573E+01, 0.4632E+01, 0.4692E+01, 0.4754E+01,& - 0.4817E+01, 0.4881E+01, 0.4947E+01, 0.5014E+01,& - 0.5082E+01, 0.5153E+01, 0.5225E+01, 0.5299E+01,& - 0.5374E+01, 0.5451E+01, 0.5530E+01, 0.5611E+01,& - 0.5694E+01, 0.5779E+01, 0.5867E+01, 0.5956E+01,& - 0.6049E+01, 0.6144E+01, 0.6241E+01, 0.6342E+01,& - 0.6445E+01, 0.6552E+01, 0.6662E+01, 0.6775E+01,& - 0.6893E+01, 0.7014E+01, 0.7139E+01, 0.7269E+01,& - 0.7404E+01, 0.7544E+01, 0.7689E+01, 0.7840E+01,& - 0.7998E+01, 0.8162E+01, 0.8334E+01, 0.8513E+01,& - 0.8701E+01, 0.8899E+01, 0.9107E+01, 0.9326E+01,& - 0.9558E+01, 0.9804E+01, 0.1007E+02, 0.1034E+02,& - 0.1064E+02, 0.1096E+02, 0.1131E+02, 0.1169E+02,& - 0.1210E+02, 0.1256E+02, 0.1307E+02, 0.1364E+02,& - 0.1430E+02, 0.1507E+02, 0.1598E+02, 0.1711E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:, 99) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.4577E-04, 0.4577E-04, 0.4577E-04,& - 0.4577E-04, 0.4577E-04, 0.4577E-04, 0.4577E-04,& - 0.4577E-04, 0.4577E-04, 0.4577E-04, 0.4577E-04,& - 0.4577E-04, 0.4577E-04, 0.4577E-04, 0.4577E-04,& - 0.4577E-04, 0.8155E-04, 0.8155E-04, 0.8155E-04,& - 0.8155E-04, 0.8155E-04, 0.8155E-04, 0.8155E-04,& - 0.8155E-04, 0.8155E-04, 0.8155E-04, 0.8155E-04,& - 0.1173E-03, 0.1173E-03, 0.1173E-03, 0.1173E-03,& - 0.1173E-03, 0.1173E-03, 0.1173E-03, 0.1173E-03,& - 0.1173E-03, 0.1531E-03, 0.1531E-03, 0.1531E-03,& - 0.1531E-03, 0.1531E-03, 0.1531E-03, 0.1531E-03,& - 0.1889E-03, 0.1889E-03, 0.1889E-03, 0.1889E-03,& - 0.1889E-03, 0.2246E-03, 0.2246E-03, 0.2246E-03,& - 0.2246E-03, 0.2246E-03, 0.2604E-03, 0.2604E-03,& - 0.2604E-03, 0.2604E-03, 0.2604E-03, 0.2962E-03,& - 0.2962E-03, 0.2962E-03, 0.2962E-03, 0.3320E-03,& - 0.3320E-03, 0.3320E-03, 0.3320E-03, 0.3677E-03,& - 0.3677E-03, 0.3677E-03, 0.4035E-03, 0.4035E-03,& - 0.4035E-03, 0.4393E-03, 0.4393E-03, 0.4393E-03,& - 0.4751E-03, 0.4751E-03, 0.4751E-03, 0.5108E-03,& - 0.5108E-03, 0.5108E-03, 0.5466E-03, 0.5466E-03,& - 0.5824E-03, 0.5824E-03, 0.5824E-03, 0.6182E-03,& - 0.6182E-03, 0.6539E-03, 0.6539E-03, 0.6897E-03,& - 0.6897E-03, 0.7255E-03, 0.7255E-03, 0.7613E-03,& - 0.7613E-03, 0.7970E-03, 0.7970E-03, 0.8328E-03,& - 0.8686E-03, 0.8686E-03, 0.9044E-03, 0.9044E-03,& - 0.9401E-03, 0.9759E-03, 0.9759E-03, 0.1012E-02,& - 0.1047E-02, 0.1047E-02, 0.1083E-02, 0.1119E-02,& - 0.1119E-02, 0.1155E-02, 0.1191E-02, 0.1226E-02,& - 0.1262E-02, 0.1262E-02, 0.1298E-02, 0.1334E-02,& - 0.1369E-02, 0.1405E-02, 0.1441E-02, 0.1441E-02,& - 0.1477E-02, 0.1513E-02, 0.1548E-02, 0.1584E-02,& - 0.1620E-02, 0.1656E-02, 0.1691E-02, 0.1727E-02,& - 0.1763E-02, 0.1799E-02, 0.1870E-02, 0.1906E-02,& - 0.1942E-02, 0.1978E-02, 0.2013E-02, 0.2049E-02,& - 0.2121E-02, 0.2156E-02, 0.2192E-02, 0.2228E-02,& - 0.2300E-02, 0.2335E-02, 0.2371E-02, 0.2443E-02,& - 0.2478E-02, 0.2550E-02, 0.2586E-02, 0.2657E-02,& - 0.2693E-02, 0.2765E-02, 0.2800E-02, 0.2872E-02,& - 0.2908E-02, 0.2979E-02, 0.3051E-02, 0.3087E-02,& - 0.3158E-02, 0.3230E-02, 0.3301E-02, 0.3373E-02,& - 0.3409E-02, 0.3480E-02, 0.3552E-02, 0.3623E-02,& - 0.3695E-02, 0.3766E-02, 0.3838E-02, 0.3909E-02,& - 0.3981E-02, 0.4053E-02, 0.4160E-02, 0.4231E-02,& - 0.4303E-02, 0.4375E-02, 0.4482E-02, 0.4553E-02,& - 0.4625E-02, 0.4732E-02, 0.4804E-02, 0.4911E-02,& - 0.4983E-02, 0.5090E-02, 0.5197E-02, 0.5269E-02,& - 0.5376E-02, 0.5484E-02, 0.5555E-02, 0.5662E-02,& - 0.5770E-02, 0.5877E-02, 0.5984E-02, 0.6092E-02,& - 0.6199E-02, 0.6306E-02, 0.6414E-02, 0.6521E-02,& - 0.6664E-02, 0.6771E-02, 0.6879E-02, 0.7022E-02,& - 0.7129E-02, 0.7272E-02, 0.7380E-02, 0.7523E-02,& - 0.7630E-02, 0.7773E-02, 0.7916E-02, 0.8059E-02,& - 0.8202E-02, 0.8310E-02, 0.8453E-02, 0.8596E-02,& - 0.8775E-02, 0.8918E-02, 0.9061E-02, 0.9204E-02,& - 0.9347E-02, 0.9526E-02, 0.9669E-02, 0.9848E-02,& - 0.9991E-02, 0.1017E-01, 0.1035E-01, 0.1053E-01,& - 0.1067E-01, 0.1085E-01, 0.1103E-01, 0.1121E-01,& - 0.1139E-01, 0.1160E-01, 0.1178E-01, 0.1196E-01,& - 0.1217E-01, 0.1235E-01, 0.1257E-01, 0.1275E-01,& - 0.1296E-01, 0.1318E-01, 0.1335E-01, 0.1357E-01,& - 0.1378E-01, 0.1400E-01, 0.1425E-01, 0.1446E-01,& - 0.1468E-01, 0.1493E-01, 0.1514E-01, 0.1539E-01,& - 0.1561E-01, 0.1586E-01, 0.1611E-01, 0.1636E-01,& - 0.1661E-01, 0.1686E-01, 0.1711E-01, 0.1740E-01,& - 0.1765E-01, 0.1793E-01, 0.1818E-01, 0.1847E-01,& - 0.1876E-01, 0.1904E-01, 0.1933E-01, 0.1961E-01,& - 0.1990E-01, 0.2019E-01, 0.2051E-01, 0.2080E-01,& - 0.2112E-01, 0.2140E-01, 0.2173E-01, 0.2205E-01,& - 0.2237E-01, 0.2269E-01, 0.2305E-01, 0.2337E-01,& - 0.2373E-01, 0.2405E-01, 0.2441E-01, 0.2477E-01,& - 0.2512E-01, 0.2548E-01, 0.2584E-01, 0.2623E-01,& - 0.2659E-01, 0.2698E-01, 0.2734E-01, 0.2774E-01,& - 0.2813E-01, 0.2852E-01, 0.2895E-01, 0.2935E-01,& - 0.2977E-01, 0.3017E-01, 0.3060E-01, 0.3103E-01,& - 0.3146E-01, 0.3189E-01, 0.3235E-01, 0.3278E-01,& - 0.3324E-01, 0.3371E-01, 0.3417E-01, 0.3464E-01,& - 0.3510E-01, 0.3561E-01, 0.3607E-01, 0.3657E-01,& - 0.3707E-01, 0.3757E-01, 0.3807E-01, 0.3861E-01,& - 0.3911E-01, 0.3965E-01, 0.4018E-01, 0.4072E-01,& - 0.4126E-01, 0.4183E-01, 0.4237E-01, 0.4294E-01,& - 0.4351E-01, 0.4408E-01, 0.4469E-01, 0.4526E-01,& - 0.4587E-01, 0.4648E-01, 0.4709E-01, 0.4770E-01,& - 0.4831E-01, 0.4895E-01, 0.4959E-01, 0.5024E-01,& - 0.5088E-01, 0.5156E-01, 0.5221E-01, 0.5289E-01,& - 0.5356E-01, 0.5424E-01, 0.5496E-01, 0.5568E-01,& - 0.5636E-01, 0.5711E-01, 0.5782E-01, 0.5854E-01,& - 0.5929E-01, 0.6004E-01, 0.6079E-01, 0.6158E-01,& - 0.6237E-01, 0.6315E-01, 0.6394E-01, 0.6473E-01,& - 0.6555E-01, 0.6637E-01, 0.6719E-01, 0.6802E-01,& - 0.6888E-01, 0.6973E-01, 0.7059E-01, 0.7145E-01,& - 0.7235E-01, 0.7324E-01, 0.7414E-01, 0.7503E-01,& - 0.7596E-01, 0.7689E-01, 0.7782E-01, 0.7879E-01,& - 0.7975E-01, 0.8072E-01, 0.8168E-01, 0.8269E-01,& - 0.8369E-01, 0.8469E-01, 0.8569E-01, 0.8673E-01,& - 0.8777E-01, 0.8884E-01, 0.8988E-01, 0.9095E-01,& - 0.9206E-01, 0.9313E-01, 0.9424E-01, 0.9535E-01,& - 0.9649E-01, 0.9764E-01, 0.9878E-01, 0.9996E-01,& - 0.1011E+00, 0.1023E+00, 0.1035E+00, 0.1047E+00,& - 0.1059E+00, 0.1072E+00, 0.1084E+00, 0.1097E+00,& - 0.1110E+00, 0.1123E+00, 0.1136E+00, 0.1149E+00,& - 0.1162E+00, 0.1175E+00, 0.1189E+00, 0.1202E+00,& - 0.1216E+00, 0.1230E+00, 0.1244E+00, 0.1259E+00,& - 0.1273E+00, 0.1287E+00, 0.1302E+00, 0.1317E+00,& - 0.1332E+00, 0.1347E+00, 0.1362E+00, 0.1377E+00,& - 0.1393E+00, 0.1409E+00, 0.1424E+00, 0.1440E+00,& - 0.1456E+00, 0.1473E+00, 0.1489E+00, 0.1506E+00,& - 0.1523E+00, 0.1539E+00, 0.1557E+00, 0.1574E+00,& - 0.1591E+00, 0.1609E+00, 0.1626E+00, 0.1645E+00,& - 0.1663E+00, 0.1681E+00, 0.1699E+00, 0.1718E+00,& - 0.1737E+00, 0.1756E+00, 0.1775E+00, 0.1794E+00,& - 0.1814E+00, 0.1834E+00, 0.1853E+00, 0.1873E+00,& - 0.1894E+00, 0.1914E+00, 0.1935E+00, 0.1956E+00,& - 0.1977E+00, 0.1998E+00, 0.2020E+00, 0.2041E+00,& - 0.2063E+00, 0.2085E+00, 0.2107E+00, 0.2130E+00,& - 0.2152E+00, 0.2175E+00, 0.2198E+00, 0.2222E+00,& - 0.2245E+00, 0.2269E+00, 0.2293E+00, 0.2317E+00,& - 0.2342E+00, 0.2366E+00, 0.2391E+00, 0.2416E+00,& - 0.2442E+00, 0.2467E+00, 0.2493E+00, 0.2519E+00,& - 0.2545E+00, 0.2572E+00, 0.2599E+00, 0.2626E+00,& - 0.2653E+00, 0.2681E+00, 0.2709E+00, 0.2737E+00,& - 0.2765E+00, 0.2793E+00, 0.2822E+00, 0.2851E+00,& - 0.2881E+00, 0.2910E+00, 0.2940E+00, 0.2970E+00,& - 0.3001E+00, 0.3032E+00, 0.3063E+00, 0.3094E+00,& - 0.3125E+00, 0.3158E+00, 0.3189E+00, 0.3222E+00,& - 0.3255E+00, 0.3288E+00, 0.3321E+00, 0.3355E+00,& - 0.3389E+00, 0.3423E+00, 0.3458E+00, 0.3492E+00,& - 0.3528E+00, 0.3563E+00, 0.3599E+00, 0.3635E+00,& - 0.3672E+00, 0.3709E+00, 0.3746E+00, 0.3783E+00,& - 0.3821E+00, 0.3859E+00, 0.3898E+00, 0.3937E+00,& - 0.3976E+00, 0.4015E+00, 0.4056E+00, 0.4096E+00,& - 0.4136E+00, 0.4177E+00, 0.4219E+00, 0.4261E+00,& - 0.4303E+00, 0.4345E+00, 0.4388E+00, 0.4432E+00,& - 0.4475E+00, 0.4519E+00, 0.4564E+00, 0.4609E+00,& - 0.4654E+00, 0.4699E+00, 0.4746E+00, 0.4792E+00,& - 0.4839E+00, 0.4886E+00, 0.4934E+00, 0.4982E+00,& - 0.5031E+00, 0.5080E+00, 0.5129E+00, 0.5180E+00,& - 0.5230E+00, 0.5281E+00, 0.5332E+00, 0.5384E+00,& - 0.5436E+00, 0.5489E+00, 0.5542E+00, 0.5596E+00,& - 0.5650E+00, 0.5705E+00, 0.5760E+00, 0.5816E+00,& - 0.5872E+00, 0.5929E+00, 0.5986E+00, 0.6044E+00,& - 0.6101E+00, 0.6161E+00, 0.6220E+00, 0.6280E+00,& - 0.6340E+00, 0.6401E+00, 0.6462E+00, 0.6524E+00,& - 0.6587E+00, 0.6650E+00, 0.6714E+00, 0.6778E+00,& - 0.6843E+00, 0.6909E+00, 0.6974E+00, 0.7041E+00,& - 0.7109E+00, 0.7177E+00, 0.7245E+00, 0.7314E+00,& - 0.7384E+00, 0.7454E+00, 0.7525E+00, 0.7597E+00,& - 0.7669E+00, 0.7742E+00, 0.7816E+00, 0.7891E+00,& - 0.7966E+00, 0.8042E+00, 0.8118E+00, 0.8195E+00,& - 0.8273E+00, 0.8352E+00, 0.8431E+00, 0.8511E+00,& - 0.8592E+00, 0.8673E+00, 0.8756E+00, 0.8839E+00,& - 0.8923E+00, 0.9007E+00, 0.9093E+00, 0.9179E+00,& - 0.9266E+00, 0.9354E+00, 0.9442E+00, 0.9532E+00,& - 0.9622E+00, 0.9714E+00, 0.9806E+00, 0.9899E+00,& - 0.9992E+00, 0.1009E+01, 0.1018E+01, 0.1028E+01,& - 0.1038E+01, 0.1048E+01, 0.1057E+01, 0.1067E+01,& - 0.1078E+01, 0.1088E+01, 0.1098E+01, 0.1109E+01,& - 0.1119E+01, 0.1130E+01, 0.1140E+01, 0.1151E+01,& - 0.1162E+01, 0.1173E+01, 0.1184E+01, 0.1196E+01,& - 0.1207E+01, 0.1218E+01, 0.1230E+01, 0.1242E+01,& - 0.1254E+01, 0.1265E+01, 0.1278E+01, 0.1290E+01,& - 0.1302E+01, 0.1314E+01, 0.1327E+01, 0.1340E+01,& - 0.1352E+01, 0.1365E+01, 0.1378E+01, 0.1392E+01,& - 0.1405E+01, 0.1418E+01, 0.1432E+01, 0.1446E+01,& - 0.1459E+01, 0.1474E+01, 0.1488E+01, 0.1502E+01,& - 0.1516E+01, 0.1531E+01, 0.1546E+01, 0.1561E+01,& - 0.1576E+01, 0.1591E+01, 0.1606E+01, 0.1622E+01,& - 0.1638E+01, 0.1654E+01, 0.1670E+01, 0.1686E+01,& - 0.1702E+01, 0.1719E+01, 0.1736E+01, 0.1752E+01,& - 0.1770E+01, 0.1787E+01, 0.1804E+01, 0.1822E+01,& - 0.1840E+01, 0.1858E+01, 0.1876E+01, 0.1895E+01,& - 0.1913E+01, 0.1932E+01, 0.1952E+01, 0.1971E+01,& - 0.1990E+01, 0.2010E+01, 0.2030E+01, 0.2050E+01,& - 0.2071E+01, 0.2092E+01, 0.2113E+01, 0.2134E+01,& - 0.2155E+01, 0.2177E+01, 0.2199E+01, 0.2221E+01,& - 0.2244E+01, 0.2266E+01, 0.2289E+01, 0.2313E+01,& - 0.2336E+01, 0.2360E+01, 0.2384E+01, 0.2409E+01,& - 0.2434E+01, 0.2459E+01, 0.2484E+01, 0.2510E+01,& - 0.2536E+01, 0.2563E+01, 0.2589E+01, 0.2617E+01,& - 0.2644E+01, 0.2672E+01, 0.2700E+01, 0.2729E+01,& - 0.2758E+01, 0.2787E+01, 0.2817E+01, 0.2847E+01,& - 0.2878E+01, 0.2909E+01, 0.2940E+01, 0.2972E+01,& - 0.3004E+01, 0.3037E+01, 0.3070E+01, 0.3104E+01,& - 0.3138E+01, 0.3173E+01, 0.3208E+01, 0.3244E+01,& - 0.3280E+01, 0.3317E+01, 0.3355E+01, 0.3393E+01,& - 0.3431E+01, 0.3471E+01, 0.3510E+01, 0.3551E+01,& - 0.3592E+01, 0.3634E+01, 0.3676E+01, 0.3720E+01,& - 0.3764E+01, 0.3808E+01, 0.3854E+01, 0.3900E+01,& - 0.3947E+01, 0.3995E+01, 0.4043E+01, 0.4093E+01,& - 0.4143E+01, 0.4195E+01, 0.4247E+01, 0.4301E+01,& - 0.4355E+01, 0.4410E+01, 0.4467E+01, 0.4525E+01,& - 0.4583E+01, 0.4643E+01, 0.4704E+01, 0.4767E+01,& - 0.4831E+01, 0.4896E+01, 0.4962E+01, 0.5030E+01,& - 0.5100E+01, 0.5171E+01, 0.5244E+01, 0.5318E+01,& - 0.5395E+01, 0.5473E+01, 0.5553E+01, 0.5635E+01,& - 0.5719E+01, 0.5806E+01, 0.5894E+01, 0.5985E+01,& - 0.6079E+01, 0.6175E+01, 0.6274E+01, 0.6376E+01,& - 0.6481E+01, 0.6589E+01, 0.6701E+01, 0.6816E+01,& - 0.6935E+01, 0.7058E+01, 0.7185E+01, 0.7317E+01,& - 0.7454E+01, 0.7596E+01, 0.7743E+01, 0.7897E+01,& - 0.8057E+01, 0.8224E+01, 0.8398E+01, 0.8580E+01,& - 0.8771E+01, 0.8972E+01, 0.9183E+01, 0.9406E+01,& - 0.9641E+01, 0.9891E+01, 0.1016E+02, 0.1044E+02,& - 0.1074E+02, 0.1107E+02, 0.1142E+02, 0.1181E+02,& - 0.1223E+02, 0.1270E+02, 0.1321E+02, 0.1380E+02,& - 0.1446E+02, 0.1524E+02, 0.1617E+02, 0.1732E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,100) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.4639E-04,& - 0.4639E-04, 0.4639E-04, 0.4639E-04, 0.4639E-04,& - 0.4639E-04, 0.4639E-04, 0.4639E-04, 0.4639E-04,& - 0.4639E-04, 0.4639E-04, 0.4639E-04, 0.4639E-04,& - 0.4639E-04, 0.4639E-04, 0.4639E-04, 0.4639E-04,& - 0.8277E-04, 0.8277E-04, 0.8277E-04, 0.8277E-04,& - 0.8277E-04, 0.8277E-04, 0.8277E-04, 0.8277E-04,& - 0.8277E-04, 0.8277E-04, 0.8277E-04, 0.1192E-03,& - 0.1192E-03, 0.1192E-03, 0.1192E-03, 0.1192E-03,& - 0.1192E-03, 0.1192E-03, 0.1192E-03, 0.1555E-03,& - 0.1555E-03, 0.1555E-03, 0.1555E-03, 0.1555E-03,& - 0.1555E-03, 0.1555E-03, 0.1919E-03, 0.1919E-03,& - 0.1919E-03, 0.1919E-03, 0.1919E-03, 0.1919E-03,& - 0.2283E-03, 0.2283E-03, 0.2283E-03, 0.2283E-03,& - 0.2283E-03, 0.2647E-03, 0.2647E-03, 0.2647E-03,& - 0.2647E-03, 0.2647E-03, 0.3011E-03, 0.3011E-03,& - 0.3011E-03, 0.3011E-03, 0.3375E-03, 0.3375E-03,& - 0.3375E-03, 0.3739E-03, 0.3739E-03, 0.3739E-03,& - 0.3739E-03, 0.4102E-03, 0.4102E-03, 0.4102E-03,& - 0.4466E-03, 0.4466E-03, 0.4466E-03, 0.4830E-03,& - 0.4830E-03, 0.4830E-03, 0.5194E-03, 0.5194E-03,& - 0.5558E-03, 0.5558E-03, 0.5558E-03, 0.5922E-03,& - 0.5922E-03, 0.6286E-03, 0.6286E-03, 0.6286E-03,& - 0.6649E-03, 0.6649E-03, 0.7013E-03, 0.7013E-03,& - 0.7377E-03, 0.7377E-03, 0.7741E-03, 0.7741E-03,& - 0.8105E-03, 0.8105E-03, 0.8469E-03, 0.8833E-03,& - 0.8833E-03, 0.9196E-03, 0.9196E-03, 0.9560E-03,& - 0.9924E-03, 0.9924E-03, 0.1029E-02, 0.1065E-02,& - 0.1065E-02, 0.1102E-02, 0.1138E-02, 0.1138E-02,& - 0.1174E-02, 0.1211E-02, 0.1247E-02, 0.1283E-02,& - 0.1283E-02, 0.1320E-02, 0.1356E-02, 0.1393E-02,& - 0.1429E-02, 0.1465E-02, 0.1465E-02, 0.1502E-02,& - 0.1538E-02, 0.1575E-02, 0.1611E-02, 0.1647E-02,& - 0.1684E-02, 0.1720E-02, 0.1757E-02, 0.1793E-02,& - 0.1829E-02, 0.1902E-02, 0.1938E-02, 0.1975E-02,& - 0.2011E-02, 0.2048E-02, 0.2084E-02, 0.2157E-02,& - 0.2193E-02, 0.2230E-02, 0.2266E-02, 0.2339E-02,& - 0.2375E-02, 0.2411E-02, 0.2484E-02, 0.2521E-02,& - 0.2593E-02, 0.2630E-02, 0.2666E-02, 0.2739E-02,& - 0.2812E-02, 0.2848E-02, 0.2921E-02, 0.2957E-02,& - 0.3030E-02, 0.3103E-02, 0.3139E-02, 0.3212E-02,& - 0.3285E-02, 0.3357E-02, 0.3394E-02, 0.3467E-02,& - 0.3539E-02, 0.3612E-02, 0.3685E-02, 0.3758E-02,& - 0.3830E-02, 0.3903E-02, 0.3976E-02, 0.4049E-02,& - 0.4122E-02, 0.4194E-02, 0.4304E-02, 0.4376E-02,& - 0.4449E-02, 0.4522E-02, 0.4631E-02, 0.4704E-02,& - 0.4777E-02, 0.4886E-02, 0.4958E-02, 0.5068E-02,& - 0.5177E-02, 0.5250E-02, 0.5359E-02, 0.5431E-02,& - 0.5541E-02, 0.5650E-02, 0.5759E-02, 0.5868E-02,& - 0.5977E-02, 0.6086E-02, 0.6196E-02, 0.6305E-02,& - 0.6414E-02, 0.6523E-02, 0.6632E-02, 0.6741E-02,& - 0.6887E-02, 0.6996E-02, 0.7105E-02, 0.7251E-02,& - 0.7360E-02, 0.7505E-02, 0.7615E-02, 0.7760E-02,& - 0.7906E-02, 0.8015E-02, 0.8160E-02, 0.8306E-02,& - 0.8451E-02, 0.8597E-02, 0.8743E-02, 0.8888E-02,& - 0.9034E-02, 0.9179E-02, 0.9361E-02, 0.9507E-02,& - 0.9652E-02, 0.9834E-02, 0.9980E-02, 0.1016E-01,& - 0.1034E-01, 0.1049E-01, 0.1067E-01, 0.1085E-01,& - 0.1103E-01, 0.1122E-01, 0.1140E-01, 0.1158E-01,& - 0.1176E-01, 0.1194E-01, 0.1216E-01, 0.1234E-01,& - 0.1253E-01, 0.1274E-01, 0.1296E-01, 0.1315E-01,& - 0.1336E-01, 0.1358E-01, 0.1380E-01, 0.1402E-01,& - 0.1424E-01, 0.1446E-01, 0.1471E-01, 0.1493E-01,& - 0.1515E-01, 0.1540E-01, 0.1562E-01, 0.1587E-01,& - 0.1613E-01, 0.1638E-01, 0.1664E-01, 0.1689E-01,& - 0.1715E-01, 0.1740E-01, 0.1766E-01, 0.1795E-01,& - 0.1820E-01, 0.1849E-01, 0.1878E-01, 0.1908E-01,& - 0.1933E-01, 0.1966E-01, 0.1995E-01, 0.2024E-01,& - 0.2053E-01, 0.2086E-01, 0.2115E-01, 0.2148E-01,& - 0.2181E-01, 0.2210E-01, 0.2242E-01, 0.2279E-01,& - 0.2311E-01, 0.2344E-01, 0.2381E-01, 0.2413E-01,& - 0.2450E-01, 0.2486E-01, 0.2519E-01, 0.2559E-01,& - 0.2595E-01, 0.2632E-01, 0.2668E-01, 0.2708E-01,& - 0.2748E-01, 0.2785E-01, 0.2825E-01, 0.2865E-01,& - 0.2908E-01, 0.2948E-01, 0.2988E-01, 0.3032E-01,& - 0.3076E-01, 0.3119E-01, 0.3163E-01, 0.3207E-01,& - 0.3250E-01, 0.3298E-01, 0.3341E-01, 0.3389E-01,& - 0.3436E-01, 0.3483E-01, 0.3530E-01, 0.3581E-01,& - 0.3629E-01, 0.3680E-01, 0.3731E-01, 0.3781E-01,& - 0.3832E-01, 0.3887E-01, 0.3938E-01, 0.3993E-01,& - 0.4047E-01, 0.4102E-01, 0.4156E-01, 0.4211E-01,& - 0.4269E-01, 0.4327E-01, 0.4382E-01, 0.4444E-01,& - 0.4502E-01, 0.4560E-01, 0.4622E-01, 0.4684E-01,& - 0.4746E-01, 0.4808E-01, 0.4873E-01, 0.4935E-01,& - 0.5000E-01, 0.5066E-01, 0.5131E-01, 0.5201E-01,& - 0.5266E-01, 0.5335E-01, 0.5404E-01, 0.5473E-01,& - 0.5546E-01, 0.5619E-01, 0.5688E-01, 0.5764E-01,& - 0.5837E-01, 0.5914E-01, 0.5986E-01, 0.6063E-01,& - 0.6143E-01, 0.6219E-01, 0.6299E-01, 0.6379E-01,& - 0.6459E-01, 0.6540E-01, 0.6623E-01, 0.6707E-01,& - 0.6791E-01, 0.6878E-01, 0.6962E-01, 0.7049E-01,& - 0.7136E-01, 0.7227E-01, 0.7318E-01, 0.7409E-01,& - 0.7500E-01, 0.7591E-01, 0.7686E-01, 0.7780E-01,& - 0.7878E-01, 0.7973E-01, 0.8071E-01, 0.8170E-01,& - 0.8271E-01, 0.8370E-01, 0.8472E-01, 0.8577E-01,& - 0.8679E-01, 0.8784E-01, 0.8894E-01, 0.8999E-01,& - 0.9108E-01, 0.9217E-01, 0.9330E-01, 0.9439E-01,& - 0.9556E-01, 0.9669E-01, 0.9785E-01, 0.9902E-01,& - 0.1002E+00, 0.1014E+00, 0.1026E+00, 0.1038E+00,& - 0.1050E+00, 0.1063E+00, 0.1075E+00, 0.1088E+00,& - 0.1101E+00, 0.1114E+00, 0.1127E+00, 0.1140E+00,& - 0.1153E+00, 0.1167E+00, 0.1180E+00, 0.1194E+00,& - 0.1208E+00, 0.1222E+00, 0.1236E+00, 0.1250E+00,& - 0.1265E+00, 0.1279E+00, 0.1294E+00, 0.1309E+00,& - 0.1324E+00, 0.1339E+00, 0.1354E+00, 0.1370E+00,& - 0.1385E+00, 0.1401E+00, 0.1417E+00, 0.1433E+00,& - 0.1449E+00, 0.1466E+00, 0.1482E+00, 0.1499E+00,& - 0.1516E+00, 0.1533E+00, 0.1550E+00, 0.1568E+00,& - 0.1585E+00, 0.1603E+00, 0.1621E+00, 0.1639E+00,& - 0.1657E+00, 0.1676E+00, 0.1694E+00, 0.1713E+00,& - 0.1732E+00, 0.1751E+00, 0.1771E+00, 0.1790E+00,& - 0.1810E+00, 0.1830E+00, 0.1850E+00, 0.1870E+00,& - 0.1891E+00, 0.1911E+00, 0.1932E+00, 0.1953E+00,& - 0.1975E+00, 0.1996E+00, 0.2018E+00, 0.2040E+00,& - 0.2062E+00, 0.2084E+00, 0.2107E+00, 0.2130E+00,& - 0.2153E+00, 0.2176E+00, 0.2199E+00, 0.2223E+00,& - 0.2247E+00, 0.2271E+00, 0.2295E+00, 0.2320E+00,& - 0.2344E+00, 0.2370E+00, 0.2395E+00, 0.2420E+00,& - 0.2446E+00, 0.2472E+00, 0.2498E+00, 0.2525E+00,& - 0.2551E+00, 0.2578E+00, 0.2605E+00, 0.2633E+00,& - 0.2661E+00, 0.2689E+00, 0.2717E+00, 0.2745E+00,& - 0.2774E+00, 0.2803E+00, 0.2832E+00, 0.2862E+00,& - 0.2892E+00, 0.2922E+00, 0.2952E+00, 0.2983E+00,& - 0.3014E+00, 0.3045E+00, 0.3077E+00, 0.3109E+00,& - 0.3141E+00, 0.3173E+00, 0.3206E+00, 0.3239E+00,& - 0.3273E+00, 0.3306E+00, 0.3340E+00, 0.3375E+00,& - 0.3409E+00, 0.3444E+00, 0.3479E+00, 0.3515E+00,& - 0.3551E+00, 0.3587E+00, 0.3623E+00, 0.3660E+00,& - 0.3698E+00, 0.3735E+00, 0.3773E+00, 0.3811E+00,& - 0.3850E+00, 0.3889E+00, 0.3928E+00, 0.3968E+00,& - 0.4008E+00, 0.4049E+00, 0.4089E+00, 0.4131E+00,& - 0.4172E+00, 0.4214E+00, 0.4256E+00, 0.4299E+00,& - 0.4342E+00, 0.4386E+00, 0.4430E+00, 0.4474E+00,& - 0.4518E+00, 0.4564E+00, 0.4609E+00, 0.4655E+00,& - 0.4701E+00, 0.4748E+00, 0.4796E+00, 0.4843E+00,& - 0.4891E+00, 0.4940E+00, 0.4989E+00, 0.5038E+00,& - 0.5088E+00, 0.5138E+00, 0.5189E+00, 0.5240E+00,& - 0.5292E+00, 0.5344E+00, 0.5397E+00, 0.5450E+00,& - 0.5504E+00, 0.5558E+00, 0.5613E+00, 0.5668E+00,& - 0.5724E+00, 0.5780E+00, 0.5836E+00, 0.5893E+00,& - 0.5951E+00, 0.6009E+00, 0.6068E+00, 0.6127E+00,& - 0.6187E+00, 0.6248E+00, 0.6309E+00, 0.6370E+00,& - 0.6432E+00, 0.6495E+00, 0.6558E+00, 0.6622E+00,& - 0.6686E+00, 0.6751E+00, 0.6811E+00, 0.6883E+00,& - 0.6950E+00, 0.7018E+00, 0.7086E+00, 0.7155E+00,& - 0.7224E+00, 0.7294E+00, 0.7365E+00, 0.7436E+00,& - 0.7508E+00, 0.7580E+00, 0.7654E+00, 0.7728E+00,& - 0.7802E+00, 0.7878E+00, 0.7954E+00, 0.8031E+00,& - 0.8108E+00, 0.8187E+00, 0.8265E+00, 0.8345E+00,& - 0.8426E+00, 0.8507E+00, 0.8589E+00, 0.8672E+00,& - 0.8755E+00, 0.8839E+00, 0.8924E+00, 0.9011E+00,& - 0.9097E+00, 0.9185E+00, 0.9273E+00, 0.9362E+00,& - 0.9453E+00, 0.9544E+00, 0.9635E+00, 0.9728E+00,& - 0.9822E+00, 0.9916E+00, 0.1001E+01, 0.1011E+01,& - 0.1021E+01, 0.1030E+01, 0.1040E+01, 0.1050E+01,& - 0.1060E+01, 0.1071E+01, 0.1081E+01, 0.1091E+01,& - 0.1102E+01, 0.1112E+01, 0.1123E+01, 0.1134E+01,& - 0.1145E+01, 0.1156E+01, 0.1167E+01, 0.1178E+01,& - 0.1190E+01, 0.1201E+01, 0.1213E+01, 0.1224E+01,& - 0.1236E+01, 0.1248E+01, 0.1260E+01, 0.1272E+01,& - 0.1285E+01, 0.1297E+01, 0.1310E+01, 0.1322E+01,& - 0.1335E+01, 0.1348E+01, 0.1361E+01, 0.1374E+01,& - 0.1388E+01, 0.1401E+01, 0.1415E+01, 0.1429E+01,& - 0.1443E+01, 0.1457E+01, 0.1471E+01, 0.1485E+01,& - 0.1500E+01, 0.1514E+01, 0.1529E+01, 0.1544E+01,& - 0.1559E+01, 0.1574E+01, 0.1590E+01, 0.1605E+01,& - 0.1621E+01, 0.1637E+01, 0.1653E+01, 0.1669E+01,& - 0.1686E+01, 0.1703E+01, 0.1719E+01, 0.1736E+01,& - 0.1754E+01, 0.1771E+01, 0.1789E+01, 0.1806E+01,& - 0.1824E+01, 0.1842E+01, 0.1861E+01, 0.1879E+01,& - 0.1898E+01, 0.1917E+01, 0.1936E+01, 0.1956E+01,& - 0.1976E+01, 0.1995E+01, 0.2016E+01, 0.2036E+01,& - 0.2056E+01, 0.2077E+01, 0.2098E+01, 0.2120E+01,& - 0.2141E+01, 0.2163E+01, 0.2185E+01, 0.2208E+01,& - 0.2230E+01, 0.2253E+01, 0.2276E+01, 0.2300E+01,& - 0.2324E+01, 0.2348E+01, 0.2372E+01, 0.2397E+01,& - 0.2422E+01, 0.2447E+01, 0.2473E+01, 0.2499E+01,& - 0.2525E+01, 0.2552E+01, 0.2579E+01, 0.2606E+01,& - 0.2634E+01, 0.2662E+01, 0.2690E+01, 0.2719E+01,& - 0.2748E+01, 0.2778E+01, 0.2808E+01, 0.2838E+01,& - 0.2869E+01, 0.2900E+01, 0.2932E+01, 0.2964E+01,& - 0.2997E+01, 0.3030E+01, 0.3064E+01, 0.3098E+01,& - 0.3132E+01, 0.3167E+01, 0.3203E+01, 0.3239E+01,& - 0.3276E+01, 0.3313E+01, 0.3351E+01, 0.3389E+01,& - 0.3428E+01, 0.3468E+01, 0.3508E+01, 0.3549E+01,& - 0.3591E+01, 0.3633E+01, 0.3676E+01, 0.3719E+01,& - 0.3764E+01, 0.3809E+01, 0.3855E+01, 0.3902E+01,& - 0.3949E+01, 0.3998E+01, 0.4047E+01, 0.4097E+01,& - 0.4148E+01, 0.4200E+01, 0.4253E+01, 0.4307E+01,& - 0.4362E+01, 0.4418E+01, 0.4475E+01, 0.4534E+01,& - 0.4593E+01, 0.4654E+01, 0.4716E+01, 0.4779E+01,& - 0.4844E+01, 0.4910E+01, 0.4977E+01, 0.5046E+01,& - 0.5116E+01, 0.5188E+01, 0.5262E+01, 0.5338E+01,& - 0.5415E+01, 0.5494E+01, 0.5575E+01, 0.5658E+01,& - 0.5744E+01, 0.5831E+01, 0.5921E+01, 0.6013E+01,& - 0.6108E+01, 0.6206E+01, 0.6306E+01, 0.6410E+01,& - 0.6516E+01, 0.6626E+01, 0.6739E+01, 0.6856E+01,& - 0.6977E+01, 0.7101E+01, 0.7231E+01, 0.7364E+01,& - 0.7503E+01, 0.7647E+01, 0.7797E+01, 0.7953E+01,& - 0.8115E+01, 0.8284E+01, 0.8461E+01, 0.8646E+01,& - 0.8840E+01, 0.9044E+01, 0.9259E+01, 0.9485E+01,& - 0.9725E+01, 0.9978E+01, 0.1025E+02, 0.1054E+02,& - 0.1085E+02, 0.1118E+02, 0.1154E+02, 0.1193E+02,& - 0.1236E+02, 0.1283E+02, 0.1335E+02, 0.1395E+02,& - 0.1463E+02, 0.1542E+02, 0.1636E+02, 0.1753E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,101) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.4700E-04, 0.4700E-04, 0.4700E-04,& - 0.4700E-04, 0.4700E-04, 0.4700E-04, 0.4700E-04,& - 0.4700E-04, 0.4700E-04, 0.4700E-04, 0.4700E-04,& - 0.4700E-04, 0.4700E-04, 0.4700E-04, 0.4700E-04,& - 0.4700E-04, 0.4700E-04, 0.8401E-04, 0.8401E-04,& - 0.8401E-04, 0.8401E-04, 0.8401E-04, 0.8401E-04,& - 0.8401E-04, 0.8401E-04, 0.8401E-04, 0.8401E-04,& - 0.8401E-04, 0.1210E-03, 0.1210E-03, 0.1210E-03,& - 0.1210E-03, 0.1210E-03, 0.1210E-03, 0.1210E-03,& - 0.1210E-03, 0.1580E-03, 0.1580E-03, 0.1580E-03,& - 0.1580E-03, 0.1580E-03, 0.1580E-03, 0.1580E-03,& - 0.1950E-03, 0.1950E-03, 0.1950E-03, 0.1950E-03,& - 0.1950E-03, 0.1950E-03, 0.2320E-03, 0.2320E-03,& - 0.2320E-03, 0.2320E-03, 0.2320E-03, 0.2320E-03,& - 0.2690E-03, 0.2690E-03, 0.2690E-03, 0.2690E-03,& - 0.3060E-03, 0.3060E-03, 0.3060E-03, 0.3060E-03,& - 0.3430E-03, 0.3430E-03, 0.3430E-03, 0.3430E-03,& - 0.3800E-03, 0.3800E-03, 0.3800E-03, 0.3800E-03,& - 0.4170E-03, 0.4170E-03, 0.4170E-03, 0.4540E-03,& - 0.4540E-03, 0.4540E-03, 0.4910E-03, 0.4910E-03,& - 0.4910E-03, 0.5280E-03, 0.5280E-03, 0.5650E-03,& - 0.5650E-03, 0.5650E-03, 0.6020E-03, 0.6020E-03,& - 0.6390E-03, 0.6390E-03, 0.6760E-03, 0.6760E-03,& - 0.6760E-03, 0.7130E-03, 0.7130E-03, 0.7501E-03,& - 0.7501E-03, 0.7871E-03, 0.7871E-03, 0.8241E-03,& - 0.8611E-03, 0.8611E-03, 0.8981E-03, 0.8981E-03,& - 0.9351E-03, 0.9351E-03, 0.9721E-03, 0.1009E-02,& - 0.1009E-02, 0.1046E-02, 0.1083E-02, 0.1083E-02,& - 0.1120E-02, 0.1157E-02, 0.1194E-02, 0.1194E-02,& - 0.1231E-02, 0.1268E-02, 0.1305E-02, 0.1305E-02,& - 0.1342E-02, 0.1379E-02, 0.1416E-02, 0.1453E-02,& - 0.1490E-02, 0.1490E-02, 0.1527E-02, 0.1564E-02,& - 0.1601E-02, 0.1638E-02, 0.1675E-02, 0.1712E-02,& - 0.1749E-02, 0.1786E-02, 0.1823E-02, 0.1860E-02,& - 0.1934E-02, 0.1971E-02, 0.2008E-02, 0.2045E-02,& - 0.2082E-02, 0.2119E-02, 0.2156E-02, 0.2230E-02,& - 0.2267E-02, 0.2304E-02, 0.2378E-02, 0.2415E-02,& - 0.2452E-02, 0.2526E-02, 0.2563E-02, 0.2600E-02,& - 0.2674E-02, 0.2711E-02, 0.2785E-02, 0.2822E-02,& - 0.2896E-02, 0.2970E-02, 0.3007E-02, 0.3081E-02,& - 0.3118E-02, 0.3192E-02, 0.3266E-02, 0.3340E-02,& - 0.3377E-02, 0.3451E-02, 0.3525E-02, 0.3599E-02,& - 0.3673E-02, 0.3747E-02, 0.3821E-02, 0.3895E-02,& - 0.3969E-02, 0.4043E-02, 0.4117E-02, 0.4191E-02,& - 0.4265E-02, 0.4339E-02, 0.4450E-02, 0.4524E-02,& - 0.4598E-02, 0.4672E-02, 0.4783E-02, 0.4857E-02,& - 0.4968E-02, 0.5042E-02, 0.5153E-02, 0.5227E-02,& - 0.5338E-02, 0.5449E-02, 0.5523E-02, 0.5634E-02,& - 0.5745E-02, 0.5856E-02, 0.5930E-02, 0.6041E-02,& - 0.6152E-02, 0.6263E-02, 0.6374E-02, 0.6485E-02,& - 0.6633E-02, 0.6744E-02, 0.6855E-02, 0.6966E-02,& - 0.7114E-02, 0.7225E-02, 0.7337E-02, 0.7485E-02,& - 0.7596E-02, 0.7744E-02, 0.7892E-02, 0.8003E-02,& - 0.8151E-02, 0.8299E-02, 0.8447E-02, 0.8595E-02,& - 0.8743E-02, 0.8891E-02, 0.9039E-02, 0.9187E-02,& - 0.9335E-02, 0.9483E-02, 0.9668E-02, 0.9816E-02,& - 0.1000E-01, 0.1015E-01, 0.1033E-01, 0.1048E-01,& - 0.1067E-01, 0.1085E-01, 0.1104E-01, 0.1122E-01,& - 0.1141E-01, 0.1159E-01, 0.1178E-01, 0.1196E-01,& - 0.1215E-01, 0.1237E-01, 0.1255E-01, 0.1274E-01,& - 0.1296E-01, 0.1318E-01, 0.1337E-01, 0.1359E-01,& - 0.1381E-01, 0.1403E-01, 0.1426E-01, 0.1448E-01,& - 0.1470E-01, 0.1496E-01, 0.1518E-01, 0.1540E-01,& - 0.1566E-01, 0.1592E-01, 0.1614E-01, 0.1640E-01,& - 0.1666E-01, 0.1692E-01, 0.1718E-01, 0.1744E-01,& - 0.1773E-01, 0.1799E-01, 0.1825E-01, 0.1855E-01,& - 0.1884E-01, 0.1910E-01, 0.1940E-01, 0.1970E-01,& - 0.1999E-01, 0.2029E-01, 0.2062E-01, 0.2092E-01,& - 0.2125E-01, 0.2155E-01, 0.2188E-01, 0.2221E-01,& - 0.2254E-01, 0.2288E-01, 0.2321E-01, 0.2354E-01,& - 0.2388E-01, 0.2425E-01, 0.2462E-01, 0.2495E-01,& - 0.2532E-01, 0.2569E-01, 0.2606E-01, 0.2643E-01,& - 0.2684E-01, 0.2721E-01, 0.2761E-01, 0.2802E-01,& - 0.2843E-01, 0.2883E-01, 0.2924E-01, 0.2965E-01,& - 0.3006E-01, 0.3050E-01, 0.3094E-01, 0.3139E-01,& - 0.3183E-01, 0.3228E-01, 0.3272E-01, 0.3316E-01,& - 0.3365E-01, 0.3413E-01, 0.3461E-01, 0.3509E-01,& - 0.3557E-01, 0.3605E-01, 0.3657E-01, 0.3705E-01,& - 0.3757E-01, 0.3809E-01, 0.3860E-01, 0.3916E-01,& - 0.3968E-01, 0.4023E-01, 0.4079E-01, 0.4134E-01,& - 0.4190E-01, 0.4245E-01, 0.4304E-01, 0.4364E-01,& - 0.4419E-01, 0.4482E-01, 0.4541E-01, 0.4600E-01,& - 0.4663E-01, 0.4726E-01, 0.4789E-01, 0.4852E-01,& - 0.4915E-01, 0.4982E-01, 0.5048E-01, 0.5115E-01,& - 0.5181E-01, 0.5252E-01, 0.5318E-01, 0.5389E-01,& - 0.5459E-01, 0.5529E-01, 0.5603E-01, 0.5677E-01,& - 0.5751E-01, 0.5825E-01, 0.5899E-01, 0.5977E-01,& - 0.6055E-01, 0.6132E-01, 0.6210E-01, 0.6291E-01,& - 0.6369E-01, 0.6451E-01, 0.6536E-01, 0.6617E-01,& - 0.6702E-01, 0.6787E-01, 0.6872E-01, 0.6961E-01,& - 0.7046E-01, 0.7135E-01, 0.7228E-01, 0.7316E-01,& - 0.7409E-01, 0.7501E-01, 0.7594E-01, 0.7690E-01,& - 0.7786E-01, 0.7883E-01, 0.7982E-01, 0.8079E-01,& - 0.8179E-01, 0.8282E-01, 0.8382E-01, 0.8486E-01,& - 0.8589E-01, 0.8697E-01, 0.8804E-01, 0.8911E-01,& - 0.9019E-01, 0.9130E-01, 0.9241E-01, 0.9352E-01,& - 0.9466E-01, 0.9581E-01, 0.9696E-01, 0.9814E-01,& - 0.9932E-01, 0.1005E+00, 0.1017E+00, 0.1030E+00,& - 0.1042E+00, 0.1054E+00, 0.1067E+00, 0.1079E+00,& - 0.1092E+00, 0.1105E+00, 0.1118E+00, 0.1132E+00,& - 0.1145E+00, 0.1159E+00, 0.1172E+00, 0.1186E+00,& - 0.1200E+00, 0.1214E+00, 0.1228E+00, 0.1243E+00,& - 0.1257E+00, 0.1272E+00, 0.1287E+00, 0.1302E+00,& - 0.1317E+00, 0.1332E+00, 0.1347E+00, 0.1363E+00,& - 0.1379E+00, 0.1395E+00, 0.1411E+00, 0.1427E+00,& - 0.1443E+00, 0.1460E+00, 0.1477E+00, 0.1494E+00,& - 0.1511E+00, 0.1528E+00, 0.1545E+00, 0.1563E+00,& - 0.1580E+00, 0.1598E+00, 0.1616E+00, 0.1635E+00,& - 0.1653E+00, 0.1672E+00, 0.1690E+00, 0.1710E+00,& - 0.1729E+00, 0.1748E+00, 0.1768E+00, 0.1787E+00,& - 0.1807E+00, 0.1828E+00, 0.1848E+00, 0.1868E+00,& - 0.1889E+00, 0.1910E+00, 0.1931E+00, 0.1952E+00,& - 0.1974E+00, 0.1996E+00, 0.2018E+00, 0.2040E+00,& - 0.2062E+00, 0.2085E+00, 0.2108E+00, 0.2131E+00,& - 0.2154E+00, 0.2178E+00, 0.2201E+00, 0.2225E+00,& - 0.2249E+00, 0.2274E+00, 0.2299E+00, 0.2323E+00,& - 0.2349E+00, 0.2374E+00, 0.2400E+00, 0.2426E+00,& - 0.2452E+00, 0.2478E+00, 0.2505E+00, 0.2531E+00,& - 0.2559E+00, 0.2586E+00, 0.2614E+00, 0.2642E+00,& - 0.2670E+00, 0.2698E+00, 0.2727E+00, 0.2756E+00,& - 0.2785E+00, 0.2815E+00, 0.2844E+00, 0.2875E+00,& - 0.2905E+00, 0.2936E+00, 0.2967E+00, 0.2998E+00,& - 0.3029E+00, 0.3061E+00, 0.3094E+00, 0.3126E+00,& - 0.3159E+00, 0.3192E+00, 0.3225E+00, 0.3259E+00,& - 0.3293E+00, 0.3327E+00, 0.3362E+00, 0.3397E+00,& - 0.3432E+00, 0.3468E+00, 0.3504E+00, 0.3540E+00,& - 0.3576E+00, 0.3613E+00, 0.3651E+00, 0.3689E+00,& - 0.3727E+00, 0.3765E+00, 0.3804E+00, 0.3843E+00,& - 0.3882E+00, 0.3922E+00, 0.3962E+00, 0.4003E+00,& - 0.4044E+00, 0.4085E+00, 0.4127E+00, 0.4169E+00,& - 0.4211E+00, 0.4254E+00, 0.4298E+00, 0.4341E+00,& - 0.4385E+00, 0.4430E+00, 0.4475E+00, 0.4520E+00,& - 0.4566E+00, 0.4612E+00, 0.4659E+00, 0.4706E+00,& - 0.4753E+00, 0.4801E+00, 0.4850E+00, 0.4898E+00,& - 0.4948E+00, 0.4998E+00, 0.5048E+00, 0.5098E+00,& - 0.5150E+00, 0.5201E+00, 0.5253E+00, 0.5306E+00,& - 0.5359E+00, 0.5412E+00, 0.5466E+00, 0.5521E+00,& - 0.5576E+00, 0.5632E+00, 0.5688E+00, 0.5745E+00,& - 0.5802E+00, 0.5859E+00, 0.5918E+00, 0.5977E+00,& - 0.6036E+00, 0.6096E+00, 0.6156E+00, 0.6217E+00,& - 0.6279E+00, 0.6341E+00, 0.6404E+00, 0.6467E+00,& - 0.6531E+00, 0.6595E+00, 0.6661E+00, 0.6726E+00,& - 0.6793E+00, 0.6860E+00, 0.6927E+00, 0.6996E+00,& - 0.7065E+00, 0.7134E+00, 0.7204E+00, 0.7275E+00,& - 0.7347E+00, 0.7419E+00, 0.7492E+00, 0.7565E+00,& - 0.7640E+00, 0.7714E+00, 0.7790E+00, 0.7866E+00,& - 0.7944E+00, 0.8022E+00, 0.8100E+00, 0.8180E+00,& - 0.8260E+00, 0.8340E+00, 0.8422E+00, 0.8504E+00,& - 0.8588E+00, 0.8672E+00, 0.8757E+00, 0.8842E+00,& - 0.8929E+00, 0.9016E+00, 0.9104E+00, 0.9193E+00,& - 0.9283E+00, 0.9374E+00, 0.9465E+00, 0.9557E+00,& - 0.9651E+00, 0.9745E+00, 0.9840E+00, 0.9936E+00,& - 0.1003E+01, 0.1013E+01, 0.1023E+01, 0.1033E+01,& - 0.1043E+01, 0.1053E+01, 0.1064E+01, 0.1074E+01,& - 0.1084E+01, 0.1095E+01, 0.1106E+01, 0.1117E+01,& - 0.1128E+01, 0.1139E+01, 0.1150E+01, 0.1161E+01,& - 0.1172E+01, 0.1184E+01, 0.1195E+01, 0.1207E+01,& - 0.1219E+01, 0.1231E+01, 0.1243E+01, 0.1255E+01,& - 0.1267E+01, 0.1280E+01, 0.1292E+01, 0.1305E+01,& - 0.1318E+01, 0.1331E+01, 0.1344E+01, 0.1357E+01,& - 0.1371E+01, 0.1384E+01, 0.1398E+01, 0.1411E+01,& - 0.1425E+01, 0.1439E+01, 0.1454E+01, 0.1468E+01,& - 0.1483E+01, 0.1497E+01, 0.1511E+01, 0.1527E+01,& - 0.1542E+01, 0.1558E+01, 0.1573E+01, 0.1589E+01,& - 0.1604E+01, 0.1620E+01, 0.1637E+01, 0.1653E+01,& - 0.1669E+01, 0.1686E+01, 0.1703E+01, 0.1720E+01,& - 0.1737E+01, 0.1755E+01, 0.1772E+01, 0.1790E+01,& - 0.1808E+01, 0.1827E+01, 0.1845E+01, 0.1864E+01,& - 0.1883E+01, 0.1902E+01, 0.1921E+01, 0.1941E+01,& - 0.1960E+01, 0.1980E+01, 0.2001E+01, 0.2021E+01,& - 0.2042E+01, 0.2063E+01, 0.2084E+01, 0.2105E+01,& - 0.2127E+01, 0.2149E+01, 0.2171E+01, 0.2194E+01,& - 0.2217E+01, 0.2240E+01, 0.2263E+01, 0.2287E+01,& - 0.2311E+01, 0.2335E+01, 0.2359E+01, 0.2384E+01,& - 0.2409E+01, 0.2435E+01, 0.2461E+01, 0.2487E+01,& - 0.2513E+01, 0.2540E+01, 0.2567E+01, 0.2595E+01,& - 0.2623E+01, 0.2651E+01, 0.2680E+01, 0.2709E+01,& - 0.2738E+01, 0.2768E+01, 0.2798E+01, 0.2829E+01,& - 0.2860E+01, 0.2892E+01, 0.2924E+01, 0.2956E+01,& - 0.2989E+01, 0.3022E+01, 0.3056E+01, 0.3091E+01,& - 0.3126E+01, 0.3161E+01, 0.3197E+01, 0.3233E+01,& - 0.3271E+01, 0.3308E+01, 0.3346E+01, 0.3385E+01,& - 0.3425E+01, 0.3465E+01, 0.3505E+01, 0.3546E+01,& - 0.3589E+01, 0.3631E+01, 0.3675E+01, 0.3719E+01,& - 0.3764E+01, 0.3809E+01, 0.3856E+01, 0.3903E+01,& - 0.3951E+01, 0.4000E+01, 0.4050E+01, 0.4100E+01,& - 0.4152E+01, 0.4205E+01, 0.4258E+01, 0.4313E+01,& - 0.4368E+01, 0.4425E+01, 0.4483E+01, 0.4542E+01,& - 0.4602E+01, 0.4664E+01, 0.4726E+01, 0.4790E+01,& - 0.4856E+01, 0.4923E+01, 0.4991E+01, 0.5061E+01,& - 0.5132E+01, 0.5205E+01, 0.5280E+01, 0.5356E+01,& - 0.5434E+01, 0.5515E+01, 0.5597E+01, 0.5681E+01,& - 0.5767E+01, 0.5856E+01, 0.5947E+01, 0.6041E+01,& - 0.6137E+01, 0.6236E+01, 0.6338E+01, 0.6442E+01,& - 0.6550E+01, 0.6662E+01, 0.6776E+01, 0.6895E+01,& - 0.7017E+01, 0.7144E+01, 0.7275E+01, 0.7411E+01,& - 0.7552E+01, 0.7698E+01, 0.7850E+01, 0.8008E+01,& - 0.8173E+01, 0.8345E+01, 0.8524E+01, 0.8712E+01,& - 0.8909E+01, 0.9116E+01, 0.9334E+01, 0.9564E+01,& - 0.9807E+01, 0.1006E+02, 0.1034E+02, 0.1063E+02,& - 0.1095E+02, 0.1128E+02, 0.1165E+02, 0.1205E+02,& - 0.1248E+02, 0.1296E+02, 0.1350E+02, 0.1410E+02,& - 0.1479E+02, 0.1560E+02, 0.1656E+02, 0.1775E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,102) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.4763E-04,& - 0.4763E-04, 0.4763E-04, 0.4763E-04, 0.4763E-04,& - 0.4763E-04, 0.4763E-04, 0.4763E-04, 0.4763E-04,& - 0.4763E-04, 0.4763E-04, 0.4763E-04, 0.4763E-04,& - 0.4763E-04, 0.4763E-04, 0.4763E-04, 0.4763E-04,& - 0.8525E-04, 0.8525E-04, 0.8525E-04, 0.8525E-04,& - 0.8525E-04, 0.8525E-04, 0.8525E-04, 0.8525E-04,& - 0.8525E-04, 0.8525E-04, 0.8525E-04, 0.1229E-03,& - 0.1229E-03, 0.1229E-03, 0.1229E-03, 0.1229E-03,& - 0.1229E-03, 0.1229E-03, 0.1229E-03, 0.1229E-03,& - 0.1605E-03, 0.1605E-03, 0.1605E-03, 0.1605E-03,& - 0.1605E-03, 0.1605E-03, 0.1605E-03, 0.1981E-03,& - 0.1981E-03, 0.1981E-03, 0.1981E-03, 0.1981E-03,& - 0.1981E-03, 0.2358E-03, 0.2358E-03, 0.2358E-03,& - 0.2358E-03, 0.2358E-03, 0.2734E-03, 0.2734E-03,& - 0.2734E-03, 0.2734E-03, 0.2734E-03, 0.3110E-03,& - 0.3110E-03, 0.3110E-03, 0.3110E-03, 0.3486E-03,& - 0.3486E-03, 0.3486E-03, 0.3486E-03, 0.3863E-03,& - 0.3863E-03, 0.3863E-03, 0.4239E-03, 0.4239E-03,& - 0.4239E-03, 0.4615E-03, 0.4615E-03, 0.4615E-03,& - 0.4991E-03, 0.4991E-03, 0.4991E-03, 0.5368E-03,& - 0.5368E-03, 0.5368E-03, 0.5744E-03, 0.5744E-03,& - 0.5744E-03, 0.6120E-03, 0.6120E-03, 0.6496E-03,& - 0.6496E-03, 0.6873E-03, 0.6873E-03, 0.7249E-03,& - 0.7249E-03, 0.7625E-03, 0.7625E-03, 0.8001E-03,& - 0.8001E-03, 0.8378E-03, 0.8378E-03, 0.8754E-03,& - 0.8754E-03, 0.9130E-03, 0.9130E-03, 0.9506E-03,& - 0.9883E-03, 0.9883E-03, 0.1026E-02, 0.1026E-02,& - 0.1064E-02, 0.1101E-02, 0.1101E-02, 0.1139E-02,& - 0.1176E-02, 0.1214E-02, 0.1214E-02, 0.1252E-02,& - 0.1289E-02, 0.1327E-02, 0.1327E-02, 0.1365E-02,& - 0.1402E-02, 0.1440E-02, 0.1477E-02, 0.1515E-02,& - 0.1553E-02, 0.1553E-02, 0.1590E-02, 0.1628E-02,& - 0.1666E-02, 0.1703E-02, 0.1741E-02, 0.1778E-02,& - 0.1816E-02, 0.1854E-02, 0.1891E-02, 0.1967E-02,& - 0.2004E-02, 0.2042E-02, 0.2079E-02, 0.2117E-02,& - 0.2155E-02, 0.2230E-02, 0.2268E-02, 0.2305E-02,& - 0.2343E-02, 0.2418E-02, 0.2456E-02, 0.2493E-02,& - 0.2569E-02, 0.2606E-02, 0.2681E-02, 0.2719E-02,& - 0.2757E-02, 0.2832E-02, 0.2870E-02, 0.2945E-02,& - 0.3020E-02, 0.3058E-02, 0.3133E-02, 0.3171E-02,& - 0.3246E-02, 0.3321E-02, 0.3396E-02, 0.3434E-02,& - 0.3509E-02, 0.3584E-02, 0.3660E-02, 0.3735E-02,& - 0.3810E-02, 0.3885E-02, 0.3961E-02, 0.4036E-02,& - 0.4111E-02, 0.4186E-02, 0.4262E-02, 0.4337E-02,& - 0.4412E-02, 0.4525E-02, 0.4600E-02, 0.4676E-02,& - 0.4751E-02, 0.4864E-02, 0.4939E-02, 0.5052E-02,& - 0.5127E-02, 0.5240E-02, 0.5315E-02, 0.5428E-02,& - 0.5541E-02, 0.5616E-02, 0.5729E-02, 0.5842E-02,& - 0.5955E-02, 0.6030E-02, 0.6143E-02, 0.6256E-02,& - 0.6369E-02, 0.6482E-02, 0.6594E-02, 0.6745E-02,& - 0.6858E-02, 0.6971E-02, 0.7084E-02, 0.7234E-02,& - 0.7347E-02, 0.7460E-02, 0.7610E-02, 0.7761E-02,& - 0.7874E-02, 0.8024E-02, 0.8137E-02, 0.8288E-02,& - 0.8438E-02, 0.8589E-02, 0.8739E-02, 0.8890E-02,& - 0.9040E-02, 0.9191E-02, 0.9341E-02, 0.9492E-02,& - 0.9680E-02, 0.9830E-02, 0.9981E-02, 0.1017E-01,& - 0.1032E-01, 0.1051E-01, 0.1070E-01, 0.1085E-01,& - 0.1103E-01, 0.1122E-01, 0.1141E-01, 0.1160E-01,& - 0.1179E-01, 0.1197E-01, 0.1216E-01, 0.1239E-01,& - 0.1258E-01, 0.1277E-01, 0.1299E-01, 0.1318E-01,& - 0.1340E-01, 0.1363E-01, 0.1386E-01, 0.1408E-01,& - 0.1431E-01, 0.1453E-01, 0.1476E-01, 0.1498E-01,& - 0.1521E-01, 0.1547E-01, 0.1570E-01, 0.1596E-01,& - 0.1619E-01, 0.1645E-01, 0.1672E-01, 0.1698E-01,& - 0.1724E-01, 0.1751E-01, 0.1777E-01, 0.1807E-01,& - 0.1833E-01, 0.1863E-01, 0.1890E-01, 0.1920E-01,& - 0.1950E-01, 0.1980E-01, 0.2010E-01, 0.2040E-01,& - 0.2070E-01, 0.2100E-01, 0.2134E-01, 0.2164E-01,& - 0.2198E-01, 0.2232E-01, 0.2266E-01, 0.2300E-01,& - 0.2334E-01, 0.2368E-01, 0.2402E-01, 0.2439E-01,& - 0.2473E-01, 0.2511E-01, 0.2548E-01, 0.2586E-01,& - 0.2623E-01, 0.2661E-01, 0.2699E-01, 0.2740E-01,& - 0.2778E-01, 0.2819E-01, 0.2861E-01, 0.2902E-01,& - 0.2943E-01, 0.2985E-01, 0.3030E-01, 0.3071E-01,& - 0.3116E-01, 0.3162E-01, 0.3207E-01, 0.3252E-01,& - 0.3297E-01, 0.3342E-01, 0.3391E-01, 0.3440E-01,& - 0.3485E-01, 0.3534E-01, 0.3587E-01, 0.3636E-01,& - 0.3685E-01, 0.3737E-01, 0.3790E-01, 0.3843E-01,& - 0.3895E-01, 0.3948E-01, 0.4004E-01, 0.4061E-01,& - 0.4113E-01, 0.4170E-01, 0.4230E-01, 0.4287E-01,& - 0.4343E-01, 0.4403E-01, 0.4463E-01, 0.4524E-01,& - 0.4584E-01, 0.4648E-01, 0.4712E-01, 0.4772E-01,& - 0.4836E-01, 0.4904E-01, 0.4968E-01, 0.5035E-01,& - 0.5103E-01, 0.5171E-01, 0.5238E-01, 0.5306E-01,& - 0.5378E-01, 0.5449E-01, 0.5521E-01, 0.5596E-01,& - 0.5667E-01, 0.5743E-01, 0.5818E-01, 0.5893E-01,& - 0.5968E-01, 0.6047E-01, 0.6126E-01, 0.6205E-01,& - 0.6288E-01, 0.6367E-01, 0.6450E-01, 0.6533E-01,& - 0.6619E-01, 0.6702E-01, 0.6789E-01, 0.6875E-01,& - 0.6962E-01, 0.7052E-01, 0.7142E-01, 0.7233E-01,& - 0.7323E-01, 0.7417E-01, 0.7511E-01, 0.7605E-01,& - 0.7703E-01, 0.7797E-01, 0.7899E-01, 0.7996E-01,& - 0.8094E-01, 0.8196E-01, 0.8301E-01, 0.8403E-01,& - 0.8508E-01, 0.8613E-01, 0.8719E-01, 0.8828E-01,& - 0.8937E-01, 0.9046E-01, 0.9159E-01, 0.9272E-01,& - 0.9385E-01, 0.9501E-01, 0.9618E-01, 0.9735E-01,& - 0.9851E-01, 0.9972E-01, 0.1009E+00, 0.1022E+00,& - 0.1034E+00, 0.1046E+00, 0.1059E+00, 0.1072E+00,& - 0.1085E+00, 0.1098E+00, 0.1111E+00, 0.1124E+00,& - 0.1138E+00, 0.1151E+00, 0.1165E+00, 0.1179E+00,& - 0.1193E+00, 0.1207E+00, 0.1222E+00, 0.1236E+00,& - 0.1251E+00, 0.1265E+00, 0.1280E+00, 0.1296E+00,& - 0.1311E+00, 0.1326E+00, 0.1342E+00, 0.1357E+00,& - 0.1373E+00, 0.1389E+00, 0.1405E+00, 0.1422E+00,& - 0.1438E+00, 0.1455E+00, 0.1472E+00, 0.1489E+00,& - 0.1506E+00, 0.1524E+00, 0.1541E+00, 0.1559E+00,& - 0.1577E+00, 0.1595E+00, 0.1613E+00, 0.1632E+00,& - 0.1650E+00, 0.1669E+00, 0.1688E+00, 0.1707E+00,& - 0.1726E+00, 0.1746E+00, 0.1766E+00, 0.1786E+00,& - 0.1806E+00, 0.1826E+00, 0.1847E+00, 0.1868E+00,& - 0.1889E+00, 0.1910E+00, 0.1931E+00, 0.1953E+00,& - 0.1975E+00, 0.1997E+00, 0.2019E+00, 0.2042E+00,& - 0.2064E+00, 0.2087E+00, 0.2111E+00, 0.2134E+00,& - 0.2158E+00, 0.2181E+00, 0.2205E+00, 0.2230E+00,& - 0.2254E+00, 0.2279E+00, 0.2304E+00, 0.2329E+00,& - 0.2355E+00, 0.2381E+00, 0.2407E+00, 0.2433E+00,& - 0.2459E+00, 0.2486E+00, 0.2513E+00, 0.2541E+00,& - 0.2568E+00, 0.2596E+00, 0.2624E+00, 0.2652E+00,& - 0.2681E+00, 0.2710E+00, 0.2739E+00, 0.2769E+00,& - 0.2798E+00, 0.2828E+00, 0.2859E+00, 0.2889E+00,& - 0.2921E+00, 0.2952E+00, 0.2983E+00, 0.3015E+00,& - 0.3047E+00, 0.3080E+00, 0.3112E+00, 0.3145E+00,& - 0.3179E+00, 0.3213E+00, 0.3246E+00, 0.3281E+00,& - 0.3316E+00, 0.3351E+00, 0.3386E+00, 0.3421E+00,& - 0.3458E+00, 0.3494E+00, 0.3530E+00, 0.3568E+00,& - 0.3605E+00, 0.3643E+00, 0.3681E+00, 0.3719E+00,& - 0.3758E+00, 0.3797E+00, 0.3837E+00, 0.3877E+00,& - 0.3917E+00, 0.3958E+00, 0.3999E+00, 0.4041E+00,& - 0.4082E+00, 0.4125E+00, 0.4167E+00, 0.4211E+00,& - 0.4254E+00, 0.4298E+00, 0.4342E+00, 0.4387E+00,& - 0.4432E+00, 0.4478E+00, 0.4524E+00, 0.4570E+00,& - 0.4617E+00, 0.4665E+00, 0.4712E+00, 0.4760E+00,& - 0.4809E+00, 0.4858E+00, 0.4908E+00, 0.4958E+00,& - 0.5009E+00, 0.5060E+00, 0.5111E+00, 0.5163E+00,& - 0.5216E+00, 0.5269E+00, 0.5322E+00, 0.5376E+00,& - 0.5431E+00, 0.5486E+00, 0.5542E+00, 0.5598E+00,& - 0.5654E+00, 0.5711E+00, 0.5769E+00, 0.5827E+00,& - 0.5886E+00, 0.5945E+00, 0.6005E+00, 0.6066E+00,& - 0.6127E+00, 0.6188E+00, 0.6250E+00, 0.6313E+00,& - 0.6377E+00, 0.6441E+00, 0.6506E+00, 0.6571E+00,& - 0.6636E+00, 0.6703E+00, 0.6770E+00, 0.6838E+00,& - 0.6906E+00, 0.6975E+00, 0.7045E+00, 0.7115E+00,& - 0.7187E+00, 0.7258E+00, 0.7331E+00, 0.7404E+00,& - 0.7477E+00, 0.7552E+00, 0.7627E+00, 0.7703E+00,& - 0.7780E+00, 0.7857E+00, 0.7936E+00, 0.8015E+00,& - 0.8094E+00, 0.8175E+00, 0.8256E+00, 0.8338E+00,& - 0.8421E+00, 0.8505E+00, 0.8589E+00, 0.8674E+00,& - 0.8760E+00, 0.8847E+00, 0.8935E+00, 0.9023E+00,& - 0.9113E+00, 0.9204E+00, 0.9295E+00, 0.9387E+00,& - 0.9480E+00, 0.9574E+00, 0.9668E+00, 0.9765E+00,& - 0.9862E+00, 0.9959E+00, 0.1006E+01, 0.1016E+01,& - 0.1026E+01, 0.1036E+01, 0.1046E+01, 0.1057E+01,& - 0.1067E+01, 0.1078E+01, 0.1088E+01, 0.1099E+01,& - 0.1110E+01, 0.1121E+01, 0.1132E+01, 0.1143E+01,& - 0.1155E+01, 0.1166E+01, 0.1178E+01, 0.1190E+01,& - 0.1201E+01, 0.1213E+01, 0.1225E+01, 0.1238E+01,& - 0.1250E+01, 0.1262E+01, 0.1275E+01, 0.1288E+01,& - 0.1300E+01, 0.1313E+01, 0.1326E+01, 0.1340E+01,& - 0.1353E+01, 0.1367E+01, 0.1380E+01, 0.1394E+01,& - 0.1408E+01, 0.1422E+01, 0.1436E+01, 0.1451E+01,& - 0.1465E+01, 0.1480E+01, 0.1495E+01, 0.1510E+01,& - 0.1525E+01, 0.1540E+01, 0.1556E+01, 0.1572E+01,& - 0.1588E+01, 0.1604E+01, 0.1620E+01, 0.1636E+01,& - 0.1653E+01, 0.1669E+01, 0.1686E+01, 0.1704E+01,& - 0.1721E+01, 0.1738E+01, 0.1756E+01, 0.1774E+01,& - 0.1792E+01, 0.1810E+01, 0.1829E+01, 0.1848E+01,& - 0.1867E+01, 0.1886E+01, 0.1905E+01, 0.1925E+01,& - 0.1945E+01, 0.1965E+01, 0.1985E+01, 0.2006E+01,& - 0.2027E+01, 0.2048E+01, 0.2069E+01, 0.2091E+01,& - 0.2112E+01, 0.2135E+01, 0.2157E+01, 0.2180E+01,& - 0.2202E+01, 0.2226E+01, 0.2249E+01, 0.2273E+01,& - 0.2297E+01, 0.2321E+01, 0.2346E+01, 0.2371E+01,& - 0.2396E+01, 0.2422E+01, 0.2448E+01, 0.2474E+01,& - 0.2501E+01, 0.2528E+01, 0.2556E+01, 0.2583E+01,& - 0.2611E+01, 0.2640E+01, 0.2669E+01, 0.2698E+01,& - 0.2728E+01, 0.2758E+01, 0.2788E+01, 0.2819E+01,& - 0.2851E+01, 0.2883E+01, 0.2915E+01, 0.2948E+01,& - 0.2981E+01, 0.3014E+01, 0.3049E+01, 0.3083E+01,& - 0.3119E+01, 0.3154E+01, 0.3191E+01, 0.3227E+01,& - 0.3265E+01, 0.3303E+01, 0.3341E+01, 0.3380E+01,& - 0.3420E+01, 0.3461E+01, 0.3502E+01, 0.3543E+01,& - 0.3586E+01, 0.3629E+01, 0.3673E+01, 0.3717E+01,& - 0.3763E+01, 0.3809E+01, 0.3856E+01, 0.3904E+01,& - 0.3952E+01, 0.4002E+01, 0.4052E+01, 0.4103E+01,& - 0.4155E+01, 0.4209E+01, 0.4263E+01, 0.4318E+01,& - 0.4374E+01, 0.4432E+01, 0.4490E+01, 0.4550E+01,& - 0.4611E+01, 0.4673E+01, 0.4736E+01, 0.4801E+01,& - 0.4867E+01, 0.4935E+01, 0.5004E+01, 0.5075E+01,& - 0.5147E+01, 0.5221E+01, 0.5296E+01, 0.5374E+01,& - 0.5453E+01, 0.5534E+01, 0.5618E+01, 0.5703E+01,& - 0.5791E+01, 0.5881E+01, 0.5973E+01, 0.6068E+01,& - 0.6165E+01, 0.6265E+01, 0.6368E+01, 0.6475E+01,& - 0.6584E+01, 0.6697E+01, 0.6813E+01, 0.6934E+01,& - 0.7058E+01, 0.7186E+01, 0.7319E+01, 0.7457E+01,& - 0.7600E+01, 0.7748E+01, 0.7902E+01, 0.8063E+01,& - 0.8230E+01, 0.8404E+01, 0.8587E+01, 0.8777E+01,& - 0.8977E+01, 0.9188E+01, 0.9409E+01, 0.9642E+01,& - 0.9889E+01, 0.1015E+02, 0.1043E+02, 0.1073E+02,& - 0.1105E+02, 0.1139E+02, 0.1176E+02, 0.1216E+02,& - 0.1261E+02, 0.1309E+02, 0.1364E+02, 0.1425E+02,& - 0.1495E+02, 0.1577E+02, 0.1675E+02, 0.1796E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,103) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.4825E-04, 0.4825E-04, 0.4825E-04,& - 0.4825E-04, 0.4825E-04, 0.4825E-04, 0.4825E-04,& - 0.4825E-04, 0.4825E-04, 0.4825E-04, 0.4825E-04,& - 0.4825E-04, 0.4825E-04, 0.4825E-04, 0.4825E-04,& - 0.4825E-04, 0.4825E-04, 0.8651E-04, 0.8651E-04,& - 0.8651E-04, 0.8651E-04, 0.8651E-04, 0.8651E-04,& - 0.8651E-04, 0.8651E-04, 0.8651E-04, 0.8651E-04,& - 0.8651E-04, 0.1248E-03, 0.1248E-03, 0.1248E-03,& - 0.1248E-03, 0.1248E-03, 0.1248E-03, 0.1248E-03,& - 0.1248E-03, 0.1248E-03, 0.1630E-03, 0.1630E-03,& - 0.1630E-03, 0.1630E-03, 0.1630E-03, 0.1630E-03,& - 0.1630E-03, 0.2013E-03, 0.2013E-03, 0.2013E-03,& - 0.2013E-03, 0.2013E-03, 0.2013E-03, 0.2395E-03,& - 0.2395E-03, 0.2395E-03, 0.2395E-03, 0.2395E-03,& - 0.2395E-03, 0.2778E-03, 0.2778E-03, 0.2778E-03,& - 0.2778E-03, 0.3160E-03, 0.3160E-03, 0.3160E-03,& - 0.3160E-03, 0.3543E-03, 0.3543E-03, 0.3543E-03,& - 0.3543E-03, 0.3925E-03, 0.3925E-03, 0.3925E-03,& - 0.3925E-03, 0.4308E-03, 0.4308E-03, 0.4308E-03,& - 0.4691E-03, 0.4691E-03, 0.4691E-03, 0.5073E-03,& - 0.5073E-03, 0.5073E-03, 0.5456E-03, 0.5456E-03,& - 0.5456E-03, 0.5838E-03, 0.5838E-03, 0.6221E-03,& - 0.6221E-03, 0.6221E-03, 0.6603E-03, 0.6603E-03,& - 0.6986E-03, 0.6986E-03, 0.7368E-03, 0.7368E-03,& - 0.7751E-03, 0.7751E-03, 0.8133E-03, 0.8133E-03,& - 0.8516E-03, 0.8516E-03, 0.8898E-03, 0.8898E-03,& - 0.9281E-03, 0.9281E-03, 0.9664E-03, 0.1005E-02,& - 0.1005E-02, 0.1043E-02, 0.1081E-02, 0.1081E-02,& - 0.1119E-02, 0.1158E-02, 0.1158E-02, 0.1196E-02,& - 0.1234E-02, 0.1234E-02, 0.1272E-02, 0.1311E-02,& - 0.1349E-02, 0.1387E-02, 0.1387E-02, 0.1425E-02,& - 0.1464E-02, 0.1502E-02, 0.1540E-02, 0.1578E-02,& - 0.1617E-02, 0.1655E-02, 0.1655E-02, 0.1693E-02,& - 0.1731E-02, 0.1770E-02, 0.1808E-02, 0.1846E-02,& - 0.1884E-02, 0.1961E-02, 0.1999E-02, 0.2037E-02,& - 0.2076E-02, 0.2114E-02, 0.2152E-02, 0.2190E-02,& - 0.2267E-02, 0.2305E-02, 0.2344E-02, 0.2382E-02,& - 0.2458E-02, 0.2497E-02, 0.2535E-02, 0.2611E-02,& - 0.2650E-02, 0.2726E-02, 0.2764E-02, 0.2841E-02,& - 0.2879E-02, 0.2956E-02, 0.2994E-02, 0.3070E-02,& - 0.3109E-02, 0.3185E-02, 0.3262E-02, 0.3300E-02,& - 0.3376E-02, 0.3453E-02, 0.3529E-02, 0.3568E-02,& - 0.3644E-02, 0.3721E-02, 0.3797E-02, 0.3874E-02,& - 0.3950E-02, 0.4027E-02, 0.4103E-02, 0.4180E-02,& - 0.4256E-02, 0.4333E-02, 0.4409E-02, 0.4486E-02,& - 0.4601E-02, 0.4677E-02, 0.4754E-02, 0.4868E-02,& - 0.4945E-02, 0.5021E-02, 0.5136E-02, 0.5213E-02,& - 0.5327E-02, 0.5404E-02, 0.5519E-02, 0.5633E-02,& - 0.5710E-02, 0.5825E-02, 0.5939E-02, 0.6054E-02,& - 0.6169E-02, 0.6284E-02, 0.6398E-02, 0.6513E-02,& - 0.6628E-02, 0.6743E-02, 0.6858E-02, 0.6972E-02,& - 0.7087E-02, 0.7240E-02, 0.7355E-02, 0.7470E-02,& - 0.7623E-02, 0.7737E-02, 0.7890E-02, 0.8005E-02,& - 0.8158E-02, 0.8311E-02, 0.8464E-02, 0.8579E-02,& - 0.8732E-02, 0.8885E-02, 0.9038E-02, 0.9191E-02,& - 0.9344E-02, 0.9535E-02, 0.9688E-02, 0.9841E-02,& - 0.9994E-02, 0.1019E-01, 0.1034E-01, 0.1053E-01,& - 0.1072E-01, 0.1087E-01, 0.1107E-01, 0.1126E-01,& - 0.1145E-01, 0.1164E-01, 0.1183E-01, 0.1202E-01,& - 0.1221E-01, 0.1240E-01, 0.1260E-01, 0.1283E-01,& - 0.1302E-01, 0.1325E-01, 0.1344E-01, 0.1367E-01,& - 0.1390E-01, 0.1413E-01, 0.1436E-01, 0.1458E-01,& - 0.1481E-01, 0.1504E-01, 0.1527E-01, 0.1554E-01,& - 0.1577E-01, 0.1604E-01, 0.1627E-01, 0.1654E-01,& - 0.1680E-01, 0.1707E-01, 0.1734E-01, 0.1761E-01,& - 0.1787E-01, 0.1814E-01, 0.1841E-01, 0.1872E-01,& - 0.1898E-01, 0.1929E-01, 0.1960E-01, 0.1990E-01,& - 0.2021E-01, 0.2051E-01, 0.2082E-01, 0.2113E-01,& - 0.2147E-01, 0.2178E-01, 0.2212E-01, 0.2243E-01,& - 0.2277E-01, 0.2312E-01, 0.2346E-01, 0.2384E-01,& - 0.2419E-01, 0.2453E-01, 0.2491E-01, 0.2526E-01,& - 0.2564E-01, 0.2602E-01, 0.2641E-01, 0.2679E-01,& - 0.2721E-01, 0.2759E-01, 0.2801E-01, 0.2839E-01,& - 0.2882E-01, 0.2924E-01, 0.2966E-01, 0.3008E-01,& - 0.3054E-01, 0.3096E-01, 0.3142E-01, 0.3188E-01,& - 0.3233E-01, 0.3279E-01, 0.3325E-01, 0.3371E-01,& - 0.3421E-01, 0.3471E-01, 0.3520E-01, 0.3570E-01,& - 0.3620E-01, 0.3670E-01, 0.3723E-01, 0.3773E-01,& - 0.3826E-01, 0.3880E-01, 0.3934E-01, 0.3987E-01,& - 0.4044E-01, 0.4102E-01, 0.4155E-01, 0.4213E-01,& - 0.4274E-01, 0.4331E-01, 0.4393E-01, 0.4450E-01,& - 0.4511E-01, 0.4572E-01, 0.4637E-01, 0.4699E-01,& - 0.4764E-01, 0.4829E-01, 0.4894E-01, 0.4959E-01,& - 0.5028E-01, 0.5093E-01, 0.5161E-01, 0.5230E-01,& - 0.5303E-01, 0.5372E-01, 0.5445E-01, 0.5517E-01,& - 0.5590E-01, 0.5663E-01, 0.5739E-01, 0.5816E-01,& - 0.5892E-01, 0.5969E-01, 0.6049E-01, 0.6129E-01,& - 0.6210E-01, 0.6290E-01, 0.6370E-01, 0.6454E-01,& - 0.6539E-01, 0.6623E-01, 0.6711E-01, 0.6795E-01,& - 0.6883E-01, 0.6975E-01, 0.7063E-01, 0.7155E-01,& - 0.7246E-01, 0.7338E-01, 0.7434E-01, 0.7529E-01,& - 0.7625E-01, 0.7721E-01, 0.7820E-01, 0.7920E-01,& - 0.8019E-01, 0.8119E-01, 0.8222E-01, 0.8325E-01,& - 0.8432E-01, 0.8536E-01, 0.8643E-01, 0.8754E-01,& - 0.8861E-01, 0.8972E-01, 0.9083E-01, 0.9197E-01,& - 0.9312E-01, 0.9427E-01, 0.9542E-01, 0.9660E-01,& - 0.9783E-01, 0.9901E-01, 0.1002E+00, 0.1015E+00,& - 0.1027E+00, 0.1039E+00, 0.1052E+00, 0.1065E+00,& - 0.1078E+00, 0.1091E+00, 0.1105E+00, 0.1118E+00,& - 0.1132E+00, 0.1145E+00, 0.1159E+00, 0.1173E+00,& - 0.1187E+00, 0.1201E+00, 0.1216E+00, 0.1230E+00,& - 0.1245E+00, 0.1260E+00, 0.1275E+00, 0.1290E+00,& - 0.1306E+00, 0.1321E+00, 0.1337E+00, 0.1353E+00,& - 0.1368E+00, 0.1385E+00, 0.1401E+00, 0.1418E+00,& - 0.1434E+00, 0.1451E+00, 0.1468E+00, 0.1486E+00,& - 0.1503E+00, 0.1520E+00, 0.1538E+00, 0.1556E+00,& - 0.1574E+00, 0.1592E+00, 0.1611E+00, 0.1629E+00,& - 0.1648E+00, 0.1667E+00, 0.1686E+00, 0.1706E+00,& - 0.1725E+00, 0.1745E+00, 0.1766E+00, 0.1785E+00,& - 0.1806E+00, 0.1827E+00, 0.1847E+00, 0.1868E+00,& - 0.1890E+00, 0.1911E+00, 0.1933E+00, 0.1955E+00,& - 0.1977E+00, 0.1999E+00, 0.2022E+00, 0.2045E+00,& - 0.2068E+00, 0.2091E+00, 0.2114E+00, 0.2138E+00,& - 0.2162E+00, 0.2186E+00, 0.2211E+00, 0.2235E+00,& - 0.2261E+00, 0.2285E+00, 0.2311E+00, 0.2337E+00,& - 0.2363E+00, 0.2389E+00, 0.2415E+00, 0.2442E+00,& - 0.2469E+00, 0.2496E+00, 0.2523E+00, 0.2551E+00,& - 0.2579E+00, 0.2608E+00, 0.2636E+00, 0.2665E+00,& - 0.2694E+00, 0.2724E+00, 0.2753E+00, 0.2783E+00,& - 0.2814E+00, 0.2844E+00, 0.2875E+00, 0.2906E+00,& - 0.2938E+00, 0.2970E+00, 0.3002E+00, 0.3034E+00,& - 0.3067E+00, 0.3100E+00, 0.3134E+00, 0.3167E+00,& - 0.3201E+00, 0.3236E+00, 0.3270E+00, 0.3305E+00,& - 0.3341E+00, 0.3376E+00, 0.3413E+00, 0.3449E+00,& - 0.3486E+00, 0.3523E+00, 0.3560E+00, 0.3598E+00,& - 0.3637E+00, 0.3675E+00, 0.3714E+00, 0.3753E+00,& - 0.3793E+00, 0.3833E+00, 0.3874E+00, 0.3915E+00,& - 0.3956E+00, 0.3997E+00, 0.4039E+00, 0.4082E+00,& - 0.4125E+00, 0.4168E+00, 0.4212E+00, 0.4256E+00,& - 0.4301E+00, 0.4345E+00, 0.4391E+00, 0.4437E+00,& - 0.4483E+00, 0.4530E+00, 0.4577E+00, 0.4625E+00,& - 0.4672E+00, 0.4721E+00, 0.4770E+00, 0.4820E+00,& - 0.4869E+00, 0.4920E+00, 0.4971E+00, 0.5023E+00,& - 0.5074E+00, 0.5127E+00, 0.5180E+00, 0.5233E+00,& - 0.5287E+00, 0.5342E+00, 0.5396E+00, 0.5452E+00,& - 0.5508E+00, 0.5565E+00, 0.5622E+00, 0.5679E+00,& - 0.5737E+00, 0.5796E+00, 0.5856E+00, 0.5915E+00,& - 0.5976E+00, 0.6037E+00, 0.6099E+00, 0.6161E+00,& - 0.6224E+00, 0.6287E+00, 0.6351E+00, 0.6416E+00,& - 0.6482E+00, 0.6547E+00, 0.6614E+00, 0.6681E+00,& - 0.6749E+00, 0.6817E+00, 0.6887E+00, 0.6957E+00,& - 0.7027E+00, 0.7099E+00, 0.7170E+00, 0.7243E+00,& - 0.7316E+00, 0.7390E+00, 0.7465E+00, 0.7541E+00,& - 0.7617E+00, 0.7694E+00, 0.7771E+00, 0.7850E+00,& - 0.7929E+00, 0.8009E+00, 0.8090E+00, 0.8172E+00,& - 0.8254E+00, 0.8338E+00, 0.8421E+00, 0.8506E+00,& - 0.8592E+00, 0.8679E+00, 0.8766E+00, 0.8854E+00,& - 0.8944E+00, 0.9033E+00, 0.9125E+00, 0.9216E+00,& - 0.9309E+00, 0.9403E+00, 0.9497E+00, 0.9593E+00,& - 0.9690E+00, 0.9787E+00, 0.9885E+00, 0.9985E+00,& - 0.1009E+01, 0.1019E+01, 0.1029E+01, 0.1039E+01,& - 0.1050E+01, 0.1060E+01, 0.1071E+01, 0.1082E+01,& - 0.1093E+01, 0.1104E+01, 0.1115E+01, 0.1126E+01,& - 0.1137E+01, 0.1149E+01, 0.1160E+01, 0.1172E+01,& - 0.1184E+01, 0.1196E+01, 0.1208E+01, 0.1220E+01,& - 0.1232E+01, 0.1245E+01, 0.1257E+01, 0.1270E+01,& - 0.1283E+01, 0.1296E+01, 0.1309E+01, 0.1322E+01,& - 0.1336E+01, 0.1349E+01, 0.1363E+01, 0.1377E+01,& - 0.1391E+01, 0.1405E+01, 0.1419E+01, 0.1433E+01,& - 0.1448E+01, 0.1463E+01, 0.1478E+01, 0.1493E+01,& - 0.1508E+01, 0.1523E+01, 0.1539E+01, 0.1555E+01,& - 0.1570E+01, 0.1586E+01, 0.1603E+01, 0.1619E+01,& - 0.1636E+01, 0.1653E+01, 0.1670E+01, 0.1687E+01,& - 0.1704E+01, 0.1722E+01, 0.1740E+01, 0.1757E+01,& - 0.1776E+01, 0.1794E+01, 0.1813E+01, 0.1832E+01,& - 0.1851E+01, 0.1870E+01, 0.1889E+01, 0.1909E+01,& - 0.1929E+01, 0.1949E+01, 0.1970E+01, 0.1990E+01,& - 0.2011E+01, 0.2032E+01, 0.2054E+01, 0.2075E+01,& - 0.2097E+01, 0.2120E+01, 0.2142E+01, 0.2165E+01,& - 0.2188E+01, 0.2211E+01, 0.2235E+01, 0.2259E+01,& - 0.2283E+01, 0.2308E+01, 0.2333E+01, 0.2358E+01,& - 0.2383E+01, 0.2409E+01, 0.2435E+01, 0.2462E+01,& - 0.2489E+01, 0.2516E+01, 0.2543E+01, 0.2571E+01,& - 0.2600E+01, 0.2628E+01, 0.2658E+01, 0.2687E+01,& - 0.2717E+01, 0.2747E+01, 0.2778E+01, 0.2809E+01,& - 0.2841E+01, 0.2873E+01, 0.2905E+01, 0.2938E+01,& - 0.2972E+01, 0.3006E+01, 0.3040E+01, 0.3075E+01,& - 0.3111E+01, 0.3147E+01, 0.3184E+01, 0.3221E+01,& - 0.3258E+01, 0.3297E+01, 0.3336E+01, 0.3375E+01,& - 0.3415E+01, 0.3456E+01, 0.3498E+01, 0.3540E+01,& - 0.3583E+01, 0.3626E+01, 0.3671E+01, 0.3716E+01,& - 0.3761E+01, 0.3808E+01, 0.3855E+01, 0.3904E+01,& - 0.3953E+01, 0.4003E+01, 0.4054E+01, 0.4105E+01,& - 0.4158E+01, 0.4212E+01, 0.4267E+01, 0.4323E+01,& - 0.4379E+01, 0.4436E+01, 0.4497E+01, 0.4557E+01,& - 0.4619E+01, 0.4681E+01, 0.4746E+01, 0.4811E+01,& - 0.4878E+01, 0.4947E+01, 0.5017E+01, 0.5088E+01,& - 0.5161E+01, 0.5236E+01, 0.5313E+01, 0.5391E+01,& - 0.5471E+01, 0.5554E+01, 0.5638E+01, 0.5724E+01,& - 0.5813E+01, 0.5904E+01, 0.5998E+01, 0.6094E+01,& - 0.6193E+01, 0.6294E+01, 0.6399E+01, 0.6506E+01,& - 0.6617E+01, 0.6732E+01, 0.6850E+01, 0.6971E+01,& - 0.7097E+01, 0.7228E+01, 0.7362E+01, 0.7502E+01,& - 0.7647E+01, 0.7798E+01, 0.7954E+01, 0.8117E+01,& - 0.8286E+01, 0.8463E+01, 0.8648E+01, 0.8842E+01,& - 0.9045E+01, 0.9258E+01, 0.9483E+01, 0.9720E+01,& - 0.9971E+01, 0.1024E+02, 0.1052E+02, 0.1082E+02,& - 0.1115E+02, 0.1149E+02, 0.1187E+02, 0.1228E+02,& - 0.1273E+02, 0.1323E+02, 0.1378E+02, 0.1440E+02,& - 0.1512E+02, 0.1595E+02, 0.1695E+02, 0.1818E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,104) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.4889E-04,& - 0.4889E-04, 0.4889E-04, 0.4889E-04, 0.4889E-04,& - 0.4889E-04, 0.4889E-04, 0.4889E-04, 0.4889E-04,& - 0.4889E-04, 0.4889E-04, 0.4889E-04, 0.4889E-04,& - 0.4889E-04, 0.4889E-04, 0.4889E-04, 0.4889E-04,& - 0.8778E-04, 0.8778E-04, 0.8778E-04, 0.8778E-04,& - 0.8778E-04, 0.8778E-04, 0.8778E-04, 0.8778E-04,& - 0.8778E-04, 0.8778E-04, 0.8778E-04, 0.8778E-04,& - 0.1267E-03, 0.1267E-03, 0.1267E-03, 0.1267E-03,& - 0.1267E-03, 0.1267E-03, 0.1267E-03, 0.1267E-03,& - 0.1267E-03, 0.1656E-03, 0.1656E-03, 0.1656E-03,& - 0.1656E-03, 0.1656E-03, 0.1656E-03, 0.1656E-03,& - 0.2044E-03, 0.2044E-03, 0.2044E-03, 0.2044E-03,& - 0.2044E-03, 0.2044E-03, 0.2433E-03, 0.2433E-03,& - 0.2433E-03, 0.2433E-03, 0.2433E-03, 0.2822E-03,& - 0.2822E-03, 0.2822E-03, 0.2822E-03, 0.2822E-03,& - 0.3211E-03, 0.3211E-03, 0.3211E-03, 0.3211E-03,& - 0.3600E-03, 0.3600E-03, 0.3600E-03, 0.3600E-03,& - 0.3989E-03, 0.3989E-03, 0.3989E-03, 0.4378E-03,& - 0.4378E-03, 0.4378E-03, 0.4378E-03, 0.4767E-03,& - 0.4767E-03, 0.4767E-03, 0.5156E-03, 0.5156E-03,& - 0.5156E-03, 0.5544E-03, 0.5544E-03, 0.5933E-03,& - 0.5933E-03, 0.5933E-03, 0.6322E-03, 0.6322E-03,& - 0.6711E-03, 0.6711E-03, 0.6711E-03, 0.7100E-03,& - 0.7100E-03, 0.7489E-03, 0.7489E-03, 0.7878E-03,& - 0.7878E-03, 0.8267E-03, 0.8267E-03, 0.8656E-03,& - 0.8656E-03, 0.9044E-03, 0.9044E-03, 0.9433E-03,& - 0.9822E-03, 0.9822E-03, 0.1021E-02, 0.1021E-02,& - 0.1060E-02, 0.1099E-02, 0.1099E-02, 0.1138E-02,& - 0.1177E-02, 0.1177E-02, 0.1216E-02, 0.1254E-02,& - 0.1293E-02, 0.1293E-02, 0.1332E-02, 0.1371E-02,& - 0.1410E-02, 0.1449E-02, 0.1449E-02, 0.1488E-02,& - 0.1527E-02, 0.1566E-02, 0.1604E-02, 0.1643E-02,& - 0.1682E-02, 0.1721E-02, 0.1760E-02, 0.1799E-02,& - 0.1838E-02, 0.1877E-02, 0.1916E-02, 0.1954E-02,& - 0.1993E-02, 0.2032E-02, 0.2071E-02, 0.2110E-02,& - 0.2149E-02, 0.2188E-02, 0.2266E-02, 0.2304E-02,& - 0.2343E-02, 0.2382E-02, 0.2460E-02, 0.2499E-02,& - 0.2538E-02, 0.2616E-02, 0.2654E-02, 0.2693E-02,& - 0.2771E-02, 0.2810E-02, 0.2888E-02, 0.2927E-02,& - 0.3004E-02, 0.3043E-02, 0.3121E-02, 0.3160E-02,& - 0.3238E-02, 0.3316E-02, 0.3354E-02, 0.3432E-02,& - 0.3510E-02, 0.3588E-02, 0.3666E-02, 0.3704E-02,& - 0.3782E-02, 0.3860E-02, 0.3938E-02, 0.4016E-02,& - 0.4093E-02, 0.4171E-02, 0.4249E-02, 0.4327E-02,& - 0.4404E-02, 0.4521E-02, 0.4599E-02, 0.4677E-02,& - 0.4754E-02, 0.4871E-02, 0.4949E-02, 0.5027E-02,& - 0.5143E-02, 0.5221E-02, 0.5338E-02, 0.5416E-02,& - 0.5532E-02, 0.5610E-02, 0.5727E-02, 0.5843E-02,& - 0.5960E-02, 0.6038E-02, 0.6154E-02, 0.6271E-02,& - 0.6388E-02, 0.6504E-02, 0.6621E-02, 0.6738E-02,& - 0.6854E-02, 0.6971E-02, 0.7127E-02, 0.7243E-02,& - 0.7360E-02, 0.7477E-02, 0.7632E-02, 0.7749E-02,& - 0.7904E-02, 0.8021E-02, 0.8177E-02, 0.8332E-02,& - 0.8449E-02, 0.8604E-02, 0.8760E-02, 0.8916E-02,& - 0.9071E-02, 0.9227E-02, 0.9382E-02, 0.9538E-02,& - 0.9693E-02, 0.9888E-02, 0.1004E-01, 0.1020E-01,& - 0.1039E-01, 0.1055E-01, 0.1074E-01, 0.1090E-01,& - 0.1109E-01, 0.1129E-01, 0.1148E-01, 0.1168E-01,& - 0.1187E-01, 0.1207E-01, 0.1226E-01, 0.1245E-01,& - 0.1265E-01, 0.1288E-01, 0.1308E-01, 0.1331E-01,& - 0.1350E-01, 0.1374E-01, 0.1397E-01, 0.1417E-01,& - 0.1440E-01, 0.1463E-01, 0.1487E-01, 0.1514E-01,& - 0.1537E-01, 0.1560E-01, 0.1584E-01, 0.1611E-01,& - 0.1638E-01, 0.1662E-01, 0.1689E-01, 0.1716E-01,& - 0.1743E-01, 0.1770E-01, 0.1798E-01, 0.1825E-01,& - 0.1856E-01, 0.1883E-01, 0.1910E-01, 0.1942E-01,& - 0.1973E-01, 0.2004E-01, 0.2035E-01, 0.2066E-01,& - 0.2097E-01, 0.2128E-01, 0.2159E-01, 0.2194E-01,& - 0.2225E-01, 0.2260E-01, 0.2295E-01, 0.2330E-01,& - 0.2365E-01, 0.2400E-01, 0.2435E-01, 0.2474E-01,& - 0.2509E-01, 0.2548E-01, 0.2587E-01, 0.2626E-01,& - 0.2665E-01, 0.2704E-01, 0.2743E-01, 0.2782E-01,& - 0.2824E-01, 0.2867E-01, 0.2906E-01, 0.2949E-01,& - 0.2992E-01, 0.3038E-01, 0.3081E-01, 0.3128E-01,& - 0.3170E-01, 0.3217E-01, 0.3264E-01, 0.3310E-01,& - 0.3357E-01, 0.3408E-01, 0.3454E-01, 0.3505E-01,& - 0.3555E-01, 0.3606E-01, 0.3657E-01, 0.3707E-01,& - 0.3762E-01, 0.3816E-01, 0.3867E-01, 0.3921E-01,& - 0.3979E-01, 0.4034E-01, 0.4088E-01, 0.4147E-01,& - 0.4205E-01, 0.4263E-01, 0.4322E-01, 0.4384E-01,& - 0.4442E-01, 0.4504E-01, 0.4567E-01, 0.4629E-01,& - 0.4695E-01, 0.4757E-01, 0.4823E-01, 0.4889E-01,& - 0.4955E-01, 0.5022E-01, 0.5092E-01, 0.5162E-01,& - 0.5232E-01, 0.5302E-01, 0.5372E-01, 0.5445E-01,& - 0.5519E-01, 0.5593E-01, 0.5667E-01, 0.5741E-01,& - 0.5819E-01, 0.5897E-01, 0.5974E-01, 0.6056E-01,& - 0.6134E-01, 0.6215E-01, 0.6297E-01, 0.6383E-01,& - 0.6464E-01, 0.6550E-01, 0.6635E-01, 0.6725E-01,& - 0.6810E-01, 0.6900E-01, 0.6989E-01, 0.7083E-01,& - 0.7172E-01, 0.7265E-01, 0.7359E-01, 0.7456E-01,& - 0.7553E-01, 0.7650E-01, 0.7748E-01, 0.7845E-01,& - 0.7946E-01, 0.8047E-01, 0.8152E-01, 0.8257E-01,& - 0.8362E-01, 0.8467E-01, 0.8576E-01, 0.8685E-01,& - 0.8794E-01, 0.8903E-01, 0.9015E-01, 0.9128E-01,& - 0.9245E-01, 0.9362E-01, 0.9478E-01, 0.9595E-01,& - 0.9715E-01, 0.9836E-01, 0.9960E-01, 0.1008E+00,& - 0.1021E+00, 0.1033E+00, 0.1046E+00, 0.1059E+00,& - 0.1072E+00, 0.1085E+00, 0.1099E+00, 0.1112E+00,& - 0.1126E+00, 0.1140E+00, 0.1154E+00, 0.1168E+00,& - 0.1182E+00, 0.1196E+00, 0.1211E+00, 0.1225E+00,& - 0.1240E+00, 0.1255E+00, 0.1271E+00, 0.1286E+00,& - 0.1301E+00, 0.1317E+00, 0.1333E+00, 0.1349E+00,& - 0.1365E+00, 0.1381E+00, 0.1398E+00, 0.1414E+00,& - 0.1431E+00, 0.1448E+00, 0.1465E+00, 0.1483E+00,& - 0.1500E+00, 0.1518E+00, 0.1536E+00, 0.1554E+00,& - 0.1572E+00, 0.1591E+00, 0.1610E+00, 0.1628E+00,& - 0.1647E+00, 0.1667E+00, 0.1686E+00, 0.1706E+00,& - 0.1726E+00, 0.1746E+00, 0.1766E+00, 0.1787E+00,& - 0.1807E+00, 0.1828E+00, 0.1849E+00, 0.1871E+00,& - 0.1892E+00, 0.1914E+00, 0.1936E+00, 0.1958E+00,& - 0.1981E+00, 0.2003E+00, 0.2026E+00, 0.2049E+00,& - 0.2072E+00, 0.2096E+00, 0.2120E+00, 0.2144E+00,& - 0.2169E+00, 0.2193E+00, 0.2218E+00, 0.2243E+00,& - 0.2268E+00, 0.2294E+00, 0.2319E+00, 0.2345E+00,& - 0.2372E+00, 0.2399E+00, 0.2426E+00, 0.2453E+00,& - 0.2480E+00, 0.2508E+00, 0.2536E+00, 0.2564E+00,& - 0.2592E+00, 0.2621E+00, 0.2650E+00, 0.2680E+00,& - 0.2709E+00, 0.2739E+00, 0.2770E+00, 0.2800E+00,& - 0.2831E+00, 0.2862E+00, 0.2894E+00, 0.2926E+00,& - 0.2958E+00, 0.2990E+00, 0.3023E+00, 0.3056E+00,& - 0.3089E+00, 0.3123E+00, 0.3158E+00, 0.3192E+00,& - 0.3226E+00, 0.3262E+00, 0.3297E+00, 0.3333E+00,& - 0.3369E+00, 0.3405E+00, 0.3442E+00, 0.3480E+00,& - 0.3517E+00, 0.3555E+00, 0.3593E+00, 0.3632E+00,& - 0.3671E+00, 0.3711E+00, 0.3750E+00, 0.3791E+00,& - 0.3831E+00, 0.3872E+00, 0.3914E+00, 0.3956E+00,& - 0.3998E+00, 0.4040E+00, 0.4083E+00, 0.4127E+00,& - 0.4171E+00, 0.4215E+00, 0.4260E+00, 0.4305E+00,& - 0.4351E+00, 0.4397E+00, 0.4443E+00, 0.4490E+00,& - 0.4538E+00, 0.4586E+00, 0.4634E+00, 0.4683E+00,& - 0.4732E+00, 0.4782E+00, 0.4832E+00, 0.4883E+00,& - 0.4934E+00, 0.4986E+00, 0.5039E+00, 0.5091E+00,& - 0.5145E+00, 0.5198E+00, 0.5253E+00, 0.5308E+00,& - 0.5363E+00, 0.5419E+00, 0.5476E+00, 0.5533E+00,& - 0.5590E+00, 0.5649E+00, 0.5707E+00, 0.5767E+00,& - 0.5826E+00, 0.5887E+00, 0.5948E+00, 0.6010E+00,& - 0.6072E+00, 0.6135E+00, 0.6199E+00, 0.6263E+00,& - 0.6327E+00, 0.6393E+00, 0.6459E+00, 0.6526E+00,& - 0.6593E+00, 0.6661E+00, 0.6729E+00, 0.6799E+00,& - 0.6869E+00, 0.6939E+00, 0.7011E+00, 0.7083E+00,& - 0.7156E+00, 0.7230E+00, 0.7304E+00, 0.7379E+00,& - 0.7455E+00, 0.7531E+00, 0.7608E+00, 0.7687E+00,& - 0.7765E+00, 0.7845E+00, 0.7925E+00, 0.8006E+00,& - 0.8088E+00, 0.8171E+00, 0.8255E+00, 0.8339E+00,& - 0.8425E+00, 0.8511E+00, 0.8598E+00, 0.8686E+00,& - 0.8774E+00, 0.8864E+00, 0.8955E+00, 0.9046E+00,& - 0.9138E+00, 0.9232E+00, 0.9326E+00, 0.9421E+00,& - 0.9517E+00, 0.9615E+00, 0.9713E+00, 0.9812E+00,& - 0.9912E+00, 0.1001E+01, 0.1012E+01, 0.1022E+01,& - 0.1032E+01, 0.1043E+01, 0.1053E+01, 0.1064E+01,& - 0.1075E+01, 0.1086E+01, 0.1097E+01, 0.1108E+01,& - 0.1120E+01, 0.1131E+01, 0.1143E+01, 0.1154E+01,& - 0.1166E+01, 0.1178E+01, 0.1190E+01, 0.1202E+01,& - 0.1215E+01, 0.1227E+01, 0.1240E+01, 0.1252E+01,& - 0.1265E+01, 0.1278E+01, 0.1291E+01, 0.1305E+01,& - 0.1318E+01, 0.1331E+01, 0.1345E+01, 0.1359E+01,& - 0.1373E+01, 0.1387E+01, 0.1401E+01, 0.1416E+01,& - 0.1430E+01, 0.1445E+01, 0.1460E+01, 0.1475E+01,& - 0.1490E+01, 0.1506E+01, 0.1521E+01, 0.1537E+01,& - 0.1553E+01, 0.1569E+01, 0.1586E+01, 0.1602E+01,& - 0.1619E+01, 0.1635E+01, 0.1653E+01, 0.1670E+01,& - 0.1687E+01, 0.1705E+01, 0.1723E+01, 0.1741E+01,& - 0.1759E+01, 0.1777E+01, 0.1796E+01, 0.1815E+01,& - 0.1834E+01, 0.1853E+01, 0.1873E+01, 0.1893E+01,& - 0.1913E+01, 0.1933E+01, 0.1954E+01, 0.1974E+01,& - 0.1995E+01, 0.2017E+01, 0.2038E+01, 0.2060E+01,& - 0.2082E+01, 0.2104E+01, 0.2127E+01, 0.2150E+01,& - 0.2173E+01, 0.2197E+01, 0.2220E+01, 0.2245E+01,& - 0.2269E+01, 0.2294E+01, 0.2319E+01, 0.2344E+01,& - 0.2370E+01, 0.2396E+01, 0.2422E+01, 0.2449E+01,& - 0.2476E+01, 0.2503E+01, 0.2531E+01, 0.2559E+01,& - 0.2588E+01, 0.2616E+01, 0.2646E+01, 0.2676E+01,& - 0.2706E+01, 0.2736E+01, 0.2767E+01, 0.2799E+01,& - 0.2831E+01, 0.2863E+01, 0.2896E+01, 0.2929E+01,& - 0.2963E+01, 0.2997E+01, 0.3032E+01, 0.3067E+01,& - 0.3103E+01, 0.3139E+01, 0.3176E+01, 0.3214E+01,& - 0.3252E+01, 0.3290E+01, 0.3330E+01, 0.3369E+01,& - 0.3410E+01, 0.3451E+01, 0.3493E+01, 0.3536E+01,& - 0.3579E+01, 0.3623E+01, 0.3668E+01, 0.3713E+01,& - 0.3759E+01, 0.3806E+01, 0.3854E+01, 0.3903E+01,& - 0.3953E+01, 0.4003E+01, 0.4055E+01, 0.4107E+01,& - 0.4160E+01, 0.4215E+01, 0.4270E+01, 0.4326E+01,& - 0.4384E+01, 0.4443E+01, 0.4503E+01, 0.4564E+01,& - 0.4626E+01, 0.4689E+01, 0.4754E+01, 0.4821E+01,& - 0.4889E+01, 0.4958E+01, 0.5029E+01, 0.5101E+01,& - 0.5175E+01, 0.5251E+01, 0.5328E+01, 0.5407E+01,& - 0.5489E+01, 0.5572E+01, 0.5657E+01, 0.5745E+01,& - 0.5835E+01, 0.5927E+01, 0.6022E+01, 0.6119E+01,& - 0.6219E+01, 0.6322E+01, 0.6428E+01, 0.6537E+01,& - 0.6650E+01, 0.6765E+01, 0.6885E+01, 0.7009E+01,& - 0.7136E+01, 0.7268E+01, 0.7405E+01, 0.7547E+01,& - 0.7694E+01, 0.7846E+01, 0.8005E+01, 0.8170E+01,& - 0.8342E+01, 0.8522E+01, 0.8709E+01, 0.8906E+01,& - 0.9112E+01, 0.9329E+01, 0.9557E+01, 0.9797E+01,& - 0.1005E+02, 0.1032E+02, 0.1061E+02, 0.1092E+02,& - 0.1124E+02, 0.1160E+02, 0.1198E+02, 0.1240E+02,& - 0.1286E+02, 0.1336E+02, 0.1392E+02, 0.1456E+02,& - 0.1528E+02, 0.1613E+02, 0.1714E+02, 0.1839E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,105) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.4953E-04, 0.4953E-04, 0.4953E-04,& - 0.4953E-04, 0.4953E-04, 0.4953E-04, 0.4953E-04,& - 0.4953E-04, 0.4953E-04, 0.4953E-04, 0.4953E-04,& - 0.4953E-04, 0.4953E-04, 0.4953E-04, 0.4953E-04,& - 0.4953E-04, 0.4953E-04, 0.8906E-04, 0.8906E-04,& - 0.8906E-04, 0.8906E-04, 0.8906E-04, 0.8906E-04,& - 0.8906E-04, 0.8906E-04, 0.8906E-04, 0.8906E-04,& - 0.8906E-04, 0.8906E-04, 0.1286E-03, 0.1286E-03,& - 0.1286E-03, 0.1286E-03, 0.1286E-03, 0.1286E-03,& - 0.1286E-03, 0.1286E-03, 0.1286E-03, 0.1681E-03,& - 0.1681E-03, 0.1681E-03, 0.1681E-03, 0.1681E-03,& - 0.1681E-03, 0.1681E-03, 0.2076E-03, 0.2076E-03,& - 0.2076E-03, 0.2076E-03, 0.2076E-03, 0.2076E-03,& - 0.2472E-03, 0.2472E-03, 0.2472E-03, 0.2472E-03,& - 0.2472E-03, 0.2472E-03, 0.2867E-03, 0.2867E-03,& - 0.2867E-03, 0.2867E-03, 0.3262E-03, 0.3262E-03,& - 0.3262E-03, 0.3262E-03, 0.3262E-03, 0.3658E-03,& - 0.3658E-03, 0.3658E-03, 0.4053E-03, 0.4053E-03,& - 0.4053E-03, 0.4053E-03, 0.4448E-03, 0.4448E-03,& - 0.4448E-03, 0.4844E-03, 0.4844E-03, 0.4844E-03,& - 0.5239E-03, 0.5239E-03, 0.5239E-03, 0.5634E-03,& - 0.5634E-03, 0.5634E-03, 0.6029E-03, 0.6029E-03,& - 0.6029E-03, 0.6425E-03, 0.6425E-03, 0.6820E-03,& - 0.6820E-03, 0.7215E-03, 0.7215E-03, 0.7215E-03,& - 0.7611E-03, 0.7611E-03, 0.8006E-03, 0.8006E-03,& - 0.8401E-03, 0.8401E-03, 0.8797E-03, 0.9192E-03,& - 0.9192E-03, 0.9587E-03, 0.9587E-03, 0.9982E-03,& - 0.9982E-03, 0.1038E-02, 0.1077E-02, 0.1077E-02,& - 0.1117E-02, 0.1156E-02, 0.1156E-02, 0.1196E-02,& - 0.1235E-02, 0.1235E-02, 0.1275E-02, 0.1314E-02,& - 0.1354E-02, 0.1354E-02, 0.1394E-02, 0.1433E-02,& - 0.1473E-02, 0.1512E-02, 0.1512E-02, 0.1552E-02,& - 0.1591E-02, 0.1631E-02, 0.1670E-02, 0.1710E-02,& - 0.1749E-02, 0.1789E-02, 0.1828E-02, 0.1868E-02,& - 0.1907E-02, 0.1947E-02, 0.1986E-02, 0.2026E-02,& - 0.2066E-02, 0.2105E-02, 0.2145E-02, 0.2184E-02,& - 0.2263E-02, 0.2303E-02, 0.2342E-02, 0.2382E-02,& - 0.2461E-02, 0.2500E-02, 0.2540E-02, 0.2579E-02,& - 0.2658E-02, 0.2698E-02, 0.2777E-02, 0.2817E-02,& - 0.2896E-02, 0.2935E-02, 0.2975E-02, 0.3054E-02,& - 0.3133E-02, 0.3172E-02, 0.3251E-02, 0.3291E-02,& - 0.3370E-02, 0.3449E-02, 0.3528E-02, 0.3568E-02,& - 0.3647E-02, 0.3726E-02, 0.3805E-02, 0.3884E-02,& - 0.3963E-02, 0.4003E-02, 0.4082E-02, 0.4161E-02,& - 0.4240E-02, 0.4358E-02, 0.4437E-02, 0.4516E-02,& - 0.4595E-02, 0.4675E-02, 0.4754E-02, 0.4872E-02,& - 0.4951E-02, 0.5030E-02, 0.5149E-02, 0.5228E-02,& - 0.5347E-02, 0.5426E-02, 0.5544E-02, 0.5623E-02,& - 0.5742E-02, 0.5860E-02, 0.5939E-02, 0.6058E-02,& - 0.6177E-02, 0.6295E-02, 0.6414E-02, 0.6532E-02,& - 0.6651E-02, 0.6770E-02, 0.6888E-02, 0.7007E-02,& - 0.7125E-02, 0.7244E-02, 0.7402E-02, 0.7521E-02,& - 0.7639E-02, 0.7797E-02, 0.7916E-02, 0.8074E-02,& - 0.8193E-02, 0.8351E-02, 0.8509E-02, 0.8627E-02,& - 0.8786E-02, 0.8944E-02, 0.9102E-02, 0.9260E-02,& - 0.9418E-02, 0.9576E-02, 0.9734E-02, 0.9932E-02,& - 0.1009E-01, 0.1025E-01, 0.1045E-01, 0.1060E-01,& - 0.1080E-01, 0.1096E-01, 0.1116E-01, 0.1136E-01,& - 0.1151E-01, 0.1171E-01, 0.1191E-01, 0.1211E-01,& - 0.1230E-01, 0.1254E-01, 0.1274E-01, 0.1294E-01,& - 0.1317E-01, 0.1337E-01, 0.1361E-01, 0.1381E-01,& - 0.1404E-01, 0.1428E-01, 0.1452E-01, 0.1472E-01,& - 0.1495E-01, 0.1523E-01, 0.1547E-01, 0.1570E-01,& - 0.1594E-01, 0.1622E-01, 0.1645E-01, 0.1673E-01,& - 0.1701E-01, 0.1728E-01, 0.1756E-01, 0.1784E-01,& - 0.1811E-01, 0.1839E-01, 0.1867E-01, 0.1898E-01,& - 0.1926E-01, 0.1958E-01, 0.1985E-01, 0.2017E-01,& - 0.2049E-01, 0.2080E-01, 0.2112E-01, 0.2147E-01,& - 0.2179E-01, 0.2211E-01, 0.2246E-01, 0.2282E-01,& - 0.2313E-01, 0.2349E-01, 0.2385E-01, 0.2424E-01,& - 0.2460E-01, 0.2495E-01, 0.2535E-01, 0.2570E-01,& - 0.2610E-01, 0.2649E-01, 0.2689E-01, 0.2729E-01,& - 0.2768E-01, 0.2812E-01, 0.2851E-01, 0.2895E-01,& - 0.2938E-01, 0.2982E-01, 0.3025E-01, 0.3069E-01,& - 0.3112E-01, 0.3159E-01, 0.3207E-01, 0.3250E-01,& - 0.3298E-01, 0.3345E-01, 0.3397E-01, 0.3444E-01,& - 0.3495E-01, 0.3543E-01, 0.3594E-01, 0.3646E-01,& - 0.3701E-01, 0.3752E-01, 0.3808E-01, 0.3859E-01,& - 0.3914E-01, 0.3970E-01, 0.4025E-01, 0.4084E-01,& - 0.4140E-01, 0.4199E-01, 0.4258E-01, 0.4318E-01,& - 0.4377E-01, 0.4440E-01, 0.4499E-01, 0.4563E-01,& - 0.4626E-01, 0.4693E-01, 0.4756E-01, 0.4824E-01,& - 0.4887E-01, 0.4958E-01, 0.5025E-01, 0.5092E-01,& - 0.5164E-01, 0.5235E-01, 0.5306E-01, 0.5377E-01,& - 0.5452E-01, 0.5523E-01, 0.5598E-01, 0.5674E-01,& - 0.5753E-01, 0.5828E-01, 0.5907E-01, 0.5986E-01,& - 0.6069E-01, 0.6148E-01, 0.6231E-01, 0.6314E-01,& - 0.6397E-01, 0.6484E-01, 0.6567E-01, 0.6654E-01,& - 0.6745E-01, 0.6832E-01, 0.6923E-01, 0.7014E-01,& - 0.7105E-01, 0.7199E-01, 0.7294E-01, 0.7389E-01,& - 0.7484E-01, 0.7583E-01, 0.7682E-01, 0.7780E-01,& - 0.7883E-01, 0.7986E-01, 0.8089E-01, 0.8192E-01,& - 0.8298E-01, 0.8405E-01, 0.8512E-01, 0.8622E-01,& - 0.8729E-01, 0.8844E-01, 0.8954E-01, 0.9069E-01,& - 0.9184E-01, 0.9302E-01, 0.9421E-01, 0.9540E-01,& - 0.9658E-01, 0.9781E-01, 0.9903E-01, 0.1003E+00,& - 0.1016E+00, 0.1028E+00, 0.1041E+00, 0.1054E+00,& - 0.1067E+00, 0.1080E+00, 0.1094E+00, 0.1108E+00,& - 0.1121E+00, 0.1135E+00, 0.1149E+00, 0.1163E+00,& - 0.1178E+00, 0.1192E+00, 0.1207E+00, 0.1222E+00,& - 0.1237E+00, 0.1252E+00, 0.1267E+00, 0.1282E+00,& - 0.1298E+00, 0.1314E+00, 0.1330E+00, 0.1346E+00,& - 0.1362E+00, 0.1379E+00, 0.1396E+00, 0.1412E+00,& - 0.1429E+00, 0.1446E+00, 0.1464E+00, 0.1482E+00,& - 0.1499E+00, 0.1517E+00, 0.1535E+00, 0.1554E+00,& - 0.1572E+00, 0.1591E+00, 0.1610E+00, 0.1629E+00,& - 0.1648E+00, 0.1667E+00, 0.1687E+00, 0.1707E+00,& - 0.1727E+00, 0.1748E+00, 0.1768E+00, 0.1789E+00,& - 0.1810E+00, 0.1831E+00, 0.1852E+00, 0.1874E+00,& - 0.1896E+00, 0.1918E+00, 0.1940E+00, 0.1963E+00,& - 0.1986E+00, 0.2009E+00, 0.2032E+00, 0.2055E+00,& - 0.2079E+00, 0.2103E+00, 0.2127E+00, 0.2152E+00,& - 0.2176E+00, 0.2202E+00, 0.2226E+00, 0.2252E+00,& - 0.2278E+00, 0.2304E+00, 0.2330E+00, 0.2356E+00,& - 0.2383E+00, 0.2410E+00, 0.2438E+00, 0.2465E+00,& - 0.2493E+00, 0.2521E+00, 0.2550E+00, 0.2579E+00,& - 0.2608E+00, 0.2637E+00, 0.2667E+00, 0.2697E+00,& - 0.2727E+00, 0.2757E+00, 0.2788E+00, 0.2819E+00,& - 0.2851E+00, 0.2883E+00, 0.2915E+00, 0.2947E+00,& - 0.2980E+00, 0.3013E+00, 0.3047E+00, 0.3080E+00,& - 0.3114E+00, 0.3149E+00, 0.3184E+00, 0.3219E+00,& - 0.3254E+00, 0.3290E+00, 0.3326E+00, 0.3363E+00,& - 0.3400E+00, 0.3437E+00, 0.3475E+00, 0.3513E+00,& - 0.3551E+00, 0.3590E+00, 0.3629E+00, 0.3669E+00,& - 0.3709E+00, 0.3749E+00, 0.3790E+00, 0.3831E+00,& - 0.3872E+00, 0.3915E+00, 0.3957E+00, 0.4000E+00,& - 0.4043E+00, 0.4087E+00, 0.4131E+00, 0.4176E+00,& - 0.4220E+00, 0.4266E+00, 0.4312E+00, 0.4358E+00,& - 0.4405E+00, 0.4452E+00, 0.4500E+00, 0.4548E+00,& - 0.4597E+00, 0.4646E+00, 0.4696E+00, 0.4746E+00,& - 0.4797E+00, 0.4848E+00, 0.4899E+00, 0.4952E+00,& - 0.5004E+00, 0.5058E+00, 0.5111E+00, 0.5165E+00,& - 0.5220E+00, 0.5275E+00, 0.5331E+00, 0.5388E+00,& - 0.5445E+00, 0.5502E+00, 0.5561E+00, 0.5619E+00,& - 0.5679E+00, 0.5739E+00, 0.5799E+00, 0.5860E+00,& - 0.5922E+00, 0.5984E+00, 0.6047E+00, 0.6111E+00,& - 0.6175E+00, 0.6239E+00, 0.6305E+00, 0.6371E+00,& - 0.6438E+00, 0.6506E+00, 0.6574E+00, 0.6642E+00,& - 0.6712E+00, 0.6782E+00, 0.6853E+00, 0.6925E+00,& - 0.6997E+00, 0.7070E+00, 0.7144E+00, 0.7218E+00,& - 0.7293E+00, 0.7369E+00, 0.7446E+00, 0.7523E+00,& - 0.7602E+00, 0.7681E+00, 0.7761E+00, 0.7842E+00,& - 0.7923E+00, 0.8005E+00, 0.8088E+00, 0.8172E+00,& - 0.8257E+00, 0.8343E+00, 0.8430E+00, 0.8517E+00,& - 0.8605E+00, 0.8695E+00, 0.8785E+00, 0.8876E+00,& - 0.8968E+00, 0.9061E+00, 0.9155E+00, 0.9250E+00,& - 0.9346E+00, 0.9442E+00, 0.9540E+00, 0.9639E+00,& - 0.9739E+00, 0.9840E+00, 0.9941E+00, 0.1004E+01,& - 0.1015E+01, 0.1025E+01, 0.1036E+01, 0.1047E+01,& - 0.1058E+01, 0.1069E+01, 0.1080E+01, 0.1091E+01,& - 0.1102E+01, 0.1114E+01, 0.1125E+01, 0.1137E+01,& - 0.1149E+01, 0.1160E+01, 0.1172E+01, 0.1185E+01,& - 0.1197E+01, 0.1209E+01, 0.1222E+01, 0.1235E+01,& - 0.1247E+01, 0.1260E+01, 0.1274E+01, 0.1287E+01,& - 0.1300E+01, 0.1314E+01, 0.1327E+01, 0.1341E+01,& - 0.1355E+01, 0.1369E+01, 0.1384E+01, 0.1398E+01,& - 0.1413E+01, 0.1427E+01, 0.1442E+01, 0.1458E+01,& - 0.1473E+01, 0.1488E+01, 0.1504E+01, 0.1520E+01,& - 0.1536E+01, 0.1552E+01, 0.1568E+01, 0.1585E+01,& - 0.1601E+01, 0.1618E+01, 0.1635E+01, 0.1653E+01,& - 0.1670E+01, 0.1688E+01, 0.1705E+01, 0.1724E+01,& - 0.1742E+01, 0.1761E+01, 0.1779E+01, 0.1798E+01,& - 0.1817E+01, 0.1837E+01, 0.1857E+01, 0.1876E+01,& - 0.1896E+01, 0.1917E+01, 0.1937E+01, 0.1958E+01,& - 0.1979E+01, 0.2001E+01, 0.2022E+01, 0.2044E+01,& - 0.2067E+01, 0.2089E+01, 0.2112E+01, 0.2135E+01,& - 0.2158E+01, 0.2182E+01, 0.2206E+01, 0.2230E+01,& - 0.2254E+01, 0.2279E+01, 0.2304E+01, 0.2330E+01,& - 0.2356E+01, 0.2382E+01, 0.2408E+01, 0.2435E+01,& - 0.2462E+01, 0.2490E+01, 0.2518E+01, 0.2546E+01,& - 0.2575E+01, 0.2604E+01, 0.2631E+01, 0.2664E+01,& - 0.2694E+01, 0.2725E+01, 0.2756E+01, 0.2788E+01,& - 0.2820E+01, 0.2852E+01, 0.2885E+01, 0.2918E+01,& - 0.2953E+01, 0.2987E+01, 0.3022E+01, 0.3058E+01,& - 0.3094E+01, 0.3131E+01, 0.3168E+01, 0.3206E+01,& - 0.3244E+01, 0.3283E+01, 0.3323E+01, 0.3363E+01,& - 0.3404E+01, 0.3446E+01, 0.3488E+01, 0.3531E+01,& - 0.3575E+01, 0.3619E+01, 0.3664E+01, 0.3710E+01,& - 0.3757E+01, 0.3804E+01, 0.3853E+01, 0.3902E+01,& - 0.3952E+01, 0.4003E+01, 0.4055E+01, 0.4108E+01,& - 0.4162E+01, 0.4217E+01, 0.4273E+01, 0.4330E+01,& - 0.4388E+01, 0.4447E+01, 0.4508E+01, 0.4569E+01,& - 0.4633E+01, 0.4697E+01, 0.4763E+01, 0.4830E+01,& - 0.4898E+01, 0.4968E+01, 0.5040E+01, 0.5113E+01,& - 0.5188E+01, 0.5265E+01, 0.5343E+01, 0.5423E+01,& - 0.5506E+01, 0.5590E+01, 0.5676E+01, 0.5765E+01,& - 0.5856E+01, 0.5949E+01, 0.6045E+01, 0.6144E+01,& - 0.6245E+01, 0.6350E+01, 0.6457E+01, 0.6567E+01,& - 0.6681E+01, 0.6799E+01, 0.6920E+01, 0.7045E+01,& - 0.7175E+01, 0.7308E+01, 0.7447E+01, 0.7591E+01,& - 0.7740E+01, 0.7895E+01, 0.8055E+01, 0.8223E+01,& - 0.8397E+01, 0.8580E+01, 0.8770E+01, 0.8969E+01,& - 0.9178E+01, 0.9398E+01, 0.9630E+01, 0.9874E+01,& - 0.1013E+02, 0.1041E+02, 0.1070E+02, 0.1101E+02,& - 0.1134E+02, 0.1170E+02, 0.1209E+02, 0.1252E+02,& - 0.1298E+02, 0.1349E+02, 0.1406E+02, 0.1471E+02,& - 0.1544E+02, 0.1630E+02, 0.1733E+02, 0.1861E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,106) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.5018E-04,& - 0.5018E-04, 0.5018E-04, 0.5018E-04, 0.5018E-04,& - 0.5018E-04, 0.5018E-04, 0.5018E-04, 0.5018E-04,& - 0.5018E-04, 0.5018E-04, 0.5018E-04, 0.5018E-04,& - 0.5018E-04, 0.5018E-04, 0.5018E-04, 0.5018E-04,& - 0.9035E-04, 0.9035E-04, 0.9035E-04, 0.9035E-04,& - 0.9035E-04, 0.9035E-04, 0.9035E-04, 0.9035E-04,& - 0.9035E-04, 0.9035E-04, 0.9035E-04, 0.9035E-04,& - 0.1305E-03, 0.1305E-03, 0.1305E-03, 0.1305E-03,& - 0.1305E-03, 0.1305E-03, 0.1305E-03, 0.1305E-03,& - 0.1305E-03, 0.1707E-03, 0.1707E-03, 0.1707E-03,& - 0.1707E-03, 0.1707E-03, 0.1707E-03, 0.1707E-03,& - 0.2109E-03, 0.2109E-03, 0.2109E-03, 0.2109E-03,& - 0.2109E-03, 0.2109E-03, 0.2109E-03, 0.2511E-03,& - 0.2511E-03, 0.2511E-03, 0.2511E-03, 0.2511E-03,& - 0.2912E-03, 0.2912E-03, 0.2912E-03, 0.2912E-03,& - 0.2912E-03, 0.3314E-03, 0.3314E-03, 0.3314E-03,& - 0.3314E-03, 0.3716E-03, 0.3716E-03, 0.3716E-03,& - 0.3716E-03, 0.4118E-03, 0.4118E-03, 0.4118E-03,& - 0.4118E-03, 0.4519E-03, 0.4519E-03, 0.4519E-03,& - 0.4921E-03, 0.4921E-03, 0.4921E-03, 0.5323E-03,& - 0.5323E-03, 0.5323E-03, 0.5725E-03, 0.5725E-03,& - 0.5725E-03, 0.6126E-03, 0.6126E-03, 0.6528E-03,& - 0.6528E-03, 0.6528E-03, 0.6930E-03, 0.6930E-03,& - 0.7332E-03, 0.7332E-03, 0.7734E-03, 0.7734E-03,& - 0.8135E-03, 0.8135E-03, 0.8537E-03, 0.8537E-03,& - 0.8939E-03, 0.8939E-03, 0.9341E-03, 0.9341E-03,& - 0.9742E-03, 0.9742E-03, 0.1014E-02, 0.1055E-02,& - 0.1055E-02, 0.1095E-02, 0.1095E-02, 0.1135E-02,& - 0.1175E-02, 0.1175E-02, 0.1215E-02, 0.1255E-02,& - 0.1296E-02, 0.1296E-02, 0.1336E-02, 0.1376E-02,& - 0.1416E-02, 0.1416E-02, 0.1456E-02, 0.1497E-02,& - 0.1537E-02, 0.1577E-02, 0.1577E-02, 0.1617E-02,& - 0.1657E-02, 0.1697E-02, 0.1738E-02, 0.1778E-02,& - 0.1818E-02, 0.1858E-02, 0.1898E-02, 0.1938E-02,& - 0.1979E-02, 0.2019E-02, 0.2059E-02, 0.2099E-02,& - 0.2139E-02, 0.2220E-02, 0.2260E-02, 0.2300E-02,& - 0.2340E-02, 0.2380E-02, 0.2461E-02, 0.2501E-02,& - 0.2541E-02, 0.2581E-02, 0.2662E-02, 0.2702E-02,& - 0.2782E-02, 0.2822E-02, 0.2863E-02, 0.2943E-02,& - 0.2983E-02, 0.3063E-02, 0.3104E-02, 0.3184E-02,& - 0.3264E-02, 0.3304E-02, 0.3385E-02, 0.3465E-02,& - 0.3505E-02, 0.3586E-02, 0.3666E-02, 0.3746E-02,& - 0.3787E-02, 0.3867E-02, 0.3947E-02, 0.4028E-02,& - 0.4108E-02, 0.4188E-02, 0.4269E-02, 0.4349E-02,& - 0.4429E-02, 0.4510E-02, 0.4590E-02, 0.4711E-02,& - 0.4791E-02, 0.4871E-02, 0.4952E-02, 0.5072E-02,& - 0.5153E-02, 0.5233E-02, 0.5353E-02, 0.5434E-02,& - 0.5554E-02, 0.5635E-02, 0.5755E-02, 0.5876E-02,& - 0.5956E-02, 0.6077E-02, 0.6197E-02, 0.6318E-02,& - 0.6438E-02, 0.6559E-02, 0.6679E-02, 0.6800E-02,& - 0.6920E-02, 0.7041E-02, 0.7161E-02, 0.7282E-02,& - 0.7402E-02, 0.7563E-02, 0.7684E-02, 0.7804E-02,& - 0.7965E-02, 0.8085E-02, 0.8246E-02, 0.8367E-02,& - 0.8527E-02, 0.8688E-02, 0.8849E-02, 0.9010E-02,& - 0.9130E-02, 0.9291E-02, 0.9451E-02, 0.9612E-02,& - 0.9813E-02, 0.9974E-02, 0.1013E-01, 0.1030E-01,& - 0.1050E-01, 0.1066E-01, 0.1086E-01, 0.1102E-01,& - 0.1122E-01, 0.1142E-01, 0.1158E-01, 0.1178E-01,& - 0.1198E-01, 0.1218E-01, 0.1238E-01, 0.1259E-01,& - 0.1283E-01, 0.1303E-01, 0.1323E-01, 0.1347E-01,& - 0.1367E-01, 0.1391E-01, 0.1415E-01, 0.1435E-01,& - 0.1459E-01, 0.1484E-01, 0.1508E-01, 0.1532E-01,& - 0.1556E-01, 0.1584E-01, 0.1608E-01, 0.1632E-01,& - 0.1660E-01, 0.1688E-01, 0.1713E-01, 0.1741E-01,& - 0.1769E-01, 0.1797E-01, 0.1825E-01, 0.1853E-01,& - 0.1885E-01, 0.1913E-01, 0.1942E-01, 0.1974E-01,& - 0.2006E-01, 0.2038E-01, 0.2066E-01, 0.2098E-01,& - 0.2134E-01, 0.2167E-01, 0.2199E-01, 0.2235E-01,& - 0.2267E-01, 0.2303E-01, 0.2339E-01, 0.2375E-01,& - 0.2412E-01, 0.2448E-01, 0.2484E-01, 0.2520E-01,& - 0.2560E-01, 0.2600E-01, 0.2637E-01, 0.2677E-01,& - 0.2717E-01, 0.2757E-01, 0.2801E-01, 0.2841E-01,& - 0.2886E-01, 0.2926E-01, 0.2970E-01, 0.3014E-01,& - 0.3058E-01, 0.3103E-01, 0.3151E-01, 0.3195E-01,& - 0.3243E-01, 0.3291E-01, 0.3340E-01, 0.3388E-01,& - 0.3436E-01, 0.3488E-01, 0.3537E-01, 0.3589E-01,& - 0.3641E-01, 0.3693E-01, 0.3745E-01, 0.3802E-01,& - 0.3854E-01, 0.3910E-01, 0.3966E-01, 0.4023E-01,& - 0.4079E-01, 0.4139E-01, 0.4199E-01, 0.4256E-01,& - 0.4316E-01, 0.4380E-01, 0.4441E-01, 0.4501E-01,& - 0.4565E-01, 0.4629E-01, 0.4694E-01, 0.4762E-01,& - 0.4826E-01, 0.4894E-01, 0.4963E-01, 0.5031E-01,& - 0.5099E-01, 0.5172E-01, 0.5244E-01, 0.5312E-01,& - 0.5389E-01, 0.5461E-01, 0.5537E-01, 0.5614E-01,& - 0.5690E-01, 0.5766E-01, 0.5843E-01, 0.5923E-01,& - 0.6003E-01, 0.6084E-01, 0.6168E-01, 0.6252E-01,& - 0.6337E-01, 0.6421E-01, 0.6506E-01, 0.6594E-01,& - 0.6682E-01, 0.6771E-01, 0.6863E-01, 0.6952E-01,& - 0.7044E-01, 0.7136E-01, 0.7233E-01, 0.7329E-01,& - 0.7426E-01, 0.7522E-01, 0.7622E-01, 0.7723E-01,& - 0.7823E-01, 0.7924E-01, 0.8028E-01, 0.8133E-01,& - 0.8241E-01, 0.8346E-01, 0.8454E-01, 0.8567E-01,& - 0.8675E-01, 0.8788E-01, 0.8900E-01, 0.9017E-01,& - 0.9133E-01, 0.9250E-01, 0.9366E-01, 0.9487E-01,& - 0.9607E-01, 0.9732E-01, 0.9856E-01, 0.9981E-01,& - 0.1011E+00, 0.1024E+00, 0.1037E+00, 0.1050E+00,& - 0.1063E+00, 0.1076E+00, 0.1090E+00, 0.1104E+00,& - 0.1117E+00, 0.1131E+00, 0.1146E+00, 0.1160E+00,& - 0.1174E+00, 0.1189E+00, 0.1204E+00, 0.1219E+00,& - 0.1234E+00, 0.1249E+00, 0.1264E+00, 0.1280E+00,& - 0.1296E+00, 0.1312E+00, 0.1328E+00, 0.1344E+00,& - 0.1361E+00, 0.1377E+00, 0.1394E+00, 0.1411E+00,& - 0.1428E+00, 0.1446E+00, 0.1463E+00, 0.1481E+00,& - 0.1499E+00, 0.1517E+00, 0.1536E+00, 0.1554E+00,& - 0.1573E+00, 0.1592E+00, 0.1611E+00, 0.1630E+00,& - 0.1650E+00, 0.1669E+00, 0.1690E+00, 0.1710E+00,& - 0.1730E+00, 0.1751E+00, 0.1771E+00, 0.1793E+00,& - 0.1814E+00, 0.1835E+00, 0.1857E+00, 0.1879E+00,& - 0.1901E+00, 0.1923E+00, 0.1946E+00, 0.1969E+00,& - 0.1992E+00, 0.2015E+00, 0.2039E+00, 0.2063E+00,& - 0.2087E+00, 0.2111E+00, 0.2136E+00, 0.2161E+00,& - 0.2186E+00, 0.2211E+00, 0.2237E+00, 0.2263E+00,& - 0.2289E+00, 0.2315E+00, 0.2342E+00, 0.2369E+00,& - 0.2397E+00, 0.2424E+00, 0.2452E+00, 0.2480E+00,& - 0.2508E+00, 0.2537E+00, 0.2566E+00, 0.2596E+00,& - 0.2625E+00, 0.2655E+00, 0.2685E+00, 0.2716E+00,& - 0.2747E+00, 0.2778E+00, 0.2809E+00, 0.2841E+00,& - 0.2873E+00, 0.2905E+00, 0.2938E+00, 0.2971E+00,& - 0.3005E+00, 0.3039E+00, 0.3073E+00, 0.3107E+00,& - 0.3142E+00, 0.3177E+00, 0.3213E+00, 0.3248E+00,& - 0.3285E+00, 0.3321E+00, 0.3358E+00, 0.3396E+00,& - 0.3434E+00, 0.3472E+00, 0.3510E+00, 0.3549E+00,& - 0.3588E+00, 0.3628E+00, 0.3668E+00, 0.3709E+00,& - 0.3750E+00, 0.3791E+00, 0.3833E+00, 0.3875E+00,& - 0.3917E+00, 0.3961E+00, 0.4004E+00, 0.4048E+00,& - 0.4092E+00, 0.4137E+00, 0.4182E+00, 0.4228E+00,& - 0.4274E+00, 0.4321E+00, 0.4368E+00, 0.4415E+00,& - 0.4463E+00, 0.4512E+00, 0.4561E+00, 0.4610E+00,& - 0.4654E+00, 0.4711E+00, 0.4762E+00, 0.4813E+00,& - 0.4865E+00, 0.4918E+00, 0.4971E+00, 0.5025E+00,& - 0.5079E+00, 0.5133E+00, 0.5189E+00, 0.5245E+00,& - 0.5301E+00, 0.5358E+00, 0.5415E+00, 0.5474E+00,& - 0.5532E+00, 0.5591E+00, 0.5651E+00, 0.5712E+00,& - 0.5773E+00, 0.5835E+00, 0.5897E+00, 0.5960E+00,& - 0.6023E+00, 0.6088E+00, 0.6153E+00, 0.6218E+00,& - 0.6284E+00, 0.6351E+00, 0.6419E+00, 0.6487E+00,& - 0.6556E+00, 0.6625E+00, 0.6696E+00, 0.6767E+00,& - 0.6839E+00, 0.6911E+00, 0.6984E+00, 0.7058E+00,& - 0.7133E+00, 0.7208E+00, 0.7285E+00, 0.7361E+00,& - 0.7439E+00, 0.7518E+00, 0.7597E+00, 0.7677E+00,& - 0.7758E+00, 0.7840E+00, 0.7923E+00, 0.8006E+00,& - 0.8091E+00, 0.8176E+00, 0.8262E+00, 0.8349E+00,& - 0.8437E+00, 0.8526E+00, 0.8616E+00, 0.8706E+00,& - 0.8798E+00, 0.8890E+00, 0.8984E+00, 0.9078E+00,& - 0.9174E+00, 0.9270E+00, 0.9368E+00, 0.9466E+00,& - 0.9566E+00, 0.9666E+00, 0.9768E+00, 0.9870E+00,& - 0.9974E+00, 0.1008E+01, 0.1018E+01, 0.1029E+01,& - 0.1040E+01, 0.1051E+01, 0.1062E+01, 0.1073E+01,& - 0.1084E+01, 0.1096E+01, 0.1107E+01, 0.1119E+01,& - 0.1131E+01, 0.1143E+01, 0.1155E+01, 0.1167E+01,& - 0.1179E+01, 0.1192E+01, 0.1204E+01, 0.1217E+01,& - 0.1230E+01, 0.1243E+01, 0.1256E+01, 0.1269E+01,& - 0.1282E+01, 0.1296E+01, 0.1310E+01, 0.1323E+01,& - 0.1337E+01, 0.1352E+01, 0.1366E+01, 0.1380E+01,& - 0.1395E+01, 0.1410E+01, 0.1425E+01, 0.1440E+01,& - 0.1455E+01, 0.1471E+01, 0.1486E+01, 0.1502E+01,& - 0.1518E+01, 0.1534E+01, 0.1550E+01, 0.1567E+01,& - 0.1584E+01, 0.1601E+01, 0.1618E+01, 0.1635E+01,& - 0.1653E+01, 0.1670E+01, 0.1688E+01, 0.1706E+01,& - 0.1725E+01, 0.1743E+01, 0.1762E+01, 0.1781E+01,& - 0.1801E+01, 0.1820E+01, 0.1840E+01, 0.1860E+01,& - 0.1880E+01, 0.1900E+01, 0.1921E+01, 0.1942E+01,& - 0.1963E+01, 0.1985E+01, 0.2006E+01, 0.2028E+01,& - 0.2051E+01, 0.2073E+01, 0.2096E+01, 0.2119E+01,& - 0.2143E+01, 0.2166E+01, 0.2190E+01, 0.2215E+01,& - 0.2239E+01, 0.2264E+01, 0.2290E+01, 0.2315E+01,& - 0.2341E+01, 0.2368E+01, 0.2394E+01, 0.2421E+01,& - 0.2449E+01, 0.2476E+01, 0.2505E+01, 0.2533E+01,& - 0.2562E+01, 0.2591E+01, 0.2621E+01, 0.2651E+01,& - 0.2682E+01, 0.2713E+01, 0.2744E+01, 0.2776E+01,& - 0.2808E+01, 0.2841E+01, 0.2875E+01, 0.2908E+01,& - 0.2943E+01, 0.2977E+01, 0.3013E+01, 0.3049E+01,& - 0.3085E+01, 0.3122E+01, 0.3160E+01, 0.3198E+01,& - 0.3236E+01, 0.3276E+01, 0.3316E+01, 0.3356E+01,& - 0.3398E+01, 0.3440E+01, 0.3482E+01, 0.3526E+01,& - 0.3570E+01, 0.3614E+01, 0.3660E+01, 0.3706E+01,& - 0.3754E+01, 0.3802E+01, 0.3850E+01, 0.3900E+01,& - 0.3951E+01, 0.4002E+01, 0.4055E+01, 0.4108E+01,& - 0.4163E+01, 0.4218E+01, 0.4275E+01, 0.4332E+01,& - 0.4391E+01, 0.4451E+01, 0.4512E+01, 0.4575E+01,& - 0.4638E+01, 0.4704E+01, 0.4770E+01, 0.4838E+01,& - 0.4907E+01, 0.4978E+01, 0.5050E+01, 0.5124E+01,& - 0.5200E+01, 0.5278E+01, 0.5357E+01, 0.5438E+01,& - 0.5522E+01, 0.5607E+01, 0.5695E+01, 0.5784E+01,& - 0.5876E+01, 0.5971E+01, 0.6068E+01, 0.6168E+01,& - 0.6271E+01, 0.6376E+01, 0.6485E+01, 0.6597E+01,& - 0.6712E+01, 0.6831E+01, 0.6954E+01, 0.7081E+01,& - 0.7212E+01, 0.7348E+01, 0.7488E+01, 0.7634E+01,& - 0.7785E+01, 0.7942E+01, 0.8105E+01, 0.8275E+01,& - 0.8452E+01, 0.8637E+01, 0.8830E+01, 0.9032E+01,& - 0.9244E+01, 0.9467E+01, 0.9702E+01, 0.9950E+01,& - 0.1021E+02, 0.1049E+02, 0.1079E+02, 0.1110E+02,& - 0.1144E+02, 0.1181E+02, 0.1220E+02, 0.1263E+02,& - 0.1310E+02, 0.1362E+02, 0.1420E+02, 0.1486E+02,& - 0.1561E+02, 0.1648E+02, 0.1753E+02, 0.1882E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,107) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.5083E-04, 0.5083E-04, 0.5083E-04,& - 0.5083E-04, 0.5083E-04, 0.5083E-04, 0.5083E-04,& - 0.5083E-04, 0.5083E-04, 0.5083E-04, 0.5083E-04,& - 0.5083E-04, 0.5083E-04, 0.5083E-04, 0.5083E-04,& - 0.5083E-04, 0.5083E-04, 0.5083E-04, 0.9166E-04,& - 0.9166E-04, 0.9166E-04, 0.9166E-04, 0.9166E-04,& - 0.9166E-04, 0.9166E-04, 0.9166E-04, 0.9166E-04,& - 0.9166E-04, 0.9166E-04, 0.1325E-03, 0.1325E-03,& - 0.1325E-03, 0.1325E-03, 0.1325E-03, 0.1325E-03,& - 0.1325E-03, 0.1325E-03, 0.1325E-03, 0.1325E-03,& - 0.1733E-03, 0.1733E-03, 0.1733E-03, 0.1733E-03,& - 0.1733E-03, 0.1733E-03, 0.1733E-03, 0.2141E-03,& - 0.2141E-03, 0.2141E-03, 0.2141E-03, 0.2141E-03,& - 0.2141E-03, 0.2550E-03, 0.2550E-03, 0.2550E-03,& - 0.2550E-03, 0.2550E-03, 0.2958E-03, 0.2958E-03,& - 0.2958E-03, 0.2958E-03, 0.2958E-03, 0.3366E-03,& - 0.3366E-03, 0.3366E-03, 0.3366E-03, 0.3366E-03,& - 0.3775E-03, 0.3775E-03, 0.3775E-03, 0.3775E-03,& - 0.4183E-03, 0.4183E-03, 0.4183E-03, 0.4591E-03,& - 0.4591E-03, 0.4591E-03, 0.5000E-03, 0.5000E-03,& - 0.5000E-03, 0.5000E-03, 0.5408E-03, 0.5408E-03,& - 0.5816E-03, 0.5816E-03, 0.5816E-03, 0.6224E-03,& - 0.6224E-03, 0.6224E-03, 0.6633E-03, 0.6633E-03,& - 0.7041E-03, 0.7041E-03, 0.7041E-03, 0.7449E-03,& - 0.7449E-03, 0.7858E-03, 0.7858E-03, 0.8266E-03,& - 0.8266E-03, 0.8674E-03, 0.8674E-03, 0.9082E-03,& - 0.9082E-03, 0.9491E-03, 0.9491E-03, 0.9899E-03,& - 0.1031E-02, 0.1031E-02, 0.1072E-02, 0.1072E-02,& - 0.1112E-02, 0.1153E-02, 0.1153E-02, 0.1194E-02,& - 0.1235E-02, 0.1235E-02, 0.1276E-02, 0.1317E-02,& - 0.1317E-02, 0.1357E-02, 0.1398E-02, 0.1439E-02,& - 0.1480E-02, 0.1480E-02, 0.1521E-02, 0.1562E-02,& - 0.1602E-02, 0.1643E-02, 0.1684E-02, 0.1725E-02,& - 0.1725E-02, 0.1766E-02, 0.1806E-02, 0.1847E-02,& - 0.1888E-02, 0.1929E-02, 0.1970E-02, 0.2011E-02,& - 0.2051E-02, 0.2133E-02, 0.2174E-02, 0.2215E-02,& - 0.2256E-02, 0.2296E-02, 0.2337E-02, 0.2378E-02,& - 0.2460E-02, 0.2501E-02, 0.2541E-02, 0.2623E-02,& - 0.2664E-02, 0.2705E-02, 0.2786E-02, 0.2827E-02,& - 0.2868E-02, 0.2950E-02, 0.2991E-02, 0.3072E-02,& - 0.3113E-02, 0.3195E-02, 0.3236E-02, 0.3317E-02,& - 0.3399E-02, 0.3440E-02, 0.3521E-02, 0.3603E-02,& - 0.3685E-02, 0.3725E-02, 0.3807E-02, 0.3889E-02,& - 0.3970E-02, 0.4052E-02, 0.4134E-02, 0.4215E-02,& - 0.4297E-02, 0.4379E-02, 0.4460E-02, 0.4542E-02,& - 0.4624E-02, 0.4705E-02, 0.4787E-02, 0.4910E-02,& - 0.4991E-02, 0.5073E-02, 0.5154E-02, 0.5277E-02,& - 0.5359E-02, 0.5481E-02, 0.5563E-02, 0.5685E-02,& - 0.5767E-02, 0.5889E-02, 0.6012E-02, 0.6094E-02,& - 0.6216E-02, 0.6339E-02, 0.6461E-02, 0.6583E-02,& - 0.6706E-02, 0.6828E-02, 0.6951E-02, 0.7073E-02,& - 0.7196E-02, 0.7318E-02, 0.7441E-02, 0.7604E-02,& - 0.7727E-02, 0.7849E-02, 0.8013E-02, 0.8135E-02,& - 0.8298E-02, 0.8421E-02, 0.8584E-02, 0.8747E-02,& - 0.8870E-02, 0.9033E-02, 0.9197E-02, 0.9360E-02,& - 0.9523E-02, 0.9687E-02, 0.9850E-02, 0.1001E-01,& - 0.1022E-01, 0.1038E-01, 0.1054E-01, 0.1075E-01,& - 0.1091E-01, 0.1112E-01, 0.1128E-01, 0.1148E-01,& - 0.1169E-01, 0.1189E-01, 0.1210E-01, 0.1230E-01,& - 0.1250E-01, 0.1271E-01, 0.1291E-01, 0.1312E-01,& - 0.1336E-01, 0.1357E-01, 0.1381E-01, 0.1401E-01,& - 0.1426E-01, 0.1450E-01, 0.1471E-01, 0.1495E-01,& - 0.1520E-01, 0.1544E-01, 0.1573E-01, 0.1597E-01,& - 0.1622E-01, 0.1650E-01, 0.1675E-01, 0.1704E-01,& - 0.1728E-01, 0.1757E-01, 0.1785E-01, 0.1814E-01,& - 0.1842E-01, 0.1871E-01, 0.1904E-01, 0.1932E-01,& - 0.1965E-01, 0.1993E-01, 0.2026E-01, 0.2059E-01,& - 0.2087E-01, 0.2124E-01, 0.2157E-01, 0.2189E-01,& - 0.2222E-01, 0.2259E-01, 0.2292E-01, 0.2328E-01,& - 0.2365E-01, 0.2402E-01, 0.2439E-01, 0.2475E-01,& - 0.2512E-01, 0.2553E-01, 0.2590E-01, 0.2630E-01,& - 0.2667E-01, 0.2708E-01, 0.2749E-01, 0.2794E-01,& - 0.2835E-01, 0.2875E-01, 0.2920E-01, 0.2965E-01,& - 0.3010E-01, 0.3055E-01, 0.3100E-01, 0.3145E-01,& - 0.3190E-01, 0.3239E-01, 0.3288E-01, 0.3337E-01,& - 0.3386E-01, 0.3435E-01, 0.3484E-01, 0.3537E-01,& - 0.3586E-01, 0.3639E-01, 0.3692E-01, 0.3745E-01,& - 0.3802E-01, 0.3855E-01, 0.3912E-01, 0.3966E-01,& - 0.4023E-01, 0.4084E-01, 0.4141E-01, 0.4202E-01,& - 0.4259E-01, 0.4321E-01, 0.4382E-01, 0.4447E-01,& - 0.4509E-01, 0.4574E-01, 0.4635E-01, 0.4700E-01,& - 0.4770E-01, 0.4835E-01, 0.4905E-01, 0.4974E-01,& - 0.5043E-01, 0.5113E-01, 0.5182E-01, 0.5256E-01,& - 0.5329E-01, 0.5403E-01, 0.5476E-01, 0.5554E-01,& - 0.5631E-01, 0.5709E-01, 0.5786E-01, 0.5864E-01,& - 0.5946E-01, 0.6027E-01, 0.6109E-01, 0.6195E-01,& - 0.6276E-01, 0.6362E-01, 0.6448E-01, 0.6538E-01,& - 0.6623E-01, 0.6713E-01, 0.6803E-01, 0.6897E-01,& - 0.6991E-01, 0.7085E-01, 0.7179E-01, 0.7273E-01,& - 0.7371E-01, 0.7469E-01, 0.7567E-01, 0.7669E-01,& - 0.7771E-01, 0.7873E-01, 0.7979E-01, 0.8081E-01,& - 0.8187E-01, 0.8297E-01, 0.8408E-01, 0.8518E-01,& - 0.8628E-01, 0.8738E-01, 0.8853E-01, 0.8971E-01,& - 0.9085E-01, 0.9204E-01, 0.9322E-01, 0.9445E-01,& - 0.9567E-01, 0.9690E-01, 0.9816E-01, 0.9943E-01,& - 0.1007E+00, 0.1020E+00, 0.1033E+00, 0.1046E+00,& - 0.1060E+00, 0.1073E+00, 0.1087E+00, 0.1100E+00,& - 0.1114E+00, 0.1129E+00, 0.1143E+00, 0.1157E+00,& - 0.1172E+00, 0.1187E+00, 0.1202E+00, 0.1217E+00,& - 0.1232E+00, 0.1247E+00, 0.1263E+00, 0.1279E+00,& - 0.1295E+00, 0.1311E+00, 0.1327E+00, 0.1343E+00,& - 0.1360E+00, 0.1377E+00, 0.1394E+00, 0.1411E+00,& - 0.1429E+00, 0.1446E+00, 0.1464E+00, 0.1482E+00,& - 0.1500E+00, 0.1519E+00, 0.1537E+00, 0.1556E+00,& - 0.1575E+00, 0.1594E+00, 0.1613E+00, 0.1633E+00,& - 0.1653E+00, 0.1673E+00, 0.1693E+00, 0.1714E+00,& - 0.1734E+00, 0.1755E+00, 0.1776E+00, 0.1797E+00,& - 0.1819E+00, 0.1841E+00, 0.1863E+00, 0.1885E+00,& - 0.1908E+00, 0.1931E+00, 0.1953E+00, 0.1977E+00,& - 0.2000E+00, 0.2024E+00, 0.2048E+00, 0.2072E+00,& - 0.2097E+00, 0.2122E+00, 0.2146E+00, 0.2172E+00,& - 0.2197E+00, 0.2223E+00, 0.2249E+00, 0.2276E+00,& - 0.2302E+00, 0.2329E+00, 0.2356E+00, 0.2384E+00,& - 0.2411E+00, 0.2440E+00, 0.2468E+00, 0.2497E+00,& - 0.2526E+00, 0.2555E+00, 0.2585E+00, 0.2614E+00,& - 0.2645E+00, 0.2675E+00, 0.2706E+00, 0.2737E+00,& - 0.2768E+00, 0.2800E+00, 0.2832E+00, 0.2865E+00,& - 0.2897E+00, 0.2930E+00, 0.2964E+00, 0.2998E+00,& - 0.3032E+00, 0.3066E+00, 0.3101E+00, 0.3137E+00,& - 0.3172E+00, 0.3208E+00, 0.3244E+00, 0.3281E+00,& - 0.3318E+00, 0.3356E+00, 0.3393E+00, 0.3432E+00,& - 0.3471E+00, 0.3509E+00, 0.3549E+00, 0.3589E+00,& - 0.3629E+00, 0.3670E+00, 0.3711E+00, 0.3752E+00,& - 0.3794E+00, 0.3836E+00, 0.3879E+00, 0.3923E+00,& - 0.3966E+00, 0.4010E+00, 0.4055E+00, 0.4100E+00,& - 0.4145E+00, 0.4191E+00, 0.4238E+00, 0.4284E+00,& - 0.4332E+00, 0.4380E+00, 0.4428E+00, 0.4477E+00,& - 0.4526E+00, 0.4576E+00, 0.4626E+00, 0.4677E+00,& - 0.4729E+00, 0.4780E+00, 0.4833E+00, 0.4886E+00,& - 0.4939E+00, 0.4994E+00, 0.5048E+00, 0.5103E+00,& - 0.5159E+00, 0.5215E+00, 0.5272E+00, 0.5330E+00,& - 0.5388E+00, 0.5446E+00, 0.5506E+00, 0.5565E+00,& - 0.5626E+00, 0.5687E+00, 0.5748E+00, 0.5810E+00,& - 0.5874E+00, 0.5937E+00, 0.6002E+00, 0.6066E+00,& - 0.6132E+00, 0.6198E+00, 0.6265E+00, 0.6333E+00,& - 0.6401E+00, 0.6470E+00, 0.6540E+00, 0.6610E+00,& - 0.6681E+00, 0.6753E+00, 0.6826E+00, 0.6899E+00,& - 0.6973E+00, 0.7048E+00, 0.7124E+00, 0.7200E+00,& - 0.7277E+00, 0.7355E+00, 0.7435E+00, 0.7514E+00,& - 0.7595E+00, 0.7676E+00, 0.7758E+00, 0.7841E+00,& - 0.7925E+00, 0.8010E+00, 0.8095E+00, 0.8182E+00,& - 0.8269E+00, 0.8358E+00, 0.8447E+00, 0.8537E+00,& - 0.8628E+00, 0.8720E+00, 0.8813E+00, 0.8907E+00,& - 0.9003E+00, 0.9098E+00, 0.9196E+00, 0.9294E+00,& - 0.9393E+00, 0.9493E+00, 0.9594E+00, 0.9696E+00,& - 0.9800E+00, 0.9904E+00, 0.1001E+01, 0.1012E+01,& - 0.1022E+01, 0.1033E+01, 0.1044E+01, 0.1055E+01,& - 0.1067E+01, 0.1078E+01, 0.1090E+01, 0.1101E+01,& - 0.1113E+01, 0.1125E+01, 0.1137E+01, 0.1149E+01,& - 0.1161E+01, 0.1174E+01, 0.1186E+01, 0.1199E+01,& - 0.1212E+01, 0.1225E+01, 0.1238E+01, 0.1251E+01,& - 0.1264E+01, 0.1278E+01, 0.1292E+01, 0.1305E+01,& - 0.1319E+01, 0.1334E+01, 0.1348E+01, 0.1362E+01,& - 0.1377E+01, 0.1392E+01, 0.1407E+01, 0.1422E+01,& - 0.1437E+01, 0.1453E+01, 0.1468E+01, 0.1484E+01,& - 0.1500E+01, 0.1516E+01, 0.1533E+01, 0.1549E+01,& - 0.1566E+01, 0.1583E+01, 0.1600E+01, 0.1618E+01,& - 0.1635E+01, 0.1653E+01, 0.1671E+01, 0.1689E+01,& - 0.1707E+01, 0.1726E+01, 0.1745E+01, 0.1764E+01,& - 0.1783E+01, 0.1803E+01, 0.1823E+01, 0.1843E+01,& - 0.1863E+01, 0.1884E+01, 0.1904E+01, 0.1925E+01,& - 0.1947E+01, 0.1968E+01, 0.1990E+01, 0.2012E+01,& - 0.2034E+01, 0.2057E+01, 0.2080E+01, 0.2103E+01,& - 0.2127E+01, 0.2151E+01, 0.2175E+01, 0.2199E+01,& - 0.2224E+01, 0.2249E+01, 0.2275E+01, 0.2300E+01,& - 0.2326E+01, 0.2353E+01, 0.2380E+01, 0.2407E+01,& - 0.2435E+01, 0.2462E+01, 0.2491E+01, 0.2519E+01,& - 0.2549E+01, 0.2578E+01, 0.2608E+01, 0.2638E+01,& - 0.2669E+01, 0.2700E+01, 0.2732E+01, 0.2764E+01,& - 0.2797E+01, 0.2830E+01, 0.2863E+01, 0.2897E+01,& - 0.2932E+01, 0.2967E+01, 0.3003E+01, 0.3039E+01,& - 0.3076E+01, 0.3113E+01, 0.3151E+01, 0.3189E+01,& - 0.3228E+01, 0.3268E+01, 0.3308E+01, 0.3349E+01,& - 0.3391E+01, 0.3433E+01, 0.3476E+01, 0.3520E+01,& - 0.3564E+01, 0.3609E+01, 0.3655E+01, 0.3702E+01,& - 0.3750E+01, 0.3798E+01, 0.3848E+01, 0.3898E+01,& - 0.3949E+01, 0.4001E+01, 0.4054E+01, 0.4108E+01,& - 0.4163E+01, 0.4219E+01, 0.4276E+01, 0.4334E+01,& - 0.4394E+01, 0.4454E+01, 0.4516E+01, 0.4579E+01,& - 0.4644E+01, 0.4710E+01, 0.4777E+01, 0.4845E+01,& - 0.4915E+01, 0.4987E+01, 0.5060E+01, 0.5135E+01,& - 0.5212E+01, 0.5290E+01, 0.5371E+01, 0.5453E+01,& - 0.5537E+01, 0.5623E+01, 0.5712E+01, 0.5803E+01,& - 0.5896E+01, 0.5992E+01, 0.6090E+01, 0.6191E+01,& - 0.6295E+01, 0.6402E+01, 0.6512E+01, 0.6626E+01,& - 0.6743E+01, 0.6863E+01, 0.6988E+01, 0.7116E+01,& - 0.7249E+01, 0.7386E+01, 0.7529E+01, 0.7677E+01,& - 0.7830E+01, 0.7988E+01, 0.8154E+01, 0.8326E+01,& - 0.8506E+01, 0.8693E+01, 0.8889E+01, 0.9094E+01,& - 0.9310E+01, 0.9536E+01, 0.9774E+01, 0.1003E+02,& - 0.1029E+02, 0.1057E+02, 0.1087E+02, 0.1120E+02,& - 0.1154E+02, 0.1191E+02, 0.1231E+02, 0.1275E+02,& - 0.1323E+02, 0.1375E+02, 0.1434E+02, 0.1501E+02,& - 0.1577E+02, 0.1666E+02, 0.1772E+02, 0.1904E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,108) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.5149E-04,& - 0.5149E-04, 0.5149E-04, 0.5149E-04, 0.5149E-04,& - 0.5149E-04, 0.5149E-04, 0.5149E-04, 0.5149E-04,& - 0.5149E-04, 0.5149E-04, 0.5149E-04, 0.5149E-04,& - 0.5149E-04, 0.5149E-04, 0.5149E-04, 0.5149E-04,& - 0.5149E-04, 0.9298E-04, 0.9298E-04, 0.9298E-04,& - 0.9298E-04, 0.9298E-04, 0.9298E-04, 0.9298E-04,& - 0.9298E-04, 0.9298E-04, 0.9298E-04, 0.9298E-04,& - 0.9298E-04, 0.1345E-03, 0.1345E-03, 0.1345E-03,& - 0.1345E-03, 0.1345E-03, 0.1345E-03, 0.1345E-03,& - 0.1345E-03, 0.1345E-03, 0.1760E-03, 0.1760E-03,& - 0.1760E-03, 0.1760E-03, 0.1760E-03, 0.1760E-03,& - 0.1760E-03, 0.2174E-03, 0.2174E-03, 0.2174E-03,& - 0.2174E-03, 0.2174E-03, 0.2174E-03, 0.2589E-03,& - 0.2589E-03, 0.2589E-03, 0.2589E-03, 0.2589E-03,& - 0.2589E-03, 0.3004E-03, 0.3004E-03, 0.3004E-03,& - 0.3004E-03, 0.3004E-03, 0.3419E-03, 0.3419E-03,& - 0.3419E-03, 0.3419E-03, 0.3834E-03, 0.3834E-03,& - 0.3834E-03, 0.3834E-03, 0.4249E-03, 0.4249E-03,& - 0.4249E-03, 0.4249E-03, 0.4664E-03, 0.4664E-03,& - 0.4664E-03, 0.5079E-03, 0.5079E-03, 0.5079E-03,& - 0.5493E-03, 0.5493E-03, 0.5493E-03, 0.5908E-03,& - 0.5908E-03, 0.5908E-03, 0.6323E-03, 0.6323E-03,& - 0.6738E-03, 0.6738E-03, 0.6738E-03, 0.7153E-03,& - 0.7153E-03, 0.7568E-03, 0.7568E-03, 0.7983E-03,& - 0.7983E-03, 0.7983E-03, 0.8398E-03, 0.8398E-03,& - 0.8812E-03, 0.8812E-03, 0.9227E-03, 0.9642E-03,& - 0.9642E-03, 0.1006E-02, 0.1006E-02, 0.1047E-02,& - 0.1047E-02, 0.1089E-02, 0.1130E-02, 0.1130E-02,& - 0.1172E-02, 0.1213E-02, 0.1213E-02, 0.1255E-02,& - 0.1296E-02, 0.1296E-02, 0.1338E-02, 0.1379E-02,& - 0.1421E-02, 0.1421E-02, 0.1462E-02, 0.1504E-02,& - 0.1545E-02, 0.1587E-02, 0.1587E-02, 0.1628E-02,& - 0.1670E-02, 0.1711E-02, 0.1752E-02, 0.1794E-02,& - 0.1835E-02, 0.1877E-02, 0.1918E-02, 0.1960E-02,& - 0.2001E-02, 0.2043E-02, 0.2084E-02, 0.2126E-02,& - 0.2167E-02, 0.2209E-02, 0.2250E-02, 0.2292E-02,& - 0.2375E-02, 0.2416E-02, 0.2458E-02, 0.2499E-02,& - 0.2541E-02, 0.2624E-02, 0.2665E-02, 0.2707E-02,& - 0.2790E-02, 0.2831E-02, 0.2914E-02, 0.2956E-02,& - 0.2997E-02, 0.3080E-02, 0.3122E-02, 0.3205E-02,& - 0.3246E-02, 0.3329E-02, 0.3412E-02, 0.3453E-02,& - 0.3536E-02, 0.3619E-02, 0.3661E-02, 0.3744E-02,& - 0.3827E-02, 0.3910E-02, 0.3993E-02, 0.4076E-02,& - 0.4117E-02, 0.4200E-02, 0.4283E-02, 0.4366E-02,& - 0.4449E-02, 0.4532E-02, 0.4657E-02, 0.4740E-02,& - 0.4823E-02, 0.4906E-02, 0.4989E-02, 0.5113E-02,& - 0.5196E-02, 0.5279E-02, 0.5403E-02, 0.5486E-02,& - 0.5611E-02, 0.5694E-02, 0.5818E-02, 0.5901E-02,& - 0.6026E-02, 0.6150E-02, 0.6275E-02, 0.6358E-02,& - 0.6482E-02, 0.6607E-02, 0.6731E-02, 0.6855E-02,& - 0.6980E-02, 0.7104E-02, 0.7229E-02, 0.7353E-02,& - 0.7519E-02, 0.7644E-02, 0.7768E-02, 0.7893E-02,& - 0.8059E-02, 0.8183E-02, 0.8349E-02, 0.8474E-02,& - 0.8639E-02, 0.8805E-02, 0.8930E-02, 0.9096E-02,& - 0.9262E-02, 0.9428E-02, 0.9594E-02, 0.9760E-02,& - 0.9926E-02, 0.1009E-01, 0.1030E-01, 0.1046E-01,& - 0.1063E-01, 0.1084E-01, 0.1100E-01, 0.1121E-01,& - 0.1138E-01, 0.1159E-01, 0.1179E-01, 0.1200E-01,& - 0.1217E-01, 0.1237E-01, 0.1258E-01, 0.1283E-01,& - 0.1304E-01, 0.1324E-01, 0.1345E-01, 0.1370E-01,& - 0.1391E-01, 0.1416E-01, 0.1436E-01, 0.1461E-01,& - 0.1486E-01, 0.1511E-01, 0.1536E-01, 0.1561E-01,& - 0.1586E-01, 0.1611E-01, 0.1640E-01, 0.1665E-01,& - 0.1694E-01, 0.1719E-01, 0.1748E-01, 0.1777E-01,& - 0.1806E-01, 0.1835E-01, 0.1864E-01, 0.1893E-01,& - 0.1922E-01, 0.1955E-01, 0.1984E-01, 0.2017E-01,& - 0.2046E-01, 0.2080E-01, 0.2113E-01, 0.2146E-01,& - 0.2179E-01, 0.2216E-01, 0.2250E-01, 0.2283E-01,& - 0.2320E-01, 0.2358E-01, 0.2395E-01, 0.2428E-01,& - 0.2470E-01, 0.2507E-01, 0.2544E-01, 0.2582E-01,& - 0.2623E-01, 0.2665E-01, 0.2706E-01, 0.2743E-01,& - 0.2789E-01, 0.2830E-01, 0.2872E-01, 0.2918E-01,& - 0.2959E-01, 0.3005E-01, 0.3050E-01, 0.3096E-01,& - 0.3142E-01, 0.3187E-01, 0.3237E-01, 0.3287E-01,& - 0.3332E-01, 0.3382E-01, 0.3432E-01, 0.3486E-01,& - 0.3536E-01, 0.3590E-01, 0.3639E-01, 0.3693E-01,& - 0.3747E-01, 0.3801E-01, 0.3859E-01, 0.3913E-01,& - 0.3971E-01, 0.4029E-01, 0.4088E-01, 0.4146E-01,& - 0.4208E-01, 0.4270E-01, 0.4328E-01, 0.4390E-01,& - 0.4457E-01, 0.4519E-01, 0.4585E-01, 0.4648E-01,& - 0.4714E-01, 0.4780E-01, 0.4851E-01, 0.4917E-01,& - 0.4988E-01, 0.5058E-01, 0.5129E-01, 0.5204E-01,& - 0.5274E-01, 0.5349E-01, 0.5423E-01, 0.5498E-01,& - 0.5577E-01, 0.5656E-01, 0.5735E-01, 0.5813E-01,& - 0.5892E-01, 0.5975E-01, 0.6058E-01, 0.6141E-01,& - 0.6224E-01, 0.6311E-01, 0.6398E-01, 0.6486E-01,& - 0.6573E-01, 0.6664E-01, 0.6755E-01, 0.6846E-01,& - 0.6938E-01, 0.7033E-01, 0.7129E-01, 0.7224E-01,& - 0.7324E-01, 0.7419E-01, 0.7523E-01, 0.7622E-01,& - 0.7718E-01, 0.7826E-01, 0.7933E-01, 0.8037E-01,& - 0.8145E-01, 0.8253E-01, 0.8361E-01, 0.8473E-01,& - 0.8585E-01, 0.8701E-01, 0.8813E-01, 0.8929E-01,& - 0.9049E-01, 0.9166E-01, 0.9286E-01, 0.9406E-01,& - 0.9531E-01, 0.9655E-01, 0.9780E-01, 0.9908E-01,& - 0.1004E+00, 0.1017E+00, 0.1030E+00, 0.1043E+00,& - 0.1057E+00, 0.1070E+00, 0.1084E+00, 0.1098E+00,& - 0.1112E+00, 0.1126E+00, 0.1141E+00, 0.1156E+00,& - 0.1170E+00, 0.1185E+00, 0.1200E+00, 0.1215E+00,& - 0.1231E+00, 0.1246E+00, 0.1262E+00, 0.1278E+00,& - 0.1294E+00, 0.1311E+00, 0.1327E+00, 0.1344E+00,& - 0.1360E+00, 0.1377E+00, 0.1395E+00, 0.1412E+00,& - 0.1430E+00, 0.1448E+00, 0.1466E+00, 0.1484E+00,& - 0.1502E+00, 0.1521E+00, 0.1540E+00, 0.1559E+00,& - 0.1578E+00, 0.1597E+00, 0.1617E+00, 0.1637E+00,& - 0.1657E+00, 0.1677E+00, 0.1698E+00, 0.1719E+00,& - 0.1740E+00, 0.1761E+00, 0.1782E+00, 0.1804E+00,& - 0.1826E+00, 0.1848E+00, 0.1870E+00, 0.1893E+00,& - 0.1916E+00, 0.1939E+00, 0.1962E+00, 0.1986E+00,& - 0.2010E+00, 0.2034E+00, 0.2058E+00, 0.2083E+00,& - 0.2108E+00, 0.2133E+00, 0.2159E+00, 0.2184E+00,& - 0.2211E+00, 0.2237E+00, 0.2263E+00, 0.2290E+00,& - 0.2317E+00, 0.2345E+00, 0.2372E+00, 0.2400E+00,& - 0.2429E+00, 0.2457E+00, 0.2486E+00, 0.2516E+00,& - 0.2545E+00, 0.2575E+00, 0.2605E+00, 0.2635E+00,& - 0.2666E+00, 0.2697E+00, 0.2729E+00, 0.2760E+00,& - 0.2793E+00, 0.2825E+00, 0.2858E+00, 0.2891E+00,& - 0.2925E+00, 0.2958E+00, 0.2993E+00, 0.3027E+00,& - 0.3062E+00, 0.3097E+00, 0.3133E+00, 0.3169E+00,& - 0.3205E+00, 0.3242E+00, 0.3279E+00, 0.3317E+00,& - 0.3355E+00, 0.3393E+00, 0.3432E+00, 0.3471E+00,& - 0.3510E+00, 0.3551E+00, 0.3591E+00, 0.3632E+00,& - 0.3673E+00, 0.3715E+00, 0.3757E+00, 0.3799E+00,& - 0.3842E+00, 0.3885E+00, 0.3929E+00, 0.3974E+00,& - 0.4019E+00, 0.4064E+00, 0.4109E+00, 0.4156E+00,& - 0.4202E+00, 0.4250E+00, 0.4297E+00, 0.4345E+00,& - 0.4394E+00, 0.4443E+00, 0.4493E+00, 0.4543E+00,& - 0.4594E+00, 0.4645E+00, 0.4697E+00, 0.4749E+00,& - 0.4801E+00, 0.4855E+00, 0.4909E+00, 0.4963E+00,& - 0.5018E+00, 0.5074E+00, 0.5130E+00, 0.5187E+00,& - 0.5245E+00, 0.5302E+00, 0.5361E+00, 0.5420E+00,& - 0.5480E+00, 0.5540E+00, 0.5601E+00, 0.5663E+00,& - 0.5725E+00, 0.5788E+00, 0.5852E+00, 0.5916E+00,& - 0.5981E+00, 0.6047E+00, 0.6113E+00, 0.6180E+00,& - 0.6248E+00, 0.6316E+00, 0.6385E+00, 0.6455E+00,& - 0.6526E+00, 0.6597E+00, 0.6669E+00, 0.6741E+00,& - 0.6815E+00, 0.6890E+00, 0.6965E+00, 0.7041E+00,& - 0.7117E+00, 0.7194E+00, 0.7273E+00, 0.7352E+00,& - 0.7432E+00, 0.7513E+00, 0.7594E+00, 0.7677E+00,& - 0.7760E+00, 0.7844E+00, 0.7929E+00, 0.8016E+00,& - 0.8102E+00, 0.8190E+00, 0.8279E+00, 0.8369E+00,& - 0.8459E+00, 0.8551E+00, 0.8643E+00, 0.8737E+00,& - 0.8832E+00, 0.8927E+00, 0.9024E+00, 0.9121E+00,& - 0.9220E+00, 0.9320E+00, 0.9421E+00, 0.9522E+00,& - 0.9626E+00, 0.9729E+00, 0.9835E+00, 0.9941E+00,& - 0.1005E+01, 0.1016E+01, 0.1027E+01, 0.1038E+01,& - 0.1049E+01, 0.1060E+01, 0.1072E+01, 0.1083E+01,& - 0.1095E+01, 0.1107E+01, 0.1119E+01, 0.1131E+01,& - 0.1143E+01, 0.1156E+01, 0.1168E+01, 0.1181E+01,& - 0.1194E+01, 0.1207E+01, 0.1220E+01, 0.1233E+01,& - 0.1246E+01, 0.1260E+01, 0.1274E+01, 0.1287E+01,& - 0.1301E+01, 0.1315E+01, 0.1330E+01, 0.1344E+01,& - 0.1359E+01, 0.1374E+01, 0.1389E+01, 0.1404E+01,& - 0.1419E+01, 0.1435E+01, 0.1450E+01, 0.1466E+01,& - 0.1482E+01, 0.1498E+01, 0.1515E+01, 0.1531E+01,& - 0.1548E+01, 0.1565E+01, 0.1582E+01, 0.1600E+01,& - 0.1617E+01, 0.1635E+01, 0.1653E+01, 0.1671E+01,& - 0.1690E+01, 0.1709E+01, 0.1727E+01, 0.1747E+01,& - 0.1766E+01, 0.1786E+01, 0.1805E+01, 0.1825E+01,& - 0.1846E+01, 0.1866E+01, 0.1887E+01, 0.1908E+01,& - 0.1930E+01, 0.1951E+01, 0.1973E+01, 0.1995E+01,& - 0.2018E+01, 0.2041E+01, 0.2064E+01, 0.2087E+01,& - 0.2111E+01, 0.2135E+01, 0.2159E+01, 0.2184E+01,& - 0.2208E+01, 0.2234E+01, 0.2259E+01, 0.2285E+01,& - 0.2311E+01, 0.2338E+01, 0.2365E+01, 0.2392E+01,& - 0.2420E+01, 0.2448E+01, 0.2477E+01, 0.2506E+01,& - 0.2535E+01, 0.2564E+01, 0.2595E+01, 0.2625E+01,& - 0.2656E+01, 0.2688E+01, 0.2719E+01, 0.2752E+01,& - 0.2785E+01, 0.2818E+01, 0.2852E+01, 0.2886E+01,& - 0.2921E+01, 0.2956E+01, 0.2992E+01, 0.3028E+01,& - 0.3065E+01, 0.3103E+01, 0.3141E+01, 0.3180E+01,& - 0.3219E+01, 0.3259E+01, 0.3300E+01, 0.3341E+01,& - 0.3383E+01, 0.3426E+01, 0.3469E+01, 0.3513E+01,& - 0.3558E+01, 0.3604E+01, 0.3650E+01, 0.3697E+01,& - 0.3746E+01, 0.3794E+01, 0.3844E+01, 0.3895E+01,& - 0.3946E+01, 0.3999E+01, 0.4053E+01, 0.4107E+01,& - 0.4163E+01, 0.4219E+01, 0.4277E+01, 0.4336E+01,& - 0.4396E+01, 0.4457E+01, 0.4520E+01, 0.4583E+01,& - 0.4648E+01, 0.4715E+01, 0.4783E+01, 0.4852E+01,& - 0.4923E+01, 0.4995E+01, 0.5070E+01, 0.5145E+01,& - 0.5223E+01, 0.5302E+01, 0.5383E+01, 0.5467E+01,& - 0.5552E+01, 0.5639E+01, 0.5729E+01, 0.5821E+01,& - 0.5915E+01, 0.6012E+01, 0.6112E+01, 0.6214E+01,& - 0.6319E+01, 0.6428E+01, 0.6539E+01, 0.6654E+01,& - 0.6772E+01, 0.6894E+01, 0.7020E+01, 0.7151E+01,& - 0.7285E+01, 0.7425E+01, 0.7569E+01, 0.7718E+01,& - 0.7873E+01, 0.8035E+01, 0.8203E+01, 0.8377E+01,& - 0.8559E+01, 0.8749E+01, 0.8948E+01, 0.9155E+01,& - 0.9374E+01, 0.9604E+01, 0.9845E+01, 0.1010E+02,& - 0.1037E+02, 0.1066E+02, 0.1096E+02, 0.1129E+02,& - 0.1164E+02, 0.1201E+02, 0.1242E+02, 0.1286E+02,& - 0.1335E+02, 0.1389E+02, 0.1449E+02, 0.1516E+02,& - 0.1593E+02, 0.1684E+02, 0.1792E+02, 0.1926E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,109) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.5215E-04, 0.5215E-04, 0.5215E-04,& - 0.5215E-04, 0.5215E-04, 0.5215E-04, 0.5215E-04,& - 0.5215E-04, 0.5215E-04, 0.5215E-04, 0.5215E-04,& - 0.5215E-04, 0.5215E-04, 0.5215E-04, 0.5215E-04,& - 0.5215E-04, 0.5215E-04, 0.5215E-04, 0.9430E-04,& - 0.9430E-04, 0.9430E-04, 0.9430E-04, 0.9430E-04,& - 0.9430E-04, 0.9430E-04, 0.9430E-04, 0.9430E-04,& - 0.9430E-04, 0.9430E-04, 0.9430E-04, 0.1365E-03,& - 0.1365E-03, 0.1365E-03, 0.1365E-03, 0.1365E-03,& - 0.1365E-03, 0.1365E-03, 0.1365E-03, 0.1365E-03,& - 0.1786E-03, 0.1786E-03, 0.1786E-03, 0.1786E-03,& - 0.1786E-03, 0.1786E-03, 0.1786E-03, 0.1786E-03,& - 0.2208E-03, 0.2208E-03, 0.2208E-03, 0.2208E-03,& - 0.2208E-03, 0.2208E-03, 0.2629E-03, 0.2629E-03,& - 0.2629E-03, 0.2629E-03, 0.2629E-03, 0.3051E-03,& - 0.3051E-03, 0.3051E-03, 0.3051E-03, 0.3051E-03,& - 0.3472E-03, 0.3472E-03, 0.3472E-03, 0.3472E-03,& - 0.3894E-03, 0.3894E-03, 0.3894E-03, 0.3894E-03,& - 0.4315E-03, 0.4315E-03, 0.4315E-03, 0.4315E-03,& - 0.4737E-03, 0.4737E-03, 0.4737E-03, 0.5158E-03,& - 0.5158E-03, 0.5158E-03, 0.5158E-03, 0.5580E-03,& - 0.5580E-03, 0.6001E-03, 0.6001E-03, 0.6001E-03,& - 0.6423E-03, 0.6423E-03, 0.6423E-03, 0.6844E-03,& - 0.6844E-03, 0.7266E-03, 0.7266E-03, 0.7266E-03,& - 0.7687E-03, 0.7687E-03, 0.8109E-03, 0.8109E-03,& - 0.8530E-03, 0.8530E-03, 0.8952E-03, 0.8952E-03,& - 0.9374E-03, 0.9374E-03, 0.9795E-03, 0.9795E-03,& - 0.1022E-02, 0.1022E-02, 0.1064E-02, 0.1106E-02,& - 0.1106E-02, 0.1148E-02, 0.1190E-02, 0.1190E-02,& - 0.1232E-02, 0.1275E-02, 0.1275E-02, 0.1317E-02,& - 0.1359E-02, 0.1359E-02, 0.1401E-02, 0.1443E-02,& - 0.1485E-02, 0.1485E-02, 0.1527E-02, 0.1570E-02,& - 0.1612E-02, 0.1654E-02, 0.1696E-02, 0.1696E-02,& - 0.1738E-02, 0.1780E-02, 0.1823E-02, 0.1865E-02,& - 0.1907E-02, 0.1949E-02, 0.1991E-02, 0.2033E-02,& - 0.2075E-02, 0.2118E-02, 0.2160E-02, 0.2202E-02,& - 0.2286E-02, 0.2328E-02, 0.2371E-02, 0.2413E-02,& - 0.2455E-02, 0.2497E-02, 0.2581E-02, 0.2623E-02,& - 0.2666E-02, 0.2750E-02, 0.2792E-02, 0.2834E-02,& - 0.2919E-02, 0.2961E-02, 0.3045E-02, 0.3087E-02,& - 0.3171E-02, 0.3214E-02, 0.3298E-02, 0.3340E-02,& - 0.3424E-02, 0.3466E-02, 0.3551E-02, 0.3635E-02,& - 0.3677E-02, 0.3762E-02, 0.3846E-02, 0.3930E-02,& - 0.4014E-02, 0.4057E-02, 0.4141E-02, 0.4225E-02,& - 0.4310E-02, 0.4394E-02, 0.4478E-02, 0.4562E-02,& - 0.4647E-02, 0.4773E-02, 0.4858E-02, 0.4942E-02,& - 0.5026E-02, 0.5153E-02, 0.5237E-02, 0.5321E-02,& - 0.5448E-02, 0.5532E-02, 0.5658E-02, 0.5743E-02,& - 0.5869E-02, 0.5953E-02, 0.6080E-02, 0.6206E-02,& - 0.6291E-02, 0.6417E-02, 0.6544E-02, 0.6670E-02,& - 0.6797E-02, 0.6923E-02, 0.7049E-02, 0.7176E-02,& - 0.7302E-02, 0.7429E-02, 0.7555E-02, 0.7682E-02,& - 0.7850E-02, 0.7977E-02, 0.8103E-02, 0.8272E-02,& - 0.8398E-02, 0.8567E-02, 0.8693E-02, 0.8862E-02,& - 0.9031E-02, 0.9199E-02, 0.9326E-02, 0.9494E-02,& - 0.9663E-02, 0.9832E-02, 0.1000E-01, 0.1021E-01,& - 0.1038E-01, 0.1055E-01, 0.1072E-01, 0.1093E-01,& - 0.1110E-01, 0.1131E-01, 0.1148E-01, 0.1169E-01,& - 0.1190E-01, 0.1211E-01, 0.1232E-01, 0.1253E-01,& - 0.1274E-01, 0.1295E-01, 0.1316E-01, 0.1337E-01,& - 0.1363E-01, 0.1384E-01, 0.1405E-01, 0.1430E-01,& - 0.1455E-01, 0.1476E-01, 0.1502E-01, 0.1527E-01,& - 0.1552E-01, 0.1577E-01, 0.1603E-01, 0.1632E-01,& - 0.1658E-01, 0.1683E-01, 0.1712E-01, 0.1742E-01,& - 0.1767E-01, 0.1797E-01, 0.1826E-01, 0.1856E-01,& - 0.1885E-01, 0.1915E-01, 0.1948E-01, 0.1978E-01,& - 0.2007E-01, 0.2041E-01, 0.2075E-01, 0.2109E-01,& - 0.2142E-01, 0.2176E-01, 0.2210E-01, 0.2244E-01,& - 0.2277E-01, 0.2315E-01, 0.2353E-01, 0.2387E-01,& - 0.2425E-01, 0.2463E-01, 0.2501E-01, 0.2539E-01,& - 0.2581E-01, 0.2619E-01, 0.2661E-01, 0.2703E-01,& - 0.2741E-01, 0.2783E-01, 0.2829E-01, 0.2872E-01,& - 0.2914E-01, 0.2960E-01, 0.3002E-01, 0.3049E-01,& - 0.3095E-01, 0.3141E-01, 0.3192E-01, 0.3238E-01,& - 0.3289E-01, 0.3335E-01, 0.3386E-01, 0.3436E-01,& - 0.3487E-01, 0.3542E-01, 0.3592E-01, 0.3647E-01,& - 0.3702E-01, 0.3757E-01, 0.3812E-01, 0.3866E-01,& - 0.3925E-01, 0.3980E-01, 0.4039E-01, 0.4098E-01,& - 0.4157E-01, 0.4220E-01, 0.4279E-01, 0.4343E-01,& - 0.4406E-01, 0.4469E-01, 0.4532E-01, 0.4600E-01,& - 0.4667E-01, 0.4730E-01, 0.4802E-01, 0.4870E-01,& - 0.4937E-01, 0.5009E-01, 0.5080E-01, 0.5152E-01,& - 0.5228E-01, 0.5300E-01, 0.5375E-01, 0.5451E-01,& - 0.5527E-01, 0.5607E-01, 0.5683E-01, 0.5763E-01,& - 0.5843E-01, 0.5928E-01, 0.6008E-01, 0.6092E-01,& - 0.6176E-01, 0.6265E-01, 0.6349E-01, 0.6438E-01,& - 0.6526E-01, 0.6619E-01, 0.6707E-01, 0.6800E-01,& - 0.6893E-01, 0.6990E-01, 0.7087E-01, 0.7184E-01,& - 0.7281E-01, 0.7378E-01, 0.7479E-01, 0.7580E-01,& - 0.7685E-01, 0.7787E-01, 0.7892E-01, 0.7997E-01,& - 0.8107E-01, 0.8217E-01, 0.8326E-01, 0.8440E-01,& - 0.8550E-01, 0.8663E-01, 0.8781E-01, 0.8899E-01,& - 0.9017E-01, 0.9135E-01, 0.9258E-01, 0.9380E-01,& - 0.9502E-01, 0.9629E-01, 0.9755E-01, 0.9886E-01,& - 0.1001E+00, 0.1015E+00, 0.1028E+00, 0.1041E+00,& - 0.1055E+00, 0.1069E+00, 0.1083E+00, 0.1096E+00,& - 0.1111E+00, 0.1125E+00, 0.1140E+00, 0.1155E+00,& - 0.1169E+00, 0.1185E+00, 0.1200E+00, 0.1215E+00,& - 0.1231E+00, 0.1247E+00, 0.1263E+00, 0.1279E+00,& - 0.1295E+00, 0.1311E+00, 0.1328E+00, 0.1345E+00,& - 0.1362E+00, 0.1379E+00, 0.1397E+00, 0.1414E+00,& - 0.1432E+00, 0.1451E+00, 0.1469E+00, 0.1487E+00,& - 0.1506E+00, 0.1525E+00, 0.1544E+00, 0.1563E+00,& - 0.1583E+00, 0.1602E+00, 0.1622E+00, 0.1642E+00,& - 0.1663E+00, 0.1683E+00, 0.1704E+00, 0.1725E+00,& - 0.1746E+00, 0.1768E+00, 0.1790E+00, 0.1812E+00,& - 0.1834E+00, 0.1856E+00, 0.1879E+00, 0.1902E+00,& - 0.1926E+00, 0.1949E+00, 0.1973E+00, 0.1997E+00,& - 0.2021E+00, 0.2046E+00, 0.2071E+00, 0.2096E+00,& - 0.2121E+00, 0.2147E+00, 0.2173E+00, 0.2199E+00,& - 0.2225E+00, 0.2252E+00, 0.2279E+00, 0.2307E+00,& - 0.2334E+00, 0.2362E+00, 0.2391E+00, 0.2419E+00,& - 0.2448E+00, 0.2477E+00, 0.2506E+00, 0.2536E+00,& - 0.2566E+00, 0.2597E+00, 0.2627E+00, 0.2659E+00,& - 0.2690E+00, 0.2722E+00, 0.2754E+00, 0.2786E+00,& - 0.2819E+00, 0.2853E+00, 0.2886E+00, 0.2920E+00,& - 0.2954E+00, 0.2989E+00, 0.3024E+00, 0.3059E+00,& - 0.3095E+00, 0.3131E+00, 0.3167E+00, 0.3204E+00,& - 0.3241E+00, 0.3279E+00, 0.3317E+00, 0.3355E+00,& - 0.3394E+00, 0.3433E+00, 0.3473E+00, 0.3514E+00,& - 0.3554E+00, 0.3595E+00, 0.3636E+00, 0.3678E+00,& - 0.3720E+00, 0.3763E+00, 0.3806E+00, 0.3850E+00,& - 0.3894E+00, 0.3938E+00, 0.3984E+00, 0.4029E+00,& - 0.4075E+00, 0.4121E+00, 0.4169E+00, 0.4216E+00,& - 0.4264E+00, 0.4312E+00, 0.4361E+00, 0.4411E+00,& - 0.4461E+00, 0.4511E+00, 0.4562E+00, 0.4614E+00,& - 0.4666E+00, 0.4719E+00, 0.4772E+00, 0.4826E+00,& - 0.4880E+00, 0.4935E+00, 0.4991E+00, 0.5047E+00,& - 0.5103E+00, 0.5160E+00, 0.5218E+00, 0.5277E+00,& - 0.5336E+00, 0.5396E+00, 0.5456E+00, 0.5517E+00,& - 0.5579E+00, 0.5641E+00, 0.5704E+00, 0.5767E+00,& - 0.5832E+00, 0.5897E+00, 0.5963E+00, 0.6029E+00,& - 0.6096E+00, 0.6164E+00, 0.6232E+00, 0.6301E+00,& - 0.6371E+00, 0.6442E+00, 0.6513E+00, 0.6585E+00,& - 0.6658E+00, 0.6732E+00, 0.6806E+00, 0.6881E+00,& - 0.6958E+00, 0.7034E+00, 0.7112E+00, 0.7190E+00,& - 0.7270E+00, 0.7350E+00, 0.7431E+00, 0.7513E+00,& - 0.7596E+00, 0.7679E+00, 0.7764E+00, 0.7850E+00,& - 0.7936E+00, 0.8023E+00, 0.8111E+00, 0.8201E+00,& - 0.8291E+00, 0.8382E+00, 0.8474E+00, 0.8567E+00,& - 0.8661E+00, 0.8756E+00, 0.8853E+00, 0.8949E+00,& - 0.9048E+00, 0.9147E+00, 0.9247E+00, 0.9349E+00,& - 0.9452E+00, 0.9555E+00, 0.9660E+00, 0.9766E+00,& - 0.9873E+00, 0.9981E+00, 0.1009E+01, 0.1020E+01,& - 0.1031E+01, 0.1043E+01, 0.1054E+01, 0.1066E+01,& - 0.1077E+01, 0.1089E+01, 0.1101E+01, 0.1113E+01,& - 0.1125E+01, 0.1138E+01, 0.1150E+01, 0.1163E+01,& - 0.1176E+01, 0.1189E+01, 0.1202E+01, 0.1215E+01,& - 0.1228E+01, 0.1242E+01, 0.1255E+01, 0.1269E+01,& - 0.1283E+01, 0.1297E+01, 0.1312E+01, 0.1326E+01,& - 0.1341E+01, 0.1356E+01, 0.1370E+01, 0.1386E+01,& - 0.1401E+01, 0.1416E+01, 0.1432E+01, 0.1448E+01,& - 0.1464E+01, 0.1480E+01, 0.1497E+01, 0.1513E+01,& - 0.1530E+01, 0.1547E+01, 0.1564E+01, 0.1582E+01,& - 0.1599E+01, 0.1617E+01, 0.1635E+01, 0.1654E+01,& - 0.1672E+01, 0.1691E+01, 0.1710E+01, 0.1729E+01,& - 0.1748E+01, 0.1768E+01, 0.1788E+01, 0.1808E+01,& - 0.1828E+01, 0.1849E+01, 0.1870E+01, 0.1891E+01,& - 0.1913E+01, 0.1934E+01, 0.1956E+01, 0.1979E+01,& - 0.2001E+01, 0.2024E+01, 0.2047E+01, 0.2071E+01,& - 0.2094E+01, 0.2118E+01, 0.2143E+01, 0.2167E+01,& - 0.2192E+01, 0.2218E+01, 0.2244E+01, 0.2270E+01,& - 0.2296E+01, 0.2323E+01, 0.2350E+01, 0.2377E+01,& - 0.2405E+01, 0.2433E+01, 0.2462E+01, 0.2491E+01,& - 0.2521E+01, 0.2550E+01, 0.2581E+01, 0.2612E+01,& - 0.2643E+01, 0.2674E+01, 0.2706E+01, 0.2739E+01,& - 0.2772E+01, 0.2806E+01, 0.2840E+01, 0.2874E+01,& - 0.2909E+01, 0.2945E+01, 0.2981E+01, 0.3018E+01,& - 0.3055E+01, 0.3093E+01, 0.3131E+01, 0.3170E+01,& - 0.3210E+01, 0.3250E+01, 0.3291E+01, 0.3333E+01,& - 0.3375E+01, 0.3418E+01, 0.3462E+01, 0.3506E+01,& - 0.3552E+01, 0.3598E+01, 0.3645E+01, 0.3692E+01,& - 0.3741E+01, 0.3790E+01, 0.3840E+01, 0.3891E+01,& - 0.3943E+01, 0.3997E+01, 0.4051E+01, 0.4106E+01,& - 0.4162E+01, 0.4219E+01, 0.4277E+01, 0.4337E+01,& - 0.4397E+01, 0.4459E+01, 0.4522E+01, 0.4587E+01,& - 0.4653E+01, 0.4718E+01, 0.4788E+01, 0.4858E+01,& - 0.4930E+01, 0.5003E+01, 0.5078E+01, 0.5155E+01,& - 0.5233E+01, 0.5313E+01, 0.5396E+01, 0.5480E+01,& - 0.5566E+01, 0.5654E+01, 0.5745E+01, 0.5838E+01,& - 0.5934E+01, 0.6032E+01, 0.6132E+01, 0.6236E+01,& - 0.6343E+01, 0.6452E+01, 0.6565E+01, 0.6681E+01,& - 0.6801E+01, 0.6925E+01, 0.7053E+01, 0.7184E+01,& - 0.7321E+01, 0.7462E+01, 0.7608E+01, 0.7760E+01,& - 0.7917E+01, 0.8080E+01, 0.8250E+01, 0.8427E+01,& - 0.8612E+01, 0.8804E+01, 0.9006E+01, 0.9217E+01,& - 0.9438E+01, 0.9671E+01, 0.9916E+01, 0.1017E+02,& - 0.1045E+02, 0.1074E+02, 0.1105E+02, 0.1137E+02,& - 0.1173E+02, 0.1212E+02, 0.1253E+02, 0.1298E+02,& - 0.1347E+02, 0.1402E+02, 0.1463E+02, 0.1531E+02,& - 0.1610E+02, 0.1701E+02, 0.1811E+02, 0.1947E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,110) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.5282E-04,& - 0.5282E-04, 0.5282E-04, 0.5282E-04, 0.5282E-04,& - 0.5282E-04, 0.5282E-04, 0.5282E-04, 0.5282E-04,& - 0.5282E-04, 0.5282E-04, 0.5282E-04, 0.5282E-04,& - 0.5282E-04, 0.5282E-04, 0.5282E-04, 0.5282E-04,& - 0.5282E-04, 0.9565E-04, 0.9565E-04, 0.9565E-04,& - 0.9565E-04, 0.9565E-04, 0.9565E-04, 0.9565E-04,& - 0.9565E-04, 0.9565E-04, 0.9565E-04, 0.9565E-04,& - 0.9565E-04, 0.1385E-03, 0.1385E-03, 0.1385E-03,& - 0.1385E-03, 0.1385E-03, 0.1385E-03, 0.1385E-03,& - 0.1385E-03, 0.1385E-03, 0.1813E-03, 0.1813E-03,& - 0.1813E-03, 0.1813E-03, 0.1813E-03, 0.1813E-03,& - 0.1813E-03, 0.1813E-03, 0.2241E-03, 0.2241E-03,& - 0.2241E-03, 0.2241E-03, 0.2241E-03, 0.2241E-03,& - 0.2669E-03, 0.2669E-03, 0.2669E-03, 0.2669E-03,& - 0.2669E-03, 0.2669E-03, 0.3098E-03, 0.3098E-03,& - 0.3098E-03, 0.3098E-03, 0.3098E-03, 0.3526E-03,& - 0.3526E-03, 0.3526E-03, 0.3526E-03, 0.3954E-03,& - 0.3954E-03, 0.3954E-03, 0.3954E-03, 0.4382E-03,& - 0.4382E-03, 0.4382E-03, 0.4811E-03, 0.4811E-03,& - 0.4811E-03, 0.4811E-03, 0.5239E-03, 0.5239E-03,& - 0.5239E-03, 0.5667E-03, 0.5667E-03, 0.5667E-03,& - 0.6095E-03, 0.6095E-03, 0.6095E-03, 0.6523E-03,& - 0.6523E-03, 0.6952E-03, 0.6952E-03, 0.6952E-03,& - 0.7380E-03, 0.7380E-03, 0.7808E-03, 0.7808E-03,& - 0.8236E-03, 0.8236E-03, 0.8236E-03, 0.8665E-03,& - 0.8665E-03, 0.9093E-03, 0.9093E-03, 0.9521E-03,& - 0.9949E-03, 0.9949E-03, 0.1038E-02, 0.1038E-02,& - 0.1081E-02, 0.1081E-02, 0.1123E-02, 0.1166E-02,& - 0.1166E-02, 0.1209E-02, 0.1252E-02, 0.1252E-02,& - 0.1295E-02, 0.1338E-02, 0.1338E-02, 0.1380E-02,& - 0.1423E-02, 0.1423E-02, 0.1466E-02, 0.1509E-02,& - 0.1552E-02, 0.1594E-02, 0.1594E-02, 0.1637E-02,& - 0.1680E-02, 0.1723E-02, 0.1766E-02, 0.1809E-02,& - 0.1851E-02, 0.1894E-02, 0.1937E-02, 0.1980E-02,& - 0.2023E-02, 0.2066E-02, 0.2108E-02, 0.2151E-02,& - 0.2194E-02, 0.2237E-02, 0.2280E-02, 0.2322E-02,& - 0.2365E-02, 0.2408E-02, 0.2494E-02, 0.2537E-02,& - 0.2579E-02, 0.2622E-02, 0.2708E-02, 0.2751E-02,& - 0.2793E-02, 0.2879E-02, 0.2922E-02, 0.2965E-02,& - 0.3050E-02, 0.3093E-02, 0.3179E-02, 0.3222E-02,& - 0.3307E-02, 0.3350E-02, 0.3436E-02, 0.3521E-02,& - 0.3564E-02, 0.3650E-02, 0.3736E-02, 0.3778E-02,& - 0.3864E-02, 0.3950E-02, 0.4035E-02, 0.4121E-02,& - 0.4164E-02, 0.4249E-02, 0.4335E-02, 0.4421E-02,& - 0.4506E-02, 0.4592E-02, 0.4721E-02, 0.4806E-02,& - 0.4892E-02, 0.4977E-02, 0.5063E-02, 0.5149E-02,& - 0.5277E-02, 0.5363E-02, 0.5491E-02, 0.5577E-02,& - 0.5663E-02, 0.5791E-02, 0.5877E-02, 0.6005E-02,& - 0.6134E-02, 0.6219E-02, 0.6348E-02, 0.6476E-02,& - 0.6605E-02, 0.6690E-02, 0.6819E-02, 0.6947E-02,& - 0.7076E-02, 0.7204E-02, 0.7333E-02, 0.7504E-02,& - 0.7632E-02, 0.7761E-02, 0.7889E-02, 0.8061E-02,& - 0.8189E-02, 0.8318E-02, 0.8489E-02, 0.8660E-02,& - 0.8789E-02, 0.8960E-02, 0.9131E-02, 0.9260E-02,& - 0.9431E-02, 0.9602E-02, 0.9774E-02, 0.9945E-02,& - 0.1012E-01, 0.1029E-01, 0.1046E-01, 0.1067E-01,& - 0.1084E-01, 0.1102E-01, 0.1123E-01, 0.1140E-01,& - 0.1162E-01, 0.1183E-01, 0.1204E-01, 0.1221E-01,& - 0.1243E-01, 0.1264E-01, 0.1286E-01, 0.1307E-01,& - 0.1333E-01, 0.1354E-01, 0.1376E-01, 0.1401E-01,& - 0.1423E-01, 0.1448E-01, 0.1470E-01, 0.1496E-01,& - 0.1521E-01, 0.1547E-01, 0.1573E-01, 0.1598E-01,& - 0.1624E-01, 0.1650E-01, 0.1680E-01, 0.1705E-01,& - 0.1735E-01, 0.1761E-01, 0.1791E-01, 0.1821E-01,& - 0.1851E-01, 0.1881E-01, 0.1911E-01, 0.1941E-01,& - 0.1975E-01, 0.2005E-01, 0.2035E-01, 0.2069E-01,& - 0.2104E-01, 0.2138E-01, 0.2172E-01, 0.2206E-01,& - 0.2241E-01, 0.2275E-01, 0.2313E-01, 0.2348E-01,& - 0.2386E-01, 0.2425E-01, 0.2463E-01, 0.2502E-01,& - 0.2540E-01, 0.2579E-01, 0.2617E-01, 0.2660E-01,& - 0.2703E-01, 0.2742E-01, 0.2784E-01, 0.2827E-01,& - 0.2870E-01, 0.2917E-01, 0.2960E-01, 0.3007E-01,& - 0.3054E-01, 0.3101E-01, 0.3148E-01, 0.3196E-01,& - 0.3243E-01, 0.3294E-01, 0.3341E-01, 0.3393E-01,& - 0.3444E-01, 0.3495E-01, 0.3547E-01, 0.3602E-01,& - 0.3654E-01, 0.3709E-01, 0.3765E-01, 0.3821E-01,& - 0.3876E-01, 0.3936E-01, 0.3992E-01, 0.4052E-01,& - 0.4112E-01, 0.4172E-01, 0.4236E-01, 0.4296E-01,& - 0.4360E-01, 0.4425E-01, 0.4489E-01, 0.4553E-01,& - 0.4622E-01, 0.4686E-01, 0.4754E-01, 0.4823E-01,& - 0.4891E-01, 0.4964E-01, 0.5037E-01, 0.5110E-01,& - 0.5183E-01, 0.5255E-01, 0.5332E-01, 0.5405E-01,& - 0.5482E-01, 0.5564E-01, 0.5641E-01, 0.5722E-01,& - 0.5804E-01, 0.5885E-01, 0.5966E-01, 0.6052E-01,& - 0.6138E-01, 0.6223E-01, 0.6309E-01, 0.6399E-01,& - 0.6489E-01, 0.6579E-01, 0.6669E-01, 0.6763E-01,& - 0.6857E-01, 0.6951E-01, 0.7045E-01, 0.7144E-01,& - 0.7242E-01, 0.7341E-01, 0.7444E-01, 0.7546E-01,& - 0.7649E-01, 0.7752E-01, 0.7859E-01, 0.7966E-01,& - 0.8077E-01, 0.8184E-01, 0.8296E-01, 0.8407E-01,& - 0.8523E-01, 0.8638E-01, 0.8754E-01, 0.8874E-01,& - 0.8990E-01, 0.9114E-01, 0.9234E-01, 0.9358E-01,& - 0.9482E-01, 0.9610E-01, 0.9739E-01, 0.9867E-01,& - 0.1000E+00, 0.1013E+00, 0.1027E+00, 0.1040E+00,& - 0.1054E+00, 0.1068E+00, 0.1082E+00, 0.1096E+00,& - 0.1110E+00, 0.1125E+00, 0.1140E+00, 0.1155E+00,& - 0.1170E+00, 0.1185E+00, 0.1200E+00, 0.1216E+00,& - 0.1232E+00, 0.1248E+00, 0.1264E+00, 0.1280E+00,& - 0.1297E+00, 0.1313E+00, 0.1330E+00, 0.1347E+00,& - 0.1365E+00, 0.1382E+00, 0.1400E+00, 0.1418E+00,& - 0.1436E+00, 0.1454E+00, 0.1473E+00, 0.1491E+00,& - 0.1510E+00, 0.1529E+00, 0.1549E+00, 0.1568E+00,& - 0.1588E+00, 0.1608E+00, 0.1629E+00, 0.1649E+00,& - 0.1670E+00, 0.1691E+00, 0.1712E+00, 0.1733E+00,& - 0.1755E+00, 0.1777E+00, 0.1799E+00, 0.1821E+00,& - 0.1844E+00, 0.1867E+00, 0.1890E+00, 0.1913E+00,& - 0.1937E+00, 0.1961E+00, 0.1985E+00, 0.2009E+00,& - 0.2034E+00, 0.2059E+00, 0.2085E+00, 0.2110E+00,& - 0.2136E+00, 0.2162E+00, 0.2188E+00, 0.2215E+00,& - 0.2242E+00, 0.2269E+00, 0.2297E+00, 0.2325E+00,& - 0.2353E+00, 0.2381E+00, 0.2411E+00, 0.2440E+00,& - 0.2469E+00, 0.2499E+00, 0.2529E+00, 0.2559E+00,& - 0.2590E+00, 0.2621E+00, 0.2653E+00, 0.2684E+00,& - 0.2716E+00, 0.2749E+00, 0.2782E+00, 0.2815E+00,& - 0.2849E+00, 0.2883E+00, 0.2917E+00, 0.2951E+00,& - 0.2987E+00, 0.3022E+00, 0.3058E+00, 0.3094E+00,& - 0.3130E+00, 0.3167E+00, 0.3205E+00, 0.3242E+00,& - 0.3280E+00, 0.3319E+00, 0.3358E+00, 0.3397E+00,& - 0.3437E+00, 0.3477E+00, 0.3518E+00, 0.3559E+00,& - 0.3601E+00, 0.3643E+00, 0.3685E+00, 0.3728E+00,& - 0.3772E+00, 0.3815E+00, 0.3860E+00, 0.3904E+00,& - 0.3950E+00, 0.3995E+00, 0.4042E+00, 0.4088E+00,& - 0.4136E+00, 0.4183E+00, 0.4231E+00, 0.4280E+00,& - 0.4329E+00, 0.4380E+00, 0.4430E+00, 0.4481E+00,& - 0.4532E+00, 0.4584E+00, 0.4637E+00, 0.4690E+00,& - 0.4743E+00, 0.4798E+00, 0.4852E+00, 0.4908E+00,& - 0.4964E+00, 0.5020E+00, 0.5078E+00, 0.5135E+00,& - 0.5194E+00, 0.5253E+00, 0.5312E+00, 0.5373E+00,& - 0.5433E+00, 0.5495E+00, 0.5558E+00, 0.5621E+00,& - 0.5684E+00, 0.5748E+00, 0.5813E+00, 0.5879E+00,& - 0.5945E+00, 0.6012E+00, 0.6080E+00, 0.6149E+00,& - 0.6218E+00, 0.6288E+00, 0.6358E+00, 0.6430E+00,& - 0.6502E+00, 0.6576E+00, 0.6649E+00, 0.6724E+00,& - 0.6800E+00, 0.6876E+00, 0.6953E+00, 0.7030E+00,& - 0.7109E+00, 0.7189E+00, 0.7269E+00, 0.7351E+00,& - 0.7433E+00, 0.7516E+00, 0.7600E+00, 0.7685E+00,& - 0.7770E+00, 0.7857E+00, 0.7945E+00, 0.8034E+00,& - 0.8123E+00, 0.8214E+00, 0.8305E+00, 0.8398E+00,& - 0.8491E+00, 0.8586E+00, 0.8682E+00, 0.8778E+00,& - 0.8876E+00, 0.8975E+00, 0.9075E+00, 0.9176E+00,& - 0.9278E+00, 0.9381E+00, 0.9485E+00, 0.9591E+00,& - 0.9698E+00, 0.9805E+00, 0.9914E+00, 0.1002E+01,& - 0.1014E+01, 0.1025E+01, 0.1036E+01, 0.1048E+01,& - 0.1059E+01, 0.1071E+01, 0.1083E+01, 0.1095E+01,& - 0.1107E+01, 0.1120E+01, 0.1132E+01, 0.1145E+01,& - 0.1158E+01, 0.1170E+01, 0.1184E+01, 0.1197E+01,& - 0.1210E+01, 0.1224E+01, 0.1237E+01, 0.1251E+01,& - 0.1265E+01, 0.1279E+01, 0.1293E+01, 0.1308E+01,& - 0.1322E+01, 0.1337E+01, 0.1352E+01, 0.1367E+01,& - 0.1383E+01, 0.1398E+01, 0.1414E+01, 0.1430E+01,& - 0.1446E+01, 0.1462E+01, 0.1478E+01, 0.1495E+01,& - 0.1512E+01, 0.1529E+01, 0.1546E+01, 0.1564E+01,& - 0.1581E+01, 0.1599E+01, 0.1617E+01, 0.1636E+01,& - 0.1654E+01, 0.1673E+01, 0.1692E+01, 0.1711E+01,& - 0.1731E+01, 0.1750E+01, 0.1770E+01, 0.1790E+01,& - 0.1811E+01, 0.1832E+01, 0.1853E+01, 0.1874E+01,& - 0.1895E+01, 0.1917E+01, 0.1939E+01, 0.1961E+01,& - 0.1984E+01, 0.2007E+01, 0.2030E+01, 0.2054E+01,& - 0.2078E+01, 0.2102E+01, 0.2126E+01, 0.2151E+01,& - 0.2176E+01, 0.2202E+01, 0.2228E+01, 0.2254E+01,& - 0.2280E+01, 0.2307E+01, 0.2334E+01, 0.2362E+01,& - 0.2390E+01, 0.2418E+01, 0.2447E+01, 0.2476E+01,& - 0.2506E+01, 0.2536E+01, 0.2567E+01, 0.2598E+01,& - 0.2629E+01, 0.2661E+01, 0.2693E+01, 0.2726E+01,& - 0.2759E+01, 0.2793E+01, 0.2827E+01, 0.2862E+01,& - 0.2897E+01, 0.2933E+01, 0.2969E+01, 0.3006E+01,& - 0.3044E+01, 0.3082E+01, 0.3121E+01, 0.3160E+01,& - 0.3200E+01, 0.3241E+01, 0.3282E+01, 0.3324E+01,& - 0.3367E+01, 0.3410E+01, 0.3454E+01, 0.3499E+01,& - 0.3545E+01, 0.3591E+01, 0.3638E+01, 0.3686E+01,& - 0.3735E+01, 0.3785E+01, 0.3836E+01, 0.3887E+01,& - 0.3940E+01, 0.3994E+01, 0.4048E+01, 0.4104E+01,& - 0.4160E+01, 0.4218E+01, 0.4277E+01, 0.4337E+01,& - 0.4398E+01, 0.4461E+01, 0.4524E+01, 0.4590E+01,& - 0.4656E+01, 0.4724E+01, 0.4793E+01, 0.4864E+01,& - 0.4936E+01, 0.5010E+01, 0.5086E+01, 0.5164E+01,& - 0.5243E+01, 0.5324E+01, 0.5407E+01, 0.5492E+01,& - 0.5579E+01, 0.5669E+01, 0.5761E+01, 0.5855E+01,& - 0.5951E+01, 0.6051E+01, 0.6153E+01, 0.6257E+01,& - 0.6365E+01, 0.6476E+01, 0.6590E+01, 0.6708E+01,& - 0.6829E+01, 0.6955E+01, 0.7084E+01, 0.7218E+01,& - 0.7356E+01, 0.7499E+01, 0.7647E+01, 0.7800E+01,& - 0.7960E+01, 0.8125E+01, 0.8297E+01, 0.8477E+01,& - 0.8664E+01, 0.8859E+01, 0.9063E+01, 0.9277E+01,& - 0.9501E+01, 0.9737E+01, 0.9986E+01, 0.1025E+02,& - 0.1053E+02, 0.1082E+02, 0.1113E+02, 0.1147E+02,& - 0.1183E+02, 0.1222E+02, 0.1264E+02, 0.1309E+02,& - 0.1359E+02, 0.1415E+02, 0.1477E+02, 0.1546E+02,& - 0.1626E+02, 0.1719E+02, 0.1831E+02, 0.1969E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,111) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.5350E-04, 0.5350E-04, 0.5350E-04,& - 0.5350E-04, 0.5350E-04, 0.5350E-04, 0.5350E-04,& - 0.5350E-04, 0.5350E-04, 0.5350E-04, 0.5350E-04,& - 0.5350E-04, 0.5350E-04, 0.5350E-04, 0.5350E-04,& - 0.5350E-04, 0.5350E-04, 0.5350E-04, 0.9700E-04,& - 0.9700E-04, 0.9700E-04, 0.9700E-04, 0.9700E-04,& - 0.9700E-04, 0.9700E-04, 0.9700E-04, 0.9700E-04,& - 0.9700E-04, 0.9700E-04, 0.9700E-04, 0.1405E-03,& - 0.1405E-03, 0.1405E-03, 0.1405E-03, 0.1405E-03,& - 0.1405E-03, 0.1405E-03, 0.1405E-03, 0.1405E-03,& - 0.1405E-03, 0.1840E-03, 0.1840E-03, 0.1840E-03,& - 0.1840E-03, 0.1840E-03, 0.1840E-03, 0.1840E-03,& - 0.2275E-03, 0.2275E-03, 0.2275E-03, 0.2275E-03,& - 0.2275E-03, 0.2275E-03, 0.2710E-03, 0.2710E-03,& - 0.2710E-03, 0.2710E-03, 0.2710E-03, 0.2710E-03,& - 0.3145E-03, 0.3145E-03, 0.3145E-03, 0.3145E-03,& - 0.3145E-03, 0.3580E-03, 0.3580E-03, 0.3580E-03,& - 0.3580E-03, 0.4015E-03, 0.4015E-03, 0.4015E-03,& - 0.4015E-03, 0.4450E-03, 0.4450E-03, 0.4450E-03,& - 0.4450E-03, 0.4885E-03, 0.4885E-03, 0.4885E-03,& - 0.5320E-03, 0.5320E-03, 0.5320E-03, 0.5755E-03,& - 0.5755E-03, 0.5755E-03, 0.6190E-03, 0.6190E-03,& - 0.6190E-03, 0.6625E-03, 0.6625E-03, 0.6625E-03,& - 0.7060E-03, 0.7060E-03, 0.7495E-03, 0.7495E-03,& - 0.7495E-03, 0.7930E-03, 0.7930E-03, 0.8365E-03,& - 0.8365E-03, 0.8800E-03, 0.8800E-03, 0.9235E-03,& - 0.9235E-03, 0.9670E-03, 0.9670E-03, 0.1010E-02,& - 0.1010E-02, 0.1054E-02, 0.1097E-02, 0.1097E-02,& - 0.1141E-02, 0.1141E-02, 0.1184E-02, 0.1228E-02,& - 0.1228E-02, 0.1271E-02, 0.1315E-02, 0.1315E-02,& - 0.1358E-02, 0.1402E-02, 0.1402E-02, 0.1445E-02,& - 0.1489E-02, 0.1532E-02, 0.1532E-02, 0.1576E-02,& - 0.1619E-02, 0.1663E-02, 0.1706E-02, 0.1750E-02,& - 0.1750E-02, 0.1793E-02, 0.1837E-02, 0.1880E-02,& - 0.1924E-02, 0.1967E-02, 0.2011E-02, 0.2054E-02,& - 0.2098E-02, 0.2141E-02, 0.2185E-02, 0.2228E-02,& - 0.2272E-02, 0.2359E-02, 0.2402E-02, 0.2446E-02,& - 0.2489E-02, 0.2533E-02, 0.2620E-02, 0.2663E-02,& - 0.2707E-02, 0.2750E-02, 0.2837E-02, 0.2881E-02,& - 0.2924E-02, 0.3011E-02, 0.3055E-02, 0.3142E-02,& - 0.3185E-02, 0.3272E-02, 0.3316E-02, 0.3403E-02,& - 0.3446E-02, 0.3533E-02, 0.3620E-02, 0.3664E-02,& - 0.3751E-02, 0.3838E-02, 0.3881E-02, 0.3968E-02,& - 0.4055E-02, 0.4142E-02, 0.4229E-02, 0.4316E-02,& - 0.4403E-02, 0.4490E-02, 0.4577E-02, 0.4664E-02,& - 0.4751E-02, 0.4838E-02, 0.4925E-02, 0.5012E-02,& - 0.5099E-02, 0.5230E-02, 0.5317E-02, 0.5404E-02,& - 0.5534E-02, 0.5621E-02, 0.5752E-02, 0.5839E-02,& - 0.5969E-02, 0.6056E-02, 0.6187E-02, 0.6274E-02,& - 0.6404E-02, 0.6535E-02, 0.6665E-02, 0.6796E-02,& - 0.6883E-02, 0.7013E-02, 0.7144E-02, 0.7274E-02,& - 0.7405E-02, 0.7579E-02, 0.7709E-02, 0.7840E-02,& - 0.7970E-02, 0.8144E-02, 0.8275E-02, 0.8405E-02,& - 0.8579E-02, 0.8710E-02, 0.8884E-02, 0.9058E-02,& - 0.9188E-02, 0.9362E-02, 0.9536E-02, 0.9710E-02,& - 0.9884E-02, 0.1006E-01, 0.1023E-01, 0.1041E-01,& - 0.1058E-01, 0.1080E-01, 0.1097E-01, 0.1115E-01,& - 0.1136E-01, 0.1154E-01, 0.1175E-01, 0.1197E-01,& - 0.1219E-01, 0.1236E-01, 0.1258E-01, 0.1280E-01,& - 0.1302E-01, 0.1323E-01, 0.1349E-01, 0.1371E-01,& - 0.1393E-01, 0.1419E-01, 0.1441E-01, 0.1467E-01,& - 0.1489E-01, 0.1515E-01, 0.1541E-01, 0.1567E-01,& - 0.1593E-01, 0.1619E-01, 0.1645E-01, 0.1676E-01,& - 0.1702E-01, 0.1728E-01, 0.1758E-01, 0.1789E-01,& - 0.1815E-01, 0.1845E-01, 0.1876E-01, 0.1906E-01,& - 0.1937E-01, 0.1972E-01, 0.2002E-01, 0.2037E-01,& - 0.2067E-01, 0.2102E-01, 0.2137E-01, 0.2167E-01,& - 0.2202E-01, 0.2241E-01, 0.2276E-01, 0.2311E-01,& - 0.2350E-01, 0.2385E-01, 0.2424E-01, 0.2463E-01,& - 0.2502E-01, 0.2541E-01, 0.2581E-01, 0.2620E-01,& - 0.2663E-01, 0.2702E-01, 0.2746E-01, 0.2789E-01,& - 0.2833E-01, 0.2876E-01, 0.2920E-01, 0.2968E-01,& - 0.3011E-01, 0.3059E-01, 0.3107E-01, 0.3155E-01,& - 0.3203E-01, 0.3250E-01, 0.3303E-01, 0.3350E-01,& - 0.3403E-01, 0.3455E-01, 0.3507E-01, 0.3559E-01,& - 0.3611E-01, 0.3668E-01, 0.3725E-01, 0.3781E-01,& - 0.3838E-01, 0.3894E-01, 0.3951E-01, 0.4012E-01,& - 0.4073E-01, 0.4133E-01, 0.4194E-01, 0.4255E-01,& - 0.4316E-01, 0.4381E-01, 0.4447E-01, 0.4512E-01,& - 0.4577E-01, 0.4647E-01, 0.4712E-01, 0.4782E-01,& - 0.4851E-01, 0.4925E-01, 0.4995E-01, 0.5069E-01,& - 0.5143E-01, 0.5217E-01, 0.5291E-01, 0.5369E-01,& - 0.5443E-01, 0.5521E-01, 0.5604E-01, 0.5682E-01,& - 0.5765E-01, 0.5847E-01, 0.5930E-01, 0.6013E-01,& - 0.6100E-01, 0.6187E-01, 0.6274E-01, 0.6361E-01,& - 0.6452E-01, 0.6543E-01, 0.6635E-01, 0.6726E-01,& - 0.6822E-01, 0.6917E-01, 0.7013E-01, 0.7113E-01,& - 0.7213E-01, 0.7313E-01, 0.7413E-01, 0.7518E-01,& - 0.7622E-01, 0.7727E-01, 0.7835E-01, 0.7940E-01,& - 0.8048E-01, 0.8161E-01, 0.8275E-01, 0.8388E-01,& - 0.8501E-01, 0.8618E-01, 0.8736E-01, 0.8853E-01,& - 0.8975E-01, 0.9097E-01, 0.9219E-01, 0.9345E-01,& - 0.9471E-01, 0.9597E-01, 0.9727E-01, 0.9858E-01,& - 0.9993E-01, 0.1012E+00, 0.1026E+00, 0.1040E+00,& - 0.1054E+00, 0.1068E+00, 0.1082E+00, 0.1096E+00,& - 0.1111E+00, 0.1125E+00, 0.1141E+00, 0.1155E+00,& - 0.1171E+00, 0.1186E+00, 0.1202E+00, 0.1218E+00,& - 0.1234E+00, 0.1250E+00, 0.1266E+00, 0.1282E+00,& - 0.1299E+00, 0.1316E+00, 0.1333E+00, 0.1351E+00,& - 0.1368E+00, 0.1386E+00, 0.1404E+00, 0.1422E+00,& - 0.1440E+00, 0.1459E+00, 0.1478E+00, 0.1497E+00,& - 0.1516E+00, 0.1536E+00, 0.1555E+00, 0.1575E+00,& - 0.1595E+00, 0.1616E+00, 0.1636E+00, 0.1657E+00,& - 0.1678E+00, 0.1699E+00, 0.1721E+00, 0.1743E+00,& - 0.1764E+00, 0.1787E+00, 0.1809E+00, 0.1832E+00,& - 0.1855E+00, 0.1878E+00, 0.1902E+00, 0.1926E+00,& - 0.1950E+00, 0.1974E+00, 0.1999E+00, 0.2024E+00,& - 0.2049E+00, 0.2075E+00, 0.2100E+00, 0.2126E+00,& - 0.2152E+00, 0.2179E+00, 0.2206E+00, 0.2233E+00,& - 0.2261E+00, 0.2289E+00, 0.2317E+00, 0.2346E+00,& - 0.2374E+00, 0.2403E+00, 0.2433E+00, 0.2463E+00,& - 0.2493E+00, 0.2523E+00, 0.2554E+00, 0.2585E+00,& - 0.2616E+00, 0.2648E+00, 0.2680E+00, 0.2713E+00,& - 0.2745E+00, 0.2779E+00, 0.2812E+00, 0.2846E+00,& - 0.2881E+00, 0.2915E+00, 0.2950E+00, 0.2986E+00,& - 0.3022E+00, 0.3058E+00, 0.3094E+00, 0.3132E+00,& - 0.3169E+00, 0.3207E+00, 0.3245E+00, 0.3284E+00,& - 0.3323E+00, 0.3362E+00, 0.3402E+00, 0.3443E+00,& - 0.3484E+00, 0.3525E+00, 0.3567E+00, 0.3609E+00,& - 0.3651E+00, 0.3695E+00, 0.3738E+00, 0.3782E+00,& - 0.3827E+00, 0.3872E+00, 0.3917E+00, 0.3963E+00,& - 0.4010E+00, 0.4057E+00, 0.4104E+00, 0.4152E+00,& - 0.4201E+00, 0.4250E+00, 0.4300E+00, 0.4350E+00,& - 0.4401E+00, 0.4451E+00, 0.4503E+00, 0.4556E+00,& - 0.4608E+00, 0.4662E+00, 0.4716E+00, 0.4768E+00,& - 0.4826E+00, 0.4882E+00, 0.4939E+00, 0.4996E+00,& - 0.5053E+00, 0.5112E+00, 0.5170E+00, 0.5230E+00,& - 0.5291E+00, 0.5351E+00, 0.5413E+00, 0.5475E+00,& - 0.5538E+00, 0.5602E+00, 0.5666E+00, 0.5731E+00,& - 0.5796E+00, 0.5863E+00, 0.5930E+00, 0.5998E+00,& - 0.6066E+00, 0.6136E+00, 0.6206E+00, 0.6277E+00,& - 0.6348E+00, 0.6421E+00, 0.6494E+00, 0.6568E+00,& - 0.6642E+00, 0.6718E+00, 0.6794E+00, 0.6872E+00,& - 0.6950E+00, 0.7029E+00, 0.7108E+00, 0.7189E+00,& - 0.7271E+00, 0.7353E+00, 0.7436E+00, 0.7521E+00,& - 0.7606E+00, 0.7692E+00, 0.7779E+00, 0.7867E+00,& - 0.7956E+00, 0.8046E+00, 0.8137E+00, 0.8229E+00,& - 0.8322E+00, 0.8416E+00, 0.8512E+00, 0.8608E+00,& - 0.8705E+00, 0.8803E+00, 0.8902E+00, 0.9003E+00,& - 0.9105E+00, 0.9207E+00, 0.9311E+00, 0.9416E+00,& - 0.9523E+00, 0.9630E+00, 0.9738E+00, 0.9848E+00,& - 0.9959E+00, 0.1007E+01, 0.1019E+01, 0.1030E+01,& - 0.1042E+01, 0.1053E+01, 0.1065E+01, 0.1077E+01,& - 0.1089E+01, 0.1102E+01, 0.1114E+01, 0.1127E+01,& - 0.1139E+01, 0.1152E+01, 0.1165E+01, 0.1179E+01,& - 0.1192E+01, 0.1205E+01, 0.1219E+01, 0.1233E+01,& - 0.1247E+01, 0.1261E+01, 0.1275E+01, 0.1290E+01,& - 0.1304E+01, 0.1319E+01, 0.1334E+01, 0.1349E+01,& - 0.1364E+01, 0.1380E+01, 0.1396E+01, 0.1411E+01,& - 0.1427E+01, 0.1444E+01, 0.1460E+01, 0.1477E+01,& - 0.1494E+01, 0.1511E+01, 0.1528E+01, 0.1545E+01,& - 0.1563E+01, 0.1581E+01, 0.1599E+01, 0.1617E+01,& - 0.1636E+01, 0.1655E+01, 0.1674E+01, 0.1693E+01,& - 0.1713E+01, 0.1732E+01, 0.1752E+01, 0.1773E+01,& - 0.1793E+01, 0.1814E+01, 0.1835E+01, 0.1856E+01,& - 0.1878E+01, 0.1900E+01, 0.1922E+01, 0.1944E+01,& - 0.1967E+01, 0.1990E+01, 0.2013E+01, 0.2037E+01,& - 0.2061E+01, 0.2085E+01, 0.2110E+01, 0.2134E+01,& - 0.2160E+01, 0.2185E+01, 0.2211E+01, 0.2237E+01,& - 0.2264E+01, 0.2291E+01, 0.2319E+01, 0.2346E+01,& - 0.2375E+01, 0.2403E+01, 0.2432E+01, 0.2461E+01,& - 0.2491E+01, 0.2521E+01, 0.2552E+01, 0.2583E+01,& - 0.2615E+01, 0.2647E+01, 0.2679E+01, 0.2712E+01,& - 0.2746E+01, 0.2780E+01, 0.2814E+01, 0.2849E+01,& - 0.2885E+01, 0.2921E+01, 0.2957E+01, 0.2995E+01,& - 0.3032E+01, 0.3071E+01, 0.3110E+01, 0.3150E+01,& - 0.3190E+01, 0.3231E+01, 0.3272E+01, 0.3315E+01,& - 0.3358E+01, 0.3401E+01, 0.3446E+01, 0.3491E+01,& - 0.3537E+01, 0.3584E+01, 0.3632E+01, 0.3680E+01,& - 0.3729E+01, 0.3780E+01, 0.3831E+01, 0.3883E+01,& - 0.3936E+01, 0.3990E+01, 0.4045E+01, 0.4101E+01,& - 0.4158E+01, 0.4216E+01, 0.4276E+01, 0.4337E+01,& - 0.4398E+01, 0.4462E+01, 0.4526E+01, 0.4592E+01,& - 0.4659E+01, 0.4727E+01, 0.4797E+01, 0.4869E+01,& - 0.4942E+01, 0.5017E+01, 0.5093E+01, 0.5172E+01,& - 0.5252E+01, 0.5334E+01, 0.5418E+01, 0.5504E+01,& - 0.5592E+01, 0.5683E+01, 0.5775E+01, 0.5871E+01,& - 0.5968E+01, 0.6069E+01, 0.6172E+01, 0.6278E+01,& - 0.6387E+01, 0.6499E+01, 0.6615E+01, 0.6734E+01,& - 0.6857E+01, 0.6984E+01, 0.7115E+01, 0.7250E+01,& - 0.7390E+01, 0.7535E+01, 0.7685E+01, 0.7840E+01,& - 0.8002E+01, 0.8169E+01, 0.8344E+01, 0.8526E+01,& - 0.8715E+01, 0.8913E+01, 0.9120E+01, 0.9337E+01,& - 0.9564E+01, 0.9803E+01, 0.1006E+02, 0.1032E+02,& - 0.1060E+02, 0.1090E+02, 0.1122E+02, 0.1156E+02,& - 0.1193E+02, 0.1232E+02, 0.1274E+02, 0.1321E+02,& - 0.1372E+02, 0.1428E+02, 0.1491E+02, 0.1561E+02,& - 0.1642E+02, 0.1737E+02, 0.1850E+02, 0.1991E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,112) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.5418E-04, 0.5418E-04,& - 0.5418E-04, 0.5418E-04, 0.5418E-04, 0.5418E-04,& - 0.5418E-04, 0.5418E-04, 0.5418E-04, 0.5418E-04,& - 0.5418E-04, 0.5418E-04, 0.5418E-04, 0.5418E-04,& - 0.5418E-04, 0.5418E-04, 0.5418E-04, 0.5418E-04,& - 0.5418E-04, 0.9836E-04, 0.9836E-04, 0.9836E-04,& - 0.9836E-04, 0.9836E-04, 0.9836E-04, 0.9836E-04,& - 0.9836E-04, 0.9836E-04, 0.9836E-04, 0.9836E-04,& - 0.9836E-04, 0.1425E-03, 0.1425E-03, 0.1425E-03,& - 0.1425E-03, 0.1425E-03, 0.1425E-03, 0.1425E-03,& - 0.1425E-03, 0.1425E-03, 0.1425E-03, 0.1867E-03,& - 0.1867E-03, 0.1867E-03, 0.1867E-03, 0.1867E-03,& - 0.1867E-03, 0.1867E-03, 0.2309E-03, 0.2309E-03,& - 0.2309E-03, 0.2309E-03, 0.2309E-03, 0.2309E-03,& - 0.2309E-03, 0.2751E-03, 0.2751E-03, 0.2751E-03,& - 0.2751E-03, 0.2751E-03, 0.3193E-03, 0.3193E-03,& - 0.3193E-03, 0.3193E-03, 0.3193E-03, 0.3635E-03,& - 0.3635E-03, 0.3635E-03, 0.3635E-03, 0.3635E-03,& - 0.4076E-03, 0.4076E-03, 0.4076E-03, 0.4076E-03,& - 0.4518E-03, 0.4518E-03, 0.4518E-03, 0.4960E-03,& - 0.4960E-03, 0.4960E-03, 0.4960E-03, 0.5402E-03,& - 0.5402E-03, 0.5402E-03, 0.5844E-03, 0.5844E-03,& - 0.5844E-03, 0.6285E-03, 0.6285E-03, 0.6727E-03,& - 0.6727E-03, 0.6727E-03, 0.7169E-03, 0.7169E-03,& - 0.7169E-03, 0.7611E-03, 0.7611E-03, 0.8053E-03,& - 0.8053E-03, 0.8495E-03, 0.8495E-03, 0.8936E-03,& - 0.8936E-03, 0.9378E-03, 0.9378E-03, 0.9820E-03,& - 0.9820E-03, 0.1026E-02, 0.1026E-02, 0.1070E-02,& - 0.1070E-02, 0.1115E-02, 0.1115E-02, 0.1159E-02,& - 0.1203E-02, 0.1203E-02, 0.1247E-02, 0.1291E-02,& - 0.1291E-02, 0.1335E-02, 0.1380E-02, 0.1380E-02,& - 0.1424E-02, 0.1468E-02, 0.1512E-02, 0.1512E-02,& - 0.1556E-02, 0.1601E-02, 0.1645E-02, 0.1689E-02,& - 0.1689E-02, 0.1733E-02, 0.1777E-02, 0.1821E-02,& - 0.1866E-02, 0.1910E-02, 0.1954E-02, 0.1998E-02,& - 0.2042E-02, 0.2087E-02, 0.2131E-02, 0.2175E-02,& - 0.2219E-02, 0.2263E-02, 0.2307E-02, 0.2352E-02,& - 0.2396E-02, 0.2440E-02, 0.2528E-02, 0.2573E-02,& - 0.2617E-02, 0.2661E-02, 0.2749E-02, 0.2793E-02,& - 0.2838E-02, 0.2926E-02, 0.2970E-02, 0.3014E-02,& - 0.3103E-02, 0.3147E-02, 0.3235E-02, 0.3279E-02,& - 0.3368E-02, 0.3412E-02, 0.3500E-02, 0.3545E-02,& - 0.3633E-02, 0.3721E-02, 0.3765E-02, 0.3854E-02,& - 0.3942E-02, 0.4031E-02, 0.4075E-02, 0.4163E-02,& - 0.4251E-02, 0.4340E-02, 0.4428E-02, 0.4517E-02,& - 0.4605E-02, 0.4693E-02, 0.4782E-02, 0.4870E-02,& - 0.4958E-02, 0.5047E-02, 0.5179E-02, 0.5268E-02,& - 0.5356E-02, 0.5489E-02, 0.5577E-02, 0.5665E-02,& - 0.5798E-02, 0.5886E-02, 0.6019E-02, 0.6107E-02,& - 0.6240E-02, 0.6372E-02, 0.6461E-02, 0.6593E-02,& - 0.6726E-02, 0.6858E-02, 0.6991E-02, 0.7123E-02,& - 0.7256E-02, 0.7388E-02, 0.7521E-02, 0.7653E-02,& - 0.7786E-02, 0.7919E-02, 0.8095E-02, 0.8228E-02,& - 0.8360E-02, 0.8537E-02, 0.8670E-02, 0.8846E-02,& - 0.8979E-02, 0.9156E-02, 0.9332E-02, 0.9509E-02,& - 0.9642E-02, 0.9818E-02, 0.9995E-02, 0.1017E-01,& - 0.1035E-01, 0.1057E-01, 0.1075E-01, 0.1092E-01,& - 0.1110E-01, 0.1132E-01, 0.1150E-01, 0.1172E-01,& - 0.1189E-01, 0.1212E-01, 0.1234E-01, 0.1256E-01,& - 0.1278E-01, 0.1300E-01, 0.1322E-01, 0.1344E-01,& - 0.1366E-01, 0.1388E-01, 0.1415E-01, 0.1437E-01,& - 0.1463E-01, 0.1486E-01, 0.1512E-01, 0.1539E-01,& - 0.1565E-01, 0.1592E-01, 0.1618E-01, 0.1645E-01,& - 0.1671E-01, 0.1698E-01, 0.1729E-01, 0.1755E-01,& - 0.1786E-01, 0.1817E-01, 0.1843E-01, 0.1874E-01,& - 0.1905E-01, 0.1936E-01, 0.1972E-01, 0.2002E-01,& - 0.2033E-01, 0.2069E-01, 0.2100E-01, 0.2135E-01,& - 0.2170E-01, 0.2206E-01, 0.2241E-01, 0.2276E-01,& - 0.2312E-01, 0.2351E-01, 0.2387E-01, 0.2427E-01,& - 0.2466E-01, 0.2506E-01, 0.2546E-01, 0.2586E-01,& - 0.2625E-01, 0.2670E-01, 0.2709E-01, 0.2754E-01,& - 0.2798E-01, 0.2837E-01, 0.2886E-01, 0.2930E-01,& - 0.2974E-01, 0.3023E-01, 0.3067E-01, 0.3116E-01,& - 0.3164E-01, 0.3213E-01, 0.3262E-01, 0.3315E-01,& - 0.3363E-01, 0.3416E-01, 0.3469E-01, 0.3522E-01,& - 0.3575E-01, 0.3628E-01, 0.3686E-01, 0.3743E-01,& - 0.3796E-01, 0.3854E-01, 0.3916E-01, 0.3973E-01,& - 0.4030E-01, 0.4092E-01, 0.4154E-01, 0.4216E-01,& - 0.4278E-01, 0.4344E-01, 0.4410E-01, 0.4472E-01,& - 0.4543E-01, 0.4609E-01, 0.4675E-01, 0.4746E-01,& - 0.4817E-01, 0.4888E-01, 0.4958E-01, 0.5029E-01,& - 0.5104E-01, 0.5179E-01, 0.5254E-01, 0.5334E-01,& - 0.5409E-01, 0.5488E-01, 0.5568E-01, 0.5647E-01,& - 0.5731E-01, 0.5811E-01, 0.5895E-01, 0.5983E-01,& - 0.6067E-01, 0.6156E-01, 0.6244E-01, 0.6332E-01,& - 0.6421E-01, 0.6513E-01, 0.6606E-01, 0.6699E-01,& - 0.6796E-01, 0.6889E-01, 0.6991E-01, 0.7088E-01,& - 0.7185E-01, 0.7287E-01, 0.7388E-01, 0.7494E-01,& - 0.7600E-01, 0.7706E-01, 0.7812E-01, 0.7923E-01,& - 0.8033E-01, 0.8144E-01, 0.8254E-01, 0.8369E-01,& - 0.8488E-01, 0.8603E-01, 0.8723E-01, 0.8842E-01,& - 0.8966E-01, 0.9085E-01, 0.9213E-01, 0.9337E-01,& - 0.9465E-01, 0.9593E-01, 0.9725E-01, 0.9858E-01,& - 0.9991E-01, 0.1013E+00, 0.1026E+00, 0.1040E+00,& - 0.1054E+00, 0.1068E+00, 0.1083E+00, 0.1098E+00,& - 0.1112E+00, 0.1127E+00, 0.1142E+00, 0.1157E+00,& - 0.1173E+00, 0.1189E+00, 0.1204E+00, 0.1220E+00,& - 0.1236E+00, 0.1253E+00, 0.1269E+00, 0.1286E+00,& - 0.1303E+00, 0.1320E+00, 0.1338E+00, 0.1355E+00,& - 0.1373E+00, 0.1391E+00, 0.1410E+00, 0.1428E+00,& - 0.1446E+00, 0.1465E+00, 0.1484E+00, 0.1504E+00,& - 0.1523E+00, 0.1543E+00, 0.1563E+00, 0.1583E+00,& - 0.1603E+00, 0.1624E+00, 0.1645E+00, 0.1666E+00,& - 0.1688E+00, 0.1709E+00, 0.1731E+00, 0.1753E+00,& - 0.1776E+00, 0.1798E+00, 0.1821E+00, 0.1845E+00,& - 0.1868E+00, 0.1892E+00, 0.1916E+00, 0.1940E+00,& - 0.1964E+00, 0.1989E+00, 0.2014E+00, 0.2040E+00,& - 0.2066E+00, 0.2092E+00, 0.2118E+00, 0.2144E+00,& - 0.2171E+00, 0.2199E+00, 0.2226E+00, 0.2254E+00,& - 0.2282E+00, 0.2310E+00, 0.2339E+00, 0.2368E+00,& - 0.2397E+00, 0.2427E+00, 0.2457E+00, 0.2488E+00,& - 0.2518E+00, 0.2549E+00, 0.2581E+00, 0.2613E+00,& - 0.2645E+00, 0.2677E+00, 0.2710E+00, 0.2743E+00,& - 0.2777E+00, 0.2811E+00, 0.2845E+00, 0.2880E+00,& - 0.2915E+00, 0.2951E+00, 0.2987E+00, 0.3023E+00,& - 0.3060E+00, 0.3097E+00, 0.3134E+00, 0.3172E+00,& - 0.3211E+00, 0.3250E+00, 0.3289E+00, 0.3328E+00,& - 0.3369E+00, 0.3409E+00, 0.3450E+00, 0.3491E+00,& - 0.3533E+00, 0.3576E+00, 0.3619E+00, 0.3662E+00,& - 0.3706E+00, 0.3750E+00, 0.3795E+00, 0.3840E+00,& - 0.3886E+00, 0.3932E+00, 0.3979E+00, 0.4026E+00,& - 0.4074E+00, 0.4122E+00, 0.4171E+00, 0.4221E+00,& - 0.4271E+00, 0.4321E+00, 0.4372E+00, 0.4424E+00,& - 0.4476E+00, 0.4529E+00, 0.4582E+00, 0.4636E+00,& - 0.4690E+00, 0.4746E+00, 0.4801E+00, 0.4858E+00,& - 0.4914E+00, 0.4972E+00, 0.5031E+00, 0.5089E+00,& - 0.5149E+00, 0.5209E+00, 0.5270E+00, 0.5332E+00,& - 0.5393E+00, 0.5457E+00, 0.5520E+00, 0.5584E+00,& - 0.5649E+00, 0.5715E+00, 0.5781E+00, 0.5848E+00,& - 0.5916E+00, 0.5985E+00, 0.6054E+00, 0.6124E+00,& - 0.6195E+00, 0.6267E+00, 0.6339E+00, 0.6413E+00,& - 0.6487E+00, 0.6562E+00, 0.6638E+00, 0.6714E+00,& - 0.6791E+00, 0.6870E+00, 0.6949E+00, 0.7029E+00,& - 0.7110E+00, 0.7192E+00, 0.7274E+00, 0.7358E+00,& - 0.7443E+00, 0.7528E+00, 0.7614E+00, 0.7702E+00,& - 0.7790E+00, 0.7880E+00, 0.7970E+00, 0.8062E+00,& - 0.8154E+00, 0.8248E+00, 0.8342E+00, 0.8438E+00,& - 0.8534E+00, 0.8632E+00, 0.8731E+00, 0.8831E+00,& - 0.8932E+00, 0.9034E+00, 0.9137E+00, 0.9242E+00,& - 0.9348E+00, 0.9455E+00, 0.9563E+00, 0.9672E+00,& - 0.9783E+00, 0.9895E+00, 0.1001E+01, 0.1012E+01,& - 0.1024E+01, 0.1036E+01, 0.1047E+01, 0.1059E+01,& - 0.1071E+01, 0.1084E+01, 0.1096E+01, 0.1109E+01,& - 0.1121E+01, 0.1134E+01, 0.1147E+01, 0.1160E+01,& - 0.1174E+01, 0.1187E+01, 0.1201E+01, 0.1214E+01,& - 0.1228E+01, 0.1242E+01, 0.1257E+01, 0.1271E+01,& - 0.1286E+01, 0.1301E+01, 0.1315E+01, 0.1331E+01,& - 0.1346E+01, 0.1361E+01, 0.1377E+01, 0.1393E+01,& - 0.1409E+01, 0.1425E+01, 0.1442E+01, 0.1458E+01,& - 0.1475E+01, 0.1492E+01, 0.1509E+01, 0.1527E+01,& - 0.1545E+01, 0.1563E+01, 0.1581E+01, 0.1599E+01,& - 0.1618E+01, 0.1636E+01, 0.1656E+01, 0.1675E+01,& - 0.1694E+01, 0.1714E+01, 0.1734E+01, 0.1754E+01,& - 0.1775E+01, 0.1796E+01, 0.1817E+01, 0.1838E+01,& - 0.1860E+01, 0.1882E+01, 0.1904E+01, 0.1927E+01,& - 0.1949E+01, 0.1972E+01, 0.1996E+01, 0.2019E+01,& - 0.2044E+01, 0.2068E+01, 0.2093E+01, 0.2118E+01,& - 0.2143E+01, 0.2169E+01, 0.2195E+01, 0.2221E+01,& - 0.2248E+01, 0.2275E+01, 0.2302E+01, 0.2330E+01,& - 0.2359E+01, 0.2387E+01, 0.2416E+01, 0.2446E+01,& - 0.2476E+01, 0.2506E+01, 0.2537E+01, 0.2568E+01,& - 0.2600E+01, 0.2632E+01, 0.2665E+01, 0.2698E+01,& - 0.2732E+01, 0.2766E+01, 0.2801E+01, 0.2836E+01,& - 0.2872E+01, 0.2908E+01, 0.2945E+01, 0.2982E+01,& - 0.3021E+01, 0.3059E+01, 0.3098E+01, 0.3138E+01,& - 0.3179E+01, 0.3220E+01, 0.3262E+01, 0.3305E+01,& - 0.3348E+01, 0.3392E+01, 0.3437E+01, 0.3483E+01,& - 0.3529E+01, 0.3576E+01, 0.3624E+01, 0.3673E+01,& - 0.3723E+01, 0.3774E+01, 0.3825E+01, 0.3878E+01,& - 0.3931E+01, 0.3986E+01, 0.4041E+01, 0.4098E+01,& - 0.4156E+01, 0.4214E+01, 0.4274E+01, 0.4336E+01,& - 0.4398E+01, 0.4462E+01, 0.4527E+01, 0.4593E+01,& - 0.4661E+01, 0.4730E+01, 0.4801E+01, 0.4873E+01,& - 0.4947E+01, 0.5023E+01, 0.5100E+01, 0.5179E+01,& - 0.5260E+01, 0.5343E+01, 0.5428E+01, 0.5515E+01,& - 0.5604E+01, 0.5696E+01, 0.5790E+01, 0.5886E+01,& - 0.5983E+01, 0.6086E+01, 0.6191E+01, 0.6298E+01,& - 0.6408E+01, 0.6522E+01, 0.6639E+01, 0.6760E+01,& - 0.6884E+01, 0.7012E+01, 0.7145E+01, 0.7282E+01,& - 0.7423E+01, 0.7570E+01, 0.7722E+01, 0.7879E+01,& - 0.8043E+01, 0.8211E+01, 0.8390E+01, 0.8574E+01,& - 0.8766E+01, 0.8966E+01, 0.9176E+01, 0.9396E+01,& - 0.9626E+01, 0.9869E+01, 0.1012E+02, 0.1039E+02,& - 0.1068E+02, 0.1098E+02, 0.1131E+02, 0.1165E+02,& - 0.1202E+02, 0.1242E+02, 0.1285E+02, 0.1332E+02,& - 0.1384E+02, 0.1441E+02, 0.1504E+02, 0.1576E+02,& - 0.1659E+02, 0.1755E+02, 0.1870E+02, 0.2012E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,113) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.5487E-04, 0.5487E-04, 0.5487E-04, 0.5487E-04,& - 0.5487E-04, 0.5487E-04, 0.5487E-04, 0.5487E-04,& - 0.5487E-04, 0.5487E-04, 0.5487E-04, 0.5487E-04,& - 0.5487E-04, 0.5487E-04, 0.5487E-04, 0.5487E-04,& - 0.5487E-04, 0.5487E-04, 0.5487E-04, 0.9974E-04,& - 0.9974E-04, 0.9974E-04, 0.9974E-04, 0.9974E-04,& - 0.9974E-04, 0.9974E-04, 0.9974E-04, 0.9974E-04,& - 0.9974E-04, 0.9974E-04, 0.9974E-04, 0.9974E-04,& - 0.1446E-03, 0.1446E-03, 0.1446E-03, 0.1446E-03,& - 0.1446E-03, 0.1446E-03, 0.1446E-03, 0.1446E-03,& - 0.1446E-03, 0.1895E-03, 0.1895E-03, 0.1895E-03,& - 0.1895E-03, 0.1895E-03, 0.1895E-03, 0.1895E-03,& - 0.1895E-03, 0.2344E-03, 0.2344E-03, 0.2344E-03,& - 0.2344E-03, 0.2344E-03, 0.2344E-03, 0.2792E-03,& - 0.2792E-03, 0.2792E-03, 0.2792E-03, 0.2792E-03,& - 0.2792E-03, 0.3241E-03, 0.3241E-03, 0.3241E-03,& - 0.3241E-03, 0.3690E-03, 0.3690E-03, 0.3690E-03,& - 0.3690E-03, 0.3690E-03, 0.4138E-03, 0.4138E-03,& - 0.4138E-03, 0.4138E-03, 0.4587E-03, 0.4587E-03,& - 0.4587E-03, 0.4587E-03, 0.5036E-03, 0.5036E-03,& - 0.5036E-03, 0.5484E-03, 0.5484E-03, 0.5484E-03,& - 0.5933E-03, 0.5933E-03, 0.5933E-03, 0.6382E-03,& - 0.6382E-03, 0.6382E-03, 0.6831E-03, 0.6831E-03,& - 0.7279E-03, 0.7279E-03, 0.7279E-03, 0.7728E-03,& - 0.7728E-03, 0.8177E-03, 0.8177E-03, 0.8177E-03,& - 0.8625E-03, 0.8625E-03, 0.9074E-03, 0.9074E-03,& - 0.9523E-03, 0.9523E-03, 0.9971E-03, 0.9971E-03,& - 0.1042E-02, 0.1087E-02, 0.1087E-02, 0.1132E-02,& - 0.1132E-02, 0.1177E-02, 0.1177E-02, 0.1221E-02,& - 0.1266E-02, 0.1266E-02, 0.1311E-02, 0.1356E-02,& - 0.1356E-02, 0.1401E-02, 0.1446E-02, 0.1491E-02,& - 0.1491E-02, 0.1536E-02, 0.1580E-02, 0.1625E-02,& - 0.1625E-02, 0.1670E-02, 0.1715E-02, 0.1760E-02,& - 0.1805E-02, 0.1850E-02, 0.1895E-02, 0.1939E-02,& - 0.1939E-02, 0.1984E-02, 0.2029E-02, 0.2074E-02,& - 0.2119E-02, 0.2164E-02, 0.2254E-02, 0.2298E-02,& - 0.2343E-02, 0.2388E-02, 0.2433E-02, 0.2478E-02,& - 0.2523E-02, 0.2568E-02, 0.2657E-02, 0.2702E-02,& - 0.2747E-02, 0.2792E-02, 0.2882E-02, 0.2927E-02,& - 0.2971E-02, 0.3061E-02, 0.3106E-02, 0.3196E-02,& - 0.3241E-02, 0.3330E-02, 0.3375E-02, 0.3465E-02,& - 0.3510E-02, 0.3600E-02, 0.3689E-02, 0.3734E-02,& - 0.3824E-02, 0.3914E-02, 0.3959E-02, 0.4048E-02,& - 0.4138E-02, 0.4228E-02, 0.4318E-02, 0.4362E-02,& - 0.4452E-02, 0.4542E-02, 0.4632E-02, 0.4721E-02,& - 0.4811E-02, 0.4946E-02, 0.5035E-02, 0.5125E-02,& - 0.5215E-02, 0.5305E-02, 0.5439E-02, 0.5529E-02,& - 0.5619E-02, 0.5753E-02, 0.5843E-02, 0.5978E-02,& - 0.6068E-02, 0.6202E-02, 0.6292E-02, 0.6426E-02,& - 0.6561E-02, 0.6696E-02, 0.6785E-02, 0.6920E-02,& - 0.7055E-02, 0.7189E-02, 0.7324E-02, 0.7458E-02,& - 0.7593E-02, 0.7728E-02, 0.7862E-02, 0.8042E-02,& - 0.8176E-02, 0.8311E-02, 0.8491E-02, 0.8625E-02,& - 0.8805E-02, 0.8939E-02, 0.9119E-02, 0.9298E-02,& - 0.9433E-02, 0.9612E-02, 0.9792E-02, 0.9971E-02,& - 0.1015E-01, 0.1033E-01, 0.1051E-01, 0.1069E-01,& - 0.1087E-01, 0.1109E-01, 0.1127E-01, 0.1145E-01,& - 0.1168E-01, 0.1190E-01, 0.1208E-01, 0.1230E-01,& - 0.1253E-01, 0.1275E-01, 0.1293E-01, 0.1316E-01,& - 0.1343E-01, 0.1365E-01, 0.1387E-01, 0.1410E-01,& - 0.1437E-01, 0.1459E-01, 0.1486E-01, 0.1509E-01,& - 0.1536E-01, 0.1562E-01, 0.1589E-01, 0.1616E-01,& - 0.1643E-01, 0.1670E-01, 0.1697E-01, 0.1729E-01,& - 0.1755E-01, 0.1787E-01, 0.1814E-01, 0.1845E-01,& - 0.1877E-01, 0.1908E-01, 0.1939E-01, 0.1971E-01,& - 0.2002E-01, 0.2038E-01, 0.2070E-01, 0.2105E-01,& - 0.2137E-01, 0.2173E-01, 0.2209E-01, 0.2245E-01,& - 0.2280E-01, 0.2316E-01, 0.2357E-01, 0.2393E-01,& - 0.2433E-01, 0.2473E-01, 0.2509E-01, 0.2550E-01,& - 0.2595E-01, 0.2635E-01, 0.2675E-01, 0.2720E-01,& - 0.2761E-01, 0.2805E-01, 0.2850E-01, 0.2895E-01,& - 0.2940E-01, 0.2985E-01, 0.3034E-01, 0.3079E-01,& - 0.3128E-01, 0.3178E-01, 0.3227E-01, 0.3277E-01,& - 0.3330E-01, 0.3380E-01, 0.3434E-01, 0.3487E-01,& - 0.3541E-01, 0.3595E-01, 0.3649E-01, 0.3707E-01,& - 0.3761E-01, 0.3819E-01, 0.3878E-01, 0.3936E-01,& - 0.3999E-01, 0.4057E-01, 0.4120E-01, 0.4183E-01,& - 0.4246E-01, 0.4309E-01, 0.4376E-01, 0.4439E-01,& - 0.4506E-01, 0.4573E-01, 0.4645E-01, 0.4712E-01,& - 0.4784E-01, 0.4856E-01, 0.4928E-01, 0.5000E-01,& - 0.5071E-01, 0.5148E-01, 0.5224E-01, 0.5300E-01,& - 0.5381E-01, 0.5457E-01, 0.5538E-01, 0.5619E-01,& - 0.5700E-01, 0.5785E-01, 0.5870E-01, 0.5955E-01,& - 0.6041E-01, 0.6126E-01, 0.6216E-01, 0.6305E-01,& - 0.6395E-01, 0.6489E-01, 0.6583E-01, 0.6678E-01,& - 0.6772E-01, 0.6871E-01, 0.6969E-01, 0.7068E-01,& - 0.7167E-01, 0.7270E-01, 0.7373E-01, 0.7476E-01,& - 0.7584E-01, 0.7692E-01, 0.7799E-01, 0.7907E-01,& - 0.8019E-01, 0.8132E-01, 0.8248E-01, 0.8360E-01,& - 0.8477E-01, 0.8598E-01, 0.8715E-01, 0.8836E-01,& - 0.8962E-01, 0.9087E-01, 0.9213E-01, 0.9339E-01,& - 0.9469E-01, 0.9599E-01, 0.9729E-01, 0.9864E-01,& - 0.9998E-01, 0.1014E+00, 0.1028E+00, 0.1042E+00,& - 0.1056E+00, 0.1070E+00, 0.1085E+00, 0.1099E+00,& - 0.1114E+00, 0.1129E+00, 0.1145E+00, 0.1160E+00,& - 0.1176E+00, 0.1192E+00, 0.1208E+00, 0.1224E+00,& - 0.1240E+00, 0.1257E+00, 0.1274E+00, 0.1291E+00,& - 0.1308E+00, 0.1326E+00, 0.1343E+00, 0.1361E+00,& - 0.1379E+00, 0.1397E+00, 0.1416E+00, 0.1435E+00,& - 0.1453E+00, 0.1473E+00, 0.1492E+00, 0.1512E+00,& - 0.1532E+00, 0.1552E+00, 0.1572E+00, 0.1593E+00,& - 0.1613E+00, 0.1634E+00, 0.1655E+00, 0.1677E+00,& - 0.1699E+00, 0.1721E+00, 0.1743E+00, 0.1766E+00,& - 0.1789E+00, 0.1812E+00, 0.1835E+00, 0.1859E+00,& - 0.1882E+00, 0.1907E+00, 0.1931E+00, 0.1956E+00,& - 0.1981E+00, 0.2006E+00, 0.2032E+00, 0.2058E+00,& - 0.2084E+00, 0.2110E+00, 0.2137E+00, 0.2164E+00,& - 0.2192E+00, 0.2219E+00, 0.2248E+00, 0.2276E+00,& - 0.2305E+00, 0.2334E+00, 0.2363E+00, 0.2393E+00,& - 0.2423E+00, 0.2453E+00, 0.2484E+00, 0.2515E+00,& - 0.2546E+00, 0.2578E+00, 0.2611E+00, 0.2643E+00,& - 0.2676E+00, 0.2709E+00, 0.2743E+00, 0.2777E+00,& - 0.2811E+00, 0.2846E+00, 0.2881E+00, 0.2917E+00,& - 0.2953E+00, 0.2989E+00, 0.3026E+00, 0.3063E+00,& - 0.3101E+00, 0.3139E+00, 0.3177E+00, 0.3216E+00,& - 0.3256E+00, 0.3295E+00, 0.3336E+00, 0.3377E+00,& - 0.3418E+00, 0.3459E+00, 0.3501E+00, 0.3544E+00,& - 0.3587E+00, 0.3631E+00, 0.3675E+00, 0.3719E+00,& - 0.3764E+00, 0.3810E+00, 0.3856E+00, 0.3902E+00,& - 0.3949E+00, 0.3997E+00, 0.4045E+00, 0.4094E+00,& - 0.4143E+00, 0.4193E+00, 0.4243E+00, 0.4294E+00,& - 0.4345E+00, 0.4397E+00, 0.4450E+00, 0.4503E+00,& - 0.4557E+00, 0.4611E+00, 0.4666E+00, 0.4722E+00,& - 0.4778E+00, 0.4835E+00, 0.4892E+00, 0.4950E+00,& - 0.5009E+00, 0.5069E+00, 0.5129E+00, 0.5189E+00,& - 0.5251E+00, 0.5313E+00, 0.5376E+00, 0.5439E+00,& - 0.5503E+00, 0.5569E+00, 0.5634E+00, 0.5700E+00,& - 0.5768E+00, 0.5835E+00, 0.5904E+00, 0.5974E+00,& - 0.6044E+00, 0.6115E+00, 0.6186E+00, 0.6259E+00,& - 0.6333E+00, 0.6407E+00, 0.6482E+00, 0.6557E+00,& - 0.6635E+00, 0.6712E+00, 0.6790E+00, 0.6870E+00,& - 0.6950E+00, 0.7031E+00, 0.7113E+00, 0.7196E+00,& - 0.7280E+00, 0.7365E+00, 0.7451E+00, 0.7538E+00,& - 0.7625E+00, 0.7714E+00, 0.7804E+00, 0.7895E+00,& - 0.7987E+00, 0.8079E+00, 0.8173E+00, 0.8268E+00,& - 0.8364E+00, 0.8462E+00, 0.8560E+00, 0.8659E+00,& - 0.8760E+00, 0.8862E+00, 0.8964E+00, 0.9068E+00,& - 0.9173E+00, 0.9280E+00, 0.9387E+00, 0.9496E+00,& - 0.9606E+00, 0.9718E+00, 0.9831E+00, 0.9945E+00,& - 0.1006E+01, 0.1018E+01, 0.1029E+01, 0.1041E+01,& - 0.1053E+01, 0.1066E+01, 0.1078E+01, 0.1091E+01,& - 0.1103E+01, 0.1116E+01, 0.1129E+01, 0.1142E+01,& - 0.1155E+01, 0.1169E+01, 0.1182E+01, 0.1196E+01,& - 0.1210E+01, 0.1224E+01, 0.1238E+01, 0.1253E+01,& - 0.1267E+01, 0.1282E+01, 0.1297E+01, 0.1312E+01,& - 0.1327E+01, 0.1343E+01, 0.1359E+01, 0.1374E+01,& - 0.1390E+01, 0.1407E+01, 0.1423E+01, 0.1440E+01,& - 0.1457E+01, 0.1474E+01, 0.1491E+01, 0.1508E+01,& - 0.1526E+01, 0.1544E+01, 0.1562E+01, 0.1581E+01,& - 0.1599E+01, 0.1618E+01, 0.1637E+01, 0.1656E+01,& - 0.1676E+01, 0.1696E+01, 0.1716E+01, 0.1736E+01,& - 0.1757E+01, 0.1778E+01, 0.1799E+01, 0.1820E+01,& - 0.1842E+01, 0.1864E+01, 0.1886E+01, 0.1909E+01,& - 0.1931E+01, 0.1955E+01, 0.1978E+01, 0.2002E+01,& - 0.2026E+01, 0.2050E+01, 0.2075E+01, 0.2100E+01,& - 0.2126E+01, 0.2152E+01, 0.2178E+01, 0.2204E+01,& - 0.2231E+01, 0.2258E+01, 0.2286E+01, 0.2314E+01,& - 0.2342E+01, 0.2371E+01, 0.2401E+01, 0.2430E+01,& - 0.2460E+01, 0.2491E+01, 0.2522E+01, 0.2553E+01,& - 0.2585E+01, 0.2618E+01, 0.2650E+01, 0.2684E+01,& - 0.2718E+01, 0.2752E+01, 0.2787E+01, 0.2822E+01,& - 0.2858E+01, 0.2895E+01, 0.2932E+01, 0.2970E+01,& - 0.3008E+01, 0.3047E+01, 0.3087E+01, 0.3127E+01,& - 0.3168E+01, 0.3209E+01, 0.3251E+01, 0.3294E+01,& - 0.3338E+01, 0.3383E+01, 0.3428E+01, 0.3474E+01,& - 0.3520E+01, 0.3568E+01, 0.3616E+01, 0.3666E+01,& - 0.3716E+01, 0.3767E+01, 0.3819E+01, 0.3872E+01,& - 0.3926E+01, 0.3981E+01, 0.4037E+01, 0.4094E+01,& - 0.4152E+01, 0.4212E+01, 0.4272E+01, 0.4334E+01,& - 0.4397E+01, 0.4461E+01, 0.4527E+01, 0.4594E+01,& - 0.4663E+01, 0.4732E+01, 0.4804E+01, 0.4877E+01,& - 0.4952E+01, 0.5028E+01, 0.5106E+01, 0.5186E+01,& - 0.5268E+01, 0.5352E+01, 0.5438E+01, 0.5526E+01,& - 0.5616E+01, 0.5708E+01, 0.5803E+01, 0.5900E+01,& - 0.6000E+01, 0.6103E+01, 0.6209E+01, 0.6317E+01,& - 0.6429E+01, 0.6544E+01, 0.6662E+01, 0.6784E+01,& - 0.6910E+01, 0.7040E+01, 0.7174E+01, 0.7313E+01,& - 0.7456E+01, 0.7605E+01, 0.7758E+01, 0.7918E+01,& - 0.8084E+01, 0.8256E+01, 0.8435E+01, 0.8621E+01,& - 0.8816E+01, 0.9019E+01, 0.9231E+01, 0.9454E+01,& - 0.9688E+01, 0.9934E+01, 0.1019E+02, 0.1047E+02,& - 0.1076E+02, 0.1106E+02, 0.1139E+02, 0.1174E+02,& - 0.1212E+02, 0.1252E+02, 0.1296E+02, 0.1344E+02,& - 0.1396E+02, 0.1454E+02, 0.1518E+02, 0.1591E+02,& - 0.1675E+02, 0.1772E+02, 0.1889E+02, 0.2034E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,114) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.5556E-04, 0.5556E-04,& - 0.5556E-04, 0.5556E-04, 0.5556E-04, 0.5556E-04,& - 0.5556E-04, 0.5556E-04, 0.5556E-04, 0.5556E-04,& - 0.5556E-04, 0.5556E-04, 0.5556E-04, 0.5556E-04,& - 0.5556E-04, 0.5556E-04, 0.5556E-04, 0.5556E-04,& - 0.5556E-04, 0.1011E-03, 0.1011E-03, 0.1011E-03,& - 0.1011E-03, 0.1011E-03, 0.1011E-03, 0.1011E-03,& - 0.1011E-03, 0.1011E-03, 0.1011E-03, 0.1011E-03,& - 0.1011E-03, 0.1011E-03, 0.1467E-03, 0.1467E-03,& - 0.1467E-03, 0.1467E-03, 0.1467E-03, 0.1467E-03,& - 0.1467E-03, 0.1467E-03, 0.1467E-03, 0.1923E-03,& - 0.1923E-03, 0.1923E-03, 0.1923E-03, 0.1923E-03,& - 0.1923E-03, 0.1923E-03, 0.1923E-03, 0.2378E-03,& - 0.2378E-03, 0.2378E-03, 0.2378E-03, 0.2378E-03,& - 0.2378E-03, 0.2834E-03, 0.2834E-03, 0.2834E-03,& - 0.2834E-03, 0.2834E-03, 0.2834E-03, 0.3290E-03,& - 0.3290E-03, 0.3290E-03, 0.3290E-03, 0.3290E-03,& - 0.3745E-03, 0.3745E-03, 0.3745E-03, 0.3745E-03,& - 0.4201E-03, 0.4201E-03, 0.4201E-03, 0.4201E-03,& - 0.4656E-03, 0.4656E-03, 0.4656E-03, 0.4656E-03,& - 0.5112E-03, 0.5112E-03, 0.5112E-03, 0.5568E-03,& - 0.5568E-03, 0.5568E-03, 0.6023E-03, 0.6023E-03,& - 0.6023E-03, 0.6479E-03, 0.6479E-03, 0.6479E-03,& - 0.6935E-03, 0.6935E-03, 0.6935E-03, 0.7390E-03,& - 0.7390E-03, 0.7846E-03, 0.7846E-03, 0.7846E-03,& - 0.8302E-03, 0.8302E-03, 0.8757E-03, 0.8757E-03,& - 0.9213E-03, 0.9213E-03, 0.9669E-03, 0.9669E-03,& - 0.1012E-02, 0.1012E-02, 0.1058E-02, 0.1058E-02,& - 0.1104E-02, 0.1149E-02, 0.1149E-02, 0.1195E-02,& - 0.1195E-02, 0.1240E-02, 0.1286E-02, 0.1286E-02,& - 0.1331E-02, 0.1377E-02, 0.1377E-02, 0.1423E-02,& - 0.1468E-02, 0.1468E-02, 0.1514E-02, 0.1559E-02,& - 0.1605E-02, 0.1605E-02, 0.1650E-02, 0.1696E-02,& - 0.1741E-02, 0.1787E-02, 0.1833E-02, 0.1833E-02,& - 0.1878E-02, 0.1924E-02, 0.1969E-02, 0.2015E-02,& - 0.2060E-02, 0.2106E-02, 0.2152E-02, 0.2197E-02,& - 0.2243E-02, 0.2288E-02, 0.2334E-02, 0.2425E-02,& - 0.2470E-02, 0.2516E-02, 0.2562E-02, 0.2607E-02,& - 0.2653E-02, 0.2744E-02, 0.2789E-02, 0.2835E-02,& - 0.2881E-02, 0.2972E-02, 0.3017E-02, 0.3108E-02,& - 0.3154E-02, 0.3200E-02, 0.3291E-02, 0.3336E-02,& - 0.3427E-02, 0.3473E-02, 0.3564E-02, 0.3655E-02,& - 0.3701E-02, 0.3792E-02, 0.3837E-02, 0.3929E-02,& - 0.4020E-02, 0.4111E-02, 0.4202E-02, 0.4248E-02,& - 0.4339E-02, 0.4430E-02, 0.4521E-02, 0.4612E-02,& - 0.4703E-02, 0.4794E-02, 0.4885E-02, 0.4977E-02,& - 0.5068E-02, 0.5204E-02, 0.5296E-02, 0.5387E-02,& - 0.5478E-02, 0.5614E-02, 0.5706E-02, 0.5797E-02,& - 0.5933E-02, 0.6025E-02, 0.6161E-02, 0.6252E-02,& - 0.6389E-02, 0.6526E-02, 0.6617E-02, 0.6754E-02,& - 0.6890E-02, 0.7027E-02, 0.7164E-02, 0.7300E-02,& - 0.7437E-02, 0.7574E-02, 0.7710E-02, 0.7847E-02,& - 0.7984E-02, 0.8121E-02, 0.8303E-02, 0.8439E-02,& - 0.8576E-02, 0.8758E-02, 0.8895E-02, 0.9077E-02,& - 0.9260E-02, 0.9396E-02, 0.9579E-02, 0.9761E-02,& - 0.9943E-02, 0.1013E-01, 0.1031E-01, 0.1049E-01,& - 0.1067E-01, 0.1085E-01, 0.1104E-01, 0.1126E-01,& - 0.1145E-01, 0.1163E-01, 0.1186E-01, 0.1208E-01,& - 0.1227E-01, 0.1249E-01, 0.1272E-01, 0.1295E-01,& - 0.1318E-01, 0.1341E-01, 0.1363E-01, 0.1386E-01,& - 0.1409E-01, 0.1436E-01, 0.1459E-01, 0.1486E-01,& - 0.1509E-01, 0.1537E-01, 0.1564E-01, 0.1587E-01,& - 0.1614E-01, 0.1641E-01, 0.1673E-01, 0.1701E-01,& - 0.1728E-01, 0.1760E-01, 0.1787E-01, 0.1819E-01,& - 0.1846E-01, 0.1878E-01, 0.1910E-01, 0.1942E-01,& - 0.1974E-01, 0.2006E-01, 0.2042E-01, 0.2074E-01,& - 0.2111E-01, 0.2143E-01, 0.2179E-01, 0.2215E-01,& - 0.2252E-01, 0.2288E-01, 0.2325E-01, 0.2361E-01,& - 0.2402E-01, 0.2439E-01, 0.2480E-01, 0.2521E-01,& - 0.2562E-01, 0.2603E-01, 0.2644E-01, 0.2685E-01,& - 0.2730E-01, 0.2776E-01, 0.2817E-01, 0.2862E-01,& - 0.2908E-01, 0.2954E-01, 0.3004E-01, 0.3049E-01,& - 0.3099E-01, 0.3145E-01, 0.3195E-01, 0.3245E-01,& - 0.3295E-01, 0.3350E-01, 0.3400E-01, 0.3455E-01,& - 0.3509E-01, 0.3564E-01, 0.3619E-01, 0.3674E-01,& - 0.3733E-01, 0.3787E-01, 0.3847E-01, 0.3906E-01,& - 0.3965E-01, 0.4029E-01, 0.4088E-01, 0.4152E-01,& - 0.4216E-01, 0.4280E-01, 0.4343E-01, 0.4412E-01,& - 0.4475E-01, 0.4544E-01, 0.4612E-01, 0.4685E-01,& - 0.4753E-01, 0.4826E-01, 0.4899E-01, 0.4972E-01,& - 0.5045E-01, 0.5122E-01, 0.5195E-01, 0.5273E-01,& - 0.5355E-01, 0.5432E-01, 0.5514E-01, 0.5596E-01,& - 0.5678E-01, 0.5760E-01, 0.5847E-01, 0.5924E-01,& - 0.6020E-01, 0.6107E-01, 0.6198E-01, 0.6284E-01,& - 0.6376E-01, 0.6471E-01, 0.6562E-01, 0.6658E-01,& - 0.6758E-01, 0.6854E-01, 0.6954E-01, 0.7054E-01,& - 0.7155E-01, 0.7259E-01, 0.7360E-01, 0.7465E-01,& - 0.7574E-01, 0.7683E-01, 0.7793E-01, 0.7902E-01,& - 0.8016E-01, 0.8130E-01, 0.8244E-01, 0.8362E-01,& - 0.8476E-01, 0.8599E-01, 0.8718E-01, 0.8841E-01,& - 0.8964E-01, 0.9091E-01, 0.9219E-01, 0.9346E-01,& - 0.9478E-01, 0.9611E-01, 0.9743E-01, 0.9879E-01,& - 0.1002E+00, 0.1015E+00, 0.1029E+00, 0.1044E+00,& - 0.1058E+00, 0.1073E+00, 0.1087E+00, 0.1102E+00,& - 0.1117E+00, 0.1133E+00, 0.1148E+00, 0.1164E+00,& - 0.1180E+00, 0.1196E+00, 0.1212E+00, 0.1229E+00,& - 0.1245E+00, 0.1262E+00, 0.1279E+00, 0.1296E+00,& - 0.1314E+00, 0.1332E+00, 0.1350E+00, 0.1368E+00,& - 0.1386E+00, 0.1405E+00, 0.1424E+00, 0.1443E+00,& - 0.1462E+00, 0.1481E+00, 0.1501E+00, 0.1521E+00,& - 0.1541E+00, 0.1562E+00, 0.1582E+00, 0.1603E+00,& - 0.1624E+00, 0.1646E+00, 0.1667E+00, 0.1689E+00,& - 0.1712E+00, 0.1734E+00, 0.1757E+00, 0.1780E+00,& - 0.1803E+00, 0.1826E+00, 0.1850E+00, 0.1874E+00,& - 0.1899E+00, 0.1923E+00, 0.1948E+00, 0.1974E+00,& - 0.1999E+00, 0.2025E+00, 0.2051E+00, 0.2077E+00,& - 0.2104E+00, 0.2131E+00, 0.2159E+00, 0.2186E+00,& - 0.2215E+00, 0.2243E+00, 0.2272E+00, 0.2301E+00,& - 0.2330E+00, 0.2359E+00, 0.2390E+00, 0.2420E+00,& - 0.2451E+00, 0.2482E+00, 0.2513E+00, 0.2545E+00,& - 0.2577E+00, 0.2610E+00, 0.2643E+00, 0.2676E+00,& - 0.2710E+00, 0.2744E+00, 0.2778E+00, 0.2813E+00,& - 0.2848E+00, 0.2884E+00, 0.2920E+00, 0.2957E+00,& - 0.2994E+00, 0.3031E+00, 0.3068E+00, 0.3107E+00,& - 0.3145E+00, 0.3185E+00, 0.3224E+00, 0.3264E+00,& - 0.3304E+00, 0.3345E+00, 0.3386E+00, 0.3428E+00,& - 0.3471E+00, 0.3514E+00, 0.3557E+00, 0.3601E+00,& - 0.3645E+00, 0.3689E+00, 0.3735E+00, 0.3781E+00,& - 0.3827E+00, 0.3874E+00, 0.3921E+00, 0.3969E+00,& - 0.4018E+00, 0.4066E+00, 0.4116E+00, 0.4166E+00,& - 0.4217E+00, 0.4268E+00, 0.4320E+00, 0.4372E+00,& - 0.4425E+00, 0.4479E+00, 0.4533E+00, 0.4588E+00,& - 0.4643E+00, 0.4699E+00, 0.4756E+00, 0.4814E+00,& - 0.4871E+00, 0.4930E+00, 0.4989E+00, 0.5050E+00,& - 0.5110E+00, 0.5171E+00, 0.5234E+00, 0.5296E+00,& - 0.5360E+00, 0.5424E+00, 0.5489E+00, 0.5554E+00,& - 0.5621E+00, 0.5688E+00, 0.5756E+00, 0.5825E+00,& - 0.5894E+00, 0.5964E+00, 0.6035E+00, 0.6107E+00,& - 0.6180E+00, 0.6253E+00, 0.6328E+00, 0.6403E+00,& - 0.6479E+00, 0.6556E+00, 0.6633E+00, 0.6712E+00,& - 0.6792E+00, 0.6872E+00, 0.6953E+00, 0.7036E+00,& - 0.7119E+00, 0.7203E+00, 0.7288E+00, 0.7374E+00,& - 0.7462E+00, 0.7550E+00, 0.7639E+00, 0.7729E+00,& - 0.7820E+00, 0.7912E+00, 0.8006E+00, 0.8100E+00,& - 0.8195E+00, 0.8292E+00, 0.8390E+00, 0.8488E+00,& - 0.8589E+00, 0.8690E+00, 0.8792E+00, 0.8895E+00,& - 0.9000E+00, 0.9106E+00, 0.9213E+00, 0.9321E+00,& - 0.9431E+00, 0.9542E+00, 0.9654E+00, 0.9767E+00,& - 0.9882E+00, 0.9998E+00, 0.1012E+01, 0.1023E+01,& - 0.1036E+01, 0.1048E+01, 0.1060E+01, 0.1072E+01,& - 0.1085E+01, 0.1098E+01, 0.1111E+01, 0.1124E+01,& - 0.1137E+01, 0.1150E+01, 0.1164E+01, 0.1178E+01,& - 0.1192E+01, 0.1206E+01, 0.1220E+01, 0.1234E+01,& - 0.1249E+01, 0.1263E+01, 0.1278E+01, 0.1293E+01,& - 0.1309E+01, 0.1324E+01, 0.1340E+01, 0.1356E+01,& - 0.1372E+01, 0.1388E+01, 0.1404E+01, 0.1421E+01,& - 0.1438E+01, 0.1455E+01, 0.1472E+01, 0.1490E+01,& - 0.1507E+01, 0.1525E+01, 0.1543E+01, 0.1562E+01,& - 0.1581E+01, 0.1599E+01, 0.1619E+01, 0.1638E+01,& - 0.1657E+01, 0.1677E+01, 0.1697E+01, 0.1718E+01,& - 0.1738E+01, 0.1759E+01, 0.1780E+01, 0.1802E+01,& - 0.1824E+01, 0.1846E+01, 0.1868E+01, 0.1891E+01,& - 0.1914E+01, 0.1937E+01, 0.1960E+01, 0.1984E+01,& - 0.2008E+01, 0.2033E+01, 0.2058E+01, 0.2083E+01,& - 0.2108E+01, 0.2134E+01, 0.2161E+01, 0.2187E+01,& - 0.2214E+01, 0.2241E+01, 0.2269E+01, 0.2297E+01,& - 0.2326E+01, 0.2355E+01, 0.2384E+01, 0.2414E+01,& - 0.2444E+01, 0.2475E+01, 0.2506E+01, 0.2538E+01,& - 0.2570E+01, 0.2602E+01, 0.2635E+01, 0.2669E+01,& - 0.2703E+01, 0.2738E+01, 0.2773E+01, 0.2808E+01,& - 0.2845E+01, 0.2881E+01, 0.2919E+01, 0.2957E+01,& - 0.2995E+01, 0.3035E+01, 0.3074E+01, 0.3115E+01,& - 0.3156E+01, 0.3198E+01, 0.3240E+01, 0.3284E+01,& - 0.3328E+01, 0.3372E+01, 0.3418E+01, 0.3464E+01,& - 0.3511E+01, 0.3559E+01, 0.3608E+01, 0.3658E+01,& - 0.3708E+01, 0.3760E+01, 0.3812E+01, 0.3866E+01,& - 0.3920E+01, 0.3976E+01, 0.4032E+01, 0.4090E+01,& - 0.4149E+01, 0.4208E+01, 0.4270E+01, 0.4332E+01,& - 0.4396E+01, 0.4460E+01, 0.4527E+01, 0.4594E+01,& - 0.4664E+01, 0.4734E+01, 0.4806E+01, 0.4880E+01,& - 0.4955E+01, 0.5033E+01, 0.5112E+01, 0.5192E+01,& - 0.5275E+01, 0.5360E+01, 0.5446E+01, 0.5535E+01,& - 0.5626E+01, 0.5720E+01, 0.5816E+01, 0.5914E+01,& - 0.6015E+01, 0.6119E+01, 0.6226E+01, 0.6336E+01,& - 0.6449E+01, 0.6565E+01, 0.6685E+01, 0.6808E+01,& - 0.6936E+01, 0.7067E+01, 0.7203E+01, 0.7343E+01,& - 0.7488E+01, 0.7639E+01, 0.7794E+01, 0.7956E+01,& - 0.8123E+01, 0.8298E+01, 0.8479E+01, 0.8668E+01,& - 0.8772E+01, 0.9071E+01, 0.9286E+01, 0.9512E+01,& - 0.9749E+01, 0.9998E+01, 0.1026E+02, 0.1054E+02,& - 0.1083E+02, 0.1114E+02, 0.1147E+02, 0.1183E+02,& - 0.1221E+02, 0.1262E+02, 0.1307E+02, 0.1355E+02,& - 0.1408E+02, 0.1467E+02, 0.1532E+02, 0.1606E+02,& - 0.1691E+02, 0.1790E+02, 0.1909E+02, 0.2056E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,115) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.5627E-04, 0.5627E-04, 0.5627E-04, 0.5627E-04,& - 0.5627E-04, 0.5627E-04, 0.5627E-04, 0.5627E-04,& - 0.5627E-04, 0.5627E-04, 0.5627E-04, 0.5627E-04,& - 0.5627E-04, 0.5627E-04, 0.5627E-04, 0.5627E-04,& - 0.5627E-04, 0.5627E-04, 0.5627E-04, 0.1025E-03,& - 0.1025E-03, 0.1025E-03, 0.1025E-03, 0.1025E-03,& - 0.1025E-03, 0.1025E-03, 0.1025E-03, 0.1025E-03,& - 0.1025E-03, 0.1025E-03, 0.1025E-03, 0.1025E-03,& - 0.1488E-03, 0.1488E-03, 0.1488E-03, 0.1488E-03,& - 0.1488E-03, 0.1488E-03, 0.1488E-03, 0.1488E-03,& - 0.1488E-03, 0.1951E-03, 0.1951E-03, 0.1951E-03,& - 0.1951E-03, 0.1951E-03, 0.1951E-03, 0.1951E-03,& - 0.1951E-03, 0.2413E-03, 0.2413E-03, 0.2413E-03,& - 0.2413E-03, 0.2413E-03, 0.2413E-03, 0.2876E-03,& - 0.2876E-03, 0.2876E-03, 0.2876E-03, 0.2876E-03,& - 0.2876E-03, 0.3339E-03, 0.3339E-03, 0.3339E-03,& - 0.3339E-03, 0.3339E-03, 0.3801E-03, 0.3801E-03,& - 0.3801E-03, 0.3801E-03, 0.4264E-03, 0.4264E-03,& - 0.4264E-03, 0.4264E-03, 0.4727E-03, 0.4727E-03,& - 0.4727E-03, 0.4727E-03, 0.5189E-03, 0.5189E-03,& - 0.5189E-03, 0.5652E-03, 0.5652E-03, 0.5652E-03,& - 0.5652E-03, 0.6114E-03, 0.6114E-03, 0.6114E-03,& - 0.6577E-03, 0.6577E-03, 0.7040E-03, 0.7040E-03,& - 0.7040E-03, 0.7502E-03, 0.7502E-03, 0.7965E-03,& - 0.7965E-03, 0.7965E-03, 0.8428E-03, 0.8428E-03,& - 0.8890E-03, 0.8890E-03, 0.9353E-03, 0.9353E-03,& - 0.9816E-03, 0.9816E-03, 0.1028E-02, 0.1028E-02,& - 0.1074E-02, 0.1074E-02, 0.1120E-02, 0.1120E-02,& - 0.1167E-02, 0.1213E-02, 0.1213E-02, 0.1259E-02,& - 0.1259E-02, 0.1305E-02, 0.1352E-02, 0.1352E-02,& - 0.1398E-02, 0.1444E-02, 0.1444E-02, 0.1490E-02,& - 0.1537E-02, 0.1583E-02, 0.1583E-02, 0.1629E-02,& - 0.1676E-02, 0.1722E-02, 0.1768E-02, 0.1814E-02,& - 0.1814E-02, 0.1861E-02, 0.1907E-02, 0.1953E-02,& - 0.1999E-02, 0.2046E-02, 0.2092E-02, 0.2138E-02,& - 0.2184E-02, 0.2231E-02, 0.2277E-02, 0.2323E-02,& - 0.2370E-02, 0.2416E-02, 0.2462E-02, 0.2555E-02,& - 0.2601E-02, 0.2647E-02, 0.2693E-02, 0.2740E-02,& - 0.2832E-02, 0.2878E-02, 0.2925E-02, 0.3017E-02,& - 0.3063E-02, 0.3110E-02, 0.3202E-02, 0.3249E-02,& - 0.3341E-02, 0.3387E-02, 0.3480E-02, 0.3526E-02,& - 0.3619E-02, 0.3665E-02, 0.3757E-02, 0.3850E-02,& - 0.3896E-02, 0.3989E-02, 0.4081E-02, 0.4128E-02,& - 0.4220E-02, 0.4313E-02, 0.4405E-02, 0.4498E-02,& - 0.4590E-02, 0.4683E-02, 0.4775E-02, 0.4868E-02,& - 0.4960E-02, 0.5053E-02, 0.5145E-02, 0.5238E-02,& - 0.5377E-02, 0.5469E-02, 0.5562E-02, 0.5654E-02,& - 0.5793E-02, 0.5886E-02, 0.6024E-02, 0.6117E-02,& - 0.6256E-02, 0.6348E-02, 0.6487E-02, 0.6626E-02,& - 0.6718E-02, 0.6857E-02, 0.6996E-02, 0.7135E-02,& - 0.7274E-02, 0.7412E-02, 0.7551E-02, 0.7690E-02,& - 0.7829E-02, 0.7968E-02, 0.8106E-02, 0.8245E-02,& - 0.8430E-02, 0.8569E-02, 0.8754E-02, 0.8893E-02,& - 0.9078E-02, 0.9217E-02, 0.9402E-02, 0.9541E-02,& - 0.9726E-02, 0.9911E-02, 0.1010E-01, 0.1028E-01,& - 0.1047E-01, 0.1065E-01, 0.1084E-01, 0.1102E-01,& - 0.1125E-01, 0.1144E-01, 0.1162E-01, 0.1185E-01,& - 0.1204E-01, 0.1227E-01, 0.1250E-01, 0.1273E-01,& - 0.1292E-01, 0.1315E-01, 0.1338E-01, 0.1361E-01,& - 0.1384E-01, 0.1412E-01, 0.1435E-01, 0.1458E-01,& - 0.1486E-01, 0.1509E-01, 0.1537E-01, 0.1565E-01,& - 0.1593E-01, 0.1620E-01, 0.1648E-01, 0.1676E-01,& - 0.1704E-01, 0.1731E-01, 0.1759E-01, 0.1791E-01,& - 0.1824E-01, 0.1852E-01, 0.1884E-01, 0.1916E-01,& - 0.1949E-01, 0.1981E-01, 0.2014E-01, 0.2046E-01,& - 0.2083E-01, 0.2115E-01, 0.2152E-01, 0.2185E-01,& - 0.2222E-01, 0.2259E-01, 0.2296E-01, 0.2333E-01,& - 0.2374E-01, 0.2411E-01, 0.2453E-01, 0.2490E-01,& - 0.2532E-01, 0.2573E-01, 0.2615E-01, 0.2657E-01,& - 0.2703E-01, 0.2745E-01, 0.2791E-01, 0.2832E-01,& - 0.2879E-01, 0.2925E-01, 0.2971E-01, 0.3022E-01,& - 0.3068E-01, 0.3119E-01, 0.3166E-01, 0.3216E-01,& - 0.3267E-01, 0.3318E-01, 0.3374E-01, 0.3425E-01,& - 0.3480E-01, 0.3536E-01, 0.3591E-01, 0.3647E-01,& - 0.3702E-01, 0.3762E-01, 0.3818E-01, 0.3878E-01,& - 0.3938E-01, 0.3998E-01, 0.4063E-01, 0.4123E-01,& - 0.4188E-01, 0.4253E-01, 0.4318E-01, 0.4382E-01,& - 0.4452E-01, 0.4521E-01, 0.4590E-01, 0.4660E-01,& - 0.4729E-01, 0.4803E-01, 0.4873E-01, 0.4947E-01,& - 0.5021E-01, 0.5099E-01, 0.5173E-01, 0.5252E-01,& - 0.5331E-01, 0.5409E-01, 0.5493E-01, 0.5576E-01,& - 0.5659E-01, 0.5743E-01, 0.5826E-01, 0.5914E-01,& - 0.6002E-01, 0.6089E-01, 0.6182E-01, 0.6270E-01,& - 0.6362E-01, 0.6455E-01, 0.6552E-01, 0.6649E-01,& - 0.6746E-01, 0.6844E-01, 0.6945E-01, 0.7043E-01,& - 0.7149E-01, 0.7251E-01, 0.7357E-01, 0.7464E-01,& - 0.7570E-01, 0.7681E-01, 0.7792E-01, 0.7903E-01,& - 0.8014E-01, 0.8130E-01, 0.8245E-01, 0.8366E-01,& - 0.8486E-01, 0.8606E-01, 0.8727E-01, 0.8852E-01,& - 0.8976E-01, 0.9106E-01, 0.9236E-01, 0.9365E-01,& - 0.9495E-01, 0.9629E-01, 0.9763E-01, 0.9902E-01,& - 0.1004E+00, 0.1018E+00, 0.1032E+00, 0.1047E+00,& - 0.1061E+00, 0.1076E+00, 0.1091E+00, 0.1106E+00,& - 0.1122E+00, 0.1137E+00, 0.1153E+00, 0.1169E+00,& - 0.1185E+00, 0.1201E+00, 0.1218E+00, 0.1234E+00,& - 0.1252E+00, 0.1269E+00, 0.1286E+00, 0.1303E+00,& - 0.1321E+00, 0.1339E+00, 0.1358E+00, 0.1376E+00,& - 0.1395E+00, 0.1413E+00, 0.1432E+00, 0.1452E+00,& - 0.1471E+00, 0.1491E+00, 0.1511E+00, 0.1531E+00,& - 0.1552E+00, 0.1573E+00, 0.1594E+00, 0.1615E+00,& - 0.1637E+00, 0.1659E+00, 0.1681E+00, 0.1703E+00,& - 0.1726E+00, 0.1748E+00, 0.1772E+00, 0.1795E+00,& - 0.1819E+00, 0.1843E+00, 0.1867E+00, 0.1892E+00,& - 0.1917E+00, 0.1942E+00, 0.1967E+00, 0.1993E+00,& - 0.2019E+00, 0.2045E+00, 0.2072E+00, 0.2099E+00,& - 0.2126E+00, 0.2154E+00, 0.2182E+00, 0.2211E+00,& - 0.2239E+00, 0.2268E+00, 0.2298E+00, 0.2327E+00,& - 0.2357E+00, 0.2388E+00, 0.2418E+00, 0.2449E+00,& - 0.2481E+00, 0.2513E+00, 0.2545E+00, 0.2578E+00,& - 0.2610E+00, 0.2644E+00, 0.2677E+00, 0.2712E+00,& - 0.2746E+00, 0.2781E+00, 0.2817E+00, 0.2852E+00,& - 0.2888E+00, 0.2925E+00, 0.2962E+00, 0.2999E+00,& - 0.3037E+00, 0.3076E+00, 0.3115E+00, 0.3154E+00,& - 0.3193E+00, 0.3234E+00, 0.3274E+00, 0.3315E+00,& - 0.3357E+00, 0.3399E+00, 0.3441E+00, 0.3484E+00,& - 0.3528E+00, 0.3572E+00, 0.3616E+00, 0.3661E+00,& - 0.3707E+00, 0.3753E+00, 0.3799E+00, 0.3847E+00,& - 0.3894E+00, 0.3942E+00, 0.3991E+00, 0.4040E+00,& - 0.4090E+00, 0.4141E+00, 0.4192E+00, 0.4244E+00,& - 0.4296E+00, 0.4349E+00, 0.4402E+00, 0.4456E+00,& - 0.4510E+00, 0.4566E+00, 0.4622E+00, 0.4678E+00,& - 0.4736E+00, 0.4794E+00, 0.4852E+00, 0.4911E+00,& - 0.4971E+00, 0.5032E+00, 0.5093E+00, 0.5155E+00,& - 0.5218E+00, 0.5281E+00, 0.5345E+00, 0.5410E+00,& - 0.5476E+00, 0.5542E+00, 0.5609E+00, 0.5677E+00,& - 0.5746E+00, 0.5815E+00, 0.5885E+00, 0.5957E+00,& - 0.6028E+00, 0.6102E+00, 0.6175E+00, 0.6250E+00,& - 0.6325E+00, 0.6401E+00, 0.6478E+00, 0.6556E+00,& - 0.6635E+00, 0.6715E+00, 0.6795E+00, 0.6876E+00,& - 0.6959E+00, 0.7043E+00, 0.7127E+00, 0.7212E+00,& - 0.7299E+00, 0.7386E+00, 0.7475E+00, 0.7564E+00,& - 0.7655E+00, 0.7746E+00, 0.7839E+00, 0.7933E+00,& - 0.8028E+00, 0.8123E+00, 0.8220E+00, 0.8319E+00,& - 0.8418E+00, 0.8518E+00, 0.8620E+00, 0.8723E+00,& - 0.8827E+00, 0.8932E+00, 0.9039E+00, 0.9147E+00,& - 0.9255E+00, 0.9366E+00, 0.9478E+00, 0.9590E+00,& - 0.9705E+00, 0.9820E+00, 0.9937E+00, 0.1006E+01,& - 0.1018E+01, 0.1030E+01, 0.1042E+01, 0.1054E+01,& - 0.1067E+01, 0.1080E+01, 0.1093E+01, 0.1106E+01,& - 0.1119E+01, 0.1132E+01, 0.1146E+01, 0.1159E+01,& - 0.1173E+01, 0.1187E+01, 0.1201E+01, 0.1216E+01,& - 0.1230E+01, 0.1245E+01, 0.1260E+01, 0.1275E+01,& - 0.1290E+01, 0.1306E+01, 0.1321E+01, 0.1337E+01,& - 0.1353E+01, 0.1369E+01, 0.1386E+01, 0.1402E+01,& - 0.1419E+01, 0.1436E+01, 0.1453E+01, 0.1471E+01,& - 0.1489E+01, 0.1507E+01, 0.1525E+01, 0.1543E+01,& - 0.1562E+01, 0.1581E+01, 0.1600E+01, 0.1619E+01,& - 0.1639E+01, 0.1659E+01, 0.1679E+01, 0.1699E+01,& - 0.1720E+01, 0.1741E+01, 0.1762E+01, 0.1783E+01,& - 0.1805E+01, 0.1827E+01, 0.1850E+01, 0.1872E+01,& - 0.1895E+01, 0.1919E+01, 0.1942E+01, 0.1966E+01,& - 0.1990E+01, 0.2015E+01, 0.2040E+01, 0.2065E+01,& - 0.2091E+01, 0.2116E+01, 0.2143E+01, 0.2170E+01,& - 0.2197E+01, 0.2224E+01, 0.2252E+01, 0.2280E+01,& - 0.2309E+01, 0.2338E+01, 0.2368E+01, 0.2398E+01,& - 0.2428E+01, 0.2459E+01, 0.2490E+01, 0.2521E+01,& - 0.2554E+01, 0.2587E+01, 0.2620E+01, 0.2654E+01,& - 0.2688E+01, 0.2723E+01, 0.2758E+01, 0.2794E+01,& - 0.2831E+01, 0.2868E+01, 0.2905E+01, 0.2943E+01,& - 0.2982E+01, 0.3022E+01, 0.3062E+01, 0.3103E+01,& - 0.3144E+01, 0.3186E+01, 0.3229E+01, 0.3272E+01,& - 0.3317E+01, 0.3362E+01, 0.3408E+01, 0.3454E+01,& - 0.3502E+01, 0.3550E+01, 0.3599E+01, 0.3649E+01,& - 0.3700E+01, 0.3752E+01, 0.3805E+01, 0.3859E+01,& - 0.3914E+01, 0.3970E+01, 0.4027E+01, 0.4085E+01,& - 0.4144E+01, 0.4205E+01, 0.4266E+01, 0.4329E+01,& - 0.4393E+01, 0.4459E+01, 0.4526E+01, 0.4594E+01,& - 0.4664E+01, 0.4735E+01, 0.4808E+01, 0.4883E+01,& - 0.4959E+01, 0.5037E+01, 0.5116E+01, 0.5198E+01,& - 0.5281E+01, 0.5367E+01, 0.5455E+01, 0.5545E+01,& - 0.5637E+01, 0.5731E+01, 0.5828E+01, 0.5928E+01,& - 0.6030E+01, 0.6135E+01, 0.6243E+01, 0.6354E+01,& - 0.6468E+01, 0.6585E+01, 0.6707E+01, 0.6832E+01,& - 0.6960E+01, 0.7093E+01, 0.7231E+01, 0.7373E+01,& - 0.7520E+01, 0.7669E+01, 0.7829E+01, 0.7993E+01,& - 0.8163E+01, 0.8339E+01, 0.8523E+01, 0.8714E+01,& - 0.8914E+01, 0.9122E+01, 0.9340E+01, 0.9569E+01,& - 0.9809E+01, 0.1006E+02, 0.1033E+02, 0.1061E+02,& - 0.1091E+02, 0.1122E+02, 0.1156E+02, 0.1192E+02,& - 0.1230E+02, 0.1272E+02, 0.1317E+02, 0.1366E+02,& - 0.1420E+02, 0.1480E+02, 0.1546E+02, 0.1621E+02,& - 0.1707E+02, 0.1808E+02, 0.1928E+02, 0.2077E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,116) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.5697E-04, 0.5697E-04,& - 0.5697E-04, 0.5697E-04, 0.5697E-04, 0.5697E-04,& - 0.5697E-04, 0.5697E-04, 0.5697E-04, 0.5697E-04,& - 0.5697E-04, 0.5697E-04, 0.5697E-04, 0.5697E-04,& - 0.5697E-04, 0.5697E-04, 0.5697E-04, 0.5697E-04,& - 0.5697E-04, 0.1039E-03, 0.1039E-03, 0.1039E-03,& - 0.1039E-03, 0.1039E-03, 0.1039E-03, 0.1039E-03,& - 0.1039E-03, 0.1039E-03, 0.1039E-03, 0.1039E-03,& - 0.1039E-03, 0.1039E-03, 0.1509E-03, 0.1509E-03,& - 0.1509E-03, 0.1509E-03, 0.1509E-03, 0.1509E-03,& - 0.1509E-03, 0.1509E-03, 0.1509E-03, 0.1979E-03,& - 0.1979E-03, 0.1979E-03, 0.1979E-03, 0.1979E-03,& - 0.1979E-03, 0.1979E-03, 0.1979E-03, 0.2449E-03,& - 0.2449E-03, 0.2449E-03, 0.2449E-03, 0.2449E-03,& - 0.2449E-03, 0.2918E-03, 0.2918E-03, 0.2918E-03,& - 0.2918E-03, 0.2918E-03, 0.2918E-03, 0.3388E-03,& - 0.3388E-03, 0.3388E-03, 0.3388E-03, 0.3388E-03,& - 0.3858E-03, 0.3858E-03, 0.3858E-03, 0.3858E-03,& - 0.4327E-03, 0.4327E-03, 0.4327E-03, 0.4327E-03,& - 0.4797E-03, 0.4797E-03, 0.4797E-03, 0.4797E-03,& - 0.5267E-03, 0.5267E-03, 0.5267E-03, 0.5267E-03,& - 0.5737E-03, 0.5737E-03, 0.5737E-03, 0.6206E-03,& - 0.6206E-03, 0.6206E-03, 0.6676E-03, 0.6676E-03,& - 0.6676E-03, 0.7146E-03, 0.7146E-03, 0.7615E-03,& - 0.7615E-03, 0.7615E-03, 0.8085E-03, 0.8085E-03,& - 0.8555E-03, 0.8555E-03, 0.9025E-03, 0.9025E-03,& - 0.9494E-03, 0.9494E-03, 0.9964E-03, 0.9964E-03,& - 0.1043E-02, 0.1043E-02, 0.1090E-02, 0.1090E-02,& - 0.1137E-02, 0.1137E-02, 0.1184E-02, 0.1184E-02,& - 0.1231E-02, 0.1278E-02, 0.1278E-02, 0.1325E-02,& - 0.1372E-02, 0.1372E-02, 0.1419E-02, 0.1466E-02,& - 0.1466E-02, 0.1513E-02, 0.1560E-02, 0.1607E-02,& - 0.1607E-02, 0.1654E-02, 0.1701E-02, 0.1748E-02,& - 0.1795E-02, 0.1795E-02, 0.1842E-02, 0.1889E-02,& - 0.1936E-02, 0.1983E-02, 0.2030E-02, 0.2077E-02,& - 0.2124E-02, 0.2171E-02, 0.2218E-02, 0.2265E-02,& - 0.2312E-02, 0.2359E-02, 0.2406E-02, 0.2453E-02,& - 0.2499E-02, 0.2546E-02, 0.2640E-02, 0.2687E-02,& - 0.2734E-02, 0.2781E-02, 0.2828E-02, 0.2922E-02,& - 0.2969E-02, 0.3016E-02, 0.3110E-02, 0.3157E-02,& - 0.3251E-02, 0.3298E-02, 0.3345E-02, 0.3439E-02,& - 0.3486E-02, 0.3580E-02, 0.3674E-02, 0.3721E-02,& - 0.3815E-02, 0.3862E-02, 0.3956E-02, 0.4050E-02,& - 0.4143E-02, 0.4190E-02, 0.4284E-02, 0.4378E-02,& - 0.4472E-02, 0.4566E-02, 0.4660E-02, 0.4754E-02,& - 0.4848E-02, 0.4942E-02, 0.5036E-02, 0.5130E-02,& - 0.5224E-02, 0.5318E-02, 0.5459E-02, 0.5553E-02,& - 0.5647E-02, 0.5741E-02, 0.5881E-02, 0.5975E-02,& - 0.6116E-02, 0.6210E-02, 0.6351E-02, 0.6445E-02,& - 0.6586E-02, 0.6727E-02, 0.6821E-02, 0.6962E-02,& - 0.7103E-02, 0.7244E-02, 0.7385E-02, 0.7525E-02,& - 0.7666E-02, 0.7807E-02, 0.7948E-02, 0.8089E-02,& - 0.8230E-02, 0.8418E-02, 0.8559E-02, 0.8700E-02,& - 0.8888E-02, 0.9029E-02, 0.9216E-02, 0.9357E-02,& - 0.9545E-02, 0.9733E-02, 0.9921E-02, 0.1011E-01,& - 0.1025E-01, 0.1044E-01, 0.1063E-01, 0.1086E-01,& - 0.1105E-01, 0.1124E-01, 0.1142E-01, 0.1166E-01,& - 0.1185E-01, 0.1208E-01, 0.1227E-01, 0.1250E-01,& - 0.1274E-01, 0.1293E-01, 0.1316E-01, 0.1340E-01,& - 0.1363E-01, 0.1387E-01, 0.1415E-01, 0.1438E-01,& - 0.1462E-01, 0.1490E-01, 0.1513E-01, 0.1542E-01,& - 0.1570E-01, 0.1593E-01, 0.1622E-01, 0.1650E-01,& - 0.1678E-01, 0.1706E-01, 0.1739E-01, 0.1767E-01,& - 0.1795E-01, 0.1828E-01, 0.1861E-01, 0.1889E-01,& - 0.1922E-01, 0.1955E-01, 0.1988E-01, 0.2021E-01,& - 0.2054E-01, 0.2091E-01, 0.2124E-01, 0.2162E-01,& - 0.2199E-01, 0.2232E-01, 0.2270E-01, 0.2307E-01,& - 0.2345E-01, 0.2387E-01, 0.2425E-01, 0.2467E-01,& - 0.2505E-01, 0.2547E-01, 0.2589E-01, 0.2631E-01,& - 0.2674E-01, 0.2721E-01, 0.2763E-01, 0.2810E-01,& - 0.2852E-01, 0.2899E-01, 0.2946E-01, 0.2993E-01,& - 0.3040E-01, 0.3092E-01, 0.3139E-01, 0.3190E-01,& - 0.3242E-01, 0.3294E-01, 0.3345E-01, 0.3402E-01,& - 0.3453E-01, 0.3510E-01, 0.3566E-01, 0.3622E-01,& - 0.3679E-01, 0.3735E-01, 0.3796E-01, 0.3853E-01,& - 0.3914E-01, 0.3975E-01, 0.4036E-01, 0.4102E-01,& - 0.4163E-01, 0.4228E-01, 0.4294E-01, 0.4360E-01,& - 0.4430E-01, 0.4496E-01, 0.4567E-01, 0.4637E-01,& - 0.4708E-01, 0.4783E-01, 0.4853E-01, 0.4928E-01,& - 0.5003E-01, 0.5079E-01, 0.5158E-01, 0.5234E-01,& - 0.5313E-01, 0.5393E-01, 0.5478E-01, 0.5558E-01,& - 0.5642E-01, 0.5727E-01, 0.5816E-01, 0.5901E-01,& - 0.5990E-01, 0.6079E-01, 0.6168E-01, 0.6262E-01,& - 0.6356E-01, 0.6450E-01, 0.6544E-01, 0.6643E-01,& - 0.6741E-01, 0.6840E-01, 0.6939E-01, 0.7042E-01,& - 0.7145E-01, 0.7249E-01, 0.7357E-01, 0.7465E-01,& - 0.7573E-01, 0.7686E-01, 0.7794E-01, 0.7911E-01,& - 0.8024E-01, 0.8141E-01, 0.8259E-01, 0.8376E-01,& - 0.8498E-01, 0.8620E-01, 0.8742E-01, 0.8869E-01,& - 0.8996E-01, 0.9128E-01, 0.9254E-01, 0.9391E-01,& - 0.9522E-01, 0.9658E-01, 0.9795E-01, 0.9935E-01,& - 0.1008E+00, 0.1022E+00, 0.1036E+00, 0.1051E+00,& - 0.1065E+00, 0.1080E+00, 0.1096E+00, 0.1111E+00,& - 0.1127E+00, 0.1142E+00, 0.1158E+00, 0.1174E+00,& - 0.1191E+00, 0.1208E+00, 0.1224E+00, 0.1241E+00,& - 0.1258E+00, 0.1276E+00, 0.1294E+00, 0.1312E+00,& - 0.1329E+00, 0.1348E+00, 0.1366E+00, 0.1385E+00,& - 0.1404E+00, 0.1423E+00, 0.1443E+00, 0.1462E+00,& - 0.1483E+00, 0.1503E+00, 0.1523E+00, 0.1544E+00,& - 0.1565E+00, 0.1586E+00, 0.1607E+00, 0.1629E+00,& - 0.1651E+00, 0.1673E+00, 0.1696E+00, 0.1718E+00,& - 0.1742E+00, 0.1765E+00, 0.1789E+00, 0.1812E+00,& - 0.1837E+00, 0.1861E+00, 0.1886E+00, 0.1911E+00,& - 0.1937E+00, 0.1962E+00, 0.1988E+00, 0.2015E+00,& - 0.2041E+00, 0.2068E+00, 0.2095E+00, 0.2123E+00,& - 0.2151E+00, 0.2180E+00, 0.2208E+00, 0.2237E+00,& - 0.2266E+00, 0.2296E+00, 0.2326E+00, 0.2356E+00,& - 0.2387E+00, 0.2418E+00, 0.2450E+00, 0.2482E+00,& - 0.2514E+00, 0.2546E+00, 0.2579E+00, 0.2613E+00,& - 0.2646E+00, 0.2681E+00, 0.2716E+00, 0.2750E+00,& - 0.2786E+00, 0.2822E+00, 0.2858E+00, 0.2894E+00,& - 0.2932E+00, 0.2969E+00, 0.3007E+00, 0.3046E+00,& - 0.3085E+00, 0.3124E+00, 0.3164E+00, 0.3204E+00,& - 0.3245E+00, 0.3286E+00, 0.3328E+00, 0.3370E+00,& - 0.3413E+00, 0.3456E+00, 0.3499E+00, 0.3544E+00,& - 0.3589E+00, 0.3634E+00, 0.3680E+00, 0.3726E+00,& - 0.3773E+00, 0.3820E+00, 0.3868E+00, 0.3917E+00,& - 0.3966E+00, 0.4016E+00, 0.4066E+00, 0.4117E+00,& - 0.4168E+00, 0.4220E+00, 0.4273E+00, 0.4326E+00,& - 0.4380E+00, 0.4435E+00, 0.4490E+00, 0.4546E+00,& - 0.4602E+00, 0.4659E+00, 0.4717E+00, 0.4775E+00,& - 0.4834E+00, 0.4894E+00, 0.4955E+00, 0.5016E+00,& - 0.5078E+00, 0.5140E+00, 0.5204E+00, 0.5267E+00,& - 0.5332E+00, 0.5398E+00, 0.5464E+00, 0.5531E+00,& - 0.5600E+00, 0.5668E+00, 0.5738E+00, 0.5808E+00,& - 0.5879E+00, 0.5951E+00, 0.6024E+00, 0.6097E+00,& - 0.6172E+00, 0.6247E+00, 0.6324E+00, 0.6401E+00,& - 0.6479E+00, 0.6558E+00, 0.6638E+00, 0.6719E+00,& - 0.6801E+00, 0.6883E+00, 0.6967E+00, 0.7052E+00,& - 0.7137E+00, 0.7224E+00, 0.7312E+00, 0.7401E+00,& - 0.7491E+00, 0.7581E+00, 0.7673E+00, 0.7766E+00,& - 0.7860E+00, 0.7956E+00, 0.8052E+00, 0.8150E+00,& - 0.8248E+00, 0.8348E+00, 0.8447E+00, 0.8551E+00,& - 0.8655E+00, 0.8759E+00, 0.8865E+00, 0.8973E+00,& - 0.9081E+00, 0.9191E+00, 0.9302E+00, 0.9414E+00,& - 0.9528E+00, 0.9643E+00, 0.9759E+00, 0.9877E+00,& - 0.9997E+00, 0.1012E+01, 0.1024E+01, 0.1036E+01,& - 0.1049E+01, 0.1062E+01, 0.1074E+01, 0.1087E+01,& - 0.1101E+01, 0.1114E+01, 0.1127E+01, 0.1141E+01,& - 0.1155E+01, 0.1169E+01, 0.1183E+01, 0.1197E+01,& - 0.1212E+01, 0.1226E+01, 0.1241E+01, 0.1256E+01,& - 0.1271E+01, 0.1287E+01, 0.1302E+01, 0.1318E+01,& - 0.1334E+01, 0.1350E+01, 0.1367E+01, 0.1383E+01,& - 0.1400E+01, 0.1417E+01, 0.1435E+01, 0.1452E+01,& - 0.1470E+01, 0.1488E+01, 0.1506E+01, 0.1524E+01,& - 0.1543E+01, 0.1562E+01, 0.1581E+01, 0.1600E+01,& - 0.1620E+01, 0.1640E+01, 0.1660E+01, 0.1680E+01,& - 0.1701E+01, 0.1722E+01, 0.1743E+01, 0.1765E+01,& - 0.1787E+01, 0.1809E+01, 0.1831E+01, 0.1854E+01,& - 0.1877E+01, 0.1900E+01, 0.1924E+01, 0.1948E+01,& - 0.1972E+01, 0.1997E+01, 0.2022E+01, 0.2047E+01,& - 0.2073E+01, 0.2099E+01, 0.2125E+01, 0.2152E+01,& - 0.2179E+01, 0.2207E+01, 0.2235E+01, 0.2263E+01,& - 0.2292E+01, 0.2321E+01, 0.2351E+01, 0.2381E+01,& - 0.2411E+01, 0.2442E+01, 0.2474E+01, 0.2506E+01,& - 0.2538E+01, 0.2571E+01, 0.2605E+01, 0.2638E+01,& - 0.2673E+01, 0.2708E+01, 0.2743E+01, 0.2779E+01,& - 0.2816E+01, 0.2853E+01, 0.2891E+01, 0.2930E+01,& - 0.2969E+01, 0.3008E+01, 0.3049E+01, 0.3090E+01,& - 0.3131E+01, 0.3174E+01, 0.3217E+01, 0.3261E+01,& - 0.3305E+01, 0.3351E+01, 0.3397E+01, 0.3444E+01,& - 0.3492E+01, 0.3540E+01, 0.3590E+01, 0.3640E+01,& - 0.3692E+01, 0.3744E+01, 0.3797E+01, 0.3852E+01,& - 0.3907E+01, 0.3963E+01, 0.4021E+01, 0.4080E+01,& - 0.4139E+01, 0.4200E+01, 0.4262E+01, 0.4326E+01,& - 0.4391E+01, 0.4457E+01, 0.4524E+01, 0.4593E+01,& - 0.4664E+01, 0.4736E+01, 0.4809E+01, 0.4884E+01,& - 0.4961E+01, 0.5040E+01, 0.5121E+01, 0.5203E+01,& - 0.5287E+01, 0.5374E+01, 0.5462E+01, 0.5553E+01,& - 0.5646E+01, 0.5742E+01, 0.5839E+01, 0.5940E+01,& - 0.6043E+01, 0.6150E+01, 0.6259E+01, 0.6371E+01,& - 0.6486E+01, 0.6605E+01, 0.6728E+01, 0.6854E+01,& - 0.6985E+01, 0.7119E+01, 0.7258E+01, 0.7402E+01,& - 0.7550E+01, 0.7704E+01, 0.7864E+01, 0.8029E+01,& - 0.8201E+01, 0.8380E+01, 0.8566E+01, 0.8760E+01,& - 0.8962E+01, 0.9173E+01, 0.9394E+01, 0.9625E+01,& - 0.9868E+01, 0.1012E+02, 0.1039E+02, 0.1068E+02,& - 0.1098E+02, 0.1130E+02, 0.1164E+02, 0.1201E+02,& - 0.1240E+02, 0.1282E+02, 0.1328E+02, 0.1377E+02,& - 0.1431E+02, 0.1493E+02, 0.1560E+02, 0.1636E+02,& - 0.1724E+02, 0.1825E+02, 0.1948E+02, 0.2099E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,117) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.5768E-04, 0.5768E-04, 0.5768E-04, 0.5768E-04,& - 0.5768E-04, 0.5768E-04, 0.5768E-04, 0.5768E-04,& - 0.5768E-04, 0.5768E-04, 0.5768E-04, 0.5768E-04,& - 0.5768E-04, 0.5768E-04, 0.5768E-04, 0.5768E-04,& - 0.5768E-04, 0.5768E-04, 0.5768E-04, 0.1054E-03,& - 0.1054E-03, 0.1054E-03, 0.1054E-03, 0.1054E-03,& - 0.1054E-03, 0.1054E-03, 0.1054E-03, 0.1054E-03,& - 0.1054E-03, 0.1054E-03, 0.1054E-03, 0.1054E-03,& - 0.1531E-03, 0.1531E-03, 0.1531E-03, 0.1531E-03,& - 0.1531E-03, 0.1531E-03, 0.1531E-03, 0.1531E-03,& - 0.1531E-03, 0.2007E-03, 0.2007E-03, 0.2007E-03,& - 0.2007E-03, 0.2007E-03, 0.2007E-03, 0.2007E-03,& - 0.2007E-03, 0.2484E-03, 0.2484E-03, 0.2484E-03,& - 0.2484E-03, 0.2484E-03, 0.2484E-03, 0.2484E-03,& - 0.2961E-03, 0.2961E-03, 0.2961E-03, 0.2961E-03,& - 0.2961E-03, 0.3438E-03, 0.3438E-03, 0.3438E-03,& - 0.3438E-03, 0.3438E-03, 0.3915E-03, 0.3915E-03,& - 0.3915E-03, 0.3915E-03, 0.3915E-03, 0.4392E-03,& - 0.4392E-03, 0.4392E-03, 0.4392E-03, 0.4868E-03,& - 0.4868E-03, 0.4868E-03, 0.5345E-03, 0.5345E-03,& - 0.5345E-03, 0.5345E-03, 0.5822E-03, 0.5822E-03,& - 0.5822E-03, 0.6299E-03, 0.6299E-03, 0.6299E-03,& - 0.6776E-03, 0.6776E-03, 0.6776E-03, 0.7253E-03,& - 0.7253E-03, 0.7729E-03, 0.7729E-03, 0.7729E-03,& - 0.8206E-03, 0.8206E-03, 0.8683E-03, 0.8683E-03,& - 0.9160E-03, 0.9160E-03, 0.9160E-03, 0.9637E-03,& - 0.9637E-03, 0.1011E-02, 0.1011E-02, 0.1059E-02,& - 0.1107E-02, 0.1107E-02, 0.1154E-02, 0.1154E-02,& - 0.1202E-02, 0.1202E-02, 0.1250E-02, 0.1297E-02,& - 0.1297E-02, 0.1345E-02, 0.1393E-02, 0.1393E-02,& - 0.1441E-02, 0.1488E-02, 0.1488E-02, 0.1536E-02,& - 0.1584E-02, 0.1584E-02, 0.1631E-02, 0.1679E-02,& - 0.1727E-02, 0.1774E-02, 0.1774E-02, 0.1822E-02,& - 0.1870E-02, 0.1917E-02, 0.1965E-02, 0.2013E-02,& - 0.2060E-02, 0.2108E-02, 0.2156E-02, 0.2203E-02,& - 0.2251E-02, 0.2299E-02, 0.2347E-02, 0.2394E-02,& - 0.2442E-02, 0.2490E-02, 0.2537E-02, 0.2585E-02,& - 0.2680E-02, 0.2728E-02, 0.2776E-02, 0.2823E-02,& - 0.2871E-02, 0.2966E-02, 0.3014E-02, 0.3062E-02,& - 0.3157E-02, 0.3205E-02, 0.3300E-02, 0.3348E-02,& - 0.3396E-02, 0.3491E-02, 0.3539E-02, 0.3634E-02,& - 0.3729E-02, 0.3777E-02, 0.3872E-02, 0.3920E-02,& - 0.4015E-02, 0.4111E-02, 0.4206E-02, 0.4254E-02,& - 0.4349E-02, 0.4445E-02, 0.4540E-02, 0.4635E-02,& - 0.4731E-02, 0.4826E-02, 0.4921E-02, 0.5017E-02,& - 0.5112E-02, 0.5208E-02, 0.5303E-02, 0.5398E-02,& - 0.5541E-02, 0.5637E-02, 0.5732E-02, 0.5875E-02,& - 0.5970E-02, 0.6066E-02, 0.6209E-02, 0.6304E-02,& - 0.6447E-02, 0.6590E-02, 0.6686E-02, 0.6829E-02,& - 0.6972E-02, 0.7067E-02, 0.7210E-02, 0.7353E-02,& - 0.7496E-02, 0.7639E-02, 0.7782E-02, 0.7925E-02,& - 0.8069E-02, 0.8259E-02, 0.8402E-02, 0.8545E-02,& - 0.8688E-02, 0.8879E-02, 0.9022E-02, 0.9213E-02,& - 0.9356E-02, 0.9547E-02, 0.9737E-02, 0.9928E-02,& - 0.1007E-01, 0.1026E-01, 0.1045E-01, 0.1064E-01,& - 0.1083E-01, 0.1102E-01, 0.1126E-01, 0.1145E-01,& - 0.1164E-01, 0.1188E-01, 0.1207E-01, 0.1231E-01,& - 0.1250E-01, 0.1274E-01, 0.1298E-01, 0.1322E-01,& - 0.1346E-01, 0.1370E-01, 0.1393E-01, 0.1417E-01,& - 0.1441E-01, 0.1465E-01, 0.1494E-01, 0.1517E-01,& - 0.1546E-01, 0.1575E-01, 0.1598E-01, 0.1627E-01,& - 0.1656E-01, 0.1684E-01, 0.1713E-01, 0.1746E-01,& - 0.1775E-01, 0.1803E-01, 0.1837E-01, 0.1865E-01,& - 0.1899E-01, 0.1932E-01, 0.1966E-01, 0.1999E-01,& - 0.2032E-01, 0.2066E-01, 0.2104E-01, 0.2137E-01,& - 0.2175E-01, 0.2209E-01, 0.2247E-01, 0.2285E-01,& - 0.2323E-01, 0.2361E-01, 0.2399E-01, 0.2442E-01,& - 0.2481E-01, 0.2523E-01, 0.2566E-01, 0.2609E-01,& - 0.2652E-01, 0.2695E-01, 0.2738E-01, 0.2786E-01,& - 0.2829E-01, 0.2876E-01, 0.2924E-01, 0.2972E-01,& - 0.3019E-01, 0.3067E-01, 0.3120E-01, 0.3167E-01,& - 0.3220E-01, 0.3272E-01, 0.3325E-01, 0.3377E-01,& - 0.3429E-01, 0.3487E-01, 0.3544E-01, 0.3601E-01,& - 0.3658E-01, 0.3716E-01, 0.3773E-01, 0.3835E-01,& - 0.3892E-01, 0.3954E-01, 0.4016E-01, 0.4083E-01,& - 0.4145E-01, 0.4211E-01, 0.4278E-01, 0.4345E-01,& - 0.4412E-01, 0.4479E-01, 0.4550E-01, 0.4622E-01,& - 0.4693E-01, 0.4765E-01, 0.4841E-01, 0.4912E-01,& - 0.4989E-01, 0.5065E-01, 0.5141E-01, 0.5222E-01,& - 0.5303E-01, 0.5384E-01, 0.5466E-01, 0.5551E-01,& - 0.5632E-01, 0.5718E-01, 0.5804E-01, 0.5895E-01,& - 0.5985E-01, 0.6071E-01, 0.6167E-01, 0.6257E-01,& - 0.6352E-01, 0.6448E-01, 0.6543E-01, 0.6643E-01,& - 0.6739E-01, 0.6839E-01, 0.6944E-01, 0.7044E-01,& - 0.7149E-01, 0.7258E-01, 0.7363E-01, 0.7473E-01,& - 0.7583E-01, 0.7692E-01, 0.7807E-01, 0.7921E-01,& - 0.8040E-01, 0.8155E-01, 0.8274E-01, 0.8398E-01,& - 0.8517E-01, 0.8641E-01, 0.8770E-01, 0.8894E-01,& - 0.9023E-01, 0.9156E-01, 0.9285E-01, 0.9423E-01,& - 0.9557E-01, 0.9695E-01, 0.9833E-01, 0.9976E-01,& - 0.1012E+00, 0.1026E+00, 0.1041E+00, 0.1056E+00,& - 0.1071E+00, 0.1086E+00, 0.1102E+00, 0.1117E+00,& - 0.1133E+00, 0.1149E+00, 0.1165E+00, 0.1181E+00,& - 0.1198E+00, 0.1215E+00, 0.1232E+00, 0.1249E+00,& - 0.1267E+00, 0.1285E+00, 0.1302E+00, 0.1320E+00,& - 0.1339E+00, 0.1358E+00, 0.1376E+00, 0.1395E+00,& - 0.1415E+00, 0.1434E+00, 0.1454E+00, 0.1474E+00,& - 0.1495E+00, 0.1515E+00, 0.1536E+00, 0.1557E+00,& - 0.1578E+00, 0.1600E+00, 0.1622E+00, 0.1644E+00,& - 0.1667E+00, 0.1689E+00, 0.1712E+00, 0.1736E+00,& - 0.1759E+00, 0.1783E+00, 0.1807E+00, 0.1832E+00,& - 0.1856E+00, 0.1881E+00, 0.1906E+00, 0.1932E+00,& - 0.1958E+00, 0.1985E+00, 0.2011E+00, 0.2038E+00,& - 0.2065E+00, 0.2093E+00, 0.2121E+00, 0.2149E+00,& - 0.2178E+00, 0.2207E+00, 0.2236E+00, 0.2266E+00,& - 0.2296E+00, 0.2326E+00, 0.2357E+00, 0.2388E+00,& - 0.2420E+00, 0.2452E+00, 0.2483E+00, 0.2516E+00,& - 0.2549E+00, 0.2583E+00, 0.2617E+00, 0.2651E+00,& - 0.2686E+00, 0.2720E+00, 0.2756E+00, 0.2792E+00,& - 0.2828E+00, 0.2865E+00, 0.2903E+00, 0.2940E+00,& - 0.2978E+00, 0.3017E+00, 0.3056E+00, 0.3095E+00,& - 0.3135E+00, 0.3176E+00, 0.3217E+00, 0.3258E+00,& - 0.3300E+00, 0.3343E+00, 0.3386E+00, 0.3429E+00,& - 0.3473E+00, 0.3517E+00, 0.3563E+00, 0.3608E+00,& - 0.3654E+00, 0.3701E+00, 0.3748E+00, 0.3796E+00,& - 0.3844E+00, 0.3893E+00, 0.3942E+00, 0.3992E+00,& - 0.4043E+00, 0.4094E+00, 0.4146E+00, 0.4198E+00,& - 0.4252E+00, 0.4305E+00, 0.4359E+00, 0.4414E+00,& - 0.4470E+00, 0.4526E+00, 0.4583E+00, 0.4641E+00,& - 0.4699E+00, 0.4758E+00, 0.4818E+00, 0.4878E+00,& - 0.4939E+00, 0.5001E+00, 0.5064E+00, 0.5127E+00,& - 0.5191E+00, 0.5256E+00, 0.5322E+00, 0.5388E+00,& - 0.5455E+00, 0.5523E+00, 0.5591E+00, 0.5661E+00,& - 0.5731E+00, 0.5803E+00, 0.5875E+00, 0.5947E+00,& - 0.6021E+00, 0.6096E+00, 0.6171E+00, 0.6248E+00,& - 0.6325E+00, 0.6403E+00, 0.6482E+00, 0.6562E+00,& - 0.6643E+00, 0.6725E+00, 0.6808E+00, 0.6892E+00,& - 0.6977E+00, 0.7063E+00, 0.7150E+00, 0.7238E+00,& - 0.7328E+00, 0.7418E+00, 0.7509E+00, 0.7601E+00,& - 0.7694E+00, 0.7789E+00, 0.7885E+00, 0.7981E+00,& - 0.8080E+00, 0.8179E+00, 0.8279E+00, 0.8381E+00,& - 0.8484E+00, 0.8587E+00, 0.8693E+00, 0.8799E+00,& - 0.8907E+00, 0.9016E+00, 0.9127E+00, 0.9238E+00,& - 0.9351E+00, 0.9466E+00, 0.9582E+00, 0.9699E+00,& - 0.9818E+00, 0.9938E+00, 0.1006E+01, 0.1018E+01,& - 0.1031E+01, 0.1043E+01, 0.1056E+01, 0.1069E+01,& - 0.1082E+01, 0.1095E+01, 0.1109E+01, 0.1122E+01,& - 0.1136E+01, 0.1150E+01, 0.1164E+01, 0.1179E+01,& - 0.1193E+01, 0.1208E+01, 0.1222E+01, 0.1237E+01,& - 0.1253E+01, 0.1268E+01, 0.1284E+01, 0.1299E+01,& - 0.1315E+01, 0.1332E+01, 0.1348E+01, 0.1365E+01,& - 0.1381E+01, 0.1398E+01, 0.1416E+01, 0.1433E+01,& - 0.1451E+01, 0.1469E+01, 0.1487E+01, 0.1505E+01,& - 0.1524E+01, 0.1543E+01, 0.1562E+01, 0.1581E+01,& - 0.1601E+01, 0.1621E+01, 0.1641E+01, 0.1662E+01,& - 0.1682E+01, 0.1703E+01, 0.1724E+01, 0.1746E+01,& - 0.1768E+01, 0.1790E+01, 0.1812E+01, 0.1835E+01,& - 0.1858E+01, 0.1882E+01, 0.1905E+01, 0.1929E+01,& - 0.1954E+01, 0.1978E+01, 0.2004E+01, 0.2029E+01,& - 0.2055E+01, 0.2081E+01, 0.2107E+01, 0.2134E+01,& - 0.2162E+01, 0.2189E+01, 0.2217E+01, 0.2246E+01,& - 0.2275E+01, 0.2304E+01, 0.2334E+01, 0.2364E+01,& - 0.2395E+01, 0.2426E+01, 0.2457E+01, 0.2489E+01,& - 0.2522E+01, 0.2555E+01, 0.2589E+01, 0.2623E+01,& - 0.2657E+01, 0.2692E+01, 0.2728E+01, 0.2764E+01,& - 0.2801E+01, 0.2839E+01, 0.2877E+01, 0.2915E+01,& - 0.2955E+01, 0.2994E+01, 0.3035E+01, 0.3076E+01,& - 0.3118E+01, 0.3161E+01, 0.3204E+01, 0.3249E+01,& - 0.3294E+01, 0.3339E+01, 0.3386E+01, 0.3433E+01,& - 0.3481E+01, 0.3530E+01, 0.3580E+01, 0.3631E+01,& - 0.3683E+01, 0.3735E+01, 0.3789E+01, 0.3844E+01,& - 0.3900E+01, 0.3957E+01, 0.4015E+01, 0.4074E+01,& - 0.4134E+01, 0.4195E+01, 0.4258E+01, 0.4322E+01,& - 0.4387E+01, 0.4454E+01, 0.4522E+01, 0.4592E+01,& - 0.4663E+01, 0.4736E+01, 0.4810E+01, 0.4886E+01,& - 0.4963E+01, 0.5043E+01, 0.5124E+01, 0.5207E+01,& - 0.5292E+01, 0.5380E+01, 0.5469E+01, 0.5561E+01,& - 0.5655E+01, 0.5751E+01, 0.5850E+01, 0.5952E+01,& - 0.6056E+01, 0.6164E+01, 0.6274E+01, 0.6387E+01,& - 0.6504E+01, 0.6625E+01, 0.6748E+01, 0.6876E+01,& - 0.7008E+01, 0.7144E+01, 0.7285E+01, 0.7430E+01,& - 0.7581E+01, 0.7736E+01, 0.7898E+01, 0.8065E+01,& - 0.8239E+01, 0.8420E+01, 0.8608E+01, 0.8804E+01,& - 0.9009E+01, 0.9223E+01, 0.9447E+01, 0.9681E+01,& - 0.9927E+01, 0.1019E+02, 0.1046E+02, 0.1075E+02,& - 0.1105E+02, 0.1138E+02, 0.1172E+02, 0.1209E+02,& - 0.1249E+02, 0.1292E+02, 0.1338E+02, 0.1389E+02,& - 0.1444E+02, 0.1505E+02, 0.1574E+02, 0.1651E+02,& - 0.1740E+02, 0.1843E+02, 0.1967E+02, 0.2121E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,118) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.5840E-04, 0.5840E-04,& - 0.5840E-04, 0.5840E-04, 0.5840E-04, 0.5840E-04,& - 0.5840E-04, 0.5840E-04, 0.5840E-04, 0.5840E-04,& - 0.5840E-04, 0.5840E-04, 0.5840E-04, 0.5840E-04,& - 0.5840E-04, 0.5840E-04, 0.5840E-04, 0.5840E-04,& - 0.5840E-04, 0.1068E-03, 0.1068E-03, 0.1068E-03,& - 0.1068E-03, 0.1068E-03, 0.1068E-03, 0.1068E-03,& - 0.1068E-03, 0.1068E-03, 0.1068E-03, 0.1068E-03,& - 0.1068E-03, 0.1068E-03, 0.1552E-03, 0.1552E-03,& - 0.1552E-03, 0.1552E-03, 0.1552E-03, 0.1552E-03,& - 0.1552E-03, 0.1552E-03, 0.1552E-03, 0.2036E-03,& - 0.2036E-03, 0.2036E-03, 0.2036E-03, 0.2036E-03,& - 0.2036E-03, 0.2036E-03, 0.2036E-03, 0.2520E-03,& - 0.2520E-03, 0.2520E-03, 0.2520E-03, 0.2520E-03,& - 0.2520E-03, 0.2520E-03, 0.3004E-03, 0.3004E-03,& - 0.3004E-03, 0.3004E-03, 0.3004E-03, 0.3488E-03,& - 0.3488E-03, 0.3488E-03, 0.3488E-03, 0.3488E-03,& - 0.3972E-03, 0.3972E-03, 0.3972E-03, 0.3972E-03,& - 0.3972E-03, 0.4456E-03, 0.4456E-03, 0.4456E-03,& - 0.4456E-03, 0.4940E-03, 0.4940E-03, 0.4940E-03,& - 0.5424E-03, 0.5424E-03, 0.5424E-03, 0.5424E-03,& - 0.5908E-03, 0.5908E-03, 0.5908E-03, 0.6392E-03,& - 0.6392E-03, 0.6392E-03, 0.6876E-03, 0.6876E-03,& - 0.6876E-03, 0.7360E-03, 0.7360E-03, 0.7844E-03,& - 0.7844E-03, 0.7844E-03, 0.8328E-03, 0.8328E-03,& - 0.8812E-03, 0.8812E-03, 0.9296E-03, 0.9296E-03,& - 0.9296E-03, 0.9780E-03, 0.9780E-03, 0.1026E-02,& - 0.1026E-02, 0.1075E-02, 0.1075E-02, 0.1123E-02,& - 0.1172E-02, 0.1172E-02, 0.1220E-02, 0.1220E-02,& - 0.1268E-02, 0.1317E-02, 0.1317E-02, 0.1365E-02,& - 0.1365E-02, 0.1414E-02, 0.1462E-02, 0.1510E-02,& - 0.1510E-02, 0.1559E-02, 0.1607E-02, 0.1607E-02,& - 0.1656E-02, 0.1704E-02, 0.1752E-02, 0.1801E-02,& - 0.1801E-02, 0.1849E-02, 0.1898E-02, 0.1946E-02,& - 0.1994E-02, 0.2043E-02, 0.2091E-02, 0.2140E-02,& - 0.2188E-02, 0.2236E-02, 0.2285E-02, 0.2333E-02,& - 0.2382E-02, 0.2430E-02, 0.2478E-02, 0.2527E-02,& - 0.2575E-02, 0.2624E-02, 0.2721E-02, 0.2769E-02,& - 0.2817E-02, 0.2866E-02, 0.2914E-02, 0.3011E-02,& - 0.3059E-02, 0.3108E-02, 0.3205E-02, 0.3253E-02,& - 0.3350E-02, 0.3398E-02, 0.3447E-02, 0.3543E-02,& - 0.3592E-02, 0.3689E-02, 0.3785E-02, 0.3834E-02,& - 0.3931E-02, 0.4027E-02, 0.4076E-02, 0.4173E-02,& - 0.4269E-02, 0.4318E-02, 0.4415E-02, 0.4511E-02,& - 0.4608E-02, 0.4705E-02, 0.4802E-02, 0.4899E-02,& - 0.4995E-02, 0.5092E-02, 0.5189E-02, 0.5286E-02,& - 0.5383E-02, 0.5528E-02, 0.5625E-02, 0.5721E-02,& - 0.5867E-02, 0.5963E-02, 0.6060E-02, 0.6205E-02,& - 0.6302E-02, 0.6447E-02, 0.6544E-02, 0.6689E-02,& - 0.6835E-02, 0.6931E-02, 0.7077E-02, 0.7222E-02,& - 0.7367E-02, 0.7512E-02, 0.7658E-02, 0.7803E-02,& - 0.7948E-02, 0.8093E-02, 0.8238E-02, 0.8384E-02,& - 0.8577E-02, 0.8722E-02, 0.8868E-02, 0.9061E-02,& - 0.9206E-02, 0.9400E-02, 0.9545E-02, 0.9739E-02,& - 0.9932E-02, 0.1013E-01, 0.1027E-01, 0.1046E-01,& - 0.1066E-01, 0.1085E-01, 0.1109E-01, 0.1129E-01,& - 0.1148E-01, 0.1167E-01, 0.1192E-01, 0.1211E-01,& - 0.1235E-01, 0.1255E-01, 0.1279E-01, 0.1303E-01,& - 0.1327E-01, 0.1347E-01, 0.1371E-01, 0.1395E-01,& - 0.1424E-01, 0.1448E-01, 0.1472E-01, 0.1501E-01,& - 0.1526E-01, 0.1555E-01, 0.1579E-01, 0.1608E-01,& - 0.1637E-01, 0.1666E-01, 0.1695E-01, 0.1724E-01,& - 0.1753E-01, 0.1782E-01, 0.1816E-01, 0.1845E-01,& - 0.1879E-01, 0.1913E-01, 0.1942E-01, 0.1976E-01,& - 0.2010E-01, 0.2044E-01, 0.2082E-01, 0.2116E-01,& - 0.2150E-01, 0.2189E-01, 0.2227E-01, 0.2261E-01,& - 0.2300E-01, 0.2339E-01, 0.2382E-01, 0.2421E-01,& - 0.2460E-01, 0.2503E-01, 0.2542E-01, 0.2586E-01,& - 0.2629E-01, 0.2673E-01, 0.2716E-01, 0.2765E-01,& - 0.2808E-01, 0.2857E-01, 0.2900E-01, 0.2949E-01,& - 0.2997E-01, 0.3045E-01, 0.3099E-01, 0.3147E-01,& - 0.3200E-01, 0.3249E-01, 0.3302E-01, 0.3355E-01,& - 0.3413E-01, 0.3467E-01, 0.3525E-01, 0.3578E-01,& - 0.3636E-01, 0.3694E-01, 0.3757E-01, 0.3815E-01,& - 0.3878E-01, 0.3936E-01, 0.3999E-01, 0.4067E-01,& - 0.4130E-01, 0.4193E-01, 0.4260E-01, 0.4328E-01,& - 0.4396E-01, 0.4468E-01, 0.4536E-01, 0.4609E-01,& - 0.4681E-01, 0.4754E-01, 0.4827E-01, 0.4904E-01,& - 0.4977E-01, 0.5054E-01, 0.5136E-01, 0.5214E-01,& - 0.5296E-01, 0.5378E-01, 0.5461E-01, 0.5543E-01,& - 0.5630E-01, 0.5717E-01, 0.5804E-01, 0.5892E-01,& - 0.5983E-01, 0.6071E-01, 0.6167E-01, 0.6259E-01,& - 0.6356E-01, 0.6448E-01, 0.6550E-01, 0.6647E-01,& - 0.6748E-01, 0.6850E-01, 0.6952E-01, 0.7058E-01,& - 0.7160E-01, 0.7271E-01, 0.7377E-01, 0.7489E-01,& - 0.7600E-01, 0.7711E-01, 0.7828E-01, 0.7944E-01,& - 0.8060E-01, 0.8181E-01, 0.8302E-01, 0.8423E-01,& - 0.8549E-01, 0.8675E-01, 0.8800E-01, 0.8931E-01,& - 0.9062E-01, 0.9193E-01, 0.9328E-01, 0.9464E-01,& - 0.9599E-01, 0.9739E-01, 0.9880E-01, 0.1003E+00,& - 0.1017E+00, 0.1032E+00, 0.1047E+00, 0.1062E+00,& - 0.1077E+00, 0.1092E+00, 0.1108E+00, 0.1124E+00,& - 0.1140E+00, 0.1156E+00, 0.1173E+00, 0.1189E+00,& - 0.1206E+00, 0.1223E+00, 0.1241E+00, 0.1259E+00,& - 0.1276E+00, 0.1294E+00, 0.1312E+00, 0.1331E+00,& - 0.1350E+00, 0.1369E+00, 0.1388E+00, 0.1407E+00,& - 0.1427E+00, 0.1447E+00, 0.1467E+00, 0.1487E+00,& - 0.1508E+00, 0.1530E+00, 0.1551E+00, 0.1572E+00,& - 0.1594E+00, 0.1616E+00, 0.1639E+00, 0.1661E+00,& - 0.1684E+00, 0.1707E+00, 0.1730E+00, 0.1754E+00,& - 0.1778E+00, 0.1803E+00, 0.1827E+00, 0.1852E+00,& - 0.1878E+00, 0.1903E+00, 0.1929E+00, 0.1956E+00,& - 0.1982E+00, 0.2009E+00, 0.2036E+00, 0.2063E+00,& - 0.2092E+00, 0.2120E+00, 0.2149E+00, 0.2177E+00,& - 0.2207E+00, 0.2236E+00, 0.2266E+00, 0.2297E+00,& - 0.2328E+00, 0.2359E+00, 0.2390E+00, 0.2422E+00,& - 0.2455E+00, 0.2487E+00, 0.2520E+00, 0.2554E+00,& - 0.2588E+00, 0.2622E+00, 0.2657E+00, 0.2692E+00,& - 0.2728E+00, 0.2763E+00, 0.2800E+00, 0.2837E+00,& - 0.2874E+00, 0.2912E+00, 0.2950E+00, 0.2989E+00,& - 0.3028E+00, 0.3068E+00, 0.3108E+00, 0.3149E+00,& - 0.3190E+00, 0.3231E+00, 0.3274E+00, 0.3316E+00,& - 0.3359E+00, 0.3403E+00, 0.3447E+00, 0.3492E+00,& - 0.3537E+00, 0.3583E+00, 0.3629E+00, 0.3676E+00,& - 0.3724E+00, 0.3772E+00, 0.3820E+00, 0.3870E+00,& - 0.3920E+00, 0.3970E+00, 0.4021E+00, 0.4073E+00,& - 0.4125E+00, 0.4178E+00, 0.4231E+00, 0.4286E+00,& - 0.4340E+00, 0.4396E+00, 0.4452E+00, 0.4509E+00,& - 0.4566E+00, 0.4624E+00, 0.4683E+00, 0.4743E+00,& - 0.4803E+00, 0.4864E+00, 0.4926E+00, 0.4988E+00,& - 0.5051E+00, 0.5115E+00, 0.5180E+00, 0.5246E+00,& - 0.5312E+00, 0.5379E+00, 0.5447E+00, 0.5516E+00,& - 0.5585E+00, 0.5655E+00, 0.5727E+00, 0.5799E+00,& - 0.5872E+00, 0.5946E+00, 0.6020E+00, 0.6096E+00,& - 0.6172E+00, 0.6250E+00, 0.6328E+00, 0.6408E+00,& - 0.6488E+00, 0.6569E+00, 0.6651E+00, 0.6734E+00,& - 0.6818E+00, 0.6904E+00, 0.6990E+00, 0.7077E+00,& - 0.7166E+00, 0.7255E+00, 0.7346E+00, 0.7437E+00,& - 0.7530E+00, 0.7623E+00, 0.7718E+00, 0.7815E+00,& - 0.7912E+00, 0.8010E+00, 0.8110E+00, 0.8211E+00,& - 0.8313E+00, 0.8416E+00, 0.8521E+00, 0.8627E+00,& - 0.8734E+00, 0.8842E+00, 0.8952E+00, 0.9063E+00,& - 0.9176E+00, 0.9290E+00, 0.9405E+00, 0.9522E+00,& - 0.9640E+00, 0.9759E+00, 0.9881E+00, 0.1000E+01,& - 0.1013E+01, 0.1025E+01, 0.1038E+01, 0.1051E+01,& - 0.1064E+01, 0.1077E+01, 0.1091E+01, 0.1104E+01,& - 0.1118E+01, 0.1132E+01, 0.1146E+01, 0.1160E+01,& - 0.1174E+01, 0.1189E+01, 0.1204E+01, 0.1219E+01,& - 0.1234E+01, 0.1249E+01, 0.1265E+01, 0.1281E+01,& - 0.1297E+01, 0.1313E+01, 0.1329E+01, 0.1346E+01,& - 0.1362E+01, 0.1379E+01, 0.1397E+01, 0.1414E+01,& - 0.1432E+01, 0.1450E+01, 0.1468E+01, 0.1486E+01,& - 0.1505E+01, 0.1524E+01, 0.1543E+01, 0.1562E+01,& - 0.1582E+01, 0.1602E+01, 0.1622E+01, 0.1642E+01,& - 0.1663E+01, 0.1684E+01, 0.1705E+01, 0.1727E+01,& - 0.1749E+01, 0.1771E+01, 0.1794E+01, 0.1816E+01,& - 0.1839E+01, 0.1863E+01, 0.1887E+01, 0.1911E+01,& - 0.1935E+01, 0.1960E+01, 0.1985E+01, 0.2011E+01,& - 0.2036E+01, 0.2063E+01, 0.2089E+01, 0.2116E+01,& - 0.2143E+01, 0.2171E+01, 0.2199E+01, 0.2228E+01,& - 0.2257E+01, 0.2286E+01, 0.2316E+01, 0.2347E+01,& - 0.2377E+01, 0.2409E+01, 0.2440E+01, 0.2473E+01,& - 0.2505E+01, 0.2538E+01, 0.2572E+01, 0.2606E+01,& - 0.2641E+01, 0.2676E+01, 0.2712E+01, 0.2749E+01,& - 0.2786E+01, 0.2824E+01, 0.2862E+01, 0.2901E+01,& - 0.2940E+01, 0.2980E+01, 0.3021E+01, 0.3063E+01,& - 0.3105E+01, 0.3148E+01, 0.3192E+01, 0.3236E+01,& - 0.3281E+01, 0.3327E+01, 0.3374E+01, 0.3422E+01,& - 0.3470E+01, 0.3520E+01, 0.3570E+01, 0.3621E+01,& - 0.3673E+01, 0.3726E+01, 0.3780E+01, 0.3836E+01,& - 0.3892E+01, 0.3949E+01, 0.4007E+01, 0.4067E+01,& - 0.4128E+01, 0.4190E+01, 0.4253E+01, 0.4318E+01,& - 0.4384E+01, 0.4451E+01, 0.4520E+01, 0.4590E+01,& - 0.4661E+01, 0.4735E+01, 0.4810E+01, 0.4886E+01,& - 0.4965E+01, 0.5045E+01, 0.5127E+01, 0.5211E+01,& - 0.5297E+01, 0.5385E+01, 0.5475E+01, 0.5568E+01,& - 0.5663E+01, 0.5760E+01, 0.5860E+01, 0.5963E+01,& - 0.6069E+01, 0.6177E+01, 0.6289E+01, 0.6403E+01,& - 0.6521E+01, 0.6643E+01, 0.6768E+01, 0.6897E+01,& - 0.7031E+01, 0.7168E+01, 0.7311E+01, 0.7458E+01,& - 0.7610E+01, 0.7767E+01, 0.7931E+01, 0.8100E+01,& - 0.8276E+01, 0.8459E+01, 0.8650E+01, 0.8848E+01,& - 0.9055E+01, 0.9272E+01, 0.9499E+01, 0.9736E+01,& - 0.9985E+01, 0.1025E+02, 0.1052E+02, 0.1082E+02,& - 0.1113E+02, 0.1146E+02, 0.1181E+02, 0.1218E+02,& - 0.1258E+02, 0.1302E+02, 0.1349E+02, 0.1400E+02,& - 0.1456E+02, 0.1518E+02, 0.1587E+02, 0.1666E+02,& - 0.1756E+02, 0.1861E+02, 0.1987E+02, 0.2143E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,119) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.5913E-04, 0.5913E-04, 0.5913E-04, 0.5913E-04,& - 0.5913E-04, 0.5913E-04, 0.5913E-04, 0.5913E-04,& - 0.5913E-04, 0.5913E-04, 0.5913E-04, 0.5913E-04,& - 0.5913E-04, 0.5913E-04, 0.5913E-04, 0.5913E-04,& - 0.5913E-04, 0.5913E-04, 0.5913E-04, 0.1083E-03,& - 0.1083E-03, 0.1083E-03, 0.1083E-03, 0.1083E-03,& - 0.1083E-03, 0.1083E-03, 0.1083E-03, 0.1083E-03,& - 0.1083E-03, 0.1083E-03, 0.1083E-03, 0.1083E-03,& - 0.1574E-03, 0.1574E-03, 0.1574E-03, 0.1574E-03,& - 0.1574E-03, 0.1574E-03, 0.1574E-03, 0.1574E-03,& - 0.1574E-03, 0.2065E-03, 0.2065E-03, 0.2065E-03,& - 0.2065E-03, 0.2065E-03, 0.2065E-03, 0.2065E-03,& - 0.2065E-03, 0.2556E-03, 0.2556E-03, 0.2556E-03,& - 0.2556E-03, 0.2556E-03, 0.2556E-03, 0.2556E-03,& - 0.3048E-03, 0.3048E-03, 0.3048E-03, 0.3048E-03,& - 0.3048E-03, 0.3539E-03, 0.3539E-03, 0.3539E-03,& - 0.3539E-03, 0.3539E-03, 0.4030E-03, 0.4030E-03,& - 0.4030E-03, 0.4030E-03, 0.4030E-03, 0.4521E-03,& - 0.4521E-03, 0.4521E-03, 0.4521E-03, 0.5013E-03,& - 0.5013E-03, 0.5013E-03, 0.5504E-03, 0.5504E-03,& - 0.5504E-03, 0.5504E-03, 0.5995E-03, 0.5995E-03,& - 0.5995E-03, 0.6486E-03, 0.6486E-03, 0.6486E-03,& - 0.6978E-03, 0.6978E-03, 0.6978E-03, 0.7469E-03,& - 0.7469E-03, 0.7960E-03, 0.7960E-03, 0.7960E-03,& - 0.8451E-03, 0.8451E-03, 0.8943E-03, 0.8943E-03,& - 0.9434E-03, 0.9434E-03, 0.9434E-03, 0.9925E-03,& - 0.9925E-03, 0.1042E-02, 0.1042E-02, 0.1091E-02,& - 0.1091E-02, 0.1140E-02, 0.1189E-02, 0.1189E-02,& - 0.1238E-02, 0.1238E-02, 0.1287E-02, 0.1336E-02,& - 0.1336E-02, 0.1386E-02, 0.1386E-02, 0.1435E-02,& - 0.1484E-02, 0.1533E-02, 0.1533E-02, 0.1582E-02,& - 0.1631E-02, 0.1631E-02, 0.1680E-02, 0.1729E-02,& - 0.1779E-02, 0.1828E-02, 0.1828E-02, 0.1877E-02,& - 0.1926E-02, 0.1975E-02, 0.2024E-02, 0.2073E-02,& - 0.2122E-02, 0.2172E-02, 0.2221E-02, 0.2270E-02,& - 0.2319E-02, 0.2368E-02, 0.2417E-02, 0.2466E-02,& - 0.2515E-02, 0.2565E-02, 0.2614E-02, 0.2663E-02,& - 0.2761E-02, 0.2810E-02, 0.2859E-02, 0.2908E-02,& - 0.3007E-02, 0.3056E-02, 0.3105E-02, 0.3203E-02,& - 0.3252E-02, 0.3301E-02, 0.3400E-02, 0.3449E-02,& - 0.3547E-02, 0.3596E-02, 0.3694E-02, 0.3744E-02,& - 0.3842E-02, 0.3891E-02, 0.3989E-02, 0.4087E-02,& - 0.4137E-02, 0.4235E-02, 0.4333E-02, 0.4431E-02,& - 0.4530E-02, 0.4579E-02, 0.4677E-02, 0.4775E-02,& - 0.4873E-02, 0.4972E-02, 0.5070E-02, 0.5168E-02,& - 0.5266E-02, 0.5414E-02, 0.5512E-02, 0.5610E-02,& - 0.5709E-02, 0.5856E-02, 0.5954E-02, 0.6053E-02,& - 0.6200E-02, 0.6298E-02, 0.6446E-02, 0.6544E-02,& - 0.6691E-02, 0.6839E-02, 0.6937E-02, 0.7084E-02,& - 0.7232E-02, 0.7379E-02, 0.7526E-02, 0.7674E-02,& - 0.7821E-02, 0.7968E-02, 0.8116E-02, 0.8263E-02,& - 0.8411E-02, 0.8558E-02, 0.8754E-02, 0.8902E-02,& - 0.9049E-02, 0.9246E-02, 0.9393E-02, 0.9590E-02,& - 0.9786E-02, 0.9933E-02, 0.1013E-01, 0.1033E-01,& - 0.1052E-01, 0.1072E-01, 0.1092E-01, 0.1111E-01,& - 0.1131E-01, 0.1151E-01, 0.1175E-01, 0.1195E-01,& - 0.1214E-01, 0.1239E-01, 0.1259E-01, 0.1283E-01,& - 0.1308E-01, 0.1332E-01, 0.1357E-01, 0.1381E-01,& - 0.1406E-01, 0.1431E-01, 0.1455E-01, 0.1480E-01,& - 0.1509E-01, 0.1534E-01, 0.1563E-01, 0.1588E-01,& - 0.1617E-01, 0.1647E-01, 0.1676E-01, 0.1706E-01,& - 0.1735E-01, 0.1765E-01, 0.1794E-01, 0.1828E-01,& - 0.1858E-01, 0.1892E-01, 0.1922E-01, 0.1956E-01,& - 0.1991E-01, 0.2025E-01, 0.2059E-01, 0.2099E-01,& - 0.2133E-01, 0.2167E-01, 0.2207E-01, 0.2246E-01,& - 0.2280E-01, 0.2320E-01, 0.2359E-01, 0.2398E-01,& - 0.2443E-01, 0.2482E-01, 0.2526E-01, 0.2565E-01,& - 0.2610E-01, 0.2654E-01, 0.2698E-01, 0.2742E-01,& - 0.2791E-01, 0.2836E-01, 0.2885E-01, 0.2929E-01,& - 0.2978E-01, 0.3027E-01, 0.3081E-01, 0.3130E-01,& - 0.3179E-01, 0.3233E-01, 0.3288E-01, 0.3342E-01,& - 0.3396E-01, 0.3450E-01, 0.3509E-01, 0.3563E-01,& - 0.3622E-01, 0.3681E-01, 0.3739E-01, 0.3803E-01,& - 0.3862E-01, 0.3926E-01, 0.3990E-01, 0.4054E-01,& - 0.4118E-01, 0.4182E-01, 0.4250E-01, 0.4319E-01,& - 0.4388E-01, 0.4457E-01, 0.4526E-01, 0.4599E-01,& - 0.4673E-01, 0.4747E-01, 0.4820E-01, 0.4894E-01,& - 0.4973E-01, 0.5051E-01, 0.5130E-01, 0.5208E-01,& - 0.5292E-01, 0.5375E-01, 0.5459E-01, 0.5542E-01,& - 0.5631E-01, 0.5714E-01, 0.5803E-01, 0.5896E-01,& - 0.5985E-01, 0.6078E-01, 0.6171E-01, 0.6265E-01,& - 0.6363E-01, 0.6461E-01, 0.6559E-01, 0.6658E-01,& - 0.6761E-01, 0.6864E-01, 0.6967E-01, 0.7070E-01,& - 0.7178E-01, 0.7286E-01, 0.7399E-01, 0.7507E-01,& - 0.7620E-01, 0.7738E-01, 0.7851E-01, 0.7969E-01,& - 0.8087E-01, 0.8210E-01, 0.8333E-01, 0.8456E-01,& - 0.8583E-01, 0.8711E-01, 0.8839E-01, 0.8971E-01,& - 0.9104E-01, 0.9237E-01, 0.9374E-01, 0.9512E-01,& - 0.9649E-01, 0.9792E-01, 0.9934E-01, 0.1008E+00,& - 0.1023E+00, 0.1038E+00, 0.1053E+00, 0.1069E+00,& - 0.1084E+00, 0.1100E+00, 0.1116E+00, 0.1131E+00,& - 0.1148E+00, 0.1164E+00, 0.1182E+00, 0.1198E+00,& - 0.1215E+00, 0.1233E+00, 0.1251E+00, 0.1269E+00,& - 0.1287E+00, 0.1305E+00, 0.1324E+00, 0.1343E+00,& - 0.1362E+00, 0.1381E+00, 0.1401E+00, 0.1420E+00,& - 0.1440E+00, 0.1461E+00, 0.1482E+00, 0.1502E+00,& - 0.1524E+00, 0.1545E+00, 0.1567E+00, 0.1589E+00,& - 0.1611E+00, 0.1634E+00, 0.1656E+00, 0.1679E+00,& - 0.1703E+00, 0.1726E+00, 0.1750E+00, 0.1775E+00,& - 0.1800E+00, 0.1824E+00, 0.1850E+00, 0.1875E+00,& - 0.1901E+00, 0.1927E+00, 0.1954E+00, 0.1981E+00,& - 0.2008E+00, 0.2035E+00, 0.2063E+00, 0.2091E+00,& - 0.2120E+00, 0.2149E+00, 0.2178E+00, 0.2208E+00,& - 0.2238E+00, 0.2268E+00, 0.2299E+00, 0.2331E+00,& - 0.2362E+00, 0.2394E+00, 0.2426E+00, 0.2459E+00,& - 0.2492E+00, 0.2526E+00, 0.2560E+00, 0.2594E+00,& - 0.2629E+00, 0.2664E+00, 0.2700E+00, 0.2736E+00,& - 0.2773E+00, 0.2810E+00, 0.2847E+00, 0.2885E+00,& - 0.2924E+00, 0.2962E+00, 0.3002E+00, 0.3041E+00,& - 0.3082E+00, 0.3123E+00, 0.3164E+00, 0.3206E+00,& - 0.3248E+00, 0.3291E+00, 0.3335E+00, 0.3379E+00,& - 0.3423E+00, 0.3468E+00, 0.3514E+00, 0.3560E+00,& - 0.3606E+00, 0.3654E+00, 0.3701E+00, 0.3750E+00,& - 0.3799E+00, 0.3848E+00, 0.3898E+00, 0.3949E+00,& - 0.4001E+00, 0.4053E+00, 0.4106E+00, 0.4159E+00,& - 0.4213E+00, 0.4267E+00, 0.4323E+00, 0.4379E+00,& - 0.4435E+00, 0.4493E+00, 0.4551E+00, 0.4609E+00,& - 0.4669E+00, 0.4729E+00, 0.4790E+00, 0.4851E+00,& - 0.4914E+00, 0.4977E+00, 0.5041E+00, 0.5106E+00,& - 0.5171E+00, 0.5237E+00, 0.5304E+00, 0.5372E+00,& - 0.5441E+00, 0.5511E+00, 0.5581E+00, 0.5652E+00,& - 0.5724E+00, 0.5797E+00, 0.5871E+00, 0.5946E+00,& - 0.6021E+00, 0.6098E+00, 0.6176E+00, 0.6254E+00,& - 0.6333E+00, 0.6414E+00, 0.6496E+00, 0.6578E+00,& - 0.6661E+00, 0.6746E+00, 0.6831E+00, 0.6918E+00,& - 0.7005E+00, 0.7094E+00, 0.7183E+00, 0.7274E+00,& - 0.7366E+00, 0.7459E+00, 0.7553E+00, 0.7649E+00,& - 0.7745E+00, 0.7843E+00, 0.7942E+00, 0.8042E+00,& - 0.8143E+00, 0.8246E+00, 0.8350E+00, 0.8455E+00,& - 0.8562E+00, 0.8669E+00, 0.8778E+00, 0.8889E+00,& - 0.9001E+00, 0.9114E+00, 0.9229E+00, 0.9345E+00,& - 0.9462E+00, 0.9582E+00, 0.9702E+00, 0.9824E+00,& - 0.9948E+00, 0.1007E+01, 0.1020E+01, 0.1033E+01,& - 0.1046E+01, 0.1059E+01, 0.1072E+01, 0.1086E+01,& - 0.1099E+01, 0.1113E+01, 0.1127E+01, 0.1141E+01,& - 0.1156E+01, 0.1170E+01, 0.1185E+01, 0.1200E+01,& - 0.1215E+01, 0.1230E+01, 0.1246E+01, 0.1262E+01,& - 0.1278E+01, 0.1294E+01, 0.1310E+01, 0.1327E+01,& - 0.1343E+01, 0.1360E+01, 0.1378E+01, 0.1395E+01,& - 0.1413E+01, 0.1431E+01, 0.1449E+01, 0.1467E+01,& - 0.1486E+01, 0.1505E+01, 0.1524E+01, 0.1543E+01,& - 0.1563E+01, 0.1583E+01, 0.1603E+01, 0.1623E+01,& - 0.1644E+01, 0.1665E+01, 0.1686E+01, 0.1708E+01,& - 0.1730E+01, 0.1752E+01, 0.1775E+01, 0.1797E+01,& - 0.1820E+01, 0.1844E+01, 0.1868E+01, 0.1892E+01,& - 0.1916E+01, 0.1941E+01, 0.1966E+01, 0.1992E+01,& - 0.2018E+01, 0.2044E+01, 0.2071E+01, 0.2098E+01,& - 0.2125E+01, 0.2153E+01, 0.2181E+01, 0.2210E+01,& - 0.2239E+01, 0.2269E+01, 0.2299E+01, 0.2329E+01,& - 0.2360E+01, 0.2391E+01, 0.2423E+01, 0.2455E+01,& - 0.2488E+01, 0.2522E+01, 0.2556E+01, 0.2590E+01,& - 0.2625E+01, 0.2660E+01, 0.2696E+01, 0.2733E+01,& - 0.2770E+01, 0.2808E+01, 0.2847E+01, 0.2886E+01,& - 0.2925E+01, 0.2966E+01, 0.3007E+01, 0.3049E+01,& - 0.3091E+01, 0.3134E+01, 0.3178E+01, 0.3223E+01,& - 0.3268E+01, 0.3315E+01, 0.3362E+01, 0.3410E+01,& - 0.3459E+01, 0.3508E+01, 0.3559E+01, 0.3611E+01,& - 0.3663E+01, 0.3717E+01, 0.3771E+01, 0.3827E+01,& - 0.3883E+01, 0.3941E+01, 0.4000E+01, 0.4060E+01,& - 0.4121E+01, 0.4184E+01, 0.4248E+01, 0.4313E+01,& - 0.4379E+01, 0.4447E+01, 0.4516E+01, 0.4587E+01,& - 0.4659E+01, 0.4733E+01, 0.4809E+01, 0.4886E+01,& - 0.4965E+01, 0.5046E+01, 0.5129E+01, 0.5214E+01,& - 0.5301E+01, 0.5390E+01, 0.5481E+01, 0.5575E+01,& - 0.5671E+01, 0.5769E+01, 0.5870E+01, 0.5974E+01,& - 0.6080E+01, 0.6190E+01, 0.6303E+01, 0.6418E+01,& - 0.6538E+01, 0.6661E+01, 0.6787E+01, 0.6918E+01,& - 0.7053E+01, 0.7191E+01, 0.7336E+01, 0.7485E+01,& - 0.7637E+01, 0.7798E+01, 0.7963E+01, 0.8135E+01,& - 0.8313E+01, 0.8498E+01, 0.8691E+01, 0.8892E+01,& - 0.9102E+01, 0.9321E+01, 0.9550E+01, 0.9791E+01,& - 0.1004E+02, 0.1031E+02, 0.1059E+02, 0.1088E+02,& - 0.1120E+02, 0.1153E+02, 0.1189E+02, 0.1227E+02,& - 0.1267E+02, 0.1311E+02, 0.1359E+02, 0.1411E+02,& - 0.1468E+02, 0.1531E+02, 0.1601E+02, 0.1681E+02,& - 0.1772E+02, 0.1879E+02, 0.2006E+02, 0.2165E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,120) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.5986E-04, 0.5986E-04, 0.5986E-04,& - 0.5986E-04, 0.5986E-04, 0.5986E-04, 0.5986E-04,& - 0.5986E-04, 0.5986E-04, 0.5986E-04, 0.5986E-04,& - 0.5986E-04, 0.5986E-04, 0.5986E-04, 0.5986E-04,& - 0.5986E-04, 0.5986E-04, 0.5986E-04, 0.5986E-04,& - 0.5986E-04, 0.1097E-03, 0.1097E-03, 0.1097E-03,& - 0.1097E-03, 0.1097E-03, 0.1097E-03, 0.1097E-03,& - 0.1097E-03, 0.1097E-03, 0.1097E-03, 0.1097E-03,& - 0.1097E-03, 0.1097E-03, 0.1596E-03, 0.1596E-03,& - 0.1596E-03, 0.1596E-03, 0.1596E-03, 0.1596E-03,& - 0.1596E-03, 0.1596E-03, 0.1596E-03, 0.2094E-03,& - 0.2094E-03, 0.2094E-03, 0.2094E-03, 0.2094E-03,& - 0.2094E-03, 0.2094E-03, 0.2094E-03, 0.2593E-03,& - 0.2593E-03, 0.2593E-03, 0.2593E-03, 0.2593E-03,& - 0.2593E-03, 0.2593E-03, 0.3091E-03, 0.3091E-03,& - 0.3091E-03, 0.3091E-03, 0.3091E-03, 0.3590E-03,& - 0.3590E-03, 0.3590E-03, 0.3590E-03, 0.3590E-03,& - 0.4089E-03, 0.4089E-03, 0.4089E-03, 0.4089E-03,& - 0.4089E-03, 0.4587E-03, 0.4587E-03, 0.4587E-03,& - 0.4587E-03, 0.5086E-03, 0.5086E-03, 0.5086E-03,& - 0.5584E-03, 0.5584E-03, 0.5584E-03, 0.5584E-03,& - 0.6083E-03, 0.6083E-03, 0.6083E-03, 0.6581E-03,& - 0.6581E-03, 0.6581E-03, 0.7080E-03, 0.7080E-03,& - 0.7080E-03, 0.7578E-03, 0.7578E-03, 0.8077E-03,& - 0.8077E-03, 0.8077E-03, 0.8576E-03, 0.8576E-03,& - 0.9074E-03, 0.9074E-03, 0.9573E-03, 0.9573E-03,& - 0.9573E-03, 0.1007E-02, 0.1007E-02, 0.1057E-02,& - 0.1057E-02, 0.1107E-02, 0.1157E-02, 0.1157E-02,& - 0.1207E-02, 0.1207E-02, 0.1256E-02, 0.1256E-02,& - 0.1306E-02, 0.1356E-02, 0.1356E-02, 0.1406E-02,& - 0.1456E-02, 0.1456E-02, 0.1506E-02, 0.1556E-02,& - 0.1556E-02, 0.1605E-02, 0.1655E-02, 0.1705E-02,& - 0.1705E-02, 0.1755E-02, 0.1805E-02, 0.1855E-02,& - 0.1905E-02, 0.1905E-02, 0.1954E-02, 0.2004E-02,& - 0.2054E-02, 0.2104E-02, 0.2154E-02, 0.2204E-02,& - 0.2254E-02, 0.2303E-02, 0.2353E-02, 0.2403E-02,& - 0.2453E-02, 0.2503E-02, 0.2553E-02, 0.2603E-02,& - 0.2652E-02, 0.2752E-02, 0.2802E-02, 0.2852E-02,& - 0.2902E-02, 0.2952E-02, 0.3051E-02, 0.3101E-02,& - 0.3151E-02, 0.3251E-02, 0.3301E-02, 0.3350E-02,& - 0.3450E-02, 0.3500E-02, 0.3600E-02, 0.3650E-02,& - 0.3749E-02, 0.3799E-02, 0.3899E-02, 0.3999E-02,& - 0.4048E-02, 0.4148E-02, 0.4248E-02, 0.4347E-02,& - 0.4397E-02, 0.4497E-02, 0.4597E-02, 0.4696E-02,& - 0.4796E-02, 0.4896E-02, 0.4996E-02, 0.5095E-02,& - 0.5195E-02, 0.5295E-02, 0.5394E-02, 0.5494E-02,& - 0.5594E-02, 0.5743E-02, 0.5843E-02, 0.5943E-02,& - 0.6092E-02, 0.6192E-02, 0.6342E-02, 0.6441E-02,& - 0.6591E-02, 0.6691E-02, 0.6840E-02, 0.6940E-02,& - 0.7090E-02, 0.7239E-02, 0.7389E-02, 0.7538E-02,& - 0.7688E-02, 0.7837E-02, 0.7987E-02, 0.8137E-02,& - 0.8286E-02, 0.8436E-02, 0.8585E-02, 0.8735E-02,& - 0.8934E-02, 0.9084E-02, 0.9283E-02, 0.9433E-02,& - 0.9632E-02, 0.9782E-02, 0.9981E-02, 0.1018E-01,& - 0.1038E-01, 0.1058E-01, 0.1073E-01, 0.1093E-01,& - 0.1118E-01, 0.1138E-01, 0.1158E-01, 0.1178E-01,& - 0.1203E-01, 0.1222E-01, 0.1242E-01, 0.1267E-01,& - 0.1292E-01, 0.1312E-01, 0.1337E-01, 0.1362E-01,& - 0.1387E-01, 0.1412E-01, 0.1437E-01, 0.1462E-01,& - 0.1492E-01, 0.1517E-01, 0.1547E-01, 0.1571E-01,& - 0.1601E-01, 0.1626E-01, 0.1656E-01, 0.1686E-01,& - 0.1716E-01, 0.1746E-01, 0.1776E-01, 0.1811E-01,& - 0.1841E-01, 0.1876E-01, 0.1906E-01, 0.1940E-01,& - 0.1975E-01, 0.2010E-01, 0.2045E-01, 0.2080E-01,& - 0.2115E-01, 0.2150E-01, 0.2190E-01, 0.2225E-01,& - 0.2264E-01, 0.2304E-01, 0.2344E-01, 0.2384E-01,& - 0.2424E-01, 0.2464E-01, 0.2509E-01, 0.2549E-01,& - 0.2594E-01, 0.2638E-01, 0.2683E-01, 0.2728E-01,& - 0.2773E-01, 0.2818E-01, 0.2868E-01, 0.2918E-01,& - 0.2962E-01, 0.3012E-01, 0.3062E-01, 0.3117E-01,& - 0.3167E-01, 0.3222E-01, 0.3272E-01, 0.3326E-01,& - 0.3381E-01, 0.3436E-01, 0.3496E-01, 0.3551E-01,& - 0.3611E-01, 0.3670E-01, 0.3730E-01, 0.3790E-01,& - 0.3850E-01, 0.3915E-01, 0.3980E-01, 0.4044E-01,& - 0.4109E-01, 0.4174E-01, 0.4244E-01, 0.4309E-01,& - 0.4378E-01, 0.4448E-01, 0.4523E-01, 0.4593E-01,& - 0.4668E-01, 0.4742E-01, 0.4817E-01, 0.4892E-01,& - 0.4972E-01, 0.5051E-01, 0.5131E-01, 0.5211E-01,& - 0.5296E-01, 0.5376E-01, 0.5460E-01, 0.5545E-01,& - 0.5635E-01, 0.5725E-01, 0.5809E-01, 0.5904E-01,& - 0.5994E-01, 0.6088E-01, 0.6183E-01, 0.6278E-01,& - 0.6373E-01, 0.6472E-01, 0.6572E-01, 0.6677E-01,& - 0.6776E-01, 0.6881E-01, 0.6986E-01, 0.7096E-01,& - 0.7200E-01, 0.7315E-01, 0.7425E-01, 0.7539E-01,& - 0.7654E-01, 0.7769E-01, 0.7883E-01, 0.8003E-01,& - 0.8128E-01, 0.8247E-01, 0.8372E-01, 0.8497E-01,& - 0.8626E-01, 0.8756E-01, 0.8885E-01, 0.9020E-01,& - 0.9155E-01, 0.9289E-01, 0.9429E-01, 0.9568E-01,& - 0.9713E-01, 0.9858E-01, 0.1000E+00, 0.1015E+00,& - 0.1030E+00, 0.1045E+00, 0.1061E+00, 0.1076E+00,& - 0.1092E+00, 0.1108E+00, 0.1124E+00, 0.1141E+00,& - 0.1157E+00, 0.1174E+00, 0.1191E+00, 0.1209E+00,& - 0.1226E+00, 0.1244E+00, 0.1262E+00, 0.1280E+00,& - 0.1299E+00, 0.1317E+00, 0.1336E+00, 0.1356E+00,& - 0.1375E+00, 0.1395E+00, 0.1415E+00, 0.1435E+00,& - 0.1456E+00, 0.1476E+00, 0.1497E+00, 0.1519E+00,& - 0.1541E+00, 0.1562E+00, 0.1585E+00, 0.1607E+00,& - 0.1630E+00, 0.1653E+00, 0.1676E+00, 0.1700E+00,& - 0.1724E+00, 0.1748E+00, 0.1772E+00, 0.1797E+00,& - 0.1822E+00, 0.1848E+00, 0.1874E+00, 0.1900E+00,& - 0.1927E+00, 0.1953E+00, 0.1980E+00, 0.2008E+00,& - 0.2036E+00, 0.2064E+00, 0.2093E+00, 0.2121E+00,& - 0.2151E+00, 0.2181E+00, 0.2211E+00, 0.2241E+00,& - 0.2272E+00, 0.2303E+00, 0.2335E+00, 0.2367E+00,& - 0.2399E+00, 0.2432E+00, 0.2465E+00, 0.2499E+00,& - 0.2533E+00, 0.2567E+00, 0.2602E+00, 0.2637E+00,& - 0.2673E+00, 0.2710E+00, 0.2746E+00, 0.2784E+00,& - 0.2821E+00, 0.2859E+00, 0.2898E+00, 0.2937E+00,& - 0.2977E+00, 0.3016E+00, 0.3057E+00, 0.3098E+00,& - 0.3140E+00, 0.3181E+00, 0.3224E+00, 0.3267E+00,& - 0.3311E+00, 0.3355E+00, 0.3400E+00, 0.3445E+00,& - 0.3491E+00, 0.3537E+00, 0.3584E+00, 0.3632E+00,& - 0.3680E+00, 0.3729E+00, 0.3778E+00, 0.3828E+00,& - 0.3878E+00, 0.3930E+00, 0.3982E+00, 0.4034E+00,& - 0.4087E+00, 0.4141E+00, 0.4196E+00, 0.4250E+00,& - 0.4306E+00, 0.4363E+00, 0.4420E+00, 0.4478E+00,& - 0.4537E+00, 0.4596E+00, 0.4656E+00, 0.4717E+00,& - 0.4778E+00, 0.4841E+00, 0.4903E+00, 0.4967E+00,& - 0.5032E+00, 0.5097E+00, 0.5164E+00, 0.5231E+00,& - 0.5298E+00, 0.5367E+00, 0.5437E+00, 0.5507E+00,& - 0.5579E+00, 0.5650E+00, 0.5724E+00, 0.5797E+00,& - 0.5872E+00, 0.5948E+00, 0.6025E+00, 0.6103E+00,& - 0.6181E+00, 0.6261E+00, 0.6341E+00, 0.6423E+00,& - 0.6505E+00, 0.6589E+00, 0.6674E+00, 0.6759E+00,& - 0.6846E+00, 0.6934E+00, 0.7023E+00, 0.7113E+00,& - 0.7204E+00, 0.7296E+00, 0.7390E+00, 0.7484E+00,& - 0.7580E+00, 0.7677E+00, 0.7775E+00, 0.7874E+00,& - 0.7975E+00, 0.8077E+00, 0.8180E+00, 0.8285E+00,& - 0.8390E+00, 0.8497E+00, 0.8606E+00, 0.8715E+00,& - 0.8827E+00, 0.8939E+00, 0.9054E+00, 0.9169E+00,& - 0.9285E+00, 0.9404E+00, 0.9524E+00, 0.9645E+00,& - 0.9768E+00, 0.9893E+00, 0.1002E+01, 0.1015E+01,& - 0.1028E+01, 0.1041E+01, 0.1054E+01, 0.1067E+01,& - 0.1081E+01, 0.1095E+01, 0.1109E+01, 0.1123E+01,& - 0.1137E+01, 0.1152E+01, 0.1166E+01, 0.1181E+01,& - 0.1196E+01, 0.1212E+01, 0.1227E+01, 0.1243E+01,& - 0.1259E+01, 0.1275E+01, 0.1291E+01, 0.1308E+01,& - 0.1324E+01, 0.1341E+01, 0.1358E+01, 0.1376E+01,& - 0.1393E+01, 0.1411E+01, 0.1429E+01, 0.1448E+01,& - 0.1466E+01, 0.1485E+01, 0.1504E+01, 0.1524E+01,& - 0.1543E+01, 0.1563E+01, 0.1584E+01, 0.1604E+01,& - 0.1625E+01, 0.1646E+01, 0.1667E+01, 0.1689E+01,& - 0.1711E+01, 0.1733E+01, 0.1755E+01, 0.1778E+01,& - 0.1801E+01, 0.1825E+01, 0.1849E+01, 0.1873E+01,& - 0.1897E+01, 0.1922E+01, 0.1947E+01, 0.1973E+01,& - 0.1999E+01, 0.2025E+01, 0.2052E+01, 0.2079E+01,& - 0.2107E+01, 0.2135E+01, 0.2163E+01, 0.2192E+01,& - 0.2221E+01, 0.2251E+01, 0.2281E+01, 0.2311E+01,& - 0.2342E+01, 0.2374E+01, 0.2406E+01, 0.2438E+01,& - 0.2471E+01, 0.2504E+01, 0.2538E+01, 0.2573E+01,& - 0.2608E+01, 0.2644E+01, 0.2680E+01, 0.2717E+01,& - 0.2754E+01, 0.2792E+01, 0.2831E+01, 0.2870E+01,& - 0.2910E+01, 0.2951E+01, 0.2992E+01, 0.3034E+01,& - 0.3077E+01, 0.3120E+01, 0.3165E+01, 0.3210E+01,& - 0.3255E+01, 0.3302E+01, 0.3349E+01, 0.3398E+01,& - 0.3447E+01, 0.3497E+01, 0.3548E+01, 0.3600E+01,& - 0.3653E+01, 0.3707E+01, 0.3761E+01, 0.3817E+01,& - 0.3874E+01, 0.3933E+01, 0.3992E+01, 0.4052E+01,& - 0.4114E+01, 0.4177E+01, 0.4242E+01, 0.4307E+01,& - 0.4374E+01, 0.4442E+01, 0.4512E+01, 0.4584E+01,& - 0.4657E+01, 0.4731E+01, 0.4808E+01, 0.4886E+01,& - 0.4966E+01, 0.5047E+01, 0.5131E+01, 0.5216E+01,& - 0.5304E+01, 0.5394E+01, 0.5486E+01, 0.5580E+01,& - 0.5677E+01, 0.5777E+01, 0.5879E+01, 0.5984E+01,& - 0.6091E+01, 0.6202E+01, 0.6316E+01, 0.6433E+01,& - 0.6554E+01, 0.6678E+01, 0.6806E+01, 0.6938E+01,& - 0.7074E+01, 0.7215E+01, 0.7360E+01, 0.7511E+01,& - 0.7666E+01, 0.7828E+01, 0.7995E+01, 0.8168E+01,& - 0.8349E+01, 0.8536E+01, 0.8731E+01, 0.8934E+01,& - 0.9147E+01, 0.9369E+01, 0.9601E+01, 0.9844E+01,& - 0.1010E+02, 0.1037E+02, 0.1065E+02, 0.1095E+02,& - 0.1127E+02, 0.1161E+02, 0.1197E+02, 0.1235E+02,& - 0.1277E+02, 0.1321E+02, 0.1369E+02, 0.1422E+02,& - 0.1480E+02, 0.1544E+02, 0.1615E+02, 0.1696E+02,& - 0.1788E+02, 0.1896E+02, 0.2026E+02, 0.2186E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,121) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.6059E-04,& - 0.6059E-04, 0.6059E-04, 0.6059E-04, 0.6059E-04,& - 0.6059E-04, 0.6059E-04, 0.6059E-04, 0.6059E-04,& - 0.6059E-04, 0.6059E-04, 0.6059E-04, 0.6059E-04,& - 0.6059E-04, 0.6059E-04, 0.6059E-04, 0.6059E-04,& - 0.6059E-04, 0.6059E-04, 0.6059E-04, 0.1112E-03,& - 0.1112E-03, 0.1112E-03, 0.1112E-03, 0.1112E-03,& - 0.1112E-03, 0.1112E-03, 0.1112E-03, 0.1112E-03,& - 0.1112E-03, 0.1112E-03, 0.1112E-03, 0.1112E-03,& - 0.1618E-03, 0.1618E-03, 0.1618E-03, 0.1618E-03,& - 0.1618E-03, 0.1618E-03, 0.1618E-03, 0.1618E-03,& - 0.1618E-03, 0.2124E-03, 0.2124E-03, 0.2124E-03,& - 0.2124E-03, 0.2124E-03, 0.2124E-03, 0.2124E-03,& - 0.2124E-03, 0.2630E-03, 0.2630E-03, 0.2630E-03,& - 0.2630E-03, 0.2630E-03, 0.2630E-03, 0.2630E-03,& - 0.3136E-03, 0.3136E-03, 0.3136E-03, 0.3136E-03,& - 0.3136E-03, 0.3641E-03, 0.3641E-03, 0.3641E-03,& - 0.3641E-03, 0.3641E-03, 0.4147E-03, 0.4147E-03,& - 0.4147E-03, 0.4147E-03, 0.4147E-03, 0.4653E-03,& - 0.4653E-03, 0.4653E-03, 0.4653E-03, 0.5159E-03,& - 0.5159E-03, 0.5159E-03, 0.5665E-03, 0.5665E-03,& - 0.5665E-03, 0.5665E-03, 0.6171E-03, 0.6171E-03,& - 0.6171E-03, 0.6677E-03, 0.6677E-03, 0.6677E-03,& - 0.7183E-03, 0.7183E-03, 0.7183E-03, 0.7689E-03,& - 0.7689E-03, 0.8195E-03, 0.8195E-03, 0.8195E-03,& - 0.8701E-03, 0.8701E-03, 0.9207E-03, 0.9207E-03,& - 0.9713E-03, 0.9713E-03, 0.1022E-02, 0.1022E-02,& - 0.1022E-02, 0.1072E-02, 0.1123E-02, 0.1123E-02,& - 0.1174E-02, 0.1174E-02, 0.1224E-02, 0.1224E-02,& - 0.1275E-02, 0.1275E-02, 0.1325E-02, 0.1376E-02,& - 0.1376E-02, 0.1427E-02, 0.1477E-02, 0.1477E-02,& - 0.1528E-02, 0.1578E-02, 0.1578E-02, 0.1629E-02,& - 0.1680E-02, 0.1730E-02, 0.1730E-02, 0.1781E-02,& - 0.1831E-02, 0.1882E-02, 0.1933E-02, 0.1983E-02,& - 0.1983E-02, 0.2034E-02, 0.2084E-02, 0.2135E-02,& - 0.2185E-02, 0.2236E-02, 0.2287E-02, 0.2337E-02,& - 0.2388E-02, 0.2438E-02, 0.2489E-02, 0.2540E-02,& - 0.2590E-02, 0.2641E-02, 0.2742E-02, 0.2793E-02,& - 0.2843E-02, 0.2894E-02, 0.2944E-02, 0.3046E-02,& - 0.3096E-02, 0.3147E-02, 0.3248E-02, 0.3299E-02,& - 0.3349E-02, 0.3450E-02, 0.3501E-02, 0.3602E-02,& - 0.3653E-02, 0.3754E-02, 0.3804E-02, 0.3906E-02,& - 0.4007E-02, 0.4057E-02, 0.4159E-02, 0.4260E-02,& - 0.4310E-02, 0.4412E-02, 0.4513E-02, 0.4614E-02,& - 0.4715E-02, 0.4766E-02, 0.4867E-02, 0.4968E-02,& - 0.5069E-02, 0.5170E-02, 0.5272E-02, 0.5423E-02,& - 0.5525E-02, 0.5626E-02, 0.5727E-02, 0.5828E-02,& - 0.5980E-02, 0.6081E-02, 0.6182E-02, 0.6334E-02,& - 0.6435E-02, 0.6587E-02, 0.6739E-02, 0.6840E-02,& - 0.6992E-02, 0.7093E-02, 0.7245E-02, 0.7396E-02,& - 0.7548E-02, 0.7700E-02, 0.7852E-02, 0.8004E-02,& - 0.8155E-02, 0.8307E-02, 0.8459E-02, 0.8611E-02,& - 0.8813E-02, 0.8965E-02, 0.9117E-02, 0.9319E-02,& - 0.9471E-02, 0.9673E-02, 0.9825E-02, 0.1003E-01,& - 0.1023E-01, 0.1043E-01, 0.1063E-01, 0.1079E-01,& - 0.1099E-01, 0.1124E-01, 0.1144E-01, 0.1165E-01,& - 0.1185E-01, 0.1210E-01, 0.1230E-01, 0.1251E-01,& - 0.1276E-01, 0.1301E-01, 0.1321E-01, 0.1347E-01,& - 0.1372E-01, 0.1397E-01, 0.1423E-01, 0.1448E-01,& - 0.1473E-01, 0.1504E-01, 0.1529E-01, 0.1554E-01,& - 0.1585E-01, 0.1615E-01, 0.1640E-01, 0.1671E-01,& - 0.1701E-01, 0.1731E-01, 0.1762E-01, 0.1792E-01,& - 0.1827E-01, 0.1858E-01, 0.1893E-01, 0.1924E-01,& - 0.1959E-01, 0.1994E-01, 0.2030E-01, 0.2065E-01,& - 0.2101E-01, 0.2136E-01, 0.2171E-01, 0.2212E-01,& - 0.2247E-01, 0.2288E-01, 0.2328E-01, 0.2369E-01,& - 0.2409E-01, 0.2450E-01, 0.2495E-01, 0.2536E-01,& - 0.2581E-01, 0.2622E-01, 0.2667E-01, 0.2713E-01,& - 0.2758E-01, 0.2809E-01, 0.2854E-01, 0.2905E-01,& - 0.2951E-01, 0.3001E-01, 0.3052E-01, 0.3102E-01,& - 0.3158E-01, 0.3209E-01, 0.3264E-01, 0.3315E-01,& - 0.3370E-01, 0.3426E-01, 0.3487E-01, 0.3542E-01,& - 0.3603E-01, 0.3659E-01, 0.3720E-01, 0.3785E-01,& - 0.3846E-01, 0.3907E-01, 0.3973E-01, 0.4038E-01,& - 0.4104E-01, 0.4170E-01, 0.4241E-01, 0.4306E-01,& - 0.4377E-01, 0.4448E-01, 0.4519E-01, 0.4595E-01,& - 0.4666E-01, 0.4742E-01, 0.4817E-01, 0.4898E-01,& - 0.4974E-01, 0.5055E-01, 0.5136E-01, 0.5217E-01,& - 0.5298E-01, 0.5384E-01, 0.5470E-01, 0.5556E-01,& - 0.5642E-01, 0.5733E-01, 0.5824E-01, 0.5915E-01,& - 0.6006E-01, 0.6102E-01, 0.6199E-01, 0.6295E-01,& - 0.6396E-01, 0.6492E-01, 0.6593E-01, 0.6699E-01,& - 0.6801E-01, 0.6907E-01, 0.7013E-01, 0.7124E-01,& - 0.7231E-01, 0.7347E-01, 0.7458E-01, 0.7575E-01,& - 0.7691E-01, 0.7807E-01, 0.7924E-01, 0.8045E-01,& - 0.8172E-01, 0.8293E-01, 0.8420E-01, 0.8551E-01,& - 0.8678E-01, 0.8809E-01, 0.8941E-01, 0.9077E-01,& - 0.9214E-01, 0.9356E-01, 0.9497E-01, 0.9639E-01,& - 0.9781E-01, 0.9927E-01, 0.1008E+00, 0.1023E+00,& - 0.1038E+00, 0.1053E+00, 0.1069E+00, 0.1085E+00,& - 0.1101E+00, 0.1118E+00, 0.1134E+00, 0.1151E+00,& - 0.1168E+00, 0.1185E+00, 0.1202E+00, 0.1220E+00,& - 0.1238E+00, 0.1256E+00, 0.1275E+00, 0.1293E+00,& - 0.1312E+00, 0.1331E+00, 0.1350E+00, 0.1370E+00,& - 0.1390E+00, 0.1410E+00, 0.1430E+00, 0.1451E+00,& - 0.1472E+00, 0.1494E+00, 0.1515E+00, 0.1537E+00,& - 0.1559E+00, 0.1581E+00, 0.1604E+00, 0.1627E+00,& - 0.1650E+00, 0.1674E+00, 0.1697E+00, 0.1722E+00,& - 0.1746E+00, 0.1771E+00, 0.1796E+00, 0.1821E+00,& - 0.1847E+00, 0.1874E+00, 0.1900E+00, 0.1927E+00,& - 0.1954E+00, 0.1981E+00, 0.2009E+00, 0.2037E+00,& - 0.2066E+00, 0.2095E+00, 0.2124E+00, 0.2154E+00,& - 0.2184E+00, 0.2215E+00, 0.2245E+00, 0.2277E+00,& - 0.2309E+00, 0.2341E+00, 0.2373E+00, 0.2406E+00,& - 0.2439E+00, 0.2473E+00, 0.2507E+00, 0.2541E+00,& - 0.2577E+00, 0.2612E+00, 0.2648E+00, 0.2684E+00,& - 0.2721E+00, 0.2758E+00, 0.2796E+00, 0.2834E+00,& - 0.2873E+00, 0.2912E+00, 0.2952E+00, 0.2992E+00,& - 0.3033E+00, 0.3074E+00, 0.3116E+00, 0.3158E+00,& - 0.3201E+00, 0.3245E+00, 0.3288E+00, 0.3333E+00,& - 0.3378E+00, 0.3423E+00, 0.3470E+00, 0.3516E+00,& - 0.3563E+00, 0.3611E+00, 0.3660E+00, 0.3709E+00,& - 0.3759E+00, 0.3809E+00, 0.3860E+00, 0.3912E+00,& - 0.3964E+00, 0.4017E+00, 0.4070E+00, 0.4125E+00,& - 0.4180E+00, 0.4235E+00, 0.4292E+00, 0.4349E+00,& - 0.4406E+00, 0.4465E+00, 0.4524E+00, 0.4584E+00,& - 0.4644E+00, 0.4706E+00, 0.4768E+00, 0.4831E+00,& - 0.4895E+00, 0.4960E+00, 0.5025E+00, 0.5091E+00,& - 0.5158E+00, 0.5226E+00, 0.5295E+00, 0.5364E+00,& - 0.5434E+00, 0.5506E+00, 0.5578E+00, 0.5651E+00,& - 0.5725E+00, 0.5800E+00, 0.5876E+00, 0.5952E+00,& - 0.6030E+00, 0.6109E+00, 0.6189E+00, 0.6270E+00,& - 0.6351E+00, 0.6434E+00, 0.6518E+00, 0.6602E+00,& - 0.6688E+00, 0.6775E+00, 0.6863E+00, 0.6953E+00,& - 0.7043E+00, 0.7135E+00, 0.7227E+00, 0.7321E+00,& - 0.7416E+00, 0.7512E+00, 0.7609E+00, 0.7708E+00,& - 0.7808E+00, 0.7909E+00, 0.8011E+00, 0.8115E+00,& - 0.8220E+00, 0.8326E+00, 0.8434E+00, 0.8543E+00,& - 0.8653E+00, 0.8765E+00, 0.8879E+00, 0.8993E+00,& - 0.9109E+00, 0.9227E+00, 0.9347E+00, 0.9467E+00,& - 0.9589E+00, 0.9713E+00, 0.9839E+00, 0.9966E+00,& - 0.1009E+01, 0.1022E+01, 0.1036E+01, 0.1049E+01,& - 0.1063E+01, 0.1076E+01, 0.1090E+01, 0.1104E+01,& - 0.1119E+01, 0.1133E+01, 0.1148E+01, 0.1163E+01,& - 0.1178E+01, 0.1193E+01, 0.1208E+01, 0.1224E+01,& - 0.1240E+01, 0.1256E+01, 0.1272E+01, 0.1288E+01,& - 0.1305E+01, 0.1322E+01, 0.1339E+01, 0.1357E+01,& - 0.1374E+01, 0.1392E+01, 0.1410E+01, 0.1429E+01,& - 0.1447E+01, 0.1466E+01, 0.1485E+01, 0.1504E+01,& - 0.1524E+01, 0.1544E+01, 0.1564E+01, 0.1585E+01,& - 0.1605E+01, 0.1626E+01, 0.1648E+01, 0.1669E+01,& - 0.1691E+01, 0.1713E+01, 0.1736E+01, 0.1759E+01,& - 0.1782E+01, 0.1806E+01, 0.1829E+01, 0.1854E+01,& - 0.1878E+01, 0.1903E+01, 0.1928E+01, 0.1954E+01,& - 0.1980E+01, 0.2006E+01, 0.2033E+01, 0.2060E+01,& - 0.2088E+01, 0.2116E+01, 0.2144E+01, 0.2173E+01,& - 0.2202E+01, 0.2232E+01, 0.2262E+01, 0.2293E+01,& - 0.2324E+01, 0.2356E+01, 0.2388E+01, 0.2420E+01,& - 0.2453E+01, 0.2487E+01, 0.2521E+01, 0.2556E+01,& - 0.2591E+01, 0.2627E+01, 0.2663E+01, 0.2700E+01,& - 0.2738E+01, 0.2776E+01, 0.2815E+01, 0.2854E+01,& - 0.2895E+01, 0.2935E+01, 0.2977E+01, 0.3019E+01,& - 0.3062E+01, 0.3106E+01, 0.3150E+01, 0.3196E+01,& - 0.3242E+01, 0.3289E+01, 0.3336E+01, 0.3385E+01,& - 0.3434E+01, 0.3485E+01, 0.3536E+01, 0.3588E+01,& - 0.3642E+01, 0.3696E+01, 0.3751E+01, 0.3808E+01,& - 0.3865E+01, 0.3924E+01, 0.3983E+01, 0.4044E+01,& - 0.4107E+01, 0.4170E+01, 0.4235E+01, 0.4301E+01,& - 0.4369E+01, 0.4438E+01, 0.4508E+01, 0.4580E+01,& - 0.4654E+01, 0.4729E+01, 0.4806E+01, 0.4885E+01,& - 0.4965E+01, 0.5048E+01, 0.5132E+01, 0.5218E+01,& - 0.5307E+01, 0.5397E+01, 0.5490E+01, 0.5586E+01,& - 0.5684E+01, 0.5784E+01, 0.5887E+01, 0.5993E+01,& - 0.6102E+01, 0.6214E+01, 0.6329E+01, 0.6447E+01,& - 0.6569E+01, 0.6694E+01, 0.6824E+01, 0.6957E+01,& - 0.7095E+01, 0.7237E+01, 0.7384E+01, 0.7536E+01,& - 0.7694E+01, 0.7857E+01, 0.8026E+01, 0.8201E+01,& - 0.8384E+01, 0.8573E+01, 0.8771E+01, 0.8977E+01,& - 0.9191E+01, 0.9416E+01, 0.9651E+01, 0.9897E+01,& - 0.1016E+02, 0.1043E+02, 0.1072E+02, 0.1102E+02,& - 0.1134E+02, 0.1168E+02, 0.1205E+02, 0.1244E+02,& - 0.1286E+02, 0.1331E+02, 0.1380E+02, 0.1433E+02,& - 0.1492E+02, 0.1556E+02, 0.1629E+02, 0.1710E+02,& - 0.1804E+02, 0.1914E+02, 0.2045E+02, 0.2208E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,122) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.6133E-04, 0.6133E-04, 0.6133E-04,& - 0.6133E-04, 0.6133E-04, 0.6133E-04, 0.6133E-04,& - 0.6133E-04, 0.6133E-04, 0.6133E-04, 0.6133E-04,& - 0.6133E-04, 0.6133E-04, 0.6133E-04, 0.6133E-04,& - 0.6133E-04, 0.6133E-04, 0.6133E-04, 0.6133E-04,& - 0.6133E-04, 0.1127E-03, 0.1127E-03, 0.1127E-03,& - 0.1127E-03, 0.1127E-03, 0.1127E-03, 0.1127E-03,& - 0.1127E-03, 0.1127E-03, 0.1127E-03, 0.1127E-03,& - 0.1127E-03, 0.1640E-03, 0.1640E-03, 0.1640E-03,& - 0.1640E-03, 0.1640E-03, 0.1640E-03, 0.1640E-03,& - 0.1640E-03, 0.1640E-03, 0.1640E-03, 0.2153E-03,& - 0.2153E-03, 0.2153E-03, 0.2153E-03, 0.2153E-03,& - 0.2153E-03, 0.2153E-03, 0.2153E-03, 0.2667E-03,& - 0.2667E-03, 0.2667E-03, 0.2667E-03, 0.2667E-03,& - 0.2667E-03, 0.3180E-03, 0.3180E-03, 0.3180E-03,& - 0.3180E-03, 0.3180E-03, 0.3180E-03, 0.3693E-03,& - 0.3693E-03, 0.3693E-03, 0.3693E-03, 0.3693E-03,& - 0.4207E-03, 0.4207E-03, 0.4207E-03, 0.4207E-03,& - 0.4720E-03, 0.4720E-03, 0.4720E-03, 0.4720E-03,& - 0.5233E-03, 0.5233E-03, 0.5233E-03, 0.5233E-03,& - 0.5747E-03, 0.5747E-03, 0.5747E-03, 0.5747E-03,& - 0.6260E-03, 0.6260E-03, 0.6260E-03, 0.6773E-03,& - 0.6773E-03, 0.6773E-03, 0.7287E-03, 0.7287E-03,& - 0.7287E-03, 0.7800E-03, 0.7800E-03, 0.8314E-03,& - 0.8314E-03, 0.8314E-03, 0.8827E-03, 0.8827E-03,& - 0.9340E-03, 0.9340E-03, 0.9854E-03, 0.9854E-03,& - 0.1037E-02, 0.1037E-02, 0.1088E-02, 0.1088E-02,& - 0.1139E-02, 0.1139E-02, 0.1191E-02, 0.1191E-02,& - 0.1242E-02, 0.1242E-02, 0.1293E-02, 0.1345E-02,& - 0.1345E-02, 0.1396E-02, 0.1396E-02, 0.1447E-02,& - 0.1499E-02, 0.1499E-02, 0.1550E-02, 0.1601E-02,& - 0.1653E-02, 0.1653E-02, 0.1704E-02, 0.1755E-02,& - 0.1807E-02, 0.1807E-02, 0.1858E-02, 0.1909E-02,& - 0.1961E-02, 0.2012E-02, 0.2063E-02, 0.2063E-02,& - 0.2115E-02, 0.2166E-02, 0.2217E-02, 0.2269E-02,& - 0.2320E-02, 0.2371E-02, 0.2423E-02, 0.2474E-02,& - 0.2525E-02, 0.2628E-02, 0.2679E-02, 0.2731E-02,& - 0.2782E-02, 0.2833E-02, 0.2885E-02, 0.2987E-02,& - 0.3039E-02, 0.3090E-02, 0.3141E-02, 0.3244E-02,& - 0.3295E-02, 0.3347E-02, 0.3449E-02, 0.3501E-02,& - 0.3603E-02, 0.3655E-02, 0.3757E-02, 0.3809E-02,& - 0.3911E-02, 0.3963E-02, 0.4065E-02, 0.4168E-02,& - 0.4219E-02, 0.4322E-02, 0.4425E-02, 0.4527E-02,& - 0.4579E-02, 0.4681E-02, 0.4784E-02, 0.4887E-02,& - 0.4989E-02, 0.5092E-02, 0.5195E-02, 0.5297E-02,& - 0.5400E-02, 0.5503E-02, 0.5657E-02, 0.5759E-02,& - 0.5862E-02, 0.5965E-02, 0.6119E-02, 0.6221E-02,& - 0.6375E-02, 0.6478E-02, 0.6581E-02, 0.6735E-02,& - 0.6889E-02, 0.6991E-02, 0.7145E-02, 0.7299E-02,& - 0.7454E-02, 0.7556E-02, 0.7710E-02, 0.7864E-02,& - 0.8018E-02, 0.8172E-02, 0.8326E-02, 0.8480E-02,& - 0.8686E-02, 0.8840E-02, 0.8994E-02, 0.9199E-02,& - 0.9353E-02, 0.9558E-02, 0.9712E-02, 0.9918E-02,& - 0.1007E-01, 0.1028E-01, 0.1048E-01, 0.1069E-01,& - 0.1089E-01, 0.1110E-01, 0.1130E-01, 0.1151E-01,& - 0.1171E-01, 0.1192E-01, 0.1218E-01, 0.1238E-01,& - 0.1264E-01, 0.1284E-01, 0.1310E-01, 0.1336E-01,& - 0.1356E-01, 0.1382E-01, 0.1408E-01, 0.1433E-01,& - 0.1459E-01, 0.1490E-01, 0.1515E-01, 0.1541E-01,& - 0.1572E-01, 0.1598E-01, 0.1628E-01, 0.1659E-01,& - 0.1685E-01, 0.1716E-01, 0.1746E-01, 0.1782E-01,& - 0.1813E-01, 0.1844E-01, 0.1875E-01, 0.1911E-01,& - 0.1947E-01, 0.1977E-01, 0.2013E-01, 0.2049E-01,& - 0.2085E-01, 0.2121E-01, 0.2162E-01, 0.2198E-01,& - 0.2239E-01, 0.2275E-01, 0.2316E-01, 0.2357E-01,& - 0.2398E-01, 0.2439E-01, 0.2480E-01, 0.2527E-01,& - 0.2568E-01, 0.2614E-01, 0.2655E-01, 0.2701E-01,& - 0.2747E-01, 0.2799E-01, 0.2845E-01, 0.2891E-01,& - 0.2942E-01, 0.2994E-01, 0.3045E-01, 0.3096E-01,& - 0.3148E-01, 0.3199E-01, 0.3256E-01, 0.3307E-01,& - 0.3363E-01, 0.3420E-01, 0.3476E-01, 0.3538E-01,& - 0.3594E-01, 0.3656E-01, 0.3718E-01, 0.3779E-01,& - 0.3841E-01, 0.3908E-01, 0.3969E-01, 0.4036E-01,& - 0.4103E-01, 0.4169E-01, 0.4236E-01, 0.4308E-01,& - 0.4380E-01, 0.4452E-01, 0.4524E-01, 0.4595E-01,& - 0.4672E-01, 0.4749E-01, 0.4826E-01, 0.4903E-01,& - 0.4980E-01, 0.5063E-01, 0.5145E-01, 0.5227E-01,& - 0.5309E-01, 0.5396E-01, 0.5484E-01, 0.5571E-01,& - 0.5658E-01, 0.5750E-01, 0.5843E-01, 0.5935E-01,& - 0.6028E-01, 0.6125E-01, 0.6223E-01, 0.6320E-01,& - 0.6418E-01, 0.6520E-01, 0.6623E-01, 0.6726E-01,& - 0.6834E-01, 0.6941E-01, 0.7049E-01, 0.7157E-01,& - 0.7270E-01, 0.7383E-01, 0.7496E-01, 0.7614E-01,& - 0.7732E-01, 0.7850E-01, 0.7973E-01, 0.8096E-01,& - 0.8220E-01, 0.8348E-01, 0.8476E-01, 0.8605E-01,& - 0.8738E-01, 0.8872E-01, 0.9010E-01, 0.9144E-01,& - 0.9282E-01, 0.9426E-01, 0.9570E-01, 0.9713E-01,& - 0.9862E-01, 0.1001E+00, 0.1016E+00, 0.1031E+00,& - 0.1047E+00, 0.1063E+00, 0.1079E+00, 0.1095E+00,& - 0.1111E+00, 0.1128E+00, 0.1145E+00, 0.1162E+00,& - 0.1179E+00, 0.1197E+00, 0.1215E+00, 0.1233E+00,& - 0.1251E+00, 0.1270E+00, 0.1288E+00, 0.1307E+00,& - 0.1327E+00, 0.1346E+00, 0.1366E+00, 0.1386E+00,& - 0.1406E+00, 0.1427E+00, 0.1448E+00, 0.1469E+00,& - 0.1490E+00, 0.1512E+00, 0.1534E+00, 0.1557E+00,& - 0.1579E+00, 0.1602E+00, 0.1625E+00, 0.1648E+00,& - 0.1673E+00, 0.1697E+00, 0.1721E+00, 0.1745E+00,& - 0.1771E+00, 0.1796E+00, 0.1822E+00, 0.1848E+00,& - 0.1874E+00, 0.1902E+00, 0.1928E+00, 0.1956E+00,& - 0.1984E+00, 0.2012E+00, 0.2041E+00, 0.2069E+00,& - 0.2099E+00, 0.2128E+00, 0.2159E+00, 0.2189E+00,& - 0.2220E+00, 0.2251E+00, 0.2283E+00, 0.2315E+00,& - 0.2348E+00, 0.2380E+00, 0.2414E+00, 0.2448E+00,& - 0.2482E+00, 0.2517E+00, 0.2552E+00, 0.2587E+00,& - 0.2623E+00, 0.2660E+00, 0.2697E+00, 0.2734E+00,& - 0.2772E+00, 0.2811E+00, 0.2850E+00, 0.2889E+00,& - 0.2929E+00, 0.2969E+00, 0.3010E+00, 0.3051E+00,& - 0.3094E+00, 0.3136E+00, 0.3179E+00, 0.3223E+00,& - 0.3267E+00, 0.3312E+00, 0.3357E+00, 0.3403E+00,& - 0.3449E+00, 0.3496E+00, 0.3544E+00, 0.3592E+00,& - 0.3641E+00, 0.3691E+00, 0.3741E+00, 0.3792E+00,& - 0.3843E+00, 0.3895E+00, 0.3948E+00, 0.4001E+00,& - 0.4055E+00, 0.4110E+00, 0.4165E+00, 0.4221E+00,& - 0.4278E+00, 0.4336E+00, 0.4394E+00, 0.4453E+00,& - 0.4513E+00, 0.4573E+00, 0.4635E+00, 0.4697E+00,& - 0.4760E+00, 0.4823E+00, 0.4888E+00, 0.4953E+00,& - 0.5020E+00, 0.5086E+00, 0.5154E+00, 0.5223E+00,& - 0.5292E+00, 0.5363E+00, 0.5434E+00, 0.5506E+00,& - 0.5579E+00, 0.5654E+00, 0.5729E+00, 0.5804E+00,& - 0.5881E+00, 0.5959E+00, 0.6038E+00, 0.6118E+00,& - 0.6199E+00, 0.6280E+00, 0.6364E+00, 0.6447E+00,& - 0.6532E+00, 0.6619E+00, 0.6706E+00, 0.6794E+00,& - 0.6884E+00, 0.6974E+00, 0.7066E+00, 0.7159E+00,& - 0.7253E+00, 0.7349E+00, 0.7445E+00, 0.7543E+00,& - 0.7642E+00, 0.7742E+00, 0.7843E+00, 0.7947E+00,& - 0.8051E+00, 0.8156E+00, 0.8263E+00, 0.8372E+00,& - 0.8481E+00, 0.8592E+00, 0.8705E+00, 0.8819E+00,& - 0.8934E+00, 0.9051E+00, 0.9169E+00, 0.9290E+00,& - 0.9411E+00, 0.9534E+00, 0.9659E+00, 0.9785E+00,& - 0.9913E+00, 0.1004E+01, 0.1017E+01, 0.1031E+01,& - 0.1044E+01, 0.1058E+01, 0.1072E+01, 0.1086E+01,& - 0.1100E+01, 0.1114E+01, 0.1129E+01, 0.1144E+01,& - 0.1159E+01, 0.1174E+01, 0.1189E+01, 0.1205E+01,& - 0.1221E+01, 0.1237E+01, 0.1253E+01, 0.1269E+01,& - 0.1286E+01, 0.1303E+01, 0.1320E+01, 0.1337E+01,& - 0.1355E+01, 0.1373E+01, 0.1391E+01, 0.1409E+01,& - 0.1428E+01, 0.1447E+01, 0.1466E+01, 0.1485E+01,& - 0.1505E+01, 0.1524E+01, 0.1545E+01, 0.1565E+01,& - 0.1586E+01, 0.1607E+01, 0.1628E+01, 0.1650E+01,& - 0.1672E+01, 0.1694E+01, 0.1717E+01, 0.1739E+01,& - 0.1763E+01, 0.1786E+01, 0.1810E+01, 0.1834E+01,& - 0.1859E+01, 0.1884E+01, 0.1909E+01, 0.1935E+01,& - 0.1961E+01, 0.1987E+01, 0.2014E+01, 0.2041E+01,& - 0.2069E+01, 0.2097E+01, 0.2126E+01, 0.2154E+01,& - 0.2184E+01, 0.2214E+01, 0.2244E+01, 0.2275E+01,& - 0.2306E+01, 0.2337E+01, 0.2370E+01, 0.2402E+01,& - 0.2436E+01, 0.2469E+01, 0.2504E+01, 0.2538E+01,& - 0.2574E+01, 0.2610E+01, 0.2646E+01, 0.2683E+01,& - 0.2721E+01, 0.2760E+01, 0.2799E+01, 0.2838E+01,& - 0.2879E+01, 0.2920E+01, 0.2961E+01, 0.3004E+01,& - 0.3047E+01, 0.3091E+01, 0.3136E+01, 0.3181E+01,& - 0.3228E+01, 0.3275E+01, 0.3323E+01, 0.3372E+01,& - 0.3422E+01, 0.3472E+01, 0.3524E+01, 0.3577E+01,& - 0.3630E+01, 0.3685E+01, 0.3740E+01, 0.3797E+01,& - 0.3855E+01, 0.3914E+01, 0.3974E+01, 0.4036E+01,& - 0.4099E+01, 0.4163E+01, 0.4228E+01, 0.4294E+01,& - 0.4363E+01, 0.4432E+01, 0.4503E+01, 0.4576E+01,& - 0.4650E+01, 0.4726E+01, 0.4803E+01, 0.4883E+01,& - 0.4964E+01, 0.5047E+01, 0.5132E+01, 0.5219E+01,& - 0.5309E+01, 0.5400E+01, 0.5494E+01, 0.5590E+01,& - 0.5689E+01, 0.5791E+01, 0.5895E+01, 0.6002E+01,& - 0.6111E+01, 0.6224E+01, 0.6340E+01, 0.6460E+01,& - 0.6583E+01, 0.6710E+01, 0.6841E+01, 0.6976E+01,& - 0.7115E+01, 0.7259E+01, 0.7407E+01, 0.7561E+01,& - 0.7720E+01, 0.7885E+01, 0.8056E+01, 0.8234E+01,& - 0.8418E+01, 0.8610E+01, 0.8810E+01, 0.9018E+01,& - 0.9232E+01, 0.9462E+01, 0.9700E+01, 0.9950E+01,& - 0.1021E+02, 0.1049E+02, 0.1078E+02, 0.1109E+02,& - 0.1141E+02, 0.1176E+02, 0.1213E+02, 0.1252E+02,& - 0.1295E+02, 0.1340E+02, 0.1390E+02, 0.1444E+02,& - 0.1503E+02, 0.1569E+02, 0.1642E+02, 0.1725E+02,& - 0.1820E+02, 0.1931E+02, 0.2065E+02, 0.2230E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,123) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.6208E-04,& - 0.6208E-04, 0.6208E-04, 0.6208E-04, 0.6208E-04,& - 0.6208E-04, 0.6208E-04, 0.6208E-04, 0.6208E-04,& - 0.6208E-04, 0.6208E-04, 0.6208E-04, 0.6208E-04,& - 0.6208E-04, 0.6208E-04, 0.6208E-04, 0.6208E-04,& - 0.6208E-04, 0.6208E-04, 0.1142E-03, 0.1142E-03,& - 0.1142E-03, 0.1142E-03, 0.1142E-03, 0.1142E-03,& - 0.1142E-03, 0.1142E-03, 0.1142E-03, 0.1142E-03,& - 0.1142E-03, 0.1142E-03, 0.1142E-03, 0.1662E-03,& - 0.1662E-03, 0.1662E-03, 0.1662E-03, 0.1662E-03,& - 0.1662E-03, 0.1662E-03, 0.1662E-03, 0.1662E-03,& - 0.1662E-03, 0.2183E-03, 0.2183E-03, 0.2183E-03,& - 0.2183E-03, 0.2183E-03, 0.2183E-03, 0.2183E-03,& - 0.2183E-03, 0.2704E-03, 0.2704E-03, 0.2704E-03,& - 0.2704E-03, 0.2704E-03, 0.2704E-03, 0.3225E-03,& - 0.3225E-03, 0.3225E-03, 0.3225E-03, 0.3225E-03,& - 0.3225E-03, 0.3746E-03, 0.3746E-03, 0.3746E-03,& - 0.3746E-03, 0.3746E-03, 0.4267E-03, 0.4267E-03,& - 0.4267E-03, 0.4267E-03, 0.4787E-03, 0.4787E-03,& - 0.4787E-03, 0.4787E-03, 0.5308E-03, 0.5308E-03,& - 0.5308E-03, 0.5308E-03, 0.5829E-03, 0.5829E-03,& - 0.5829E-03, 0.6350E-03, 0.6350E-03, 0.6350E-03,& - 0.6350E-03, 0.6871E-03, 0.6871E-03, 0.6871E-03,& - 0.7392E-03, 0.7392E-03, 0.7912E-03, 0.7912E-03,& - 0.7912E-03, 0.8433E-03, 0.8433E-03, 0.8954E-03,& - 0.8954E-03, 0.8954E-03, 0.9475E-03, 0.9475E-03,& - 0.9996E-03, 0.9996E-03, 0.1052E-02, 0.1052E-02,& - 0.1104E-02, 0.1104E-02, 0.1156E-02, 0.1156E-02,& - 0.1208E-02, 0.1208E-02, 0.1260E-02, 0.1260E-02,& - 0.1312E-02, 0.1364E-02, 0.1364E-02, 0.1416E-02,& - 0.1468E-02, 0.1468E-02, 0.1520E-02, 0.1572E-02,& - 0.1572E-02, 0.1625E-02, 0.1677E-02, 0.1677E-02,& - 0.1729E-02, 0.1781E-02, 0.1833E-02, 0.1885E-02,& - 0.1885E-02, 0.1937E-02, 0.1989E-02, 0.2041E-02,& - 0.2093E-02, 0.2145E-02, 0.2197E-02, 0.2250E-02,& - 0.2302E-02, 0.2354E-02, 0.2406E-02, 0.2458E-02,& - 0.2510E-02, 0.2562E-02, 0.2614E-02, 0.2666E-02,& - 0.2718E-02, 0.2770E-02, 0.2822E-02, 0.2927E-02,& - 0.2979E-02, 0.3031E-02, 0.3083E-02, 0.3187E-02,& - 0.3239E-02, 0.3291E-02, 0.3395E-02, 0.3447E-02,& - 0.3500E-02, 0.3604E-02, 0.3656E-02, 0.3760E-02,& - 0.3812E-02, 0.3916E-02, 0.3968E-02, 0.4072E-02,& - 0.4177E-02, 0.4229E-02, 0.4333E-02, 0.4437E-02,& - 0.4541E-02, 0.4593E-02, 0.4697E-02, 0.4802E-02,& - 0.4906E-02, 0.5010E-02, 0.5114E-02, 0.5218E-02,& - 0.5322E-02, 0.5427E-02, 0.5531E-02, 0.5635E-02,& - 0.5791E-02, 0.5895E-02, 0.5999E-02, 0.6104E-02,& - 0.6260E-02, 0.6364E-02, 0.6520E-02, 0.6624E-02,& - 0.6781E-02, 0.6885E-02, 0.7041E-02, 0.7197E-02,& - 0.7302E-02, 0.7458E-02, 0.7614E-02, 0.7770E-02,& - 0.7927E-02, 0.8083E-02, 0.8239E-02, 0.8395E-02,& - 0.8552E-02, 0.8708E-02, 0.8916E-02, 0.9072E-02,& - 0.9229E-02, 0.9437E-02, 0.9593E-02, 0.9802E-02,& - 0.9958E-02, 0.1017E-01, 0.1037E-01, 0.1058E-01,& - 0.1074E-01, 0.1095E-01, 0.1116E-01, 0.1136E-01,& - 0.1162E-01, 0.1183E-01, 0.1204E-01, 0.1225E-01,& - 0.1251E-01, 0.1272E-01, 0.1298E-01, 0.1319E-01,& - 0.1345E-01, 0.1371E-01, 0.1397E-01, 0.1423E-01,& - 0.1449E-01, 0.1475E-01, 0.1501E-01, 0.1532E-01,& - 0.1558E-01, 0.1584E-01, 0.1616E-01, 0.1647E-01,& - 0.1673E-01, 0.1704E-01, 0.1735E-01, 0.1767E-01,& - 0.1798E-01, 0.1834E-01, 0.1866E-01, 0.1897E-01,& - 0.1933E-01, 0.1970E-01, 0.2001E-01, 0.2037E-01,& - 0.2074E-01, 0.2110E-01, 0.2147E-01, 0.2188E-01,& - 0.2225E-01, 0.2267E-01, 0.2303E-01, 0.2345E-01,& - 0.2386E-01, 0.2428E-01, 0.2470E-01, 0.2517E-01,& - 0.2558E-01, 0.2605E-01, 0.2647E-01, 0.2694E-01,& - 0.2741E-01, 0.2787E-01, 0.2834E-01, 0.2886E-01,& - 0.2933E-01, 0.2985E-01, 0.3037E-01, 0.3089E-01,& - 0.3142E-01, 0.3194E-01, 0.3251E-01, 0.3303E-01,& - 0.3360E-01, 0.3418E-01, 0.3475E-01, 0.3532E-01,& - 0.3595E-01, 0.3657E-01, 0.3714E-01, 0.3777E-01,& - 0.3839E-01, 0.3907E-01, 0.3970E-01, 0.4037E-01,& - 0.4105E-01, 0.4173E-01, 0.4241E-01, 0.4313E-01,& - 0.4386E-01, 0.4454E-01, 0.4532E-01, 0.4605E-01,& - 0.4678E-01, 0.4756E-01, 0.4834E-01, 0.4912E-01,& - 0.4996E-01, 0.5074E-01, 0.5157E-01, 0.5241E-01,& - 0.5329E-01, 0.5412E-01, 0.5501E-01, 0.5589E-01,& - 0.5678E-01, 0.5772E-01, 0.5865E-01, 0.5959E-01,& - 0.6053E-01, 0.6152E-01, 0.6251E-01, 0.6350E-01,& - 0.6449E-01, 0.6553E-01, 0.6657E-01, 0.6761E-01,& - 0.6871E-01, 0.6980E-01, 0.7089E-01, 0.7199E-01,& - 0.7313E-01, 0.7428E-01, 0.7548E-01, 0.7662E-01,& - 0.7782E-01, 0.7907E-01, 0.8027E-01, 0.8152E-01,& - 0.8282E-01, 0.8412E-01, 0.8543E-01, 0.8673E-01,& - 0.8808E-01, 0.8944E-01, 0.9079E-01, 0.9220E-01,& - 0.9365E-01, 0.9506E-01, 0.9652E-01, 0.9803E-01,& - 0.9949E-01, 0.1011E+00, 0.1026E+00, 0.1041E+00,& - 0.1057E+00, 0.1073E+00, 0.1090E+00, 0.1106E+00,& - 0.1123E+00, 0.1140E+00, 0.1157E+00, 0.1175E+00,& - 0.1192E+00, 0.1210E+00, 0.1228E+00, 0.1246E+00,& - 0.1265E+00, 0.1284E+00, 0.1303E+00, 0.1323E+00,& - 0.1342E+00, 0.1363E+00, 0.1383E+00, 0.1403E+00,& - 0.1424E+00, 0.1445E+00, 0.1466E+00, 0.1488E+00,& - 0.1510E+00, 0.1532E+00, 0.1555E+00, 0.1578E+00,& - 0.1601E+00, 0.1624E+00, 0.1648E+00, 0.1672E+00,& - 0.1696E+00, 0.1721E+00, 0.1746E+00, 0.1771E+00,& - 0.1797E+00, 0.1824E+00, 0.1850E+00, 0.1877E+00,& - 0.1904E+00, 0.1931E+00, 0.1959E+00, 0.1988E+00,& - 0.2016E+00, 0.2045E+00, 0.2074E+00, 0.2104E+00,& - 0.2134E+00, 0.2165E+00, 0.2195E+00, 0.2227E+00,& - 0.2259E+00, 0.2291E+00, 0.2324E+00, 0.2356E+00,& - 0.2390E+00, 0.2424E+00, 0.2450E+00, 0.2493E+00,& - 0.2528E+00, 0.2564E+00, 0.2600E+00, 0.2637E+00,& - 0.2673E+00, 0.2712E+00, 0.2750E+00, 0.2788E+00,& - 0.2827E+00, 0.2867E+00, 0.2907E+00, 0.2947E+00,& - 0.2989E+00, 0.3030E+00, 0.3072E+00, 0.3115E+00,& - 0.3158E+00, 0.3202E+00, 0.3247E+00, 0.3292E+00,& - 0.3338E+00, 0.3384E+00, 0.3430E+00, 0.3478E+00,& - 0.3526E+00, 0.3575E+00, 0.3623E+00, 0.3673E+00,& - 0.3724E+00, 0.3775E+00, 0.3827E+00, 0.3880E+00,& - 0.3933E+00, 0.3986E+00, 0.4041E+00, 0.4096E+00,& - 0.4153E+00, 0.4209E+00, 0.4267E+00, 0.4325E+00,& - 0.4383E+00, 0.4443E+00, 0.4504E+00, 0.4565E+00,& - 0.4627E+00, 0.4690E+00, 0.4753E+00, 0.4818E+00,& - 0.4883E+00, 0.4949E+00, 0.5016E+00, 0.5083E+00,& - 0.5152E+00, 0.5221E+00, 0.5292E+00, 0.5364E+00,& - 0.5435E+00, 0.5509E+00, 0.5583E+00, 0.5658E+00,& - 0.5734E+00, 0.5811E+00, 0.5889E+00, 0.5968E+00,& - 0.6048E+00, 0.6129E+00, 0.6211E+00, 0.6294E+00,& - 0.6378E+00, 0.6464E+00, 0.6549E+00, 0.6637E+00,& - 0.6725E+00, 0.6816E+00, 0.6906E+00, 0.6998E+00,& - 0.7092E+00, 0.7186E+00, 0.7282E+00, 0.7379E+00,& - 0.7477E+00, 0.7577E+00, 0.7678E+00, 0.7780E+00,& - 0.7883E+00, 0.7987E+00, 0.8094E+00, 0.8201E+00,& - 0.8310E+00, 0.8420E+00, 0.8532E+00, 0.8645E+00,& - 0.8760E+00, 0.8876E+00, 0.8994E+00, 0.9113E+00,& - 0.9234E+00, 0.9356E+00, 0.9481E+00, 0.9606E+00,& - 0.9733E+00, 0.9862E+00, 0.9993E+00, 0.1013E+01,& - 0.1026E+01, 0.1040E+01, 0.1053E+01, 0.1067E+01,& - 0.1081E+01, 0.1096E+01, 0.1110E+01, 0.1125E+01,& - 0.1140E+01, 0.1155E+01, 0.1170E+01, 0.1186E+01,& - 0.1202E+01, 0.1218E+01, 0.1234E+01, 0.1250E+01,& - 0.1267E+01, 0.1284E+01, 0.1301E+01, 0.1318E+01,& - 0.1336E+01, 0.1353E+01, 0.1371E+01, 0.1390E+01,& - 0.1408E+01, 0.1427E+01, 0.1446E+01, 0.1465E+01,& - 0.1485E+01, 0.1505E+01, 0.1525E+01, 0.1546E+01,& - 0.1566E+01, 0.1587E+01, 0.1609E+01, 0.1630E+01,& - 0.1652E+01, 0.1674E+01, 0.1697E+01, 0.1720E+01,& - 0.1743E+01, 0.1767E+01, 0.1791E+01, 0.1815E+01,& - 0.1839E+01, 0.1864E+01, 0.1890E+01, 0.1915E+01,& - 0.1941E+01, 0.1968E+01, 0.1995E+01, 0.2022E+01,& - 0.2050E+01, 0.2078E+01, 0.2106E+01, 0.2135E+01,& - 0.2165E+01, 0.2195E+01, 0.2225E+01, 0.2256E+01,& - 0.2287E+01, 0.2319E+01, 0.2351E+01, 0.2384E+01,& - 0.2417E+01, 0.2451E+01, 0.2486E+01, 0.2521E+01,& - 0.2556E+01, 0.2592E+01, 0.2629E+01, 0.2666E+01,& - 0.2704E+01, 0.2743E+01, 0.2782E+01, 0.2822E+01,& - 0.2862E+01, 0.2904E+01, 0.2946E+01, 0.2988E+01,& - 0.3032E+01, 0.3076E+01, 0.3121E+01, 0.3167E+01,& - 0.3213E+01, 0.3261E+01, 0.3309E+01, 0.3358E+01,& - 0.3408E+01, 0.3459E+01, 0.3511E+01, 0.3564E+01,& - 0.3618E+01, 0.3673E+01, 0.3729E+01, 0.3786E+01,& - 0.3845E+01, 0.3904E+01, 0.3965E+01, 0.4027E+01,& - 0.4090E+01, 0.4154E+01, 0.4220E+01, 0.4287E+01,& - 0.4356E+01, 0.4426E+01, 0.4498E+01, 0.4571E+01,& - 0.4646E+01, 0.4722E+01, 0.4800E+01, 0.4881E+01,& - 0.4962E+01, 0.5046E+01, 0.5132E+01, 0.5220E+01,& - 0.5310E+01, 0.5403E+01, 0.5497E+01, 0.5594E+01,& - 0.5694E+01, 0.5796E+01, 0.5902E+01, 0.6009E+01,& - 0.6120E+01, 0.6234E+01, 0.6352E+01, 0.6473E+01,& - 0.6597E+01, 0.6725E+01, 0.6857E+01, 0.6994E+01,& - 0.7134E+01, 0.7280E+01, 0.7430E+01, 0.7585E+01,& - 0.7746E+01, 0.7913E+01, 0.8086E+01, 0.8265E+01,& - 0.8452E+01, 0.8646E+01, 0.8848E+01, 0.9059E+01,& - 0.9278E+01, 0.9508E+01, 0.9749E+01, 0.1000E+02,& - 0.1027E+02, 0.1055E+02, 0.1084E+02, 0.1115E+02,& - 0.1148E+02, 0.1183E+02, 0.1221E+02, 0.1261E+02,& - 0.1304E+02, 0.1350E+02, 0.1400E+02, 0.1455E+02,& - 0.1515E+02, 0.1582E+02, 0.1656E+02, 0.1740E+02,& - 0.1836E+02, 0.1949E+02, 0.2084E+02, 0.2252E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,124) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.6284E-04, 0.6284E-04, 0.6284E-04, 0.6284E-04,& - 0.6284E-04, 0.6284E-04, 0.6284E-04, 0.6284E-04,& - 0.6284E-04, 0.6284E-04, 0.6284E-04, 0.6284E-04,& - 0.6284E-04, 0.6284E-04, 0.6284E-04, 0.6284E-04,& - 0.6284E-04, 0.6284E-04, 0.6284E-04, 0.6284E-04,& - 0.1157E-03, 0.1157E-03, 0.1157E-03, 0.1157E-03,& - 0.1157E-03, 0.1157E-03, 0.1157E-03, 0.1157E-03,& - 0.1157E-03, 0.1157E-03, 0.1157E-03, 0.1157E-03,& - 0.1157E-03, 0.1685E-03, 0.1685E-03, 0.1685E-03,& - 0.1685E-03, 0.1685E-03, 0.1685E-03, 0.1685E-03,& - 0.1685E-03, 0.1685E-03, 0.1685E-03, 0.2213E-03,& - 0.2213E-03, 0.2213E-03, 0.2213E-03, 0.2213E-03,& - 0.2213E-03, 0.2213E-03, 0.2742E-03, 0.2742E-03,& - 0.2742E-03, 0.2742E-03, 0.2742E-03, 0.2742E-03,& - 0.2742E-03, 0.3270E-03, 0.3270E-03, 0.3270E-03,& - 0.3270E-03, 0.3270E-03, 0.3270E-03, 0.3799E-03,& - 0.3799E-03, 0.3799E-03, 0.3799E-03, 0.3799E-03,& - 0.4327E-03, 0.4327E-03, 0.4327E-03, 0.4327E-03,& - 0.4855E-03, 0.4855E-03, 0.4855E-03, 0.4855E-03,& - 0.5384E-03, 0.5384E-03, 0.5384E-03, 0.5384E-03,& - 0.5912E-03, 0.5912E-03, 0.5912E-03, 0.6440E-03,& - 0.6440E-03, 0.6440E-03, 0.6969E-03, 0.6969E-03,& - 0.6969E-03, 0.7497E-03, 0.7497E-03, 0.7497E-03,& - 0.8025E-03, 0.8025E-03, 0.8025E-03, 0.8554E-03,& - 0.8554E-03, 0.9082E-03, 0.9082E-03, 0.9082E-03,& - 0.9611E-03, 0.9611E-03, 0.1014E-02, 0.1014E-02,& - 0.1067E-02, 0.1067E-02, 0.1120E-02, 0.1120E-02,& - 0.1172E-02, 0.1172E-02, 0.1225E-02, 0.1225E-02,& - 0.1278E-02, 0.1331E-02, 0.1331E-02, 0.1384E-02,& - 0.1384E-02, 0.1437E-02, 0.1489E-02, 0.1489E-02,& - 0.1542E-02, 0.1595E-02, 0.1595E-02, 0.1648E-02,& - 0.1701E-02, 0.1754E-02, 0.1754E-02, 0.1806E-02,& - 0.1859E-02, 0.1912E-02, 0.1965E-02, 0.2018E-02,& - 0.2018E-02, 0.2071E-02, 0.2123E-02, 0.2176E-02,& - 0.2229E-02, 0.2282E-02, 0.2335E-02, 0.2388E-02,& - 0.2440E-02, 0.2493E-02, 0.2546E-02, 0.2599E-02,& - 0.2652E-02, 0.2705E-02, 0.2757E-02, 0.2863E-02,& - 0.2916E-02, 0.2969E-02, 0.3022E-02, 0.3075E-02,& - 0.3180E-02, 0.3233E-02, 0.3286E-02, 0.3392E-02,& - 0.3444E-02, 0.3550E-02, 0.3603E-02, 0.3656E-02,& - 0.3761E-02, 0.3814E-02, 0.3920E-02, 0.4026E-02,& - 0.4078E-02, 0.4184E-02, 0.4237E-02, 0.4343E-02,& - 0.4448E-02, 0.4554E-02, 0.4607E-02, 0.4712E-02,& - 0.4818E-02, 0.4924E-02, 0.5029E-02, 0.5135E-02,& - 0.5241E-02, 0.5346E-02, 0.5452E-02, 0.5558E-02,& - 0.5664E-02, 0.5822E-02, 0.5928E-02, 0.6033E-02,& - 0.6139E-02, 0.6298E-02, 0.6403E-02, 0.6562E-02,& - 0.6667E-02, 0.6826E-02, 0.6932E-02, 0.7090E-02,& - 0.7249E-02, 0.7354E-02, 0.7513E-02, 0.7671E-02,& - 0.7830E-02, 0.7988E-02, 0.8147E-02, 0.8305E-02,& - 0.8464E-02, 0.8622E-02, 0.8781E-02, 0.8939E-02,& - 0.9151E-02, 0.9309E-02, 0.9521E-02, 0.9679E-02,& - 0.9890E-02, 0.1005E-01, 0.1026E-01, 0.1047E-01,& - 0.1063E-01, 0.1084E-01, 0.1105E-01, 0.1126E-01,& - 0.1148E-01, 0.1169E-01, 0.1195E-01, 0.1216E-01,& - 0.1237E-01, 0.1264E-01, 0.1285E-01, 0.1311E-01,& - 0.1332E-01, 0.1359E-01, 0.1385E-01, 0.1412E-01,& - 0.1438E-01, 0.1465E-01, 0.1491E-01, 0.1517E-01,& - 0.1549E-01, 0.1576E-01, 0.1602E-01, 0.1634E-01,& - 0.1665E-01, 0.1697E-01, 0.1723E-01, 0.1755E-01,& - 0.1787E-01, 0.1824E-01, 0.1856E-01, 0.1887E-01,& - 0.1924E-01, 0.1956E-01, 0.1993E-01, 0.2030E-01,& - 0.2067E-01, 0.2104E-01, 0.2141E-01, 0.2178E-01,& - 0.2215E-01, 0.2257E-01, 0.2294E-01, 0.2336E-01,& - 0.2379E-01, 0.2421E-01, 0.2463E-01, 0.2505E-01,& - 0.2553E-01, 0.2595E-01, 0.2643E-01, 0.2690E-01,& - 0.2733E-01, 0.2780E-01, 0.2833E-01, 0.2881E-01,& - 0.2928E-01, 0.2981E-01, 0.3034E-01, 0.3087E-01,& - 0.3139E-01, 0.3192E-01, 0.3245E-01, 0.3303E-01,& - 0.3361E-01, 0.3420E-01, 0.3478E-01, 0.3536E-01,& - 0.3594E-01, 0.3657E-01, 0.3721E-01, 0.3779E-01,& - 0.3847E-01, 0.3911E-01, 0.3974E-01, 0.4043E-01,& - 0.4112E-01, 0.4180E-01, 0.4249E-01, 0.4323E-01,& - 0.4392E-01, 0.4466E-01, 0.4540E-01, 0.4619E-01,& - 0.4693E-01, 0.4772E-01, 0.4851E-01, 0.4931E-01,& - 0.5010E-01, 0.5094E-01, 0.5179E-01, 0.5264E-01,& - 0.5348E-01, 0.5438E-01, 0.5522E-01, 0.5612E-01,& - 0.5707E-01, 0.5797E-01, 0.5892E-01, 0.5987E-01,& - 0.6088E-01, 0.6183E-01, 0.6283E-01, 0.6384E-01,& - 0.6489E-01, 0.6590E-01, 0.6695E-01, 0.6806E-01,& - 0.6912E-01, 0.7023E-01, 0.7134E-01, 0.7250E-01,& - 0.7366E-01, 0.7483E-01, 0.7599E-01, 0.7720E-01,& - 0.7842E-01, 0.7969E-01, 0.8090E-01, 0.8222E-01,& - 0.8349E-01, 0.8481E-01, 0.8613E-01, 0.8745E-01,& - 0.8883E-01, 0.9025E-01, 0.9163E-01, 0.9306E-01,& - 0.9453E-01, 0.9596E-01, 0.9744E-01, 0.9897E-01,& - 0.1005E+00, 0.1020E+00, 0.1036E+00, 0.1052E+00,& - 0.1068E+00, 0.1085E+00, 0.1101E+00, 0.1118E+00,& - 0.1136E+00, 0.1152E+00, 0.1170E+00, 0.1188E+00,& - 0.1206E+00, 0.1224E+00, 0.1243E+00, 0.1262E+00,& - 0.1281E+00, 0.1300E+00, 0.1320E+00, 0.1340E+00,& - 0.1360E+00, 0.1380E+00, 0.1401E+00, 0.1422E+00,& - 0.1443E+00, 0.1465E+00, 0.1487E+00, 0.1509E+00,& - 0.1531E+00, 0.1554E+00, 0.1577E+00, 0.1601E+00,& - 0.1624E+00, 0.1649E+00, 0.1673E+00, 0.1698E+00,& - 0.1723E+00, 0.1748E+00, 0.1774E+00, 0.1800E+00,& - 0.1826E+00, 0.1853E+00, 0.1880E+00, 0.1907E+00,& - 0.1936E+00, 0.1964E+00, 0.1992E+00, 0.2021E+00,& - 0.2051E+00, 0.2080E+00, 0.2110E+00, 0.2141E+00,& - 0.2172E+00, 0.2203E+00, 0.2235E+00, 0.2267E+00,& - 0.2300E+00, 0.2333E+00, 0.2367E+00, 0.2401E+00,& - 0.2435E+00, 0.2470E+00, 0.2506E+00, 0.2542E+00,& - 0.2577E+00, 0.2614E+00, 0.2651E+00, 0.2689E+00,& - 0.2728E+00, 0.2767E+00, 0.2806E+00, 0.2845E+00,& - 0.2886E+00, 0.2927E+00, 0.2968E+00, 0.3010E+00,& - 0.3052E+00, 0.3095E+00, 0.3139E+00, 0.3183E+00,& - 0.3228E+00, 0.3273E+00, 0.3319E+00, 0.3366E+00,& - 0.3413E+00, 0.3460E+00, 0.3509E+00, 0.3558E+00,& - 0.3608E+00, 0.3658E+00, 0.3709E+00, 0.3760E+00,& - 0.3813E+00, 0.3866E+00, 0.3920E+00, 0.3973E+00,& - 0.4029E+00, 0.4084E+00, 0.4141E+00, 0.4198E+00,& - 0.4256E+00, 0.4315E+00, 0.4374E+00, 0.4435E+00,& - 0.4496E+00, 0.4558E+00, 0.4620E+00, 0.4684E+00,& - 0.4748E+00, 0.4814E+00, 0.4879E+00, 0.4946E+00,& - 0.5014E+00, 0.5082E+00, 0.5152E+00, 0.5222E+00,& - 0.5294E+00, 0.5366E+00, 0.5439E+00, 0.5513E+00,& - 0.5588E+00, 0.5664E+00, 0.5741E+00, 0.5820E+00,& - 0.5899E+00, 0.5979E+00, 0.6060E+00, 0.6142E+00,& - 0.6225E+00, 0.6310E+00, 0.6395E+00, 0.6482E+00,& - 0.6569E+00, 0.6659E+00, 0.6748E+00, 0.6840E+00,& - 0.6932E+00, 0.7026E+00, 0.7120E+00, 0.7217E+00,& - 0.7314E+00, 0.7413E+00, 0.7512E+00, 0.7613E+00,& - 0.7716E+00, 0.7820E+00, 0.7925E+00, 0.8032E+00,& - 0.8140E+00, 0.8249E+00, 0.8360E+00, 0.8473E+00,& - 0.8587E+00, 0.8702E+00, 0.8819E+00, 0.8937E+00,& - 0.9057E+00, 0.9179E+00, 0.9302E+00, 0.9427E+00,& - 0.9554E+00, 0.9682E+00, 0.9812E+00, 0.9944E+00,& - 0.1008E+01, 0.1021E+01, 0.1035E+01, 0.1049E+01,& - 0.1063E+01, 0.1077E+01, 0.1092E+01, 0.1106E+01,& - 0.1121E+01, 0.1136E+01, 0.1152E+01, 0.1167E+01,& - 0.1183E+01, 0.1199E+01, 0.1215E+01, 0.1231E+01,& - 0.1248E+01, 0.1264E+01, 0.1282E+01, 0.1299E+01,& - 0.1316E+01, 0.1334E+01, 0.1352E+01, 0.1370E+01,& - 0.1389E+01, 0.1408E+01, 0.1427E+01, 0.1446E+01,& - 0.1465E+01, 0.1485E+01, 0.1505E+01, 0.1526E+01,& - 0.1547E+01, 0.1568E+01, 0.1589E+01, 0.1610E+01,& - 0.1632E+01, 0.1655E+01, 0.1677E+01, 0.1700E+01,& - 0.1723E+01, 0.1747E+01, 0.1771E+01, 0.1795E+01,& - 0.1820E+01, 0.1845E+01, 0.1870E+01, 0.1896E+01,& - 0.1922E+01, 0.1948E+01, 0.1975E+01, 0.2003E+01,& - 0.2030E+01, 0.2059E+01, 0.2087E+01, 0.2116E+01,& - 0.2146E+01, 0.2176E+01, 0.2206E+01, 0.2237E+01,& - 0.2268E+01, 0.2300E+01, 0.2333E+01, 0.2366E+01,& - 0.2399E+01, 0.2433E+01, 0.2468E+01, 0.2503E+01,& - 0.2538E+01, 0.2575E+01, 0.2611E+01, 0.2649E+01,& - 0.2687E+01, 0.2726E+01, 0.2765E+01, 0.2805E+01,& - 0.2846E+01, 0.2887E+01, 0.2929E+01, 0.2972E+01,& - 0.3016E+01, 0.3060E+01, 0.3106E+01, 0.3152E+01,& - 0.3198E+01, 0.3246E+01, 0.3295E+01, 0.3344E+01,& - 0.3395E+01, 0.3446E+01, 0.3498E+01, 0.3552E+01,& - 0.3606E+01, 0.3661E+01, 0.3718E+01, 0.3775E+01,& - 0.3834E+01, 0.3894E+01, 0.3955E+01, 0.4017E+01,& - 0.4081E+01, 0.4146E+01, 0.4212E+01, 0.4280E+01,& - 0.4349E+01, 0.4419E+01, 0.4492E+01, 0.4565E+01,& - 0.4641E+01, 0.4718E+01, 0.4797E+01, 0.4878E+01,& - 0.4960E+01, 0.5045E+01, 0.5131E+01, 0.5220E+01,& - 0.5311E+01, 0.5404E+01, 0.5500E+01, 0.5598E+01,& - 0.5698E+01, 0.5802E+01, 0.5908E+01, 0.6017E+01,& - 0.6129E+01, 0.6244E+01, 0.6362E+01, 0.6484E+01,& - 0.6610E+01, 0.6740E+01, 0.6873E+01, 0.7010E+01,& - 0.7153E+01, 0.7300E+01, 0.7452E+01, 0.7609E+01,& - 0.7771E+01, 0.7940E+01, 0.8115E+01, 0.8296E+01,& - 0.8485E+01, 0.8681E+01, 0.8885E+01, 0.9099E+01,& - 0.9321E+01, 0.9553E+01, 0.9797E+01, 0.1005E+02,& - 0.1032E+02, 0.1060E+02, 0.1090E+02, 0.1122E+02,& - 0.1155E+02, 0.1191E+02, 0.1228E+02, 0.1269E+02,& - 0.1312E+02, 0.1359E+02, 0.1410E+02, 0.1466E+02,& - 0.1527E+02, 0.1594E+02, 0.1669E+02, 0.1755E+02,& - 0.1852E+02, 0.1964E+02, 0.2104E+02, 0.2274E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,125) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.6360E-04, 0.6360E-04,& - 0.6360E-04, 0.6360E-04, 0.6360E-04, 0.6360E-04,& - 0.6360E-04, 0.6360E-04, 0.6360E-04, 0.6360E-04,& - 0.6360E-04, 0.6360E-04, 0.6360E-04, 0.6360E-04,& - 0.6360E-04, 0.6360E-04, 0.6360E-04, 0.6360E-04,& - 0.6360E-04, 0.6360E-04, 0.1172E-03, 0.1172E-03,& - 0.1172E-03, 0.1172E-03, 0.1172E-03, 0.1172E-03,& - 0.1172E-03, 0.1172E-03, 0.1172E-03, 0.1172E-03,& - 0.1172E-03, 0.1172E-03, 0.1172E-03, 0.1708E-03,& - 0.1708E-03, 0.1708E-03, 0.1708E-03, 0.1708E-03,& - 0.1708E-03, 0.1708E-03, 0.1708E-03, 0.1708E-03,& - 0.2244E-03, 0.2244E-03, 0.2244E-03, 0.2244E-03,& - 0.2244E-03, 0.2244E-03, 0.2244E-03, 0.2244E-03,& - 0.2780E-03, 0.2780E-03, 0.2780E-03, 0.2780E-03,& - 0.2780E-03, 0.2780E-03, 0.2780E-03, 0.3316E-03,& - 0.3316E-03, 0.3316E-03, 0.3316E-03, 0.3316E-03,& - 0.3852E-03, 0.3852E-03, 0.3852E-03, 0.3852E-03,& - 0.3852E-03, 0.4388E-03, 0.4388E-03, 0.4388E-03,& - 0.4388E-03, 0.4388E-03, 0.4924E-03, 0.4924E-03,& - 0.4924E-03, 0.4924E-03, 0.5460E-03, 0.5460E-03,& - 0.5460E-03, 0.5460E-03, 0.5996E-03, 0.5996E-03,& - 0.5996E-03, 0.6532E-03, 0.6532E-03, 0.6532E-03,& - 0.7068E-03, 0.7068E-03, 0.7068E-03, 0.7604E-03,& - 0.7604E-03, 0.7604E-03, 0.8139E-03, 0.8139E-03,& - 0.8675E-03, 0.8675E-03, 0.8675E-03, 0.9211E-03,& - 0.9211E-03, 0.9747E-03, 0.9747E-03, 0.1028E-02,& - 0.1028E-02, 0.1028E-02, 0.1082E-02, 0.1082E-02,& - 0.1136E-02, 0.1136E-02, 0.1189E-02, 0.1243E-02,& - 0.1243E-02, 0.1296E-02, 0.1296E-02, 0.1350E-02,& - 0.1350E-02, 0.1404E-02, 0.1457E-02, 0.1457E-02,& - 0.1511E-02, 0.1564E-02, 0.1564E-02, 0.1618E-02,& - 0.1671E-02, 0.1671E-02, 0.1725E-02, 0.1779E-02,& - 0.1832E-02, 0.1886E-02, 0.1886E-02, 0.1939E-02,& - 0.1993E-02, 0.2047E-02, 0.2100E-02, 0.2154E-02,& - 0.2207E-02, 0.2207E-02, 0.2261E-02, 0.2315E-02,& - 0.2368E-02, 0.2422E-02, 0.2475E-02, 0.2529E-02,& - 0.2583E-02, 0.2690E-02, 0.2743E-02, 0.2797E-02,& - 0.2851E-02, 0.2904E-02, 0.2958E-02, 0.3065E-02,& - 0.3119E-02, 0.3172E-02, 0.3226E-02, 0.3333E-02,& - 0.3387E-02, 0.3440E-02, 0.3547E-02, 0.3601E-02,& - 0.3708E-02, 0.3762E-02, 0.3869E-02, 0.3923E-02,& - 0.4030E-02, 0.4083E-02, 0.4191E-02, 0.4298E-02,& - 0.4351E-02, 0.4459E-02, 0.4566E-02, 0.4673E-02,& - 0.4726E-02, 0.4834E-02, 0.4941E-02, 0.5048E-02,& - 0.5155E-02, 0.5262E-02, 0.5370E-02, 0.5477E-02,& - 0.5584E-02, 0.5745E-02, 0.5852E-02, 0.5959E-02,& - 0.6066E-02, 0.6227E-02, 0.6334E-02, 0.6442E-02,& - 0.6602E-02, 0.6710E-02, 0.6870E-02, 0.6978E-02,& - 0.7138E-02, 0.7299E-02, 0.7406E-02, 0.7567E-02,& - 0.7728E-02, 0.7889E-02, 0.8049E-02, 0.8210E-02,& - 0.8371E-02, 0.8532E-02, 0.8693E-02, 0.8853E-02,& - 0.9068E-02, 0.9229E-02, 0.9389E-02, 0.9604E-02,& - 0.9765E-02, 0.9979E-02, 0.1014E-01, 0.1035E-01,& - 0.1057E-01, 0.1078E-01, 0.1094E-01, 0.1116E-01,& - 0.1137E-01, 0.1159E-01, 0.1185E-01, 0.1207E-01,& - 0.1228E-01, 0.1250E-01, 0.1277E-01, 0.1298E-01,& - 0.1325E-01, 0.1352E-01, 0.1373E-01, 0.1400E-01,& - 0.1427E-01, 0.1453E-01, 0.1480E-01, 0.1507E-01,& - 0.1539E-01, 0.1566E-01, 0.1593E-01, 0.1625E-01,& - 0.1657E-01, 0.1684E-01, 0.1716E-01, 0.1748E-01,& - 0.1780E-01, 0.1813E-01, 0.1845E-01, 0.1882E-01,& - 0.1914E-01, 0.1952E-01, 0.1984E-01, 0.2022E-01,& - 0.2059E-01, 0.2097E-01, 0.2134E-01, 0.2172E-01,& - 0.2209E-01, 0.2252E-01, 0.2290E-01, 0.2332E-01,& - 0.2375E-01, 0.2413E-01, 0.2461E-01, 0.2504E-01,& - 0.2547E-01, 0.2590E-01, 0.2638E-01, 0.2686E-01,& - 0.2734E-01, 0.2777E-01, 0.2831E-01, 0.2879E-01,& - 0.2927E-01, 0.2981E-01, 0.3035E-01, 0.3083E-01,& - 0.3136E-01, 0.3195E-01, 0.3249E-01, 0.3303E-01,& - 0.3362E-01, 0.3420E-01, 0.3479E-01, 0.3538E-01,& - 0.3597E-01, 0.3662E-01, 0.3726E-01, 0.3790E-01,& - 0.3855E-01, 0.3919E-01, 0.3983E-01, 0.4053E-01,& - 0.4123E-01, 0.4192E-01, 0.4262E-01, 0.4332E-01,& - 0.4407E-01, 0.4482E-01, 0.4557E-01, 0.4632E-01,& - 0.4712E-01, 0.4787E-01, 0.4868E-01, 0.4948E-01,& - 0.5034E-01, 0.5114E-01, 0.5200E-01, 0.5286E-01,& - 0.5377E-01, 0.5462E-01, 0.5554E-01, 0.5645E-01,& - 0.5736E-01, 0.5832E-01, 0.5929E-01, 0.6025E-01,& - 0.6122E-01, 0.6224E-01, 0.6325E-01, 0.6427E-01,& - 0.6529E-01, 0.6636E-01, 0.6743E-01, 0.6856E-01,& - 0.6963E-01, 0.7076E-01, 0.7188E-01, 0.7306E-01,& - 0.7424E-01, 0.7542E-01, 0.7665E-01, 0.7789E-01,& - 0.7912E-01, 0.8035E-01, 0.8164E-01, 0.8292E-01,& - 0.8426E-01, 0.8560E-01, 0.8694E-01, 0.8834E-01,& - 0.8973E-01, 0.9112E-01, 0.9257E-01, 0.9402E-01,& - 0.9547E-01, 0.9697E-01, 0.9852E-01, 0.1000E+00,& - 0.1016E+00, 0.1032E+00, 0.1048E+00, 0.1064E+00,& - 0.1081E+00, 0.1097E+00, 0.1114E+00, 0.1132E+00,& - 0.1149E+00, 0.1167E+00, 0.1185E+00, 0.1203E+00,& - 0.1222E+00, 0.1240E+00, 0.1259E+00, 0.1278E+00,& - 0.1298E+00, 0.1318E+00, 0.1338E+00, 0.1358E+00,& - 0.1379E+00, 0.1400E+00, 0.1421E+00, 0.1442E+00,& - 0.1464E+00, 0.1486E+00, 0.1509E+00, 0.1531E+00,& - 0.1554E+00, 0.1578E+00, 0.1602E+00, 0.1626E+00,& - 0.1650E+00, 0.1674E+00, 0.1700E+00, 0.1725E+00,& - 0.1751E+00, 0.1777E+00, 0.1803E+00, 0.1830E+00,& - 0.1857E+00, 0.1885E+00, 0.1912E+00, 0.1941E+00,& - 0.1969E+00, 0.1998E+00, 0.2028E+00, 0.2058E+00,& - 0.2088E+00, 0.2118E+00, 0.2149E+00, 0.2181E+00,& - 0.2213E+00, 0.2245E+00, 0.2278E+00, 0.2311E+00,& - 0.2344E+00, 0.2379E+00, 0.2414E+00, 0.2448E+00,& - 0.2484E+00, 0.2520E+00, 0.2556E+00, 0.2593E+00,& - 0.2631E+00, 0.2669E+00, 0.2707E+00, 0.2746E+00,& - 0.2786E+00, 0.2825E+00, 0.2866E+00, 0.2907E+00,& - 0.2948E+00, 0.2991E+00, 0.3034E+00, 0.3077E+00,& - 0.3120E+00, 0.3165E+00, 0.3210E+00, 0.3256E+00,& - 0.3302E+00, 0.3349E+00, 0.3397E+00, 0.3445E+00,& - 0.3493E+00, 0.3543E+00, 0.3593E+00, 0.3644E+00,& - 0.3695E+00, 0.3747E+00, 0.3800E+00, 0.3853E+00,& - 0.3907E+00, 0.3962E+00, 0.4018E+00, 0.4074E+00,& - 0.4131E+00, 0.4189E+00, 0.4248E+00, 0.4307E+00,& - 0.4367E+00, 0.4428E+00, 0.4490E+00, 0.4552E+00,& - 0.4616E+00, 0.4680E+00, 0.4745E+00, 0.4811E+00,& - 0.4877E+00, 0.4945E+00, 0.5014E+00, 0.5083E+00,& - 0.5154E+00, 0.5225E+00, 0.5297E+00, 0.5370E+00,& - 0.5444E+00, 0.5519E+00, 0.5596E+00, 0.5673E+00,& - 0.5751E+00, 0.5830E+00, 0.5911E+00, 0.5992E+00,& - 0.6074E+00, 0.6158E+00, 0.6242E+00, 0.6328E+00,& - 0.6415E+00, 0.6502E+00, 0.6592E+00, 0.6682E+00,& - 0.6774E+00, 0.6866E+00, 0.6960E+00, 0.7056E+00,& - 0.7152E+00, 0.7250E+00, 0.7349E+00, 0.7449E+00,& - 0.7551E+00, 0.7654E+00, 0.7758E+00, 0.7864E+00,& - 0.7971E+00, 0.8080E+00, 0.8190E+00, 0.8302E+00,& - 0.8415E+00, 0.8529E+00, 0.8645E+00, 0.8762E+00,& - 0.8882E+00, 0.9003E+00, 0.9125E+00, 0.9250E+00,& - 0.9375E+00, 0.9503E+00, 0.9632E+00, 0.9763E+00,& - 0.9896E+00, 0.1003E+01, 0.1017E+01, 0.1031E+01,& - 0.1045E+01, 0.1059E+01, 0.1073E+01, 0.1088E+01,& - 0.1103E+01, 0.1118E+01, 0.1133E+01, 0.1148E+01,& - 0.1164E+01, 0.1180E+01, 0.1196E+01, 0.1212E+01,& - 0.1229E+01, 0.1245E+01, 0.1262E+01, 0.1279E+01,& - 0.1297E+01, 0.1315E+01, 0.1333E+01, 0.1351E+01,& - 0.1369E+01, 0.1388E+01, 0.1407E+01, 0.1426E+01,& - 0.1446E+01, 0.1466E+01, 0.1486E+01, 0.1506E+01,& - 0.1527E+01, 0.1548E+01, 0.1569E+01, 0.1591E+01,& - 0.1613E+01, 0.1635E+01, 0.1657E+01, 0.1680E+01,& - 0.1703E+01, 0.1727E+01, 0.1751E+01, 0.1775E+01,& - 0.1800E+01, 0.1825E+01, 0.1850E+01, 0.1876E+01,& - 0.1902E+01, 0.1929E+01, 0.1956E+01, 0.1983E+01,& - 0.2011E+01, 0.2039E+01, 0.2068E+01, 0.2097E+01,& - 0.2126E+01, 0.2156E+01, 0.2187E+01, 0.2218E+01,& - 0.2249E+01, 0.2281E+01, 0.2314E+01, 0.2347E+01,& - 0.2380E+01, 0.2414E+01, 0.2449E+01, 0.2484E+01,& - 0.2520E+01, 0.2556E+01, 0.2593E+01, 0.2631E+01,& - 0.2669E+01, 0.2708E+01, 0.2748E+01, 0.2788E+01,& - 0.2829E+01, 0.2870E+01, 0.2913E+01, 0.2956E+01,& - 0.3000E+01, 0.3044E+01, 0.3090E+01, 0.3136E+01,& - 0.3183E+01, 0.3231E+01, 0.3280E+01, 0.3330E+01,& - 0.3380E+01, 0.3432E+01, 0.3485E+01, 0.3538E+01,& - 0.3593E+01, 0.3649E+01, 0.3706E+01, 0.3763E+01,& - 0.3823E+01, 0.3883E+01, 0.3944E+01, 0.4007E+01,& - 0.4071E+01, 0.4136E+01, 0.4203E+01, 0.4271E+01,& - 0.4341E+01, 0.4412E+01, 0.4485E+01, 0.4559E+01,& - 0.4635E+01, 0.4713E+01, 0.4793E+01, 0.4874E+01,& - 0.4957E+01, 0.5043E+01, 0.5130E+01, 0.5220E+01,& - 0.5311E+01, 0.5405E+01, 0.5502E+01, 0.5601E+01,& - 0.5702E+01, 0.5806E+01, 0.5913E+01, 0.6023E+01,& - 0.6136E+01, 0.6253E+01, 0.6372E+01, 0.6496E+01,& - 0.6623E+01, 0.6753E+01, 0.6888E+01, 0.7027E+01,& - 0.7171E+01, 0.7319E+01, 0.7473E+01, 0.7632E+01,& - 0.7796E+01, 0.7966E+01, 0.8143E+01, 0.8327E+01,& - 0.8517E+01, 0.8716E+01, 0.8922E+01, 0.9138E+01,& - 0.9363E+01, 0.9598E+01, 0.9845E+01, 0.1010E+02,& - 0.1037E+02, 0.1066E+02, 0.1096E+02, 0.1128E+02,& - 0.1162E+02, 0.1198E+02, 0.1236E+02, 0.1277E+02,& - 0.1321E+02, 0.1369E+02, 0.1420E+02, 0.1477E+02,& - 0.1538E+02, 0.1607E+02, 0.1683E+02, 0.1769E+02,& - 0.1868E+02, 0.1984E+02, 0.2123E+02, 0.2296E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,126) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.6436E-04,& - 0.6436E-04, 0.6436E-04, 0.6436E-04, 0.6436E-04,& - 0.6436E-04, 0.6436E-04, 0.6436E-04, 0.6436E-04,& - 0.6436E-04, 0.6436E-04, 0.6436E-04, 0.6436E-04,& - 0.6436E-04, 0.6436E-04, 0.6436E-04, 0.6436E-04,& - 0.6436E-04, 0.6436E-04, 0.6436E-04, 0.1187E-03,& - 0.1187E-03, 0.1187E-03, 0.1187E-03, 0.1187E-03,& - 0.1187E-03, 0.1187E-03, 0.1187E-03, 0.1187E-03,& - 0.1187E-03, 0.1187E-03, 0.1187E-03, 0.1187E-03,& - 0.1731E-03, 0.1731E-03, 0.1731E-03, 0.1731E-03,& - 0.1731E-03, 0.1731E-03, 0.1731E-03, 0.1731E-03,& - 0.1731E-03, 0.1731E-03, 0.2274E-03, 0.2274E-03,& - 0.2274E-03, 0.2274E-03, 0.2274E-03, 0.2274E-03,& - 0.2274E-03, 0.2274E-03, 0.2818E-03, 0.2818E-03,& - 0.2818E-03, 0.2818E-03, 0.2818E-03, 0.2818E-03,& - 0.3362E-03, 0.3362E-03, 0.3362E-03, 0.3362E-03,& - 0.3362E-03, 0.3362E-03, 0.3905E-03, 0.3905E-03,& - 0.3905E-03, 0.3905E-03, 0.3905E-03, 0.4449E-03,& - 0.4449E-03, 0.4449E-03, 0.4449E-03, 0.4993E-03,& - 0.4993E-03, 0.4993E-03, 0.4993E-03, 0.5536E-03,& - 0.5536E-03, 0.5536E-03, 0.5536E-03, 0.6080E-03,& - 0.6080E-03, 0.6080E-03, 0.6080E-03, 0.6623E-03,& - 0.6623E-03, 0.6623E-03, 0.7167E-03, 0.7167E-03,& - 0.7167E-03, 0.7711E-03, 0.7711E-03, 0.8254E-03,& - 0.8254E-03, 0.8254E-03, 0.8798E-03, 0.8798E-03,& - 0.9342E-03, 0.9342E-03, 0.9342E-03, 0.9885E-03,& - 0.9885E-03, 0.1043E-02, 0.1043E-02, 0.1097E-02,& - 0.1097E-02, 0.1152E-02, 0.1152E-02, 0.1206E-02,& - 0.1206E-02, 0.1260E-02, 0.1260E-02, 0.1315E-02,& - 0.1315E-02, 0.1369E-02, 0.1423E-02, 0.1423E-02,& - 0.1478E-02, 0.1532E-02, 0.1532E-02, 0.1587E-02,& - 0.1641E-02, 0.1641E-02, 0.1695E-02, 0.1750E-02,& - 0.1804E-02, 0.1804E-02, 0.1858E-02, 0.1913E-02,& - 0.1967E-02, 0.2021E-02, 0.2021E-02, 0.2076E-02,& - 0.2130E-02, 0.2184E-02, 0.2239E-02, 0.2293E-02,& - 0.2348E-02, 0.2402E-02, 0.2456E-02, 0.2511E-02,& - 0.2565E-02, 0.2619E-02, 0.2674E-02, 0.2728E-02,& - 0.2782E-02, 0.2837E-02, 0.2946E-02, 0.3000E-02,& - 0.3054E-02, 0.3109E-02, 0.3163E-02, 0.3272E-02,& - 0.3326E-02, 0.3380E-02, 0.3489E-02, 0.3544E-02,& - 0.3652E-02, 0.3707E-02, 0.3815E-02, 0.3870E-02,& - 0.3978E-02, 0.4033E-02, 0.4142E-02, 0.4196E-02,& - 0.4305E-02, 0.4413E-02, 0.4468E-02, 0.4576E-02,& - 0.4685E-02, 0.4794E-02, 0.4903E-02, 0.5011E-02,& - 0.5066E-02, 0.5174E-02, 0.5283E-02, 0.5392E-02,& - 0.5555E-02, 0.5664E-02, 0.5772E-02, 0.5881E-02,& - 0.5990E-02, 0.6099E-02, 0.6262E-02, 0.6370E-02,& - 0.6533E-02, 0.6642E-02, 0.6751E-02, 0.6914E-02,& - 0.7077E-02, 0.7186E-02, 0.7349E-02, 0.7512E-02,& - 0.7621E-02, 0.7784E-02, 0.7947E-02, 0.8110E-02,& - 0.8273E-02, 0.8436E-02, 0.8599E-02, 0.8762E-02,& - 0.8980E-02, 0.9143E-02, 0.9306E-02, 0.9523E-02,& - 0.9687E-02, 0.9850E-02, 0.1007E-01, 0.1028E-01,& - 0.1045E-01, 0.1067E-01, 0.1088E-01, 0.1110E-01,& - 0.1132E-01, 0.1153E-01, 0.1175E-01, 0.1197E-01,& - 0.1219E-01, 0.1246E-01, 0.1268E-01, 0.1289E-01,& - 0.1317E-01, 0.1344E-01, 0.1365E-01, 0.1393E-01,& - 0.1420E-01, 0.1447E-01, 0.1474E-01, 0.1501E-01,& - 0.1529E-01, 0.1556E-01, 0.1588E-01, 0.1616E-01,& - 0.1648E-01, 0.1681E-01, 0.1708E-01, 0.1741E-01,& - 0.1773E-01, 0.1806E-01, 0.1838E-01, 0.1871E-01,& - 0.1909E-01, 0.1942E-01, 0.1980E-01, 0.2018E-01,& - 0.2050E-01, 0.2089E-01, 0.2127E-01, 0.2165E-01,& - 0.2208E-01, 0.2246E-01, 0.2284E-01, 0.2328E-01,& - 0.2371E-01, 0.2415E-01, 0.2458E-01, 0.2502E-01,& - 0.2545E-01, 0.2589E-01, 0.2638E-01, 0.2681E-01,& - 0.2730E-01, 0.2779E-01, 0.2828E-01, 0.2877E-01,& - 0.2931E-01, 0.2980E-01, 0.3034E-01, 0.3089E-01,& - 0.3143E-01, 0.3198E-01, 0.3252E-01, 0.3312E-01,& - 0.3366E-01, 0.3426E-01, 0.3486E-01, 0.3545E-01,& - 0.3605E-01, 0.3670E-01, 0.3736E-01, 0.3795E-01,& - 0.3866E-01, 0.3931E-01, 0.3997E-01, 0.4067E-01,& - 0.4138E-01, 0.4209E-01, 0.4279E-01, 0.4350E-01,& - 0.4426E-01, 0.4502E-01, 0.4578E-01, 0.4654E-01,& - 0.4731E-01, 0.4812E-01, 0.4894E-01, 0.4975E-01,& - 0.5057E-01, 0.5144E-01, 0.5231E-01, 0.5318E-01,& - 0.5405E-01, 0.5497E-01, 0.5589E-01, 0.5682E-01,& - 0.5774E-01, 0.5872E-01, 0.5970E-01, 0.6068E-01,& - 0.6166E-01, 0.6269E-01, 0.6372E-01, 0.6476E-01,& - 0.6584E-01, 0.6688E-01, 0.6796E-01, 0.6910E-01,& - 0.7025E-01, 0.7139E-01, 0.7253E-01, 0.7373E-01,& - 0.7492E-01, 0.7612E-01, 0.7737E-01, 0.7856E-01,& - 0.7987E-01, 0.8112E-01, 0.8242E-01, 0.8378E-01,& - 0.8509E-01, 0.8645E-01, 0.8786E-01, 0.8927E-01,& - 0.9069E-01, 0.9210E-01, 0.9357E-01, 0.9509E-01,& - 0.9656E-01, 0.9808E-01, 0.9966E-01, 0.1012E+00,& - 0.1028E+00, 0.1044E+00, 0.1061E+00, 0.1078E+00,& - 0.1094E+00, 0.1111E+00, 0.1129E+00, 0.1147E+00,& - 0.1164E+00, 0.1182E+00, 0.1201E+00, 0.1219E+00,& - 0.1238E+00, 0.1258E+00, 0.1277E+00, 0.1297E+00,& - 0.1317E+00, 0.1337E+00, 0.1358E+00, 0.1378E+00,& - 0.1399E+00, 0.1421E+00, 0.1443E+00, 0.1465E+00,& - 0.1487E+00, 0.1510E+00, 0.1533E+00, 0.1556E+00,& - 0.1580E+00, 0.1604E+00, 0.1628E+00, 0.1653E+00,& - 0.1678E+00, 0.1703E+00, 0.1729E+00, 0.1755E+00,& - 0.1781E+00, 0.1808E+00, 0.1835E+00, 0.1863E+00,& - 0.1890E+00, 0.1919E+00, 0.1947E+00, 0.1976E+00,& - 0.2006E+00, 0.2035E+00, 0.2066E+00, 0.2097E+00,& - 0.2128E+00, 0.2159E+00, 0.2191E+00, 0.2224E+00,& - 0.2257E+00, 0.2290E+00, 0.2324E+00, 0.2358E+00,& - 0.2393E+00, 0.2427E+00, 0.2463E+00, 0.2499E+00,& - 0.2536E+00, 0.2573E+00, 0.2611E+00, 0.2649E+00,& - 0.2687E+00, 0.2726E+00, 0.2766E+00, 0.2806E+00,& - 0.2847E+00, 0.2888E+00, 0.2930E+00, 0.2973E+00,& - 0.3016E+00, 0.3059E+00, 0.3104E+00, 0.3148E+00,& - 0.3193E+00, 0.3240E+00, 0.3286E+00, 0.3334E+00,& - 0.3381E+00, 0.3430E+00, 0.3479E+00, 0.3529E+00,& - 0.3579E+00, 0.3630E+00, 0.3682E+00, 0.3735E+00,& - 0.3788E+00, 0.3842E+00, 0.3897E+00, 0.3952E+00,& - 0.4008E+00, 0.4065E+00, 0.4123E+00, 0.4181E+00,& - 0.4240E+00, 0.4300E+00, 0.4361E+00, 0.4422E+00,& - 0.4485E+00, 0.4549E+00, 0.4613E+00, 0.4677E+00,& - 0.4743E+00, 0.4810E+00, 0.4877E+00, 0.4947E+00,& - 0.5016E+00, 0.5086E+00, 0.5157E+00, 0.5230E+00,& - 0.5303E+00, 0.5377E+00, 0.5452E+00, 0.5528E+00,& - 0.5605E+00, 0.5684E+00, 0.5763E+00, 0.5844E+00,& - 0.5925E+00, 0.6008E+00, 0.6091E+00, 0.6176E+00,& - 0.6262E+00, 0.6349E+00, 0.6437E+00, 0.6526E+00,& - 0.6617E+00, 0.6708E+00, 0.6801E+00, 0.6896E+00,& - 0.6992E+00, 0.7088E+00, 0.7186E+00, 0.7286E+00,& - 0.7386E+00, 0.7489E+00, 0.7592E+00, 0.7697E+00,& - 0.7803E+00, 0.7911E+00, 0.8021E+00, 0.8131E+00,& - 0.8244E+00, 0.8357E+00, 0.8472E+00, 0.8589E+00,& - 0.8708E+00, 0.8827E+00, 0.8949E+00, 0.9073E+00,& - 0.9198E+00, 0.9324E+00, 0.9453E+00, 0.9583E+00,& - 0.9715E+00, 0.9849E+00, 0.9985E+00, 0.1012E+01,& - 0.1026E+01, 0.1040E+01, 0.1055E+01, 0.1069E+01,& - 0.1084E+01, 0.1099E+01, 0.1114E+01, 0.1129E+01,& - 0.1145E+01, 0.1161E+01, 0.1177E+01, 0.1193E+01,& - 0.1209E+01, 0.1226E+01, 0.1243E+01, 0.1260E+01,& - 0.1278E+01, 0.1295E+01, 0.1313E+01, 0.1331E+01,& - 0.1350E+01, 0.1368E+01, 0.1387E+01, 0.1407E+01,& - 0.1426E+01, 0.1446E+01, 0.1466E+01, 0.1486E+01,& - 0.1507E+01, 0.1528E+01, 0.1549E+01, 0.1571E+01,& - 0.1593E+01, 0.1615E+01, 0.1637E+01, 0.1660E+01,& - 0.1684E+01, 0.1707E+01, 0.1731E+01, 0.1755E+01,& - 0.1780E+01, 0.1805E+01, 0.1830E+01, 0.1856E+01,& - 0.1882E+01, 0.1909E+01, 0.1936E+01, 0.1963E+01,& - 0.1991E+01, 0.2019E+01, 0.2048E+01, 0.2077E+01,& - 0.2107E+01, 0.2137E+01, 0.2167E+01, 0.2199E+01,& - 0.2230E+01, 0.2262E+01, 0.2295E+01, 0.2328E+01,& - 0.2361E+01, 0.2396E+01, 0.2430E+01, 0.2466E+01,& - 0.2502E+01, 0.2538E+01, 0.2575E+01, 0.2613E+01,& - 0.2651E+01, 0.2690E+01, 0.2730E+01, 0.2770E+01,& - 0.2812E+01, 0.2853E+01, 0.2896E+01, 0.2939E+01,& - 0.2983E+01, 0.3028E+01, 0.3074E+01, 0.3120E+01,& - 0.3168E+01, 0.3216E+01, 0.3265E+01, 0.3315E+01,& - 0.3366E+01, 0.3418E+01, 0.3471E+01, 0.3525E+01,& - 0.3580E+01, 0.3636E+01, 0.3693E+01, 0.3751E+01,& - 0.3811E+01, 0.3871E+01, 0.3933E+01, 0.3996E+01,& - 0.4061E+01, 0.4127E+01, 0.4194E+01, 0.4263E+01,& - 0.4333E+01, 0.4405E+01, 0.4478E+01, 0.4553E+01,& - 0.4629E+01, 0.4708E+01, 0.4788E+01, 0.4870E+01,& - 0.4954E+01, 0.5040E+01, 0.5128E+01, 0.5218E+01,& - 0.5311E+01, 0.5406E+01, 0.5503E+01, 0.5603E+01,& - 0.5705E+01, 0.5810E+01, 0.5918E+01, 0.6029E+01,& - 0.6144E+01, 0.6261E+01, 0.6382E+01, 0.6506E+01,& - 0.6634E+01, 0.6766E+01, 0.6903E+01, 0.7043E+01,& - 0.7188E+01, 0.7338E+01, 0.7493E+01, 0.7653E+01,& - 0.7820E+01, 0.7992E+01, 0.8171E+01, 0.8356E+01,& - 0.8549E+01, 0.8749E+01, 0.8958E+01, 0.9176E+01,& - 0.9404E+01, 0.9642E+01, 0.9891E+01, 0.1015E+02,& - 0.1043E+02, 0.1072E+02, 0.1102E+02, 0.1135E+02,& - 0.1169E+02, 0.1205E+02, 0.1244E+02, 0.1285E+02,& - 0.1330E+02, 0.1378E+02, 0.1430E+02, 0.1487E+02,& - 0.1550E+02, 0.1619E+02, 0.1696E+02, 0.1784E+02,& - 0.1884E+02, 0.2002E+02, 0.2143E+02, 0.2318E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,127) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.6513E-04, 0.6513E-04, 0.6513E-04,& - 0.6513E-04, 0.6513E-04, 0.6513E-04, 0.6513E-04,& - 0.6513E-04, 0.6513E-04, 0.6513E-04, 0.6513E-04,& - 0.6513E-04, 0.6513E-04, 0.6513E-04, 0.6513E-04,& - 0.6513E-04, 0.6513E-04, 0.6513E-04, 0.6513E-04,& - 0.6513E-04, 0.1203E-03, 0.1203E-03, 0.1203E-03,& - 0.1203E-03, 0.1203E-03, 0.1203E-03, 0.1203E-03,& - 0.1203E-03, 0.1203E-03, 0.1203E-03, 0.1203E-03,& - 0.1203E-03, 0.1203E-03, 0.1754E-03, 0.1754E-03,& - 0.1754E-03, 0.1754E-03, 0.1754E-03, 0.1754E-03,& - 0.1754E-03, 0.1754E-03, 0.1754E-03, 0.1754E-03,& - 0.2305E-03, 0.2305E-03, 0.2305E-03, 0.2305E-03,& - 0.2305E-03, 0.2305E-03, 0.2305E-03, 0.2305E-03,& - 0.2857E-03, 0.2857E-03, 0.2857E-03, 0.2857E-03,& - 0.2857E-03, 0.2857E-03, 0.3408E-03, 0.3408E-03,& - 0.3408E-03, 0.3408E-03, 0.3408E-03, 0.3408E-03,& - 0.3959E-03, 0.3959E-03, 0.3959E-03, 0.3959E-03,& - 0.3959E-03, 0.4511E-03, 0.4511E-03, 0.4511E-03,& - 0.4511E-03, 0.5062E-03, 0.5062E-03, 0.5062E-03,& - 0.5062E-03, 0.5613E-03, 0.5613E-03, 0.5613E-03,& - 0.5613E-03, 0.6165E-03, 0.6165E-03, 0.6165E-03,& - 0.6716E-03, 0.6716E-03, 0.6716E-03, 0.7267E-03,& - 0.7267E-03, 0.7267E-03, 0.7819E-03, 0.7819E-03,& - 0.7819E-03, 0.8370E-03, 0.8370E-03, 0.8370E-03,& - 0.8921E-03, 0.8921E-03, 0.9473E-03, 0.9473E-03,& - 0.1002E-02, 0.1002E-02, 0.1002E-02, 0.1058E-02,& - 0.1058E-02, 0.1113E-02, 0.1113E-02, 0.1168E-02,& - 0.1168E-02, 0.1223E-02, 0.1223E-02, 0.1278E-02,& - 0.1333E-02, 0.1333E-02, 0.1388E-02, 0.1388E-02,& - 0.1443E-02, 0.1499E-02, 0.1499E-02, 0.1554E-02,& - 0.1609E-02, 0.1609E-02, 0.1664E-02, 0.1719E-02,& - 0.1719E-02, 0.1774E-02, 0.1829E-02, 0.1885E-02,& - 0.1885E-02, 0.1940E-02, 0.1995E-02, 0.2050E-02,& - 0.2105E-02, 0.2160E-02, 0.2215E-02, 0.2271E-02,& - 0.2271E-02, 0.2326E-02, 0.2381E-02, 0.2436E-02,& - 0.2491E-02, 0.2546E-02, 0.2601E-02, 0.2712E-02,& - 0.2767E-02, 0.2822E-02, 0.2877E-02, 0.2932E-02,& - 0.2987E-02, 0.3042E-02, 0.3153E-02, 0.3208E-02,& - 0.3263E-02, 0.3373E-02, 0.3428E-02, 0.3483E-02,& - 0.3594E-02, 0.3649E-02, 0.3759E-02, 0.3814E-02,& - 0.3869E-02, 0.3980E-02, 0.4090E-02, 0.4145E-02,& - 0.4255E-02, 0.4310E-02, 0.4421E-02, 0.4531E-02,& - 0.4641E-02, 0.4696E-02, 0.4807E-02, 0.4917E-02,& - 0.5027E-02, 0.5137E-02, 0.5248E-02, 0.5358E-02,& - 0.5468E-02, 0.5579E-02, 0.5689E-02, 0.5799E-02,& - 0.5909E-02, 0.6075E-02, 0.6185E-02, 0.6295E-02,& - 0.6461E-02, 0.6571E-02, 0.6681E-02, 0.6847E-02,& - 0.6957E-02, 0.7122E-02, 0.7288E-02, 0.7398E-02,& - 0.7563E-02, 0.7729E-02, 0.7894E-02, 0.8060E-02,& - 0.8225E-02, 0.8390E-02, 0.8556E-02, 0.8721E-02,& - 0.8887E-02, 0.9052E-02, 0.9217E-02, 0.9438E-02,& - 0.9603E-02, 0.9824E-02, 0.9989E-02, 0.1021E-01,& - 0.1038E-01, 0.1060E-01, 0.1082E-01, 0.1104E-01,& - 0.1120E-01, 0.1142E-01, 0.1164E-01, 0.1192E-01,& - 0.1214E-01, 0.1236E-01, 0.1258E-01, 0.1286E-01,& - 0.1308E-01, 0.1335E-01, 0.1357E-01, 0.1385E-01,& - 0.1412E-01, 0.1440E-01, 0.1468E-01, 0.1495E-01,& - 0.1523E-01, 0.1550E-01, 0.1583E-01, 0.1611E-01,& - 0.1644E-01, 0.1672E-01, 0.1705E-01, 0.1738E-01,& - 0.1771E-01, 0.1798E-01, 0.1837E-01, 0.1870E-01,& - 0.1903E-01, 0.1936E-01, 0.1975E-01, 0.2013E-01,& - 0.2046E-01, 0.2085E-01, 0.2124E-01, 0.2162E-01,& - 0.2201E-01, 0.2245E-01, 0.2284E-01, 0.2328E-01,& - 0.2366E-01, 0.2410E-01, 0.2454E-01, 0.2499E-01,& - 0.2543E-01, 0.2592E-01, 0.2636E-01, 0.2686E-01,& - 0.2736E-01, 0.2780E-01, 0.2829E-01, 0.2885E-01,& - 0.2934E-01, 0.2984E-01, 0.3039E-01, 0.3094E-01,& - 0.3149E-01, 0.3204E-01, 0.3259E-01, 0.3320E-01,& - 0.3375E-01, 0.3436E-01, 0.3497E-01, 0.3557E-01,& - 0.3618E-01, 0.3684E-01, 0.3745E-01, 0.3811E-01,& - 0.3877E-01, 0.3943E-01, 0.4015E-01, 0.4081E-01,& - 0.4153E-01, 0.4224E-01, 0.4296E-01, 0.4373E-01,& - 0.4445E-01, 0.4522E-01, 0.4599E-01, 0.4676E-01,& - 0.4759E-01, 0.4842E-01, 0.4924E-01, 0.5007E-01,& - 0.5090E-01, 0.5178E-01, 0.5266E-01, 0.5355E-01,& - 0.5443E-01, 0.5536E-01, 0.5630E-01, 0.5724E-01,& - 0.5818E-01, 0.5917E-01, 0.6016E-01, 0.6115E-01,& - 0.6215E-01, 0.6319E-01, 0.6424E-01, 0.6529E-01,& - 0.6639E-01, 0.6749E-01, 0.6860E-01, 0.6975E-01,& - 0.7086E-01, 0.7202E-01, 0.7323E-01, 0.7444E-01,& - 0.7565E-01, 0.7687E-01, 0.7814E-01, 0.7940E-01,& - 0.8067E-01, 0.8199E-01, 0.8332E-01, 0.8470E-01,& - 0.8607E-01, 0.8745E-01, 0.8883E-01, 0.9026E-01,& - 0.9175E-01, 0.9319E-01, 0.9473E-01, 0.9622E-01,& - 0.9776E-01, 0.9931E-01, 0.1009E+00, 0.1025E+00,& - 0.1042E+00, 0.1058E+00, 0.1075E+00, 0.1092E+00,& - 0.1109E+00, 0.1126E+00, 0.1144E+00, 0.1162E+00,& - 0.1181E+00, 0.1199E+00, 0.1218E+00, 0.1237E+00,& - 0.1257E+00, 0.1276E+00, 0.1296E+00, 0.1316E+00,& - 0.1337E+00, 0.1358E+00, 0.1378E+00, 0.1400E+00,& - 0.1422E+00, 0.1444E+00, 0.1466E+00, 0.1489E+00,& - 0.1512E+00, 0.1535E+00, 0.1559E+00, 0.1582E+00,& - 0.1607E+00, 0.1632E+00, 0.1656E+00, 0.1682E+00,& - 0.1708E+00, 0.1734E+00, 0.1760E+00, 0.1786E+00,& - 0.1813E+00, 0.1841E+00, 0.1869E+00, 0.1897E+00,& - 0.1926E+00, 0.1955E+00, 0.1985E+00, 0.2015E+00,& - 0.2045E+00, 0.2076E+00, 0.2107E+00, 0.2139E+00,& - 0.2171E+00, 0.2203E+00, 0.2236E+00, 0.2269E+00,& - 0.2303E+00, 0.2338E+00, 0.2373E+00, 0.2408E+00,& - 0.2444E+00, 0.2479E+00, 0.2516E+00, 0.2554E+00,& - 0.2591E+00, 0.2630E+00, 0.2669E+00, 0.2708E+00,& - 0.2748E+00, 0.2788E+00, 0.2830E+00, 0.2871E+00,& - 0.2913E+00, 0.2956E+00, 0.2999E+00, 0.3043E+00,& - 0.3088E+00, 0.3132E+00, 0.3178E+00, 0.3224E+00,& - 0.3271E+00, 0.3319E+00, 0.3367E+00, 0.3416E+00,& - 0.3466E+00, 0.3516E+00, 0.3567E+00, 0.3619E+00,& - 0.3671E+00, 0.3724E+00, 0.3778E+00, 0.3832E+00,& - 0.3888E+00, 0.3943E+00, 0.4000E+00, 0.4057E+00,& - 0.4116E+00, 0.4175E+00, 0.4235E+00, 0.4296E+00,& - 0.4357E+00, 0.4419E+00, 0.4483E+00, 0.4546E+00,& - 0.4612E+00, 0.4677E+00, 0.4744E+00, 0.4811E+00,& - 0.4879E+00, 0.4949E+00, 0.5020E+00, 0.5091E+00,& - 0.5163E+00, 0.5236E+00, 0.5311E+00, 0.5386E+00,& - 0.5462E+00, 0.5539E+00, 0.5618E+00, 0.5697E+00,& - 0.5778E+00, 0.5859E+00, 0.5941E+00, 0.6025E+00,& - 0.6110E+00, 0.6197E+00, 0.6284E+00, 0.6372E+00,& - 0.6462E+00, 0.6552E+00, 0.6644E+00, 0.6738E+00,& - 0.6832E+00, 0.6928E+00, 0.7026E+00, 0.7124E+00,& - 0.7224E+00, 0.7325E+00, 0.7428E+00, 0.7532E+00,& - 0.7637E+00, 0.7744E+00, 0.7852E+00, 0.7962E+00,& - 0.8073E+00, 0.8186E+00, 0.8301E+00, 0.8417E+00,& - 0.8534E+00, 0.8653E+00, 0.8774E+00, 0.8897E+00,& - 0.9021E+00, 0.9147E+00, 0.9275E+00, 0.9404E+00,& - 0.9535E+00, 0.9668E+00, 0.9803E+00, 0.9940E+00,& - 0.1008E+01, 0.1022E+01, 0.1036E+01, 0.1051E+01,& - 0.1065E+01, 0.1080E+01, 0.1095E+01, 0.1111E+01,& - 0.1126E+01, 0.1142E+01, 0.1158E+01, 0.1174E+01,& - 0.1190E+01, 0.1207E+01, 0.1224E+01, 0.1241E+01,& - 0.1258E+01, 0.1276E+01, 0.1294E+01, 0.1312E+01,& - 0.1330E+01, 0.1349E+01, 0.1368E+01, 0.1387E+01,& - 0.1406E+01, 0.1426E+01, 0.1446E+01, 0.1466E+01,& - 0.1487E+01, 0.1508E+01, 0.1529E+01, 0.1551E+01,& - 0.1573E+01, 0.1595E+01, 0.1617E+01, 0.1640E+01,& - 0.1664E+01, 0.1687E+01, 0.1711E+01, 0.1735E+01,& - 0.1760E+01, 0.1785E+01, 0.1810E+01, 0.1836E+01,& - 0.1862E+01, 0.1889E+01, 0.1916E+01, 0.1943E+01,& - 0.1971E+01, 0.2000E+01, 0.2028E+01, 0.2058E+01,& - 0.2087E+01, 0.2117E+01, 0.2148E+01, 0.2179E+01,& - 0.2211E+01, 0.2243E+01, 0.2275E+01, 0.2309E+01,& - 0.2342E+01, 0.2377E+01, 0.2411E+01, 0.2447E+01,& - 0.2483E+01, 0.2519E+01, 0.2557E+01, 0.2595E+01,& - 0.2633E+01, 0.2672E+01, 0.2712E+01, 0.2753E+01,& - 0.2794E+01, 0.2836E+01, 0.2879E+01, 0.2922E+01,& - 0.2966E+01, 0.3011E+01, 0.3057E+01, 0.3104E+01,& - 0.3152E+01, 0.3200E+01, 0.3249E+01, 0.3300E+01,& - 0.3351E+01, 0.3403E+01, 0.3456E+01, 0.3511E+01,& - 0.3566E+01, 0.3622E+01, 0.3680E+01, 0.3739E+01,& - 0.3798E+01, 0.3859E+01, 0.3922E+01, 0.3985E+01,& - 0.4050E+01, 0.4117E+01, 0.4184E+01, 0.4254E+01,& - 0.4324E+01, 0.4396E+01, 0.4470E+01, 0.4545E+01,& - 0.4623E+01, 0.4702E+01, 0.4783E+01, 0.4865E+01,& - 0.4950E+01, 0.5037E+01, 0.5126E+01, 0.5216E+01,& - 0.5310E+01, 0.5405E+01, 0.5504E+01, 0.5604E+01,& - 0.5708E+01, 0.5814E+01, 0.5923E+01, 0.6034E+01,& - 0.6150E+01, 0.6268E+01, 0.6390E+01, 0.6516E+01,& - 0.6645E+01, 0.6779E+01, 0.6916E+01, 0.7058E+01,& - 0.7205E+01, 0.7356E+01, 0.7513E+01, 0.7675E+01,& - 0.7843E+01, 0.8017E+01, 0.8197E+01, 0.8385E+01,& - 0.8580E+01, 0.8783E+01, 0.8994E+01, 0.9214E+01,& - 0.9444E+01, 0.9684E+01, 0.9937E+01, 0.1020E+02,& - 0.1048E+02, 0.1077E+02, 0.1108E+02, 0.1141E+02,& - 0.1175E+02, 0.1212E+02, 0.1252E+02, 0.1294E+02,& - 0.1339E+02, 0.1388E+02, 0.1440E+02, 0.1498E+02,& - 0.1561E+02, 0.1632E+02, 0.1710E+02, 0.1799E+02,& - 0.1900E+02, 0.2019E+02, 0.2162E+02, 0.2340E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,128) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.6591E-04,& - 0.6591E-04, 0.6591E-04, 0.6591E-04, 0.6591E-04,& - 0.6591E-04, 0.6591E-04, 0.6591E-04, 0.6591E-04,& - 0.6591E-04, 0.6591E-04, 0.6591E-04, 0.6591E-04,& - 0.6591E-04, 0.6591E-04, 0.6591E-04, 0.6591E-04,& - 0.6591E-04, 0.6591E-04, 0.6591E-04, 0.1218E-03,& - 0.1218E-03, 0.1218E-03, 0.1218E-03, 0.1218E-03,& - 0.1218E-03, 0.1218E-03, 0.1218E-03, 0.1218E-03,& - 0.1218E-03, 0.1218E-03, 0.1218E-03, 0.1218E-03,& - 0.1777E-03, 0.1777E-03, 0.1777E-03, 0.1777E-03,& - 0.1777E-03, 0.1777E-03, 0.1777E-03, 0.1777E-03,& - 0.1777E-03, 0.2336E-03, 0.2336E-03, 0.2336E-03,& - 0.2336E-03, 0.2336E-03, 0.2336E-03, 0.2336E-03,& - 0.2336E-03, 0.2896E-03, 0.2896E-03, 0.2896E-03,& - 0.2896E-03, 0.2896E-03, 0.2896E-03, 0.2896E-03,& - 0.3455E-03, 0.3455E-03, 0.3455E-03, 0.3455E-03,& - 0.3455E-03, 0.4014E-03, 0.4014E-03, 0.4014E-03,& - 0.4014E-03, 0.4014E-03, 0.4573E-03, 0.4573E-03,& - 0.4573E-03, 0.4573E-03, 0.4573E-03, 0.5132E-03,& - 0.5132E-03, 0.5132E-03, 0.5132E-03, 0.5691E-03,& - 0.5691E-03, 0.5691E-03, 0.6250E-03, 0.6250E-03,& - 0.6250E-03, 0.6250E-03, 0.6809E-03, 0.6809E-03,& - 0.6809E-03, 0.7369E-03, 0.7369E-03, 0.7369E-03,& - 0.7928E-03, 0.7928E-03, 0.7928E-03, 0.8487E-03,& - 0.8487E-03, 0.9046E-03, 0.9046E-03, 0.9046E-03,& - 0.9605E-03, 0.9605E-03, 0.1016E-02, 0.1016E-02,& - 0.1072E-02, 0.1072E-02, 0.1128E-02, 0.1128E-02,& - 0.1184E-02, 0.1184E-02, 0.1240E-02, 0.1240E-02,& - 0.1296E-02, 0.1296E-02, 0.1352E-02, 0.1352E-02,& - 0.1408E-02, 0.1464E-02, 0.1464E-02, 0.1520E-02,& - 0.1576E-02, 0.1576E-02, 0.1631E-02, 0.1687E-02,& - 0.1687E-02, 0.1743E-02, 0.1799E-02, 0.1855E-02,& - 0.1855E-02, 0.1911E-02, 0.1967E-02, 0.2023E-02,& - 0.2079E-02, 0.2079E-02, 0.2135E-02, 0.2191E-02,& - 0.2246E-02, 0.2302E-02, 0.2358E-02, 0.2414E-02,& - 0.2470E-02, 0.2526E-02, 0.2582E-02, 0.2638E-02,& - 0.2694E-02, 0.2750E-02, 0.2806E-02, 0.2862E-02,& - 0.2973E-02, 0.3029E-02, 0.3085E-02, 0.3141E-02,& - 0.3253E-02, 0.3309E-02, 0.3365E-02, 0.3421E-02,& - 0.3532E-02, 0.3588E-02, 0.3700E-02, 0.3756E-02,& - 0.3868E-02, 0.3924E-02, 0.4036E-02, 0.4092E-02,& - 0.4203E-02, 0.4259E-02, 0.4371E-02, 0.4483E-02,& - 0.4539E-02, 0.4651E-02, 0.4763E-02, 0.4874E-02,& - 0.4986E-02, 0.5042E-02, 0.5154E-02, 0.5266E-02,& - 0.5378E-02, 0.5489E-02, 0.5601E-02, 0.5769E-02,& - 0.5881E-02, 0.5993E-02, 0.6104E-02, 0.6216E-02,& - 0.6384E-02, 0.6496E-02, 0.6664E-02, 0.6775E-02,& - 0.6943E-02, 0.7055E-02, 0.7223E-02, 0.7334E-02,& - 0.7502E-02, 0.7670E-02, 0.7838E-02, 0.7950E-02,& - 0.8117E-02, 0.8285E-02, 0.8453E-02, 0.8620E-02,& - 0.8788E-02, 0.9012E-02, 0.9180E-02, 0.9347E-02,& - 0.9515E-02, 0.9739E-02, 0.9906E-02, 0.1013E-01,& - 0.1030E-01, 0.1052E-01, 0.1075E-01, 0.1097E-01,& - 0.1114E-01, 0.1136E-01, 0.1158E-01, 0.1181E-01,& - 0.1209E-01, 0.1231E-01, 0.1253E-01, 0.1276E-01,& - 0.1304E-01, 0.1326E-01, 0.1354E-01, 0.1382E-01,& - 0.1404E-01, 0.1432E-01, 0.1460E-01, 0.1488E-01,& - 0.1516E-01, 0.1550E-01, 0.1578E-01, 0.1606E-01,& - 0.1639E-01, 0.1667E-01, 0.1701E-01, 0.1734E-01,& - 0.1762E-01, 0.1796E-01, 0.1829E-01, 0.1868E-01,& - 0.1902E-01, 0.1936E-01, 0.1975E-01, 0.2008E-01,& - 0.2047E-01, 0.2087E-01, 0.2126E-01, 0.2165E-01,& - 0.2204E-01, 0.2243E-01, 0.2282E-01, 0.2327E-01,& - 0.2372E-01, 0.2411E-01, 0.2456E-01, 0.2500E-01,& - 0.2545E-01, 0.2595E-01, 0.2640E-01, 0.2690E-01,& - 0.2735E-01, 0.2785E-01, 0.2836E-01, 0.2886E-01,& - 0.2942E-01, 0.2992E-01, 0.3048E-01, 0.3104E-01,& - 0.3154E-01, 0.3216E-01, 0.3272E-01, 0.3328E-01,& - 0.3389E-01, 0.3451E-01, 0.3507E-01, 0.3574E-01,& - 0.3635E-01, 0.3697E-01, 0.3764E-01, 0.3831E-01,& - 0.3898E-01, 0.3965E-01, 0.4032E-01, 0.4105E-01,& - 0.4178E-01, 0.4250E-01, 0.4323E-01, 0.4396E-01,& - 0.4474E-01, 0.4552E-01, 0.4631E-01, 0.4709E-01,& - 0.4793E-01, 0.4871E-01, 0.4955E-01, 0.5039E-01,& - 0.5128E-01, 0.5218E-01, 0.5301E-01, 0.5397E-01,& - 0.5486E-01, 0.5581E-01, 0.5676E-01, 0.5771E-01,& - 0.5866E-01, 0.5967E-01, 0.6067E-01, 0.6168E-01,& - 0.6274E-01, 0.6375E-01, 0.6487E-01, 0.6593E-01,& - 0.6705E-01, 0.6817E-01, 0.6929E-01, 0.7046E-01,& - 0.7158E-01, 0.7281E-01, 0.7398E-01, 0.7521E-01,& - 0.7644E-01, 0.7773E-01, 0.7901E-01, 0.8030E-01,& - 0.8164E-01, 0.8298E-01, 0.8433E-01, 0.8567E-01,& - 0.8707E-01, 0.8852E-01, 0.8997E-01, 0.9143E-01,& - 0.9288E-01, 0.9439E-01, 0.9596E-01, 0.9746E-01,& - 0.9909E-01, 0.1007E+00, 0.1023E+00, 0.1039E+00,& - 0.1056E+00, 0.1073E+00, 0.1090E+00, 0.1108E+00,& - 0.1125E+00, 0.1143E+00, 0.1161E+00, 0.1180E+00,& - 0.1198E+00, 0.1217E+00, 0.1237E+00, 0.1256E+00,& - 0.1276E+00, 0.1296E+00, 0.1317E+00, 0.1338E+00,& - 0.1359E+00, 0.1380E+00, 0.1402E+00, 0.1424E+00,& - 0.1446E+00, 0.1468E+00, 0.1491E+00, 0.1515E+00,& - 0.1538E+00, 0.1562E+00, 0.1586E+00, 0.1611E+00,& - 0.1636E+00, 0.1661E+00, 0.1687E+00, 0.1713E+00,& - 0.1740E+00, 0.1766E+00, 0.1793E+00, 0.1821E+00,& - 0.1849E+00, 0.1877E+00, 0.1906E+00, 0.1935E+00,& - 0.1964E+00, 0.1994E+00, 0.2025E+00, 0.2056E+00,& - 0.2087E+00, 0.2119E+00, 0.2151E+00, 0.2183E+00,& - 0.2216E+00, 0.2250E+00, 0.2284E+00, 0.2318E+00,& - 0.2353E+00, 0.2389E+00, 0.2425E+00, 0.2461E+00,& - 0.2498E+00, 0.2536E+00, 0.2574E+00, 0.2612E+00,& - 0.2651E+00, 0.2691E+00, 0.2731E+00, 0.2772E+00,& - 0.2813E+00, 0.2854E+00, 0.2897E+00, 0.2940E+00,& - 0.2984E+00, 0.3028E+00, 0.3072E+00, 0.3118E+00,& - 0.3164E+00, 0.3211E+00, 0.3258E+00, 0.3306E+00,& - 0.3355E+00, 0.3404E+00, 0.3454E+00, 0.3505E+00,& - 0.3556E+00, 0.3608E+00, 0.3661E+00, 0.3714E+00,& - 0.3769E+00, 0.3824E+00, 0.3880E+00, 0.3936E+00,& - 0.3993E+00, 0.4051E+00, 0.4110E+00, 0.4170E+00,& - 0.4231E+00, 0.4292E+00, 0.4355E+00, 0.4417E+00,& - 0.4481E+00, 0.4546E+00, 0.4612E+00, 0.4678E+00,& - 0.4746E+00, 0.4814E+00, 0.4883E+00, 0.4954E+00,& - 0.5025E+00, 0.5098E+00, 0.5171E+00, 0.5245E+00,& - 0.5320E+00, 0.5397E+00, 0.5474E+00, 0.5552E+00,& - 0.5632E+00, 0.5712E+00, 0.5794E+00, 0.5877E+00,& - 0.5961E+00, 0.6046E+00, 0.6132E+00, 0.6220E+00,& - 0.6308E+00, 0.6398E+00, 0.6489E+00, 0.6582E+00,& - 0.6675E+00, 0.6770E+00, 0.6866E+00, 0.6964E+00,& - 0.7063E+00, 0.7163E+00, 0.7265E+00, 0.7368E+00,& - 0.7472E+00, 0.7578E+00, 0.7686E+00, 0.7795E+00,& - 0.7905E+00, 0.8017E+00, 0.8130E+00, 0.8245E+00,& - 0.8362E+00, 0.8480E+00, 0.8601E+00, 0.8722E+00,& - 0.8845E+00, 0.8968E+00, 0.9097E+00, 0.9226E+00,& - 0.9356E+00, 0.9488E+00, 0.9623E+00, 0.9758E+00,& - 0.9896E+00, 0.1004E+01, 0.1018E+01, 0.1032E+01,& - 0.1047E+01, 0.1062E+01, 0.1077E+01, 0.1092E+01,& - 0.1107E+01, 0.1123E+01, 0.1139E+01, 0.1155E+01,& - 0.1171E+01, 0.1188E+01, 0.1205E+01, 0.1222E+01,& - 0.1239E+01, 0.1256E+01, 0.1274E+01, 0.1292E+01,& - 0.1311E+01, 0.1329E+01, 0.1348E+01, 0.1367E+01,& - 0.1387E+01, 0.1406E+01, 0.1426E+01, 0.1447E+01,& - 0.1467E+01, 0.1488E+01, 0.1509E+01, 0.1531E+01,& - 0.1553E+01, 0.1575E+01, 0.1597E+01, 0.1620E+01,& - 0.1643E+01, 0.1667E+01, 0.1691E+01, 0.1715E+01,& - 0.1740E+01, 0.1765E+01, 0.1790E+01, 0.1816E+01,& - 0.1842E+01, 0.1869E+01, 0.1896E+01, 0.1923E+01,& - 0.1951E+01, 0.1980E+01, 0.2008E+01, 0.2038E+01,& - 0.2067E+01, 0.2097E+01, 0.2128E+01, 0.2159E+01,& - 0.2191E+01, 0.2223E+01, 0.2256E+01, 0.2289E+01,& - 0.2323E+01, 0.2357E+01, 0.2392E+01, 0.2428E+01,& - 0.2464E+01, 0.2501E+01, 0.2538E+01, 0.2576E+01,& - 0.2615E+01, 0.2654E+01, 0.2694E+01, 0.2735E+01,& - 0.2776E+01, 0.2818E+01, 0.2861E+01, 0.2905E+01,& - 0.2949E+01, 0.2994E+01, 0.3041E+01, 0.3087E+01,& - 0.3135E+01, 0.3184E+01, 0.3234E+01, 0.3284E+01,& - 0.3336E+01, 0.3388E+01, 0.3442E+01, 0.3496E+01,& - 0.3552E+01, 0.3609E+01, 0.3666E+01, 0.3725E+01,& - 0.3786E+01, 0.3847E+01, 0.3910E+01, 0.3974E+01,& - 0.4039E+01, 0.4106E+01, 0.4174E+01, 0.4244E+01,& - 0.4315E+01, 0.4388E+01, 0.4462E+01, 0.4538E+01,& - 0.4616E+01, 0.4695E+01, 0.4777E+01, 0.4860E+01,& - 0.4945E+01, 0.5033E+01, 0.5122E+01, 0.5214E+01,& - 0.5308E+01, 0.5405E+01, 0.5504E+01, 0.5605E+01,& - 0.5709E+01, 0.5816E+01, 0.5926E+01, 0.6040E+01,& - 0.6156E+01, 0.6275E+01, 0.6398E+01, 0.6525E+01,& - 0.6656E+01, 0.6790E+01, 0.6929E+01, 0.7073E+01,& - 0.7221E+01, 0.7374E+01, 0.7532E+01, 0.7696E+01,& - 0.7865E+01, 0.8041E+01, 0.8224E+01, 0.8413E+01,& - 0.8610E+01, 0.8815E+01, 0.9028E+01, 0.9251E+01,& - 0.9484E+01, 0.9727E+01, 0.9983E+01, 0.1025E+02,& - 0.1053E+02, 0.1083E+02, 0.1114E+02, 0.1147E+02,& - 0.1182E+02, 0.1219E+02, 0.1259E+02, 0.1302E+02,& - 0.1347E+02, 0.1397E+02, 0.1450E+02, 0.1509E+02,& - 0.1573E+02, 0.1644E+02, 0.1723E+02, 0.1813E+02,& - 0.1916E+02, 0.2037E+02, 0.2182E+02, 0.2362E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,129) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.6670E-04, 0.6670E-04, 0.6670E-04, 0.6670E-04,& - 0.6670E-04, 0.6670E-04, 0.6670E-04, 0.6670E-04,& - 0.6670E-04, 0.6670E-04, 0.6670E-04, 0.6670E-04,& - 0.6670E-04, 0.6670E-04, 0.6670E-04, 0.6670E-04,& - 0.6670E-04, 0.6670E-04, 0.6670E-04, 0.6670E-04,& - 0.1234E-03, 0.1234E-03, 0.1234E-03, 0.1234E-03,& - 0.1234E-03, 0.1234E-03, 0.1234E-03, 0.1234E-03,& - 0.1234E-03, 0.1234E-03, 0.1234E-03, 0.1234E-03,& - 0.1234E-03, 0.1801E-03, 0.1801E-03, 0.1801E-03,& - 0.1801E-03, 0.1801E-03, 0.1801E-03, 0.1801E-03,& - 0.1801E-03, 0.1801E-03, 0.1801E-03, 0.2368E-03,& - 0.2368E-03, 0.2368E-03, 0.2368E-03, 0.2368E-03,& - 0.2368E-03, 0.2368E-03, 0.2368E-03, 0.2935E-03,& - 0.2935E-03, 0.2935E-03, 0.2935E-03, 0.2935E-03,& - 0.2935E-03, 0.3502E-03, 0.3502E-03, 0.3502E-03,& - 0.3502E-03, 0.3502E-03, 0.3502E-03, 0.4069E-03,& - 0.4069E-03, 0.4069E-03, 0.4069E-03, 0.4069E-03,& - 0.4636E-03, 0.4636E-03, 0.4636E-03, 0.4636E-03,& - 0.5203E-03, 0.5203E-03, 0.5203E-03, 0.5203E-03,& - 0.5770E-03, 0.5770E-03, 0.5770E-03, 0.5770E-03,& - 0.6337E-03, 0.6337E-03, 0.6337E-03, 0.6904E-03,& - 0.6904E-03, 0.6904E-03, 0.7470E-03, 0.7470E-03,& - 0.7470E-03, 0.8037E-03, 0.8037E-03, 0.8037E-03,& - 0.8604E-03, 0.8604E-03, 0.8604E-03, 0.9171E-03,& - 0.9171E-03, 0.9738E-03, 0.9738E-03, 0.1031E-02,& - 0.1031E-02, 0.1031E-02, 0.1087E-02, 0.1087E-02,& - 0.1144E-02, 0.1144E-02, 0.1201E-02, 0.1201E-02,& - 0.1257E-02, 0.1314E-02, 0.1314E-02, 0.1371E-02,& - 0.1371E-02, 0.1427E-02, 0.1427E-02, 0.1484E-02,& - 0.1541E-02, 0.1541E-02, 0.1597E-02, 0.1654E-02,& - 0.1654E-02, 0.1711E-02, 0.1768E-02, 0.1824E-02,& - 0.1824E-02, 0.1881E-02, 0.1938E-02, 0.1994E-02,& - 0.1994E-02, 0.2051E-02, 0.2108E-02, 0.2164E-02,& - 0.2221E-02, 0.2278E-02, 0.2335E-02, 0.2391E-02,& - 0.2448E-02, 0.2505E-02, 0.2561E-02, 0.2618E-02,& - 0.2675E-02, 0.2731E-02, 0.2788E-02, 0.2845E-02,& - 0.2901E-02, 0.2958E-02, 0.3015E-02, 0.3128E-02,& - 0.3185E-02, 0.3242E-02, 0.3298E-02, 0.3412E-02,& - 0.3468E-02, 0.3525E-02, 0.3639E-02, 0.3695E-02,& - 0.3809E-02, 0.3865E-02, 0.3979E-02, 0.4035E-02,& - 0.4149E-02, 0.4205E-02, 0.4319E-02, 0.4432E-02,& - 0.4489E-02, 0.4602E-02, 0.4716E-02, 0.4829E-02,& - 0.4886E-02, 0.4999E-02, 0.5113E-02, 0.5226E-02,& - 0.5339E-02, 0.5453E-02, 0.5566E-02, 0.5680E-02,& - 0.5793E-02, 0.5906E-02, 0.6076E-02, 0.6190E-02,& - 0.6303E-02, 0.6473E-02, 0.6587E-02, 0.6700E-02,& - 0.6870E-02, 0.6984E-02, 0.7154E-02, 0.7267E-02,& - 0.7437E-02, 0.7607E-02, 0.7777E-02, 0.7891E-02,& - 0.8061E-02, 0.8231E-02, 0.8401E-02, 0.8571E-02,& - 0.8741E-02, 0.8911E-02, 0.9138E-02, 0.9308E-02,& - 0.9478E-02, 0.9648E-02, 0.9875E-02, 0.1005E-01,& - 0.1027E-01, 0.1050E-01, 0.1067E-01, 0.1090E-01,& - 0.1112E-01, 0.1135E-01, 0.1158E-01, 0.1180E-01,& - 0.1203E-01, 0.1226E-01, 0.1248E-01, 0.1271E-01,& - 0.1299E-01, 0.1322E-01, 0.1350E-01, 0.1379E-01,& - 0.1401E-01, 0.1430E-01, 0.1458E-01, 0.1486E-01,& - 0.1515E-01, 0.1543E-01, 0.1571E-01, 0.1605E-01,& - 0.1634E-01, 0.1668E-01, 0.1696E-01, 0.1730E-01,& - 0.1764E-01, 0.1798E-01, 0.1832E-01, 0.1866E-01,& - 0.1900E-01, 0.1934E-01, 0.1974E-01, 0.2008E-01,& - 0.2048E-01, 0.2087E-01, 0.2127E-01, 0.2167E-01,& - 0.2206E-01, 0.2246E-01, 0.2286E-01, 0.2331E-01,& - 0.2371E-01, 0.2416E-01, 0.2462E-01, 0.2507E-01,& - 0.2552E-01, 0.2598E-01, 0.2649E-01, 0.2694E-01,& - 0.2745E-01, 0.2796E-01, 0.2847E-01, 0.2898E-01,& - 0.2949E-01, 0.3006E-01, 0.3057E-01, 0.3114E-01,& - 0.3170E-01, 0.3227E-01, 0.3284E-01, 0.3346E-01,& - 0.3403E-01, 0.3465E-01, 0.3527E-01, 0.3590E-01,& - 0.3652E-01, 0.3720E-01, 0.3783E-01, 0.3851E-01,& - 0.3919E-01, 0.3987E-01, 0.4060E-01, 0.4128E-01,& - 0.4202E-01, 0.4276E-01, 0.4350E-01, 0.4429E-01,& - 0.4503E-01, 0.4582E-01, 0.4661E-01, 0.4746E-01,& - 0.4826E-01, 0.4911E-01, 0.4996E-01, 0.5081E-01,& - 0.5172E-01, 0.5257E-01, 0.5347E-01, 0.5438E-01,& - 0.5535E-01, 0.5631E-01, 0.5727E-01, 0.5824E-01,& - 0.5920E-01, 0.6022E-01, 0.6124E-01, 0.6232E-01,& - 0.6334E-01, 0.6442E-01, 0.6549E-01, 0.6663E-01,& - 0.6776E-01, 0.6890E-01, 0.7003E-01, 0.7122E-01,& - 0.7241E-01, 0.7360E-01, 0.7485E-01, 0.7610E-01,& - 0.7734E-01, 0.7865E-01, 0.7995E-01, 0.8131E-01,& - 0.8262E-01, 0.8398E-01, 0.8539E-01, 0.8681E-01,& - 0.8823E-01, 0.8970E-01, 0.9118E-01, 0.9265E-01,& - 0.9418E-01, 0.9571E-01, 0.9730E-01, 0.9889E-01,& - 0.1005E+00, 0.1021E+00, 0.1038E+00, 0.1055E+00,& - 0.1072E+00, 0.1089E+00, 0.1107E+00, 0.1124E+00,& - 0.1143E+00, 0.1161E+00, 0.1180E+00, 0.1199E+00,& - 0.1218E+00, 0.1237E+00, 0.1257E+00, 0.1277E+00,& - 0.1298E+00, 0.1318E+00, 0.1339E+00, 0.1361E+00,& - 0.1382E+00, 0.1404E+00, 0.1427E+00, 0.1449E+00,& - 0.1472E+00, 0.1495E+00, 0.1518E+00, 0.1542E+00,& - 0.1567E+00, 0.1592E+00, 0.1617E+00, 0.1641E+00,& - 0.1668E+00, 0.1693E+00, 0.1720E+00, 0.1746E+00,& - 0.1774E+00, 0.1801E+00, 0.1829E+00, 0.1857E+00,& - 0.1886E+00, 0.1916E+00, 0.1945E+00, 0.1975E+00,& - 0.2006E+00, 0.2037E+00, 0.2068E+00, 0.2096E+00,& - 0.2132E+00, 0.2165E+00, 0.2198E+00, 0.2232E+00,& - 0.2266E+00, 0.2300E+00, 0.2335E+00, 0.2371E+00,& - 0.2407E+00, 0.2444E+00, 0.2477E+00, 0.2519E+00,& - 0.2557E+00, 0.2596E+00, 0.2635E+00, 0.2674E+00,& - 0.2715E+00, 0.2756E+00, 0.2797E+00, 0.2839E+00,& - 0.2882E+00, 0.2926E+00, 0.2969E+00, 0.3014E+00,& - 0.3059E+00, 0.3105E+00, 0.3151E+00, 0.3198E+00,& - 0.3246E+00, 0.3294E+00, 0.3343E+00, 0.3393E+00,& - 0.3444E+00, 0.3495E+00, 0.3546E+00, 0.3599E+00,& - 0.3652E+00, 0.3706E+00, 0.3761E+00, 0.3817E+00,& - 0.3874E+00, 0.3930E+00, 0.3989E+00, 0.4047E+00,& - 0.4107E+00, 0.4167E+00, 0.4228E+00, 0.4290E+00,& - 0.4353E+00, 0.4417E+00, 0.4482E+00, 0.4548E+00,& - 0.4614E+00, 0.4681E+00, 0.4750E+00, 0.4819E+00,& - 0.4890E+00, 0.4960E+00, 0.5033E+00, 0.5106E+00,& - 0.5180E+00, 0.5256E+00, 0.5332E+00, 0.5409E+00,& - 0.5488E+00, 0.5568E+00, 0.5648E+00, 0.5730E+00,& - 0.5813E+00, 0.5897E+00, 0.5983E+00, 0.6069E+00,& - 0.6157E+00, 0.6245E+00, 0.6335E+00, 0.6427E+00,& - 0.6520E+00, 0.6614E+00, 0.6709E+00, 0.6805E+00,& - 0.6903E+00, 0.7003E+00, 0.7104E+00, 0.7206E+00,& - 0.7309E+00, 0.7414E+00, 0.7520E+00, 0.7629E+00,& - 0.7738E+00, 0.7849E+00, 0.7961E+00, 0.8075E+00,& - 0.8191E+00, 0.8308E+00, 0.8427E+00, 0.8548E+00,& - 0.8671E+00, 0.8795E+00, 0.8921E+00, 0.9044E+00,& - 0.9178E+00, 0.9310E+00, 0.9443E+00, 0.9578E+00,& - 0.9715E+00, 0.9854E+00, 0.9994E+00, 0.1014E+01,& - 0.1028E+01, 0.1043E+01, 0.1058E+01, 0.1073E+01,& - 0.1088E+01, 0.1104E+01, 0.1120E+01, 0.1136E+01,& - 0.1152E+01, 0.1169E+01, 0.1185E+01, 0.1202E+01,& - 0.1220E+01, 0.1237E+01, 0.1255E+01, 0.1273E+01,& - 0.1291E+01, 0.1310E+01, 0.1328E+01, 0.1347E+01,& - 0.1367E+01, 0.1386E+01, 0.1406E+01, 0.1427E+01,& - 0.1447E+01, 0.1468E+01, 0.1489E+01, 0.1511E+01,& - 0.1533E+01, 0.1555E+01, 0.1577E+01, 0.1600E+01,& - 0.1623E+01, 0.1647E+01, 0.1671E+01, 0.1695E+01,& - 0.1720E+01, 0.1745E+01, 0.1770E+01, 0.1796E+01,& - 0.1822E+01, 0.1849E+01, 0.1876E+01, 0.1903E+01,& - 0.1931E+01, 0.1959E+01, 0.1988E+01, 0.2017E+01,& - 0.2047E+01, 0.2077E+01, 0.2108E+01, 0.2139E+01,& - 0.2171E+01, 0.2203E+01, 0.2236E+01, 0.2269E+01,& - 0.2303E+01, 0.2338E+01, 0.2373E+01, 0.2408E+01,& - 0.2445E+01, 0.2481E+01, 0.2519E+01, 0.2557E+01,& - 0.2596E+01, 0.2635E+01, 0.2675E+01, 0.2716E+01,& - 0.2758E+01, 0.2800E+01, 0.2843E+01, 0.2887E+01,& - 0.2932E+01, 0.2977E+01, 0.3023E+01, 0.3071E+01,& - 0.3119E+01, 0.3167E+01, 0.3217E+01, 0.3268E+01,& - 0.3320E+01, 0.3373E+01, 0.3427E+01, 0.3481E+01,& - 0.3537E+01, 0.3594E+01, 0.3653E+01, 0.3712E+01,& - 0.3772E+01, 0.3834E+01, 0.3897E+01, 0.3962E+01,& - 0.4028E+01, 0.4095E+01, 0.4163E+01, 0.4233E+01,& - 0.4305E+01, 0.4378E+01, 0.4453E+01, 0.4530E+01,& - 0.4608E+01, 0.4688E+01, 0.4770E+01, 0.4854E+01,& - 0.4940E+01, 0.5028E+01, 0.5119E+01, 0.5211E+01,& - 0.5306E+01, 0.5403E+01, 0.5503E+01, 0.5606E+01,& - 0.5711E+01, 0.5819E+01, 0.5930E+01, 0.6044E+01,& - 0.6161E+01, 0.6282E+01, 0.6406E+01, 0.6534E+01,& - 0.6666E+01, 0.6801E+01, 0.6942E+01, 0.7086E+01,& - 0.7236E+01, 0.7390E+01, 0.7550E+01, 0.7715E+01,& - 0.7887E+01, 0.8065E+01, 0.8249E+01, 0.8440E+01,& - 0.8640E+01, 0.8847E+01, 0.9063E+01, 0.9288E+01,& - 0.9523E+01, 0.9769E+01, 0.1003E+02, 0.1030E+02,& - 0.1058E+02, 0.1088E+02, 0.1120E+02, 0.1153E+02,& - 0.1189E+02, 0.1226E+02, 0.1267E+02, 0.1310E+02,& - 0.1356E+02, 0.1406E+02, 0.1460E+02, 0.1519E+02,& - 0.1584E+02, 0.1656E+02, 0.1737E+02, 0.1828E+02,& - 0.1932E+02, 0.2054E+02, 0.2201E+02, 0.2383E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,130) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.6749E-04, 0.6749E-04,& - 0.6749E-04, 0.6749E-04, 0.6749E-04, 0.6749E-04,& - 0.6749E-04, 0.6749E-04, 0.6749E-04, 0.6749E-04,& - 0.6749E-04, 0.6749E-04, 0.6749E-04, 0.6749E-04,& - 0.6749E-04, 0.6749E-04, 0.6749E-04, 0.6749E-04,& - 0.6749E-04, 0.6749E-04, 0.1250E-03, 0.1250E-03,& - 0.1250E-03, 0.1250E-03, 0.1250E-03, 0.1250E-03,& - 0.1250E-03, 0.1250E-03, 0.1250E-03, 0.1250E-03,& - 0.1250E-03, 0.1250E-03, 0.1250E-03, 0.1825E-03,& - 0.1825E-03, 0.1825E-03, 0.1825E-03, 0.1825E-03,& - 0.1825E-03, 0.1825E-03, 0.1825E-03, 0.1825E-03,& - 0.2399E-03, 0.2399E-03, 0.2399E-03, 0.2399E-03,& - 0.2399E-03, 0.2399E-03, 0.2399E-03, 0.2399E-03,& - 0.2974E-03, 0.2974E-03, 0.2974E-03, 0.2974E-03,& - 0.2974E-03, 0.2974E-03, 0.2974E-03, 0.3549E-03,& - 0.3549E-03, 0.3549E-03, 0.3549E-03, 0.3549E-03,& - 0.4124E-03, 0.4124E-03, 0.4124E-03, 0.4124E-03,& - 0.4124E-03, 0.4699E-03, 0.4699E-03, 0.4699E-03,& - 0.4699E-03, 0.4699E-03, 0.5274E-03, 0.5274E-03,& - 0.5274E-03, 0.5274E-03, 0.5849E-03, 0.5849E-03,& - 0.5849E-03, 0.6423E-03, 0.6423E-03, 0.6423E-03,& - 0.6423E-03, 0.6998E-03, 0.6998E-03, 0.6998E-03,& - 0.7573E-03, 0.7573E-03, 0.7573E-03, 0.8148E-03,& - 0.8148E-03, 0.8723E-03, 0.8723E-03, 0.8723E-03,& - 0.9298E-03, 0.9298E-03, 0.9873E-03, 0.9873E-03,& - 0.9873E-03, 0.1045E-02, 0.1045E-02, 0.1102E-02,& - 0.1102E-02, 0.1160E-02, 0.1160E-02, 0.1217E-02,& - 0.1217E-02, 0.1275E-02, 0.1275E-02, 0.1332E-02,& - 0.1332E-02, 0.1390E-02, 0.1447E-02, 0.1447E-02,& - 0.1505E-02, 0.1505E-02, 0.1562E-02, 0.1620E-02,& - 0.1620E-02, 0.1677E-02, 0.1735E-02, 0.1792E-02,& - 0.1792E-02, 0.1850E-02, 0.1907E-02, 0.1965E-02,& - 0.1965E-02, 0.2022E-02, 0.2079E-02, 0.2137E-02,& - 0.2194E-02, 0.2252E-02, 0.2309E-02, 0.2367E-02,& - 0.2367E-02, 0.2424E-02, 0.2482E-02, 0.2539E-02,& - 0.2597E-02, 0.2654E-02, 0.2769E-02, 0.2827E-02,& - 0.2884E-02, 0.2942E-02, 0.2999E-02, 0.3057E-02,& - 0.3114E-02, 0.3229E-02, 0.3287E-02, 0.3344E-02,& - 0.3459E-02, 0.3517E-02, 0.3574E-02, 0.3689E-02,& - 0.3747E-02, 0.3804E-02, 0.3919E-02, 0.3977E-02,& - 0.4091E-02, 0.4206E-02, 0.4264E-02, 0.4379E-02,& - 0.4436E-02, 0.4551E-02, 0.4666E-02, 0.4781E-02,& - 0.4839E-02, 0.4954E-02, 0.5069E-02, 0.5184E-02,& - 0.5299E-02, 0.5414E-02, 0.5529E-02, 0.5644E-02,& - 0.5759E-02, 0.5874E-02, 0.5989E-02, 0.6103E-02,& - 0.6276E-02, 0.6391E-02, 0.6506E-02, 0.6678E-02,& - 0.6793E-02, 0.6966E-02, 0.7081E-02, 0.7253E-02,& - 0.7368E-02, 0.7541E-02, 0.7713E-02, 0.7886E-02,& - 0.8001E-02, 0.8173E-02, 0.8345E-02, 0.8518E-02,& - 0.8690E-02, 0.8863E-02, 0.9035E-02, 0.9265E-02,& - 0.9438E-02, 0.9610E-02, 0.9840E-02, 0.1001E-01,& - 0.1024E-01, 0.1041E-01, 0.1064E-01, 0.1087E-01,& - 0.1105E-01, 0.1128E-01, 0.1151E-01, 0.1174E-01,& - 0.1197E-01, 0.1220E-01, 0.1243E-01, 0.1271E-01,& - 0.1294E-01, 0.1323E-01, 0.1346E-01, 0.1375E-01,& - 0.1398E-01, 0.1427E-01, 0.1455E-01, 0.1484E-01,& - 0.1513E-01, 0.1542E-01, 0.1570E-01, 0.1605E-01,& - 0.1634E-01, 0.1662E-01, 0.1697E-01, 0.1731E-01,& - 0.1760E-01, 0.1795E-01, 0.1829E-01, 0.1864E-01,& - 0.1904E-01, 0.1938E-01, 0.1973E-01, 0.2013E-01,& - 0.2047E-01, 0.2088E-01, 0.2128E-01, 0.2168E-01,& - 0.2208E-01, 0.2249E-01, 0.2295E-01, 0.2335E-01,& - 0.2381E-01, 0.2421E-01, 0.2467E-01, 0.2513E-01,& - 0.2559E-01, 0.2605E-01, 0.2657E-01, 0.2703E-01,& - 0.2755E-01, 0.2806E-01, 0.2858E-01, 0.2910E-01,& - 0.2962E-01, 0.3019E-01, 0.3071E-01, 0.3128E-01,& - 0.3186E-01, 0.3243E-01, 0.3301E-01, 0.3364E-01,& - 0.3421E-01, 0.3485E-01, 0.3548E-01, 0.3611E-01,& - 0.3674E-01, 0.3743E-01, 0.3807E-01, 0.3876E-01,& - 0.3945E-01, 0.4014E-01, 0.4088E-01, 0.4157E-01,& - 0.4232E-01, 0.4307E-01, 0.4387E-01, 0.4462E-01,& - 0.4542E-01, 0.4623E-01, 0.4703E-01, 0.4784E-01,& - 0.4870E-01, 0.4951E-01, 0.5042E-01, 0.5129E-01,& - 0.5215E-01, 0.5307E-01, 0.5399E-01, 0.5491E-01,& - 0.5589E-01, 0.5686E-01, 0.5784E-01, 0.5882E-01,& - 0.5985E-01, 0.6089E-01, 0.6192E-01, 0.6296E-01,& - 0.6405E-01, 0.6514E-01, 0.6623E-01, 0.6738E-01,& - 0.6853E-01, 0.6968E-01, 0.7089E-01, 0.7210E-01,& - 0.7330E-01, 0.7451E-01, 0.7578E-01, 0.7710E-01,& - 0.7836E-01, 0.7969E-01, 0.8101E-01, 0.8239E-01,& - 0.8377E-01, 0.8515E-01, 0.8658E-01, 0.8802E-01,& - 0.8946E-01, 0.9095E-01, 0.9245E-01, 0.9400E-01,& - 0.9555E-01, 0.9716E-01, 0.9871E-01, 0.1004E+00,& - 0.1020E+00, 0.1037E+00, 0.1054E+00, 0.1071E+00,& - 0.1089E+00, 0.1107E+00, 0.1125E+00, 0.1143E+00,& - 0.1161E+00, 0.1180E+00, 0.1199E+00, 0.1219E+00,& - 0.1239E+00, 0.1258E+00, 0.1279E+00, 0.1300E+00,& - 0.1321E+00, 0.1342E+00, 0.1364E+00, 0.1386E+00,& - 0.1407E+00, 0.1430E+00, 0.1453E+00, 0.1476E+00,& - 0.1500E+00, 0.1523E+00, 0.1548E+00, 0.1572E+00,& - 0.1598E+00, 0.1623E+00, 0.1648E+00, 0.1675E+00,& - 0.1701E+00, 0.1728E+00, 0.1755E+00, 0.1783E+00,& - 0.1810E+00, 0.1839E+00, 0.1868E+00, 0.1897E+00,& - 0.1927E+00, 0.1957E+00, 0.1987E+00, 0.2018E+00,& - 0.2050E+00, 0.2082E+00, 0.2114E+00, 0.2147E+00,& - 0.2181E+00, 0.2214E+00, 0.2248E+00, 0.2283E+00,& - 0.2318E+00, 0.2354E+00, 0.2390E+00, 0.2427E+00,& - 0.2465E+00, 0.2502E+00, 0.2541E+00, 0.2579E+00,& - 0.2619E+00, 0.2659E+00, 0.2700E+00, 0.2741E+00,& - 0.2783E+00, 0.2826E+00, 0.2868E+00, 0.2912E+00,& - 0.2956E+00, 0.3001E+00, 0.3046E+00, 0.3093E+00,& - 0.3139E+00, 0.3187E+00, 0.3235E+00, 0.3284E+00,& - 0.3333E+00, 0.3384E+00, 0.3434E+00, 0.3486E+00,& - 0.3538E+00, 0.3592E+00, 0.3645E+00, 0.3700E+00,& - 0.3756E+00, 0.3811E+00, 0.3869E+00, 0.3926E+00,& - 0.3985E+00, 0.4044E+00, 0.4105E+00, 0.4166E+00,& - 0.4228E+00, 0.4290E+00, 0.4354E+00, 0.4419E+00,& - 0.4485E+00, 0.4551E+00, 0.4618E+00, 0.4686E+00,& - 0.4756E+00, 0.4826E+00, 0.4897E+00, 0.4970E+00,& - 0.5043E+00, 0.5117E+00, 0.5192E+00, 0.5269E+00,& - 0.5346E+00, 0.5425E+00, 0.5504E+00, 0.5585E+00,& - 0.5667E+00, 0.5750E+00, 0.5834E+00, 0.5920E+00,& - 0.6007E+00, 0.6095E+00, 0.6184E+00, 0.6274E+00,& - 0.6365E+00, 0.6459E+00, 0.6553E+00, 0.6648E+00,& - 0.6745E+00, 0.6844E+00, 0.6943E+00, 0.7044E+00,& - 0.7147E+00, 0.7251E+00, 0.7357E+00, 0.7463E+00,& - 0.7572E+00, 0.7682E+00, 0.7793E+00, 0.7907E+00,& - 0.8022E+00, 0.8138E+00, 0.8256E+00, 0.8376E+00,& - 0.8496E+00, 0.8621E+00, 0.8745E+00, 0.8872E+00,& - 0.9001E+00, 0.9131E+00, 0.9264E+00, 0.9398E+00,& - 0.9534E+00, 0.9672E+00, 0.9812E+00, 0.9954E+00,& - 0.1010E+01, 0.1025E+01, 0.1039E+01, 0.1054E+01,& - 0.1070E+01, 0.1085E+01, 0.1101E+01, 0.1117E+01,& - 0.1133E+01, 0.1149E+01, 0.1166E+01, 0.1183E+01,& - 0.1200E+01, 0.1218E+01, 0.1235E+01, 0.1253E+01,& - 0.1271E+01, 0.1290E+01, 0.1309E+01, 0.1328E+01,& - 0.1347E+01, 0.1367E+01, 0.1387E+01, 0.1407E+01,& - 0.1427E+01, 0.1448E+01, 0.1469E+01, 0.1491E+01,& - 0.1512E+01, 0.1535E+01, 0.1557E+01, 0.1580E+01,& - 0.1603E+01, 0.1626E+01, 0.1650E+01, 0.1675E+01,& - 0.1699E+01, 0.1724E+01, 0.1750E+01, 0.1775E+01,& - 0.1802E+01, 0.1828E+01, 0.1855E+01, 0.1883E+01,& - 0.1911E+01, 0.1939E+01, 0.1968E+01, 0.1997E+01,& - 0.2027E+01, 0.2057E+01, 0.2088E+01, 0.2119E+01,& - 0.2151E+01, 0.2183E+01, 0.2216E+01, 0.2249E+01,& - 0.2283E+01, 0.2318E+01, 0.2353E+01, 0.2389E+01,& - 0.2425E+01, 0.2462E+01, 0.2500E+01, 0.2538E+01,& - 0.2577E+01, 0.2616E+01, 0.2657E+01, 0.2698E+01,& - 0.2739E+01, 0.2782E+01, 0.2825E+01, 0.2869E+01,& - 0.2914E+01, 0.2959E+01, 0.3006E+01, 0.3053E+01,& - 0.3102E+01, 0.3151E+01, 0.3201E+01, 0.3252E+01,& - 0.3304E+01, 0.3357E+01, 0.3411E+01, 0.3466E+01,& - 0.3522E+01, 0.3580E+01, 0.3638E+01, 0.3698E+01,& - 0.3759E+01, 0.3821E+01, 0.3884E+01, 0.3949E+01,& - 0.4016E+01, 0.4083E+01, 0.4152E+01, 0.4223E+01,& - 0.4295E+01, 0.4369E+01, 0.4444E+01, 0.4521E+01,& - 0.4600E+01, 0.4681E+01, 0.4764E+01, 0.4848E+01,& - 0.4935E+01, 0.5024E+01, 0.5115E+01, 0.5206E+01,& - 0.5303E+01, 0.5401E+01, 0.5502E+01, 0.5605E+01,& - 0.5711E+01, 0.5820E+01, 0.5932E+01, 0.6047E+01,& - 0.6165E+01, 0.6287E+01, 0.6413E+01, 0.6542E+01,& - 0.6675E+01, 0.6812E+01, 0.6953E+01, 0.7100E+01,& - 0.7251E+01, 0.7406E+01, 0.7564E+01, 0.7735E+01,& - 0.7908E+01, 0.8087E+01, 0.8274E+01, 0.8467E+01,& - 0.8668E+01, 0.8878E+01, 0.9096E+01, 0.9324E+01,& - 0.9561E+01, 0.9810E+01, 0.1007E+02, 0.1034E+02,& - 0.1063E+02, 0.1094E+02, 0.1125E+02, 0.1159E+02,& - 0.1195E+02, 0.1233E+02, 0.1274E+02, 0.1318E+02,& - 0.1365E+02, 0.1415E+02, 0.1470E+02, 0.1530E+02,& - 0.1596E+02, 0.1669E+02, 0.1750E+02, 0.1842E+02,& - 0.1948E+02, 0.2072E+02, 0.2221E+02, 0.2405E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,131) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.6828E-04,& - 0.6828E-04, 0.6828E-04, 0.6828E-04, 0.6828E-04,& - 0.6828E-04, 0.6828E-04, 0.6828E-04, 0.6828E-04,& - 0.6828E-04, 0.6828E-04, 0.6828E-04, 0.6828E-04,& - 0.6828E-04, 0.6828E-04, 0.6828E-04, 0.6828E-04,& - 0.6828E-04, 0.6828E-04, 0.6828E-04, 0.1266E-03,& - 0.1266E-03, 0.1266E-03, 0.1266E-03, 0.1266E-03,& - 0.1266E-03, 0.1266E-03, 0.1266E-03, 0.1266E-03,& - 0.1266E-03, 0.1266E-03, 0.1266E-03, 0.1266E-03,& - 0.1848E-03, 0.1848E-03, 0.1848E-03, 0.1848E-03,& - 0.1848E-03, 0.1848E-03, 0.1848E-03, 0.1848E-03,& - 0.1848E-03, 0.1848E-03, 0.2431E-03, 0.2431E-03,& - 0.2431E-03, 0.2431E-03, 0.2431E-03, 0.2431E-03,& - 0.2431E-03, 0.2431E-03, 0.3014E-03, 0.3014E-03,& - 0.3014E-03, 0.3014E-03, 0.3014E-03, 0.3014E-03,& - 0.3597E-03, 0.3597E-03, 0.3597E-03, 0.3597E-03,& - 0.3597E-03, 0.3597E-03, 0.4180E-03, 0.4180E-03,& - 0.4180E-03, 0.4180E-03, 0.4180E-03, 0.4763E-03,& - 0.4763E-03, 0.4763E-03, 0.4763E-03, 0.5345E-03,& - 0.5345E-03, 0.5345E-03, 0.5345E-03, 0.5928E-03,& - 0.5928E-03, 0.5928E-03, 0.5928E-03, 0.6511E-03,& - 0.6511E-03, 0.6511E-03, 0.7094E-03, 0.7094E-03,& - 0.7094E-03, 0.7677E-03, 0.7677E-03, 0.7677E-03,& - 0.8259E-03, 0.8259E-03, 0.8259E-03, 0.8842E-03,& - 0.8842E-03, 0.9425E-03, 0.9425E-03, 0.9425E-03,& - 0.1001E-02, 0.1001E-02, 0.1059E-02, 0.1059E-02,& - 0.1117E-02, 0.1117E-02, 0.1176E-02, 0.1176E-02,& - 0.1234E-02, 0.1234E-02, 0.1292E-02, 0.1292E-02,& - 0.1350E-02, 0.1350E-02, 0.1409E-02, 0.1409E-02,& - 0.1467E-02, 0.1525E-02, 0.1525E-02, 0.1584E-02,& - 0.1642E-02, 0.1642E-02, 0.1700E-02, 0.1758E-02,& - 0.1758E-02, 0.1817E-02, 0.1875E-02, 0.1933E-02,& - 0.1933E-02, 0.1992E-02, 0.2050E-02, 0.2108E-02,& - 0.2166E-02, 0.2225E-02, 0.2225E-02, 0.2283E-02,& - 0.2341E-02, 0.2400E-02, 0.2458E-02, 0.2516E-02,& - 0.2574E-02, 0.2633E-02, 0.2691E-02, 0.2749E-02,& - 0.2808E-02, 0.2924E-02, 0.2982E-02, 0.3041E-02,& - 0.3099E-02, 0.3157E-02, 0.3215E-02, 0.3332E-02,& - 0.3390E-02, 0.3449E-02, 0.3565E-02, 0.3623E-02,& - 0.3682E-02, 0.3798E-02, 0.3857E-02, 0.3973E-02,& - 0.4031E-02, 0.4148E-02, 0.4206E-02, 0.4323E-02,& - 0.4439E-02, 0.4498E-02, 0.4614E-02, 0.4731E-02,& - 0.4789E-02, 0.4906E-02, 0.5022E-02, 0.5139E-02,& - 0.5255E-02, 0.5372E-02, 0.5488E-02, 0.5605E-02,& - 0.5722E-02, 0.5838E-02, 0.5955E-02, 0.6071E-02,& - 0.6188E-02, 0.6363E-02, 0.6479E-02, 0.6596E-02,& - 0.6771E-02, 0.6887E-02, 0.7062E-02, 0.7179E-02,& - 0.7353E-02, 0.7528E-02, 0.7645E-02, 0.7820E-02,& - 0.7995E-02, 0.8169E-02, 0.8286E-02, 0.8461E-02,& - 0.8636E-02, 0.8810E-02, 0.9044E-02, 0.9218E-02,& - 0.9393E-02, 0.9568E-02, 0.9801E-02, 0.9976E-02,& - 0.1021E-01, 0.1038E-01, 0.1062E-01, 0.1079E-01,& - 0.1103E-01, 0.1126E-01, 0.1149E-01, 0.1172E-01,& - 0.1196E-01, 0.1219E-01, 0.1242E-01, 0.1266E-01,& - 0.1295E-01, 0.1318E-01, 0.1347E-01, 0.1371E-01,& - 0.1400E-01, 0.1429E-01, 0.1452E-01, 0.1481E-01,& - 0.1510E-01, 0.1540E-01, 0.1575E-01, 0.1604E-01,& - 0.1633E-01, 0.1668E-01, 0.1697E-01, 0.1732E-01,& - 0.1767E-01, 0.1796E-01, 0.1831E-01, 0.1866E-01,& - 0.1907E-01, 0.1942E-01, 0.1977E-01, 0.2018E-01,& - 0.2053E-01, 0.2093E-01, 0.2134E-01, 0.2175E-01,& - 0.2216E-01, 0.2256E-01, 0.2297E-01, 0.2344E-01,& - 0.2385E-01, 0.2431E-01, 0.2478E-01, 0.2525E-01,& - 0.2571E-01, 0.2618E-01, 0.2670E-01, 0.2717E-01,& - 0.2769E-01, 0.2822E-01, 0.2874E-01, 0.2927E-01,& - 0.2979E-01, 0.3032E-01, 0.3090E-01, 0.3148E-01,& - 0.3206E-01, 0.3265E-01, 0.3323E-01, 0.3381E-01,& - 0.3445E-01, 0.3510E-01, 0.3574E-01, 0.3638E-01,& - 0.3702E-01, 0.3766E-01, 0.3836E-01, 0.3906E-01,& - 0.3976E-01, 0.4046E-01, 0.4121E-01, 0.4191E-01,& - 0.4267E-01, 0.4343E-01, 0.4425E-01, 0.4500E-01,& - 0.4582E-01, 0.4664E-01, 0.4745E-01, 0.4827E-01,& - 0.4914E-01, 0.5002E-01, 0.5089E-01, 0.5182E-01,& - 0.5270E-01, 0.5363E-01, 0.5456E-01, 0.5549E-01,& - 0.5648E-01, 0.5748E-01, 0.5847E-01, 0.5952E-01,& - 0.6051E-01, 0.6156E-01, 0.6266E-01, 0.6371E-01,& - 0.6482E-01, 0.6593E-01, 0.6709E-01, 0.6826E-01,& - 0.6942E-01, 0.7059E-01, 0.7181E-01, 0.7304E-01,& - 0.7426E-01, 0.7554E-01, 0.7682E-01, 0.7811E-01,& - 0.7945E-01, 0.8079E-01, 0.8219E-01, 0.8359E-01,& - 0.8498E-01, 0.8638E-01, 0.8784E-01, 0.8936E-01,& - 0.9081E-01, 0.9233E-01, 0.9390E-01, 0.9547E-01,& - 0.9705E-01, 0.9868E-01, 0.1003E+00, 0.1020E+00,& - 0.1037E+00, 0.1054E+00, 0.1071E+00, 0.1089E+00,& - 0.1107E+00, 0.1126E+00, 0.1144E+00, 0.1163E+00,& - 0.1182E+00, 0.1201E+00, 0.1221E+00, 0.1241E+00,& - 0.1261E+00, 0.1282E+00, 0.1303E+00, 0.1324E+00,& - 0.1345E+00, 0.1367E+00, 0.1390E+00, 0.1412E+00,& - 0.1435E+00, 0.1458E+00, 0.1482E+00, 0.1506E+00,& - 0.1529E+00, 0.1554E+00, 0.1580E+00, 0.1605E+00,& - 0.1630E+00, 0.1656E+00, 0.1683E+00, 0.1709E+00,& - 0.1737E+00, 0.1765E+00, 0.1793E+00, 0.1821E+00,& - 0.1850E+00, 0.1880E+00, 0.1909E+00, 0.1940E+00,& - 0.1970E+00, 0.2001E+00, 0.2033E+00, 0.2065E+00,& - 0.2097E+00, 0.2130E+00, 0.2164E+00, 0.2197E+00,& - 0.2232E+00, 0.2267E+00, 0.2302E+00, 0.2338E+00,& - 0.2374E+00, 0.2412E+00, 0.2449E+00, 0.2488E+00,& - 0.2526E+00, 0.2565E+00, 0.2605E+00, 0.2645E+00,& - 0.2686E+00, 0.2728E+00, 0.2770E+00, 0.2812E+00,& - 0.2856E+00, 0.2900E+00, 0.2944E+00, 0.2989E+00,& - 0.3035E+00, 0.3082E+00, 0.3129E+00, 0.3177E+00,& - 0.3225E+00, 0.3275E+00, 0.3324E+00, 0.3375E+00,& - 0.3427E+00, 0.3479E+00, 0.3532E+00, 0.3586E+00,& - 0.3640E+00, 0.3695E+00, 0.3751E+00, 0.3808E+00,& - 0.3865E+00, 0.3924E+00, 0.3983E+00, 0.4043E+00,& - 0.4104E+00, 0.4166E+00, 0.4228E+00, 0.4292E+00,& - 0.4357E+00, 0.4422E+00, 0.4488E+00, 0.4556E+00,& - 0.4624E+00, 0.4694E+00, 0.4763E+00, 0.4835E+00,& - 0.4907E+00, 0.4980E+00, 0.5055E+00, 0.5130E+00,& - 0.5206E+00, 0.5284E+00, 0.5363E+00, 0.5442E+00,& - 0.5523E+00, 0.5606E+00, 0.5688E+00, 0.5773E+00,& - 0.5859E+00, 0.5945E+00, 0.6033E+00, 0.6123E+00,& - 0.6213E+00, 0.6306E+00, 0.6399E+00, 0.6493E+00,& - 0.6589E+00, 0.6686E+00, 0.6785E+00, 0.6885E+00,& - 0.6987E+00, 0.7089E+00, 0.7194E+00, 0.7300E+00,& - 0.7408E+00, 0.7517E+00, 0.7627E+00, 0.7739E+00,& - 0.7854E+00, 0.7969E+00, 0.8086E+00, 0.8204E+00,& - 0.8325E+00, 0.8447E+00, 0.8572E+00, 0.8697E+00,& - 0.8825E+00, 0.8954E+00, 0.9085E+00, 0.9219E+00,& - 0.9354E+00, 0.9492E+00, 0.9631E+00, 0.9772E+00,& - 0.9916E+00, 0.1006E+01, 0.1021E+01, 0.1036E+01,& - 0.1051E+01, 0.1066E+01, 0.1082E+01, 0.1098E+01,& - 0.1114E+01, 0.1130E+01, 0.1147E+01, 0.1164E+01,& - 0.1181E+01, 0.1198E+01, 0.1216E+01, 0.1234E+01,& - 0.1252E+01, 0.1270E+01, 0.1289E+01, 0.1308E+01,& - 0.1327E+01, 0.1347E+01, 0.1367E+01, 0.1387E+01,& - 0.1407E+01, 0.1428E+01, 0.1449E+01, 0.1471E+01,& - 0.1492E+01, 0.1514E+01, 0.1537E+01, 0.1560E+01,& - 0.1583E+01, 0.1606E+01, 0.1630E+01, 0.1654E+01,& - 0.1679E+01, 0.1704E+01, 0.1729E+01, 0.1755E+01,& - 0.1781E+01, 0.1808E+01, 0.1835E+01, 0.1862E+01,& - 0.1890E+01, 0.1919E+01, 0.1947E+01, 0.1977E+01,& - 0.2007E+01, 0.2037E+01, 0.2068E+01, 0.2099E+01,& - 0.2131E+01, 0.2163E+01, 0.2196E+01, 0.2229E+01,& - 0.2263E+01, 0.2298E+01, 0.2333E+01, 0.2369E+01,& - 0.2405E+01, 0.2442E+01, 0.2480E+01, 0.2518E+01,& - 0.2557E+01, 0.2597E+01, 0.2637E+01, 0.2679E+01,& - 0.2720E+01, 0.2763E+01, 0.2806E+01, 0.2851E+01,& - 0.2896E+01, 0.2941E+01, 0.2988E+01, 0.3036E+01,& - 0.3084E+01, 0.3134E+01, 0.3184E+01, 0.3235E+01,& - 0.3287E+01, 0.3341E+01, 0.3395E+01, 0.3450E+01,& - 0.3507E+01, 0.3565E+01, 0.3623E+01, 0.3684E+01,& - 0.3745E+01, 0.3807E+01, 0.3871E+01, 0.3936E+01,& - 0.4003E+01, 0.4071E+01, 0.4141E+01, 0.4212E+01,& - 0.4284E+01, 0.4358E+01, 0.4434E+01, 0.4512E+01,& - 0.4592E+01, 0.4673E+01, 0.4756E+01, 0.4841E+01,& - 0.4929E+01, 0.5018E+01, 0.5110E+01, 0.5204E+01,& - 0.5300E+01, 0.5399E+01, 0.5500E+01, 0.5604E+01,& - 0.5711E+01, 0.5821E+01, 0.5934E+01, 0.6050E+01,& - 0.6169E+01, 0.6292E+01, 0.6419E+01, 0.6549E+01,& - 0.6683E+01, 0.6822E+01, 0.6965E+01, 0.7112E+01,& - 0.7264E+01, 0.7422E+01, 0.7585E+01, 0.7754E+01,& - 0.7928E+01, 0.8110E+01, 0.8298E+01, 0.8493E+01,& - 0.8696E+01, 0.8908E+01, 0.9129E+01, 0.9359E+01,& - 0.9599E+01, 0.9851E+01, 0.1011E+02, 0.1039E+02,& - 0.1068E+02, 0.1099E+02, 0.1131E+02, 0.1165E+02,& - 0.1202E+02, 0.1240E+02, 0.1282E+02, 0.1326E+02,& - 0.1373E+02, 0.1424E+02, 0.1480E+02, 0.1540E+02,& - 0.1607E+02, 0.1681E+02, 0.1763E+02, 0.1857E+02,& - 0.1964E+02, 0.2089E+02, 0.2240E+02, 0.2427E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,132) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.6908E-04, 0.6908E-04, 0.6908E-04, 0.6908E-04,& - 0.6908E-04, 0.6908E-04, 0.6908E-04, 0.6908E-04,& - 0.6908E-04, 0.6908E-04, 0.6908E-04, 0.6908E-04,& - 0.6908E-04, 0.6908E-04, 0.6908E-04, 0.6908E-04,& - 0.6908E-04, 0.6908E-04, 0.6908E-04, 0.6908E-04,& - 0.6908E-04, 0.1282E-03, 0.1282E-03, 0.1282E-03,& - 0.1282E-03, 0.1282E-03, 0.1282E-03, 0.1282E-03,& - 0.1282E-03, 0.1282E-03, 0.1282E-03, 0.1282E-03,& - 0.1282E-03, 0.1282E-03, 0.1872E-03, 0.1872E-03,& - 0.1872E-03, 0.1872E-03, 0.1872E-03, 0.1872E-03,& - 0.1872E-03, 0.1872E-03, 0.1872E-03, 0.2463E-03,& - 0.2463E-03, 0.2463E-03, 0.2463E-03, 0.2463E-03,& - 0.2463E-03, 0.2463E-03, 0.2463E-03, 0.3054E-03,& - 0.3054E-03, 0.3054E-03, 0.3054E-03, 0.3054E-03,& - 0.3054E-03, 0.3054E-03, 0.3645E-03, 0.3645E-03,& - 0.3645E-03, 0.3645E-03, 0.3645E-03, 0.4236E-03,& - 0.4236E-03, 0.4236E-03, 0.4236E-03, 0.4236E-03,& - 0.4827E-03, 0.4827E-03, 0.4827E-03, 0.4827E-03,& - 0.5417E-03, 0.5417E-03, 0.5417E-03, 0.5417E-03,& - 0.6008E-03, 0.6008E-03, 0.6008E-03, 0.6008E-03,& - 0.6599E-03, 0.6599E-03, 0.6599E-03, 0.7190E-03,& - 0.7190E-03, 0.7190E-03, 0.7190E-03, 0.7781E-03,& - 0.7781E-03, 0.8372E-03, 0.8372E-03, 0.8372E-03,& - 0.8962E-03, 0.8962E-03, 0.8962E-03, 0.9553E-03,& - 0.9553E-03, 0.1014E-02, 0.1014E-02, 0.1073E-02,& - 0.1073E-02, 0.1073E-02, 0.1133E-02, 0.1133E-02,& - 0.1192E-02, 0.1192E-02, 0.1251E-02, 0.1251E-02,& - 0.1310E-02, 0.1369E-02, 0.1369E-02, 0.1428E-02,& - 0.1428E-02, 0.1487E-02, 0.1546E-02, 0.1546E-02,& - 0.1605E-02, 0.1605E-02, 0.1664E-02, 0.1723E-02,& - 0.1782E-02, 0.1782E-02, 0.1842E-02, 0.1901E-02,& - 0.1901E-02, 0.1960E-02, 0.2019E-02, 0.2078E-02,& - 0.2137E-02, 0.2196E-02, 0.2196E-02, 0.2255E-02,& - 0.2314E-02, 0.2373E-02, 0.2432E-02, 0.2491E-02,& - 0.2551E-02, 0.2610E-02, 0.2669E-02, 0.2728E-02,& - 0.2787E-02, 0.2846E-02, 0.2905E-02, 0.3023E-02,& - 0.3082E-02, 0.3141E-02, 0.3200E-02, 0.3260E-02,& - 0.3378E-02, 0.3437E-02, 0.3496E-02, 0.3614E-02,& - 0.3673E-02, 0.3732E-02, 0.3850E-02, 0.3909E-02,& - 0.4028E-02, 0.4087E-02, 0.4205E-02, 0.4264E-02,& - 0.4382E-02, 0.4500E-02, 0.4559E-02, 0.4678E-02,& - 0.4796E-02, 0.4855E-02, 0.4973E-02, 0.5091E-02,& - 0.5209E-02, 0.5327E-02, 0.5446E-02, 0.5564E-02,& - 0.5682E-02, 0.5800E-02, 0.5918E-02, 0.6036E-02,& - 0.6155E-02, 0.6332E-02, 0.6450E-02, 0.6568E-02,& - 0.6745E-02, 0.6864E-02, 0.6982E-02, 0.7159E-02,& - 0.7336E-02, 0.7454E-02, 0.7632E-02, 0.7809E-02,& - 0.7927E-02, 0.8104E-02, 0.8282E-02, 0.8459E-02,& - 0.8636E-02, 0.8813E-02, 0.8991E-02, 0.9168E-02,& - 0.9345E-02, 0.9581E-02, 0.9759E-02, 0.9936E-02,& - 0.1017E-01, 0.1035E-01, 0.1059E-01, 0.1082E-01,& - 0.1100E-01, 0.1124E-01, 0.1147E-01, 0.1171E-01,& - 0.1194E-01, 0.1218E-01, 0.1242E-01, 0.1265E-01,& - 0.1295E-01, 0.1319E-01, 0.1342E-01, 0.1372E-01,& - 0.1401E-01, 0.1425E-01, 0.1454E-01, 0.1484E-01,& - 0.1514E-01, 0.1543E-01, 0.1573E-01, 0.1602E-01,& - 0.1638E-01, 0.1667E-01, 0.1703E-01, 0.1732E-01,& - 0.1768E-01, 0.1803E-01, 0.1838E-01, 0.1874E-01,& - 0.1909E-01, 0.1945E-01, 0.1986E-01, 0.2022E-01,& - 0.2063E-01, 0.2098E-01, 0.2140E-01, 0.2181E-01,& - 0.2223E-01, 0.2264E-01, 0.2311E-01, 0.2353E-01,& - 0.2400E-01, 0.2441E-01, 0.2488E-01, 0.2536E-01,& - 0.2583E-01, 0.2630E-01, 0.2683E-01, 0.2731E-01,& - 0.2784E-01, 0.2837E-01, 0.2890E-01, 0.2943E-01,& - 0.2997E-01, 0.3056E-01, 0.3109E-01, 0.3168E-01,& - 0.3227E-01, 0.3286E-01, 0.3345E-01, 0.3410E-01,& - 0.3469E-01, 0.3534E-01, 0.3599E-01, 0.3664E-01,& - 0.3729E-01, 0.3800E-01, 0.3871E-01, 0.3942E-01,& - 0.4013E-01, 0.4084E-01, 0.4160E-01, 0.4231E-01,& - 0.4308E-01, 0.4385E-01, 0.4468E-01, 0.4544E-01,& - 0.4627E-01, 0.4710E-01, 0.4793E-01, 0.4881E-01,& - 0.4970E-01, 0.5059E-01, 0.5147E-01, 0.5236E-01,& - 0.5330E-01, 0.5425E-01, 0.5519E-01, 0.5620E-01,& - 0.5714E-01, 0.5815E-01, 0.5921E-01, 0.6022E-01,& - 0.6128E-01, 0.6234E-01, 0.6347E-01, 0.6453E-01,& - 0.6565E-01, 0.6683E-01, 0.6796E-01, 0.6914E-01,& - 0.7038E-01, 0.7156E-01, 0.7280E-01, 0.7404E-01,& - 0.7534E-01, 0.7664E-01, 0.7794E-01, 0.7930E-01,& - 0.8066E-01, 0.8202E-01, 0.8344E-01, 0.8485E-01,& - 0.8627E-01, 0.8775E-01, 0.8923E-01, 0.9076E-01,& - 0.9230E-01, 0.9383E-01, 0.9543E-01, 0.9702E-01,& - 0.9868E-01, 0.1003E+00, 0.1020E+00, 0.1038E+00,& - 0.1055E+00, 0.1072E+00, 0.1090E+00, 0.1108E+00,& - 0.1127E+00, 0.1146E+00, 0.1165E+00, 0.1184E+00,& - 0.1204E+00, 0.1224E+00, 0.1244E+00, 0.1264E+00,& - 0.1286E+00, 0.1306E+00, 0.1328E+00, 0.1350E+00,& - 0.1372E+00, 0.1394E+00, 0.1418E+00, 0.1441E+00,& - 0.1464E+00, 0.1488E+00, 0.1512E+00, 0.1537E+00,& - 0.1562E+00, 0.1587E+00, 0.1613E+00, 0.1639E+00,& - 0.1666E+00, 0.1693E+00, 0.1720E+00, 0.1748E+00,& - 0.1776E+00, 0.1804E+00, 0.1833E+00, 0.1862E+00,& - 0.1893E+00, 0.1923E+00, 0.1953E+00, 0.1985E+00,& - 0.2017E+00, 0.2049E+00, 0.2081E+00, 0.2114E+00,& - 0.2148E+00, 0.2182E+00, 0.2216E+00, 0.2252E+00,& - 0.2287E+00, 0.2323E+00, 0.2360E+00, 0.2397E+00,& - 0.2435E+00, 0.2473E+00, 0.2512E+00, 0.2551E+00,& - 0.2591E+00, 0.2632E+00, 0.2674E+00, 0.2715E+00,& - 0.2758E+00, 0.2801E+00, 0.2844E+00, 0.2889E+00,& - 0.2934E+00, 0.2979E+00, 0.3025E+00, 0.3072E+00,& - 0.3120E+00, 0.3168E+00, 0.3217E+00, 0.3267E+00,& - 0.3317E+00, 0.3368E+00, 0.3420E+00, 0.3473E+00,& - 0.3527E+00, 0.3581E+00, 0.3635E+00, 0.3692E+00,& - 0.3748E+00, 0.3806E+00, 0.3864E+00, 0.3923E+00,& - 0.3983E+00, 0.4044E+00, 0.4105E+00, 0.4168E+00,& - 0.4232E+00, 0.4296E+00, 0.4361E+00, 0.4427E+00,& - 0.4495E+00, 0.4563E+00, 0.4632E+00, 0.4702E+00,& - 0.4773E+00, 0.4846E+00, 0.4919E+00, 0.4993E+00,& - 0.5069E+00, 0.5145E+00, 0.5223E+00, 0.5302E+00,& - 0.5381E+00, 0.5462E+00, 0.5544E+00, 0.5628E+00,& - 0.5712E+00, 0.5799E+00, 0.5885E+00, 0.5973E+00,& - 0.6063E+00, 0.6154E+00, 0.6246E+00, 0.6340E+00,& - 0.6435E+00, 0.6531E+00, 0.6629E+00, 0.6727E+00,& - 0.6828E+00, 0.6930E+00, 0.7033E+00, 0.7139E+00,& - 0.7245E+00, 0.7353E+00, 0.7462E+00, 0.7573E+00,& - 0.7686E+00, 0.7801E+00, 0.7917E+00, 0.8035E+00,& - 0.8154E+00, 0.8276E+00, 0.8399E+00, 0.8523E+00,& - 0.8650E+00, 0.8779E+00, 0.8909E+00, 0.9042E+00,& - 0.9176E+00, 0.9312E+00, 0.9450E+00, 0.9591E+00,& - 0.9733E+00, 0.9878E+00, 0.1002E+01, 0.1017E+01,& - 0.1032E+01, 0.1048E+01, 0.1063E+01, 0.1079E+01,& - 0.1095E+01, 0.1111E+01, 0.1128E+01, 0.1145E+01,& - 0.1162E+01, 0.1179E+01, 0.1197E+01, 0.1214E+01,& - 0.1232E+01, 0.1251E+01, 0.1269E+01, 0.1288E+01,& - 0.1307E+01, 0.1327E+01, 0.1347E+01, 0.1367E+01,& - 0.1387E+01, 0.1408E+01, 0.1429E+01, 0.1450E+01,& - 0.1472E+01, 0.1494E+01, 0.1516E+01, 0.1539E+01,& - 0.1562E+01, 0.1586E+01, 0.1609E+01, 0.1634E+01,& - 0.1658E+01, 0.1683E+01, 0.1709E+01, 0.1734E+01,& - 0.1761E+01, 0.1787E+01, 0.1814E+01, 0.1842E+01,& - 0.1870E+01, 0.1898E+01, 0.1927E+01, 0.1956E+01,& - 0.1986E+01, 0.2016E+01, 0.2047E+01, 0.2078E+01,& - 0.2110E+01, 0.2143E+01, 0.2176E+01, 0.2209E+01,& - 0.2243E+01, 0.2278E+01, 0.2313E+01, 0.2349E+01,& - 0.2385E+01, 0.2422E+01, 0.2460E+01, 0.2499E+01,& - 0.2538E+01, 0.2578E+01, 0.2618E+01, 0.2659E+01,& - 0.2701E+01, 0.2744E+01, 0.2788E+01, 0.2832E+01,& - 0.2877E+01, 0.2923E+01, 0.2970E+01, 0.3018E+01,& - 0.3066E+01, 0.3116E+01, 0.3167E+01, 0.3218E+01,& - 0.3271E+01, 0.3324E+01, 0.3379E+01, 0.3434E+01,& - 0.3491E+01, 0.3549E+01, 0.3608E+01, 0.3669E+01,& - 0.3730E+01, 0.3793E+01, 0.3857E+01, 0.3923E+01,& - 0.3990E+01, 0.4058E+01, 0.4128E+01, 0.4200E+01,& - 0.4273E+01, 0.4348E+01, 0.4424E+01, 0.4502E+01,& - 0.4582E+01, 0.4664E+01, 0.4748E+01, 0.4834E+01,& - 0.4922E+01, 0.5012E+01, 0.5104E+01, 0.5199E+01,& - 0.5296E+01, 0.5396E+01, 0.5498E+01, 0.5603E+01,& - 0.5711E+01, 0.5821E+01, 0.5935E+01, 0.6052E+01,& - 0.6173E+01, 0.6296E+01, 0.6424E+01, 0.6556E+01,& - 0.6691E+01, 0.6831E+01, 0.6975E+01, 0.7124E+01,& - 0.7278E+01, 0.7437E+01, 0.7601E+01, 0.7771E+01,& - 0.7948E+01, 0.8131E+01, 0.8321E+01, 0.8519E+01,& - 0.8724E+01, 0.8938E+01, 0.9160E+01, 0.9393E+01,& - 0.9636E+01, 0.9890E+01, 0.1016E+02, 0.1044E+02,& - 0.1073E+02, 0.1104E+02, 0.1137E+02, 0.1171E+02,& - 0.1208E+02, 0.1247E+02, 0.1289E+02, 0.1333E+02,& - 0.1381E+02, 0.1433E+02, 0.1490E+02, 0.1551E+02,& - 0.1618E+02, 0.1693E+02, 0.1777E+02, 0.1871E+02,& - 0.1980E+02, 0.2107E+02, 0.2259E+02, 0.2449E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,133) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.6989E-04, 0.6989E-04,& - 0.6989E-04, 0.6989E-04, 0.6989E-04, 0.6989E-04,& - 0.6989E-04, 0.6989E-04, 0.6989E-04, 0.6989E-04,& - 0.6989E-04, 0.6989E-04, 0.6989E-04, 0.6989E-04,& - 0.6989E-04, 0.6989E-04, 0.6989E-04, 0.6989E-04,& - 0.6989E-04, 0.6989E-04, 0.1298E-03, 0.1298E-03,& - 0.1298E-03, 0.1298E-03, 0.1298E-03, 0.1298E-03,& - 0.1298E-03, 0.1298E-03, 0.1298E-03, 0.1298E-03,& - 0.1298E-03, 0.1298E-03, 0.1298E-03, 0.1897E-03,& - 0.1897E-03, 0.1897E-03, 0.1897E-03, 0.1897E-03,& - 0.1897E-03, 0.1897E-03, 0.1897E-03, 0.1897E-03,& - 0.1897E-03, 0.2496E-03, 0.2496E-03, 0.2496E-03,& - 0.2496E-03, 0.2496E-03, 0.2496E-03, 0.2496E-03,& - 0.3095E-03, 0.3095E-03, 0.3095E-03, 0.3095E-03,& - 0.3095E-03, 0.3095E-03, 0.3095E-03, 0.3693E-03,& - 0.3693E-03, 0.3693E-03, 0.3693E-03, 0.3693E-03,& - 0.4292E-03, 0.4292E-03, 0.4292E-03, 0.4292E-03,& - 0.4292E-03, 0.4891E-03, 0.4891E-03, 0.4891E-03,& - 0.4891E-03, 0.4891E-03, 0.5490E-03, 0.5490E-03,& - 0.5490E-03, 0.5490E-03, 0.6089E-03, 0.6089E-03,& - 0.6089E-03, 0.6688E-03, 0.6688E-03, 0.6688E-03,& - 0.6688E-03, 0.7287E-03, 0.7287E-03, 0.7287E-03,& - 0.7886E-03, 0.7886E-03, 0.7886E-03, 0.8485E-03,& - 0.8485E-03, 0.9084E-03, 0.9084E-03, 0.9084E-03,& - 0.9683E-03, 0.9683E-03, 0.1028E-02, 0.1028E-02,& - 0.1028E-02, 0.1088E-02, 0.1088E-02, 0.1148E-02,& - 0.1148E-02, 0.1208E-02, 0.1208E-02, 0.1268E-02,& - 0.1268E-02, 0.1328E-02, 0.1328E-02, 0.1387E-02,& - 0.1447E-02, 0.1447E-02, 0.1507E-02, 0.1507E-02,& - 0.1567E-02, 0.1627E-02, 0.1627E-02, 0.1687E-02,& - 0.1747E-02, 0.1747E-02, 0.1807E-02, 0.1867E-02,& - 0.1927E-02, 0.1927E-02, 0.1986E-02, 0.2046E-02,& - 0.2106E-02, 0.2166E-02, 0.2166E-02, 0.2226E-02,& - 0.2286E-02, 0.2346E-02, 0.2406E-02, 0.2466E-02,& - 0.2525E-02, 0.2585E-02, 0.2645E-02, 0.2705E-02,& - 0.2765E-02, 0.2825E-02, 0.2885E-02, 0.2945E-02,& - 0.3005E-02, 0.3124E-02, 0.3184E-02, 0.3244E-02,& - 0.3304E-02, 0.3424E-02, 0.3484E-02, 0.3544E-02,& - 0.3663E-02, 0.3723E-02, 0.3783E-02, 0.3903E-02,& - 0.3963E-02, 0.4083E-02, 0.4142E-02, 0.4262E-02,& - 0.4322E-02, 0.4442E-02, 0.4562E-02, 0.4622E-02,& - 0.4741E-02, 0.4861E-02, 0.4981E-02, 0.5041E-02,& - 0.5161E-02, 0.5280E-02, 0.5400E-02, 0.5520E-02,& - 0.5640E-02, 0.5760E-02, 0.5879E-02, 0.5999E-02,& - 0.6119E-02, 0.6299E-02, 0.6418E-02, 0.6538E-02,& - 0.6718E-02, 0.6838E-02, 0.6957E-02, 0.7137E-02,& - 0.7257E-02, 0.7436E-02, 0.7616E-02, 0.7736E-02,& - 0.7916E-02, 0.8095E-02, 0.8275E-02, 0.8455E-02,& - 0.8634E-02, 0.8814E-02, 0.8994E-02, 0.9173E-02,& - 0.9353E-02, 0.9533E-02, 0.9712E-02, 0.9952E-02,& - 0.1013E-01, 0.1037E-01, 0.1055E-01, 0.1079E-01,& - 0.1103E-01, 0.1121E-01, 0.1145E-01, 0.1169E-01,& - 0.1193E-01, 0.1217E-01, 0.1241E-01, 0.1265E-01,& - 0.1295E-01, 0.1319E-01, 0.1349E-01, 0.1372E-01,& - 0.1402E-01, 0.1426E-01, 0.1456E-01, 0.1486E-01,& - 0.1516E-01, 0.1546E-01, 0.1576E-01, 0.1606E-01,& - 0.1642E-01, 0.1672E-01, 0.1708E-01, 0.1738E-01,& - 0.1774E-01, 0.1810E-01, 0.1846E-01, 0.1882E-01,& - 0.1918E-01, 0.1953E-01, 0.1989E-01, 0.2031E-01,& - 0.2067E-01, 0.2109E-01, 0.2151E-01, 0.2193E-01,& - 0.2235E-01, 0.2277E-01, 0.2319E-01, 0.2367E-01,& - 0.2409E-01, 0.2457E-01, 0.2504E-01, 0.2552E-01,& - 0.2600E-01, 0.2648E-01, 0.2702E-01, 0.2750E-01,& - 0.2804E-01, 0.2858E-01, 0.2912E-01, 0.2966E-01,& - 0.3019E-01, 0.3073E-01, 0.3133E-01, 0.3193E-01,& - 0.3253E-01, 0.3313E-01, 0.3373E-01, 0.3439E-01,& - 0.3499E-01, 0.3564E-01, 0.3630E-01, 0.3696E-01,& - 0.3768E-01, 0.3834E-01, 0.3906E-01, 0.3978E-01,& - 0.4050E-01, 0.4121E-01, 0.4199E-01, 0.4277E-01,& - 0.4355E-01, 0.4433E-01, 0.4511E-01, 0.4595E-01,& - 0.4678E-01, 0.4762E-01, 0.4846E-01, 0.4936E-01,& - 0.5026E-01, 0.5116E-01, 0.5206E-01, 0.5301E-01,& - 0.5397E-01, 0.5493E-01, 0.5589E-01, 0.5691E-01,& - 0.5792E-01, 0.5894E-01, 0.5996E-01, 0.6104E-01,& - 0.6212E-01, 0.6319E-01, 0.6433E-01, 0.6547E-01,& - 0.6661E-01, 0.6775E-01, 0.6894E-01, 0.7014E-01,& - 0.7140E-01, 0.7266E-01, 0.7392E-01, 0.7517E-01,& - 0.7649E-01, 0.7781E-01, 0.7919E-01, 0.8056E-01,& - 0.8194E-01, 0.8332E-01, 0.8476E-01, 0.8625E-01,& - 0.8769E-01, 0.8925E-01, 0.9074E-01, 0.9230E-01,& - 0.9386E-01, 0.9548E-01, 0.9709E-01, 0.9877E-01,& - 0.1004E+00, 0.1021E+00, 0.1039E+00, 0.1057E+00,& - 0.1075E+00, 0.1093E+00, 0.1111E+00, 0.1130E+00,& - 0.1149E+00, 0.1168E+00, 0.1188E+00, 0.1207E+00,& - 0.1227E+00, 0.1248E+00, 0.1269E+00, 0.1290E+00,& - 0.1312E+00, 0.1333E+00, 0.1355E+00, 0.1378E+00,& - 0.1401E+00, 0.1424E+00, 0.1448E+00, 0.1472E+00,& - 0.1496E+00, 0.1520E+00, 0.1545E+00, 0.1570E+00,& - 0.1596E+00, 0.1623E+00, 0.1649E+00, 0.1676E+00,& - 0.1703E+00, 0.1732E+00, 0.1760E+00, 0.1788E+00,& - 0.1817E+00, 0.1847E+00, 0.1876E+00, 0.1907E+00,& - 0.1938E+00, 0.1969E+00, 0.2001E+00, 0.2033E+00,& - 0.2066E+00, 0.2099E+00, 0.2133E+00, 0.2167E+00,& - 0.2202E+00, 0.2237E+00, 0.2273E+00, 0.2309E+00,& - 0.2346E+00, 0.2384E+00, 0.2421E+00, 0.2460E+00,& - 0.2499E+00, 0.2539E+00, 0.2580E+00, 0.2620E+00,& - 0.2662E+00, 0.2704E+00, 0.2747E+00, 0.2790E+00,& - 0.2834E+00, 0.2878E+00, 0.2924E+00, 0.2970E+00,& - 0.3016E+00, 0.3064E+00, 0.3112E+00, 0.3161E+00,& - 0.3210E+00, 0.3261E+00, 0.3311E+00, 0.3363E+00,& - 0.3416E+00, 0.3468E+00, 0.3523E+00, 0.3577E+00,& - 0.3633E+00, 0.3689E+00, 0.3747E+00, 0.3805E+00,& - 0.3864E+00, 0.3924E+00, 0.3984E+00, 0.4046E+00,& - 0.4108E+00, 0.4171E+00, 0.4236E+00, 0.4301E+00,& - 0.4367E+00, 0.4434E+00, 0.4503E+00, 0.4572E+00,& - 0.4642E+00, 0.4713E+00, 0.4785E+00, 0.4858E+00,& - 0.4933E+00, 0.5008E+00, 0.5085E+00, 0.5163E+00,& - 0.5241E+00, 0.5321E+00, 0.5402E+00, 0.5485E+00,& - 0.5568E+00, 0.5653E+00, 0.5739E+00, 0.5826E+00,& - 0.5915E+00, 0.6005E+00, 0.6096E+00, 0.6188E+00,& - 0.6282E+00, 0.6377E+00, 0.6474E+00, 0.6571E+00,& - 0.6671E+00, 0.6772E+00, 0.6874E+00, 0.6978E+00,& - 0.7083E+00, 0.7191E+00, 0.7299E+00, 0.7409E+00,& - 0.7521E+00, 0.7634E+00, 0.7749E+00, 0.7866E+00,& - 0.7985E+00, 0.8105E+00, 0.8227E+00, 0.8351E+00,& - 0.8476E+00, 0.8604E+00, 0.8734E+00, 0.8865E+00,& - 0.8999E+00, 0.9134E+00, 0.9271E+00, 0.9411E+00,& - 0.9552E+00, 0.9696E+00, 0.9841E+00, 0.9989E+00,& - 0.1014E+01, 0.1029E+01, 0.1045E+01, 0.1060E+01,& - 0.1076E+01, 0.1092E+01, 0.1109E+01, 0.1126E+01,& - 0.1143E+01, 0.1160E+01, 0.1177E+01, 0.1195E+01,& - 0.1213E+01, 0.1231E+01, 0.1250E+01, 0.1269E+01,& - 0.1288E+01, 0.1307E+01, 0.1327E+01, 0.1347E+01,& - 0.1367E+01, 0.1388E+01, 0.1409E+01, 0.1430E+01,& - 0.1452E+01, 0.1474E+01, 0.1496E+01, 0.1519E+01,& - 0.1542E+01, 0.1565E+01, 0.1589E+01, 0.1613E+01,& - 0.1638E+01, 0.1663E+01, 0.1688E+01, 0.1714E+01,& - 0.1740E+01, 0.1766E+01, 0.1794E+01, 0.1821E+01,& - 0.1849E+01, 0.1877E+01, 0.1906E+01, 0.1935E+01,& - 0.1965E+01, 0.1996E+01, 0.2026E+01, 0.2057E+01,& - 0.2090E+01, 0.2122E+01, 0.2155E+01, 0.2189E+01,& - 0.2223E+01, 0.2257E+01, 0.2293E+01, 0.2329E+01,& - 0.2365E+01, 0.2402E+01, 0.2440E+01, 0.2479E+01,& - 0.2518E+01, 0.2558E+01, 0.2598E+01, 0.2640E+01,& - 0.2682E+01, 0.2725E+01, 0.2769E+01, 0.2813E+01,& - 0.2858E+01, 0.2905E+01, 0.2952E+01, 0.2999E+01,& - 0.3048E+01, 0.3098E+01, 0.3149E+01, 0.3201E+01,& - 0.3253E+01, 0.3307E+01, 0.3362E+01, 0.3418E+01,& - 0.3475E+01, 0.3533E+01, 0.3593E+01, 0.3653E+01,& - 0.3715E+01, 0.3779E+01, 0.3843E+01, 0.3909E+01,& - 0.3977E+01, 0.4045E+01, 0.4116E+01, 0.4188E+01,& - 0.4261E+01, 0.4337E+01, 0.4413E+01, 0.4492E+01,& - 0.4573E+01, 0.4655E+01, 0.4740E+01, 0.4826E+01,& - 0.4915E+01, 0.5005E+01, 0.5098E+01, 0.5194E+01,& - 0.5292E+01, 0.5392E+01, 0.5495E+01, 0.5601E+01,& - 0.5709E+01, 0.5821E+01, 0.5936E+01, 0.6054E+01,& - 0.6175E+01, 0.6300E+01, 0.6428E+01, 0.6561E+01,& - 0.6698E+01, 0.6839E+01, 0.6985E+01, 0.7135E+01,& - 0.7290E+01, 0.7451E+01, 0.7617E+01, 0.7789E+01,& - 0.7967E+01, 0.8152E+01, 0.8344E+01, 0.8543E+01,& - 0.8751E+01, 0.8967E+01, 0.9192E+01, 0.9427E+01,& - 0.9672E+01, 0.9929E+01, 0.1020E+02, 0.1048E+02,& - 0.1078E+02, 0.1109E+02, 0.1142E+02, 0.1177E+02,& - 0.1214E+02, 0.1254E+02, 0.1296E+02, 0.1341E+02,& - 0.1390E+02, 0.1442E+02, 0.1499E+02, 0.1561E+02,& - 0.1630E+02, 0.1705E+02, 0.1790E+02, 0.1886E+02,& - 0.1996E+02, 0.2124E+02, 0.2279E+02, 0.2471E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,134) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.7070E-04,& - 0.7070E-04, 0.7070E-04, 0.7070E-04, 0.7070E-04,& - 0.7070E-04, 0.7070E-04, 0.7070E-04, 0.7070E-04,& - 0.7070E-04, 0.7070E-04, 0.7070E-04, 0.7070E-04,& - 0.7070E-04, 0.7070E-04, 0.7070E-04, 0.7070E-04,& - 0.7070E-04, 0.7070E-04, 0.7070E-04, 0.1314E-03,& - 0.1314E-03, 0.1314E-03, 0.1314E-03, 0.1314E-03,& - 0.1314E-03, 0.1314E-03, 0.1314E-03, 0.1314E-03,& - 0.1314E-03, 0.1314E-03, 0.1314E-03, 0.1314E-03,& - 0.1921E-03, 0.1921E-03, 0.1921E-03, 0.1921E-03,& - 0.1921E-03, 0.1921E-03, 0.1921E-03, 0.1921E-03,& - 0.1921E-03, 0.1921E-03, 0.2528E-03, 0.2528E-03,& - 0.2528E-03, 0.2528E-03, 0.2528E-03, 0.2528E-03,& - 0.2528E-03, 0.2528E-03, 0.3135E-03, 0.3135E-03,& - 0.3135E-03, 0.3135E-03, 0.3135E-03, 0.3135E-03,& - 0.3742E-03, 0.3742E-03, 0.3742E-03, 0.3742E-03,& - 0.3742E-03, 0.3742E-03, 0.4349E-03, 0.4349E-03,& - 0.4349E-03, 0.4349E-03, 0.4349E-03, 0.4956E-03,& - 0.4956E-03, 0.4956E-03, 0.4956E-03, 0.5563E-03,& - 0.5563E-03, 0.5563E-03, 0.5563E-03, 0.6170E-03,& - 0.6170E-03, 0.6170E-03, 0.6170E-03, 0.6777E-03,& - 0.6777E-03, 0.6777E-03, 0.7385E-03, 0.7385E-03,& - 0.7385E-03, 0.7992E-03, 0.7992E-03, 0.7992E-03,& - 0.8599E-03, 0.8599E-03, 0.8599E-03, 0.9206E-03,& - 0.9206E-03, 0.9813E-03, 0.9813E-03, 0.9813E-03,& - 0.1042E-02, 0.1042E-02, 0.1103E-02, 0.1103E-02,& - 0.1163E-02, 0.1163E-02, 0.1224E-02, 0.1224E-02,& - 0.1285E-02, 0.1285E-02, 0.1345E-02, 0.1345E-02,& - 0.1406E-02, 0.1467E-02, 0.1467E-02, 0.1528E-02,& - 0.1528E-02, 0.1588E-02, 0.1649E-02, 0.1649E-02,& - 0.1710E-02, 0.1770E-02, 0.1770E-02, 0.1831E-02,& - 0.1892E-02, 0.1953E-02, 0.1953E-02, 0.2013E-02,& - 0.2074E-02, 0.2135E-02, 0.2195E-02, 0.2195E-02,& - 0.2256E-02, 0.2317E-02, 0.2377E-02, 0.2438E-02,& - 0.2499E-02, 0.2560E-02, 0.2620E-02, 0.2681E-02,& - 0.2742E-02, 0.2802E-02, 0.2863E-02, 0.2924E-02,& - 0.2985E-02, 0.3045E-02, 0.3167E-02, 0.3227E-02,& - 0.3288E-02, 0.3349E-02, 0.3470E-02, 0.3531E-02,& - 0.3592E-02, 0.3713E-02, 0.3774E-02, 0.3834E-02,& - 0.3956E-02, 0.4016E-02, 0.4138E-02, 0.4199E-02,& - 0.4320E-02, 0.4381E-02, 0.4502E-02, 0.4624E-02,& - 0.4684E-02, 0.4806E-02, 0.4927E-02, 0.5048E-02,& - 0.5170E-02, 0.5231E-02, 0.5352E-02, 0.5473E-02,& - 0.5595E-02, 0.5716E-02, 0.5838E-02, 0.6020E-02,& - 0.6141E-02, 0.6263E-02, 0.6384E-02, 0.6505E-02,& - 0.6687E-02, 0.6809E-02, 0.6930E-02, 0.7112E-02,& - 0.7234E-02, 0.7416E-02, 0.7598E-02, 0.7719E-02,& - 0.7902E-02, 0.8084E-02, 0.8266E-02, 0.8387E-02,& - 0.8569E-02, 0.8751E-02, 0.8934E-02, 0.9176E-02,& - 0.9358E-02, 0.9541E-02, 0.9723E-02, 0.9966E-02,& - 0.1015E-01, 0.1033E-01, 0.1057E-01, 0.1082E-01,& - 0.1100E-01, 0.1124E-01, 0.1148E-01, 0.1173E-01,& - 0.1197E-01, 0.1221E-01, 0.1245E-01, 0.1270E-01,& - 0.1294E-01, 0.1324E-01, 0.1349E-01, 0.1373E-01,& - 0.1403E-01, 0.1434E-01, 0.1458E-01, 0.1488E-01,& - 0.1519E-01, 0.1549E-01, 0.1579E-01, 0.1616E-01,& - 0.1646E-01, 0.1676E-01, 0.1713E-01, 0.1743E-01,& - 0.1780E-01, 0.1816E-01, 0.1852E-01, 0.1889E-01,& - 0.1925E-01, 0.1962E-01, 0.1998E-01, 0.2041E-01,& - 0.2083E-01, 0.2120E-01, 0.2162E-01, 0.2205E-01,& - 0.2247E-01, 0.2290E-01, 0.2338E-01, 0.2381E-01,& - 0.2429E-01, 0.2472E-01, 0.2520E-01, 0.2569E-01,& - 0.2617E-01, 0.2666E-01, 0.2721E-01, 0.2769E-01,& - 0.2824E-01, 0.2878E-01, 0.2933E-01, 0.2988E-01,& - 0.3042E-01, 0.3103E-01, 0.3164E-01, 0.3218E-01,& - 0.3279E-01, 0.3340E-01, 0.3407E-01, 0.3467E-01,& - 0.3534E-01, 0.3601E-01, 0.3668E-01, 0.3734E-01,& - 0.3807E-01, 0.3874E-01, 0.3947E-01, 0.4020E-01,& - 0.4092E-01, 0.4171E-01, 0.4244E-01, 0.4323E-01,& - 0.4402E-01, 0.4487E-01, 0.4566E-01, 0.4651E-01,& - 0.4736E-01, 0.4821E-01, 0.4912E-01, 0.4997E-01,& - 0.5088E-01, 0.5179E-01, 0.5276E-01, 0.5367E-01,& - 0.5464E-01, 0.5568E-01, 0.5665E-01, 0.5768E-01,& - 0.5871E-01, 0.5974E-01, 0.6084E-01, 0.6193E-01,& - 0.6302E-01, 0.6411E-01, 0.6527E-01, 0.6642E-01,& - 0.6763E-01, 0.6879E-01, 0.7000E-01, 0.7128E-01,& - 0.7249E-01, 0.7377E-01, 0.7510E-01, 0.7644E-01,& - 0.7777E-01, 0.7911E-01, 0.8050E-01, 0.8190E-01,& - 0.8330E-01, 0.8475E-01, 0.8627E-01, 0.8773E-01,& - 0.8925E-01, 0.9082E-01, 0.9240E-01, 0.9398E-01,& - 0.9562E-01, 0.9726E-01, 0.9890E-01, 0.1006E+00,& - 0.1024E+00, 0.1041E+00, 0.1059E+00, 0.1077E+00,& - 0.1095E+00, 0.1114E+00, 0.1133E+00, 0.1152E+00,& - 0.1172E+00, 0.1192E+00, 0.1212E+00, 0.1232E+00,& - 0.1253E+00, 0.1274E+00, 0.1296E+00, 0.1317E+00,& - 0.1339E+00, 0.1362E+00, 0.1385E+00, 0.1408E+00,& - 0.1432E+00, 0.1455E+00, 0.1479E+00, 0.1504E+00,& - 0.1529E+00, 0.1555E+00, 0.1581E+00, 0.1607E+00,& - 0.1634E+00, 0.1660E+00, 0.1688E+00, 0.1716E+00,& - 0.1744E+00, 0.1773E+00, 0.1802E+00, 0.1832E+00,& - 0.1861E+00, 0.1892E+00, 0.1923E+00, 0.1955E+00,& - 0.1986E+00, 0.2019E+00, 0.2052E+00, 0.2085E+00,& - 0.2119E+00, 0.2153E+00, 0.2188E+00, 0.2224E+00,& - 0.2260E+00, 0.2297E+00, 0.2334E+00, 0.2371E+00,& - 0.2409E+00, 0.2448E+00, 0.2488E+00, 0.2528E+00,& - 0.2568E+00, 0.2609E+00, 0.2651E+00, 0.2694E+00,& - 0.2737E+00, 0.2780E+00, 0.2825E+00, 0.2870E+00,& - 0.2916E+00, 0.2962E+00, 0.3009E+00, 0.3057E+00,& - 0.3105E+00, 0.3154E+00, 0.3205E+00, 0.3255E+00,& - 0.3307E+00, 0.3359E+00, 0.3412E+00, 0.3466E+00,& - 0.3520E+00, 0.3576E+00, 0.3632E+00, 0.3689E+00,& - 0.3747E+00, 0.3806E+00, 0.3865E+00, 0.3926E+00,& - 0.3987E+00, 0.4050E+00, 0.4113E+00, 0.4177E+00,& - 0.4242E+00, 0.4308E+00, 0.4375E+00, 0.4444E+00,& - 0.4512E+00, 0.4583E+00, 0.4654E+00, 0.4726E+00,& - 0.4799E+00, 0.4873E+00, 0.4949E+00, 0.5026E+00,& - 0.5104E+00, 0.5182E+00, 0.5263E+00, 0.5343E+00,& - 0.5426E+00, 0.5510E+00, 0.5595E+00, 0.5681E+00,& - 0.5768E+00, 0.5857E+00, 0.5947E+00, 0.6038E+00,& - 0.6131E+00, 0.6225E+00, 0.6321E+00, 0.6417E+00,& - 0.6515E+00, 0.6616E+00, 0.6717E+00, 0.6820E+00,& - 0.6924E+00, 0.7030E+00, 0.7137E+00, 0.7246E+00,& - 0.7357E+00, 0.7470E+00, 0.7583E+00, 0.7699E+00,& - 0.7817E+00, 0.7936E+00, 0.8057E+00, 0.8180E+00,& - 0.8304E+00, 0.8431E+00, 0.8559E+00, 0.8690E+00,& - 0.8822E+00, 0.8956E+00, 0.9093E+00, 0.9231E+00,& - 0.9372E+00, 0.9514E+00, 0.9659E+00, 0.9806E+00,& - 0.9956E+00, 0.1011E+01, 0.1026E+01, 0.1042E+01,& - 0.1058E+01, 0.1074E+01, 0.1090E+01, 0.1107E+01,& - 0.1123E+01, 0.1141E+01, 0.1158E+01, 0.1176E+01,& - 0.1193E+01, 0.1212E+01, 0.1230E+01, 0.1249E+01,& - 0.1268E+01, 0.1287E+01, 0.1307E+01, 0.1327E+01,& - 0.1347E+01, 0.1368E+01, 0.1389E+01, 0.1410E+01,& - 0.1432E+01, 0.1453E+01, 0.1476E+01, 0.1498E+01,& - 0.1521E+01, 0.1545E+01, 0.1568E+01, 0.1593E+01,& - 0.1617E+01, 0.1642E+01, 0.1667E+01, 0.1693E+01,& - 0.1719E+01, 0.1746E+01, 0.1773E+01, 0.1800E+01,& - 0.1828E+01, 0.1857E+01, 0.1885E+01, 0.1915E+01,& - 0.1945E+01, 0.1975E+01, 0.2006E+01, 0.2037E+01,& - 0.2069E+01, 0.2101E+01, 0.2134E+01, 0.2168E+01,& - 0.2202E+01, 0.2237E+01, 0.2272E+01, 0.2308E+01,& - 0.2345E+01, 0.2382E+01, 0.2420E+01, 0.2459E+01,& - 0.2498E+01, 0.2538E+01, 0.2579E+01, 0.2620E+01,& - 0.2662E+01, 0.2705E+01, 0.2749E+01, 0.2794E+01,& - 0.2839E+01, 0.2886E+01, 0.2933E+01, 0.2981E+01,& - 0.3030E+01, 0.3080E+01, 0.3130E+01, 0.3183E+01,& - 0.3236E+01, 0.3290E+01, 0.3345E+01, 0.3401E+01,& - 0.3459E+01, 0.3517E+01, 0.3577E+01, 0.3638E+01,& - 0.3700E+01, 0.3764E+01, 0.3829E+01, 0.3895E+01,& - 0.3963E+01, 0.4032E+01, 0.4103E+01, 0.4175E+01,& - 0.4249E+01, 0.4325E+01, 0.4402E+01, 0.4482E+01,& - 0.4563E+01, 0.4646E+01, 0.4731E+01, 0.4818E+01,& - 0.4907E+01, 0.4998E+01, 0.5092E+01, 0.5188E+01,& - 0.5287E+01, 0.5388E+01, 0.5492E+01, 0.5598E+01,& - 0.5707E+01, 0.5820E+01, 0.5936E+01, 0.6055E+01,& - 0.6170E+01, 0.6303E+01, 0.6433E+01, 0.6567E+01,& - 0.6705E+01, 0.6847E+01, 0.6994E+01, 0.7145E+01,& - 0.7302E+01, 0.7464E+01, 0.7632E+01, 0.7805E+01,& - 0.7985E+01, 0.8172E+01, 0.8366E+01, 0.8567E+01,& - 0.8777E+01, 0.8995E+01, 0.9222E+01, 0.9460E+01,& - 0.9707E+01, 0.9968E+01, 0.1024E+02, 0.1053E+02,& - 0.1083E+02, 0.1114E+02, 0.1148E+02, 0.1183E+02,& - 0.1220E+02, 0.1261E+02, 0.1303E+02, 0.1349E+02,& - 0.1398E+02, 0.1451E+02, 0.1509E+02, 0.1572E+02,& - 0.1641E+02, 0.1717E+02, 0.1803E+02, 0.1900E+02,& - 0.2011E+02, 0.2142E+02, 0.2298E+02, 0.2493E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,135) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.7152E-04, 0.7152E-04, 0.7152E-04, 0.7152E-04,& - 0.7152E-04, 0.7152E-04, 0.7152E-04, 0.7152E-04,& - 0.7152E-04, 0.7152E-04, 0.7152E-04, 0.7152E-04,& - 0.7152E-04, 0.7152E-04, 0.7152E-04, 0.7152E-04,& - 0.7152E-04, 0.7152E-04, 0.7152E-04, 0.7152E-04,& - 0.7152E-04, 0.1330E-03, 0.1330E-03, 0.1330E-03,& - 0.1330E-03, 0.1330E-03, 0.1330E-03, 0.1330E-03,& - 0.1330E-03, 0.1330E-03, 0.1330E-03, 0.1330E-03,& - 0.1330E-03, 0.1330E-03, 0.1946E-03, 0.1946E-03,& - 0.1946E-03, 0.1946E-03, 0.1946E-03, 0.1946E-03,& - 0.1946E-03, 0.1946E-03, 0.1946E-03, 0.2561E-03,& - 0.2561E-03, 0.2561E-03, 0.2561E-03, 0.2561E-03,& - 0.2561E-03, 0.2561E-03, 0.2561E-03, 0.3176E-03,& - 0.3176E-03, 0.3176E-03, 0.3176E-03, 0.3176E-03,& - 0.3176E-03, 0.3791E-03, 0.3791E-03, 0.3791E-03,& - 0.3791E-03, 0.3791E-03, 0.3791E-03, 0.4407E-03,& - 0.4407E-03, 0.4407E-03, 0.4407E-03, 0.4407E-03,& - 0.5022E-03, 0.5022E-03, 0.5022E-03, 0.5022E-03,& - 0.5637E-03, 0.5637E-03, 0.5637E-03, 0.5637E-03,& - 0.6252E-03, 0.6252E-03, 0.6252E-03, 0.6252E-03,& - 0.6868E-03, 0.6868E-03, 0.6868E-03, 0.7483E-03,& - 0.7483E-03, 0.7483E-03, 0.8098E-03, 0.8098E-03,& - 0.8098E-03, 0.8713E-03, 0.8713E-03, 0.8713E-03,& - 0.9329E-03, 0.9329E-03, 0.9944E-03, 0.9944E-03,& - 0.9944E-03, 0.1056E-02, 0.1056E-02, 0.1117E-02,& - 0.1117E-02, 0.1179E-02, 0.1179E-02, 0.1240E-02,& - 0.1240E-02, 0.1302E-02, 0.1302E-02, 0.1364E-02,& - 0.1364E-02, 0.1425E-02, 0.1425E-02, 0.1487E-02,& - 0.1548E-02, 0.1548E-02, 0.1610E-02, 0.1671E-02,& - 0.1671E-02, 0.1733E-02, 0.1794E-02, 0.1794E-02,& - 0.1856E-02, 0.1917E-02, 0.1979E-02, 0.1979E-02,& - 0.2040E-02, 0.2102E-02, 0.2163E-02, 0.2225E-02,& - 0.2225E-02, 0.2286E-02, 0.2348E-02, 0.2409E-02,& - 0.2471E-02, 0.2532E-02, 0.2594E-02, 0.2656E-02,& - 0.2717E-02, 0.2779E-02, 0.2840E-02, 0.2902E-02,& - 0.2963E-02, 0.3025E-02, 0.3148E-02, 0.3209E-02,& - 0.3271E-02, 0.3332E-02, 0.3394E-02, 0.3517E-02,& - 0.3578E-02, 0.3640E-02, 0.3763E-02, 0.3824E-02,& - 0.3948E-02, 0.4009E-02, 0.4132E-02, 0.4194E-02,& - 0.4317E-02, 0.4378E-02, 0.4501E-02, 0.4563E-02,& - 0.4686E-02, 0.4809E-02, 0.4932E-02, 0.4993E-02,& - 0.5116E-02, 0.5240E-02, 0.5363E-02, 0.5486E-02,& - 0.5609E-02, 0.5732E-02, 0.5855E-02, 0.5978E-02,& - 0.6101E-02, 0.6224E-02, 0.6347E-02, 0.6532E-02,& - 0.6655E-02, 0.6778E-02, 0.6962E-02, 0.7085E-02,& - 0.7270E-02, 0.7393E-02, 0.7577E-02, 0.7700E-02,& - 0.7885E-02, 0.8070E-02, 0.8254E-02, 0.8439E-02,& - 0.8562E-02, 0.8746E-02, 0.8931E-02, 0.9116E-02,& - 0.9362E-02, 0.9546E-02, 0.9731E-02, 0.9915E-02,& - 0.1016E-01, 0.1035E-01, 0.1059E-01, 0.1078E-01,& - 0.1102E-01, 0.1127E-01, 0.1151E-01, 0.1170E-01,& - 0.1195E-01, 0.1219E-01, 0.1244E-01, 0.1275E-01,& - 0.1299E-01, 0.1324E-01, 0.1355E-01, 0.1379E-01,& - 0.1410E-01, 0.1435E-01, 0.1465E-01, 0.1496E-01,& - 0.1527E-01, 0.1558E-01, 0.1588E-01, 0.1619E-01,& - 0.1650E-01, 0.1687E-01, 0.1718E-01, 0.1754E-01,& - 0.1791E-01, 0.1822E-01, 0.1859E-01, 0.1896E-01,& - 0.1933E-01, 0.1976E-01, 0.2013E-01, 0.2056E-01,& - 0.2093E-01, 0.2136E-01, 0.2179E-01, 0.2222E-01,& - 0.2265E-01, 0.2308E-01, 0.2351E-01, 0.2400E-01,& - 0.2443E-01, 0.2493E-01, 0.2542E-01, 0.2591E-01,& - 0.2640E-01, 0.2690E-01, 0.2745E-01, 0.2794E-01,& - 0.2850E-01, 0.2905E-01, 0.2960E-01, 0.3016E-01,& - 0.3071E-01, 0.3133E-01, 0.3194E-01, 0.3249E-01,& - 0.3311E-01, 0.3379E-01, 0.3440E-01, 0.3508E-01,& - 0.3569E-01, 0.3637E-01, 0.3705E-01, 0.3779E-01,& - 0.3846E-01, 0.3920E-01, 0.3994E-01, 0.4068E-01,& - 0.4142E-01, 0.4222E-01, 0.4302E-01, 0.4375E-01,& - 0.4461E-01, 0.4541E-01, 0.4628E-01, 0.4714E-01,& - 0.4800E-01, 0.4886E-01, 0.4978E-01, 0.5064E-01,& - 0.5157E-01, 0.5255E-01, 0.5347E-01, 0.5446E-01,& - 0.5544E-01, 0.5649E-01, 0.5747E-01, 0.5852E-01,& - 0.5957E-01, 0.6067E-01, 0.6178E-01, 0.6289E-01,& - 0.6399E-01, 0.6516E-01, 0.6633E-01, 0.6750E-01,& - 0.6873E-01, 0.6996E-01, 0.7119E-01, 0.7242E-01,& - 0.7372E-01, 0.7507E-01, 0.7636E-01, 0.7771E-01,& - 0.7913E-01, 0.8048E-01, 0.8190E-01, 0.8337E-01,& - 0.8485E-01, 0.8633E-01, 0.8787E-01, 0.8940E-01,& - 0.9094E-01, 0.9254E-01, 0.9414E-01, 0.9580E-01,& - 0.9746E-01, 0.9912E-01, 0.1008E+00, 0.1026E+00,& - 0.1044E+00, 0.1062E+00, 0.1080E+00, 0.1099E+00,& - 0.1118E+00, 0.1137E+00, 0.1157E+00, 0.1176E+00,& - 0.1197E+00, 0.1217E+00, 0.1238E+00, 0.1259E+00,& - 0.1280E+00, 0.1302E+00, 0.1324E+00, 0.1347E+00,& - 0.1370E+00, 0.1393E+00, 0.1416E+00, 0.1440E+00,& - 0.1464E+00, 0.1489E+00, 0.1514E+00, 0.1540E+00,& - 0.1566E+00, 0.1592E+00, 0.1619E+00, 0.1646E+00,& - 0.1673E+00, 0.1701E+00, 0.1730E+00, 0.1758E+00,& - 0.1787E+00, 0.1817E+00, 0.1847E+00, 0.1878E+00,& - 0.1909E+00, 0.1941E+00, 0.1973E+00, 0.2005E+00,& - 0.2038E+00, 0.2072E+00, 0.2106E+00, 0.2141E+00,& - 0.2176E+00, 0.2211E+00, 0.2248E+00, 0.2284E+00,& - 0.2322E+00, 0.2360E+00, 0.2398E+00, 0.2437E+00,& - 0.2477E+00, 0.2517E+00, 0.2558E+00, 0.2599E+00,& - 0.2642E+00, 0.2684E+00, 0.2728E+00, 0.2772E+00,& - 0.2817E+00, 0.2862E+00, 0.2908E+00, 0.2955E+00,& - 0.3002E+00, 0.3051E+00, 0.3100E+00, 0.3150E+00,& - 0.3200E+00, 0.3251E+00, 0.3303E+00, 0.3356E+00,& - 0.3410E+00, 0.3464E+00, 0.3519E+00, 0.3575E+00,& - 0.3632E+00, 0.3690E+00, 0.3749E+00, 0.3808E+00,& - 0.3868E+00, 0.3930E+00, 0.3992E+00, 0.4055E+00,& - 0.4119E+00, 0.4184E+00, 0.4250E+00, 0.4317E+00,& - 0.4385E+00, 0.4454E+00, 0.4525E+00, 0.4595E+00,& - 0.4668E+00, 0.4741E+00, 0.4816E+00, 0.4891E+00,& - 0.4968E+00, 0.5045E+00, 0.5124E+00, 0.5204E+00,& - 0.5286E+00, 0.5368E+00, 0.5452E+00, 0.5537E+00,& - 0.5623E+00, 0.5711E+00, 0.5800E+00, 0.5890E+00,& - 0.5981E+00, 0.6075E+00, 0.6169E+00, 0.6265E+00,& - 0.6362E+00, 0.6461E+00, 0.6561E+00, 0.6663E+00,& - 0.6766E+00, 0.6871E+00, 0.6978E+00, 0.7085E+00,& - 0.7195E+00, 0.7306E+00, 0.7419E+00, 0.7534E+00,& - 0.7650E+00, 0.7768E+00, 0.7888E+00, 0.8010E+00,& - 0.8134E+00, 0.8259E+00, 0.8386E+00, 0.8516E+00,& - 0.8647E+00, 0.8780E+00, 0.8916E+00, 0.9053E+00,& - 0.9193E+00, 0.9335E+00, 0.9478E+00, 0.9624E+00,& - 0.9773E+00, 0.9923E+00, 0.1008E+01, 0.1023E+01,& - 0.1039E+01, 0.1055E+01, 0.1071E+01, 0.1088E+01,& - 0.1104E+01, 0.1121E+01, 0.1139E+01, 0.1156E+01,& - 0.1174E+01, 0.1192E+01, 0.1211E+01, 0.1229E+01,& - 0.1248E+01, 0.1268E+01, 0.1287E+01, 0.1307E+01,& - 0.1327E+01, 0.1348E+01, 0.1369E+01, 0.1390E+01,& - 0.1411E+01, 0.1433E+01, 0.1455E+01, 0.1478E+01,& - 0.1501E+01, 0.1524E+01, 0.1548E+01, 0.1572E+01,& - 0.1596E+01, 0.1621E+01, 0.1647E+01, 0.1672E+01,& - 0.1698E+01, 0.1725E+01, 0.1752E+01, 0.1779E+01,& - 0.1807E+01, 0.1835E+01, 0.1864E+01, 0.1894E+01,& - 0.1924E+01, 0.1954E+01, 0.1985E+01, 0.2016E+01,& - 0.2048E+01, 0.2081E+01, 0.2114E+01, 0.2147E+01,& - 0.2181E+01, 0.2216E+01, 0.2252E+01, 0.2288E+01,& - 0.2324E+01, 0.2362E+01, 0.2400E+01, 0.2438E+01,& - 0.2478E+01, 0.2518E+01, 0.2559E+01, 0.2600E+01,& - 0.2642E+01, 0.2685E+01, 0.2730E+01, 0.2774E+01,& - 0.2820E+01, 0.2866E+01, 0.2914E+01, 0.2962E+01,& - 0.3011E+01, 0.3061E+01, 0.3113E+01, 0.3165E+01,& - 0.3218E+01, 0.3272E+01, 0.3328E+01, 0.3384E+01,& - 0.3441E+01, 0.3500E+01, 0.3561E+01, 0.3622E+01,& - 0.3684E+01, 0.3748E+01, 0.3814E+01, 0.3880E+01,& - 0.3948E+01, 0.4018E+01, 0.4089E+01, 0.4162E+01,& - 0.4237E+01, 0.4313E+01, 0.4390E+01, 0.4470E+01,& - 0.4552E+01, 0.4634E+01, 0.4721E+01, 0.4809E+01,& - 0.4898E+01, 0.4991E+01, 0.5085E+01, 0.5182E+01,& - 0.5281E+01, 0.5383E+01, 0.5487E+01, 0.5595E+01,& - 0.5705E+01, 0.5819E+01, 0.5935E+01, 0.6055E+01,& - 0.6179E+01, 0.6305E+01, 0.6437E+01, 0.6572E+01,& - 0.6711E+01, 0.6854E+01, 0.7002E+01, 0.7155E+01,& - 0.7313E+01, 0.7477E+01, 0.7646E+01, 0.7821E+01,& - 0.8003E+01, 0.8191E+01, 0.8387E+01, 0.8590E+01,& - 0.8802E+01, 0.9022E+01, 0.9252E+01, 0.9492E+01,& - 0.9743E+01, 0.1001E+02, 0.1028E+02, 0.1057E+02,& - 0.1087E+02, 0.1119E+02, 0.1153E+02, 0.1189E+02,& - 0.1227E+02, 0.1267E+02, 0.1310E+02, 0.1357E+02,& - 0.1406E+02, 0.1460E+02, 0.1518E+02, 0.1582E+02,& - 0.1652E+02, 0.1729E+02, 0.1816E+02, 0.1914E+02,& - 0.2027E+02, 0.2159E+02, 0.2318E+02, 0.2515E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,136) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.7235E-04, 0.7235E-04,& - 0.7235E-04, 0.7235E-04, 0.7235E-04, 0.7235E-04,& - 0.7235E-04, 0.7235E-04, 0.7235E-04, 0.7235E-04,& - 0.7235E-04, 0.7235E-04, 0.7235E-04, 0.7235E-04,& - 0.7235E-04, 0.7235E-04, 0.7235E-04, 0.7235E-04,& - 0.7235E-04, 0.7235E-04, 0.1347E-03, 0.1347E-03,& - 0.1347E-03, 0.1347E-03, 0.1347E-03, 0.1347E-03,& - 0.1347E-03, 0.1347E-03, 0.1347E-03, 0.1347E-03,& - 0.1347E-03, 0.1347E-03, 0.1347E-03, 0.1970E-03,& - 0.1970E-03, 0.1970E-03, 0.1970E-03, 0.1970E-03,& - 0.1970E-03, 0.1970E-03, 0.1970E-03, 0.1970E-03,& - 0.2594E-03, 0.2594E-03, 0.2594E-03, 0.2594E-03,& - 0.2594E-03, 0.2594E-03, 0.2594E-03, 0.2594E-03,& - 0.3217E-03, 0.3217E-03, 0.3217E-03, 0.3217E-03,& - 0.3217E-03, 0.3217E-03, 0.3217E-03, 0.3841E-03,& - 0.3841E-03, 0.3841E-03, 0.3841E-03, 0.3841E-03,& - 0.4464E-03, 0.4464E-03, 0.4464E-03, 0.4464E-03,& - 0.4464E-03, 0.5088E-03, 0.5088E-03, 0.5088E-03,& - 0.5088E-03, 0.5711E-03, 0.5711E-03, 0.5711E-03,& - 0.5711E-03, 0.6335E-03, 0.6335E-03, 0.6335E-03,& - 0.6335E-03, 0.6958E-03, 0.6958E-03, 0.6958E-03,& - 0.7582E-03, 0.7582E-03, 0.7582E-03, 0.8205E-03,& - 0.8205E-03, 0.8205E-03, 0.8829E-03, 0.8829E-03,& - 0.8829E-03, 0.9452E-03, 0.9452E-03, 0.1008E-02,& - 0.1008E-02, 0.1008E-02, 0.1070E-02, 0.1070E-02,& - 0.1132E-02, 0.1132E-02, 0.1195E-02, 0.1195E-02,& - 0.1257E-02, 0.1257E-02, 0.1319E-02, 0.1319E-02,& - 0.1382E-02, 0.1382E-02, 0.1444E-02, 0.1444E-02,& - 0.1506E-02, 0.1569E-02, 0.1569E-02, 0.1631E-02,& - 0.1693E-02, 0.1693E-02, 0.1756E-02, 0.1818E-02,& - 0.1818E-02, 0.1880E-02, 0.1943E-02, 0.2005E-02,& - 0.2005E-02, 0.2068E-02, 0.2130E-02, 0.2192E-02,& - 0.2255E-02, 0.2255E-02, 0.2317E-02, 0.2379E-02,& - 0.2442E-02, 0.2504E-02, 0.2566E-02, 0.2629E-02,& - 0.2691E-02, 0.2753E-02, 0.2816E-02, 0.2878E-02,& - 0.2940E-02, 0.3003E-02, 0.3127E-02, 0.3190E-02,& - 0.3252E-02, 0.3315E-02, 0.3377E-02, 0.3502E-02,& - 0.3564E-02, 0.3626E-02, 0.3751E-02, 0.3813E-02,& - 0.3876E-02, 0.4000E-02, 0.4063E-02, 0.4187E-02,& - 0.4250E-02, 0.4374E-02, 0.4437E-02, 0.4562E-02,& - 0.4686E-02, 0.4749E-02, 0.4873E-02, 0.4998E-02,& - 0.5123E-02, 0.5247E-02, 0.5310E-02, 0.5434E-02,& - 0.5559E-02, 0.5684E-02, 0.5808E-02, 0.5933E-02,& - 0.6058E-02, 0.6245E-02, 0.6370E-02, 0.6494E-02,& - 0.6619E-02, 0.6806E-02, 0.6931E-02, 0.7118E-02,& - 0.7243E-02, 0.7430E-02, 0.7554E-02, 0.7741E-02,& - 0.7866E-02, 0.8053E-02, 0.8240E-02, 0.8427E-02,& - 0.8614E-02, 0.8801E-02, 0.8988E-02, 0.9175E-02,& - 0.9362E-02, 0.9549E-02, 0.9737E-02, 0.9986E-02,& - 0.1017E-01, 0.1036E-01, 0.1061E-01, 0.1080E-01,& - 0.1105E-01, 0.1130E-01, 0.1154E-01, 0.1173E-01,& - 0.1198E-01, 0.1223E-01, 0.1248E-01, 0.1279E-01,& - 0.1304E-01, 0.1329E-01, 0.1360E-01, 0.1385E-01,& - 0.1416E-01, 0.1441E-01, 0.1472E-01, 0.1504E-01,& - 0.1535E-01, 0.1566E-01, 0.1597E-01, 0.1628E-01,& - 0.1659E-01, 0.1697E-01, 0.1728E-01, 0.1765E-01,& - 0.1803E-01, 0.1834E-01, 0.1871E-01, 0.1909E-01,& - 0.1946E-01, 0.1990E-01, 0.2027E-01, 0.2065E-01,& - 0.2108E-01, 0.2152E-01, 0.2196E-01, 0.2239E-01,& - 0.2283E-01, 0.2327E-01, 0.2370E-01, 0.2420E-01,& - 0.2464E-01, 0.2514E-01, 0.2564E-01, 0.2613E-01,& - 0.2663E-01, 0.2713E-01, 0.2769E-01, 0.2825E-01,& - 0.2875E-01, 0.2931E-01, 0.2988E-01, 0.3050E-01,& - 0.3106E-01, 0.3168E-01, 0.3224E-01, 0.3287E-01,& - 0.3349E-01, 0.3418E-01, 0.3480E-01, 0.3549E-01,& - 0.3611E-01, 0.3680E-01, 0.3754E-01, 0.3823E-01,& - 0.3898E-01, 0.3966E-01, 0.4041E-01, 0.4122E-01,& - 0.4197E-01, 0.4278E-01, 0.4353E-01, 0.4434E-01,& - 0.4521E-01, 0.4602E-01, 0.4690E-01, 0.4777E-01,& - 0.4864E-01, 0.4958E-01, 0.5045E-01, 0.5139E-01,& - 0.5238E-01, 0.5332E-01, 0.5432E-01, 0.5531E-01,& - 0.5631E-01, 0.5737E-01, 0.5837E-01, 0.5949E-01,& - 0.6055E-01, 0.6167E-01, 0.6280E-01, 0.6392E-01,& - 0.6504E-01, 0.6623E-01, 0.6747E-01, 0.6866E-01,& - 0.6990E-01, 0.7115E-01, 0.7246E-01, 0.7377E-01,& - 0.7508E-01, 0.7639E-01, 0.7776E-01, 0.7919E-01,& - 0.8057E-01, 0.8200E-01, 0.8350E-01, 0.8493E-01,& - 0.8649E-01, 0.8799E-01, 0.8954E-01, 0.9110E-01,& - 0.9272E-01, 0.9434E-01, 0.9603E-01, 0.9771E-01,& - 0.9946E-01, 0.1012E+00, 0.1029E+00, 0.1048E+00,& - 0.1066E+00, 0.1084E+00, 0.1103E+00, 0.1122E+00,& - 0.1142E+00, 0.1162E+00, 0.1182E+00, 0.1202E+00,& - 0.1223E+00, 0.1244E+00, 0.1266E+00, 0.1288E+00,& - 0.1309E+00, 0.1332E+00, 0.1355E+00, 0.1378E+00,& - 0.1402E+00, 0.1425E+00, 0.1450E+00, 0.1475E+00,& - 0.1500E+00, 0.1525E+00, 0.1551E+00, 0.1578E+00,& - 0.1604E+00, 0.1632E+00, 0.1659E+00, 0.1687E+00,& - 0.1715E+00, 0.1745E+00, 0.1774E+00, 0.1804E+00,& - 0.1834E+00, 0.1865E+00, 0.1896E+00, 0.1928E+00,& - 0.1960E+00, 0.1993E+00, 0.2026E+00, 0.2060E+00,& - 0.2094E+00, 0.2129E+00, 0.2164E+00, 0.2200E+00,& - 0.2237E+00, 0.2273E+00, 0.2311E+00, 0.2349E+00,& - 0.2388E+00, 0.2427E+00, 0.2467E+00, 0.2508E+00,& - 0.2549E+00, 0.2591E+00, 0.2633E+00, 0.2677E+00,& - 0.2720E+00, 0.2765E+00, 0.2810E+00, 0.2856E+00,& - 0.2902E+00, 0.2950E+00, 0.2998E+00, 0.3046E+00,& - 0.3096E+00, 0.3146E+00, 0.3197E+00, 0.3249E+00,& - 0.3302E+00, 0.3354E+00, 0.3409E+00, 0.3464E+00,& - 0.3520E+00, 0.3576E+00, 0.3634E+00, 0.3692E+00,& - 0.3752E+00, 0.3812E+00, 0.3873E+00, 0.3935E+00,& - 0.3999E+00, 0.4062E+00, 0.4127E+00, 0.4193E+00,& - 0.4260E+00, 0.4328E+00, 0.4397E+00, 0.4467E+00,& - 0.4539E+00, 0.4610E+00, 0.4684E+00, 0.4758E+00,& - 0.4833E+00, 0.4910E+00, 0.4988E+00, 0.5067E+00,& - 0.5148E+00, 0.5229E+00, 0.5312E+00, 0.5395E+00,& - 0.5481E+00, 0.5567E+00, 0.5655E+00, 0.5744E+00,& - 0.5835E+00, 0.5926E+00, 0.6020E+00, 0.6115E+00,& - 0.6211E+00, 0.6308E+00, 0.6407E+00, 0.6508E+00,& - 0.6610E+00, 0.6714E+00, 0.6819E+00, 0.6926E+00,& - 0.7034E+00, 0.7145E+00, 0.7256E+00, 0.7370E+00,& - 0.7485E+00, 0.7602E+00, 0.7721E+00, 0.7842E+00,& - 0.7964E+00, 0.8089E+00, 0.8215E+00, 0.8343E+00,& - 0.8473E+00, 0.8606E+00, 0.8739E+00, 0.8876E+00,& - 0.9015E+00, 0.9155E+00, 0.9298E+00, 0.9443E+00,& - 0.9590E+00, 0.9740E+00, 0.9892E+00, 0.1005E+01,& - 0.1020E+01, 0.1036E+01, 0.1052E+01, 0.1069E+01,& - 0.1085E+01, 0.1102E+01, 0.1120E+01, 0.1137E+01,& - 0.1155E+01, 0.1173E+01, 0.1191E+01, 0.1210E+01,& - 0.1229E+01, 0.1248E+01, 0.1267E+01, 0.1287E+01,& - 0.1307E+01, 0.1328E+01, 0.1348E+01, 0.1370E+01,& - 0.1391E+01, 0.1413E+01, 0.1435E+01, 0.1457E+01,& - 0.1480E+01, 0.1504E+01, 0.1527E+01, 0.1551E+01,& - 0.1576E+01, 0.1601E+01, 0.1626E+01, 0.1651E+01,& - 0.1678E+01, 0.1704E+01, 0.1731E+01, 0.1758E+01,& - 0.1786E+01, 0.1815E+01, 0.1843E+01, 0.1873E+01,& - 0.1903E+01, 0.1933E+01, 0.1964E+01, 0.1995E+01,& - 0.2027E+01, 0.2060E+01, 0.2093E+01, 0.2126E+01,& - 0.2160E+01, 0.2195E+01, 0.2231E+01, 0.2267E+01,& - 0.2304E+01, 0.2341E+01, 0.2379E+01, 0.2418E+01,& - 0.2457E+01, 0.2497E+01, 0.2538E+01, 0.2580E+01,& - 0.2622E+01, 0.2666E+01, 0.2710E+01, 0.2755E+01,& - 0.2800E+01, 0.2847E+01, 0.2894E+01, 0.2941E+01,& - 0.2992E+01, 0.3043E+01, 0.3094E+01, 0.3146E+01,& - 0.3200E+01, 0.3254E+01, 0.3310E+01, 0.3367E+01,& - 0.3424E+01, 0.3483E+01, 0.3544E+01, 0.3605E+01,& - 0.3668E+01, 0.3732E+01, 0.3798E+01, 0.3865E+01,& - 0.3934E+01, 0.4004E+01, 0.4075E+01, 0.4149E+01,& - 0.4223E+01, 0.4300E+01, 0.4378E+01, 0.4459E+01,& - 0.4541E+01, 0.4625E+01, 0.4711E+01, 0.4799E+01,& - 0.4890E+01, 0.4982E+01, 0.5077E+01, 0.5175E+01,& - 0.5275E+01, 0.5377E+01, 0.5483E+01, 0.5591E+01,& - 0.5702E+01, 0.5817E+01, 0.5934E+01, 0.6055E+01,& - 0.6179E+01, 0.6308E+01, 0.6440E+01, 0.6576E+01,& - 0.6716E+01, 0.6861E+01, 0.7010E+01, 0.7164E+01,& - 0.7323E+01, 0.7489E+01, 0.7660E+01, 0.7836E+01,& - 0.8020E+01, 0.8210E+01, 0.8408E+01, 0.8613E+01,& - 0.8827E+01, 0.9049E+01, 0.9281E+01, 0.9524E+01,& - 0.9777E+01, 0.1004E+02, 0.1032E+02, 0.1061E+02,& - 0.1092E+02, 0.1124E+02, 0.1158E+02, 0.1195E+02,& - 0.1233E+02, 0.1274E+02, 0.1318E+02, 0.1364E+02,& - 0.1415E+02, 0.1469E+02, 0.1528E+02, 0.1592E+02,& - 0.1663E+02, 0.1741E+02, 0.1829E+02, 0.1928E+02,& - 0.2043E+02, 0.2176E+02, 0.2337E+02, 0.2537E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,137) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.7318E-04,& - 0.7318E-04, 0.7318E-04, 0.7318E-04, 0.7318E-04,& - 0.7318E-04, 0.7318E-04, 0.7318E-04, 0.7318E-04,& - 0.7318E-04, 0.7318E-04, 0.7318E-04, 0.7318E-04,& - 0.7318E-04, 0.7318E-04, 0.7318E-04, 0.7318E-04,& - 0.7318E-04, 0.7318E-04, 0.7318E-04, 0.1364E-03,& - 0.1364E-03, 0.1364E-03, 0.1364E-03, 0.1364E-03,& - 0.1364E-03, 0.1364E-03, 0.1364E-03, 0.1364E-03,& - 0.1364E-03, 0.1364E-03, 0.1364E-03, 0.1364E-03,& - 0.1995E-03, 0.1995E-03, 0.1995E-03, 0.1995E-03,& - 0.1995E-03, 0.1995E-03, 0.1995E-03, 0.1995E-03,& - 0.1995E-03, 0.1995E-03, 0.2627E-03, 0.2627E-03,& - 0.2627E-03, 0.2627E-03, 0.2627E-03, 0.2627E-03,& - 0.2627E-03, 0.3259E-03, 0.3259E-03, 0.3259E-03,& - 0.3259E-03, 0.3259E-03, 0.3259E-03, 0.3259E-03,& - 0.3891E-03, 0.3891E-03, 0.3891E-03, 0.3891E-03,& - 0.3891E-03, 0.4523E-03, 0.4523E-03, 0.4523E-03,& - 0.4523E-03, 0.4523E-03, 0.5154E-03, 0.5154E-03,& - 0.5154E-03, 0.5154E-03, 0.5786E-03, 0.5786E-03,& - 0.5786E-03, 0.5786E-03, 0.6418E-03, 0.6418E-03,& - 0.6418E-03, 0.6418E-03, 0.7050E-03, 0.7050E-03,& - 0.7050E-03, 0.7682E-03, 0.7682E-03, 0.7682E-03,& - 0.8314E-03, 0.8314E-03, 0.8314E-03, 0.8945E-03,& - 0.8945E-03, 0.8945E-03, 0.9577E-03, 0.9577E-03,& - 0.1021E-02, 0.1021E-02, 0.1021E-02, 0.1084E-02,& - 0.1084E-02, 0.1147E-02, 0.1147E-02, 0.1210E-02,& - 0.1210E-02, 0.1274E-02, 0.1274E-02, 0.1337E-02,& - 0.1337E-02, 0.1400E-02, 0.1400E-02, 0.1463E-02,& - 0.1463E-02, 0.1526E-02, 0.1590E-02, 0.1590E-02,& - 0.1653E-02, 0.1716E-02, 0.1716E-02, 0.1779E-02,& - 0.1842E-02, 0.1842E-02, 0.1905E-02, 0.1969E-02,& - 0.2032E-02, 0.2032E-02, 0.2095E-02, 0.2158E-02,& - 0.2221E-02, 0.2285E-02, 0.2348E-02, 0.2348E-02,& - 0.2411E-02, 0.2474E-02, 0.2537E-02, 0.2600E-02,& - 0.2664E-02, 0.2727E-02, 0.2790E-02, 0.2853E-02,& - 0.2916E-02, 0.3043E-02, 0.3106E-02, 0.3169E-02,& - 0.3232E-02, 0.3295E-02, 0.3359E-02, 0.3485E-02,& - 0.3548E-02, 0.3611E-02, 0.3738E-02, 0.3801E-02,& - 0.3864E-02, 0.3990E-02, 0.4054E-02, 0.4180E-02,& - 0.4243E-02, 0.4369E-02, 0.4433E-02, 0.4559E-02,& - 0.4685E-02, 0.4749E-02, 0.4875E-02, 0.5001E-02,& - 0.5064E-02, 0.5191E-02, 0.5317E-02, 0.5444E-02,& - 0.5570E-02, 0.5696E-02, 0.5823E-02, 0.5949E-02,& - 0.6075E-02, 0.6202E-02, 0.6328E-02, 0.6518E-02,& - 0.6644E-02, 0.6770E-02, 0.6960E-02, 0.7086E-02,& - 0.7213E-02, 0.7402E-02, 0.7592E-02, 0.7718E-02,& - 0.7908E-02, 0.8097E-02, 0.8224E-02, 0.8413E-02,& - 0.8603E-02, 0.8792E-02, 0.8982E-02, 0.9171E-02,& - 0.9361E-02, 0.9550E-02, 0.9803E-02, 0.9993E-02,& - 0.1018E-01, 0.1043E-01, 0.1062E-01, 0.1088E-01,& - 0.1107E-01, 0.1132E-01, 0.1157E-01, 0.1182E-01,& - 0.1208E-01, 0.1233E-01, 0.1258E-01, 0.1284E-01,& - 0.1309E-01, 0.1334E-01, 0.1366E-01, 0.1391E-01,& - 0.1423E-01, 0.1448E-01, 0.1479E-01, 0.1511E-01,& - 0.1543E-01, 0.1574E-01, 0.1606E-01, 0.1637E-01,& - 0.1675E-01, 0.1707E-01, 0.1738E-01, 0.1776E-01,& - 0.1814E-01, 0.1852E-01, 0.1890E-01, 0.1928E-01,& - 0.1966E-01, 0.2004E-01, 0.2042E-01, 0.2086E-01,& - 0.2124E-01, 0.2168E-01, 0.2212E-01, 0.2257E-01,& - 0.2301E-01, 0.2345E-01, 0.2396E-01, 0.2440E-01,& - 0.2490E-01, 0.2541E-01, 0.2591E-01, 0.2642E-01,& - 0.2693E-01, 0.2743E-01, 0.2800E-01, 0.2850E-01,& - 0.2907E-01, 0.2964E-01, 0.3021E-01, 0.3084E-01,& - 0.3141E-01, 0.3204E-01, 0.3267E-01, 0.3324E-01,& - 0.3394E-01, 0.3457E-01, 0.3520E-01, 0.3590E-01,& - 0.3659E-01, 0.3729E-01, 0.3798E-01, 0.3874E-01,& - 0.3950E-01, 0.4026E-01, 0.4101E-01, 0.4177E-01,& - 0.4253E-01, 0.4335E-01, 0.4417E-01, 0.4499E-01,& - 0.4588E-01, 0.4670E-01, 0.4759E-01, 0.4847E-01,& - 0.4942E-01, 0.5030E-01, 0.5125E-01, 0.5220E-01,& - 0.5321E-01, 0.5416E-01, 0.5517E-01, 0.5618E-01,& - 0.5725E-01, 0.5833E-01, 0.5940E-01, 0.6047E-01,& - 0.6161E-01, 0.6269E-01, 0.6389E-01, 0.6502E-01,& - 0.6622E-01, 0.6742E-01, 0.6869E-01, 0.6989E-01,& - 0.7121E-01, 0.7248E-01, 0.7381E-01, 0.7513E-01,& - 0.7652E-01, 0.7785E-01, 0.7930E-01, 0.8069E-01,& - 0.8215E-01, 0.8366E-01, 0.8511E-01, 0.8663E-01,& - 0.8821E-01, 0.8979E-01, 0.9137E-01, 0.9301E-01,& - 0.9466E-01, 0.9636E-01, 0.9807E-01, 0.9984E-01,& - 0.1016E+00, 0.1034E+00, 0.1052E+00, 0.1070E+00,& - 0.1089E+00, 0.1108E+00, 0.1128E+00, 0.1148E+00,& - 0.1168E+00, 0.1189E+00, 0.1209E+00, 0.1230E+00,& - 0.1252E+00, 0.1274E+00, 0.1296E+00, 0.1318E+00,& - 0.1341E+00, 0.1364E+00, 0.1388E+00, 0.1412E+00,& - 0.1436E+00, 0.1461E+00, 0.1486E+00, 0.1512E+00,& - 0.1538E+00, 0.1564E+00, 0.1591E+00, 0.1618E+00,& - 0.1646E+00, 0.1674E+00, 0.1703E+00, 0.1731E+00,& - 0.1761E+00, 0.1791E+00, 0.1822E+00, 0.1853E+00,& - 0.1884E+00, 0.1916E+00, 0.1948E+00, 0.1981E+00,& - 0.2014E+00, 0.2048E+00, 0.2083E+00, 0.2118E+00,& - 0.2153E+00, 0.2189E+00, 0.2226E+00, 0.2263E+00,& - 0.2301E+00, 0.2340E+00, 0.2379E+00, 0.2419E+00,& - 0.2458E+00, 0.2500E+00, 0.2541E+00, 0.2584E+00,& - 0.2626E+00, 0.2669E+00, 0.2714E+00, 0.2759E+00,& - 0.2804E+00, 0.2851E+00, 0.2898E+00, 0.2946E+00,& - 0.2994E+00, 0.3043E+00, 0.3093E+00, 0.3144E+00,& - 0.3195E+00, 0.3248E+00, 0.3301E+00, 0.3355E+00,& - 0.3410E+00, 0.3466E+00, 0.3522E+00, 0.3579E+00,& - 0.3637E+00, 0.3697E+00, 0.3757E+00, 0.3817E+00,& - 0.3880E+00, 0.3943E+00, 0.4006E+00, 0.4071E+00,& - 0.4137E+00, 0.4204E+00, 0.4272E+00, 0.4341E+00,& - 0.4411E+00, 0.4482E+00, 0.4554E+00, 0.4627E+00,& - 0.4702E+00, 0.4777E+00, 0.4854E+00, 0.4932E+00,& - 0.5011E+00, 0.5091E+00, 0.5171E+00, 0.5256E+00,& - 0.5340E+00, 0.5425E+00, 0.5512E+00, 0.5600E+00,& - 0.5690E+00, 0.5780E+00, 0.5872E+00, 0.5966E+00,& - 0.6060E+00, 0.6157E+00, 0.6255E+00, 0.6355E+00,& - 0.6455E+00, 0.6558E+00, 0.6663E+00, 0.6768E+00,& - 0.6875E+00, 0.6984E+00, 0.7095E+00, 0.7208E+00,& - 0.7322E+00, 0.7438E+00, 0.7555E+00, 0.7675E+00,& - 0.7796E+00, 0.7920E+00, 0.8045E+00, 0.8172E+00,& - 0.8301E+00, 0.8432E+00, 0.8566E+00, 0.8701E+00,& - 0.8838E+00, 0.8977E+00, 0.9120E+00, 0.9263E+00,& - 0.9410E+00, 0.9558E+00, 0.9709E+00, 0.9862E+00,& - 0.1002E+01, 0.1018E+01, 0.1034E+01, 0.1050E+01,& - 0.1067E+01, 0.1083E+01, 0.1100E+01, 0.1118E+01,& - 0.1135E+01, 0.1153E+01, 0.1172E+01, 0.1190E+01,& - 0.1209E+01, 0.1228E+01, 0.1247E+01, 0.1267E+01,& - 0.1287E+01, 0.1308E+01, 0.1328E+01, 0.1349E+01,& - 0.1371E+01, 0.1392E+01, 0.1415E+01, 0.1437E+01,& - 0.1460E+01, 0.1483E+01, 0.1507E+01, 0.1531E+01,& - 0.1555E+01, 0.1580E+01, 0.1605E+01, 0.1631E+01,& - 0.1657E+01, 0.1683E+01, 0.1710E+01, 0.1737E+01,& - 0.1765E+01, 0.1794E+01, 0.1822E+01, 0.1852E+01,& - 0.1881E+01, 0.1912E+01, 0.1943E+01, 0.1974E+01,& - 0.2006E+01, 0.2038E+01, 0.2072E+01, 0.2105E+01,& - 0.2139E+01, 0.2174E+01, 0.2210E+01, 0.2246E+01,& - 0.2283E+01, 0.2320E+01, 0.2358E+01, 0.2397E+01,& - 0.2436E+01, 0.2477E+01, 0.2518E+01, 0.2559E+01,& - 0.2602E+01, 0.2645E+01, 0.2690E+01, 0.2735E+01,& - 0.2780E+01, 0.2827E+01, 0.2875E+01, 0.2923E+01,& - 0.2973E+01, 0.3023E+01, 0.3075E+01, 0.3128E+01,& - 0.3181E+01, 0.3236E+01, 0.3292E+01, 0.3349E+01,& - 0.3407E+01, 0.3466E+01, 0.3527E+01, 0.3589E+01,& - 0.3652E+01, 0.3716E+01, 0.3782E+01, 0.3850E+01,& - 0.3919E+01, 0.3989E+01, 0.4061E+01, 0.4135E+01,& - 0.4210E+01, 0.4287E+01, 0.4366E+01, 0.4446E+01,& - 0.4529E+01, 0.4614E+01, 0.4700E+01, 0.4789E+01,& - 0.4880E+01, 0.4974E+01, 0.5069E+01, 0.5167E+01,& - 0.5268E+01, 0.5372E+01, 0.5478E+01, 0.5587E+01,& - 0.5699E+01, 0.5814E+01, 0.5932E+01, 0.6053E+01,& - 0.6180E+01, 0.6309E+01, 0.6442E+01, 0.6579E+01,& - 0.6721E+01, 0.6866E+01, 0.7017E+01, 0.7173E+01,& - 0.7334E+01, 0.7500E+01, 0.7672E+01, 0.7851E+01,& - 0.8036E+01, 0.8228E+01, 0.8428E+01, 0.8635E+01,& - 0.8851E+01, 0.9075E+01, 0.9310E+01, 0.9554E+01,& - 0.9810E+01, 0.1008E+02, 0.1036E+02, 0.1065E+02,& - 0.1096E+02, 0.1129E+02, 0.1164E+02, 0.1200E+02,& - 0.1239E+02, 0.1280E+02, 0.1325E+02, 0.1372E+02,& - 0.1423E+02, 0.1478E+02, 0.1537E+02, 0.1602E+02,& - 0.1674E+02, 0.1753E+02, 0.1842E+02, 0.1943E+02,& - 0.2058E+02, 0.2194E+02, 0.2356E+02, 0.2559E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,138) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.7402E-04, 0.7402E-04, 0.7402E-04, 0.7402E-04,& - 0.7402E-04, 0.7402E-04, 0.7402E-04, 0.7402E-04,& - 0.7402E-04, 0.7402E-04, 0.7402E-04, 0.7402E-04,& - 0.7402E-04, 0.7402E-04, 0.7402E-04, 0.7402E-04,& - 0.7402E-04, 0.7402E-04, 0.7402E-04, 0.7402E-04,& - 0.1380E-03, 0.1380E-03, 0.1380E-03, 0.1380E-03,& - 0.1380E-03, 0.1380E-03, 0.1380E-03, 0.1380E-03,& - 0.1380E-03, 0.1380E-03, 0.1380E-03, 0.1380E-03,& - 0.1380E-03, 0.2021E-03, 0.2021E-03, 0.2021E-03,& - 0.2021E-03, 0.2021E-03, 0.2021E-03, 0.2021E-03,& - 0.2021E-03, 0.2021E-03, 0.2021E-03, 0.2661E-03,& - 0.2661E-03, 0.2661E-03, 0.2661E-03, 0.2661E-03,& - 0.2661E-03, 0.2661E-03, 0.3301E-03, 0.3301E-03,& - 0.3301E-03, 0.3301E-03, 0.3301E-03, 0.3301E-03,& - 0.3301E-03, 0.3941E-03, 0.3941E-03, 0.3941E-03,& - 0.3941E-03, 0.3941E-03, 0.4581E-03, 0.4581E-03,& - 0.4581E-03, 0.4581E-03, 0.4581E-03, 0.5221E-03,& - 0.5221E-03, 0.5221E-03, 0.5221E-03, 0.5221E-03,& - 0.5862E-03, 0.5862E-03, 0.5862E-03, 0.6502E-03,& - 0.6502E-03, 0.6502E-03, 0.6502E-03, 0.7142E-03,& - 0.7142E-03, 0.7142E-03, 0.7782E-03, 0.7782E-03,& - 0.7782E-03, 0.8422E-03, 0.8422E-03, 0.8422E-03,& - 0.9063E-03, 0.9063E-03, 0.9063E-03, 0.9703E-03,& - 0.9703E-03, 0.1034E-02, 0.1034E-02, 0.1034E-02,& - 0.1098E-02, 0.1098E-02, 0.1162E-02, 0.1162E-02,& - 0.1226E-02, 0.1226E-02, 0.1290E-02, 0.1290E-02,& - 0.1354E-02, 0.1354E-02, 0.1418E-02, 0.1418E-02,& - 0.1482E-02, 0.1546E-02, 0.1546E-02, 0.1610E-02,& - 0.1610E-02, 0.1674E-02, 0.1738E-02, 0.1738E-02,& - 0.1803E-02, 0.1867E-02, 0.1867E-02, 0.1931E-02,& - 0.1995E-02, 0.2059E-02, 0.2123E-02, 0.2123E-02,& - 0.2187E-02, 0.2251E-02, 0.2315E-02, 0.2379E-02,& - 0.2443E-02, 0.2507E-02, 0.2507E-02, 0.2571E-02,& - 0.2635E-02, 0.2699E-02, 0.2763E-02, 0.2827E-02,& - 0.2955E-02, 0.3019E-02, 0.3083E-02, 0.3147E-02,& - 0.3211E-02, 0.3275E-02, 0.3339E-02, 0.3467E-02,& - 0.3531E-02, 0.3595E-02, 0.3723E-02, 0.3787E-02,& - 0.3851E-02, 0.3979E-02, 0.4043E-02, 0.4171E-02,& - 0.4235E-02, 0.4363E-02, 0.4427E-02, 0.4555E-02,& - 0.4619E-02, 0.4747E-02, 0.4875E-02, 0.5003E-02,& - 0.5067E-02, 0.5195E-02, 0.5324E-02, 0.5452E-02,& - 0.5580E-02, 0.5708E-02, 0.5836E-02, 0.5964E-02,& - 0.6092E-02, 0.6220E-02, 0.6348E-02, 0.6476E-02,& - 0.6668E-02, 0.6796E-02, 0.6924E-02, 0.7116E-02,& - 0.7244E-02, 0.7436E-02, 0.7564E-02, 0.7756E-02,& - 0.7884E-02, 0.8076E-02, 0.8268E-02, 0.8460E-02,& - 0.8652E-02, 0.8845E-02, 0.9037E-02, 0.9229E-02,& - 0.9421E-02, 0.9613E-02, 0.9805E-02, 0.9997E-02,& - 0.1025E-01, 0.1044E-01, 0.1070E-01, 0.1089E-01,& - 0.1115E-01, 0.1141E-01, 0.1160E-01, 0.1185E-01,& - 0.1211E-01, 0.1237E-01, 0.1262E-01, 0.1288E-01,& - 0.1320E-01, 0.1345E-01, 0.1371E-01, 0.1403E-01,& - 0.1429E-01, 0.1461E-01, 0.1493E-01, 0.1525E-01,& - 0.1550E-01, 0.1582E-01, 0.1621E-01, 0.1653E-01,& - 0.1685E-01, 0.1723E-01, 0.1755E-01, 0.1794E-01,& - 0.1826E-01, 0.1864E-01, 0.1902E-01, 0.1941E-01,& - 0.1979E-01, 0.2024E-01, 0.2062E-01, 0.2107E-01,& - 0.2146E-01, 0.2190E-01, 0.2235E-01, 0.2280E-01,& - 0.2325E-01, 0.2370E-01, 0.2421E-01, 0.2466E-01,& - 0.2517E-01, 0.2568E-01, 0.2619E-01, 0.2671E-01,& - 0.2722E-01, 0.2773E-01, 0.2831E-01, 0.2888E-01,& - 0.2946E-01, 0.3003E-01, 0.3061E-01, 0.3119E-01,& - 0.3183E-01, 0.3240E-01, 0.3304E-01, 0.3368E-01,& - 0.3439E-01, 0.3503E-01, 0.3573E-01, 0.3637E-01,& - 0.3708E-01, 0.3784E-01, 0.3855E-01, 0.3932E-01,& - 0.4002E-01, 0.4079E-01, 0.4162E-01, 0.4239E-01,& - 0.4322E-01, 0.4405E-01, 0.4489E-01, 0.4572E-01,& - 0.4662E-01, 0.4745E-01, 0.4834E-01, 0.4930E-01,& - 0.5020E-01, 0.5116E-01, 0.5212E-01, 0.5308E-01,& - 0.5411E-01, 0.5513E-01, 0.5615E-01, 0.5718E-01,& - 0.5827E-01, 0.5936E-01, 0.6044E-01, 0.6160E-01,& - 0.6268E-01, 0.6390E-01, 0.6505E-01, 0.6627E-01,& - 0.6749E-01, 0.6870E-01, 0.6998E-01, 0.7126E-01,& - 0.7261E-01, 0.7389E-01, 0.7523E-01, 0.7664E-01,& - 0.7805E-01, 0.7946E-01, 0.8093E-01, 0.8240E-01,& - 0.8387E-01, 0.8541E-01, 0.8695E-01, 0.8848E-01,& - 0.9008E-01, 0.9175E-01, 0.9335E-01, 0.9508E-01,& - 0.9674E-01, 0.9847E-01, 0.1003E+00, 0.1021E+00,& - 0.1038E+00, 0.1057E+00, 0.1076E+00, 0.1095E+00,& - 0.1115E+00, 0.1135E+00, 0.1154E+00, 0.1175E+00,& - 0.1196E+00, 0.1217E+00, 0.1238E+00, 0.1260E+00,& - 0.1282E+00, 0.1305E+00, 0.1328E+00, 0.1351E+00,& - 0.1375E+00, 0.1399E+00, 0.1423E+00, 0.1448E+00,& - 0.1473E+00, 0.1499E+00, 0.1525E+00, 0.1551E+00,& - 0.1578E+00, 0.1606E+00, 0.1633E+00, 0.1661E+00,& - 0.1690E+00, 0.1720E+00, 0.1749E+00, 0.1779E+00,& - 0.1810E+00, 0.1841E+00, 0.1872E+00, 0.1904E+00,& - 0.1937E+00, 0.1970E+00, 0.2003E+00, 0.2038E+00,& - 0.2072E+00, 0.2108E+00, 0.2143E+00, 0.2180E+00,& - 0.2217E+00, 0.2254E+00, 0.2293E+00, 0.2331E+00,& - 0.2371E+00, 0.2410E+00, 0.2451E+00, 0.2492E+00,& - 0.2535E+00, 0.2577E+00, 0.2620E+00, 0.2664E+00,& - 0.2709E+00, 0.2754E+00, 0.2800E+00, 0.2846E+00,& - 0.2894E+00, 0.2942E+00, 0.2991E+00, 0.3041E+00,& - 0.3092E+00, 0.3143E+00, 0.3195E+00, 0.3248E+00,& - 0.3302E+00, 0.3357E+00, 0.3412E+00, 0.3468E+00,& - 0.3526E+00, 0.3584E+00, 0.3643E+00, 0.3702E+00,& - 0.3763E+00, 0.3825E+00, 0.3888E+00, 0.3952E+00,& - 0.4017E+00, 0.4083E+00, 0.4149E+00, 0.4217E+00,& - 0.4286E+00, 0.4356E+00, 0.4427E+00, 0.4499E+00,& - 0.4572E+00, 0.4647E+00, 0.4722E+00, 0.4799E+00,& - 0.4877E+00, 0.4956E+00, 0.5036E+00, 0.5118E+00,& - 0.5201E+00, 0.5285E+00, 0.5371E+00, 0.5458E+00,& - 0.5546E+00, 0.5636E+00, 0.5727E+00, 0.5819E+00,& - 0.5913E+00, 0.6008E+00, 0.6105E+00, 0.6203E+00,& - 0.6303E+00, 0.6404E+00, 0.6508E+00, 0.6612E+00,& - 0.6718E+00, 0.6826E+00, 0.6936E+00, 0.7047E+00,& - 0.7160E+00, 0.7275E+00, 0.7391E+00, 0.7509E+00,& - 0.7630E+00, 0.7752E+00, 0.7876E+00, 0.8002E+00,& - 0.8130E+00, 0.8260E+00, 0.8392E+00, 0.8527E+00,& - 0.8662E+00, 0.8801E+00, 0.8942E+00, 0.9085E+00,& - 0.9230E+00, 0.9372E+00, 0.9527E+00, 0.9679E+00,& - 0.9834E+00, 0.9991E+00, 0.1015E+01, 0.1031E+01,& - 0.1048E+01, 0.1064E+01, 0.1081E+01, 0.1099E+01,& - 0.1116E+01, 0.1134E+01, 0.1152E+01, 0.1171E+01,& - 0.1189E+01, 0.1208E+01, 0.1228E+01, 0.1247E+01,& - 0.1267E+01, 0.1288E+01, 0.1308E+01, 0.1329E+01,& - 0.1351E+01, 0.1372E+01, 0.1394E+01, 0.1417E+01,& - 0.1439E+01, 0.1462E+01, 0.1486E+01, 0.1510E+01,& - 0.1534E+01, 0.1559E+01, 0.1584E+01, 0.1610E+01,& - 0.1636E+01, 0.1662E+01, 0.1689E+01, 0.1716E+01,& - 0.1744E+01, 0.1772E+01, 0.1801E+01, 0.1830E+01,& - 0.1860E+01, 0.1891E+01, 0.1921E+01, 0.1953E+01,& - 0.1985E+01, 0.2017E+01, 0.2050E+01, 0.2084E+01,& - 0.2118E+01, 0.2153E+01, 0.2189E+01, 0.2225E+01,& - 0.2261E+01, 0.2299E+01, 0.2337E+01, 0.2376E+01,& - 0.2416E+01, 0.2456E+01, 0.2497E+01, 0.2539E+01,& - 0.2581E+01, 0.2625E+01, 0.2669E+01, 0.2714E+01,& - 0.2760E+01, 0.2807E+01, 0.2855E+01, 0.2904E+01,& - 0.2953E+01, 0.3004E+01, 0.3056E+01, 0.3108E+01,& - 0.3162E+01, 0.3217E+01, 0.3273E+01, 0.3330E+01,& - 0.3389E+01, 0.3448E+01, 0.3509E+01, 0.3571E+01,& - 0.3635E+01, 0.3700E+01, 0.3766E+01, 0.3834E+01,& - 0.3903E+01, 0.3974E+01, 0.4046E+01, 0.4120E+01,& - 0.4196E+01, 0.4273E+01, 0.4353E+01, 0.4434E+01,& - 0.4517E+01, 0.4602E+01, 0.4689E+01, 0.4779E+01,& - 0.4870E+01, 0.4964E+01, 0.5061E+01, 0.5159E+01,& - 0.5261E+01, 0.5365E+01, 0.5472E+01, 0.5582E+01,& - 0.5695E+01, 0.5811E+01, 0.5930E+01, 0.6053E+01,& - 0.6179E+01, 0.6309E+01, 0.6444E+01, 0.6582E+01,& - 0.6724E+01, 0.6872E+01, 0.7024E+01, 0.7181E+01,& - 0.7343E+01, 0.7511E+01, 0.7685E+01, 0.7865E+01,& - 0.8052E+01, 0.8245E+01, 0.8447E+01, 0.8656E+01,& - 0.8874E+01, 0.9101E+01, 0.9337E+01, 0.9585E+01,& - 0.9843E+01, 0.1011E+02, 0.1040E+02, 0.1069E+02,& - 0.1101E+02, 0.1134E+02, 0.1169E+02, 0.1206E+02,& - 0.1245E+02, 0.1287E+02, 0.1331E+02, 0.1379E+02,& - 0.1431E+02, 0.1486E+02, 0.1547E+02, 0.1612E+02,& - 0.1685E+02, 0.1765E+02, 0.1855E+02, 0.1957E+02,& - 0.2074E+02, 0.2211E+02, 0.2376E+02, 0.2581E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,139) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.7486E-04, 0.7486E-04, 0.7486E-04,& - 0.7486E-04, 0.7486E-04, 0.7486E-04, 0.7486E-04,& - 0.7486E-04, 0.7486E-04, 0.7486E-04, 0.7486E-04,& - 0.7486E-04, 0.7486E-04, 0.7486E-04, 0.7486E-04,& - 0.7486E-04, 0.7486E-04, 0.7486E-04, 0.7486E-04,& - 0.7486E-04, 0.1397E-03, 0.1397E-03, 0.1397E-03,& - 0.1397E-03, 0.1397E-03, 0.1397E-03, 0.1397E-03,& - 0.1397E-03, 0.1397E-03, 0.1397E-03, 0.1397E-03,& - 0.1397E-03, 0.1397E-03, 0.2046E-03, 0.2046E-03,& - 0.2046E-03, 0.2046E-03, 0.2046E-03, 0.2046E-03,& - 0.2046E-03, 0.2046E-03, 0.2046E-03, 0.2046E-03,& - 0.2694E-03, 0.2694E-03, 0.2694E-03, 0.2694E-03,& - 0.2694E-03, 0.2694E-03, 0.2694E-03, 0.3343E-03,& - 0.3343E-03, 0.3343E-03, 0.3343E-03, 0.3343E-03,& - 0.3343E-03, 0.3343E-03, 0.3992E-03, 0.3992E-03,& - 0.3992E-03, 0.3992E-03, 0.3992E-03, 0.4640E-03,& - 0.4640E-03, 0.4640E-03, 0.4640E-03, 0.4640E-03,& - 0.5289E-03, 0.5289E-03, 0.5289E-03, 0.5289E-03,& - 0.5289E-03, 0.5938E-03, 0.5938E-03, 0.5938E-03,& - 0.6586E-03, 0.6586E-03, 0.6586E-03, 0.6586E-03,& - 0.7235E-03, 0.7235E-03, 0.7235E-03, 0.7883E-03,& - 0.7883E-03, 0.7883E-03, 0.8532E-03, 0.8532E-03,& - 0.8532E-03, 0.9181E-03, 0.9181E-03, 0.9181E-03,& - 0.9829E-03, 0.9829E-03, 0.1048E-02, 0.1048E-02,& - 0.1048E-02, 0.1113E-02, 0.1113E-02, 0.1178E-02,& - 0.1178E-02, 0.1242E-02, 0.1242E-02, 0.1307E-02,& - 0.1307E-02, 0.1372E-02, 0.1372E-02, 0.1437E-02,& - 0.1437E-02, 0.1502E-02, 0.1567E-02, 0.1567E-02,& - 0.1632E-02, 0.1632E-02, 0.1696E-02, 0.1761E-02,& - 0.1761E-02, 0.1826E-02, 0.1891E-02, 0.1956E-02,& - 0.1956E-02, 0.2021E-02, 0.2086E-02, 0.2150E-02,& - 0.2215E-02, 0.2215E-02, 0.2280E-02, 0.2345E-02,& - 0.2410E-02, 0.2475E-02, 0.2540E-02, 0.2604E-02,& - 0.2669E-02, 0.2734E-02, 0.2799E-02, 0.2864E-02,& - 0.2929E-02, 0.2994E-02, 0.3059E-02, 0.3123E-02,& - 0.3188E-02, 0.3253E-02, 0.3383E-02, 0.3448E-02,& - 0.3513E-02, 0.3577E-02, 0.3707E-02, 0.3772E-02,& - 0.3837E-02, 0.3967E-02, 0.4031E-02, 0.4161E-02,& - 0.4226E-02, 0.4356E-02, 0.4421E-02, 0.4550E-02,& - 0.4615E-02, 0.4745E-02, 0.4875E-02, 0.5004E-02,& - 0.5069E-02, 0.5199E-02, 0.5329E-02, 0.5458E-02,& - 0.5588E-02, 0.5718E-02, 0.5848E-02, 0.5977E-02,& - 0.6107E-02, 0.6237E-02, 0.6366E-02, 0.6496E-02,& - 0.6626E-02, 0.6820E-02, 0.6950E-02, 0.7145E-02,& - 0.7275E-02, 0.7404E-02, 0.7599E-02, 0.7793E-02,& - 0.7923E-02, 0.8118E-02, 0.8312E-02, 0.8442E-02,& - 0.8637E-02, 0.8831E-02, 0.9026E-02, 0.9220E-02,& - 0.9415E-02, 0.9674E-02, 0.9869E-02, 0.1006E-01,& - 0.1026E-01, 0.1052E-01, 0.1071E-01, 0.1097E-01,& - 0.1123E-01, 0.1143E-01, 0.1169E-01, 0.1194E-01,& - 0.1220E-01, 0.1246E-01, 0.1272E-01, 0.1298E-01,& - 0.1324E-01, 0.1357E-01, 0.1383E-01, 0.1409E-01,& - 0.1441E-01, 0.1473E-01, 0.1499E-01, 0.1532E-01,& - 0.1564E-01, 0.1597E-01, 0.1629E-01, 0.1668E-01,& - 0.1700E-01, 0.1733E-01, 0.1772E-01, 0.1811E-01,& - 0.1843E-01, 0.1882E-01, 0.1921E-01, 0.1960E-01,& - 0.1999E-01, 0.2044E-01, 0.2083E-01, 0.2128E-01,& - 0.2167E-01, 0.2213E-01, 0.2258E-01, 0.2304E-01,& - 0.2349E-01, 0.2401E-01, 0.2446E-01, 0.2498E-01,& - 0.2544E-01, 0.2595E-01, 0.2647E-01, 0.2699E-01,& - 0.2758E-01, 0.2810E-01, 0.2868E-01, 0.2926E-01,& - 0.2985E-01, 0.3043E-01, 0.3101E-01, 0.3160E-01,& - 0.3225E-01, 0.3289E-01, 0.3354E-01, 0.3419E-01,& - 0.3484E-01, 0.3555E-01, 0.3627E-01, 0.3692E-01,& - 0.3769E-01, 0.3841E-01, 0.3912E-01, 0.3990E-01,& - 0.4068E-01, 0.4146E-01, 0.4224E-01, 0.4308E-01,& - 0.4392E-01, 0.4476E-01, 0.4561E-01, 0.4645E-01,& - 0.4736E-01, 0.4827E-01, 0.4918E-01, 0.5015E-01,& - 0.5112E-01, 0.5203E-01, 0.5307E-01, 0.5404E-01,& - 0.5508E-01, 0.5612E-01, 0.5715E-01, 0.5826E-01,& - 0.5936E-01, 0.6046E-01, 0.6163E-01, 0.6273E-01,& - 0.6390E-01, 0.6513E-01, 0.6636E-01, 0.6760E-01,& - 0.6883E-01, 0.7013E-01, 0.7142E-01, 0.7272E-01,& - 0.7408E-01, 0.7544E-01, 0.7681E-01, 0.7823E-01,& - 0.7966E-01, 0.8115E-01, 0.8264E-01, 0.8414E-01,& - 0.8569E-01, 0.8725E-01, 0.8887E-01, 0.9049E-01,& - 0.9211E-01, 0.9380E-01, 0.9549E-01, 0.9724E-01,& - 0.9899E-01, 0.1008E+00, 0.1026E+00, 0.1044E+00,& - 0.1063E+00, 0.1083E+00, 0.1102E+00, 0.1122E+00,& - 0.1142E+00, 0.1162E+00, 0.1183E+00, 0.1204E+00,& - 0.1226E+00, 0.1247E+00, 0.1269E+00, 0.1292E+00,& - 0.1315E+00, 0.1338E+00, 0.1362E+00, 0.1386E+00,& - 0.1411E+00, 0.1435E+00, 0.1461E+00, 0.1487E+00,& - 0.1513E+00, 0.1539E+00, 0.1567E+00, 0.1594E+00,& - 0.1622E+00, 0.1650E+00, 0.1679E+00, 0.1708E+00,& - 0.1738E+00, 0.1768E+00, 0.1799E+00, 0.1830E+00,& - 0.1862E+00, 0.1894E+00, 0.1926E+00, 0.1960E+00,& - 0.1994E+00, 0.2028E+00, 0.2063E+00, 0.2098E+00,& - 0.2135E+00, 0.2171E+00, 0.2209E+00, 0.2246E+00,& - 0.2285E+00, 0.2323E+00, 0.2364E+00, 0.2404E+00,& - 0.2445E+00, 0.2486E+00, 0.2528E+00, 0.2571E+00,& - 0.2615E+00, 0.2659E+00, 0.2705E+00, 0.2750E+00,& - 0.2797E+00, 0.2844E+00, 0.2892E+00, 0.2941E+00,& - 0.2990E+00, 0.3041E+00, 0.3091E+00, 0.3143E+00,& - 0.3196E+00, 0.3250E+00, 0.3304E+00, 0.3359E+00,& - 0.3416E+00, 0.3473E+00, 0.3531E+00, 0.3590E+00,& - 0.3649E+00, 0.3710E+00, 0.3772E+00, 0.3835E+00,& - 0.3898E+00, 0.3963E+00, 0.4029E+00, 0.4095E+00,& - 0.4163E+00, 0.4232E+00, 0.4302E+00, 0.4372E+00,& - 0.4445E+00, 0.4518E+00, 0.4592E+00, 0.4668E+00,& - 0.4745E+00, 0.4823E+00, 0.4902E+00, 0.4983E+00,& - 0.5065E+00, 0.5148E+00, 0.5232E+00, 0.5317E+00,& - 0.5404E+00, 0.5493E+00, 0.5583E+00, 0.5674E+00,& - 0.5767E+00, 0.5861E+00, 0.5956E+00, 0.6054E+00,& - 0.6152E+00, 0.6253E+00, 0.6355E+00, 0.6458E+00,& - 0.6563E+00, 0.6669E+00, 0.6778E+00, 0.6888E+00,& - 0.7000E+00, 0.7113E+00, 0.7229E+00, 0.7346E+00,& - 0.7465E+00, 0.7586E+00, 0.7709E+00, 0.7834E+00,& - 0.7961E+00, 0.8090E+00, 0.8221E+00, 0.8354E+00,& - 0.8489E+00, 0.8626E+00, 0.8766E+00, 0.8908E+00,& - 0.9052E+00, 0.9197E+00, 0.9346E+00, 0.9497E+00,& - 0.9651E+00, 0.9807E+00, 0.9965E+00, 0.1013E+01,& - 0.1029E+01, 0.1046E+01, 0.1063E+01, 0.1080E+01,& - 0.1097E+01, 0.1115E+01, 0.1133E+01, 0.1151E+01,& - 0.1170E+01, 0.1189E+01, 0.1208E+01, 0.1228E+01,& - 0.1247E+01, 0.1268E+01, 0.1288E+01, 0.1309E+01,& - 0.1330E+01, 0.1352E+01, 0.1374E+01, 0.1396E+01,& - 0.1419E+01, 0.1442E+01, 0.1465E+01, 0.1489E+01,& - 0.1513E+01, 0.1538E+01, 0.1563E+01, 0.1589E+01,& - 0.1615E+01, 0.1641E+01, 0.1668E+01, 0.1695E+01,& - 0.1723E+01, 0.1751E+01, 0.1780E+01, 0.1809E+01,& - 0.1839E+01, 0.1869E+01, 0.1900E+01, 0.1931E+01,& - 0.1963E+01, 0.1996E+01, 0.2029E+01, 0.2063E+01,& - 0.2097E+01, 0.2132E+01, 0.2167E+01, 0.2203E+01,& - 0.2240E+01, 0.2278E+01, 0.2316E+01, 0.2355E+01,& - 0.2395E+01, 0.2435E+01, 0.2476E+01, 0.2518E+01,& - 0.2561E+01, 0.2604E+01, 0.2649E+01, 0.2694E+01,& - 0.2740E+01, 0.2787E+01, 0.2835E+01, 0.2884E+01,& - 0.2934E+01, 0.2984E+01, 0.3036E+01, 0.3089E+01,& - 0.3143E+01, 0.3198E+01, 0.3254E+01, 0.3312E+01,& - 0.3370E+01, 0.3430E+01, 0.3491E+01, 0.3554E+01,& - 0.3618E+01, 0.3683E+01, 0.3749E+01, 0.3817E+01,& - 0.3887E+01, 0.3958E+01, 0.4031E+01, 0.4105E+01,& - 0.4181E+01, 0.4259E+01, 0.4339E+01, 0.4421E+01,& - 0.4504E+01, 0.4590E+01, 0.4678E+01, 0.4768E+01,& - 0.4860E+01, 0.4954E+01, 0.5051E+01, 0.5151E+01,& - 0.5253E+01, 0.5358E+01, 0.5466E+01, 0.5576E+01,& - 0.5690E+01, 0.5807E+01, 0.5927E+01, 0.6051E+01,& - 0.6178E+01, 0.6309E+01, 0.6445E+01, 0.6584E+01,& - 0.6728E+01, 0.6876E+01, 0.7029E+01, 0.7188E+01,& - 0.7352E+01, 0.7521E+01, 0.7696E+01, 0.7878E+01,& - 0.8067E+01, 0.8262E+01, 0.8465E+01, 0.8677E+01,& - 0.8896E+01, 0.9126E+01, 0.9364E+01, 0.9614E+01,& - 0.9875E+01, 0.1015E+02, 0.1043E+02, 0.1074E+02,& - 0.1105E+02, 0.1139E+02, 0.1174E+02, 0.1210E+02,& - 0.1251E+02, 0.1293E+02, 0.1338E+02, 0.1387E+02,& - 0.1439E+02, 0.1495E+02, 0.1556E+02, 0.1622E+02,& - 0.1696E+02, 0.1777E+02, 0.1868E+02, 0.1971E+02,& - 0.2089E+02, 0.2228E+02, 0.2395E+02, 0.2603E+02,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04/) - xcw(:,140) = (/& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.1000E-04, 0.1000E-04,& - 0.1000E-04, 0.1000E-04, 0.7571E-04, 0.7571E-04,& - 0.7571E-04, 0.7571E-04, 0.7571E-04, 0.7571E-04,& - 0.7571E-04, 0.7571E-04, 0.7571E-04, 0.7571E-04,& - 0.7571E-04, 0.7571E-04, 0.7571E-04, 0.7571E-04,& - 0.7571E-04, 0.7571E-04, 0.7571E-04, 0.7571E-04,& - 0.7571E-04, 0.7571E-04, 0.1414E-03, 0.1414E-03,& - 0.1414E-03, 0.1414E-03, 0.1414E-03, 0.1414E-03,& - 0.1414E-03, 0.1414E-03, 0.1414E-03, 0.1414E-03,& - 0.1414E-03, 0.1414E-03, 0.1414E-03, 0.2071E-03,& - 0.2071E-03, 0.2071E-03, 0.2071E-03, 0.2071E-03,& - 0.2071E-03, 0.2071E-03, 0.2071E-03, 0.2071E-03,& - 0.2071E-03, 0.2728E-03, 0.2728E-03, 0.2728E-03,& - 0.2728E-03, 0.2728E-03, 0.2728E-03, 0.2728E-03,& - 0.3386E-03, 0.3386E-03, 0.3386E-03, 0.3386E-03,& - 0.3386E-03, 0.3386E-03, 0.3386E-03, 0.4043E-03,& - 0.4043E-03, 0.4043E-03, 0.4043E-03, 0.4043E-03,& - 0.4700E-03, 0.4700E-03, 0.4700E-03, 0.4700E-03,& - 0.4700E-03, 0.5357E-03, 0.5357E-03, 0.5357E-03,& - 0.5357E-03, 0.6014E-03, 0.6014E-03, 0.6014E-03,& - 0.6014E-03, 0.6671E-03, 0.6671E-03, 0.6671E-03,& - 0.6671E-03, 0.7328E-03, 0.7328E-03, 0.7328E-03,& - 0.7985E-03, 0.7985E-03, 0.7985E-03, 0.8642E-03,& - 0.8642E-03, 0.8642E-03, 0.9300E-03, 0.9300E-03,& - 0.9300E-03, 0.9957E-03, 0.9957E-03, 0.1061E-02,& - 0.1061E-02, 0.1127E-02, 0.1127E-02, 0.1127E-02,& - 0.1193E-02, 0.1193E-02, 0.1259E-02, 0.1259E-02,& - 0.1324E-02, 0.1324E-02, 0.1390E-02, 0.1390E-02,& - 0.1456E-02, 0.1521E-02, 0.1521E-02, 0.1587E-02,& - 0.1587E-02, 0.1653E-02, 0.1718E-02, 0.1718E-02,& - 0.1784E-02, 0.1850E-02, 0.1850E-02, 0.1916E-02,& - 0.1981E-02, 0.2047E-02, 0.2047E-02, 0.2113E-02,& - 0.2178E-02, 0.2244E-02, 0.2310E-02, 0.2310E-02,& - 0.2376E-02, 0.2441E-02, 0.2507E-02, 0.2573E-02,& - 0.2638E-02, 0.2704E-02, 0.2770E-02, 0.2836E-02,& - 0.2901E-02, 0.2967E-02, 0.3033E-02, 0.3098E-02,& - 0.3230E-02, 0.3296E-02, 0.3361E-02, 0.3427E-02,& - 0.3493E-02, 0.3624E-02, 0.3690E-02, 0.3756E-02,& - 0.3887E-02, 0.3953E-02, 0.4018E-02, 0.4150E-02,& - 0.4216E-02, 0.4347E-02, 0.4413E-02, 0.4544E-02,& - 0.4675E-02, 0.4741E-02, 0.4873E-02, 0.5004E-02,& - 0.5070E-02, 0.5201E-02, 0.5333E-02, 0.5464E-02,& - 0.5595E-02, 0.5727E-02, 0.5858E-02, 0.5990E-02,& - 0.6121E-02, 0.6253E-02, 0.6384E-02, 0.6515E-02,& - 0.6647E-02, 0.6844E-02, 0.6975E-02, 0.7107E-02,& - 0.7304E-02, 0.7435E-02, 0.7632E-02, 0.7764E-02,& - 0.7961E-02, 0.8158E-02, 0.8355E-02, 0.8487E-02,& - 0.8684E-02, 0.8881E-02, 0.9078E-02, 0.9275E-02,& - 0.9472E-02, 0.9670E-02, 0.9932E-02, 0.1013E-01,& - 0.1033E-01, 0.1059E-01, 0.1079E-01, 0.1105E-01,& - 0.1125E-01, 0.1151E-01, 0.1177E-01, 0.1204E-01,& - 0.1230E-01, 0.1256E-01, 0.1282E-01, 0.1309E-01,& - 0.1335E-01, 0.1368E-01, 0.1394E-01, 0.1420E-01,& - 0.1453E-01, 0.1486E-01, 0.1512E-01, 0.1545E-01,& - 0.1578E-01, 0.1611E-01, 0.1650E-01, 0.1683E-01,& - 0.1716E-01, 0.1755E-01, 0.1788E-01, 0.1828E-01,& - 0.1867E-01, 0.1900E-01, 0.1939E-01, 0.1985E-01,& - 0.2025E-01, 0.2064E-01, 0.2110E-01, 0.2150E-01,& - 0.2196E-01, 0.2242E-01, 0.2288E-01, 0.2334E-01,& - 0.2380E-01, 0.2426E-01, 0.2478E-01, 0.2531E-01,& - 0.2577E-01, 0.2629E-01, 0.2682E-01, 0.2741E-01,& - 0.2794E-01, 0.2853E-01, 0.2905E-01, 0.2965E-01,& - 0.3024E-01, 0.3083E-01, 0.3149E-01, 0.3208E-01,& - 0.3273E-01, 0.3339E-01, 0.3405E-01, 0.3471E-01,& - 0.3543E-01, 0.3609E-01, 0.3681E-01, 0.3753E-01,& - 0.3825E-01, 0.3904E-01, 0.3977E-01, 0.4055E-01,& - 0.4134E-01, 0.4213E-01, 0.4299E-01, 0.4384E-01,& - 0.4469E-01, 0.4555E-01, 0.4640E-01, 0.4732E-01,& - 0.4824E-01, 0.4916E-01, 0.5008E-01, 0.5107E-01,& - 0.5205E-01, 0.5304E-01, 0.5402E-01, 0.5508E-01,& - 0.5613E-01, 0.5718E-01, 0.5830E-01, 0.5941E-01,& - 0.6053E-01, 0.6165E-01, 0.6283E-01, 0.6401E-01,& - 0.6526E-01, 0.6644E-01, 0.6769E-01, 0.6901E-01,& - 0.7026E-01, 0.7157E-01, 0.7295E-01, 0.7433E-01,& - 0.7571E-01, 0.7709E-01, 0.7853E-01, 0.7998E-01,& - 0.8149E-01, 0.8300E-01, 0.8451E-01, 0.8609E-01,& - 0.8767E-01, 0.8931E-01, 0.9095E-01, 0.9260E-01,& - 0.9431E-01, 0.9601E-01, 0.9779E-01, 0.9956E-01,& - 0.1014E+00, 0.1032E+00, 0.1051E+00, 0.1071E+00,& - 0.1090E+00, 0.1109E+00, 0.1130E+00, 0.1150E+00,& - 0.1171E+00, 0.1192E+00, 0.1214E+00, 0.1235E+00,& - 0.1258E+00, 0.1280E+00, 0.1303E+00, 0.1327E+00,& - 0.1350E+00, 0.1375E+00, 0.1399E+00, 0.1424E+00,& - 0.1450E+00, 0.1475E+00, 0.1502E+00, 0.1528E+00,& - 0.1555E+00, 0.1582E+00, 0.1611E+00, 0.1639E+00,& - 0.1668E+00, 0.1697E+00, 0.1728E+00, 0.1758E+00,& - 0.1789E+00, 0.1820E+00, 0.1852E+00, 0.1884E+00,& - 0.1918E+00, 0.1951E+00, 0.1985E+00, 0.2019E+00,& - 0.2055E+00, 0.2090E+00, 0.2127E+00, 0.2163E+00,& - 0.2201E+00, 0.2240E+00, 0.2278E+00, 0.2317E+00,& - 0.2357E+00, 0.2398E+00, 0.2439E+00, 0.2481E+00,& - 0.2524E+00, 0.2567E+00, 0.2611E+00, 0.2656E+00,& - 0.2701E+00, 0.2748E+00, 0.2795E+00, 0.2843E+00,& - 0.2891E+00, 0.2940E+00, 0.2991E+00, 0.3041E+00,& - 0.3093E+00, 0.3146E+00, 0.3199E+00, 0.3253E+00,& - 0.3308E+00, 0.3364E+00, 0.3421E+00, 0.3479E+00,& - 0.3537E+00, 0.3597E+00, 0.3658E+00, 0.3719E+00,& - 0.3782E+00, 0.3846E+00, 0.3910E+00, 0.3976E+00,& - 0.4042E+00, 0.4110E+00, 0.4179E+00, 0.4248E+00,& - 0.4320E+00, 0.4392E+00, 0.4465E+00, 0.4539E+00,& - 0.4615E+00, 0.4692E+00, 0.4770E+00, 0.4850E+00,& - 0.4930E+00, 0.5012E+00, 0.5095E+00, 0.5179E+00,& - 0.5266E+00, 0.5353E+00, 0.5441E+00, 0.5531E+00,& - 0.5623E+00, 0.5716E+00, 0.5810E+00, 0.5906E+00,& - 0.6003E+00, 0.6103E+00, 0.6203E+00, 0.6305E+00,& - 0.6409E+00, 0.6515E+00, 0.6622E+00, 0.6731E+00,& - 0.6841E+00, 0.6954E+00, 0.7068E+00, 0.7184E+00,& - 0.7302E+00, 0.7422E+00, 0.7544E+00, 0.7667E+00,& - 0.7793E+00, 0.7920E+00, 0.8050E+00, 0.8182E+00,& - 0.8306E+00, 0.8453E+00, 0.8591E+00, 0.8731E+00,& - 0.8874E+00, 0.9020E+00, 0.9167E+00, 0.9317E+00,& - 0.9469E+00, 0.9624E+00, 0.9781E+00, 0.9942E+00,& - 0.1010E+01, 0.1027E+01, 0.1044E+01, 0.1061E+01,& - 0.1078E+01, 0.1096E+01, 0.1114E+01, 0.1132E+01,& - 0.1150E+01, 0.1169E+01, 0.1188E+01, 0.1208E+01,& - 0.1228E+01, 0.1248E+01, 0.1268E+01, 0.1289E+01,& - 0.1310E+01, 0.1332E+01, 0.1353E+01, 0.1376E+01,& - 0.1398E+01, 0.1421E+01, 0.1445E+01, 0.1468E+01,& - 0.1493E+01, 0.1517E+01, 0.1542E+01, 0.1568E+01,& - 0.1594E+01, 0.1620E+01, 0.1647E+01, 0.1674E+01,& - 0.1702E+01, 0.1730E+01, 0.1759E+01, 0.1788E+01,& - 0.1818E+01, 0.1848E+01, 0.1879E+01, 0.1910E+01,& - 0.1942E+01, 0.1974E+01, 0.2007E+01, 0.2041E+01,& - 0.2075E+01, 0.2110E+01, 0.2146E+01, 0.2182E+01,& - 0.2219E+01, 0.2256E+01, 0.2295E+01, 0.2334E+01,& - 0.2373E+01, 0.2414E+01, 0.2455E+01, 0.2497E+01,& - 0.2540E+01, 0.2583E+01, 0.2628E+01, 0.2673E+01,& - 0.2719E+01, 0.2766E+01, 0.2814E+01, 0.2863E+01,& - 0.2913E+01, 0.2964E+01, 0.3016E+01, 0.3070E+01,& - 0.3124E+01, 0.3179E+01, 0.3235E+01, 0.3293E+01,& - 0.3352E+01, 0.3412E+01, 0.3473E+01, 0.3536E+01,& - 0.3600E+01, 0.3665E+01, 0.3732E+01, 0.3801E+01,& - 0.3871E+01, 0.3942E+01, 0.4015E+01, 0.4090E+01,& - 0.4167E+01, 0.4245E+01, 0.4325E+01, 0.4407E+01,& - 0.4491E+01, 0.4577E+01, 0.4666E+01, 0.4756E+01,& - 0.4849E+01, 0.4944E+01, 0.5042E+01, 0.5142E+01,& - 0.5245E+01, 0.5350E+01, 0.5459E+01, 0.5570E+01,& - 0.5685E+01, 0.5802E+01, 0.5924E+01, 0.6048E+01,& - 0.6177E+01, 0.6309E+01, 0.6445E+01, 0.6586E+01,& - 0.6731E+01, 0.6880E+01, 0.7035E+01, 0.7194E+01,& - 0.7359E+01, 0.7530E+01, 0.7707E+01, 0.7891E+01,& - 0.8081E+01, 0.8278E+01, 0.8483E+01, 0.8696E+01,& - 0.8918E+01, 0.9150E+01, 0.9391E+01, 0.9643E+01,& - 0.9906E+01, 0.1018E+02, 0.1046E+02, 0.1078E+02,& - 0.1110E+02, 0.1143E+02, 0.1179E+02, 0.1217E+02,& - 0.1257E+02, 0.1300E+02, 0.1345E+02, 0.1394E+02,& - 0.1447E+02, 0.1503E+02, 0.1565E+02, 0.1632E+02,& - 0.1707E+02, 0.1789E+02, 0.1881E+02, 0.1985E+02,& - 0.2105E+02, 0.2245E+02, 0.2414E+02, 0.2624E+02,& - 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/) - - end subroutine tabulate_xcw_gamma - -end module cloud_condensate_inhomogeneity diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_subcol_gen.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_subcol_gen.F90 deleted file mode 100644 index 9bbfca36e..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_subcol_gen.F90 +++ /dev/null @@ -1,747 +0,0 @@ -! -------------------------------------------------------------------------- -! | | -! | Copyright 2006-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -module cloud_subcol_gen - - ! Purpose: Create stochastic arrays for cloud physical properties. - ! Input gridcolumn cloud profiles: cloud fraction and in-cloud ice and liquid - ! water paths. Output will be stochastic subcolumn arrays of these variables. - - ! PMN 2021/06: This version makes the binary (cldf_stoch in {0,1}) nature of - ! cloud output explicit by changing to a logical cldy_stoch in {true,false}, - ! which may permit some exterior efficiency improvements. - - ! PMN 2022/01: Original version only worked for layer ordering from 1=bottom - ! upward. New version auto-detects vertical ordering and works for either. - ! See details under generate_stochastic_clouds() and clearCounts_threeBand(). - ! NB: The POPULATION statistics of the subcolumn ensemble should not depend - ! on the vertical ordering. But if you want an exact SAMPLE replication of - ! a generation (such as the bottom-up generation used in RRTMG) then you - ! should ensure the same input ordering (in the RRTMG case, by reversing the - ! vertical ordering from the GEOS-5 top-down ordering BEFORE input to these - ! routines). Otherwise (i.e. if POPULATION statistics equivalence is OK) - ! then save time by avoiding any explicit array re-ordering and let the - ! auto-detect feature do its job. - - use cloud_condensate_inhomogeneity, only: & - condensate_inhomogeneous, zcw_lookup - use iso_fortran_env, only : error_unit - - implicit none - - ! state is saved outside of scope - save - - ! all fields and methods hidden unless declared public - private - - ! Original correlation length parameters. - ! These are the full precision versions of those presented in - ! Oreopoulos et al., Atmos. Chem. Phys. (2012) and SHOULD NOT BE - ! CHANGED. They are for historical reference only. If you want - ! to change the default values, change the def_ parameters below. - ! Cloud presence: - real, parameter :: Oreo12_aam1 = 1.4315 - real, parameter :: Oreo12_aam2 = 2.1219 - real, parameter :: Oreo12_aam30 = 7. - real, parameter :: Oreo12_aam4 = -25.584 - ! Cloud condensate: - real, parameter :: Oreo12_ram1 = 0.72192 - real, parameter :: Oreo12_ram2 = 0.78996 - real, parameter :: Oreo12_ram30 = 8.5 - real, parameter :: Oreo12_ram4 = 40.404 - - ! Default correlation length parameters. - ! These are public so they can be accessed externally as defaults - ! in MAPL_GetResource(). These can be changed from the historical - ! Oreo12 values above if better defaults are found through tuning. - ! Cloud presence: - real, public, parameter :: def_aam1 = Oreo12_aam1 - real, public, parameter :: def_aam2 = Oreo12_aam2 - real, public, parameter :: def_aam30 = Oreo12_aam30 - real, public, parameter :: def_aam4 = Oreo12_aam4 - ! Cloud condensate: - real, public, parameter :: def_ram1 = Oreo12_ram1 - real, public, parameter :: def_ram2 = Oreo12_ram2 - real, public, parameter :: def_ram30 = Oreo12_ram30 - real, public, parameter :: def_ram4 = Oreo12_ram4 - - ! Actual correlation length parameters used. - ! These are set to the default values above initially. - ! To use different values, from Radiation GC Initialize do - ! use cloud_subcol_gen, only : & - ! initialize_cloud_subcol_gen, def_aam1, ... - ! real :: aam1, ... - ! call MAPL_GetResource(MAPL,aam1,LABEL="ADL_AM1:",default=def_aam1,__RC__) - ! ... - ! call initialize_cloud_subcol_gen(adl_am1=aam1, ...) - ! This is only necessary to CHANGE the defaults above. - ! Cloud presence: - real :: aam1 = def_aam1 - real :: aam2 = def_aam2 - real :: aam30 = def_aam30 - real :: aam4 = def_aam4 - ! Cloud condensate: - real :: ram1 = def_ram1 - real :: ram2 = def_ram2 - real :: ram30 = def_ram30 - real :: ram4 = def_ram4 - - ! public interface - public :: initialize_cloud_subcol_gen ! set non-default correlation lengths - public :: generate_stochastic_clouds ! generate subcolumns - public :: clearCounts_threeBand ! L|M|H|T cloud fractions - -contains - - !--------------------------------------------------------------------------------------- - subroutine initialize_cloud_subcol_gen( & - adl_am1, adl_am2, adl_am30, adl_am4, & - rdl_am1, rdl_am2, rdl_am30, rdl_am4) - !--------------------------------------------------------------------------------------- - ! Use if want to set non-default correlation lengths. - !--------------------------------------------------------------------------------------- - - ! correlation length parameters - real, intent(in), optional :: adl_am1, adl_am2, adl_am30, adl_am4 ! cloud presence - real, intent(in), optional :: rdl_am1, rdl_am2, rdl_am30, rdl_am4 ! cloud condensate - - ! optionally reset correlation length parameters from module level defaults - if (present(adl_am1 )) aam1 = adl_am1 - if (present(adl_am2 )) aam2 = adl_am2 - if (present(adl_am30)) aam30 = adl_am30 - if (present(adl_am4 )) aam4 = adl_am4 - if (present(rdl_am1 )) ram1 = rdl_am1 - if (present(rdl_am2 )) ram2 = rdl_am2 - if (present(rdl_am30)) ram30 = rdl_am30 - if (present(rdl_am4 )) ram4 = rdl_am4 - - end subroutine initialize_cloud_subcol_gen - - !--------------------------------------------------------------------------------------- - subroutine generate_stochastic_clouds( & - dncol, ncol, nsubcol, nlay, & - zmid, alat, doy, & - play, cldfrac, ciwp, clwp, cwp_tiny, & - cldy_stoch, ciwp_stoch, clwp_stoch, & - seed_order) - !--------------------------------------------------------------------------------------- - ! - ! Original code: Based on Raisanen et al., QJRMS, 2004. - ! Original Contact: Cecile Hannay (hannay@ucar.edu) - ! - ! Modifications: - ! ... - ! Peter Norris, GMAO, Apr-Aug 2021: - ! Tidy up code and comments - ! Keep only exponential (generalized) overlap. - ! Abstract and reorder indices for CPU efficiency. - ! Peter Norris, GMAO, Nov 2021: - ! Added optional seed_order (sse below). - ! - ! Given a profile of cloud fraction, cloud water and cloud ice, produce a set of - ! subcolumns. Each subcolumn has cloud fraction in {0,1} at each level. - ! If not condensate_inhomogeneous(), each layer within each subcolumn has uniform - ! cloud ice and cloud liquid concentration. If condensate_inhomogeneous(), each layer - ! has horizontal condensate variability. - ! The ensemble of subcolumns statistically reproduces the cloud fraction within each - ! layer and its prescribed vertical overlap, and, if condensate_inhomogeneous(), the - ! PDF of cloud liquid and ice within each layer and its prescribed vertical correlation. - ! Whether there is condensate inhomogeneity, and the condensate PDF if so, are set in - ! initialize_inhomogeneity(). - ! - ! Overlap assumption: - ! Exponential (generalized) overlap (Raisanen et al., 2004, Pincus et al., 2005) using - ! correlations alpha and rcorr based on decorrelation length scales from Oreopoulos et - ! al., 2012. - ! - ! Optional seed order: - ! This is an array of 4 integers which MUST be a permutation of [1,2,3,4]. If absent, - ! [1,2,3,4] is assumed. It is used in the code to permute the pseed(4) array as part - ! of the initial seeding on each gridcolumn's PRNG stream. As such, it provides a - ! way of generating a different set of random numbers for say LW and SW at the same - ! timetep, when the layer pressures used for seed generation are the same. - ! For example, LW can be run with [1,2,3,4] and SW with [4,3,2,1]. - ! NOTE: Using the same seed_order for LW and SW still does not mean using the "same - ! subcolumn cloud ensemble" because the number of subcolumns (g-points) in LW and SW - ! differ. Also, of course, McICA .ne. ICA, meaning that each subcolumn in McICA gets - ! a different g-point, and those g-points have different meanings in LW and SW. So - ! the same_seed order in LW and SW would only use an identical cloud field in the - ! case of full ICA (each subcolumn sees every g-point) and with the same nsubcol, - ! neither of which is true. NEVERTHELESS, if the user is worried that using the same - ! seeds for LW and SW will create an unwanted correlation of some sort, they can use - ! a different seed_order for each. - ! - ! Vertical ordering: - ! The ordering is determined by play(1,1) > play(nlay,1) for surface=1 upward, and vica - ! versa. Either vertical ordering is permitted, but the generation always proceeds from - ! layer 1 to layer nlay. That shouldn't matter in a statistical sense. The seed order - ! does NOT need to be changed depending on the vertical ordering. The four layers nearest - ! the surface are always used (in the seed_order sense). Of course, the vertical ordering - ! of all profile inputs (zmid,play,cldfrac,ciwp,clwp) should be the same, and the output - ! vertical ordering (of [cldy|ciwp|clwp]_stoch) is the same as the input ordering. - !--------------------------------------------------------------------------------------- - - integer, intent(in) :: dncol ! Dimensioned number of gridcols - integer, intent(in) :: ncol ! Actual number of gridcols - integer, intent(in) :: nsubcol ! #Subcols to generate / gridcol - integer, intent(in) :: nlay ! Number of model layers - - ! Note: only absolute layer separations, abs(zmid(k1,:)-zmid(k2,:)), matter - ! so "zero-reference" of zmid is not important - real, intent(in) :: zmid (nlay,dncol) ! Height of midpoints [m] - real, intent(in) :: alat (dncol) ! Latitude of gridcolumn [radians] - integer, intent(in) :: doy ! Day of year - real, intent(in) :: play (nlay,dncol) ! Layer pressures [hPa] - real, intent(in) :: cldfrac (nlay,dncol) ! Layer cloud fraction [0., 1.] - - ! The units of these in-cloud water paths are not specified, but they should - ! be the same for both liquid water and ice. cwp_tiny below is assumed to be - ! in those same units and the output stochastic water paths as well. - - real, intent(in) :: ciwp (nlay,dncol) ! In-cloud ice water path - real, intent(in) :: clwp (nlay,dncol) ! In-cloud liquid water path - - ! Tiny threshold value for cloud water path, at or below which each of - ! ice and liquid water parths are separately reset to zero. If both are - ! thus reset, then the subcolumn gridcell is reset to .not.cloudy. The - ! idea here is mainly efficiency, since external processing of cloudy - ! cells usually takes longer. - - real, intent(in) :: cwp_tiny - - ! output subcolumns - ! (units of water paths are the same as for inputs ciwp and clwp) - logical, intent(out) :: cldy_stoch (nlay,nsubcol,dncol) ! Cloudy or not? - real, intent(out) :: ciwp_stoch (nlay,nsubcol,dncol) ! In-cloud ice water path - real, intent(out) :: clwp_stoch (nlay,nsubcol,dncol) ! In-cloud liq water path - - ! optional seed_order as described above in header - integer, intent(in), optional :: seed_order (4) - - ! ----- Locals ----- - - ! vertical ordering - logical :: surface_at_one - - ! correlation length for cloud presence and condensate - real, dimension(dncol) :: adl, rdl - - ! inter-layer correlations for cloud presence and condensate - real, dimension(nlay) :: alpha, rcorr - - ! condensate inhomogeneity - real :: sigma_qcw(nlay) - - ! seeds for rng_kiss - real :: pseed(4) ! isolate seeding pressures - integer :: so(4) ! actual seed order used - logical :: hit(4) ! used in so validation - integer :: seed1, seed2, seed3, seed4 - integer, parameter :: maximo = huge(seed1) - 1 - - ! random number arrays used for overlap - real, dimension(nlay) :: & - cdf1, & ! for cloud presence - cdf2, & ! auxilliary - cdf3 ! for cloud condensate - - ! other locals - real :: zcw - logical :: cond_inhomo, ciwp_negligible, clwp_negligible - - ! indices - integer :: icol, isubcol, ilay, n - - ! detect vertical ordering - surface_at_one = (play(1,1) > play(nlay,1)) - - ! save for speed - cond_inhomo = condensate_inhomogeneous() - - ! set seed order to use - if (present(seed_order)) then - do n = 1,4 - so(n) = seed_order(n) - hit(n) = .false. - end do - ! validate a permutation of [1,2,3,4] - do n = 1,4 - if (so(n) < 1) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'seed_order element < 1' - end if - if (so(n) > 4) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'seed_order element > 4' - end if - if (.not.hit(n)) then - hit(n) = .true. - else - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'seed_order repeated element' - end if - end do - ! now have 4 elements 1--4 with no repeats so we are good! - else - do n = 1,4 - so(n) = n - end do - end if - - ! Compute decorrelation length scales ... - - ! for cloud presence - call correlation_length(dncol, ncol, & - aam1, aam2, aam30, aam4, doy, alat, adl) - - ! for cloud condensate - if (cond_inhomo) then - call correlation_length(dncol, ncol, & - ram1, ram2, ram30, ram4, doy, alat, rdl) - endif - - ! outer loop over gridcolumn - do icol = 1,ncol - - ! exponential inter-layer correlations ... - ! [alpha|rcorr](k) is correlation between layers k and k-1 - do ilay = 2,nlay - alpha(ilay) = exp( -abs(zmid(ilay,icol)-zmid(ilay-1,icol)) / adl(icol) ) - enddo - if (cond_inhomo) then - do ilay = 2,nlay - rcorr(ilay) = exp( -abs(zmid(ilay,icol)-zmid(ilay-1,icol)) / rdl(icol) ) - enddo - endif - - ! precalculate level of condensate inhomogeneity based on cldfrac. - ! put outside of subcol loop for speed even though only needed for - ! cloudy subcolumn cells. sigma_qcw is dimensioned nlay. - if (cond_inhomo) then - where (cldfrac(:,icol) > 0.99) - sigma_qcw = 0.5 - elsewhere (cldfrac(:,icol) > 0.9) - sigma_qcw = 0.71 - elsewhere - sigma_qcw = 1.0 - endwhere - endif - - ! Choose four i4 (32-bit) seeds for the KISS PRNG ... - ! (a) To ensure reproducibility, choose seeds based on the model state, - ! in this case based on gridcolumn near surface pressure (this is to be - ! contrasted with seeds based on, e.g., the system clock, which will give - ! non-reproducible runs). This state-based reproducibility will regress - ! with changes to the domain decomposition among processors (so long as - ! the rest of the model regresses to such changes) or with changes to - ! the RRTMG gridcolumn partitioning, etc. - ! (b) If two gridcolumns (or one gridcolumn at two times) have exactly - ! the same seed, they will produce the same KISS pseudo-random number - ! sequence. But even if the seeds are different at all, they will still - ! produce different random sequences. The geostrophic pressure gradient - ! is ~ rho f u, where f is the coriolis parameter, about 10^-4 s^-1 at - ! mid-latitudes and u is the wind speed along the isobars. So for u ~ 10 - ! m/s, the pressure gradient is about 1 Pa / km. Of course this varies - ! with latitude and will not apply in the Tropics (where geostrophy does - ! not hold). Still it gives us a rough estimate. Now for the high-resol- - ! ution runs beginning to run, the grid spacing is approaching 1 km, or - ! about 1 Pa difference! And if two neighboring gridcolumns fall along - ! an isobar, the pressure difference could be much less. This is why we - ! would not use the integer portion of the surface pressure in Pa. But - ! the fractional part of this pressure (scaled to a 32-bit integer) will - ! yield different seeds. - ! (c) Having seeds local to each gridcolumn allows potential parallel- - ! ism. And because the seed is based on pressure differences, not cloud - ! differences, two gridcolumns adjacent in space or time that have very - ! similar cloud properties will still generate different subcolumn cloud - ! ensembles because of their different seeds. This will help beat down - ! the sampling errors due to finite nsubcol (i.e., subcolumn / g-point - ! number) when averaging over time and/or space. - ! (d) Concerning the pressures for the lowest four layers used to - ! produce the four required KISS seeds: dp ~ rho g dz ~ 10 dz, so a 1 Pa - ! difference occurs in only 10 cm, which is way smaller than our layer - ! spacing. In fact, the lowest layers are spaced by about 15 hPa or 1500 - ! Pa for 72L and 2-3 hPa or 200-300 Pa for 181L, both well in excess of - ! 1 Pa. So we dont need to worry about vertical correlations among the - ! pseed. - - ! isolate lower pressures for seeding - if (surface_at_one) then - pseed = play(1:4,icol) - else - pseed = play(nlay:nlay-3:-1,icol) - end if - pseed = pseed * 100. ! [Pa] - - ! PMN 2021-11-12: Try [daPa=decaPascals] instead. - ! pseed = play(1:4,icol) * 10. ! [daPa] - ! I was potentially concerned that the fractional part of pseed in [Pa] - ! would have insufficient significant digits since is 32-bit real. - ! So, for e.g., 99213.xx [Pa], since 32-bit reals have ~ 7 significant - ! digits. This would be 9921.3xx [daPa]. But a test of this change made - ! a minimal change ~0.01 W/m2 in global mean TOA and SFC fluxes and was - ! not visible in absolute zonal plots. The mapped differences were of - ! the same nature as other minor changes, perhaps slightly worse. So - ! I decided not keep this change. - - ! Scaling to integer seeds ... - ! The 32-bit integer range is [-2147483648,2147483647] and we wish - ! to avoid zero seeds, so we scale the seeds to [1,2147483647] with - ! the following (made more general with maximo = huge(integer)-1): - seed1 = (pseed(so(1)) - int(pseed(so(1)))) * maximo + 1 - seed2 = (pseed(so(2)) - int(pseed(so(2)))) * maximo + 1 - seed3 = (pseed(so(3)) - int(pseed(so(3)))) * maximo + 1 - seed4 = (pseed(so(4)) - int(pseed(so(4)))) * maximo + 1 - - ! Generate each subcolumn ... - do isubcol = 1,nsubcol - - ! exponential overlap in cloud presence - do ilay = 1,nlay - call rng_kiss(seed1,seed2,seed3,seed4,cdf1(ilay)) - call rng_kiss(seed1,seed2,seed3,seed4,cdf2(ilay)) - enddo - do ilay = 2,nlay - if (cdf2(ilay) < alpha(ilay)) then - cdf1(ilay) = cdf1(ilay-1) - endif - enddo - - if (cond_inhomo) then - - ! exponential overlap in condensate - do ilay = 1,nlay - call rng_kiss(seed1,seed2,seed3,seed4,cdf2(ilay)) - call rng_kiss(seed1,seed2,seed3,seed4,cdf3(ilay)) - enddo - do ilay = 2,nlay - if (cdf2(ilay) < rcorr(ilay)) then - cdf3(ilay) = cdf3(ilay-1) - endif - enddo - - endif - - ! generate layers of subcolumn ... - - do ilay = 1,nlay - - if (cdf1(ilay) >= 1. - cldfrac(ilay,icol)) then - - ! a cloudy subcolumn/layer - ! note: cdf1 from random num in (0,1) so: - ! cldfrac == 0. can never get here; - ! cldfrac == 1. always comes here. - - cldy_stoch(ilay,isubcol,icol) = .true. - - if (cond_inhomo) then - - ! horizontally variable clouds - zcw = zcw_lookup(cdf3(ilay),sigma_qcw(ilay)) - ciwp_stoch(ilay,isubcol,icol) = ciwp(ilay,icol) * zcw - clwp_stoch(ilay,isubcol,icol) = clwp(ilay,icol) * zcw - - else - - ! horizontally homogeneous clouds - ciwp_stoch(ilay,isubcol,icol) = ciwp(ilay,icol) - clwp_stoch(ilay,isubcol,icol) = clwp(ilay,icol) - - endif - - ! reset negligible water paths to zero (see comment in intro) - ciwp_negligible = (ciwp_stoch(ilay,isubcol,icol) <= cwp_tiny) - if (ciwp_negligible) ciwp_stoch(ilay,isubcol,icol) = 0. - clwp_negligible = (clwp_stoch(ilay,isubcol,icol) <= cwp_tiny) - if (clwp_negligible) clwp_stoch(ilay,isubcol,icol) = 0. - - ! reset cloudy status if both negligible - if (ciwp_negligible .and. clwp_negligible) & - cldy_stoch(ilay,isubcol,icol) = .false. - - else - - ! a clear subcolumn/layer - ! note: per comments above: - ! cldfrac == 0. always comes here; - ! cldfrac == 1. never comes here. - - cldy_stoch(ilay,isubcol,icol) = .false. - ciwp_stoch(ilay,isubcol,icol) = 0. - clwp_stoch(ilay,isubcol,icol) = 0. - - endif - - enddo ! layer - - enddo ! subcolumn - enddo ! gridcolumn - - end subroutine generate_stochastic_clouds - - - !------------------------------------------- - subroutine correlation_length(dncol, ncol, & - am1, am2, am30, am4, doy, alat, clength) - !------------------------------------------- - integer, intent(in) :: dncol ! Dimensioned number of gridcols - integer, intent(in) :: ncol ! Actual number of gridcols - real, intent(in) :: am1, am2, am30, am4 ! input parameters - integer, intent(in) :: doy ! Day of year - real, intent(in) :: alat (dncol) ! Latitude of gridcolumn [radians] - real, intent(out) :: clength (dncol) ! Correlation length [m] - - real, parameter :: r2d = 180.d0 / 3.14159265358979323846d0 - - integer :: icol - real :: am3 - - if (doy > 181) then - am3 = -4.*am30/365.*(doy-272) - else - am3 = 4.*am30/365.*(doy- 91) - endif - - do icol = 1,ncol - clength(icol) = (am1+am2*exp(-(alat(icol)*r2d-am3)**2/am4**2))*1.e3 - enddo - - end subroutine correlation_length - - - !------------------------------------------------------- - subroutine rng_kiss(seed1, seed2, seed3, seed4, ran_num) - !------------------------------------------------------- - ! See note below: get ran_num in (0,1). - ! - ! public domain code. - ! made available from http://www.fortran.com/. - ! downloaded by pjr on 03/16/04 for NCAR CAM. - ! converted to vector form, functions inlined by pjr,mvr on 05/10/2004. - ! devectorized by pmn 08/24/2021. - ! - ! The KISS (Keep It Simple Stupid) random number generator. Combines: - ! (1) The congruential generator x(n)=69069*x(n-1)+1327217885, period 2^32. - ! (2) A 3-shift shift-register generator, period 2^32-1, - ! (3) Two 16-bit multiply-with-carry generators, period 597273182964842497>2^59 - ! Overall period>2^123. - !------------------------------------------------------- - - integer, intent(inout) :: seed1, seed2, seed3, seed4 - real, intent(out) :: ran_num - integer :: m, k, n, kiss - - ! inline function - m(k,n) = ieor(k,ishft(k,n)) - - seed1 = 69069 * seed1 + 1327217885 - seed2 = m(m(m(seed2,13),-17),5) - seed3 = 18000 * iand(seed3,65535) + ishft(seed3,-16) - seed4 = 30903 * iand(seed4,65535) + ishft(seed4,-16) - kiss = seed1 + seed2 + ishft(seed3,16) + seed4 - ran_num = kiss * 2.328306e-10 + 0.5 - - !------------------------------------------------------- - ! pmn notes: - ! kiss is a random 32-bit signed integer in [-(2**31),2**31-1], - ! and 2.328306e-10 is an approx to 2**-32 =~ 2.32830644e-10. - ! Based on the tests below, the result ran_num will be - ! [8.9406967E-08,0.9999999] ~ (0,1). - ! - ! rng_test.f90: - ! program rng_test - ! integer, parameter :: mini = -2**31 - ! integer, parameter :: maxi = 2**31 - 1 - ! real :: rng - ! write(*,*) mini - ! write(*,*) maxi - ! rng = mini * 2.328306e-10 + 0.5 - ! write(*,*) rng - ! rng = maxi * 2.328306e-10 + 0.5 - ! write(*,*) rng - ! end program rng_test - ! - ! Results: - ! $ module load comp/intel/19.1.3.304 - ! $ ifort rng_test.f90 - ! $ a.out - ! -2147483648 - ! 2147483647 - ! 8.9406967E-08 - ! 0.9999999 - !------------------------------------------------------- - - end subroutine rng_kiss - - - ! ---------------------------------------------------------------- - subroutine clearCounts_threeBand( & - dncol, ncol, nsubcol, nlay, & - cloudLM, cloudMH, cldy_stoch, & - clearCnts) - ! ---------------------------------------------------------------- - ! Count clear subcolumns per gridcolumn for whole column - ! and for three pressure bands. - ! Verical ordering is auto-detected via: - ! cloudLM < cloudMH => surface at level 1 - ! cloudLM > cloudMH => surface at level nlay - ! and concomitant layer definitions: - ! layers [1, cloudLM] are in low pressure band - ! layers [cloudLM+1, cloudMH] are in mid pressure band - ! layers [cloudMH+1, nlay ] are in high pressure band - ! for surface at level 1, - ! with cloudLM = nlay - LCLDLM + 1 - ! and cloudMH = nlay - LCLDMH + 1, - ! and - ! layers [1, cloudMH-1] are in high pressure band - ! layers [cloudMH, cloudLM-1] are in mid pressure band - ! layers [cloudLM, nlay ] are in low pressure band - ! for surface at level nlay (TOA at level 1) - ! with cloudLM = LCLDLM - ! and cloudMH = LCLDMH, - ! all in terms of GEOS-5's LCLDLM and LCLDMH (TOA at level 1). - ! ---------------------------------------------------------------- - - integer, intent(in) :: dncol ! Dimensioned number of gridcols - integer, intent(in) :: ncol ! Actual number of gridcols - integer, intent(in) :: nsubcol ! number of subcols per gridcol - integer, intent(in) :: nlay ! number of layers - integer, intent(in) :: cloudLM, cloudMH ! layer indices as above - - logical, intent(in) :: cldy_stoch(nlay,nsubcol,dncol) ! cloudy or not? - - integer, intent(out) :: clearCnts(4,dncol) ! counts of clear subcolumns - ! (1,) whole column - ! (2,) high pressure band only - ! (3,) mid pressure band only - ! (4,) low pressure band only - - ! locals - integer :: icol, isubcol, ilay - logical :: cloud_found - - ! zero counters - clearCnts = 0 - - do icol = 1,ncol - do isubcol = 1,nsubcol - - ! whole subcolumn - cloud_found = .false. - do ilay = 1, nlay - if (cldy_stoch(ilay,isubcol,icol)) then - cloud_found = .true. - exit - endif - enddo - if (.not. cloud_found) & - clearCnts(1,icol) = clearCnts(1,icol) + 1 - - enddo ! subcolumns - enddo ! gridcolumns - - if (cloudLM < cloudMH) then - - ! surface at level 1 ordering ... - - do icol = 1,ncol - do isubcol = 1,nsubcol - - ! low pressure band - cloud_found = .false. - do ilay = 1, cloudLM - if (cldy_stoch(ilay,isubcol,icol)) then - cloud_found = .true. - exit - endif - enddo - if (.not. cloud_found) & - clearCnts(4,icol) = clearCnts(4,icol) + 1 - - ! mid pressure band - cloud_found = .false. - do ilay = cloudLM+1, cloudMH - if (cldy_stoch(ilay,isubcol,icol)) then - cloud_found = .true. - exit - endif - enddo - if (.not. cloud_found) & - clearCnts(3,icol) = clearCnts(3,icol) + 1 - - ! high pressure band - cloud_found = .false. - do ilay = cloudMH+1, nlay - if (cldy_stoch(ilay,isubcol,icol)) then - cloud_found = .true. - exit - endif - enddo - if (.not. cloud_found) & - clearCnts(2,icol) = clearCnts(2,icol) + 1 - - enddo ! subcolumns - enddo ! gridcolumns - - elseif (cloudLM > cloudMH) then - - ! TOA at level 1 ordering ... - - do icol = 1,ncol - do isubcol = 1,nsubcol - - ! high pressure band - cloud_found = .false. - do ilay = 1, cloudMH-1 - if (cldy_stoch(ilay,isubcol,icol)) then - cloud_found = .true. - exit - endif - enddo - if (.not. cloud_found) & - clearCnts(2,icol) = clearCnts(2,icol) + 1 - - ! mid pressure band - cloud_found = .false. - do ilay = cloudMH, cloudLM-1 - if (cldy_stoch(ilay,isubcol,icol)) then - cloud_found = .true. - exit - endif - enddo - if (.not. cloud_found) & - clearCnts(3,icol) = clearCnts(3,icol) + 1 - - ! low pressure band - cloud_found = .false. - do ilay = cloudLM, nlay - if (cldy_stoch(ilay,isubcol,icol)) then - cloud_found = .true. - exit - endif - enddo - if (.not. cloud_found) & - clearCnts(4,icol) = clearCnts(4,icol) + 1 - - enddo ! subcolumns - enddo ! gridcolumns - - else - - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'invalid pressure super-layers!' - - end if - - end subroutine clearCounts_threeBand - -end module cloud_subcol_gen diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getirtau.code b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getirtau.code deleted file mode 100644 index 7f9af9f37..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getirtau.code +++ /dev/null @@ -1,102 +0,0 @@ - - taudiag = 0.0 - -!-----Compute cloud optical thickness following Eqs. (6.4a,b) and (6.7) -! Rain optical thickness is set to 0.00307 /(gm/m**2). -! It is for a specific drop size distribution provided by Q. Fu. - - tcldlyr(0) = 1.0 - enn (0) = 0.0 - - do k = 1, nlevs - if(reff(k,1)<=0.0) then - taucld1=0.0 - else - taucld1=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,1))*(aib_ir(1,ib)+aib_ir(2,ib)/& - reff(k,1)**aib_ir(3,ib)) - end if - - taucld2=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,2))*(awb_ir(1,ib)+(awb_ir(2,ib)+& - (awb_ir(3,ib)+awb_ir(4,ib)*reff(k,2))*reff(k,2))*reff(k,2)) - - taucld3=0.00307*(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,3)) - -!-----Below, we use the table of coefficients tabulated for suspended -! cloud ice particles (aib_ir) for falling snow. These coefficients -! lead to unphysical (negative) values of cloud optical thickness -! for effective radii greater than 113 microns. By restricting the -! effective radius of snow to 112 microns, we prevent unphysical -! optical thicknesses. - - reff_snow = min(reff(k,4),112.0) - - if(reff_snow<=0.0) then - taucld4=0.0 - else - taucld4=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,4))*(aib_ir(1,ib)+aib_ir(2,ib)/& - reff_snow**aib_ir(3,ib)) - end if - - taudiag(k,1)=taucld1 - taudiag(k,2)=taucld2 - taudiag(k,3)=taucld3 - taudiag(k,4)=taucld4 - -!-----Compute cloud single-scattering albedo and asymmetry factor for -! a mixture of ice particles and liquid drops following -! Eqs. (6.5), (6.6), (6.15) and (6.16). -! Single-scattering albedo and asymmetry factor of rain are set -! to 0.54 and 0.95, respectively, based on the information provided -! by Prof. Qiang Fu. - - tauc=taucld1+taucld2+taucld3+taucld4 - - if (tauc > 0.02 .and. fcld(k) > 0.01) then - - w1=taucld1*(aiw_ir(1,ib)+(aiw_ir(2,ib)+(aiw_ir(3,ib) & - +aiw_ir(4,ib)*reff(k,1))*reff(k,1))*reff(k,1)) - w2=taucld2*(aww_ir(1,ib)+(aww_ir(2,ib)+(aww_ir(3,ib)& - +aww_ir(4,ib)*reff(k,2))*reff(k,2))*reff(k,2)) - w3=taucld3*0.54 - w4=taucld4*(aiw_ir(1,ib)+(aiw_ir(2,ib)+(aiw_ir(3,ib) & - +aiw_ir(4,ib)*reff_snow)*reff_snow)*reff_snow) - ww=(w1+w2+w3+w4)/tauc - - - g1=w1*(aig_ir(1,ib)+(aig_ir(2,ib)+(aig_ir(3,ib)& - +aig_ir(4,ib)*reff(k,1))*reff(k,1))*reff(k,1)) - g2=w2*(awg_ir(1,ib)+(awg_ir(2,ib)+(awg_ir(3,ib) & - +awg_ir(4,ib)*reff(k,2))*reff(k,2))*reff(k,2)) - g3=w3*0.95 - g4=w4*(aig_ir(1,ib)+(aig_ir(2,ib)+(aig_ir(3,ib)& - +aig_ir(4,ib)*reff_snow)*reff_snow)*reff_snow) - - if (w1+w2+w3+w4.ne.0.0) then - gg=(g1+g2+g3+g4)/(w1+w2+w3+w4) - else - gg=0.5 - end if - -!-----Parameterization of LW scattering following Eqs. (6.11) -! and (6.12). - - ff=0.5+(0.3739+(0.0076+0.1185*gg)*gg)*gg - -!ALT: temporary protection against negative cloud optical thickness - - tauc=max((1.-ww*ff),0.0)*tauc - -!-----compute cloud diffuse transmittance. It is approximated by using -! a diffusivity factor of 1.66. - - tcldlyr(k) = exp(-1.66*tauc) - enn (k) = fcld(k)*(1.0-tcldlyr(k)) ! N in the documentation (6.13) - - else - - tcldlyr(k) = 1.0 - enn (k) = 0.0 - - end if - end do - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getnirtau.code b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getnirtau.code deleted file mode 100644 index 61d4dfe03..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getnirtau.code +++ /dev/null @@ -1,218 +0,0 @@ - - integer, parameter :: nm=11,nt=9,na=11 - real, parameter :: dm=0.1,dt=0.30103,da=0.1,t1=-0.9031 - - taubeam = 0.0 - taudiff = 0.0 - - if (ict.ne.0) then - -!-----scale cloud optical thickness in each layer from taucld (with -! cloud amount fcld) to taubeam and taudiff (with cloud amount cc). -! taubeam is the scaled optical thickness for beam radiation and -! taudiff is for diffuse radiation (see section 7). - -!-----clouds within each of the high, middle, and low clouds are -! assumed to be maximally overlapped, and the cloud cover (cc) -! for a group (high, middle, or low) is the maximum cloud cover -! of all the layers within a group - - cc = 0.0 - - do k = 1, ict-1 - cc(1)=max(cc(1),fcld(k)) - end do - do k = ict, icb-1 - cc(2)=max(cc(2),fcld(k)) - end do - do k = icb, nlevs - cc(3)=max(cc(3),fcld(k)) - end do - - end if - -!-----Compute cloud optical thickness. Eqs. (4.6) and (4.10) -! taucld1 is the optical thickness for ice particles -! taucld2 is the optical thickness for liquid particles -! taucld3 is the optical thickness for rain drops -! taucld4 is the optical thickness for snow - - do k = 1, nlevs - - if (reff(k,1) <= 0.) then - taucld1=0. - else - taucld1=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,1))*aib_nir/reff(k,1) - end if - - if (reff(k,2) <= 0.) then - taucld2=0. - else - taucld2=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,2))*(awb_nir(ib,1)+awb_nir(ib,2)/reff(k,2)) - end if - - taucld3=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,3))*arb_nir(ib,1) - -!-----In the IR optical thickness calculation (getirtau.code), it was -! found that using the table of coefficients tabulated for suspended -! cloud ice particles (aib_ir) for falling snow lead to unphysical -! (negative) values of cloud optical thickness for effective radii -! greater than 113 microns. By restricting the effective radius of -! snow to 112 microns, we prevent unphysical optical thicknesses. -! For consistency's sake, we limit snow effective radius similarly here. - - reff_snow = min(reff(k,4),112.0) - - if (reff_snow <= 0.) then - taucld4=0. - else - taucld4=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,4))*aib_nir/reff_snow - endif - - if ( ict .ne. 0 ) then - -!-----scale cloud optical thickness in each layer from taucld (with -! cloud amount fcld) to taubeam and taudiff (with cloud amount cc). -! taubeam is the scaled optical thickness for beam radiation and -! taudiff is for diffuse radiation (see section 7). - -!-----clouds within each of the high, middle, and low clouds are -! assumed to be maximally overlapped, and the cloud cover (cc) -! for a group (high, middle, or low) is the maximum cloud cover -! of all the layers within a group - - if (k.lt.ict) then - kk=1 - else if (k.ge.ict .and. k.lt.icb) then - kk=2 - else - kk=3 - end if - - tauc=taucld1+taucld2+taucld3+taucld4 - - if (tauc.gt.0.02 .and. fcld(k).gt.0.01) then - -!-----normalize cloud cover following Eq. (7.8) - if (cc(kk).ne.0.0) then - fa=fcld(k)/cc(kk) - else - fa=0.0 - end if - -!-----table look-up - - tauc=min(tauc,32.) - - fm=cosz/dm - ft=(log10(tauc)-t1)/dt - fa=fa/da - - im=int(fm+1.5) - it=int(ft+1.5) - ia=int(fa+1.5) - - im=max(im,2) - it=max(it,2) - ia=max(ia,2) - - im=min(im,nm-1) - it=min(it,nt-1) - ia=min(ia,na-1) - - fm=fm-real(im-1) - ft=ft-real(it-1) - fa=fa-real(ia-1) - -!-----scale cloud optical thickness for beam radiation following -! Eq. (7.3). -! the scaling factor, xai, is a function of the solar zenith -! angle, optical thickness, and cloud cover. - - xai= (-caib(im-1,it,ia)*(1.-fm)+& - caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm) - - xai=xai+(-caib(im,it-1,ia)*(1.-ft)+& - caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft) - - xai=xai+(-caib(im,it,ia-1)*(1.-fa)+& - caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa) - - xai=xai-2.*caib(im,it,ia) - - xai=max(xai,0.0) - xai=min(xai,1.0) - - taubeam(k,1)=taucld1*xai - taubeam(k,2)=taucld2*xai - taubeam(k,3)=taucld3*xai - taubeam(k,4)=taucld4*xai - -!-----scale cloud optical thickness for diffuse radiation following -! Eq. (7.4). -! the scaling factor, xai, is a function of the cloud optical -! thickness and cover but not the solar zenith angle. - - xai= (-caif(it-1,ia)*(1.-ft)+& - caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft) - - xai=xai+(-caif(it,ia-1)*(1.-fa)+& - caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa) - - xai=xai-caif(it,ia) - - xai=max(xai,0.0) - xai=min(xai,1.0) - - taudiff(k,1)=taucld1*xai - taudiff(k,2)=taucld2*xai - taudiff(k,3)=taucld3*xai - taudiff(k,4)=taucld4*xai - end if - else - ! Overlap calculation scaling not needed - taubeam(k,1)=taucld1 - taubeam(k,2)=taucld2 - taubeam(k,3)=taucld3 - taubeam(k,4)=taucld4 - - taudiff(k,1)=taucld1 - taudiff(k,2)=taucld2 - taudiff(k,3)=taucld3 - taudiff(k,4)=taucld4 - end if - -!-----compute cloud single scattering albedo and asymmetry factor -! for a mixture of ice and liquid particles. -! Eqs.(4.6)-(4.8), (6.2)-(6.4) - - ssaclt=0.99999 - asyclt=1.0 - tauc=taucld1+taucld2+taucld3+taucld4 - - if (tauc.gt.0.02 .and. fcld(k).gt.0.01) then - - w1=(1.-(aia_nir(ib,1)+(aia_nir(ib,2)+aia_nir(ib,3)*reff(k,1))*reff(k,1)))*taucld1 - w2=(1.-(awa_nir(ib,1)+(awa_nir(ib,2)+awa_nir(ib,3)*reff(k,2))*reff(k,2)))*taucld2 - w3=(1.- ara_nir(ib,1)) *taucld3 - w4=(1.-(aia_nir(ib,1)+(aia_nir(ib,2)+aia_nir(ib,3)*reff_snow)*reff_snow))*taucld4 - ssaclt=(w1+w2+w3+w4)/tauc - - g1=(aig_nir(ib,1)+(aig_nir(ib,2)+aig_nir(ib,3)*reff(k,1))*reff(k,1))*w1 - g2=(awg_nir(ib,1)+(awg_nir(ib,2)+awg_nir(ib,3)*reff(k,2))*reff(k,2))*w2 - g3= arg_nir(ib,1) *w3 - - g4=(aig_nir(ib,1)+(aig_nir(ib,2)+aig_nir(ib,3)*reff(k,4))*reff(k,4))*w4 - - if ((w1+w2+w3+w4).ne.0.0) then - asyclt=(g1+g2+g3+g4)/(w1+w2+w3+w4) - end if - - - end if - - ssacl(k)=ssaclt - asycl(k)=asyclt - - end do - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/gettau.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/gettau.F90 deleted file mode 100644 index 786f8c329..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/gettau.F90 +++ /dev/null @@ -1,227 +0,0 @@ -! $Id$ -! $Name$ - -!============================================================================= -!BOP - -! !MODULE: gettau -- A module to calculate cloud optical depth - -! !INTERFACE: - -module gettau - -! !USES: - - use MAPL_ConstantsMod, only: MAPL_GRAV - - implicit none - private - -! !PUBLIC ROUTINES: - - public :: getvistau, getnirtau, getirtau - -!EOP - -contains - -!------------------------------------------------------------------------------ -!BOP -! !ROUTINE: getvistau -! -! !INTERFACE: - subroutine getvistau(nlevs,cosz,dp,fcld,reff,hydromets,ict,icb,& - taubeam,taudiff,asycl) - -! !USES: - use rad_constants, only: caib, caif, & - aib_uv, awb_uv, arb_uv, & - aig_uv, awg_uv, arg_uv - - implicit none - -! !INPUT PARAMETERS: - integer, intent(IN ) :: nlevs ! Number of levels - real, intent(IN ) :: cosz ! Cosine of solar zenith angle - real, intent(IN ) :: dp(:) ! Delta pressure (Pa) - real, intent(IN ) :: fcld(:) ! Cloud fraction (used sometimes) - real, intent(IN ) :: reff(:,:) ! Effective radius (microns) - real, intent(IN ) :: hydromets(:,:) ! Hydrometeors (kg/kg) - integer, intent(IN ) :: ict, icb ! Flags for various uses -! ict = 0 Indicates that in-cloud values have been given -! and are expected -! ict != 0 Indicates that overlap computation is needed, and: -! ict is the level of the mid-high boundary -! icb is the level of the low-mid boundary -! -! !OUTPUT PARAMETERS: - real, intent(OUT) :: taubeam(:,:) ! Optical Depth for Beam Radiation - real, intent(OUT) :: taudiff(:,:) ! Optical Depth for Diffuse Radiation - real, intent(OUT) :: asycl(: ) ! Cloud Asymmetry Factor -! !DESCRIPTION: -! Compute in-cloud or grid mean optical depths for visible wavelengths -! In general will compute in-cloud - will do grid mean when called -! for diagnostic use only. ict flag will indicate which to do. -! Slots for reff, hydrometeors, taubeam, taudiff, and asycl are as follows: -! 1 Cloud Ice -! 2 Cloud Liquid -! 3 Falling Liquid (Rain) -! 4 Falling Ice (Snow) -! -! In the below calculations, the constants used in the tau calculation are in -! m$^2$ g$^{-1}$ and m$^2$ g$^{-1}$ $\mu$m. Thus, we must convert the kg contained in the -! pressure (Pa = kg m$^{-1}$ s$^{-2}$) to grams. -! -! !REVISION HISTORY: -! 2011.10.27 Molod moved to Radiation_Shared and revised arg list, units -! 2011.11.16 MAT: Generalized to a call that is per-column -! -!EOP -!------------------------------------------------------------------------------ -!BOC - - integer :: k,in,im,it,ia,kk - real :: fm,ft,fa,xai,tauc,asyclt - real :: cc(3) - real :: taucld1,taucld2,taucld3,taucld4 - real :: g1,g2,g3,g4 - - real :: reff_snow - -#include "getvistau.code" - - return - -!EOC - end subroutine getvistau -!------------------------------------------------------------------------------ -!BOP -! !ROUTINE: getnirtau -! -! !INTERFACE: - subroutine getnirtau(ib,nlevs,cosz,dp,fcld,reff,hydromets,ict,icb,& - taubeam,taudiff,asycl,ssacl) - -! !USES: - use rad_constants, only: caib, caif, & - aib_nir, awb_nir, arb_nir, & - aia_nir, awa_nir, ara_nir, & - aig_nir, awg_nir, arg_nir - implicit none - -! !INPUT PARAMETERS: - integer, intent(IN ) :: ib ! Band number - integer, intent(IN ) :: nlevs ! Number of levels - real, intent(IN ) :: cosz ! Cosine of solar zenith angle - real, intent(IN ) :: dp(:) ! Delta pressure in Pa - real, intent(IN ) :: fcld(:) ! Cloud fraction (used sometimes) - real, intent(IN ) :: reff(:,:) ! Effective radius (microns) - real, intent(IN ) :: hydromets(:,:) ! Hydrometeors (kg/kg) - integer, intent(IN ) :: ict, icb ! Flags for various uses -! ict = 0 Indicates that in-cloud values have been given -! and are expected -! ict != 0 Indicates that overlap computation is needed, and: -! ict is the level of the mid-high boundary -! icb is the level of the low-mid boundary -! -! !OUTPUT PARAMETERS: - real, intent(OUT) :: taubeam(:,:) ! Optical depth for beam radiation - real, intent(OUT) :: taudiff(:,:) ! Optical depth for diffuse radiation - real, intent(OUT) :: ssacl(: ) ! Cloud single scattering albedo - real, intent(OUT) :: asycl(: ) ! Cloud asymmetry factor -! !DESCRIPTION: -! Compute in-cloud or grid mean optical depths for near-infrared wavelengths -! In general will compute in-cloud - will do grid mean when called -! for diagnostic use only. ict flag will indicate which to do. -! Slots for reff, hydrometeors and tauall are as follows: -! 1 Cloud Ice -! 2 Cloud Liquid -! 3 Falling Liquid (Rain) -! 4 Falling Ice (Snow) -! -! In the below calculations, the constants used in the tau calculation are in -! m$^2$ g$^{-1}$ and m$^2$ g$^{-1}$ $\mu$m. Thus, we must convert the kg contained in the -! pressure (Pa = kg m$^{-1}$ s$^{-2}$) to grams. -! -! !REVISION HISTORY: -! 2011.10.27 Molod moved to Radiation_Shared and revised arg list, units -! 2011.11.16 MAT: Generalized to a call that is per-column -! -!EOP -!------------------------------------------------------------------------------ -!BOC - integer :: k,in,im,it,ia,kk - real :: fm,ft,fa,xai,tauc,asyclt,ssaclt - real :: cc(3) - real :: taucld1,taucld2,taucld3,taucld4 - real :: g1,g2,g3,g4 - real :: w1,w2,w3,w4 - - real :: reff_snow - -#include "getnirtau.code" - - return - -!EOC - end subroutine getnirtau -!------------------------------------------------------------------------------ -!BOP -! !ROUTINE: getirtau -! -! !INTERFACE: - subroutine getirtau(ib,nlevs,dp,fcld,reff,hydromets,& - taudiag,tcldlyr,enn) - -! !USES: - use rad_constants, only: aib_ir, awb_ir, & - aiw_ir, aww_ir, & - aig_ir, awg_ir - - implicit none - -! !INPUT PARAMETERS: - integer, intent(IN ) :: ib ! Band number - integer, intent(IN ) :: nlevs ! Number of levels - real, intent(IN ) :: dp(:) ! Delta pressure in Pa - real, intent(IN ) :: fcld(:) ! Cloud fraction (used sometimes) - real, intent(IN ) :: reff(:,:) ! Effective radius (microns) - real, intent(IN ) :: hydromets(:,:) ! Hydrometeors (kg/kg) - -! !OUTPUT PARAMETERS: - real, intent(OUT) :: taudiag( :,:) ! Optical depth for beam radiation - real, intent(OUT) :: tcldlyr(0: ) ! Flux transmissivity? - real, intent(OUT) :: enn(0: ) ! Flux transmissivity of a cloud layer? - -! !DESCRIPTION: -! Compute in-cloud or grid mean optical depths for infrared wavelengths -! Slots for reff, hydrometeors and tauall are as follows: -! 1 Cloud Ice -! 2 Cloud Liquid -! 3 Falling Liquid (Rain) -! 4 Falling Ice (Snow) -! -! In the below calculations, the constants used in the tau calculation are in -! m$^2$ g$^{-1}$ and m$^2$ g$^{-1}$ $\mu$m. Thus, we must convert the kg contained in the -! pressure (Pa = kg m$^{-1}$ s$^{-2}$) to grams. -! -! !REVISION HISTORY: -! 2011.11.18 MAT moved to Radiation_Shared and revised arg list, units -! -!EOP -!------------------------------------------------------------------------------ -!BOC - integer :: k - real :: taucld1,taucld2,taucld3,taucld4 - real :: g1,g2,g3,g4,gg - real :: w1,w2,w3,w4,ww - real :: ff,tauc - - real :: reff_snow - -#include "getirtau.code" - - end subroutine getirtau - -end module gettau - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getvistau.code b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getvistau.code deleted file mode 100644 index 9f6da8680..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getvistau.code +++ /dev/null @@ -1,200 +0,0 @@ - integer, parameter :: nm=11,nt=9,na=11 - real, parameter :: dm=0.1,dt=0.30103,da=0.1,t1=-0.9031 - - taubeam = 0.0 - taudiff = 0.0 - - if (ict.ne.0) then - -!-----scale cloud optical thickness in each layer from taucld (with -! cloud amount fcld) to taubeam and taudiff (with cloud amount cc). -! taubeam is the scaled optical thickness for beam radiation and -! taudiff is for diffuse radiation (see section 7). - -!-----clouds within each of the high, middle, and low clouds are -! assumed to be maximally overlapped, and the cloud cover (cc) -! for a group (high, middle, or low) is the maximum cloud cover -! of all the layers within a group - - cc = 0.0 - - do k = 1, ict-1 - cc(1)=max(cc(1),fcld(k)) - end do - do k = ict, icb-1 - cc(2)=max(cc(2),fcld(k)) - end do - do k = icb, nlevs - cc(3)=max(cc(3),fcld(k)) - end do - - end if - -!-----Compute cloud optical thickness. Eqs. (4.6) and (4.10) -! Note: the cloud optical properties are assumed to be independent -! of spectral bands in the UV and PAR regions. -! taucld1 is the optical thickness for ice particles -! taucld2 is the optical thickness for liquid particles -! taucld3 is the optical thickness for rain drops -! taucld4 is the optical thickness for snow - - do k = 1, nlevs - - if (reff(k,1) <= 0.) then - taucld1=0. - else - taucld1=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,1))*aib_uv/reff(k,1) - end if - - if (reff(k,2) <= 0.) then - taucld2=0. - else - taucld2=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,2))*(awb_uv(1)+awb_uv(2)/reff(k,2)) - end if - - taucld3=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,3))*arb_uv(1) - -!-----In the IR optical thickness calculation (getirtau.code), it was -! found that using the table of coefficients tabulated for suspended -! cloud ice particles (aib_ir) for falling snow lead to unphysical -! (negative) values of cloud optical thickness for effective radii -! greater than 113 microns. By restricting the effective radius of -! snow to 112 microns, we prevent unphysical optical thicknesses. -! For consistency's sake, we limit snow effective radius similarly here. - - reff_snow = min(reff(k,4),112.0) - - if (reff_snow <= 0.) then - taucld4=0. - else - taucld4=(((dp(k)*1.0e3)/MAPL_GRAV)*hydromets(k,4))*aib_uv/reff_snow - endif - - if ( ict .ne. 0 ) then - -!-----scale cloud optical thickness in each layer from taucld (with -! cloud amount fcld) to taubeam and taudiff (with cloud amount cc). -! taubeam is the scaled optical thickness for beam radiation and -! taudiff is for diffuse radiation (see section 7). - -!-----clouds within each of the high, middle, and low clouds are -! assumed to be maximally overlapped, and the cloud cover (cc) -! for a group (high, middle, or low) is the maximum cloud cover -! of all the layers within a group - - if (k.lt.ict) then - kk=1 - else if (k.ge.ict .and. k.lt.icb) then - kk=2 - else - kk=3 - end if - - tauc=taucld1+taucld2+taucld3+taucld4 - - if (tauc.gt.0.02 .and. fcld(k).gt.0.01) then - -!-----normalize cloud cover following Eq. (7.8) - - fa=fcld(k)/cc(kk) - -!-----table look-up - - tauc=min(tauc,32.) - - fm=cosz/dm - ft=(log10(tauc)-t1)/dt - fa=fa/da - - im=int(fm+1.5) - it=int(ft+1.5) - ia=int(fa+1.5) - - im=max(im,2) - it=max(it,2) - ia=max(ia,2) - - im=min(im,nm-1) - it=min(it,nt-1) - ia=min(ia,na-1) - - fm=fm-real(im-1) - ft=ft-real(it-1) - fa=fa-real(ia-1) - -!-----scale cloud optical thickness for beam radiation following -! Eq. (7.3). -! the scaling factor, xai, is a function of the solar zenith -! angle, optical thickness, and cloud cover. - - xai= (-caib(im-1,it,ia)*(1.-fm)+& - caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm) - - xai=xai+(-caib(im,it-1,ia)*(1.-ft)+& - caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft) - - xai=xai+(-caib(im,it,ia-1)*(1.-fa)+& - caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa) - - xai=xai-2.*caib(im,it,ia) - - xai=max(xai,0.0) - xai=min(xai,1.0) - - taubeam(k,1)=taucld1*xai - taubeam(k,2)=taucld2*xai - taubeam(k,3)=taucld3*xai - taubeam(k,4)=taucld4*xai - -!-----scale cloud optical thickness for diffuse radiation following -! Eq. (7.4). -! the scaling factor, xai, is a function of the cloud optical -! thickness and cover but not the solar zenith angle. - - xai= (-caif(it-1,ia)*(1.-ft)+& - caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft) - - xai=xai+(-caif(it,ia-1)*(1.-fa)+& - caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa) - - xai=xai-caif(it,ia) - - xai=max(xai,0.0) - xai=min(xai,1.0) - - taudiff(k,1)=taucld1*xai - taudiff(k,2)=taucld2*xai - taudiff(k,3)=taucld3*xai - taudiff(k,4)=taucld4*xai - end if - else - ! Overlap calculation scaling not needed - taubeam(k,1)=taucld1 - taubeam(k,2)=taucld2 - taubeam(k,3)=taucld3 - taubeam(k,4)=taucld4 - - taudiff(k,1)=taucld1 - taudiff(k,2)=taucld2 - taudiff(k,3)=taucld3 - taudiff(k,4)=taucld4 - end if - -!-----cloud asymmetry factor for a mixture of liquid and ice particles. -! unit of reff is micrometers. Eqs. (4.8) and (6.4) - - asyclt=1.0 - tauc=taucld1+taucld2+taucld3+taucld4 - - if (tauc.gt.0.02 .and. fcld(k).gt.0.01) then - g1=(aig_uv(1)+(aig_uv(2)+aig_uv(3)*reff(k,1))*reff(k,1))*taucld1 - g2=(awg_uv(1)+(awg_uv(2)+awg_uv(3)*reff(k,2))*reff(k,2))*taucld2 - g3= arg_uv(1) *taucld3 - g4=(aig_uv(1)+(aig_uv(2)+aig_uv(3)*reff_snow)*reff_snow)*taucld4 - asyclt=(g1+g2+g3+g4)/tauc - end if - - asycl(k)=asyclt - - end do - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/radconstants.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/radconstants.F90 deleted file mode 100644 index 57b625616..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/radconstants.F90 +++ /dev/null @@ -1,288 +0,0 @@ -! $Id$ - -module rad_constants - -implicit none -save - - ! Constants for VIS-UV Radiation - ! ------------------------------ - - real :: aib_uv = 1.64 - - real, dimension(2) :: awb_uv = [-6.59e-3,1.65] - - real, dimension(2) :: arb_uv = [ 3.07e-3,0.00] - - - real, dimension(3) :: aig_uv = & - [.746, .00282, -.0000230] - - real, dimension(3) :: awg_uv = & - [.82562,.00529, -.0001487] - - real, dimension(3) :: arg_uv = & - [.883,0.0,0.0] - - ! Constants for NIR Radiation - ! --------------------------- - - real :: aib_nir = 1.64 - - real, dimension(3,2) :: awb_nir = reshape([ & - -0.0101, -0.0166, -0.0339, & - 1.72, 1.85, 2.16], [3,2]) - - real, dimension(3,2) :: arb_nir = reshape([ & - 0.00307, 0.00307, 0.00307, & - 0.0 , 0.0 , 0.0 ],[3,2]) - - - real, dimension(3,3) :: aia_nir = reshape([ & - .00000141, .00112, .04828, & - .00001144, .001129, .00547, & - -.000000005, -.00000358, -.0000361],[3,3]) - - real, dimension(3,3) :: awa_nir = reshape([ & - .00000007,-.00019934, .01209318, & - .00000845, .00088757, .01784739, & - -.00000004,-.00000650,-.00036910],[3,3]) - - real, dimension(3,3) :: ara_nir = reshape([ & - .029, .342, .466, & - .0000, .000, .000, & - .0000, .000, .000],[3,3]) - - - real, dimension(3,3) :: aig_nir = reshape([ & - .725, .717, .771, & - .0037, .00456, .00490, & - -.0000309, -.00003544, -.0000401],[3,3]) - - real, dimension(3,3) :: awg_nir = reshape([ & - .79375035, .74513197, .83530748, & - .00832441, .01370071, .00257181, & - -.00023263,-.00038203, .00005519],[3,3]) - - real, dimension(3,3) :: arg_nir = reshape([ & - .891, .948, .971, & - .0000, .000, .000, & - .0000, .000, .000],[3,3]) - - ! Constants used in both VIS-UV and NIR Radiation - ! ----------------------------------------------- - - real, dimension(11,9,11) :: caib = reshape( [& - 0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,& - 0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,& - 0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,& - 0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,& - 0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,& - 0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,& - 0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,& - 0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,& - 0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,& - 0.068,0.088,0.094,0.096,0.097,0.098,0.098,0.099,0.099,0.100,0.101,& - 0.052,0.079,0.088,0.092,0.094,0.096,0.097,0.098,0.099,0.100,0.102,& - 0.038,0.065,0.079,0.086,0.090,0.092,0.094,0.096,0.098,0.100,0.102,& - 0.030,0.049,0.066,0.074,0.081,0.086,0.089,0.093,0.096,0.100,0.104,& - 0.025,0.037,0.050,0.061,0.069,0.075,0.081,0.086,0.092,0.098,0.106,& - 0.023,0.030,0.038,0.047,0.054,0.062,0.069,0.076,0.084,0.092,0.102,& - 0.022,0.026,0.031,0.037,0.042,0.049,0.056,0.063,0.071,0.081,0.091,& - 0.021,0.023,0.026,0.030,0.034,0.038,0.043,0.049,0.056,0.063,0.073,& - 0.021,0.022,0.023,0.026,0.028,0.030,0.034,0.038,0.042,0.046,0.053,& - 0.140,0.179,0.189,0.193,0.194,0.196,0.198,0.198,0.199,0.200,0.202,& - 0.106,0.161,0.178,0.186,0.190,0.193,0.194,0.196,0.198,0.200,0.202,& - 0.078,0.134,0.161,0.174,0.181,0.186,0.190,0.193,0.196,0.200,0.205,& - 0.060,0.102,0.134,0.153,0.165,0.174,0.180,0.186,0.193,0.199,0.207,& - 0.051,0.076,0.104,0.126,0.142,0.154,0.165,0.175,0.185,0.196,0.208,& - 0.046,0.061,0.080,0.098,0.114,0.129,0.142,0.156,0.170,0.185,0.202,& - 0.043,0.052,0.064,0.077,0.090,0.102,0.116,0.130,0.146,0.162,0.179,& - 0.042,0.047,0.054,0.062,0.070,0.080,0.090,0.102,0.114,0.128,0.142,& - 0.041,0.044,0.048,0.053,0.058,0.064,0.070,0.078,0.086,0.094,0.104,& - 0.216,0.272,0.285,0.290,0.293,0.295,0.296,0.298,0.298,0.300,0.302,& - 0.166,0.247,0.271,0.281,0.286,0.290,0.293,0.295,0.298,0.300,0.303,& - 0.120,0.207,0.247,0.264,0.274,0.281,0.286,0.290,0.295,0.300,0.306,& - 0.092,0.158,0.209,0.235,0.252,0.264,0.274,0.282,0.290,0.298,0.309,& - 0.078,0.118,0.163,0.195,0.218,0.237,0.252,0.266,0.280,0.294,0.309,& - 0.070,0.094,0.125,0.153,0.178,0.201,0.221,0.240,0.259,0.278,0.298,& - 0.066,0.081,0.100,0.120,0.141,0.162,0.182,0.203,0.224,0.246,0.267,& - 0.063,0.072,0.084,0.098,0.112,0.127,0.143,0.161,0.178,0.196,0.214,& - 0.062,0.066,0.074,0.082,0.090,0.100,0.111,0.122,0.134,0.146,0.158,& - 0.298,0.367,0.383,0.389,0.392,0.394,0.396,0.398,0.398,0.400,0.402,& - 0.230,0.337,0.366,0.378,0.384,0.389,0.392,0.394,0.398,0.400,0.404,& - 0.166,0.286,0.337,0.358,0.370,0.378,0.384,0.390,0.394,0.400,0.406,& - 0.126,0.221,0.289,0.323,0.343,0.358,0.369,0.379,0.389,0.398,0.410,& - 0.106,0.165,0.227,0.271,0.302,0.325,0.344,0.361,0.376,0.392,0.409,& - 0.095,0.130,0.175,0.215,0.250,0.279,0.306,0.330,0.351,0.374,0.395,& - 0.089,0.111,0.141,0.170,0.200,0.229,0.256,0.282,0.308,0.333,0.357,& - 0.086,0.098,0.118,0.138,0.159,0.182,0.203,0.226,0.248,0.270,0.290,& - 0.083,0.090,0.102,0.114,0.128,0.142,0.157,0.172,0.186,0.202,0.217,& - 0.385,0.465,0.482,0.488,0.492,0.494,0.496,0.497,0.498,0.500,0.502,& - 0.302,0.431,0.465,0.477,0.483,0.488,0.491,0.494,0.497,0.500,0.504,& - 0.218,0.372,0.431,0.455,0.468,0.477,0.483,0.489,0.494,0.500,0.506,& - 0.164,0.290,0.375,0.416,0.439,0.455,0.467,0.478,0.488,0.498,0.510,& - 0.136,0.217,0.300,0.355,0.392,0.419,0.440,0.458,0.474,0.491,0.508,& - 0.122,0.171,0.233,0.286,0.330,0.366,0.397,0.423,0.447,0.470,0.493,& - 0.114,0.146,0.188,0.230,0.269,0.305,0.338,0.369,0.398,0.424,0.449,& - 0.108,0.129,0.158,0.187,0.217,0.245,0.273,0.299,0.325,0.349,0.372,& - 0.105,0.118,0.136,0.154,0.174,0.192,0.210,0.229,0.246,0.264,0.281,& - 0.481,0.566,0.582,0.589,0.592,0.594,0.596,0.598,0.598,0.600,0.602,& - 0.383,0.531,0.565,0.578,0.584,0.588,0.591,0.594,0.598,0.600,0.604,& - 0.276,0.466,0.531,0.556,0.569,0.577,0.583,0.589,0.594,0.600,0.606,& - 0.206,0.370,0.470,0.514,0.539,0.556,0.568,0.578,0.588,0.598,0.609,& - 0.170,0.278,0.383,0.449,0.490,0.518,0.541,0.558,0.575,0.590,0.606,& - 0.150,0.221,0.302,0.370,0.422,0.462,0.496,0.523,0.547,0.570,0.590,& - 0.141,0.189,0.249,0.303,0.351,0.394,0.432,0.465,0.494,0.521,0.545,& - 0.135,0.170,0.213,0.252,0.289,0.323,0.355,0.385,0.412,0.438,0.462,& - 0.134,0.156,0.182,0.207,0.231,0.254,0.276,0.297,0.318,0.337,0.356,& - 0.586,0.669,0.685,0.690,0.693,0.695,0.696,0.698,0.699,0.700,0.702,& - 0.478,0.637,0.669,0.680,0.686,0.690,0.693,0.695,0.698,0.700,0.703,& - 0.346,0.572,0.637,0.660,0.672,0.680,0.686,0.690,0.695,0.700,0.706,& - 0.255,0.465,0.577,0.622,0.645,0.661,0.672,0.681,0.690,0.698,0.707,& - 0.209,0.354,0.483,0.555,0.598,0.626,0.646,0.663,0.678,0.691,0.705,& - 0.187,0.286,0.391,0.471,0.529,0.571,0.604,0.630,0.652,0.671,0.690,& - 0.187,0.259,0.336,0.401,0.455,0.501,0.540,0.572,0.601,0.625,0.647,& - 0.214,0.250,0.298,0.343,0.384,0.422,0.455,0.486,0.514,0.540,0.563,& - 0.202,0.224,0.254,0.282,0.309,0.334,0.359,0.382,0.405,0.426,0.446,& - 0.705,0.776,0.788,0.792,0.794,0.796,0.797,0.798,0.799,0.800,0.802,& - 0.595,0.749,0.776,0.785,0.789,0.792,0.794,0.796,0.798,0.800,0.802,& - 0.438,0.692,0.750,0.769,0.778,0.784,0.789,0.793,0.796,0.800,0.804,& - 0.322,0.583,0.697,0.737,0.757,0.769,0.778,0.786,0.792,0.798,0.805,& - 0.266,0.459,0.606,0.678,0.717,0.741,0.758,0.771,0.782,0.793,0.803,& - 0.278,0.398,0.518,0.600,0.656,0.694,0.722,0.744,0.762,0.777,0.790,& - 0.354,0.407,0.476,0.537,0.589,0.631,0.666,0.694,0.718,0.738,0.755,& - 0.349,0.387,0.433,0.476,0.515,0.550,0.583,0.611,0.638,0.661,0.681,& - 0.302,0.328,0.360,0.391,0.420,0.448,0.474,0.498,0.521,0.542,0.562,& - 0.840,0.886,0.894,0.896,0.897,0.898,0.898,0.899,0.899,0.900,0.901,& - 0.752,0.870,0.886,0.891,0.894,0.895,0.897,0.898,0.899,0.900,0.902,& - 0.582,0.831,0.870,0.882,0.887,0.891,0.894,0.896,0.898,0.900,0.902,& - 0.442,0.745,0.835,0.862,0.874,0.882,0.887,0.892,0.895,0.899,0.902,& - 0.462,0.638,0.770,0.823,0.850,0.865,0.875,0.883,0.890,0.896,0.902,& - 0.577,0.631,0.710,0.770,0.810,0.836,0.854,0.867,0.878,0.886,0.894,& - 0.603,0.643,0.689,0.729,0.764,0.793,0.816,0.834,0.850,0.862,0.872,& - 0.565,0.598,0.638,0.673,0.703,0.730,0.754,0.774,0.793,0.809,0.822,& - 0.479,0.508,0.542,0.574,0.602,0.627,0.650,0.672,0.691,0.710,0.726,& - 1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,& - 1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,& - 1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,& - 1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,& - 1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,& - 1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,& - 1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,& - 1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,& - 1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000], & - [11,9,11]) - - real, dimension(9,11) :: caif = reshape( [& - 0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.099,0.098, & - 0.096,0.092,0.085,0.076,0.063,0.052,0.043,0.198,0.196,0.192,0.185, & - 0.173,0.154,0.131,0.107,0.088,0.297,0.294,0.290,0.280,0.263,0.237, & - 0.203,0.166,0.136,0.397,0.394,0.388,0.376,0.357,0.324,0.281,0.232, & - 0.189,0.496,0.494,0.487,0.476,0.454,0.418,0.366,0.305,0.248,0.597, & - 0.594,0.587,0.576,0.555,0.517,0.461,0.389,0.317,0.697,0.694,0.689, & - 0.678,0.659,0.624,0.567,0.488,0.400,0.798,0.796,0.792,0.783,0.768, & - 0.738,0.688,0.610,0.510,0.899,0.898,0.895,0.890,0.881,0.864,0.830, & - 0.770,0.675,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000,1.000],& - [9,11]) - - ! Constants for IR Radiation - ! -------------------------- - - !********************************************************************* - ! THE EQUATION NUMBERS noted in below follow the latest ! - ! version (May 2003) of the NASA Tech. Memo. (2001), which can ! - ! be accessed at ftp://climate.gsfc.nasa.gov/pub/chou/clirad_lw/ ! - !********************************************************************* - - !-----Coefficients for computing the extinction coefficient - ! for cloud ice particles (Table 11a, Eq. 6.4a). - ! - real, dimension(3,10) :: aib_ir = reshape([ & - -0.44171, 0.61222, 0.06465,& - -0.13727, 0.54102, 0.28962,& - -0.01878, 1.19270, 0.79080,& - -0.01896, 0.78955, 0.69493,& - -0.04788, 0.69729, 0.54492,& - -0.02265, 1.13370, 0.76161,& - -0.01038, 1.46940, 0.89045,& - -0.00450, 1.66240, 0.95989,& - -0.00044, 2.01500, 1.03750,& - -0.02956, 1.06430, 0.71283],[3,10]) - - !-----coefficients for computing the extinction coefficient - ! for cloud liquid drops. (Table 11b, Eq. 6.4b) - ! - real, dimension(4,10) :: awb_ir = reshape([ & - 0.08641, 0.01769, -1.5572e-3, 3.4896e-5,& - 0.22027, 0.00997, -1.8719e-3, 5.3112e-5,& - 0.38074, -0.03027, 1.0154e-3, -1.1849e-5,& - 0.15587, 0.00371, -7.7705e-4, 2.0547e-5,& - 0.05518, 0.04544, -4.2067e-3, 1.0184e-4,& - 0.12724, 0.04751, -5.2037e-3, 1.3711e-4,& - 0.30390, 0.01656, -3.5271e-3, 1.0828e-4,& - 0.63617, -0.06287, 2.2350e-3, -2.3177e-5,& - 1.15470, -0.19282, 1.2084e-2, -2.5612e-4,& - 0.34021, -0.02805, 1.0654e-3, -1.5443e-5],[4,10]) - - !-----coefficients for computing the single-scattering albedo - ! for cloud ice particles. (Table 12a, Eq. 6.5) - ! - real, dimension(4,10) :: aiw_ir = reshape([ & - 0.17201, 1.8814e-2, -3.5117e-4, 2.1127e-6,& - 0.81470, -4.1989e-3, 2.3152e-7, 2.0992e-7,& - 0.54859, -7.4266e-4, 1.2865e-5, -5.7092e-8,& - 0.39218, 6.4180e-3, -1.1567e-4, 6.9710e-7,& - 0.71773, -5.1754e-3, 4.6658e-5, -1.2085e-7,& - 0.77345, -8.4966e-3, 1.1451e-4, -5.5170e-7,& - 0.74975, -8.7083e-3, 1.3367e-4, -7.1603e-7,& - 0.69011, -6.9766e-3, 1.1674e-4, -6.6472e-7,& - 0.83963, -1.0347e-2, 1.4651e-4, -7.5965e-7,& - 0.64860, -4.4142e-3, 6.5458e-5, -3.2655e-7],[4,10]) - - !-----coefficients for computing the single-scattering albedo - ! for cloud liquid drops. (Table 12b, Eq. 6.5) - ! - real, dimension(4,10) :: aww_ir = reshape([ & - -7.8566e-2, 8.0875e-2, -4.3403e-3, 8.1341e-5,& - -1.3384e-2, 9.3134e-2, -6.0491e-3, 1.3059e-4,& - 3.7096e-2, 7.3211e-2, -4.4211e-3, 9.2448e-5,& - -3.7600e-3, 9.3344e-2, -5.6561e-3, 1.1387e-4,& - 0.40212, 7.8083e-2, -5.9583e-3, 1.2883e-4,& - 0.57928, 5.9094e-2, -5.4425e-3, 1.2725e-4,& - 0.68974, 4.2334e-2, -4.9469e-3, 1.2863e-4,& - 0.80122, 9.4578e-3, -2.8508e-3, 9.0078e-5,& - 1.02340, -2.6204e-2, 4.2552e-4, 3.2160e-6,& - 0.05092, 7.5409e-2, -4.7305e-3, 1.0121e-4],[4,10]) - - !-----coefficients for computing the asymmetry factor for cloud ice - ! particles. (Table 13a, Eq. 6.6) - ! - real, dimension(4,10) :: aig_ir = reshape([ & - 0.57867, 1.5592e-2, -2.6372e-4, 1.5125e-6,& - 0.72259, 4.7922e-3, -4.7164e-5, 2.0400e-7,& - 0.76109, 6.9922e-3, -1.0935e-4, 5.9885e-7,& - 0.86934, 4.2268e-3, -7.4085e-5, 4.3547e-7,& - 0.89103, 2.8482e-3, -3.9174e-5, 2.0098e-7,& - 0.86325, 3.2935e-3, -3.9872e-5, 1.8015e-7,& - 0.85064, 3.8505e-3, -4.9259e-5, 2.3096e-7,& - 0.86945, 3.7869e-3, -5.6525e-5, 3.0016e-7,& - 0.80122, 4.9086e-3, -5.8831e-5, 2.6367e-7,& - 0.73290, 7.3898e-3, -1.0515e-4, 5.4034e-7],[4,10]) - - !-----coefficients for computing the asymmetry factor for cloud liquid - ! drops. (Table 13b, Eq. 6.6) - ! - real, dimension(4,10) :: awg_ir = reshape([ & - -0.51930, 0.20290, -1.1747e-2, 2.3868e-4,& - -0.22151, 0.19708, -1.2462e-2, 2.6646e-4,& - 0.14157, 0.14705, -9.5802e-3, 2.0819e-4,& - 0.41590, 0.10482, -6.9118e-3, 1.5115e-4,& - 0.55338, 7.7016e-2, -5.2218e-3, 1.1587e-4,& - 0.61384, 6.4402e-2, -4.6241e-3, 1.0746e-4,& - 0.67891, 4.8698e-2, -3.7021e-3, 9.1966e-5,& - 0.78169, 2.0803e-2, -1.4749e-3, 3.9362e-5,& - 0.93218, -3.3425e-2, 2.9632e-3, -6.9362e-5,& - 0.01649, 0.16561, -1.0723e-2, 2.3220e-4],[4,10]) - -end module rad_constants diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/CMakeLists.txt deleted file mode 100644 index f08bbe19b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/CMakeLists.txt +++ /dev/null @@ -1,16 +0,0 @@ -esma_set_this() - -set (srcs - GEOS_IrradGridComp.F90 - irradconstants.F90 - irrad.F90 - ) - -esma_add_library (${this} - SRCS ${srcs} - SUBDIRS RRTMG - DEPENDENCIES GEOS_Shared MAPL GEOS_RadiationShared RRTMG RRTMG_mods RRTMGP) - -if(MKL_FOUND) - target_compile_definitions(${this} PRIVATE HAVE_MKL) -endif () diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/GEOS_IrradGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/GEOS_IrradGridComp.F90 deleted file mode 100644 index 795398915..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/GEOS_IrradGridComp.F90 +++ /dev/null @@ -1,4052 +0,0 @@ - -! $Id$ - -#include "MAPL_Generic.h" - -module GEOS_IrradGridCompMod - -!BOP -! !MODULE: GEOS_Irrad -- A Module to compute longwaves radiative transfer through a cloudy atmosphere - -! !DESCRIPTION: -! -! {\tt Irrad} is a light-weight gridded component to compute longwave -! radiative fluxes. It operates on the ESMF grid that appears in the -! gridded component passed to its {\tt Initialize} method. Unlike -! heavier gridded components, it does not enforce its own grid. -! The only restrictions are that it be a 3-dimensional grid -! in which one dimension is aligned with the vertical coordinate and -! only the horizontal dimensions are decomposed. -! -! The radiative transfer calculation is based on M-D Chou's IRRAD routine. -! A full documentation of the code may be found in -! "A Thermal Infrared Radiation Parameterization for Atmospheric Studies" -! M.-D. Chou et al., NASA/TM-2001-104606, Vol. 19, 55 pp, 2003. -! Based on the 1996-version of the Air Force Geophysical Laboratory HITRAN data -! base (Rothman et al., 1998), the parameterization includes the absorption due -! to major gaseous absorption (water vapor, CO2 , O3 ) and most of the minor -! trace gases (N2O, CH4 , CFC's), as well as clouds and aerosols. The thermal -! infrared spectrum is divided into nine bands and a subband. To achieve a high -! degree of accuracy and speed, various approaches of computing the transmission -! function are applied to different spectral bands and gases. The gaseous -! transmission function is computed either using the k-distribution method or -! the table look-up method. To include the effect of scattering due to clouds -! and aerosols, the optical thickness is scaled by the single-scattering albedo -! and asymmetry factor. The optical thickness, the single-scattering albedo, -! and the asymmetry factor of clouds are parameterized as functions of the ice -! and water content and the particle size. - -! All outputs are optional and are filled only if they have been -! initialized by a coupler. -! -! The net (+ve downward) fluxes are returned at the layer -! interfaces, which are indexed from the top of the atmosphere (L=0) -! to the surface. It also computes the sensitivity of net downward flux to -! surface temperature and emission by the surface. -! The full transfer calculation, including the linearization w.r.t. the surface temperature, -! is done intermitently, on the component's main time step and its results are -! kept in the internal state. Exports are refreshed each heartbeat based on the -! latest surface temperature. -! -! Radiation should be called either before or after thos components -! (usually SURFACE and DYNAMICS) that use its fluxes and modify -! its inputs. If it is called before, the intemittent refresh should -! occur during the first step of the radiation cycle, while if it -! is called after, it should occur during the last step. The behavior -! of the component needs to be somewhat different in these two cases -! and so a means is provided, through the logical attribute \texttt{CALL\_LAST} in -! configuration, of telling the component how it is being used. The -! default is \texttt{CALL\_LAST = "TRUE"}. -! -! -! !USES: - - use ESMF - use MAPL - use GEOS_UtilsMod - - use rrtmg_lw_rad, only: rrtmg_lw - use rrtmg_lw_init, only: rrtmg_lw_ini - use parrrtm, only: ngptlw, nbndlw - use rrlw_wvn, only: wavenum1, wavenum2 - - ! for RRTMGP - use mo_gas_optics_rrtmgp, only: ty_gas_optics_rrtmgp - -#ifdef _CUDA - use cudafor - ! NOTE: USE renames are used below to prevent name clashes with - ! CUDA copies to the GPU. - use rad_constants, only: & - AIB_IR_CONST=>AIB_IR, AWB_IR_CONST=>AWB_IR, & - AIW_IR_CONST=>AIW_IR, AWW_IR_CONST=>AWW_IR, & - AIG_IR_CONST=>AIG_IR, AWG_IR_CONST=>AWG_IR - use irrad_constants, only: & - XKW_CONST=>XKW, XKE_CONST=>XKE, MW_CONST=>MW, & - AW_CONST=>AW, BW_CONST=>BW, & - PM_CONST=>PM, FKW_CONST=>FKW, GKW_CONST=>GKW, & - CB_CONST=>CB, DCB_CONST=>DCB, & - W11_CONST=>W11, W12_CONST=>W12, W13_CONST=>W13, & - P11_CONST=>P11, P12_CONST=>P12, P13_CONST=>P13, & - DWE_CONST=>DWE, DPE_CONST=>DPE, & - C1_CONST=>C1, C2_CONST=>C2, C3_CONST=>C3, & - OO1_CONST=>OO1, OO2_CONST=>OO2, OO3_CONST=>OO3, & - H11_CONST=>H11, H12_CONST=>H12, H13_CONST=>H13, & - H21_CONST=>H21, H22_CONST=>H22, H23_CONST=>H23, & - H81_CONST=>H81, H82_CONST=>H82, H83_CONST=>H83 - use irradmod, only: & - ! Subroutines - IRRAD, & - ! Parameters - NX, NO, NC, NH, & - ! Inputs - PLE_DEV, TA_DEV, WA_DEV, OA_DEV, TB_DEV, & - N2O_DEV, CH4_DEV, CFC11_DEV, CFC12_DEV, CFC22_DEV, & - FS_DEV, TG_DEV, EG_DEV, TV_DEV, EV_DEV, & - RV_DEV, CWC_DEV, FCLD_DEV, REFF_DEV, & - ! Aerosol inputs - TAUA_DEV, SSAA_DEV, ASYA_DEV, & - ! Constant arrays in global memory - C1, C2, C3, & - OO1, OO2, OO3, & - H11, H12, H13, & - H21, H22, H23, & - H81, H82, H83, & - ! Outputs - FLXU_DEV, FLXAU_DEV, FLCU_DEV, FLAU_DEV, & - FLXD_DEV, FLXAD_DEV, FLCD_DEV, FLAD_DEV, & - DFDTS_DEV, SFCEM_DEV, TAUDIAG_DEV, & - ! Constants - XKW, XKE, MW, AW, BW, PM, FKW, & - GKW, AIB_IR, AWB_IR, AIW_IR, AWW_IR, AIG_IR, AWG_IR, & - CB, DCB, W11, W12, W13, P11, P12, & - P13, DWE, DPE -#else - use irradmod, only: IRRAD -#endif - - implicit none - private - -! !PUBLIC MEMBER FUNCTIONS: - - public SetServices - -!EOP - - ! ------------------------------------------- - ! Select which RRTMG bands support OLR output - ! ------------------------------------------- - ! via OLRBbbRG and TBRBbbRG exports ... - ! (These exports require support space in the - ! internal state so we choose only the ones we want - ! to offer here at compile time. In the future, if - ! most of the bands are required, then we will change - ! strategy and reserve space for ALL of them in the - ! internal state. In that case we would only require - ! runtime band selection via the EXPORTS chosen.) - - ! NOTE: band 16 should be requested with caution ... - ! Band 16 is technically 2600-3250 cm-1. But when RT - ! is performed across all 16 bands, as it is in GEOS-5 - ! usage, then band 16 includes the integrated Planck - ! values from 2600 cm-1 to infinity. So, the brightness - ! temperature (Tbr) calculations in Update_Flx(), which - ! use specified wavenumber endpoints, may require mod- - ! ification for band 16 (pmn: TODO). For the moment, - ! the limits [2600,3250] are used. - - ! Which bands are supported? - ! (Currently RRTMG only) - ! (actual calculation only if export is requested) - ! Supported? Band Requested by (and use) - logical, parameter :: band_output_supported (nbndlw) = [ & - .false. , &! 01 - .false. , &! 02 - .false. , &! 03 - .false. , &! 04 - .false. , &! 05 - .true. , &! 06 A. Collow (Window) - .false. , &! 07 - .false. , &! 08 - .true. , &! 09 W. Putman (Water Vapor) - .true. , &! 10 W. Putman (Water Vapor) - .true. , &! 11 W. Putman (Water Vapor) - .false. , &! 12 - .false. , &! 13 - .false. , &! 14 - .false. , &! 15 - .false. ] ! 16 - - ! PS: We may later have an RRTMG internal state like - ! RRTMGP below with various rrtmg_lw_init data, etc. - ! TODO - - ! ----------------------------------------------- - ! RRTMGP internal state - ! This will be attached to the Gridded Component - ! used to provide efficient initialization - type ty_RRTMGP_state - private - logical :: initialized = .false. - type (ty_gas_optics_rrtmgp) :: k_dist - end type ty_RRTMGP_state - - ! wrapper to access RRTMGP internal state - type ty_RRTMGP_wrap - type (ty_RRTMGP_state), pointer :: ptr => null() - end type ty_RRTMGP_wrap - -contains - -!BOP -! !IROUTINE: SetServices -- Sets ESMF services for this component - -! !INTERFACE: - subroutine SetServices ( GC, RC ) - -! !ARGUMENTS: - type(ESMF_GridComp), intent(INOUT) :: GC ! gridded component - integer, optional :: RC ! return code - -! !DESCRIPTION: This version uses the MAPL\_GenericSetServices. This function sets -! the Initialize and Finalize services, as well as allocating -! our instance of a generic state and putting it in the -! gridded component (GC). Here we only need to set the run method and -! add the state variable specifications (also generic) to our instance -! of the generic state. This is the way our true state variables get into -! the ESMF\_State INTERNAL, which is in the MAPL\_MetaComp. - -!EOP - -!============================================================================= - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - character(len=ESMF_MAXSTR) :: COMP_NAME - - type (ESMF_Config) :: CF - - integer :: MY_STEP - integer :: ACCUMINT - real :: DT - - type (ty_RRTMGP_state), pointer :: rrtmgp_state => null() - type (ty_RRTMGP_wrap) :: wrap - - ! for OLRBbbRG, TBRBbbRG - real :: RFLAG - logical :: USE_RRTMG - integer :: ibnd - character*2 :: bb - character*9 :: wvn_rng ! xxxx-yyyy - -!============================================================================= - -! Get my name and set-up traceback handle -! --------------------------------------- - - Iam = 'SetServices' - call ESMF_GridCompGet(GC, NAME=COMP_NAME, __RC__) - Iam = trim(COMP_NAME) // Iam - - ! save pointer to the wrapped RRTMGP internal state in the GC - allocate(rrtmgp_state, __STAT__) - wrap%ptr => rrtmgp_state - call ESMF_UserCompSetInternalState(GC, 'RRTMGP_state', wrap, status) - VERIFY_(status) - -! Set the Run entry point -! ----------------------- - - call MAPL_GridCompSetEntryPoint(GC, ESMF_METHOD_RUN, Run, __RC__) - -! Get the configuration -! --------------------- - - call ESMF_GridCompGet(GC, CONFIG=CF, __RC__) - -! Get the intervals; "heartbeat" must exist -! ----------------------------------------- - - call ESMF_ConfigGetAttribute(CF, DT, Label="RUN_DT:", __RC__) - -! Refresh interval defaults to heartbeat. This will also be read by -! MAPL_Generic and set as the component's main time step. -! ----------------------------------------------------------------- - - call ESMF_ConfigGetAttribute(CF, DT, Label=trim(COMP_NAME)//"_DT:", default=DT, __RC__) - MY_STEP = nint(DT) - -! Averaging interval defaults to the refresh interval. -!----------------------------------------------------- - - call ESMF_ConfigGetAttribute(CF, DT, Label=trim(COMP_NAME)//'Avrg:', default=DT, __RC__) - ACCUMINT = nint(DT) - -! Is RRTMG LW being run? -! ---------------------- - - call ESMF_ConfigGetAttribute(CF, RFLAG, LABEL='USE_RRTMG_IRRAD:', DEFAULT=0., __RC__) - USE_RRTMG = RFLAG /= 0. - -! Set the state variable specs. -! ----------------------------- - -!BOS - -! !IMPORT STATE: - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'PLE', & - LONG_NAME = 'air_pressure', & - UNITS = 'Pa', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'T', & - LONG_NAME = 'air_temperature', & - UNITS = 'K', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'QV', & - LONG_NAME = 'specific_humidity', & - UNITS = 'kg kg-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'QL', & - LONG_NAME = 'mass_fraction_of_cloud_liquid_water_in_air', & - UNITS = 'kg kg-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'QI', & - LONG_NAME = 'mass_fraction_of_cloud_ice_in_air', & - UNITS = 'kg kg-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'QR', & - LONG_NAME = 'mass_fraction_of_rain_water_in_air',& - UNITS = 'kg kg-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'QS', & - LONG_NAME = 'mass_fraction_of_snow_in_air', & - UNITS = 'kg kg-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'RL', & - LONG_NAME = 'effective_radius_of_cloud_liquid_water_particles', & - UNITS = 'm', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'RI', & - LONG_NAME = 'effective_radius_of_cloud_ice_particles', & - UNITS = 'm', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'RR', & - LONG_NAME = 'effective_radius_of_rain_particles',& - UNITS = 'm', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'RS', & - LONG_NAME = 'effective_radius_of_snow_particles',& - UNITS = 'm', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'O3', & - LONG_NAME = 'ozone_mass_mixing_ratio', & - UNITS = 'kg kg-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'CH4', & - LONG_NAME = 'methane_concentration', & - UNITS = 'pppv', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'N2O', & - LONG_NAME = 'nitrous_oxide_concentration', & - UNITS = 'pppv', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'CFC11', & - LONG_NAME = 'CFC11_concentration', & - UNITS = 'pppv', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'CFC12', & - LONG_NAME = 'CFC12_concentration', & - UNITS = 'pppv', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'HCFC22', & - LONG_NAME = 'HCFC22_concentration', & - UNITS = 'pppv', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'FCLD', & - LONG_NAME = 'cloud_area_fraction_in_atmosphere_layer', & - UNITS = '1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'TS', & - LONG_NAME = 'surface_skin_temperature', & - UNITS = 'K', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'EMIS', & - LONG_NAME = 'surface_emissivity', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__ ) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'PREF', & - LONG_NAME = 'reference_air_pressure', & - UNITS = 'Pa', & - DIMS = MAPL_DimsVertOnly, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - -! Instantaneous TS is used only for updating the IR fluxes due to TS change - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'TSINST', & - LONG_NAME = 'surface_skin_temperature', & - UNITS = 'K', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'aerosols', & - UNITS = 'kg kg-1', & - SHORT_NAME = 'AERO', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - DATATYPE = MAPL_StateItem, & - RESTART = MAPL_RestartSkip, __RC__ ) - -! !EXPORT STATE: - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLX', & - LONG_NAME = 'net_downward_longwave_flux_in_air', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLXA', & - LONG_NAME = 'net_downward_longwave_flux_in_air_and_no_aerosol', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLXD', & - LONG_NAME = 'downward_longwave_flux_in_air', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLXAD', & - LONG_NAME = 'downward_longwave_flux_in_air_and_no_aerosol', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLXU', & - LONG_NAME = 'upward_longwave_flux_in_air', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLXAU', & - LONG_NAME = 'upward_longwave_flux_in_air_and_no_aerosol',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLC', & - LONG_NAME = 'net_downward_longwave_flux_in_air_assuming_clear_sky', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLCD', & - LONG_NAME = 'downward_longwave_flux_in_air_assuming_clear_sky', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLCU', & - LONG_NAME = 'upward_longwave_flux_in_air_assuming_clear_sky', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLA', & - LONG_NAME = 'net_downward_longwave_flux_in_air_assuming_clear_sky_and_no_aerosol',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLAD', & - LONG_NAME = 'downward_longwave_flux_in_air_assuming_clear_sky_and_no_aerosol', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLAU', & - LONG_NAME = 'upward_longwave_flux_in_air_assuming_clear_sky_and_no_aerosol', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'SFCEM', & - LONG_NAME = 'longwave_flux_emitted_from_surface', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'SFCEM0', & - LONG_NAME = 'longwave_flux_emitted_from_surface_at_reference_time',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'LWS0', & - LONG_NAME = 'surface_absorbed_longwave_radiation_at_reference_time',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'DSFDTS', & - LONG_NAME = 'sensitivity_of_longwave_flux_emitted_from_surface_to_surface_temperature', & - UNITS = 'W m-2 K-1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'DSFDTS0', & - LONG_NAME = 'sensitivity_of_longwave_flux_emitted_from_surface_to_surface_temperature_at_reference_time', & - UNITS = 'W m-2 K-1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'TSREFF', & - LONG_NAME = 'surface_temperature', & - UNITS = 'K', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'OLR', & - LONG_NAME = 'upwelling_longwave_flux_at_toa', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'OLRA', & - LONG_NAME = 'upwelling_longwave_flux_at_toa_and_no_aerosol', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'OLC', & - LONG_NAME = 'upwelling_longwave_flux_at_toa_assuming_clear_sky',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'OLCC5', & - LONG_NAME = 'upwelling_longwave_flux_at_toa_assuming_clear_sky_masked_using_cldtt_LE_5',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'OLA', & - LONG_NAME = 'upwelling_longwave_flux_at_toa_assuming_clear_sky_and_no_aerosol',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - if (USE_RRTMG) then - do ibnd = 1,nbndlw - if (band_output_supported(ibnd)) then - write(bb,'(I0.2)') ibnd - write(wvn_rng,'(I0,"-",I0)') nint(wavenum1(ibnd)), nint(wavenum2(ibnd)) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'OLRB'//bb//'RG', & - LONG_NAME = 'upwelling_longwave_flux_at_TOA_in_RRTMG_band' & - //bb//' ('//trim(wvn_rng)//' cm-1)', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'TBRB'//bb//'RG', & - LONG_NAME = 'brightness_temperature_in_RRTMG_band' & - //bb//' ('//trim(wvn_rng)//' cm-1)', & - UNITS = 'K', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - end if - end do - end if - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLNS', & - LONG_NAME = 'surface_net_downward_longwave_flux', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLNSNA', & - LONG_NAME = 'surface_net_downward_longwave_flux_and_no_aerosol', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLNSC', & - LONG_NAME = 'surface_net_downward_longwave_flux_assuming_clear_sky',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'FLNSA', & - LONG_NAME = 'surface_net_downward_longwave_flux_assuming_clear_sky_and_no_aerosol',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'LWS', & - LONG_NAME = 'surface_absorbed_longwave_radiation', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'LWSA', & - LONG_NAME = 'surface_absorbed_longwave_radiation_and_no_aerosol', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'LCS', & - LONG_NAME = 'surface_absorbed_longwave_radiation_assuming_clear_sky',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'LCSC5', & - LONG_NAME = 'surface_absorbed_longwave_radiation_assuming_clear_sky_masked_using_cldtt_LE_5',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'LAS', & - LONG_NAME = 'surface_absorbed_longwave_radiation_assuming_clear_sky_and_no_aerosol',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDTMP', & - LONG_NAME = 'cloud_top_temperature', & - UNITS = 'K', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDPRS', & - LONG_NAME = 'cloud_top_pressure', & - UNITS = 'Pa', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'TAUIR', & - LONG_NAME = 'longwave_cloud_optical_thickness_at_800_cm-1',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDTT' , & - LONG_NAME = 'total_2D_cloud_area_fraction', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - -! Note: the four CLDxxLW diagnostics below represent super-layer cloud -! fractions based on the subcolumn cloud generation called in RRTMG LW. -! They are global fields but generated only at the LW REFRESH frequency, -! NOT at the heartbeat. As such, they are useful for diagnostic comparisons -! with CLDTT above and with the full CLDxx set from the Solar GC. But they -! should NOT be used to subsample fields that are produced on the model -! heartbeat (e.g. subsampling for cloud presence). - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDTTLW', & - LONG_NAME = 'total_cloud_area_fraction_rrtmg_lw_REFRESH', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDHILW', & - LONG_NAME = 'high-level_cloud_area_fraction_rrtmg_lw_REFRESH', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDMDLW', & - LONG_NAME = 'mid-level_cloud_area_fraction_rrtmg_lw_REFRESH', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDLOLW', & - LONG_NAME = 'low_level_cloud_area_fraction_rrtmg_lw_REFRESH', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - -! Irrad does not have a "real" internal state. To update the net_longwave_flux -! due to the change of surface temperature every time step, we keep -! several variables in the internal state. - -! !INTERNAL STATE: - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLX', & - LONG_NAME = 'net_downward_longwave_flux_in_air', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLC', & - LONG_NAME = 'net_downward_longwave_flux_in_air_for_clear_sky',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLA', & - LONG_NAME = 'net_downward_longwave_flux_in_air_for_clear_sky_and_no_aerosol', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLXD', & - LONG_NAME = 'downward_longwave_flux_in_air', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLXU', & - LONG_NAME = 'upward_longwave_flux_in_air', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLCD', & - LONG_NAME = 'downward_longwave_flux_in_air_for_clear_sky',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLCU', & - LONG_NAME = 'upward_longwave_flux_in_air_for_clear_sky', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLAD', & - LONG_NAME = 'downward_longwave_flux_in_air_for_clear_sky_and_no_aerosol',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLAU', & - LONG_NAME = 'upward_longwave_flux_in_air_for_clear_sky_and_no_aerosol',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'DFDTS', & - LONG_NAME = 'sensitivity_of_net_downward_longwave_flux_in_air_to_surface_temperature',& - UNITS = 'W m-2 K-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'DFDTSC', & - LONG_NAME = 'sensitivity_of_net_downward_longwave_flux_in_air_to_surface_temperature_for_clear_sky',& - UNITS = 'W m-2 K-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'DFDTSNA', & - LONG_NAME = 'sensitivity_of_net_downward_longwave_flux_in_air_to_surface_temperature_no_aerosol',& - UNITS = 'W m-2 K-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'DFDTSCNA', & - LONG_NAME = 'sensitivity_of_net_downward_longwave_flux_in_air_to_surface_temperature_for_clear_sky_no_aerosol',& - UNITS = 'W m-2 K-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'SFCEM', & - LONG_NAME = 'longwave_flux_emitted_from_surface', & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'TS', & - LONG_NAME = 'surface_temperature', & - UNITS = 'K', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLXA', & - LONG_NAME = 'net_downward_longwave_flux_in_air_and_no_aerosol',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLXAD', & - LONG_NAME = 'downward_longwave_flux_in_air_and_no_aerosol',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'FLXAU', & - LONG_NAME = 'upward_longwave_flux_in_air_and_no_aerosol',& - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__ ) - - if (USE_RRTMG) then - do ibnd = 1,nbndlw - if (band_output_supported(ibnd)) then - write(bb,'(I0.2)') ibnd - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'OLRB'//bb//'RG', & - LONG_NAME = 'upwelling_longwave_flux_at_TOA_in_RRTMG_band'//bb, & - UNITS = 'W m-2', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddInternalSpec(GC, & - SHORT_NAME = 'DOLRB'//bb//'RGDT', & - LONG_NAME = 'derivative_of_upwelling_longwave_flux_at_TOA'// & - '_in_RRTMG_band'//bb//'_wrt_surface_temp', & - UNITS = 'W m-2 K-1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - end if - end do - end if - -!EOS - -! Set the Profiling timers -! ------------------------ - - call MAPL_TimerAdd(GC, name="-LW_DRIVER" , __RC__) - call MAPL_TimerAdd(GC, name="--IRRAD" , __RC__) - call MAPL_TimerAdd(GC, name="---IRRAD_RUN" , __RC__) - call MAPL_TimerAdd(GC, name="---IRRAD_DATA" , __RC__) - call MAPL_TimerAdd(GC, name="----IRRAD_DATA_DEVICE" , __RC__) - call MAPL_TimerAdd(GC, name="----IRRAD_DATA_CONST" , __RC__) - call MAPL_TimerAdd(GC, name="---IRRAD_ALLOC" , __RC__) - call MAPL_TimerAdd(GC, name="---IRRAD_DEALLOC" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMG" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMG_RUN" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMG_INIT" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMG_FLIP" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_SETUP_1" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_SETUP_2" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_SETUP_3" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_SETUP_4" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_IO_1" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_IO_2" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_CLOUD_OPTICS" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_AEROSOL_SETUP" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_SUBSET" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_MCICA" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_GAS_OPTICS" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_RT" , __RC__) - call MAPL_TimerAdd(GC, name="---RRTMGP_POST" , __RC__) - call MAPL_TimerAdd(GC, name="--MISC" , __RC__) - call MAPL_TimerAdd(GC, name="---AEROSOLS" , __RC__) - call MAPL_TimerAdd(GC, name="-UPDATE_FLX" , __RC__) - -! Set generic init and final methods -! ---------------------------------- - - call MAPL_GenericSetServices(GC, __RC__) - - RETURN_(ESMF_SUCCESS) - - end subroutine SetServices - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -!BOP -! !IROUTINE: RUN -- Run method for the LW component - -! !INTERFACE: -subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC ) - -! !ARGUMENTS: - type(ESMF_GridComp), intent(inout) :: GC ! Gridded component - type(ESMF_State), intent(inout) :: IMPORT ! Import state - type(ESMF_State), intent(inout) :: EXPORT ! Export state - type(ESMF_Clock), intent(inout) :: CLOCK ! The clock - integer, optional, intent( out) :: RC ! Error code: - -! !DESCRIPTION: Periodically refreshes the fluxes and their derivatives -! w.r.t surface skin temperature. On every step it produces -! a linear estimate of the fluxes based on the instantaneous -! surface temperature. - -!EOP - - -! ErrLog Variables - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - character(len=ESMF_MAXSTR) :: COMP_NAME - -! Local derived type aliases - - type (MAPL_MetaComp), pointer :: MAPL - type (ESMF_Grid) :: ESMFGRID - type (ESMF_State) :: INTERNAL - type (ESMF_Alarm) :: ALARM - - integer :: IM, JM, LM - integer :: CalledLast - - type (ty_RRTMGP_state), pointer :: rrtmgp_state => null() - type (ty_RRTMGP_wrap) :: wrap - -! Pointers to internal - - real, pointer, dimension(:,: ) :: SFCEM_INT - real, pointer, dimension(:,: ) :: TS_INT - real, pointer, dimension(:,:,:) :: FLX_INT - real, pointer, dimension(:,:,:) :: FLXA_INT - real, pointer, dimension(:,:,:) :: FLC_INT - real, pointer, dimension(:,:,:) :: FLA_INT - real, pointer, dimension(:,:,:) :: FLXU_INT - real, pointer, dimension(:,:,:) :: FLXAU_INT - real, pointer, dimension(:,:,:) :: FLCU_INT - real, pointer, dimension(:,:,:) :: FLAU_INT - real, pointer, dimension(:,:,:) :: FLXD_INT - real, pointer, dimension(:,:,:) :: FLXAD_INT - real, pointer, dimension(:,:,:) :: FLCD_INT - real, pointer, dimension(:,:,:) :: FLAD_INT - - real, pointer, dimension(:,:,:) :: DFDTS - real, pointer, dimension(:,:,:) :: DFDTSNA - real, pointer, dimension(:,:,:) :: DFDTSC - real, pointer, dimension(:,:,:) :: DFDTSCNA - - real, external :: getco2 - -! Concerning what radiation to use - - logical :: USE_RRTMGP, USE_RRTMGP_SORAD - logical :: USE_RRTMG , USE_RRTMG_SORAD - logical :: USE_CHOU , USE_CHOU_SORAD - real :: RFLAG - -! Additional pointers for RRTMG - - real, pointer, dimension(:,: ) :: LONS - real, pointer, dimension(:,: ) :: LATS - - type (ESMF_VM) :: VM - integer :: CoresPerNode - integer :: COMM - - ! which bands require OLR output? - ! (only RRTMG currently; OLRBbbRG, TBRBbbRG) - real, pointer, dimension(:,:) :: ptr2d - logical :: band_output (nbndlw) - integer :: ibnd - character*2 :: bb - -!============================================================================= - -! Begin... - -! Get the target components name and set-up traceback handle. -! ----------------------------------------------------------- - - Iam = "Run" - call ESMF_GridCompGet( GC, name=COMP_NAME, GRID=ESMFGRID, RC=STATUS ) - VERIFY_(STATUS) - Iam = trim(COMP_NAME) // Iam - -! Get my internal MAPL_Generic state -!----------------------------------- - - call MAPL_GetObjectFromGC ( GC, MAPL, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"TOTAL") - -! Get parameters from generic state. The RUNALARM is used to control -! the calling of the full transfer calculation -!------------------------------------------------------------------- - - call MAPL_Get(MAPL, & - IM=IM, JM=JM, LM=LM, & - LONS=LONS, LATS=LATS, & - RUNALARM = ALARM, & - INTERNAL_ESMF_STATE = INTERNAL, & - RC=STATUS ) - VERIFY_(STATUS) - -! Get number of cores per node for RRTMG GPU -! ------------------------------------------ - - call ESMF_VMGetCurrent(VM, RC=STATUS) - VERIFY_(STATUS) - - call ESMF_VmGet(VM, mpiCommunicator=COMM, RC=STATUS) - VERIFY_(STATUS) - - CoresPerNode = MAPL_CoresPerNodeGet(COMM,RC=STATUS) - VERIFY_(STATUS) - -! Decide which radiation to use -! RRTMGP dominates RRTMG dominates Chou-Suarez -! Chou-Suarez is the default if nothing else asked for in Resource file -! These USE_ flags are shared globally by contained LW_Driver() and Update_Flx() -!------------------------------------------------------------------------------- - - ! first for IRRAD - USE_RRTMGP = .false. - USE_RRTMG = .false. - USE_CHOU = .false. - call MAPL_GetResource( MAPL, RFLAG ,'USE_RRTMGP_IRRAD:', DEFAULT=0., __RC__) - USE_RRTMGP = RFLAG /= 0. - if (.not. USE_RRTMGP) then - call MAPL_GetResource( MAPL, RFLAG ,'USE_RRTMG_IRRAD:', DEFAULT=0., __RC__) - USE_RRTMG = RFLAG /= 0. - USE_CHOU = .not.USE_RRTMG - end if - - ! then SOLAR - USE_RRTMGP_SORAD = .false. - USE_RRTMG_SORAD = .false. - USE_CHOU_SORAD = .false. - call MAPL_GetResource( MAPL, RFLAG ,'USE_RRTMGP_SORAD:', DEFAULT=0., __RC__) - USE_RRTMGP_SORAD = RFLAG /= 0. - if (.not. USE_RRTMGP_SORAD) then - call MAPL_GetResource( MAPL, RFLAG ,'USE_RRTMG_SORAD:', DEFAULT=0., __RC__) - USE_RRTMG_SORAD = RFLAG /= 0. - USE_CHOU_SORAD = .not.USE_RRTMG_SORAD - end if - - ! select which bands require OLRB output ... - ! ------------------------------------------ - ! Currently only available for RRTMG - ! must be supported AND requested by export 'OLRBbbRG' OR 'TBRBbbRG' - if (USE_RRTMG) then - do ibnd = 1,nbndlw - band_output(ibnd) = .false. - if (.not. band_output_supported(ibnd)) cycle - write(bb,'(I0.2)') ibnd - call MAPL_GetPointer(EXPORT, ptr2d, 'OLRB'//bb//'RG', __RC__) - if (associated(ptr2d)) then - band_output(ibnd) = .true. - cycle - end if - call MAPL_GetPointer(EXPORT, ptr2d, 'TBRB'//bb//'RG', __RC__) - if (associated(ptr2d)) then - band_output(ibnd) = .true. - cycle - end if - end do - end if - -! Pointers to Internals; these are needed by both Update and Refresh -!------------------------------------------------------------------- - - call MAPL_GetPointer(INTERNAL, SFCEM_INT, 'SFCEM', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLX_INT, 'FLX', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLXA_INT, 'FLXA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLC_INT, 'FLC', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLA_INT, 'FLA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLXU_INT, 'FLXU', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLXAU_INT, 'FLXAU', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLCU_INT, 'FLCU', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLAU_INT, 'FLAU', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLXD_INT, 'FLXD', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLXAD_INT, 'FLXAD', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLCD_INT, 'FLCD', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FLAD_INT, 'FLAD', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, TS_INT, 'TS', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, DFDTS, 'DFDTS', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, DFDTSC, 'DFDTSC',RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, DFDTSNA, 'DFDTSNA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, DFDTSCNA, 'DFDTSCNA',RC=STATUS); VERIFY_(STATUS) - -! Determine calling sequence -!--------------------------- - - call MAPL_GetResource(MAPL,CalledLast,'CALLED_LAST:', default=1, RC=STATUS) - VERIFY_(STATUS) - -! Fill exported fluxed based on latest Ts -!---------------------------------------- - - if(CalledLast/=0) then - call MAPL_TimerOn(MAPL,"-UPDATE_FLX") - call Update_Flx( IM,JM,LM, RC=STATUS ) - VERIFY_(STATUS) - call MAPL_TimerOff(MAPL,"-UPDATE_FLX") - endif - -! If it is time, refresh internal state. -!--------------------------------------- - - if ( ESMF_AlarmIsRinging (ALARM, RC=STATUS) ) then - call ESMF_AlarmRingerOff(ALARM, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"-LW_DRIVER") - call LW_Driver( IM,JM,LM,LATS,LONS,CoresPerNode, RC=STATUS ) - VERIFY_(STATUS) - call MAPL_TimerOff(MAPL,"-LW_DRIVER") - - endif - -! Fill exported fluxes based on latest Ts -!---------------------------------------- - - if(CalledLast==0) then - call MAPL_TimerOn(MAPL,"-UPDATE_FLX") - call Update_Flx( IM,JM,LM, RC=STATUS ) - VERIFY_(STATUS) - call MAPL_TimerOff(MAPL,"-UPDATE_FLX") - endif - - call MAPL_TimerOff(MAPL,"TOTAL") - -! All done -!----------- - - RETURN_(ESMF_SUCCESS) - -contains - - - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - subroutine Lw_Driver(IM,JM,LM,LATS,LONS,CoresPerNode,RC) - - ! RRTMGP module uses - use mo_rte_kind, only: wp - use mo_gas_concentrations, only: ty_gas_concs - use mo_cloud_optics, only: ty_cloud_optics - use mo_cloud_sampling, only: draw_samples, & - sampled_mask_max_ran, sampled_mask_exp_ran - use mo_optical_props, only: ty_optical_props, & - ty_optical_props_arry, ty_optical_props_1scl, & - ty_optical_props_2str, ty_optical_props_nstr - use mo_source_functions, only: ty_source_func_lw - use mo_fluxes, only: ty_fluxes_broadband - use mo_rte_lw, only: rte_lw - use mo_load_coefficients, only: load_and_init - use mo_load_cloud_coefficients, only: load_cld_lutcoeff, load_cld_padecoeff - - ! Type of MKL VSL Basic RNGs - ! (1) Mersenne Twister types - ! brng = VSL_BRNG_MT19937 - ! Alternatives are VSL_BRNG_SFMT19937, maybe VSL_BRNG_MT2203? - ! (2) Counter based PRNGs (CBPRNGs) - ! brng = VSL_BRNG_PHILOX4X32X10 ! 10-round Philox 4x32 counter, 2x32 key - ! Alternatives are VSL_BRNG_ARS5 ! faster if AES-NI instructions hardware supported - ! -#ifdef HAVE_MKL - use MKL_VSL_TYPE - use mo_rng_mklvsl_plus, only: ty_rng_mklvsl_plus -#endif - - integer, intent(IN ) :: IM, JM, LM, CoresPerNode - real, dimension(IM,JM), intent(IN ) :: LATS, LONS - integer, optional, intent(OUT) :: RC - -! Locals - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - -! local variables - - logical, parameter :: TRACE = .true. - - integer, parameter :: NS = 1 ! number of sub-grid surface types - - integer, parameter :: KICE = 1 - integer, parameter :: KLIQUID = 2 - integer, parameter :: KRAIN = 3 - integer, parameter :: KSNOW = 4 - - real :: CO2 - - real :: TAUCRIT ! pressure separating low and middle clouds - real :: PRS_LOW_MID ! pressure separating low and middle clouds - real :: PRS_MID_HIGH ! pressure separating low and high clouds - integer :: LCLDMH ! model level separating high and middle clouds - integer :: LCLDLM ! model level separating low and middle clouds - - integer :: NUM_BANDS ! Holds value from AGCM.rc - integer :: TOTAL_RAD_BANDS - - character(len=ESMF_MAXSTR), pointer :: AEROSOLS(:) - - integer :: i, j, K, L, YY, DOY - - real, dimension (IM,JM) :: T2M ! fractional cover of sub-grid regions - real, dimension (IM,JM,NS) :: FS ! fractional cover of sub-grid regions - real, dimension (IM,JM,NS) :: TG ! land or ocean surface temperature - real, dimension (IM,JM,NS,10) :: EG ! land or ocean surface emissivity - real, dimension (IM,JM,NS) :: TV ! vegetation temperature - real, dimension (IM,JM,NS,10) :: EV ! vegetation emissivity - real, dimension (IM,JM,NS,10) :: RV ! vegetation reflectivity - real, dimension (IM,JM,LM,4) :: CWC ! in-cloud cloud water mixing ratio - real, dimension (IM,JM,LM,4) :: REFF ! effective radius of cloud particles - real, dimension (IM,JM,LM,10) :: TAUDIAG - real, dimension (IM,JM,LM) :: RH, PL - -! Local Aerosol Variables -! ----------------------- - - REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: TAUA - REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: SSAA - REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: ASYA - - REAL :: X - INTEGER :: IB, NA - - integer, parameter :: NB_CHOU = 10 ! Number of bands in IRRAD calcs for Chou - integer, parameter :: NB_RRTMG = 16 ! Number of bands in IRRAD calcs for RRTMG - integer, parameter :: NB_RRTMGP = 16 ! Number of bands in IRRAD calcs for RRTMGP - - integer, parameter :: NB_CHOU_SORAD = 8 ! Number of bands in SORAD calcs for Chou - integer, parameter :: NB_RRTMG_SORAD = 14 ! Number of bands in SORAD calcs for RRTMG - integer, parameter :: NB_RRTMGP_SORAD = 14 ! Number of bands in SORAD calcs for RRTMGP - - integer :: NB_IRRAD ! Number of bands in IRRAD calcs - - INTEGER :: OFFSET - -! AERO state variables -! -------------------- - type (ESMF_State) :: AERO - type (ESMF_Field) :: AS_FIELD - character(len=ESMF_MAXSTR) :: AS_FIELD_NAME - type (ESMF_Field) :: AS_FIELD_Q - integer :: AS_STATUS - real, pointer, dimension(:,:,:) :: AS_PTR_3D - real, pointer, dimension(:,:,:) :: AS_PTR_PLE - real, pointer, dimension(:,:,:) :: AS_PTR_T - real, pointer, dimension(:,:,:) :: AS_PTR_Q - real, allocatable, dimension(:,:,:) :: AS_ARR_RH - real, allocatable, dimension(:,:,:) :: AS_ARR_PL - - real, allocatable, dimension(:,:,:,:):: AEROSOL_EXT - real, allocatable, dimension(:,:,:,:):: AEROSOL_SSA - real, allocatable, dimension(:,:,:,:):: AEROSOL_ASY - - real, pointer, dimension(:,:,:) :: VAR_PTR_3D - - logical :: implements_aerosol_optics - - integer :: band - -! Variables for RRTMG Code -! ------------------------ - - integer :: iceflglw ! Flag for ice particle specification - integer :: liqflglw ! Flag for liquid droplet specification - logical :: Ts_derivs ! calculate Tsurf derivatives of upward fluxes - integer :: NN, IJ, LV - - real, allocatable, dimension(:,:) :: FCLD_R - real, allocatable, dimension(:,:) :: TLEV_R ! Edge Level temperature - real, allocatable, dimension(:,:) :: PLE_R ! Reverse of level pressure - real, allocatable, dimension(:,:) :: ZM_R ! Reverse of layer height - real, allocatable, dimension(:,:) :: EMISS ! Surface emissivity at 16 RRTMG bands - real, allocatable, dimension(:,:) :: CLIQWP ! Cloud liquid water path - real, allocatable, dimension(:,:) :: CICEWP ! Cloud ice water path - real, allocatable, dimension(:,:) :: RELIQ ! Cloud liquid effective radius - real, allocatable, dimension(:,:) :: REICE ! Cloud ice effective radius - real, allocatable, dimension(:,:,:) :: TAUAER - real, allocatable, dimension(:,:) :: PL_R, T_R, Q_R, O2_R, O3_R - real, allocatable, dimension(:,:) :: CO2_R, CH4_R, N2O_R, CFC11_R, CFC12_R, CFC22_R, CCL4_R - real, allocatable, dimension(:) :: TSFC - real, allocatable, dimension(:,:) :: UFLX, DFLX, UFLXC, DFLXC, DUFLX_DTS, DUFLXC_DTS - integer, allocatable, dimension(:,:) :: CLEARCOUNTS - real, allocatable, dimension(:) :: ALAT - real, allocatable, dimension(:,:) :: OLRBRG, DOLRBRG_DTS - - ! pmn: should we update these? - real, parameter :: O2 = 0.2090029E+00 ! preexisting - real, parameter :: N2 = 0.7906400E+00 ! approx from rrtmgp input file - real, parameter :: CCL4 = 0.1105000E-09 ! preexisting - real, parameter :: CO = 0. ! currently zero - - ! variables for RRTMGP code - ! ------------------------- - - ! conversion factor (see below) - real(wp), parameter :: cwp_fac = real(1000./MAPL_GRAV,kind=wp) - - ! input arrays: dimensions (col, lay) - real(wp), dimension(:,:), allocatable :: p_lay, t_lay, p_lev, dp_wp, cf_wp - real(wp), dimension(:,:), allocatable, target :: t_lev - - ! surface input arrays - real(wp), dimension(:), allocatable :: t_sfc - real(wp), dimension(:,:), allocatable :: emis_sfc ! first dim is band - - ! fluxes - real(wp), dimension(:,:), allocatable, target :: flux_up_clrsky, flux_dn_clrsky, dfupdts_clrsky, & - flux_up_clrnoa, flux_dn_clrnoa, dfupdts_clrnoa, & - flux_up_allsky, flux_dn_allsky, dfupdts_allsky, & - flux_up_allnoa, flux_dn_allnoa, dfupdts_allnoa - - ! derived types for interacting with RRTMGP - type(ty_gas_optics_rrtmgp), pointer :: k_dist - type(ty_gas_concs) :: gas_concs, gas_concs_subset - type(ty_cloud_optics) :: cloud_optics - type(ty_source_func_lw) :: sources - type(ty_fluxes_broadband) :: fluxes_clrsky, fluxes_clrnoa, & - fluxes_allsky, fluxes_allnoa - - ! The band-space (ncol,nlay,nbnd) aerosol and in-cloud optical properties - ! Polymorphic with dynamic type (#streams) defined later - class(ty_optical_props_arry), allocatable :: & - cloud_props, cloud_props_subset, & - aer_props, aer_props_subset - - ! The g-point cloud optical properties used for mcICA - class(ty_optical_props_arry), allocatable :: cloud_props_gpt - - ! The g-point optical properties used in RT calculations for clean|dirty exports - ! Polymorphic with dynamic type (#streams) defined later - class(ty_optical_props_arry), allocatable :: clean_optical_props, dirty_optical_props - - ! RRTMGP locals - logical :: top_at_1, u2s, partial_block - logical :: need_dirty_optical_props, need_cloud_optical_props - logical :: export_clrnoa, export_clrsky, export_allnoa, export_allsky - logical :: calc_clrnoa, calc_clrsky, calc_allnoa, calc_allsky - integer :: ncol, nbnd, ngpt, nmom, nga, icergh - integer :: b, nBlocks, colS, colE, ncols_subset, & - partial_blockSize, icol, isub - integer :: iBeg, iEnd, jBeg, jEnd - integer :: IM_World, JM_World, dims(3) - character(len=ESMF_MAXPATHLEN) :: k_dist_file, cloud_optics_file - character(len=ESMF_MAXSTR) :: error_msg - character(len=128) :: cloud_optics_type, cloud_overlap_type - real(wp), dimension(LM+1) :: tlev_wp - type (ESMF_Time) :: ReferenceTime - type (ESMF_TimeInterval) :: RefreshInterval - - ! gridcolum presence of liq and ice clouds (ncol,nlay) - real(wp), dimension(:,:), allocatable :: clwp, ciwp - - ! a column random number generator -#ifdef HAVE_MKL - type(ty_rng_mklvsl_plus) :: rng -#endif - integer, dimension(:), allocatable :: seeds - - ! uniform random numbers need by mcICA (ngpt,nlay,cols) - real(wp), dimension(:,:,:), allocatable :: urand - - ! Cloud mask from overlap scheme (cols,nlay,ngpt) - logical, dimension(:,:,:), allocatable :: cld_mask - - ! TEMP ... see below - real(wp) :: press_ref_min, ptop - real(wp) :: temp_ref_min, tmin - real(wp), parameter :: ptop_increase_OK_fraction = 0.01_wp - real(wp), parameter :: tmin_increase_OK_Kelvin = 10.0_wp - - ! block size for column processing - ! set for efficiency from resource file - integer :: rrtmgp_blockSize - -! For aerosol - integer :: in - real :: xx - type (ESMF_Time) :: CURRENTTIME - real, dimension (LM+1) :: TLEV - real, dimension (LM) :: DP - -! pointers to import -!------------------- - - real, pointer, dimension(: ) :: PREF - real, pointer, dimension(:,: ) :: TS - real, pointer, dimension(:,: ) :: EMIS - real, pointer, dimension(:,:,:) :: PLE, T, Q, O3 - real, pointer, dimension(:,:,:) :: CH4, N2O, CFC11, CFC12, HCFC22 - real, pointer, dimension(:,:,:) :: QL, QI, QR, QS - real, pointer, dimension(:,:,:) :: RI, RL, RR, RS, FCLD - real, pointer, dimension(:,:,:,:) :: RAERO - real, pointer, dimension(:,:,:) :: QAERO - -! pointers to exports -!-------------------- - - real, pointer, dimension(:,: ) :: CLDPRS - real, pointer, dimension(:,: ) :: CLDTMP - real, pointer, dimension(:,:,:) :: TAUIR - real, pointer, dimension(:,: ) :: CLDTTLW - real, pointer, dimension(:,: ) :: CLDHILW - real, pointer, dimension(:,: ) :: CLDMDLW - real, pointer, dimension(:,: ) :: CLDLOLW - real, pointer, dimension(:,: ) :: TSREFF - real, pointer, dimension(:,: ) :: SFCEM - real, pointer, dimension(:,: ) :: LWS0 - real, pointer, dimension(:,: ) :: DSFDTS - - ! for compact multi-export handling - real, pointer, dimension(:,: ) :: ptr2d - real, pointer, dimension(:,:,:) :: ptr3d - type S_ - character(len=:), allocatable :: str - end type S_ - type(S_), allocatable :: list(:) - -! helper for testing RRTMGP error status on return; -! allows line number reporting cf. original call method -#define TEST_(A) error_msg = A; if (trim(error_msg)/="") then; _ASSERT(.false.,"RRTMGP Error: "//trim(error_msg)); endif - -#ifdef _CUDA -! MATMAT CUDA Variables - type(dim3) :: Grid, Block - integer :: blocksize -#endif - integer :: PARTITION_SIZE - -! Begin... -!---------- - - IAm = "Lw_Driver" - call MAPL_TimerOn(MAPL,"--MISC") - -! Pointer to Imports used only for full transfer calculation -!----------------------------------------------------------- - - call MAPL_GetPointer(IMPORT, PLE, 'PLE', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, T, 'T', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, Q, 'QV', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QL, 'QL', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QI, 'QI', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QR, 'QR', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QS, 'QS', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, RL, 'RL', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, RI, 'RI', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, RR, 'RR', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, RS, 'RS', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, O3, 'O3', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, CH4, 'CH4', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, N2O, 'N2O', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, CFC11, 'CFC11', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, CFC12, 'CFC12', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, HCFC22, 'HCFC22', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, FCLD, 'FCLD', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, EMIS, 'EMIS', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, PREF, 'PREF', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, TS, 'TS', RC=STATUS); VERIFY_(STATUS) - - PL = 0.5*(PLE(:,:,:UBOUND(PLE,3)-1)+PLE(:,:,LBOUND(PLE,3)+1:)) - RH = Q/GEOS_QSAT(T,PL,PASCALS=.true.) - -! Get trace gases concentrations by volume (pppv) from configuration -!------------------------------------------------------------------- - - call MAPL_GetResource( MAPL, CO2, 'CO2:', RC=STATUS) - VERIFY_(STATUS) - - if(CO2<0.0) then - call ESMF_ClockGet(CLOCK, currTIME=CURRENTTIME, RC=STATUS) - VERIFY_(STATUS) - call ESMF_TimeGet (CURRENTTIME, YY=YY, DayOfYear=DOY, RC=STATUS) - VERIFY_(STATUS) - CO2 = GETCO2(YY,DOY) - endif - - call MAPL_GetResource( MAPL, PRS_LOW_MID, 'PRS_LOW_MID_CLOUDS:', DEFAULT=70000., & - RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource( MAPL, PRS_MID_HIGH, 'PRS_MID_HIGH_CLOUDS:', DEFAULT=40000., & - RC=STATUS) - VERIFY_(STATUS) - -! Prepare for aerosol optics calculations -!_--------------------------------------- - - ! Set the offset for the IRRAD aerosol bands - if (USE_RRTMGP_SORAD) then - OFFSET = NB_RRTMGP_SORAD - else if (USE_RRTMG_SORAD) then - OFFSET = NB_RRTMG_SORAD - else - OFFSET = NB_CHOU_SORAD - end if - - ! Set number of IRRAD bands for aerosol optics - if (USE_RRTMGP) then - NB_IRRAD = NB_RRTMGP - else if (USE_RRTMG) then - NB_IRRAD = NB_RRTMG - else - NB_IRRAD = NB_CHOU - end if - -! Test to see if AGCM.rc is set up correctly for the Radiation selected -!---------------------------------------------------------------------- - - call MAPL_GetResource( MAPL, NUM_BANDS ,'NUM_BANDS:', RC=STATUS) - VERIFY_(STATUS) - - TOTAL_RAD_BANDS = NB_IRRAD - if (USE_RRTMGP_SORAD) then - TOTAL_RAD_BANDS = TOTAL_RAD_BANDS + NB_RRTMGP_SORAD - else if (USE_RRTMG_SORAD) then - TOTAL_RAD_BANDS = TOTAL_RAD_BANDS + NB_RRTMG_SORAD - else - TOTAL_RAD_BANDS = TOTAL_RAD_BANDS + NB_CHOU_SORAD - end if - - if (NUM_BANDS /= TOTAL_RAD_BANDS) then - if (MAPL_am_I_Root()) then - write (*,*) "NUM_BANDS is not set up correctly for the radiation combination selected:" - write (*,*) " IRRAD RRTMG: ", USE_RRTMGP , USE_RRTMG , USE_CHOU - write (*,*) " SORAD RRTMG: ", USE_RRTMGP_SORAD, USE_RRTMG_SORAD, USE_CHOU_SORAD - write (*,*) "Please check that your optics tables and NUM_BANDS are correct." - end if - _ASSERT(.FALSE.,'Radiation NUM_BANDS inconsistency!') - end if - -! Compute surface air temperature ("2 m") adiabatically -!------------------------------------------------------ - - T2M = T(:,:,LM)*(0.5*(1.0 + PLE(:,:,LM-1)/PLE(:,:,LM)))**(-MAPL_KAPPA) - -! For now, use the same emissivity for all bands -!----------------------------------------------- - - do K = 1, 10 - EG(:,:,1,K) = EMIS(:,:) - end do - -! For now, hardwire vegetation and aerosol parameters -!---------------------------------------------------- - - FS = 1.0 - TG(:,:,1) = TS - TV(:,:,1) = TS - EV = 0.0 - RV = 0.0 - -! Copy cloud constituent properties into contiguous buffers -!---------------------------------------------------------- - - CWC (:,:,:,KICE ) = QI - CWC (:,:,:,KLIQUID) = QL - CWC (:,:,:,KRAIN ) = QR - CWC (:,:,:,KSNOW ) = QS - - REFF(:,:,:,KICE ) = RI * 1.0e6 - REFF(:,:,:,KLIQUID) = RL * 1.0e6 - REFF(:,:,:,KRAIN ) = RR * 1.0e6 - REFF(:,:,:,KSNOW ) = RS * 1.0e6 - -! Determine the model level separating high-middle and low-middle clouds -!----------------------------------------------------------------------- - - _ASSERT(PRS_MID_HIGH > PREF(1) , 'mid-high pressure band boundary too high!') - _ASSERT(PRS_LOW_MID > PRS_MID_HIGH, 'pressure band misordering!') - _ASSERT(PRS_LOW_MID < PREF(LM) , 'low-mid pressure band boundary too low!') - - ! find mid-high interface level - k = 1 - do while ( PREF(k) < PRS_MID_HIGH ) - k=k+1 - end do - LCLDMH = k - ! Guaranteed that LCLDMH > 1 (by first ASSERT above) - ! and that PREF(LCLDMH) >= PRS_MID_HIGH (by while loop) - - ! find low-mid interface level - do while ( PREF(k) < PRS_LOW_MID ) - k=k+1 - end do - LCLDLM = k - ! Guaranteed that LCLDLM <= LM (by third assert above) - ! and that PREF(LCLDLM) >= PRS_LOW_MID (by while loop) - - ! But it's still possible that LCLDLM == LCLDMH if the - ! interface pressures are too close. We now ASSERT to - ! prevent this. - _ASSERT(LCLDMH < LCLDLM, 'PRS_LOW_MID and PRS_MID_HIGH are too close!') - - ! now we have 1 < LCLDMH < LCLDLM <= LM and can use: - ! layers [1, LCLDMH-1] are in high pressure band - ! layers [LCLDMH, LCLDLM-1] are in mid pressure band - ! layers [LCLDLM, LM ] are in low pressure band - - call MAPL_GetPointer(EXPORT, CLDTTLW, 'CLDTTLW', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLDHILW, 'CLDHILW', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLDMDLW, 'CLDMDLW', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLDLOLW, 'CLDLOLW', RC=STATUS); VERIFY_(STATUS) - - ! ------------------ - ! Begin aerosol code - ! ------------------ - - ! Allocate per-band aerosol arrays - ! -------------------------------- - - ALLOCATE(TAUA(IM,JM,LM,NB_IRRAD), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(SSAA(IM,JM,LM,NB_IRRAD), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(ASYA(IM,JM,LM,NB_IRRAD), STAT = STATUS) - VERIFY_(STATUS) - - ! Zero out aerosol arrays. If NA == 0, these zeroes are then used inside IRRAD. - ! ----------------------------------------------------------------------------- - NA = 0 - - TAUA = 0.0 - SSAA = 0.0 - ASYA = 0.0 - - ! If we have aerosols, accumulate the arrays - ! ------------------------------------------ - - call MAPL_TimerOn(MAPL,"---AEROSOLS") - - call ESMF_StateGet(IMPORT, 'AERO', AERO, RC=STATUS) - VERIFY_(STATUS) - - call ESMF_AttributeGet(aero, name='implements_aerosol_optics_method', & - value=implements_aerosol_optics, RC=STATUS) - VERIFY_(STATUS) - - RADIATIVELY_ACTIVE_AEROSOLS: if (implements_aerosol_optics) then - - ! set RH for aerosol optics - call ESMF_AttributeGet(AERO, name='relative_humidity_for_aerosol_optics', value=AS_FIELD_NAME, RC=STATUS) - VERIFY_(STATUS) - - if (AS_FIELD_NAME /= '') then - call MAPL_GetPointer(AERO, AS_PTR_3D, trim(AS_FIELD_NAME), RC=STATUS) - VERIFY_(STATUS) - - AS_PTR_3D = RH - end if - - ! set PLE for aerosol optics - call ESMF_AttributeGet(AERO, name='air_pressure_for_aerosol_optics', value=AS_FIELD_NAME, RC=STATUS) - VERIFY_(STATUS) - - if (AS_FIELD_NAME /= '') then - call MAPL_GetPointer(AERO, AS_PTR_3D, trim(AS_FIELD_NAME), RC=STATUS) - VERIFY_(STATUS) - - AS_PTR_3D = PLE - end if - - ! allocate memory for total aerosol ext, ssa and asy at all solar bands - allocate(AEROSOL_EXT(IM,JM,LM,NB_IRRAD), & - AEROSOL_SSA(IM,JM,LM,NB_IRRAD), & - AEROSOL_ASY(IM,JM,LM,NB_IRRAD), stat=STATUS) - VERIFY_(STATUS) - - AEROSOL_EXT = 0.0 - AEROSOL_SSA = 0.0 - AEROSOL_ASY = 0.0 - - ! compute aerosol optics at all solar bands - IR_BANDS: do band = 1, NB_IRRAD - call ESMF_AttributeSet(AERO, name='band_for_aerosol_optics', value=(OFFSET+band), RC=STATUS) - VERIFY_(STATUS) - - ! execute the aero provider's optics method - call ESMF_MethodExecute(AERO, label="run_aerosol_optics", RC=STATUS) - VERIFY_(STATUS) - - ! EXT from AERO_PROVIDER - call ESMF_AttributeGet(AERO, name='extinction_in_air_due_to_ambient_aerosol', value=AS_FIELD_NAME, RC=STATUS) - VERIFY_(STATUS) - - if (AS_FIELD_NAME /= '') then - call MAPL_GetPointer(AERO, AS_PTR_3D, trim(AS_FIELD_NAME), RC=STATUS); VERIFY_(STATUS) - - if (associated(AS_PTR_3D)) then - AEROSOL_EXT(:,:,:,band) = AS_PTR_3D - end if - end if - - ! SSA from AERO_PROVIDER - call ESMF_AttributeGet(AERO, name='single_scattering_albedo_of_ambient_aerosol', value=AS_FIELD_NAME, RC=STATUS) - VERIFY_(STATUS) - - if (AS_FIELD_NAME /= '') then - call MAPL_GetPointer(AERO, AS_PTR_3D, trim(AS_FIELD_NAME), RC=STATUS); VERIFY_(STATUS) - - if (associated(AS_PTR_3D)) then - AEROSOL_SSA(:,:,:,band) = AS_PTR_3D - end if - end if - - ! ASY from AERO_PROVIDER - call ESMF_AttributeGet(AERO, name='asymmetry_parameter_of_ambient_aerosol', value=AS_FIELD_NAME, RC=STATUS) - VERIFY_(STATUS) - - if (AS_FIELD_NAME /= '') then - call MAPL_GetPointer(AERO, AS_PTR_3D, trim(AS_FIELD_NAME), RC=STATUS) - VERIFY_(STATUS) - - if (associated(AS_PTR_3D)) then - AEROSOL_ASY(:,:,:,band) = AS_PTR_3D - end if - end if - end do IR_BANDS - - NA = 3 - - TAUA = AEROSOL_EXT - SSAA = AEROSOL_SSA - ASYA = AEROSOL_ASY - - deallocate(AEROSOL_EXT, __STAT__) - deallocate(AEROSOL_SSA, __STAT__) - deallocate(AEROSOL_ASY, __STAT__) - - end if RADIATIVELY_ACTIVE_AEROSOLS - - call MAPL_TimerOff(MAPL,"---AEROSOLS") - - call MAPL_TimerOff(MAPL,"--MISC") - - SCHEME: if (USE_CHOU) then - - call MAPL_TimerOn (MAPL,"--IRRAD",RC=STATUS) - VERIFY_(STATUS) - -#ifdef _CUDA - - call MAPL_GetResource(MAPL,BLOCKSIZE,'BLOCKSIZE:',DEFAULT=128,RC=STATUS) - VERIFY_(STATUS) - - Block = dim3(blocksize,1,1) - Grid = dim3(ceiling(real(IM*JM)/real(blocksize)),1,1) - - _ASSERT(LM <= GPU_MAXLEVS,'needs informative message') ! If this is tripped, ESMA_arch.mk must be edited. - - _ASSERT(NS == MAXNS,'needs informative message') ! If this is tripped, the local GNUmakefile - ! must be edited. - - call MAPL_TimerOn(MAPL,"---IRRAD_ALLOC",RC=STATUS) - VERIFY_(STATUS) - - ! ---------------------- - ! Allocate device arrays - ! ---------------------- - - ! Inputs - ! ------ - - ALLOCATE(PLE_DEV(IM*JM,LM+1), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(TA_DEV(IM*JM,LM), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(WA_DEV(IM*JM,LM), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(OA_DEV(IM*JM,LM), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(TB_DEV(IM*JM), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(N2O_DEV(IM*JM,LM), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(CH4_DEV(IM*JM,LM), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(CFC11_DEV(IM*JM,LM), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(CFC12_DEV(IM*JM,LM), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(CFC22_DEV(IM*JM,LM), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(FS_DEV(IM*JM,NS), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(TG_DEV(IM*JM,NS), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(EG_DEV(IM*JM,NS,10), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(TV_DEV(IM*JM,NS), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(EV_DEV(IM*JM,NS,10), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(RV_DEV(IM*JM,NS,10), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(CWC_DEV(IM*JM,LM,4), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(FCLD_DEV(IM*JM,LM), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(REFF_DEV(IM*JM,LM,4), STAT=STATUS) - VERIFY_(STATUS) - - ALLOCATE(TAUA_DEV(IM*JM,LM,NB_CHOU), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(SSAA_DEV(IM*JM,LM,NB_CHOU), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(ASYA_DEV(IM*JM,LM,NB_CHOU), STAT = STATUS) - VERIFY_(STATUS) - - ! Constant arrays in global memory - ! -------------------------------- - - ALLOCATE(C1(NX,NC), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(C2(NX,NC), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(C3(NX,NC), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(OO1(NX,NO), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(OO2(NX,NO), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(OO3(NX,NO), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(H11(NX,NH), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(H12(NX,NH), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(H13(NX,NH), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(H21(NX,NH), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(H22(NX,NH), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(H23(NX,NH), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(H81(NX,NH), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(H82(NX,NH), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(H83(NX,NH), STAT=STATUS) - VERIFY_(STATUS) - - ! Outputs - ! ------- - - ALLOCATE(FLXU_DEV(IM*JM,LM+1), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(FLXAU_DEV(IM*JM,LM+1), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(FLCU_DEV(IM*JM,LM+1), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(FLAU_DEV(IM*JM,LM+1), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(FLXD_DEV(IM*JM,LM+1), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(FLXAD_DEV(IM*JM,LM+1), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(FLCD_DEV(IM*JM,LM+1), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(FLAD_DEV(IM*JM,LM+1), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(DFDTS_DEV(IM*JM,LM+1), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(SFCEM_DEV(IM*JM), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(TAUDIAG_DEV(IM*JM,LM,10), STAT=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOff(MAPL,"---IRRAD_ALLOC",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"---IRRAD_DATA",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"----IRRAD_DATA_DEVICE",RC=STATUS) - VERIFY_(STATUS) - - ! -------------------------- - ! Copy host arrays to device - ! -------------------------- - - ! Inputs - ! ------ - - STATUS = cudaMemcpy(PLE_DEV,PLE,IM*JM*(LM+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(TA_DEV,T,IM*JM*LM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(WA_DEV,Q,IM*JM*LM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(OA_DEV,O3,IM*JM*LM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(TB_DEV,T2M,IM*JM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(N2O_DEV,N2O,IM*JM*LM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(CH4_DEV,CH4,IM*JM*LM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(CFC11_DEV,CFC11,IM*JM*LM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(CFC12_DEV,CFC12,IM*JM*LM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(CFC22_DEV,HCFC22,IM*JM*LM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FS_DEV,FS,IM*JM*NS) - VERIFY_(STATUS) - STATUS = cudaMemcpy(TG_DEV,TG,IM*JM*NS) - VERIFY_(STATUS) - STATUS = cudaMemcpy(EG_DEV,EG,IM*JM*NS*10) - VERIFY_(STATUS) - STATUS = cudaMemcpy(TV_DEV,TV,IM*JM*NS) - VERIFY_(STATUS) - STATUS = cudaMemcpy(EV_DEV,EV,IM*JM*NS*10) - VERIFY_(STATUS) - STATUS = cudaMemcpy(RV_DEV,RV,IM*JM*NS*10) - VERIFY_(STATUS) - STATUS = cudaMemcpy(CWC_DEV,CWC,IM*JM*LM*4) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FCLD_DEV,FCLD,IM*JM*LM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(REFF_DEV,REFF,IM*JM*LM*4) - VERIFY_(STATUS) - - STATUS = cudaMemcpy(TAUA_DEV,TAUA,IM*JM*LM*NB_CHOU) - VERIFY_(STATUS) - STATUS = cudaMemcpy(SSAA_DEV,SSAA,IM*JM*LM*NB_CHOU) - VERIFY_(STATUS) - STATUS = cudaMemcpy(ASYA_DEV,ASYA,IM*JM*LM*NB_CHOU) - VERIFY_(STATUS) - - ! --------------------------------------- - ! Copy Constant Arrays into Global Memory - ! --------------------------------------- - - C1 = C1_CONST - C2 = C2_CONST - C3 = C3_CONST - OO1 = OO1_CONST - OO2 = OO2_CONST - OO3 = OO3_CONST - H11 = H11_CONST - H12 = H12_CONST - H13 = H13_CONST - H21 = H21_CONST - H22 = H22_CONST - H23 = H23_CONST - H81 = H81_CONST - H82 = H82_CONST - H83 = H83_CONST - - call MAPL_TimerOff(MAPL,"----IRRAD_DATA_DEVICE",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"----IRRAD_DATA_CONST",RC=STATUS) - VERIFY_(STATUS) - - ! -------------- - ! Copy Constants - ! -------------- - - XKW = XKW_CONST - XKE = XKE_CONST - MW = MW_CONST - AW = AW_CONST - BW = BW_CONST - PM = PM_CONST - FKW = FKW_CONST - GKW = GKW_CONST - AIB_IR = AIB_IR_CONST - AWB_IR = AWB_IR_CONST - AIW_IR = AIW_IR_CONST - AWW_IR = AWW_IR_CONST - AIG_IR = AIG_IR_CONST - AWG_IR = AWG_IR_CONST - CB = CB_CONST - DCB = DCB_CONST - W11 = W11_CONST - W12 = W12_CONST - W13 = W13_CONST - P11 = P11_CONST - P12 = P12_CONST - P13 = P13_CONST - DWE = DWE_CONST - DPE = DPE_CONST - - call MAPL_TimerOff(MAPL,"----IRRAD_DATA_CONST",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOff(MAPL,"---IRRAD_DATA",RC=STATUS) - VERIFY_(STATUS) - - ! Do longwave calculations on a list of soundings - ! This fills the internal state - !------------------------------------------------ - ! Note: IRRAD wants all species in mole fraction - ! except O3, which must be in mass mixing ratio. - !------------------------------------------------ - - call MAPL_TimerOn(MAPL,"---IRRAD_RUN",RC=STATUS) - VERIFY_(STATUS) - - call irrad<<>>(IM*JM,LM,CO2,TRACE,NS,NA,NB_CHOU,LCLDMH,LCLDLM) - - STATUS = cudaGetLastError() - if (STATUS /= 0) then - write (*,*) "Error code from IRRAD kernel call: ", STATUS - write (*,*) "Kernel call failed: ", cudaGetErrorString(STATUS) - _ASSERT(.FALSE.,'needs informative message') - end if - - call MAPL_TimerOff(MAPL,"---IRRAD_RUN",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"---IRRAD_DATA",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"----IRRAD_DATA_DEVICE",RC=STATUS) - VERIFY_(STATUS) - - ! Copy outputs from device - ! ------------------------ - - STATUS = cudaMemcpy(FLXU_INT,FLXU_DEV,IM*JM*(LM+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FLXAU_INT,FLXAU_DEV,IM*JM*(LM+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FLCU_INT,FLCU_DEV,IM*JM*(LM+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FLAU_INT,FLAU_DEV,IM*JM*(LM+1)) - VERIFY_(STATUS) - - STATUS = cudaMemcpy(FLXD_INT,FLXD_DEV,IM*JM*(LM+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FLXAD_INT,FLXAD_DEV,IM*JM*(LM+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FLCD_INT,FLCD_DEV,IM*JM*(LM+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FLAD_INT,FLAD_DEV,IM*JM*(LM+1)) - VERIFY_(STATUS) - - STATUS = cudaMemcpy(DFDTS,DFDTS_DEV,IM*JM*(LM+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(SFCEM_INT,SFCEM_DEV,IM*JM) - VERIFY_(STATUS) - STATUS = cudaMemcpy(TAUDIAG,TAUDIAG_DEV,IM*JM*LM*10) - VERIFY_(STATUS) - - call MAPL_TimerOff(MAPL,"----IRRAD_DATA_DEVICE",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOff(MAPL,"---IRRAD_DATA",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"---IRRAD_DEALLOC",RC=STATUS) - VERIFY_(STATUS) - - ! ------------------------ - ! Deallocate device arrays - ! ------------------------ - - ! Inputs - ! ------ - - DEALLOCATE(PLE_DEV) - DEALLOCATE(TA_DEV) - DEALLOCATE(WA_DEV) - DEALLOCATE(OA_DEV) - DEALLOCATE(TB_DEV) - DEALLOCATE(N2O_DEV) - DEALLOCATE(CH4_DEV) - DEALLOCATE(CFC11_DEV) - DEALLOCATE(CFC12_DEV) - DEALLOCATE(CFC22_DEV) - DEALLOCATE(FS_DEV) - DEALLOCATE(TG_DEV) - DEALLOCATE(EG_DEV) - DEALLOCATE(TV_DEV) - DEALLOCATE(EV_DEV) - DEALLOCATE(RV_DEV) - DEALLOCATE(CWC_DEV) - DEALLOCATE(FCLD_DEV) - DEALLOCATE(REFF_DEV) - - DEALLOCATE(TAUA_DEV) - DEALLOCATE(SSAA_DEV) - DEALLOCATE(ASYA_DEV) - - ! Constant arrays in global memory - ! -------------------------------- - - DEALLOCATE(C1) - DEALLOCATE(C2) - DEALLOCATE(C3) - DEALLOCATE(OO1) - DEALLOCATE(OO2) - DEALLOCATE(OO3) - DEALLOCATE(H11) - DEALLOCATE(H12) - DEALLOCATE(H13) - DEALLOCATE(H21) - DEALLOCATE(H22) - DEALLOCATE(H23) - DEALLOCATE(H81) - DEALLOCATE(H82) - DEALLOCATE(H83) - - ! Outputs - ! ------- - - DEALLOCATE(FLXU_DEV) - DEALLOCATE(FLXAU_DEV) - DEALLOCATE(FLCU_DEV) - DEALLOCATE(FLAU_DEV) - DEALLOCATE(FLXD_DEV) - DEALLOCATE(FLXAD_DEV) - DEALLOCATE(FLCD_DEV) - DEALLOCATE(FLAD_DEV) - DEALLOCATE(DFDTS_DEV) - DEALLOCATE(SFCEM_DEV) - DEALLOCATE(TAUDIAG_DEV) - - call MAPL_TimerOff(MAPL,"---IRRAD_DEALLOC",RC=STATUS) - VERIFY_(STATUS) - -#else -! Do longwave calculations on a list of soundings -! This fills the internal state -!------------------------------------------------ -! Note: IRRAD wants all species in mole fraction -! except O3, which must be in mass mixing ratio. -!------------------------------------------------ - - call MAPL_TimerOn(MAPL,"---IRRAD_RUN",RC=STATUS) - VERIFY_(STATUS) - - call IRRAD( IM*JM, LM, PLE, & - T, Q, O3, T2M, CO2, & - TRACE, N2O, CH4, CFC11, CFC12, HCFC22, & - CWC, FCLD, LCLDMH, LCLDLM, REFF, & - NS, FS, TG, EG, TV, EV, RV, & - NA, NB_CHOU, TAUA, SSAA, ASYA, & - FLXU_INT, FLCU_INT, FLAU_INT, FLXAU_INT, & - FLXD_INT, FLCD_INT, FLAD_INT, FLXAD_INT, & - DFDTS, SFCEM_INT, TAUDIAG ) - - call MAPL_TimerOff(MAPL,"---IRRAD_RUN",RC=STATUS) - VERIFY_(STATUS) - -#endif - - ! pmn: - ! Chou-Suarez does not provide these derivatives - ! so clear is set to zero, no-aerosol to aerosol - DFDTSC = 0. - DFDTSNA = DFDTS - DFDTSCNA = DFDTSC - - call MAPL_TimerOff(MAPL,"--IRRAD",RC=STATUS) - VERIFY_(STATUS) - - else if (USE_RRTMGP) then - - call MAPL_TimerOn(MAPL,"--RRTMGP",__RC__) - - ! columns are independent so collapse horizontal to 1D - ncol = IM*JM - - call MAPL_TimerOn(MAPL,"---RRTMGP_SETUP_1",__RC__) - - ! absorbing gas names - error_msg = gas_concs%init([character(3) :: & - 'h2o','co2','o3','n2o','co','ch4','o2','n2']) - TEST_(error_msg) - - ! load gas concentrations (volume mixing ratios) - ! "constant" gases - TEST_(gas_concs%set_vmr('n2' , real(N2 ,kind=wp))) - TEST_(gas_concs%set_vmr('o2' , real(O2 ,kind=wp))) - TEST_(gas_concs%set_vmr('co2', real(CO2,kind=wp))) - TEST_(gas_concs%set_vmr('co' , real(CO ,kind=wp))) - ! variable gases - ! (ozone converted from mass mixing ratio, water vapor from specific humidity) - TEST_(gas_concs%set_vmr('ch4', real(reshape(CH4 ,(/ncol,LM/)),kind=wp))) - TEST_(gas_concs%set_vmr('n2o', real(reshape(N2O ,(/ncol,LM/)),kind=wp))) - TEST_(gas_concs%set_vmr('o3' , real(reshape(O3 *(MAPL_AIRMW/MAPL_O3MW ),(/ncol,LM/)),kind=wp))) - TEST_(gas_concs%set_vmr('h2o', real(reshape(Q/(1.-Q)*(MAPL_AIRMW/MAPL_H2OMW),(/ncol,LM/)),kind=wp))) - - call MAPL_TimerOff(MAPL,"---RRTMGP_SETUP_1",__RC__) - - call MAPL_TimerOn(MAPL,"---RRTMGP_IO_1",__RC__) - - ! access RRTMGP internal state from the GC - call ESMF_UserCompGetInternalState(GC, 'RRTMGP_state', wrap, status) - VERIFY_(status) - rrtmgp_state => wrap%ptr - - ! initialize k-distribution if not already done - call MAPL_GetResource( & - MAPL, k_dist_file, "RRTMGP_DATA_LW:", & - DEFAULT='rrtmgp-data-lw.nc',__RC__) - if (.not. rrtmgp_state%initialized) then - ! gas_concs needed only to access required gas names - call load_and_init( & - rrtmgp_state%k_dist, trim(k_dist_file), gas_concs) - if (.not. rrtmgp_state%k_dist%source_is_internal()) then - TEST_("RRTMGP-LW: does not seem to be LW") - endif - rrtmgp_state%initialized = .true. - endif - - ! access by shorter name - k_dist => rrtmgp_state%k_dist - - call MAPL_TimerOff(MAPL,"---RRTMGP_IO_1",__RC__) - - call MAPL_TimerOn(MAPL,"---RRTMGP_SETUP_2",__RC__) - - ! spectral dimensions - ngpt = k_dist%get_ngpt() - nbnd = k_dist%get_nband() - _ASSERT(nbnd == NB_RRTMGP, 'RRTMGP-LW: expected different number of bands') - - ! note: use k_dist%get_band_lims_wavenumber() - ! to access band limits. - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! pmn: check if same bands as RRTMG --- need code solution to make more flexible !!!! - ! from RRTMG: - ! wavenum1(:) = (/ 10., 350., 500., 630., 700., 820., 980., 1080., 1180., 1390., 1480., 1800., 2080., 2250., 2380., 2600./) - ! wavenum2(:) = (/350., 500., 630., 700., 820., 980., 1080., 1180., 1390., 1480., 1800., 2080., 2250., 2380., 2600., 3250./) - ! from RRTMGP: - ! write(*,*) 'band_lims_wvn(2,nbnd):', k_dist%get_band_lims_wavenumber() - ! output reordered as above - ! 10., 250., 500., 630., 700., 820., 980., 1080., 1180., 1390., 1480., 1800., 2080., 2250., 2390., 2680. - ! 250., 500., 630., 700., 820., 980., 1080., 1180., 1390., 1480., 1800., 2080., 2250., 2390., 2680., 3250. - ! clearly there are some differences (250, 2390, 2680) ... have redone aerosol tables - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - ! allocate input arrays - allocate(t_sfc(ncol), emis_sfc(nbnd,ncol), __STAT__) - allocate(p_lay(ncol,LM), t_lay(ncol,LM), dp_wp(ncol,LM), cf_wp(ncol,LM), & - p_lev(ncol,LM+1), t_lev(ncol,LM+1), __STAT__) - - ! load input arrays ... - ! surface properties - ! for now, use the same emissivity for all bands - t_sfc = real( reshape(TS ,(/ncol/)) ,kind=wp) - emis_sfc = real(spread(reshape(EMIS,(/ncol/)),1,nbnd),kind=wp) - - ! basic profiles - p_lay = real(reshape(PL ,(/ncol,LM /)), kind=wp) - t_lay = real(reshape(T ,(/ncol,LM /)), kind=wp) - p_lev = real(reshape(PLE ,(/ncol,LM+1/)), kind=wp) - cf_wp = real(reshape(FCLD,(/ncol,LM /)), kind=wp) - - ! RRTMGP's rte_lw takes a vertical ordering flag - ! (no need to flip columns as with RRTMG) - top_at_1 = p_lay(1, 1) < p_lay(1, LM) - _ASSERT(top_at_1, 'unexpected vertical ordering') - - ! pmn: pressure KLUGE - ! Because currently k_dist%press_ref_min ~ 1.005 > GEOS-5 ptop of 1.0 Pa. - ! Find better solution, perhaps getting AER to add a higher top. - press_ref_min = k_dist%get_press_min() - ptop = minval(p_lev(:,1)) - if (press_ref_min > ptop) then - ! allow a small increase of ptop - if (press_ref_min - ptop <= ptop * ptop_increase_OK_fraction) then - where (p_lev(:,1) < press_ref_min) p_lev(:,1) = press_ref_min - ! make sure no pressure ordering issues were created - _ASSERT(all(p_lev(:,1) < p_lay(:,1)), 'pressure kluge causes misordering') - else - write(*,*) ' A ', ptop_increase_OK_fraction, & - ' fractional increase of ptop was insufficient' - write(*,*) ' RRTMGP, GEOS-5 top (Pa)', press_ref_min, ptop - TEST_('Model top too high for RRTMGP') - endif - endif - - ! pmn: temperature KLUGE - ! Currently k_dist%temp_ref_min = 160K but GEOS-5 has a global minimum - ! temperature below this occasionally (< 1% of time). (The lowest temp - ! seen is so far 151K). Consequently we will limit min(t_lay) to 160K. - ! Find better solution, perhaps getting AER to produce a table with a - ! lower minimum temperature. - ! note: add 0.01K to lower limit so that t_lev calculated below will - ! not fall below k_dist%get_temp_min() due to roundoff issues. - temp_ref_min = k_dist%get_temp_min() + 0.01_wp - tmin = minval(t_lay) - if (temp_ref_min > tmin) then - ! allow a small increase of tmin - if (temp_ref_min - tmin <= tmin_increase_OK_Kelvin) then - where (t_lay < temp_ref_min) t_lay = temp_ref_min - else - write(*,*) ' A ', tmin_increase_OK_Kelvin, & - 'K increase of tmin was insufficient' - write(*,*) ' RRTMGP, GEOS-5 t_min (K)', temp_ref_min, tmin - TEST_('Found excessively cold model temperature for RRTMGP') - endif - endif - - ! calculate interface temperatures - ! pmn: note that tlev is an optional argument of gas_optics(), and if not - ! provided, it will supply its own internally. We could try running - ! with this latter option to see what difference it makes. - IJ = 0 - do J=1,JM - do I=1,IM - IJ = IJ + 1 - ! pmn: better to use un-kluged top-pressure - ! for interpolation to tlev and for optical properties later - ! dp_wp(IJ,1) = p_lev(IJ,2) - p_lev(IJ,1) - dp_wp(IJ,1) = real(PLE(I,J,1) - PLE(I,J,0), kind=wp) - do K = 2, LM - ! interpolation between neighboring t_lay - dp_wp(IJ,K) = p_lev(IJ,K+1) - p_lev(IJ,K) - TLEV_wp(K) = (t_lay(IJ,K-1)*dp_wp(IJ,K) + t_lay(IJ,K)*dp_wp(IJ,K-1)) & - / (dp_wp(IJ,K-1) + dp_wp(IJ,K)) - enddo - TLEV_wp(LM+1) = real(T2M(I,J), kind=wp) ! ~surface air temperature - TLEV_wp( 1) = TLEV_wp(2) ! assume isotropic at TOA - t_lev(IJ,:) = TLEV_wp - enddo - enddo - - call MAPL_TimerOff(MAPL,"---RRTMGP_SETUP_2",__RC__) - - call MAPL_TimerOn(MAPL,"---RRTMGP_SETUP_3",__RC__) - - ! ================================================================= - ! for efficiency sake, we try to calculate only what we export ... - ! ================================================================= - - ! this line temporarily needed because of compiler bug - allocate(list(1)); list(1) = S_('dummy') - - ! are clear clean exports requested? - export_clrnoa = .false. - list = [S_('FLA'), S_('FLAD'), S_('FLAU')] - do i = 1, size(list) - call MAPL_GetPointer(EXPORT, ptr3d, list(i)%str, __RC__) - export_clrnoa = (export_clrnoa .or. associated(ptr3d)) - end do - list = [S_('OLA'), S_('FLNSA'), S_('LAS')] - do i = 1, size(list) - call MAPL_GetPointer(EXPORT, ptr2d, list(i)%str, __RC__) - export_clrnoa = (export_clrnoa .or. associated(ptr2d)) - end do - - ! are clear dirty exports requested? - export_clrsky = .false. - list = [S_('FLC'), S_('FLCD'), S_('FLCU')] - do i = 1, size(list) - call MAPL_GetPointer(EXPORT, ptr3d, list(i)%str, __RC__) - export_clrsky = (export_clrsky .or. associated(ptr3d)) - end do - list = [S_('OLC'), S_('OLCC5'), S_('FLNSC'), S_('LCS'), S_('LCSC5')] - do i = 1, size(list) - call MAPL_GetPointer(EXPORT, ptr2d, list(i)%str, __RC__) - export_clrsky = (export_clrsky .or. associated(ptr2d)) - end do - - ! are cloudy clean exports requested? - export_allnoa = .false. - list = [S_('FLXA'), S_('FLXAD'), S_('FLXAU')] - do i = 1, size(list) - call MAPL_GetPointer(EXPORT, ptr3d, list(i)%str, __RC__) - export_allnoa = (export_allnoa .or. associated(ptr3d)) - end do - list = [S_('OLRA'), S_('FLNSNA'), S_('LWSA')] - do i = 1, size(list) - call MAPL_GetPointer(EXPORT, ptr2d, list(i)%str, __RC__) - export_allnoa = (export_allnoa .or. associated(ptr2d)) - end do - - ! are cloudy dirty exports requested? - export_allsky = .false. - list = [S_('FLX'), S_('FLXD'), S_('FLXU')] - do i = 1, size(list) - call MAPL_GetPointer(EXPORT, ptr3d, list(i)%str, __RC__) - export_allsky = (export_allsky .or. associated(ptr3d)) - end do - list = [S_('OLR'), S_('SFCEM'), S_('FLNS'), S_('LWS')] - do i = 1, size(list) - call MAPL_GetPointer(EXPORT, ptr2d, list(i)%str, __RC__) - export_allsky = (export_allsky .or. associated(ptr2d)) - end do - deallocate(list,__STAT__) - - ! which fluxes to calculate? - ! the clean fluxes are also used for "dirty" fluxes if no aerosols - calc_clrnoa = (export_clrnoa .or. (export_clrsky .and. .not.implements_aerosol_optics)) - calc_allnoa = (export_allnoa .or. (export_allsky .and. .not.implements_aerosol_optics)) - calc_clrsky = export_clrsky - calc_allsky = export_allsky - - ! do we actually need dirty optical properties? - need_dirty_optical_props = & - (export_clrsky .or. export_allsky) .and. implements_aerosol_optics - - ! do we need cloudy optical properties? - need_cloud_optical_props = (export_allnoa .or. export_allsky) - - ! allocation of output arrays - if (calc_clrnoa) then - allocate(flux_up_clrnoa(ncol,LM+1), & - flux_dn_clrnoa(ncol,LM+1), & - dfupdts_clrnoa(ncol,LM+1), __STAT__) - end if - if (calc_allnoa) then - allocate(flux_up_allnoa(ncol,LM+1), & - flux_dn_allnoa(ncol,LM+1), & - dfupdts_allnoa(ncol,LM+1), __STAT__) - end if - if (calc_clrsky) then - allocate(flux_up_clrsky(ncol,LM+1), & - flux_dn_clrsky(ncol,LM+1), & - dfupdts_clrsky(ncol,LM+1), __STAT__) - end if - if (calc_allsky) then - allocate(flux_up_allsky(ncol,LM+1), & - flux_dn_allsky(ncol,LM+1), & - dfupdts_allsky(ncol,LM+1), __STAT__) - end if - - ! ======================================================================================= - ! IMPORTANT: Specify the type (#streams) of the LW RT calculations in clean_optical_props - ! ======================================================================================= - ! While the aerosol system currently provides two-stream properties, as do the cloud - ! optics files, we may choose any number of streams for the actual RT calculations by - ! the appropriate instantiation of clean_optical_props here. The increment() statements - ! below implicitly convert all component optical properties to this number of streams. - ! Everything else in the code should adapt polymorphically without modification. - ! options are: 1scl (no scattering), 2str (2-stream), or nstr (n-stream) - ! For 1scl, must also specify the number of Gauss angles (nga) below. - ! For nstr, must also specify the number of phase function moments (nmom) below. - ! After Feb2020 update: - ! Even for optical_props_2str, the default rte method is to use rescaled LW transport - ! to account for scattering (in which case nga is used). To force explicit 2-stream - ! scattering, must select u2s = .true. and allocate optical_props_2str below. - ! ======================================================================================= - - ! instantiate clean_optical_props with desired streams - allocate(ty_optical_props_2str::clean_optical_props,__STAT__) - - ! default values - nga = 1 ! Used if 1scl or (2str but .not. u2s), in which case must be >= 1 - nmom = 2 ! Used only if nstr, in which case must be >= 2 - u2s = .false. ! forces explicit 2-stream scattering if optical_props_2str - - ! allow user selection of nga and u2s as appropriate - select type(clean_optical_props) - class is (ty_optical_props_1scl) - call MAPL_GetResource( & - MAPL, nga ,'RRTMGP_LW_N_GAUSS_ANGLES:', DEFAULT=nga, __RC__) - class is (ty_optical_props_2str) - call MAPL_GetResource( & - MAPL, nga ,'RRTMGP_LW_N_GAUSS_ANGLES:', DEFAULT=nga, __RC__) - call MAPL_GetResource( & - MAPL, u2s ,'RRTMGP_LW_USE_2STREAM:', DEFAULT=u2s, __RC__) - _ASSERT(.not.u2s,'lw_solver_2stream() does not currently support Jacobians') - end select - - ! the dirty_optical_props have the same number of streams - if (need_dirty_optical_props) then - select type(clean_optical_props) - class is (ty_optical_props_1scl) ! No scattering - allocate(ty_optical_props_1scl::dirty_optical_props,__STAT__) - class is (ty_optical_props_2str) - allocate(ty_optical_props_2str::dirty_optical_props,__STAT__) - class is (ty_optical_props_nstr) - allocate(ty_optical_props_nstr::dirty_optical_props,__STAT__) - end select - end if - - ! initialize clean_optical_props and sources - ! dirty_optical_props are copy initialized later if needed - TEST_(clean_optical_props%init(k_dist)) - TEST_(sources%init(k_dist)) - - call MAPL_TimerOff(MAPL,"---RRTMGP_SETUP_3",__RC__) - - ! get cloud optical properties (band-only) - if (need_cloud_optical_props) then - ! pmn: some of this should be done only once per run - - call MAPL_TimerOn(MAPL,"---RRTMGP_IO_2",__RC__) - - ! load and init cloud_optics from file - call MAPL_GetResource( & - MAPL, cloud_optics_file, "RRTMGP_CLOUD_OPTICS_COEFFS_LW:", & - DEFAULT='rrtmgp-cloud-optics-coeffs-lw.nc', __RC__) - call MAPL_GetResource( & - MAPL, cloud_optics_type, "RRTMGP_CLOUD_OPTICS_TYPE_LW:", & - DEFAULT='LUT', __RC__) - if (trim(cloud_optics_type)=='LUT') then - call load_cld_lutcoeff (cloud_optics, cloud_optics_file) - elseif (trim(cloud_optics_type)=='PADE') then - call load_cld_padecoeff(cloud_optics, cloud_optics_file) - else - TEST_('unknown cloud_optics_type: '//trim(cloud_optics_file)) - end if - - call MAPL_TimerOff(MAPL,"---RRTMGP_IO_2",__RC__) - - ! ice surface roughness category for Yang (2013) ice optics - ! icergh: 1 = none, 2 = medium, 3 = high - call MAPL_GetResource( & - MAPL, icergh, "RRTMGP_ICE_ROUGHNESS_LW:", & - DEFAULT=2, __RC__) - TEST_(cloud_optics%set_ice_roughness(icergh)) - - call MAPL_TimerOn(MAPL,"---RRTMGP_SETUP_4",__RC__) - - ! cloud optics file is currently two-stream - ! increment() will handle appropriate stream conversions - allocate(ty_optical_props_2str::cloud_props,__STAT__) - select type (cloud_props) - class is (ty_optical_props_2str) - ! band-only initialization - TEST_(cloud_props%alloc_2str(ncol, LM, k_dist%get_band_lims_wavenumber())) - ! allocate a subset for blocking use - allocate(ty_optical_props_2str::cloud_props_subset,__STAT__) - ! allocate a gpt version for cloud sampling - allocate(ty_optical_props_2str::cloud_props_gpt,__STAT__) - class default - TEST_('cloud_props hardwired 2-stream for now') - end select - - call MAPL_TimerOff(MAPL,"---RRTMGP_SETUP_4",__RC__) - - call MAPL_TimerOn(MAPL,"---RRTMGP_CLOUD_OPTICS",__RC__) - - ! make band in-cloud optical properties from cloud_optics - allocate(clwp(ncol,LM), ciwp(ncol,LM),__STAT__) - clwp = real(reshape(CWC(:,:,:,KLIQUID),(/ncol,LM/)),kind=wp) * dp_wp * cwp_fac ! in-cloud [g/m2] - ciwp = real(reshape(CWC(:,:,:,KICE ),(/ncol,LM/)),kind=wp) * dp_wp * cwp_fac ! in-cloud [g/m2] - error_msg = cloud_optics%cloud_optics( & - clwp, ciwp, & - real(reshape(REFF(:,:,:,KLIQUID),(/ncol,LM/)),kind=wp), & - real(reshape(REFF(:,:,:,KICE ),(/ncol,LM/)),kind=wp), & - cloud_props) - TEST_(error_msg) - deallocate(clwp, ciwp, __STAT__) - - call MAPL_TimerOff(MAPL,"---RRTMGP_CLOUD_OPTICS",__RC__) - - ! note: have made cloud_props for all ncol columns - ! and will subset below into blocks ... we can also - ! look at option of making cloud_props for each block - ! as its needed ... same for aer_props - - ! set desired cloud overlap type - call MAPL_GetResource( & - MAPL, cloud_overlap_type, "RRTMGP_CLOUD_OVERLAP_TYPE_LW:", & - DEFAULT='MAX_RAN_OVERLAP', __RC__) - - call MAPL_TimerOn(MAPL,"---RRTMGP_MCICA",__RC__) - - ! =============================================================================== - ! Random number setup: - ! =============================================================================== - ! We will use the Philox4x32-10 or ARS5 BRNGs from MKL VSL. - ! Both are keyed families of counter-based PRNGs with a large period 2^130 - ! and a minimal state space (unlike the large Mersenne Twister state). - ! Philox4x32-10 has a 64-bit key and a 128-bit counter and is very fast on GPUs. - ! ARS5 has a 128-bit key and a 128-bit counter and is superfast on CPUs for - ! which AES-NI instructions are hardware implemented. - ! The SEEDING STRATEGY we will follow is to use a unique key for the gricolumn - ! location and the simulation time. This gives a repeatable set of random numbers - ! that remains the same for the members of an ensemble. If a different set is - ! required for ensemble members, then the model state, such as the fractional - ! part of the surface pressure, should be incorporated into the key. - ! To get a different set of random numbers for the SW, for example, either a - ! key change or a counter advance will be needed. - ! - ! Time Component of key: - ! ~~~~~~~~~~~~~~~~~~~~~~ - ! 1. No need to update more frequently than once per LW refresh. - ! 2. should reference the number of such intervals since a fixed time, so - ! that agnostic to stop/restart schedule. - ! - ! Space component of key: - ! ~~~~~~~~~~~~~~~~~~~~~~~ - ! 1. should be based on some globally unique index for a gridcolumn, so that - ! each gridcolumn is independent and so it is agnostic to runs with varying - ! decompositions among processors. - ! 2. 2^32 = 4,294,967,296 or about 2.1475e9 positives, which can represent - ! globe at over 1/180th degree resolution, so plenty for forseeable - ! future. - ! - ! Philox seeding: - ! ~~~~~~~~~~~~~~~ - ! 1. a scalar 32-bit seed sets the lower bits of the key k. - ! 2. a vector of 32-bit seeds of length N is used as follows: - ! (a) N = 0: k = c = 0; - ! (b) N in {1,2}: seeds(1(:2)) set lower (and upper) words of key - ! (c) N > 2: ditto plus seeds(3:min(N,6)) set counter c, - ! starting from lowest word and working up. - ! - ! Estimate of maximum LW random numbers needed per gridcolumn: - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! For the current clouds, with homogeneous optical properies in the cloudy part - ! of each layer, only one random number per layer and gpt is needed. So estimate - ! LM * ngpt <~ 132 * 256 = 33,792 < 2^16 = 65,536 - ! =============================================================================== - - allocate(seeds(3),__STAT__) ! 2-word key plus word1 of counter - - ! seed(1), the column part (word1) of key is set later - ! but get required global indicies of local rectangular grid here - call MAPL_GridGet(ESMFGRID, globalCellCountPerDim=dims, __RC__) - IM_World = dims(1); JM_World = dims(2) - call MAPL_GridGetInterior (ESMFGRID,iBeg,iEnd,jBeg,jEnd) - - ! get time part (word2) of key - call ESMF_ClockGet(CLOCK, currTIME=CurrentTime, __RC__) - call ESMF_TimeSet (ReferenceTime, yy=2000, mm=1, dd=1, __RC__) - call ESMF_AlarmGet(ALARM, RINGINTERVAL=RefreshInterval, __RC__) - seeds(2) = int((CurrentTime - ReferenceTime) / RefreshInterval) - - ! for LW start at counter=0 - seeds(3) = 0 - - call MAPL_TimerOff(MAPL,"---RRTMGP_MCICA",__RC__) - - end if ! need_cloud_optical_props - - ! set aerosol optical properties - if (need_dirty_optical_props) then - - call MAPL_TimerOn(MAPL,"---RRTMGP_AEROSOL_SETUP",__RC__) - - ! aerosol optics system is currently two-stream - ! increment() will handle appropriate stream conversions - allocate(ty_optical_props_2str::aer_props,__STAT__) - select type (aer_props) - class is (ty_optical_props_2str) - - ! band-only initialization - TEST_(aer_props%alloc_2str(ncol, LM, k_dist%get_band_lims_wavenumber())) - - ! load unormalized optical properties from aerosol system - aer_props%tau = real(reshape(TAUA, (/ncol,LM,nbnd/)), kind=wp) - aer_props%ssa = real(reshape(SSAA, (/ncol,LM,nbnd/)), kind=wp) - aer_props%g = real(reshape(ASYA, (/ncol,LM,nbnd/)), kind=wp) - - ! renormalize - where (aer_props%tau > 0._wp .and. aer_props%ssa > 0._wp ) - aer_props%g = aer_props%g / aer_props%ssa - aer_props%ssa = aer_props%ssa / aer_props%tau - elsewhere - aer_props%tau = 0._wp - aer_props%ssa = 0._wp - aer_props%g = 0._wp - end where - - ! allocate a subset for blocking use - allocate(ty_optical_props_2str::aer_props_subset,__STAT__) - - class default - TEST_('aer_props hardwired 2-stream for now') - - end select - - call MAPL_TimerOff(MAPL,"---RRTMGP_AEROSOL_SETUP",__RC__) - - end if - - !--------------------------------------------------! - ! Loop over subsets (blocks) of blockSize columns ! - ! - choose rrtmgp_blockSize for efficiency ! - ! - one possible partial block is done at the end ! - !--------------------------------------------------! - - call MAPL_GetResource( MAPL, & - rrtmgp_blockSize, "RRTMGP_LW_BLOCKSIZE:", DEFAULT=4, __RC__) - _ASSERT(rrtmgp_blockSize >= 1,'needs informative message') - - ! for random numbers, for efficiency, reserve the maximum possible - ! subset of subcolumns (rrtmgp_blockSize) since column index is last - allocate(urand(ngpt,LM,rrtmgp_blocksize), __STAT__) - - ! number of full blocks by integer division - nBlocks = ncol/rrtmgp_blockSize - - ! allocate intermediate arrays for full blocks - if (nBlocks > 0) then - - call MAPL_TimerOn(MAPL,"---RRTMGP_SUBSET",__RC__) - - ! block size until possible final partial block - ncols_subset = rrtmgp_blockSize - - ! allocate clean_optical_props and sources for block - select type (clean_optical_props) - class is (ty_optical_props_1scl) - TEST_(clean_optical_props%alloc_1scl( ncols_subset, LM)) - class is (ty_optical_props_2str) - TEST_(clean_optical_props%alloc_2str( ncols_subset, LM)) - class is (ty_optical_props_nstr) - TEST_(clean_optical_props%alloc_nstr(nmom, ncols_subset, LM)) - end select - TEST_(sources%alloc(ncols_subset, LM)) - if (allocated(cld_mask)) then - deallocate(cld_mask, __STAT__) - endif - allocate(cld_mask(ncols_subset, LM, ngpt), __STAT__) - - call MAPL_TimerOff(MAPL,"---RRTMGP_SUBSET",__RC__) - - end if - - ! add final partial block if necessary - partial_block = mod(ncol, rrtmgp_blockSize) /= 0 - if (partial_block) then - partial_blockSize = ncol - nBlocks * rrtmgp_blockSize - nBlocks = nBlocks + 1 - endif - - ! loop over all blocks - do b = 1, nBlocks - - call MAPL_TimerOn(MAPL,"---RRTMGP_SUBSET",__RC__) - - ! only the final block can be partial - if (b == nBlocks .and. partial_block) then - ncols_subset = partial_blockSize - select type (clean_optical_props) - class is (ty_optical_props_1scl) - TEST_(clean_optical_props%alloc_1scl( ncols_subset, LM)) - class is (ty_optical_props_2str) - TEST_(clean_optical_props%alloc_2str( ncols_subset, LM)) - class is (ty_optical_props_nstr) - TEST_(clean_optical_props%alloc_nstr(nmom, ncols_subset, LM)) - end select - TEST_(sources%alloc(ncols_subset, LM)) - if (allocated(cld_mask)) then - deallocate(cld_mask, __STAT__) - endif - allocate(cld_mask(ncols_subset, LM, ngpt), __STAT__) - endif - - ! prepare block - colS = (b-1) * rrtmgp_blockSize + 1 - colE = colS + ncols_subset - 1 - TEST_(gas_concs%get_subset(colS, ncols_subset, gas_concs_subset)) - if (need_dirty_optical_props) then - TEST_(aer_props%get_subset(colS, ncols_subset, aer_props_subset)) - end if - - call MAPL_TimerOff(MAPL,"---RRTMGP_SUBSET",__RC__) - - if (need_cloud_optical_props) then - - ! get column subset of the band-space in-cloud optical properties - call MAPL_TimerOn(MAPL,"---RRTMGP_SUBSET",__RC__) - TEST_(cloud_props%get_subset(colS, ncols_subset, cloud_props_subset)) - call MAPL_TimerOff(MAPL,"---RRTMGP_SUBSET",__RC__) - - call MAPL_TimerOn(MAPL,"---RRTMGP_MCICA",__RC__) - - ! generate McICA random numbers for subset - ! Note: really only needed where cloud fraction > 0 (speedup?) - ! Also, perhaps later this can be parallelized? -#ifdef HAVE_MKL - do isub = 1, ncols_subset - ! local 1d column index - icol = colS + isub - 1 - ! local 2d indicies - J = (icol-1) / IM + 1 - I = icol - (J-1) * IM - ! initialize the Philox PRNG - ! set word1 of key based on GLOBAL location - ! 32-bits can hold all forseeable resolutions - seeds(1) = (jBeg + J - 1) * IM_World + (iBeg + I - 1) - ! instantiate a random number stream for the column - call rng%init(VSL_BRNG_PHILOX4X32X10,seeds) - ! draw the random numbers for the column - urand(:,:,isub) = reshape(rng%get_random(ngpt*LM),(/ngpt,LM/)) - ! free the rng - call rng%end() - end do -#endif - - ! cloud sampling to gpoints - select case (cloud_overlap_type) - case ("MAX_RAN_OVERLAP") - error_msg = sampled_mask_max_ran( & - urand(:,:,1:ncols_subset), cf_wp(colS:colE,:), cld_mask) - TEST_(error_msg) - case ("EXP_RAN_OVERLAP") - TEST_('EXP_RAN_OVERLAP not yet implemnted') - !error_msg = (sampled_mask_exp_ran()) - !TEST_(error_msg) - case default - TEST_('RRTMGP_LW: unknown cloud overlap') - end select - - ! draw McICA optical property samples (band->gpt) - select type (cloud_props_gpt) - class is (ty_optical_props_2str) - TEST_(cloud_props_gpt%alloc_2str(ncols_subset, LM, k_dist)) - class default - TEST_('cloud_props_gpt hardwired 2-stream for now') - end select - TEST_(draw_samples(cld_mask, cloud_props_subset, cloud_props_gpt)) - - call MAPL_TimerOff(MAPL,"---RRTMGP_MCICA",__RC__) - - end if - - call MAPL_TimerOn(MAPL,"---RRTMGP_GAS_OPTICS",__RC__) - - ! get gas optical properties and sources - error_msg = k_dist%gas_optics( & - p_lay(colS:colE,:), p_lev(colS:colE,:), t_lay(colS:colE,:), & - t_sfc(colS:colE), gas_concs_subset, clean_optical_props, sources, & - tlev = t_lev(colS:colE,:)) - TEST_(error_msg) - - call MAPL_TimerOff(MAPL,"---RRTMGP_GAS_OPTICS",__RC__) - - call MAPL_TimerOn(MAPL,"---RRTMGP_RT",__RC__) - - ! clean clear-sky case - if (calc_clrnoa) then - fluxes_clrnoa%flux_up => flux_up_clrnoa(colS:colE,:) - fluxes_clrnoa%flux_dn => flux_dn_clrnoa(colS:colE,:) - error_msg = rte_lw( & - clean_optical_props, & - top_at_1, sources, emis_sfc(:,colS:colE), & - fluxes_clrnoa, n_gauss_angles=nga, use_2stream=u2s, & - flux_up_Jac=dfupdts_clrnoa(colS:colE,:)) - TEST_(error_msg) - end if - - if (need_dirty_optical_props) then - ! make copy of clrnoa optical properties as the - ! starting point for later dirty calculations - select type (dirty_optical_props) - class is (ty_optical_props_1scl) - TEST_(dirty_optical_props%alloc_1scl(ncols_subset, LM, clean_optical_props)) - class is (ty_optical_props_2str) - TEST_(dirty_optical_props%alloc_2str(ncols_subset, LM, clean_optical_props)) - select type (clean_optical_props) - class is (ty_optical_props_2str) - dirty_optical_props%ssa = clean_optical_props%ssa - dirty_optical_props%g = clean_optical_props%g - end select - class is (ty_optical_props_nstr) - TEST_(dirty_optical_props%alloc_nstr(nmom, ncols_subset, LM, clean_optical_props)) - select type (clean_optical_props) - class is (ty_optical_props_nstr) - dirty_optical_props%ssa = clean_optical_props%ssa - dirty_optical_props%p = clean_optical_props%p - end select - end select - ! all streams have tau - dirty_optical_props%tau = clean_optical_props%tau - end if - - ! clean all-sky case - if (calc_allnoa) then - - ! add in cloud optical properties - TEST_(cloud_props_gpt%increment(clean_optical_props)) - - ! clean all-sky RT - fluxes_allnoa%flux_up => flux_up_allnoa(colS:colE,:) - fluxes_allnoa%flux_dn => flux_dn_allnoa(colS:colE,:) - error_msg = rte_lw( & - clean_optical_props, & - top_at_1, sources, emis_sfc(:,colS:colE), & - fluxes_allnoa, n_gauss_angles=nga, use_2stream=u2s, & - flux_up_Jac=dfupdts_allnoa(colS:colE,:)) - TEST_(error_msg) - end if - - if (export_clrsky .or. export_allsky) then - if (implements_aerosol_optics) then - - ! dirty flux calculations required ... - - ! "dirty_optical_props" is currently just a copy of the clrnoa optical_props - ! so must now add in aerosols to make it actually dirty - TEST_(aer_props_subset%increment(dirty_optical_props)) - - ! dirty clear-sky RT - if (calc_clrsky) then - fluxes_clrsky%flux_up => flux_up_clrsky(colS:colE,:) - fluxes_clrsky%flux_dn => flux_dn_clrsky(colS:colE,:) - error_msg = rte_lw( & - dirty_optical_props, & - top_at_1, sources, emis_sfc(:,colS:colE), & - fluxes_clrsky, n_gauss_angles=nga, use_2stream=u2s, & - flux_up_Jac=dfupdts_clrsky(colS:colE,:)) - TEST_(error_msg) - end if - - ! dirty all-sky case - if (calc_allsky) then - - ! add in cloud optical properties - TEST_(cloud_props_gpt%increment(dirty_optical_props)) - - ! dirty all-sky RT - fluxes_allsky%flux_up => flux_up_allsky(colS:colE,:) - fluxes_allsky%flux_dn => flux_dn_allsky(colS:colE,:) - error_msg = rte_lw( & - dirty_optical_props, & - top_at_1, sources, emis_sfc(:,colS:colE), & - fluxes_allsky, n_gauss_angles=nga, use_2stream=u2s, & - flux_up_Jac=dfupdts_allsky(colS:colE,:)) - TEST_(error_msg) - end if - - else - - ! there are no aerosols so we are done because the - ! dirty cases are the same as the clean ones - if (export_clrsky) then - flux_up_clrsky(colS:colE,:) = flux_up_clrnoa(colS:colE,:) - flux_dn_clrsky(colS:colE,:) = flux_dn_clrnoa(colS:colE,:) - dfupdts_clrsky(colS:colE,:) = dfupdts_clrnoa(colS:colE,:) - end if - if (export_allsky) then - flux_up_allsky(colS:colE,:) = flux_up_allnoa(colS:colE,:) - flux_dn_allsky(colS:colE,:) = flux_dn_allnoa(colS:colE,:) - dfupdts_allsky(colS:colE,:) = dfupdts_allnoa(colS:colE,:) - end if - - end if ! implements_aerosol_optics - end if ! export dirty clear-sky or all-sky - - call MAPL_TimerOff(MAPL,"---RRTMGP_RT",__RC__) - - end do ! loop over blocks - - call MAPL_TimerOn(MAPL,"---RRTMGP_POST",__RC__) - - ! load output arrays - ! note: the DFDTS* are the derivatives of the NEGATED upward fluxes wrt TS - if (export_clrnoa) then - FLAU_INT = real(reshape(-flux_up_clrnoa, (/IM,JM,LM+1/))) - FLAD_INT = real(reshape( flux_dn_clrnoa, (/IM,JM,LM+1/))) - DFDTSCNA = real(reshape(-dfupdts_clrnoa, (/IM,JM,LM+1/))) - end if - if (export_allnoa) then - FLXAU_INT = real(reshape(-flux_up_allnoa, (/IM,JM,LM+1/))) - FLXAD_INT = real(reshape( flux_dn_allnoa, (/IM,JM,LM+1/))) - DFDTSNA = real(reshape(-dfupdts_allnoa, (/IM,JM,LM+1/))) - end if - if (export_clrsky) then - FLCU_INT = real(reshape(-flux_up_clrsky, (/IM,JM,LM+1/))) - FLCD_INT = real(reshape( flux_dn_clrsky, (/IM,JM,LM+1/))) - DFDTSC = real(reshape(-dfupdts_clrsky, (/IM,JM,LM+1/))) - end if - if (export_allsky) then - FLXU_INT = real(reshape(-flux_up_allsky, (/IM,JM,LM+1/))) - FLXD_INT = real(reshape( flux_dn_allsky, (/IM,JM,LM+1/))) - DFDTS = real(reshape(-dfupdts_allsky, (/IM,JM,LM+1/))) - end if - - !mjs: Corrected emitted at the surface to remove reflected - ! from upward. Note that emiss is the same for all bands, - ! so we use band 1 for the total flux. - SFCEM_INT = real(reshape( & - -flux_up_allsky(:,LM+1) + flux_dn_allsky(:,LM+1) * (1._wp - emis_sfc(1,:)), & - (/IM,JM/))) - - ! clean up - call sources%finalize() - call clean_optical_props%finalize() - if (need_dirty_optical_props) then - call dirty_optical_props%finalize() - call aer_props_subset%finalize() - call aer_props%finalize() - end if - if (need_cloud_optical_props) then - call cloud_props_gpt%finalize() - call cloud_props_subset%finalize() - deallocate(seeds,__STAT__) - deallocate(urand, __STAT__) - deallocate(cld_mask,__STAT__) - call cloud_props%finalize() - call cloud_optics%finalize() - end if - if (calc_clrnoa) then - deallocate(flux_up_clrnoa, flux_dn_clrnoa, dfupdts_clrnoa, __STAT__) - end if - if (calc_allnoa) then - deallocate(flux_up_allnoa, flux_dn_allnoa, dfupdts_allnoa, __STAT__) - end if - if (calc_clrsky) then - deallocate(flux_up_clrsky, flux_dn_clrsky, dfupdts_clrsky, __STAT__) - end if - if (calc_allsky) then - deallocate(flux_up_allsky, flux_dn_allsky, dfupdts_allsky, __STAT__) - end if - deallocate(p_lay, t_lay, p_lev, t_lev, dp_wp, cf_wp, __STAT__) - deallocate(t_sfc, emis_sfc, __STAT__) - - call MAPL_TimerOff(MAPL,"---RRTMGP_POST",__RC__) - - call MAPL_TimerOff(MAPL,"--RRTMGP",__RC__) - - else if (USE_RRTMG) then - - call MAPL_TimerOn(MAPL,"--RRTMG",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,PARTITION_SIZE,'RRTMGLW_PARTITION_SIZE:',DEFAULT=4,RC=STATUS) - VERIFY_(STATUS) - - ! reversed profiles for RRTMG (1=bottom layer) - ! note 0:LM indexing for [PT]LEV_R - ! but 1:LM+1 for [UD]FLX[C] and DUFLX[C]_DTS - allocate(FCLD_R(IM*JM,LM),__STAT__) - allocate(TLEV_R(IM*JM,0:LM),__STAT__) - allocate(PLE_R(IM*JM,0:LM),__STAT__) - allocate(ZM_R(IM*JM,LM),__STAT__) - allocate(EMISS(IM*JM,NB_RRTMG),__STAT__) - allocate(CLIQWP(IM*JM,LM),__STAT__) - allocate(CICEWP(IM*JM,LM),__STAT__) - allocate(RELIQ(IM*JM,LM),__STAT__) - allocate(REICE(IM*JM,LM),__STAT__) - allocate(TAUAER(IM*JM,LM,NB_RRTMG),__STAT__) - allocate(PL_R(IM*JM,LM),__STAT__) - allocate(T_R(IM*JM,LM),__STAT__) - allocate(Q_R(IM*JM,LM),__STAT__) - allocate(O2_R(IM*JM,LM),__STAT__) - allocate(O3_R(IM*JM,LM),__STAT__) - allocate(CO2_R(IM*JM,LM),__STAT__) - allocate(CH4_R(IM*JM,LM),__STAT__) - allocate(N2O_R(IM*JM,LM),__STAT__) - allocate(CFC11_R(IM*JM,LM),__STAT__) - allocate(CFC12_R(IM*JM,LM),__STAT__) - allocate(CFC22_R(IM*JM,LM),__STAT__) - allocate(CCL4_R(IM*JM,LM),__STAT__) - allocate(TSFC(IM*JM),__STAT__) - allocate(UFLX(IM*JM,LM+1),__STAT__) - allocate(DFLX(IM*JM,LM+1),__STAT__) - allocate(UFLXC(IM*JM,LM+1),__STAT__) - allocate(DFLXC(IM*JM,LM+1),__STAT__) - allocate(DUFLX_DTS(IM*JM,LM+1),__STAT__) - allocate(DUFLXC_DTS(IM*JM,LM+1),__STAT__) - allocate(CLEARCOUNTS(IM*JM,4),__STAT__) - allocate(ALAT(IM*JM),__STAT__) - allocate(OLRBRG (nbndlw,IM*JM),__STAT__) - allocate(DOLRBRG_DTS (nbndlw,IM*JM),__STAT__) - - ! choices for cloud physical to optical conversion - ICEFLGLW = 3 - LIQFLGLW = 1 - - ! calculate derivatives of upward flux with Tsurf - Ts_derivs = .true. - - call MAPL_TimerOn(MAPL,"---RRTMG_FLIP",RC=STATUS) - VERIFY_(STATUS) - - ! reverse super-layer interface indicies - LCLDMH = LM - LCLDMH + 1 - LCLDLM = LM - LCLDLM + 1 - - ! collapse horizontal indicies and flip in vertical - ! (RRTMG indexed bottom to top) - IJ = 0 - do J = 1,JM - do I = 1,IM - IJ = IJ + 1 - - TSFC (IJ) = TS (I,J) - EMISS(IJ,:) = EMIS(I,J) ! all bands get same emissivity - ALAT (IJ) = LATS(I,J) - - ! calculation of level temperature (still in model ordering) - ! note: PLE(0:LM) but TLEV(1:LM+1) - DP(1) = PLE(I,J,1)-PLE(I,J,0) - do K = 2,LM - DP(K) = (PLE(I,J,K)-PLE(I,J,K-1) ) - TLEV(K) = (T(I,J,K-1) * DP(K) + T(I,J,K) * DP(K-1)) & - / (DP(K-1) + DP(K)) - enddo - TLEV(LM+1) = T2M(I,J) ! 'surface' - TLEV( 1) = TLEV(2) ! model top - - ! Flip in vertical - do K = 1,LM - LV = LM-K+1 ! LM --> 1 - - ! Convert content [kg/kg] to path [g/m2] - ! using hydrostatic eqn dp/g ~ rho*dz, - ! so conversion factor is 1000*dp/g ~ 1.02*100*dp. - ! pmn: why not use MAPL_GRAV explicitly? - xx = 1.02*100*DP(LV) - CLIQWP(IJ,K) = xx*CWC(I,J,LV,KLIQUID) - CICEWP(IJ,K) = xx*CWC(I,J,LV,KICE) - RELIQ (IJ,K) = REFF(I,J,LV,KLIQUID) - REICE (IJ,K) = REFF(I,J,LV,KICE ) - - ! impose RRTMG re_liq limits - if (LIQFLGLW.eq.0) then - ! pmn: this one not available inside RRTMG_LW - RELIQ(IJ,K) = min(max(RELIQ(IJ,K),5.0),10.0) - elseif (LIQFLGLW.eq.1) then - RELIQ(IJ,K) = min(max(RELIQ(IJ,K),2.5),60.0) - endif - - ! impose RRTMG re_ice limits - if (ICEFLGLW.eq.0) then - REICE(IJ,K) = min(max(REICE(IJ,K),10.0),30.0) - elseif (ICEFLGLW.eq.1) then - REICE(IJ,K) = min(max(REICE(IJ,K),13.0),130.0) - elseif (ICEFLGLW.eq.2) then - REICE(IJ,K) = min(max(REICE(IJ,K), 5.0),131.0) - elseif (ICEFLGLW.eq.3) then - REICE(IJ,K) = min(max(REICE(IJ,K), 5.0),140.0) - elseif (ICEFLGLW.eq.4) then - REICE(IJ,K) = min(max(REICE(IJ,K)*2.,1.0),200.0) - endif - - ! flipping for LEVEL quantities - ! PLE_R(0:LM) = PLE(LM:0) - ! TLEV_R(0:LM) = TLEV(LM+1:1) - ! top-of-model LEVEL (RRTMG LM) done later - PLE_R (IJ,K-1) = PLE(I,J,LV)/100. ! [hPa] - TLEV_R (IJ,K-1) = TLEV(LV+1) - - ! more flipping for layer quantities - ! Q [specific humidity] --> Q_R [volume mixing ratio] - ! O3 [mass mixing ratio] --> O3_R [volume mixing ratio] - PL_R (IJ,K) = PL(I,J,LV)/100. ! [hPa] - T_R (IJ,K) = T(I,J,LV) - Q_R (IJ,K) = Q(I,J,LV) / (1.-Q(I,J,LV)) * (MAPL_AIRMW/MAPL_H2OMW) - O3_R (IJ,K) = O3(I,J,LV) * (MAPL_AIRMW/MAPL_O3MW) - CH4_R (IJ,K) = CH4(I,J,LV) - N2O_R (IJ,K) = N2O(I,J,LV) - CO2_R (IJ,K) = CO2 - O2_R (IJ,K) = O2 - CCL4_R (IJ,K) = CCL4 - CFC11_R(IJ,K) = CFC11(I,J,LV) - CFC12_R(IJ,K) = CFC12(I,J,LV) - CFC22_R(IJ,K) = HCFC22(I,J,LV) - FCLD_R (IJ,K) = FCLD(I,J,LV) - - ! RRTMG_LW does not scatter, so pass ABSORPTION aerosol - ! optical thickness to RRTMG. Remember that SSAA is the - ! aerosol system's *un*-normalized single scattering albedo, - ! which is actually tau_ext * omega0 = tau_scat, and TAUA - ! is the aerosol extinction optical thickness. - ! PMN 2022-01-19 Added max(,0.) ... it shouldn't happen - ! that tau_ext < tau_scat, but since these TAUA and SSAA - ! come directly from the radiatively active aerosols - ! system, we provide a simple mitigation here. - TAUAER(IJ,K,:) = max(TAUA(I,J,LV,:) - SSAA(I,J,LV,:), 0.) - - enddo - - ! finish off top-of-model LEVEL - PLE_R (IJ,LM) = PLE(I,J,0)/100. ! [hPa] - TLEV_R(IJ,LM) = TLEV(1) - - ! Calculate the LAYER (mid-point) heights. - ! The interlayer distances are needed for the calculations - ! of inter-layer correlation for cloud overlapping in RRTMG. - ! Only *relative* distances matter, so wolog set ZM_R(1) = 0. - ! pmn: 2021-04-21 this calculation was wrong in earlier revisions. - ZM_R(IJ,1) = 0. - do K=2,LM - ! dz ~ RT/g x dp/p by hysrostatic eqn and ideal gas eqn. - ! The jump from LAYER k-1 to k is centered on LEVEL k-1 - ! since the RRTMG LEVEL (LE[V]_R) indices are zero-based - ZM_R(IJ,K) = ZM_R(IJ,K-1) + MAPL_RGAS*TLEV_R(IJ,K-1)/MAPL_GRAV & - * (PL_R(IJ,K-1)-PL_R(IJ,K))/PLE_R(IJ,K-1) - enddo - - enddo ! IM - enddo ! JM - - call MAPL_TimerOff(MAPL,"---RRTMG_FLIP",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"---RRTMG_INIT",RC=STATUS) - VERIFY_(STATUS) - -! pmn: consider putting futher up calling tree? -! pmn: only needs to be done once per run, but does consume memory - call RRTMG_LW_INI - - call MAPL_TimerOff(MAPL,"---RRTMG_INIT",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"---RRTMG_RUN",RC=STATUS) - VERIFY_(STATUS) - - call RRTMG_LW (IM*JM, LM, PARTITION_SIZE, TS_DERIVS, & - PL_R, PLE_R, T_R, TLEV_R, TSFC, EMISS, & - Q_R, O3_R, CO2_R, CH4_R, N2O_R, O2_R, & - CFC11_R, CFC12_R, CFC22_R, CCL4_R, & - FCLD_R, CICEWP, CLIQWP, REICE, RELIQ, ICEFLGLW, LIQFLGLW, & - TAUAER, ZM_R, ALAT, DOY, LCLDLM, LCLDMH, CLEARCOUNTS, & - UFLX, DFLX, UFLXC, DFLXC, DUFLX_DTS, DUFLXC_DTS, & - BAND_OUTPUT, OLRBRG, DOLRBRG_DTS) - - call MAPL_TimerOff(MAPL,"---RRTMG_RUN",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"---RRTMG_FLIP",RC=STATUS) - VERIFY_(STATUS) - - ! for outputs, unpack flattened horizontal and flip back vertical - IJ = 0 - do J = 1,JM - do I = 1,IM - IJ = IJ + 1 - - ! convert super-layer clearCounts to cloud fractions - if(associated(CLDTTLW)) then - CLDTTLW(I,J) = 1.0 - CLEARCOUNTS(IJ,1)/float(NGPTLW) - endif - if(associated(CLDHILW)) then - CLDHILW(I,J) = 1.0 - CLEARCOUNTS(IJ,2)/float(NGPTLW) - endif - if(associated(CLDMDLW)) then - CLDMDLW(I,J) = 1.0 - CLEARCOUNTS(IJ,3)/float(NGPTLW) - endif - if(associated(CLDLOLW)) then - CLDLOLW(I,J) = 1.0 - CLEARCOUNTS(IJ,4)/float(NGPTLW) - endif - - ! upward negative in GEOS-5 convention - do K = 0,LM - LV = LM-K+1 - FLXU_INT(I,J,K) =-UFLX (IJ,LV) - FLXD_INT(I,J,K) = DFLX (IJ,LV) - FLCU_INT(I,J,K) =-UFLXC (IJ,LV) - FLCD_INT(I,J,K) = DFLXC (IJ,LV) - DFDTS (I,J,K) =-DUFLX_DTS (IJ,LV) - DFDTSC (I,J,K) =-DUFLXC_DTS(IJ,LV) - enddo - - ! Reflected LW is not counted in surface emitted. Also, for now, - ! surface emitted is positive downwards consistent with Chou-Suarez. - ! (Note: All bands use the same emissivity) - SFCEM_INT(I,J) = -( UFLX(IJ,1) - DFLX(IJ,1)*(1.-EMIS(I,J)) ) - - enddo ! IM - enddo ! JM - - ! band OLR and brightness temperatures - do ibnd = 1,nbndlw - if (band_output(ibnd)) then - write(bb,'(I0.2)') ibnd - - call MAPL_GetPointer(INTERNAL, ptr2d, 'OLRB'//bb//'RG', __RC__) - ptr2d = reshape(OLRBRG (ibnd,:), [IM,JM]) - - call MAPL_GetPointer(INTERNAL, ptr2d, 'DOLRB'//bb//'RGDT', __RC__) - ptr2d = reshape(DOLRBRG_DTS (ibnd,:), [IM,JM]) - - end if - end do - - call MAPL_TimerOff(MAPL,"---RRTMG_FLIP",RC=STATUS) - VERIFY_(STATUS) - - ! pmn: - ! RRTMG does not provide no-aerosol derivatives - ! so set no-aerosol to aerosol derivatives - DFDTSNA = DFDTS - DFDTSCNA = DFDTSC - - deallocate(FCLD_R,__STAT__) - deallocate(TLEV_R,__STAT__) - deallocate(PLE_R,__STAT__) - deallocate(ZM_R,__STAT__) - deallocate(EMISS,__STAT__) - deallocate(CLIQWP,__STAT__) - deallocate(CICEWP,__STAT__) - deallocate(RELIQ,__STAT__) - deallocate(REICE,__STAT__) - deallocate(TAUAER,__STAT__) - deallocate(PL_R,__STAT__) - deallocate(T_R,__STAT__) - deallocate(Q_R,__STAT__) - deallocate(O2_R,__STAT__) - deallocate(O3_R,__STAT__) - deallocate(CO2_R,__STAT__) - deallocate(CH4_R,__STAT__) - deallocate(N2O_R,__STAT__) - deallocate(CFC11_R,__STAT__) - deallocate(CFC12_R,__STAT__) - deallocate(CFC22_R,__STAT__) - deallocate(CCL4_R,__STAT__) - deallocate(TSFC,__STAT__) - deallocate(UFLX,__STAT__) - deallocate(DFLX,__STAT__) - deallocate(UFLXC,__STAT__) - deallocate(DFLXC,__STAT__) - deallocate(DUFLX_DTS,__STAT__) - deallocate(DUFLXC_DTS,__STAT__) - deallocate(CLEARCOUNTS,__STAT__) - deallocate(ALAT,__STAT__) - deallocate(OLRBRG,__STAT__) - deallocate(DOLRBRG_DTS,__STAT__) - - call MAPL_TimerOff(MAPL,"--RRTMG",RC=STATUS) - VERIFY_(STATUS) - - else - - ! Something is wrong. We've selected neither Chou or RRTMG - _ASSERT(.false.,'needs informative message') - - end if SCHEME - -! Sum up the U and D fluxes to get net downward - - FLX_INT = FLXD_INT + FLXU_INT - FLXA_INT = FLXAD_INT + FLXAU_INT - FLC_INT = FLCD_INT + FLCU_INT - FLA_INT = FLAD_INT + FLAU_INT - - ! Revert to SFCEM to a positive quantity. - ! Earlier surface emitted positive downwards per Chou-Suarez. - SFCEM_INT = -SFCEM_INT - -! Save surface temperature in internal state -!------------------------------------------- - - TS_INT = TS - -! Export some cloud properties in the infrared -!--------------------------------------------- - - call MAPL_TimerOn (MAPL,"--MISC") - - call MAPL_GetResource( MAPL, TAUCRIT, 'TAUCRIT:', DEFAULT=0.30, RC=STATUS) - VERIFY_(STATUS) - TAUCRIT = TAUCRIT/2.13 - - call MAPL_GetPointer(EXPORT, CLDPRS, 'CLDPRS' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLDTMP, 'CLDTMP' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TAUIR, 'TAUIR' ,RC=STATUS); VERIFY_(STATUS) - - if(associated(TAUIR)) TAUIR = 0.5*(TAUDIAG(:,:,:,3)+TAUDIAG(:,:,:,4)) - - if(associated(CLDTMP).or.associated(CLDPRS)) then - if(associated(CLDTMP)) CLDTMP = MAPL_UNDEF - if(associated(CLDPRS)) CLDPRS = MAPL_UNDEF - do j=1,jm - do i=1,im - do l=1,lm - if(0.5*(TAUDIAG(I,J,L,3)+TAUDIAG(I,J,L,4))>TAUCRIT) then - if(associated(CLDTMP)) CLDTMP(I,J) = T (I,J,L) - if(associated(CLDPRS)) CLDPRS(I,J) = PLE(I,J,L-1) - exit - end if - end do - end do - end do - end if - - ! Correcting the timing of the alw and blw (mjs) - - call MAPL_GetPointer(EXPORT, TSREFF, 'TSREFF' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SFCEM, 'SFCEM0' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DSFDTS, 'DSFDTS0',RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LWS0, 'LWS0' ,RC=STATUS); VERIFY_(STATUS) - - if(associated(TSREFF)) TSREFF = TS ! reference TS for linearization - if(associated(DSFDTS)) DSFDTS =-DFDTS(:,:,LM) ! d(non-negated upward sfc flux) / dTS - if(associated(SFCEM )) SFCEM = SFCEM_INT ! sfc emitted flux (+ve) - if(associated(LWS0 )) LWS0 = & ! absorbed (not reflected) - FLX_INT(:,:,LM) + SFCEM_INT ! downward sfc flux (+ve) - - ! Deallocate per-band aerosol arrays - ! ---------------------------------- - - DEALLOCATE(TAUA) - DEALLOCATE(SSAA) - DEALLOCATE(ASYA) - - call MAPL_TimerOff(MAPL,"--MISC") - -! All done -!----------- - - RETURN_(ESMF_SUCCESS) - - end subroutine LW_Driver - -!------------------------------------------------ -!------------------------------------------------ - - subroutine Update_Flx(IM,JM,LM,RC) - integer, intent(IN ) :: IM, JM, LM - integer, optional, intent(OUT) :: RC - -! Locals - - character(len=ESMF_MAXSTR) :: Iam - integer :: STATUS - - real, dimension(IM,JM) :: DELT - integer :: K - integer :: LEV_LOW_MID - integer :: LEV_MID_HIGH - real :: PRS_LOW_MID ! pressure separating low and middle clouds - real :: PRS_MID_HIGH ! pressure separating low and high clouds - - ! band wavenumber bounds (m-1) - real :: wn1, wn2 - -! pointer to import - - real, pointer, dimension(:,: ) :: TSINST - -! pointers to export - - real, pointer, dimension(:,:,:) :: FLX - real, pointer, dimension(:,:,:) :: FLXA - real, pointer, dimension(:,:,:) :: FLC - real, pointer, dimension(:,:,:) :: FLA - real, pointer, dimension(:,:,:) :: FLXU - real, pointer, dimension(:,:,:) :: FLXAU - real, pointer, dimension(:,:,:) :: FLCU - real, pointer, dimension(:,:,:) :: FLAU - real, pointer, dimension(:,:,:) :: FLXD - real, pointer, dimension(:,:,:) :: FLXAD - real, pointer, dimension(:,:,:) :: FLCD - real, pointer, dimension(:,:,:) :: FLAD - real, pointer, dimension(:,: ) :: TSREFF - real, pointer, dimension(:,: ) :: SFCEM - real, pointer, dimension(:,: ) :: DSFDTS - real, pointer, dimension(:,: ) :: SFCEM0 - real, pointer, dimension(:,: ) :: DSFDTS0 - real, pointer, dimension(:,: ) :: OLR - real, pointer, dimension(:,: ) :: OLRA - real, pointer, dimension(:,: ) :: OLC - real, pointer, dimension(:,: ) :: OLCC5 - real, pointer, dimension(:,: ) :: OLA - real, pointer, dimension(:,: ) :: FLNS - real, pointer, dimension(:,: ) :: FLNSNA - real, pointer, dimension(:,: ) :: FLNSC - real, pointer, dimension(:,: ) :: FLNSA - real, pointer, dimension(:,: ) :: LWS - real, pointer, dimension(:,: ) :: LWSA - real, pointer, dimension(:,: ) :: LCS - real, pointer, dimension(:,: ) :: LCSC5 - real, pointer, dimension(:,: ) :: LAS - real, pointer, dimension(:,: ) :: CLDTT - real, pointer, dimension(:,: ) :: ptr2d - - real, pointer, dimension(:,:,:) :: FCLD - real, pointer, dimension(: ) :: PREF - - real, allocatable, dimension(:,:) :: DUMTT, OLRB - -! Begin... -!---------- - - IAm = "Update_Flx" - -! Pointers to Exports -!-------------------- - - call MAPL_GetPointer(EXPORT, FLX , 'FLX', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLXA , 'FLXA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLC , 'FLC', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLA , 'FLA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLXU , 'FLXU', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLXAU , 'FLXAU', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLCU , 'FLCU', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLAU , 'FLAU', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLXD , 'FLXD', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLXAD , 'FLXAD', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLCD , 'FLCD', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLAD , 'FLAD', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TSREFF, 'TSREFF',RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SFCEM , 'SFCEM', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DSFDTS, 'DSFDTS',RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SFCEM0, 'SFCEM0',RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DSFDTS0, 'DSFDTS0',RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, OLR , 'OLR' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, OLRA , 'OLRA' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, OLC , 'OLC' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, OLCC5 , 'OLCC5' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, OLA , 'OLA' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LWS , 'LWS' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LWSA , 'LWSA' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LCS , 'LCS' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LCSC5 , 'LCSC5' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LAS , 'LAS' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLNS , 'FLNS' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLNSNA, 'FLNSNA',RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLNSC , 'FLNSC' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FLNSA , 'FLNSA' ,RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, CLDTT , 'CLDTT' ,ALLOC=.TRUE.,RC=STATUS); VERIFY_(STATUS) - -! Determine the 2-D Total Cloud Fraction -!--------------------------------------- - - call MAPL_GetResource( MAPL, PRS_LOW_MID, 'PRS_LOW_MID_CLOUDS:' , DEFAULT=70000., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetResource( MAPL, PRS_MID_HIGH, 'PRS_MID_HIGH_CLOUDS:', DEFAULT=40000., RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetPointer( IMPORT, FCLD, 'FCLD', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer( IMPORT, PREF, 'PREF', RC=STATUS) - VERIFY_(STATUS) - - ALLOCATE( DUMTT(IM,JM), STAT=STATUS) - VERIFY_(STATUS) - -! Determine the model level separating mid and high clouds -!--------------------------------------------------------- - LEV_MID_HIGH = 1 - do K = 1, LM - if( PREF(K) >= PRS_MID_HIGH ) then - LEV_MID_HIGH = K - exit - end if - end do - -! Determine the model level seperating low and middle clouds -!----------------------------------------------------------- - LEV_LOW_MID = LM - do K = 1, LM - if( PREF(K) >= PRS_LOW_MID ) then - LEV_LOW_MID = K - exit - end if - end do - - DUMTT = 0. - do K=1,LEV_MID_HIGH-1 - DUMTT = max(DUMTT,FCLD(:,:,K)) - end do - CLDTT = (1-DUMTT) - DUMTT = 0. - do K= LEV_MID_HIGH,LEV_LOW_MID-1 - DUMTT = max(DUMTT,FCLD(:,:,K)) - end do - CLDTT = CLDTT*(1-DUMTT) - DUMTT = 0. - do K=LEV_LOW_MID,LM - DUMTT = max(DUMTT,FCLD(:,:,K)) - end do - CLDTT = 1.0 - CLDTT*(1-DUMTT) - -! Pointers to Imports -!-------------------- - - call MAPL_GetPointer(IMPORT, TSINST, 'TSINST', RC=STATUS); VERIFY_(STATUS) - -! Update fluxes -!-------------- - - ! linearization with surface temperature notes: - ! a. only upward fluxes linearized wrt surface temperature - ! b. the derivatives DFDTS[C] have the same sign convention as the negated upward fluxes - ! (i.e., they are the derivatives of negated upward fluxes with surface temperature) - - ! surface temperature change since refresh for linearization - DELT = TSINST - TS_INT - - if( USE_CHOU .or. USE_RRTMGP ) THEN - - ! fill 3D fluxes - do K = 0, LM - ! net downward (downward plus negated upward) fluxes - if(associated(FLX)) FLX (:,:,K) = FLX_INT(:,:,K) + DFDTS (:,:,K) * DELT ! all-sky - if(associated(FLXA)) FLXA (:,:,K) = FLXA_INT(:,:,K) + DFDTSNA (:,:,K) * DELT ! all-sky no-aerosol - if(associated(FLC)) FLC (:,:,K) = FLC_INT(:,:,K) + DFDTSC (:,:,K) * DELT ! clr-sky - if(associated(FLA)) FLA (:,:,K) = FLA_INT(:,:,K) + DFDTSCNA(:,:,K) * DELT ! clr-sky no-aerosol - ! negated upward fluxes - if(associated(FLXU)) FLXU(:,:,K) = FLXU_INT(:,:,K) + DFDTS (:,:,K) * DELT - if(associated(FLXAU)) FLXAU(:,:,K) = FLXAU_INT(:,:,K) + DFDTSNA (:,:,K) * DELT - if(associated(FLCU)) FLCU(:,:,K) = FLCU_INT(:,:,K) + DFDTSC (:,:,K) * DELT - if(associated(FLAU)) FLAU(:,:,K) = FLAU_INT(:,:,K) + DFDTSCNA(:,:,K) * DELT - ! downward fluxes - if(associated(FLXD)) FLXD(:,:,K) = FLXD_INT(:,:,K) - if(associated(FLXAD)) FLXAD(:,:,K) = FLXAD_INT(:,:,K) - if(associated(FLCD)) FLCD(:,:,K) = FLCD_INT(:,:,K) - if(associated(FLAD)) FLAD(:,:,K) = FLAD_INT(:,:,K) - end do - - ! fill TOA exports - ! outgoing longwave radiation - ! pmn: using FLXU_INT, etc. would be better ... here assuming down at TOA is zero - if(associated(OLR )) OLR = -( FLX_INT(:,:, 0) + DFDTS (:,:, 0) * DELT) - if(associated(OLRA )) OLRA = -(FLXA_INT(:,:, 0) + DFDTSNA (:,:, 0) * DELT) - if(associated(OLC )) OLC = -( FLC_INT(:,:, 0) + DFDTSC (:,:, 0) * DELT) - if(associated(OLA )) OLA = -( FLA_INT(:,:, 0) + DFDTSCNA(:,:, 0) * DELT) - if(associated(OLCC5)) then - where(CLDTT <= 0.05 ) - OLCC5 = -( FLC_INT(:,:, 0) + DFDTSC (:,:, 0) * DELT) - elsewhere - OLCC5 = MAPL_UNDEF - endwhere - endif - - ! fill surface exports - - ! current surface emitted flux derivative wrt surface temperature (+ve) - ! pmn: should be deprecated ... same as DSFDTS0 - if(associated(DSFDTS)) DSFDTS = -DFDTS(:,:,LM) - - ! surface emitted flux (+ve) - if(associated(SFCEM)) SFCEM = SFCEM_INT - DFDTS(:,:,LM) * DELT - - ! absorbed (non-reflected) downward surface fluxes - ! (remember: downward fluxes are not not linearized) - if(associated(LWS )) LWS = FLX_INT(:,:,LM) + SFCEM_INT - if(associated(LWSA )) LWSA = FLXA_INT(:,:,LM) + SFCEM_INT - if(associated(LCS )) LCS = FLC_INT(:,:,LM) + SFCEM_INT - if(associated(LAS )) LAS = FLA_INT(:,:,LM) + SFCEM_INT - if(associated(LCSC5)) then - where(CLDTT <= 0.05 ) - LCSC5 = FLC_INT(:,:,LM) + SFCEM_INT - elsewhere - LCSC5 = MAPL_UNDEF - endwhere - endif - - ! surface net downward fluxes - if(associated(FLNS )) FLNS = FLX_INT(:,:,LM) + DFDTS (:,:,LM) * DELT - if(associated(FLNSNA)) FLNSNA = FLXA_INT(:,:,LM) + DFDTSNA (:,:,LM) * DELT - if(associated(FLNSC )) FLNSC = FLC_INT(:,:,LM) + DFDTSC (:,:,LM) * DELT - if(associated(FLNSA )) FLNSA = FLA_INT(:,:,LM) + DFDTSCNA(:,:,LM) * DELT - - ! RRTMG is a special case because its no-aerosol cases are missing - else if( USE_RRTMG ) THEN - - ! fill 3D fluxes - do K = 0, LM - ! net downward (downward plus negated upward) fluxes - if(associated(FLX)) FLX (:,:,K) = FLX_INT(:,:,K) + DFDTS (:,:,K) * DELT ! all-sky - if(associated(FLXA)) FLXA (:,:,K) = MAPL_UNDEF ! all-sky no-aerosol - if(associated(FLC)) FLC (:,:,K) = FLC_INT(:,:,K) + DFDTSC(:,:,K) * DELT ! clr-sky - if(associated(FLA)) FLA (:,:,K) = MAPL_UNDEF ! clr-sky no-aerosol - ! negated upward fluxes - if(associated(FLXU)) FLXU(:,:,K) = FLXU_INT(:,:,K) + DFDTS (:,:,K) * DELT - if(associated(FLXAU)) FLXAU(:,:,K) = MAPL_UNDEF - if(associated(FLCU)) FLCU(:,:,K) = FLCU_INT(:,:,K) + DFDTSC(:,:,K) * DELT - if(associated(FLAU)) FLAU(:,:,K) = MAPL_UNDEF - ! downward fluxes - if(associated(FLXD)) FLXD(:,:,K) = FLXD_INT(:,:,K) - if(associated(FLXAD)) FLXAD(:,:,K) = MAPL_UNDEF - if(associated(FLCD)) FLCD(:,:,K) = FLCD_INT(:,:,K) - if(associated(FLAD)) FLAD(:,:,K) = MAPL_UNDEF - end do - - ! fill TOA exports - ! outgoing longwave radiation - ! pmn: using FLXU_INT, etc. would be better ... here assuming down at TOA is zero - if(associated(OLR )) OLR = -( FLX_INT(:,:, 0) + DFDTS (:,:, 0) * DELT) - if(associated(OLRA )) OLRA = MAPL_UNDEF - if(associated(OLC )) OLC = -( FLC_INT(:,:, 0) + DFDTSC(:,:, 0) * DELT) - if(associated(OLA )) OLA = MAPL_UNDEF - if(associated(OLCC5)) then - where(CLDTT <= 0.05 ) - OLCC5 = -( FLC_INT(:,:, 0) + DFDTSC(:,:, 0) * DELT) - elsewhere - OLCC5 = MAPL_UNDEF - endwhere - endif - - ! fill surface exports - - ! current surface emitted flux derivative wrt surface temperature (+ve) - ! pmn: should be deprecated ... same as DSFDTS0 - if(associated(DSFDTS)) DSFDTS = -DFDTS(:,:,LM) - - ! surface emitted flux (+ve) - if(associated(SFCEM)) SFCEM = SFCEM_INT - DFDTS(:,:,LM) * DELT - - ! absorbed (non-reflected) downward surface fluxes - ! (remember: downward fluxes are not not linearized) - if(associated(LWS )) LWS = FLX_INT(:,:,LM) + SFCEM_INT - if(associated(LWSA )) LWSA = MAPL_UNDEF - if(associated(LCS )) LCS = FLC_INT(:,:,LM) + SFCEM_INT - if(associated(LAS )) LAS = MAPL_UNDEF - if(associated(LCSC5)) then - where(CLDTT <= 0.05 ) - LCSC5 = FLC_INT(:,:,LM) + SFCEM_INT - elsewhere - LCSC5 = MAPL_UNDEF - endwhere - endif - - ! surface net downward fluxes - if(associated(FLNS )) FLNS = FLX_INT(:,:,LM) + DFDTS (:,:,LM) * DELT - if(associated(FLNSNA)) FLNSNA = MAPL_UNDEF - if(associated(FLNSC )) FLNSC = FLC_INT(:,:,LM) + DFDTSC(:,:,LM) * DELT - if(associated(FLNSA )) FLNSA = MAPL_UNDEF - - ! band OLR and/or TBR output - do ibnd = 1,nbndlw - if (band_output(ibnd)) then - - write(bb,'(I0.2)') ibnd - allocate(OLRB(IM,JM),__STAT__) - - ! get last full calculation - call MAPL_GetPointer(INTERNAL, ptr2d, 'OLRB'//bb//'RG', __RC__) - OLRB = ptr2d - - ! update for surface temperature on heartbeat - call MAPL_GetPointer(INTERNAL, ptr2d, 'DOLRB'//bb//'RGDT', __RC__) - OLRB = OLRB + ptr2d * DELT - - ! fill OLRBbbRG if requested - call MAPL_GetPointer(EXPORT, ptr2d, 'OLRB'//bb//'RG', __RC__) - if (associated(ptr2d)) ptr2D = OLRB - - ! calculate TBRBbbRG if requested - call MAPL_GetPointer(EXPORT, ptr2d, 'TBRB'//bb//'RG', __RC__) - if (associated(ptr2d)) then - wn1 = wavenum1(ibnd)*100.; wn2 = wavenum2(ibnd)*100. ! [m-1] - call Tbr_from_band_flux(IM, JM, OLRB, wn1, wn2, ptr2d, __RC__) - end if - - deallocate(OLRB) - - end if - end do - - endif ! RRTMG - - ! update reference linearization to current temperature - ! pmn: should be deprecated because its moving along the line passing - ! through point (TS_INT, SFCEM_INT) with slope -DFDTS (:,:,LM) that - ! was defined only in the last REFRESH(). Better to just stick with - ! the exports set in REFRESH() alone. - if(associated(DSFDTS0)) DSFDTS0 = - DFDTS(:,:,LM) - if(associated(SFCEM0 )) SFCEM0 = SFCEM_INT - DFDTS(:,:,LM) * DELT - if(associated(TSREFF )) TSREFF = TSINST - -! All done -!----------- - deallocate( DUMTT ) - - RETURN_(ESMF_SUCCESS) - - end subroutine Update_Flx - - ! estimate brightness temperature from a band flux - subroutine Tbr_from_band_flux(IM, JM, Fband_, wn1, wn2, Tbr_, RC) - - ! input arguments - integer, intent(in ) :: IM, JM - real, intent(in ) :: Fband_(IM,JM) ! band flux [W/m2] - real, intent(in ) :: wn1, wn2 ! bounds of band [m-1] - - ! output arguments - real, intent(out) :: Tbr_(IM,JM) ! brightness temp [K] - - ! error code - integer, optional, intent(out) :: RC - - ! fundamental constants - double precision, parameter :: h = 6.626070040d-34 ! Plancks constant [J.s] - double precision, parameter :: c = 2.99792458d8 ! Speed of light in vacuum [m/s] - double precision, parameter :: kB = 1.38064852d-23 ! Boltzmann constant [J/K] - double precision, parameter :: pi = MAPL_PI_R8 - - ! other constants - double precision, parameter :: alT = h * c / kB - double precision, parameter :: bigS = 2.0d0 * kB**4 * pi / (h**3 * c**2) - double precision, parameter :: bigC = 2.0d0 * h * c**2 - - ! locals - double precision, dimension(IM,JM) :: Fband, Tbr, Bmean - real :: wnMid - - if (present(RC)) RC = ESMF_SUCCESS - - ! special case of all zero fluxes before first call to LW_Driver() - if (all(Fband_ == 0.0)) then - Tbr_ = MAPL_UNDEF - return - end if - - ! calculations done in double precision - Fband = dble(Fband_) - - ! first guess Tbr from narrow band approximation ... - ! (1) estimate mean Planck function for a narrow band - Bmean = Fband / (pi * (wn2 - wn1)) - ! (2) invert Planck function for temp at mid-point wavenumber - wnMid = (wn1 + wn2) / 2.0d0 - call invert_Planck_for_T(IM, JM, Bmean, wnMid, bigC, alT, Tbr, __RC__) - - ! now refine with a wide band esimate - ! PMN: Iterative routine not ready for prime time - ! Produces erroneously large Tbr in cloudy regions - !call Tbr_wide_band(IM, JM, Fband, wn1, wn2, bigS, alT, Tbr, __RC__) - - ! put output back in real - Tbr_ = real(Tbr) - - end subroutine Tbr_from_band_flux - - ! invert Planck function for temperature - subroutine invert_Planck_for_T(IM, JM, Bwn, wn, bigC, alT, T, RC) - - ! input arguments - integer, intent(in ) :: IM, JM - double precision, intent(in ) :: Bwn(IM,JM) ! PlanckFn(wavenumber) - real, intent(in ) :: wn ! wavenumber [m-1] - double precision, intent(in ) :: bigC, alT ! necessary constants - - ! output arguments - double precision, intent(out) :: T(IM,JM) ! temperature [K] - - ! error code - integer, optional, intent(out) :: RC - - ! error checking - if (present(RC)) RC = ESMF_SUCCESS - _ASSERT(wn > 0.,'needs informative message') - - ! invert Planck function for temp - T = alT * wn / log(bigC * wn**3 / Bwn + 1.0d0) - - end subroutine invert_Planck_for_T - - ! Tbr from wide band approximation - subroutine Tbr_wide_band(IM, JM, Fband, wn1, wn2, bigS, alT, Tbr, RC) - - ! input arguments - integer, intent(in ) :: IM, JM - double precision, intent(in ) :: Fband(IM,JM) ! band flux [W/m2] - real, intent(in ) :: wn1, wn2 ! bounds of band [m-1] - double precision, intent(in ) :: bigS, alT ! necessary constant - - ! Tbr inputs first guess and outputs better estimate - double precision, intent(inout) :: Tbr(IM,JM) ! brightness temp [K] - - ! error code - integer, optional, intent(out) :: RC - - ! number of iterations for wide band estimate (converges slowly) - integer, parameter :: Nits = 16 - - ! locals - integer :: n - real :: alTwn1, alTwn2 - - ! error checking - if (present(RC)) RC = ESMF_SUCCESS - _ASSERT(wn2 > wn1,'needs informative message') - _ASSERT(Nits >= 1,'needs informative message') - - ! iterate from first guess Tbr to better estimate - alTwn1 = alT * wn1 - alTwn2 = alT * wn2 - do n = 1, Nits - Tbr = ( Fband / (bigS * (Tfunc(alTwn1/Tbr) - Tfunc(alTwn2/Tbr))) ) ** 0.25d0 - end do - - end subroutine Tbr_wide_band - - elemental double precision function Tfunc(x) - - double precision, intent(in) :: x - - ! maximum number of terms in series (converges quickly) - integer, parameter :: nmax = 4 - - ! locals - integer :: n, n2, n3 - double precision :: emx, cx0, cx1, cx2, cx3, zn - - ! setup - emx = exp(-x) - cx0 = 6.0d0 - cx1 = 6.0d0 * x - cx2 = 3.0d0 * x**2 - cx3 = x**3 - - ! do at least 1st order - Tfunc = (cx3 + cx2 + cx1 + cx0) * emx - if (nmax <= 1) return - - ! higher orders - zn = emx - do n = 2, nmax - n2 = n * n - n3 = n * n2 - zn = zn * emx - Tfunc = Tfunc + (cx3 + cx2/n + cx1/n2 + cx0/n3) * zn / n - end do - - end function Tfunc - -end subroutine RUN - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -end module GEOS_IrradGridCompMod - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/IrradDoc03.pdf b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/IrradDoc03.pdf deleted file mode 100755 index 659ecdd82..000000000 Binary files a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/IrradDoc03.pdf and /dev/null differ diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/IrradDoc94.pdf b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/IrradDoc94.pdf deleted file mode 100755 index 7f8351e79..000000000 Binary files a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/IrradDoc94.pdf and /dev/null differ diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/CMakeLists.txt deleted file mode 100644 index b5c4e8129..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/CMakeLists.txt +++ /dev/null @@ -1 +0,0 @@ -add_subdirectory(rrtmg_lw) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/CMakeLists.txt deleted file mode 100644 index d2cb176e2..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/CMakeLists.txt +++ /dev/null @@ -1 +0,0 @@ -add_subdirectory (gcm_model) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/README b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/README deleted file mode 100644 index 124746f47..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/README +++ /dev/null @@ -1,280 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! --------------------------------------------------------------------- - - RRTMG_LW: Longwave Radiative Transfer Model for GCMs - Atmospheric and Environmental Research, Inc., - 131 Hartwell Avenue, Lexington, MA 02421 - - Original version: E. J. Mlawer, et al. (AER) - Revision for GCMs: Michael J. Iacono (AER) - - Contact: Michael J. Iacono (E-mail: miacono@aer.com) - - Web Site: www.rtweb.aer.com - - References (RRTMG_LW/RRTM_LW): - Iacono, M.J., J.S. Delamere, E.J. Mlawer, M.W. Shephard, - S.A. Clough, and W.D. Collins, Radiative forcing by long- - lived greenhouse gases: Calculations with the AER radiative - transfer models, J. Geophys. Res., 113, D13103, doi: - 10.1029/2008JD009944, 2008. - - Clough, S.A., M.W. Shephard, E.J. Mlawer, J.S. Delamere, - M.J. Iacono, K. Cady-Pereira, S. Boukabara, and P.D. Brown, - Atmospheric radiative transfer modeling: a summary of the - AER codes, J. Quant., Spectrosc. Radiat. Transfer, 91, - 233-244, 2005. - - Iacono, M.J., J.S. Delamere, E.J. Mlawer, and S.A. Clough, - Evaluation of upper tropospheric water vapor in the NCAR - Community Climate Model (CCM3) using modeled and observed - HIRS radiances. J. Geophys. Res., 108(D2), 4037, doi:10.1029/ - 2002JD002539, 2003. - - Iacono, M.J., E.J. Mlawer, S.A. Clough, and J.-J. Morcrette, - Impact of an improved longwave radiation model, RRTM, on the - energy budget and thermodynamic properties of the NCAR Community - Climate Model, CCM3, J. Geophys. Res., 105, 14873-14890, 2000. - - Mlawer, E.J., S.J. Taubman, P.D. Brown, M.J. Iacono, and S.A. - Clough: Radiative transfer for inhomogeneous atmospheres: RRTM, - a validated correlated-k model for the longwave. J. Geophys. - Res., 102, 16663-16682, 1997. - - Reference (McICA): - Pincus, R., H. W. Barker, and J.-J. Morcrette, A fast, flexible, - approximation technique for computing radiative transfer in - inhomogeneous cloud fields, J. Geophys. Res., 108(D13), 4376, - doi:10.1029/2002JD003322, 2003. -****************************************************************************** - -This package contains the source code and sample makefiles necessary to run the -latest version of RRTMG_LW, a correlated k-distribution longwave radiative transfer -model developed at AER, Inc for application to GCMs. This version of RRTMG_LW -has been modified from the standard RRTM_LW distributed by AER to enhance its -performance for use within general circulation models. This code has also -been modified to utilize FORTRAN90 coding features. Two modes of operation -are possible. RRTMG_LW can be run in stand-alone mode using the input files -and source modules described below, or it can be attached to an atmospheric -general circulation model or single column model. - -The version of RRTMG_LW provided here has been modified from the standard -RRTM_LW to enhance performance with little effect on the accuracy. The total -number of g-points used has been reduced from 256 to 140. Fluxes are accurate -to within 0.5 W/m2 and cooling rate within 0.1 K/day relative to the standard -RRTM_LW, which is itself accurate to within 1 W/m2 of the data-validated -line-by-line radiative transfer model, LBLRTM. Absorption coefficient data -can be read in from original source statements or from a netCDF file as -selected in the makefile. - -This model can also utilize McICA, the Monte-Carlo Independent Column -Approximation, to represent sub-grid scale cloud variability such as cloud -fraction and cloud overlap. If the McICA option is selected to model a cloudy -profile in column mode, then the model will run stochastically, and the output -fluxes and heating rates will be an average over 200 samples. - -The model includes an optional feature to provide simultaneously with a -normal forward calculation the change in upward flux with respect to surface -temperature for each model level. This new option is controlled by a new -input flag, idrv. Setting this flag to one will output dF/dT for total sky -and clear sky in GCM mode in new output arrays duflx_dt and duflxc_dt. These -can be utilized to approximate the change in upward flux for a change in -surface temperature only at time intervals between full radiation calls. -In single column mode, setting idrv to 1 requires the extra input of a dT -change in surface temperature relative to the input surface temperature, and -the provided dT will be applied to the flux derivative to output a modified -upward flux profile for that dT change in surface temperature. The default -idrv setting of 0 provides the original forward radiative transfer calculation. - - -************************* -RRTMG_LW : Column Version -************************* - -DOCUMENTATION: - The following text files (some in /column_model/doc directory) provide information - on using and running RRTMG_LW: - - README : Basic code package information (this file) - release_notes.txt : Code archive update information - rrtmg_lw_instructions.txt : Input instructions for files INPUT_RRTM, IN_CLD_RRTM - and IN_AER_RRTM - - -SOURCE CODE: - The following source files (in /column_model/src directory) must be used to run - RRTMG_LW in stand-alone mode as a column model: - - rrtmg_lw.1col.f90 : RRTMG_LW main module - rrtmg_lw_cldprop.f90 : Calculation of cloud optical properties - rrtmg_lw_cldprmc.f90 : Calculation of cloud optical properties (McICA) - rrtmg_lw_init.f90 : RRTMG_LW initialization routine; reduces g-intervals - from 256 to 140 - rrtmg_lw_k_g.f90 : Absorption coefficient data file - rrtmg_lw_read_nc.f90 : Alternate absorption coefficient data netCDF input - rrtmg_lw_rtrn.f90 : Calculation of clear and cloudy radiative transfer - using random cloud overlap - rrtmg_lw_rtrnmr.f90 : Calculation of clear and cloudy radiative transfer - using maximum-random cloud overlap - rrtmg_lw_rtrnmc.f90 : Calculation of clear and cloudy radiative transfer - using McICA (with selectable overlap method) - rrtmg_lw_setcoef.f90 : Set up routine - rrtmg_lw_taumol.f90 : Calculation of optical depths and Planck fractions for - each spectral band - mcica_random_numbers.f90 : Random number generator for McICA - mcica_subcol_gen_lw.1col.f90 : Sub-column generator for McICA - rrtatm.f : Process user-defined input data files - extra.f : Process input data files - util_**.f : Utilities (available for multiple platforms) - - The following module files (in /column_model/modules directory) must be used to run - RRTMG_LW in stand-alone mode as a column model (these must be compiled before the - source code files): - - parkind.f90 : real and integer kind type parameters - parrrtm.f90 : main configuration parameters - rrlw_cld.f90 : cloud property coefficients - rrlw_con.f90 : constants - rrlw_kg**.f90 : absorption coefficient arrays for 16 spectral bands - rrlw_ncpar.f90 : parameters for netCDF input data option - rrlw_ref.f90 : reference atmosphere data arrays - rrlw_tbl.f90 : exponential look up table arrays - rrlw_vsn.f90 : version number information - rrlw_wvn.f90 : spectral band and g-interval array information - - -INPUT DATA: - The following file (in directory /column_model/data) is the netCDF file - containing absorption coefficient and other input data for the model. - The file is used if netCDF input is selected in the makefile. - - rrtmg_lw.nc : Optional netCDF input data file - - -MAKEFILES: - The following files (in directory /column_model/build/makefiles) can be used to - compile RRTMG_LW in stand-alone mode as a column model on various platforms. Link - one of these into the /column_model/build directory to compile. - - make_rrtmg_lw_sgi : Sample makefile for SGI - make_rrtmg_lw_sun : Sample makefile for SUN - make_rrtmg_lw_linux_pgi : Sample makefile for LINUX (PGI compiler) - make_rrtmg_lw_aix_xlf90 : Sample makefile for AIX (XLF90 compiler) - make_rrtmg_lw_OS_X_g95 : Sample makefile for OS_X (G95 compiler) - make_rrtmg_lw_OS_X_ibm_xl : Sample makefile for OS_X (IBM XL compiler) - - -SAMPLE INPUT/OUTPUT: - Several sample input (and output) files are included in the /runs_std_atm directory. - Note that user-defined profiles may be used for as many as 200 layers. - - INPUT_RRTM : Required input file for (clear sky) atmospheric - specification - IN_CLD_RRTM : Required input file for cloud specification if clouds - are present - IN_AER_RRTM : Required input file for aerosol specification if aerosols - are present - OUTPUT_RRTM : Main output file for atmospheric fluxes and heating rates - input_rrtm.MLS-clr : Sample 51 layer mid-latitude summer standard atmosphere - for clear sky - input_rrtm.MLS-cld-imca0 : Sample 51 layer mid-latitude summer standard atmosphere - with cloud flag turned on (without McICA) - input_rrtm.MLS-cld-imca1 : Sample 51 layer mid-latitude summer standard atmosphere - with cloud flag turned on (with McICA) - input_rrtm.MLS-clr-aer12 : Sample 51 layer mid-latitude summer standard atmosphere - with aersol flag set - input_rrtm.MLS-clr-xsec : Sample 51 layer mid-latitude summer standard atmosphere - with cross-section input (CFCs, etc.) - input_rrtm.MLS-clr-idrv1 : Sample 51 layer mid-latitude summer standard atmosphere - with derivative option set to provide modified upward - fluxes for the provided change in surface temperature - input_rrtm.MLW-clr : Sample 51 layer mid-latitude winter standard atmosphere - input_rrtm.SAW-clr : Sample 51 layer sub-arctic winter standard atmosphere - input_rrtm.TROP-clr : Sample 51 layer tropical standard atmosphere - in_cld_rrtm-cld5 : Sample cloud input file - in_aer_rrtm-aer12 : Sample aerosol input file - - - -********************* -RRTMG_LW: GCM version -********************* - -DOCUMENTATION: - README : Basic code package information (this file) - - -SOURCE CODE: - The following source files (in /gcm_model/src directory) must be used to run - RRTMG_LW as a callable subroutine: - NOTE: Only one of rrtmg_lw_k_g.f90 or rrtmg_lw_read_nc.f90 is required. - - rrtmg_lw_rad.f90 : RRTMG_LW main module (with McICA) - rrtmg_lw_rad.nomcica.f90 : Optional RRTMG_LW main module (without McICA only) - rrtmg_lw_cldprop.f90 : Calculation of cloud optical properties - rrtmg_lw_cldprmc.f90 : Calculation of cloud optical properties (McICA) - rrtmg_lw_init.f90 : RRTMG_LW initialization routine; reduces g-intervals - from 256 to 140; (This has to run only once and should - be installed in the GCM initialization section) - rrtmg_lw_k_g.f90 : Absorption coefficient data file - rrtmg_lw_read_nc.f90 : Alternate absorption coefficient data netCDF input - rrtmg_lw_rtrn.f90 : Calculation of clear and cloudy radiative transfer - using random cloud overlap - rrtmg_lw_rtrnmr.f90 : Calculation of clear and cloudy radiative transfer - using maximum-random cloud overlap - rrtmg_lw_rtrnmc.f90 : Calculation of clear and cloudy radiative transfer - using McICA (with selectable overlap method) - rrtmg_lw_setcoef.f90 : Set up routine - rrtmg_lw_taumol.f90 : Calculation of optical depths and Planck fractions for - each spectral band - mcica_random_numbers.f90 : Random number generator for McICA - mcica_subcol_gen_lw.f90 : Sub-column generator for McICA (must be called in GCM - just before call to RRTMG) - - The following module files (in /gcm_model/modules directory) must be used to run - RRTMG_LW as a callable subroutine (these must be compiled before the source code - files) - - parkind.f90 : real and integer kind type parameters - parrrtm.f90 : main configuration parameters - rrlw_cld.f90 : cloud property coefficients - rrlw_con.f90 : constants - rrlw_kg**.f90 : absorption coefficient arrays for 16 spectral bands - rrlw_ncpar.f90 : parameters for netCDF input data option - rrlw_ref.f90 : reference atmosphere data arrays - rrlw_tbl.f90 : look up table arrays - rrlw_vsn.f90 : version number information - rrlw_wvn.f90 : spectral band and g-interval array information - - -INPUT DATA: - The following file (in directory /gcm_model/data) is the netCDF file - containing absorption coefficient and other input data for the model. - The file is used if source file rrtmg_lw_read_nc.f90 is used in place - of rrtmg_lw_k_g.f90 (only one or the other is required). - - rrtmg_lw.nc : Optional netCDF input data file - - -Notes regarding GCM version: - - 1) The module rrtmg_lw_init.f90 is the initialization routine that has to be - called only once. The call to this subroutine should be moved to the - initialization section of the host model if RRTMG_LW is called by a GCM or SCM. - - 2) The number of model layers and the number of columns to be looped over should - be passed into RRTMG_LW through the subroutine call along with the other model - profile arrays. - - 3) To utilize McICA, the sub-column generator (mcica_subcol_gen_lw.f90) must be - implemented in the GCM so that it is called just before RRTMG. - If McICA is utilized, this will run only a single statistical sample per - model grid box. There are two options for the random number generator used - with McICA, which is selected with the variable irnd in mcica_subcol_gen_lw.f90. - When using McICA, then the main module is rrtmg_lw_rad.f90. If McICA is not used, - then the main module is rrtmg_lw_rad.nomcica.f90 and the cloud overlap method is - selected by setting flag icld. - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/CMakeLists.txt deleted file mode 100644 index 25e7a80ac..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/CMakeLists.txt +++ /dev/null @@ -1,3 +0,0 @@ -add_subdirectory (modules) -add_subdirectory (src) - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/CMakeLists.txt deleted file mode 100644 index b8eef5889..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/CMakeLists.txt +++ /dev/null @@ -1,12 +0,0 @@ -esma_set_this(OVERRIDE RRTMG_mods) - -set (srcs - parrrtm.F90 rrlw_cld.F90 rrlw_con.F90 rrlw_kg01.F90 - rrlw_kg02.F90 rrlw_kg03.F90 rrlw_kg04.F90 rrlw_kg05.F90 rrlw_kg06.F90 - rrlw_kg07.F90 rrlw_kg08.F90 rrlw_kg09.F90 rrlw_kg10.F90 rrlw_kg11.F90 - rrlw_kg12.F90 rrlw_kg13.F90 rrlw_kg14.F90 rrlw_kg15.F90 rrlw_kg16.F90 - rrlw_ncpar.F90 rrlw_ref.F90 rrlw_tbl.F90 rrlw_vsn.F90 rrlw_wvn.F90 - ) - -esma_add_library (${this} SRCS ${srcs} DEPENDENCIES GEOS_Shared MAPL) - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/parrrtm.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/parrrtm.F90 deleted file mode 100644 index 3d9ecaae1..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/parrrtm.F90 +++ /dev/null @@ -1,112 +0,0 @@ - - module parrrtm - - !use parkind ,only : im => kind - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_lw main parameters -! -! Initial version: JJMorcrette, ECMWF, Jul 1998 -! Revised: MJIacono, AER, Jun 2006 -! Revised: MJIacono, AER, Aug 2007 -! Revised: MJIacono, AER, Aug 2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -! mxlay : integer: maximum number of layers -! mg : integer: number of original g-intervals per spectral band -! nbndlw : integer: number of spectral bands -! maxxsec: integer: maximum number of cross-section molecules -! (e.g. cfcs) -! maxinpx: integer: -! ngptlw : integer: total number of reduced g-intervals for rrtmg_lw -! ngNN : integer: number of reduced g-intervals per spectral band -! ngsNN : integer: cumulative number of g-intervals per band -!------------------------------------------------------------------ - - integer , parameter :: mxlay = 203 - integer , parameter :: mg = 16 - integer , parameter :: nbndlw = 16 - integer , parameter :: maxxsec= 4 - integer , parameter :: mxmol = 38 - integer , parameter :: maxinpx= 38 - integer , parameter :: nmol = 7 -! Use for 140 g-point model - integer , parameter :: ngptlw = 140 -! Use for 256 g-point model -! integer , parameter :: ngptlw = 256 - -! Use for 140 g-point model - integer , parameter :: ng1 = 10 - integer , parameter :: ng2 = 12 - integer , parameter :: ng3 = 16 - integer , parameter :: ng4 = 14 - integer , parameter :: ng5 = 16 - integer , parameter :: ng6 = 8 - integer , parameter :: ng7 = 12 - integer , parameter :: ng8 = 8 - integer , parameter :: ng9 = 12 - integer , parameter :: ng10 = 6 - integer , parameter :: ng11 = 8 - integer , parameter :: ng12 = 8 - integer , parameter :: ng13 = 4 - integer , parameter :: ng14 = 2 - integer , parameter :: ng15 = 2 - integer , parameter :: ng16 = 2 - - integer , parameter :: ngs1 = 10 - integer , parameter :: ngs2 = 22 - integer , parameter :: ngs3 = 38 - integer , parameter :: ngs4 = 52 - integer , parameter :: ngs5 = 68 - integer , parameter :: ngs6 = 76 - integer , parameter :: ngs7 = 88 - integer , parameter :: ngs8 = 96 - integer , parameter :: ngs9 = 108 - integer , parameter :: ngs10 = 114 - integer , parameter :: ngs11 = 122 - integer , parameter :: ngs12 = 130 - integer , parameter :: ngs13 = 134 - integer , parameter :: ngs14 = 136 - integer , parameter :: ngs15 = 138 - -! Use for 256 g-point model -! integer , parameter :: ng1 = 16 -! integer , parameter :: ng2 = 16 -! integer , parameter :: ng3 = 16 -! integer , parameter :: ng4 = 16 -! integer , parameter :: ng5 = 16 -! integer , parameter :: ng6 = 16 -! integer , parameter :: ng7 = 16 -! integer , parameter :: ng8 = 16 -! integer , parameter :: ng9 = 16 -! integer , parameter :: ng10 = 16 -! integer , parameter :: ng11 = 16 -! integer , parameter :: ng12 = 16 -! integer , parameter :: ng13 = 16 -! integer , parameter :: ng14 = 16 -! integer , parameter :: ng15 = 16 -! integer , parameter :: ng16 = 16 - -! integer , parameter :: ngs1 = 16 -! integer , parameter :: ngs2 = 32 -! integer , parameter :: ngs3 = 48 -! integer , parameter :: ngs4 = 64 -! integer , parameter :: ngs5 = 80 -! integer , parameter :: ngs6 = 96 -! integer , parameter :: ngs7 = 112 -! integer , parameter :: ngs8 = 128 -! integer , parameter :: ngs9 = 144 -! integer , parameter :: ngs10 = 160 -! integer , parameter :: ngs11 = 176 -! integer , parameter :: ngs12 = 192 -! integer , parameter :: ngs13 = 208 -! integer , parameter :: ngs14 = 224 -! integer , parameter :: ngs15 = 240 -! integer , parameter :: ngs16 = 256 - - end module parrrtm diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_cld.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_cld.F90 deleted file mode 100644 index a0ff5e646..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_cld.F90 +++ /dev/null @@ -1,25 +0,0 @@ -!------------------------------------------------------------------ -! rrtmg_lw cloud property coefficients - -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - - module rrlw_cld - - implicit none - save - - real, dimension(2) :: absice0 - real, dimension(2,5) :: absice1 - real, dimension(43,16) :: absice2 - real, dimension(46,16) :: absice3 - real, dimension(200,16) :: absice4 - real, dimension(58,16) :: absliq1 - - ! band to second index into absice1 - integer, parameter :: ice1b(16) = & - [1, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5] - - end module rrlw_cld - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_con.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_con.F90 deleted file mode 100644 index 03083bcd2..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_con.F90 +++ /dev/null @@ -1,48 +0,0 @@ -module rrlw_con - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_lw constants - -! Initial version: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -! fluxfac: real : radiance to flux conversion factor -! heatfac: real : flux to heating rate conversion factor -!oneminus: real : 1.-1.e-6 -! pi : real : pi -! d2r : real : multiply by to convert degrees to radians -! r2d : real : multiply by to convert radians to degrees -! grav : real : acceleration of gravity -! planck : real : planck constant -! boltz : real : boltzmann constant -! clight : real : speed of light -! avogad : real : avogadro constant -! alosmt : real : loschmidt constant -! gascon : real : molar gas constant -! radcn1 : real : first radiation constant -! radcn2 : real : second radiation constant -! sbcnst : real : stefan-boltzmann constant -! secdy : real : seconds per day -!------------------------------------------------------------------ - - real, parameter :: pi = 3.14159265358979323846d0 - real, parameter :: d2r = pi / 180. - real, parameter :: r2d = 180. / pi - real, parameter :: oneminus = 1. - 1.e-6 - real, parameter :: fluxfac = pi * 2.e4 - - real :: heatfac - real :: grav - real :: planck, boltz, clight - real :: avogad, alosmt, gascon - real :: radcn1, radcn2 - real :: sbcnst, secdy - -end module rrlw_con - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg01.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg01.F90 deleted file mode 100644 index 70d2520a6..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg01.F90 +++ /dev/null @@ -1,41 +0,0 @@ -module rrlw_kg01 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 1 -! band 1: 10-250 cm-1 (low - h2o; high - h2o) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no1 = 16 - - real :: fracrefao(no1), fracrefbo(no1) - real :: kao(5,13,no1), kbo(5,13:59,no1) - real :: kao_mn2(19,no1), kbo_mn2(19,no1) - real :: selfrefo(10,no1), forrefo(4,no1) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 1 -! band 1: 10-250 cm-1 (low - h2o; high - h2o) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng1 = 10 - - real :: ka(5,13, ng1), absa( 65,ng1) - real :: kb(5,13:59,ng1), absb(235,ng1) - equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - real :: fracrefa(ng1), fracrefb(ng1) - real :: ka_mn2(19,ng1), kb_mn2(19,ng1) - real :: selfref(10,ng1), forref(4,ng1) - -end module rrlw_kg01 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg02.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg02.F90 deleted file mode 100644 index 14b72847d..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg02.F90 +++ /dev/null @@ -1,39 +0,0 @@ -module rrlw_kg02 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 2 -! band 2: 250-500 cm-1 (low - h2o; high - h2o) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no2 = 16 - - real :: fracrefao(no2), fracrefbo(no2) - real :: kao(5,13,no2), kbo(5,13:59,no2) - real :: selfrefo(10,no2), forrefo(4,no2) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 2 -! band 2: 250-500 cm-1 (low - h2o; high - h2o) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng2 = 12 - - real :: ka(5,13, ng2), absa( 65,ng2) - real :: kb(5,13:59,ng2), absb(235,ng2) - equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - real :: fracrefa(ng2), fracrefb(ng2) - real :: selfref(10,ng2), forref(4,ng2) - -end module rrlw_kg02 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg03.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg03.F90 deleted file mode 100644 index 9d7b95d57..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg03.F90 +++ /dev/null @@ -1,41 +0,0 @@ -module rrlw_kg03 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 3 -! band 3: 500-630 cm-1 (low - h2o,co2; high - h2o,co2) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no3 = 16 - - real :: fracrefao(no3,9), fracrefbo(no3,5) - real :: kao(9,5,13,no3), kbo(5,5,13:59,no3) - real :: kao_mn2o(9,19,no3), kbo_mn2o(5,19,no3) - real :: selfrefo(10,no3), forrefo(4,no3) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 3 -! band 3: 500-630 cm-1 (low - h2o,co2; high - h2o,co2) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng3 = 16 - - real :: ka(9,5,13, ng3), absa( 585,ng3) - real :: kb(5,5,13:59,ng3), absb(1175,ng3) - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1)) - - real :: fracrefa(ng3,9), fracrefb(ng3,5) - real :: ka_mn2o(9,19,ng3), kb_mn2o(5,19,ng3) - real :: selfref(10,ng3), forref(4,ng3) - -end module rrlw_kg03 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg04.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg04.F90 deleted file mode 100644 index ffd66af24..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg04.F90 +++ /dev/null @@ -1,39 +0,0 @@ -module rrlw_kg04 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 4 -! band 4: 630-700 cm-1 (low - h2o,co2; high - o3,co2) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no4 = 16 - - real :: fracrefao(no4,9), fracrefbo(no4,5) - real :: kao(9,5,13,no4), kbo(5,5,13:59,no4) - real :: selfrefo(10,no4), forrefo(4,no4) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 4 -! band 4: 630-700 cm-1 (low - h2o,co2; high - o3,co2) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng4 = 14 - - real :: ka(9,5,13, ng4), absa( 585,ng4) - real :: kb(5,5,13:59,ng4), absb(1175,ng4) - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1)) - - real :: fracrefa(ng4,9), fracrefb(ng4,5) - real :: selfref(10,ng4), forref(4,ng4) - -end module rrlw_kg04 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg05.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg05.F90 deleted file mode 100644 index 955bc9fda..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg05.F90 +++ /dev/null @@ -1,43 +0,0 @@ -module rrlw_kg05 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 5 -! band 5: 700-820 cm-1 (low - h2o,co2; high - o3,co2) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no5 = 16 - - real :: fracrefao(no5,9), fracrefbo(no5,5) - real :: kao(9,5,13,no5), kbo(5,5,13:59,no5) - real :: kao_mo3(9,19,no5) - real :: selfrefo(10,no5), forrefo(4,no5) - real :: ccl4o(no5) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 5 -! band 5: 700-820 cm-1 (low - h2o,co2; high - o3,co2) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng5 = 16 - - real :: ka(9,5,13, ng5), absa( 585,ng5) - real :: kb(5,5,13:59,ng5), absb(1175,ng5) - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1)) - - real :: fracrefa(ng5,9), fracrefb(ng5,5) - real :: ka_mo3(9,19,ng5) - real :: selfref(10,ng5), forref(4,ng5) - real :: ccl4(ng5) - -end module rrlw_kg05 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg06.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg06.F90 deleted file mode 100644 index 3b08522a0..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg06.F90 +++ /dev/null @@ -1,42 +0,0 @@ -module rrlw_kg06 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 6 -! band 6: 820-980 cm-1 (low - h2o; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no6 = 16 - - real :: fracrefao(no6) - real :: kao(5,13,no6) - real :: kao_mco2(19,no6) - real :: selfrefo(10,no6), forrefo(4,no6) - real :: cfc11adjo(no6), cfc12o(no6) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 6 -! band 6: 820-980 cm-1 (low - h2o; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng6 = 8 - - real :: ka(5,13,ng6), absa(65,ng6) - equivalence (ka(1,1,1),absa(1,1)) - - real :: fracrefa(ng6) - real :: ka_mco2(19,ng6) - real :: selfref(10,ng6), forref(4,ng6) - real :: cfc11adj(ng6), cfc12(ng6) - -end module rrlw_kg06 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg07.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg07.F90 deleted file mode 100644 index e1c1f99ff..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg07.F90 +++ /dev/null @@ -1,41 +0,0 @@ -module rrlw_kg07 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 7 -! band 7: 980-1080 cm-1 (low - h2o,o3; high - o3) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no7 = 16 - - real :: fracrefao(no7,9), fracrefbo(no7) - real :: kao(9,5,13,no7), kbo(5,13:59,no7) - real :: kao_mco2(9,19,no7), kbo_mco2(19,no7) - real :: selfrefo(10,no7), forrefo(4,no7) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 7 -! band 7: 980-1080 cm-1 (low - h2o,o3; high - o3) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng7 = 12 - - real :: ka(9,5,13, ng7), absa(585,ng7) - real :: kb(5,13:59,ng7), absb(235,ng7) - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - real :: fracrefa(ng7,9), fracrefb(ng7) - real :: ka_mco2(9,19,ng7), kb_mco2(19,ng7) - real :: selfref(10,ng7), forref(4,ng7) - -end module rrlw_kg07 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg08.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg08.F90 deleted file mode 100644 index 1fe457f76..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg08.F90 +++ /dev/null @@ -1,47 +0,0 @@ -module rrlw_kg08 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 8 -! band 8: 1080-1180 cm-1 (low (i.e.>~300mb) - h2o; high - o3) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no8 = 16 - - real :: fracrefao(no8), fracrefbo(no8) - real :: kao(5,13,no8), kbo(5,13:59,no8) - real :: kao_mco2(19,no8), kbo_mco2(19,no8) - real :: kao_mo3(19,no8) - real :: kao_mn2o(19,no8), kbo_mn2o(19,no8) - real :: selfrefo(10,no8), forrefo(4,no8) - real :: cfc12o(no8), cfc22adjo(no8) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 8 -! band 8: 1080-1180 cm-1 (low (i.e.>~300mb) - h2o; high - o3) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng8 = 8 - - real :: ka(5,13, ng8), absa( 65,ng8) - real :: kb(5,13:59,ng8), absb(235,ng8) - equivalence (ka(1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1)) - - real :: fracrefa(ng8), fracrefb(ng8) - real :: ka_mco2(19,ng8), kb_mco2(19,ng8) - real :: ka_mo3(19,ng8) - real :: ka_mn2o(19,ng8), kb_mn2o(19,ng8) - real :: selfref(10,ng8), forref(4,ng8) - real :: cfc12(ng8), cfc22adj(ng8) - -end module rrlw_kg08 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg09.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg09.F90 deleted file mode 100644 index 67fbfd3f6..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg09.F90 +++ /dev/null @@ -1,41 +0,0 @@ -module rrlw_kg09 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 9 -! band 9: 1180-1390 cm-1 (low - h2o,ch4; high - ch4) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no9 = 16 - - real :: fracrefao(no9,9), fracrefbo(no9) - real :: kao(9,5,13,no9), kbo(5,13:59,no9) - real :: kao_mn2o(9,19,no9), kbo_mn2o(19,no9) - real :: selfrefo(10,no9), forrefo(4,no9) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 9 -! band 9: 1180-1390 cm-1 (low - h2o,ch4; high - ch4) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng9 = 12 - - real :: ka(9,5,13, ng9), absa(585,ng9) - real :: kb(5,13:59,ng9), absb(235,ng9) - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - real :: fracrefa(ng9,9), fracrefb(ng9) - real :: ka_mn2o(9,19,ng9), kb_mn2o(19,ng9) - real :: selfref(10,ng9), forref(4,ng9) - -end module rrlw_kg09 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg10.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg10.F90 deleted file mode 100644 index 945262041..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg10.F90 +++ /dev/null @@ -1,39 +0,0 @@ -module rrlw_kg10 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 10 -! band 10: 1390-1480 cm-1 (low - h2o; high - h2o) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no10 = 16 - - real :: fracrefao(no10), fracrefbo(no10) - real :: kao(5,13,no10), kbo(5,13:59,no10) - real :: selfrefo(10,no10), forrefo(4,no10) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 10 -! band 10: 1390-1480 cm-1 (low - h2o; high - h2o) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng10 = 6 - - real :: ka(5,13, ng10), absa( 65,ng10) - real :: kb(5,13:59,ng10), absb(235,ng10) - equivalence (ka(1,1,1),absa(1,1)),(kb(1,13,1),absb(1,1)) - - real :: fracrefa(ng10), fracrefb(ng10) - real :: selfref(10,ng10), forref(4,ng10) - -end module rrlw_kg10 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg11.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg11.F90 deleted file mode 100644 index 9718ae67d..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg11.F90 +++ /dev/null @@ -1,41 +0,0 @@ -module rrlw_kg11 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 11 -! band 11: 1480-1800 cm-1 (low - h2o; high - h2o) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no11 = 16 - - real :: fracrefao(no11), fracrefbo(no11) - real :: kao(5,13,no11), kbo(5,13:59,no11) - real :: kao_mo2(19,no11), kbo_mo2(19,no11) - real :: selfrefo(10,no11), forrefo(4,no11) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 11 -! band 11: 1480-1800 cm-1 (low - h2o; high - h2o) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng11 = 8 - - real :: ka(5,13, ng11), absa( 65,ng11) - real :: kb(5,13:59,ng11), absb(235,ng11) - equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - real :: fracrefa(ng11), fracrefb(ng11) - real :: ka_mo2(19,ng11), kb_mo2(19,ng11) - real :: selfref(10,ng11), forref(4,ng11) - -end module rrlw_kg11 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg12.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg12.F90 deleted file mode 100644 index 17e1a695f..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg12.F90 +++ /dev/null @@ -1,38 +0,0 @@ -module rrlw_kg12 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 12 -! band 12: 1800-2080 cm-1 (low - h2o,co2; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no12 = 16 - - real :: fracrefao(no12,9) - real :: kao(9,5,13,no12) - real :: selfrefo(10,no12), forrefo(4,no12) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 12 -! band 12: 1800-2080 cm-1 (low - h2o,co2; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng12 = 8 - - real :: ka(9,5,13,ng12), absa(585,ng12) - equivalence (ka(1,1,1,1),absa(1,1)) - - real :: fracrefa(ng12,9) - real :: selfref(10,ng12), forref(4,ng12) - -end module rrlw_kg12 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg13.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg13.F90 deleted file mode 100644 index 516cf3a1c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg13.F90 +++ /dev/null @@ -1,44 +0,0 @@ -module rrlw_kg13 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 13 -! band 13: 2080-2250 cm-1 (low - h2o,n2o; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no13 = 16 - - real :: fracrefao(no13,9), fracrefbo(no13) - real :: kao(9,5,13,no13) - real :: kao_mco2(9,19,no13) - real :: kbo_mo3(19,no13) - real :: kao_mco(9,19,no13) - real :: selfrefo(10,no13), forrefo(4,no13) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 13 -! band 13: 2080-2250 cm-1 (low - h2o,n2o; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng13 = 4 - - real :: ka(9,5,13,ng13), absa(585,ng13) - equivalence (ka(1,1,1,1),absa(1,1)) - - real :: fracrefa(ng13,9), fracrefb(ng13) - real :: ka_mco2(9,19,ng13) - real :: kb_mo3(19,ng13) - real :: ka_mco(9,19,ng13) - real :: selfref(10,ng13), forref(4,ng13) - -end module rrlw_kg13 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg14.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg14.F90 deleted file mode 100644 index f55be67fe..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg14.F90 +++ /dev/null @@ -1,39 +0,0 @@ -module rrlw_kg14 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 14 -! band 14: 2250-2380 cm-1 (low - co2; high - co2) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no14 = 16 - - real :: fracrefao(no14), fracrefbo(no14) - real :: kao(5,13,no14), kbo(5,13:59,no14) - real :: selfrefo(10,no14), forrefo(4,no14) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 14 -! band 14: 2250-2380 cm-1 (low - co2; high - co2) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng14 = 2 - - real :: ka(5,13, ng14), absa( 65,ng14) - real :: kb(5,13:59,ng14), absb(235,ng14) - equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - real :: fracrefa(ng14), fracrefb(ng14) - real :: selfref(10,ng14), forref(4,ng14) - -end module rrlw_kg14 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg15.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg15.F90 deleted file mode 100644 index 803f2d9de..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg15.F90 +++ /dev/null @@ -1,40 +0,0 @@ -module rrlw_kg15 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 15 -! band 15: 2380-2600 cm-1 (low - n2o,co2; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no15 = 16 - - real :: fracrefao(no15,9) - real :: kao(9,5,13,no15) - real :: kao_mn2(9,19,no15) - real :: selfrefo(10,no15), forrefo(4,no15) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 15 -! band 15: 2380-2600 cm-1 (low - n2o,co2; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng15 = 2 - - real :: ka(9,5,13,ng15), absa(585,ng15) - equivalence (ka(1,1,1,1),absa(1,1)) - - real :: fracrefa(ng15,9) - real :: ka_mn2(9,19,ng15) - real :: selfref(10,ng15), forref(4,ng15) - -end module rrlw_kg15 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg16.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg16.F90 deleted file mode 100644 index d7c4604cb..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg16.F90 +++ /dev/null @@ -1,39 +0,0 @@ -module rrlw_kg16 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_lw ORIGINAL abs. coefficients for interval 16 -! band 16: 2600-3000 cm-1 (low - h2o,ch4; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: no16 = 16 - - real :: fracrefao(no16,9), fracrefbo(no16) - real :: kao(9,5,13,no16), kbo(5,13:59,no16) - real :: selfrefo(10,no16), forrefo(4,no16) - -!----------------------------------------------------------------- -! rrtmg_lw COMBINED abs. coefficients for interval 16 -! band 16: 2600-3000 cm-1 (low - h2o,ch4; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!----------------------------------------------------------------- - - integer, parameter :: ng16 = 2 - - real :: ka(9,5,13, ng16), absa(585,ng16) - real :: kb(5,13:59,ng16), absb(235,ng16) - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - real :: fracrefa(ng16,9), fracrefb(ng16) - real :: selfref(10,ng16), forref(4,ng16) - -end module rrlw_kg16 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_ncpar.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_ncpar.F90 deleted file mode 100644 index f2507e390..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_ncpar.F90 +++ /dev/null @@ -1,66 +0,0 @@ -module rrlw_ncpar - !use parkind ,only : im => kind , rb => kind - - implicit none - save - - real , parameter :: cpdair = 1003.5 ! Specific heat capacity of dry air - ! at constant pressure at 273 K - ! (J kg-1 K-1) - - - integer , parameter :: maxAbsorberNameLength = 5, & - Absorber = 12 - character(len = maxAbsorberNameLength), dimension(Absorber), parameter :: & - AbsorberNames = (/ & - 'N2 ', & - 'CCL4 ', & - 'CFC11', & - 'CFC12', & - 'CFC22', & - 'H2O ', & - 'CO2 ', & - 'O3 ', & - 'N2O ', & - 'CO ', & - 'CH4 ', & - 'O2 ' /) - - integer , dimension(40) :: status - integer :: i - integer , parameter :: keylower = 9, & - keyupper = 5, & - Tdiff = 5, & - ps = 59, & - plower = 13, & - pupper = 47, & - Tself = 10, & - Tforeign = 4, & - pforeign = 4, & - T = 19, & - Tplanck = 181, & - band = 16, & - GPoint = 16, & - GPointSet = 2 - - contains - - subroutine getAbsorberIndex(AbsorberName,AbsorberIndex) - character(len = *), intent(in) :: AbsorberName - integer , intent(out) :: AbsorberIndex - - integer :: m - - AbsorberIndex = -1 - do m = 1, Absorber - if (trim(AbsorberNames(m)) == trim(AbsorberName)) then - AbsorberIndex = m - end if - end do - - if (AbsorberIndex == -1) then - print*, "Absorber name index lookup failed." - end if - end subroutine getAbsorberIndex - -end module rrlw_ncpar diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_ref.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_ref.F90 deleted file mode 100644 index d0906f333..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_ref.F90 +++ /dev/null @@ -1,25 +0,0 @@ -module rrlw_ref - - implicit none - -!------------------------------------------------------------------ -! rrtmg_lw reference atmosphere -! Based on standard mid-latitude summer profile -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -! pref : real : Reference pressure levels -! preflog: real : Reference pressure levels, ln(pref) -! tref : real : Reference temperature levels for MLS profile -! chi_mls: real : -!------------------------------------------------------------------ - - real, dimension(59) :: pref, preflog, tref - real :: chi_mls(7,59) - -end module rrlw_ref diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_tbl.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_tbl.F90 deleted file mode 100644 index 122df49a7..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_tbl.F90 +++ /dev/null @@ -1,44 +0,0 @@ -module rrlw_tbl - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_lw exponential lookup table arrays - -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, Jun 2006 -! Revised: MJIacono, AER, Aug 2007 -! Revised: MJIacono, AER, Aug 2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -! ntbl : integer: Lookup table dimension -! tblint : real : Lookup table conversion factor -! tau_tbl: real : Clear-sky optical depth (used in cloudy radiative -! transfer) -! exp_tbl: real : Transmittance lookup table -! tfn_tbl: real : Tau transition function; i.e. the transition of -! the Planck function from that for the mean layer -! temperature to that for the layer boundary -! temperature as a function of optical depth. -! The "linear in tau" method is used to make -! the table. -! pade : real : Pade constant -! bpade : real : Inverse of Pade constant -!------------------------------------------------------------------ - - integer, parameter :: ntbl = 10000 - - real, parameter :: tblint = 10000.0 - - real, dimension(0:ntbl) :: tau_tbl - real, dimension(0:ntbl) :: exp_tbl - real, dimension(0:ntbl) :: tfn_tbl - - real, parameter :: pade = 0.278 - real :: bpade - -end module rrlw_tbl - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_vsn.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_vsn.F90 deleted file mode 100644 index b23a9342a..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_vsn.F90 +++ /dev/null @@ -1,54 +0,0 @@ - module rrlw_vsn - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_lw version information - -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -!hnamrtm :character: -!hnamini :character: -!hnamcld :character: -!hnamclc :character: -!hnamrtr :character: -!hnamrtx :character: -!hnamrtc :character: -!hnamset :character: -!hnamtau :character: -!hnamatm :character: -!hnamutl :character: -!hnamext :character: -!hnamkg :character: -! -! hvrrtm :character: -! hvrini :character: -! hvrcld :character: -! hvrclc :character: -! hvrrtr :character: -! hvrrtx :character: -! hvrrtc :character: -! hvrset :character: -! hvrtau :character: -! hvratm :character: -! hvrutl :character: -! hvrext :character: -! hvrkg :character: -!------------------------------------------------------------------ - - character*18 hvrrtm,hvrini,hvrcld,hvrclc,hvrrtr,hvrrtx, & - hvrrtc,hvrset,hvrtau,hvratm,hvrutl,hvrext - character*20 hnamrtm,hnamini,hnamcld,hnamclc,hnamrtr,hnamrtx, & - hnamrtc,hnamset,hnamtau,hnamatm,hnamutl,hnamext - - character*18 hvrkg - character*20 hnamkg - - end module rrlw_vsn - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_wvn.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_wvn.F90 deleted file mode 100644 index 020db71b2..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_wvn.F90 +++ /dev/null @@ -1,99 +0,0 @@ - module rrlw_wvn - - !use parkind, only : im => kind , rb => kind - use parrrtm, only : nbndlw, mg, ngptlw, maxinpx - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_lw spectral information - -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -! ng : integer: Number of original g-intervals in each spectral band -! nspa : integer: For the lower atmosphere, the number of reference -! atmospheres that are stored for each spectral band -! per pressure level and temperature. Each of these -! atmospheres has different relative amounts of the -! key species for the band (i.e. different binary -! species parameters). -! nspb : integer: Same as nspa for the upper atmosphere -!wavenum1: real : Spectral band lower boundary in wavenumbers -!wavenum2: real : Spectral band upper boundary in wavenumbers -! delwave: real : Spectral band width in wavenumbers -! totplnk: real : Integrated Planck value for each band; (band 16 -! includes total from 2600 cm-1 to infinity) -! Used for calculation across total spectrum -!totplk16: real : Integrated Planck value for band 16 (2600-3250 cm-1) -! Used for calculation in band 16 only if -! individual band output requested -!totplnkderiv: real: Integrated Planck function derivative with respect -! to temperature for each band; (band 16 -! includes total from 2600 cm-1 to infinity) -! Used for calculation across total spectrum -!totplk16deriv:real: Integrated Planck function derivative with respect -! to temperature for band 16 (2600-3250 cm-1) -! Used for calculation in band 16 only if -! individual band output requested -! -! ngc : integer: The number of new g-intervals in each band -! ngs : integer: The cumulative sum of new g-intervals for each band -! ngm : integer: The index of each new g-interval relative to the -! original 16 g-intervals in each band -! ngn : integer: The number of original g-intervals that are -! combined to make each new g-intervals in each band -! ngb : integer: The band index for each new g-interval -! wt : real : RRTM weights for the original 16 g-intervals -! rwgt : real : Weights for combining original 16 g-intervals -! (256 total) into reduced set of g-intervals -! (140 total) -! nxmol : integer: Number of cross-section molecules -! ixindx : integer: Flag for active cross-sections in calculation -!------------------------------------------------------------------ - - integer :: ng(nbndlw) - integer :: nspa(nbndlw) - integer :: nspb(nbndlw) - -! real :: wavenum1(nbndlw) -! real :: wavenum2(nbndlw) -! real :: delwave(nbndlw) - - - ! lower band limit [cm-1] - real, parameter :: wavenum1 (nbndlw) = & - [ 10., 350., 500., 630., 700., 820., 980., 1080., & - 1180., 1390., 1480., 1800., 2080., 2250., 2380., 2600. ] - ! upper band limit [cm-1] - real, parameter :: wavenum2 (nbndlw) = & - [ 350., 500., 630., 700., 820., 980., 1080., 1180., & - 1390., 1480., 1800., 2080., 2250., 2380., 2600., 3250. ] - ! band width [cm-1] - real, parameter :: delwave (nbndlw) = wavenum2 - wavenum1 - - - real :: totplnk(181,nbndlw) - real :: totplk16(181) - - real :: totplnkderiv(181,nbndlw) - real :: totplk16deriv(181) - - integer :: ngc(nbndlw) - integer :: ngs(nbndlw) - integer :: ngn(ngptlw) - integer :: ngb(ngptlw) - integer :: ngm(nbndlw*mg) - - real :: wt(mg) - real :: rwgt(nbndlw*mg) - - integer :: nxmol - integer :: ixindx(maxinpx) - - end module rrlw_wvn diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/CMakeLists.txt deleted file mode 100644 index efe1fddc2..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/CMakeLists.txt +++ /dev/null @@ -1,45 +0,0 @@ -esma_set_this(OVERRIDE RRTMG) - -set (srcs - rrtmg_lw_init.F90 - rrtmg_lw_cldprmc.F90 - rrtmg_lw_setcoef.F90 - rrtmg_lw_taumol.F90 - rrtmg_lw_rtrnmc.F90 - rrtmg_lw_rad.F90 - ) - -set (k_g_srcs - rrtmg_lw_k_g_01.F90 - rrtmg_lw_k_g_02.F90 - rrtmg_lw_k_g_03.F90 - rrtmg_lw_k_g_04.F90 - rrtmg_lw_k_g_05.F90 - rrtmg_lw_k_g_06.F90 - rrtmg_lw_k_g_07.F90 - rrtmg_lw_k_g_08.F90 - rrtmg_lw_k_g_09.F90 - rrtmg_lw_k_g_10.F90 - rrtmg_lw_k_g_11.F90 - rrtmg_lw_k_g_12.F90 - rrtmg_lw_k_g_13.F90 - rrtmg_lw_k_g_14.F90 - rrtmg_lw_k_g_15.F90 - rrtmg_lw_k_g_16.F90 - ) - -# MAT With GCC -O1 -g with these files causes an issue. But disabling var tracking -# seems to make compilation bearable on release -foreach (file ${k_g_srcs}) - if (CMAKE_BUILD_TYPE MATCHES Release OR CMAKE_BUILD_TYPE MATCHES Aggressive) - if ("${CMAKE_Fortran_COMPILER_ID}" MATCHES "GNU") - set_source_files_properties( ${file} PROPERTIES COMPILE_FLAGS "-O1 -fno-var-tracking") - else () - set_source_files_properties( ${file} PROPERTIES COMPILE_FLAGS "-O1") - endif () - endif () -endforeach () - -esma_add_library (${this} - SRCS ${srcs} ${k_g_srcs} - DEPENDENCIES GEOS_Shared MAPL RRTMG_mods GEOS_RadiationShared) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_cldprmc.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_cldprmc.F90 deleted file mode 100644 index 1871f1fe2..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_cldprmc.F90 +++ /dev/null @@ -1,387 +0,0 @@ -module rrtmg_lw_cldprmc - -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - - use parrrtm, only : ngptlw - use rrlw_wvn, only: ngb - use rrlw_cld, only: & - absliq1, absice0, absice1, absice2, absice3, absice4, & - ice1b - - implicit none - -contains - - ! ------------------------------------------------------------------------------ - subroutine cldprmc (ncol, nlay, & - cldymc, ciwpmc, clwpmc, reice, reliq, & - iceflag, liqflag, taucmc, cloudy) - ! ------------------------------------------------------------------------------ - ! Compute the cloud optical depths for each cloudy layer - ! The g-point indices are really McICA subcolumns - - integer, intent(in) :: ncol ! number of columns - integer, intent(in) :: nlay ! number of layers - - logical, intent(in) :: cldymc (nlay,ngptlw,ncol) ! cloudy or not? [mcica] - real, intent(in) :: ciwpmc (nlay,ngptlw,ncol) ! ice water path [mcica] - real, intent(in) :: clwpmc (nlay,ngptlw,ncol) ! liq water path [mcica] - - real, intent(in) :: reice (nlay,ncol) ! ice crystal effective size [um] - real, intent(in) :: reliq (nlay,ncol) ! liq droplet effective radius [um] - - integer, intent(in) :: iceflag, liqflag ! cloud optical depth methods - - real, intent(out) :: taucmc (nlay,ngptlw,ncol) ! cloud optical depth [mcica] - logical, intent(out) :: cloudy (nlay,ncol) ! gridbox cloudy for any gpoint - - ! ------- Local ------- - - integer :: icol ! gridcolumn index - integer :: ilay ! layer index - integer :: ig ! g-point interval index - integer :: ib ! spectral band index - - real :: radice ! cloud ice effective size (microns) - real :: abscoice ! ice absorption coefficients - real :: abscoliq ! liquid absorption coefficients - - ! table lookup parameters - integer :: index - real :: factor, fint - -! ------- Definitions ------- - -! Optical properties method distinguishes between liquid and ice clouds, -! and requires further user input to specify the method to be used to -! compute the aborption due to each. For each cloudy layer, the cloud -! fraction, and cloud liquid and ice water paths (g/m2) are input. -! -! ICEFLAG = 0: The ice effective radius (microns) is input and the -! optical depths due to ice clouds are computed as in CCM3. -! Ice effective radius, r_ec, (Ebert and Curry, 1992), -! r_ec must be >= 10.0 microns -! -! ICEFLAG = 1: The ice effective radius (microns) is input and the -! optical depths due to ice clouds are computed as in -! Ebert and Curry, JGR, 97, 3831-3836 (1992). The -! spectral regions in this work have been matched with -! the spectral bands in RRTM to as great an extent -! as possible: -! E&C 1 IB = 5 RRTM bands 9-16 -! E&C 2 IB = 4 RRTM bands 6-8 -! E&C 3 IB = 3 RRTM bands 3-5 -! E&C 4 IB = 2 RRTM band 2 -! E&C 5 IB = 1 RRTM band 1 -! Ice effective radius, r_ec, (Ebert and Curry, 1992), -! r_ec range is limited to 13.0 to 130.0 microns -! -! ICEFLAG = 2: The ice effective radius (microns) is input and the -! optical properties due to ice clouds are computed from -! the optical properties stored in the RT code, -! STREAMER v3.0 (Reference: Key. J., Streamer -! User's Guide, Cooperative Institute for -! Meteorological Satellite Studies, 2001, 96 pp.). -! Valid range of values for re are between 5.0 and -! 131.0 micron. -! Ice effective radius, r_k, (Key, Streamer Ref. Manual, -! 1996) r_k range is limited to 5.0 to 131.0 microns. -! -! ICEFLAG = 3: The ice generalized effective size (dge) is input -! and the optical properties, are calculated as in -! Q. Fu, J. Climate, (1998). Q. Fu provided high resolution -! tables which were appropriately averaged for the -! bands in RRTM_LW. Linear interpolation is used to -! get the coefficients from the stored tables. -! Valid range of values for dge are between 5.0 and -! 140.0 micron. -! Generalized effective size, dge, (Fu, 1996), -! dge range is limited to 5.0 to 140.0 microns -! [dge = 1.0315 * r_ec] -! -! LIQFLAG = 1: The water droplet effective radius (microns) is input -! and the optical depths due to water clouds are computed -! as in Hu and Stamnes, J., Clim., 6, 728-742, (1993). -! The values for absorption coefficients appropriate for -! the spectral bands in RRTM have been obtained for a -! range of effective radii by an averaging procedure -! based on the work of J. Pinto (private communication). -! Linear interpolation is used to get the absorption -! coefficients for the input effective radius. -! Liquid effective radius limited to [2.5,60.0] um. - - ! flag gridbox if cloudy for any g-point - cloudy = .false. - do icol = 1,ncol - do ilay = 1,nlay - do ig = 1,ngptlw - if (cldymc(ilay,ig,icol)) then - cloudy(ilay,icol) = .true. - exit - end if - end do - end do - end do - - ! zero cloud optical thickness default - taucmc = 0. - - ! Calculation of absorption coefficients due to ice clouds - if (iceflag == 0) then - - do icol = 1,ncol - do ilay = 1,nlay - if (cloudy(ilay,icol)) then - - ! 1 cloud band - abscoice = absice0(1) + absice0(2) / reice(ilay,icol) - - do ig = 1,ngptlw - if (cldymc(ilay,ig,icol)) then - if (ciwpmc(ilay,ig,icol) > 0.) then - taucmc(ilay,ig,icol) = ciwpmc(ilay,ig,icol) * abscoice - end if - end if - end do ! g-point - - end if ! cloudy for any gpoint - end do ! layer - end do ! column - - elseif (iceflag == 1) then - - do icol = 1,ncol - do ilay = 1,nlay - if (cloudy(ilay,icol)) then - - radice = reice(ilay,icol) - - do ig = 1,ngptlw - if (cldymc(ilay,ig,icol)) then - if (ciwpmc(ilay,ig,icol) > 0.) then - - ! 5 cloud bands - ib = ice1b(ngb(ig)) - abscoice = absice1(1,ib) + absice1(2,ib) / radice - taucmc(ilay,ig,icol) = ciwpmc(ilay,ig,icol) * abscoice - - end if - end if - end do ! g-point - - end if ! cloudy for any gpoint - end do ! layer - end do ! column - - elseif (iceflag == 2) then - - do icol = 1,ncol - do ilay = 1,nlay - if (cloudy(ilay,icol)) then - - ! ice particle effective radius [5.0,131.0] um - factor = (reice(ilay,icol) - 2.)/3. - index = int(factor) - if (index >= 43) then - if (index == 43) then - index = 42 - else - error stop 'cldprmc: iceflag 2: excessive high-radius extrapolation forbidden!' - end if - else if (index <= 0) then - if (index == 0) then - index = 1 - else - error stop 'cldprmc: iceflag 2: excessive low-radius extrapolation forbidden!' - end if - end if - fint = factor - float(index) - - do ig = 1,ngptlw - if (cldymc(ilay,ig,icol)) then - if (ciwpmc(ilay,ig,icol) > 0.) then - - ! 16 cloud bands - ib = ngb(ig) - abscoice = & - absice2(index,ib) + fint * & - (absice2(index+1,ib) - (absice2(index,ib))) - taucmc(ilay,ig,icol) = ciwpmc(ilay,ig,icol) * abscoice - - end if - end if - end do ! g-point - - end if ! cloudy for any gpoint - end do ! layer - end do ! column - - elseif (iceflag == 3) then - - do icol = 1,ncol - do ilay = 1,nlay - if (cloudy(ilay,icol)) then - - ! ice particle generalized effective size [5.0,140.0] um - factor = (reice(ilay,icol) - 2.)/3. - index = int(factor) - if (index >= 46) then - if (index == 46) then - index = 45 - else - error stop 'cldprmc: iceflag 3: excessive high-radius extrapolation forbidden!' - end if - else if (index <= 0) then - if (index == 0) then - index = 1 - else - error stop 'cldprmc: iceflag 3: excessive low-radius extrapolation forbidden!' - end if - end if - fint = factor - float(index) - - do ig = 1,ngptlw - if (cldymc(ilay,ig,icol)) then - if (ciwpmc(ilay,ig,icol) > 0.) then - - ! 16 cloud bands - ib = ngb(ig) - abscoice = & - absice3(index,ib) + fint * & - (absice3(index+1,ib) - (absice3(index,ib))) - taucmc(ilay,ig,icol) = ciwpmc(ilay,ig,icol) * abscoice - - end if - end if - end do ! g-point - - end if ! cloudy for any gpoint - end do ! layer - end do ! column - - elseif (iceflag == 4) then - - do icol = 1,ncol - do ilay = 1,nlay - if (cloudy(ilay,icol)) then - - ! ice particle effective diameter [1.0,200.0] um - factor = reice(ilay,icol) - index = int(factor) - if (index >= 200) then - if (index == 200) then - index = 199 - else - error stop 'cldprmc: iceflag 4: excessive high-radius extrapolation forbidden!' - end if - else if (index <= 0) then - if (index == 0) then - index = 1 - else - error stop 'cldprmc: iceflag 4: excessive low-radius extrapolation forbidden!' - end if - end if - fint = factor - float(index) - - do ig = 1,ngptlw - if (cldymc(ilay,ig,icol)) then - if (ciwpmc(ilay,ig,icol) > 0.) then - - ! 16 cloud bands - ib = ngb(ig) - abscoice = & - absice4(index,ib) + fint * & - (absice4(index+1,ib) - (absice4(index,ib))) - taucmc(ilay,ig,icol) = ciwpmc(ilay,ig,icol) * abscoice - - end if - end if - end do ! g-point - - end if ! cloudy for any gpoint - end do ! layer - end do ! column - - else - error stop 'cldprmc: invalid iceflag' - endif - - ! Calculation of absorption coefficients due to water clouds - if (liqflag == 1) then - - do icol = 1,ncol - do ilay = 1,nlay - if (cloudy(ilay,icol)) then - - ! liquid effective radius [2.5,60.0] um - factor = reliq(ilay,icol) - 1.5 - index = int(factor) - if (index >= 58) then - if (index == 58) then - index = 57 - else - error stop 'cldprmc: liqflag 1: excessive high-radius extrapolation forbidden!' - end if - else if (index <= 0) then - if (index == 0) then - index = 1 - else - error stop 'cldprmc: liqflag 1: excessive low-radius extrapolation forbidden!' - end if - end if - fint = factor - float(index) - - do ig = 1,ngptlw - if (cldymc(ilay,ig,icol)) then - if (clwpmc(ilay,ig,icol) > 0.) then - - ! 16 cloud bands - ib = ngb(ig) - abscoliq = & - absliq1(index,ib) + fint * & - (absliq1(index+1,ib) - (absliq1(index,ib))) - taucmc(ilay,ig,icol) = taucmc(ilay,ig,icol) + & - clwpmc(ilay,ig,icol) * abscoliq - - end if - end if - end do ! g-point - - end if ! cloudy for any gpoint - end do ! layer - end do ! column - - else - error stop 'cldprmc: invalid liqflag' - end if - - ! refine cloudy flag (for greater speed in rtrnmc) so that - ! flags gridbox if OPTICALLY cloudy for any g-point. Issue - ! is that cloudy() layers defined above may still not have - ! any OPTICALLY significantly cloud (all taucmc may be zero), - ! in which case they should be reclassed to .not.cloudy(). - do icol = 1,ncol - layer: do ilay = 1,nlay - if (cloudy(ilay,icol)) then - do ig = 1,ngptlw - ! if at least one g-point is optically cloudy - ! then layer remains cloudy - if (taucmc(ilay,ig,icol) > 0.) cycle layer - end do - ! no optically cloudy g-points so reclassed not cloudy - cloudy(ilay,icol) = .false. - end if - end do layer - end do - - end subroutine cldprmc - -end module rrtmg_lw_cldprmc diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_init.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_init.F90 deleted file mode 100644 index e81402e2c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_init.F90 +++ /dev/null @@ -1,3269 +0,0 @@ -module rrtmg_lw_init - -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ------- Modules ------- - use rrlw_wvn - use rrtmg_lw_setcoef, only: lwatmref, lwavplank, lwavplankderiv - - implicit none - - contains - -! ************************************************************************** - subroutine rrtmg_lw_ini -! ************************************************************************** -! -! Original version: Michael J. Iacono; July, 1998 -! First revision for GCMs: September, 1998 -! Second revision for RRTM_V3.0: September, 2002 -! -! This subroutine performs calculations necessary for the initialization -! of the longwave model. Lookup tables are computed for use in the LW -! radiative transfer, and input absorption coefficient data for each -! spectral band are reduced from 256 g-point intervals to 140. -! ************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw - use rrlw_tbl, only: ntbl, tblint, pade, bpade, tau_tbl, exp_tbl, tfn_tbl - use rrlw_vsn, only: hvrini, hnamini - -! ------- Local ------- - - integer :: itr, ibnd, igc, ig, ind, ipr - integer :: igcsm, iprsm - - real :: wtsum, wtsm(mg) ! - real :: tfn ! - - real , parameter :: expeps = 1.e-20 ! Smallest value for exponential table - -! ------- Definitions ------- -! Arrays for 10000-point look-up tables: -! TAU_TBL Clear-sky optical depth (used in cloudy radiative transfer) -! EXP_TBL Exponential lookup table for ransmittance -! TFN_TBL Tau transition function; i.e. the transition of the Planck -! function from that for the mean layer temperature to that for -! the layer boundary temperature as a function of optical depth. -! The "linear in tau" method is used to make the table. -! PADE Pade approximation constant (= 0.278) -! BPADE Inverse of the Pade approximation constant -! - - hvrini = '$Revision$' - -! Initialize model data - call lwdatinit - call lwcmbdat ! g-point interval reduction data - call lwcldpr ! cloud optical properties - call lwatmref ! reference MLS profile - call lwavplank ! Planck function - call lwavplankderiv ! Planck function derivative wrt temp - call lw_kgb01 ! molecular absorption coefficients - call lw_kgb02 - call lw_kgb03 - call lw_kgb04 - call lw_kgb05 - call lw_kgb06 - call lw_kgb07 - call lw_kgb08 - call lw_kgb09 - call lw_kgb10 - call lw_kgb11 - call lw_kgb12 - call lw_kgb13 - call lw_kgb14 - call lw_kgb15 - call lw_kgb16 - -! Compute lookup tables for transmittance, tau transition function, -! and clear sky tau (for the cloudy sky radiative transfer). Tau is -! computed as a function of the tau transition function, transmittance -! is calculated as a function of tau, and the tau transition function -! is calculated using the linear in tau formulation at values of tau -! above 0.01. TF is approximated as tau/6 for tau < 0.01. All tables -! are computed at intervals of 0.001. The inverse of the constant used -! in the Pade approximation to the tau transition function is set to b. - - tau_tbl(0) = 0.0 - tau_tbl(ntbl) = 1.e10 - exp_tbl(0) = 1.0 - exp_tbl(ntbl) = expeps - tfn_tbl(0) = 0.0 - tfn_tbl(ntbl) = 1.0 - bpade = 1.0 / pade - do itr = 1, ntbl-1 - tfn = float(itr) / float(ntbl) - tau_tbl(itr) = bpade * tfn / (1. - tfn) - exp_tbl(itr) = exp(-tau_tbl(itr)) - if (exp_tbl(itr) .le. expeps) exp_tbl(itr) = expeps - if (tau_tbl(itr) .lt. 0.06 ) then - tfn_tbl(itr) = tau_tbl(itr)/6. - else - tfn_tbl(itr) = 1. -2. *((1. /tau_tbl(itr))-(exp_tbl(itr)/(1.-exp_tbl(itr)))) - endif - enddo - -! Perform g-point reduction from 16 per band (256 total points) to -! a band dependant number (140 total points) for all absorption -! coefficient input data and Planck fraction input data. -! Compute relative weighting for new g-point combinations. - - igcsm = 0 - do ibnd = 1,nbndlw - iprsm = 0 - if (ngc(ibnd).lt.mg) then - do igc = 1,ngc(ibnd) - igcsm = igcsm + 1 - wtsum = 0. - do ipr = 1, ngn(igcsm) - iprsm = iprsm + 1 - wtsum = wtsum + wt(iprsm) - enddo - wtsm(igc) = wtsum - enddo - do ig = 1, ng(ibnd) - ind = (ibnd-1)*mg + ig - rwgt(ind) = wt(ig)/wtsm(ngm(ind)) - enddo - else - do ig = 1, ng(ibnd) - igcsm = igcsm + 1 - ind = (ibnd-1)*mg + ig - rwgt(ind) = 1.0 - enddo - endif - enddo - -! Reduce g-points for absorption coefficient data in each LW spectral band. - - call cmbgb1 - call cmbgb2 - call cmbgb3 - call cmbgb4 - call cmbgb5 - call cmbgb6 - call cmbgb7 - call cmbgb8 - call cmbgb9 - call cmbgb10 - call cmbgb11 - call cmbgb12 - call cmbgb13 - call cmbgb14 - call cmbgb15 - call cmbgb16 - - end subroutine rrtmg_lw_ini - -!*************************************************************************** - subroutine lwdatinit -!*************************************************************************** - -! --------- Modules ---------- - - use parrrtm, only : maxxsec, maxinpx - use rrlw_con, only: heatfac, grav, planck, boltz, & - clight, avogad, alosmt, gascon, radcn1, radcn2, & - sbcnst, secdy - use rrlw_vsn - - save - -! Longwave spectral band limits (wavenumbers) -! wavenum1(:) = (/ 10. , 350. , 500. , 630. , 700. , 820. , & -! 980. ,1080. ,1180. ,1390. ,1480. ,1800. , & -! 2080. ,2250. ,2380. ,2600. /) -! wavenum2(:) = (/350. , 500. , 630. , 700. , 820. , 980. , & -! 1080. ,1180. ,1390. ,1480. ,1800. ,2080. , & -! 2250. ,2380. ,2600. ,3250. /) -! delwave(:) = (/340. , 150. , 130. , 70. , 120. , 160. , & -! 100. , 100. , 210. , 90. , 320. , 280. , & -! 170. , 130. , 220. , 650. /) - -! Spectral band information - ng(:) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16/) - nspa(:) = (/1,1,9,9,9,1,9,1,9,1,1,9,9,1,9,9/) - nspb(:) = (/1,1,5,5,5,0,1,1,1,1,1,0,0,1,0,0/) - -! nxmol - number of cross-sections input by user -! ixindx(i) - index of cross-section molecule corresponding to Ith -! cross-section specified by user -! = 0 -- not allowed in rrtm -! = 1 -- ccl4 -! = 2 -- cfc11 -! = 3 -- cfc12 -! = 4 -- cfc22 - nxmol = 4 - ixindx(1) = 1 - ixindx(2) = 2 - ixindx(3) = 3 - ixindx(4) = 4 - ixindx(5:maxinpx) = 0 - -! Fundamental physical constants from NIST 2002 - - grav = 9.8066 ! Acceleration of gravity - ! (m s-2) - planck = 6.62606876e-27 ! Planck constant - ! (ergs s; g cm2 s-1) - boltz = 1.3806503e-16 ! Boltzmann constant - ! (ergs K-1; g cm2 s-2 K-1) - clight = 2.99792458e+10 ! Speed of light in a vacuum - ! (cm s-1) - avogad = 6.02214199e+23 ! Avogadro constant - ! (mol-1) - alosmt = 2.6867775e+19 ! Loschmidt constant - ! (cm-3) - gascon = 8.31447200e+07 ! Molar gas constant - ! (ergs mol-1 K-1) - radcn1 = 1.191042722e-12 ! First radiation constant - ! (W cm2 sr-1) - radcn2 = 1.4387752 ! Second radiation constant - ! (cm K) - sbcnst = 5.670400e-04 ! Stefan-Boltzmann constant - ! (W cm-2 K-4) - secdy = 8.6400e4 ! Number of seconds per day - ! (s d-1) -! -! units are generally cgs -! -! The first and second radiation constants are taken from NIST. -! They were previously obtained from the relations: -! radcn1 = 2.*planck*clight*clight*1.e-07 -! radcn2 = planck*clight/boltz - - end subroutine lwdatinit - -!*************************************************************************** - subroutine lwcmbdat -!*************************************************************************** - - save - -! ------- Definitions ------- -! Arrays for the g-point reduction from 256 to 140 for the 16 LW bands: -! This mapping from 256 to 140 points has been carefully selected to -! minimize the effect on the resulting fluxes and cooling rates, and -! caution should be used if the mapping is modified. The full 256 -! g-point set can be restored with ngptlw=256, ngc=16*16, ngn=256*1., etc. -! ngptlw The total number of new g-points -! ngc The number of new g-points in each band -! ngs The cumulative sum of new g-points for each band -! ngm The index of each new g-point relative to the original -! 16 g-points for each band. -! ngn The number of original g-points that are combined to make -! each new g-point in each band. -! ngb The band index for each new g-point. -! wt RRTM weights for 16 g-points. - -! ------- Data statements ------- - ngc(:) = (/10,12,16,14,16,8,12,8,12,6,8,8,4,2,2,2/) - ngs(:) = (/10,22,38,52,68,76,88,96,108,114,122,130,134,136,138,140/) - ngm(:) = (/1,2,3,3,4,4,5,5,6,6,7,7,8,8,9,10, & ! band 1 - 1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12, & ! band 2 - 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 3 - 1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,14, & ! band 4 - 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 5 - 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, & ! band 6 - 1,1,2,2,3,4,5,6,7,8,9,10,11,11,12,12, & ! band 7 - 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, & ! band 8 - 1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12, & ! band 9 - 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, & ! band 10 - 1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,8, & ! band 11 - 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, & ! band 12 - 1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4, & ! band 13 - 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, & ! band 14 - 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, & ! band 15 - 1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2/) ! band 16 - ngn(:) = (/1,1,2,2,2,2,2,2,1,1, & ! band 1 - 1,1,1,1,1,1,1,1,2,2,2,2, & ! band 2 - 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 3 - 1,1,1,1,1,1,1,1,1,1,1,1,1,3, & ! band 4 - 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 5 - 2,2,2,2,2,2,2,2, & ! band 6 - 2,2,1,1,1,1,1,1,1,1,2,2, & ! band 7 - 2,2,2,2,2,2,2,2, & ! band 8 - 1,1,1,1,1,1,1,1,2,2,2,2, & ! band 9 - 2,2,2,2,4,4, & ! band 10 - 1,1,2,2,2,2,3,3, & ! band 11 - 1,1,1,1,2,2,4,4, & ! band 12 - 3,3,4,6, & ! band 13 - 8,8, & ! band 14 - 8,8, & ! band 15 - 4,12/) ! band 16 - ngb(:) = (/1,1,1,1,1,1,1,1,1,1, & ! band 1 - 2,2,2,2,2,2,2,2,2,2,2,2, & ! band 2 - 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, & ! band 3 - 4,4,4,4,4,4,4,4,4,4,4,4,4,4, & ! band 4 - 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, & ! band 5 - 6,6,6,6,6,6,6,6, & ! band 6 - 7,7,7,7,7,7,7,7,7,7,7,7, & ! band 7 - 8,8,8,8,8,8,8,8, & ! band 8 - 9,9,9,9,9,9,9,9,9,9,9,9, & ! band 9 - 10,10,10,10,10,10, & ! band 10 - 11,11,11,11,11,11,11,11, & ! band 11 - 12,12,12,12,12,12,12,12, & ! band 12 - 13,13,13,13, & ! band 13 - 14,14, & ! band 14 - 15,15, & ! band 15 - 16,16/) ! band 16 - wt(:) = (/ 0.1527534276 , 0.1491729617 , 0.1420961469 , & - 0.1316886544 , 0.1181945205 , 0.1019300893 , & - 0.0832767040 , 0.0626720116 , 0.0424925000 , & - 0.0046269894 , 0.0038279891 , 0.0030260086 , & - 0.0022199750 , 0.0014140010 , 0.0005330000 , & - 0.0000750000 /) - - end subroutine lwcmbdat - -!*************************************************************************** - subroutine cmbgb1 -!*************************************************************************** -! -! Original version: MJIacono; July 1998 -! Revision for GCMs: MJIacono; September 1998 -! Revision for RRTMG: MJIacono, September 2002 -! Revision for F90 reformatting: MJIacono, June 2006 -! -! The subroutines CMBGB1->CMBGB16 input the absorption coefficient -! data for each band, which are defined for 16 g-points and 16 spectral -! bands. The data are combined with appropriate weighting following the -! g-point mapping arrays specified in RRTMINIT. Plank fraction data -! in arrays FRACREFA and FRACREFB are combined without weighting. All -! g-point reduced data are put into new arrays for use in RRTM. -! -! band 1: 10-350 cm-1 (low key - h2o; low minor - n2) -! (high key - h2o; high minor - n2) -! note: previous versions of rrtm band 1: -! 10-250 cm-1 (low - h2o; high - h2o) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng1 - use rrlw_kg01, only: fracrefao, fracrefbo, kao, kbo, kao_mn2, kbo_mn2, & - selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, absb, kb, ka_mn2, kb_mn2, & - selfref, forref - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumk1, sumk2, sumf1, sumf2 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(1) - sumk = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(1) - sumk = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(1) - sumk = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(1) - sumk = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(1) - sumk1 = 0. - sumk2 = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumk1 = sumk1 + kao_mn2(jt,iprsm)*rwgt(iprsm) - sumk2 = sumk2 + kbo_mn2(jt,iprsm)*rwgt(iprsm) - enddo - ka_mn2(jt,igc) = sumk1 - kb_mn2(jt,igc) = sumk2 - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(1) - sumf1 = 0. - sumf2 = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumf1= sumf1+ fracrefao(iprsm) - sumf2= sumf2+ fracrefbo(iprsm) - enddo - fracrefa(igc) = sumf1 - fracrefb(igc) = sumf2 - enddo - - end subroutine cmbgb1 - -!*************************************************************************** - subroutine cmbgb2 -!*************************************************************************** -! -! band 2: 350-500 cm-1 (low key - h2o; high key - h2o) -! -! note: previous version of rrtm band 2: -! 250 - 500 cm-1 (low - h2o; high - h2o) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng2 - use rrlw_kg02, only: fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, absb, kb, selfref, forref - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumf1, sumf2 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(2) - sumk = 0. - do ipr = 1, ngn(ngs(1)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+16) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(2) - sumk = 0. - do ipr = 1, ngn(ngs(1)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+16) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(2) - sumk = 0. - do ipr = 1, ngn(ngs(1)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+16) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(2) - sumk = 0. - do ipr = 1, ngn(ngs(1)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+16) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(2) - sumf1 = 0. - sumf2 = 0. - do ipr = 1, ngn(ngs(1)+igc) - iprsm = iprsm + 1 - sumf1= sumf1+ fracrefao(iprsm) - sumf2= sumf2+ fracrefbo(iprsm) - enddo - fracrefa(igc) = sumf1 - fracrefb(igc) = sumf2 - enddo - - end subroutine cmbgb2 - -!*************************************************************************** - subroutine cmbgb3 -!*************************************************************************** -! -! band 3: 500-630 cm-1 (low key - h2o,co2; low minor - n2o) -! (high key - h2o,co2; high minor - n2o) -! -! old band 3: 500-630 cm-1 (low - h2o,co2; high - h2o,co2) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng3 - use rrlw_kg03, only: fracrefao, fracrefbo, kao, kbo, kao_mn2o, kbo_mn2o, & - selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, absb, kb, ka_mn2o, kb_mn2o, & - selfref, forref - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(3) - sumk = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+32) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - do jn = 1,5 - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(3) - sumk = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+32) - enddo - kb(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jn = 1,9 - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(3) - sumk = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao_mn2o(jn,jt,iprsm)*rwgt(iprsm+32) - enddo - ka_mn2o(jn,jt,igc) = sumk - enddo - enddo - enddo - - do jn = 1,5 - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(3) - sumk = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo_mn2o(jn,jt,iprsm)*rwgt(iprsm+32) - enddo - kb_mn2o(jn,jt,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(3) - sumk = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+32) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(3) - sumk = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+32) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(3) - sumf = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefao(iprsm,jp) - enddo - fracrefa(igc,jp) = sumf - enddo - enddo - - do jp = 1,5 - iprsm = 0 - do igc = 1,ngc(3) - sumf = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefbo(iprsm,jp) - enddo - fracrefb(igc,jp) = sumf - enddo - enddo - - end subroutine cmbgb3 - -!*************************************************************************** - subroutine cmbgb4 -!*************************************************************************** -! -! band 4: 630-700 cm-1 (low key - h2o,co2; high key - o3,co2) -! -! old band 4: 630-700 cm-1 (low - h2o,co2; high - o3,co2) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng4 - use rrlw_kg04, only: fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, absb, kb, selfref, forref - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(4) - sumk = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+48) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - do jn = 1,5 - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(4) - sumk = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+48) - enddo - kb(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(4) - sumk = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+48) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(4) - sumk = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+48) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(4) - sumf = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefao(iprsm,jp) - enddo - fracrefa(igc,jp) = sumf - enddo - enddo - - do jp = 1,5 - iprsm = 0 - do igc = 1,ngc(4) - sumf = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefbo(iprsm,jp) - enddo - fracrefb(igc,jp) = sumf - enddo - enddo - - end subroutine cmbgb4 - -!*************************************************************************** - subroutine cmbgb5 -!*************************************************************************** -! -! band 5: 700-820 cm-1 (low key - h2o,co2; low minor - o3, ccl4) -! (high key - o3,co2) -! -! old band 5: 700-820 cm-1 (low - h2o,co2; high - o3,co2) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng5 - use rrlw_kg05, only: fracrefao, fracrefbo, kao, kbo, kao_mo3, ccl4o, & - selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, absb, kb, ka_mo3, ccl4, & - selfref, forref - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(5) - sumk = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+64) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - do jn = 1,5 - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(5) - sumk = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+64) - enddo - kb(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jn = 1,9 - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(5) - sumk = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao_mo3(jn,jt,iprsm)*rwgt(iprsm+64) - enddo - ka_mo3(jn,jt,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(5) - sumk = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+64) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(5) - sumk = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+64) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(5) - sumf = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefao(iprsm,jp) - enddo - fracrefa(igc,jp) = sumf - enddo - enddo - - do jp = 1,5 - iprsm = 0 - do igc = 1,ngc(5) - sumf = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefbo(iprsm,jp) - enddo - fracrefb(igc,jp) = sumf - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(5) - sumk = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumk = sumk + ccl4o(iprsm)*rwgt(iprsm+64) - enddo - ccl4(igc) = sumk - enddo - - end subroutine cmbgb5 - -!*************************************************************************** - subroutine cmbgb6 -!*************************************************************************** -! -! band 6: 820-980 cm-1 (low key - h2o; low minor - co2) -! (high key - nothing; high minor - cfc11, cfc12) -! -! old band 6: 820-980 cm-1 (low - h2o; high - nothing) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng6 - use rrlw_kg06, only: fracrefao, kao, kao_mco2, cfc11adjo, cfc12o, & - selfrefo, forrefo, & - fracrefa, absa, ka, ka_mco2, cfc11adj, cfc12, & - selfref, forref - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumf, sumk1, sumk2 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(6) - sumk = 0. - do ipr = 1, ngn(ngs(5)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+80) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(6) - sumk = 0. - do ipr = 1, ngn(ngs(5)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao_mco2(jt,iprsm)*rwgt(iprsm+80) - enddo - ka_mco2(jt,igc) = sumk - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(6) - sumk = 0. - do ipr = 1, ngn(ngs(5)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+80) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(6) - sumk = 0. - do ipr = 1, ngn(ngs(5)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+80) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(6) - sumf = 0. - sumk1= 0. - sumk2= 0. - do ipr = 1, ngn(ngs(5)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefao(iprsm) - sumk1= sumk1+ cfc11adjo(iprsm)*rwgt(iprsm+80) - sumk2= sumk2+ cfc12o(iprsm)*rwgt(iprsm+80) - enddo - fracrefa(igc) = sumf - cfc11adj(igc) = sumk1 - cfc12(igc) = sumk2 - enddo - - end subroutine cmbgb6 - -!*************************************************************************** - subroutine cmbgb7 -!*************************************************************************** -! -! band 7: 980-1080 cm-1 (low key - h2o,o3; low minor - co2) -! (high key - o3; high minor - co2) -! -! old band 7: 980-1080 cm-1 (low - h2o,o3; high - o3) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng7 - use rrlw_kg07, only: fracrefao, fracrefbo, kao, kbo, kao_mco2, kbo_mco2, & - selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, absb, kb, ka_mco2, kb_mco2, & - selfref, forref - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(7) - sumk = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+96) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(7) - sumk = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+96) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jn = 1,9 - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(7) - sumk = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao_mco2(jn,jt,iprsm)*rwgt(iprsm+96) - enddo - ka_mco2(jn,jt,igc) = sumk - enddo - enddo - enddo - - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(7) - sumk = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo_mco2(jt,iprsm)*rwgt(iprsm+96) - enddo - kb_mco2(jt,igc) = sumk - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(7) - sumk = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+96) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(7) - sumk = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+96) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(7) - sumf = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefao(iprsm,jp) - enddo - fracrefa(igc,jp) = sumf - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(7) - sumf = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefbo(iprsm) - enddo - fracrefb(igc) = sumf - enddo - - end subroutine cmbgb7 - -!*************************************************************************** - subroutine cmbgb8 -!*************************************************************************** -! -! band 8: 1080-1180 cm-1 (low key - h2o; low minor - co2,o3,n2o) -! (high key - o3; high minor - co2, n2o) -! -! old band 8: 1080-1180 cm-1 (low (i.e.>~300mb) - h2o; high - o3) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng8 - use rrlw_kg08, only: fracrefao, fracrefbo, kao, kao_mco2, kao_mn2o, & - kao_mo3, kbo, kbo_mco2, kbo_mn2o, selfrefo, forrefo, & - cfc12o, cfc22adjo, & - fracrefa, fracrefb, absa, ka, ka_mco2, ka_mn2o, & - ka_mo3, absb, kb, kb_mco2, kb_mn2o, selfref, forref, & - cfc12, cfc22adj - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumk1, sumk2, sumk3, sumk4, sumk5, sumf1, sumf2 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(8) - sumk = 0. - do ipr = 1, ngn(ngs(7)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+112) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - enddo - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(8) - sumk = 0. - do ipr = 1, ngn(ngs(7)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+112) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(8) - sumk = 0. - do ipr = 1, ngn(ngs(7)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+112) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(8) - sumk = 0. - do ipr = 1, ngn(ngs(7)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+112) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(8) - sumk1 = 0. - sumk2 = 0. - sumk3 = 0. - sumk4 = 0. - sumk5 = 0. - do ipr = 1, ngn(ngs(7)+igc) - iprsm = iprsm + 1 - sumk1 = sumk1 + kao_mco2(jt,iprsm)*rwgt(iprsm+112) - sumk2 = sumk2 + kbo_mco2(jt,iprsm)*rwgt(iprsm+112) - sumk3 = sumk3 + kao_mo3(jt,iprsm)*rwgt(iprsm+112) - sumk4 = sumk4 + kao_mn2o(jt,iprsm)*rwgt(iprsm+112) - sumk5 = sumk5 + kbo_mn2o(jt,iprsm)*rwgt(iprsm+112) - enddo - ka_mco2(jt,igc) = sumk1 - kb_mco2(jt,igc) = sumk2 - ka_mo3(jt,igc) = sumk3 - ka_mn2o(jt,igc) = sumk4 - kb_mn2o(jt,igc) = sumk5 - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(8) - sumf1= 0. - sumf2= 0. - sumk1= 0. - sumk2= 0. - do ipr = 1, ngn(ngs(7)+igc) - iprsm = iprsm + 1 - sumf1= sumf1+ fracrefao(iprsm) - sumf2= sumf2+ fracrefbo(iprsm) - sumk1= sumk1+ cfc12o(iprsm)*rwgt(iprsm+112) - sumk2= sumk2+ cfc22adjo(iprsm)*rwgt(iprsm+112) - enddo - fracrefa(igc) = sumf1 - fracrefb(igc) = sumf2 - cfc12(igc) = sumk1 - cfc22adj(igc) = sumk2 - enddo - - end subroutine cmbgb8 - -!*************************************************************************** - subroutine cmbgb9 -!*************************************************************************** -! -! band 9: 1180-1390 cm-1 (low key - h2o,ch4; low minor - n2o) -! (high key - ch4; high minor - n2o)! - -! old band 9: 1180-1390 cm-1 (low - h2o,ch4; high - ch4) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng9 - use rrlw_kg09, only: fracrefao, fracrefbo, kao, kao_mn2o, & - kbo, kbo_mn2o, selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, ka_mn2o, & - absb, kb, kb_mn2o, selfref, forref - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(9) - sumk = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+128) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(9) - sumk = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+128) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jn = 1,9 - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(9) - sumk = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao_mn2o(jn,jt,iprsm)*rwgt(iprsm+128) - enddo - ka_mn2o(jn,jt,igc) = sumk - enddo - enddo - enddo - - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(9) - sumk = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo_mn2o(jt,iprsm)*rwgt(iprsm+128) - enddo - kb_mn2o(jt,igc) = sumk - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(9) - sumk = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+128) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(9) - sumk = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+128) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(9) - sumf = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefao(iprsm,jp) - enddo - fracrefa(igc,jp) = sumf - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(9) - sumf = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefbo(iprsm) - enddo - fracrefb(igc) = sumf - enddo - - end subroutine cmbgb9 - -!*************************************************************************** - subroutine cmbgb10 -!*************************************************************************** -! -! band 10: 1390-1480 cm-1 (low key - h2o; high key - h2o) -! -! old band 10: 1390-1480 cm-1 (low - h2o; high - h2o) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng10 - use rrlw_kg10, only: fracrefao, fracrefbo, kao, kbo, & - selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, absb, kb, & - selfref, forref - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumf1, sumf2 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(10) - sumk = 0. - do ipr = 1, ngn(ngs(9)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+144) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(10) - sumk = 0. - do ipr = 1, ngn(ngs(9)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+144) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(10) - sumk = 0. - do ipr = 1, ngn(ngs(9)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+144) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(10) - sumk = 0. - do ipr = 1, ngn(ngs(9)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+144) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(10) - sumf1= 0. - sumf2= 0. - do ipr = 1, ngn(ngs(9)+igc) - iprsm = iprsm + 1 - sumf1= sumf1+ fracrefao(iprsm) - sumf2= sumf2+ fracrefbo(iprsm) - enddo - fracrefa(igc) = sumf1 - fracrefb(igc) = sumf2 - enddo - - end subroutine cmbgb10 - -!*************************************************************************** - subroutine cmbgb11 -!*************************************************************************** -! -! band 11: 1480-1800 cm-1 (low - h2o; low minor - o2) -! (high key - h2o; high minor - o2) -! -! old band 11: 1480-1800 cm-1 (low - h2o; low minor - o2) -! (high key - h2o; high minor - o2) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng11 - use rrlw_kg11, only: fracrefao, fracrefbo, kao, kao_mo2, & - kbo, kbo_mo2, selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, ka_mo2, & - absb, kb, kb_mo2, selfref, forref - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumk1, sumk2, sumf1, sumf2 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(11) - sumk = 0. - do ipr = 1, ngn(ngs(10)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+160) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - enddo - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(11) - sumk = 0. - do ipr = 1, ngn(ngs(10)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+160) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(11) - sumk1 = 0. - sumk2 = 0. - do ipr = 1, ngn(ngs(10)+igc) - iprsm = iprsm + 1 - sumk1 = sumk1 + kao_mo2(jt,iprsm)*rwgt(iprsm+160) - sumk2 = sumk2 + kbo_mo2(jt,iprsm)*rwgt(iprsm+160) - enddo - ka_mo2(jt,igc) = sumk1 - kb_mo2(jt,igc) = sumk2 - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(11) - sumk = 0. - do ipr = 1, ngn(ngs(10)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+160) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(11) - sumk = 0. - do ipr = 1, ngn(ngs(10)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+160) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(11) - sumf1= 0. - sumf2= 0. - do ipr = 1, ngn(ngs(10)+igc) - iprsm = iprsm + 1 - sumf1= sumf1+ fracrefao(iprsm) - sumf2= sumf2+ fracrefbo(iprsm) - enddo - fracrefa(igc) = sumf1 - fracrefb(igc) = sumf2 - enddo - - end subroutine cmbgb11 - -!*************************************************************************** - subroutine cmbgb12 -!*************************************************************************** -! -! band 12: 1800-2080 cm-1 (low - h2o,co2; high - nothing) -! -! old band 12: 1800-2080 cm-1 (low - h2o,co2; high - nothing) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng12 - use rrlw_kg12, only: fracrefao, kao, selfrefo, forrefo, & - fracrefa, absa, ka, selfref, forref - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(12) - sumk = 0. - do ipr = 1, ngn(ngs(11)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+176) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(12) - sumk = 0. - do ipr = 1, ngn(ngs(11)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+176) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(12) - sumk = 0. - do ipr = 1, ngn(ngs(11)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+176) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(12) - sumf = 0. - do ipr = 1, ngn(ngs(11)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefao(iprsm,jp) - enddo - fracrefa(igc,jp) = sumf - enddo - enddo - - end subroutine cmbgb12 - -!*************************************************************************** - subroutine cmbgb13 -!*************************************************************************** -! -! band 13: 2080-2250 cm-1 (low key - h2o,n2o; high minor - o3 minor) -! -! old band 13: 2080-2250 cm-1 (low - h2o,n2o; high - nothing) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng13 - use rrlw_kg13, only: fracrefao, fracrefbo, kao, kao_mco2, kao_mco, & - kbo_mo3, selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, ka_mco2, ka_mco, & - kb_mo3, selfref, forref - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumk1, sumk2, sumf - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(13) - sumk = 0. - do ipr = 1, ngn(ngs(12)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+192) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jn = 1,9 - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(13) - sumk1 = 0. - sumk2 = 0. - do ipr = 1, ngn(ngs(12)+igc) - iprsm = iprsm + 1 - sumk1 = sumk1 + kao_mco2(jn,jt,iprsm)*rwgt(iprsm+192) - sumk2 = sumk2 + kao_mco(jn,jt,iprsm)*rwgt(iprsm+192) - enddo - ka_mco2(jn,jt,igc) = sumk1 - ka_mco(jn,jt,igc) = sumk2 - enddo - enddo - enddo - - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(13) - sumk = 0. - do ipr = 1, ngn(ngs(12)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo_mo3(jt,iprsm)*rwgt(iprsm+192) - enddo - kb_mo3(jt,igc) = sumk - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(13) - sumk = 0. - do ipr = 1, ngn(ngs(12)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+192) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(13) - sumk = 0. - do ipr = 1, ngn(ngs(12)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+192) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(13) - sumf = 0. - do ipr = 1, ngn(ngs(12)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefbo(iprsm) - enddo - fracrefb(igc) = sumf - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(13) - sumf = 0. - do ipr = 1, ngn(ngs(12)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefao(iprsm,jp) - enddo - fracrefa(igc,jp) = sumf - enddo - enddo - - end subroutine cmbgb13 - -!*************************************************************************** - subroutine cmbgb14 -!*************************************************************************** -! -! band 14: 2250-2380 cm-1 (low - co2; high - co2) -! -! old band 14: 2250-2380 cm-1 (low - co2; high - co2) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng14 - use rrlw_kg14, only: fracrefao, fracrefbo, kao, kbo, & - selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, absb, kb, & - selfref, forref - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumf1, sumf2 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(14) - sumk = 0. - do ipr = 1, ngn(ngs(13)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+208) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(14) - sumk = 0. - do ipr = 1, ngn(ngs(13)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+208) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(14) - sumk = 0. - do ipr = 1, ngn(ngs(13)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+208) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(14) - sumk = 0. - do ipr = 1, ngn(ngs(13)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+208) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(14) - sumf1= 0. - sumf2= 0. - do ipr = 1, ngn(ngs(13)+igc) - iprsm = iprsm + 1 - sumf1= sumf1+ fracrefao(iprsm) - sumf2= sumf2+ fracrefbo(iprsm) - enddo - fracrefa(igc) = sumf1 - fracrefb(igc) = sumf2 - enddo - - end subroutine cmbgb14 - -!*************************************************************************** - subroutine cmbgb15 -!*************************************************************************** -! -! band 15: 2380-2600 cm-1 (low - n2o,co2; low minor - n2) -! (high - nothing) -! -! old band 15: 2380-2600 cm-1 (low - n2o,co2; high - nothing) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng15 - use rrlw_kg15, only: fracrefao, kao, kao_mn2, selfrefo, forrefo, & - fracrefa, absa, ka, ka_mn2, selfref, forref - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(15) - sumk = 0. - do ipr = 1, ngn(ngs(14)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+224) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jn = 1,9 - do jt = 1,19 - iprsm = 0 - do igc = 1,ngc(15) - sumk = 0. - do ipr = 1, ngn(ngs(14)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao_mn2(jn,jt,iprsm)*rwgt(iprsm+224) - enddo - ka_mn2(jn,jt,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(15) - sumk = 0. - do ipr = 1, ngn(ngs(14)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+224) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(15) - sumk = 0. - do ipr = 1, ngn(ngs(14)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+224) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(15) - sumf = 0. - do ipr = 1, ngn(ngs(14)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefao(iprsm,jp) - enddo - fracrefa(igc,jp) = sumf - enddo - enddo - - end subroutine cmbgb15 - -!*************************************************************************** - subroutine cmbgb16 -!*************************************************************************** -! -! band 16: 2600-3250 cm-1 (low key- h2o,ch4; high key - ch4) -! -! old band 16: 2600-3000 cm-1 (low - h2o,ch4; high - nothing) -!*************************************************************************** - - use parrrtm, only : mg, nbndlw, ngptlw, ng16 - use rrlw_kg16, only: fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo, & - fracrefa, fracrefb, absa, ka, absb, kb, selfref, forref - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(16) - sumk = 0. - do ipr = 1, ngn(ngs(15)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+240) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(16) - sumk = 0. - do ipr = 1, ngn(ngs(15)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+240) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(16) - sumk = 0. - do ipr = 1, ngn(ngs(15)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+240) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(16) - sumk = 0. - do ipr = 1, ngn(ngs(15)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+240) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(16) - sumf = 0. - do ipr = 1, ngn(ngs(15)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefbo(iprsm) - enddo - fracrefb(igc) = sumf - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(16) - sumf = 0. - do ipr = 1, ngn(ngs(15)+igc) - iprsm = iprsm + 1 - sumf = sumf + fracrefao(iprsm,jp) - enddo - fracrefa(igc,jp) = sumf - enddo - enddo - - end subroutine cmbgb16 - -!*************************************************************************** - subroutine lwcldpr -!*************************************************************************** - -! --------- Modules ---------- - - use rrlw_cld, only: absliq1, absice0, absice1, absice2, absice3, absice4 - - save - -! ABSICEn(J,IB) are the parameters needed to compute the liquid water -! absorption coefficient in spectral region IB for ICEFLAG=n. The units -! of ABSICEn(1,IB) are m2/g and ABSICEn(2,IB) has units (microns (m2/g)). -! For ICEFLAG = 0. - - absice0(:)= (/0.005 , 1.0 /) - -! For ICEFLAG = 1. - absice1(1,:) = (/0.0036 , 0.0068 , 0.0003 , 0.0016 , 0.0020 /) - absice1(2,:) = (/1.136 , 0.600 , 1.338 , 1.166 , 1.118 /) - -! For ICEFLAG = 2. In each band, the absorption -! coefficients are listed for a range of effective radii from 5.0 -! to 131.0 microns in increments of 3.0 microns. -! Spherical Ice Particle Parameterization -! absorption units (abs coef/iwc): [(m^-1)/(g m^-3)] - absice2(:,1) = (/ & -! band 1 - 7.798999e-02 ,6.340479e-02 ,5.417973e-02 ,4.766245e-02 ,4.272663e-02 , & - 3.880939e-02 ,3.559544e-02 ,3.289241e-02 ,3.057511e-02 ,2.855800e-02 , & - 2.678022e-02 ,2.519712e-02 ,2.377505e-02 ,2.248806e-02 ,2.131578e-02 , & - 2.024194e-02 ,1.925337e-02 ,1.833926e-02 ,1.749067e-02 ,1.670007e-02 , & - 1.596113e-02 ,1.526845e-02 ,1.461739e-02 ,1.400394e-02 ,1.342462e-02 , & - 1.287639e-02 ,1.235656e-02 ,1.186279e-02 ,1.139297e-02 ,1.094524e-02 , & - 1.051794e-02 ,1.010956e-02 ,9.718755e-03 ,9.344316e-03 ,8.985139e-03 , & - 8.640223e-03 ,8.308656e-03 ,7.989606e-03 ,7.682312e-03 ,7.386076e-03 , & - 7.100255e-03 ,6.824258e-03 ,6.557540e-03 /) - absice2(:,2) = (/ & -! band 2 - 2.784879e-02 ,2.709863e-02 ,2.619165e-02 ,2.529230e-02 ,2.443225e-02 , & - 2.361575e-02 ,2.284021e-02 ,2.210150e-02 ,2.139548e-02 ,2.071840e-02 , & - 2.006702e-02 ,1.943856e-02 ,1.883064e-02 ,1.824120e-02 ,1.766849e-02 , & - 1.711099e-02 ,1.656737e-02 ,1.603647e-02 ,1.551727e-02 ,1.500886e-02 , & - 1.451045e-02 ,1.402132e-02 ,1.354084e-02 ,1.306842e-02 ,1.260355e-02 , & - 1.214575e-02 ,1.169460e-02 ,1.124971e-02 ,1.081072e-02 ,1.037731e-02 , & - 9.949167e-03 ,9.526021e-03 ,9.107615e-03 ,8.693714e-03 ,8.284096e-03 , & - 7.878558e-03 ,7.476910e-03 ,7.078974e-03 ,6.684586e-03 ,6.293589e-03 , & - 5.905839e-03 ,5.521200e-03 ,5.139543e-03 /) - absice2(:,3) = (/ & -! band 3 - 1.065397e-01 ,8.005726e-02 ,6.546428e-02 ,5.589131e-02 ,4.898681e-02 , & - 4.369932e-02 ,3.947901e-02 ,3.600676e-02 ,3.308299e-02 ,3.057561e-02 , & - 2.839325e-02 ,2.647040e-02 ,2.475872e-02 ,2.322164e-02 ,2.183091e-02 , & - 2.056430e-02 ,1.940407e-02 ,1.833586e-02 ,1.734787e-02 ,1.643034e-02 , & - 1.557512e-02 ,1.477530e-02 ,1.402501e-02 ,1.331924e-02 ,1.265364e-02 , & - 1.202445e-02 ,1.142838e-02 ,1.086257e-02 ,1.032445e-02 ,9.811791e-03 , & - 9.322587e-03 ,8.855053e-03 ,8.407591e-03 ,7.978763e-03 ,7.567273e-03 , & - 7.171949e-03 ,6.791728e-03 ,6.425642e-03 ,6.072809e-03 ,5.732424e-03 , & - 5.403748e-03 ,5.086103e-03 ,4.778865e-03 /) - absice2(:,4) = (/ & -! band 4 - 1.804566e-01 ,1.168987e-01 ,8.680442e-02 ,6.910060e-02 ,5.738174e-02 , & - 4.902332e-02 ,4.274585e-02 ,3.784923e-02 ,3.391734e-02 ,3.068690e-02 , & - 2.798301e-02 ,2.568480e-02 ,2.370600e-02 ,2.198337e-02 ,2.046940e-02 , & - 1.912777e-02 ,1.793016e-02 ,1.685420e-02 ,1.588193e-02 ,1.499882e-02 , & - 1.419293e-02 ,1.345440e-02 ,1.277496e-02 ,1.214769e-02 ,1.156669e-02 , & - 1.102694e-02 ,1.052412e-02 ,1.005451e-02 ,9.614854e-03 ,9.202335e-03 , & - 8.814470e-03 ,8.449077e-03 ,8.104223e-03 ,7.778195e-03 ,7.469466e-03 , & - 7.176671e-03 ,6.898588e-03 ,6.634117e-03 ,6.382264e-03 ,6.142134e-03 , & - 5.912913e-03 ,5.693862e-03 ,5.484308e-03 /) - absice2(:,5) = (/ & -! band 5 - 2.131806e-01 ,1.311372e-01 ,9.407171e-02 ,7.299442e-02 ,5.941273e-02 , & - 4.994043e-02 ,4.296242e-02 ,3.761113e-02 ,3.337910e-02 ,2.994978e-02 , & - 2.711556e-02 ,2.473461e-02 ,2.270681e-02 ,2.095943e-02 ,1.943839e-02 , & - 1.810267e-02 ,1.692057e-02 ,1.586719e-02 ,1.492275e-02 ,1.407132e-02 , & - 1.329989e-02 ,1.259780e-02 ,1.195618e-02 ,1.136761e-02 ,1.082583e-02 , & - 1.032552e-02 ,9.862158e-03 ,9.431827e-03 ,9.031157e-03 ,8.657217e-03 , & - 8.307449e-03 ,7.979609e-03 ,7.671724e-03 ,7.382048e-03 ,7.109032e-03 , & - 6.851298e-03 ,6.607615e-03 ,6.376881e-03 ,6.158105e-03 ,5.950394e-03 , & - 5.752942e-03 ,5.565019e-03 ,5.385963e-03 /) - absice2(:,6) = (/ & -! band 6 - 1.546177e-01 ,1.039251e-01 ,7.910347e-02 ,6.412429e-02 ,5.399997e-02 , & - 4.664937e-02 ,4.104237e-02 ,3.660781e-02 ,3.300218e-02 ,3.000586e-02 , & - 2.747148e-02 ,2.529633e-02 ,2.340647e-02 ,2.174723e-02 ,2.027731e-02 , & - 1.896487e-02 ,1.778492e-02 ,1.671761e-02 ,1.574692e-02 ,1.485978e-02 , & - 1.404543e-02 ,1.329489e-02 ,1.260066e-02 ,1.195636e-02 ,1.135657e-02 , & - 1.079664e-02 ,1.027257e-02 ,9.780871e-03 ,9.318505e-03 ,8.882815e-03 , & - 8.471458e-03 ,8.082364e-03 ,7.713696e-03 ,7.363817e-03 ,7.031264e-03 , & - 6.714725e-03 ,6.413021e-03 ,6.125086e-03 ,5.849958e-03 ,5.586764e-03 , & - 5.334707e-03 ,5.093066e-03 ,4.861179e-03 /) - absice2(:,7) = (/ & -! band 7 - 7.583404e-02 ,6.181558e-02 ,5.312027e-02 ,4.696039e-02 ,4.225986e-02 , & - 3.849735e-02 ,3.538340e-02 ,3.274182e-02 ,3.045798e-02 ,2.845343e-02 , & - 2.667231e-02 ,2.507353e-02 ,2.362606e-02 ,2.230595e-02 ,2.109435e-02 , & - 1.997617e-02 ,1.893916e-02 ,1.797328e-02 ,1.707016e-02 ,1.622279e-02 , & - 1.542523e-02 ,1.467241e-02 ,1.395997e-02 ,1.328414e-02 ,1.264164e-02 , & - 1.202958e-02 ,1.144544e-02 ,1.088697e-02 ,1.035218e-02 ,9.839297e-03 , & - 9.346733e-03 ,8.873057e-03 ,8.416980e-03 ,7.977335e-03 ,7.553066e-03 , & - 7.143210e-03 ,6.746888e-03 ,6.363297e-03 ,5.991700e-03 ,5.631422e-03 , & - 5.281840e-03 ,4.942378e-03 ,4.612505e-03 /) - absice2(:,8) = (/ & -! band 8 - 9.022185e-02 ,6.922700e-02 ,5.710674e-02 ,4.898377e-02 ,4.305946e-02 , & - 3.849553e-02 ,3.484183e-02 ,3.183220e-02 ,2.929794e-02 ,2.712627e-02 , & - 2.523856e-02 ,2.357810e-02 ,2.210286e-02 ,2.078089e-02 ,1.958747e-02 , & - 1.850310e-02 ,1.751218e-02 ,1.660205e-02 ,1.576232e-02 ,1.498440e-02 , & - 1.426107e-02 ,1.358624e-02 ,1.295474e-02 ,1.236212e-02 ,1.180456e-02 , & - 1.127874e-02 ,1.078175e-02 ,1.031106e-02 ,9.864433e-03 ,9.439878e-03 , & - 9.035637e-03 ,8.650140e-03 ,8.281981e-03 ,7.929895e-03 ,7.592746e-03 , & - 7.269505e-03 ,6.959238e-03 ,6.661100e-03 ,6.374317e-03 ,6.098185e-03 , & - 5.832059e-03 ,5.575347e-03 ,5.327504e-03 /) - absice2(:,9) = (/ & -! band 9 - 1.294087e-01 ,8.788217e-02 ,6.728288e-02 ,5.479720e-02 ,4.635049e-02 , & - 4.022253e-02 ,3.555576e-02 ,3.187259e-02 ,2.888498e-02 ,2.640843e-02 , & - 2.431904e-02 ,2.253038e-02 ,2.098024e-02 ,1.962267e-02 ,1.842293e-02 , & - 1.735426e-02 ,1.639571e-02 ,1.553060e-02 ,1.474552e-02 ,1.402953e-02 , & - 1.337363e-02 ,1.277033e-02 ,1.221336e-02 ,1.169741e-02 ,1.121797e-02 , & - 1.077117e-02 ,1.035369e-02 ,9.962643e-03 ,9.595509e-03 ,9.250088e-03 , & - 8.924447e-03 ,8.616876e-03 ,8.325862e-03 ,8.050057e-03 ,7.788258e-03 , & - 7.539388e-03 ,7.302478e-03 ,7.076656e-03 ,6.861134e-03 ,6.655197e-03 , & - 6.458197e-03 ,6.269543e-03 ,6.088697e-03 /) - absice2(:,10) = (/ & -! band 10 - 1.593628e-01 ,1.014552e-01 ,7.458955e-02 ,5.903571e-02 ,4.887582e-02 , & - 4.171159e-02 ,3.638480e-02 ,3.226692e-02 ,2.898717e-02 ,2.631256e-02 , & - 2.408925e-02 ,2.221156e-02 ,2.060448e-02 ,1.921325e-02 ,1.799699e-02 , & - 1.692456e-02 ,1.597177e-02 ,1.511961e-02 ,1.435289e-02 ,1.365933e-02 , & - 1.302890e-02 ,1.245334e-02 ,1.192576e-02 ,1.144037e-02 ,1.099230e-02 , & - 1.057739e-02 ,1.019208e-02 ,9.833302e-03 ,9.498395e-03 ,9.185047e-03 , & - 8.891237e-03 ,8.615185e-03 ,8.355325e-03 ,8.110267e-03 ,7.878778e-03 , & - 7.659759e-03 ,7.452224e-03 ,7.255291e-03 ,7.068166e-03 ,6.890130e-03 , & - 6.720536e-03 ,6.558794e-03 ,6.404371e-03 /) - absice2(:,11) = (/ & -! band 11 - 1.656227e-01 ,1.032129e-01 ,7.487359e-02 ,5.871431e-02 ,4.828355e-02 , & - 4.099989e-02 ,3.562924e-02 ,3.150755e-02 ,2.824593e-02 ,2.560156e-02 , & - 2.341503e-02 ,2.157740e-02 ,2.001169e-02 ,1.866199e-02 ,1.748669e-02 , & - 1.645421e-02 ,1.554015e-02 ,1.472535e-02 ,1.399457e-02 ,1.333553e-02 , & - 1.273821e-02 ,1.219440e-02 ,1.169725e-02 ,1.124104e-02 ,1.082096e-02 , & - 1.043290e-02 ,1.007336e-02 ,9.739338e-03 ,9.428223e-03 ,9.137756e-03 , & - 8.865964e-03 ,8.611115e-03 ,8.371686e-03 ,8.146330e-03 ,7.933852e-03 , & - 7.733187e-03 ,7.543386e-03 ,7.363597e-03 ,7.193056e-03 ,7.031072e-03 , & - 6.877024e-03 ,6.730348e-03 ,6.590531e-03 /) - absice2(:,12) = (/ & -! band 12 - 9.194591e-02 ,6.446867e-02 ,4.962034e-02 ,4.042061e-02 ,3.418456e-02 , & - 2.968856e-02 ,2.629900e-02 ,2.365572e-02 ,2.153915e-02 ,1.980791e-02 , & - 1.836689e-02 ,1.714979e-02 ,1.610900e-02 ,1.520946e-02 ,1.442476e-02 , & - 1.373468e-02 ,1.312345e-02 ,1.257858e-02 ,1.209010e-02 ,1.164990e-02 , & - 1.125136e-02 ,1.088901e-02 ,1.055827e-02 ,1.025531e-02 ,9.976896e-03 , & - 9.720255e-03 ,9.483022e-03 ,9.263160e-03 ,9.058902e-03 ,8.868710e-03 , & - 8.691240e-03 ,8.525312e-03 ,8.369886e-03 ,8.224042e-03 ,8.086961e-03 , & - 7.957917e-03 ,7.836258e-03 ,7.721400e-03 ,7.612821e-03 ,7.510045e-03 , & - 7.412648e-03 ,7.320242e-03 ,7.232476e-03 /) - absice2(:,13) = (/ & -! band 13 - 1.437021e-01 ,8.872535e-02 ,6.392420e-02 ,4.991833e-02 ,4.096790e-02 , & - 3.477881e-02 ,3.025782e-02 ,2.681909e-02 ,2.412102e-02 ,2.195132e-02 , & - 2.017124e-02 ,1.868641e-02 ,1.743044e-02 ,1.635529e-02 ,1.542540e-02 , & - 1.461388e-02 ,1.390003e-02 ,1.326766e-02 ,1.270395e-02 ,1.219860e-02 , & - 1.174326e-02 ,1.133107e-02 ,1.095637e-02 ,1.061442e-02 ,1.030126e-02 , & - 1.001352e-02 ,9.748340e-03 ,9.503256e-03 ,9.276155e-03 ,9.065205e-03 , & - 8.868808e-03 ,8.685571e-03 ,8.514268e-03 ,8.353820e-03 ,8.203272e-03 , & - 8.061776e-03 ,7.928578e-03 ,7.803001e-03 ,7.684443e-03 ,7.572358e-03 , & - 7.466258e-03 ,7.365701e-03 ,7.270286e-03 /) - absice2(:,14) = (/ & -! band 14 - 1.288870e-01 ,8.160295e-02 ,5.964745e-02 ,4.703790e-02 ,3.888637e-02 , & - 3.320115e-02 ,2.902017e-02 ,2.582259e-02 ,2.330224e-02 ,2.126754e-02 , & - 1.959258e-02 ,1.819130e-02 ,1.700289e-02 ,1.598320e-02 ,1.509942e-02 , & - 1.432666e-02 ,1.364572e-02 ,1.304156e-02 ,1.250220e-02 ,1.201803e-02 , & - 1.158123e-02 ,1.118537e-02 ,1.082513e-02 ,1.049605e-02 ,1.019440e-02 , & - 9.916989e-03 ,9.661116e-03 ,9.424457e-03 ,9.205005e-03 ,9.001022e-03 , & - 8.810992e-03 ,8.633588e-03 ,8.467646e-03 ,8.312137e-03 ,8.166151e-03 , & - 8.028878e-03 ,7.899597e-03 ,7.777663e-03 ,7.662498e-03 ,7.553581e-03 , & - 7.450444e-03 ,7.352662e-03 ,7.259851e-03 /) - absice2(:,15) = (/ & -! band 15 - 8.254229e-02 ,5.808787e-02 ,4.492166e-02 ,3.675028e-02 ,3.119623e-02 , & - 2.718045e-02 ,2.414450e-02 ,2.177073e-02 ,1.986526e-02 ,1.830306e-02 , & - 1.699991e-02 ,1.589698e-02 ,1.495199e-02 ,1.413374e-02 ,1.341870e-02 , & - 1.278883e-02 ,1.223002e-02 ,1.173114e-02 ,1.128322e-02 ,1.087900e-02 , & - 1.051254e-02 ,1.017890e-02 ,9.873991e-03 ,9.594347e-03 ,9.337044e-03 , & - 9.099589e-03 ,8.879842e-03 ,8.675960e-03 ,8.486341e-03 ,8.309594e-03 , & - 8.144500e-03 ,7.989986e-03 ,7.845109e-03 ,7.709031e-03 ,7.581007e-03 , & - 7.460376e-03 ,7.346544e-03 ,7.238978e-03 ,7.137201e-03 ,7.040780e-03 , & - 6.949325e-03 ,6.862483e-03 ,6.779931e-03 /) - absice2(:,16) = (/ & -! band 16 - 1.382062e-01 ,8.643227e-02 ,6.282935e-02 ,4.934783e-02 ,4.063891e-02 , & - 3.455591e-02 ,3.007059e-02 ,2.662897e-02 ,2.390631e-02 ,2.169972e-02 , & - 1.987596e-02 ,1.834393e-02 ,1.703924e-02 ,1.591513e-02 ,1.493679e-02 , & - 1.407780e-02 ,1.331775e-02 ,1.264061e-02 ,1.203364e-02 ,1.148655e-02 , & - 1.099099e-02 ,1.054006e-02 ,1.012807e-02 ,9.750215e-03 ,9.402477e-03 , & - 9.081428e-03 ,8.784143e-03 ,8.508107e-03 ,8.251146e-03 ,8.011373e-03 , & - 7.787140e-03 ,7.577002e-03 ,7.379687e-03 ,7.194071e-03 ,7.019158e-03 , & - 6.854061e-03 ,6.697986e-03 ,6.550224e-03 ,6.410138e-03 ,6.277153e-03 , & - 6.150751e-03 ,6.030462e-03 ,5.915860e-03 /) - -! ICEFLAG = 3; Fu parameterization. Particle size 5 - 140 micron in -! increments of 3 microns. -! units = m2/g -! Hexagonal Ice Particle Parameterization -! absorption units (abs coef/iwc): [(m^-1)/(g m^-3)] - absice3(:,1) = (/ & -! band 1 - 3.110649e-03 ,4.666352e-02 ,6.606447e-02 ,6.531678e-02 ,6.012598e-02 , & - 5.437494e-02 ,4.906411e-02 ,4.441146e-02 ,4.040585e-02 ,3.697334e-02 , & - 3.403027e-02 ,3.149979e-02 ,2.931596e-02 ,2.742365e-02 ,2.577721e-02 , & - 2.433888e-02 ,2.307732e-02 ,2.196644e-02 ,2.098437e-02 ,2.011264e-02 , & - 1.933561e-02 ,1.863992e-02 ,1.801407e-02 ,1.744812e-02 ,1.693346e-02 , & - 1.646252e-02 ,1.602866e-02 ,1.562600e-02 ,1.524933e-02 ,1.489399e-02 , & - 1.455580e-02 ,1.423098e-02 ,1.391612e-02 ,1.360812e-02 ,1.330413e-02 , & - 1.300156e-02 ,1.269801e-02 ,1.239127e-02 ,1.207928e-02 ,1.176014e-02 , & - 1.143204e-02 ,1.109334e-02 ,1.074243e-02 ,1.037786e-02 ,9.998198e-03 , & - 9.602126e-03 /) - absice3(:,2) = (/ & -! band 2 - 3.984966e-04 ,1.681097e-02 ,2.627680e-02 ,2.767465e-02 ,2.700722e-02 , & - 2.579180e-02 ,2.448677e-02 ,2.323890e-02 ,2.209096e-02 ,2.104882e-02 , & - 2.010547e-02 ,1.925003e-02 ,1.847128e-02 ,1.775883e-02 ,1.710358e-02 , & - 1.649769e-02 ,1.593449e-02 ,1.540829e-02 ,1.491429e-02 ,1.444837e-02 , & - 1.400704e-02 ,1.358729e-02 ,1.318654e-02 ,1.280258e-02 ,1.243346e-02 , & - 1.207750e-02 ,1.173325e-02 ,1.139941e-02 ,1.107487e-02 ,1.075861e-02 , & - 1.044975e-02 ,1.014753e-02 ,9.851229e-03 ,9.560240e-03 ,9.274003e-03 , & - 8.992020e-03 ,8.713845e-03 ,8.439074e-03 ,8.167346e-03 ,7.898331e-03 , & - 7.631734e-03 ,7.367286e-03 ,7.104742e-03 ,6.843882e-03 ,6.584504e-03 , & - 6.326424e-03 /) - absice3(:,3) = (/ & -! band 3 - 6.933163e-02 ,8.540475e-02 ,7.701816e-02 ,6.771158e-02 ,5.986953e-02 , & - 5.348120e-02 ,4.824962e-02 ,4.390563e-02 ,4.024411e-02 ,3.711404e-02 , & - 3.440426e-02 ,3.203200e-02 ,2.993478e-02 ,2.806474e-02 ,2.638464e-02 , & - 2.486516e-02 ,2.348288e-02 ,2.221890e-02 ,2.105780e-02 ,1.998687e-02 , & - 1.899552e-02 ,1.807490e-02 ,1.721750e-02 ,1.641693e-02 ,1.566773e-02 , & - 1.496515e-02 ,1.430509e-02 ,1.368398e-02 ,1.309865e-02 ,1.254634e-02 , & - 1.202456e-02 ,1.153114e-02 ,1.106409e-02 ,1.062166e-02 ,1.020224e-02 , & - 9.804381e-03 ,9.426771e-03 ,9.068205e-03 ,8.727578e-03 ,8.403876e-03 , & - 8.096160e-03 ,7.803564e-03 ,7.525281e-03 ,7.260560e-03 ,7.008697e-03 , & - 6.769036e-03 /) - absice3(:,4) = (/ & -! band 4 - 1.765735e-01 ,1.382700e-01 ,1.095129e-01 ,8.987475e-02 ,7.591185e-02 , & - 6.554169e-02 ,5.755500e-02 ,5.122083e-02 ,4.607610e-02 ,4.181475e-02 , & - 3.822697e-02 ,3.516432e-02 ,3.251897e-02 ,3.021073e-02 ,2.817876e-02 , & - 2.637607e-02 ,2.476582e-02 ,2.331871e-02 ,2.201113e-02 ,2.082388e-02 , & - 1.974115e-02 ,1.874983e-02 ,1.783894e-02 ,1.699922e-02 ,1.622280e-02 , & - 1.550296e-02 ,1.483390e-02 ,1.421064e-02 ,1.362880e-02 ,1.308460e-02 , & - 1.257468e-02 ,1.209611e-02 ,1.164628e-02 ,1.122287e-02 ,1.082381e-02 , & - 1.044725e-02 ,1.009154e-02 ,9.755166e-03 ,9.436783e-03 ,9.135163e-03 , & - 8.849193e-03 ,8.577856e-03 ,8.320225e-03 ,8.075451e-03 ,7.842755e-03 , & - 7.621418e-03 /) - absice3(:,5) = (/ & -! band 5 - 2.339673e-01 ,1.692124e-01 ,1.291656e-01 ,1.033837e-01 ,8.562949e-02 , & - 7.273526e-02 ,6.298262e-02 ,5.537015e-02 ,4.927787e-02 ,4.430246e-02 , & - 4.017061e-02 ,3.669072e-02 ,3.372455e-02 ,3.116995e-02 ,2.894977e-02 , & - 2.700471e-02 ,2.528842e-02 ,2.376420e-02 ,2.240256e-02 ,2.117959e-02 , & - 2.007567e-02 ,1.907456e-02 ,1.816271e-02 ,1.732874e-02 ,1.656300e-02 , & - 1.585725e-02 ,1.520445e-02 ,1.459852e-02 ,1.403419e-02 ,1.350689e-02 , & - 1.301260e-02 ,1.254781e-02 ,1.210941e-02 ,1.169468e-02 ,1.130118e-02 , & - 1.092675e-02 ,1.056945e-02 ,1.022757e-02 ,9.899560e-03 ,9.584021e-03 , & - 9.279705e-03 ,8.985479e-03 ,8.700322e-03 ,8.423306e-03 ,8.153590e-03 , & - 7.890412e-03 /) - absice3(:,6) = (/ & -! band 6 - 1.145369e-01 ,1.174566e-01 ,9.917866e-02 ,8.332990e-02 ,7.104263e-02 , & - 6.153370e-02 ,5.405472e-02 ,4.806281e-02 ,4.317918e-02 ,3.913795e-02 , & - 3.574916e-02 ,3.287437e-02 ,3.041067e-02 ,2.828017e-02 ,2.642292e-02 , & - 2.479206e-02 ,2.335051e-02 ,2.206851e-02 ,2.092195e-02 ,1.989108e-02 , & - 1.895958e-02 ,1.811385e-02 ,1.734245e-02 ,1.663573e-02 ,1.598545e-02 , & - 1.538456e-02 ,1.482700e-02 ,1.430750e-02 ,1.382150e-02 ,1.336499e-02 , & - 1.293447e-02 ,1.252685e-02 ,1.213939e-02 ,1.176968e-02 ,1.141555e-02 , & - 1.107508e-02 ,1.074655e-02 ,1.042839e-02 ,1.011923e-02 ,9.817799e-03 , & - 9.522962e-03 ,9.233688e-03 ,8.949041e-03 ,8.668171e-03 ,8.390301e-03 , & - 8.114723e-03 /) - absice3(:,7) = (/ & -! band 7 - 1.222345e-02 ,5.344230e-02 ,5.523465e-02 ,5.128759e-02 ,4.676925e-02 , & - 4.266150e-02 ,3.910561e-02 ,3.605479e-02 ,3.342843e-02 ,3.115052e-02 , & - 2.915776e-02 ,2.739935e-02 ,2.583499e-02 ,2.443266e-02 ,2.316681e-02 , & - 2.201687e-02 ,2.096619e-02 ,2.000112e-02 ,1.911044e-02 ,1.828481e-02 , & - 1.751641e-02 ,1.679866e-02 ,1.612598e-02 ,1.549360e-02 ,1.489742e-02 , & - 1.433392e-02 ,1.380002e-02 ,1.329305e-02 ,1.281068e-02 ,1.235084e-02 , & - 1.191172e-02 ,1.149171e-02 ,1.108936e-02 ,1.070341e-02 ,1.033271e-02 , & - 9.976220e-03 ,9.633021e-03 ,9.302273e-03 ,8.983216e-03 ,8.675161e-03 , & - 8.377478e-03 ,8.089595e-03 ,7.810986e-03 ,7.541170e-03 ,7.279706e-03 , & - 7.026186e-03 /) - absice3(:,8) = (/ & -! band 8 - 6.711058e-02 ,6.918198e-02 ,6.127484e-02 ,5.411944e-02 ,4.836902e-02 , & - 4.375293e-02 ,3.998077e-02 ,3.683587e-02 ,3.416508e-02 ,3.186003e-02 , & - 2.984290e-02 ,2.805671e-02 ,2.645895e-02 ,2.501733e-02 ,2.370689e-02 , & - 2.250808e-02 ,2.140532e-02 ,2.038609e-02 ,1.944018e-02 ,1.855918e-02 , & - 1.773609e-02 ,1.696504e-02 ,1.624106e-02 ,1.555990e-02 ,1.491793e-02 , & - 1.431197e-02 ,1.373928e-02 ,1.319743e-02 ,1.268430e-02 ,1.219799e-02 , & - 1.173682e-02 ,1.129925e-02 ,1.088393e-02 ,1.048961e-02 ,1.011516e-02 , & - 9.759543e-03 ,9.421813e-03 ,9.101089e-03 ,8.796559e-03 ,8.507464e-03 , & - 8.233098e-03 ,7.972798e-03 ,7.725942e-03 ,7.491940e-03 ,7.270238e-03 , & - 7.060305e-03 /) - absice3(:,9) = (/ & -! band 9 - 1.236780e-01 ,9.222386e-02 ,7.383997e-02 ,6.204072e-02 ,5.381029e-02 , & - 4.770678e-02 ,4.296928e-02 ,3.916131e-02 ,3.601540e-02 ,3.335878e-02 , & - 3.107493e-02 ,2.908247e-02 ,2.732282e-02 ,2.575276e-02 ,2.433968e-02 , & - 2.305852e-02 ,2.188966e-02 ,2.081757e-02 ,1.982974e-02 ,1.891599e-02 , & - 1.806794e-02 ,1.727865e-02 ,1.654227e-02 ,1.585387e-02 ,1.520924e-02 , & - 1.460476e-02 ,1.403730e-02 ,1.350416e-02 ,1.300293e-02 ,1.253153e-02 , & - 1.208808e-02 ,1.167094e-02 ,1.127862e-02 ,1.090979e-02 ,1.056323e-02 , & - 1.023786e-02 ,9.932665e-03 ,9.646744e-03 ,9.379250e-03 ,9.129409e-03 , & - 8.896500e-03 ,8.679856e-03 ,8.478852e-03 ,8.292904e-03 ,8.121463e-03 , & - 7.964013e-03 /) - absice3(:,10) = (/ & -! band 10 - 1.655966e-01 ,1.134205e-01 ,8.714344e-02 ,7.129241e-02 ,6.063739e-02 , & - 5.294203e-02 ,4.709309e-02 ,4.247476e-02 ,3.871892e-02 ,3.559206e-02 , & - 3.293893e-02 ,3.065226e-02 ,2.865558e-02 ,2.689288e-02 ,2.532221e-02 , & - 2.391150e-02 ,2.263582e-02 ,2.147549e-02 ,2.041476e-02 ,1.944089e-02 , & - 1.854342e-02 ,1.771371e-02 ,1.694456e-02 ,1.622989e-02 ,1.556456e-02 , & - 1.494415e-02 ,1.436491e-02 ,1.382354e-02 ,1.331719e-02 ,1.284339e-02 , & - 1.239992e-02 ,1.198486e-02 ,1.159647e-02 ,1.123323e-02 ,1.089375e-02 , & - 1.057679e-02 ,1.028124e-02 ,1.000607e-02 ,9.750376e-03 ,9.513303e-03 , & - 9.294082e-03 ,9.092003e-03 ,8.906412e-03 ,8.736702e-03 ,8.582314e-03 , & - 8.442725e-03 /) - absice3(:,11) = (/ & -! band 11 - 1.775615e-01 ,1.180046e-01 ,8.929607e-02 ,7.233500e-02 ,6.108333e-02 , & - 5.303642e-02 ,4.696927e-02 ,4.221206e-02 ,3.836768e-02 ,3.518576e-02 , & - 3.250063e-02 ,3.019825e-02 ,2.819758e-02 ,2.643943e-02 ,2.487953e-02 , & - 2.348414e-02 ,2.222705e-02 ,2.108762e-02 ,2.004936e-02 ,1.909892e-02 , & - 1.822539e-02 ,1.741975e-02 ,1.667449e-02 ,1.598330e-02 ,1.534084e-02 , & - 1.474253e-02 ,1.418446e-02 ,1.366325e-02 ,1.317597e-02 ,1.272004e-02 , & - 1.229321e-02 ,1.189350e-02 ,1.151915e-02 ,1.116859e-02 ,1.084042e-02 , & - 1.053338e-02 ,1.024636e-02 ,9.978326e-03 ,9.728357e-03 ,9.495613e-03 , & - 9.279327e-03 ,9.078798e-03 ,8.893383e-03 ,8.722488e-03 ,8.565568e-03 , & - 8.422115e-03 /) - absice3(:,12) = (/ & -! band 12 - 9.465447e-02 ,6.432047e-02 ,5.060973e-02 ,4.267283e-02 ,3.741843e-02 , & - 3.363096e-02 ,3.073531e-02 ,2.842405e-02 ,2.651789e-02 ,2.490518e-02 , & - 2.351273e-02 ,2.229056e-02 ,2.120335e-02 ,2.022541e-02 ,1.933763e-02 , & - 1.852546e-02 ,1.777763e-02 ,1.708528e-02 ,1.644134e-02 ,1.584009e-02 , & - 1.527684e-02 ,1.474774e-02 ,1.424955e-02 ,1.377957e-02 ,1.333549e-02 , & - 1.291534e-02 ,1.251743e-02 ,1.214029e-02 ,1.178265e-02 ,1.144337e-02 , & - 1.112148e-02 ,1.081609e-02 ,1.052642e-02 ,1.025178e-02 ,9.991540e-03 , & - 9.745130e-03 ,9.512038e-03 ,9.291797e-03 ,9.083980e-03 ,8.888195e-03 , & - 8.704081e-03 ,8.531306e-03 ,8.369560e-03 ,8.218558e-03 ,8.078032e-03 , & - 7.947730e-03 /) - absice3(:,13) = (/ & -! band 13 - 1.560311e-01 ,9.961097e-02 ,7.502949e-02 ,6.115022e-02 ,5.214952e-02 , & - 4.578149e-02 ,4.099731e-02 ,3.724174e-02 ,3.419343e-02 ,3.165356e-02 , & - 2.949251e-02 ,2.762222e-02 ,2.598073e-02 ,2.452322e-02 ,2.321642e-02 , & - 2.203516e-02 ,2.096002e-02 ,1.997579e-02 ,1.907036e-02 ,1.823401e-02 , & - 1.745879e-02 ,1.673819e-02 ,1.606678e-02 ,1.544003e-02 ,1.485411e-02 , & - 1.430574e-02 ,1.379215e-02 ,1.331092e-02 ,1.285996e-02 ,1.243746e-02 , & - 1.204183e-02 ,1.167164e-02 ,1.132567e-02 ,1.100281e-02 ,1.070207e-02 , & - 1.042258e-02 ,1.016352e-02 ,9.924197e-03 ,9.703953e-03 ,9.502199e-03 , & - 9.318400e-03 ,9.152066e-03 ,9.002749e-03 ,8.870038e-03 ,8.753555e-03 , & - 8.652951e-03 /) - absice3(:,14) = (/ & -! band 14 - 1.559547e-01 ,9.896700e-02 ,7.441231e-02 ,6.061469e-02 ,5.168730e-02 , & - 4.537821e-02 ,4.064106e-02 ,3.692367e-02 ,3.390714e-02 ,3.139438e-02 , & - 2.925702e-02 ,2.740783e-02 ,2.578547e-02 ,2.434552e-02 ,2.305506e-02 , & - 2.188910e-02 ,2.082842e-02 ,1.985789e-02 ,1.896553e-02 ,1.814165e-02 , & - 1.737839e-02 ,1.666927e-02 ,1.600891e-02 ,1.539279e-02 ,1.481712e-02 , & - 1.427865e-02 ,1.377463e-02 ,1.330266e-02 ,1.286068e-02 ,1.244689e-02 , & - 1.205973e-02 ,1.169780e-02 ,1.135989e-02 ,1.104492e-02 ,1.075192e-02 , & - 1.048004e-02 ,1.022850e-02 ,9.996611e-03 ,9.783753e-03 ,9.589361e-03 , & - 9.412924e-03 ,9.253977e-03 ,9.112098e-03 ,8.986903e-03 ,8.878039e-03 , & - 8.785184e-03 /) - absice3(:,15) = (/ & -! band 15 - 1.102926e-01 ,7.176622e-02 ,5.530316e-02 ,4.606056e-02 ,4.006116e-02 , & - 3.579628e-02 ,3.256909e-02 ,3.001360e-02 ,2.791920e-02 ,2.615617e-02 , & - 2.464023e-02 ,2.331426e-02 ,2.213817e-02 ,2.108301e-02 ,2.012733e-02 , & - 1.925493e-02 ,1.845331e-02 ,1.771269e-02 ,1.702531e-02 ,1.638493e-02 , & - 1.578648e-02 ,1.522579e-02 ,1.469940e-02 ,1.420442e-02 ,1.373841e-02 , & - 1.329931e-02 ,1.288535e-02 ,1.249502e-02 ,1.212700e-02 ,1.178015e-02 , & - 1.145348e-02 ,1.114612e-02 ,1.085730e-02 ,1.058633e-02 ,1.033263e-02 , & - 1.009564e-02 ,9.874895e-03 ,9.669960e-03 ,9.480449e-03 ,9.306014e-03 , & - 9.146339e-03 ,9.001138e-03 ,8.870154e-03 ,8.753148e-03 ,8.649907e-03 , & - 8.560232e-03 /) - absice3(:,16) = (/ & -! band 16 - 1.688344e-01 ,1.077072e-01 ,7.994467e-02 ,6.403862e-02 ,5.369850e-02 , & - 4.641582e-02 ,4.099331e-02 ,3.678724e-02 ,3.342069e-02 ,3.065831e-02 , & - 2.834557e-02 ,2.637680e-02 ,2.467733e-02 ,2.319286e-02 ,2.188299e-02 , & - 2.071701e-02 ,1.967121e-02 ,1.872692e-02 ,1.786931e-02 ,1.708641e-02 , & - 1.636846e-02 ,1.570743e-02 ,1.509665e-02 ,1.453052e-02 ,1.400433e-02 , & - 1.351407e-02 ,1.305631e-02 ,1.262810e-02 ,1.222688e-02 ,1.185044e-02 , & - 1.149683e-02 ,1.116436e-02 ,1.085153e-02 ,1.055701e-02 ,1.027961e-02 , & - 1.001831e-02 ,9.772141e-03 ,9.540280e-03 ,9.321966e-03 ,9.116517e-03 , & - 8.923315e-03 ,8.741803e-03 ,8.571472e-03 ,8.411860e-03 ,8.262543e-03 , & - 8.123136e-03 /) - -! For LIQFLAG = 1. In each band, the absorption -! coefficients are listed for a range of effective radii from 2.5 -! to 59.5 microns in increments of 1.0 micron. - absliq1(:, 1) = (/ & -! band 1 - 1.64047e-03 , 6.90533e-02 , 7.72017e-02 , 7.78054e-02 , 7.69523e-02 , & - 7.58058e-02 , 7.46400e-02 , 7.35123e-02 , 7.24162e-02 , 7.13225e-02 , & - 6.99145e-02 , 6.66409e-02 , 6.36582e-02 , 6.09425e-02 , 5.84593e-02 , & - 5.61743e-02 , 5.40571e-02 , 5.20812e-02 , 5.02245e-02 , 4.84680e-02 , & - 4.67959e-02 , 4.51944e-02 , 4.36516e-02 , 4.21570e-02 , 4.07015e-02 , & - 3.92766e-02 , 3.78747e-02 , 3.64886e-02 , 3.53632e-02 , 3.41992e-02 , & - 3.31016e-02 , 3.20643e-02 , 3.10817e-02 , 3.01490e-02 , 2.92620e-02 , & - 2.84171e-02 , 2.76108e-02 , 2.68404e-02 , 2.61031e-02 , 2.53966e-02 , & - 2.47189e-02 , 2.40678e-02 , 2.34418e-02 , 2.28392e-02 , 2.22586e-02 , & - 2.16986e-02 , 2.11580e-02 , 2.06356e-02 , 2.01305e-02 , 1.96417e-02 , & - 1.91682e-02 , 1.87094e-02 , 1.82643e-02 , 1.78324e-02 , 1.74129e-02 , & - 1.70052e-02 , 1.66088e-02 , 1.62231e-02 /) - absliq1(:, 2) = (/ & -! band 2 - 2.19486e-01 , 1.80687e-01 , 1.59150e-01 , 1.44731e-01 , 1.33703e-01 , & - 1.24355e-01 , 1.15756e-01 , 1.07318e-01 , 9.86119e-02 , 8.92739e-02 , & - 8.34911e-02 , 7.70773e-02 , 7.15240e-02 , 6.66615e-02 , 6.23641e-02 , & - 5.85359e-02 , 5.51020e-02 , 5.20032e-02 , 4.91916e-02 , 4.66283e-02 , & - 4.42813e-02 , 4.21236e-02 , 4.01330e-02 , 3.82905e-02 , 3.65797e-02 , & - 3.49869e-02 , 3.35002e-02 , 3.21090e-02 , 3.08957e-02 , 2.97601e-02 , & - 2.86966e-02 , 2.76984e-02 , 2.67599e-02 , 2.58758e-02 , 2.50416e-02 , & - 2.42532e-02 , 2.35070e-02 , 2.27997e-02 , 2.21284e-02 , 2.14904e-02 , & - 2.08834e-02 , 2.03051e-02 , 1.97536e-02 , 1.92271e-02 , 1.87239e-02 , & - 1.82425e-02 , 1.77816e-02 , 1.73399e-02 , 1.69162e-02 , 1.65094e-02 , & - 1.61187e-02 , 1.57430e-02 , 1.53815e-02 , 1.50334e-02 , 1.46981e-02 , & - 1.43748e-02 , 1.40628e-02 , 1.37617e-02 /) - absliq1(:, 3) = (/ & -! band 3 - 2.95174e-01 , 2.34765e-01 , 1.98038e-01 , 1.72114e-01 , 1.52083e-01 , & - 1.35654e-01 , 1.21613e-01 , 1.09252e-01 , 9.81263e-02 , 8.79448e-02 , & - 8.12566e-02 , 7.44563e-02 , 6.86374e-02 , 6.36042e-02 , 5.92094e-02 , & - 5.53402e-02 , 5.19087e-02 , 4.88455e-02 , 4.60951e-02 , 4.36124e-02 , & - 4.13607e-02 , 3.93096e-02 , 3.74338e-02 , 3.57119e-02 , 3.41261e-02 , & - 3.26610e-02 , 3.13036e-02 , 3.00425e-02 , 2.88497e-02 , 2.78077e-02 , & - 2.68317e-02 , 2.59158e-02 , 2.50545e-02 , 2.42430e-02 , 2.34772e-02 , & - 2.27533e-02 , 2.20679e-02 , 2.14181e-02 , 2.08011e-02 , 2.02145e-02 , & - 1.96561e-02 , 1.91239e-02 , 1.86161e-02 , 1.81311e-02 , 1.76673e-02 , & - 1.72234e-02 , 1.67981e-02 , 1.63903e-02 , 1.59989e-02 , 1.56230e-02 , & - 1.52615e-02 , 1.49138e-02 , 1.45791e-02 , 1.42565e-02 , 1.39455e-02 , & - 1.36455e-02 , 1.33559e-02 , 1.30761e-02 /) - absliq1(:, 4) = (/ & -! band 4 - 3.00925e-01 , 2.36949e-01 , 1.96947e-01 , 1.68692e-01 , 1.47190e-01 , & - 1.29986e-01 , 1.15719e-01 , 1.03568e-01 , 9.30028e-02 , 8.36658e-02 , & - 7.71075e-02 , 7.07002e-02 , 6.52284e-02 , 6.05024e-02 , 5.63801e-02 , & - 5.27534e-02 , 4.95384e-02 , 4.66690e-02 , 4.40925e-02 , 4.17664e-02 , & - 3.96559e-02 , 3.77326e-02 , 3.59727e-02 , 3.43561e-02 , 3.28662e-02 , & - 3.14885e-02 , 3.02110e-02 , 2.90231e-02 , 2.78948e-02 , 2.69109e-02 , & - 2.59884e-02 , 2.51217e-02 , 2.43058e-02 , 2.35364e-02 , 2.28096e-02 , & - 2.21218e-02 , 2.14700e-02 , 2.08515e-02 , 2.02636e-02 , 1.97041e-02 , & - 1.91711e-02 , 1.86625e-02 , 1.81769e-02 , 1.77126e-02 , 1.72683e-02 , & - 1.68426e-02 , 1.64344e-02 , 1.60427e-02 , 1.56664e-02 , 1.53046e-02 , & - 1.49565e-02 , 1.46214e-02 , 1.42985e-02 , 1.39871e-02 , 1.36866e-02 , & - 1.33965e-02 , 1.31162e-02 , 1.28453e-02 /) - absliq1(:, 5) = (/ & -! band 5 - 2.64691e-01 , 2.12018e-01 , 1.78009e-01 , 1.53539e-01 , 1.34721e-01 , & - 1.19580e-01 , 1.06996e-01 , 9.62772e-02 , 8.69710e-02 , 7.87670e-02 , & - 7.29272e-02 , 6.70920e-02 , 6.20977e-02 , 5.77732e-02 , 5.39910e-02 , & - 5.06538e-02 , 4.76866e-02 , 4.50301e-02 , 4.26374e-02 , 4.04704e-02 , & - 3.84981e-02 , 3.66948e-02 , 3.50394e-02 , 3.35141e-02 , 3.21038e-02 , & - 3.07957e-02 , 2.95788e-02 , 2.84438e-02 , 2.73790e-02 , 2.64390e-02 , & - 2.55565e-02 , 2.47263e-02 , 2.39437e-02 , 2.32047e-02 , 2.25056e-02 , & - 2.18433e-02 , 2.12149e-02 , 2.06177e-02 , 2.00495e-02 , 1.95081e-02 , & - 1.89917e-02 , 1.84984e-02 , 1.80269e-02 , 1.75755e-02 , 1.71431e-02 , & - 1.67283e-02 , 1.63303e-02 , 1.59478e-02 , 1.55801e-02 , 1.52262e-02 , & - 1.48853e-02 , 1.45568e-02 , 1.42400e-02 , 1.39342e-02 , 1.36388e-02 , & - 1.33533e-02 , 1.30773e-02 , 1.28102e-02 /) - absliq1(:, 6) = (/ & -! band 6 - 8.81182e-02 , 1.06745e-01 , 9.79753e-02 , 8.99625e-02 , 8.35200e-02 , & - 7.81899e-02 , 7.35939e-02 , 6.94696e-02 , 6.56266e-02 , 6.19148e-02 , & - 5.83355e-02 , 5.49306e-02 , 5.19642e-02 , 4.93325e-02 , 4.69659e-02 , & - 4.48148e-02 , 4.28431e-02 , 4.10231e-02 , 3.93332e-02 , 3.77563e-02 , & - 3.62785e-02 , 3.48882e-02 , 3.35758e-02 , 3.23333e-02 , 3.11536e-02 , & - 3.00310e-02 , 2.89601e-02 , 2.79365e-02 , 2.70502e-02 , 2.62618e-02 , & - 2.55025e-02 , 2.47728e-02 , 2.40726e-02 , 2.34013e-02 , 2.27583e-02 , & - 2.21422e-02 , 2.15522e-02 , 2.09869e-02 , 2.04453e-02 , 1.99260e-02 , & - 1.94280e-02 , 1.89501e-02 , 1.84913e-02 , 1.80506e-02 , 1.76270e-02 , & - 1.72196e-02 , 1.68276e-02 , 1.64500e-02 , 1.60863e-02 , 1.57357e-02 , & - 1.53975e-02 , 1.50710e-02 , 1.47558e-02 , 1.44511e-02 , 1.41566e-02 , & - 1.38717e-02 , 1.35960e-02 , 1.33290e-02 /) - absliq1(:, 7) = (/ & -! band 7 - 4.32174e-02 , 7.36078e-02 , 6.98340e-02 , 6.65231e-02 , 6.41948e-02 , & - 6.23551e-02 , 6.06638e-02 , 5.88680e-02 , 5.67124e-02 , 5.38629e-02 , & - 4.99579e-02 , 4.86289e-02 , 4.70120e-02 , 4.52854e-02 , 4.35466e-02 , & - 4.18480e-02 , 4.02169e-02 , 3.86658e-02 , 3.71992e-02 , 3.58168e-02 , & - 3.45155e-02 , 3.32912e-02 , 3.21390e-02 , 3.10538e-02 , 3.00307e-02 , & - 2.90651e-02 , 2.81524e-02 , 2.72885e-02 , 2.62821e-02 , 2.55744e-02 , & - 2.48799e-02 , 2.42029e-02 , 2.35460e-02 , 2.29108e-02 , 2.22981e-02 , & - 2.17079e-02 , 2.11402e-02 , 2.05945e-02 , 2.00701e-02 , 1.95663e-02 , & - 1.90824e-02 , 1.86174e-02 , 1.81706e-02 , 1.77411e-02 , 1.73281e-02 , & - 1.69307e-02 , 1.65483e-02 , 1.61801e-02 , 1.58254e-02 , 1.54835e-02 , & - 1.51538e-02 , 1.48358e-02 , 1.45288e-02 , 1.42322e-02 , 1.39457e-02 , & - 1.36687e-02 , 1.34008e-02 , 1.31416e-02 /) - absliq1(:, 8) = (/ & -! band 8 - 1.41881e-01 , 7.15419e-02 , 6.30335e-02 , 6.11132e-02 , 6.01931e-02 , & - 5.92420e-02 , 5.78968e-02 , 5.58876e-02 , 5.28923e-02 , 4.84462e-02 , & - 4.60839e-02 , 4.56013e-02 , 4.45410e-02 , 4.31866e-02 , 4.17026e-02 , & - 4.01850e-02 , 3.86892e-02 , 3.72461e-02 , 3.58722e-02 , 3.45749e-02 , & - 3.33564e-02 , 3.22155e-02 , 3.11494e-02 , 3.01541e-02 , 2.92253e-02 , & - 2.83584e-02 , 2.75488e-02 , 2.67925e-02 , 2.57692e-02 , 2.50704e-02 , & - 2.43918e-02 , 2.37350e-02 , 2.31005e-02 , 2.24888e-02 , 2.18996e-02 , & - 2.13325e-02 , 2.07870e-02 , 2.02623e-02 , 1.97577e-02 , 1.92724e-02 , & - 1.88056e-02 , 1.83564e-02 , 1.79241e-02 , 1.75079e-02 , 1.71070e-02 , & - 1.67207e-02 , 1.63482e-02 , 1.59890e-02 , 1.56424e-02 , 1.53077e-02 , & - 1.49845e-02 , 1.46722e-02 , 1.43702e-02 , 1.40782e-02 , 1.37955e-02 , & - 1.35219e-02 , 1.32569e-02 , 1.30000e-02 /) - absliq1(:, 9) = (/ & -! band 9 - 6.72726e-02 , 6.61013e-02 , 6.47866e-02 , 6.33780e-02 , 6.18985e-02 , & - 6.03335e-02 , 5.86136e-02 , 5.65876e-02 , 5.39839e-02 , 5.03536e-02 , & - 4.71608e-02 , 4.63630e-02 , 4.50313e-02 , 4.34526e-02 , 4.17876e-02 , & - 4.01261e-02 , 3.85171e-02 , 3.69860e-02 , 3.55442e-02 , 3.41954e-02 , & - 3.29384e-02 , 3.17693e-02 , 3.06832e-02 , 2.96745e-02 , 2.87374e-02 , & - 2.78662e-02 , 2.70557e-02 , 2.63008e-02 , 2.52450e-02 , 2.45424e-02 , & - 2.38656e-02 , 2.32144e-02 , 2.25885e-02 , 2.19873e-02 , 2.14099e-02 , & - 2.08554e-02 , 2.03230e-02 , 1.98116e-02 , 1.93203e-02 , 1.88482e-02 , & - 1.83944e-02 , 1.79578e-02 , 1.75378e-02 , 1.71335e-02 , 1.67440e-02 , & - 1.63687e-02 , 1.60069e-02 , 1.56579e-02 , 1.53210e-02 , 1.49958e-02 , & - 1.46815e-02 , 1.43778e-02 , 1.40841e-02 , 1.37999e-02 , 1.35249e-02 , & - 1.32585e-02 , 1.30004e-02 , 1.27502e-02 /) - absliq1(:,10) = (/ & -! band 10 - 7.97040e-02 , 7.63844e-02 , 7.36499e-02 , 7.13525e-02 , 6.93043e-02 , & - 6.72807e-02 , 6.50227e-02 , 6.22395e-02 , 5.86093e-02 , 5.37815e-02 , & - 5.14682e-02 , 4.97214e-02 , 4.77392e-02 , 4.56961e-02 , 4.36858e-02 , & - 4.17569e-02 , 3.99328e-02 , 3.82224e-02 , 3.66265e-02 , 3.51416e-02 , & - 3.37617e-02 , 3.24798e-02 , 3.12887e-02 , 3.01812e-02 , 2.91505e-02 , & - 2.81900e-02 , 2.72939e-02 , 2.64568e-02 , 2.54165e-02 , 2.46832e-02 , & - 2.39783e-02 , 2.33017e-02 , 2.26531e-02 , 2.20314e-02 , 2.14359e-02 , & - 2.08653e-02 , 2.03187e-02 , 1.97947e-02 , 1.92924e-02 , 1.88106e-02 , & - 1.83483e-02 , 1.79043e-02 , 1.74778e-02 , 1.70678e-02 , 1.66735e-02 , & - 1.62941e-02 , 1.59286e-02 , 1.55766e-02 , 1.52371e-02 , 1.49097e-02 , & - 1.45937e-02 , 1.42885e-02 , 1.39936e-02 , 1.37085e-02 , 1.34327e-02 , & - 1.31659e-02 , 1.29075e-02 , 1.26571e-02 /) - absliq1(:,11) = (/ & -! band 11 - 1.49438e-01 , 1.33535e-01 , 1.21542e-01 , 1.11743e-01 , 1.03263e-01 , & - 9.55774e-02 , 8.83382e-02 , 8.12943e-02 , 7.42533e-02 , 6.70609e-02 , & - 6.38761e-02 , 5.97788e-02 , 5.59841e-02 , 5.25318e-02 , 4.94132e-02 , & - 4.66014e-02 , 4.40644e-02 , 4.17706e-02 , 3.96910e-02 , 3.77998e-02 , & - 3.60742e-02 , 3.44947e-02 , 3.30442e-02 , 3.17079e-02 , 3.04730e-02 , & - 2.93283e-02 , 2.82642e-02 , 2.72720e-02 , 2.61789e-02 , 2.53277e-02 , & - 2.45237e-02 , 2.37635e-02 , 2.30438e-02 , 2.23615e-02 , 2.17140e-02 , & - 2.10987e-02 , 2.05133e-02 , 1.99557e-02 , 1.94241e-02 , 1.89166e-02 , & - 1.84317e-02 , 1.79679e-02 , 1.75238e-02 , 1.70983e-02 , 1.66901e-02 , & - 1.62983e-02 , 1.59219e-02 , 1.55599e-02 , 1.52115e-02 , 1.48761e-02 , & - 1.45528e-02 , 1.42411e-02 , 1.39402e-02 , 1.36497e-02 , 1.33690e-02 , & - 1.30976e-02 , 1.28351e-02 , 1.25810e-02 /) - absliq1(:,12) = (/ & -! band 12 - 3.71985e-02 , 3.88586e-02 , 3.99070e-02 , 4.04351e-02 , 4.04610e-02 , & - 3.99834e-02 , 3.89953e-02 , 3.74886e-02 , 3.54551e-02 , 3.28870e-02 , & - 3.32576e-02 , 3.22444e-02 , 3.12384e-02 , 3.02584e-02 , 2.93146e-02 , & - 2.84120e-02 , 2.75525e-02 , 2.67361e-02 , 2.59618e-02 , 2.52280e-02 , & - 2.45327e-02 , 2.38736e-02 , 2.32487e-02 , 2.26558e-02 , 2.20929e-02 , & - 2.15579e-02 , 2.10491e-02 , 2.05648e-02 , 1.99749e-02 , 1.95704e-02 , & - 1.91731e-02 , 1.87839e-02 , 1.84032e-02 , 1.80315e-02 , 1.76689e-02 , & - 1.73155e-02 , 1.69712e-02 , 1.66362e-02 , 1.63101e-02 , 1.59928e-02 , & - 1.56842e-02 , 1.53840e-02 , 1.50920e-02 , 1.48080e-02 , 1.45318e-02 , & - 1.42631e-02 , 1.40016e-02 , 1.37472e-02 , 1.34996e-02 , 1.32586e-02 , & - 1.30239e-02 , 1.27954e-02 , 1.25728e-02 , 1.23559e-02 , 1.21445e-02 , & - 1.19385e-02 , 1.17376e-02 , 1.15417e-02 /) - absliq1(:,13) = (/ & -! band 13 - 3.11868e-02 , 4.48357e-02 , 4.90224e-02 , 4.96406e-02 , 4.86806e-02 , & - 4.69610e-02 , 4.48630e-02 , 4.25795e-02 , 4.02138e-02 , 3.78236e-02 , & - 3.74266e-02 , 3.60384e-02 , 3.47074e-02 , 3.34434e-02 , 3.22499e-02 , & - 3.11264e-02 , 3.00704e-02 , 2.90784e-02 , 2.81463e-02 , 2.72702e-02 , & - 2.64460e-02 , 2.56698e-02 , 2.49381e-02 , 2.42475e-02 , 2.35948e-02 , & - 2.29774e-02 , 2.23925e-02 , 2.18379e-02 , 2.11793e-02 , 2.07076e-02 , & - 2.02470e-02 , 1.97981e-02 , 1.93613e-02 , 1.89367e-02 , 1.85243e-02 , & - 1.81240e-02 , 1.77356e-02 , 1.73588e-02 , 1.69935e-02 , 1.66392e-02 , & - 1.62956e-02 , 1.59624e-02 , 1.56393e-02 , 1.53259e-02 , 1.50219e-02 , & - 1.47268e-02 , 1.44404e-02 , 1.41624e-02 , 1.38925e-02 , 1.36302e-02 , & - 1.33755e-02 , 1.31278e-02 , 1.28871e-02 , 1.26530e-02 , 1.24253e-02 , & - 1.22038e-02 , 1.19881e-02 , 1.17782e-02 /) - absliq1(:,14) = (/ & -! band 14 - 1.58988e-02 , 3.50652e-02 , 4.00851e-02 , 4.07270e-02 , 3.98101e-02 , & - 3.83306e-02 , 3.66829e-02 , 3.50327e-02 , 3.34497e-02 , 3.19609e-02 , & - 3.13712e-02 , 3.03348e-02 , 2.93415e-02 , 2.83973e-02 , 2.75037e-02 , & - 2.66604e-02 , 2.58654e-02 , 2.51161e-02 , 2.44100e-02 , 2.37440e-02 , & - 2.31154e-02 , 2.25215e-02 , 2.19599e-02 , 2.14282e-02 , 2.09242e-02 , & - 2.04459e-02 , 1.99915e-02 , 1.95594e-02 , 1.90254e-02 , 1.86598e-02 , & - 1.82996e-02 , 1.79455e-02 , 1.75983e-02 , 1.72584e-02 , 1.69260e-02 , & - 1.66013e-02 , 1.62843e-02 , 1.59752e-02 , 1.56737e-02 , 1.53799e-02 , & - 1.50936e-02 , 1.48146e-02 , 1.45429e-02 , 1.42782e-02 , 1.40203e-02 , & - 1.37691e-02 , 1.35243e-02 , 1.32858e-02 , 1.30534e-02 , 1.28270e-02 , & - 1.26062e-02 , 1.23909e-02 , 1.21810e-02 , 1.19763e-02 , 1.17766e-02 , & - 1.15817e-02 , 1.13915e-02 , 1.12058e-02 /) - absliq1(:,15) = (/ & -! band 15 - 5.02079e-03 , 2.17615e-02 , 2.55449e-02 , 2.59484e-02 , 2.53650e-02 , & - 2.45281e-02 , 2.36843e-02 , 2.29159e-02 , 2.22451e-02 , 2.16716e-02 , & - 2.11451e-02 , 2.05817e-02 , 2.00454e-02 , 1.95372e-02 , 1.90567e-02 , & - 1.86028e-02 , 1.81742e-02 , 1.77693e-02 , 1.73866e-02 , 1.70244e-02 , & - 1.66815e-02 , 1.63563e-02 , 1.60477e-02 , 1.57544e-02 , 1.54755e-02 , & - 1.52097e-02 , 1.49564e-02 , 1.47146e-02 , 1.43684e-02 , 1.41728e-02 , & - 1.39762e-02 , 1.37797e-02 , 1.35838e-02 , 1.33891e-02 , 1.31961e-02 , & - 1.30051e-02 , 1.28164e-02 , 1.26302e-02 , 1.24466e-02 , 1.22659e-02 , & - 1.20881e-02 , 1.19131e-02 , 1.17412e-02 , 1.15723e-02 , 1.14063e-02 , & - 1.12434e-02 , 1.10834e-02 , 1.09264e-02 , 1.07722e-02 , 1.06210e-02 , & - 1.04725e-02 , 1.03269e-02 , 1.01839e-02 , 1.00436e-02 , 9.90593e-03 , & - 9.77080e-03 , 9.63818e-03 , 9.50800e-03 /) - absliq1(:,16) = (/ & -! band 16 - 5.64971e-02 , 9.04736e-02 , 8.11726e-02 , 7.05450e-02 , 6.20052e-02 , & - 5.54286e-02 , 5.03503e-02 , 4.63791e-02 , 4.32290e-02 , 4.06959e-02 , & - 3.74690e-02 , 3.52964e-02 , 3.33799e-02 , 3.16774e-02 , 3.01550e-02 , & - 2.87856e-02 , 2.75474e-02 , 2.64223e-02 , 2.53953e-02 , 2.44542e-02 , & - 2.35885e-02 , 2.27894e-02 , 2.20494e-02 , 2.13622e-02 , 2.07222e-02 , & - 2.01246e-02 , 1.95654e-02 , 1.90408e-02 , 1.84398e-02 , 1.80021e-02 , & - 1.75816e-02 , 1.71775e-02 , 1.67889e-02 , 1.64152e-02 , 1.60554e-02 , & - 1.57089e-02 , 1.53751e-02 , 1.50531e-02 , 1.47426e-02 , 1.44428e-02 , & - 1.41532e-02 , 1.38734e-02 , 1.36028e-02 , 1.33410e-02 , 1.30875e-02 , & - 1.28420e-02 , 1.26041e-02 , 1.23735e-02 , 1.21497e-02 , 1.19325e-02 , & - 1.17216e-02 , 1.15168e-02 , 1.13177e-02 , 1.11241e-02 , 1.09358e-02 , & - 1.07525e-02 , 1.05741e-02 , 1.04003e-02 /) - - - absice4(:, 1) = (/ & - & 0.6888440E-01 , 0.6950670E-01 , 0.6985297E-01 , 0.7011411E-01 , 0.7006932E-01 ,& - & 0.6964392E-01 , 0.6890915E-01 , 0.6795748E-01 , 0.6685709E-01 , 0.6565582E-01 ,& - & 0.6438961E-01 , 0.6308378E-01 , 0.6175803E-01 , 0.6042715E-01 , 0.5910178E-01 ,& - & 0.5778937E-01 , 0.5649547E-01 , 0.5522512E-01 , 0.5397782E-01 , 0.5275840E-01 ,& - & 0.5156704E-01 , 0.5040565E-01 , 0.4927261E-01 , 0.4816831E-01 , 0.4709510E-01 ,& - & 0.4605071E-01 , 0.4503559E-01 , 0.4404905E-01 , 0.4309146E-01 , 0.4216224E-01 ,& - & 0.4126133E-01 , 0.4038681E-01 , 0.3953866E-01 , 0.3871694E-01 , 0.3792092E-01 ,& - & 0.3714872E-01 , 0.3640130E-01 , 0.3567646E-01 , 0.3497424E-01 , 0.3429416E-01 ,& - & 0.3363520E-01 , 0.3299676E-01 , 0.3237776E-01 , 0.3177813E-01 , 0.3119717E-01 ,& - & 0.3063310E-01 , 0.3008657E-01 , 0.2955659E-01 , 0.2904246E-01 , 0.2854360E-01 ,& - & 0.2805947E-01 , 0.2758961E-01 , 0.2713342E-01 , 0.2669037E-01 , 0.2625994E-01 ,& - & 0.2584212E-01 , 0.2543570E-01 , 0.2504040E-01 , 0.2465650E-01 , 0.2428280E-01 ,& - & 0.2391933E-01 , 0.2356580E-01 , 0.2322152E-01 , 0.2288620E-01 , 0.2255971E-01 ,& - & 0.2224175E-01 , 0.2193226E-01 , 0.2163004E-01 , 0.2133575E-01 , 0.2104884E-01 ,& - & 0.2076901E-01 , 0.2049589E-01 , 0.2022937E-01 , 0.1996956E-01 , 0.1971553E-01 ,& - & 0.1946782E-01 , 0.1922561E-01 , 0.1898925E-01 , 0.1875803E-01 , 0.1853229E-01 ,& - & 0.1831155E-01 , 0.1809566E-01 , 0.1788444E-01 , 0.1767801E-01 , 0.1747603E-01 ,& - & 0.1727850E-01 , 0.1708492E-01 , 0.1689560E-01 , 0.1671009E-01 , 0.1652847E-01 ,& - & 0.1635060E-01 , 0.1617640E-01 , 0.1600567E-01 , 0.1583831E-01 , 0.1567423E-01 ,& - & 0.1551341E-01 , 0.1535575E-01 , 0.1520111E-01 , 0.1504947E-01 , 0.1490059E-01 ,& - & 0.1475464E-01 , 0.1461139E-01 , 0.1447078E-01 , 0.1433284E-01 , 0.1419729E-01 ,& - & 0.1406420E-01 , 0.1393352E-01 , 0.1380513E-01 , 0.1367904E-01 , 0.1355515E-01 ,& - & 0.1343340E-01 , 0.1331372E-01 , 0.1319610E-01 , 0.1308044E-01 , 0.1296682E-01 ,& - & 0.1285500E-01 , 0.1274509E-01 , 0.1263696E-01 , 0.1253059E-01 , 0.1242593E-01 ,& - & 0.1232298E-01 , 0.1222168E-01 , 0.1212195E-01 , 0.1202379E-01 , 0.1192715E-01 ,& - & 0.1183206E-01 , 0.1173839E-01 , 0.1164616E-01 , 0.1155532E-01 , 0.1146587E-01 ,& - & 0.1137773E-01 , 0.1129092E-01 , 0.1120538E-01 , 0.1112109E-01 , 0.1103801E-01 ,& - & 0.1095617E-01 , 0.1087546E-01 , 0.1079591E-01 , 0.1071751E-01 , 0.1064021E-01 ,& - & 0.1056396E-01 , 0.1048879E-01 , 0.1041466E-01 , 0.1034153E-01 , 0.1026945E-01 ,& - & 0.1019829E-01 , 0.1012810E-01 , 0.1005882E-01 , 0.9990477E-02 , 0.9923048E-02 ,& - & 0.9856497E-02 , 0.9790796E-02 , 0.9725967E-02 , 0.9661886E-02 , 0.9598750E-02 ,& - & 0.9536333E-02 , 0.9474728E-02 , 0.9413908E-02 , 0.9353837E-02 , 0.9294510E-02 ,& - & 0.9235926E-02 , 0.9178066E-02 , 0.9120892E-02 , 0.9064428E-02 , 0.9008617E-02 ,& - & 0.8953504E-02 , 0.8899035E-02 , 0.8845209E-02 , 0.8792018E-02 , 0.8739441E-02 ,& - & 0.8687489E-02 , 0.8636141E-02 , 0.8585371E-02 , 0.8535195E-02 , 0.8485589E-02 ,& - & 0.8436535E-02 , 0.8388070E-02 , 0.8340090E-02 , 0.8292706E-02 , 0.8245819E-02 ,& - & 0.8199411E-02 , 0.8153542E-02 , 0.8108193E-02 , 0.8063350E-02 , 0.8018982E-02 ,& - & 0.7974982E-02 , 0.7931642E-02 , 0.7888632E-02 , 0.7846153E-02 , 0.7804049E-02 ,& - & 0.7762399E-02 , 0.7721156E-02 , 0.7680319E-02 , 0.7640009E-02 , 0.7600155E-02 ,& - & 0.7560589E-02 , 0.7521371E-02 , 0.7482661E-02 , 0.7444382E-02 , 0.7406328E-02 /) - absice4(:, 2) = (/ & - & 0.1808749E-01 , 0.1932276E-01 , 0.2023977E-01 , 0.2114905E-01 , 0.2201138E-01 ,& - & 0.2278221E-01 , 0.2344802E-01 , 0.2401308E-01 , 0.2448537E-01 , 0.2487125E-01 ,& - & 0.2517609E-01 , 0.2540326E-01 , 0.2555691E-01 , 0.2564221E-01 , 0.2566490E-01 ,& - & 0.2563131E-01 , 0.2554830E-01 , 0.2542333E-01 , 0.2526240E-01 , 0.2507216E-01 ,& - & 0.2485834E-01 , 0.2462615E-01 , 0.2437942E-01 , 0.2412181E-01 , 0.2385707E-01 ,& - & 0.2358728E-01 , 0.2331461E-01 , 0.2304081E-01 , 0.2276729E-01 , 0.2249523E-01 ,& - & 0.2222565E-01 , 0.2195872E-01 , 0.2169522E-01 , 0.2143569E-01 , 0.2118043E-01 ,& - & 0.2092925E-01 , 0.2068280E-01 , 0.2044069E-01 , 0.2020311E-01 , 0.1997030E-01 ,& - & 0.1974206E-01 , 0.1951841E-01 , 0.1929905E-01 , 0.1908421E-01 , 0.1887382E-01 ,& - & 0.1866731E-01 , 0.1846508E-01 , 0.1826695E-01 , 0.1807275E-01 , 0.1788237E-01 ,& - & 0.1769572E-01 , 0.1751278E-01 , 0.1733340E-01 , 0.1715745E-01 , 0.1698485E-01 ,& - & 0.1681570E-01 , 0.1664962E-01 , 0.1648652E-01 , 0.1632667E-01 , 0.1616967E-01 ,& - & 0.1601550E-01 , 0.1586427E-01 , 0.1571565E-01 , 0.1556963E-01 , 0.1542618E-01 ,& - & 0.1528533E-01 , 0.1514708E-01 , 0.1501091E-01 , 0.1487722E-01 , 0.1474583E-01 ,& - & 0.1461663E-01 , 0.1448955E-01 , 0.1436455E-01 , 0.1424175E-01 , 0.1412078E-01 ,& - & 0.1400193E-01 , 0.1388483E-01 , 0.1376973E-01 , 0.1365632E-01 , 0.1354478E-01 ,& - & 0.1343496E-01 , 0.1332682E-01 , 0.1322025E-01 , 0.1311538E-01 , 0.1301213E-01 ,& - & 0.1291048E-01 , 0.1281017E-01 , 0.1271150E-01 , 0.1261414E-01 , 0.1251826E-01 ,& - & 0.1242377E-01 , 0.1233068E-01 , 0.1223888E-01 , 0.1214835E-01 , 0.1205910E-01 ,& - & 0.1197108E-01 , 0.1188429E-01 , 0.1179873E-01 , 0.1171433E-01 , 0.1163102E-01 ,& - & 0.1154892E-01 , 0.1146791E-01 , 0.1138796E-01 , 0.1130913E-01 , 0.1123124E-01 ,& - & 0.1115440E-01 , 0.1107857E-01 , 0.1100370E-01 , 0.1092982E-01 , 0.1085688E-01 ,& - & 0.1078486E-01 , 0.1071372E-01 , 0.1064350E-01 , 0.1057410E-01 , 0.1050566E-01 ,& - & 0.1043798E-01 , 0.1037117E-01 , 0.1030515E-01 , 0.1023992E-01 , 0.1017549E-01 ,& - & 0.1011183E-01 , 0.1004894E-01 , 0.9986768E-02 , 0.9925325E-02 , 0.9864601E-02 ,& - & 0.9804619E-02 , 0.9745291E-02 , 0.9686657E-02 , 0.9628678E-02 , 0.9571399E-02 ,& - & 0.9514725E-02 , 0.9458707E-02 , 0.9403317E-02 , 0.9348548E-02 , 0.9294357E-02 ,& - & 0.9240794E-02 , 0.9187792E-02 , 0.9135368E-02 , 0.9083532E-02 , 0.9032273E-02 ,& - & 0.8981521E-02 , 0.8931329E-02 , 0.8881679E-02 , 0.8832537E-02 , 0.8783953E-02 ,& - & 0.8735837E-02 , 0.8688229E-02 , 0.8641113E-02 , 0.8594473E-02 , 0.8548328E-02 ,& - & 0.8502663E-02 , 0.8457437E-02 , 0.8412691E-02 , 0.8368331E-02 , 0.8324496E-02 ,& - & 0.8281046E-02 , 0.8238045E-02 , 0.8195484E-02 , 0.8153325E-02 , 0.8111581E-02 ,& - & 0.8070248E-02 , 0.8029317E-02 , 0.7988783E-02 , 0.7948641E-02 , 0.7908863E-02 ,& - & 0.7869483E-02 , 0.7830469E-02 , 0.7791823E-02 , 0.7753538E-02 , 0.7715614E-02 ,& - & 0.7678050E-02 , 0.7640833E-02 , 0.7603942E-02 , 0.7567415E-02 , 0.7531212E-02 ,& - & 0.7495315E-02 , 0.7459802E-02 , 0.7424545E-02 , 0.7389668E-02 , 0.7355077E-02 ,& - & 0.7320753E-02 , 0.7286766E-02 , 0.7253100E-02 , 0.7219734E-02 , 0.7186655E-02 ,& - & 0.7153776E-02 , 0.7121335E-02 , 0.7089079E-02 , 0.7057161E-02 , 0.7025448E-02 ,& - & 0.6994023E-02 , 0.6962844E-02 , 0.6931921E-02 , 0.6901341E-02 , 0.6871042E-02 ,& - & 0.6840906E-02 , 0.6810980E-02 , 0.6781394E-02 , 0.6752098E-02 , 0.6722898E-02 /) - absice4(:, 3) = (/ & - & 0.6134844E-01 , 0.6614562E-01 , 0.6981280E-01 , 0.7276729E-01 , 0.7480936E-01 ,& - & 0.7600386E-01 , 0.7649013E-01 , 0.7639786E-01 , 0.7582567E-01 , 0.7485179E-01 ,& - & 0.7354883E-01 , 0.7198476E-01 , 0.7022718E-01 , 0.6833836E-01 , 0.6637321E-01 ,& - & 0.6437675E-01 , 0.6238502E-01 , 0.6042662E-01 , 0.5851643E-01 , 0.5667127E-01 ,& - & 0.5489796E-01 , 0.5320195E-01 , 0.5158193E-01 , 0.5003763E-01 , 0.4857029E-01 ,& - & 0.4717415E-01 , 0.4584703E-01 , 0.4458477E-01 , 0.4338476E-01 , 0.4224324E-01 ,& - & 0.4115709E-01 , 0.4012140E-01 , 0.3913360E-01 , 0.3819148E-01 , 0.3729217E-01 ,& - & 0.3643164E-01 , 0.3560931E-01 , 0.3482125E-01 , 0.3406615E-01 , 0.3334230E-01 ,& - & 0.3264759E-01 , 0.3198040E-01 , 0.3133877E-01 , 0.3072184E-01 , 0.3012829E-01 ,& - & 0.2955574E-01 , 0.2900426E-01 , 0.2847244E-01 , 0.2795912E-01 , 0.2746342E-01 ,& - & 0.2698442E-01 , 0.2652142E-01 , 0.2607354E-01 , 0.2564005E-01 , 0.2522026E-01 ,& - & 0.2481393E-01 , 0.2441975E-01 , 0.2403736E-01 , 0.2366677E-01 , 0.2330685E-01 ,& - & 0.2295745E-01 , 0.2261820E-01 , 0.2228836E-01 , 0.2196760E-01 , 0.2165572E-01 ,& - & 0.2135240E-01 , 0.2105746E-01 , 0.2076980E-01 , 0.2048994E-01 , 0.2021732E-01 ,& - & 0.1995168E-01 , 0.1969257E-01 , 0.1943992E-01 , 0.1919375E-01 , 0.1895319E-01 ,& - & 0.1871875E-01 , 0.1848959E-01 , 0.1826607E-01 , 0.1804747E-01 , 0.1783412E-01 ,& - & 0.1762554E-01 , 0.1742162E-01 , 0.1722211E-01 , 0.1702717E-01 , 0.1683648E-01 ,& - & 0.1665000E-01 , 0.1646723E-01 , 0.1628851E-01 , 0.1611341E-01 , 0.1594198E-01 ,& - & 0.1577409E-01 , 0.1560962E-01 , 0.1544846E-01 , 0.1529047E-01 , 0.1513555E-01 ,& - & 0.1498369E-01 , 0.1483481E-01 , 0.1468877E-01 , 0.1454555E-01 , 0.1440490E-01 ,& - & 0.1426700E-01 , 0.1413165E-01 , 0.1399878E-01 , 0.1386839E-01 , 0.1374025E-01 ,& - & 0.1361442E-01 , 0.1349083E-01 , 0.1336940E-01 , 0.1325011E-01 , 0.1313288E-01 ,& - & 0.1301767E-01 , 0.1290437E-01 , 0.1279305E-01 , 0.1268351E-01 , 0.1257590E-01 ,& - & 0.1246997E-01 , 0.1236584E-01 , 0.1226335E-01 , 0.1216252E-01 , 0.1206332E-01 ,& - & 0.1196568E-01 , 0.1186960E-01 , 0.1177498E-01 , 0.1168185E-01 , 0.1159014E-01 ,& - & 0.1149985E-01 , 0.1141093E-01 , 0.1132334E-01 , 0.1123704E-01 , 0.1115207E-01 ,& - & 0.1106831E-01 , 0.1098580E-01 , 0.1090448E-01 , 0.1082434E-01 , 0.1074534E-01 ,& - & 0.1066747E-01 , 0.1059068E-01 , 0.1051498E-01 , 0.1044035E-01 , 0.1036678E-01 ,& - & 0.1029417E-01 , 0.1022258E-01 , 0.1015197E-01 , 0.1008230E-01 , 0.1001361E-01 ,& - & 0.9945779E-02 , 0.9878875E-02 , 0.9812825E-02 , 0.9747642E-02 , 0.9683326E-02 ,& - & 0.9619834E-02 , 0.9557145E-02 , 0.9495276E-02 , 0.9434108E-02 , 0.9373835E-02 ,& - & 0.9314229E-02 , 0.9255388E-02 , 0.9197296E-02 , 0.9139908E-02 , 0.9083220E-02 ,& - & 0.9027225E-02 , 0.8971911E-02 , 0.8917253E-02 , 0.8863264E-02 , 0.8809891E-02 ,& - & 0.8757176E-02 , 0.8705065E-02 , 0.8653563E-02 , 0.8602656E-02 , 0.8552338E-02 ,& - & 0.8502601E-02 , 0.8453442E-02 , 0.8404816E-02 , 0.8356771E-02 , 0.8309252E-02 ,& - & 0.8262245E-02 , 0.8215820E-02 , 0.8169831E-02 , 0.8124417E-02 , 0.8079469E-02 ,& - & 0.8034971E-02 , 0.7990990E-02 , 0.7947500E-02 , 0.7904486E-02 , 0.7861921E-02 ,& - & 0.7819697E-02 , 0.7778111E-02 , 0.7736838E-02 , 0.7696060E-02 , 0.7655641E-02 ,& - & 0.7615650E-02 , 0.7576041E-02 , 0.7536822E-02 , 0.7498102E-02 , 0.7459822E-02 ,& - & 0.7421801E-02 , 0.7384120E-02 , 0.7346914E-02 , 0.7310124E-02 , 0.7273538E-02 /) - absice4(:, 4) = (/ & - & 0.1326735E+00 , 0.1417908E+00 , 0.1468841E+00 , 0.1485195E+00 , 0.1474047E+00 ,& - & 0.1443156E+00 , 0.1399179E+00 , 0.1347081E+00 , 0.1290312E+00 , 0.1231323E+00 ,& - & 0.1171963E+00 , 0.1113586E+00 , 0.1057195E+00 , 0.1003463E+00 , 0.9527878E-01 ,& - & 0.9053445E-01 , 0.8611556E-01 , 0.8201642E-01 , 0.7821326E-01 , 0.7469463E-01 ,& - & 0.7143734E-01 , 0.6842215E-01 , 0.6562440E-01 , 0.6302506E-01 , 0.6061122E-01 ,& - & 0.5836153E-01 , 0.5626275E-01 , 0.5430037E-01 , 0.5246392E-01 , 0.5074203E-01 ,& - & 0.4912554E-01 , 0.4760348E-01 , 0.4616864E-01 , 0.4481519E-01 , 0.4353668E-01 ,& - & 0.4232533E-01 , 0.4117850E-01 , 0.4008913E-01 , 0.3905430E-01 , 0.3807024E-01 ,& - & 0.3713309E-01 , 0.3623973E-01 , 0.3538680E-01 , 0.3457227E-01 , 0.3379383E-01 ,& - & 0.3304768E-01 , 0.3233342E-01 , 0.3164866E-01 , 0.3099151E-01 , 0.3036043E-01 ,& - & 0.2975389E-01 , 0.2917062E-01 , 0.2860922E-01 , 0.2806853E-01 , 0.2754736E-01 ,& - & 0.2704519E-01 , 0.2656024E-01 , 0.2609174E-01 , 0.2563968E-01 , 0.2520232E-01 ,& - & 0.2477946E-01 , 0.2437042E-01 , 0.2397421E-01 , 0.2359031E-01 , 0.2321836E-01 ,& - & 0.2285782E-01 , 0.2250840E-01 , 0.2216874E-01 , 0.2183930E-01 , 0.2151936E-01 ,& - & 0.2120856E-01 , 0.2090627E-01 , 0.2061235E-01 , 0.2032674E-01 , 0.2004843E-01 ,& - & 0.1977785E-01 , 0.1951409E-01 , 0.1925742E-01 , 0.1900704E-01 , 0.1876324E-01 ,& - & 0.1852544E-01 , 0.1829345E-01 , 0.1806702E-01 , 0.1784624E-01 , 0.1763069E-01 ,& - & 0.1742035E-01 , 0.1721461E-01 , 0.1701383E-01 , 0.1681748E-01 , 0.1662559E-01 ,& - & 0.1643801E-01 , 0.1625460E-01 , 0.1607517E-01 , 0.1589956E-01 , 0.1572767E-01 ,& - & 0.1555945E-01 , 0.1539479E-01 , 0.1523350E-01 , 0.1507558E-01 , 0.1492072E-01 ,& - & 0.1476912E-01 , 0.1462052E-01 , 0.1447485E-01 , 0.1433208E-01 , 0.1419197E-01 ,& - & 0.1405457E-01 , 0.1391979E-01 , 0.1378752E-01 , 0.1365776E-01 , 0.1353039E-01 ,& - & 0.1340534E-01 , 0.1328253E-01 , 0.1316198E-01 , 0.1304352E-01 , 0.1292724E-01 ,& - & 0.1281291E-01 , 0.1270062E-01 , 0.1259025E-01 , 0.1248176E-01 , 0.1237511E-01 ,& - & 0.1227026E-01 , 0.1216717E-01 , 0.1206576E-01 , 0.1196601E-01 , 0.1186788E-01 ,& - & 0.1177137E-01 , 0.1167638E-01 , 0.1158290E-01 , 0.1149088E-01 , 0.1140035E-01 ,& - & 0.1131117E-01 , 0.1122339E-01 , 0.1113696E-01 , 0.1105183E-01 , 0.1096797E-01 ,& - & 0.1088538E-01 , 0.1080400E-01 , 0.1072382E-01 , 0.1064483E-01 , 0.1056701E-01 ,& - & 0.1049026E-01 , 0.1041465E-01 , 0.1034010E-01 , 0.1026660E-01 , 0.1019418E-01 ,& - & 0.1012272E-01 , 0.1005226E-01 , 0.9982754E-02 , 0.9914191E-02 , 0.9846580E-02 ,& - & 0.9779881E-02 , 0.9714044E-02 , 0.9649111E-02 , 0.9584956E-02 , 0.9521768E-02 ,& - & 0.9459312E-02 , 0.9397696E-02 , 0.9336874E-02 , 0.9276840E-02 , 0.9217549E-02 ,& - & 0.9159023E-02 , 0.9101236E-02 , 0.9044155E-02 , 0.8987799E-02 , 0.8932117E-02 ,& - & 0.8877140E-02 , 0.8822812E-02 , 0.8769146E-02 , 0.8716122E-02 , 0.8663736E-02 ,& - & 0.8611974E-02 , 0.8560832E-02 , 0.8510272E-02 , 0.8460325E-02 , 0.8410953E-02 ,& - & 0.8362130E-02 , 0.8313920E-02 , 0.8266191E-02 , 0.8219064E-02 , 0.8172440E-02 ,& - & 0.8126310E-02 , 0.8080724E-02 , 0.8035664E-02 , 0.7991114E-02 , 0.7947044E-02 ,& - & 0.7903340E-02 , 0.7860309E-02 , 0.7817612E-02 , 0.7775442E-02 , 0.7733653E-02 ,& - & 0.7692324E-02 , 0.7651406E-02 , 0.7610899E-02 , 0.7570923E-02 , 0.7531399E-02 ,& - & 0.7492168E-02 , 0.7453290E-02 , 0.7414924E-02 , 0.7376985E-02 , 0.7339269E-02 /) - absice4(:, 5) = (/ & - & 0.3024995E+00 , 0.3022310E+00 , 0.2871740E+00 , 0.2668229E+00 , 0.2454907E+00 ,& - & 0.2248826E+00 , 0.2058085E+00 , 0.1885392E+00 , 0.1730567E+00 , 0.1592368E+00 ,& - & 0.1469269E+00 , 0.1359729E+00 , 0.1262249E+00 , 0.1175487E+00 , 0.1098143E+00 ,& - & 0.1029054E+00 , 0.9671755E-01 , 0.9116329E-01 , 0.8615229E-01 , 0.8162510E-01 ,& - & 0.7751813E-01 , 0.7378272E-01 , 0.7036919E-01 , 0.6724078E-01 , 0.6436986E-01 ,& - & 0.6172230E-01 , 0.5927608E-01 , 0.5700852E-01 , 0.5490293E-01 , 0.5294263E-01 ,& - & 0.5111478E-01 , 0.4940378E-01 , 0.4780013E-01 , 0.4629565E-01 , 0.4488094E-01 ,& - & 0.4354687E-01 , 0.4228956E-01 , 0.4109976E-01 , 0.3997432E-01 , 0.3890744E-01 ,& - & 0.3789524E-01 , 0.3693316E-01 , 0.3601765E-01 , 0.3514581E-01 , 0.3431485E-01 ,& - & 0.3352055E-01 , 0.3276202E-01 , 0.3203660E-01 , 0.3134199E-01 , 0.3067640E-01 ,& - & 0.3003801E-01 , 0.2942533E-01 , 0.2883671E-01 , 0.2827086E-01 , 0.2772636E-01 ,& - & 0.2720262E-01 , 0.2669759E-01 , 0.2621048E-01 , 0.2574111E-01 , 0.2528767E-01 ,& - & 0.2484986E-01 , 0.2442688E-01 , 0.2401769E-01 , 0.2362166E-01 , 0.2323842E-01 ,& - & 0.2286735E-01 , 0.2250810E-01 , 0.2215925E-01 , 0.2182121E-01 , 0.2149325E-01 ,& - & 0.2117495E-01 , 0.2086561E-01 , 0.2056512E-01 , 0.2027336E-01 , 0.1998927E-01 ,& - & 0.1971332E-01 , 0.1944449E-01 , 0.1918309E-01 , 0.1892825E-01 , 0.1868030E-01 ,& - & 0.1843861E-01 , 0.1820295E-01 , 0.1797310E-01 , 0.1774910E-01 , 0.1753055E-01 ,& - & 0.1731737E-01 , 0.1710900E-01 , 0.1690573E-01 , 0.1670705E-01 , 0.1651299E-01 ,& - & 0.1632337E-01 , 0.1613805E-01 , 0.1595683E-01 , 0.1577956E-01 , 0.1560611E-01 ,& - & 0.1543643E-01 , 0.1527041E-01 , 0.1510785E-01 , 0.1494876E-01 , 0.1479280E-01 ,& - & 0.1464017E-01 , 0.1449062E-01 , 0.1434407E-01 , 0.1420049E-01 , 0.1405962E-01 ,& - & 0.1392153E-01 , 0.1378610E-01 , 0.1365324E-01 , 0.1352294E-01 , 0.1339508E-01 ,& - & 0.1326958E-01 , 0.1314636E-01 , 0.1302542E-01 , 0.1290664E-01 , 0.1279006E-01 ,& - & 0.1267547E-01 , 0.1256297E-01 , 0.1245238E-01 , 0.1234372E-01 , 0.1223693E-01 ,& - & 0.1213196E-01 , 0.1202877E-01 , 0.1192729E-01 , 0.1182750E-01 , 0.1172935E-01 ,& - & 0.1163282E-01 , 0.1153784E-01 , 0.1144440E-01 , 0.1135242E-01 , 0.1126195E-01 ,& - & 0.1117285E-01 , 0.1108516E-01 , 0.1099883E-01 , 0.1091382E-01 , 0.1083009E-01 ,& - & 0.1074766E-01 , 0.1066642E-01 , 0.1058641E-01 , 0.1050760E-01 , 0.1042995E-01 ,& - & 0.1035341E-01 , 0.1027799E-01 , 0.1020366E-01 , 0.1013037E-01 , 0.1005817E-01 ,& - & 0.9986949E-02 , 0.9916727E-02 , 0.9847458E-02 , 0.9779151E-02 , 0.9711792E-02 ,& - & 0.9645349E-02 , 0.9579788E-02 , 0.9515127E-02 , 0.9451241E-02 , 0.9388327E-02 ,& - & 0.9326161E-02 , 0.9264823E-02 , 0.9204305E-02 , 0.9144551E-02 , 0.9085567E-02 ,& - & 0.9027331E-02 , 0.8969852E-02 , 0.8913075E-02 , 0.8857019E-02 , 0.8801642E-02 ,& - & 0.8746976E-02 , 0.8692966E-02 , 0.8639613E-02 , 0.8586907E-02 , 0.8534838E-02 ,& - & 0.8483395E-02 , 0.8432568E-02 , 0.8382322E-02 , 0.8332702E-02 , 0.8283645E-02 ,& - & 0.8235149E-02 , 0.8187264E-02 , 0.8139856E-02 , 0.8093054E-02 , 0.8046762E-02 ,& - & 0.8000951E-02 , 0.7955688E-02 , 0.7910957E-02 , 0.7866731E-02 , 0.7822983E-02 ,& - & 0.7779608E-02 , 0.7736897E-02 , 0.7694529E-02 , 0.7652683E-02 , 0.7611223E-02 ,& - & 0.7570220E-02 , 0.7529625E-02 , 0.7489445E-02 , 0.7449784E-02 , 0.7410586E-02 ,& - & 0.7371680E-02 , 0.7333126E-02 , 0.7295078E-02 , 0.7257461E-02 , 0.7220066E-02 /) - absice4(:, 6) = (/ & - & 0.2880479E+00 , 0.2709946E+00 , 0.2465274E+00 , 0.2226647E+00 , 0.2012633E+00 ,& - & 0.1825816E+00 , 0.1664524E+00 , 0.1525213E+00 , 0.1404165E+00 , 0.1298243E+00 ,& - & 0.1205029E+00 , 0.1122591E+00 , 0.1049403E+00 , 0.9841985E-01 , 0.9259034E-01 ,& - & 0.8735970E-01 , 0.8264969E-01 , 0.7839588E-01 , 0.7453251E-01 , 0.7101811E-01 ,& - & 0.6780819E-01 , 0.6486867E-01 , 0.6216424E-01 , 0.5966881E-01 , 0.5736412E-01 ,& - & 0.5522554E-01 , 0.5323753E-01 , 0.5138391E-01 , 0.4965331E-01 , 0.4803360E-01 ,& - & 0.4651528E-01 , 0.4508732E-01 , 0.4374247E-01 , 0.4247493E-01 , 0.4127821E-01 ,& - & 0.4014480E-01 , 0.3907220E-01 , 0.3805358E-01 , 0.3708605E-01 , 0.3616610E-01 ,& - & 0.3529001E-01 , 0.3445483E-01 , 0.3365739E-01 , 0.3289579E-01 , 0.3216780E-01 ,& - & 0.3146994E-01 , 0.3080171E-01 , 0.3016099E-01 , 0.2954597E-01 , 0.2895516E-01 ,& - & 0.2838718E-01 , 0.2784088E-01 , 0.2731489E-01 , 0.2680814E-01 , 0.2631953E-01 ,& - & 0.2584863E-01 , 0.2539369E-01 , 0.2495406E-01 , 0.2452972E-01 , 0.2411903E-01 ,& - & 0.2372185E-01 , 0.2333751E-01 , 0.2296511E-01 , 0.2260415E-01 , 0.2225430E-01 ,& - & 0.2191508E-01 , 0.2158622E-01 , 0.2126640E-01 , 0.2095613E-01 , 0.2065472E-01 ,& - & 0.2036179E-01 , 0.2007682E-01 , 0.1979962E-01 , 0.1953018E-01 , 0.1926754E-01 ,& - & 0.1901214E-01 , 0.1876306E-01 , 0.1852062E-01 , 0.1828403E-01 , 0.1805360E-01 ,& - & 0.1782877E-01 , 0.1760937E-01 , 0.1739515E-01 , 0.1718621E-01 , 0.1698218E-01 ,& - & 0.1678300E-01 , 0.1658813E-01 , 0.1639790E-01 , 0.1621181E-01 , 0.1602992E-01 ,& - & 0.1585204E-01 , 0.1567806E-01 , 0.1550782E-01 , 0.1534116E-01 , 0.1517798E-01 ,& - & 0.1501824E-01 , 0.1486185E-01 , 0.1470862E-01 , 0.1455855E-01 , 0.1441136E-01 ,& - & 0.1426720E-01 , 0.1412590E-01 , 0.1398731E-01 , 0.1385149E-01 , 0.1371813E-01 ,& - & 0.1358732E-01 , 0.1345901E-01 , 0.1333303E-01 , 0.1320942E-01 , 0.1308805E-01 ,& - & 0.1296889E-01 , 0.1285181E-01 , 0.1273686E-01 , 0.1262389E-01 , 0.1251298E-01 ,& - & 0.1240389E-01 , 0.1229674E-01 , 0.1219140E-01 , 0.1208781E-01 , 0.1198599E-01 ,& - & 0.1188585E-01 , 0.1178738E-01 , 0.1169047E-01 , 0.1159515E-01 , 0.1150137E-01 ,& - & 0.1140910E-01 , 0.1131828E-01 , 0.1122889E-01 , 0.1114087E-01 , 0.1105424E-01 ,& - & 0.1096892E-01 , 0.1088492E-01 , 0.1080218E-01 , 0.1072069E-01 , 0.1064038E-01 ,& - & 0.1056130E-01 , 0.1048335E-01 , 0.1040653E-01 , 0.1033085E-01 , 0.1025627E-01 ,& - & 0.1018272E-01 , 0.1011023E-01 , 0.1003876E-01 , 0.9968274E-02 , 0.9898823E-02 ,& - & 0.9830278E-02 , 0.9762678E-02 , 0.9695984E-02 , 0.9630197E-02 , 0.9565303E-02 ,& - & 0.9501283E-02 , 0.9438083E-02 , 0.9375740E-02 , 0.9314126E-02 , 0.9253441E-02 ,& - & 0.9193447E-02 , 0.9134243E-02 , 0.9075823E-02 , 0.9018121E-02 , 0.8961143E-02 ,& - & 0.8904889E-02 , 0.8849339E-02 , 0.8794466E-02 , 0.8740273E-02 , 0.8686719E-02 ,& - & 0.8633844E-02 , 0.8581582E-02 , 0.8529960E-02 , 0.8478944E-02 , 0.8428535E-02 ,& - & 0.8378728E-02 , 0.8329508E-02 , 0.8280840E-02 , 0.8232752E-02 , 0.8185219E-02 ,& - & 0.8138204E-02 , 0.8091775E-02 , 0.8045806E-02 , 0.8000427E-02 , 0.7955516E-02 ,& - & 0.7911071E-02 , 0.7867143E-02 , 0.7823722E-02 , 0.7780785E-02 , 0.7738311E-02 ,& - & 0.7696189E-02 , 0.7654707E-02 , 0.7613541E-02 , 0.7572883E-02 , 0.7532592E-02 ,& - & 0.7492736E-02 , 0.7453269E-02 , 0.7414199E-02 , 0.7375633E-02 , 0.7337505E-02 ,& - & 0.7299658E-02 , 0.7262144E-02 , 0.7225117E-02 , 0.7188503E-02 , 0.7152102E-02 /) - absice4(:, 7) = (/ & - & 0.5988429E-01 , 0.6213512E-01 , 0.6341273E-01 , 0.6381485E-01 , 0.6361549E-01 ,& - & 0.6304067E-01 , 0.6220275E-01 , 0.6115729E-01 , 0.5994790E-01 , 0.5861807E-01 ,& - & 0.5721333E-01 , 0.5577239E-01 , 0.5432652E-01 , 0.5289872E-01 , 0.5150447E-01 ,& - & 0.5015296E-01 , 0.4884947E-01 , 0.4759751E-01 , 0.4639460E-01 , 0.4524262E-01 ,& - & 0.4413919E-01 , 0.4308327E-01 , 0.4207106E-01 , 0.4110039E-01 , 0.4017112E-01 ,& - & 0.3927908E-01 , 0.3842300E-01 , 0.3760041E-01 , 0.3681007E-01 , 0.3605022E-01 ,& - & 0.3531944E-01 , 0.3461519E-01 , 0.3393644E-01 , 0.3328240E-01 , 0.3265181E-01 ,& - & 0.3204254E-01 , 0.3145472E-01 , 0.3088620E-01 , 0.3033656E-01 , 0.2980512E-01 ,& - & 0.2929087E-01 , 0.2879296E-01 , 0.2831038E-01 , 0.2784294E-01 , 0.2738995E-01 ,& - & 0.2694988E-01 , 0.2652316E-01 , 0.2610897E-01 , 0.2570668E-01 , 0.2531582E-01 ,& - & 0.2493591E-01 , 0.2456660E-01 , 0.2420738E-01 , 0.2385787E-01 , 0.2351768E-01 ,& - & 0.2318675E-01 , 0.2286419E-01 , 0.2254977E-01 , 0.2224375E-01 , 0.2194521E-01 ,& - & 0.2165415E-01 , 0.2137040E-01 , 0.2109344E-01 , 0.2082305E-01 , 0.2055916E-01 ,& - & 0.2030159E-01 , 0.2005026E-01 , 0.1980428E-01 , 0.1956418E-01 , 0.1932957E-01 ,& - & 0.1910021E-01 , 0.1887583E-01 , 0.1865637E-01 , 0.1844193E-01 , 0.1823181E-01 ,& - & 0.1802645E-01 , 0.1782523E-01 , 0.1762840E-01 , 0.1743545E-01 , 0.1724667E-01 ,& - & 0.1706167E-01 , 0.1688035E-01 , 0.1670260E-01 , 0.1652849E-01 , 0.1635783E-01 ,& - & 0.1619058E-01 , 0.1602634E-01 , 0.1586541E-01 , 0.1570742E-01 , 0.1555245E-01 ,& - & 0.1540040E-01 , 0.1525120E-01 , 0.1510470E-01 , 0.1496085E-01 , 0.1481957E-01 ,& - & 0.1468085E-01 , 0.1454461E-01 , 0.1441077E-01 , 0.1427930E-01 , 0.1415001E-01 ,& - & 0.1402306E-01 , 0.1389828E-01 , 0.1377560E-01 , 0.1365505E-01 , 0.1353639E-01 ,& - & 0.1341974E-01 , 0.1330503E-01 , 0.1319216E-01 , 0.1308115E-01 , 0.1297194E-01 ,& - & 0.1286447E-01 , 0.1275865E-01 , 0.1265455E-01 , 0.1255203E-01 , 0.1245118E-01 ,& - & 0.1235180E-01 , 0.1225400E-01 , 0.1215766E-01 , 0.1206279E-01 , 0.1196933E-01 ,& - & 0.1187727E-01 , 0.1178658E-01 , 0.1169719E-01 , 0.1160912E-01 , 0.1152233E-01 ,& - & 0.1143681E-01 , 0.1135248E-01 , 0.1126936E-01 , 0.1118741E-01 , 0.1110664E-01 ,& - & 0.1102696E-01 , 0.1094841E-01 , 0.1087093E-01 , 0.1079450E-01 , 0.1071911E-01 ,& - & 0.1064475E-01 , 0.1057136E-01 , 0.1049896E-01 , 0.1042754E-01 , 0.1035707E-01 ,& - & 0.1028748E-01 , 0.1021882E-01 , 0.1015106E-01 , 0.1008416E-01 , 0.1001815E-01 ,& - & 0.9952932E-02 , 0.9888554E-02 , 0.9824975E-02 , 0.9762178E-02 , 0.9700185E-02 ,& - & 0.9638965E-02 , 0.9578467E-02 , 0.9518731E-02 , 0.9459637E-02 , 0.9401373E-02 ,& - & 0.9343728E-02 , 0.9286805E-02 , 0.9230558E-02 , 0.9174970E-02 , 0.9120035E-02 ,& - & 0.9065741E-02 , 0.9012085E-02 , 0.8959038E-02 , 0.8906613E-02 , 0.8854765E-02 ,& - & 0.8803529E-02 , 0.8752861E-02 , 0.8702757E-02 , 0.8653214E-02 , 0.8604226E-02 ,& - & 0.8555784E-02 , 0.8507868E-02 , 0.8460473E-02 , 0.8413609E-02 , 0.8367250E-02 ,& - & 0.8321369E-02 , 0.8276025E-02 , 0.8231102E-02 , 0.8186728E-02 , 0.8142780E-02 ,& - & 0.8099272E-02 , 0.8056236E-02 , 0.8013674E-02 , 0.7971568E-02 , 0.7929876E-02 ,& - & 0.7888515E-02 , 0.7847751E-02 , 0.7807292E-02 , 0.7767302E-02 , 0.7727637E-02 ,& - & 0.7688394E-02 , 0.7649507E-02 , 0.7610995E-02 , 0.7572962E-02 , 0.7535344E-02 ,& - & 0.7497969E-02 , 0.7460913E-02 , 0.7424326E-02 , 0.7388133E-02 , 0.7352122E-02 /) - absice4(:, 8) = (/ & - & 0.5316645E-01 , 0.5669206E-01 , 0.5899668E-01 , 0.6020352E-01 , 0.6067482E-01 ,& - & 0.6062384E-01 , 0.6017047E-01 , 0.5940704E-01 , 0.5841014E-01 , 0.5724491E-01 ,& - & 0.5596949E-01 , 0.5463091E-01 , 0.5326691E-01 , 0.5190575E-01 , 0.5056658E-01 ,& - & 0.4926201E-01 , 0.4799948E-01 , 0.4678414E-01 , 0.4561472E-01 , 0.4449370E-01 ,& - & 0.4341939E-01 , 0.4239098E-01 , 0.4140490E-01 , 0.4045930E-01 , 0.3955400E-01 ,& - & 0.3868498E-01 , 0.3785090E-01 , 0.3704946E-01 , 0.3627947E-01 , 0.3553910E-01 ,& - & 0.3482699E-01 , 0.3414068E-01 , 0.3347914E-01 , 0.3284159E-01 , 0.3222676E-01 ,& - & 0.3163256E-01 , 0.3105925E-01 , 0.3050460E-01 , 0.2996822E-01 , 0.2944955E-01 ,& - & 0.2894747E-01 , 0.2846124E-01 , 0.2798989E-01 , 0.2753317E-01 , 0.2709043E-01 ,& - & 0.2666026E-01 , 0.2624300E-01 , 0.2583789E-01 , 0.2544429E-01 , 0.2506179E-01 ,& - & 0.2468992E-01 , 0.2432832E-01 , 0.2397653E-01 , 0.2363414E-01 , 0.2330076E-01 ,& - & 0.2297641E-01 , 0.2266014E-01 , 0.2235183E-01 , 0.2205164E-01 , 0.2175870E-01 ,& - & 0.2147305E-01 , 0.2119451E-01 , 0.2092256E-01 , 0.2065701E-01 , 0.2039777E-01 ,& - & 0.2014465E-01 , 0.1989763E-01 , 0.1965580E-01 , 0.1941969E-01 , 0.1918890E-01 ,& - & 0.1896325E-01 , 0.1874246E-01 , 0.1852644E-01 , 0.1831534E-01 , 0.1810842E-01 ,& - & 0.1790614E-01 , 0.1770788E-01 , 0.1751395E-01 , 0.1732378E-01 , 0.1713766E-01 ,& - & 0.1695525E-01 , 0.1677645E-01 , 0.1660109E-01 , 0.1642931E-01 , 0.1626091E-01 ,& - & 0.1609584E-01 , 0.1593369E-01 , 0.1577479E-01 , 0.1561876E-01 , 0.1546569E-01 ,& - & 0.1531547E-01 , 0.1516804E-01 , 0.1502327E-01 , 0.1488108E-01 , 0.1474140E-01 ,& - & 0.1460423E-01 , 0.1446952E-01 , 0.1433713E-01 , 0.1420707E-01 , 0.1407915E-01 ,& - & 0.1395353E-01 , 0.1383003E-01 , 0.1370858E-01 , 0.1358924E-01 , 0.1347176E-01 ,& - & 0.1335625E-01 , 0.1324264E-01 , 0.1313083E-01 , 0.1302087E-01 , 0.1291265E-01 ,& - & 0.1280614E-01 , 0.1270127E-01 , 0.1259809E-01 , 0.1249645E-01 , 0.1239647E-01 ,& - & 0.1229793E-01 , 0.1220095E-01 , 0.1210540E-01 , 0.1201129E-01 , 0.1191858E-01 ,& - & 0.1182725E-01 , 0.1173727E-01 , 0.1164857E-01 , 0.1156117E-01 , 0.1147501E-01 ,& - & 0.1139013E-01 , 0.1130642E-01 , 0.1122390E-01 , 0.1114252E-01 , 0.1106231E-01 ,& - & 0.1098318E-01 , 0.1090517E-01 , 0.1082820E-01 , 0.1075229E-01 , 0.1067739E-01 ,& - & 0.1060351E-01 , 0.1053059E-01 , 0.1045864E-01 , 0.1038766E-01 , 0.1031763E-01 ,& - & 0.1024846E-01 , 0.1018022E-01 , 0.1011285E-01 , 0.1004634E-01 , 0.9980719E-02 ,& - & 0.9915877E-02 , 0.9851866E-02 , 0.9788631E-02 , 0.9726182E-02 , 0.9664530E-02 ,& - & 0.9603629E-02 , 0.9543454E-02 , 0.9484039E-02 , 0.9425251E-02 , 0.9367287E-02 ,& - & 0.9309941E-02 , 0.9253291E-02 , 0.9197325E-02 , 0.9142016E-02 , 0.9087344E-02 ,& - & 0.9033309E-02 , 0.8979913E-02 , 0.8927111E-02 , 0.8874926E-02 , 0.8823317E-02 ,& - & 0.8772308E-02 , 0.8721864E-02 , 0.8671990E-02 , 0.8622666E-02 , 0.8573883E-02 ,& - & 0.8525646E-02 , 0.8477943E-02 , 0.8430738E-02 , 0.8384071E-02 , 0.8337907E-02 ,& - & 0.8292209E-02 , 0.8247057E-02 , 0.8202315E-02 , 0.8158118E-02 , 0.8114339E-02 ,& - & 0.8070996E-02 , 0.8028133E-02 , 0.7985732E-02 , 0.7943779E-02 , 0.7902252E-02 ,& - & 0.7861041E-02 , 0.7820432E-02 , 0.7780109E-02 , 0.7740271E-02 , 0.7700749E-02 ,& - & 0.7661647E-02 , 0.7622900E-02 , 0.7584518E-02 , 0.7546620E-02 , 0.7509130E-02 ,& - & 0.7471889E-02 , 0.7434956E-02 , 0.7398485E-02 , 0.7362414E-02 , 0.7326525E-02 /) - absice4(:, 9) = (/ & - & 0.6496758E-01 , 0.7022101E-01 , 0.7327212E-01 , 0.7463108E-01 , 0.7488012E-01 ,& - & 0.7434294E-01 , 0.7325599E-01 , 0.7179786E-01 , 0.7009087E-01 , 0.6822387E-01 ,& - & 0.6626864E-01 , 0.6428009E-01 , 0.6230181E-01 , 0.6036458E-01 , 0.5848880E-01 ,& - & 0.5668619E-01 , 0.5496276E-01 , 0.5332169E-01 , 0.5175852E-01 , 0.5027399E-01 ,& - & 0.4886366E-01 , 0.4752460E-01 , 0.4625057E-01 , 0.4503773E-01 , 0.4388452E-01 ,& - & 0.4278488E-01 , 0.4173614E-01 , 0.4073441E-01 , 0.3977751E-01 , 0.3886252E-01 ,& - & 0.3798715E-01 , 0.3714772E-01 , 0.3634258E-01 , 0.3557024E-01 , 0.3482886E-01 ,& - & 0.3411543E-01 , 0.3343000E-01 , 0.3276956E-01 , 0.3213346E-01 , 0.3152065E-01 ,& - & 0.3092959E-01 , 0.3035924E-01 , 0.2980824E-01 , 0.2927616E-01 , 0.2876202E-01 ,& - & 0.2826403E-01 , 0.2778243E-01 , 0.2731622E-01 , 0.2686462E-01 , 0.2642692E-01 ,& - & 0.2600251E-01 , 0.2559095E-01 , 0.2519150E-01 , 0.2480375E-01 , 0.2442708E-01 ,& - & 0.2406147E-01 , 0.2370578E-01 , 0.2335980E-01 , 0.2302366E-01 , 0.2269637E-01 ,& - & 0.2237785E-01 , 0.2206788E-01 , 0.2176580E-01 , 0.2147140E-01 , 0.2118454E-01 ,& - & 0.2090497E-01 , 0.2063261E-01 , 0.2036643E-01 , 0.2010699E-01 , 0.1985381E-01 ,& - & 0.1960664E-01 , 0.1936518E-01 , 0.1912933E-01 , 0.1889915E-01 , 0.1867389E-01 ,& - & 0.1845400E-01 , 0.1823877E-01 , 0.1802851E-01 , 0.1782261E-01 , 0.1762138E-01 ,& - & 0.1742439E-01 , 0.1723153E-01 , 0.1704264E-01 , 0.1685783E-01 , 0.1667684E-01 ,& - & 0.1649965E-01 , 0.1632578E-01 , 0.1615561E-01 , 0.1598867E-01 , 0.1582506E-01 ,& - & 0.1566468E-01 , 0.1550743E-01 , 0.1535318E-01 , 0.1520180E-01 , 0.1505327E-01 ,& - & 0.1490753E-01 , 0.1476451E-01 , 0.1462411E-01 , 0.1448631E-01 , 0.1435088E-01 ,& - & 0.1421798E-01 , 0.1408745E-01 , 0.1395920E-01 , 0.1383326E-01 , 0.1370939E-01 ,& - & 0.1358767E-01 , 0.1346806E-01 , 0.1335045E-01 , 0.1323484E-01 , 0.1312116E-01 ,& - & 0.1300934E-01 , 0.1289934E-01 , 0.1279116E-01 , 0.1268469E-01 , 0.1258001E-01 ,& - & 0.1247691E-01 , 0.1237550E-01 , 0.1227566E-01 , 0.1217736E-01 , 0.1208059E-01 ,& - & 0.1198533E-01 , 0.1189153E-01 , 0.1179910E-01 , 0.1170809E-01 , 0.1161842E-01 ,& - & 0.1153011E-01 , 0.1144309E-01 , 0.1135733E-01 , 0.1127282E-01 , 0.1118955E-01 ,& - & 0.1110745E-01 , 0.1102654E-01 , 0.1094676E-01 , 0.1086811E-01 , 0.1079053E-01 ,& - & 0.1071407E-01 , 0.1063862E-01 , 0.1056421E-01 , 0.1049083E-01 , 0.1041847E-01 ,& - & 0.1034702E-01 , 0.1027656E-01 , 0.1020704E-01 , 0.1013842E-01 , 0.1007074E-01 ,& - & 0.1000390E-01 , 0.9937946E-02 , 0.9872812E-02 , 0.9808511E-02 , 0.9745046E-02 ,& - & 0.9682384E-02 , 0.9620491E-02 , 0.9559391E-02 , 0.9498971E-02 , 0.9439414E-02 ,& - & 0.9380497E-02 , 0.9322335E-02 , 0.9264885E-02 , 0.9208121E-02 , 0.9152032E-02 ,& - & 0.9096626E-02 , 0.9041875E-02 , 0.8987754E-02 , 0.8934287E-02 , 0.8881420E-02 ,& - & 0.8829186E-02 , 0.8777541E-02 , 0.8726498E-02 , 0.8676030E-02 , 0.8626126E-02 ,& - & 0.8576797E-02 , 0.8528024E-02 , 0.8479780E-02 , 0.8432093E-02 , 0.8384922E-02 ,& - & 0.8338246E-02 , 0.8292145E-02 , 0.8246464E-02 , 0.8201354E-02 , 0.8156692E-02 ,& - & 0.8112466E-02 , 0.8068747E-02 , 0.8025517E-02 , 0.7982743E-02 , 0.7940413E-02 ,& - & 0.7898415E-02 , 0.7857045E-02 , 0.7815976E-02 , 0.7775393E-02 , 0.7735157E-02 ,& - & 0.7695348E-02 , 0.7655912E-02 , 0.7616862E-02 , 0.7578297E-02 , 0.7540161E-02 ,& - & 0.7502281E-02 , 0.7464732E-02 , 0.7427657E-02 , 0.7390989E-02 , 0.7354508E-02 /) - absice4(:, 10) = (/ & - & 0.9604552E-01 , 0.1033564E+00 , 0.1063436E+00 , 0.1065534E+00 , 0.1050589E+00 ,& - & 0.1025090E+00 , 0.9936723E-01 , 0.9592369E-01 , 0.9234641E-01 , 0.8873942E-01 ,& - & 0.8517904E-01 , 0.8171826E-01 , 0.7839544E-01 , 0.7523430E-01 , 0.7224611E-01 ,& - & 0.6943324E-01 , 0.6679222E-01 , 0.6431767E-01 , 0.6199514E-01 , 0.5981901E-01 ,& - & 0.5777737E-01 , 0.5586144E-01 , 0.5405857E-01 , 0.5236009E-01 , 0.5076092E-01 ,& - & 0.4925022E-01 , 0.4782211E-01 , 0.4646969E-01 , 0.4518828E-01 , 0.4397243E-01 ,& - & 0.4281782E-01 , 0.4171859E-01 , 0.4067142E-01 , 0.3967357E-01 , 0.3872176E-01 ,& - & 0.3781148E-01 , 0.3694203E-01 , 0.3610912E-01 , 0.3531129E-01 , 0.3454673E-01 ,& - & 0.3381307E-01 , 0.3310869E-01 , 0.3243148E-01 , 0.3178048E-01 , 0.3115433E-01 ,& - & 0.3055052E-01 , 0.2996903E-01 , 0.2940849E-01 , 0.2886758E-01 , 0.2834543E-01 ,& - & 0.2784102E-01 , 0.2735367E-01 , 0.2688234E-01 , 0.2642638E-01 , 0.2598499E-01 ,& - & 0.2555793E-01 , 0.2514378E-01 , 0.2474218E-01 , 0.2435319E-01 , 0.2397549E-01 ,& - & 0.2360903E-01 , 0.2325335E-01 , 0.2290771E-01 , 0.2257171E-01 , 0.2224517E-01 ,& - & 0.2192774E-01 , 0.2161921E-01 , 0.2131843E-01 , 0.2102594E-01 , 0.2074116E-01 ,& - & 0.2046377E-01 , 0.2019334E-01 , 0.1992975E-01 , 0.1967304E-01 , 0.1942231E-01 ,& - & 0.1917804E-01 , 0.1893941E-01 , 0.1870671E-01 , 0.1847926E-01 , 0.1825737E-01 ,& - & 0.1804052E-01 , 0.1782860E-01 , 0.1762136E-01 , 0.1741894E-01 , 0.1722101E-01 ,& - & 0.1702752E-01 , 0.1683798E-01 , 0.1665270E-01 , 0.1647123E-01 , 0.1629365E-01 ,& - & 0.1611978E-01 , 0.1594955E-01 , 0.1578278E-01 , 0.1561934E-01 , 0.1545916E-01 ,& - & 0.1530219E-01 , 0.1514835E-01 , 0.1499749E-01 , 0.1484962E-01 , 0.1470442E-01 ,& - & 0.1456212E-01 , 0.1442250E-01 , 0.1428547E-01 , 0.1415105E-01 , 0.1401897E-01 ,& - & 0.1388932E-01 , 0.1376202E-01 , 0.1363698E-01 , 0.1351418E-01 , 0.1339355E-01 ,& - & 0.1327501E-01 , 0.1315848E-01 , 0.1304399E-01 , 0.1293140E-01 , 0.1282079E-01 ,& - & 0.1271195E-01 , 0.1260498E-01 , 0.1249973E-01 , 0.1239620E-01 , 0.1229437E-01 ,& - & 0.1219417E-01 , 0.1209559E-01 , 0.1199852E-01 , 0.1190302E-01 , 0.1180898E-01 ,& - & 0.1171643E-01 , 0.1162529E-01 , 0.1153554E-01 , 0.1144713E-01 , 0.1136010E-01 ,& - & 0.1127432E-01 , 0.1118984E-01 , 0.1110659E-01 , 0.1102458E-01 , 0.1094372E-01 ,& - & 0.1086406E-01 , 0.1078551E-01 , 0.1070808E-01 , 0.1063177E-01 , 0.1055654E-01 ,& - & 0.1048232E-01 , 0.1040915E-01 , 0.1033699E-01 , 0.1026579E-01 , 0.1019562E-01 ,& - & 0.1012633E-01 , 0.1005800E-01 , 0.9990551E-02 , 0.9923989E-02 , 0.9858332E-02 ,& - & 0.9793528E-02 , 0.9729533E-02 , 0.9666396E-02 , 0.9603987E-02 , 0.9542488E-02 ,& - & 0.9481681E-02 , 0.9421664E-02 , 0.9362411E-02 , 0.9303899E-02 , 0.9246089E-02 ,& - & 0.9188998E-02 , 0.9132609E-02 , 0.9076898E-02 , 0.9021870E-02 , 0.8967470E-02 ,& - & 0.8913750E-02 , 0.8860655E-02 , 0.8808181E-02 , 0.8756323E-02 , 0.8705065E-02 ,& - & 0.8654407E-02 , 0.8604337E-02 , 0.8554813E-02 , 0.8505888E-02 , 0.8457500E-02 ,& - & 0.8409650E-02 , 0.8362376E-02 , 0.8315563E-02 , 0.8269335E-02 , 0.8223582E-02 ,& - & 0.8178296E-02 , 0.8133536E-02 , 0.8089283E-02 , 0.8045509E-02 , 0.8002207E-02 ,& - & 0.7959244E-02 , 0.7916938E-02 , 0.7874951E-02 , 0.7833467E-02 , 0.7792348E-02 ,& - & 0.7751674E-02 , 0.7711396E-02 , 0.7671515E-02 , 0.7632134E-02 , 0.7593200E-02 ,& - & 0.7554544E-02 , 0.7516227E-02 , 0.7478401E-02 , 0.7440997E-02 , 0.7403795E-02 /) - absice4(:, 11) = (/ & - & 0.1120205E+00 , 0.1195659E+00 , 0.1215598E+00 , 0.1203989E+00 , 0.1174667E+00 ,& - & 0.1135672E+00 , 0.1092127E+00 , 0.1046952E+00 , 0.1001720E+00 , 0.9573516E-01 ,& - & 0.9144754E-01 , 0.8734994E-01 , 0.8346878E-01 , 0.7981736E-01 , 0.7639769E-01 ,& - & 0.7320409E-01 , 0.7022630E-01 , 0.6745320E-01 , 0.6486455E-01 , 0.6245110E-01 ,& - & 0.6019717E-01 , 0.5809085E-01 , 0.5611662E-01 , 0.5426347E-01 , 0.5252461E-01 ,& - & 0.5088725E-01 , 0.4934417E-01 , 0.4788693E-01 , 0.4651003E-01 , 0.4520687E-01 ,& - & 0.4397245E-01 , 0.4279992E-01 , 0.4168537E-01 , 0.4062553E-01 , 0.3961669E-01 ,& - & 0.3865369E-01 , 0.3773556E-01 , 0.3685754E-01 , 0.3601797E-01 , 0.3521462E-01 ,& - & 0.3444500E-01 , 0.3370715E-01 , 0.3299877E-01 , 0.3231877E-01 , 0.3166556E-01 ,& - & 0.3103643E-01 , 0.3043129E-01 , 0.2984862E-01 , 0.2928701E-01 , 0.2874544E-01 ,& - & 0.2822283E-01 , 0.2771834E-01 , 0.2723097E-01 , 0.2675988E-01 , 0.2630426E-01 ,& - & 0.2586380E-01 , 0.2543702E-01 , 0.2502349E-01 , 0.2462325E-01 , 0.2423494E-01 ,& - & 0.2385843E-01 , 0.2349324E-01 , 0.2313862E-01 , 0.2279409E-01 , 0.2245949E-01 ,& - & 0.2213439E-01 , 0.2181861E-01 , 0.2151091E-01 , 0.2121187E-01 , 0.2092086E-01 ,& - & 0.2063755E-01 , 0.2036147E-01 , 0.2009252E-01 , 0.1983069E-01 , 0.1957508E-01 ,& - & 0.1932616E-01 , 0.1908309E-01 , 0.1884616E-01 , 0.1861468E-01 , 0.1838890E-01 ,& - & 0.1816836E-01 , 0.1795290E-01 , 0.1774228E-01 , 0.1753662E-01 , 0.1733558E-01 ,& - & 0.1713913E-01 , 0.1694672E-01 , 0.1675871E-01 , 0.1657463E-01 , 0.1639452E-01 ,& - & 0.1621823E-01 , 0.1604568E-01 , 0.1587667E-01 , 0.1571108E-01 , 0.1554883E-01 ,& - & 0.1538988E-01 , 0.1523411E-01 , 0.1508142E-01 , 0.1493174E-01 , 0.1478484E-01 ,& - & 0.1464089E-01 , 0.1449966E-01 , 0.1436109E-01 , 0.1422518E-01 , 0.1409166E-01 ,& - & 0.1396063E-01 , 0.1383200E-01 , 0.1370565E-01 , 0.1358160E-01 , 0.1345975E-01 ,& - & 0.1334003E-01 , 0.1322237E-01 , 0.1310677E-01 , 0.1299311E-01 , 0.1288147E-01 ,& - & 0.1277162E-01 , 0.1266367E-01 , 0.1255748E-01 , 0.1245304E-01 , 0.1235030E-01 ,& - & 0.1224925E-01 , 0.1214983E-01 , 0.1205194E-01 , 0.1195563E-01 , 0.1186083E-01 ,& - & 0.1176754E-01 , 0.1167565E-01 , 0.1158518E-01 , 0.1149609E-01 , 0.1140837E-01 ,& - & 0.1132194E-01 , 0.1123682E-01 , 0.1115295E-01 , 0.1107031E-01 , 0.1098886E-01 ,& - & 0.1090863E-01 , 0.1082951E-01 , 0.1075154E-01 , 0.1067468E-01 , 0.1059892E-01 ,& - & 0.1052418E-01 , 0.1045051E-01 , 0.1037786E-01 , 0.1030619E-01 , 0.1023554E-01 ,& - & 0.1016580E-01 , 0.1009701E-01 , 0.1002912E-01 , 0.9962142E-02 , 0.9896057E-02 ,& - & 0.9830839E-02 , 0.9766445E-02 , 0.9702916E-02 , 0.9640107E-02 , 0.9578238E-02 ,& - & 0.9517062E-02 , 0.9456682E-02 , 0.9397073E-02 , 0.9338205E-02 , 0.9280046E-02 ,& - & 0.9222627E-02 , 0.9165908E-02 , 0.9109871E-02 , 0.9054518E-02 , 0.8999816E-02 ,& - & 0.8945790E-02 , 0.8892382E-02 , 0.8839618E-02 , 0.8787465E-02 , 0.8735923E-02 ,& - & 0.8684986E-02 , 0.8634641E-02 , 0.8584852E-02 , 0.8535657E-02 , 0.8487010E-02 ,& - & 0.8438895E-02 , 0.8391378E-02 , 0.8344316E-02 , 0.8297840E-02 , 0.8251843E-02 ,& - & 0.8206324E-02 , 0.8161333E-02 , 0.8116846E-02 , 0.8072853E-02 , 0.8029319E-02 ,& - & 0.7986145E-02 , 0.7943621E-02 , 0.7901418E-02 , 0.7859729E-02 , 0.7818406E-02 ,& - & 0.7777532E-02 , 0.7737046E-02 , 0.7696967E-02 , 0.7657392E-02 , 0.7618273E-02 ,& - & 0.7579426E-02 , 0.7540921E-02 , 0.7502915E-02 , 0.7465327E-02 , 0.7427948E-02 /) - absice4(:, 12) = (/ & - & 0.4118567E-01 , 0.4606692E-01 , 0.4892185E-01 , 0.5047753E-01 , 0.5110885E-01 ,& - & 0.5113748E-01 , 0.5078274E-01 , 0.5017032E-01 , 0.4937394E-01 , 0.4844657E-01 ,& - & 0.4743351E-01 , 0.4637205E-01 , 0.4529282E-01 , 0.4421832E-01 , 0.4316403E-01 ,& - & 0.4213925E-01 , 0.4114978E-01 , 0.4019905E-01 , 0.3928546E-01 , 0.3841056E-01 ,& - & 0.3757252E-01 , 0.3677037E-01 , 0.3600108E-01 , 0.3526276E-01 , 0.3455525E-01 ,& - & 0.3387534E-01 , 0.3322180E-01 , 0.3259278E-01 , 0.3198735E-01 , 0.3140405E-01 ,& - & 0.3084194E-01 , 0.3029896E-01 , 0.2977444E-01 , 0.2926775E-01 , 0.2877798E-01 ,& - & 0.2830354E-01 , 0.2784461E-01 , 0.2739959E-01 , 0.2696813E-01 , 0.2654990E-01 ,& - & 0.2614401E-01 , 0.2575001E-01 , 0.2536709E-01 , 0.2499515E-01 , 0.2463372E-01 ,& - & 0.2428169E-01 , 0.2393935E-01 , 0.2360624E-01 , 0.2328183E-01 , 0.2296579E-01 ,& - & 0.2265779E-01 , 0.2235767E-01 , 0.2206498E-01 , 0.2177947E-01 , 0.2150086E-01 ,& - & 0.2122923E-01 , 0.2096377E-01 , 0.2070442E-01 , 0.2045138E-01 , 0.2020396E-01 ,& - & 0.1996214E-01 , 0.1972592E-01 , 0.1949481E-01 , 0.1926867E-01 , 0.1904748E-01 ,& - & 0.1883111E-01 , 0.1861956E-01 , 0.1841206E-01 , 0.1820911E-01 , 0.1801038E-01 ,& - & 0.1781570E-01 , 0.1762488E-01 , 0.1743788E-01 , 0.1725481E-01 , 0.1707507E-01 ,& - & 0.1689909E-01 , 0.1672629E-01 , 0.1655700E-01 , 0.1639072E-01 , 0.1622774E-01 ,& - & 0.1606775E-01 , 0.1591071E-01 , 0.1575642E-01 , 0.1560509E-01 , 0.1545651E-01 ,& - & 0.1531065E-01 , 0.1516716E-01 , 0.1502639E-01 , 0.1488792E-01 , 0.1475191E-01 ,& - & 0.1461826E-01 , 0.1448690E-01 , 0.1435776E-01 , 0.1423075E-01 , 0.1410582E-01 ,& - & 0.1398299E-01 , 0.1386217E-01 , 0.1374334E-01 , 0.1362645E-01 , 0.1351132E-01 ,& - & 0.1339814E-01 , 0.1328674E-01 , 0.1317708E-01 , 0.1306918E-01 , 0.1296286E-01 ,& - & 0.1285818E-01 , 0.1275513E-01 , 0.1265361E-01 , 0.1255364E-01 , 0.1245518E-01 ,& - & 0.1235816E-01 , 0.1226254E-01 , 0.1216836E-01 , 0.1207550E-01 , 0.1198406E-01 ,& - & 0.1189386E-01 , 0.1180500E-01 , 0.1171736E-01 , 0.1163096E-01 , 0.1154577E-01 ,& - & 0.1146177E-01 , 0.1137894E-01 , 0.1129722E-01 , 0.1121663E-01 , 0.1113711E-01 ,& - & 0.1105870E-01 , 0.1098132E-01 , 0.1090496E-01 , 0.1082959E-01 , 0.1075527E-01 ,& - & 0.1068187E-01 , 0.1060945E-01 , 0.1053796E-01 , 0.1046739E-01 , 0.1039769E-01 ,& - & 0.1032891E-01 , 0.1026096E-01 , 0.1019388E-01 , 0.1012765E-01 , 0.1006225E-01 ,& - & 0.9997615E-02 , 0.9933805E-02 , 0.9870761E-02 , 0.9808474E-02 , 0.9746985E-02 ,& - & 0.9686189E-02 , 0.9626136E-02 , 0.9566763E-02 , 0.9508105E-02 , 0.9450142E-02 ,& - & 0.9392861E-02 , 0.9336227E-02 , 0.9280265E-02 , 0.9224868E-02 , 0.9170210E-02 ,& - & 0.9116109E-02 , 0.9062633E-02 , 0.9009778E-02 , 0.8957504E-02 , 0.8905799E-02 ,& - & 0.8854680E-02 , 0.8804129E-02 , 0.8754121E-02 , 0.8704669E-02 , 0.8655739E-02 ,& - & 0.8607359E-02 , 0.8559475E-02 , 0.8512112E-02 , 0.8465252E-02 , 0.8418886E-02 ,& - & 0.8373009E-02 , 0.8327622E-02 , 0.8282688E-02 , 0.8238247E-02 , 0.8194258E-02 ,& - & 0.8150694E-02 , 0.8107632E-02 , 0.8064942E-02 , 0.8022754E-02 , 0.7980954E-02 ,& - & 0.7939544E-02 , 0.7898574E-02 , 0.7858037E-02 , 0.7817902E-02 , 0.7778158E-02 ,& - & 0.7738703E-02 , 0.7699814E-02 , 0.7661183E-02 , 0.7622996E-02 , 0.7585100E-02 ,& - & 0.7547590E-02 , 0.7510403E-02 , 0.7473565E-02 , 0.7437170E-02 , 0.7401152E-02 ,& - & 0.7365360E-02 , 0.7329856E-02 , 0.7294781E-02 , 0.7260076E-02 , 0.7225542E-02 /) - absice4(:, 13) = (/ & - & 0.7048990E-01 , 0.7855639E-01 , 0.8212429E-01 , 0.8289183E-01 , 0.8209244E-01 ,& - & 0.8049434E-01 , 0.7848005E-01 , 0.7624222E-01 , 0.7388593E-01 , 0.7147966E-01 ,& - & 0.6907652E-01 , 0.6671560E-01 , 0.6442613E-01 , 0.6222782E-01 , 0.6013142E-01 ,& - & 0.5814109E-01 , 0.5625683E-01 , 0.5447724E-01 , 0.5279362E-01 , 0.5120403E-01 ,& - & 0.4970152E-01 , 0.4828129E-01 , 0.4693533E-01 , 0.4565854E-01 , 0.4444838E-01 ,& - & 0.4329771E-01 , 0.4220313E-01 , 0.4116017E-01 , 0.4016606E-01 , 0.3921735E-01 ,& - & 0.3831147E-01 , 0.3744432E-01 , 0.3661390E-01 , 0.3581859E-01 , 0.3505625E-01 ,& - & 0.3432364E-01 , 0.3362067E-01 , 0.3294416E-01 , 0.3229332E-01 , 0.3166698E-01 ,& - & 0.3106350E-01 , 0.3048175E-01 , 0.2992023E-01 , 0.2937843E-01 , 0.2885540E-01 ,& - & 0.2834916E-01 , 0.2785997E-01 , 0.2738677E-01 , 0.2692864E-01 , 0.2648498E-01 ,& - & 0.2605503E-01 , 0.2563833E-01 , 0.2523417E-01 , 0.2484199E-01 , 0.2446127E-01 ,& - & 0.2409190E-01 , 0.2373272E-01 , 0.2338351E-01 , 0.2304438E-01 , 0.2271429E-01 ,& - & 0.2239317E-01 , 0.2208081E-01 , 0.2177652E-01 , 0.2148005E-01 , 0.2119127E-01 ,& - & 0.2090993E-01 , 0.2063591E-01 , 0.2036820E-01 , 0.2010734E-01 , 0.1985286E-01 ,& - & 0.1960447E-01 , 0.1936188E-01 , 0.1912498E-01 , 0.1889383E-01 , 0.1866765E-01 ,& - & 0.1844694E-01 , 0.1823093E-01 , 0.1801995E-01 , 0.1781340E-01 , 0.1761155E-01 ,& - & 0.1741400E-01 , 0.1722062E-01 , 0.1703127E-01 , 0.1684600E-01 , 0.1666461E-01 ,& - & 0.1648704E-01 , 0.1631284E-01 , 0.1614235E-01 , 0.1597511E-01 , 0.1581126E-01 ,& - & 0.1565064E-01 , 0.1549318E-01 , 0.1533871E-01 , 0.1518718E-01 , 0.1503847E-01 ,& - & 0.1489258E-01 , 0.1474944E-01 , 0.1460891E-01 , 0.1447101E-01 , 0.1433550E-01 ,& - & 0.1420252E-01 , 0.1407192E-01 , 0.1394362E-01 , 0.1381762E-01 , 0.1369371E-01 ,& - & 0.1357198E-01 , 0.1345234E-01 , 0.1333470E-01 , 0.1321908E-01 , 0.1310538E-01 ,& - & 0.1299357E-01 , 0.1288357E-01 , 0.1277541E-01 , 0.1266894E-01 , 0.1256429E-01 ,& - & 0.1246121E-01 , 0.1235983E-01 , 0.1226000E-01 , 0.1216174E-01 , 0.1206502E-01 ,& - & 0.1196978E-01 , 0.1187600E-01 , 0.1178362E-01 , 0.1169265E-01 , 0.1160303E-01 ,& - & 0.1151476E-01 , 0.1142779E-01 , 0.1134208E-01 , 0.1125761E-01 , 0.1117440E-01 ,& - & 0.1109234E-01 , 0.1101148E-01 , 0.1093175E-01 , 0.1085316E-01 , 0.1077564E-01 ,& - & 0.1069922E-01 , 0.1062382E-01 , 0.1054947E-01 , 0.1047615E-01 , 0.1040384E-01 ,& - & 0.1033245E-01 , 0.1026204E-01 , 0.1019257E-01 , 0.1012400E-01 , 0.1005638E-01 ,& - & 0.9989594E-02 , 0.9923684E-02 , 0.9858606E-02 , 0.9794370E-02 , 0.9730957E-02 ,& - & 0.9668347E-02 , 0.9606508E-02 , 0.9545457E-02 , 0.9485086E-02 , 0.9425581E-02 ,& - & 0.9366722E-02 , 0.9308609E-02 , 0.9251215E-02 , 0.9194500E-02 , 0.9138465E-02 ,& - & 0.9083097E-02 , 0.9028401E-02 , 0.8974335E-02 , 0.8920911E-02 , 0.8868096E-02 ,& - & 0.8815915E-02 , 0.8764313E-02 , 0.8713313E-02 , 0.8662886E-02 , 0.8613040E-02 ,& - & 0.8563751E-02 , 0.8515026E-02 , 0.8466822E-02 , 0.8419185E-02 , 0.8372060E-02 ,& - & 0.8325432E-02 , 0.8279367E-02 , 0.8233733E-02 , 0.8188660E-02 , 0.8144042E-02 ,& - & 0.8099861E-02 , 0.8056186E-02 , 0.8012990E-02 , 0.7970259E-02 , 0.7927964E-02 ,& - & 0.7886007E-02 , 0.7844678E-02 , 0.7803643E-02 , 0.7763108E-02 , 0.7722905E-02 ,& - & 0.7683137E-02 , 0.7643731E-02 , 0.7604721E-02 , 0.7566193E-02 , 0.7528087E-02 ,& - & 0.7490253E-02 , 0.7452734E-02 , 0.7415696E-02 , 0.7379058E-02 , 0.7342621E-02 /) - absice4(:, 14) = (/ & - & 0.7435944E-01 , 0.8300151E-01 , 0.8688792E-01 , 0.8781894E-01 , 0.8698697E-01 ,& - & 0.8522374E-01 , 0.8298247E-01 , 0.8049620E-01 , 0.7788935E-01 , 0.7523922E-01 ,& - & 0.7260300E-01 , 0.7002171E-01 , 0.6752570E-01 , 0.6513479E-01 , 0.6285974E-01 ,& - & 0.6070410E-01 , 0.5866707E-01 , 0.5674654E-01 , 0.5493267E-01 , 0.5322292E-01 ,& - & 0.5160941E-01 , 0.5008643E-01 , 0.4864534E-01 , 0.4728018E-01 , 0.4598802E-01 ,& - & 0.4476102E-01 , 0.4359530E-01 , 0.4248599E-01 , 0.4142991E-01 , 0.4042322E-01 ,& - & 0.3946301E-01 , 0.3854491E-01 , 0.3766656E-01 , 0.3682620E-01 , 0.3602141E-01 ,& - & 0.3524880E-01 , 0.3450807E-01 , 0.3379583E-01 , 0.3311123E-01 , 0.3245289E-01 ,& - & 0.3181909E-01 , 0.3120854E-01 , 0.3061969E-01 , 0.3005193E-01 , 0.2950415E-01 ,& - & 0.2897440E-01 , 0.2846277E-01 , 0.2796819E-01 , 0.2748969E-01 , 0.2702655E-01 ,& - & 0.2657799E-01 , 0.2614354E-01 , 0.2572235E-01 , 0.2531393E-01 , 0.2491762E-01 ,& - & 0.2453336E-01 , 0.2415990E-01 , 0.2379698E-01 , 0.2344472E-01 , 0.2310201E-01 ,& - & 0.2276881E-01 , 0.2244484E-01 , 0.2212939E-01 , 0.2182219E-01 , 0.2152313E-01 ,& - & 0.2123188E-01 , 0.2094833E-01 , 0.2067145E-01 , 0.2040177E-01 , 0.2013878E-01 ,& - & 0.1988223E-01 , 0.1963175E-01 , 0.1938725E-01 , 0.1914880E-01 , 0.1891558E-01 ,& - & 0.1868806E-01 , 0.1846547E-01 , 0.1824818E-01 , 0.1803550E-01 , 0.1782776E-01 ,& - & 0.1762451E-01 , 0.1742563E-01 , 0.1723094E-01 , 0.1704056E-01 , 0.1685419E-01 ,& - & 0.1667182E-01 , 0.1649297E-01 , 0.1631799E-01 , 0.1614641E-01 , 0.1597834E-01 ,& - & 0.1581366E-01 , 0.1565224E-01 , 0.1549397E-01 , 0.1533873E-01 , 0.1518645E-01 ,& - & 0.1503708E-01 , 0.1489058E-01 , 0.1474681E-01 , 0.1460574E-01 , 0.1446714E-01 ,& - & 0.1433120E-01 , 0.1419772E-01 , 0.1406660E-01 , 0.1393791E-01 , 0.1381135E-01 ,& - & 0.1368705E-01 , 0.1356492E-01 , 0.1344487E-01 , 0.1332691E-01 , 0.1321094E-01 ,& - & 0.1309691E-01 , 0.1298474E-01 , 0.1287448E-01 , 0.1276598E-01 , 0.1265935E-01 ,& - & 0.1255434E-01 , 0.1245109E-01 , 0.1234944E-01 , 0.1224941E-01 , 0.1215095E-01 ,& - & 0.1205403E-01 , 0.1195862E-01 , 0.1186464E-01 , 0.1177212E-01 , 0.1168099E-01 ,& - & 0.1159125E-01 , 0.1150284E-01 , 0.1141573E-01 , 0.1132990E-01 , 0.1124536E-01 ,& - & 0.1116201E-01 , 0.1107988E-01 , 0.1099892E-01 , 0.1091912E-01 , 0.1084043E-01 ,& - & 0.1076287E-01 , 0.1068636E-01 , 0.1061092E-01 , 0.1053653E-01 , 0.1046318E-01 ,& - & 0.1039078E-01 , 0.1031938E-01 , 0.1024895E-01 , 0.1017943E-01 , 0.1011089E-01 ,& - & 0.1004321E-01 , 0.9976418E-02 , 0.9910482E-02 , 0.9845391E-02 , 0.9781163E-02 ,& - & 0.9717750E-02 , 0.9655127E-02 , 0.9593316E-02 , 0.9532193E-02 , 0.9471956E-02 ,& - & 0.9412373E-02 , 0.9353555E-02 , 0.9295478E-02 , 0.9238095E-02 , 0.9181391E-02 ,& - & 0.9125392E-02 , 0.9070064E-02 , 0.9015372E-02 , 0.8961351E-02 , 0.8907943E-02 ,& - & 0.8855177E-02 , 0.8803016E-02 , 0.8751454E-02 , 0.8700491E-02 , 0.8650105E-02 ,& - & 0.8600302E-02 , 0.8551070E-02 , 0.8502361E-02 , 0.8454226E-02 , 0.8406628E-02 ,& - & 0.8359523E-02 , 0.8312996E-02 , 0.8266911E-02 , 0.8221395E-02 , 0.8176337E-02 ,& - & 0.8131738E-02 , 0.8087633E-02 , 0.8044029E-02 , 0.8000894E-02 , 0.7958217E-02 ,& - & 0.7915865E-02 , 0.7874154E-02 , 0.7832748E-02 , 0.7791847E-02 , 0.7751289E-02 ,& - & 0.7711162E-02 , 0.7671416E-02 , 0.7632062E-02 , 0.7593195E-02 , 0.7554769E-02 ,& - & 0.7516610E-02 , 0.7478775E-02 , 0.7441428E-02 , 0.7404482E-02 , 0.7367747E-02 /) - absice4(:, 15) = (/ & - & 0.4860886E-01 , 0.5537690E-01 , 0.5939421E-01 , 0.6117365E-01 , 0.6141138E-01 ,& - & 0.6083780E-01 , 0.5983812E-01 , 0.5859718E-01 , 0.5721138E-01 , 0.5574136E-01 ,& - & 0.5423342E-01 , 0.5272206E-01 , 0.5123409E-01 , 0.4978795E-01 , 0.4839501E-01 ,& - & 0.4706126E-01 , 0.4578897E-01 , 0.4457895E-01 , 0.4342648E-01 , 0.4233154E-01 ,& - & 0.4129016E-01 , 0.4029983E-01 , 0.3935565E-01 , 0.3845455E-01 , 0.3759540E-01 ,& - & 0.3677373E-01 , 0.3598761E-01 , 0.3523422E-01 , 0.3451207E-01 , 0.3381907E-01 ,& - & 0.3315369E-01 , 0.3251331E-01 , 0.3189681E-01 , 0.3130325E-01 , 0.3073138E-01 ,& - & 0.3017913E-01 , 0.2964653E-01 , 0.2913160E-01 , 0.2863381E-01 , 0.2815254E-01 ,& - & 0.2768677E-01 , 0.2723581E-01 , 0.2679860E-01 , 0.2637500E-01 , 0.2596439E-01 ,& - & 0.2556534E-01 , 0.2517821E-01 , 0.2480227E-01 , 0.2443695E-01 , 0.2408183E-01 ,& - & 0.2373645E-01 , 0.2340052E-01 , 0.2307358E-01 , 0.2275526E-01 , 0.2244517E-01 ,& - & 0.2214337E-01 , 0.2184898E-01 , 0.2156183E-01 , 0.2128212E-01 , 0.2100906E-01 ,& - & 0.2074261E-01 , 0.2048270E-01 , 0.2022879E-01 , 0.1998072E-01 , 0.1973845E-01 ,& - & 0.1950176E-01 , 0.1927064E-01 , 0.1904427E-01 , 0.1882311E-01 , 0.1860685E-01 ,& - & 0.1839526E-01 , 0.1818811E-01 , 0.1798534E-01 , 0.1778708E-01 , 0.1759264E-01 ,& - & 0.1740245E-01 , 0.1721595E-01 , 0.1703339E-01 , 0.1685430E-01 , 0.1667893E-01 ,& - & 0.1650695E-01 , 0.1633828E-01 , 0.1617277E-01 , 0.1601057E-01 , 0.1585145E-01 ,& - & 0.1569541E-01 , 0.1554205E-01 , 0.1539170E-01 , 0.1524395E-01 , 0.1509895E-01 ,& - & 0.1495658E-01 , 0.1481679E-01 , 0.1467943E-01 , 0.1454446E-01 , 0.1441181E-01 ,& - & 0.1428149E-01 , 0.1415341E-01 , 0.1402749E-01 , 0.1390375E-01 , 0.1378197E-01 ,& - & 0.1366232E-01 , 0.1354463E-01 , 0.1342886E-01 , 0.1331502E-01 , 0.1320292E-01 ,& - & 0.1309264E-01 , 0.1298412E-01 , 0.1287728E-01 , 0.1277217E-01 , 0.1266867E-01 ,& - & 0.1256676E-01 , 0.1246638E-01 , 0.1236757E-01 , 0.1227020E-01 , 0.1217438E-01 ,& - & 0.1207990E-01 , 0.1198687E-01 , 0.1189518E-01 , 0.1180483E-01 , 0.1171579E-01 ,& - & 0.1162804E-01 , 0.1154157E-01 , 0.1145626E-01 , 0.1137219E-01 , 0.1128930E-01 ,& - & 0.1120758E-01 , 0.1112698E-01 , 0.1104748E-01 , 0.1096906E-01 , 0.1089174E-01 ,& - & 0.1081542E-01 , 0.1074015E-01 , 0.1066588E-01 , 0.1059260E-01 , 0.1052026E-01 ,& - & 0.1044890E-01 , 0.1037843E-01 , 0.1030889E-01 , 0.1024025E-01 , 0.1017250E-01 ,& - & 0.1010558E-01 , 0.1003951E-01 , 0.9974295E-02 , 0.9909872E-02 , 0.9846289E-02 ,& - & 0.9783447E-02 , 0.9721389E-02 , 0.9660077E-02 , 0.9599508E-02 , 0.9539680E-02 ,& - & 0.9480577E-02 , 0.9422157E-02 , 0.9364453E-02 , 0.9307345E-02 , 0.9251029E-02 ,& - & 0.9195290E-02 , 0.9140226E-02 , 0.9085805E-02 , 0.9031995E-02 , 0.8978802E-02 ,& - & 0.8926218E-02 , 0.8874246E-02 , 0.8822831E-02 , 0.8772007E-02 , 0.8721734E-02 ,& - & 0.8672044E-02 , 0.8622875E-02 , 0.8574254E-02 , 0.8526157E-02 , 0.8478578E-02 ,& - & 0.8431531E-02 , 0.8384986E-02 , 0.8338917E-02 , 0.8293363E-02 , 0.8248281E-02 ,& - & 0.8203656E-02 , 0.8159554E-02 , 0.8115833E-02 , 0.8072644E-02 , 0.8029863E-02 ,& - & 0.7987492E-02 , 0.7945571E-02 , 0.7904110E-02 , 0.7863070E-02 , 0.7822440E-02 ,& - & 0.7782107E-02 , 0.7742366E-02 , 0.7702901E-02 , 0.7663889E-02 , 0.7625191E-02 ,& - & 0.7586881E-02 , 0.7548926E-02 , 0.7511328E-02 , 0.7474182E-02 , 0.7437435E-02 ,& - & 0.7400930E-02 , 0.7364721E-02 , 0.7328955E-02 , 0.7293573E-02 , 0.7258368E-02 /) - absice4(:, 16) = (/ & - & 0.1371110E+00 , 0.1263437E+00 , 0.1138219E+00 , 0.1031942E+00 , 0.9464203E-01 ,& - & 0.8767045E-01 , 0.8183866E-01 , 0.7683717E-01 , 0.7245801E-01 , 0.6856512E-01 ,& - & 0.6507240E-01 , 0.6191926E-01 , 0.5906262E-01 , 0.5646807E-01 , 0.5410580E-01 ,& - & 0.5194927E-01 , 0.4997518E-01 , 0.4816421E-01 , 0.4649395E-01 , 0.4495197E-01 ,& - & 0.4352304E-01 , 0.4219576E-01 , 0.4095744E-01 , 0.3979897E-01 , 0.3871448E-01 ,& - & 0.3769469E-01 , 0.3673410E-01 , 0.3582698E-01 , 0.3496906E-01 , 0.3415615E-01 ,& - & 0.3338472E-01 , 0.3265037E-01 , 0.3195064E-01 , 0.3128339E-01 , 0.3064628E-01 ,& - & 0.3003615E-01 , 0.2945239E-01 , 0.2889207E-01 , 0.2835424E-01 , 0.2783764E-01 ,& - & 0.2734070E-01 , 0.2686233E-01 , 0.2640112E-01 , 0.2595654E-01 , 0.2552762E-01 ,& - & 0.2511272E-01 , 0.2471195E-01 , 0.2432435E-01 , 0.2394912E-01 , 0.2358571E-01 ,& - & 0.2323346E-01 , 0.2289199E-01 , 0.2256062E-01 , 0.2223899E-01 , 0.2192652E-01 ,& - & 0.2162318E-01 , 0.2132805E-01 , 0.2104083E-01 , 0.2076170E-01 , 0.2048975E-01 ,& - & 0.2022498E-01 , 0.1996714E-01 , 0.1971574E-01 , 0.1947053E-01 , 0.1923143E-01 ,& - & 0.1899821E-01 , 0.1877081E-01 , 0.1854839E-01 , 0.1833139E-01 , 0.1811944E-01 ,& - & 0.1791232E-01 , 0.1770979E-01 , 0.1751175E-01 , 0.1731830E-01 , 0.1712875E-01 ,& - & 0.1694354E-01 , 0.1676205E-01 , 0.1658457E-01 , 0.1641057E-01 , 0.1624031E-01 ,& - & 0.1607347E-01 , 0.1590993E-01 , 0.1574957E-01 , 0.1559250E-01 , 0.1543850E-01 ,& - & 0.1528754E-01 , 0.1513927E-01 , 0.1499397E-01 , 0.1485124E-01 , 0.1471122E-01 ,& - & 0.1457379E-01 , 0.1443890E-01 , 0.1430642E-01 , 0.1417625E-01 , 0.1404839E-01 ,& - & 0.1392277E-01 , 0.1379936E-01 , 0.1367808E-01 , 0.1355890E-01 , 0.1344163E-01 ,& - & 0.1332644E-01 , 0.1321315E-01 , 0.1310174E-01 , 0.1299219E-01 , 0.1288432E-01 ,& - & 0.1277823E-01 , 0.1267383E-01 , 0.1257107E-01 , 0.1246995E-01 , 0.1237042E-01 ,& - & 0.1227242E-01 , 0.1217589E-01 , 0.1208087E-01 , 0.1198723E-01 , 0.1189508E-01 ,& - & 0.1180423E-01 , 0.1171478E-01 , 0.1162661E-01 , 0.1153972E-01 , 0.1145410E-01 ,& - & 0.1136972E-01 , 0.1128655E-01 , 0.1120451E-01 , 0.1112365E-01 , 0.1104392E-01 ,& - & 0.1096532E-01 , 0.1088778E-01 , 0.1081130E-01 , 0.1073585E-01 , 0.1066146E-01 ,& - & 0.1058802E-01 , 0.1051558E-01 , 0.1044411E-01 , 0.1037357E-01 , 0.1030394E-01 ,& - & 0.1023524E-01 , 0.1016739E-01 , 0.1010042E-01 , 0.1003431E-01 , 0.9969062E-02 ,& - & 0.9904598E-02 , 0.9840964E-02 , 0.9778117E-02 , 0.9716044E-02 , 0.9654765E-02 ,& - & 0.9594198E-02 , 0.9534383E-02 , 0.9475265E-02 , 0.9416858E-02 , 0.9359164E-02 ,& - & 0.9302156E-02 , 0.9245805E-02 , 0.9190131E-02 , 0.9135040E-02 , 0.9080692E-02 ,& - & 0.9026886E-02 , 0.8973733E-02 , 0.8921186E-02 , 0.8869237E-02 , 0.8817863E-02 ,& - & 0.8767076E-02 , 0.8716858E-02 , 0.8667196E-02 , 0.8618085E-02 , 0.8569493E-02 ,& - & 0.8521454E-02 , 0.8473919E-02 , 0.8426909E-02 , 0.8380398E-02 , 0.8334377E-02 ,& - & 0.8288868E-02 , 0.8243834E-02 , 0.8199251E-02 , 0.8155166E-02 , 0.8111528E-02 ,& - & 0.8068328E-02 , 0.8025627E-02 , 0.7983285E-02 , 0.7941457E-02 , 0.7900015E-02 ,& - & 0.7858957E-02 , 0.7818337E-02 , 0.7778154E-02 , 0.7738378E-02 , 0.7698989E-02 ,& - & 0.7659886E-02 , 0.7621341E-02 , 0.7583064E-02 , 0.7545216E-02 , 0.7507672E-02 ,& - & 0.7470503E-02 , 0.7433670E-02 , 0.7397174E-02 , 0.7361118E-02 , 0.7325431E-02 ,& - & 0.7289980E-02 , 0.7254812E-02 , 0.7220077E-02 , 0.7185708E-02 , 0.7151500E-02 /) - - end subroutine lwcldpr - -end module rrtmg_lw_init diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_01.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_01.F90 deleted file mode 100644 index bad1b2020..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_01.F90 +++ /dev/null @@ -1,2235 +0,0 @@ -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** -subroutine lw_kgb01 -! ************************************************************************** - - use rrlw_kg01, only : fracrefao, fracrefbo, kao, kbo, kao_mn2, kbo_mn2, & - selfrefo, forrefo - implicit none - save - -! Planck fraction mapping level: P = 212.7250 mbar, T = 223.06 K - fracrefao(:) = (/ & - 2.1227E-01 ,1.8897E-01 ,1.3934E-01 ,1.1557E-01 ,9.5282E-02 ,8.3359E-02 , & - 6.5333E-02 ,5.2016E-02 ,3.4272E-02 ,4.0257E-03 ,3.1857E-03 ,2.6014E-03 , & - 1.9141E-03 ,1.2612E-03 ,5.3169E-04 ,7.6476E-05 /) - -! Planck fraction mapping level: P = 212.7250 mbar, T = 223.06 K -! These Planck fractions were calculated using lower atmosphere -! parameters. - fracrefbo(:) = (/ & - 2.1227E-01 ,1.8897E-01 ,1.3934E-01 ,1.1557E-01 ,9.5282E-02 ,8.3359E-02 , & - 6.5333E-02 ,5.2016E-02 ,3.4272E-02 ,4.0257E-03 ,3.1857E-03 ,2.6014E-03 , & - 1.9141E-03 ,1.2612E-03 ,5.3169E-04 ,7.6476E-05 /) - -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels > ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the corresponding TREF for this pressure level, -! JT = 2 refers to the temperature TREF-15, JT = 1 is for TREF-30, -! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second -! index, JP, runs from 1 to 13 and refers to the corresponding -! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). -! The third index, IG, goes from 1 to 16, and tells us which -! g-interval the absorption coefficients are for. - - kao(:, 1, 1) = (/ & - &1.1936e-01 ,1.2127e-01 ,1.2290e-01 ,1.2324e-01 ,1.2302e-01 /) - kao(:, 2, 1) = (/ & - &9.3666e-02 ,9.6336e-02 ,9.8457e-02 ,9.9155e-02 ,9.9330e-02 /) - kao(:, 3, 1) = (/ & - &7.3480e-02 ,7.5571e-02 ,7.7998e-02 ,7.9619e-02 ,8.0000e-02 /) - kao(:, 4, 1) = (/ & - &5.8417e-02 ,6.0062e-02 ,6.2150e-02 ,6.4024e-02 ,6.4943e-02 /) - kao(:, 5, 1) = (/ & - &4.6742e-02 ,4.8171e-02 ,4.9840e-02 ,5.1580e-02 ,5.2974e-02 /) - kao(:, 6, 1) = (/ & - &3.7093e-02 ,3.8712e-02 ,4.0031e-02 ,4.1473e-02 ,4.2868e-02 /) - kao(:, 7, 1) = (/ & - &2.9515e-02 ,3.1114e-02 ,3.2344e-02 ,3.3496e-02 ,3.4715e-02 /) - kao(:, 8, 1) = (/ & - &2.3548e-02 ,2.5012e-02 ,2.6176e-02 ,2.7253e-02 ,2.8263e-02 /) - kao(:, 9, 1) = (/ & - &1.9136e-02 ,2.0420e-02 ,2.1607e-02 ,2.2607e-02 ,2.3502e-02 /) - kao(:,10, 1) = (/ & - &1.6947e-02 ,1.8986e-02 ,2.0617e-02 ,2.1896e-02 ,2.2928e-02 /) - kao(:,11, 1) = (/ & - &1.4724e-02 ,1.6490e-02 ,1.8468e-02 ,1.9875e-02 ,2.1095e-02 /) - kao(:,12, 1) = (/ & - &1.2332e-02 ,1.3992e-02 ,1.5549e-02 ,1.7137e-02 ,1.8190e-02 /) - kao(:,13, 1) = (/ & - &1.0144e-02 ,1.1539e-02 ,1.2861e-02 ,1.4225e-02 ,1.5224e-02 /) - kao(:, 1, 2) = (/ & - &3.5138e-01 ,3.5502e-01 ,3.5774e-01 ,3.5894e-01 ,3.5740e-01 /) - kao(:, 2, 2) = (/ & - &2.8740e-01 ,2.8961e-01 ,2.9119e-01 ,2.9268e-01 ,2.9128e-01 /) - kao(:, 3, 2) = (/ & - &2.3142e-01 ,2.3495e-01 ,2.3595e-01 ,2.3731e-01 ,2.3828e-01 /) - kao(:, 4, 2) = (/ & - &1.8684e-01 ,1.9090e-01 ,1.9387e-01 ,1.9355e-01 ,1.9518e-01 /) - kao(:, 5, 2) = (/ & - &1.5108e-01 ,1.5525e-01 ,1.5832e-01 ,1.5904e-01 ,1.5962e-01 /) - kao(:, 6, 2) = (/ & - &1.2219e-01 ,1.2585e-01 ,1.2901e-01 ,1.3090e-01 ,1.3158e-01 /) - kao(:, 7, 2) = (/ & - &9.8743e-02 ,1.0185e-01 ,1.0506e-01 ,1.0763e-01 ,1.0820e-01 /) - kao(:, 8, 2) = (/ & - &7.9966e-02 ,8.2922e-02 ,8.5859e-02 ,8.8462e-02 ,8.9282e-02 /) - kao(:, 9, 2) = (/ & - &6.5726e-02 ,6.8954e-02 ,7.1786e-02 ,7.3678e-02 ,7.5233e-02 /) - kao(:,10, 2) = (/ & - &6.0011e-02 ,6.2230e-02 ,6.5254e-02 ,6.7031e-02 ,6.9052e-02 /) - kao(:,11, 2) = (/ & - &5.5743e-02 ,5.7099e-02 ,5.8802e-02 ,6.0875e-02 ,6.2690e-02 /) - kao(:,12, 2) = (/ & - &4.9598e-02 ,5.1234e-02 ,5.2659e-02 ,5.3951e-02 ,5.5431e-02 /) - kao(:,13, 2) = (/ & - &4.1938e-02 ,4.3540e-02 ,4.4990e-02 ,4.6074e-02 ,4.6999e-02 /) - kao(:, 1, 3) = (/ & - &8.4590e-01 ,8.4151e-01 ,8.3682e-01 ,8.3729e-01 ,8.3944e-01 /) - kao(:, 2, 3) = (/ & - &6.8809e-01 ,6.8696e-01 ,6.8512e-01 ,6.8470e-01 ,6.8864e-01 /) - kao(:, 3, 3) = (/ & - &5.6065e-01 ,5.5891e-01 ,5.5871e-01 ,5.5784e-01 ,5.6029e-01 /) - kao(:, 4, 3) = (/ & - &4.6097e-01 ,4.6021e-01 ,4.5874e-01 ,4.6110e-01 ,4.6088e-01 /) - kao(:, 5, 3) = (/ & - &3.8076e-01 ,3.8128e-01 ,3.8007e-01 ,3.8126e-01 ,3.8214e-01 /) - kao(:, 6, 3) = (/ & - &3.1396e-01 ,3.1576e-01 ,3.1554e-01 ,3.1478e-01 ,3.1602e-01 /) - kao(:, 7, 3) = (/ & - &2.5841e-01 ,2.6039e-01 ,2.6160e-01 ,2.6034e-01 ,2.6147e-01 /) - kao(:, 8, 3) = (/ & - &2.1354e-01 ,2.1540e-01 ,2.1664e-01 ,2.1675e-01 ,2.1689e-01 /) - kao(:, 9, 3) = (/ & - &1.8409e-01 ,1.8340e-01 ,1.8423e-01 ,1.8535e-01 ,1.8550e-01 /) - kao(:,10, 3) = (/ & - &1.7687e-01 ,1.8149e-01 ,1.8138e-01 ,1.8043e-01 ,1.8050e-01 /) - kao(:,11, 3) = (/ & - &1.6660e-01 ,1.6980e-01 ,1.7005e-01 ,1.7156e-01 ,1.6983e-01 /) - kao(:,12, 3) = (/ & - &1.4699e-01 ,1.5037e-01 ,1.5032e-01 ,1.5012e-01 ,1.5041e-01 /) - kao(:,13, 3) = (/ & - &1.2497e-01 ,1.2733e-01 ,1.2732e-01 ,1.2710e-01 ,1.2722e-01 /) - kao(:, 1, 4) = (/ & - &1.8528e+00 ,1.8358e+00 ,1.8100e+00 ,1.7728e+00 ,1.7348e+00 /) - kao(:, 2, 4) = (/ & - &1.5191e+00 ,1.5067e+00 ,1.4864e+00 ,1.4586e+00 ,1.4273e+00 /) - kao(:, 3, 4) = (/ & - &1.2421e+00 ,1.2332e+00 ,1.2184e+00 ,1.1999e+00 ,1.1763e+00 /) - kao(:, 4, 4) = (/ & - &1.0235e+00 ,1.0199e+00 ,1.0105e+00 ,9.9649e-01 ,9.8141e-01 /) - kao(:, 5, 4) = (/ & - &8.4444e-01 ,8.4579e-01 ,8.4104e-01 ,8.3201e-01 ,8.2148e-01 /) - kao(:, 6, 4) = (/ & - &6.9623e-01 ,7.0066e-01 ,6.9879e-01 ,6.9507e-01 ,6.8745e-01 /) - kao(:, 7, 4) = (/ & - &5.7271e-01 ,5.7848e-01 ,5.7971e-01 ,5.7773e-01 ,5.7376e-01 /) - kao(:, 8, 4) = (/ & - &4.7082e-01 ,4.7730e-01 ,4.8061e-01 ,4.7996e-01 ,4.7783e-01 /) - kao(:, 9, 4) = (/ & - &3.8997e-01 ,3.9821e-01 ,4.0249e-01 ,4.0315e-01 ,4.0145e-01 /) - kao(:,10, 4) = (/ & - &3.5012e-01 ,3.4335e-01 ,3.3833e-01 ,3.3654e-01 ,3.3448e-01 /) - kao(:,11, 4) = (/ & - &3.1060e-01 ,3.1084e-01 ,3.0440e-01 ,2.9201e-01 ,2.8482e-01 /) - kao(:,12, 4) = (/ & - &2.7883e-01 ,2.7190e-01 ,2.6805e-01 ,2.5917e-01 ,2.4860e-01 /) - kao(:,13, 4) = (/ & - &2.3244e-01 ,2.2666e-01 ,2.2365e-01 ,2.1647e-01 ,2.0828e-01 /) - kao(:, 1, 5) = (/ & - &3.3225e+00 ,3.2784e+00 ,3.2423e+00 ,3.2074e+00 ,3.1704e+00 /) - kao(:, 2, 5) = (/ & - &2.7581e+00 ,2.7256e+00 ,2.6962e+00 ,2.6686e+00 ,2.6375e+00 /) - kao(:, 3, 5) = (/ & - &2.2798e+00 ,2.2570e+00 ,2.2330e+00 ,2.2089e+00 ,2.1829e+00 /) - kao(:, 4, 5) = (/ & - &1.8979e+00 ,1.8796e+00 ,1.8601e+00 ,1.8393e+00 ,1.8181e+00 /) - kao(:, 5, 5) = (/ & - &1.5861e+00 ,1.5695e+00 ,1.5550e+00 ,1.5372e+00 ,1.5203e+00 /) - kao(:, 6, 5) = (/ & - &1.3252e+00 ,1.3124e+00 ,1.3013e+00 ,1.2872e+00 ,1.2740e+00 /) - kao(:, 7, 5) = (/ & - &1.1027e+00 ,1.0966e+00 ,1.0870e+00 ,1.0776e+00 ,1.0667e+00 /) - kao(:, 8, 5) = (/ & - &9.1563e-01 ,9.1410e-01 ,9.0764e-01 ,8.9982e-01 ,8.9251e-01 /) - kao(:, 9, 5) = (/ & - &7.6595e-01 ,7.6784e-01 ,7.6494e-01 ,7.5888e-01 ,7.5288e-01 /) - kao(:,10, 5) = (/ & - &6.3388e-01 ,6.4169e-01 ,6.4724e-01 ,6.4562e-01 ,6.3971e-01 /) - kao(:,11, 5) = (/ & - &5.2794e-01 ,5.2411e-01 ,5.2455e-01 ,5.2936e-01 ,5.2927e-01 /) - kao(:,12, 5) = (/ & - &4.3721e-01 ,4.3826e-01 ,4.3490e-01 ,4.3598e-01 ,4.3794e-01 /) - kao(:,13, 5) = (/ & - &3.6693e-01 ,3.6670e-01 ,3.6374e-01 ,3.6513e-01 ,3.6694e-01 /) - kao(:, 1, 6) = (/ & - &6.6283e+00 ,6.5357e+00 ,6.4205e+00 ,6.3046e+00 ,6.1937e+00 /) - kao(:, 2, 6) = (/ & - &5.5921e+00 ,5.5122e+00 ,5.4227e+00 ,5.3355e+00 ,5.2548e+00 /) - kao(:, 3, 6) = (/ & - &4.6918e+00 ,4.6295e+00 ,4.5667e+00 ,4.5016e+00 ,4.4390e+00 /) - kao(:, 4, 6) = (/ & - &3.9477e+00 ,3.9046e+00 ,3.8607e+00 ,3.8148e+00 ,3.7628e+00 /) - kao(:, 5, 6) = (/ & - &3.3255e+00 ,3.2963e+00 ,3.2647e+00 ,3.2299e+00 ,3.1875e+00 /) - kao(:, 6, 6) = (/ & - &2.7972e+00 ,2.7784e+00 ,2.7561e+00 ,2.7282e+00 ,2.6941e+00 /) - kao(:, 7, 6) = (/ & - &2.3458e+00 ,2.3342e+00 ,2.3185e+00 ,2.2969e+00 ,2.2704e+00 /) - kao(:, 8, 6) = (/ & - &1.9572e+00 ,1.9527e+00 ,1.9423e+00 ,1.9266e+00 ,1.9056e+00 /) - kao(:, 9, 6) = (/ & - &1.6385e+00 ,1.6357e+00 ,1.6281e+00 ,1.6171e+00 ,1.6000e+00 /) - kao(:,10, 6) = (/ & - &1.4144e+00 ,1.4143e+00 ,1.4078e+00 ,1.4009e+00 ,1.3895e+00 /) - kao(:,11, 6) = (/ & - &1.1820e+00 ,1.1847e+00 ,1.1842e+00 ,1.1773e+00 ,1.1681e+00 /) - kao(:,12, 6) = (/ & - &9.7725e-01 ,9.8091e-01 ,9.8204e-01 ,9.7703e-01 ,9.7159e-01 /) - kao(:,13, 6) = (/ & - &8.1815e-01 ,8.2185e-01 ,8.2056e-01 ,8.1693e-01 ,8.1119e-01 /) - kao(:, 1, 7) = (/ & - &1.4313e+01 ,1.4082e+01 ,1.3850e+01 ,1.3623e+01 ,1.3382e+01 /) - kao(:, 2, 7) = (/ & - &1.2515e+01 ,1.2314e+01 ,1.2108e+01 ,1.1882e+01 ,1.1633e+01 /) - kao(:, 3, 7) = (/ & - &1.0802e+01 ,1.0631e+01 ,1.0439e+01 ,1.0228e+01 ,1.0005e+01 /) - kao(:, 4, 7) = (/ & - &9.2958e+00 ,9.1469e+00 ,8.9753e+00 ,8.7884e+00 ,8.6020e+00 /) - kao(:, 5, 7) = (/ & - &7.9646e+00 ,7.8400e+00 ,7.6929e+00 ,7.5385e+00 ,7.3901e+00 /) - kao(:, 6, 7) = (/ & - &6.7986e+00 ,6.6983e+00 ,6.5761e+00 ,6.4518e+00 ,6.3346e+00 /) - kao(:, 7, 7) = (/ & - &5.7703e+00 ,5.6909e+00 ,5.5962e+00 ,5.4989e+00 ,5.4062e+00 /) - kao(:, 8, 7) = (/ & - &4.8763e+00 ,4.8159e+00 ,4.7441e+00 ,4.6692e+00 ,4.5978e+00 /) - kao(:, 9, 7) = (/ & - &4.0868e+00 ,4.0475e+00 ,3.9918e+00 ,3.9346e+00 ,3.8784e+00 /) - kao(:,10, 7) = (/ & - &3.5589e+00 ,3.5215e+00 ,3.4698e+00 ,3.4096e+00 ,3.3531e+00 /) - kao(:,11, 7) = (/ & - &3.0702e+00 ,3.0357e+00 ,2.9927e+00 ,2.9456e+00 ,2.8950e+00 /) - kao(:,12, 7) = (/ & - &2.6022e+00 ,2.5722e+00 ,2.5392e+00 ,2.5002e+00 ,2.4548e+00 /) - kao(:,13, 7) = (/ & - &2.1727e+00 ,2.1507e+00 ,2.1220e+00 ,2.0892e+00 ,2.0541e+00 /) - kao(:, 1, 8) = (/ & - &3.4174e+01 ,3.3741e+01 ,3.3273e+01 ,3.2762e+01 ,3.2231e+01 /) - kao(:, 2, 8) = (/ & - &3.1501e+01 ,3.1077e+01 ,3.0621e+01 ,3.0167e+01 ,2.9717e+01 /) - kao(:, 3, 8) = (/ & - &2.8624e+01 ,2.8247e+01 ,2.7846e+01 ,2.7455e+01 ,2.7037e+01 /) - kao(:, 4, 8) = (/ & - &2.5860e+01 ,2.5530e+01 ,2.5179e+01 ,2.4813e+01 ,2.4424e+01 /) - kao(:, 5, 8) = (/ & - &2.3133e+01 ,2.2868e+01 ,2.2552e+01 ,2.2222e+01 ,2.1874e+01 /) - kao(:, 6, 8) = (/ & - &2.0417e+01 ,2.0203e+01 ,1.9954e+01 ,1.9685e+01 ,1.9370e+01 /) - kao(:, 7, 8) = (/ & - &1.7808e+01 ,1.7656e+01 ,1.7468e+01 ,1.7234e+01 ,1.6957e+01 /) - kao(:, 8, 8) = (/ & - &1.5349e+01 ,1.5257e+01 ,1.5109e+01 ,1.4918e+01 ,1.4683e+01 /) - kao(:, 9, 8) = (/ & - &1.3085e+01 ,1.3031e+01 ,1.2930e+01 ,1.2779e+01 ,1.2590e+01 /) - kao(:,10, 8) = (/ & - &1.0971e+01 ,1.0917e+01 ,1.0852e+01 ,1.0748e+01 ,1.0603e+01 /) - kao(:,11, 8) = (/ & - &9.5673e+00 ,9.4985e+00 ,9.4337e+00 ,9.3153e+00 ,9.1800e+00 /) - kao(:,12, 8) = (/ & - &8.2885e+00 ,8.2471e+00 ,8.1591e+00 ,8.0541e+00 ,7.9348e+00 /) - kao(:,13, 8) = (/ & - &7.1017e+00 ,7.0462e+00 ,6.9629e+00 ,6.8569e+00 ,6.7518e+00 /) - kao(:, 1, 9) = (/ & - &9.9761e+01 ,9.8762e+01 ,9.7605e+01 ,9.6340e+01 ,9.4995e+01 /) - kao(:, 2, 9) = (/ & - &9.9948e+01 ,9.8866e+01 ,9.7644e+01 ,9.6363e+01 ,9.4985e+01 /) - kao(:, 3, 9) = (/ & - &9.9007e+01 ,9.8007e+01 ,9.6838e+01 ,9.5570e+01 ,9.4251e+01 /) - kao(:, 4, 9) = (/ & - &9.6662e+01 ,9.5791e+01 ,9.4804e+01 ,9.3746e+01 ,9.2558e+01 /) - kao(:, 5, 9) = (/ & - &9.3093e+01 ,9.2470e+01 ,9.1704e+01 ,9.0779e+01 ,8.9739e+01 /) - kao(:, 6, 9) = (/ & - &8.8508e+01 ,8.8114e+01 ,8.7530e+01 ,8.6816e+01 ,8.5948e+01 /) - kao(:, 7, 9) = (/ & - &8.2974e+01 ,8.2771e+01 ,8.2394e+01 ,8.1879e+01 ,8.1118e+01 /) - kao(:, 8, 9) = (/ & - &7.6684e+01 ,7.6645e+01 ,7.6457e+01 ,7.6020e+01 ,7.5326e+01 /) - kao(:, 9, 9) = (/ & - &6.9973e+01 ,7.0055e+01 ,6.9978e+01 ,6.9596e+01 ,6.8941e+01 /) - kao(:,10, 9) = (/ & - &6.2676e+01 ,6.2928e+01 ,6.2907e+01 ,6.2549e+01 ,6.1993e+01 /) - kao(:,11, 9) = (/ & - &5.5263e+01 ,5.5480e+01 ,5.5306e+01 ,5.4944e+01 ,5.4442e+01 /) - kao(:,12, 9) = (/ & - &4.8636e+01 ,4.8624e+01 ,4.8458e+01 ,4.8148e+01 ,4.7712e+01 /) - kao(:,13, 9) = (/ & - &4.2167e+01 ,4.2169e+01 ,4.2037e+01 ,4.1794e+01 ,4.1453e+01 /) - kao(:, 1,10) = (/ & - &2.2059e+02 ,2.1997e+02 ,2.1921e+02 ,2.1843e+02 ,2.1743e+02 /) - kao(:, 2,10) = (/ & - &2.3102e+02 ,2.3132e+02 ,2.3151e+02 ,2.3081e+02 ,2.3008e+02 /) - kao(:, 3,10) = (/ & - &2.4111e+02 ,2.4197e+02 ,2.4166e+02 ,2.4016e+02 ,2.3836e+02 /) - kao(:, 4,10) = (/ & - &2.5158e+02 ,2.5229e+02 ,2.5082e+02 ,2.4795e+02 ,2.4522e+02 /) - kao(:, 5,10) = (/ & - &2.5765e+02 ,2.5772e+02 ,2.5582e+02 ,2.5268e+02 ,2.4923e+02 /) - kao(:, 6,10) = (/ & - &2.5856e+02 ,2.5749e+02 ,2.5502e+02 ,2.5166e+02 ,2.4826e+02 /) - kao(:, 7,10) = (/ & - &2.5368e+02 ,2.5237e+02 ,2.4999e+02 ,2.4711e+02 ,2.4470e+02 /) - kao(:, 8,10) = (/ & - &2.4476e+02 ,2.4415e+02 ,2.4213e+02 ,2.4060e+02 ,2.3968e+02 /) - kao(:, 9,10) = (/ & - &2.3178e+02 ,2.3169e+02 ,2.3048e+02 ,2.3066e+02 ,2.3132e+02 /) - kao(:,10,10) = (/ & - &2.1736e+02 ,2.1726e+02 ,2.1730e+02 ,2.1880e+02 ,2.1934e+02 /) - kao(:,11,10) = (/ & - &2.0114e+02 ,2.0172e+02 ,2.0351e+02 ,2.0457e+02 ,2.0387e+02 /) - kao(:,12,10) = (/ & - &1.8488e+02 ,1.8650e+02 ,1.8715e+02 ,1.8619e+02 ,1.8458e+02 /) - kao(:,13,10) = (/ & - &1.7142e+02 ,1.7281e+02 ,1.7236e+02 ,1.7114e+02 ,1.6934e+02 /) - kao(:, 1,11) = (/ & - &2.9459e+02 ,2.9267e+02 ,2.9151e+02 ,2.8931e+02 ,2.8695e+02 /) - kao(:, 2,11) = (/ & - &3.1654e+02 ,3.1722e+02 ,3.1773e+02 ,3.1519e+02 ,3.1185e+02 /) - kao(:, 3,11) = (/ & - &3.3345e+02 ,3.3361e+02 ,3.3487e+02 ,3.3474e+02 ,3.3330e+02 /) - kao(:, 4,11) = (/ & - &3.4222e+02 ,3.4143e+02 ,3.4230e+02 ,3.4254e+02 ,3.4132e+02 /) - kao(:, 5,11) = (/ & - &3.5206e+02 ,3.5057e+02 ,3.4997e+02 ,3.4857e+02 ,3.4588e+02 /) - kao(:, 6,11) = (/ & - &3.6028e+02 ,3.6070e+02 ,3.6119e+02 ,3.5790e+02 ,3.5262e+02 /) - kao(:, 7,11) = (/ & - &3.6620e+02 ,3.6652e+02 ,3.6631e+02 ,3.6276e+02 ,3.5799e+02 /) - kao(:, 8,11) = (/ & - &3.6855e+02 ,3.6845e+02 ,3.6741e+02 ,3.6316e+02 ,3.5815e+02 /) - kao(:, 9,11) = (/ & - &3.6490e+02 ,3.6506e+02 ,3.6353e+02 ,3.5922e+02 ,3.5455e+02 /) - kao(:,10,11) = (/ & - &3.5317e+02 ,3.5433e+02 ,3.5339e+02 ,3.5013e+02 ,3.4719e+02 /) - kao(:,11,11) = (/ & - &3.3639e+02 ,3.3748e+02 ,3.3591e+02 ,3.3444e+02 ,3.3466e+02 /) - kao(:,12,11) = (/ & - &3.1388e+02 ,3.1454e+02 ,3.1501e+02 ,3.1656e+02 ,3.1666e+02 /) - kao(:,13,11) = (/ & - &2.9044e+02 ,2.9107e+02 ,2.9274e+02 ,2.9324e+02 ,2.9124e+02 /) - kao(:, 1,12) = (/ & - &3.8243e+02 ,3.8335e+02 ,3.8560e+02 ,3.8967e+02 ,3.9390e+02 /) - kao(:, 2,12) = (/ & - &4.2476e+02 ,4.2018e+02 ,4.1643e+02 ,4.1764e+02 ,4.1841e+02 /) - kao(:, 3,12) = (/ & - &4.5902e+02 ,4.5366e+02 ,4.4789e+02 ,4.4616e+02 ,4.4366e+02 /) - kao(:, 4,12) = (/ & - &4.8576e+02 ,4.8192e+02 ,4.7838e+02 ,4.7712e+02 ,4.7436e+02 /) - kao(:, 5,12) = (/ & - &5.0548e+02 ,5.0130e+02 ,4.9886e+02 ,4.9965e+02 ,4.9992e+02 /) - kao(:, 6,12) = (/ & - &5.2714e+02 ,5.1902e+02 ,5.1379e+02 ,5.1543e+02 ,5.1780e+02 /) - kao(:, 7,12) = (/ & - &5.5149e+02 ,5.4136e+02 ,5.3395e+02 ,5.3343e+02 ,5.3337e+02 /) - kao(:, 8,12) = (/ & - &5.7260e+02 ,5.6332e+02 ,5.5702e+02 ,5.5596e+02 ,5.5242e+02 /) - kao(:, 9,12) = (/ & - &5.8640e+02 ,5.7843e+02 ,5.7443e+02 ,5.7374e+02 ,5.6970e+02 /) - kao(:,10,12) = (/ & - &5.9437e+02 ,5.8760e+02 ,5.8375e+02 ,5.8166e+02 ,5.7639e+02 /) - kao(:,11,12) = (/ & - &5.8998e+02 ,5.8468e+02 ,5.8336e+02 ,5.7943e+02 ,5.7161e+02 /) - kao(:,12,12) = (/ & - &5.7429e+02 ,5.7360e+02 ,5.7128e+02 ,5.6564e+02 ,5.6011e+02 /) - kao(:,13,12) = (/ & - &5.5035e+02 ,5.5083e+02 ,5.4893e+02 ,5.4549e+02 ,5.4357e+02 /) - kao(:, 1,13) = (/ & - &4.9343e+02 ,4.9586e+02 ,4.9750e+02 ,4.9873e+02 ,4.9898e+02 /) - kao(:, 2,13) = (/ & - &5.4485e+02 ,5.4781e+02 ,5.5082e+02 ,5.5168e+02 ,5.5417e+02 /) - kao(:, 3,13) = (/ & - &6.1399e+02 ,6.1257e+02 ,6.1216e+02 ,6.1051e+02 ,6.1193e+02 /) - kao(:, 4,13) = (/ & - &6.9330e+02 ,6.8682e+02 ,6.8040e+02 ,6.7417e+02 ,6.7247e+02 /) - kao(:, 5,13) = (/ & - &7.6881e+02 ,7.6265e+02 ,7.5375e+02 ,7.4386e+02 ,7.3721e+02 /) - kao(:, 6,13) = (/ & - &8.3052e+02 ,8.2987e+02 ,8.2363e+02 ,8.1336e+02 ,8.0445e+02 /) - kao(:, 7,13) = (/ & - &8.8082e+02 ,8.8344e+02 ,8.8117e+02 ,8.7395e+02 ,8.6653e+02 /) - kao(:, 8,13) = (/ & - &9.2485e+02 ,9.2603e+02 ,9.2355e+02 ,9.1727e+02 ,9.1414e+02 /) - kao(:, 9,13) = (/ & - &9.7276e+02 ,9.7146e+02 ,9.6566e+02 ,9.5635e+02 ,9.5212e+02 /) - kao(:,10,13) = (/ & - &1.0175e+03 ,1.0163e+03 ,1.0069e+03 ,9.9610e+02 ,9.9075e+02 /) - kao(:,11,13) = (/ & - &1.0564e+03 ,1.0547e+03 ,1.0423e+03 ,1.0316e+03 ,1.0272e+03 /) - kao(:,12,13) = (/ & - &1.0856e+03 ,1.0807e+03 ,1.0716e+03 ,1.0657e+03 ,1.0617e+03 /) - kao(:,13,13) = (/ & - &1.1006e+03 ,1.0930e+03 ,1.0868e+03 ,1.0845e+03 ,1.0783e+03 /) - kao(:, 1,14) = (/ & - &7.0211e+02 ,7.0175e+02 ,7.0131e+02 ,6.9909e+02 ,6.9776e+02 /) - kao(:, 2,14) = (/ & - &7.9113e+02 ,7.9461e+02 ,7.9834e+02 ,7.9969e+02 ,7.9813e+02 /) - kao(:, 3,14) = (/ & - &8.8896e+02 ,8.9686e+02 ,9.0679e+02 ,9.1320e+02 ,9.1562e+02 /) - kao(:, 4,14) = (/ & - &9.9457e+02 ,1.0048e+03 ,1.0163e+03 ,1.0256e+03 ,1.0309e+03 /) - kao(:, 5,14) = (/ & - &1.1171e+03 ,1.1226e+03 ,1.1342e+03 ,1.1464e+03 ,1.1541e+03 /) - kao(:, 6,14) = (/ & - &1.2650e+03 ,1.2607e+03 ,1.2659e+03 ,1.2764e+03 ,1.2854e+03 /) - kao(:, 7,14) = (/ & - &1.4362e+03 ,1.4239e+03 ,1.4228e+03 ,1.4266e+03 ,1.4315e+03 /) - kao(:, 8,14) = (/ & - &1.6263e+03 ,1.6088e+03 ,1.5994e+03 ,1.5975e+03 ,1.5958e+03 /) - kao(:, 9,14) = (/ & - &1.8039e+03 ,1.7901e+03 ,1.7817e+03 ,1.7757e+03 ,1.7698e+03 /) - kao(:,10,14) = (/ & - &1.9623e+03 ,1.9495e+03 ,1.9467e+03 ,1.9462e+03 ,1.9411e+03 /) - kao(:,11,14) = (/ & - &2.1010e+03 ,2.0894e+03 ,2.0912e+03 ,2.0963e+03 ,2.0914e+03 /) - kao(:,12,14) = (/ & - &2.2319e+03 ,2.2209e+03 ,2.2201e+03 ,2.2217e+03 ,2.2137e+03 /) - kao(:,13,14) = (/ & - &2.3516e+03 ,2.3425e+03 ,2.3393e+03 ,2.3344e+03 ,2.3274e+03 /) - kao(:, 1,15) = (/ & - &1.0409e+03 ,1.0602e+03 ,1.0710e+03 ,1.0853e+03 ,1.1018e+03 /) - kao(:, 2,15) = (/ & - &1.2151e+03 ,1.2303e+03 ,1.2347e+03 ,1.2478e+03 ,1.2680e+03 /) - kao(:, 3,15) = (/ & - &1.4193e+03 ,1.4320e+03 ,1.4382e+03 ,1.4463e+03 ,1.4605e+03 /) - kao(:, 4,15) = (/ & - &1.6341e+03 ,1.6472e+03 ,1.6601e+03 ,1.6700e+03 ,1.6846e+03 /) - kao(:, 5,15) = (/ & - &1.8786e+03 ,1.8904e+03 ,1.9028e+03 ,1.9104e+03 ,1.9250e+03 /) - kao(:, 6,15) = (/ & - &2.1492e+03 ,2.1663e+03 ,2.1776e+03 ,2.1833e+03 ,2.1940e+03 /) - kao(:, 7,15) = (/ & - &2.4310e+03 ,2.4567e+03 ,2.4727e+03 ,2.4804e+03 ,2.4891e+03 /) - kao(:, 8,15) = (/ & - &2.7261e+03 ,2.7552e+03 ,2.7803e+03 ,2.7970e+03 ,2.8141e+03 /) - kao(:, 9,15) = (/ & - &3.0867e+03 ,3.0994e+03 ,3.1170e+03 ,3.1402e+03 ,3.1679e+03 /) - kao(:,10,15) = (/ & - &3.5269e+03 ,3.5204e+03 ,3.5225e+03 ,3.5345e+03 ,3.5601e+03 /) - kao(:,11,15) = (/ & - &4.0271e+03 ,4.0096e+03 ,4.0024e+03 ,4.0052e+03 ,4.0246e+03 /) - kao(:,12,15) = (/ & - &4.5798e+03 ,4.5585e+03 ,4.5503e+03 ,4.5442e+03 ,4.5532e+03 /) - kao(:,13,15) = (/ & - &5.1911e+03 ,5.1717e+03 ,5.1553e+03 ,5.1395e+03 ,5.1397e+03 /) - kao(:, 1,16) = (/ & - &1.2071e+03 ,1.2414e+03 ,1.3062e+03 ,1.3645e+03 ,1.4123e+03 /) - kao(:, 2,16) = (/ & - &1.4670e+03 ,1.4886e+03 ,1.5547e+03 ,1.6269e+03 ,1.6875e+03 /) - kao(:, 3,16) = (/ & - &1.7847e+03 ,1.7994e+03 ,1.8394e+03 ,1.9097e+03 ,1.9863e+03 /) - kao(:, 4,16) = (/ & - &2.1409e+03 ,2.1717e+03 ,2.1953e+03 ,2.2438e+03 ,2.3059e+03 /) - kao(:, 5,16) = (/ & - &2.5417e+03 ,2.5918e+03 ,2.6196e+03 ,2.6591e+03 ,2.7124e+03 /) - kao(:, 6,16) = (/ & - &3.0242e+03 ,3.0688e+03 ,3.1113e+03 ,3.1534e+03 ,3.2074e+03 /) - kao(:, 7,16) = (/ & - &3.6491e+03 ,3.6695e+03 ,3.6939e+03 ,3.7229e+03 ,3.7906e+03 /) - kao(:, 8,16) = (/ & - &4.4223e+03 ,4.4232e+03 ,4.4297e+03 ,4.4268e+03 ,4.4608e+03 /) - kao(:, 9,16) = (/ & - &5.3502e+03 ,5.3400e+03 ,5.3338e+03 ,5.3140e+03 ,5.2816e+03 /) - kao(:,10,16) = (/ & - &6.4333e+03 ,6.4257e+03 ,6.4093e+03 ,6.3744e+03 ,6.3162e+03 /) - kao(:,11,16) = (/ & - &7.6805e+03 ,7.6778e+03 ,7.6466e+03 ,7.5865e+03 ,7.5106e+03 /) - kao(:,12,16) = (/ & - &9.1073e+03 ,9.0972e+03 ,9.0428e+03 ,8.9445e+03 ,8.8997e+03 /) - kao(:,13,16) = (/ & - &1.0699e+04 ,1.0668e+04 ,1.0580e+04 ,1.0493e+04 ,1.0473e+04 /) - -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kbo(:,13, 1) = (/ & - &1.0144e-02 ,1.1539e-02 ,1.2861e-02 ,1.4225e-02 ,1.5224e-02 /) - kbo(:,14, 1) = (/ & - &8.4327e-03 ,9.5989e-03 ,1.0734e-02 ,1.1890e-02 ,1.2872e-02 /) - kbo(:,15, 1) = (/ & - &6.9967e-03 ,7.9676e-03 ,8.9559e-03 ,9.9119e-03 ,1.0533e-02 /) - kbo(:,16, 1) = (/ & - &5.7988e-03 ,6.6068e-03 ,7.4553e-03 ,8.2402e-03 ,8.5310e-03 /) - kbo(:,17, 1) = (/ & - &4.8055e-03 ,5.4781e-03 ,6.1884e-03 ,6.8148e-03 ,6.9563e-03 /) - kbo(:,18, 1) = (/ & - &3.9877e-03 ,4.5423e-03 ,5.1325e-03 ,5.5098e-03 ,5.6946e-03 /) - kbo(:,19, 1) = (/ & - &3.3110e-03 ,3.7880e-03 ,4.2806e-03 ,4.4996e-03 ,4.6784e-03 /) - kbo(:,20, 1) = (/ & - &2.7631e-03 ,3.1756e-03 ,3.5803e-03 ,3.7100e-03 ,3.8598e-03 /) - kbo(:,21, 1) = (/ & - &2.3113e-03 ,2.6584e-03 ,2.9347e-03 ,3.0481e-03 ,3.1824e-03 /) - kbo(:,22, 1) = (/ & - &1.9510e-03 ,2.2389e-03 ,2.4076e-03 ,2.5106e-03 ,2.6293e-03 /) - kbo(:,23, 1) = (/ & - &1.6490e-03 ,1.8833e-03 ,1.9839e-03 ,2.0707e-03 ,2.1757e-03 /) - kbo(:,24, 1) = (/ & - &1.3921e-03 ,1.5822e-03 ,1.6416e-03 ,1.7136e-03 ,1.8019e-03 /) - kbo(:,25, 1) = (/ & - &1.1754e-03 ,1.2986e-03 ,1.3546e-03 ,1.4184e-03 ,1.4951e-03 /) - kbo(:,26, 1) = (/ & - &9.9384e-04 ,1.0692e-03 ,1.1181e-03 ,1.1767e-03 ,1.2423e-03 /) - kbo(:,27, 1) = (/ & - &8.3932e-04 ,8.8446e-04 ,9.2496e-04 ,9.7555e-04 ,1.0286e-03 /) - kbo(:,28, 1) = (/ & - &7.0655e-04 ,7.3418e-04 ,7.6647e-04 ,8.0853e-04 ,8.5091e-04 /) - kbo(:,29, 1) = (/ & - &5.8016e-04 ,6.0558e-04 ,6.3439e-04 ,6.6940e-04 ,7.0187e-04 /) - kbo(:,30, 1) = (/ & - &4.7757e-04 ,4.9924e-04 ,5.2442e-04 ,5.5397e-04 ,5.7829e-04 /) - kbo(:,31, 1) = (/ & - &3.9420e-04 ,4.1123e-04 ,4.3298e-04 ,4.5563e-04 ,4.7437e-04 /) - kbo(:,32, 1) = (/ & - &3.2571e-04 ,3.3960e-04 ,3.5704e-04 ,3.7387e-04 ,3.8849e-04 /) - kbo(:,33, 1) = (/ & - &2.6741e-04 ,2.8027e-04 ,2.9349e-04 ,3.0636e-04 ,3.1790e-04 /) - kbo(:,34, 1) = (/ & - &2.2029e-04 ,2.3073e-04 ,2.4120e-04 ,2.5116e-04 ,2.5977e-04 /) - kbo(:,35, 1) = (/ & - &1.8092e-04 ,1.8913e-04 ,1.9723e-04 ,2.0490e-04 ,2.1120e-04 /) - kbo(:,36, 1) = (/ & - &1.4775e-04 ,1.5426e-04 ,1.6038e-04 ,1.6643e-04 ,1.7137e-04 /) - kbo(:,37, 1) = (/ & - &1.2005e-04 ,1.2534e-04 ,1.3001e-04 ,1.3495e-04 ,1.3888e-04 /) - kbo(:,38, 1) = (/ & - &9.7560e-05 ,1.0177e-04 ,1.0540e-04 ,1.0924e-04 ,1.1256e-04 /) - kbo(:,39, 1) = (/ & - &7.9344e-05 ,8.2615e-05 ,8.5368e-05 ,8.8405e-05 ,9.1186e-05 /) - kbo(:,40, 1) = (/ & - &6.4575e-05 ,6.7008e-05 ,6.9369e-05 ,7.1740e-05 ,7.4003e-05 /) - kbo(:,41, 1) = (/ & - &5.2697e-05 ,5.4334e-05 ,5.6409e-05 ,5.8228e-05 ,6.0014e-05 /) - kbo(:,42, 1) = (/ & - &4.3089e-05 ,4.4120e-05 ,4.5815e-05 ,4.7218e-05 ,4.8658e-05 /) - kbo(:,43, 1) = (/ & - &3.4429e-05 ,3.5847e-05 ,3.7149e-05 ,3.8380e-05 ,3.9479e-05 /) - kbo(:,44, 1) = (/ & - &2.7169e-05 ,2.9300e-05 ,3.0128e-05 ,3.1175e-05 ,3.2021e-05 /) - kbo(:,45, 1) = (/ & - &2.1411e-05 ,2.3782e-05 ,2.4360e-05 ,2.5287e-05 ,2.6025e-05 /) - kbo(:,46, 1) = (/ & - &1.6754e-05 ,1.8795e-05 ,1.9931e-05 ,2.0532e-05 ,2.1145e-05 /) - kbo(:,47, 1) = (/ & - &1.3067e-05 ,1.4757e-05 ,1.6247e-05 ,1.6575e-05 ,1.7184e-05 /) - kbo(:,48, 1) = (/ & - &1.0193e-05 ,1.1527e-05 ,1.2841e-05 ,1.3599e-05 ,1.3946e-05 /) - kbo(:,49, 1) = (/ & - &7.9417e-06 ,8.9971e-06 ,1.0112e-05 ,1.1045e-05 ,1.1285e-05 /) - kbo(:,50, 1) = (/ & - &6.1950e-06 ,7.0678e-06 ,7.9571e-06 ,8.7859e-06 ,9.3116e-06 /) - kbo(:,51, 1) = (/ & - &4.8121e-06 ,5.5540e-06 ,6.2634e-06 ,6.9968e-06 ,7.5750e-06 /) - kbo(:,52, 1) = (/ & - &3.7732e-06 ,4.3400e-06 ,4.9368e-06 ,5.5255e-06 ,6.0507e-06 /) - kbo(:,53, 1) = (/ & - &2.9588e-06 ,3.3855e-06 ,3.8934e-06 ,4.3558e-06 ,4.8377e-06 /) - kbo(:,54, 1) = (/ & - &2.2637e-06 ,2.6550e-06 ,3.0640e-06 ,3.4670e-06 ,3.8645e-06 /) - kbo(:,55, 1) = (/ & - &1.7394e-06 ,2.1318e-06 ,2.4092e-06 ,2.7718e-06 ,3.0969e-06 /) - kbo(:,56, 1) = (/ & - &1.3379e-06 ,1.6962e-06 ,1.9182e-06 ,2.2019e-06 ,2.5057e-06 /) - kbo(:,57, 1) = (/ & - &1.0894e-06 ,1.3086e-06 ,1.5250e-06 ,1.7825e-06 ,2.0078e-06 /) - kbo(:,58, 1) = (/ & - &8.2505e-07 ,1.0180e-06 ,1.2548e-06 ,1.4584e-06 ,1.7398e-06 /) - kbo(:,59, 1) = (/ & - &7.1802e-07 ,8.6784e-07 ,1.0974e-06 ,1.3504e-06 ,1.4314e-06 /) - kbo(:,13, 2) = (/ & - &4.1938e-02 ,4.3540e-02 ,4.4990e-02 ,4.6074e-02 ,4.6999e-02 /) - kbo(:,14, 2) = (/ & - &3.5928e-02 ,3.7447e-02 ,3.8935e-02 ,3.9816e-02 ,4.0666e-02 /) - kbo(:,15, 2) = (/ & - &3.0539e-02 ,3.1836e-02 ,3.3086e-02 ,3.4096e-02 ,3.5203e-02 /) - kbo(:,16, 2) = (/ & - &2.5542e-02 ,2.6607e-02 ,2.7654e-02 ,2.8622e-02 ,2.9849e-02 /) - kbo(:,17, 2) = (/ & - &2.1059e-02 ,2.2159e-02 ,2.3097e-02 ,2.3970e-02 ,2.5021e-02 /) - kbo(:,18, 2) = (/ & - &1.7420e-02 ,1.8344e-02 ,1.9223e-02 ,2.0092e-02 ,2.0887e-02 /) - kbo(:,19, 2) = (/ & - &1.4527e-02 ,1.5294e-02 ,1.6071e-02 ,1.6950e-02 ,1.7660e-02 /) - kbo(:,20, 2) = (/ & - &1.2057e-02 ,1.2740e-02 ,1.3375e-02 ,1.4212e-02 ,1.4836e-02 /) - kbo(:,21, 2) = (/ & - &1.0024e-02 ,1.0630e-02 ,1.1202e-02 ,1.1918e-02 ,1.2460e-02 /) - kbo(:,22, 2) = (/ & - &8.3586e-03 ,8.8721e-03 ,9.4319e-03 ,1.0016e-02 ,1.0451e-02 /) - kbo(:,23, 2) = (/ & - &7.0023e-03 ,7.4292e-03 ,7.9425e-03 ,8.4001e-03 ,8.6668e-03 /) - kbo(:,24, 2) = (/ & - &5.8805e-03 ,6.2414e-03 ,6.6855e-03 ,7.0380e-03 ,7.1881e-03 /) - kbo(:,25, 2) = (/ & - &4.9300e-03 ,5.2659e-03 ,5.6130e-03 ,5.8139e-03 ,5.9744e-03 /) - kbo(:,26, 2) = (/ & - &4.1346e-03 ,4.4268e-03 ,4.6994e-03 ,4.8189e-03 ,4.9700e-03 /) - kbo(:,27, 2) = (/ & - &3.4478e-03 ,3.6949e-03 ,3.8760e-03 ,3.9800e-03 ,4.1083e-03 /) - kbo(:,28, 2) = (/ & - &2.8662e-03 ,3.0720e-03 ,3.1855e-03 ,3.2844e-03 ,3.3841e-03 /) - kbo(:,29, 2) = (/ & - &2.3700e-03 ,2.5289e-03 ,2.6049e-03 ,2.6846e-03 ,2.7555e-03 /) - kbo(:,30, 2) = (/ & - &1.9529e-03 ,2.0734e-03 ,2.1236e-03 ,2.1766e-03 ,2.2279e-03 /) - kbo(:,31, 2) = (/ & - &1.5951e-03 ,1.6761e-03 ,1.7103e-03 ,1.7458e-03 ,1.7856e-03 /) - kbo(:,32, 2) = (/ & - &1.2965e-03 ,1.3546e-03 ,1.3767e-03 ,1.4016e-03 ,1.4345e-03 /) - kbo(:,33, 2) = (/ & - &1.0497e-03 ,1.0916e-03 ,1.1061e-03 ,1.1259e-03 ,1.1490e-03 /) - kbo(:,34, 2) = (/ & - &8.5263e-04 ,8.8439e-04 ,8.9299e-04 ,9.0901e-04 ,9.2683e-04 /) - kbo(:,35, 2) = (/ & - &6.8961e-04 ,7.1452e-04 ,7.2125e-04 ,7.3408e-04 ,7.4718e-04 /) - kbo(:,36, 2) = (/ & - &5.5538e-04 ,5.7454e-04 ,5.8468e-04 ,5.9295e-04 ,6.0312e-04 /) - kbo(:,37, 2) = (/ & - &4.4687e-04 ,4.6228e-04 ,4.7485e-04 ,4.8052e-04 ,4.8826e-04 /) - kbo(:,38, 2) = (/ & - &3.5911e-04 ,3.7176e-04 ,3.8278e-04 ,3.8998e-04 ,3.9487e-04 /) - kbo(:,39, 2) = (/ & - &2.8825e-04 ,2.9868e-04 ,3.0761e-04 ,3.1500e-04 ,3.2065e-04 /) - kbo(:,40, 2) = (/ & - &2.3221e-04 ,2.4117e-04 ,2.4916e-04 ,2.5539e-04 ,2.6149e-04 /) - kbo(:,41, 2) = (/ & - &1.8711e-04 ,1.9520e-04 ,2.0184e-04 ,2.0732e-04 ,2.1208e-04 /) - kbo(:,42, 2) = (/ & - &1.5044e-04 ,1.5806e-04 ,1.6349e-04 ,1.6813e-04 ,1.7186e-04 /) - kbo(:,43, 2) = (/ & - &1.2147e-04 ,1.2754e-04 ,1.3202e-04 ,1.3603e-04 ,1.3922e-04 /) - kbo(:,44, 2) = (/ & - &9.7631e-05 ,1.0254e-04 ,1.0664e-04 ,1.1000e-04 ,1.1278e-04 /) - kbo(:,45, 2) = (/ & - &7.8551e-05 ,8.2386e-05 ,8.6252e-05 ,8.8821e-05 ,9.1113e-05 /) - kbo(:,46, 2) = (/ & - &6.3082e-05 ,6.6217e-05 ,6.9264e-05 ,7.1597e-05 ,7.3596e-05 /) - kbo(:,47, 2) = (/ & - &5.0668e-05 ,5.3148e-05 ,5.5648e-05 ,5.8023e-05 ,5.9460e-05 /) - kbo(:,48, 2) = (/ & - &4.0723e-05 ,4.2652e-05 ,4.4714e-05 ,4.6562e-05 ,4.8110e-05 /) - kbo(:,49, 2) = (/ & - &3.2577e-05 ,3.4241e-05 ,3.5845e-05 ,3.7418e-05 ,3.8704e-05 /) - kbo(:,50, 2) = (/ & - &2.6548e-05 ,2.7645e-05 ,2.8887e-05 ,3.0243e-05 ,3.1285e-05 /) - kbo(:,51, 2) = (/ & - &2.1632e-05 ,2.2305e-05 ,2.3402e-05 ,2.4420e-05 ,2.5424e-05 /) - kbo(:,52, 2) = (/ & - &1.7494e-05 ,1.8158e-05 ,1.8946e-05 ,1.9746e-05 ,2.0626e-05 /) - kbo(:,53, 2) = (/ & - &1.4060e-05 ,1.4924e-05 ,1.5296e-05 ,1.6047e-05 ,1.6661e-05 /) - kbo(:,54, 2) = (/ & - &1.1502e-05 ,1.2189e-05 ,1.2591e-05 ,1.3072e-05 ,1.3585e-05 /) - kbo(:,55, 2) = (/ & - &9.4731e-06 ,9.9000e-06 ,1.0499e-05 ,1.0730e-05 ,1.1201e-05 /) - kbo(:,56, 2) = (/ & - &7.7842e-06 ,8.0609e-06 ,8.6328e-06 ,8.9073e-06 ,9.2258e-06 /) - kbo(:,57, 2) = (/ & - &6.1271e-06 ,6.6999e-06 ,7.0368e-06 ,7.4466e-06 ,7.6395e-06 /) - kbo(:,58, 2) = (/ & - &4.7873e-06 ,5.5615e-06 ,5.7470e-06 ,6.1637e-06 ,6.3705e-06 /) - kbo(:,59, 2) = (/ & - &3.8649e-06 ,4.5966e-06 ,4.7965e-06 ,5.1490e-06 ,5.3880e-06 /) - kbo(:,13, 3) = (/ & - &1.2497e-01 ,1.2733e-01 ,1.2732e-01 ,1.2710e-01 ,1.2722e-01 /) - kbo(:,14, 3) = (/ & - &1.0770e-01 ,1.1044e-01 ,1.0994e-01 ,1.0972e-01 ,1.0842e-01 /) - kbo(:,15, 3) = (/ & - &9.2313e-02 ,9.4782e-02 ,9.3928e-02 ,9.2439e-02 ,9.0946e-02 /) - kbo(:,16, 3) = (/ & - &7.7737e-02 ,7.9134e-02 ,7.7340e-02 ,7.6811e-02 ,7.6114e-02 /) - kbo(:,17, 3) = (/ & - &6.5446e-02 ,6.4598e-02 ,6.3955e-02 ,6.3795e-02 ,6.3695e-02 /) - kbo(:,18, 3) = (/ & - &5.3197e-02 ,5.2989e-02 ,5.2755e-02 ,5.2824e-02 ,5.2780e-02 /) - kbo(:,19, 3) = (/ & - &4.3741e-02 ,4.3850e-02 ,4.3971e-02 ,4.3934e-02 ,4.3215e-02 /) - kbo(:,20, 3) = (/ & - &3.6203e-02 ,3.6356e-02 ,3.6481e-02 ,3.6039e-02 ,3.5482e-02 /) - kbo(:,21, 3) = (/ & - &2.9983e-02 ,3.0109e-02 ,3.0136e-02 ,2.9600e-02 ,2.9205e-02 /) - kbo(:,22, 3) = (/ & - &2.4798e-02 ,2.4802e-02 ,2.4628e-02 ,2.4239e-02 ,2.4061e-02 /) - kbo(:,23, 3) = (/ & - &2.0477e-02 ,2.0405e-02 ,2.0149e-02 ,1.9990e-02 ,1.9997e-02 /) - kbo(:,24, 3) = (/ & - &1.6953e-02 ,1.6782e-02 ,1.6632e-02 ,1.6618e-02 ,1.6673e-02 /) - kbo(:,25, 3) = (/ & - &1.3995e-02 ,1.3802e-02 ,1.3748e-02 ,1.3853e-02 ,1.3849e-02 /) - kbo(:,26, 3) = (/ & - &1.1507e-02 ,1.1388e-02 ,1.1372e-02 ,1.1472e-02 ,1.1479e-02 /) - kbo(:,27, 3) = (/ & - &9.4100e-03 ,9.3552e-03 ,9.3927e-03 ,9.4480e-03 ,9.4683e-03 /) - kbo(:,28, 3) = (/ & - &7.6709e-03 ,7.6555e-03 ,7.7364e-03 ,7.7513e-03 ,7.7691e-03 /) - kbo(:,29, 3) = (/ & - &6.2318e-03 ,6.2179e-03 ,6.2783e-03 ,6.2823e-03 ,6.2984e-03 /) - kbo(:,30, 3) = (/ & - &5.0369e-03 ,5.0223e-03 ,5.0690e-03 ,5.0675e-03 ,5.0877e-03 /) - kbo(:,31, 3) = (/ & - &4.0270e-03 ,4.0248e-03 ,4.0530e-03 ,4.0550e-03 ,4.0668e-03 /) - kbo(:,32, 3) = (/ & - &3.2266e-03 ,3.2233e-03 ,3.2444e-03 ,3.2484e-03 ,3.2485e-03 /) - kbo(:,33, 3) = (/ & - &2.5826e-03 ,2.5793e-03 ,2.5980e-03 ,2.5954e-03 ,2.5860e-03 /) - kbo(:,34, 3) = (/ & - &2.0751e-03 ,2.0785e-03 ,2.0913e-03 ,2.0819e-03 ,2.0719e-03 /) - kbo(:,35, 3) = (/ & - &1.6732e-03 ,1.6746e-03 ,1.6840e-03 ,1.6712e-03 ,1.6630e-03 /) - kbo(:,36, 3) = (/ & - &1.3540e-03 ,1.3534e-03 ,1.3539e-03 ,1.3458e-03 ,1.3380e-03 /) - kbo(:,37, 3) = (/ & - &1.1025e-03 ,1.0986e-03 ,1.0965e-03 ,1.0906e-03 ,1.0838e-03 /) - kbo(:,38, 3) = (/ & - &8.9827e-04 ,8.9144e-04 ,8.8894e-04 ,8.8260e-04 ,8.7601e-04 /) - kbo(:,39, 3) = (/ & - &7.3039e-04 ,7.2351e-04 ,7.1956e-04 ,7.1446e-04 ,7.0735e-04 /) - kbo(:,40, 3) = (/ & - &6.0257e-04 ,5.9335e-04 ,5.8899e-04 ,5.8497e-04 ,5.7809e-04 /) - kbo(:,41, 3) = (/ & - &4.9748e-04 ,4.8829e-04 ,4.8330e-04 ,4.7897e-04 ,4.7418e-04 /) - kbo(:,42, 3) = (/ & - &4.0962e-04 ,4.0192e-04 ,3.9631e-04 ,3.9272e-04 ,3.8922e-04 /) - kbo(:,43, 3) = (/ & - &3.3511e-04 ,3.3335e-04 ,3.2739e-04 ,3.2309e-04 ,3.2009e-04 /) - kbo(:,44, 3) = (/ & - &2.7494e-04 ,2.7440e-04 ,2.7166e-04 ,2.6681e-04 ,2.6291e-04 /) - kbo(:,45, 3) = (/ & - &2.2409e-04 ,2.2465e-04 ,2.2546e-04 ,2.2120e-04 ,2.1688e-04 /) - kbo(:,46, 3) = (/ & - &1.8344e-04 ,1.8445e-04 ,1.8370e-04 ,1.8435e-04 ,1.8060e-04 /) - kbo(:,47, 3) = (/ & - &1.5220e-04 ,1.5094e-04 ,1.5093e-04 ,1.5107e-04 ,1.5073e-04 /) - kbo(:,48, 3) = (/ & - &1.2685e-04 ,1.2406e-04 ,1.2418e-04 ,1.2347e-04 ,1.2407e-04 /) - kbo(:,49, 3) = (/ & - &1.0283e-04 ,1.0360e-04 ,1.0186e-04 ,1.0181e-04 ,1.0123e-04 /) - kbo(:,50, 3) = (/ & - &8.3231e-05 ,8.5593e-05 ,8.4616e-05 ,8.3839e-05 ,8.3224e-05 /) - kbo(:,51, 3) = (/ & - &6.6892e-05 ,7.0153e-05 ,7.0699e-05 ,6.9691e-05 ,6.9167e-05 /) - kbo(:,52, 3) = (/ & - &5.4090e-05 ,5.6975e-05 ,5.8223e-05 ,5.8345e-05 ,5.7364e-05 /) - kbo(:,53, 3) = (/ & - &4.3363e-05 ,4.5702e-05 ,4.7865e-05 ,4.7887e-05 ,4.7945e-05 /) - kbo(:,54, 3) = (/ & - &3.4722e-05 ,3.7579e-05 ,3.9122e-05 ,3.9883e-05 ,3.9754e-05 /) - kbo(:,55, 3) = (/ & - &2.7984e-05 ,3.0530e-05 ,3.1930e-05 ,3.3227e-05 ,3.3134e-05 /) - kbo(:,56, 3) = (/ & - &2.2565e-05 ,2.4737e-05 ,2.6495e-05 ,2.7386e-05 ,2.7845e-05 /) - kbo(:,57, 3) = (/ & - &1.8624e-05 ,1.9996e-05 ,2.1604e-05 ,2.2454e-05 ,2.3200e-05 /) - kbo(:,58, 3) = (/ & - &1.5567e-05 ,1.6215e-05 ,1.7630e-05 ,1.8795e-05 ,1.9192e-05 /) - kbo(:,59, 3) = (/ & - &1.3180e-05 ,1.3591e-05 ,1.4748e-05 ,1.5698e-05 ,1.6153e-05 /) - kbo(:,13, 4) = (/ & - &2.3244e-01 ,2.2666e-01 ,2.2365e-01 ,2.1647e-01 ,2.0828e-01 /) - kbo(:,14, 4) = (/ & - &1.9358e-01 ,1.8830e-01 ,1.8743e-01 ,1.8019e-01 ,1.7506e-01 /) - kbo(:,15, 4) = (/ & - &1.6047e-01 ,1.5782e-01 ,1.5488e-01 ,1.5178e-01 ,1.4896e-01 /) - kbo(:,16, 4) = (/ & - &1.3221e-01 ,1.3030e-01 ,1.2930e-01 ,1.2731e-01 ,1.2502e-01 /) - kbo(:,17, 4) = (/ & - &1.0863e-01 ,1.0862e-01 ,1.0815e-01 ,1.0706e-01 ,1.0464e-01 /) - kbo(:,18, 4) = (/ & - &9.0031e-02 ,9.0210e-02 ,9.0179e-02 ,8.8891e-02 ,8.7072e-02 /) - kbo(:,19, 4) = (/ & - &7.4933e-02 ,7.5517e-02 ,7.5432e-02 ,7.4716e-02 ,7.4259e-02 /) - kbo(:,20, 4) = (/ & - &6.2292e-02 ,6.2900e-02 ,6.2796e-02 ,6.2799e-02 ,6.2655e-02 /) - kbo(:,21, 4) = (/ & - &5.1753e-02 ,5.2259e-02 ,5.2338e-02 ,5.2648e-02 ,5.2692e-02 /) - kbo(:,22, 4) = (/ & - &4.2879e-02 ,4.3337e-02 ,4.3671e-02 ,4.3911e-02 ,4.3964e-02 /) - kbo(:,23, 4) = (/ & - &3.5511e-02 ,3.5957e-02 ,3.6400e-02 ,3.6560e-02 ,3.6588e-02 /) - kbo(:,24, 4) = (/ & - &2.9490e-02 ,3.0002e-02 ,3.0363e-02 ,3.0503e-02 ,3.0607e-02 /) - kbo(:,25, 4) = (/ & - &2.4491e-02 ,2.5028e-02 ,2.5370e-02 ,2.5485e-02 ,2.5616e-02 /) - kbo(:,26, 4) = (/ & - &2.0405e-02 ,2.0858e-02 ,2.1166e-02 ,2.1267e-02 ,2.1358e-02 /) - kbo(:,27, 4) = (/ & - &1.6966e-02 ,1.7305e-02 ,1.7522e-02 ,1.7603e-02 ,1.7664e-02 /) - kbo(:,28, 4) = (/ & - &1.4041e-02 ,1.4283e-02 ,1.4398e-02 ,1.4482e-02 ,1.4540e-02 /) - kbo(:,29, 4) = (/ & - &1.1473e-02 ,1.1643e-02 ,1.1712e-02 ,1.1784e-02 ,1.1808e-02 /) - kbo(:,30, 4) = (/ & - &9.3128e-03 ,9.4393e-03 ,9.4816e-03 ,9.5274e-03 ,9.5277e-03 /) - kbo(:,31, 4) = (/ & - &7.5018e-03 ,7.5697e-03 ,7.5938e-03 ,7.6234e-03 ,7.6068e-03 /) - kbo(:,32, 4) = (/ & - &6.0276e-03 ,6.0587e-03 ,6.0760e-03 ,6.0793e-03 ,6.0890e-03 /) - kbo(:,33, 4) = (/ & - &4.8317e-03 ,4.8465e-03 ,4.8480e-03 ,4.8590e-03 ,4.8679e-03 /) - kbo(:,34, 4) = (/ & - &3.8930e-03 ,3.8936e-03 ,3.8908e-03 ,3.9081e-03 ,3.9148e-03 /) - kbo(:,35, 4) = (/ & - &3.1327e-03 ,3.1329e-03 ,3.1313e-03 ,3.1437e-03 ,3.1485e-03 /) - kbo(:,36, 4) = (/ & - &2.5288e-03 ,2.5255e-03 ,2.5228e-03 ,2.5303e-03 ,2.5349e-03 /) - kbo(:,37, 4) = (/ & - &2.0481e-03 ,2.0483e-03 ,2.0398e-03 ,2.0467e-03 ,2.0499e-03 /) - kbo(:,38, 4) = (/ & - &1.6558e-03 ,1.6596e-03 ,1.6492e-03 ,1.6534e-03 ,1.6569e-03 /) - kbo(:,39, 4) = (/ & - &1.3374e-03 ,1.3400e-03 ,1.3351e-03 ,1.3347e-03 ,1.3383e-03 /) - kbo(:,40, 4) = (/ & - &1.0845e-03 ,1.0921e-03 ,1.0887e-03 ,1.0875e-03 ,1.0897e-03 /) - kbo(:,41, 4) = (/ & - &8.8154e-04 ,8.8864e-04 ,8.8779e-04 ,8.8674e-04 ,8.8749e-04 /) - kbo(:,42, 4) = (/ & - &7.1843e-04 ,7.2263e-04 ,7.2341e-04 ,7.2250e-04 ,7.2207e-04 /) - kbo(:,43, 4) = (/ & - &5.8799e-04 ,5.8635e-04 ,5.8966e-04 ,5.8857e-04 ,5.8778e-04 /) - kbo(:,44, 4) = (/ & - &4.7968e-04 ,4.7905e-04 ,4.7843e-04 ,4.7895e-04 ,4.7900e-04 /) - kbo(:,45, 4) = (/ & - &3.9220e-04 ,3.9274e-04 ,3.8844e-04 ,3.8841e-04 ,3.8937e-04 /) - kbo(:,46, 4) = (/ & - &3.2002e-04 ,3.2007e-04 ,3.1928e-04 ,3.1499e-04 ,3.1489e-04 /) - kbo(:,47, 4) = (/ & - &2.6159e-04 ,2.6272e-04 ,2.6214e-04 ,2.5941e-04 ,2.5552e-04 /) - kbo(:,48, 4) = (/ & - &2.1397e-04 ,2.1500e-04 ,2.1426e-04 ,2.1370e-04 ,2.0956e-04 /) - kbo(:,49, 4) = (/ & - &1.7795e-04 ,1.7554e-04 ,1.7551e-04 ,1.7452e-04 ,1.7328e-04 /) - kbo(:,50, 4) = (/ & - &1.4762e-04 ,1.4610e-04 ,1.4428e-04 ,1.4351e-04 ,1.4273e-04 /) - kbo(:,51, 4) = (/ & - &1.2354e-04 ,1.2144e-04 ,1.1938e-04 ,1.1805e-04 ,1.1688e-04 /) - kbo(:,52, 4) = (/ & - &1.0353e-04 ,1.0111e-04 ,9.9958e-05 ,9.7469e-05 ,9.6574e-05 /) - kbo(:,53, 4) = (/ & - &8.8311e-05 ,8.4522e-05 ,8.3164e-05 ,8.1847e-05 ,7.9623e-05 /) - kbo(:,54, 4) = (/ & - &7.5002e-05 ,7.1277e-05 ,6.9429e-05 ,6.8546e-05 ,6.7044e-05 /) - kbo(:,55, 4) = (/ & - &6.4688e-05 ,6.1558e-05 ,5.8597e-05 ,5.7310e-05 ,5.6741e-05 /) - kbo(:,56, 4) = (/ & - &5.4545e-05 ,5.2835e-05 ,4.9722e-05 ,4.8222e-05 ,4.7437e-05 /) - kbo(:,57, 4) = (/ & - &4.5567e-05 ,4.5770e-05 ,4.3541e-05 ,4.1141e-05 ,3.9867e-05 /) - kbo(:,58, 4) = (/ & - &3.8423e-05 ,3.8314e-05 ,3.7767e-05 ,3.5438e-05 ,3.3984e-05 /) - kbo(:,59, 4) = (/ & - &3.2695e-05 ,3.2545e-05 ,3.2199e-05 ,3.0741e-05 ,2.9151e-05 /) - kbo(:,13, 5) = (/ & - &3.6693e-01 ,3.6670e-01 ,3.6374e-01 ,3.6513e-01 ,3.6694e-01 /) - kbo(:,14, 5) = (/ & - &3.1193e-01 ,3.1009e-01 ,3.0785e-01 ,3.1108e-01 ,3.1338e-01 /) - kbo(:,15, 5) = (/ & - &2.6635e-01 ,2.6398e-01 ,2.6603e-01 ,2.6792e-01 ,2.6974e-01 /) - kbo(:,16, 5) = (/ & - &2.2560e-01 ,2.2536e-01 ,2.2722e-01 ,2.2790e-01 ,2.2934e-01 /) - kbo(:,17, 5) = (/ & - &1.9102e-01 ,1.9205e-01 ,1.9235e-01 ,1.9256e-01 ,1.9454e-01 /) - kbo(:,18, 5) = (/ & - &1.6220e-01 ,1.6268e-01 ,1.6247e-01 ,1.6354e-01 ,1.6555e-01 /) - kbo(:,19, 5) = (/ & - &1.3796e-01 ,1.3803e-01 ,1.3823e-01 ,1.3977e-01 ,1.4117e-01 /) - kbo(:,20, 5) = (/ & - &1.1636e-01 ,1.1631e-01 ,1.1719e-01 ,1.1821e-01 ,1.1915e-01 /) - kbo(:,21, 5) = (/ & - &9.7502e-02 ,9.7703e-02 ,9.8615e-02 ,9.9561e-02 ,1.0025e-01 /) - kbo(:,22, 5) = (/ & - &8.1562e-02 ,8.1981e-02 ,8.2659e-02 ,8.3450e-02 ,8.3918e-02 /) - kbo(:,23, 5) = (/ & - &6.8080e-02 ,6.8683e-02 ,6.9366e-02 ,6.9894e-02 ,7.0282e-02 /) - kbo(:,24, 5) = (/ & - &5.7119e-02 ,5.7682e-02 ,5.8192e-02 ,5.8547e-02 ,5.9029e-02 /) - kbo(:,25, 5) = (/ & - &4.7811e-02 ,4.8293e-02 ,4.8606e-02 ,4.8996e-02 ,4.9473e-02 /) - kbo(:,26, 5) = (/ & - &3.9890e-02 ,4.0316e-02 ,4.0576e-02 ,4.1016e-02 ,4.1455e-02 /) - kbo(:,27, 5) = (/ & - &3.3117e-02 ,3.3470e-02 ,3.3770e-02 ,3.4189e-02 ,3.4527e-02 /) - kbo(:,28, 5) = (/ & - &2.7406e-02 ,2.7694e-02 ,2.7971e-02 ,2.8332e-02 ,2.8599e-02 /) - kbo(:,29, 5) = (/ & - &2.2401e-02 ,2.2630e-02 ,2.2890e-02 ,2.3150e-02 ,2.3396e-02 /) - kbo(:,30, 5) = (/ & - &1.8227e-02 ,1.8399e-02 ,1.8623e-02 ,1.8850e-02 ,1.9028e-02 /) - kbo(:,31, 5) = (/ & - &1.4683e-02 ,1.4830e-02 ,1.5011e-02 ,1.5187e-02 ,1.5326e-02 /) - kbo(:,32, 5) = (/ & - &1.1826e-02 ,1.1971e-02 ,1.2101e-02 ,1.2245e-02 ,1.2313e-02 /) - kbo(:,33, 5) = (/ & - &9.5307e-03 ,9.6419e-03 ,9.7421e-03 ,9.8284e-03 ,9.8826e-03 /) - kbo(:,34, 5) = (/ & - &7.7176e-03 ,7.8031e-03 ,7.8838e-03 ,7.9405e-03 ,7.9679e-03 /) - kbo(:,35, 5) = (/ & - &6.2512e-03 ,6.3124e-03 ,6.3712e-03 ,6.4126e-03 ,6.4324e-03 /) - kbo(:,36, 5) = (/ & - &5.0560e-03 ,5.1076e-03 ,5.1576e-03 ,5.1918e-03 ,5.2018e-03 /) - kbo(:,37, 5) = (/ & - &4.0965e-03 ,4.1427e-03 ,4.1869e-03 ,4.2164e-03 ,4.2222e-03 /) - kbo(:,38, 5) = (/ & - &3.3169e-03 ,3.3541e-03 ,3.3940e-03 ,3.4174e-03 ,3.4236e-03 /) - kbo(:,39, 5) = (/ & - &2.6806e-03 ,2.7157e-03 ,2.7440e-03 ,2.7658e-03 ,2.7739e-03 /) - kbo(:,40, 5) = (/ & - &2.1766e-03 ,2.2105e-03 ,2.2356e-03 ,2.2533e-03 ,2.2654e-03 /) - kbo(:,41, 5) = (/ & - &1.7690e-03 ,1.7997e-03 ,1.8217e-03 ,1.8373e-03 ,1.8492e-03 /) - kbo(:,42, 5) = (/ & - &1.4370e-03 ,1.4625e-03 ,1.4833e-03 ,1.4970e-03 ,1.5072e-03 /) - kbo(:,43, 5) = (/ & - &1.1671e-03 ,1.1863e-03 ,1.2051e-03 ,1.2193e-03 ,1.2276e-03 /) - kbo(:,44, 5) = (/ & - &9.4820e-04 ,9.6187e-04 ,9.7830e-04 ,9.9143e-04 ,9.9963e-04 /) - kbo(:,45, 5) = (/ & - &7.6916e-04 ,7.7831e-04 ,7.9153e-04 ,8.0495e-04 ,8.1281e-04 /) - kbo(:,46, 5) = (/ & - &6.2348e-04 ,6.3114e-04 ,6.4009e-04 ,6.5199e-04 ,6.6002e-04 /) - kbo(:,47, 5) = (/ & - &5.0390e-04 ,5.1138e-04 ,5.1807e-04 ,5.2655e-04 ,5.3606e-04 /) - kbo(:,48, 5) = (/ & - &4.0606e-04 ,4.1379e-04 ,4.1952e-04 ,4.2537e-04 ,4.3314e-04 /) - kbo(:,49, 5) = (/ & - &3.2659e-04 ,3.3285e-04 ,3.3902e-04 ,3.4315e-04 ,3.4880e-04 /) - kbo(:,50, 5) = (/ & - &2.6466e-04 ,2.6781e-04 ,2.7393e-04 ,2.7826e-04 ,2.8216e-04 /) - kbo(:,51, 5) = (/ & - &2.1507e-04 ,2.1721e-04 ,2.2109e-04 ,2.2570e-04 ,2.2911e-04 /) - kbo(:,52, 5) = (/ & - &1.7470e-04 ,1.7639e-04 ,1.7813e-04 ,1.8197e-04 ,1.8512e-04 /) - kbo(:,53, 5) = (/ & - &1.4115e-04 ,1.4348e-04 ,1.4425e-04 ,1.4633e-04 ,1.4939e-04 /) - kbo(:,54, 5) = (/ & - &1.1575e-04 ,1.1704e-04 ,1.1812e-04 ,1.1890e-04 ,1.2106e-04 /) - kbo(:,55, 5) = (/ & - &9.4726e-05 ,9.5455e-05 ,9.6825e-05 ,9.7465e-05 ,9.8412e-05 /) - kbo(:,56, 5) = (/ & - &7.9719e-05 ,7.8475e-05 ,7.9571e-05 ,8.0057e-05 ,8.0565e-05 /) - kbo(:,57, 5) = (/ & - &6.7373e-05 ,6.4174e-05 ,6.4600e-05 ,6.5492e-05 ,6.6130e-05 /) - kbo(:,58, 5) = (/ & - &5.8248e-05 ,5.4990e-05 ,5.3012e-05 ,5.3610e-05 ,5.4283e-05 /) - kbo(:,59, 5) = (/ & - &5.0210e-05 ,4.6885e-05 ,4.4678e-05 ,4.4690e-05 ,4.5330e-05 /) - kbo(:,13, 6) = (/ & - &8.1815e-01 ,8.2185e-01 ,8.2056e-01 ,8.1693e-01 ,8.1119e-01 /) - kbo(:,14, 6) = (/ & - &6.9938e-01 ,7.0403e-01 ,7.0310e-01 ,6.9893e-01 ,6.9382e-01 /) - kbo(:,15, 6) = (/ & - &6.0306e-01 ,6.0562e-01 ,6.0433e-01 ,6.0124e-01 ,5.9539e-01 /) - kbo(:,16, 6) = (/ & - &5.1717e-01 ,5.1741e-01 ,5.1602e-01 ,5.1303e-01 ,5.0799e-01 /) - kbo(:,17, 6) = (/ & - &4.3954e-01 ,4.3996e-01 ,4.3917e-01 ,4.3585e-01 ,4.3144e-01 /) - kbo(:,18, 6) = (/ & - &3.7098e-01 ,3.7164e-01 ,3.7046e-01 ,3.6778e-01 ,3.6412e-01 /) - kbo(:,19, 6) = (/ & - &3.1410e-01 ,3.1452e-01 ,3.1318e-01 ,3.1054e-01 ,3.0829e-01 /) - kbo(:,20, 6) = (/ & - &2.6425e-01 ,2.6434e-01 ,2.6287e-01 ,2.6129e-01 ,2.6054e-01 /) - kbo(:,21, 6) = (/ & - &2.2166e-01 ,2.2161e-01 ,2.2078e-01 ,2.2017e-01 ,2.1929e-01 /) - kbo(:,22, 6) = (/ & - &1.8499e-01 ,1.8512e-01 ,1.8480e-01 ,1.8474e-01 ,1.8395e-01 /) - kbo(:,23, 6) = (/ & - &1.5462e-01 ,1.5460e-01 ,1.5448e-01 ,1.5440e-01 ,1.5366e-01 /) - kbo(:,24, 6) = (/ & - &1.2929e-01 ,1.2940e-01 ,1.2953e-01 ,1.2932e-01 ,1.2872e-01 /) - kbo(:,25, 6) = (/ & - &1.0802e-01 ,1.0819e-01 ,1.0834e-01 ,1.0817e-01 ,1.0761e-01 /) - kbo(:,26, 6) = (/ & - &9.0060e-02 ,9.0350e-02 ,9.0334e-02 ,9.0150e-02 ,8.9781e-02 /) - kbo(:,27, 6) = (/ & - &7.4680e-02 ,7.4863e-02 ,7.4908e-02 ,7.4831e-02 ,7.4608e-02 /) - kbo(:,28, 6) = (/ & - &6.1687e-02 ,6.1865e-02 ,6.1970e-02 ,6.1917e-02 ,6.1874e-02 /) - kbo(:,29, 6) = (/ & - &5.0513e-02 ,5.0701e-02 ,5.0801e-02 ,5.0773e-02 ,5.0734e-02 /) - kbo(:,30, 6) = (/ & - &4.1201e-02 ,4.1379e-02 ,4.1449e-02 ,4.1422e-02 ,4.1408e-02 /) - kbo(:,31, 6) = (/ & - &3.3339e-02 ,3.3480e-02 ,3.3517e-02 ,3.3503e-02 ,3.3496e-02 /) - kbo(:,32, 6) = (/ & - &2.6941e-02 ,2.7025e-02 ,2.7045e-02 ,2.7032e-02 ,2.7041e-02 /) - kbo(:,33, 6) = (/ & - &2.1746e-02 ,2.1784e-02 ,2.1791e-02 ,2.1788e-02 ,2.1780e-02 /) - kbo(:,34, 6) = (/ & - &1.7618e-02 ,1.7652e-02 ,1.7653e-02 ,1.7651e-02 ,1.7645e-02 /) - kbo(:,35, 6) = (/ & - &1.4278e-02 ,1.4314e-02 ,1.4305e-02 ,1.4306e-02 ,1.4294e-02 /) - kbo(:,36, 6) = (/ & - &1.1580e-02 ,1.1612e-02 ,1.1606e-02 ,1.1608e-02 ,1.1605e-02 /) - kbo(:,37, 6) = (/ & - &9.4219e-03 ,9.4537e-03 ,9.4624e-03 ,9.4565e-03 ,9.4577e-03 /) - kbo(:,38, 6) = (/ & - &7.6536e-03 ,7.6870e-03 ,7.7033e-03 ,7.6954e-03 ,7.6994e-03 /) - kbo(:,39, 6) = (/ & - &6.2054e-03 ,6.2357e-03 ,6.2573e-03 ,6.2573e-03 ,6.2600e-03 /) - kbo(:,40, 6) = (/ & - &5.0787e-03 ,5.1000e-03 ,5.1231e-03 ,5.1304e-03 ,5.1270e-03 /) - kbo(:,41, 6) = (/ & - &4.1553e-03 ,4.1734e-03 ,4.1950e-03 ,4.2100e-03 ,4.2073e-03 /) - kbo(:,42, 6) = (/ & - &3.3951e-03 ,3.4115e-03 ,3.4321e-03 ,3.4456e-03 ,3.4459e-03 /) - kbo(:,43, 6) = (/ & - &2.7739e-03 ,2.7892e-03 ,2.8063e-03 ,2.8198e-03 ,2.8248e-03 /) - kbo(:,44, 6) = (/ & - &2.2638e-03 ,2.2784e-03 ,2.2918e-03 ,2.3046e-03 ,2.3113e-03 /) - kbo(:,45, 6) = (/ & - &1.8451e-03 ,1.8580e-03 ,1.8678e-03 ,1.8806e-03 ,1.8860e-03 /) - kbo(:,46, 6) = (/ & - &1.5013e-03 ,1.5134e-03 ,1.5237e-03 ,1.5316e-03 ,1.5391e-03 /) - kbo(:,47, 6) = (/ & - &1.2205e-03 ,1.2340e-03 ,1.2429e-03 ,1.2503e-03 ,1.2568e-03 /) - kbo(:,48, 6) = (/ & - &9.8959e-04 ,1.0036e-03 ,1.0115e-03 ,1.0182e-03 ,1.0235e-03 /) - kbo(:,49, 6) = (/ & - &8.0128e-04 ,8.1327e-04 ,8.2211e-04 ,8.2807e-04 ,8.3181e-04 /) - kbo(:,50, 6) = (/ & - &6.5077e-04 ,6.6049e-04 ,6.6942e-04 ,6.7493e-04 ,6.7909e-04 /) - kbo(:,51, 6) = (/ & - &5.2860e-04 ,5.3765e-04 ,5.4562e-04 ,5.5099e-04 ,5.5519e-04 /) - kbo(:,52, 6) = (/ & - &4.2741e-04 ,4.3678e-04 ,4.4379e-04 ,4.4944e-04 ,4.5321e-04 /) - kbo(:,53, 6) = (/ & - &3.4420e-04 ,3.5368e-04 ,3.5979e-04 ,3.6513e-04 ,3.6858e-04 /) - kbo(:,54, 6) = (/ & - &2.7911e-04 ,2.8752e-04 ,2.9393e-04 ,2.9865e-04 ,3.0238e-04 /) - kbo(:,55, 6) = (/ & - &2.2659e-04 ,2.3415e-04 ,2.4084e-04 ,2.4534e-04 ,2.4896e-04 /) - kbo(:,56, 6) = (/ & - &1.8317e-04 ,1.9078e-04 ,1.9656e-04 ,2.0135e-04 ,2.0466e-04 /) - kbo(:,57, 6) = (/ & - &1.4828e-04 ,1.5527e-04 ,1.6035e-04 ,1.6503e-04 ,1.6825e-04 /) - kbo(:,58, 6) = (/ & - &1.1818e-04 ,1.2542e-04 ,1.3082e-04 ,1.3476e-04 ,1.3831e-04 /) - kbo(:,59, 6) = (/ & - &9.6673e-05 ,1.0368e-04 ,1.0861e-04 ,1.1211e-04 ,1.1553e-04 /) - kbo(:,13, 7) = (/ & - &2.1727e+00 ,2.1507e+00 ,2.1220e+00 ,2.0892e+00 ,2.0541e+00 /) - kbo(:,14, 7) = (/ & - &1.7980e+00 ,1.7753e+00 ,1.7493e+00 ,1.7241e+00 ,1.6941e+00 /) - kbo(:,15, 7) = (/ & - &1.5327e+00 ,1.5148e+00 ,1.4951e+00 ,1.4705e+00 ,1.4480e+00 /) - kbo(:,16, 7) = (/ & - &1.3007e+00 ,1.2909e+00 ,1.2720e+00 ,1.2527e+00 ,1.2359e+00 /) - kbo(:,17, 7) = (/ & - &1.1117e+00 ,1.1002e+00 ,1.0859e+00 ,1.0728e+00 ,1.0608e+00 /) - kbo(:,18, 7) = (/ & - &9.4895e-01 ,9.3669e-01 ,9.2658e-01 ,9.1630e-01 ,9.0461e-01 /) - kbo(:,19, 7) = (/ & - &8.0771e-01 ,7.9960e-01 ,7.9052e-01 ,7.8134e-01 ,7.7103e-01 /) - kbo(:,20, 7) = (/ & - &6.8397e-01 ,6.7733e-01 ,6.6931e-01 ,6.6104e-01 ,6.5276e-01 /) - kbo(:,21, 7) = (/ & - &5.7680e-01 ,5.7078e-01 ,5.6416e-01 ,5.5706e-01 ,5.4996e-01 /) - kbo(:,22, 7) = (/ & - &4.8402e-01 ,4.7901e-01 ,4.7292e-01 ,4.6701e-01 ,4.6224e-01 /) - kbo(:,23, 7) = (/ & - &4.0435e-01 ,4.0004e-01 ,3.9588e-01 ,3.9219e-01 ,3.8835e-01 /) - kbo(:,24, 7) = (/ & - &3.3766e-01 ,3.3478e-01 ,3.3178e-01 ,3.2887e-01 ,3.2604e-01 /) - kbo(:,25, 7) = (/ & - &2.8141e-01 ,2.7941e-01 ,2.7716e-01 ,2.7469e-01 ,2.7266e-01 /) - kbo(:,26, 7) = (/ & - &2.3429e-01 ,2.3260e-01 ,2.3087e-01 ,2.2897e-01 ,2.2751e-01 /) - kbo(:,27, 7) = (/ & - &1.9420e-01 ,1.9275e-01 ,1.9122e-01 ,1.8991e-01 ,1.8923e-01 /) - kbo(:,28, 7) = (/ & - &1.6015e-01 ,1.5905e-01 ,1.5800e-01 ,1.5718e-01 ,1.5696e-01 /) - kbo(:,29, 7) = (/ & - &1.3094e-01 ,1.3014e-01 ,1.2944e-01 ,1.2906e-01 ,1.2899e-01 /) - kbo(:,30, 7) = (/ & - &1.0666e-01 ,1.0604e-01 ,1.0563e-01 ,1.0549e-01 ,1.0548e-01 /) - kbo(:,31, 7) = (/ & - &8.6275e-02 ,8.5845e-02 ,8.5617e-02 ,8.5505e-02 ,8.5535e-02 /) - kbo(:,32, 7) = (/ & - &6.9798e-02 ,6.9528e-02 ,6.9393e-02 ,6.9336e-02 ,6.9374e-02 /) - kbo(:,33, 7) = (/ & - &5.6418e-02 ,5.6253e-02 ,5.6185e-02 ,5.6126e-02 ,5.6165e-02 /) - kbo(:,34, 7) = (/ & - &4.5866e-02 ,4.5727e-02 ,4.5682e-02 ,4.5616e-02 ,4.5707e-02 /) - kbo(:,35, 7) = (/ & - &3.7274e-02 ,3.7180e-02 ,3.7143e-02 ,3.7120e-02 ,3.7200e-02 /) - kbo(:,36, 7) = (/ & - &3.0350e-02 ,3.0274e-02 ,3.0257e-02 ,3.0235e-02 ,3.0299e-02 /) - kbo(:,37, 7) = (/ & - &2.4821e-02 ,2.4753e-02 ,2.4742e-02 ,2.4741e-02 ,2.4790e-02 /) - kbo(:,38, 7) = (/ & - &2.0268e-02 ,2.0223e-02 ,2.0196e-02 ,2.0200e-02 ,2.0236e-02 /) - kbo(:,39, 7) = (/ & - &1.6521e-02 ,1.6487e-02 ,1.6459e-02 ,1.6462e-02 ,1.6499e-02 /) - kbo(:,40, 7) = (/ & - &1.3551e-02 ,1.3542e-02 ,1.3531e-02 ,1.3538e-02 ,1.3571e-02 /) - kbo(:,41, 7) = (/ & - &1.1139e-02 ,1.1135e-02 ,1.1130e-02 ,1.1141e-02 ,1.1171e-02 /) - kbo(:,42, 7) = (/ & - &9.1492e-03 ,9.1515e-03 ,9.1518e-03 ,9.1649e-03 ,9.1900e-03 /) - kbo(:,43, 7) = (/ & - &7.5083e-03 ,7.5191e-03 ,7.5258e-03 ,7.5334e-03 ,7.5552e-03 /) - kbo(:,44, 7) = (/ & - &6.1594e-03 ,6.1707e-03 ,6.1785e-03 ,6.1865e-03 ,6.2090e-03 /) - kbo(:,45, 7) = (/ & - &5.0436e-03 ,5.0526e-03 ,5.0656e-03 ,5.0711e-03 ,5.0867e-03 /) - kbo(:,46, 7) = (/ & - &4.1291e-03 ,4.1408e-03 ,4.1483e-03 ,4.1539e-03 ,4.1670e-03 /) - kbo(:,47, 7) = (/ & - &3.3808e-03 ,3.3903e-03 ,3.4014e-03 ,3.4059e-03 ,3.4179e-03 /) - kbo(:,48, 7) = (/ & - &2.7630e-03 ,2.7730e-03 ,2.7794e-03 ,2.7876e-03 ,2.7961e-03 /) - kbo(:,49, 7) = (/ & - &2.2529e-03 ,2.2614e-03 ,2.2681e-03 ,2.2743e-03 ,2.2825e-03 /) - kbo(:,50, 7) = (/ & - &1.8409e-03 ,1.8507e-03 ,1.8571e-03 ,1.8629e-03 ,1.8694e-03 /) - kbo(:,51, 7) = (/ & - &1.5059e-03 ,1.5160e-03 ,1.5224e-03 ,1.5287e-03 ,1.5343e-03 /) - kbo(:,52, 7) = (/ & - &1.2303e-03 ,1.2392e-03 ,1.2461e-03 ,1.2522e-03 ,1.2570e-03 /) - kbo(:,53, 7) = (/ & - &1.0020e-03 ,1.0115e-03 ,1.0178e-03 ,1.0227e-03 ,1.0281e-03 /) - kbo(:,54, 7) = (/ & - &8.2130e-04 ,8.3060e-04 ,8.3778e-04 ,8.4304e-04 ,8.4741e-04 /) - kbo(:,55, 7) = (/ & - &6.7498e-04 ,6.8670e-04 ,6.9292e-04 ,6.9895e-04 ,7.0313e-04 /) - kbo(:,56, 7) = (/ & - &5.5427e-04 ,5.6524e-04 ,5.7318e-04 ,5.7892e-04 ,5.8355e-04 /) - kbo(:,57, 7) = (/ & - &4.5437e-04 ,4.6585e-04 ,4.7333e-04 ,4.7899e-04 ,4.8346e-04 /) - kbo(:,58, 7) = (/ & - &3.7314e-04 ,3.8385e-04 ,3.9164e-04 ,3.9732e-04 ,4.0183e-04 /) - kbo(:,59, 7) = (/ & - &3.1164e-04 ,3.2163e-04 ,3.2929e-04 ,3.3498e-04 ,3.3967e-04 /) - kbo(:,13, 8) = (/ & - &7.1017e+00 ,7.0462e+00 ,6.9629e+00 ,6.8569e+00 ,6.7518e+00 /) - kbo(:,14, 8) = (/ & - &5.9884e+00 ,5.9470e+00 ,5.8924e+00 ,5.8216e+00 ,5.7342e+00 /) - kbo(:,15, 8) = (/ & - &4.9849e+00 ,4.9563e+00 ,4.9071e+00 ,4.8502e+00 ,4.7771e+00 /) - kbo(:,16, 8) = (/ & - &4.1453e+00 ,4.1136e+00 ,4.0790e+00 ,4.0345e+00 ,3.9753e+00 /) - kbo(:,17, 8) = (/ & - &3.5269e+00 ,3.5022e+00 ,3.4717e+00 ,3.4323e+00 ,3.3830e+00 /) - kbo(:,18, 8) = (/ & - &3.0258e+00 ,3.0139e+00 ,2.9887e+00 ,2.9518e+00 ,2.9096e+00 /) - kbo(:,19, 8) = (/ & - &2.6100e+00 ,2.6057e+00 ,2.5839e+00 ,2.5531e+00 ,2.5181e+00 /) - kbo(:,20, 8) = (/ & - &2.2532e+00 ,2.2444e+00 ,2.2242e+00 ,2.2015e+00 ,2.1737e+00 /) - kbo(:,21, 8) = (/ & - &1.9361e+00 ,1.9257e+00 ,1.9080e+00 ,1.8885e+00 ,1.8663e+00 /) - kbo(:,22, 8) = (/ & - &1.6493e+00 ,1.6394e+00 ,1.6256e+00 ,1.6084e+00 ,1.5911e+00 /) - kbo(:,23, 8) = (/ & - &1.3971e+00 ,1.3901e+00 ,1.3774e+00 ,1.3628e+00 ,1.3482e+00 /) - kbo(:,24, 8) = (/ & - &1.1828e+00 ,1.1757e+00 ,1.1653e+00 ,1.1541e+00 ,1.1420e+00 /) - kbo(:,25, 8) = (/ & - &9.9841e-01 ,9.9173e-01 ,9.8314e-01 ,9.7419e-01 ,9.6526e-01 /) - kbo(:,26, 8) = (/ & - &8.3815e-01 ,8.3237e-01 ,8.2631e-01 ,8.2072e-01 ,8.1439e-01 /) - kbo(:,27, 8) = (/ & - &6.9885e-01 ,6.9534e-01 ,6.9172e-01 ,6.8787e-01 ,6.8202e-01 /) - kbo(:,28, 8) = (/ & - &5.8056e-01 ,5.7858e-01 ,5.7609e-01 ,5.7252e-01 ,5.6730e-01 /) - kbo(:,29, 8) = (/ & - &4.7795e-01 ,4.7646e-01 ,4.7447e-01 ,4.7127e-01 ,4.6716e-01 /) - kbo(:,30, 8) = (/ & - &3.9180e-01 ,3.9040e-01 ,3.8874e-01 ,3.8567e-01 ,3.8256e-01 /) - kbo(:,31, 8) = (/ & - &3.1850e-01 ,3.1735e-01 ,3.1544e-01 ,3.1324e-01 ,3.1109e-01 /) - kbo(:,32, 8) = (/ & - &2.5851e-01 ,2.5736e-01 ,2.5590e-01 ,2.5439e-01 ,2.5264e-01 /) - kbo(:,33, 8) = (/ & - &2.0938e-01 ,2.0841e-01 ,2.0741e-01 ,2.0615e-01 ,2.0501e-01 /) - kbo(:,34, 8) = (/ & - &1.7037e-01 ,1.6964e-01 ,1.6891e-01 ,1.6812e-01 ,1.6728e-01 /) - kbo(:,35, 8) = (/ & - &1.3875e-01 ,1.3827e-01 ,1.3776e-01 ,1.3724e-01 ,1.3661e-01 /) - kbo(:,36, 8) = (/ & - &1.1324e-01 ,1.1288e-01 ,1.1260e-01 ,1.1226e-01 ,1.1182e-01 /) - kbo(:,37, 8) = (/ & - &9.2766e-02 ,9.2595e-02 ,9.2422e-02 ,9.2186e-02 ,9.1910e-02 /) - kbo(:,38, 8) = (/ & - &7.5939e-02 ,7.5826e-02 ,7.5761e-02 ,7.5637e-02 ,7.5518e-02 /) - kbo(:,39, 8) = (/ & - &6.2076e-02 ,6.2014e-02 ,6.2019e-02 ,6.2000e-02 ,6.1957e-02 /) - kbo(:,40, 8) = (/ & - &5.1067e-02 ,5.1119e-02 ,5.1147e-02 ,5.1217e-02 ,5.1232e-02 /) - kbo(:,41, 8) = (/ & - &4.2004e-02 ,4.2110e-02 ,4.2194e-02 ,4.2288e-02 ,4.2348e-02 /) - kbo(:,42, 8) = (/ & - &3.4565e-02 ,3.4686e-02 ,3.4772e-02 ,3.4891e-02 ,3.5001e-02 /) - kbo(:,43, 8) = (/ & - &2.8439e-02 ,2.8558e-02 ,2.8651e-02 ,2.8781e-02 ,2.8908e-02 /) - kbo(:,44, 8) = (/ & - &2.3381e-02 ,2.3495e-02 ,2.3607e-02 ,2.3736e-02 ,2.3863e-02 /) - kbo(:,45, 8) = (/ & - &1.9178e-02 ,1.9302e-02 ,1.9411e-02 ,1.9527e-02 ,1.9645e-02 /) - kbo(:,46, 8) = (/ & - &1.5718e-02 ,1.5824e-02 ,1.5935e-02 ,1.6052e-02 ,1.6161e-02 /) - kbo(:,47, 8) = (/ & - &1.2888e-02 ,1.2994e-02 ,1.3091e-02 ,1.3201e-02 ,1.3310e-02 /) - kbo(:,48, 8) = (/ & - &1.0534e-02 ,1.0644e-02 ,1.0741e-02 ,1.0828e-02 ,1.0922e-02 /) - kbo(:,49, 8) = (/ & - &8.5773e-03 ,8.6840e-03 ,8.7716e-03 ,8.8561e-03 ,8.9344e-03 /) - kbo(:,50, 8) = (/ & - &7.0118e-03 ,7.1121e-03 ,7.1954e-03 ,7.2655e-03 ,7.3372e-03 /) - kbo(:,51, 8) = (/ & - &5.7344e-03 ,5.8326e-03 ,5.9098e-03 ,5.9770e-03 ,6.0423e-03 /) - kbo(:,52, 8) = (/ & - &4.6784e-03 ,4.7703e-03 ,4.8415e-03 ,4.9016e-03 ,4.9646e-03 /) - kbo(:,53, 8) = (/ & - &3.8084e-03 ,3.8892e-03 ,3.9565e-03 ,4.0107e-03 ,4.0624e-03 /) - kbo(:,54, 8) = (/ & - &3.1302e-03 ,3.1988e-03 ,3.2604e-03 ,3.3140e-03 ,3.3627e-03 /) - kbo(:,55, 8) = (/ & - &2.5815e-03 ,2.6417e-03 ,2.7045e-03 ,2.7548e-03 ,2.8045e-03 /) - kbo(:,56, 8) = (/ & - &2.1299e-03 ,2.1858e-03 ,2.2412e-03 ,2.2906e-03 ,2.3394e-03 /) - kbo(:,57, 8) = (/ & - &1.7549e-03 ,1.8058e-03 ,1.8577e-03 ,1.9050e-03 ,1.9496e-03 /) - kbo(:,58, 8) = (/ & - &1.4508e-03 ,1.4946e-03 ,1.5437e-03 ,1.5867e-03 ,1.6288e-03 /) - kbo(:,59, 8) = (/ & - &1.2226e-03 ,1.2669e-03 ,1.3143e-03 ,1.3547e-03 ,1.3969e-03 /) - kbo(:,13, 9) = (/ & - &4.2167e+01 ,4.2169e+01 ,4.2037e+01 ,4.1794e+01 ,4.1453e+01 /) - kbo(:,14, 9) = (/ & - &3.6302e+01 ,3.6287e+01 ,3.6134e+01 ,3.5895e+01 ,3.5553e+01 /) - kbo(:,15, 9) = (/ & - &3.1018e+01 ,3.0974e+01 ,3.0831e+01 ,3.0595e+01 ,3.0284e+01 /) - kbo(:,16, 9) = (/ & - &2.6381e+01 ,2.6327e+01 ,2.6171e+01 ,2.5940e+01 ,2.5630e+01 /) - kbo(:,17, 9) = (/ & - &2.2159e+01 ,2.2069e+01 ,2.1921e+01 ,2.1709e+01 ,2.1443e+01 /) - kbo(:,18, 9) = (/ & - &1.8546e+01 ,1.8422e+01 ,1.8249e+01 ,1.8049e+01 ,1.7832e+01 /) - kbo(:,19, 9) = (/ & - &1.5581e+01 ,1.5418e+01 ,1.5257e+01 ,1.5071e+01 ,1.4880e+01 /) - kbo(:,20, 9) = (/ & - &1.3153e+01 ,1.2997e+01 ,1.2837e+01 ,1.2663e+01 ,1.2482e+01 /) - kbo(:,21, 9) = (/ & - &1.1154e+01 ,1.1003e+01 ,1.0876e+01 ,1.0723e+01 ,1.0559e+01 /) - kbo(:,22, 9) = (/ & - &9.6248e+00 ,9.4985e+00 ,9.3603e+00 ,9.2175e+00 ,9.0746e+00 /) - kbo(:,23, 9) = (/ & - &8.3452e+00 ,8.2318e+00 ,8.1134e+00 ,7.9935e+00 ,7.8653e+00 /) - kbo(:,24, 9) = (/ & - &7.2560e+00 ,7.1534e+00 ,7.0580e+00 ,6.9498e+00 ,6.8440e+00 /) - kbo(:,25, 9) = (/ & - &6.3013e+00 ,6.2279e+00 ,6.1411e+00 ,6.0460e+00 ,5.9566e+00 /) - kbo(:,26, 9) = (/ & - &5.4473e+00 ,5.3837e+00 ,5.3066e+00 ,5.2353e+00 ,5.1609e+00 /) - kbo(:,27, 9) = (/ & - &4.6665e+00 ,4.6055e+00 ,4.5477e+00 ,4.4876e+00 ,4.4277e+00 /) - kbo(:,28, 9) = (/ & - &3.9616e+00 ,3.9145e+00 ,3.8668e+00 ,3.8180e+00 ,3.7694e+00 /) - kbo(:,29, 9) = (/ & - &3.3226e+00 ,3.2862e+00 ,3.2469e+00 ,3.2091e+00 ,3.1718e+00 /) - kbo(:,30, 9) = (/ & - &2.7659e+00 ,2.7390e+00 ,2.7094e+00 ,2.6815e+00 ,2.6543e+00 /) - kbo(:,31, 9) = (/ & - &2.2826e+00 ,2.2617e+00 ,2.2409e+00 ,2.2203e+00 ,2.1979e+00 /) - kbo(:,32, 9) = (/ & - &1.8802e+00 ,1.8648e+00 ,1.8493e+00 ,1.8340e+00 ,1.8168e+00 /) - kbo(:,33, 9) = (/ & - &1.5466e+00 ,1.5353e+00 ,1.5232e+00 ,1.5114e+00 ,1.4999e+00 /) - kbo(:,34, 9) = (/ & - &1.2752e+00 ,1.2674e+00 ,1.2588e+00 ,1.2512e+00 ,1.2426e+00 /) - kbo(:,35, 9) = (/ & - &1.0520e+00 ,1.0466e+00 ,1.0412e+00 ,1.0356e+00 ,1.0296e+00 /) - kbo(:,36, 9) = (/ & - &8.6897e-01 ,8.6546e-01 ,8.6220e-01 ,8.5818e-01 ,8.5421e-01 /) - kbo(:,37, 9) = (/ & - &7.1978e-01 ,7.1767e-01 ,7.1572e-01 ,7.1373e-01 ,7.1176e-01 /) - kbo(:,38, 9) = (/ & - &5.9482e-01 ,5.9396e-01 ,5.9353e-01 ,5.9295e-01 ,5.9232e-01 /) - kbo(:,39, 9) = (/ & - &4.9071e-01 ,4.9116e-01 ,4.9162e-01 ,4.9173e-01 ,4.9201e-01 /) - kbo(:,40, 9) = (/ & - &4.0707e-01 ,4.0846e-01 ,4.0948e-01 ,4.1018e-01 ,4.1089e-01 /) - kbo(:,41, 9) = (/ & - &3.3813e-01 ,3.3959e-01 ,3.4089e-01 ,3.4218e-01 ,3.4329e-01 /) - kbo(:,42, 9) = (/ & - &2.8061e-01 ,2.8231e-01 ,2.8363e-01 ,2.8501e-01 ,2.8630e-01 /) - kbo(:,43, 9) = (/ & - &2.3284e-01 ,2.3448e-01 ,2.3606e-01 ,2.3737e-01 ,2.3893e-01 /) - kbo(:,44, 9) = (/ & - &1.9306e-01 ,1.9456e-01 ,1.9627e-01 ,1.9759e-01 ,1.9913e-01 /) - kbo(:,45, 9) = (/ & - &1.5984e-01 ,1.6139e-01 ,1.6282e-01 ,1.6435e-01 ,1.6569e-01 /) - kbo(:,46, 9) = (/ & - &1.3218e-01 ,1.3367e-01 ,1.3504e-01 ,1.3656e-01 ,1.3780e-01 /) - kbo(:,47, 9) = (/ & - &1.0925e-01 ,1.1079e-01 ,1.1209e-01 ,1.1337e-01 ,1.1463e-01 /) - kbo(:,48, 9) = (/ & - &9.0249e-02 ,9.1522e-02 ,9.2774e-02 ,9.3960e-02 ,9.5177e-02 /) - kbo(:,49, 9) = (/ & - &7.4377e-02 ,7.5400e-02 ,7.6569e-02 ,7.7633e-02 ,7.8742e-02 /) - kbo(:,50, 9) = (/ & - &6.1418e-02 ,6.2415e-02 ,6.3422e-02 ,6.4413e-02 ,6.5389e-02 /) - kbo(:,51, 9) = (/ & - &5.0729e-02 ,5.1644e-02 ,5.2564e-02 ,5.3444e-02 ,5.4353e-02 /) - kbo(:,52, 9) = (/ & - &4.1908e-02 ,4.2660e-02 ,4.3502e-02 ,4.4323e-02 ,4.5095e-02 /) - kbo(:,53, 9) = (/ & - &3.4462e-02 ,3.5223e-02 ,3.5939e-02 ,3.6640e-02 ,3.7360e-02 /) - kbo(:,54, 9) = (/ & - &2.8588e-02 ,2.9269e-02 ,2.9929e-02 ,3.0560e-02 ,3.1160e-02 /) - kbo(:,55, 9) = (/ & - &2.3807e-02 ,2.4406e-02 ,2.4997e-02 ,2.5573e-02 ,2.6196e-02 /) - kbo(:,56, 9) = (/ & - &1.9841e-02 ,2.0395e-02 ,2.0945e-02 ,2.1491e-02 ,2.2006e-02 /) - kbo(:,57, 9) = (/ & - &1.6519e-02 ,1.7032e-02 ,1.7546e-02 ,1.8054e-02 ,1.8550e-02 /) - kbo(:,58, 9) = (/ & - &1.3793e-02 ,1.4292e-02 ,1.4753e-02 ,1.5213e-02 ,1.5695e-02 /) - kbo(:,59, 9) = (/ & - &1.1809e-02 ,1.2269e-02 ,1.2713e-02 ,1.3163e-02 ,1.3635e-02 /) - kbo(:,13,10) = (/ & - &1.7142e+02 ,1.7281e+02 ,1.7236e+02 ,1.7114e+02 ,1.6934e+02 /) - kbo(:,14,10) = (/ & - &1.5574e+02 ,1.5556e+02 ,1.5469e+02 ,1.5334e+02 ,1.5193e+02 /) - kbo(:,15,10) = (/ & - &1.3728e+02 ,1.3704e+02 ,1.3637e+02 ,1.3560e+02 ,1.3459e+02 /) - kbo(:,16,10) = (/ & - &1.1953e+02 ,1.1932e+02 ,1.1895e+02 ,1.1818e+02 ,1.1715e+02 /) - kbo(:,17,10) = (/ & - &1.0359e+02 ,1.0375e+02 ,1.0320e+02 ,1.0240e+02 ,1.0131e+02 /) - kbo(:,18,10) = (/ & - &8.8878e+01 ,8.9020e+01 ,8.8706e+01 ,8.7973e+01 ,8.6746e+01 /) - kbo(:,19,10) = (/ & - &7.4020e+01 ,7.4305e+01 ,7.4019e+01 ,7.3466e+01 ,7.2562e+01 /) - kbo(:,20,10) = (/ & - &6.0721e+01 ,6.1015e+01 ,6.0921e+01 ,6.0532e+01 ,5.9983e+01 /) - kbo(:,21,10) = (/ & - &5.0465e+01 ,5.0665e+01 ,5.0241e+01 ,4.9849e+01 ,4.9385e+01 /) - kbo(:,22,10) = (/ & - &4.0819e+01 ,4.0731e+01 ,4.0529e+01 ,4.0271e+01 ,3.9749e+01 /) - kbo(:,23,10) = (/ & - &3.4205e+01 ,3.4202e+01 ,3.4020e+01 ,3.3582e+01 ,3.3186e+01 /) - kbo(:,24,10) = (/ & - &2.9307e+01 ,2.9168e+01 ,2.8849e+01 ,2.8552e+01 ,2.8160e+01 /) - kbo(:,25,10) = (/ & - &2.5427e+01 ,2.5125e+01 ,2.4814e+01 ,2.4511e+01 ,2.4195e+01 /) - kbo(:,26,10) = (/ & - &2.2227e+01 ,2.1953e+01 ,2.1723e+01 ,2.1344e+01 ,2.1061e+01 /) - kbo(:,27,10) = (/ & - &1.9562e+01 ,1.9387e+01 ,1.9087e+01 ,1.8779e+01 ,1.8567e+01 /) - kbo(:,28,10) = (/ & - &1.7147e+01 ,1.6935e+01 ,1.6668e+01 ,1.6479e+01 ,1.6263e+01 /) - kbo(:,29,10) = (/ & - &1.4781e+01 ,1.4573e+01 ,1.4404e+01 ,1.4242e+01 ,1.4093e+01 /) - kbo(:,30,10) = (/ & - &1.2615e+01 ,1.2471e+01 ,1.2325e+01 ,1.2193e+01 ,1.2047e+01 /) - kbo(:,31,10) = (/ & - &1.0637e+01 ,1.0540e+01 ,1.0405e+01 ,1.0303e+01 ,1.0219e+01 /) - kbo(:,32,10) = (/ & - &8.9113e+00 ,8.8364e+00 ,8.7502e+00 ,8.6801e+00 ,8.6141e+00 /) - kbo(:,33,10) = (/ & - &7.4220e+00 ,7.3714e+00 ,7.3296e+00 ,7.2916e+00 ,7.2335e+00 /) - kbo(:,34,10) = (/ & - &6.2166e+00 ,6.1844e+00 ,6.1565e+00 ,6.1097e+00 ,6.0839e+00 /) - kbo(:,35,10) = (/ & - &5.1978e+00 ,5.1804e+00 ,5.1597e+00 ,5.1357e+00 ,5.1182e+00 /) - kbo(:,36,10) = (/ & - &4.3470e+00 ,4.3385e+00 ,4.3233e+00 ,4.3177e+00 ,4.3104e+00 /) - kbo(:,37,10) = (/ & - &3.6398e+00 ,3.6424e+00 ,3.6345e+00 ,3.6386e+00 ,3.6334e+00 /) - kbo(:,38,10) = (/ & - &3.0434e+00 ,3.0512e+00 ,3.0559e+00 ,3.0639e+00 ,3.0639e+00 /) - kbo(:,39,10) = (/ & - &2.5458e+00 ,2.5538e+00 ,2.5569e+00 ,2.5728e+00 ,2.5769e+00 /) - kbo(:,40,10) = (/ & - &2.1317e+00 ,2.1438e+00 ,2.1539e+00 ,2.1706e+00 ,2.1835e+00 /) - kbo(:,41,10) = (/ & - &1.7848e+00 ,1.8052e+00 ,1.8158e+00 ,1.8336e+00 ,1.8470e+00 /) - kbo(:,42,10) = (/ & - &1.4932e+00 ,1.5091e+00 ,1.5289e+00 ,1.5466e+00 ,1.5621e+00 /) - kbo(:,43,10) = (/ & - &1.2466e+00 ,1.2672e+00 ,1.2843e+00 ,1.3063e+00 ,1.3216e+00 /) - kbo(:,44,10) = (/ & - &1.0395e+00 ,1.0592e+00 ,1.0758e+00 ,1.0990e+00 ,1.1149e+00 /) - kbo(:,45,10) = (/ & - &8.6570e-01 ,8.8331e-01 ,9.0051e-01 ,9.1956e-01 ,9.3855e-01 /) - kbo(:,46,10) = (/ & - &7.2006e-01 ,7.3467e-01 ,7.5104e-01 ,7.6845e-01 ,7.8787e-01 /) - kbo(:,47,10) = (/ & - &5.9818e-01 ,6.0970e-01 ,6.2444e-01 ,6.4248e-01 ,6.5898e-01 /) - kbo(:,48,10) = (/ & - &4.9441e-01 ,5.0661e-01 ,5.1925e-01 ,5.3379e-01 ,5.5029e-01 /) - kbo(:,49,10) = (/ & - &4.0883e-01 ,4.1946e-01 ,4.3019e-01 ,4.4310e-01 ,4.5870e-01 /) - kbo(:,50,10) = (/ & - &3.3724e-01 ,3.4698e-01 ,3.5791e-01 ,3.6811e-01 ,3.8262e-01 /) - kbo(:,51,10) = (/ & - &2.7937e-01 ,2.8820e-01 ,2.9748e-01 ,3.0671e-01 ,3.1956e-01 /) - kbo(:,52,10) = (/ & - &2.3100e-01 ,2.3806e-01 ,2.4610e-01 ,2.5504e-01 ,2.6621e-01 /) - kbo(:,53,10) = (/ & - &1.9108e-01 ,1.9654e-01 ,2.0325e-01 ,2.1194e-01 ,2.2154e-01 /) - kbo(:,54,10) = (/ & - &1.5899e-01 ,1.6347e-01 ,1.6947e-01 ,1.7655e-01 ,1.8610e-01 /) - kbo(:,55,10) = (/ & - &1.3326e-01 ,1.3696e-01 ,1.4221e-01 ,1.4834e-01 ,1.5647e-01 /) - kbo(:,56,10) = (/ & - &1.1049e-01 ,1.1469e-01 ,1.1935e-01 ,1.2428e-01 ,1.3176e-01 /) - kbo(:,57,10) = (/ & - &9.2761e-02 ,9.6003e-02 ,9.9705e-02 ,1.0515e-01 ,1.1098e-01 /) - kbo(:,58,10) = (/ & - &7.7951e-02 ,8.0603e-02 ,8.4255e-02 ,8.8708e-02 ,9.3824e-02 /) - kbo(:,59,10) = (/ & - &6.6831e-02 ,6.9853e-02 ,7.3196e-02 ,7.7714e-02 ,8.2447e-02 /) - kbo(:,13,11) = (/ & - &2.9044e+02 ,2.9107e+02 ,2.9274e+02 ,2.9324e+02 ,2.9124e+02 /) - kbo(:,14,11) = (/ & - &2.7118e+02 ,2.7257e+02 ,2.7251e+02 ,2.7007e+02 ,2.6710e+02 /) - kbo(:,15,11) = (/ & - &2.5062e+02 ,2.5131e+02 ,2.4974e+02 ,2.4698e+02 ,2.4378e+02 /) - kbo(:,16,11) = (/ & - &2.2673e+02 ,2.2541e+02 ,2.2341e+02 ,2.2106e+02 ,2.1873e+02 /) - kbo(:,17,11) = (/ & - &1.9976e+02 ,1.9861e+02 ,1.9716e+02 ,1.9539e+02 ,1.9362e+02 /) - kbo(:,18,11) = (/ & - &1.7313e+02 ,1.7242e+02 ,1.7179e+02 ,1.7065e+02 ,1.6917e+02 /) - kbo(:,19,11) = (/ & - &1.5014e+02 ,1.4982e+02 ,1.4894e+02 ,1.4750e+02 ,1.4584e+02 /) - kbo(:,20,11) = (/ & - &1.2916e+02 ,1.2859e+02 ,1.2771e+02 ,1.2637e+02 ,1.2459e+02 /) - kbo(:,21,11) = (/ & - &1.0806e+02 ,1.0775e+02 ,1.0718e+02 ,1.0610e+02 ,1.0475e+02 /) - kbo(:,22,11) = (/ & - &8.9165e+01 ,8.9073e+01 ,8.8652e+01 ,8.7815e+01 ,8.6979e+01 /) - kbo(:,23,11) = (/ & - &7.2556e+01 ,7.2172e+01 ,7.1575e+01 ,7.1058e+01 ,7.0305e+01 /) - kbo(:,24,11) = (/ & - &5.8830e+01 ,5.8306e+01 ,5.7758e+01 ,5.7080e+01 ,5.6291e+01 /) - kbo(:,25,11) = (/ & - &4.9821e+01 ,4.9499e+01 ,4.8965e+01 ,4.8414e+01 ,4.7810e+01 /) - kbo(:,26,11) = (/ & - &4.2622e+01 ,4.2267e+01 ,4.1876e+01 ,4.1470e+01 ,4.0806e+01 /) - kbo(:,27,11) = (/ & - &3.6706e+01 ,3.6324e+01 ,3.5968e+01 ,3.5540e+01 ,3.5058e+01 /) - kbo(:,28,11) = (/ & - &3.1978e+01 ,3.1566e+01 ,3.1237e+01 ,3.0772e+01 ,3.0454e+01 /) - kbo(:,29,11) = (/ & - &2.7828e+01 ,2.7575e+01 ,2.7171e+01 ,2.6860e+01 ,2.6508e+01 /) - kbo(:,30,11) = (/ & - &2.4147e+01 ,2.3835e+01 ,2.3571e+01 ,2.3332e+01 ,2.3114e+01 /) - kbo(:,31,11) = (/ & - &2.0703e+01 ,2.0408e+01 ,2.0254e+01 ,2.0067e+01 ,1.9883e+01 /) - kbo(:,32,11) = (/ & - &1.7639e+01 ,1.7476e+01 ,1.7324e+01 ,1.7159e+01 ,1.7076e+01 /) - kbo(:,33,11) = (/ & - &1.4975e+01 ,1.4865e+01 ,1.4744e+01 ,1.4668e+01 ,1.4624e+01 /) - kbo(:,34,11) = (/ & - &1.2711e+01 ,1.2631e+01 ,1.2589e+01 ,1.2550e+01 ,1.2508e+01 /) - kbo(:,35,11) = (/ & - &1.0751e+01 ,1.0723e+01 ,1.0704e+01 ,1.0702e+01 ,1.0681e+01 /) - kbo(:,36,11) = (/ & - &9.0814e+00 ,9.0752e+00 ,9.0908e+00 ,9.1081e+00 ,9.1217e+00 /) - kbo(:,37,11) = (/ & - &7.6820e+00 ,7.7040e+00 ,7.7379e+00 ,7.7515e+00 ,7.7864e+00 /) - kbo(:,38,11) = (/ & - &6.4923e+00 ,6.5176e+00 ,6.5490e+00 ,6.5779e+00 ,6.6281e+00 /) - kbo(:,39,11) = (/ & - &5.4567e+00 ,5.4975e+00 ,5.5468e+00 ,5.5843e+00 ,5.6396e+00 /) - kbo(:,40,11) = (/ & - &4.6201e+00 ,4.6597e+00 ,4.7074e+00 ,4.7531e+00 ,4.8054e+00 /) - kbo(:,41,11) = (/ & - &3.8974e+00 ,3.9399e+00 ,3.9967e+00 ,4.0418e+00 ,4.1011e+00 /) - kbo(:,42,11) = (/ & - &3.2907e+00 ,3.3361e+00 ,3.3839e+00 ,3.4382e+00 ,3.4997e+00 /) - kbo(:,43,11) = (/ & - &2.7732e+00 ,2.8146e+00 ,2.8677e+00 ,2.9201e+00 ,2.9866e+00 /) - kbo(:,44,11) = (/ & - &2.3284e+00 ,2.3728e+00 ,2.4251e+00 ,2.4785e+00 ,2.5440e+00 /) - kbo(:,45,11) = (/ & - &1.9528e+00 ,1.9951e+00 ,2.0498e+00 ,2.1003e+00 ,2.1644e+00 /) - kbo(:,46,11) = (/ & - &1.6318e+00 ,1.6755e+00 ,1.7227e+00 ,1.7737e+00 ,1.8354e+00 /) - kbo(:,47,11) = (/ & - &1.3599e+00 ,1.4032e+00 ,1.4486e+00 ,1.4978e+00 ,1.5556e+00 /) - kbo(:,48,11) = (/ & - &1.1311e+00 ,1.1685e+00 ,1.2136e+00 ,1.2615e+00 ,1.3144e+00 /) - kbo(:,49,11) = (/ & - &9.3555e-01 ,9.7341e-01 ,1.0126e+00 ,1.0587e+00 ,1.1063e+00 /) - kbo(:,50,11) = (/ & - &7.7693e-01 ,8.0966e-01 ,8.4684e-01 ,8.9020e-01 ,9.3317e-01 /) - kbo(:,51,11) = (/ & - &6.4536e-01 ,6.7488e-01 ,7.0604e-01 ,7.4875e-01 ,7.8723e-01 /) - kbo(:,52,11) = (/ & - &5.3457e-01 ,5.5971e-01 ,5.9092e-01 ,6.2609e-01 ,6.6312e-01 /) - kbo(:,53,11) = (/ & - &4.4222e-01 ,4.6435e-01 ,4.9056e-01 ,5.2208e-01 ,5.5614e-01 /) - kbo(:,54,11) = (/ & - &3.6743e-01 ,3.8638e-01 ,4.1127e-01 ,4.3844e-01 ,4.6892e-01 /) - kbo(:,55,11) = (/ & - &3.0658e-01 ,3.2360e-01 ,3.4391e-01 ,3.6924e-01 ,3.9670e-01 /) - kbo(:,56,11) = (/ & - &2.5551e-01 ,2.6954e-01 ,2.8819e-01 ,3.1080e-01 ,3.3508e-01 /) - kbo(:,57,11) = (/ & - &2.1322e-01 ,2.2632e-01 ,2.4139e-01 ,2.5957e-01 ,2.8310e-01 /) - kbo(:,58,11) = (/ & - &1.7898e-01 ,1.8948e-01 ,2.0228e-01 ,2.1870e-01 ,2.4000e-01 /) - kbo(:,59,11) = (/ & - &1.5351e-01 ,1.6320e-01 ,1.7439e-01 ,1.8953e-01 ,2.0982e-01 /) - kbo(:,13,12) = (/ & - &5.5035e+02 ,5.5083e+02 ,5.4893e+02 ,5.4549e+02 ,5.4357e+02 /) - kbo(:,14,12) = (/ & - &5.1666e+02 ,5.1747e+02 ,5.1731e+02 ,5.1865e+02 ,5.1926e+02 /) - kbo(:,15,12) = (/ & - &4.8259e+02 ,4.8322e+02 ,4.8500e+02 ,4.8625e+02 ,4.8440e+02 /) - kbo(:,16,12) = (/ & - &4.4814e+02 ,4.5080e+02 ,4.5253e+02 ,4.5080e+02 ,4.4664e+02 /) - kbo(:,17,12) = (/ & - &4.1611e+02 ,4.1780e+02 ,4.1594e+02 ,4.1174e+02 ,4.0672e+02 /) - kbo(:,18,12) = (/ & - &3.8097e+02 ,3.8017e+02 ,3.7694e+02 ,3.7269e+02 ,3.6847e+02 /) - kbo(:,19,12) = (/ & - &3.3900e+02 ,3.3735e+02 ,3.3499e+02 ,3.3205e+02 ,3.2864e+02 /) - kbo(:,20,12) = (/ & - &2.9644e+02 ,2.9567e+02 ,2.9387e+02 ,2.9171e+02 ,2.8914e+02 /) - kbo(:,21,12) = (/ & - &2.5711e+02 ,2.5659e+02 ,2.5545e+02 ,2.5349e+02 ,2.5090e+02 /) - kbo(:,22,12) = (/ & - &2.2227e+02 ,2.2144e+02 ,2.1973e+02 ,2.1742e+02 ,2.1472e+02 /) - kbo(:,23,12) = (/ & - &1.8874e+02 ,1.8786e+02 ,1.8655e+02 ,1.8434e+02 ,1.8190e+02 /) - kbo(:,24,12) = (/ & - &1.5708e+02 ,1.5682e+02 ,1.5564e+02 ,1.5414e+02 ,1.5250e+02 /) - kbo(:,25,12) = (/ & - &1.2691e+02 ,1.2649e+02 ,1.2582e+02 ,1.2476e+02 ,1.2335e+02 /) - kbo(:,26,12) = (/ & - &1.0261e+02 ,1.0208e+02 ,1.0124e+02 ,1.0027e+02 ,9.9263e+01 /) - kbo(:,27,12) = (/ & - &8.5769e+01 ,8.4989e+01 ,8.4207e+01 ,8.3351e+01 ,8.2249e+01 /) - kbo(:,28,12) = (/ & - &7.3314e+01 ,7.2801e+01 ,7.2005e+01 ,7.1293e+01 ,7.0277e+01 /) - kbo(:,29,12) = (/ & - &6.2526e+01 ,6.2052e+01 ,6.1497e+01 ,6.0774e+01 ,6.0060e+01 /) - kbo(:,30,12) = (/ & - &5.3636e+01 ,5.3199e+01 ,5.2692e+01 ,5.1970e+01 ,5.1392e+01 /) - kbo(:,31,12) = (/ & - &4.6032e+01 ,4.5690e+01 ,4.5122e+01 ,4.4615e+01 ,4.4345e+01 /) - kbo(:,32,12) = (/ & - &3.9736e+01 ,3.9262e+01 ,3.8850e+01 ,3.8552e+01 ,3.8247e+01 /) - kbo(:,33,12) = (/ & - &3.4154e+01 ,3.3807e+01 ,3.3534e+01 ,3.3264e+01 ,3.3008e+01 /) - kbo(:,34,12) = (/ & - &2.9451e+01 ,2.9219e+01 ,2.9024e+01 ,2.8833e+01 ,2.8685e+01 /) - kbo(:,35,12) = (/ & - &2.5346e+01 ,2.5246e+01 ,2.5119e+01 ,2.4977e+01 ,2.4976e+01 /) - kbo(:,36,12) = (/ & - &2.1817e+01 ,2.1779e+01 ,2.1703e+01 ,2.1681e+01 ,2.1750e+01 /) - kbo(:,37,12) = (/ & - &1.8813e+01 ,1.8767e+01 ,1.8799e+01 ,1.8847e+01 ,1.8941e+01 /) - kbo(:,38,12) = (/ & - &1.6125e+01 ,1.6141e+01 ,1.6208e+01 ,1.6337e+01 ,1.6455e+01 /) - kbo(:,39,12) = (/ & - &1.3770e+01 ,1.3861e+01 ,1.3953e+01 ,1.4099e+01 ,1.4238e+01 /) - kbo(:,40,12) = (/ & - &1.1787e+01 ,1.1887e+01 ,1.2028e+01 ,1.2178e+01 ,1.2352e+01 /) - kbo(:,41,12) = (/ & - &1.0073e+01 ,1.0213e+01 ,1.0351e+01 ,1.0547e+01 ,1.0724e+01 /) - kbo(:,42,12) = (/ & - &8.5925e+00 ,8.7331e+00 ,8.9300e+00 ,9.0948e+00 ,9.2833e+00 /) - kbo(:,43,12) = (/ & - &7.3118e+00 ,7.4895e+00 ,7.6577e+00 ,7.8465e+00 ,8.0457e+00 /) - kbo(:,44,12) = (/ & - &6.2222e+00 ,6.3886e+00 ,6.5774e+00 ,6.7646e+00 ,6.9710e+00 /) - kbo(:,45,12) = (/ & - &5.2923e+00 ,5.4528e+00 ,5.6365e+00 ,5.8147e+00 ,6.0122e+00 /) - kbo(:,46,12) = (/ & - &4.4844e+00 ,4.6394e+00 ,4.8198e+00 ,4.9986e+00 ,5.1861e+00 /) - kbo(:,47,12) = (/ & - &3.7915e+00 ,3.9458e+00 ,4.1119e+00 ,4.2905e+00 ,4.4702e+00 /) - kbo(:,48,12) = (/ & - &3.2031e+00 ,3.3449e+00 ,3.4984e+00 ,3.6554e+00 ,3.8276e+00 /) - kbo(:,49,12) = (/ & - &2.6829e+00 ,2.8156e+00 ,2.9666e+00 ,3.1113e+00 ,3.2647e+00 /) - kbo(:,50,12) = (/ & - &2.2570e+00 ,2.3778e+00 ,2.5052e+00 ,2.6542e+00 ,2.7988e+00 /) - kbo(:,51,12) = (/ & - &1.8957e+00 ,2.0048e+00 ,2.1275e+00 ,2.2538e+00 ,2.3944e+00 /) - kbo(:,52,12) = (/ & - &1.5859e+00 ,1.6936e+00 ,1.7982e+00 ,1.9164e+00 ,2.0433e+00 /) - kbo(:,53,12) = (/ & - &1.3268e+00 ,1.4138e+00 ,1.5132e+00 ,1.6183e+00 ,1.7346e+00 /) - kbo(:,54,12) = (/ & - &1.1132e+00 ,1.1981e+00 ,1.2847e+00 ,1.3880e+00 ,1.4926e+00 /) - kbo(:,55,12) = (/ & - &9.3399e-01 ,1.0137e+00 ,1.0949e+00 ,1.1891e+00 ,1.2944e+00 /) - kbo(:,56,12) = (/ & - &7.8822e-01 ,8.5806e-01 ,9.3275e-01 ,1.0165e+00 ,1.1194e+00 /) - kbo(:,57,12) = (/ & - &6.5846e-01 ,7.2237e-01 ,7.9487e-01 ,8.7625e-01 ,9.6708e-01 /) - kbo(:,58,12) = (/ & - &5.5082e-01 ,6.0932e-01 ,6.7677e-01 ,7.5228e-01 ,8.3907e-01 /) - kbo(:,59,12) = (/ & - &4.7097e-01 ,5.2693e-01 ,5.8955e-01 ,6.6574e-01 ,7.5245e-01 /) - kbo(:,13,13) = (/ & - &1.1006e+03 ,1.0930e+03 ,1.0868e+03 ,1.0845e+03 ,1.0783e+03 /) - kbo(:,14,13) = (/ & - &1.0959e+03 ,1.0919e+03 ,1.0910e+03 ,1.0859e+03 ,1.0743e+03 /) - kbo(:,15,13) = (/ & - &1.0739e+03 ,1.0736e+03 ,1.0715e+03 ,1.0637e+03 ,1.0554e+03 /) - kbo(:,16,13) = (/ & - &1.0348e+03 ,1.0368e+03 ,1.0336e+03 ,1.0297e+03 ,1.0251e+03 /) - kbo(:,17,13) = (/ & - &9.8104e+02 ,9.8318e+02 ,9.8416e+02 ,9.8388e+02 ,9.8177e+02 /) - kbo(:,18,13) = (/ & - &9.1939e+02 ,9.2259e+02 ,9.2492e+02 ,9.2597e+02 ,9.2235e+02 /) - kbo(:,19,13) = (/ & - &8.5744e+02 ,8.6138e+02 ,8.6320e+02 ,8.6092e+02 ,8.5380e+02 /) - kbo(:,20,13) = (/ & - &7.9222e+02 ,7.9480e+02 ,7.9309e+02 ,7.8688e+02 ,7.7879e+02 /) - kbo(:,21,13) = (/ & - &7.2352e+02 ,7.2196e+02 ,7.1706e+02 ,7.1061e+02 ,7.0329e+02 /) - kbo(:,22,13) = (/ & - &6.4947e+02 ,6.4590e+02 ,6.4130e+02 ,6.3579e+02 ,6.2875e+02 /) - kbo(:,23,13) = (/ & - &5.7230e+02 ,5.6958e+02 ,5.6554e+02 ,5.6079e+02 ,5.5572e+02 /) - kbo(:,24,13) = (/ & - &4.9907e+02 ,4.9687e+02 ,4.9379e+02 ,4.8982e+02 ,4.8472e+02 /) - kbo(:,25,13) = (/ & - &4.3090e+02 ,4.2914e+02 ,4.2610e+02 ,4.2208e+02 ,4.1721e+02 /) - kbo(:,26,13) = (/ & - &3.6834e+02 ,3.6617e+02 ,3.6313e+02 ,3.5932e+02 ,3.5509e+02 /) - kbo(:,27,13) = (/ & - &3.0815e+02 ,3.0692e+02 ,3.0435e+02 ,3.0103e+02 ,2.9773e+02 /) - kbo(:,28,13) = (/ & - &2.5402e+02 ,2.5274e+02 ,2.5083e+02 ,2.4862e+02 ,2.4624e+02 /) - kbo(:,29,13) = (/ & - &2.0985e+02 ,2.0878e+02 ,2.0729e+02 ,2.0573e+02 ,2.0375e+02 /) - kbo(:,30,13) = (/ & - &1.7400e+02 ,1.7284e+02 ,1.7160e+02 ,1.7041e+02 ,1.6891e+02 /) - kbo(:,31,13) = (/ & - &1.4590e+02 ,1.4515e+02 ,1.4409e+02 ,1.4281e+02 ,1.4174e+02 /) - kbo(:,32,13) = (/ & - &1.2352e+02 ,1.2281e+02 ,1.2185e+02 ,1.2095e+02 ,1.2000e+02 /) - kbo(:,33,13) = (/ & - &1.0504e+02 ,1.0445e+02 ,1.0374e+02 ,1.0318e+02 ,1.0254e+02 /) - kbo(:,34,13) = (/ & - &8.9914e+01 ,8.9264e+01 ,8.8774e+01 ,8.8232e+01 ,8.7968e+01 /) - kbo(:,35,13) = (/ & - &7.7137e+01 ,7.6673e+01 ,7.6351e+01 ,7.5989e+01 ,7.5812e+01 /) - kbo(:,36,13) = (/ & - &6.6630e+01 ,6.6370e+01 ,6.6000e+01 ,6.5870e+01 ,6.5834e+01 /) - kbo(:,37,13) = (/ & - &5.7835e+01 ,5.7711e+01 ,5.7500e+01 ,5.7478e+01 ,5.7625e+01 /) - kbo(:,38,13) = (/ & - &5.0326e+01 ,5.0239e+01 ,5.0196e+01 ,5.0287e+01 ,5.0433e+01 /) - kbo(:,39,13) = (/ & - &4.3783e+01 ,4.3749e+01 ,4.3859e+01 ,4.3984e+01 ,4.4262e+01 /) - kbo(:,40,13) = (/ & - &3.8311e+01 ,3.8366e+01 ,3.8494e+01 ,3.8770e+01 ,3.9082e+01 /) - kbo(:,41,13) = (/ & - &3.3505e+01 ,3.3696e+01 ,3.3809e+01 ,3.4139e+01 ,3.4534e+01 /) - kbo(:,42,13) = (/ & - &2.9251e+01 ,2.9507e+01 ,2.9744e+01 ,3.0106e+01 ,3.0543e+01 /) - kbo(:,43,13) = (/ & - &2.5517e+01 ,2.5852e+01 ,2.6152e+01 ,2.6566e+01 ,2.7067e+01 /) - kbo(:,44,13) = (/ & - &2.2216e+01 ,2.2648e+01 ,2.3006e+01 ,2.3424e+01 ,2.3903e+01 /) - kbo(:,45,13) = (/ & - &1.9313e+01 ,1.9753e+01 ,2.0163e+01 ,2.0601e+01 ,2.1122e+01 /) - kbo(:,46,13) = (/ & - &1.6765e+01 ,1.7207e+01 ,1.7660e+01 ,1.8173e+01 ,1.8710e+01 /) - kbo(:,47,13) = (/ & - &1.4512e+01 ,1.4984e+01 ,1.5402e+01 ,1.5957e+01 ,1.6479e+01 /) - kbo(:,48,13) = (/ & - &1.2486e+01 ,1.2967e+01 ,1.3459e+01 ,1.3983e+01 ,1.4524e+01 /) - kbo(:,49,13) = (/ & - &1.0733e+01 ,1.1206e+01 ,1.1665e+01 ,1.2207e+01 ,1.2773e+01 /) - kbo(:,50,13) = (/ & - &9.2157e+00 ,9.6749e+00 ,1.0151e+01 ,1.0704e+01 ,1.1247e+01 /) - kbo(:,51,13) = (/ & - &7.9591e+00 ,8.3907e+00 ,8.8535e+00 ,9.3811e+00 ,9.9247e+00 /) - kbo(:,52,13) = (/ & - &6.8068e+00 ,7.2371e+00 ,7.6934e+00 ,8.2063e+00 ,8.7553e+00 /) - kbo(:,53,13) = (/ & - &5.7967e+00 ,6.2085e+00 ,6.6421e+00 ,7.1263e+00 ,7.6815e+00 /) - kbo(:,54,13) = (/ & - &4.9653e+00 ,5.3639e+00 ,5.8069e+00 ,6.2889e+00 ,6.8002e+00 /) - kbo(:,55,13) = (/ & - &4.2889e+00 ,4.6915e+00 ,5.1242e+00 ,5.6024e+00 ,6.0981e+00 /) - kbo(:,56,13) = (/ & - &3.6900e+00 ,4.0833e+00 ,4.5086e+00 ,4.9809e+00 ,5.4831e+00 /) - kbo(:,57,13) = (/ & - &3.1898e+00 ,3.5703e+00 ,3.9801e+00 ,4.4470e+00 ,4.9431e+00 /) - kbo(:,58,13) = (/ & - &2.7316e+00 ,3.0989e+00 ,3.5187e+00 ,3.9710e+00 ,4.4675e+00 /) - kbo(:,59,13) = (/ & - &2.4661e+00 ,2.8142e+00 ,3.2518e+00 ,3.7206e+00 ,4.2604e+00 /) - kbo(:,13,14) = (/ & - &2.3516e+03 ,2.3425e+03 ,2.3393e+03 ,2.3344e+03 ,2.3274e+03 /) - kbo(:,14,14) = (/ & - &2.4560e+03 ,2.4460e+03 ,2.4416e+03 ,2.4361e+03 ,2.4328e+03 /) - kbo(:,15,14) = (/ & - &2.5504e+03 ,2.5434e+03 ,2.5388e+03 ,2.5327e+03 ,2.5248e+03 /) - kbo(:,16,14) = (/ & - &2.6346e+03 ,2.6312e+03 ,2.6203e+03 ,2.6088e+03 ,2.5971e+03 /) - kbo(:,17,14) = (/ & - &2.7008e+03 ,2.6935e+03 ,2.6794e+03 ,2.6636e+03 ,2.6477e+03 /) - kbo(:,18,14) = (/ & - &2.7305e+03 ,2.7239e+03 ,2.7111e+03 ,2.6981e+03 ,2.6813e+03 /) - kbo(:,19,14) = (/ & - &2.7180e+03 ,2.7110e+03 ,2.7049e+03 ,2.6968e+03 ,2.6814e+03 /) - kbo(:,20,14) = (/ & - &2.6672e+03 ,2.6665e+03 ,2.6675e+03 ,2.6606e+03 ,2.6429e+03 /) - kbo(:,21,14) = (/ & - &2.5815e+03 ,2.5893e+03 ,2.5905e+03 ,2.5819e+03 ,2.5661e+03 /) - kbo(:,22,14) = (/ & - &2.4673e+03 ,2.4773e+03 ,2.4773e+03 ,2.4699e+03 ,2.4562e+03 /) - kbo(:,23,14) = (/ & - &2.3326e+03 ,2.3404e+03 ,2.3409e+03 ,2.3341e+03 ,2.3220e+03 /) - kbo(:,24,14) = (/ & - &2.1770e+03 ,2.1831e+03 ,2.1839e+03 ,2.1779e+03 ,2.1650e+03 /) - kbo(:,25,14) = (/ & - &2.0113e+03 ,2.0166e+03 ,2.0154e+03 ,2.0063e+03 ,1.9910e+03 /) - kbo(:,26,14) = (/ & - &1.8365e+03 ,1.8415e+03 ,1.8363e+03 ,1.8253e+03 ,1.8117e+03 /) - kbo(:,27,14) = (/ & - &1.6595e+03 ,1.6581e+03 ,1.6515e+03 ,1.6428e+03 ,1.6322e+03 /) - kbo(:,28,14) = (/ & - &1.4809e+03 ,1.4771e+03 ,1.4724e+03 ,1.4658e+03 ,1.4569e+03 /) - kbo(:,29,14) = (/ & - &1.3089e+03 ,1.3068e+03 ,1.3044e+03 ,1.2991e+03 ,1.2930e+03 /) - kbo(:,30,14) = (/ & - &1.1460e+03 ,1.1478e+03 ,1.1472e+03 ,1.1450e+03 ,1.1415e+03 /) - kbo(:,31,14) = (/ & - &9.9693e+02 ,1.0002e+03 ,1.0008e+03 ,1.0017e+03 ,1.0008e+03 /) - kbo(:,32,14) = (/ & - &8.6070e+02 ,8.6544e+02 ,8.6833e+02 ,8.7044e+02 ,8.7331e+02 /) - kbo(:,33,14) = (/ & - &7.4260e+02 ,7.4642e+02 ,7.5058e+02 ,7.5528e+02 ,7.5991e+02 /) - kbo(:,34,14) = (/ & - &6.3829e+02 ,6.4348e+02 ,6.4940e+02 ,6.5551e+02 ,6.6078e+02 /) - kbo(:,35,14) = (/ & - &5.4846e+02 ,5.5540e+02 ,5.6285e+02 ,5.6932e+02 ,5.7603e+02 /) - kbo(:,36,14) = (/ & - &4.7198e+02 ,4.7993e+02 ,4.8784e+02 ,4.9478e+02 ,5.0307e+02 /) - kbo(:,37,14) = (/ & - &4.0498e+02 ,4.1318e+02 ,4.2147e+02 ,4.2948e+02 ,4.3820e+02 /) - kbo(:,38,14) = (/ & - &3.4831e+02 ,3.5680e+02 ,3.6471e+02 ,3.7305e+02 ,3.8282e+02 /) - kbo(:,39,14) = (/ & - &3.0154e+02 ,3.0929e+02 ,3.1734e+02 ,3.2632e+02 ,3.3596e+02 /) - kbo(:,40,14) = (/ & - &2.6084e+02 ,2.6836e+02 ,2.7578e+02 ,2.8455e+02 ,2.9457e+02 /) - kbo(:,41,14) = (/ & - &2.2737e+02 ,2.3379e+02 ,2.4131e+02 ,2.4917e+02 ,2.5928e+02 /) - kbo(:,42,14) = (/ & - &1.9807e+02 ,2.0493e+02 ,2.1238e+02 ,2.2005e+02 ,2.2904e+02 /) - kbo(:,43,14) = (/ & - &1.7261e+02 ,1.7936e+02 ,1.8667e+02 ,1.9473e+02 ,2.0355e+02 /) - kbo(:,44,14) = (/ & - &1.5104e+02 ,1.5759e+02 ,1.6444e+02 ,1.7229e+02 ,1.8143e+02 /) - kbo(:,45,14) = (/ & - &1.3320e+02 ,1.3908e+02 ,1.4536e+02 ,1.5288e+02 ,1.6210e+02 /) - kbo(:,46,14) = (/ & - &1.1788e+02 ,1.2339e+02 ,1.2957e+02 ,1.3630e+02 ,1.4477e+02 /) - kbo(:,47,14) = (/ & - &1.0441e+02 ,1.0994e+02 ,1.1542e+02 ,1.2186e+02 ,1.2998e+02 /) - kbo(:,48,14) = (/ & - &9.2989e+01 ,9.8393e+01 ,1.0367e+02 ,1.0970e+02 ,1.1684e+02 /) - kbo(:,49,14) = (/ & - &8.3245e+01 ,8.8109e+01 ,9.3736e+01 ,9.8882e+01 ,1.0570e+02 /) - kbo(:,50,14) = (/ & - &7.4420e+01 ,7.9603e+01 ,8.4592e+01 ,9.0187e+01 ,9.6226e+01 /) - kbo(:,51,14) = (/ & - &6.6553e+01 ,7.2000e+01 ,7.7144e+01 ,8.2193e+01 ,8.8503e+01 /) - kbo(:,52,14) = (/ & - &5.9519e+01 ,6.4793e+01 ,7.0321e+01 ,7.5806e+01 ,8.1580e+01 /) - kbo(:,53,14) = (/ & - &5.3233e+01 ,5.8402e+01 ,6.4217e+01 ,6.9900e+01 ,7.5580e+01 /) - kbo(:,54,14) = (/ & - &4.7589e+01 ,5.2923e+01 ,5.8451e+01 ,6.4196e+01 ,7.0322e+01 /) - kbo(:,55,14) = (/ & - &4.2742e+01 ,4.7820e+01 ,5.3445e+01 ,5.9447e+01 ,6.5405e+01 /) - kbo(:,56,14) = (/ & - &3.8175e+01 ,4.3483e+01 ,4.9069e+01 ,5.5046e+01 ,6.1266e+01 /) - kbo(:,57,14) = (/ & - &3.4510e+01 ,3.9326e+01 ,4.4806e+01 ,5.1166e+01 ,5.7169e+01 /) - kbo(:,58,14) = (/ & - &3.1419e+01 ,3.6120e+01 ,4.1281e+01 ,4.7436e+01 ,5.4030e+01 /) - kbo(:,59,14) = (/ & - &3.0087e+01 ,3.4624e+01 ,3.9514e+01 ,4.5129e+01 ,5.1873e+01 /) - kbo(:,13,15) = (/ & - &5.1911e+03 ,5.1717e+03 ,5.1553e+03 ,5.1395e+03 ,5.1397e+03 /) - kbo(:,14,15) = (/ & - &5.8547e+03 ,5.8285e+03 ,5.7963e+03 ,5.7766e+03 ,5.7715e+03 /) - kbo(:,15,15) = (/ & - &6.5298e+03 ,6.4858e+03 ,6.4506e+03 ,6.4312e+03 ,6.4243e+03 /) - kbo(:,16,15) = (/ & - &7.2117e+03 ,7.1510e+03 ,7.1189e+03 ,7.1000e+03 ,7.0870e+03 /) - kbo(:,17,15) = (/ & - &7.8953e+03 ,7.8291e+03 ,7.7890e+03 ,7.7670e+03 ,7.7489e+03 /) - kbo(:,18,15) = (/ & - &8.5855e+03 ,8.5208e+03 ,8.4668e+03 ,8.4206e+03 ,8.3980e+03 /) - kbo(:,19,15) = (/ & - &9.2674e+03 ,9.2049e+03 ,9.1326e+03 ,9.0736e+03 ,9.0525e+03 /) - kbo(:,20,15) = (/ & - &9.9108e+03 ,9.8356e+03 ,9.7636e+03 ,9.7141e+03 ,9.6905e+03 /) - kbo(:,21,15) = (/ & - &1.0486e+04 ,1.0415e+04 ,1.0355e+04 ,1.0317e+04 ,1.0287e+04 /) - kbo(:,22,15) = (/ & - &1.0985e+04 ,1.0920e+04 ,1.0875e+04 ,1.0845e+04 ,1.0804e+04 /) - kbo(:,23,15) = (/ & - &1.1398e+04 ,1.1342e+04 ,1.1308e+04 ,1.1276e+04 ,1.1234e+04 /) - kbo(:,24,15) = (/ & - &1.1709e+04 ,1.1672e+04 ,1.1645e+04 ,1.1614e+04 ,1.1576e+04 /) - kbo(:,25,15) = (/ & - &1.1914e+04 ,1.1896e+04 ,1.1878e+04 ,1.1862e+04 ,1.1837e+04 /) - kbo(:,26,15) = (/ & - &1.2040e+04 ,1.2031e+04 ,1.2029e+04 ,1.2020e+04 ,1.1998e+04 /) - kbo(:,27,15) = (/ & - &1.2071e+04 ,1.2081e+04 ,1.2089e+04 ,1.2085e+04 ,1.2069e+04 /) - kbo(:,28,15) = (/ & - &1.2021e+04 ,1.2058e+04 ,1.2068e+04 ,1.2068e+04 ,1.2073e+04 /) - kbo(:,29,15) = (/ & - &1.1886e+04 ,1.1940e+04 ,1.1970e+04 ,1.1995e+04 ,1.2017e+04 /) - kbo(:,30,15) = (/ & - &1.1676e+04 ,1.1749e+04 ,1.1808e+04 ,1.1861e+04 ,1.1908e+04 /) - kbo(:,31,15) = (/ & - &1.1416e+04 ,1.1515e+04 ,1.1609e+04 ,1.1694e+04 ,1.1764e+04 /) - kbo(:,32,15) = (/ & - &1.1108e+04 ,1.1250e+04 ,1.1385e+04 ,1.1503e+04 ,1.1598e+04 /) - kbo(:,33,15) = (/ & - &1.0773e+04 ,1.0963e+04 ,1.1141e+04 ,1.1294e+04 ,1.1425e+04 /) - kbo(:,34,15) = (/ & - &1.0438e+04 ,1.0673e+04 ,1.0885e+04 ,1.1077e+04 ,1.1249e+04 /) - kbo(:,35,15) = (/ & - &1.0089e+04 ,1.0368e+04 ,1.0621e+04 ,1.0852e+04 ,1.1064e+04 /) - kbo(:,36,15) = (/ & - &9.7201e+03 ,1.0041e+04 ,1.0341e+04 ,1.0614e+04 ,1.0861e+04 /) - kbo(:,37,15) = (/ & - &9.3163e+03 ,9.6805e+03 ,1.0024e+04 ,1.0342e+04 ,1.0632e+04 /) - kbo(:,38,15) = (/ & - &8.9272e+03 ,9.3307e+03 ,9.7169e+03 ,1.0074e+04 ,1.0402e+04 /) - kbo(:,39,15) = (/ & - &8.5526e+03 ,8.9993e+03 ,9.4206e+03 ,9.8154e+03 ,1.0180e+04 /) - kbo(:,40,15) = (/ & - &8.1494e+03 ,8.6355e+03 ,9.0962e+03 ,9.5285e+03 ,9.9305e+03 /) - kbo(:,41,15) = (/ & - &7.7529e+03 ,8.2788e+03 ,8.7766e+03 ,9.2446e+03 ,9.6773e+03 /) - kbo(:,42,15) = (/ & - &7.3760e+03 ,7.9339e+03 ,8.4681e+03 ,8.9681e+03 ,9.4340e+03 /) - kbo(:,43,15) = (/ & - &6.9819e+03 ,7.5721e+03 ,8.1409e+03 ,8.6746e+03 ,9.1691e+03 /) - kbo(:,44,15) = (/ & - &6.5827e+03 ,7.2081e+03 ,7.8084e+03 ,8.3740e+03 ,8.8982e+03 /) - kbo(:,45,15) = (/ & - &6.1901e+03 ,6.8485e+03 ,7.4795e+03 ,8.0786e+03 ,8.6303e+03 /) - kbo(:,46,15) = (/ & - &5.8024e+03 ,6.4801e+03 ,7.1413e+03 ,7.7702e+03 ,8.3548e+03 /) - kbo(:,47,15) = (/ & - &5.3938e+03 ,6.0870e+03 ,6.7778e+03 ,7.4341e+03 ,8.0495e+03 /) - kbo(:,48,15) = (/ & - &5.0092e+03 ,5.7052e+03 ,6.4111e+03 ,7.0962e+03 ,7.7409e+03 /) - kbo(:,49,15) = (/ & - &4.6045e+03 ,5.3446e+03 ,6.0469e+03 ,6.7562e+03 ,7.4302e+03 /) - kbo(:,50,15) = (/ & - &4.2414e+03 ,4.9940e+03 ,5.7177e+03 ,6.4318e+03 ,7.1308e+03 /) - kbo(:,51,15) = (/ & - &3.9058e+03 ,4.6435e+03 ,5.4144e+03 ,6.1320e+03 ,6.8340e+03 /) - kbo(:,52,15) = (/ & - &3.5828e+03 ,4.3242e+03 ,5.0835e+03 ,5.8308e+03 ,6.5455e+03 /) - kbo(:,53,15) = (/ & - &3.2733e+03 ,3.9950e+03 ,4.7590e+03 ,5.5300e+03 ,6.2613e+03 /) - kbo(:,54,15) = (/ & - &2.9973e+03 ,3.7033e+03 ,4.4798e+03 ,5.2468e+03 ,6.0054e+03 /) - kbo(:,55,15) = (/ & - &2.7347e+03 ,3.4529e+03 ,4.2020e+03 ,4.9932e+03 ,5.7360e+03 /) - kbo(:,56,15) = (/ & - &2.4953e+03 ,3.1956e+03 ,3.9366e+03 ,4.7176e+03 ,5.4818e+03 /) - kbo(:,57,15) = (/ & - &2.2617e+03 ,2.9413e+03 ,3.6881e+03 ,4.4499e+03 ,5.2349e+03 /) - kbo(:,58,15) = (/ & - &2.0370e+03 ,2.7148e+03 ,3.4460e+03 ,4.2224e+03 ,4.9906e+03 /) - kbo(:,59,15) = (/ & - &1.9478e+03 ,2.6130e+03 ,3.3529e+03 ,4.1205e+03 ,4.8990e+03 /) - kbo(:,13,16) = (/ & - &1.0699e+04 ,1.0668e+04 ,1.0580e+04 ,1.0493e+04 ,1.0473e+04 /) - kbo(:,14,16) = (/ & - &1.2469e+04 ,1.2443e+04 ,1.2338e+04 ,1.2279e+04 ,1.2260e+04 /) - kbo(:,15,16) = (/ & - &1.4513e+04 ,1.4466e+04 ,1.4361e+04 ,1.4360e+04 ,1.4376e+04 /) - kbo(:,16,16) = (/ & - &1.6769e+04 ,1.6706e+04 ,1.6727e+04 ,1.6775e+04 ,1.6795e+04 /) - kbo(:,17,16) = (/ & - &1.9233e+04 ,1.9285e+04 ,1.9387e+04 ,1.9445e+04 ,1.9443e+04 /) - kbo(:,18,16) = (/ & - &2.2082e+04 ,2.2141e+04 ,2.2296e+04 ,2.2362e+04 ,2.2373e+04 /) - kbo(:,19,16) = (/ & - &2.5392e+04 ,2.5419e+04 ,2.5533e+04 ,2.5623e+04 ,2.5622e+04 /) - kbo(:,20,16) = (/ & - &2.9227e+04 ,2.9228e+04 ,2.9232e+04 ,2.9272e+04 ,2.9286e+04 /) - kbo(:,21,16) = (/ & - &3.3689e+04 ,3.3556e+04 ,3.3511e+04 ,3.3436e+04 ,3.3399e+04 /) - kbo(:,22,16) = (/ & - &3.8640e+04 ,3.8494e+04 ,3.8304e+04 ,3.8118e+04 ,3.8006e+04 /) - kbo(:,23,16) = (/ & - &4.4135e+04 ,4.3894e+04 ,4.3600e+04 ,4.3191e+04 ,4.3063e+04 /) - kbo(:,24,16) = (/ & - &5.0120e+04 ,4.9723e+04 ,4.9276e+04 ,4.8847e+04 ,4.8550e+04 /) - kbo(:,25,16) = (/ & - &5.6400e+04 ,5.5824e+04 ,5.5260e+04 ,5.4753e+04 ,5.4318e+04 /) - kbo(:,26,16) = (/ & - &6.2742e+04 ,6.2101e+04 ,6.1449e+04 ,6.0838e+04 ,6.0246e+04 /) - kbo(:,27,16) = (/ & - &6.9256e+04 ,6.8498e+04 ,6.7755e+04 ,6.7035e+04 ,6.6255e+04 /) - kbo(:,28,16) = (/ & - &7.5845e+04 ,7.4890e+04 ,7.4038e+04 ,7.3125e+04 ,7.2119e+04 /) - kbo(:,29,16) = (/ & - &8.2416e+04 ,8.1292e+04 ,8.0172e+04 ,7.8988e+04 ,7.7733e+04 /) - kbo(:,30,16) = (/ & - &8.8923e+04 ,8.7524e+04 ,8.6114e+04 ,8.4633e+04 ,8.3083e+04 /) - kbo(:,31,16) = (/ & - &9.5128e+04 ,9.3474e+04 ,9.1409e+04 ,8.9609e+04 ,8.8121e+04 /) - kbo(:,32,16) = (/ & - &1.0109e+05 ,9.9056e+04 ,9.6959e+04 ,9.4838e+04 ,9.2728e+04 /) - kbo(:,33,16) = (/ & - &1.0668e+05 ,1.0426e+05 ,1.0177e+05 ,9.9309e+04 ,9.6864e+04 /) - kbo(:,34,16) = (/ & - &1.1181e+05 ,1.0901e+05 ,1.0619e+05 ,1.0339e+05 ,1.0062e+05 /) - kbo(:,35,16) = (/ & - &1.1669e+05 ,1.1352e+05 ,1.1036e+05 ,1.0724e+05 ,1.0414e+05 /) - kbo(:,36,16) = (/ & - &1.2143e+05 ,1.1741e+05 ,1.1444e+05 ,1.1099e+05 ,1.0759e+05 /) - kbo(:,37,16) = (/ & - &1.2629e+05 ,1.2248e+05 ,1.1868e+05 ,1.1492e+05 ,1.1120e+05 /) - kbo(:,38,16) = (/ & - &1.3077e+05 ,1.2669e+05 ,1.2260e+05 ,1.1857e+05 ,1.1458e+05 /) - kbo(:,39,16) = (/ & - &1.3413e+05 ,1.3013e+05 ,1.2620e+05 ,1.2191e+05 ,1.1768e+05 /) - kbo(:,40,16) = (/ & - &1.3905e+05 ,1.3448e+05 ,1.2993e+05 ,1.2540e+05 ,1.2095e+05 /) - kbo(:,41,16) = (/ & - &1.4302e+05 ,1.3822e+05 ,1.3346e+05 ,1.2873e+05 ,1.2407e+05 /) - kbo(:,42,16) = (/ & - &1.4675e+05 ,1.4173e+05 ,1.3673e+05 ,1.3182e+05 ,1.2698e+05 /) - kbo(:,43,16) = (/ & - &1.5047e+05 ,1.4528e+05 ,1.4010e+05 ,1.3500e+05 ,1.2941e+05 /) - kbo(:,44,16) = (/ & - &1.5413e+05 ,1.4878e+05 ,1.4344e+05 ,1.3816e+05 ,1.3300e+05 /) - kbo(:,45,16) = (/ & - &1.5764e+05 ,1.5214e+05 ,1.4665e+05 ,1.4055e+05 ,1.3586e+05 /) - kbo(:,46,16) = (/ & - &1.6104e+05 ,1.5546e+05 ,1.4981e+05 ,1.4422e+05 ,1.3874e+05 /) - kbo(:,47,16) = (/ & - &1.6453e+05 ,1.5891e+05 ,1.5314e+05 ,1.4742e+05 ,1.4180e+05 /) - kbo(:,48,16) = (/ & - &1.6775e+05 ,1.6219e+05 ,1.5640e+05 ,1.5054e+05 ,1.4481e+05 /) - kbo(:,49,16) = (/ & - &1.7104e+05 ,1.6528e+05 ,1.5957e+05 ,1.5363e+05 ,1.4773e+05 /) - kbo(:,50,16) = (/ & - &1.7401e+05 ,1.6818e+05 ,1.6240e+05 ,1.5648e+05 ,1.5051e+05 /) - kbo(:,51,16) = (/ & - &1.7667e+05 ,1.7104e+05 ,1.6499e+05 ,1.5912e+05 ,1.5318e+05 /) - kbo(:,52,16) = (/ & - &1.7922e+05 ,1.7356e+05 ,1.6772e+05 ,1.6169e+05 ,1.5572e+05 /) - kbo(:,53,16) = (/ & - &1.8153e+05 ,1.7622e+05 ,1.7035e+05 ,1.6422e+05 ,1.5819e+05 /) - kbo(:,54,16) = (/ & - &1.8363e+05 ,1.7848e+05 ,1.7259e+05 ,1.6657e+05 ,1.6042e+05 /) - kbo(:,55,16) = (/ & - &1.8551e+05 ,1.8043e+05 ,1.7479e+05 ,1.6867e+05 ,1.6267e+05 /) - kbo(:,56,16) = (/ & - &1.8723e+05 ,1.8233e+05 ,1.7687e+05 ,1.7089e+05 ,1.6480e+05 /) - kbo(:,57,16) = (/ & - &1.8886e+05 ,1.8420e+05 ,1.7883e+05 ,1.7299e+05 ,1.6681e+05 /) - kbo(:,58,16) = (/ & - &1.9037e+05 ,1.8581e+05 ,1.8067e+05 ,1.7477e+05 ,1.6881e+05 /) - kbo(:,59,16) = (/ & - &1.9100e+05 ,1.8659e+05 ,1.8132e+05 ,1.7562e+05 ,1.6956e+05 /) - - kao_mn2(:, 1) = (/ & - & 5.12042e-08 , 5.51239e-08 , 5.93436e-08 , 6.38863e-08 , 6.87767e-08 , & - & 7.40415e-08 , 7.97093e-08 , 8.58110e-08 , 9.23797e-08 , 9.94513e-08 , & - & 1.07064e-07 , 1.15260e-07 , 1.24083e-07 , 1.33581e-07 , 1.43807e-07 , & - & 1.54815e-07 , 1.66666e-07 , 1.79424e-07 , 1.93159e-07 /) - kao_mn2(:, 2) = (/ & - & 2.30938e-07 , 2.41696e-07 , 2.52955e-07 , 2.64738e-07 , 2.77071e-07 , & - & 2.89978e-07 , 3.03486e-07 , 3.17623e-07 , 3.32419e-07 , 3.47904e-07 , & - & 3.64111e-07 , 3.81072e-07 , 3.98824e-07 , 4.17402e-07 , 4.36846e-07 , & - & 4.57196e-07 , 4.78494e-07 , 5.00784e-07 , 5.24112e-07 /) - kao_mn2(:, 3) = (/ & - & 6.70458e-07 , 7.04274e-07 , 7.39795e-07 , 7.77109e-07 , 8.16304e-07 , & - & 8.57476e-07 , 9.00724e-07 , 9.46154e-07 , 9.93876e-07 , 1.04400e-06 , & - & 1.09666e-06 , 1.15197e-06 , 1.21008e-06 , 1.27111e-06 , 1.33522e-06 , & - & 1.40256e-06 , 1.47331e-06 , 1.54761e-06 , 1.62567e-06 /) - kao_mn2(:, 4) = (/ & - & 1.84182e-06 , 1.89203e-06 , 1.94360e-06 , 1.99658e-06 , 2.05101e-06 , & - & 2.10692e-06 , 2.16435e-06 , 2.22335e-06 , 2.28396e-06 , 2.34622e-06 , & - & 2.41017e-06 , 2.47587e-06 , 2.54337e-06 , 2.61270e-06 , 2.68392e-06 , & - & 2.75708e-06 , 2.83224e-06 , 2.90944e-06 , 2.98875e-06 /) - kao_mn2(:, 5) = (/ & - & 3.41996e-06 , 3.32758e-06 , 3.23770e-06 , 3.15024e-06 , 3.06515e-06 , & - & 2.98235e-06 , 2.90180e-06 , 2.82341e-06 , 2.74715e-06 , 2.67294e-06 , & - & 2.60074e-06 , 2.53049e-06 , 2.46214e-06 , 2.39563e-06 , 2.33092e-06 , & - & 2.26796e-06 , 2.20670e-06 , 2.14709e-06 , 2.08910e-06 /) - kao_mn2(:, 6) = (/ & - & 3.38746e-06 , 3.25966e-06 , 3.13669e-06 , 3.01836e-06 , 2.90449e-06 , & - & 2.79491e-06 , 2.68947e-06 , 2.58801e-06 , 2.49037e-06 , 2.39642e-06 , & - & 2.30601e-06 , 2.21902e-06 , 2.13530e-06 , 2.05475e-06 , 1.97723e-06 , & - & 1.90264e-06 , 1.83086e-06 , 1.76179e-06 , 1.69532e-06 /) - kao_mn2(:, 7) = (/ & - & 3.17530e-06 , 3.07196e-06 , 2.97199e-06 , 2.87527e-06 , 2.78170e-06 , & - & 2.69118e-06 , 2.60360e-06 , 2.51887e-06 , 2.43690e-06 , 2.35759e-06 , & - & 2.28087e-06 , 2.20664e-06 , 2.13483e-06 , 2.06536e-06 , 1.99814e-06 , & - & 1.93312e-06 , 1.87021e-06 , 1.80934e-06 , 1.75046e-06 /) - kao_mn2(:, 8) = (/ & - & 2.84701e-06 , 2.77007e-06 , 2.69521e-06 , 2.62237e-06 , 2.55150e-06 , & - & 2.48254e-06 , 2.41545e-06 , 2.35017e-06 , 2.28666e-06 , 2.22486e-06 , & - & 2.16473e-06 , 2.10623e-06 , 2.04930e-06 , 1.99392e-06 , 1.94003e-06 , & - & 1.88760e-06 , 1.83659e-06 , 1.78695e-06 , 1.73866e-06 /) - kao_mn2(:, 9) = (/ & - & 2.79917e-06 , 2.73207e-06 , 2.66658e-06 , 2.60266e-06 , 2.54027e-06 , & - & 2.47937e-06 , 2.41994e-06 , 2.36192e-06 , 2.30530e-06 , 2.25004e-06 , & - & 2.19610e-06 , 2.14346e-06 , 2.09208e-06 , 2.04193e-06 , 1.99298e-06 , & - & 1.94520e-06 , 1.89857e-06 , 1.85306e-06 , 1.80864e-06 /) - kao_mn2(:,10) = (/ & - & 2.74910e-06 , 2.64462e-06 , 2.54412e-06 , 2.44743e-06 , 2.35442e-06 , & - & 2.26495e-06 , 2.17887e-06 , 2.09606e-06 , 2.01641e-06 , 1.93978e-06 , & - & 1.86606e-06 , 1.79514e-06 , 1.72692e-06 , 1.66129e-06 , 1.59815e-06 , & - & 1.53742e-06 , 1.47899e-06 , 1.42278e-06 , 1.36871e-06 /) - kao_mn2(:,11) = (/ & - & 2.63952e-06 , 2.60263e-06 , 2.56626e-06 , 2.53039e-06 , 2.49503e-06 , & - & 2.46016e-06 , 2.42578e-06 , 2.39188e-06 , 2.35845e-06 , 2.32549e-06 , & - & 2.29299e-06 , 2.26094e-06 , 2.22934e-06 , 2.19819e-06 , 2.16747e-06 , & - & 2.13717e-06 , 2.10731e-06 , 2.07786e-06 , 2.04882e-06 /) - kao_mn2(:,12) = (/ & - & 2.94106e-06 , 2.82819e-06 , 2.71966e-06 , 2.61528e-06 , 2.51492e-06 , & - & 2.41841e-06 , 2.32560e-06 , 2.23635e-06 , 2.15053e-06 , 2.06800e-06 , & - & 1.98863e-06 , 1.91232e-06 , 1.83893e-06 , 1.76836e-06 , 1.70049e-06 , & - & 1.63524e-06 , 1.57248e-06 , 1.51214e-06 , 1.45411e-06 /) - kao_mn2(:,13) = (/ & - & 2.94607e-06 , 2.87369e-06 , 2.80309e-06 , 2.73422e-06 , 2.66705e-06 , & - & 2.60152e-06 , 2.53760e-06 , 2.47526e-06 , 2.41445e-06 , 2.35513e-06 , & - & 2.29726e-06 , 2.24082e-06 , 2.18577e-06 , 2.13207e-06 , 2.07969e-06 , & - & 2.02859e-06 , 1.97875e-06 , 1.93014e-06 , 1.88272e-06 /) - kao_mn2(:,14) = (/ & - & 2.58051e-06 , 2.48749e-06 , 2.39782e-06 , 2.31139e-06 , 2.22807e-06 , & - & 2.14775e-06 , 2.07033e-06 , 1.99570e-06 , 1.92376e-06 , 1.85441e-06 , & - & 1.78756e-06 , 1.72313e-06 , 1.66101e-06 , 1.60114e-06 , 1.54342e-06 , & - & 1.48778e-06 , 1.43415e-06 , 1.38245e-06 , 1.33262e-06 /) - kao_mn2(:,15) = (/ & - & 3.03447e-06 , 2.88559e-06 , 2.74401e-06 , 2.60938e-06 , 2.48135e-06 , & - & 2.35961e-06 , 2.24384e-06 , 2.13375e-06 , 2.02906e-06 , 1.92951e-06 , & - & 1.83484e-06 , 1.74481e-06 , 1.65921e-06 , 1.57780e-06 , 1.50039e-06 , & - & 1.42677e-06 , 1.35677e-06 , 1.29020e-06 , 1.22690e-06 /) - kao_mn2(:,16) = (/ & - & 1.48655e-06 , 1.48283e-06 , 1.47913e-06 , 1.47543e-06 , 1.47174e-06 , & - & 1.46806e-06 , 1.46439e-06 , 1.46072e-06 , 1.45707e-06 , 1.45343e-06 , & - & 1.44979e-06 , 1.44617e-06 , 1.44255e-06 , 1.43894e-06 , 1.43534e-06 , & - & 1.43176e-06 , 1.42817e-06 , 1.42460e-06 , 1.42104e-06 /) - kbo_mn2(:, 1) = (/ & - & 5.12042e-08 , 5.51239e-08 , 5.93436e-08 , 6.38863e-08 , 6.87767e-08 , & - & 7.40415e-08 , 7.97093e-08 , 8.58110e-08 , 9.23797e-08 , 9.94513e-08 , & - & 1.07064e-07 , 1.15260e-07 , 1.24083e-07 , 1.33581e-07 , 1.43807e-07 , & - & 1.54815e-07 , 1.66666e-07 , 1.79424e-07 , 1.93159e-07 /) - kbo_mn2(:, 2) = (/ & - & 2.30938e-07 , 2.41696e-07 , 2.52955e-07 , 2.64738e-07 , 2.77071e-07 , & - & 2.89978e-07 , 3.03486e-07 , 3.17623e-07 , 3.32419e-07 , 3.47904e-07 , & - & 3.64111e-07 , 3.81072e-07 , 3.98824e-07 , 4.17402e-07 , 4.36846e-07 , & - & 4.57196e-07 , 4.78494e-07 , 5.00784e-07 , 5.24112e-07 /) - kbo_mn2(:, 3) = (/ & - & 6.70458e-07 , 7.04274e-07 , 7.39795e-07 , 7.77109e-07 , 8.16304e-07 , & - & 8.57476e-07 , 9.00724e-07 , 9.46154e-07 , 9.93876e-07 , 1.04400e-06 , & - & 1.09666e-06 , 1.15197e-06 , 1.21008e-06 , 1.27111e-06 , 1.33522e-06 , & - & 1.40256e-06 , 1.47331e-06 , 1.54761e-06 , 1.62567e-06 /) - kbo_mn2(:, 4) = (/ & - & 1.84182e-06 , 1.89203e-06 , 1.94360e-06 , 1.99658e-06 , 2.05101e-06 , & - & 2.10692e-06 , 2.16435e-06 , 2.22335e-06 , 2.28396e-06 , 2.34622e-06 , & - & 2.41017e-06 , 2.47587e-06 , 2.54337e-06 , 2.61270e-06 , 2.68392e-06 , & - & 2.75708e-06 , 2.83224e-06 , 2.90944e-06 , 2.98875e-06 /) - kbo_mn2(:, 5) = (/ & - & 3.41996e-06 , 3.32758e-06 , 3.23770e-06 , 3.15024e-06 , 3.06515e-06 , & - & 2.98235e-06 , 2.90180e-06 , 2.82341e-06 , 2.74715e-06 , 2.67294e-06 , & - & 2.60074e-06 , 2.53049e-06 , 2.46214e-06 , 2.39563e-06 , 2.33092e-06 , & - & 2.26796e-06 , 2.20670e-06 , 2.14709e-06 , 2.08910e-06 /) - kbo_mn2(:, 6) = (/ & - & 3.38746e-06 , 3.25966e-06 , 3.13669e-06 , 3.01836e-06 , 2.90449e-06 , & - & 2.79491e-06 , 2.68947e-06 , 2.58801e-06 , 2.49037e-06 , 2.39642e-06 , & - & 2.30601e-06 , 2.21902e-06 , 2.13530e-06 , 2.05475e-06 , 1.97723e-06 , & - & 1.90264e-06 , 1.83086e-06 , 1.76179e-06 , 1.69532e-06 /) - kbo_mn2(:, 7) = (/ & - & 3.17530e-06 , 3.07196e-06 , 2.97199e-06 , 2.87527e-06 , 2.78170e-06 , & - & 2.69118e-06 , 2.60360e-06 , 2.51887e-06 , 2.43690e-06 , 2.35759e-06 , & - & 2.28087e-06 , 2.20664e-06 , 2.13483e-06 , 2.06536e-06 , 1.99814e-06 , & - & 1.93312e-06 , 1.87021e-06 , 1.80934e-06 , 1.75046e-06 /) - kbo_mn2(:, 8) = (/ & - & 2.84701e-06 , 2.77007e-06 , 2.69521e-06 , 2.62237e-06 , 2.55150e-06 , & - & 2.48254e-06 , 2.41545e-06 , 2.35017e-06 , 2.28666e-06 , 2.22486e-06 , & - & 2.16473e-06 , 2.10623e-06 , 2.04930e-06 , 1.99392e-06 , 1.94003e-06 , & - & 1.88760e-06 , 1.83659e-06 , 1.78695e-06 , 1.73866e-06 /) - kbo_mn2(:, 9) = (/ & - & 2.79917e-06 , 2.73207e-06 , 2.66658e-06 , 2.60266e-06 , 2.54027e-06 , & - & 2.47937e-06 , 2.41994e-06 , 2.36192e-06 , 2.30530e-06 , 2.25004e-06 , & - & 2.19610e-06 , 2.14346e-06 , 2.09208e-06 , 2.04193e-06 , 1.99298e-06 , & - & 1.94520e-06 , 1.89857e-06 , 1.85306e-06 , 1.80864e-06 /) - kbo_mn2(:,10) = (/ & - & 2.74910e-06 , 2.64462e-06 , 2.54412e-06 , 2.44743e-06 , 2.35442e-06 , & - & 2.26495e-06 , 2.17887e-06 , 2.09606e-06 , 2.01641e-06 , 1.93978e-06 , & - & 1.86606e-06 , 1.79514e-06 , 1.72692e-06 , 1.66129e-06 , 1.59815e-06 , & - & 1.53742e-06 , 1.47899e-06 , 1.42278e-06 , 1.36871e-06 /) - kbo_mn2(:,11) = (/ & - & 2.63952e-06 , 2.60263e-06 , 2.56626e-06 , 2.53039e-06 , 2.49503e-06 , & - & 2.46016e-06 , 2.42578e-06 , 2.39188e-06 , 2.35845e-06 , 2.32549e-06 , & - & 2.29299e-06 , 2.26094e-06 , 2.22934e-06 , 2.19819e-06 , 2.16747e-06 , & - & 2.13717e-06 , 2.10731e-06 , 2.07786e-06 , 2.04882e-06 /) - kbo_mn2(:,12) = (/ & - & 2.94106e-06 , 2.82819e-06 , 2.71966e-06 , 2.61528e-06 , 2.51492e-06 , & - & 2.41841e-06 , 2.32560e-06 , 2.23635e-06 , 2.15053e-06 , 2.06800e-06 , & - & 1.98863e-06 , 1.91232e-06 , 1.83893e-06 , 1.76836e-06 , 1.70049e-06 , & - & 1.63524e-06 , 1.57248e-06 , 1.51214e-06 , 1.45411e-06 /) - kbo_mn2(:,13) = (/ & - & 2.94607e-06 , 2.87369e-06 , 2.80309e-06 , 2.73422e-06 , 2.66705e-06 , & - & 2.60152e-06 , 2.53760e-06 , 2.47526e-06 , 2.41445e-06 , 2.35513e-06 , & - & 2.29726e-06 , 2.24082e-06 , 2.18577e-06 , 2.13207e-06 , 2.07969e-06 , & - & 2.02859e-06 , 1.97875e-06 , 1.93014e-06 , 1.88272e-06 /) - kbo_mn2(:,14) = (/ & - & 2.58051e-06 , 2.48749e-06 , 2.39782e-06 , 2.31139e-06 , 2.22807e-06 , & - & 2.14775e-06 , 2.07033e-06 , 1.99570e-06 , 1.92376e-06 , 1.85441e-06 , & - & 1.78756e-06 , 1.72313e-06 , 1.66101e-06 , 1.60114e-06 , 1.54342e-06 , & - & 1.48778e-06 , 1.43415e-06 , 1.38245e-06 , 1.33262e-06 /) - kbo_mn2(:,15) = (/ & - & 3.03447e-06 , 2.88559e-06 , 2.74401e-06 , 2.60938e-06 , 2.48135e-06 , & - & 2.35961e-06 , 2.24384e-06 , 2.13375e-06 , 2.02906e-06 , 1.92951e-06 , & - & 1.83484e-06 , 1.74481e-06 , 1.65921e-06 , 1.57780e-06 , 1.50039e-06 , & - & 1.42677e-06 , 1.35677e-06 , 1.29020e-06 , 1.22690e-06 /) - kbo_mn2(:,16) = (/ & - & 1.48655e-06 , 1.48283e-06 , 1.47913e-06 , 1.47543e-06 , 1.47174e-06 , & - & 1.46806e-06 , 1.46439e-06 , 1.46072e-06 , 1.45707e-06 , 1.45343e-06 , & - & 1.44979e-06 , 1.44617e-06 , 1.44255e-06 , 1.43894e-06 , 1.43534e-06 , & - & 1.43176e-06 , 1.42817e-06 , 1.42460e-06 , 1.42104e-06 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &3.6742e-02 ,1.0664e-01 ,2.6132e-01 ,2.7906e-01 ,2.8151e-01 ,2.7465e-01 , & - &2.8530e-01 ,2.9123e-01 ,3.0697e-01 ,3.1801e-01 ,3.2444e-01 ,2.7746e-01 , & - &3.1994e-01 ,2.9750e-01 ,2.1226e-01 ,1.2847e-01 /) - forrefo(2,:) = (/ & - &4.0450e-02 ,1.1085e-01 ,2.9205e-01 ,3.1934e-01 ,3.1739e-01 ,3.1450e-01 , & - &3.2797e-01 ,3.2223e-01 ,3.3099e-01 ,3.4800e-01 ,3.4046e-01 ,3.5700e-01 , & - &3.8264e-01 ,3.6679e-01 ,3.3481e-01 ,3.2113e-01 /) - forrefo(3,:) = (/ & - &4.6952e-02 ,1.1999e-01 ,3.1473e-01 ,3.7015e-01 ,3.6913e-01 ,3.6352e-01 , & - &3.7754e-01 ,3.7402e-01 ,3.7113e-01 ,3.7720e-01 ,3.8365e-01 ,4.0876e-01 , & - &4.2968e-01 ,4.4186e-01 ,4.3468e-01 ,4.7083e-01 /) - forrefo(4,:) = (/ & - &7.0645e-02 ,1.6618e-01 ,2.8516e-01 ,3.1819e-01 ,3.0131e-01 ,2.9552e-01 , & - &2.8972e-01 ,2.9348e-01 ,2.8668e-01 ,2.8483e-01 ,2.8130e-01 ,2.7757e-01 , & - &2.9735e-01 ,3.1684e-01 ,3.0681e-01 ,3.6778e-01 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 2.16803e+00 , 1.98236e+00 , 1.81260e+00 , 1.65737e+00 , 1.51544e+00 , & - & 1.38567e+00 , 1.26700e+00 , 1.15850e+00 , 1.05929e+00 , 9.68576e-01 /) - selfrefo(:, 2) = (/ & - & 3.70149e+00 , 3.43145e+00 , 3.18110e+00 , 2.94902e+00 , 2.73387e+00 , & - & 2.53441e+00 , 2.34951e+00 , 2.17810e+00 , 2.01919e+00 , 1.87188e+00 /) - selfrefo(:, 3) = (/ & - & 6.17433e+00 , 5.62207e+00 , 5.11920e+00 , 4.66131e+00 , 4.24438e+00 , & - & 3.86474e+00 , 3.51906e+00 , 3.20430e+00 , 2.91769e+00 , 2.65672e+00 /) - selfrefo(:, 4) = (/ & - & 6.56459e+00 , 5.94787e+00 , 5.38910e+00 , 4.88282e+00 , 4.42410e+00 , & - & 4.00848e+00 , 3.63190e+00 , 3.29070e+00 , 2.98155e+00 , 2.70145e+00 /) - selfrefo(:, 5) = (/ & - & 6.49581e+00 , 5.91114e+00 , 5.37910e+00 , 4.89494e+00 , 4.45436e+00 , & - & 4.05344e+00 , 3.68860e+00 , 3.35660e+00 , 3.05448e+00 , 2.77956e+00 /) - selfrefo(:, 6) = (/ & - & 6.50189e+00 , 5.89381e+00 , 5.34260e+00 , 4.84294e+00 , 4.39001e+00 , & - & 3.97944e+00 , 3.60727e+00 , 3.26990e+00 , 2.96409e+00 , 2.68687e+00 /) - selfrefo(:, 7) = (/ & - & 6.64768e+00 , 6.01719e+00 , 5.44650e+00 , 4.92993e+00 , 4.46236e+00 , & - & 4.03914e+00 , 3.65605e+00 , 3.30930e+00 , 2.99543e+00 , 2.71134e+00 /) - selfrefo(:, 8) = (/ & - & 6.43744e+00 , 5.87166e+00 , 5.35560e+00 , 4.88490e+00 , 4.45557e+00 , & - & 4.06397e+00 , 3.70679e+00 , 3.38100e+00 , 3.08384e+00 , 2.81281e+00 /) - selfrefo(:, 9) = (/ & - & 6.55466e+00 , 5.99777e+00 , 5.48820e+00 , 5.02192e+00 , 4.59525e+00 , & - & 4.20484e+00 , 3.84759e+00 , 3.52070e+00 , 3.22158e+00 , 2.94787e+00 /) - selfrefo(:,10) = (/ & - & 6.84510e+00 , 6.26933e+00 , 5.74200e+00 , 5.25902e+00 , 4.81667e+00 , & - & 4.41152e+00 , 4.04046e+00 , 3.70060e+00 , 3.38933e+00 , 3.10424e+00 /) - selfrefo(:,11) = (/ & - & 6.83128e+00 , 6.25536e+00 , 5.72800e+00 , 5.24510e+00 , 4.80291e+00 , & - & 4.39799e+00 , 4.02722e+00 , 3.68770e+00 , 3.37681e+00 , 3.09212e+00 /) - selfrefo(:,12) = (/ & - & 7.35969e+00 , 6.61719e+00 , 5.94960e+00 , 5.34936e+00 , 4.80968e+00 , & - & 4.32445e+00 , 3.88817e+00 , 3.49590e+00 , 3.14321e+00 , 2.82610e+00 /) - selfrefo(:,13) = (/ & - & 7.50064e+00 , 6.80749e+00 , 6.17840e+00 , 5.60744e+00 , 5.08925e+00 , & - & 4.61894e+00 , 4.19210e+00 , 3.80470e+00 , 3.45310e+00 , 3.13399e+00 /) - selfrefo(:,14) = (/ & - & 7.40801e+00 , 6.71328e+00 , 6.08370e+00 , 5.51316e+00 , 4.99613e+00 , & - & 4.52759e+00 , 4.10298e+00 , 3.71820e+00 , 3.36950e+00 , 3.05351e+00 /) - selfrefo(:,15) = (/ & - & 7.51895e+00 , 6.68846e+00 , 5.94970e+00 , 5.29254e+00 , 4.70796e+00 , & - & 4.18795e+00 , 3.72538e+00 , 3.31390e+00 , 2.94787e+00 , 2.62227e+00 /) - selfrefo(:,16) = (/ & - & 7.84774e+00 , 6.80673e+00 , 5.90380e+00 , 5.12065e+00 , 4.44138e+00 , & - & 3.85223e+00 , 3.34122e+00 , 2.89800e+00 , 2.51357e+00 , 2.18014e+00 /) - -end subroutine lw_kgb01 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_02.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_02.F90 deleted file mode 100644 index 8f43104eb..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_02.F90 +++ /dev/null @@ -1,2080 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb02 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg02, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level: P = 1053.630 mbar, T = 294.2 K - fracrefao(:) = (/ & - 1.6388e-01 , 1.5241e-01 , 1.4290e-01 , 1.2864e-01 , & - 1.1615e-01 , 1.0047e-01 , 8.0013e-02 , 6.0445e-02 , & - 4.0530e-02 , 4.3879e-03 , 3.5726e-03 , 2.7669e-03 , & - 2.0078e-03 , 1.2864e-03 , 4.7630e-04 , 6.9109e-05 /) - -! Planck fraction mapping level: P = 3.206e-2 mb, T = 197.92 K - fracrefbo(:) = (/ & - 1.4697e-01 , 1.4826e-01 , 1.4278e-01 , 1.3320e-01 , & - 1.1965e-01 , 1.0297e-01 , 8.4170e-02 , 6.3282e-02 , & - 4.2868e-02 , 4.6644e-03 , 3.8619e-03 , 3.0533e-03 , & - 2.2359e-03 , 1.4226e-03 , 5.3642e-04 , 7.6316e-05 /) - -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels > ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the corresponding TREF for this pressure level, -! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, -! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second -! index, JP, runs from 1 to 13 and refers to the corresponding -! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). -! The third index, IG, goes from 1 to 16, and tells us which -! g-interval the absorption coefficients are for. - - kao(:, 1, 1) = (/ & - &4.9444e-03 ,5.9459e-03 ,7.0909e-03 ,8.2082e-03 ,9.2071e-03 /) - kao(:, 2, 1) = (/ & - &3.6253e-03 ,4.3860e-03 ,5.2541e-03 ,6.0419e-03 ,6.8835e-03 /) - kao(:, 3, 1) = (/ & - &2.5338e-03 ,3.0985e-03 ,3.7400e-03 ,4.2996e-03 ,4.9675e-03 /) - kao(:, 4, 1) = (/ & - &1.7755e-03 ,2.1973e-03 ,2.6664e-03 ,3.1111e-03 ,3.6091e-03 /) - kao(:, 5, 1) = (/ & - &1.2565e-03 ,1.5789e-03 ,1.9196e-03 ,2.3096e-03 ,2.6519e-03 /) - kao(:, 6, 1) = (/ & - &8.8624e-04 ,1.1175e-03 ,1.3818e-03 ,1.6934e-03 ,1.9635e-03 /) - kao(:, 7, 1) = (/ & - &6.2843e-04 ,7.9253e-04 ,1.0012e-03 ,1.2222e-03 ,1.4734e-03 /) - kao(:, 8, 1) = (/ & - &4.5023e-04 ,5.6483e-04 ,7.1568e-04 ,8.9026e-04 ,1.0929e-03 /) - kao(:, 9, 1) = (/ & - &3.2520e-04 ,4.0407e-04 ,5.1209e-04 ,6.4949e-04 ,7.9581e-04 /) - kao(:,10, 1) = (/ & - &2.4126e-04 ,2.9581e-04 ,3.7404e-04 ,4.7585e-04 ,5.9085e-04 /) - kao(:,11, 1) = (/ & - &1.9501e-04 ,2.4152e-04 ,3.0649e-04 ,3.9104e-04 ,4.8881e-04 /) - kao(:,12, 1) = (/ & - &1.5881e-04 ,1.9763e-04 ,2.5177e-04 ,3.2441e-04 ,4.0632e-04 /) - kao(:,13, 1) = (/ & - &1.3003e-04 ,1.6216e-04 ,2.0768e-04 ,2.6864e-04 ,3.3497e-04 /) - kao(:, 1, 2) = (/ & - &1.0027e-02 ,1.1791e-02 ,1.3932e-02 ,1.6666e-02 ,2.0126e-02 /) - kao(:, 2, 2) = (/ & - &7.4056e-03 ,8.8285e-03 ,1.0460e-02 ,1.2669e-02 ,1.5282e-02 /) - kao(:, 3, 2) = (/ & - &5.2661e-03 ,6.2928e-03 ,7.5540e-03 ,9.2387e-03 ,1.1182e-02 /) - kao(:, 4, 2) = (/ & - &3.7830e-03 ,4.5144e-03 ,5.4622e-03 ,6.6869e-03 ,8.1435e-03 /) - kao(:, 5, 2) = (/ & - &2.7480e-03 ,3.3042e-03 ,3.9726e-03 ,4.8258e-03 ,5.9510e-03 /) - kao(:, 6, 2) = (/ & - &2.0063e-03 ,2.3984e-03 ,2.8713e-03 ,3.4864e-03 ,4.3135e-03 /) - kao(:, 7, 2) = (/ & - &1.4846e-03 ,1.7453e-03 ,2.0981e-03 ,2.5444e-03 ,3.1056e-03 /) - kao(:, 8, 2) = (/ & - &1.1210e-03 ,1.2879e-03 ,1.5449e-03 ,1.8524e-03 ,2.2562e-03 /) - kao(:, 9, 2) = (/ & - &8.5574e-04 ,9.6423e-04 ,1.1336e-03 ,1.3659e-03 ,1.6594e-03 /) - kao(:,10, 2) = (/ & - &6.6848e-04 ,7.4016e-04 ,8.5479e-04 ,1.0274e-03 ,1.2343e-03 /) - kao(:,11, 2) = (/ & - &5.5022e-04 ,6.0473e-04 ,6.9963e-04 ,8.4106e-04 ,1.0097e-03 /) - kao(:,12, 2) = (/ & - &4.4972e-04 ,4.9436e-04 ,5.7239e-04 ,6.8738e-04 ,8.3038e-04 /) - kao(:,13, 2) = (/ & - &3.6745e-04 ,4.0460e-04 ,4.6828e-04 ,5.6427e-04 ,6.8387e-04 /) - kao(:, 1, 3) = (/ & - &2.0475e-02 ,2.4886e-02 ,2.8056e-02 ,3.1687e-02 ,3.6011e-02 /) - kao(:, 2, 3) = (/ & - &1.5293e-02 ,1.8649e-02 ,2.1197e-02 ,2.4106e-02 ,2.7485e-02 /) - kao(:, 3, 3) = (/ & - &1.0918e-02 ,1.3480e-02 ,1.5496e-02 ,1.7769e-02 ,2.0398e-02 /) - kao(:, 4, 3) = (/ & - &7.7395e-03 ,9.6625e-03 ,1.1379e-02 ,1.3130e-02 ,1.5170e-02 /) - kao(:, 5, 3) = (/ & - &5.4995e-03 ,6.9063e-03 ,8.5233e-03 ,9.8125e-03 ,1.1368e-02 /) - kao(:, 6, 3) = (/ & - &3.9002e-03 ,4.9307e-03 ,6.2037e-03 ,7.3100e-03 ,8.4689e-03 /) - kao(:, 7, 3) = (/ & - &2.7369e-03 ,3.5078e-03 ,4.4352e-03 ,5.5098e-03 ,6.3463e-03 /) - kao(:, 8, 3) = (/ & - &1.9294e-03 ,2.5028e-03 ,3.1751e-03 ,4.0255e-03 ,4.7593e-03 /) - kao(:, 9, 3) = (/ & - &1.2806e-03 ,1.7659e-03 ,2.2786e-03 ,2.8933e-03 ,3.6112e-03 /) - kao(:,10, 3) = (/ & - &8.6429e-04 ,1.2871e-03 ,1.6661e-03 ,2.1207e-03 ,2.6956e-03 /) - kao(:,11, 3) = (/ & - &7.0989e-04 ,1.0555e-03 ,1.3691e-03 ,1.7450e-03 ,2.2184e-03 /) - kao(:,12, 3) = (/ & - &5.8630e-04 ,8.6615e-04 ,1.1265e-03 ,1.4357e-03 ,1.8221e-03 /) - kao(:,13, 3) = (/ & - &4.8372e-04 ,7.1031e-04 ,9.2618e-04 ,1.1787e-03 ,1.4998e-03 /) - kao(:, 1, 4) = (/ & - &3.4150e-02 ,4.0367e-02 ,4.9280e-02 ,5.9100e-02 ,6.9499e-02 /) - kao(:, 2, 4) = (/ & - &2.5504e-02 ,3.0447e-02 ,3.7321e-02 ,4.4944e-02 ,5.3298e-02 /) - kao(:, 3, 4) = (/ & - &1.8371e-02 ,2.2085e-02 ,2.7226e-02 ,3.2994e-02 ,3.9403e-02 /) - kao(:, 4, 4) = (/ & - &1.3235e-02 ,1.6046e-02 ,1.9813e-02 ,2.4156e-02 ,2.9082e-02 /) - kao(:, 5, 4) = (/ & - &9.5998e-03 ,1.1709e-02 ,1.4338e-02 ,1.7707e-02 ,2.1505e-02 /) - kao(:, 6, 4) = (/ & - &6.9022e-03 ,8.5630e-03 ,1.0395e-02 ,1.2869e-02 ,1.5787e-02 /) - kao(:, 7, 4) = (/ & - &5.0622e-03 ,6.1861e-03 ,7.5642e-03 ,9.2835e-03 ,1.1530e-02 /) - kao(:, 8, 4) = (/ & - &3.7734e-03 ,4.4956e-03 ,5.5749e-03 ,6.7721e-03 ,8.4253e-03 /) - kao(:, 9, 4) = (/ & - &2.9619e-03 ,3.3315e-03 ,4.0621e-03 ,4.9694e-03 ,6.1117e-03 /) - kao(:,10, 4) = (/ & - &2.2204e-03 ,2.5123e-03 ,3.0176e-03 ,3.7321e-03 ,4.5545e-03 /) - kao(:,11, 4) = (/ & - &1.8288e-03 ,2.0602e-03 ,2.4838e-03 ,3.0685e-03 ,3.7508e-03 /) - kao(:,12, 4) = (/ & - &1.5051e-03 ,1.6916e-03 ,2.0466e-03 ,2.5239e-03 ,3.0905e-03 /) - kao(:,13, 4) = (/ & - &1.2373e-03 ,1.3907e-03 ,1.6848e-03 ,2.0764e-03 ,2.5455e-03 /) - kao(:, 1, 5) = (/ & - &7.4128e-02 ,9.0328e-02 ,1.0845e-01 ,1.2842e-01 ,1.4993e-01 /) - kao(:, 2, 5) = (/ & - &5.6421e-02 ,6.8932e-02 ,8.3294e-02 ,9.9111e-02 ,1.1617e-01 /) - kao(:, 3, 5) = (/ & - &4.0916e-02 ,5.0385e-02 ,6.1257e-02 ,7.3474e-02 ,8.6732e-02 /) - kao(:, 4, 5) = (/ & - &2.9430e-02 ,3.6556e-02 ,4.4742e-02 ,5.4199e-02 ,6.4580e-02 /) - kao(:, 5, 5) = (/ & - &2.1212e-02 ,2.6602e-02 ,3.2780e-02 ,4.0084e-02 ,4.8236e-02 /) - kao(:, 6, 5) = (/ & - &1.5151e-02 ,1.9129e-02 ,2.3897e-02 ,2.9436e-02 ,3.5798e-02 /) - kao(:, 7, 5) = (/ & - &1.0718e-02 ,1.3802e-02 ,1.7389e-02 ,2.1505e-02 ,2.6440e-02 /) - kao(:, 8, 5) = (/ & - &7.4917e-03 ,9.9125e-03 ,1.2578e-02 ,1.5770e-02 ,1.9483e-02 /) - kao(:, 9, 5) = (/ & - &5.1168e-03 ,7.0368e-03 ,9.1089e-03 ,1.1527e-02 ,1.4293e-02 /) - kao(:,10, 5) = (/ & - &3.6983e-03 ,5.0627e-03 ,6.6991e-03 ,8.5275e-03 ,1.0696e-02 /) - kao(:,11, 5) = (/ & - &3.0484e-03 ,4.1916e-03 ,5.5346e-03 ,7.0513e-03 ,8.8498e-03 /) - kao(:,12, 5) = (/ & - &2.5174e-03 ,3.4714e-03 ,4.5718e-03 ,5.8341e-03 ,7.3195e-03 /) - kao(:,13, 5) = (/ & - &2.0770e-03 ,2.8684e-03 ,3.7718e-03 ,4.8192e-03 ,6.0412e-03 /) - kao(:, 1, 6) = (/ & - &2.0613e-01 ,2.5157e-01 ,3.0178e-01 ,3.5683e-01 ,4.1542e-01 /) - kao(:, 2, 6) = (/ & - &1.5819e-01 ,1.9432e-01 ,2.3452e-01 ,2.7858e-01 ,3.2587e-01 /) - kao(:, 3, 6) = (/ & - &1.1531e-01 ,1.4306e-01 ,1.7435e-01 ,2.0876e-01 ,2.4632e-01 /) - kao(:, 4, 6) = (/ & - &8.3284e-02 ,1.0444e-01 ,1.2864e-01 ,1.5560e-01 ,1.8535e-01 /) - kao(:, 5, 6) = (/ & - &6.0166e-02 ,7.6315e-02 ,9.4937e-02 ,1.1604e-01 ,1.3958e-01 /) - kao(:, 6, 6) = (/ & - &4.3003e-02 ,5.5230e-02 ,6.9447e-02 ,8.5781e-02 ,1.0424e-01 /) - kao(:, 7, 6) = (/ & - &3.0490e-02 ,3.9769e-02 ,5.0618e-02 ,6.3200e-02 ,7.7597e-02 /) - kao(:, 8, 6) = (/ & - &2.1570e-02 ,2.8573e-02 ,3.6803e-02 ,4.6437e-02 ,5.7626e-02 /) - kao(:, 9, 6) = (/ & - &1.5155e-02 ,2.0450e-02 ,2.6673e-02 ,3.4004e-02 ,4.2620e-02 /) - kao(:,10, 6) = (/ & - &1.0852e-02 ,1.4893e-02 ,1.9668e-02 ,2.5324e-02 ,3.1992e-02 /) - kao(:,11, 6) = (/ & - &9.0511e-03 ,1.2422e-02 ,1.6374e-02 ,2.1084e-02 ,2.6643e-02 /) - kao(:,12, 6) = (/ & - &7.5332e-03 ,1.0338e-02 ,1.3623e-02 ,1.7531e-02 ,2.2174e-02 /) - kao(:,13, 6) = (/ & - &6.2568e-03 ,8.5754e-03 ,1.1313e-02 ,1.4562e-02 ,1.8439e-02 /) - kao(:, 1, 7) = (/ & - &6.4924e-01 ,7.7307e-01 ,9.0386e-01 ,1.0388e+00 ,1.1773e+00 /) - kao(:, 2, 7) = (/ & - &5.0577e-01 ,6.0786e-01 ,7.1639e-01 ,8.2855e-01 ,9.4493e-01 /) - kao(:, 3, 7) = (/ & - &3.7384e-01 ,4.5638e-01 ,5.4361e-01 ,6.3563e-01 ,7.3108e-01 /) - kao(:, 4, 7) = (/ & - &2.7157e-01 ,3.3769e-01 ,4.0798e-01 ,4.8298e-01 ,5.6158e-01 /) - kao(:, 5, 7) = (/ & - &1.9648e-01 ,2.4838e-01 ,3.0521e-01 ,3.6590e-01 ,4.3005e-01 /) - kao(:, 6, 7) = (/ & - &1.3966e-01 ,1.7987e-01 ,2.2524e-01 ,2.7405e-01 ,3.2593e-01 /) - kao(:, 7, 7) = (/ & - &9.8353e-02 ,1.2917e-01 ,1.6445e-01 ,2.0365e-01 ,2.4531e-01 /) - kao(:, 8, 7) = (/ & - &6.8795e-02 ,9.2244e-02 ,1.1951e-01 ,1.5053e-01 ,1.8392e-01 /) - kao(:, 9, 7) = (/ & - &4.7720e-02 ,6.5374e-02 ,8.6294e-02 ,1.1044e-01 ,1.3721e-01 /) - kao(:,10, 7) = (/ & - &3.3881e-02 ,4.7211e-02 ,6.3377e-02 ,8.2294e-02 ,1.0374e-01 /) - kao(:,11, 7) = (/ & - &2.8304e-02 ,3.9386e-02 ,5.2911e-02 ,6.8671e-02 ,8.6477e-02 /) - kao(:,12, 7) = (/ & - &2.3643e-02 ,3.2849e-02 ,4.4121e-02 ,5.7246e-02 ,7.2052e-02 /) - kao(:,13, 7) = (/ & - &1.9678e-02 ,2.7339e-02 ,3.6693e-02 ,4.7583e-02 ,5.9838e-02 /) - kao(:, 1, 8) = (/ & - &1.5852e+00 ,1.8937e+00 ,2.2233e+00 ,2.5759e+00 ,2.9447e+00 /) - kao(:, 2, 8) = (/ & - &1.3020e+00 ,1.5608e+00 ,1.8408e+00 ,2.1415e+00 ,2.4614e+00 /) - kao(:, 3, 8) = (/ & - &1.0126e+00 ,1.2239e+00 ,1.4553e+00 ,1.7040e+00 ,1.9702e+00 /) - kao(:, 4, 8) = (/ & - &7.6856e-01 ,9.4025e-01 ,1.1316e+00 ,1.3386e+00 ,1.5605e+00 /) - kao(:, 5, 8) = (/ & - &5.7616e-01 ,7.1359e-01 ,8.6832e-01 ,1.0388e+00 ,1.2228e+00 /) - kao(:, 6, 8) = (/ & - &4.2350e-01 ,5.3268e-01 ,6.5605e-01 ,7.9334e-01 ,9.4223e-01 /) - kao(:, 7, 8) = (/ & - &3.0686e-01 ,3.9225e-01 ,4.9010e-01 ,5.9944e-01 ,7.1967e-01 /) - kao(:, 8, 8) = (/ & - &2.2070e-01 ,2.8688e-01 ,3.6348e-01 ,4.5007e-01 ,5.4597e-01 /) - kao(:, 9, 8) = (/ & - &1.5750e-01 ,2.0832e-01 ,2.6774e-01 ,3.3584e-01 ,4.1169e-01 /) - kao(:,10, 8) = (/ & - &1.1458e-01 ,1.5398e-01 ,2.0047e-01 ,2.5420e-01 ,3.1452e-01 /) - kao(:,11, 8) = (/ & - &9.6352e-02 ,1.2945e-01 ,1.6850e-01 ,2.1343e-01 ,2.6418e-01 /) - kao(:,12, 8) = (/ & - &8.0859e-02 ,1.0869e-01 ,1.4142e-01 ,1.7905e-01 ,2.2159e-01 /) - kao(:,13, 8) = (/ & - &6.7685e-02 ,9.1028e-02 ,1.1838e-01 ,1.4990e-01 ,1.8559e-01 /) - kao(:, 1, 9) = (/ & - &5.2550e+00 ,6.3269e+00 ,7.5188e+00 ,8.8046e+00 ,1.0194e+01 /) - kao(:, 2, 9) = (/ & - &4.6603e+00 ,5.6500e+00 ,6.7441e+00 ,7.9369e+00 ,9.2112e+00 /) - kao(:, 3, 9) = (/ & - &3.9124e+00 ,4.7902e+00 ,5.7591e+00 ,6.8243e+00 ,7.9677e+00 /) - kao(:, 4, 9) = (/ & - &3.2096e+00 ,3.9597e+00 ,4.8029e+00 ,5.7377e+00 ,6.7626e+00 /) - kao(:, 5, 9) = (/ & - &2.5970e+00 ,3.2435e+00 ,3.9726e+00 ,4.7826e+00 ,5.6814e+00 /) - kao(:, 6, 9) = (/ & - &2.0409e+00 ,2.5854e+00 ,3.2065e+00 ,3.9078e+00 ,4.6887e+00 /) - kao(:, 7, 9) = (/ & - &1.5708e+00 ,2.0187e+00 ,2.5381e+00 ,3.1327e+00 ,3.8016e+00 /) - kao(:, 8, 9) = (/ & - &1.1892e+00 ,1.5546e+00 ,1.9836e+00 ,2.4782e+00 ,3.0361e+00 /) - kao(:, 9, 9) = (/ & - &8.8412e-01 ,1.1765e+00 ,1.5263e+00 ,1.9325e+00 ,2.3921e+00 /) - kao(:,10, 9) = (/ & - &6.6160e-01 ,8.9598e-01 ,1.1789e+00 ,1.5110e+00 ,1.8897e+00 /) - kao(:,11, 9) = (/ & - &5.6952e-01 ,7.7339e-01 ,1.0185e+00 ,1.3041e+00 ,1.6292e+00 /) - kao(:,12, 9) = (/ & - &4.8820e-01 ,6.6319e-01 ,8.7290e-01 ,1.1167e+00 ,1.3956e+00 /) - kao(:,13, 9) = (/ & - &4.1555e-01 ,5.6459e-01 ,7.4208e-01 ,9.4959e-01 ,1.1894e+00 /) - kao(:, 1,10) = (/ & - &1.2977e+01 ,1.5399e+01 ,1.8084e+01 ,2.1107e+01 ,2.4279e+01 /) - kao(:, 2,10) = (/ & - &1.2242e+01 ,1.4713e+01 ,1.7530e+01 ,2.0660e+01 ,2.4161e+01 /) - kao(:, 3,10) = (/ & - &1.0793e+01 ,1.3120e+01 ,1.5954e+01 ,1.9118e+01 ,2.2561e+01 /) - kao(:, 4,10) = (/ & - &9.2115e+00 ,1.1467e+01 ,1.4090e+01 ,1.6870e+01 ,1.9865e+01 /) - kao(:, 5,10) = (/ & - &7.7076e+00 ,9.6964e+00 ,1.2018e+01 ,1.4581e+01 ,1.7283e+01 /) - kao(:, 6,10) = (/ & - &6.3938e+00 ,8.1632e+00 ,1.0170e+01 ,1.2328e+01 ,1.4702e+01 /) - kao(:, 7,10) = (/ & - &5.2643e+00 ,6.8431e+00 ,8.5879e+00 ,1.0497e+01 ,1.2599e+01 /) - kao(:, 8,10) = (/ & - &4.2306e+00 ,5.5592e+00 ,7.0542e+00 ,8.7515e+00 ,1.0687e+01 /) - kao(:, 9,10) = (/ & - &3.3029e+00 ,4.4196e+00 ,5.6740e+00 ,7.1182e+00 ,8.8343e+00 /) - kao(:,10,10) = (/ & - &2.6002e+00 ,3.5171e+00 ,4.6049e+00 ,5.8654e+00 ,7.3550e+00 /) - kao(:,11,10) = (/ & - &2.3411e+00 ,3.1582e+00 ,4.1576e+00 ,5.3440e+00 ,6.7154e+00 /) - kao(:,12,10) = (/ & - &2.0671e+00 ,2.8097e+00 ,3.7158e+00 ,4.7938e+00 ,5.9967e+00 /) - kao(:,13,10) = (/ & - &1.8130e+00 ,2.4724e+00 ,3.2908e+00 ,4.2191e+00 ,5.2351e+00 /) - kao(:, 1,11) = (/ & - &1.7369e+01 ,2.0982e+01 ,2.4652e+01 ,2.8692e+01 ,3.3179e+01 /) - kao(:, 2,11) = (/ & - &1.6823e+01 ,2.0457e+01 ,2.4236e+01 ,2.8171e+01 ,3.2333e+01 /) - kao(:, 3,11) = (/ & - &1.5375e+01 ,1.8905e+01 ,2.2457e+01 ,2.6420e+01 ,3.0766e+01 /) - kao(:, 4,11) = (/ & - &1.3375e+01 ,1.6618e+01 ,2.0128e+01 ,2.4207e+01 ,2.8664e+01 /) - kao(:, 5,11) = (/ & - &1.1552e+01 ,1.4477e+01 ,1.7747e+01 ,2.1616e+01 ,2.5966e+01 /) - kao(:, 6,11) = (/ & - &9.7662e+00 ,1.2339e+01 ,1.5425e+01 ,1.9082e+01 ,2.3024e+01 /) - kao(:, 7,11) = (/ & - &8.0435e+00 ,1.0356e+01 ,1.3162e+01 ,1.6422e+01 ,1.9976e+01 /) - kao(:, 8,11) = (/ & - &6.6475e+00 ,8.6800e+00 ,1.1208e+01 ,1.4127e+01 ,1.7194e+01 /) - kao(:, 9,11) = (/ & - &5.4286e+00 ,7.1938e+00 ,9.4274e+00 ,1.1995e+01 ,1.4788e+01 /) - kao(:,10,11) = (/ & - &4.4519e+00 ,5.9777e+00 ,7.8591e+00 ,1.0067e+01 ,1.2572e+01 /) - kao(:,11,11) = (/ & - &4.1097e+00 ,5.5519e+00 ,7.2615e+00 ,9.2610e+00 ,1.1615e+01 /) - kao(:,12,11) = (/ & - &3.7565e+00 ,5.0648e+00 ,6.6341e+00 ,8.4916e+00 ,1.0710e+01 /) - kao(:,13,11) = (/ & - &3.3842e+00 ,4.5598e+00 ,5.9909e+00 ,7.7387e+00 ,9.7720e+00 /) - kao(:, 1,12) = (/ & - &2.2275e+01 ,2.7471e+01 ,3.3492e+01 ,4.0225e+01 ,4.7465e+01 /) - kao(:, 2,12) = (/ & - &2.2476e+01 ,2.7446e+01 ,3.3072e+01 ,3.9336e+01 ,4.6205e+01 /) - kao(:, 3,12) = (/ & - &2.1150e+01 ,2.6276e+01 ,3.1885e+01 ,3.7595e+01 ,4.3863e+01 /) - kao(:, 4,12) = (/ & - &1.9455e+01 ,2.4367e+01 ,2.9875e+01 ,3.5713e+01 ,4.1802e+01 /) - kao(:, 5,12) = (/ & - &1.7406e+01 ,2.2244e+01 ,2.7648e+01 ,3.3299e+01 ,3.9489e+01 /) - kao(:, 6,12) = (/ & - &1.5271e+01 ,1.9641e+01 ,2.4614e+01 ,3.0133e+01 ,3.6348e+01 /) - kao(:, 7,12) = (/ & - &1.3343e+01 ,1.7102e+01 ,2.1495e+01 ,2.6582e+01 ,3.2562e+01 /) - kao(:, 8,12) = (/ & - &1.1399e+01 ,1.4767e+01 ,1.8657e+01 ,2.3239e+01 ,2.8870e+01 /) - kao(:, 9,12) = (/ & - &9.4462e+00 ,1.2437e+01 ,1.5942e+01 ,2.0083e+01 ,2.5175e+01 /) - kao(:,10,12) = (/ & - &7.9561e+00 ,1.0576e+01 ,1.3751e+01 ,1.7625e+01 ,2.2224e+01 /) - kao(:,11,12) = (/ & - &7.6703e+00 ,1.0214e+01 ,1.3362e+01 ,1.7172e+01 ,2.1565e+01 /) - kao(:,12,12) = (/ & - &7.3002e+00 ,9.7613e+00 ,1.2808e+01 ,1.6448e+01 ,2.0508e+01 /) - kao(:,13,12) = (/ & - &6.8227e+00 ,9.1662e+00 ,1.2005e+01 ,1.5291e+01 ,1.9104e+01 /) - kao(:, 1,13) = (/ & - &2.8154e+01 ,3.5750e+01 ,4.4791e+01 ,5.4873e+01 ,6.6140e+01 /) - kao(:, 2,13) = (/ & - &2.8745e+01 ,3.6229e+01 ,4.5340e+01 ,5.5950e+01 ,6.7860e+01 /) - kao(:, 3,13) = (/ & - &2.8731e+01 ,3.5740e+01 ,4.4190e+01 ,5.4581e+01 ,6.6390e+01 /) - kao(:, 4,13) = (/ & - &2.7586e+01 ,3.5028e+01 ,4.3053e+01 ,5.2513e+01 ,6.3590e+01 /) - kao(:, 5,13) = (/ & - &2.6083e+01 ,3.3437e+01 ,4.1632e+01 ,5.0781e+01 ,6.1113e+01 /) - kao(:, 6,13) = (/ & - &2.3829e+01 ,3.1109e+01 ,3.9228e+01 ,4.8371e+01 ,5.8278e+01 /) - kao(:, 7,13) = (/ & - &2.1209e+01 ,2.8372e+01 ,3.6376e+01 ,4.5363e+01 ,5.5372e+01 /) - kao(:, 8,13) = (/ & - &1.8790e+01 ,2.5354e+01 ,3.3043e+01 ,4.1793e+01 ,5.1443e+01 /) - kao(:, 9,13) = (/ & - &1.6798e+01 ,2.2642e+01 ,2.9578e+01 ,3.7822e+01 ,4.7058e+01 /) - kao(:,10,13) = (/ & - &1.4972e+01 ,2.0558e+01 ,2.6854e+01 ,3.4253e+01 ,4.2864e+01 /) - kao(:,11,13) = (/ & - &1.5310e+01 ,2.0781e+01 ,2.6920e+01 ,3.4183e+01 ,4.2625e+01 /) - kao(:,12,13) = (/ & - &1.5266e+01 ,2.0520e+01 ,2.6628e+01 ,3.3712e+01 ,4.2182e+01 /) - kao(:,13,13) = (/ & - &1.4957e+01 ,1.9939e+01 ,2.5957e+01 ,3.3111e+01 ,4.1486e+01 /) - kao(:, 1,14) = (/ & - &4.6330e+01 ,6.0030e+01 ,7.5480e+01 ,9.2536e+01 ,1.1059e+02 /) - kao(:, 2,14) = (/ & - &4.4855e+01 ,5.8960e+01 ,7.5059e+01 ,9.2958e+01 ,1.1209e+02 /) - kao(:, 3,14) = (/ & - &4.1447e+01 ,5.4787e+01 ,7.1113e+01 ,8.9291e+01 ,1.0911e+02 /) - kao(:, 4,14) = (/ & - &3.9104e+01 ,5.0668e+01 ,6.5934e+01 ,8.3732e+01 ,1.0396e+02 /) - kao(:, 5,14) = (/ & - &3.8023e+01 ,4.8275e+01 ,6.1835e+01 ,7.8920e+01 ,9.8684e+01 /) - kao(:, 6,14) = (/ & - &3.6671e+01 ,4.6928e+01 ,5.9373e+01 ,7.4910e+01 ,9.4120e+01 /) - kao(:, 7,14) = (/ & - &3.4713e+01 ,4.5254e+01 ,5.8164e+01 ,7.3270e+01 ,9.1067e+01 /) - kao(:, 8,14) = (/ & - &3.2317e+01 ,4.2931e+01 ,5.6350e+01 ,7.1845e+01 ,8.9533e+01 /) - kao(:, 9,14) = (/ & - &2.9466e+01 ,3.9947e+01 ,5.3450e+01 ,6.9454e+01 ,8.7436e+01 /) - kao(:,10,14) = (/ & - &2.7304e+01 ,3.7491e+01 ,5.1151e+01 ,6.7458e+01 ,8.6217e+01 /) - kao(:,11,14) = (/ & - &2.9371e+01 ,4.0579e+01 ,5.5614e+01 ,7.3135e+01 ,9.3406e+01 /) - kao(:,12,14) = (/ & - &3.1557e+01 ,4.3832e+01 ,5.9668e+01 ,7.8288e+01 ,9.9282e+01 /) - kao(:,13,14) = (/ & - &3.3702e+01 ,4.7002e+01 ,6.3302e+01 ,8.2327e+01 ,1.0363e+02 /) - kao(:, 1,15) = (/ & - &7.1097e+01 ,9.1809e+01 ,1.1513e+02 ,1.4077e+02 ,1.6931e+02 /) - kao(:, 2,15) = (/ & - &7.6481e+01 ,9.9988e+01 ,1.2655e+02 ,1.5641e+02 ,1.9001e+02 /) - kao(:, 3,15) = (/ & - &7.6089e+01 ,1.0186e+02 ,1.3121e+02 ,1.6509e+02 ,2.0316e+02 /) - kao(:, 4,15) = (/ & - &7.1689e+01 ,9.8693e+01 ,1.3061e+02 ,1.6745e+02 ,2.0924e+02 /) - kao(:, 5,15) = (/ & - &6.5396e+01 ,9.2850e+01 ,1.2644e+02 ,1.6569e+02 ,2.1030e+02 /) - kao(:, 6,15) = (/ & - &5.9839e+01 ,8.4120e+01 ,1.1791e+02 ,1.5835e+02 ,2.0497e+02 /) - kao(:, 7,15) = (/ & - &5.7504e+01 ,7.7966e+01 ,1.0776e+02 ,1.4729e+02 ,1.9476e+02 /) - kao(:, 8,15) = (/ & - &5.7004e+01 ,7.5268e+01 ,1.0086e+02 ,1.3678e+02 ,1.8339e+02 /) - kao(:, 9,15) = (/ & - &5.5577e+01 ,7.3906e+01 ,9.7044e+01 ,1.2904e+02 ,1.7226e+02 /) - kao(:,10,15) = (/ & - &5.5416e+01 ,7.4211e+01 ,9.6440e+01 ,1.2687e+02 ,1.6750e+02 /) - kao(:,11,15) = (/ & - &6.2860e+01 ,8.4332e+01 ,1.0913e+02 ,1.4265e+02 ,1.8694e+02 /) - kao(:,12,15) = (/ & - &7.1048e+01 ,9.5286e+01 ,1.2362e+02 ,1.6046e+02 ,2.0975e+02 /) - kao(:,13,15) = (/ & - &7.9451e+01 ,1.0631e+02 ,1.3951e+02 ,1.8076e+02 ,2.3534e+02 /) - kao(:, 1,16) = (/ & - &7.6064e+01 ,1.0164e+02 ,1.3126e+02 ,1.6469e+02 ,2.0152e+02 /) - kao(:, 2,16) = (/ & - &8.3803e+01 ,1.1323e+02 ,1.4816e+02 ,1.8796e+02 ,2.3219e+02 /) - kao(:, 3,16) = (/ & - &8.7402e+01 ,1.1813e+02 ,1.5778e+02 ,2.0377e+02 ,2.5553e+02 /) - kao(:, 4,16) = (/ & - &8.7865e+01 ,1.1968e+02 ,1.6142e+02 ,2.1263e+02 ,2.7144e+02 /) - kao(:, 5,16) = (/ & - &8.6499e+01 ,1.2062e+02 ,1.6367e+02 ,2.1790e+02 ,2.8301e+02 /) - kao(:, 6,16) = (/ & - &8.2494e+01 ,1.1893e+02 ,1.6400e+02 ,2.2086e+02 ,2.8964e+02 /) - kao(:, 7,16) = (/ & - &7.7078e+01 ,1.1526e+02 ,1.6302e+02 ,2.2306e+02 ,2.9645e+02 /) - kao(:, 8,16) = (/ & - &7.0841e+01 ,1.1011e+02 ,1.6059e+02 ,2.2458e+02 ,3.0342e+02 /) - kao(:, 9,16) = (/ & - &7.4013e+01 ,1.0313e+02 ,1.5566e+02 ,2.2324e+02 ,3.0785e+02 /) - kao(:,10,16) = (/ & - &8.3043e+01 ,1.0119e+02 ,1.5304e+02 ,2.2535e+02 ,3.1705e+02 /) - kao(:,11,16) = (/ & - &1.0007e+02 ,1.2237e+02 ,1.8107e+02 ,2.6762e+02 ,3.7672e+02 /) - kao(:,12,16) = (/ & - &1.1998e+02 ,1.4801e+02 ,2.1370e+02 ,3.1623e+02 ,4.4496e+02 /) - kao(:,13,16) = (/ & - &1.4282e+02 ,1.7830e+02 ,2.5018e+02 ,3.7037e+02 ,5.2070e+02 /) - -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kbo(:,13, 1) = (/ & - &1.3000e-04 ,1.6216e-04 ,2.0768e-04 ,2.6864e-04 ,3.3497e-04 /) - kbo(:,14, 1) = (/ & - &1.0850e-04 ,1.3602e-04 ,1.7553e-04 ,2.2686e-04 ,2.8162e-04 /) - kbo(:,15, 1) = (/ & - &9.0864e-05 ,1.1476e-04 ,1.4832e-04 ,1.9081e-04 ,2.3698e-04 /) - kbo(:,16, 1) = (/ & - &7.6202e-05 ,9.6897e-05 ,1.2521e-04 ,1.6032e-04 ,1.9925e-04 /) - kbo(:,17, 1) = (/ & - &6.3984e-05 ,8.1671e-05 ,1.0565e-04 ,1.3448e-04 ,1.6696e-04 /) - kbo(:,18, 1) = (/ & - &5.3749e-05 ,6.8759e-05 ,8.9036e-05 ,1.1274e-04 ,1.3824e-04 /) - kbo(:,19, 1) = (/ & - &4.5160e-05 ,5.7874e-05 ,7.4954e-05 ,9.4487e-05 ,1.1485e-04 /) - kbo(:,20, 1) = (/ & - &3.8050e-05 ,4.8934e-05 ,6.3376e-05 ,7.9393e-05 ,9.5565e-05 /) - kbo(:,21, 1) = (/ & - &3.2121e-05 ,4.1368e-05 ,5.3585e-05 ,6.6749e-05 ,7.9704e-05 /) - kbo(:,22, 1) = (/ & - &2.7597e-05 ,3.5606e-05 ,4.6066e-05 ,5.6919e-05 ,6.7252e-05 /) - kbo(:,23, 1) = (/ & - &2.3703e-05 ,3.0672e-05 ,3.9251e-05 ,4.8622e-05 ,5.6783e-05 /) - kbo(:,24, 1) = (/ & - &2.0444e-05 ,2.6471e-05 ,3.3535e-05 ,4.1441e-05 ,4.8070e-05 /) - kbo(:,25, 1) = (/ & - &1.7691e-05 ,2.2899e-05 ,2.8737e-05 ,3.4776e-05 ,4.0820e-05 /) - kbo(:,26, 1) = (/ & - &1.5391e-05 ,1.9900e-05 ,2.4708e-05 ,2.9438e-05 ,3.4884e-05 /) - kbo(:,27, 1) = (/ & - &1.3401e-05 ,1.7231e-05 ,2.1300e-05 ,2.5041e-05 ,2.9843e-05 /) - kbo(:,28, 1) = (/ & - &1.1671e-05 ,1.4827e-05 ,1.8383e-05 ,2.1307e-05 ,2.5549e-05 /) - kbo(:,29, 1) = (/ & - &1.0183e-05 ,1.2798e-05 ,1.5535e-05 ,1.8197e-05 ,2.1838e-05 /) - kbo(:,30, 1) = (/ & - &8.8844e-06 ,1.1043e-05 ,1.3172e-05 ,1.5593e-05 ,1.8678e-05 /) - kbo(:,31, 1) = (/ & - &7.7313e-06 ,9.5518e-06 ,1.1237e-05 ,1.3382e-05 ,1.5999e-05 /) - kbo(:,32, 1) = (/ & - &6.6794e-06 ,8.2781e-06 ,9.5924e-06 ,1.1496e-05 ,1.3717e-05 /) - kbo(:,33, 1) = (/ & - &5.7815e-06 ,7.0042e-06 ,8.2098e-06 ,9.8489e-06 ,1.1766e-05 /) - kbo(:,34, 1) = (/ & - &4.9641e-06 ,5.9235e-06 ,7.0090e-06 ,8.3895e-06 ,1.0037e-05 /) - kbo(:,35, 1) = (/ & - &4.1780e-06 ,4.9520e-06 ,5.8797e-06 ,7.0288e-06 ,8.4123e-06 /) - kbo(:,36, 1) = (/ & - &3.4370e-06 ,4.0690e-06 ,4.8335e-06 ,5.7766e-06 ,6.9140e-06 /) - kbo(:,37, 1) = (/ & - &2.7366e-06 ,3.2617e-06 ,3.8617e-06 ,4.6224e-06 ,5.5308e-06 /) - kbo(:,38, 1) = (/ & - &2.1763e-06 ,2.6155e-06 ,3.0811e-06 ,3.6939e-06 ,4.4152e-06 /) - kbo(:,39, 1) = (/ & - &1.7313e-06 ,2.1017e-06 ,2.4606e-06 ,2.9519e-06 ,3.5266e-06 /) - kbo(:,40, 1) = (/ & - &1.3469e-06 ,1.6693e-06 ,1.9344e-06 ,2.3182e-06 ,2.7667e-06 /) - kbo(:,41, 1) = (/ & - &1.0461e-06 ,1.2927e-06 ,1.5201e-06 ,1.8107e-06 ,2.1653e-06 /) - kbo(:,42, 1) = (/ & - &8.0658e-07 ,1.0022e-06 ,1.1943e-06 ,1.4143e-06 ,1.6945e-06 /) - kbo(:,43, 1) = (/ & - &6.1022e-07 ,7.6847e-07 ,9.3637e-07 ,1.0945e-06 ,1.3137e-06 /) - kbo(:,44, 1) = (/ & - &4.5840e-07 ,5.8613e-07 ,7.2558e-07 ,8.4731e-07 ,1.0130e-06 /) - kbo(:,45, 1) = (/ & - &3.4424e-07 ,4.4504e-07 ,5.5242e-07 ,6.5691e-07 ,7.7925e-07 /) - kbo(:,46, 1) = (/ & - &2.5697e-07 ,3.3261e-07 ,4.1921e-07 ,5.1218e-07 ,5.9773e-07 /) - kbo(:,47, 1) = (/ & - &1.8987e-07 ,2.4567e-07 ,3.1544e-07 ,3.9053e-07 ,4.5787e-07 /) - kbo(:,48, 1) = (/ & - &1.4058e-07 ,1.8138e-07 ,2.3483e-07 ,2.9330e-07 ,3.5197e-07 /) - kbo(:,49, 1) = (/ & - &1.0462e-07 ,1.3385e-07 ,1.7347e-07 ,2.2053e-07 ,2.7396e-07 /) - kbo(:,50, 1) = (/ & - &7.9205e-08 ,9.9611e-08 ,1.2890e-07 ,1.6695e-07 ,2.0670e-07 /) - kbo(:,51, 1) = (/ & - &6.0628e-08 ,7.4396e-08 ,9.6049e-08 ,1.2454e-07 ,1.5638e-07 /) - kbo(:,52, 1) = (/ & - &4.5002e-08 ,5.5943e-08 ,7.1532e-08 ,9.2844e-08 ,1.1852e-07 /) - kbo(:,53, 1) = (/ & - &3.2555e-08 ,4.2490e-08 ,5.3383e-08 ,6.9149e-08 ,8.9727e-08 /) - kbo(:,54, 1) = (/ & - &2.3696e-08 ,3.2653e-08 ,4.0140e-08 ,5.1914e-08 ,6.7441e-08 /) - kbo(:,55, 1) = (/ & - &1.7247e-08 ,2.4546e-08 ,3.0469e-08 ,3.9087e-08 ,5.0840e-08 /) - kbo(:,56, 1) = (/ & - &1.2515e-08 ,1.8025e-08 ,2.3296e-08 ,2.9456e-08 ,3.8300e-08 /) - kbo(:,57, 1) = (/ & - &9.0211e-09 ,1.3183e-08 ,1.7891e-08 ,2.2220e-08 ,2.8857e-08 /) - kbo(:,58, 1) = (/ & - &6.4935e-09 ,9.6472e-09 ,1.3706e-08 ,1.6858e-08 ,2.1803e-08 /) - kbo(:,59, 1) = (/ & - &5.0413e-09 ,7.5477e-09 ,1.0800e-08 ,1.3392e-08 ,1.7290e-08 /) - kbo(:,13, 2) = (/ & - &3.6782e-04 ,4.0460e-04 ,4.6828e-04 ,5.6427e-04 ,6.8387e-04 /) - kbo(:,14, 2) = (/ & - &3.0206e-04 ,3.3534e-04 ,3.8904e-04 ,4.6908e-04 ,5.7354e-04 /) - kbo(:,15, 2) = (/ & - &2.4903e-04 ,2.7718e-04 ,3.2574e-04 ,3.9271e-04 ,4.8202e-04 /) - kbo(:,16, 2) = (/ & - &2.0570e-04 ,2.3043e-04 ,2.7323e-04 ,3.2940e-04 ,4.0539e-04 /) - kbo(:,17, 2) = (/ & - &1.6973e-04 ,1.9226e-04 ,2.2908e-04 ,2.7627e-04 ,3.4057e-04 /) - kbo(:,18, 2) = (/ & - &1.4059e-04 ,1.6018e-04 ,1.9182e-04 ,2.3171e-04 ,2.8730e-04 /) - kbo(:,19, 2) = (/ & - &1.1617e-04 ,1.3358e-04 ,1.6042e-04 ,1.9424e-04 ,2.4177e-04 /) - kbo(:,20, 2) = (/ & - &9.6546e-05 ,1.1187e-04 ,1.3461e-04 ,1.6319e-04 ,2.0430e-04 /) - kbo(:,21, 2) = (/ & - &8.0465e-05 ,9.3512e-05 ,1.1260e-04 ,1.3712e-04 ,1.7240e-04 /) - kbo(:,22, 2) = (/ & - &6.7521e-05 ,7.9100e-05 ,9.4853e-05 ,1.1694e-04 ,1.4756e-04 /) - kbo(:,23, 2) = (/ & - &5.6632e-05 ,6.7211e-05 ,8.0875e-05 ,9.9624e-05 ,1.2638e-04 /) - kbo(:,24, 2) = (/ & - &4.7866e-05 ,5.7310e-05 ,6.9154e-05 ,8.5301e-05 ,1.0831e-04 /) - kbo(:,25, 2) = (/ & - &4.0652e-05 ,4.8933e-05 ,5.9257e-05 ,7.3835e-05 ,9.2951e-05 /) - kbo(:,26, 2) = (/ & - &3.4655e-05 ,4.1694e-05 ,5.0935e-05 ,6.3979e-05 ,8.0042e-05 /) - kbo(:,27, 2) = (/ & - &2.9633e-05 ,3.5562e-05 ,4.3853e-05 ,5.5348e-05 ,6.8920e-05 /) - kbo(:,28, 2) = (/ & - &2.5432e-05 ,3.0614e-05 ,3.7665e-05 ,4.7871e-05 ,5.9328e-05 /) - kbo(:,29, 2) = (/ & - &2.1848e-05 ,2.6432e-05 ,3.2844e-05 ,4.1383e-05 ,5.1047e-05 /) - kbo(:,30, 2) = (/ & - &1.8680e-05 ,2.2782e-05 ,2.8578e-05 ,3.5766e-05 ,4.3772e-05 /) - kbo(:,31, 2) = (/ & - &1.5971e-05 ,1.9690e-05 ,2.4825e-05 ,3.0907e-05 ,3.7564e-05 /) - kbo(:,32, 2) = (/ & - &1.3804e-05 ,1.6977e-05 ,2.1562e-05 ,2.6712e-05 ,3.2275e-05 /) - kbo(:,33, 2) = (/ & - &1.1945e-05 ,1.4856e-05 ,1.8696e-05 ,2.3037e-05 ,2.7659e-05 /) - kbo(:,34, 2) = (/ & - &1.0252e-05 ,1.2851e-05 ,1.6075e-05 ,1.9670e-05 ,2.3561e-05 /) - kbo(:,35, 2) = (/ & - &8.6288e-06 ,1.0847e-05 ,1.3532e-05 ,1.6502e-05 ,1.9733e-05 /) - kbo(:,36, 2) = (/ & - &7.0970e-06 ,8.9246e-06 ,1.1130e-05 ,1.3564e-05 ,1.6217e-05 /) - kbo(:,37, 2) = (/ & - &5.6546e-06 ,7.0912e-06 ,8.8667e-06 ,1.0842e-05 ,1.2980e-05 /) - kbo(:,38, 2) = (/ & - &4.4964e-06 ,5.6180e-06 ,7.0484e-06 ,8.6481e-06 ,1.0377e-05 /) - kbo(:,39, 2) = (/ & - &3.5794e-06 ,4.4460e-06 ,5.6006e-06 ,6.9055e-06 ,8.2935e-06 /) - kbo(:,40, 2) = (/ & - &2.7849e-06 ,3.4244e-06 ,4.3497e-06 ,5.3888e-06 ,6.5103e-06 /) - kbo(:,41, 2) = (/ & - &2.1634e-06 ,2.6661e-06 ,3.3623e-06 ,4.1856e-06 ,5.0849e-06 /) - kbo(:,42, 2) = (/ & - &1.6951e-06 ,2.0688e-06 ,2.5958e-06 ,3.2479e-06 ,3.9733e-06 /) - kbo(:,43, 2) = (/ & - &1.3156e-06 ,1.5889e-06 ,1.9703e-06 ,2.4872e-06 ,3.0727e-06 /) - kbo(:,44, 2) = (/ & - &1.0083e-06 ,1.2108e-06 ,1.4918e-06 ,1.8898e-06 ,2.3484e-06 /) - kbo(:,45, 2) = (/ & - &7.7597e-07 ,9.3178e-07 ,1.1396e-06 ,1.4323e-06 ,1.7919e-06 /) - kbo(:,46, 2) = (/ & - &5.9640e-07 ,7.1743e-07 ,8.6664e-07 ,1.0739e-06 ,1.3585e-06 /) - kbo(:,47, 2) = (/ & - &4.5875e-07 ,5.4303e-07 ,6.5202e-07 ,8.0415e-07 ,1.0165e-06 /) - kbo(:,48, 2) = (/ & - &3.5634e-07 ,4.1385e-07 ,4.9968e-07 ,6.0505e-07 ,7.5779e-07 /) - kbo(:,49, 2) = (/ & - &2.7966e-07 ,3.1607e-07 ,3.7849e-07 ,4.5539e-07 ,5.6073e-07 /) - kbo(:,50, 2) = (/ & - &2.2335e-07 ,2.4619e-07 ,2.8832e-07 ,3.4563e-07 ,4.2520e-07 /) - kbo(:,51, 2) = (/ & - &1.6810e-07 ,1.9184e-07 ,2.2126e-07 ,2.6681e-07 ,3.2272e-07 /) - kbo(:,52, 2) = (/ & - &1.2477e-07 ,1.5183e-07 ,1.7051e-07 ,2.0325e-07 ,2.4465e-07 /) - kbo(:,53, 2) = (/ & - &9.1697e-08 ,1.2163e-07 ,1.3293e-07 ,1.5546e-07 ,1.8654e-07 /) - kbo(:,54, 2) = (/ & - &6.8066e-08 ,9.0724e-08 ,1.0426e-07 ,1.1988e-07 ,1.4459e-07 /) - kbo(:,55, 2) = (/ & - &5.0853e-08 ,6.8116e-08 ,8.2949e-08 ,9.3086e-08 ,1.1106e-07 /) - kbo(:,56, 2) = (/ & - &3.8097e-08 ,5.0708e-08 ,6.6601e-08 ,7.3097e-08 ,8.5626e-08 /) - kbo(:,57, 2) = (/ & - &2.8575e-08 ,3.7778e-08 ,5.0543e-08 ,5.7226e-08 ,6.6193e-08 /) - kbo(:,58, 2) = (/ & - &2.1274e-08 ,2.8319e-08 ,3.8061e-08 ,4.5485e-08 ,5.1336e-08 /) - kbo(:,59, 2) = (/ & - &1.6785e-08 ,2.2389e-08 ,3.0047e-08 ,3.6850e-08 ,4.1308e-08 /) - kbo(:,13, 3) = (/ & - &4.8329e-04 ,7.1031e-04 ,9.2618e-04 ,1.1787e-03 ,1.4998e-03 /) - kbo(:,14, 3) = (/ & - &4.1573e-04 ,5.9621e-04 ,7.7781e-04 ,9.9253e-04 ,1.2561e-03 /) - kbo(:,15, 3) = (/ & - &3.5745e-04 ,5.0356e-04 ,6.5391e-04 ,8.3999e-04 ,1.0559e-03 /) - kbo(:,16, 3) = (/ & - &3.0758e-04 ,4.2512e-04 ,5.5063e-04 ,7.1032e-04 ,8.8405e-04 /) - kbo(:,17, 3) = (/ & - &2.6428e-04 ,3.5939e-04 ,4.6476e-04 ,5.9990e-04 ,7.3444e-04 /) - kbo(:,18, 3) = (/ & - &2.2620e-04 ,3.0371e-04 ,3.9242e-04 ,5.0569e-04 ,6.1057e-04 /) - kbo(:,19, 3) = (/ & - &1.9349e-04 ,2.5703e-04 ,3.3045e-04 ,4.2572e-04 ,5.0885e-04 /) - kbo(:,20, 3) = (/ & - &1.6601e-04 ,2.1679e-04 ,2.7938e-04 ,3.5877e-04 ,4.2456e-04 /) - kbo(:,21, 3) = (/ & - &1.3973e-04 ,1.8356e-04 ,2.3660e-04 ,3.0163e-04 ,3.5438e-04 /) - kbo(:,22, 3) = (/ & - &1.2024e-04 ,1.5775e-04 ,2.0424e-04 ,2.5718e-04 ,2.9870e-04 /) - kbo(:,23, 3) = (/ & - &1.0421e-04 ,1.3581e-04 ,1.7576e-04 ,2.1785e-04 ,2.5256e-04 /) - kbo(:,24, 3) = (/ & - &9.0642e-05 ,1.1736e-04 ,1.5142e-04 ,1.8334e-04 ,2.1432e-04 /) - kbo(:,25, 3) = (/ & - &7.8653e-05 ,1.0139e-04 ,1.3046e-04 ,1.5520e-04 ,1.8200e-04 /) - kbo(:,26, 3) = (/ & - &6.8347e-05 ,8.8330e-05 ,1.1221e-04 ,1.3139e-04 ,1.5501e-04 /) - kbo(:,27, 3) = (/ & - &5.9438e-05 ,7.7110e-05 ,9.6484e-05 ,1.1163e-04 ,1.3198e-04 /) - kbo(:,28, 3) = (/ & - &5.1865e-05 ,6.7062e-05 ,8.1622e-05 ,9.5189e-05 ,1.1250e-04 /) - kbo(:,29, 3) = (/ & - &4.5229e-05 ,5.8248e-05 ,6.9371e-05 ,8.1305e-05 ,9.5987e-05 /) - kbo(:,30, 3) = (/ & - &3.9548e-05 ,5.0236e-05 ,5.8927e-05 ,6.9361e-05 ,8.1985e-05 /) - kbo(:,31, 3) = (/ & - &3.4672e-05 ,4.3357e-05 ,5.0119e-05 ,5.9230e-05 ,7.0087e-05 /) - kbo(:,32, 3) = (/ & - &3.0291e-05 ,3.6761e-05 ,4.2859e-05 ,5.0621e-05 ,5.9826e-05 /) - kbo(:,33, 3) = (/ & - &2.6343e-05 ,3.1291e-05 ,3.6685e-05 ,4.3251e-05 ,5.1136e-05 /) - kbo(:,34, 3) = (/ & - &2.2619e-05 ,2.6479e-05 ,3.1160e-05 ,3.6817e-05 ,4.3454e-05 /) - kbo(:,35, 3) = (/ & - &1.9044e-05 ,2.2094e-05 ,2.6069e-05 ,3.0814e-05 ,3.6332e-05 /) - kbo(:,36, 3) = (/ & - &1.5660e-05 ,1.8150e-05 ,2.1420e-05 ,2.5318e-05 ,2.9845e-05 /) - kbo(:,37, 3) = (/ & - &1.2481e-05 ,1.4567e-05 ,1.7160e-05 ,2.0273e-05 ,2.3924e-05 /) - kbo(:,38, 3) = (/ & - &9.9229e-06 ,1.1707e-05 ,1.3728e-05 ,1.6208e-05 ,1.9147e-05 /) - kbo(:,39, 3) = (/ & - &7.8980e-06 ,9.3824e-06 ,1.0994e-05 ,1.2956e-05 ,1.5319e-05 /) - kbo(:,40, 3) = (/ & - &6.1214e-06 ,7.4148e-06 ,8.6411e-06 ,1.0203e-05 ,1.2052e-05 /) - kbo(:,41, 3) = (/ & - &4.7079e-06 ,5.8792e-06 ,6.7814e-06 ,8.0075e-06 ,9.4649e-06 /) - kbo(:,42, 3) = (/ & - &3.6048e-06 ,4.5698e-06 ,5.3449e-06 ,6.2854e-06 ,7.4263e-06 /) - kbo(:,43, 3) = (/ & - &2.7216e-06 ,3.5076e-06 ,4.1783e-06 ,4.8932e-06 ,5.7661e-06 /) - kbo(:,44, 3) = (/ & - &2.0468e-06 ,2.6504e-06 ,3.2648e-06 ,3.7820e-06 ,4.4701e-06 /) - kbo(:,45, 3) = (/ & - &1.5361e-06 ,1.9893e-06 ,2.5184e-06 ,2.9393e-06 ,3.4602e-06 /) - kbo(:,46, 3) = (/ & - &1.1503e-06 ,1.4832e-06 ,1.9137e-06 ,2.2823e-06 ,2.6719e-06 /) - kbo(:,47, 3) = (/ & - &8.3777e-07 ,1.0971e-06 ,1.4217e-06 ,1.7739e-06 ,2.0443e-06 /) - kbo(:,48, 3) = (/ & - &6.1407e-07 ,8.0972e-07 ,1.0453e-06 ,1.3363e-06 ,1.5776e-06 /) - kbo(:,49, 3) = (/ & - &4.3890e-07 ,5.9676e-07 ,7.7449e-07 ,1.0018e-06 ,1.2151e-06 /) - kbo(:,50, 3) = (/ & - &3.0232e-07 ,4.3632e-07 ,5.7501e-07 ,7.4600e-07 ,9.3964e-07 /) - kbo(:,51, 3) = (/ & - &2.1820e-07 ,3.2558e-07 ,4.2933e-07 ,5.5411e-07 ,7.1236e-07 /) - kbo(:,52, 3) = (/ & - &1.6142e-07 ,2.3096e-07 ,3.1815e-07 ,4.1428e-07 ,5.3670e-07 /) - kbo(:,53, 3) = (/ & - &1.2239e-07 ,1.5927e-07 ,2.3415e-07 ,3.0848e-07 ,4.0010e-07 /) - kbo(:,54, 3) = (/ & - &9.4287e-08 ,1.1772e-07 ,1.7609e-07 ,2.3226e-07 ,2.9972e-07 /) - kbo(:,55, 3) = (/ & - &7.3559e-08 ,8.8158e-08 ,1.2627e-07 ,1.7401e-07 ,2.2659e-07 /) - kbo(:,56, 3) = (/ & - &5.7474e-08 ,6.7419e-08 ,8.9064e-08 ,1.2949e-07 ,1.7067e-07 /) - kbo(:,57, 3) = (/ & - &4.5317e-08 ,5.2043e-08 ,6.5424e-08 ,9.7761e-08 ,1.2882e-07 /) - kbo(:,58, 3) = (/ & - &3.4988e-08 ,4.0617e-08 ,4.8970e-08 ,7.1601e-08 ,9.7431e-08 /) - kbo(:,59, 3) = (/ & - &2.8131e-08 ,3.2653e-08 ,3.8986e-08 ,5.5678e-08 ,7.6933e-08 /) - kbo(:,13, 4) = (/ & - &1.2375e-03 ,1.3907e-03 ,1.6848e-03 ,2.0764e-03 ,2.5455e-03 /) - kbo(:,14, 4) = (/ & - &1.0352e-03 ,1.1626e-03 ,1.4153e-03 ,1.7410e-03 ,2.1410e-03 /) - kbo(:,15, 4) = (/ & - &8.6916e-04 ,9.7450e-04 ,1.1918e-03 ,1.4617e-03 ,1.8090e-03 /) - kbo(:,16, 4) = (/ & - &7.1556e-04 ,8.1812e-04 ,1.0040e-03 ,1.2311e-03 ,1.5286e-03 /) - kbo(:,17, 4) = (/ & - &5.8965e-04 ,6.8521e-04 ,8.4372e-04 ,1.0375e-03 ,1.2976e-03 /) - kbo(:,18, 4) = (/ & - &4.8726e-04 ,5.7342e-04 ,7.0979e-04 ,8.7350e-04 ,1.0996e-03 /) - kbo(:,19, 4) = (/ & - &4.0346e-04 ,4.7923e-04 ,5.9512e-04 ,7.3474e-04 ,9.2909e-04 /) - kbo(:,20, 4) = (/ & - &3.3252e-04 ,4.0340e-04 ,5.0129e-04 ,6.2120e-04 ,7.8738e-04 /) - kbo(:,21, 4) = (/ & - &2.7824e-04 ,3.3959e-04 ,4.2206e-04 ,5.2456e-04 ,6.6651e-04 /) - kbo(:,22, 4) = (/ & - &2.3686e-04 ,2.9111e-04 ,3.6067e-04 ,4.4836e-04 ,5.7225e-04 /) - kbo(:,23, 4) = (/ & - &2.0203e-04 ,2.4985e-04 ,3.0880e-04 ,3.8545e-04 ,4.9113e-04 /) - kbo(:,24, 4) = (/ & - &1.7215e-04 ,2.1409e-04 ,2.6491e-04 ,3.3340e-04 ,4.2129e-04 /) - kbo(:,25, 4) = (/ & - &1.4744e-04 ,1.8341e-04 ,2.2761e-04 ,2.8826e-04 ,3.6138e-04 /) - kbo(:,26, 4) = (/ & - &1.2712e-04 ,1.5795e-04 ,1.9671e-04 ,2.5046e-04 ,3.1109e-04 /) - kbo(:,27, 4) = (/ & - &1.1012e-04 ,1.3626e-04 ,1.6969e-04 ,2.1697e-04 ,2.6764e-04 /) - kbo(:,28, 4) = (/ & - &9.5268e-05 ,1.1775e-04 ,1.4811e-04 ,1.8739e-04 ,2.3002e-04 /) - kbo(:,29, 4) = (/ & - &8.1990e-05 ,1.0183e-04 ,1.2887e-04 ,1.6155e-04 ,1.9779e-04 /) - kbo(:,30, 4) = (/ & - &7.0812e-05 ,8.8197e-05 ,1.1209e-04 ,1.3932e-04 ,1.6990e-04 /) - kbo(:,31, 4) = (/ & - &6.1297e-05 ,7.6242e-05 ,9.7371e-05 ,1.2004e-04 ,1.4578e-04 /) - kbo(:,32, 4) = (/ & - &5.3068e-05 ,6.6743e-05 ,8.4358e-05 ,1.0341e-04 ,1.2514e-04 /) - kbo(:,33, 4) = (/ & - &4.6021e-05 ,5.8210e-05 ,7.2823e-05 ,8.9095e-05 ,1.0732e-04 /) - kbo(:,34, 4) = (/ & - &3.9611e-05 ,5.0325e-05 ,6.2484e-05 ,7.6131e-05 ,9.1418e-05 /) - kbo(:,35, 4) = (/ & - &3.3314e-05 ,4.2493e-05 ,5.2519e-05 ,6.3851e-05 ,7.6543e-05 /) - kbo(:,36, 4) = (/ & - &2.7397e-05 ,3.4956e-05 ,4.3170e-05 ,5.2466e-05 ,6.2879e-05 /) - kbo(:,37, 4) = (/ & - &2.1842e-05 ,2.7769e-05 ,3.4424e-05 ,4.1912e-05 ,5.0314e-05 /) - kbo(:,38, 4) = (/ & - &1.7352e-05 ,2.1971e-05 ,2.7389e-05 ,3.3429e-05 ,4.0195e-05 /) - kbo(:,39, 4) = (/ & - &1.3770e-05 ,1.7414e-05 ,2.1778e-05 ,2.6648e-05 ,3.2100e-05 /) - kbo(:,40, 4) = (/ & - &1.0696e-05 ,1.3450e-05 ,1.6968e-05 ,2.0795e-05 ,2.5164e-05 /) - kbo(:,41, 4) = (/ & - &8.2926e-06 ,1.0301e-05 ,1.3150e-05 ,1.6196e-05 ,1.9663e-05 /) - kbo(:,42, 4) = (/ & - &6.4321e-06 ,7.9930e-06 ,1.0153e-05 ,1.2599e-05 ,1.5345e-05 /) - kbo(:,43, 4) = (/ & - &4.9294e-06 ,6.1147e-06 ,7.7222e-06 ,9.6711e-06 ,1.1840e-05 /) - kbo(:,44, 4) = (/ & - &3.7796e-06 ,4.6518e-06 ,5.8136e-06 ,7.3808e-06 ,9.0677e-06 /) - kbo(:,45, 4) = (/ & - &2.8649e-06 ,3.5446e-06 ,4.4045e-06 ,5.6003e-06 ,6.9419e-06 /) - kbo(:,46, 4) = (/ & - &2.1636e-06 ,2.6897e-06 ,3.3348e-06 ,4.2109e-06 ,5.2785e-06 /) - kbo(:,47, 4) = (/ & - &1.6423e-06 ,2.0325e-06 ,2.5019e-06 ,3.1092e-06 ,3.9697e-06 /) - kbo(:,48, 4) = (/ & - &1.2438e-06 ,1.5176e-06 ,1.8805e-06 ,2.3386e-06 ,2.9598e-06 /) - kbo(:,49, 4) = (/ & - &9.6637e-07 ,1.1421e-06 ,1.4184e-06 ,1.7520e-06 ,2.2027e-06 /) - kbo(:,50, 4) = (/ & - &7.6681e-07 ,8.7015e-07 ,1.0718e-06 ,1.3233e-06 ,1.6436e-06 /) - kbo(:,51, 4) = (/ & - &5.7638e-07 ,6.6674e-07 ,8.0765e-07 ,1.0019e-06 ,1.2448e-06 /) - kbo(:,52, 4) = (/ & - &4.3579e-07 ,5.2641e-07 ,6.1480e-07 ,7.6360e-07 ,9.4101e-07 /) - kbo(:,53, 4) = (/ & - &3.2630e-07 ,4.1175e-07 ,4.6866e-07 ,5.7670e-07 ,7.1273e-07 /) - kbo(:,54, 4) = (/ & - &2.4508e-07 ,3.1226e-07 ,3.6234e-07 ,4.3785e-07 ,5.4334e-07 /) - kbo(:,55, 4) = (/ & - &1.8867e-07 ,2.3849e-07 ,2.8812e-07 ,3.3656e-07 ,4.1795e-07 /) - kbo(:,56, 4) = (/ & - &1.3888e-07 ,1.8052e-07 ,2.2770e-07 ,2.5896e-07 ,3.1922e-07 /) - kbo(:,57, 4) = (/ & - &9.9211e-08 ,1.3628e-07 ,1.7309e-07 ,2.0040e-07 ,2.4315e-07 /) - kbo(:,58, 4) = (/ & - &7.2311e-08 ,1.0440e-07 ,1.3249e-07 ,1.5839e-07 ,1.8707e-07 /) - kbo(:,59, 4) = (/ & - &5.6449e-08 ,8.3969e-08 ,1.0579e-07 ,1.2870e-07 ,1.4987e-07 /) - kbo(:,13, 5) = (/ & - &2.0768e-03 ,2.8684e-03 ,3.7718e-03 ,4.8192e-03 ,6.0412e-03 /) - kbo(:,14, 5) = (/ & - &1.7564e-03 ,2.4332e-03 ,3.1824e-03 ,4.0625e-03 ,5.0889e-03 /) - kbo(:,15, 5) = (/ & - &1.4908e-03 ,2.0712e-03 ,2.6934e-03 ,3.4353e-03 ,4.2909e-03 /) - kbo(:,16, 5) = (/ & - &1.2837e-03 ,1.7624e-03 ,2.2850e-03 ,2.9120e-03 ,3.6366e-03 /) - kbo(:,17, 5) = (/ & - &1.1007e-03 ,1.4970e-03 ,1.9372e-03 ,2.4633e-03 ,3.0868e-03 /) - kbo(:,18, 5) = (/ & - &9.3998e-04 ,1.2697e-03 ,1.6378e-03 ,2.0802e-03 ,2.6082e-03 /) - kbo(:,19, 5) = (/ & - &8.0100e-04 ,1.0742e-03 ,1.3849e-03 ,1.7569e-03 ,2.2030e-03 /) - kbo(:,20, 5) = (/ & - &6.8663e-04 ,9.1195e-04 ,1.1757e-03 ,1.4883e-03 ,1.8647e-03 /) - kbo(:,21, 5) = (/ & - &5.8705e-04 ,7.7399e-04 ,9.9752e-04 ,1.2607e-03 ,1.5771e-03 /) - kbo(:,22, 5) = (/ & - &5.1050e-04 ,6.6826e-04 ,8.5880e-04 ,1.0835e-03 ,1.3514e-03 /) - kbo(:,23, 5) = (/ & - &4.4216e-04 ,5.7700e-04 ,7.3906e-04 ,9.3102e-04 ,1.1572e-03 /) - kbo(:,24, 5) = (/ & - &3.8397e-04 ,4.9926e-04 ,6.3682e-04 ,8.0099e-04 ,9.9155e-04 /) - kbo(:,25, 5) = (/ & - &3.3452e-04 ,4.3352e-04 ,5.4972e-04 ,6.8946e-04 ,8.5204e-04 /) - kbo(:,26, 5) = (/ & - &2.9253e-04 ,3.7705e-04 ,4.7637e-04 ,5.9546e-04 ,7.3410e-04 /) - kbo(:,27, 5) = (/ & - &2.5516e-04 ,3.2740e-04 ,4.1271e-04 ,5.1423e-04 ,6.3183e-04 /) - kbo(:,28, 5) = (/ & - &2.2216e-04 ,2.8389e-04 ,3.5748e-04 ,4.4367e-04 ,5.4344e-04 /) - kbo(:,29, 5) = (/ & - &1.9425e-04 ,2.4642e-04 ,3.0966e-04 ,3.8285e-04 ,4.6743e-04 /) - kbo(:,30, 5) = (/ & - &1.6916e-04 ,2.1405e-04 ,2.6782e-04 ,3.3008e-04 ,4.0176e-04 /) - kbo(:,31, 5) = (/ & - &1.4722e-04 ,1.8596e-04 ,2.3162e-04 ,2.8455e-04 ,3.4535e-04 /) - kbo(:,32, 5) = (/ & - &1.2822e-04 ,1.6146e-04 ,2.0021e-04 ,2.4528e-04 ,2.9677e-04 /) - kbo(:,33, 5) = (/ & - &1.1158e-04 ,1.4011e-04 ,1.7313e-04 ,2.1133e-04 ,2.5496e-04 /) - kbo(:,34, 5) = (/ & - &9.6356e-05 ,1.2055e-04 ,1.4854e-04 ,1.8079e-04 ,2.1758e-04 /) - kbo(:,35, 5) = (/ & - &8.1343e-05 ,1.0151e-04 ,1.2490e-04 ,1.5178e-04 ,1.8239e-04 /) - kbo(:,36, 5) = (/ & - &6.6965e-05 ,8.3520e-05 ,1.0275e-04 ,1.2482e-04 ,1.4993e-04 /) - kbo(:,37, 5) = (/ & - &5.3206e-05 ,6.6545e-05 ,8.1990e-05 ,9.9764e-05 ,1.2001e-04 /) - kbo(:,38, 5) = (/ & - &4.2208e-05 ,5.2902e-05 ,6.5299e-05 ,7.9577e-05 ,9.5895e-05 /) - kbo(:,39, 5) = (/ & - &3.3472e-05 ,4.2041e-05 ,5.1984e-05 ,6.3462e-05 ,7.6593e-05 /) - kbo(:,40, 5) = (/ & - &2.5925e-05 ,3.2660e-05 ,4.0509e-05 ,4.9627e-05 ,6.0037e-05 /) - kbo(:,41, 5) = (/ & - &2.0003e-05 ,2.5267e-05 ,3.1469e-05 ,3.8672e-05 ,4.6923e-05 /) - kbo(:,42, 5) = (/ & - &1.5411e-05 ,1.9519e-05 ,2.4420e-05 ,3.0101e-05 ,3.6637e-05 /) - kbo(:,43, 5) = (/ & - &1.1687e-05 ,1.4867e-05 ,1.8698e-05 ,2.3140e-05 ,2.8269e-05 /) - kbo(:,44, 5) = (/ & - &8.7679e-06 ,1.1261e-05 ,1.4209e-05 ,1.7673e-05 ,2.1693e-05 /) - kbo(:,45, 5) = (/ & - &6.5931e-06 ,8.5087e-06 ,1.0776e-05 ,1.3478e-05 ,1.6614e-05 /) - kbo(:,46, 5) = (/ & - &4.9080e-06 ,6.3755e-06 ,8.1160e-06 ,1.0213e-05 ,1.2647e-05 /) - kbo(:,47, 5) = (/ & - &3.5919e-06 ,4.7038e-06 ,6.0534e-06 ,7.6485e-06 ,9.5281e-06 /) - kbo(:,48, 5) = (/ & - &2.6062e-06 ,3.4739e-06 ,4.4987e-06 ,5.7085e-06 ,7.1618e-06 /) - kbo(:,49, 5) = (/ & - &1.8621e-06 ,2.5496e-06 ,3.3246e-06 ,4.2578e-06 ,5.3684e-06 /) - kbo(:,50, 5) = (/ & - &1.3311e-06 ,1.8748e-06 ,2.4717e-06 ,3.1893e-06 ,4.0386e-06 /) - kbo(:,51, 5) = (/ & - &9.8374e-07 ,1.3665e-06 ,1.8393e-06 ,2.3887e-06 ,3.0388e-06 /) - kbo(:,52, 5) = (/ & - &7.2293e-07 ,9.8525e-07 ,1.3616e-06 ,1.7795e-06 ,2.2858e-06 /) - kbo(:,53, 5) = (/ & - &5.3539e-07 ,7.1322e-07 ,1.0025e-06 ,1.3275e-06 ,1.7157e-06 /) - kbo(:,54, 5) = (/ & - &3.9532e-07 ,5.3074e-07 ,7.3585e-07 ,9.9485e-07 ,1.2941e-06 /) - kbo(:,55, 5) = (/ & - &2.9574e-07 ,3.9534e-07 ,5.3898e-07 ,7.4534e-07 ,9.7510e-07 /) - kbo(:,56, 5) = (/ & - &2.2158e-07 ,2.9575e-07 ,3.9553e-07 ,5.5662e-07 ,7.3612e-07 /) - kbo(:,57, 5) = (/ & - &1.7387e-07 ,2.1999e-07 ,2.9597e-07 ,4.1152e-07 ,5.5434e-07 /) - kbo(:,58, 5) = (/ & - &1.3813e-07 ,1.6569e-07 ,2.2197e-07 ,3.0386e-07 ,4.1774e-07 /) - kbo(:,59, 5) = (/ & - &1.1153e-07 ,1.3014e-07 ,1.7513e-07 ,2.3832e-07 ,3.3096e-07 /) - kbo(:,13, 6) = (/ & - &6.2563e-03 ,8.5754e-03 ,1.1313e-02 ,1.4562e-02 ,1.8439e-02 /) - kbo(:,14, 6) = (/ & - &5.3407e-03 ,7.2874e-03 ,9.6031e-03 ,1.2344e-02 ,1.5616e-02 /) - kbo(:,15, 6) = (/ & - &4.5624e-03 ,6.2026e-03 ,8.1616e-03 ,1.0480e-02 ,1.3236e-02 /) - kbo(:,16, 6) = (/ & - &3.8957e-03 ,5.2793e-03 ,6.9259e-03 ,8.8846e-03 ,1.1202e-02 /) - kbo(:,17, 6) = (/ & - &3.3209e-03 ,4.4815e-03 ,5.8698e-03 ,7.5204e-03 ,9.4486e-03 /) - kbo(:,18, 6) = (/ & - &2.8290e-03 ,3.8089e-03 ,4.9773e-03 ,6.3684e-03 ,7.9890e-03 /) - kbo(:,19, 6) = (/ & - &2.4112e-03 ,3.2462e-03 ,4.2316e-03 ,5.4060e-03 ,6.7720e-03 /) - kbo(:,20, 6) = (/ & - &2.0691e-03 ,2.7791e-03 ,3.6122e-03 ,4.6028e-03 ,5.7715e-03 /) - kbo(:,21, 6) = (/ & - &1.7739e-03 ,2.3724e-03 ,3.0729e-03 ,3.9123e-03 ,4.9081e-03 /) - kbo(:,22, 6) = (/ & - &1.5468e-03 ,2.0535e-03 ,2.6512e-03 ,3.3770e-03 ,4.2260e-03 /) - kbo(:,23, 6) = (/ & - &1.3475e-03 ,1.7768e-03 ,2.2959e-03 ,2.9141e-03 ,3.6373e-03 /) - kbo(:,24, 6) = (/ & - &1.1752e-03 ,1.5439e-03 ,1.9895e-03 ,2.5170e-03 ,3.1328e-03 /) - kbo(:,25, 6) = (/ & - &1.0263e-03 ,1.3444e-03 ,1.7264e-03 ,2.1761e-03 ,2.6990e-03 /) - kbo(:,26, 6) = (/ & - &9.0166e-04 ,1.1758e-03 ,1.5031e-03 ,1.8871e-03 ,2.3306e-03 /) - kbo(:,27, 6) = (/ & - &7.9141e-04 ,1.0269e-03 ,1.3074e-03 ,1.6348e-03 ,2.0092e-03 /) - kbo(:,28, 6) = (/ & - &6.9371e-04 ,8.9592e-04 ,1.1355e-03 ,1.4137e-03 ,1.7327e-03 /) - kbo(:,29, 6) = (/ & - &6.0795e-04 ,7.8166e-04 ,9.8572e-04 ,1.2233e-03 ,1.4938e-03 /) - kbo(:,30, 6) = (/ & - &5.3230e-04 ,6.8106e-04 ,8.5522e-04 ,1.0576e-03 ,1.2859e-03 /) - kbo(:,31, 6) = (/ & - &4.6592e-04 ,5.9303e-04 ,7.4221e-04 ,9.1346e-04 ,1.1061e-03 /) - kbo(:,32, 6) = (/ & - &4.0751e-04 ,5.1643e-04 ,6.4366e-04 ,7.8848e-04 ,9.5095e-04 /) - kbo(:,33, 6) = (/ & - &3.5610e-04 ,4.4934e-04 ,5.5753e-04 ,6.8015e-04 ,8.1668e-04 /) - kbo(:,34, 6) = (/ & - &3.0849e-04 ,3.8773e-04 ,4.7909e-04 ,5.8242e-04 ,6.9697e-04 /) - kbo(:,35, 6) = (/ & - &2.6100e-04 ,3.2729e-04 ,4.0344e-04 ,4.8961e-04 ,5.8449e-04 /) - kbo(:,36, 6) = (/ & - &2.1525e-04 ,2.6972e-04 ,3.3236e-04 ,4.0320e-04 ,4.8106e-04 /) - kbo(:,37, 6) = (/ & - &1.7127e-04 ,2.1505e-04 ,2.6562e-04 ,3.2288e-04 ,3.8605e-04 /) - kbo(:,38, 6) = (/ & - &1.3592e-04 ,1.7107e-04 ,2.1184e-04 ,2.5803e-04 ,3.0917e-04 /) - kbo(:,39, 6) = (/ & - &1.0785e-04 ,1.3607e-04 ,1.6885e-04 ,2.0614e-04 ,2.4755e-04 /) - kbo(:,40, 6) = (/ & - &8.3445e-05 ,1.0573e-04 ,1.3174e-04 ,1.6145e-04 ,1.9465e-04 /) - kbo(:,41, 6) = (/ & - &6.4274e-05 ,8.1836e-05 ,1.0238e-04 ,1.2600e-04 ,1.5256e-04 /) - kbo(:,42, 6) = (/ & - &4.9425e-05 ,6.3242e-05 ,7.9461e-05 ,9.8197e-05 ,1.1940e-04 /) - kbo(:,43, 6) = (/ & - &3.7393e-05 ,4.8142e-05 ,6.0818e-05 ,7.5575e-05 ,9.2337e-05 /) - kbo(:,44, 6) = (/ & - &2.8031e-05 ,3.6364e-05 ,4.6223e-05 ,5.7754e-05 ,7.0960e-05 /) - kbo(:,45, 6) = (/ & - &2.0952e-05 ,2.7396e-05 ,3.5050e-05 ,4.4048e-05 ,5.4413e-05 /) - kbo(:,46, 6) = (/ & - &1.5504e-05 ,2.0469e-05 ,2.6380e-05 ,3.3353e-05 ,4.1465e-05 /) - kbo(:,47, 6) = (/ & - &1.1285e-05 ,1.5071e-05 ,1.9596e-05 ,2.4961e-05 ,3.1243e-05 /) - kbo(:,48, 6) = (/ & - &8.1713e-06 ,1.1048e-05 ,1.4507e-05 ,1.8626e-05 ,2.3478e-05 /) - kbo(:,49, 6) = (/ & - &5.8892e-06 ,8.0594e-06 ,1.0700e-05 ,1.3854e-05 ,1.7591e-05 /) - kbo(:,50, 6) = (/ & - &4.2527e-06 ,5.8989e-06 ,7.9160e-06 ,1.0341e-05 ,1.3223e-05 /) - kbo(:,51, 6) = (/ & - &3.0672e-06 ,4.3146e-06 ,5.8537e-06 ,7.7179e-06 ,9.9420e-06 /) - kbo(:,52, 6) = (/ & - &2.1919e-06 ,3.1415e-06 ,4.3130e-06 ,5.7435e-06 ,7.4576e-06 /) - kbo(:,53, 6) = (/ & - &1.5489e-06 ,2.2740e-06 ,3.1638e-06 ,4.2575e-06 ,5.5767e-06 /) - kbo(:,54, 6) = (/ & - &1.1055e-06 ,1.6569e-06 ,2.3353e-06 ,3.1738e-06 ,4.1929e-06 /) - kbo(:,55, 6) = (/ & - &7.7959e-07 ,1.2025e-06 ,1.7241e-06 ,2.3677e-06 ,3.1567e-06 /) - kbo(:,56, 6) = (/ & - &5.5393e-07 ,8.6666e-07 ,1.2673e-06 ,1.7619e-06 ,2.3695e-06 /) - kbo(:,57, 6) = (/ & - &3.8362e-07 ,6.2174e-07 ,9.3002e-07 ,1.3068e-06 ,1.7740e-06 /) - kbo(:,58, 6) = (/ & - &2.6381e-07 ,4.4330e-07 ,6.7991e-07 ,9.7066e-07 ,1.3310e-06 /) - kbo(:,59, 6) = (/ & - &2.0120e-07 ,3.4415e-07 ,5.3237e-07 ,7.6501e-07 ,1.0533e-06 /) - kbo(:,13, 7) = (/ & - &1.9678e-02 ,2.7339e-02 ,3.6693e-02 ,4.7583e-02 ,5.9838e-02 /) - kbo(:,14, 7) = (/ & - &1.6855e-02 ,2.3332e-02 ,3.1200e-02 ,4.0354e-02 ,5.0549e-02 /) - kbo(:,15, 7) = (/ & - &1.4447e-02 ,1.9926e-02 ,2.6539e-02 ,3.4203e-02 ,4.2741e-02 /) - kbo(:,16, 7) = (/ & - &1.2375e-02 ,1.7007e-02 ,2.2570e-02 ,2.9011e-02 ,3.6155e-02 /) - kbo(:,17, 7) = (/ & - &1.0572e-02 ,1.4480e-02 ,1.9148e-02 ,2.4557e-02 ,3.0543e-02 /) - kbo(:,18, 7) = (/ & - &9.0187e-03 ,1.2308e-02 ,1.6230e-02 ,2.0762e-02 ,2.5754e-02 /) - kbo(:,19, 7) = (/ & - &7.6960e-03 ,1.0462e-02 ,1.3757e-02 ,1.7553e-02 ,2.1712e-02 /) - kbo(:,20, 7) = (/ & - &6.5947e-03 ,8.9295e-03 ,1.1707e-02 ,1.4880e-02 ,1.8332e-02 /) - kbo(:,21, 7) = (/ & - &5.6518e-03 ,7.6362e-03 ,9.9897e-03 ,1.2646e-02 ,1.5515e-02 /) - kbo(:,22, 7) = (/ & - &4.9551e-03 ,6.6562e-03 ,8.6611e-03 ,1.0883e-02 ,1.3285e-02 /) - kbo(:,23, 7) = (/ & - &4.3463e-03 ,5.8019e-03 ,7.4874e-03 ,9.3424e-03 ,1.1393e-02 /) - kbo(:,24, 7) = (/ & - &3.8088e-03 ,5.0439e-03 ,6.4617e-03 ,8.0406e-03 ,9.7631e-03 /) - kbo(:,25, 7) = (/ & - &3.3364e-03 ,4.3855e-03 ,5.5891e-03 ,6.9199e-03 ,8.3730e-03 /) - kbo(:,26, 7) = (/ & - &2.9302e-03 ,3.8269e-03 ,4.8484e-03 ,5.9724e-03 ,7.1930e-03 /) - kbo(:,27, 7) = (/ & - &2.5694e-03 ,3.3414e-03 ,4.2035e-03 ,5.1445e-03 ,6.1710e-03 /) - kbo(:,28, 7) = (/ & - &2.2557e-03 ,2.9117e-03 ,3.6362e-03 ,4.4284e-03 ,5.2859e-03 /) - kbo(:,29, 7) = (/ & - &1.9791e-03 ,2.5337e-03 ,3.1431e-03 ,3.8083e-03 ,4.5227e-03 /) - kbo(:,30, 7) = (/ & - &1.7348e-03 ,2.2004e-03 ,2.7128e-03 ,3.2695e-03 ,3.8671e-03 /) - kbo(:,31, 7) = (/ & - &1.5168e-03 ,1.9090e-03 ,2.3389e-03 ,2.8042e-03 ,3.3063e-03 /) - kbo(:,32, 7) = (/ & - &1.3245e-03 ,1.6546e-03 ,2.0148e-03 ,2.4067e-03 ,2.8256e-03 /) - kbo(:,33, 7) = (/ & - &1.1547e-03 ,1.4322e-03 ,1.7355e-03 ,2.0639e-03 ,2.4127e-03 /) - kbo(:,34, 7) = (/ & - &9.9732e-04 ,1.2299e-03 ,1.4851e-03 ,1.7585e-03 ,2.0486e-03 /) - kbo(:,35, 7) = (/ & - &8.4240e-04 ,1.0365e-03 ,1.2482e-03 ,1.4745e-03 ,1.7149e-03 /) - kbo(:,36, 7) = (/ & - &6.9459e-04 ,8.5479e-04 ,1.0290e-03 ,1.2151e-03 ,1.4131e-03 /) - kbo(:,37, 7) = (/ & - &5.5418e-04 ,6.8431e-04 ,8.2605e-04 ,9.7772e-04 ,1.1393e-03 /) - kbo(:,38, 7) = (/ & - &4.4103e-04 ,5.4666e-04 ,6.6164e-04 ,7.8531e-04 ,9.1717e-04 /) - kbo(:,39, 7) = (/ & - &3.5078e-04 ,4.3647e-04 ,5.2986e-04 ,6.3056e-04 ,7.3809e-04 /) - kbo(:,40, 7) = (/ & - &2.7223e-04 ,3.4099e-04 ,4.1623e-04 ,4.9763e-04 ,5.8479e-04 /) - kbo(:,41, 7) = (/ & - &2.1016e-04 ,2.6529e-04 ,3.2578e-04 ,3.9146e-04 ,4.6190e-04 /) - kbo(:,42, 7) = (/ & - &1.6186e-04 ,2.0599e-04 ,2.5454e-04 ,3.0749e-04 ,3.6441e-04 /) - kbo(:,43, 7) = (/ & - &1.2244e-04 ,1.5755e-04 ,1.9631e-04 ,2.3871e-04 ,2.8458e-04 /) - kbo(:,44, 7) = (/ & - &9.1656e-05 ,1.1940e-04 ,1.5021e-04 ,1.8408e-04 ,2.2084e-04 /) - kbo(:,45, 7) = (/ & - &6.8343e-05 ,9.0130e-05 ,1.1460e-04 ,1.4155e-04 ,1.7102e-04 /) - kbo(:,46, 7) = (/ & - &5.0438e-05 ,6.7336e-05 ,8.6692e-05 ,1.0813e-04 ,1.3160e-04 /) - kbo(:,47, 7) = (/ & - &3.6553e-05 ,4.9462e-05 ,6.4648e-05 ,8.1563e-05 ,1.0018e-04 /) - kbo(:,48, 7) = (/ & - &2.6343e-05 ,3.6142e-05 ,4.7933e-05 ,6.1264e-05 ,7.5986e-05 /) - kbo(:,49, 7) = (/ & - &1.8866e-05 ,2.6263e-05 ,3.5311e-05 ,4.5778e-05 ,5.7425e-05 /) - kbo(:,50, 7) = (/ & - &1.3557e-05 ,1.9139e-05 ,2.6064e-05 ,3.4268e-05 ,4.3473e-05 /) - kbo(:,51, 7) = (/ & - &9.7297e-06 ,1.3926e-05 ,1.9216e-05 ,2.5597e-05 ,3.2867e-05 /) - kbo(:,52, 7) = (/ & - &6.9563e-06 ,1.0085e-05 ,1.4103e-05 ,1.9022e-05 ,2.4754e-05 /) - kbo(:,53, 7) = (/ & - &4.9502e-06 ,7.2644e-06 ,1.0302e-05 ,1.4070e-05 ,1.8558e-05 /) - kbo(:,54, 7) = (/ & - &3.5499e-06 ,5.2696e-06 ,7.5685e-06 ,1.0462e-05 ,1.3965e-05 /) - kbo(:,55, 7) = (/ & - &2.5517e-06 ,3.8332e-06 ,5.5671e-06 ,7.7870e-06 ,1.0502e-05 /) - kbo(:,56, 7) = (/ & - &1.8250e-06 ,2.7802e-06 ,4.0807e-06 ,5.7760e-06 ,7.8765e-06 /) - kbo(:,57, 7) = (/ & - &1.3020e-06 ,2.0096e-06 ,2.9783e-06 ,4.2688e-06 ,5.8872e-06 /) - kbo(:,58, 7) = (/ & - &9.3216e-07 ,1.4580e-06 ,2.1842e-06 ,3.1634e-06 ,4.4097e-06 /) - kbo(:,59, 7) = (/ & - &7.2634e-07 ,1.1405e-06 ,1.7167e-06 ,2.4950e-06 ,3.4919e-06 /) - kbo(:,13, 8) = (/ & - &6.7703e-02 ,9.1028e-02 ,1.1838e-01 ,1.4990e-01 ,1.8559e-01 /) - kbo(:,14, 8) = (/ & - &5.8222e-02 ,7.8007e-02 ,1.0118e-01 ,1.2784e-01 ,1.5811e-01 /) - kbo(:,15, 8) = (/ & - &5.0069e-02 ,6.6838e-02 ,8.6469e-02 ,1.0901e-01 ,1.3468e-01 /) - kbo(:,16, 8) = (/ & - &4.3038e-02 ,5.7247e-02 ,7.3838e-02 ,9.2876e-02 ,1.1462e-01 /) - kbo(:,17, 8) = (/ & - &3.6905e-02 ,4.8922e-02 ,6.2921e-02 ,7.8980e-02 ,9.7249e-02 /) - kbo(:,18, 8) = (/ & - &3.1539e-02 ,4.1670e-02 ,5.3450e-02 ,6.6951e-02 ,8.2335e-02 /) - kbo(:,19, 8) = (/ & - &2.6840e-02 ,3.5366e-02 ,4.5264e-02 ,5.6569e-02 ,6.9496e-02 /) - kbo(:,20, 8) = (/ & - &2.2918e-02 ,3.0090e-02 ,3.8404e-02 ,4.7928e-02 ,5.8831e-02 /) - kbo(:,21, 8) = (/ & - &1.9556e-02 ,2.5586e-02 ,3.2570e-02 ,4.0587e-02 ,4.9753e-02 /) - kbo(:,22, 8) = (/ & - &1.6988e-02 ,2.2111e-02 ,2.8028e-02 ,3.4852e-02 ,4.2609e-02 /) - kbo(:,23, 8) = (/ & - &1.4811e-02 ,1.9201e-02 ,2.4269e-02 ,3.0112e-02 ,3.6663e-02 /) - kbo(:,24, 8) = (/ & - &1.2965e-02 ,1.6745e-02 ,2.1118e-02 ,2.6093e-02 ,3.1689e-02 /) - kbo(:,25, 8) = (/ & - &1.1393e-02 ,1.4643e-02 ,1.8383e-02 ,2.2644e-02 ,2.7400e-02 /) - kbo(:,26, 8) = (/ & - &1.0038e-02 ,1.2830e-02 ,1.6015e-02 ,1.9632e-02 ,2.3704e-02 /) - kbo(:,27, 8) = (/ & - &8.8123e-03 ,1.1178e-02 ,1.3890e-02 ,1.6992e-02 ,2.0492e-02 /) - kbo(:,28, 8) = (/ & - &7.6974e-03 ,9.7127e-03 ,1.2040e-02 ,1.4716e-02 ,1.7696e-02 /) - kbo(:,29, 8) = (/ & - &6.7206e-03 ,8.4382e-03 ,1.0458e-02 ,1.2740e-02 ,1.5282e-02 /) - kbo(:,30, 8) = (/ & - &5.8552e-03 ,7.3524e-03 ,9.0759e-03 ,1.1022e-02 ,1.3175e-02 /) - kbo(:,31, 8) = (/ & - &5.1145e-03 ,6.3996e-03 ,7.8758e-03 ,9.5283e-03 ,1.1351e-02 /) - kbo(:,32, 8) = (/ & - &4.4686e-03 ,5.5753e-03 ,6.8326e-03 ,8.2331e-03 ,9.7798e-03 /) - kbo(:,33, 8) = (/ & - &3.9075e-03 ,4.8544e-03 ,5.9240e-03 ,7.1154e-03 ,8.4216e-03 /) - kbo(:,34, 8) = (/ & - &3.3885e-03 ,4.1943e-03 ,5.1017e-03 ,6.1096e-03 ,7.2102e-03 /) - kbo(:,35, 8) = (/ & - &2.8755e-03 ,3.5515e-03 ,4.3142e-03 ,5.1540e-03 ,6.0867e-03 /) - kbo(:,36, 8) = (/ & - &2.3819e-03 ,2.9429e-03 ,3.5744e-03 ,4.2743e-03 ,5.0503e-03 /) - kbo(:,37, 8) = (/ & - &1.9080e-03 ,2.3651e-03 ,2.8794e-03 ,3.4539e-03 ,4.0906e-03 /) - kbo(:,38, 8) = (/ & - &1.5252e-03 ,1.8961e-03 ,2.3154e-03 ,2.7875e-03 ,3.3076e-03 /) - kbo(:,39, 8) = (/ & - &1.2186e-03 ,1.5204e-03 ,1.8625e-03 ,2.2483e-03 ,2.6746e-03 /) - kbo(:,40, 8) = (/ & - &9.5047e-04 ,1.1919e-03 ,1.4679e-03 ,1.7800e-03 ,2.1255e-03 /) - kbo(:,41, 8) = (/ & - &7.3797e-04 ,9.3055e-04 ,1.1523e-03 ,1.4042e-03 ,1.6837e-03 /) - kbo(:,42, 8) = (/ & - &5.7195e-04 ,7.2531e-04 ,9.0341e-04 ,1.1062e-03 ,1.3320e-03 /) - kbo(:,43, 8) = (/ & - &4.3632e-04 ,5.5716e-04 ,6.9866e-04 ,8.6074e-04 ,1.0421e-03 /) - kbo(:,44, 8) = (/ & - &3.2967e-04 ,4.2439e-04 ,5.3607e-04 ,6.6494e-04 ,8.0995e-04 /) - kbo(:,45, 8) = (/ & - &2.4830e-04 ,3.2230e-04 ,4.1025e-04 ,5.1229e-04 ,6.2794e-04 /) - kbo(:,46, 8) = (/ & - &1.8517e-04 ,2.4270e-04 ,3.1143e-04 ,3.9189e-04 ,4.8363e-04 /) - kbo(:,47, 8) = (/ & - &1.3585e-04 ,1.8008e-04 ,2.3317e-04 ,2.9603e-04 ,3.6826e-04 /) - kbo(:,48, 8) = (/ & - &9.9135e-05 ,1.3301e-04 ,1.7388e-04 ,2.2278e-04 ,2.7947e-04 /) - kbo(:,49, 8) = (/ & - &7.1904e-05 ,9.7733e-05 ,1.2918e-04 ,1.6699e-04 ,2.1129e-04 /) - kbo(:,50, 8) = (/ & - &5.2307e-05 ,7.2019e-05 ,9.6216e-05 ,1.2554e-04 ,1.6020e-04 /) - kbo(:,51, 8) = (/ & - &3.7969e-05 ,5.2997e-05 ,7.1620e-05 ,9.4315e-05 ,1.2143e-04 /) - kbo(:,52, 8) = (/ & - &2.7413e-05 ,3.8825e-05 ,5.3093e-05 ,7.0665e-05 ,9.1720e-05 /) - kbo(:,53, 8) = (/ & - &1.9654e-05 ,2.8289e-05 ,3.9179e-05 ,5.2708e-05 ,6.9024e-05 /) - kbo(:,54, 8) = (/ & - &1.4176e-05 ,2.0734e-05 ,2.9077e-05 ,3.9534e-05 ,5.2234e-05 /) - kbo(:,55, 8) = (/ & - &1.0223e-05 ,1.5194e-05 ,2.1592e-05 ,2.9664e-05 ,3.9585e-05 /) - kbo(:,56, 8) = (/ & - &7.3305e-06 ,1.1089e-05 ,1.5976e-05 ,2.2196e-05 ,2.9906e-05 /) - kbo(:,57, 8) = (/ & - &5.2231e-06 ,8.0475e-06 ,1.1769e-05 ,1.6548e-05 ,2.2524e-05 /) - kbo(:,58, 8) = (/ & - &3.7230e-06 ,5.8489e-06 ,8.6848e-06 ,1.2363e-05 ,1.6999e-05 /) - kbo(:,59, 8) = (/ & - &2.8893e-06 ,4.5778e-06 ,6.8447e-06 ,9.7955e-06 ,1.3534e-05 /) - kbo(:,13, 9) = (/ & - &4.1576e-01 ,5.6459e-01 ,7.4208e-01 ,9.4959e-01 ,1.1894e+00 /) - kbo(:,14, 9) = (/ & - &3.6259e-01 ,4.8996e-01 ,6.4236e-01 ,8.2178e-01 ,1.0273e+00 /) - kbo(:,15, 9) = (/ & - &3.1572e-01 ,4.2505e-01 ,5.5650e-01 ,7.1044e-01 ,8.8534e-01 /) - kbo(:,16, 9) = (/ & - &2.7461e-01 ,3.6869e-01 ,4.8148e-01 ,6.1276e-01 ,7.6136e-01 /) - kbo(:,17, 9) = (/ & - &2.3842e-01 ,3.1920e-01 ,4.1566e-01 ,5.2724e-01 ,6.5339e-01 /) - kbo(:,18, 9) = (/ & - &2.0643e-01 ,2.7580e-01 ,3.5808e-01 ,4.5284e-01 ,5.5957e-01 /) - kbo(:,19, 9) = (/ & - &1.7844e-01 ,2.3768e-01 ,3.0746e-01 ,3.8778e-01 ,4.7826e-01 /) - kbo(:,20, 9) = (/ & - &1.5457e-01 ,2.0515e-01 ,2.6455e-01 ,3.3275e-01 ,4.0945e-01 /) - kbo(:,21, 9) = (/ & - &1.3372e-01 ,1.7673e-01 ,2.2718e-01 ,2.8500e-01 ,3.5014e-01 /) - kbo(:,22, 9) = (/ & - &1.1755e-01 ,1.5455e-01 ,1.9772e-01 ,2.4719e-01 ,3.0287e-01 /) - kbo(:,23, 9) = (/ & - &1.0319e-01 ,1.3488e-01 ,1.7188e-01 ,2.1417e-01 ,2.6161e-01 /) - kbo(:,24, 9) = (/ & - &9.0543e-02 ,1.1778e-01 ,1.4943e-01 ,1.8553e-01 ,2.2596e-01 /) - kbo(:,25, 9) = (/ & - &7.9491e-02 ,1.0285e-01 ,1.2998e-01 ,1.6082e-01 ,1.9540e-01 /) - kbo(:,26, 9) = (/ & - &7.0023e-02 ,9.0152e-02 ,1.1342e-01 ,1.3988e-01 ,1.6957e-01 /) - kbo(:,27, 9) = (/ & - &6.1675e-02 ,7.9028e-02 ,9.9049e-02 ,1.2176e-01 ,1.4715e-01 /) - kbo(:,28, 9) = (/ & - &5.4332e-02 ,6.9290e-02 ,8.6538e-02 ,1.0602e-01 ,1.2768e-01 /) - kbo(:,29, 9) = (/ & - &4.8016e-02 ,6.0968e-02 ,7.5734e-02 ,9.2386e-02 ,1.1090e-01 /) - kbo(:,30, 9) = (/ & - &4.2494e-02 ,5.3680e-02 ,6.6413e-02 ,8.0729e-02 ,9.6539e-02 /) - kbo(:,31, 9) = (/ & - &3.7548e-02 ,4.7237e-02 ,5.8255e-02 ,7.0556e-02 ,8.4102e-02 /) - kbo(:,32, 9) = (/ & - &3.3189e-02 ,4.1551e-02 ,5.1044e-02 ,6.1646e-02 ,7.3306e-02 /) - kbo(:,33, 9) = (/ & - &2.9274e-02 ,3.6514e-02 ,4.4704e-02 ,5.3824e-02 ,6.3833e-02 /) - kbo(:,34, 9) = (/ & - &2.5627e-02 ,3.1864e-02 ,3.8903e-02 ,4.6747e-02 ,5.5596e-02 /) - kbo(:,35, 9) = (/ & - &2.1952e-02 ,2.7259e-02 ,3.3247e-02 ,4.0073e-02 ,4.7679e-02 /) - kbo(:,36, 9) = (/ & - &1.8347e-02 ,2.2808e-02 ,2.7904e-02 ,3.3738e-02 ,4.0178e-02 /) - kbo(:,37, 9) = (/ & - &1.4833e-02 ,1.8504e-02 ,2.2807e-02 ,2.7664e-02 ,3.3111e-02 /) - kbo(:,38, 9) = (/ & - &1.1957e-02 ,1.5000e-02 ,1.8592e-02 ,2.2638e-02 ,2.7241e-02 /) - kbo(:,39, 9) = (/ & - &9.6263e-03 ,1.2169e-02 ,1.5133e-02 ,1.8540e-02 ,2.2409e-02 /) - kbo(:,40, 9) = (/ & - &7.5755e-03 ,9.6595e-03 ,1.2095e-02 ,1.4919e-02 ,1.8126e-02 /) - kbo(:,41, 9) = (/ & - &5.9308e-03 ,7.6313e-03 ,9.6291e-03 ,1.1965e-02 ,1.4606e-02 /) - kbo(:,42, 9) = (/ & - &4.6365e-03 ,6.0158e-03 ,7.6539e-03 ,9.5769e-03 ,1.1776e-02 /) - kbo(:,43, 9) = (/ & - &3.5646e-03 ,4.6692e-03 ,5.9951e-03 ,7.5584e-03 ,9.3611e-03 /) - kbo(:,44, 9) = (/ & - &2.7083e-03 ,3.5831e-03 ,4.6545e-03 ,5.9178e-03 ,7.3883e-03 /) - kbo(:,45, 9) = (/ & - &2.0498e-03 ,2.7405e-03 ,3.5962e-03 ,4.6175e-03 ,5.8123e-03 /) - kbo(:,46, 9) = (/ & - &1.5335e-03 ,2.0746e-03 ,2.7520e-03 ,3.5687e-03 ,4.5390e-03 /) - kbo(:,47, 9) = (/ & - &1.1263e-03 ,1.5445e-03 ,2.0740e-03 ,2.7200e-03 ,3.4958e-03 /) - kbo(:,48, 9) = (/ & - &8.2184e-04 ,1.1429e-03 ,1.5538e-03 ,2.0625e-03 ,2.6781e-03 /) - kbo(:,49, 9) = (/ & - &5.9594e-04 ,8.3975e-04 ,1.1570e-03 ,1.5542e-03 ,2.0406e-03 /) - kbo(:,50, 9) = (/ & - &4.3385e-04 ,6.1951e-04 ,8.6528e-04 ,1.1761e-03 ,1.5615e-03 /) - kbo(:,51, 9) = (/ & - &3.1545e-04 ,4.5652e-04 ,6.4640e-04 ,8.8983e-04 ,1.1948e-03 /) - kbo(:,52, 9) = (/ & - &2.2788e-04 ,3.3444e-04 ,4.7984e-04 ,6.6976e-04 ,9.1050e-04 /) - kbo(:,53, 9) = (/ & - &1.6338e-04 ,2.4338e-04 ,3.5401e-04 ,5.0057e-04 ,6.8907e-04 /) - kbo(:,54, 9) = (/ & - &1.1823e-04 ,1.7879e-04 ,2.6356e-04 ,3.7767e-04 ,5.2615e-04 /) - kbo(:,55, 9) = (/ & - &8.5773e-05 ,1.3160e-04 ,1.9666e-04 ,2.8549e-04 ,4.0286e-04 /) - kbo(:,56, 9) = (/ & - &6.1815e-05 ,9.6294e-05 ,1.4602e-04 ,2.1495e-04 ,3.0724e-04 /) - kbo(:,57, 9) = (/ & - &4.4282e-05 ,7.0071e-05 ,1.0785e-04 ,1.6097e-04 ,2.3304e-04 /) - kbo(:,58, 9) = (/ & - &3.1779e-05 ,5.1099e-05 ,7.9795e-05 ,1.2084e-04 ,1.7730e-04 /) - kbo(:,59, 9) = (/ & - &2.4962e-05 ,4.0511e-05 ,6.3843e-05 ,9.7519e-05 ,1.4426e-04 /) - kbo(:,13,10) = (/ & - &1.8139e+00 ,2.4724e+00 ,3.2908e+00 ,4.2191e+00 ,5.2351e+00 /) - kbo(:,14,10) = (/ & - &1.6219e+00 ,2.2181e+00 ,2.9298e+00 ,3.7301e+00 ,4.6329e+00 /) - kbo(:,15,10) = (/ & - &1.4445e+00 ,1.9645e+00 ,2.5717e+00 ,3.2739e+00 ,4.0834e+00 /) - kbo(:,16,10) = (/ & - &1.2756e+00 ,1.7196e+00 ,2.2454e+00 ,2.8649e+00 ,3.5710e+00 /) - kbo(:,17,10) = (/ & - &1.1121e+00 ,1.4934e+00 ,1.9517e+00 ,2.4879e+00 ,3.0883e+00 /) - kbo(:,18,10) = (/ & - &9.6871e-01 ,1.2953e+00 ,1.6900e+00 ,2.1475e+00 ,2.6630e+00 /) - kbo(:,19,10) = (/ & - &8.4238e-01 ,1.1243e+00 ,1.4633e+00 ,1.8537e+00 ,2.2906e+00 /) - kbo(:,20,10) = (/ & - &7.3459e-01 ,9.7958e-01 ,1.2711e+00 ,1.6026e+00 ,1.9721e+00 /) - kbo(:,21,10) = (/ & - &6.4101e-01 ,8.5278e-01 ,1.0998e+00 ,1.3825e+00 ,1.6970e+00 /) - kbo(:,22,10) = (/ & - &5.6942e-01 ,7.5220e-01 ,9.6596e-01 ,1.2079e+00 ,1.4762e+00 /) - kbo(:,23,10) = (/ & - &5.0503e-01 ,6.6296e-01 ,8.4599e-01 ,1.0531e+00 ,1.2851e+00 /) - kbo(:,24,10) = (/ & - &4.4682e-01 ,5.8292e-01 ,7.4005e-01 ,9.1863e-01 ,1.1187e+00 /) - kbo(:,25,10) = (/ & - &3.9593e-01 ,5.1361e-01 ,6.4951e-01 ,8.0398e-01 ,9.7427e-01 /) - kbo(:,26,10) = (/ & - &3.5212e-01 ,4.5450e-01 ,5.7266e-01 ,7.0571e-01 ,8.5181e-01 /) - kbo(:,27,10) = (/ & - &3.1284e-01 ,4.0173e-01 ,5.0408e-01 ,6.1838e-01 ,7.4572e-01 /) - kbo(:,28,10) = (/ & - &2.7721e-01 ,3.5447e-01 ,4.4231e-01 ,5.4145e-01 ,6.5404e-01 /) - kbo(:,29,10) = (/ & - &2.4517e-01 ,3.1175e-01 ,3.8832e-01 ,4.7588e-01 ,5.7437e-01 /) - kbo(:,30,10) = (/ & - &2.1578e-01 ,2.7344e-01 ,3.4039e-01 ,4.1657e-01 ,5.0271e-01 /) - kbo(:,31,10) = (/ & - &1.9067e-01 ,2.4099e-01 ,2.9914e-01 ,3.6552e-01 ,4.4046e-01 /) - kbo(:,32,10) = (/ & - &1.6874e-01 ,2.1279e-01 ,2.6352e-01 ,3.2154e-01 ,3.8678e-01 /) - kbo(:,33,10) = (/ & - &1.4979e-01 ,1.8828e-01 ,2.3277e-01 ,2.8345e-01 ,3.4103e-01 /) - kbo(:,34,10) = (/ & - &1.3170e-01 ,1.6528e-01 ,2.0425e-01 ,2.4841e-01 ,2.9642e-01 /) - kbo(:,35,10) = (/ & - &1.1324e-01 ,1.4235e-01 ,1.7590e-01 ,2.1287e-01 ,2.5375e-01 /) - kbo(:,36,10) = (/ & - &9.5231e-02 ,1.1973e-01 ,1.4778e-01 ,1.7871e-01 ,2.1338e-01 /) - kbo(:,37,10) = (/ & - &7.7445e-02 ,9.7552e-02 ,1.1991e-01 ,1.4578e-01 ,1.7559e-01 /) - kbo(:,38,10) = (/ & - &6.2913e-02 ,7.9354e-02 ,9.7396e-02 ,1.1872e-01 ,1.4502e-01 /) - kbo(:,39,10) = (/ & - &5.1069e-02 ,6.4406e-02 ,7.9431e-02 ,9.7751e-02 ,1.1994e-01 /) - kbo(:,40,10) = (/ & - &4.0487e-02 ,5.1192e-02 ,6.3494e-02 ,7.8782e-02 ,9.6672e-02 /) - kbo(:,41,10) = (/ & - &3.1933e-02 ,4.0574e-02 ,5.0815e-02 ,6.3454e-02 ,7.7908e-02 /) - kbo(:,42,10) = (/ & - &2.5104e-02 ,3.2117e-02 ,4.0690e-02 ,5.1132e-02 ,6.3360e-02 /) - kbo(:,43,10) = (/ & - &1.9359e-02 ,2.4985e-02 ,3.2134e-02 ,4.0672e-02 ,5.0944e-02 /) - kbo(:,44,10) = (/ & - &1.4822e-02 ,1.9377e-02 ,2.5087e-02 ,3.2083e-02 ,4.0842e-02 /) - kbo(:,45,10) = (/ & - &1.1292e-02 ,1.4912e-02 ,1.9592e-02 ,2.5310e-02 ,3.2495e-02 /) - kbo(:,46,10) = (/ & - &8.5215e-03 ,1.1374e-02 ,1.5134e-02 ,1.9829e-02 ,2.5701e-02 /) - kbo(:,47,10) = (/ & - &6.3304e-03 ,8.5539e-03 ,1.1519e-02 ,1.5304e-02 ,2.0043e-02 /) - kbo(:,48,10) = (/ & - &4.6596e-03 ,6.3842e-03 ,8.7184e-03 ,1.1727e-02 ,1.5575e-02 /) - kbo(:,49,10) = (/ & - &3.3978e-03 ,4.7268e-03 ,6.5354e-03 ,8.9194e-03 ,1.1986e-02 /) - kbo(:,50,10) = (/ & - &2.4889e-03 ,3.5204e-03 ,4.9247e-03 ,6.8240e-03 ,9.2921e-03 /) - kbo(:,51,10) = (/ & - &1.8182e-03 ,2.6209e-03 ,3.7132e-03 ,5.2128e-03 ,7.2010e-03 /) - kbo(:,52,10) = (/ & - &1.3186e-03 ,1.9376e-03 ,2.7823e-03 ,3.9639e-03 ,5.5462e-03 /) - kbo(:,53,10) = (/ & - &9.4728e-04 ,1.4218e-03 ,2.0704e-03 ,2.9919e-03 ,4.2442e-03 /) - kbo(:,54,10) = (/ & - &6.9069e-04 ,1.0561e-03 ,1.5627e-03 ,2.2955e-03 ,3.3049e-03 /) - kbo(:,55,10) = (/ & - &5.0377e-04 ,7.8848e-04 ,1.1876e-03 ,1.7754e-03 ,2.5917e-03 /) - kbo(:,56,10) = (/ & - &3.6627e-04 ,5.8682e-04 ,8.9763e-04 ,1.3649e-03 ,2.0311e-03 /) - kbo(:,57,10) = (/ & - &2.6429e-04 ,4.3296e-04 ,6.7428e-04 ,1.0407e-03 ,1.5759e-03 /) - kbo(:,58,10) = (/ & - &1.9120e-04 ,3.1987e-04 ,5.0621e-04 ,7.9436e-04 ,1.2215e-03 /) - kbo(:,59,10) = (/ & - &1.5379e-04 ,2.5891e-04 ,4.1558e-04 ,6.6123e-04 ,1.0327e-03 /) - kbo(:,13,11) = (/ & - &3.3861e+00 ,4.5598e+00 ,5.9909e+00 ,7.7387e+00 ,9.7720e+00 /) - kbo(:,14,11) = (/ & - &3.0835e+00 ,4.1638e+00 ,5.4907e+00 ,7.0868e+00 ,8.8764e+00 /) - kbo(:,15,11) = (/ & - &2.7946e+00 ,3.7805e+00 ,4.9918e+00 ,6.3780e+00 ,7.9256e+00 /) - kbo(:,16,11) = (/ & - &2.5106e+00 ,3.4021e+00 ,4.4602e+00 ,5.6582e+00 ,7.0321e+00 /) - kbo(:,17,11) = (/ & - &2.2366e+00 ,3.0111e+00 ,3.9217e+00 ,4.9755e+00 ,6.2040e+00 /) - kbo(:,18,11) = (/ & - &1.9672e+00 ,2.6349e+00 ,3.4220e+00 ,4.3497e+00 ,5.4155e+00 /) - kbo(:,19,11) = (/ & - &1.7131e+00 ,2.2896e+00 ,2.9754e+00 ,3.7775e+00 ,4.6830e+00 /) - kbo(:,20,11) = (/ & - &1.4996e+00 ,1.9951e+00 ,2.5864e+00 ,3.2729e+00 ,4.0503e+00 /) - kbo(:,21,11) = (/ & - &1.3113e+00 ,1.7407e+00 ,2.2502e+00 ,2.8371e+00 ,3.4967e+00 /) - kbo(:,22,11) = (/ & - &1.1682e+00 ,1.5452e+00 ,1.9872e+00 ,2.4911e+00 ,3.0547e+00 /) - kbo(:,23,11) = (/ & - &1.0421e+00 ,1.3707e+00 ,1.7516e+00 ,2.1846e+00 ,2.6659e+00 /) - kbo(:,24,11) = (/ & - &9.2979e-01 ,1.2143e+00 ,1.5435e+00 ,1.9148e+00 ,2.3275e+00 /) - kbo(:,25,11) = (/ & - &8.2875e-01 ,1.0753e+00 ,1.3588e+00 ,1.6784e+00 ,2.0353e+00 /) - kbo(:,26,11) = (/ & - &7.3934e-01 ,9.5318e-01 ,1.1984e+00 ,1.4754e+00 ,1.7853e+00 /) - kbo(:,27,11) = (/ & - &6.5883e-01 ,8.4429e-01 ,1.0568e+00 ,1.2987e+00 ,1.5650e+00 /) - kbo(:,28,11) = (/ & - &5.8647e-01 ,7.4845e-01 ,9.3430e-01 ,1.1424e+00 ,1.3714e+00 /) - kbo(:,29,11) = (/ & - &5.2333e-01 ,6.6481e-01 ,8.2647e-01 ,1.0068e+00 ,1.2071e+00 /) - kbo(:,30,11) = (/ & - &4.6646e-01 ,5.9039e-01 ,7.3092e-01 ,8.8855e-01 ,1.0662e+00 /) - kbo(:,31,11) = (/ & - &4.1617e-01 ,5.2426e-01 ,6.4699e-01 ,7.8730e-01 ,9.4645e-01 /) - kbo(:,32,11) = (/ & - &3.7143e-01 ,4.6600e-01 ,5.7506e-01 ,6.9984e-01 ,8.4024e-01 /) - kbo(:,33,11) = (/ & - &3.3164e-01 ,4.1539e-01 ,5.1227e-01 ,6.2282e-01 ,7.4734e-01 /) - kbo(:,34,11) = (/ & - &2.9391e-01 ,3.6839e-01 ,4.5381e-01 ,5.5129e-01 ,6.6077e-01 /) - kbo(:,35,11) = (/ & - &2.5539e-01 ,3.2000e-01 ,3.9467e-01 ,4.7981e-01 ,5.7557e-01 /) - kbo(:,36,11) = (/ & - &2.1634e-01 ,2.7190e-01 ,3.3604e-01 ,4.0953e-01 ,4.9314e-01 /) - kbo(:,37,11) = (/ & - &1.7643e-01 ,2.2324e-01 ,2.7784e-01 ,3.4019e-01 ,4.0996e-01 /) - kbo(:,38,11) = (/ & - &1.4359e-01 ,1.8284e-01 ,2.2947e-01 ,2.8247e-01 ,3.3992e-01 /) - kbo(:,39,11) = (/ & - &1.1703e-01 ,1.4999e-01 ,1.8946e-01 ,2.3346e-01 ,2.8235e-01 /) - kbo(:,40,11) = (/ & - &9.2508e-02 ,1.1962e-01 ,1.5225e-01 ,1.8852e-01 ,2.3037e-01 /) - kbo(:,41,11) = (/ & - &7.2812e-02 ,9.4920e-02 ,1.2149e-01 ,1.5155e-01 ,1.8718e-01 /) - kbo(:,42,11) = (/ & - &5.7212e-02 ,7.5261e-02 ,9.6717e-02 ,1.2163e-01 ,1.5109e-01 /) - kbo(:,43,11) = (/ & - &4.4118e-02 ,5.8641e-02 ,7.5812e-02 ,9.6186e-02 ,1.2035e-01 /) - kbo(:,44,11) = (/ & - &3.3705e-02 ,4.5203e-02 ,5.8991e-02 ,7.5535e-02 ,9.5312e-02 /) - kbo(:,45,11) = (/ & - &2.5795e-02 ,3.4826e-02 ,4.5764e-02 ,5.9102e-02 ,7.5973e-02 /) - kbo(:,46,11) = (/ & - &1.9500e-02 ,2.6666e-02 ,3.5264e-02 ,4.5887e-02 ,6.0050e-02 /) - kbo(:,47,11) = (/ & - &1.4478e-02 ,2.0069e-02 ,2.6758e-02 ,3.5119e-02 ,4.6750e-02 /) - kbo(:,48,11) = (/ & - &1.0673e-02 ,1.5022e-02 ,2.0274e-02 ,2.6837e-02 ,3.6213e-02 /) - kbo(:,49,11) = (/ & - &7.8044e-03 ,1.1183e-02 ,1.5301e-02 ,2.0457e-02 ,2.8037e-02 /) - kbo(:,50,11) = (/ & - &5.7286e-03 ,8.3541e-03 ,1.1590e-02 ,1.5692e-02 ,2.1700e-02 /) - kbo(:,51,11) = (/ & - &4.2038e-03 ,6.2320e-03 ,8.7867e-03 ,1.2044e-02 ,1.6737e-02 /) - kbo(:,52,11) = (/ & - &3.0623e-03 ,4.6247e-03 ,6.6271e-03 ,9.2102e-03 ,1.2933e-02 /) - kbo(:,53,11) = (/ & - &2.2163e-03 ,3.3976e-03 ,4.9642e-03 ,7.0028e-03 ,9.9664e-03 /) - kbo(:,54,11) = (/ & - &1.6196e-03 ,2.5242e-03 ,3.7641e-03 ,5.3709e-03 ,7.7537e-03 /) - kbo(:,55,11) = (/ & - &1.1913e-03 ,1.8900e-03 ,2.8670e-03 ,4.1465e-03 ,6.0719e-03 /) - kbo(:,56,11) = (/ & - &8.6854e-04 ,1.4072e-03 ,2.1797e-03 ,3.2039e-03 ,4.7482e-03 /) - kbo(:,57,11) = (/ & - &6.2940e-04 ,1.0423e-03 ,1.6521e-03 ,2.4738e-03 ,3.7243e-03 /) - kbo(:,58,11) = (/ & - &4.5766e-04 ,7.7541e-04 ,1.2578e-03 ,1.9222e-03 ,2.9509e-03 /) - kbo(:,59,11) = (/ & - &3.7158e-04 ,6.4512e-04 ,1.0666e-03 ,1.6673e-03 ,2.6085e-03 /) - kbo(:,13,12) = (/ & - &6.8265e+00 ,9.1662e+00 ,1.2005e+01 ,1.5291e+01 ,1.9104e+01 /) - kbo(:,14,12) = (/ & - &6.4505e+00 ,8.6663e+00 ,1.1302e+01 ,1.4372e+01 ,1.8022e+01 /) - kbo(:,15,12) = (/ & - &6.0333e+00 ,8.0721e+00 ,1.0531e+01 ,1.3476e+01 ,1.6920e+01 /) - kbo(:,16,12) = (/ & - &5.5683e+00 ,7.4562e+00 ,9.7508e+00 ,1.2490e+01 ,1.5606e+01 /) - kbo(:,17,12) = (/ & - &5.0713e+00 ,6.8025e+00 ,8.9065e+00 ,1.1361e+01 ,1.4093e+01 /) - kbo(:,18,12) = (/ & - &4.5774e+00 ,6.1450e+00 ,8.0133e+00 ,1.0144e+01 ,1.2548e+01 /) - kbo(:,19,12) = (/ & - &4.0864e+00 ,5.4694e+00 ,7.0931e+00 ,8.9659e+00 ,1.1117e+01 /) - kbo(:,20,12) = (/ & - &3.6294e+00 ,4.8248e+00 ,6.2421e+00 ,7.9048e+00 ,9.7882e+00 /) - kbo(:,21,12) = (/ & - &3.1876e+00 ,4.2266e+00 ,5.4689e+00 ,6.9148e+00 ,8.5415e+00 /) - kbo(:,22,12) = (/ & - &2.8446e+00 ,3.7580e+00 ,4.8472e+00 ,6.1036e+00 ,7.5044e+00 /) - kbo(:,23,12) = (/ & - &2.5375e+00 ,3.3389e+00 ,4.2884e+00 ,5.3709e+00 ,6.5794e+00 /) - kbo(:,24,12) = (/ & - &2.2687e+00 ,2.9742e+00 ,3.7979e+00 ,4.7327e+00 ,5.7691e+00 /) - kbo(:,25,12) = (/ & - &2.0354e+00 ,2.6539e+00 ,3.3704e+00 ,4.1780e+00 ,5.0680e+00 /) - kbo(:,26,12) = (/ & - &1.8347e+00 ,2.3795e+00 ,3.0035e+00 ,3.7009e+00 ,4.4678e+00 /) - kbo(:,27,12) = (/ & - &1.6539e+00 ,2.1288e+00 ,2.6709e+00 ,3.2754e+00 ,3.9447e+00 /) - kbo(:,28,12) = (/ & - &1.4848e+00 ,1.8995e+00 ,2.3700e+00 ,2.8962e+00 ,3.4805e+00 /) - kbo(:,29,12) = (/ & - &1.3323e+00 ,1.6945e+00 ,2.1064e+00 ,2.5664e+00 ,3.0755e+00 /) - kbo(:,30,12) = (/ & - &1.1951e+00 ,1.5124e+00 ,1.8729e+00 ,2.2771e+00 ,2.7207e+00 /) - kbo(:,31,12) = (/ & - &1.0723e+00 ,1.3520e+00 ,1.6707e+00 ,2.0245e+00 ,2.4134e+00 /) - kbo(:,32,12) = (/ & - &9.6436e-01 ,1.2123e+00 ,1.4924e+00 ,1.8027e+00 ,2.1488e+00 /) - kbo(:,33,12) = (/ & - &8.6875e-01 ,1.0883e+00 ,1.3350e+00 ,1.6111e+00 ,1.9241e+00 /) - kbo(:,34,12) = (/ & - &7.7744e-01 ,9.7074e-01 ,1.1897e+00 ,1.4382e+00 ,1.7216e+00 /) - kbo(:,35,12) = (/ & - &6.8108e-01 ,8.5081e-01 ,1.0447e+00 ,1.2673e+00 ,1.5231e+00 /) - kbo(:,36,12) = (/ & - &5.8251e-01 ,7.3036e-01 ,9.0117e-01 ,1.0985e+00 ,1.3262e+00 /) - kbo(:,37,12) = (/ & - &4.8147e-01 ,6.0751e-01 ,7.5487e-01 ,9.2714e-01 ,1.1257e+00 /) - kbo(:,38,12) = (/ & - &3.9749e-01 ,5.0467e-01 ,6.3154e-01 ,7.8124e-01 ,9.5438e-01 /) - kbo(:,39,12) = (/ & - &3.2829e-01 ,4.1995e-01 ,5.2901e-01 ,6.5861e-01 ,8.0986e-01 /) - kbo(:,40,12) = (/ & - &2.6399e-01 ,3.4098e-01 ,4.3333e-01 ,5.4338e-01 ,6.7333e-01 /) - kbo(:,41,12) = (/ & - &2.1121e-01 ,2.7554e-01 ,3.5340e-01 ,4.4699e-01 ,5.5819e-01 /) - kbo(:,42,12) = (/ & - &1.6875e-01 ,2.2242e-01 ,2.8790e-01 ,3.6718e-01 ,4.6248e-01 /) - kbo(:,43,12) = (/ & - &1.3242e-01 ,1.7649e-01 ,2.3091e-01 ,2.9729e-01 ,3.7802e-01 /) - kbo(:,44,12) = (/ & - &1.0268e-01 ,1.3874e-01 ,1.8350e-01 ,2.3873e-01 ,3.0615e-01 /) - kbo(:,45,12) = (/ & - &7.9157e-02 ,1.0857e-01 ,1.4543e-01 ,1.9132e-01 ,2.4703e-01 /) - kbo(:,46,12) = (/ & - &6.0349e-02 ,8.3945e-02 ,1.1412e-01 ,1.5200e-01 ,1.9783e-01 /) - kbo(:,47,12) = (/ & - &4.5026e-02 ,6.3638e-02 ,8.7982e-02 ,1.1888e-01 ,1.5630e-01 /) - kbo(:,48,12) = (/ & - &3.3400e-02 ,4.7982e-02 ,6.7403e-02 ,9.2494e-02 ,1.2316e-01 /) - kbo(:,49,12) = (/ & - &2.4633e-02 ,3.5960e-02 ,5.1349e-02 ,7.1624e-02 ,9.6517e-02 /) - kbo(:,50,12) = (/ & - &1.8199e-02 ,2.7006e-02 ,3.9181e-02 ,5.5479e-02 ,7.5913e-02 /) - kbo(:,51,12) = (/ & - &1.3397e-02 ,2.0251e-02 ,2.9827e-02 ,4.2894e-02 ,5.9697e-02 /) - kbo(:,52,12) = (/ & - &9.8047e-03 ,1.5092e-02 ,2.2613e-02 ,3.3016e-02 ,4.6660e-02 /) - kbo(:,53,12) = (/ & - &7.1233e-03 ,1.1184e-02 ,1.7048e-02 ,2.5317e-02 ,3.6316e-02 /) - kbo(:,54,12) = (/ & - &5.1904e-03 ,8.3108e-03 ,1.2872e-02 ,1.9462e-02 ,2.8342e-02 /) - kbo(:,55,12) = (/ & - &3.7706e-03 ,6.1523e-03 ,9.6915e-03 ,1.4909e-02 ,2.2083e-02 /) - kbo(:,56,12) = (/ & - &2.7214e-03 ,4.5313e-03 ,7.2581e-03 ,1.1344e-02 ,1.7112e-02 /) - kbo(:,57,12) = (/ & - &1.9679e-03 ,3.3305e-03 ,5.4024e-03 ,8.5896e-03 ,1.3181e-02 /) - kbo(:,58,12) = (/ & - &1.4312e-03 ,2.4830e-03 ,4.0992e-03 ,6.5707e-03 ,1.0148e-02 /) - kbo(:,59,12) = (/ & - &1.1735e-03 ,2.0715e-03 ,3.4672e-03 ,5.6187e-03 ,8.6747e-03 /) - kbo(:,13,13) = (/ & - &1.4965e+01 ,1.9939e+01 ,2.5957e+01 ,3.3111e+01 ,4.1486e+01 /) - kbo(:,14,13) = (/ & - &1.4891e+01 ,1.9752e+01 ,2.5714e+01 ,3.2877e+01 ,4.1201e+01 /) - kbo(:,15,13) = (/ & - &1.4632e+01 ,1.9464e+01 ,2.5349e+01 ,3.2327e+01 ,4.0239e+01 /) - kbo(:,16,13) = (/ & - &1.4224e+01 ,1.8920e+01 ,2.4612e+01 ,3.1240e+01 ,3.8764e+01 /) - kbo(:,17,13) = (/ & - &1.3596e+01 ,1.8071e+01 ,2.3399e+01 ,2.9603e+01 ,3.6827e+01 /) - kbo(:,18,13) = (/ & - &1.2765e+01 ,1.6956e+01 ,2.1940e+01 ,2.7801e+01 ,3.4621e+01 /) - kbo(:,19,13) = (/ & - &1.1845e+01 ,1.5708e+01 ,2.0355e+01 ,2.5828e+01 ,3.2043e+01 /) - kbo(:,20,13) = (/ & - &1.0881e+01 ,1.4480e+01 ,1.8761e+01 ,2.3735e+01 ,2.9355e+01 /) - kbo(:,21,13) = (/ & - &9.9388e+00 ,1.3181e+01 ,1.7060e+01 ,2.1504e+01 ,2.6520e+01 /) - kbo(:,22,13) = (/ & - &9.1395e+00 ,1.2102e+01 ,1.5540e+01 ,1.9513e+01 ,2.4061e+01 /) - kbo(:,23,13) = (/ & - &8.3446e+00 ,1.0972e+01 ,1.4055e+01 ,1.7623e+01 ,2.1727e+01 /) - kbo(:,24,13) = (/ & - &7.5591e+00 ,9.8924e+00 ,1.2651e+01 ,1.5869e+01 ,1.9520e+01 /) - kbo(:,25,13) = (/ & - &6.8143e+00 ,8.8970e+00 ,1.1359e+01 ,1.4218e+01 ,1.7424e+01 /) - kbo(:,26,13) = (/ & - &6.1698e+00 ,8.0210e+00 ,1.0220e+01 ,1.2729e+01 ,1.5532e+01 /) - kbo(:,27,13) = (/ & - &5.5728e+00 ,7.2306e+00 ,9.1639e+00 ,1.1369e+01 ,1.3833e+01 /) - kbo(:,28,13) = (/ & - &5.0450e+00 ,6.5146e+00 ,8.2221e+00 ,1.0165e+01 ,1.2320e+01 /) - kbo(:,29,13) = (/ & - &4.5820e+00 ,5.8856e+00 ,7.3962e+00 ,9.1032e+00 ,1.0999e+01 /) - kbo(:,30,13) = (/ & - &4.1619e+00 ,5.3258e+00 ,6.6581e+00 ,8.1640e+00 ,9.8348e+00 /) - kbo(:,31,13) = (/ & - &3.7986e+00 ,4.8336e+00 ,6.0169e+00 ,7.3498e+00 ,8.8372e+00 /) - kbo(:,32,13) = (/ & - &3.4747e+00 ,4.3988e+00 ,5.4556e+00 ,6.6497e+00 ,7.9860e+00 /) - kbo(:,33,13) = (/ & - &3.1806e+00 ,4.0134e+00 ,4.9644e+00 ,6.0424e+00 ,7.2445e+00 /) - kbo(:,34,13) = (/ & - &2.8901e+00 ,3.6383e+00 ,4.4979e+00 ,5.4687e+00 ,6.5591e+00 /) - kbo(:,35,13) = (/ & - &2.5701e+00 ,3.2361e+00 ,4.0067e+00 ,4.8794e+00 ,5.8576e+00 /) - kbo(:,36,13) = (/ & - &2.2323e+00 ,2.8199e+00 ,3.4998e+00 ,4.2791e+00 ,5.1575e+00 /) - kbo(:,37,13) = (/ & - &1.8736e+00 ,2.3827e+00 ,2.9738e+00 ,3.6564e+00 ,4.4360e+00 /) - kbo(:,38,13) = (/ & - &1.5728e+00 ,2.0148e+00 ,2.5311e+00 ,3.1303e+00 ,3.8226e+00 /) - kbo(:,39,13) = (/ & - &1.3237e+00 ,1.7072e+00 ,2.1603e+00 ,2.6914e+00 ,3.3072e+00 /) - kbo(:,40,13) = (/ & - &1.0847e+00 ,1.4132e+00 ,1.8059e+00 ,2.2702e+00 ,2.8143e+00 /) - kbo(:,41,13) = (/ & - &8.8581e-01 ,1.1668e+00 ,1.5064e+00 ,1.9133e+00 ,2.3935e+00 /) - kbo(:,42,13) = (/ & - &7.2374e-01 ,9.6367e-01 ,1.2577e+00 ,1.6144e+00 ,2.0403e+00 /) - kbo(:,43,13) = (/ & - &5.8123e-01 ,7.8367e-01 ,1.0353e+00 ,1.3440e+00 ,1.7177e+00 /) - kbo(:,44,13) = (/ & - &4.6198e-01 ,6.3195e-01 ,8.4539e-01 ,1.1117e+00 ,1.4376e+00 /) - kbo(:,45,13) = (/ & - &3.6584e-01 ,5.0822e-01 ,6.8932e-01 ,9.1864e-01 ,1.2028e+00 /) - kbo(:,46,13) = (/ & - &2.8644e-01 ,4.0442e-01 ,5.5738e-01 ,7.5306e-01 ,9.9957e-01 /) - kbo(:,47,13) = (/ & - &2.1956e-01 ,3.1585e-01 ,4.4303e-01 ,6.0814e-01 ,8.1897e-01 /) - kbo(:,48,13) = (/ & - &1.6674e-01 ,2.4495e-01 ,3.5019e-01 ,4.8911e-01 ,6.6858e-01 /) - kbo(:,49,13) = (/ & - &1.2553e-01 ,1.8856e-01 ,2.7515e-01 ,3.9103e-01 ,5.4421e-01 /) - kbo(:,50,13) = (/ & - &9.4665e-02 ,1.4544e-01 ,2.1677e-01 ,3.1374e-01 ,4.4454e-01 /) - kbo(:,51,13) = (/ & - &7.1191e-02 ,1.1194e-01 ,1.7036e-01 ,2.5168e-01 ,3.6277e-01 /) - kbo(:,52,13) = (/ & - &5.3052e-02 ,8.5501e-02 ,1.3304e-01 ,2.0087e-01 ,2.9517e-01 /) - kbo(:,53,13) = (/ & - &3.9132e-02 ,6.4715e-02 ,1.0314e-01 ,1.5924e-01 ,2.3881e-01 /) - kbo(:,54,13) = (/ & - &2.9043e-02 ,4.9273e-02 ,8.0552e-02 ,1.2707e-01 ,1.9473e-01 /) - kbo(:,55,13) = (/ & - &2.1525e-02 ,3.7498e-02 ,6.2875e-02 ,1.0150e-01 ,1.5889e-01 /) - kbo(:,56,13) = (/ & - &1.5833e-02 ,2.8322e-02 ,4.8765e-02 ,8.0651e-02 ,1.2905e-01 /) - kbo(:,57,13) = (/ & - &1.1526e-02 ,2.1205e-02 ,3.7510e-02 ,6.3651e-02 ,1.0431e-01 /) - kbo(:,58,13) = (/ & - &8.3779e-03 ,1.5855e-02 ,2.8776e-02 ,5.0260e-02 ,8.4604e-02 /) - kbo(:,59,13) = (/ & - &6.7851e-03 ,1.3119e-02 ,2.4293e-02 ,4.3321e-02 ,7.4531e-02 /) - kbo(:,13,14) = (/ & - &3.3721e+01 ,4.7002e+01 ,6.3302e+01 ,8.2327e+01 ,1.0363e+02 /) - kbo(:,14,14) = (/ & - &3.6911e+01 ,5.0874e+01 ,6.7511e+01 ,8.6774e+01 ,1.0872e+02 /) - kbo(:,15,14) = (/ & - &3.9962e+01 ,5.4067e+01 ,7.0780e+01 ,9.0289e+01 ,1.1312e+02 /) - kbo(:,16,14) = (/ & - &4.2338e+01 ,5.6683e+01 ,7.3332e+01 ,9.3095e+01 ,1.1626e+02 /) - kbo(:,17,14) = (/ & - &4.3916e+01 ,5.8217e+01 ,7.5023e+01 ,9.4925e+01 ,1.1793e+02 /) - kbo(:,18,14) = (/ & - &4.4576e+01 ,5.8845e+01 ,7.5702e+01 ,9.5514e+01 ,1.1830e+02 /) - kbo(:,19,14) = (/ & - &4.4328e+01 ,5.8466e+01 ,7.5196e+01 ,9.4726e+01 ,1.1748e+02 /) - kbo(:,20,14) = (/ & - &4.3798e+01 ,5.7631e+01 ,7.4169e+01 ,9.3518e+01 ,1.1584e+02 /) - kbo(:,21,14) = (/ & - &4.2847e+01 ,5.6429e+01 ,7.2627e+01 ,9.1567e+01 ,1.1316e+02 /) - kbo(:,22,14) = (/ & - &4.2232e+01 ,5.5705e+01 ,7.1694e+01 ,9.0118e+01 ,1.1101e+02 /) - kbo(:,23,14) = (/ & - &4.1301e+01 ,5.4371e+01 ,6.9797e+01 ,8.7676e+01 ,1.0772e+02 /) - kbo(:,24,14) = (/ & - &4.0036e+01 ,5.2522e+01 ,6.7301e+01 ,8.4384e+01 ,1.0387e+02 /) - kbo(:,25,14) = (/ & - &3.8535e+01 ,5.0451e+01 ,6.4572e+01 ,8.0891e+01 ,9.9814e+01 /) - kbo(:,26,14) = (/ & - &3.6990e+01 ,4.8476e+01 ,6.1896e+01 ,7.7604e+01 ,9.5632e+01 /) - kbo(:,27,14) = (/ & - &3.5439e+01 ,4.6349e+01 ,5.9201e+01 ,7.4166e+01 ,9.1237e+01 /) - kbo(:,28,14) = (/ & - &3.3799e+01 ,4.4185e+01 ,5.6512e+01 ,7.0702e+01 ,8.6988e+01 /) - kbo(:,29,14) = (/ & - &3.2225e+01 ,4.2139e+01 ,5.3908e+01 ,6.7503e+01 ,8.3109e+01 /) - kbo(:,30,14) = (/ & - &3.0748e+01 ,4.0218e+01 ,5.1459e+01 ,6.4621e+01 ,7.9612e+01 /) - kbo(:,31,14) = (/ & - &2.9425e+01 ,3.8499e+01 ,4.9352e+01 ,6.2118e+01 ,7.6745e+01 /) - kbo(:,32,14) = (/ & - &2.8242e+01 ,3.7039e+01 ,4.7648e+01 ,6.0092e+01 ,7.4536e+01 /) - kbo(:,33,14) = (/ & - &2.7263e+01 ,3.5883e+01 ,4.6290e+01 ,5.8616e+01 ,7.3025e+01 /) - kbo(:,34,14) = (/ & - &2.6245e+01 ,3.4728e+01 ,4.4963e+01 ,5.7211e+01 ,7.1614e+01 /) - kbo(:,35,14) = (/ & - &2.4792e+01 ,3.3010e+01 ,4.3016e+01 ,5.5082e+01 ,6.9332e+01 /) - kbo(:,36,14) = (/ & - &2.2854e+01 ,3.0681e+01 ,4.0335e+01 ,5.2076e+01 ,6.5971e+01 /) - kbo(:,37,14) = (/ & - &2.0215e+01 ,2.7477e+01 ,3.6561e+01 ,4.7698e+01 ,6.0990e+01 /) - kbo(:,38,14) = (/ & - &1.7901e+01 ,2.4657e+01 ,3.3200e+01 ,4.3777e+01 ,5.6518e+01 /) - kbo(:,39,14) = (/ & - &1.5916e+01 ,2.2229e+01 ,3.0285e+01 ,4.0352e+01 ,5.2594e+01 /) - kbo(:,40,14) = (/ & - &1.3687e+01 ,1.9453e+01 ,2.6865e+01 ,3.6273e+01 ,4.7801e+01 /) - kbo(:,41,14) = (/ & - &1.1706e+01 ,1.6957e+01 ,2.3775e+01 ,3.2529e+01 ,4.3345e+01 /) - kbo(:,42,14) = (/ & - &1.0015e+01 ,1.4777e+01 ,2.1056e+01 ,2.9181e+01 ,3.9336e+01 /) - kbo(:,43,14) = (/ & - &8.3602e+00 ,1.2595e+01 ,1.8289e+01 ,2.5700e+01 ,3.5139e+01 /) - kbo(:,44,14) = (/ & - &6.8842e+00 ,1.0588e+01 ,1.5702e+01 ,2.2421e+01 ,3.1090e+01 /) - kbo(:,45,14) = (/ & - &5.6505e+00 ,8.8697e+00 ,1.3428e+01 ,1.9525e+01 ,2.7445e+01 /) - kbo(:,46,14) = (/ & - &4.5669e+00 ,7.3282e+00 ,1.1331e+01 ,1.6810e+01 ,2.3987e+01 /) - kbo(:,47,14) = (/ & - &3.5910e+00 ,5.9011e+00 ,9.3338e+00 ,1.4162e+01 ,2.0590e+01 /) - kbo(:,48,14) = (/ & - &2.8046e+00 ,4.7156e+00 ,7.6334e+00 ,1.1848e+01 ,1.7577e+01 /) - kbo(:,49,14) = (/ & - &2.1748e+00 ,3.7383e+00 ,6.1955e+00 ,9.8356e+00 ,1.4909e+01 /) - kbo(:,50,14) = (/ & - &1.6968e+00 ,2.9824e+00 ,5.0552e+00 ,8.1970e+00 ,1.2692e+01 /) - kbo(:,51,14) = (/ & - &1.3228e+00 ,2.3793e+00 ,4.1196e+00 ,6.8244e+00 ,1.0784e+01 /) - kbo(:,52,14) = (/ & - &1.0245e+00 ,1.8865e+00 ,3.3355e+00 ,5.6478e+00 ,9.1028e+00 /) - kbo(:,53,14) = (/ & - &7.8728e-01 ,1.4840e+00 ,2.6816e+00 ,4.6391e+00 ,7.6341e+00 /) - kbo(:,54,14) = (/ & - &6.1018e-01 ,1.1815e+00 ,2.1812e+00 ,3.8474e+00 ,6.4584e+00 /) - kbo(:,55,14) = (/ & - &4.7246e-01 ,9.4354e-01 ,1.7799e+00 ,3.1974e+00 ,5.4714e+00 /) - kbo(:,56,14) = (/ & - &3.6268e-01 ,7.4897e-01 ,1.4435e+00 ,2.6438e+00 ,4.6110e+00 /) - kbo(:,57,14) = (/ & - &2.7617e-01 ,5.8818e-01 ,1.1638e+00 ,2.1763e+00 ,3.8632e+00 /) - kbo(:,58,14) = (/ & - &2.1026e-01 ,4.6281e-01 ,9.4334e-01 ,1.8002e+00 ,3.2506e+00 /) - kbo(:,59,14) = (/ & - &1.8510e-01 ,4.1578e-01 ,8.6198e-01 ,1.6609e+00 ,3.0231e+00 /) - kbo(:,13,15) = (/ & - &7.9497e+01 ,1.0631e+02 ,1.3951e+02 ,1.8076e+02 ,2.3534e+02 /) - kbo(:,14,15) = (/ & - &9.0008e+01 ,1.2102e+02 ,1.6070e+02 ,2.0844e+02 ,2.6891e+02 /) - kbo(:,15,15) = (/ & - &1.0142e+02 ,1.3773e+02 ,1.8424e+02 ,2.3942e+02 ,3.0596e+02 /) - kbo(:,16,15) = (/ & - &1.1444e+02 ,1.5595e+02 ,2.0951e+02 ,2.7261e+02 ,3.4599e+02 /) - kbo(:,17,15) = (/ & - &1.2871e+02 ,1.7599e+02 ,2.3611e+02 ,3.0737e+02 ,3.8849e+02 /) - kbo(:,18,15) = (/ & - &1.4444e+02 ,1.9729e+02 ,2.6334e+02 ,3.4204e+02 ,4.3103e+02 /) - kbo(:,19,15) = (/ & - &1.6121e+02 ,2.1913e+02 ,2.9095e+02 ,3.7632e+02 ,4.7170e+02 /) - kbo(:,20,15) = (/ & - &1.7880e+02 ,2.4196e+02 ,3.1956e+02 ,4.1027e+02 ,5.1312e+02 /) - kbo(:,21,15) = (/ & - &1.9582e+02 ,2.6409e+02 ,3.4675e+02 ,4.4276e+02 ,5.5264e+02 /) - kbo(:,22,15) = (/ & - &2.1631e+02 ,2.9018e+02 ,3.7825e+02 ,4.8067e+02 ,5.9651e+02 /) - kbo(:,23,15) = (/ & - &2.3693e+02 ,3.1638e+02 ,4.0986e+02 ,5.1726e+02 ,6.3877e+02 /) - kbo(:,24,15) = (/ & - &2.5815e+02 ,3.4252e+02 ,4.4099e+02 ,5.5343e+02 ,6.7985e+02 /) - kbo(:,25,15) = (/ & - &2.7940e+02 ,3.6830e+02 ,4.7141e+02 ,5.8880e+02 ,7.2036e+02 /) - kbo(:,26,15) = (/ & - &3.0147e+02 ,3.9459e+02 ,5.0246e+02 ,6.2482e+02 ,7.6276e+02 /) - kbo(:,27,15) = (/ & - &3.2318e+02 ,4.2065e+02 ,5.3313e+02 ,6.6087e+02 ,8.0529e+02 /) - kbo(:,28,15) = (/ & - &3.4508e+02 ,4.4657e+02 ,5.6379e+02 ,6.9725e+02 ,8.4792e+02 /) - kbo(:,29,15) = (/ & - &3.6777e+02 ,4.7381e+02 ,5.9626e+02 ,7.3554e+02 ,8.9251e+02 /) - kbo(:,30,15) = (/ & - &3.9103e+02 ,5.0185e+02 ,6.2997e+02 ,7.7485e+02 ,9.3819e+02 /) - kbo(:,31,15) = (/ & - &4.1560e+02 ,5.3166e+02 ,6.6523e+02 ,8.1615e+02 ,9.8559e+02 /) - kbo(:,32,15) = (/ & - &4.4194e+02 ,5.6341e+02 ,7.0244e+02 ,8.5957e+02 ,1.0345e+03 /) - kbo(:,33,15) = (/ & - &4.7004e+02 ,5.9690e+02 ,7.4161e+02 ,9.0465e+02 ,1.0849e+03 /) - kbo(:,34,15) = (/ & - &4.9560e+02 ,6.2720e+02 ,7.7702e+02 ,9.4526e+02 ,1.1301e+03 /) - kbo(:,35,15) = (/ & - &5.1020e+02 ,6.4498e+02 ,7.9798e+02 ,9.6921e+02 ,1.1571e+03 /) - kbo(:,36,15) = (/ & - &5.1153e+02 ,6.4732e+02 ,8.0146e+02 ,9.7374e+02 ,1.1629e+03 /) - kbo(:,37,15) = (/ & - &4.9411e+02 ,6.2784e+02 ,7.8019e+02 ,9.5084e+02 ,1.1384e+03 /) - kbo(:,38,15) = (/ & - &4.7607e+02 ,6.0738e+02 ,7.5785e+02 ,9.2634e+02 ,1.1122e+03 /) - kbo(:,39,15) = (/ & - &4.5860e+02 ,5.8729e+02 ,7.3571e+02 ,9.0212e+02 ,1.0835e+03 /) - kbo(:,40,15) = (/ & - &4.2990e+02 ,5.5385e+02 ,6.9803e+02 ,8.6039e+02 ,1.0406e+03 /) - kbo(:,41,15) = (/ & - &4.0087e+02 ,5.1992e+02 ,6.5921e+02 ,8.1732e+02 ,9.9347e+02 /) - kbo(:,42,15) = (/ & - &3.7298e+02 ,4.8724e+02 ,6.2146e+02 ,7.7537e+02 ,9.4699e+02 /) - kbo(:,43,15) = (/ & - &3.4053e+02 ,4.4909e+02 ,5.7712e+02 ,7.2520e+02 ,8.9154e+02 /) - kbo(:,44,15) = (/ & - &3.0753e+02 ,4.1020e+02 ,5.3144e+02 ,6.7302e+02 ,8.3358e+02 /) - kbo(:,45,15) = (/ & - &2.7654e+02 ,3.7323e+02 ,4.8808e+02 ,6.2285e+02 ,7.7741e+02 /) - kbo(:,46,15) = (/ & - &2.4531e+02 ,3.3622e+02 ,4.4437e+02 ,5.7189e+02 ,7.1969e+02 /) - kbo(:,47,15) = (/ & - &2.1302e+02 ,2.9761e+02 ,3.9853e+02 ,5.1809e+02 ,6.5783e+02 /) - kbo(:,48,15) = (/ & - &1.8355e+02 ,2.6147e+02 ,3.5562e+02 ,4.6754e+02 ,5.9909e+02 /) - kbo(:,49,15) = (/ & - &1.5701e+02 ,2.2791e+02 ,3.1569e+02 ,4.2021e+02 ,5.4365e+02 /) - kbo(:,50,15) = (/ & - &1.3468e+02 ,1.9893e+02 ,2.8071e+02 ,3.7858e+02 ,4.9472e+02 /) - kbo(:,51,15) = (/ & - &1.1526e+02 ,1.7331e+02 ,2.4880e+02 ,3.4068e+02 ,4.5000e+02 /) - kbo(:,52,15) = (/ & - &9.7991e+01 ,1.5012e+02 ,2.1915e+02 ,3.0532e+02 ,4.0798e+02 /) - kbo(:,53,15) = (/ & - &8.2622e+01 ,1.2914e+02 ,1.9179e+02 ,2.7194e+02 ,3.6825e+02 /) - kbo(:,54,15) = (/ & - &7.0111e+01 ,1.1182e+02 ,1.6882e+02 ,2.4316e+02 ,3.3408e+02 /) - kbo(:,55,15) = (/ & - &5.9451e+01 ,9.6898e+01 ,1.4869e+02 ,2.1737e+02 ,3.0323e+02 /) - kbo(:,56,15) = (/ & - &4.9982e+01 ,8.3446e+01 ,1.3033e+02 ,1.9338e+02 ,2.7397e+02 /) - kbo(:,57,15) = (/ & - &4.1621e+01 ,7.1384e+01 ,1.1363e+02 ,1.7127e+02 ,2.4633e+02 /) - kbo(:,58,15) = (/ & - &3.4650e+01 ,6.1162e+01 ,9.9313e+01 ,1.5200e+02 ,2.2168e+02 /) - kbo(:,59,15) = (/ & - &3.2067e+01 ,5.7347e+01 ,9.3961e+01 ,1.4472e+02 ,2.1224e+02 /) - kbo(:,13,16) = (/ & - &1.4292e+02 ,1.7830e+02 ,2.5018e+02 ,3.7037e+02 ,5.2070e+02 /) - kbo(:,14,16) = (/ & - &1.7229e+02 ,2.1935e+02 ,3.0306e+02 ,4.4388e+02 ,6.2020e+02 /) - kbo(:,15,16) = (/ & - &2.0873e+02 ,2.6972e+02 ,3.6756e+02 ,5.2712e+02 ,7.3393e+02 /) - kbo(:,16,16) = (/ & - &2.5439e+02 ,3.3072e+02 ,4.4570e+02 ,6.2226e+02 ,8.6517e+02 /) - kbo(:,17,16) = (/ & - &3.0902e+02 ,4.0145e+02 ,5.3763e+02 ,7.3415e+02 ,1.0082e+03 /) - kbo(:,18,16) = (/ & - &3.7239e+02 ,4.8343e+02 ,6.4354e+02 ,8.6401e+02 ,1.1697e+03 /) - kbo(:,19,16) = (/ & - &4.4344e+02 ,5.7744e+02 ,7.6245e+02 ,1.0126e+03 ,1.3544e+03 /) - kbo(:,20,16) = (/ & - &5.2591e+02 ,6.8473e+02 ,8.9843e+02 ,1.1879e+03 ,1.5662e+03 /) - kbo(:,21,16) = (/ & - &6.1975e+02 ,8.0389e+02 ,1.0527e+03 ,1.3850e+03 ,1.8066e+03 /) - kbo(:,22,16) = (/ & - &7.3890e+02 ,9.5515e+02 ,1.2474e+03 ,1.6302e+03 ,2.1130e+03 /) - kbo(:,23,16) = (/ & - &8.7503e+02 ,1.1289e+03 ,1.4705e+03 ,1.9102e+03 ,2.4554e+03 /) - kbo(:,24,16) = (/ & - &1.0277e+03 ,1.3283e+03 ,1.7241e+03 ,2.2247e+03 ,2.8319e+03 /) - kbo(:,25,16) = (/ & - &1.2034e+03 ,1.5543e+03 ,2.0073e+03 ,2.5693e+03 ,3.2356e+03 /) - kbo(:,26,16) = (/ & - &1.4042e+03 ,1.8088e+03 ,2.3218e+03 ,2.9229e+03 ,3.6714e+03 /) - kbo(:,27,16) = (/ & - &1.6234e+03 ,2.0833e+03 ,2.6544e+03 ,3.3382e+03 ,4.1196e+03 /) - kbo(:,28,16) = (/ & - &1.8563e+03 ,2.3730e+03 ,3.0002e+03 ,3.7388e+03 ,4.5730e+03 /) - kbo(:,29,16) = (/ & - &2.1060e+03 ,2.6609e+03 ,3.3576e+03 ,4.1487e+03 ,5.0295e+03 /) - kbo(:,30,16) = (/ & - &2.3669e+03 ,2.9882e+03 ,3.7190e+03 ,4.5573e+03 ,5.4823e+03 /) - kbo(:,31,16) = (/ & - &2.6382e+03 ,3.3079e+03 ,4.0851e+03 ,4.9669e+03 ,5.9326e+03 /) - kbo(:,32,16) = (/ & - &2.9162e+03 ,3.6311e+03 ,4.4535e+03 ,5.3188e+03 ,6.3774e+03 /) - kbo(:,33,16) = (/ & - &3.1977e+03 ,3.9546e+03 ,4.8182e+03 ,5.7741e+03 ,6.8136e+03 /) - kbo(:,34,16) = (/ & - &3.4540e+03 ,4.2467e+03 ,5.1445e+03 ,6.1305e+03 ,7.1986e+03 /) - kbo(:,35,16) = (/ & - &3.6329e+03 ,4.4502e+03 ,5.3698e+03 ,6.3759e+03 ,7.4635e+03 /) - kbo(:,36,16) = (/ & - &3.7190e+03 ,4.5470e+03 ,5.4751e+03 ,6.4918e+03 ,7.5883e+03 /) - kbo(:,37,16) = (/ & - &3.6766e+03 ,4.4979e+03 ,5.4194e+03 ,6.4326e+03 ,7.5253e+03 /) - kbo(:,38,16) = (/ & - &3.6175e+03 ,4.4311e+03 ,5.3444e+03 ,6.3514e+03 ,7.4384e+03 /) - kbo(:,39,16) = (/ & - &3.5511e+03 ,4.3577e+03 ,5.2603e+03 ,6.2593e+03 ,7.3011e+03 /) - kbo(:,40,16) = (/ & - &3.4038e+03 ,4.1899e+03 ,5.0730e+03 ,6.0546e+03 ,7.1202e+03 /) - kbo(:,41,16) = (/ & - &3.2449e+03 ,4.0090e+03 ,4.8718e+03 ,5.8306e+03 ,6.8794e+03 /) - kbo(:,42,16) = (/ & - &3.0878e+03 ,3.8270e+03 ,4.6679e+03 ,5.6043e+03 ,6.6342e+03 /) - kbo(:,43,16) = (/ & - &2.8974e+03 ,3.6038e+03 ,4.4171e+03 ,5.3250e+03 ,6.3295e+03 /) - kbo(:,44,16) = (/ & - &2.6963e+03 ,3.3670e+03 ,4.1477e+03 ,5.0263e+03 ,5.9993e+03 /) - kbo(:,45,16) = (/ & - &2.5060e+03 ,3.1396e+03 ,3.8862e+03 ,4.7337e+03 ,5.6766e+03 /) - kbo(:,46,16) = (/ & - &2.3164e+03 ,2.9079e+03 ,3.6158e+03 ,4.4299e+03 ,5.3398e+03 /) - kbo(:,47,16) = (/ & - &2.1174e+03 ,2.6621e+03 ,3.3261e+03 ,4.0998e+03 ,4.9727e+03 /) - kbo(:,48,16) = (/ & - &1.9329e+03 ,2.4347e+03 ,3.0518e+03 ,3.7834e+03 ,4.6186e+03 /) - kbo(:,49,16) = (/ & - &1.7595e+03 ,2.2251e+03 ,2.7943e+03 ,3.4811e+03 ,4.2776e+03 /) - kbo(:,50,16) = (/ & - &1.6082e+03 ,2.0431e+03 ,2.5690e+03 ,3.2137e+03 ,3.9707e+03 /) - kbo(:,51,16) = (/ & - &1.4710e+03 ,1.8773e+03 ,2.3673e+03 ,2.9684e+03 ,3.6854e+03 /) - kbo(:,52,16) = (/ & - &1.3426e+03 ,1.7222e+03 ,2.1800e+03 ,2.7371e+03 ,3.4141e+03 /) - kbo(:,53,16) = (/ & - &1.2224e+03 ,1.5765e+03 ,2.0045e+03 ,2.5219e+03 ,3.1562e+03 /) - kbo(:,54,16) = (/ & - &1.1196e+03 ,1.4516e+03 ,1.8541e+03 ,2.3387e+03 ,2.9325e+03 /) - kbo(:,55,16) = (/ & - &1.0267e+03 ,1.3387e+03 ,1.7175e+03 ,2.1745e+03 ,2.7302e+03 /) - kbo(:,56,16) = (/ & - &9.3987e+02 ,1.2326e+03 ,1.5894e+03 ,2.0202e+03 ,2.5405e+03 /) - kbo(:,57,16) = (/ & - &8.5792e+02 ,1.1333e+03 ,1.4474e+03 ,1.8742e+03 ,2.3631e+03 /) - kbo(:,58,16) = (/ & - &7.8443e+02 ,1.0443e+03 ,1.3605e+03 ,1.7435e+03 ,2.2055e+03 /) - kbo(:,59,16) = (/ & - &7.5656e+02 ,1.0103e+03 ,1.3189e+03 ,1.6936e+03 ,2.1455e+03 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &2.8549e-03 ,4.8281e-03 ,6.2570e-03 ,8.2731e-03 ,7.9056e-03 ,7.7840e-03 , & - &1.0115e-02 ,9.6599e-03 ,1.0153e-02 ,1.0921e-02 ,1.2408e-02 ,1.3496e-02 , & - &1.5059e-02 ,1.4636e-02 ,1.6483e-02 ,1.2394e-02 /) - forrefo(2,:) = (/ & - &3.0036e-03 ,5.1093e-03 ,5.7317e-03 ,9.2246e-03 ,8.9829e-03 ,8.6477e-03 , & - &1.1448e-02 ,1.0391e-02 ,1.0211e-02 ,1.2921e-02 ,1.2726e-02 ,1.2426e-02 , & - &1.4609e-02 ,1.5783e-02 ,1.6617e-02 ,1.6858e-02 /) - forrefo(3,:) = (/ & - &3.0771e-03 ,5.1206e-03 ,5.8426e-03 ,9.5727e-03 ,1.0338e-02 ,9.3737e-03 , & - &1.2805e-02 ,1.1272e-02 ,1.1353e-02 ,1.1837e-02 ,1.1550e-02 ,1.3020e-02 , & - &1.3536e-02 ,1.6226e-02 ,1.6039e-02 ,2.2578e-02 /) - forrefo(4,:) = (/ & - &3.3072e-03 ,5.0240e-03 ,6.8474e-03 ,8.2736e-03 ,8.6151e-03 ,8.6762e-03 , & - &1.1476e-02 ,1.0246e-02 ,1.0819e-02 ,1.0640e-02 ,1.0545e-02 ,1.0533e-02 , & - &1.0496e-02 ,1.0142e-02 ,9.7979e-03 ,1.5255e-02 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 7.25695e-01 , 6.53591e-01 , 5.88650e-01 , 5.30162e-01 , 4.77485e-01 , & - & 4.30042e-01 , 3.87313e-01 , 3.48830e-01 , 3.14170e-01 , 2.82954e-01 /) - selfrefo(:, 2) = (/ & - & 9.61996e-01 , 8.77853e-01 , 8.01070e-01 , 7.31003e-01 , 6.67064e-01 , & - & 6.08718e-01 , 5.55476e-01 , 5.06890e-01 , 4.62554e-01 , 4.22096e-01 /) - selfrefo(:, 3) = (/ & - & 9.72584e-01 , 9.02658e-01 , 8.37760e-01 , 7.77527e-01 , 7.21626e-01 , & - & 6.69743e-01 , 6.21591e-01 , 5.76900e-01 , 5.35423e-01 , 4.96927e-01 /) - selfrefo(:, 4) = (/ & - & 1.24790e+00 , 1.14353e+00 , 1.04790e+00 , 9.60263e-01 , 8.79956e-01 , & - & 8.06364e-01 , 7.38927e-01 , 6.77130e-01 , 6.20501e-01 , 5.68608e-01 /) - selfrefo(:, 5) = (/ & - & 1.23574e+00 , 1.12928e+00 , 1.03200e+00 , 9.43096e-01 , 8.61851e-01 , & - & 7.87605e-01 , 7.19755e-01 , 6.57750e-01 , 6.01087e-01 , 5.49305e-01 /) - selfrefo(:, 6) = (/ & - & 1.20921e+00 , 1.10660e+00 , 1.01270e+00 , 9.26766e-01 , 8.48124e-01 , & - & 7.76155e-01 , 7.10293e-01 , 6.50020e-01 , 5.94861e-01 , 5.44384e-01 /) - selfrefo(:, 7) = (/ & - & 1.38112e+00 , 1.26727e+00 , 1.16280e+00 , 1.06694e+00 , 9.78990e-01 , & - & 8.98287e-01 , 8.24236e-01 , 7.56290e-01 , 6.93945e-01 , 6.36739e-01 /) - selfrefo(:, 8) = (/ & - & 1.30321e+00 , 1.20127e+00 , 1.10730e+00 , 1.02068e+00 , 9.40840e-01 , & - & 8.67243e-01 , 7.99403e-01 , 7.36870e-01 , 6.79229e-01 , 6.26096e-01 /) - selfrefo(:, 9) = (/ & - & 1.26713e+00 , 1.17927e+00 , 1.09750e+00 , 1.02140e+00 , 9.50575e-01 , & - & 8.84662e-01 , 8.23319e-01 , 7.66230e-01 , 7.13099e-01 , 6.63653e-01 /) - selfrefo(:,10) = (/ & - & 1.49824e+00 , 1.37053e+00 , 1.25370e+00 , 1.14683e+00 , 1.04908e+00 , & - & 9.59651e-01 , 8.77849e-01 , 8.03020e-01 , 7.34569e-01 , 6.71954e-01 /) - selfrefo(:,11) = (/ & - & 1.44786e+00 , 1.34594e+00 , 1.25120e+00 , 1.16313e+00 , 1.08125e+00 , & - & 1.00514e+00 , 9.34392e-01 , 8.68620e-01 , 8.07477e-01 , 7.50639e-01 /) - selfrefo(:,12) = (/ & - & 1.38460e+00 , 1.30437e+00 , 1.22880e+00 , 1.15760e+00 , 1.09053e+00 , & - & 1.02735e+00 , 9.67825e-01 , 9.11750e-01 , 8.58924e-01 , 8.09159e-01 /) - selfrefo(:,13) = (/ & - & 1.51953e+00 , 1.42822e+00 , 1.34240e+00 , 1.26173e+00 , 1.18592e+00 , & - & 1.11465e+00 , 1.04768e+00 , 9.84720e-01 , 9.25548e-01 , 8.69932e-01 /) - selfrefo(:,14) = (/ & - & 1.62608e+00 , 1.51021e+00 , 1.40260e+00 , 1.30266e+00 , 1.20983e+00 , & - & 1.12363e+00 , 1.04356e+00 , 9.69200e-01 , 9.00138e-01 , 8.35998e-01 /) - selfrefo(:,15) = (/ & - & 1.65383e+00 , 1.54808e+00 , 1.44910e+00 , 1.35644e+00 , 1.26971e+00 , & - & 1.18853e+00 , 1.11254e+00 , 1.04140e+00 , 9.74813e-01 , 9.12484e-01 /) - selfrefo(:,16) = (/ & - & 1.78105e+00 , 1.61421e+00 , 1.46300e+00 , 1.32595e+00 , 1.20174e+00 , & - & 1.08917e+00 , 9.87141e-01 , 8.94670e-01 , 8.10861e-01 , 7.34904e-01 /) - - end subroutine lw_kgb02 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_03.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_03.F90 deleted file mode 100644 index 80ff34181..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_03.F90 +++ /dev/null @@ -1,12005 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb03 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg03, only : fracrefao, fracrefbo, kao, kbo, kao_mn2o, & - kbo_mn2o, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level: P=212.7250 mbar, T = 223.06 K - fracrefao(:, 1) = (/ & - & 1.6251e-01 ,1.5572e-01 ,1.4557e-01 ,1.3208e-01 ,1.1582e-01 ,9.6895e-02 , & - & 7.8720e-02 ,5.8462e-02 ,3.9631e-02 ,4.3001e-03 ,3.5555e-03 ,2.8101e-03 , & - & 2.0547e-03 ,1.3109e-03 ,4.9403e-04 ,6.9515e-05 /) - fracrefao(:, 2) = (/ & - & 1.6006e-01 ,1.5576e-01 ,1.4609e-01 ,1.3276e-01 ,1.1594e-01 ,9.7336e-02 , & - & 7.9035e-02 ,5.8696e-02 ,3.9723e-02 ,4.3001e-03 ,3.5555e-03 ,2.8101e-03 , & - & 2.0547e-03 ,1.3109e-03 ,4.9403e-04 ,6.9515e-05 /) - fracrefao(:, 3) = (/ & - & 1.5952e-01 ,1.5566e-01 ,1.4590e-01 ,1.3294e-01 ,1.1599e-01 ,9.7511e-02 , & - & 7.9127e-02 ,5.8888e-02 ,3.9874e-02 ,4.3001e-03 ,3.5555e-03 ,2.8102e-03 , & - & 2.0547e-03 ,1.3109e-03 ,4.9403e-04 ,6.9515e-05 /) - fracrefao(:, 4) = (/ & - & 1.5907e-01 ,1.5541e-01 ,1.4585e-01 ,1.3316e-01 ,1.1596e-01 ,9.7647e-02 , & - & 7.9243e-02 ,5.9024e-02 ,4.0028e-02 ,4.3112e-03 ,3.5555e-03 ,2.8102e-03 , & - & 2.0547e-03 ,1.3109e-03 ,4.9403e-04 ,6.9515e-05 /) - fracrefao(:, 5) = (/ & - & 1.5862e-01 ,1.5517e-01 ,1.4588e-01 ,1.3328e-01 ,1.1585e-01 ,9.7840e-02 , & - & 7.9364e-02 ,5.9174e-02 ,4.0160e-02 ,4.3403e-03 ,3.5900e-03 ,2.8102e-03 , & - & 2.0547e-03 ,1.3109e-03 ,4.9403e-04 ,6.9515e-05 /) - fracrefao(:, 6) = (/ & - & 1.5830e-01 ,1.5490e-01 ,1.4582e-01 ,1.3331e-01 ,1.1567e-01 ,9.8079e-02 , & - & 7.9510e-02 ,5.9369e-02 ,4.0326e-02 ,4.3343e-03 ,3.5908e-03 ,2.8527e-03 , & - & 2.0655e-03 ,1.3109e-03 ,4.9403e-04 ,6.9515e-05 /) - fracrefao(:, 7) = (/ & - & 1.5789e-01 ,1.5435e-01 ,1.4595e-01 ,1.3304e-01 ,1.1566e-01 ,9.8426e-02 , & - & 7.9704e-02 ,5.9618e-02 ,4.0520e-02 ,4.3812e-03 ,3.6147e-03 ,2.8395e-03 , & - & 2.1301e-03 ,1.3145e-03 ,4.9403e-04 ,6.9515e-05 /) - fracrefao(:, 8) = (/ & - & 1.5704e-01 ,1.5398e-01 ,1.4564e-01 ,1.3222e-01 ,1.1586e-01 ,9.9230e-02 , & - & 8.0011e-02 ,6.0149e-02 ,4.0790e-02 ,4.4253e-03 ,3.6534e-03 ,2.9191e-03 , & - & 2.1373e-03 ,1.3558e-03 ,5.1631e-04 ,7.8794e-05 /) - fracrefao(:, 9) = (/ & - & 1.5270e-01 ,1.5126e-01 ,1.4264e-01 ,1.3106e-01 ,1.1740e-01 ,1.0137e-01 , & - & 8.3057e-02 ,6.2282e-02 ,4.2301e-02 ,4.6486e-03 ,3.8159e-03 ,3.0472e-03 , & - & 2.2870e-03 ,1.4818e-03 ,5.6773e-04 ,7.8794e-05 /) - -! Planck fraction mapping level: p = 95.8 mbar, t = 215.7 k - fracrefbo(:, 1) = (/ & - & 1.6413e-01 ,1.5665e-01 ,1.4606e-01 ,1.3184e-01 ,1.1517e-01 ,9.6243e-02 , & - & 7.7982e-02 ,5.8165e-02 ,3.9311e-02 ,4.2586e-03 ,3.5189e-03 ,2.7793e-03 , & - & 2.0376e-03 ,1.2938e-03 ,4.8853e-04 ,6.8745e-05 /) - fracrefbo(:, 2) = (/ & - & 1.6254e-01 ,1.5674e-01 ,1.4652e-01 ,1.3221e-01 ,1.1535e-01 ,9.6439e-02 , & - & 7.8155e-02 ,5.8254e-02 ,3.9343e-02 ,4.2586e-03 ,3.5189e-03 ,2.7793e-03 , & - & 2.0376e-03 ,1.2938e-03 ,4.8853e-04 ,6.8745e-05 /) - fracrefbo(:, 3) = (/ & - & 1.6177e-01 ,1.5664e-01 ,1.4669e-01 ,1.3242e-01 ,1.1541e-01 ,9.6536e-02 , & - & 7.8257e-02 ,5.8387e-02 ,3.9431e-02 ,4.2587e-03 ,3.5189e-03 ,2.7793e-03 , & - & 2.0376e-03 ,1.2938e-03 ,4.8853e-04 ,6.8745e-05 /) - fracrefbo(:, 4) = (/ & - & 1.6077e-01 ,1.5679e-01 ,1.4648e-01 ,1.3273e-01 ,1.1546e-01 ,9.6779e-02 , & - & 7.8371e-02 ,5.8546e-02 ,3.9611e-02 ,4.2772e-03 ,3.5190e-03 ,2.7793e-03 , & - & 2.0376e-03 ,1.2938e-03 ,4.8853e-04 ,6.8745e-05 /) - fracrefbo(:, 5) = (/ & - & 1.6067e-01 ,1.5608e-01 ,1.4247e-01 ,1.2881e-01 ,1.1449e-01 ,9.8802e-02 , & - & 8.0828e-02 ,6.0977e-02 ,4.1494e-02 ,4.5116e-03 ,3.7290e-03 ,2.9460e-03 , & - & 2.1948e-03 ,1.3778e-03 ,5.4552e-04 ,7.9969e-05 /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kao(:, 1, 1, 1) = (/ & - &3.1886e-07 ,1.8969e-04 ,4.1239e-04 ,6.4667e-04 ,8.5292e-04 ,1.1836e-03 , & - &1.4006e-03 ,1.5411e-03 ,8.3293e-04 /) - kao(:, 2, 1, 1) = (/ & - &4.3208e-07 ,2.2286e-04 ,4.4627e-04 ,7.2330e-04 ,9.3694e-04 ,1.2337e-03 , & - &1.5482e-03 ,1.7773e-03 ,1.0038e-03 /) - kao(:, 3, 1, 1) = (/ & - &5.8834e-07 ,2.6143e-04 ,5.0441e-04 ,7.7424e-04 ,1.0403e-03 ,1.3331e-03 , & - &1.7908e-03 ,2.0845e-03 ,1.1619e-03 /) - kao(:, 4, 1, 1) = (/ & - &7.9926e-07 ,3.0532e-04 ,5.7655e-04 ,8.4667e-04 ,1.1189e-03 ,1.4849e-03 , & - &1.7793e-03 ,2.3392e-03 ,1.2758e-03 /) - kao(:, 5, 1, 1) = (/ & - &1.0726e-06 ,3.5559e-04 ,6.6472e-04 ,9.5586e-04 ,1.2287e-03 ,1.5629e-03 , & - &1.9684e-03 ,2.6521e-03 ,1.4781e-03 /) - kao(:, 1, 2, 1) = (/ & - &3.7301e-07 ,1.5101e-04 ,3.0613e-04 ,5.2444e-04 ,6.6785e-04 ,9.0347e-04 , & - &1.1047e-03 ,1.2717e-03 ,6.0920e-04 /) - kao(:, 2, 2, 1) = (/ & - &5.0464e-07 ,1.7900e-04 ,3.4606e-04 ,5.4112e-04 ,7.7706e-04 ,9.3108e-04 , & - &1.2909e-03 ,1.4671e-03 ,7.3637e-04 /) - kao(:, 3, 2, 1) = (/ & - &6.9109e-07 ,2.1210e-04 ,4.0308e-04 ,5.9670e-04 ,8.3572e-04 ,1.0539e-03 , & - &1.2895e-03 ,1.6281e-03 ,8.3917e-04 /) - kao(:, 4, 2, 1) = (/ & - &9.4449e-07 ,2.4973e-04 ,4.6862e-04 ,6.7662e-04 ,9.0294e-04 ,1.1388e-03 , & - &1.4230e-03 ,1.8780e-03 ,9.5236e-04 /) - kao(:, 5, 2, 1) = (/ & - &1.2785e-06 ,2.9283e-04 ,5.4407e-04 ,7.7522e-04 ,1.0053e-03 ,1.2254e-03 , & - &1.5592e-03 ,1.9031e-03 ,1.1164e-03 /) - kao(:, 1, 3, 1) = (/ & - &5.5921e-07 ,1.1924e-04 ,2.2509e-04 ,3.4318e-04 ,5.2308e-04 ,6.5616e-04 , & - &8.5230e-04 ,1.0069e-03 ,4.1268e-04 /) - kao(:, 2, 3, 1) = (/ & - &7.5055e-07 ,1.4483e-04 ,2.6805e-04 ,3.9345e-04 ,5.4245e-04 ,7.6863e-04 , & - &8.6931e-04 ,1.1266e-03 ,5.0829e-04 /) - kao(:, 3, 3, 1) = (/ & - &1.0282e-06 ,1.7418e-04 ,3.1823e-04 ,4.6052e-04 ,6.0646e-04 ,8.0699e-04 , & - &9.9010e-04 ,1.2822e-03 ,5.8353e-04 /) - kao(:, 4, 3, 1) = (/ & - &1.4165e-06 ,2.0776e-04 ,3.7640e-04 ,5.3896e-04 ,6.9736e-04 ,8.7108e-04 , & - &1.0948e-03 ,1.3035e-03 ,6.8429e-04 /) - kao(:, 5, 3, 1) = (/ & - &1.9344e-06 ,2.4744e-04 ,4.4263e-04 ,6.2983e-04 ,8.0258e-04 ,9.7503e-04 , & - &1.1651e-03 ,1.4497e-03 ,8.1461e-04 /) - kao(:, 1, 4, 1) = (/ & - &8.5732e-07 ,9.6467e-05 ,1.7424e-04 ,2.5100e-04 ,3.3065e-04 ,4.8724e-04 , & - &6.0299e-04 ,7.8582e-04 ,2.9808e-04 /) - kao(:, 2, 4, 1) = (/ & - &1.1308e-06 ,1.1826e-04 ,2.1303e-04 ,3.0261e-04 ,3.9186e-04 ,5.0849e-04 , & - &7.0322e-04 ,8.2275e-04 ,3.5462e-04 /) - kao(:, 3, 4, 1) = (/ & - &1.5409e-06 ,1.4413e-04 ,2.5818e-04 ,3.6263e-04 ,4.6469e-04 ,5.7592e-04 , & - &7.3867e-04 ,8.7496e-04 ,4.2760e-04 /) - kao(:, 4, 4, 1) = (/ & - &2.1300e-06 ,1.7563e-04 ,3.1026e-04 ,4.3228e-04 ,5.4859e-04 ,6.6681e-04 , & - &7.9581e-04 ,9.9932e-04 ,5.0892e-04 /) - kao(:, 5, 4, 1) = (/ & - &2.9291e-06 ,2.1272e-04 ,3.6864e-04 ,5.1165e-04 ,6.4677e-04 ,7.7619e-04 , & - &8.9814e-04 ,1.0897e-03 ,6.0064e-04 /) - kao(:, 1, 5, 1) = (/ & - &1.2415e-06 ,7.8277e-05 ,1.3778e-04 ,1.9284e-04 ,2.4740e-04 ,3.0422e-04 , & - &4.5046e-04 ,5.5097e-04 ,2.1557e-04 /) - kao(:, 2, 5, 1) = (/ & - &1.5909e-06 ,9.7521e-05 ,1.7125e-04 ,2.3852e-04 ,3.0221e-04 ,3.6563e-04 , & - &4.6525e-04 ,6.1320e-04 ,2.5987e-04 /) - kao(:, 3, 5, 1) = (/ & - &2.1423e-06 ,1.2163e-04 ,2.0881e-04 ,2.9129e-04 ,3.6625e-04 ,4.3908e-04 , & - &5.2524e-04 ,7.1422e-04 ,3.1853e-04 /) - kao(:, 4, 5, 1) = (/ & - &2.9538e-06 ,1.5072e-04 ,2.5416e-04 ,3.5255e-04 ,4.4063e-04 ,5.2156e-04 , & - &6.0639e-04 ,7.4820e-04 ,3.8686e-04 /) - kao(:, 5, 5, 1) = (/ & - &4.0808e-06 ,1.8492e-04 ,3.0793e-04 ,4.2155e-04 ,5.2630e-04 ,6.1892e-04 , & - &7.0820e-04 ,8.0049e-04 ,4.6257e-04 /) - kao(:, 1, 6, 1) = (/ & - &1.7276e-06 ,6.3066e-05 ,1.0985e-04 ,1.5043e-04 ,1.8792e-04 ,2.2547e-04 , & - &2.7278e-04 ,4.0029e-04 ,1.5625e-04 /) - kao(:, 2, 6, 1) = (/ & - &2.1189e-06 ,8.0476e-05 ,1.3664e-04 ,1.8841e-04 ,2.3492e-04 ,2.7888e-04 , & - &3.2236e-04 ,4.6057e-04 ,1.9653e-04 /) - kao(:, 3, 6, 1) = (/ & - &2.7917e-06 ,1.0200e-04 ,1.6954e-04 ,2.3141e-04 ,2.8961e-04 ,3.4143e-04 , & - &3.9023e-04 ,4.8352e-04 ,2.3947e-04 /) - kao(:, 4, 6, 1) = (/ & - &3.8168e-06 ,1.2811e-04 ,2.1054e-04 ,2.8370e-04 ,3.5217e-04 ,4.1385e-04 , & - &4.6780e-04 ,5.3253e-04 ,2.9421e-04 /) - kao(:, 5, 6, 1) = (/ & - &5.2799e-06 ,1.5893e-04 ,2.5910e-04 ,3.4517e-04 ,4.2434e-04 ,4.9842e-04 , & - &5.5728e-04 ,6.1195e-04 ,3.4978e-04 /) - kao(:, 1, 7, 1) = (/ & - &2.6141e-06 ,5.1662e-05 ,8.7249e-05 ,1.2099e-04 ,1.4820e-04 ,1.7386e-04 , & - &1.9973e-04 ,2.8823e-04 ,1.2462e-04 /) - kao(:, 2, 7, 1) = (/ & - &3.0451e-06 ,6.6903e-05 ,1.1099e-04 ,1.5079e-04 ,1.8779e-04 ,2.1746e-04 , & - &2.4532e-04 ,2.8791e-04 ,1.5686e-04 /) - kao(:, 3, 7, 1) = (/ & - &3.8821e-06 ,8.6234e-05 ,1.4155e-04 ,1.8817e-04 ,2.3079e-04 ,2.7142e-04 , & - &3.0362e-04 ,3.3424e-04 ,1.9309e-04 /) - kao(:, 4, 7, 1) = (/ & - &5.2168e-06 ,1.0990e-04 ,1.7879e-04 ,2.3488e-04 ,2.8585e-04 ,3.3138e-04 , & - &3.7038e-04 ,4.0029e-04 ,2.2841e-04 /) - kao(:, 5, 7, 1) = (/ & - &7.1879e-06 ,1.3891e-04 ,2.2275e-04 ,2.9114e-04 ,3.5068e-04 ,4.0298e-04 , & - &4.4929e-04 ,4.7758e-04 ,2.7333e-04 /) - kao(:, 1, 8, 1) = (/ & - &4.8895e-06 ,4.6642e-05 ,7.3353e-05 ,9.8230e-05 ,1.2186e-04 ,1.4040e-04 , & - &1.5472e-04 ,1.7158e-04 ,1.2116e-04 /) - kao(:, 2, 8, 1) = (/ & - &5.4032e-06 ,6.0479e-05 ,9.5191e-05 ,1.2606e-04 ,1.5260e-04 ,1.7774e-04 , & - &1.9641e-04 ,2.0965e-04 ,1.4264e-04 /) - kao(:, 3, 8, 1) = (/ & - &6.5997e-06 ,7.8772e-05 ,1.2353e-04 ,1.6212e-04 ,1.9427e-04 ,2.2313e-04 , & - &2.4636e-04 ,2.5986e-04 ,1.7188e-04 /) - kao(:, 4, 8, 1) = (/ & - &8.6548e-06 ,1.0205e-04 ,1.5903e-04 ,2.0720e-04 ,2.4581e-04 ,2.7759e-04 , & - &3.0314e-04 ,3.2037e-04 ,2.0203e-04 /) - kao(:, 5, 8, 1) = (/ & - &1.1792e-05 ,1.3168e-04 ,2.0236e-04 ,2.6066e-04 ,3.0759e-04 ,3.4497e-04 , & - &3.7389e-04 ,3.8968e-04 ,2.4008e-04 /) - kao(:, 1, 9, 1) = (/ & - &1.7686e-05 ,6.2925e-05 ,8.5198e-05 ,1.0213e-04 ,1.1543e-04 ,1.2780e-04 , & - &1.3994e-04 ,1.4164e-04 ,1.0306e-04 /) - kao(:, 2, 9, 1) = (/ & - &1.8629e-05 ,7.9145e-05 ,1.0839e-04 ,1.3177e-04 ,1.5002e-04 ,1.6481e-04 , & - &1.7578e-04 ,1.8331e-04 ,1.3692e-04 /) - kao(:, 3, 9, 1) = (/ & - &2.1655e-05 ,1.0259e-04 ,1.4047e-04 ,1.7139e-04 ,1.9624e-04 ,2.1451e-04 , & - &2.2698e-04 ,2.2863e-04 ,1.7350e-04 /) - kao(:, 4, 9, 1) = (/ & - &2.7461e-05 ,1.3575e-04 ,1.8409e-04 ,2.2366e-04 ,2.5484e-04 ,2.7815e-04 , & - &2.9152e-04 ,2.8719e-04 ,2.1425e-04 /) - kao(:, 5, 9, 1) = (/ & - &3.6727e-05 ,1.8189e-04 ,2.4258e-04 ,2.9022e-04 ,3.2921e-04 ,3.5617e-04 , & - &3.6983e-04 ,3.5850e-04 ,2.5866e-04 /) - kao(:, 1,10, 1) = (/ & - &7.2663e-05 ,1.2805e-04 ,1.4610e-04 ,1.5523e-04 ,1.5931e-04 ,1.5768e-04 , & - &1.4950e-04 ,1.3593e-04 ,1.1207e-04 /) - kao(:, 2,10, 1) = (/ & - &7.4019e-05 ,1.5108e-04 ,1.7625e-04 ,1.9103e-04 ,1.9729e-04 ,1.9817e-04 , & - &1.9144e-04 ,1.7408e-04 ,1.5499e-04 /) - kao(:, 3,10, 1) = (/ & - &8.2403e-05 ,1.8863e-04 ,2.2414e-04 ,2.4536e-04 ,2.5373e-04 ,2.5549e-04 , & - &2.4939e-04 ,2.2811e-04 ,2.0551e-04 /) - kao(:, 4,10, 1) = (/ & - &1.0093e-04 ,2.4723e-04 ,2.9626e-04 ,3.2296e-04 ,3.3348e-04 ,3.3522e-04 , & - &3.2677e-04 ,2.9826e-04 ,2.6379e-04 /) - kao(:, 5,10, 1) = (/ & - &1.3200e-04 ,3.3367e-04 ,4.0011e-04 ,4.3332e-04 ,4.4493e-04 ,4.4261e-04 , & - &4.2611e-04 ,3.8581e-04 ,3.2912e-04 /) - kao(:, 1,11, 1) = (/ & - &1.0393e-04 ,1.5840e-04 ,1.7203e-04 ,1.7648e-04 ,1.7454e-04 ,1.6667e-04 , & - &1.5308e-04 ,1.2939e-04 ,1.0993e-04 /) - kao(:, 2,11, 1) = (/ & - &1.0623e-04 ,1.8473e-04 ,2.0510e-04 ,2.1424e-04 ,2.1529e-04 ,2.0732e-04 , & - &1.9332e-04 ,1.6735e-04 ,1.5034e-04 /) - kao(:, 3,11, 1) = (/ & - &1.1880e-04 ,2.2821e-04 ,2.5935e-04 ,2.7369e-04 ,2.7717e-04 ,2.6782e-04 , & - &2.5002e-04 ,2.1993e-04 ,1.9822e-04 /) - kao(:, 4,11, 1) = (/ & - &1.4561e-04 ,2.9665e-04 ,3.4318e-04 ,3.6287e-04 ,3.6642e-04 ,3.5386e-04 , & - &3.2944e-04 ,2.8811e-04 ,2.5319e-04 /) - kao(:, 5,11, 1) = (/ & - &1.9054e-04 ,3.9809e-04 ,4.6486e-04 ,4.9198e-04 ,4.9373e-04 ,4.7462e-04 , & - &4.3676e-04 ,3.7664e-04 ,3.1222e-04 /) - kao(:, 1,12, 1) = (/ & - &1.1070e-04 ,1.5948e-04 ,1.6935e-04 ,1.7123e-04 ,1.6742e-04 ,1.5636e-04 , & - &1.4108e-04 ,1.1641e-04 ,9.3609e-05 /) - kao(:, 2,12, 1) = (/ & - &1.1350e-04 ,1.8499e-04 ,2.0156e-04 ,2.0690e-04 ,2.0458e-04 ,1.9450e-04 , & - &1.7678e-04 ,1.4985e-04 ,1.2839e-04 /) - kao(:, 3,12, 1) = (/ & - &1.2733e-04 ,2.2735e-04 ,2.5402e-04 ,2.6442e-04 ,2.6348e-04 ,2.5189e-04 , & - &2.2992e-04 ,1.9655e-04 ,1.6928e-04 /) - kao(:, 4,12, 1) = (/ & - &1.5627e-04 ,2.9456e-04 ,3.3549e-04 ,3.5142e-04 ,3.5055e-04 ,3.3475e-04 , & - &3.0473e-04 ,2.5892e-04 ,2.1653e-04 /) - kao(:, 5,12, 1) = (/ & - &2.0441e-04 ,3.9462e-04 ,4.5461e-04 ,4.7637e-04 ,4.7456e-04 ,4.5071e-04 , & - &4.0805e-04 ,3.4047e-04 ,2.6779e-04 /) - kao(:, 1,13, 1) = (/ & - &9.4796e-05 ,1.3566e-04 ,1.4361e-04 ,1.4479e-04 ,1.4118e-04 ,1.3147e-04 , & - &1.1819e-04 ,9.7170e-05 ,7.6303e-05 /) - kao(:, 2,13, 1) = (/ & - &9.7387e-05 ,1.5742e-04 ,1.7115e-04 ,1.7535e-04 ,1.7300e-04 ,1.6383e-04 , & - &1.4824e-04 ,1.2513e-04 ,1.0469e-04 /) - kao(:, 3,13, 1) = (/ & - &1.0948e-04 ,1.9354e-04 ,2.1601e-04 ,2.2450e-04 ,2.2321e-04 ,2.1287e-04 , & - &1.9350e-04 ,1.6433e-04 ,1.3819e-04 /) - kao(:, 4,13, 1) = (/ & - &1.3445e-04 ,2.5083e-04 ,2.8549e-04 ,2.9847e-04 ,2.9725e-04 ,2.8343e-04 , & - &2.5763e-04 ,2.1720e-04 ,1.7601e-04 /) - kao(:, 5,13, 1) = (/ & - &1.7573e-04 ,3.3657e-04 ,3.8710e-04 ,4.0560e-04 ,4.0357e-04 ,3.8257e-04 , & - &3.4653e-04 ,2.8685e-04 ,2.1855e-04 /) - kao(:, 1, 1, 2) = (/ & - &1.3073e-06 ,4.2059e-04 ,6.7561e-04 ,8.6609e-04 ,1.3520e-03 ,1.6085e-03 , & - &2.0908e-03 ,3.5262e-03 ,1.7846e-03 /) - kao(:, 2, 1, 2) = (/ & - &1.8197e-06 ,5.0768e-04 ,8.4110e-04 ,1.0238e-03 ,1.3765e-03 ,1.9239e-03 , & - &2.2997e-03 ,3.5756e-03 ,2.0767e-03 /) - kao(:, 3, 1, 2) = (/ & - &2.5084e-06 ,6.1290e-04 ,1.0202e-03 ,1.2693e-03 ,1.5516e-03 ,2.0078e-03 , & - &2.5461e-03 ,3.4922e-03 ,2.2668e-03 /) - kao(:, 4, 1, 2) = (/ & - &3.4224e-06 ,7.3392e-04 ,1.2104e-03 ,1.5455e-03 ,1.8866e-03 ,2.1966e-03 , & - &2.9624e-03 ,3.8708e-03 ,2.5909e-03 /) - kao(:, 5, 1, 2) = (/ & - &4.5990e-06 ,8.7030e-04 ,1.4253e-03 ,1.8395e-03 ,2.2537e-03 ,2.6314e-03 , & - &3.0779e-03 ,4.2442e-03 ,2.9663e-03 /) - kao(:, 1, 2, 2) = (/ & - &1.5178e-06 ,3.4269e-04 ,6.0748e-04 ,7.1986e-04 ,9.3674e-04 ,1.3121e-03 , & - &1.6102e-03 ,2.4069e-03 ,1.3247e-03 /) - kao(:, 2, 2, 2) = (/ & - &2.1299e-06 ,4.2524e-04 ,7.3703e-04 ,9.3776e-04 ,1.0398e-03 ,1.4367e-03 , & - &1.7353e-03 ,2.4061e-03 ,1.5243e-03 /) - kao(:, 3, 2, 2) = (/ & - &2.9612e-06 ,5.1753e-04 ,8.8626e-04 ,1.1500e-03 ,1.2896e-03 ,1.5263e-03 , & - &2.0876e-03 ,2.6389e-03 ,1.6966e-03 /) - kao(:, 4, 2, 2) = (/ & - &4.0897e-06 ,6.2596e-04 ,1.0597e-03 ,1.3843e-03 ,1.5850e-03 ,1.8098e-03 , & - &2.1268e-03 ,2.8656e-03 ,1.9584e-03 /) - kao(:, 5, 2, 2) = (/ & - &5.5687e-06 ,7.4555e-04 ,1.2600e-03 ,1.6347e-03 ,1.9070e-03 ,2.1914e-03 , & - &2.4166e-03 ,3.3007e-03 ,2.2669e-03 /) - kao(:, 1, 3, 2) = (/ & - &2.2234e-06 ,2.7444e-04 ,5.0085e-04 ,6.9534e-04 ,7.7629e-04 ,8.8854e-04 , & - &1.1917e-03 ,1.5373e-03 ,9.1595e-04 /) - kao(:, 2, 3, 2) = (/ & - &3.1317e-06 ,3.4263e-04 ,6.2257e-04 ,8.4941e-04 ,1.0127e-03 ,1.0143e-03 , & - &1.3362e-03 ,1.6583e-03 ,1.0393e-03 /) - kao(:, 3, 3, 2) = (/ & - &4.4080e-06 ,4.2422e-04 ,7.6347e-04 ,1.0279e-03 ,1.2387e-03 ,1.2967e-03 , & - &1.3932e-03 ,1.8408e-03 ,1.2152e-03 /) - kao(:, 4, 3, 2) = (/ & - &6.1670e-06 ,5.2130e-04 ,9.2425e-04 ,1.2412e-03 ,1.4849e-03 ,1.6022e-03 , & - &1.6415e-03 ,2.0935e-03 ,1.4201e-03 /) - kao(:, 5, 3, 2) = (/ & - &8.5264e-06 ,6.3507e-04 ,1.1072e-03 ,1.4843e-03 ,1.7747e-03 ,1.9362e-03 , & - &2.0233e-03 ,2.1572e-03 ,1.6619e-03 /) - kao(:, 1, 4, 2) = (/ & - &3.2835e-06 ,2.2111e-04 ,3.9199e-04 ,5.4782e-04 ,7.1479e-04 ,7.6154e-04 , & - &8.2345e-04 ,1.0888e-03 ,6.1749e-04 /) - kao(:, 2, 4, 2) = (/ & - &4.6177e-06 ,2.8239e-04 ,4.9392e-04 ,6.9299e-04 ,8.7089e-04 ,1.0035e-03 , & - &9.4113e-04 ,1.2776e-03 ,7.2212e-04 /) - kao(:, 3, 4, 2) = (/ & - &6.5470e-06 ,3.5777e-04 ,6.1550e-04 ,8.6066e-04 ,1.0686e-03 ,1.2181e-03 , & - &1.2204e-03 ,1.3196e-03 ,8.5856e-04 /) - kao(:, 4, 4, 2) = (/ & - &9.2896e-06 ,4.4826e-04 ,7.6106e-04 ,1.0547e-03 ,1.2989e-03 ,1.4671e-03 , & - &1.5260e-03 ,1.4238e-03 ,1.0237e-03 /) - kao(:, 5, 4, 2) = (/ & - &1.3071e-05 ,5.5733e-04 ,9.3625e-04 ,1.2821e-03 ,1.5559e-03 ,1.7516e-03 , & - &1.8364e-03 ,1.7115e-03 ,1.2165e-03 /) - kao(:, 1, 5, 2) = (/ & - &4.5002e-06 ,1.7869e-04 ,3.1112e-04 ,4.2906e-04 ,5.3570e-04 ,6.6321e-04 , & - &6.6606e-04 ,8.0088e-04 ,4.3845e-04 /) - kao(:, 2, 5, 2) = (/ & - &6.2709e-06 ,2.3526e-04 ,3.9946e-04 ,5.4822e-04 ,6.8446e-04 ,8.1650e-04 , & - &8.9841e-04 ,8.3661e-04 ,5.3250e-04 /) - kao(:, 3, 5, 2) = (/ & - &8.9215e-06 ,3.0515e-04 ,5.1007e-04 ,6.9053e-04 ,8.5739e-04 ,1.0092e-03 , & - &1.0997e-03 ,9.5118e-04 ,6.4123e-04 /) - kao(:, 4, 5, 2) = (/ & - &1.2814e-05 ,3.9188e-04 ,6.4418e-04 ,8.6120e-04 ,1.0618e-03 ,1.2430e-03 , & - &1.3327e-03 ,1.2360e-03 ,7.6830e-04 /) - kao(:, 5, 5, 2) = (/ & - &1.8376e-05 ,4.9865e-04 ,8.0644e-04 ,1.0670e-03 ,1.3038e-03 ,1.5043e-03 , & - &1.6049e-03 ,1.5432e-03 ,9.1314e-04 /) - kao(:, 1, 6, 2) = (/ & - &5.7892e-06 ,1.4663e-04 ,2.4065e-04 ,3.3064e-04 ,4.1135e-04 ,4.8169e-04 , & - &5.8379e-04 ,5.7710e-04 ,3.1814e-04 /) - kao(:, 2, 6, 2) = (/ & - &7.9690e-06 ,1.9590e-04 ,3.2041e-04 ,4.3222e-04 ,5.3334e-04 ,6.2056e-04 , & - &7.1751e-04 ,6.6758e-04 ,3.9067e-04 /) - kao(:, 3, 6, 2) = (/ & - &1.1323e-05 ,2.6004e-04 ,4.1914e-04 ,5.5855e-04 ,6.8140e-04 ,7.8989e-04 , & - &8.8852e-04 ,8.8775e-04 ,4.8310e-04 /) - kao(:, 4, 6, 2) = (/ & - &1.6358e-05 ,3.4053e-04 ,5.4044e-04 ,7.1305e-04 ,8.6088e-04 ,9.8765e-04 , & - &1.0974e-03 ,1.1000e-03 ,5.7948e-04 /) - kao(:, 5, 6, 2) = (/ & - &2.3775e-05 ,4.4089e-04 ,6.9082e-04 ,9.0148e-04 ,1.0783e-03 ,1.2236e-03 , & - &1.3409e-03 ,1.3317e-03 ,6.9627e-04 /) - kao(:, 1, 7, 2) = (/ & - &8.0091e-06 ,1.2605e-04 ,1.9716e-04 ,2.5635e-04 ,3.1697e-04 ,3.6727e-04 , & - &4.1064e-04 ,4.3234e-04 ,2.4150e-04 /) - kao(:, 2, 7, 2) = (/ & - &1.0776e-05 ,1.7034e-04 ,2.6589e-04 ,3.4715e-04 ,4.2062e-04 ,4.8583e-04 , & - &5.3757e-04 ,5.9551e-04 ,2.9725e-04 /) - kao(:, 3, 7, 2) = (/ & - &1.5189e-05 ,2.2959e-04 ,3.5476e-04 ,4.5964e-04 ,5.5426e-04 ,6.3049e-04 , & - &6.9328e-04 ,7.3902e-04 ,3.6802e-04 /) - kao(:, 4, 7, 2) = (/ & - &2.2007e-05 ,3.0657e-04 ,4.6692e-04 ,5.9983e-04 ,7.1322e-04 ,8.0913e-04 , & - &8.7898e-04 ,9.1398e-04 ,4.5358e-04 /) - kao(:, 5, 7, 2) = (/ & - &3.2377e-05 ,4.0363e-04 ,6.0728e-04 ,7.7481e-04 ,9.1139e-04 ,1.0238e-03 , & - &1.0988e-03 ,1.1244e-03 ,5.4283e-04 /) - kao(:, 1, 8, 2) = (/ & - &1.3646e-05 ,1.1718e-04 ,1.7739e-04 ,2.2327e-04 ,2.5768e-04 ,2.9227e-04 , & - &3.2168e-04 ,3.3945e-04 ,2.0435e-04 /) - kao(:, 2, 8, 2) = (/ & - &1.7797e-05 ,1.5982e-04 ,2.4160e-04 ,3.0351e-04 ,3.5441e-04 ,3.9644e-04 , & - &4.3035e-04 ,4.4547e-04 ,2.6027e-04 /) - kao(:, 3, 8, 2) = (/ & - &2.4726e-05 ,2.1816e-04 ,3.2650e-04 ,4.0893e-04 ,4.7479e-04 ,5.2784e-04 , & - &5.6990e-04 ,5.8414e-04 ,3.2342e-04 /) - kao(:, 4, 8, 2) = (/ & - &3.5739e-05 ,2.9719e-04 ,4.3967e-04 ,5.4459e-04 ,6.2961e-04 ,6.9435e-04 , & - &7.4016e-04 ,7.4703e-04 ,3.9508e-04 /) - kao(:, 5, 8, 2) = (/ & - &5.2993e-05 ,4.0333e-04 ,5.8500e-04 ,7.1845e-04 ,8.2505e-04 ,9.0108e-04 , & - &9.4665e-04 ,9.4587e-04 ,4.7280e-04 /) - kao(:, 1, 9, 2) = (/ & - &4.5250e-05 ,1.4686e-04 ,2.0230e-04 ,2.4828e-04 ,2.8036e-04 ,2.9801e-04 , & - &2.9921e-04 ,2.8815e-04 ,2.4577e-04 /) - kao(:, 2, 9, 2) = (/ & - &5.6592e-05 ,2.0110e-04 ,2.8181e-04 ,3.4405e-04 ,3.8167e-04 ,4.0863e-04 , & - &4.1514e-04 ,3.9115e-04 ,3.2441e-04 /) - kao(:, 3, 9, 2) = (/ & - &7.7017e-05 ,2.8027e-04 ,3.9316e-04 ,4.7187e-04 ,5.1925e-04 ,5.5669e-04 , & - &5.6308e-04 ,5.3177e-04 ,4.1003e-04 /) - kao(:, 4, 9, 2) = (/ & - &1.1025e-04 ,3.9471e-04 ,5.4612e-04 ,6.4824e-04 ,7.1055e-04 ,7.5245e-04 , & - &7.5557e-04 ,7.0714e-04 ,5.0547e-04 /) - kao(:, 5, 9, 2) = (/ & - &1.6377e-04 ,5.5266e-04 ,7.5260e-04 ,8.8463e-04 ,9.6217e-04 ,1.0084e-03 , & - &1.0010e-03 ,9.2831e-04 ,5.9992e-04 /) - kao(:, 1,10, 2) = (/ & - &1.7408e-04 ,2.8709e-04 ,3.2527e-04 ,3.4835e-04 ,3.5894e-04 ,3.5919e-04 , & - &3.5263e-04 ,3.1484e-04 ,2.7571e-04 /) - kao(:, 2,10, 2) = (/ & - &2.0961e-04 ,3.6816e-04 ,4.3143e-04 ,4.6881e-04 ,4.9659e-04 ,5.0147e-04 , & - &4.9272e-04 ,4.3339e-04 ,3.8859e-04 /) - kao(:, 3,10, 2) = (/ & - &2.7776e-04 ,5.0192e-04 ,5.9603e-04 ,6.5181e-04 ,6.9357e-04 ,7.0312e-04 , & - &6.7864e-04 ,5.9253e-04 ,5.1467e-04 /) - kao(:, 4,10, 2) = (/ & - &3.9424e-04 ,7.1243e-04 ,8.4498e-04 ,9.2473e-04 ,9.7484e-04 ,9.8216e-04 , & - &9.3644e-04 ,8.0724e-04 ,6.5632e-04 /) - kao(:, 5,10, 2) = (/ & - &5.8403e-04 ,1.0226e-03 ,1.2011e-03 ,1.3089e-03 ,1.3689e-03 ,1.3686e-03 , & - &1.2847e-03 ,1.0916e-03 ,8.0745e-04 /) - kao(:, 1,11, 2) = (/ & - &2.5093e-04 ,3.5665e-04 ,3.8701e-04 ,3.9631e-04 ,3.9372e-04 ,3.8144e-04 , & - &3.5373e-04 ,3.1423e-04 ,3.0104e-04 /) - kao(:, 2,11, 2) = (/ & - &3.0561e-04 ,4.5397e-04 ,5.0521e-04 ,5.3017e-04 ,5.3366e-04 ,5.2816e-04 , & - &4.9620e-04 ,4.3115e-04 ,4.1409e-04 /) - kao(:, 3,11, 2) = (/ & - &4.0935e-04 ,6.2197e-04 ,6.9995e-04 ,7.3845e-04 ,7.4646e-04 ,7.4054e-04 , & - &7.0035e-04 ,5.8985e-04 ,5.4448e-04 /) - kao(:, 4,11, 2) = (/ & - &5.8584e-04 ,8.9030e-04 ,1.0016e-03 ,1.0495e-03 ,1.0645e-03 ,1.0487e-03 , & - &9.8184e-04 ,8.1405e-04 ,6.7706e-04 /) - kao(:, 5,11, 2) = (/ & - &8.7589e-04 ,1.3050e-03 ,1.4464e-03 ,1.5053e-03 ,1.5175e-03 ,1.4779e-03 , & - &1.3691e-03 ,1.1154e-03 ,8.3668e-04 /) - kao(:, 1,12, 2) = (/ & - &2.6981e-04 ,3.6165e-04 ,3.8393e-04 ,3.8621e-04 ,3.7773e-04 ,3.5863e-04 , & - &3.2723e-04 ,2.8136e-04 ,2.7937e-04 /) - kao(:, 2,12, 2) = (/ & - &3.3189e-04 ,4.6172e-04 ,5.0224e-04 ,5.1546e-04 ,5.1134e-04 ,4.9419e-04 , & - &4.6078e-04 ,3.9503e-04 ,3.8165e-04 /) - kao(:, 3,12, 2) = (/ & - &4.4945e-04 ,6.3614e-04 ,7.0015e-04 ,7.2309e-04 ,7.1840e-04 ,6.9882e-04 , & - &6.5062e-04 ,5.4697e-04 ,5.0283e-04 /) - kao(:, 4,12, 2) = (/ & - &6.4949e-04 ,9.2459e-04 ,1.0096e-03 ,1.0404e-03 ,1.0301e-03 ,9.9704e-04 , & - &9.2064e-04 ,7.5726e-04 ,6.3715e-04 /) - kao(:, 5,12, 2) = (/ & - &9.7948e-04 ,1.3695e-03 ,1.4755e-03 ,1.5098e-03 ,1.4823e-03 ,1.4173e-03 , & - &1.2918e-03 ,1.0472e-03 ,7.8120e-04 /) - kao(:, 1,13, 2) = (/ & - &2.3347e-04 ,3.0984e-04 ,3.2740e-04 ,3.2836e-04 ,3.1964e-04 ,3.0307e-04 , & - &2.7562e-04 ,2.3564e-04 ,2.3674e-04 /) - kao(:, 2,13, 2) = (/ & - &2.9027e-04 ,3.9857e-04 ,4.3170e-04 ,4.4144e-04 ,4.3482e-04 ,4.1943e-04 , & - &3.8943e-04 ,3.3194e-04 ,3.2365e-04 /) - kao(:, 3,13, 2) = (/ & - &3.9524e-04 ,5.5472e-04 ,6.0676e-04 ,6.2319e-04 ,6.1597e-04 ,5.9710e-04 , & - &5.5278e-04 ,4.6213e-04 ,4.2552e-04 /) - kao(:, 4,13, 2) = (/ & - &5.7486e-04 ,8.1393e-04 ,8.8216e-04 ,9.0454e-04 ,8.9206e-04 ,8.5566e-04 , & - &7.8499e-04 ,6.4422e-04 ,5.3476e-04 /) - kao(:, 5,13, 2) = (/ & - &8.7246e-04 ,1.2122e-03 ,1.2989e-03 ,1.3221e-03 ,1.2955e-03 ,1.2260e-03 , & - &1.1071e-03 ,8.9174e-04 ,6.5849e-04 /) - kao(:, 1, 1, 3) = (/ & - &5.2546e-06 ,7.1189e-04 ,1.0882e-03 ,1.5407e-03 ,1.6694e-03 ,2.0484e-03 , & - &2.8523e-03 ,4.1696e-03 ,2.5067e-03 /) - kao(:, 2, 1, 3) = (/ & - &7.7092e-06 ,8.7649e-04 ,1.3426e-03 ,1.8360e-03 ,2.2345e-03 ,2.3018e-03 , & - &2.9500e-03 ,4.8247e-03 ,2.8678e-03 /) - kao(:, 3, 1, 3) = (/ & - &1.1096e-05 ,1.0569e-03 ,1.6133e-03 ,2.2145e-03 ,2.7396e-03 ,3.0159e-03 , & - &3.2179e-03 ,5.1113e-03 ,3.6024e-03 /) - kao(:, 4, 1, 3) = (/ & - &1.5736e-05 ,1.2601e-03 ,1.9380e-03 ,2.6510e-03 ,3.2424e-03 ,3.7893e-03 , & - &3.9992e-03 ,5.0794e-03 ,4.4455e-03 /) - kao(:, 5, 1, 3) = (/ & - &2.1768e-05 ,1.4881e-03 ,2.3013e-03 ,3.1272e-03 ,3.8505e-03 ,4.4934e-03 , & - &5.1336e-03 ,5.8796e-03 ,5.3642e-03 /) - kao(:, 1, 2, 3) = (/ & - &6.4189e-06 ,6.4436e-04 ,9.4389e-04 ,1.2239e-03 ,1.5862e-03 ,1.5943e-03 , & - &2.1761e-03 ,2.9768e-03 ,1.8319e-03 /) - kao(:, 2, 2, 3) = (/ & - &9.5139e-06 ,7.9863e-04 ,1.1748e-03 ,1.5104e-03 ,1.9094e-03 ,2.0876e-03 , & - &2.2172e-03 ,3.3690e-03 ,2.2079e-03 /) - kao(:, 3, 2, 3) = (/ & - &1.3920e-05 ,9.7738e-04 ,1.4337e-03 ,1.8422e-03 ,2.2904e-03 ,2.6664e-03 , & - &2.6655e-03 ,3.3322e-03 ,2.7973e-03 /) - kao(:, 4, 2, 3) = (/ & - &1.9815e-05 ,1.1745e-03 ,1.7255e-03 ,2.2150e-03 ,2.7638e-03 ,3.1950e-03 , & - &3.5144e-03 ,3.6601e-03 ,3.4291e-03 /) - kao(:, 5, 2, 3) = (/ & - &2.7567e-05 ,1.3937e-03 ,2.0553e-03 ,2.6513e-03 ,3.2736e-03 ,3.7952e-03 , & - &4.2837e-03 ,4.4922e-03 ,4.1160e-03 /) - kao(:, 1, 3, 3) = (/ & - &9.6319e-06 ,5.9789e-04 ,9.0789e-04 ,1.1077e-03 ,1.2525e-03 ,1.5120e-03 , & - &1.4959e-03 ,2.1276e-03 ,1.3456e-03 /) - kao(:, 2, 3, 3) = (/ & - &1.4531e-05 ,7.5640e-04 ,1.1412e-03 ,1.3989e-03 ,1.5703e-03 ,1.7944e-03 , & - &1.9386e-03 ,2.1696e-03 ,1.7109e-03 /) - kao(:, 3, 3, 3) = (/ & - &2.1457e-05 ,9.3610e-04 ,1.4115e-03 ,1.7272e-03 ,1.9369e-03 ,2.2003e-03 , & - &2.5012e-03 ,2.3167e-03 ,2.1265e-03 /) - kao(:, 4, 3, 3) = (/ & - &3.1112e-05 ,1.1388e-03 ,1.7200e-03 ,2.0901e-03 ,2.3590e-03 ,2.6864e-03 , & - &2.9768e-03 ,2.9114e-03 ,2.5844e-03 /) - kao(:, 5, 3, 3) = (/ & - &4.3735e-05 ,1.3632e-03 ,2.0663e-03 ,2.5031e-03 ,2.8359e-03 ,3.2124e-03 , & - &3.5643e-03 ,3.8138e-03 ,3.0766e-03 /) - kao(:, 1, 4, 3) = (/ & - &1.4332e-05 ,5.0481e-04 ,8.3885e-04 ,1.0386e-03 ,1.1528e-03 ,1.2153e-03 , & - &1.3236e-03 ,1.3236e-03 ,9.9177e-04 /) - kao(:, 2, 4, 3) = (/ & - &2.1745e-05 ,6.5797e-04 ,1.0771e-03 ,1.3282e-03 ,1.4860e-03 ,1.5492e-03 , & - &1.6188e-03 ,1.5468e-03 ,1.2757e-03 /) - kao(:, 3, 4, 3) = (/ & - &3.2667e-05 ,8.3614e-04 ,1.3479e-03 ,1.6673e-03 ,1.8582e-03 ,1.9416e-03 , & - &2.0036e-03 ,2.1024e-03 ,1.5754e-03 /) - kao(:, 4, 4, 3) = (/ & - &4.8093e-05 ,1.0472e-03 ,1.6541e-03 ,2.0462e-03 ,2.2910e-03 ,2.3927e-03 , & - &2.4569e-03 ,2.6010e-03 ,1.9210e-03 /) - kao(:, 5, 4, 3) = (/ & - &6.8610e-05 ,1.2933e-03 ,1.9995e-03 ,2.4752e-03 ,2.7858e-03 ,2.9107e-03 , & - &2.9847e-03 ,3.0912e-03 ,2.3242e-03 /) - kao(:, 1, 5, 3) = (/ & - &1.9357e-05 ,4.3188e-04 ,6.9760e-04 ,9.1881e-04 ,1.0444e-03 ,1.0861e-03 , & - &1.0808e-03 ,1.0528e-03 ,7.6202e-04 /) - kao(:, 2, 5, 3) = (/ & - &2.9833e-05 ,5.6548e-04 ,9.1440e-04 ,1.2005e-03 ,1.3604e-03 ,1.4256e-03 , & - &1.3945e-03 ,1.3872e-03 ,9.4421e-04 /) - kao(:, 3, 5, 3) = (/ & - &4.5578e-05 ,7.2730e-04 ,1.1762e-03 ,1.5269e-03 ,1.7329e-03 ,1.8168e-03 , & - &1.7751e-03 ,1.6935e-03 ,1.1652e-03 /) - kao(:, 4, 5, 3) = (/ & - &6.7915e-05 ,9.2227e-04 ,1.4839e-03 ,1.8964e-03 ,2.1540e-03 ,2.2580e-03 , & - &2.2284e-03 ,2.0768e-03 ,1.4187e-03 /) - kao(:, 5, 5, 3) = (/ & - &9.8232e-05 ,1.1614e-03 ,1.8417e-03 ,2.3162e-03 ,2.6333e-03 ,2.7678e-03 , & - &2.7278e-03 ,2.5343e-03 ,1.7135e-03 /) - kao(:, 1, 6, 3) = (/ & - &2.4087e-05 ,3.6023e-04 ,5.7620e-04 ,7.4775e-04 ,8.9007e-04 ,9.5429e-04 , & - &9.1764e-04 ,8.4636e-04 ,5.7959e-04 /) - kao(:, 2, 6, 3) = (/ & - &3.7139e-05 ,4.8232e-04 ,7.6564e-04 ,9.9341e-04 ,1.1781e-03 ,1.2665e-03 , & - &1.2330e-03 ,1.0918e-03 ,7.2688e-04 /) - kao(:, 3, 6, 3) = (/ & - &5.7836e-05 ,6.3457e-04 ,9.9482e-04 ,1.2902e-03 ,1.5235e-03 ,1.6284e-03 , & - &1.5983e-03 ,1.4005e-03 ,8.9110e-04 /) - kao(:, 4, 6, 3) = (/ & - &8.7827e-05 ,8.3029e-04 ,1.2776e-03 ,1.6365e-03 ,1.9214e-03 ,2.0538e-03 , & - &2.0181e-03 ,1.7675e-03 ,1.0912e-03 /) - kao(:, 5, 6, 3) = (/ & - &1.2951e-04 ,1.0725e-03 ,1.6206e-03 ,2.0554e-03 ,2.3768e-03 ,2.5369e-03 , & - &2.5004e-03 ,2.2047e-03 ,1.3222e-03 /) - kao(:, 1, 7, 3) = (/ & - &3.1610e-05 ,3.0736e-04 ,4.8099e-04 ,6.1875e-04 ,7.2425e-04 ,8.0714e-04 , & - &8.2765e-04 ,7.1397e-04 ,4.2627e-04 /) - kao(:, 2, 7, 3) = (/ & - &4.8734e-05 ,4.2352e-04 ,6.5473e-04 ,8.3909e-04 ,9.8036e-04 ,1.0919e-03 , & - &1.1195e-03 ,9.5621e-04 ,5.5009e-04 /) - kao(:, 3, 7, 3) = (/ & - &7.5777e-05 ,5.7189e-04 ,8.6982e-04 ,1.1085e-03 ,1.2941e-03 ,1.4332e-03 , & - &1.4595e-03 ,1.2666e-03 ,6.8930e-04 /) - kao(:, 4, 7, 3) = (/ & - &1.1758e-04 ,7.6635e-04 ,1.1428e-03 ,1.4431e-03 ,1.6723e-03 ,1.8359e-03 , & - &1.8555e-03 ,1.6214e-03 ,8.4503e-04 /) - kao(:, 5, 7, 3) = (/ & - &1.7719e-04 ,1.0176e-03 ,1.4892e-03 ,1.8529e-03 ,2.1284e-03 ,2.3074e-03 , & - &2.3192e-03 ,2.0277e-03 ,1.0269e-03 /) - kao(:, 1, 8, 3) = (/ & - &5.0016e-05 ,3.0350e-04 ,4.3130e-04 ,5.4117e-04 ,6.2740e-04 ,6.8603e-04 , & - &7.1531e-04 ,6.7206e-04 ,3.4534e-04 /) - kao(:, 2, 8, 3) = (/ & - &7.6305e-05 ,4.2110e-04 ,6.0202e-04 ,7.5262e-04 ,8.6967e-04 ,9.4998e-04 , & - &9.8539e-04 ,9.2682e-04 ,4.4615e-04 /) - kao(:, 3, 8, 3) = (/ & - &1.1911e-04 ,5.8304e-04 ,8.2209e-04 ,1.0213e-03 ,1.1738e-03 ,1.2774e-03 , & - &1.3191e-03 ,1.2307e-03 ,5.5948e-04 /) - kao(:, 4, 8, 3) = (/ & - &1.8649e-04 ,7.9923e-04 ,1.1102e-03 ,1.3602e-03 ,1.5530e-03 ,1.6805e-03 , & - &1.7288e-03 ,1.5932e-03 ,6.8951e-04 /) - kao(:, 5, 8, 3) = (/ & - &2.8664e-04 ,1.0891e-03 ,1.4894e-03 ,1.7956e-03 ,2.0238e-03 ,2.1795e-03 , & - &2.2144e-03 ,2.0105e-03 ,8.3262e-04 /) - kao(:, 1, 9, 3) = (/ & - &1.5293e-04 ,4.6711e-04 ,5.9429e-04 ,6.7143e-04 ,7.0270e-04 ,7.2578e-04 , & - &7.2031e-04 ,6.7023e-04 ,4.6857e-04 /) - kao(:, 2, 9, 3) = (/ & - &2.2743e-04 ,6.5435e-04 ,8.3260e-04 ,9.2221e-04 ,9.8476e-04 ,1.0204e-03 , & - &1.0235e-03 ,9.4955e-04 ,5.6708e-04 /) - kao(:, 3, 9, 3) = (/ & - &3.5601e-04 ,9.4855e-04 ,1.1602e-03 ,1.2875e-03 ,1.3640e-03 ,1.4067e-03 , & - &1.4070e-03 ,1.3032e-03 ,6.4714e-04 /) - kao(:, 4, 9, 3) = (/ & - &5.5911e-04 ,1.3606e-03 ,1.6272e-03 ,1.7782e-03 ,1.8671e-03 ,1.9159e-03 , & - &1.8899e-03 ,1.7374e-03 ,7.3858e-04 /) - kao(:, 5, 9, 3) = (/ & - &8.7081e-04 ,1.9356e-03 ,2.2669e-03 ,2.4429e-03 ,2.5498e-03 ,2.5834e-03 , & - &2.5150e-03 ,2.2763e-03 ,8.7139e-04 /) - kao(:, 1,10, 3) = (/ & - &5.5025e-04 ,9.1638e-04 ,1.0524e-03 ,1.1151e-03 ,1.1173e-03 ,1.0672e-03 , & - &9.7649e-04 ,7.7345e-04 ,6.5002e-04 /) - kao(:, 2,10, 3) = (/ & - &7.9126e-04 ,1.3002e-03 ,1.4860e-03 ,1.5598e-03 ,1.5441e-03 ,1.5015e-03 , & - &1.3399e-03 ,1.0909e-03 ,8.3499e-04 /) - kao(:, 3,10, 3) = (/ & - &1.2237e-03 ,1.9321e-03 ,2.1587e-03 ,2.2526e-03 ,2.2235e-03 ,2.1040e-03 , & - &1.8744e-03 ,1.5238e-03 ,1.0298e-03 /) - kao(:, 4,10, 3) = (/ & - &1.9295e-03 ,2.9068e-03 ,3.1939e-03 ,3.2884e-03 ,3.1828e-03 ,2.9739e-03 , & - &2.6100e-03 ,2.0967e-03 ,1.2389e-03 /) - kao(:, 5,10, 3) = (/ & - &3.0420e-03 ,4.3560e-03 ,4.6911e-03 ,4.7252e-03 ,4.5246e-03 ,4.1666e-03 , & - &3.6292e-03 ,2.8608e-03 ,1.4677e-03 /) - kao(:, 1,11, 3) = (/ & - &8.0124e-04 ,1.1600e-03 ,1.2577e-03 ,1.2913e-03 ,1.2758e-03 ,1.1948e-03 , & - &1.0607e-03 ,8.2464e-04 ,6.8579e-04 /) - kao(:, 2,11, 3) = (/ & - &1.1673e-03 ,1.6642e-03 ,1.8003e-03 ,1.8395e-03 ,1.7987e-03 ,1.6759e-03 , & - &1.4977e-03 ,1.1597e-03 ,8.7714e-04 /) - kao(:, 3,11, 3) = (/ & - &1.8208e-03 ,2.5072e-03 ,2.6736e-03 ,2.6935e-03 ,2.6255e-03 ,2.4196e-03 , & - &2.1072e-03 ,1.6350e-03 ,1.1070e-03 /) - kao(:, 4,11, 3) = (/ & - &2.8872e-03 ,3.8298e-03 ,4.0028e-03 ,4.0090e-03 ,3.8400e-03 ,3.4828e-03 , & - &2.9827e-03 ,2.2825e-03 ,1.3306e-03 /) - kao(:, 5,11, 3) = (/ & - &4.5758e-03 ,5.8214e-03 ,5.9954e-03 ,5.8806e-03 ,5.5457e-03 ,4.9671e-03 , & - &4.1979e-03 ,3.1537e-03 ,1.5896e-03 /) - kao(:, 1,12, 3) = (/ & - &8.6957e-04 ,1.1918e-03 ,1.2597e-03 ,1.2688e-03 ,1.2375e-03 ,1.1513e-03 , & - &1.0110e-03 ,7.8620e-04 ,6.6607e-04 /) - kao(:, 2,12, 3) = (/ & - &1.2841e-03 ,1.7262e-03 ,1.8227e-03 ,1.8310e-03 ,1.7702e-03 ,1.6364e-03 , & - &1.4379e-03 ,1.0990e-03 ,8.6314e-04 /) - kao(:, 3,12, 3) = (/ & - &2.0183e-03 ,2.6229e-03 ,2.7286e-03 ,2.7135e-03 ,2.6112e-03 ,2.3987e-03 , & - &2.0472e-03 ,1.5496e-03 ,1.0681e-03 /) - kao(:, 4,12, 3) = (/ & - &3.2212e-03 ,4.0504e-03 ,4.1472e-03 ,4.0702e-03 ,3.8583e-03 ,3.4748e-03 , & - &2.9262e-03 ,2.1914e-03 ,1.2601e-03 /) - kao(:, 5,12, 3) = (/ & - &5.1511e-03 ,6.2196e-03 ,6.2591e-03 ,6.0402e-03 ,5.6302e-03 ,4.9946e-03 , & - &4.1641e-03 ,3.0581e-03 ,1.4932e-03 /) - kao(:, 1,13, 3) = (/ & - &7.5570e-04 ,1.0245e-03 ,1.0772e-03 ,1.0860e-03 ,1.0524e-03 ,9.7557e-04 , & - &8.5610e-04 ,6.6220e-04 ,5.7960e-04 /) - kao(:, 2,13, 3) = (/ & - &1.1289e-03 ,1.4995e-03 ,1.5736e-03 ,1.5761e-03 ,1.5191e-03 ,1.4055e-03 , & - &1.2213e-03 ,9.3390e-04 ,7.5295e-04 /) - kao(:, 3,13, 3) = (/ & - &1.7891e-03 ,2.2942e-03 ,2.3709e-03 ,2.3513e-03 ,2.2646e-03 ,2.0616e-03 , & - &1.7545e-03 ,1.3283e-03 ,9.2119e-04 /) - kao(:, 4,13, 3) = (/ & - &2.8872e-03 ,3.5675e-03 ,3.6372e-03 ,3.5628e-03 ,3.3407e-03 ,3.0031e-03 , & - &2.5207e-03 ,1.8863e-03 ,1.0888e-03 /) - kao(:, 5,13, 3) = (/ & - &4.6509e-03 ,5.5327e-03 ,5.4994e-03 ,5.2862e-03 ,4.8993e-03 ,4.3534e-03 , & - &3.6092e-03 ,2.6447e-03 ,1.2715e-03 /) - kao(:, 1, 1, 4) = (/ & - &2.0197e-05 ,1.1667e-03 ,1.8703e-03 ,2.3597e-03 ,2.8442e-03 ,3.3004e-03 , & - &3.9209e-03 ,5.1050e-03 ,4.4032e-03 /) - kao(:, 2, 1, 4) = (/ & - &2.9878e-05 ,1.4283e-03 ,2.2934e-03 ,2.9621e-03 ,3.4763e-03 ,4.1665e-03 , & - &4.8948e-03 ,5.8620e-03 ,5.4661e-03 /) - kao(:, 3, 1, 4) = (/ & - &4.2867e-05 ,1.7152e-03 ,2.7742e-03 ,3.5744e-03 ,4.2361e-03 ,5.0272e-03 , & - &5.9642e-03 ,7.9378e-03 ,6.6044e-03 /) - kao(:, 4, 1, 4) = (/ & - &5.9869e-05 ,2.0335e-03 ,3.2827e-03 ,4.2442e-03 ,5.1046e-03 ,5.9179e-03 , & - &7.1401e-03 ,9.6601e-03 ,7.8490e-03 /) - kao(:, 5, 1, 4) = (/ & - &8.1517e-05 ,2.3834e-03 ,3.8440e-03 ,4.9959e-03 ,6.0214e-03 ,7.0692e-03 , & - &8.4265e-03 ,1.1443e-02 ,9.2888e-03 /) - kao(:, 1, 2, 4) = (/ & - &2.5366e-05 ,1.0671e-03 ,1.6131e-03 ,2.1123e-03 ,2.3685e-03 ,2.7185e-03 , & - &3.0418e-03 ,3.4879e-03 ,3.3143e-03 /) - kao(:, 2, 2, 4) = (/ & - &3.7671e-05 ,1.3088e-03 ,2.0014e-03 ,2.6106e-03 ,3.0312e-03 ,3.3873e-03 , & - &3.9017e-03 ,4.5215e-03 ,4.1143e-03 /) - kao(:, 3, 2, 4) = (/ & - &5.4541e-05 ,1.5795e-03 ,2.4306e-03 ,3.1726e-03 ,3.7137e-03 ,4.1208e-03 , & - &4.7737e-03 ,5.7376e-03 ,4.9901e-03 /) - kao(:, 4, 2, 4) = (/ & - &7.7056e-05 ,1.8857e-03 ,2.9009e-03 ,3.7836e-03 ,4.4364e-03 ,5.0235e-03 , & - &5.6427e-03 ,6.9365e-03 ,5.9848e-03 /) - kao(:, 5, 2, 4) = (/ & - &1.0566e-04 ,2.2344e-03 ,3.4137e-03 ,4.4552e-03 ,5.2671e-03 ,5.9853e-03 , & - &6.7249e-03 ,8.2397e-03 ,7.1296e-03 /) - kao(:, 1, 3, 4) = (/ & - &3.9558e-05 ,1.0742e-03 ,1.5248e-03 ,1.8501e-03 ,2.1830e-03 ,2.3261e-03 , & - &2.4391e-03 ,2.5890e-03 ,2.3829e-03 /) - kao(:, 2, 3, 4) = (/ & - &5.9594e-05 ,1.3476e-03 ,1.8940e-03 ,2.3182e-03 ,2.7486e-03 ,3.0410e-03 , & - &3.0839e-03 ,3.3287e-03 ,2.9662e-03 /) - kao(:, 3, 3, 4) = (/ & - &8.7495e-05 ,1.6651e-03 ,2.3108e-03 ,2.8515e-03 ,3.3798e-03 ,3.7359e-03 , & - &3.8327e-03 ,4.1905e-03 ,3.5949e-03 /) - kao(:, 4, 3, 4) = (/ & - &1.2450e-04 ,2.0293e-03 ,2.7849e-03 ,3.4502e-03 ,4.0760e-03 ,4.5002e-03 , & - &4.7432e-03 ,5.0708e-03 ,4.3551e-03 /) - kao(:, 5, 3, 4) = (/ & - &1.7405e-04 ,2.4316e-03 ,3.3182e-03 ,4.1142e-03 ,4.8387e-03 ,5.3673e-03 , & - &5.6716e-03 ,6.0036e-03 ,5.2554e-03 /) - kao(:, 1, 4, 4) = (/ & - &6.0993e-05 ,1.0865e-03 ,1.5064e-03 ,1.7956e-03 ,1.9492e-03 ,2.0758e-03 , & - &2.1376e-03 ,1.9974e-03 ,1.7194e-03 /) - kao(:, 2, 4, 4) = (/ & - &9.3739e-05 ,1.3938e-03 ,1.9090e-03 ,2.2655e-03 ,2.4714e-03 ,2.6468e-03 , & - &2.7998e-03 ,2.5993e-03 ,2.1766e-03 /) - kao(:, 3, 4, 4) = (/ & - &1.3999e-04 ,1.7512e-03 ,2.3888e-03 ,2.8018e-03 ,3.0687e-03 ,3.3097e-03 , & - &3.4825e-03 ,3.2297e-03 ,2.6912e-03 /) - kao(:, 4, 4, 4) = (/ & - &2.0284e-04 ,2.1576e-03 ,2.9507e-03 ,3.4179e-03 ,3.7408e-03 ,4.0628e-03 , & - &4.2589e-03 ,4.0554e-03 ,3.2822e-03 /) - kao(:, 5, 4, 4) = (/ & - &2.8653e-04 ,2.6101e-03 ,3.5917e-03 ,4.1189e-03 ,4.5031e-03 ,4.8876e-03 , & - &5.1085e-03 ,4.9728e-03 ,3.9394e-03 /) - kao(:, 1, 5, 4) = (/ & - &8.6213e-05 ,1.0235e-03 ,1.4463e-03 ,1.6932e-03 ,1.8586e-03 ,1.8899e-03 , & - &1.8325e-03 ,1.6931e-03 ,1.2167e-03 /) - kao(:, 2, 5, 4) = (/ & - &1.3497e-04 ,1.3639e-03 ,1.8867e-03 ,2.1813e-03 ,2.3731e-03 ,2.4352e-03 , & - &2.3757e-03 ,2.2169e-03 ,1.5707e-03 /) - kao(:, 3, 5, 4) = (/ & - &2.0469e-04 ,1.7684e-03 ,2.3970e-03 ,2.7679e-03 ,2.9816e-03 ,3.0549e-03 , & - &3.0098e-03 ,2.8798e-03 ,1.9802e-03 /) - kao(:, 4, 5, 4) = (/ & - &3.0118e-04 ,2.2412e-03 ,2.9952e-03 ,3.4514e-03 ,3.7055e-03 ,3.7675e-03 , & - &3.7358e-03 ,3.5681e-03 ,2.4524e-03 /) - kao(:, 5, 5, 4) = (/ & - &4.3178e-04 ,2.7692e-03 ,3.6699e-03 ,4.2507e-03 ,4.5341e-03 ,4.5904e-03 , & - &4.5606e-03 ,4.3497e-03 ,2.9904e-03 /) - kao(:, 1, 6, 4) = (/ & - &1.1224e-04 ,9.6248e-04 ,1.3486e-03 ,1.5651e-03 ,1.6739e-03 ,1.7217e-03 , & - &1.6200e-03 ,1.3812e-03 ,9.3024e-04 /) - kao(:, 2, 6, 4) = (/ & - &1.7788e-04 ,1.2979e-03 ,1.7963e-03 ,2.0621e-03 ,2.2013e-03 ,2.2377e-03 , & - &2.1278e-03 ,1.8809e-03 ,1.2042e-03 /) - kao(:, 3, 6, 4) = (/ & - &2.7340e-04 ,1.7148e-03 ,2.3323e-03 ,2.6619e-03 ,2.8238e-03 ,2.8631e-03 , & - &2.7284e-03 ,2.4183e-03 ,1.5217e-03 /) - kao(:, 4, 6, 4) = (/ & - &4.0959e-04 ,2.2331e-03 ,2.9678e-03 ,3.3799e-03 ,3.5736e-03 ,3.5928e-03 , & - &3.4271e-03 ,3.0552e-03 ,1.8843e-03 /) - kao(:, 5, 6, 4) = (/ & - &5.9620e-04 ,2.8328e-03 ,3.7008e-03 ,4.1972e-03 ,4.4330e-03 ,4.4525e-03 , & - &4.2185e-03 ,3.7711e-03 ,2.2988e-03 /) - kao(:, 1, 7, 4) = (/ & - &1.5344e-04 ,9.2316e-04 ,1.2773e-03 ,1.5000e-03 ,1.6102e-03 ,1.6127e-03 , & - &1.5115e-03 ,1.2377e-03 ,7.0764e-04 /) - kao(:, 2, 7, 4) = (/ & - &2.4398e-04 ,1.2809e-03 ,1.7477e-03 ,2.0347e-03 ,2.1522e-03 ,2.1311e-03 , & - &1.9950e-03 ,1.6669e-03 ,9.1774e-04 /) - kao(:, 3, 7, 4) = (/ & - &3.8058e-04 ,1.7477e-03 ,2.3440e-03 ,2.6829e-03 ,2.8039e-03 ,2.7555e-03 , & - &2.5876e-03 ,2.1763e-03 ,1.1586e-03 /) - kao(:, 4, 7, 4) = (/ & - &5.7739e-04 ,2.3349e-03 ,3.0698e-03 ,3.4470e-03 ,3.5790e-03 ,3.5331e-03 , & - &3.3054e-03 ,2.7805e-03 ,1.4458e-03 /) - kao(:, 5, 7, 4) = (/ & - &8.5208e-04 ,3.0383e-03 ,3.9002e-03 ,4.3347e-03 ,4.5004e-03 ,4.4415e-03 , & - &4.1236e-03 ,3.4788e-03 ,1.7825e-03 /) - kao(:, 1, 8, 4) = (/ & - &2.5035e-04 ,9.8089e-04 ,1.3026e-03 ,1.5173e-03 ,1.6357e-03 ,1.6535e-03 , & - &1.5386e-03 ,1.2613e-03 ,5.4812e-04 /) - kao(:, 2, 8, 4) = (/ & - &3.9983e-04 ,1.4074e-03 ,1.8431e-03 ,2.1183e-03 ,2.2695e-03 ,2.2610e-03 , & - &2.0892e-03 ,1.6966e-03 ,7.0487e-04 /) - kao(:, 3, 8, 4) = (/ & - &6.2524e-04 ,1.9883e-03 ,2.5535e-03 ,2.8971e-03 ,3.0599e-03 ,3.0259e-03 , & - &2.7534e-03 ,2.2128e-03 ,8.9347e-04 /) - kao(:, 4, 8, 4) = (/ & - &9.6475e-04 ,2.7489e-03 ,3.4725e-03 ,3.8856e-03 ,4.0355e-03 ,3.9357e-03 , & - &3.5484e-03 ,2.8450e-03 ,1.1141e-03 /) - kao(:, 5, 8, 4) = (/ & - &1.4492e-03 ,3.7234e-03 ,4.6023e-03 ,5.0761e-03 ,5.1898e-03 ,5.0041e-03 , & - &4.4962e-03 ,3.6082e-03 ,1.3876e-03 /) - kao(:, 1, 9, 4) = (/ & - &7.7717e-04 ,1.6076e-03 ,1.9327e-03 ,2.0950e-03 ,2.1727e-03 ,2.1507e-03 , & - &2.0239e-03 ,1.6619e-03 ,6.5283e-04 /) - kao(:, 2, 9, 4) = (/ & - &1.2257e-03 ,2.4216e-03 ,2.8205e-03 ,3.0706e-03 ,3.1558e-03 ,3.0893e-03 , & - &2.8639e-03 ,2.3215e-03 ,8.1326e-04 /) - kao(:, 3, 9, 4) = (/ & - &1.9258e-03 ,3.5788e-03 ,4.1331e-03 ,4.4121e-03 ,4.4825e-03 ,4.3456e-03 , & - &3.9751e-03 ,3.1546e-03 ,1.0072e-03 /) - kao(:, 4, 9, 4) = (/ & - &3.0058e-03 ,5.1816e-03 ,5.8926e-03 ,6.2133e-03 ,6.2513e-03 ,5.9943e-03 , & - &5.4160e-03 ,4.1735e-03 ,1.2133e-03 /) - kao(:, 5, 9, 4) = (/ & - &4.5860e-03 ,7.3561e-03 ,8.1694e-03 ,8.5315e-03 ,8.5009e-03 ,8.0696e-03 , & - &7.1597e-03 ,5.3914e-03 ,1.4524e-03 /) - kao(:, 1,10, 4) = (/ & - &2.7632e-03 ,3.7578e-03 ,3.8929e-03 ,3.8648e-03 ,3.7150e-03 ,3.4386e-03 , & - &2.9824e-03 ,2.3042e-03 ,1.1595e-03 /) - kao(:, 2,10, 4) = (/ & - &4.3618e-03 ,5.8439e-03 ,6.0237e-03 ,5.9173e-03 ,5.6198e-03 ,5.0739e-03 , & - &4.3966e-03 ,3.3846e-03 ,1.3310e-03 /) - kao(:, 3,10, 4) = (/ & - &6.8076e-03 ,8.8616e-03 ,9.0867e-03 ,8.8297e-03 ,8.2980e-03 ,7.5120e-03 , & - &6.4366e-03 ,4.8357e-03 ,1.4427e-03 /) - kao(:, 4,10, 4) = (/ & - &1.0727e-02 ,1.3247e-02 ,1.3386e-02 ,1.2895e-02 ,1.2079e-02 ,1.0841e-02 , & - &9.1826e-03 ,6.8074e-03 ,1.5623e-03 /) - kao(:, 5,10, 4) = (/ & - &1.6578e-02 ,1.9641e-02 ,1.9517e-02 ,1.8627e-02 ,1.7184e-02 ,1.5227e-02 , & - &1.2710e-02 ,9.3140e-03 ,1.8266e-03 /) - kao(:, 1,11, 4) = (/ & - &4.3397e-03 ,5.2633e-03 ,5.2314e-03 ,5.0017e-03 ,4.6314e-03 ,4.1308e-03 , & - &3.4621e-03 ,2.5597e-03 ,1.2582e-03 /) - kao(:, 2,11, 4) = (/ & - &6.6934e-03 ,8.1477e-03 ,8.0949e-03 ,7.7188e-03 ,7.1188e-03 ,6.2977e-03 , & - &5.1713e-03 ,3.7779e-03 ,1.4574e-03 /) - kao(:, 3,11, 4) = (/ & - &1.0432e-02 ,1.2428e-02 ,1.2196e-02 ,1.1560e-02 ,1.0566e-02 ,9.2464e-03 , & - &7.6156e-03 ,5.5141e-03 ,1.6582e-03 /) - kao(:, 4,11, 4) = (/ & - &1.6491e-02 ,1.8759e-02 ,1.8258e-02 ,1.7109e-02 ,1.5472e-02 ,1.3463e-02 , & - &1.0963e-02 ,7.7973e-03 ,1.8335e-03 /) - kao(:, 5,11, 4) = (/ & - &2.5430e-02 ,2.8078e-02 ,2.7002e-02 ,2.5032e-02 ,2.2392e-02 ,1.9261e-02 , & - &1.5474e-02 ,1.0784e-02 ,2.0075e-03 /) - kao(:, 1,12, 4) = (/ & - &4.9273e-03 ,5.7931e-03 ,5.6746e-03 ,5.3611e-03 ,4.8847e-03 ,4.2709e-03 , & - &3.4855e-03 ,2.4889e-03 ,1.1526e-03 /) - kao(:, 2,12, 4) = (/ & - &7.6884e-03 ,8.9132e-03 ,8.6777e-03 ,8.1782e-03 ,7.4327e-03 ,6.4648e-03 , & - &5.2372e-03 ,3.6981e-03 ,1.3373e-03 /) - kao(:, 3,12, 4) = (/ & - &1.2107e-02 ,1.3711e-02 ,1.3177e-02 ,1.2250e-02 ,1.1036e-02 ,9.5160e-03 , & - &7.6801e-03 ,5.4155e-03 ,1.5194e-03 /) - kao(:, 4,12, 4) = (/ & - &1.8869e-02 ,2.0811e-02 ,1.9833e-02 ,1.8325e-02 ,1.6361e-02 ,1.3983e-02 , & - &1.1160e-02 ,7.6837e-03 ,1.7468e-03 /) - kao(:, 5,12, 4) = (/ & - &2.9063e-02 ,3.1131e-02 ,2.9461e-02 ,2.6993e-02 ,2.3838e-02 ,2.0192e-02 , & - &1.5924e-02 ,1.0737e-02 ,1.9884e-03 /) - kao(:, 1,13, 4) = (/ & - &4.3869e-03 ,5.1798e-03 ,5.0989e-03 ,4.8169e-03 ,4.3794e-03 ,3.7839e-03 , & - &3.0521e-03 ,2.1587e-03 ,9.4784e-04 /) - kao(:, 2,13, 4) = (/ & - &6.9481e-03 ,8.0525e-03 ,7.8458e-03 ,7.3314e-03 ,6.6078e-03 ,5.7100e-03 , & - &4.5663e-03 ,3.2136e-03 ,1.0961e-03 /) - kao(:, 3,13, 4) = (/ & - &1.1021e-02 ,1.2458e-02 ,1.1977e-02 ,1.1021e-02 ,9.8258e-03 ,8.4083e-03 , & - &6.7419e-03 ,4.6947e-03 ,1.2238e-03 /) - kao(:, 4,13, 4) = (/ & - &1.7310e-02 ,1.8923e-02 ,1.8001e-02 ,1.6509e-02 ,1.4657e-02 ,1.2419e-02 , & - &9.8548e-03 ,6.6916e-03 ,1.4326e-03 /) - kao(:, 5,13, 4) = (/ & - &2.6619e-02 ,2.8296e-02 ,2.6623e-02 ,2.4187e-02 ,2.1294e-02 ,1.7939e-02 , & - &1.4103e-02 ,9.4141e-03 ,1.6712e-03 /) - kao(:, 1, 1, 5) = (/ & - &1.5033e-04 ,2.0446e-03 ,3.1681e-03 ,4.0928e-03 ,4.9645e-03 ,5.8752e-03 , & - &6.8891e-03 ,9.7460e-03 ,8.2375e-03 /) - kao(:, 2, 1, 5) = (/ & - &2.0389e-04 ,2.4966e-03 ,3.8465e-03 ,4.9929e-03 ,6.1245e-03 ,7.2940e-03 , & - &8.7776e-03 ,1.1499e-02 ,1.0182e-02 /) - kao(:, 3, 1, 5) = (/ & - &2.6769e-04 ,3.0079e-03 ,4.6076e-03 ,5.9938e-03 ,7.3703e-03 ,8.8250e-03 , & - &1.0916e-02 ,1.3468e-02 ,1.2268e-02 /) - kao(:, 4, 1, 5) = (/ & - &3.4024e-04 ,3.5831e-03 ,5.4751e-03 ,7.1124e-03 ,8.7423e-03 ,1.0600e-02 , & - &1.2985e-02 ,1.6757e-02 ,1.4652e-02 /) - kao(:, 5, 1, 5) = (/ & - &4.2020e-04 ,4.2180e-03 ,6.4294e-03 ,8.3453e-03 ,1.0248e-02 ,1.2449e-02 , & - &1.5350e-02 ,1.9955e-02 ,1.7214e-02 /) - kao(:, 1, 2, 5) = (/ & - &1.8399e-04 ,1.8419e-03 ,2.8498e-03 ,3.5822e-03 ,4.2442e-03 ,4.8814e-03 , & - &5.3141e-03 ,6.9582e-03 ,6.1890e-03 /) - kao(:, 2, 2, 5) = (/ & - &2.5292e-04 ,2.2771e-03 ,3.4958e-03 ,4.3938e-03 ,5.2283e-03 ,6.0330e-03 , & - &6.8353e-03 ,8.0230e-03 ,7.6976e-03 /) - kao(:, 3, 2, 5) = (/ & - &3.3540e-04 ,2.7711e-03 ,4.2257e-03 ,5.3109e-03 ,6.3352e-03 ,7.3450e-03 , & - &8.3567e-03 ,1.0142e-02 ,9.3716e-03 /) - kao(:, 4, 2, 5) = (/ & - &4.2928e-04 ,3.3267e-03 ,5.0595e-03 ,6.3597e-03 ,7.5719e-03 ,8.7753e-03 , & - &1.0137e-02 ,1.2487e-02 ,1.1226e-02 /) - kao(:, 5, 2, 5) = (/ & - &5.3326e-04 ,3.9397e-03 ,5.9807e-03 ,7.5174e-03 ,8.9383e-03 ,1.0365e-02 , & - &1.1992e-02 ,1.4789e-02 ,1.3251e-02 /) - kao(:, 1, 3, 5) = (/ & - &2.8126e-04 ,1.8765e-03 ,2.6588e-03 ,3.3485e-03 ,3.8221e-03 ,4.1636e-03 , & - &4.4682e-03 ,4.4846e-03 ,4.3919e-03 /) - kao(:, 2, 3, 5) = (/ & - &3.9449e-04 ,2.3306e-03 ,3.3231e-03 ,4.1650e-03 ,4.7241e-03 ,5.1684e-03 , & - &5.5884e-03 ,5.9167e-03 ,5.5074e-03 /) - kao(:, 3, 3, 5) = (/ & - &5.3269e-04 ,2.8500e-03 ,4.0835e-03 ,5.0834e-03 ,5.7677e-03 ,6.3235e-03 , & - &6.8829e-03 ,7.4745e-03 ,6.8347e-03 /) - kao(:, 4, 3, 5) = (/ & - &6.9304e-04 ,3.4418e-03 ,4.9465e-03 ,6.1263e-03 ,6.9668e-03 ,7.6366e-03 , & - &8.3133e-03 ,9.1010e-03 ,8.2831e-03 /) - kao(:, 5, 3, 5) = (/ & - &8.7133e-04 ,4.1178e-03 ,5.9088e-03 ,7.3026e-03 ,8.3125e-03 ,9.0996e-03 , & - &9.9113e-03 ,1.0888e-02 ,9.8539e-03 /) - kao(:, 1, 4, 5) = (/ & - &4.2942e-04 ,2.1209e-03 ,2.6611e-03 ,3.0954e-03 ,3.5092e-03 ,3.7795e-03 , & - &3.7536e-03 ,3.6803e-03 ,3.1833e-03 /) - kao(:, 2, 4, 5) = (/ & - &6.1278e-04 ,2.6801e-03 ,3.3648e-03 ,3.9108e-03 ,4.4289e-03 ,4.7305e-03 , & - &4.7677e-03 ,4.7187e-03 ,4.0112e-03 /) - kao(:, 3, 4, 5) = (/ & - &8.4431e-04 ,3.3316e-03 ,4.1648e-03 ,4.8597e-03 ,5.4829e-03 ,5.8484e-03 , & - &5.9135e-03 ,5.9451e-03 ,4.9891e-03 /) - kao(:, 4, 4, 5) = (/ & - &1.1175e-03 ,4.0506e-03 ,5.0747e-03 ,5.9647e-03 ,6.6966e-03 ,7.1102e-03 , & - &7.2127e-03 ,7.2668e-03 ,6.0794e-03 /) - kao(:, 5, 4, 5) = (/ & - &1.4334e-03 ,4.8948e-03 ,6.1056e-03 ,7.2069e-03 ,8.0737e-03 ,8.5555e-03 , & - &8.6934e-03 ,8.7560e-03 ,7.1896e-03 /) - kao(:, 1, 5, 5) = (/ & - &6.0926e-04 ,2.3529e-03 ,2.8355e-03 ,3.0797e-03 ,3.2149e-03 ,3.3400e-03 , & - &3.3910e-03 ,2.9801e-03 ,2.2681e-03 /) - kao(:, 2, 5, 5) = (/ & - &8.8131e-04 ,3.0196e-03 ,3.6353e-03 ,3.9718e-03 ,4.1316e-03 ,4.2694e-03 , & - &4.3037e-03 ,3.9012e-03 ,2.9392e-03 /) - kao(:, 3, 5, 5) = (/ & - &1.2303e-03 ,3.8066e-03 ,4.5787e-03 ,4.9631e-03 ,5.1972e-03 ,5.3645e-03 , & - &5.3804e-03 ,4.9263e-03 ,3.6983e-03 /) - kao(:, 4, 5, 5) = (/ & - &1.6619e-03 ,4.7363e-03 ,5.6662e-03 ,6.1253e-03 ,6.4225e-03 ,6.6560e-03 , & - &6.6051e-03 ,6.0844e-03 ,4.5482e-03 /) - kao(:, 5, 5, 5) = (/ & - &2.1681e-03 ,5.8273e-03 ,6.8808e-03 ,7.4389e-03 ,7.8269e-03 ,8.1204e-03 , & - &8.0166e-03 ,7.4003e-03 ,5.4950e-03 /) - kao(:, 1, 6, 5) = (/ & - &8.3319e-04 ,2.4541e-03 ,2.9309e-03 ,3.1239e-03 ,3.1232e-03 ,3.0304e-03 , & - &2.8953e-03 ,2.6232e-03 ,1.6854e-03 /) - kao(:, 2, 6, 5) = (/ & - &1.2038e-03 ,3.2544e-03 ,3.8397e-03 ,4.0740e-03 ,4.0835e-03 ,3.9879e-03 , & - &3.7753e-03 ,3.4082e-03 ,2.1468e-03 /) - kao(:, 3, 6, 5) = (/ & - &1.6852e-03 ,4.1990e-03 ,4.9217e-03 ,5.1945e-03 ,5.2325e-03 ,5.0738e-03 , & - &4.7918e-03 ,4.2939e-03 ,2.6825e-03 /) - kao(:, 4, 6, 5) = (/ & - &2.3055e-03 ,5.2874e-03 ,6.1886e-03 ,6.5148e-03 ,6.5533e-03 ,6.3614e-03 , & - &5.9949e-03 ,5.3440e-03 ,3.2990e-03 /) - kao(:, 5, 6, 5) = (/ & - &3.0550e-03 ,6.5592e-03 ,7.6795e-03 ,8.0591e-03 ,8.0426e-03 ,7.8256e-03 , & - &7.4185e-03 ,6.5412e-03 ,4.0170e-03 /) - kao(:, 1, 7, 5) = (/ & - &1.2030e-03 ,2.7895e-03 ,3.1932e-03 ,3.3085e-03 ,3.2497e-03 ,3.0373e-03 , & - &2.6860e-03 ,2.2491e-03 ,1.3507e-03 /) - kao(:, 2, 7, 5) = (/ & - &1.7561e-03 ,3.7366e-03 ,4.1989e-03 ,4.3780e-03 ,4.3275e-03 ,4.0454e-03 , & - &3.5823e-03 ,2.9962e-03 ,1.7424e-03 /) - kao(:, 3, 7, 5) = (/ & - &2.4695e-03 ,4.8641e-03 ,5.4890e-03 ,5.7046e-03 ,5.6266e-03 ,5.2456e-03 , & - &4.6755e-03 ,3.8694e-03 ,2.1970e-03 /) - kao(:, 4, 7, 5) = (/ & - &3.4036e-03 ,6.2572e-03 ,7.0247e-03 ,7.3182e-03 ,7.1220e-03 ,6.6595e-03 , & - &5.9470e-03 ,4.8905e-03 ,2.7089e-03 /) - kao(:, 5, 7, 5) = (/ & - &4.5461e-03 ,7.9331e-03 ,8.8637e-03 ,9.1326e-03 ,8.9102e-03 ,8.3275e-03 , & - &7.4120e-03 ,6.0989e-03 ,3.2778e-03 /) - kao(:, 1, 8, 5) = (/ & - &2.0449e-03 ,3.7053e-03 ,4.0860e-03 ,4.1499e-03 ,3.9922e-03 ,3.6227e-03 , & - &3.0421e-03 ,2.2282e-03 ,1.0954e-03 /) - kao(:, 2, 8, 5) = (/ & - &3.0260e-03 ,5.1232e-03 ,5.5625e-03 ,5.5873e-03 ,5.3321e-03 ,4.8458e-03 , & - &4.0703e-03 ,3.0319e-03 ,1.4218e-03 /) - kao(:, 3, 8, 5) = (/ & - &4.3499e-03 ,6.8685e-03 ,7.3484e-03 ,7.3183e-03 ,6.9565e-03 ,6.3086e-03 , & - &5.3805e-03 ,3.9991e-03 ,1.7827e-03 /) - kao(:, 4, 8, 5) = (/ & - &6.0988e-03 ,9.0048e-03 ,9.4728e-03 ,9.3798e-03 ,8.9487e-03 ,8.1669e-03 , & - &6.9162e-03 ,5.1727e-03 ,2.2090e-03 /) - kao(:, 5, 8, 5) = (/ & - &8.2301e-03 ,1.1592e-02 ,1.2058e-02 ,1.1936e-02 ,1.1386e-02 ,1.0345e-02 , & - &8.7069e-03 ,6.5415e-03 ,2.6879e-03 /) - kao(:, 1, 9, 5) = (/ & - &6.4341e-03 ,8.4932e-03 ,8.6319e-03 ,8.3108e-03 ,7.7018e-03 ,6.7763e-03 , & - &5.5115e-03 ,3.7767e-03 ,9.5475e-04 /) - kao(:, 2, 9, 5) = (/ & - &9.6759e-03 ,1.2213e-02 ,1.2266e-02 ,1.1725e-02 ,1.0741e-02 ,9.3855e-03 , & - &7.5654e-03 ,5.1517e-03 ,1.1933e-03 /) - kao(:, 3, 9, 5) = (/ & - &1.4274e-02 ,1.7116e-02 ,1.6970e-02 ,1.6030e-02 ,1.4545e-02 ,1.2624e-02 , & - &1.0092e-02 ,6.8273e-03 ,1.4956e-03 /) - kao(:, 4, 9, 5) = (/ & - &2.0348e-02 ,2.3456e-02 ,2.2925e-02 ,2.1415e-02 ,1.9260e-02 ,1.6502e-02 , & - &1.3098e-02 ,8.8597e-03 ,1.8913e-03 /) - kao(:, 5, 9, 5) = (/ & - &2.7947e-02 ,3.1392e-02 ,3.0350e-02 ,2.8042e-02 ,2.4920e-02 ,2.1171e-02 , & - &1.6720e-02 ,1.1275e-02 ,2.3159e-03 /) - kao(:, 1,10, 5) = (/ & - &2.3218e-02 ,2.4547e-02 ,2.3456e-02 ,2.1452e-02 ,1.8855e-02 ,1.5703e-02 , & - &1.2047e-02 ,7.7884e-03 ,1.4115e-03 /) - kao(:, 2,10, 5) = (/ & - &3.5352e-02 ,3.6479e-02 ,3.4471e-02 ,3.1299e-02 ,2.7239e-02 ,2.2668e-02 , & - &1.7318e-02 ,1.0990e-02 ,1.7428e-03 /) - kao(:, 3,10, 5) = (/ & - &5.3041e-02 ,5.3290e-02 ,4.9753e-02 ,4.4634e-02 ,3.8593e-02 ,3.1830e-02 , & - &2.4004e-02 ,1.5032e-02 ,2.1711e-03 /) - kao(:, 4,10, 5) = (/ & - &7.6819e-02 ,7.5905e-02 ,7.0118e-02 ,6.2386e-02 ,5.3448e-02 ,4.3595e-02 , & - &3.2572e-02 ,2.0010e-02 ,2.6405e-03 /) - kao(:, 5,10, 5) = (/ & - &1.0741e-01 ,1.0446e-01 ,9.5780e-02 ,8.4676e-02 ,7.2117e-02 ,5.8406e-02 , & - &4.3338e-02 ,2.6148e-02 ,3.0152e-03 /) - kao(:, 1,11, 5) = (/ & - &3.5267e-02 ,3.5419e-02 ,3.3018e-02 ,2.9652e-02 ,2.5661e-02 ,2.1081e-02 , & - &1.5812e-02 ,9.8203e-03 ,1.5039e-03 /) - kao(:, 2,11, 5) = (/ & - &5.4088e-02 ,5.3137e-02 ,4.9102e-02 ,4.3719e-02 ,3.7498e-02 ,3.0622e-02 , & - &2.2914e-02 ,1.4036e-02 ,1.8588e-03 /) - kao(:, 3,11, 5) = (/ & - &8.1309e-02 ,7.8515e-02 ,7.1873e-02 ,6.3455e-02 ,5.4008e-02 ,4.3709e-02 , & - &3.2277e-02 ,1.9424e-02 ,2.2498e-03 /) - kao(:, 4,11, 5) = (/ & - &1.1800e-01 ,1.1244e-01 ,1.0217e-01 ,8.9567e-02 ,7.5664e-02 ,6.0559e-02 , & - &4.4387e-02 ,2.6353e-02 ,2.7248e-03 /) - kao(:, 5,11, 5) = (/ & - &1.6472e-01 ,1.5538e-01 ,1.4035e-01 ,1.2265e-01 ,1.0315e-01 ,8.2131e-02 , & - &5.9771e-02 ,3.4979e-02 ,3.2176e-03 /) - kao(:, 1,12, 5) = (/ & - &3.9647e-02 ,3.8955e-02 ,3.5866e-02 ,3.1882e-02 ,2.7372e-02 ,2.2283e-02 , & - &1.6581e-02 ,1.0137e-02 ,1.4428e-03 /) - kao(:, 2,12, 5) = (/ & - &6.1147e-02 ,5.9154e-02 ,5.3991e-02 ,4.7633e-02 ,4.0515e-02 ,3.2821e-02 , & - &2.4231e-02 ,1.4611e-02 ,1.7795e-03 /) - kao(:, 3,12, 5) = (/ & - &9.1962e-02 ,8.7537e-02 ,7.9486e-02 ,6.9739e-02 ,5.8957e-02 ,4.7222e-02 , & - &3.4488e-02 ,2.0425e-02 ,2.1548e-03 /) - kao(:, 4,12, 5) = (/ & - &1.3375e-01 ,1.2593e-01 ,1.1362e-01 ,9.8983e-02 ,8.2938e-02 ,6.5961e-02 , & - &4.7849e-02 ,2.7977e-02 ,2.5823e-03 /) - kao(:, 5,12, 5) = (/ & - &1.8619e-01 ,1.7389e-01 ,1.5614e-01 ,1.3563e-01 ,1.1356e-01 ,8.9900e-02 , & - &6.4743e-02 ,3.7437e-02 ,3.0416e-03 /) - kao(:, 1,13, 5) = (/ & - &3.5348e-02 ,3.4594e-02 ,3.1651e-02 ,2.8032e-02 ,2.3972e-02 ,1.9476e-02 , & - &1.4520e-02 ,8.8483e-03 ,1.2073e-03 /) - kao(:, 2,13, 5) = (/ & - &5.4657e-02 ,5.2717e-02 ,4.7880e-02 ,4.2169e-02 ,3.5919e-02 ,2.9028e-02 , & - &2.1424e-02 ,1.2832e-02 ,1.4997e-03 /) - kao(:, 3,13, 5) = (/ & - &8.2593e-02 ,7.8668e-02 ,7.1038e-02 ,6.2226e-02 ,5.2555e-02 ,4.1980e-02 , & - &3.0595e-02 ,1.8057e-02 ,1.8484e-03 /) - kao(:, 4,13, 5) = (/ & - &1.1968e-01 ,1.1269e-01 ,1.0134e-01 ,8.8277e-02 ,7.4125e-02 ,5.9019e-02 , & - &4.2726e-02 ,2.4879e-02 ,2.2113e-03 /) - kao(:, 5,13, 5) = (/ & - &1.6694e-01 ,1.5606e-01 ,1.3993e-01 ,1.2146e-01 ,1.0158e-01 ,8.0368e-02 , & - &5.7742e-02 ,3.3361e-02 ,2.6209e-03 /) - kao(:, 1, 1, 6) = (/ & - &5.8710e-04 ,3.7447e-03 ,5.6598e-03 ,7.4215e-03 ,9.2308e-03 ,1.1302e-02 , & - &1.3745e-02 ,1.7130e-02 ,1.6376e-02 /) - kao(:, 2, 1, 6) = (/ & - &7.1095e-04 ,4.5295e-03 ,6.8956e-03 ,9.1329e-03 ,1.1441e-02 ,1.4069e-02 , & - &1.7260e-02 ,2.1984e-02 ,2.0159e-02 /) - kao(:, 3, 1, 6) = (/ & - &8.4824e-04 ,5.3994e-03 ,8.2567e-03 ,1.1010e-02 ,1.3909e-02 ,1.7204e-02 , & - &2.1091e-02 ,2.7132e-02 ,2.4524e-02 /) - kao(:, 4, 1, 6) = (/ & - &9.9962e-04 ,6.3675e-03 ,9.7929e-03 ,1.3116e-02 ,1.6664e-02 ,2.0670e-02 , & - &2.5520e-02 ,3.3009e-02 ,2.9504e-02 /) - kao(:, 5, 1, 6) = (/ & - &1.1677e-03 ,7.4449e-03 ,1.1517e-02 ,1.5476e-02 ,1.9740e-02 ,2.4530e-02 , & - &3.0349e-02 ,3.9385e-02 ,3.5028e-02 /) - kao(:, 1, 2, 6) = (/ & - &7.3151e-04 ,3.6448e-03 ,5.2016e-03 ,6.6421e-03 ,7.9400e-03 ,9.1018e-03 , & - &1.0516e-02 ,1.2549e-02 ,1.2514e-02 /) - kao(:, 2, 2, 6) = (/ & - &8.8990e-04 ,4.4216e-03 ,6.3659e-03 ,8.1663e-03 ,9.8302e-03 ,1.1392e-02 , & - &1.3321e-02 ,1.6283e-02 ,1.5469e-02 /) - kao(:, 3, 2, 6) = (/ & - &1.0714e-03 ,5.2883e-03 ,7.6564e-03 ,9.8457e-03 ,1.1909e-02 ,1.3940e-02 , & - &1.6405e-02 ,2.0166e-02 ,1.8847e-02 /) - kao(:, 4, 2, 6) = (/ & - &1.2782e-03 ,6.2637e-03 ,9.0995e-03 ,1.1738e-02 ,1.4242e-02 ,1.6761e-02 , & - &1.9871e-02 ,2.4604e-02 ,2.2753e-02 /) - kao(:, 5, 2, 6) = (/ & - &1.5101e-03 ,7.3491e-03 ,1.0728e-02 ,1.3865e-02 ,1.6850e-02 ,1.9892e-02 , & - &2.3687e-02 ,2.9581e-02 ,2.7171e-02 /) - kao(:, 1, 3, 6) = (/ & - &1.1614e-03 ,3.9286e-03 ,5.2992e-03 ,6.2920e-03 ,7.1803e-03 ,7.9571e-03 , & - &8.5455e-03 ,9.0349e-03 ,9.0567e-03 /) - kao(:, 2, 3, 6) = (/ & - &1.4526e-03 ,4.8338e-03 ,6.5076e-03 ,7.7704e-03 ,8.9197e-03 ,9.9629e-03 , & - &1.0799e-02 ,1.1625e-02 ,1.1298e-02 /) - kao(:, 3, 3, 6) = (/ & - &1.7725e-03 ,5.8343e-03 ,7.8680e-03 ,9.4298e-03 ,1.0866e-02 ,1.2179e-02 , & - &1.3264e-02 ,1.4525e-02 ,1.3847e-02 /) - kao(:, 4, 3, 6) = (/ & - &2.1368e-03 ,6.9576e-03 ,9.3967e-03 ,1.1298e-02 ,1.3038e-02 ,1.4633e-02 , & - &1.6013e-02 ,1.7774e-02 ,1.6807e-02 /) - kao(:, 5, 3, 6) = (/ & - &2.5530e-03 ,8.2213e-03 ,1.1119e-02 ,1.3386e-02 ,1.5467e-02 ,1.7396e-02 , & - &1.9105e-02 ,2.1405e-02 ,2.0198e-02 /) - kao(:, 1, 4, 6) = (/ & - &1.8393e-03 ,4.2719e-03 ,5.6108e-03 ,6.4238e-03 ,6.8867e-03 ,7.1924e-03 , & - &7.4060e-03 ,7.2862e-03 ,6.3156e-03 /) - kao(:, 2, 4, 6) = (/ & - &2.3510e-03 ,5.3330e-03 ,6.9923e-03 ,7.9801e-03 ,8.5829e-03 ,9.0352e-03 , & - &9.3670e-03 ,9.3790e-03 ,7.9787e-03 /) - kao(:, 3, 4, 6) = (/ & - &2.9328e-03 ,6.5477e-03 ,8.5524e-03 ,9.7522e-03 ,1.0523e-02 ,1.1105e-02 , & - &1.1571e-02 ,1.1684e-02 ,9.9124e-03 /) - kao(:, 4, 4, 6) = (/ & - &3.6136e-03 ,7.9708e-03 ,1.0306e-02 ,1.1748e-02 ,1.2708e-02 ,1.3440e-02 , & - &1.4032e-02 ,1.4271e-02 ,1.2172e-02 /) - kao(:, 5, 4, 6) = (/ & - &4.3442e-03 ,9.5761e-03 ,1.2277e-02 ,1.3997e-02 ,1.5163e-02 ,1.6053e-02 , & - &1.6795e-02 ,1.7163e-02 ,1.4922e-02 /) - kao(:, 1, 5, 6) = (/ & - &2.6688e-03 ,4.8052e-03 ,5.7832e-03 ,6.4797e-03 ,6.8502e-03 ,6.8218e-03 , & - &6.5242e-03 ,6.0722e-03 ,4.6753e-03 /) - kao(:, 2, 5, 6) = (/ & - &3.4688e-03 ,6.1297e-03 ,7.3230e-03 ,8.1782e-03 ,8.6322e-03 ,8.6195e-03 , & - &8.3126e-03 ,7.8540e-03 ,5.9385e-03 /) - kao(:, 3, 5, 6) = (/ & - &4.4058e-03 ,7.6630e-03 ,9.1013e-03 ,1.0147e-02 ,1.0667e-02 ,1.0680e-02 , & - &1.0355e-02 ,9.8543e-03 ,7.3828e-03 /) - kao(:, 4, 5, 6) = (/ & - &5.5115e-03 ,9.4361e-03 ,1.1163e-02 ,1.2385e-02 ,1.2986e-02 ,1.3010e-02 , & - &1.2662e-02 ,1.2099e-02 ,9.0803e-03 /) - kao(:, 5, 5, 6) = (/ & - &6.7862e-03 ,1.1482e-02 ,1.3563e-02 ,1.4942e-02 ,1.5588e-02 ,1.5643e-02 , & - &1.5261e-02 ,1.4627e-02 ,1.1026e-02 /) - kao(:, 1, 6, 6) = (/ & - &3.5724e-03 ,5.4370e-03 ,6.0294e-03 ,6.3914e-03 ,6.6047e-03 ,6.5232e-03 , & - &6.0277e-03 ,5.0661e-03 ,3.1530e-03 /) - kao(:, 2, 6, 6) = (/ & - &4.7182e-03 ,7.1382e-03 ,7.8365e-03 ,8.2706e-03 ,8.5053e-03 ,8.3495e-03 , & - &7.7282e-03 ,6.6198e-03 ,4.1407e-03 /) - kao(:, 3, 6, 6) = (/ & - &6.1150e-03 ,9.1981e-03 ,9.9430e-03 ,1.0464e-02 ,1.0671e-02 ,1.0482e-02 , & - &9.6931e-03 ,8.3868e-03 ,5.3331e-03 /) - kao(:, 4, 6, 6) = (/ & - &7.7447e-03 ,1.1494e-02 ,1.2445e-02 ,1.3024e-02 ,1.3207e-02 ,1.2894e-02 , & - &1.1946e-02 ,1.0395e-02 ,6.6921e-03 /) - kao(:, 5, 6, 6) = (/ & - &9.6796e-03 ,1.4190e-02 ,1.5330e-02 ,1.5967e-02 ,1.6158e-02 ,1.5661e-02 , & - &1.4492e-02 ,1.2674e-02 ,8.2498e-03 /) - kao(:, 1, 7, 6) = (/ & - &4.9616e-03 ,6.6121e-03 ,6.8416e-03 ,6.8101e-03 ,6.6768e-03 ,6.3696e-03 , & - &5.8141e-03 ,4.6733e-03 ,2.5227e-03 /) - kao(:, 2, 7, 6) = (/ & - &6.6954e-03 ,8.8189e-03 ,9.1778e-03 ,9.1281e-03 ,8.8939e-03 ,8.4196e-03 , & - &7.6478e-03 ,6.1227e-03 ,3.2129e-03 /) - kao(:, 3, 7, 6) = (/ & - &8.9023e-03 ,1.1584e-02 ,1.1984e-02 ,1.1899e-02 ,1.1446e-02 ,1.0830e-02 , & - &9.7223e-03 ,7.7935e-03 ,4.0071e-03 /) - kao(:, 4, 7, 6) = (/ & - &1.1382e-02 ,1.4883e-02 ,1.5340e-02 ,1.5077e-02 ,1.4572e-02 ,1.3613e-02 , & - &1.2124e-02 ,9.7242e-03 ,4.9238e-03 /) - kao(:, 5, 7, 6) = (/ & - &1.4371e-02 ,1.8723e-02 ,1.9154e-02 ,1.8910e-02 ,1.8193e-02 ,1.6854e-02 , & - &1.4917e-02 ,1.1939e-02 ,6.0317e-03 /) - kao(:, 1, 8, 6) = (/ & - &8.7001e-03 ,9.7747e-03 ,9.5071e-03 ,8.9379e-03 ,8.2227e-03 ,7.2962e-03 , & - &6.1868e-03 ,4.7953e-03 ,2.0794e-03 /) - kao(:, 2, 8, 6) = (/ & - &1.1618e-02 ,1.3178e-02 ,1.2958e-02 ,1.2245e-02 ,1.1180e-02 ,9.8759e-03 , & - &8.4959e-03 ,6.4689e-03 ,2.6798e-03 /) - kao(:, 3, 8, 6) = (/ & - &1.5351e-02 ,1.7665e-02 ,1.7319e-02 ,1.6267e-02 ,1.4838e-02 ,1.3188e-02 , & - &1.1167e-02 ,8.4425e-03 ,3.4113e-03 /) - kao(:, 4, 8, 6) = (/ & - &2.0092e-02 ,2.2911e-02 ,2.2431e-02 ,2.1181e-02 ,1.9393e-02 ,1.7119e-02 , & - &1.4369e-02 ,1.0695e-02 ,4.2567e-03 /) - kao(:, 5, 8, 6) = (/ & - &2.5625e-02 ,2.9136e-02 ,2.8640e-02 ,2.6980e-02 ,2.4612e-02 ,2.1703e-02 , & - &1.8202e-02 ,1.3310e-02 ,5.2101e-03 /) - kao(:, 1, 9, 6) = (/ & - &2.8411e-02 ,2.7805e-02 ,2.5436e-02 ,2.2677e-02 ,1.9516e-02 ,1.5867e-02 , & - &1.1958e-02 ,7.5969e-03 ,2.0612e-03 /) - kao(:, 2, 9, 6) = (/ & - &3.8814e-02 ,3.7908e-02 ,3.4867e-02 ,3.0948e-02 ,2.6641e-02 ,2.1668e-02 , & - &1.6345e-02 ,1.0429e-02 ,2.5903e-03 /) - kao(:, 3, 9, 6) = (/ & - &5.1537e-02 ,5.0347e-02 ,4.6262e-02 ,4.1144e-02 ,3.5324e-02 ,2.8924e-02 , & - &2.1923e-02 ,1.4064e-02 ,3.2116e-03 /) - kao(:, 4, 9, 6) = (/ & - &6.6909e-02 ,6.5234e-02 ,6.0364e-02 ,5.3943e-02 ,4.6443e-02 ,3.8124e-02 , & - &2.8947e-02 ,1.8549e-02 ,3.8623e-03 /) - kao(:, 5, 9, 6) = (/ & - &8.6078e-02 ,8.4018e-02 ,7.7843e-02 ,6.9506e-02 ,5.9853e-02 ,4.9159e-02 , & - &3.7146e-02 ,2.3977e-02 ,4.6095e-03 /) - kao(:, 1,10, 6) = (/ & - &1.0479e-01 ,9.4804e-02 ,8.4158e-02 ,7.2419e-02 ,5.9897e-02 ,4.7014e-02 , & - &3.3513e-02 ,1.8915e-02 ,2.3959e-03 /) - kao(:, 2,10, 6) = (/ & - &1.4593e-01 ,1.3214e-01 ,1.1705e-01 ,1.0074e-01 ,8.3547e-02 ,6.5542e-02 , & - &4.6772e-02 ,2.6375e-02 ,2.8756e-03 /) - kao(:, 3,10, 6) = (/ & - &1.9678e-01 ,1.7825e-01 ,1.5773e-01 ,1.3590e-01 ,1.1277e-01 ,8.8462e-02 , & - &6.3144e-02 ,3.5733e-02 ,3.4719e-03 /) - kao(:, 4,10, 6) = (/ & - &2.5901e-01 ,2.3451e-01 ,2.0787e-01 ,1.7931e-01 ,1.4891e-01 ,1.1693e-01 , & - &8.3230e-02 ,4.7067e-02 ,4.3129e-03 /) - kao(:, 5,10, 6) = (/ & - &3.3485e-01 ,3.0286e-01 ,2.6808e-01 ,2.3135e-01 ,1.9236e-01 ,1.5087e-01 , & - &1.0672e-01 ,6.0498e-02 ,5.2412e-03 /) - kao(:, 1,11, 6) = (/ & - &1.5729e-01 ,1.4058e-01 ,1.2399e-01 ,1.0596e-01 ,8.6953e-02 ,6.7449e-02 , & - &4.7388e-02 ,2.6098e-02 ,2.4928e-03 /) - kao(:, 2,11, 6) = (/ & - &2.1957e-01 ,1.9641e-01 ,1.7272e-01 ,1.4763e-01 ,1.2135e-01 ,9.4358e-02 , & - &6.6246e-02 ,3.6579e-02 ,3.1141e-03 /) - kao(:, 3,11, 6) = (/ & - &2.9796e-01 ,2.6647e-01 ,2.3432e-01 ,2.0028e-01 ,1.6476e-01 ,1.2810e-01 , & - &8.9989e-02 ,4.9741e-02 ,3.7347e-03 /) - kao(:, 4,11, 6) = (/ & - &3.9483e-01 ,3.5349e-01 ,3.1058e-01 ,2.6565e-01 ,2.1911e-01 ,1.7032e-01 , & - &1.1939e-01 ,6.5674e-02 ,4.4794e-03 /) - kao(:, 5,11, 6) = (/ & - &5.1293e-01 ,4.5889e-01 ,4.0288e-01 ,3.4402e-01 ,2.8339e-01 ,2.1998e-01 , & - &1.5383e-01 ,8.4493e-02 ,5.3916e-03 /) - kao(:, 1,12, 6) = (/ & - &1.7496e-01 ,1.5620e-01 ,1.3720e-01 ,1.1692e-01 ,9.5664e-02 ,7.3896e-02 , & - &5.1517e-02 ,2.8131e-02 ,2.4011e-03 /) - kao(:, 2,12, 6) = (/ & - &2.4535e-01 ,2.1911e-01 ,1.9222e-01 ,1.6394e-01 ,1.3439e-01 ,1.0379e-01 , & - &7.2409e-02 ,3.9528e-02 ,2.9367e-03 /) - kao(:, 3,12, 6) = (/ & - &3.3489e-01 ,2.9916e-01 ,2.6204e-01 ,2.2337e-01 ,1.8311e-01 ,1.4171e-01 , & - &9.8967e-02 ,5.4062e-02 ,3.5110e-03 /) - kao(:, 4,12, 6) = (/ & - &4.4645e-01 ,3.9881e-01 ,3.4940e-01 ,2.9764e-01 ,2.4438e-01 ,1.8899e-01 , & - &1.3169e-01 ,7.1745e-02 ,4.2744e-03 /) - kao(:, 5,12, 6) = (/ & - &5.8440e-01 ,5.2135e-01 ,4.5608e-01 ,3.8804e-01 ,3.1784e-01 ,2.4555e-01 , & - &1.7082e-01 ,9.2836e-02 ,5.0546e-03 /) - kao(:, 1,13, 6) = (/ & - &1.5548e-01 ,1.3934e-01 ,1.2226e-01 ,1.0396e-01 ,8.5068e-02 ,6.5711e-02 , & - &4.5702e-02 ,2.4873e-02 ,2.0740e-03 /) - kao(:, 2,13, 6) = (/ & - &2.1897e-01 ,1.9631e-01 ,1.7240e-01 ,1.4676e-01 ,1.2003e-01 ,9.2645e-02 , & - &6.4538e-02 ,3.5191e-02 ,2.5124e-03 /) - kao(:, 3,13, 6) = (/ & - &3.0093e-01 ,2.6954e-01 ,2.3618e-01 ,2.0119e-01 ,1.6478e-01 ,1.2740e-01 , & - &8.8848e-02 ,4.8366e-02 ,3.0385e-03 /) - kao(:, 4,13, 6) = (/ & - &4.0480e-01 ,3.6240e-01 ,3.1715e-01 ,2.6983e-01 ,2.2076e-01 ,1.7039e-01 , & - &1.1847e-01 ,6.4388e-02 ,3.6949e-03 /) - kao(:, 5,13, 6) = (/ & - &5.3109e-01 ,4.7451e-01 ,4.1461e-01 ,3.5239e-01 ,2.8790e-01 ,2.2202e-01 , & - &1.5435e-01 ,8.3628e-02 ,4.3087e-03 /) - kao(:, 1, 1, 7) = (/ & - &1.3848e-03 ,7.4265e-03 ,1.1328e-02 ,1.5765e-02 ,2.0617e-02 ,2.5760e-02 , & - &3.1394e-02 ,3.9174e-02 ,3.7962e-02 /) - kao(:, 2, 1, 7) = (/ & - &1.6671e-03 ,8.9945e-03 ,1.3803e-02 ,1.9211e-02 ,2.5130e-02 ,3.1434e-02 , & - &3.8541e-02 ,4.9244e-02 ,4.6325e-02 /) - kao(:, 3, 1, 7) = (/ & - &1.9714e-03 ,1.0738e-02 ,1.6621e-02 ,2.3153e-02 ,3.0242e-02 ,3.7827e-02 , & - &4.6470e-02 ,6.0286e-02 ,5.5806e-02 /) - kao(:, 4, 1, 7) = (/ & - &2.3028e-03 ,1.2683e-02 ,1.9788e-02 ,2.7634e-02 ,3.6042e-02 ,4.5063e-02 , & - &5.5400e-02 ,7.2329e-02 ,6.6551e-02 /) - kao(:, 5, 1, 7) = (/ & - &2.6597e-03 ,1.4839e-02 ,2.3341e-02 ,3.2680e-02 ,4.2600e-02 ,5.3211e-02 , & - &6.5429e-02 ,8.5816e-02 ,7.8751e-02 /) - kao(:, 1, 2, 7) = (/ & - &1.7365e-03 ,7.5104e-03 ,1.0855e-02 ,1.3649e-02 ,1.6794e-02 ,2.0487e-02 , & - &2.4622e-02 ,2.9785e-02 ,2.9296e-02 /) - kao(:, 2, 2, 7) = (/ & - &2.1191e-03 ,9.1841e-03 ,1.3246e-02 ,1.6722e-02 ,2.0613e-02 ,2.5164e-02 , & - &3.0319e-02 ,3.7310e-02 ,3.6002e-02 /) - kao(:, 3, 2, 7) = (/ & - &2.5333e-03 ,1.1030e-02 ,1.5921e-02 ,2.0206e-02 ,2.4966e-02 ,3.0432e-02 , & - &3.6701e-02 ,4.5559e-02 ,4.3603e-02 /) - kao(:, 4, 2, 7) = (/ & - &2.9828e-03 ,1.3051e-02 ,1.8932e-02 ,2.4145e-02 ,2.9915e-02 ,3.6454e-02 , & - &4.3919e-02 ,5.4674e-02 ,5.2233e-02 /) - kao(:, 5, 2, 7) = (/ & - &3.4709e-03 ,1.5291e-02 ,2.2279e-02 ,2.8573e-02 ,3.5520e-02 ,4.3284e-02 , & - &5.2127e-02 ,6.5008e-02 ,6.1979e-02 /) - kao(:, 1, 3, 7) = (/ & - &2.8092e-03 ,8.4318e-03 ,1.1352e-02 ,1.3672e-02 ,1.5434e-02 ,1.6834e-02 , & - &1.8680e-02 ,2.1551e-02 ,2.1437e-02 /) - kao(:, 2, 3, 7) = (/ & - &3.4524e-03 ,1.0436e-02 ,1.4060e-02 ,1.6891e-02 ,1.9071e-02 ,2.0847e-02 , & - &2.3206e-02 ,2.6955e-02 ,2.6565e-02 /) - kao(:, 3, 3, 7) = (/ & - &4.1827e-03 ,1.2653e-02 ,1.7072e-02 ,2.0477e-02 ,2.3160e-02 ,2.5389e-02 , & - &2.8361e-02 ,3.3016e-02 ,3.2451e-02 /) - kao(:, 4, 3, 7) = (/ & - &4.9958e-03 ,1.5103e-02 ,2.0380e-02 ,2.4512e-02 ,2.7790e-02 ,3.0621e-02 , & - &3.4270e-02 ,3.9878e-02 ,3.9158e-02 /) - kao(:, 5, 3, 7) = (/ & - &5.8802e-03 ,1.7776e-02 ,2.4055e-02 ,2.9030e-02 ,3.2999e-02 ,3.6516e-02 , & - &4.0970e-02 ,4.7651e-02 ,4.6784e-02 /) - kao(:, 1, 4, 7) = (/ & - &4.5589e-03 ,1.0079e-02 ,1.2337e-02 ,1.3994e-02 ,1.5249e-02 ,1.6070e-02 , & - &1.6321e-02 ,1.6191e-02 ,1.5492e-02 /) - kao(:, 2, 4, 7) = (/ & - &5.6834e-03 ,1.2638e-02 ,1.5464e-02 ,1.7583e-02 ,1.9154e-02 ,2.0166e-02 , & - &2.0456e-02 ,2.0438e-02 ,1.9456e-02 /) - kao(:, 3, 4, 7) = (/ & - &6.9619e-03 ,1.5492e-02 ,1.8969e-02 ,2.1612e-02 ,2.3568e-02 ,2.4770e-02 , & - &2.5120e-02 ,2.5223e-02 ,2.3997e-02 /) - kao(:, 4, 4, 7) = (/ & - &8.4006e-03 ,1.8644e-02 ,2.2892e-02 ,2.6108e-02 ,2.8487e-02 ,2.9981e-02 , & - &3.0457e-02 ,3.0724e-02 ,2.9183e-02 /) - kao(:, 5, 4, 7) = (/ & - &1.0053e-02 ,2.2099e-02 ,2.7239e-02 ,3.1080e-02 ,3.3975e-02 ,3.5831e-02 , & - &3.6496e-02 ,3.6989e-02 ,3.5086e-02 /) - kao(:, 1, 5, 7) = (/ & - &6.7689e-03 ,1.1903e-02 ,1.3648e-02 ,1.4571e-02 ,1.5091e-02 ,1.5249e-02 , & - &1.4963e-02 ,1.3941e-02 ,1.1072e-02 /) - kao(:, 2, 5, 7) = (/ & - &8.5889e-03 ,1.5080e-02 ,1.7390e-02 ,1.8530e-02 ,1.9222e-02 ,1.9473e-02 , & - &1.9084e-02 ,1.7764e-02 ,1.3833e-02 /) - kao(:, 3, 5, 7) = (/ & - &1.0679e-02 ,1.8745e-02 ,2.1599e-02 ,2.3039e-02 ,2.3924e-02 ,2.4268e-02 , & - &2.3807e-02 ,2.2090e-02 ,1.7335e-02 /) - kao(:, 4, 5, 7) = (/ & - &1.3055e-02 ,2.2828e-02 ,2.6303e-02 ,2.8136e-02 ,2.9230e-02 ,2.9685e-02 , & - &2.9170e-02 ,2.7046e-02 ,2.1372e-02 /) - kao(:, 5, 5, 7) = (/ & - &1.5751e-02 ,2.7271e-02 ,3.1547e-02 ,3.3833e-02 ,3.5204e-02 ,3.5707e-02 , & - &3.5181e-02 ,3.2654e-02 ,2.6029e-02 /) - kao(:, 1, 6, 7) = (/ & - &9.2094e-03 ,1.3724e-02 ,1.5036e-02 ,1.5371e-02 ,1.5106e-02 ,1.4473e-02 , & - &1.3532e-02 ,1.2020e-02 ,8.1670e-03 /) - kao(:, 2, 6, 7) = (/ & - &1.1986e-02 ,1.7634e-02 ,1.9365e-02 ,1.9834e-02 ,1.9516e-02 ,1.8750e-02 , & - &1.7602e-02 ,1.5593e-02 ,1.0511e-02 /) - kao(:, 3, 6, 7) = (/ & - &1.5180e-02 ,2.2067e-02 ,2.4393e-02 ,2.4963e-02 ,2.4596e-02 ,2.3680e-02 , & - &2.2274e-02 ,1.9750e-02 ,1.3124e-02 /) - kao(:, 4, 6, 7) = (/ & - &1.8879e-02 ,2.7272e-02 ,3.0068e-02 ,3.0821e-02 ,3.0411e-02 ,2.9355e-02 , & - &2.7616e-02 ,2.4539e-02 ,1.6137e-02 /) - kao(:, 5, 6, 7) = (/ & - &2.3118e-02 ,3.3049e-02 ,3.6382e-02 ,3.7419e-02 ,3.7019e-02 ,3.5790e-02 , & - &3.3628e-02 ,2.9915e-02 ,1.9032e-02 /) - kao(:, 1, 7, 7) = (/ & - &1.3180e-02 ,1.6672e-02 ,1.7592e-02 ,1.7458e-02 ,1.6513e-02 ,1.5058e-02 , & - &1.3095e-02 ,1.0650e-02 ,5.4642e-03 /) - kao(:, 2, 7, 7) = (/ & - &1.7434e-02 ,2.2125e-02 ,2.3174e-02 ,2.2835e-02 ,2.1611e-02 ,1.9729e-02 , & - &1.7181e-02 ,1.4117e-02 ,7.1375e-03 /) - kao(:, 3, 7, 7) = (/ & - &2.2566e-02 ,2.8274e-02 ,2.9519e-02 ,2.9093e-02 ,2.7592e-02 ,2.5177e-02 , & - &2.2032e-02 ,1.8185e-02 ,9.3084e-03 /) - kao(:, 4, 7, 7) = (/ & - &2.8653e-02 ,3.5321e-02 ,3.6780e-02 ,3.6287e-02 ,3.4434e-02 ,3.1535e-02 , & - &2.7705e-02 ,2.2900e-02 ,1.1848e-02 /) - kao(:, 5, 7, 7) = (/ & - &3.5765e-02 ,4.3430e-02 ,4.5100e-02 ,4.4435e-02 ,4.2245e-02 ,3.8834e-02 , & - &3.4253e-02 ,2.8260e-02 ,1.4688e-02 /) - kao(:, 1, 8, 7) = (/ & - &2.1747e-02 ,2.4454e-02 ,2.4292e-02 ,2.3080e-02 ,2.1111e-02 ,1.8543e-02 , & - &1.5300e-02 ,1.1054e-02 ,4.8558e-03 /) - kao(:, 2, 8, 7) = (/ & - &3.0389e-02 ,3.3327e-02 ,3.2926e-02 ,3.1134e-02 ,2.8533e-02 ,2.5003e-02 , & - &2.0402e-02 ,1.4724e-02 ,6.1788e-03 /) - kao(:, 3, 8, 7) = (/ & - &4.0290e-02 ,4.3505e-02 ,4.2950e-02 ,4.0676e-02 ,3.7191e-02 ,3.2422e-02 , & - &2.6427e-02 ,1.9111e-02 ,7.6799e-03 /) - kao(:, 4, 8, 7) = (/ & - &5.2072e-02 ,5.5809e-02 ,5.4895e-02 ,5.1714e-02 ,4.6978e-02 ,4.0907e-02 , & - &3.3411e-02 ,2.4362e-02 ,9.3208e-03 /) - kao(:, 5, 8, 7) = (/ & - &6.6160e-02 ,7.0258e-02 ,6.8654e-02 ,6.4320e-02 ,5.8240e-02 ,5.0667e-02 , & - &4.1561e-02 ,3.0531e-02 ,1.1097e-02 /) - kao(:, 1, 9, 7) = (/ & - &6.9879e-02 ,6.6386e-02 ,6.1416e-02 ,5.4862e-02 ,4.7283e-02 ,3.9112e-02 , & - &2.9846e-02 ,1.9026e-02 ,5.0281e-03 /) - kao(:, 2, 9, 7) = (/ & - &9.7072e-02 ,9.2199e-02 ,8.5540e-02 ,7.6855e-02 ,6.6492e-02 ,5.4707e-02 , & - &4.1549e-02 ,2.6366e-02 ,6.3749e-03 /) - kao(:, 3, 9, 7) = (/ & - &1.3274e-01 ,1.2639e-01 ,1.1670e-01 ,1.0412e-01 ,8.9576e-02 ,7.3400e-02 , & - &5.5548e-02 ,3.5017e-02 ,7.9283e-03 /) - kao(:, 4, 9, 7) = (/ & - &1.7725e-01 ,1.6726e-01 ,1.5276e-01 ,1.3606e-01 ,1.1668e-01 ,9.5385e-02 , & - &7.1895e-02 ,4.5017e-02 ,9.7700e-03 /) - kao(:, 5, 9, 7) = (/ & - &2.2900e-01 ,2.1469e-01 ,1.9562e-01 ,1.7346e-01 ,1.4892e-01 ,1.2126e-01 , & - &9.1015e-02 ,5.6621e-02 ,1.1851e-02 /) - kao(:, 1,10, 7) = (/ & - &2.6110e-01 ,2.3191e-01 ,2.0431e-01 ,1.7643e-01 ,1.4693e-01 ,1.1545e-01 , & - &8.1908e-02 ,4.6480e-02 ,5.5448e-03 /) - kao(:, 2,10, 7) = (/ & - &3.6304e-01 ,3.2305e-01 ,2.8523e-01 ,2.4612e-01 ,2.0468e-01 ,1.6117e-01 , & - &1.1489e-01 ,6.5350e-02 ,7.0032e-03 /) - kao(:, 3,10, 7) = (/ & - &5.0185e-01 ,4.4688e-01 ,3.9417e-01 ,3.3909e-01 ,2.8117e-01 ,2.2056e-01 , & - &1.5648e-01 ,8.9037e-02 ,8.6105e-03 /) - kao(:, 4,10, 7) = (/ & - &6.7448e-01 ,6.0038e-01 ,5.2817e-01 ,4.5305e-01 ,3.7479e-01 ,2.9367e-01 , & - &2.0933e-01 ,1.1852e-01 ,1.0215e-02 /) - kao(:, 5,10, 7) = (/ & - &8.8770e-01 ,7.8961e-01 ,6.9429e-01 ,5.9500e-01 ,4.9158e-01 ,3.8401e-01 , & - &2.7292e-01 ,1.5364e-01 ,1.2140e-02 /) - kao(:, 1,11, 7) = (/ & - &4.0532e-01 ,3.5824e-01 ,3.1239e-01 ,2.6732e-01 ,2.2024e-01 ,1.7123e-01 , & - &1.1969e-01 ,6.6094e-02 ,5.4214e-03 /) - kao(:, 2,11, 7) = (/ & - &5.6606e-01 ,5.0050e-01 ,4.3693e-01 ,3.7301e-01 ,3.0650e-01 ,2.3759e-01 , & - &1.6618e-01 ,9.1406e-02 ,6.5476e-03 /) - kao(:, 3,11, 7) = (/ & - &7.7109e-01 ,6.8230e-01 ,5.9547e-01 ,5.0803e-01 ,4.1719e-01 ,3.2299e-01 , & - &2.2593e-01 ,1.2450e-01 ,7.8892e-03 /) - kao(:, 4,11, 7) = (/ & - &1.0345e+00 ,9.1439e-01 ,7.9746e-01 ,6.7877e-01 ,5.5627e-01 ,4.3053e-01 , & - &3.0103e-01 ,1.6533e-01 ,9.6823e-03 /) - kao(:, 5,11, 7) = (/ & - &1.3462e+00 ,1.1891e+00 ,1.0362e+00 ,8.8065e-01 ,7.2071e-01 ,5.5791e-01 , & - &3.9044e-01 ,2.1464e-01 ,1.1736e-02 /) - kao(:, 1,12, 7) = (/ & - &4.6420e-01 ,4.0988e-01 ,3.5698e-01 ,3.0422e-01 ,2.4918e-01 ,1.9252e-01 , & - &1.3423e-01 ,7.3160e-02 ,4.7396e-03 /) - kao(:, 2,12, 7) = (/ & - &6.5450e-01 ,5.7811e-01 ,5.0333e-01 ,4.2804e-01 ,3.4996e-01 ,2.7019e-01 , & - &1.8778e-01 ,1.0212e-01 ,5.9506e-03 /) - kao(:, 3,12, 7) = (/ & - &8.9348e-01 ,7.8900e-01 ,6.8666e-01 ,5.8272e-01 ,4.7603e-01 ,3.6677e-01 , & - &2.5473e-01 ,1.3789e-01 ,7.3179e-03 /) - kao(:, 4,12, 7) = (/ & - &1.1756e+00 ,1.0374e+00 ,9.0174e-01 ,7.6533e-01 ,6.2509e-01 ,4.8180e-01 , & - &3.3511e-01 ,1.8185e-01 ,8.9523e-03 /) - kao(:, 5,12, 7) = (/ & - &1.5297e+00 ,1.3494e+00 ,1.1729e+00 ,9.9401e-01 ,8.1052e-01 ,6.2387e-01 , & - &4.3290e-01 ,2.3433e-01 ,1.0845e-02 /) - kao(:, 1,13, 7) = (/ & - &4.2167e-01 ,3.7276e-01 ,3.2553e-01 ,2.7726e-01 ,2.2695e-01 ,1.7522e-01 , & - &1.2184e-01 ,6.6143e-02 ,4.0030e-03 /) - kao(:, 2,13, 7) = (/ & - &6.0140e-01 ,5.3188e-01 ,4.6380e-01 ,3.9365e-01 ,3.2184e-01 ,2.4778e-01 , & - &1.7190e-01 ,9.3023e-02 ,5.1104e-03 /) - kao(:, 3,13, 7) = (/ & - &8.1807e-01 ,7.2295e-01 ,6.3004e-01 ,5.3457e-01 ,4.3643e-01 ,3.3605e-01 , & - &2.3292e-01 ,1.2549e-01 ,6.4347e-03 /) - kao(:, 4,13, 7) = (/ & - &1.0778e+00 ,9.5216e-01 ,8.2890e-01 ,7.0211e-01 ,5.7259e-01 ,4.4078e-01 , & - &3.0511e-01 ,1.6456e-01 ,7.8490e-03 /) - kao(:, 5,13, 7) = (/ & - &1.3868e+00 ,1.2246e+00 ,1.0647e+00 ,9.0150e-01 ,7.3547e-01 ,5.6615e-01 , & - &3.9191e-01 ,2.1135e-01 ,9.6903e-03 /) - kao(:, 1, 1, 8) = (/ & - &3.5696e-03 ,1.6007e-02 ,2.9119e-02 ,4.2110e-02 ,5.4860e-02 ,6.8076e-02 , & - &8.3917e-02 ,1.0558e-01 ,1.0534e-01 /) - kao(:, 2, 1, 8) = (/ & - &4.2863e-03 ,1.9722e-02 ,3.5791e-02 ,5.1660e-02 ,6.7170e-02 ,8.3493e-02 , & - &1.0314e-01 ,1.2980e-01 ,1.2936e-01 /) - kao(:, 3, 1, 8) = (/ & - &5.0567e-03 ,2.3939e-02 ,4.3341e-02 ,6.2437e-02 ,8.1028e-02 ,1.0094e-01 , & - &1.2485e-01 ,1.5697e-01 ,1.5657e-01 /) - kao(:, 4, 1, 8) = (/ & - &5.8865e-03 ,2.8699e-02 ,5.1840e-02 ,7.4548e-02 ,9.6669e-02 ,1.2066e-01 , & - &1.4947e-01 ,1.8794e-01 ,1.8748e-01 /) - kao(:, 5, 1, 8) = (/ & - &6.7695e-03 ,3.4031e-02 ,6.1358e-02 ,8.8096e-02 ,1.1420e-01 ,1.4289e-01 , & - &1.7720e-01 ,2.2237e-01 ,2.2240e-01 /) - kao(:, 1, 2, 8) = (/ & - &4.7118e-03 ,1.5877e-02 ,2.5399e-02 ,3.5918e-02 ,4.6457e-02 ,5.6939e-02 , & - &6.8068e-02 ,8.4536e-02 ,8.5555e-02 /) - kao(:, 2, 2, 8) = (/ & - &5.7108e-03 ,1.9571e-02 ,3.1487e-02 ,4.4433e-02 ,5.7366e-02 ,7.0154e-02 , & - &8.4052e-02 ,1.0472e-01 ,1.0570e-01 /) - kao(:, 3, 2, 8) = (/ & - &6.7866e-03 ,2.3743e-02 ,3.8403e-02 ,5.4069e-02 ,6.9657e-02 ,8.4997e-02 , & - &1.0211e-01 ,1.2762e-01 ,1.2838e-01 /) - kao(:, 4, 2, 8) = (/ & - &7.9436e-03 ,2.8460e-02 ,4.6231e-02 ,6.4990e-02 ,8.3598e-02 ,1.0182e-01 , & - &1.2260e-01 ,1.5356e-01 ,1.5440e-01 /) - kao(:, 5, 2, 8) = (/ & - &9.1873e-03 ,3.3722e-02 ,5.4999e-02 ,7.7194e-02 ,9.9137e-02 ,1.2068e-01 , & - &1.4584e-01 ,1.8285e-01 ,1.8375e-01 /) - kao(:, 1, 3, 8) = (/ & - &7.9289e-03 ,1.8898e-02 ,2.5653e-02 ,3.1610e-02 ,3.8347e-02 ,4.5822e-02 , & - &5.3494e-02 ,6.2174e-02 ,6.4789e-02 /) - kao(:, 2, 3, 8) = (/ & - &9.7250e-03 ,2.3378e-02 ,3.1960e-02 ,3.9650e-02 ,4.8157e-02 ,5.7463e-02 , & - &6.6987e-02 ,7.7905e-02 ,8.1125e-02 /) - kao(:, 3, 3, 8) = (/ & - &1.1690e-02 ,2.8477e-02 ,3.9050e-02 ,4.8735e-02 ,5.9251e-02 ,7.0590e-02 , & - &8.2118e-02 ,9.5596e-02 ,9.9562e-02 /) - kao(:, 4, 3, 8) = (/ & - &1.3819e-02 ,3.4230e-02 ,4.7053e-02 ,5.8936e-02 ,7.1761e-02 ,8.5391e-02 , & - &9.9148e-02 ,1.1547e-01 ,1.2059e-01 /) - kao(:, 5, 3, 8) = (/ & - &1.6126e-02 ,4.0610e-02 ,5.5935e-02 ,7.0350e-02 ,8.5758e-02 ,1.0193e-01 , & - &1.1815e-01 ,1.3794e-01 ,1.4428e-01 /) - kao(:, 1, 4, 8) = (/ & - &1.3217e-02 ,2.3479e-02 ,2.9539e-02 ,3.3751e-02 ,3.6721e-02 ,3.9161e-02 , & - &4.2339e-02 ,4.7025e-02 ,4.7847e-02 /) - kao(:, 2, 4, 8) = (/ & - &1.6447e-02 ,2.9417e-02 ,3.7093e-02 ,4.2546e-02 ,4.6456e-02 ,4.9765e-02 , & - &5.3922e-02 ,5.9724e-02 ,6.0703e-02 /) - kao(:, 3, 4, 8) = (/ & - &2.0055e-02 ,3.6163e-02 ,4.5727e-02 ,5.2541e-02 ,5.7472e-02 ,6.1844e-02 , & - &6.7058e-02 ,7.4090e-02 ,7.5241e-02 /) - kao(:, 4, 4, 8) = (/ & - &2.4006e-02 ,4.3785e-02 ,5.5469e-02 ,6.3755e-02 ,6.9920e-02 ,7.5527e-02 , & - &8.2000e-02 ,9.0387e-02 ,9.1968e-02 /) - kao(:, 5, 4, 8) = (/ & - &2.8301e-02 ,5.2295e-02 ,6.6272e-02 ,7.6263e-02 ,8.3883e-02 ,9.0941e-02 , & - &9.8884e-02 ,1.0876e-01 ,1.1102e-01 /) - kao(:, 1, 5, 8) = (/ & - &1.9932e-02 ,2.8909e-02 ,3.3929e-02 ,3.6963e-02 ,3.8599e-02 ,3.9090e-02 , & - &3.8100e-02 ,3.6647e-02 ,3.4570e-02 /) - kao(:, 2, 5, 8) = (/ & - &2.5221e-02 ,3.6867e-02 ,4.3184e-02 ,4.7147e-02 ,4.9394e-02 ,5.0060e-02 , & - &4.9016e-02 ,4.7379e-02 ,4.4959e-02 /) - kao(:, 3, 5, 8) = (/ & - &3.1232e-02 ,4.5824e-02 ,5.3773e-02 ,5.8918e-02 ,6.1826e-02 ,6.2626e-02 , & - &6.1399e-02 ,5.9643e-02 ,5.6358e-02 /) - kao(:, 4, 5, 8) = (/ & - &3.7911e-02 ,5.5890e-02 ,6.5835e-02 ,7.2317e-02 ,7.5820e-02 ,7.6769e-02 , & - &7.5408e-02 ,7.3611e-02 ,6.9498e-02 /) - kao(:, 5, 5, 8) = (/ & - &4.5225e-02 ,6.7203e-02 ,7.9322e-02 ,8.7058e-02 ,9.1394e-02 ,9.2728e-02 , & - &9.1290e-02 ,8.9467e-02 ,8.4545e-02 /) - kao(:, 1, 6, 8) = (/ & - &2.7668e-02 ,3.4842e-02 ,3.8147e-02 ,3.9719e-02 ,4.0056e-02 ,3.9073e-02 , & - &3.6625e-02 ,3.2055e-02 ,2.4026e-02 /) - kao(:, 2, 6, 8) = (/ & - &3.5525e-02 ,4.5073e-02 ,4.9553e-02 ,5.1630e-02 ,5.2026e-02 ,5.0818e-02 , & - &4.7728e-02 ,4.1935e-02 ,3.1627e-02 /) - kao(:, 3, 6, 8) = (/ & - &4.4689e-02 ,5.6776e-02 ,6.2560e-02 ,6.5413e-02 ,6.6041e-02 ,6.4568e-02 , & - &6.0721e-02 ,5.3252e-02 ,4.0421e-02 /) - kao(:, 4, 6, 8) = (/ & - &5.5122e-02 ,7.0187e-02 ,7.7371e-02 ,8.1166e-02 ,8.2060e-02 ,8.0200e-02 , & - &7.5289e-02 ,6.6107e-02 ,5.0711e-02 /) - kao(:, 5, 6, 8) = (/ & - &6.6674e-02 ,8.5247e-02 ,9.4184e-02 ,9.8741e-02 ,9.9891e-02 ,9.7702e-02 , & - &9.1660e-02 ,8.0784e-02 ,6.3321e-02 /) - kao(:, 1, 7, 8) = (/ & - &4.0056e-02 ,4.4898e-02 ,4.5971e-02 ,4.5352e-02 ,4.3659e-02 ,4.0747e-02 , & - &3.6554e-02 ,3.0205e-02 ,1.8196e-02 /) - kao(:, 2, 7, 8) = (/ & - &5.2185e-02 ,5.8633e-02 ,6.0480e-02 ,6.0085e-02 ,5.7874e-02 ,5.4080e-02 , & - &4.8546e-02 ,4.0072e-02 ,2.4060e-02 /) - kao(:, 3, 7, 8) = (/ & - &6.6434e-02 ,7.5122e-02 ,7.7544e-02 ,7.7216e-02 ,7.4584e-02 ,6.9858e-02 , & - &6.2703e-02 ,5.1788e-02 ,3.0507e-02 /) - kao(:, 4, 7, 8) = (/ & - &8.3239e-02 ,9.4089e-02 ,9.7312e-02 ,9.7000e-02 ,9.3885e-02 ,8.8076e-02 , & - &7.9042e-02 ,6.5047e-02 ,3.6382e-02 /) - kao(:, 5, 7, 8) = (/ & - &1.0221e-01 ,1.1561e-01 ,1.1992e-01 ,1.1954e-01 ,1.1572e-01 ,1.0845e-01 , & - &9.7278e-02 ,8.0126e-02 ,4.5426e-02 /) - kao(:, 1, 8, 8) = (/ & - &6.9306e-02 ,6.9494e-02 ,6.7600e-02 ,6.3267e-02 ,5.7322e-02 ,5.0091e-02 , & - &4.1741e-02 ,3.1433e-02 ,1.2053e-02 /) - kao(:, 2, 8, 8) = (/ & - &9.1357e-02 ,9.2237e-02 ,8.9335e-02 ,8.3857e-02 ,7.6444e-02 ,6.7451e-02 , & - &5.6474e-02 ,4.2659e-02 ,1.6127e-02 /) - kao(:, 3, 8, 8) = (/ & - &1.1801e-01 ,1.1955e-01 ,1.1588e-01 ,1.0908e-01 ,9.9881e-02 ,8.8243e-02 , & - &7.4146e-02 ,5.6165e-02 ,2.1600e-02 /) - kao(:, 4, 8, 8) = (/ & - &1.4950e-01 ,1.5197e-01 ,1.4749e-01 ,1.3894e-01 ,1.2736e-01 ,1.1271e-01 , & - &9.4953e-02 ,7.1880e-02 ,2.7972e-02 /) - kao(:, 5, 8, 8) = (/ & - &1.8646e-01 ,1.8942e-01 ,1.8392e-01 ,1.7346e-01 ,1.5924e-01 ,1.4113e-01 , & - &1.1856e-01 ,8.9580e-02 ,3.5566e-02 /) - kao(:, 1, 9, 8) = (/ & - &2.2096e-01 ,1.9931e-01 ,1.8126e-01 ,1.6106e-01 ,1.3834e-01 ,1.1283e-01 , & - &8.4790e-02 ,5.3465e-02 ,1.3124e-02 /) - kao(:, 2, 9, 8) = (/ & - &3.0111e-01 ,2.7269e-01 ,2.4731e-01 ,2.1828e-01 ,1.8616e-01 ,1.5202e-01 , & - &1.1457e-01 ,7.2434e-02 ,1.6890e-02 /) - kao(:, 3, 9, 8) = (/ & - &3.9547e-01 ,3.5811e-01 ,3.2380e-01 ,2.8636e-01 ,2.4465e-01 ,1.9968e-01 , & - &1.5075e-01 ,9.6319e-02 ,2.1030e-02 /) - kao(:, 4, 9, 8) = (/ & - &5.0622e-01 ,4.6008e-01 ,4.1701e-01 ,3.6806e-01 ,3.1477e-01 ,2.5740e-01 , & - &1.9504e-01 ,1.2517e-01 ,2.5567e-02 /) - kao(:, 5, 9, 8) = (/ & - &6.3970e-01 ,5.8282e-01 ,5.2753e-01 ,4.6589e-01 ,3.9821e-01 ,3.2594e-01 , & - &2.4744e-01 ,1.5892e-01 ,3.0707e-02 /) - kao(:, 1,10, 8) = (/ & - &7.9609e-01 ,6.9877e-01 ,6.0631e-01 ,5.1323e-01 ,4.2176e-01 ,3.3040e-01 , & - &2.3557e-01 ,1.3340e-01 ,1.8364e-02 /) - kao(:, 2,10, 8) = (/ & - &1.1185e+00 ,9.8179e-01 ,8.5163e-01 ,7.2111e-01 ,5.9292e-01 ,4.6368e-01 , & - &3.2777e-01 ,1.8494e-01 ,2.2731e-02 /) - kao(:, 3,10, 8) = (/ & - &1.4977e+00 ,1.3152e+00 ,1.1422e+00 ,9.6927e-01 ,7.9815e-01 ,6.2269e-01 , & - &4.4054e-01 ,2.4719e-01 ,2.7714e-02 /) - kao(:, 4,10, 8) = (/ & - &1.9588e+00 ,1.7209e+00 ,1.4963e+00 ,1.2699e+00 ,1.0440e+00 ,8.1231e-01 , & - &5.7215e-01 ,3.2165e-01 ,3.3541e-02 /) - kao(:, 5,10, 8) = (/ & - &2.4948e+00 ,2.1931e+00 ,1.9066e+00 ,1.6194e+00 ,1.3305e+00 ,1.0363e+00 , & - &7.3187e-01 ,4.1258e-01 ,3.9461e-02 /) - kao(:, 1,11, 8) = (/ & - &1.1786e+00 ,1.0326e+00 ,8.9194e-01 ,7.5040e-01 ,6.1100e-01 ,4.7311e-01 , & - &3.3100e-01 ,1.8184e-01 ,1.9912e-02 /) - kao(:, 2,11, 8) = (/ & - &1.6577e+00 ,1.4527e+00 ,1.2557e+00 ,1.0583e+00 ,8.6330e-01 ,6.6758e-01 , & - &4.6659e-01 ,2.5585e-01 ,2.4574e-02 /) - kao(:, 3,11, 8) = (/ & - &2.2529e+00 ,1.9745e+00 ,1.7078e+00 ,1.4395e+00 ,1.1743e+00 ,9.0668e-01 , & - &6.3142e-01 ,3.4477e-01 ,2.9771e-02 /) - kao(:, 4,11, 8) = (/ & - &2.9660e+00 ,2.6012e+00 ,2.2499e+00 ,1.8975e+00 ,1.5469e+00 ,1.1941e+00 , & - &8.2956e-01 ,4.5247e-01 ,3.5340e-02 /) - kao(:, 5,11, 8) = (/ & - &3.8252e+00 ,3.3560e+00 ,2.9025e+00 ,2.4493e+00 ,1.9962e+00 ,1.5364e+00 , & - &1.0662e+00 ,5.8207e-01 ,4.0740e-02 /) - kao(:, 1,12, 8) = (/ & - &1.3334e+00 ,1.1683e+00 ,1.0080e+00 ,8.4695e-01 ,6.8881e-01 ,5.3043e-01 , & - &3.6715e-01 ,1.9749e-01 ,1.8810e-02 /) - kao(:, 2,12, 8) = (/ & - &1.8510e+00 ,1.6221e+00 ,1.4015e+00 ,1.1795e+00 ,9.6045e-01 ,7.4002e-01 , & - &5.1281e-01 ,2.7717e-01 ,2.2865e-02 /) - kao(:, 3,12, 8) = (/ & - &2.5252e+00 ,2.2140e+00 ,1.9140e+00 ,1.6128e+00 ,1.3137e+00 ,1.0115e+00 , & - &6.9957e-01 ,3.7776e-01 ,2.7421e-02 /) - kao(:, 4,12, 8) = (/ & - &3.3724e+00 ,2.9581e+00 ,2.5564e+00 ,2.1530e+00 ,1.7520e+00 ,1.3471e+00 , & - &9.2947e-01 ,5.0112e-01 ,3.2393e-02 /) - kao(:, 5,12, 8) = (/ & - &4.3792e+00 ,3.8422e+00 ,3.3210e+00 ,2.7983e+00 ,2.2755e+00 ,1.7461e+00 , & - &1.2059e+00 ,6.4752e-01 ,3.7070e-02 /) - kao(:, 1,13, 8) = (/ & - &1.2116e+00 ,1.0627e+00 ,9.1758e-01 ,7.7277e-01 ,6.2996e-01 ,4.8487e-01 , & - &3.3536e-01 ,1.7964e-01 ,1.5468e-02 /) - kao(:, 2,13, 8) = (/ & - &1.6818e+00 ,1.4755e+00 ,1.2746e+00 ,1.0748e+00 ,8.7634e-01 ,6.7377e-01 , & - &4.6518e-01 ,2.4901e-01 ,1.8709e-02 /) - kao(:, 3,13, 8) = (/ & - &2.2861e+00 ,2.0071e+00 ,1.7358e+00 ,1.4644e+00 ,1.1940e+00 ,9.1837e-01 , & - &6.3513e-01 ,3.4226e-01 ,2.2464e-02 /) - kao(:, 4,13, 8) = (/ & - &3.0747e+00 ,2.7003e+00 ,2.3365e+00 ,1.9712e+00 ,1.6050e+00 ,1.2324e+00 , & - &8.5082e-01 ,4.5761e-01 ,2.6279e-02 /) - kao(:, 5,13, 8) = (/ & - &4.0462e+00 ,3.5547e+00 ,3.0752e+00 ,2.5948e+00 ,2.1107e+00 ,1.6188e+00 , & - &1.1159e+00 ,5.9825e-01 ,3.0261e-02 /) - kao(:, 1, 1, 9) = (/ & - &7.9433e-03 ,4.9696e-02 ,8.9399e-02 ,1.2891e-01 ,1.7031e-01 ,2.1327e-01 , & - &2.5635e-01 ,2.9834e-01 ,3.4005e-01 /) - kao(:, 2, 1, 9) = (/ & - &9.5773e-03 ,6.0610e-02 ,1.0882e-01 ,1.5730e-01 ,2.0827e-01 ,2.6089e-01 , & - &3.1374e-01 ,3.6559e-01 ,4.1584e-01 /) - kao(:, 3, 1, 9) = (/ & - &1.1355e-02 ,7.2723e-02 ,1.3048e-01 ,1.8917e-01 ,2.5096e-01 ,3.1435e-01 , & - &3.7828e-01 ,4.4211e-01 ,5.0107e-01 /) - kao(:, 4, 1, 9) = (/ & - &1.3277e-02 ,8.6204e-02 ,1.5483e-01 ,2.2520e-01 ,2.9933e-01 ,3.7480e-01 , & - &4.5117e-01 ,5.2865e-01 ,5.9762e-01 /) - kao(:, 5, 1, 9) = (/ & - &1.5326e-02 ,1.0116e-01 ,1.8188e-01 ,2.6559e-01 ,3.5380e-01 ,4.4327e-01 , & - &5.3402e-01 ,6.2664e-01 ,7.0640e-01 /) - kao(:, 1, 2, 9) = (/ & - &1.1776e-02 ,4.7878e-02 ,8.4972e-02 ,1.1878e-01 ,1.5366e-01 ,1.9061e-01 , & - &2.3033e-01 ,2.7211e-01 ,3.0314e-01 /) - kao(:, 2, 2, 9) = (/ & - &1.4294e-02 ,5.8956e-02 ,1.0416e-01 ,1.4559e-01 ,1.8871e-01 ,2.3457e-01 , & - &2.8358e-01 ,3.3549e-01 ,3.7290e-01 /) - kao(:, 3, 2, 9) = (/ & - &1.7066e-02 ,7.1345e-02 ,1.2565e-01 ,1.7589e-01 ,2.2857e-01 ,2.8471e-01 , & - &3.4402e-01 ,4.0658e-01 ,4.5272e-01 /) - kao(:, 4, 2, 9) = (/ & - &2.0089e-02 ,8.5201e-02 ,1.4972e-01 ,2.1022e-01 ,2.7384e-01 ,3.4170e-01 , & - &4.1272e-01 ,4.8704e-01 ,5.4350e-01 /) - kao(:, 5, 2, 9) = (/ & - &2.3307e-02 ,1.0059e-01 ,1.7602e-01 ,2.4834e-01 ,3.2442e-01 ,4.0570e-01 , & - &4.8998e-01 ,5.7844e-01 ,6.4523e-01 /) - kao(:, 1, 3, 9) = (/ & - &2.2348e-02 ,5.0240e-02 ,8.0496e-02 ,1.1072e-01 ,1.3814e-01 ,1.6488e-01 , & - &1.9401e-01 ,2.2881e-01 ,2.5470e-01 /) - kao(:, 2, 3, 9) = (/ & - &2.7442e-02 ,6.2748e-02 ,1.0008e-01 ,1.3702e-01 ,1.7047e-01 ,2.0379e-01 , & - &2.4015e-01 ,2.8371e-01 ,3.1563e-01 /) - kao(:, 3, 3, 9) = (/ & - &3.3066e-02 ,7.6711e-02 ,1.2229e-01 ,1.6700e-01 ,2.0740e-01 ,2.4849e-01 , & - &2.9339e-01 ,3.4685e-01 ,3.8604e-01 /) - kao(:, 4, 3, 9) = (/ & - &3.9269e-02 ,9.2366e-02 ,1.4749e-01 ,2.0103e-01 ,2.4924e-01 ,2.9944e-01 , & - &3.5443e-01 ,4.1958e-01 ,4.6663e-01 /) - kao(:, 5, 3, 9) = (/ & - &4.5933e-02 ,1.0972e-01 ,1.7562e-01 ,2.3869e-01 ,2.9592e-01 ,3.5671e-01 , & - &4.2354e-01 ,5.0205e-01 ,5.5762e-01 /) - kao(:, 1, 4, 9) = (/ & - &4.2106e-02 ,6.4369e-02 ,8.4555e-02 ,1.0542e-01 ,1.2690e-01 ,1.4750e-01 , & - &1.6487e-01 ,1.8576e-01 ,2.0651e-01 /) - kao(:, 2, 4, 9) = (/ & - &5.2576e-02 ,8.1026e-02 ,1.0683e-01 ,1.3280e-01 ,1.5950e-01 ,1.8491e-01 , & - &2.0655e-01 ,2.3307e-01 ,2.5966e-01 /) - kao(:, 3, 4, 9) = (/ & - &6.4079e-02 ,9.9622e-02 ,1.3194e-01 ,1.6392e-01 ,1.9672e-01 ,2.2769e-01 , & - &2.5451e-01 ,2.8781e-01 ,3.2142e-01 /) - kao(:, 4, 4, 9) = (/ & - &7.6781e-02 ,1.2036e-01 ,1.6040e-01 ,1.9955e-01 ,2.3909e-01 ,2.7584e-01 , & - &3.0872e-01 ,3.5017e-01 ,3.9149e-01 /) - kao(:, 5, 4, 9) = (/ & - &9.0605e-02 ,1.4314e-01 ,1.9223e-01 ,2.3943e-01 ,2.8645e-01 ,3.2911e-01 , & - &3.6945e-01 ,4.2071e-01 ,4.7061e-01 /) - kao(:, 1, 5, 9) = (/ & - &7.1850e-02 ,8.9617e-02 ,1.0358e-01 ,1.1417e-01 ,1.2410e-01 ,1.3445e-01 , & - &1.4500e-01 ,1.5289e-01 ,1.6393e-01 /) - kao(:, 2, 5, 9) = (/ & - &9.1160e-02 ,1.1411e-01 ,1.3218e-01 ,1.4610e-01 ,1.5890e-01 ,1.7194e-01 , & - &1.8487e-01 ,1.9440e-01 ,2.0899e-01 /) - kao(:, 3, 5, 9) = (/ & - &1.1266e-01 ,1.4163e-01 ,1.6452e-01 ,1.8216e-01 ,1.9856e-01 ,2.1504e-01 , & - &2.3093e-01 ,2.4255e-01 ,2.6179e-01 /) - kao(:, 4, 5, 9) = (/ & - &1.3642e-01 ,1.7249e-01 ,2.0078e-01 ,2.2297e-01 ,2.4396e-01 ,2.6433e-01 , & - &2.8347e-01 ,2.9753e-01 ,3.2213e-01 /) - kao(:, 5, 5, 9) = (/ & - &1.6239e-01 ,2.0660e-01 ,2.4114e-01 ,2.6894e-01 ,2.9484e-01 ,3.1958e-01 , & - &3.4207e-01 ,3.5958e-01 ,3.9095e-01 /) - kao(:, 1, 6, 9) = (/ & - &1.1140e-01 ,1.2144e-01 ,1.3218e-01 ,1.3718e-01 ,1.3653e-01 ,1.3402e-01 , & - &1.3174e-01 ,1.2946e-01 ,1.2677e-01 /) - kao(:, 2, 6, 9) = (/ & - &1.4420e-01 ,1.5827e-01 ,1.7119e-01 ,1.7776e-01 ,1.7742e-01 ,1.7454e-01 , & - &1.7134e-01 ,1.6760e-01 ,1.6399e-01 /) - kao(:, 3, 6, 9) = (/ & - &1.8124e-01 ,2.0002e-01 ,2.1589e-01 ,2.2389e-01 ,2.2423e-01 ,2.2127e-01 , & - &2.1711e-01 ,2.1204e-01 ,2.0793e-01 /) - kao(:, 4, 6, 9) = (/ & - &2.2248e-01 ,2.4636e-01 ,2.6609e-01 ,2.7594e-01 ,2.7715e-01 ,2.7479e-01 , & - &2.7017e-01 ,2.6283e-01 ,2.5856e-01 /) - kao(:, 5, 6, 9) = (/ & - &2.6774e-01 ,2.9748e-01 ,3.2183e-01 ,3.3450e-01 ,3.3675e-01 ,3.3499e-01 , & - &3.3006e-01 ,3.2020e-01 ,3.1680e-01 /) - kao(:, 1, 7, 9) = (/ & - &1.7732e-01 ,1.7534e-01 ,1.7803e-01 ,1.7714e-01 ,1.7022e-01 ,1.5702e-01 , & - &1.3821e-01 ,1.1726e-01 ,9.2624e-02 /) - kao(:, 2, 7, 9) = (/ & - &2.3477e-01 ,2.3316e-01 ,2.3664e-01 ,2.3403e-01 ,2.2497e-01 ,2.0771e-01 , & - &1.8285e-01 ,1.5521e-01 ,1.2312e-01 /) - kao(:, 3, 7, 9) = (/ & - &3.0054e-01 ,2.9947e-01 ,3.0371e-01 ,2.9989e-01 ,2.8797e-01 ,2.6596e-01 , & - &2.3476e-01 ,1.9945e-01 ,1.5929e-01 /) - kao(:, 4, 7, 9) = (/ & - &3.7459e-01 ,3.7495e-01 ,3.7937e-01 ,3.7465e-01 ,3.5915e-01 ,3.3235e-01 , & - &2.9471e-01 ,2.5108e-01 ,2.0370e-01 /) - kao(:, 5, 7, 9) = (/ & - &4.5653e-01 ,4.5857e-01 ,4.6346e-01 ,4.5781e-01 ,4.3887e-01 ,4.0748e-01 , & - &3.6268e-01 ,3.0976e-01 ,2.5195e-01 /) - kao(:, 1, 8, 9) = (/ & - &3.3219e-01 ,3.0467e-01 ,2.8618e-01 ,2.6721e-01 ,2.4601e-01 ,2.1811e-01 , & - &1.8145e-01 ,1.3269e-01 ,6.6401e-02 /) - kao(:, 2, 8, 9) = (/ & - &4.4950e-01 ,4.1374e-01 ,3.8999e-01 ,3.6461e-01 ,3.3388e-01 ,2.9490e-01 , & - &2.4508e-01 ,1.7935e-01 ,9.0026e-02 /) - kao(:, 3, 8, 9) = (/ & - &5.8717e-01 ,5.4166e-01 ,5.1100e-01 ,4.7736e-01 ,4.3579e-01 ,3.8461e-01 , & - &3.1925e-01 ,2.3358e-01 ,1.1833e-01 /) - kao(:, 4, 8, 9) = (/ & - &7.4406e-01 ,6.8778e-01 ,6.4996e-01 ,6.0622e-01 ,5.5241e-01 ,4.8728e-01 , & - &4.0419e-01 ,2.9657e-01 ,1.5189e-01 /) - kao(:, 5, 8, 9) = (/ & - &9.1907e-01 ,8.5125e-01 ,8.0569e-01 ,7.5012e-01 ,6.8369e-01 ,6.0185e-01 , & - &4.9995e-01 ,3.6832e-01 ,1.9101e-01 /) - kao(:, 1, 9, 9) = (/ & - &1.1485e+00 ,1.0089e+00 ,8.7880e-01 ,7.5762e-01 ,6.3622e-01 ,5.1377e-01 , & - &3.9068e-01 ,2.5323e-01 ,5.4057e-02 /) - kao(:, 2, 9, 9) = (/ & - &1.5919e+00 ,1.3983e+00 ,1.2193e+00 ,1.0539e+00 ,8.8759e-01 ,7.1827e-01 , & - &5.4603e-01 ,3.5236e-01 ,7.3567e-02 /) - kao(:, 3, 9, 9) = (/ & - &2.1202e+00 ,1.8629e+00 ,1.6282e+00 ,1.4084e+00 ,1.1875e+00 ,9.6283e-01 , & - &7.2992e-01 ,4.6911e-01 ,9.7269e-02 /) - kao(:, 4, 9, 9) = (/ & - &2.7354e+00 ,2.4050e+00 ,2.1038e+00 ,1.8214e+00 ,1.5366e+00 ,1.2471e+00 , & - &9.4177e-01 ,6.0391e-01 ,1.2338e-01 /) - kao(:, 5, 9, 9) = (/ & - &3.4317e+00 ,3.0176e+00 ,2.6421e+00 ,2.2877e+00 ,1.9310e+00 ,1.5677e+00 , & - &1.1814e+00 ,7.5635e-01 ,1.5353e-01 /) - kao(:, 1,10, 9) = (/ & - &4.4436e+00 ,3.8882e+00 ,3.3348e+00 ,2.7888e+00 ,2.2477e+00 ,1.7134e+00 , & - &1.1871e+00 ,6.5782e-01 ,7.0663e-02 /) - kao(:, 2,10, 9) = (/ & - &6.2997e+00 ,5.5124e+00 ,4.7288e+00 ,3.9559e+00 ,3.1897e+00 ,2.4334e+00 , & - &1.6915e+00 ,9.3954e-01 ,8.7418e-02 /) - kao(:, 3,10, 9) = (/ & - &8.5619e+00 ,7.4925e+00 ,6.4279e+00 ,5.3771e+00 ,4.3365e+00 ,3.3136e+00 , & - &2.3060e+00 ,1.2843e+00 ,1.0436e-01 /) - kao(:, 4,10, 9) = (/ & - &1.1219e+01 ,9.8180e+00 ,8.4228e+00 ,7.0486e+00 ,5.6898e+00 ,4.3532e+00 , & - &3.0319e+00 ,1.6916e+00 ,1.2593e-01 /) - kao(:, 5,10, 9) = (/ & - &1.4295e+01 ,1.2510e+01 ,1.0734e+01 ,8.9819e+00 ,7.2530e+00 ,5.5514e+00 , & - &3.8643e+00 ,2.1564e+00 ,1.5004e-01 /) - kao(:, 1,11, 9) = (/ & - &7.0050e+00 ,6.1296e+00 ,5.2549e+00 ,4.3868e+00 ,3.5242e+00 ,2.6669e+00 , & - &1.8245e+00 ,9.8168e-01 ,8.5745e-02 /) - kao(:, 2,11, 9) = (/ & - &9.9554e+00 ,8.7114e+00 ,7.4687e+00 ,6.2351e+00 ,5.0098e+00 ,3.7942e+00 , & - &2.5980e+00 ,1.4001e+00 ,1.0478e-01 /) - kao(:, 3,11, 9) = (/ & - &1.3533e+01 ,1.1842e+01 ,1.0152e+01 ,8.4771e+00 ,6.8123e+00 ,5.1640e+00 , & - &3.5405e+00 ,1.9111e+00 ,1.2573e-01 /) - kao(:, 4,11, 9) = (/ & - &1.7771e+01 ,1.5551e+01 ,1.3333e+01 ,1.1134e+01 ,8.9512e+00 ,6.7876e+00 , & - &4.6577e+00 ,2.5172e+00 ,1.4855e-01 /) - kao(:, 5,11, 9) = (/ & - &2.2680e+01 ,1.9846e+01 ,1.7019e+01 ,1.4214e+01 ,1.1430e+01 ,8.6745e+00 , & - &5.9538e+00 ,3.2175e+00 ,1.7203e-01 /) - kao(:, 1,12, 9) = (/ & - &8.1047e+00 ,7.0920e+00 ,6.0802e+00 ,5.0761e+00 ,4.0767e+00 ,3.0841e+00 , & - &2.1058e+00 ,1.1266e+00 ,9.0852e-02 /) - kao(:, 2,12, 9) = (/ & - &1.1567e+01 ,1.0121e+01 ,8.6775e+00 ,7.2441e+00 ,5.8181e+00 ,4.4027e+00 , & - &3.0080e+00 ,1.6091e+00 ,1.1081e-01 /) - kao(:, 3,12, 9) = (/ & - &1.5756e+01 ,1.3787e+01 ,1.1820e+01 ,9.8684e+00 ,7.9263e+00 ,6.0014e+00 , & - &4.1030e+00 ,2.1969e+00 ,1.3256e-01 /) - kao(:, 4,12, 9) = (/ & - &2.0731e+01 ,1.8141e+01 ,1.5554e+01 ,1.2989e+01 ,1.0436e+01 ,7.9047e+00 , & - &5.4071e+00 ,2.8962e+00 ,1.5690e-01 /) - kao(:, 5,12, 9) = (/ & - &2.6483e+01 ,2.3176e+01 ,1.9872e+01 ,1.6594e+01 ,1.3339e+01 ,1.0111e+01 , & - &6.9150e+00 ,3.7095e+00 ,1.8186e-01 /) - kao(:, 1,13, 9) = (/ & - &7.4699e+00 ,6.5364e+00 ,5.6062e+00 ,4.6835e+00 ,3.7650e+00 ,2.8555e+00 , & - &1.9560e+00 ,1.0515e+00 ,8.5273e-02 /) - kao(:, 2,13, 9) = (/ & - &1.0680e+01 ,9.3454e+00 ,8.0165e+00 ,6.6976e+00 ,5.3854e+00 ,4.0877e+00 , & - &2.8036e+00 ,1.5078e+00 ,1.0411e-01 /) - kao(:, 3,13, 9) = (/ & - &1.4620e+01 ,1.2793e+01 ,1.0973e+01 ,9.1678e+00 ,7.3735e+00 ,5.5972e+00 , & - &3.8382e+00 ,2.0618e+00 ,1.2386e-01 /) - kao(:, 4,13, 9) = (/ & - &1.9258e+01 ,1.6852e+01 ,1.4455e+01 ,1.2079e+01 ,9.7197e+00 ,7.3817e+00 , & - &5.0639e+00 ,2.7225e+00 ,1.4610e-01 /) - kao(:, 5,13, 9) = (/ & - &2.4621e+01 ,2.1546e+01 ,1.8485e+01 ,1.5448e+01 ,1.2432e+01 ,9.4454e+00 , & - &6.4771e+00 ,3.4853e+00 ,1.7007e-01 /) - kao(:, 1, 1,10) = (/ & - &1.3879e-02 ,1.0986e-01 ,1.9192e-01 ,2.8700e-01 ,3.8129e-01 ,4.7527e-01 , & - &5.7067e-01 ,6.6779e-01 ,7.6243e-01 /) - kao(:, 2, 1,10) = (/ & - &1.6954e-02 ,1.3303e-01 ,2.3564e-01 ,3.5200e-01 ,4.6702e-01 ,5.8054e-01 , & - &6.9523e-01 ,8.1372e-01 ,9.3367e-01 /) - kao(:, 3, 1,10) = (/ & - &2.0369e-02 ,1.5906e-01 ,2.8523e-01 ,4.2640e-01 ,5.6627e-01 ,7.0405e-01 , & - &8.3748e-01 ,9.6604e-01 ,1.1321e+00 /) - kao(:, 4, 1,10) = (/ & - &2.4061e-02 ,1.8742e-01 ,3.4065e-01 ,5.0987e-01 ,6.7810e-01 ,8.4492e-01 , & - &1.0078e+00 ,1.1403e+00 ,1.3558e+00 /) - kao(:, 5, 1,10) = (/ & - &2.7911e-02 ,2.1680e-01 ,4.0347e-01 ,6.0365e-01 ,8.0163e-01 ,9.9663e-01 , & - &1.1842e+00 ,1.3430e+00 ,1.6028e+00 /) - kao(:, 1, 2,10) = (/ & - &2.2158e-02 ,1.1276e-01 ,1.8891e-01 ,2.7518e-01 ,3.6524e-01 ,4.5317e-01 , & - &5.3652e-01 ,6.1296e-01 ,7.3020e-01 /) - kao(:, 2, 2,10) = (/ & - &2.7256e-02 ,1.3808e-01 ,2.3100e-01 ,3.4051e-01 ,4.5180e-01 ,5.6015e-01 , & - &6.6160e-01 ,7.4973e-01 ,9.0314e-01 /) - kao(:, 3, 2,10) = (/ & - &3.2742e-02 ,1.6645e-01 ,2.7575e-01 ,4.1007e-01 ,5.4427e-01 ,6.7555e-01 , & - &8.0050e-01 ,9.1019e-01 ,1.0879e+00 /) - kao(:, 4, 2,10) = (/ & - &3.8593e-02 ,1.9807e-01 ,3.2475e-01 ,4.8552e-01 ,6.4531e-01 ,8.0341e-01 , & - &9.5786e-01 ,1.0994e+00 ,1.2898e+00 /) - kao(:, 5, 2,10) = (/ & - &4.4713e-02 ,2.3139e-01 ,3.8401e-01 ,5.7431e-01 ,7.6329e-01 ,9.5026e-01 , & - &1.1317e+00 ,1.3007e+00 ,1.5256e+00 /) - kao(:, 1, 3,10) = (/ & - &4.4889e-02 ,1.1945e-01 ,1.9910e-01 ,2.6592e-01 ,3.2716e-01 ,4.0820e-01 , & - &4.8832e-01 ,5.6450e-01 ,6.5333e-01 /) - kao(:, 2, 3,10) = (/ & - &5.6096e-02 ,1.4847e-01 ,2.4845e-01 ,3.3071e-01 ,4.1171e-01 ,5.1418e-01 , & - &6.1578e-01 ,7.1081e-01 ,8.2224e-01 /) - kao(:, 3, 3,10) = (/ & - &6.8702e-02 ,1.8161e-01 ,3.0124e-01 ,3.9617e-01 ,5.0089e-01 ,6.2554e-01 , & - &7.4933e-01 ,8.6662e-01 ,1.0003e+00 /) - kao(:, 4, 3,10) = (/ & - &8.1949e-02 ,2.1813e-01 ,3.5788e-01 ,4.6675e-01 ,6.0112e-01 ,7.4982e-01 , & - &8.9722e-01 ,1.0369e+00 ,1.1996e+00 /) - kao(:, 5, 3,10) = (/ & - &9.5752e-02 ,2.5792e-01 ,4.1860e-01 ,5.4742e-01 ,7.1669e-01 ,8.9255e-01 , & - &1.0648e+00 ,1.2234e+00 ,1.4293e+00 /) - kao(:, 1, 4,10) = (/ & - &9.2779e-02 ,1.3647e-01 ,2.0374e-01 ,2.6880e-01 ,3.2474e-01 ,3.6630e-01 , & - &4.2915e-01 ,4.9644e-01 ,5.7357e-01 /) - kao(:, 2, 4,10) = (/ & - &1.1604e-01 ,1.7477e-01 ,2.5924e-01 ,3.4288e-01 ,4.1143e-01 ,4.5661e-01 , & - &5.3933e-01 ,6.2792e-01 ,7.1853e-01 /) - kao(:, 3, 4,10) = (/ & - &1.4325e-01 ,2.1810e-01 ,3.2204e-01 ,4.2345e-01 ,5.0270e-01 ,5.5390e-01 , & - &6.5839e-01 ,7.6862e-01 ,8.7526e-01 /) - kao(:, 4, 4,10) = (/ & - &1.7320e-01 ,2.6694e-01 ,3.8938e-01 ,5.0945e-01 ,6.0406e-01 ,6.6936e-01 , & - &8.0058e-01 ,9.3405e-01 ,1.0639e+00 /) - kao(:, 5, 4,10) = (/ & - &2.0528e-01 ,3.2153e-01 ,4.6268e-01 ,6.0392e-01 ,7.1636e-01 ,8.0678e-01 , & - &9.6596e-01 ,1.1248e+00 ,1.2848e+00 /) - kao(:, 1, 5,10) = (/ & - &1.7241e-01 ,1.8815e-01 ,2.2088e-01 ,2.6810e-01 ,3.2220e-01 ,3.6810e-01 , & - &3.9585e-01 ,4.3476e-01 ,4.9559e-01 /) - kao(:, 2, 5,10) = (/ & - &2.1928e-01 ,2.4297e-01 ,2.8762e-01 ,3.4907e-01 ,4.1506e-01 ,4.6919e-01 , & - &4.9756e-01 ,5.5222e-01 ,6.2884e-01 /) - kao(:, 3, 5,10) = (/ & - &2.7265e-01 ,3.0607e-01 ,3.6483e-01 ,4.4370e-01 ,5.1761e-01 ,5.7690e-01 , & - &6.0530e-01 ,6.7866e-01 ,7.7290e-01 /) - kao(:, 4, 5,10) = (/ & - &3.3288e-01 ,3.7610e-01 ,4.5166e-01 ,5.4662e-01 ,6.2951e-01 ,6.9865e-01 , & - &7.2973e-01 ,8.2842e-01 ,9.4575e-01 /) - kao(:, 5, 5,10) = (/ & - &3.9915e-01 ,4.5195e-01 ,5.4707e-01 ,6.6103e-01 ,7.5773e-01 ,8.3891e-01 , & - &8.7097e-01 ,1.0005e+00 ,1.1404e+00 /) - kao(:, 1, 6,10) = (/ & - &2.9778e-01 ,2.8967e-01 ,2.9242e-01 ,2.9076e-01 ,3.1606e-01 ,3.5216e-01 , & - &3.7514e-01 ,3.6360e-01 ,4.0286e-01 /) - kao(:, 2, 6,10) = (/ & - &3.8364e-01 ,3.7347e-01 ,3.8384e-01 ,3.8402e-01 ,4.1811e-01 ,4.6141e-01 , & - &4.8908e-01 ,4.6937e-01 ,5.2349e-01 /) - kao(:, 3, 6,10) = (/ & - &4.8196e-01 ,4.7366e-01 ,4.8805e-01 ,4.9747e-01 ,5.3761e-01 ,5.8138e-01 , & - &6.1239e-01 ,5.8662e-01 ,6.5890e-01 /) - kao(:, 4, 6,10) = (/ & - &5.9004e-01 ,5.9246e-01 ,6.0698e-01 ,6.2535e-01 ,6.7125e-01 ,7.1432e-01 , & - &7.4926e-01 ,7.2627e-01 ,8.2202e-01 /) - kao(:, 5, 6,10) = (/ & - &7.1225e-01 ,7.2336e-01 ,7.3969e-01 ,7.6299e-01 ,8.2248e-01 ,8.6951e-01 , & - &9.0679e-01 ,8.7991e-01 ,1.0003e+00 /) - kao(:, 1, 7,10) = (/ & - &5.2983e-01 ,4.8709e-01 ,4.4813e-01 ,4.1883e-01 ,3.8710e-01 ,3.5910e-01 , & - &3.5198e-01 ,3.4364e-01 ,3.2708e-01 /) - kao(:, 2, 7,10) = (/ & - &6.9820e-01 ,6.4182e-01 ,5.9773e-01 ,5.6199e-01 ,5.1585e-01 ,4.8198e-01 , & - &4.7538e-01 ,4.5593e-01 ,4.2838e-01 /) - kao(:, 3, 7,10) = (/ & - &8.9166e-01 ,8.2011e-01 ,7.7520e-01 ,7.2195e-01 ,6.6977e-01 ,6.2908e-01 , & - &6.1720e-01 ,5.8358e-01 ,5.4876e-01 /) - kao(:, 4, 7,10) = (/ & - &1.1048e+00 ,1.0150e+00 ,9.7493e-01 ,9.0555e-01 ,8.5261e-01 ,7.9496e-01 , & - &7.7495e-01 ,7.2954e-01 ,6.9328e-01 /) - kao(:, 5, 7,10) = (/ & - &1.3386e+00 ,1.2295e+00 ,1.1950e+00 ,1.1151e+00 ,1.0543e+00 ,9.8064e-01 , & - &9.5591e-01 ,8.9484e-01 ,8.5404e-01 /) - kao(:, 1, 8,10) = (/ & - &1.0881e+00 ,9.5225e-01 ,8.5699e-01 ,7.4043e-01 ,6.3719e-01 ,5.4699e-01 , & - &4.4366e-01 ,3.3722e-01 ,2.5365e-01 /) - kao(:, 2, 8,10) = (/ & - &1.4729e+00 ,1.2892e+00 ,1.1603e+00 ,1.0057e+00 ,8.7735e-01 ,7.4624e-01 , & - &6.0685e-01 ,4.5839e-01 ,3.4968e-01 /) - kao(:, 3, 8,10) = (/ & - &1.9193e+00 ,1.6816e+00 ,1.5156e+00 ,1.3265e+00 ,1.1534e+00 ,9.7741e-01 , & - &7.9951e-01 ,6.0809e-01 ,4.5275e-01 /) - kao(:, 4, 8,10) = (/ & - &2.4196e+00 ,2.1220e+00 ,1.9097e+00 ,1.6942e+00 ,1.4693e+00 ,1.2439e+00 , & - &1.0194e+00 ,7.8139e-01 ,5.7536e-01 /) - kao(:, 5, 8,10) = (/ & - &2.9662e+00 ,2.6064e+00 ,2.3390e+00 ,2.0966e+00 ,1.8122e+00 ,1.5517e+00 , & - &1.2698e+00 ,9.8175e-01 ,7.1420e-01 /) - kao(:, 1, 9,10) = (/ & - &4.0693e+00 ,3.5609e+00 ,3.0521e+00 ,2.5470e+00 ,2.0946e+00 ,1.6231e+00 , & - &1.1342e+00 ,6.9341e-01 ,2.3254e-01 /) - kao(:, 2, 9,10) = (/ & - &5.6525e+00 ,4.9459e+00 ,4.2396e+00 ,3.5367e+00 ,2.9143e+00 ,2.2533e+00 , & - &1.5867e+00 ,9.6567e-01 ,2.9706e-01 /) - kao(:, 3, 9,10) = (/ & - &7.5336e+00 ,6.5921e+00 ,5.6502e+00 ,4.7197e+00 ,3.8915e+00 ,3.0030e+00 , & - &2.1420e+00 ,1.2862e+00 ,3.6402e-01 /) - kao(:, 4, 9,10) = (/ & - &9.6696e+00 ,8.4608e+00 ,7.2526e+00 ,6.0675e+00 ,4.9886e+00 ,3.8558e+00 , & - &2.7779e+00 ,1.6618e+00 ,4.0961e-01 /) - kao(:, 5, 9,10) = (/ & - &1.2059e+01 ,1.0552e+01 ,9.0447e+00 ,7.5858e+00 ,6.2136e+00 ,4.8233e+00 , & - &3.4799e+00 ,2.0915e+00 ,3.7531e-01 /) - kao(:, 1,10,10) = (/ & - &1.7088e+01 ,1.4952e+01 ,1.2816e+01 ,1.0681e+01 ,8.5444e+00 ,6.4081e+00 , & - &4.3169e+00 ,2.2612e+00 ,1.5325e-01 /) - kao(:, 2,10,10) = (/ & - &2.4265e+01 ,2.1232e+01 ,1.8199e+01 ,1.5167e+01 ,1.2132e+01 ,9.0996e+00 , & - &6.1194e+00 ,3.2115e+00 ,2.0907e-01 /) - kao(:, 3,10,10) = (/ & - &3.2859e+01 ,2.8752e+01 ,2.4646e+01 ,2.0537e+01 ,1.6430e+01 ,1.2323e+01 , & - &8.2885e+00 ,4.3528e+00 ,2.8093e-01 /) - kao(:, 4,10,10) = (/ & - &4.2869e+01 ,3.7512e+01 ,3.2153e+01 ,2.6795e+01 ,2.1435e+01 ,1.6077e+01 , & - &1.0833e+01 ,5.6764e+00 ,3.4638e-01 /) - kao(:, 5,10,10) = (/ & - &5.4098e+01 ,4.7336e+01 ,4.0575e+01 ,3.3816e+01 ,2.7052e+01 ,2.0291e+01 , & - &1.3707e+01 ,7.1952e+00 ,4.8935e-01 /) - kao(:, 1,11,10) = (/ & - &2.9317e+01 ,2.5652e+01 ,2.1987e+01 ,1.8324e+01 ,1.4658e+01 ,1.0994e+01 , & - &7.3313e+00 ,3.7877e+00 ,2.2554e-01 /) - kao(:, 2,11,10) = (/ & - &4.1549e+01 ,3.6355e+01 ,3.1162e+01 ,2.5968e+01 ,2.0775e+01 ,1.5581e+01 , & - &1.0388e+01 ,5.3868e+00 ,2.3983e-01 /) - kao(:, 3,11,10) = (/ & - &5.6191e+01 ,4.9168e+01 ,4.2143e+01 ,3.5117e+01 ,2.8096e+01 ,2.1071e+01 , & - &1.4052e+01 ,7.2903e+00 ,2.8347e-01 /) - kao(:, 4,11,10) = (/ & - &7.3162e+01 ,6.4016e+01 ,5.4871e+01 ,4.5729e+01 ,3.6583e+01 ,2.7439e+01 , & - &1.8309e+01 ,9.4965e+00 ,3.4363e-01 /) - kao(:, 5,11,10) = (/ & - &9.2126e+01 ,8.0611e+01 ,6.9095e+01 ,5.7582e+01 ,4.6068e+01 ,3.4554e+01 , & - &2.3073e+01 ,1.1954e+01 ,4.6470e-01 /) - kao(:, 1,12,10) = (/ & - &3.6684e+01 ,3.2099e+01 ,2.7514e+01 ,2.2927e+01 ,1.8342e+01 ,1.3757e+01 , & - &9.1743e+00 ,4.7217e+00 ,2.6068e-01 /) - kao(:, 2,12,10) = (/ & - &5.1868e+01 ,4.5387e+01 ,3.8901e+01 ,3.2419e+01 ,2.5934e+01 ,1.9452e+01 , & - &1.2967e+01 ,6.6916e+00 ,2.7916e-01 /) - kao(:, 3,12,10) = (/ & - &7.0081e+01 ,6.1322e+01 ,5.2561e+01 ,4.3801e+01 ,3.5043e+01 ,2.6282e+01 , & - &1.7526e+01 ,9.0530e+00 ,3.3145e-01 /) - kao(:, 4,12,10) = (/ & - &9.0957e+01 ,7.9591e+01 ,6.8227e+01 ,5.6859e+01 ,4.5488e+01 ,3.4114e+01 , & - &2.2760e+01 ,1.1751e+01 ,3.6053e-01 /) - kao(:, 5,12,10) = (/ & - &1.1478e+02 ,1.0044e+02 ,8.6086e+01 ,7.1743e+01 ,5.7394e+01 ,4.3046e+01 , & - &2.8737e+01 ,1.4814e+01 ,4.5144e-01 /) - kao(:, 1,13,10) = (/ & - &3.5965e+01 ,3.1472e+01 ,2.6975e+01 ,2.2479e+01 ,1.7984e+01 ,1.3488e+01 , & - &9.0232e+00 ,4.6648e+00 ,2.4705e-01 /) - kao(:, 2,13,10) = (/ & - &5.0800e+01 ,4.4451e+01 ,3.8101e+01 ,3.1752e+01 ,2.5403e+01 ,1.9053e+01 , & - &1.2739e+01 ,6.5982e+00 ,2.8941e-01 /) - kao(:, 3,13,10) = (/ & - &6.8393e+01 ,5.9846e+01 ,5.1296e+01 ,4.2746e+01 ,3.4199e+01 ,2.5650e+01 , & - &1.7151e+01 ,8.8890e+00 ,3.3776e-01 /) - kao(:, 4,13,10) = (/ & - &8.8957e+01 ,7.7837e+01 ,6.6721e+01 ,5.5604e+01 ,4.4485e+01 ,3.3364e+01 , & - &2.2331e+01 ,1.1554e+01 ,3.9400e-01 /) - kao(:, 5,13,10) = (/ & - &1.1248e+02 ,9.8422e+01 ,8.4359e+01 ,7.0296e+01 ,5.6240e+01 ,4.2182e+01 , & - &2.8274e+01 ,1.4614e+01 ,4.6294e-01 /) - kao(:, 1, 1,11) = (/ & - &2.0991e-02 ,1.4510e-01 ,2.7530e-01 ,4.1253e-01 ,5.4888e-01 ,6.8317e-01 , & - &8.1040e-01 ,9.0204e-01 ,1.0977e+00 /) - kao(:, 2, 1,11) = (/ & - &2.6377e-02 ,1.7420e-01 ,3.3534e-01 ,5.0284e-01 ,6.6978e-01 ,8.3508e-01 , & - &9.9362e-01 ,1.1152e+00 ,1.3395e+00 /) - kao(:, 3, 1,11) = (/ & - &3.2301e-02 ,2.0470e-01 ,4.0014e-01 ,5.9936e-01 ,7.9730e-01 ,9.9294e-01 , & - &1.1840e+00 ,1.3371e+00 ,1.5943e+00 /) - kao(:, 4, 1,11) = (/ & - &3.8610e-02 ,2.3990e-01 ,4.7445e-01 ,7.0939e-01 ,9.4186e-01 ,1.1687e+00 , & - &1.3842e+00 ,1.5657e+00 ,1.8832e+00 /) - kao(:, 5, 1,11) = (/ & - &4.5285e-02 ,2.8044e-01 ,5.5866e-01 ,8.3454e-01 ,1.1074e+00 ,1.3742e+00 , & - &1.6243e+00 ,1.8087e+00 ,2.2141e+00 /) - kao(:, 1, 2,11) = (/ & - &3.0334e-02 ,1.5806e-01 ,2.5391e-01 ,3.8056e-01 ,5.0695e-01 ,6.3318e-01 , & - &7.5908e-01 ,8.7813e-01 ,1.0138e+00 /) - kao(:, 2, 2,11) = (/ & - &3.8224e-02 ,1.9234e-01 ,3.1173e-01 ,4.6706e-01 ,6.2209e-01 ,7.7707e-01 , & - &9.3334e-01 ,1.0857e+00 ,1.2438e+00 /) - kao(:, 3, 2,11) = (/ & - &4.7042e-02 ,2.2793e-01 ,3.7775e-01 ,5.6573e-01 ,7.5275e-01 ,9.3856e-01 , & - &1.1227e+00 ,1.3034e+00 ,1.5049e+00 /) - kao(:, 4, 2,11) = (/ & - &5.6790e-02 ,2.6663e-01 ,4.5515e-01 ,6.8101e-01 ,9.0489e-01 ,1.1244e+00 , & - &1.3363e+00 ,1.5352e+00 ,1.8090e+00 /) - kao(:, 5, 2,11) = (/ & - &6.7198e-02 ,3.0909e-01 ,5.3855e-01 ,8.0620e-01 ,1.0720e+00 ,1.3339e+00 , & - &1.5872e+00 ,1.8075e+00 ,2.1432e+00 /) - kao(:, 1, 3,11) = (/ & - &5.8386e-02 ,1.7533e-01 ,2.7134e-01 ,3.4280e-01 ,4.5327e-01 ,5.6550e-01 , & - &6.7606e-01 ,7.8244e-01 ,9.0646e-01 /) - kao(:, 2, 3,11) = (/ & - &7.4136e-02 ,2.1912e-01 ,3.3311e-01 ,4.2266e-01 ,5.6203e-01 ,7.0075e-01 , & - &8.3707e-01 ,9.6959e-01 ,1.1236e+00 /) - kao(:, 3, 3,11) = (/ & - &9.1573e-02 ,2.6509e-01 ,4.0096e-01 ,5.1730e-01 ,6.8812e-01 ,8.5747e-01 , & - &1.0237e+00 ,1.1823e+00 ,1.3753e+00 /) - kao(:, 4, 3,11) = (/ & - &1.1115e-01 ,3.1410e-01 ,4.7626e-01 ,6.2447e-01 ,8.3118e-01 ,1.0365e+00 , & - &1.2383e+00 ,1.4280e+00 ,1.6615e+00 /) - kao(:, 5, 3,11) = (/ & - &1.3245e-01 ,3.6725e-01 ,5.5683e-01 ,7.4336e-01 ,9.8988e-01 ,1.2355e+00 , & - &1.4780e+00 ,1.7132e+00 ,1.9788e+00 /) - kao(:, 1, 4,11) = (/ & - &1.1641e-01 ,1.9770e-01 ,2.9439e-01 ,3.7525e-01 ,4.3722e-01 ,5.0094e-01 , & - &6.0009e-01 ,6.9731e-01 ,8.0196e-01 /) - kao(:, 2, 4,11) = (/ & - &1.4966e-01 ,2.5765e-01 ,3.7252e-01 ,4.6834e-01 ,5.4216e-01 ,6.3606e-01 , & - &7.6075e-01 ,8.7975e-01 ,1.0184e+00 /) - kao(:, 3, 4,11) = (/ & - &1.8710e-01 ,3.2245e-01 ,4.5679e-01 ,5.7205e-01 ,6.6194e-01 ,7.9151e-01 , & - &9.4643e-01 ,1.0919e+00 ,1.2671e+00 /) - kao(:, 4, 4,11) = (/ & - &2.2853e-01 ,3.9201e-01 ,5.5041e-01 ,6.8810e-01 ,7.8876e-01 ,9.5787e-01 , & - &1.1458e+00 ,1.3241e+00 ,1.5335e+00 /) - kao(:, 5, 4,11) = (/ & - &2.7304e-01 ,4.6530e-01 ,6.5411e-01 ,8.1513e-01 ,9.2682e-01 ,1.1406e+00 , & - &1.3653e+00 ,1.5825e+00 ,1.8252e+00 /) - kao(:, 1, 5,11) = (/ & - &2.2361e-01 ,2.4318e-01 ,3.1539e-01 ,3.9443e-01 ,4.5716e-01 ,5.0109e-01 , & - &5.2154e-01 ,6.0679e-01 ,6.9571e-01 /) - kao(:, 2, 5,11) = (/ & - &2.8781e-01 ,3.2451e-01 ,4.1536e-01 ,5.0630e-01 ,5.8344e-01 ,6.3855e-01 , & - &6.7297e-01 ,7.8266e-01 ,8.9726e-01 /) - kao(:, 3, 5,11) = (/ & - &3.6159e-01 ,4.1915e-01 ,5.2707e-01 ,6.2976e-01 ,7.2674e-01 ,7.9740e-01 , & - &8.4985e-01 ,9.8938e-01 ,1.1325e+00 /) - kao(:, 4, 5,11) = (/ & - &4.4416e-01 ,5.2452e-01 ,6.5017e-01 ,7.6880e-01 ,8.8658e-01 ,9.6270e-01 , & - &1.0399e+00 ,1.2125e+00 ,1.3846e+00 /) - kao(:, 5, 5,11) = (/ & - &5.3394e-01 ,6.3638e-01 ,7.8407e-01 ,9.2197e-01 ,1.0572e+00 ,1.1328e+00 , & - &1.2555e+00 ,1.4611e+00 ,1.6711e+00 /) - kao(:, 1, 6,11) = (/ & - &3.9154e-01 ,3.6960e-01 ,3.6660e-01 ,4.0826e-01 ,4.6123e-01 ,5.0084e-01 , & - &5.2154e-01 ,5.2728e-01 ,6.0320e-01 /) - kao(:, 2, 6,11) = (/ & - &5.1275e-01 ,4.8556e-01 ,4.9732e-01 ,5.4788e-01 ,6.0699e-01 ,6.5333e-01 , & - &6.7418e-01 ,6.8648e-01 ,7.8580e-01 /) - kao(:, 3, 6,11) = (/ & - &6.5141e-01 ,6.2128e-01 ,6.5130e-01 ,7.0712e-01 ,7.7202e-01 ,8.3303e-01 , & - &8.5314e-01 ,8.6953e-01 ,9.9315e-01 /) - kao(:, 4, 6,11) = (/ & - &8.1112e-01 ,7.6989e-01 ,8.2193e-01 ,8.8492e-01 ,9.6073e-01 ,1.0362e+00 , & - &1.0443e+00 ,1.0666e+00 ,1.2159e+00 /) - kao(:, 5, 6,11) = (/ & - &9.8628e-01 ,9.3596e-01 ,1.0065e+00 ,1.0840e+00 ,1.1687e+00 ,1.2489e+00 , & - &1.2474e+00 ,1.2983e+00 ,1.4796e+00 /) - kao(:, 1, 7,11) = (/ & - &6.9811e-01 ,6.2404e-01 ,5.7431e-01 ,5.2596e-01 ,5.0219e-01 ,5.1011e-01 , & - &5.2289e-01 ,4.9946e-01 ,5.0228e-01 /) - kao(:, 2, 7,11) = (/ & - &9.3257e-01 ,8.3430e-01 ,7.6751e-01 ,7.1360e-01 ,6.8353e-01 ,6.8813e-01 , & - &6.9358e-01 ,6.6018e-01 ,6.7200e-01 /) - kao(:, 3, 7,11) = (/ & - &1.1984e+00 ,1.0755e+00 ,9.9660e-01 ,9.4008e-01 ,8.9760e-01 ,8.9906e-01 , & - &8.9631e-01 ,8.4016e-01 ,8.6247e-01 /) - kao(:, 4, 7,11) = (/ & - &1.5061e+00 ,1.3555e+00 ,1.2704e+00 ,1.2009e+00 ,1.1418e+00 ,1.1469e+00 , & - &1.1302e+00 ,1.0283e+00 ,1.0687e+00 /) - kao(:, 5, 7,11) = (/ & - &1.8551e+00 ,1.6736e+00 ,1.5791e+00 ,1.4850e+00 ,1.4175e+00 ,1.4225e+00 , & - &1.3804e+00 ,1.2333e+00 ,1.3098e+00 /) - kao(:, 1, 8,11) = (/ & - &1.4751e+00 ,1.2907e+00 ,1.1413e+00 ,9.9788e-01 ,8.3765e-01 ,7.0312e-01 , & - &5.8437e-01 ,5.1212e-01 ,4.0848e-01 /) - kao(:, 2, 8,11) = (/ & - &2.0110e+00 ,1.7597e+00 ,1.5595e+00 ,1.3603e+00 ,1.1539e+00 ,9.7291e-01 , & - &7.9698e-01 ,7.0110e-01 ,5.5259e-01 /) - kao(:, 3, 8,11) = (/ & - &2.6286e+00 ,2.3001e+00 ,2.0385e+00 ,1.7785e+00 ,1.5362e+00 ,1.2889e+00 , & - &1.0590e+00 ,9.2250e-01 ,7.2275e-01 /) - kao(:, 4, 8,11) = (/ & - &3.3350e+00 ,2.9182e+00 ,2.5850e+00 ,2.2617e+00 ,1.9780e+00 ,1.6580e+00 , & - &1.3758e+00 ,1.1729e+00 ,9.1532e-01 /) - kao(:, 5, 8,11) = (/ & - &4.1346e+00 ,3.6181e+00 ,3.2106e+00 ,2.8264e+00 ,2.4835e+00 ,2.0714e+00 , & - &1.7385e+00 ,1.4468e+00 ,1.1430e+00 /) - kao(:, 1, 9,11) = (/ & - &5.7681e+00 ,5.0468e+00 ,4.3260e+00 ,3.6050e+00 ,2.9109e+00 ,2.2673e+00 , & - &1.5776e+00 ,9.1302e-01 ,3.3856e-01 /) - kao(:, 2, 9,11) = (/ & - &8.0519e+00 ,7.0463e+00 ,6.0395e+00 ,5.0331e+00 ,4.0586e+00 ,3.1762e+00 , & - &2.2073e+00 ,1.2968e+00 ,3.9705e-01 /) - kao(:, 3, 9,11) = (/ & - &1.0740e+01 ,9.3971e+00 ,8.0549e+00 ,6.7129e+00 ,5.4190e+00 ,4.2355e+00 , & - &2.9531e+00 ,1.7521e+00 ,4.0437e-01 /) - kao(:, 4, 9,11) = (/ & - &1.3840e+01 ,1.2110e+01 ,1.0380e+01 ,8.6502e+00 ,7.0077e+00 ,5.4549e+00 , & - &3.8354e+00 ,2.2704e+00 ,5.4385e-01 /) - kao(:, 5, 9,11) = (/ & - &1.7291e+01 ,1.5129e+01 ,1.2969e+01 ,1.0808e+01 ,8.7913e+00 ,6.8118e+00 , & - &4.8594e+00 ,2.8643e+00 ,9.3844e-01 /) - kao(:, 1,10,11) = (/ & - &2.5281e+01 ,2.2121e+01 ,1.8961e+01 ,1.5801e+01 ,1.2641e+01 ,9.4806e+00 , & - &6.3207e+00 ,3.2921e+00 ,2.8225e-01 /) - kao(:, 2,10,11) = (/ & - &3.6089e+01 ,3.1577e+01 ,2.7066e+01 ,2.2555e+01 ,1.8044e+01 ,1.3532e+01 , & - &9.0226e+00 ,4.7197e+00 ,3.9375e-01 /) - kao(:, 3,10,11) = (/ & - &4.8997e+01 ,4.2873e+01 ,3.6749e+01 ,3.0623e+01 ,2.4498e+01 ,1.8373e+01 , & - &1.2249e+01 ,6.4130e+00 ,6.0950e-01 /) - kao(:, 4,10,11) = (/ & - &6.4090e+01 ,5.6079e+01 ,4.8068e+01 ,4.0059e+01 ,3.2048e+01 ,2.4036e+01 , & - &1.6029e+01 ,8.3902e+00 ,8.3229e-01 /) - kao(:, 5,10,11) = (/ & - &8.0977e+01 ,7.0856e+01 ,6.0735e+01 ,5.0611e+01 ,4.0489e+01 ,3.0368e+01 , & - &2.0260e+01 ,1.0591e+01 ,9.6456e-01 /) - kao(:, 1,11,11) = (/ & - &4.5405e+01 ,3.9730e+01 ,3.4055e+01 ,2.8379e+01 ,2.2704e+01 ,1.7027e+01 , & - &1.1352e+01 ,5.7629e+00 ,2.2978e-01 /) - kao(:, 2,11,11) = (/ & - &6.4516e+01 ,5.6450e+01 ,4.8385e+01 ,4.0321e+01 ,3.2258e+01 ,2.4193e+01 , & - &1.6129e+01 ,8.1743e+00 ,3.8450e-01 /) - kao(:, 3,11,11) = (/ & - &8.7570e+01 ,7.6629e+01 ,6.5678e+01 ,5.4738e+01 ,4.3785e+01 ,3.2840e+01 , & - &2.1894e+01 ,1.1105e+01 ,5.0528e-01 /) - kao(:, 4,11,11) = (/ & - &1.1421e+02 ,9.9924e+01 ,8.5650e+01 ,7.1372e+01 ,5.7099e+01 ,4.2826e+01 , & - &2.8549e+01 ,1.4506e+01 ,6.3580e-01 /) - kao(:, 5,11,11) = (/ & - &1.4404e+02 ,1.2604e+02 ,1.0803e+02 ,9.0033e+01 ,7.2026e+01 ,5.4020e+01 , & - &3.6011e+01 ,1.8334e+01 ,7.9612e-01 /) - kao(:, 1,12,11) = (/ & - &5.9271e+01 ,5.1859e+01 ,4.4453e+01 ,3.7044e+01 ,2.9635e+01 ,2.2226e+01 , & - &1.4818e+01 ,7.4861e+00 ,2.2024e-01 /) - kao(:, 2,12,11) = (/ & - &8.4185e+01 ,7.3665e+01 ,6.3138e+01 ,5.2615e+01 ,4.2094e+01 ,3.1570e+01 , & - &2.1046e+01 ,1.0615e+01 ,3.8802e-01 /) - kao(:, 3,12,11) = (/ & - &1.1399e+02 ,9.9749e+01 ,8.5496e+01 ,7.1245e+01 ,5.6997e+01 ,4.2749e+01 , & - &2.8499e+01 ,1.4383e+01 ,4.9342e-01 /) - kao(:, 4,12,11) = (/ & - &1.4842e+02 ,1.2987e+02 ,1.1132e+02 ,9.2770e+01 ,7.4216e+01 ,5.5662e+01 , & - &3.7107e+01 ,1.8761e+01 ,6.8194e-01 /) - kao(:, 5,12,11) = (/ & - &1.8694e+02 ,1.6356e+02 ,1.4020e+02 ,1.1683e+02 ,9.3474e+01 ,7.0107e+01 , & - &4.6738e+01 ,2.3682e+01 ,7.5051e-01 /) - kao(:, 1,13,11) = (/ & - &6.1162e+01 ,5.3516e+01 ,4.5871e+01 ,3.8225e+01 ,3.0581e+01 ,2.2936e+01 , & - &1.5291e+01 ,7.7722e+00 ,3.0501e-01 /) - kao(:, 2,13,11) = (/ & - &8.6643e+01 ,7.5815e+01 ,6.4984e+01 ,5.4153e+01 ,4.3324e+01 ,3.2493e+01 , & - &2.1662e+01 ,1.1016e+01 ,3.8069e-01 /) - kao(:, 3,13,11) = (/ & - &1.1697e+02 ,1.0235e+02 ,8.7727e+01 ,7.3107e+01 ,5.8486e+01 ,4.3863e+01 , & - &2.9242e+01 ,1.4879e+01 ,4.9510e-01 /) - kao(:, 4,13,11) = (/ & - &1.5186e+02 ,1.3288e+02 ,1.1389e+02 ,9.4916e+01 ,7.5936e+01 ,5.6949e+01 , & - &3.7967e+01 ,1.9342e+01 ,5.7912e-01 /) - kao(:, 5,13,11) = (/ & - &1.9078e+02 ,1.6694e+02 ,1.4309e+02 ,1.1924e+02 ,9.5394e+01 ,7.1546e+01 , & - &4.7697e+01 ,2.4327e+01 ,6.7000e-01 /) - kao(:, 1, 1,12) = (/ & - &4.4327e-02 ,1.9901e-01 ,3.9567e-01 ,5.8848e-01 ,7.7476e-01 ,9.4853e-01 , & - &1.0934e+00 ,1.1527e+00 ,1.5495e+00 /) - kao(:, 2, 1,12) = (/ & - &5.3905e-02 ,2.4740e-01 ,4.9242e-01 ,7.3367e-01 ,9.6823e-01 ,1.1892e+00 , & - &1.3767e+00 ,1.4534e+00 ,1.9364e+00 /) - kao(:, 3, 1,12) = (/ & - &6.4069e-02 ,2.9762e-01 ,5.9267e-01 ,8.8396e-01 ,1.1680e+00 ,1.4379e+00 , & - &1.6734e+00 ,1.7853e+00 ,2.3359e+00 /) - kao(:, 4, 1,12) = (/ & - &7.4599e-02 ,3.4908e-01 ,6.9548e-01 ,1.0378e+00 ,1.3725e+00 ,1.6921e+00 , & - &1.9734e+00 ,2.1192e+00 ,2.7449e+00 /) - kao(:, 5, 1,12) = (/ & - &8.5274e-02 ,4.0394e-01 ,8.0404e-01 ,1.1983e+00 ,1.5830e+00 ,1.9477e+00 , & - &2.2662e+00 ,2.4521e+00 ,3.1659e+00 /) - kao(:, 1, 2,12) = (/ & - &6.1665e-02 ,2.1077e-01 ,3.8355e-01 ,5.7339e-01 ,7.6055e-01 ,9.4236e-01 , & - &1.1091e+00 ,1.2168e+00 ,1.5210e+00 /) - kao(:, 2, 2,12) = (/ & - &7.6234e-02 ,2.5639e-01 ,4.7826e-01 ,7.1532e-01 ,9.5007e-01 ,1.1793e+00 , & - &1.3941e+00 ,1.5452e+00 ,1.9001e+00 /) - kao(:, 3, 2,12) = (/ & - &9.1892e-02 ,3.0376e-01 ,5.7761e-01 ,8.6445e-01 ,1.1488e+00 ,1.4281e+00 , & - &1.6923e+00 ,1.8917e+00 ,2.2975e+00 /) - kao(:, 4, 2,12) = (/ & - &1.0837e-01 ,3.5273e-01 ,6.8106e-01 ,1.0192e+00 ,1.3548e+00 ,1.6858e+00 , & - &2.0012e+00 ,2.2488e+00 ,2.7094e+00 /) - kao(:, 5, 2,12) = (/ & - &1.2523e-01 ,4.0526e-01 ,7.9735e-01 ,1.1921e+00 ,1.5816e+00 ,1.9625e+00 , & - &2.3213e+00 ,2.6087e+00 ,3.1625e+00 /) - kao(:, 1, 3,12) = (/ & - &1.1120e-01 ,2.4868e-01 ,3.6808e-01 ,5.1840e-01 ,6.9017e-01 ,8.6056e-01 , & - &1.0271e+00 ,1.1758e+00 ,1.3802e+00 /) - kao(:, 2, 3,12) = (/ & - &1.4053e-01 ,3.1536e-01 ,4.5583e-01 ,6.5442e-01 ,8.7173e-01 ,1.0879e+00 , & - &1.3003e+00 ,1.4947e+00 ,1.7433e+00 /) - kao(:, 3, 3,12) = (/ & - &1.7249e-01 ,3.8643e-01 ,5.4830e-01 ,7.9885e-01 ,1.0645e+00 ,1.3292e+00 , & - &1.5905e+00 ,1.8338e+00 ,2.1288e+00 /) - kao(:, 4, 3,12) = (/ & - &2.0676e-01 ,4.5780e-01 ,6.4549e-01 ,9.5437e-01 ,1.2710e+00 ,1.5864e+00 , & - &1.8970e+00 ,2.1896e+00 ,2.5411e+00 /) - kao(:, 5, 3,12) = (/ & - &2.4212e-01 ,5.2871e-01 ,7.5484e-01 ,1.1269e+00 ,1.5000e+00 ,1.8700e+00 , & - &2.2336e+00 ,2.5647e+00 ,2.9987e+00 /) - kao(:, 1, 4,12) = (/ & - &2.0092e-01 ,3.0566e-01 ,4.3321e-01 ,5.2770e-01 ,6.0160e-01 ,7.5023e-01 , & - &8.9870e-01 ,1.0432e+00 ,1.2013e+00 /) - kao(:, 2, 4,12) = (/ & - &2.6071e-01 ,3.8703e-01 ,5.5757e-01 ,6.5930e-01 ,7.6619e-01 ,9.5732e-01 , & - &1.1477e+00 ,1.3364e+00 ,1.5321e+00 /) - kao(:, 3, 4,12) = (/ & - &3.2640e-01 ,4.7994e-01 ,6.8737e-01 ,7.9575e-01 ,9.4617e-01 ,1.1821e+00 , & - &1.4178e+00 ,1.6541e+00 ,1.8914e+00 /) - kao(:, 4, 4,12) = (/ & - &3.9855e-01 ,5.8348e-01 ,8.2078e-01 ,9.3830e-01 ,1.1490e+00 ,1.4352e+00 , & - &1.7207e+00 ,2.0041e+00 ,2.2963e+00 /) - kao(:, 5, 4,12) = (/ & - &4.7570e-01 ,6.9415e-01 ,9.5472e-01 ,1.0922e+00 ,1.3776e+00 ,1.7196e+00 , & - &2.0594e+00 ,2.3902e+00 ,2.7528e+00 /) - kao(:, 1, 5,12) = (/ & - &3.3247e-01 ,3.9594e-01 ,4.9056e-01 ,5.8813e-01 ,6.5607e-01 ,6.8035e-01 , & - &7.9032e-01 ,9.1840e-01 ,1.0557e+00 /) - kao(:, 2, 5,12) = (/ & - &4.4282e-01 ,5.1203e-01 ,6.4486e-01 ,7.7152e-01 ,8.4090e-01 ,8.6628e-01 , & - &1.0179e+00 ,1.1841e+00 ,1.3589e+00 /) - kao(:, 3, 5,12) = (/ & - &5.6912e-01 ,6.3900e-01 ,8.2247e-01 ,9.6727e-01 ,1.0369e+00 ,1.0698e+00 , & - &1.2706e+00 ,1.4785e+00 ,1.6959e+00 /) - kao(:, 4, 5,12) = (/ & - &7.0931e-01 ,7.8069e-01 ,1.0153e+00 ,1.1726e+00 ,1.2423e+00 ,1.3043e+00 , & - &1.5604e+00 ,1.8146e+00 ,2.0829e+00 /) - kao(:, 5, 5,12) = (/ & - &8.5949e-01 ,9.3825e-01 ,1.2105e+00 ,1.3829e+00 ,1.4592e+00 ,1.5748e+00 , & - &1.8870e+00 ,2.1938e+00 ,2.5189e+00 /) - kao(:, 1, 6,12) = (/ & - &5.2509e-01 ,5.1721e-01 ,5.7378e-01 ,6.3384e-01 ,6.9692e-01 ,7.3419e-01 , & - &7.1864e-01 ,7.9317e-01 ,9.0866e-01 /) - kao(:, 2, 6,12) = (/ & - &7.0957e-01 ,6.9625e-01 ,7.6638e-01 ,8.5821e-01 ,9.3314e-01 ,9.6244e-01 , & - &9.2911e-01 ,1.0410e+00 ,1.1915e+00 /) - kao(:, 3, 6,12) = (/ & - &9.2892e-01 ,9.0647e-01 ,9.9421e-01 ,1.1180e+00 ,1.1912e+00 ,1.2074e+00 , & - &1.1606e+00 ,1.3214e+00 ,1.5144e+00 /) - kao(:, 4, 6,12) = (/ & - &1.1749e+00 ,1.1432e+00 ,1.2560e+00 ,1.3977e+00 ,1.4686e+00 ,1.4691e+00 , & - &1.4281e+00 ,1.6462e+00 ,1.8876e+00 /) - kao(:, 5, 6,12) = (/ & - &1.4442e+00 ,1.4016e+00 ,1.5480e+00 ,1.6922e+00 ,1.7621e+00 ,1.7564e+00 , & - &1.7321e+00 ,2.0105e+00 ,2.3048e+00 /) - kao(:, 1, 7,12) = (/ & - &9.1849e-01 ,8.0624e-01 ,7.9050e-01 ,7.5675e-01 ,7.6178e-01 ,7.8133e-01 , & - &7.7608e-01 ,6.9116e-01 ,7.7991e-01 /) - kao(:, 2, 7,12) = (/ & - &1.2413e+00 ,1.0918e+00 ,1.0769e+00 ,1.0420e+00 ,1.0608e+00 ,1.0726e+00 , & - &1.0404e+00 ,9.1318e-01 ,1.0358e+00 /) - kao(:, 3, 7,12) = (/ & - &1.6444e+00 ,1.4500e+00 ,1.4209e+00 ,1.3929e+00 ,1.4200e+00 ,1.3992e+00 , & - &1.3321e+00 ,1.1740e+00 ,1.3388e+00 /) - kao(:, 4, 7,12) = (/ & - &2.1122e+00 ,1.8669e+00 ,1.8040e+00 ,1.8049e+00 ,1.8188e+00 ,1.7570e+00 , & - &1.6501e+00 ,1.4861e+00 ,1.6989e+00 /) - kao(:, 5, 7,12) = (/ & - &2.6250e+00 ,2.3265e+00 ,2.2289e+00 ,2.2673e+00 ,2.2456e+00 ,2.1426e+00 , & - &2.0040e+00 ,1.8373e+00 ,2.0997e+00 /) - kao(:, 1, 8,12) = (/ & - &1.9827e+00 ,1.7349e+00 ,1.4981e+00 ,1.3371e+00 ,1.1453e+00 ,9.6602e-01 , & - &8.7309e-01 ,7.7254e-01 ,6.6571e-01 /) - kao(:, 2, 8,12) = (/ & - &2.7151e+00 ,2.3758e+00 ,2.0507e+00 ,1.8313e+00 ,1.5691e+00 ,1.3551e+00 , & - &1.2325e+00 ,1.0537e+00 ,8.9966e-01 /) - kao(:, 3, 8,12) = (/ & - &3.5997e+00 ,3.1499e+00 ,2.7291e+00 ,2.4373e+00 ,2.1034e+00 ,1.8593e+00 , & - &1.6579e+00 ,1.3773e+00 ,1.1789e+00 /) - kao(:, 4, 8,12) = (/ & - &4.6665e+00 ,4.0832e+00 ,3.5519e+00 ,3.1544e+00 ,2.7468e+00 ,2.4617e+00 , & - &2.1388e+00 ,1.7464e+00 ,1.5079e+00 /) - kao(:, 5, 8,12) = (/ & - &5.8669e+00 ,5.1335e+00 ,4.4792e+00 ,3.9559e+00 ,3.4817e+00 ,3.1241e+00 , & - &2.6649e+00 ,2.1629e+00 ,1.8732e+00 /) - kao(:, 1, 9,12) = (/ & - &8.0387e+00 ,7.0340e+00 ,6.0293e+00 ,5.0245e+00 ,4.0196e+00 ,3.0957e+00 , & - &2.1773e+00 ,1.2357e+00 ,4.2050e-01 /) - kao(:, 2, 9,12) = (/ & - &1.1280e+01 ,9.8705e+00 ,8.4601e+00 ,7.0501e+00 ,5.6402e+00 ,4.3334e+00 , & - &3.0492e+00 ,1.7467e+00 ,4.6837e-01 /) - kao(:, 3, 9,12) = (/ & - &1.5202e+01 ,1.3302e+01 ,1.1401e+01 ,9.5008e+00 ,7.6009e+00 ,5.8446e+00 , & - &4.1033e+00 ,2.4072e+00 ,9.0067e-01 /) - kao(:, 4, 9,12) = (/ & - &1.9804e+01 ,1.7328e+01 ,1.4853e+01 ,1.2377e+01 ,9.9040e+00 ,7.6319e+00 , & - &5.3589e+00 ,3.2206e+00 ,1.3277e+00 /) - kao(:, 5, 9,12) = (/ & - &2.5091e+01 ,2.1955e+01 ,1.8819e+01 ,1.5683e+01 ,1.2554e+01 ,9.6970e+00 , & - &6.8190e+00 ,4.1412e+00 ,1.6570e+00 /) - kao(:, 1,10,12) = (/ & - &3.6853e+01 ,3.2247e+01 ,2.7641e+01 ,2.3035e+01 ,1.8427e+01 ,1.3820e+01 , & - &9.2142e+00 ,4.7017e+00 ,5.2096e-01 /) - kao(:, 2,10,12) = (/ & - &5.2866e+01 ,4.6255e+01 ,3.9648e+01 ,3.3040e+01 ,2.6431e+01 ,1.9825e+01 , & - &1.3217e+01 ,6.7223e+00 ,8.5705e-01 /) - kao(:, 3,10,12) = (/ & - &7.2440e+01 ,6.3382e+01 ,5.4326e+01 ,4.5272e+01 ,3.6218e+01 ,2.7164e+01 , & - &1.8108e+01 ,9.2103e+00 ,9.7984e-01 /) - kao(:, 4,10,12) = (/ & - &9.5327e+01 ,8.3414e+01 ,7.1501e+01 ,5.9582e+01 ,4.7667e+01 ,3.5750e+01 , & - &2.3834e+01 ,1.2146e+01 ,1.1774e+00 /) - kao(:, 5,10,12) = (/ & - &1.2143e+02 ,1.0625e+02 ,9.1069e+01 ,7.5889e+01 ,6.0713e+01 ,4.5537e+01 , & - &3.0358e+01 ,1.5516e+01 ,1.3416e+00 /) - kao(:, 1,11,12) = (/ & - &6.9348e+01 ,6.0680e+01 ,5.2012e+01 ,4.3342e+01 ,3.4673e+01 ,2.6006e+01 , & - &1.7338e+01 ,8.6702e+00 ,3.0466e-01 /) - kao(:, 2,11,12) = (/ & - &9.9352e+01 ,8.6930e+01 ,7.4511e+01 ,6.2093e+01 ,4.9676e+01 ,3.7257e+01 , & - &2.4839e+01 ,1.2419e+01 ,6.8510e-01 /) - kao(:, 3,11,12) = (/ & - &1.3563e+02 ,1.1868e+02 ,1.0173e+02 ,8.4769e+01 ,6.7818e+01 ,5.0866e+01 , & - &3.3908e+01 ,1.6957e+01 ,1.0467e+00 /) - kao(:, 4,11,12) = (/ & - &1.7753e+02 ,1.5535e+02 ,1.3315e+02 ,1.1096e+02 ,8.8765e+01 ,6.6576e+01 , & - &4.4384e+01 ,2.2206e+01 ,1.3289e+00 /) - kao(:, 5,11,12) = (/ & - &2.2508e+02 ,1.9694e+02 ,1.6881e+02 ,1.4068e+02 ,1.1255e+02 ,8.4405e+01 , & - &5.6267e+01 ,2.8168e+01 ,1.6371e+00 /) - kao(:, 1,12,12) = (/ & - &9.5815e+01 ,8.3836e+01 ,7.1860e+01 ,5.9885e+01 ,4.7907e+01 ,3.5931e+01 , & - &2.3953e+01 ,1.1977e+01 ,2.4035e-01 /) - kao(:, 2,12,12) = (/ & - &1.3694e+02 ,1.1982e+02 ,1.0270e+02 ,8.5588e+01 ,6.8468e+01 ,5.1352e+01 , & - &3.4234e+01 ,1.7118e+01 ,5.7126e-01 /) - kao(:, 3,12,12) = (/ & - &1.8607e+02 ,1.6282e+02 ,1.3956e+02 ,1.1630e+02 ,9.3038e+01 ,6.9781e+01 , & - &4.6518e+01 ,2.3259e+01 ,8.8813e-01 /) - kao(:, 4,12,12) = (/ & - &2.4268e+02 ,2.1235e+02 ,1.8201e+02 ,1.5168e+02 ,1.2134e+02 ,9.1010e+01 , & - &6.0670e+01 ,3.0335e+01 ,1.1237e+00 /) - kao(:, 5,12,12) = (/ & - &3.0642e+02 ,2.6813e+02 ,2.2982e+02 ,1.9152e+02 ,1.5322e+02 ,1.1491e+02 , & - &7.6606e+01 ,3.8310e+01 ,1.5308e+00 /) - kao(:, 1,13,12) = (/ & - &1.0396e+02 ,9.0973e+01 ,7.7973e+01 ,6.4982e+01 ,5.1984e+01 ,3.8991e+01 , & - &2.5992e+01 ,1.3003e+01 ,2.8896e-01 /) - kao(:, 2,13,12) = (/ & - &1.4817e+02 ,1.2965e+02 ,1.1113e+02 ,9.2604e+01 ,7.4089e+01 ,5.5562e+01 , & - &3.7043e+01 ,1.8523e+01 ,6.4071e-01 /) - kao(:, 3,13,12) = (/ & - &2.0056e+02 ,1.7549e+02 ,1.5042e+02 ,1.2535e+02 ,1.0028e+02 ,7.5210e+01 , & - &5.0138e+01 ,2.5080e+01 ,7.6073e-01 /) - kao(:, 4,13,12) = (/ & - &2.6107e+02 ,2.2842e+02 ,1.9581e+02 ,1.6317e+02 ,1.3054e+02 ,9.7901e+01 , & - &6.5267e+01 ,3.2665e+01 ,1.0550e+00 /) - kao(:, 5,13,12) = (/ & - &3.2818e+02 ,2.8717e+02 ,2.4613e+02 ,2.0512e+02 ,1.6409e+02 ,1.2307e+02 , & - &8.2040e+01 ,4.1093e+01 ,1.4069e+00 /) - kao(:, 1, 1,13) = (/ & - &8.9189e-02 ,2.7547e-01 ,5.4755e-01 ,8.1466e-01 ,1.0734e+00 ,1.3167e+00 , & - &1.5262e+00 ,1.6545e+00 ,2.1467e+00 /) - kao(:, 2, 1,13) = (/ & - &1.0564e-01 ,3.3448e-01 ,6.6333e-01 ,9.8354e-01 ,1.2897e+00 ,1.5719e+00 , & - &1.8097e+00 ,1.9474e+00 ,2.5794e+00 /) - kao(:, 3, 1,13) = (/ & - &1.2232e-01 ,4.0251e-01 ,7.9745e-01 ,1.1809e+00 ,1.5463e+00 ,1.8798e+00 , & - &2.1512e+00 ,2.2853e+00 ,3.0925e+00 /) - kao(:, 4, 1,13) = (/ & - &1.3906e-01 ,4.8151e-01 ,9.5370e-01 ,1.4117e+00 ,1.8477e+00 ,2.2440e+00 , & - &2.5627e+00 ,2.7054e+00 ,3.6953e+00 /) - kao(:, 5, 1,13) = (/ & - &1.5537e-01 ,5.6891e-01 ,1.1282e+00 ,1.6723e+00 ,2.1918e+00 ,2.6654e+00 , & - &3.0480e+00 ,3.1989e+00 ,4.3834e+00 /) - kao(:, 1, 2,13) = (/ & - &1.2651e-01 ,2.7511e-01 ,5.4811e-01 ,8.1792e-01 ,1.0822e+00 ,1.3369e+00 , & - &1.5702e+00 ,1.7388e+00 ,2.1643e+00 /) - kao(:, 2, 2,13) = (/ & - &1.5153e-01 ,3.4384e-01 ,6.8417e-01 ,1.0197e+00 ,1.3466e+00 ,1.6574e+00 , & - &1.9318e+00 ,2.0933e+00 ,2.6930e+00 /) - kao(:, 3, 2,13) = (/ & - &1.7716e-01 ,4.2323e-01 ,8.4160e-01 ,1.2530e+00 ,1.6525e+00 ,2.0285e+00 , & - &2.3523e+00 ,2.5052e+00 ,3.3049e+00 /) - kao(:, 4, 2,13) = (/ & - &2.0304e-01 ,5.0914e-01 ,1.0128e+00 ,1.5083e+00 ,1.9894e+00 ,2.4425e+00 , & - &2.8273e+00 ,2.9947e+00 ,3.9785e+00 /) - kao(:, 5, 2,13) = (/ & - &2.2856e-01 ,5.9708e-01 ,1.1882e+00 ,1.7705e+00 ,2.3375e+00 ,2.8753e+00 , & - &3.3417e+00 ,3.5598e+00 ,4.6746e+00 /) - kao(:, 1, 3,13) = (/ & - &2.3155e-01 ,3.6106e-01 ,5.1524e-01 ,7.7074e-01 ,1.0237e+00 ,1.2717e+00 , & - &1.5079e+00 ,1.7067e+00 ,2.0474e+00 /) - kao(:, 2, 3,13) = (/ & - &2.8222e-01 ,4.3122e-01 ,6.6114e-01 ,9.8854e-01 ,1.3120e+00 ,1.6278e+00 , & - &1.9248e+00 ,2.1616e+00 ,2.6238e+00 /) - kao(:, 3, 3,13) = (/ & - &3.3490e-01 ,5.0925e-01 ,8.3049e-01 ,1.2417e+00 ,1.6476e+00 ,2.0430e+00 , & - &2.4133e+00 ,2.6954e+00 ,3.2949e+00 /) - kao(:, 4, 3,13) = (/ & - &3.8898e-01 ,5.9951e-01 ,1.0132e+00 ,1.5151e+00 ,2.0114e+00 ,2.4964e+00 , & - &2.9531e+00 ,3.3043e+00 ,4.0224e+00 /) - kao(:, 5, 3,13) = (/ & - &4.4295e-01 ,6.9228e-01 ,1.1941e+00 ,1.7863e+00 ,2.3719e+00 ,2.9449e+00 , & - &3.4879e+00 ,3.9170e+00 ,4.7434e+00 /) - kao(:, 1, 4,13) = (/ & - &4.2438e-01 ,5.0777e-01 ,6.1519e-01 ,7.0596e-01 ,9.3438e-01 ,1.1645e+00 , & - &1.3892e+00 ,1.5946e+00 ,1.8686e+00 /) - kao(:, 2, 4,13) = (/ & - &5.2911e-01 ,6.2653e-01 ,7.5903e-01 ,9.2591e-01 ,1.2320e+00 ,1.5352e+00 , & - &1.8307e+00 ,2.0955e+00 ,2.4637e+00 /) - kao(:, 3, 4,13) = (/ & - &6.3945e-01 ,7.5086e-01 ,9.2902e-01 ,1.1816e+00 ,1.5728e+00 ,1.9600e+00 , & - &2.3380e+00 ,2.6793e+00 ,3.1453e+00 /) - kao(:, 4, 4,13) = (/ & - &7.5432e-01 ,8.7946e-01 ,1.1073e+00 ,1.4569e+00 ,1.9394e+00 ,2.4183e+00 , & - &2.8875e+00 ,3.3173e+00 ,3.8782e+00 /) - kao(:, 5, 4,13) = (/ & - &8.7134e-01 ,1.0123e+00 ,1.2829e+00 ,1.7403e+00 ,2.3172e+00 ,2.8902e+00 , & - &3.4528e+00 ,3.9744e+00 ,4.6335e+00 /) - kao(:, 1, 5,13) = (/ & - &7.1207e-01 ,6.8711e-01 ,8.3241e-01 ,8.6529e-01 ,8.8550e-01 ,1.0406e+00 , & - &1.2451e+00 ,1.4407e+00 ,1.6670e+00 /) - kao(:, 2, 5,13) = (/ & - &9.0944e-01 ,8.8418e-01 ,1.0384e+00 ,1.0957e+00 ,1.1610e+00 ,1.4029e+00 , & - &1.6788e+00 ,1.9429e+00 ,2.2472e+00 /) - kao(:, 3, 5,13) = (/ & - &1.1217e+00 ,1.1051e+00 ,1.2550e+00 ,1.3677e+00 ,1.4770e+00 ,1.8154e+00 , & - &2.1738e+00 ,2.5182e+00 ,2.9077e+00 /) - kao(:, 4, 5,13) = (/ & - &1.3460e+00 ,1.3429e+00 ,1.4887e+00 ,1.6567e+00 ,1.8206e+00 ,2.2609e+00 , & - &2.7082e+00 ,3.1425e+00 ,3.6199e+00 /) - kao(:, 5, 5,13) = (/ & - &1.5795e+00 ,1.5881e+00 ,1.7517e+00 ,1.9324e+00 ,2.1859e+00 ,2.7284e+00 , & - &3.2694e+00 ,3.7971e+00 ,4.3676e+00 /) - kao(:, 1, 6,13) = (/ & - &1.1023e+00 ,9.7526e-01 ,1.0617e+00 ,1.1008e+00 ,1.0651e+00 ,1.0178e+00 , & - &1.0836e+00 ,1.2590e+00 ,1.4474e+00 /) - kao(:, 2, 6,13) = (/ & - &1.4464e+00 ,1.2819e+00 ,1.3748e+00 ,1.4078e+00 ,1.3857e+00 ,1.3476e+00 , & - &1.4882e+00 ,1.7304e+00 ,1.9875e+00 /) - kao(:, 3, 6,13) = (/ & - &1.8308e+00 ,1.6242e+00 ,1.7155e+00 ,1.7456e+00 ,1.7675e+00 ,1.7237e+00 , & - &1.9554e+00 ,2.2760e+00 ,2.6094e+00 /) - kao(:, 4, 6,13) = (/ & - &2.2453e+00 ,1.9975e+00 ,2.0781e+00 ,2.1295e+00 ,2.1828e+00 ,2.1327e+00 , & - &2.4652e+00 ,2.8713e+00 ,3.2893e+00 /) - kao(:, 5, 6,13) = (/ & - &2.6836e+00 ,2.3986e+00 ,2.4577e+00 ,2.5567e+00 ,2.5877e+00 ,2.5663e+00 , & - &3.0104e+00 ,3.5064e+00 ,4.0161e+00 /) - kao(:, 1, 7,13) = (/ & - &1.7788e+00 ,1.5565e+00 ,1.4296e+00 ,1.4541e+00 ,1.3809e+00 ,1.2482e+00 , & - &1.1009e+00 ,1.0852e+00 ,1.2442e+00 /) - kao(:, 2, 7,13) = (/ & - &2.4100e+00 ,2.1089e+00 ,1.9246e+00 ,1.9363e+00 ,1.8185e+00 ,1.6636e+00 , & - &1.4819e+00 ,1.5124e+00 ,1.7324e+00 /) - kao(:, 3, 7,13) = (/ & - &3.1319e+00 ,2.7405e+00 ,2.5003e+00 ,2.4636e+00 ,2.3111e+00 ,2.1652e+00 , & - &1.9114e+00 ,2.0080e+00 ,2.2982e+00 /) - kao(:, 4, 7,13) = (/ & - &3.9360e+00 ,3.4440e+00 ,3.1598e+00 ,3.0372e+00 ,2.8747e+00 ,2.7334e+00 , & - &2.3814e+00 ,2.5579e+00 ,2.9254e+00 /) - kao(:, 5, 7,13) = (/ & - &4.8010e+00 ,4.2009e+00 ,3.8764e+00 ,3.6526e+00 ,3.5065e+00 ,3.3078e+00 , & - &2.8824e+00 ,3.1625e+00 ,3.6156e+00 /) - kao(:, 1, 8,13) = (/ & - &3.4656e+00 ,3.0324e+00 ,2.5993e+00 ,2.2536e+00 ,2.0768e+00 ,1.8323e+00 , & - &1.4794e+00 ,1.1100e+00 ,1.0719e+00 /) - kao(:, 2, 8,13) = (/ & - &4.7953e+00 ,4.1960e+00 ,3.5964e+00 ,3.1195e+00 ,2.8558e+00 ,2.4960e+00 , & - &2.0234e+00 ,1.5264e+00 ,1.5151e+00 /) - kao(:, 3, 8,13) = (/ & - &6.4119e+00 ,5.6106e+00 ,4.8091e+00 ,4.1637e+00 ,3.7658e+00 ,3.2529e+00 , & - &2.6777e+00 ,1.9921e+00 ,2.0306e+00 /) - kao(:, 4, 8,13) = (/ & - &8.2532e+00 ,7.2211e+00 ,6.1898e+00 ,5.3688e+00 ,4.7948e+00 ,4.1025e+00 , & - &3.4458e+00 ,2.5062e+00 ,2.6143e+00 /) - kao(:, 5, 8,13) = (/ & - &1.0283e+01 ,8.9971e+00 ,7.7118e+00 ,6.7087e+00 ,5.9163e+00 ,5.0630e+00 , & - &4.2877e+00 ,3.0597e+00 ,3.2702e+00 /) - kao(:, 1, 9,13) = (/ & - &1.3039e+01 ,1.1409e+01 ,9.7786e+00 ,8.1486e+00 ,6.5192e+00 ,4.9000e+00 , & - &3.5526e+00 ,2.2083e+00 ,6.1249e-01 /) - kao(:, 2, 9,13) = (/ & - &1.8190e+01 ,1.5916e+01 ,1.3643e+01 ,1.1369e+01 ,9.0953e+00 ,6.8331e+00 , & - &4.9544e+00 ,3.0917e+00 ,1.3174e+00 /) - kao(:, 3, 9,13) = (/ & - &2.4717e+01 ,2.1628e+01 ,1.8538e+01 ,1.5449e+01 ,1.2359e+01 ,9.2996e+00 , & - &6.7414e+00 ,4.1578e+00 ,1.7841e+00 /) - kao(:, 4, 9,13) = (/ & - &3.2573e+01 ,2.8503e+01 ,2.4432e+01 ,2.0359e+01 ,1.6288e+01 ,1.2267e+01 , & - &8.8606e+00 ,5.4011e+00 ,2.3241e+00 /) - kao(:, 5, 9,13) = (/ & - &4.1562e+01 ,3.6368e+01 ,3.1173e+01 ,2.5977e+01 ,2.0781e+01 ,1.5678e+01 , & - &1.1261e+01 ,6.8301e+00 ,2.9541e+00 /) - kao(:, 1,10,13) = (/ & - &5.7951e+01 ,5.0708e+01 ,4.3464e+01 ,3.6220e+01 ,2.8976e+01 ,2.1732e+01 , & - &1.4488e+01 ,7.2520e+00 ,5.6538e-01 /) - kao(:, 2,10,13) = (/ & - &8.1306e+01 ,7.1141e+01 ,6.0979e+01 ,5.0813e+01 ,4.0652e+01 ,3.0489e+01 , & - &2.0326e+01 ,1.0163e+01 ,6.5761e-01 /) - kao(:, 3,10,13) = (/ & - &1.1158e+02 ,9.7625e+01 ,8.3679e+01 ,6.9730e+01 ,5.5786e+01 ,4.1839e+01 , & - &2.7893e+01 ,1.3953e+01 ,1.0530e+00 /) - kao(:, 4,10,13) = (/ & - &1.4877e+02 ,1.3018e+02 ,1.1158e+02 ,9.2984e+01 ,7.4388e+01 ,5.5791e+01 , & - &3.7194e+01 ,1.8619e+01 ,1.0469e+00 /) - kao(:, 5,10,13) = (/ & - &1.9259e+02 ,1.6851e+02 ,1.4444e+02 ,1.2037e+02 ,9.6298e+01 ,7.2222e+01 , & - &4.8145e+01 ,2.4115e+01 ,9.0336e-01 /) - kao(:, 1,11,13) = (/ & - &1.0724e+02 ,9.3834e+01 ,8.0425e+01 ,6.7028e+01 ,5.3621e+01 ,4.0215e+01 , & - &2.6808e+01 ,1.3405e+01 ,7.5947e-01 /) - kao(:, 2,11,13) = (/ & - &1.5135e+02 ,1.3244e+02 ,1.1352e+02 ,9.4596e+01 ,7.5677e+01 ,5.6758e+01 , & - &3.7839e+01 ,1.8919e+01 ,7.7568e-01 /) - kao(:, 3,11,13) = (/ & - &2.0634e+02 ,1.8056e+02 ,1.5476e+02 ,1.2896e+02 ,1.0317e+02 ,7.7384e+01 , & - &5.1587e+01 ,2.5792e+01 ,1.1446e+00 /) - kao(:, 4,11,13) = (/ & - &2.7388e+02 ,2.3963e+02 ,2.0540e+02 ,1.7116e+02 ,1.3692e+02 ,1.0270e+02 , & - &6.8464e+01 ,3.4233e+01 ,1.4967e+00 /) - kao(:, 5,11,13) = (/ & - &3.5254e+02 ,3.0844e+02 ,2.6442e+02 ,2.2035e+02 ,1.7628e+02 ,1.3220e+02 , & - &8.8134e+01 ,4.4067e+01 ,1.3951e+00 /) - kao(:, 1,12,13) = (/ & - &1.4929e+02 ,1.3063e+02 ,1.1197e+02 ,9.3306e+01 ,7.4648e+01 ,5.5984e+01 , & - &3.7322e+01 ,1.8661e+01 ,7.7179e-01 /) - kao(:, 2,12,13) = (/ & - &2.1213e+02 ,1.8562e+02 ,1.5909e+02 ,1.3258e+02 ,1.0606e+02 ,7.9546e+01 , & - &5.3033e+01 ,2.6517e+01 ,8.3102e-01 /) - kao(:, 3,12,13) = (/ & - &2.8848e+02 ,2.5242e+02 ,2.1635e+02 ,1.8030e+02 ,1.4425e+02 ,1.0818e+02 , & - &7.2116e+01 ,3.6059e+01 ,1.2769e+00 /) - kao(:, 4,12,13) = (/ & - &3.7976e+02 ,3.3226e+02 ,2.8481e+02 ,2.3733e+02 ,1.8986e+02 ,1.4240e+02 , & - &9.4932e+01 ,4.7464e+01 ,1.6812e+00 /) - kao(:, 5,12,13) = (/ & - &4.8508e+02 ,4.2444e+02 ,3.6380e+02 ,3.0318e+02 ,2.4253e+02 ,1.8190e+02 , & - &1.2127e+02 ,6.0633e+01 ,1.6837e+00 /) - kao(:, 1,13,13) = (/ & - &1.6844e+02 ,1.4739e+02 ,1.2633e+02 ,1.0528e+02 ,8.4219e+01 ,6.3167e+01 , & - &4.2110e+01 ,2.1055e+01 ,6.4746e-01 /) - kao(:, 2,13,13) = (/ & - &2.3974e+02 ,2.0978e+02 ,1.7981e+02 ,1.4983e+02 ,1.1987e+02 ,8.9901e+01 , & - &5.9937e+01 ,2.9967e+01 ,7.7977e-01 /) - kao(:, 3,13,13) = (/ & - &3.2617e+02 ,2.8540e+02 ,2.4462e+02 ,2.0386e+02 ,1.6309e+02 ,1.2231e+02 , & - &8.1544e+01 ,4.0770e+01 ,1.5118e+00 /) - kao(:, 4,13,13) = (/ & - &4.2665e+02 ,3.7332e+02 ,3.1999e+02 ,2.6667e+02 ,2.1333e+02 ,1.5999e+02 , & - &1.0667e+02 ,5.3332e+01 ,1.6652e+00 /) - kao(:, 5,13,13) = (/ & - &5.4098e+02 ,4.7336e+02 ,4.0573e+02 ,3.3811e+02 ,2.7048e+02 ,2.0286e+02 , & - &1.3525e+02 ,6.7619e+01 ,1.7274e+00 /) - kao(:, 1, 1,14) = (/ & - &1.4473e-01 ,4.5196e-01 ,8.9698e-01 ,1.3316e+00 ,1.7483e+00 ,2.1329e+00 , & - &2.4492e+00 ,2.5366e+00 ,3.4967e+00 /) - kao(:, 2, 1,14) = (/ & - &1.6846e-01 ,5.5554e-01 ,1.1039e+00 ,1.6417e+00 ,2.1611e+00 ,2.6456e+00 , & - &3.0463e+00 ,3.1695e+00 ,4.3222e+00 /) - kao(:, 3, 1,14) = (/ & - &1.9174e-01 ,6.6749e-01 ,1.3276e+00 ,1.9756e+00 ,2.6027e+00 ,3.1886e+00 , & - &3.6789e+00 ,3.8433e+00 ,5.2055e+00 /) - kao(:, 4, 1,14) = (/ & - &2.1490e-01 ,7.8476e-01 ,1.5609e+00 ,2.3233e+00 ,3.0639e+00 ,3.7563e+00 , & - &4.3396e+00 ,4.5493e+00 ,6.1279e+00 /) - kao(:, 5, 1,14) = (/ & - &2.3691e-01 ,9.0765e-01 ,1.8042e+00 ,2.6834e+00 ,3.5348e+00 ,4.3362e+00 , & - &5.0160e+00 ,5.2774e+00 ,7.0696e+00 /) - kao(:, 1, 2,14) = (/ & - &2.1296e-01 ,4.6215e-01 ,9.1984e-01 ,1.3706e+00 ,1.8091e+00 ,2.2245e+00 , & - &2.5860e+00 ,2.7730e+00 ,3.6182e+00 /) - kao(:, 2, 2,14) = (/ & - &2.5016e-01 ,5.6432e-01 ,1.1237e+00 ,1.6756e+00 ,2.2151e+00 ,2.7294e+00 , & - &3.1864e+00 ,3.4606e+00 ,4.4301e+00 /) - kao(:, 3, 2,14) = (/ & - &2.8692e-01 ,6.7375e-01 ,1.3425e+00 ,2.0033e+00 ,2.6512e+00 ,3.2743e+00 , & - &3.8384e+00 ,4.2145e+00 ,5.3023e+00 /) - kao(:, 4, 2,14) = (/ & - &3.2327e-01 ,7.9645e-01 ,1.5866e+00 ,2.3669e+00 ,3.1323e+00 ,3.8679e+00 , & - &4.5425e+00 ,5.0100e+00 ,6.2645e+00 /) - kao(:, 5, 2,14) = (/ & - &3.5851e-01 ,9.3518e-01 ,1.8621e+00 ,2.7777e+00 ,3.6730e+00 ,4.5297e+00 , & - &5.3029e+00 ,5.8281e+00 ,7.3458e+00 /) - kao(:, 1, 3,14) = (/ & - &4.0569e-01 ,4.7346e-01 ,9.0139e-01 ,1.3483e+00 ,1.7892e+00 ,2.2204e+00 , & - &2.6252e+00 ,2.9358e+00 ,3.5784e+00 /) - kao(:, 2, 3,14) = (/ & - &4.8357e-01 ,5.7585e-01 ,1.1016e+00 ,1.6482e+00 ,2.1888e+00 ,2.7185e+00 , & - &3.2205e+00 ,3.6184e+00 ,4.3777e+00 /) - kao(:, 3, 3,14) = (/ & - &5.6184e-01 ,6.8539e-01 ,1.3182e+00 ,1.9726e+00 ,2.6206e+00 ,3.2555e+00 , & - &3.8616e+00 ,4.3597e+00 ,5.2411e+00 /) - kao(:, 4, 3,14) = (/ & - &6.3937e-01 ,8.0074e-01 ,1.5659e+00 ,2.3420e+00 ,3.1101e+00 ,3.8617e+00 , & - &4.5735e+00 ,5.1595e+00 ,6.2201e+00 /) - kao(:, 5, 3,14) = (/ & - &7.1542e-01 ,9.3290e-01 ,1.8594e+00 ,2.7803e+00 ,3.6907e+00 ,4.5815e+00 , & - &5.4228e+00 ,6.0997e+00 ,7.3811e+00 /) - kao(:, 1, 4,14) = (/ & - &7.7613e-01 ,7.2482e-01 ,8.8213e-01 ,1.2906e+00 ,1.7174e+00 ,2.1406e+00 , & - &2.5536e+00 ,2.9272e+00 ,3.4348e+00 /) - kao(:, 2, 4,14) = (/ & - &9.4054e-01 ,9.0136e-01 ,1.0781e+00 ,1.5850e+00 ,2.1098e+00 ,2.6295e+00 , & - &3.1372e+00 ,3.6020e+00 ,4.2194e+00 /) - kao(:, 3, 4,14) = (/ & - &1.1095e+00 ,1.0843e+00 ,1.2887e+00 ,1.9170e+00 ,2.5512e+00 ,3.1791e+00 , & - &3.7919e+00 ,4.3511e+00 ,5.1021e+00 /) - kao(:, 4, 4,14) = (/ & - &1.2791e+00 ,1.2603e+00 ,1.5382e+00 ,2.3038e+00 ,3.0649e+00 ,3.8173e+00 , & - &4.5513e+00 ,5.2083e+00 ,6.1294e+00 /) - kao(:, 5, 4,14) = (/ & - &1.4465e+00 ,1.4292e+00 ,1.8362e+00 ,2.7499e+00 ,3.6579e+00 ,4.5561e+00 , & - &5.4280e+00 ,6.2050e+00 ,7.3150e+00 /) - kao(:, 1, 5,14) = (/ & - &1.3553e+00 ,1.1859e+00 ,1.1889e+00 ,1.2820e+00 ,1.6126e+00 ,2.0133e+00 , & - &2.4100e+00 ,2.7917e+00 ,3.2251e+00 /) - kao(:, 2, 5,14) = (/ & - &1.6746e+00 ,1.4653e+00 ,1.4722e+00 ,1.5790e+00 ,2.0132e+00 ,2.5133e+00 , & - &3.0071e+00 ,3.4795e+00 ,4.0262e+00 /) - kao(:, 3, 5,14) = (/ & - &2.0071e+00 ,1.7563e+00 ,1.7644e+00 ,1.8926e+00 ,2.4705e+00 ,3.0826e+00 , & - &3.6880e+00 ,4.2630e+00 ,4.9404e+00 /) - kao(:, 4, 5,14) = (/ & - &2.3461e+00 ,2.0539e+00 ,2.0623e+00 ,2.2628e+00 ,3.0107e+00 ,3.7562e+00 , & - &4.4918e+00 ,5.1850e+00 ,6.0203e+00 /) - kao(:, 5, 5,14) = (/ & - &2.6832e+00 ,2.3569e+00 ,2.3578e+00 ,2.7266e+00 ,3.6306e+00 ,4.5292e+00 , & - &5.4146e+00 ,6.2480e+00 ,7.2595e+00 /) - kao(:, 1, 6,14) = (/ & - &2.1798e+00 ,1.9076e+00 ,1.6634e+00 ,1.6610e+00 ,1.6126e+00 ,1.8086e+00 , & - &2.1681e+00 ,2.5212e+00 ,2.8955e+00 /) - kao(:, 2, 6,14) = (/ & - &2.7568e+00 ,2.4124e+00 ,2.1319e+00 ,2.0890e+00 ,2.0379e+00 ,2.3402e+00 , & - &2.8045e+00 ,3.2592e+00 ,3.7464e+00 /) - kao(:, 3, 6,14) = (/ & - &3.3653e+00 ,2.9447e+00 ,2.6494e+00 ,2.5260e+00 ,2.4774e+00 ,2.9464e+00 , & - &3.5300e+00 ,4.0980e+00 ,4.7178e+00 /) - kao(:, 4, 6,14) = (/ & - &3.9980e+00 ,3.4981e+00 ,3.2081e+00 ,2.9759e+00 ,2.9694e+00 ,3.6441e+00 , & - &4.3643e+00 ,5.0633e+00 ,5.8364e+00 /) - kao(:, 5, 6,14) = (/ & - &4.6371e+00 ,4.0569e+00 ,3.7676e+00 ,3.4231e+00 ,3.5724e+00 ,4.4465e+00 , & - &5.3245e+00 ,6.1747e+00 ,7.1186e+00 /) - kao(:, 1, 7,14) = (/ & - &3.6500e+00 ,3.1940e+00 ,2.7377e+00 ,2.3521e+00 ,2.2005e+00 ,1.9226e+00 , & - &1.8951e+00 ,2.2032e+00 ,2.5224e+00 /) - kao(:, 2, 7,14) = (/ & - &4.7380e+00 ,4.1460e+00 ,3.5535e+00 ,3.0746e+00 ,2.8560e+00 ,2.4862e+00 , & - &2.5325e+00 ,2.9498e+00 ,3.3790e+00 /) - kao(:, 3, 7,14) = (/ & - &5.9099e+00 ,5.1713e+00 ,4.4326e+00 ,3.9038e+00 ,3.5341e+00 ,3.0823e+00 , & - &3.2930e+00 ,3.8333e+00 ,4.3949e+00 /) - kao(:, 4, 7,14) = (/ & - &7.1406e+00 ,6.2480e+00 ,5.3561e+00 ,4.7936e+00 ,4.2290e+00 ,3.7296e+00 , & - &4.1867e+00 ,4.8720e+00 ,5.5890e+00 /) - kao(:, 5, 7,14) = (/ & - &8.4067e+00 ,7.3559e+00 ,6.3050e+00 ,5.6953e+00 ,4.9319e+00 ,4.4981e+00 , & - &5.2053e+00 ,6.0551e+00 ,6.9478e+00 /) - kao(:, 1, 8,14) = (/ & - &7.2793e+00 ,6.3695e+00 ,5.4593e+00 ,4.5496e+00 ,3.6668e+00 ,3.0739e+00 , & - &2.3812e+00 ,1.8850e+00 ,2.1414e+00 /) - kao(:, 2, 8,14) = (/ & - &9.7148e+00 ,8.5004e+00 ,7.2858e+00 ,6.0719e+00 ,4.9067e+00 ,4.1050e+00 , & - &3.1504e+00 ,2.5960e+00 ,2.9698e+00 /) - kao(:, 3, 8,14) = (/ & - &1.2408e+01 ,1.0858e+01 ,9.3058e+00 ,7.7549e+00 ,6.3008e+00 ,5.2586e+00 , & - &3.9820e+00 ,3.4865e+00 ,3.9886e+00 /) - kao(:, 4, 8,14) = (/ & - &1.5301e+01 ,1.3388e+01 ,1.1476e+01 ,9.5632e+00 ,7.8364e+00 ,6.4696e+00 , & - &4.8601e+00 ,4.5513e+00 ,5.2081e+00 /) - kao(:, 5, 8,14) = (/ & - &1.8319e+01 ,1.6029e+01 ,1.3740e+01 ,1.1449e+01 ,9.4798e+00 ,7.7150e+00 , & - &5.8215e+00 ,5.7877e+00 ,6.6226e+00 /) - kao(:, 1, 9,14) = (/ & - &2.7093e+01 ,2.3706e+01 ,2.0321e+01 ,1.6934e+01 ,1.3547e+01 ,1.0161e+01 , & - &6.7735e+00 ,3.8947e+00 ,1.7904e+00 /) - kao(:, 2, 9,14) = (/ & - &3.7356e+01 ,3.2687e+01 ,2.8017e+01 ,2.3347e+01 ,1.8679e+01 ,1.4008e+01 , & - &9.3393e+00 ,5.3672e+00 ,2.5563e+00 /) - kao(:, 3, 9,14) = (/ & - &4.9010e+01 ,4.2883e+01 ,3.6757e+01 ,3.0630e+01 ,2.4505e+01 ,1.8379e+01 , & - &1.2257e+01 ,7.0400e+00 ,3.5347e+00 /) - kao(:, 4, 9,14) = (/ & - &6.1735e+01 ,5.4018e+01 ,4.6300e+01 ,3.8583e+01 ,3.0868e+01 ,2.3150e+01 , & - &1.5458e+01 ,8.8071e+00 ,4.7393e+00 /) - kao(:, 5, 9,14) = (/ & - &7.5284e+01 ,6.5873e+01 ,5.6463e+01 ,4.7052e+01 ,3.7640e+01 ,2.8233e+01 , & - &1.8889e+01 ,1.0654e+01 ,6.1635e+00 /) - kao(:, 1,10,14) = (/ & - &1.1501e+02 ,1.0064e+02 ,8.6262e+01 ,7.1883e+01 ,5.7506e+01 ,4.3130e+01 , & - &2.8755e+01 ,1.4378e+01 ,5.7116e-01 /) - kao(:, 2,10,14) = (/ & - &1.6323e+02 ,1.4283e+02 ,1.2242e+02 ,1.0202e+02 ,8.1614e+01 ,6.1213e+01 , & - &4.0807e+01 ,2.0405e+01 ,4.6944e-01 /) - kao(:, 3,10,14) = (/ & - &2.1950e+02 ,1.9206e+02 ,1.6462e+02 ,1.3718e+02 ,1.0975e+02 ,8.2311e+01 , & - &5.4875e+01 ,2.7438e+01 ,1.0245e+00 /) - kao(:, 4,10,14) = (/ & - &2.8264e+02 ,2.4730e+02 ,2.1197e+02 ,1.7666e+02 ,1.4132e+02 ,1.0599e+02 , & - &7.0664e+01 ,3.5330e+01 ,2.8560e+00 /) - kao(:, 5,10,14) = (/ & - &3.5102e+02 ,3.0716e+02 ,2.6326e+02 ,2.1939e+02 ,1.7551e+02 ,1.3164e+02 , & - &8.7759e+01 ,4.3879e+01 ,5.5928e+00 /) - kao(:, 1,11,14) = (/ & - &2.0513e+02 ,1.7948e+02 ,1.5384e+02 ,1.2821e+02 ,1.0256e+02 ,7.6924e+01 , & - &5.1281e+01 ,2.5640e+01 ,9.4489e-01 /) - kao(:, 2,11,14) = (/ & - &2.8915e+02 ,2.5300e+02 ,2.1687e+02 ,1.8072e+02 ,1.4458e+02 ,1.0844e+02 , & - &7.2287e+01 ,3.6146e+01 ,1.0101e+00 /) - kao(:, 3,11,14) = (/ & - &3.8981e+02 ,3.4108e+02 ,2.9236e+02 ,2.4364e+02 ,1.9490e+02 ,1.4617e+02 , & - &9.7460e+01 ,4.8730e+01 ,5.8913e-01 /) - kao(:, 4,11,14) = (/ & - &5.0429e+02 ,4.4124e+02 ,3.7819e+02 ,3.1515e+02 ,2.5212e+02 ,1.8910e+02 , & - &1.2606e+02 ,6.3034e+01 ,1.0227e+00 /) - kao(:, 5,11,14) = (/ & - &6.2985e+02 ,5.5113e+02 ,4.7241e+02 ,3.9368e+02 ,3.1495e+02 ,2.3621e+02 , & - &1.5747e+02 ,7.8734e+01 ,3.1704e+00 /) - kao(:, 1,12,14) = (/ & - &2.7480e+02 ,2.4043e+02 ,2.0609e+02 ,1.7173e+02 ,1.3740e+02 ,1.0305e+02 , & - &6.8696e+01 ,3.4350e+01 ,1.0331e+00 /) - kao(:, 2,12,14) = (/ & - &3.8434e+02 ,3.3629e+02 ,2.8824e+02 ,2.4020e+02 ,1.9217e+02 ,1.4412e+02 , & - &9.6082e+01 ,4.8041e+01 ,1.0697e+00 /) - kao(:, 3,12,14) = (/ & - &5.1835e+02 ,4.5357e+02 ,3.8876e+02 ,3.2398e+02 ,2.5917e+02 ,1.9438e+02 , & - &1.2959e+02 ,6.4795e+01 ,6.6152e-01 /) - kao(:, 4,12,14) = (/ & - &6.7292e+02 ,5.8878e+02 ,5.0467e+02 ,4.2055e+02 ,3.3645e+02 ,2.5234e+02 , & - &1.6823e+02 ,8.4112e+01 ,1.1390e+00 /) - kao(:, 5,12,14) = (/ & - &8.4273e+02 ,7.3739e+02 ,6.3205e+02 ,5.2668e+02 ,4.2135e+02 ,3.1602e+02 , & - &2.1069e+02 ,1.0534e+02 ,2.2409e+00 /) - kao(:, 1,13,14) = (/ & - &2.9725e+02 ,2.6009e+02 ,2.2295e+02 ,1.8578e+02 ,1.4862e+02 ,1.1147e+02 , & - &7.4314e+01 ,3.7158e+01 ,8.5883e-01 /) - kao(:, 2,13,14) = (/ & - &4.1294e+02 ,3.6134e+02 ,3.0971e+02 ,2.5809e+02 ,2.0649e+02 ,1.5487e+02 , & - &1.0324e+02 ,5.1621e+01 ,7.4403e-01 /) - kao(:, 3,13,14) = (/ & - &5.5484e+02 ,4.8548e+02 ,4.1611e+02 ,3.4677e+02 ,2.7741e+02 ,2.0806e+02 , & - &1.3871e+02 ,6.9351e+01 ,6.5779e-01 /) - kao(:, 4,13,14) = (/ & - &7.2016e+02 ,6.3017e+02 ,5.4015e+02 ,4.5013e+02 ,3.6010e+02 ,2.7007e+02 , & - &1.8004e+02 ,9.0025e+01 ,1.1133e+00 /) - kao(:, 5,13,14) = (/ & - &9.0551e+02 ,7.9235e+02 ,6.7916e+02 ,5.6596e+02 ,4.5276e+02 ,3.3958e+02 , & - &2.2638e+02 ,1.1319e+02 ,2.5474e+00 /) - kao(:, 1, 1,15) = (/ & - &1.6993e-01 ,6.2319e-01 ,1.2302e+00 ,1.8117e+00 ,2.3534e+00 ,2.8224e+00 , & - &3.1427e+00 ,3.0683e+00 ,4.7067e+00 /) - kao(:, 2, 1,15) = (/ & - &1.9652e-01 ,7.8355e-01 ,1.5463e+00 ,2.2775e+00 ,2.9572e+00 ,3.5450e+00 , & - &3.9419e+00 ,3.8320e+00 ,5.9144e+00 /) - kao(:, 3, 1,15) = (/ & - &2.2200e-01 ,9.5617e-01 ,1.8872e+00 ,2.7806e+00 ,3.6114e+00 ,4.3315e+00 , & - &4.8212e+00 ,4.6828e+00 ,7.2228e+00 /) - kao(:, 4, 1,15) = (/ & - &2.4720e-01 ,1.1411e+00 ,2.2528e+00 ,3.3193e+00 ,4.3116e+00 ,5.1713e+00 , & - &5.7552e+00 ,5.5959e+00 ,8.6231e+00 /) - kao(:, 5, 1,15) = (/ & - &2.7067e-01 ,1.3368e+00 ,2.6392e+00 ,3.8885e+00 ,5.0531e+00 ,6.0617e+00 , & - &6.7490e+00 ,6.5681e+00 ,1.0106e+01 /) - kao(:, 1, 2,15) = (/ & - &2.5495e-01 ,6.7714e-01 ,1.3429e+00 ,1.9911e+00 ,2.6102e+00 ,3.1741e+00 , & - &3.6176e+00 ,3.6989e+00 ,5.2204e+00 /) - kao(:, 2, 2,15) = (/ & - &2.9713e-01 ,8.6139e-01 ,1.7085e+00 ,2.5326e+00 ,3.3191e+00 ,4.0358e+00 , & - &4.5977e+00 ,4.6904e+00 ,6.6382e+00 /) - kao(:, 3, 2,15) = (/ & - &3.3791e-01 ,1.0632e+00 ,2.1089e+00 ,3.1273e+00 ,4.0996e+00 ,4.9862e+00 , & - &5.6823e+00 ,5.7948e+00 ,8.1990e+00 /) - kao(:, 4, 2,15) = (/ & - &3.7751e-01 ,1.2778e+00 ,2.5347e+00 ,3.7591e+00 ,4.9277e+00 ,5.9944e+00 , & - &6.8345e+00 ,6.9830e+00 ,9.8554e+00 /) - kao(:, 5, 2,15) = (/ & - &4.1544e-01 ,1.5054e+00 ,2.9855e+00 ,4.4278e+00 ,5.8067e+00 ,7.0647e+00 , & - &8.0557e+00 ,8.2364e+00 ,1.1613e+01 /) - kao(:, 1, 3,15) = (/ & - &4.9608e-01 ,6.8984e-01 ,1.3746e+00 ,2.0502e+00 ,2.7121e+00 ,3.3455e+00 , & - &3.9122e+00 ,4.2490e+00 ,5.4242e+00 /) - kao(:, 2, 3,15) = (/ & - &5.8591e-01 ,8.9422e-01 ,1.7812e+00 ,2.6579e+00 ,3.5151e+00 ,4.3360e+00 , & - &5.0694e+00 ,5.5020e+00 ,7.0303e+00 /) - kao(:, 3, 3,15) = (/ & - &6.7409e-01 ,1.1231e+00 ,2.2377e+00 ,3.3379e+00 ,4.4153e+00 ,5.4452e+00 , & - &6.3666e+00 ,6.9097e+00 ,8.8307e+00 /) - kao(:, 4, 3,15) = (/ & - &7.5926e-01 ,1.3688e+00 ,2.7271e+00 ,4.0692e+00 ,5.3814e+00 ,6.6410e+00 , & - &7.7706e+00 ,8.4452e+00 ,1.0763e+01 /) - kao(:, 5, 3,15) = (/ & - &8.4200e-01 ,1.6284e+00 ,3.2443e+00 ,4.8405e+00 ,6.4040e+00 ,7.9036e+00 , & - &9.2460e+00 ,1.0057e+01 ,1.2808e+01 /) - kao(:, 1, 4,15) = (/ & - &9.7215e-01 ,8.5067e-01 ,1.3532e+00 ,2.0247e+00 ,2.6895e+00 ,3.3419e+00 , & - &3.9624e+00 ,4.4662e+00 ,5.3791e+00 /) - kao(:, 2, 4,15) = (/ & - &1.1632e+00 ,1.0264e+00 ,1.7937e+00 ,2.6847e+00 ,3.5667e+00 ,4.4317e+00 , & - &5.2538e+00 ,5.9212e+00 ,7.1333e+00 /) - kao(:, 3, 4,15) = (/ & - &1.3574e+00 ,1.2217e+00 ,2.2951e+00 ,3.4352e+00 ,4.5625e+00 ,5.6686e+00 , & - &6.7222e+00 ,7.5788e+00 ,9.1250e+00 /) - kao(:, 4, 4,15) = (/ & - &1.5473e+00 ,1.4621e+00 ,2.8487e+00 ,4.2635e+00 ,5.6651e+00 ,7.0387e+00 , & - &8.3491e+00 ,9.4177e+00 ,1.1330e+01 /) - kao(:, 5, 4,15) = (/ & - &1.7305e+00 ,1.7312e+00 ,3.4330e+00 ,5.1366e+00 ,6.8257e+00 ,8.4825e+00 , & - &1.0065e+01 ,1.1356e+01 ,1.3651e+01 /) - kao(:, 1, 5,15) = (/ & - &1.7388e+00 ,1.5215e+00 ,1.3772e+00 ,1.9641e+00 ,2.6140e+00 ,3.2573e+00 , & - &3.8853e+00 ,4.4515e+00 ,5.2280e+00 /) - kao(:, 2, 5,15) = (/ & - &2.1169e+00 ,1.8521e+00 ,1.7962e+00 ,2.6470e+00 ,3.5230e+00 ,4.3915e+00 , & - &5.2396e+00 ,6.0117e+00 ,7.0460e+00 /) - kao(:, 3, 5,15) = (/ & - &2.5041e+00 ,2.1909e+00 ,2.3110e+00 ,3.4553e+00 ,4.5986e+00 ,5.7308e+00 , & - &6.8405e+00 ,7.8473e+00 ,9.1972e+00 /) - kao(:, 4, 5,15) = (/ & - &2.8915e+00 ,2.5301e+00 ,2.9136e+00 ,4.3640e+00 ,5.8101e+00 ,7.2418e+00 , & - &8.6447e+00 ,9.9184e+00 ,1.1620e+01 /) - kao(:, 5, 5,15) = (/ & - &3.2655e+00 ,2.8574e+00 ,3.5660e+00 ,5.3438e+00 ,7.1123e+00 ,8.8675e+00 , & - &1.0583e+01 ,1.2152e+01 ,1.4224e+01 /) - kao(:, 1, 6,15) = (/ & - &2.8657e+00 ,2.5077e+00 ,2.1495e+00 ,1.9426e+00 ,2.5509e+00 ,3.1827e+00 , & - &3.8069e+00 ,4.3973e+00 ,5.1017e+00 /) - kao(:, 2, 6,15) = (/ & - &3.5656e+00 ,3.1200e+00 ,2.6742e+00 ,2.5857e+00 ,3.4175e+00 ,4.2650e+00 , & - &5.1021e+00 ,5.8962e+00 ,6.8350e+00 /) - kao(:, 3, 6,15) = (/ & - &4.2807e+00 ,3.7458e+00 ,3.2105e+00 ,3.3891e+00 ,4.4929e+00 ,5.6082e+00 , & - &6.7100e+00 ,7.7616e+00 ,8.9857e+00 /) - kao(:, 4, 6,15) = (/ & - &5.0170e+00 ,4.3893e+00 ,3.7667e+00 ,4.3378e+00 ,5.7738e+00 ,7.2087e+00 , & - &8.6270e+00 ,9.9837e+00 ,1.1548e+01 /) - kao(:, 5, 6,15) = (/ & - &5.7403e+00 ,5.0226e+00 ,4.3725e+00 ,5.3984e+00 ,7.1936e+00 ,8.9774e+00 , & - &1.0747e+01 ,1.2440e+01 ,1.4387e+01 /) - kao(:, 1, 7,15) = (/ & - &4.9113e+00 ,4.2974e+00 ,3.6835e+00 ,3.0697e+00 ,2.6153e+00 ,3.1091e+00 , & - &3.7251e+00 ,4.3239e+00 ,4.9783e+00 /) - kao(:, 2, 7,15) = (/ & - &6.2562e+00 ,5.4743e+00 ,4.6920e+00 ,3.9102e+00 ,3.4334e+00 ,4.1812e+00 , & - &5.0095e+00 ,5.8168e+00 ,6.6958e+00 /) - kao(:, 3, 7,15) = (/ & - &7.6604e+00 ,6.7031e+00 ,5.7453e+00 ,4.7880e+00 ,4.4844e+00 ,5.5063e+00 , & - &6.5975e+00 ,7.6628e+00 ,8.8178e+00 /) - kao(:, 4, 7,15) = (/ & - &9.1018e+00 ,7.9643e+00 ,6.8268e+00 ,5.7331e+00 ,5.7498e+00 ,7.0854e+00 , & - &8.4900e+00 ,9.8659e+00 ,1.1347e+01 /) - kao(:, 5, 7,15) = (/ & - &1.0558e+01 ,9.2378e+00 ,7.9183e+00 ,6.7553e+00 ,7.1878e+00 ,8.8933e+00 , & - &1.0658e+01 ,1.2385e+01 ,1.4238e+01 /) - kao(:, 1, 8,15) = (/ & - &1.0009e+01 ,8.7571e+00 ,7.5061e+00 ,6.2547e+00 ,5.0042e+00 ,3.7993e+00 , & - &3.6112e+00 ,4.2052e+00 ,4.8194e+00 /) - kao(:, 2, 8,15) = (/ & - &1.3089e+01 ,1.1454e+01 ,9.8171e+00 ,8.1811e+00 ,6.5451e+00 ,5.0064e+00 , & - &4.9059e+00 ,5.7129e+00 ,6.5481e+00 /) - kao(:, 3, 8,15) = (/ & - &1.6387e+01 ,1.4339e+01 ,1.2290e+01 ,1.0242e+01 ,8.1941e+00 ,6.3517e+00 , & - &6.5066e+00 ,7.5778e+00 ,8.6840e+00 /) - kao(:, 4, 8,15) = (/ & - &1.9809e+01 ,1.7333e+01 ,1.4856e+01 ,1.2381e+01 ,9.9047e+00 ,7.9569e+00 , & - &8.4189e+00 ,9.8052e+00 ,1.1235e+01 /) - kao(:, 5, 8,15) = (/ & - &2.3310e+01 ,2.0396e+01 ,1.7482e+01 ,1.4569e+01 ,1.1654e+01 ,9.7998e+00 , & - &1.0613e+01 ,1.2362e+01 ,1.4162e+01 /) - kao(:, 1, 9,15) = (/ & - &3.8130e+01 ,3.3362e+01 ,2.8596e+01 ,2.3830e+01 ,1.9065e+01 ,1.4298e+01 , & - &9.5322e+00 ,4.9254e+00 ,4.5210e+00 /) - kao(:, 2, 9,15) = (/ & - &5.1350e+01 ,4.4933e+01 ,3.8514e+01 ,3.2094e+01 ,2.5677e+01 ,1.9258e+01 , & - &1.2838e+01 ,6.6242e+00 ,6.3225e+00 /) - kao(:, 3, 9,15) = (/ & - &6.5865e+01 ,5.7633e+01 ,4.9398e+01 ,4.1167e+01 ,3.2931e+01 ,2.4701e+01 , & - &1.6465e+01 ,8.5406e+00 ,8.4711e+00 /) - kao(:, 4, 9,15) = (/ & - &8.1194e+01 ,7.1041e+01 ,6.0891e+01 ,5.0738e+01 ,4.0591e+01 ,3.0449e+01 , & - &2.0297e+01 ,1.0902e+01 ,1.1050e+01 /) - kao(:, 5, 9,15) = (/ & - &9.6976e+01 ,8.4851e+01 ,7.2734e+01 ,6.0609e+01 ,4.8485e+01 ,3.6366e+01 , & - &2.4244e+01 ,1.3609e+01 ,1.4022e+01 /) - kao(:, 1,10,15) = (/ & - &1.6495e+02 ,1.4434e+02 ,1.2371e+02 ,1.0308e+02 ,8.2478e+01 ,6.1862e+01 , & - &4.1240e+01 ,2.0620e+01 ,1.6305e+00 /) - kao(:, 2,10,15) = (/ & - &2.2828e+02 ,1.9973e+02 ,1.7121e+02 ,1.4267e+02 ,1.1414e+02 ,8.5604e+01 , & - &5.7062e+01 ,2.8536e+01 ,5.3393e+00 /) - kao(:, 3,10,15) = (/ & - &2.9925e+02 ,2.6184e+02 ,2.2444e+02 ,1.8703e+02 ,1.4963e+02 ,1.1222e+02 , & - &7.4815e+01 ,3.7408e+01 ,8.3308e+00 /) - kao(:, 4,10,15) = (/ & - &3.7719e+02 ,3.3003e+02 ,2.8287e+02 ,2.3573e+02 ,1.8859e+02 ,1.4144e+02 , & - &9.4294e+01 ,4.7146e+01 ,1.0953e+01 /) - kao(:, 5,10,15) = (/ & - &4.5955e+02 ,4.0214e+02 ,3.4467e+02 ,2.8724e+02 ,2.2979e+02 ,1.7235e+02 , & - &1.1490e+02 ,5.7448e+01 ,1.3975e+01 /) - kao(:, 1,11,15) = (/ & - &2.9347e+02 ,2.5677e+02 ,2.2010e+02 ,1.8342e+02 ,1.4673e+02 ,1.1005e+02 , & - &7.3365e+01 ,3.6685e+01 ,2.5030e-01 /) - kao(:, 2,11,15) = (/ & - &4.0846e+02 ,3.5738e+02 ,3.0635e+02 ,2.5530e+02 ,2.0423e+02 ,1.5319e+02 , & - &1.0212e+02 ,5.1058e+01 ,2.2261e+00 /) - kao(:, 3,11,15) = (/ & - &5.3934e+02 ,4.7191e+02 ,4.0450e+02 ,3.3708e+02 ,2.6969e+02 ,2.0225e+02 , & - &1.3483e+02 ,6.7419e+01 ,7.0745e+00 /) - kao(:, 4,11,15) = (/ & - &6.8280e+02 ,5.9745e+02 ,5.1209e+02 ,4.2676e+02 ,3.4141e+02 ,2.5605e+02 , & - &1.7070e+02 ,8.5353e+01 ,1.1909e+01 /) - kao(:, 5,11,15) = (/ & - &8.3619e+02 ,7.3167e+02 ,6.2713e+02 ,5.2262e+02 ,4.1810e+02 ,3.1359e+02 , & - &2.0904e+02 ,1.0453e+02 ,1.5372e+01 /) - kao(:, 1,12,15) = (/ & - &3.9587e+02 ,3.4637e+02 ,2.9690e+02 ,2.4742e+02 ,1.9794e+02 ,1.4844e+02 , & - &9.8964e+01 ,4.9484e+01 ,3.4642e-05 /) - kao(:, 2,12,15) = (/ & - &5.5272e+02 ,4.8359e+02 ,4.1455e+02 ,3.4543e+02 ,2.7636e+02 ,2.0725e+02 , & - &1.3818e+02 ,6.9086e+01 ,1.7207e+00 /) - kao(:, 3,12,15) = (/ & - &7.3408e+02 ,6.4226e+02 ,5.5052e+02 ,4.5884e+02 ,3.6704e+02 ,2.7529e+02 , & - &1.8352e+02 ,9.1757e+01 ,6.4555e+00 /) - kao(:, 4,12,15) = (/ & - &9.3778e+02 ,8.2044e+02 ,7.0331e+02 ,5.8607e+02 ,4.6883e+02 ,3.5166e+02 , & - &2.3443e+02 ,1.1722e+02 ,1.0884e+01 /) - kao(:, 5,12,15) = (/ & - &1.1629e+03 ,1.0175e+03 ,8.7216e+02 ,7.2684e+02 ,5.8142e+02 ,4.3609e+02 , & - &2.9073e+02 ,1.4537e+02 ,1.6871e+01 /) - kao(:, 1,13,15) = (/ & - &4.3408e+02 ,3.7980e+02 ,3.2553e+02 ,2.7129e+02 ,2.1704e+02 ,1.6278e+02 , & - &1.0851e+02 ,5.4254e+01 ,3.3387e-01 /) - kao(:, 2,13,15) = (/ & - &6.1113e+02 ,5.3482e+02 ,4.5841e+02 ,3.8201e+02 ,3.0560e+02 ,2.2920e+02 , & - &1.5279e+02 ,7.6397e+01 ,3.4060e+00 /) - kao(:, 3,13,15) = (/ & - &8.2033e+02 ,7.1780e+02 ,6.1525e+02 ,5.1272e+02 ,4.1017e+02 ,3.0764e+02 , & - &2.0509e+02 ,1.0254e+02 ,7.3848e+00 /) - kao(:, 4,13,15) = (/ & - &1.0623e+03 ,9.2952e+02 ,7.9671e+02 ,6.6390e+02 ,5.3111e+02 ,3.9834e+02 , & - &2.6556e+02 ,1.3278e+02 ,1.3310e+01 /) - kao(:, 5,13,15) = (/ & - &1.3308e+03 ,1.1645e+03 ,9.9813e+02 ,8.3174e+02 ,6.6542e+02 ,4.9907e+02 , & - &3.3271e+02 ,1.6635e+02 ,1.8499e+01 /) - kao(:, 1, 1,16) = (/ & - &1.7254e-01 ,6.6462e-01 ,1.3115e+00 ,1.9318e+00 ,2.5084e+00 ,3.0076e+00 , & - &3.3449e+00 ,3.2523e+00 ,5.0169e+00 /) - kao(:, 2, 1,16) = (/ & - &1.9945e-01 ,8.1688e-01 ,1.6118e+00 ,2.3741e+00 ,3.0836e+00 ,3.6966e+00 , & - &4.1116e+00 ,3.9980e+00 ,6.1673e+00 /) - kao(:, 3, 1,16) = (/ & - &2.2510e-01 ,1.0070e+00 ,1.9841e+00 ,2.9159e+00 ,3.7748e+00 ,4.5037e+00 , & - &4.9689e+00 ,4.7883e+00 ,7.5495e+00 /) - kao(:, 4, 1,16) = (/ & - &2.5048e-01 ,1.2252e+00 ,2.4140e+00 ,3.5479e+00 ,4.5928e+00 ,5.4806e+00 , & - &6.0471e+00 ,5.7831e+00 ,9.1856e+00 /) - kao(:, 5, 1,16) = (/ & - &2.7413e-01 ,1.4585e+00 ,2.8735e+00 ,4.2233e+00 ,5.4678e+00 ,6.4913e+00 , & - &7.1996e+00 ,6.8835e+00 ,1.0936e+01 /) - kao(:, 1, 2,16) = (/ & - &2.5949e-01 ,7.4073e-01 ,1.4685e+00 ,2.1764e+00 ,2.8509e+00 ,3.4639e+00 , & - &3.9405e+00 ,4.0097e+00 ,5.7017e+00 /) - kao(:, 2, 2,16) = (/ & - &3.0220e-01 ,9.2128e-01 ,1.8172e+00 ,2.6931e+00 ,3.5460e+00 ,4.3080e+00 , & - &4.9007e+00 ,4.9876e+00 ,7.0918e+00 /) - kao(:, 3, 2,16) = (/ & - &3.4341e-01 ,1.1291e+00 ,2.2360e+00 ,3.3088e+00 ,4.3252e+00 ,5.2383e+00 , & - &5.9360e+00 ,6.0318e+00 ,8.6502e+00 /) - kao(:, 4, 2,16) = (/ & - &3.8325e-01 ,1.3874e+00 ,2.7481e+00 ,4.0666e+00 ,5.3159e+00 ,6.4367e+00 , & - &7.2790e+00 ,7.3059e+00 ,1.0632e+01 /) - kao(:, 5, 2,16) = (/ & - &4.2153e-01 ,1.6660e+00 ,3.2992e+00 ,4.8823e+00 ,6.3819e+00 ,7.7290e+00 , & - &8.7410e+00 ,8.7737e+00 ,1.2764e+01 /) - kao(:, 1, 3,16) = (/ & - &5.0644e-01 ,7.8255e-01 ,1.5587e+00 ,2.3239e+00 ,3.0716e+00 ,3.7848e+00 , & - &4.4177e+00 ,4.7740e+00 ,6.1431e+00 /) - kao(:, 2, 3,16) = (/ & - &5.9759e-01 ,9.9169e-01 ,1.9751e+00 ,2.9450e+00 ,3.8926e+00 ,4.7966e+00 , & - &5.5986e+00 ,6.0493e+00 ,7.7852e+00 /) - kao(:, 3, 3,16) = (/ & - &6.8696e-01 ,1.2186e+00 ,2.4265e+00 ,3.6186e+00 ,4.7825e+00 ,5.8630e+00 , & - &6.8786e+00 ,7.4328e+00 ,9.5649e+00 /) - kao(:, 4, 3,16) = (/ & - &7.7291e-01 ,1.5044e+00 ,2.9942e+00 ,4.4622e+00 ,5.8918e+00 ,7.2471e+00 , & - &8.4308e+00 ,9.0321e+00 ,1.1784e+01 /) - kao(:, 5, 3,16) = (/ & - &8.5655e-01 ,1.8308e+00 ,3.6443e+00 ,5.4303e+00 ,7.1696e+00 ,8.8191e+00 , & - &1.0261e+01 ,1.0994e+01 ,1.4339e+01 /) - kao(:, 1, 4,16) = (/ & - &9.9660e-01 ,8.7187e-01 ,1.6058e+00 ,2.4020e+00 ,3.1900e+00 ,3.9596e+00 , & - &4.6884e+00 ,5.2602e+00 ,6.3800e+00 /) - kao(:, 2, 4,16) = (/ & - &1.1909e+00 ,1.0454e+00 ,2.0813e+00 ,3.1135e+00 ,4.1338e+00 ,5.1320e+00 , & - &6.0754e+00 ,6.8176e+00 ,8.2675e+00 /) - kao(:, 3, 4,16) = (/ & - &1.3883e+00 ,1.3053e+00 ,2.6054e+00 ,3.8972e+00 ,5.1746e+00 ,6.4245e+00 , & - &7.6056e+00 ,8.5415e+00 ,1.0349e+01 /) - kao(:, 4, 4,16) = (/ & - &1.5813e+00 ,1.6017e+00 ,3.1965e+00 ,4.7803e+00 ,6.3446e+00 ,7.8728e+00 , & - &9.3118e+00 ,1.0423e+01 ,1.2689e+01 /) - kao(:, 5, 4,16) = (/ & - &1.7666e+00 ,1.9742e+00 ,3.9398e+00 ,5.8918e+00 ,7.8191e+00 ,9.6976e+00 , & - &1.1463e+01 ,1.2804e+01 ,1.5638e+01 /) - kao(:, 1, 5,16) = (/ & - &1.7905e+00 ,1.5668e+00 ,1.6306e+00 ,2.4424e+00 ,3.2499e+00 ,4.0478e+00 , & - &4.8237e+00 ,5.5141e+00 ,6.4998e+00 /) - kao(:, 2, 5,16) = (/ & - &2.1763e+00 ,1.9041e+00 ,2.1658e+00 ,3.2440e+00 ,4.3166e+00 ,5.3771e+00 , & - &6.4071e+00 ,7.3247e+00 ,8.6332e+00 /) - kao(:, 3, 5,16) = (/ & - &2.5702e+00 ,2.2488e+00 ,2.7671e+00 ,4.1446e+00 ,5.5145e+00 ,6.8692e+00 , & - &8.1862e+00 ,9.3584e+00 ,1.1029e+01 /) - kao(:, 4, 5,16) = (/ & - &2.9652e+00 ,2.5941e+00 ,3.4291e+00 ,5.1370e+00 ,6.8346e+00 ,8.5115e+00 , & - &1.0142e+01 ,1.1590e+01 ,1.3669e+01 /) - kao(:, 5, 5,16) = (/ & - &3.3442e+00 ,2.9260e+00 ,4.2225e+00 ,6.3231e+00 ,8.4117e+00 ,1.0473e+01 , & - &1.2473e+01 ,1.4226e+01 ,1.6823e+01 /) - kao(:, 1, 6,16) = (/ & - &2.9659e+00 ,2.5957e+00 ,2.2251e+00 ,2.4192e+00 ,3.2212e+00 ,4.0191e+00 , & - &4.8055e+00 ,5.5432e+00 ,6.4424e+00 /) - kao(:, 2, 6,16) = (/ & - &3.6832e+00 ,3.2223e+00 ,2.7616e+00 ,3.3057e+00 ,4.4026e+00 ,5.4931e+00 , & - &6.5666e+00 ,7.5768e+00 ,8.8051e+00 /) - kao(:, 3, 6,16) = (/ & - &4.4116e+00 ,3.8604e+00 ,3.3096e+00 ,4.3238e+00 ,5.7589e+00 ,7.1852e+00 , & - &8.5905e+00 ,9.9138e+00 ,1.1518e+01 /) - kao(:, 4, 6,16) = (/ & - &5.1628e+00 ,4.5167e+00 ,3.8530e+00 ,5.4598e+00 ,7.2711e+00 ,9.0722e+00 , & - &1.0846e+01 ,1.2515e+01 ,1.4542e+01 /) - kao(:, 5, 6,16) = (/ & - &5.8968e+00 ,5.1602e+00 ,4.5054e+00 ,6.7527e+00 ,8.9935e+00 ,1.1218e+01 , & - &1.3409e+01 ,1.5457e+01 ,1.7987e+01 /) - kao(:, 1, 7,16) = (/ & - &5.1220e+00 ,4.4578e+00 ,3.8412e+00 ,3.1847e+00 ,3.1367e+00 ,3.9170e+00 , & - &4.6915e+00 ,5.4417e+00 ,6.2734e+00 /) - kao(:, 2, 7,16) = (/ & - &6.5146e+00 ,5.7005e+00 ,4.8852e+00 ,4.0720e+00 ,4.4224e+00 ,5.5237e+00 , & - &6.6151e+00 ,7.6744e+00 ,8.8447e+00 /) - kao(:, 3, 7,16) = (/ & - &7.9642e+00 ,6.9679e+00 ,5.9715e+00 ,4.9772e+00 ,5.9352e+00 ,7.4116e+00 , & - &8.8775e+00 ,1.0298e+01 ,1.1870e+01 /) - kao(:, 4, 7,16) = (/ & - &9.4454e+00 ,8.2650e+00 ,7.0847e+00 ,5.9047e+00 ,7.6537e+00 ,9.5584e+00 , & - &1.1448e+01 ,1.3281e+01 ,1.5307e+01 /) - kao(:, 5, 7,16) = (/ & - &1.0942e+01 ,9.5731e+00 ,8.2052e+00 ,7.1985e+00 ,9.5915e+00 ,1.1978e+01 , & - &1.4344e+01 ,1.6634e+01 ,1.9183e+01 /) - kao(:, 1, 8,16) = (/ & - &1.0533e+01 ,9.2146e+00 ,7.8983e+00 ,6.5814e+00 ,5.2661e+00 ,3.9493e+00 , & - &4.5315e+00 ,5.2737e+00 ,6.0497e+00 /) - kao(:, 2, 8,16) = (/ & - &1.3750e+01 ,1.2032e+01 ,1.0313e+01 ,8.5934e+00 ,6.8745e+00 ,5.4846e+00 , & - &6.5763e+00 ,7.6139e+00 ,8.7787e+00 /) - kao(:, 3, 8,16) = (/ & - &1.7175e+01 ,1.5029e+01 ,1.2881e+01 ,1.0735e+01 ,8.5883e+00 ,7.5634e+00 , & - &9.0692e+00 ,1.0555e+01 ,1.2107e+01 /) - kao(:, 4, 8,16) = (/ & - &2.0707e+01 ,1.8120e+01 ,1.5532e+01 ,1.2944e+01 ,1.0356e+01 ,9.9766e+00 , & - &1.1963e+01 ,1.3921e+01 ,1.5970e+01 /) - kao(:, 5, 8,16) = (/ & - &2.4320e+01 ,2.1282e+01 ,1.8238e+01 ,1.5200e+01 ,1.2161e+01 ,1.2723e+01 , & - &1.5254e+01 ,1.7752e+01 ,2.0364e+01 /) - kao(:, 1, 9,16) = (/ & - &4.0363e+01 ,3.5318e+01 ,3.0273e+01 ,2.5227e+01 ,2.0181e+01 ,1.5134e+01 , & - &1.0090e+01 ,5.4212e+00 ,6.1996e+00 /) - kao(:, 2, 9,16) = (/ & - &5.4231e+01 ,4.7444e+01 ,4.0667e+01 ,3.3896e+01 ,2.7114e+01 ,2.0336e+01 , & - &1.3557e+01 ,7.4876e+00 ,8.5638e+00 /) - kao(:, 3, 9,16) = (/ & - &6.9375e+01 ,6.0706e+01 ,5.2030e+01 ,4.3363e+01 ,3.4693e+01 ,2.6019e+01 , & - &1.7346e+01 ,1.0642e+01 ,1.2169e+01 /) - kao(:, 4, 9,16) = (/ & - &8.5364e+01 ,7.4694e+01 ,6.4003e+01 ,5.3349e+01 ,4.2675e+01 ,3.2007e+01 , & - &2.1338e+01 ,1.4379e+01 ,1.6444e+01 /) - kao(:, 5, 9,16) = (/ & - &1.0173e+02 ,8.9011e+01 ,7.6294e+01 ,6.3578e+01 ,5.0858e+01 ,3.8147e+01 , & - &2.5431e+01 ,1.8715e+01 ,2.1406e+01 /) - kao(:, 1,10,16) = (/ & - &1.7518e+02 ,1.5326e+02 ,1.3138e+02 ,1.0946e+02 ,8.7589e+01 ,6.5684e+01 , & - &4.3795e+01 ,2.1898e+01 ,6.6096e+00 /) - kao(:, 2,10,16) = (/ & - &2.4209e+02 ,2.1181e+02 ,1.8152e+02 ,1.5127e+02 ,1.2102e+02 ,9.0779e+01 , & - &6.0510e+01 ,3.0258e+01 ,8.7477e+00 /) - kao(:, 3,10,16) = (/ & - &3.1702e+02 ,2.7739e+02 ,2.3777e+02 ,1.9810e+02 ,1.5849e+02 ,1.1888e+02 , & - &7.9249e+01 ,3.9623e+01 ,1.2377e+01 /) - kao(:, 4,10,16) = (/ & - &3.9791e+02 ,3.4817e+02 ,2.9841e+02 ,2.4869e+02 ,1.9896e+02 ,1.4923e+02 , & - &9.9472e+01 ,4.9736e+01 ,1.7102e+01 /) - kao(:, 5,10,16) = (/ & - &4.8342e+02 ,4.2295e+02 ,3.6251e+02 ,3.0211e+02 ,2.4169e+02 ,1.8128e+02 , & - &1.2083e+02 ,6.0427e+01 ,2.2752e+01 /) - kao(:, 1,11,16) = (/ & - &3.1380e+02 ,2.7453e+02 ,2.3526e+02 ,1.9609e+02 ,1.5686e+02 ,1.1764e+02 , & - &7.8455e+01 ,3.9219e+01 ,4.1702e-05 /) - kao(:, 2,11,16) = (/ & - &4.3458e+02 ,3.8032e+02 ,3.2596e+02 ,2.7165e+02 ,2.1736e+02 ,1.6300e+02 , & - &1.0866e+02 ,5.4331e+01 ,1.0603e+01 /) - kao(:, 3,11,16) = (/ & - &5.7279e+02 ,5.0121e+02 ,4.2963e+02 ,3.5802e+02 ,2.8639e+02 ,2.1479e+02 , & - &1.4321e+02 ,7.1606e+01 ,1.4737e+01 /) - kao(:, 4,11,16) = (/ & - &7.2603e+02 ,6.3199e+02 ,5.4450e+02 ,4.5379e+02 ,3.6299e+02 ,2.7226e+02 , & - &1.8150e+02 ,9.0755e+01 ,2.0418e+01 /) - kao(:, 5,11,16) = (/ & - &8.9810e+02 ,7.8584e+02 ,6.7355e+02 ,5.6126e+02 ,4.4901e+02 ,3.3674e+02 , & - &2.2451e+02 ,1.1225e+02 ,2.7345e+01 /) - kao(:, 1,12,16) = (/ & - &4.2564e+02 ,3.7252e+02 ,3.1927e+02 ,2.6605e+02 ,2.1287e+02 ,1.5962e+02 , & - &1.0643e+02 ,5.3212e+01 ,3.3974e-05 /) - kao(:, 2,12,16) = (/ & - &5.9696e+02 ,5.2232e+02 ,4.4774e+02 ,3.7307e+02 ,2.9847e+02 ,2.2385e+02 , & - &1.4924e+02 ,7.4619e+01 ,1.2841e+01 /) - kao(:, 3,12,16) = (/ & - &8.0130e+02 ,7.0109e+02 ,6.0095e+02 ,5.0082e+02 ,4.0064e+02 ,3.0049e+02 , & - &2.0030e+02 ,1.0016e+02 ,1.7604e+01 /) - kao(:, 4,12,16) = (/ & - &1.0424e+03 ,9.1209e+02 ,7.8186e+02 ,6.5151e+02 ,5.2121e+02 ,3.9092e+02 , & - &2.6059e+02 ,1.3030e+02 ,2.4408e+01 /) - kao(:, 5,12,16) = (/ & - &1.3107e+03 ,1.1467e+03 ,9.8296e+02 ,8.1915e+02 ,6.5538e+02 ,4.9148e+02 , & - &3.2766e+02 ,1.6385e+02 ,3.2853e+01 /) - kao(:, 1,13,16) = (/ & - &4.8122e+02 ,4.2105e+02 ,3.6087e+02 ,3.0076e+02 ,2.4060e+02 ,1.8046e+02 , & - &1.2030e+02 ,6.0148e+01 ,7.3993e+00 /) - kao(:, 2,13,16) = (/ & - &6.9206e+02 ,6.0557e+02 ,5.1907e+02 ,4.3255e+02 ,3.4603e+02 ,2.5955e+02 , & - &1.7302e+02 ,8.6508e+01 ,1.5501e+01 /) - kao(:, 3,13,16) = (/ & - &9.4703e+02 ,8.2867e+02 ,7.1030e+02 ,5.9189e+02 ,4.7354e+02 ,3.5512e+02 , & - &2.3675e+02 ,1.1838e+02 ,2.1029e+01 /) - kao(:, 4,13,16) = (/ & - &1.2338e+03 ,1.0854e+03 ,9.3026e+02 ,7.7526e+02 ,6.2018e+02 ,4.6513e+02 , & - &3.1009e+02 ,1.5423e+02 ,2.9122e+01 /) - kao(:, 5,13,16) = (/ & - &1.5695e+03 ,1.3734e+03 ,1.1772e+03 ,9.8104e+02 ,7.8484e+02 ,5.8860e+02 , & - &3.9240e+02 ,1.9620e+02 ,3.9289e+01 /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kbo(:, 1,13, 1) = (/ & - &9.4796e-05 ,1.4361e-04 ,1.4118e-04 ,1.1819e-04 ,7.6303e-05 /) - kbo(:, 2,13, 1) = (/ & - &9.7387e-05 ,1.7115e-04 ,1.7300e-04 ,1.4824e-04 ,1.0469e-04 /) - kbo(:, 3,13, 1) = (/ & - &1.0951e-04 ,2.1604e-04 ,2.2323e-04 ,1.9350e-04 ,1.3818e-04 /) - kbo(:, 4,13, 1) = (/ & - &1.3449e-04 ,2.8552e-04 ,2.9728e-04 ,2.5764e-04 ,1.7597e-04 /) - kbo(:, 5,13, 1) = (/ & - &1.7577e-04 ,3.8714e-04 ,4.0359e-04 ,3.4654e-04 ,2.1851e-04 /) - kbo(:, 1,14, 1) = (/ & - &7.9000e-05 ,1.2113e-04 ,1.1920e-04 ,9.9664e-05 ,6.3646e-05 /) - kbo(:, 2,14, 1) = (/ & - &8.1870e-05 ,1.4526e-04 ,1.4705e-04 ,1.2557e-04 ,8.6376e-05 /) - kbo(:, 3,14, 1) = (/ & - &9.2975e-05 ,1.8451e-04 ,1.9063e-04 ,1.6489e-04 ,1.1348e-04 /) - kbo(:, 4,14, 1) = (/ & - &1.1499e-04 ,2.4478e-04 ,2.5460e-04 ,2.2031e-04 ,1.4451e-04 /) - kbo(:, 5,14, 1) = (/ & - &1.5077e-04 ,3.3228e-04 ,3.4580e-04 ,2.9716e-04 ,1.7798e-04 /) - kbo(:, 1,15, 1) = (/ & - &6.3146e-05 ,9.9373e-05 ,9.8373e-05 ,8.2691e-05 ,5.2397e-05 /) - kbo(:, 2,15, 1) = (/ & - &6.6078e-05 ,1.2006e-04 ,1.2228e-04 ,1.0469e-04 ,7.0411e-05 /) - kbo(:, 3,15, 1) = (/ & - &7.5821e-05 ,1.5360e-04 ,1.5869e-04 ,1.3814e-04 ,9.1603e-05 /) - kbo(:, 4,15, 1) = (/ & - &9.4372e-05 ,2.0448e-04 ,2.1279e-04 ,1.8521e-04 ,1.1587e-04 /) - kbo(:, 5,15, 1) = (/ & - &1.2416e-04 ,2.7753e-04 ,2.8967e-04 ,2.5010e-04 ,1.4409e-04 /) - kbo(:, 1,16, 1) = (/ & - &4.9335e-05 ,8.0237e-05 ,8.0247e-05 ,6.8036e-05 ,4.2623e-05 /) - kbo(:, 2,16, 1) = (/ & - &5.2173e-05 ,9.7834e-05 ,1.0022e-04 ,8.6725e-05 ,5.7211e-05 /) - kbo(:, 3,16, 1) = (/ & - &6.0461e-05 ,1.2605e-04 ,1.3061e-04 ,1.1470e-04 ,7.4324e-05 /) - kbo(:, 4,16, 1) = (/ & - &7.5694e-05 ,1.6827e-04 ,1.7572e-04 ,1.5404e-04 ,9.3686e-05 /) - kbo(:, 5,16, 1) = (/ & - &9.9955e-05 ,2.2866e-04 ,2.3956e-04 ,2.0826e-04 ,1.1548e-04 /) - kbo(:, 1,17, 1) = (/ & - &3.8266e-05 ,6.4449e-05 ,6.5172e-05 ,5.5789e-05 ,3.5130e-05 /) - kbo(:, 2,17, 1) = (/ & - &4.0895e-05 ,7.9297e-05 ,8.1758e-05 ,7.1548e-05 ,4.6781e-05 /) - kbo(:, 3,17, 1) = (/ & - &4.7807e-05 ,1.0278e-04 ,1.0697e-04 ,9.4840e-05 ,6.0133e-05 /) - kbo(:, 4,17, 1) = (/ & - &6.0159e-05 ,1.3765e-04 ,1.4446e-04 ,1.2759e-04 ,7.5139e-05 /) - kbo(:, 5,17, 1) = (/ & - &7.9747e-05 ,1.8704e-04 ,1.9692e-04 ,1.7259e-04 ,9.1648e-05 /) - kbo(:, 1,18, 1) = (/ & - &2.9184e-05 ,5.1211e-05 ,5.2362e-05 ,4.5451e-05 ,2.8937e-05 /) - kbo(:, 2,18, 1) = (/ & - &3.1502e-05 ,6.3605e-05 ,6.6096e-05 ,5.8591e-05 ,3.8202e-05 /) - kbo(:, 3,18, 1) = (/ & - &3.7129e-05 ,8.2865e-05 ,8.6932e-05 ,7.7931e-05 ,4.8777e-05 /) - kbo(:, 4,18, 1) = (/ & - &4.6953e-05 ,1.1128e-04 ,1.1763e-04 ,1.0496e-04 ,6.0806e-05 /) - kbo(:, 5,18, 1) = (/ & - &6.2502e-05 ,1.5129e-04 ,1.6025e-04 ,1.4184e-04 ,7.4536e-05 /) - kbo(:, 1,19, 1) = (/ & - &2.2672e-05 ,4.1242e-05 ,4.2527e-05 ,3.7342e-05 ,2.3934e-05 /) - kbo(:, 2,19, 1) = (/ & - &2.4699e-05 ,5.1600e-05 ,5.3953e-05 ,4.8350e-05 ,3.1473e-05 /) - kbo(:, 3,19, 1) = (/ & - &2.9334e-05 ,6.7547e-05 ,7.1294e-05 ,6.4461e-05 ,4.0025e-05 /) - kbo(:, 4,19, 1) = (/ & - &3.7286e-05 ,9.0838e-05 ,9.6625e-05 ,8.6862e-05 ,4.9869e-05 /) - kbo(:, 5,19, 1) = (/ & - &4.9822e-05 ,1.2352e-04 ,1.3152e-04 ,1.1713e-04 ,6.1219e-05 /) - kbo(:, 1,20, 1) = (/ & - &1.8003e-05 ,3.3802e-05 ,3.5042e-05 ,3.1068e-05 ,2.0074e-05 /) - kbo(:, 2,20, 1) = (/ & - &1.9811e-05 ,4.2600e-05 ,4.4765e-05 ,4.0426e-05 ,2.6188e-05 /) - kbo(:, 3,20, 1) = (/ & - &2.3740e-05 ,5.5990e-05 ,5.9400e-05 ,5.4019e-05 ,3.3275e-05 /) - kbo(:, 4,20, 1) = (/ & - &3.0362e-05 ,7.5435e-05 ,8.0630e-05 ,7.2808e-05 ,4.1380e-05 /) - kbo(:, 5,20, 1) = (/ & - &4.0743e-05 ,1.0263e-04 ,1.0963e-04 ,9.7998e-05 ,5.0442e-05 /) - kbo(:, 1,21, 1) = (/ & - &1.4410e-05 ,2.7872e-05 ,2.9027e-05 ,2.5943e-05 ,1.6820e-05 /) - kbo(:, 2,21, 1) = (/ & - &1.6018e-05 ,3.5348e-05 ,3.7320e-05 ,3.3900e-05 ,2.1893e-05 /) - kbo(:, 3,21, 1) = (/ & - &1.9364e-05 ,4.6630e-05 ,4.9701e-05 ,4.5376e-05 ,2.7723e-05 /) - kbo(:, 4,21, 1) = (/ & - &2.4923e-05 ,6.2936e-05 ,6.7505e-05 ,6.1129e-05 ,3.4253e-05 /) - kbo(:, 5,21, 1) = (/ & - &3.3581e-05 ,8.5657e-05 ,9.1740e-05 ,8.2183e-05 ,4.1502e-05 /) - kbo(:, 1,22, 1) = (/ & - &1.1606e-05 ,2.3345e-05 ,2.4458e-05 ,2.2044e-05 ,1.4341e-05 /) - kbo(:, 2,22, 1) = (/ & - &1.3108e-05 ,2.9860e-05 ,3.1703e-05 ,2.8973e-05 ,1.8544e-05 /) - kbo(:, 3,22, 1) = (/ & - &1.6058e-05 ,3.9598e-05 ,4.2399e-05 ,3.8843e-05 ,2.3272e-05 /) - kbo(:, 4,22, 1) = (/ & - &2.0871e-05 ,5.3592e-05 ,5.7668e-05 ,5.2303e-05 ,2.8594e-05 /) - kbo(:, 5,22, 1) = (/ & - &2.8287e-05 ,7.2910e-05 ,7.8274e-05 ,7.0191e-05 ,3.4495e-05 /) - kbo(:, 1,23, 1) = (/ & - &9.3973e-06 ,1.9636e-05 ,2.0704e-05 ,1.8793e-05 ,1.2204e-05 /) - kbo(:, 2,23, 1) = (/ & - &1.0787e-05 ,2.5322e-05 ,2.7025e-05 ,2.4831e-05 ,1.5654e-05 /) - kbo(:, 3,23, 1) = (/ & - &1.3385e-05 ,3.3729e-05 ,3.6290e-05 ,3.3307e-05 ,1.9609e-05 /) - kbo(:, 4,23, 1) = (/ & - &1.7566e-05 ,4.5745e-05 ,4.9368e-05 ,4.4833e-05 ,2.3893e-05 /) - kbo(:, 5,23, 1) = (/ & - &2.3931e-05 ,6.2215e-05 ,6.6919e-05 ,6.0045e-05 ,2.8668e-05 /) - kbo(:, 1,24, 1) = (/ & - &7.7170e-06 ,1.6679e-05 ,1.7685e-05 ,1.6128e-05 ,1.0358e-05 /) - kbo(:, 2,24, 1) = (/ & - &9.0120e-06 ,2.1659e-05 ,2.3221e-05 ,2.1395e-05 ,1.3206e-05 /) - kbo(:, 3,24, 1) = (/ & - &1.1319e-05 ,2.8989e-05 ,3.1289e-05 ,2.8717e-05 ,1.6361e-05 /) - kbo(:, 4,24, 1) = (/ & - &1.4992e-05 ,3.9385e-05 ,4.2555e-05 ,3.8633e-05 ,1.9891e-05 /) - kbo(:, 5,24, 1) = (/ & - &2.0520e-05 ,5.3479e-05 ,5.7600e-05 ,5.1654e-05 ,2.3746e-05 /) - kbo(:, 1,25, 1) = (/ & - &6.3838e-06 ,1.4248e-05 ,1.5168e-05 ,1.3906e-05 ,8.8251e-06 /) - kbo(:, 2,25, 1) = (/ & - &7.5878e-06 ,1.8635e-05 ,2.0050e-05 ,1.8513e-05 ,1.1119e-05 /) - kbo(:, 3,25, 1) = (/ & - &9.6475e-06 ,2.5052e-05 ,2.7110e-05 ,2.4846e-05 ,1.3734e-05 /) - kbo(:, 4,25, 1) = (/ & - &1.2889e-05 ,3.4075e-05 ,3.6834e-05 ,3.3385e-05 ,1.6609e-05 /) - kbo(:, 5,25, 1) = (/ & - &1.7706e-05 ,4.6181e-05 ,4.9751e-05 ,4.4544e-05 ,1.9735e-05 /) - kbo(:, 1,26, 1) = (/ & - &5.3393e-06 ,1.2288e-05 ,1.3132e-05 ,1.2096e-05 ,7.5264e-06 /) - kbo(:, 2,26, 1) = (/ & - &6.4609e-06 ,1.6189e-05 ,1.7467e-05 ,1.6131e-05 ,9.4332e-06 /) - kbo(:, 3,26, 1) = (/ & - &8.3200e-06 ,2.1853e-05 ,2.3681e-05 ,2.1653e-05 ,1.1593e-05 /) - kbo(:, 4,26, 1) = (/ & - &1.1209e-05 ,2.9737e-05 ,3.2133e-05 ,2.9046e-05 ,1.3941e-05 /) - kbo(:, 5,26, 1) = (/ & - &1.5443e-05 ,4.0196e-05 ,4.3302e-05 ,3.8639e-05 ,1.6481e-05 /) - kbo(:, 1,27, 1) = (/ & - &4.5029e-06 ,1.0646e-05 ,1.1429e-05 ,1.0549e-05 ,6.4263e-06 /) - kbo(:, 2,27, 1) = (/ & - &5.5408e-06 ,1.4124e-05 ,1.5272e-05 ,1.4080e-05 ,8.0128e-06 /) - kbo(:, 3,27, 1) = (/ & - &7.2235e-06 ,1.9128e-05 ,2.0734e-05 ,1.8902e-05 ,9.7874e-06 /) - kbo(:, 4,27, 1) = (/ & - &9.8044e-06 ,2.6022e-05 ,2.8102e-05 ,2.5321e-05 ,1.1642e-05 /) - kbo(:, 5,27, 1) = (/ & - &1.3531e-05 ,3.5058e-05 ,3.7762e-05 ,3.3580e-05 ,1.3712e-05 /) - kbo(:, 1,28, 1) = (/ & - &3.8267e-06 ,9.2605e-06 ,9.9753e-06 ,9.2087e-06 ,5.4910e-06 /) - kbo(:, 2,28, 1) = (/ & - &4.7813e-06 ,1.2361e-05 ,1.3381e-05 ,1.2301e-05 ,6.7809e-06 /) - kbo(:, 3,28, 1) = (/ & - &6.3052e-06 ,1.6784e-05 ,1.8184e-05 ,1.6520e-05 ,8.1872e-06 /) - kbo(:, 4,28, 1) = (/ & - &8.6092e-06 ,2.2800e-05 ,2.4603e-05 ,2.2078e-05 ,9.6541e-06 /) - kbo(:, 5,28, 1) = (/ & - &1.1891e-05 ,3.0613e-05 ,3.2964e-05 ,2.9199e-05 ,1.1371e-05 /) - kbo(:, 1,29, 1) = (/ & - &3.2554e-06 ,8.0646e-06 ,8.7115e-06 ,8.0443e-06 ,4.6597e-06 /) - kbo(:, 2,29, 1) = (/ & - &4.1267e-06 ,1.0826e-05 ,1.1737e-05 ,1.0754e-05 ,5.7169e-06 /) - kbo(:, 3,29, 1) = (/ & - &5.4998e-06 ,1.4722e-05 ,1.5944e-05 ,1.4441e-05 ,6.8326e-06 /) - kbo(:, 4,29, 1) = (/ & - &7.5454e-06 ,1.9957e-05 ,2.1533e-05 ,1.9256e-05 ,8.0674e-06 /) - kbo(:, 5,29, 1) = (/ & - &1.0421e-05 ,2.6692e-05 ,2.8752e-05 ,2.5378e-05 ,9.4635e-06 /) - kbo(:, 1,30, 1) = (/ & - &2.7722e-06 ,7.0257e-06 ,7.6070e-06 ,7.0209e-06 ,3.9148e-06 /) - kbo(:, 2,30, 1) = (/ & - &3.5629e-06 ,9.4753e-06 ,1.0287e-05 ,9.3951e-06 ,4.7641e-06 /) - kbo(:, 3,30, 1) = (/ & - &4.7932e-06 ,1.2893e-05 ,1.3959e-05 ,1.2600e-05 ,5.6708e-06 /) - kbo(:, 4,30, 1) = (/ & - &6.5982e-06 ,1.7431e-05 ,1.8810e-05 ,1.6759e-05 ,6.6902e-06 /) - kbo(:, 5,30, 1) = (/ & - &9.1066e-06 ,2.3231e-05 ,2.5041e-05 ,2.2031e-05 ,7.8394e-06 /) - kbo(:, 1,31, 1) = (/ & - &2.3506e-06 ,6.1052e-06 ,6.6305e-06 ,6.1196e-06 ,3.2861e-06 /) - kbo(:, 2,31, 1) = (/ & - &3.0616e-06 ,8.2670e-06 ,8.9874e-06 ,8.1933e-06 ,3.9690e-06 /) - kbo(:, 3,31, 1) = (/ & - &4.1518e-06 ,1.1245e-05 ,1.2180e-05 ,1.0973e-05 ,4.7077e-06 /) - kbo(:, 4,31, 1) = (/ & - &5.7278e-06 ,1.5154e-05 ,1.6366e-05 ,1.4549e-05 ,5.5398e-06 /) - kbo(:, 5,31, 1) = (/ & - &7.8906e-06 ,2.0109e-05 ,2.1708e-05 ,1.9053e-05 ,6.4566e-06 /) - kbo(:, 1,32, 1) = (/ & - &2.0097e-06 ,5.3323e-06 ,5.8021e-06 ,5.3502e-06 ,2.7241e-06 /) - kbo(:, 2,32, 1) = (/ & - &2.6508e-06 ,7.2383e-06 ,7.8773e-06 ,7.1648e-06 ,3.2755e-06 /) - kbo(:, 3,32, 1) = (/ & - &3.6184e-06 ,9.8348e-06 ,1.0656e-05 ,9.5737e-06 ,3.8774e-06 /) - kbo(:, 4,32, 1) = (/ & - &4.9951e-06 ,1.3205e-05 ,1.4271e-05 ,1.2656e-05 ,4.5194e-06 /) - kbo(:, 5,32, 1) = (/ & - &6.8654e-06 ,1.7445e-05 ,1.8860e-05 ,1.6511e-05 ,5.2597e-06 /) - kbo(:, 1,33, 1) = (/ & - &1.7307e-06 ,4.6719e-06 ,5.0926e-06 ,4.6864e-06 ,2.2504e-06 /) - kbo(:, 2,33, 1) = (/ & - &2.3079e-06 ,6.3540e-06 ,6.9152e-06 ,6.2764e-06 ,2.6926e-06 /) - kbo(:, 3,33, 1) = (/ & - &3.1665e-06 ,8.6147e-06 ,9.3343e-06 ,8.3614e-06 ,3.1814e-06 /) - kbo(:, 4,33, 1) = (/ & - &4.3731e-06 ,1.1528e-05 ,1.2464e-05 ,1.1023e-05 ,3.7164e-06 /) - kbo(:, 5,33, 1) = (/ & - &5.9878e-06 ,1.5151e-05 ,1.6400e-05 ,1.4316e-05 ,4.2974e-06 /) - kbo(:, 1,34, 1) = (/ & - &1.4981e-06 ,4.0834e-06 ,4.4531e-06 ,4.0843e-06 ,1.8539e-06 /) - kbo(:, 2,34, 1) = (/ & - &2.0150e-06 ,5.5569e-06 ,6.0419e-06 ,5.4716e-06 ,2.2285e-06 /) - kbo(:, 3,34, 1) = (/ & - &2.7725e-06 ,7.5151e-06 ,8.1387e-06 ,7.2690e-06 ,2.6334e-06 /) - kbo(:, 4,34, 1) = (/ & - &3.8256e-06 ,1.0019e-05 ,1.0836e-05 ,9.5549e-06 ,3.0709e-06 /) - kbo(:, 5,34, 1) = (/ & - &5.2217e-06 ,1.3116e-05 ,1.4207e-05 ,1.2368e-05 ,3.5492e-06 /) - kbo(:, 1,35, 1) = (/ & - &1.2683e-06 ,3.4717e-06 ,3.7843e-06 ,3.4639e-06 ,1.5033e-06 /) - kbo(:, 2,35, 1) = (/ & - &1.7130e-06 ,4.7242e-06 ,5.1321e-06 ,4.6386e-06 ,1.8045e-06 /) - kbo(:, 3,35, 1) = (/ & - &2.3598e-06 ,6.3794e-06 ,6.9043e-06 ,6.1552e-06 ,2.1312e-06 /) - kbo(:, 4,35, 1) = (/ & - &3.2533e-06 ,8.4861e-06 ,9.1773e-06 ,8.0771e-06 ,2.4797e-06 /) - kbo(:, 5,35, 1) = (/ & - &4.4317e-06 ,1.1084e-05 ,1.2009e-05 ,1.0436e-05 ,2.8460e-06 /) - kbo(:, 1,36, 1) = (/ & - &1.0446e-06 ,2.8596e-06 ,3.1142e-06 ,2.8488e-06 ,1.1841e-06 /) - kbo(:, 2,36, 1) = (/ & - &1.4115e-06 ,3.8911e-06 ,4.2236e-06 ,3.8148e-06 ,1.4188e-06 /) - kbo(:, 3,36, 1) = (/ & - &1.9447e-06 ,5.2529e-06 ,5.6822e-06 ,5.0612e-06 ,1.6763e-06 /) - kbo(:, 4,36, 1) = (/ & - &2.6806e-06 ,6.9854e-06 ,7.5506e-06 ,6.6402e-06 ,1.9492e-06 /) - kbo(:, 5,36, 1) = (/ & - &3.6503e-06 ,9.1210e-06 ,9.8800e-06 ,8.5784e-06 ,2.2478e-06 /) - kbo(:, 1,37, 1) = (/ & - &8.3141e-07 ,2.2606e-06 ,2.4589e-06 ,2.2521e-06 ,9.1953e-07 /) - kbo(:, 2,37, 1) = (/ & - &1.1186e-06 ,3.0759e-06 ,3.3374e-06 ,3.0170e-06 ,1.1075e-06 /) - kbo(:, 3,37, 1) = (/ & - &1.5392e-06 ,4.1590e-06 ,4.4972e-06 ,4.0085e-06 ,1.3109e-06 /) - kbo(:, 4,37, 1) = (/ & - &2.1232e-06 ,5.5433e-06 ,5.9872e-06 ,5.2697e-06 ,1.5318e-06 /) - kbo(:, 5,37, 1) = (/ & - &2.8971e-06 ,7.2549e-06 ,7.8520e-06 ,6.8216e-06 ,1.7720e-06 /) - kbo(:, 1,38, 1) = (/ & - &6.6100e-07 ,1.7834e-06 ,1.9371e-06 ,1.7763e-06 ,7.1225e-07 /) - kbo(:, 2,38, 1) = (/ & - &8.8499e-07 ,2.4255e-06 ,2.6307e-06 ,2.3793e-06 ,8.6302e-07 /) - kbo(:, 3,38, 1) = (/ & - &1.2155e-06 ,3.2848e-06 ,3.5503e-06 ,3.1675e-06 ,1.0267e-06 /) - kbo(:, 4,38, 1) = (/ & - &1.6779e-06 ,4.3885e-06 ,4.7364e-06 ,4.1721e-06 ,1.2041e-06 /) - kbo(:, 5,38, 1) = (/ & - &2.2938e-06 ,5.7578e-06 ,6.2256e-06 ,5.4129e-06 ,1.3941e-06 /) - kbo(:, 1,39, 1) = (/ & - &5.2622e-07 ,1.4074e-06 ,1.5268e-06 ,1.4013e-06 ,5.4821e-07 /) - kbo(:, 2,39, 1) = (/ & - &7.0069e-07 ,1.9130e-06 ,2.0737e-06 ,1.8765e-06 ,6.6832e-07 /) - kbo(:, 3,39, 1) = (/ & - &9.6029e-07 ,2.5942e-06 ,2.8023e-06 ,2.5024e-06 ,8.0073e-07 /) - kbo(:, 4,39, 1) = (/ & - &1.3259e-06 ,3.4737e-06 ,3.7464e-06 ,3.3022e-06 ,9.3841e-07 /) - kbo(:, 5,39, 1) = (/ & - &1.8162e-06 ,4.5691e-06 ,4.9354e-06 ,4.2944e-06 ,1.0896e-06 /) - kbo(:, 1,40, 1) = (/ & - &4.1271e-07 ,1.0842e-06 ,1.1736e-06 ,1.0777e-06 ,4.1787e-07 /) - kbo(:, 2,40, 1) = (/ & - &5.4389e-07 ,1.4709e-06 ,1.5926e-06 ,1.4421e-06 ,5.1017e-07 /) - kbo(:, 3,40, 1) = (/ & - &7.4188e-07 ,1.9982e-06 ,2.1561e-06 ,1.9284e-06 ,6.1575e-07 /) - kbo(:, 4,40, 1) = (/ & - &1.0242e-06 ,2.6854e-06 ,2.8924e-06 ,2.5529e-06 ,7.2613e-07 /) - kbo(:, 5,40, 1) = (/ & - &1.4067e-06 ,3.5476e-06 ,3.8249e-06 ,3.3331e-06 ,8.4610e-07 /) - kbo(:, 1,41, 1) = (/ & - &3.2432e-07 ,8.3392e-07 ,9.0025e-07 ,8.2659e-07 ,3.1699e-07 /) - kbo(:, 2,41, 1) = (/ & - &4.2215e-07 ,1.1277e-06 ,1.2186e-06 ,1.1049e-06 ,3.8959e-07 /) - kbo(:, 3,41, 1) = (/ & - &5.7203e-07 ,1.5335e-06 ,1.6530e-06 ,1.4808e-06 ,4.7229e-07 /) - kbo(:, 4,41, 1) = (/ & - &7.8892e-07 ,2.0682e-06 ,2.2251e-06 ,1.9663e-06 ,5.6019e-07 /) - kbo(:, 5,41, 1) = (/ & - &1.0862e-06 ,2.7447e-06 ,2.9535e-06 ,2.5776e-06 ,6.5591e-07 /) - kbo(:, 1,42, 1) = (/ & - &2.5587e-07 ,6.4253e-07 ,6.9167e-07 ,6.3420e-07 ,2.3952e-07 /) - kbo(:, 2,42, 1) = (/ & - &3.2863e-07 ,8.6497e-07 ,9.3264e-07 ,8.4649e-07 ,2.9775e-07 /) - kbo(:, 3,42, 1) = (/ & - &4.4164e-07 ,1.1761e-06 ,1.2667e-06 ,1.1361e-06 ,3.6120e-07 /) - kbo(:, 4,42, 1) = (/ & - &6.0774e-07 ,1.5914e-06 ,1.7100e-06 ,1.5131e-06 ,4.3157e-07 /) - kbo(:, 5,42, 1) = (/ & - &8.3802e-07 ,2.1211e-06 ,2.2785e-06 ,1.9912e-06 ,5.0721e-07 /) - kbo(:, 1,43, 1) = (/ & - &2.0233e-07 ,4.9120e-07 ,5.2639e-07 ,4.8089e-07 ,1.7965e-07 /) - kbo(:, 2,43, 1) = (/ & - &2.5538e-07 ,6.5692e-07 ,7.0547e-07 ,6.4075e-07 ,2.2496e-07 /) - kbo(:, 3,43, 1) = (/ & - &3.3917e-07 ,8.9179e-07 ,9.5869e-07 ,8.5986e-07 ,2.7469e-07 /) - kbo(:, 4,43, 1) = (/ & - &4.6446e-07 ,1.2101e-06 ,1.2978e-06 ,1.1498e-06 ,3.3044e-07 /) - kbo(:, 5,43, 1) = (/ & - &6.4112e-07 ,1.6212e-06 ,1.7373e-06 ,1.5201e-06 ,3.9028e-07 /) - kbo(:, 1,44, 1) = (/ & - &1.6122e-07 ,3.7551e-07 ,3.9960e-07 ,3.6377e-07 ,1.3351e-07 /) - kbo(:, 2,44, 1) = (/ & - &1.9938e-07 ,4.9773e-07 ,5.3195e-07 ,4.8258e-07 ,1.6857e-07 /) - kbo(:, 3,44, 1) = (/ & - &2.6075e-07 ,6.7334e-07 ,7.2162e-07 ,6.4719e-07 ,2.0768e-07 /) - kbo(:, 4,44, 1) = (/ & - &3.5440e-07 ,9.1528e-07 ,9.7926e-07 ,8.6831e-07 ,2.5128e-07 /) - kbo(:, 5,44, 1) = (/ & - &4.8882e-07 ,1.2321e-06 ,1.3171e-06 ,1.1536e-06 ,2.9843e-07 /) - kbo(:, 1,45, 1) = (/ & - &1.2988e-07 ,2.8870e-07 ,3.0532e-07 ,2.7582e-07 ,9.8684e-08 /) - kbo(:, 2,45, 1) = (/ & - &1.5689e-07 ,3.7846e-07 ,4.0235e-07 ,3.6402e-07 ,1.2561e-07 /) - kbo(:, 3,45, 1) = (/ & - &2.0165e-07 ,5.0920e-07 ,5.4343e-07 ,4.8733e-07 ,1.5620e-07 /) - kbo(:, 4,45, 1) = (/ & - &2.7120e-07 ,6.9216e-07 ,7.3881e-07 ,6.5533e-07 ,1.9009e-07 /) - kbo(:, 5,45, 1) = (/ & - &3.7310e-07 ,9.3568e-07 ,9.9762e-07 ,8.7425e-07 ,2.2785e-07 /) - kbo(:, 1,46, 1) = (/ & - &1.0564e-07 ,2.2197e-07 ,2.3290e-07 ,2.0875e-07 ,7.2454e-08 /) - kbo(:, 2,46, 1) = (/ & - &1.2404e-07 ,2.8745e-07 ,3.0379e-07 ,2.7335e-07 ,9.2971e-08 /) - kbo(:, 3,46, 1) = (/ & - &1.5624e-07 ,3.8369e-07 ,4.0737e-07 ,3.6500e-07 ,1.1671e-07 /) - kbo(:, 4,46, 1) = (/ & - &2.0727e-07 ,5.2051e-07 ,5.5407e-07 ,4.9156e-07 ,1.4314e-07 /) - kbo(:, 5,46, 1) = (/ & - &2.8357e-07 ,7.0586e-07 ,7.5047e-07 ,6.5798e-07 ,1.7235e-07 /) - kbo(:, 1,47, 1) = (/ & - &8.6916e-08 ,1.7066e-07 ,1.7731e-07 ,1.5740e-07 ,5.2956e-08 /) - kbo(:, 2,47, 1) = (/ & - &9.8603e-08 ,2.1737e-07 ,2.2800e-07 ,2.0365e-07 ,6.8355e-08 /) - kbo(:, 3,47, 1) = (/ & - &1.2114e-07 ,2.8693e-07 ,3.0257e-07 ,2.7060e-07 ,8.6098e-08 /) - kbo(:, 4,47, 1) = (/ & - &1.5770e-07 ,3.8735e-07 ,4.1075e-07 ,3.6401e-07 ,1.0681e-07 /) - kbo(:, 5,47, 1) = (/ & - &2.1366e-07 ,5.2607e-07 ,5.5766e-07 ,4.8899e-07 ,1.2936e-07 /) - kbo(:, 1,48, 1) = (/ & - &7.2690e-08 ,1.3243e-07 ,1.3635e-07 ,1.1959e-07 ,3.9422e-08 /) - kbo(:, 2,48, 1) = (/ & - &7.9634e-08 ,1.6556e-07 ,1.7235e-07 ,1.5270e-07 ,4.9882e-08 /) - kbo(:, 3,48, 1) = (/ & - &9.5002e-08 ,2.1570e-07 ,2.2592e-07 ,2.0102e-07 ,6.3148e-08 /) - kbo(:, 4,48, 1) = (/ & - &1.2105e-07 ,2.8907e-07 ,3.0482e-07 ,2.6976e-07 ,7.9242e-08 /) - kbo(:, 5,48, 1) = (/ & - &1.6180e-07 ,3.9224e-07 ,4.1437e-07 ,3.6322e-07 ,9.6936e-08 /) - kbo(:, 1,49, 1) = (/ & - &6.1774e-08 ,1.0401e-07 ,1.0607e-07 ,9.1394e-08 ,2.9238e-08 /) - kbo(:, 2,49, 1) = (/ & - &6.5366e-08 ,1.2732e-07 ,1.3151e-07 ,1.1526e-07 ,3.6075e-08 /) - kbo(:, 3,49, 1) = (/ & - &7.5416e-08 ,1.6321e-07 ,1.6967e-07 ,1.4985e-07 ,4.6286e-08 /) - kbo(:, 4,49, 1) = (/ & - &9.3863e-08 ,2.1656e-07 ,2.2682e-07 ,2.0018e-07 ,5.8261e-08 /) - kbo(:, 5,49, 1) = (/ & - &1.2334e-07 ,2.9285e-07 ,3.0807e-07 ,2.6986e-07 ,7.1843e-08 /) - kbo(:, 1,50, 1) = (/ & - &5.3206e-08 ,8.3103e-08 ,8.3626e-08 ,7.1042e-08 ,2.0418e-08 /) - kbo(:, 2,50, 1) = (/ & - &5.4599e-08 ,9.9314e-08 ,1.0171e-07 ,8.8074e-08 ,2.6669e-08 /) - kbo(:, 3,50, 1) = (/ & - &6.0981e-08 ,1.2515e-07 ,1.2917e-07 ,1.1305e-07 ,3.4171e-08 /) - kbo(:, 4,50, 1) = (/ & - &7.3992e-08 ,1.6416e-07 ,1.7066e-07 ,1.4995e-07 ,4.3100e-08 /) - kbo(:, 5,50, 1) = (/ & - &9.5401e-08 ,2.2074e-07 ,2.3106e-07 ,2.0200e-07 ,5.3679e-08 /) - kbo(:, 1,51, 1) = (/ & - &4.6282e-08 ,6.7151e-08 ,6.6436e-08 ,5.6117e-08 ,1.4310e-08 /) - kbo(:, 2,51, 1) = (/ & - &4.6293e-08 ,7.8464e-08 ,7.9611e-08 ,6.7952e-08 ,2.0313e-08 /) - kbo(:, 3,51, 1) = (/ & - &5.0084e-08 ,9.7036e-08 ,9.9288e-08 ,8.6023e-08 ,2.5137e-08 /) - kbo(:, 4,51, 1) = (/ & - &5.9071e-08 ,1.2553e-07 ,1.2948e-07 ,1.1300e-07 ,3.2036e-08 /) - kbo(:, 5,51, 1) = (/ & - &7.4640e-08 ,1.6747e-07 ,1.7423e-07 ,1.5170e-07 ,4.0217e-08 /) - kbo(:, 1,52, 1) = (/ & - &4.0629e-08 ,5.4875e-08 ,5.3346e-08 ,4.4940e-08 ,9.9095e-09 /) - kbo(:, 2,52, 1) = (/ & - &3.9810e-08 ,6.2753e-08 ,6.2779e-08 ,5.3045e-08 ,1.4355e-08 /) - kbo(:, 3,52, 1) = (/ & - &4.1749e-08 ,7.5935e-08 ,7.6945e-08 ,6.5932e-08 ,1.8547e-08 /) - kbo(:, 4,52, 1) = (/ & - &4.7734e-08 ,9.6672e-08 ,9.8927e-08 ,8.5559e-08 ,2.3788e-08 /) - kbo(:, 5,52, 1) = (/ & - &5.9002e-08 ,1.2763e-07 ,1.3186e-07 ,1.1423e-07 ,2.9932e-08 /) - kbo(:, 1,53, 1) = (/ & - &3.5975e-08 ,4.5399e-08 ,4.2771e-08 ,3.6200e-08 ,6.7635e-09 /) - kbo(:, 2,53, 1) = (/ & - &3.4672e-08 ,5.0776e-08 ,4.9763e-08 ,4.1778e-08 ,1.0001e-08 /) - kbo(:, 3,53, 1) = (/ & - &3.5325e-08 ,6.0020e-08 ,6.0156e-08 ,5.0998e-08 ,1.3726e-08 /) - kbo(:, 4,53, 1) = (/ & - &3.9133e-08 ,7.5038e-08 ,7.6143e-08 ,6.5063e-08 ,1.7480e-08 /) - kbo(:, 5,53, 1) = (/ & - &4.7140e-08 ,9.7792e-08 ,1.0026e-07 ,8.6276e-08 ,2.2211e-08 /) - kbo(:, 1,54, 1) = (/ & - &3.2026e-08 ,3.8173e-08 ,3.4913e-08 ,2.9554e-08 ,4.7895e-09 /) - kbo(:, 2,54, 1) = (/ & - &3.0459e-08 ,4.1712e-08 ,4.0172e-08 ,3.3417e-08 ,7.2202e-09 /) - kbo(:, 3,54, 1) = (/ & - &3.0344e-08 ,4.8248e-08 ,4.7728e-08 ,3.9999e-08 ,1.0387e-08 /) - kbo(:, 4,54, 1) = (/ & - &3.2650e-08 ,5.9169e-08 ,5.9453e-08 ,5.0241e-08 ,1.3202e-08 /) - kbo(:, 5,54, 1) = (/ & - &3.8298e-08 ,7.6040e-08 ,7.7304e-08 ,6.5975e-08 ,1.6815e-08 /) - kbo(:, 1,55, 1) = (/ & - &2.8677e-08 ,3.2441e-08 ,2.8748e-08 ,2.4151e-08 ,3.5459e-09 /) - kbo(:, 2,55, 1) = (/ & - &2.6981e-08 ,3.4720e-08 ,3.2391e-08 ,2.6974e-08 ,5.3560e-09 /) - kbo(:, 3,55, 1) = (/ & - &2.6409e-08 ,3.9355e-08 ,3.8167e-08 ,3.1739e-08 ,7.7448e-09 /) - kbo(:, 4,55, 1) = (/ & - &2.7649e-08 ,4.7215e-08 ,4.6970e-08 ,3.9144e-08 ,1.0056e-08 /) - kbo(:, 5,55, 1) = (/ & - &3.1553e-08 ,5.9776e-08 ,6.0219e-08 ,5.0851e-08 ,1.2897e-08 /) - kbo(:, 1,56, 1) = (/ & - &2.5871e-08 ,2.7896e-08 ,2.4025e-08 ,1.9941e-08 ,2.5789e-09 /) - kbo(:, 2,56, 1) = (/ & - &2.4111e-08 ,2.9230e-08 ,2.6562e-08 ,2.2012e-08 ,3.9211e-09 /) - kbo(:, 3,56, 1) = (/ & - &2.3260e-08 ,3.2443e-08 ,3.0891e-08 ,2.5392e-08 ,5.7991e-09 /) - kbo(:, 4,56, 1) = (/ & - &2.3744e-08 ,3.8105e-08 ,3.7441e-08 ,3.0750e-08 ,7.7370e-09 /) - kbo(:, 5,56, 1) = (/ & - &2.6357e-08 ,4.7419e-08 ,4.7264e-08 ,3.9435e-08 ,9.8948e-09 /) - kbo(:, 1,57, 1) = (/ & - &2.3535e-08 ,2.4259e-08 ,2.0309e-08 ,1.6435e-08 ,1.8424e-09 /) - kbo(:, 2,57, 1) = (/ & - &2.1750e-08 ,2.4981e-08 ,2.1975e-08 ,1.7965e-08 ,2.8485e-09 /) - kbo(:, 3,57, 1) = (/ & - &2.0716e-08 ,2.7095e-08 ,2.5073e-08 ,2.0518e-08 ,4.3296e-09 /) - kbo(:, 4,57, 1) = (/ & - &2.0688e-08 ,3.1150e-08 ,2.9998e-08 ,2.4389e-08 ,6.0949e-09 /) - kbo(:, 5,57, 1) = (/ & - &2.2336e-08 ,3.7957e-08 ,3.7415e-08 ,3.0783e-08 ,7.5649e-09 /) - kbo(:, 1,58, 1) = (/ & - &1.0425e-08 ,1.1830e-08 ,1.1340e-08 ,1.0982e-08 ,1.3443e-09 /) - kbo(:, 2,58, 1) = (/ & - &9.5648e-09 ,1.2002e-08 ,1.2045e-08 ,1.1710e-08 ,2.0849e-09 /) - kbo(:, 3,58, 1) = (/ & - &9.0146e-09 ,1.2747e-08 ,1.3512e-08 ,1.3201e-08 ,3.2654e-09 /) - kbo(:, 4,58, 1) = (/ & - &8.8493e-09 ,1.4369e-08 ,1.5929e-08 ,1.5466e-08 ,4.7356e-09 /) - kbo(:, 5,58, 1) = (/ & - &9.3086e-09 ,1.7138e-08 ,1.9573e-08 ,1.9214e-08 ,5.8278e-09 /) - kbo(:, 1,59, 1) = (/ & - &9.0380e-09 ,1.0080e-08 ,9.6059e-09 ,9.1584e-09 ,1.1081e-09 /) - kbo(:, 2,59, 1) = (/ & - &8.2691e-09 ,1.0165e-08 ,1.0115e-08 ,9.7014e-09 ,1.7533e-09 /) - kbo(:, 3,59, 1) = (/ & - &7.7641e-09 ,1.0688e-08 ,1.1200e-08 ,1.0889e-08 ,2.7394e-09 /) - kbo(:, 4,59, 1) = (/ & - &7.5756e-09 ,1.1927e-08 ,1.3083e-08 ,1.2667e-08 ,3.9313e-09 /) - kbo(:, 5,59, 1) = (/ & - &7.8886e-09 ,1.4088e-08 ,1.5992e-08 ,1.5688e-08 ,4.8202e-09 /) - kbo(:, 1,13, 2) = (/ & - &2.3347e-04 ,3.2740e-04 ,3.1964e-04 ,2.7562e-04 ,2.3674e-04 /) - kbo(:, 2,13, 2) = (/ & - &2.9027e-04 ,4.3170e-04 ,4.3482e-04 ,3.8943e-04 ,3.2365e-04 /) - kbo(:, 3,13, 2) = (/ & - &3.9534e-04 ,6.0684e-04 ,6.1602e-04 ,5.5281e-04 ,4.2550e-04 /) - kbo(:, 4,13, 2) = (/ & - &5.7501e-04 ,8.8229e-04 ,8.9214e-04 ,7.8504e-04 ,5.3481e-04 /) - kbo(:, 5,13, 2) = (/ & - &8.7274e-04 ,1.2992e-03 ,1.2957e-03 ,1.1072e-03 ,6.5845e-04 /) - kbo(:, 1,14, 2) = (/ & - &2.0019e-04 ,2.7999e-04 ,2.7248e-04 ,2.3561e-04 ,2.0892e-04 /) - kbo(:, 2,14, 2) = (/ & - &2.5252e-04 ,3.7448e-04 ,3.7546e-04 ,3.3478e-04 ,2.8574e-04 /) - kbo(:, 3,14, 2) = (/ & - &3.4599e-04 ,5.3246e-04 ,5.3788e-04 ,4.7751e-04 ,3.6978e-04 /) - kbo(:, 4,14, 2) = (/ & - &5.0873e-04 ,7.7992e-04 ,7.8607e-04 ,6.8145e-04 ,4.6369e-04 /) - kbo(:, 5,14, 2) = (/ & - &7.7937e-04 ,1.1544e-03 ,1.1464e-03 ,9.6300e-04 ,5.7084e-04 /) - kbo(:, 1,15, 2) = (/ & - &1.6496e-04 ,2.3313e-04 ,2.2745e-04 ,1.9815e-04 ,1.7191e-04 /) - kbo(:, 2,15, 2) = (/ & - &2.0995e-04 ,3.1642e-04 ,3.1725e-04 ,2.8352e-04 ,2.3300e-04 /) - kbo(:, 3,15, 2) = (/ & - &2.9058e-04 ,4.5406e-04 ,4.6090e-04 ,4.0582e-04 ,3.0079e-04 /) - kbo(:, 4,15, 2) = (/ & - &4.3180e-04 ,6.6786e-04 ,6.7439e-04 ,5.7938e-04 ,3.7802e-04 /) - kbo(:, 5,15, 2) = (/ & - &6.6674e-04 ,9.9697e-04 ,9.8451e-04 ,8.2076e-04 ,4.7099e-04 /) - kbo(:, 1,16, 2) = (/ & - &1.3273e-04 ,1.9160e-04 ,1.8863e-04 ,1.6534e-04 ,1.4034e-04 /) - kbo(:, 2,16, 2) = (/ & - &1.7022e-04 ,2.6274e-04 ,2.6590e-04 ,2.3774e-04 ,1.8655e-04 /) - kbo(:, 3,16, 2) = (/ & - &2.3798e-04 ,3.7894e-04 ,3.8748e-04 ,3.4032e-04 ,2.3998e-04 /) - kbo(:, 4,16, 2) = (/ & - &3.5812e-04 ,5.6381e-04 ,5.6807e-04 ,4.8599e-04 ,3.0617e-04 /) - kbo(:, 5,16, 2) = (/ & - &5.5540e-04 ,8.4478e-04 ,8.3109e-04 ,6.8770e-04 ,3.7973e-04 /) - kbo(:, 1,17, 2) = (/ & - &1.0577e-04 ,1.5680e-04 ,1.5536e-04 ,1.3786e-04 ,1.1416e-04 /) - kbo(:, 2,17, 2) = (/ & - &1.3659e-04 ,2.1658e-04 ,2.2147e-04 ,1.9766e-04 ,1.5136e-04 /) - kbo(:, 3,17, 2) = (/ & - &1.9353e-04 ,3.1591e-04 ,3.2447e-04 ,2.8337e-04 ,1.9661e-04 /) - kbo(:, 4,17, 2) = (/ & - &2.9393e-04 ,4.7241e-04 ,4.7609e-04 ,4.0460e-04 ,2.4887e-04 /) - kbo(:, 5,17, 2) = (/ & - &4.5598e-04 ,7.0740e-04 ,6.9589e-04 ,5.7452e-04 ,3.0304e-04 /) - kbo(:, 1,18, 2) = (/ & - &8.2750e-05 ,1.2686e-04 ,1.2742e-04 ,1.1403e-04 ,9.3961e-05 /) - kbo(:, 2,18, 2) = (/ & - &1.0793e-04 ,1.7707e-04 ,1.8353e-04 ,1.6336e-04 ,1.2524e-04 /) - kbo(:, 3,18, 2) = (/ & - &1.5481e-04 ,2.6078e-04 ,2.6950e-04 ,2.3444e-04 ,1.6211e-04 /) - kbo(:, 4,18, 2) = (/ & - &2.3641e-04 ,3.9024e-04 ,3.9536e-04 ,3.3586e-04 ,2.0255e-04 /) - kbo(:, 5,18, 2) = (/ & - &3.6699e-04 ,5.8299e-04 ,5.7531e-04 ,4.7694e-04 ,2.4459e-04 /) - kbo(:, 1,19, 2) = (/ & - &6.5789e-05 ,1.0377e-04 ,1.0573e-04 ,9.4747e-05 ,7.8309e-05 /) - kbo(:, 2,19, 2) = (/ & - &8.6739e-05 ,1.4667e-04 ,1.5321e-04 ,1.3630e-04 ,1.0400e-04 /) - kbo(:, 3,19, 2) = (/ & - &1.2570e-04 ,2.1696e-04 ,2.2493e-04 ,1.9585e-04 ,1.3355e-04 /) - kbo(:, 4,19, 2) = (/ & - &1.9254e-04 ,3.2492e-04 ,3.2972e-04 ,2.8110e-04 ,1.6478e-04 /) - kbo(:, 5,19, 2) = (/ & - &2.9952e-04 ,4.8402e-04 ,4.8010e-04 ,3.9892e-04 ,1.9831e-04 /) - kbo(:, 1,20, 2) = (/ & - &5.3588e-05 ,8.6632e-05 ,8.9247e-05 ,8.0067e-05 ,6.5775e-05 /) - kbo(:, 2,20, 2) = (/ & - &7.1606e-05 ,1.2377e-04 ,1.3011e-04 ,1.1561e-04 ,8.7374e-05 /) - kbo(:, 3,20, 2) = (/ & - &1.0490e-04 ,1.8400e-04 ,1.9125e-04 ,1.6630e-04 ,1.1025e-04 /) - kbo(:, 4,20, 2) = (/ & - &1.6107e-04 ,2.7570e-04 ,2.7972e-04 ,2.3864e-04 ,1.3590e-04 /) - kbo(:, 5,20, 2) = (/ & - &2.5044e-04 ,4.0870e-04 ,4.0643e-04 ,3.3832e-04 ,1.6243e-04 /) - kbo(:, 1,21, 2) = (/ & - &4.3995e-05 ,7.2776e-05 ,7.5695e-05 ,6.8050e-05 ,5.5495e-05 /) - kbo(:, 2,21, 2) = (/ & - &5.9611e-05 ,1.0482e-04 ,1.1056e-04 ,9.8202e-05 ,7.3158e-05 /) - kbo(:, 3,21, 2) = (/ & - &8.7989e-05 ,1.5634e-04 ,1.6268e-04 ,1.4172e-04 ,9.0987e-05 /) - kbo(:, 4,21, 2) = (/ & - &1.3548e-04 ,2.3394e-04 ,2.3798e-04 ,2.0295e-04 ,1.1189e-04 /) - kbo(:, 5,21, 2) = (/ & - &2.1032e-04 ,3.4525e-04 ,3.4399e-04 ,2.8683e-04 ,1.3326e-04 /) - kbo(:, 1,22, 2) = (/ & - &3.6803e-05 ,6.2518e-05 ,6.5746e-05 ,5.8989e-05 ,4.7547e-05 /) - kbo(:, 2,22, 2) = (/ & - &5.0761e-05 ,9.1003e-05 ,9.6193e-05 ,8.5393e-05 ,6.0785e-05 /) - kbo(:, 3,22, 2) = (/ & - &7.5680e-05 ,1.3601e-04 ,1.4124e-04 ,1.2316e-04 ,7.5929e-05 /) - kbo(:, 4,22, 2) = (/ & - &1.1711e-04 ,2.0303e-04 ,2.0625e-04 ,1.7599e-04 ,9.2008e-05 /) - kbo(:, 5,22, 2) = (/ & - &1.8108e-04 ,2.9768e-04 ,2.9683e-04 ,2.4768e-04 ,1.0998e-04 /) - kbo(:, 1,23, 2) = (/ & - &3.1003e-05 ,5.3823e-05 ,5.7061e-05 ,5.1271e-05 ,4.0280e-05 /) - kbo(:, 2,23, 2) = (/ & - &4.3496e-05 ,7.9103e-05 ,8.3635e-05 ,7.4369e-05 ,5.0624e-05 /) - kbo(:, 3,23, 2) = (/ & - &6.5401e-05 ,1.1830e-04 ,1.2269e-04 ,1.0707e-04 ,6.2127e-05 /) - kbo(:, 4,23, 2) = (/ & - &1.0147e-04 ,1.7576e-04 ,1.7852e-04 ,1.5248e-04 ,7.5578e-05 /) - kbo(:, 5,23, 2) = (/ & - &1.5625e-04 ,2.5690e-04 ,2.5634e-04 ,2.1357e-04 ,9.0733e-05 /) - kbo(:, 1,24, 2) = (/ & - &2.6471e-05 ,4.6863e-05 ,4.9818e-05 ,4.4807e-05 ,3.2886e-05 /) - kbo(:, 2,24, 2) = (/ & - &3.7731e-05 ,6.9280e-05 ,7.2915e-05 ,6.4892e-05 ,4.1198e-05 /) - kbo(:, 3,24, 2) = (/ & - &5.7248e-05 ,1.0347e-04 ,1.0698e-04 ,9.3403e-05 ,5.0808e-05 /) - kbo(:, 4,24, 2) = (/ & - &8.8791e-05 ,1.5319e-04 ,1.5530e-04 ,1.3247e-04 ,6.1812e-05 /) - kbo(:, 5,24, 2) = (/ & - &1.3624e-04 ,2.2303e-04 ,2.2220e-04 ,1.8474e-04 ,7.4324e-05 /) - kbo(:, 1,25, 2) = (/ & - &2.2808e-05 ,4.1048e-05 ,4.3589e-05 ,3.9316e-05 ,2.6891e-05 /) - kbo(:, 2,25, 2) = (/ & - &3.2985e-05 ,6.0936e-05 ,6.3907e-05 ,5.6898e-05 ,3.3888e-05 /) - kbo(:, 3,25, 2) = (/ & - &5.0481e-05 ,9.0713e-05 ,9.3687e-05 ,8.1693e-05 ,4.1615e-05 /) - kbo(:, 4,25, 2) = (/ & - &7.8151e-05 ,1.3406e-04 ,1.3563e-04 ,1.1547e-04 ,5.0834e-05 /) - kbo(:, 5,25, 2) = (/ & - &1.1946e-04 ,1.9452e-04 ,1.9337e-04 ,1.6037e-04 ,6.0346e-05 /) - kbo(:, 1,26, 2) = (/ & - &1.9934e-05 ,3.6349e-05 ,3.8562e-05 ,3.4809e-05 ,2.2369e-05 /) - kbo(:, 2,26, 2) = (/ & - &2.9291e-05 ,5.4051e-05 ,5.6667e-05 ,5.0301e-05 ,2.7895e-05 /) - kbo(:, 3,26, 2) = (/ & - &4.5044e-05 ,8.0419e-05 ,8.2812e-05 ,7.2007e-05 ,3.4611e-05 /) - kbo(:, 4,26, 2) = (/ & - &6.9643e-05 ,1.1855e-04 ,1.1958e-04 ,1.0144e-04 ,4.1836e-05 /) - kbo(:, 5,26, 2) = (/ & - &1.0589e-04 ,1.7128e-04 ,1.6969e-04 ,1.4033e-04 ,4.9219e-05 /) - kbo(:, 1,27, 2) = (/ & - &1.7559e-05 ,3.2313e-05 ,3.4216e-05 ,3.0835e-05 ,1.8255e-05 /) - kbo(:, 2,27, 2) = (/ & - &2.6182e-05 ,4.8079e-05 ,5.0267e-05 ,4.4498e-05 ,2.3042e-05 /) - kbo(:, 3,27, 2) = (/ & - &4.0350e-05 ,7.1540e-05 ,7.3359e-05 ,6.3538e-05 ,2.8359e-05 /) - kbo(:, 4,27, 2) = (/ & - &6.2227e-05 ,1.0500e-04 ,1.0550e-04 ,8.9231e-05 ,3.3804e-05 /) - kbo(:, 5,27, 2) = (/ & - &9.4129e-05 ,1.5114e-04 ,1.4903e-04 ,1.2285e-04 ,4.0082e-05 /) - kbo(:, 1,28, 2) = (/ & - &1.5570e-05 ,2.8729e-05 ,3.0391e-05 ,2.7331e-05 ,1.4928e-05 /) - kbo(:, 2,28, 2) = (/ & - &2.3454e-05 ,4.2868e-05 ,4.4647e-05 ,3.9416e-05 ,1.8685e-05 /) - kbo(:, 3,28, 2) = (/ & - &3.6218e-05 ,6.3627e-05 ,6.4995e-05 ,5.6106e-05 ,2.2770e-05 /) - kbo(:, 4,28, 2) = (/ & - &5.5686e-05 ,9.3113e-05 ,9.3100e-05 ,7.8497e-05 ,2.7363e-05 /) - kbo(:, 5,28, 2) = (/ & - &8.3686e-05 ,1.3339e-04 ,1.3104e-04 ,1.0755e-04 ,3.2541e-05 /) - kbo(:, 1,29, 2) = (/ & - &1.3843e-05 ,2.5623e-05 ,2.7065e-05 ,2.4295e-05 ,1.2134e-05 /) - kbo(:, 2,29, 2) = (/ & - &2.1009e-05 ,3.8248e-05 ,3.9732e-05 ,3.4977e-05 ,1.5044e-05 /) - kbo(:, 3,29, 2) = (/ & - &3.2483e-05 ,5.6676e-05 ,5.7569e-05 ,4.9592e-05 ,1.8408e-05 /) - kbo(:, 4,29, 2) = (/ & - &4.9712e-05 ,8.2574e-05 ,8.2234e-05 ,6.9025e-05 ,2.2259e-05 /) - kbo(:, 5,29, 2) = (/ & - &7.4303e-05 ,1.1753e-04 ,1.1526e-04 ,9.4159e-05 ,2.6343e-05 /) - kbo(:, 1,30, 2) = (/ & - &1.2283e-05 ,2.2826e-05 ,2.4077e-05 ,2.1586e-05 ,9.7017e-06 /) - kbo(:, 2,30, 2) = (/ & - &1.8796e-05 ,3.4070e-05 ,3.5216e-05 ,3.0990e-05 ,1.2060e-05 /) - kbo(:, 3,30, 2) = (/ & - &2.9052e-05 ,5.0361e-05 ,5.0950e-05 ,4.3716e-05 ,1.4847e-05 /) - kbo(:, 4,30, 2) = (/ & - &4.4245e-05 ,7.2929e-05 ,7.2487e-05 ,6.0571e-05 ,1.7868e-05 /) - kbo(:, 5,30, 2) = (/ & - &6.5686e-05 ,1.0336e-04 ,1.0108e-04 ,8.2235e-05 ,2.0877e-05 /) - kbo(:, 1,31, 2) = (/ & - &1.0864e-05 ,2.0303e-05 ,2.1341e-05 ,1.9138e-05 ,7.8312e-06 /) - kbo(:, 2,31, 2) = (/ & - &1.6718e-05 ,3.0263e-05 ,3.1180e-05 ,2.7363e-05 ,9.6909e-06 /) - kbo(:, 3,31, 2) = (/ & - &2.5784e-05 ,4.4485e-05 ,4.4959e-05 ,3.8436e-05 ,1.1703e-05 /) - kbo(:, 4,31, 2) = (/ & - &3.9035e-05 ,6.4113e-05 ,6.3593e-05 ,5.2930e-05 ,1.4083e-05 /) - kbo(:, 5,31, 2) = (/ & - &5.7600e-05 ,9.0427e-05 ,8.8190e-05 ,7.1491e-05 ,1.6696e-05 /) - kbo(:, 1,32, 2) = (/ & - &9.6861e-06 ,1.8129e-05 ,1.9009e-05 ,1.7005e-05 ,6.3389e-06 /) - kbo(:, 2,32, 2) = (/ & - &1.4957e-05 ,2.6929e-05 ,2.7692e-05 ,2.4209e-05 ,7.7689e-06 /) - kbo(:, 3,32, 2) = (/ & - &2.2989e-05 ,3.9434e-05 ,3.9744e-05 ,3.3837e-05 ,9.3738e-06 /) - kbo(:, 4,32, 2) = (/ & - &3.4606e-05 ,5.6545e-05 ,5.5926e-05 ,4.6356e-05 ,1.1253e-05 /) - kbo(:, 5,32, 2) = (/ & - &5.0712e-05 ,7.9301e-05 ,7.7059e-05 ,6.2285e-05 ,1.3276e-05 /) - kbo(:, 1,33, 2) = (/ & - &8.6881e-06 ,1.6215e-05 ,1.6965e-05 ,1.5122e-05 ,5.0839e-06 /) - kbo(:, 2,33, 2) = (/ & - &1.3426e-05 ,2.4037e-05 ,2.4628e-05 ,2.1434e-05 ,6.2318e-06 /) - kbo(:, 3,33, 2) = (/ & - &2.0550e-05 ,3.5027e-05 ,3.5160e-05 ,2.9820e-05 ,7.5123e-06 /) - kbo(:, 4,33, 2) = (/ & - &3.0762e-05 ,4.9971e-05 ,4.9236e-05 ,4.0640e-05 ,8.9286e-06 /) - kbo(:, 5,33, 2) = (/ & - &4.4719e-05 ,6.9592e-05 ,6.7432e-05 ,5.4322e-05 ,1.0569e-05 /) - kbo(:, 1,34, 2) = (/ & - &7.7791e-06 ,1.4442e-05 ,1.5046e-05 ,1.3360e-05 ,4.1600e-06 /) - kbo(:, 2,34, 2) = (/ & - &1.2019e-05 ,2.1346e-05 ,2.1771e-05 ,1.8857e-05 ,5.0353e-06 /) - kbo(:, 3,34, 2) = (/ & - &1.8324e-05 ,3.0972e-05 ,3.0949e-05 ,2.6117e-05 ,6.0447e-06 /) - kbo(:, 4,34, 2) = (/ & - &2.7261e-05 ,4.3932e-05 ,4.3157e-05 ,3.5442e-05 ,7.1905e-06 /) - kbo(:, 5,34, 2) = (/ & - &3.9385e-05 ,6.0888e-05 ,5.8795e-05 ,4.7179e-05 ,8.5133e-06 /) - kbo(:, 1,35, 2) = (/ & - &6.6949e-06 ,1.2390e-05 ,1.2873e-05 ,1.1410e-05 ,3.2837e-06 /) - kbo(:, 2,35, 2) = (/ & - &1.0342e-05 ,1.8289e-05 ,1.8599e-05 ,1.6068e-05 ,4.0072e-06 /) - kbo(:, 3,35, 2) = (/ & - &1.5729e-05 ,2.6447e-05 ,2.6382e-05 ,2.2198e-05 ,4.8111e-06 /) - kbo(:, 4,35, 2) = (/ & - &2.3326e-05 ,3.7424e-05 ,3.6694e-05 ,3.0052e-05 ,5.7503e-06 /) - kbo(:, 5,35, 2) = (/ & - &3.3582e-05 ,5.1735e-05 ,4.9852e-05 ,3.9921e-05 ,6.8317e-06 /) - kbo(:, 1,36, 2) = (/ & - &5.5116e-06 ,1.0195e-05 ,1.0585e-05 ,9.3814e-06 ,2.5556e-06 /) - kbo(:, 2,36, 2) = (/ & - &8.5137e-06 ,1.5037e-05 ,1.5296e-05 ,1.3209e-05 ,3.1325e-06 /) - kbo(:, 3,36, 2) = (/ & - &1.2948e-05 ,2.1753e-05 ,2.1694e-05 ,1.8250e-05 ,3.7680e-06 /) - kbo(:, 4,36, 2) = (/ & - &1.9198e-05 ,3.0787e-05 ,3.0171e-05 ,2.4706e-05 ,4.5193e-06 /) - kbo(:, 5,36, 2) = (/ & - &2.7624e-05 ,4.2550e-05 ,4.0975e-05 ,3.2811e-05 ,5.3463e-06 /) - kbo(:, 1,37, 2) = (/ & - &4.2943e-06 ,7.9625e-06 ,8.2825e-06 ,7.3555e-06 ,1.9862e-06 /) - kbo(:, 2,37, 2) = (/ & - &6.6379e-06 ,1.1772e-05 ,1.1998e-05 ,1.0386e-05 ,2.4388e-06 /) - kbo(:, 3,37, 2) = (/ & - &1.0124e-05 ,1.7087e-05 ,1.7068e-05 ,1.4395e-05 ,2.9448e-06 /) - kbo(:, 4,37, 2) = (/ & - &1.5070e-05 ,2.4266e-05 ,2.3812e-05 ,1.9543e-05 ,3.5287e-06 /) - kbo(:, 5,37, 2) = (/ & - &2.1767e-05 ,3.3653e-05 ,3.2450e-05 ,2.6024e-05 ,4.1879e-06 /) - kbo(:, 1,38, 2) = (/ & - &3.3357e-06 ,6.1963e-06 ,6.4603e-06 ,5.7499e-06 ,1.5402e-06 /) - kbo(:, 2,38, 2) = (/ & - &5.1578e-06 ,9.1863e-06 ,9.3819e-06 ,8.1434e-06 ,1.8945e-06 /) - kbo(:, 3,38, 2) = (/ & - &7.8901e-06 ,1.3380e-05 ,1.3389e-05 ,1.1321e-05 ,2.2920e-06 /) - kbo(:, 4,38, 2) = (/ & - &1.1791e-05 ,1.9066e-05 ,1.8739e-05 ,1.5418e-05 ,2.7521e-06 /) - kbo(:, 5,38, 2) = (/ & - &1.7101e-05 ,2.6537e-05 ,2.5629e-05 ,2.0591e-05 ,3.2788e-06 /) - kbo(:, 1,39, 2) = (/ & - &2.5925e-06 ,4.8221e-06 ,5.0377e-06 ,4.4928e-06 ,1.1896e-06 /) - kbo(:, 2,39, 2) = (/ & - &4.0080e-06 ,7.1657e-06 ,7.3339e-06 ,6.3822e-06 ,1.4636e-06 /) - kbo(:, 3,39, 2) = (/ & - &6.1480e-06 ,1.0471e-05 ,1.0498e-05 ,8.8998e-06 ,1.7757e-06 /) - kbo(:, 4,39, 2) = (/ & - &9.2224e-06 ,1.4975e-05 ,1.4740e-05 ,1.2159e-05 ,2.1407e-06 /) - kbo(:, 5,39, 2) = (/ & - &1.3430e-05 ,2.0919e-05 ,2.0232e-05 ,1.6286e-05 ,2.5517e-06 /) - kbo(:, 1,40, 2) = (/ & - &1.9503e-06 ,3.6256e-06 ,3.7983e-06 ,3.3983e-06 ,9.0970e-07 /) - kbo(:, 2,40, 2) = (/ & - &3.0096e-06 ,5.4072e-06 ,5.5509e-06 ,4.8509e-06 ,1.1295e-06 /) - kbo(:, 3,40, 2) = (/ & - &4.6341e-06 ,7.9436e-06 ,7.9881e-06 ,6.7974e-06 ,1.3749e-06 /) - kbo(:, 4,40, 2) = (/ & - &6.9959e-06 ,1.1429e-05 ,1.1278e-05 ,9.3390e-06 ,1.6560e-06 /) - kbo(:, 5,40, 2) = (/ & - &1.0262e-05 ,1.6061e-05 ,1.5575e-05 ,1.2573e-05 ,1.9765e-06 /) - kbo(:, 1,41, 2) = (/ & - &1.4645e-06 ,2.7131e-06 ,2.8491e-06 ,2.5571e-06 ,6.9451e-07 /) - kbo(:, 2,41, 2) = (/ & - &2.2502e-06 ,4.0586e-06 ,4.1799e-06 ,3.6674e-06 ,8.6660e-07 /) - kbo(:, 3,41, 2) = (/ & - &3.4750e-06 ,5.9931e-06 ,6.0465e-06 ,5.1654e-06 ,1.0602e-06 /) - kbo(:, 4,41, 2) = (/ & - &5.2792e-06 ,8.6774e-06 ,8.5850e-06 ,7.1396e-06 ,1.2820e-06 /) - kbo(:, 5,41, 2) = (/ & - &7.8024e-06 ,1.2273e-05 ,1.1934e-05 ,9.6653e-06 ,1.5281e-06 /) - kbo(:, 1,42, 2) = (/ & - &1.1030e-06 ,2.0298e-06 ,2.1354e-06 ,1.9220e-06 ,5.2769e-07 /) - kbo(:, 2,42, 2) = (/ & - &1.6830e-06 ,3.0429e-06 ,3.1437e-06 ,2.7680e-06 ,6.5992e-07 /) - kbo(:, 3,42, 2) = (/ & - &2.6031e-06 ,4.5149e-06 ,4.5688e-06 ,3.9192e-06 ,8.1465e-07 /) - kbo(:, 4,42, 2) = (/ & - &3.9772e-06 ,6.5768e-06 ,6.5252e-06 ,5.4495e-06 ,9.8750e-07 /) - kbo(:, 5,42, 2) = (/ & - &5.9212e-06 ,9.3604e-06 ,9.1253e-06 ,7.4182e-06 ,1.1776e-06 /) - kbo(:, 1,43, 2) = (/ & - &8.2428e-07 ,1.4953e-06 ,1.5737e-06 ,1.4196e-06 ,3.9479e-07 /) - kbo(:, 2,43, 2) = (/ & - &1.2422e-06 ,2.2430e-06 ,2.3243e-06 ,2.0532e-06 ,4.9846e-07 /) - kbo(:, 3,43, 2) = (/ & - &1.9204e-06 ,3.3444e-06 ,3.3959e-06 ,2.9263e-06 ,6.1792e-07 /) - kbo(:, 4,43, 2) = (/ & - &2.9515e-06 ,4.9083e-06 ,4.8847e-06 ,4.0977e-06 ,7.5196e-07 /) - kbo(:, 5,43, 2) = (/ & - &4.4328e-06 ,7.0409e-06 ,6.8831e-06 ,5.6178e-06 ,9.0060e-07 /) - kbo(:, 1,44, 2) = (/ & - &6.1791e-07 ,1.0964e-06 ,1.1526e-06 ,1.0396e-06 ,2.9276e-07 /) - kbo(:, 2,44, 2) = (/ & - &9.1458e-07 ,1.6410e-06 ,1.7044e-06 ,1.5103e-06 ,3.7305e-07 /) - kbo(:, 3,44, 2) = (/ & - &1.4081e-06 ,2.4567e-06 ,2.5035e-06 ,2.1667e-06 ,4.6414e-07 /) - kbo(:, 4,44, 2) = (/ & - &2.1742e-06 ,3.6323e-06 ,3.6267e-06 ,3.0560e-06 ,5.6825e-07 /) - kbo(:, 5,44, 2) = (/ & - &3.2939e-06 ,5.2553e-06 ,5.1516e-06 ,4.2228e-06 ,6.8470e-07 /) - kbo(:, 1,45, 2) = (/ & - &4.6818e-07 ,8.0720e-07 ,8.4515e-07 ,7.6099e-07 ,2.1643e-07 /) - kbo(:, 2,45, 2) = (/ & - &6.7728e-07 ,1.2013e-06 ,1.2493e-06 ,1.1096e-06 ,2.7840e-07 /) - kbo(:, 3,45, 2) = (/ & - &1.0340e-06 ,1.8032e-06 ,1.8431e-06 ,1.6011e-06 ,3.4809e-07 /) - kbo(:, 4,45, 2) = (/ & - &1.6004e-06 ,2.6834e-06 ,2.6875e-06 ,2.2740e-06 ,4.2767e-07 /) - kbo(:, 5,45, 2) = (/ & - &2.4431e-06 ,3.9144e-06 ,3.8469e-06 ,3.1675e-06 ,5.1847e-07 /) - kbo(:, 1,46, 2) = (/ & - &3.5715e-07 ,5.9421e-07 ,6.1734e-07 ,5.5305e-07 ,1.5800e-07 /) - kbo(:, 2,46, 2) = (/ & - &5.0187e-07 ,8.7381e-07 ,9.0848e-07 ,8.0843e-07 ,2.0563e-07 /) - kbo(:, 3,46, 2) = (/ & - &7.5515e-07 ,1.3118e-06 ,1.3445e-06 ,1.1721e-06 ,2.5967e-07 /) - kbo(:, 4,46, 2) = (/ & - &1.1677e-06 ,1.9633e-06 ,1.9726e-06 ,1.6766e-06 ,3.2108e-07 /) - kbo(:, 5,46, 2) = (/ & - &1.7950e-06 ,2.8885e-06 ,2.8468e-06 ,2.3553e-06 ,3.9011e-07 /) - kbo(:, 1,47, 2) = (/ & - &2.7398e-07 ,4.3581e-07 ,4.4704e-07 ,3.9668e-07 ,1.1323e-07 /) - kbo(:, 2,47, 2) = (/ & - &3.7103e-07 ,6.2850e-07 ,6.5163e-07 ,5.8000e-07 ,1.4990e-07 /) - kbo(:, 3,47, 2) = (/ & - &5.4577e-07 ,9.3956e-07 ,9.6531e-07 ,8.4415e-07 ,1.9262e-07 /) - kbo(:, 4,47, 2) = (/ & - &8.3895e-07 ,1.4116e-06 ,1.4241e-06 ,1.2169e-06 ,2.3951e-07 /) - kbo(:, 5,47, 2) = (/ & - &1.2964e-06 ,2.0956e-06 ,2.0729e-06 ,1.7247e-06 ,2.9208e-07 /) - kbo(:, 1,48, 2) = (/ & - &2.1387e-07 ,3.2471e-07 ,3.2631e-07 ,2.8559e-07 ,7.9995e-08 /) - kbo(:, 2,48, 2) = (/ & - &2.7873e-07 ,4.5569e-07 ,4.6902e-07 ,4.1584e-07 ,1.0856e-07 /) - kbo(:, 3,48, 2) = (/ & - &3.9810e-07 ,6.7425e-07 ,6.9287e-07 ,6.0740e-07 ,1.4073e-07 /) - kbo(:, 4,48, 2) = (/ & - &6.0448e-07 ,1.0143e-06 ,1.0265e-06 ,8.8097e-07 ,1.7712e-07 /) - kbo(:, 5,48, 2) = (/ & - &9.3542e-07 ,1.5166e-06 ,1.5052e-06 ,1.2587e-06 ,2.1758e-07 /) - kbo(:, 1,49, 2) = (/ & - &1.6983e-07 ,2.4624e-07 ,2.4047e-07 ,2.0742e-07 ,5.5874e-08 /) - kbo(:, 2,49, 2) = (/ & - &2.1316e-07 ,3.3392e-07 ,3.3939e-07 ,2.9852e-07 ,7.7373e-08 /) - kbo(:, 3,49, 2) = (/ & - &2.9400e-07 ,4.8579e-07 ,4.9802e-07 ,4.3681e-07 ,1.0173e-07 /) - kbo(:, 4,49, 2) = (/ & - &4.3777e-07 ,7.2867e-07 ,7.3912e-07 ,6.3632e-07 ,1.2966e-07 /) - kbo(:, 5,49, 2) = (/ & - &6.7522e-07 ,1.0953e-06 ,1.0905e-06 ,9.1600e-07 ,1.6042e-07 /) - kbo(:, 1,50, 2) = (/ & - &1.3748e-07 ,1.9105e-07 ,1.8074e-07 ,1.5294e-07 ,4.0734e-08 /) - kbo(:, 2,50, 2) = (/ & - &1.6685e-07 ,2.5027e-07 ,2.4971e-07 ,2.1712e-07 ,5.5541e-08 /) - kbo(:, 3,50, 2) = (/ & - &2.2205e-07 ,3.5580e-07 ,3.6241e-07 ,3.1709e-07 ,7.4088e-08 /) - kbo(:, 4,50, 2) = (/ & - &3.2265e-07 ,5.2953e-07 ,5.3723e-07 ,4.6323e-07 ,9.5830e-08 /) - kbo(:, 5,50, 2) = (/ & - &4.9355e-07 ,7.9777e-07 ,7.9617e-07 ,6.7111e-07 ,1.2000e-07 /) - kbo(:, 1,51, 2) = (/ & - &1.1310e-07 ,1.5095e-07 ,1.3873e-07 ,1.1416e-07 ,2.8930e-08 /) - kbo(:, 2,51, 2) = (/ & - &1.3297e-07 ,1.9104e-07 ,1.8603e-07 ,1.5944e-07 ,3.9649e-08 /) - kbo(:, 3,51, 2) = (/ & - &1.7089e-07 ,2.6387e-07 ,2.6609e-07 ,2.3142e-07 ,5.4118e-08 /) - kbo(:, 4,51, 2) = (/ & - &2.4121e-07 ,3.8782e-07 ,3.9262e-07 ,3.3860e-07 ,7.0920e-08 /) - kbo(:, 5,51, 2) = (/ & - &3.6391e-07 ,5.8370e-07 ,5.8331e-07 ,4.9304e-07 ,8.9643e-08 /) - kbo(:, 1,52, 2) = (/ & - &9.4432e-08 ,1.2100e-07 ,1.0830e-07 ,8.6173e-08 ,2.0454e-08 /) - kbo(:, 2,52, 2) = (/ & - &1.0754e-07 ,1.4816e-07 ,1.4031e-07 ,1.1784e-07 ,2.8884e-08 /) - kbo(:, 3,52, 2) = (/ & - &1.3365e-07 ,1.9803e-07 ,1.9664e-07 ,1.6925e-07 ,3.9314e-08 /) - kbo(:, 4,52, 2) = (/ & - &1.8256e-07 ,2.8565e-07 ,2.8767e-07 ,2.4757e-07 ,5.1552e-08 /) - kbo(:, 5,52, 2) = (/ & - &2.7006e-07 ,4.2782e-07 ,4.2750e-07 ,3.6187e-07 ,6.6239e-08 /) - kbo(:, 1,53, 2) = (/ & - &7.9939e-08 ,9.8272e-08 ,8.6307e-08 ,6.6012e-08 ,1.4604e-08 /) - kbo(:, 2,53, 2) = (/ & - &8.8279e-08 ,1.1673e-07 ,1.0758e-07 ,8.7937e-08 ,2.0451e-08 /) - kbo(:, 3,53, 2) = (/ & - &1.0623e-07 ,1.5078e-07 ,1.4654e-07 ,1.2425e-07 ,2.8208e-08 /) - kbo(:, 4,53, 2) = (/ & - &1.4011e-07 ,2.1203e-07 ,2.1153e-07 ,1.8129e-07 ,3.7255e-08 /) - kbo(:, 5,53, 2) = (/ & - &2.0211e-07 ,3.1443e-07 ,3.1357e-07 ,2.6539e-07 ,4.8314e-08 /) - kbo(:, 1,54, 2) = (/ & - &6.8612e-08 ,8.0858e-08 ,7.0080e-08 ,5.1088e-08 ,1.0952e-08 /) - kbo(:, 2,54, 2) = (/ & - &7.3786e-08 ,9.3902e-08 ,8.4431e-08 ,6.7059e-08 ,1.4950e-08 /) - kbo(:, 3,54, 2) = (/ & - &8.6236e-08 ,1.1751e-07 ,1.1148e-07 ,9.2909e-08 ,2.0689e-08 /) - kbo(:, 4,54, 2) = (/ & - &1.1017e-07 ,1.6065e-07 ,1.5823e-07 ,1.3458e-07 ,2.7837e-08 /) - kbo(:, 5,54, 2) = (/ & - &1.5462e-07 ,2.3495e-07 ,2.3325e-07 ,1.9698e-07 ,3.6383e-08 /) - kbo(:, 1,55, 2) = (/ & - &5.9732e-08 ,6.7403e-08 ,5.7777e-08 ,3.9915e-08 ,8.5037e-09 /) - kbo(:, 2,55, 2) = (/ & - &6.2576e-08 ,7.6690e-08 ,6.7863e-08 ,5.1930e-08 ,1.1059e-08 /) - kbo(:, 3,55, 2) = (/ & - &7.1126e-08 ,9.3200e-08 ,8.6382e-08 ,7.0395e-08 ,1.5573e-08 /) - kbo(:, 4,55, 2) = (/ & - &8.8230e-08 ,1.2378e-07 ,1.1984e-07 ,1.0085e-07 ,2.1225e-08 /) - kbo(:, 5,55, 2) = (/ & - &1.2026e-07 ,1.7765e-07 ,1.7500e-07 ,1.4721e-07 ,2.7783e-08 /) - kbo(:, 1,56, 2) = (/ & - &5.2687e-08 ,5.6857e-08 ,4.7895e-08 ,3.2001e-08 ,6.6275e-09 /) - kbo(:, 2,56, 2) = (/ & - &5.3766e-08 ,6.3415e-08 ,5.5171e-08 ,4.0341e-08 ,8.2176e-09 /) - kbo(:, 3,56, 2) = (/ & - &5.9487e-08 ,7.5070e-08 ,6.7900e-08 ,5.3874e-08 ,1.1605e-08 /) - kbo(:, 4,56, 2) = (/ & - &7.1736e-08 ,9.6663e-08 ,9.1606e-08 ,7.5983e-08 ,1.6105e-08 /) - kbo(:, 5,56, 2) = (/ & - &9.4811e-08 ,1.3547e-07 ,1.3204e-07 ,1.1036e-07 ,2.1203e-08 /) - kbo(:, 1,57, 2) = (/ & - &4.7030e-08 ,4.8568e-08 ,3.9988e-08 ,2.6219e-08 ,4.9408e-09 /) - kbo(:, 2,57, 2) = (/ & - &4.6811e-08 ,5.3015e-08 ,4.5546e-08 ,3.1769e-08 ,6.1353e-09 /) - kbo(:, 3,57, 2) = (/ & - &5.0494e-08 ,6.1370e-08 ,5.4487e-08 ,4.1710e-08 ,8.6536e-09 /) - kbo(:, 4,57, 2) = (/ & - &5.9216e-08 ,7.6592e-08 ,7.0994e-08 ,5.7693e-08 ,1.1916e-08 /) - kbo(:, 5,57, 2) = (/ & - &7.5908e-08 ,1.0451e-07 ,1.0035e-07 ,8.3097e-08 ,1.6230e-08 /) - kbo(:, 1,58, 2) = (/ & - &2.0524e-08 ,2.3377e-08 ,2.2103e-08 ,1.7291e-08 ,3.6303e-09 /) - kbo(:, 2,58, 2) = (/ & - &2.0023e-08 ,2.5008e-08 ,2.4831e-08 ,2.0273e-08 ,4.7070e-09 /) - kbo(:, 3,58, 2) = (/ & - &2.1076e-08 ,2.8356e-08 ,2.8987e-08 ,2.5840e-08 ,6.5048e-09 /) - kbo(:, 4,58, 2) = (/ & - &2.4072e-08 ,3.4377e-08 ,3.6577e-08 ,3.5144e-08 ,8.9689e-09 /) - kbo(:, 5,58, 2) = (/ & - &3.0004e-08 ,4.5626e-08 ,5.0474e-08 ,4.9976e-08 ,1.2428e-08 /) - kbo(:, 1,59, 2) = (/ & - &1.7700e-08 ,1.9843e-08 ,1.8643e-08 ,1.4520e-08 ,2.9679e-09 /) - kbo(:, 2,59, 2) = (/ & - &1.7149e-08 ,2.1008e-08 ,2.0747e-08 ,1.6830e-08 ,3.9081e-09 /) - kbo(:, 3,59, 2) = (/ & - &1.7873e-08 ,2.3612e-08 ,2.4046e-08 ,2.1098e-08 ,5.4593e-09 /) - kbo(:, 4,59, 2) = (/ & - &2.0201e-08 ,2.8287e-08 ,2.9905e-08 ,2.8473e-08 ,7.4791e-09 /) - kbo(:, 5,59, 2) = (/ & - &2.4905e-08 ,3.7065e-08 ,4.0703e-08 ,4.0125e-08 ,1.0391e-08 /) - kbo(:, 1,13, 3) = (/ & - &7.5570e-04 ,1.0772e-03 ,1.0524e-03 ,8.5610e-04 ,5.7960e-04 /) - kbo(:, 2,13, 3) = (/ & - &1.1289e-03 ,1.5736e-03 ,1.5191e-03 ,1.2213e-03 ,7.5295e-04 /) - kbo(:, 3,13, 3) = (/ & - &1.7896e-03 ,2.3714e-03 ,2.2650e-03 ,1.7547e-03 ,9.2113e-04 /) - kbo(:, 4,13, 3) = (/ & - &2.8881e-03 ,3.6381e-03 ,3.3414e-03 ,2.5211e-03 ,1.0886e-03 /) - kbo(:, 5,13, 3) = (/ & - &4.6526e-03 ,5.5012e-03 ,4.9005e-03 ,3.6099e-03 ,1.2715e-03 /) - kbo(:, 1,14, 3) = (/ & - &6.5628e-04 ,9.2369e-04 ,9.0249e-04 ,7.3144e-04 ,5.2166e-04 /) - kbo(:, 2,14, 3) = (/ & - &1.0001e-03 ,1.3681e-03 ,1.3197e-03 ,1.0469e-03 ,6.6148e-04 /) - kbo(:, 3,14, 3) = (/ & - &1.6037e-03 ,2.0859e-03 ,1.9738e-03 ,1.5151e-03 ,7.9350e-04 /) - kbo(:, 4,14, 3) = (/ & - &2.6225e-03 ,3.2284e-03 ,2.9281e-03 ,2.1941e-03 ,9.2716e-04 /) - kbo(:, 5,14, 3) = (/ & - &4.2437e-03 ,4.9002e-03 ,4.3187e-03 ,3.1691e-03 ,1.0609e-03 /) - kbo(:, 1,15, 3) = (/ & - &5.5021e-04 ,7.7058e-04 ,7.4997e-04 ,6.0721e-04 ,4.5513e-04 /) - kbo(:, 2,15, 3) = (/ & - &8.5046e-04 ,1.1533e-03 ,1.1173e-03 ,8.7626e-04 ,5.6093e-04 /) - kbo(:, 3,15, 3) = (/ & - &1.3828e-03 ,1.7898e-03 ,1.6630e-03 ,1.2772e-03 ,6.6129e-04 /) - kbo(:, 4,15, 3) = (/ & - &2.2885e-03 ,2.7671e-03 ,2.4977e-03 ,1.8674e-03 ,7.6057e-04 /) - kbo(:, 5,15, 3) = (/ & - &3.7000e-03 ,4.2354e-03 ,3.7118e-03 ,2.7146e-03 ,8.7024e-04 /) - kbo(:, 1,16, 3) = (/ & - &4.5181e-04 ,6.3192e-04 ,6.1748e-04 ,4.9522e-04 ,3.6566e-04 /) - kbo(:, 2,16, 3) = (/ & - &7.0837e-04 ,9.6443e-04 ,9.2028e-04 ,7.2449e-04 ,4.4224e-04 /) - kbo(:, 3,16, 3) = (/ & - &1.1719e-03 ,1.5071e-03 ,1.3916e-03 ,1.0704e-03 ,5.1878e-04 /) - kbo(:, 4,16, 3) = (/ & - &1.9347e-03 ,2.3410e-03 ,2.1054e-03 ,1.5750e-03 ,5.9381e-04 /) - kbo(:, 5,16, 3) = (/ & - &3.1267e-03 ,3.5933e-03 ,3.1446e-03 ,2.3012e-03 ,6.8790e-04 /) - kbo(:, 1,17, 3) = (/ & - &3.7149e-04 ,5.2008e-04 ,5.0762e-04 ,4.0757e-04 ,2.8847e-04 /) - kbo(:, 2,17, 3) = (/ & - &5.8832e-04 ,8.0612e-04 ,7.6169e-04 ,6.0348e-04 ,3.4723e-04 /) - kbo(:, 3,17, 3) = (/ & - &9.7995e-04 ,1.2582e-03 ,1.1654e-03 ,8.9803e-04 ,4.0483e-04 /) - kbo(:, 4,17, 3) = (/ & - &1.6147e-03 ,1.9685e-03 ,1.7733e-03 ,1.3298e-03 ,4.7136e-04 /) - kbo(:, 5,17, 3) = (/ & - &2.6071e-03 ,3.0247e-03 ,2.6450e-03 ,1.9458e-03 ,5.5921e-04 /) - kbo(:, 1,18, 3) = (/ & - &3.0061e-04 ,4.2884e-04 ,4.1648e-04 ,3.3754e-04 ,2.3127e-04 /) - kbo(:, 2,18, 3) = (/ & - &4.8246e-04 ,6.6793e-04 ,6.3270e-04 ,5.0432e-04 ,2.7279e-04 /) - kbo(:, 3,18, 3) = (/ & - &8.0392e-04 ,1.0486e-03 ,9.7147e-04 ,7.5301e-04 ,3.2007e-04 /) - kbo(:, 4,18, 3) = (/ & - &1.3260e-03 ,1.6386e-03 ,1.4792e-03 ,1.1164e-03 ,3.8144e-04 /) - kbo(:, 5,18, 3) = (/ & - &2.1473e-03 ,2.5126e-03 ,2.2067e-03 ,1.6276e-03 ,4.4653e-04 /) - kbo(:, 1,19, 3) = (/ & - &2.4724e-04 ,3.5910e-04 ,3.4734e-04 ,2.8349e-04 ,1.8511e-04 /) - kbo(:, 2,19, 3) = (/ & - &4.0125e-04 ,5.6017e-04 ,5.3189e-04 ,4.2493e-04 ,2.2055e-04 /) - kbo(:, 3,19, 3) = (/ & - &6.6924e-04 ,8.8342e-04 ,8.2067e-04 ,6.3860e-04 ,2.6260e-04 /) - kbo(:, 4,19, 3) = (/ & - &1.1061e-03 ,1.3792e-03 ,1.2462e-03 ,9.4376e-04 ,3.1226e-04 /) - kbo(:, 5,19, 3) = (/ & - &1.7964e-03 ,2.1126e-03 ,1.8583e-03 ,1.3721e-03 ,3.6746e-04 /) - kbo(:, 1,20, 3) = (/ & - &2.0934e-04 ,3.0700e-04 ,2.9722e-04 ,2.4267e-04 ,1.4926e-04 /) - kbo(:, 2,20, 3) = (/ & - &3.4260e-04 ,4.8187e-04 ,4.5763e-04 ,3.6566e-04 ,1.7991e-04 /) - kbo(:, 3,20, 3) = (/ & - &5.7163e-04 ,7.5991e-04 ,7.0644e-04 ,5.4990e-04 ,2.1557e-04 /) - kbo(:, 4,20, 3) = (/ & - &9.4873e-04 ,1.1845e-03 ,1.0719e-03 ,8.1150e-04 ,2.5564e-04 /) - kbo(:, 5,20, 3) = (/ & - &1.5383e-03 ,1.8175e-03 ,1.5965e-03 ,1.1755e-03 ,3.0407e-04 /) - kbo(:, 1,21, 3) = (/ & - &1.7843e-04 ,2.6350e-04 ,2.5564e-04 ,2.0870e-04 ,1.2133e-04 /) - kbo(:, 2,21, 3) = (/ & - &2.9332e-04 ,4.1557e-04 ,3.9544e-04 ,3.1597e-04 ,1.4677e-04 /) - kbo(:, 3,21, 3) = (/ & - &4.9132e-04 ,6.5537e-04 ,6.0874e-04 ,4.7437e-04 ,1.7728e-04 /) - kbo(:, 4,21, 3) = (/ & - &8.1854e-04 ,1.0220e-03 ,9.2374e-04 ,6.9881e-04 ,2.1085e-04 /) - kbo(:, 5,21, 3) = (/ & - &1.3233e-03 ,1.5674e-03 ,1.3737e-03 ,1.0105e-03 ,2.5000e-04 /) - kbo(:, 1,22, 3) = (/ & - &1.5600e-04 ,2.3165e-04 ,2.2455e-04 ,1.8380e-04 ,9.8965e-05 /) - kbo(:, 2,22, 3) = (/ & - &2.5879e-04 ,3.6647e-04 ,3.4891e-04 ,2.7934e-04 ,1.2038e-04 /) - kbo(:, 3,22, 3) = (/ & - &4.3583e-04 ,5.7888e-04 ,5.3753e-04 ,4.1782e-04 ,1.4492e-04 /) - kbo(:, 4,22, 3) = (/ & - &7.2393e-04 ,9.0328e-04 ,8.1451e-04 ,6.1366e-04 ,1.7404e-04 /) - kbo(:, 5,22, 3) = (/ & - &1.1641e-03 ,1.3807e-03 ,1.2062e-03 ,8.8532e-04 ,2.0548e-04 /) - kbo(:, 1,23, 3) = (/ & - &1.3677e-04 ,2.0433e-04 ,1.9788e-04 ,1.6232e-04 ,8.0071e-05 /) - kbo(:, 2,23, 3) = (/ & - &2.2851e-04 ,3.2392e-04 ,3.0774e-04 ,2.4623e-04 ,9.8059e-05 /) - kbo(:, 3,23, 3) = (/ & - &3.8639e-04 ,5.1167e-04 ,4.7457e-04 ,3.6749e-04 ,1.1880e-04 /) - kbo(:, 4,23, 3) = (/ & - &6.3801e-04 ,7.9694e-04 ,7.1675e-04 ,5.3954e-04 ,1.4295e-04 /) - kbo(:, 5,23, 3) = (/ & - &1.0211e-03 ,1.2096e-03 ,1.0561e-03 ,7.7552e-04 ,1.6841e-04 /) - kbo(:, 1,24, 3) = (/ & - &1.2065e-04 ,1.8059e-04 ,1.7513e-04 ,1.4381e-04 ,6.4790e-05 /) - kbo(:, 2,24, 3) = (/ & - &2.0387e-04 ,2.8742e-04 ,2.7331e-04 ,2.1771e-04 ,7.9169e-05 /) - kbo(:, 3,24, 3) = (/ & - &3.4413e-04 ,4.5518e-04 ,4.2044e-04 ,3.2458e-04 ,9.5995e-05 /) - kbo(:, 4,24, 3) = (/ & - &5.6569e-04 ,7.0542e-04 ,6.3169e-04 ,4.7542e-04 ,1.1593e-04 /) - kbo(:, 5,24, 3) = (/ & - &8.9817e-04 ,1.0616e-03 ,9.2695e-04 ,6.8043e-04 ,1.3621e-04 /) - kbo(:, 1,25, 3) = (/ & - &1.0740e-04 ,1.6092e-04 ,1.5588e-04 ,1.2763e-04 ,5.2835e-05 /) - kbo(:, 2,25, 3) = (/ & - &1.8277e-04 ,2.5653e-04 ,2.4346e-04 ,1.9325e-04 ,6.4708e-05 /) - kbo(:, 3,25, 3) = (/ & - &3.0775e-04 ,4.0577e-04 ,3.7301e-04 ,2.8766e-04 ,7.8479e-05 /) - kbo(:, 4,25, 3) = (/ & - &5.0348e-04 ,6.2434e-04 ,5.5838e-04 ,4.1972e-04 ,9.2999e-05 /) - kbo(:, 5,25, 3) = (/ & - &7.9236e-04 ,9.3393e-04 ,8.1486e-04 ,5.9712e-04 ,1.1091e-04 /) - kbo(:, 1,26, 3) = (/ & - &9.7543e-05 ,1.4515e-04 ,1.4079e-04 ,1.1469e-04 ,4.3203e-05 /) - kbo(:, 2,26, 3) = (/ & - &1.6637e-04 ,2.3211e-04 ,2.1906e-04 ,1.7338e-04 ,5.3501e-05 /) - kbo(:, 3,26, 3) = (/ & - &2.7898e-04 ,3.6497e-04 ,3.3420e-04 ,2.5717e-04 ,6.4391e-05 /) - kbo(:, 4,26, 3) = (/ & - &4.5278e-04 ,5.5785e-04 ,4.9753e-04 ,3.7293e-04 ,7.6357e-05 /) - kbo(:, 5,26, 3) = (/ & - &7.0495e-04 ,8.2859e-04 ,7.2055e-04 ,5.2702e-04 ,9.1483e-05 /) - kbo(:, 1,27, 3) = (/ & - &8.8905e-05 ,1.3136e-04 ,1.2690e-04 ,1.0312e-04 ,3.5556e-05 /) - kbo(:, 2,27, 3) = (/ & - &1.5157e-04 ,2.0993e-04 ,1.9708e-04 ,1.5550e-04 ,4.3708e-05 /) - kbo(:, 3,27, 3) = (/ & - &2.5313e-04 ,3.2779e-04 ,2.9943e-04 ,2.2974e-04 ,5.2449e-05 /) - kbo(:, 4,27, 3) = (/ & - &4.0707e-04 ,4.9850e-04 ,4.4267e-04 ,3.3107e-04 ,6.3153e-05 /) - kbo(:, 5,27, 3) = (/ & - &6.2804e-04 ,7.3434e-04 ,6.3748e-04 ,4.6470e-04 ,7.4410e-05 /) - kbo(:, 1,28, 3) = (/ & - &8.1071e-05 ,1.1893e-04 ,1.1441e-04 ,9.2670e-05 ,2.9048e-05 /) - kbo(:, 2,28, 3) = (/ & - &1.3818e-04 ,1.8937e-04 ,1.7730e-04 ,1.3932e-04 ,3.5467e-05 /) - kbo(:, 3,28, 3) = (/ & - &2.2925e-04 ,2.9449e-04 ,2.6762e-04 ,2.0484e-04 ,4.2994e-05 /) - kbo(:, 4,28, 3) = (/ & - &3.6544e-04 ,4.4427e-04 ,3.9356e-04 ,2.9338e-04 ,5.1335e-05 /) - kbo(:, 5,28, 3) = (/ & - &5.5873e-04 ,6.5113e-04 ,5.6346e-04 ,4.0933e-04 ,6.0144e-05 /) - kbo(:, 1,29, 3) = (/ & - &7.4203e-05 ,1.0781e-04 ,1.0341e-04 ,8.3458e-05 ,2.3671e-05 /) - kbo(:, 2,29, 3) = (/ & - &1.2605e-04 ,1.7113e-04 ,1.5936e-04 ,1.2487e-04 ,2.9121e-05 /) - kbo(:, 3,29, 3) = (/ & - &2.0703e-04 ,2.6395e-04 ,2.3919e-04 ,1.8248e-04 ,3.5057e-05 /) - kbo(:, 4,29, 3) = (/ & - &3.2741e-04 ,3.9598e-04 ,3.4952e-04 ,2.5961e-04 ,4.1444e-05 /) - kbo(:, 5,29, 3) = (/ & - &4.9624e-04 ,5.7661e-04 ,4.9724e-04 ,3.6006e-04 ,4.8751e-05 /) - kbo(:, 1,30, 3) = (/ & - &6.7677e-05 ,9.7468e-05 ,9.3138e-05 ,7.4923e-05 ,1.9287e-05 /) - kbo(:, 2,30, 3) = (/ & - &1.1431e-04 ,1.5374e-04 ,1.4284e-04 ,1.1153e-04 ,2.3591e-05 /) - kbo(:, 3,30, 3) = (/ & - &1.8623e-04 ,2.3583e-04 ,2.1291e-04 ,1.6193e-04 ,2.8158e-05 /) - kbo(:, 4,30, 3) = (/ & - &2.9180e-04 ,3.5163e-04 ,3.0921e-04 ,2.2892e-04 ,3.3328e-05 /) - kbo(:, 5,30, 3) = (/ & - &4.3918e-04 ,5.0854e-04 ,4.3751e-04 ,3.1569e-04 ,3.9501e-05 /) - kbo(:, 1,31, 3) = (/ & - &6.1393e-05 ,8.7694e-05 ,8.3630e-05 ,6.7048e-05 ,1.5382e-05 /) - kbo(:, 2,31, 3) = (/ & - &1.0290e-04 ,1.3743e-04 ,1.2731e-04 ,9.9241e-05 ,1.8651e-05 /) - kbo(:, 3,31, 3) = (/ & - &1.6626e-04 ,2.0956e-04 ,1.8851e-04 ,1.4301e-04 ,2.2748e-05 /) - kbo(:, 4,31, 3) = (/ & - &2.5819e-04 ,3.1016e-04 ,2.7211e-04 ,2.0081e-04 ,2.7039e-05 /) - kbo(:, 5,31, 3) = (/ & - &3.8535e-04 ,4.4535e-04 ,3.8254e-04 ,2.7522e-04 ,3.1790e-05 /) - kbo(:, 1,32, 3) = (/ & - &5.5908e-05 ,7.9178e-05 ,7.5227e-05 ,6.0166e-05 ,1.2301e-05 /) - kbo(:, 2,32, 3) = (/ & - &9.3029e-05 ,1.2336e-04 ,1.1373e-04 ,8.8415e-05 ,1.5236e-05 /) - kbo(:, 3,32, 3) = (/ & - &1.4900e-04 ,1.8677e-04 ,1.6744e-04 ,1.2652e-04 ,1.8544e-05 /) - kbo(:, 4,32, 3) = (/ & - &2.2938e-04 ,2.7443e-04 ,2.4002e-04 ,1.7648e-04 ,2.2012e-05 /) - kbo(:, 5,32, 3) = (/ & - &3.3936e-04 ,3.9112e-04 ,3.3532e-04 ,2.4040e-04 ,2.5885e-05 /) - kbo(:, 1,33, 3) = (/ & - &5.1027e-05 ,7.1592e-05 ,6.7752e-05 ,5.3984e-05 ,1.0069e-05 /) - kbo(:, 2,33, 3) = (/ & - &8.4306e-05 ,1.1082e-04 ,1.0178e-04 ,7.8786e-05 ,1.2424e-05 /) - kbo(:, 3,33, 3) = (/ & - &1.3378e-04 ,1.6666e-04 ,1.4886e-04 ,1.1198e-04 ,1.5017e-05 /) - kbo(:, 4,33, 3) = (/ & - &2.0407e-04 ,2.4310e-04 ,2.1204e-04 ,1.5519e-04 ,1.7833e-05 /) - kbo(:, 5,33, 3) = (/ & - &2.9932e-04 ,3.4399e-04 ,2.9425e-04 ,2.1002e-04 ,2.0751e-05 /) - kbo(:, 1,34, 3) = (/ & - &4.6423e-05 ,6.4385e-05 ,6.0651e-05 ,4.8084e-05 ,8.2313e-06 /) - kbo(:, 2,34, 3) = (/ & - &7.6075e-05 ,9.9124e-05 ,9.0586e-05 ,6.9780e-05 ,1.0168e-05 /) - kbo(:, 3,34, 3) = (/ & - &1.1981e-04 ,1.4811e-04 ,1.3176e-04 ,9.8597e-05 ,1.2205e-05 /) - kbo(:, 4,34, 3) = (/ & - &1.8123e-04 ,2.1472e-04 ,1.8662e-04 ,1.3590e-04 ,1.4492e-05 /) - kbo(:, 5,34, 3) = (/ & - &2.6376e-04 ,3.0190e-04 ,2.5753e-04 ,1.8301e-04 ,1.6946e-05 /) - kbo(:, 1,35, 3) = (/ & - &4.0215e-05 ,5.5516e-05 ,5.2178e-05 ,4.1265e-05 ,6.6300e-06 /) - kbo(:, 2,35, 3) = (/ & - &6.5646e-05 ,8.5207e-05 ,7.7691e-05 ,5.9694e-05 ,8.1351e-06 /) - kbo(:, 3,35, 3) = (/ & - &1.0298e-04 ,1.2694e-04 ,1.1266e-04 ,8.4059e-05 ,9.8103e-06 /) - kbo(:, 4,35, 3) = (/ & - &1.5503e-04 ,1.8334e-04 ,1.5905e-04 ,1.1551e-04 ,1.1630e-05 /) - kbo(:, 5,35, 3) = (/ & - &2.2476e-04 ,2.5697e-04 ,2.1886e-04 ,1.5514e-04 ,1.3591e-05 /) - kbo(:, 1,36, 3) = (/ & - &3.2994e-05 ,4.5660e-05 ,4.2930e-05 ,3.3969e-05 ,5.1542e-06 /) - kbo(:, 2,36, 3) = (/ & - &5.3916e-05 ,7.0104e-05 ,6.3946e-05 ,4.9132e-05 ,6.3498e-06 /) - kbo(:, 3,36, 3) = (/ & - &8.4552e-05 ,1.0443e-04 ,9.2717e-05 ,6.9170e-05 ,7.6665e-06 /) - kbo(:, 4,36, 3) = (/ & - &1.2731e-04 ,1.5086e-04 ,1.3088e-04 ,9.4999e-05 ,9.0883e-06 /) - kbo(:, 5,36, 3) = (/ & - &1.8455e-04 ,2.1131e-04 ,1.8000e-04 ,1.2756e-04 ,1.0606e-05 /) - kbo(:, 1,37, 3) = (/ & - &2.5429e-05 ,3.5502e-05 ,3.3507e-05 ,2.6612e-05 ,3.9872e-06 /) - kbo(:, 2,37, 3) = (/ & - &4.1789e-05 ,5.4774e-05 ,5.0118e-05 ,3.8644e-05 ,4.9244e-06 /) - kbo(:, 3,37, 3) = (/ & - &6.5920e-05 ,8.1963e-05 ,7.2974e-05 ,5.4610e-05 ,5.9794e-06 /) - kbo(:, 4,37, 3) = (/ & - &9.9825e-05 ,1.1892e-04 ,1.0339e-04 ,7.5254e-05 ,7.1021e-06 /) - kbo(:, 5,37, 3) = (/ & - &1.4543e-04 ,1.6731e-04 ,1.4273e-04 ,1.0135e-04 ,8.2993e-06 /) - kbo(:, 1,38, 3) = (/ & - &1.9510e-05 ,2.7499e-05 ,2.6048e-05 ,2.0774e-05 ,3.0726e-06 /) - kbo(:, 2,38, 3) = (/ & - &3.2252e-05 ,4.2623e-05 ,3.9146e-05 ,3.0291e-05 ,3.8102e-06 /) - kbo(:, 3,38, 3) = (/ & - &5.1187e-05 ,6.4097e-05 ,5.7223e-05 ,4.2970e-05 ,4.6390e-06 /) - kbo(:, 4,38, 3) = (/ & - &7.8004e-05 ,9.3430e-05 ,8.1421e-05 ,5.9437e-05 ,5.5099e-06 /) - kbo(:, 5,38, 3) = (/ & - &1.1424e-04 ,1.3207e-04 ,1.1286e-04 ,8.0305e-05 ,6.4580e-06 /) - kbo(:, 1,39, 3) = (/ & - &1.4955e-05 ,2.1282e-05 ,2.0237e-05 ,1.6208e-05 ,2.3414e-06 /) - kbo(:, 2,39, 3) = (/ & - &2.4867e-05 ,3.3144e-05 ,3.0547e-05 ,2.3724e-05 ,2.9298e-06 /) - kbo(:, 3,39, 3) = (/ & - &3.9718e-05 ,5.0092e-05 ,4.4848e-05 ,3.3792e-05 ,3.5597e-06 /) - kbo(:, 4,39, 3) = (/ & - &6.0902e-05 ,7.3365e-05 ,6.4080e-05 ,4.6913e-05 ,4.2665e-06 /) - kbo(:, 5,39, 3) = (/ & - &8.9673e-05 ,1.0416e-04 ,8.9163e-05 ,6.3592e-05 ,5.0003e-06 /) - kbo(:, 1,40, 3) = (/ & - &1.0973e-05 ,1.5834e-05 ,1.5141e-05 ,1.2207e-05 ,1.7695e-06 /) - kbo(:, 2,40, 3) = (/ & - &1.8417e-05 ,2.4851e-05 ,2.3037e-05 ,1.7992e-05 ,2.2304e-06 /) - kbo(:, 3,40, 3) = (/ & - &2.9718e-05 ,3.7867e-05 ,3.4065e-05 ,2.5810e-05 ,2.7325e-06 /) - kbo(:, 4,40, 3) = (/ & - &4.6050e-05 ,5.5927e-05 ,4.9024e-05 ,3.6065e-05 ,3.2836e-06 /) - kbo(:, 5,40, 3) = (/ & - &6.8462e-05 ,8.0022e-05 ,6.8684e-05 ,4.9179e-05 ,3.8780e-06 /) - kbo(:, 1,41, 3) = (/ & - &7.9936e-06 ,1.1702e-05 ,1.1250e-05 ,9.1326e-06 ,1.3289e-06 /) - kbo(:, 2,41, 3) = (/ & - &1.3541e-05 ,1.8510e-05 ,1.7261e-05 ,1.3563e-05 ,1.6876e-06 /) - kbo(:, 3,41, 3) = (/ & - &2.2085e-05 ,2.8450e-05 ,2.5728e-05 ,1.9606e-05 ,2.0896e-06 /) - kbo(:, 4,41, 3) = (/ & - &3.4599e-05 ,4.2393e-05 ,3.7310e-05 ,2.7591e-05 ,2.5142e-06 /) - kbo(:, 5,41, 3) = (/ & - &5.1973e-05 ,6.1166e-05 ,5.2649e-05 ,3.7859e-05 ,2.9985e-06 /) - kbo(:, 1,42, 3) = (/ & - &5.8131e-06 ,8.6287e-06 ,8.3395e-06 ,6.8180e-06 ,9.9321e-07 /) - kbo(:, 2,42, 3) = (/ & - &9.9286e-06 ,1.3753e-05 ,1.2903e-05 ,1.0201e-05 ,1.2739e-06 /) - kbo(:, 3,42, 3) = (/ & - &1.6369e-05 ,2.1324e-05 ,1.9387e-05 ,1.4861e-05 ,1.5862e-06 /) - kbo(:, 4,42, 3) = (/ & - &2.5917e-05 ,3.2058e-05 ,2.8333e-05 ,2.1064e-05 ,1.9289e-06 /) - kbo(:, 5,42, 3) = (/ & - &3.9355e-05 ,4.6652e-05 ,4.0275e-05 ,2.9099e-05 ,2.3091e-06 /) - kbo(:, 1,43, 3) = (/ & - &4.1379e-06 ,6.2276e-06 ,6.0505e-06 ,4.9862e-06 ,7.3153e-07 /) - kbo(:, 2,43, 3) = (/ & - &7.1228e-06 ,1.0012e-05 ,9.4538e-06 ,7.5288e-06 ,9.4466e-07 /) - kbo(:, 3,43, 3) = (/ & - &1.1889e-05 ,1.5688e-05 ,1.4350e-05 ,1.1075e-05 ,1.1892e-06 /) - kbo(:, 4,43, 3) = (/ & - &1.9074e-05 ,2.3844e-05 ,2.1179e-05 ,1.5845e-05 ,1.4637e-06 /) - kbo(:, 5,43, 3) = (/ & - &2.9351e-05 ,3.5073e-05 ,3.0382e-05 ,2.2068e-05 ,1.7581e-06 /) - kbo(:, 1,44, 3) = (/ & - &2.9204e-06 ,4.4462e-06 ,4.3423e-06 ,3.6069e-06 ,5.3481e-07 /) - kbo(:, 2,44, 3) = (/ & - &5.0527e-06 ,7.2110e-06 ,6.8508e-06 ,5.4982e-06 ,6.9481e-07 /) - kbo(:, 3,44, 3) = (/ & - &8.5402e-06 ,1.1419e-05 ,1.0515e-05 ,8.1724e-06 ,8.8543e-07 /) - kbo(:, 4,44, 3) = (/ & - &1.3894e-05 ,1.7562e-05 ,1.5682e-05 ,1.1814e-05 ,1.0984e-06 /) - kbo(:, 5,44, 3) = (/ & - &2.1692e-05 ,2.6150e-05 ,2.2738e-05 ,1.6619e-05 ,1.3258e-06 /) - kbo(:, 1,45, 3) = (/ & - &2.0654e-06 ,3.1706e-06 ,3.1106e-06 ,2.6027e-06 ,3.8843e-07 /) - kbo(:, 2,45, 3) = (/ & - &3.5785e-06 ,5.1800e-06 ,4.9498e-06 ,4.0029e-06 ,5.0552e-07 /) - kbo(:, 3,45, 3) = (/ & - &6.1156e-06 ,8.2899e-06 ,7.6825e-06 ,6.0114e-06 ,6.4899e-07 /) - kbo(:, 4,45, 3) = (/ & - &1.0090e-05 ,1.2899e-05 ,1.1584e-05 ,8.7849e-06 ,8.1182e-07 /) - kbo(:, 5,45, 3) = (/ & - &1.5974e-05 ,1.9436e-05 ,1.6972e-05 ,1.2481e-05 ,9.9260e-07 /) - kbo(:, 1,46, 3) = (/ & - &1.4538e-06 ,2.2381e-06 ,2.2044e-06 ,1.8570e-06 ,2.7780e-07 /) - kbo(:, 2,46, 3) = (/ & - &2.5054e-06 ,3.6761e-06 ,3.5333e-06 ,2.8803e-06 ,3.6666e-07 /) - kbo(:, 3,46, 3) = (/ & - &4.3205e-06 ,5.9430e-06 ,5.5451e-06 ,4.3709e-06 ,4.7052e-07 /) - kbo(:, 4,46, 3) = (/ & - &7.2299e-06 ,9.3616e-06 ,8.4601e-06 ,6.4628e-06 ,5.9539e-07 /) - kbo(:, 5,46, 3) = (/ & - &1.1621e-05 ,1.4285e-05 ,1.2535e-05 ,9.2836e-06 ,7.3565e-07 /) - kbo(:, 1,47, 3) = (/ & - &1.0143e-06 ,1.5538e-06 ,1.5325e-06 ,1.2979e-06 ,1.9733e-07 /) - kbo(:, 2,47, 3) = (/ & - &1.7208e-06 ,2.5538e-06 ,2.4694e-06 ,2.0305e-06 ,2.6304e-07 /) - kbo(:, 3,47, 3) = (/ & - &2.9828e-06 ,4.1702e-06 ,3.9202e-06 ,3.1167e-06 ,3.4065e-07 /) - kbo(:, 4,47, 3) = (/ & - &5.0644e-06 ,6.6541e-06 ,6.0593e-06 ,4.6660e-06 ,4.3326e-07 /) - kbo(:, 5,47, 3) = (/ & - &8.2782e-06 ,1.0300e-05 ,9.0956e-06 ,6.7879e-06 ,5.4017e-07 /) - kbo(:, 1,48, 3) = (/ & - &7.2030e-07 ,1.0845e-06 ,1.0676e-06 ,9.0611e-07 ,1.3761e-07 /) - kbo(:, 2,48, 3) = (/ & - &1.1872e-06 ,1.7730e-06 ,1.7228e-06 ,1.4271e-06 ,1.8706e-07 /) - kbo(:, 3,48, 3) = (/ & - &2.0561e-06 ,2.9161e-06 ,2.7609e-06 ,2.2135e-06 ,2.4544e-07 /) - kbo(:, 4,48, 3) = (/ & - &3.5327e-06 ,4.7102e-06 ,4.3223e-06 ,3.3540e-06 ,3.1231e-07 /) - kbo(:, 5,48, 3) = (/ & - &5.8701e-06 ,7.3943e-06 ,6.5729e-06 ,4.9432e-06 ,3.9364e-07 /) - kbo(:, 1,49, 3) = (/ & - &5.2463e-07 ,7.6406e-07 ,7.4789e-07 ,6.3224e-07 ,9.4269e-08 /) - kbo(:, 2,49, 3) = (/ & - &8.2733e-07 ,1.2326e-06 ,1.2007e-06 ,1.0005e-06 ,1.3092e-07 /) - kbo(:, 3,49, 3) = (/ & - &1.4174e-06 ,2.0342e-06 ,1.9376e-06 ,1.5657e-06 ,1.7460e-07 /) - kbo(:, 4,49, 3) = (/ & - &2.4552e-06 ,3.3221e-06 ,3.0702e-06 ,2.4004e-06 ,2.2553e-07 /) - kbo(:, 5,49, 3) = (/ & - &4.1423e-06 ,5.2851e-06 ,4.7305e-06 ,3.5840e-06 ,2.8424e-07 /) - kbo(:, 1,50, 3) = (/ & - &3.9659e-07 ,5.5178e-07 ,5.3440e-07 ,4.4722e-07 ,6.5930e-08 /) - kbo(:, 2,50, 3) = (/ & - &5.9210e-07 ,8.7140e-07 ,8.4803e-07 ,7.0817e-07 ,9.3562e-08 /) - kbo(:, 3,50, 3) = (/ & - &9.9396e-07 ,1.4345e-06 ,1.3722e-06 ,1.1160e-06 ,1.2619e-07 /) - kbo(:, 4,50, 3) = (/ & - &1.7258e-06 ,2.3624e-06 ,2.1973e-06 ,1.7292e-06 ,1.6444e-07 /) - kbo(:, 5,50, 3) = (/ & - &2.9480e-06 ,3.8052e-06 ,3.4270e-06 ,2.6131e-06 ,2.0855e-07 /) - kbo(:, 1,51, 3) = (/ & - &3.0780e-07 ,4.0724e-07 ,3.8772e-07 ,3.1909e-07 ,4.7152e-08 /) - kbo(:, 2,51, 3) = (/ & - &4.3389e-07 ,6.2376e-07 ,6.0442e-07 ,5.0387e-07 ,6.6848e-08 /) - kbo(:, 3,51, 3) = (/ & - &7.0578e-07 ,1.0183e-06 ,9.7661e-07 ,7.9773e-07 ,9.1673e-08 /) - kbo(:, 4,51, 3) = (/ & - &1.2202e-06 ,1.6857e-06 ,1.5762e-06 ,1.2481e-06 ,1.2080e-07 /) - kbo(:, 5,51, 3) = (/ & - &2.1050e-06 ,2.7463e-06 ,2.4878e-06 ,1.9078e-06 ,1.5488e-07 /) - kbo(:, 1,52, 3) = (/ & - &2.4467e-07 ,3.0672e-07 ,2.8540e-07 ,2.2927e-07 ,3.3766e-08 /) - kbo(:, 2,52, 3) = (/ & - &3.2577e-07 ,4.5139e-07 ,4.3382e-07 ,3.5906e-07 ,4.7409e-08 /) - kbo(:, 3,52, 3) = (/ & - &5.0672e-07 ,7.2555e-07 ,6.9595e-07 ,5.7001e-07 ,6.5991e-08 /) - kbo(:, 4,52, 3) = (/ & - &8.6516e-07 ,1.2018e-06 ,1.1289e-06 ,8.9884e-07 ,8.8646e-08 /) - kbo(:, 5,52, 3) = (/ & - &1.5011e-06 ,1.9777e-06 ,1.8012e-06 ,1.3890e-06 ,1.1411e-07 /) - kbo(:, 1,53, 3) = (/ & - &1.9893e-07 ,2.3655e-07 ,2.1398e-07 ,1.6650e-07 ,2.3697e-08 /) - kbo(:, 2,53, 3) = (/ & - &2.5083e-07 ,3.3159e-07 ,3.1422e-07 ,2.5680e-07 ,3.3792e-08 /) - kbo(:, 3,53, 3) = (/ & - &3.6925e-07 ,5.1963e-07 ,4.9710e-07 ,4.0705e-07 ,4.7057e-08 /) - kbo(:, 4,53, 3) = (/ & - &6.1624e-07 ,8.5716e-07 ,8.0760e-07 ,6.4558e-07 ,6.4327e-08 /) - kbo(:, 5,53, 3) = (/ & - &1.0701e-06 ,1.4207e-06 ,1.3006e-06 ,1.0081e-06 ,8.3703e-08 /) - kbo(:, 1,54, 3) = (/ & - &1.6569e-07 ,1.8826e-07 ,1.6516e-07 ,1.2463e-07 ,1.7341e-08 /) - kbo(:, 2,54, 3) = (/ & - &1.9916e-07 ,2.5095e-07 ,2.3323e-07 ,1.8716e-07 ,2.4743e-08 /) - kbo(:, 3,54, 3) = (/ & - &2.7800e-07 ,3.8083e-07 ,3.6198e-07 ,2.9489e-07 ,3.4593e-08 /) - kbo(:, 4,54, 3) = (/ & - &4.4953e-07 ,6.2218e-07 ,5.8637e-07 ,4.6947e-07 ,4.7657e-08 /) - kbo(:, 5,54, 3) = (/ & - &7.7653e-07 ,1.0348e-06 ,9.5106e-07 ,7.3964e-07 ,6.2914e-08 /) - kbo(:, 1,55, 3) = (/ & - &1.4043e-07 ,1.5348e-07 ,1.3050e-07 ,9.5790e-08 ,1.3021e-08 /) - kbo(:, 2,55, 3) = (/ & - &1.6195e-07 ,1.9454e-07 ,1.7661e-07 ,1.3842e-07 ,1.8310e-08 /) - kbo(:, 3,55, 3) = (/ & - &2.1498e-07 ,2.8400e-07 ,2.6714e-07 ,2.1561e-07 ,2.5769e-08 /) - kbo(:, 4,55, 3) = (/ & - &3.3384e-07 ,4.5663e-07 ,4.2946e-07 ,3.4367e-07 ,3.5731e-08 /) - kbo(:, 5,55, 3) = (/ & - &5.6980e-07 ,7.5956e-07 ,6.9954e-07 ,5.4544e-07 ,4.7978e-08 /) - kbo(:, 1,56, 3) = (/ & - &1.2086e-07 ,1.2723e-07 ,1.0539e-07 ,7.4446e-08 ,9.2261e-09 /) - kbo(:, 2,56, 3) = (/ & - &1.3434e-07 ,1.5407e-07 ,1.3616e-07 ,1.0396e-07 ,1.3447e-08 /) - kbo(:, 3,56, 3) = (/ & - &1.7000e-07 ,2.1506e-07 ,1.9916e-07 ,1.5861e-07 ,1.9233e-08 /) - kbo(:, 4,56, 3) = (/ & - &2.5155e-07 ,3.3746e-07 ,3.1592e-07 ,2.5204e-07 ,2.6859e-08 /) - kbo(:, 5,56, 3) = (/ & - &4.2088e-07 ,5.5907e-07 ,5.1525e-07 ,4.0220e-07 ,3.6549e-08 /) - kbo(:, 1,57, 3) = (/ & - &1.0553e-07 ,1.0707e-07 ,8.7153e-08 ,5.8944e-08 ,6.8033e-09 /) - kbo(:, 2,57, 3) = (/ & - &1.1362e-07 ,1.2487e-07 ,1.0708e-07 ,7.9506e-08 ,9.8943e-09 /) - kbo(:, 3,57, 3) = (/ & - &1.3729e-07 ,1.6577e-07 ,1.5039e-07 ,1.1755e-07 ,1.4310e-08 /) - kbo(:, 4,57, 3) = (/ & - &1.9303e-07 ,2.5185e-07 ,2.3386e-07 ,1.8533e-07 ,2.0155e-08 /) - kbo(:, 5,57, 3) = (/ & - &3.1378e-07 ,4.1313e-07 ,3.8025e-07 ,2.9656e-07 ,2.7619e-08 /) - kbo(:, 1,58, 3) = (/ & - &4.5186e-08 ,5.0890e-08 ,4.7832e-08 ,3.7472e-08 ,5.1696e-09 /) - kbo(:, 2,58, 3) = (/ & - &4.7401e-08 ,5.7618e-08 ,5.6357e-08 ,4.8955e-08 ,7.4243e-09 /) - kbo(:, 3,58, 3) = (/ & - &5.5010e-08 ,7.2882e-08 ,7.5797e-08 ,7.0136e-08 ,1.0687e-08 /) - kbo(:, 4,58, 3) = (/ & - &7.3718e-08 ,1.0653e-07 ,1.1470e-07 ,1.0884e-07 ,1.5198e-08 /) - kbo(:, 5,58, 3) = (/ & - &1.1547e-07 ,1.7203e-07 ,1.8517e-07 ,1.7422e-07 ,2.1153e-08 /) - kbo(:, 1,59, 3) = (/ & - &3.8720e-08 ,4.3027e-08 ,4.0190e-08 ,3.1252e-08 ,4.1397e-09 /) - kbo(:, 2,59, 3) = (/ & - &4.0213e-08 ,4.8103e-08 ,4.6638e-08 ,4.0062e-08 ,6.0380e-09 /) - kbo(:, 3,59, 3) = (/ & - &4.5994e-08 ,5.9694e-08 ,6.1452e-08 ,5.6505e-08 ,8.8443e-09 /) - kbo(:, 4,59, 3) = (/ & - &6.0487e-08 ,8.5685e-08 ,9.1743e-08 ,8.6818e-08 ,1.2879e-08 /) - kbo(:, 5,59, 3) = (/ & - &9.3188e-08 ,1.3722e-07 ,1.4752e-07 ,1.3892e-07 ,1.7999e-08 /) - kbo(:, 1,13, 4) = (/ & - &4.3869e-03 ,5.0989e-03 ,4.3794e-03 ,3.0521e-03 ,9.4784e-04 /) - kbo(:, 2,13, 4) = (/ & - &6.9481e-03 ,7.8458e-03 ,6.6078e-03 ,4.5663e-03 ,1.0961e-03 /) - kbo(:, 3,13, 4) = (/ & - &1.1023e-02 ,1.1980e-02 ,9.8280e-03 ,6.7431e-03 ,1.2240e-03 /) - kbo(:, 4,13, 4) = (/ & - &1.7316e-02 ,1.8007e-02 ,1.4661e-02 ,9.8568e-03 ,1.4326e-03 /) - kbo(:, 5,13, 4) = (/ & - &2.6628e-02 ,2.6632e-02 ,2.1301e-02 ,1.4107e-02 ,1.6715e-03 /) - kbo(:, 1,14, 4) = (/ & - &3.8856e-03 ,4.5615e-03 ,3.8907e-03 ,2.6924e-03 ,7.6763e-04 /) - kbo(:, 2,14, 4) = (/ & - &6.2253e-03 ,7.0528e-03 ,5.8968e-03 ,4.0418e-03 ,8.6051e-04 /) - kbo(:, 3,14, 4) = (/ & - &1.0002e-02 ,1.0752e-02 ,8.8582e-03 ,6.0065e-03 ,1.0065e-03 /) - kbo(:, 4,14, 4) = (/ & - &1.5699e-02 ,1.6229e-02 ,1.3163e-02 ,8.7970e-03 ,1.2227e-03 /) - kbo(:, 5,14, 4) = (/ & - &2.4269e-02 ,2.4030e-02 ,1.9137e-02 ,1.2536e-02 ,1.4474e-03 /) - kbo(:, 1,15, 4) = (/ & - &3.2659e-03 ,3.8770e-03 ,3.3101e-03 ,2.3048e-03 ,5.7573e-04 /) - kbo(:, 2,15, 4) = (/ & - &5.3241e-03 ,6.0372e-03 ,5.0494e-03 ,3.4916e-03 ,6.8321e-04 /) - kbo(:, 3,15, 4) = (/ & - &8.6002e-03 ,9.2086e-03 ,7.6334e-03 ,5.1974e-03 ,8.4736e-04 /) - kbo(:, 4,15, 4) = (/ & - &1.3547e-02 ,1.3992e-02 ,1.1347e-02 ,7.5834e-03 ,1.0287e-03 /) - kbo(:, 5,15, 4) = (/ & - &2.1009e-02 ,2.0762e-02 ,1.6574e-02 ,1.0811e-02 ,1.2066e-03 /) - kbo(:, 1,16, 4) = (/ & - &2.6697e-03 ,3.2234e-03 ,2.7529e-03 ,1.9451e-03 ,4.4184e-04 /) - kbo(:, 2,16, 4) = (/ & - &4.4186e-03 ,5.0347e-03 ,4.2523e-03 ,2.9486e-03 ,5.5826e-04 /) - kbo(:, 3,16, 4) = (/ & - &7.1546e-03 ,7.7280e-03 ,6.4040e-03 ,4.4001e-03 ,6.8881e-04 /) - kbo(:, 4,16, 4) = (/ & - &1.1406e-02 ,1.1811e-02 ,9.5855e-03 ,6.4241e-03 ,8.3295e-04 /) - kbo(:, 5,16, 4) = (/ & - &1.7781e-02 ,1.7577e-02 ,1.4001e-02 ,9.1645e-03 ,9.7098e-04 /) - kbo(:, 1,17, 4) = (/ & - &2.1896e-03 ,2.6538e-03 ,2.2904e-03 ,1.6414e-03 ,3.5480e-04 /) - kbo(:, 2,17, 4) = (/ & - &3.6444e-03 ,4.1897e-03 ,3.5440e-03 ,2.4805e-03 ,4.4971e-04 /) - kbo(:, 3,17, 4) = (/ & - &5.9916e-03 ,6.4686e-03 ,5.3743e-03 ,3.6974e-03 ,5.5799e-04 /) - kbo(:, 4,17, 4) = (/ & - &9.5963e-03 ,9.9128e-03 ,8.0553e-03 ,5.4068e-03 ,6.7241e-04 /) - kbo(:, 5,17, 4) = (/ & - &1.5025e-02 ,1.4809e-02 ,1.1810e-02 ,7.7160e-03 ,7.7063e-04 /) - kbo(:, 1,18, 4) = (/ & - &1.7997e-03 ,2.1886e-03 ,1.9082e-03 ,1.3670e-03 ,2.9021e-04 /) - kbo(:, 2,18, 4) = (/ & - &3.0120e-03 ,3.4746e-03 ,2.9450e-03 ,2.0706e-03 ,3.7282e-04 /) - kbo(:, 3,18, 4) = (/ & - &4.9798e-03 ,5.3990e-03 ,4.4938e-03 ,3.0816e-03 ,4.5930e-04 /) - kbo(:, 4,18, 4) = (/ & - &8.0081e-03 ,8.2644e-03 ,6.7223e-03 ,4.5032e-03 ,5.4734e-04 /) - kbo(:, 5,18, 4) = (/ & - &1.2492e-02 ,1.2373e-02 ,9.8644e-03 ,6.4255e-03 ,6.3020e-04 /) - kbo(:, 1,19, 4) = (/ & - &1.5064e-03 ,1.8451e-03 ,1.6056e-03 ,1.1522e-03 ,2.4682e-04 /) - kbo(:, 2,19, 4) = (/ & - &2.5474e-03 ,2.9294e-03 ,2.4915e-03 ,1.7507e-03 ,3.1538e-04 /) - kbo(:, 3,19, 4) = (/ & - &4.2186e-03 ,4.5798e-03 ,3.8063e-03 ,2.5988e-03 ,3.8674e-04 /) - kbo(:, 4,19, 4) = (/ & - &6.8019e-03 ,7.0063e-03 ,5.6982e-03 ,3.8032e-03 ,4.6124e-04 /) - kbo(:, 5,19, 4) = (/ & - &1.0595e-02 ,1.0486e-02 ,8.3528e-03 ,5.4249e-03 ,5.3320e-04 /) - kbo(:, 1,20, 4) = (/ & - &1.3102e-03 ,1.5983e-03 ,1.3859e-03 ,9.9291e-04 ,2.1228e-04 /) - kbo(:, 2,20, 4) = (/ & - &2.2269e-03 ,2.5410e-03 ,2.1563e-03 ,1.5072e-03 ,2.6816e-04 /) - kbo(:, 3,20, 4) = (/ & - &3.6896e-03 ,3.9778e-03 ,3.2977e-03 ,2.2454e-03 ,3.2819e-04 /) - kbo(:, 4,20, 4) = (/ & - &5.9414e-03 ,6.0960e-03 ,4.9353e-03 ,3.2744e-03 ,3.9225e-04 /) - kbo(:, 5,20, 4) = (/ & - &9.2578e-03 ,9.1102e-03 ,7.2255e-03 ,4.6712e-03 ,4.5336e-04 /) - kbo(:, 1,21, 4) = (/ & - &1.1473e-03 ,1.3888e-03 ,1.2016e-03 ,8.6011e-04 ,1.8127e-04 /) - kbo(:, 2,21, 4) = (/ & - &1.9565e-03 ,2.2181e-03 ,1.8746e-03 ,1.3038e-03 ,2.2830e-04 /) - kbo(:, 3,21, 4) = (/ & - &3.2520e-03 ,3.4808e-03 ,2.8694e-03 ,1.9461e-03 ,2.7800e-04 /) - kbo(:, 4,21, 4) = (/ & - &5.2204e-03 ,5.3317e-03 ,4.2972e-03 ,2.8342e-03 ,3.3105e-04 /) - kbo(:, 5,21, 4) = (/ & - &8.1069e-03 ,7.9508e-03 ,6.2747e-03 ,4.0360e-03 ,3.8585e-04 /) - kbo(:, 1,22, 4) = (/ & - &1.0382e-03 ,1.2396e-03 ,1.0678e-03 ,7.6273e-04 ,1.5466e-04 /) - kbo(:, 2,22, 4) = (/ & - &1.7720e-03 ,1.9893e-03 ,1.6695e-03 ,1.1556e-03 ,1.9356e-04 /) - kbo(:, 3,22, 4) = (/ & - &2.9369e-03 ,3.1200e-03 ,2.5557e-03 ,1.7237e-03 ,2.3624e-04 /) - kbo(:, 4,22, 4) = (/ & - &4.6992e-03 ,4.7636e-03 ,3.8178e-03 ,2.5063e-03 ,2.7855e-04 /) - kbo(:, 5,22, 4) = (/ & - &7.2282e-03 ,7.0542e-03 ,5.5487e-03 ,3.5490e-03 ,3.2630e-04 /) - kbo(:, 1,23, 4) = (/ & - &9.4131e-04 ,1.1095e-03 ,9.5148e-04 ,6.7660e-04 ,1.3244e-04 /) - kbo(:, 2,23, 4) = (/ & - &1.6035e-03 ,1.7844e-03 ,1.4894e-03 ,1.0262e-03 ,1.6442e-04 /) - kbo(:, 3,23, 4) = (/ & - &2.6522e-03 ,2.7950e-03 ,2.2775e-03 ,1.5271e-03 ,2.0008e-04 /) - kbo(:, 4,23, 4) = (/ & - &4.2106e-03 ,4.2402e-03 ,3.3871e-03 ,2.2131e-03 ,2.3445e-04 /) - kbo(:, 5,23, 4) = (/ & - &6.4196e-03 ,6.2427e-03 ,4.8940e-03 ,3.1130e-03 ,2.7496e-04 /) - kbo(:, 1,24, 4) = (/ & - &8.5493e-04 ,1.0008e-03 ,8.5274e-04 ,6.0213e-04 ,1.1224e-04 /) - kbo(:, 2,24, 4) = (/ & - &1.4576e-03 ,1.6070e-03 ,1.3354e-03 ,9.1642e-04 ,1.3965e-04 /) - kbo(:, 3,24, 4) = (/ & - &2.4005e-03 ,2.5083e-03 ,2.0375e-03 ,1.3606e-03 ,1.6869e-04 /) - kbo(:, 4,24, 4) = (/ & - &3.7805e-03 ,3.7882e-03 ,3.0168e-03 ,1.9590e-03 ,1.9824e-04 /) - kbo(:, 5,24, 4) = (/ & - &5.7340e-03 ,5.5429e-03 ,4.3252e-03 ,2.7397e-03 ,2.2899e-04 /) - kbo(:, 1,25, 4) = (/ & - &7.8083e-04 ,9.0613e-04 ,7.6855e-04 ,5.3955e-04 ,9.3397e-05 /) - kbo(:, 2,25, 4) = (/ & - &1.3293e-03 ,1.4516e-03 ,1.2021e-03 ,8.2125e-04 ,1.1644e-04 /) - kbo(:, 3,25, 4) = (/ & - &2.1730e-03 ,2.2546e-03 ,1.8276e-03 ,1.2136e-03 ,1.4039e-04 /) - kbo(:, 4,25, 4) = (/ & - &3.3994e-03 ,3.3901e-03 ,2.6854e-03 ,1.7374e-03 ,1.6529e-04 /) - kbo(:, 5,25, 4) = (/ & - &5.1177e-03 ,4.9296e-03 ,3.8308e-03 ,2.4138e-03 ,1.9292e-04 /) - kbo(:, 1,26, 4) = (/ & - &7.2414e-04 ,8.2998e-04 ,6.9991e-04 ,4.8962e-04 ,7.9259e-05 /) - kbo(:, 2,26, 4) = (/ & - &1.2259e-03 ,1.3255e-03 ,1.0917e-03 ,7.4177e-04 ,9.7580e-05 /) - kbo(:, 3,26, 4) = (/ & - &1.9848e-03 ,2.0462e-03 ,1.6503e-03 ,1.0895e-03 ,1.1629e-04 /) - kbo(:, 4,26, 4) = (/ & - &3.0863e-03 ,3.0554e-03 ,2.4123e-03 ,1.5502e-03 ,1.3732e-04 /) - kbo(:, 5,26, 4) = (/ & - &4.5999e-03 ,4.4081e-03 ,3.4159e-03 ,2.1402e-03 ,1.6386e-04 /) - kbo(:, 1,27, 4) = (/ & - &6.7040e-04 ,7.6049e-04 ,6.3931e-04 ,4.4424e-04 ,6.5890e-05 /) - kbo(:, 2,27, 4) = (/ & - &1.1282e-03 ,1.2096e-03 ,9.9105e-04 ,6.6941e-04 ,8.0876e-05 /) - kbo(:, 3,27, 4) = (/ & - &1.8147e-03 ,1.8556e-03 ,1.4889e-03 ,9.7714e-04 ,9.6344e-05 /) - kbo(:, 4,27, 4) = (/ & - &2.7940e-03 ,2.7516e-03 ,2.1627e-03 ,1.3811e-03 ,1.1546e-04 /) - kbo(:, 5,27, 4) = (/ & - &4.1206e-03 ,3.9340e-03 ,3.0363e-03 ,1.8956e-03 ,1.3791e-04 /) - kbo(:, 1,28, 4) = (/ & - &6.1963e-04 ,6.9617e-04 ,5.8205e-04 ,4.0239e-04 ,5.3842e-05 /) - kbo(:, 2,28, 4) = (/ & - &1.0354e-03 ,1.1013e-03 ,8.9815e-04 ,6.0298e-04 ,6.6022e-05 /) - kbo(:, 3,28, 4) = (/ & - &1.6516e-03 ,1.6797e-03 ,1.3412e-03 ,8.7507e-04 ,8.0123e-05 /) - kbo(:, 4,28, 4) = (/ & - &2.5197e-03 ,2.4709e-03 ,1.9338e-03 ,1.2274e-03 ,9.7074e-05 /) - kbo(:, 5,28, 4) = (/ & - &3.6744e-03 ,3.4958e-03 ,2.6900e-03 ,1.6731e-03 ,1.1603e-04 /) - kbo(:, 1,29, 4) = (/ & - &5.7255e-04 ,6.3719e-04 ,5.3001e-04 ,3.6415e-04 ,4.3783e-05 /) - kbo(:, 2,29, 4) = (/ & - &9.4899e-04 ,1.0006e-03 ,8.1341e-04 ,5.4243e-04 ,5.3930e-05 /) - kbo(:, 3,29, 4) = (/ & - &1.4973e-03 ,1.5143e-03 ,1.2048e-03 ,7.8083e-04 ,6.6803e-05 /) - kbo(:, 4,29, 4) = (/ & - &2.2572e-03 ,2.2044e-03 ,1.7199e-03 ,1.0861e-03 ,8.0985e-05 /) - kbo(:, 5,29, 4) = (/ & - &3.2527e-03 ,3.0849e-03 ,2.3685e-03 ,1.4686e-03 ,9.6201e-05 /) - kbo(:, 1,30, 4) = (/ & - &5.2637e-04 ,5.8081e-04 ,4.8010e-04 ,3.2816e-04 ,3.5536e-05 /) - kbo(:, 2,30, 4) = (/ & - &8.6289e-04 ,9.0357e-04 ,7.3215e-04 ,4.8521e-04 ,4.4824e-05 /) - kbo(:, 3,30, 4) = (/ & - &1.3456e-03 ,1.3553e-03 ,1.0747e-03 ,6.9223e-04 ,5.5319e-05 /) - kbo(:, 4,30, 4) = (/ & - &2.0065e-03 ,1.9507e-03 ,1.5172e-03 ,9.5518e-04 ,6.6828e-05 /) - kbo(:, 5,30, 4) = (/ & - &2.8573e-03 ,2.7008e-03 ,2.0712e-03 ,1.2802e-03 ,7.9313e-05 /) - kbo(:, 1,31, 4) = (/ & - &4.7945e-04 ,5.2447e-04 ,4.3249e-04 ,2.9383e-04 ,2.9390e-05 /) - kbo(:, 2,31, 4) = (/ & - &7.7587e-04 ,8.0972e-04 ,6.5328e-04 ,4.3065e-04 ,3.6906e-05 /) - kbo(:, 3,31, 4) = (/ & - &1.1974e-03 ,1.2004e-03 ,9.4868e-04 ,6.0827e-04 ,4.5016e-05 /) - kbo(:, 4,31, 4) = (/ & - &1.7617e-03 ,1.7074e-03 ,1.3255e-03 ,8.3172e-04 ,5.4252e-05 /) - kbo(:, 5,31, 4) = (/ & - &2.4825e-03 ,2.3423e-03 ,1.7933e-03 ,1.1061e-03 ,6.4138e-05 /) - kbo(:, 1,32, 4) = (/ & - &4.3738e-04 ,4.7509e-04 ,3.9041e-04 ,2.6369e-04 ,2.4019e-05 /) - kbo(:, 2,32, 4) = (/ & - &6.9937e-04 ,7.2599e-04 ,5.8354e-04 ,3.8245e-04 ,2.9892e-05 /) - kbo(:, 3,32, 4) = (/ & - &1.0660e-03 ,1.0639e-03 ,8.3776e-04 ,5.3497e-04 ,3.6437e-05 /) - kbo(:, 4,32, 4) = (/ & - &1.5490e-03 ,1.4965e-03 ,1.1588e-03 ,7.2497e-04 ,4.3698e-05 /) - kbo(:, 5,32, 4) = (/ & - &2.1609e-03 ,2.0352e-03 ,1.5553e-03 ,9.5666e-04 ,5.1532e-05 /) - kbo(:, 1,33, 4) = (/ & - &3.9889e-04 ,4.2999e-04 ,3.5197e-04 ,2.3634e-04 ,1.9311e-05 /) - kbo(:, 2,33, 4) = (/ & - &6.2991e-04 ,6.5021e-04 ,5.2059e-04 ,3.3932e-04 ,2.4117e-05 /) - kbo(:, 3,33, 4) = (/ & - &9.4755e-04 ,9.4129e-04 ,7.3904e-04 ,4.6991e-04 ,2.9354e-05 /) - kbo(:, 4,33, 4) = (/ & - &1.3617e-03 ,1.3113e-03 ,1.0129e-03 ,6.3180e-04 ,3.5029e-05 /) - kbo(:, 5,33, 4) = (/ & - &1.8805e-03 ,1.7688e-03 ,1.3485e-03 ,8.2760e-04 ,4.1309e-05 /) - kbo(:, 1,34, 4) = (/ & - &3.6214e-04 ,3.8716e-04 ,3.1549e-04 ,2.1059e-04 ,1.5692e-05 /) - kbo(:, 2,34, 4) = (/ & - &5.6474e-04 ,5.7963e-04 ,4.6204e-04 ,2.9966e-04 ,1.9450e-05 /) - kbo(:, 3,34, 4) = (/ & - &8.4034e-04 ,8.3067e-04 ,6.4971e-04 ,4.1144e-04 ,2.3693e-05 /) - kbo(:, 4,34, 4) = (/ & - &1.1957e-03 ,1.1475e-03 ,8.8389e-04 ,5.4962e-04 ,2.8253e-05 /) - kbo(:, 5,34, 4) = (/ & - &1.6380e-03 ,1.5373e-03 ,1.1695e-03 ,7.1576e-04 ,3.2957e-05 /) - kbo(:, 1,35, 4) = (/ & - &3.1359e-04 ,3.3446e-04 ,2.7193e-04 ,1.8091e-04 ,1.2437e-05 /) - kbo(:, 2,35, 4) = (/ & - &4.8583e-04 ,4.9752e-04 ,3.9566e-04 ,2.5593e-04 ,1.5305e-05 /) - kbo(:, 3,35, 4) = (/ & - &7.1875e-04 ,7.0909e-04 ,5.5358e-04 ,3.4993e-04 ,1.8635e-05 /) - kbo(:, 4,35, 4) = (/ & - &1.0171e-03 ,9.7513e-04 ,7.5023e-04 ,4.6569e-04 ,2.2205e-05 /) - kbo(:, 5,35, 4) = (/ & - &1.3872e-03 ,1.3015e-03 ,9.8912e-04 ,6.0449e-04 ,2.6045e-05 /) - kbo(:, 1,36, 4) = (/ & - &2.5808e-04 ,2.7599e-04 ,2.2440e-04 ,1.4937e-04 ,9.6631e-06 /) - kbo(:, 2,36, 4) = (/ & - &3.9964e-04 ,4.1003e-04 ,3.2602e-04 ,2.1097e-04 ,1.1834e-05 /) - kbo(:, 3,36, 4) = (/ & - &5.9092e-04 ,5.8383e-04 ,4.5590e-04 ,2.8824e-04 ,1.4353e-05 /) - kbo(:, 4,36, 4) = (/ & - &8.3595e-04 ,8.0277e-04 ,6.1763e-04 ,3.8334e-04 ,1.7189e-05 /) - kbo(:, 5,36, 4) = (/ & - &1.1396e-03 ,1.0707e-03 ,8.1375e-04 ,4.9743e-04 ,2.0326e-05 /) - kbo(:, 1,37, 4) = (/ & - &2.0121e-04 ,2.1647e-04 ,1.7647e-04 ,1.1785e-04 ,7.4310e-06 /) - kbo(:, 2,37, 4) = (/ & - &3.1330e-04 ,3.2327e-04 ,2.5768e-04 ,1.6717e-04 ,9.1199e-06 /) - kbo(:, 3,37, 4) = (/ & - &4.6580e-04 ,4.6262e-04 ,3.6181e-04 ,2.2919e-04 ,1.1050e-05 /) - kbo(:, 4,37, 4) = (/ & - &6.6212e-04 ,6.3859e-04 ,4.9190e-04 ,3.0576e-04 ,1.3280e-05 /) - kbo(:, 5,37, 4) = (/ & - &9.0672e-04 ,8.5472e-04 ,6.5027e-04 ,3.9796e-04 ,1.5719e-05 /) - kbo(:, 1,38, 4) = (/ & - &1.5610e-04 ,1.6913e-04 ,1.3823e-04 ,9.2645e-05 ,5.6716e-06 /) - kbo(:, 2,38, 4) = (/ & - &2.4467e-04 ,2.5398e-04 ,2.0295e-04 ,1.3206e-04 ,6.9811e-06 /) - kbo(:, 3,38, 4) = (/ & - &3.6591e-04 ,3.6541e-04 ,2.8633e-04 ,1.8175e-04 ,8.4645e-06 /) - kbo(:, 4,38, 4) = (/ & - &5.2302e-04 ,5.0671e-04 ,3.9077e-04 ,2.4331e-04 ,1.0160e-05 /) - kbo(:, 5,38, 4) = (/ & - &7.1953e-04 ,6.8071e-04 ,5.1841e-04 ,3.1771e-04 ,1.2087e-05 /) - kbo(:, 1,39, 4) = (/ & - &1.2096e-04 ,1.3199e-04 ,1.0815e-04 ,7.2736e-05 ,4.3132e-06 /) - kbo(:, 2,39, 4) = (/ & - &1.9086e-04 ,1.9937e-04 ,1.5970e-04 ,1.0426e-04 ,5.3181e-06 /) - kbo(:, 3,39, 4) = (/ & - &2.8720e-04 ,2.8844e-04 ,2.2641e-04 ,1.4405e-04 ,6.4566e-06 /) - kbo(:, 4,39, 4) = (/ & - &4.1286e-04 ,4.0180e-04 ,3.1020e-04 ,1.9350e-04 ,7.7296e-06 /) - kbo(:, 5,39, 4) = (/ & - &5.7063e-04 ,5.4191e-04 ,4.1317e-04 ,2.5355e-04 ,9.2083e-06 /) - kbo(:, 1,40, 4) = (/ & - &9.0120e-05 ,9.9405e-05 ,8.1774e-05 ,5.5348e-05 ,3.2802e-06 /) - kbo(:, 2,40, 4) = (/ & - &1.4396e-04 ,1.5172e-04 ,1.2199e-04 ,8.0081e-05 ,4.0450e-06 /) - kbo(:, 3,40, 4) = (/ & - &2.1897e-04 ,2.2172e-04 ,1.7453e-04 ,1.1150e-04 ,4.9391e-06 /) - kbo(:, 4,40, 4) = (/ & - &3.1818e-04 ,3.1148e-04 ,2.4096e-04 ,1.5075e-04 ,5.9260e-06 /) - kbo(:, 5,40, 4) = (/ & - &4.4338e-04 ,4.2299e-04 ,3.2304e-04 ,1.9869e-04 ,7.0429e-06 /) - kbo(:, 1,41, 4) = (/ & - &6.6586e-05 ,7.4344e-05 ,6.1391e-05 ,4.1826e-05 ,2.4789e-06 /) - kbo(:, 2,41, 4) = (/ & - &1.0786e-04 ,1.1471e-04 ,9.2627e-05 ,6.1134e-05 ,3.0831e-06 /) - kbo(:, 3,41, 4) = (/ & - &1.6588e-04 ,1.6943e-04 ,1.3383e-04 ,8.5899e-05 ,3.7712e-06 /) - kbo(:, 4,41, 4) = (/ & - &2.4383e-04 ,2.4037e-04 ,1.8645e-04 ,1.1700e-04 ,4.5478e-06 /) - kbo(:, 5,41, 4) = (/ & - &3.4300e-04 ,3.2889e-04 ,2.5168e-04 ,1.5514e-04 ,5.3910e-06 /) - kbo(:, 1,42, 4) = (/ & - &4.8998e-05 ,5.5419e-05 ,4.5947e-05 ,3.1516e-05 ,1.8667e-06 /) - kbo(:, 2,42, 4) = (/ & - &8.0484e-05 ,8.6481e-05 ,7.0103e-05 ,4.6544e-05 ,2.3354e-06 /) - kbo(:, 3,42, 4) = (/ & - &1.2531e-04 ,1.2923e-04 ,1.0238e-04 ,6.6044e-05 ,2.8708e-06 /) - kbo(:, 4,42, 4) = (/ & - &1.8633e-04 ,1.8503e-04 ,1.4397e-04 ,9.0645e-05 ,3.4606e-06 /) - kbo(:, 5,42, 4) = (/ & - &2.6476e-04 ,2.5534e-04 ,1.9578e-04 ,1.2098e-04 ,4.1084e-06 /) - kbo(:, 1,43, 4) = (/ & - &3.5242e-05 ,4.0436e-05 ,3.3714e-05 ,2.3281e-05 ,1.3919e-06 /) - kbo(:, 2,43, 4) = (/ & - &5.8897e-05 ,6.4054e-05 ,5.2168e-05 ,3.4865e-05 ,1.7548e-06 /) - kbo(:, 3,43, 4) = (/ & - &9.3170e-05 ,9.7046e-05 ,7.7251e-05 ,5.0106e-05 ,2.1668e-06 /) - kbo(:, 4,43, 4) = (/ & - &1.4048e-04 ,1.4075e-04 ,1.0986e-04 ,6.9448e-05 ,2.6074e-06 /) - kbo(:, 5,43, 4) = (/ & - &2.0220e-04 ,1.9644e-04 ,1.5089e-04 ,9.3492e-05 ,3.1278e-06 /) - kbo(:, 1,44, 4) = (/ & - &2.5004e-05 ,2.9138e-05 ,2.4437e-05 ,1.6989e-05 ,1.0250e-06 /) - kbo(:, 2,44, 4) = (/ & - &4.2585e-05 ,4.6938e-05 ,3.8422e-05 ,2.5865e-05 ,1.3112e-06 /) - kbo(:, 3,44, 4) = (/ & - &6.8563e-05 ,7.2232e-05 ,5.7761e-05 ,3.7700e-05 ,1.6186e-06 /) - kbo(:, 4,44, 4) = (/ & - &1.0501e-04 ,1.0630e-04 ,8.3253e-05 ,5.2860e-05 ,1.9651e-06 /) - kbo(:, 5,44, 4) = (/ & - &1.5343e-04 ,1.5019e-04 ,1.1567e-04 ,7.1872e-05 ,2.3710e-06 /) - kbo(:, 1,45, 4) = (/ & - &1.7648e-05 ,2.0899e-05 ,1.7624e-05 ,1.2332e-05 ,7.4778e-07 /) - kbo(:, 2,45, 4) = (/ & - &3.0648e-05 ,3.4228e-05 ,2.8145e-05 ,1.9101e-05 ,9.7150e-07 /) - kbo(:, 3,45, 4) = (/ & - &5.0244e-05 ,5.3520e-05 ,4.3001e-05 ,2.8243e-05 ,1.2073e-06 /) - kbo(:, 4,45, 4) = (/ & - &7.8191e-05 ,7.9995e-05 ,6.2888e-05 ,4.0157e-05 ,1.4831e-06 /) - kbo(:, 5,45, 4) = (/ & - &1.1605e-04 ,1.1449e-04 ,8.8448e-05 ,5.5140e-05 ,1.7858e-06 /) - kbo(:, 1,46, 4) = (/ & - &1.2241e-05 ,1.4754e-05 ,1.2528e-05 ,8.8151e-06 ,5.3848e-07 /) - kbo(:, 2,46, 4) = (/ & - &2.1731e-05 ,2.4625e-05 ,2.0352e-05 ,1.3921e-05 ,7.0792e-07 /) - kbo(:, 3,46, 4) = (/ & - &3.6328e-05 ,3.9139e-05 ,3.1626e-05 ,2.0940e-05 ,8.9555e-07 /) - kbo(:, 4,46, 4) = (/ & - &5.7531e-05 ,5.9510e-05 ,4.7024e-05 ,3.0210e-05 ,1.1090e-06 /) - kbo(:, 5,46, 4) = (/ & - &8.6821e-05 ,8.6443e-05 ,6.7046e-05 ,4.1968e-05 ,1.3451e-06 /) - kbo(:, 1,47, 4) = (/ & - &8.2449e-06 ,1.0146e-05 ,8.6807e-06 ,6.1518e-06 ,3.8332e-07 /) - kbo(:, 2,47, 4) = (/ & - &1.4999e-05 ,1.7293e-05 ,1.4384e-05 ,9.9184e-06 ,5.1069e-07 /) - kbo(:, 3,47, 4) = (/ & - &2.5663e-05 ,2.8031e-05 ,2.2776e-05 ,1.5214e-05 ,6.5507e-07 /) - kbo(:, 4,47, 4) = (/ & - &4.1483e-05 ,4.3442e-05 ,3.4514e-05 ,2.2339e-05 ,8.2140e-07 /) - kbo(:, 5,47, 4) = (/ & - &6.3807e-05 ,6.4263e-05 ,5.0034e-05 ,3.1504e-05 ,1.0057e-06 /) - kbo(:, 1,48, 4) = (/ & - &5.5161e-06 ,6.9345e-06 ,5.9711e-06 ,4.2630e-06 ,2.7090e-07 /) - kbo(:, 2,48, 4) = (/ & - &1.0274e-05 ,1.2067e-05 ,1.0101e-05 ,7.0075e-06 ,3.6468e-07 /) - kbo(:, 3,48, 4) = (/ & - &1.7999e-05 ,1.9964e-05 ,1.6291e-05 ,1.0982e-05 ,4.7593e-07 /) - kbo(:, 4,48, 4) = (/ & - &2.9748e-05 ,3.1502e-05 ,2.5173e-05 ,1.6424e-05 ,6.0510e-07 /) - kbo(:, 5,48, 4) = (/ & - &4.6627e-05 ,4.7519e-05 ,3.7159e-05 ,2.3556e-05 ,7.4697e-07 /) - kbo(:, 1,49, 4) = (/ & - &3.6712e-06 ,4.7085e-06 ,4.0821e-06 ,2.9344e-06 ,1.8902e-07 /) - kbo(:, 2,49, 4) = (/ & - &6.9808e-06 ,8.3574e-06 ,7.0495e-06 ,4.9158e-06 ,2.5862e-07 /) - kbo(:, 3,49, 4) = (/ & - &1.2533e-05 ,1.4129e-05 ,1.1598e-05 ,7.8741e-06 ,3.4164e-07 /) - kbo(:, 4,49, 4) = (/ & - &2.1199e-05 ,2.2725e-05 ,1.8253e-05 ,1.2008e-05 ,4.3895e-07 /) - kbo(:, 5,49, 4) = (/ & - &3.3893e-05 ,3.4945e-05 ,2.7461e-05 ,1.7529e-05 ,5.4985e-07 /) - kbo(:, 1,50, 4) = (/ & - &2.4835e-06 ,3.2299e-06 ,2.8168e-06 ,2.0358e-06 ,1.3342e-07 /) - kbo(:, 2,50, 4) = (/ & - &4.7895e-06 ,5.8338e-06 ,4.9516e-06 ,3.4721e-06 ,1.8475e-07 /) - kbo(:, 3,50, 4) = (/ & - &8.7933e-06 ,1.0062e-05 ,8.3077e-06 ,5.6722e-06 ,2.4761e-07 /) - kbo(:, 4,50, 4) = (/ & - &1.5202e-05 ,1.6503e-05 ,1.3305e-05 ,8.8168e-06 ,3.2240e-07 /) - kbo(:, 5,50, 4) = (/ & - &2.4800e-05 ,2.5828e-05 ,2.0397e-05 ,1.3093e-05 ,4.0814e-07 /) - kbo(:, 1,51, 4) = (/ & - &1.7011e-06 ,2.2256e-06 ,1.9504e-06 ,1.4154e-06 ,9.4900e-08 /) - kbo(:, 2,51, 4) = (/ & - &3.2953e-06 ,4.0790e-06 ,3.4794e-06 ,2.4537e-06 ,1.3273e-07 /) - kbo(:, 3,51, 4) = (/ & - &6.1746e-06 ,7.1689e-06 ,5.9544e-06 ,4.0832e-06 ,1.8014e-07 /) - kbo(:, 4,51, 4) = (/ & - &1.0912e-05 ,1.1993e-05 ,9.7046e-06 ,6.4754e-06 ,2.3777e-07 /) - kbo(:, 5,51, 4) = (/ & - &1.8173e-05 ,1.9097e-05 ,1.5144e-05 ,9.7867e-06 ,3.0334e-07 /) - kbo(:, 1,52, 4) = (/ & - &1.1779e-06 ,1.5381e-06 ,1.3497e-06 ,9.8158e-07 ,6.6305e-08 /) - kbo(:, 2,52, 4) = (/ & - &2.2623e-06 ,2.8412e-06 ,2.4342e-06 ,1.7266e-06 ,9.4865e-08 /) - kbo(:, 3,52, 4) = (/ & - &4.3170e-06 ,5.0854e-06 ,4.2468e-06 ,2.9260e-06 ,1.3026e-07 /) - kbo(:, 4,52, 4) = (/ & - &7.7969e-06 ,8.6772e-06 ,7.0531e-06 ,4.7333e-06 ,1.7384e-07 /) - kbo(:, 5,52, 4) = (/ & - &1.3261e-05 ,1.4075e-05 ,1.1203e-05 ,7.2837e-06 ,2.2485e-07 /) - kbo(:, 1,53, 4) = (/ & - &8.3089e-07 ,1.0687e-06 ,9.3518e-07 ,6.7997e-07 ,4.5831e-08 /) - kbo(:, 2,53, 4) = (/ & - &1.5556e-06 ,1.9711e-06 ,1.6966e-06 ,1.2083e-06 ,6.7497e-08 /) - kbo(:, 3,53, 4) = (/ & - &3.0048e-06 ,3.5908e-06 ,3.0131e-06 ,2.0844e-06 ,9.3485e-08 /) - kbo(:, 4,53, 4) = (/ & - &5.5438e-06 ,6.2468e-06 ,5.1016e-06 ,3.4387e-06 ,1.2594e-07 /) - kbo(:, 5,53, 4) = (/ & - &9.6328e-06 ,1.0329e-05 ,8.2446e-06 ,5.3978e-06 ,1.6450e-07 /) - kbo(:, 1,54, 4) = (/ & - &6.1034e-07 ,7.6407e-07 ,6.6371e-07 ,4.8016e-07 ,3.1960e-08 /) - kbo(:, 2,54, 4) = (/ & - &1.0977e-06 ,1.3930e-06 ,1.2021e-06 ,8.5784e-07 ,4.9012e-08 /) - kbo(:, 3,54, 4) = (/ & - &2.1270e-06 ,2.5705e-06 ,2.1637e-06 ,1.5024e-06 ,6.8673e-08 /) - kbo(:, 4,54, 4) = (/ & - &3.9965e-06 ,4.5514e-06 ,3.7320e-06 ,2.5226e-06 ,9.3587e-08 /) - kbo(:, 5,54, 4) = (/ & - &7.0830e-06 ,7.6654e-06 ,6.1329e-06 ,4.0351e-06 ,1.2382e-07 /) - kbo(:, 1,55, 4) = (/ & - &4.6385e-07 ,5.5921e-07 ,4.8019e-07 ,3.4337e-07 ,2.2394e-08 /) - kbo(:, 2,55, 4) = (/ & - &7.8989e-07 ,9.9640e-07 ,8.5986e-07 ,6.1313e-07 ,3.5977e-08 /) - kbo(:, 3,55, 4) = (/ & - &1.5192e-06 ,1.8516e-06 ,1.5624e-06 ,1.0878e-06 ,5.1500e-08 /) - kbo(:, 4,55, 4) = (/ & - &2.8980e-06 ,3.3321e-06 ,2.7426e-06 ,1.8581e-06 ,7.0762e-08 /) - kbo(:, 5,55, 4) = (/ & - &5.2356e-06 ,5.7136e-06 ,4.5826e-06 ,3.0253e-06 ,9.4338e-08 /) - kbo(:, 1,56, 4) = (/ & - &3.6371e-07 ,4.1822e-07 ,3.5281e-07 ,2.4786e-07 ,1.6072e-08 /) - kbo(:, 2,56, 4) = (/ & - &5.7786e-07 ,7.1776e-07 ,6.1684e-07 ,4.3889e-07 ,2.6450e-08 /) - kbo(:, 3,56, 4) = (/ & - &1.0893e-06 ,1.3335e-06 ,1.1271e-06 ,7.8636e-07 ,3.8603e-08 /) - kbo(:, 4,56, 4) = (/ & - &2.1010e-06 ,2.4368e-06 ,2.0114e-06 ,1.3652e-06 ,5.3303e-08 /) - kbo(:, 5,56, 4) = (/ & - &3.8675e-06 ,4.2536e-06 ,3.4205e-06 ,2.2622e-06 ,7.1626e-08 /) - kbo(:, 1,57, 4) = (/ & - &2.9431e-07 ,3.2133e-07 ,2.6457e-07 ,1.8146e-07 ,1.1259e-08 /) - kbo(:, 2,57, 4) = (/ & - &4.3212e-07 ,5.2280e-07 ,4.4601e-07 ,3.1527e-07 ,1.9122e-08 /) - kbo(:, 3,57, 4) = (/ & - &7.8679e-07 ,9.6129e-07 ,8.1340e-07 ,5.6766e-07 ,2.8681e-08 /) - kbo(:, 4,57, 4) = (/ & - &1.5240e-06 ,1.7810e-06 ,1.4725e-06 ,1.0013e-06 ,4.0212e-08 /) - kbo(:, 5,57, 4) = (/ & - &2.8546e-06 ,3.1617e-06 ,2.5494e-06 ,1.6875e-06 ,5.4480e-08 /) - kbo(:, 1,58, 4) = (/ & - &1.1920e-07 ,1.4193e-07 ,1.3380e-07 ,1.0782e-07 ,7.9525e-09 /) - kbo(:, 2,58, 4) = (/ & - &1.6186e-07 ,2.1696e-07 ,2.1477e-07 ,1.8165e-07 ,1.3814e-08 /) - kbo(:, 3,58, 4) = (/ & - &2.8087e-07 ,3.9076e-07 ,3.8760e-07 ,3.2679e-07 ,2.1394e-08 /) - kbo(:, 4,58, 4) = (/ & - &5.4191e-07 ,7.3009e-07 ,7.0916e-07 ,5.8413e-07 ,3.0724e-08 /) - kbo(:, 5,58, 4) = (/ & - &1.0299e-06 ,1.3167e-06 ,1.2488e-06 ,1.0008e-06 ,4.1885e-08 /) - kbo(:, 1,59, 4) = (/ & - &1.0039e-07 ,1.1714e-07 ,1.0974e-07 ,8.7504e-08 ,6.4674e-09 /) - kbo(:, 2,59, 4) = (/ & - &1.3241e-07 ,1.7435e-07 ,1.7189e-07 ,1.4496e-07 ,1.1458e-08 /) - kbo(:, 3,59, 4) = (/ & - &2.2493e-07 ,3.1060e-07 ,3.0841e-07 ,2.6052e-07 ,1.7735e-08 /) - kbo(:, 4,59, 4) = (/ & - &4.3202e-07 ,5.8172e-07 ,5.6654e-07 ,4.6829e-07 ,2.5818e-08 /) - kbo(:, 5,59, 4) = (/ & - &8.2523e-07 ,1.0563e-06 ,1.0053e-06 ,8.0852e-07 ,3.5572e-08 /) - kbo(:, 1,13, 5) = (/ & - &3.5348e-02 ,3.1651e-02 ,2.3972e-02 ,1.4520e-02 ,1.2073e-03 /) - kbo(:, 2,13, 5) = (/ & - &5.4657e-02 ,4.7880e-02 ,3.5919e-02 ,2.1424e-02 ,1.4997e-03 /) - kbo(:, 3,13, 5) = (/ & - &8.2602e-02 ,7.1045e-02 ,5.2562e-02 ,3.0599e-02 ,1.8487e-03 /) - kbo(:, 4,13, 5) = (/ & - &1.1970e-01 ,1.0136e-01 ,7.4139e-02 ,4.2733e-02 ,2.2117e-03 /) - kbo(:, 5,13, 5) = (/ & - &1.6697e-01 ,1.3996e-01 ,1.0160e-01 ,5.7755e-02 ,2.6210e-03 /) - kbo(:, 1,14, 5) = (/ & - &3.1413e-02 ,2.7971e-02 ,2.1089e-02 ,1.2782e-02 ,9.9834e-04 /) - kbo(:, 2,14, 5) = (/ & - &4.9001e-02 ,4.2669e-02 ,3.1890e-02 ,1.8901e-02 ,1.2749e-03 /) - kbo(:, 3,14, 5) = (/ & - &7.3648e-02 ,6.3169e-02 ,4.6557e-02 ,2.7140e-02 ,1.5545e-03 /) - kbo(:, 4,14, 5) = (/ & - &1.0633e-01 ,9.0035e-02 ,6.5788e-02 ,3.7842e-02 ,1.8680e-03 /) - kbo(:, 5,14, 5) = (/ & - &1.4847e-01 ,1.2452e-01 ,9.0180e-02 ,5.1123e-02 ,2.2124e-03 /) - kbo(:, 1,15, 5) = (/ & - &2.6691e-02 ,2.3767e-02 ,1.7918e-02 ,1.0846e-02 ,8.4376e-04 /) - kbo(:, 2,15, 5) = (/ & - &4.1563e-02 ,3.6328e-02 ,2.7130e-02 ,1.6082e-02 ,1.0611e-03 /) - kbo(:, 3,15, 5) = (/ & - &6.2559e-02 ,5.3858e-02 ,3.9632e-02 ,2.3133e-02 ,1.2845e-03 /) - kbo(:, 4,15, 5) = (/ & - &9.0477e-02 ,7.6844e-02 ,5.6216e-02 ,3.2223e-02 ,1.5617e-03 /) - kbo(:, 5,15, 5) = (/ & - &1.2655e-01 ,1.0613e-01 ,7.6652e-02 ,4.3561e-02 ,1.9061e-03 /) - kbo(:, 1,16, 5) = (/ & - &2.1986e-02 ,1.9716e-02 ,1.4938e-02 ,9.0172e-03 ,6.9426e-04 /) - kbo(:, 2,16, 5) = (/ & - &3.4448e-02 ,3.0201e-02 ,2.2563e-02 ,1.3402e-02 ,8.6528e-04 /) - kbo(:, 3,16, 5) = (/ & - &5.1943e-02 ,4.4837e-02 ,3.3116e-02 ,1.9274e-02 ,1.0580e-03 /) - kbo(:, 4,16, 5) = (/ & - &7.5192e-02 ,6.4048e-02 ,4.6767e-02 ,2.6829e-02 ,1.3132e-03 /) - kbo(:, 5,16, 5) = (/ & - &1.0492e-01 ,8.8109e-02 ,6.3827e-02 ,3.6312e-02 ,1.6006e-03 /) - kbo(:, 1,17, 5) = (/ & - &1.8067e-02 ,1.6242e-02 ,1.2317e-02 ,7.4587e-03 ,5.8084e-04 /) - kbo(:, 2,17, 5) = (/ & - &2.8443e-02 ,2.5054e-02 ,1.8720e-02 ,1.1098e-02 ,7.2334e-04 /) - kbo(:, 3,17, 5) = (/ & - &4.2795e-02 ,3.7062e-02 ,2.7408e-02 ,1.5965e-02 ,9.0099e-04 /) - kbo(:, 4,17, 5) = (/ & - &6.1919e-02 ,5.2891e-02 ,3.8653e-02 ,2.2221e-02 ,1.1193e-03 /) - kbo(:, 5,17, 5) = (/ & - &8.6219e-02 ,7.2608e-02 ,5.2687e-02 ,2.9957e-02 ,1.3671e-03 /) - kbo(:, 1,18, 5) = (/ & - &1.4708e-02 ,1.3327e-02 ,1.0113e-02 ,6.1290e-03 ,4.8316e-04 /) - kbo(:, 2,18, 5) = (/ & - &2.3136e-02 ,2.0491e-02 ,1.5341e-02 ,9.1147e-03 ,6.0374e-04 /) - kbo(:, 3,18, 5) = (/ & - &3.4747e-02 ,3.0283e-02 ,2.2393e-02 ,1.3077e-02 ,7.6598e-04 /) - kbo(:, 4,18, 5) = (/ & - &5.0288e-02 ,4.3057e-02 ,3.1490e-02 ,1.8130e-02 ,9.5069e-04 /) - kbo(:, 5,18, 5) = (/ & - &6.9756e-02 ,5.9005e-02 ,4.2850e-02 ,2.4412e-02 ,1.1633e-03 /) - kbo(:, 1,19, 5) = (/ & - &1.2271e-02 ,1.1130e-02 ,8.4511e-03 ,5.1168e-03 ,4.1293e-04 /) - kbo(:, 2,19, 5) = (/ & - &1.9205e-02 ,1.7036e-02 ,1.2763e-02 ,7.5902e-03 ,5.1993e-04 /) - kbo(:, 3,19, 5) = (/ & - &2.8789e-02 ,2.5103e-02 ,1.8579e-02 ,1.0864e-02 ,6.5561e-04 /) - kbo(:, 4,19, 5) = (/ & - &4.1470e-02 ,3.5549e-02 ,2.6049e-02 ,1.5006e-02 ,8.1395e-04 /) - kbo(:, 5,19, 5) = (/ & - &5.7470e-02 ,4.8743e-02 ,3.5383e-02 ,2.0175e-02 ,9.9598e-04 /) - kbo(:, 1,20, 5) = (/ & - &1.0604e-02 ,9.5861e-03 ,7.2655e-03 ,4.3823e-03 ,3.5617e-04 /) - kbo(:, 2,20, 5) = (/ & - &1.6495e-02 ,1.4613e-02 ,1.0934e-02 ,6.4798e-03 ,4.4865e-04 /) - kbo(:, 3,20, 5) = (/ & - &2.4651e-02 ,2.1430e-02 ,1.5803e-02 ,9.2155e-03 ,5.6360e-04 /) - kbo(:, 4,20, 5) = (/ & - &3.5214e-02 ,3.0218e-02 ,2.2119e-02 ,1.2722e-02 ,7.0046e-04 /) - kbo(:, 5,20, 5) = (/ & - &4.8685e-02 ,4.1243e-02 ,2.9948e-02 ,1.7048e-02 ,8.5450e-04 /) - kbo(:, 1,21, 5) = (/ & - &9.2365e-03 ,8.3349e-03 ,6.3064e-03 ,3.7870e-03 ,3.0556e-04 /) - kbo(:, 2,21, 5) = (/ & - &1.4270e-02 ,1.2642e-02 ,9.4383e-03 ,5.5694e-03 ,3.8499e-04 /) - kbo(:, 3,21, 5) = (/ & - &2.1188e-02 ,1.8415e-02 ,1.3582e-02 ,7.8888e-03 ,4.8632e-04 /) - kbo(:, 4,21, 5) = (/ & - &3.0204e-02 ,2.5895e-02 ,1.8922e-02 ,1.0859e-02 ,6.0144e-04 /) - kbo(:, 5,21, 5) = (/ & - &4.1738e-02 ,3.5266e-02 ,2.5553e-02 ,1.4491e-02 ,7.3167e-04 /) - kbo(:, 1,22, 5) = (/ & - &8.2084e-03 ,7.4154e-03 ,5.5986e-03 ,3.3447e-03 ,2.6030e-04 /) - kbo(:, 2,22, 5) = (/ & - &1.2593e-02 ,1.1132e-02 ,8.2855e-03 ,4.8830e-03 ,3.3150e-04 /) - kbo(:, 3,22, 5) = (/ & - &1.8558e-02 ,1.6118e-02 ,1.1879e-02 ,6.8818e-03 ,4.1718e-04 /) - kbo(:, 4,22, 5) = (/ & - &2.6423e-02 ,2.2608e-02 ,1.6490e-02 ,9.4242e-03 ,5.1837e-04 /) - kbo(:, 5,22, 5) = (/ & - &3.6423e-02 ,3.0712e-02 ,2.2210e-02 ,1.2556e-02 ,6.2757e-04 /) - kbo(:, 1,23, 5) = (/ & - &7.2962e-03 ,6.5767e-03 ,4.9576e-03 ,2.9518e-03 ,2.2147e-04 /) - kbo(:, 2,23, 5) = (/ & - &1.1116e-02 ,9.7878e-03 ,7.2822e-03 ,4.2736e-03 ,2.8452e-04 /) - kbo(:, 3,23, 5) = (/ & - &1.6294e-02 ,1.4142e-02 ,1.0397e-02 ,6.0039e-03 ,3.5768e-04 /) - kbo(:, 4,23, 5) = (/ & - &2.3164e-02 ,1.9768e-02 ,1.4383e-02 ,8.1899e-03 ,4.4507e-04 /) - kbo(:, 5,23, 5) = (/ & - &3.1815e-02 ,2.6782e-02 ,1.9341e-02 ,1.0913e-02 ,5.3593e-04 /) - kbo(:, 1,24, 5) = (/ & - &6.5132e-03 ,5.8530e-03 ,4.4011e-03 ,2.6156e-03 ,1.8866e-04 /) - kbo(:, 2,24, 5) = (/ & - &9.8979e-03 ,8.6925e-03 ,6.4521e-03 ,3.7670e-03 ,2.4398e-04 /) - kbo(:, 3,24, 5) = (/ & - &1.4458e-02 ,1.2498e-02 ,9.1615e-03 ,5.2667e-03 ,3.0838e-04 /) - kbo(:, 4,24, 5) = (/ & - &2.0434e-02 ,1.7400e-02 ,1.2635e-02 ,7.1775e-03 ,3.8038e-04 /) - kbo(:, 5,24, 5) = (/ & - &2.8011e-02 ,2.3552e-02 ,1.6988e-02 ,9.5542e-03 ,4.5842e-04 /) - kbo(:, 1,25, 5) = (/ & - &5.8496e-03 ,5.2463e-03 ,3.9347e-03 ,2.3271e-03 ,1.6445e-04 /) - kbo(:, 2,25, 5) = (/ & - &8.8417e-03 ,7.7604e-03 ,5.7347e-03 ,3.3321e-03 ,2.1081e-04 /) - kbo(:, 3,25, 5) = (/ & - &1.2868e-02 ,1.1077e-02 ,8.0978e-03 ,4.6433e-03 ,2.6559e-04 /) - kbo(:, 4,25, 5) = (/ & - &1.8100e-02 ,1.5382e-02 ,1.1156e-02 ,6.3115e-03 ,3.2583e-04 /) - kbo(:, 5,25, 5) = (/ & - &2.4695e-02 ,2.0722e-02 ,1.4925e-02 ,8.3824e-03 ,3.9105e-04 /) - kbo(:, 1,26, 5) = (/ & - &5.3224e-03 ,4.7440e-03 ,3.5455e-03 ,2.0856e-03 ,1.4273e-04 /) - kbo(:, 2,26, 5) = (/ & - &7.9880e-03 ,6.9773e-03 ,5.1401e-03 ,2.9750e-03 ,1.8261e-04 /) - kbo(:, 3,26, 5) = (/ & - &1.1564e-02 ,9.9215e-03 ,7.2343e-03 ,4.1334e-03 ,2.2903e-04 /) - kbo(:, 4,26, 5) = (/ & - &1.6157e-02 ,1.3698e-02 ,9.9057e-03 ,5.5934e-03 ,2.7897e-04 /) - kbo(:, 5,26, 5) = (/ & - &2.1895e-02 ,1.8349e-02 ,1.3199e-02 ,7.3992e-03 ,3.3238e-04 /) - kbo(:, 1,27, 5) = (/ & - &4.8372e-03 ,4.2909e-03 ,3.1935e-03 ,1.8703e-03 ,1.2222e-04 /) - kbo(:, 2,27, 5) = (/ & - &7.2219e-03 ,6.2785e-03 ,4.6150e-03 ,2.6594e-03 ,1.5564e-04 /) - kbo(:, 3,27, 5) = (/ & - &1.0384e-02 ,8.8912e-03 ,6.4664e-03 ,3.6778e-03 ,1.9361e-04 /) - kbo(:, 4,27, 5) = (/ & - &1.4401e-02 ,1.2183e-02 ,8.7984e-03 ,4.9566e-03 ,2.3445e-04 /) - kbo(:, 5,27, 5) = (/ & - &1.9400e-02 ,1.6243e-02 ,1.1670e-02 ,6.5316e-03 ,2.7869e-04 /) - kbo(:, 1,28, 5) = (/ & - &4.3907e-03 ,3.8800e-03 ,2.8785e-03 ,1.6793e-03 ,1.0352e-04 /) - kbo(:, 2,28, 5) = (/ & - &6.5180e-03 ,5.6500e-03 ,4.1431e-03 ,2.3781e-03 ,1.3090e-04 /) - kbo(:, 3,28, 5) = (/ & - &9.2995e-03 ,7.9428e-03 ,5.7641e-03 ,3.2684e-03 ,1.6163e-04 /) - kbo(:, 4,28, 5) = (/ & - &1.2806e-02 ,1.0816e-02 ,7.7992e-03 ,4.3863e-03 ,1.9422e-04 /) - kbo(:, 5,28, 5) = (/ & - &1.7155e-02 ,1.4361e-02 ,1.0305e-02 ,5.7599e-03 ,2.3020e-04 /) - kbo(:, 1,29, 5) = (/ & - &3.9730e-03 ,3.5033e-03 ,2.5903e-03 ,1.5043e-03 ,8.6138e-05 /) - kbo(:, 2,29, 5) = (/ & - &5.8501e-03 ,5.0589e-03 ,3.6981e-03 ,2.1165e-03 ,1.0866e-04 /) - kbo(:, 3,29, 5) = (/ & - &8.2752e-03 ,7.0540e-03 ,5.1122e-03 ,2.8938e-03 ,1.3206e-04 /) - kbo(:, 4,29, 5) = (/ & - &1.1323e-02 ,9.5548e-03 ,6.8809e-03 ,3.8639e-03 ,1.5770e-04 /) - kbo(:, 5,29, 5) = (/ & - &1.5087e-02 ,1.2624e-02 ,9.0498e-03 ,5.0491e-03 ,1.8805e-04 /) - kbo(:, 1,30, 5) = (/ & - &3.5719e-03 ,3.1399e-03 ,2.3162e-03 ,1.3392e-03 ,7.1373e-05 /) - kbo(:, 2,30, 5) = (/ & - &5.2107e-03 ,4.4986e-03 ,3.2816e-03 ,1.8730e-03 ,8.8119e-05 /) - kbo(:, 3,30, 5) = (/ & - &7.3165e-03 ,6.2315e-03 ,4.5078e-03 ,2.5469e-03 ,1.0662e-04 /) - kbo(:, 4,30, 5) = (/ & - &9.9520e-03 ,8.3892e-03 ,6.0327e-03 ,3.3847e-03 ,1.2803e-04 /) - kbo(:, 5,30, 5) = (/ & - &1.3166e-02 ,1.1029e-02 ,7.9003e-03 ,4.4030e-03 ,1.5121e-04 /) - kbo(:, 1,31, 5) = (/ & - &3.1788e-03 ,2.7864e-03 ,2.0507e-03 ,1.1825e-03 ,5.7200e-05 /) - kbo(:, 2,31, 5) = (/ & - &4.5964e-03 ,3.9617e-03 ,2.8849e-03 ,1.6429e-03 ,7.0401e-05 /) - kbo(:, 3,31, 5) = (/ & - &6.4014e-03 ,5.4495e-03 ,3.9350e-03 ,2.2208e-03 ,8.5247e-05 /) - kbo(:, 4,31, 5) = (/ & - &8.6375e-03 ,7.2878e-03 ,5.2393e-03 ,2.9385e-03 ,1.0146e-04 /) - kbo(:, 5,31, 5) = (/ & - &1.1347e-02 ,9.5229e-03 ,6.8169e-03 ,3.7997e-03 ,1.1891e-04 /) - kbo(:, 1,32, 5) = (/ & - &2.8359e-03 ,2.4792e-03 ,1.8198e-03 ,1.0462e-03 ,4.5712e-05 /) - kbo(:, 2,32, 5) = (/ & - &4.0627e-03 ,3.4962e-03 ,2.5410e-03 ,1.4431e-03 ,5.6022e-05 /) - kbo(:, 3,32, 5) = (/ & - &5.6078e-03 ,4.7711e-03 ,3.4442e-03 ,1.9418e-03 ,6.7267e-05 /) - kbo(:, 4,32, 5) = (/ & - &7.5047e-03 ,6.3406e-03 ,4.5581e-03 ,2.5548e-03 ,7.9547e-05 /) - kbo(:, 5,32, 5) = (/ & - &9.7792e-03 ,8.2213e-03 ,5.8868e-03 ,3.2848e-03 ,9.2763e-05 /) - kbo(:, 1,33, 5) = (/ & - &2.5284e-03 ,2.2057e-03 ,1.6155e-03 ,9.2588e-04 ,3.6267e-05 /) - kbo(:, 2,33, 5) = (/ & - &3.5886e-03 ,3.0844e-03 ,2.2382e-03 ,1.2695e-03 ,4.4003e-05 /) - kbo(:, 3,33, 5) = (/ & - &4.9097e-03 ,4.1805e-03 ,3.0157e-03 ,1.6993e-03 ,5.2825e-05 /) - kbo(:, 4,33, 5) = (/ & - &6.5165e-03 ,5.5167e-03 ,3.9645e-03 ,2.2215e-03 ,6.1889e-05 /) - kbo(:, 5,33, 5) = (/ & - &8.4209e-03 ,7.0899e-03 ,5.0775e-03 ,2.8354e-03 ,7.2610e-05 /) - kbo(:, 1,34, 5) = (/ & - &2.2520e-03 ,1.9602e-03 ,1.4328e-03 ,8.1868e-04 ,2.9417e-05 /) - kbo(:, 2,34, 5) = (/ & - &3.1681e-03 ,2.7215e-03 ,1.9717e-03 ,1.1166e-03 ,3.5490e-05 /) - kbo(:, 3,34, 5) = (/ & - &4.2977e-03 ,3.6615e-03 ,2.6403e-03 ,1.4869e-03 ,4.1854e-05 /) - kbo(:, 4,34, 5) = (/ & - &5.6597e-03 ,4.7967e-03 ,3.4462e-03 ,1.9298e-03 ,4.9348e-05 /) - kbo(:, 5,34, 5) = (/ & - &7.2681e-03 ,6.1253e-03 ,4.3873e-03 ,2.4514e-03 ,5.8186e-05 /) - kbo(:, 1,35, 5) = (/ & - &1.9366e-03 ,1.6854e-03 ,1.2304e-03 ,7.0199e-04 ,2.3008e-05 /) - kbo(:, 2,35, 5) = (/ & - &2.7102e-03 ,2.3296e-03 ,1.6872e-03 ,9.5490e-04 ,2.7664e-05 /) - kbo(:, 3,35, 5) = (/ & - &3.6574e-03 ,3.1206e-03 ,2.2499e-03 ,1.2662e-03 ,3.3089e-05 /) - kbo(:, 4,35, 5) = (/ & - &4.7963e-03 ,4.0694e-03 ,2.9228e-03 ,1.6371e-03 ,3.9372e-05 /) - kbo(:, 5,35, 5) = (/ & - &6.1352e-03 ,5.1795e-03 ,3.7111e-03 ,2.0740e-03 ,4.6276e-05 /) - kbo(:, 1,36, 5) = (/ & - &1.6034e-03 ,1.3976e-03 ,1.0202e-03 ,5.8186e-04 ,1.7663e-05 /) - kbo(:, 2,36, 5) = (/ & - &2.2421e-03 ,1.9307e-03 ,1.3983e-03 ,7.9118e-04 ,2.1547e-05 /) - kbo(:, 3,36, 5) = (/ & - &3.0206e-03 ,2.5824e-03 ,1.8623e-03 ,1.0484e-03 ,2.5886e-05 /) - kbo(:, 4,36, 5) = (/ & - &3.9570e-03 ,3.3630e-03 ,2.4161e-03 ,1.3541e-03 ,3.0872e-05 /) - kbo(:, 5,36, 5) = (/ & - &5.0582e-03 ,4.2785e-03 ,3.0668e-03 ,1.7150e-03 ,3.6301e-05 /) - kbo(:, 1,37, 5) = (/ & - &1.2748e-03 ,1.1146e-03 ,8.1407e-04 ,4.6450e-04 ,1.3581e-05 /) - kbo(:, 2,37, 5) = (/ & - &1.7898e-03 ,1.5447e-03 ,1.1192e-03 ,6.3354e-04 ,1.6729e-05 /) - kbo(:, 3,37, 5) = (/ & - &2.4187e-03 ,2.0714e-03 ,1.4947e-03 ,8.4187e-04 ,2.0205e-05 /) - kbo(:, 4,37, 5) = (/ & - &3.1762e-03 ,2.7057e-03 ,1.9449e-03 ,1.0902e-03 ,2.4038e-05 /) - kbo(:, 5,37, 5) = (/ & - &4.0701e-03 ,3.4504e-03 ,2.4741e-03 ,1.3836e-03 ,2.8365e-05 /) - kbo(:, 1,38, 5) = (/ & - &1.0102e-03 ,8.8559e-04 ,6.4741e-04 ,3.6947e-04 ,1.0412e-05 /) - kbo(:, 2,38, 5) = (/ & - &1.4249e-03 ,1.2327e-03 ,8.9319e-04 ,5.0584e-04 ,1.2901e-05 /) - kbo(:, 3,38, 5) = (/ & - &1.9318e-03 ,1.6579e-03 ,1.1967e-03 ,6.7434e-04 ,1.5672e-05 /) - kbo(:, 4,38, 5) = (/ & - &2.5434e-03 ,2.1714e-03 ,1.5616e-03 ,8.7562e-04 ,1.8795e-05 /) - kbo(:, 5,38, 5) = (/ & - &3.2683e-03 ,2.7765e-03 ,1.9923e-03 ,1.1142e-03 ,2.2145e-05 /) - kbo(:, 1,39, 5) = (/ & - &7.9946e-04 ,7.0298e-04 ,5.1416e-04 ,2.9368e-04 ,7.9720e-06 /) - kbo(:, 2,39, 5) = (/ & - &1.1333e-03 ,9.8290e-04 ,7.1255e-04 ,4.0353e-04 ,9.9223e-06 /) - kbo(:, 3,39, 5) = (/ & - &1.5418e-03 ,1.3259e-03 ,9.5739e-04 ,5.3970e-04 ,1.2141e-05 /) - kbo(:, 4,39, 5) = (/ & - &2.0355e-03 ,1.7418e-03 ,1.2533e-03 ,7.0303e-04 ,1.4591e-05 /) - kbo(:, 5,39, 5) = (/ & - &2.6233e-03 ,2.2332e-03 ,1.6027e-03 ,8.9673e-04 ,1.7278e-05 /) - kbo(:, 1,40, 5) = (/ & - &6.1558e-04 ,5.4339e-04 ,3.9799e-04 ,2.2761e-04 ,6.0679e-06 /) - kbo(:, 2,40, 5) = (/ & - &8.8100e-04 ,7.6638e-04 ,5.5623e-04 ,3.1507e-04 ,7.6104e-06 /) - kbo(:, 3,40, 5) = (/ & - &1.2072e-03 ,1.0404e-03 ,7.5136e-04 ,4.2373e-04 ,9.3444e-06 /) - kbo(:, 4,40, 5) = (/ & - &1.6029e-03 ,1.3742e-03 ,9.8944e-04 ,5.5501e-04 ,1.1318e-05 /) - kbo(:, 5,40, 5) = (/ & - &2.0762e-03 ,1.7710e-03 ,1.2711e-03 ,7.1134e-04 ,1.3497e-05 /) - kbo(:, 1,41, 5) = (/ & - &4.7150e-04 ,4.1786e-04 ,3.0641e-04 ,1.7559e-04 ,4.6077e-06 /) - kbo(:, 2,41, 5) = (/ & - &6.8147e-04 ,5.9486e-04 ,4.3209e-04 ,2.4498e-04 ,5.8135e-06 /) - kbo(:, 3,41, 5) = (/ & - &9.4213e-04 ,8.1372e-04 ,5.8780e-04 ,3.3145e-04 ,7.1715e-06 /) - kbo(:, 4,41, 5) = (/ & - &1.2582e-03 ,1.0809e-03 ,7.7844e-04 ,4.3685e-04 ,8.7285e-06 /) - kbo(:, 5,41, 5) = (/ & - &1.6388e-03 ,1.4010e-03 ,1.0055e-03 ,5.6266e-04 ,1.0465e-05 /) - kbo(:, 1,42, 5) = (/ & - &3.6009e-04 ,3.2039e-04 ,2.3540e-04 ,1.3511e-04 ,3.4818e-06 /) - kbo(:, 2,42, 5) = (/ & - &5.2591e-04 ,4.6075e-04 ,3.3505e-04 ,1.9005e-04 ,4.4174e-06 /) - kbo(:, 3,42, 5) = (/ & - &7.3377e-04 ,6.3539e-04 ,4.5927e-04 ,2.5904e-04 ,5.4797e-06 /) - kbo(:, 4,42, 5) = (/ & - &9.8665e-04 ,8.4900e-04 ,6.1152e-04 ,3.4335e-04 ,6.7219e-06 /) - kbo(:, 5,42, 5) = (/ & - &1.2919e-03 ,1.1071e-03 ,7.9454e-04 ,4.4455e-04 ,8.0996e-06 /) - kbo(:, 1,43, 5) = (/ & - &2.7068e-04 ,2.4195e-04 ,1.7816e-04 ,1.0249e-04 ,2.5837e-06 /) - kbo(:, 2,43, 5) = (/ & - &4.0104e-04 ,3.5254e-04 ,2.5672e-04 ,1.4582e-04 ,3.3146e-06 /) - kbo(:, 3,43, 5) = (/ & - &5.6618e-04 ,4.9150e-04 ,3.5538e-04 ,2.0045e-04 ,4.1432e-06 /) - kbo(:, 4,43, 5) = (/ & - &7.6835e-04 ,6.6216e-04 ,4.7675e-04 ,2.6781e-04 ,5.1315e-06 /) - kbo(:, 5,43, 5) = (/ & - &1.0127e-03 ,8.6923e-04 ,6.2405e-04 ,3.4899e-04 ,6.1983e-06 /) - kbo(:, 1,44, 5) = (/ & - &2.0139e-04 ,1.8106e-04 ,1.3358e-04 ,7.7094e-05 ,1.8960e-06 /) - kbo(:, 2,44, 5) = (/ & - &3.0345e-04 ,2.6774e-04 ,1.9525e-04 ,1.1112e-04 ,2.4595e-06 /) - kbo(:, 3,44, 5) = (/ & - &4.3439e-04 ,3.7822e-04 ,2.7355e-04 ,1.5433e-04 ,3.1158e-06 /) - kbo(:, 4,44, 5) = (/ & - &5.9600e-04 ,5.1425e-04 ,3.7025e-04 ,2.0795e-04 ,3.8746e-06 /) - kbo(:, 5,44, 5) = (/ & - &7.9184e-04 ,6.8038e-04 ,4.8839e-04 ,2.7303e-04 ,4.7113e-06 /) - kbo(:, 1,45, 5) = (/ & - &1.4924e-04 ,1.3479e-04 ,9.9739e-05 ,5.7756e-05 ,1.3827e-06 /) - kbo(:, 2,45, 5) = (/ & - &2.2880e-04 ,2.0270e-04 ,1.4808e-04 ,8.4395e-05 ,1.8081e-06 /) - kbo(:, 3,45, 5) = (/ & - &3.3229e-04 ,2.9032e-04 ,2.1015e-04 ,1.1857e-04 ,2.3261e-06 /) - kbo(:, 4,45, 5) = (/ & - &4.6152e-04 ,3.9893e-04 ,2.8721e-04 ,1.6120e-04 ,2.9080e-06 /) - kbo(:, 5,45, 5) = (/ & - &6.1857e-04 ,5.3204e-04 ,3.8190e-04 ,2.1341e-04 ,3.5612e-06 /) - kbo(:, 1,46, 5) = (/ & - &1.0906e-04 ,9.9059e-05 ,7.3477e-05 ,4.2734e-05 ,1.0024e-06 /) - kbo(:, 2,46, 5) = (/ & - &1.7043e-04 ,1.5165e-04 ,1.1108e-04 ,6.3473e-05 ,1.3227e-06 /) - kbo(:, 3,46, 5) = (/ & - &2.5193e-04 ,2.2079e-04 ,1.6005e-04 ,9.0376e-05 ,1.7191e-06 /) - kbo(:, 4,46, 5) = (/ & - &3.5457e-04 ,3.0711e-04 ,2.2121e-04 ,1.2412e-04 ,2.1640e-06 /) - kbo(:, 5,46, 5) = (/ & - &4.8016e-04 ,4.1350e-04 ,2.9669e-04 ,1.6585e-04 ,2.6681e-06 /) - kbo(:, 1,47, 5) = (/ & - &7.7791e-05 ,7.1164e-05 ,5.2966e-05 ,3.0950e-05 ,7.1979e-07 /) - kbo(:, 2,47, 5) = (/ & - &1.2436e-04 ,1.1134e-04 ,8.1758e-05 ,4.6856e-05 ,9.5466e-07 /) - kbo(:, 3,47, 5) = (/ & - &1.8767e-04 ,1.6518e-04 ,1.1995e-04 ,6.7855e-05 ,1.2553e-06 /) - kbo(:, 4,47, 5) = (/ & - &2.6877e-04 ,2.3350e-04 ,1.6823e-04 ,9.4438e-05 ,1.6001e-06 /) - kbo(:, 5,47, 5) = (/ & - &3.6855e-04 ,3.1774e-04 ,2.2797e-04 ,1.2742e-04 ,1.9855e-06 /) - kbo(:, 1,48, 5) = (/ & - &5.5044e-05 ,5.0693e-05 ,3.7891e-05 ,2.2267e-05 ,5.1420e-07 /) - kbo(:, 2,48, 5) = (/ & - &9.0215e-05 ,8.1170e-05 ,5.9770e-05 ,3.4413e-05 ,6.9075e-07 /) - kbo(:, 3,48, 5) = (/ & - &1.3907e-04 ,1.2292e-04 ,8.9447e-05 ,5.0716e-05 ,9.0307e-07 /) - kbo(:, 4,48, 5) = (/ & - &2.0282e-04 ,1.7688e-04 ,1.2753e-04 ,7.1593e-05 ,1.1665e-06 /) - kbo(:, 5,48, 5) = (/ & - &2.8252e-04 ,2.4382e-04 ,1.7492e-04 ,9.7702e-05 ,1.4649e-06 /) - kbo(:, 1,49, 5) = (/ & - &3.8587e-05 ,3.5798e-05 ,2.6873e-05 ,1.5895e-05 ,3.6284e-07 /) - kbo(:, 2,49, 5) = (/ & - &6.4973e-05 ,5.8784e-05 ,4.3404e-05 ,2.5118e-05 ,4.9340e-07 /) - kbo(:, 3,49, 5) = (/ & - &1.0247e-04 ,9.0960e-05 ,6.6355e-05 ,3.7720e-05 ,6.5251e-07 /) - kbo(:, 4,49, 5) = (/ & - &1.5241e-04 ,1.3334e-04 ,9.6283e-05 ,5.4131e-05 ,8.4176e-07 /) - kbo(:, 5,49, 5) = (/ & - &2.1585e-04 ,1.8661e-04 ,1.3387e-04 ,7.4762e-05 ,1.0688e-06 /) - kbo(:, 1,50, 5) = (/ & - &2.7204e-05 ,2.5412e-05 ,1.9146e-05 ,1.1397e-05 ,2.5753e-07 /) - kbo(:, 2,50, 5) = (/ & - &4.7009e-05 ,4.2778e-05 ,3.1689e-05 ,1.8416e-05 ,3.5668e-07 /) - kbo(:, 3,50, 5) = (/ & - &7.5923e-05 ,6.7680e-05 ,4.9459e-05 ,2.8188e-05 ,4.7630e-07 /) - kbo(:, 4,50, 5) = (/ & - &1.1516e-04 ,1.0107e-04 ,7.3089e-05 ,4.1129e-05 ,6.1736e-07 /) - kbo(:, 5,50, 5) = (/ & - &1.6568e-04 ,1.4364e-04 ,1.0307e-04 ,5.7556e-05 ,7.8811e-07 /) - kbo(:, 1,51, 5) = (/ & - &1.9132e-05 ,1.8022e-05 ,1.3620e-05 ,8.1585e-06 ,1.8251e-07 /) - kbo(:, 2,51, 5) = (/ & - &3.4015e-05 ,3.1104e-05 ,2.3112e-05 ,1.3493e-05 ,2.5742e-07 /) - kbo(:, 3,51, 5) = (/ & - &5.6251e-05 ,5.0351e-05 ,3.6864e-05 ,2.1082e-05 ,3.4853e-07 /) - kbo(:, 4,51, 5) = (/ & - &8.7117e-05 ,7.6686e-05 ,5.5526e-05 ,3.1296e-05 ,4.5614e-07 /) - kbo(:, 5,51, 5) = (/ & - &1.2742e-04 ,1.1075e-04 ,7.9490e-05 ,4.4386e-05 ,5.8324e-07 /) - kbo(:, 1,52, 5) = (/ & - &1.3343e-05 ,1.2680e-05 ,9.6205e-06 ,5.7937e-06 ,1.2757e-07 /) - kbo(:, 2,52, 5) = (/ & - &2.4457e-05 ,2.2489e-05 ,1.6762e-05 ,9.8342e-06 ,1.8427e-07 /) - kbo(:, 3,52, 5) = (/ & - &4.1490e-05 ,3.7272e-05 ,2.7347e-05 ,1.5697e-05 ,2.5311e-07 /) - kbo(:, 4,52, 5) = (/ & - &6.5698e-05 ,5.8019e-05 ,4.2067e-05 ,2.3741e-05 ,3.3454e-07 /) - kbo(:, 5,52, 5) = (/ & - &9.7769e-05 ,8.5199e-05 ,6.1200e-05 ,3.4184e-05 ,4.3074e-07 /) - kbo(:, 1,53, 5) = (/ & - &9.2286e-06 ,8.8438e-06 ,6.7394e-06 ,4.0796e-06 ,8.7990e-08 /) - kbo(:, 2,53, 5) = (/ & - &1.7462e-05 ,1.6145e-05 ,1.2071e-05 ,7.1204e-06 ,1.3004e-07 /) - kbo(:, 3,53, 5) = (/ & - &3.0397e-05 ,2.7436e-05 ,2.0177e-05 ,1.1626e-05 ,1.8173e-07 /) - kbo(:, 4,53, 5) = (/ & - &4.9319e-05 ,4.3681e-05 ,3.1722e-05 ,1.7943e-05 ,2.4392e-07 /) - kbo(:, 5,53, 5) = (/ & - &7.4848e-05 ,6.5369e-05 ,4.7021e-05 ,2.6269e-05 ,3.1719e-07 /) - kbo(:, 1,54, 5) = (/ & - &6.4770e-06 ,6.2515e-06 ,4.7770e-06 ,2.9074e-06 ,6.2611e-08 /) - kbo(:, 2,54, 5) = (/ & - &1.2608e-05 ,1.1724e-05 ,8.7837e-06 ,5.2044e-06 ,9.4222e-08 /) - kbo(:, 3,54, 5) = (/ & - &2.2532e-05 ,2.0405e-05 ,1.5043e-05 ,8.6950e-06 ,1.3411e-07 /) - kbo(:, 4,54, 5) = (/ & - &3.7397e-05 ,3.3212e-05 ,2.4145e-05 ,1.3685e-05 ,1.8245e-07 /) - kbo(:, 5,54, 5) = (/ & - &5.7878e-05 ,5.0645e-05 ,3.6444e-05 ,2.0382e-05 ,2.3871e-07 /) - kbo(:, 1,55, 5) = (/ & - &4.5852e-06 ,4.4390e-06 ,3.4016e-06 ,2.0767e-06 ,4.4961e-08 /) - kbo(:, 2,55, 5) = (/ & - &9.1363e-06 ,8.5468e-06 ,6.4138e-06 ,3.8136e-06 ,6.9204e-08 /) - kbo(:, 3,55, 5) = (/ & - &1.6770e-05 ,1.5238e-05 ,1.1251e-05 ,6.5245e-06 ,1.0020e-07 /) - kbo(:, 4,55, 5) = (/ & - &2.8475e-05 ,2.5343e-05 ,1.8439e-05 ,1.0474e-05 ,1.3796e-07 /) - kbo(:, 5,55, 5) = (/ & - &4.4988e-05 ,3.9423e-05 ,2.8373e-05 ,1.5872e-05 ,1.8258e-07 /) - kbo(:, 1,56, 5) = (/ & - &3.2543e-06 ,3.1469e-06 ,2.4158e-06 ,1.4787e-06 ,3.1932e-08 /) - kbo(:, 2,56, 5) = (/ & - &6.5989e-06 ,6.2038e-06 ,4.6696e-06 ,2.7831e-06 ,5.0531e-08 /) - kbo(:, 3,56, 5) = (/ & - &1.2453e-05 ,1.1352e-05 ,8.3945e-06 ,4.8820e-06 ,7.4538e-08 /) - kbo(:, 4,56, 5) = (/ & - &2.1655e-05 ,1.9314e-05 ,1.4065e-05 ,8.0028e-06 ,1.0397e-07 /) - kbo(:, 5,56, 5) = (/ & - &3.4950e-05 ,3.0673e-05 ,2.2085e-05 ,1.2363e-05 ,1.3925e-07 /) - kbo(:, 1,57, 5) = (/ & - &2.3166e-06 ,2.2390e-06 ,1.7142e-06 ,1.0504e-06 ,2.2682e-08 /) - kbo(:, 2,57, 5) = (/ & - &4.7540e-06 ,4.4892e-06 ,3.3846e-06 ,2.0245e-06 ,3.6988e-08 /) - kbo(:, 3,57, 5) = (/ & - &9.2246e-06 ,8.4320e-06 ,6.2438e-06 ,3.6425e-06 ,5.5328e-08 /) - kbo(:, 4,57, 5) = (/ & - &1.6448e-05 ,1.4704e-05 ,1.0717e-05 ,6.1069e-06 ,7.8210e-08 /) - kbo(:, 5,57, 5) = (/ & - &2.7140e-05 ,2.3849e-05 ,1.7182e-05 ,9.6233e-06 ,1.0611e-07 /) - kbo(:, 1,58, 5) = (/ & - &8.1594e-07 ,9.0016e-07 ,8.0661e-07 ,5.9543e-07 ,1.6269e-08 /) - kbo(:, 2,58, 5) = (/ & - &1.6728e-06 ,1.8193e-06 ,1.6122e-06 ,1.1689e-06 ,2.7161e-08 /) - kbo(:, 3,58, 5) = (/ & - &3.3325e-06 ,3.5076e-06 ,3.0497e-06 ,2.1581e-06 ,4.1468e-08 /) - kbo(:, 4,58, 5) = (/ & - &6.0908e-06 ,6.2615e-06 ,5.3621e-06 ,3.7018e-06 ,5.9556e-08 /) - kbo(:, 5,58, 5) = (/ & - &1.0274e-05 ,1.0375e-05 ,8.7754e-06 ,5.9519e-06 ,8.1351e-08 /) - kbo(:, 1,59, 5) = (/ & - &6.5199e-07 ,7.1682e-07 ,6.4285e-07 ,4.7533e-07 ,1.3398e-08 /) - kbo(:, 2,59, 5) = (/ & - &1.3361e-06 ,1.4531e-06 ,1.2913e-06 ,9.4099e-07 ,2.2445e-08 /) - kbo(:, 3,59, 5) = (/ & - &2.6852e-06 ,2.8341e-06 ,2.4717e-06 ,1.7572e-06 ,3.4660e-08 /) - kbo(:, 4,59, 5) = (/ & - &4.9575e-06 ,5.1104e-06 ,4.3915e-06 ,3.0485e-06 ,4.9566e-08 /) - kbo(:, 5,59, 5) = (/ & - &8.4320e-06 ,8.5398e-06 ,7.2464e-06 ,4.9418e-06 ,6.8105e-08 /) - kbo(:, 1,13, 6) = (/ & - &1.5548e-01 ,1.2226e-01 ,8.5068e-02 ,4.5702e-02 ,2.0740e-03 /) - kbo(:, 2,13, 6) = (/ & - &2.1897e-01 ,1.7240e-01 ,1.2003e-01 ,6.4538e-02 ,2.5124e-03 /) - kbo(:, 3,13, 6) = (/ & - &3.0095e-01 ,2.3621e-01 ,1.6479e-01 ,8.8859e-02 ,3.0382e-03 /) - kbo(:, 4,13, 6) = (/ & - &4.0485e-01 ,3.1719e-01 ,2.2079e-01 ,1.1848e-01 ,3.6959e-03 /) - kbo(:, 5,13, 6) = (/ & - &5.3118e-01 ,4.1467e-01 ,2.8796e-01 ,1.5438e-01 ,4.3103e-03 /) - kbo(:, 1,14, 6) = (/ & - &1.3732e-01 ,1.0825e-01 ,7.5397e-02 ,4.0495e-02 ,1.7538e-03 /) - kbo(:, 2,14, 6) = (/ & - &1.9463e-01 ,1.5344e-01 ,1.0670e-01 ,5.7417e-02 ,2.1725e-03 /) - kbo(:, 3,14, 6) = (/ & - &2.6896e-01 ,2.1173e-01 ,1.4739e-01 ,7.9254e-02 ,2.6810e-03 /) - kbo(:, 4,14, 6) = (/ & - &3.6294e-01 ,2.8446e-01 ,1.9761e-01 ,1.0591e-01 ,3.1748e-03 /) - kbo(:, 5,14, 6) = (/ & - &4.7752e-01 ,3.7323e-01 ,2.5905e-01 ,1.3864e-01 ,3.7684e-03 /) - kbo(:, 1,15, 6) = (/ & - &1.1609e-01 ,9.1864e-02 ,6.4056e-02 ,3.4496e-02 ,1.4724e-03 /) - kbo(:, 2,15, 6) = (/ & - &1.6575e-01 ,1.3099e-01 ,9.1234e-02 ,4.9161e-02 ,1.8695e-03 /) - kbo(:, 3,15, 6) = (/ & - &2.2962e-01 ,1.8109e-01 ,1.2603e-01 ,6.7814e-02 ,2.2935e-03 /) - kbo(:, 4,15, 6) = (/ & - &3.1077e-01 ,2.4430e-01 ,1.6934e-01 ,9.0957e-02 ,2.7633e-03 /) - kbo(:, 5,15, 6) = (/ & - &4.0968e-01 ,3.2160e-01 ,2.2302e-01 ,1.1925e-01 ,3.2819e-03 /) - kbo(:, 1,16, 6) = (/ & - &9.6387e-02 ,7.6493e-02 ,5.3335e-02 ,2.8835e-02 ,1.2273e-03 /) - kbo(:, 2,16, 6) = (/ & - &1.3769e-01 ,1.0917e-01 ,7.6074e-02 ,4.1117e-02 ,1.5607e-03 /) - kbo(:, 3,16, 6) = (/ & - &1.9131e-01 ,1.5123e-01 ,1.0523e-01 ,5.6738e-02 ,1.9638e-03 /) - kbo(:, 4,16, 6) = (/ & - &2.5899e-01 ,2.0399e-01 ,1.4165e-01 ,7.6203e-02 ,2.3618e-03 /) - kbo(:, 5,16, 6) = (/ & - &3.4214e-01 ,2.6934e-01 ,1.8675e-01 ,1.0014e-01 ,2.8281e-03 /) - kbo(:, 1,17, 6) = (/ & - &7.9271e-02 ,6.3126e-02 ,4.4100e-02 ,2.3917e-02 ,1.0217e-03 /) - kbo(:, 2,17, 6) = (/ & - &1.1345e-01 ,9.0182e-02 ,6.2977e-02 ,3.4156e-02 ,1.3299e-03 /) - kbo(:, 3,17, 6) = (/ & - &1.5797e-01 ,1.2511e-01 ,8.7087e-02 ,4.7059e-02 ,1.6628e-03 /) - kbo(:, 4,17, 6) = (/ & - &2.1402e-01 ,1.6897e-01 ,1.1752e-01 ,6.3332e-02 ,2.0151e-03 /) - kbo(:, 5,17, 6) = (/ & - &2.8305e-01 ,2.2332e-01 ,1.5502e-01 ,8.3415e-02 ,2.4638e-03 /) - kbo(:, 1,18, 6) = (/ & - &6.4211e-02 ,5.1302e-02 ,3.5902e-02 ,1.9554e-02 ,8.7983e-04 /) - kbo(:, 2,18, 6) = (/ & - &9.2120e-02 ,7.3433e-02 ,5.1355e-02 ,2.7890e-02 ,1.1536e-03 /) - kbo(:, 3,18, 6) = (/ & - &1.2833e-01 ,1.0186e-01 ,7.1081e-02 ,3.8483e-02 ,1.4378e-03 /) - kbo(:, 4,18, 6) = (/ & - &1.7390e-01 ,1.3787e-01 ,9.6012e-02 ,5.1930e-02 ,1.7641e-03 /) - kbo(:, 5,18, 6) = (/ & - &2.3011e-01 ,1.8206e-01 ,1.2668e-01 ,6.8404e-02 ,2.1654e-03 /) - kbo(:, 1,19, 6) = (/ & - &5.2788e-02 ,4.2299e-02 ,2.9673e-02 ,1.6227e-02 ,7.6310e-04 /) - kbo(:, 2,19, 6) = (/ & - &7.5889e-02 ,6.0648e-02 ,4.2457e-02 ,2.3108e-02 ,1.0035e-03 /) - kbo(:, 3,19, 6) = (/ & - &1.0575e-01 ,8.4190e-02 ,5.8852e-02 ,3.1993e-02 ,1.2648e-03 /) - kbo(:, 4,19, 6) = (/ & - &1.4328e-01 ,1.1394e-01 ,7.9533e-02 ,4.3155e-02 ,1.5714e-03 /) - kbo(:, 5,19, 6) = (/ & - &1.8940e-01 ,1.5028e-01 ,1.0488e-01 ,5.6817e-02 ,1.9149e-03 /) - kbo(:, 1,20, 6) = (/ & - &4.4520e-02 ,3.5758e-02 ,2.5128e-02 ,1.3753e-02 ,6.6571e-04 /) - kbo(:, 2,20, 6) = (/ & - &6.4045e-02 ,5.1271e-02 ,3.5901e-02 ,1.9582e-02 ,8.7391e-04 /) - kbo(:, 3,20, 6) = (/ & - &8.9082e-02 ,7.1164e-02 ,4.9821e-02 ,2.7122e-02 ,1.1092e-03 /) - kbo(:, 4,20, 6) = (/ & - &1.2061e-01 ,9.6051e-02 ,6.7127e-02 ,3.6518e-02 ,1.3635e-03 /) - kbo(:, 5,20, 6) = (/ & - &1.5922e-01 ,1.2658e-01 ,8.8405e-02 ,4.7977e-02 ,1.6664e-03 /) - kbo(:, 1,21, 6) = (/ & - &3.7777e-02 ,3.0383e-02 ,2.1331e-02 ,1.1694e-02 ,5.7845e-04 /) - kbo(:, 2,21, 6) = (/ & - &5.4331e-02 ,4.3484e-02 ,3.0481e-02 ,1.6684e-02 ,7.5762e-04 /) - kbo(:, 3,21, 6) = (/ & - &7.5428e-02 ,6.0294e-02 ,4.2245e-02 ,2.3058e-02 ,9.5396e-04 /) - kbo(:, 4,21, 6) = (/ & - &1.0181e-01 ,8.1193e-02 ,5.6844e-02 ,3.0978e-02 ,1.1796e-03 /) - kbo(:, 5,21, 6) = (/ & - &1.3419e-01 ,1.0693e-01 ,7.4825e-02 ,4.0693e-02 ,1.4376e-03 /) - kbo(:, 1,22, 6) = (/ & - &3.2832e-02 ,2.6387e-02 ,1.8543e-02 ,1.0190e-02 ,5.0764e-04 /) - kbo(:, 2,22, 6) = (/ & - &4.6987e-02 ,3.7684e-02 ,2.6458e-02 ,1.4480e-02 ,6.6076e-04 /) - kbo(:, 3,22, 6) = (/ & - &6.5046e-02 ,5.2018e-02 ,3.6448e-02 ,1.9932e-02 ,8.2689e-04 /) - kbo(:, 4,22, 6) = (/ & - &8.7447e-02 ,6.9814e-02 ,4.8898e-02 ,2.6679e-02 ,1.0180e-03 /) - kbo(:, 5,22, 6) = (/ & - &1.1504e-01 ,9.1878e-02 ,6.4286e-02 ,3.4972e-02 ,1.2412e-03 /) - kbo(:, 1,23, 6) = (/ & - &2.8625e-02 ,2.3013e-02 ,1.6180e-02 ,8.8954e-03 ,4.4551e-04 /) - kbo(:, 2,23, 6) = (/ & - &4.0740e-02 ,3.2715e-02 ,2.2979e-02 ,1.2589e-02 ,5.7081e-04 /) - kbo(:, 3,23, 6) = (/ & - &5.6140e-02 ,4.4931e-02 ,3.1539e-02 ,1.7244e-02 ,7.1483e-04 /) - kbo(:, 4,23, 6) = (/ & - &7.5282e-02 ,6.0221e-02 ,4.2218e-02 ,2.3054e-02 ,8.7570e-04 /) - kbo(:, 5,23, 6) = (/ & - &9.9200e-02 ,7.9197e-02 ,5.5422e-02 ,3.0138e-02 ,1.0690e-03 /) - kbo(:, 1,24, 6) = (/ & - &2.5225e-02 ,2.0294e-02 ,1.4276e-02 ,7.8427e-03 ,3.8602e-04 /) - kbo(:, 2,24, 6) = (/ & - &3.5712e-02 ,2.8695e-02 ,2.0149e-02 ,1.1049e-02 ,4.9372e-04 /) - kbo(:, 3,24, 6) = (/ & - &4.9060e-02 ,3.9310e-02 ,2.7586e-02 ,1.5091e-02 ,6.1539e-04 /) - kbo(:, 4,24, 6) = (/ & - &6.5785e-02 ,5.2643e-02 ,3.6889e-02 ,2.0124e-02 ,7.5365e-04 /) - kbo(:, 5,24, 6) = (/ & - &8.6520e-02 ,6.9119e-02 ,4.8335e-02 ,2.6295e-02 ,9.2000e-04 /) - kbo(:, 1,25, 6) = (/ & - &2.2344e-02 ,1.7976e-02 ,1.2645e-02 ,6.9412e-03 ,3.3195e-04 /) - kbo(:, 2,25, 6) = (/ & - &3.1531e-02 ,2.5281e-02 ,1.7784e-02 ,9.7415e-03 ,4.2393e-04 /) - kbo(:, 3,25, 6) = (/ & - &4.3153e-02 ,3.4621e-02 ,2.4312e-02 ,1.3288e-02 ,5.2565e-04 /) - kbo(:, 4,25, 6) = (/ & - &5.7875e-02 ,4.6285e-02 ,3.2426e-02 ,1.7676e-02 ,6.4832e-04 /) - kbo(:, 5,25, 6) = (/ & - &7.6134e-02 ,6.0793e-02 ,4.2524e-02 ,2.3109e-02 ,7.8380e-04 /) - kbo(:, 1,26, 6) = (/ & - &1.9994e-02 ,1.6102e-02 ,1.1323e-02 ,6.2216e-03 ,2.8629e-04 /) - kbo(:, 2,26, 6) = (/ & - &2.8079e-02 ,2.2581e-02 ,1.5869e-02 ,8.6875e-03 ,3.6314e-04 /) - kbo(:, 3,26, 6) = (/ & - &3.8417e-02 ,3.0834e-02 ,2.1637e-02 ,1.1805e-02 ,4.5229e-04 /) - kbo(:, 4,26, 6) = (/ & - &5.1448e-02 ,4.1174e-02 ,2.8844e-02 ,1.5712e-02 ,5.5890e-04 /) - kbo(:, 5,26, 6) = (/ & - &6.7708e-02 ,5.4151e-02 ,3.7876e-02 ,2.0559e-02 ,6.6983e-04 /) - kbo(:, 1,27, 6) = (/ & - &1.7896e-02 ,1.4429e-02 ,1.0152e-02 ,5.5772e-03 ,2.4427e-04 /) - kbo(:, 2,27, 6) = (/ & - &2.5042e-02 ,2.0157e-02 ,1.4173e-02 ,7.7571e-03 ,3.0979e-04 /) - kbo(:, 3,27, 6) = (/ & - &3.4208e-02 ,2.7475e-02 ,1.9284e-02 ,1.0527e-02 ,3.8671e-04 /) - kbo(:, 4,27, 6) = (/ & - &4.5837e-02 ,3.6717e-02 ,2.5729e-02 ,1.4005e-02 ,4.7399e-04 /) - kbo(:, 5,27, 6) = (/ & - &6.0284e-02 ,4.8205e-02 ,3.3722e-02 ,1.8275e-02 ,5.6657e-04 /) - kbo(:, 1,28, 6) = (/ & - &1.6009e-02 ,1.2912e-02 ,9.0950e-03 ,4.9907e-03 ,2.0749e-04 /) - kbo(:, 2,28, 6) = (/ & - &2.2344e-02 ,1.7993e-02 ,1.2646e-02 ,6.9273e-03 ,2.6196e-04 /) - kbo(:, 3,28, 6) = (/ & - &3.0516e-02 ,2.4521e-02 ,1.7216e-02 ,9.3897e-03 ,3.2594e-04 /) - kbo(:, 4,28, 6) = (/ & - &4.0856e-02 ,3.2755e-02 ,2.2958e-02 ,1.2475e-02 ,3.9748e-04 /) - kbo(:, 5,28, 6) = (/ & - &5.3627e-02 ,4.2900e-02 ,3.0014e-02 ,1.6247e-02 ,4.7387e-04 /) - kbo(:, 1,29, 6) = (/ & - &1.4262e-02 ,1.1522e-02 ,8.1115e-03 ,4.4530e-03 ,1.7407e-04 /) - kbo(:, 2,29, 6) = (/ & - &1.9887e-02 ,1.6027e-02 ,1.1276e-02 ,6.1687e-03 ,2.1854e-04 /) - kbo(:, 3,29, 6) = (/ & - &2.7141e-02 ,2.1827e-02 ,1.5323e-02 ,8.3518e-03 ,2.7116e-04 /) - kbo(:, 4,29, 6) = (/ & - &3.6246e-02 ,2.9092e-02 ,2.0386e-02 ,1.1064e-02 ,3.2874e-04 /) - kbo(:, 5,29, 6) = (/ & - &4.7427e-02 ,3.8019e-02 ,2.6585e-02 ,1.4385e-02 ,3.8972e-04 /) - kbo(:, 1,30, 6) = (/ & - &1.2676e-02 ,1.0246e-02 ,7.2173e-03 ,3.9637e-03 ,1.4416e-04 /) - kbo(:, 2,30, 6) = (/ & - &1.7653e-02 ,1.4244e-02 ,1.0017e-02 ,5.4770e-03 ,1.8113e-04 /) - kbo(:, 3,30, 6) = (/ & - &2.4022e-02 ,1.9341e-02 ,1.3583e-02 ,7.3998e-03 ,2.2282e-04 /) - kbo(:, 4,30, 6) = (/ & - &3.1996e-02 ,2.5721e-02 ,1.8027e-02 ,9.7785e-03 ,2.6784e-04 /) - kbo(:, 5,30, 6) = (/ & - &4.1773e-02 ,3.3512e-02 ,2.3450e-02 ,1.2688e-02 ,3.1737e-04 /) - kbo(:, 1,31, 6) = (/ & - &1.1178e-02 ,9.0514e-03 ,6.3801e-03 ,3.5048e-03 ,1.1770e-04 /) - kbo(:, 2,31, 6) = (/ & - &1.5523e-02 ,1.2547e-02 ,8.8303e-03 ,4.8276e-03 ,1.4724e-04 /) - kbo(:, 3,31, 6) = (/ & - &2.1060e-02 ,1.6992e-02 ,1.1943e-02 ,6.5025e-03 ,1.7875e-04 /) - kbo(:, 4,31, 6) = (/ & - &2.7976e-02 ,2.2531e-02 ,1.5799e-02 ,8.5667e-03 ,2.1450e-04 /) - kbo(:, 5,31, 6) = (/ & - &3.6405e-02 ,2.9271e-02 ,2.0490e-02 ,1.1088e-02 ,2.5503e-04 /) - kbo(:, 1,32, 6) = (/ & - &9.9013e-03 ,8.0343e-03 ,5.6674e-03 ,3.1129e-03 ,9.6361e-05 /) - kbo(:, 2,32, 6) = (/ & - &1.3706e-02 ,1.1101e-02 ,7.8125e-03 ,4.2746e-03 ,1.1902e-04 /) - kbo(:, 3,32, 6) = (/ & - &1.8546e-02 ,1.4995e-02 ,1.0536e-02 ,5.7328e-03 ,1.4373e-04 /) - kbo(:, 4,32, 6) = (/ & - &2.4550e-02 ,1.9811e-02 ,1.3886e-02 ,7.5313e-03 ,1.7332e-04 /) - kbo(:, 5,32, 6) = (/ & - &3.1853e-02 ,2.5667e-02 ,1.7969e-02 ,9.7246e-03 ,2.0625e-04 /) - kbo(:, 1,33, 6) = (/ & - &8.7980e-03 ,7.1519e-03 ,5.0451e-03 ,2.7712e-03 ,7.8202e-05 /) - kbo(:, 2,33, 6) = (/ & - &1.2135e-02 ,9.8435e-03 ,6.9325e-03 ,3.7902e-03 ,9.6250e-05 /) - kbo(:, 3,33, 6) = (/ & - &1.6367e-02 ,1.3251e-02 ,9.3075e-03 ,5.0637e-03 ,1.1723e-04 /) - kbo(:, 4,33, 6) = (/ & - &2.1594e-02 ,1.7451e-02 ,1.2238e-02 ,6.6390e-03 ,1.4129e-04 /) - kbo(:, 5,33, 6) = (/ & - &2.7922e-02 ,2.2553e-02 ,1.5798e-02 ,8.5480e-03 ,1.6598e-04 /) - kbo(:, 1,34, 6) = (/ & - &7.8297e-03 ,6.3727e-03 ,4.4952e-03 ,2.4671e-03 ,6.3879e-05 /) - kbo(:, 2,34, 6) = (/ & - &1.0770e-02 ,8.7510e-03 ,6.1616e-03 ,3.3644e-03 ,7.9137e-05 /) - kbo(:, 3,34, 6) = (/ & - &1.4484e-02 ,1.1741e-02 ,8.2482e-03 ,4.4844e-03 ,9.6600e-05 /) - kbo(:, 4,34, 6) = (/ & - &1.9050e-02 ,1.5427e-02 ,1.0820e-02 ,5.8678e-03 ,1.1495e-04 /) - kbo(:, 5,34, 6) = (/ & - &2.4524e-02 ,1.9867e-02 ,1.3919e-02 ,7.5292e-03 ,1.3453e-04 /) - kbo(:, 1,35, 6) = (/ & - &6.7630e-03 ,5.5126e-03 ,3.8884e-03 ,2.1340e-03 ,5.1721e-05 /) - kbo(:, 2,35, 6) = (/ & - &9.2985e-03 ,7.5662e-03 ,5.3252e-03 ,2.9070e-03 ,6.4032e-05 /) - kbo(:, 3,35, 6) = (/ & - &1.2489e-02 ,1.0141e-02 ,7.1246e-03 ,3.8749e-03 ,7.6974e-05 /) - kbo(:, 4,35, 6) = (/ & - &1.6400e-02 ,1.3312e-02 ,9.3389e-03 ,5.0659e-03 ,9.1148e-05 /) - kbo(:, 5,35, 6) = (/ & - &2.1049e-02 ,1.7098e-02 ,1.1985e-02 ,6.4857e-03 ,1.0683e-04 /) - kbo(:, 1,36, 6) = (/ & - &5.6496e-03 ,4.6119e-03 ,3.2530e-03 ,1.7852e-03 ,4.0312e-05 /) - kbo(:, 2,36, 6) = (/ & - &7.7767e-03 ,6.3372e-03 ,4.4630e-03 ,2.4380e-03 ,4.9929e-05 /) - kbo(:, 3,36, 6) = (/ & - &1.0461e-02 ,8.5144e-03 ,5.9836e-03 ,3.2549e-03 ,6.0118e-05 /) - kbo(:, 4,36, 6) = (/ & - &1.3740e-02 ,1.1182e-02 ,7.8492e-03 ,4.2598e-03 ,7.1064e-05 /) - kbo(:, 5,36, 6) = (/ & - &1.7612e-02 ,1.4350e-02 ,1.0064e-02 ,5.4485e-03 ,8.3577e-05 /) - kbo(:, 1,37, 6) = (/ & - &4.5423e-03 ,3.7134e-03 ,2.6216e-03 ,1.4392e-03 ,3.1256e-05 /) - kbo(:, 2,37, 6) = (/ & - &6.2879e-03 ,5.1321e-03 ,3.6149e-03 ,1.9739e-03 ,3.8734e-05 /) - kbo(:, 3,37, 6) = (/ & - &8.4900e-03 ,6.9227e-03 ,4.8667e-03 ,2.6482e-03 ,4.6682e-05 /) - kbo(:, 4,37, 6) = (/ & - &1.1183e-02 ,9.1172e-03 ,6.4017e-03 ,3.4761e-03 ,5.5592e-05 /) - kbo(:, 5,37, 6) = (/ & - &1.4352e-02 ,1.1719e-02 ,8.2209e-03 ,4.4549e-03 ,6.5503e-05 /) - kbo(:, 1,38, 6) = (/ & - &3.6392e-03 ,2.9801e-03 ,2.1050e-03 ,1.1562e-03 ,2.4090e-05 /) - kbo(:, 2,38, 6) = (/ & - &5.0658e-03 ,4.1416e-03 ,2.9194e-03 ,1.5946e-03 ,2.9868e-05 /) - kbo(:, 3,38, 6) = (/ & - &6.8711e-03 ,5.6107e-03 ,3.9454e-03 ,2.1481e-03 ,3.6072e-05 /) - kbo(:, 4,38, 6) = (/ & - &9.0731e-03 ,7.4127e-03 ,5.2066e-03 ,2.8281e-03 ,4.3140e-05 /) - kbo(:, 5,38, 6) = (/ & - &1.1663e-02 ,9.5418e-03 ,6.6954e-03 ,3.6310e-03 ,5.1139e-05 /) - kbo(:, 1,39, 6) = (/ & - &2.9118e-03 ,2.3886e-03 ,1.6882e-03 ,9.2755e-04 ,1.8391e-05 /) - kbo(:, 2,39, 6) = (/ & - &4.0750e-03 ,3.3381e-03 ,2.3540e-03 ,1.2863e-03 ,2.2806e-05 /) - kbo(:, 3,39, 6) = (/ & - &5.5513e-03 ,4.5420e-03 ,3.1948e-03 ,1.7397e-03 ,2.7682e-05 /) - kbo(:, 4,39, 6) = (/ & - &7.3492e-03 ,6.0179e-03 ,4.2285e-03 ,2.2979e-03 ,3.3352e-05 /) - kbo(:, 5,39, 6) = (/ & - &9.4667e-03 ,7.7616e-03 ,5.4485e-03 ,2.9560e-03 ,3.9651e-05 /) - kbo(:, 1,40, 6) = (/ & - &2.2712e-03 ,1.8658e-03 ,1.3192e-03 ,7.2479e-04 ,1.3995e-05 /) - kbo(:, 2,40, 6) = (/ & - &3.2040e-03 ,2.6288e-03 ,1.8549e-03 ,1.0140e-03 ,1.7455e-05 /) - kbo(:, 3,40, 6) = (/ & - &4.3985e-03 ,3.6050e-03 ,2.5372e-03 ,1.3813e-03 ,2.1295e-05 /) - kbo(:, 4,40, 6) = (/ & - &5.8565e-03 ,4.8013e-03 ,3.3753e-03 ,1.8342e-03 ,2.5756e-05 /) - kbo(:, 5,40, 6) = (/ & - &7.5776e-03 ,6.2219e-03 ,4.3685e-03 ,2.3699e-03 ,3.0715e-05 /) - kbo(:, 1,41, 6) = (/ & - &1.7612e-03 ,1.4492e-03 ,1.0250e-03 ,5.6325e-04 ,1.0604e-05 /) - kbo(:, 2,41, 6) = (/ & - &2.5080e-03 ,2.0608e-03 ,1.4546e-03 ,7.9552e-04 ,1.3310e-05 /) - kbo(:, 3,41, 6) = (/ & - &3.4681e-03 ,2.8477e-03 ,2.0051e-03 ,1.0923e-03 ,1.6349e-05 /) - kbo(:, 4,41, 6) = (/ & - &4.6501e-03 ,3.8188e-03 ,2.6845e-03 ,1.4588e-03 ,1.9855e-05 /) - kbo(:, 5,41, 6) = (/ & - &6.0491e-03 ,4.9741e-03 ,3.4944e-03 ,1.8953e-03 ,2.3793e-05 /) - kbo(:, 1,42, 6) = (/ & - &1.3619e-03 ,1.1225e-03 ,7.9390e-04 ,4.3654e-04 ,7.9892e-06 /) - kbo(:, 2,42, 6) = (/ & - &1.9585e-03 ,1.6109e-03 ,1.1375e-03 ,6.2244e-04 ,1.0111e-05 /) - kbo(:, 3,42, 6) = (/ & - &2.7289e-03 ,2.2437e-03 ,1.5805e-03 ,8.6127e-04 ,1.2500e-05 /) - kbo(:, 4,42, 6) = (/ & - &3.6852e-03 ,3.0311e-03 ,2.1316e-03 ,1.1583e-03 ,1.5248e-05 /) - kbo(:, 5,42, 6) = (/ & - &4.8235e-03 ,3.9702e-03 ,2.7892e-03 ,1.5134e-03 ,1.8350e-05 /) - kbo(:, 1,43, 6) = (/ & - &1.0392e-03 ,8.5695e-04 ,6.0598e-04 ,3.3332e-04 ,5.9552e-06 /) - kbo(:, 2,43, 6) = (/ & - &1.5101e-03 ,1.2436e-03 ,8.7832e-04 ,4.8071e-04 ,7.5961e-06 /) - kbo(:, 3,43, 6) = (/ & - &2.1254e-03 ,1.7498e-03 ,1.2325e-03 ,6.7181e-04 ,9.4477e-06 /) - kbo(:, 4,43, 6) = (/ & - &2.8974e-03 ,2.3860e-03 ,1.6788e-03 ,9.1195e-04 ,1.1585e-05 /) - kbo(:, 5,43, 6) = (/ & - &3.8244e-03 ,3.1517e-03 ,2.2140e-03 ,1.2005e-03 ,1.4013e-05 /) - kbo(:, 1,44, 6) = (/ & - &7.8683e-04 ,6.4875e-04 ,4.5878e-04 ,2.5223e-04 ,4.3968e-06 /) - kbo(:, 2,44, 6) = (/ & - &1.1559e-03 ,9.5305e-04 ,6.7277e-04 ,3.6830e-04 ,5.6394e-06 /) - kbo(:, 3,44, 6) = (/ & - &1.6454e-03 ,1.3558e-03 ,9.5534e-04 ,5.2055e-04 ,7.0859e-06 /) - kbo(:, 4,44, 6) = (/ & - &2.2669e-03 ,1.8686e-03 ,1.3148e-03 ,7.1399e-04 ,8.7462e-06 /) - kbo(:, 5,44, 6) = (/ & - &3.0201e-03 ,2.4917e-03 ,1.7509e-03 ,9.4904e-04 ,1.0639e-05 /) - kbo(:, 1,45, 6) = (/ & - &5.9365e-04 ,4.8959e-04 ,3.4607e-04 ,1.9020e-04 ,3.2229e-06 /) - kbo(:, 2,45, 6) = (/ & - &8.8218e-04 ,7.2803e-04 ,5.1390e-04 ,2.8115e-04 ,4.1709e-06 /) - kbo(:, 3,45, 6) = (/ & - &1.2705e-03 ,1.0482e-03 ,7.3838e-04 ,4.0225e-04 ,5.2818e-06 /) - kbo(:, 4,45, 6) = (/ & - &1.7692e-03 ,1.4597e-03 ,1.0269e-03 ,5.5768e-04 ,6.5567e-06 /) - kbo(:, 5,45, 6) = (/ & - &2.3806e-03 ,1.9657e-03 ,1.3812e-03 ,7.4841e-04 ,8.0347e-06 /) - kbo(:, 1,46, 6) = (/ & - &4.4335e-04 ,3.6560e-04 ,2.5820e-04 ,1.4186e-04 ,2.3394e-06 /) - kbo(:, 2,46, 6) = (/ & - &6.6652e-04 ,5.5048e-04 ,3.8857e-04 ,2.1254e-04 ,3.0543e-06 /) - kbo(:, 3,46, 6) = (/ & - &9.7139e-04 ,8.0233e-04 ,5.6521e-04 ,3.0796e-04 ,3.9016e-06 /) - kbo(:, 4,46, 6) = (/ & - &1.3697e-03 ,1.1313e-03 ,7.9539e-04 ,4.3177e-04 ,4.8930e-06 /) - kbo(:, 5,46, 6) = (/ & - &1.8630e-03 ,1.5401e-03 ,1.0822e-03 ,5.8603e-04 ,6.0211e-06 /) - kbo(:, 1,47, 6) = (/ & - &3.2494e-04 ,2.6781e-04 ,1.8906e-04 ,1.0379e-04 ,1.6703e-06 /) - kbo(:, 2,47, 6) = (/ & - &4.9477e-04 ,4.0876e-04 ,2.8822e-04 ,1.5780e-04 ,2.2235e-06 /) - kbo(:, 3,47, 6) = (/ & - &7.3190e-04 ,6.0441e-04 ,4.2581e-04 ,2.3196e-04 ,2.8600e-06 /) - kbo(:, 4,47, 6) = (/ & - &1.0450e-03 ,8.6362e-04 ,6.0711e-04 ,3.2954e-04 ,3.6203e-06 /) - kbo(:, 5,47, 6) = (/ & - &1.4403e-03 ,1.1920e-03 ,8.3715e-04 ,4.5311e-04 ,4.4864e-06 /) - kbo(:, 1,48, 6) = (/ & - &2.3680e-04 ,1.9527e-04 ,1.3764e-04 ,7.5497e-05 ,1.1789e-06 /) - kbo(:, 2,48, 6) = (/ & - &3.6634e-04 ,3.0233e-04 ,2.1313e-04 ,1.1661e-04 ,1.5963e-06 /) - kbo(:, 3,48, 6) = (/ & - &5.4895e-04 ,4.5372e-04 ,3.1944e-04 ,1.7402e-04 ,2.0888e-06 /) - kbo(:, 4,48, 6) = (/ & - &7.9543e-04 ,6.5717e-04 ,4.6181e-04 ,2.5062e-04 ,2.6621e-06 /) - kbo(:, 5,48, 6) = (/ & - &1.1099e-03 ,9.1890e-04 ,6.4520e-04 ,3.4917e-04 ,3.3226e-06 /) - kbo(:, 1,49, 6) = (/ & - &1.7167e-04 ,1.4156e-04 ,9.9697e-05 ,5.4621e-05 ,8.2177e-07 /) - kbo(:, 2,49, 6) = (/ & - &2.6978e-04 ,2.2270e-04 ,1.5688e-04 ,8.5772e-05 ,1.1335e-06 /) - kbo(:, 3,49, 6) = (/ & - &4.1033e-04 ,3.3911e-04 ,2.3859e-04 ,1.2993e-04 ,1.5022e-06 /) - kbo(:, 4,49, 6) = (/ & - &6.0289e-04 ,4.9870e-04 ,3.5040e-04 ,1.9001e-04 ,1.9421e-06 /) - kbo(:, 5,49, 6) = (/ & - &8.5268e-04 ,7.0612e-04 ,4.9559e-04 ,2.6808e-04 ,2.4464e-06 /) - kbo(:, 1,50, 6) = (/ & - &1.2531e-04 ,1.0333e-04 ,7.2754e-05 ,3.9781e-05 ,5.8260e-07 /) - kbo(:, 2,50, 6) = (/ & - &2.0028e-04 ,1.6520e-04 ,1.1625e-04 ,6.3517e-05 ,8.1312e-07 /) - kbo(:, 3,50, 6) = (/ & - &3.0881e-04 ,2.5524e-04 ,1.7955e-04 ,9.7765e-05 ,1.0963e-06 /) - kbo(:, 4,50, 6) = (/ & - &4.6015e-04 ,3.8061e-04 ,2.6731e-04 ,1.4488e-04 ,1.4340e-06 /) - kbo(:, 5,50, 6) = (/ & - &6.5988e-04 ,5.4636e-04 ,3.8320e-04 ,2.0709e-04 ,1.8202e-06 /) - kbo(:, 1,51, 6) = (/ & - &9.1633e-05 ,7.5509e-05 ,5.3128e-05 ,2.9020e-05 ,4.1464e-07 /) - kbo(:, 2,51, 6) = (/ & - &1.4891e-04 ,1.2270e-04 ,8.6279e-05 ,4.7099e-05 ,5.8807e-07 /) - kbo(:, 3,51, 6) = (/ & - &2.3292e-04 ,1.9249e-04 ,1.3529e-04 ,7.3646e-05 ,8.0371e-07 /) - kbo(:, 4,51, 6) = (/ & - &3.5233e-04 ,2.9123e-04 ,2.0433e-04 ,1.1072e-04 ,1.0615e-06 /) - kbo(:, 5,51, 6) = (/ & - &5.1166e-04 ,4.2368e-04 ,2.9697e-04 ,1.6038e-04 ,1.3623e-06 /) - kbo(:, 1,52, 6) = (/ & - &6.6748e-05 ,5.4951e-05 ,3.8637e-05 ,2.1072e-05 ,2.9423e-07 /) - kbo(:, 2,52, 6) = (/ & - &1.1034e-04 ,9.0898e-05 ,6.3804e-05 ,3.4773e-05 ,4.2185e-07 /) - kbo(:, 3,52, 6) = (/ & - &1.7525e-04 ,1.4472e-04 ,1.0161e-04 ,5.5277e-05 ,5.8386e-07 /) - kbo(:, 4,52, 6) = (/ & - &2.6896e-04 ,2.2246e-04 ,1.5598e-04 ,8.4497e-05 ,7.8029e-07 /) - kbo(:, 5,52, 6) = (/ & - &3.9638e-04 ,3.2814e-04 ,2.2978e-04 ,1.2397e-04 ,1.0114e-06 /) - kbo(:, 1,53, 6) = (/ & - &4.8387e-05 ,3.9789e-05 ,2.7956e-05 ,1.5224e-05 ,2.0710e-07 /) - kbo(:, 2,53, 6) = (/ & - &8.1422e-05 ,6.7055e-05 ,4.7034e-05 ,2.5569e-05 ,3.0032e-07 /) - kbo(:, 3,53, 6) = (/ & - &1.3143e-04 ,1.0846e-04 ,7.6092e-05 ,4.1325e-05 ,4.2132e-07 /) - kbo(:, 4,53, 6) = (/ & - &2.0478e-04 ,1.6937e-04 ,1.1872e-04 ,6.4236e-05 ,5.6954e-07 /) - kbo(:, 5,53, 6) = (/ & - &3.0662e-04 ,2.5374e-04 ,1.7755e-04 ,9.5705e-05 ,7.4673e-07 /) - kbo(:, 1,54, 6) = (/ & - &3.5548e-05 ,2.9201e-05 ,2.0499e-05 ,1.1142e-05 ,1.4888e-07 /) - kbo(:, 2,54, 6) = (/ & - &6.0867e-05 ,5.0080e-05 ,3.5102e-05 ,1.9053e-05 ,2.1957e-07 /) - kbo(:, 3,54, 6) = (/ & - &9.9905e-05 ,8.2294e-05 ,5.7679e-05 ,3.1278e-05 ,3.1167e-07 /) - kbo(:, 4,54, 6) = (/ & - &1.5784e-04 ,1.3048e-04 ,9.1376e-05 ,4.9396e-05 ,4.2569e-07 /) - kbo(:, 5,54, 6) = (/ & - &2.3990e-04 ,1.9844e-04 ,1.3879e-04 ,7.4726e-05 ,5.6432e-07 /) - kbo(:, 1,55, 6) = (/ & - &2.6254e-05 ,2.1551e-05 ,1.5109e-05 ,8.2013e-06 ,1.0776e-07 /) - kbo(:, 2,55, 6) = (/ & - &4.5756e-05 ,3.7594e-05 ,2.6330e-05 ,1.4266e-05 ,1.6227e-07 /) - kbo(:, 3,55, 6) = (/ & - &7.6387e-05 ,6.2840e-05 ,4.3983e-05 ,2.3813e-05 ,2.3322e-07 /) - kbo(:, 4,55, 6) = (/ & - &1.2233e-04 ,1.0105e-04 ,7.0729e-05 ,3.8184e-05 ,3.2242e-07 /) - kbo(:, 5,55, 6) = (/ & - &1.8866e-04 ,1.5604e-04 ,1.0907e-04 ,5.8660e-05 ,4.3190e-07 /) - kbo(:, 1,56, 6) = (/ & - &1.9352e-05 ,1.5886e-05 ,1.1124e-05 ,6.0284e-06 ,7.7832e-08 /) - kbo(:, 2,56, 6) = (/ & - &3.4378e-05 ,2.8197e-05 ,1.9721e-05 ,1.0667e-05 ,1.1948e-07 /) - kbo(:, 3,56, 6) = (/ & - &5.8349e-05 ,4.7950e-05 ,3.3520e-05 ,1.8111e-05 ,1.7363e-07 /) - kbo(:, 4,56, 6) = (/ & - &9.4866e-05 ,7.8290e-05 ,5.4723e-05 ,2.9510e-05 ,2.4385e-07 /) - kbo(:, 5,56, 6) = (/ & - &1.4839e-04 ,1.2273e-04 ,8.5680e-05 ,4.6045e-05 ,3.3022e-07 /) - kbo(:, 1,57, 6) = (/ & - &1.4255e-05 ,1.1680e-05 ,8.1776e-06 ,4.4235e-06 ,5.5927e-08 /) - kbo(:, 2,57, 6) = (/ & - &2.5815e-05 ,2.1132e-05 ,1.4763e-05 ,7.9663e-06 ,8.7522e-08 /) - kbo(:, 3,57, 6) = (/ & - &4.4552e-05 ,3.6579e-05 ,2.5531e-05 ,1.3761e-05 ,1.2925e-07 /) - kbo(:, 4,57, 6) = (/ & - &7.3589e-05 ,6.0640e-05 ,4.2341e-05 ,2.2797e-05 ,1.8364e-07 /) - kbo(:, 5,57, 6) = (/ & - &1.1687e-04 ,9.6565e-05 ,6.7349e-05 ,3.6145e-05 ,2.5190e-07 /) - kbo(:, 1,58, 6) = (/ & - &5.1283e-06 ,4.8164e-06 ,3.9533e-06 ,2.5844e-06 ,4.0411e-08 /) - kbo(:, 2,58, 6) = (/ & - &9.4663e-06 ,8.8829e-06 ,7.2756e-06 ,4.7397e-06 ,6.4616e-08 /) - kbo(:, 3,58, 6) = (/ & - &1.6608e-05 ,1.5628e-05 ,1.2791e-05 ,8.3232e-06 ,9.6916e-08 /) - kbo(:, 4,58, 6) = (/ & - &2.7869e-05 ,2.6331e-05 ,2.1549e-05 ,1.4010e-05 ,1.3884e-07 /) - kbo(:, 5,58, 6) = (/ & - &4.4916e-05 ,4.2582e-05 ,3.4830e-05 ,2.2586e-05 ,1.9305e-07 /) - kbo(:, 1,59, 6) = (/ & - &4.1166e-06 ,3.8763e-06 ,3.1932e-06 ,2.0984e-06 ,3.3138e-08 /) - kbo(:, 2,59, 6) = (/ & - &7.6679e-06 ,7.2183e-06 ,5.9356e-06 ,3.8849e-06 ,5.3542e-08 /) - kbo(:, 3,59, 6) = (/ & - &1.3578e-05 ,1.2809e-05 ,1.0527e-05 ,6.8844e-06 ,8.1037e-08 /) - kbo(:, 4,59, 6) = (/ & - &2.2972e-05 ,2.1775e-05 ,1.7891e-05 ,1.1690e-05 ,1.1735e-07 /) - kbo(:, 5,59, 6) = (/ & - &3.7296e-05 ,3.5490e-05 ,2.9150e-05 ,1.9007e-05 ,1.6270e-07 /) - kbo(:, 1,13, 7) = (/ & - &4.2167e-01 ,3.2553e-01 ,2.2695e-01 ,1.2184e-01 ,4.0030e-03 /) - kbo(:, 2,13, 7) = (/ & - &6.0140e-01 ,4.6380e-01 ,3.2184e-01 ,1.7190e-01 ,5.1104e-03 /) - kbo(:, 3,13, 7) = (/ & - &8.1816e-01 ,6.3015e-01 ,4.3650e-01 ,2.3296e-01 ,6.4365e-03 /) - kbo(:, 4,13, 7) = (/ & - &1.0780e+00 ,8.2908e-01 ,5.7271e-01 ,3.0519e-01 ,7.8514e-03 /) - kbo(:, 5,13, 7) = (/ & - &1.3871e+00 ,1.0650e+00 ,7.3566e-01 ,3.9202e-01 ,9.6931e-03 /) - kbo(:, 1,14, 7) = (/ & - &3.8425e-01 ,2.9801e-01 ,2.0688e-01 ,1.1055e-01 ,3.4668e-03 /) - kbo(:, 2,14, 7) = (/ & - &5.4386e-01 ,4.2093e-01 ,2.9177e-01 ,1.5544e-01 ,4.5429e-03 /) - kbo(:, 3,14, 7) = (/ & - &7.3998e-01 ,5.7137e-01 ,3.9497e-01 ,2.0995e-01 ,5.6171e-03 /) - kbo(:, 4,14, 7) = (/ & - &9.7642e-01 ,7.5246e-01 ,5.1952e-01 ,2.7577e-01 ,6.9867e-03 /) - kbo(:, 5,14, 7) = (/ & - &1.2610e+00 ,9.7017e-01 ,6.6888e-01 ,3.5427e-01 ,8.6535e-03 /) - kbo(:, 1,15, 7) = (/ & - &3.3299e-01 ,2.5933e-01 ,1.7991e-01 ,9.5905e-02 ,2.9886e-03 /) - kbo(:, 2,15, 7) = (/ & - &4.6962e-01 ,3.6448e-01 ,2.5234e-01 ,1.3421e-01 ,3.8718e-03 /) - kbo(:, 3,15, 7) = (/ & - &6.3987e-01 ,4.9512e-01 ,3.4211e-01 ,1.8150e-01 ,4.8805e-03 /) - kbo(:, 4,15, 7) = (/ & - &8.4586e-01 ,6.5388e-01 ,4.5155e-01 ,2.3908e-01 ,6.1279e-03 /) - kbo(:, 5,15, 7) = (/ & - &1.0948e+00 ,8.4428e-01 ,5.8246e-01 ,3.0839e-01 ,7.4849e-03 /) - kbo(:, 1,16, 7) = (/ & - &2.8051e-01 ,2.1899e-01 ,1.5183e-01 ,8.0896e-02 ,2.5509e-03 /) - kbo(:, 2,16, 7) = (/ & - &3.9506e-01 ,3.0781e-01 ,2.1302e-01 ,1.1324e-01 ,3.3108e-03 /) - kbo(:, 3,16, 7) = (/ & - &5.3870e-01 ,4.1855e-01 ,2.8938e-01 ,1.5357e-01 ,4.2013e-03 /) - kbo(:, 4,16, 7) = (/ & - &7.1526e-01 ,5.5449e-01 ,3.8283e-01 ,2.0269e-01 ,5.1902e-03 /) - kbo(:, 5,16, 7) = (/ & - &9.2727e-01 ,7.1785e-01 ,4.9548e-01 ,2.6200e-01 ,6.4068e-03 /) - kbo(:, 1,17, 7) = (/ & - &2.3378e-01 ,1.8318e-01 ,1.2698e-01 ,6.7717e-02 ,2.1927e-03 /) - kbo(:, 2,17, 7) = (/ & - &3.2948e-01 ,2.5742e-01 ,1.7822e-01 ,9.4896e-02 ,2.8584e-03 /) - kbo(:, 3,17, 7) = (/ & - &4.5000e-01 ,3.5080e-01 ,2.4241e-01 ,1.2872e-01 ,3.6126e-03 /) - kbo(:, 4,17, 7) = (/ & - &5.9887e-01 ,4.6579e-01 ,3.2151e-01 ,1.7042e-01 ,4.5208e-03 /) - kbo(:, 5,17, 7) = (/ & - &7.7711e-01 ,6.0357e-01 ,4.1660e-01 ,2.2035e-01 ,5.5539e-03 /) - kbo(:, 1,18, 7) = (/ & - &1.9227e-01 ,1.5110e-01 ,1.0483e-01 ,5.6032e-02 ,1.9220e-03 /) - kbo(:, 2,18, 7) = (/ & - &2.7135e-01 ,2.1238e-01 ,1.4707e-01 ,7.8382e-02 ,2.4923e-03 /) - kbo(:, 3,18, 7) = (/ & - &3.7049e-01 ,2.8960e-01 ,2.0022e-01 ,1.0642e-01 ,3.1976e-03 /) - kbo(:, 4,18, 7) = (/ & - &4.9231e-01 ,3.8398e-01 ,2.6515e-01 ,1.4069e-01 ,3.9529e-03 /) - kbo(:, 5,18, 7) = (/ & - &6.4035e-01 ,4.9892e-01 ,3.4418e-01 ,1.8220e-01 ,4.8074e-03 /) - kbo(:, 1,19, 7) = (/ & - &1.6097e-01 ,1.2681e-01 ,8.7983e-02 ,4.7067e-02 ,1.6998e-03 /) - kbo(:, 2,19, 7) = (/ & - &2.2674e-01 ,1.7812e-01 ,1.2337e-01 ,6.5758e-02 ,2.2148e-03 /) - kbo(:, 3,19, 7) = (/ & - &3.0942e-01 ,2.4239e-01 ,1.6768e-01 ,8.9247e-02 ,2.8171e-03 /) - kbo(:, 4,19, 7) = (/ & - &4.1121e-01 ,3.2156e-01 ,2.2226e-01 ,1.1805e-01 ,3.4852e-03 /) - kbo(:, 5,19, 7) = (/ & - &5.3661e-01 ,4.1891e-01 ,2.8897e-01 ,1.5308e-01 ,4.2703e-03 /) - kbo(:, 1,20, 7) = (/ & - &1.3816e-01 ,1.0899e-01 ,7.5568e-02 ,4.0384e-02 ,1.5084e-03 /) - kbo(:, 2,20, 7) = (/ & - &1.9390e-01 ,1.5237e-01 ,1.0558e-01 ,5.6347e-02 ,1.9533e-03 /) - kbo(:, 3,20, 7) = (/ & - &2.6431e-01 ,2.0734e-01 ,1.4349e-01 ,7.6381e-02 ,2.4829e-03 /) - kbo(:, 4,20, 7) = (/ & - &3.5230e-01 ,2.7579e-01 ,1.9049e-01 ,1.0107e-01 ,3.1175e-03 /) - kbo(:, 5,20, 7) = (/ & - &4.5959e-01 ,3.5917e-01 ,2.4774e-01 ,1.3132e-01 ,3.8257e-03 /) - kbo(:, 1,21, 7) = (/ & - &1.1885e-01 ,9.3725e-02 ,6.5041e-02 ,3.4803e-02 ,1.3411e-03 /) - kbo(:, 2,21, 7) = (/ & - &1.6635e-01 ,1.3102e-01 ,9.0813e-02 ,4.8481e-02 ,1.7301e-03 /) - kbo(:, 3,21, 7) = (/ & - &2.2707e-01 ,1.7845e-01 ,1.2348e-01 ,6.5731e-02 ,2.2027e-03 /) - kbo(:, 4,21, 7) = (/ & - &3.0299e-01 ,2.3748e-01 ,1.6403e-01 ,8.7154e-02 ,2.7646e-03 /) - kbo(:, 5,21, 7) = (/ & - &3.9491e-01 ,3.0909e-01 ,2.1323e-01 ,1.1320e-01 ,3.3663e-03 /) - kbo(:, 1,22, 7) = (/ & - &1.0371e-01 ,8.1936e-02 ,5.6886e-02 ,3.0452e-02 ,1.1973e-03 /) - kbo(:, 2,22, 7) = (/ & - &1.4515e-01 ,1.1443e-01 ,7.9345e-02 ,4.2377e-02 ,1.5408e-03 /) - kbo(:, 3,22, 7) = (/ & - &1.9815e-01 ,1.5584e-01 ,1.0788e-01 ,5.7461e-02 ,1.9609e-03 /) - kbo(:, 4,22, 7) = (/ & - &2.6352e-01 ,2.0697e-01 ,1.4313e-01 ,7.6128e-02 ,2.4333e-03 /) - kbo(:, 5,22, 7) = (/ & - &3.4221e-01 ,2.6821e-01 ,1.8537e-01 ,9.8647e-02 ,2.9393e-03 /) - kbo(:, 1,23, 7) = (/ & - &9.0639e-02 ,7.1734e-02 ,4.9824e-02 ,2.6695e-02 ,1.0611e-03 /) - kbo(:, 2,23, 7) = (/ & - &1.2684e-01 ,1.0014e-01 ,6.9426e-02 ,3.7107e-02 ,1.3714e-03 /) - kbo(:, 3,23, 7) = (/ & - &1.7268e-01 ,1.3597e-01 ,9.4123e-02 ,5.0237e-02 ,1.7212e-03 /) - kbo(:, 4,23, 7) = (/ & - &2.2866e-01 ,1.7972e-01 ,1.2432e-01 ,6.6277e-02 ,2.1161e-03 /) - kbo(:, 5,23, 7) = (/ & - &2.9584e-01 ,2.3227e-01 ,1.6067e-01 ,8.5547e-02 ,2.5346e-03 /) - kbo(:, 1,24, 7) = (/ & - &8.0071e-02 ,6.3444e-02 ,4.4064e-02 ,2.3644e-02 ,9.3348e-04 /) - kbo(:, 2,24, 7) = (/ & - &1.1181e-01 ,8.8354e-02 ,6.1271e-02 ,3.2794e-02 ,1.1882e-03 /) - kbo(:, 3,24, 7) = (/ & - &1.5149e-01 ,1.1939e-01 ,8.2725e-02 ,4.4223e-02 ,1.4832e-03 /) - kbo(:, 4,24, 7) = (/ & - &1.9978e-01 ,1.5722e-01 ,1.0888e-01 ,5.8128e-02 ,1.8190e-03 /) - kbo(:, 5,24, 7) = (/ & - &2.5770e-01 ,2.0260e-01 ,1.4030e-01 ,7.4844e-02 ,2.1747e-03 /) - kbo(:, 1,25, 7) = (/ & - &7.0951e-02 ,5.6269e-02 ,3.9108e-02 ,2.1016e-02 ,8.0964e-04 /) - kbo(:, 2,25, 7) = (/ & - &9.8623e-02 ,7.8013e-02 ,5.4088e-02 ,2.9015e-02 ,1.0247e-03 /) - kbo(:, 3,25, 7) = (/ & - &1.3295e-01 ,1.0488e-01 ,7.2709e-02 ,3.8919e-02 ,1.2776e-03 /) - kbo(:, 4,25, 7) = (/ & - &1.7470e-01 ,1.3764e-01 ,9.5373e-02 ,5.0958e-02 ,1.5592e-03 /) - kbo(:, 5,25, 7) = (/ & - &2.2493e-01 ,1.7708e-01 ,1.2270e-01 ,6.5502e-02 ,1.8657e-03 /) - kbo(:, 1,26, 7) = (/ & - &6.3451e-02 ,5.0352e-02 ,3.4999e-02 ,1.8811e-02 ,7.0696e-04 /) - kbo(:, 2,26, 7) = (/ & - &8.7646e-02 ,6.9321e-02 ,4.8128e-02 ,2.5820e-02 ,8.9108e-04 /) - kbo(:, 3,26, 7) = (/ & - &1.1756e-01 ,9.2804e-02 ,6.4336e-02 ,3.4465e-02 ,1.1063e-03 /) - kbo(:, 4,26, 7) = (/ & - &1.5401e-01 ,1.2150e-01 ,8.4218e-02 ,4.5022e-02 ,1.3420e-03 /) - kbo(:, 5,26, 7) = (/ & - &1.9847e-01 ,1.5626e-01 ,1.0822e-01 ,5.7833e-02 ,1.6057e-03 /) - kbo(:, 1,27, 7) = (/ & - &5.6793e-02 ,4.5057e-02 ,3.1339e-02 ,1.6842e-02 ,6.0571e-04 /) - kbo(:, 2,27, 7) = (/ & - &7.8027e-02 ,6.1732e-02 ,4.2853e-02 ,2.2968e-02 ,7.6180e-04 /) - kbo(:, 3,27, 7) = (/ & - &1.0421e-01 ,8.2314e-02 ,5.7109e-02 ,3.0579e-02 ,9.4573e-04 /) - kbo(:, 4,27, 7) = (/ & - &1.3651e-01 ,1.0769e-01 ,7.4645e-02 ,3.9915e-02 ,1.1425e-03 /) - kbo(:, 5,27, 7) = (/ & - &1.7591e-01 ,1.3862e-01 ,9.6018e-02 ,5.1325e-02 ,1.3608e-03 /) - kbo(:, 1,28, 7) = (/ & - &5.0832e-02 ,4.0335e-02 ,2.8062e-02 ,1.5080e-02 ,5.0959e-04 /) - kbo(:, 2,28, 7) = (/ & - &6.9491e-02 ,5.4973e-02 ,3.8187e-02 ,2.0466e-02 ,6.4488e-04 /) - kbo(:, 3,28, 7) = (/ & - &9.2684e-02 ,7.3230e-02 ,5.0823e-02 ,2.7216e-02 ,7.9606e-04 /) - kbo(:, 4,28, 7) = (/ & - &1.2155e-01 ,9.5886e-02 ,6.6455e-02 ,3.5548e-02 ,9.5678e-04 /) - kbo(:, 5,28, 7) = (/ & - &1.5688e-01 ,1.2363e-01 ,8.5583e-02 ,4.5732e-02 ,1.1415e-03 /) - kbo(:, 1,29, 7) = (/ & - &4.5296e-02 ,3.5922e-02 ,2.4992e-02 ,1.3423e-02 ,4.2743e-04 /) - kbo(:, 2,29, 7) = (/ & - &6.1694e-02 ,4.8833e-02 ,3.3922e-02 ,1.8191e-02 ,5.3907e-04 /) - kbo(:, 3,29, 7) = (/ & - &8.2276e-02 ,6.5053e-02 ,4.5148e-02 ,2.4171e-02 ,6.5935e-04 /) - kbo(:, 4,29, 7) = (/ & - &1.0791e-01 ,8.5197e-02 ,5.9066e-02 ,3.1598e-02 ,7.9358e-04 /) - kbo(:, 5,29, 7) = (/ & - &1.3964e-01 ,1.1005e-01 ,7.6235e-02 ,4.0713e-02 ,9.4519e-04 /) - kbo(:, 1,30, 7) = (/ & - &4.0185e-02 ,3.1886e-02 ,2.2195e-02 ,1.1919e-02 ,3.5485e-04 /) - kbo(:, 2,30, 7) = (/ & - &5.4626e-02 ,4.3278e-02 ,3.0084e-02 ,1.6135e-02 ,4.4303e-04 /) - kbo(:, 3,30, 7) = (/ & - &7.2953e-02 ,5.7701e-02 ,4.0048e-02 ,2.1442e-02 ,5.4169e-04 /) - kbo(:, 4,30, 7) = (/ & - &9.5812e-02 ,7.5701e-02 ,5.2497e-02 ,2.8075e-02 ,6.5509e-04 /) - kbo(:, 5,30, 7) = (/ & - &1.2402e-01 ,9.7862e-02 ,6.7806e-02 ,3.6235e-02 ,7.7850e-04 /) - kbo(:, 1,31, 7) = (/ & - &3.5348e-02 ,2.8090e-02 ,1.9559e-02 ,1.0513e-02 ,2.9039e-04 /) - kbo(:, 2,31, 7) = (/ & - &4.8053e-02 ,3.8118e-02 ,2.6496e-02 ,1.4221e-02 ,3.5964e-04 /) - kbo(:, 3,31, 7) = (/ & - &6.4212e-02 ,5.0845e-02 ,3.5309e-02 ,1.8919e-02 ,4.4117e-04 /) - kbo(:, 4,31, 7) = (/ & - &8.4429e-02 ,6.6772e-02 ,4.6322e-02 ,2.4787e-02 ,5.3116e-04 /) - kbo(:, 5,31, 7) = (/ & - &1.0928e-01 ,8.6339e-02 ,5.9901e-02 ,3.2032e-02 ,6.3348e-04 /) - kbo(:, 1,32, 7) = (/ & - &3.1311e-02 ,2.4896e-02 ,1.7336e-02 ,9.3247e-03 ,2.3608e-04 /) - kbo(:, 2,32, 7) = (/ & - &4.2575e-02 ,3.3801e-02 ,2.3511e-02 ,1.2616e-02 ,2.9452e-04 /) - kbo(:, 3,32, 7) = (/ & - &5.6935e-02 ,4.5129e-02 ,3.1359e-02 ,1.6809e-02 ,3.6093e-04 /) - kbo(:, 4,32, 7) = (/ & - &7.4842e-02 ,5.9256e-02 ,4.1156e-02 ,2.2039e-02 ,4.3435e-04 /) - kbo(:, 5,32, 7) = (/ & - &9.6933e-02 ,7.6740e-02 ,5.3274e-02 ,2.8476e-02 ,5.1533e-04 /) - kbo(:, 1,33, 7) = (/ & - &2.7886e-02 ,2.2206e-02 ,1.5465e-02 ,8.3176e-03 ,1.9330e-04 /) - kbo(:, 2,33, 7) = (/ & - &3.7954e-02 ,3.0161e-02 ,2.0981e-02 ,1.1260e-02 ,2.4048e-04 /) - kbo(:, 3,33, 7) = (/ & - &5.0729e-02 ,4.0269e-02 ,2.7996e-02 ,1.5008e-02 ,2.9283e-04 /) - kbo(:, 4,33, 7) = (/ & - &6.6680e-02 ,5.2910e-02 ,3.6768e-02 ,1.9685e-02 ,3.5174e-04 /) - kbo(:, 5,33, 7) = (/ & - &8.6325e-02 ,6.8491e-02 ,4.7579e-02 ,2.5448e-02 ,4.1781e-04 /) - kbo(:, 1,34, 7) = (/ & - &2.4971e-02 ,1.9901e-02 ,1.3860e-02 ,7.4508e-03 ,1.5943e-04 /) - kbo(:, 2,34, 7) = (/ & - &3.3993e-02 ,2.7044e-02 ,1.8817e-02 ,1.0102e-02 ,1.9737e-04 /) - kbo(:, 3,34, 7) = (/ & - &4.5431e-02 ,3.6116e-02 ,2.5118e-02 ,1.3468e-02 ,2.4097e-04 /) - kbo(:, 4,34, 7) = (/ & - &5.9751e-02 ,4.7485e-02 ,3.3007e-02 ,1.7673e-02 ,2.8983e-04 /) - kbo(:, 5,34, 7) = (/ & - &7.7416e-02 ,6.1530e-02 ,4.2751e-02 ,2.2863e-02 ,3.4328e-04 /) - kbo(:, 1,35, 7) = (/ & - &2.1796e-02 ,1.7387e-02 ,1.2111e-02 ,6.5084e-03 ,1.2835e-04 /) - kbo(:, 2,35, 7) = (/ & - &2.9698e-02 ,2.3666e-02 ,1.6479e-02 ,8.8433e-03 ,1.5863e-04 /) - kbo(:, 3,35, 7) = (/ & - &3.9760e-02 ,3.1675e-02 ,2.2035e-02 ,1.1812e-02 ,1.9396e-04 /) - kbo(:, 4,35, 7) = (/ & - &5.2402e-02 ,4.1735e-02 ,2.9029e-02 ,1.5538e-02 ,2.3292e-04 /) - kbo(:, 5,35, 7) = (/ & - &6.8053e-02 ,5.4173e-02 ,3.7664e-02 ,2.0141e-02 ,2.7598e-04 /) - kbo(:, 1,36, 7) = (/ & - &1.8439e-02 ,1.4736e-02 ,1.0269e-02 ,5.5181e-03 ,1.0059e-04 /) - kbo(:, 2,36, 7) = (/ & - &2.5228e-02 ,2.0135e-02 ,1.4024e-02 ,7.5257e-03 ,1.2421e-04 /) - kbo(:, 3,36, 7) = (/ & - &3.3891e-02 ,2.7058e-02 ,1.8832e-02 ,1.0097e-02 ,1.5179e-04 /) - kbo(:, 4,36, 7) = (/ & - &4.4855e-02 ,3.5783e-02 ,2.4899e-02 ,1.3331e-02 ,1.8254e-04 /) - kbo(:, 5,36, 7) = (/ & - &5.8411e-02 ,4.6611e-02 ,3.2419e-02 ,1.7335e-02 ,2.1654e-04 /) - kbo(:, 1,37, 7) = (/ & - &1.5025e-02 ,1.2025e-02 ,8.3808e-03 ,4.5043e-03 ,7.8293e-05 /) - kbo(:, 2,37, 7) = (/ & - &2.0678e-02 ,1.6540e-02 ,1.1522e-02 ,6.1849e-03 ,9.7252e-05 /) - kbo(:, 3,37, 7) = (/ & - &2.7964e-02 ,2.2364e-02 ,1.5572e-02 ,8.3486e-03 ,1.1926e-04 /) - kbo(:, 4,37, 7) = (/ & - &3.7225e-02 ,2.9764e-02 ,2.0719e-02 ,1.1092e-02 ,1.4386e-04 /) - kbo(:, 5,37, 7) = (/ & - &4.8779e-02 ,3.9013e-02 ,2.7143e-02 ,1.4513e-02 ,1.7127e-04 /) - kbo(:, 1,38, 7) = (/ & - &1.2194e-02 ,9.7772e-03 ,6.8154e-03 ,3.6630e-03 ,6.0721e-05 /) - kbo(:, 2,38, 7) = (/ & - &1.6892e-02 ,1.3540e-02 ,9.4349e-03 ,5.0655e-03 ,7.5931e-05 /) - kbo(:, 3,38, 7) = (/ & - &2.2993e-02 ,1.8427e-02 ,1.2834e-02 ,6.8825e-03 ,9.3480e-05 /) - kbo(:, 4,38, 7) = (/ & - &3.0804e-02 ,2.4686e-02 ,1.7192e-02 ,9.2065e-03 ,1.1312e-04 /) - kbo(:, 5,38, 7) = (/ & - &4.0626e-02 ,3.2569e-02 ,2.2673e-02 ,1.2127e-02 ,1.3481e-04 /) - kbo(:, 1,39, 7) = (/ & - &9.8863e-03 ,7.9385e-03 ,5.5336e-03 ,2.9753e-03 ,4.6829e-05 /) - kbo(:, 2,39, 7) = (/ & - &1.3782e-02 ,1.1068e-02 ,7.7135e-03 ,4.1426e-03 ,5.8903e-05 /) - kbo(:, 3,39, 7) = (/ & - &1.8884e-02 ,1.5163e-02 ,1.0568e-02 ,5.6692e-03 ,7.2758e-05 /) - kbo(:, 4,39, 7) = (/ & - &2.5472e-02 ,2.0459e-02 ,1.4252e-02 ,7.6329e-03 ,8.8280e-05 /) - kbo(:, 5,39, 7) = (/ & - &3.3793e-02 ,2.7159e-02 ,1.8912e-02 ,1.0123e-02 ,1.0549e-04 /) - kbo(:, 1,40, 7) = (/ & - &7.8183e-03 ,6.2872e-03 ,4.3840e-03 ,2.3583e-03 ,3.5934e-05 /) - kbo(:, 2,40, 7) = (/ & - &1.1002e-02 ,8.8456e-03 ,6.1665e-03 ,3.3129e-03 ,4.5505e-05 /) - kbo(:, 3,40, 7) = (/ & - &1.5204e-02 ,1.2224e-02 ,8.5201e-03 ,4.5727e-03 ,5.6603e-05 /) - kbo(:, 4,40, 7) = (/ & - &2.0667e-02 ,1.6639e-02 ,1.1596e-02 ,6.2148e-03 ,6.8922e-05 /) - kbo(:, 5,40, 7) = (/ & - &2.7656e-02 ,2.2280e-02 ,1.5521e-02 ,8.3102e-03 ,8.2779e-05 /) - kbo(:, 1,41, 7) = (/ & - &6.1500e-03 ,4.9524e-03 ,3.4538e-03 ,1.8579e-03 ,2.7494e-05 /) - kbo(:, 2,41, 7) = (/ & - &8.7326e-03 ,7.0361e-03 ,4.9035e-03 ,2.6349e-03 ,3.5036e-05 /) - kbo(:, 3,41, 7) = (/ & - &1.2182e-02 ,9.8121e-03 ,6.8364e-03 ,3.6704e-03 ,4.3900e-05 /) - kbo(:, 4,41, 7) = (/ & - &1.6698e-02 ,1.3470e-02 ,9.3901e-03 ,5.0360e-03 ,5.3809e-05 /) - kbo(:, 5,41, 7) = (/ & - &2.2541e-02 ,1.8202e-02 ,1.2686e-02 ,6.7978e-03 ,6.4784e-05 /) - kbo(:, 1,42, 7) = (/ & - &4.8216e-03 ,3.8878e-03 ,2.7121e-03 ,1.4585e-03 ,2.0930e-05 /) - kbo(:, 2,42, 7) = (/ & - &6.9151e-03 ,5.5793e-03 ,3.8882e-03 ,2.0902e-03 ,2.6862e-05 /) - kbo(:, 3,42, 7) = (/ & - &9.7317e-03 ,7.8533e-03 ,5.4747e-03 ,2.9388e-03 ,3.3897e-05 /) - kbo(:, 4,42, 7) = (/ & - &1.3459e-02 ,1.0876e-02 ,7.5844e-03 ,4.0697e-03 ,4.1759e-05 /) - kbo(:, 5,42, 7) = (/ & - &1.8320e-02 ,1.4838e-02 ,1.0343e-02 ,5.5456e-03 ,5.0540e-05 /) - kbo(:, 1,43, 7) = (/ & - &3.7271e-03 ,3.0076e-03 ,2.0983e-03 ,1.1283e-03 ,1.5715e-05 /) - kbo(:, 2,43, 7) = (/ & - &5.4034e-03 ,4.3650e-03 ,3.0427e-03 ,1.6347e-03 ,2.0366e-05 /) - kbo(:, 3,43, 7) = (/ & - &7.6865e-03 ,6.2120e-03 ,4.3312e-03 ,2.3251e-03 ,2.5938e-05 /) - kbo(:, 4,43, 7) = (/ & - &1.0735e-02 ,8.6871e-03 ,6.0565e-03 ,3.2504e-03 ,3.2151e-05 /) - kbo(:, 5,43, 7) = (/ & - &1.4744e-02 ,1.1965e-02 ,8.3459e-03 ,4.4756e-03 ,3.9126e-05 /) - kbo(:, 1,44, 7) = (/ & - &2.8560e-03 ,2.3067e-03 ,1.6088e-03 ,8.6423e-04 ,1.1691e-05 /) - kbo(:, 2,44, 7) = (/ & - &4.1914e-03 ,3.3878e-03 ,2.3617e-03 ,1.2680e-03 ,1.5336e-05 /) - kbo(:, 3,44, 7) = (/ & - &6.0257e-03 ,4.8753e-03 ,3.3991e-03 ,1.8248e-03 ,1.9674e-05 /) - kbo(:, 4,44, 7) = (/ & - &8.5074e-03 ,6.8953e-03 ,4.8067e-03 ,2.5783e-03 ,2.4601e-05 /) - kbo(:, 5,44, 7) = (/ & - &1.1798e-02 ,9.5893e-03 ,6.6876e-03 ,3.5866e-03 ,3.0110e-05 /) - kbo(:, 1,45, 7) = (/ & - &2.1795e-03 ,1.7620e-03 ,1.2288e-03 ,6.5976e-04 ,8.6355e-06 /) - kbo(:, 2,45, 7) = (/ & - &3.2384e-03 ,2.6190e-03 ,1.8255e-03 ,9.8000e-04 ,1.1470e-05 /) - kbo(:, 3,45, 7) = (/ & - &4.7095e-03 ,3.8135e-03 ,2.6589e-03 ,1.4269e-03 ,1.4819e-05 /) - kbo(:, 4,45, 7) = (/ & - &6.7188e-03 ,5.4533e-03 ,3.8021e-03 ,2.0391e-03 ,1.8692e-05 /) - kbo(:, 5,45, 7) = (/ & - &9.4160e-03 ,7.6627e-03 ,5.3428e-03 ,2.8648e-03 ,2.3071e-05 /) - kbo(:, 1,46, 7) = (/ & - &1.6442e-03 ,1.3301e-03 ,9.2731e-04 ,4.9724e-04 ,6.3123e-06 /) - kbo(:, 2,46, 7) = (/ & - &2.4756e-03 ,2.0038e-03 ,1.3961e-03 ,7.4858e-04 ,8.4887e-06 /) - kbo(:, 3,46, 7) = (/ & - &3.6430e-03 ,2.9527e-03 ,2.0584e-03 ,1.1034e-03 ,1.1065e-05 /) - kbo(:, 4,46, 7) = (/ & - &5.2551e-03 ,4.2702e-03 ,2.9775e-03 ,1.5960e-03 ,1.4093e-05 /) - kbo(:, 5,46, 7) = (/ & - &7.4490e-03 ,6.0700e-03 ,4.2323e-03 ,2.2675e-03 ,1.7540e-05 /) - kbo(:, 1,47, 7) = (/ & - &1.2145e-03 ,9.8337e-04 ,6.8536e-04 ,3.6730e-04 ,4.5517e-06 /) - kbo(:, 2,47, 7) = (/ & - &1.8591e-03 ,1.5045e-03 ,1.0482e-03 ,5.6130e-04 ,6.1946e-06 /) - kbo(:, 3,47, 7) = (/ & - &2.7714e-03 ,2.2470e-03 ,1.5654e-03 ,8.3875e-04 ,8.1842e-06 /) - kbo(:, 4,47, 7) = (/ & - &4.0468e-03 ,3.2903e-03 ,2.2941e-03 ,1.2283e-03 ,1.0514e-05 /) - kbo(:, 5,47, 7) = (/ & - &5.8053e-03 ,4.7349e-03 ,3.3018e-03 ,1.7685e-03 ,1.3244e-05 /) - kbo(:, 1,48, 7) = (/ & - &8.9209e-04 ,7.2273e-04 ,5.0348e-04 ,2.6958e-04 ,3.2450e-06 /) - kbo(:, 2,48, 7) = (/ & - &1.3877e-03 ,1.1243e-03 ,7.8261e-04 ,4.1863e-04 ,4.4867e-06 /) - kbo(:, 3,48, 7) = (/ & - &2.0991e-03 ,1.7020e-03 ,1.1852e-03 ,6.3416e-04 ,6.0052e-06 /) - kbo(:, 4,48, 7) = (/ & - &3.1030e-03 ,2.5246e-03 ,1.7595e-03 ,9.4166e-04 ,7.8064e-06 /) - kbo(:, 5,48, 7) = (/ & - &4.5012e-03 ,3.6752e-03 ,2.5627e-03 ,1.3716e-03 ,9.9188e-06 /) - kbo(:, 1,49, 7) = (/ & - &6.5052e-04 ,5.2741e-04 ,3.6738e-04 ,1.9665e-04 ,2.2928e-06 /) - kbo(:, 2,49, 7) = (/ & - &1.0291e-03 ,8.3378e-04 ,5.8035e-04 ,3.1024e-04 ,3.2141e-06 /) - kbo(:, 3,49, 7) = (/ & - &1.5816e-03 ,1.2832e-03 ,8.9291e-04 ,4.7687e-04 ,4.3608e-06 /) - kbo(:, 4,49, 7) = (/ & - &2.3687e-03 ,1.9273e-03 ,1.3422e-03 ,7.1737e-04 ,5.7390e-06 /) - kbo(:, 5,49, 7) = (/ & - &3.4765e-03 ,2.8403e-03 ,1.9797e-03 ,1.0580e-03 ,7.3616e-06 /) - kbo(:, 1,50, 7) = (/ & - &4.7889e-04 ,3.8798e-04 ,2.7009e-04 ,1.4448e-04 ,1.6356e-06 /) - kbo(:, 2,50, 7) = (/ & - &7.6956e-04 ,6.2385e-04 ,4.3396e-04 ,2.3170e-04 ,2.3299e-06 /) - kbo(:, 3,50, 7) = (/ & - &1.1998e-03 ,9.7385e-04 ,6.7714e-04 ,3.6138e-04 ,3.2007e-06 /) - kbo(:, 4,50, 7) = (/ & - &1.8222e-03 ,1.4833e-03 ,1.0320e-03 ,5.5070e-04 ,4.2632e-06 /) - kbo(:, 5,50, 7) = (/ & - &2.7064e-03 ,2.2113e-03 ,1.5405e-03 ,8.2234e-04 ,5.5273e-06 /) - kbo(:, 1,51, 7) = (/ & - &3.5344e-04 ,2.8635e-04 ,1.9912e-04 ,1.0636e-04 ,1.1680e-06 /) - kbo(:, 2,51, 7) = (/ & - &5.7631e-04 ,4.6738e-04 ,3.2502e-04 ,1.7332e-04 ,1.6902e-06 /) - kbo(:, 3,51, 7) = (/ & - &9.1142e-04 ,7.3982e-04 ,5.1424e-04 ,2.7410e-04 ,2.3543e-06 /) - kbo(:, 4,51, 7) = (/ & - &1.4045e-03 ,1.1437e-03 ,7.9544e-04 ,4.2395e-04 ,3.1729e-06 /) - kbo(:, 5,51, 7) = (/ & - &2.1131e-03 ,1.7268e-03 ,1.2023e-03 ,6.4090e-04 ,4.1620e-06 /) - kbo(:, 1,52, 7) = (/ & - &2.5933e-04 ,2.1020e-04 ,1.4608e-04 ,7.7951e-05 ,8.2759e-07 /) - kbo(:, 2,52, 7) = (/ & - &4.3070e-04 ,3.4917e-04 ,2.4257e-04 ,1.2919e-04 ,1.2165e-06 /) - kbo(:, 3,52, 7) = (/ & - &6.9048e-04 ,5.6079e-04 ,3.8962e-04 ,2.0733e-04 ,1.7208e-06 /) - kbo(:, 4,52, 7) = (/ & - &1.0785e-03 ,8.7815e-04 ,6.1039e-04 ,3.2491e-04 ,2.3474e-06 /) - kbo(:, 5,52, 7) = (/ & - &1.6449e-03 ,1.3448e-03 ,9.3585e-04 ,4.9830e-04 ,3.1177e-06 /) - kbo(:, 1,53, 7) = (/ & - &1.8893e-04 ,1.5324e-04 ,1.0643e-04 ,5.6765e-05 ,5.8012e-07 /) - kbo(:, 2,53, 7) = (/ & - &3.2030e-04 ,2.5977e-04 ,1.8033e-04 ,9.5988e-05 ,8.6790e-07 /) - kbo(:, 3,53, 7) = (/ & - &5.2133e-04 ,4.2303e-04 ,2.9359e-04 ,1.5604e-04 ,1.2459e-06 /) - kbo(:, 4,53, 7) = (/ & - &8.2474e-04 ,6.7149e-04 ,4.6612e-04 ,2.4781e-04 ,1.7256e-06 /) - kbo(:, 5,53, 7) = (/ & - &1.2742e-03 ,1.0424e-03 ,7.2493e-04 ,3.8558e-04 ,2.3164e-06 /) - kbo(:, 1,54, 7) = (/ & - &1.3969e-04 ,1.1317e-04 ,7.8561e-05 ,4.1870e-05 ,4.1563e-07 /) - kbo(:, 2,54, 7) = (/ & - &2.4197e-04 ,1.9607e-04 ,1.3602e-04 ,7.2325e-05 ,6.3273e-07 /) - kbo(:, 3,54, 7) = (/ & - &4.0015e-04 ,3.2487e-04 ,2.2527e-04 ,1.1951e-04 ,9.2081e-07 /) - kbo(:, 4,54, 7) = (/ & - &6.4075e-04 ,5.2162e-04 ,3.6218e-04 ,1.9219e-04 ,1.2926e-06 /) - kbo(:, 5,54, 7) = (/ & - &1.0011e-03 ,8.1978e-04 ,5.6992e-04 ,3.0275e-04 ,1.7539e-06 /) - kbo(:, 1,55, 7) = (/ & - &1.0370e-04 ,8.4064e-05 ,5.8320e-05 ,3.1035e-05 ,3.0125e-07 /) - kbo(:, 2,55, 7) = (/ & - &1.8386e-04 ,1.4899e-04 ,1.0330e-04 ,5.4881e-05 ,4.6624e-07 /) - kbo(:, 3,55, 7) = (/ & - &3.0954e-04 ,2.5123e-04 ,1.7413e-04 ,9.2312e-05 ,6.8850e-07 /) - kbo(:, 4,55, 7) = (/ & - &5.0203e-04 ,4.0855e-04 ,2.8330e-04 ,1.5019e-04 ,9.7772e-07 /) - kbo(:, 5,55, 7) = (/ & - &7.9354e-04 ,6.4976e-04 ,4.5113e-04 ,2.3954e-04 ,1.3409e-06 /) - kbo(:, 1,56, 7) = (/ & - &7.6693e-05 ,6.2162e-05 ,4.3120e-05 ,2.2933e-05 ,2.1684e-07 /) - kbo(:, 2,56, 7) = (/ & - &1.3934e-04 ,1.1294e-04 ,7.8219e-05 ,4.1520e-05 ,3.4179e-07 /) - kbo(:, 3,56, 7) = (/ & - &2.3910e-04 ,1.9403e-04 ,1.3441e-04 ,7.1189e-05 ,5.1274e-07 /) - kbo(:, 4,56, 7) = (/ & - &3.9378e-04 ,3.2054e-04 ,2.2198e-04 ,1.1748e-04 ,7.3840e-07 /) - kbo(:, 5,56, 7) = (/ & - &6.2957e-04 ,5.1531e-04 ,3.5753e-04 ,1.8952e-04 ,1.0222e-06 /) - kbo(:, 1,57, 7) = (/ & - &5.6535e-05 ,4.5829e-05 ,3.1754e-05 ,1.6880e-05 ,1.5535e-07 /) - kbo(:, 2,57, 7) = (/ & - &1.0543e-04 ,8.5393e-05 ,5.9099e-05 ,3.1336e-05 ,2.4941e-07 /) - kbo(:, 3,57, 7) = (/ & - &1.8447e-04 ,1.4976e-04 ,1.0364e-04 ,5.4850e-05 ,3.7980e-07 /) - kbo(:, 4,57, 7) = (/ & - &3.0910e-04 ,2.5132e-04 ,1.7397e-04 ,9.1976e-05 ,5.5506e-07 /) - kbo(:, 5,57, 7) = (/ & - &4.9998e-04 ,4.0888e-04 ,2.8341e-04 ,1.4999e-04 ,7.7934e-07 /) - kbo(:, 1,58, 7) = (/ & - &2.0338e-05 ,1.8913e-05 ,1.5378e-05 ,9.8853e-06 ,1.1183e-07 /) - kbo(:, 2,58, 7) = (/ & - &3.8917e-05 ,3.6144e-05 ,2.9335e-05 ,1.8800e-05 ,1.8309e-07 /) - kbo(:, 3,58, 7) = (/ & - &6.9478e-05 ,6.4684e-05 ,5.2517e-05 ,3.3620e-05 ,2.8333e-07 /) - kbo(:, 4,58, 7) = (/ & - &1.1843e-04 ,1.1052e-04 ,8.9713e-05 ,5.7328e-05 ,4.1951e-07 /) - kbo(:, 5,58, 7) = (/ & - &1.9434e-04 ,1.8218e-04 ,1.4806e-04 ,9.4685e-05 ,5.9796e-07 /) - kbo(:, 1,59, 7) = (/ & - &1.6486e-05 ,1.5394e-05 ,1.2565e-05 ,8.1204e-06 ,9.1178e-08 /) - kbo(:, 2,59, 7) = (/ & - &3.1937e-05 ,2.9800e-05 ,2.4292e-05 ,1.5665e-05 ,1.5065e-07 /) - kbo(:, 3,59, 7) = (/ & - &5.7683e-05 ,5.3905e-05 ,4.3942e-05 ,2.8299e-05 ,2.3496e-07 /) - kbo(:, 4,59, 7) = (/ & - &9.9323e-05 ,9.3088e-05 ,7.5927e-05 ,4.8813e-05 ,3.4922e-07 /) - kbo(:, 5,59, 7) = (/ & - &1.6451e-04 ,1.5507e-04 ,1.2661e-04 ,8.1439e-05 ,5.0093e-07 /) - kbo(:, 1,13, 8) = (/ & - &1.2116e+00 ,9.1758e-01 ,6.2996e-01 ,3.3536e-01 ,1.5468e-02 /) - kbo(:, 2,13, 8) = (/ & - &1.6818e+00 ,1.2746e+00 ,8.7634e-01 ,4.6518e-01 ,1.8709e-02 /) - kbo(:, 3,13, 8) = (/ & - &2.2865e+00 ,1.7360e+00 ,1.1942e+00 ,6.3525e-01 ,2.2469e-02 /) - kbo(:, 4,13, 8) = (/ & - &3.0754e+00 ,2.3371e+00 ,1.6054e+00 ,8.5102e-01 ,2.6288e-02 /) - kbo(:, 5,13, 8) = (/ & - &4.0473e+00 ,3.0761e+00 ,2.1113e+00 ,1.1162e+00 ,3.0276e-02 /) - kbo(:, 1,14, 8) = (/ & - &1.1078e+00 ,8.4059e-01 ,5.7946e-01 ,3.0612e-01 ,1.2063e-02 /) - kbo(:, 2,14, 8) = (/ & - &1.5335e+00 ,1.1661e+00 ,8.0499e-01 ,4.2627e-01 ,1.4718e-02 /) - kbo(:, 3,14, 8) = (/ & - &2.0884e+00 ,1.5886e+00 ,1.0949e+00 ,5.8050e-01 ,1.7857e-02 /) - kbo(:, 4,14, 8) = (/ & - &2.8120e+00 ,2.1413e+00 ,1.4745e+00 ,7.8098e-01 ,2.1007e-02 /) - kbo(:, 5,14, 8) = (/ & - &3.6989e+00 ,2.8189e+00 ,1.9396e+00 ,1.0257e+00 ,2.4295e-02 /) - kbo(:, 1,15, 8) = (/ & - &9.7042e-01 ,7.3947e-01 ,5.1034e-01 ,2.6949e-01 ,9.7938e-03 /) - kbo(:, 2,15, 8) = (/ & - &1.3436e+00 ,1.0262e+00 ,7.0874e-01 ,3.7517e-01 ,1.2203e-02 /) - kbo(:, 3,15, 8) = (/ & - &1.8449e+00 ,1.4109e+00 ,9.7248e-01 ,5.1316e-01 ,1.4807e-02 /) - kbo(:, 4,15, 8) = (/ & - &2.4626e+00 ,1.8840e+00 ,1.3006e+00 ,6.9030e-01 ,1.7518e-02 /) - kbo(:, 5,15, 8) = (/ & - &3.2241e+00 ,2.4640e+00 ,1.6957e+00 ,8.9766e-01 ,2.0767e-02 /) - kbo(:, 1,16, 8) = (/ & - &8.2995e-01 ,6.3671e-01 ,4.3954e-01 ,2.3206e-01 ,8.0720e-03 /) - kbo(:, 2,16, 8) = (/ & - &1.1570e+00 ,8.8835e-01 ,6.1260e-01 ,3.2369e-01 ,1.0091e-02 /) - kbo(:, 3,16, 8) = (/ & - &1.5781e+00 ,1.2128e+00 ,8.3725e-01 ,4.4354e-01 ,1.2349e-02 /) - kbo(:, 4,16, 8) = (/ & - &2.1038e+00 ,1.6176e+00 ,1.1171e+00 ,5.9216e-01 ,1.4755e-02 /) - kbo(:, 5,16, 8) = (/ & - &2.7385e+00 ,2.1023e+00 ,1.4490e+00 ,7.6892e-01 ,1.7667e-02 /) - kbo(:, 1,17, 8) = (/ & - &7.0692e-01 ,5.4586e-01 ,3.7661e-01 ,1.9889e-01 ,6.7483e-03 /) - kbo(:, 2,17, 8) = (/ & - &9.8295e-01 ,7.5893e-01 ,5.2307e-01 ,2.7659e-01 ,8.4850e-03 /) - kbo(:, 3,17, 8) = (/ & - &1.3367e+00 ,1.0327e+00 ,7.1373e-01 ,3.7884e-01 ,1.0478e-02 /) - kbo(:, 4,17, 8) = (/ & - &1.7756e+00 ,1.3697e+00 ,9.4344e-01 ,4.9980e-01 ,1.2797e-02 /) - kbo(:, 5,17, 8) = (/ & - &2.3127e+00 ,1.7838e+00 ,1.2303e+00 ,6.5347e-01 ,1.5355e-02 /) - kbo(:, 1,18, 8) = (/ & - &5.9108e-01 ,4.5836e-01 ,3.1625e-01 ,1.6744e-01 ,5.7287e-03 /) - kbo(:, 2,18, 8) = (/ & - &8.2052e-01 ,6.3681e-01 ,4.3945e-01 ,2.3289e-01 ,7.3032e-03 /) - kbo(:, 3,18, 8) = (/ & - &1.1131e+00 ,8.6338e-01 ,5.9577e-01 ,3.1578e-01 ,9.0895e-03 /) - kbo(:, 4,18, 8) = (/ & - &1.4765e+00 ,1.1444e+00 ,7.8909e-01 ,4.1827e-01 ,1.1179e-02 /) - kbo(:, 5,18, 8) = (/ & - &1.9250e+00 ,1.4898e+00 ,1.0284e+00 ,5.4576e-01 ,1.3498e-02 /) - kbo(:, 1,19, 8) = (/ & - &5.0114e-01 ,3.9028e-01 ,2.6968e-01 ,1.4303e-01 ,5.0299e-03 /) - kbo(:, 2,19, 8) = (/ & - &6.9768e-01 ,5.4308e-01 ,3.7493e-01 ,1.9896e-01 ,6.4752e-03 /) - kbo(:, 3,19, 8) = (/ & - &9.4555e-01 ,7.3537e-01 ,5.0733e-01 ,2.6864e-01 ,8.1323e-03 /) - kbo(:, 4,19, 8) = (/ & - &1.2515e+00 ,9.7204e-01 ,6.7090e-01 ,3.5577e-01 ,1.0007e-02 /) - kbo(:, 5,19, 8) = (/ & - &1.6326e+00 ,1.2674e+00 ,8.7478e-01 ,4.6363e-01 ,1.2144e-02 /) - kbo(:, 1,20, 8) = (/ & - &4.3618e-01 ,3.4070e-01 ,2.3544e-01 ,1.2514e-01 ,4.4918e-03 /) - kbo(:, 2,20, 8) = (/ & - &6.0844e-01 ,4.7506e-01 ,3.2779e-01 ,1.7405e-01 ,5.8213e-03 /) - kbo(:, 3,20, 8) = (/ & - &8.2504e-01 ,6.4315e-01 ,4.4377e-01 ,2.3521e-01 ,7.3449e-03 /) - kbo(:, 4,20, 8) = (/ & - &1.0904e+00 ,8.4892e-01 ,5.8560e-01 ,3.1033e-01 ,9.1136e-03 /) - kbo(:, 5,20, 8) = (/ & - &1.4182e+00 ,1.1040e+00 ,7.6212e-01 ,4.0404e-01 ,1.1084e-02 /) - kbo(:, 1,21, 8) = (/ & - &3.8157e-01 ,2.9889e-01 ,2.0662e-01 ,1.0989e-01 ,4.0172e-03 /) - kbo(:, 2,21, 8) = (/ & - &5.3249e-01 ,4.1652e-01 ,2.8764e-01 ,1.5288e-01 ,5.2442e-03 /) - kbo(:, 3,21, 8) = (/ & - &7.2280e-01 ,5.6456e-01 ,3.8951e-01 ,2.0661e-01 ,6.6692e-03 /) - kbo(:, 4,21, 8) = (/ & - &9.5675e-01 ,7.4634e-01 ,5.1474e-01 ,2.7285e-01 ,8.2754e-03 /) - kbo(:, 5,21, 8) = (/ & - &1.2430e+00 ,9.6862e-01 ,6.6782e-01 ,3.5364e-01 ,1.0090e-02 /) - kbo(:, 1,22, 8) = (/ & - &3.4101e-01 ,2.6749e-01 ,1.8491e-01 ,9.8339e-02 ,3.6398e-03 /) - kbo(:, 2,22, 8) = (/ & - &4.7480e-01 ,3.7184e-01 ,2.5674e-01 ,1.3643e-01 ,4.7506e-03 /) - kbo(:, 3,22, 8) = (/ & - &6.4273e-01 ,5.0295e-01 ,3.4722e-01 ,1.8435e-01 ,6.0333e-03 /) - kbo(:, 4,22, 8) = (/ & - &8.5104e-01 ,6.6530e-01 ,4.5905e-01 ,2.4340e-01 ,7.4888e-03 /) - kbo(:, 5,22, 8) = (/ & - &1.1079e+00 ,8.6526e-01 ,5.9621e-01 ,3.1544e-01 ,9.1269e-03 /) - kbo(:, 1,23, 8) = (/ & - &3.0421e-01 ,2.3897e-01 ,1.6516e-01 ,8.7923e-02 ,3.2631e-03 /) - kbo(:, 2,23, 8) = (/ & - &4.2200e-01 ,3.3116e-01 ,2.2888e-01 ,1.2169e-01 ,4.2529e-03 /) - kbo(:, 3,23, 8) = (/ & - &5.7072e-01 ,4.4747e-01 ,3.0900e-01 ,1.6407e-01 ,5.3912e-03 /) - kbo(:, 4,23, 8) = (/ & - &7.5672e-01 ,5.9253e-01 ,4.0891e-01 ,2.1688e-01 ,6.6960e-03 /) - kbo(:, 5,23, 8) = (/ & - &9.8731e-01 ,7.7239e-01 ,5.3220e-01 ,2.8204e-01 ,8.2651e-03 /) - kbo(:, 1,24, 8) = (/ & - &2.7335e-01 ,2.1493e-01 ,1.4863e-01 ,7.9120e-02 ,2.9206e-03 /) - kbo(:, 2,24, 8) = (/ & - &3.7818e-01 ,2.9704e-01 ,2.0533e-01 ,1.0922e-01 ,3.7959e-03 /) - kbo(:, 3,24, 8) = (/ & - &5.1197e-01 ,4.0167e-01 ,2.7730e-01 ,1.4723e-01 ,4.8218e-03 /) - kbo(:, 4,24, 8) = (/ & - &6.8021e-01 ,5.3323e-01 ,3.6769e-01 ,1.9508e-01 ,6.0367e-03 /) - kbo(:, 5,24, 8) = (/ & - &8.8740e-01 ,6.9520e-01 ,4.7892e-01 ,2.5373e-01 ,7.4083e-03 /) - kbo(:, 1,25, 8) = (/ & - &2.4667e-01 ,1.9408e-01 ,1.3424e-01 ,7.1436e-02 ,2.6098e-03 /) - kbo(:, 2,25, 8) = (/ & - &3.4107e-01 ,2.6809e-01 ,1.8527e-01 ,9.8480e-02 ,3.3820e-03 /) - kbo(:, 3,25, 8) = (/ & - &4.6237e-01 ,3.6308e-01 ,2.5057e-01 ,1.3298e-01 ,4.3157e-03 /) - kbo(:, 4,25, 8) = (/ & - &6.1385e-01 ,4.8168e-01 ,3.3224e-01 ,1.7632e-01 ,5.3399e-03 /) - kbo(:, 5,25, 8) = (/ & - &7.9905e-01 ,6.2682e-01 ,4.3186e-01 ,2.2913e-01 ,6.4913e-03 /) - kbo(:, 1,26, 8) = (/ & - &2.2404e-01 ,1.7649e-01 ,1.2214e-01 ,6.5022e-02 ,2.3384e-03 /) - kbo(:, 2,26, 8) = (/ & - &3.1013e-01 ,2.4403e-01 ,1.6870e-01 ,8.9741e-02 ,3.0179e-03 /) - kbo(:, 3,26, 8) = (/ & - &4.2049e-01 ,3.3066e-01 ,2.2838e-01 ,1.2138e-01 ,3.8039e-03 /) - kbo(:, 4,26, 8) = (/ & - &5.5790e-01 ,4.3821e-01 ,3.0237e-01 ,1.6056e-01 ,4.6658e-03 /) - kbo(:, 5,26, 8) = (/ & - &7.2377e-01 ,5.6837e-01 ,3.9196e-01 ,2.0795e-01 ,5.6275e-03 /) - kbo(:, 1,27, 8) = (/ & - &2.0411e-01 ,1.6088e-01 ,1.1131e-01 ,5.9303e-02 ,2.0568e-03 /) - kbo(:, 2,27, 8) = (/ & - &2.8256e-01 ,2.2260e-01 ,1.5392e-01 ,8.1961e-02 ,2.6349e-03 /) - kbo(:, 3,27, 8) = (/ & - &3.8251e-01 ,3.0112e-01 ,2.0805e-01 ,1.1068e-01 ,3.2772e-03 /) - kbo(:, 4,27, 8) = (/ & - &5.0562e-01 ,3.9785e-01 ,2.7464e-01 ,1.4598e-01 ,4.0077e-03 /) - kbo(:, 5,27, 8) = (/ & - &6.5445e-01 ,5.1441e-01 ,3.5497e-01 ,1.8851e-01 ,4.8055e-03 /) - kbo(:, 1,28, 8) = (/ & - &1.8628e-01 ,1.4699e-01 ,1.0171e-01 ,5.4235e-02 ,1.7799e-03 /) - kbo(:, 2,28, 8) = (/ & - &2.5749e-01 ,2.0322e-01 ,1.4053e-01 ,7.4881e-02 ,2.2515e-03 /) - kbo(:, 3,28, 8) = (/ & - &3.4728e-01 ,2.7380e-01 ,1.8920e-01 ,1.0075e-01 ,2.7863e-03 /) - kbo(:, 4,28, 8) = (/ & - &4.5755e-01 ,3.6044e-01 ,2.4894e-01 ,1.3243e-01 ,3.3903e-03 /) - kbo(:, 5,28, 8) = (/ & - &5.9045e-01 ,4.6494e-01 ,3.2101e-01 ,1.7052e-01 ,4.0404e-03 /) - kbo(:, 1,29, 8) = (/ & - &1.6897e-01 ,1.3358e-01 ,9.2501e-02 ,4.9422e-02 ,1.5070e-03 /) - kbo(:, 2,29, 8) = (/ & - &2.3294e-01 ,1.8406e-01 ,1.2733e-01 ,6.7942e-02 ,1.8975e-03 /) - kbo(:, 3,29, 8) = (/ & - &3.1307e-01 ,2.4704e-01 ,1.7081e-01 ,9.1043e-02 ,2.3375e-03 /) - kbo(:, 4,29, 8) = (/ & - &4.1126e-01 ,3.2432e-01 ,2.2417e-01 ,1.1931e-01 ,2.8199e-03 /) - kbo(:, 5,29, 8) = (/ & - &5.2992e-01 ,4.1770e-01 ,2.8860e-01 ,1.5337e-01 ,3.3535e-03 /) - kbo(:, 1,30, 8) = (/ & - &1.5242e-01 ,1.2071e-01 ,8.3664e-02 ,4.4778e-02 ,1.2669e-03 /) - kbo(:, 2,30, 8) = (/ & - &2.0927e-01 ,1.6559e-01 ,1.1465e-01 ,6.1290e-02 ,1.5824e-03 /) - kbo(:, 3,30, 8) = (/ & - &2.8036e-01 ,2.2167e-01 ,1.5340e-01 ,8.1865e-02 ,1.9342e-03 /) - kbo(:, 4,30, 8) = (/ & - &3.6796e-01 ,2.9065e-01 ,2.0100e-01 ,1.0707e-01 ,2.3143e-03 /) - kbo(:, 5,30, 8) = (/ & - &4.7407e-01 ,3.7431e-01 ,2.5849e-01 ,1.3745e-01 ,2.7612e-03 /) - kbo(:, 1,31, 8) = (/ & - &1.3611e-01 ,1.0796e-01 ,7.4865e-02 ,4.0122e-02 ,1.0479e-03 /) - kbo(:, 2,31, 8) = (/ & - &1.8611e-01 ,1.4751e-01 ,1.0224e-01 ,5.4734e-02 ,1.2997e-03 /) - kbo(:, 3,31, 8) = (/ & - &2.4882e-01 ,1.9706e-01 ,1.3650e-01 ,7.2954e-02 ,1.5789e-03 /) - kbo(:, 4,31, 8) = (/ & - &3.2631e-01 ,2.5819e-01 ,1.7872e-01 ,9.5286e-02 ,1.8990e-03 /) - kbo(:, 5,31, 8) = (/ & - &4.2088e-01 ,3.3264e-01 ,2.2986e-01 ,1.2231e-01 ,2.2523e-03 /) - kbo(:, 1,32, 8) = (/ & - &1.2210e-01 ,9.6994e-02 ,6.7326e-02 ,3.6123e-02 ,8.5904e-04 /) - kbo(:, 2,32, 8) = (/ & - &1.6652e-01 ,1.3210e-01 ,9.1670e-02 ,4.9107e-02 ,1.0623e-03 /) - kbo(:, 3,32, 8) = (/ & - &2.2222e-01 ,1.7626e-01 ,1.2220e-01 ,6.5357e-02 ,1.2931e-03 /) - kbo(:, 4,32, 8) = (/ & - &2.9160e-01 ,2.3096e-01 ,1.5993e-01 ,8.5342e-02 ,1.5468e-03 /) - kbo(:, 5,32, 8) = (/ & - &3.7617e-01 ,2.9768e-01 ,2.0589e-01 ,1.0971e-01 ,1.8394e-03 /) - kbo(:, 1,33, 8) = (/ & - &1.0986e-01 ,8.7382e-02 ,6.0737e-02 ,3.2609e-02 ,7.0177e-04 /) - kbo(:, 2,33, 8) = (/ & - &1.4961e-01 ,1.1887e-01 ,8.2542e-02 ,4.4260e-02 ,8.6489e-04 /) - kbo(:, 3,33, 8) = (/ & - &1.9974e-01 ,1.5861e-01 ,1.0995e-01 ,5.8836e-02 ,1.0533e-03 /) - kbo(:, 4,33, 8) = (/ & - &2.6219e-01 ,2.0793e-01 ,1.4396e-01 ,7.6884e-02 ,1.2624e-03 /) - kbo(:, 5,33, 8) = (/ & - &3.3855e-01 ,2.6852e-01 ,1.8574e-01 ,9.9060e-02 ,1.4976e-03 /) - kbo(:, 1,34, 8) = (/ & - &9.9355e-02 ,7.9091e-02 ,5.5001e-02 ,2.9534e-02 ,5.8155e-04 /) - kbo(:, 2,34, 8) = (/ & - &1.3530e-01 ,1.0764e-01 ,7.4771e-02 ,4.0076e-02 ,7.1503e-04 /) - kbo(:, 3,34, 8) = (/ & - &1.8087e-01 ,1.4373e-01 ,9.9666e-02 ,5.3339e-02 ,8.6827e-04 /) - kbo(:, 4,34, 8) = (/ & - &2.3750e-01 ,1.8867e-01 ,1.3063e-01 ,6.9822e-02 ,1.0409e-03 /) - kbo(:, 5,34, 8) = (/ & - &3.0762e-01 ,2.4432e-01 ,1.6897e-01 ,9.0140e-02 ,1.2357e-03 /) - kbo(:, 1,35, 8) = (/ & - &8.7519e-02 ,6.9769e-02 ,4.8552e-02 ,2.6085e-02 ,4.6868e-04 /) - kbo(:, 2,35, 8) = (/ & - &1.1953e-01 ,9.5204e-02 ,6.6129e-02 ,3.5470e-02 ,5.7740e-04 /) - kbo(:, 3,35, 8) = (/ & - &1.6035e-01 ,1.2756e-01 ,8.8463e-02 ,4.7361e-02 ,7.0118e-04 /) - kbo(:, 4,35, 8) = (/ & - &2.1123e-01 ,1.6801e-01 ,1.1639e-01 ,6.2235e-02 ,8.4220e-04 /) - kbo(:, 5,35, 8) = (/ & - &2.7484e-01 ,2.1861e-01 ,1.5121e-01 ,8.0717e-02 ,1.0033e-03 /) - kbo(:, 1,36, 8) = (/ & - &7.4849e-02 ,5.9737e-02 ,4.1593e-02 ,2.2353e-02 ,3.6660e-04 /) - kbo(:, 2,36, 8) = (/ & - &1.0278e-01 ,8.1972e-02 ,5.6955e-02 ,3.0544e-02 ,4.5336e-04 /) - kbo(:, 3,36, 8) = (/ & - &1.3843e-01 ,1.1029e-01 ,7.6519e-02 ,4.1000e-02 ,5.5390e-04 /) - kbo(:, 4,36, 8) = (/ & - &1.8385e-01 ,1.4649e-01 ,1.0149e-01 ,5.4257e-02 ,6.6682e-04 /) - kbo(:, 5,36, 8) = (/ & - &2.4059e-01 ,1.9160e-01 ,1.3256e-01 ,7.0808e-02 ,7.9593e-04 /) - kbo(:, 1,37, 8) = (/ & - &6.1778e-02 ,4.9350e-02 ,3.4377e-02 ,1.8481e-02 ,2.8834e-04 /) - kbo(:, 2,37, 8) = (/ & - &8.5595e-02 ,6.8343e-02 ,4.7513e-02 ,2.5474e-02 ,3.5693e-04 /) - kbo(:, 3,37, 8) = (/ & - &1.1627e-01 ,9.2744e-02 ,6.4387e-02 ,3.4481e-02 ,4.3707e-04 /) - kbo(:, 4,37, 8) = (/ & - &1.5562e-01 ,1.2411e-01 ,8.6025e-02 ,4.6007e-02 ,5.2965e-04 /) - kbo(:, 5,37, 8) = (/ & - &2.0514e-01 ,1.6357e-01 ,1.1324e-01 ,6.0461e-02 ,6.3315e-04 /) - kbo(:, 1,38, 8) = (/ & - &5.0881e-02 ,4.0678e-02 ,2.8356e-02 ,1.5247e-02 ,2.2603e-04 /) - kbo(:, 2,38, 8) = (/ & - &7.1115e-02 ,5.6873e-02 ,3.9548e-02 ,2.1211e-02 ,2.8054e-04 /) - kbo(:, 3,38, 8) = (/ & - &9.7490e-02 ,7.7896e-02 ,5.4103e-02 ,2.8959e-02 ,3.4399e-04 /) - kbo(:, 4,38, 8) = (/ & - &1.3157e-01 ,1.0506e-01 ,7.2849e-02 ,3.8945e-02 ,4.1860e-04 /) - kbo(:, 5,38, 8) = (/ & - &1.7483e-01 ,1.3966e-01 ,9.6758e-02 ,5.1645e-02 ,5.0365e-04 /) - kbo(:, 1,39, 8) = (/ & - &4.1872e-02 ,3.3548e-02 ,2.3398e-02 ,1.2576e-02 ,1.7614e-04 /) - kbo(:, 2,39, 8) = (/ & - &5.9094e-02 ,4.7316e-02 ,3.2924e-02 ,1.7662e-02 ,2.1952e-04 /) - kbo(:, 3,39, 8) = (/ & - &8.1814e-02 ,6.5458e-02 ,4.5468e-02 ,2.4343e-02 ,2.7005e-04 /) - kbo(:, 4,39, 8) = (/ & - &1.1129e-01 ,8.9026e-02 ,6.1776e-02 ,3.3031e-02 ,3.3030e-04 /) - kbo(:, 5,39, 8) = (/ & - &1.4922e-01 ,1.1944e-01 ,8.2784e-02 ,4.4132e-02 ,4.0030e-04 /) - kbo(:, 1,40, 8) = (/ & - &3.3647e-02 ,2.6996e-02 ,1.8830e-02 ,1.0123e-02 ,1.3664e-04 /) - kbo(:, 2,40, 8) = (/ & - &4.8077e-02 ,3.8535e-02 ,2.6836e-02 ,1.4394e-02 ,1.7115e-04 /) - kbo(:, 3,40, 8) = (/ & - &6.7356e-02 ,5.3948e-02 ,3.7498e-02 ,2.0063e-02 ,2.1194e-04 /) - kbo(:, 4,40, 8) = (/ & - &9.2612e-02 ,7.4161e-02 ,5.1473e-02 ,2.7514e-02 ,2.6017e-04 /) - kbo(:, 5,40, 8) = (/ & - &1.2534e-01 ,1.0040e-01 ,6.9623e-02 ,3.7148e-02 ,3.1694e-04 /) - kbo(:, 1,41, 8) = (/ & - &2.6919e-02 ,2.1625e-02 ,1.5091e-02 ,8.1073e-03 ,1.0569e-04 /) - kbo(:, 2,41, 8) = (/ & - &3.8959e-02 ,3.1258e-02 ,2.1769e-02 ,1.1674e-02 ,1.3335e-04 /) - kbo(:, 3,41, 8) = (/ & - &5.5227e-02 ,4.4304e-02 ,3.0810e-02 ,1.6485e-02 ,1.6620e-04 /) - kbo(:, 4,41, 8) = (/ & - &7.6819e-02 ,6.1609e-02 ,4.2770e-02 ,2.2843e-02 ,2.0484e-04 /) - kbo(:, 5,41, 8) = (/ & - &1.0504e-01 ,8.4290e-02 ,5.8439e-02 ,3.1171e-02 ,2.5031e-04 /) - kbo(:, 1,42, 8) = (/ & - &2.1470e-02 ,1.7281e-02 ,1.2058e-02 ,6.4788e-03 ,8.1238e-05 /) - kbo(:, 2,42, 8) = (/ & - &3.1494e-02 ,2.5316e-02 ,1.7631e-02 ,9.4523e-03 ,1.0344e-04 /) - kbo(:, 3,42, 8) = (/ & - &4.5222e-02 ,3.6333e-02 ,2.5262e-02 ,1.3522e-02 ,1.2977e-04 /) - kbo(:, 4,42, 8) = (/ & - &6.3644e-02 ,5.1128e-02 ,3.5506e-02 ,1.8951e-02 ,1.6105e-04 /) - kbo(:, 5,42, 8) = (/ & - &8.7974e-02 ,7.0671e-02 ,4.9043e-02 ,2.6143e-02 ,1.9719e-04 /) - kbo(:, 1,43, 8) = (/ & - &1.6861e-02 ,1.3590e-02 ,9.4853e-03 ,5.0945e-03 ,6.1844e-05 /) - kbo(:, 2,43, 8) = (/ & - &2.5102e-02 ,2.0210e-02 ,1.4080e-02 ,7.5450e-03 ,7.9573e-05 /) - kbo(:, 3,43, 8) = (/ & - &3.6570e-02 ,2.9430e-02 ,2.0473e-02 ,1.0954e-02 ,1.0063e-04 /) - kbo(:, 4,43, 8) = (/ & - &5.2231e-02 ,4.1980e-02 ,2.9163e-02 ,1.5562e-02 ,1.2552e-04 /) - kbo(:, 5,43, 8) = (/ & - &7.3055e-02 ,5.8741e-02 ,4.0761e-02 ,2.1719e-02 ,1.5491e-04 /) - kbo(:, 1,44, 8) = (/ & - &1.3112e-02 ,1.0583e-02 ,7.3867e-03 ,3.9656e-03 ,4.6708e-05 /) - kbo(:, 2,44, 8) = (/ & - &1.9838e-02 ,1.5995e-02 ,1.1144e-02 ,5.9703e-03 ,6.0776e-05 /) - kbo(:, 3,44, 8) = (/ & - &2.9345e-02 ,2.3649e-02 ,1.6458e-02 ,8.7984e-03 ,7.7487e-05 /) - kbo(:, 4,44, 8) = (/ & - &4.2542e-02 ,3.4237e-02 ,2.3782e-02 ,1.2696e-02 ,9.7391e-05 /) - kbo(:, 5,44, 8) = (/ & - &6.0327e-02 ,4.8544e-02 ,3.3677e-02 ,1.7934e-02 ,1.2115e-04 /) - kbo(:, 1,45, 8) = (/ & - &1.0146e-02 ,8.1985e-03 ,5.7225e-03 ,3.0712e-03 ,3.5068e-05 /) - kbo(:, 2,45, 8) = (/ & - &1.5607e-02 ,1.2601e-02 ,8.7806e-03 ,4.7019e-03 ,4.6144e-05 /) - kbo(:, 3,45, 8) = (/ & - &2.3451e-02 ,1.8930e-02 ,1.3177e-02 ,7.0434e-03 ,5.9457e-05 /) - kbo(:, 4,45, 8) = (/ & - &3.4514e-02 ,2.7825e-02 ,1.9327e-02 ,1.0311e-02 ,7.5434e-05 /) - kbo(:, 5,45, 8) = (/ & - &4.9675e-02 ,4.0043e-02 ,2.7784e-02 ,1.4786e-02 ,9.4540e-05 /) - kbo(:, 1,46, 8) = (/ & - &7.7351e-03 ,6.2590e-03 ,4.3712e-03 ,2.3470e-03 ,2.6024e-05 /) - kbo(:, 2,46, 8) = (/ & - &1.2117e-02 ,9.8019e-03 ,6.8312e-03 ,3.6581e-03 ,3.4737e-05 /) - kbo(:, 3,46, 8) = (/ & - &1.8521e-02 ,1.4972e-02 ,1.0423e-02 ,5.5707e-03 ,4.5227e-05 /) - kbo(:, 4,46, 8) = (/ & - &2.7718e-02 ,2.2376e-02 ,1.5549e-02 ,8.2942e-03 ,5.8064e-05 /) - kbo(:, 5,46, 8) = (/ & - &4.0521e-02 ,3.2720e-02 ,2.2708e-02 ,1.2084e-02 ,7.3480e-05 /) - kbo(:, 1,47, 8) = (/ & - &5.7592e-03 ,4.6672e-03 ,3.2593e-03 ,1.7501e-03 ,1.9095e-05 /) - kbo(:, 2,47, 8) = (/ & - &9.2060e-03 ,7.4576e-03 ,5.1997e-03 ,2.7848e-03 ,2.5839e-05 /) - kbo(:, 3,47, 8) = (/ & - &1.4346e-02 ,1.1614e-02 ,8.0835e-03 ,4.3208e-03 ,3.4203e-05 /) - kbo(:, 4,47, 8) = (/ & - &2.1845e-02 ,1.7678e-02 ,1.2284e-02 ,6.5493e-03 ,4.4407e-05 /) - kbo(:, 5,47, 8) = (/ & - &3.2496e-02 ,2.6280e-02 ,1.8234e-02 ,9.7018e-03 ,5.6773e-05 /) - kbo(:, 1,48, 8) = (/ & - &4.2511e-03 ,3.4498e-03 ,2.4093e-03 ,1.2936e-03 ,1.3859e-05 /) - kbo(:, 2,48, 8) = (/ & - &6.9347e-03 ,5.6254e-03 ,3.9226e-03 ,2.1019e-03 ,1.9117e-05 /) - kbo(:, 3,48, 8) = (/ & - &1.1018e-02 ,8.9390e-03 ,6.2242e-03 ,3.3284e-03 ,2.5648e-05 /) - kbo(:, 4,48, 8) = (/ & - &1.7113e-02 ,1.3870e-02 ,9.6439e-03 ,5.1401e-03 ,3.3736e-05 /) - kbo(:, 5,48, 8) = (/ & - &2.5919e-02 ,2.1005e-02 ,1.4575e-02 ,7.7539e-03 ,4.3617e-05 /) - kbo(:, 1,49, 8) = (/ & - &3.1098e-03 ,2.5273e-03 ,1.7645e-03 ,9.4708e-04 ,9.9370e-06 /) - kbo(:, 2,49, 8) = (/ & - &5.1784e-03 ,4.2068e-03 ,2.9339e-03 ,1.5725e-03 ,1.3987e-05 /) - kbo(:, 3,49, 8) = (/ & - &8.3947e-03 ,6.8228e-03 ,4.7538e-03 ,2.5418e-03 ,1.9085e-05 /) - kbo(:, 4,49, 8) = (/ & - &1.3293e-02 ,1.0799e-02 ,7.5113e-03 ,4.0058e-03 ,2.5451e-05 /) - kbo(:, 5,49, 8) = (/ & - &2.0521e-02 ,1.6668e-02 ,1.1574e-02 ,6.1522e-03 ,3.3363e-05 /) - kbo(:, 1,50, 8) = (/ & - &2.2918e-03 ,1.8636e-03 ,1.3008e-03 ,6.9789e-04 ,7.1979e-06 /) - kbo(:, 2,50, 8) = (/ & - &3.8913e-03 ,3.1670e-03 ,2.2089e-03 ,1.1842e-03 ,1.0331e-05 /) - kbo(:, 3,50, 8) = (/ & - &6.4390e-03 ,5.2441e-03 ,3.6531e-03 ,1.9538e-03 ,1.4344e-05 /) - kbo(:, 4,50, 8) = (/ & - &1.0397e-02 ,8.4649e-03 ,5.8892e-03 ,3.1423e-03 ,1.9397e-05 /) - kbo(:, 5,50, 8) = (/ & - &1.6371e-02 ,1.3317e-02 ,9.2504e-03 ,4.9185e-03 ,2.5741e-05 /) - kbo(:, 1,51, 8) = (/ & - &1.6928e-03 ,1.3767e-03 ,9.6023e-04 ,5.1382e-04 ,5.2246e-06 /) - kbo(:, 2,51, 8) = (/ & - &2.9272e-03 ,2.3839e-03 ,1.6628e-03 ,8.9103e-04 ,7.6388e-06 /) - kbo(:, 3,51, 8) = (/ & - &4.9429e-03 ,4.0319e-03 ,2.8087e-03 ,1.5020e-03 ,1.0781e-05 /) - kbo(:, 4,51, 8) = (/ & - &8.1364e-03 ,6.6389e-03 ,4.6188e-03 ,2.4654e-03 ,1.4827e-05 /) - kbo(:, 5,51, 8) = (/ & - &1.3068e-02 ,1.0656e-02 ,7.4020e-03 ,3.9372e-03 ,1.9921e-05 /) - kbo(:, 1,52, 8) = (/ & - &1.2399e-03 ,1.0091e-03 ,7.0357e-04 ,3.7650e-04 ,3.7522e-06 /) - kbo(:, 2,52, 8) = (/ & - &2.1899e-03 ,1.7829e-03 ,1.2430e-03 ,6.6579e-04 ,5.6100e-06 /) - kbo(:, 3,52, 8) = (/ & - &3.7665e-03 ,3.0795e-03 ,2.1447e-03 ,1.1464e-03 ,8.0632e-06 /) - kbo(:, 4,52, 8) = (/ & - &6.3261e-03 ,5.1729e-03 ,3.5994e-03 ,1.9224e-03 ,1.1265e-05 /) - kbo(:, 5,52, 8) = (/ & - &1.0363e-02 ,8.4710e-03 ,5.8842e-03 ,3.1302e-03 ,1.5370e-05 /) - kbo(:, 1,53, 8) = (/ & - &9.0216e-04 ,7.3408e-04 ,5.1164e-04 ,2.7340e-04 ,2.6590e-06 /) - kbo(:, 2,53, 8) = (/ & - &1.6262e-03 ,1.3270e-03 ,9.2425e-04 ,4.9425e-04 ,4.0810e-06 /) - kbo(:, 3,53, 8) = (/ & - &2.8513e-03 ,2.3327e-03 ,1.6237e-03 ,8.6789e-04 ,5.9668e-06 /) - kbo(:, 4,53, 8) = (/ & - &4.8843e-03 ,4.0007e-03 ,2.7846e-03 ,1.4866e-03 ,8.4879e-06 /) - kbo(:, 5,53, 8) = (/ & - &8.1619e-03 ,6.6885e-03 ,4.6478e-03 ,2.4735e-03 ,1.1744e-05 /) - kbo(:, 1,54, 8) = (/ & - &6.6939e-04 ,5.4497e-04 ,3.7910e-04 ,2.0225e-04 ,1.9239e-06 /) - kbo(:, 2,54, 8) = (/ & - &1.2278e-03 ,1.0030e-03 ,6.9836e-04 ,3.7314e-04 ,3.0194e-06 /) - kbo(:, 3,54, 8) = (/ & - &2.1984e-03 ,1.7996e-03 ,1.2511e-03 ,6.6777e-04 ,4.5056e-06 /) - kbo(:, 4,54, 8) = (/ & - &3.8331e-03 ,3.1457e-03 ,2.1886e-03 ,1.1687e-03 ,6.4964e-06 /) - kbo(:, 5,54, 8) = (/ & - &6.5432e-03 ,5.3709e-03 ,3.7307e-03 ,1.9859e-03 ,9.1107e-06 /) - kbo(:, 1,55, 8) = (/ & - &5.0111e-04 ,4.0755e-04 ,2.8321e-04 ,1.5081e-04 ,1.4025e-06 /) - kbo(:, 2,55, 8) = (/ & - &9.3502e-04 ,7.6365e-04 ,5.3113e-04 ,2.8338e-04 ,2.2498e-06 /) - kbo(:, 3,55, 8) = (/ & - &1.7077e-03 ,1.3993e-03 ,9.7261e-04 ,5.1891e-04 ,3.4289e-06 /) - kbo(:, 4,55, 8) = (/ & - &3.0342e-03 ,2.4941e-03 ,1.7338e-03 ,9.2454e-04 ,5.0131e-06 /) - kbo(:, 5,55, 8) = (/ & - &5.2834e-03 ,4.3447e-03 ,3.0182e-03 ,1.6053e-03 ,7.1210e-06 /) - kbo(:, 1,56, 8) = (/ & - &3.7616e-04 ,3.0519e-04 ,2.1170e-04 ,1.1247e-04 ,1.0140e-06 /) - kbo(:, 2,56, 8) = (/ & - &7.1281e-04 ,5.8173e-04 ,4.0420e-04 ,2.1505e-04 ,1.6673e-06 /) - kbo(:, 3,56, 8) = (/ & - &1.3229e-03 ,1.0846e-03 ,7.5367e-04 ,4.0126e-04 ,2.5921e-06 /) - kbo(:, 4,56, 8) = (/ & - &2.4034e-03 ,1.9754e-03 ,1.3714e-03 ,7.3027e-04 ,3.8577e-06 /) - kbo(:, 5,56, 8) = (/ & - &4.2589e-03 ,3.5089e-03 ,2.4364e-03 ,1.2956e-03 ,5.5656e-06 /) - kbo(:, 1,57, 8) = (/ & - &2.8163e-04 ,2.2851e-04 ,1.5825e-04 ,8.3801e-05 ,7.2920e-07 /) - kbo(:, 2,57, 8) = (/ & - &5.4316e-04 ,4.4288e-04 ,3.0736e-04 ,1.6324e-04 ,1.2275e-06 /) - kbo(:, 3,57, 8) = (/ & - &1.0242e-03 ,8.3907e-04 ,5.8250e-04 ,3.0984e-04 ,1.9504e-06 /) - kbo(:, 4,57, 8) = (/ & - &1.8977e-03 ,1.5630e-03 ,1.0848e-03 ,5.7691e-04 ,2.9526e-06 /) - kbo(:, 5,57, 8) = (/ & - &3.4290e-03 ,2.8298e-03 ,1.9639e-03 ,1.0437e-03 ,4.3203e-06 /) - kbo(:, 1,58, 8) = (/ & - &1.0299e-04 ,9.5896e-05 ,7.7844e-05 ,4.9788e-05 ,5.2623e-07 /) - kbo(:, 2,58, 8) = (/ & - &2.0307e-04 ,1.9013e-04 ,1.5450e-04 ,9.9035e-05 ,9.0616e-07 /) - kbo(:, 3,58, 8) = (/ & - &3.8839e-04 ,3.6515e-04 ,2.9695e-04 ,1.9078e-04 ,1.4737e-06 /) - kbo(:, 4,58, 8) = (/ & - &7.3294e-04 ,6.9303e-04 ,5.6426e-04 ,3.6255e-04 ,2.2710e-06 /) - kbo(:, 5,58, 8) = (/ & - &1.3532e-03 ,1.2806e-03 ,1.0426e-03 ,6.7017e-04 ,3.3698e-06 /) - kbo(:, 1,59, 8) = (/ & - &8.5450e-05 ,7.9848e-05 ,6.5073e-05 ,4.1875e-05 ,4.3253e-07 /) - kbo(:, 2,59, 8) = (/ & - &1.7170e-04 ,1.6133e-04 ,1.3170e-04 ,8.4866e-05 ,7.5223e-07 /) - kbo(:, 3,59, 8) = (/ & - &3.3324e-04 ,3.1480e-04 ,2.5716e-04 ,1.6610e-04 ,1.2329e-06 /) - kbo(:, 4,59, 8) = (/ & - &6.4000e-04 ,6.0786e-04 ,4.9691e-04 ,3.2112e-04 ,1.9165e-06 /) - kbo(:, 5,59, 8) = (/ & - &1.2020e-03 ,1.1456e-03 ,9.3584e-04 ,6.0398e-04 ,2.8638e-06 /) - kbo(:, 1,13, 9) = (/ & - &7.4699e+00 ,5.6062e+00 ,3.7650e+00 ,1.9560e+00 ,8.5273e-02 /) - kbo(:, 2,13, 9) = (/ & - &1.0680e+01 ,8.0165e+00 ,5.3854e+00 ,2.8036e+00 ,1.0411e-01 /) - kbo(:, 3,13, 9) = (/ & - &1.4623e+01 ,1.0976e+01 ,7.3752e+00 ,3.8391e+00 ,1.2390e-01 /) - kbo(:, 4,13, 9) = (/ & - &1.9264e+01 ,1.4459e+01 ,9.7226e+00 ,5.0654e+00 ,1.4616e-01 /) - kbo(:, 5,13, 9) = (/ & - &2.4629e+01 ,1.8491e+01 ,1.2437e+01 ,6.4792e+00 ,1.7014e-01 /) - kbo(:, 1,14, 9) = (/ & - &6.8938e+00 ,5.1783e+00 ,3.4875e+00 ,1.8264e+00 ,7.6714e-02 /) - kbo(:, 2,14, 9) = (/ & - &9.8527e+00 ,7.4006e+00 ,4.9851e+00 ,2.6106e+00 ,9.2077e-02 /) - kbo(:, 3,14, 9) = (/ & - &1.3464e+01 ,1.0115e+01 ,6.8188e+00 ,3.5707e+00 ,1.0926e-01 /) - kbo(:, 4,14, 9) = (/ & - &1.7717e+01 ,1.3311e+01 ,8.9749e+00 ,4.7000e+00 ,1.2815e-01 /) - kbo(:, 5,14, 9) = (/ & - &2.2681e+01 ,1.7041e+01 ,1.1492e+01 ,6.0178e+00 ,1.4885e-01 /) - kbo(:, 1,15, 9) = (/ & - &6.1047e+00 ,4.5908e+00 ,3.1074e+00 ,1.6392e+00 ,6.2768e-02 /) - kbo(:, 2,15, 9) = (/ & - &8.7019e+00 ,6.5442e+00 ,4.4301e+00 ,2.3356e+00 ,7.5768e-02 /) - kbo(:, 3,15, 9) = (/ & - &1.1847e+01 ,8.9091e+00 ,6.0354e+00 ,3.1840e+00 ,9.0152e-02 /) - kbo(:, 4,15, 9) = (/ & - &1.5627e+01 ,1.1753e+01 ,7.9592e+00 ,4.1918e+00 ,1.0596e-01 /) - kbo(:, 5,15, 9) = (/ & - &2.0065e+01 ,1.5096e+01 ,1.0229e+01 ,5.3867e+00 ,1.2348e-01 /) - kbo(:, 1,16, 9) = (/ & - &5.2710e+00 ,3.9706e+00 ,2.7052e+00 ,1.4383e+00 ,5.0640e-02 /) - kbo(:, 2,16, 9) = (/ & - &7.4843e+00 ,5.6386e+00 ,3.8435e+00 ,2.0428e+00 ,6.0690e-02 /) - kbo(:, 3,16, 9) = (/ & - &1.0203e+01 ,7.6869e+00 ,5.2380e+00 ,2.7809e+00 ,7.2017e-02 /) - kbo(:, 4,16, 9) = (/ & - &1.3478e+01 ,1.0155e+01 ,6.9170e+00 ,3.6687e+00 ,8.5243e-02 /) - kbo(:, 5,16, 9) = (/ & - &1.7365e+01 ,1.3088e+01 ,8.9123e+00 ,4.7182e+00 ,9.9040e-02 /) - kbo(:, 1,17, 9) = (/ & - &4.4902e+00 ,3.3911e+00 ,2.3244e+00 ,1.2481e+00 ,4.0283e-02 /) - kbo(:, 2,17, 9) = (/ & - &6.3739e+00 ,4.8152e+00 ,3.3005e+00 ,1.7693e+00 ,4.9025e-02 /) - kbo(:, 3,17, 9) = (/ & - &8.7028e+00 ,6.5740e+00 ,4.5022e+00 ,2.4070e+00 ,5.9283e-02 /) - kbo(:, 4,17, 9) = (/ & - &1.1530e+01 ,8.7139e+00 ,5.9683e+00 ,3.1839e+00 ,7.0217e-02 /) - kbo(:, 5,17, 9) = (/ & - &1.4910e+01 ,1.1266e+01 ,7.7058e+00 ,4.0973e+00 ,8.1092e-02 /) - kbo(:, 1,18, 9) = (/ & - &3.7512e+00 ,2.8459e+00 ,1.9612e+00 ,1.0622e+00 ,3.4382e-02 /) - kbo(:, 2,18, 9) = (/ & - &5.3265e+00 ,4.0412e+00 ,2.7835e+00 ,1.5026e+00 ,4.2209e-02 /) - kbo(:, 3,18, 9) = (/ & - &7.2937e+00 ,5.5341e+00 ,3.8093e+00 ,2.0485e+00 ,5.1165e-02 /) - kbo(:, 4,18, 9) = (/ & - &9.7044e+00 ,7.3625e+00 ,5.0637e+00 ,2.7136e+00 ,6.0247e-02 /) - kbo(:, 5,18, 9) = (/ & - &1.2597e+01 ,9.5561e+00 ,6.5653e+00 ,3.5052e+00 ,7.0721e-02 /) - kbo(:, 1,19, 9) = (/ & - &3.1949e+00 ,2.4358e+00 ,1.6862e+00 ,9.1523e-01 ,2.9755e-02 /) - kbo(:, 2,19, 9) = (/ & - &4.5382e+00 ,3.4601e+00 ,2.3940e+00 ,1.2945e+00 ,3.7026e-02 /) - kbo(:, 3,19, 9) = (/ & - &6.2344e+00 ,4.7532e+00 ,3.2851e+00 ,1.7697e+00 ,4.5045e-02 /) - kbo(:, 4,19, 9) = (/ & - &8.3349e+00 ,6.3521e+00 ,4.3827e+00 ,2.3518e+00 ,5.3532e-02 /) - kbo(:, 5,19, 9) = (/ & - &1.0858e+01 ,8.2689e+00 ,5.6978e+00 ,3.0490e+00 ,6.2338e-02 /) - kbo(:, 1,20, 9) = (/ & - &2.7983e+00 ,2.1430e+00 ,1.4907e+00 ,8.0787e-01 ,2.6638e-02 /) - kbo(:, 2,20, 9) = (/ & - &3.9801e+00 ,3.0473e+00 ,2.1167e+00 ,1.1423e+00 ,3.3344e-02 /) - kbo(:, 3,20, 9) = (/ & - &5.4854e+00 ,4.1978e+00 ,2.9095e+00 ,1.5650e+00 ,4.0067e-02 /) - kbo(:, 4,20, 9) = (/ & - &7.3522e+00 ,5.6240e+00 ,3.8910e+00 ,2.0868e+00 ,4.7603e-02 /) - kbo(:, 5,20, 9) = (/ & - &9.6006e+00 ,7.3375e+00 ,5.0662e+00 ,2.7087e+00 ,5.5504e-02 /) - kbo(:, 1,21, 9) = (/ & - &2.4723e+00 ,1.9017e+00 ,1.3269e+00 ,7.1717e-01 ,2.3842e-02 /) - kbo(:, 2,21, 9) = (/ & - &3.5234e+00 ,2.7089e+00 ,1.8854e+00 ,1.0156e+00 ,2.9423e-02 /) - kbo(:, 3,21, 9) = (/ & - &4.8624e+00 ,3.7359e+00 ,2.5948e+00 ,1.3934e+00 ,3.5538e-02 /) - kbo(:, 4,21, 9) = (/ & - &6.5245e+00 ,5.0095e+00 ,3.4715e+00 ,1.8586e+00 ,4.1992e-02 /) - kbo(:, 5,21, 9) = (/ & - &8.5269e+00 ,6.5419e+00 ,4.5264e+00 ,2.4180e+00 ,4.9380e-02 /) - kbo(:, 1,22, 9) = (/ & - &2.2453e+00 ,1.7353e+00 ,1.2110e+00 ,6.5234e-01 ,2.1295e-02 /) - kbo(:, 2,22, 9) = (/ & - &3.1933e+00 ,2.4664e+00 ,1.7176e+00 ,9.2252e-01 ,2.6174e-02 /) - kbo(:, 3,22, 9) = (/ & - &4.4012e+00 ,3.3958e+00 ,2.3595e+00 ,1.2638e+00 ,3.1657e-02 /) - kbo(:, 4,22, 9) = (/ & - &5.8834e+00 ,4.5350e+00 ,3.1467e+00 ,1.6824e+00 ,3.7644e-02 /) - kbo(:, 5,22, 9) = (/ & - &7.6501e+00 ,5.8912e+00 ,4.0828e+00 ,2.1806e+00 ,4.4263e-02 /) - kbo(:, 1,23, 9) = (/ & - &2.0571e+00 ,1.5967e+00 ,1.1115e+00 ,5.9605e-01 ,1.8827e-02 /) - kbo(:, 2,23, 9) = (/ & - &2.9057e+00 ,2.2535e+00 ,1.5681e+00 ,8.3999e-01 ,2.3337e-02 /) - kbo(:, 3,23, 9) = (/ & - &3.9800e+00 ,3.0833e+00 ,2.1434e+00 ,1.1464e+00 ,2.8190e-02 /) - kbo(:, 4,23, 9) = (/ & - &5.2885e+00 ,4.0922e+00 ,2.8421e+00 ,1.5182e+00 ,3.3828e-02 /) - kbo(:, 5,23, 9) = (/ & - &6.8471e+00 ,5.2918e+00 ,3.6724e+00 ,1.9594e+00 ,3.9956e-02 /) - kbo(:, 1,24, 9) = (/ & - &1.9070e+00 ,1.4857e+00 ,1.0329e+00 ,5.5181e-01 ,1.6663e-02 /) - kbo(:, 2,24, 9) = (/ & - &2.6677e+00 ,2.0773e+00 ,1.4448e+00 ,7.7214e-01 ,2.0662e-02 /) - kbo(:, 3,24, 9) = (/ & - &3.6252e+00 ,2.8187e+00 ,1.9595e+00 ,1.0463e+00 ,2.5179e-02 /) - kbo(:, 4,24, 9) = (/ & - &4.7921e+00 ,3.7213e+00 ,2.5847e+00 ,1.3784e+00 ,3.0300e-02 /) - kbo(:, 5,24, 9) = (/ & - &6.1875e+00 ,4.7981e+00 ,3.3299e+00 ,1.7738e+00 ,3.5858e-02 /) - kbo(:, 1,25, 9) = (/ & - &1.7679e+00 ,1.3823e+00 ,9.6005e-01 ,5.1215e-01 ,1.4756e-02 /) - kbo(:, 2,25, 9) = (/ & - &2.4506e+00 ,1.9149e+00 ,1.3310e+00 ,7.1009e-01 ,1.8413e-02 /) - kbo(:, 3,25, 9) = (/ & - &3.3092e+00 ,2.5821e+00 ,1.7930e+00 ,9.5566e-01 ,2.2613e-02 /) - kbo(:, 4,25, 9) = (/ & - &4.3581e+00 ,3.3956e+00 ,2.3561e+00 ,1.2539e+00 ,2.7407e-02 /) - kbo(:, 5,25, 9) = (/ & - &5.6148e+00 ,4.3684e+00 ,3.0296e+00 ,1.6108e+00 ,3.2730e-02 /) - kbo(:, 1,26, 9) = (/ & - &1.6550e+00 ,1.2970e+00 ,8.9910e-01 ,4.7856e-01 ,1.3235e-02 /) - kbo(:, 2,26, 9) = (/ & - &2.2724e+00 ,1.7804e+00 ,1.2348e+00 ,6.5702e-01 ,1.6632e-02 /) - kbo(:, 3,26, 9) = (/ & - &3.0501e+00 ,2.3862e+00 ,1.6545e+00 ,8.7945e-01 ,2.0602e-02 /) - kbo(:, 4,26, 9) = (/ & - &3.9998e+00 ,3.1253e+00 ,2.1658e+00 ,1.1505e+00 ,2.5120e-02 /) - kbo(:, 5,26, 9) = (/ & - &5.1417e+00 ,4.0125e+00 ,2.7805e+00 ,1.4756e+00 ,3.0188e-02 /) - kbo(:, 1,27, 9) = (/ & - &1.5517e+00 ,1.2181e+00 ,8.4303e-01 ,4.4762e-01 ,1.1922e-02 /) - kbo(:, 2,27, 9) = (/ & - &2.1187e+00 ,1.6625e+00 ,1.1508e+00 ,6.1078e-01 ,1.5090e-02 /) - kbo(:, 3,27, 9) = (/ & - &2.8285e+00 ,2.2174e+00 ,1.5344e+00 ,8.1390e-01 ,1.8733e-02 /) - kbo(:, 4,27, 9) = (/ & - &3.6946e+00 ,2.8938e+00 ,2.0026e+00 ,1.0611e+00 ,2.2964e-02 /) - kbo(:, 5,27, 9) = (/ & - &4.7297e+00 ,3.7026e+00 ,2.5639e+00 ,1.3585e+00 ,2.7799e-02 /) - kbo(:, 1,28, 9) = (/ & - &1.4557e+00 ,1.1450e+00 ,7.9124e-01 ,4.1922e-01 ,1.0671e-02 /) - kbo(:, 2,28, 9) = (/ & - &1.9807e+00 ,1.5572e+00 ,1.0762e+00 ,5.7024e-01 ,1.3585e-02 /) - kbo(:, 3,28, 9) = (/ & - &2.6353e+00 ,2.0694e+00 ,1.4297e+00 ,7.5652e-01 ,1.7012e-02 /) - kbo(:, 4,28, 9) = (/ & - &3.4268e+00 ,2.6900e+00 ,1.8600e+00 ,9.8357e-01 ,2.1005e-02 /) - kbo(:, 5,28, 9) = (/ & - &4.3754e+00 ,3.4337e+00 ,2.3745e+00 ,1.2550e+00 ,2.5556e-02 /) - kbo(:, 1,29, 9) = (/ & - &1.3575e+00 ,1.0707e+00 ,7.3899e-01 ,3.9163e-01 ,9.5187e-03 /) - kbo(:, 2,29, 9) = (/ & - &1.8443e+00 ,1.4534e+00 ,1.0029e+00 ,5.3089e-01 ,1.2207e-02 /) - kbo(:, 3,29, 9) = (/ & - &2.4443e+00 ,1.9245e+00 ,1.3293e+00 ,7.0249e-01 ,1.5292e-02 /) - kbo(:, 4,29, 9) = (/ & - &3.1715e+00 ,2.4958e+00 ,1.7237e+00 ,9.1036e-01 ,1.8851e-02 /) - kbo(:, 5,29, 9) = (/ & - &4.0410e+00 ,3.1790e+00 ,2.1964e+00 ,1.1590e+00 ,2.3121e-02 /) - kbo(:, 1,30, 9) = (/ & - &1.2615e+00 ,9.9705e-01 ,6.8810e-01 ,3.6451e-01 ,8.4241e-03 /) - kbo(:, 2,30, 9) = (/ & - &1.7102e+00 ,1.3510e+00 ,9.3203e-01 ,4.9262e-01 ,1.0769e-02 /) - kbo(:, 3,30, 9) = (/ & - &2.2602e+00 ,1.7845e+00 ,1.2315e+00 ,6.5024e-01 ,1.3569e-02 /) - kbo(:, 4,30, 9) = (/ & - &2.9275e+00 ,2.3103e+00 ,1.5947e+00 ,8.4085e-01 ,1.6868e-02 /) - kbo(:, 5,30, 9) = (/ & - &3.7272e+00 ,2.9401e+00 ,2.0301e+00 ,1.0701e+00 ,2.0720e-02 /) - kbo(:, 1,31, 9) = (/ & - &1.1628e+00 ,9.2130e-01 ,6.3548e-01 ,3.3629e-01 ,7.3212e-03 /) - kbo(:, 2,31, 9) = (/ & - &1.5710e+00 ,1.2442e+00 ,8.5840e-01 ,4.5341e-01 ,9.4089e-03 /) - kbo(:, 3,31, 9) = (/ & - &2.0741e+00 ,1.6418e+00 ,1.1326e+00 ,5.9743e-01 ,1.1908e-02 /) - kbo(:, 4,31, 9) = (/ & - &2.6838e+00 ,2.1236e+00 ,1.4650e+00 ,7.7246e-01 ,1.4841e-02 /) - kbo(:, 5,31, 9) = (/ & - &3.4158e+00 ,2.7036e+00 ,1.8662e+00 ,9.8360e-01 ,1.8280e-02 /) - kbo(:, 1,32, 9) = (/ & - &1.0770e+00 ,8.5530e-01 ,5.8998e-01 ,3.1205e-01 ,6.3886e-03 /) - kbo(:, 2,32, 9) = (/ & - &1.4521e+00 ,1.1529e+00 ,7.9467e-01 ,4.1942e-01 ,8.2479e-03 /) - kbo(:, 3,32, 9) = (/ & - &1.9141e+00 ,1.5187e+00 ,1.0473e+00 ,5.5229e-01 ,1.0468e-02 /) - kbo(:, 4,32, 9) = (/ & - &2.4773e+00 ,1.9665e+00 ,1.3565e+00 ,7.1494e-01 ,1.3077e-02 /) - kbo(:, 5,32, 9) = (/ & - &3.1536e+00 ,2.5044e+00 ,1.7279e+00 ,9.1011e-01 ,1.6196e-02 /) - kbo(:, 1,33, 9) = (/ & - &1.0004e+00 ,7.9686e-01 ,5.4943e-01 ,2.9036e-01 ,5.6169e-03 /) - kbo(:, 2,33, 9) = (/ & - &1.3472e+00 ,1.0720e+00 ,7.3887e-01 ,3.9002e-01 ,7.2464e-03 /) - kbo(:, 3,33, 9) = (/ & - &1.7767e+00 ,1.4145e+00 ,9.7493e-01 ,5.1400e-01 ,9.1682e-03 /) - kbo(:, 4,33, 9) = (/ & - &2.3006e+00 ,1.8321e+00 ,1.2634e+00 ,6.6568e-01 ,1.1493e-02 /) - kbo(:, 5,33, 9) = (/ & - &2.9306e+00 ,2.3339e+00 ,1.6102e+00 ,8.4827e-01 ,1.4147e-02 /) - kbo(:, 1,34, 9) = (/ & - &9.3256e-01 ,7.4416e-01 ,5.1264e-01 ,2.7079e-01 ,4.9465e-03 /) - kbo(:, 2,34, 9) = (/ & - &1.2561e+00 ,1.0020e+00 ,6.9034e-01 ,3.6434e-01 ,6.3960e-03 /) - kbo(:, 3,34, 9) = (/ & - &1.6587e+00 ,1.3239e+00 ,9.1206e-01 ,4.8092e-01 ,8.1576e-03 /) - kbo(:, 4,34, 9) = (/ & - &2.1501e+00 ,1.7167e+00 ,1.1837e+00 ,6.2351e-01 ,1.0194e-02 /) - kbo(:, 5,34, 9) = (/ & - &2.7413e+00 ,2.1905e+00 ,1.5115e+00 ,7.9635e-01 ,1.2542e-02 /) - kbo(:, 1,35, 9) = (/ & - &8.4840e-01 ,6.7846e-01 ,4.6725e-01 ,2.4678e-01 ,4.2581e-03 /) - kbo(:, 2,35, 9) = (/ & - &1.1466e+00 ,9.1713e-01 ,6.3179e-01 ,3.3319e-01 ,5.5317e-03 /) - kbo(:, 3,35, 9) = (/ & - &1.5185e+00 ,1.2151e+00 ,8.3727e-01 ,4.4133e-01 ,7.0625e-03 /) - kbo(:, 4,35, 9) = (/ & - &1.9737e+00 ,1.5810e+00 ,1.0899e+00 ,5.7421e-01 ,8.8571e-03 /) - kbo(:, 5,35, 9) = (/ & - &2.5262e+00 ,2.0251e+00 ,1.3975e+00 ,7.3625e-01 ,1.0897e-02 /) - kbo(:, 1,36, 9) = (/ & - &7.5165e-01 ,6.0226e-01 ,4.1465e-01 ,2.1892e-01 ,3.5512e-03 /) - kbo(:, 2,36, 9) = (/ & - &1.0210e+00 ,8.1866e-01 ,5.6371e-01 ,2.9729e-01 ,4.6496e-03 /) - kbo(:, 3,36, 9) = (/ & - &1.3584e+00 ,1.0902e+00 ,7.5109e-01 ,3.9583e-01 ,5.9580e-03 /) - kbo(:, 4,36, 9) = (/ & - &1.7752e+00 ,1.4261e+00 ,9.8305e-01 ,5.1817e-01 ,7.4947e-03 /) - kbo(:, 5,36, 9) = (/ & - &2.2842e+00 ,1.8370e+00 ,1.2679e+00 ,6.6806e-01 ,9.2616e-03 /) - kbo(:, 1,37, 9) = (/ & - &6.4071e-01 ,5.1457e-01 ,3.5423e-01 ,1.8691e-01 ,2.9273e-03 /) - kbo(:, 2,37, 9) = (/ & - &8.7819e-01 ,7.0566e-01 ,4.8576e-01 ,2.5612e-01 ,3.8482e-03 /) - kbo(:, 3,37, 9) = (/ & - &1.1781e+00 ,9.4755e-01 ,6.5255e-01 ,3.4395e-01 ,4.9507e-03 /) - kbo(:, 4,37, 9) = (/ & - &1.5513e+00 ,1.2498e+00 ,8.6132e-01 ,4.5404e-01 ,6.2679e-03 /) - kbo(:, 5,37, 9) = (/ & - &2.0117e+00 ,1.6227e+00 ,1.1201e+00 ,5.9042e-01 ,7.7688e-03 /) - kbo(:, 1,38, 9) = (/ & - &5.4507e-01 ,4.3885e-01 ,3.0197e-01 ,1.5934e-01 ,2.3915e-03 /) - kbo(:, 2,38, 9) = (/ & - &7.5435e-01 ,6.0772e-01 ,4.1826e-01 ,2.2053e-01 ,3.1638e-03 /) - kbo(:, 3,38, 9) = (/ & - &1.0211e+00 ,8.2323e-01 ,5.6695e-01 ,2.9883e-01 ,4.0903e-03 /) - kbo(:, 4,38, 9) = (/ & - &1.3557e+00 ,1.0950e+00 ,7.5476e-01 ,3.9799e-01 ,5.2077e-03 /) - kbo(:, 5,38, 9) = (/ & - &1.7730e+00 ,1.4345e+00 ,9.9017e-01 ,5.2203e-01 ,6.5004e-03 /) - kbo(:, 1,39, 9) = (/ & - &4.6353e-01 ,3.7406e-01 ,2.5754e-01 ,1.3588e-01 ,1.9343e-03 /) - kbo(:, 2,39, 9) = (/ & - &6.4812e-01 ,5.2360e-01 ,3.6039e-01 ,1.9002e-01 ,2.5847e-03 /) - kbo(:, 3,39, 9) = (/ & - &8.8607e-01 ,7.1665e-01 ,4.9365e-01 ,2.6013e-01 ,3.3630e-03 /) - kbo(:, 4,39, 9) = (/ & - &1.1877e+00 ,9.6199e-01 ,6.6338e-01 ,3.4986e-01 ,4.2963e-03 /) - kbo(:, 5,39, 9) = (/ & - &1.5671e+00 ,1.2712e+00 ,8.7761e-01 ,4.6286e-01 ,5.3839e-03 /) - kbo(:, 1,40, 9) = (/ & - &3.8448e-01 ,3.1107e-01 ,2.1410e-01 ,1.1297e-01 ,1.5568e-03 /) - kbo(:, 2,40, 9) = (/ & - &5.4501e-01 ,4.4126e-01 ,3.0380e-01 ,1.6009e-01 ,2.1042e-03 /) - kbo(:, 3,40, 9) = (/ & - &7.5403e-01 ,6.1132e-01 ,4.2098e-01 ,2.2180e-01 ,2.7494e-03 /) - kbo(:, 4,40, 9) = (/ & - &1.0220e+00 ,8.2995e-01 ,5.7215e-01 ,3.0165e-01 ,3.5443e-03 /) - kbo(:, 5,40, 9) = (/ & - &1.3627e+00 ,1.1080e+00 ,7.6492e-01 ,4.0348e-01 ,4.4643e-03 /) - kbo(:, 1,41, 9) = (/ & - &3.1745e-01 ,2.5733e-01 ,1.7713e-01 ,9.3436e-02 ,1.2472e-03 /) - kbo(:, 2,41, 9) = (/ & - &4.5638e-01 ,3.7042e-01 ,2.5491e-01 ,1.3436e-01 ,1.6993e-03 /) - kbo(:, 3,41, 9) = (/ & - &6.3982e-01 ,5.1972e-01 ,3.5784e-01 ,1.8851e-01 ,2.2393e-03 /) - kbo(:, 4,41, 9) = (/ & - &8.7763e-01 ,7.1397e-01 ,4.9232e-01 ,2.5948e-01 ,2.9086e-03 /) - kbo(:, 5,41, 9) = (/ & - &1.1829e+00 ,9.6420e-01 ,6.6569e-01 ,3.5114e-01 ,3.6948e-03 /) - kbo(:, 1,42, 9) = (/ & - &2.6148e-01 ,2.1244e-01 ,1.4620e-01 ,7.7106e-02 ,9.9249e-04 /) - kbo(:, 2,42, 9) = (/ & - &3.8152e-01 ,3.1036e-01 ,2.1367e-01 ,1.1258e-01 ,1.3669e-03 /) - kbo(:, 3,42, 9) = (/ & - &5.4219e-01 ,4.4152e-01 ,3.0416e-01 ,1.6017e-01 ,1.8223e-03 /) - kbo(:, 4,42, 9) = (/ & - &7.5310e-01 ,6.1412e-01 ,4.2345e-01 ,2.2321e-01 ,2.3766e-03 /) - kbo(:, 5,42, 9) = (/ & - &1.0272e+00 ,8.3945e-01 ,5.7960e-01 ,3.0577e-01 ,3.0463e-03 /) - kbo(:, 1,43, 9) = (/ & - &2.1184e-01 ,1.7233e-01 ,1.1866e-01 ,6.2577e-02 ,7.7589e-04 /) - kbo(:, 2,43, 9) = (/ & - &3.1451e-01 ,2.5652e-01 ,1.7660e-01 ,9.2987e-02 ,1.0831e-03 /) - kbo(:, 3,43, 9) = (/ & - &4.5438e-01 ,3.7074e-01 ,2.5543e-01 ,1.3448e-01 ,1.4611e-03 /) - kbo(:, 4,43, 9) = (/ & - &6.4007e-01 ,5.2328e-01 ,3.6079e-01 ,1.9007e-01 ,1.9178e-03 /) - kbo(:, 5,43, 9) = (/ & - &8.8479e-01 ,7.2477e-01 ,5.0046e-01 ,2.6398e-01 ,2.4774e-03 /) - kbo(:, 1,44, 9) = (/ & - &1.6982e-01 ,1.3846e-01 ,9.5299e-02 ,5.0248e-02 ,5.9857e-04 /) - kbo(:, 2,44, 9) = (/ & - &2.5706e-01 ,2.1005e-01 ,1.4462e-01 ,7.6126e-02 ,8.4785e-04 /) - kbo(:, 3,44, 9) = (/ & - &3.7786e-01 ,3.0904e-01 ,2.1286e-01 ,1.1204e-01 ,1.1605e-03 /) - kbo(:, 4,44, 9) = (/ & - &5.4071e-01 ,4.4303e-01 ,3.0555e-01 ,1.6090e-01 ,1.5453e-03 /) - kbo(:, 5,44, 9) = (/ & - &7.5841e-01 ,6.2258e-01 ,4.2996e-01 ,2.2675e-01 ,1.9959e-03 /) - kbo(:, 1,45, 9) = (/ & - &1.3545e-01 ,1.1062e-01 ,7.6155e-02 ,4.0151e-02 ,4.5711e-04 /) - kbo(:, 2,45, 9) = (/ & - &2.0919e-01 ,1.7120e-01 ,1.1790e-01 ,6.2073e-02 ,6.5798e-04 /) - kbo(:, 3,45, 9) = (/ & - &3.1316e-01 ,2.5663e-01 ,1.7679e-01 ,9.2995e-02 ,9.1164e-04 /) - kbo(:, 4,45, 9) = (/ & - &4.5567e-01 ,3.7416e-01 ,2.5813e-01 ,1.3590e-01 ,1.2287e-03 /) - kbo(:, 5,45, 9) = (/ & - &6.4919e-01 ,5.3401e-01 ,3.6882e-01 ,1.9448e-01 ,1.6029e-03 /) - kbo(:, 1,46, 9) = (/ & - &1.0668e-01 ,8.7165e-02 ,6.0007e-02 ,3.1628e-02 ,3.4444e-04 /) - kbo(:, 2,46, 9) = (/ & - &1.6793e-01 ,1.3770e-01 ,9.4805e-02 ,4.9929e-02 ,5.0372e-04 /) - kbo(:, 3,46, 9) = (/ & - &2.5640e-01 ,2.1057e-01 ,1.4511e-01 ,7.6324e-02 ,7.0786e-04 /) - kbo(:, 4,46, 9) = (/ & - &3.8014e-01 ,3.1276e-01 ,2.1587e-01 ,1.1362e-01 ,9.6784e-04 /) - kbo(:, 5,46, 9) = (/ & - &5.5078e-01 ,4.5406e-01 ,3.1364e-01 ,1.6534e-01 ,1.2803e-03 /) - kbo(:, 1,47, 9) = (/ & - &8.2159e-02 ,6.7194e-02 ,4.6255e-02 ,2.4369e-02 ,2.5696e-04 /) - kbo(:, 2,47, 9) = (/ & - &1.3183e-01 ,1.0829e-01 ,7.4558e-02 ,3.9260e-02 ,3.8064e-04 /) - kbo(:, 3,47, 9) = (/ & - &2.0579e-01 ,1.6932e-01 ,1.1664e-01 ,6.1365e-02 ,5.4299e-04 /) - kbo(:, 4,47, 9) = (/ & - &3.1127e-01 ,2.5673e-01 ,1.7713e-01 ,9.3234e-02 ,7.5354e-04 /) - kbo(:, 5,47, 9) = (/ & - &4.5944e-01 ,3.7947e-01 ,2.6220e-01 ,1.3818e-01 ,1.0123e-03 /) - kbo(:, 1,48, 9) = (/ & - &6.2805e-02 ,5.1372e-02 ,3.5337e-02 ,1.8627e-02 ,1.8799e-04 /) - kbo(:, 2,48, 9) = (/ & - &1.0282e-01 ,8.4440e-02 ,5.8150e-02 ,3.0624e-02 ,2.8497e-04 /) - kbo(:, 3,48, 9) = (/ & - &1.6397e-01 ,1.3516e-01 ,9.3148e-02 ,4.8994e-02 ,4.1296e-04 /) - kbo(:, 4,48, 9) = (/ & - &2.5353e-01 ,2.0948e-01 ,1.4454e-01 ,7.6030e-02 ,5.7970e-04 /) - kbo(:, 5,48, 9) = (/ & - &3.8151e-01 ,3.1578e-01 ,2.1823e-01 ,1.1499e-01 ,7.9062e-04 /) - kbo(:, 1,49, 9) = (/ & - &4.7675e-02 ,3.9033e-02 ,2.6875e-02 ,1.4167e-02 ,1.3591e-04 /) - kbo(:, 2,49, 9) = (/ & - &7.9683e-02 ,6.5540e-02 ,4.5120e-02 ,2.3756e-02 ,2.0952e-04 /) - kbo(:, 3,49, 9) = (/ & - &1.2966e-01 ,1.0708e-01 ,7.3804e-02 ,3.8837e-02 ,3.0991e-04 /) - kbo(:, 4,49, 9) = (/ & - &2.0506e-01 ,1.6980e-01 ,1.1714e-01 ,6.1628e-02 ,4.4095e-04 /) - kbo(:, 5,49, 9) = (/ & - &3.1515e-01 ,2.6147e-01 ,1.8074e-01 ,9.5226e-02 ,6.0820e-04 /) - kbo(:, 1,50, 9) = (/ & - &3.6548e-02 ,2.9943e-02 ,2.0610e-02 ,1.0865e-02 ,9.9917e-05 /) - kbo(:, 2,50, 9) = (/ & - &6.2279e-02 ,5.1209e-02 ,3.5254e-02 ,1.8566e-02 ,1.5653e-04 /) - kbo(:, 3,50, 9) = (/ & - &1.0318e-01 ,8.5332e-02 ,5.8808e-02 ,3.0962e-02 ,2.3703e-04 /) - kbo(:, 4,50, 9) = (/ & - &1.6688e-01 ,1.3839e-01 ,9.5487e-02 ,5.0236e-02 ,3.4171e-04 /) - kbo(:, 5,50, 9) = (/ & - &2.6185e-01 ,2.1767e-01 ,1.5045e-01 ,7.9263e-02 ,4.7617e-04 /) - kbo(:, 1,51, 9) = (/ & - &2.7952e-02 ,2.2969e-02 ,1.5811e-02 ,8.3417e-03 ,7.4671e-05 /) - kbo(:, 2,51, 9) = (/ & - &4.8817e-02 ,4.0171e-02 ,2.7641e-02 ,1.4555e-02 ,1.1814e-04 /) - kbo(:, 3,51, 9) = (/ & - &8.2508e-02 ,6.8219e-02 ,4.6983e-02 ,2.4707e-02 ,1.8096e-04 /) - kbo(:, 4,51, 9) = (/ & - &1.3588e-01 ,1.1285e-01 ,7.7859e-02 ,4.0970e-02 ,2.6754e-04 /) - kbo(:, 5,51, 9) = (/ & - &2.1776e-01 ,1.8131e-01 ,1.2532e-01 ,6.5999e-02 ,3.7856e-04 /) - kbo(:, 1,52, 9) = (/ & - &2.1199e-02 ,1.7459e-02 ,1.2025e-02 ,6.3452e-03 ,5.5107e-05 /) - kbo(:, 2,52, 9) = (/ & - &3.8088e-02 ,3.1354e-02 ,2.1571e-02 ,1.1353e-02 ,8.8069e-05 /) - kbo(:, 3,52, 9) = (/ & - &6.5619e-02 ,5.4321e-02 ,3.7416e-02 ,1.9692e-02 ,1.3680e-04 /) - kbo(:, 4,52, 9) = (/ & - &1.1018e-01 ,9.1593e-02 ,6.3191e-02 ,3.3254e-02 ,2.0641e-04 /) - kbo(:, 5,52, 9) = (/ & - &1.8039e-01 ,1.5044e-01 ,1.0398e-01 ,5.4762e-02 ,2.9766e-04 /) - kbo(:, 1,53, 9) = (/ & - &1.5917e-02 ,1.3124e-02 ,9.0469e-03 ,4.7728e-03 ,4.0227e-05 /) - kbo(:, 2,53, 9) = (/ & - &2.9453e-02 ,2.4295e-02 ,1.6728e-02 ,8.8064e-03 ,6.5428e-05 /) - kbo(:, 3,53, 9) = (/ & - &5.2020e-02 ,4.3058e-02 ,2.9653e-02 ,1.5599e-02 ,1.0270e-04 /) - kbo(:, 4,53, 9) = (/ & - &8.9031e-02 ,7.3955e-02 ,5.0990e-02 ,2.6843e-02 ,1.5632e-04 /) - kbo(:, 5,53, 9) = (/ & - &1.4878e-01 ,1.2427e-01 ,8.5889e-02 ,4.5242e-02 ,2.3095e-04 /) - kbo(:, 1,54, 9) = (/ & - &1.2118e-02 ,1.0014e-02 ,6.9093e-03 ,3.6479e-03 ,3.0413e-05 /) - kbo(:, 2,54, 9) = (/ & - &2.3157e-02 ,1.9122e-02 ,1.3172e-02 ,6.9364e-03 ,5.0720e-05 /) - kbo(:, 3,54, 9) = (/ & - &4.1929e-02 ,3.4711e-02 ,2.3913e-02 ,1.2578e-02 ,8.0499e-05 /) - kbo(:, 4,54, 9) = (/ & - &7.3182e-02 ,6.0821e-02 ,4.1911e-02 ,2.2054e-02 ,1.2452e-04 /) - kbo(:, 5,54, 9) = (/ & - &1.2434e-01 ,1.0391e-01 ,7.1807e-02 ,3.7810e-02 ,1.8706e-04 /) - kbo(:, 1,55, 9) = (/ & - &9.2663e-03 ,7.6785e-03 ,5.3030e-03 ,2.7962e-03 ,2.3331e-05 /) - kbo(:, 2,55, 9) = (/ & - &1.8303e-02 ,1.5169e-02 ,1.0453e-02 ,5.5039e-03 ,4.0062e-05 /) - kbo(:, 3,55, 9) = (/ & - &3.4131e-02 ,2.8258e-02 ,1.9454e-02 ,1.0230e-02 ,6.4887e-05 /) - kbo(:, 4,55, 9) = (/ & - &6.0672e-02 ,5.0398e-02 ,3.4733e-02 ,1.8270e-02 ,1.0169e-04 /) - kbo(:, 5,55, 9) = (/ & - &1.0468e-01 ,8.7488e-02 ,6.0450e-02 ,3.1810e-02 ,1.5537e-04 /) - kbo(:, 1,56, 9) = (/ & - &7.0383e-03 ,5.8452e-03 ,4.0381e-03 ,2.1288e-03 ,1.7811e-05 /) - kbo(:, 2,56, 9) = (/ & - &1.4408e-02 ,1.1966e-02 ,8.2523e-03 ,4.3448e-03 ,3.1488e-05 /) - kbo(:, 3,56, 9) = (/ & - &2.7695e-02 ,2.2953e-02 ,1.5811e-02 ,8.3080e-03 ,5.2239e-05 /) - kbo(:, 4,56, 9) = (/ & - &5.0327e-02 ,4.1815e-02 ,2.8827e-02 ,1.5149e-02 ,8.2952e-05 /) - kbo(:, 5,56, 9) = (/ & - &8.8477e-02 ,7.3786e-02 ,5.0905e-02 ,2.6783e-02 ,1.2900e-04 /) - kbo(:, 1,57, 9) = (/ & - &5.2984e-03 ,4.4048e-03 ,3.0442e-03 ,1.6062e-03 ,1.3485e-05 /) - kbo(:, 2,57, 9) = (/ & - &1.1277e-02 ,9.3839e-03 ,6.4745e-03 ,3.4126e-03 ,2.4664e-05 /) - kbo(:, 3,57, 9) = (/ & - &2.2383e-02 ,1.8598e-02 ,1.2810e-02 ,6.7278e-03 ,4.2073e-05 /) - kbo(:, 4,57, 9) = (/ & - &4.1793e-02 ,3.4722e-02 ,2.3901e-02 ,1.2561e-02 ,6.8099e-05 /) - kbo(:, 5,57, 9) = (/ & - &7.4879e-02 ,6.2449e-02 ,4.3075e-02 ,2.2643e-02 ,1.0701e-04 /) - kbo(:, 1,58, 9) = (/ & - &1.9422e-03 ,1.8562e-03 ,1.5070e-03 ,9.6178e-04 ,1.0242e-05 /) - kbo(:, 2,58, 9) = (/ & - &4.2963e-03 ,4.1126e-03 ,3.3378e-03 ,2.1278e-03 ,1.9475e-05 /) - kbo(:, 3,58, 9) = (/ & - &8.8321e-03 ,8.4312e-03 ,6.8267e-03 ,4.3437e-03 ,3.4347e-05 /) - kbo(:, 4,58, 9) = (/ & - &1.7006e-02 ,1.6220e-02 ,1.3112e-02 ,8.3245e-03 ,5.6453e-05 /) - kbo(:, 5,58, 9) = (/ & - &3.1001e-02 ,2.9664e-02 ,2.4013e-02 ,1.5274e-02 ,9.0315e-05 /) - kbo(:, 1,59, 9) = (/ & - &1.6680e-03 ,1.5995e-03 ,1.3049e-03 ,8.3836e-04 ,9.2179e-06 /) - kbo(:, 2,59, 9) = (/ & - &3.7712e-03 ,3.6258e-03 ,2.9561e-03 ,1.8979e-03 ,1.8017e-05 /) - kbo(:, 3,59, 9) = (/ & - &7.9144e-03 ,7.6082e-03 ,6.1886e-03 ,3.9647e-03 ,3.2435e-05 /) - kbo(:, 4,59, 9) = (/ & - &1.5562e-02 ,1.4917e-02 ,1.2127e-02 ,7.7579e-03 ,5.4862e-05 /) - kbo(:, 5,59, 9) = (/ & - &2.8789e-02 ,2.7607e-02 ,2.2446e-02 ,1.4356e-02 ,8.9155e-05 /) - kbo(:, 1,13,10) = (/ & - &3.5965e+01 ,2.6975e+01 ,1.7984e+01 ,9.0232e+00 ,2.4705e-01 /) - kbo(:, 2,13,10) = (/ & - &5.0800e+01 ,3.8101e+01 ,2.5403e+01 ,1.2739e+01 ,2.8941e-01 /) - kbo(:, 3,13,10) = (/ & - &6.8409e+01 ,5.1309e+01 ,3.4208e+01 ,1.7156e+01 ,3.3771e-01 /) - kbo(:, 4,13,10) = (/ & - &8.8981e+01 ,6.6739e+01 ,4.4497e+01 ,2.2337e+01 ,3.9418e-01 /) - kbo(:, 5,13,10) = (/ & - &1.1252e+02 ,8.4389e+01 ,5.6260e+01 ,2.8284e+01 ,4.6348e-01 /) - kbo(:, 1,14,10) = (/ & - &3.4773e+01 ,2.6079e+01 ,1.7386e+01 ,8.7850e+00 ,2.3514e-01 /) - kbo(:, 2,14,10) = (/ & - &4.8754e+01 ,3.6565e+01 ,2.4376e+01 ,1.2316e+01 ,2.9035e-01 /) - kbo(:, 3,14,10) = (/ & - &6.5535e+01 ,4.9151e+01 ,3.2769e+01 ,1.6566e+01 ,3.5401e-01 /) - kbo(:, 4,14,10) = (/ & - &8.5152e+01 ,6.3871e+01 ,4.2583e+01 ,2.1543e+01 ,4.0952e-01 /) - kbo(:, 5,14,10) = (/ & - &1.0714e+02 ,8.0354e+01 ,5.3570e+01 ,2.7127e+01 ,4.6861e-01 /) - kbo(:, 1,15,10) = (/ & - &3.1708e+01 ,2.3780e+01 ,1.5854e+01 ,8.0780e+00 ,2.2725e-01 /) - kbo(:, 2,15,10) = (/ & - &4.4299e+01 ,3.3227e+01 ,2.2149e+01 ,1.1301e+01 ,2.7237e-01 /) - kbo(:, 3,15,10) = (/ & - &5.9451e+01 ,4.4587e+01 ,2.9727e+01 ,1.5175e+01 ,3.1480e-01 /) - kbo(:, 4,15,10) = (/ & - &7.6914e+01 ,5.7688e+01 ,3.8460e+01 ,1.9633e+01 ,3.5895e-01 /) - kbo(:, 5,15,10) = (/ & - &9.6187e+01 ,7.2137e+01 ,4.8097e+01 ,2.4537e+01 ,4.0136e-01 /) - kbo(:, 1,16,10) = (/ & - &2.8000e+01 ,2.1001e+01 ,1.4008e+01 ,7.1879e+00 ,1.8684e-01 /) - kbo(:, 2,16,10) = (/ & - &3.8983e+01 ,2.9238e+01 ,1.9500e+01 ,1.0007e+01 ,2.3111e-01 /) - kbo(:, 3,16,10) = (/ & - &5.2090e+01 ,3.9071e+01 ,2.6063e+01 ,1.3380e+01 ,2.7168e-01 /) - kbo(:, 4,16,10) = (/ & - &6.6962e+01 ,5.0223e+01 ,3.3517e+01 ,1.7217e+01 ,3.1091e-01 /) - kbo(:, 5,16,10) = (/ & - &8.3570e+01 ,6.2687e+01 ,4.1858e+01 ,2.1531e+01 ,3.6276e-01 /) - kbo(:, 1,17,10) = (/ & - &2.4264e+01 ,1.8198e+01 ,1.2195e+01 ,6.2664e+00 ,1.7021e-01 /) - kbo(:, 2,17,10) = (/ & - &3.3645e+01 ,2.5234e+01 ,1.6913e+01 ,8.7049e+00 ,1.9751e-01 /) - kbo(:, 3,17,10) = (/ & - &4.4643e+01 ,3.3486e+01 ,2.2452e+01 ,1.1586e+01 ,2.2201e-01 /) - kbo(:, 4,17,10) = (/ & - &5.7207e+01 ,4.2902e+01 ,2.8791e+01 ,1.4899e+01 ,2.5554e-01 /) - kbo(:, 5,17,10) = (/ & - &7.1193e+01 ,5.3402e+01 ,3.5856e+01 ,1.8608e+01 ,2.9547e-01 /) - kbo(:, 1,18,10) = (/ & - &2.0477e+01 ,1.5356e+01 ,1.0367e+01 ,5.3622e+00 ,1.3534e-01 /) - kbo(:, 2,18,10) = (/ & - &2.8178e+01 ,2.1132e+01 ,1.4278e+01 ,7.4149e+00 ,1.5634e-01 /) - kbo(:, 3,18,10) = (/ & - &3.7210e+01 ,2.7911e+01 ,1.8862e+01 ,9.8384e+00 ,1.8020e-01 /) - kbo(:, 4,18,10) = (/ & - &4.7546e+01 ,3.5659e+01 ,2.4100e+01 ,1.2600e+01 ,2.1507e-01 /) - kbo(:, 5,18,10) = (/ & - &5.8973e+01 ,4.4229e+01 ,2.9880e+01 ,1.5650e+01 ,2.3467e-01 /) - kbo(:, 1,19,10) = (/ & - &1.7373e+01 ,1.3040e+01 ,8.8390e+00 ,4.6588e+00 ,1.1972e-01 /) - kbo(:, 2,19,10) = (/ & - &2.3793e+01 ,1.7857e+01 ,1.2109e+01 ,6.3963e+00 ,1.3774e-01 /) - kbo(:, 3,19,10) = (/ & - &3.1336e+01 ,2.3520e+01 ,1.5961e+01 ,8.4390e+00 ,1.6091e-01 /) - kbo(:, 4,19,10) = (/ & - &3.9866e+01 ,2.9935e+01 ,2.0331e+01 ,1.0756e+01 ,1.7955e-01 /) - kbo(:, 5,19,10) = (/ & - &4.9495e+01 ,3.7175e+01 ,2.5257e+01 ,1.3339e+01 ,2.0663e-01 /) - kbo(:, 1,20,10) = (/ & - &1.5037e+01 ,1.1322e+01 ,7.6844e+00 ,4.1127e+00 ,1.0485e-01 /) - kbo(:, 2,20,10) = (/ & - &2.0515e+01 ,1.5450e+01 ,1.0499e+01 ,5.6182e+00 ,1.2148e-01 /) - kbo(:, 3,20,10) = (/ & - &2.6886e+01 ,2.0252e+01 ,1.3792e+01 ,7.3741e+00 ,1.4561e-01 /) - kbo(:, 4,20,10) = (/ & - &3.4287e+01 ,2.5832e+01 ,1.7615e+01 ,9.3860e+00 ,1.6294e-01 /) - kbo(:, 5,20,10) = (/ & - &4.2841e+01 ,3.2278e+01 ,2.2023e+01 ,1.1711e+01 ,1.8624e-01 /) - kbo(:, 1,21,10) = (/ & - &1.3152e+01 ,9.9438e+00 ,6.7780e+00 ,3.6471e+00 ,9.1853e-02 /) - kbo(:, 2,21,10) = (/ & - &1.7866e+01 ,1.3511e+01 ,9.2298e+00 ,4.9595e+00 ,1.1141e-01 /) - kbo(:, 3,21,10) = (/ & - &2.3469e+01 ,1.7747e+01 ,1.2135e+01 ,6.5086e+00 ,1.2785e-01 /) - kbo(:, 4,21,10) = (/ & - &3.0120e+01 ,2.2761e+01 ,1.5567e+01 ,8.3305e+00 ,1.5176e-01 /) - kbo(:, 5,21,10) = (/ & - &3.7884e+01 ,2.8609e+01 ,1.9560e+01 ,1.0448e+01 ,1.7309e-01 /) - kbo(:, 1,22,10) = (/ & - &1.1757e+01 ,8.9118e+00 ,6.1382e+00 ,3.3115e+00 ,8.1057e-02 /) - kbo(:, 2,22,10) = (/ & - &1.5980e+01 ,1.2109e+01 ,8.3336e+00 ,4.4832e+00 ,9.8906e-02 /) - kbo(:, 3,22,10) = (/ & - &2.1108e+01 ,1.5991e+01 ,1.0992e+01 ,5.8971e+00 ,1.1586e-01 /) - kbo(:, 4,22,10) = (/ & - &2.7285e+01 ,2.0659e+01 ,1.4174e+01 ,7.5863e+00 ,1.3507e-01 /) - kbo(:, 5,22,10) = (/ & - &3.4676e+01 ,2.6248e+01 ,1.7966e+01 ,9.5810e+00 ,1.5851e-01 /) - kbo(:, 1,23,10) = (/ & - &1.0481e+01 ,7.9685e+00 ,5.5490e+00 ,2.9996e+00 ,7.4309e-02 /) - kbo(:, 2,23,10) = (/ & - &1.4420e+01 ,1.0955e+01 ,7.5878e+00 ,4.0805e+00 ,8.6253e-02 /) - kbo(:, 3,23,10) = (/ & - &1.9219e+01 ,1.4600e+01 ,1.0073e+01 ,5.3977e+00 ,1.0580e-01 /) - kbo(:, 4,23,10) = (/ & - &2.5108e+01 ,1.9069e+01 ,1.3115e+01 ,7.0020e+00 ,1.2265e-01 /) - kbo(:, 5,23,10) = (/ & - &3.2043e+01 ,2.4337e+01 ,1.6704e+01 ,8.8942e+00 ,1.4381e-01 /) - kbo(:, 1,24,10) = (/ & - &9.5276e+00 ,7.2768e+00 ,5.0826e+00 ,2.7465e+00 ,6.4655e-02 /) - kbo(:, 2,24,10) = (/ & - &1.3271e+01 ,1.0121e+01 ,7.0214e+00 ,3.7657e+00 ,7.9291e-02 /) - kbo(:, 3,24,10) = (/ & - &1.7863e+01 ,1.3622e+01 ,9.4201e+00 ,5.0307e+00 ,9.5461e-02 /) - kbo(:, 4,24,10) = (/ & - &2.3325e+01 ,1.7783e+01 ,1.2273e+01 ,6.5420e+00 ,1.1274e-01 /) - kbo(:, 5,24,10) = (/ & - &2.9564e+01 ,2.2536e+01 ,1.5537e+01 ,8.2816e+00 ,1.3418e-01 /) - kbo(:, 1,25,10) = (/ & - &8.8160e+00 ,6.7673e+00 ,4.7220e+00 ,2.5379e+00 ,5.8489e-02 /) - kbo(:, 2,25,10) = (/ & - &1.2357e+01 ,9.4685e+00 ,6.5735e+00 ,3.5130e+00 ,7.2064e-02 /) - kbo(:, 3,25,10) = (/ & - &1.6557e+01 ,1.2678e+01 ,8.7976e+00 ,4.6917e+00 ,8.6281e-02 /) - kbo(:, 4,25,10) = (/ & - &2.1444e+01 ,1.6408e+01 ,1.1376e+01 ,6.0717e+00 ,1.0416e-01 /) - kbo(:, 5,25,10) = (/ & - &2.7072e+01 ,2.0703e+01 ,1.4347e+01 ,7.6551e+00 ,1.2572e-01 /) - kbo(:, 1,26,10) = (/ & - &8.2437e+00 ,6.3645e+00 ,4.4442e+00 ,2.3799e+00 ,5.3046e-02 /) - kbo(:, 2,26,10) = (/ & - &1.1483e+01 ,8.8437e+00 ,6.1605e+00 ,3.2883e+00 ,6.5278e-02 /) - kbo(:, 3,26,10) = (/ & - &1.5261e+01 ,1.1739e+01 ,8.1695e+00 ,4.3593e+00 ,8.0191e-02 /) - kbo(:, 4,26,10) = (/ & - &1.9700e+01 ,1.5135e+01 ,1.0534e+01 ,5.6197e+00 ,9.7601e-02 /) - kbo(:, 5,26,10) = (/ & - &2.4857e+01 ,1.9072e+01 ,1.3248e+01 ,7.0653e+00 ,1.1704e-01 /) - kbo(:, 1,27,10) = (/ & - &7.7081e+00 ,5.9885e+00 ,4.1814e+00 ,2.2306e+00 ,4.7409e-02 /) - kbo(:, 2,27,10) = (/ & - &1.0576e+01 ,8.1915e+00 ,5.7182e+00 ,3.0504e+00 ,5.8512e-02 /) - kbo(:, 3,27,10) = (/ & - &1.4014e+01 ,1.0837e+01 ,7.5629e+00 ,4.0315e+00 ,7.3955e-02 /) - kbo(:, 4,27,10) = (/ & - &1.8113e+01 ,1.3973e+01 ,9.7390e+00 ,5.1847e+00 ,9.0794e-02 /) - kbo(:, 5,27,10) = (/ & - &2.2862e+01 ,1.7593e+01 ,1.2246e+01 ,6.5228e+00 ,1.0871e-01 /) - kbo(:, 1,28,10) = (/ & - &7.2063e+00 ,5.6196e+00 ,3.9203e+00 ,2.0882e+00 ,4.3129e-02 /) - kbo(:, 2,28,10) = (/ & - &9.7817e+00 ,7.6085e+00 ,5.3084e+00 ,2.8196e+00 ,5.4812e-02 /) - kbo(:, 3,28,10) = (/ & - &1.2904e+01 ,1.0029e+01 ,7.0025e+00 ,3.7236e+00 ,6.8395e-02 /) - kbo(:, 4,28,10) = (/ & - &1.6696e+01 ,1.2935e+01 ,9.0135e+00 ,4.7943e+00 ,8.2716e-02 /) - kbo(:, 5,28,10) = (/ & - &2.1096e+01 ,1.6309e+01 ,1.1368e+01 ,6.0506e+00 ,9.9935e-02 /) - kbo(:, 1,29,10) = (/ & - &6.7278e+00 ,5.2636e+00 ,3.6717e+00 ,1.9437e+00 ,3.9266e-02 /) - kbo(:, 2,29,10) = (/ & - &9.0515e+00 ,7.0710e+00 ,4.9355e+00 ,2.6130e+00 ,4.9834e-02 /) - kbo(:, 3,29,10) = (/ & - &1.1919e+01 ,9.2978e+00 ,6.4770e+00 ,3.4412e+00 ,6.2077e-02 /) - kbo(:, 4,29,10) = (/ & - &1.5380e+01 ,1.1978e+01 ,8.3499e+00 ,4.4362e+00 ,7.6798e-02 /) - kbo(:, 5,29,10) = (/ & - &1.9420e+01 ,1.5097e+01 ,1.0536e+01 ,5.6045e+00 ,9.1669e-02 /) - kbo(:, 1,30,10) = (/ & - &6.2882e+00 ,4.9355e+00 ,3.4323e+00 ,1.8115e+00 ,3.5713e-02 /) - kbo(:, 2,30,10) = (/ & - &8.4169e+00 ,6.5906e+00 ,4.5841e+00 ,2.4262e+00 ,4.5752e-02 /) - kbo(:, 3,30,10) = (/ & - &1.1024e+01 ,8.6363e+00 ,6.0145e+00 ,3.1864e+00 ,5.7473e-02 /) - kbo(:, 4,30,10) = (/ & - &1.4192e+01 ,1.1103e+01 ,7.7439e+00 ,4.1120e+00 ,7.0729e-02 /) - kbo(:, 5,30,10) = (/ & - &1.7890e+01 ,1.3978e+01 ,9.7651e+00 ,5.1860e+00 ,8.5534e-02 /) - kbo(:, 1,31,10) = (/ & - &5.8439e+00 ,4.6051e+00 ,3.1957e+00 ,1.6863e+00 ,3.2654e-02 /) - kbo(:, 2,31,10) = (/ & - &7.8033e+00 ,6.1378e+00 ,4.2622e+00 ,2.2515e+00 ,4.2183e-02 /) - kbo(:, 3,31,10) = (/ & - &1.0196e+01 ,8.0235e+00 ,5.5836e+00 ,2.9533e+00 ,5.3011e-02 /) - kbo(:, 4,31,10) = (/ & - &1.3072e+01 ,1.0286e+01 ,7.1778e+00 ,3.8005e+00 ,6.4875e-02 /) - kbo(:, 5,31,10) = (/ & - &1.6463e+01 ,1.2924e+01 ,9.0292e+00 ,4.7849e+00 ,7.7772e-02 /) - kbo(:, 1,32,10) = (/ & - &5.4664e+00 ,4.3291e+00 ,2.9999e+00 ,1.5808e+00 ,2.9923e-02 /) - kbo(:, 2,32,10) = (/ & - &7.2874e+00 ,5.7710e+00 ,4.0068e+00 ,2.1122e+00 ,3.8267e-02 /) - kbo(:, 3,32,10) = (/ & - &9.5041e+00 ,7.5231e+00 ,5.2374e+00 ,2.7661e+00 ,4.7331e-02 /) - kbo(:, 4,32,10) = (/ & - &1.2176e+01 ,9.6156e+00 ,6.7066e+00 ,3.5449e+00 ,5.8625e-02 /) - kbo(:, 5,32,10) = (/ & - &1.5322e+01 ,1.2084e+01 ,8.4483e+00 ,4.4709e+00 ,6.9340e-02 /) - kbo(:, 1,33,10) = (/ & - &5.1512e+00 ,4.0967e+00 ,2.8362e+00 ,1.4933e+00 ,2.6393e-02 /) - kbo(:, 2,33,10) = (/ & - &6.8599e+00 ,5.4552e+00 ,3.7902e+00 ,1.9993e+00 ,3.4040e-02 /) - kbo(:, 3,33,10) = (/ & - &8.9395e+00 ,7.1038e+00 ,4.9489e+00 ,2.6104e+00 ,4.2820e-02 /) - kbo(:, 4,33,10) = (/ & - &1.1449e+01 ,9.0816e+00 ,6.3367e+00 ,3.3421e+00 ,5.1919e-02 /) - kbo(:, 5,33,10) = (/ & - &1.4423e+01 ,1.1426e+01 ,7.9850e+00 ,4.2179e+00 ,6.2402e-02 /) - kbo(:, 1,34,10) = (/ & - &4.8646e+00 ,3.8880e+00 ,2.6932e+00 ,1.4194e+00 ,2.3781e-02 /) - kbo(:, 2,34,10) = (/ & - &6.4672e+00 ,5.1782e+00 ,3.6018e+00 ,1.8962e+00 ,3.0492e-02 /) - kbo(:, 3,34,10) = (/ & - &8.4535e+00 ,6.7497e+00 ,4.7054e+00 ,2.4770e+00 ,3.8339e-02 /) - kbo(:, 4,34,10) = (/ & - &1.0856e+01 ,8.6484e+00 ,6.0350e+00 ,3.1793e+00 ,4.6570e-02 /) - kbo(:, 5,34,10) = (/ & - &1.3723e+01 ,1.0909e+01 ,7.6246e+00 ,4.0214e+00 ,5.6226e-02 /) - kbo(:, 1,35,10) = (/ & - &4.4902e+00 ,3.6079e+00 ,2.5027e+00 ,1.3156e+00 ,2.1238e-02 /) - kbo(:, 2,35,10) = (/ & - &5.9918e+00 ,4.8154e+00 ,3.3497e+00 ,1.7639e+00 ,2.7153e-02 /) - kbo(:, 3,35,10) = (/ & - &7.8693e+00 ,6.3098e+00 ,4.3964e+00 ,2.3124e+00 ,3.3573e-02 /) - kbo(:, 4,35,10) = (/ & - &1.0156e+01 ,8.1193e+00 ,5.6658e+00 ,2.9812e+00 ,4.1298e-02 /) - kbo(:, 5,35,10) = (/ & - &1.2867e+01 ,1.0277e+01 ,7.1860e+00 ,3.7872e+00 ,4.9619e-02 /) - kbo(:, 1,36,10) = (/ & - &4.0317e+00 ,3.2575e+00 ,2.2591e+00 ,1.1864e+00 ,1.8322e-02 /) - kbo(:, 2,36,10) = (/ & - &5.4230e+00 ,4.3764e+00 ,3.0444e+00 ,1.6008e+00 ,2.3437e-02 /) - kbo(:, 3,36,10) = (/ & - &7.1807e+00 ,5.7770e+00 ,4.0236e+00 ,2.1147e+00 ,2.8934e-02 /) - kbo(:, 4,36,10) = (/ & - &9.3214e+00 ,7.4860e+00 ,5.2247e+00 ,2.7453e+00 ,3.5476e-02 /) - kbo(:, 5,36,10) = (/ & - &1.1871e+01 ,9.5152e+00 ,6.6538e+00 ,3.5057e+00 ,4.2476e-02 /) - kbo(:, 1,37,10) = (/ & - &3.4945e+00 ,2.8322e+00 ,1.9642e+00 ,1.0316e+00 ,1.5292e-02 /) - kbo(:, 2,37,10) = (/ & - &4.7474e+00 ,3.8477e+00 ,2.6749e+00 ,1.4057e+00 ,1.9829e-02 /) - kbo(:, 3,37,10) = (/ & - &6.3563e+00 ,5.1351e+00 ,3.5754e+00 ,1.8774e+00 ,2.4925e-02 /) - kbo(:, 4,37,10) = (/ & - &8.3333e+00 ,6.7182e+00 ,4.6872e+00 ,2.4610e+00 ,3.0513e-02 /) - kbo(:, 5,37,10) = (/ & - &1.0705e+01 ,8.6094e+00 ,6.0143e+00 ,3.1664e+00 ,3.6834e-02 /) - kbo(:, 1,38,10) = (/ & - &3.0288e+00 ,2.4619e+00 ,1.7084e+00 ,8.9674e-01 ,1.2715e-02 /) - kbo(:, 2,38,10) = (/ & - &4.1608e+00 ,3.3834e+00 ,2.3515e+00 ,1.2353e+00 ,1.6555e-02 /) - kbo(:, 3,38,10) = (/ & - &5.6346e+00 ,4.5721e+00 ,3.1807e+00 ,1.6688e+00 ,2.1253e-02 /) - kbo(:, 4,38,10) = (/ & - &7.4639e+00 ,6.0370e+00 ,4.2092e+00 ,2.2090e+00 ,2.6215e-02 /) - kbo(:, 5,38,10) = (/ & - &9.6723e+00 ,7.8054e+00 ,5.4498e+00 ,2.8669e+00 ,3.1673e-02 /) - kbo(:, 1,39,10) = (/ & - &2.6346e+00 ,2.1501e+00 ,1.4897e+00 ,7.8179e-01 ,1.0494e-02 /) - kbo(:, 2,39,10) = (/ & - &3.6623e+00 ,2.9868e+00 ,2.0748e+00 ,1.0900e+00 ,1.3801e-02 /) - kbo(:, 3,39,10) = (/ & - &5.0149e+00 ,4.0819e+00 ,2.8376e+00 ,1.4889e+00 ,1.7948e-02 /) - kbo(:, 4,39,10) = (/ & - &6.7074e+00 ,5.4432e+00 ,3.7906e+00 ,1.9883e+00 ,2.2190e-02 /) - kbo(:, 5,39,10) = (/ & - &8.7675e+00 ,7.1019e+00 ,4.9572e+00 ,2.6054e+00 ,2.6961e-02 /) - kbo(:, 1,40,10) = (/ & - &2.2414e+00 ,1.8312e+00 ,1.2669e+00 ,6.6464e-01 ,8.6033e-03 /) - kbo(:, 2,40,10) = (/ & - &3.1461e+00 ,2.5731e+00 ,1.7855e+00 ,9.3826e-01 ,1.1425e-02 /) - kbo(:, 3,40,10) = (/ & - &4.3645e+00 ,3.5639e+00 ,2.4772e+00 ,1.3001e+00 ,1.5150e-02 /) - kbo(:, 4,40,10) = (/ & - &5.9195e+00 ,4.8196e+00 ,3.3561e+00 ,1.7603e+00 ,1.8984e-02 /) - kbo(:, 5,40,10) = (/ & - &7.8344e+00 ,6.3662e+00 ,4.4409e+00 ,2.3324e+00 ,2.3286e-02 /) - kbo(:, 1,41,10) = (/ & - &1.9009e+00 ,1.5581e+00 ,1.0772e+00 ,5.6390e-01 ,7.0145e-03 /) - kbo(:, 2,41,10) = (/ & - &2.6997e+00 ,2.2094e+00 ,1.5334e+00 ,8.0488e-01 ,9.5005e-03 /) - kbo(:, 3,41,10) = (/ & - &3.7885e+00 ,3.1035e+00 ,2.1567e+00 ,1.1320e+00 ,1.2665e-02 /) - kbo(:, 4,41,10) = (/ & - &5.2083e+00 ,4.2587e+00 ,2.9632e+00 ,1.5552e+00 ,1.6096e-02 /) - kbo(:, 5,41,10) = (/ & - &6.9899e+00 ,5.6957e+00 ,3.9715e+00 ,2.0851e+00 ,2.0007e-02 /) - kbo(:, 1,42,10) = (/ & - &1.6073e+00 ,1.3214e+00 ,9.1410e-01 ,4.7869e-01 ,5.6658e-03 /) - kbo(:, 2,42,10) = (/ & - &2.3166e+00 ,1.9016e+00 ,1.3175e+00 ,6.9100e-01 ,7.8082e-03 /) - kbo(:, 3,42,10) = (/ & - &3.2935e+00 ,2.7045e+00 ,1.8773e+00 ,9.8575e-01 ,1.0484e-02 /) - kbo(:, 4,42,10) = (/ & - &4.5881e+00 ,3.7639e+00 ,2.6177e+00 ,1.3737e+00 ,1.3601e-02 /) - kbo(:, 5,42,10) = (/ & - &6.2370e+00 ,5.0967e+00 ,3.5534e+00 ,1.8654e+00 ,1.7039e-02 /) - kbo(:, 1,43,10) = (/ & - &1.3404e+00 ,1.1058e+00 ,7.6461e-01 ,4.0031e-01 ,4.4847e-03 /) - kbo(:, 2,43,10) = (/ & - &1.9669e+00 ,1.6173e+00 ,1.1194e+00 ,5.8704e-01 ,6.2717e-03 /) - kbo(:, 3,43,10) = (/ & - &2.8361e+00 ,2.3337e+00 ,1.6185e+00 ,8.4949e-01 ,8.5308e-03 /) - kbo(:, 4,43,10) = (/ & - &4.0094e+00 ,3.2948e+00 ,2.2900e+00 ,1.2020e+00 ,1.1259e-02 /) - kbo(:, 5,43,10) = (/ & - &5.5262e+00 ,4.5280e+00 ,3.1542e+00 ,1.6556e+00 ,1.4384e-02 /) - kbo(:, 1,44,10) = (/ & - &1.1066e+00 ,9.1547e-01 ,6.3275e-01 ,3.3150e-01 ,3.4897e-03 /) - kbo(:, 2,44,10) = (/ & - &1.6542e+00 ,1.3635e+00 ,9.4399e-01 ,4.9494e-01 ,4.9430e-03 /) - kbo(:, 3,44,10) = (/ & - &2.4266e+00 ,2.0020e+00 ,1.3887e+00 ,7.2847e-01 ,6.8682e-03 /) - kbo(:, 4,44,10) = (/ & - &3.4886e+00 ,2.8708e+00 ,1.9931e+00 ,1.0459e+00 ,9.1381e-03 /) - kbo(:, 5,44,10) = (/ & - &4.8773e+00 ,4.0046e+00 ,2.7873e+00 ,1.4630e+00 ,1.1960e-02 /) - kbo(:, 1,45,10) = (/ & - &9.0739e-01 ,7.5424e-01 ,5.2128e-01 ,2.7273e-01 ,2.7098e-03 /) - kbo(:, 2,45,10) = (/ & - &1.3852e+00 ,1.1467e+00 ,7.9304e-01 ,4.1578e-01 ,3.8548e-03 /) - kbo(:, 3,45,10) = (/ & - &2.0713e+00 ,1.7151e+00 ,1.1892e+00 ,6.2426e-01 ,5.4604e-03 /) - kbo(:, 4,45,10) = (/ & - &3.0326e+00 ,2.5006e+00 ,1.7345e+00 ,9.0988e-01 ,7.3887e-03 /) - kbo(:, 5,45,10) = (/ & - &4.3008e+00 ,3.5387e+00 ,2.4612e+00 ,1.2914e+00 ,9.7321e-03 /) - kbo(:, 1,46,10) = (/ & - &7.3199e-01 ,6.1145e-01 ,4.2240e-01 ,2.2117e-01 ,2.0785e-03 /) - kbo(:, 2,46,10) = (/ & - &1.1438e+00 ,9.5098e-01 ,6.5833e-01 ,3.4471e-01 ,2.9805e-03 /) - kbo(:, 3,46,10) = (/ & - &1.7481e+00 ,1.4525e+00 ,1.0068e+00 ,5.2845e-01 ,4.2717e-03 /) - kbo(:, 4,46,10) = (/ & - &2.6098e+00 ,2.1582e+00 ,1.4963e+00 ,7.8501e-01 ,5.8631e-03 /) - kbo(:, 5,46,10) = (/ & - &3.7663e+00 ,3.1031e+00 ,2.1564e+00 ,1.1312e+00 ,7.7831e-03 /) - kbo(:, 1,47,10) = (/ & - &5.7232e-01 ,4.8032e-01 ,3.3210e-01 ,1.7403e-01 ,1.5461e-03 /) - kbo(:, 2,47,10) = (/ & - &9.2386e-01 ,7.7116e-01 ,5.3364e-01 ,2.7934e-01 ,2.3209e-03 /) - kbo(:, 3,47,10) = (/ & - &1.4429e+00 ,1.2024e+00 ,8.3406e-01 ,4.3757e-01 ,3.2763e-03 /) - kbo(:, 4,47,10) = (/ & - &2.2047e+00 ,1.8273e+00 ,1.2675e+00 ,6.6495e-01 ,4.5628e-03 /) - kbo(:, 5,47,10) = (/ & - &3.2456e+00 ,2.6812e+00 ,1.8614e+00 ,9.7623e-01 ,6.1070e-03 /) - kbo(:, 1,48,10) = (/ & - &4.4270e-01 ,3.7313e-01 ,2.5809e-01 ,1.3535e-01 ,1.1374e-03 /) - kbo(:, 2,48,10) = (/ & - &7.3749e-01 ,6.1935e-01 ,4.2906e-01 ,2.2453e-01 ,1.7379e-03 /) - kbo(:, 3,48,10) = (/ & - &1.1839e+00 ,9.8928e-01 ,6.8613e-01 ,3.6002e-01 ,2.5032e-03 /) - kbo(:, 4,48,10) = (/ & - &1.8512e+00 ,1.5395e+00 ,1.0677e+00 ,5.6075e-01 ,3.5238e-03 /) - kbo(:, 5,48,10) = (/ & - &2.7862e+00 ,2.3065e+00 ,1.6009e+00 ,8.3981e-01 ,4.7398e-03 /) - kbo(:, 1,49,10) = (/ & - &3.3829e-01 ,2.8482e-01 ,1.9699e-01 ,1.0339e-01 ,8.1861e-04 /) - kbo(:, 2,49,10) = (/ & - &5.8200e-01 ,4.9068e-01 ,3.4013e-01 ,1.7816e-01 ,1.2634e-03 /) - kbo(:, 3,49,10) = (/ & - &9.6365e-01 ,8.0857e-01 ,5.6081e-01 ,2.9418e-01 ,1.8795e-03 /) - kbo(:, 4,49,10) = (/ & - &1.5457e+00 ,1.2894e+00 ,8.9458e-01 ,4.6973e-01 ,2.7104e-03 /) - kbo(:, 5,49,10) = (/ & - &2.3812e+00 ,1.9755e+00 ,1.3708e+00 ,7.1925e-01 ,3.6105e-03 /) - kbo(:, 1,50,10) = (/ & - &2.5998e-01 ,2.1962e-01 ,1.5188e-01 ,7.9506e-02 ,6.0363e-04 /) - kbo(:, 2,50,10) = (/ & - &4.5974e-01 ,3.8940e-01 ,2.6982e-01 ,1.4155e-01 ,9.5023e-04 /) - kbo(:, 3,50,10) = (/ & - &7.8578e-01 ,6.6189e-01 ,4.5931e-01 ,2.4091e-01 ,1.4366e-03 /) - kbo(:, 4,50,10) = (/ & - &1.2930e+00 ,1.0829e+00 ,7.5147e-01 ,3.9450e-01 ,2.1250e-03 /) - kbo(:, 5,50,10) = (/ & - &2.0418e+00 ,1.6990e+00 ,1.1790e+00 ,6.1880e-01 ,2.8716e-03 /) - kbo(:, 1,51,10) = (/ & - &2.0132e-01 ,1.6910e-01 ,1.1674e-01 ,6.1107e-02 ,4.4485e-04 /) - kbo(:, 2,51,10) = (/ & - &3.6041e-01 ,3.0656e-01 ,2.1282e-01 ,1.1161e-01 ,7.3157e-04 /) - kbo(:, 3,51,10) = (/ & - &6.3582e-01 ,5.3869e-01 ,3.7423e-01 ,1.9656e-01 ,1.1225e-03 /) - kbo(:, 4,51,10) = (/ & - &1.0802e+00 ,9.0777e-01 ,6.3030e-01 ,3.3074e-01 ,1.6531e-03 /) - kbo(:, 5,51,10) = (/ & - &1.7498e+00 ,1.4602e+00 ,1.0135e+00 ,5.3219e-01 ,2.3172e-03 /) - kbo(:, 1,52,10) = (/ & - &1.5547e-01 ,1.3052e-01 ,9.0061e-02 ,4.7075e-02 ,3.3160e-04 /) - kbo(:, 2,52,10) = (/ & - &2.8347e-01 ,2.4049e-01 ,1.6666e-01 ,8.7433e-02 ,5.5078e-04 /) - kbo(:, 3,52,10) = (/ & - &5.1184e-01 ,4.3501e-01 ,3.0211e-01 ,1.5868e-01 ,8.7008e-04 /) - kbo(:, 4,52,10) = (/ & - &8.9697e-01 ,7.5690e-01 ,5.2561e-01 ,2.7576e-01 ,1.2672e-03 /) - kbo(:, 5,52,10) = (/ & - &1.4927e+00 ,1.2493e+00 ,8.6741e-01 ,4.5551e-01 ,1.8458e-03 /) - kbo(:, 1,53,10) = (/ & - &1.2003e-01 ,1.0051e-01 ,6.9268e-02 ,3.6248e-02 ,2.4457e-04 /) - kbo(:, 2,53,10) = (/ & - &2.2120e-01 ,1.8754e-01 ,1.2989e-01 ,6.8226e-02 ,4.0791e-04 /) - kbo(:, 3,53,10) = (/ & - &4.0694e-01 ,3.4775e-01 ,2.4176e-01 ,1.2712e-01 ,6.5057e-04 /) - kbo(:, 4,53,10) = (/ & - &7.3824e-01 ,6.2670e-01 ,4.3556e-01 ,2.2862e-01 ,9.8738e-04 /) - kbo(:, 5,53,10) = (/ & - &1.2666e+00 ,1.0632e+00 ,7.3852e-01 ,3.8765e-01 ,1.4077e-03 /) - kbo(:, 1,54,10) = (/ & - &9.3960e-02 ,7.8771e-02 ,5.4240e-02 ,2.8401e-02 ,1.9316e-04 /) - kbo(:, 2,54,10) = (/ & - &1.7676e-01 ,1.4984e-01 ,1.0336e-01 ,5.4121e-02 ,3.1568e-04 /) - kbo(:, 3,54,10) = (/ & - &3.2867e-01 ,2.7969e-01 ,1.9447e-01 ,1.0231e-01 ,5.2512e-04 /) - kbo(:, 4,54,10) = (/ & - &6.0965e-01 ,5.1980e-01 ,3.6169e-01 ,1.9003e-01 ,8.0976e-04 /) - kbo(:, 5,54,10) = (/ & - &1.0822e+00 ,9.1223e-01 ,6.3374e-01 ,3.3269e-01 ,1.1750e-03 /) - kbo(:, 1,55,10) = (/ & - &7.3906e-02 ,6.2107e-02 ,4.2864e-02 ,2.2445e-02 ,1.5599e-04 /) - kbo(:, 2,55,10) = (/ & - &1.4369e-01 ,1.2050e-01 ,8.3134e-02 ,4.3567e-02 ,2.5335e-04 /) - kbo(:, 3,55,10) = (/ & - &2.6760e-01 ,2.2827e-01 ,1.5835e-01 ,8.3096e-02 ,4.2909e-04 /) - kbo(:, 4,55,10) = (/ & - &5.0351e-01 ,4.3105e-01 ,3.0006e-01 ,1.5782e-01 ,6.9202e-04 /) - kbo(:, 5,55,10) = (/ & - &9.2458e-01 ,7.8288e-01 ,5.4396e-01 ,2.8582e-01 ,1.0207e-03 /) - kbo(:, 1,56,10) = (/ & - &5.7777e-02 ,4.8496e-02 ,3.3489e-02 ,1.7579e-02 ,1.2442e-04 /) - kbo(:, 2,56,10) = (/ & - &1.1665e-01 ,9.7805e-02 ,6.7433e-02 ,3.5342e-02 ,2.0689e-04 /) - kbo(:, 3,56,10) = (/ & - &2.1880e-01 ,1.8636e-01 ,1.2905e-01 ,6.7804e-02 ,3.5149e-04 /) - kbo(:, 4,56,10) = (/ & - &4.1579e-01 ,3.5633e-01 ,2.4779e-01 ,1.3043e-01 ,5.7437e-04 /) - kbo(:, 5,56,10) = (/ & - &7.8392e-01 ,6.6810e-01 ,4.6498e-01 ,2.4434e-01 ,8.7392e-04 /) - kbo(:, 1,57,10) = (/ & - &4.4962e-02 ,3.7745e-02 ,2.6020e-02 ,1.3669e-02 ,1.0074e-04 /) - kbo(:, 2,57,10) = (/ & - &9.3975e-02 ,7.9039e-02 ,5.4468e-02 ,2.8583e-02 ,1.6888e-04 /) - kbo(:, 3,57,10) = (/ & - &1.8083e-01 ,1.5305e-01 ,1.0598e-01 ,5.5519e-02 ,2.8180e-04 /) - kbo(:, 4,57,10) = (/ & - &3.4541e-01 ,2.9431e-01 ,2.0476e-01 ,1.0780e-01 ,4.7931e-04 /) - kbo(:, 5,57,10) = (/ & - &6.6212e-01 ,5.6589e-01 ,3.9390e-01 ,2.0726e-01 ,7.5979e-04 /) - kbo(:, 1,58,10) = (/ & - &1.7062e-02 ,1.6422e-02 ,1.3301e-02 ,8.4676e-03 ,8.2142e-05 /) - kbo(:, 2,58,10) = (/ & - &3.7044e-02 ,3.5791e-02 ,2.8933e-02 ,1.8344e-02 ,1.3979e-04 /) - kbo(:, 3,58,10) = (/ & - &7.3627e-02 ,7.1176e-02 ,5.7648e-02 ,3.6534e-02 ,2.3072e-04 /) - kbo(:, 4,58,10) = (/ & - &1.4036e-01 ,1.3776e-01 ,1.1219e-01 ,7.1459e-02 ,4.0521e-04 /) - kbo(:, 5,58,10) = (/ & - &2.7375e-01 ,2.6857e-01 ,2.1925e-01 ,1.3965e-01 ,6.6868e-04 /) - kbo(:, 1,59,10) = (/ & - &1.5026e-02 ,1.4620e-02 ,1.1891e-02 ,7.6139e-03 ,7.7772e-05 /) - kbo(:, 2,59,10) = (/ & - &3.3598e-02 ,3.2618e-02 ,2.6475e-02 ,1.6873e-02 ,1.3363e-04 /) - kbo(:, 3,59,10) = (/ & - &6.7778e-02 ,6.5724e-02 ,5.3548e-02 ,3.4085e-02 ,2.3127e-04 /) - kbo(:, 4,59,10) = (/ & - &1.2973e-01 ,1.2749e-01 ,1.0439e-01 ,6.6705e-02 ,3.9949e-04 /) - kbo(:, 5,59,10) = (/ & - &2.5383e-01 ,2.5006e-01 ,2.0520e-01 ,1.3156e-01 ,6.6551e-04 /) - kbo(:, 1,13,11) = (/ & - &6.1162e+01 ,4.5871e+01 ,3.0581e+01 ,1.5291e+01 ,3.0501e-01 /) - kbo(:, 2,13,11) = (/ & - &8.6643e+01 ,6.4984e+01 ,4.3324e+01 ,2.1662e+01 ,3.8069e-01 /) - kbo(:, 3,13,11) = (/ & - &1.1700e+02 ,8.7751e+01 ,5.8502e+01 ,2.9250e+01 ,4.9491e-01 /) - kbo(:, 4,13,11) = (/ & - &1.5190e+02 ,1.1392e+02 ,7.5955e+01 ,3.7977e+01 ,5.7908e-01 /) - kbo(:, 5,13,11) = (/ & - &1.9085e+02 ,1.4314e+02 ,9.5429e+01 ,4.7715e+01 ,6.6979e-01 /) - kbo(:, 1,14,11) = (/ & - &6.2014e+01 ,4.6511e+01 ,3.1007e+01 ,1.5504e+01 ,3.5592e-01 /) - kbo(:, 2,14,11) = (/ & - &8.7238e+01 ,6.5431e+01 ,4.3621e+01 ,2.1811e+01 ,3.9219e-01 /) - kbo(:, 3,14,11) = (/ & - &1.1714e+02 ,8.7851e+01 ,5.8570e+01 ,2.9287e+01 ,4.4292e-01 /) - kbo(:, 4,14,11) = (/ & - &1.5139e+02 ,1.1354e+02 ,7.5699e+01 ,3.7864e+01 ,5.2460e-01 /) - kbo(:, 5,14,11) = (/ & - &1.8982e+02 ,1.4235e+02 ,9.4908e+01 ,4.7484e+01 ,6.6257e-01 /) - kbo(:, 1,15,11) = (/ & - &5.9186e+01 ,4.4388e+01 ,2.9592e+01 ,1.4841e+01 ,3.2021e-01 /) - kbo(:, 2,15,11) = (/ & - &8.2638e+01 ,6.1979e+01 ,4.1319e+01 ,2.0713e+01 ,3.7708e-01 /) - kbo(:, 3,15,11) = (/ & - &1.1028e+02 ,8.2716e+01 ,5.5144e+01 ,2.7652e+01 ,4.6488e-01 /) - kbo(:, 4,15,11) = (/ & - &1.4201e+02 ,1.0651e+02 ,7.1008e+01 ,3.5635e+01 ,5.3643e-01 /) - kbo(:, 5,15,11) = (/ & - &1.7780e+02 ,1.3336e+02 ,8.8908e+01 ,4.4680e+01 ,6.1809e-01 /) - kbo(:, 1,16,11) = (/ & - &5.3877e+01 ,4.0407e+01 ,2.6940e+01 ,1.3617e+01 ,3.0459e-01 /) - kbo(:, 2,16,11) = (/ & - &7.4732e+01 ,5.6052e+01 ,3.7368e+01 ,1.8895e+01 ,3.6381e-01 /) - kbo(:, 3,16,11) = (/ & - &9.9303e+01 ,7.4473e+01 ,4.9649e+01 ,2.5124e+01 ,4.2325e-01 /) - kbo(:, 4,16,11) = (/ & - &1.2768e+02 ,9.5754e+01 ,6.3837e+01 ,3.2325e+01 ,4.7285e-01 /) - kbo(:, 5,16,11) = (/ & - &1.5927e+02 ,1.1945e+02 ,7.9632e+01 ,4.0351e+01 ,5.0976e-01 /) - kbo(:, 1,17,11) = (/ & - &4.7648e+01 ,3.5735e+01 ,2.3823e+01 ,1.2164e+01 ,2.5744e-01 /) - kbo(:, 2,17,11) = (/ & - &6.5724e+01 ,4.9293e+01 ,3.2863e+01 ,1.6792e+01 ,3.1059e-01 /) - kbo(:, 3,17,11) = (/ & - &8.7138e+01 ,6.5349e+01 ,4.3569e+01 ,2.2270e+01 ,3.5847e-01 /) - kbo(:, 4,17,11) = (/ & - &1.1169e+02 ,8.3769e+01 ,5.5845e+01 ,2.8543e+01 ,4.0184e-01 /) - kbo(:, 5,17,11) = (/ & - &1.3846e+02 ,1.0385e+02 ,6.9237e+01 ,3.5386e+01 ,4.6254e-01 /) - kbo(:, 1,18,11) = (/ & - &4.0731e+01 ,3.0550e+01 ,2.0398e+01 ,1.0482e+01 ,2.2929e-01 /) - kbo(:, 2,18,11) = (/ & - &5.6038e+01 ,4.2027e+01 ,2.8058e+01 ,1.4421e+01 ,2.6841e-01 /) - kbo(:, 3,18,11) = (/ & - &7.4130e+01 ,5.5602e+01 ,3.7127e+01 ,1.9095e+01 ,3.0083e-01 /) - kbo(:, 4,18,11) = (/ & - &9.4414e+01 ,7.0811e+01 ,4.7323e+01 ,2.4371e+01 ,3.4142e-01 /) - kbo(:, 5,18,11) = (/ & - &1.1687e+02 ,8.7655e+01 ,5.8604e+01 ,3.0228e+01 ,3.9932e-01 /) - kbo(:, 1,19,11) = (/ & - &3.5043e+01 ,2.6281e+01 ,1.7645e+01 ,9.0880e+00 ,1.9041e-01 /) - kbo(:, 2,19,11) = (/ & - &4.8095e+01 ,3.6072e+01 ,2.4224e+01 ,1.2500e+01 ,2.2005e-01 /) - kbo(:, 3,19,11) = (/ & - &6.3280e+01 ,4.7465e+01 ,3.1884e+01 ,1.6505e+01 ,2.5190e-01 /) - kbo(:, 4,19,11) = (/ & - &8.0459e+01 ,6.0352e+01 ,4.0562e+01 ,2.1050e+01 ,3.0347e-01 /) - kbo(:, 5,19,11) = (/ & - &9.9405e+01 ,7.4555e+01 ,5.0141e+01 ,2.6072e+01 ,3.3814e-01 /) - kbo(:, 1,20,11) = (/ & - &3.0698e+01 ,2.3028e+01 ,1.5559e+01 ,8.0744e+00 ,1.6851e-01 /) - kbo(:, 2,20,11) = (/ & - &4.1938e+01 ,3.1449e+01 ,2.1266e+01 ,1.1075e+01 ,1.9604e-01 /) - kbo(:, 3,20,11) = (/ & - &5.4971e+01 ,4.1226e+01 ,2.7873e+01 ,1.4553e+01 ,2.3334e-01 /) - kbo(:, 4,20,11) = (/ & - &6.9683e+01 ,5.2264e+01 ,3.5322e+01 ,1.8474e+01 ,2.8155e-01 /) - kbo(:, 5,20,11) = (/ & - &8.5796e+01 ,6.4350e+01 ,4.3496e+01 ,2.2781e+01 ,3.1819e-01 /) - kbo(:, 1,21,11) = (/ & - &2.6961e+01 ,2.0239e+01 ,1.3721e+01 ,7.2357e+00 ,1.5633e-01 /) - kbo(:, 2,21,11) = (/ & - &3.6624e+01 ,2.7486e+01 ,1.8642e+01 ,9.8382e+00 ,1.8477e-01 /) - kbo(:, 3,21,11) = (/ & - &4.7842e+01 ,3.5913e+01 ,2.4362e+01 ,1.2852e+01 ,2.2793e-01 /) - kbo(:, 4,21,11) = (/ & - &6.0403e+01 ,4.5355e+01 ,3.0794e+01 ,1.6247e+01 ,2.5875e-01 /) - kbo(:, 5,21,11) = (/ & - &7.4328e+01 ,5.5827e+01 ,3.7921e+01 ,1.9978e+01 ,3.0003e-01 /) - kbo(:, 1,22,11) = (/ & - &2.4106e+01 ,1.8145e+01 ,1.2318e+01 ,6.5788e+00 ,1.4346e-01 /) - kbo(:, 2,22,11) = (/ & - &3.2489e+01 ,2.4455e+01 ,1.6620e+01 ,8.8645e+00 ,1.7673e-01 /) - kbo(:, 3,22,11) = (/ & - &4.2111e+01 ,3.1704e+01 ,2.1585e+01 ,1.1502e+01 ,2.1135e-01 /) - kbo(:, 4,22,11) = (/ & - &5.3091e+01 ,3.9979e+01 ,2.7248e+01 ,1.4479e+01 ,2.4545e-01 /) - kbo(:, 5,22,11) = (/ & - &6.5531e+01 ,4.9344e+01 ,3.3661e+01 ,1.7840e+01 ,2.8184e-01 /) - kbo(:, 1,23,11) = (/ & - &2.1586e+01 ,1.6314e+01 ,1.1115e+01 ,5.9696e+00 ,1.3118e-01 /) - kbo(:, 2,23,11) = (/ & - &2.8872e+01 ,2.1824e+01 ,1.4900e+01 ,7.9884e+00 ,1.6791e-01 /) - kbo(:, 3,23,11) = (/ & - &3.7392e+01 ,2.8256e+01 ,1.9318e+01 ,1.0333e+01 ,1.9239e-01 /) - kbo(:, 4,23,11) = (/ & - &4.7286e+01 ,3.5715e+01 ,2.4417e+01 ,1.3025e+01 ,2.2854e-01 /) - kbo(:, 5,23,11) = (/ & - &5.8587e+01 ,4.4225e+01 ,3.0228e+01 ,1.6103e+01 ,2.6383e-01 /) - kbo(:, 1,24,11) = (/ & - &1.9610e+01 ,1.4859e+01 ,1.0204e+01 ,5.4843e+00 ,1.2305e-01 /) - kbo(:, 2,24,11) = (/ & - &2.6168e+01 ,1.9825e+01 ,1.3617e+01 ,7.3028e+00 ,1.4696e-01 /) - kbo(:, 3,24,11) = (/ & - &3.4009e+01 ,2.5754e+01 ,1.7666e+01 ,9.4475e+00 ,1.7619e-01 /) - kbo(:, 4,24,11) = (/ & - &4.3202e+01 ,3.2697e+01 ,2.2398e+01 ,1.1966e+01 ,2.0711e-01 /) - kbo(:, 5,24,11) = (/ & - &5.3950e+01 ,4.0810e+01 ,2.7914e+01 ,1.4881e+01 ,2.4491e-01 /) - kbo(:, 1,25,11) = (/ & - &1.7913e+01 ,1.3599e+01 ,9.4137e+00 ,5.0616e+00 ,1.1244e-01 /) - kbo(:, 2,25,11) = (/ & - &2.4002e+01 ,1.8218e+01 ,1.2577e+01 ,6.7433e+00 ,1.3574e-01 /) - kbo(:, 3,25,11) = (/ & - &3.1373e+01 ,2.3808e+01 ,1.6390e+01 ,8.7732e+00 ,1.6587e-01 /) - kbo(:, 4,25,11) = (/ & - &4.0212e+01 ,3.0510e+01 ,2.0949e+01 ,1.1182e+01 ,1.9353e-01 /) - kbo(:, 5,25,11) = (/ & - &5.0507e+01 ,3.8314e+01 ,2.6252e+01 ,1.3993e+01 ,2.2689e-01 /) - kbo(:, 1,26,11) = (/ & - &1.6610e+01 ,1.2648e+01 ,8.7899e+00 ,4.7180e+00 ,1.0410e-01 /) - kbo(:, 2,26,11) = (/ & - &2.2395e+01 ,1.7048e+01 ,1.1804e+01 ,6.3257e+00 ,1.2812e-01 /) - kbo(:, 3,26,11) = (/ & - &2.9495e+01 ,2.2453e+01 ,1.5498e+01 ,8.2851e+00 ,1.5321e-01 /) - kbo(:, 4,26,11) = (/ & - &3.7868e+01 ,2.8829e+01 ,1.9854e+01 ,1.0593e+01 ,1.8381e-01 /) - kbo(:, 5,26,11) = (/ & - &4.7321e+01 ,3.6030e+01 ,2.4795e+01 ,1.3247e+01 ,2.1577e-01 /) - kbo(:, 1,27,11) = (/ & - &1.5552e+01 ,1.1893e+01 ,8.2787e+00 ,4.4401e+00 ,9.5478e-02 /) - kbo(:, 2,27,11) = (/ & - &2.1129e+01 ,1.6157e+01 ,1.1211e+01 ,5.9970e+00 ,1.1930e-01 /) - kbo(:, 3,27,11) = (/ & - &2.7798e+01 ,2.1248e+01 ,1.4714e+01 ,7.8588e+00 ,1.4147e-01 /) - kbo(:, 4,27,11) = (/ & - &3.5437e+01 ,2.7084e+01 ,1.8740e+01 ,1.0024e+01 ,1.6966e-01 /) - kbo(:, 5,27,11) = (/ & - &4.4196e+01 ,3.3778e+01 ,2.3350e+01 ,1.2494e+01 ,2.0142e-01 /) - kbo(:, 1,28,11) = (/ & - &1.4683e+01 ,1.1292e+01 ,7.8718e+00 ,4.2106e+00 ,8.7356e-02 /) - kbo(:, 2,28,11) = (/ & - &1.9886e+01 ,1.5281e+01 ,1.0638e+01 ,5.6861e+00 ,1.0714e-01 /) - kbo(:, 3,28,11) = (/ & - &2.5973e+01 ,1.9937e+01 ,1.3871e+01 ,7.4210e+00 ,1.3061e-01 /) - kbo(:, 4,28,11) = (/ & - &3.3032e+01 ,2.5345e+01 ,1.7630e+01 ,9.4399e+00 ,1.5744e-01 /) - kbo(:, 5,28,11) = (/ & - &4.1210e+01 ,3.1582e+01 ,2.1933e+01 ,1.1759e+01 ,1.8456e-01 /) - kbo(:, 1,29,11) = (/ & - &1.3790e+01 ,1.0662e+01 ,7.4451e+00 ,3.9766e+00 ,7.8021e-02 /) - kbo(:, 2,29,11) = (/ & - &1.8507e+01 ,1.4288e+01 ,9.9758e+00 ,5.3363e+00 ,9.5820e-02 /) - kbo(:, 3,29,11) = (/ & - &2.4091e+01 ,1.8575e+01 ,1.2977e+01 ,6.9398e+00 ,1.1898e-01 /) - kbo(:, 4,29,11) = (/ & - &3.0652e+01 ,2.3593e+01 ,1.6474e+01 ,8.8251e+00 ,1.4373e-01 /) - kbo(:, 5,29,11) = (/ & - &3.8268e+01 ,2.9419e+01 ,2.0534e+01 ,1.1026e+01 ,1.6837e-01 /) - kbo(:, 1,30,11) = (/ & - &1.2835e+01 ,9.9842e+00 ,6.9893e+00 ,3.7286e+00 ,6.9765e-02 /) - kbo(:, 2,30,11) = (/ & - &1.7126e+01 ,1.3305e+01 ,9.3238e+00 ,4.9785e+00 ,8.7990e-02 /) - kbo(:, 3,30,11) = (/ & - &2.2319e+01 ,1.7278e+01 ,1.2100e+01 ,6.4728e+00 ,1.0830e-01 /) - kbo(:, 4,30,11) = (/ & - &2.8412e+01 ,2.1956e+01 ,1.5383e+01 ,8.2493e+00 ,1.2854e-01 /) - kbo(:, 5,30,11) = (/ & - &3.5540e+01 ,2.7422e+01 ,1.9221e+01 ,1.0332e+01 ,1.5041e-01 /) - kbo(:, 1,31,11) = (/ & - &1.1866e+01 ,9.2840e+00 ,6.5153e+00 ,3.4693e+00 ,6.2880e-02 /) - kbo(:, 2,31,11) = (/ & - &1.5808e+01 ,1.2342e+01 ,8.6596e+00 ,4.6193e+00 ,7.8616e-02 /) - kbo(:, 3,31,11) = (/ & - &2.0587e+01 ,1.6022e+01 ,1.1250e+01 ,6.0171e+00 ,9.4908e-02 /) - kbo(:, 4,31,11) = (/ & - &2.6251e+01 ,2.0378e+01 ,1.4318e+01 ,7.6818e+00 ,1.1384e-01 /) - kbo(:, 5,31,11) = (/ & - &3.2893e+01 ,2.5487e+01 ,1.7928e+01 ,9.6467e+00 ,1.3241e-01 /) - kbo(:, 1,32,11) = (/ & - &1.1095e+01 ,8.7224e+00 ,6.1226e+00 ,3.2519e+00 ,5.6839e-02 /) - kbo(:, 2,32,11) = (/ & - &1.4751e+01 ,1.1560e+01 ,8.1226e+00 ,4.3325e+00 ,7.0855e-02 /) - kbo(:, 3,32,11) = (/ & - &1.9205e+01 ,1.5015e+01 ,1.0554e+01 ,5.6424e+00 ,8.5721e-02 /) - kbo(:, 4,32,11) = (/ & - &2.4504e+01 ,1.9119e+01 ,1.3461e+01 ,7.2214e+00 ,1.0137e-01 /) - kbo(:, 5,32,11) = (/ & - &3.0723e+01 ,2.3918e+01 ,1.6887e+01 ,9.0922e+00 ,1.2101e-01 /) - kbo(:, 1,33,11) = (/ & - &1.0469e+01 ,8.2653e+00 ,5.8027e+00 ,3.0803e+00 ,5.1389e-02 /) - kbo(:, 2,33,11) = (/ & - &1.3905e+01 ,1.0963e+01 ,7.7038e+00 ,4.0998e+00 ,6.3408e-02 /) - kbo(:, 3,33,11) = (/ & - &1.8080e+01 ,1.4209e+01 ,9.9969e+00 ,5.3421e+00 ,7.7128e-02 /) - kbo(:, 4,33,11) = (/ & - &2.3055e+01 ,1.8085e+01 ,1.2765e+01 ,6.8504e+00 ,9.2141e-02 /) - kbo(:, 5,33,11) = (/ & - &2.8901e+01 ,2.2629e+01 ,1.6031e+01 ,8.6400e+00 ,1.0949e-01 /) - kbo(:, 1,34,11) = (/ & - &9.9524e+00 ,7.8988e+00 ,5.5437e+00 ,2.9382e+00 ,4.7321e-02 /) - kbo(:, 2,34,11) = (/ & - &1.3224e+01 ,1.0461e+01 ,7.3463e+00 ,3.9087e+00 ,5.8418e-02 /) - kbo(:, 3,34,11) = (/ & - &1.7166e+01 ,1.3560e+01 ,9.5537e+00 ,5.1034e+00 ,7.0181e-02 /) - kbo(:, 4,34,11) = (/ & - &2.1887e+01 ,1.7264e+01 ,1.2211e+01 ,6.5526e+00 ,8.4706e-02 /) - kbo(:, 5,34,11) = (/ & - &2.7487e+01 ,2.1622e+01 ,1.5350e+01 ,8.2698e+00 ,9.8588e-02 /) - kbo(:, 1,35,11) = (/ & - &9.2896e+00 ,7.3988e+00 ,5.1836e+00 ,2.7478e+00 ,4.1417e-02 /) - kbo(:, 2,35,11) = (/ & - &1.2346e+01 ,9.8120e+00 ,6.8895e+00 ,3.6621e+00 ,5.1614e-02 /) - kbo(:, 3,35,11) = (/ & - &1.6038e+01 ,1.2737e+01 ,8.9856e+00 ,4.7992e+00 ,6.2173e-02 /) - kbo(:, 4,35,11) = (/ & - &2.0501e+01 ,1.6246e+01 ,1.1507e+01 ,6.1715e+00 ,7.4346e-02 /) - kbo(:, 5,35,11) = (/ & - &2.5865e+01 ,2.0429e+01 ,1.4515e+01 ,7.8139e+00 ,8.6989e-02 /) - kbo(:, 1,36,11) = (/ & - &8.4641e+00 ,6.7680e+00 ,4.7384e+00 ,2.5089e+00 ,3.5370e-02 /) - kbo(:, 2,36,11) = (/ & - &1.1283e+01 ,9.0077e+00 ,6.3272e+00 ,3.3586e+00 ,4.3427e-02 /) - kbo(:, 3,36,11) = (/ & - &1.4709e+01 ,1.1740e+01 ,8.2852e+00 ,4.4192e+00 ,5.3699e-02 /) - kbo(:, 4,36,11) = (/ & - &1.8892e+01 ,1.5035e+01 ,1.0652e+01 ,5.7082e+00 ,6.4287e-02 /) - kbo(:, 5,36,11) = (/ & - &2.3976e+01 ,1.9028e+01 ,1.3526e+01 ,7.2706e+00 ,7.5870e-02 /) - kbo(:, 1,37,11) = (/ & - &7.4506e+00 ,5.9897e+00 ,4.1905e+00 ,2.2153e+00 ,2.9963e-02 /) - kbo(:, 2,37,11) = (/ & - &1.0029e+01 ,8.0389e+00 ,5.6426e+00 ,2.9898e+00 ,3.7220e-02 /) - kbo(:, 3,37,11) = (/ & - &1.3144e+01 ,1.0534e+01 ,7.4309e+00 ,3.9559e+00 ,4.6416e-02 /) - kbo(:, 4,37,11) = (/ & - &1.6999e+01 ,1.3585e+01 ,9.6217e+00 ,5.1490e+00 ,5.5486e-02 /) - kbo(:, 5,37,11) = (/ & - &2.1741e+01 ,1.7327e+01 ,1.2322e+01 ,6.6152e+00 ,6.5816e-02 /) - kbo(:, 1,38,11) = (/ & - &6.5566e+00 ,5.3014e+00 ,3.7057e+00 ,1.9579e+00 ,2.5356e-02 /) - kbo(:, 2,38,11) = (/ & - &8.9151e+00 ,7.1841e+00 ,5.0400e+00 ,2.6656e+00 ,3.1891e-02 /) - kbo(:, 3,38,11) = (/ & - &1.1778e+01 ,9.4689e+00 ,6.6768e+00 ,3.5488e+00 ,3.9709e-02 /) - kbo(:, 4,38,11) = (/ & - &1.5333e+01 ,1.2304e+01 ,8.7122e+00 ,4.6542e+00 ,4.7360e-02 /) - kbo(:, 5,38,11) = (/ & - &1.9762e+01 ,1.5812e+01 ,1.1244e+01 ,6.0319e+00 ,5.6650e-02 /) - kbo(:, 1,39,11) = (/ & - &5.7815e+00 ,4.6987e+00 ,3.2839e+00 ,1.7336e+00 ,2.1361e-02 /) - kbo(:, 2,39,11) = (/ & - &7.9403e+00 ,6.4302e+00 ,4.5109e+00 ,2.3848e+00 ,2.6909e-02 /) - kbo(:, 3,39,11) = (/ & - &1.0589e+01 ,8.5486e+00 ,6.0232e+00 ,3.1966e+00 ,3.3274e-02 /) - kbo(:, 4,39,11) = (/ & - &1.3890e+01 ,1.1188e+01 ,7.9191e+00 ,4.2244e+00 ,4.0390e-02 /) - kbo(:, 5,39,11) = (/ & - &1.8032e+01 ,1.4487e+01 ,1.0297e+01 ,5.5201e+00 ,4.8824e-02 /) - kbo(:, 1,40,11) = (/ & - &4.9663e+00 ,4.0580e+00 ,2.8368e+00 ,1.4961e+00 ,1.7977e-02 /) - kbo(:, 2,40,11) = (/ & - &6.9269e+00 ,5.6391e+00 ,3.9540e+00 ,2.0894e+00 ,2.2949e-02 /) - kbo(:, 3,40,11) = (/ & - &9.3578e+00 ,7.5891e+00 ,5.3452e+00 ,2.8327e+00 ,2.8350e-02 /) - kbo(:, 4,40,11) = (/ & - &1.2407e+01 ,1.0028e+01 ,7.0894e+00 ,3.7744e+00 ,3.4399e-02 /) - kbo(:, 5,40,11) = (/ & - &1.6240e+01 ,1.3091e+01 ,9.2991e+00 ,4.9787e+00 ,4.2027e-02 /) - kbo(:, 1,41,11) = (/ & - &4.2485e+00 ,3.4862e+00 ,2.4352e+00 ,1.2849e+00 ,1.5088e-02 /) - kbo(:, 2,41,11) = (/ & - &6.0166e+00 ,4.9271e+00 ,3.4537e+00 ,1.8243e+00 ,1.9453e-02 /) - kbo(:, 3,41,11) = (/ & - &8.2485e+00 ,6.7221e+00 ,4.7321e+00 ,2.5060e+00 ,2.4198e-02 /) - kbo(:, 4,41,11) = (/ & - &1.1066e+01 ,8.9791e+00 ,6.3459e+00 ,3.3734e+00 ,2.9570e-02 /) - kbo(:, 5,41,11) = (/ & - &1.4636e+01 ,1.1834e+01 ,8.3996e+00 ,4.4886e+00 ,3.6128e-02 /) - kbo(:, 1,42,11) = (/ & - &3.6346e+00 ,2.9948e+00 ,2.0896e+00 ,1.1018e+00 ,1.2599e-02 /) - kbo(:, 2,42,11) = (/ & - &5.2244e+00 ,4.2974e+00 ,3.0116e+00 ,1.5911e+00 ,1.6323e-02 /) - kbo(:, 3,42,11) = (/ & - &7.2643e+00 ,5.9499e+00 ,4.1877e+00 ,2.2172e+00 ,2.0619e-02 /) - kbo(:, 4,42,11) = (/ & - &9.8747e+00 ,8.0447e+00 ,5.6854e+00 ,3.0206e+00 ,2.5282e-02 /) - kbo(:, 5,42,11) = (/ & - &1.3206e+01 ,1.0716e+01 ,7.6001e+00 ,4.0544e+00 ,3.0876e-02 /) - kbo(:, 1,43,11) = (/ & - &3.0660e+00 ,2.5370e+00 ,1.7687e+00 ,9.3216e-01 ,1.0308e-02 /) - kbo(:, 2,43,11) = (/ & - &4.4856e+00 ,3.7056e+00 ,2.5945e+00 ,1.3700e+00 ,1.3601e-02 /) - kbo(:, 3,43,11) = (/ & - &6.3372e+00 ,5.2140e+00 ,3.6676e+00 ,1.9419e+00 ,1.7306e-02 /) - kbo(:, 4,43,11) = (/ & - &8.7409e+00 ,7.1536e+00 ,5.0545e+00 ,2.6839e+00 ,2.1526e-02 /) - kbo(:, 5,43,11) = (/ & - &1.1846e+01 ,9.6432e+00 ,6.8374e+00 ,3.6437e+00 ,2.6238e-02 /) - kbo(:, 1,44,11) = (/ & - &2.5664e+00 ,2.1306e+00 ,1.4853e+00 ,7.8185e-01 ,8.3390e-03 /) - kbo(:, 2,44,11) = (/ & - &3.8265e+00 ,3.1748e+00 ,2.2204e+00 ,1.1717e+00 ,1.1111e-02 /) - kbo(:, 3,44,11) = (/ & - &5.5006e+00 ,4.5418e+00 ,3.1915e+00 ,1.6892e+00 ,1.4312e-02 /) - kbo(:, 4,44,11) = (/ & - &7.6990e+00 ,6.3295e+00 ,4.4707e+00 ,2.3728e+00 ,1.8022e-02 /) - kbo(:, 5,44,11) = (/ & - &1.0590e+01 ,8.6508e+00 ,6.1308e+00 ,3.2656e+00 ,2.2284e-02 /) - kbo(:, 1,45,11) = (/ & - &2.1449e+00 ,1.7852e+00 ,1.2434e+00 ,6.5459e-01 ,6.5374e-03 /) - kbo(:, 2,45,11) = (/ & - &3.2586e+00 ,2.7120e+00 ,1.8962e+00 ,1.0002e+00 ,8.9661e-03 /) - kbo(:, 3,45,11) = (/ & - &4.7677e+00 ,3.9512e+00 ,2.7729e+00 ,1.4668e+00 ,1.1723e-02 /) - kbo(:, 4,45,11) = (/ & - &6.7759e+00 ,5.5907e+00 ,3.9459e+00 ,2.0943e+00 ,1.4893e-02 /) - kbo(:, 5,45,11) = (/ & - &9.4617e+00 ,7.7574e+00 ,5.4954e+00 ,2.9257e+00 ,1.8879e-02 /) - kbo(:, 1,46,11) = (/ & - &1.7693e+00 ,1.4778e+00 ,1.0286e+00 ,5.4110e-01 ,5.0474e-03 /) - kbo(:, 2,46,11) = (/ & - &2.7478e+00 ,2.2930e+00 ,1.6009e+00 ,8.4457e-01 ,7.0726e-03 /) - kbo(:, 3,46,11) = (/ & - &4.0941e+00 ,3.4053e+00 ,2.3875e+00 ,1.2626e+00 ,9.5023e-03 /) - kbo(:, 4,46,11) = (/ & - &5.9189e+00 ,4.8999e+00 ,3.4535e+00 ,1.8324e+00 ,1.2322e-02 /) - kbo(:, 5,46,11) = (/ & - &8.3887e+00 ,6.9026e+00 ,4.8893e+00 ,2.6020e+00 ,1.5617e-02 /) - kbo(:, 1,47,11) = (/ & - &1.4241e+00 ,1.1941e+00 ,8.3002e-01 ,4.3643e-01 ,3.7828e-03 /) - kbo(:, 2,47,11) = (/ & - &2.2698e+00 ,1.8986e+00 ,1.3247e+00 ,6.9822e-01 ,5.4676e-03 /) - kbo(:, 3,47,11) = (/ & - &3.4547e+00 ,2.8836e+00 ,2.0196e+00 ,1.0678e+00 ,7.6213e-03 /) - kbo(:, 4,47,11) = (/ & - &5.0871e+00 ,4.2288e+00 ,2.9766e+00 ,1.5778e+00 ,9.9658e-03 /) - kbo(:, 5,47,11) = (/ & - &7.3321e+00 ,6.0542e+00 ,4.2837e+00 ,2.2790e+00 ,1.3055e-02 /) - kbo(:, 1,48,11) = (/ & - &1.1337e+00 ,9.5606e-01 ,6.6479e-01 ,3.4941e-01 ,2.8319e-03 /) - kbo(:, 2,48,11) = (/ & - &1.8661e+00 ,1.5653e+00 ,1.0902e+00 ,5.7432e-01 ,4.1758e-03 /) - kbo(:, 3,48,11) = (/ & - &2.9045e+00 ,2.4321e+00 ,1.7012e+00 ,8.9870e-01 ,5.9617e-03 /) - kbo(:, 4,48,11) = (/ & - &4.3570e+00 ,3.6357e+00 ,2.5565e+00 ,1.3546e+00 ,7.9840e-03 /) - kbo(:, 5,48,11) = (/ & - &6.3922e+00 ,5.2980e+00 ,3.7432e+00 ,1.9904e+00 ,1.0519e-02 /) - kbo(:, 1,49,11) = (/ & - &8.9211e-01 ,7.5781e-01 ,5.2674e-01 ,2.7699e-01 ,2.0587e-03 /) - kbo(:, 2,49,11) = (/ & - &1.5203e+00 ,1.2812e+00 ,8.9206e-01 ,4.6970e-01 ,3.1077e-03 /) - kbo(:, 3,49,11) = (/ & - &2.4343e+00 ,2.0415e+00 ,1.4265e+00 ,7.5292e-01 ,4.5062e-03 /) - kbo(:, 4,49,11) = (/ & - &3.7205e+00 ,3.1142e+00 ,2.1868e+00 ,1.1585e+00 ,6.1377e-03 /) - kbo(:, 5,49,11) = (/ & - &5.5564e+00 ,4.6243e+00 ,3.2638e+00 ,1.7346e+00 ,8.3879e-03 /) - kbo(:, 1,50,11) = (/ & - &6.9944e-01 ,5.9730e-01 ,4.1544e-01 ,2.1892e-01 ,1.5159e-03 /) - kbo(:, 2,50,11) = (/ & - &1.2386e+00 ,1.0495e+00 ,7.3105e-01 ,3.8493e-01 ,2.3639e-03 /) - kbo(:, 3,50,11) = (/ & - &2.0475e+00 ,1.7233e+00 ,1.2030e+00 ,6.3443e-01 ,3.5129e-03 /) - kbo(:, 4,50,11) = (/ & - &3.1987e+00 ,2.6838e+00 ,1.8828e+00 ,9.9721e-01 ,4.9131e-03 /) - kbo(:, 5,50,11) = (/ & - &4.8613e+00 ,4.0604e+00 ,2.8638e+00 ,1.5216e+00 ,6.8102e-03 /) - kbo(:, 1,51,11) = (/ & - &5.4324e-01 ,4.6725e-01 ,3.2546e-01 ,1.7172e-01 ,1.1297e-03 /) - kbo(:, 2,51,11) = (/ & - &1.0054e+00 ,8.5632e-01 ,5.9623e-01 ,3.1426e-01 ,1.7844e-03 /) - kbo(:, 3,51,11) = (/ & - &1.7180e+00 ,1.4523e+00 ,1.0136e+00 ,5.3456e-01 ,2.7288e-03 /) - kbo(:, 4,51,11) = (/ & - &2.7560e+00 ,2.3178e+00 ,1.6244e+00 ,8.6011e-01 ,3.9147e-03 /) - kbo(:, 5,51,11) = (/ & - &4.2636e+00 ,3.5725e+00 ,2.5176e+00 ,1.3376e+00 ,5.4601e-03 /) - kbo(:, 1,52,11) = (/ & - &4.1659e-01 ,3.6012e-01 ,2.5102e-01 ,1.3270e-01 ,8.3775e-04 /) - kbo(:, 2,52,11) = (/ & - &8.0451e-01 ,6.9074e-01 ,4.8148e-01 ,2.5404e-01 ,1.3424e-03 /) - kbo(:, 3,52,11) = (/ & - &1.4303e+00 ,1.2146e+00 ,8.4783e-01 ,4.4730e-01 ,2.0961e-03 /) - kbo(:, 4,52,11) = (/ & - &2.3661e+00 ,1.9968e+00 ,1.3985e+00 ,7.3984e-01 ,3.0912e-03 /) - kbo(:, 5,52,11) = (/ & - &3.7364e+00 ,3.1393e+00 ,2.2101e+00 ,1.1738e+00 ,4.3230e-03 /) - kbo(:, 1,53,11) = (/ & - &3.1784e-01 ,2.7470e-01 ,1.9112e-01 ,1.0099e-01 ,6.0100e-04 /) - kbo(:, 2,53,11) = (/ & - &6.3733e-01 ,5.5043e-01 ,3.8376e-01 ,2.0263e-01 ,1.0152e-03 /) - kbo(:, 3,53,11) = (/ & - &1.1810e+00 ,1.0077e+00 ,7.0333e-01 ,3.7118e-01 ,1.5799e-03 /) - kbo(:, 4,53,11) = (/ & - &2.0184e+00 ,1.7109e+00 ,1.1985e+00 ,6.3377e-01 ,2.3636e-03 /) - kbo(:, 5,53,11) = (/ & - &3.2693e+00 ,2.7525e+00 ,1.9355e+00 ,1.0278e+00 ,3.4086e-03 /) - kbo(:, 1,54,11) = (/ & - &2.4587e-01 ,2.1298e-01 ,1.4829e-01 ,7.8206e-02 ,4.4874e-04 /) - kbo(:, 2,54,11) = (/ & - &5.0524e-01 ,4.3896e-01 ,3.0674e-01 ,1.6236e-01 ,7.8054e-04 /) - kbo(:, 3,54,11) = (/ & - &9.7870e-01 ,8.4204e-01 ,5.8784e-01 ,3.1052e-01 ,1.2701e-03 /) - kbo(:, 4,54,11) = (/ & - &1.7368e+00 ,1.4787e+00 ,1.0357e+00 ,5.4775e-01 ,1.9340e-03 /) - kbo(:, 5,54,11) = (/ & - &2.8933e+00 ,2.4419e+00 ,1.7163e+00 ,9.1082e-01 ,2.8443e-03 /) - kbo(:, 1,55,11) = (/ & - &1.9418e-01 ,1.6698e-01 ,1.1582e-01 ,6.0924e-02 ,3.5209e-04 /) - kbo(:, 2,55,11) = (/ & - &3.9791e-01 ,3.4892e-01 ,2.4392e-01 ,1.2929e-01 ,6.3188e-04 /) - kbo(:, 3,55,11) = (/ & - &8.0845e-01 ,6.9946e-01 ,4.8912e-01 ,2.5894e-01 ,1.0591e-03 /) - kbo(:, 4,55,11) = (/ & - &1.4970e+00 ,1.2804e+00 ,8.9678e-01 ,4.7424e-01 ,1.6138e-03 /) - kbo(:, 5,55,11) = (/ & - &2.5700e+00 ,2.1774e+00 ,1.5304e+00 ,8.1150e-01 ,2.4277e-03 /) - kbo(:, 1,56,11) = (/ & - &1.5370e-01 ,1.3145e-01 ,9.1321e-02 ,4.8124e-02 ,2.7531e-04 /) - kbo(:, 2,56,11) = (/ & - &3.1616e-01 ,2.7583e-01 ,1.9245e-01 ,1.0171e-01 ,5.0269e-04 /) - kbo(:, 3,56,11) = (/ & - &6.6199e-01 ,5.7649e-01 ,4.0352e-01 ,2.1386e-01 ,8.6775e-04 /) - kbo(:, 4,56,11) = (/ & - &1.2822e+00 ,1.1021e+00 ,7.7256e-01 ,4.0891e-01 ,1.3519e-03 /) - kbo(:, 5,56,11) = (/ & - &2.2783e+00 ,1.9368e+00 ,1.3622e+00 ,7.2221e-01 ,2.0801e-03 /) - kbo(:, 1,57,11) = (/ & - &1.2165e-01 ,1.0433e-01 ,7.2303e-02 ,3.8009e-02 ,2.1938e-04 /) - kbo(:, 2,57,11) = (/ & - &2.5198e-01 ,2.1938e-01 ,1.5311e-01 ,8.0877e-02 ,3.9875e-04 /) - kbo(:, 3,57,11) = (/ & - &5.3606e-01 ,4.7039e-01 ,3.2945e-01 ,1.7508e-01 ,6.9954e-04 /) - kbo(:, 4,57,11) = (/ & - &1.0880e+00 ,9.4273e-01 ,6.6142e-01 ,3.5027e-01 ,1.1454e-03 /) - kbo(:, 5,57,11) = (/ & - &2.0139e+00 ,1.7191e+00 ,1.2097e+00 ,6.4100e-01 ,1.7901e-03 /) - kbo(:, 1,58,11) = (/ & - &4.6919e-02 ,4.6268e-02 ,3.7584e-02 ,2.3911e-02 ,1.7988e-04 /) - kbo(:, 2,58,11) = (/ & - &9.9628e-02 ,9.8832e-02 ,8.0744e-02 ,5.1438e-02 ,3.2482e-04 /) - kbo(:, 3,58,11) = (/ & - &2.1097e-01 ,2.1358e-01 ,1.7570e-01 ,1.1318e-01 ,5.8194e-04 /) - kbo(:, 4,58,11) = (/ & - &4.4837e-01 ,4.4802e-01 ,3.6936e-01 ,2.3727e-01 ,9.7962e-04 /) - kbo(:, 5,58,11) = (/ & - &8.6568e-01 ,8.5230e-01 ,7.0456e-01 ,4.5178e-01 ,1.5789e-03 /) - kbo(:, 1,59,11) = (/ & - &4.1955e-02 ,4.1496e-02 ,3.3924e-02 ,2.1748e-02 ,1.7054e-04 /) - kbo(:, 2,59,11) = (/ & - &9.0096e-02 ,8.9872e-02 ,7.3696e-02 ,4.7378e-02 ,3.1638e-04 /) - kbo(:, 3,59,11) = (/ & - &1.9169e-01 ,1.9390e-01 ,1.6037e-01 ,1.0394e-01 ,5.9374e-04 /) - kbo(:, 4,59,11) = (/ & - &4.1170e-01 ,4.1459e-01 ,3.4386e-01 ,2.2297e-01 ,1.0082e-03 /) - kbo(:, 5,59,11) = (/ & - &8.1839e-01 ,8.1107e-01 ,6.7470e-01 ,4.3624e-01 ,1.6869e-03 /) - kbo(:, 1,13,12) = (/ & - &1.0396e+02 ,7.7973e+01 ,5.1984e+01 ,2.5992e+01 ,2.8896e-01 /) - kbo(:, 2,13,12) = (/ & - &1.4817e+02 ,1.1113e+02 ,7.4089e+01 ,3.7043e+01 ,6.4071e-01 /) - kbo(:, 3,13,12) = (/ & - &2.0061e+02 ,1.5046e+02 ,1.0030e+02 ,5.0152e+01 ,7.6116e-01 /) - kbo(:, 4,13,12) = (/ & - &2.6114e+02 ,1.9586e+02 ,1.3057e+02 ,6.5284e+01 ,1.0553e+00 /) - kbo(:, 5,13,12) = (/ & - &3.2831e+02 ,2.4622e+02 ,1.6415e+02 ,8.2071e+01 ,1.4067e+00 /) - kbo(:, 1,14,12) = (/ & - &1.1135e+02 ,8.3512e+01 ,5.5676e+01 ,2.7839e+01 ,4.1053e-01 /) - kbo(:, 2,14,12) = (/ & - &1.5695e+02 ,1.1771e+02 ,7.8475e+01 ,3.9240e+01 ,6.2372e-01 /) - kbo(:, 3,14,12) = (/ & - &2.1121e+02 ,1.5841e+02 ,1.0560e+02 ,5.2802e+01 ,8.0301e-01 /) - kbo(:, 4,14,12) = (/ & - &2.7313e+02 ,2.0485e+02 ,1.3657e+02 ,6.8283e+01 ,1.0170e+00 /) - kbo(:, 5,14,12) = (/ & - &3.4124e+02 ,2.5592e+02 ,1.7062e+02 ,8.5308e+01 ,1.1064e+00 /) - kbo(:, 1,15,12) = (/ & - &1.1186e+02 ,8.3897e+01 ,5.5935e+01 ,2.7966e+01 ,4.8952e-01 /) - kbo(:, 2,15,12) = (/ & - &1.5638e+02 ,1.1729e+02 ,7.8194e+01 ,3.9097e+01 ,5.8507e-01 /) - kbo(:, 3,15,12) = (/ & - &2.0878e+02 ,1.5659e+02 ,1.0439e+02 ,5.2197e+01 ,6.7687e-01 /) - kbo(:, 4,15,12) = (/ & - &2.6790e+02 ,2.0092e+02 ,1.3395e+02 ,6.6979e+01 ,7.8981e-01 /) - kbo(:, 5,15,12) = (/ & - &3.3305e+02 ,2.4981e+02 ,1.6654e+02 ,8.3272e+01 ,9.5540e-01 /) - kbo(:, 1,16,12) = (/ & - &1.0741e+02 ,8.0552e+01 ,5.3706e+01 ,2.6852e+01 ,4.1874e-01 /) - kbo(:, 2,16,12) = (/ & - &1.4898e+02 ,1.1174e+02 ,7.4489e+01 ,3.7244e+01 ,5.0405e-01 /) - kbo(:, 3,16,12) = (/ & - &1.9721e+02 ,1.4789e+02 ,9.8599e+01 ,4.9301e+01 ,6.1901e-01 /) - kbo(:, 4,16,12) = (/ & - &2.5144e+02 ,1.8859e+02 ,1.2573e+02 ,6.2879e+01 ,7.4947e-01 /) - kbo(:, 5,16,12) = (/ & - &3.1058e+02 ,2.3295e+02 ,1.5529e+02 ,7.7686e+01 ,8.7491e-01 /) - kbo(:, 1,17,12) = (/ & - &9.9838e+01 ,7.4879e+01 ,4.9919e+01 ,2.5012e+01 ,3.9338e-01 /) - kbo(:, 2,17,12) = (/ & - &1.3717e+02 ,1.0287e+02 ,6.8583e+01 ,3.4361e+01 ,4.7893e-01 /) - kbo(:, 3,17,12) = (/ & - &1.8052e+02 ,1.3539e+02 ,9.0259e+01 ,4.5242e+01 ,5.7262e-01 /) - kbo(:, 4,17,12) = (/ & - &2.2880e+02 ,1.7160e+02 ,1.1440e+02 ,5.7395e+01 ,6.8306e-01 /) - kbo(:, 5,17,12) = (/ & - &2.8220e+02 ,2.1165e+02 ,1.4109e+02 ,7.0870e+01 ,7.6022e-01 /) - kbo(:, 1,18,12) = (/ & - &8.8836e+01 ,6.6627e+01 ,4.4421e+01 ,2.2423e+01 ,3.7355e-01 /) - kbo(:, 2,18,12) = (/ & - &1.2136e+02 ,9.1017e+01 ,6.0679e+01 ,3.0651e+01 ,4.3123e-01 /) - kbo(:, 3,18,12) = (/ & - &1.5857e+02 ,1.1893e+02 ,7.9284e+01 ,4.0088e+01 ,5.1039e-01 /) - kbo(:, 4,18,12) = (/ & - &2.0050e+02 ,1.5036e+02 ,1.0025e+02 ,5.0735e+01 ,5.8388e-01 /) - kbo(:, 5,18,12) = (/ & - &2.4631e+02 ,1.8473e+02 ,1.2316e+02 ,6.2388e+01 ,6.7078e-01 /) - kbo(:, 1,19,12) = (/ & - &7.8886e+01 ,5.9167e+01 ,3.9445e+01 ,2.0119e+01 ,3.3866e-01 /) - kbo(:, 2,19,12) = (/ & - &1.0689e+02 ,8.0167e+01 ,5.3444e+01 ,2.7289e+01 ,4.0283e-01 /) - kbo(:, 3,19,12) = (/ & - &1.3921e+02 ,1.0440e+02 ,6.9601e+01 ,3.5553e+01 ,4.5001e-01 /) - kbo(:, 4,19,12) = (/ & - &1.7541e+02 ,1.3156e+02 ,8.7714e+01 ,4.4793e+01 ,5.0843e-01 /) - kbo(:, 5,19,12) = (/ & - &2.1523e+02 ,1.6142e+02 ,1.0764e+02 ,5.4993e+01 ,5.9607e-01 /) - kbo(:, 1,20,12) = (/ & - &7.0328e+01 ,5.2750e+01 ,3.5209e+01 ,1.8081e+01 ,3.1237e-01 /) - kbo(:, 2,20,12) = (/ & - &9.4812e+01 ,7.1110e+01 ,4.7453e+01 ,2.4387e+01 ,3.6655e-01 /) - kbo(:, 3,20,12) = (/ & - &1.2307e+02 ,9.2305e+01 ,6.1607e+01 ,3.1685e+01 ,4.1127e-01 /) - kbo(:, 4,20,12) = (/ & - &1.5482e+02 ,1.1612e+02 ,7.7556e+01 ,3.9922e+01 ,4.7264e-01 /) - kbo(:, 5,20,12) = (/ & - &1.8921e+02 ,1.4190e+02 ,9.4818e+01 ,4.8866e+01 ,5.5288e-01 /) - kbo(:, 1,21,12) = (/ & - &6.2329e+01 ,4.6745e+01 ,3.1314e+01 ,1.6132e+01 ,2.8533e-01 /) - kbo(:, 2,21,12) = (/ & - &8.3734e+01 ,6.2791e+01 ,4.2073e+01 ,2.1717e+01 ,3.3097e-01 /) - kbo(:, 3,21,12) = (/ & - &1.0843e+02 ,8.1321e+01 ,5.4516e+01 ,2.8198e+01 ,3.8205e-01 /) - kbo(:, 4,21,12) = (/ & - &1.3597e+02 ,1.0198e+02 ,6.8398e+01 ,3.5455e+01 ,4.6172e-01 /) - kbo(:, 5,21,12) = (/ & - &1.6566e+02 ,1.2424e+02 ,8.3370e+01 ,4.3320e+01 ,5.2289e-01 /) - kbo(:, 1,22,12) = (/ & - &5.5853e+01 ,4.1896e+01 ,2.8239e+01 ,1.4630e+01 ,2.6479e-01 /) - kbo(:, 2,22,12) = (/ & - &7.4659e+01 ,5.5993e+01 ,3.7758e+01 ,1.9621e+01 ,3.0587e-01 /) - kbo(:, 3,22,12) = (/ & - &9.6287e+01 ,7.2215e+01 ,4.8710e+01 ,2.5388e+01 ,3.6961e-01 /) - kbo(:, 4,22,12) = (/ & - &1.2002e+02 ,9.0023e+01 ,6.0736e+01 ,3.1753e+01 ,4.4273e-01 /) - kbo(:, 5,22,12) = (/ & - &1.4596e+02 ,1.0947e+02 ,7.3878e+01 ,3.8690e+01 ,5.0560e-01 /) - kbo(:, 1,23,12) = (/ & - &4.9987e+01 ,3.7501e+01 ,2.5418e+01 ,1.3325e+01 ,2.4880e-01 /) - kbo(:, 2,23,12) = (/ & - &6.6514e+01 ,4.9903e+01 ,3.3828e+01 ,1.7769e+01 ,2.9089e-01 /) - kbo(:, 3,23,12) = (/ & - &8.5155e+01 ,6.3887e+01 ,4.3325e+01 ,2.2796e+01 ,3.6730e-01 /) - kbo(:, 4,23,12) = (/ & - &1.0588e+02 ,7.9440e+01 ,5.3898e+01 ,2.8390e+01 ,4.2226e-01 /) - kbo(:, 5,23,12) = (/ & - &1.2867e+02 ,9.6554e+01 ,6.5521e+01 ,3.4526e+01 ,4.8786e-01 /) - kbo(:, 1,24,12) = (/ & - &4.5237e+01 ,3.3990e+01 ,2.3082e+01 ,1.2266e+01 ,2.3374e-01 /) - kbo(:, 2,24,12) = (/ & - &5.9731e+01 ,4.4882e+01 ,3.0518e+01 ,1.6222e+01 ,2.9093e-01 /) - kbo(:, 3,24,12) = (/ & - &7.6147e+01 ,5.7227e+01 ,3.8961e+01 ,2.0700e+01 ,3.4607e-01 /) - kbo(:, 4,24,12) = (/ & - &9.4592e+01 ,7.1092e+01 ,4.8449e+01 ,2.5703e+01 ,4.0338e-01 /) - kbo(:, 5,24,12) = (/ & - &1.1508e+02 ,8.6507e+01 ,5.8986e+01 ,3.1241e+01 ,4.6347e-01 /) - kbo(:, 1,25,12) = (/ & - &4.1207e+01 ,3.1054e+01 ,2.1145e+01 ,1.1344e+01 ,2.1959e-01 /) - kbo(:, 2,25,12) = (/ & - &5.4029e+01 ,4.0717e+01 ,2.7774e+01 ,1.4878e+01 ,2.7843e-01 /) - kbo(:, 3,25,12) = (/ & - &6.8735e+01 ,5.1802e+01 ,3.5391e+01 ,1.8919e+01 ,3.2302e-01 /) - kbo(:, 4,25,12) = (/ & - &8.5416e+01 ,6.4368e+01 ,4.4030e+01 ,2.3485e+01 ,3.8140e-01 /) - kbo(:, 5,25,12) = (/ & - &1.0430e+02 ,7.8570e+01 ,5.3767e+01 ,2.8613e+01 ,4.3338e-01 /) - kbo(:, 1,26,12) = (/ & - &3.7870e+01 ,2.8646e+01 ,1.9592e+01 ,1.0560e+01 ,2.1067e-01 /) - kbo(:, 2,26,12) = (/ & - &4.9486e+01 ,3.7425e+01 ,2.5645e+01 ,1.3791e+01 ,2.5277e-01 /) - kbo(:, 3,26,12) = (/ & - &6.2993e+01 ,4.7626e+01 ,3.2666e+01 ,1.7516e+01 ,3.0077e-01 /) - kbo(:, 4,26,12) = (/ & - &7.8659e+01 ,5.9439e+01 ,4.0756e+01 ,2.1814e+01 ,3.5095e-01 /) - kbo(:, 5,26,12) = (/ & - &9.6658e+01 ,7.2997e+01 ,5.0039e+01 ,2.6742e+01 ,4.0727e-01 /) - kbo(:, 1,27,12) = (/ & - &3.5089e+01 ,2.6619e+01 ,1.8325e+01 ,9.8881e+00 ,1.9876e-01 /) - kbo(:, 2,27,12) = (/ & - &4.5899e+01 ,3.4800e+01 ,2.3944e+01 ,1.2890e+01 ,2.3298e-01 /) - kbo(:, 3,27,12) = (/ & - &5.8737e+01 ,4.4506e+01 ,3.0596e+01 ,1.6445e+01 ,2.8191e-01 /) - kbo(:, 4,27,12) = (/ & - &7.3770e+01 ,5.5858e+01 ,3.8369e+01 ,2.0601e+01 ,3.2481e-01 /) - kbo(:, 5,27,12) = (/ & - &9.1107e+01 ,6.8940e+01 ,4.7296e+01 ,2.5356e+01 ,3.8171e-01 /) - kbo(:, 1,28,12) = (/ & - &3.2818e+01 ,2.4943e+01 ,1.7280e+01 ,9.3226e+00 ,1.7817e-01 /) - kbo(:, 2,28,12) = (/ & - &4.3184e+01 ,3.2811e+01 ,2.2668e+01 ,1.2208e+01 ,2.1857e-01 /) - kbo(:, 3,28,12) = (/ & - &5.5616e+01 ,4.2235e+01 ,2.9105e+01 ,1.5656e+01 ,2.5762e-01 /) - kbo(:, 4,28,12) = (/ & - &7.0259e+01 ,5.3319e+01 ,3.6659e+01 ,1.9693e+01 ,3.0371e-01 /) - kbo(:, 5,28,12) = (/ & - &8.7123e+01 ,6.6079e+01 ,4.5396e+01 ,2.4379e+01 ,3.5478e-01 /) - kbo(:, 1,29,12) = (/ & - &3.0859e+01 ,2.3511e+01 ,1.6360e+01 ,8.8280e+00 ,1.6679e-01 /) - kbo(:, 2,29,12) = (/ & - &4.0867e+01 ,3.1128e+01 ,2.1584e+01 ,1.1631e+01 ,2.0451e-01 /) - kbo(:, 3,29,12) = (/ & - &5.2915e+01 ,4.0294e+01 ,2.7845e+01 ,1.4987e+01 ,2.3670e-01 /) - kbo(:, 4,29,12) = (/ & - &6.7028e+01 ,5.1030e+01 ,3.5190e+01 ,1.8944e+01 ,2.7999e-01 /) - kbo(:, 5,29,12) = (/ & - &8.3169e+01 ,6.3273e+01 ,4.3571e+01 ,2.3474e+01 ,3.2963e-01 /) - kbo(:, 1,30,12) = (/ & - &2.9181e+01 ,2.2308e+01 ,1.5570e+01 ,8.4046e+00 ,1.5217e-01 /) - kbo(:, 2,30,12) = (/ & - &3.8810e+01 ,2.9664e+01 ,2.0634e+01 ,1.1131e+01 ,1.8255e-01 /) - kbo(:, 3,30,12) = (/ & - &5.0316e+01 ,3.8456e+01 ,2.6686e+01 ,1.4393e+01 ,2.1489e-01 /) - kbo(:, 4,30,12) = (/ & - &6.3652e+01 ,4.8625e+01 ,3.3675e+01 ,1.8188e+01 ,2.5258e-01 /) - kbo(:, 5,30,12) = (/ & - &7.8956e+01 ,6.0282e+01 ,4.1671e+01 ,2.2569e+01 ,2.9642e-01 /) - kbo(:, 1,31,12) = (/ & - &2.7538e+01 ,2.1159e+01 ,1.4815e+01 ,8.0002e+00 ,1.3523e-01 /) - kbo(:, 2,31,12) = (/ & - &3.6621e+01 ,2.8123e+01 ,1.9646e+01 ,1.0617e+01 ,1.6072e-01 /) - kbo(:, 3,31,12) = (/ & - &4.7347e+01 ,3.6341e+01 ,2.5341e+01 ,1.3718e+01 ,1.9204e-01 /) - kbo(:, 4,31,12) = (/ & - &5.9881e+01 ,4.5936e+01 ,3.1977e+01 ,1.7350e+01 ,2.2658e-01 /) - kbo(:, 5,31,12) = (/ & - &7.4375e+01 ,5.6987e+01 ,3.9602e+01 ,2.1563e+01 ,2.6205e-01 /) - kbo(:, 1,32,12) = (/ & - &2.6147e+01 ,2.0200e+01 ,1.4192e+01 ,7.6720e+00 ,1.1829e-01 /) - kbo(:, 2,32,12) = (/ & - &3.4618e+01 ,2.6728e+01 ,1.8768e+01 ,1.0173e+01 ,1.4448e-01 /) - kbo(:, 3,32,12) = (/ & - &4.4733e+01 ,3.4488e+01 ,2.4181e+01 ,1.3140e+01 ,1.7290e-01 /) - kbo(:, 4,32,12) = (/ & - &5.6644e+01 ,4.3620e+01 ,3.0542e+01 ,1.6653e+01 ,2.0200e-01 /) - kbo(:, 5,32,12) = (/ & - &7.0667e+01 ,5.4331e+01 ,3.7949e+01 ,2.0755e+01 ,2.3023e-01 /) - kbo(:, 1,33,12) = (/ & - &2.4867e+01 ,1.9325e+01 ,1.3642e+01 ,7.3884e+00 ,1.0477e-01 /) - kbo(:, 2,33,12) = (/ & - &3.2857e+01 ,2.5486e+01 ,1.7993e+01 ,9.7748e+00 ,1.2807e-01 /) - kbo(:, 3,33,12) = (/ & - &4.2482e+01 ,3.2899e+01 ,2.3208e+01 ,1.2658e+01 ,1.5122e-01 /) - kbo(:, 4,33,12) = (/ & - &5.4028e+01 ,4.1749e+01 ,2.9378e+01 ,1.6087e+01 ,1.7656e-01 /) - kbo(:, 5,33,12) = (/ & - &6.7699e+01 ,5.2220e+01 ,3.6682e+01 ,2.0157e+01 ,2.0029e-01 /) - kbo(:, 1,34,12) = (/ & - &2.3698e+01 ,1.8505e+01 ,1.3121e+01 ,7.1187e+00 ,9.5888e-02 /) - kbo(:, 2,34,12) = (/ & - &3.1359e+01 ,2.4427e+01 ,1.7335e+01 ,9.4402e+00 ,1.1540e-01 /) - kbo(:, 3,34,12) = (/ & - &4.0701e+01 ,3.1624e+01 ,2.2413e+01 ,1.2266e+01 ,1.3371e-01 /) - kbo(:, 4,34,12) = (/ & - &5.2041e+01 ,4.0338e+01 ,2.8530e+01 ,1.5676e+01 ,1.5490e-01 /) - kbo(:, 5,34,12) = (/ & - &6.5491e+01 ,5.0663e+01 ,3.5768e+01 ,1.9755e+01 ,1.8157e-01 /) - kbo(:, 1,35,12) = (/ & - &2.2108e+01 ,1.7359e+01 ,1.2354e+01 ,6.7085e+00 ,8.3925e-02 /) - kbo(:, 2,35,12) = (/ & - &2.9390e+01 ,2.2999e+01 ,1.6388e+01 ,8.9464e+00 ,9.9962e-02 /) - kbo(:, 3,35,12) = (/ & - &3.8435e+01 ,2.9966e+01 ,2.1324e+01 ,1.1694e+01 ,1.1806e-01 /) - kbo(:, 4,35,12) = (/ & - &4.9418e+01 ,3.8439e+01 ,2.7323e+01 ,1.5063e+01 ,1.3630e-01 /) - kbo(:, 5,35,12) = (/ & - &6.2546e+01 ,4.8535e+01 ,3.4447e+01 ,1.9092e+01 ,1.6585e-01 /) - kbo(:, 1,36,12) = (/ & - &2.0129e+01 ,1.5891e+01 ,1.1346e+01 ,6.1643e+00 ,7.2166e-02 /) - kbo(:, 2,36,12) = (/ & - &2.6967e+01 ,2.1198e+01 ,1.5154e+01 ,8.2858e+00 ,8.5917e-02 /) - kbo(:, 3,36,12) = (/ & - &3.5568e+01 ,2.7847e+01 ,1.9901e+01 ,1.0934e+01 ,1.0193e-01 /) - kbo(:, 4,36,12) = (/ & - &4.6092e+01 ,3.5975e+01 ,2.5697e+01 ,1.4200e+01 ,1.2167e-01 /) - kbo(:, 5,36,12) = (/ & - &5.8785e+01 ,4.5750e+01 ,3.2634e+01 ,1.8141e+01 ,1.4958e-01 /) - kbo(:, 1,37,12) = (/ & - &1.7737e+01 ,1.4074e+01 ,1.0069e+01 ,5.4659e+00 ,6.3045e-02 /) - kbo(:, 2,37,12) = (/ & - &2.3991e+01 ,1.8955e+01 ,1.3586e+01 ,7.4275e+00 ,7.4702e-02 /) - kbo(:, 3,37,12) = (/ & - &3.1985e+01 ,2.5160e+01 ,1.8048e+01 ,9.9281e+00 ,8.9095e-02 /) - kbo(:, 4,37,12) = (/ & - &4.1889e+01 ,3.2824e+01 ,2.3555e+01 ,1.3031e+01 ,1.0656e-01 /) - kbo(:, 5,37,12) = (/ & - &5.3988e+01 ,4.2162e+01 ,3.0205e+01 ,1.6815e+01 ,1.3149e-01 /) - kbo(:, 1,38,12) = (/ & - &1.5671e+01 ,1.2491e+01 ,8.9462e+00 ,4.8489e+00 ,5.4067e-02 /) - kbo(:, 2,38,12) = (/ & - &2.1387e+01 ,1.6974e+01 ,1.2184e+01 ,6.6604e+00 ,6.5509e-02 /) - kbo(:, 3,38,12) = (/ & - &2.8785e+01 ,2.2756e+01 ,1.6373e+01 ,9.0146e+00 ,7.7568e-02 /) - kbo(:, 4,38,12) = (/ & - &3.8117e+01 ,2.9996e+01 ,2.1601e+01 ,1.1967e+01 ,9.4071e-02 /) - kbo(:, 5,38,12) = (/ & - &4.9667e+01 ,3.8921e+01 ,2.7995e+01 ,1.5610e+01 ,1.1469e-01 /) - kbo(:, 1,39,12) = (/ & - &1.3901e+01 ,1.1137e+01 ,7.9846e+00 ,4.3195e+00 ,4.6183e-02 /) - kbo(:, 2,39,12) = (/ & - &1.9150e+01 ,1.5270e+01 ,1.0976e+01 ,5.9905e+00 ,5.6093e-02 /) - kbo(:, 3,39,12) = (/ & - &2.6010e+01 ,2.0653e+01 ,1.4897e+01 ,8.2086e+00 ,6.7656e-02 /) - kbo(:, 4,39,12) = (/ & - &3.4809e+01 ,2.7511e+01 ,1.9872e+01 ,1.1026e+01 ,8.1649e-02 /) - kbo(:, 5,39,12) = (/ & - &4.5848e+01 ,3.6052e+01 ,2.6039e+01 ,1.4537e+01 ,9.9747e-02 /) - kbo(:, 1,40,12) = (/ & - &1.2081e+01 ,9.7243e+00 ,6.9733e+00 ,3.7653e+00 ,3.9581e-02 /) - kbo(:, 2,40,12) = (/ & - &1.6838e+01 ,1.3484e+01 ,9.6953e+00 ,5.2801e+00 ,4.8568e-02 /) - kbo(:, 3,40,12) = (/ & - &2.3104e+01 ,1.8425e+01 ,1.3302e+01 ,7.3218e+00 ,5.8955e-02 /) - kbo(:, 4,40,12) = (/ & - &3.1273e+01 ,2.4818e+01 ,1.7967e+01 ,9.9757e+00 ,7.0859e-02 /) - kbo(:, 5,40,12) = (/ & - &4.1711e+01 ,3.2920e+01 ,2.3848e+01 ,1.3319e+01 ,8.6539e-02 /) - kbo(:, 1,41,12) = (/ & - &1.0485e+01 ,8.4800e+00 ,6.0787e+00 ,3.2769e+00 ,3.3606e-02 /) - kbo(:, 2,41,12) = (/ & - &1.4786e+01 ,1.1894e+01 ,8.5576e+00 ,4.6493e+00 ,4.1457e-02 /) - kbo(:, 3,41,12) = (/ & - &2.0530e+01 ,1.6437e+01 ,1.1871e+01 ,6.5218e+00 ,5.0842e-02 /) - kbo(:, 4,41,12) = (/ & - &2.8093e+01 ,2.2374e+01 ,1.6223e+01 ,9.0068e+00 ,6.1229e-02 /) - kbo(:, 5,41,12) = (/ & - &3.7921e+01 ,3.0039e+01 ,2.1812e+01 ,1.2190e+01 ,7.5282e-02 /) - kbo(:, 1,42,12) = (/ & - &9.1079e+00 ,7.3993e+00 ,5.3023e+00 ,2.8534e+00 ,2.8075e-02 /) - kbo(:, 2,42,12) = (/ & - &1.3005e+01 ,1.0510e+01 ,7.5619e+00 ,4.1019e+00 ,3.5441e-02 /) - kbo(:, 3,42,12) = (/ & - &1.8277e+01 ,1.4697e+01 ,1.0617e+01 ,5.8190e+00 ,4.3089e-02 /) - kbo(:, 4,42,12) = (/ & - &2.5289e+01 ,2.0221e+01 ,1.4670e+01 ,8.1365e+00 ,5.2317e-02 /) - kbo(:, 5,42,12) = (/ & - &3.4535e+01 ,2.7452e+01 ,1.9969e+01 ,1.1164e+01 ,6.5436e-02 /) - kbo(:, 1,43,12) = (/ & - &7.8247e+00 ,6.3834e+00 ,4.5697e+00 ,2.4551e+00 ,2.3117e-02 /) - kbo(:, 2,43,12) = (/ & - &1.1336e+01 ,9.1978e+00 ,6.6143e+00 ,3.5804e+00 ,2.9659e-02 /) - kbo(:, 3,43,12) = (/ & - &1.6137e+01 ,1.3030e+01 ,9.4153e+00 ,5.1449e+00 ,3.6857e-02 /) - kbo(:, 4,43,12) = (/ & - &2.2622e+01 ,1.8150e+01 ,1.3165e+01 ,7.2856e+00 ,4.4557e-02 /) - kbo(:, 5,43,12) = (/ & - &3.1253e+01 ,2.4925e+01 ,1.8144e+01 ,1.0136e+01 ,5.5864e-02 /) - kbo(:, 1,44,12) = (/ & - &6.6782e+00 ,5.4729e+00 ,3.9116e+00 ,2.0984e+00 ,1.9194e-02 /) - kbo(:, 2,44,12) = (/ & - &9.8370e+00 ,8.0127e+00 ,5.7576e+00 ,3.1087e+00 ,2.4741e-02 /) - kbo(:, 3,44,12) = (/ & - &1.4194e+01 ,1.1506e+01 ,8.3119e+00 ,4.5308e+00 ,3.1291e-02 /) - kbo(:, 4,44,12) = (/ & - &2.0172e+01 ,1.6246e+01 ,1.1781e+01 ,6.4997e+00 ,3.7622e-02 /) - kbo(:, 5,44,12) = (/ & - &2.8219e+01 ,2.2570e+01 ,1.6428e+01 ,9.1628e+00 ,4.7831e-02 /) - kbo(:, 1,45,12) = (/ & - &5.6770e+00 ,4.6794e+00 ,3.3425e+00 ,1.7902e+00 ,1.5806e-02 /) - kbo(:, 2,45,12) = (/ & - &8.5322e+00 ,6.9760e+00 ,5.0078e+00 ,2.6991e+00 ,2.0417e-02 /) - kbo(:, 3,45,12) = (/ & - &1.2498e+01 ,1.0162e+01 ,7.3367e+00 ,3.9899e+00 ,2.6093e-02 /) - kbo(:, 4,45,12) = (/ & - &1.7997e+01 ,1.4548e+01 ,1.0552e+01 ,5.8018e+00 ,3.2356e-02 /) - kbo(:, 5,45,12) = (/ & - &2.5510e+01 ,2.0455e+01 ,1.4885e+01 ,8.2823e+00 ,4.0610e-02 /) - kbo(:, 1,46,12) = (/ & - &4.7638e+00 ,3.9496e+00 ,2.8218e+00 ,1.5105e+00 ,1.2604e-02 /) - kbo(:, 2,46,12) = (/ & - &7.3248e+00 ,6.0189e+00 ,4.3157e+00 ,2.3220e+00 ,1.6943e-02 /) - kbo(:, 3,46,12) = (/ & - &1.0931e+01 ,8.9155e+00 ,6.4285e+00 ,3.4858e+00 ,2.1734e-02 /) - kbo(:, 4,46,12) = (/ & - &1.5948e+01 ,1.2933e+01 ,9.3805e+00 ,5.1432e+00 ,2.7407e-02 /) - kbo(:, 5,46,12) = (/ & - &2.2923e+01 ,1.8438e+01 ,1.3407e+01 ,7.4358e+00 ,3.4309e-02 /) - kbo(:, 1,47,12) = (/ & - &3.9080e+00 ,3.2569e+00 ,2.3263e+00 ,1.2446e+00 ,1.0169e-02 /) - kbo(:, 2,47,12) = (/ & - &6.1567e+00 ,5.0883e+00 ,3.6497e+00 ,1.9607e+00 ,1.3733e-02 /) - kbo(:, 3,47,12) = (/ & - &9.4053e+00 ,7.6982e+00 ,5.5432e+00 ,2.9978e+00 ,1.8162e-02 /) - kbo(:, 4,47,12) = (/ & - &1.3941e+01 ,1.1337e+01 ,8.2150e+00 ,4.4897e+00 ,2.3207e-02 /) - kbo(:, 5,47,12) = (/ & - &2.0314e+01 ,1.6396e+01 ,1.1915e+01 ,6.5825e+00 ,2.8974e-02 /) - kbo(:, 1,48,12) = (/ & - &3.1887e+00 ,2.6690e+00 ,1.9049e+00 ,1.0177e+00 ,7.9795e-03 /) - kbo(:, 2,48,12) = (/ & - &5.1425e+00 ,4.2754e+00 ,3.0657e+00 ,1.6476e+00 ,1.1064e-02 /) - kbo(:, 3,48,12) = (/ & - &8.0497e+00 ,6.6225e+00 ,4.7642e+00 ,2.5722e+00 ,1.4743e-02 /) - kbo(:, 4,48,12) = (/ & - &1.2183e+01 ,9.9349e+00 ,7.1838e+00 ,3.9122e+00 ,1.9211e-02 /) - kbo(:, 5,48,12) = (/ & - &1.7984e+01 ,1.4555e+01 ,1.0573e+01 ,5.8220e+00 ,2.4214e-02 /) - kbo(:, 1,49,12) = (/ & - &2.5869e+00 ,2.1741e+00 ,1.5486e+00 ,8.2603e-01 ,6.2330e-03 /) - kbo(:, 2,49,12) = (/ & - &4.2741e+00 ,3.5702e+00 ,2.5591e+00 ,1.3745e+00 ,8.6780e-03 /) - kbo(:, 3,49,12) = (/ & - &6.8485e+00 ,5.6671e+00 ,4.0787e+00 ,2.1997e+00 ,1.1935e-02 /) - kbo(:, 4,49,12) = (/ & - &1.0623e+01 ,8.6880e+00 ,6.2733e+00 ,3.4054e+00 ,1.5780e-02 /) - kbo(:, 5,49,12) = (/ & - &1.5914e+01 ,1.2906e+01 ,9.3651e+00 ,5.1392e+00 ,2.0415e-02 /) - kbo(:, 1,50,12) = (/ & - &2.1098e+00 ,1.7804e+00 ,1.2663e+00 ,6.7426e-01 ,4.8509e-03 /) - kbo(:, 2,50,12) = (/ & - &3.5764e+00 ,2.9999e+00 ,2.1487e+00 ,1.1529e+00 ,6.9665e-03 /) - kbo(:, 3,50,12) = (/ & - &5.8619e+00 ,4.8746e+00 ,3.5094e+00 ,1.8934e+00 ,9.7336e-03 /) - kbo(:, 4,50,12) = (/ & - &9.3128e+00 ,7.6488e+00 ,5.5163e+00 ,2.9881e+00 ,1.3124e-02 /) - kbo(:, 5,50,12) = (/ & - &1.4210e+01 ,1.1543e+01 ,8.3635e+00 ,4.5727e+00 ,1.7352e-02 /) - kbo(:, 1,51,12) = (/ & - &1.7153e+00 ,1.4551e+00 ,1.0341e+00 ,5.4981e-01 ,3.8011e-03 /) - kbo(:, 2,51,12) = (/ & - &2.9969e+00 ,2.5231e+00 ,1.8054e+00 ,9.6765e-01 ,5.5539e-03 /) - kbo(:, 3,51,12) = (/ & - &5.0265e+00 ,4.1972e+00 ,3.0205e+00 ,1.6294e+00 ,8.0318e-03 /) - kbo(:, 4,51,12) = (/ & - &8.1641e+00 ,6.7342e+00 ,4.8593e+00 ,2.6284e+00 ,1.0987e-02 /) - kbo(:, 5,51,12) = (/ & - &1.2731e+01 ,1.0364e+01 ,7.4966e+00 ,4.0842e+00 ,1.4784e-02 /) - kbo(:, 1,52,12) = (/ & - &1.3829e+00 ,1.1793e+00 ,8.3692e-01 ,4.4489e-01 ,2.9111e-03 /) - kbo(:, 2,52,12) = (/ & - &2.5001e+00 ,2.1140e+00 ,1.5110e+00 ,8.0824e-01 ,4.4285e-03 /) - kbo(:, 3,52,12) = (/ & - &4.2993e+00 ,3.6038e+00 ,2.5920e+00 ,1.3972e+00 ,6.4988e-03 /) - kbo(:, 4,52,12) = (/ & - &7.1362e+00 ,5.9093e+00 ,4.2654e+00 ,2.3076e+00 ,9.0777e-03 /) - kbo(:, 5,52,12) = (/ & - &1.1388e+01 ,9.2949e+00 ,6.7113e+00 ,3.6475e+00 ,1.2584e-02 /) - kbo(:, 1,53,12) = (/ & - &1.0996e+00 ,9.4448e-01 ,6.6999e-01 ,3.5618e-01 ,2.1752e-03 /) - kbo(:, 2,53,12) = (/ & - &2.0714e+00 ,1.7598e+00 ,1.2567e+00 ,6.7105e-01 ,3.4164e-03 /) - kbo(:, 3,53,12) = (/ & - &3.6653e+00 ,3.0827e+00 ,2.2148e+00 ,1.1926e+00 ,5.1289e-03 /) - kbo(:, 4,53,12) = (/ & - &6.2207e+00 ,5.1680e+00 ,3.7282e+00 ,2.0166e+00 ,7.4836e-03 /) - kbo(:, 5,53,12) = (/ & - &1.0144e+01 ,8.3054e+00 ,5.9967e+00 ,3.2508e+00 ,1.0390e-02 /) - kbo(:, 1,54,12) = (/ & - &8.8096e-01 ,7.6003e-01 ,5.3828e-01 ,2.8652e-01 ,1.7028e-03 /) - kbo(:, 2,54,12) = (/ & - &1.7342e+00 ,1.4790e+00 ,1.0559e+00 ,5.6372e-01 ,2.7715e-03 /) - kbo(:, 3,54,12) = (/ & - &3.1660e+00 ,2.6700e+00 ,1.9162e+00 ,1.0305e+00 ,4.2409e-03 /) - kbo(:, 4,54,12) = (/ & - &5.4916e+00 ,4.5733e+00 ,3.2967e+00 ,1.7833e+00 ,6.3614e-03 /) - kbo(:, 5,54,12) = (/ & - &9.1316e+00 ,7.4962e+00 ,5.4128e+00 ,2.9325e+00 ,9.0996e-03 /) - kbo(:, 1,55,12) = (/ & - &7.0080e-01 ,6.0941e-01 ,4.3132e-01 ,2.2991e-01 ,1.3497e-03 /) - kbo(:, 2,55,12) = (/ & - &1.4554e+00 ,1.2471e+00 ,8.8937e-01 ,4.7463e-01 ,2.3282e-03 /) - kbo(:, 3,55,12) = (/ & - &2.7458e+00 ,2.3243e+00 ,1.6671e+00 ,8.9493e-01 ,3.6585e-03 /) - kbo(:, 4,55,12) = (/ & - &4.8778e+00 ,4.0704e+00 ,2.9318e+00 ,1.5851e+00 ,5.5673e-03 /) - kbo(:, 5,55,12) = (/ & - &8.2670e+00 ,6.7971e+00 ,4.9063e+00 ,2.6581e+00 ,8.0481e-03 /) - kbo(:, 1,56,12) = (/ & - &5.5050e-01 ,4.8277e-01 ,3.4128e-01 ,1.8181e-01 ,1.0666e-03 /) - kbo(:, 2,56,12) = (/ & - &1.2088e+00 ,1.0426e+00 ,7.4350e-01 ,3.9744e-01 ,1.9421e-03 /) - kbo(:, 3,56,12) = (/ & - &2.3753e+00 ,2.0178e+00 ,1.4463e+00 ,7.7559e-01 ,3.1486e-03 /) - kbo(:, 4,56,12) = (/ & - &4.3336e+00 ,3.6227e+00 ,2.6061e+00 ,1.4075e+00 ,4.8772e-03 /) - kbo(:, 5,56,12) = (/ & - &7.4871e+00 ,6.1648e+00 ,4.4455e+00 ,2.4084e+00 ,7.2633e-03 /) - kbo(:, 1,57,12) = (/ & - &4.2691e-01 ,3.7593e-01 ,2.6606e-01 ,1.4195e-01 ,8.3793e-04 /) - kbo(:, 2,57,12) = (/ & - &9.9567e-01 ,8.6325e-01 ,6.1463e-01 ,3.2859e-01 ,1.6242e-03 /) - kbo(:, 3,57,12) = (/ & - &2.0486e+00 ,1.7449e+00 ,1.2502e+00 ,6.7018e-01 ,2.7399e-03 /) - kbo(:, 4,57,12) = (/ & - &3.8496e+00 ,3.2234e+00 ,2.3159e+00 ,1.2492e+00 ,4.2649e-03 /) - kbo(:, 5,57,12) = (/ & - &6.7867e+00 ,5.5927e+00 ,4.0285e+00 ,2.1823e+00 ,6.5093e-03 /) - kbo(:, 1,58,12) = (/ & - &1.6356e-01 ,1.6482e-01 ,1.3630e-01 ,8.7916e-02 ,6.5877e-04 /) - kbo(:, 2,58,12) = (/ & - &3.9653e-01 ,3.9771e-01 ,3.3219e-01 ,2.1522e-01 ,1.3561e-03 /) - kbo(:, 3,58,12) = (/ & - &8.5978e-01 ,8.4388e-01 ,7.0959e-01 ,4.6009e-01 ,2.4231e-03 /) - kbo(:, 4,58,12) = (/ & - &1.6685e+00 ,1.6071e+00 ,1.3546e+00 ,8.8295e-01 ,3.8944e-03 /) - kbo(:, 5,58,12) = (/ & - &3.0057e+00 ,2.8445e+00 ,2.4022e+00 ,1.5741e+00 ,5.9596e-03 /) - kbo(:, 1,59,12) = (/ & - &1.4551e-01 ,1.4725e-01 ,1.2251e-01 ,7.9561e-02 ,6.8074e-04 /) - kbo(:, 2,59,12) = (/ & - &3.6080e-01 ,3.6451e-01 ,3.0649e-01 ,2.0003e-01 ,1.4324e-03 /) - kbo(:, 3,59,12) = (/ & - &8.0811e-01 ,7.9823e-01 ,6.7489e-01 ,4.4138e-01 ,2.5709e-03 /) - kbo(:, 4,59,12) = (/ & - &1.6058e+00 ,1.5512e+00 ,1.3138e+00 ,8.6244e-01 ,4.2753e-03 /) - kbo(:, 5,59,12) = (/ & - &2.9249e+00 ,2.7730e+00 ,2.3517e+00 ,1.5520e+00 ,6.3367e-03 /) - kbo(:, 1,13,13) = (/ & - &1.6844e+02 ,1.2633e+02 ,8.4219e+01 ,4.2110e+01 ,6.4746e-01 /) - kbo(:, 2,13,13) = (/ & - &2.3974e+02 ,1.7981e+02 ,1.1987e+02 ,5.9937e+01 ,7.7977e-01 /) - kbo(:, 3,13,13) = (/ & - &3.2626e+02 ,2.4469e+02 ,1.6313e+02 ,8.1566e+01 ,1.5118e+00 /) - kbo(:, 4,13,13) = (/ & - &4.2676e+02 ,3.2006e+02 ,2.1338e+02 ,1.0669e+02 ,1.6642e+00 /) - kbo(:, 5,13,13) = (/ & - &5.4119e+02 ,4.0589e+02 ,2.7059e+02 ,1.3530e+02 ,1.7313e+00 /) - kbo(:, 1,14,13) = (/ & - &1.9041e+02 ,1.4281e+02 ,9.5205e+01 ,4.7604e+01 ,4.8593e-01 /) - kbo(:, 2,14,13) = (/ & - &2.6943e+02 ,2.0207e+02 ,1.3472e+02 ,6.7360e+01 ,1.0523e+00 /) - kbo(:, 3,14,13) = (/ & - &3.6326e+02 ,2.7244e+02 ,1.8162e+02 ,9.0813e+01 ,1.4658e+00 /) - kbo(:, 4,14,13) = (/ & - &4.7082e+02 ,3.5312e+02 ,2.3542e+02 ,1.1771e+02 ,1.6120e+00 /) - kbo(:, 5,14,13) = (/ & - &5.9086e+02 ,4.4312e+02 ,2.9542e+02 ,1.4771e+02 ,1.8462e+00 /) - kbo(:, 1,15,13) = (/ & - &2.0331e+02 ,1.5249e+02 ,1.0165e+02 ,5.0828e+01 ,7.0211e-01 /) - kbo(:, 2,15,13) = (/ & - &2.8491e+02 ,2.1369e+02 ,1.4246e+02 ,7.1232e+01 ,1.1193e+00 /) - kbo(:, 3,15,13) = (/ & - &3.8104e+02 ,2.8579e+02 ,1.9054e+02 ,9.5263e+01 ,1.3482e+00 /) - kbo(:, 4,15,13) = (/ & - &4.8986e+02 ,3.6740e+02 ,2.4492e+02 ,1.2246e+02 ,1.6094e+00 /) - kbo(:, 5,15,13) = (/ & - &6.0932e+02 ,4.5699e+02 ,3.0468e+02 ,1.5233e+02 ,1.6798e+00 /) - kbo(:, 1,16,13) = (/ & - &2.0774e+02 ,1.5583e+02 ,1.0388e+02 ,5.1937e+01 ,8.3999e-01 /) - kbo(:, 2,16,13) = (/ & - &2.8883e+02 ,2.1662e+02 ,1.4442e+02 ,7.2209e+01 ,1.0268e+00 /) - kbo(:, 3,16,13) = (/ & - &3.8302e+02 ,2.8729e+02 ,1.9153e+02 ,9.5770e+01 ,1.2054e+00 /) - kbo(:, 4,16,13) = (/ & - &4.8856e+02 ,3.6642e+02 ,2.4427e+02 ,1.2213e+02 ,1.2630e+00 /) - kbo(:, 5,16,13) = (/ & - &6.0471e+02 ,4.5354e+02 ,3.0235e+02 ,1.5118e+02 ,1.5611e+00 /) - kbo(:, 1,17,13) = (/ & - &2.0589e+02 ,1.5442e+02 ,1.0294e+02 ,5.1473e+01 ,7.0898e-01 /) - kbo(:, 2,17,13) = (/ & - &2.8383e+02 ,2.1287e+02 ,1.4191e+02 ,7.0957e+01 ,8.7566e-01 /) - kbo(:, 3,17,13) = (/ & - &3.7354e+02 ,2.8016e+02 ,1.8678e+02 ,9.3389e+01 ,1.0083e+00 /) - kbo(:, 4,17,13) = (/ & - &4.7406e+02 ,3.5553e+02 ,2.3702e+02 ,1.1851e+02 ,1.2409e+00 /) - kbo(:, 5,17,13) = (/ & - &5.8252e+02 ,4.3688e+02 ,2.9126e+02 ,1.4563e+02 ,1.5701e+00 /) - kbo(:, 1,18,13) = (/ & - &1.9631e+02 ,1.4723e+02 ,9.8151e+01 ,4.9076e+01 ,6.5277e-01 /) - kbo(:, 2,18,13) = (/ & - &2.6794e+02 ,2.0095e+02 ,1.3397e+02 ,6.6983e+01 ,7.9253e-01 /) - kbo(:, 3,18,13) = (/ & - &3.5060e+02 ,2.6297e+02 ,1.7531e+02 ,8.7658e+01 ,9.7984e-01 /) - kbo(:, 4,18,13) = (/ & - &4.4214e+02 ,3.3161e+02 ,2.2107e+02 ,1.1054e+02 ,1.2414e+00 /) - kbo(:, 5,18,13) = (/ & - &5.4117e+02 ,4.0586e+02 ,2.7058e+02 ,1.3530e+02 ,1.5487e+00 /) - kbo(:, 1,19,13) = (/ & - &1.8546e+02 ,1.3909e+02 ,9.2728e+01 ,4.6396e+01 ,6.1789e-01 /) - kbo(:, 2,19,13) = (/ & - &2.5191e+02 ,1.8893e+02 ,1.2596e+02 ,6.3020e+01 ,7.3049e-01 /) - kbo(:, 3,19,13) = (/ & - &3.2752e+02 ,2.4563e+02 ,1.6376e+02 ,8.1963e+01 ,9.1418e-01 /) - kbo(:, 4,19,13) = (/ & - &4.1109e+02 ,3.0832e+02 ,2.0555e+02 ,1.0295e+02 ,1.1663e+00 /) - kbo(:, 5,19,13) = (/ & - &5.0069e+02 ,3.7554e+02 ,2.5035e+02 ,1.2551e+02 ,1.4682e+00 /) - kbo(:, 1,20,13) = (/ & - &1.7660e+02 ,1.3245e+02 ,8.8301e+01 ,4.4344e+01 ,5.8624e-01 /) - kbo(:, 2,20,13) = (/ & - &2.3782e+02 ,1.7835e+02 ,1.1891e+02 ,5.9734e+01 ,7.0627e-01 /) - kbo(:, 3,20,13) = (/ & - &3.0729e+02 ,2.3046e+02 ,1.5365e+02 ,7.7248e+01 ,8.6369e-01 /) - kbo(:, 4,20,13) = (/ & - &3.8357e+02 ,2.8768e+02 ,1.9179e+02 ,9.6513e+01 ,1.0255e+00 /) - kbo(:, 5,20,13) = (/ & - &4.6652e+02 ,3.4991e+02 ,2.3327e+02 ,1.1751e+02 ,1.3105e+00 /) - kbo(:, 1,21,13) = (/ & - &1.6552e+02 ,1.2414e+02 ,8.2761e+01 ,4.1834e+01 ,5.4233e-01 /) - kbo(:, 2,21,13) = (/ & - &2.2144e+02 ,1.6608e+02 ,1.1072e+02 ,5.6006e+01 ,6.6551e-01 /) - kbo(:, 3,21,13) = (/ & - &2.8447e+02 ,2.1334e+02 ,1.4223e+02 ,7.2029e+01 ,7.8267e-01 /) - kbo(:, 4,21,13) = (/ & - &3.5426e+02 ,2.6570e+02 ,1.7714e+02 ,8.9791e+01 ,9.3322e-01 /) - kbo(:, 5,21,13) = (/ & - &4.3028e+02 ,3.2271e+02 ,2.1513e+02 ,1.0915e+02 ,1.1469e+00 /) - kbo(:, 1,22,13) = (/ & - &1.5536e+02 ,1.1652e+02 ,7.7681e+01 ,3.9611e+01 ,5.1617e-01 /) - kbo(:, 2,22,13) = (/ & - &2.0596e+02 ,1.5446e+02 ,1.0298e+02 ,5.2572e+01 ,6.2474e-01 /) - kbo(:, 3,22,13) = (/ & - &2.6312e+02 ,1.9733e+02 ,1.3157e+02 ,6.7220e+01 ,7.4033e-01 /) - kbo(:, 4,22,13) = (/ & - &3.2670e+02 ,2.4500e+02 ,1.6337e+02 ,8.3538e+01 ,8.8562e-01 /) - kbo(:, 5,22,13) = (/ & - &3.9539e+02 ,2.9656e+02 ,1.9778e+02 ,1.0126e+02 ,1.0777e+00 /) - kbo(:, 1,23,13) = (/ & - &1.4370e+02 ,1.0779e+02 ,7.1941e+01 ,3.6979e+01 ,5.0881e-01 /) - kbo(:, 2,23,13) = (/ & - &1.8910e+02 ,1.4182e+02 ,9.4675e+01 ,4.8747e+01 ,5.9561e-01 /) - kbo(:, 3,23,13) = (/ & - &2.4065e+02 ,1.8048e+02 ,1.2051e+02 ,6.2134e+01 ,7.0317e-01 /) - kbo(:, 4,23,13) = (/ & - &2.9775e+02 ,2.2332e+02 ,1.4916e+02 ,7.6994e+01 ,8.5956e-01 /) - kbo(:, 5,23,13) = (/ & - &3.5987e+02 ,2.6990e+02 ,1.8034e+02 ,9.3182e+01 ,1.0114e+00 /) - kbo(:, 1,24,13) = (/ & - &1.3242e+02 ,9.9313e+01 ,6.6507e+01 ,3.4403e+01 ,4.7778e-01 /) - kbo(:, 2,24,13) = (/ & - &1.7334e+02 ,1.3001e+02 ,8.7073e+01 ,4.5133e+01 ,5.5652e-01 /) - kbo(:, 3,24,13) = (/ & - &2.1981e+02 ,1.6486e+02 ,1.1045e+02 ,5.7389e+01 ,6.8303e-01 /) - kbo(:, 4,24,13) = (/ & - &2.7150e+02 ,2.0360e+02 ,1.3644e+02 ,7.1035e+01 ,8.3312e-01 /) - kbo(:, 5,24,13) = (/ & - &3.2837e+02 ,2.4630e+02 ,1.6509e+02 ,8.6103e+01 ,9.5638e-01 /) - kbo(:, 1,25,13) = (/ & - &1.2137e+02 ,9.1042e+01 ,6.1224e+01 ,3.1886e+01 ,4.5611e-01 /) - kbo(:, 2,25,13) = (/ & - &1.5823e+02 ,1.1867e+02 ,7.9841e+01 ,4.1707e+01 ,5.3430e-01 /) - kbo(:, 3,25,13) = (/ & - &2.0017e+02 ,1.5012e+02 ,1.0102e+02 ,5.2903e+01 ,6.6826e-01 /) - kbo(:, 4,25,13) = (/ & - &2.4727e+02 ,1.8545e+02 ,1.2481e+02 ,6.5530e+01 ,7.9106e-01 /) - kbo(:, 5,25,13) = (/ & - &2.9868e+02 ,2.2401e+02 ,1.5081e+02 ,7.9363e+01 ,9.2773e-01 /) - kbo(:, 1,26,13) = (/ & - &1.1166e+02 ,8.3750e+01 ,5.6641e+01 ,2.9761e+01 ,4.3741e-01 /) - kbo(:, 2,26,13) = (/ & - &1.4505e+02 ,1.0880e+02 ,7.3586e+01 ,3.8778e+01 ,5.3620e-01 /) - kbo(:, 3,26,13) = (/ & - &1.8336e+02 ,1.3753e+02 ,9.3041e+01 ,4.9168e+01 ,6.5727e-01 /) - kbo(:, 4,26,13) = (/ & - &2.2613e+02 ,1.6961e+02 ,1.1481e+02 ,6.0809e+01 ,7.5877e-01 /) - kbo(:, 5,26,13) = (/ & - &2.7339e+02 ,2.0507e+02 ,1.3883e+02 ,7.3616e+01 ,9.0221e-01 /) - kbo(:, 1,27,13) = (/ & - &1.0286e+02 ,7.7197e+01 ,5.2520e+01 ,2.7881e+01 ,4.2067e-01 /) - kbo(:, 2,27,13) = (/ & - &1.3339e+02 ,1.0010e+02 ,6.8159e+01 ,3.6272e+01 ,5.2994e-01 /) - kbo(:, 3,27,13) = (/ & - &1.6841e+02 ,1.2640e+02 ,8.6087e+01 ,4.5886e+01 ,6.2144e-01 /) - kbo(:, 4,27,13) = (/ & - &2.0796e+02 ,1.5610e+02 ,1.0629e+02 ,5.6702e+01 ,7.2963e-01 /) - kbo(:, 5,27,13) = (/ & - &2.5159e+02 ,1.8888e+02 ,1.2865e+02 ,6.8691e+01 ,8.6563e-01 /) - kbo(:, 1,28,13) = (/ & - &9.5256e+01 ,7.1619e+01 ,4.8936e+01 ,2.6277e+01 ,4.0676e-01 /) - kbo(:, 2,28,13) = (/ & - &1.2337e+02 ,9.2726e+01 ,6.3443e+01 ,3.4072e+01 ,4.9978e-01 /) - kbo(:, 3,28,13) = (/ & - &1.5583e+02 ,1.1712e+02 ,8.0174e+01 ,4.3046e+01 ,5.7218e-01 /) - kbo(:, 4,28,13) = (/ & - &1.9223e+02 ,1.4447e+02 ,9.8926e+01 ,5.3164e+01 ,6.9683e-01 /) - kbo(:, 5,28,13) = (/ & - &2.3315e+02 ,1.7521e+02 ,1.1992e+02 ,6.4418e+01 ,8.1878e-01 /) - kbo(:, 1,29,13) = (/ & - &8.8532e+01 ,6.6695e+01 ,4.5757e+01 ,2.4810e+01 ,3.8492e-01 /) - kbo(:, 2,29,13) = (/ & - &1.1463e+02 ,8.6325e+01 ,5.9300e+01 ,3.2087e+01 ,4.4646e-01 /) - kbo(:, 3,29,13) = (/ & - &1.4438e+02 ,1.0869e+02 ,7.4772e+01 ,4.0468e+01 ,5.3953e-01 /) - kbo(:, 4,29,13) = (/ & - &1.7851e+02 ,1.3434e+02 ,9.2412e+01 ,4.9954e+01 ,6.4107e-01 /) - kbo(:, 5,29,13) = (/ & - &2.1752e+02 ,1.6365e+02 ,1.1246e+02 ,6.0724e+01 ,7.6365e-01 /) - kbo(:, 1,30,13) = (/ & - &8.2710e+01 ,6.2476e+01 ,4.3045e+01 ,2.3511e+01 ,3.4189e-01 /) - kbo(:, 2,30,13) = (/ & - &1.0675e+02 ,8.0586e+01 ,5.5620e+01 ,3.0345e+01 ,4.0578e-01 /) - kbo(:, 3,30,13) = (/ & - &1.3482e+02 ,1.0169e+02 ,7.0226e+01 ,3.8224e+01 ,5.0418e-01 /) - kbo(:, 4,30,13) = (/ & - &1.6752e+02 ,1.2628e+02 ,8.7179e+01 ,4.7334e+01 ,5.9789e-01 /) - kbo(:, 5,30,13) = (/ & - &2.0548e+02 ,1.5477e+02 ,1.0678e+02 ,5.7811e+01 ,7.2304e-01 /) - kbo(:, 1,31,13) = (/ & - &7.6989e+01 ,5.8322e+01 ,4.0414e+01 ,2.2252e+01 ,3.0592e-01 /) - kbo(:, 2,31,13) = (/ & - &9.9596e+01 ,7.5380e+01 ,5.2274e+01 ,2.8707e+01 ,3.7677e-01 /) - kbo(:, 3,31,13) = (/ & - &1.2653e+02 ,9.5656e+01 ,6.6313e+01 ,3.6293e+01 ,4.5864e-01 /) - kbo(:, 4,31,13) = (/ & - &1.5839e+02 ,1.1960e+02 ,8.2835e+01 ,4.5152e+01 ,5.5168e-01 /) - kbo(:, 5,31,13) = (/ & - &1.9525e+02 ,1.4733e+02 ,1.0199e+02 ,5.5418e+01 ,6.7878e-01 /) - kbo(:, 1,32,13) = (/ & - &7.2617e+01 ,5.5198e+01 ,3.8454e+01 ,2.1285e+01 ,2.7831e-01 /) - kbo(:, 2,32,13) = (/ & - &9.4496e+01 ,7.1727e+01 ,4.9927e+01 ,2.7539e+01 ,3.4616e-01 /) - kbo(:, 3,32,13) = (/ & - &1.2095e+02 ,9.1662e+01 ,6.3739e+01 ,3.5032e+01 ,4.1226e-01 /) - kbo(:, 4,32,13) = (/ & - &1.5220e+02 ,1.1521e+02 ,8.0042e+01 ,4.3833e+01 ,5.1531e-01 /) - kbo(:, 5,32,13) = (/ & - &1.8837e+02 ,1.4240e+02 ,9.8836e+01 ,5.3991e+01 ,6.4895e-01 /) - kbo(:, 1,33,13) = (/ & - &6.9586e+01 ,5.3075e+01 ,3.7119e+01 ,2.0620e+01 ,2.5421e-01 /) - kbo(:, 2,33,13) = (/ & - &9.1190e+01 ,6.9432e+01 ,4.8467e+01 ,2.6834e+01 ,3.0964e-01 /) - kbo(:, 3,33,13) = (/ & - &1.1725e+02 ,8.9117e+01 ,6.2134e+01 ,3.4318e+01 ,3.8320e-01 /) - kbo(:, 4,33,13) = (/ & - &1.4810e+02 ,1.1236e+02 ,7.8257e+01 ,4.3108e+01 ,4.8588e-01 /) - kbo(:, 5,33,13) = (/ & - &1.8404e+02 ,1.3940e+02 ,9.6928e+01 ,5.3246e+01 ,6.2021e-01 /) - kbo(:, 1,34,13) = (/ & - &6.7703e+01 ,5.1785e+01 ,3.6334e+01 ,2.0214e+01 ,2.2826e-01 /) - kbo(:, 2,34,13) = (/ & - &8.9165e+01 ,6.8046e+01 ,4.7643e+01 ,2.6485e+01 ,2.7978e-01 /) - kbo(:, 3,34,13) = (/ & - &1.1511e+02 ,8.7692e+01 ,6.1290e+01 ,3.4007e+01 ,3.5723e-01 /) - kbo(:, 4,34,13) = (/ & - &1.4598e+02 ,1.1096e+02 ,7.7422e+01 ,4.2877e+01 ,4.6377e-01 /) - kbo(:, 5,34,13) = (/ & - &1.8238e+02 ,1.3836e+02 ,9.6327e+01 ,5.3168e+01 ,5.7690e-01 /) - kbo(:, 1,35,13) = (/ & - &6.4861e+01 ,4.9746e+01 ,3.5026e+01 ,1.9551e+01 ,2.0156e-01 /) - kbo(:, 2,35,13) = (/ & - &8.5976e+01 ,6.5785e+01 ,4.6175e+01 ,2.5782e+01 ,2.5401e-01 /) - kbo(:, 3,35,13) = (/ & - &1.1165e+02 ,8.5245e+01 ,5.9716e+01 ,3.3273e+01 ,3.2846e-01 /) - kbo(:, 4,35,13) = (/ & - &1.4250e+02 ,1.0853e+02 ,7.5838e+01 ,4.2162e+01 ,4.2675e-01 /) - kbo(:, 5,35,13) = (/ & - &1.7910e+02 ,1.3608e+02 ,9.4891e+01 ,5.2581e+01 ,5.2256e-01 /) - kbo(:, 1,36,13) = (/ & - &6.0764e+01 ,4.6732e+01 ,3.3052e+01 ,1.8514e+01 ,1.7227e-01 /) - kbo(:, 2,36,13) = (/ & - &8.1347e+01 ,6.2416e+01 ,4.3933e+01 ,2.4619e+01 ,2.3170e-01 /) - kbo(:, 3,36,13) = (/ & - &1.0653e+02 ,8.1514e+01 ,5.7203e+01 ,3.2018e+01 ,2.9859e-01 /) - kbo(:, 4,36,13) = (/ & - &1.3711e+02 ,1.0461e+02 ,7.3196e+01 ,4.0838e+01 ,3.8265e-01 /) - kbo(:, 5,36,13) = (/ & - &1.7349e+02 ,1.3202e+02 ,9.2179e+01 ,5.1271e+01 ,4.7154e-01 /) - kbo(:, 1,37,13) = (/ & - &5.5040e+01 ,4.2456e+01 ,3.0166e+01 ,1.6967e+01 ,1.4686e-01 /) - kbo(:, 2,37,13) = (/ & - &7.4751e+01 ,5.7522e+01 ,4.0627e+01 ,2.2828e+01 ,1.9745e-01 /) - kbo(:, 3,37,13) = (/ & - &9.9126e+01 ,7.6001e+01 ,5.3446e+01 ,3.0003e+01 ,2.5830e-01 /) - kbo(:, 4,37,13) = (/ & - &1.2888e+02 ,9.8527e+01 ,6.9056e+01 ,3.8643e+01 ,3.3278e-01 /) - kbo(:, 5,37,13) = (/ & - &1.6453e+02 ,1.2541e+02 ,8.7685e+01 ,4.8918e+01 ,4.1260e-01 /) - kbo(:, 1,38,13) = (/ & - &4.9859e+01 ,3.8586e+01 ,2.7550e+01 ,1.5547e+01 ,1.2396e-01 /) - kbo(:, 2,38,13) = (/ & - &6.8738e+01 ,5.3032e+01 ,3.7612e+01 ,2.1200e+01 ,1.6720e-01 /) - kbo(:, 3,38,13) = (/ & - &9.2373e+01 ,7.0999e+01 ,5.0053e+01 ,2.8170e+01 ,2.2370e-01 /) - kbo(:, 4,38,13) = (/ & - &1.2130e+02 ,9.2918e+01 ,6.5279e+01 ,3.6626e+01 ,2.8704e-01 /) - kbo(:, 5,38,13) = (/ & - &1.5627e+02 ,1.1930e+02 ,8.3547e+01 ,4.6739e+01 ,3.6180e-01 /) - kbo(:, 1,39,13) = (/ & - &4.5302e+01 ,3.5171e+01 ,2.5236e+01 ,1.4286e+01 ,1.0568e-01 /) - kbo(:, 2,39,13) = (/ & - &6.3391e+01 ,4.9041e+01 ,3.4923e+01 ,1.9751e+01 ,1.4249e-01 /) - kbo(:, 3,39,13) = (/ & - &8.6323e+01 ,6.6507e+01 ,4.7040e+01 ,2.6533e+01 ,1.9303e-01 /) - kbo(:, 4,39,13) = (/ & - &1.1457e+02 ,8.7914e+01 ,6.1899e+01 ,3.4824e+01 ,2.4868e-01 /) - kbo(:, 5,39,13) = (/ & - &1.4887e+02 ,1.1383e+02 ,7.9847e+01 ,4.4779e+01 ,3.1416e-01 /) - kbo(:, 1,40,13) = (/ & - &4.0177e+01 ,3.1298e+01 ,2.2565e+01 ,1.2805e+01 ,8.8138e-02 /) - kbo(:, 2,40,13) = (/ & - &5.7199e+01 ,4.4376e+01 ,3.1743e+01 ,1.8006e+01 ,1.1856e-01 /) - kbo(:, 3,40,13) = (/ & - &7.9150e+01 ,6.1135e+01 ,4.3398e+01 ,2.4540e+01 ,1.6359e-01 /) - kbo(:, 4,40,13) = (/ & - &1.0651e+02 ,8.1890e+01 ,5.7786e+01 ,3.2576e+01 ,2.1421e-01 /) - kbo(:, 5,40,13) = (/ & - &1.3985e+02 ,1.0710e+02 ,7.5255e+01 ,4.2282e+01 ,2.7560e-01 /) - kbo(:, 1,41,13) = (/ & - &3.5483e+01 ,2.7745e+01 ,2.0104e+01 ,1.1435e+01 ,7.4578e-02 /) - kbo(:, 2,41,13) = (/ & - &5.1443e+01 ,4.0033e+01 ,2.8766e+01 ,1.6358e+01 ,1.0080e-01 /) - kbo(:, 3,41,13) = (/ & - &7.2353e+01 ,5.6024e+01 ,3.9928e+01 ,2.2644e+01 ,1.3798e-01 /) - kbo(:, 4,41,13) = (/ & - &9.8821e+01 ,7.6124e+01 ,5.3862e+01 ,3.0414e+01 ,1.8395e-01 /) - kbo(:, 5,41,13) = (/ & - &1.3121e+02 ,1.0062e+02 ,7.0817e+01 ,3.9858e+01 ,2.3971e-01 /) - kbo(:, 1,42,13) = (/ & - &3.1312e+01 ,2.4582e+01 ,1.7898e+01 ,1.0203e+01 ,6.3311e-02 /) - kbo(:, 2,42,13) = (/ & - &4.6257e+01 ,3.6106e+01 ,2.6059e+01 ,1.4850e+01 ,8.5987e-02 /) - kbo(:, 3,42,13) = (/ & - &6.6134e+01 ,5.1324e+01 ,3.6711e+01 ,2.0879e+01 ,1.1696e-01 /) - kbo(:, 4,42,13) = (/ & - &9.1649e+01 ,7.0739e+01 ,5.0191e+01 ,2.8396e+01 ,1.5868e-01 /) - kbo(:, 5,42,13) = (/ & - &1.2315e+02 ,9.4550e+01 ,6.6649e+01 ,3.7570e+01 ,2.0886e-01 /) - kbo(:, 1,43,13) = (/ & - &2.7228e+01 ,2.1458e+01 ,1.5694e+01 ,8.9614e+00 ,5.3608e-02 /) - kbo(:, 2,43,13) = (/ & - &4.1053e+01 ,3.2140e+01 ,2.3306e+01 ,1.3302e+01 ,7.1800e-02 /) - kbo(:, 3,43,13) = (/ & - &5.9801e+01 ,4.6516e+01 ,3.3390e+01 ,1.9030e+01 ,9.7105e-02 /) - kbo(:, 4,43,13) = (/ & - &8.4239e+01 ,6.5135e+01 ,4.6335e+01 ,2.6274e+01 ,1.3391e-01 /) - kbo(:, 5,43,13) = (/ & - &1.1479e+02 ,8.8247e+01 ,6.2314e+01 ,3.5145e+01 ,1.7840e-01 /) - kbo(:, 1,44,13) = (/ & - &2.3465e+01 ,1.8562e+01 ,1.3638e+01 ,7.7925e+00 ,4.4874e-02 /) - kbo(:, 2,44,13) = (/ & - &3.6146e+01 ,2.8382e+01 ,2.0672e+01 ,1.1814e+01 ,5.9063e-02 /) - kbo(:, 3,44,13) = (/ & - &5.3714e+01 ,4.1873e+01 ,3.0165e+01 ,1.7212e+01 ,7.9828e-02 /) - kbo(:, 4,44,13) = (/ & - &7.6981e+01 ,5.9614e+01 ,4.2519e+01 ,2.4160e+01 ,1.1248e-01 /) - kbo(:, 5,44,13) = (/ & - &1.0651e+02 ,8.1983e+01 ,5.8013e+01 ,3.2734e+01 ,1.4901e-01 /) - kbo(:, 1,45,13) = (/ & - &2.0186e+01 ,1.6021e+01 ,1.1808e+01 ,6.7511e+00 ,3.7575e-02 /) - kbo(:, 2,45,13) = (/ & - &3.1735e+01 ,2.4996e+01 ,1.8280e+01 ,1.0459e+01 ,4.9524e-02 /) - kbo(:, 3,45,13) = (/ & - &4.8111e+01 ,3.7595e+01 ,2.7182e+01 ,1.5526e+01 ,6.7700e-02 /) - kbo(:, 4,45,13) = (/ & - &7.0180e+01 ,5.4438e+01 ,3.8926e+01 ,2.2155e+01 ,9.2168e-02 /) - kbo(:, 5,45,13) = (/ & - &9.8620e+01 ,7.6015e+01 ,5.3889e+01 ,3.0449e+01 ,1.2546e-01 /) - kbo(:, 1,46,13) = (/ & - &1.7168e+01 ,1.3674e+01 ,1.0102e+01 ,5.7721e+00 ,3.1506e-02 /) - kbo(:, 2,46,13) = (/ & - &2.7551e+01 ,2.1759e+01 ,1.5975e+01 ,9.1472e+00 ,4.1368e-02 /) - kbo(:, 3,46,13) = (/ & - &4.2631e+01 ,3.3389e+01 ,2.4233e+01 ,1.3855e+01 ,5.6581e-02 /) - kbo(:, 4,46,13) = (/ & - &6.3374e+01 ,4.9245e+01 ,3.5311e+01 ,2.0117e+01 ,7.4981e-02 /) - kbo(:, 5,46,13) = (/ & - &9.0545e+01 ,6.9872e+01 ,4.9627e+01 ,2.8091e+01 ,1.0356e-01 /) - kbo(:, 1,47,13) = (/ & - &1.4285e+01 ,1.1420e+01 ,8.4474e+00 ,4.8173e+00 ,2.6647e-02 /) - kbo(:, 2,47,13) = (/ & - &2.3421e+01 ,1.8547e+01 ,1.3658e+01 ,7.8222e+00 ,3.5142e-02 /) - kbo(:, 3,47,13) = (/ & - &3.7014e+01 ,2.9064e+01 ,2.1182e+01 ,1.2119e+01 ,4.6223e-02 /) - kbo(:, 4,47,13) = (/ & - &5.6196e+01 ,4.3754e+01 ,3.1477e+01 ,1.7951e+01 ,6.2561e-02 /) - kbo(:, 5,47,13) = (/ & - &8.1804e+01 ,6.3215e+01 ,4.5000e+01 ,2.5512e+01 ,8.4936e-02 /) - kbo(:, 1,48,13) = (/ & - &1.1839e+01 ,9.5013e+00 ,7.0342e+00 ,3.9991e+00 ,2.2276e-02 /) - kbo(:, 2,48,13) = (/ & - &1.9820e+01 ,1.5737e+01 ,1.1620e+01 ,6.6464e+00 ,2.9148e-02 /) - kbo(:, 3,48,13) = (/ & - &3.1994e+01 ,2.5174e+01 ,1.8417e+01 ,1.0540e+01 ,3.8297e-02 /) - kbo(:, 4,48,13) = (/ & - &4.9572e+01 ,3.8675e+01 ,2.7923e+01 ,1.5936e+01 ,5.2300e-02 /) - kbo(:, 5,48,13) = (/ & - &7.3600e+01 ,5.6966e+01 ,4.0638e+01 ,2.3068e+01 ,6.9650e-02 /) - kbo(:, 1,49,13) = (/ & - &9.7471e+00 ,7.8584e+00 ,5.8267e+00 ,3.3020e+00 ,1.8196e-02 /) - kbo(:, 2,49,13) = (/ & - &1.6704e+01 ,1.3302e+01 ,9.8376e+00 ,5.6165e+00 ,2.4552e-02 /) - kbo(:, 3,49,13) = (/ & - &2.7532e+01 ,2.1706e+01 ,1.5922e+01 ,9.1112e+00 ,3.1859e-02 /) - kbo(:, 4,49,13) = (/ & - &4.3516e+01 ,3.4017e+01 ,2.4645e+01 ,1.4071e+01 ,4.2368e-02 /) - kbo(:, 5,49,13) = (/ & - &6.5913e+01 ,5.1094e+01 ,3.6540e+01 ,2.0762e+01 ,5.7956e-02 /) - kbo(:, 1,50,13) = (/ & - &8.0804e+00 ,6.5442e+00 ,4.8528e+00 ,2.7471e+00 ,1.5480e-02 /) - kbo(:, 2,50,13) = (/ & - &1.4208e+01 ,1.1343e+01 ,8.3916e+00 ,4.7793e+00 ,2.1108e-02 /) - kbo(:, 3,50,13) = (/ & - &2.3865e+01 ,1.8845e+01 ,1.3856e+01 ,7.9173e+00 ,2.8070e-02 /) - kbo(:, 4,50,13) = (/ & - &3.8439e+01 ,3.0084e+01 ,2.1861e+01 ,1.2484e+01 ,3.6716e-02 /) - kbo(:, 5,50,13) = (/ & - &5.9311e+01 ,4.6040e+01 ,3.3007e+01 ,1.8765e+01 ,4.7982e-02 /) - kbo(:, 1,51,13) = (/ & - &6.6974e+00 ,5.4506e+00 ,4.0401e+00 ,2.2835e+00 ,1.2897e-02 /) - kbo(:, 2,51,13) = (/ & - &1.2105e+01 ,9.6894e+00 ,7.1742e+00 ,4.0729e+00 ,1.8234e-02 /) - kbo(:, 3,51,13) = (/ & - &2.0726e+01 ,1.6392e+01 ,1.2076e+01 ,6.8856e+00 ,2.4297e-02 /) - kbo(:, 4,51,13) = (/ & - &3.4010e+01 ,2.6646e+01 ,1.9402e+01 ,1.1077e+01 ,3.1447e-02 /) - kbo(:, 5,51,13) = (/ & - &5.3414e+01 ,4.1508e+01 ,2.9825e+01 ,1.6965e+01 ,4.1659e-02 /) - kbo(:, 1,52,13) = (/ & - &5.5139e+00 ,4.5099e+00 ,3.3452e+00 ,1.8859e+00 ,1.0839e-02 /) - kbo(:, 2,52,13) = (/ & - &1.0265e+01 ,8.2392e+00 ,6.1066e+00 ,3.4594e+00 ,1.5307e-02 /) - kbo(:, 3,52,13) = (/ & - &1.7969e+01 ,1.4231e+01 ,1.0492e+01 ,5.9702e+00 ,2.0782e-02 /) - kbo(:, 4,52,13) = (/ & - &3.0022e+01 ,2.3539e+01 ,1.7173e+01 ,9.7942e+00 ,2.7615e-02 /) - kbo(:, 5,52,13) = (/ & - &4.7976e+01 ,3.7311e+01 ,2.6868e+01 ,1.5284e+01 ,3.5883e-02 /) - kbo(:, 1,53,13) = (/ & - &4.5089e+00 ,3.7050e+00 ,2.7486e+00 ,1.5449e+00 ,8.8988e-03 /) - kbo(:, 2,53,13) = (/ & - &8.6595e+00 ,6.9701e+00 ,5.1646e+00 ,2.9217e+00 ,1.2928e-02 /) - kbo(:, 3,53,13) = (/ & - &1.5539e+01 ,1.2324e+01 ,9.0856e+00 ,5.1569e+00 ,1.7922e-02 /) - kbo(:, 4,53,13) = (/ & - &2.6425e+01 ,2.0735e+01 ,1.5153e+01 ,8.6253e+00 ,2.3907e-02 /) - kbo(:, 5,53,13) = (/ & - &4.2979e+01 ,3.3444e+01 ,2.4119e+01 ,1.3719e+01 ,3.1307e-02 /) - kbo(:, 1,54,13) = (/ & - &3.7369e+00 ,3.0844e+00 ,2.2855e+00 ,1.2806e+00 ,7.5969e-03 /) - kbo(:, 2,54,13) = (/ & - &7.3945e+00 ,5.9700e+00 ,4.4241e+00 ,2.4976e+00 ,1.1170e-02 /) - kbo(:, 3,54,13) = (/ & - &1.3610e+01 ,1.0807e+01 ,7.9714e+00 ,4.5128e+00 ,1.6129e-02 /) - kbo(:, 4,54,13) = (/ & - &2.3560e+01 ,1.8494e+01 ,1.3530e+01 ,7.6837e+00 ,2.1838e-02 /) - kbo(:, 5,54,13) = (/ & - &3.8949e+01 ,3.0311e+01 ,2.1882e+01 ,1.2434e+01 ,2.8239e-02 /) - kbo(:, 1,55,13) = (/ & - &3.1147e+00 ,2.5777e+00 ,1.9050e+00 ,1.0637e+00 ,6.5369e-03 /) - kbo(:, 2,55,13) = (/ & - &6.3439e+00 ,5.1347e+00 ,3.8054e+00 ,2.1454e+00 ,1.0024e-02 /) - kbo(:, 3,55,13) = (/ & - &1.1985e+01 ,9.5229e+00 ,7.0258e+00 ,3.9713e+00 ,1.4330e-02 /) - kbo(:, 4,55,13) = (/ & - &2.1145e+01 ,1.6600e+01 ,1.2148e+01 ,6.8814e+00 ,1.9929e-02 /) - kbo(:, 5,55,13) = (/ & - &3.5505e+01 ,2.7628e+01 ,1.9956e+01 ,1.1323e+01 ,2.6070e-02 /) - kbo(:, 1,56,13) = (/ & - &2.5841e+00 ,2.1412e+00 ,1.5792e+00 ,8.7847e-01 ,5.7272e-03 /) - kbo(:, 2,56,13) = (/ & - &5.4279e+00 ,4.4047e+00 ,3.2621e+00 ,1.8370e+00 ,9.0085e-03 /) - kbo(:, 3,56,13) = (/ & - &1.0541e+01 ,8.3802e+00 ,6.1801e+00 ,3.4870e+00 ,1.2894e-02 /) - kbo(:, 4,56,13) = (/ & - &1.8998e+01 ,1.4914e+01 ,1.0910e+01 ,6.1631e+00 ,1.8216e-02 /) - kbo(:, 5,56,13) = (/ & - &3.2387e+01 ,2.5195e+01 ,1.8200e+01 ,1.0311e+01 ,2.5017e-02 /) - kbo(:, 1,57,13) = (/ & - &2.1273e+00 ,1.7663e+00 ,1.2997e+00 ,7.2182e-01 ,4.9990e-03 /) - kbo(:, 2,57,13) = (/ & - &4.6288e+00 ,3.7653e+00 ,2.7876e+00 ,1.5653e+00 ,7.9939e-03 /) - kbo(:, 3,57,13) = (/ & - &9.2459e+00 ,7.3572e+00 ,5.4258e+00 ,3.0550e+00 ,1.1761e-02 /) - kbo(:, 4,57,13) = (/ & - &1.7067e+01 ,1.3395e+01 ,9.7952e+00 ,5.5222e+00 ,1.6851e-02 /) - kbo(:, 5,57,13) = (/ & - &2.9574e+01 ,2.2993e+01 ,1.6606e+01 ,9.3912e+00 ,2.2852e-02 /) - kbo(:, 1,58,13) = (/ & - &8.4744e-01 ,8.1145e-01 ,7.0194e-01 ,4.7172e-01 ,4.4639e-03 /) - kbo(:, 2,58,13) = (/ & - &1.9303e+00 ,1.8049e+00 ,1.5645e+00 ,1.0595e+00 ,7.1718e-03 /) - kbo(:, 3,58,13) = (/ & - &3.9593e+00 ,3.6185e+00 ,3.1318e+00 ,2.1308e+00 ,1.0759e-02 /) - kbo(:, 4,58,13) = (/ & - &7.4878e+00 ,6.7423e+00 ,5.7807e+00 ,3.9390e+00 ,1.5270e-02 /) - kbo(:, 5,58,13) = (/ & - &1.3201e+01 ,1.1774e+01 ,9.9717e+00 ,6.8098e+00 ,2.1046e-02 /) - kbo(:, 1,59,13) = (/ & - &7.8389e-01 ,7.5361e-01 ,6.5545e-01 ,4.4390e-01 ,4.7731e-03 /) - kbo(:, 2,59,13) = (/ & - &1.8316e+00 ,1.7144e+00 ,1.4906e+00 ,1.0154e+00 ,7.3182e-03 /) - kbo(:, 3,59,13) = (/ & - &3.8012e+00 ,3.4796e+00 ,3.0220e+00 ,2.0697e+00 ,1.0970e-02 /) - kbo(:, 4,59,13) = (/ & - &7.2668e+00 ,6.5534e+00 ,5.6332e+00 ,3.8611e+00 ,1.5317e-02 /) - kbo(:, 5,59,13) = (/ & - &1.2911e+01 ,1.1536e+01 ,9.7915e+00 ,6.7229e+00 ,2.2015e-02 /) - kbo(:, 1,13,14) = (/ & - &2.9725e+02 ,2.2295e+02 ,1.4862e+02 ,7.4314e+01 ,8.5883e-01 /) - kbo(:, 2,13,14) = (/ & - &4.1294e+02 ,3.0971e+02 ,2.0649e+02 ,1.0324e+02 ,7.4403e-01 /) - kbo(:, 3,13,14) = (/ & - &5.5502e+02 ,4.1625e+02 ,2.7751e+02 ,1.3875e+02 ,6.6008e-01 /) - kbo(:, 4,13,14) = (/ & - &7.2029e+02 ,5.4024e+02 ,3.6017e+02 ,1.8008e+02 ,1.1155e+00 /) - kbo(:, 5,13,14) = (/ & - &9.0592e+02 ,6.7946e+02 ,4.5296e+02 ,2.2648e+02 ,2.5465e+00 /) - kbo(:, 1,14,14) = (/ & - &3.2435e+02 ,2.4326e+02 ,1.6217e+02 ,8.1092e+01 ,7.8098e-01 /) - kbo(:, 2,14,14) = (/ & - &4.4892e+02 ,3.3668e+02 ,2.2444e+02 ,1.1223e+02 ,5.4602e-01 /) - kbo(:, 3,14,14) = (/ & - &6.0099e+02 ,4.5075e+02 ,3.0049e+02 ,1.5025e+02 ,1.0325e+00 /) - kbo(:, 4,14,14) = (/ & - &7.7937e+02 ,5.8453e+02 ,3.8969e+02 ,1.9485e+02 ,1.5016e+00 /) - kbo(:, 5,14,14) = (/ & - &9.8034e+02 ,7.3527e+02 ,4.9018e+02 ,2.4510e+02 ,3.4894e+00 /) - kbo(:, 1,15,14) = (/ & - &3.4430e+02 ,2.5823e+02 ,1.7215e+02 ,8.6071e+01 ,4.7442e-01 /) - kbo(:, 2,15,14) = (/ & - &4.7694e+02 ,3.5770e+02 ,2.3846e+02 ,1.1924e+02 ,9.8957e-01 /) - kbo(:, 3,15,14) = (/ & - &6.3659e+02 ,4.7745e+02 ,3.1829e+02 ,1.5915e+02 ,1.3277e+00 /) - kbo(:, 4,15,14) = (/ & - &8.2316e+02 ,6.1735e+02 ,4.1157e+02 ,2.0578e+02 ,2.6545e+00 /) - kbo(:, 5,15,14) = (/ & - &1.0339e+03 ,7.7536e+02 ,5.1695e+02 ,2.5844e+02 ,4.8753e+00 /) - kbo(:, 1,16,14) = (/ & - &3.6224e+02 ,2.7168e+02 ,1.8111e+02 ,9.0555e+01 ,8.6361e-01 /) - kbo(:, 2,16,14) = (/ & - &5.0155e+02 ,3.7615e+02 ,2.5077e+02 ,1.2539e+02 ,1.3098e+00 /) - kbo(:, 3,16,14) = (/ & - &6.6682e+02 ,5.0012e+02 ,3.3343e+02 ,1.6672e+02 ,2.0810e+00 /) - kbo(:, 4,16,14) = (/ & - &8.5980e+02 ,6.4485e+02 ,4.2990e+02 ,2.1496e+02 ,4.0118e+00 /) - kbo(:, 5,16,14) = (/ & - &1.0768e+03 ,8.0756e+02 ,5.3838e+02 ,2.6919e+02 ,6.0151e+00 /) - kbo(:, 1,17,14) = (/ & - &3.8011e+02 ,2.8509e+02 ,1.9007e+02 ,9.5029e+01 ,1.2720e+00 /) - kbo(:, 2,17,14) = (/ & - &5.2601e+02 ,3.9448e+02 ,2.6301e+02 ,1.3150e+02 ,1.5543e+00 /) - kbo(:, 3,17,14) = (/ & - &6.9761e+02 ,5.2320e+02 ,3.4880e+02 ,1.7439e+02 ,2.9841e+00 /) - kbo(:, 4,17,14) = (/ & - &8.9515e+02 ,6.7136e+02 ,4.4757e+02 ,2.2378e+02 ,4.6409e+00 /) - kbo(:, 5,17,14) = (/ & - &1.1181e+03 ,8.3857e+02 ,5.5903e+02 ,2.7954e+02 ,6.6157e+00 /) - kbo(:, 1,18,14) = (/ & - &3.9222e+02 ,2.9415e+02 ,1.9611e+02 ,9.8051e+01 ,1.3802e+00 /) - kbo(:, 2,18,14) = (/ & - &5.4105e+02 ,4.0577e+02 ,2.7053e+02 ,1.3526e+02 ,2.0079e+00 /) - kbo(:, 3,18,14) = (/ & - &7.1441e+02 ,5.3583e+02 ,3.5723e+02 ,1.7861e+02 ,3.3624e+00 /) - kbo(:, 4,18,14) = (/ & - &9.1265e+02 ,6.8450e+02 ,4.5632e+02 ,2.2816e+02 ,4.9650e+00 /) - kbo(:, 5,18,14) = (/ & - &1.1336e+03 ,8.5015e+02 ,5.6679e+02 ,2.8338e+02 ,6.8761e+00 /) - kbo(:, 1,19,14) = (/ & - &4.0839e+02 ,3.0630e+02 ,2.0420e+02 ,1.0209e+02 ,1.4198e+00 /) - kbo(:, 2,19,14) = (/ & - &5.5968e+02 ,4.1977e+02 ,2.7985e+02 ,1.3992e+02 ,2.2241e+00 /) - kbo(:, 3,19,14) = (/ & - &7.3637e+02 ,5.5226e+02 ,3.6818e+02 ,1.8410e+02 ,3.5653e+00 /) - kbo(:, 4,19,14) = (/ & - &9.3504e+02 ,7.0126e+02 ,4.6751e+02 ,2.3375e+02 ,5.1035e+00 /) - kbo(:, 5,19,14) = (/ & - &1.1560e+03 ,8.6697e+02 ,5.7801e+02 ,2.8901e+02 ,6.9044e+00 /) - kbo(:, 1,20,14) = (/ & - &4.2971e+02 ,3.2229e+02 ,2.1485e+02 ,1.0743e+02 ,1.5393e+00 /) - kbo(:, 2,20,14) = (/ & - &5.8587e+02 ,4.3942e+02 ,2.9293e+02 ,1.4647e+02 ,2.2601e+00 /) - kbo(:, 3,20,14) = (/ & - &7.6617e+02 ,5.7464e+02 ,3.8311e+02 ,1.9155e+02 ,3.5353e+00 /) - kbo(:, 4,20,14) = (/ & - &9.6798e+02 ,7.2594e+02 ,4.8398e+02 ,2.4197e+02 ,5.0919e+00 /) - kbo(:, 5,20,14) = (/ & - &1.1898e+03 ,8.9235e+02 ,5.9489e+02 ,2.9744e+02 ,6.7835e+00 /) - kbo(:, 1,21,14) = (/ & - &4.4889e+02 ,3.3666e+02 ,2.2444e+02 ,1.1222e+02 ,1.6427e+00 /) - kbo(:, 2,21,14) = (/ & - &6.0830e+02 ,4.5623e+02 ,3.0417e+02 ,1.5208e+02 ,2.2298e+00 /) - kbo(:, 3,21,14) = (/ & - &7.9080e+02 ,5.9312e+02 ,3.9541e+02 ,1.9769e+02 ,3.4367e+00 /) - kbo(:, 4,21,14) = (/ & - &9.9371e+02 ,7.4527e+02 ,4.9684e+02 ,2.4842e+02 ,4.8609e+00 /) - kbo(:, 5,21,14) = (/ & - &1.2155e+03 ,9.1159e+02 ,6.0771e+02 ,3.0387e+02 ,6.5479e+00 /) - kbo(:, 1,22,14) = (/ & - &4.7127e+02 ,3.5343e+02 ,2.3563e+02 ,1.1782e+02 ,1.6925e+00 /) - kbo(:, 2,22,14) = (/ & - &6.3239e+02 ,4.7428e+02 ,3.1618e+02 ,1.5809e+02 ,2.2427e+00 /) - kbo(:, 3,22,14) = (/ & - &8.1553e+02 ,6.1164e+02 ,4.0775e+02 ,2.0390e+02 ,3.3409e+00 /) - kbo(:, 4,22,14) = (/ & - &1.0189e+03 ,7.6417e+02 ,5.0944e+02 ,2.5480e+02 ,4.6697e+00 /) - kbo(:, 5,22,14) = (/ & - &1.2378e+03 ,9.2835e+02 ,6.1890e+02 ,3.0965e+02 ,6.2760e+00 /) - kbo(:, 1,23,14) = (/ & - &4.8713e+02 ,3.6534e+02 ,2.4356e+02 ,1.2192e+02 ,1.6599e+00 /) - kbo(:, 2,23,14) = (/ & - &6.4775e+02 ,4.8583e+02 ,3.2387e+02 ,1.6212e+02 ,2.1938e+00 /) - kbo(:, 3,23,14) = (/ & - &8.3023e+02 ,6.2268e+02 ,4.1512e+02 ,2.0786e+02 ,3.2003e+00 /) - kbo(:, 4,23,14) = (/ & - &1.0300e+03 ,7.7249e+02 ,5.1499e+02 ,2.5803e+02 ,4.4341e+00 /) - kbo(:, 5,23,14) = (/ & - &1.2450e+03 ,9.3374e+02 ,6.2249e+02 ,3.1208e+02 ,5.9729e+00 /) - kbo(:, 1,24,14) = (/ & - &5.0112e+02 ,3.7583e+02 ,2.5056e+02 ,1.2575e+02 ,1.5724e+00 /) - kbo(:, 2,24,14) = (/ & - &6.6153e+02 ,4.9614e+02 ,3.3076e+02 ,1.6604e+02 ,2.1250e+00 /) - kbo(:, 3,24,14) = (/ & - &8.4162e+02 ,6.3120e+02 ,4.2079e+02 ,2.1132e+02 ,3.0488e+00 /) - kbo(:, 4,24,14) = (/ & - &1.0387e+03 ,7.7903e+02 ,5.1934e+02 ,2.6092e+02 ,4.1964e+00 /) - kbo(:, 5,24,14) = (/ & - &1.2497e+03 ,9.3727e+02 ,6.2485e+02 ,3.1407e+02 ,5.6661e+00 /) - kbo(:, 1,25,14) = (/ & - &5.0957e+02 ,3.8217e+02 ,2.5479e+02 ,1.2836e+02 ,1.4865e+00 /) - kbo(:, 2,25,14) = (/ & - &6.6771e+02 ,5.0078e+02 ,3.3385e+02 ,1.6824e+02 ,2.0184e+00 /) - kbo(:, 3,25,14) = (/ & - &8.4466e+02 ,6.3351e+02 ,4.2233e+02 ,2.1290e+02 ,2.8760e+00 /) - kbo(:, 4,25,14) = (/ & - &1.0379e+03 ,7.7843e+02 ,5.1895e+02 ,2.6171e+02 ,3.9646e+00 /) - kbo(:, 5,25,14) = (/ & - &1.2454e+03 ,9.3411e+02 ,6.2273e+02 ,3.1409e+02 ,5.3432e+00 /) - kbo(:, 1,26,14) = (/ & - &5.1543e+02 ,3.8657e+02 ,2.5772e+02 ,1.3040e+02 ,1.4310e+00 /) - kbo(:, 2,26,14) = (/ & - &6.7055e+02 ,5.0292e+02 ,3.3528e+02 ,1.6969e+02 ,1.9779e+00 /) - kbo(:, 3,26,14) = (/ & - &8.4393e+02 ,6.3294e+02 ,4.2195e+02 ,2.1362e+02 ,2.7140e+00 /) - kbo(:, 4,26,14) = (/ & - &1.0339e+03 ,7.7538e+02 ,5.1691e+02 ,2.6173e+02 ,3.7614e+00 /) - kbo(:, 5,26,14) = (/ & - &1.2377e+03 ,9.2822e+02 ,6.1881e+02 ,3.1339e+02 ,5.0524e+00 /) - kbo(:, 1,27,14) = (/ & - &5.1680e+02 ,3.8760e+02 ,2.5844e+02 ,1.3139e+02 ,1.4644e+00 /) - kbo(:, 2,27,14) = (/ & - &6.6877e+02 ,5.0158e+02 ,3.3442e+02 ,1.7006e+02 ,1.9743e+00 /) - kbo(:, 3,27,14) = (/ & - &8.3912e+02 ,6.2935e+02 ,4.1964e+02 ,2.1343e+02 ,2.6423e+00 /) - kbo(:, 4,27,14) = (/ & - &1.0255e+03 ,7.6907e+02 ,5.1284e+02 ,2.6091e+02 ,3.5939e+00 /) - kbo(:, 5,27,14) = (/ & - &1.2273e+03 ,9.2048e+02 ,6.1378e+02 ,3.1226e+02 ,4.8265e+00 /) - kbo(:, 1,28,14) = (/ & - &5.1471e+02 ,3.8604e+02 ,2.5761e+02 ,1.3161e+02 ,1.4975e+00 /) - kbo(:, 2,28,14) = (/ & - &6.6390e+02 ,4.9793e+02 ,3.3227e+02 ,1.6984e+02 ,1.9755e+00 /) - kbo(:, 3,28,14) = (/ & - &8.3099e+02 ,6.2328e+02 ,4.1590e+02 ,2.1266e+02 ,2.6592e+00 /) - kbo(:, 4,28,14) = (/ & - &1.0159e+03 ,7.6197e+02 ,5.0842e+02 ,2.5994e+02 ,3.4854e+00 /) - kbo(:, 5,28,14) = (/ & - &1.2168e+03 ,9.1262e+02 ,6.0898e+02 ,3.1138e+02 ,4.6837e+00 /) - kbo(:, 1,29,14) = (/ & - &5.0817e+02 ,3.8113e+02 ,2.5474e+02 ,1.3092e+02 ,1.4861e+00 /) - kbo(:, 2,29,14) = (/ & - &6.5385e+02 ,4.9038e+02 ,3.2768e+02 ,1.6851e+02 ,1.9807e+00 /) - kbo(:, 3,29,14) = (/ & - &8.1862e+02 ,6.1397e+02 ,4.1013e+02 ,2.1090e+02 ,2.6083e+00 /) - kbo(:, 4,29,14) = (/ & - &1.0015e+03 ,7.5115e+02 ,5.0169e+02 ,2.5799e+02 ,3.4366e+00 /) - kbo(:, 5,29,14) = (/ & - &1.2004e+03 ,9.0023e+02 ,6.0130e+02 ,3.0911e+02 ,4.6309e+00 /) - kbo(:, 1,30,14) = (/ & - &4.9890e+02 ,3.7416e+02 ,2.5051e+02 ,1.2967e+02 ,1.4792e+00 /) - kbo(:, 2,30,14) = (/ & - &6.4183e+02 ,4.8137e+02 ,3.2213e+02 ,1.6671e+02 ,1.9639e+00 /) - kbo(:, 3,30,14) = (/ & - &8.0457e+02 ,6.0342e+02 ,4.0369e+02 ,2.0889e+02 ,2.5564e+00 /) - kbo(:, 4,30,14) = (/ & - &9.8521e+02 ,7.3890e+02 ,4.9415e+02 ,2.5564e+02 ,3.4162e+00 /) - kbo(:, 5,30,14) = (/ & - &1.1820e+03 ,8.8651e+02 ,5.9274e+02 ,3.0646e+02 ,4.6345e+00 /) - kbo(:, 1,31,14) = (/ & - &4.8682e+02 ,3.6513e+02 ,2.4494e+02 ,1.2775e+02 ,1.4549e+00 /) - kbo(:, 2,31,14) = (/ & - &6.2686e+02 ,4.7014e+02 ,3.1520e+02 ,1.6432e+02 ,1.8973e+00 /) - kbo(:, 3,31,14) = (/ & - &7.8640e+02 ,5.8981e+02 ,3.9524e+02 ,2.0591e+02 ,2.5203e+00 /) - kbo(:, 4,31,14) = (/ & - &9.6406e+02 ,7.2305e+02 ,4.8423e+02 ,2.5217e+02 ,3.4800e+00 /) - kbo(:, 5,31,14) = (/ & - &1.1586e+03 ,8.6894e+02 ,5.8171e+02 ,3.0260e+02 ,4.7311e+00 /) - kbo(:, 1,32,14) = (/ & - &4.7960e+02 ,3.5970e+02 ,2.4176e+02 ,1.2713e+02 ,1.4049e+00 /) - kbo(:, 2,32,14) = (/ & - &6.1788e+02 ,4.6339e+02 ,3.1125e+02 ,1.6347e+02 ,1.8610e+00 /) - kbo(:, 3,32,14) = (/ & - &7.7566e+02 ,5.8175e+02 ,3.9047e+02 ,2.0479e+02 ,2.5736e+00 /) - kbo(:, 4,32,14) = (/ & - &9.5231e+02 ,7.1420e+02 ,4.7904e+02 ,2.5086e+02 ,3.5724e+00 /) - kbo(:, 5,32,14) = (/ & - &1.1464e+03 ,8.5978e+02 ,5.7626e+02 ,3.0128e+02 ,4.8525e+00 /) - kbo(:, 1,33,14) = (/ & - &4.7673e+02 ,3.5758e+02 ,2.4086e+02 ,1.2764e+02 ,1.3592e+00 /) - kbo(:, 2,33,14) = (/ & - &6.1463e+02 ,4.6099e+02 ,3.1024e+02 ,1.6404e+02 ,1.8844e+00 /) - kbo(:, 3,33,14) = (/ & - &7.7253e+02 ,5.7937e+02 ,3.8948e+02 ,2.0544e+02 ,2.6672e+00 /) - kbo(:, 4,33,14) = (/ & - &9.4922e+02 ,7.1189e+02 ,4.7815e+02 ,2.5158e+02 ,3.7054e+00 /) - kbo(:, 5,33,14) = (/ & - &1.1446e+03 ,8.5842e+02 ,5.7603e+02 ,3.0239e+02 ,5.0353e+00 /) - kbo(:, 1,34,14) = (/ & - &4.7829e+02 ,3.5882e+02 ,2.4214e+02 ,1.2917e+02 ,1.3360e+00 /) - kbo(:, 2,34,14) = (/ & - &6.1765e+02 ,4.6331e+02 ,3.1226e+02 ,1.6594e+02 ,1.9203e+00 /) - kbo(:, 3,34,14) = (/ & - &7.7743e+02 ,5.8310e+02 ,3.9256e+02 ,2.0792e+02 ,2.7349e+00 /) - kbo(:, 4,34,14) = (/ & - &9.5686e+02 ,7.1762e+02 ,4.8256e+02 ,2.5475e+02 ,3.8031e+00 /) - kbo(:, 5,34,14) = (/ & - &1.1550e+03 ,8.6629e+02 ,5.8189e+02 ,3.0631e+02 ,5.2021e+00 /) - kbo(:, 1,35,14) = (/ & - &4.7226e+02 ,3.5443e+02 ,2.3957e+02 ,1.2851e+02 ,1.3086e+00 /) - kbo(:, 2,35,14) = (/ & - &6.1214e+02 ,4.5923e+02 ,3.0998e+02 ,1.6546e+02 ,1.9154e+00 /) - kbo(:, 3,35,14) = (/ & - &7.7280e+02 ,5.7976e+02 ,3.9077e+02 ,2.0773e+02 ,2.7357e+00 /) - kbo(:, 4,35,14) = (/ & - &9.5397e+02 ,7.1554e+02 ,4.8165e+02 ,2.5508e+02 ,3.8286e+00 /) - kbo(:, 5,35,14) = (/ & - &1.1540e+03 ,8.6552e+02 ,5.8187e+02 ,3.0708e+02 ,5.2636e+00 /) - kbo(:, 1,36,14) = (/ & - &4.5693e+02 ,3.4301e+02 ,2.3220e+02 ,1.2520e+02 ,1.2533e+00 /) - kbo(:, 2,36,14) = (/ & - &5.9574e+02 ,4.4710e+02 ,3.0221e+02 ,1.6199e+02 ,1.8411e+00 /) - kbo(:, 3,36,14) = (/ & - &7.5609e+02 ,5.6723e+02 ,3.8282e+02 ,2.0421e+02 ,2.6504e+00 /) - kbo(:, 4,36,14) = (/ & - &9.3751e+02 ,7.0328e+02 ,4.7386e+02 ,2.5165e+02 ,3.7407e+00 /) - kbo(:, 5,36,14) = (/ & - &1.1381e+03 ,8.5353e+02 ,5.7430e+02 ,3.0378e+02 ,5.1704e+00 /) - kbo(:, 1,37,14) = (/ & - &4.2922e+02 ,3.2232e+02 ,2.1847e+02 ,1.1834e+02 ,1.1213e+00 /) - kbo(:, 2,37,14) = (/ & - &5.6522e+02 ,4.2422e+02 ,2.8713e+02 ,1.5453e+02 ,1.6760e+00 /) - kbo(:, 3,37,14) = (/ & - &7.2332e+02 ,5.4281e+02 ,3.6673e+02 ,1.9621e+02 ,2.4344e+00 /) - kbo(:, 4,37,14) = (/ & - &9.0338e+02 ,6.7777e+02 ,4.5711e+02 ,2.4334e+02 ,3.4735e+00 /) - kbo(:, 5,37,14) = (/ & - &1.1034e+03 ,8.2764e+02 ,5.5725e+02 ,2.9534e+02 ,4.8510e+00 /) - kbo(:, 1,38,14) = (/ & - &4.0355e+02 ,3.0314e+02 ,2.0578e+02 ,1.1195e+02 ,1.0088e+00 /) - kbo(:, 2,38,14) = (/ & - &5.3660e+02 ,4.0286e+02 ,2.7296e+02 ,1.4742e+02 ,1.5281e+00 /) - kbo(:, 3,38,14) = (/ & - &6.9245e+02 ,5.1973e+02 ,3.5152e+02 ,1.8858e+02 ,2.2407e+00 /) - kbo(:, 4,38,14) = (/ & - &8.7113e+02 ,6.5360e+02 ,4.4117e+02 ,2.3535e+02 ,3.2324e+00 /) - kbo(:, 5,38,14) = (/ & - &1.0703e+03 ,8.0291e+02 ,5.4092e+02 ,2.8714e+02 ,4.5526e+00 /) - kbo(:, 1,39,14) = (/ & - &3.8048e+02 ,2.8595e+02 ,1.9433e+02 ,1.0614e+02 ,9.1242e-01 /) - kbo(:, 2,39,14) = (/ & - &5.1067e+02 ,3.8348e+02 ,2.6010e+02 ,1.4089e+02 ,1.4025e+00 /) - kbo(:, 3,39,14) = (/ & - &6.6451e+02 ,4.9880e+02 ,3.3759e+02 ,1.8159e+02 ,2.0765e+00 /) - kbo(:, 4,39,14) = (/ & - &8.4141e+02 ,6.3140e+02 ,4.2638e+02 ,2.2792e+02 ,3.0229e+00 /) - kbo(:, 5,39,14) = (/ & - &1.0396e+03 ,7.7992e+02 ,5.2571e+02 ,2.7947e+02 ,4.2952e+00 /) - kbo(:, 1,40,14) = (/ & - &3.5133e+02 ,2.6415e+02 ,1.7970e+02 ,9.8495e+01 ,7.8366e-01 /) - kbo(:, 2,40,14) = (/ & - &4.7771e+02 ,3.5880e+02 ,2.4356e+02 ,1.3227e+02 ,1.2276e+00 /) - kbo(:, 3,40,14) = (/ & - &6.2817e+02 ,4.7163e+02 ,3.1937e+02 ,1.7209e+02 ,1.8434e+00 /) - kbo(:, 4,40,14) = (/ & - &8.0277e+02 ,6.0241e+02 ,4.0711e+02 ,2.1788e+02 ,2.7123e+00 /) - kbo(:, 5,40,14) = (/ & - &9.9978e+02 ,7.5011e+02 ,5.0577e+02 ,2.6911e+02 ,3.8911e+00 /) - kbo(:, 1,41,14) = (/ & - &3.2342e+02 ,2.4324e+02 ,1.6567e+02 ,9.1094e+01 ,6.6818e-01 /) - kbo(:, 2,41,14) = (/ & - &4.4573e+02 ,3.3493e+02 ,2.2747e+02 ,1.2382e+02 ,1.0662e+00 /) - kbo(:, 3,41,14) = (/ & - &5.9252e+02 ,4.4488e+02 ,3.0145e+02 ,1.6269e+02 ,1.6310e+00 /) - kbo(:, 4,41,14) = (/ & - &7.6447e+02 ,5.7369e+02 ,3.8787e+02 ,2.0780e+02 ,2.4231e+00 /) - kbo(:, 5,41,14) = (/ & - &9.6002e+02 ,7.2027e+02 ,4.8589e+02 ,2.5869e+02 ,3.5110e+00 /) - kbo(:, 1,42,14) = (/ & - &2.9741e+02 ,2.2375e+02 ,1.5256e+02 ,8.4130e+01 ,5.7099e-01 /) - kbo(:, 2,42,14) = (/ & - &4.1545e+02 ,3.1224e+02 ,2.1217e+02 ,1.1576e+02 ,9.2628e-01 /) - kbo(:, 3,42,14) = (/ & - &5.5858e+02 ,4.1944e+02 ,2.8433e+02 ,1.5367e+02 ,1.4426e+00 /) - kbo(:, 4,42,14) = (/ & - &7.2759e+02 ,5.4609e+02 ,3.6933e+02 ,1.9808e+02 ,2.1657e+00 /) - kbo(:, 5,42,14) = (/ & - &9.2131e+02 ,6.9128e+02 ,4.6648e+02 ,2.4850e+02 ,3.1673e+00 /) - kbo(:, 1,43,14) = (/ & - &2.7012e+02 ,2.0330e+02 ,1.3875e+02 ,7.6704e+01 ,4.7188e-01 /) - kbo(:, 2,43,14) = (/ & - &3.8333e+02 ,2.8816e+02 ,1.9596e+02 ,1.0707e+02 ,7.8390e-01 /) - kbo(:, 3,43,14) = (/ & - &5.2268e+02 ,3.9255e+02 ,2.6617e+02 ,1.4400e+02 ,1.2434e+00 /) - kbo(:, 4,43,14) = (/ & - &6.8847e+02 ,5.1676e+02 ,3.4954e+02 ,1.8752e+02 ,1.8919e+00 /) - kbo(:, 5,43,14) = (/ & - &8.8050e+02 ,6.6068e+02 ,4.4591e+02 ,2.3760e+02 ,2.7970e+00 /) - kbo(:, 1,44,14) = (/ & - &2.4333e+02 ,1.8320e+02 ,1.2513e+02 ,6.9324e+01 ,3.8543e-01 /) - kbo(:, 2,44,14) = (/ & - &3.5160e+02 ,2.6439e+02 ,1.7983e+02 ,9.8391e+01 ,6.5410e-01 /) - kbo(:, 3,44,14) = (/ & - &4.8672e+02 ,3.6559e+02 ,2.4794e+02 ,1.3422e+02 ,1.0574e+00 /) - kbo(:, 4,44,14) = (/ & - &6.4907e+02 ,4.8721e+02 ,3.2959e+02 ,1.7683e+02 ,1.6338e+00 /) - kbo(:, 5,44,14) = (/ & - &8.3935e+02 ,6.2981e+02 ,4.2512e+02 ,2.2646e+02 ,2.4460e+00 /) - kbo(:, 1,45,14) = (/ & - &2.1826e+02 ,1.6439e+02 ,1.1240e+02 ,6.2387e+01 ,3.1362e-01 /) - kbo(:, 2,45,14) = (/ & - &3.2151e+02 ,2.4179e+02 ,1.6452e+02 ,9.0130e+01 ,5.4229e-01 /) - kbo(:, 3,45,14) = (/ & - &4.5202e+02 ,3.3957e+02 ,2.3034e+02 ,1.2476e+02 ,8.9432e-01 /) - kbo(:, 4,45,14) = (/ & - &6.1098e+02 ,4.5864e+02 ,3.1027e+02 ,1.6648e+02 ,1.4094e+00 /) - kbo(:, 5,45,14) = (/ & - &7.9903e+02 ,5.9956e+02 ,4.0465e+02 ,2.1549e+02 ,2.1336e+00 /) - kbo(:, 1,46,14) = (/ & - &1.9334e+02 ,1.4567e+02 ,9.9705e+01 ,5.5445e+01 ,2.5106e-01 /) - kbo(:, 2,46,14) = (/ & - &2.9084e+02 ,2.1878e+02 ,1.4895e+02 ,8.1712e+01 ,4.4167e-01 /) - kbo(:, 3,46,14) = (/ & - &4.1605e+02 ,3.1260e+02 ,2.1206e+02 ,1.1494e+02 ,7.4589e-01 /) - kbo(:, 4,46,14) = (/ & - &5.7087e+02 ,4.2857e+02 ,2.8993e+02 ,1.5559e+02 ,1.1995e+00 /) - kbo(:, 5,46,14) = (/ & - &7.5566e+02 ,5.6703e+02 ,3.8272e+02 ,2.0372e+02 ,1.8420e+00 /) - kbo(:, 1,47,14) = (/ & - &1.6734e+02 ,1.2615e+02 ,8.6467e+01 ,4.8182e+01 ,1.9607e-01 /) - kbo(:, 2,47,14) = (/ & - &2.5798e+02 ,1.9414e+02 ,1.3227e+02 ,7.2690e+01 ,3.4728e-01 /) - kbo(:, 3,47,14) = (/ & - &3.7682e+02 ,2.8319e+02 ,1.9216e+02 ,1.0425e+02 ,6.0496e-01 /) - kbo(:, 4,47,14) = (/ & - &5.2596e+02 ,3.9489e+02 ,2.6718e+02 ,1.4343e+02 ,9.9190e-01 /) - kbo(:, 5,47,14) = (/ & - &7.0637e+02 ,5.3006e+02 ,3.5776e+02 ,1.9039e+02 ,1.5539e+00 /) - kbo(:, 1,48,14) = (/ & - &1.4359e+02 ,1.0831e+02 ,7.4350e+01 ,4.1515e+01 ,1.5112e-01 /) - kbo(:, 2,48,14) = (/ & - &2.2736e+02 ,1.7115e+02 ,1.1670e+02 ,6.4242e+01 ,2.7228e-01 /) - kbo(:, 3,48,14) = (/ & - &3.3955e+02 ,2.5527e+02 ,1.7326e+02 ,9.4064e+01 ,4.8587e-01 /) - kbo(:, 4,48,14) = (/ & - &4.8257e+02 ,3.6236e+02 ,2.4521e+02 ,1.3165e+02 ,8.1598e-01 /) - kbo(:, 5,48,14) = (/ & - &6.5841e+02 ,4.9408e+02 ,3.3351e+02 ,1.7744e+02 ,1.3043e+00 /) - kbo(:, 1,49,14) = (/ & - &1.2205e+02 ,9.2102e+01 ,6.3332e+01 ,3.5432e+01 ,1.1595e-01 /) - kbo(:, 2,49,14) = (/ & - &1.9899e+02 ,1.4985e+02 ,1.0228e+02 ,5.6393e+01 ,2.1177e-01 /) - kbo(:, 3,49,14) = (/ & - &3.0425e+02 ,2.2876e+02 ,1.5534e+02 ,8.4415e+01 ,3.8749e-01 /) - kbo(:, 4,49,14) = (/ & - &4.4104e+02 ,3.3122e+02 ,2.2413e+02 ,1.2036e+02 ,6.6950e-01 /) - kbo(:, 5,49,14) = (/ & - &6.1182e+02 ,4.5914e+02 ,3.0987e+02 ,1.6480e+02 ,1.0872e+00 /) - kbo(:, 1,50,14) = (/ & - &1.0410e+02 ,7.8601e+01 ,5.4134e+01 ,3.0320e+01 ,8.9437e-02 /) - kbo(:, 2,50,14) = (/ & - &1.7476e+02 ,1.3166e+02 ,8.9943e+01 ,4.9647e+01 ,1.6487e-01 /) - kbo(:, 3,50,14) = (/ & - &2.7363e+02 ,2.0578e+02 ,1.3977e+02 ,7.5998e+01 ,3.0880e-01 /) - kbo(:, 4,50,14) = (/ & - &4.0470e+02 ,3.0398e+02 ,2.0569e+02 ,1.1045e+02 ,5.4711e-01 /) - kbo(:, 5,50,14) = (/ & - &5.7059e+02 ,4.2823e+02 ,2.8900e+02 ,1.5363e+02 ,9.1135e-01 /) - kbo(:, 1,51,14) = (/ & - &8.8591e+01 ,6.6918e+01 ,4.6161e+01 ,2.5881e+01 ,7.0825e-02 /) - kbo(:, 2,51,14) = (/ & - &1.5315e+02 ,1.1542e+02 ,7.8914e+01 ,4.3611e+01 ,1.2808e-01 /) - kbo(:, 3,51,14) = (/ & - &2.4591e+02 ,1.8497e+02 ,1.2567e+02 ,6.8391e+01 ,2.4633e-01 /) - kbo(:, 4,51,14) = (/ & - &3.7125e+02 ,2.7889e+02 ,1.8871e+02 ,1.0133e+02 ,4.4644e-01 /) - kbo(:, 5,51,14) = (/ & - &5.3232e+02 ,3.9953e+02 ,2.6959e+02 ,1.4324e+02 ,7.6098e-01 /) - kbo(:, 1,52,14) = (/ & - &7.4832e+01 ,5.6551e+01 ,3.9072e+01 ,2.1921e+01 ,5.8568e-02 /) - kbo(:, 2,52,14) = (/ & - &1.3340e+02 ,1.0056e+02 ,6.8804e+01 ,3.8048e+01 ,9.9737e-02 /) - kbo(:, 3,52,14) = (/ & - &2.2000e+02 ,1.6553e+02 ,1.1251e+02 ,6.1251e+01 ,1.9573e-01 /) - kbo(:, 4,52,14) = (/ & - &3.3944e+02 ,2.5503e+02 ,1.7256e+02 ,9.2621e+01 ,3.6167e-01 /) - kbo(:, 5,52,14) = (/ & - &4.9563e+02 ,3.7201e+02 ,2.5099e+02 ,1.3326e+02 ,6.3209e-01 /) - kbo(:, 1,53,14) = (/ & - &6.2655e+01 ,4.7378e+01 ,3.2786e+01 ,1.8402e+01 ,5.0324e-02 /) - kbo(:, 2,53,14) = (/ & - &1.1533e+02 ,8.6961e+01 ,5.9562e+01 ,3.2947e+01 ,7.6555e-02 /) - kbo(:, 3,53,14) = (/ & - &1.9565e+02 ,1.4725e+02 ,1.0014e+02 ,5.4560e+01 ,1.5441e-01 /) - kbo(:, 4,53,14) = (/ & - &3.0901e+02 ,2.3220e+02 ,1.5711e+02 ,8.4327e+01 ,2.9159e-01 /) - kbo(:, 5,53,14) = (/ & - &4.6024e+02 ,3.4547e+02 ,2.3304e+02 ,1.2363e+02 ,5.2012e-01 /) - kbo(:, 1,54,14) = (/ & - &5.3046e+01 ,4.0133e+01 ,2.7816e+01 ,1.5611e+01 ,4.2542e-02 /) - kbo(:, 2,54,14) = (/ & - &1.0074e+02 ,7.5982e+01 ,5.2075e+01 ,2.8803e+01 ,6.4322e-02 /) - kbo(:, 3,54,14) = (/ & - &1.7557e+02 ,1.3215e+02 ,8.9882e+01 ,4.8976e+01 ,1.2163e-01 /) - kbo(:, 4,54,14) = (/ & - &2.8382e+02 ,2.1329e+02 ,1.4431e+02 ,7.7417e+01 ,2.3542e-01 /) - kbo(:, 5,54,14) = (/ & - &4.3075e+02 ,3.2335e+02 ,2.1806e+02 ,1.1557e+02 ,4.2927e-01 /) - kbo(:, 1,55,14) = (/ & - &4.5010e+01 ,3.4076e+01 ,2.3656e+01 ,1.3271e+01 ,3.8508e-02 /) - kbo(:, 2,55,14) = (/ & - &8.8262e+01 ,6.6580e+01 ,4.5655e+01 ,2.5232e+01 ,5.7123e-02 /) - kbo(:, 3,55,14) = (/ & - &1.5805e+02 ,1.1897e+02 ,8.0930e+01 ,4.4073e+01 ,9.5519e-02 /) - kbo(:, 4,55,14) = (/ & - &2.6161e+02 ,1.9662e+02 ,1.3302e+02 ,7.1301e+01 ,1.9000e-01 /) - kbo(:, 5,55,14) = (/ & - &4.0466e+02 ,3.0378e+02 ,2.0480e+02 ,1.0841e+02 ,3.5396e-01 /) - kbo(:, 1,56,14) = (/ & - &3.7999e+01 ,2.8791e+01 ,2.0014e+01 ,1.1214e+01 ,3.4994e-02 /) - kbo(:, 2,56,14) = (/ & - &7.7059e+01 ,5.8140e+01 ,3.9888e+01 ,2.2021e+01 ,5.1685e-02 /) - kbo(:, 3,56,14) = (/ & - &1.4187e+02 ,1.0680e+02 ,7.2655e+01 ,3.9531e+01 ,7.7408e-02 /) - kbo(:, 4,56,14) = (/ & - &2.4069e+02 ,1.8091e+02 ,1.2237e+02 ,6.5530e+01 ,1.5216e-01 /) - kbo(:, 5,56,14) = (/ & - &3.8007e+02 ,2.8533e+02 ,1.9230e+02 ,1.0164e+02 ,2.8842e-01 /) - kbo(:, 1,57,14) = (/ & - &3.1951e+01 ,2.4226e+01 ,1.6863e+01 ,9.4281e+00 ,3.3086e-02 /) - kbo(:, 2,57,14) = (/ & - &6.6995e+01 ,5.0555e+01 ,3.4699e+01 ,1.9133e+01 ,4.5516e-02 /) - kbo(:, 3,57,14) = (/ & - &1.2705e+02 ,9.5650e+01 ,6.5062e+01 ,3.5359e+01 ,6.7958e-02 /) - kbo(:, 4,57,14) = (/ & - &2.2106e+02 ,1.6616e+02 ,1.1237e+02 ,6.0096e+01 ,1.2025e-01 /) - kbo(:, 5,57,14) = (/ & - &3.5683e+02 ,2.6789e+02 ,1.8049e+02 ,9.5240e+01 ,2.3463e-01 /) - kbo(:, 1,58,14) = (/ & - &1.3120e+01 ,1.1427e+01 ,9.3421e+00 ,6.3041e+00 ,2.9290e-02 /) - kbo(:, 2,58,14) = (/ & - &2.8375e+01 ,2.4586e+01 ,1.9815e+01 ,1.3205e+01 ,4.1783e-02 /) - kbo(:, 3,58,14) = (/ & - &5.5462e+01 ,4.7938e+01 ,3.8264e+01 ,2.5126e+01 ,6.2497e-02 /) - kbo(:, 4,58,14) = (/ & - &9.8962e+01 ,8.5397e+01 ,6.7764e+01 ,4.3784e+01 ,9.9579e-02 /) - kbo(:, 5,58,14) = (/ & - &1.6330e+02 ,1.4075e+02 ,1.1126e+02 ,7.0923e+01 ,1.9106e-01 /) - kbo(:, 1,59,14) = (/ & - &1.2384e+01 ,1.0821e+01 ,8.8760e+00 ,6.0092e+00 ,2.9802e-02 /) - kbo(:, 2,59,14) = (/ & - &2.7135e+01 ,2.3592e+01 ,1.9085e+01 ,1.2767e+01 ,4.3735e-02 /) - kbo(:, 3,59,14) = (/ & - &5.3692e+01 ,4.6568e+01 ,3.7314e+01 ,2.4591e+01 ,6.7061e-02 /) - kbo(:, 4,59,14) = (/ & - &9.6831e+01 ,8.3852e+01 ,6.6810e+01 ,4.3324e+01 ,1.0825e-01 /) - kbo(:, 5,59,14) = (/ & - &1.6129e+02 ,1.3951e+02 ,1.1076e+02 ,7.0881e+01 ,1.7652e-01 /) - kbo(:, 1,13,15) = (/ & - &4.3408e+02 ,3.2553e+02 ,2.1704e+02 ,1.0851e+02 ,3.3387e-01 /) - kbo(:, 2,13,15) = (/ & - &6.1113e+02 ,4.5841e+02 ,3.0560e+02 ,1.5279e+02 ,3.4060e+00 /) - kbo(:, 3,13,15) = (/ & - &8.2062e+02 ,6.1547e+02 ,4.1031e+02 ,2.0516e+02 ,7.3889e+00 /) - kbo(:, 4,13,15) = (/ & - &1.0625e+03 ,7.9684e+02 ,5.3120e+02 ,2.6560e+02 ,1.3324e+01 /) - kbo(:, 5,13,15) = (/ & - &1.3314e+03 ,9.9861e+02 ,6.6575e+02 ,3.3287e+02 ,1.8510e+01 /) - kbo(:, 1,14,15) = (/ & - &4.8927e+02 ,3.6696e+02 ,2.4465e+02 ,1.2233e+02 ,1.4639e+00 /) - kbo(:, 2,14,15) = (/ & - &6.9247e+02 ,5.1938e+02 ,3.4624e+02 ,1.7311e+02 ,5.0161e+00 /) - kbo(:, 3,14,15) = (/ & - &9.3693e+02 ,7.0263e+02 ,4.6839e+02 ,2.3422e+02 ,9.2136e+00 /) - kbo(:, 4,14,15) = (/ & - &1.2198e+03 ,9.1484e+02 ,6.0989e+02 ,3.0495e+02 ,1.6015e+01 /) - kbo(:, 5,14,15) = (/ & - &1.5424e+03 ,1.1568e+03 ,7.7122e+02 ,3.8560e+02 ,2.0607e+01 /) - kbo(:, 1,15,15) = (/ & - &5.4419e+02 ,4.0815e+02 ,2.7209e+02 ,1.3605e+02 ,3.3205e+00 /) - kbo(:, 2,15,15) = (/ & - &7.6785e+02 ,5.7588e+02 ,3.8392e+02 ,1.9198e+02 ,6.4585e+00 /) - kbo(:, 3,15,15) = (/ & - &1.0420e+03 ,7.8154e+02 ,5.2102e+02 ,2.6050e+02 ,1.2593e+01 /) - kbo(:, 4,15,15) = (/ & - &1.3650e+03 ,1.0239e+03 ,6.8254e+02 ,3.4127e+02 ,1.7743e+01 /) - kbo(:, 5,15,15) = (/ & - &1.7328e+03 ,1.2995e+03 ,8.6636e+02 ,4.3319e+02 ,2.2779e+01 /) - kbo(:, 1,16,15) = (/ & - &5.9961e+02 ,4.4968e+02 ,2.9978e+02 ,1.4989e+02 ,4.3949e+00 /) - kbo(:, 2,16,15) = (/ & - &8.4044e+02 ,6.3032e+02 ,4.2019e+02 ,2.1011e+02 ,9.1201e+00 /) - kbo(:, 3,16,15) = (/ & - &1.1438e+03 ,8.5770e+02 ,5.7195e+02 ,2.8595e+02 ,1.4709e+01 /) - kbo(:, 4,16,15) = (/ & - &1.4993e+03 ,1.1245e+03 ,7.4965e+02 ,3.7484e+02 ,1.9517e+01 /) - kbo(:, 5,16,15) = (/ & - &1.9026e+03 ,1.4270e+03 ,9.5133e+02 ,4.7569e+02 ,2.4995e+01 /) - kbo(:, 1,17,15) = (/ & - &6.5740e+02 ,4.9304e+02 ,3.2868e+02 ,1.6434e+02 ,5.9877e+00 /) - kbo(:, 2,17,15) = (/ & - &9.1769e+02 ,6.8825e+02 ,4.5884e+02 ,2.2941e+02 ,1.1589e+01 /) - kbo(:, 3,17,15) = (/ & - &1.2441e+03 ,9.3311e+02 ,6.2203e+02 ,3.1103e+02 ,1.6070e+01 /) - kbo(:, 4,17,15) = (/ & - &1.6286e+03 ,1.2214e+03 ,8.1435e+02 ,4.0716e+02 ,2.1263e+01 /) - kbo(:, 5,17,15) = (/ & - &2.0647e+03 ,1.5485e+03 ,1.0323e+03 ,5.1617e+02 ,2.7194e+01 /) - kbo(:, 1,18,15) = (/ & - &7.0743e+02 ,5.3056e+02 ,3.5371e+02 ,1.7685e+02 ,7.5465e+00 /) - kbo(:, 2,18,15) = (/ & - &9.8473e+02 ,7.3856e+02 ,4.9235e+02 ,2.4618e+02 ,1.2708e+01 /) - kbo(:, 3,18,15) = (/ & - &1.3299e+03 ,9.9741e+02 ,6.6495e+02 ,3.3248e+02 ,1.7433e+01 /) - kbo(:, 4,18,15) = (/ & - &1.7379e+03 ,1.3034e+03 ,8.6887e+02 ,4.3447e+02 ,2.2996e+01 /) - kbo(:, 5,18,15) = (/ & - &2.2009e+03 ,1.6506e+03 ,1.1004e+03 ,5.5020e+02 ,2.9358e+01 /) - kbo(:, 1,19,15) = (/ & - &7.7797e+02 ,5.8347e+02 ,3.8898e+02 ,1.9449e+02 ,8.9058e+00 /) - kbo(:, 2,19,15) = (/ & - &1.0795e+03 ,8.0964e+02 ,5.3974e+02 ,2.6988e+02 ,1.3760e+01 /) - kbo(:, 3,19,15) = (/ & - &1.4503e+03 ,1.0877e+03 ,7.2515e+02 ,3.6258e+02 ,1.8739e+01 /) - kbo(:, 4,19,15) = (/ & - &1.8906e+03 ,1.4179e+03 ,9.4523e+02 ,4.7263e+02 ,2.4641e+01 /) - kbo(:, 5,19,15) = (/ & - &2.3863e+03 ,1.7897e+03 ,1.1933e+03 ,5.9656e+02 ,3.1485e+01 /) - kbo(:, 1,20,15) = (/ & - &8.7874e+02 ,6.5907e+02 ,4.3939e+02 ,2.1969e+02 ,9.7556e+00 /) - kbo(:, 2,20,15) = (/ & - &1.2128e+03 ,9.0962e+02 ,6.0638e+02 ,3.0319e+02 ,1.4896e+01 /) - kbo(:, 3,20,15) = (/ & - &1.6209e+03 ,1.2157e+03 ,8.1051e+02 ,4.0524e+02 ,2.0180e+01 /) - kbo(:, 4,20,15) = (/ & - &2.1009e+03 ,1.5756e+03 ,1.0504e+03 ,5.2525e+02 ,2.6433e+01 /) - kbo(:, 5,20,15) = (/ & - &2.6410e+03 ,1.9808e+03 ,1.3205e+03 ,6.6026e+02 ,3.3724e+01 /) - kbo(:, 1,21,15) = (/ & - &9.9673e+02 ,7.4761e+02 ,4.9839e+02 ,2.4919e+02 ,1.0524e+01 /) - kbo(:, 2,21,15) = (/ & - &1.3673e+03 ,1.0255e+03 ,6.8366e+02 ,3.4184e+02 ,1.6075e+01 /) - kbo(:, 3,21,15) = (/ & - &1.8166e+03 ,1.3625e+03 ,9.0829e+02 ,4.5412e+02 ,2.1690e+01 /) - kbo(:, 4,21,15) = (/ & - &2.3404e+03 ,1.7553e+03 ,1.1702e+03 ,5.8508e+02 ,2.8346e+01 /) - kbo(:, 5,21,15) = (/ & - &2.9258e+03 ,2.1942e+03 ,1.4629e+03 ,7.3140e+02 ,3.6033e+01 /) - kbo(:, 1,22,15) = (/ & - &1.1483e+03 ,8.6125e+02 ,5.7415e+02 ,2.8707e+02 ,1.1768e+01 /) - kbo(:, 2,22,15) = (/ & - &1.5630e+03 ,1.1723e+03 ,7.8152e+02 ,3.9076e+02 ,1.7624e+01 /) - kbo(:, 3,22,15) = (/ & - &2.0593e+03 ,1.5445e+03 ,1.0296e+03 ,5.1484e+02 ,2.3654e+01 /) - kbo(:, 4,22,15) = (/ & - &2.6282e+03 ,1.9711e+03 ,1.3140e+03 ,6.5702e+02 ,3.0777e+01 /) - kbo(:, 5,22,15) = (/ & - &3.2625e+03 ,2.4468e+03 ,1.6313e+03 ,8.1566e+02 ,3.8871e+01 /) - kbo(:, 1,23,15) = (/ & - &1.3167e+03 ,9.8756e+02 ,6.5833e+02 ,3.2919e+02 ,1.3119e+01 /) - kbo(:, 2,23,15) = (/ & - &1.7766e+03 ,1.3324e+03 ,8.8830e+02 ,4.4413e+02 ,1.9267e+01 /) - kbo(:, 3,23,15) = (/ & - &2.3173e+03 ,1.7380e+03 ,1.1586e+03 ,5.7933e+02 ,2.5707e+01 /) - kbo(:, 4,23,15) = (/ & - &2.9343e+03 ,2.2007e+03 ,1.4671e+03 ,7.3355e+02 ,3.3186e+01 /) - kbo(:, 5,23,15) = (/ & - &3.6141e+03 ,2.7105e+03 ,1.8070e+03 ,9.0351e+02 ,4.1634e+01 /) - kbo(:, 1,24,15) = (/ & - &1.5139e+03 ,1.1354e+03 ,7.5695e+02 ,3.7848e+02 ,1.4766e+01 /) - kbo(:, 2,24,15) = (/ & - &2.0213e+03 ,1.5159e+03 ,1.0107e+03 ,5.0532e+02 ,2.1039e+01 /) - kbo(:, 3,24,15) = (/ & - &2.6132e+03 ,1.9598e+03 ,1.3066e+03 ,6.5328e+02 ,2.7799e+01 /) - kbo(:, 4,24,15) = (/ & - &3.2798e+03 ,2.4598e+03 ,1.6399e+03 ,8.1993e+02 ,3.5585e+01 /) - kbo(:, 5,24,15) = (/ & - &4.0096e+03 ,3.0073e+03 ,2.0048e+03 ,1.0024e+03 ,4.4343e+01 /) - kbo(:, 1,25,15) = (/ & - &1.7311e+03 ,1.2983e+03 ,8.6555e+02 ,4.3279e+02 ,1.6410e+01 /) - kbo(:, 2,25,15) = (/ & - &2.2880e+03 ,1.7160e+03 ,1.1440e+03 ,5.7204e+02 ,2.2852e+01 /) - kbo(:, 3,25,15) = (/ & - &2.9293e+03 ,2.1970e+03 ,1.4646e+03 ,7.3234e+02 ,2.9897e+01 /) - kbo(:, 4,25,15) = (/ & - &3.6441e+03 ,2.7331e+03 ,1.8220e+03 ,9.1101e+02 ,3.8003e+01 /) - kbo(:, 5,25,15) = (/ & - &4.4209e+03 ,3.3157e+03 ,2.2104e+03 ,1.1052e+03 ,4.7037e+01 /) - kbo(:, 1,26,15) = (/ & - &1.9753e+03 ,1.4814e+03 ,9.8766e+02 ,4.9382e+02 ,1.8018e+01 /) - kbo(:, 2,26,15) = (/ & - &2.5844e+03 ,1.9383e+03 ,1.2922e+03 ,6.4606e+02 ,2.4551e+01 /) - kbo(:, 3,26,15) = (/ & - &3.2758e+03 ,2.4567e+03 ,1.6379e+03 ,8.1896e+02 ,3.2091e+01 /) - kbo(:, 4,26,15) = (/ & - &4.0392e+03 ,3.0293e+03 ,2.0196e+03 ,1.0098e+03 ,4.0504e+01 /) - kbo(:, 5,26,15) = (/ & - &4.8643e+03 ,3.6484e+03 ,2.4323e+03 ,1.2161e+03 ,4.9853e+01 /) - kbo(:, 1,27,15) = (/ & - &2.2372e+03 ,1.6779e+03 ,1.1187e+03 ,5.5932e+02 ,1.9412e+01 /) - kbo(:, 2,27,15) = (/ & - &2.8964e+03 ,2.1723e+03 ,1.4482e+03 ,7.2410e+02 ,2.6199e+01 /) - kbo(:, 3,27,15) = (/ & - &3.6363e+03 ,2.7272e+03 ,1.8181e+03 ,9.0912e+02 ,3.4164e+01 /) - kbo(:, 4,27,15) = (/ & - &4.4487e+03 ,3.3365e+03 ,2.2244e+03 ,1.1122e+03 ,4.3003e+01 /) - kbo(:, 5,27,15) = (/ & - &5.3193e+03 ,3.9894e+03 ,2.6596e+03 ,1.3298e+03 ,5.2701e+01 /) - kbo(:, 1,28,15) = (/ & - &2.5116e+03 ,1.8837e+03 ,1.2558e+03 ,6.2784e+02 ,2.0876e+01 /) - kbo(:, 2,28,15) = (/ & - &3.2189e+03 ,2.4142e+03 ,1.6096e+03 ,8.0476e+02 ,2.7949e+01 /) - kbo(:, 3,28,15) = (/ & - &4.0085e+03 ,3.0060e+03 ,2.0042e+03 ,1.0021e+03 ,3.6156e+01 /) - kbo(:, 4,28,15) = (/ & - &4.8660e+03 ,3.6495e+03 ,2.4329e+03 ,1.2165e+03 ,4.5448e+01 /) - kbo(:, 5,28,15) = (/ & - &5.7764e+03 ,4.3322e+03 ,2.8883e+03 ,1.4442e+03 ,5.5591e+01 /) - kbo(:, 1,29,15) = (/ & - &2.7788e+03 ,2.0842e+03 ,1.3895e+03 ,6.9477e+02 ,2.2561e+01 /) - kbo(:, 2,29,15) = (/ & - &3.5298e+03 ,2.6472e+03 ,1.7648e+03 ,8.8246e+02 ,2.9936e+01 /) - kbo(:, 3,29,15) = (/ & - &4.3597e+03 ,3.2696e+03 ,2.1798e+03 ,1.0899e+03 ,3.8464e+01 /) - kbo(:, 4,29,15) = (/ & - &5.2526e+03 ,3.9395e+03 ,2.6263e+03 ,1.3131e+03 ,4.8125e+01 /) - kbo(:, 5,29,15) = (/ & - &6.1956e+03 ,4.6467e+03 ,3.0979e+03 ,1.5489e+03 ,5.8615e+01 /) - kbo(:, 1,30,15) = (/ & - &3.0369e+03 ,2.2777e+03 ,1.5185e+03 ,7.5926e+02 ,2.4413e+01 /) - kbo(:, 2,30,15) = (/ & - &3.8244e+03 ,2.8684e+03 ,1.9122e+03 ,9.5609e+02 ,3.2061e+01 /) - kbo(:, 3,30,15) = (/ & - &4.6859e+03 ,3.5141e+03 ,2.3430e+03 ,1.1715e+03 ,4.0933e+01 /) - kbo(:, 4,30,15) = (/ & - &5.6065e+03 ,4.2050e+03 ,2.8032e+03 ,1.4016e+03 ,5.0897e+01 /) - kbo(:, 5,30,15) = (/ & - &6.5717e+03 ,4.9287e+03 ,3.2858e+03 ,1.6429e+03 ,6.1721e+01 /) - kbo(:, 1,31,15) = (/ & - &3.2648e+03 ,2.4486e+03 ,1.6324e+03 ,8.1618e+02 ,2.6426e+01 /) - kbo(:, 2,31,15) = (/ & - &4.0756e+03 ,3.0566e+03 ,2.0378e+03 ,1.0190e+03 ,3.4471e+01 /) - kbo(:, 3,31,15) = (/ & - &4.9563e+03 ,3.7173e+03 ,2.4782e+03 ,1.2392e+03 ,4.3666e+01 /) - kbo(:, 4,31,15) = (/ & - &5.8911e+03 ,4.4181e+03 ,2.9455e+03 ,1.4727e+03 ,5.3750e+01 /) - kbo(:, 5,31,15) = (/ & - &6.8637e+03 ,5.1477e+03 ,3.4319e+03 ,1.7160e+03 ,6.4980e+01 /) - kbo(:, 1,32,15) = (/ & - &3.4972e+03 ,2.6230e+03 ,1.7487e+03 ,8.7434e+02 ,2.8607e+01 /) - kbo(:, 2,32,15) = (/ & - &4.3306e+03 ,3.2480e+03 ,2.1653e+03 ,1.0827e+03 ,3.6943e+01 /) - kbo(:, 3,32,15) = (/ & - &5.2288e+03 ,3.9216e+03 ,2.6144e+03 ,1.3072e+03 ,4.6342e+01 /) - kbo(:, 4,32,15) = (/ & - &6.1756e+03 ,4.6314e+03 ,3.0875e+03 ,1.5439e+03 ,5.6744e+01 /) - kbo(:, 5,32,15) = (/ & - &7.1543e+03 ,5.3657e+03 ,3.5769e+03 ,1.7884e+03 ,6.8387e+01 /) - kbo(:, 1,33,15) = (/ & - &3.7323e+03 ,2.7993e+03 ,1.8662e+03 ,9.3310e+02 ,3.0880e+01 /) - kbo(:, 2,33,15) = (/ & - &4.5855e+03 ,3.4391e+03 ,2.2927e+03 ,1.1463e+03 ,3.9458e+01 /) - kbo(:, 3,33,15) = (/ & - &5.4988e+03 ,4.1239e+03 ,2.7494e+03 ,1.3747e+03 ,4.9066e+01 /) - kbo(:, 4,33,15) = (/ & - &6.4556e+03 ,4.8415e+03 ,3.2279e+03 ,1.6139e+03 ,5.9834e+01 /) - kbo(:, 5,33,15) = (/ & - &7.4364e+03 ,5.5775e+03 ,3.7183e+03 ,1.8591e+03 ,7.1936e+01 /) - kbo(:, 1,34,15) = (/ & - &3.9743e+03 ,2.9808e+03 ,1.9872e+03 ,9.9359e+02 ,3.2850e+01 /) - kbo(:, 2,34,15) = (/ & - &4.8517e+03 ,3.6384e+03 ,2.4257e+03 ,1.2129e+03 ,4.1615e+01 /) - kbo(:, 3,34,15) = (/ & - &5.7848e+03 ,4.3386e+03 ,2.8923e+03 ,1.4462e+03 ,5.1514e+01 /) - kbo(:, 4,34,15) = (/ & - &6.7566e+03 ,5.0673e+03 ,3.3783e+03 ,1.6891e+03 ,6.2632e+01 /) - kbo(:, 5,34,15) = (/ & - &7.7467e+03 ,5.8099e+03 ,3.8734e+03 ,1.9367e+03 ,7.5129e+01 /) - kbo(:, 1,35,15) = (/ & - &4.1392e+03 ,3.1044e+03 ,2.0697e+03 ,1.0348e+03 ,3.4005e+01 /) - kbo(:, 2,35,15) = (/ & - &5.0338e+03 ,3.7756e+03 ,2.5169e+03 ,1.2585e+03 ,4.2889e+01 /) - kbo(:, 3,35,15) = (/ & - &5.9824e+03 ,4.4867e+03 ,2.9910e+03 ,1.4955e+03 ,5.2983e+01 /) - kbo(:, 4,35,15) = (/ & - &6.9652e+03 ,5.2239e+03 ,3.4826e+03 ,1.7414e+03 ,6.4327e+01 /) - kbo(:, 5,35,15) = (/ & - &7.9642e+03 ,5.9733e+03 ,3.9822e+03 ,1.9911e+03 ,7.7087e+01 /) - kbo(:, 1,36,15) = (/ & - &4.2146e+03 ,3.1608e+03 ,2.1072e+03 ,1.0536e+03 ,3.4225e+01 /) - kbo(:, 2,36,15) = (/ & - &5.1200e+03 ,3.8401e+03 ,2.5599e+03 ,1.2800e+03 ,4.3139e+01 /) - kbo(:, 3,36,15) = (/ & - &6.0791e+03 ,4.5594e+03 ,3.0396e+03 ,1.5198e+03 ,5.3291e+01 /) - kbo(:, 4,36,15) = (/ & - &7.0718e+03 ,5.3037e+03 ,3.5357e+03 ,1.7679e+03 ,6.4713e+01 /) - kbo(:, 5,36,15) = (/ & - &8.0803e+03 ,6.0601e+03 ,4.0401e+03 ,2.0201e+03 ,7.7535e+01 /) - kbo(:, 1,37,15) = (/ & - &4.1830e+03 ,3.1372e+03 ,2.0915e+03 ,1.0457e+03 ,3.3171e+01 /) - kbo(:, 2,37,15) = (/ & - &5.0955e+03 ,3.8218e+03 ,2.5477e+03 ,1.2739e+03 ,4.1938e+01 /) - kbo(:, 3,37,15) = (/ & - &6.0651e+03 ,4.5490e+03 ,3.0327e+03 ,1.5163e+03 ,5.1957e+01 /) - kbo(:, 4,37,15) = (/ & - &7.0708e+03 ,5.3029e+03 ,3.5354e+03 ,1.7678e+03 ,6.3244e+01 /) - kbo(:, 5,37,15) = (/ & - &8.0937e+03 ,6.0708e+03 ,4.0470e+03 ,2.0235e+03 ,7.5914e+01 /) - kbo(:, 1,38,15) = (/ & - &4.1367e+03 ,3.1023e+03 ,2.0683e+03 ,1.0342e+03 ,3.2061e+01 /) - kbo(:, 2,38,15) = (/ & - &5.0552e+03 ,3.7913e+03 ,2.5275e+03 ,1.2638e+03 ,4.0668e+01 /) - kbo(:, 3,38,15) = (/ & - &6.0331e+03 ,4.5250e+03 ,3.0168e+03 ,1.5083e+03 ,5.0542e+01 /) - kbo(:, 4,38,15) = (/ & - &7.0503e+03 ,5.2874e+03 ,3.5252e+03 ,1.7626e+03 ,6.1670e+01 /) - kbo(:, 5,38,15) = (/ & - &8.0886e+03 ,6.0662e+03 ,4.0441e+03 ,2.0220e+03 ,7.4175e+01 /) - kbo(:, 1,39,15) = (/ & - &4.0836e+03 ,3.0625e+03 ,2.0418e+03 ,1.0208e+03 ,3.0973e+01 /) - kbo(:, 2,39,15) = (/ & - &5.0068e+03 ,3.7549e+03 ,2.5034e+03 ,1.2516e+03 ,3.9423e+01 /) - kbo(:, 3,39,15) = (/ & - &5.9917e+03 ,4.4934e+03 ,2.9959e+03 ,1.4979e+03 ,4.9140e+01 /) - kbo(:, 4,39,15) = (/ & - &7.0190e+03 ,5.2646e+03 ,3.5096e+03 ,1.7548e+03 ,6.0110e+01 /) - kbo(:, 5,39,15) = (/ & - &8.0703e+03 ,6.0526e+03 ,4.0352e+03 ,2.0176e+03 ,7.2442e+01 /) - kbo(:, 1,40,15) = (/ & - &3.9731e+03 ,2.9800e+03 ,1.9865e+03 ,9.9327e+02 ,2.9119e+01 /) - kbo(:, 2,40,15) = (/ & - &4.9010e+03 ,3.6760e+03 ,2.4505e+03 ,1.2252e+03 ,3.7284e+01 /) - kbo(:, 3,40,15) = (/ & - &5.8967e+03 ,4.4226e+03 ,2.9482e+03 ,1.4742e+03 ,4.6706e+01 /) - kbo(:, 4,40,15) = (/ & - &6.9401e+03 ,5.2049e+03 ,3.4701e+03 ,1.7350e+03 ,5.7383e+01 /) - kbo(:, 5,40,15) = (/ & - &8.0134e+03 ,6.0096e+03 ,4.0066e+03 ,2.0033e+03 ,6.9395e+01 /) - kbo(:, 1,41,15) = (/ & - &3.8503e+03 ,2.8877e+03 ,1.9252e+03 ,9.6258e+02 ,2.7224e+01 /) - kbo(:, 2,41,15) = (/ & - &4.7815e+03 ,3.5862e+03 ,2.3908e+03 ,1.1953e+03 ,3.5101e+01 /) - kbo(:, 3,41,15) = (/ & - &5.7872e+03 ,4.3401e+03 ,2.8935e+03 ,1.4467e+03 ,4.4197e+01 /) - kbo(:, 4,41,15) = (/ & - &6.8458e+03 ,5.1341e+03 ,3.4225e+03 ,1.7115e+03 ,5.4583e+01 /) - kbo(:, 5,41,15) = (/ & - &7.9396e+03 ,5.9547e+03 ,3.9699e+03 ,1.9849e+03 ,6.6259e+01 /) - kbo(:, 1,42,15) = (/ & - &3.7218e+03 ,2.7913e+03 ,1.8581e+03 ,9.3043e+02 ,2.5397e+01 /) - kbo(:, 2,42,15) = (/ & - &4.6552e+03 ,3.4913e+03 ,2.3275e+03 ,1.1638e+03 ,3.2985e+01 /) - kbo(:, 3,42,15) = (/ & - &5.6676e+03 ,4.2515e+03 ,2.8342e+03 ,1.4169e+03 ,4.1777e+01 /) - kbo(:, 4,42,15) = (/ & - &6.7404e+03 ,5.0552e+03 ,3.3706e+03 ,1.6852e+03 ,5.1833e+01 /) - kbo(:, 5,42,15) = (/ & - &7.8548e+03 ,5.8911e+03 ,3.9277e+03 ,1.9637e+03 ,6.3188e+01 /) - kbo(:, 1,43,15) = (/ & - &3.5738e+03 ,2.6801e+03 ,1.7870e+03 ,8.9342e+02 ,2.3264e+01 /) - kbo(:, 2,43,15) = (/ & - &4.5111e+03 ,3.3834e+03 ,2.2559e+03 ,1.1277e+03 ,3.0494e+01 /) - kbo(:, 3,43,15) = (/ & - &5.5364e+03 ,4.1522e+03 ,2.7681e+03 ,1.3841e+03 ,3.8909e+01 /) - kbo(:, 4,43,15) = (/ & - &6.6297e+03 ,4.9723e+03 ,3.3147e+03 ,1.6574e+03 ,4.8575e+01 /) - kbo(:, 5,43,15) = (/ & - &7.7713e+03 ,5.8285e+03 ,3.8856e+03 ,1.9429e+03 ,5.9539e+01 /) - kbo(:, 1,44,15) = (/ & - &3.4144e+03 ,2.5608e+03 ,1.7072e+03 ,8.5364e+02 ,2.1065e+01 /) - kbo(:, 2,44,15) = (/ & - &4.3569e+03 ,3.2674e+03 ,2.1784e+03 ,1.0893e+03 ,2.7929e+01 /) - kbo(:, 3,44,15) = (/ & - &5.3944e+03 ,4.0458e+03 ,2.6971e+03 ,1.3486e+03 ,3.5943e+01 /) - kbo(:, 4,44,15) = (/ & - &6.5105e+03 ,4.8828e+03 ,3.2554e+03 ,1.6276e+03 ,4.5182e+01 /) - kbo(:, 5,44,15) = (/ & - &7.6829e+03 ,5.7622e+03 ,3.8414e+03 ,1.9208e+03 ,5.5715e+01 /) - kbo(:, 1,45,15) = (/ & - &3.2505e+03 ,2.4379e+03 ,1.6254e+03 ,8.1271e+02 ,1.8984e+01 /) - kbo(:, 2,45,15) = (/ & - &4.1974e+03 ,3.1481e+03 ,2.0989e+03 ,1.0493e+03 ,2.5493e+01 /) - kbo(:, 3,45,15) = (/ & - &5.2466e+03 ,3.9350e+03 ,2.6232e+03 ,1.3117e+03 ,3.3113e+01 /) - kbo(:, 4,45,15) = (/ & - &6.3833e+03 ,4.7875e+03 ,3.1918e+03 ,1.5958e+03 ,4.1930e+01 /) - kbo(:, 5,45,15) = (/ & - &7.5868e+03 ,5.6901e+03 ,3.7934e+03 ,1.8967e+03 ,5.2027e+01 /) - kbo(:, 1,46,15) = (/ & - &3.0662e+03 ,2.2996e+03 ,1.5331e+03 ,7.6672e+02 ,1.6905e+01 /) - kbo(:, 2,46,15) = (/ & - &4.0155e+03 ,3.0116e+03 ,2.0079e+03 ,1.0039e+03 ,2.3041e+01 /) - kbo(:, 3,46,15) = (/ & - &5.0741e+03 ,3.8056e+03 ,2.5370e+03 ,1.2685e+03 ,3.0241e+01 /) - kbo(:, 4,46,15) = (/ & - &6.2294e+03 ,4.6721e+03 ,3.1149e+03 ,1.5573e+03 ,3.8622e+01 /) - kbo(:, 5,46,15) = (/ & - &7.4637e+03 ,5.5978e+03 ,3.7320e+03 ,1.8660e+03 ,4.8257e+01 /) - kbo(:, 1,47,15) = (/ & - &2.8472e+03 ,2.1354e+03 ,1.4236e+03 ,7.1208e+02 ,1.4723e+01 /) - kbo(:, 2,47,15) = (/ & - &3.7952e+03 ,2.8464e+03 ,1.8976e+03 ,9.4874e+02 ,2.0451e+01 /) - kbo(:, 3,47,15) = (/ & - &4.8581e+03 ,3.6436e+03 ,2.4290e+03 ,1.2145e+03 ,2.7203e+01 /) - kbo(:, 4,47,15) = (/ & - &6.0303e+03 ,4.5227e+03 ,3.0151e+03 ,1.5075e+03 ,3.5112e+01 /) - kbo(:, 5,47,15) = (/ & - &7.2931e+03 ,5.4698e+03 ,3.6467e+03 ,1.8233e+03 ,4.4239e+01 /) - kbo(:, 1,48,15) = (/ & - &2.6253e+03 ,1.9691e+03 ,1.3127e+03 ,6.5679e+02 ,1.2715e+01 /) - kbo(:, 2,48,15) = (/ & - &3.5692e+03 ,2.6769e+03 ,1.7846e+03 ,8.9231e+02 ,1.8030e+01 /) - kbo(:, 3,48,15) = (/ & - &4.6375e+03 ,3.4782e+03 ,2.3188e+03 ,1.1595e+03 ,2.4364e+01 /) - kbo(:, 4,48,15) = (/ & - &5.8244e+03 ,4.3683e+03 ,2.9120e+03 ,1.4560e+03 ,3.1792e+01 /) - kbo(:, 5,48,15) = (/ & - &7.1141e+03 ,5.3356e+03 ,3.5570e+03 ,1.7785e+03 ,4.0424e+01 /) - kbo(:, 1,49,15) = (/ & - &2.4040e+03 ,1.8030e+03 ,1.2020e+03 ,6.0155e+02 ,1.0861e+01 /) - kbo(:, 2,49,15) = (/ & - &3.3401e+03 ,2.5051e+03 ,1.6700e+03 ,8.3512e+02 ,1.5777e+01 /) - kbo(:, 3,49,15) = (/ & - &4.4127e+03 ,3.3095e+03 ,2.2063e+03 ,1.1031e+03 ,2.1693e+01 /) - kbo(:, 4,49,15) = (/ & - &5.6115e+03 ,4.2087e+03 ,2.8058e+03 ,1.4030e+03 ,2.8659e+01 /) - kbo(:, 5,49,15) = (/ & - &6.9274e+03 ,5.1956e+03 ,3.4636e+03 ,1.7318e+03 ,3.6808e+01 /) - kbo(:, 1,50,15) = (/ & - &2.2030e+03 ,1.6523e+03 ,1.1015e+03 ,5.5137e+02 ,9.2813e+00 /) - kbo(:, 2,50,15) = (/ & - &3.1297e+03 ,2.3473e+03 ,1.5649e+03 ,7.8265e+02 ,1.3818e+01 /) - kbo(:, 3,50,15) = (/ & - &4.2081e+03 ,3.1561e+03 ,2.1041e+03 ,1.0519e+03 ,1.9341e+01 /) - kbo(:, 4,50,15) = (/ & - &5.4214e+03 ,4.0660e+03 ,2.7107e+03 ,1.3553e+03 ,2.5902e+01 /) - kbo(:, 5,50,15) = (/ & - &6.7641e+03 ,5.0731e+03 ,3.3821e+03 ,1.6910e+03 ,3.3602e+01 /) - kbo(:, 1,51,15) = (/ & - &2.0128e+03 ,1.5096e+03 ,1.0064e+03 ,5.0390e+02 ,7.8927e+00 /) - kbo(:, 2,51,15) = (/ & - &2.9276e+03 ,2.1957e+03 ,1.4638e+03 ,7.3206e+02 ,1.2046e+01 /) - kbo(:, 3,51,15) = (/ & - &4.0098e+03 ,3.0073e+03 ,2.0049e+03 ,1.0025e+03 ,1.7204e+01 /) - kbo(:, 4,51,15) = (/ & - &5.2399e+03 ,3.9299e+03 ,2.6200e+03 ,1.3100e+03 ,2.3387e+01 /) - kbo(:, 5,51,15) = (/ & - &6.6101e+03 ,4.9575e+03 ,3.3050e+03 ,1.6525e+03 ,3.0654e+01 /) - kbo(:, 1,52,15) = (/ & - &1.8272e+03 ,1.3704e+03 ,9.1373e+02 ,4.5761e+02 ,6.6428e+00 /) - kbo(:, 2,52,15) = (/ & - &2.7256e+03 ,2.0442e+03 ,1.3627e+03 ,6.8167e+02 ,1.0409e+01 /) - kbo(:, 3,52,15) = (/ & - &3.8098e+03 ,2.8573e+03 ,1.9049e+03 ,9.5240e+02 ,1.5205e+01 /) - kbo(:, 4,52,15) = (/ & - &5.0575e+03 ,3.7931e+03 ,2.5288e+03 ,1.2643e+03 ,2.1008e+01 /) - kbo(:, 5,52,15) = (/ & - &6.4544e+03 ,4.8408e+03 ,3.2272e+03 ,1.6135e+03 ,2.7863e+01 /) - kbo(:, 1,53,15) = (/ & - &1.6455e+03 ,1.2341e+03 ,8.2275e+02 ,4.1218e+02 ,5.5292e+00 /) - kbo(:, 2,53,15) = (/ & - &2.5225e+03 ,1.8919e+03 ,1.2613e+03 ,6.3102e+02 ,8.9199e+00 /) - kbo(:, 3,53,15) = (/ & - &3.6054e+03 ,2.7042e+03 ,1.8028e+03 ,9.0141e+02 ,1.3342e+01 /) - kbo(:, 4,53,15) = (/ & - &4.8703e+03 ,3.6527e+03 ,2.4352e+03 ,1.2176e+03 ,1.8766e+01 /) - kbo(:, 5,53,15) = (/ & - &6.2970e+03 ,4.7228e+03 ,3.1485e+03 ,1.5742e+03 ,2.5231e+01 /) - kbo(:, 1,54,15) = (/ & - &1.4905e+03 ,1.1179e+03 ,7.4526e+02 ,3.7343e+02 ,4.6241e+00 /) - kbo(:, 2,54,15) = (/ & - &2.3494e+03 ,1.7621e+03 ,1.1747e+03 ,5.8778e+02 ,7.6666e+00 /) - kbo(:, 3,54,15) = (/ & - &3.4317e+03 ,2.5738e+03 ,1.7159e+03 ,8.5793e+02 ,1.1744e+01 /) - kbo(:, 4,54,15) = (/ & - &4.7173e+03 ,3.5380e+03 ,2.3587e+03 ,1.1793e+03 ,1.6836e+01 /) - kbo(:, 5,54,15) = (/ & - &6.1810e+03 ,4.6357e+03 ,3.0905e+03 ,1.5452e+03 ,2.2955e+01 /) - kbo(:, 1,55,15) = (/ & - &1.3503e+03 ,1.0127e+03 ,6.7517e+02 ,3.3837e+02 ,3.8496e+00 /) - kbo(:, 2,55,15) = (/ & - &2.1922e+03 ,1.6441e+03 ,1.0961e+03 ,5.4853e+02 ,6.5708e+00 /) - kbo(:, 3,55,15) = (/ & - &3.2739e+03 ,2.4554e+03 ,1.6370e+03 ,8.1853e+02 ,1.0320e+01 /) - kbo(:, 4,55,15) = (/ & - &4.5818e+03 ,3.4364e+03 ,2.2910e+03 ,1.1455e+03 ,1.5094e+01 /) - kbo(:, 5,55,15) = (/ & - &6.0888e+03 ,4.5666e+03 ,3.0444e+03 ,1.5222e+03 ,2.0876e+01 /) - kbo(:, 1,56,15) = (/ & - &1.2164e+03 ,9.1227e+02 ,6.0818e+02 ,3.0487e+02 ,3.1724e+00 /) - kbo(:, 2,56,15) = (/ & - &2.0376e+03 ,1.5282e+03 ,1.0188e+03 ,5.0989e+02 ,5.5890e+00 /) - kbo(:, 3,56,15) = (/ & - &3.1175e+03 ,2.3381e+03 ,1.5588e+03 ,7.7947e+02 ,9.0060e+00 /) - kbo(:, 4,56,15) = (/ & - &4.4491e+03 ,3.3368e+03 ,2.2246e+03 ,1.1123e+03 ,1.3463e+01 /) - kbo(:, 5,56,15) = (/ & - &6.0027e+03 ,4.5020e+03 ,3.0014e+03 ,1.5007e+03 ,1.8912e+01 /) - kbo(:, 1,57,15) = (/ & - &1.0889e+03 ,8.1664e+02 ,5.4443e+02 ,2.7298e+02 ,2.5821e+00 /) - kbo(:, 2,57,15) = (/ & - &1.8871e+03 ,1.4154e+03 ,9.4357e+02 ,4.7231e+02 ,4.7102e+00 /) - kbo(:, 3,57,15) = (/ & - &2.9648e+03 ,2.2236e+03 ,1.4824e+03 ,7.4131e+02 ,7.7911e+00 /) - kbo(:, 4,57,15) = (/ & - &4.3194e+03 ,3.2395e+03 ,2.1597e+03 ,1.0798e+03 ,1.1924e+01 /) - kbo(:, 5,57,15) = (/ & - &5.9252e+03 ,4.4439e+03 ,2.9626e+03 ,1.4813e+03 ,1.7058e+01 /) - kbo(:, 1,58,15) = (/ & - &4.7296e+02 ,4.0724e+02 ,3.1867e+02 ,1.9341e+02 ,2.1052e+00 /) - kbo(:, 2,58,15) = (/ & - &8.4958e+02 ,7.3152e+02 ,5.7242e+02 ,3.4682e+02 ,3.9643e+00 /) - kbo(:, 3,58,15) = (/ & - &1.3719e+03 ,1.1812e+03 ,9.2434e+02 ,5.5948e+02 ,6.7352e+00 /) - kbo(:, 4,58,15) = (/ & - &2.0410e+03 ,1.7574e+03 ,1.3752e+03 ,8.3221e+02 ,1.0550e+01 /) - kbo(:, 5,58,15) = (/ & - &2.8472e+03 ,2.4515e+03 ,1.9184e+03 ,1.1609e+03 ,1.5395e+01 /) - kbo(:, 1,59,15) = (/ & - &4.5680e+02 ,3.9477e+02 ,3.1046e+02 ,1.8976e+02 ,1.9256e+00 /) - kbo(:, 2,59,15) = (/ & - &8.3327e+02 ,7.2012e+02 ,5.6632e+02 ,3.4555e+02 ,3.6779e+00 /) - kbo(:, 3,59,15) = (/ & - &1.3611e+03 ,1.1763e+03 ,9.2510e+02 ,5.6393e+02 ,6.3201e+00 /) - kbo(:, 4,59,15) = (/ & - &2.0429e+03 ,1.7655e+03 ,1.3884e+03 ,8.4623e+02 ,9.9804e+00 /) - kbo(:, 5,59,15) = (/ & - &2.8700e+03 ,2.4803e+03 ,1.9506e+03 ,1.1889e+03 ,1.4739e+01 /) - kbo(:, 1,13,16) = (/ & - &4.8122e+02 ,3.6087e+02 ,2.4060e+02 ,1.2030e+02 ,7.3993e+00 /) - kbo(:, 2,13,16) = (/ & - &6.9206e+02 ,5.1907e+02 ,3.4603e+02 ,1.7302e+02 ,1.5501e+01 /) - kbo(:, 3,13,16) = (/ & - &9.4738e+02 ,7.1056e+02 ,4.7372e+02 ,2.3683e+02 ,2.1040e+01 /) - kbo(:, 4,13,16) = (/ & - &1.2406e+03 ,9.3042e+02 ,6.2029e+02 ,3.1014e+02 ,2.9139e+01 /) - kbo(:, 5,13,16) = (/ & - &1.5703e+03 ,1.1778e+03 ,7.8522e+02 ,3.9259e+02 ,3.9308e+01 /) - kbo(:, 1,14,16) = (/ & - &5.7576e+02 ,4.3182e+02 ,2.8788e+02 ,1.4394e+02 ,1.4009e+01 /) - kbo(:, 2,14,16) = (/ & - &8.3244e+02 ,6.2431e+02 ,4.1619e+02 ,2.0809e+02 ,1.9135e+01 /) - kbo(:, 3,14,16) = (/ & - &1.1392e+03 ,8.5436e+02 ,5.6956e+02 ,2.8480e+02 ,2.5798e+01 /) - kbo(:, 4,14,16) = (/ & - &1.4970e+03 ,1.1226e+03 ,7.4844e+02 ,3.7423e+02 ,3.5612e+01 /) - kbo(:, 5,14,16) = (/ & - &1.8999e+03 ,1.4249e+03 ,9.4985e+02 ,4.7498e+02 ,4.7897e+01 /) - kbo(:, 1,15,16) = (/ & - &6.7686e+02 ,5.0758e+02 ,3.3845e+02 ,1.6922e+02 ,1.7232e+01 /) - kbo(:, 2,15,16) = (/ & - &9.7585e+02 ,7.3193e+02 ,4.8790e+02 ,2.4395e+02 ,2.3521e+01 /) - kbo(:, 3,15,16) = (/ & - &1.3377e+03 ,1.0032e+03 ,6.6881e+02 ,3.3441e+02 ,3.1740e+01 /) - kbo(:, 4,15,16) = (/ & - &1.7575e+03 ,1.3181e+03 ,8.7876e+02 ,4.3935e+02 ,4.3321e+01 /) - kbo(:, 5,15,16) = (/ & - &2.2308e+03 ,1.6730e+03 ,1.1154e+03 ,5.5774e+02 ,5.7999e+01 /) - kbo(:, 1,16,16) = (/ & - &7.8637e+02 ,5.8983e+02 ,3.9321e+02 ,1.9661e+02 ,2.1088e+01 /) - kbo(:, 2,16,16) = (/ & - &1.1333e+03 ,8.4995e+02 ,5.6666e+02 ,2.8332e+02 ,2.8690e+01 /) - kbo(:, 3,16,16) = (/ & - &1.5497e+03 ,1.1623e+03 ,7.7493e+02 ,3.8745e+02 ,3.8949e+01 /) - kbo(:, 4,16,16) = (/ & - &2.0330e+03 ,1.5247e+03 ,1.0164e+03 ,5.0821e+02 ,5.2500e+01 /) - kbo(:, 5,16,16) = (/ & - &2.5789e+03 ,1.9342e+03 ,1.2895e+03 ,6.4478e+02 ,6.9505e+01 /) - kbo(:, 1,17,16) = (/ & - &9.1371e+02 ,6.8529e+02 ,4.5686e+02 ,2.2843e+02 ,2.5518e+01 /) - kbo(:, 2,17,16) = (/ & - &1.3116e+03 ,9.8366e+02 ,6.5574e+02 ,3.2788e+02 ,3.4904e+01 /) - kbo(:, 3,17,16) = (/ & - &1.7880e+03 ,1.3410e+03 ,8.9396e+02 ,4.4698e+02 ,4.7412e+01 /) - kbo(:, 4,17,16) = (/ & - &2.3411e+03 ,1.7558e+03 ,1.1705e+03 ,5.8526e+02 ,6.3218e+01 /) - kbo(:, 5,17,16) = (/ & - &2.9603e+03 ,2.2204e+03 ,1.4801e+03 ,7.4006e+02 ,8.2344e+01 /) - kbo(:, 1,18,16) = (/ & - &1.0453e+03 ,7.8401e+02 ,5.2267e+02 ,2.6132e+02 ,3.0565e+01 /) - kbo(:, 2,18,16) = (/ & - &1.4935e+03 ,1.1202e+03 ,7.4674e+02 ,3.7341e+02 ,4.2204e+01 /) - kbo(:, 3,18,16) = (/ & - &2.0309e+03 ,1.5232e+03 ,1.0154e+03 ,5.0502e+02 ,5.7127e+01 /) - kbo(:, 4,18,16) = (/ & - &2.6479e+03 ,1.9862e+03 ,1.3241e+03 ,6.6202e+02 ,7.5429e+01 /) - kbo(:, 5,18,16) = (/ & - &3.3399e+03 ,2.5049e+03 ,1.6700e+03 ,8.3500e+02 ,9.7021e+01 /) - kbo(:, 1,19,16) = (/ & - &1.2157e+03 ,9.1179e+02 ,6.0790e+02 ,3.0394e+02 ,3.6497e+01 /) - kbo(:, 2,19,16) = (/ & - &1.7308e+03 ,1.2981e+03 ,8.6539e+02 ,4.3270e+02 ,5.0186e+01 /) - kbo(:, 3,19,16) = (/ & - &2.3421e+03 ,1.7565e+03 ,1.1710e+03 ,5.8556e+02 ,6.7960e+01 /) - kbo(:, 4,19,16) = (/ & - &3.0436e+03 ,2.2829e+03 ,1.5219e+03 ,7.6093e+02 ,8.8940e+01 /) - kbo(:, 5,19,16) = (/ & - &3.8257e+03 ,2.8691e+03 ,1.9129e+03 ,9.5637e+02 ,1.1320e+02 /) - kbo(:, 1,20,16) = (/ & - &1.4499e+03 ,1.0875e+03 ,7.2502e+02 ,3.6250e+02 ,4.3451e+01 /) - kbo(:, 2,20,16) = (/ & - &2.0494e+03 ,1.5371e+03 ,1.0247e+03 ,5.1236e+02 ,5.9923e+01 /) - kbo(:, 3,20,16) = (/ & - &2.7595e+03 ,2.0695e+03 ,1.3797e+03 ,6.8984e+02 ,8.0107e+01 /) - kbo(:, 4,20,16) = (/ & - &3.5702e+03 ,2.6775e+03 ,1.7850e+03 ,8.9253e+02 ,1.0388e+02 /) - kbo(:, 5,20,16) = (/ & - &4.4675e+03 ,3.3505e+03 ,2.2337e+03 ,1.1168e+03 ,1.3102e+02 /) - kbo(:, 1,21,16) = (/ & - &1.7354e+03 ,1.3015e+03 ,8.6762e+02 ,4.3383e+02 ,5.1121e+01 /) - kbo(:, 2,21,16) = (/ & - &2.4333e+03 ,1.8248e+03 ,1.2166e+03 ,6.0831e+02 ,7.0122e+01 /) - kbo(:, 3,21,16) = (/ & - &3.2566e+03 ,2.4426e+03 ,1.6283e+03 ,8.1420e+02 ,9.3037e+01 /) - kbo(:, 4,21,16) = (/ & - &4.1875e+03 ,3.1404e+03 ,2.0937e+03 ,1.0468e+03 ,1.1968e+02 /) - kbo(:, 5,21,16) = (/ & - &5.2269e+03 ,3.9201e+03 ,2.6133e+03 ,1.3066e+03 ,1.4963e+02 /) - kbo(:, 1,22,16) = (/ & - &2.1136e+03 ,1.5853e+03 ,1.0569e+03 ,5.2844e+02 ,6.0581e+01 /) - kbo(:, 2,22,16) = (/ & - &2.9316e+03 ,2.1987e+03 ,1.4659e+03 ,7.3292e+02 ,8.2385e+01 /) - kbo(:, 3,22,16) = (/ & - &3.8802e+03 ,2.9101e+03 ,1.9401e+03 ,9.7007e+02 ,1.0823e+02 /) - kbo(:, 4,22,16) = (/ & - &4.9544e+03 ,3.7156e+03 ,2.4770e+03 ,1.2386e+03 ,1.3781e+02 /) - kbo(:, 5,22,16) = (/ & - &6.1512e+03 ,4.6135e+03 ,3.0579e+03 ,1.5378e+03 ,1.7127e+02 /) - kbo(:, 1,23,16) = (/ & - &2.5612e+03 ,1.9208e+03 ,1.2805e+03 ,6.4031e+02 ,7.0795e+01 /) - kbo(:, 2,23,16) = (/ & - &3.5078e+03 ,2.6308e+03 ,1.7538e+03 ,8.7684e+02 ,9.5347e+01 /) - kbo(:, 3,23,16) = (/ & - &4.5972e+03 ,3.4475e+03 ,2.2984e+03 ,1.1493e+03 ,1.2411e+02 /) - kbo(:, 4,23,16) = (/ & - &5.8246e+03 ,4.3680e+03 ,2.9119e+03 ,1.4559e+03 ,1.5734e+02 /) - kbo(:, 5,23,16) = (/ & - &7.1749e+03 ,5.3812e+03 ,3.5874e+03 ,1.7937e+03 ,1.9485e+02 /) - kbo(:, 1,24,16) = (/ & - &3.1040e+03 ,2.3279e+03 ,1.5520e+03 ,7.7603e+02 ,8.1731e+01 /) - kbo(:, 2,24,16) = (/ & - &4.2015e+03 ,3.1511e+03 ,2.1007e+03 ,1.0503e+03 ,1.0915e+02 /) - kbo(:, 3,24,16) = (/ & - &5.4526e+03 ,4.0896e+03 ,2.7263e+03 ,1.3632e+03 ,1.4142e+02 /) - kbo(:, 4,24,16) = (/ & - &6.8486e+03 ,5.1365e+03 ,3.4243e+03 ,1.7120e+03 ,1.7856e+02 /) - kbo(:, 5,24,16) = (/ & - &8.3592e+03 ,6.2694e+03 ,4.1793e+03 ,2.0896e+03 ,2.2042e+02 /) - kbo(:, 1,25,16) = (/ & - &3.7353e+03 ,2.8011e+03 ,1.8675e+03 ,9.3379e+02 ,9.3752e+01 /) - kbo(:, 2,25,16) = (/ & - &4.9915e+03 ,3.7438e+03 ,2.4959e+03 ,1.2479e+03 ,1.2447e+02 /) - kbo(:, 3,25,16) = (/ & - &6.4159e+03 ,4.8120e+03 ,3.2081e+03 ,1.6040e+03 ,1.6041e+02 /) - kbo(:, 4,25,16) = (/ & - &7.9803e+03 ,5.9849e+03 ,3.9899e+03 ,1.9951e+03 ,2.0157e+02 /) - kbo(:, 5,25,16) = (/ & - &9.6532e+03 ,7.2408e+03 ,4.8272e+03 ,2.4135e+03 ,2.4756e+02 /) - kbo(:, 1,26,16) = (/ & - &4.4736e+03 ,3.3551e+03 ,2.2367e+03 ,1.1183e+03 ,1.0731e+02 /) - kbo(:, 2,26,16) = (/ & - &5.9023e+03 ,4.4264e+03 ,2.9511e+03 ,1.4756e+03 ,1.4156e+02 /) - kbo(:, 3,26,16) = (/ & - &7.5046e+03 ,5.6279e+03 ,3.7521e+03 ,1.8761e+03 ,1.8123e+02 /) - kbo(:, 4,26,16) = (/ & - &9.2412e+03 ,6.9304e+03 ,4.6207e+03 ,2.3102e+03 ,2.2639e+02 /) - kbo(:, 5,26,16) = (/ & - &1.1070e+04 ,8.3029e+03 ,5.5351e+03 ,2.7676e+03 ,2.7645e+02 /) - kbo(:, 1,27,16) = (/ & - &5.2658e+03 ,3.9745e+03 ,2.6497e+03 ,1.3248e+03 ,1.2199e+02 /) - kbo(:, 2,27,16) = (/ & - &6.9046e+03 ,5.1781e+03 ,3.4305e+03 ,1.7261e+03 ,1.5967e+02 /) - kbo(:, 3,27,16) = (/ & - &8.6809e+03 ,6.5105e+03 ,4.3403e+03 ,2.1700e+03 ,2.0317e+02 /) - kbo(:, 4,27,16) = (/ & - &1.0514e+04 ,7.9337e+03 ,5.2893e+03 ,2.6448e+03 ,2.5202e+02 /) - kbo(:, 5,27,16) = (/ & - &1.2548e+04 ,9.4115e+03 ,6.2746e+03 ,3.1373e+03 ,3.0568e+02 /) - kbo(:, 1,28,16) = (/ & - &6.2040e+03 ,4.6529e+03 ,3.1020e+03 ,1.5511e+03 ,1.3749e+02 /) - kbo(:, 2,28,16) = (/ & - &7.9799e+03 ,5.9854e+03 ,3.9901e+03 ,1.9952e+03 ,1.7869e+02 /) - kbo(:, 3,28,16) = (/ & - &9.9157e+03 ,7.4385e+03 ,4.9578e+03 ,2.4793e+03 ,2.2573e+02 /) - kbo(:, 4,28,16) = (/ & - &1.1961e+04 ,8.9706e+03 ,5.9799e+03 ,2.9900e+03 ,2.7806e+02 /) - kbo(:, 5,28,16) = (/ & - &1.4060e+04 ,1.0545e+04 ,7.0300e+03 ,3.5151e+03 ,3.3499e+02 /) - kbo(:, 1,29,16) = (/ & - &7.1341e+03 ,5.3506e+03 ,3.5671e+03 ,1.7835e+03 ,1.5398e+02 /) - kbo(:, 2,29,16) = (/ & - &9.0577e+03 ,6.7935e+03 ,4.5290e+03 ,2.2643e+03 ,1.9863e+02 /) - kbo(:, 3,29,16) = (/ & - &1.1122e+04 ,8.3426e+03 ,5.5615e+03 ,2.7806e+03 ,2.4903e+02 /) - kbo(:, 4,29,16) = (/ & - &1.3280e+04 ,9.9609e+03 ,6.6400e+03 ,3.3199e+03 ,3.0450e+02 /) - kbo(:, 5,29,16) = (/ & - &1.5478e+04 ,1.1609e+04 ,7.7394e+03 ,3.8697e+03 ,3.6431e+02 /) - kbo(:, 1,30,16) = (/ & - &8.0566e+03 ,6.0423e+03 ,4.0284e+03 ,2.0142e+03 ,1.7115e+02 /) - kbo(:, 2,30,16) = (/ & - &1.0101e+04 ,7.5759e+03 ,5.0505e+03 ,2.5252e+03 ,2.1901e+02 /) - kbo(:, 3,30,16) = (/ & - &1.2267e+04 ,9.1995e+03 ,6.1334e+03 ,3.0668e+03 ,2.7243e+02 /) - kbo(:, 4,30,16) = (/ & - &1.4511e+04 ,1.0883e+04 ,7.2556e+03 ,3.6279e+03 ,3.3082e+02 /) - kbo(:, 5,30,16) = (/ & - &1.6772e+04 ,1.2579e+04 ,8.3858e+03 ,4.1931e+03 ,3.9317e+02 /) - kbo(:, 1,31,16) = (/ & - &8.8982e+03 ,6.6739e+03 ,4.4493e+03 ,2.2245e+03 ,1.8901e+02 /) - kbo(:, 2,31,16) = (/ & - &1.1025e+04 ,8.2681e+03 ,5.5122e+03 ,2.7560e+03 ,2.3984e+02 /) - kbo(:, 3,31,16) = (/ & - &1.3250e+04 ,9.9387e+03 ,6.6258e+03 ,3.3127e+03 ,2.9609e+02 /) - kbo(:, 4,31,16) = (/ & - &1.5535e+04 ,1.1652e+04 ,7.7678e+03 ,3.8841e+03 ,3.5699e+02 /) - kbo(:, 5,31,16) = (/ & - &1.7813e+04 ,1.3361e+04 ,8.9075e+03 ,4.4535e+03 ,4.2172e+02 /) - kbo(:, 1,32,16) = (/ & - &9.7468e+03 ,7.3100e+03 ,4.8729e+03 ,2.4366e+03 ,2.0736e+02 /) - kbo(:, 2,32,16) = (/ & - &1.1942e+04 ,8.9562e+03 ,5.9708e+03 ,2.9855e+03 ,2.6092e+02 /) - kbo(:, 3,32,16) = (/ & - &1.4217e+04 ,1.0663e+04 ,7.1086e+03 ,3.5542e+03 ,3.1978e+02 /) - kbo(:, 4,32,16) = (/ & - &1.6526e+04 ,1.2394e+04 ,8.2625e+03 ,4.1313e+03 ,3.8300e+02 /) - kbo(:, 5,32,16) = (/ & - &1.8815e+04 ,1.4111e+04 ,9.4077e+03 ,4.7034e+03 ,4.4968e+02 /) - kbo(:, 1,33,16) = (/ & - &1.0585e+04 ,7.8868e+03 ,5.2924e+03 ,2.6461e+03 ,2.2603e+02 /) - kbo(:, 2,33,16) = (/ & - &1.2835e+04 ,9.6280e+03 ,6.4182e+03 ,3.2091e+03 ,2.8215e+02 /) - kbo(:, 3,33,16) = (/ & - &1.5147e+04 ,1.1359e+04 ,7.5723e+03 ,3.7863e+03 ,3.3983e+02 /) - kbo(:, 4,33,16) = (/ & - &1.7461e+04 ,1.3096e+04 ,8.7313e+03 ,4.3654e+03 ,4.0847e+02 /) - kbo(:, 5,33,16) = (/ & - &1.9631e+04 ,1.4815e+04 ,9.8770e+03 ,4.9389e+03 ,4.7201e+02 /) - kbo(:, 1,34,16) = (/ & - &1.1432e+04 ,8.5737e+03 ,5.7158e+03 ,2.8579e+03 ,2.4293e+02 /) - kbo(:, 2,34,16) = (/ & - &1.3656e+04 ,1.0308e+04 ,6.8715e+03 ,3.4360e+03 ,3.0114e+02 /) - kbo(:, 3,34,16) = (/ & - &1.6096e+04 ,1.2073e+04 ,8.0473e+03 ,4.0240e+03 ,3.6423e+02 /) - kbo(:, 4,34,16) = (/ & - &1.8435e+04 ,1.3744e+04 ,9.2181e+03 ,4.6088e+03 ,4.3111e+02 /) - kbo(:, 5,34,16) = (/ & - &2.0743e+04 ,1.5458e+04 ,1.0371e+04 ,5.1857e+03 ,5.0086e+02 /) - kbo(:, 1,35,16) = (/ & - &1.2052e+04 ,9.0391e+03 ,6.0261e+03 ,3.0130e+03 ,2.5425e+02 /) - kbo(:, 2,35,16) = (/ & - &1.4410e+04 ,1.0808e+04 ,7.2046e+03 ,3.6026e+03 ,3.1392e+02 /) - kbo(:, 3,35,16) = (/ & - &1.6796e+04 ,1.2598e+04 ,8.3987e+03 ,4.1994e+03 ,3.7832e+02 /) - kbo(:, 4,35,16) = (/ & - &1.9160e+04 ,1.4370e+04 ,9.5799e+03 ,4.7904e+03 ,4.4634e+02 /) - kbo(:, 5,35,16) = (/ & - &2.1483e+04 ,1.6114e+04 ,1.0742e+04 ,5.3711e+03 ,5.1708e+02 /) - kbo(:, 1,36,16) = (/ & - &1.2411e+04 ,9.3078e+03 ,6.2050e+03 ,3.1026e+03 ,2.5887e+02 /) - kbo(:, 2,36,16) = (/ & - &1.4808e+04 ,1.1106e+04 ,7.4043e+03 ,3.7021e+03 ,3.1927e+02 /) - kbo(:, 3,36,16) = (/ & - &1.7228e+04 ,1.2921e+04 ,8.6130e+03 ,4.3067e+03 ,3.8442e+02 /) - kbo(:, 4,36,16) = (/ & - &1.9618e+04 ,1.4714e+04 ,9.8092e+03 ,4.9047e+03 ,4.5297e+02 /) - kbo(:, 5,36,16) = (/ & - &2.1965e+04 ,1.6474e+04 ,1.0982e+04 ,5.4915e+03 ,5.1909e+02 /) - kbo(:, 1,37,16) = (/ & - &1.2464e+04 ,9.3487e+03 ,6.2318e+03 ,3.1159e+03 ,2.5416e+02 /) - kbo(:, 2,37,16) = (/ & - &1.4910e+04 ,1.1181e+04 ,7.4551e+03 ,3.7272e+03 ,3.1436e+02 /) - kbo(:, 3,37,16) = (/ & - &1.7377e+04 ,1.3033e+04 ,8.6893e+03 ,4.3442e+03 ,3.7942e+02 /) - kbo(:, 4,37,16) = (/ & - &1.9817e+04 ,1.4862e+04 ,9.9088e+03 ,4.9531e+03 ,4.4815e+02 /) - kbo(:, 5,37,16) = (/ & - &2.2212e+04 ,1.6660e+04 ,1.1107e+04 ,5.5531e+03 ,5.1970e+02 /) - kbo(:, 1,38,16) = (/ & - &1.2455e+04 ,9.3421e+03 ,6.2277e+03 ,3.1139e+03 ,2.4843e+02 /) - kbo(:, 2,38,16) = (/ & - &1.4944e+04 ,1.1208e+04 ,7.4715e+03 ,3.7356e+03 ,3.0837e+02 /) - kbo(:, 3,38,16) = (/ & - &1.7458e+04 ,1.3093e+04 ,8.7289e+03 ,4.3646e+03 ,3.7326e+02 /) - kbo(:, 4,38,16) = (/ & - &1.9945e+04 ,1.4959e+04 ,9.9720e+03 ,4.9866e+03 ,4.4198e+02 /) - kbo(:, 5,38,16) = (/ & - &2.2391e+04 ,1.6792e+04 ,1.1195e+04 ,5.5974e+03 ,5.1349e+02 /) - kbo(:, 1,39,16) = (/ & - &1.2406e+04 ,9.3076e+03 ,6.2035e+03 ,3.1024e+03 ,2.4239e+02 /) - kbo(:, 2,39,16) = (/ & - &1.4934e+04 ,1.1200e+04 ,7.4672e+03 ,3.7337e+03 ,3.0193e+02 /) - kbo(:, 3,39,16) = (/ & - &1.7492e+04 ,1.3118e+04 ,8.7456e+03 ,4.3725e+03 ,3.6650e+02 /) - kbo(:, 4,39,16) = (/ & - &2.0028e+04 ,1.5022e+04 ,1.0013e+04 ,5.0072e+03 ,4.3512e+02 /) - kbo(:, 5,39,16) = (/ & - &2.2512e+04 ,1.6885e+04 ,1.1257e+04 ,5.6280e+03 ,5.0671e+02 /) - kbo(:, 1,40,16) = (/ & - &1.2191e+04 ,9.1428e+03 ,6.0955e+03 ,3.0476e+03 ,2.3031e+02 /) - kbo(:, 2,40,16) = (/ & - &1.4768e+04 ,1.1076e+04 ,7.3840e+03 ,3.6920e+03 ,2.8879e+02 /) - kbo(:, 3,40,16) = (/ & - &1.7391e+04 ,1.3044e+04 ,8.6959e+03 ,4.3483e+03 ,3.5253e+02 /) - kbo(:, 4,40,16) = (/ & - &2.0001e+04 ,1.5001e+04 ,1.0001e+04 ,5.0007e+03 ,4.2055e+02 /) - kbo(:, 5,40,16) = (/ & - &2.2559e+04 ,1.6919e+04 ,1.1281e+04 ,5.6404e+03 ,4.9160e+02 /) - kbo(:, 1,41,16) = (/ & - &1.1918e+04 ,8.9381e+03 ,5.9590e+03 ,2.9794e+03 ,2.1766e+02 /) - kbo(:, 2,41,16) = (/ & - &1.4546e+04 ,1.0910e+04 ,7.2239e+03 ,3.6364e+03 ,2.7473e+02 /) - kbo(:, 3,41,16) = (/ & - &1.7237e+04 ,1.2927e+04 ,8.6187e+03 ,4.3092e+03 ,3.3421e+02 /) - kbo(:, 4,41,16) = (/ & - &1.9925e+04 ,1.4942e+04 ,9.9613e+03 ,4.9808e+03 ,4.0468e+02 /) - kbo(:, 5,41,16) = (/ & - &2.2566e+04 ,1.6925e+04 ,1.1282e+04 ,5.6408e+03 ,4.7546e+02 /) - kbo(:, 1,42,16) = (/ & - &1.1611e+04 ,8.7088e+03 ,5.8053e+03 ,2.9027e+03 ,2.0505e+02 /) - kbo(:, 2,42,16) = (/ & - &1.4284e+04 ,1.0639e+04 ,7.1417e+03 ,3.5709e+03 ,2.6066e+02 /) - kbo(:, 3,42,16) = (/ & - &1.7038e+04 ,1.2778e+04 ,8.5196e+03 ,4.2591e+03 ,3.2228e+02 /) - kbo(:, 4,42,16) = (/ & - &1.9799e+04 ,1.4850e+04 ,9.8997e+03 ,4.9502e+03 ,3.8865e+02 /) - kbo(:, 5,42,16) = (/ & - &2.2525e+04 ,1.6894e+04 ,1.1262e+04 ,5.6311e+03 ,4.5874e+02 /) - kbo(:, 1,43,16) = (/ & - &1.1239e+04 ,8.4296e+03 ,5.6199e+03 ,2.8098e+03 ,1.8981e+02 /) - kbo(:, 2,43,16) = (/ & - &1.3966e+04 ,1.0473e+04 ,6.9839e+03 ,3.4914e+03 ,2.4348e+02 /) - kbo(:, 3,43,16) = (/ & - &1.6803e+04 ,1.2602e+04 ,8.4011e+03 ,4.2005e+03 ,3.0350e+02 /) - kbo(:, 4,43,16) = (/ & - &1.9668e+04 ,1.4751e+04 ,9.8339e+03 ,4.9166e+03 ,3.6865e+02 /) - kbo(:, 5,43,16) = (/ & - &2.2506e+04 ,1.6879e+04 ,1.1254e+04 ,5.6261e+03 ,4.3789e+02 /) - kbo(:, 1,44,16) = (/ & - &1.0825e+04 ,8.1186e+03 ,5.4125e+03 ,2.7064e+03 ,1.7391e+02 /) - kbo(:, 2,44,16) = (/ & - &1.3603e+04 ,1.0202e+04 ,6.8014e+03 ,3.4006e+03 ,2.2526e+02 /) - kbo(:, 3,44,16) = (/ & - &1.6530e+04 ,1.2398e+04 ,8.2649e+03 ,4.1327e+03 ,2.8337e+02 /) - kbo(:, 4,44,16) = (/ & - &1.9511e+04 ,1.4634e+04 ,9.7557e+03 ,4.8778e+03 ,3.4703e+02 /) - kbo(:, 5,44,16) = (/ & - &2.2482e+04 ,1.6861e+04 ,1.1241e+04 ,5.6203e+03 ,4.1512e+02 /) - kbo(:, 1,45,16) = (/ & - &1.0398e+04 ,7.7989e+03 ,5.1994e+03 ,2.5997e+03 ,1.5876e+02 /) - kbo(:, 2,45,16) = (/ & - &1.3207e+04 ,9.9052e+03 ,6.6032e+03 ,3.3018e+03 ,2.0761e+02 /) - kbo(:, 3,45,16) = (/ & - &1.6220e+04 ,1.2165e+04 ,8.1095e+03 ,4.0543e+03 ,2.6368e+02 /) - kbo(:, 4,45,16) = (/ & - &1.9318e+04 ,1.4390e+04 ,9.6588e+03 ,4.8297e+03 ,3.2574e+02 /) - kbo(:, 5,45,16) = (/ & - &2.2424e+04 ,1.6818e+04 ,1.1212e+04 ,5.6061e+03 ,3.9259e+02 /) - kbo(:, 1,46,16) = (/ & - &9.9189e+03 ,7.4400e+03 ,4.9600e+03 ,2.4797e+03 ,1.4342e+02 /) - kbo(:, 2,46,16) = (/ & - &1.2731e+04 ,9.5482e+03 ,6.3653e+03 ,3.1826e+03 ,1.8954e+02 /) - kbo(:, 3,46,16) = (/ & - &1.5820e+04 ,1.1865e+04 ,7.9099e+03 ,3.9548e+03 ,2.4324e+02 /) - kbo(:, 4,46,16) = (/ & - &1.9036e+04 ,1.4277e+04 ,9.5173e+03 ,4.7590e+03 ,3.0340e+02 /) - kbo(:, 5,46,16) = (/ & - &2.2283e+04 ,1.6712e+04 ,1.1068e+04 ,5.5708e+03 ,3.6873e+02 /) - kbo(:, 1,47,16) = (/ & - &9.3465e+03 ,7.0098e+03 ,4.6733e+03 ,2.3366e+03 ,1.2741e+02 /) - kbo(:, 2,47,16) = (/ & - &1.2131e+04 ,9.0979e+03 ,6.0653e+03 ,3.0325e+03 ,1.7033e+02 /) - kbo(:, 3,47,16) = (/ & - &1.5279e+04 ,1.1459e+04 ,7.6395e+03 ,3.8199e+03 ,2.2121e+02 /) - kbo(:, 4,47,16) = (/ & - &1.8609e+04 ,1.3956e+04 ,9.3042e+03 ,4.6522e+03 ,2.7888e+02 /) - kbo(:, 5,47,16) = (/ & - &2.2011e+04 ,1.6508e+04 ,1.1006e+04 ,5.5025e+03 ,3.4244e+02 /) - kbo(:, 1,48,16) = (/ & - &8.7925e+03 ,6.5945e+03 ,4.3966e+03 ,2.1981e+03 ,1.1262e+02 /) - kbo(:, 2,48,16) = (/ & - &1.1529e+04 ,8.6468e+03 ,5.7644e+03 ,2.8824e+03 ,1.5232e+02 /) - kbo(:, 3,48,16) = (/ & - &1.4702e+04 ,1.1027e+04 ,7.3513e+03 ,3.6755e+03 ,2.0009e+02 /) - kbo(:, 4,48,16) = (/ & - &1.8139e+04 ,1.3604e+04 ,9.0700e+03 ,4.5350e+03 ,2.5528e+02 /) - kbo(:, 5,48,16) = (/ & - &2.1696e+04 ,1.6272e+04 ,1.0846e+04 ,5.4236e+03 ,3.1666e+02 /) - kbo(:, 1,49,16) = (/ & - &8.2532e+03 ,6.1899e+03 ,4.1262e+03 ,2.0633e+03 ,9.9158e+01 /) - kbo(:, 2,49,16) = (/ & - &1.0925e+04 ,8.1939e+03 ,5.4625e+03 ,2.7312e+03 ,1.3556e+02 /) - kbo(:, 3,49,16) = (/ & - &1.4098e+04 ,1.0574e+04 ,7.0499e+03 ,3.5250e+03 ,1.8015e+02 /) - kbo(:, 4,49,16) = (/ & - &1.7628e+04 ,1.3221e+04 ,8.8139e+03 ,4.4071e+03 ,2.3258e+02 /) - kbo(:, 5,49,16) = (/ & - &2.1334e+04 ,1.6000e+04 ,1.0668e+04 ,5.3338e+03 ,2.8877e+02 /) - kbo(:, 1,50,16) = (/ & - &7.7886e+03 ,5.8414e+03 ,3.8943e+03 ,1.9471e+03 ,8.7562e+01 /) - kbo(:, 2,50,16) = (/ & - &1.0399e+04 ,7.7996e+03 ,5.1995e+03 ,2.6000e+03 ,1.2099e+02 /) - kbo(:, 3,50,16) = (/ & - &1.3554e+04 ,1.0165e+04 ,6.7769e+03 ,3.3882e+03 ,1.6257e+02 /) - kbo(:, 4,50,16) = (/ & - &1.7158e+04 ,1.2869e+04 ,8.5791e+03 ,4.2889e+03 ,2.1215e+02 /) - kbo(:, 5,50,16) = (/ & - &2.1011e+04 ,1.5758e+04 ,1.0505e+04 ,5.2531e+03 ,2.6885e+02 /) - kbo(:, 1,51,16) = (/ & - &7.3653e+03 ,5.5240e+03 ,3.6827e+03 ,1.8412e+03 ,7.7231e+01 /) - kbo(:, 2,51,16) = (/ & - &9.9189e+03 ,7.4392e+03 ,4.9594e+03 ,2.4660e+03 ,1.0798e+02 /) - kbo(:, 3,51,16) = (/ & - &1.3047e+04 ,9.7852e+03 ,6.5235e+03 ,3.2615e+03 ,1.4656e+02 /) - kbo(:, 4,51,16) = (/ & - &1.6702e+04 ,1.2527e+04 ,8.3510e+03 ,4.1752e+03 ,1.9328e+02 /) - kbo(:, 5,51,16) = (/ & - &2.0693e+04 ,1.5520e+04 ,1.0347e+04 ,5.1734e+03 ,2.4760e+02 /) - kbo(:, 1,52,16) = (/ & - &6.9562e+03 ,5.2172e+03 ,3.4778e+03 ,1.7389e+03 ,6.7762e+01 /) - kbo(:, 2,52,16) = (/ & - &9.4563e+03 ,7.0922e+03 ,4.7284e+03 ,2.3642e+03 ,9.6034e+01 /) - kbo(:, 3,52,16) = (/ & - &1.2544e+04 ,9.4081e+03 ,6.2721e+03 ,3.1358e+03 ,1.3163e+02 /) - kbo(:, 4,52,16) = (/ & - &1.6228e+04 ,1.2171e+04 ,8.1139e+03 ,4.0563e+03 ,1.7544e+02 /) - kbo(:, 5,52,16) = (/ & - &2.0214e+04 ,1.5266e+04 ,1.0177e+04 ,5.0897e+03 ,2.2714e+02 /) - kbo(:, 1,53,16) = (/ & - &6.5707e+03 ,4.8896e+03 ,3.2854e+03 ,1.6428e+03 ,5.9086e+01 /) - kbo(:, 2,53,16) = (/ & - &9.0178e+03 ,6.7633e+03 ,4.5088e+03 ,2.2544e+03 ,8.4973e+01 /) - kbo(:, 3,53,16) = (/ & - &1.2063e+04 ,9.0476e+03 ,6.0317e+03 ,3.0159e+03 ,1.1770e+02 /) - kbo(:, 4,53,16) = (/ & - &1.5755e+04 ,1.1816e+04 ,7.8772e+03 ,3.9386e+03 ,1.5858e+02 /) - kbo(:, 5,53,16) = (/ & - &1.9999e+04 ,1.4999e+04 ,9.9995e+03 ,5.0000e+03 ,2.0751e+02 /) - kbo(:, 1,54,16) = (/ & - &6.2721e+03 ,4.7041e+03 ,3.1362e+03 ,1.5681e+03 ,5.1875e+01 /) - kbo(:, 2,54,16) = (/ & - &8.6741e+03 ,6.5056e+03 ,4.3370e+03 ,2.1682e+03 ,7.5628e+01 /) - kbo(:, 3,54,16) = (/ & - &1.1700e+04 ,8.7748e+03 ,5.8499e+03 ,2.9249e+03 ,1.0596e+02 /) - kbo(:, 4,54,16) = (/ & - &1.5404e+04 ,1.1553e+04 ,7.7020e+03 ,3.8510e+03 ,1.4404e+02 /) - kbo(:, 5,54,16) = (/ & - &1.9752e+04 ,1.4814e+04 ,9.8758e+03 ,4.9379e+03 ,1.9030e+02 /) - kbo(:, 1,55,16) = (/ & - &6.0231e+03 ,4.5173e+03 ,3.0116e+03 ,1.5058e+03 ,4.5583e+01 /) - kbo(:, 2,55,16) = (/ & - &8.3823e+03 ,6.2868e+03 ,4.1912e+03 ,2.0956e+03 ,6.7362e+01 /) - kbo(:, 3,55,16) = (/ & - &1.1398e+04 ,8.5488e+03 ,5.6992e+03 ,2.8496e+03 ,9.5542e+01 /) - kbo(:, 4,55,16) = (/ & - &1.5124e+04 ,1.1343e+04 ,7.5617e+03 ,3.7808e+03 ,1.3099e+02 /) - kbo(:, 5,55,16) = (/ & - &1.9568e+04 ,1.4676e+04 ,9.7841e+03 ,4.8920e+03 ,1.7464e+02 /) - kbo(:, 1,56,16) = (/ & - &5.7989e+03 ,4.3492e+03 ,2.8995e+03 ,1.4497e+03 ,3.9828e+01 /) - kbo(:, 2,56,16) = (/ & - &8.1232e+03 ,6.0924e+03 ,4.0616e+03 ,2.0308e+03 ,5.9729e+01 /) - kbo(:, 3,56,16) = (/ & - &1.1139e+04 ,8.3546e+03 ,5.5697e+03 ,2.7849e+03 ,8.5801e+01 /) - kbo(:, 4,56,16) = (/ & - &1.4890e+04 ,1.1167e+04 ,7.4448e+03 ,3.7224e+03 ,1.1874e+02 /) - kbo(:, 5,56,16) = (/ & - &1.9429e+04 ,1.4572e+04 ,9.7148e+03 ,4.8574e+03 ,1.5988e+02 /) - kbo(:, 1,57,16) = (/ & - &5.6021e+03 ,4.2016e+03 ,2.8010e+03 ,1.4005e+03 ,3.4593e+01 /) - kbo(:, 2,57,16) = (/ & - &7.9032e+03 ,5.9274e+03 ,3.9516e+03 ,1.9758e+03 ,5.2766e+01 /) - kbo(:, 3,57,16) = (/ & - &1.0919e+04 ,8.1889e+03 ,5.4593e+03 ,2.7295e+03 ,7.6784e+01 /) - kbo(:, 4,57,16) = (/ & - &1.4709e+04 ,1.1031e+04 ,7.3542e+03 ,3.6771e+03 ,1.0741e+02 /) - kbo(:, 5,57,16) = (/ & - &1.9344e+04 ,1.4508e+04 ,9.6719e+03 ,4.8359e+03 ,1.4582e+02 /) - kbo(:, 1,58,16) = (/ & - &2.6461e+03 ,2.2784e+03 ,1.7829e+03 ,1.0638e+03 ,3.0084e+01 /) - kbo(:, 2,58,16) = (/ & - &3.7547e+03 ,3.2329e+03 ,2.5298e+03 ,1.5309e+03 ,4.6706e+01 /) - kbo(:, 3,58,16) = (/ & - &5.2182e+03 ,4.4930e+03 ,3.5159e+03 ,2.1276e+03 ,6.8855e+01 /) - kbo(:, 4,58,16) = (/ & - &7.0852e+03 ,6.1006e+03 ,4.7738e+03 ,2.8889e+03 ,9.7411e+01 /) - kbo(:, 5,58,16) = (/ & - &9.3867e+03 ,8.0822e+03 ,6.3244e+03 ,3.8273e+03 ,1.3335e+02 /) - kbo(:, 1,59,16) = (/ & - &2.6519e+03 ,2.2918e+03 ,1.8023e+03 ,1.0985e+03 ,2.8399e+01 /) - kbo(:, 2,59,16) = (/ & - &3.7709e+03 ,3.2589e+03 ,2.5629e+03 ,1.5620e+03 ,4.4429e+01 /) - kbo(:, 3,59,16) = (/ & - &5.2534e+03 ,4.5401e+03 ,3.5704e+03 ,2.1761e+03 ,6.5844e+01 /) - kbo(:, 4,59,16) = (/ & - &7.1555e+03 ,6.1839e+03 ,4.8632e+03 ,2.9640e+03 ,9.3608e+01 /) - kbo(:, 5,59,16) = (/ & - &9.5069e+03 ,8.2160e+03 ,6.4613e+03 ,3.9381e+03 ,1.2854e+02 /) - -! The array KAO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level below 100~ mb. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. The second index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The third index -! runs over the g-channel (1 to 16). - - kao_mn2o( 1, :, 1) = (/ & - & 1.28178e-05 , 1.55472e-05 , 1.88578e-05 , 2.28735e-05 , 2.77442e-05 , & - & 3.36520e-05 , 4.08179e-05 , 4.95098e-05 , 6.00525e-05 , 7.28401e-05 , & - & 8.83508e-05 , 1.07164e-04 , 1.29984e-04 , 1.57663e-04 , 1.91236e-04 , & - & 2.31958e-04 , 2.81352e-04 , 3.41263e-04 , 4.13932e-04 /) - kao_mn2o( 2, :, 1) = (/ & - & 1.00725e-01 , 1.04470e-01 , 1.08355e-01 , 1.12384e-01 , 1.16563e-01 , & - & 1.20898e-01 , 1.25394e-01 , 1.30057e-01 , 1.34893e-01 , 1.39909e-01 , & - & 1.45112e-01 , 1.50508e-01 , 1.56104e-01 , 1.61909e-01 , 1.67930e-01 , & - & 1.74175e-01 , 1.80652e-01 , 1.87369e-01 , 1.94337e-01 /) - kao_mn2o( 3, :, 1) = (/ & - & 1.94143e-01 , 1.97380e-01 , 2.00670e-01 , 2.04016e-01 , 2.07417e-01 , & - & 2.10875e-01 , 2.14390e-01 , 2.17964e-01 , 2.21598e-01 , 2.25292e-01 , & - & 2.29048e-01 , 2.32867e-01 , 2.36749e-01 , 2.40696e-01 , 2.44708e-01 , & - & 2.48788e-01 , 2.52936e-01 , 2.57152e-01 , 2.61439e-01 /) - kao_mn2o( 4, :, 1) = (/ & - & 2.98127e-01 , 3.00016e-01 , 3.01916e-01 , 3.03829e-01 , 3.05754e-01 , & - & 3.07691e-01 , 3.09640e-01 , 3.11601e-01 , 3.13575e-01 , 3.15562e-01 , & - & 3.17561e-01 , 3.19572e-01 , 3.21597e-01 , 3.23634e-01 , 3.25684e-01 , & - & 3.27748e-01 , 3.29824e-01 , 3.31913e-01 , 3.34016e-01 /) - kao_mn2o( 5, :, 1) = (/ & - & 4.45029e-01 , 4.45243e-01 , 4.45458e-01 , 4.45673e-01 , 4.45889e-01 , & - & 4.46104e-01 , 4.46319e-01 , 4.46535e-01 , 4.46750e-01 , 4.46966e-01 , & - & 4.47182e-01 , 4.47398e-01 , 4.47614e-01 , 4.47830e-01 , 4.48046e-01 , & - & 4.48262e-01 , 4.48479e-01 , 4.48695e-01 , 4.48912e-01 /) - kao_mn2o( 6, :, 1) = (/ & - & 7.15677e-01 , 7.14564e-01 , 7.13452e-01 , 7.12342e-01 , 7.11234e-01 , & - & 7.10127e-01 , 7.09022e-01 , 7.07919e-01 , 7.06818e-01 , 7.05718e-01 , & - & 7.04620e-01 , 7.03524e-01 , 7.02429e-01 , 7.01336e-01 , 7.00245e-01 , & - & 6.99156e-01 , 6.98068e-01 , 6.96982e-01 , 6.95898e-01 /) - kao_mn2o( 7, :, 1) = (/ & - & 9.89605e-01 , 9.85128e-01 , 9.80671e-01 , 9.76234e-01 , 9.71817e-01 , & - & 9.67421e-01 , 9.63044e-01 , 9.58687e-01 , 9.54350e-01 , 9.50032e-01 , & - & 9.45734e-01 , 9.41455e-01 , 9.37196e-01 , 9.32956e-01 , 9.28735e-01 , & - & 9.24533e-01 , 9.20350e-01 , 9.16187e-01 , 9.12042e-01 /) - kao_mn2o( 8, :, 1) = (/ & - & 1.12229e+00 , 1.11502e+00 , 1.10779e+00 , 1.10061e+00 , 1.09348e+00 , & - & 1.08639e+00 , 1.07935e+00 , 1.07235e+00 , 1.06540e+00 , 1.05850e+00 , & - & 1.05164e+00 , 1.04482e+00 , 1.03805e+00 , 1.03132e+00 , 1.02464e+00 , & - & 1.01799e+00 , 1.01140e+00 , 1.00484e+00 , 9.98328e-01 /) - kao_mn2o( 9, :, 1) = (/ & - & 7.20959e-01 , 7.22839e-01 , 7.24723e-01 , 7.26612e-01 , 7.28506e-01 , & - & 7.30405e-01 , 7.32309e-01 , 7.34218e-01 , 7.36132e-01 , 7.38051e-01 , & - & 7.39975e-01 , 7.41904e-01 , 7.43838e-01 , 7.45777e-01 , 7.47721e-01 , & - & 7.49670e-01 , 7.51624e-01 , 7.53584e-01 , 7.55548e-01 /) - kao_mn2o( 1, :, 2) = (/ & - & 1.62152e-03 , 1.81627e-03 , 2.03443e-03 , 2.27878e-03 , 2.55248e-03 , & - & 2.85906e-03 , 3.20245e-03 , 3.58710e-03 , 4.01794e-03 , 4.50053e-03 , & - & 5.04109e-03 , 5.64657e-03 , 6.32477e-03 , 7.08444e-03 , 7.93534e-03 , & - & 8.88845e-03 , 9.95603e-03 , 1.11518e-02 , 1.24913e-02 /) - kao_mn2o( 2, :, 2) = (/ & - & 3.73716e-01 , 3.72491e-01 , 3.71271e-01 , 3.70054e-01 , 3.68841e-01 , & - & 3.67633e-01 , 3.66428e-01 , 3.65227e-01 , 3.64031e-01 , 3.62838e-01 , & - & 3.61649e-01 , 3.60464e-01 , 3.59283e-01 , 3.58106e-01 , 3.56932e-01 , & - & 3.55763e-01 , 3.54597e-01 , 3.53435e-01 , 3.52277e-01 /) - kao_mn2o( 3, :, 2) = (/ & - & 5.46240e-01 , 5.42972e-01 , 5.39724e-01 , 5.36495e-01 , 5.33285e-01 , & - & 5.30095e-01 , 5.26923e-01 , 5.23771e-01 , 5.20637e-01 , 5.17523e-01 , & - & 5.14426e-01 , 5.11349e-01 , 5.08290e-01 , 5.05249e-01 , 5.02226e-01 , & - & 4.99221e-01 , 4.96235e-01 , 4.93266e-01 , 4.90315e-01 /) - kao_mn2o( 4, :, 2) = (/ & - & 8.35399e-01 , 8.36766e-01 , 8.38135e-01 , 8.39507e-01 , 8.40880e-01 , & - & 8.42256e-01 , 8.43635e-01 , 8.45015e-01 , 8.46398e-01 , 8.47783e-01 , & - & 8.49170e-01 , 8.50559e-01 , 8.51951e-01 , 8.53345e-01 , 8.54742e-01 , & - & 8.56140e-01 , 8.57541e-01 , 8.58944e-01 , 8.60350e-01 /) - kao_mn2o( 5, :, 2) = (/ & - & 1.04433e+00 , 1.04864e+00 , 1.05297e+00 , 1.05731e+00 , 1.06168e+00 , & - & 1.06606e+00 , 1.07046e+00 , 1.07488e+00 , 1.07932e+00 , 1.08377e+00 , & - & 1.08824e+00 , 1.09274e+00 , 1.09725e+00 , 1.10178e+00 , 1.10632e+00 , & - & 1.11089e+00 , 1.11547e+00 , 1.12008e+00 , 1.12470e+00 /) - kao_mn2o( 6, :, 2) = (/ & - & 1.22341e+00 , 1.22885e+00 , 1.23431e+00 , 1.23980e+00 , 1.24531e+00 , & - & 1.25084e+00 , 1.25640e+00 , 1.26199e+00 , 1.26760e+00 , 1.27323e+00 , & - & 1.27889e+00 , 1.28458e+00 , 1.29029e+00 , 1.29602e+00 , 1.30178e+00 , & - & 1.30757e+00 , 1.31338e+00 , 1.31922e+00 , 1.32508e+00 /) - kao_mn2o( 7, :, 2) = (/ & - & 1.67595e+00 , 1.68296e+00 , 1.69000e+00 , 1.69707e+00 , 1.70417e+00 , & - & 1.71130e+00 , 1.71846e+00 , 1.72565e+00 , 1.73287e+00 , 1.74012e+00 , & - & 1.74740e+00 , 1.75471e+00 , 1.76206e+00 , 1.76943e+00 , 1.77683e+00 , & - & 1.78426e+00 , 1.79173e+00 , 1.79922e+00 , 1.80675e+00 /) - kao_mn2o( 8, :, 2) = (/ & - & 2.76890e+00 , 2.76981e+00 , 2.77072e+00 , 2.77163e+00 , 2.77254e+00 , & - & 2.77345e+00 , 2.77436e+00 , 2.77527e+00 , 2.77618e+00 , 2.77709e+00 , & - & 2.77800e+00 , 2.77891e+00 , 2.77982e+00 , 2.78074e+00 , 2.78165e+00 , & - & 2.78256e+00 , 2.78348e+00 , 2.78439e+00 , 2.78530e+00 /) - kao_mn2o( 9, :, 2) = (/ & - & 8.00944e-01 , 7.95531e-01 , 7.90155e-01 , 7.84815e-01 , 7.79511e-01 , & - & 7.74243e-01 , 7.69011e-01 , 7.63813e-01 , 7.58652e-01 , 7.53525e-01 , & - & 7.48432e-01 , 7.43374e-01 , 7.38350e-01 , 7.33360e-01 , 7.28404e-01 , & - & 7.23482e-01 , 7.18592e-01 , 7.13736e-01 , 7.08912e-01 /) - kao_mn2o( 1, :, 3) = (/ & - & 5.26578e-02 , 5.59000e-02 , 5.93419e-02 , 6.29957e-02 , 6.68744e-02 , & - & 7.09920e-02 , 7.53631e-02 , 8.00034e-02 , 8.49294e-02 , 9.01586e-02 , & - & 9.57099e-02 , 1.01603e-01 , 1.07859e-01 , 1.14500e-01 , 1.21550e-01 , & - & 1.29034e-01 , 1.36979e-01 , 1.45413e-01 , 1.54366e-01 /) - kao_mn2o( 2, :, 3) = (/ & - & 8.18393e-01 , 8.20623e-01 , 8.22860e-01 , 8.25103e-01 , 8.27352e-01 , & - & 8.29608e-01 , 8.31869e-01 , 8.34137e-01 , 8.36410e-01 , 8.38690e-01 , & - & 8.40976e-01 , 8.43269e-01 , 8.45567e-01 , 8.47872e-01 , 8.50183e-01 , & - & 8.52501e-01 , 8.54825e-01 , 8.57155e-01 , 8.59491e-01 /) - kao_mn2o( 3, :, 3) = (/ & - & 1.02454e+00 , 1.03210e+00 , 1.03972e+00 , 1.04740e+00 , 1.05514e+00 , & - & 1.06293e+00 , 1.07077e+00 , 1.07868e+00 , 1.08665e+00 , 1.09467e+00 , & - & 1.10275e+00 , 1.11089e+00 , 1.11910e+00 , 1.12736e+00 , 1.13568e+00 , & - & 1.14407e+00 , 1.15252e+00 , 1.16103e+00 , 1.16960e+00 /) - kao_mn2o( 4, :, 3) = (/ & - & 1.11755e+00 , 1.12348e+00 , 1.12944e+00 , 1.13543e+00 , 1.14146e+00 , & - & 1.14752e+00 , 1.15360e+00 , 1.15972e+00 , 1.16588e+00 , 1.17206e+00 , & - & 1.17828e+00 , 1.18453e+00 , 1.19082e+00 , 1.19714e+00 , 1.20349e+00 , & - & 1.20988e+00 , 1.21630e+00 , 1.22275e+00 , 1.22924e+00 /) - kao_mn2o( 5, :, 3) = (/ & - & 1.41993e+00 , 1.42353e+00 , 1.42713e+00 , 1.43074e+00 , 1.43436e+00 , & - & 1.43799e+00 , 1.44163e+00 , 1.44528e+00 , 1.44894e+00 , 1.45261e+00 , & - & 1.45628e+00 , 1.45997e+00 , 1.46367e+00 , 1.46737e+00 , 1.47108e+00 , & - & 1.47481e+00 , 1.47854e+00 , 1.48228e+00 , 1.48603e+00 /) - kao_mn2o( 6, :, 3) = (/ & - & 1.37725e+00 , 1.38029e+00 , 1.38334e+00 , 1.38640e+00 , 1.38947e+00 , & - & 1.39254e+00 , 1.39562e+00 , 1.39870e+00 , 1.40179e+00 , 1.40489e+00 , & - & 1.40800e+00 , 1.41111e+00 , 1.41423e+00 , 1.41736e+00 , 1.42049e+00 , & - & 1.42363e+00 , 1.42678e+00 , 1.42993e+00 , 1.43309e+00 /) - kao_mn2o( 7, :, 3) = (/ & - & 1.34579e+00 , 1.34584e+00 , 1.34589e+00 , 1.34594e+00 , 1.34599e+00 , & - & 1.34603e+00 , 1.34608e+00 , 1.34613e+00 , 1.34618e+00 , 1.34623e+00 , & - & 1.34627e+00 , 1.34632e+00 , 1.34637e+00 , 1.34642e+00 , 1.34647e+00 , & - & 1.34651e+00 , 1.34656e+00 , 1.34661e+00 , 1.34666e+00 /) - kao_mn2o( 8, :, 3) = (/ & - & 9.15268e-01 , 9.12779e-01 , 9.10298e-01 , 9.07823e-01 , 9.05355e-01 , & - & 9.02893e-01 , 9.00438e-01 , 8.97990e-01 , 8.95549e-01 , 8.93114e-01 , & - & 8.90686e-01 , 8.88264e-01 , 8.85849e-01 , 8.83441e-01 , 8.81039e-01 , & - & 8.78644e-01 , 8.76255e-01 , 8.73873e-01 , 8.71497e-01 /) - kao_mn2o( 9, :, 3) = (/ & - & 1.12514e+00 , 1.13523e+00 , 1.14541e+00 , 1.15568e+00 , 1.16604e+00 , & - & 1.17649e+00 , 1.18704e+00 , 1.19768e+00 , 1.20841e+00 , 1.21925e+00 , & - & 1.23018e+00 , 1.24121e+00 , 1.25233e+00 , 1.26356e+00 , 1.27489e+00 , & - & 1.28632e+00 , 1.29785e+00 , 1.30948e+00 , 1.32122e+00 /) - kao_mn2o( 1, :, 4) = (/ & - & 4.65135e-01 , 4.69677e-01 , 4.74264e-01 , 4.78895e-01 , 4.83572e-01 , & - & 4.88294e-01 , 4.93063e-01 , 4.97878e-01 , 5.02740e-01 , 5.07649e-01 , & - & 5.12607e-01 , 5.17613e-01 , 5.22667e-01 , 5.27771e-01 , 5.32925e-01 , & - & 5.38130e-01 , 5.43385e-01 , 5.48691e-01 , 5.54049e-01 /) - kao_mn2o( 2, :, 4) = (/ & - & 9.71592e-01 , 9.74472e-01 , 9.77360e-01 , 9.80257e-01 , 9.83163e-01 , & - & 9.86077e-01 , 9.89000e-01 , 9.91931e-01 , 9.94871e-01 , 9.97820e-01 , & - & 1.00078e+00 , 1.00374e+00 , 1.00672e+00 , 1.00970e+00 , 1.01270e+00 , & - & 1.01570e+00 , 1.01871e+00 , 1.02173e+00 , 1.02476e+00 /) - kao_mn2o( 3, :, 4) = (/ & - & 1.48090e+00 , 1.48238e+00 , 1.48385e+00 , 1.48532e+00 , 1.48680e+00 , & - & 1.48828e+00 , 1.48976e+00 , 1.49124e+00 , 1.49272e+00 , 1.49420e+00 , & - & 1.49569e+00 , 1.49717e+00 , 1.49866e+00 , 1.50015e+00 , 1.50164e+00 , & - & 1.50313e+00 , 1.50463e+00 , 1.50612e+00 , 1.50762e+00 /) - kao_mn2o( 4, :, 4) = (/ & - & 1.50599e+00 , 1.50541e+00 , 1.50483e+00 , 1.50426e+00 , 1.50368e+00 , & - & 1.50310e+00 , 1.50252e+00 , 1.50195e+00 , 1.50137e+00 , 1.50079e+00 , & - & 1.50022e+00 , 1.49964e+00 , 1.49906e+00 , 1.49849e+00 , 1.49791e+00 , & - & 1.49734e+00 , 1.49676e+00 , 1.49619e+00 , 1.49561e+00 /) - kao_mn2o( 5, :, 4) = (/ & - & 1.25396e+00 , 1.25230e+00 , 1.25065e+00 , 1.24900e+00 , 1.24735e+00 , & - & 1.24570e+00 , 1.24405e+00 , 1.24241e+00 , 1.24077e+00 , 1.23913e+00 , & - & 1.23749e+00 , 1.23586e+00 , 1.23423e+00 , 1.23260e+00 , 1.23097e+00 , & - & 1.22934e+00 , 1.22772e+00 , 1.22610e+00 , 1.22448e+00 /) - kao_mn2o( 6, :, 4) = (/ & - & 1.27104e+00 , 1.26416e+00 , 1.25731e+00 , 1.25050e+00 , 1.24373e+00 , & - & 1.23700e+00 , 1.23030e+00 , 1.22364e+00 , 1.21701e+00 , 1.21043e+00 , & - & 1.20387e+00 , 1.19735e+00 , 1.19087e+00 , 1.18442e+00 , 1.17801e+00 , & - & 1.17163e+00 , 1.16529e+00 , 1.15898e+00 , 1.15270e+00 /) - kao_mn2o( 7, :, 4) = (/ & - & 9.57877e-01 , 9.49712e-01 , 9.41617e-01 , 9.33591e-01 , 9.25633e-01 , & - & 9.17743e-01 , 9.09920e-01 , 9.02164e-01 , 8.94473e-01 , 8.86849e-01 , & - & 8.79289e-01 , 8.71794e-01 , 8.64363e-01 , 8.56995e-01 , 8.49690e-01 , & - & 8.42447e-01 , 8.35266e-01 , 8.28147e-01 , 8.21087e-01 /) - kao_mn2o( 8, :, 4) = (/ & - & 4.75787e-01 , 4.77208e-01 , 4.78633e-01 , 4.80063e-01 , 4.81496e-01 , & - & 4.82934e-01 , 4.84377e-01 , 4.85823e-01 , 4.87274e-01 , 4.88730e-01 , & - & 4.90189e-01 , 4.91653e-01 , 4.93122e-01 , 4.94595e-01 , 4.96072e-01 , & - & 4.97553e-01 , 4.99039e-01 , 5.00530e-01 , 5.02025e-01 /) - kao_mn2o( 9, :, 4) = (/ & - & 2.42533e+00 , 2.41357e+00 , 2.40188e+00 , 2.39024e+00 , 2.37866e+00 , & - & 2.36713e+00 , 2.35566e+00 , 2.34425e+00 , 2.33289e+00 , 2.32158e+00 , & - & 2.31033e+00 , 2.29914e+00 , 2.28800e+00 , 2.27691e+00 , 2.26588e+00 , & - & 2.25490e+00 , 2.24397e+00 , 2.23310e+00 , 2.22228e+00 /) - kao_mn2o( 1, :, 5) = (/ & - & 1.53885e+00 , 1.53590e+00 , 1.53297e+00 , 1.53004e+00 , 1.52711e+00 , & - & 1.52419e+00 , 1.52128e+00 , 1.51837e+00 , 1.51547e+00 , 1.51257e+00 , & - & 1.50968e+00 , 1.50679e+00 , 1.50391e+00 , 1.50104e+00 , 1.49817e+00 , & - & 1.49530e+00 , 1.49245e+00 , 1.48959e+00 , 1.48675e+00 /) - kao_mn2o( 2, :, 5) = (/ & - & 1.83368e+00 , 1.83530e+00 , 1.83692e+00 , 1.83854e+00 , 1.84016e+00 , & - & 1.84178e+00 , 1.84340e+00 , 1.84503e+00 , 1.84665e+00 , 1.84828e+00 , & - & 1.84991e+00 , 1.85154e+00 , 1.85317e+00 , 1.85480e+00 , 1.85644e+00 , & - & 1.85807e+00 , 1.85971e+00 , 1.86135e+00 , 1.86299e+00 /) - kao_mn2o( 3, :, 5) = (/ & - & 1.49593e+00 , 1.49279e+00 , 1.48965e+00 , 1.48652e+00 , 1.48340e+00 , & - & 1.48028e+00 , 1.47717e+00 , 1.47406e+00 , 1.47096e+00 , 1.46787e+00 , & - & 1.46479e+00 , 1.46171e+00 , 1.45863e+00 , 1.45557e+00 , 1.45251e+00 , & - & 1.44946e+00 , 1.44641e+00 , 1.44337e+00 , 1.44033e+00 /) - kao_mn2o( 4, :, 5) = (/ & - & 1.40048e+00 , 1.39228e+00 , 1.38413e+00 , 1.37603e+00 , 1.36798e+00 , & - & 1.35997e+00 , 1.35201e+00 , 1.34410e+00 , 1.33623e+00 , 1.32841e+00 , & - & 1.32064e+00 , 1.31291e+00 , 1.30522e+00 , 1.29758e+00 , 1.28999e+00 , & - & 1.28244e+00 , 1.27493e+00 , 1.26747e+00 , 1.26005e+00 /) - kao_mn2o( 5, :, 5) = (/ & - & 1.22253e+00 , 1.21202e+00 , 1.20160e+00 , 1.19126e+00 , 1.18102e+00 , & - & 1.17087e+00 , 1.16080e+00 , 1.15082e+00 , 1.14092e+00 , 1.13111e+00 , & - & 1.12139e+00 , 1.11174e+00 , 1.10219e+00 , 1.09271e+00 , 1.08331e+00 , & - & 1.07400e+00 , 1.06476e+00 , 1.05561e+00 , 1.04653e+00 /) - kao_mn2o( 6, :, 5) = (/ & - & 1.07930e+00 , 1.06998e+00 , 1.06075e+00 , 1.05159e+00 , 1.04251e+00 , & - & 1.03352e+00 , 1.02459e+00 , 1.01575e+00 , 1.00698e+00 , 9.98291e-01 , & - & 9.89674e-01 , 9.81131e-01 , 9.72663e-01 , 9.64267e-01 , 9.55944e-01 , & - & 9.47692e-01 , 9.39512e-01 , 9.31402e-01 , 9.23363e-01 /) - kao_mn2o( 7, :, 5) = (/ & - & 7.87066e-01 , 7.82767e-01 , 7.78490e-01 , 7.74237e-01 , 7.70008e-01 , & - & 7.65801e-01 , 7.61617e-01 , 7.57457e-01 , 7.53319e-01 , 7.49203e-01 , & - & 7.45110e-01 , 7.41040e-01 , 7.36991e-01 , 7.32965e-01 , 7.28961e-01 , & - & 7.24979e-01 , 7.21018e-01 , 7.17079e-01 , 7.13161e-01 /) - kao_mn2o( 8, :, 5) = (/ & - & 3.83362e-01 , 3.84405e-01 , 3.85452e-01 , 3.86501e-01 , 3.87552e-01 , & - & 3.88607e-01 , 3.89665e-01 , 3.90725e-01 , 3.91788e-01 , 3.92855e-01 , & - & 3.93924e-01 , 3.94996e-01 , 3.96071e-01 , 3.97149e-01 , 3.98229e-01 , & - & 3.99313e-01 , 4.00400e-01 , 4.01489e-01 , 4.02582e-01 /) - kao_mn2o( 9, :, 5) = (/ & - & 8.97278e-01 , 8.92873e-01 , 8.88490e-01 , 8.84128e-01 , 8.79787e-01 , & - & 8.75468e-01 , 8.71170e-01 , 8.66893e-01 , 8.62637e-01 , 8.58402e-01 , & - & 8.54187e-01 , 8.49994e-01 , 8.45821e-01 , 8.41668e-01 , 8.37536e-01 , & - & 8.33424e-01 , 8.29333e-01 , 8.25261e-01 , 8.21209e-01 /) - kao_mn2o( 1, :, 6) = (/ & - & 1.83809e+00 , 1.84036e+00 , 1.84264e+00 , 1.84491e+00 , 1.84720e+00 , & - & 1.84948e+00 , 1.85177e+00 , 1.85406e+00 , 1.85635e+00 , 1.85864e+00 , & - & 1.86094e+00 , 1.86324e+00 , 1.86555e+00 , 1.86785e+00 , 1.87016e+00 , & - & 1.87247e+00 , 1.87479e+00 , 1.87711e+00 , 1.87943e+00 /) - kao_mn2o( 2, :, 6) = (/ & - & 1.82624e+00 , 1.81564e+00 , 1.80510e+00 , 1.79463e+00 , 1.78421e+00 , & - & 1.77386e+00 , 1.76356e+00 , 1.75333e+00 , 1.74315e+00 , 1.73304e+00 , & - & 1.72298e+00 , 1.71298e+00 , 1.70304e+00 , 1.69316e+00 , 1.68333e+00 , & - & 1.67356e+00 , 1.66385e+00 , 1.65419e+00 , 1.64459e+00 /) - kao_mn2o( 3, :, 6) = (/ & - & 1.35442e+00 , 1.34174e+00 , 1.32918e+00 , 1.31673e+00 , 1.30440e+00 , & - & 1.29219e+00 , 1.28010e+00 , 1.26811e+00 , 1.25624e+00 , 1.24448e+00 , & - & 1.23283e+00 , 1.22129e+00 , 1.20985e+00 , 1.19853e+00 , 1.18731e+00 , & - & 1.17619e+00 , 1.16518e+00 , 1.15427e+00 , 1.14347e+00 /) - kao_mn2o( 4, :, 6) = (/ & - & 1.10510e+00 , 1.09473e+00 , 1.08446e+00 , 1.07429e+00 , 1.06420e+00 , & - & 1.05422e+00 , 1.04433e+00 , 1.03453e+00 , 1.02482e+00 , 1.01520e+00 , & - & 1.00568e+00 , 9.96238e-01 , 9.86890e-01 , 9.77629e-01 , 9.68455e-01 , & - & 9.59367e-01 , 9.50365e-01 , 9.41447e-01 , 9.32612e-01 /) - kao_mn2o( 5, :, 6) = (/ & - & 1.01083e+00 , 1.00221e+00 , 9.93656e-01 , 9.85178e-01 , 9.76772e-01 , & - & 9.68437e-01 , 9.60174e-01 , 9.51981e-01 , 9.43859e-01 , 9.35805e-01 , & - & 9.27821e-01 , 9.19904e-01 , 9.12055e-01 , 9.04273e-01 , 8.96557e-01 , & - & 8.88907e-01 , 8.81323e-01 , 8.73803e-01 , 8.66347e-01 /) - kao_mn2o( 6, :, 6) = (/ & - & 5.91415e-01 , 5.90427e-01 , 5.89441e-01 , 5.88457e-01 , 5.87474e-01 , & - & 5.86493e-01 , 5.85514e-01 , 5.84536e-01 , 5.83559e-01 , 5.82585e-01 , & - & 5.81612e-01 , 5.80640e-01 , 5.79671e-01 , 5.78703e-01 , 5.77736e-01 , & - & 5.76771e-01 , 5.75808e-01 , 5.74846e-01 , 5.73886e-01 /) - kao_mn2o( 7, :, 6) = (/ & - & 3.68189e-01 , 3.70029e-01 , 3.71877e-01 , 3.73735e-01 , 3.75603e-01 , & - & 3.77479e-01 , 3.79365e-01 , 3.81260e-01 , 3.83165e-01 , 3.85079e-01 , & - & 3.87003e-01 , 3.88937e-01 , 3.90880e-01 , 3.92833e-01 , 3.94795e-01 , & - & 3.96768e-01 , 3.98750e-01 , 4.00742e-01 , 4.02744e-01 /) - kao_mn2o( 8, :, 6) = (/ & - & 2.98721e-01 , 2.99932e-01 , 3.01149e-01 , 3.02370e-01 , 3.03597e-01 , & - & 3.04828e-01 , 3.06064e-01 , 3.07306e-01 , 3.08552e-01 , 3.09804e-01 , & - & 3.11060e-01 , 3.12322e-01 , 3.13589e-01 , 3.14860e-01 , 3.16138e-01 , & - & 3.17420e-01 , 3.18707e-01 , 3.20000e-01 , 3.21298e-01 /) - kao_mn2o( 9, :, 6) = (/ & - & 3.76116e-01 , 3.77276e-01 , 3.78439e-01 , 3.79606e-01 , 3.80777e-01 , & - & 3.81951e-01 , 3.83129e-01 , 3.84310e-01 , 3.85495e-01 , 3.86684e-01 , & - & 3.87876e-01 , 3.89072e-01 , 3.90272e-01 , 3.91475e-01 , 3.92682e-01 , & - & 3.93893e-01 , 3.95107e-01 , 3.96326e-01 , 3.97548e-01 /) - kao_mn2o( 1, :, 7) = (/ & - & 3.22705e+00 , 3.21966e+00 , 3.21230e+00 , 3.20494e+00 , 3.19761e+00 , & - & 3.19029e+00 , 3.18299e+00 , 3.17571e+00 , 3.16844e+00 , 3.16119e+00 , & - & 3.15395e+00 , 3.14673e+00 , 3.13953e+00 , 3.13235e+00 , 3.12518e+00 , & - & 3.11803e+00 , 3.11089e+00 , 3.10377e+00 , 3.09667e+00 /) - kao_mn2o( 2, :, 7) = (/ & - & 1.43811e+00 , 1.42367e+00 , 1.40938e+00 , 1.39522e+00 , 1.38121e+00 , & - & 1.36735e+00 , 1.35362e+00 , 1.34002e+00 , 1.32657e+00 , 1.31325e+00 , & - & 1.30006e+00 , 1.28701e+00 , 1.27408e+00 , 1.26129e+00 , 1.24862e+00 , & - & 1.23609e+00 , 1.22367e+00 , 1.21139e+00 , 1.19922e+00 /) - kao_mn2o( 3, :, 7) = (/ & - & 1.22586e+00 , 1.21639e+00 , 1.20700e+00 , 1.19767e+00 , 1.18842e+00 , & - & 1.17924e+00 , 1.17014e+00 , 1.16110e+00 , 1.15213e+00 , 1.14323e+00 , & - & 1.13440e+00 , 1.12564e+00 , 1.11695e+00 , 1.10832e+00 , 1.09976e+00 , & - & 1.09127e+00 , 1.08284e+00 , 1.07447e+00 , 1.06618e+00 /) - kao_mn2o( 4, :, 7) = (/ & - & 7.94380e-01 , 7.92795e-01 , 7.91213e-01 , 7.89634e-01 , 7.88059e-01 , & - & 7.86486e-01 , 7.84917e-01 , 7.83351e-01 , 7.81787e-01 , 7.80227e-01 , & - & 7.78671e-01 , 7.77117e-01 , 7.75566e-01 , 7.74019e-01 , 7.72474e-01 , & - & 7.70933e-01 , 7.69394e-01 , 7.67859e-01 , 7.66327e-01 /) - kao_mn2o( 5, :, 7) = (/ & - & 4.46935e-01 , 4.49760e-01 , 4.52602e-01 , 4.55462e-01 , 4.58340e-01 , & - & 4.61237e-01 , 4.64152e-01 , 4.67085e-01 , 4.70037e-01 , 4.73007e-01 , & - & 4.75996e-01 , 4.79004e-01 , 4.82031e-01 , 4.85078e-01 , 4.88143e-01 , & - & 4.91228e-01 , 4.94332e-01 , 4.97456e-01 , 5.00600e-01 /) - kao_mn2o( 6, :, 7) = (/ & - & 4.20211e-01 , 4.21711e-01 , 4.23216e-01 , 4.24726e-01 , 4.26242e-01 , & - & 4.27763e-01 , 4.29290e-01 , 4.30822e-01 , 4.32359e-01 , 4.33902e-01 , & - & 4.35450e-01 , 4.37004e-01 , 4.38564e-01 , 4.40129e-01 , 4.41700e-01 , & - & 4.43276e-01 , 4.44858e-01 , 4.46445e-01 , 4.48038e-01 /) - kao_mn2o( 7, :, 7) = (/ & - & 3.42094e-01 , 3.43589e-01 , 3.45091e-01 , 3.46600e-01 , 3.48115e-01 , & - & 3.49637e-01 , 3.51165e-01 , 3.52700e-01 , 3.54242e-01 , 3.55791e-01 , & - & 3.57346e-01 , 3.58908e-01 , 3.60477e-01 , 3.62053e-01 , 3.63636e-01 , & - & 3.65225e-01 , 3.66822e-01 , 3.68426e-01 , 3.70036e-01 /) - kao_mn2o( 8, :, 7) = (/ & - & 2.94919e-01 , 2.97460e-01 , 3.00022e-01 , 3.02606e-01 , 3.05212e-01 , & - & 3.07841e-01 , 3.10492e-01 , 3.13167e-01 , 3.15864e-01 , 3.18584e-01 , & - & 3.21328e-01 , 3.24096e-01 , 3.26887e-01 , 3.29703e-01 , 3.32543e-01 , & - & 3.35407e-01 , 3.38296e-01 , 3.41210e-01 , 3.44148e-01 /) - kao_mn2o( 9, :, 7) = (/ & - & 2.97441e-01 , 2.99207e-01 , 3.00984e-01 , 3.02772e-01 , 3.04570e-01 , & - & 3.06379e-01 , 3.08199e-01 , 3.10029e-01 , 3.11870e-01 , 3.13723e-01 , & - & 3.15586e-01 , 3.17460e-01 , 3.19345e-01 , 3.21242e-01 , 3.23150e-01 , & - & 3.25069e-01 , 3.27000e-01 , 3.28942e-01 , 3.30895e-01 /) - kao_mn2o( 1, :, 8) = (/ & - & 2.14641e+00 , 2.12585e+00 , 2.10549e+00 , 2.08532e+00 , 2.06534e+00 , & - & 2.04556e+00 , 2.02596e+00 , 2.00656e+00 , 1.98733e+00 , 1.96830e+00 , & - & 1.94944e+00 , 1.93077e+00 , 1.91227e+00 , 1.89395e+00 , 1.87581e+00 , & - & 1.85784e+00 , 1.84004e+00 , 1.82242e+00 , 1.80496e+00 /) - kao_mn2o( 2, :, 8) = (/ & - & 8.83687e-01 , 8.83170e-01 , 8.82654e-01 , 8.82137e-01 , 8.81621e-01 , & - & 8.81106e-01 , 8.80590e-01 , 8.80075e-01 , 8.79560e-01 , 8.79046e-01 , & - & 8.78531e-01 , 8.78017e-01 , 8.77504e-01 , 8.76990e-01 , 8.76477e-01 , & - & 8.75965e-01 , 8.75452e-01 , 8.74940e-01 , 8.74428e-01 /) - kao_mn2o( 3, :, 8) = (/ & - & 4.49840e-01 , 4.52683e-01 , 4.55543e-01 , 4.58421e-01 , 4.61318e-01 , & - & 4.64233e-01 , 4.67166e-01 , 4.70118e-01 , 4.73088e-01 , 4.76078e-01 , & - & 4.79086e-01 , 4.82113e-01 , 4.85159e-01 , 4.88225e-01 , 4.91310e-01 , & - & 4.94414e-01 , 4.97538e-01 , 5.00682e-01 , 5.03845e-01 /) - kao_mn2o( 4, :, 8) = (/ & - & 3.92292e-01 , 3.93574e-01 , 3.94861e-01 , 3.96151e-01 , 3.97446e-01 , & - & 3.98746e-01 , 4.00049e-01 , 4.01357e-01 , 4.02669e-01 , 4.03985e-01 , & - & 4.05306e-01 , 4.06630e-01 , 4.07960e-01 , 4.09293e-01 , 4.10631e-01 , & - & 4.11973e-01 , 4.13320e-01 , 4.14671e-01 , 4.16027e-01 /) - kao_mn2o( 5, :, 8) = (/ & - & 3.38920e-01 , 3.41151e-01 , 3.43397e-01 , 3.45658e-01 , 3.47934e-01 , & - & 3.50225e-01 , 3.52531e-01 , 3.54852e-01 , 3.57189e-01 , 3.59541e-01 , & - & 3.61908e-01 , 3.64291e-01 , 3.66689e-01 , 3.69104e-01 , 3.71534e-01 , & - & 3.73980e-01 , 3.76443e-01 , 3.78921e-01 , 3.81416e-01 /) - kao_mn2o( 6, :, 8) = (/ & - & 3.01673e-01 , 3.04752e-01 , 3.07863e-01 , 3.11005e-01 , 3.14180e-01 , & - & 3.17387e-01 , 3.20626e-01 , 3.23899e-01 , 3.27205e-01 , 3.30545e-01 , & - & 3.33919e-01 , 3.37328e-01 , 3.40771e-01 , 3.44249e-01 , 3.47763e-01 , & - & 3.51313e-01 , 3.54899e-01 , 3.58521e-01 , 3.62181e-01 /) - kao_mn2o( 7, :, 8) = (/ & - & 2.99381e-01 , 3.02431e-01 , 3.05512e-01 , 3.08624e-01 , 3.11768e-01 , & - & 3.14945e-01 , 3.18153e-01 , 3.21394e-01 , 3.24668e-01 , 3.27976e-01 , & - & 3.31317e-01 , 3.34693e-01 , 3.38102e-01 , 3.41547e-01 , 3.45026e-01 , & - & 3.48541e-01 , 3.52092e-01 , 3.55679e-01 , 3.59302e-01 /) - kao_mn2o( 8, :, 8) = (/ & - & 2.87559e-01 , 2.89153e-01 , 2.90756e-01 , 2.92367e-01 , 2.93987e-01 , & - & 2.95617e-01 , 2.97255e-01 , 2.98902e-01 , 3.00559e-01 , 3.02225e-01 , & - & 3.03899e-01 , 3.05584e-01 , 3.07277e-01 , 3.08980e-01 , 3.10693e-01 , & - & 3.12414e-01 , 3.14146e-01 , 3.15887e-01 , 3.17638e-01 /) - kao_mn2o( 9, :, 8) = (/ & - & 2.96238e-01 , 2.97588e-01 , 2.98945e-01 , 3.00309e-01 , 3.01678e-01 , & - & 3.03054e-01 , 3.04436e-01 , 3.05824e-01 , 3.07219e-01 , 3.08620e-01 , & - & 3.10027e-01 , 3.11441e-01 , 3.12861e-01 , 3.14288e-01 , 3.15721e-01 , & - & 3.17161e-01 , 3.18607e-01 , 3.20060e-01 , 3.21520e-01 /) - kao_mn2o( 1, :, 9) = (/ & - & 1.56483e+00 , 1.55792e+00 , 1.55105e+00 , 1.54420e+00 , 1.53739e+00 , & - & 1.53060e+00 , 1.52384e+00 , 1.51712e+00 , 1.51042e+00 , 1.50376e+00 , & - & 1.49712e+00 , 1.49051e+00 , 1.48393e+00 , 1.47738e+00 , 1.47086e+00 , & - & 1.46437e+00 , 1.45791e+00 , 1.45147e+00 , 1.44507e+00 /) - kao_mn2o( 2, :, 9) = (/ & - & 4.09526e-01 , 4.10301e-01 , 4.11078e-01 , 4.11857e-01 , 4.12637e-01 , & - & 4.13418e-01 , 4.14201e-01 , 4.14986e-01 , 4.15771e-01 , 4.16559e-01 , & - & 4.17348e-01 , 4.18138e-01 , 4.18930e-01 , 4.19723e-01 , 4.20518e-01 , & - & 4.21315e-01 , 4.22112e-01 , 4.22912e-01 , 4.23713e-01 /) - kao_mn2o( 3, :, 9) = (/ & - & 3.35672e-01 , 3.38982e-01 , 3.42326e-01 , 3.45702e-01 , 3.49111e-01 , & - & 3.52554e-01 , 3.56031e-01 , 3.59543e-01 , 3.63089e-01 , 3.66670e-01 , & - & 3.70286e-01 , 3.73938e-01 , 3.77626e-01 , 3.81350e-01 , 3.85111e-01 , & - & 3.88909e-01 , 3.92745e-01 , 3.96618e-01 , 4.00530e-01 /) - kao_mn2o( 4, :, 9) = (/ & - & 3.19130e-01 , 3.23028e-01 , 3.26973e-01 , 3.30966e-01 , 3.35008e-01 , & - & 3.39100e-01 , 3.43241e-01 , 3.47433e-01 , 3.51676e-01 , 3.55971e-01 , & - & 3.60319e-01 , 3.64719e-01 , 3.69173e-01 , 3.73682e-01 , 3.78246e-01 , & - & 3.82865e-01 , 3.87541e-01 , 3.92274e-01 , 3.97065e-01 /) - kao_mn2o( 5, :, 9) = (/ & - & 3.04385e-01 , 3.07155e-01 , 3.09949e-01 , 3.12770e-01 , 3.15616e-01 , & - & 3.18488e-01 , 3.21386e-01 , 3.24310e-01 , 3.27261e-01 , 3.30239e-01 , & - & 3.33244e-01 , 3.36276e-01 , 3.39336e-01 , 3.42424e-01 , 3.45540e-01 , & - & 3.48684e-01 , 3.51857e-01 , 3.55059e-01 , 3.58289e-01 /) - kao_mn2o( 6, :, 9) = (/ & - & 2.98789e-01 , 3.00996e-01 , 3.03220e-01 , 3.05460e-01 , 3.07717e-01 , & - & 3.09990e-01 , 3.12281e-01 , 3.14588e-01 , 3.16912e-01 , 3.19253e-01 , & - & 3.21612e-01 , 3.23988e-01 , 3.26382e-01 , 3.28793e-01 , 3.31222e-01 , & - & 3.33669e-01 , 3.36134e-01 , 3.38618e-01 , 3.41119e-01 /) - kao_mn2o( 7, :, 9) = (/ & - & 3.08712e-01 , 3.10491e-01 , 3.12281e-01 , 3.14080e-01 , 3.15890e-01 , & - & 3.17710e-01 , 3.19541e-01 , 3.21382e-01 , 3.23234e-01 , 3.25097e-01 , & - & 3.26970e-01 , 3.28854e-01 , 3.30749e-01 , 3.32655e-01 , 3.34572e-01 , & - & 3.36500e-01 , 3.38439e-01 , 3.40390e-01 , 3.42351e-01 /) - kao_mn2o( 8, :, 9) = (/ & - & 3.10571e-01 , 3.12262e-01 , 3.13961e-01 , 3.15670e-01 , 3.17388e-01 , & - & 3.19115e-01 , 3.20852e-01 , 3.22598e-01 , 3.24354e-01 , 3.26120e-01 , & - & 3.27895e-01 , 3.29679e-01 , 3.31474e-01 , 3.33278e-01 , 3.35092e-01 , & - & 3.36915e-01 , 3.38749e-01 , 3.40593e-01 , 3.42447e-01 /) - kao_mn2o( 9, :, 9) = (/ & - & 3.16436e-01 , 3.18200e-01 , 3.19974e-01 , 3.21759e-01 , 3.23553e-01 , & - & 3.25357e-01 , 3.27172e-01 , 3.28996e-01 , 3.30831e-01 , 3.32675e-01 , & - & 3.34530e-01 , 3.36396e-01 , 3.38272e-01 , 3.40158e-01 , 3.42055e-01 , & - & 3.43962e-01 , 3.45880e-01 , 3.47809e-01 , 3.49749e-01 /) - kao_mn2o( 1, :,10) = (/ & - & 7.68616e-01 , 7.63263e-01 , 7.57948e-01 , 7.52669e-01 , 7.47428e-01 , & - & 7.42223e-01 , 7.37054e-01 , 7.31921e-01 , 7.26824e-01 , 7.21762e-01 , & - & 7.16736e-01 , 7.11744e-01 , 7.06788e-01 , 7.01866e-01 , 6.96978e-01 , & - & 6.92124e-01 , 6.87304e-01 , 6.82517e-01 , 6.77764e-01 /) - kao_mn2o( 2, :,10) = (/ & - & 4.97271e-01 , 5.10054e-01 , 5.23165e-01 , 5.36614e-01 , 5.50408e-01 , & - & 5.64556e-01 , 5.79069e-01 , 5.93954e-01 , 6.09222e-01 , 6.24883e-01 , & - & 6.40946e-01 , 6.57422e-01 , 6.74321e-01 , 6.91655e-01 , 7.09435e-01 , & - & 7.27671e-01 , 7.46377e-01 , 7.65563e-01 , 7.85242e-01 /) - kao_mn2o( 3, :,10) = (/ & - & 2.44443e-01 , 2.47096e-01 , 2.49778e-01 , 2.52489e-01 , 2.55229e-01 , & - & 2.57999e-01 , 2.60799e-01 , 2.63630e-01 , 2.66491e-01 , 2.69383e-01 , & - & 2.72307e-01 , 2.75262e-01 , 2.78250e-01 , 2.81269e-01 , 2.84322e-01 , & - & 2.87408e-01 , 2.90527e-01 , 2.93680e-01 , 2.96868e-01 /) - kao_mn2o( 4, :,10) = (/ & - & 2.01964e-01 , 2.02869e-01 , 2.03777e-01 , 2.04690e-01 , 2.05606e-01 , & - & 2.06527e-01 , 2.07452e-01 , 2.08381e-01 , 2.09314e-01 , 2.10251e-01 , & - & 2.11193e-01 , 2.12139e-01 , 2.13089e-01 , 2.14043e-01 , 2.15002e-01 , & - & 2.15964e-01 , 2.16932e-01 , 2.17903e-01 , 2.18879e-01 /) - kao_mn2o( 5, :,10) = (/ & - & 2.56972e-01 , 2.56837e-01 , 2.56702e-01 , 2.56567e-01 , 2.56432e-01 , & - & 2.56297e-01 , 2.56162e-01 , 2.56027e-01 , 2.55893e-01 , 2.55758e-01 , & - & 2.55624e-01 , 2.55489e-01 , 2.55355e-01 , 2.55220e-01 , 2.55086e-01 , & - & 2.54952e-01 , 2.54818e-01 , 2.54684e-01 , 2.54550e-01 /) - kao_mn2o( 6, :,10) = (/ & - & 2.57322e-01 , 2.57187e-01 , 2.57052e-01 , 2.56917e-01 , 2.56782e-01 , & - & 2.56647e-01 , 2.56512e-01 , 2.56377e-01 , 2.56243e-01 , 2.56108e-01 , & - & 2.55974e-01 , 2.55839e-01 , 2.55705e-01 , 2.55570e-01 , 2.55436e-01 , & - & 2.55302e-01 , 2.55168e-01 , 2.55034e-01 , 2.54900e-01 /) - kao_mn2o( 7, :,10) = (/ & - & 2.56551e-01 , 2.56421e-01 , 2.56291e-01 , 2.56161e-01 , 2.56030e-01 , & - & 2.55900e-01 , 2.55770e-01 , 2.55640e-01 , 2.55511e-01 , 2.55381e-01 , & - & 2.55251e-01 , 2.55121e-01 , 2.54992e-01 , 2.54862e-01 , 2.54733e-01 , & - & 2.54603e-01 , 2.54474e-01 , 2.54345e-01 , 2.54215e-01 /) - kao_mn2o( 8, :,10) = (/ & - & 2.73629e-01 , 2.73460e-01 , 2.73291e-01 , 2.73122e-01 , 2.72953e-01 , & - & 2.72784e-01 , 2.72615e-01 , 2.72447e-01 , 2.72279e-01 , 2.72110e-01 , & - & 2.71942e-01 , 2.71774e-01 , 2.71606e-01 , 2.71438e-01 , 2.71270e-01 , & - & 2.71102e-01 , 2.70935e-01 , 2.70767e-01 , 2.70600e-01 /) - kao_mn2o( 9, :,10) = (/ & - & 2.57294e-01 , 2.57149e-01 , 2.57004e-01 , 2.56860e-01 , 2.56715e-01 , & - & 2.56570e-01 , 2.56426e-01 , 2.56282e-01 , 2.56137e-01 , 2.55993e-01 , & - & 2.55849e-01 , 2.55705e-01 , 2.55561e-01 , 2.55417e-01 , 2.55273e-01 , & - & 2.55129e-01 , 2.54986e-01 , 2.54842e-01 , 2.54698e-01 /) - kao_mn2o( 1, :,11) = (/ & - & 6.91062e-01 , 6.84151e-01 , 6.77309e-01 , 6.70535e-01 , 6.63829e-01 , & - & 6.57190e-01 , 6.50617e-01 , 6.44111e-01 , 6.37669e-01 , 6.31292e-01 , & - & 6.24978e-01 , 6.18728e-01 , 6.12540e-01 , 6.06414e-01 , 6.00349e-01 , & - & 5.94345e-01 , 5.88401e-01 , 5.82517e-01 , 5.76691e-01 /) - kao_mn2o( 2, :,11) = (/ & - & 1.98698e-01 , 2.01182e-01 , 2.03698e-01 , 2.06244e-01 , 2.08823e-01 , & - & 2.11433e-01 , 2.14077e-01 , 2.16753e-01 , 2.19463e-01 , 2.22207e-01 , & - & 2.24985e-01 , 2.27798e-01 , 2.30646e-01 , 2.33529e-01 , 2.36449e-01 , & - & 2.39405e-01 , 2.42398e-01 , 2.45429e-01 , 2.48497e-01 /) - kao_mn2o( 3, :,11) = (/ & - & 2.11950e-01 , 2.13560e-01 , 2.15184e-01 , 2.16819e-01 , 2.18467e-01 , & - & 2.20127e-01 , 2.21800e-01 , 2.23486e-01 , 2.25185e-01 , 2.26896e-01 , & - & 2.28621e-01 , 2.30358e-01 , 2.32109e-01 , 2.33873e-01 , 2.35651e-01 , & - & 2.37442e-01 , 2.39247e-01 , 2.41065e-01 , 2.42897e-01 /) - kao_mn2o( 4, :,11) = (/ & - & 3.14210e-01 , 3.13143e-01 , 3.12080e-01 , 3.11021e-01 , 3.09965e-01 , & - & 3.08913e-01 , 3.07864e-01 , 3.06819e-01 , 3.05777e-01 , 3.04739e-01 , & - & 3.03705e-01 , 3.02674e-01 , 3.01646e-01 , 3.00622e-01 , 2.99602e-01 , & - & 2.98584e-01 , 2.97571e-01 , 2.96561e-01 , 2.95554e-01 /) - kao_mn2o( 5, :,11) = (/ & - & 3.13536e-01 , 3.12459e-01 , 3.11386e-01 , 3.10316e-01 , 3.09250e-01 , & - & 3.08188e-01 , 3.07129e-01 , 3.06074e-01 , 3.05022e-01 , 3.03974e-01 , & - & 3.02930e-01 , 3.01889e-01 , 3.00852e-01 , 2.99819e-01 , 2.98789e-01 , & - & 2.97762e-01 , 2.96739e-01 , 2.95720e-01 , 2.94704e-01 /) - kao_mn2o( 6, :,11) = (/ & - & 3.13215e-01 , 3.12123e-01 , 3.11034e-01 , 3.09949e-01 , 3.08867e-01 , & - & 3.07790e-01 , 3.06716e-01 , 3.05646e-01 , 3.04579e-01 , 3.03517e-01 , & - & 3.02458e-01 , 3.01403e-01 , 3.00351e-01 , 2.99303e-01 , 2.98259e-01 , & - & 2.97219e-01 , 2.96182e-01 , 2.95148e-01 , 2.94119e-01 /) - kao_mn2o( 7, :,11) = (/ & - & 3.14236e-01 , 3.13123e-01 , 3.12014e-01 , 3.10908e-01 , 3.09806e-01 , & - & 3.08709e-01 , 3.07615e-01 , 3.06525e-01 , 3.05439e-01 , 3.04357e-01 , & - & 3.03278e-01 , 3.02204e-01 , 3.01133e-01 , 3.00066e-01 , 2.99003e-01 , & - & 2.97944e-01 , 2.96888e-01 , 2.95836e-01 , 2.94788e-01 /) - kao_mn2o( 8, :,11) = (/ & - & 2.97453e-01 , 2.96420e-01 , 2.95391e-01 , 2.94366e-01 , 2.93344e-01 , & - & 2.92325e-01 , 2.91311e-01 , 2.90299e-01 , 2.89291e-01 , 2.88287e-01 , & - & 2.87286e-01 , 2.86289e-01 , 2.85295e-01 , 2.84304e-01 , 2.83317e-01 , & - & 2.82334e-01 , 2.81354e-01 , 2.80377e-01 , 2.79404e-01 /) - kao_mn2o( 9, :,11) = (/ & - & 3.12694e-01 , 3.11622e-01 , 3.10554e-01 , 3.09489e-01 , 3.08428e-01 , & - & 3.07370e-01 , 3.06316e-01 , 3.05266e-01 , 3.04220e-01 , 3.03177e-01 , & - & 3.02137e-01 , 3.01101e-01 , 3.00069e-01 , 2.99040e-01 , 2.98015e-01 , & - & 2.96993e-01 , 2.95975e-01 , 2.94960e-01 , 2.93949e-01 /) - kao_mn2o( 1, :,12) = (/ & - & 5.30796e-01 , 5.50444e-01 , 5.70818e-01 , 5.91947e-01 , 6.13857e-01 , & - & 6.36579e-01 , 6.60142e-01 , 6.84577e-01 , 7.09916e-01 , 7.36194e-01 , & - & 7.63444e-01 , 7.91702e-01 , 8.21007e-01 , 8.51396e-01 , 8.82910e-01 , & - & 9.15591e-01 , 9.49481e-01 , 9.84626e-01 , 1.02107e+00 /) - kao_mn2o( 2, :,12) = (/ & - & 1.38469e-01 , 1.40959e-01 , 1.43493e-01 , 1.46073e-01 , 1.48699e-01 , & - & 1.51373e-01 , 1.54094e-01 , 1.56865e-01 , 1.59685e-01 , 1.62556e-01 , & - & 1.65478e-01 , 1.68454e-01 , 1.71482e-01 , 1.74565e-01 , 1.77704e-01 , & - & 1.80899e-01 , 1.84151e-01 , 1.87462e-01 , 1.90833e-01 /) - kao_mn2o( 3, :,12) = (/ & - & 1.50741e-01 , 1.50855e-01 , 1.50969e-01 , 1.51084e-01 , 1.51198e-01 , & - & 1.51313e-01 , 1.51427e-01 , 1.51542e-01 , 1.51657e-01 , 1.51772e-01 , & - & 1.51887e-01 , 1.52002e-01 , 1.52117e-01 , 1.52233e-01 , 1.52348e-01 , & - & 1.52463e-01 , 1.52579e-01 , 1.52695e-01 , 1.52810e-01 /) - kao_mn2o( 4, :,12) = (/ & - & 1.80444e-01 , 1.79944e-01 , 1.79445e-01 , 1.78948e-01 , 1.78452e-01 , & - & 1.77958e-01 , 1.77465e-01 , 1.76973e-01 , 1.76483e-01 , 1.75994e-01 , & - & 1.75506e-01 , 1.75020e-01 , 1.74535e-01 , 1.74051e-01 , 1.73569e-01 , & - & 1.73088e-01 , 1.72609e-01 , 1.72131e-01 , 1.71654e-01 /) - kao_mn2o( 5, :,12) = (/ & - & 1.80595e-01 , 1.80033e-01 , 1.79474e-01 , 1.78916e-01 , 1.78359e-01 , & - & 1.77805e-01 , 1.77252e-01 , 1.76701e-01 , 1.76152e-01 , 1.75604e-01 , & - & 1.75058e-01 , 1.74514e-01 , 1.73971e-01 , 1.73430e-01 , 1.72891e-01 , & - & 1.72354e-01 , 1.71818e-01 , 1.71284e-01 , 1.70751e-01 /) - kao_mn2o( 6, :,12) = (/ & - & 1.79904e-01 , 1.79254e-01 , 1.78607e-01 , 1.77962e-01 , 1.77320e-01 , & - & 1.76680e-01 , 1.76042e-01 , 1.75406e-01 , 1.74773e-01 , 1.74142e-01 , & - & 1.73513e-01 , 1.72887e-01 , 1.72262e-01 , 1.71640e-01 , 1.71021e-01 , & - & 1.70403e-01 , 1.69788e-01 , 1.69175e-01 , 1.68564e-01 /) - kao_mn2o( 7, :,12) = (/ & - & 1.78712e-01 , 1.77868e-01 , 1.77027e-01 , 1.76190e-01 , 1.75357e-01 , & - & 1.74528e-01 , 1.73703e-01 , 1.72882e-01 , 1.72064e-01 , 1.71251e-01 , & - & 1.70441e-01 , 1.69636e-01 , 1.68834e-01 , 1.68036e-01 , 1.67241e-01 , & - & 1.66451e-01 , 1.65664e-01 , 1.64881e-01 , 1.64101e-01 /) - kao_mn2o( 8, :,12) = (/ & - & 1.72346e-01 , 1.70873e-01 , 1.69413e-01 , 1.67965e-01 , 1.66530e-01 , & - & 1.65107e-01 , 1.63696e-01 , 1.62297e-01 , 1.60910e-01 , 1.59535e-01 , & - & 1.58171e-01 , 1.56819e-01 , 1.55479e-01 , 1.54150e-01 , 1.52833e-01 , & - & 1.51527e-01 , 1.50232e-01 , 1.48948e-01 , 1.47675e-01 /) - kao_mn2o( 9, :,12) = (/ & - & 1.80517e-01 , 1.79951e-01 , 1.79386e-01 , 1.78823e-01 , 1.78262e-01 , & - & 1.77702e-01 , 1.77144e-01 , 1.76588e-01 , 1.76034e-01 , 1.75481e-01 , & - & 1.74931e-01 , 1.74382e-01 , 1.73834e-01 , 1.73289e-01 , 1.72745e-01 , & - & 1.72202e-01 , 1.71662e-01 , 1.71123e-01 , 1.70586e-01 /) - kao_mn2o( 1, :,13) = (/ & - & 2.41966e-01 , 2.50534e-01 , 2.59406e-01 , 2.68591e-01 , 2.78102e-01 , & - & 2.87950e-01 , 2.98146e-01 , 3.08704e-01 , 3.19635e-01 , 3.30953e-01 , & - & 3.42672e-01 , 3.54806e-01 , 3.67370e-01 , 3.80379e-01 , 3.93848e-01 , & - & 4.07794e-01 , 4.22234e-01 , 4.37186e-01 , 4.52667e-01 /) - kao_mn2o( 2, :,13) = (/ & - & 1.54385e-01 , 1.54015e-01 , 1.53646e-01 , 1.53279e-01 , 1.52912e-01 , & - & 1.52545e-01 , 1.52180e-01 , 1.51816e-01 , 1.51452e-01 , 1.51089e-01 , & - & 1.50728e-01 , 1.50367e-01 , 1.50007e-01 , 1.49647e-01 , 1.49289e-01 , & - & 1.48932e-01 , 1.48575e-01 , 1.48219e-01 , 1.47864e-01 /) - kao_mn2o( 3, :,13) = (/ & - & 2.00518e-01 , 1.94901e-01 , 1.89442e-01 , 1.84136e-01 , 1.78978e-01 , & - & 1.73965e-01 , 1.69092e-01 , 1.64356e-01 , 1.59752e-01 , 1.55278e-01 , & - & 1.50928e-01 , 1.46701e-01 , 1.42592e-01 , 1.38598e-01 , 1.34715e-01 , & - & 1.30942e-01 , 1.27274e-01 , 1.23709e-01 , 1.20244e-01 /) - kao_mn2o( 4, :,13) = (/ & - & 2.03974e-01 , 1.98258e-01 , 1.92703e-01 , 1.87302e-01 , 1.82054e-01 , & - & 1.76952e-01 , 1.71993e-01 , 1.67173e-01 , 1.62489e-01 , 1.57935e-01 , & - & 1.53509e-01 , 1.49207e-01 , 1.45026e-01 , 1.40962e-01 , 1.37012e-01 , & - & 1.33172e-01 , 1.29440e-01 , 1.25813e-01 , 1.22287e-01 /) - kao_mn2o( 5, :,13) = (/ & - & 2.09410e-01 , 2.03543e-01 , 1.97841e-01 , 1.92298e-01 , 1.86911e-01 , & - & 1.81674e-01 , 1.76585e-01 , 1.71637e-01 , 1.66829e-01 , 1.62155e-01 , & - & 1.57612e-01 , 1.53196e-01 , 1.48904e-01 , 1.44733e-01 , 1.40678e-01 , & - & 1.36736e-01 , 1.32906e-01 , 1.29182e-01 , 1.25563e-01 /) - kao_mn2o( 6, :,13) = (/ & - & 2.19808e-01 , 2.13643e-01 , 2.07651e-01 , 2.01827e-01 , 1.96166e-01 , & - & 1.90664e-01 , 1.85317e-01 , 1.80119e-01 , 1.75067e-01 , 1.70157e-01 , & - & 1.65385e-01 , 1.60746e-01 , 1.56238e-01 , 1.51856e-01 , 1.47596e-01 , & - & 1.43457e-01 , 1.39433e-01 , 1.35523e-01 , 1.31722e-01 /) - kao_mn2o( 7, :,13) = (/ & - & 2.47074e-01 , 2.40127e-01 , 2.33375e-01 , 2.26813e-01 , 2.20436e-01 , & - & 2.14238e-01 , 2.08215e-01 , 2.02360e-01 , 1.96671e-01 , 1.91141e-01 , & - & 1.85767e-01 , 1.80544e-01 , 1.75467e-01 , 1.70534e-01 , 1.65739e-01 , & - & 1.61079e-01 , 1.56550e-01 , 1.52148e-01 , 1.47870e-01 /) - kao_mn2o( 8, :,13) = (/ & - & 2.55282e-01 , 2.48105e-01 , 2.41130e-01 , 2.34350e-01 , 2.27762e-01 , & - & 2.21358e-01 , 2.15135e-01 , 2.09086e-01 , 2.03208e-01 , 1.97495e-01 , & - & 1.91942e-01 , 1.86546e-01 , 1.81301e-01 , 1.76204e-01 , 1.71250e-01 , & - & 1.66435e-01 , 1.61756e-01 , 1.57208e-01 , 1.52788e-01 /) - kao_mn2o( 9, :,13) = (/ & - & 2.09991e-01 , 2.04103e-01 , 1.98380e-01 , 1.92818e-01 , 1.87411e-01 , & - & 1.82156e-01 , 1.77048e-01 , 1.72084e-01 , 1.67259e-01 , 1.62569e-01 , & - & 1.58010e-01 , 1.53580e-01 , 1.49273e-01 , 1.45087e-01 , 1.41019e-01 , & - & 1.37065e-01 , 1.33222e-01 , 1.29486e-01 , 1.25855e-01 /) - kao_mn2o( 1, :,14) = (/ & - & 9.08340e-02 , 9.50421e-02 , 9.94452e-02 , 1.04052e-01 , 1.08873e-01 , & - & 1.13917e-01 , 1.19194e-01 , 1.24716e-01 , 1.30494e-01 , 1.36540e-01 , & - & 1.42865e-01 , 1.49484e-01 , 1.56409e-01 , 1.63655e-01 , 1.71237e-01 , & - & 1.79170e-01 , 1.87471e-01 , 1.96156e-01 , 2.05243e-01 /) - kao_mn2o( 2, :,14) = (/ & - & 3.36945e-02 , 3.45144e-02 , 3.53542e-02 , 3.62144e-02 , 3.70956e-02 , & - & 3.79982e-02 , 3.89228e-02 , 3.98698e-02 , 4.08399e-02 , 4.18336e-02 , & - & 4.28515e-02 , 4.38942e-02 , 4.49622e-02 , 4.60562e-02 , 4.71769e-02 , & - & 4.83248e-02 , 4.95006e-02 , 5.07051e-02 , 5.19388e-02 /) - kao_mn2o( 3, :,14) = (/ & - & 9.11678e-02 , 8.85761e-02 , 8.60580e-02 , 8.36116e-02 , 8.12347e-02 , & - & 7.89253e-02 , 7.66817e-02 , 7.45017e-02 , 7.23838e-02 , 7.03261e-02 , & - & 6.83269e-02 , 6.63845e-02 , 6.44973e-02 , 6.26638e-02 , 6.08824e-02 , & - & 5.91516e-02 , 5.74700e-02 , 5.58363e-02 , 5.42490e-02 /) - kao_mn2o( 4, :,14) = (/ & - & 8.43999e-02 , 8.20004e-02 , 7.96692e-02 , 7.74042e-02 , 7.52037e-02 , & - & 7.30656e-02 , 7.09884e-02 , 6.89702e-02 , 6.70094e-02 , 6.51044e-02 , & - & 6.32535e-02 , 6.14552e-02 , 5.97081e-02 , 5.80106e-02 , 5.63614e-02 , & - & 5.47590e-02 , 5.32022e-02 , 5.16897e-02 , 5.02202e-02 /) - kao_mn2o( 5, :,14) = (/ & - & 7.41279e-02 , 7.20196e-02 , 6.99712e-02 , 6.79811e-02 , 6.60476e-02 , & - & 6.41691e-02 , 6.23440e-02 , 6.05708e-02 , 5.88481e-02 , 5.71743e-02 , & - & 5.55482e-02 , 5.39683e-02 , 5.24334e-02 , 5.09421e-02 , 4.94932e-02 , & - & 4.80855e-02 , 4.67179e-02 , 4.53891e-02 , 4.40982e-02 /) - kao_mn2o( 6, :,14) = (/ & - & 5.66805e-02 , 5.50676e-02 , 5.35006e-02 , 5.19782e-02 , 5.04991e-02 , & - & 4.90621e-02 , 4.76659e-02 , 4.63096e-02 , 4.49918e-02 , 4.37115e-02 , & - & 4.24676e-02 , 4.12592e-02 , 4.00851e-02 , 3.89444e-02 , 3.78362e-02 , & - & 3.67595e-02 , 3.57135e-02 , 3.46972e-02 , 3.37099e-02 /) - kao_mn2o( 7, :,14) = (/ & - & 1.23018e-02 , 1.19517e-02 , 1.16116e-02 , 1.12811e-02 , 1.09601e-02 , & - & 1.06482e-02 , 1.03452e-02 , 1.00508e-02 , 9.76474e-03 , 9.48685e-03 , & - & 9.21687e-03 , 8.95458e-03 , 8.69974e-03 , 8.45216e-03 , 8.21163e-03 , & - & 7.97794e-03 , 7.75091e-03 , 7.53033e-03 , 7.31603e-03 /) - kao_mn2o( 8, :,14) = (/ & - & 3.22403e-07 , 3.75986e-07 , 4.38475e-07 , 5.11349e-07 , 5.96335e-07 , & - & 6.95446e-07 , 8.11028e-07 , 9.45821e-07 , 1.10302e-06 , 1.28634e-06 , & - & 1.50012e-06 , 1.74944e-06 , 2.04020e-06 , 2.37928e-06 , 2.77472e-06 , & - & 3.23587e-06 , 3.77367e-06 , 4.40085e-06 , 5.13227e-06 /) - kao_mn2o( 9, :,14) = (/ & - & 7.33052e-02 , 7.12199e-02 , 6.91939e-02 , 6.72255e-02 , 6.53131e-02 , & - & 6.34551e-02 , 6.16500e-02 , 5.98963e-02 , 5.81924e-02 , 5.65370e-02 , & - & 5.49287e-02 , 5.33661e-02 , 5.18480e-02 , 5.03730e-02 , 4.89401e-02 , & - & 4.75479e-02 , 4.61953e-02 , 4.48811e-02 , 4.36044e-02 /) - kao_mn2o( 1, :,15) = (/ & - & 8.80247e-02 , 9.01793e-02 , 9.23868e-02 , 9.46482e-02 , 9.69650e-02 , & - & 9.93385e-02 , 1.01770e-01 , 1.04261e-01 , 1.06813e-01 , 1.09428e-01 , & - & 1.12107e-01 , 1.14851e-01 , 1.17662e-01 , 1.20542e-01 , 1.23493e-01 , & - & 1.26516e-01 , 1.29613e-01 , 1.32785e-01 , 1.36036e-01 /) - kao_mn2o( 2, :,15) = (/ & - & 3.89107e-07 , 4.53768e-07 , 5.29173e-07 , 6.17109e-07 , 7.19658e-07 , & - & 8.39248e-07 , 9.78710e-07 , 1.14135e-06 , 1.33101e-06 , 1.55220e-06 , & - & 1.81013e-06 , 2.11094e-06 , 2.46172e-06 , 2.87080e-06 , 3.34786e-06 , & - & 3.90420e-06 , 4.55298e-06 , 5.30958e-06 , 6.19190e-06 /) - kao_mn2o( 3, :,15) = (/ & - & 3.86537e-07 , 4.50763e-07 , 5.25662e-07 , 6.13006e-07 , 7.14863e-07 , & - & 8.33644e-07 , 9.72162e-07 , 1.13370e-06 , 1.32207e-06 , 1.54175e-06 , & - & 1.79792e-06 , 2.09666e-06 , 2.44504e-06 , 2.85131e-06 , 3.32508e-06 , & - & 3.87758e-06 , 4.52188e-06 , 5.27323e-06 , 6.14943e-06 /) - kao_mn2o( 4, :,15) = (/ & - & 3.81913e-07 , 4.45369e-07 , 5.19369e-07 , 6.05664e-07 , 7.06297e-07 , & - & 8.23651e-07 , 9.60503e-07 , 1.12009e-06 , 1.30620e-06 , 1.52323e-06 , & - & 1.77632e-06 , 2.07147e-06 , 2.41565e-06 , 2.81701e-06 , 3.28507e-06 , & - & 3.83090e-06 , 4.46741e-06 , 5.20969e-06 , 6.07529e-06 /) - kao_mn2o( 5, :,15) = (/ & - & 3.77265e-07 , 4.39951e-07 , 5.13053e-07 , 5.98303e-07 , 6.97717e-07 , & - & 8.13650e-07 , 9.48846e-07 , 1.10651e-06 , 1.29036e-06 , 1.50477e-06 , & - & 1.75480e-06 , 2.04638e-06 , 2.38641e-06 , 2.78294e-06 , 3.24535e-06 , & - & 3.78460e-06 , 4.41345e-06 , 5.14679e-06 , 6.00198e-06 /) - kao_mn2o( 6, :,15) = (/ & - & 3.77877e-07 , 4.40670e-07 , 5.13897e-07 , 5.99292e-07 , 6.98878e-07 , & - & 8.15012e-07 , 9.50444e-07 , 1.10838e-06 , 1.29256e-06 , 1.50735e-06 , & - & 1.75783e-06 , 2.04993e-06 , 2.39057e-06 , 2.78782e-06 , 3.25107e-06 , & - & 3.79131e-06 , 4.42132e-06 , 5.15602e-06 , 6.01280e-06 /) - kao_mn2o( 7, :,15) = (/ & - & 3.80495e-07 , 4.43726e-07 , 5.17465e-07 , 6.03458e-07 , 7.03741e-07 , & - & 8.20689e-07 , 9.57072e-07 , 1.11612e-06 , 1.30160e-06 , 1.51790e-06 , & - & 1.77014e-06 , 2.06430e-06 , 2.40735e-06 , 2.80741e-06 , 3.27394e-06 , & - & 3.81801e-06 , 4.45249e-06 , 5.19241e-06 , 6.05528e-06 /) - kao_mn2o( 8, :,15) = (/ & - & 3.87881e-07 , 4.52329e-07 , 5.27486e-07 , 6.15129e-07 , 7.17335e-07 , & - & 8.36523e-07 , 9.75515e-07 , 1.13760e-06 , 1.32662e-06 , 1.54704e-06 , & - & 1.80409e-06 , 2.10384e-06 , 2.45340e-06 , 2.86105e-06 , 3.33642e-06 , & - & 3.89078e-06 , 4.53725e-06 , 5.29112e-06 , 6.17026e-06 /) - kao_mn2o( 9, :,15) = (/ & - & 3.77265e-07 , 4.39951e-07 , 5.13053e-07 , 5.98303e-07 , 6.97717e-07 , & - & 8.13650e-07 , 9.48846e-07 , 1.10651e-06 , 1.29036e-06 , 1.50477e-06 , & - & 1.75480e-06 , 2.04638e-06 , 2.38641e-06 , 2.78294e-06 , 3.24535e-06 , & - & 3.78460e-06 , 4.41345e-06 , 5.14679e-06 , 6.00198e-06 /) - kao_mn2o( 1, :,16) = (/ & - & 8.84606e-02 , 9.05971e-02 , 9.27852e-02 , 9.50261e-02 , 9.73212e-02 , & - & 9.96717e-02 , 1.02079e-01 , 1.04544e-01 , 1.07069e-01 , 1.09655e-01 , & - & 1.12304e-01 , 1.15016e-01 , 1.17794e-01 , 1.20639e-01 , 1.23553e-01 , & - & 1.26537e-01 , 1.29593e-01 , 1.32723e-01 , 1.35928e-01 /) - kao_mn2o( 2, :,16) = (/ & - & 8.13898e-07 , 9.49130e-07 , 1.10683e-06 , 1.29073e-06 , 1.50519e-06 , & - & 1.75528e-06 , 2.04693e-06 , 2.38703e-06 , 2.78364e-06 , 3.24615e-06 , & - & 3.78551e-06 , 4.41449e-06 , 5.14796e-06 , 6.00331e-06 , 7.00078e-06 , & - & 8.16398e-06 , 9.52045e-06 , 1.11023e-05 , 1.29470e-05 /) - kao_mn2o( 3, :,16) = (/ & - & 8.32666e-07 , 9.71021e-07 , 1.13237e-06 , 1.32052e-06 , 1.53994e-06 , & - & 1.79581e-06 , 2.09420e-06 , 2.44217e-06 , 2.84796e-06 , 3.32117e-06 , & - & 3.87302e-06 , 4.51656e-06 , 5.26703e-06 , 6.14219e-06 , 7.16277e-06 , & - & 8.35294e-06 , 9.74086e-06 , 1.13594e-05 , 1.32468e-05 /) - kao_mn2o( 4, :,16) = (/ & - & 8.70348e-07 , 1.01496e-06 , 1.18360e-06 , 1.38026e-06 , 1.60959e-06 , & - & 1.87703e-06 , 2.18890e-06 , 2.55259e-06 , 2.97671e-06 , 3.47130e-06 , & - & 4.04807e-06 , 4.72067e-06 , 5.50502e-06 , 6.41970e-06 , 7.48635e-06 , & - & 8.73023e-06 , 1.01808e-05 , 1.18724e-05 , 1.38450e-05 /) - kao_mn2o( 5, :,16) = (/ & - & 9.07957e-07 , 1.05882e-06 , 1.23475e-06 , 1.43991e-06 , 1.67916e-06 , & - & 1.95816e-06 , 2.28352e-06 , 2.66294e-06 , 3.10541e-06 , 3.62139e-06 , & - & 4.22310e-06 , 4.92480e-06 , 5.74308e-06 , 6.69733e-06 , 7.81013e-06 , & - & 9.10784e-06 , 1.06212e-05 , 1.23859e-05 , 1.44439e-05 /) - kao_mn2o( 6, :,16) = (/ & - & 8.59072e-04 , 9.19773e-04 , 9.84764e-04 , 1.05435e-03 , 1.12885e-03 , & - & 1.20861e-03 , 1.29401e-03 , 1.38544e-03 , 1.48334e-03 , 1.58815e-03 , & - & 1.70037e-03 , 1.82052e-03 , 1.94915e-03 , 2.08688e-03 , 2.23434e-03 , & - & 2.39222e-03 , 2.56125e-03 , 2.74223e-03 , 2.93599e-03 /) - kao_mn2o( 7, :,16) = (/ & - & 9.17294e-07 , 1.06971e-06 , 1.24746e-06 , 1.45474e-06 , 1.69646e-06 , & - & 1.97835e-06 , 2.30708e-06 , 2.69043e-06 , 3.13748e-06 , 3.65880e-06 , & - & 4.26676e-06 , 4.97574e-06 , 5.80251e-06 , 6.76667e-06 , 7.89104e-06 , & - & 9.20223e-06 , 1.07313e-05 , 1.25144e-05 , 1.45939e-05 /) - kao_mn2o( 8, :,16) = (/ & - & 9.17341e-07 , 1.06977e-06 , 1.24752e-06 , 1.45480e-06 , 1.69653e-06 , & - & 1.97843e-06 , 2.30716e-06 , 2.69051e-06 , 3.13757e-06 , 3.65890e-06 , & - & 4.26686e-06 , 4.97584e-06 , 5.80261e-06 , 6.76677e-06 , 7.89113e-06 , & - & 9.20231e-06 , 1.07314e-05 , 1.25145e-05 , 1.45939e-05 /) - kao_mn2o( 9, :,16) = (/ & - & 9.07957e-07 , 1.05882e-06 , 1.23475e-06 , 1.43991e-06 , 1.67916e-06 , & - & 1.95816e-06 , 2.28352e-06 , 2.66294e-06 , 3.10541e-06 , 3.62139e-06 , & - & 4.22310e-06 , 4.92480e-06 , 5.74308e-06 , 6.69733e-06 , 7.81013e-06 , & - & 9.10784e-06 , 1.06212e-05 , 1.23859e-05 , 1.44439e-05 /) - -! The array KBO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level above 100~ mb. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amounts ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 to -! that of gas2. The second index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The third index -! runs over the g-channel (1 to 16). - - kbo_mn2o( 1, :, 1) = (/ & - & 7.72009e-08 , 1.15883e-07 , 1.73947e-07 , 2.61104e-07 , 3.91932e-07 , & - & 5.88311e-07 , 8.83088e-07 , 1.32556e-06 , 1.98975e-06 , 2.98672e-06 , & - & 4.48324e-06 , 6.72960e-06 , 1.01015e-05 , 1.51629e-05 , 2.27604e-05 , & - & 3.41646e-05 , 5.12831e-05 , 7.69787e-05 , 1.15549e-04 /) - kbo_mn2o( 2, :, 1) = (/ & - & 1.29932e-05 , 1.78207e-05 , 2.44419e-05 , 3.35232e-05 , 4.59786e-05 , & - & 6.30617e-05 , 8.64920e-05 , 1.18628e-04 , 1.62703e-04 , 2.23155e-04 , & - & 3.06067e-04 , 4.19784e-04 , 5.75753e-04 , 7.89671e-04 , 1.08307e-03 , & - & 1.48548e-03 , 2.03740e-03 , 2.79439e-03 , 3.83262e-03 /) - kbo_mn2o( 3, :, 1) = (/ & - & 6.44518e-05 , 8.10996e-05 , 1.02047e-04 , 1.28406e-04 , 1.61573e-04 , & - & 2.03307e-04 , 2.55821e-04 , 3.21899e-04 , 4.05045e-04 , 5.09667e-04 , & - & 6.41313e-04 , 8.06964e-04 , 1.01540e-03 , 1.27768e-03 , 1.60770e-03 , & - & 2.02296e-03 , 2.54549e-03 , 3.20298e-03 , 4.03031e-03 /) - kbo_mn2o( 4, :, 1) = (/ & - & 3.23454e-04 , 3.82112e-04 , 4.51408e-04 , 5.33270e-04 , 6.29978e-04 , & - & 7.44223e-04 , 8.79187e-04 , 1.03863e-03 , 1.22698e-03 , 1.44949e-03 , & - & 1.71235e-03 , 2.02289e-03 , 2.38974e-03 , 2.82311e-03 , 3.33508e-03 , & - & 3.93989e-03 , 4.65439e-03 , 5.49845e-03 , 6.49558e-03 /) - kbo_mn2o( 5, :, 1) = (/ & - & 1.45978e-04 , 1.75646e-04 , 2.11344e-04 , 2.54296e-04 , 3.05978e-04 , & - & 3.68163e-04 , 4.42986e-04 , 5.33017e-04 , 6.41344e-04 , 7.71687e-04 , & - & 9.28522e-04 , 1.11723e-03 , 1.34429e-03 , 1.61750e-03 , 1.94623e-03 , & - & 2.34177e-03 , 2.81770e-03 , 3.39035e-03 , 4.07939e-03 /) - kbo_mn2o( 1, :, 2) = (/ & - & 1.94527e-04 , 2.38609e-04 , 2.92680e-04 , 3.59005e-04 , 4.40360e-04 , & - & 5.40150e-04 , 6.62554e-04 , 8.12697e-04 , 9.96864e-04 , 1.22276e-03 , & - & 1.49986e-03 , 1.83974e-03 , 2.25665e-03 , 2.76803e-03 , 3.39530e-03 , & - & 4.16472e-03 , 5.10849e-03 , 6.26613e-03 , 7.68611e-03 /) - kbo_mn2o( 2, :, 2) = (/ & - & 7.49615e-04 , 8.82716e-04 , 1.03945e-03 , 1.22401e-03 , 1.44135e-03 , & - & 1.69727e-03 , 1.99863e-03 , 2.35351e-03 , 2.77139e-03 , 3.26347e-03 , & - & 3.84293e-03 , 4.52528e-03 , 5.32878e-03 , 6.27495e-03 , 7.38911e-03 , & - & 8.70111e-03 , 1.02461e-02 , 1.20653e-02 , 1.42076e-02 /) - kbo_mn2o( 3, :, 2) = (/ & - & 1.39162e-03 , 1.59859e-03 , 1.83634e-03 , 2.10946e-03 , 2.42319e-03 , & - & 2.78358e-03 , 3.19758e-03 , 3.67314e-03 , 4.21944e-03 , 4.84698e-03 , & - & 5.56786e-03 , 6.39595e-03 , 7.34720e-03 , 8.43992e-03 , 9.69516e-03 , & - & 1.11371e-02 , 1.27935e-02 , 1.46962e-02 , 1.68819e-02 /) - kbo_mn2o( 4, :, 2) = (/ & - & 2.42354e-03 , 2.73623e-03 , 3.08926e-03 , 3.48783e-03 , 3.93783e-03 , & - & 4.44589e-03 , 5.01950e-03 , 5.66712e-03 , 6.39829e-03 , 7.22379e-03 , & - & 8.15581e-03 , 9.20807e-03 , 1.03961e-02 , 1.17374e-02 , 1.32517e-02 , & - & 1.49615e-02 , 1.68918e-02 , 1.90712e-02 , 2.15318e-02 /) - kbo_mn2o( 5, :, 2) = (/ & - & 1.39908e-03 , 1.59133e-03 , 1.81000e-03 , 2.05872e-03 , 2.34161e-03 , & - & 2.66338e-03 , 3.02937e-03 , 3.44564e-03 , 3.91912e-03 , 4.45766e-03 , & - & 5.07021e-03 , 5.76693e-03 , 6.55938e-03 , 7.46073e-03 , 8.48594e-03 , & - & 9.65202e-03 , 1.09783e-02 , 1.24869e-02 , 1.42028e-02 /) - kbo_mn2o( 1, :, 3) = (/ & - & 8.74797e-03 , 9.66828e-03 , 1.06854e-02 , 1.18095e-02 , 1.30519e-02 , & - & 1.44250e-02 , 1.59426e-02 , 1.76198e-02 , 1.94735e-02 , 2.15221e-02 , & - & 2.37863e-02 , 2.62887e-02 , 2.90544e-02 , 3.21110e-02 , 3.54891e-02 , & - & 3.92227e-02 , 4.33491e-02 , 4.79095e-02 , 5.29497e-02 /) - kbo_mn2o( 2, :, 3) = (/ & - & 1.43974e-02 , 1.56118e-02 , 1.69286e-02 , 1.83564e-02 , 1.99047e-02 , & - & 2.15836e-02 , 2.34041e-02 , 2.53781e-02 , 2.75187e-02 , 2.98397e-02 , & - & 3.23566e-02 , 3.50857e-02 , 3.80451e-02 , 4.12540e-02 , 4.47336e-02 , & - & 4.85067e-02 , 5.25980e-02 , 5.70344e-02 , 6.18450e-02 /) - kbo_mn2o( 3, :, 3) = (/ & - & 1.83051e-02 , 1.96851e-02 , 2.11692e-02 , 2.27651e-02 , 2.44813e-02 , & - & 2.63270e-02 , 2.83117e-02 , 3.04461e-02 , 3.27414e-02 , 3.52097e-02 , & - & 3.78642e-02 , 4.07187e-02 , 4.37884e-02 , 4.70896e-02 , 5.06396e-02 , & - & 5.44573e-02 , 5.85628e-02 , 6.29777e-02 , 6.77256e-02 /) - kbo_mn2o( 4, :, 3) = (/ & - & 2.81258e-02 , 2.97806e-02 , 3.15328e-02 , 3.33880e-02 , 3.53524e-02 , & - & 3.74324e-02 , 3.96348e-02 , 4.19667e-02 , 4.44358e-02 , 4.70502e-02 , & - & 4.98185e-02 , 5.27496e-02 , 5.58531e-02 , 5.91393e-02 , 6.26187e-02 , & - & 6.63030e-02 , 7.02039e-02 , 7.43344e-02 , 7.87079e-02 /) - kbo_mn2o( 5, :, 3) = (/ & - & 8.82958e-03 , 9.53842e-03 , 1.03042e-02 , 1.11314e-02 , 1.20250e-02 , & - & 1.29904e-02 , 1.40333e-02 , 1.51599e-02 , 1.63769e-02 , 1.76917e-02 , & - & 1.91120e-02 , 2.06463e-02 , 2.23038e-02 , 2.40944e-02 , 2.60287e-02 , & - & 2.81183e-02 , 3.03757e-02 , 3.28142e-02 , 3.54486e-02 /) - kbo_mn2o( 1, :, 4) = (/ & - & 1.18673e-01 , 1.22983e-01 , 1.27449e-01 , 1.32077e-01 , 1.36874e-01 , & - & 1.41845e-01 , 1.46996e-01 , 1.52334e-01 , 1.57866e-01 , 1.63599e-01 , & - & 1.69541e-01 , 1.75698e-01 , 1.82078e-01 , 1.88691e-01 , 1.95543e-01 , & - & 2.02645e-01 , 2.10004e-01 , 2.17631e-01 , 2.25534e-01 /) - kbo_mn2o( 2, :, 4) = (/ & - & 1.32161e-01 , 1.36550e-01 , 1.41084e-01 , 1.45769e-01 , 1.50610e-01 , & - & 1.55611e-01 , 1.60779e-01 , 1.66118e-01 , 1.71634e-01 , 1.77334e-01 , & - & 1.83223e-01 , 1.89307e-01 , 1.95594e-01 , 2.02089e-01 , 2.08800e-01 , & - & 2.15734e-01 , 2.22898e-01 , 2.30300e-01 , 2.37947e-01 /) - kbo_mn2o( 3, :, 4) = (/ & - & 1.44384e-01 , 1.48820e-01 , 1.53392e-01 , 1.58104e-01 , 1.62962e-01 , & - & 1.67968e-01 , 1.73128e-01 , 1.78447e-01 , 1.83929e-01 , 1.89580e-01 , & - & 1.95404e-01 , 2.01407e-01 , 2.07594e-01 , 2.13972e-01 , 2.20546e-01 , & - & 2.27321e-01 , 2.34305e-01 , 2.41503e-01 , 2.48922e-01 /) - kbo_mn2o( 4, :, 4) = (/ & - & 1.58026e-01 , 1.62626e-01 , 1.67360e-01 , 1.72232e-01 , 1.77245e-01 , & - & 1.82405e-01 , 1.87714e-01 , 1.93179e-01 , 1.98802e-01 , 2.04589e-01 , & - & 2.10544e-01 , 2.16673e-01 , 2.22980e-01 , 2.29471e-01 , 2.36151e-01 , & - & 2.43025e-01 , 2.50100e-01 , 2.57380e-01 , 2.64872e-01 /) - kbo_mn2o( 5, :, 4) = (/ & - & 4.04885e-02 , 4.16064e-02 , 4.27551e-02 , 4.39355e-02 , 4.51485e-02 , & - & 4.63950e-02 , 4.76759e-02 , 4.89921e-02 , 5.03448e-02 , 5.17347e-02 , & - & 5.31630e-02 , 5.46308e-02 , 5.61391e-02 , 5.76890e-02 , 5.92817e-02 , & - & 6.09184e-02 , 6.26003e-02 , 6.43286e-02 , 6.61047e-02 /) - kbo_mn2o( 1, :, 5) = (/ & - & 3.97757e-01 , 4.01082e-01 , 4.04434e-01 , 4.07814e-01 , 4.11223e-01 , & - & 4.14659e-01 , 4.18125e-01 , 4.21620e-01 , 4.25144e-01 , 4.28697e-01 , & - & 4.32280e-01 , 4.35893e-01 , 4.39536e-01 , 4.43209e-01 , 4.46913e-01 , & - & 4.50649e-01 , 4.54415e-01 , 4.58213e-01 , 4.62043e-01 /) - kbo_mn2o( 2, :, 5) = (/ & - & 3.99425e-01 , 4.02035e-01 , 4.04662e-01 , 4.07306e-01 , 4.09968e-01 , & - & 4.12647e-01 , 4.15343e-01 , 4.18057e-01 , 4.20789e-01 , 4.23539e-01 , & - & 4.26307e-01 , 4.29092e-01 , 4.31896e-01 , 4.34719e-01 , 4.37559e-01 , & - & 4.40419e-01 , 4.43296e-01 , 4.46193e-01 , 4.49109e-01 /) - kbo_mn2o( 3, :, 5) = (/ & - & 4.00527e-01 , 4.02848e-01 , 4.05182e-01 , 4.07530e-01 , 4.09892e-01 , & - & 4.12267e-01 , 4.14656e-01 , 4.17058e-01 , 4.19475e-01 , 4.21906e-01 , & - & 4.24351e-01 , 4.26809e-01 , 4.29283e-01 , 4.31770e-01 , 4.34272e-01 , & - & 4.36788e-01 , 4.39319e-01 , 4.41865e-01 , 4.44426e-01 /) - kbo_mn2o( 4, :, 5) = (/ & - & 4.11455e-01 , 4.13077e-01 , 4.14705e-01 , 4.16340e-01 , 4.17981e-01 , & - & 4.19629e-01 , 4.21283e-01 , 4.22944e-01 , 4.24611e-01 , 4.26285e-01 , & - & 4.27966e-01 , 4.29653e-01 , 4.31346e-01 , 4.33047e-01 , 4.34754e-01 , & - & 4.36468e-01 , 4.38188e-01 , 4.39916e-01 , 4.41650e-01 /) - kbo_mn2o( 5, :, 5) = (/ & - & 8.65576e-02 , 8.83622e-02 , 9.02044e-02 , 9.20850e-02 , 9.40049e-02 , & - & 9.59647e-02 , 9.79655e-02 , 1.00008e-01 , 1.02093e-01 , 1.04221e-01 , & - & 1.06394e-01 , 1.08612e-01 , 1.10877e-01 , 1.13188e-01 , 1.15548e-01 , & - & 1.17957e-01 , 1.20417e-01 , 1.22927e-01 , 1.25490e-01 /) - kbo_mn2o( 1, :, 6) = (/ & - & 6.98675e-01 , 7.00999e-01 , 7.03331e-01 , 7.05671e-01 , 7.08019e-01 , & - & 7.10375e-01 , 7.12738e-01 , 7.15110e-01 , 7.17489e-01 , 7.19876e-01 , & - & 7.22271e-01 , 7.24674e-01 , 7.27085e-01 , 7.29504e-01 , 7.31931e-01 , & - & 7.34366e-01 , 7.36809e-01 , 7.39261e-01 , 7.41720e-01 /) - kbo_mn2o( 2, :, 6) = (/ & - & 6.98858e-01 , 7.01424e-01 , 7.03999e-01 , 7.06583e-01 , 7.09177e-01 , & - & 7.11780e-01 , 7.14393e-01 , 7.17016e-01 , 7.19648e-01 , 7.22289e-01 , & - & 7.24941e-01 , 7.27602e-01 , 7.30273e-01 , 7.32954e-01 , 7.35644e-01 , & - & 7.38345e-01 , 7.41055e-01 , 7.43775e-01 , 7.46506e-01 /) - kbo_mn2o( 3, :, 6) = (/ & - & 7.08151e-01 , 7.10727e-01 , 7.13311e-01 , 7.15905e-01 , 7.18508e-01 , & - & 7.21121e-01 , 7.23743e-01 , 7.26375e-01 , 7.29017e-01 , 7.31668e-01 , & - & 7.34329e-01 , 7.36999e-01 , 7.39679e-01 , 7.42369e-01 , 7.45068e-01 , & - & 7.47778e-01 , 7.50497e-01 , 7.53226e-01 , 7.55965e-01 /) - kbo_mn2o( 4, :, 6) = (/ & - & 7.22269e-01 , 7.24981e-01 , 7.27704e-01 , 7.30437e-01 , 7.33180e-01 , & - & 7.35933e-01 , 7.38697e-01 , 7.41471e-01 , 7.44256e-01 , 7.47051e-01 , & - & 7.49856e-01 , 7.52672e-01 , 7.55499e-01 , 7.58336e-01 , 7.61184e-01 , & - & 7.64043e-01 , 7.66912e-01 , 7.69792e-01 , 7.72683e-01 /) - kbo_mn2o( 5, :, 6) = (/ & - & 1.75877e-01 , 1.78578e-01 , 1.81321e-01 , 1.84107e-01 , 1.86935e-01 , & - & 1.89806e-01 , 1.92722e-01 , 1.95682e-01 , 1.98688e-01 , 2.01740e-01 , & - & 2.04839e-01 , 2.07986e-01 , 2.11181e-01 , 2.14425e-01 , 2.17719e-01 , & - & 2.21063e-01 , 2.24459e-01 , 2.27907e-01 , 2.31408e-01 /) - kbo_mn2o( 1, :, 7) = (/ & - & 1.82985e+00 , 1.83684e+00 , 1.84386e+00 , 1.85091e+00 , 1.85798e+00 , & - & 1.86508e+00 , 1.87221e+00 , 1.87937e+00 , 1.88655e+00 , 1.89376e+00 , & - & 1.90100e+00 , 1.90827e+00 , 1.91556e+00 , 1.92288e+00 , 1.93023e+00 , & - & 1.93761e+00 , 1.94502e+00 , 1.95245e+00 , 1.95991e+00 /) - kbo_mn2o( 2, :, 7) = (/ & - & 1.83229e+00 , 1.83943e+00 , 1.84659e+00 , 1.85379e+00 , 1.86100e+00 , & - & 1.86825e+00 , 1.87553e+00 , 1.88283e+00 , 1.89016e+00 , 1.89753e+00 , & - & 1.90492e+00 , 1.91233e+00 , 1.91978e+00 , 1.92726e+00 , 1.93476e+00 , & - & 1.94230e+00 , 1.94986e+00 , 1.95746e+00 , 1.96508e+00 /) - kbo_mn2o( 3, :, 7) = (/ & - & 1.84946e+00 , 1.85707e+00 , 1.86471e+00 , 1.87238e+00 , 1.88008e+00 , & - & 1.88781e+00 , 1.89558e+00 , 1.90338e+00 , 1.91120e+00 , 1.91907e+00 , & - & 1.92696e+00 , 1.93489e+00 , 1.94285e+00 , 1.95084e+00 , 1.95886e+00 , & - & 1.96692e+00 , 1.97501e+00 , 1.98313e+00 , 1.99129e+00 /) - kbo_mn2o( 4, :, 7) = (/ & - & 1.88354e+00 , 1.89167e+00 , 1.89983e+00 , 1.90803e+00 , 1.91626e+00 , & - & 1.92453e+00 , 1.93283e+00 , 1.94117e+00 , 1.94955e+00 , 1.95796e+00 , & - & 1.96641e+00 , 1.97489e+00 , 1.98341e+00 , 1.99197e+00 , 2.00056e+00 , & - & 2.00920e+00 , 2.01787e+00 , 2.02657e+00 , 2.03532e+00 /) - kbo_mn2o( 5, :, 7) = (/ & - & 3.35154e-01 , 3.43258e-01 , 3.51557e-01 , 3.60058e-01 , 3.68764e-01 , & - & 3.77680e-01 , 3.86812e-01 , 3.96164e-01 , 4.05743e-01 , 4.15553e-01 , & - & 4.25601e-01 , 4.35892e-01 , 4.46431e-01 , 4.57225e-01 , 4.68280e-01 , & - & 4.79603e-01 , 4.91199e-01 , 5.03075e-01 , 5.15239e-01 /) - kbo_mn2o( 1, :, 8) = (/ & - & 4.46843e+00 , 4.49793e+00 , 4.52763e+00 , 4.55752e+00 , 4.58761e+00 , & - & 4.61790e+00 , 4.64839e+00 , 4.67908e+00 , 4.70997e+00 , 4.74106e+00 , & - & 4.77236e+00 , 4.80387e+00 , 4.83559e+00 , 4.86751e+00 , 4.89965e+00 , & - & 4.93200e+00 , 4.96456e+00 , 4.99733e+00 , 5.03033e+00 /) - kbo_mn2o( 2, :, 8) = (/ & - & 4.44347e+00 , 4.47278e+00 , 4.50228e+00 , 4.53198e+00 , 4.56188e+00 , & - & 4.59197e+00 , 4.62227e+00 , 4.65276e+00 , 4.68345e+00 , 4.71435e+00 , & - & 4.74544e+00 , 4.77675e+00 , 4.80826e+00 , 4.83998e+00 , 4.87191e+00 , & - & 4.90405e+00 , 4.93640e+00 , 4.96896e+00 , 5.00174e+00 /) - kbo_mn2o( 3, :, 8) = (/ & - & 4.43138e+00 , 4.46017e+00 , 4.48916e+00 , 4.51834e+00 , 4.54770e+00 , & - & 4.57725e+00 , 4.60700e+00 , 4.63694e+00 , 4.66708e+00 , 4.69741e+00 , & - & 4.72793e+00 , 4.75866e+00 , 4.78958e+00 , 4.82071e+00 , 4.85204e+00 , & - & 4.88357e+00 , 4.91531e+00 , 4.94725e+00 , 4.97941e+00 /) - kbo_mn2o( 4, :, 8) = (/ & - & 4.47437e+00 , 4.50396e+00 , 4.53375e+00 , 4.56374e+00 , 4.59392e+00 , & - & 4.62431e+00 , 4.65490e+00 , 4.68569e+00 , 4.71668e+00 , 4.74788e+00 , & - & 4.77928e+00 , 4.81089e+00 , 4.84271e+00 , 4.87474e+00 , 4.90698e+00 , & - & 4.93944e+00 , 4.97211e+00 , 5.00500e+00 , 5.03810e+00 /) - kbo_mn2o( 5, :, 8) = (/ & - & 8.82838e-01 , 8.92257e-01 , 9.01777e-01 , 9.11398e-01 , 9.21122e-01 , & - & 9.30950e-01 , 9.40883e-01 , 9.50921e-01 , 9.61067e-01 , 9.71321e-01 , & - & 9.81685e-01 , 9.92159e-01 , 1.00274e+00 , 1.01344e+00 , 1.02426e+00 , & - & 1.03518e+00 , 1.04623e+00 , 1.05739e+00 , 1.06867e+00 /) - kbo_mn2o( 1, :, 9) = (/ & - & 7.92826e+00 , 7.83168e+00 , 7.73628e+00 , 7.64204e+00 , 7.54895e+00 , & - & 7.45699e+00 , 7.36616e+00 , 7.27643e+00 , 7.18779e+00 , 7.10023e+00 , & - & 7.01374e+00 , 6.92831e+00 , 6.84391e+00 , 6.76054e+00 , 6.67819e+00 , & - & 6.59684e+00 , 6.51648e+00 , 6.43710e+00 , 6.35869e+00 /) - kbo_mn2o( 2, :, 9) = (/ & - & 7.89244e+00 , 7.79570e+00 , 7.70014e+00 , 7.60576e+00 , 7.51253e+00 , & - & 7.42045e+00 , 7.32949e+00 , 7.23965e+00 , 7.15091e+00 , 7.06325e+00 , & - & 6.97668e+00 , 6.89116e+00 , 6.80669e+00 , 6.72326e+00 , 6.64085e+00 , & - & 6.55945e+00 , 6.47904e+00 , 6.39963e+00 , 6.32118e+00 /) - kbo_mn2o( 3, :, 9) = (/ & - & 7.79799e+00 , 7.70076e+00 , 7.60474e+00 , 7.50991e+00 , 7.41627e+00 , & - & 7.32379e+00 , 7.23247e+00 , 7.14229e+00 , 7.05323e+00 , 6.96528e+00 , & - & 6.87843e+00 , 6.79266e+00 , 6.70797e+00 , 6.62432e+00 , 6.54172e+00 , & - & 6.46015e+00 , 6.37960e+00 , 6.30005e+00 , 6.22150e+00 /) - kbo_mn2o( 4, :, 9) = (/ & - & 7.53750e+00 , 7.43715e+00 , 7.33814e+00 , 7.24045e+00 , 7.14406e+00 , & - & 7.04895e+00 , 6.95510e+00 , 6.86251e+00 , 6.77115e+00 , 6.68101e+00 , & - & 6.59206e+00 , 6.50430e+00 , 6.41771e+00 , 6.33227e+00 , 6.24797e+00 , & - & 6.16479e+00 , 6.08272e+00 , 6.00174e+00 , 5.92184e+00 /) - kbo_mn2o( 5, :, 9) = (/ & - & 5.06319e+00 , 5.08595e+00 , 5.10881e+00 , 5.13177e+00 , 5.15483e+00 , & - & 5.17800e+00 , 5.20127e+00 , 5.22464e+00 , 5.24813e+00 , 5.27171e+00 , & - & 5.29540e+00 , 5.31920e+00 , 5.34311e+00 , 5.36712e+00 , 5.39124e+00 , & - & 5.41547e+00 , 5.43981e+00 , 5.46426e+00 , 5.48882e+00 /) - kbo_mn2o( 1, :,10) = (/ & - & 1.05265e+00 , 1.03986e+00 , 1.02723e+00 , 1.01475e+00 , 1.00243e+00 , & - & 9.90250e-01 , 9.78220e-01 , 9.66338e-01 , 9.54599e-01 , 9.43003e-01 , & - & 9.31548e-01 , 9.20232e-01 , 9.09054e-01 , 8.98011e-01 , 8.87102e-01 , & - & 8.76326e-01 , 8.65681e-01 , 8.55165e-01 , 8.44777e-01 /) - kbo_mn2o( 2, :,10) = (/ & - & 1.05246e+00 , 1.03973e+00 , 1.02714e+00 , 1.01471e+00 , 1.00243e+00 , & - & 9.90303e-01 , 9.78319e-01 , 9.66480e-01 , 9.54784e-01 , 9.43230e-01 , & - & 9.31815e-01 , 9.20539e-01 , 9.09399e-01 , 8.98394e-01 , 8.87522e-01 , & - & 8.76782e-01 , 8.66171e-01 , 8.55690e-01 , 8.45335e-01 /) - kbo_mn2o( 3, :,10) = (/ & - & 1.05236e+00 , 1.03963e+00 , 1.02704e+00 , 1.01461e+00 , 1.00233e+00 , & - & 9.90203e-01 , 9.78219e-01 , 9.66380e-01 , 9.54684e-01 , 9.43130e-01 , & - & 9.31715e-01 , 9.20439e-01 , 9.09300e-01 , 8.98295e-01 , 8.87423e-01 , & - & 8.76683e-01 , 8.66073e-01 , 8.55591e-01 , 8.45236e-01 /) - kbo_mn2o( 4, :,10) = (/ & - & 9.30836e-01 , 9.21099e-01 , 9.11464e-01 , 9.01930e-01 , 8.92495e-01 , & - & 8.83159e-01 , 8.73921e-01 , 8.64779e-01 , 8.55733e-01 , 8.46781e-01 , & - & 8.37923e-01 , 8.29158e-01 , 8.20485e-01 , 8.11902e-01 , 8.03409e-01 , & - & 7.95005e-01 , 7.86689e-01 , 7.78460e-01 , 7.70316e-01 /) - kbo_mn2o( 5, :,10) = (/ & - & 1.65786e+01 , 1.66541e+01 , 1.67299e+01 , 1.68062e+01 , 1.68827e+01 , & - & 1.69596e+01 , 1.70369e+01 , 1.71145e+01 , 1.71925e+01 , 1.72708e+01 , & - & 1.73495e+01 , 1.74285e+01 , 1.75079e+01 , 1.75877e+01 , 1.76678e+01 , & - & 1.77483e+01 , 1.78291e+01 , 1.79103e+01 , 1.79919e+01 /) - kbo_mn2o( 1, :,11) = (/ & - & 1.74239e-01 , 1.77873e-01 , 1.81583e-01 , 1.85370e-01 , 1.89236e-01 , & - & 1.93182e-01 , 1.97211e-01 , 2.01324e-01 , 2.05523e-01 , 2.09809e-01 , & - & 2.14185e-01 , 2.18652e-01 , 2.23212e-01 , 2.27867e-01 , 2.32620e-01 , & - & 2.37471e-01 , 2.42424e-01 , 2.47479e-01 , 2.52641e-01 /) - kbo_mn2o( 2, :,11) = (/ & - & 1.74114e-01 , 1.77756e-01 , 1.81475e-01 , 1.85271e-01 , 1.89147e-01 , & - & 1.93104e-01 , 1.97144e-01 , 2.01268e-01 , 2.05479e-01 , 2.09778e-01 , & - & 2.14166e-01 , 2.18647e-01 , 2.23221e-01 , 2.27890e-01 , 2.32658e-01 , & - & 2.37525e-01 , 2.42494e-01 , 2.47567e-01 , 2.52746e-01 /) - kbo_mn2o( 3, :,11) = (/ & - & 1.74142e-01 , 1.77780e-01 , 1.81494e-01 , 1.85286e-01 , 1.89157e-01 , & - & 1.93108e-01 , 1.97143e-01 , 2.01261e-01 , 2.05466e-01 , 2.09759e-01 , & - & 2.14141e-01 , 2.18615e-01 , 2.23182e-01 , 2.27845e-01 , 2.32605e-01 , & - & 2.37464e-01 , 2.42425e-01 , 2.47490e-01 , 2.52661e-01 /) - kbo_mn2o( 4, :,11) = (/ & - & 1.74074e-01 , 1.77716e-01 , 1.81435e-01 , 1.85231e-01 , 1.89107e-01 , & - & 1.93064e-01 , 1.97104e-01 , 2.01229e-01 , 2.05439e-01 , 2.09738e-01 , & - & 2.14127e-01 , 2.18607e-01 , 2.23181e-01 , 2.27852e-01 , 2.32619e-01 , & - & 2.37487e-01 , 2.42456e-01 , 2.47529e-01 , 2.52709e-01 /) - kbo_mn2o( 5, :,11) = (/ & - & 2.31905e+01 , 2.33011e+01 , 2.34123e+01 , 2.35240e+01 , 2.36362e+01 , & - & 2.37489e+01 , 2.38622e+01 , 2.39760e+01 , 2.40904e+01 , 2.42053e+01 , & - & 2.43208e+01 , 2.44368e+01 , 2.45533e+01 , 2.46705e+01 , 2.47881e+01 , & - & 2.49064e+01 , 2.50252e+01 , 2.51446e+01 , 2.52645e+01 /) - kbo_mn2o( 1, :,12) = (/ & - & 1.60269e-01 , 1.62873e-01 , 1.65519e-01 , 1.68208e-01 , 1.70940e-01 , & - & 1.73717e-01 , 1.76540e-01 , 1.79408e-01 , 1.82322e-01 , 1.85284e-01 , & - & 1.88295e-01 , 1.91354e-01 , 1.94462e-01 , 1.97622e-01 , 2.00832e-01 , & - & 2.04095e-01 , 2.07411e-01 , 2.10780e-01 , 2.14205e-01 /) - kbo_mn2o( 2, :,12) = (/ & - & 1.60497e-01 , 1.63096e-01 , 1.65738e-01 , 1.68422e-01 , 1.71150e-01 , & - & 1.73922e-01 , 1.76738e-01 , 1.79601e-01 , 1.82510e-01 , 1.85466e-01 , & - & 1.88469e-01 , 1.91522e-01 , 1.94624e-01 , 1.97776e-01 , 2.00979e-01 , & - & 2.04234e-01 , 2.07542e-01 , 2.10903e-01 , 2.14319e-01 /) - kbo_mn2o( 3, :,12) = (/ & - & 1.60407e-01 , 1.63006e-01 , 1.65648e-01 , 1.68332e-01 , 1.71060e-01 , & - & 1.73832e-01 , 1.76649e-01 , 1.79511e-01 , 1.82420e-01 , 1.85376e-01 , & - & 1.88380e-01 , 1.91433e-01 , 1.94535e-01 , 1.97687e-01 , 2.00891e-01 , & - & 2.04146e-01 , 2.07454e-01 , 2.10816e-01 , 2.14232e-01 /) - kbo_mn2o( 4, :,12) = (/ & - & 1.60475e-01 , 1.63070e-01 , 1.65706e-01 , 1.68386e-01 , 1.71109e-01 , & - & 1.73876e-01 , 1.76687e-01 , 1.79544e-01 , 1.82448e-01 , 1.85398e-01 , & - & 1.88396e-01 , 1.91442e-01 , 1.94538e-01 , 1.97684e-01 , 2.00881e-01 , & - & 2.04129e-01 , 2.07430e-01 , 2.10784e-01 , 2.14192e-01 /) - kbo_mn2o( 5, :,12) = (/ & - & 3.25743e+01 , 3.27992e+01 , 3.30256e+01 , 3.32536e+01 , 3.34832e+01 , & - & 3.37143e+01 , 3.39471e+01 , 3.41815e+01 , 3.44174e+01 , 3.46550e+01 , & - & 3.48943e+01 , 3.51352e+01 , 3.53778e+01 , 3.56220e+01 , 3.58679e+01 , & - & 3.61156e+01 , 3.63649e+01 , 3.66159e+01 , 3.68687e+01 /) - kbo_mn2o( 1, :,13) = (/ & - & 2.01846e-01 , 2.03110e-01 , 2.04381e-01 , 2.05660e-01 , 2.06947e-01 , & - & 2.08242e-01 , 2.09546e-01 , 2.10857e-01 , 2.12177e-01 , 2.13505e-01 , & - & 2.14841e-01 , 2.16186e-01 , 2.17539e-01 , 2.18900e-01 , 2.20270e-01 , & - & 2.21649e-01 , 2.23036e-01 , 2.24432e-01 , 2.25837e-01 /) - kbo_mn2o( 2, :,13) = (/ & - & 2.01756e-01 , 2.03020e-01 , 2.04291e-01 , 2.05570e-01 , 2.06857e-01 , & - & 2.08152e-01 , 2.09456e-01 , 2.10767e-01 , 2.12087e-01 , 2.13415e-01 , & - & 2.14751e-01 , 2.16096e-01 , 2.17449e-01 , 2.18810e-01 , 2.20181e-01 , & - & 2.21559e-01 , 2.22946e-01 , 2.24342e-01 , 2.25747e-01 /) - kbo_mn2o( 3, :,13) = (/ & - & 2.01836e-01 , 2.03100e-01 , 2.04371e-01 , 2.05650e-01 , 2.06937e-01 , & - & 2.08232e-01 , 2.09536e-01 , 2.10847e-01 , 2.12167e-01 , 2.13495e-01 , & - & 2.14831e-01 , 2.16176e-01 , 2.17529e-01 , 2.18890e-01 , 2.20260e-01 , & - & 2.21639e-01 , 2.23026e-01 , 2.24422e-01 , 2.25827e-01 /) - kbo_mn2o( 4, :,13) = (/ & - & 2.01845e-01 , 2.03103e-01 , 2.04370e-01 , 2.05644e-01 , 2.06926e-01 , & - & 2.08217e-01 , 2.09515e-01 , 2.10822e-01 , 2.12136e-01 , 2.13459e-01 , & - & 2.14790e-01 , 2.16129e-01 , 2.17477e-01 , 2.18833e-01 , 2.20198e-01 , & - & 2.21571e-01 , 2.22952e-01 , 2.24343e-01 , 2.25741e-01 /) - kbo_mn2o( 5, :,13) = (/ & - & 5.34154e+01 , 5.31954e+01 , 5.29763e+01 , 5.27582e+01 , 5.25409e+01 , & - & 5.23245e+01 , 5.21090e+01 , 5.18943e+01 , 5.16806e+01 , 5.14677e+01 , & - & 5.12558e+01 , 5.10446e+01 , 5.08344e+01 , 5.06250e+01 , 5.04165e+01 , & - & 5.02089e+01 , 5.00021e+01 , 4.97961e+01 , 4.95910e+01 /) - kbo_mn2o( 1, :,14) = (/ & - & 2.87818e-02 , 3.17868e-02 , 3.51056e-02 , 3.87708e-02 , 4.28187e-02 , & - & 4.72893e-02 , 5.22266e-02 , 5.76794e-02 , 6.37015e-02 , 7.03523e-02 , & - & 7.76976e-02 , 8.58097e-02 , 9.47688e-02 , 1.04663e-01 , 1.15591e-01 , & - & 1.27659e-01 , 1.40988e-01 , 1.55708e-01 , 1.71965e-01 /) - kbo_mn2o( 2, :,14) = (/ & - & 2.88500e-02 , 3.18494e-02 , 3.51606e-02 , 3.88161e-02 , 4.28517e-02 , & - & 4.73068e-02 , 5.22251e-02 , 5.76547e-02 , 6.36488e-02 , 7.02661e-02 , & - & 7.75714e-02 , 8.56362e-02 , 9.45395e-02 , 1.04368e-01 , 1.15219e-01 , & - & 1.27198e-01 , 1.40422e-01 , 1.55021e-01 , 1.71138e-01 /) - kbo_mn2o( 3, :,14) = (/ & - & 2.88036e-02 , 3.18109e-02 , 3.51322e-02 , 3.88002e-02 , 4.28512e-02 , & - & 4.73252e-02 , 5.22663e-02 , 5.77232e-02 , 6.37499e-02 , 7.04058e-02 , & - & 7.77567e-02 , 8.58751e-02 , 9.48410e-02 , 1.04743e-01 , 1.15679e-01 , & - & 1.27757e-01 , 1.41095e-01 , 1.55827e-01 , 1.72096e-01 /) - kbo_mn2o( 4, :,14) = (/ & - & 2.87750e-02 , 3.17783e-02 , 3.50951e-02 , 3.87580e-02 , 4.28033e-02 , & - & 4.72708e-02 , 5.22046e-02 , 5.76533e-02 , 6.36707e-02 , 7.03162e-02 , & - & 7.76553e-02 , 8.57604e-02 , 9.47114e-02 , 1.04597e-01 , 1.15514e-01 , & - & 1.27570e-01 , 1.40885e-01 , 1.55589e-01 , 1.71829e-01 /) - kbo_mn2o( 5, :,14) = (/ & - & 1.11848e+02 , 1.09489e+02 , 1.07179e+02 , 1.04918e+02 , 1.02705e+02 , & - & 1.00538e+02 , 9.84175e+01 , 9.63414e+01 , 9.43091e+01 , 9.23196e+01 , & - & 9.03722e+01 , 8.84658e+01 , 8.65996e+01 , 8.47728e+01 , 8.29845e+01 , & - & 8.12339e+01 , 7.95203e+01 , 7.78428e+01 , 7.62007e+01 /) - kbo_mn2o( 1, :,15) = (/ & - & 1.52234e-02 , 1.69256e-02 , 1.88181e-02 , 2.09222e-02 , 2.32617e-02 , & - & 2.58626e-02 , 2.87545e-02 , 3.19696e-02 , 3.55443e-02 , 3.95187e-02 , & - & 4.39374e-02 , 4.88503e-02 , 5.43124e-02 , 6.03854e-02 , 6.71373e-02 , & - & 7.46443e-02 , 8.29906e-02 , 9.22701e-02 , 1.02587e-01 /) - kbo_mn2o( 2, :,15) = (/ & - & 1.52234e-02 , 1.69256e-02 , 1.88181e-02 , 2.09222e-02 , 2.32617e-02 , & - & 2.58626e-02 , 2.87545e-02 , 3.19696e-02 , 3.55443e-02 , 3.95187e-02 , & - & 4.39374e-02 , 4.88503e-02 , 5.43124e-02 , 6.03854e-02 , 6.71373e-02 , & - & 7.46443e-02 , 8.29906e-02 , 9.22701e-02 , 1.02587e-01 /) - kbo_mn2o( 3, :,15) = (/ & - & 1.52076e-02 , 1.69049e-02 , 1.87916e-02 , 2.08890e-02 , 2.32203e-02 , & - & 2.58119e-02 , 2.86928e-02 , 3.18951e-02 , 3.54549e-02 , 3.94120e-02 , & - & 4.38107e-02 , 4.87003e-02 , 5.41357e-02 , 6.01777e-02 , 6.68940e-02 , & - & 7.43600e-02 , 8.26593e-02 , 9.18847e-02 , 1.02140e-01 /) - kbo_mn2o( 4, :,15) = (/ & - & 1.52422e-02 , 1.69488e-02 , 1.88464e-02 , 2.09565e-02 , 2.33028e-02 , & - & 2.59118e-02 , 2.88129e-02 , 3.20389e-02 , 3.56260e-02 , 3.96148e-02 , & - & 4.40501e-02 , 4.89821e-02 , 5.44662e-02 , 6.05643e-02 , 6.73452e-02 , & - & 7.48853e-02 , 8.32696e-02 , 9.25927e-02 , 1.02959e-01 /) - kbo_mn2o( 5, :,15) = (/ & - & 6.94782e+01 , 6.73469e+01 , 6.52810e+01 , 6.32785e+01 , 6.13373e+01 , & - & 5.94558e+01 , 5.76319e+01 , 5.58640e+01 , 5.41503e+01 , 5.24892e+01 , & - & 5.08791e+01 , 4.93183e+01 , 4.78055e+01 , 4.63390e+01 , 4.49175e+01 , & - & 4.35396e+01 , 4.22040e+01 , 4.09094e+01 , 3.96544e+01 /) - kbo_mn2o( 1, :,16) = (/ & - & 1.08257e-02 , 1.15188e-02 , 1.22563e-02 , 1.30410e-02 , 1.38759e-02 , & - & 1.47643e-02 , 1.57096e-02 , 1.67154e-02 , 1.77857e-02 , 1.89244e-02 , & - & 2.01360e-02 , 2.14252e-02 , 2.27970e-02 , 2.42565e-02 , 2.58096e-02 , & - & 2.74620e-02 , 2.92203e-02 , 3.10911e-02 , 3.30817e-02 /) - kbo_mn2o( 2, :,16) = (/ & - & 1.08257e-02 , 1.15188e-02 , 1.22563e-02 , 1.30410e-02 , 1.38759e-02 , & - & 1.47643e-02 , 1.57096e-02 , 1.67154e-02 , 1.77857e-02 , 1.89244e-02 , & - & 2.01360e-02 , 2.14252e-02 , 2.27970e-02 , 2.42565e-02 , 2.58096e-02 , & - & 2.74620e-02 , 2.92203e-02 , 3.10911e-02 , 3.30817e-02 /) - kbo_mn2o( 3, :,16) = (/ & - & 1.08257e-02 , 1.15188e-02 , 1.22563e-02 , 1.30410e-02 , 1.38759e-02 , & - & 1.47643e-02 , 1.57096e-02 , 1.67154e-02 , 1.77857e-02 , 1.89244e-02 , & - & 2.01360e-02 , 2.14252e-02 , 2.27970e-02 , 2.42565e-02 , 2.58096e-02 , & - & 2.74620e-02 , 2.92203e-02 , 3.10911e-02 , 3.30817e-02 /) - kbo_mn2o( 4, :,16) = (/ & - & 1.08263e-02 , 1.15191e-02 , 1.22562e-02 , 1.30404e-02 , 1.38749e-02 , & - & 1.47627e-02 , 1.57073e-02 , 1.67124e-02 , 1.77818e-02 , 1.89196e-02 , & - & 2.01302e-02 , 2.14183e-02 , 2.27888e-02 , 2.42470e-02 , 2.57986e-02 , & - & 2.74494e-02 , 2.92058e-02 , 3.10746e-02 , 3.30630e-02 /) - kbo_mn2o( 5, :,16) = (/ & - & 4.53450e-08 , 5.75193e-08 , 7.29620e-08 , 9.25509e-08 , 1.17399e-07 , & - & 1.48918e-07 , 1.88900e-07 , 2.39616e-07 , 3.03948e-07 , 3.85551e-07 , & - & 4.89064e-07 , 6.20369e-07 , 7.86925e-07 , 9.98199e-07 , 1.26619e-06 , & - & 1.60614e-06 , 2.03736e-06 , 2.58435e-06 , 3.27819e-06 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &9.0039e-04 ,1.1081e-03 ,1.0732e-03 ,1.1881e-03 ,1.2488e-03 ,1.3170e-03 , & - &1.3317e-03 ,1.3168e-03 ,1.3369e-03 ,1.4228e-03 ,1.5385e-03 ,1.7376e-03 , & - &1.7122e-03 ,1.9002e-03 ,1.8881e-03 ,2.1595e-03 /) - forrefo(2,:) = (/ & - &1.2726e-03 ,1.3680e-03 ,1.2494e-03 ,1.2049e-03 ,1.2048e-03 ,1.1256e-03 , & - &1.1170e-03 ,1.0697e-03 ,1.1177e-03 ,1.1883e-03 ,1.2219e-03 ,1.2179e-03 , & - &1.5692e-03 ,1.9103e-03 ,2.0219e-03 ,1.6937e-03 /) - forrefo(3,:) = (/ & - &1.5527e-03 ,1.6477e-03 ,1.4973e-03 ,1.3400e-03 ,1.0820e-03 ,9.3315e-04 , & - &8.8132e-04 ,8.1508e-04 ,8.3559e-04 ,7.6492e-04 ,8.2343e-04 ,7.1274e-04 , & - &6.6011e-04 ,6.7179e-04 ,6.7039e-04 ,6.7021e-04 /) - forrefo(4,:) = (/ & - &1.6763e-03 ,1.6066e-03 ,1.3927e-03 ,1.2087e-03 ,9.8463e-04 ,8.8414e-04 , & - &8.0976e-04 ,7.8758e-04 ,7.7376e-04 ,7.5785e-04 ,7.4152e-04 ,7.3814e-04 , & - &7.4278e-04 ,7.1745e-04 ,6.7216e-04 ,6.4097e-04 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 5.11926e-01 , 4.32863e-01 , 3.66010e-01 , 3.09482e-01 , 2.61685e-01 , & - & 2.21269e-01 , 1.87096e-01 , 1.58200e-01 , 1.33767e-01 , 1.13108e-01 /) - selfrefo(:, 2) = (/ & - & 5.02863e-01 , 4.35008e-01 , 3.76310e-01 , 3.25532e-01 , 2.81606e-01 , & - & 2.43607e-01 , 2.10736e-01 , 1.82300e-01 , 1.57701e-01 , 1.36422e-01 /) - selfrefo(:, 3) = (/ & - & 4.57628e-01 , 3.99663e-01 , 3.49040e-01 , 3.04829e-01 , 2.66218e-01 , & - & 2.32498e-01 , 2.03049e-01 , 1.77330e-01 , 1.54869e-01 , 1.35252e-01 /) - selfrefo(:, 4) = (/ & - & 4.28634e-01 , 3.81736e-01 , 3.39970e-01 , 3.02773e-01 , 2.69647e-01 , & - & 2.40144e-01 , 2.13870e-01 , 1.90470e-01 , 1.69630e-01 , 1.51071e-01 /) - selfrefo(:, 5) = (/ & - & 4.21002e-01 , 3.77493e-01 , 3.38480e-01 , 3.03499e-01 , 2.72133e-01 , & - & 2.44009e-01 , 2.18792e-01 , 1.96180e-01 , 1.75905e-01 , 1.57726e-01 /) - selfrefo(:, 6) = (/ & - & 3.97517e-01 , 3.61167e-01 , 3.28140e-01 , 2.98133e-01 , 2.70871e-01 , & - & 2.46101e-01 , 2.23597e-01 , 2.03150e-01 , 1.84573e-01 , 1.67695e-01 /) - selfrefo(:, 7) = (/ & - & 3.92114e-01 , 3.57554e-01 , 3.26040e-01 , 2.97304e-01 , 2.71100e-01 , & - & 2.47206e-01 , 2.25418e-01 , 2.05550e-01 , 1.87433e-01 , 1.70913e-01 /) - selfrefo(:, 8) = (/ & - & 3.79555e-01 , 3.47264e-01 , 3.17720e-01 , 2.90690e-01 , 2.65959e-01 , & - & 2.43332e-01 , 2.22631e-01 , 2.03690e-01 , 1.86361e-01 , 1.70506e-01 /) - selfrefo(:, 9) = (/ & - & 3.92644e-01 , 3.58048e-01 , 3.26500e-01 , 2.97732e-01 , 2.71498e-01 , & - & 2.47576e-01 , 2.25762e-01 , 2.05870e-01 , 1.87731e-01 , 1.71190e-01 /) - selfrefo(:,10) = (/ & - & 4.06542e-01 , 3.71200e-01 , 3.38930e-01 , 3.09465e-01 , 2.82562e-01 , & - & 2.57998e-01 , 2.35569e-01 , 2.15090e-01 , 1.96391e-01 , 1.79318e-01 /) - selfrefo(:,11) = (/ & - & 4.09672e-01 , 3.76237e-01 , 3.45530e-01 , 3.17329e-01 , 2.91430e-01 , & - & 2.67645e-01 , 2.45801e-01 , 2.25740e-01 , 2.07316e-01 , 1.90396e-01 /) - selfrefo(:,12) = (/ & - & 3.85140e-01 , 3.61989e-01 , 3.40230e-01 , 3.19779e-01 , 3.00557e-01 , & - & 2.82490e-01 , 2.65510e-01 , 2.49550e-01 , 2.34549e-01 , 2.20451e-01 /) - selfrefo(:,13) = (/ & - & 4.87349e-01 , 4.42192e-01 , 4.01220e-01 , 3.64044e-01 , 3.30313e-01 , & - & 2.99707e-01 , 2.71937e-01 , 2.46740e-01 , 2.23878e-01 , 2.03134e-01 /) - selfrefo(:,14) = (/ & - & 5.64339e-01 , 5.06194e-01 , 4.54040e-01 , 4.07259e-01 , 3.65298e-01 , & - & 3.27661e-01 , 2.93901e-01 , 2.63620e-01 , 2.36459e-01 , 2.12096e-01 /) - selfrefo(:,15) = (/ & - & 5.91123e-01 , 5.26420e-01 , 4.68800e-01 , 4.17486e-01 , 3.71790e-01 , & - & 3.31095e-01 , 2.94854e-01 , 2.62580e-01 , 2.33839e-01 , 2.08243e-01 /) - selfrefo(:,16) = (/ & - & 5.04590e-01 , 4.65235e-01 , 4.28950e-01 , 3.95495e-01 , 3.64649e-01 , & - & 3.36209e-01 , 3.09987e-01 , 2.85810e-01 , 2.63519e-01 , 2.42966e-01 /) - - end subroutine lw_kgb03 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_04.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_04.F90 deleted file mode 100644 index bd7763edc..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_04.F90 +++ /dev/null @@ -1,10857 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb04 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg04, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level : P = 142.5940 mbar, T = 215.70 K - fracrefao(:, 1) = (/ & - & 1.5572e-01 ,1.4925e-01 ,1.4107e-01 ,1.3126e-01 ,1.1791e-01 ,1.0173e-01 , & - & 8.2949e-02 ,6.2393e-02 ,4.2146e-02 ,4.5907e-03 ,3.7965e-03 ,2.9744e-03 , & - & 2.2074e-03 ,1.4063e-03 ,5.3012e-04 ,7.4595e-05 /) - fracrefao(:, 2) = (/ & - & 1.5572e-01 ,1.4925e-01 ,1.4107e-01 ,1.3126e-01 ,1.1791e-01 ,1.0173e-01 , & - & 8.2949e-02 ,6.2392e-02 ,4.2146e-02 ,4.5906e-03 ,3.7965e-03 ,2.9745e-03 , & - & 2.2074e-03 ,1.4063e-03 ,5.3012e-04 ,7.4595e-05 /) - fracrefao(:, 3) = (/ & - & 1.5572e-01 ,1.4925e-01 ,1.4107e-01 ,1.3126e-01 ,1.1791e-01 ,1.0173e-01 , & - & 8.2949e-02 ,6.2393e-02 ,4.2146e-02 ,4.5907e-03 ,3.7965e-03 ,2.9745e-03 , & - & 2.2074e-03 ,1.4063e-03 ,5.3012e-04 ,7.4595e-05 /) - fracrefao(:, 4) = (/ & - & 1.5572e-01 ,1.4925e-01 ,1.4107e-01 ,1.3126e-01 ,1.1791e-01 ,1.0173e-01 , & - & 8.2949e-02 ,6.2393e-02 ,4.2146e-02 ,4.5907e-03 ,3.7964e-03 ,2.9744e-03 , & - & 2.2074e-03 ,1.4063e-03 ,5.3012e-04 ,7.4595e-05 /) - fracrefao(:, 5) = (/ & - & 1.5572e-01 ,1.4925e-01 ,1.4107e-01 ,1.3126e-01 ,1.1791e-01 ,1.0173e-01 , & - & 8.2949e-02 ,6.2393e-02 ,4.2146e-02 ,4.5907e-03 ,3.7965e-03 ,2.9744e-03 , & - & 2.2074e-03 ,1.4063e-03 ,5.3012e-04 ,7.4595e-05 /) - fracrefao(:, 6) = (/ & - & 1.5572e-01 ,1.4925e-01 ,1.4107e-01 ,1.3126e-01 ,1.1791e-01 ,1.0173e-01 , & - & 8.2949e-02 ,6.2393e-02 ,4.2146e-02 ,4.5907e-03 ,3.7965e-03 ,2.9744e-03 , & - & 2.2074e-03 ,1.4063e-03 ,5.3012e-04 ,7.4595e-05 /) - fracrefao(:, 7) = (/ & - & 1.5572e-01 ,1.4926e-01 ,1.4107e-01 ,1.3126e-01 ,1.1791e-01 ,1.0173e-01 , & - & 8.2949e-02 ,6.2393e-02 ,4.2146e-02 ,4.5908e-03 ,3.7964e-03 ,2.9745e-03 , & - & 2.2074e-03 ,1.4063e-03 ,5.3012e-04 ,7.4595e-05 /) - fracrefao(:, 8) = (/ & - & 1.5571e-01 ,1.4926e-01 ,1.4107e-01 ,1.3125e-01 ,1.1791e-01 ,1.0173e-01 , & - & 8.2949e-02 ,6.2393e-02 ,4.2146e-02 ,4.5907e-03 ,3.7964e-03 ,2.9744e-03 , & - & 2.2074e-03 ,1.4063e-03 ,5.3012e-04 ,7.4595e-05 /) - fracrefao(:, 9) = (/ & - & 1.5952e-01 ,1.5155e-01 ,1.4217e-01 ,1.3077e-01 ,1.1667e-01 ,1.0048e-01 , & - & 8.1511e-02 ,6.1076e-02 ,4.1111e-02 ,4.4432e-03 ,3.6910e-03 ,2.9076e-03 , & - & 2.1329e-03 ,1.3566e-03 ,5.2235e-04 ,7.9935e-05 /) - -! Planck fraction mapping level : P = 95.58350 mb, T = 215.70 K - fracrefbo(:, 1) = (/ & - & 1.5558e-01 ,1.4931e-01 ,1.4104e-01 ,1.3124e-01 ,1.1793e-01 ,1.0160e-01 , & - & 8.3142e-02 ,6.2403e-02 ,4.2170e-02 ,4.5935e-03 ,3.7976e-03 ,2.9986e-03 , & - & 2.1890e-03 ,1.4061e-03 ,5.3005e-04 ,7.4587e-05 /) - fracrefbo(:, 2) = (/ & - & 1.5558e-01 ,1.4932e-01 ,1.4104e-01 ,1.3124e-01 ,1.1792e-01 ,1.0159e-01 , & - & 8.3142e-02 ,6.2403e-02 ,4.2170e-02 ,4.5935e-03 ,3.7976e-03 ,2.9986e-03 , & - & 2.1890e-03 ,1.4061e-03 ,5.3005e-04 ,7.4587e-05 /) - fracrefbo(:, 3) = (/ & - & 1.5558e-01 ,1.4933e-01 ,1.4103e-01 ,1.3124e-01 ,1.1792e-01 ,1.0159e-01 , & - & 8.3142e-02 ,6.2403e-02 ,4.2170e-02 ,4.5935e-03 ,3.7976e-03 ,2.9986e-03 , & - & 2.1890e-03 ,1.4061e-03 ,5.3005e-04 ,7.4587e-05 /) - fracrefbo(:, 4) = (/ & - & 1.5569e-01 ,1.4926e-01 ,1.4102e-01 ,1.3122e-01 ,1.1791e-01 ,1.0159e-01 , & - & 8.3141e-02 ,6.2403e-02 ,4.2170e-02 ,4.5935e-03 ,3.7976e-03 ,2.9986e-03 , & - & 2.1890e-03 ,1.4061e-03 ,5.3005e-04 ,7.4587e-05 /) - fracrefbo(:, 5) = (/ & - & 1.5947e-01 ,1.5132e-01 ,1.4195e-01 ,1.3061e-01 ,1.1680e-01 ,1.0054e-01 , & - & 8.1785e-02 ,6.1212e-02 ,4.1276e-02 ,4.4424e-03 ,3.6628e-03 ,2.8943e-03 , & - & 2.1134e-03 ,1.3457e-03 ,5.1024e-04 ,7.3998e-05 /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kao(:, 1, 1, 1) = (/ & - &1.0697e-02 ,1.0151e-02 ,9.2549e-03 ,8.2645e-03 ,7.2061e-03 ,6.0662e-03 , & - &4.9816e-03 ,4.8867e-03 ,2.0269e-04 /) - kao(:, 2, 1, 1) = (/ & - &1.1677e-02 ,1.1138e-02 ,1.0216e-02 ,9.1909e-03 ,8.0553e-03 ,6.8223e-03 , & - &5.5408e-03 ,4.6854e-03 ,2.3825e-04 /) - kao(:, 3, 1, 1) = (/ & - &1.2605e-02 ,1.2092e-02 ,1.1179e-02 ,1.0121e-02 ,8.9159e-03 ,7.6027e-03 , & - &6.0392e-03 ,4.3498e-03 ,2.8245e-04 /) - kao(:, 4, 1, 1) = (/ & - &1.3484e-02 ,1.3046e-02 ,1.2153e-02 ,1.1041e-02 ,9.7806e-03 ,8.2921e-03 , & - &6.5023e-03 ,4.3023e-03 ,3.0318e-04 /) - kao(:, 5, 1, 1) = (/ & - &1.4330e-02 ,1.3997e-02 ,1.3114e-02 ,1.1943e-02 ,1.0557e-02 ,8.8567e-03 , & - &6.8709e-03 ,4.3577e-03 ,3.2751e-04 /) - kao(:, 1, 2, 1) = (/ & - &1.3833e-02 ,1.2806e-02 ,1.1465e-02 ,1.0025e-02 ,8.5208e-03 ,6.9589e-03 , & - &5.3336e-03 ,4.2294e-03 ,1.4419e-04 /) - kao(:, 2, 2, 1) = (/ & - &1.5144e-02 ,1.4068e-02 ,1.2644e-02 ,1.1119e-02 ,9.5204e-03 ,7.8236e-03 , & - &6.0220e-03 ,4.4086e-03 ,1.7355e-04 /) - kao(:, 3, 2, 1) = (/ & - &1.6397e-02 ,1.5299e-02 ,1.3819e-02 ,1.2230e-02 ,1.0525e-02 ,8.6894e-03 , & - &6.7322e-03 ,4.5883e-03 ,2.1022e-04 /) - kao(:, 4, 2, 1) = (/ & - &1.7608e-02 ,1.6518e-02 ,1.5010e-02 ,1.3349e-02 ,1.1524e-02 ,9.5665e-03 , & - &7.3586e-03 ,4.7702e-03 ,2.1845e-04 /) - kao(:, 5, 2, 1) = (/ & - &1.8795e-02 ,1.7739e-02 ,1.6211e-02 ,1.4458e-02 ,1.2504e-02 ,1.0367e-02 , & - &7.8746e-03 ,4.9505e-03 ,2.4452e-04 /) - kao(:, 1, 3, 1) = (/ & - &2.3349e-02 ,2.1073e-02 ,1.8534e-02 ,1.5886e-02 ,1.3154e-02 ,1.0346e-02 , & - &7.4749e-03 ,4.5440e-03 ,9.5522e-05 /) - kao(:, 2, 3, 1) = (/ & - &2.5718e-02 ,2.3272e-02 ,2.0503e-02 ,1.7622e-02 ,1.4648e-02 ,1.1596e-02 , & - &8.4531e-03 ,5.1652e-03 ,1.1957e-04 /) - kao(:, 3, 3, 1) = (/ & - &2.8025e-02 ,2.5421e-02 ,2.2452e-02 ,1.9353e-02 ,1.6163e-02 ,1.2876e-02 , & - &9.4440e-03 ,5.8151e-03 ,1.4638e-04 /) - kao(:, 4, 3, 1) = (/ & - &3.0273e-02 ,2.7542e-02 ,2.4400e-02 ,2.1110e-02 ,1.7713e-02 ,1.4169e-02 , & - &1.0445e-02 ,6.4078e-03 ,1.5375e-04 /) - kao(:, 5, 3, 1) = (/ & - &3.2488e-02 ,2.9668e-02 ,2.6366e-02 ,2.2912e-02 ,1.9285e-02 ,1.5463e-02 , & - &1.1411e-02 ,6.9035e-03 ,1.7414e-04 /) - kao(:, 1, 4, 1) = (/ & - &3.9680e-02 ,3.5246e-02 ,3.0687e-02 ,2.5989e-02 ,2.1199e-02 ,1.6340e-02 , & - &1.1394e-02 ,6.3232e-03 ,6.3142e-05 /) - kao(:, 2, 4, 1) = (/ & - &4.4067e-02 ,3.9245e-02 ,3.4186e-02 ,2.8983e-02 ,2.3690e-02 ,1.8315e-02 , & - &1.2835e-02 ,7.2156e-03 ,8.2154e-05 /) - kao(:, 3, 4, 1) = (/ & - &4.8382e-02 ,4.3189e-02 ,3.7634e-02 ,3.1955e-02 ,2.6184e-02 ,2.0317e-02 , & - &1.4329e-02 ,8.1343e-03 ,1.0015e-04 /) - kao(:, 4, 4, 1) = (/ & - &5.2631e-02 ,4.7051e-02 ,4.1069e-02 ,3.4945e-02 ,2.8716e-02 ,2.2361e-02 , & - &1.5856e-02 ,9.0735e-03 ,1.0763e-04 /) - kao(:, 5, 4, 1) = (/ & - &5.6812e-02 ,5.0879e-02 ,4.4486e-02 ,3.7949e-02 ,3.1266e-02 ,2.4439e-02 , & - &1.7397e-02 ,9.9865e-03 ,1.2433e-04 /) - kao(:, 1, 5, 1) = (/ & - &6.1659e-02 ,5.4360e-02 ,4.7000e-02 ,3.9571e-02 ,3.2046e-02 ,2.4431e-02 , & - &1.6731e-02 ,8.9002e-03 ,4.4135e-05 /) - kao(:, 2, 5, 1) = (/ & - &6.9177e-02 ,6.1077e-02 ,5.2885e-02 ,4.4540e-02 ,3.6083e-02 ,2.7553e-02 , & - &1.8920e-02 ,1.0138e-02 ,5.7278e-05 /) - kao(:, 3, 5, 1) = (/ & - &7.6561e-02 ,6.7721e-02 ,5.8676e-02 ,4.9436e-02 ,4.0109e-02 ,3.0675e-02 , & - &2.1149e-02 ,1.1429e-02 ,6.8177e-05 /) - kao(:, 4, 5, 1) = (/ & - &8.3855e-02 ,7.4287e-02 ,6.4398e-02 ,5.4317e-02 ,4.4139e-02 ,3.3855e-02 , & - &2.3434e-02 ,1.2758e-02 ,7.5655e-05 /) - kao(:, 5, 5, 1) = (/ & - &9.1112e-02 ,8.0836e-02 ,7.0093e-02 ,5.9205e-02 ,4.8195e-02 ,3.7076e-02 , & - &2.5757e-02 ,1.4110e-02 ,8.9921e-05 /) - kao(:, 1, 6, 1) = (/ & - &8.8882e-02 ,7.8094e-02 ,6.7257e-02 ,5.6376e-02 ,4.5468e-02 ,3.4471e-02 , & - &2.3372e-02 ,1.2141e-02 ,3.4008e-05 /) - kao(:, 2, 6, 1) = (/ & - &1.0088e-01 ,8.8690e-02 ,7.6454e-02 ,6.4166e-02 ,5.1764e-02 ,3.9256e-02 , & - &2.6651e-02 ,1.3906e-02 ,4.1496e-05 /) - kao(:, 3, 6, 1) = (/ & - &1.1268e-01 ,9.9170e-02 ,8.5584e-02 ,7.1867e-02 ,5.7997e-02 ,4.4019e-02 , & - &2.9951e-02 ,1.5714e-02 ,4.7587e-05 /) - kao(:, 4, 6, 1) = (/ & - &1.2443e-01 ,1.0961e-01 ,9.4686e-02 ,7.9524e-02 ,6.4216e-02 ,4.8825e-02 , & - &3.3307e-02 ,1.7586e-02 ,5.4734e-05 /) - kao(:, 5, 6, 1) = (/ & - &1.3608e-01 ,1.2003e-01 ,1.0372e-01 ,8.7155e-02 ,7.0466e-02 ,5.3660e-02 , & - &3.6716e-02 ,1.9490e-02 ,6.4532e-05 /) - kao(:, 1, 7, 1) = (/ & - &1.3393e-01 ,1.1743e-01 ,1.0091e-01 ,8.4366e-02 ,6.7796e-02 ,5.1191e-02 , & - &3.4487e-02 ,1.7647e-02 ,2.6258e-05 /) - kao(:, 2, 7, 1) = (/ & - &1.5385e-01 ,1.3496e-01 ,1.1603e-01 ,9.7081e-02 ,7.8079e-02 ,5.8981e-02 , & - &3.9763e-02 ,2.0387e-02 ,3.2089e-05 /) - kao(:, 3, 7, 1) = (/ & - &1.7362e-01 ,1.5237e-01 ,1.3107e-01 ,1.0975e-01 ,8.8299e-02 ,6.6730e-02 , & - &4.5023e-02 ,2.3161e-02 ,4.0067e-05 /) - kao(:, 4, 7, 1) = (/ & - &1.9325e-01 ,1.6971e-01 ,1.4609e-01 ,1.2238e-01 ,9.8509e-02 ,7.4481e-02 , & - &5.0334e-02 ,2.5995e-02 ,4.6630e-05 /) - kao(:, 5, 7, 1) = (/ & - &2.1303e-01 ,1.8717e-01 ,1.6126e-01 ,1.3511e-01 ,1.0879e-01 ,8.2319e-02 , & - &5.5720e-02 ,2.8900e-02 ,5.5874e-05 /) - kao(:, 1, 8, 1) = (/ & - &2.4085e-01 ,2.1093e-01 ,1.8102e-01 ,1.5107e-01 ,1.2112e-01 ,9.1137e-02 , & - &6.1112e-02 ,3.0964e-02 ,2.6704e-05 /) - kao(:, 2, 8, 1) = (/ & - &2.8040e-01 ,2.4563e-01 ,2.1082e-01 ,1.7598e-01 ,1.4114e-01 ,1.0627e-01 , & - &7.1313e-02 ,3.6159e-02 ,3.4463e-05 /) - kao(:, 3, 8, 1) = (/ & - &3.1986e-01 ,2.8024e-01 ,2.4058e-01 ,2.0091e-01 ,1.6119e-01 ,1.2143e-01 , & - &8.1504e-02 ,4.1377e-02 ,4.2885e-05 /) - kao(:, 4, 8, 1) = (/ & - &3.5910e-01 ,3.1468e-01 ,2.7026e-01 ,2.2578e-01 ,1.8126e-01 ,1.3658e-01 , & - &9.1734e-02 ,4.6641e-02 ,5.1508e-05 /) - kao(:, 5, 8, 1) = (/ & - &3.9881e-01 ,3.4958e-01 ,3.0035e-01 ,2.5107e-01 ,2.0163e-01 ,1.5198e-01 , & - &1.0212e-01 ,5.2034e-02 ,5.9872e-05 /) - kao(:, 1, 9, 1) = (/ & - &8.1251e-01 ,7.1113e-01 ,6.0978e-01 ,5.0834e-01 ,4.0692e-01 ,3.0549e-01 , & - &2.0401e-01 ,1.0247e-01 ,4.2060e-05 /) - kao(:, 2, 9, 1) = (/ & - &9.6024e-01 ,8.4039e-01 ,7.2060e-01 ,6.0079e-01 ,4.8095e-01 ,3.6106e-01 , & - &2.4120e-01 ,1.2123e-01 ,5.7363e-05 /) - kao(:, 3, 9, 1) = (/ & - &1.1088e+00 ,9.7056e-01 ,8.3222e-01 ,6.9393e-01 ,5.5555e-01 ,4.1720e-01 , & - &2.7875e-01 ,1.4021e-01 ,7.4113e-05 /) - kao(:, 4, 9, 1) = (/ & - &1.2568e+00 ,1.1001e+00 ,9.4342e-01 ,7.8665e-01 ,6.2985e-01 ,4.7311e-01 , & - &3.1630e-01 ,1.5915e-01 ,9.2862e-05 /) - kao(:, 5, 9, 1) = (/ & - &1.4062e+00 ,1.2309e+00 ,1.0557e+00 ,8.8039e-01 ,7.0513e-01 ,5.2977e-01 , & - &3.5432e-01 ,1.7839e-01 ,1.0954e-04 /) - kao(:, 1,10, 1) = (/ & - &3.0868e+00 ,2.7010e+00 ,2.3154e+00 ,1.9296e+00 ,1.5440e+00 ,1.1583e+00 , & - &7.7257e-01 ,3.8682e-01 ,7.9650e-05 /) - kao(:, 2,10, 1) = (/ & - &3.6992e+00 ,3.2371e+00 ,2.7749e+00 ,2.3126e+00 ,1.8504e+00 ,1.3883e+00 , & - &9.2595e-01 ,4.6361e-01 ,1.1315e-04 /) - kao(:, 3,10, 1) = (/ & - &4.3239e+00 ,3.7838e+00 ,3.2436e+00 ,2.7034e+00 ,2.1630e+00 ,1.6228e+00 , & - &1.0824e+00 ,5.4204e-01 ,1.4419e-04 /) - kao(:, 4,10, 1) = (/ & - &4.9483e+00 ,4.3302e+00 ,3.7121e+00 ,3.0937e+00 ,2.4754e+00 ,1.8572e+00 , & - &1.2389e+00 ,6.2062e-01 ,1.7752e-04 /) - kao(:, 5,10, 1) = (/ & - &5.5745e+00 ,4.8780e+00 ,4.1816e+00 ,3.4855e+00 ,2.7890e+00 ,2.0926e+00 , & - &1.3962e+00 ,6.9963e-01 ,2.1449e-04 /) - kao(:, 1,11, 1) = (/ & - &4.4731e+00 ,3.9138e+00 ,3.3549e+00 ,2.7960e+00 ,2.2371e+00 ,1.6781e+00 , & - &1.1191e+00 ,5.6013e-01 ,1.1739e-04 /) - kao(:, 2,11, 1) = (/ & - &5.3673e+00 ,4.6967e+00 ,4.0260e+00 ,3.3552e+00 ,2.6847e+00 ,2.0138e+00 , & - &1.3431e+00 ,6.7224e-01 ,1.4272e-04 /) - kao(:, 3,11, 1) = (/ & - &6.2805e+00 ,5.4954e+00 ,4.7109e+00 ,3.9260e+00 ,3.1412e+00 ,2.3563e+00 , & - &1.5716e+00 ,7.8663e-01 ,1.8731e-04 /) - kao(:, 4,11, 1) = (/ & - &7.1941e+00 ,6.2951e+00 ,5.3963e+00 ,4.4973e+00 ,3.5984e+00 ,2.6993e+00 , & - &1.8005e+00 ,9.0138e-01 ,2.2429e-04 /) - kao(:, 5,11, 1) = (/ & - &8.1084e+00 ,7.0952e+00 ,6.0822e+00 ,5.0692e+00 ,4.0560e+00 ,3.0428e+00 , & - &2.0297e+00 ,1.0163e+00 ,2.6588e-04 /) - kao(:, 1,12, 1) = (/ & - &4.8324e+00 ,4.2285e+00 ,3.6244e+00 ,3.0205e+00 ,2.4167e+00 ,1.8130e+00 , & - &1.2091e+00 ,6.0509e-01 ,1.2228e-04 /) - kao(:, 2,12, 1) = (/ & - &5.8007e+00 ,5.0761e+00 ,4.3512e+00 ,3.6264e+00 ,2.9012e+00 ,2.1763e+00 , & - &1.4515e+00 ,7.2651e-01 ,1.6183e-04 /) - kao(:, 3,12, 1) = (/ & - &6.7955e+00 ,5.9463e+00 ,5.0972e+00 ,4.2481e+00 ,3.3989e+00 ,2.5498e+00 , & - &1.7005e+00 ,8.5109e-01 ,1.9622e-04 /) - kao(:, 4,12, 1) = (/ & - &7.7871e+00 ,6.8141e+00 ,5.8412e+00 ,4.8680e+00 ,3.8949e+00 ,2.9218e+00 , & - &1.9487e+00 ,9.7554e-01 ,2.4527e-04 /) - kao(:, 5,12, 1) = (/ & - &8.7731e+00 ,7.6770e+00 ,6.5805e+00 ,5.4843e+00 ,4.3883e+00 ,3.2921e+00 , & - &2.1959e+00 ,1.0994e+00 ,2.9421e-04 /) - kao(:, 1,13, 1) = (/ & - &4.1936e+00 ,3.6695e+00 ,3.1456e+00 ,2.6217e+00 ,2.0976e+00 ,1.5735e+00 , & - &1.0495e+00 ,5.2527e-01 ,1.1808e-04 /) - kao(:, 2,13, 1) = (/ & - &5.0398e+00 ,4.4101e+00 ,3.7804e+00 ,3.1506e+00 ,2.5209e+00 ,1.8912e+00 , & - &1.2614e+00 ,6.3136e-01 ,1.5519e-04 /) - kao(:, 3,13, 1) = (/ & - &5.9030e+00 ,5.1655e+00 ,4.4278e+00 ,3.6903e+00 ,2.9527e+00 ,2.2152e+00 , & - &1.4774e+00 ,7.3950e-01 ,1.9283e-04 /) - kao(:, 4,13, 1) = (/ & - &6.7598e+00 ,5.9151e+00 ,5.0706e+00 ,4.2260e+00 ,3.3815e+00 ,2.5368e+00 , & - &1.6919e+00 ,8.4706e-01 ,2.3479e-04 /) - kao(:, 5,13, 1) = (/ & - &7.6160e+00 ,6.6645e+00 ,5.7130e+00 ,4.7615e+00 ,3.8100e+00 ,2.8583e+00 , & - &1.9066e+00 ,9.5472e-01 ,2.9034e-04 /) - kao(:, 1, 1, 2) = (/ & - &2.4501e-02 ,2.2546e-02 ,2.0206e-02 ,1.7580e-02 ,1.4733e-02 ,1.1757e-02 , & - &8.5871e-03 ,4.9715e-03 ,4.1358e-04 /) - kao(:, 2, 1, 2) = (/ & - &2.5392e-02 ,2.3504e-02 ,2.1061e-02 ,1.8282e-02 ,1.5340e-02 ,1.2238e-02 , & - &8.8921e-03 ,5.1114e-03 ,3.8966e-04 /) - kao(:, 3, 1, 2) = (/ & - &2.6027e-02 ,2.4221e-02 ,2.1673e-02 ,1.8830e-02 ,1.5807e-02 ,1.2525e-02 , & - &9.1668e-03 ,5.5997e-03 ,3.7711e-04 /) - kao(:, 4, 1, 2) = (/ & - &2.6673e-02 ,2.4919e-02 ,2.2282e-02 ,1.9349e-02 ,1.6139e-02 ,1.2835e-02 , & - &9.4247e-03 ,5.9143e-03 ,4.3807e-04 /) - kao(:, 5, 1, 2) = (/ & - &2.7193e-02 ,2.5447e-02 ,2.2733e-02 ,1.9712e-02 ,1.6469e-02 ,1.3190e-02 , & - &9.7078e-03 ,6.2746e-03 ,5.1500e-04 /) - kao(:, 1, 2, 2) = (/ & - &3.1935e-02 ,2.8971e-02 ,2.5689e-02 ,2.2139e-02 ,1.8357e-02 ,1.4398e-02 , & - &1.0314e-02 ,5.7860e-03 ,2.7704e-04 /) - kao(:, 2, 2, 2) = (/ & - &3.3322e-02 ,3.0388e-02 ,2.6935e-02 ,2.3180e-02 ,1.9196e-02 ,1.5076e-02 , & - &1.0778e-02 ,6.0195e-03 ,2.7933e-04 /) - kao(:, 3, 2, 2) = (/ & - &3.4372e-02 ,3.1484e-02 ,2.7888e-02 ,2.3966e-02 ,1.9860e-02 ,1.5585e-02 , & - &1.1079e-02 ,6.3448e-03 ,2.7118e-04 /) - kao(:, 4, 2, 2) = (/ & - &3.5247e-02 ,3.2382e-02 ,2.8654e-02 ,2.4627e-02 ,2.0404e-02 ,1.5949e-02 , & - &1.1392e-02 ,6.6539e-03 ,3.3360e-04 /) - kao(:, 5, 2, 2) = (/ & - &3.6022e-02 ,3.3132e-02 ,2.9304e-02 ,2.5200e-02 ,2.0861e-02 ,1.6331e-02 , & - &1.1785e-02 ,6.9927e-03 ,3.9477e-04 /) - kao(:, 1, 3, 2) = (/ & - &5.5981e-02 ,4.9895e-02 ,4.3680e-02 ,3.7190e-02 ,3.0485e-02 ,2.3562e-02 , & - &1.6425e-02 ,9.0449e-03 ,1.7015e-04 /) - kao(:, 2, 3, 2) = (/ & - &5.8799e-02 ,5.2631e-02 ,4.6091e-02 ,3.9226e-02 ,3.2137e-02 ,2.4836e-02 , & - &1.7301e-02 ,9.5109e-03 ,1.8305e-04 /) - kao(:, 3, 3, 2) = (/ & - &6.0996e-02 ,5.4813e-02 ,4.8006e-02 ,4.0820e-02 ,3.3414e-02 ,2.5787e-02 , & - &1.7985e-02 ,9.8187e-03 ,1.8905e-04 /) - kao(:, 4, 3, 2) = (/ & - &6.2707e-02 ,5.6481e-02 ,4.9388e-02 ,4.1983e-02 ,3.4344e-02 ,2.6526e-02 , & - &1.8461e-02 ,1.0117e-02 ,2.4096e-04 /) - kao(:, 5, 3, 2) = (/ & - &6.4195e-02 ,5.7890e-02 ,5.0593e-02 ,4.2977e-02 ,3.5166e-02 ,2.7170e-02 , & - &1.8910e-02 ,1.0511e-02 ,2.9172e-04 /) - kao(:, 1, 4, 2) = (/ & - &1.0046e-01 ,8.8696e-02 ,7.6950e-02 ,6.5010e-02 ,5.2854e-02 ,4.0445e-02 , & - &2.7753e-02 ,1.4715e-02 ,1.1527e-04 /) - kao(:, 2, 4, 2) = (/ & - &1.0584e-01 ,9.3644e-02 ,8.1343e-02 ,6.8725e-02 ,5.5817e-02 ,4.2663e-02 , & - &2.9258e-02 ,1.5519e-02 ,1.2102e-04 /) - kao(:, 3, 4, 2) = (/ & - &1.1041e-01 ,9.7926e-02 ,8.5123e-02 ,7.1882e-02 ,5.8341e-02 ,4.4558e-02 , & - &3.0554e-02 ,1.6224e-02 ,1.3450e-04 /) - kao(:, 4, 4, 2) = (/ & - &1.1403e-01 ,1.0136e-01 ,8.8078e-02 ,7.4319e-02 ,6.0266e-02 ,4.6028e-02 , & - &3.1549e-02 ,1.6730e-02 ,1.7483e-04 /) - kao(:, 5, 4, 2) = (/ & - &1.1675e-01 ,1.0391e-01 ,9.0226e-02 ,7.6062e-02 ,6.1699e-02 ,4.7119e-02 , & - &3.2315e-02 ,1.7160e-02 ,2.1415e-04 /) - kao(:, 1, 5, 2) = (/ & - &1.6440e-01 ,1.4448e-01 ,1.2464e-01 ,1.0475e-01 ,8.4706e-02 ,6.4458e-02 , & - &4.3883e-02 ,2.2824e-02 ,7.5213e-05 /) - kao(:, 2, 5, 2) = (/ & - &1.7418e-01 ,1.5330e-01 ,1.3243e-01 ,1.1140e-01 ,9.0109e-02 ,6.8519e-02 , & - &4.6576e-02 ,2.4202e-02 ,8.0510e-05 /) - kao(:, 3, 5, 2) = (/ & - &1.8254e-01 ,1.6088e-01 ,1.3912e-01 ,1.1702e-01 ,9.4586e-02 ,7.1837e-02 , & - &4.8767e-02 ,2.5350e-02 ,9.6196e-05 /) - kao(:, 4, 5, 2) = (/ & - &1.8937e-01 ,1.6713e-01 ,1.4454e-01 ,1.2155e-01 ,9.8195e-02 ,7.4514e-02 , & - &5.0569e-02 ,2.6308e-02 ,1.2696e-04 /) - kao(:, 5, 5, 2) = (/ & - &1.9452e-01 ,1.7183e-01 ,1.4864e-01 ,1.2495e-01 ,1.0086e-01 ,7.6520e-02 , & - &5.1964e-02 ,2.7040e-02 ,1.5611e-04 /) - kao(:, 1, 6, 2) = (/ & - &2.4921e-01 ,2.1859e-01 ,1.8798e-01 ,1.5740e-01 ,1.2679e-01 ,9.6030e-02 , & - &6.5011e-02 ,3.3513e-02 ,4.7816e-05 /) - kao(:, 2, 6, 2) = (/ & - &2.6657e-01 ,2.3398e-01 ,2.0147e-01 ,1.6890e-01 ,1.3619e-01 ,1.0322e-01 , & - &6.9866e-02 ,3.5915e-02 ,5.5771e-05 /) - kao(:, 3, 6, 2) = (/ & - &2.8078e-01 ,2.4667e-01 ,2.1258e-01 ,1.7831e-01 ,1.4376e-01 ,1.0887e-01 , & - &7.3553e-02 ,3.7752e-02 ,7.2324e-05 /) - kao(:, 4, 6, 2) = (/ & - &2.9281e-01 ,2.5752e-01 ,2.2202e-01 ,1.8622e-01 ,1.5008e-01 ,1.1356e-01 , & - &7.6693e-02 ,3.9339e-02 ,9.1831e-05 /) - kao(:, 5, 6, 2) = (/ & - &3.0221e-01 ,2.6598e-01 ,2.2929e-01 ,1.9231e-01 ,1.5490e-01 ,1.1717e-01 , & - &7.9072e-02 ,4.0614e-02 ,1.1670e-04 /) - kao(:, 1, 7, 2) = (/ & - &3.9471e-01 ,3.4576e-01 ,2.9687e-01 ,2.4797e-01 ,1.9909e-01 ,1.5016e-01 , & - &1.0112e-01 ,5.1719e-02 ,4.5280e-05 /) - kao(:, 2, 7, 2) = (/ & - &4.2660e-01 ,3.7391e-01 ,3.2118e-01 ,2.6853e-01 ,2.1577e-01 ,1.6297e-01 , & - &1.0986e-01 ,5.6145e-02 ,5.4459e-05 /) - kao(:, 3, 7, 2) = (/ & - &4.5301e-01 ,3.9723e-01 ,3.4149e-01 ,2.8568e-01 ,2.2975e-01 ,1.7359e-01 , & - &1.1695e-01 ,5.9583e-02 ,6.4819e-05 /) - kao(:, 4, 7, 2) = (/ & - &4.7467e-01 ,4.1649e-01 ,3.5820e-01 ,2.9973e-01 ,2.4109e-01 ,1.8208e-01 , & - &1.2251e-01 ,6.2380e-02 ,7.8660e-05 /) - kao(:, 5, 7, 2) = (/ & - &4.9199e-01 ,4.3192e-01 ,3.7144e-01 ,3.1090e-01 ,2.5000e-01 ,1.8865e-01 , & - &1.2686e-01 ,6.4563e-02 ,9.4184e-05 /) - kao(:, 1, 8, 2) = (/ & - &7.4598e-01 ,6.5300e-01 ,5.6009e-01 ,4.6718e-01 ,3.7433e-01 ,2.8142e-01 , & - &1.8848e-01 ,9.5403e-02 ,4.9176e-05 /) - kao(:, 2, 8, 2) = (/ & - &8.1434e-01 ,7.1301e-01 ,6.1173e-01 ,5.1044e-01 ,4.0917e-01 ,3.0788e-01 , & - &2.0653e-01 ,1.0477e-01 ,6.1468e-05 /) - kao(:, 3, 8, 2) = (/ & - &8.7268e-01 ,7.6440e-01 ,6.5604e-01 ,5.4759e-01 ,4.3920e-01 ,3.3065e-01 , & - &2.2200e-01 ,1.1269e-01 ,7.5902e-05 /) - kao(:, 4, 8, 2) = (/ & - &9.2025e-01 ,8.0619e-01 ,6.9208e-01 ,5.7794e-01 ,4.6363e-01 ,3.4928e-01 , & - &2.3455e-01 ,1.1876e-01 ,9.2466e-05 /) - kao(:, 5, 8, 2) = (/ & - &9.5892e-01 ,8.4025e-01 ,7.2136e-01 ,6.0245e-01 ,4.8344e-01 ,3.6420e-01 , & - &2.4431e-01 ,1.2353e-01 ,1.1186e-04 /) - kao(:, 1, 9, 2) = (/ & - &2.6457e+00 ,2.3152e+00 ,1.9846e+00 ,1.6541e+00 ,1.3236e+00 ,9.9317e-01 , & - &6.6276e-01 ,3.3240e-01 ,8.9892e-05 /) - kao(:, 2, 9, 2) = (/ & - &2.9186e+00 ,2.5541e+00 ,2.1896e+00 ,1.8252e+00 ,1.4607e+00 ,1.0963e+00 , & - &7.3190e-01 ,3.6751e-01 ,1.0914e-04 /) - kao(:, 3, 9, 2) = (/ & - &3.1587e+00 ,2.7643e+00 ,2.3700e+00 ,1.9759e+00 ,1.5816e+00 ,1.1873e+00 , & - &7.9301e-01 ,3.9869e-01 ,1.2624e-04 /) - kao(:, 4, 9, 2) = (/ & - &3.3556e+00 ,2.9370e+00 ,2.5183e+00 ,2.0996e+00 ,1.6808e+00 ,1.2622e+00 , & - &8.4339e-01 ,4.2436e-01 ,1.5596e-04 /) - kao(:, 5, 9, 2) = (/ & - &3.5177e+00 ,3.0788e+00 ,2.6401e+00 ,2.2013e+00 ,1.7625e+00 ,1.3234e+00 , & - &8.8445e-01 ,4.4528e-01 ,1.9369e-04 /) - kao(:, 1,10, 2) = (/ & - &1.0501e+01 ,9.1884e+00 ,7.8763e+00 ,6.5637e+00 ,5.2509e+00 ,3.9387e+00 , & - &2.6260e+00 ,1.3137e+00 ,1.7951e-04 /) - kao(:, 2,10, 2) = (/ & - &1.1694e+01 ,1.0233e+01 ,8.7714e+00 ,7.3095e+00 ,5.8477e+00 ,4.3863e+00 , & - &2.9249e+00 ,1.4636e+00 ,2.1880e-04 /) - kao(:, 3,10, 2) = (/ & - &1.2771e+01 ,1.1175e+01 ,9.5787e+00 ,7.9832e+00 ,6.3867e+00 ,4.7910e+00 , & - &3.1952e+00 ,1.5993e+00 ,2.5504e-04 /) - kao(:, 4,10, 2) = (/ & - &1.3661e+01 ,1.1954e+01 ,1.0247e+01 ,8.5403e+00 ,6.8331e+00 ,5.1260e+00 , & - &3.4191e+00 ,1.7121e+00 ,3.1556e-04 /) - kao(:, 5,10, 2) = (/ & - &1.4403e+01 ,1.2603e+01 ,1.0804e+01 ,9.0041e+00 ,7.2046e+00 ,5.4047e+00 , & - &3.6050e+00 ,1.8055e+00 ,3.5095e-04 /) - kao(:, 1,11, 2) = (/ & - &1.5305e+01 ,1.3391e+01 ,1.1479e+01 ,9.5654e+00 ,7.6527e+00 ,5.7399e+00 , & - &3.8269e+00 ,1.9139e+00 ,2.5263e-04 /) - kao(:, 2,11, 2) = (/ & - &1.7053e+01 ,1.4921e+01 ,1.2790e+01 ,1.0658e+01 ,8.5272e+00 ,6.3954e+00 , & - &4.2646e+00 ,2.1334e+00 ,3.2671e-04 /) - kao(:, 3,11, 2) = (/ & - &1.8597e+01 ,1.6273e+01 ,1.3949e+01 ,1.1625e+01 ,9.3007e+00 ,6.9759e+00 , & - &4.6520e+00 ,2.3277e+00 ,3.9618e-04 /) - kao(:, 4,11, 2) = (/ & - &1.9894e+01 ,1.7409e+01 ,1.4922e+01 ,1.2436e+01 ,9.9497e+00 ,7.4632e+00 , & - &4.9771e+00 ,2.4907e+00 ,4.6029e-04 /) - kao(:, 5,11, 2) = (/ & - &2.0957e+01 ,1.8337e+01 ,1.5718e+01 ,1.3099e+01 ,1.0480e+01 ,7.8611e+00 , & - &5.2427e+00 ,2.6238e+00 ,5.1000e-04 /) - kao(:, 1,12, 2) = (/ & - &1.6595e+01 ,1.4521e+01 ,1.2446e+01 ,1.0372e+01 ,8.2975e+00 ,6.2234e+00 , & - &4.1492e+00 ,2.0749e+00 ,2.8721e-04 /) - kao(:, 2,12, 2) = (/ & - &1.8487e+01 ,1.6178e+01 ,1.3866e+01 ,1.1556e+01 ,9.2444e+00 ,6.9339e+00 , & - &4.6231e+00 ,2.3126e+00 ,3.5210e-04 /) - kao(:, 3,12, 2) = (/ & - &2.0157e+01 ,1.7638e+01 ,1.5119e+01 ,1.2600e+01 ,1.0080e+01 ,7.5607e+00 , & - &5.0414e+00 ,2.5223e+00 ,4.4248e-04 /) - kao(:, 4,12, 2) = (/ & - &2.1568e+01 ,1.8872e+01 ,1.6176e+01 ,1.3480e+01 ,1.0785e+01 ,8.0897e+00 , & - &5.3945e+00 ,2.6993e+00 ,5.0244e-04 /) - kao(:, 5,12, 2) = (/ & - &2.2671e+01 ,1.9838e+01 ,1.7004e+01 ,1.4170e+01 ,1.1337e+01 ,8.5042e+00 , & - &5.6711e+00 ,2.8381e+00 ,5.5567e-04 /) - kao(:, 1,13, 2) = (/ & - &1.4451e+01 ,1.2644e+01 ,1.0838e+01 ,9.0321e+00 ,7.2259e+00 ,5.4197e+00 , & - &3.6133e+00 ,1.8070e+00 ,2.7932e-04 /) - kao(:, 2,13, 2) = (/ & - &1.6097e+01 ,1.4085e+01 ,1.2073e+01 ,1.0061e+01 ,8.0489e+00 ,6.0372e+00 , & - &4.0253e+00 ,2.0137e+00 ,3.2799e-04 /) - kao(:, 3,13, 2) = (/ & - &1.7564e+01 ,1.5369e+01 ,1.3173e+01 ,1.0978e+01 ,8.7826e+00 ,6.5876e+00 , & - &4.3925e+00 ,2.1975e+00 ,4.0780e-04 /) - kao(:, 4,13, 2) = (/ & - &1.8771e+01 ,1.6426e+01 ,1.4079e+01 ,1.1733e+01 ,9.3868e+00 ,7.0409e+00 , & - &4.6954e+00 ,2.3495e+00 ,5.0230e-04 /) - kao(:, 5,13, 2) = (/ & - &1.9694e+01 ,1.7232e+01 ,1.4771e+01 ,1.2310e+01 ,9.8489e+00 ,7.3875e+00 , & - &4.9264e+00 ,2.4656e+00 ,5.5102e-04 /) - kao(:, 1, 1, 3) = (/ & - &3.7564e-02 ,3.3492e-02 ,2.9385e-02 ,2.5064e-02 ,2.0679e-02 ,1.6159e-02 , & - &1.1502e-02 ,6.5367e-03 ,3.9794e-04 /) - kao(:, 2, 1, 3) = (/ & - &3.6916e-02 ,3.3151e-02 ,2.9160e-02 ,2.5018e-02 ,2.0751e-02 ,1.6389e-02 , & - &1.1901e-02 ,7.2678e-03 ,5.4686e-04 /) - kao(:, 3, 1, 3) = (/ & - &3.6399e-02 ,3.2903e-02 ,2.9031e-02 ,2.5012e-02 ,2.0900e-02 ,1.6718e-02 , & - &1.2389e-02 ,8.0801e-03 ,7.4220e-04 /) - kao(:, 4, 1, 3) = (/ & - &3.6126e-02 ,3.2782e-02 ,2.9047e-02 ,2.5198e-02 ,2.1279e-02 ,1.7152e-02 , & - &1.3045e-02 ,8.9482e-03 ,8.9478e-04 /) - kao(:, 5, 1, 3) = (/ & - &3.5996e-02 ,3.2833e-02 ,2.9270e-02 ,2.5593e-02 ,2.1712e-02 ,1.7723e-02 , & - &1.3812e-02 ,9.7243e-03 ,1.0975e-03 /) - kao(:, 1, 2, 3) = (/ & - &4.9545e-02 ,4.3840e-02 ,3.8273e-02 ,3.2472e-02 ,2.6558e-02 ,2.0510e-02 , & - &1.4332e-02 ,7.7992e-03 ,3.0769e-04 /) - kao(:, 2, 2, 3) = (/ & - &4.8709e-02 ,4.3359e-02 ,3.7969e-02 ,3.2304e-02 ,2.6513e-02 ,2.0603e-02 , & - &1.4626e-02 ,8.4051e-03 ,4.1476e-04 /) - kao(:, 3, 2, 3) = (/ & - &4.8165e-02 ,4.3120e-02 ,3.7795e-02 ,3.2248e-02 ,2.6570e-02 ,2.0838e-02 , & - &1.4977e-02 ,8.9685e-03 ,5.6832e-04 /) - kao(:, 4, 2, 3) = (/ & - &4.7962e-02 ,4.3077e-02 ,3.7844e-02 ,3.2393e-02 ,2.6873e-02 ,2.1238e-02 , & - &1.5407e-02 ,9.6431e-03 ,6.7745e-04 /) - kao(:, 5, 2, 3) = (/ & - &4.8025e-02 ,4.3378e-02 ,3.8202e-02 ,3.2847e-02 ,2.7374e-02 ,2.1742e-02 , & - &1.5999e-02 ,1.0391e-02 ,8.3539e-04 /) - kao(:, 1, 3, 3) = (/ & - &8.8120e-02 ,7.7386e-02 ,6.6977e-02 ,5.6500e-02 ,4.5838e-02 ,3.5027e-02 , & - &2.3995e-02 ,1.2704e-02 ,2.2676e-04 /) - kao(:, 2, 3, 3) = (/ & - &8.6799e-02 ,7.6419e-02 ,6.6419e-02 ,5.6119e-02 ,4.5623e-02 ,3.4916e-02 , & - &2.4025e-02 ,1.3004e-02 ,3.0168e-04 /) - kao(:, 3, 3, 3) = (/ & - &8.6001e-02 ,7.6005e-02 ,6.6184e-02 ,5.6008e-02 ,4.5591e-02 ,3.4990e-02 , & - &2.4263e-02 ,1.3424e-02 ,3.9676e-04 /) - kao(:, 4, 3, 3) = (/ & - &8.5691e-02 ,7.5994e-02 ,6.6270e-02 ,5.6158e-02 ,4.5788e-02 ,3.5296e-02 , & - &2.4707e-02 ,1.3830e-02 ,4.9186e-04 /) - kao(:, 5, 3, 3) = (/ & - &8.6172e-02 ,7.6716e-02 ,6.6965e-02 ,5.6820e-02 ,4.6489e-02 ,3.5977e-02 , & - &2.5332e-02 ,1.4387e-02 ,6.1173e-04 /) - kao(:, 1, 4, 3) = (/ & - &1.6100e-01 ,1.4106e-01 ,1.2117e-01 ,1.0160e-01 ,8.1953e-02 ,6.2189e-02 , & - &4.2184e-02 ,2.1860e-02 ,1.5920e-04 /) - kao(:, 2, 4, 3) = (/ & - &1.5854e-01 ,1.3897e-01 ,1.1977e-01 ,1.0067e-01 ,8.1408e-02 ,6.1866e-02 , & - &4.2083e-02 ,2.1896e-02 ,2.1901e-04 /) - kao(:, 3, 4, 3) = (/ & - &1.5713e-01 ,1.3793e-01 ,1.1924e-01 ,1.0046e-01 ,8.1310e-02 ,6.1926e-02 , & - &4.2176e-02 ,2.2134e-02 ,2.8281e-04 /) - kao(:, 4, 4, 3) = (/ & - &1.5680e-01 ,1.3795e-01 ,1.1956e-01 ,1.0071e-01 ,8.1588e-02 ,6.2136e-02 , & - &4.2469e-02 ,2.2574e-02 ,3.5509e-04 /) - kao(:, 5, 4, 3) = (/ & - &1.5807e-01 ,1.3940e-01 ,1.2093e-01 ,1.0191e-01 ,8.2580e-02 ,6.3036e-02 , & - &4.3252e-02 ,2.3169e-02 ,4.4437e-04 /) - kao(:, 1, 5, 3) = (/ & - &2.7295e-01 ,2.3896e-01 ,2.0497e-01 ,1.7107e-01 ,1.3742e-01 ,1.0372e-01 , & - &6.9897e-02 ,3.5756e-02 ,1.1345e-04 /) - kao(:, 2, 5, 3) = (/ & - &2.6909e-01 ,2.3567e-01 ,2.0228e-01 ,1.6922e-01 ,1.3618e-01 ,1.0303e-01 , & - &6.9598e-02 ,3.5741e-02 ,1.5887e-04 /) - kao(:, 3, 5, 3) = (/ & - &2.6654e-01 ,2.3348e-01 ,2.0077e-01 ,1.6833e-01 ,1.3583e-01 ,1.0288e-01 , & - &6.9627e-02 ,3.5834e-02 ,2.0432e-04 /) - kao(:, 4, 5, 3) = (/ & - &2.6633e-01 ,2.3346e-01 ,2.0125e-01 ,1.6903e-01 ,1.3632e-01 ,1.0334e-01 , & - &6.9968e-02 ,3.6152e-02 ,2.5784e-04 /) - kao(:, 5, 5, 3) = (/ & - &2.6868e-01 ,2.3592e-01 ,2.0366e-01 ,1.7109e-01 ,1.3803e-01 ,1.0467e-01 , & - &7.0932e-02 ,3.6877e-02 ,3.2436e-04 /) - kao(:, 1, 6, 3) = (/ & - &4.3357e-01 ,3.7951e-01 ,3.2542e-01 ,2.7129e-01 ,2.1728e-01 ,1.6346e-01 , & - &1.0964e-01 ,5.5662e-02 ,8.3325e-05 /) - kao(:, 2, 6, 3) = (/ & - &4.2794e-01 ,3.7459e-01 ,3.2123e-01 ,2.6798e-01 ,2.1494e-01 ,1.6197e-01 , & - &1.0894e-01 ,5.5488e-02 ,1.1433e-04 /) - kao(:, 3, 6, 3) = (/ & - &4.2362e-01 ,3.7090e-01 ,3.1822e-01 ,2.6585e-01 ,2.1359e-01 ,1.6133e-01 , & - &1.0870e-01 ,5.5444e-02 ,1.4294e-04 /) - kao(:, 4, 6, 3) = (/ & - &4.2356e-01 ,3.7092e-01 ,3.1860e-01 ,2.6656e-01 ,2.1457e-01 ,1.6217e-01 , & - &1.0928e-01 ,5.5858e-02 ,1.8487e-04 /) - kao(:, 5, 6, 3) = (/ & - &4.2732e-01 ,3.7444e-01 ,3.2213e-01 ,2.6992e-01 ,2.1742e-01 ,1.6433e-01 , & - &1.1084e-01 ,5.6756e-02 ,2.3367e-04 /) - kao(:, 1, 7, 3) = (/ & - &7.2201e-01 ,6.3185e-01 ,5.4168e-01 ,4.5148e-01 ,3.6131e-01 ,2.7123e-01 , & - &1.8131e-01 ,9.1347e-02 ,6.1051e-05 /) - kao(:, 2, 7, 3) = (/ & - &7.1295e-01 ,6.2391e-01 ,5.3487e-01 ,4.4585e-01 ,3.5694e-01 ,2.6824e-01 , & - &1.7961e-01 ,9.0876e-02 ,8.2662e-05 /) - kao(:, 3, 7, 3) = (/ & - &7.0704e-01 ,6.1882e-01 ,5.3061e-01 ,4.4252e-01 ,3.5463e-01 ,2.6681e-01 , & - &1.7908e-01 ,9.0926e-02 ,1.0796e-04 /) - kao(:, 4, 7, 3) = (/ & - &7.0657e-01 ,6.1841e-01 ,5.3039e-01 ,4.4278e-01 ,3.5513e-01 ,2.6769e-01 , & - &1.7995e-01 ,9.1305e-02 ,1.3920e-04 /) - kao(:, 5, 7, 3) = (/ & - &7.1310e-01 ,6.2430e-01 ,5.3600e-01 ,4.4782e-01 ,3.5976e-01 ,2.7158e-01 , & - &1.8261e-01 ,9.2814e-02 ,1.7572e-04 /) - kao(:, 1, 8, 3) = (/ & - &1.4344e+00 ,1.2551e+00 ,1.0759e+00 ,8.9667e-01 ,7.1735e-01 ,5.3821e-01 , & - &3.5899e-01 ,1.8011e-01 ,7.5748e-05 /) - kao(:, 2, 8, 3) = (/ & - &1.4191e+00 ,1.2419e+00 ,1.0645e+00 ,8.8713e-01 ,7.0979e-01 ,5.3268e-01 , & - &3.5557e-01 ,1.7867e-01 ,9.9921e-05 /) - kao(:, 3, 8, 3) = (/ & - &1.4086e+00 ,1.2327e+00 ,1.0566e+00 ,8.8065e-01 ,7.0478e-01 ,5.2920e-01 , & - &3.5364e-01 ,1.7813e-01 ,1.2236e-04 /) - kao(:, 4, 8, 3) = (/ & - &1.4087e+00 ,1.2327e+00 ,1.0568e+00 ,8.8106e-01 ,7.0553e-01 ,5.2998e-01 , & - &3.5460e-01 ,1.7919e-01 ,1.5414e-04 /) - kao(:, 5, 8, 3) = (/ & - &1.4217e+00 ,1.2444e+00 ,1.0672e+00 ,8.9025e-01 ,7.1327e-01 ,5.3627e-01 , & - &3.5965e-01 ,1.8202e-01 ,1.9115e-04 /) - kao(:, 1, 9, 3) = (/ & - &5.3656e+00 ,4.6949e+00 ,4.0244e+00 ,3.3536e+00 ,2.6829e+00 ,2.0124e+00 , & - &1.3418e+00 ,6.7121e-01 ,1.2938e-04 /) - kao(:, 2, 9, 3) = (/ & - &5.3249e+00 ,4.6593e+00 ,3.9938e+00 ,3.3284e+00 ,2.6628e+00 ,1.9972e+00 , & - &1.3317e+00 ,6.6623e-01 ,1.6248e-04 /) - kao(:, 3, 9, 3) = (/ & - &5.2842e+00 ,4.6238e+00 ,3.9633e+00 ,3.3029e+00 ,2.6426e+00 ,1.9822e+00 , & - &1.3219e+00 ,6.6174e-01 ,2.1505e-04 /) - kao(:, 4, 9, 3) = (/ & - &5.2909e+00 ,4.6297e+00 ,3.9685e+00 ,3.3074e+00 ,2.6461e+00 ,1.9850e+00 , & - &1.3243e+00 ,6.6344e-01 ,2.5323e-04 /) - kao(:, 5, 9, 3) = (/ & - &5.3328e+00 ,4.6665e+00 ,4.0003e+00 ,3.3342e+00 ,2.6682e+00 ,2.0021e+00 , & - &1.3361e+00 ,6.6998e-01 ,2.8724e-04 /) - kao(:, 1,10, 3) = (/ & - &2.2338e+01 ,1.9545e+01 ,1.6753e+01 ,1.3961e+01 ,1.1170e+01 ,8.3767e+00 , & - &5.5849e+00 ,2.7925e+00 ,2.7123e-04 /) - kao(:, 2,10, 3) = (/ & - &2.2247e+01 ,1.9467e+01 ,1.6686e+01 ,1.3905e+01 ,1.1124e+01 ,8.3431e+00 , & - &5.5623e+00 ,2.7817e+00 ,3.3076e-04 /) - kao(:, 3,10, 3) = (/ & - &2.2079e+01 ,1.9319e+01 ,1.6560e+01 ,1.3800e+01 ,1.1040e+01 ,8.2801e+00 , & - &5.5205e+00 ,2.7607e+00 ,4.2235e-04 /) - kao(:, 4,10, 3) = (/ & - &2.2133e+01 ,1.9366e+01 ,1.6600e+01 ,1.3833e+01 ,1.1067e+01 ,8.3005e+00 , & - &5.5343e+00 ,2.7680e+00 ,4.8628e-04 /) - kao(:, 5,10, 3) = (/ & - &2.2337e+01 ,1.9545e+01 ,1.6754e+01 ,1.3962e+01 ,1.1171e+01 ,8.3788e+00 , & - &5.5873e+00 ,2.7956e+00 ,6.0636e-04 /) - kao(:, 1,11, 3) = (/ & - &3.2372e+01 ,2.8324e+01 ,2.4279e+01 ,2.0232e+01 ,1.6186e+01 ,1.2140e+01 , & - &8.0929e+00 ,4.0469e+00 ,3.8659e-04 /) - kao(:, 2,11, 3) = (/ & - &3.2225e+01 ,2.8197e+01 ,2.4169e+01 ,2.0141e+01 ,1.6113e+01 ,1.2085e+01 , & - &8.0568e+00 ,4.0284e+00 ,4.6837e-04 /) - kao(:, 3,11, 3) = (/ & - &3.2089e+01 ,2.8078e+01 ,2.4068e+01 ,2.0057e+01 ,1.6046e+01 ,1.2035e+01 , & - &8.0232e+00 ,4.0121e+00 ,5.6676e-04 /) - kao(:, 4,11, 3) = (/ & - &3.2281e+01 ,2.8246e+01 ,2.4212e+01 ,2.0176e+01 ,1.6141e+01 ,1.2106e+01 , & - &8.0716e+00 ,4.0370e+00 ,7.3031e-04 /) - kao(:, 5,11, 3) = (/ & - &3.2736e+01 ,2.8646e+01 ,2.4553e+01 ,2.0462e+01 ,1.6370e+01 ,1.2278e+01 , & - &8.1864e+00 ,4.0949e+00 ,8.3516e-04 /) - kao(:, 1,12, 3) = (/ & - &3.4882e+01 ,3.0522e+01 ,2.6162e+01 ,2.1802e+01 ,1.7441e+01 ,1.3081e+01 , & - &8.7208e+00 ,4.3607e+00 ,4.1853e-04 /) - kao(:, 2,12, 3) = (/ & - &3.4744e+01 ,3.0400e+01 ,2.6058e+01 ,2.1715e+01 ,1.7372e+01 ,1.3029e+01 , & - &8.6862e+00 ,4.3435e+00 ,5.1635e-04 /) - kao(:, 3,12, 3) = (/ & - &3.4694e+01 ,3.0356e+01 ,2.6020e+01 ,2.1683e+01 ,1.7347e+01 ,1.3010e+01 , & - &8.6737e+00 ,4.3374e+00 ,5.8258e-04 /) - kao(:, 4,12, 3) = (/ & - &3.4999e+01 ,3.0625e+01 ,2.6249e+01 ,2.1876e+01 ,1.7501e+01 ,1.3126e+01 , & - &8.7513e+00 ,4.3768e+00 ,7.2545e-04 /) - kao(:, 5,12, 3) = (/ & - &3.5658e+01 ,3.1201e+01 ,2.6744e+01 ,2.2288e+01 ,1.7831e+01 ,1.3374e+01 , & - &8.9165e+00 ,4.4593e+00 ,9.3950e-04 /) - kao(:, 1,13, 3) = (/ & - &3.0168e+01 ,2.6399e+01 ,2.2627e+01 ,1.8855e+01 ,1.5085e+01 ,1.1314e+01 , & - &7.5425e+00 ,3.7715e+00 ,4.1524e-04 /) - kao(:, 2,13, 3) = (/ & - &3.0082e+01 ,2.6321e+01 ,2.2562e+01 ,1.8800e+01 ,1.5040e+01 ,1.1280e+01 , & - &7.5203e+00 ,3.7604e+00 ,5.1897e-04 /) - kao(:, 3,13, 3) = (/ & - &3.0098e+01 ,2.6336e+01 ,2.2574e+01 ,1.8812e+01 ,1.5049e+01 ,1.1287e+01 , & - &7.5253e+00 ,3.7634e+00 ,6.3490e-04 /) - kao(:, 4,13, 3) = (/ & - &3.0488e+01 ,2.6677e+01 ,2.2867e+01 ,1.9056e+01 ,1.5245e+01 ,1.1434e+01 , & - &7.6233e+00 ,3.8122e+00 ,7.3304e-04 /) - kao(:, 5,13, 3) = (/ & - &3.1139e+01 ,2.7247e+01 ,2.3355e+01 ,1.9463e+01 ,1.5570e+01 ,1.1678e+01 , & - &7.7859e+00 ,3.8940e+00 ,8.6573e-04 /) - kao(:, 1, 1, 4) = (/ & - &5.2057e-02 ,4.6191e-02 ,4.0791e-02 ,3.5264e-02 ,2.9386e-02 ,2.3311e-02 , & - &1.6933e-02 ,9.9741e-03 ,9.4742e-04 /) - kao(:, 2, 1, 4) = (/ & - &5.1799e-02 ,4.6370e-02 ,4.1424e-02 ,3.5942e-02 ,3.0151e-02 ,2.4090e-02 , & - &1.7827e-02 ,1.1138e-02 ,1.1643e-03 /) - kao(:, 3, 1, 4) = (/ & - &5.1774e-02 ,4.6875e-02 ,4.2240e-02 ,3.6825e-02 ,3.1105e-02 ,2.5101e-02 , & - &1.8967e-02 ,1.2189e-02 ,1.4467e-03 /) - kao(:, 4, 1, 4) = (/ & - &5.2049e-02 ,4.7822e-02 ,4.3286e-02 ,3.7962e-02 ,3.2336e-02 ,2.6505e-02 , & - &2.0163e-02 ,1.3176e-02 ,1.8457e-03 /) - kao(:, 5, 1, 4) = (/ & - &5.2435e-02 ,4.8877e-02 ,4.4449e-02 ,3.9288e-02 ,3.3894e-02 ,2.7971e-02 , & - &2.1357e-02 ,1.4142e-02 ,2.2765e-03 /) - kao(:, 1, 2, 4) = (/ & - &6.9283e-02 ,6.1124e-02 ,5.3312e-02 ,4.5637e-02 ,3.7639e-02 ,2.9444e-02 , & - &2.0926e-02 ,1.1987e-02 ,6.7708e-04 /) - kao(:, 2, 2, 4) = (/ & - &6.9230e-02 ,6.1365e-02 ,5.4052e-02 ,4.6528e-02 ,3.8569e-02 ,3.0382e-02 , & - &2.1758e-02 ,1.2938e-02 ,8.4618e-04 /) - kao(:, 3, 2, 4) = (/ & - &6.9474e-02 ,6.2065e-02 ,5.5235e-02 ,4.7695e-02 ,3.9803e-02 ,3.1502e-02 , & - &2.2924e-02 ,1.3989e-02 ,1.0726e-03 /) - kao(:, 4, 2, 4) = (/ & - &7.0041e-02 ,6.3262e-02 ,5.6631e-02 ,4.9140e-02 ,4.1246e-02 ,3.2954e-02 , & - &2.4393e-02 ,1.5061e-02 ,1.3926e-03 /) - kao(:, 5, 2, 4) = (/ & - &7.0798e-02 ,6.4648e-02 ,5.8174e-02 ,5.0781e-02 ,4.2976e-02 ,3.4744e-02 , & - &2.5864e-02 ,1.6092e-02 ,1.7223e-03 /) - kao(:, 1, 3, 4) = (/ & - &1.2468e-01 ,1.0948e-01 ,9.4277e-02 ,7.9471e-02 ,6.4703e-02 ,4.9713e-02 , & - &3.4483e-02 ,1.8729e-02 ,4.6220e-04 /) - kao(:, 2, 3, 4) = (/ & - &1.2473e-01 ,1.0972e-01 ,9.4939e-02 ,8.0505e-02 ,6.5924e-02 ,5.0895e-02 , & - &3.5571e-02 ,1.9546e-02 ,5.8785e-04 /) - kao(:, 3, 3, 4) = (/ & - &1.2557e-01 ,1.1074e-01 ,9.6443e-02 ,8.2330e-02 ,6.7617e-02 ,5.2547e-02 , & - &3.6938e-02 ,2.0666e-02 ,7.7467e-04 /) - kao(:, 4, 3, 4) = (/ & - &1.2675e-01 ,1.1231e-01 ,9.8604e-02 ,8.4502e-02 ,6.9700e-02 ,5.4472e-02 , & - &3.8553e-02 ,2.2075e-02 ,9.9922e-04 /) - kao(:, 5, 3, 4) = (/ & - &1.2846e-01 ,1.1449e-01 ,1.0119e-01 ,8.7016e-02 ,7.2084e-02 ,5.6669e-02 , & - &4.0555e-02 ,2.3518e-02 ,1.2453e-03 /) - kao(:, 1, 4, 4) = (/ & - &2.3029e-01 ,2.0185e-01 ,1.7335e-01 ,1.4485e-01 ,1.1669e-01 ,8.8611e-02 , & - &6.0409e-02 ,3.1699e-02 ,3.0371e-04 /) - kao(:, 2, 4, 4) = (/ & - &2.2988e-01 ,2.0158e-01 ,1.7329e-01 ,1.4525e-01 ,1.1751e-01 ,8.9738e-02 , & - &6.1449e-02 ,3.2569e-02 ,4.0236e-04 /) - kao(:, 3, 4, 4) = (/ & - &2.3229e-01 ,2.0393e-01 ,1.7566e-01 ,1.4780e-01 ,1.2020e-01 ,9.2062e-02 , & - &6.3397e-02 ,3.3957e-02 ,5.4454e-04 /) - kao(:, 4, 4, 4) = (/ & - &2.3507e-01 ,2.0665e-01 ,1.7868e-01 ,1.5121e-01 ,1.2350e-01 ,9.4964e-02 , & - &6.5854e-02 ,3.5604e-02 ,7.0998e-04 /) - kao(:, 5, 4, 4) = (/ & - &2.3825e-01 ,2.0990e-01 ,1.8240e-01 ,1.5515e-01 ,1.2704e-01 ,9.8075e-02 , & - &6.8384e-02 ,3.7494e-02 ,8.9536e-04 /) - kao(:, 1, 5, 4) = (/ & - &3.8945e-01 ,3.4103e-01 ,2.9259e-01 ,2.4415e-01 ,1.9571e-01 ,1.4754e-01 , & - &9.9565e-02 ,5.1352e-02 ,2.0409e-04 /) - kao(:, 2, 5, 4) = (/ & - &3.8981e-01 ,3.4147e-01 ,2.9305e-01 ,2.4466e-01 ,1.9659e-01 ,1.4875e-01 , & - &1.0088e-01 ,5.2387e-02 ,2.7339e-04 /) - kao(:, 3, 5, 4) = (/ & - &3.9497e-01 ,3.4612e-01 ,2.9724e-01 ,2.4861e-01 ,2.0028e-01 ,1.5226e-01 , & - &1.0369e-01 ,5.4177e-02 ,3.7984e-04 /) - kao(:, 4, 5, 4) = (/ & - &4.0149e-01 ,3.5204e-01 ,3.0270e-01 ,2.5382e-01 ,2.0546e-01 ,1.5684e-01 , & - &1.0724e-01 ,5.6458e-02 ,5.0160e-04 /) - kao(:, 5, 5, 4) = (/ & - &4.0773e-01 ,3.5786e-01 ,3.0839e-01 ,2.5956e-01 ,2.1090e-01 ,1.6141e-01 , & - &1.1086e-01 ,5.8838e-02 ,6.4384e-04 /) - kao(:, 1, 6, 4) = (/ & - &6.2109e-01 ,5.4370e-01 ,4.6619e-01 ,3.8877e-01 ,3.1132e-01 ,2.3383e-01 , & - &1.5671e-01 ,7.9602e-02 ,1.3341e-04 /) - kao(:, 2, 6, 4) = (/ & - &6.2314e-01 ,5.4556e-01 ,4.6793e-01 ,3.9037e-01 ,3.1270e-01 ,2.3534e-01 , & - &1.5827e-01 ,8.0992e-02 ,1.8152e-04 /) - kao(:, 3, 6, 4) = (/ & - &6.2957e-01 ,5.5136e-01 ,4.7308e-01 ,3.9475e-01 ,3.1676e-01 ,2.3906e-01 , & - &1.6147e-01 ,8.3225e-02 ,2.5970e-04 /) - kao(:, 4, 6, 4) = (/ & - &6.4091e-01 ,5.6147e-01 ,4.8196e-01 ,4.0265e-01 ,3.2370e-01 ,2.4515e-01 , & - &1.6638e-01 ,8.6255e-02 ,3.5139e-04 /) - kao(:, 5, 6, 4) = (/ & - &6.5388e-01 ,5.7307e-01 ,4.9223e-01 ,4.1191e-01 ,3.3205e-01 ,2.5237e-01 , & - &1.7171e-01 ,8.9448e-02 ,4.5531e-04 /) - kao(:, 1, 7, 4) = (/ & - &1.0457e+00 ,9.1519e-01 ,7.8460e-01 ,6.5401e-01 ,5.2349e-01 ,3.9292e-01 , & - &2.6230e-01 ,1.3220e-01 ,1.0032e-04 /) - kao(:, 2, 7, 4) = (/ & - &1.0500e+00 ,9.1906e-01 ,7.8807e-01 ,6.5699e-01 ,5.2599e-01 ,3.9492e-01 , & - &2.6410e-01 ,1.3358e-01 ,1.3899e-04 /) - kao(:, 3, 7, 4) = (/ & - &1.0598e+00 ,9.2774e-01 ,7.9565e-01 ,6.6349e-01 ,5.3130e-01 ,3.9936e-01 , & - &2.6782e-01 ,1.3620e-01 ,1.8444e-04 /) - kao(:, 4, 7, 4) = (/ & - &1.0743e+00 ,9.4059e-01 ,8.0685e-01 ,6.7311e-01 ,5.3945e-01 ,4.0621e-01 , & - &2.7331e-01 ,1.3995e-01 ,2.4657e-04 /) - kao(:, 5, 7, 4) = (/ & - &1.0996e+00 ,9.6289e-01 ,8.2608e-01 ,6.8953e-01 ,5.5342e-01 ,4.1738e-01 , & - &2.8182e-01 ,1.4485e-01 ,3.2431e-04 /) - kao(:, 1, 8, 4) = (/ & - &2.1071e+00 ,1.8438e+00 ,1.5804e+00 ,1.3173e+00 ,1.0540e+00 ,7.9071e-01 , & - &5.2749e-01 ,2.6416e-01 ,1.1085e-04 /) - kao(:, 2, 8, 4) = (/ & - &2.1142e+00 ,1.8501e+00 ,1.5861e+00 ,1.3219e+00 ,1.0578e+00 ,7.9379e-01 , & - &5.2971e-01 ,2.6585e-01 ,1.4810e-04 /) - kao(:, 3, 8, 4) = (/ & - &2.1318e+00 ,1.8656e+00 ,1.5995e+00 ,1.3333e+00 ,1.0671e+00 ,8.0094e-01 , & - &5.3475e-01 ,2.6918e-01 ,1.9501e-04 /) - kao(:, 4, 8, 4) = (/ & - &2.1555e+00 ,1.8865e+00 ,1.6175e+00 ,1.3486e+00 ,1.0795e+00 ,8.1059e-01 , & - &5.4205e-01 ,2.7386e-01 ,2.4224e-04 /) - kao(:, 5, 8, 4) = (/ & - &2.2062e+00 ,1.9311e+00 ,1.6560e+00 ,1.3807e+00 ,1.1056e+00 ,8.3087e-01 , & - &5.5626e-01 ,2.8214e-01 ,2.8558e-04 /) - kao(:, 1, 9, 4) = (/ & - &7.9972e+00 ,6.9979e+00 ,5.9979e+00 ,4.9986e+00 ,3.9987e+00 ,2.9994e+00 , & - &1.9999e+00 ,1.0002e+00 ,1.8668e-04 /) - kao(:, 2, 9, 4) = (/ & - &8.0128e+00 ,7.0114e+00 ,6.0097e+00 ,5.0085e+00 ,4.0070e+00 ,3.0056e+00 , & - &2.0042e+00 ,1.0027e+00 ,2.5150e-04 /) - kao(:, 3, 9, 4) = (/ & - &8.0805e+00 ,7.0702e+00 ,6.0607e+00 ,5.0509e+00 ,4.0412e+00 ,3.0319e+00 , & - &2.0219e+00 ,1.0119e+00 ,3.0396e-04 /) - kao(:, 4, 9, 4) = (/ & - &8.1743e+00 ,7.1533e+00 ,6.1315e+00 ,5.1108e+00 ,4.0892e+00 ,3.0678e+00 , & - &2.0462e+00 ,1.0247e+00 ,3.5321e-04 /) - kao(:, 5, 9, 4) = (/ & - &8.3409e+00 ,7.2988e+00 ,6.2567e+00 ,5.2146e+00 ,4.1728e+00 ,3.1306e+00 , & - &2.0885e+00 ,1.0471e+00 ,4.4198e-04 /) - kao(:, 1,10, 4) = (/ & - &3.3771e+01 ,2.9548e+01 ,2.5328e+01 ,2.1105e+01 ,1.6886e+01 ,1.2665e+01 , & - &8.4427e+00 ,4.2216e+00 ,4.3200e-04 /) - kao(:, 2,10, 4) = (/ & - &3.3810e+01 ,2.9587e+01 ,2.5358e+01 ,2.1131e+01 ,1.6905e+01 ,1.2680e+01 , & - &8.4534e+00 ,4.2274e+00 ,5.4393e-04 /) - kao(:, 3,10, 4) = (/ & - &3.4144e+01 ,2.9876e+01 ,2.5609e+01 ,2.1340e+01 ,1.7073e+01 ,1.2805e+01 , & - &8.5375e+00 ,4.2697e+00 ,6.4726e-04 /) - kao(:, 4,10, 4) = (/ & - &3.4577e+01 ,3.0255e+01 ,2.5934e+01 ,2.1613e+01 ,1.7291e+01 ,1.2969e+01 , & - &8.6471e+00 ,4.3251e+00 ,7.9967e-04 /) - kao(:, 5,10, 4) = (/ & - &3.5279e+01 ,3.0869e+01 ,2.6459e+01 ,2.2050e+01 ,1.7642e+01 ,1.3232e+01 , & - &8.8233e+00 ,4.4139e+00 ,8.8613e-04 /) - kao(:, 1,11, 4) = (/ & - &4.9379e+01 ,4.3210e+01 ,3.7035e+01 ,3.0865e+01 ,2.4692e+01 ,1.8519e+01 , & - &1.2346e+01 ,6.1734e+00 ,5.9531e-04 /) - kao(:, 2,11, 4) = (/ & - &4.9664e+01 ,4.3455e+01 ,3.7247e+01 ,3.1040e+01 ,2.4833e+01 ,1.8625e+01 , & - &1.2417e+01 ,6.2092e+00 ,7.3911e-04 /) - kao(:, 3,11, 4) = (/ & - &5.0351e+01 ,4.4056e+01 ,3.7762e+01 ,3.1470e+01 ,2.5175e+01 ,1.8882e+01 , & - &1.2589e+01 ,6.2954e+00 ,9.0535e-04 /) - kao(:, 4,11, 4) = (/ & - &5.1310e+01 ,4.4899e+01 ,3.8484e+01 ,3.2071e+01 ,2.5657e+01 ,1.9244e+01 , & - &1.2831e+01 ,6.4171e+00 ,1.0300e-03 /) - kao(:, 5,11, 4) = (/ & - &5.2691e+01 ,4.6105e+01 ,3.9519e+01 ,3.2933e+01 ,2.6348e+01 ,1.9763e+01 , & - &1.3176e+01 ,6.5918e+00 ,1.3056e-03 /) - kao(:, 1,12, 4) = (/ & - &5.3682e+01 ,4.6971e+01 ,4.0260e+01 ,3.3552e+01 ,2.6842e+01 ,2.0131e+01 , & - &1.3420e+01 ,6.7107e+00 ,5.9618e-04 /) - kao(:, 2,12, 4) = (/ & - &5.4209e+01 ,4.7433e+01 ,4.0657e+01 ,3.3879e+01 ,2.7104e+01 ,2.0329e+01 , & - &1.3553e+01 ,6.7772e+00 ,7.6649e-04 /) - kao(:, 3,12, 4) = (/ & - &5.5191e+01 ,4.8293e+01 ,4.1395e+01 ,3.4495e+01 ,2.7597e+01 ,2.0697e+01 , & - &1.3799e+01 ,6.9009e+00 ,9.6570e-04 /) - kao(:, 4,12, 4) = (/ & - &5.6606e+01 ,4.9530e+01 ,4.2455e+01 ,3.5382e+01 ,2.8306e+01 ,2.1230e+01 , & - &1.4154e+01 ,7.0794e+00 ,1.1503e-03 /) - kao(:, 5,12, 4) = (/ & - &5.8604e+01 ,5.1279e+01 ,4.3956e+01 ,3.6631e+01 ,2.9306e+01 ,2.1982e+01 , & - &1.4657e+01 ,7.3321e+00 ,1.3037e-03 /) - kao(:, 1,13, 4) = (/ & - &4.6897e+01 ,4.1036e+01 ,3.5173e+01 ,2.9311e+01 ,2.3449e+01 ,1.7586e+01 , & - &1.1724e+01 ,5.8626e+00 ,5.3404e-04 /) - kao(:, 2,13, 4) = (/ & - &4.7510e+01 ,4.1569e+01 ,3.5631e+01 ,2.9695e+01 ,2.3756e+01 ,1.7817e+01 , & - &1.1878e+01 ,5.9396e+00 ,7.0585e-04 /) - kao(:, 3,13, 4) = (/ & - &4.8599e+01 ,4.2525e+01 ,3.6450e+01 ,3.0375e+01 ,2.4299e+01 ,1.8226e+01 , & - &1.2152e+01 ,6.0774e+00 ,8.6599e-04 /) - kao(:, 4,13, 4) = (/ & - &5.0122e+01 ,4.3856e+01 ,3.7591e+01 ,3.1328e+01 ,2.5063e+01 ,1.8798e+01 , & - &1.2534e+01 ,6.2697e+00 ,1.0053e-03 /) - kao(:, 5,13, 4) = (/ & - &5.2215e+01 ,4.5689e+01 ,3.9164e+01 ,3.2638e+01 ,2.6111e+01 ,1.9586e+01 , & - &1.3060e+01 ,6.5334e+00 ,1.2313e-03 /) - kao(:, 1, 1, 5) = (/ & - &8.2901e-02 ,7.3924e-02 ,6.4657e-02 ,5.5597e-02 ,4.6472e-02 ,3.6796e-02 , & - &2.6709e-02 ,1.5948e-02 ,1.7802e-03 /) - kao(:, 2, 1, 5) = (/ & - &8.3370e-02 ,7.4618e-02 ,6.5698e-02 ,5.7019e-02 ,4.7812e-02 ,3.7978e-02 , & - &2.7855e-02 ,1.7146e-02 ,2.3935e-03 /) - kao(:, 3, 1, 5) = (/ & - &8.4235e-02 ,7.5730e-02 ,6.7257e-02 ,5.8667e-02 ,4.9229e-02 ,3.9298e-02 , & - &2.8966e-02 ,1.8334e-02 ,3.0382e-03 /) - kao(:, 4, 1, 5) = (/ & - &8.5176e-02 ,7.7019e-02 ,6.8972e-02 ,6.0287e-02 ,5.0680e-02 ,4.0612e-02 , & - &3.0271e-02 ,1.9679e-02 ,3.7478e-03 /) - kao(:, 5, 1, 5) = (/ & - &8.6230e-02 ,7.8450e-02 ,7.0705e-02 ,6.1832e-02 ,5.2066e-02 ,4.2065e-02 , & - &3.1638e-02 ,2.1127e-02 ,4.5344e-03 /) - kao(:, 1, 2, 5) = (/ & - &1.1319e-01 ,1.0032e-01 ,8.7141e-02 ,7.4086e-02 ,6.1196e-02 ,4.7903e-02 , & - &3.4053e-02 ,1.9479e-02 ,1.3324e-03 /) - kao(:, 2, 2, 5) = (/ & - &1.1444e-01 ,1.0174e-01 ,8.8783e-02 ,7.6019e-02 ,6.3135e-02 ,4.9508e-02 , & - &3.5403e-02 ,2.0488e-02 ,1.7827e-03 /) - kao(:, 3, 2, 5) = (/ & - &1.1608e-01 ,1.0349e-01 ,9.0802e-02 ,7.8322e-02 ,6.5118e-02 ,5.1198e-02 , & - &3.6801e-02 ,2.1623e-02 ,2.2789e-03 /) - kao(:, 4, 2, 5) = (/ & - &1.1786e-01 ,1.0545e-01 ,9.3147e-02 ,8.0587e-02 ,6.7042e-02 ,5.2943e-02 , & - &3.8201e-02 ,2.2798e-02 ,2.8272e-03 /) - kao(:, 5, 2, 5) = (/ & - &1.1969e-01 ,1.0757e-01 ,9.5567e-02 ,8.2763e-02 ,6.8961e-02 ,5.4626e-02 , & - &3.9785e-02 ,2.4020e-02 ,3.4454e-03 /) - kao(:, 1, 3, 5) = (/ & - &2.0690e-01 ,1.8215e-01 ,1.5725e-01 ,1.3219e-01 ,1.0725e-01 ,8.2467e-02 , & - &5.7330e-02 ,3.1338e-02 ,9.1573e-04 /) - kao(:, 2, 3, 5) = (/ & - &2.1013e-01 ,1.8537e-01 ,1.6026e-01 ,1.3517e-01 ,1.1017e-01 ,8.5255e-02 , & - &5.9448e-02 ,3.2689e-02 ,1.2507e-03 /) - kao(:, 3, 3, 5) = (/ & - &2.1385e-01 ,1.8904e-01 ,1.6379e-01 ,1.3865e-01 ,1.1374e-01 ,8.8133e-02 , & - &6.1604e-02 ,3.4070e-02 ,1.6182e-03 /) - kao(:, 4, 3, 5) = (/ & - &2.1772e-01 ,1.9276e-01 ,1.6753e-01 ,1.4253e-01 ,1.1723e-01 ,9.0813e-02 , & - &6.3766e-02 ,3.5513e-02 ,2.0311e-03 /) - kao(:, 5, 3, 5) = (/ & - &2.2143e-01 ,1.9638e-01 ,1.7123e-01 ,1.4633e-01 ,1.2052e-01 ,9.3556e-02 , & - &6.5944e-02 ,3.7115e-02 ,2.5088e-03 /) - kao(:, 1, 4, 5) = (/ & - &3.8507e-01 ,3.3780e-01 ,2.9048e-01 ,2.4314e-01 ,1.9570e-01 ,1.4827e-01 , & - &1.0100e-01 ,5.3296e-02 ,6.2147e-04 /) - kao(:, 2, 4, 5) = (/ & - &3.9146e-01 ,3.4379e-01 ,2.9605e-01 ,2.4819e-01 ,2.0018e-01 ,1.5228e-01 , & - &1.0449e-01 ,5.5540e-02 ,8.6088e-04 /) - kao(:, 3, 4, 5) = (/ & - &3.9930e-01 ,3.5111e-01 ,3.0278e-01 ,2.5411e-01 ,2.0550e-01 ,1.5718e-01 , & - &1.0825e-01 ,5.7768e-02 ,1.1308e-03 /) - kao(:, 4, 4, 5) = (/ & - &4.0750e-01 ,3.5883e-01 ,3.0957e-01 ,2.6026e-01 ,2.1112e-01 ,1.6215e-01 , & - &1.1175e-01 ,5.9905e-02 ,1.4435e-03 /) - kao(:, 5, 4, 5) = (/ & - &4.1540e-01 ,3.6624e-01 ,3.1618e-01 ,2.6641e-01 ,2.1709e-01 ,1.6699e-01 , & - &1.1521e-01 ,6.2079e-02 ,1.8081e-03 /) - kao(:, 1, 5, 5) = (/ & - &6.6039e-01 ,5.7849e-01 ,4.9659e-01 ,4.1465e-01 ,3.3268e-01 ,2.5068e-01 , & - &1.6878e-01 ,8.6906e-02 ,4.1392e-04 /) - kao(:, 2, 5, 5) = (/ & - &6.7138e-01 ,5.8843e-01 ,5.0538e-01 ,4.2238e-01 ,3.3940e-01 ,2.5633e-01 , & - &1.7334e-01 ,9.0010e-02 ,5.9039e-04 /) - kao(:, 3, 5, 5) = (/ & - &6.8434e-01 ,6.0014e-01 ,5.1596e-01 ,4.3167e-01 ,3.4721e-01 ,2.6273e-01 , & - &1.7850e-01 ,9.3277e-02 ,7.8856e-04 /) - kao(:, 4, 5, 5) = (/ & - &6.9935e-01 ,6.1381e-01 ,5.2821e-01 ,4.4224e-01 ,3.5606e-01 ,2.7005e-01 , & - &1.8435e-01 ,9.6630e-02 ,1.0256e-03 /) - kao(:, 5, 5, 5) = (/ & - &7.1524e-01 ,6.2827e-01 ,5.4104e-01 ,4.5319e-01 ,3.6550e-01 ,2.7828e-01 , & - &1.9025e-01 ,9.9988e-02 ,1.3023e-03 /) - kao(:, 1, 6, 5) = (/ & - &1.0605e+00 ,9.2835e-01 ,7.9638e-01 ,6.6416e-01 ,5.3204e-01 ,3.9988e-01 , & - &2.6772e-01 ,1.3599e-01 ,2.6665e-04 /) - kao(:, 2, 6, 5) = (/ & - &1.0793e+00 ,9.4508e-01 ,8.1097e-01 ,6.7669e-01 ,5.4239e-01 ,4.0816e-01 , & - &2.7396e-01 ,1.4011e-01 ,3.9578e-04 /) - kao(:, 3, 6, 5) = (/ & - &1.0996e+00 ,9.6312e-01 ,8.2674e-01 ,6.9026e-01 ,5.5385e-01 ,4.1734e-01 , & - &2.8093e-01 ,1.4437e-01 ,5.4281e-04 /) - kao(:, 4, 6, 5) = (/ & - &1.1270e+00 ,9.8758e-01 ,8.4814e-01 ,7.0877e-01 ,5.6910e-01 ,4.2937e-01 , & - &2.8968e-01 ,1.4948e-01 ,7.1692e-04 /) - kao(:, 5, 6, 5) = (/ & - &1.1549e+00 ,1.0125e+00 ,8.7022e-01 ,7.2764e-01 ,5.8478e-01 ,4.4170e-01 , & - &2.9907e-01 ,1.5477e-01 ,9.2735e-04 /) - kao(:, 1, 7, 5) = (/ & - &1.7902e+00 ,1.5666e+00 ,1.3432e+00 ,1.1198e+00 ,8.9630e-01 ,6.7291e-01 , & - &4.4939e-01 ,2.2594e-01 ,1.7788e-04 /) - kao(:, 2, 7, 5) = (/ & - &1.8253e+00 ,1.5977e+00 ,1.3701e+00 ,1.1424e+00 ,9.1476e-01 ,6.8709e-01 , & - &4.5936e-01 ,2.3207e-01 ,2.6007e-04 /) - kao(:, 3, 7, 5) = (/ & - &1.8661e+00 ,1.6335e+00 ,1.4010e+00 ,1.1685e+00 ,9.3601e-01 ,7.0359e-01 , & - &4.7118e-01 ,2.3911e-01 ,3.6579e-04 /) - kao(:, 4, 7, 5) = (/ & - &1.9131e+00 ,1.6751e+00 ,1.4368e+00 ,1.1989e+00 ,9.6095e-01 ,7.2299e-01 , & - &4.8503e-01 ,2.4706e-01 ,4.9009e-04 /) - kao(:, 5, 7, 5) = (/ & - &1.9618e+00 ,1.7182e+00 ,1.4745e+00 ,1.2310e+00 ,9.8739e-01 ,7.4364e-01 , & - &4.9951e-01 ,2.5543e-01 ,6.4417e-04 /) - kao(:, 1, 8, 5) = (/ & - &3.6222e+00 ,3.1697e+00 ,2.7175e+00 ,2.2647e+00 ,1.8122e+00 ,1.3595e+00 , & - &9.0703e-01 ,4.5436e-01 ,1.7700e-04 /) - kao(:, 2, 8, 5) = (/ & - &3.6989e+00 ,3.2367e+00 ,2.7747e+00 ,2.3129e+00 ,1.8509e+00 ,1.3888e+00 , & - &9.2689e-01 ,4.6487e-01 ,2.2396e-04 /) - kao(:, 3, 8, 5) = (/ & - &3.7900e+00 ,3.3168e+00 ,2.8434e+00 ,2.3702e+00 ,1.8972e+00 ,1.4240e+00 , & - &9.5085e-01 ,4.7797e-01 ,2.7417e-04 /) - kao(:, 4, 8, 5) = (/ & - &3.8908e+00 ,3.4054e+00 ,2.9198e+00 ,2.4343e+00 ,1.9488e+00 ,1.4634e+00 , & - &9.7805e-01 ,4.9296e-01 ,3.4875e-04 /) - kao(:, 5, 8, 5) = (/ & - &3.9856e+00 ,3.4886e+00 ,2.9916e+00 ,2.4947e+00 ,1.9978e+00 ,1.5012e+00 , & - &1.0044e+00 ,5.0758e-01 ,4.5934e-04 /) - kao(:, 1, 9, 5) = (/ & - &1.3794e+01 ,1.2070e+01 ,1.0346e+01 ,8.6224e+00 ,6.8983e+00 ,5.1738e+00 , & - &3.4497e+00 ,1.7256e+00 ,2.3317e-04 /) - kao(:, 2, 9, 5) = (/ & - &1.4093e+01 ,1.2332e+01 ,1.0571e+01 ,8.8090e+00 ,7.0478e+00 ,5.2864e+00 , & - &3.5250e+00 ,1.7636e+00 ,2.9550e-04 /) - kao(:, 3, 9, 5) = (/ & - &1.4464e+01 ,1.2658e+01 ,1.0848e+01 ,9.0415e+00 ,7.2337e+00 ,5.4264e+00 , & - &3.6184e+00 ,1.8107e+00 ,3.8639e-04 /) - kao(:, 4, 9, 5) = (/ & - &1.4855e+01 ,1.2999e+01 ,1.1143e+01 ,9.2862e+00 ,7.4306e+00 ,5.5737e+00 , & - &3.7173e+00 ,1.8614e+00 ,5.0786e-04 /) - kao(:, 5, 9, 5) = (/ & - &1.5210e+01 ,1.3311e+01 ,1.1410e+01 ,9.5097e+00 ,7.6091e+00 ,5.7087e+00 , & - &3.8087e+00 ,1.9087e+00 ,5.8982e-04 /) - kao(:, 1,10, 5) = (/ & - &5.8496e+01 ,5.1180e+01 ,4.3867e+01 ,3.6556e+01 ,2.9247e+01 ,2.1935e+01 , & - &1.4623e+01 ,7.3123e+00 ,5.6403e-04 /) - kao(:, 2,10, 5) = (/ & - &5.9786e+01 ,5.2317e+01 ,4.4840e+01 ,3.7369e+01 ,2.9895e+01 ,2.2423e+01 , & - &1.4947e+01 ,7.4749e+00 ,6.9685e-04 /) - kao(:, 3,10, 5) = (/ & - &6.1366e+01 ,5.3692e+01 ,4.6022e+01 ,3.8353e+01 ,3.0682e+01 ,2.3012e+01 , & - &1.5344e+01 ,7.6729e+00 ,8.6661e-04 /) - kao(:, 4,10, 5) = (/ & - &6.3002e+01 ,5.5128e+01 ,4.7254e+01 ,3.9377e+01 ,3.1505e+01 ,2.3630e+01 , & - &1.5753e+01 ,7.8780e+00 ,1.0403e-03 /) - kao(:, 5,10, 5) = (/ & - &6.4493e+01 ,5.6436e+01 ,4.8374e+01 ,4.0310e+01 ,3.2253e+01 ,2.4189e+01 , & - &1.6127e+01 ,8.0668e+00 ,1.2361e-03 /) - kao(:, 1,11, 5) = (/ & - &8.7182e+01 ,7.6287e+01 ,6.5394e+01 ,5.4493e+01 ,4.3594e+01 ,3.2696e+01 , & - &2.1798e+01 ,1.0900e+01 ,7.4362e-04 /) - kao(:, 2,11, 5) = (/ & - &8.9336e+01 ,7.8172e+01 ,6.7002e+01 ,5.5836e+01 ,4.4668e+01 ,3.3502e+01 , & - &2.2335e+01 ,1.1168e+01 ,9.0702e-04 /) - kao(:, 3,11, 5) = (/ & - &9.1581e+01 ,8.0131e+01 ,6.8688e+01 ,5.7237e+01 ,4.5792e+01 ,3.4345e+01 , & - &2.2896e+01 ,1.1449e+01 ,1.0809e-03 /) - kao(:, 4,11, 5) = (/ & - &9.3839e+01 ,8.2107e+01 ,7.0383e+01 ,5.8658e+01 ,4.6921e+01 ,3.5193e+01 , & - &2.3462e+01 ,1.1732e+01 ,1.3235e-03 /) - kao(:, 5,11, 5) = (/ & - &9.5958e+01 ,8.3967e+01 ,7.1970e+01 ,5.9973e+01 ,4.7982e+01 ,3.5987e+01 , & - &2.3994e+01 ,1.1998e+01 ,1.5458e-03 /) - kao(:, 1,12, 5) = (/ & - &9.6680e+01 ,8.4597e+01 ,7.2516e+01 ,6.0430e+01 ,4.8347e+01 ,3.6257e+01 , & - &2.4172e+01 ,1.2087e+01 ,8.8792e-04 /) - kao(:, 2,12, 5) = (/ & - &9.9039e+01 ,8.6662e+01 ,7.4284e+01 ,6.1903e+01 ,4.9522e+01 ,3.7144e+01 , & - &2.4762e+01 ,1.2382e+01 ,1.0348e-03 /) - kao(:, 3,12, 5) = (/ & - &1.0152e+02 ,8.8834e+01 ,7.6150e+01 ,6.3450e+01 ,5.0765e+01 ,3.8071e+01 , & - &2.5383e+01 ,1.2692e+01 ,1.2734e-03 /) - kao(:, 4,12, 5) = (/ & - &1.0389e+02 ,9.0902e+01 ,7.7912e+01 ,6.4935e+01 ,5.1946e+01 ,3.8960e+01 , & - &2.5973e+01 ,1.2989e+01 ,1.5461e-03 /) - kao(:, 5,12, 5) = (/ & - &1.0614e+02 ,9.2872e+01 ,7.9616e+01 ,6.6343e+01 ,5.3076e+01 ,3.9807e+01 , & - &2.6538e+01 ,1.3271e+01 ,1.7863e-03 /) - kao(:, 1,13, 5) = (/ & - &8.5924e+01 ,7.5190e+01 ,6.4446e+01 ,5.3705e+01 ,4.2964e+01 ,3.2222e+01 , & - &2.1482e+01 ,1.0742e+01 ,9.3650e-04 /) - kao(:, 2,13, 5) = (/ & - &8.8011e+01 ,7.7009e+01 ,6.6010e+01 ,5.5012e+01 ,4.4009e+01 ,3.3008e+01 , & - &2.2004e+01 ,1.1003e+01 ,1.0453e-03 /) - kao(:, 3,13, 5) = (/ & - &9.0165e+01 ,7.8893e+01 ,6.7623e+01 ,5.6350e+01 ,4.5080e+01 ,3.3811e+01 , & - &2.2542e+01 ,1.1273e+01 ,1.2632e-03 /) - kao(:, 4,13, 5) = (/ & - &9.2294e+01 ,8.0759e+01 ,6.9218e+01 ,5.7683e+01 ,4.6146e+01 ,3.4609e+01 , & - &2.3075e+01 ,1.1539e+01 ,1.5901e-03 /) - kao(:, 5,13, 5) = (/ & - &9.4515e+01 ,8.2699e+01 ,7.0891e+01 ,5.9075e+01 ,4.7260e+01 ,3.5445e+01 , & - &2.3631e+01 ,1.1818e+01 ,1.9283e-03 /) - kao(:, 1, 1, 6) = (/ & - &1.3664e-01 ,1.2142e-01 ,1.0604e-01 ,9.0673e-02 ,7.5307e-02 ,5.9951e-02 , & - &4.4049e-02 ,2.7037e-02 ,3.4200e-03 /) - kao(:, 2, 1, 6) = (/ & - &1.3479e-01 ,1.2041e-01 ,1.0581e-01 ,9.1114e-02 ,7.6669e-02 ,6.1851e-02 , & - &4.6009e-02 ,2.9151e-02 ,4.4244e-03 /) - kao(:, 3, 1, 6) = (/ & - &1.3313e-01 ,1.1956e-01 ,1.0561e-01 ,9.1887e-02 ,7.8237e-02 ,6.3771e-02 , & - &4.8109e-02 ,3.1604e-02 ,5.5644e-03 /) - kao(:, 4, 1, 6) = (/ & - &1.3195e-01 ,1.1904e-01 ,1.0583e-01 ,9.3212e-02 ,7.9889e-02 ,6.5652e-02 , & - &5.0318e-02 ,3.4334e-02 ,6.8097e-03 /) - kao(:, 5, 1, 6) = (/ & - &1.3100e-01 ,1.1871e-01 ,1.0645e-01 ,9.4491e-02 ,8.1510e-02 ,6.7455e-02 , & - &5.2648e-02 ,3.7142e-02 ,8.1798e-03 /) - kao(:, 1, 2, 6) = (/ & - &1.8948e-01 ,1.6745e-01 ,1.4512e-01 ,1.2300e-01 ,1.0098e-01 ,7.9021e-02 , & - &5.6595e-02 ,3.3068e-02 ,2.5064e-03 /) - kao(:, 2, 2, 6) = (/ & - &1.8719e-01 ,1.6582e-01 ,1.4439e-01 ,1.2310e-01 ,1.0186e-01 ,8.0667e-02 , & - &5.8428e-02 ,3.4918e-02 ,3.2805e-03 /) - kao(:, 3, 2, 6) = (/ & - &1.8550e-01 ,1.6475e-01 ,1.4416e-01 ,1.2351e-01 ,1.0330e-01 ,8.2465e-02 , & - &6.0314e-02 ,3.6962e-02 ,4.1499e-03 /) - kao(:, 4, 2, 6) = (/ & - &1.8451e-01 ,1.6460e-01 ,1.4454e-01 ,1.2487e-01 ,1.0515e-01 ,8.4419e-02 , & - &6.2353e-02 ,3.9320e-02 ,5.1265e-03 /) - kao(:, 5, 2, 6) = (/ & - &1.8423e-01 ,1.6501e-01 ,1.4553e-01 ,1.2672e-01 ,1.0715e-01 ,8.6338e-02 , & - &6.4353e-02 ,4.1893e-02 ,6.2102e-03 /) - kao(:, 1, 3, 6) = (/ & - &3.5249e-01 ,3.0976e-01 ,2.6683e-01 ,2.2378e-01 ,1.8098e-01 ,1.3846e-01 , & - &9.6219e-02 ,5.2862e-02 ,1.7476e-03 /) - kao(:, 2, 3, 6) = (/ & - &3.4945e-01 ,3.0729e-01 ,2.6503e-01 ,2.2304e-01 ,1.8135e-01 ,1.3971e-01 , & - &9.8147e-02 ,5.4704e-02 ,2.3082e-03 /) - kao(:, 3, 3, 6) = (/ & - &3.4786e-01 ,3.0616e-01 ,2.6475e-01 ,2.2367e-01 ,1.8257e-01 ,1.4178e-01 , & - &1.0043e-01 ,5.6633e-02 ,2.9556e-03 /) - kao(:, 4, 3, 6) = (/ & - &3.4805e-01 ,3.0690e-01 ,2.6623e-01 ,2.2552e-01 ,1.8508e-01 ,1.4480e-01 , & - &1.0306e-01 ,5.8846e-02 ,3.6970e-03 /) - kao(:, 5, 3, 6) = (/ & - &3.5013e-01 ,3.0948e-01 ,2.6918e-01 ,2.2850e-01 ,1.8865e-01 ,1.4799e-01 , & - &1.0568e-01 ,6.1131e-02 ,4.5281e-03 /) - kao(:, 1, 4, 6) = (/ & - &6.6623e-01 ,5.8386e-01 ,5.0153e-01 ,4.1899e-01 ,3.3640e-01 ,2.5407e-01 , & - &1.7225e-01 ,9.1058e-02 ,1.1958e-03 /) - kao(:, 2, 4, 6) = (/ & - &6.6340e-01 ,5.8167e-01 ,4.9974e-01 ,4.1776e-01 ,3.3619e-01 ,2.5503e-01 , & - &1.7423e-01 ,9.3289e-02 ,1.6080e-03 /) - kao(:, 3, 4, 6) = (/ & - &6.6480e-01 ,5.8306e-01 ,5.0121e-01 ,4.1990e-01 ,3.3893e-01 ,2.5818e-01 , & - &1.7768e-01 ,9.5987e-02 ,2.0929e-03 /) - kao(:, 4, 4, 6) = (/ & - &6.7003e-01 ,5.8789e-01 ,5.0627e-01 ,4.2518e-01 ,3.4417e-01 ,2.6306e-01 , & - &1.8230e-01 ,9.9134e-02 ,2.6527e-03 /) - kao(:, 5, 4, 6) = (/ & - &6.7815e-01 ,5.9566e-01 ,5.1416e-01 ,4.3281e-01 ,3.5098e-01 ,2.6952e-01 , & - &1.8764e-01 ,1.0249e-01 ,3.2896e-03 /) - kao(:, 1, 5, 6) = (/ & - &1.1550e+00 ,1.0112e+00 ,8.6772e-01 ,7.2399e-01 ,5.8018e-01 ,4.3620e-01 , & - &2.9244e-01 ,1.4976e-01 ,8.1069e-04 /) - kao(:, 2, 5, 6) = (/ & - &1.1564e+00 ,1.0128e+00 ,8.6891e-01 ,7.2534e-01 ,5.8147e-01 ,4.3781e-01 , & - &2.9477e-01 ,1.5282e-01 ,1.1157e-03 /) - kao(:, 3, 5, 6) = (/ & - &1.1669e+00 ,1.0223e+00 ,8.7752e-01 ,7.3265e-01 ,5.8799e-01 ,4.4399e-01 , & - &3.0054e-01 ,1.5735e-01 ,1.4779e-03 /) - kao(:, 4, 5, 6) = (/ & - &1.1830e+00 ,1.0368e+00 ,8.9030e-01 ,7.4407e-01 ,5.9861e-01 ,4.5354e-01 , & - &3.0826e-01 ,1.6275e-01 ,1.9001e-03 /) - kao(:, 5, 5, 6) = (/ & - &1.2016e+00 ,1.0534e+00 ,9.0529e-01 ,7.5813e-01 ,6.1140e-01 ,4.6432e-01 , & - &3.1746e-01 ,1.6866e-01 ,2.3885e-03 /) - kao(:, 1, 6, 6) = (/ & - &1.8728e+00 ,1.6394e+00 ,1.4057e+00 ,1.1724e+00 ,9.3873e-01 ,7.0502e-01 , & - &4.7119e-01 ,2.3746e-01 ,5.3401e-04 /) - kao(:, 2, 6, 6) = (/ & - &1.8855e+00 ,1.6506e+00 ,1.4159e+00 ,1.1808e+00 ,9.4575e-01 ,7.1049e-01 , & - &4.7534e-01 ,2.4122e-01 ,7.5510e-04 /) - kao(:, 3, 6, 6) = (/ & - &1.9127e+00 ,1.6747e+00 ,1.4367e+00 ,1.1985e+00 ,9.6017e-01 ,7.2202e-01 , & - &4.8438e-01 ,2.4807e-01 ,1.0228e-03 /) - kao(:, 4, 6, 6) = (/ & - &1.9458e+00 ,1.7041e+00 ,1.4622e+00 ,1.2202e+00 ,9.7826e-01 ,7.3694e-01 , & - &4.9644e-01 ,2.5634e-01 ,1.3413e-03 /) - kao(:, 5, 6, 6) = (/ & - &1.9819e+00 ,1.7360e+00 ,1.4899e+00 ,1.2440e+00 ,9.9883e-01 ,7.5442e-01 , & - &5.0981e-01 ,2.6524e-01 ,1.7130e-03 /) - kao(:, 1, 7, 6) = (/ & - &3.1956e+00 ,2.7964e+00 ,2.3973e+00 ,1.9983e+00 ,1.5994e+00 ,1.2005e+00 , & - &8.0140e-01 ,4.0204e-01 ,3.4739e-04 /) - kao(:, 2, 7, 6) = (/ & - &3.2319e+00 ,2.8287e+00 ,2.4254e+00 ,2.0219e+00 ,1.6186e+00 ,1.2150e+00 , & - &8.1138e-01 ,4.0767e-01 ,4.9767e-04 /) - kao(:, 3, 7, 6) = (/ & - &3.2870e+00 ,2.8773e+00 ,2.4673e+00 ,2.0573e+00 ,1.6471e+00 ,1.2367e+00 , & - &8.2648e-01 ,4.1699e-01 ,6.8883e-04 /) - kao(:, 4, 7, 6) = (/ & - &3.3536e+00 ,2.9357e+00 ,2.5178e+00 ,2.0997e+00 ,1.6816e+00 ,1.2633e+00 , & - &8.4550e-01 ,4.2915e-01 ,9.2075e-04 /) - kao(:, 5, 7, 6) = (/ & - &3.4247e+00 ,2.9983e+00 ,2.5718e+00 ,2.1451e+00 ,1.7185e+00 ,1.2924e+00 , & - &8.6745e-01 ,4.4266e-01 ,1.1994e-03 /) - kao(:, 1, 8, 6) = (/ & - &6.5522e+00 ,5.7333e+00 ,4.9154e+00 ,4.0958e+00 ,3.2773e+00 ,2.4586e+00 , & - &1.6399e+00 ,8.2128e-01 ,2.5000e-04 /) - kao(:, 2, 8, 6) = (/ & - &6.6534e+00 ,5.8224e+00 ,4.9909e+00 ,4.1598e+00 ,3.3284e+00 ,2.4975e+00 , & - &1.6667e+00 ,8.3486e-01 ,3.5933e-04 /) - kao(:, 3, 8, 6) = (/ & - &6.7871e+00 ,5.9396e+00 ,5.0919e+00 ,4.2443e+00 ,3.3968e+00 ,2.5492e+00 , & - &1.7012e+00 ,8.5283e-01 ,4.9387e-04 /) - kao(:, 4, 8, 6) = (/ & - &6.9317e+00 ,6.0662e+00 ,5.2009e+00 ,4.3357e+00 ,3.4705e+00 ,2.6048e+00 , & - &1.7389e+00 ,8.7334e-01 ,6.4756e-04 /) - kao(:, 5, 8, 6) = (/ & - &7.0935e+00 ,6.2081e+00 ,5.3230e+00 ,4.4380e+00 ,3.5524e+00 ,2.6671e+00 , & - &1.7815e+00 ,8.9762e-01 ,8.2195e-04 /) - kao(:, 1, 9, 6) = (/ & - &2.5444e+01 ,2.2265e+01 ,1.9084e+01 ,1.5904e+01 ,1.2723e+01 ,9.5428e+00 , & - &6.3622e+00 ,3.1820e+00 ,4.0178e-04 /) - kao(:, 2, 9, 6) = (/ & - &2.5907e+01 ,2.2668e+01 ,1.9432e+01 ,1.6194e+01 ,1.2956e+01 ,9.7177e+00 , & - &6.4794e+00 ,3.2416e+00 ,4.9820e-04 /) - kao(:, 3, 9, 6) = (/ & - &2.6491e+01 ,2.3181e+01 ,1.9870e+01 ,1.6559e+01 ,1.3249e+01 ,9.9392e+00 , & - &6.6274e+00 ,3.3163e+00 ,5.8675e-04 /) - kao(:, 4, 9, 6) = (/ & - &2.7100e+01 ,2.3714e+01 ,2.0326e+01 ,1.6941e+01 ,1.3555e+01 ,1.0168e+01 , & - &6.7813e+00 ,3.3943e+00 ,7.0841e-04 /) - kao(:, 5, 9, 6) = (/ & - &2.7765e+01 ,2.4297e+01 ,2.0827e+01 ,1.7358e+01 ,1.3889e+01 ,1.0420e+01 , & - &6.9499e+00 ,3.4794e+00 ,8.5424e-04 /) - kao(:, 1,10, 6) = (/ & - &1.1023e+02 ,9.6432e+01 ,8.2664e+01 ,6.8898e+01 ,5.5114e+01 ,4.1339e+01 , & - &2.7555e+01 ,1.3778e+01 ,8.1537e-04 /) - kao(:, 2,10, 6) = (/ & - &1.1247e+02 ,9.8427e+01 ,8.4346e+01 ,7.0300e+01 ,5.6236e+01 ,4.2180e+01 , & - &2.8118e+01 ,1.4061e+01 ,9.9310e-04 /) - kao(:, 3,10, 6) = (/ & - &1.1514e+02 ,1.0076e+02 ,8.6358e+01 ,7.1971e+01 ,5.7576e+01 ,4.3183e+01 , & - &2.8789e+01 ,1.4396e+01 ,1.1831e-03 /) - kao(:, 4,10, 6) = (/ & - &1.1802e+02 ,1.0327e+02 ,8.8510e+01 ,7.3765e+01 ,5.9016e+01 ,4.4263e+01 , & - &2.9511e+01 ,1.4759e+01 ,1.3868e-03 /) - kao(:, 5,10, 6) = (/ & - &1.2130e+02 ,1.0614e+02 ,9.0978e+01 ,7.5815e+01 ,6.0657e+01 ,4.5493e+01 , & - &3.0333e+01 ,1.5172e+01 ,1.7070e-03 /) - kao(:, 1,11, 6) = (/ & - &1.6690e+02 ,1.4603e+02 ,1.2516e+02 ,1.0431e+02 ,8.3442e+01 ,6.2583e+01 , & - &4.1722e+01 ,2.0862e+01 ,1.5727e-03 /) - kao(:, 2,11, 6) = (/ & - &1.7086e+02 ,1.4949e+02 ,1.2814e+02 ,1.0678e+02 ,8.5424e+01 ,6.4067e+01 , & - &4.2718e+01 ,2.1360e+01 ,1.6234e-03 /) - kao(:, 3,11, 6) = (/ & - &1.7519e+02 ,1.5329e+02 ,1.3139e+02 ,1.0949e+02 ,8.7589e+01 ,6.5698e+01 , & - &4.3799e+01 ,2.1903e+01 ,1.7884e-03 /) - kao(:, 4,11, 6) = (/ & - &1.8016e+02 ,1.5762e+02 ,1.3510e+02 ,1.1259e+02 ,9.0076e+01 ,6.7557e+01 , & - &4.5039e+01 ,2.2524e+01 ,2.1215e-03 /) - kao(:, 5,11, 6) = (/ & - &1.8518e+02 ,1.6203e+02 ,1.3888e+02 ,1.1573e+02 ,9.2591e+01 ,6.9449e+01 , & - &4.6302e+01 ,2.3157e+01 ,2.4813e-03 /) - kao(:, 1,12, 6) = (/ & - &1.8707e+02 ,1.6368e+02 ,1.4030e+02 ,1.1692e+02 ,9.3541e+01 ,7.0153e+01 , & - &4.6766e+01 ,2.3384e+01 ,1.9770e-03 /) - kao(:, 2,12, 6) = (/ & - &1.9183e+02 ,1.6788e+02 ,1.4389e+02 ,1.1990e+02 ,9.5932e+01 ,7.1949e+01 , & - &4.7966e+01 ,2.3985e+01 ,2.1043e-03 /) - kao(:, 3,12, 6) = (/ & - &1.9710e+02 ,1.7246e+02 ,1.4784e+02 ,1.2320e+02 ,9.8552e+01 ,7.3917e+01 , & - &4.9278e+01 ,2.4644e+01 ,2.2289e-03 /) - kao(:, 4,12, 6) = (/ & - &2.0265e+02 ,1.7731e+02 ,1.5198e+02 ,1.2666e+02 ,1.0133e+02 ,7.5997e+01 , & - &5.0665e+01 ,2.5338e+01 ,2.5070e-03 /) - kao(:, 5,12, 6) = (/ & - &2.0830e+02 ,1.8227e+02 ,1.5623e+02 ,1.3019e+02 ,1.0416e+02 ,7.8120e+01 , & - &5.2086e+01 ,2.6047e+01 ,2.9426e-03 /) - kao(:, 1,13, 6) = (/ & - &1.6768e+02 ,1.4672e+02 ,1.2576e+02 ,1.0480e+02 ,8.3836e+01 ,6.2874e+01 , & - &4.1918e+01 ,2.0960e+01 ,1.9900e-03 /) - kao(:, 2,13, 6) = (/ & - &1.7225e+02 ,1.5072e+02 ,1.2919e+02 ,1.0767e+02 ,8.6132e+01 ,6.4601e+01 , & - &4.3064e+01 ,2.1534e+01 ,2.2115e-03 /) - kao(:, 3,13, 6) = (/ & - &1.7710e+02 ,1.5497e+02 ,1.3283e+02 ,1.1069e+02 ,8.8549e+01 ,6.6413e+01 , & - &4.4281e+01 ,2.2144e+01 ,2.4087e-03 /) - kao(:, 4,13, 6) = (/ & - &1.8201e+02 ,1.5926e+02 ,1.3651e+02 ,1.1376e+02 ,9.1007e+01 ,6.8257e+01 , & - &4.5512e+01 ,2.2758e+01 ,2.6872e-03 /) - kao(:, 5,13, 6) = (/ & - &1.8703e+02 ,1.6366e+02 ,1.4029e+02 ,1.1690e+02 ,9.3529e+01 ,7.0144e+01 , & - &4.6769e+01 ,2.3390e+01 ,2.9430e-03 /) - kao(:, 1, 1, 7) = (/ & - &2.6412e-01 ,2.3209e-01 ,2.0136e-01 ,1.7041e-01 ,1.3987e-01 ,1.0997e-01 , & - &7.9977e-02 ,4.8294e-02 ,7.1406e-03 /) - kao(:, 2, 1, 7) = (/ & - &2.6114e-01 ,2.3041e-01 ,2.0084e-01 ,1.7141e-01 ,1.4253e-01 ,1.1370e-01 , & - &8.4426e-02 ,5.2292e-02 ,9.2339e-03 /) - kao(:, 3, 1, 7) = (/ & - &2.5746e-01 ,2.2846e-01 ,2.0043e-01 ,1.7294e-01 ,1.4558e-01 ,1.1774e-01 , & - &8.8686e-02 ,5.6161e-02 ,1.1607e-02 /) - kao(:, 4, 1, 7) = (/ & - &2.5329e-01 ,2.2641e-01 ,2.0046e-01 ,1.7465e-01 ,1.4868e-01 ,1.2202e-01 , & - &9.2933e-02 ,6.0129e-02 ,1.4258e-02 /) - kao(:, 5, 1, 7) = (/ & - &2.4914e-01 ,2.2449e-01 ,2.0080e-01 ,1.7670e-01 ,1.5234e-01 ,1.2632e-01 , & - &9.7469e-02 ,6.4803e-02 ,1.7193e-02 /) - kao(:, 1, 2, 7) = (/ & - &3.8226e-01 ,3.3530e-01 ,2.8943e-01 ,2.4384e-01 ,1.9786e-01 ,1.5259e-01 , & - &1.0817e-01 ,6.3161e-02 ,5.4372e-03 /) - kao(:, 2, 2, 7) = (/ & - &3.7769e-01 ,3.3226e-01 ,2.8798e-01 ,2.4326e-01 ,1.9923e-01 ,1.5589e-01 , & - &1.1262e-01 ,6.7329e-02 ,7.0870e-03 /) - kao(:, 3, 2, 7) = (/ & - &3.7182e-01 ,3.2842e-01 ,2.8559e-01 ,2.4304e-01 ,2.0123e-01 ,1.5952e-01 , & - &1.1734e-01 ,7.1516e-02 ,8.9693e-03 /) - kao(:, 4, 2, 7) = (/ & - &3.6545e-01 ,3.2421e-01 ,2.8324e-01 ,2.4318e-01 ,2.0343e-01 ,1.6337e-01 , & - &1.2179e-01 ,7.5704e-02 ,1.1062e-02 /) - kao(:, 5, 2, 7) = (/ & - &3.5934e-01 ,3.2018e-01 ,2.8184e-01 ,2.4404e-01 ,2.0628e-01 ,1.6781e-01 , & - &1.2654e-01 ,8.0391e-02 ,1.3382e-02 /) - kao(:, 1, 3, 7) = (/ & - &7.3419e-01 ,6.4302e-01 ,5.5249e-01 ,4.6249e-01 ,3.7279e-01 ,2.8244e-01 , & - &1.9254e-01 ,1.0461e-01 ,3.8320e-03 /) - kao(:, 2, 3, 7) = (/ & - &7.2438e-01 ,6.3531e-01 ,5.4697e-01 ,4.5910e-01 ,3.7055e-01 ,2.8234e-01 , & - &1.9553e-01 ,1.0953e-01 ,5.0607e-03 /) - kao(:, 3, 3, 7) = (/ & - &7.1308e-01 ,6.2644e-01 ,5.4060e-01 ,4.5437e-01 ,3.6826e-01 ,2.8333e-01 , & - &1.9916e-01 ,1.1441e-01 ,6.4784e-03 /) - kao(:, 4, 3, 7) = (/ & - &7.0097e-01 ,6.1696e-01 ,5.3353e-01 ,4.4963e-01 ,3.6700e-01 ,2.8530e-01 , & - &2.0351e-01 ,1.1914e-01 ,8.0908e-03 /) - kao(:, 5, 3, 7) = (/ & - &6.8962e-01 ,6.0838e-01 ,5.2688e-01 ,4.4648e-01 ,3.6708e-01 ,2.8814e-01 , & - &2.0859e-01 ,1.2387e-01 ,9.8988e-03 /) - kao(:, 1, 4, 7) = (/ & - &1.4238e+00 ,1.2465e+00 ,1.0693e+00 ,8.9242e-01 ,7.1591e-01 ,5.3976e-01 , & - &3.6322e-01 ,1.8668e-01 ,2.6351e-03 /) - kao(:, 2, 4, 7) = (/ & - &1.4051e+00 ,1.2306e+00 ,1.0566e+00 ,8.8285e-01 ,7.0951e-01 ,5.3582e-01 , & - &3.6165e-01 ,1.8980e-01 ,3.5337e-03 /) - kao(:, 3, 4, 7) = (/ & - &1.3826e+00 ,1.2117e+00 ,1.0413e+00 ,8.7137e-01 ,7.0120e-01 ,5.3024e-01 , & - &3.6085e-01 ,1.9367e-01 ,4.5912e-03 /) - kao(:, 4, 4, 7) = (/ & - &1.3609e+00 ,1.1937e+00 ,1.0271e+00 ,8.6049e-01 ,6.9280e-01 ,5.2650e-01 , & - &3.6231e-01 ,1.9848e-01 ,5.8142e-03 /) - kao(:, 5, 4, 7) = (/ & - &1.3409e+00 ,1.1773e+00 ,1.0140e+00 ,8.4932e-01 ,6.8606e-01 ,5.2486e-01 , & - &3.6482e-01 ,2.0369e-01 ,7.2048e-03 /) - kao(:, 1, 5, 7) = (/ & - &2.5206e+00 ,2.2062e+00 ,1.8917e+00 ,1.5773e+00 ,1.2631e+00 ,9.4923e-01 , & - &6.3588e-01 ,3.2194e-01 ,1.8039e-03 /) - kao(:, 2, 5, 7) = (/ & - &2.4864e+00 ,2.1765e+00 ,1.8669e+00 ,1.5575e+00 ,1.2483e+00 ,9.3953e-01 , & - &6.3051e-01 ,3.2080e-01 ,2.4598e-03 /) - kao(:, 3, 5, 7) = (/ & - &2.4502e+00 ,2.1455e+00 ,1.8410e+00 ,1.5370e+00 ,1.2333e+00 ,9.2942e-01 , & - &6.2403e-01 ,3.2160e-01 ,3.2471e-03 /) - kao(:, 4, 5, 7) = (/ & - &2.4176e+00 ,2.1177e+00 ,1.8181e+00 ,1.5189e+00 ,1.2193e+00 ,9.1845e-01 , & - &6.1937e-01 ,3.2415e-01 ,4.1727e-03 /) - kao(:, 5, 5, 7) = (/ & - &2.3943e+00 ,2.0977e+00 ,1.8015e+00 ,1.5055e+00 ,1.2082e+00 ,9.1210e-01 , & - &6.1892e-01 ,3.2856e-01 ,5.2383e-03 /) - kao(:, 1, 6, 7) = (/ & - &4.1535e+00 ,3.6349e+00 ,3.1163e+00 ,2.5976e+00 ,2.0789e+00 ,1.5604e+00 , & - &1.0424e+00 ,5.2499e-01 ,1.2119e-03 /) - kao(:, 2, 6, 7) = (/ & - &4.0999e+00 ,3.5882e+00 ,3.0765e+00 ,2.5650e+00 ,2.0536e+00 ,1.5426e+00 , & - &1.0319e+00 ,5.2076e-01 ,1.6878e-03 /) - kao(:, 3, 6, 7) = (/ & - &4.0501e+00 ,3.5452e+00 ,3.0400e+00 ,2.5354e+00 ,2.0310e+00 ,1.5269e+00 , & - &1.0226e+00 ,5.1681e-01 ,2.2703e-03 /) - kao(:, 4, 6, 7) = (/ & - &4.0172e+00 ,3.5170e+00 ,3.0163e+00 ,2.5163e+00 ,2.0166e+00 ,1.5168e+00 , & - &1.0153e+00 ,5.1695e-01 ,2.9634e-03 /) - kao(:, 5, 6, 7) = (/ & - &4.0047e+00 ,3.5059e+00 ,3.0081e+00 ,2.5099e+00 ,2.0120e+00 ,1.5128e+00 , & - &1.0149e+00 ,5.2194e-01 ,3.7748e-03 /) - kao(:, 1, 7, 7) = (/ & - &7.1454e+00 ,6.2526e+00 ,5.3597e+00 ,4.4669e+00 ,3.5744e+00 ,2.6816e+00 , & - &1.7891e+00 ,8.9724e-01 ,7.5005e-04 /) - kao(:, 2, 7, 7) = (/ & - &7.0662e+00 ,6.1833e+00 ,5.3006e+00 ,4.4177e+00 ,3.5356e+00 ,2.6534e+00 , & - &1.7715e+00 ,8.9007e-01 ,1.0984e-03 /) - kao(:, 3, 7, 7) = (/ & - &7.0091e+00 ,6.1337e+00 ,5.2586e+00 ,4.3836e+00 ,3.5085e+00 ,2.6339e+00 , & - &1.7596e+00 ,8.8470e-01 ,1.5427e-03 /) - kao(:, 4, 7, 7) = (/ & - &6.9967e+00 ,6.1229e+00 ,5.2499e+00 ,4.3767e+00 ,3.5037e+00 ,2.6314e+00 , & - &1.7589e+00 ,8.8464e-01 ,2.0814e-03 /) - kao(:, 5, 7, 7) = (/ & - &7.0262e+00 ,6.1495e+00 ,5.2733e+00 ,4.3969e+00 ,3.5208e+00 ,2.6451e+00 , & - &1.7672e+00 ,8.9234e-01 ,2.7067e-03 /) - kao(:, 1, 8, 7) = (/ & - &1.4691e+01 ,1.2856e+01 ,1.1019e+01 ,9.1832e+00 ,7.3472e+00 ,5.5112e+00 , & - &3.6752e+00 ,1.8392e+00 ,5.0466e-04 /) - kao(:, 2, 8, 7) = (/ & - &1.4561e+01 ,1.2741e+01 ,1.0922e+01 ,9.1018e+00 ,7.2824e+00 ,5.4631e+00 , & - &3.6434e+00 ,1.8247e+00 ,7.0108e-04 /) - kao(:, 3, 8, 7) = (/ & - &1.4517e+01 ,1.2702e+01 ,1.0889e+01 ,9.0751e+00 ,7.2609e+00 ,5.4474e+00 , & - &3.6338e+00 ,1.8215e+00 ,9.5134e-04 /) - kao(:, 4, 8, 7) = (/ & - &1.4592e+01 ,1.2768e+01 ,1.0945e+01 ,9.1223e+00 ,7.2994e+00 ,5.4774e+00 , & - &3.6552e+00 ,1.8334e+00 ,1.2923e-03 /) - kao(:, 5, 8, 7) = (/ & - &1.4780e+01 ,1.2933e+01 ,1.1086e+01 ,9.2409e+00 ,7.3952e+00 ,5.5498e+00 , & - &3.7048e+00 ,1.8578e+00 ,1.7359e-03 /) - kao(:, 1, 9, 7) = (/ & - &5.6885e+01 ,4.9776e+01 ,4.2665e+01 ,3.5554e+01 ,2.8444e+01 ,2.1332e+01 , & - &1.4224e+01 ,7.1126e+00 ,6.2609e-04 /) - kao(:, 2, 9, 7) = (/ & - &5.6580e+01 ,4.9509e+01 ,4.2436e+01 ,3.5363e+01 ,2.8291e+01 ,2.1219e+01 , & - &1.4147e+01 ,7.0751e+00 ,8.0177e-04 /) - kao(:, 3, 9, 7) = (/ & - &5.6732e+01 ,4.9637e+01 ,4.2548e+01 ,3.5458e+01 ,2.8366e+01 ,2.1276e+01 , & - &1.4184e+01 ,7.0949e+00 ,1.0220e-03 /) - kao(:, 4, 9, 7) = (/ & - &5.7468e+01 ,5.0286e+01 ,4.3101e+01 ,3.5920e+01 ,2.8736e+01 ,2.1553e+01 , & - &1.4371e+01 ,7.1892e+00 ,1.2387e-03 /) - kao(:, 5, 9, 7) = (/ & - &5.8635e+01 ,5.1306e+01 ,4.3977e+01 ,3.6648e+01 ,2.9321e+01 ,2.1992e+01 , & - &1.4665e+01 ,7.3378e+00 ,1.5501e-03 /) - kao(:, 1,10, 7) = (/ & - &2.4487e+02 ,2.1424e+02 ,1.8364e+02 ,1.5304e+02 ,1.2243e+02 ,9.1825e+01 , & - &6.1214e+01 ,3.0606e+01 ,1.7354e-03 /) - kao(:, 2,10, 7) = (/ & - &2.4490e+02 ,2.1431e+02 ,1.8369e+02 ,1.5309e+02 ,1.2247e+02 ,9.1851e+01 , & - &6.1230e+01 ,3.0619e+01 ,1.7748e-03 /) - kao(:, 3,10, 7) = (/ & - &2.4755e+02 ,2.1661e+02 ,1.8568e+02 ,1.5472e+02 ,1.2378e+02 ,9.2834e+01 , & - &6.1889e+01 ,3.0945e+01 ,1.9607e-03 /) - kao(:, 4,10, 7) = (/ & - &2.5293e+02 ,2.2132e+02 ,1.8970e+02 ,1.5807e+02 ,1.2647e+02 ,9.4852e+01 , & - &6.3238e+01 ,3.1620e+01 ,2.3523e-03 /) - kao(:, 5,10, 7) = (/ & - &2.5940e+02 ,2.2699e+02 ,1.9456e+02 ,1.6213e+02 ,1.2971e+02 ,9.7282e+01 , & - &6.4856e+01 ,3.2431e+01 ,2.7354e-03 /) - kao(:, 1,11, 7) = (/ & - &3.6899e+02 ,3.2288e+02 ,2.7677e+02 ,2.3063e+02 ,1.8452e+02 ,1.3837e+02 , & - &9.2255e+01 ,4.6125e+01 ,2.1265e-03 /) - kao(:, 2,11, 7) = (/ & - &3.7335e+02 ,3.2670e+02 ,2.8002e+02 ,2.3334e+02 ,1.8669e+02 ,1.4002e+02 , & - &9.3341e+01 ,4.6674e+01 ,3.2080e-03 /) - kao(:, 3,11, 7) = (/ & - &3.8233e+02 ,3.3453e+02 ,2.8674e+02 ,2.3896e+02 ,1.9116e+02 ,1.4337e+02 , & - &9.5577e+01 ,4.7794e+01 ,3.4910e-03 /) - kao(:, 4,11, 7) = (/ & - &3.9299e+02 ,3.4383e+02 ,2.9472e+02 ,2.4561e+02 ,1.9648e+02 ,1.4736e+02 , & - &9.8242e+01 ,4.9120e+01 ,3.8208e-03 /) - kao(:, 5,11, 7) = (/ & - &4.0483e+02 ,3.5423e+02 ,3.0363e+02 ,2.5301e+02 ,2.0242e+02 ,1.5182e+02 , & - &1.0121e+02 ,5.0609e+01 ,4.2123e-03 /) - kao(:, 1,12, 7) = (/ & - &4.1937e+02 ,3.6695e+02 ,3.1452e+02 ,2.6211e+02 ,2.0969e+02 ,1.5726e+02 , & - &1.0485e+02 ,5.2423e+01 ,2.2784e-03 /) - kao(:, 2,12, 7) = (/ & - &4.2956e+02 ,3.7586e+02 ,3.2216e+02 ,2.6848e+02 ,2.1478e+02 ,1.6108e+02 , & - &1.0739e+02 ,5.3697e+01 ,3.5938e-03 /) - kao(:, 3,12, 7) = (/ & - &4.4222e+02 ,3.8693e+02 ,3.3164e+02 ,2.7638e+02 ,2.2109e+02 ,1.6582e+02 , & - &1.1055e+02 ,5.5277e+01 ,4.4037e-03 /) - kao(:, 4,12, 7) = (/ & - &4.5624e+02 ,3.9921e+02 ,3.4220e+02 ,2.8517e+02 ,2.2812e+02 ,1.7109e+02 , & - &1.1406e+02 ,5.7035e+01 ,4.5266e-03 /) - kao(:, 5,12, 7) = (/ & - &4.7013e+02 ,4.1136e+02 ,3.5259e+02 ,2.9384e+02 ,2.3506e+02 ,1.7630e+02 , & - &1.1754e+02 ,5.8765e+01 ,5.1545e-03 /) - kao(:, 1,13, 7) = (/ & - &3.8573e+02 ,3.3753e+02 ,2.8932e+02 ,2.4110e+02 ,1.9287e+02 ,1.4465e+02 , & - &9.6435e+01 ,4.8220e+01 ,2.4127e-03 /) - kao(:, 2,13, 7) = (/ & - &3.9713e+02 ,3.4748e+02 ,2.9784e+02 ,2.4821e+02 ,1.9856e+02 ,1.4893e+02 , & - &9.9282e+01 ,4.9641e+01 ,3.8706e-03 /) - kao(:, 3,13, 7) = (/ & - &4.1029e+02 ,3.5900e+02 ,3.0771e+02 ,2.5644e+02 ,2.0514e+02 ,1.5386e+02 , & - &1.0257e+02 ,5.1288e+01 ,4.7695e-03 /) - kao(:, 4,13, 7) = (/ & - &4.2344e+02 ,3.7050e+02 ,3.1756e+02 ,2.6463e+02 ,2.1170e+02 ,1.5878e+02 , & - &1.0586e+02 ,5.2932e+01 ,4.9706e-03 /) - kao(:, 5,13, 7) = (/ & - &4.3615e+02 ,3.8165e+02 ,3.2713e+02 ,2.7260e+02 ,2.1808e+02 ,1.6356e+02 , & - &1.0904e+02 ,5.4523e+01 ,5.6617e-03 /) - kao(:, 1, 1, 8) = (/ & - &5.2022e-01 ,4.5635e-01 ,3.9252e-01 ,3.3010e-01 ,2.6823e-01 ,2.0567e-01 , & - &1.4452e-01 ,8.4865e-02 ,1.8396e-02 /) - kao(:, 2, 1, 8) = (/ & - &5.2177e-01 ,4.5789e-01 ,3.9474e-01 ,3.3342e-01 ,2.7114e-01 ,2.1031e-01 , & - &1.5104e-01 ,9.2174e-02 ,2.3774e-02 /) - kao(:, 3, 1, 8) = (/ & - &5.2246e-01 ,4.5863e-01 ,3.9708e-01 ,3.3604e-01 ,2.7541e-01 ,2.1692e-01 , & - &1.5876e-01 ,9.9961e-02 ,3.0156e-02 /) - kao(:, 4, 1, 8) = (/ & - &5.2222e-01 ,4.5904e-01 ,3.9936e-01 ,3.3918e-01 ,2.8145e-01 ,2.2396e-01 , & - &1.6789e-01 ,1.0815e-01 ,3.7634e-02 /) - kao(:, 5, 1, 8) = (/ & - &5.2130e-01 ,4.5967e-01 ,4.0135e-01 ,3.4393e-01 ,2.8807e-01 ,2.3225e-01 , & - &1.7760e-01 ,1.1669e-01 ,4.6345e-02 /) - kao(:, 1, 2, 8) = (/ & - &8.1852e-01 ,7.1745e-01 ,6.1633e-01 ,5.1564e-01 ,4.1643e-01 ,3.1732e-01 , & - &2.1786e-01 ,1.2067e-01 ,1.4675e-02 /) - kao(:, 2, 2, 8) = (/ & - &8.1998e-01 ,7.1886e-01 ,6.1787e-01 ,5.1883e-01 ,4.2047e-01 ,3.2108e-01 , & - &2.2369e-01 ,1.2867e-01 ,1.9122e-02 /) - kao(:, 3, 2, 8) = (/ & - &8.2161e-01 ,7.2051e-01 ,6.2063e-01 ,5.2305e-01 ,4.2413e-01 ,3.2660e-01 , & - &2.3145e-01 ,1.3782e-01 ,2.4473e-02 /) - kao(:, 4, 2, 8) = (/ & - &8.2149e-01 ,7.2071e-01 ,6.2301e-01 ,5.2587e-01 ,4.2865e-01 ,3.3407e-01 , & - &2.4032e-01 ,1.4761e-01 ,3.0869e-02 /) - kao(:, 5, 2, 8) = (/ & - &8.1957e-01 ,7.1986e-01 ,6.2436e-01 ,5.2838e-01 ,4.3462e-01 ,3.4210e-01 , & - &2.5070e-01 ,1.5726e-01 ,3.8311e-02 /) - kao(:, 1, 3, 8) = (/ & - &1.7050e+00 ,1.4932e+00 ,1.2814e+00 ,1.0695e+00 ,8.5775e-01 ,6.4751e-01 , & - &4.3833e-01 ,2.2806e-01 ,1.0910e-02 /) - kao(:, 2, 3, 8) = (/ & - &1.7093e+00 ,1.4971e+00 ,1.2848e+00 ,1.0726e+00 ,8.6216e-01 ,6.5288e-01 , & - &4.4261e-01 ,2.3435e-01 ,1.4370e-02 /) - kao(:, 3, 3, 8) = (/ & - &1.7123e+00 ,1.5000e+00 ,1.2874e+00 ,1.0764e+00 ,8.6711e-01 ,6.5794e-01 , & - &4.4842e-01 ,2.4360e-01 ,1.8590e-02 /) - kao(:, 4, 3, 8) = (/ & - &1.7121e+00 ,1.4998e+00 ,1.2880e+00 ,1.0792e+00 ,8.7145e-01 ,6.6223e-01 , & - &4.5614e-01 ,2.5394e-01 ,2.3699e-02 /) - kao(:, 5, 3, 8) = (/ & - &1.7072e+00 ,1.4957e+00 ,1.2869e+00 ,1.0807e+00 ,8.7401e-01 ,6.6818e-01 , & - &4.6582e-01 ,2.6619e-01 ,2.9551e-02 /) - kao(:, 1, 4, 8) = (/ & - &3.5671e+00 ,3.1226e+00 ,2.6780e+00 ,2.2334e+00 ,1.7887e+00 ,1.3439e+00 , & - &9.0030e-01 ,4.5879e-01 ,7.8646e-03 /) - kao(:, 2, 4, 8) = (/ & - &3.5784e+00 ,3.1324e+00 ,2.6867e+00 ,2.2405e+00 ,1.7945e+00 ,1.3495e+00 , & - &9.0658e-01 ,4.6395e-01 ,1.0548e-02 /) - kao(:, 3, 4, 8) = (/ & - &3.5832e+00 ,3.1369e+00 ,2.6902e+00 ,2.2437e+00 ,1.7981e+00 ,1.3549e+00 , & - &9.1305e-01 ,4.7036e-01 ,1.3834e-02 /) - kao(:, 4, 4, 8) = (/ & - &3.5802e+00 ,3.1343e+00 ,2.6882e+00 ,2.2430e+00 ,1.8006e+00 ,1.3596e+00 , & - &9.1785e-01 ,4.7927e-01 ,1.7787e-02 /) - kao(:, 5, 4, 8) = (/ & - &3.5714e+00 ,3.1267e+00 ,2.6827e+00 ,2.2417e+00 ,1.8022e+00 ,1.3635e+00 , & - &9.2392e-01 ,4.9076e-01 ,2.2306e-02 /) - kao(:, 1, 5, 8) = (/ & - &6.7418e+00 ,5.9003e+00 ,5.0587e+00 ,4.2171e+00 ,3.3754e+00 ,2.5338e+00 , & - &1.6921e+00 ,8.5173e-01 ,5.5269e-03 /) - kao(:, 2, 5, 8) = (/ & - &6.7656e+00 ,5.9212e+00 ,5.0765e+00 ,4.2319e+00 ,3.3873e+00 ,2.5428e+00 , & - &1.6990e+00 ,8.5857e-01 ,7.5732e-03 /) - kao(:, 3, 5, 8) = (/ & - &6.7746e+00 ,5.9289e+00 ,5.0835e+00 ,4.2380e+00 ,3.3924e+00 ,2.5474e+00 , & - &1.7057e+00 ,8.6548e-01 ,1.0137e-02 /) - kao(:, 4, 5, 8) = (/ & - &6.7641e+00 ,5.9200e+00 ,5.0759e+00 ,4.2320e+00 ,3.3891e+00 ,2.5487e+00 , & - &1.7099e+00 ,8.7100e-01 ,1.3219e-02 /) - kao(:, 5, 5, 8) = (/ & - &6.7413e+00 ,5.9008e+00 ,5.0606e+00 ,4.2207e+00 ,3.3833e+00 ,2.5475e+00 , & - &1.7128e+00 ,8.7813e-01 ,1.6736e-02 /) - kao(:, 1, 6, 8) = (/ & - &1.1755e+01 ,1.0287e+01 ,8.8182e+00 ,7.3494e+00 ,5.8812e+00 ,4.4127e+00 , & - &2.9442e+00 ,1.4757e+00 ,3.7670e-03 /) - kao(:, 2, 6, 8) = (/ & - &1.1790e+01 ,1.0318e+01 ,8.8444e+00 ,7.3718e+00 ,5.8990e+00 ,4.4261e+00 , & - &2.9535e+00 ,1.4824e+00 ,5.2756e-03 /) - kao(:, 3, 6, 8) = (/ & - &1.1802e+01 ,1.0328e+01 ,8.8538e+00 ,7.3796e+00 ,5.9055e+00 ,4.4312e+00 , & - &2.9580e+00 ,1.4892e+00 ,7.2031e-03 /) - kao(:, 4, 6, 8) = (/ & - &1.1771e+01 ,1.0301e+01 ,8.8310e+00 ,7.3612e+00 ,5.8917e+00 ,4.4224e+00 , & - &2.9568e+00 ,1.4927e+00 ,9.5398e-03 /) - kao(:, 5, 6, 8) = (/ & - &1.1717e+01 ,1.0254e+01 ,8.7912e+00 ,7.3292e+00 ,5.8672e+00 ,4.4080e+00 , & - &2.9504e+00 ,1.4942e+00 ,1.2264e-02 /) - kao(:, 1, 7, 8) = (/ & - &2.1201e+01 ,1.8552e+01 ,1.5902e+01 ,1.3253e+01 ,1.0604e+01 ,7.9546e+00 , & - &5.3049e+00 ,2.6554e+00 ,2.5163e-03 /) - kao(:, 2, 7, 8) = (/ & - &2.1258e+01 ,1.8602e+01 ,1.5945e+01 ,1.3288e+01 ,1.0632e+01 ,7.9754e+00 , & - &5.3196e+00 ,2.6631e+00 ,3.6166e-03 /) - kao(:, 3, 7, 8) = (/ & - &2.1271e+01 ,1.8614e+01 ,1.5957e+01 ,1.3298e+01 ,1.0640e+01 ,7.9825e+00 , & - &5.3244e+00 ,2.6683e+00 ,5.0339e-03 /) - kao(:, 4, 7, 8) = (/ & - &2.1213e+01 ,1.8564e+01 ,1.5913e+01 ,1.3262e+01 ,1.0612e+01 ,7.9619e+00 , & - &5.3122e+00 ,2.6672e+00 ,6.7768e-03 /) - kao(:, 5, 7, 8) = (/ & - &2.1089e+01 ,1.8455e+01 ,1.5820e+01 ,1.3186e+01 ,1.0552e+01 ,7.9178e+00 , & - &5.2873e+00 ,2.6593e+00 ,8.8413e-03 /) - kao(:, 1, 8, 8) = (/ & - &4.5180e+01 ,3.9535e+01 ,3.3887e+01 ,2.8239e+01 ,2.2591e+01 ,1.6944e+01 , & - &1.1298e+01 ,5.6517e+00 ,1.3715e-03 /) - kao(:, 2, 8, 8) = (/ & - &4.5290e+01 ,3.9627e+01 ,3.3969e+01 ,2.8308e+01 ,2.2647e+01 ,1.6987e+01 , & - &1.1327e+01 ,5.6660e+00 ,2.0845e-03 /) - kao(:, 3, 8, 8) = (/ & - &4.5261e+01 ,3.9605e+01 ,3.3948e+01 ,2.8290e+01 ,2.2633e+01 ,1.6977e+01 , & - &1.1320e+01 ,5.6637e+00 ,3.2057e-03 /) - kao(:, 4, 8, 8) = (/ & - &4.5126e+01 ,3.9486e+01 ,3.3848e+01 ,2.8205e+01 ,2.2567e+01 ,1.6928e+01 , & - &1.1288e+01 ,5.6493e+00 ,4.5853e-03 /) - kao(:, 5, 8, 8) = (/ & - &4.4865e+01 ,3.9259e+01 ,3.3651e+01 ,2.8046e+01 ,2.2438e+01 ,1.6832e+01 , & - &1.1226e+01 ,5.6233e+00 ,6.2243e-03 /) - kao(:, 1, 9, 8) = (/ & - &1.7982e+02 ,1.5734e+02 ,1.3487e+02 ,1.1239e+02 ,8.9912e+01 ,6.7434e+01 , & - &4.4957e+01 ,2.2481e+01 ,1.3106e-03 /) - kao(:, 2, 9, 8) = (/ & - &1.7996e+02 ,1.5746e+02 ,1.3497e+02 ,1.1247e+02 ,8.9976e+01 ,6.7488e+01 , & - &4.4992e+01 ,2.2498e+01 ,1.6404e-03 /) - kao(:, 3, 9, 8) = (/ & - &1.7965e+02 ,1.5719e+02 ,1.3473e+02 ,1.1228e+02 ,8.9821e+01 ,6.7370e+01 , & - &4.4914e+01 ,2.2461e+01 ,2.0268e-03 /) - kao(:, 4, 9, 8) = (/ & - &1.7888e+02 ,1.5653e+02 ,1.3416e+02 ,1.1181e+02 ,8.9443e+01 ,6.7088e+01 , & - &4.4727e+01 ,2.2367e+01 ,2.6824e-03 /) - kao(:, 5, 9, 8) = (/ & - &1.7801e+02 ,1.5576e+02 ,1.3351e+02 ,1.1126e+02 ,8.9014e+01 ,6.6762e+01 , & - &4.4512e+01 ,2.2261e+01 ,3.2961e-03 /) - kao(:, 1,10, 8) = (/ & - &7.9186e+02 ,6.9285e+02 ,5.9387e+02 ,4.9485e+02 ,3.9587e+02 ,2.9692e+02 , & - &1.9795e+02 ,9.8980e+01 ,2.6434e-03 /) - kao(:, 2,10, 8) = (/ & - &7.9156e+02 ,6.9260e+02 ,5.9370e+02 ,4.9476e+02 ,3.9580e+02 ,2.9685e+02 , & - &1.9789e+02 ,9.8956e+01 ,3.6689e-03 /) - kao(:, 3,10, 8) = (/ & - &7.8897e+02 ,6.9037e+02 ,5.9173e+02 ,4.9309e+02 ,3.9450e+02 ,2.9589e+02 , & - &1.9725e+02 ,9.8635e+01 ,4.1214e-03 /) - kao(:, 4,10, 8) = (/ & - &7.8518e+02 ,6.8703e+02 ,5.8889e+02 ,4.9073e+02 ,3.9258e+02 ,2.9444e+02 , & - &1.9631e+02 ,9.8149e+01 ,4.6533e-03 /) - kao(:, 5,10, 8) = (/ & - &7.8271e+02 ,6.8490e+02 ,5.8707e+02 ,4.8922e+02 ,3.9137e+02 ,2.9354e+02 , & - &1.9568e+02 ,9.7851e+01 ,5.3114e-03 /) - kao(:, 1,11, 8) = (/ & - &1.2023e+03 ,1.0521e+03 ,9.0173e+02 ,7.5144e+02 ,6.0116e+02 ,4.5091e+02 , & - &3.0058e+02 ,1.5029e+02 ,2.8585e-03 /) - kao(:, 2,11, 8) = (/ & - &1.1987e+03 ,1.0489e+03 ,8.9906e+02 ,7.4919e+02 ,5.9938e+02 ,4.4951e+02 , & - &2.9969e+02 ,1.4984e+02 ,4.2381e-03 /) - kao(:, 3,11, 8) = (/ & - &1.1938e+03 ,1.0446e+03 ,8.9539e+02 ,7.4611e+02 ,5.9694e+02 ,4.4768e+02 , & - &2.9847e+02 ,1.4923e+02 ,6.1776e-03 /) - kao(:, 4,11, 8) = (/ & - &1.1919e+03 ,1.0429e+03 ,8.9396e+02 ,7.4498e+02 ,5.9597e+02 ,4.4698e+02 , & - &2.9797e+02 ,1.4900e+02 ,6.8124e-03 /) - kao(:, 5,11, 8) = (/ & - &1.1943e+03 ,1.0450e+03 ,8.9567e+02 ,7.4646e+02 ,5.9716e+02 ,4.4786e+02 , & - &2.9857e+02 ,1.4929e+02 ,7.2330e-03 /) - kao(:, 1,12, 8) = (/ & - &1.3468e+03 ,1.1784e+03 ,1.0101e+03 ,8.4170e+02 ,6.7334e+02 ,5.0503e+02 , & - &3.3668e+02 ,1.6834e+02 ,3.2180e-03 /) - kao(:, 2,12, 8) = (/ & - &1.3417e+03 ,1.1740e+03 ,1.0062e+03 ,8.3855e+02 ,6.7082e+02 ,5.0314e+02 , & - &3.3541e+02 ,1.6772e+02 ,4.6846e-03 /) - kao(:, 3,12, 8) = (/ & - &1.3409e+03 ,1.1734e+03 ,1.0058e+03 ,8.3814e+02 ,6.7048e+02 ,5.0287e+02 , & - &3.3524e+02 ,1.6763e+02 ,6.5606e-03 /) - kao(:, 4,12, 8) = (/ & - &1.3471e+03 ,1.1787e+03 ,1.0103e+03 ,8.4192e+02 ,6.7354e+02 ,5.0515e+02 , & - &3.3677e+02 ,1.6839e+02 ,8.6936e-03 /) - kao(:, 5,12, 8) = (/ & - &1.3615e+03 ,1.1913e+03 ,1.0211e+03 ,8.5093e+02 ,6.8072e+02 ,5.1056e+02 , & - &3.4035e+02 ,1.7018e+02 ,9.2918e-03 /) - kao(:, 1,13, 8) = (/ & - &1.2096e+03 ,1.0584e+03 ,9.0717e+02 ,7.5599e+02 ,6.0478e+02 ,4.5359e+02 , & - &3.0240e+02 ,1.5119e+02 ,3.1447e-03 /) - kao(:, 2,13, 8) = (/ & - &1.2095e+03 ,1.0583e+03 ,9.0711e+02 ,7.5597e+02 ,6.0474e+02 ,4.5355e+02 , & - &3.0238e+02 ,1.5119e+02 ,4.9163e-03 /) - kao(:, 3,13, 8) = (/ & - &1.2161e+03 ,1.0641e+03 ,9.1208e+02 ,7.6006e+02 ,6.0804e+02 ,4.5603e+02 , & - &3.0401e+02 ,1.5201e+02 ,6.8865e-03 /) - kao(:, 4,13, 8) = (/ & - &1.2328e+03 ,1.0787e+03 ,9.2458e+02 ,7.7050e+02 ,6.1637e+02 ,4.6230e+02 , & - &3.0819e+02 ,1.5410e+02 ,9.4613e-03 /) - kao(:, 5,13, 8) = (/ & - &1.2601e+03 ,1.1026e+03 ,9.4505e+02 ,7.8755e+02 ,6.3004e+02 ,4.7254e+02 , & - &3.1501e+02 ,1.5751e+02 ,1.0283e-02 /) - kao(:, 1, 1, 9) = (/ & - &1.0370e+00 ,9.0857e-01 ,7.8023e-01 ,6.5192e-01 ,5.2457e-01 ,4.0025e-01 , & - &2.7828e-01 ,1.5804e-01 ,5.8897e-02 /) - kao(:, 2, 1, 9) = (/ & - &1.0492e+00 ,9.1962e-01 ,7.9014e-01 ,6.6101e-01 ,5.3535e-01 ,4.1219e-01 , & - &2.9064e-01 ,1.7381e-01 ,7.6414e-02 /) - kao(:, 3, 1, 9) = (/ & - &1.0617e+00 ,9.3102e-01 ,8.0032e-01 ,6.7200e-01 ,5.4761e-01 ,4.2620e-01 , & - &3.0674e-01 ,1.9538e-01 ,9.6701e-02 /) - kao(:, 4, 1, 9) = (/ & - &1.0715e+00 ,9.3980e-01 ,8.0850e-01 ,6.8264e-01 ,5.6043e-01 ,4.4205e-01 , & - &3.2592e-01 ,2.2229e-01 ,1.1943e-01 /) - kao(:, 5, 1, 9) = (/ & - &1.0801e+00 ,9.4751e-01 ,8.1733e-01 ,6.9368e-01 ,5.7613e-01 ,4.6079e-01 , & - &3.5014e-01 ,2.5319e-01 ,1.4487e-01 /) - kao(:, 1, 2, 9) = (/ & - &1.7442e+00 ,1.5272e+00 ,1.3102e+00 ,1.0933e+00 ,8.7649e-01 ,6.6091e-01 , & - &4.4902e-01 ,2.3891e-01 ,5.2362e-02 /) - kao(:, 2, 2, 9) = (/ & - &1.7617e+00 ,1.5427e+00 ,1.3238e+00 ,1.1049e+00 ,8.8687e-01 ,6.7276e-01 , & - &4.6180e-01 ,2.5188e-01 ,6.8691e-02 /) - kao(:, 3, 2, 9) = (/ & - &1.7768e+00 ,1.5563e+00 ,1.3359e+00 ,1.1155e+00 ,8.9933e-01 ,6.8666e-01 , & - &4.7568e-01 ,2.6925e-01 ,8.7599e-02 /) - kao(:, 4, 2, 9) = (/ & - &1.7902e+00 ,1.5683e+00 ,1.3467e+00 ,1.1272e+00 ,9.1292e-01 ,7.0212e-01 , & - &4.9313e-01 ,2.9218e-01 ,1.0892e-01 /) - kao(:, 5, 2, 9) = (/ & - &1.8007e+00 ,1.5781e+00 ,1.3558e+00 ,1.1390e+00 ,9.2668e-01 ,7.1895e-01 , & - &5.1345e-01 ,3.2009e-01 ,1.3290e-01 /) - kao(:, 1, 3, 9) = (/ & - &3.9769e+00 ,3.4805e+00 ,2.9839e+00 ,2.4875e+00 ,1.9912e+00 ,1.4948e+00 , & - &9.9892e-01 ,5.0928e-01 ,4.2777e-02 /) - kao(:, 2, 3, 9) = (/ & - &4.0084e+00 ,3.5082e+00 ,3.0084e+00 ,2.5082e+00 ,2.0082e+00 ,1.5084e+00 , & - &1.0123e+00 ,5.2189e-01 ,5.7041e-02 /) - kao(:, 3, 3, 9) = (/ & - &4.0345e+00 ,3.5316e+00 ,3.0286e+00 ,2.5259e+00 ,2.0232e+00 ,1.5223e+00 , & - &1.0275e+00 ,5.3508e-01 ,7.3780e-02 /) - kao(:, 4, 3, 9) = (/ & - &4.0588e+00 ,3.5535e+00 ,3.0482e+00 ,2.5430e+00 ,2.0380e+00 ,1.5389e+00 , & - &1.0447e+00 ,5.5284e-01 ,9.2939e-02 /) - kao(:, 5, 3, 9) = (/ & - &4.0766e+00 ,3.5694e+00 ,3.0624e+00 ,2.5553e+00 ,2.0517e+00 ,1.5545e+00 , & - &1.0614e+00 ,5.7409e-01 ,1.1487e-01 /) - kao(:, 1, 4, 9) = (/ & - &9.2347e+00 ,8.0808e+00 ,6.9267e+00 ,5.7730e+00 ,4.6191e+00 ,3.4653e+00 , & - &2.3115e+00 ,1.1586e+00 ,3.3639e-02 /) - kao(:, 2, 4, 9) = (/ & - &9.3231e+00 ,8.1587e+00 ,6.9942e+00 ,5.8295e+00 ,4.6650e+00 ,3.5006e+00 , & - &2.3364e+00 ,1.1757e+00 ,4.5584e-02 /) - kao(:, 3, 4, 9) = (/ & - &9.3883e+00 ,8.2160e+00 ,7.0435e+00 ,5.8714e+00 ,4.6992e+00 ,3.5271e+00 , & - &2.3555e+00 ,1.1930e+00 ,5.9759e-02 /) - kao(:, 4, 4, 9) = (/ & - &9.4383e+00 ,8.2599e+00 ,7.0821e+00 ,5.9042e+00 ,4.7261e+00 ,3.5482e+00 , & - &2.3742e+00 ,1.2110e+00 ,7.6294e-02 /) - kao(:, 5, 4, 9) = (/ & - &9.4750e+00 ,8.2926e+00 ,7.1106e+00 ,5.9283e+00 ,4.7463e+00 ,3.5648e+00 , & - &2.3926e+00 ,1.2283e+00 ,9.5542e-02 /) - kao(:, 1, 5, 9) = (/ & - &1.9585e+01 ,1.7137e+01 ,1.4689e+01 ,1.2242e+01 ,9.7941e+00 ,7.3465e+00 , & - &4.8988e+00 ,2.4515e+00 ,2.6102e-02 /) - kao(:, 2, 5, 9) = (/ & - &1.9780e+01 ,1.7309e+01 ,1.4837e+01 ,1.2365e+01 ,9.8932e+00 ,7.4216e+00 , & - &4.9500e+00 ,2.4789e+00 ,3.5859e-02 /) - kao(:, 3, 5, 9) = (/ & - &1.9935e+01 ,1.7444e+01 ,1.4954e+01 ,1.2463e+01 ,9.9721e+00 ,7.4814e+00 , & - &4.9911e+00 ,2.5017e+00 ,4.7575e-02 /) - kao(:, 4, 5, 9) = (/ & - &2.0051e+01 ,1.7546e+01 ,1.5041e+01 ,1.2537e+01 ,1.0032e+01 ,7.5273e+00 , & - &5.0227e+00 ,2.5239e+00 ,6.1484e-02 /) - kao(:, 5, 5, 9) = (/ & - &2.0135e+01 ,1.7620e+01 ,1.5106e+01 ,1.2591e+01 ,1.0076e+01 ,7.5609e+00 , & - &5.0463e+00 ,2.5450e+00 ,7.7952e-02 /) - kao(:, 1, 6, 9) = (/ & - &3.8631e+01 ,3.3801e+01 ,2.8974e+01 ,2.4144e+01 ,1.9316e+01 ,1.4488e+01 , & - &9.6597e+00 ,4.8315e+00 ,1.9604e-02 /) - kao(:, 2, 6, 9) = (/ & - &3.9022e+01 ,3.4145e+01 ,2.9268e+01 ,2.4390e+01 ,1.9513e+01 ,1.4636e+01 , & - &9.7595e+00 ,4.8831e+00 ,2.7435e-02 /) - kao(:, 3, 6, 9) = (/ & - &3.9348e+01 ,3.4431e+01 ,2.9514e+01 ,2.4596e+01 ,1.9679e+01 ,1.4761e+01 , & - &9.8442e+00 ,4.9267e+00 ,3.6949e-02 /) - kao(:, 4, 6, 9) = (/ & - &3.9594e+01 ,3.4646e+01 ,2.9698e+01 ,2.4751e+01 ,1.9803e+01 ,1.4855e+01 , & - &9.9079e+00 ,4.9603e+00 ,4.8442e-02 /) - kao(:, 5, 6, 9) = (/ & - &3.9770e+01 ,3.4801e+01 ,2.9832e+01 ,2.4862e+01 ,1.9893e+01 ,1.4924e+01 , & - &9.9544e+00 ,4.9871e+00 ,6.2169e-02 /) - kao(:, 1, 7, 9) = (/ & - &7.9230e+01 ,6.9326e+01 ,5.9424e+01 ,4.9520e+01 ,3.9617e+01 ,2.9713e+01 , & - &1.9810e+01 ,9.9063e+00 ,1.4333e-02 /) - kao(:, 2, 7, 9) = (/ & - &8.0053e+01 ,7.0047e+01 ,6.0041e+01 ,5.0034e+01 ,4.0029e+01 ,3.0023e+01 , & - &2.0018e+01 ,1.0011e+01 ,2.0474e-02 /) - kao(:, 3, 7, 9) = (/ & - &8.0747e+01 ,7.0654e+01 ,6.0562e+01 ,5.0470e+01 ,4.0378e+01 ,3.0286e+01 , & - &2.0193e+01 ,1.0101e+01 ,2.8098e-02 /) - kao(:, 4, 7, 9) = (/ & - &8.1303e+01 ,7.1142e+01 ,6.0980e+01 ,5.0819e+01 ,4.0658e+01 ,3.0496e+01 , & - &2.0334e+01 ,1.0173e+01 ,3.7439e-02 /) - kao(:, 5, 7, 9) = (/ & - &8.1680e+01 ,7.1472e+01 ,6.1265e+01 ,5.1057e+01 ,4.0847e+01 ,3.0638e+01 , & - &2.0431e+01 ,1.0223e+01 ,4.8718e-02 /) - kao(:, 1, 8, 9) = (/ & - &1.9140e+02 ,1.6747e+02 ,1.4355e+02 ,1.1962e+02 ,9.5701e+01 ,7.1775e+01 , & - &4.7850e+01 ,2.3927e+01 ,1.0137e-02 /) - kao(:, 2, 8, 9) = (/ & - &1.9353e+02 ,1.6934e+02 ,1.4515e+02 ,1.2096e+02 ,9.6769e+01 ,7.2577e+01 , & - &4.8385e+01 ,2.4195e+01 ,1.4960e-02 /) - kao(:, 3, 8, 9) = (/ & - &1.9528e+02 ,1.7086e+02 ,1.4646e+02 ,1.2205e+02 ,9.7642e+01 ,7.3231e+01 , & - &4.8824e+01 ,2.4416e+01 ,2.0883e-02 /) - kao(:, 4, 8, 9) = (/ & - &1.9672e+02 ,1.7213e+02 ,1.4754e+02 ,1.2295e+02 ,9.8361e+01 ,7.3773e+01 , & - &4.9186e+01 ,2.4598e+01 ,2.8267e-02 /) - kao(:, 5, 8, 9) = (/ & - &1.9763e+02 ,1.7293e+02 ,1.4824e+02 ,1.2352e+02 ,9.8820e+01 ,7.4120e+01 , & - &4.9417e+01 ,2.4716e+01 ,3.7324e-02 /) - kao(:, 1, 9, 9) = (/ & - &8.5696e+02 ,7.4986e+02 ,6.4272e+02 ,5.3561e+02 ,4.2849e+02 ,3.2137e+02 , & - &2.1425e+02 ,1.0712e+02 ,4.9710e-03 /) - kao(:, 2, 9, 9) = (/ & - &8.6661e+02 ,7.5827e+02 ,6.4996e+02 ,5.4164e+02 ,4.3331e+02 ,3.2498e+02 , & - &2.1666e+02 ,1.0833e+02 ,7.7324e-03 /) - kao(:, 3, 9, 9) = (/ & - &8.7472e+02 ,7.6537e+02 ,6.5602e+02 ,5.4669e+02 ,4.3735e+02 ,3.2801e+02 , & - &2.1868e+02 ,1.0935e+02 ,1.2302e-02 /) - kao(:, 4, 9, 9) = (/ & - &8.8128e+02 ,7.7113e+02 ,6.6095e+02 ,5.5081e+02 ,4.4064e+02 ,3.3048e+02 , & - &2.2033e+02 ,1.1017e+02 ,1.8205e-02 /) - kao(:, 5, 9, 9) = (/ & - &8.8594e+02 ,7.7518e+02 ,6.6448e+02 ,5.5372e+02 ,4.4298e+02 ,3.3223e+02 , & - &2.2150e+02 ,1.1076e+02 ,2.5853e-02 /) - kao(:, 1,10, 9) = (/ & - &4.2110e+03 ,3.6847e+03 ,3.1582e+03 ,2.6319e+03 ,2.1055e+03 ,1.5792e+03 , & - &1.0527e+03 ,5.2637e+02 ,5.0235e-03 /) - kao(:, 2,10, 9) = (/ & - &4.2578e+03 ,3.7256e+03 ,3.1934e+03 ,2.6613e+03 ,2.1289e+03 ,1.5967e+03 , & - &1.0645e+03 ,5.3224e+02 ,7.3952e-03 /) - kao(:, 3,10, 9) = (/ & - &4.2976e+03 ,3.7604e+03 ,3.2232e+03 ,2.6860e+03 ,2.1488e+03 ,1.6116e+03 , & - &1.0744e+03 ,5.3720e+02 ,1.0255e-02 /) - kao(:, 4,10, 9) = (/ & - &4.3279e+03 ,3.7869e+03 ,3.2460e+03 ,2.7049e+03 ,2.1640e+03 ,1.6230e+03 , & - &1.0820e+03 ,5.4099e+02 ,1.2154e-02 /) - kao(:, 5,10, 9) = (/ & - &4.3496e+03 ,3.8060e+03 ,3.2622e+03 ,2.7186e+03 ,2.1748e+03 ,1.6311e+03 , & - &1.0874e+03 ,5.4372e+02 ,1.4719e-02 /) - kao(:, 1,11, 9) = (/ & - &7.1173e+03 ,6.2277e+03 ,5.3380e+03 ,4.4482e+03 ,3.5586e+03 ,2.6690e+03 , & - &1.7793e+03 ,8.8967e+02 ,4.7950e-03 /) - kao(:, 2,11, 9) = (/ & - &7.1866e+03 ,6.2881e+03 ,5.3900e+03 ,4.4917e+03 ,3.5933e+03 ,2.6950e+03 , & - &1.7967e+03 ,8.9836e+02 ,1.0381e-02 /) - kao(:, 3,11, 9) = (/ & - &7.2420e+03 ,6.3363e+03 ,5.4313e+03 ,4.5262e+03 ,3.6209e+03 ,2.7156e+03 , & - &1.8104e+03 ,9.0520e+02 ,1.1192e-02 /) - kao(:, 4,11, 9) = (/ & - &7.2818e+03 ,6.3715e+03 ,5.4613e+03 ,4.5511e+03 ,3.6409e+03 ,2.7307e+03 , & - &1.8205e+03 ,9.1025e+02 ,1.5145e-02 /) - kao(:, 5,11, 9) = (/ & - &7.3078e+03 ,6.3944e+03 ,5.4808e+03 ,4.5675e+03 ,3.6540e+03 ,2.7404e+03 , & - &1.8270e+03 ,9.1351e+02 ,1.9391e-02 /) - kao(:, 1,12, 9) = (/ & - &8.7768e+03 ,7.6797e+03 ,6.5826e+03 ,5.4853e+03 ,4.3884e+03 ,3.2912e+03 , & - &2.1942e+03 ,1.0970e+03 ,4.5625e-03 /) - kao(:, 2,12, 9) = (/ & - &8.8507e+03 ,7.7442e+03 ,6.6378e+03 ,5.5316e+03 ,4.4251e+03 ,3.3189e+03 , & - &2.2126e+03 ,1.1063e+03 ,8.7877e-03 /) - kao(:, 3,12, 9) = (/ & - &8.9020e+03 ,7.7891e+03 ,6.6765e+03 ,5.5638e+03 ,4.4512e+03 ,3.3383e+03 , & - &2.2256e+03 ,1.1128e+03 ,1.5209e-02 /) - kao(:, 4,12, 9) = (/ & - &8.9305e+03 ,7.8144e+03 ,6.6981e+03 ,5.5817e+03 ,4.4653e+03 ,3.3489e+03 , & - &2.2326e+03 ,1.1163e+03 ,1.7795e-02 /) - kao(:, 5,12, 9) = (/ & - &8.9442e+03 ,7.8262e+03 ,6.7079e+03 ,5.5901e+03 ,4.4720e+03 ,3.3539e+03 , & - &2.2360e+03 ,1.1180e+03 ,2.1474e-02 /) - kao(:, 1,13, 9) = (/ & - &8.5284e+03 ,7.4622e+03 ,6.3962e+03 ,5.3302e+03 ,4.2643e+03 ,3.1981e+03 , & - &2.1321e+03 ,1.0660e+03 ,6.4304e-03 /) - kao(:, 2,13, 9) = (/ & - &8.5795e+03 ,7.5072e+03 ,6.4348e+03 ,5.3623e+03 ,4.2900e+03 ,3.2173e+03 , & - &2.1449e+03 ,1.0725e+03 ,8.8022e-03 /) - kao(:, 3,13, 9) = (/ & - &8.6101e+03 ,7.5338e+03 ,6.4575e+03 ,5.3813e+03 ,4.3050e+03 ,3.2288e+03 , & - &2.1525e+03 ,1.0763e+03 ,1.7025e-02 /) - kao(:, 4,13, 9) = (/ & - &8.6267e+03 ,7.5481e+03 ,6.4701e+03 ,5.3916e+03 ,4.3132e+03 ,3.2351e+03 , & - &2.1567e+03 ,1.0783e+03 ,2.0223e-02 /) - kao(:, 5,13, 9) = (/ & - &8.6229e+03 ,7.5451e+03 ,6.4669e+03 ,5.3892e+03 ,4.3114e+03 ,3.2335e+03 , & - &2.1558e+03 ,1.0779e+03 ,2.3841e-02 /) - kao(:, 1, 1,10) = (/ & - &3.0277e+00 ,2.6495e+00 ,2.2716e+00 ,1.8933e+00 ,1.5153e+00 ,1.1372e+00 , & - &7.5951e-01 ,4.2431e-01 ,1.1653e-01 /) - kao(:, 2, 1,10) = (/ & - &3.0877e+00 ,2.7021e+00 ,2.3167e+00 ,1.9311e+00 ,1.5454e+00 ,1.1599e+00 , & - &7.9480e-01 ,4.6158e-01 ,1.5133e-01 /) - kao(:, 3, 1,10) = (/ & - &3.1443e+00 ,2.7514e+00 ,2.3589e+00 ,1.9665e+00 ,1.5738e+00 ,1.1839e+00 , & - &8.4936e-01 ,4.8883e-01 ,1.8963e-01 /) - kao(:, 4, 1,10) = (/ & - &3.1902e+00 ,2.7921e+00 ,2.3935e+00 ,1.9952e+00 ,1.5971e+00 ,1.2268e+00 , & - &8.9927e-01 ,5.1426e-01 ,2.3885e-01 /) - kao(:, 5, 1,10) = (/ & - &3.2311e+00 ,2.8275e+00 ,2.4242e+00 ,2.0206e+00 ,1.6182e+00 ,1.2846e+00 , & - &9.3468e-01 ,5.5470e-01 ,2.9337e-01 /) - kao(:, 1, 2,10) = (/ & - &4.5362e+00 ,3.9696e+00 ,3.4027e+00 ,2.8358e+00 ,2.2692e+00 ,1.7025e+00 , & - &1.1358e+00 ,5.9446e-01 ,1.1450e-01 /) - kao(:, 2, 2,10) = (/ & - &4.6490e+00 ,4.0681e+00 ,3.4874e+00 ,2.9068e+00 ,2.3258e+00 ,1.7450e+00 , & - &1.1656e+00 ,6.4847e-01 ,1.4911e-01 /) - kao(:, 3, 2,10) = (/ & - &4.7559e+00 ,4.1617e+00 ,3.5676e+00 ,2.9735e+00 ,2.3793e+00 ,1.7851e+00 , & - &1.2174e+00 ,6.9018e-01 ,1.9066e-01 /) - kao(:, 4, 2,10) = (/ & - &4.8499e+00 ,4.2438e+00 ,3.6378e+00 ,3.0322e+00 ,2.4263e+00 ,1.8213e+00 , & - &1.2864e+00 ,7.2155e-01 ,2.3838e-01 /) - kao(:, 5, 2,10) = (/ & - &4.9283e+00 ,4.3130e+00 ,3.6972e+00 ,3.0815e+00 ,2.4657e+00 ,1.8737e+00 , & - &1.3480e+00 ,7.6180e-01 ,2.9224e-01 /) - kao(:, 1, 3,10) = (/ & - &9.1512e+00 ,8.0077e+00 ,6.8647e+00 ,5.7202e+00 ,4.5764e+00 ,3.4330e+00 , & - &2.2893e+00 ,1.1456e+00 ,1.0238e-01 /) - kao(:, 2, 3,10) = (/ & - &9.4295e+00 ,8.2512e+00 ,7.0726e+00 ,5.8941e+00 ,4.7160e+00 ,3.5376e+00 , & - &2.3591e+00 ,1.1894e+00 ,1.3683e-01 /) - kao(:, 3, 3,10) = (/ & - &9.6929e+00 ,8.4812e+00 ,7.2704e+00 ,6.0594e+00 ,4.8479e+00 ,3.6364e+00 , & - &2.4250e+00 ,1.2581e+00 ,1.7750e-01 /) - kao(:, 4, 3,10) = (/ & - &9.9289e+00 ,8.6885e+00 ,7.4477e+00 ,6.2066e+00 ,4.9652e+00 ,3.7251e+00 , & - &2.4842e+00 ,1.3376e+00 ,2.2412e-01 /) - kao(:, 5, 3,10) = (/ & - &1.0116e+01 ,8.8511e+00 ,7.5880e+00 ,6.3233e+00 ,5.0592e+00 ,3.7951e+00 , & - &2.5511e+00 ,1.3941e+00 ,2.7545e-01 /) - kao(:, 1, 4,10) = (/ & - &1.9425e+01 ,1.6997e+01 ,1.4568e+01 ,1.2141e+01 ,9.7127e+00 ,7.2856e+00 , & - &4.8569e+00 ,2.4292e+00 ,8.5208e-02 /) - kao(:, 2, 4,10) = (/ & - &1.9954e+01 ,1.7460e+01 ,1.4965e+01 ,1.2471e+01 ,9.9767e+00 ,7.4831e+00 , & - &4.9893e+00 ,2.4954e+00 ,1.1708e-01 /) - kao(:, 3, 4,10) = (/ & - &2.0423e+01 ,1.7870e+01 ,1.5318e+01 ,1.2764e+01 ,1.0212e+01 ,7.6596e+00 , & - &5.1068e+00 ,2.5544e+00 ,1.5673e-01 /) - kao(:, 4, 4,10) = (/ & - &2.0864e+01 ,1.8257e+01 ,1.5649e+01 ,1.3042e+01 ,1.0433e+01 ,7.8250e+00 , & - &5.2173e+00 ,2.6098e+00 ,2.0293e-01 /) - kao(:, 5, 4,10) = (/ & - &2.1248e+01 ,1.8592e+01 ,1.5938e+01 ,1.3281e+01 ,1.0624e+01 ,7.9692e+00 , & - &5.3131e+00 ,2.6931e+00 ,2.5421e-01 /) - kao(:, 1, 5,10) = (/ & - &4.0147e+01 ,3.5130e+01 ,3.0111e+01 ,2.5093e+01 ,2.0073e+01 ,1.5056e+01 , & - &1.0038e+01 ,5.0189e+00 ,6.8359e-02 /) - kao(:, 2, 5,10) = (/ & - &4.0924e+01 ,3.5810e+01 ,3.0692e+01 ,2.5576e+01 ,2.0461e+01 ,1.5346e+01 , & - &1.0232e+01 ,5.1160e+00 ,9.6926e-02 /) - kao(:, 3, 5,10) = (/ & - &4.1536e+01 ,3.6343e+01 ,3.1153e+01 ,2.5962e+01 ,2.0769e+01 ,1.5577e+01 , & - &1.0385e+01 ,5.1928e+00 ,1.3304e-01 /) - kao(:, 4, 5,10) = (/ & - &4.2166e+01 ,3.6896e+01 ,3.1624e+01 ,2.6353e+01 ,2.1083e+01 ,1.5813e+01 , & - &1.0542e+01 ,5.2715e+00 ,1.7579e-01 /) - kao(:, 5, 5,10) = (/ & - &4.2771e+01 ,3.7425e+01 ,3.2079e+01 ,2.6732e+01 ,2.1385e+01 ,1.6040e+01 , & - &1.0693e+01 ,5.3473e+00 ,2.2393e-01 /) - kao(:, 1, 6,10) = (/ & - &8.0027e+01 ,7.0022e+01 ,6.0023e+01 ,5.0019e+01 ,4.0013e+01 ,3.0011e+01 , & - &2.0007e+01 ,1.0004e+01 ,5.3924e-02 /) - kao(:, 2, 6,10) = (/ & - &8.1173e+01 ,7.1024e+01 ,6.0878e+01 ,5.0731e+01 ,4.0584e+01 ,3.0439e+01 , & - &2.0293e+01 ,1.0147e+01 ,7.8165e-02 /) - kao(:, 3, 6,10) = (/ & - &8.2280e+01 ,7.1996e+01 ,6.1710e+01 ,5.1425e+01 ,4.1141e+01 ,3.0855e+01 , & - &2.0570e+01 ,1.0285e+01 ,1.0934e-01 /) - kao(:, 4, 6,10) = (/ & - &8.3115e+01 ,7.2722e+01 ,6.2336e+01 ,5.1947e+01 ,4.1558e+01 ,3.1167e+01 , & - &2.0778e+01 ,1.0390e+01 ,1.4595e-01 /) - kao(:, 5, 6,10) = (/ & - &8.3819e+01 ,7.3349e+01 ,6.2867e+01 ,5.2391e+01 ,4.1913e+01 ,3.1434e+01 , & - &2.0957e+01 ,1.0479e+01 ,1.8806e-01 /) - kao(:, 1, 7,10) = (/ & - &1.6996e+02 ,1.4871e+02 ,1.2747e+02 ,1.0622e+02 ,8.4977e+01 ,6.3734e+01 , & - &4.2490e+01 ,2.1246e+01 ,4.2588e-02 /) - kao(:, 2, 7,10) = (/ & - &1.7243e+02 ,1.5088e+02 ,1.2932e+02 ,1.0776e+02 ,8.6211e+01 ,6.4660e+01 , & - &4.3106e+01 ,2.1553e+01 ,6.2851e-02 /) - kao(:, 3, 7,10) = (/ & - &1.7457e+02 ,1.5274e+02 ,1.3092e+02 ,1.0910e+02 ,8.7283e+01 ,6.5459e+01 , & - &4.3641e+01 ,2.1821e+01 ,8.8704e-02 /) - kao(:, 4, 7,10) = (/ & - &1.7636e+02 ,1.5432e+02 ,1.3227e+02 ,1.1023e+02 ,8.8183e+01 ,6.6138e+01 , & - &4.4090e+01 ,2.2046e+01 ,1.1966e-01 /) - kao(:, 5, 7,10) = (/ & - &1.7764e+02 ,1.5544e+02 ,1.3323e+02 ,1.1102e+02 ,8.8816e+01 ,6.6613e+01 , & - &4.4410e+01 ,2.2206e+01 ,1.5600e-01 /) - kao(:, 1, 8,10) = (/ & - &4.3531e+02 ,3.8090e+02 ,3.2647e+02 ,2.7207e+02 ,2.1766e+02 ,1.6325e+02 , & - &1.0883e+02 ,5.4412e+01 ,3.2634e-02 /) - kao(:, 2, 8,10) = (/ & - &4.4098e+02 ,3.8585e+02 ,3.3074e+02 ,2.7562e+02 ,2.2050e+02 ,1.6536e+02 , & - &1.1025e+02 ,5.5123e+01 ,4.9788e-02 /) - kao(:, 3, 8,10) = (/ & - &4.4650e+02 ,3.9069e+02 ,3.3490e+02 ,2.7906e+02 ,2.2325e+02 ,1.6744e+02 , & - &1.1162e+02 ,5.5816e+01 ,7.2094e-02 /) - kao(:, 4, 8,10) = (/ & - &4.5108e+02 ,3.9470e+02 ,3.3831e+02 ,2.8194e+02 ,2.2555e+02 ,1.6915e+02 , & - &1.1277e+02 ,5.6387e+01 ,9.8901e-02 /) - kao(:, 5, 8,10) = (/ & - &4.5442e+02 ,3.9761e+02 ,3.4081e+02 ,2.8400e+02 ,2.2721e+02 ,1.7040e+02 , & - &1.1360e+02 ,5.6798e+01 ,1.3038e-01 /) - kao(:, 1, 9,10) = (/ & - &2.1147e+03 ,1.8504e+03 ,1.5860e+03 ,1.3217e+03 ,1.0574e+03 ,7.9304e+02 , & - &5.2867e+02 ,2.6435e+02 ,1.9424e-02 /) - kao(:, 2, 9,10) = (/ & - &2.1442e+03 ,1.8762e+03 ,1.6082e+03 ,1.3401e+03 ,1.0721e+03 ,8.0408e+02 , & - &5.3608e+02 ,2.6803e+02 ,3.6865e-02 /) - kao(:, 3, 9,10) = (/ & - &2.1685e+03 ,1.8976e+03 ,1.6264e+03 ,1.3553e+03 ,1.0842e+03 ,8.1317e+02 , & - &5.4213e+02 ,2.7107e+02 ,5.5684e-02 /) - kao(:, 4, 9,10) = (/ & - &2.1886e+03 ,1.9151e+03 ,1.6415e+03 ,1.3680e+03 ,1.0943e+03 ,8.2077e+02 , & - &5.4720e+02 ,2.7360e+02 ,7.8135e-02 /) - kao(:, 5, 9,10) = (/ & - &2.2035e+03 ,1.9281e+03 ,1.6526e+03 ,1.3772e+03 ,1.1018e+03 ,8.2634e+02 , & - &5.5093e+02 ,2.7546e+02 ,1.0558e-01 /) - kao(:, 1,10,10) = (/ & - &1.1340e+04 ,9.9225e+03 ,8.5053e+03 ,7.0882e+03 ,5.6700e+03 ,4.2524e+03 , & - &2.8350e+03 ,1.4175e+03 ,1.1591e-02 /) - kao(:, 2,10,10) = (/ & - &1.1483e+04 ,1.0048e+04 ,8.6127e+03 ,7.1771e+03 ,5.7419e+03 ,4.3066e+03 , & - &2.8709e+03 ,1.4354e+03 ,1.2588e-02 /) - kao(:, 3,10,10) = (/ & - &1.1610e+04 ,1.0159e+04 ,8.7071e+03 ,7.2559e+03 ,5.8048e+03 ,4.3532e+03 , & - &2.9023e+03 ,1.4511e+03 ,2.5538e-02 /) - kao(:, 4,10,10) = (/ & - &1.1702e+04 ,1.0239e+04 ,8.7766e+03 ,7.3135e+03 ,5.8511e+03 ,4.3884e+03 , & - &2.9255e+03 ,1.4628e+03 ,4.5275e-02 /) - kao(:, 5,10,10) = (/ & - &1.1737e+04 ,1.0270e+04 ,8.8031e+03 ,7.3358e+03 ,5.8688e+03 ,4.4014e+03 , & - &2.9344e+03 ,1.4670e+03 ,5.8192e-02 /) - kao(:, 1,11,10) = (/ & - &2.0903e+04 ,1.8291e+04 ,1.5678e+04 ,1.3065e+04 ,1.0451e+04 ,7.8389e+03 , & - &5.2261e+03 ,2.6129e+03 ,7.1886e-03 /) - kao(:, 2,11,10) = (/ & - &2.1095e+04 ,1.8459e+04 ,1.5821e+04 ,1.3184e+04 ,1.0548e+04 ,7.9109e+03 , & - &5.2736e+03 ,2.6368e+03 ,6.0460e-03 /) - kao(:, 3,11,10) = (/ & - &2.1210e+04 ,1.8559e+04 ,1.5908e+04 ,1.3256e+04 ,1.0605e+04 ,7.9536e+03 , & - &5.3027e+03 ,2.6511e+03 ,2.6262e-02 /) - kao(:, 4,11,10) = (/ & - &2.1260e+04 ,1.8603e+04 ,1.5945e+04 ,1.3287e+04 ,1.0630e+04 ,7.9726e+03 , & - &5.3149e+03 ,2.6575e+03 ,3.1824e-02 /) - kao(:, 5,11,10) = (/ & - &2.1221e+04 ,1.8569e+04 ,1.5915e+04 ,1.3263e+04 ,1.0611e+04 ,7.9580e+03 , & - &5.3053e+03 ,2.6525e+03 ,4.2831e-02 /) - kao(:, 1,12,10) = (/ & - &2.8005e+04 ,2.4506e+04 ,2.1003e+04 ,1.7504e+04 ,1.4003e+04 ,1.0502e+04 , & - &7.0018e+03 ,3.5007e+03 ,1.9282e-02 /) - kao(:, 2,12,10) = (/ & - &2.8178e+04 ,2.4656e+04 ,2.1135e+04 ,1.7611e+04 ,1.4090e+04 ,1.0567e+04 , & - &7.0445e+03 ,3.5221e+03 ,8.6382e-03 /) - kao(:, 3,12,10) = (/ & - &2.8205e+04 ,2.4680e+04 ,2.1153e+04 ,1.7628e+04 ,1.4103e+04 ,1.0577e+04 , & - &7.0512e+03 ,3.5256e+03 ,2.9773e-02 /) - kao(:, 4,12,10) = (/ & - &2.8170e+04 ,2.4648e+04 ,2.1126e+04 ,1.7606e+04 ,1.4084e+04 ,1.0563e+04 , & - &7.0421e+03 ,3.5211e+03 ,3.9720e-02 /) - kao(:, 5,12,10) = (/ & - &2.8047e+04 ,2.4540e+04 ,2.1034e+04 ,1.7529e+04 ,1.4023e+04 ,1.0517e+04 , & - &7.0115e+03 ,3.5058e+03 ,4.1794e-02 /) - kao(:, 1,13,10) = (/ & - &2.9533e+04 ,2.5841e+04 ,2.2150e+04 ,1.8457e+04 ,1.4766e+04 ,1.1075e+04 , & - &7.3833e+03 ,3.6917e+03 ,1.5098e-03 /) - kao(:, 2,13,10) = (/ & - &2.9558e+04 ,2.5865e+04 ,2.2169e+04 ,1.8475e+04 ,1.4779e+04 ,1.1085e+04 , & - &7.3900e+03 ,3.6949e+03 ,1.2533e-02 /) - kao(:, 3,13,10) = (/ & - &2.9540e+04 ,2.5844e+04 ,2.2155e+04 ,1.8463e+04 ,1.4769e+04 ,1.1077e+04 , & - &7.3851e+03 ,3.6924e+03 ,1.7410e-02 /) - kao(:, 4,13,10) = (/ & - &2.9338e+04 ,2.5670e+04 ,2.2004e+04 ,1.8336e+04 ,1.4669e+04 ,1.1002e+04 , & - &7.3346e+03 ,3.6671e+03 ,4.5009e-02 /) - kao(:, 5,13,10) = (/ & - &2.9073e+04 ,2.5440e+04 ,2.1806e+04 ,1.8171e+04 ,1.4537e+04 ,1.0903e+04 , & - &7.2684e+03 ,3.6344e+03 ,5.0725e-02 /) - kao(:, 1, 1,11) = (/ & - &5.0284e+00 ,4.3997e+00 ,3.7713e+00 ,3.1433e+00 ,2.5148e+00 ,1.8867e+00 , & - &1.2585e+00 ,6.3034e-01 ,1.3324e-01 /) - kao(:, 2, 1,11) = (/ & - &5.0428e+00 ,4.4122e+00 ,3.7822e+00 ,3.1521e+00 ,2.5223e+00 ,1.8921e+00 , & - &1.2620e+00 ,6.6040e-01 ,1.7160e-01 /) - kao(:, 3, 1,11) = (/ & - &5.0450e+00 ,4.4148e+00 ,3.7841e+00 ,3.1540e+00 ,2.5234e+00 ,1.8930e+00 , & - &1.2629e+00 ,7.0553e-01 ,2.2033e-01 /) - kao(:, 4, 1,11) = (/ & - &5.0314e+00 ,4.4027e+00 ,3.7741e+00 ,3.1454e+00 ,2.5166e+00 ,1.8879e+00 , & - &1.2828e+00 ,7.2981e-01 ,2.7819e-01 /) - kao(:, 5, 1,11) = (/ & - &5.0061e+00 ,4.3808e+00 ,3.7550e+00 ,3.1298e+00 ,2.5041e+00 ,1.8785e+00 , & - &1.3311e+00 ,7.4514e-01 ,3.4945e-01 /) - kao(:, 1, 2,11) = (/ & - &7.7109e+00 ,6.7474e+00 ,5.7839e+00 ,4.8201e+00 ,3.8564e+00 ,2.8926e+00 , & - &1.9289e+00 ,9.6516e-01 ,1.3538e-01 /) - kao(:, 2, 2,11) = (/ & - &7.7553e+00 ,6.7857e+00 ,5.8167e+00 ,4.8473e+00 ,3.8784e+00 ,2.9091e+00 , & - &1.9400e+00 ,9.7434e-01 ,1.7899e-01 /) - kao(:, 3, 2,11) = (/ & - &7.7777e+00 ,6.8060e+00 ,5.8332e+00 ,4.8617e+00 ,3.8897e+00 ,2.9178e+00 , & - &1.9457e+00 ,1.0175e+00 ,2.2662e-01 /) - kao(:, 4, 2,11) = (/ & - &7.7756e+00 ,6.8039e+00 ,5.8323e+00 ,4.8602e+00 ,3.8885e+00 ,2.9169e+00 , & - &1.9452e+00 ,1.0634e+00 ,2.8531e-01 /) - kao(:, 5, 2,11) = (/ & - &7.7495e+00 ,6.7817e+00 ,5.8131e+00 ,4.8446e+00 ,3.8758e+00 ,2.9075e+00 , & - &1.9643e+00 ,1.0863e+00 ,3.5634e-01 /) - kao(:, 1, 3,11) = (/ & - &1.5932e+01 ,1.3941e+01 ,1.1949e+01 ,9.9578e+00 ,7.9671e+00 ,5.9754e+00 , & - &3.9840e+00 ,1.9926e+00 ,1.2714e-01 /) - kao(:, 2, 3,11) = (/ & - &1.6076e+01 ,1.4067e+01 ,1.2058e+01 ,1.0048e+01 ,8.0387e+00 ,6.0296e+00 , & - &4.0199e+00 ,2.0105e+00 ,1.7056e-01 /) - kao(:, 3, 3,11) = (/ & - &1.6164e+01 ,1.4145e+01 ,1.2124e+01 ,1.0103e+01 ,8.0829e+00 ,6.0627e+00 , & - &4.0424e+00 ,2.0217e+00 ,2.2135e-01 /) - kao(:, 4, 3,11) = (/ & - &1.6211e+01 ,1.4185e+01 ,1.2159e+01 ,1.0132e+01 ,8.1062e+00 ,6.0800e+00 , & - &4.0538e+00 ,2.0361e+00 ,2.7967e-01 /) - kao(:, 5, 3,11) = (/ & - &1.6213e+01 ,1.4187e+01 ,1.2160e+01 ,1.0134e+01 ,8.1068e+00 ,6.0810e+00 , & - &4.0544e+00 ,2.0887e+00 ,3.5085e-01 /) - kao(:, 1, 4,11) = (/ & - &3.3505e+01 ,2.9316e+01 ,2.5128e+01 ,2.0940e+01 ,1.6753e+01 ,1.2564e+01 , & - &8.3770e+00 ,4.1888e+00 ,1.1343e-01 /) - kao(:, 2, 4,11) = (/ & - &3.3957e+01 ,2.9712e+01 ,2.5469e+01 ,2.1224e+01 ,1.6979e+01 ,1.2735e+01 , & - &8.4899e+00 ,4.2456e+00 ,1.5601e-01 /) - kao(:, 3, 4,11) = (/ & - &3.4273e+01 ,2.9992e+01 ,2.5707e+01 ,2.1421e+01 ,1.7138e+01 ,1.2854e+01 , & - &8.5693e+00 ,4.2852e+00 ,2.0536e-01 /) - kao(:, 4, 4,11) = (/ & - &3.4537e+01 ,3.0216e+01 ,2.5901e+01 ,2.1585e+01 ,1.7269e+01 ,1.2951e+01 , & - &8.6346e+00 ,4.3178e+00 ,2.6462e-01 /) - kao(:, 5, 4,11) = (/ & - &3.4713e+01 ,3.0370e+01 ,2.6032e+01 ,2.1696e+01 ,1.7356e+01 ,1.3018e+01 , & - &8.6791e+00 ,4.3400e+00 ,3.3230e-01 /) - kao(:, 1, 5,11) = (/ & - &6.4813e+01 ,5.6712e+01 ,4.8608e+01 ,4.0507e+01 ,3.2408e+01 ,2.4306e+01 , & - &1.6204e+01 ,8.1017e+00 ,9.6356e-02 /) - kao(:, 2, 5,11) = (/ & - &6.6164e+01 ,5.7895e+01 ,4.9623e+01 ,4.1352e+01 ,3.3084e+01 ,2.4813e+01 , & - &1.6542e+01 ,8.2707e+00 ,1.3652e-01 /) - kao(:, 3, 5,11) = (/ & - &6.7228e+01 ,5.8826e+01 ,5.0425e+01 ,4.2018e+01 ,3.3613e+01 ,2.5211e+01 , & - &1.6808e+01 ,8.4044e+00 ,1.8472e-01 /) - kao(:, 4, 5,11) = (/ & - &6.8035e+01 ,5.9536e+01 ,5.1024e+01 ,4.2523e+01 ,3.4019e+01 ,2.5513e+01 , & - &1.7010e+01 ,8.5064e+00 ,2.4242e-01 /) - kao(:, 5, 5,11) = (/ & - &6.8554e+01 ,5.9987e+01 ,5.1420e+01 ,4.2849e+01 ,3.4277e+01 ,2.5710e+01 , & - &1.7140e+01 ,8.5702e+00 ,3.0919e-01 /) - kao(:, 1, 6,11) = (/ & - &1.1801e+02 ,1.0326e+02 ,8.8506e+01 ,7.3757e+01 ,5.9002e+01 ,4.4254e+01 , & - &2.9503e+01 ,1.4751e+01 ,7.7344e-02 /) - kao(:, 2, 6,11) = (/ & - &1.2108e+02 ,1.0594e+02 ,9.0808e+01 ,7.5672e+01 ,6.0541e+01 ,4.5406e+01 , & - &3.0271e+01 ,1.5134e+01 ,1.1263e-01 /) - kao(:, 3, 6,11) = (/ & - &1.2354e+02 ,1.0810e+02 ,9.2652e+01 ,7.7213e+01 ,6.1769e+01 ,4.6330e+01 , & - &3.0886e+01 ,1.5443e+01 ,1.5682e-01 /) - kao(:, 4, 6,11) = (/ & - &1.2526e+02 ,1.0960e+02 ,9.3943e+01 ,7.8284e+01 ,6.2629e+01 ,4.6975e+01 , & - &3.1316e+01 ,1.5657e+01 ,2.1207e-01 /) - kao(:, 5, 6,11) = (/ & - &1.2664e+02 ,1.1081e+02 ,9.4976e+01 ,7.9149e+01 ,6.3321e+01 ,4.7490e+01 , & - &3.1658e+01 ,1.5831e+01 ,2.7724e-01 /) - kao(:, 1, 7,11) = (/ & - &2.3249e+02 ,2.0341e+02 ,1.7435e+02 ,1.4529e+02 ,1.1624e+02 ,8.7178e+01 , & - &5.8117e+01 ,2.9059e+01 ,6.0308e-02 /) - kao(:, 2, 7,11) = (/ & - &2.3796e+02 ,2.0820e+02 ,1.7846e+02 ,1.4871e+02 ,1.1897e+02 ,8.9231e+01 , & - &5.9488e+01 ,2.9745e+01 ,9.0208e-02 /) - kao(:, 3, 7,11) = (/ & - &2.4226e+02 ,2.1197e+02 ,1.8170e+02 ,1.5141e+02 ,1.2113e+02 ,9.0843e+01 , & - &6.0568e+01 ,3.0281e+01 ,1.2927e-01 /) - kao(:, 4, 7,11) = (/ & - &2.4544e+02 ,2.1477e+02 ,1.8409e+02 ,1.5341e+02 ,1.2272e+02 ,9.2044e+01 , & - &6.1361e+01 ,3.0682e+01 ,1.7878e-01 /) - kao(:, 5, 7,11) = (/ & - &2.4764e+02 ,2.1668e+02 ,1.8573e+02 ,1.5477e+02 ,1.2381e+02 ,9.2866e+01 , & - &6.1907e+01 ,3.0956e+01 ,2.3824e-01 /) - kao(:, 1, 8,11) = (/ & - &5.7428e+02 ,5.0249e+02 ,4.3070e+02 ,3.5893e+02 ,2.8714e+02 ,2.1536e+02 , & - &1.4357e+02 ,7.1786e+01 ,4.7227e-02 /) - kao(:, 2, 8,11) = (/ & - &5.8499e+02 ,5.1190e+02 ,4.3878e+02 ,3.6564e+02 ,2.9252e+02 ,2.1939e+02 , & - &1.4626e+02 ,7.3130e+01 ,7.2171e-02 /) - kao(:, 3, 8,11) = (/ & - &5.9291e+02 ,5.1879e+02 ,4.4470e+02 ,3.7058e+02 ,2.9645e+02 ,2.2235e+02 , & - &1.4822e+02 ,7.4114e+01 ,1.0536e-01 /) - kao(:, 4, 8,11) = (/ & - &5.9816e+02 ,5.2341e+02 ,4.4862e+02 ,3.7386e+02 ,2.9908e+02 ,2.2431e+02 , & - &1.4954e+02 ,7.4773e+01 ,1.4833e-01 /) - kao(:, 5, 8,11) = (/ & - &6.0144e+02 ,5.2627e+02 ,4.5109e+02 ,3.7590e+02 ,3.0070e+02 ,2.2554e+02 , & - &1.5036e+02 ,7.5181e+01 ,1.9981e-01 /) - kao(:, 1, 9,11) = (/ & - &2.7514e+03 ,2.4073e+03 ,2.0635e+03 ,1.7196e+03 ,1.3757e+03 ,1.0318e+03 , & - &6.8788e+02 ,3.4393e+02 ,3.3107e-02 /) - kao(:, 2, 9,11) = (/ & - &2.7973e+03 ,2.4476e+03 ,2.0979e+03 ,1.7482e+03 ,1.3986e+03 ,1.0490e+03 , & - &6.9932e+02 ,3.4966e+02 ,5.6998e-02 /) - kao(:, 3, 9,11) = (/ & - &2.8265e+03 ,2.4731e+03 ,2.1197e+03 ,1.7664e+03 ,1.4131e+03 ,1.0599e+03 , & - &7.0662e+02 ,3.5330e+02 ,8.5901e-02 /) - kao(:, 4, 9,11) = (/ & - &2.8388e+03 ,2.4841e+03 ,2.1291e+03 ,1.7743e+03 ,1.4194e+03 ,1.0646e+03 , & - &7.0974e+02 ,3.5484e+02 ,1.2233e-01 /) - kao(:, 5, 9,11) = (/ & - &2.8373e+03 ,2.4828e+03 ,2.1280e+03 ,1.7734e+03 ,1.4187e+03 ,1.0640e+03 , & - &7.0933e+02 ,3.5467e+02 ,1.6642e-01 /) - kao(:, 1,10,11) = (/ & - &1.4796e+04 ,1.2947e+04 ,1.1097e+04 ,9.2476e+03 ,7.3982e+03 ,5.5489e+03 , & - &3.6992e+03 ,1.8496e+03 ,1.7335e-02 /) - kao(:, 2,10,11) = (/ & - &1.4975e+04 ,1.3103e+04 ,1.1231e+04 ,9.3585e+03 ,7.4871e+03 ,5.6155e+03 , & - &3.7435e+03 ,1.8717e+03 ,3.1226e-02 /) - kao(:, 3,10,11) = (/ & - &1.5074e+04 ,1.3189e+04 ,1.1305e+04 ,9.4210e+03 ,7.5370e+03 ,5.6528e+03 , & - &3.7685e+03 ,1.8842e+03 ,4.3228e-02 /) - kao(:, 4,10,11) = (/ & - &1.5109e+04 ,1.3220e+04 ,1.1331e+04 ,9.4424e+03 ,7.5542e+03 ,5.6659e+03 , & - &3.7773e+03 ,1.8886e+03 ,5.6685e-02 /) - kao(:, 5,10,11) = (/ & - &1.5082e+04 ,1.3196e+04 ,1.1311e+04 ,9.4257e+03 ,7.5405e+03 ,5.6555e+03 , & - &3.7704e+03 ,1.8852e+03 ,8.6311e-02 /) - kao(:, 1,11,11) = (/ & - &2.7889e+04 ,2.4402e+04 ,2.0916e+04 ,1.7430e+04 ,1.3944e+04 ,1.0458e+04 , & - &6.9720e+03 ,3.4860e+03 ,1.1432e-02 /) - kao(:, 2,11,11) = (/ & - &2.8116e+04 ,2.4602e+04 ,2.1087e+04 ,1.7573e+04 ,1.4058e+04 ,1.0543e+04 , & - &7.0292e+03 ,3.5144e+03 ,1.1075e-02 /) - kao(:, 3,11,11) = (/ & - &2.8224e+04 ,2.4695e+04 ,2.1166e+04 ,1.7640e+04 ,1.4112e+04 ,1.0583e+04 , & - &7.0560e+03 ,3.5276e+03 ,4.6547e-02 /) - kao(:, 4,11,11) = (/ & - &2.8217e+04 ,2.4690e+04 ,2.1162e+04 ,1.7636e+04 ,1.4108e+04 ,1.0581e+04 , & - &7.0540e+03 ,3.5272e+03 ,6.2488e-02 /) - kao(:, 5,11,11) = (/ & - &2.8126e+04 ,2.4609e+04 ,2.1093e+04 ,1.7578e+04 ,1.4063e+04 ,1.0547e+04 , & - &7.0311e+03 ,3.5155e+03 ,7.5051e-02 /) - kao(:, 1,12,11) = (/ & - &3.8808e+04 ,3.3958e+04 ,2.9106e+04 ,2.4255e+04 ,1.9403e+04 ,1.4552e+04 , & - &9.7020e+03 ,4.8510e+03 ,3.0879e-04 /) - kao(:, 2,12,11) = (/ & - &3.8964e+04 ,3.4093e+04 ,2.9222e+04 ,2.4351e+04 ,1.9482e+04 ,1.4612e+04 , & - &9.7411e+03 ,4.8703e+03 ,1.3840e-02 /) - kao(:, 3,12,11) = (/ & - &3.8935e+04 ,3.4067e+04 ,2.9198e+04 ,2.4333e+04 ,1.9466e+04 ,1.4600e+04 , & - &9.7333e+03 ,4.8667e+03 ,2.1306e-02 /) - kao(:, 4,12,11) = (/ & - &3.8831e+04 ,3.3979e+04 ,2.9123e+04 ,2.4270e+04 ,1.9417e+04 ,1.4562e+04 , & - &9.7077e+03 ,4.8538e+03 ,6.5973e-02 /) - kao(:, 5,12,11) = (/ & - &3.8549e+04 ,3.3728e+04 ,2.8909e+04 ,2.4091e+04 ,1.9273e+04 ,1.4455e+04 , & - &9.6358e+03 ,4.8182e+03 ,7.9959e-02 /) - kao(:, 1,13,11) = (/ & - &4.2486e+04 ,3.7175e+04 ,3.1864e+04 ,2.6552e+04 ,2.1242e+04 ,1.5932e+04 , & - &1.0621e+04 ,5.3106e+03 ,2.4053e-04 /) - kao(:, 2,13,11) = (/ & - &4.2536e+04 ,3.7221e+04 ,3.1903e+04 ,2.6585e+04 ,2.1268e+04 ,1.5951e+04 , & - &1.0634e+04 ,5.3169e+03 ,2.3604e-02 /) - kao(:, 3,13,11) = (/ & - &4.2342e+04 ,3.7047e+04 ,3.1757e+04 ,2.6467e+04 ,2.1172e+04 ,1.5879e+04 , & - &1.0585e+04 ,5.2925e+03 ,1.5018e-02 /) - kao(:, 4,13,11) = (/ & - &4.2048e+04 ,3.6792e+04 ,3.1537e+04 ,2.6281e+04 ,2.1024e+04 ,1.5767e+04 , & - &1.0512e+04 ,5.2560e+03 ,5.3807e-02 /) - kao(:, 5,13,11) = (/ & - &4.1662e+04 ,3.6457e+04 ,3.1248e+04 ,2.6040e+04 ,2.0833e+04 ,1.5623e+04 , & - &1.0416e+04 ,5.2082e+03 ,6.8318e-02 /) - kao(:, 1, 1,12) = (/ & - &7.2849e+00 ,6.3745e+00 ,5.4643e+00 ,4.5537e+00 ,3.6431e+00 ,2.7326e+00 , & - &1.8223e+00 ,9.1190e-01 ,1.6091e-01 /) - kao(:, 2, 1,12) = (/ & - &7.1530e+00 ,6.2588e+00 ,5.3648e+00 ,4.4709e+00 ,3.5770e+00 ,2.6830e+00 , & - &1.7891e+00 ,8.9548e-01 ,2.2421e-01 /) - kao(:, 3, 1,12) = (/ & - &7.0158e+00 ,6.1389e+00 ,5.2624e+00 ,4.3853e+00 ,3.5089e+00 ,2.6317e+00 , & - &1.7551e+00 ,9.0204e-01 ,3.0513e-01 /) - kao(:, 4, 1,12) = (/ & - &6.8752e+00 ,6.0158e+00 ,5.1568e+00 ,4.2975e+00 ,3.4386e+00 ,2.5792e+00 , & - &1.7200e+00 ,9.2056e-01 ,4.0130e-01 /) - kao(:, 5, 1,12) = (/ & - &6.7312e+00 ,5.8897e+00 ,5.0486e+00 ,4.2075e+00 ,3.3663e+00 ,2.5251e+00 , & - &1.6886e+00 ,9.1312e-01 ,5.1163e-01 /) - kao(:, 1, 2,12) = (/ & - &1.1380e+01 ,9.9571e+00 ,8.5349e+00 ,7.1126e+00 ,5.6896e+00 ,4.2680e+00 , & - &2.8456e+00 ,1.4234e+00 ,1.6023e-01 /) - kao(:, 2, 2,12) = (/ & - &1.1190e+01 ,9.7913e+00 ,8.3926e+00 ,6.9944e+00 ,5.5956e+00 ,4.1971e+00 , & - &2.7983e+00 ,1.3998e+00 ,2.1092e-01 /) - kao(:, 3, 2,12) = (/ & - &1.0994e+01 ,9.6196e+00 ,8.2451e+00 ,6.8714e+00 ,5.4970e+00 ,4.1233e+00 , & - &2.7491e+00 ,1.3753e+00 ,2.8249e-01 /) - kao(:, 4, 2,12) = (/ & - &1.0789e+01 ,9.4404e+00 ,8.0917e+00 ,6.7431e+00 ,5.3950e+00 ,4.0464e+00 , & - &2.6980e+00 ,1.3854e+00 ,3.7167e-01 /) - kao(:, 5, 2,12) = (/ & - &1.0574e+01 ,9.2528e+00 ,7.9306e+00 ,6.6095e+00 ,5.2877e+00 ,3.9662e+00 , & - &2.6446e+00 ,1.3862e+00 ,4.7628e-01 /) - kao(:, 1, 3,12) = (/ & - &2.4019e+01 ,2.1015e+01 ,1.8012e+01 ,1.5011e+01 ,1.2010e+01 ,9.0070e+00 , & - &6.0051e+00 ,3.0029e+00 ,1.5458e-01 /) - kao(:, 2, 3,12) = (/ & - &2.3668e+01 ,2.0712e+01 ,1.7752e+01 ,1.4794e+01 ,1.1835e+01 ,8.8764e+00 , & - &5.9181e+00 ,2.9594e+00 ,2.0548e-01 /) - kao(:, 3, 3,12) = (/ & - &2.3299e+01 ,2.0389e+01 ,1.7475e+01 ,1.4563e+01 ,1.1650e+01 ,8.7378e+00 , & - &5.8256e+00 ,2.9134e+00 ,2.6510e-01 /) - kao(:, 4, 3,12) = (/ & - &2.2895e+01 ,2.0033e+01 ,1.7172e+01 ,1.4310e+01 ,1.1449e+01 ,8.5868e+00 , & - &5.7250e+00 ,2.8629e+00 ,3.4340e-01 /) - kao(:, 5, 3,12) = (/ & - &2.2457e+01 ,1.9650e+01 ,1.6845e+01 ,1.4036e+01 ,1.1229e+01 ,8.4225e+00 , & - &5.6152e+00 ,2.8081e+00 ,4.3834e-01 /) - kao(:, 1, 4,12) = (/ & - &5.1943e+01 ,4.5448e+01 ,3.8958e+01 ,3.2464e+01 ,2.5972e+01 ,1.9479e+01 , & - &1.2986e+01 ,6.4930e+00 ,1.4248e-01 /) - kao(:, 2, 4,12) = (/ & - &5.1352e+01 ,4.4935e+01 ,3.8514e+01 ,3.2094e+01 ,2.5675e+01 ,1.9257e+01 , & - &1.2838e+01 ,6.4195e+00 ,1.9502e-01 /) - kao(:, 3, 4,12) = (/ & - &5.0623e+01 ,4.4294e+01 ,3.7964e+01 ,3.1639e+01 ,2.5309e+01 ,1.8983e+01 , & - &1.2655e+01 ,6.3280e+00 ,2.5898e-01 /) - kao(:, 4, 4,12) = (/ & - &4.9799e+01 ,4.3576e+01 ,3.7352e+01 ,3.1124e+01 ,2.4901e+01 ,1.8676e+01 , & - &1.2451e+01 ,6.2257e+00 ,3.3035e-01 /) - kao(:, 5, 4,12) = (/ & - &4.8898e+01 ,4.2791e+01 ,3.6677e+01 ,3.0566e+01 ,2.4452e+01 ,1.8340e+01 , & - &1.2226e+01 ,6.1134e+00 ,4.1835e-01 /) - kao(:, 1, 5,12) = (/ & - &1.0373e+02 ,9.0759e+01 ,7.7796e+01 ,6.4826e+01 ,5.1857e+01 ,3.8894e+01 , & - &2.5931e+01 ,1.2966e+01 ,1.2887e-01 /) - kao(:, 2, 5,12) = (/ & - &1.0276e+02 ,8.9908e+01 ,7.7065e+01 ,6.4222e+01 ,5.1382e+01 ,3.8535e+01 , & - &2.5690e+01 ,1.2845e+01 ,1.8027e-01 /) - kao(:, 3, 5,12) = (/ & - &1.0148e+02 ,8.8794e+01 ,7.6113e+01 ,6.3420e+01 ,5.0736e+01 ,3.8055e+01 , & - &2.5371e+01 ,1.2686e+01 ,2.4350e-01 /) - kao(:, 4, 5,12) = (/ & - &9.9981e+01 ,8.7486e+01 ,7.4989e+01 ,6.2492e+01 ,4.9992e+01 ,3.7496e+01 , & - &2.4996e+01 ,1.2498e+01 ,3.1895e-01 /) - kao(:, 5, 5,12) = (/ & - &9.8403e+01 ,8.6098e+01 ,7.3801e+01 ,6.1498e+01 ,4.9199e+01 ,3.6902e+01 , & - &2.4598e+01 ,1.2301e+01 ,4.0491e-01 /) - kao(:, 1, 6,12) = (/ & - &1.9449e+02 ,1.7021e+02 ,1.4589e+02 ,1.2157e+02 ,9.7258e+01 ,7.2943e+01 , & - &4.8628e+01 ,2.4314e+01 ,1.1014e-01 /) - kao(:, 2, 6,12) = (/ & - &1.9309e+02 ,1.6897e+02 ,1.4483e+02 ,1.2070e+02 ,9.6559e+01 ,7.2419e+01 , & - &4.8279e+01 ,2.4139e+01 ,1.6004e-01 /) - kao(:, 3, 6,12) = (/ & - &1.9140e+02 ,1.6747e+02 ,1.4356e+02 ,1.1963e+02 ,9.5709e+01 ,7.1777e+01 , & - &4.7853e+01 ,2.3926e+01 ,2.2190e-01 /) - kao(:, 4, 6,12) = (/ & - &1.8899e+02 ,1.6537e+02 ,1.4174e+02 ,1.1810e+02 ,9.4493e+01 ,7.0867e+01 , & - &4.7246e+01 ,2.3622e+01 ,2.9571e-01 /) - kao(:, 5, 6,12) = (/ & - &1.8566e+02 ,1.6245e+02 ,1.3925e+02 ,1.1603e+02 ,9.2834e+01 ,6.9623e+01 , & - &4.6415e+01 ,2.3209e+01 ,3.8274e-01 /) - kao(:, 1, 7,12) = (/ & - &3.8417e+02 ,3.3613e+02 ,2.8811e+02 ,2.4009e+02 ,1.9205e+02 ,1.4405e+02 , & - &9.6037e+01 ,4.8023e+01 ,9.0335e-02 /) - kao(:, 2, 7,12) = (/ & - &3.8253e+02 ,3.3473e+02 ,2.8690e+02 ,2.3908e+02 ,1.9128e+02 ,1.4345e+02 , & - &9.5632e+01 ,4.7816e+01 ,1.3557e-01 /) - kao(:, 3, 7,12) = (/ & - &3.7949e+02 ,3.3204e+02 ,2.8460e+02 ,2.3719e+02 ,1.8975e+02 ,1.4230e+02 , & - &9.4872e+01 ,4.7438e+01 ,1.9476e-01 /) - kao(:, 4, 7,12) = (/ & - &3.7465e+02 ,3.2783e+02 ,2.8099e+02 ,2.3416e+02 ,1.8732e+02 ,1.4050e+02 , & - &9.3670e+01 ,4.6831e+01 ,2.6694e-01 /) - kao(:, 5, 7,12) = (/ & - &3.6931e+02 ,3.2313e+02 ,2.7696e+02 ,2.3080e+02 ,1.8464e+02 ,1.3849e+02 , & - &9.2317e+01 ,4.6160e+01 ,3.5213e-01 /) - kao(:, 1, 8,12) = (/ & - &9.0810e+02 ,7.9455e+02 ,6.8107e+02 ,5.6755e+02 ,4.5403e+02 ,3.4053e+02 , & - &2.2701e+02 ,1.1352e+02 ,7.1564e-02 /) - kao(:, 2, 8,12) = (/ & - &9.0605e+02 ,7.9275e+02 ,6.7956e+02 ,5.6628e+02 ,4.5302e+02 ,3.3978e+02 , & - &2.2652e+02 ,1.1325e+02 ,1.1086e-01 /) - kao(:, 3, 8,12) = (/ & - &9.0093e+02 ,7.8832e+02 ,6.7569e+02 ,5.6306e+02 ,4.5046e+02 ,3.3783e+02 , & - &2.2521e+02 ,1.1262e+02 ,1.6463e-01 /) - kao(:, 4, 8,12) = (/ & - &8.9363e+02 ,7.8197e+02 ,6.7027e+02 ,5.5850e+02 ,4.4681e+02 ,3.3513e+02 , & - &2.2342e+02 ,1.1170e+02 ,2.3145e-01 /) - kao(:, 5, 8,12) = (/ & - &8.8174e+02 ,7.7148e+02 ,6.6129e+02 ,5.5110e+02 ,4.4085e+02 ,3.3064e+02 , & - &2.2045e+02 ,1.1021e+02 ,3.1429e-01 /) - kao(:, 1, 9,12) = (/ & - &4.0575e+03 ,3.5502e+03 ,3.0431e+03 ,2.5358e+03 ,2.0286e+03 ,1.5215e+03 , & - &1.0143e+03 ,5.0720e+02 ,5.5603e-02 /) - kao(:, 2, 9,12) = (/ & - &4.0575e+03 ,3.5503e+03 ,3.0431e+03 ,2.5359e+03 ,2.0286e+03 ,1.5216e+03 , & - &1.0143e+03 ,5.0715e+02 ,8.8381e-02 /) - kao(:, 3, 9,12) = (/ & - &4.0490e+03 ,3.5425e+03 ,3.0365e+03 ,2.5303e+03 ,2.0243e+03 ,1.5183e+03 , & - &1.0122e+03 ,5.0611e+02 ,1.3462e-01 /) - kao(:, 4, 9,12) = (/ & - &4.0163e+03 ,3.5141e+03 ,3.0122e+03 ,2.5100e+03 ,2.0082e+03 ,1.5061e+03 , & - &1.0041e+03 ,5.0202e+02 ,1.9418e-01 /) - kao(:, 5, 9,12) = (/ & - &3.9738e+03 ,3.4768e+03 ,2.9801e+03 ,2.4835e+03 ,1.9868e+03 ,1.4900e+03 , & - &9.9338e+02 ,4.9668e+02 ,2.7001e-01 /) - kao(:, 1,10,12) = (/ & - &2.0782e+04 ,1.8184e+04 ,1.5586e+04 ,1.2989e+04 ,1.0391e+04 ,7.7931e+03 , & - &5.1956e+03 ,2.5977e+03 ,1.5076e-02 /) - kao(:, 2,10,12) = (/ & - &2.0847e+04 ,1.8242e+04 ,1.5636e+04 ,1.3030e+04 ,1.0424e+04 ,7.8180e+03 , & - &5.2120e+03 ,2.6061e+03 ,3.9283e-02 /) - kao(:, 3,10,12) = (/ & - &2.0776e+04 ,1.8179e+04 ,1.5582e+04 ,1.2985e+04 ,1.0387e+04 ,7.7905e+03 , & - &5.1937e+03 ,2.5968e+03 ,5.3678e-02 /) - kao(:, 4,10,12) = (/ & - &2.0635e+04 ,1.8055e+04 ,1.5476e+04 ,1.2897e+04 ,1.0317e+04 ,7.7379e+03 , & - &5.1584e+03 ,2.5793e+03 ,8.4869e-02 /) - kao(:, 5,10,12) = (/ & - &2.0468e+04 ,1.7910e+04 ,1.5352e+04 ,1.2793e+04 ,1.0235e+04 ,7.6761e+03 , & - &5.1174e+03 ,2.5585e+03 ,1.7840e-01 /) - kao(:, 1,11,12) = (/ & - &3.8086e+04 ,3.3327e+04 ,2.8563e+04 ,2.3804e+04 ,1.9042e+04 ,1.4282e+04 , & - &9.5217e+03 ,4.7607e+03 ,3.5535e-02 /) - kao(:, 2,11,12) = (/ & - &3.8167e+04 ,3.3395e+04 ,2.8624e+04 ,2.3853e+04 ,1.9083e+04 ,1.4312e+04 , & - &9.5414e+03 ,4.7707e+03 ,2.0336e-02 /) - kao(:, 3,11,12) = (/ & - &3.8095e+04 ,3.3333e+04 ,2.8571e+04 ,2.3809e+04 ,1.9048e+04 ,1.4285e+04 , & - &9.5235e+03 ,4.7617e+03 ,7.3058e-02 /) - kao(:, 4,11,12) = (/ & - &3.7840e+04 ,3.3110e+04 ,2.8380e+04 ,2.3651e+04 ,1.8921e+04 ,1.4191e+04 , & - &9.4603e+03 ,4.7302e+03 ,9.2342e-02 /) - kao(:, 5,11,12) = (/ & - &3.7466e+04 ,3.2782e+04 ,2.8098e+04 ,2.3416e+04 ,1.8732e+04 ,1.4049e+04 , & - &9.3659e+03 ,4.6831e+03 ,1.1387e-01 /) - kao(:, 1,12,12) = (/ & - &5.3068e+04 ,4.6434e+04 ,3.9801e+04 ,3.3167e+04 ,2.6533e+04 ,1.9901e+04 , & - &1.3266e+04 ,6.6334e+03 ,5.3631e-05 /) - kao(:, 2,12,12) = (/ & - &5.2912e+04 ,4.6296e+04 ,3.9684e+04 ,3.3067e+04 ,2.6455e+04 ,1.9841e+04 , & - &1.3228e+04 ,6.6136e+03 ,3.3045e-02 /) - kao(:, 3,12,12) = (/ & - &5.2742e+04 ,4.6150e+04 ,3.9556e+04 ,3.2963e+04 ,2.6372e+04 ,1.9779e+04 , & - &1.3186e+04 ,6.5925e+03 ,2.4038e-02 /) - kao(:, 4,12,12) = (/ & - &5.2329e+04 ,4.5788e+04 ,3.9248e+04 ,3.2707e+04 ,2.6165e+04 ,1.9623e+04 , & - &1.3082e+04 ,6.5410e+03 ,8.8033e-02 /) - kao(:, 5,12,12) = (/ & - &5.1702e+04 ,4.5237e+04 ,3.8772e+04 ,3.2311e+04 ,2.5848e+04 ,1.9386e+04 , & - &1.2925e+04 ,6.4623e+03 ,1.0528e-01 /) - kao(:, 1,13,12) = (/ & - &5.9181e+04 ,5.1784e+04 ,4.4385e+04 ,3.6986e+04 ,2.9590e+04 ,2.2192e+04 , & - &1.4795e+04 ,7.3976e+03 ,6.3472e-05 /) - kao(:, 2,13,12) = (/ & - &5.9042e+04 ,5.1661e+04 ,4.4282e+04 ,3.6901e+04 ,2.9521e+04 ,2.2141e+04 , & - &1.4760e+04 ,7.3802e+03 ,8.2093e-03 /) - kao(:, 3,13,12) = (/ & - &5.8661e+04 ,5.1328e+04 ,4.3997e+04 ,3.6663e+04 ,2.9331e+04 ,2.1998e+04 , & - &1.4665e+04 ,7.3324e+03 ,2.9843e-02 /) - kao(:, 4,13,12) = (/ & - &5.8145e+04 ,5.0874e+04 ,4.3608e+04 ,3.6342e+04 ,2.9072e+04 ,2.1804e+04 , & - &1.4536e+04 ,7.2678e+03 ,5.7821e-02 /) - kao(:, 5,13,12) = (/ & - &5.7447e+04 ,5.0266e+04 ,4.3086e+04 ,3.5905e+04 ,2.8722e+04 ,2.1542e+04 , & - &1.4361e+04 ,7.1808e+03 ,1.1510e-01 /) - kao(:, 1, 1,13) = (/ & - &9.2441e+00 ,8.0893e+00 ,6.9334e+00 ,5.7782e+00 ,4.6228e+00 ,3.4672e+00 , & - &2.3119e+00 ,1.1567e+00 ,2.2855e-01 /) - kao(:, 2, 1,13) = (/ & - &8.8623e+00 ,7.7552e+00 ,6.6473e+00 ,5.5397e+00 ,4.4320e+00 ,3.3245e+00 , & - &2.2168e+00 ,1.1091e+00 ,3.2335e-01 /) - kao(:, 3, 1,13) = (/ & - &8.4833e+00 ,7.4233e+00 ,6.3625e+00 ,5.3026e+00 ,4.2423e+00 ,3.1825e+00 , & - &2.1219e+00 ,1.0618e+00 ,4.4367e-01 /) - kao(:, 4, 1,13) = (/ & - &8.1215e+00 ,7.1065e+00 ,6.0917e+00 ,5.0761e+00 ,4.0614e+00 ,3.0468e+00 , & - &2.0316e+00 ,1.0641e+00 ,5.9167e-01 /) - kao(:, 5, 1,13) = (/ & - &7.7672e+00 ,6.7964e+00 ,5.8258e+00 ,4.8545e+00 ,3.8845e+00 ,2.9137e+00 , & - &1.9430e+00 ,1.0446e+00 ,7.6901e-01 /) - kao(:, 1, 2,13) = (/ & - &1.4699e+01 ,1.2863e+01 ,1.1024e+01 ,9.1876e+00 ,7.3499e+00 ,5.5129e+00 , & - &3.6758e+00 ,1.8383e+00 ,2.1901e-01 /) - kao(:, 2, 2,13) = (/ & - &1.4081e+01 ,1.2321e+01 ,1.0561e+01 ,8.8012e+00 ,7.0414e+00 ,5.2809e+00 , & - &3.5211e+00 ,1.7613e+00 ,3.1665e-01 /) - kao(:, 3, 2,13) = (/ & - &1.3470e+01 ,1.1786e+01 ,1.0102e+01 ,8.4178e+00 ,6.7345e+00 ,5.0512e+00 , & - &3.3678e+00 ,1.6847e+00 ,4.4141e-01 /) - kao(:, 4, 2,13) = (/ & - &1.2871e+01 ,1.1263e+01 ,9.6542e+00 ,8.0452e+00 ,6.4365e+00 ,4.8276e+00 , & - &3.2187e+00 ,1.6111e+00 ,5.9558e-01 /) - kao(:, 5, 2,13) = (/ & - &1.2298e+01 ,1.0761e+01 ,9.2242e+00 ,7.6869e+00 ,6.1502e+00 ,4.6127e+00 , & - &3.0756e+00 ,1.6035e+00 ,7.7652e-01 /) - kao(:, 1, 3,13) = (/ & - &3.1779e+01 ,2.7807e+01 ,2.3834e+01 ,1.9863e+01 ,1.5890e+01 ,1.1918e+01 , & - &7.9454e+00 ,3.9733e+00 ,1.9638e-01 /) - kao(:, 2, 3,13) = (/ & - &3.0431e+01 ,2.6628e+01 ,2.2823e+01 ,1.9020e+01 ,1.5217e+01 ,1.1412e+01 , & - &7.6086e+00 ,3.8049e+00 ,2.7736e-01 /) - kao(:, 3, 3,13) = (/ & - &2.9103e+01 ,2.5465e+01 ,2.1826e+01 ,1.8188e+01 ,1.4551e+01 ,1.0914e+01 , & - &7.2766e+00 ,3.6387e+00 ,3.9551e-01 /) - kao(:, 4, 3,13) = (/ & - &2.7810e+01 ,2.4334e+01 ,2.0858e+01 ,1.7381e+01 ,1.3906e+01 ,1.0429e+01 , & - &6.9532e+00 ,3.4769e+00 ,5.4452e-01 /) - kao(:, 5, 3,13) = (/ & - &2.6585e+01 ,2.3262e+01 ,1.9938e+01 ,1.6616e+01 ,1.3293e+01 ,9.9693e+00 , & - &6.6465e+00 ,3.3243e+00 ,7.1925e-01 /) - kao(:, 1, 4,13) = (/ & - &7.0542e+01 ,6.1725e+01 ,5.2909e+01 ,4.4087e+01 ,3.5272e+01 ,2.6453e+01 , & - &1.7635e+01 ,8.8184e+00 ,1.8199e-01 /) - kao(:, 2, 4,13) = (/ & - &6.7511e+01 ,5.9069e+01 ,5.0634e+01 ,4.2192e+01 ,3.3755e+01 ,2.5317e+01 , & - &1.6878e+01 ,8.4389e+00 ,2.4599e-01 /) - kao(:, 3, 4,13) = (/ & - &6.4633e+01 ,5.6554e+01 ,4.8477e+01 ,4.0397e+01 ,3.2316e+01 ,2.4237e+01 , & - &1.6158e+01 ,8.0799e+00 ,3.3970e-01 /) - kao(:, 4, 4,13) = (/ & - &6.1828e+01 ,5.4103e+01 ,4.6370e+01 ,3.8643e+01 ,3.0915e+01 ,2.3186e+01 , & - &1.5458e+01 ,7.7299e+00 ,4.6987e-01 /) - kao(:, 5, 4,13) = (/ & - &5.9112e+01 ,5.1730e+01 ,4.4337e+01 ,3.6946e+01 ,2.9558e+01 ,2.2169e+01 , & - &1.4779e+01 ,7.3903e+00 ,6.3062e-01 /) - kao(:, 1, 5,13) = (/ & - &1.4439e+02 ,1.2634e+02 ,1.0830e+02 ,9.0248e+01 ,7.2199e+01 ,5.4151e+01 , & - &3.6099e+01 ,1.8050e+01 ,1.6579e-01 /) - kao(:, 2, 5,13) = (/ & - &1.3838e+02 ,1.2109e+02 ,1.0378e+02 ,8.6480e+01 ,6.9180e+01 ,5.1890e+01 , & - &3.4593e+01 ,1.7299e+01 ,2.2988e-01 /) - kao(:, 3, 5,13) = (/ & - &1.3259e+02 ,1.1602e+02 ,9.9432e+01 ,8.2860e+01 ,6.6285e+01 ,4.9718e+01 , & - &3.3146e+01 ,1.6573e+01 ,3.1063e-01 /) - kao(:, 4, 5,13) = (/ & - &1.2697e+02 ,1.1110e+02 ,9.5219e+01 ,7.9357e+01 ,6.3482e+01 ,4.7609e+01 , & - &3.1740e+01 ,1.5871e+01 ,4.1510e-01 /) - kao(:, 5, 5,13) = (/ & - &1.2152e+02 ,1.0632e+02 ,9.1129e+01 ,7.5942e+01 ,6.0752e+01 ,4.5568e+01 , & - &3.0378e+01 ,1.5190e+01 ,5.5503e-01 /) - kao(:, 1, 6,13) = (/ & - &2.7815e+02 ,2.4339e+02 ,2.0862e+02 ,1.7384e+02 ,1.3908e+02 ,1.0430e+02 , & - &6.9541e+01 ,3.4769e+01 ,1.4932e-01 /) - kao(:, 2, 6,13) = (/ & - &2.6703e+02 ,2.3365e+02 ,2.0028e+02 ,1.6690e+02 ,1.3351e+02 ,1.0014e+02 , & - &6.6764e+01 ,3.3381e+01 ,2.1038e-01 /) - kao(:, 3, 6,13) = (/ & - &2.5610e+02 ,2.2409e+02 ,1.9207e+02 ,1.6007e+02 ,1.2805e+02 ,9.6039e+01 , & - &6.4025e+01 ,3.2016e+01 ,2.9193e-01 /) - kao(:, 4, 6,13) = (/ & - &2.4602e+02 ,2.1527e+02 ,1.8451e+02 ,1.5376e+02 ,1.2300e+02 ,9.2253e+01 , & - &6.1503e+01 ,3.0752e+01 ,3.8735e-01 /) - kao(:, 5, 6,13) = (/ & - &2.3698e+02 ,2.0737e+02 ,1.7775e+02 ,1.4811e+02 ,1.1849e+02 ,8.8866e+01 , & - &5.9248e+01 ,2.9622e+01 ,5.0567e-01 /) - kao(:, 1, 7,13) = (/ & - &5.6531e+02 ,4.9465e+02 ,4.2396e+02 ,3.5331e+02 ,2.8267e+02 ,2.1198e+02 , & - &1.4132e+02 ,7.0665e+01 ,1.3236e-01 /) - kao(:, 2, 7,13) = (/ & - &5.4477e+02 ,4.7663e+02 ,4.0854e+02 ,3.4045e+02 ,2.7236e+02 ,2.0426e+02 , & - &1.3618e+02 ,6.8089e+01 ,1.9224e-01 /) - kao(:, 3, 7,13) = (/ & - &5.2553e+02 ,4.5986e+02 ,3.9416e+02 ,3.2848e+02 ,2.6277e+02 ,1.9706e+02 , & - &1.3138e+02 ,6.5693e+01 ,2.7007e-01 /) - kao(:, 4, 7,13) = (/ & - &5.0736e+02 ,4.4395e+02 ,3.8050e+02 ,3.1709e+02 ,2.5367e+02 ,1.9026e+02 , & - &1.2684e+02 ,6.3421e+01 ,3.6853e-01 /) - kao(:, 5, 7,13) = (/ & - &4.8966e+02 ,4.2846e+02 ,3.6727e+02 ,3.0605e+02 ,2.4484e+02 ,1.8364e+02 , & - &1.2242e+02 ,6.1208e+01 ,4.8516e-01 /) - kao(:, 1, 8,13) = (/ & - &1.3865e+03 ,1.2132e+03 ,1.0399e+03 ,8.6656e+02 ,6.9323e+02 ,5.1995e+02 , & - &3.4663e+02 ,1.7332e+02 ,1.1342e-01 /) - kao(:, 2, 8,13) = (/ & - &1.3418e+03 ,1.1740e+03 ,1.0063e+03 ,8.3858e+02 ,6.7084e+02 ,5.0312e+02 , & - &3.3544e+02 ,1.6771e+02 ,1.7153e-01 /) - kao(:, 3, 8,13) = (/ & - &1.2982e+03 ,1.1360e+03 ,9.7362e+02 ,8.1138e+02 ,6.4912e+02 ,4.8683e+02 , & - &3.2456e+02 ,1.6229e+02 ,2.4648e-01 /) - kao(:, 4, 8,13) = (/ & - &1.2554e+03 ,1.0986e+03 ,9.4155e+02 ,7.8470e+02 ,6.2776e+02 ,4.7081e+02 , & - &3.1388e+02 ,1.5694e+02 ,3.4456e-01 /) - kao(:, 5, 8,13) = (/ & - &1.2173e+03 ,1.0650e+03 ,9.1289e+02 ,7.6069e+02 ,6.0860e+02 ,4.5645e+02 , & - &3.0428e+02 ,1.5215e+02 ,4.6320e-01 /) - kao(:, 1, 9,13) = (/ & - &6.4287e+03 ,5.6254e+03 ,4.8220e+03 ,4.0184e+03 ,3.2146e+03 ,2.4108e+03 , & - &1.6072e+03 ,8.0366e+02 ,9.3435e-02 /) - kao(:, 2, 9,13) = (/ & - &6.2433e+03 ,5.4627e+03 ,4.6824e+03 ,3.9018e+03 ,3.1215e+03 ,2.3411e+03 , & - &1.5608e+03 ,7.8032e+02 ,1.4681e-01 /) - kao(:, 3, 9,13) = (/ & - &6.0612e+03 ,5.3034e+03 ,4.5455e+03 ,3.7883e+03 ,3.0305e+03 ,2.2728e+03 , & - &1.5153e+03 ,7.5756e+02 ,2.1819e-01 /) - kao(:, 4, 9,13) = (/ & - &5.8977e+03 ,5.1604e+03 ,4.4231e+03 ,3.6861e+03 ,2.9487e+03 ,2.2117e+03 , & - &1.4744e+03 ,7.3720e+02 ,3.1394e-01 /) - kao(:, 5, 9,13) = (/ & - &5.7293e+03 ,5.0131e+03 ,4.2969e+03 ,3.5807e+03 ,2.8646e+03 ,2.1484e+03 , & - &1.4323e+03 ,7.1617e+02 ,4.3083e-01 /) - kao(:, 1,10,13) = (/ & - &3.3200e+04 ,2.9050e+04 ,2.4899e+04 ,2.0749e+04 ,1.6600e+04 ,1.2450e+04 , & - &8.2998e+03 ,4.1501e+03 ,1.3035e-02 /) - kao(:, 2,10,13) = (/ & - &3.2379e+04 ,2.8331e+04 ,2.4286e+04 ,2.0236e+04 ,1.6189e+04 ,1.2142e+04 , & - &8.0946e+03 ,4.0474e+03 ,6.4014e-02 /) - kao(:, 3,10,13) = (/ & - &3.1566e+04 ,2.7621e+04 ,2.3674e+04 ,1.9730e+04 ,1.5784e+04 ,1.1837e+04 , & - &7.8919e+03 ,3.9461e+03 ,1.0897e-01 /) - kao(:, 4,10,13) = (/ & - &3.0728e+04 ,2.6888e+04 ,2.3048e+04 ,1.9205e+04 ,1.5364e+04 ,1.1523e+04 , & - &7.6820e+03 ,3.8409e+03 ,2.5342e-01 /) - kao(:, 5,10,13) = (/ & - &2.9824e+04 ,2.6098e+04 ,2.2369e+04 ,1.8641e+04 ,1.4913e+04 ,1.1185e+04 , & - &7.4563e+03 ,3.7282e+03 ,3.9865e-01 /) - kao(:, 1,11,13) = (/ & - &5.8997e+04 ,5.1626e+04 ,4.4246e+04 ,3.6876e+04 ,2.9498e+04 ,2.2124e+04 , & - &1.4750e+04 ,7.3749e+03 ,3.4853e-05 /) - kao(:, 2,11,13) = (/ & - &5.7601e+04 ,5.0403e+04 ,4.3203e+04 ,3.6002e+04 ,2.8802e+04 ,2.1601e+04 , & - &1.4400e+04 ,7.2004e+03 ,3.9149e-02 /) - kao(:, 3,11,13) = (/ & - &5.6184e+04 ,4.9162e+04 ,4.2136e+04 ,3.5117e+04 ,2.8092e+04 ,2.1068e+04 , & - &1.4046e+04 ,7.0226e+03 ,4.1745e-02 /) - kao(:, 4,11,13) = (/ & - &5.4639e+04 ,4.7807e+04 ,4.0979e+04 ,3.4149e+04 ,2.7319e+04 ,2.0489e+04 , & - &1.3659e+04 ,6.8303e+03 ,1.4397e-01 /) - kao(:, 5,11,13) = (/ & - &5.3017e+04 ,4.6389e+04 ,3.9763e+04 ,3.3137e+04 ,2.6509e+04 ,1.9881e+04 , & - &1.3255e+04 ,6.6269e+03 ,2.2772e-01 /) - kao(:, 1,12,13) = (/ & - &7.7971e+04 ,6.8226e+04 ,5.8475e+04 ,4.8732e+04 ,3.8985e+04 ,2.9238e+04 , & - &1.9491e+04 ,9.7458e+03 ,2.6211e-05 /) - kao(:, 2,12,13) = (/ & - &7.6358e+04 ,6.6812e+04 ,5.7265e+04 ,4.7721e+04 ,3.8180e+04 ,2.8631e+04 , & - &1.9088e+04 ,9.5449e+03 ,1.6658e-02 /) - kao(:, 3,12,13) = (/ & - &7.4598e+04 ,6.5272e+04 ,5.5949e+04 ,4.6623e+04 ,3.7300e+04 ,2.7976e+04 , & - &1.8650e+04 ,9.3250e+03 ,6.1472e-02 /) - kao(:, 4,12,13) = (/ & - &7.2683e+04 ,6.3600e+04 ,5.4513e+04 ,4.5429e+04 ,3.6343e+04 ,2.7256e+04 , & - &1.8171e+04 ,9.0852e+03 ,8.7020e-02 /) - kao(:, 5,12,13) = (/ & - &7.0749e+04 ,6.1901e+04 ,5.3059e+04 ,4.4221e+04 ,3.5375e+04 ,2.6529e+04 , & - &1.7687e+04 ,8.8438e+03 ,2.2135e-01 /) - kao(:, 1,13,13) = (/ & - &8.4389e+04 ,7.3841e+04 ,6.3292e+04 ,5.2741e+04 ,4.2193e+04 ,3.1646e+04 , & - &2.1097e+04 ,1.0548e+04 ,3.5977e-05 /) - kao(:, 2,13,13) = (/ & - &8.2810e+04 ,7.2462e+04 ,6.2107e+04 ,5.1755e+04 ,4.1404e+04 ,3.1055e+04 , & - &2.0703e+04 ,1.0351e+04 ,2.8201e-02 /) - kao(:, 3,13,13) = (/ & - &8.1175e+04 ,7.1028e+04 ,6.0878e+04 ,5.0733e+04 ,4.0585e+04 ,3.0440e+04 , & - &2.0293e+04 ,1.0147e+04 ,3.8140e-02 /) - kao(:, 4,13,13) = (/ & - &7.9409e+04 ,6.9476e+04 ,5.9554e+04 ,4.9626e+04 ,3.9700e+04 ,2.9777e+04 , & - &1.9850e+04 ,9.9254e+03 ,1.0573e-01 /) - kao(:, 5,13,13) = (/ & - &7.7670e+04 ,6.7959e+04 ,5.8251e+04 ,4.8545e+04 ,3.8836e+04 ,2.9127e+04 , & - &1.9417e+04 ,9.7081e+03 ,2.2322e-01 /) - kao(:, 1, 1,14) = (/ & - &1.0586e+01 ,9.2639e+00 ,7.9401e+00 ,6.6170e+00 ,5.2941e+00 ,3.9707e+00 , & - &2.6478e+00 ,1.3250e+00 ,4.3918e-01 /) - kao(:, 2, 1,14) = (/ & - &1.0067e+01 ,8.8090e+00 ,7.5510e+00 ,6.2924e+00 ,5.0343e+00 ,3.7761e+00 , & - &2.5179e+00 ,1.2597e+00 ,5.9709e-01 /) - kao(:, 3, 1,14) = (/ & - &9.5510e+00 ,8.3580e+00 ,7.1635e+00 ,5.9699e+00 ,4.7763e+00 ,3.5829e+00 , & - &2.3891e+00 ,1.1957e+00 ,7.8623e-01 /) - kao(:, 4, 1,14) = (/ & - &9.0745e+00 ,7.9402e+00 ,6.8068e+00 ,5.6724e+00 ,4.5382e+00 ,3.4039e+00 , & - &2.2698e+00 ,1.1544e+00 ,1.0064e+00 /) - kao(:, 5, 1,14) = (/ & - &8.6119e+00 ,7.5354e+00 ,6.4586e+00 ,5.3823e+00 ,4.3069e+00 ,3.2305e+00 , & - &2.1544e+00 ,1.1513e+00 ,1.2568e+00 /) - kao(:, 1, 2,14) = (/ & - &1.7127e+01 ,1.4988e+01 ,1.2847e+01 ,1.0706e+01 ,8.5644e+00 ,6.4237e+00 , & - &4.2830e+00 ,2.1424e+00 ,4.0087e-01 /) - kao(:, 2, 2,14) = (/ & - &1.6266e+01 ,1.4233e+01 ,1.2199e+01 ,1.0167e+01 ,8.1334e+00 ,6.1003e+00 , & - &4.0675e+00 ,2.0344e+00 ,5.5811e-01 /) - kao(:, 3, 2,14) = (/ & - &1.5417e+01 ,1.3492e+01 ,1.1564e+01 ,9.6364e+00 ,7.7096e+00 ,5.7829e+00 , & - &3.8557e+00 ,1.9285e+00 ,7.4958e-01 /) - kao(:, 4, 2,14) = (/ & - &1.4610e+01 ,1.2785e+01 ,1.0958e+01 ,9.1323e+00 ,7.3057e+00 ,5.4803e+00 , & - &3.6538e+00 ,1.8278e+00 ,9.7668e-01 /) - kao(:, 5, 2,14) = (/ & - &1.3849e+01 ,1.2118e+01 ,1.0388e+01 ,8.6567e+00 ,6.9253e+00 ,5.1944e+00 , & - &3.4637e+00 ,1.7621e+00 ,1.2463e+00 /) - kao(:, 1, 3,14) = (/ & - &3.7731e+01 ,3.3014e+01 ,2.8298e+01 ,2.3584e+01 ,1.8865e+01 ,1.4149e+01 , & - &9.4337e+00 ,4.7180e+00 ,3.4082e-01 /) - kao(:, 2, 3,14) = (/ & - &3.5785e+01 ,3.1314e+01 ,2.6842e+01 ,2.2368e+01 ,1.7895e+01 ,1.3421e+01 , & - &8.9480e+00 ,4.4747e+00 ,4.8919e-01 /) - kao(:, 3, 3,14) = (/ & - &3.3896e+01 ,2.9659e+01 ,2.5426e+01 ,2.1185e+01 ,1.6948e+01 ,1.2712e+01 , & - &8.4759e+00 ,4.2386e+00 ,6.7406e-01 /) - kao(:, 4, 3,14) = (/ & - &3.2057e+01 ,2.8051e+01 ,2.4047e+01 ,2.0037e+01 ,1.6031e+01 ,1.2024e+01 , & - &8.0158e+00 ,4.0086e+00 ,8.9895e-01 /) - kao(:, 5, 3,14) = (/ & - &3.0352e+01 ,2.6560e+01 ,2.2767e+01 ,1.8972e+01 ,1.5176e+01 ,1.1383e+01 , & - &7.5899e+00 ,3.7954e+00 ,1.1745e+00 /) - kao(:, 1, 4,14) = (/ & - &8.5512e+01 ,7.4816e+01 ,6.4130e+01 ,5.3439e+01 ,4.2750e+01 ,3.2066e+01 , & - &2.1376e+01 ,1.0689e+01 ,2.7979e-01 /) - kao(:, 2, 4,14) = (/ & - &8.0825e+01 ,7.0719e+01 ,6.0615e+01 ,5.0514e+01 ,4.0410e+01 ,3.0306e+01 , & - &2.0206e+01 ,1.0104e+01 ,4.1456e-01 /) - kao(:, 3, 4,14) = (/ & - &7.6512e+01 ,6.6951e+01 ,5.7383e+01 ,4.7821e+01 ,3.8259e+01 ,2.8694e+01 , & - &1.9130e+01 ,9.5655e+00 ,5.8875e-01 /) - kao(:, 4, 4,14) = (/ & - &7.2339e+01 ,6.3299e+01 ,5.4254e+01 ,4.5213e+01 ,3.6173e+01 ,2.7127e+01 , & - &1.8087e+01 ,9.0435e+00 ,8.0998e-01 /) - kao(:, 5, 4,14) = (/ & - &6.8331e+01 ,5.9800e+01 ,5.1253e+01 ,4.2714e+01 ,3.4172e+01 ,2.5627e+01 , & - &1.7086e+01 ,8.5443e+00 ,1.0852e+00 /) - kao(:, 1, 5,14) = (/ & - &1.7862e+02 ,1.5630e+02 ,1.3397e+02 ,1.1164e+02 ,8.9317e+01 ,6.6992e+01 , & - &4.4659e+01 ,2.2329e+01 ,2.4222e-01 /) - kao(:, 2, 5,14) = (/ & - &1.6866e+02 ,1.4756e+02 ,1.2649e+02 ,1.0541e+02 ,8.4332e+01 ,6.3244e+01 , & - &4.2162e+01 ,2.1082e+01 ,3.4856e-01 /) - kao(:, 3, 5,14) = (/ & - &1.5941e+02 ,1.3948e+02 ,1.1955e+02 ,9.9631e+01 ,7.9709e+01 ,5.9780e+01 , & - &3.9852e+01 ,1.9927e+01 ,5.0734e-01 /) - kao(:, 4, 5,14) = (/ & - &1.5067e+02 ,1.3184e+02 ,1.1302e+02 ,9.4183e+01 ,7.5341e+01 ,5.6507e+01 , & - &3.7674e+01 ,1.8837e+01 ,7.2180e-01 /) - kao(:, 5, 5,14) = (/ & - &1.4230e+02 ,1.2451e+02 ,1.0671e+02 ,8.8935e+01 ,7.1153e+01 ,5.3363e+01 , & - &3.5577e+01 ,1.7789e+01 ,9.9362e-01 /) - kao(:, 1, 6,14) = (/ & - &3.5096e+02 ,3.0703e+02 ,2.6318e+02 ,2.1933e+02 ,1.7546e+02 ,1.3159e+02 , & - &8.7733e+01 ,4.3865e+01 ,2.1734e-01 /) - kao(:, 2, 6,14) = (/ & - &3.3138e+02 ,2.8996e+02 ,2.4854e+02 ,2.0711e+02 ,1.6569e+02 ,1.2426e+02 , & - &8.2845e+01 ,4.1423e+01 ,3.0507e-01 /) - kao(:, 3, 6,14) = (/ & - &3.1254e+02 ,2.7346e+02 ,2.3441e+02 ,1.9532e+02 ,1.5627e+02 ,1.1720e+02 , & - &7.8130e+01 ,3.9066e+01 ,4.3270e-01 /) - kao(:, 4, 6,14) = (/ & - &2.9529e+02 ,2.5841e+02 ,2.2148e+02 ,1.8456e+02 ,1.4764e+02 ,1.1074e+02 , & - &7.3826e+01 ,3.6914e+01 ,6.2701e-01 /) - kao(:, 5, 6,14) = (/ & - &2.7880e+02 ,2.4396e+02 ,2.0911e+02 ,1.7424e+02 ,1.3940e+02 ,1.0455e+02 , & - &6.9706e+01 ,3.4852e+01 ,8.8890e-01 /) - kao(:, 1, 7,14) = (/ & - &7.2513e+02 ,6.3446e+02 ,5.4381e+02 ,4.5320e+02 ,3.6257e+02 ,2.7191e+02 , & - &1.8128e+02 ,9.0650e+01 ,1.9831e-01 /) - kao(:, 2, 7,14) = (/ & - &6.8456e+02 ,5.9902e+02 ,5.1343e+02 ,4.2785e+02 ,3.4230e+02 ,2.5672e+02 , & - &1.7115e+02 ,8.5572e+01 ,2.7818e-01 /) - kao(:, 3, 7,14) = (/ & - &6.4547e+02 ,5.6482e+02 ,4.8412e+02 ,4.0342e+02 ,3.2273e+02 ,2.4204e+02 , & - &1.6137e+02 ,8.0688e+01 ,3.8833e-01 /) - kao(:, 4, 7,14) = (/ & - &6.0978e+02 ,5.3357e+02 ,4.5735e+02 ,3.8114e+02 ,3.0489e+02 ,2.2868e+02 , & - &1.5246e+02 ,7.6224e+01 ,5.4866e-01 /) - kao(:, 5, 7,14) = (/ & - &5.7729e+02 ,5.0509e+02 ,4.3294e+02 ,3.6078e+02 ,2.8862e+02 ,2.1646e+02 , & - &1.4432e+02 ,7.2163e+01 ,7.7837e-01 /) - kao(:, 1, 8,14) = (/ & - &1.7967e+03 ,1.5721e+03 ,1.3476e+03 ,1.1230e+03 ,8.9837e+02 ,6.7379e+02 , & - &4.4917e+02 ,2.2458e+02 ,1.7788e-01 /) - kao(:, 2, 8,14) = (/ & - &1.7006e+03 ,1.4881e+03 ,1.2754e+03 ,1.0629e+03 ,8.5028e+02 ,6.3778e+02 , & - &4.2515e+02 ,2.1258e+02 ,2.5421e-01 /) - kao(:, 3, 8,14) = (/ & - &1.6106e+03 ,1.4094e+03 ,1.2079e+03 ,1.0068e+03 ,8.0532e+02 ,6.0404e+02 , & - &4.0268e+02 ,2.0135e+02 ,3.5995e-01 /) - kao(:, 4, 8,14) = (/ & - &1.5246e+03 ,1.3340e+03 ,1.1435e+03 ,9.5278e+02 ,7.6226e+02 ,5.7172e+02 , & - &3.8114e+02 ,1.9058e+02 ,4.9908e-01 /) - kao(:, 5, 8,14) = (/ & - &1.4465e+03 ,1.2656e+03 ,1.0849e+03 ,9.0407e+02 ,7.2320e+02 ,5.4242e+02 , & - &3.6158e+02 ,1.8081e+02 ,6.9586e-01 /) - kao(:, 1, 9,14) = (/ & - &8.4840e+03 ,7.4233e+03 ,6.3628e+03 ,5.3023e+03 ,4.2423e+03 ,3.1813e+03 , & - &2.1210e+03 ,1.0605e+03 ,1.5591e-01 /) - kao(:, 2, 9,14) = (/ & - &8.0479e+03 ,7.0418e+03 ,6.0359e+03 ,5.0301e+03 ,4.0241e+03 ,3.0180e+03 , & - &2.0121e+03 ,1.0060e+03 ,2.2879e-01 /) - kao(:, 3, 9,14) = (/ & - &7.6325e+03 ,6.6786e+03 ,5.7241e+03 ,4.7707e+03 ,3.8161e+03 ,2.8622e+03 , & - &1.9081e+03 ,9.5403e+02 ,3.3113e-01 /) - kao(:, 4, 9,14) = (/ & - &7.2431e+03 ,6.3376e+03 ,5.4325e+03 ,4.5268e+03 ,3.6217e+03 ,2.7162e+03 , & - &1.8109e+03 ,9.0539e+02 ,4.6545e-01 /) - kao(:, 5, 9,14) = (/ & - &6.8956e+03 ,6.0340e+03 ,5.1720e+03 ,4.3099e+03 ,3.4482e+03 ,2.5859e+03 , & - &1.7240e+03 ,8.6204e+02 ,6.4091e-01 /) - kao(:, 1,10,14) = (/ & - &4.4703e+04 ,3.9114e+04 ,3.3523e+04 ,2.7938e+04 ,2.2351e+04 ,1.6764e+04 , & - &1.1175e+04 ,5.5874e+03 ,4.1455e-02 /) - kao(:, 2,10,14) = (/ & - &4.2474e+04 ,3.7167e+04 ,3.1854e+04 ,2.6544e+04 ,2.1238e+04 ,1.5927e+04 , & - &1.0619e+04 ,5.3089e+03 ,6.6750e-02 /) - kao(:, 3,10,14) = (/ & - &4.0460e+04 ,3.5405e+04 ,3.0347e+04 ,2.5289e+04 ,2.0232e+04 ,1.5174e+04 , & - &1.0116e+04 ,5.0578e+03 ,2.7442e-01 /) - kao(:, 4,10,14) = (/ & - &3.8625e+04 ,3.3797e+04 ,2.8970e+04 ,2.4141e+04 ,1.9313e+04 ,1.4484e+04 , & - &9.6562e+03 ,4.8282e+03 ,4.4714e-01 /) - kao(:, 5,10,14) = (/ & - &3.6998e+04 ,3.2375e+04 ,2.7750e+04 ,2.3124e+04 ,1.8498e+04 ,1.3874e+04 , & - &9.2495e+03 ,4.6247e+03 ,6.1795e-01 /) - kao(:, 1,11,14) = (/ & - &8.0689e+04 ,7.0605e+04 ,6.0514e+04 ,5.0431e+04 ,4.0345e+04 ,3.0258e+04 , & - &2.0175e+04 ,1.0088e+04 ,2.7556e-05 /) - kao(:, 2,11,14) = (/ & - &7.7103e+04 ,6.7463e+04 ,5.7832e+04 ,4.8186e+04 ,3.8550e+04 ,2.8913e+04 , & - &1.9275e+04 ,9.6376e+03 ,4.0930e-02 /) - kao(:, 3,11,14) = (/ & - &7.3820e+04 ,6.4596e+04 ,5.5369e+04 ,4.6139e+04 ,3.6913e+04 ,2.7687e+04 , & - &1.8457e+04 ,9.2272e+03 ,8.1894e-02 /) - kao(:, 4,11,14) = (/ & - &7.1047e+04 ,6.2162e+04 ,5.3281e+04 ,4.4402e+04 ,3.5522e+04 ,2.6643e+04 , & - &1.7761e+04 ,8.8802e+03 ,2.3203e-01 /) - kao(:, 5,11,14) = (/ & - &6.8729e+04 ,6.0139e+04 ,5.1549e+04 ,4.2956e+04 ,3.4366e+04 ,2.5774e+04 , & - &1.7184e+04 ,8.5912e+03 ,5.4821e-01 /) - kao(:, 1,12,14) = (/ & - &1.0931e+05 ,9.5652e+04 ,8.1990e+04 ,6.8319e+04 ,5.4655e+04 ,4.0991e+04 , & - &2.7328e+04 ,1.3665e+04 ,2.8846e-05 /) - kao(:, 2,12,14) = (/ & - &1.0521e+05 ,9.2062e+04 ,7.8903e+04 ,6.5759e+04 ,5.2606e+04 ,3.9453e+04 , & - &2.6301e+04 ,1.3151e+04 ,4.7358e-02 /) - kao(:, 3,12,14) = (/ & - &1.0163e+05 ,8.8927e+04 ,7.6219e+04 ,6.3520e+04 ,5.0816e+04 ,3.8110e+04 , & - &2.5405e+04 ,1.2704e+04 ,2.4382e-02 /) - kao(:, 4,12,14) = (/ & - &9.8710e+04 ,8.6365e+04 ,7.4034e+04 ,6.1691e+04 ,4.9353e+04 ,3.7016e+04 , & - &2.4677e+04 ,1.2338e+04 ,1.4381e-01 /) - kao(:, 5,12,14) = (/ & - &9.6361e+04 ,8.4318e+04 ,7.2271e+04 ,6.0231e+04 ,4.8183e+04 ,3.6135e+04 , & - &2.4090e+04 ,1.2044e+04 ,3.4843e-01 /) - kao(:, 1,13,14) = (/ & - &1.2026e+05 ,1.0522e+05 ,9.0197e+04 ,7.5158e+04 ,6.0121e+04 ,4.5095e+04 , & - &3.0062e+04 ,1.5030e+04 ,2.3562e-05 /) - kao(:, 2,13,14) = (/ & - &1.1659e+05 ,1.0201e+05 ,8.7436e+04 ,7.2864e+04 ,5.8293e+04 ,4.3717e+04 , & - &2.9144e+04 ,1.4573e+04 ,1.6351e-02 /) - kao(:, 3,13,14) = (/ & - &1.1367e+05 ,9.9464e+04 ,8.5255e+04 ,7.1046e+04 ,5.6835e+04 ,4.2627e+04 , & - &2.8420e+04 ,1.4209e+04 ,2.9522e-02 /) - kao(:, 4,13,14) = (/ & - &1.1129e+05 ,9.7380e+04 ,8.3472e+04 ,6.9552e+04 ,5.5648e+04 ,4.1732e+04 , & - &2.7823e+04 ,1.3911e+04 ,7.5810e-02 /) - kao(:, 5,13,14) = (/ & - &1.0918e+05 ,9.5534e+04 ,8.1880e+04 ,6.8241e+04 ,5.4595e+04 ,4.0946e+04 , & - &2.7297e+04 ,1.3648e+04 ,2.4333e-01 /) - kao(:, 1, 1,15) = (/ & - &1.0978e+01 ,9.6088e+00 ,8.2350e+00 ,6.8632e+00 ,5.4910e+00 ,4.1182e+00 , & - &2.7459e+00 ,1.3741e+00 ,7.5097e-01 /) - kao(:, 2, 1,15) = (/ & - &1.0420e+01 ,9.1192e+00 ,7.8159e+00 ,6.5136e+00 ,5.2114e+00 ,3.9092e+00 , & - &2.6067e+00 ,1.3044e+00 ,1.0341e+00 /) - kao(:, 3, 1,15) = (/ & - &9.8688e+00 ,8.6360e+00 ,7.4026e+00 ,6.1689e+00 ,4.9358e+00 ,3.7018e+00 , & - &2.4689e+00 ,1.2355e+00 ,1.3726e+00 /) - kao(:, 4, 1,15) = (/ & - &9.3623e+00 ,8.1910e+00 ,7.0229e+00 ,5.8526e+00 ,4.6825e+00 ,3.5124e+00 , & - &2.3423e+00 ,1.1838e+00 ,1.7645e+00 /) - kao(:, 5, 1,15) = (/ & - &8.8716e+00 ,7.7621e+00 ,6.6540e+00 ,5.5450e+00 ,4.4367e+00 ,3.3283e+00 , & - &2.2197e+00 ,1.4532e+00 ,2.2082e+00 /) - kao(:, 1, 2,15) = (/ & - &1.7872e+01 ,1.5635e+01 ,1.3402e+01 ,1.1169e+01 ,8.9360e+00 ,6.7019e+00 , & - &4.4692e+00 ,2.2349e+00 ,7.8713e-01 /) - kao(:, 2, 2,15) = (/ & - &1.6936e+01 ,1.4818e+01 ,1.2703e+01 ,1.0586e+01 ,8.4684e+00 ,6.3517e+00 , & - &4.2352e+00 ,2.1186e+00 ,1.1015e+00 /) - kao(:, 3, 2,15) = (/ & - &1.6019e+01 ,1.4019e+01 ,1.2014e+01 ,1.0011e+01 ,8.0107e+00 ,6.0080e+00 , & - &4.0069e+00 ,2.0039e+00 ,1.4812e+00 /) - kao(:, 4, 2,15) = (/ & - &1.5152e+01 ,1.3257e+01 ,1.1364e+01 ,9.4698e+00 ,7.5770e+00 ,5.6829e+00 , & - &3.7895e+00 ,1.8958e+00 ,1.9253e+00 /) - kao(:, 5, 2,15) = (/ & - &1.4341e+01 ,1.2547e+01 ,1.0755e+01 ,8.9625e+00 ,7.1702e+00 ,5.3783e+00 , & - &3.5866e+00 ,1.8251e+00 ,2.4314e+00 /) - kao(:, 1, 3,15) = (/ & - &3.9644e+01 ,3.4688e+01 ,2.9736e+01 ,2.4782e+01 ,1.9827e+01 ,1.4870e+01 , & - &9.9132e+00 ,4.9569e+00 ,7.5098e-01 /) - kao(:, 2, 3,15) = (/ & - &3.7522e+01 ,3.2831e+01 ,2.8147e+01 ,2.3453e+01 ,1.8762e+01 ,1.4073e+01 , & - &9.3827e+00 ,4.6920e+00 ,1.0782e+00 /) - kao(:, 3, 3,15) = (/ & - &3.5460e+01 ,3.1027e+01 ,2.6599e+01 ,2.2162e+01 ,1.7731e+01 ,1.3300e+01 , & - &8.8666e+00 ,4.4344e+00 ,1.4809e+00 /) - kao(:, 4, 3,15) = (/ & - &3.3460e+01 ,2.9273e+01 ,2.5092e+01 ,2.0911e+01 ,1.6733e+01 ,1.2547e+01 , & - &8.3663e+00 ,4.1837e+00 ,1.9598e+00 /) - kao(:, 5, 3,15) = (/ & - &3.1621e+01 ,2.7670e+01 ,2.3718e+01 ,1.9764e+01 ,1.5811e+01 ,1.1859e+01 , & - &7.9074e+00 ,3.9548e+00 ,2.5132e+00 /) - kao(:, 1, 4,15) = (/ & - &9.0592e+01 ,7.9274e+01 ,6.7952e+01 ,5.6623e+01 ,4.5292e+01 ,3.3974e+01 , & - &2.2650e+01 ,1.1327e+01 ,6.7358e-01 /) - kao(:, 2, 4,15) = (/ & - &8.5357e+01 ,7.4682e+01 ,6.4009e+01 ,5.3347e+01 ,4.2676e+01 ,3.2015e+01 , & - &2.1340e+01 ,1.0671e+01 ,9.9693e-01 /) - kao(:, 3, 4,15) = (/ & - &8.0608e+01 ,7.0531e+01 ,6.0449e+01 ,5.0384e+01 ,4.0308e+01 ,3.0230e+01 , & - &2.0154e+01 ,1.0079e+01 ,1.4044e+00 /) - kao(:, 4, 4,15) = (/ & - &7.6021e+01 ,6.6519e+01 ,5.7017e+01 ,4.7513e+01 ,3.8009e+01 ,2.8510e+01 , & - &1.9006e+01 ,9.5047e+00 ,1.8983e+00 /) - kao(:, 5, 4,15) = (/ & - &7.1646e+01 ,6.2695e+01 ,5.3735e+01 ,4.4783e+01 ,3.5822e+01 ,2.6870e+01 , & - &1.7917e+01 ,8.9586e+00 ,2.4776e+00 /) - kao(:, 1, 5,15) = (/ & - &1.9065e+02 ,1.6683e+02 ,1.4299e+02 ,1.1917e+02 ,9.5320e+01 ,7.1489e+01 , & - &4.7665e+01 ,2.3834e+01 ,5.8170e-01 /) - kao(:, 2, 5,15) = (/ & - &1.7924e+02 ,1.5681e+02 ,1.3443e+02 ,1.1201e+02 ,8.9613e+01 ,6.7209e+01 , & - &4.4814e+01 ,2.2406e+01 ,8.9003e-01 /) - kao(:, 3, 5,15) = (/ & - &1.6878e+02 ,1.4769e+02 ,1.2660e+02 ,1.0549e+02 ,8.4396e+01 ,6.3295e+01 , & - &4.2198e+01 ,2.1098e+01 ,1.2889e+00 /) - kao(:, 4, 5,15) = (/ & - &1.5901e+02 ,1.3914e+02 ,1.1927e+02 ,9.9403e+01 ,7.9524e+01 ,5.9641e+01 , & - &3.9759e+01 ,1.9881e+01 ,1.7818e+00 /) - kao(:, 5, 5,15) = (/ & - &1.4967e+02 ,1.3098e+02 ,1.1227e+02 ,9.3560e+01 ,7.4846e+01 ,5.6123e+01 , & - &3.7423e+01 ,1.8714e+01 ,2.3703e+00 /) - kao(:, 1, 6,15) = (/ & - &3.7689e+02 ,3.2969e+02 ,2.8264e+02 ,2.3553e+02 ,1.8841e+02 ,1.4134e+02 , & - &9.4214e+01 ,4.7104e+01 ,4.7634e-01 /) - kao(:, 2, 6,15) = (/ & - &3.5386e+02 ,3.0960e+02 ,2.6540e+02 ,2.2119e+02 ,1.7694e+02 ,1.3270e+02 , & - &8.8456e+01 ,4.4232e+01 ,7.5759e-01 /) - kao(:, 3, 6,15) = (/ & - &3.3202e+02 ,2.9052e+02 ,2.4901e+02 ,2.0752e+02 ,1.6601e+02 ,1.2451e+02 , & - &8.3003e+01 ,4.1506e+01 ,1.1321e+00 /) - kao(:, 4, 6,15) = (/ & - &3.1280e+02 ,2.7368e+02 ,2.3460e+02 ,1.9550e+02 ,1.5640e+02 ,1.1729e+02 , & - &7.8200e+01 ,3.9102e+01 ,1.6067e+00 /) - kao(:, 5, 6,15) = (/ & - &2.9457e+02 ,2.5772e+02 ,2.2093e+02 ,1.8412e+02 ,1.4729e+02 ,1.1048e+02 , & - &7.3641e+01 ,3.6825e+01 ,2.1838e+00 /) - kao(:, 1, 7,15) = (/ & - &7.8539e+02 ,6.8719e+02 ,5.8900e+02 ,4.9081e+02 ,3.9268e+02 ,2.9449e+02 , & - &1.9633e+02 ,9.8167e+01 ,3.8693e-01 /) - kao(:, 2, 7,15) = (/ & - &7.3697e+02 ,6.4481e+02 ,5.5276e+02 ,4.6063e+02 ,3.6848e+02 ,2.7636e+02 , & - &1.8426e+02 ,9.2135e+01 ,6.2265e-01 /) - kao(:, 3, 7,15) = (/ & - &6.9166e+02 ,6.0516e+02 ,5.1875e+02 ,4.3231e+02 ,3.4580e+02 ,2.5935e+02 , & - &1.7293e+02 ,8.6458e+01 ,9.6225e-01 /) - kao(:, 4, 7,15) = (/ & - &6.5012e+02 ,5.6880e+02 ,4.8758e+02 ,4.0634e+02 ,3.2506e+02 ,2.4380e+02 , & - &1.6251e+02 ,8.1260e+01 ,1.4063e+00 /) - kao(:, 5, 7,15) = (/ & - &6.1251e+02 ,5.3595e+02 ,4.5937e+02 ,3.8280e+02 ,3.0627e+02 ,2.2970e+02 , & - &1.5314e+02 ,7.6572e+01 ,1.9665e+00 /) - kao(:, 1, 8,15) = (/ & - &1.9678e+03 ,1.7217e+03 ,1.4759e+03 ,1.2298e+03 ,9.8389e+02 ,7.3793e+02 , & - &4.9200e+02 ,2.4597e+02 ,3.3326e-01 /) - kao(:, 2, 8,15) = (/ & - &1.8454e+03 ,1.6147e+03 ,1.3840e+03 ,1.1533e+03 ,9.2274e+02 ,6.9199e+02 , & - &4.6133e+02 ,2.3066e+02 ,5.2281e-01 /) - kao(:, 3, 8,15) = (/ & - &1.7316e+03 ,1.5151e+03 ,1.2986e+03 ,1.0821e+03 ,8.6576e+02 ,6.4926e+02 , & - &4.3287e+02 ,2.1643e+02 ,8.0537e-01 /) - kao(:, 4, 8,15) = (/ & - &1.6274e+03 ,1.4239e+03 ,1.2204e+03 ,1.0169e+03 ,8.1360e+02 ,6.1025e+02 , & - &4.0681e+02 ,2.0342e+02 ,1.2167e+00 /) - kao(:, 5, 8,15) = (/ & - &1.5364e+03 ,1.3443e+03 ,1.1523e+03 ,9.6013e+02 ,7.6820e+02 ,5.7614e+02 , & - &3.8407e+02 ,1.9205e+02 ,1.7524e+00 /) - kao(:, 1, 9,15) = (/ & - &9.3073e+03 ,8.1544e+03 ,6.9894e+03 ,5.8248e+03 ,4.6604e+03 ,3.4950e+03 , & - &2.3299e+03 ,1.1651e+03 ,2.9954e-01 /) - kao(:, 2, 9,15) = (/ & - &8.7551e+03 ,7.6608e+03 ,6.5662e+03 ,5.4720e+03 ,4.3776e+03 ,3.2831e+03 , & - &2.1886e+03 ,1.0944e+03 ,4.5642e-01 /) - kao(:, 3, 9,15) = (/ & - &8.2482e+03 ,7.2167e+03 ,6.1860e+03 ,5.1552e+03 ,4.1239e+03 ,3.0929e+03 , & - &2.0618e+03 ,1.0309e+03 ,6.9066e-01 /) - kao(:, 4, 9,15) = (/ & - &7.8082e+03 ,6.8324e+03 ,5.8568e+03 ,4.8805e+03 ,3.9039e+03 ,2.9280e+03 , & - &1.9520e+03 ,9.7612e+02 ,1.0400e+00 /) - kao(:, 5, 9,15) = (/ & - &7.4317e+03 ,6.5021e+03 ,5.5734e+03 ,4.6446e+03 ,3.7157e+03 ,2.7869e+03 , & - &1.8578e+03 ,9.2892e+02 ,1.5452e+00 /) - kao(:, 1,10,15) = (/ & - &4.9432e+04 ,4.3258e+04 ,3.7074e+04 ,3.0897e+04 ,2.4721e+04 ,1.8537e+04 , & - &1.2358e+04 ,6.1790e+03 ,1.8223e-01 /) - kao(:, 2,10,15) = (/ & - &4.6742e+04 ,4.0903e+04 ,3.5058e+04 ,2.9212e+04 ,2.3371e+04 ,1.7528e+04 , & - &1.1686e+04 ,5.8428e+03 ,4.2300e-01 /) - kao(:, 3,10,15) = (/ & - &4.4467e+04 ,3.8905e+04 ,3.3347e+04 ,2.7787e+04 ,2.2232e+04 ,1.6675e+04 , & - &1.1116e+04 ,5.5580e+03 ,6.2837e-01 /) - kao(:, 4,10,15) = (/ & - &4.2571e+04 ,3.7248e+04 ,3.1929e+04 ,2.6604e+04 ,2.1284e+04 ,1.5965e+04 , & - &1.0643e+04 ,5.3212e+03 ,9.2886e-01 /) - kao(:, 5,10,15) = (/ & - &4.1045e+04 ,3.5912e+04 ,3.0783e+04 ,2.5652e+04 ,2.0522e+04 ,1.5392e+04 , & - &1.0261e+04 ,5.1304e+03 ,1.3856e+00 /) - kao(:, 1,11,15) = (/ & - &9.0769e+04 ,7.9427e+04 ,6.8076e+04 ,5.6731e+04 ,4.5387e+04 ,3.4039e+04 , & - &2.2692e+04 ,1.1348e+04 ,6.3351e-06 /) - kao(:, 2,11,15) = (/ & - &8.7118e+04 ,7.6228e+04 ,6.5339e+04 ,5.4453e+04 ,4.3558e+04 ,3.2668e+04 , & - &2.1780e+04 ,1.0890e+04 ,1.2897e-01 /) - kao(:, 3,11,15) = (/ & - &8.4111e+04 ,7.3597e+04 ,6.3086e+04 ,5.2568e+04 ,4.2058e+04 ,3.1544e+04 , & - &2.1027e+04 ,1.0514e+04 ,3.6063e-01 /) - kao(:, 4,11,15) = (/ & - &8.1812e+04 ,7.1584e+04 ,6.1356e+04 ,5.1132e+04 ,4.0904e+04 ,3.0678e+04 , & - &2.0453e+04 ,1.0225e+04 ,8.1674e-01 /) - kao(:, 5,11,15) = (/ & - &7.9895e+04 ,6.9910e+04 ,5.9923e+04 ,4.9935e+04 ,3.9950e+04 ,2.9961e+04 , & - &1.9975e+04 ,9.9870e+03 ,1.4894e+00 /) - kao(:, 1,12,15) = (/ & - &1.2814e+05 ,1.1213e+05 ,9.6104e+04 ,8.0085e+04 ,6.4069e+04 ,4.8051e+04 , & - &3.2036e+04 ,1.6017e+04 ,4.6990e-06 /) - kao(:, 2,12,15) = (/ & - &1.2486e+05 ,1.0925e+05 ,9.3637e+04 ,7.8034e+04 ,6.2430e+04 ,4.6820e+04 , & - &3.1210e+04 ,1.5606e+04 ,1.4051e-05 /) - kao(:, 3,12,15) = (/ & - &1.2228e+05 ,1.0700e+05 ,9.1710e+04 ,7.6429e+04 ,6.1136e+04 ,4.5856e+04 , & - &3.0569e+04 ,1.5285e+04 ,1.5080e-01 /) - kao(:, 4,12,15) = (/ & - &1.2022e+05 ,1.0520e+05 ,9.0163e+04 ,7.5135e+04 ,6.0115e+04 ,4.5084e+04 , & - &3.0055e+04 ,1.5027e+04 ,4.4115e-01 /) - kao(:, 5,12,15) = (/ & - &1.1876e+05 ,1.0392e+05 ,8.9071e+04 ,7.4229e+04 ,5.9383e+04 ,4.4534e+04 , & - &2.9691e+04 ,1.4845e+04 ,1.2230e+00 /) - kao(:, 1,13,15) = (/ & - &1.4959e+05 ,1.3089e+05 ,1.1219e+05 ,9.3492e+04 ,7.4791e+04 ,5.6100e+04 , & - &3.7396e+04 ,1.8698e+04 ,1.6068e-05 /) - kao(:, 2,13,15) = (/ & - &1.4739e+05 ,1.2897e+05 ,1.1053e+05 ,9.2121e+04 ,7.3693e+04 ,5.5270e+04 , & - &3.6845e+04 ,1.8424e+04 ,2.4216e-05 /) - kao(:, 3,13,15) = (/ & - &1.4569e+05 ,1.2748e+05 ,1.0927e+05 ,9.1057e+04 ,7.2849e+04 ,5.4630e+04 , & - &3.6423e+04 ,1.8211e+04 ,2.3267e-01 /) - kao(:, 4,13,15) = (/ & - &1.4449e+05 ,1.2643e+05 ,1.0837e+05 ,9.0297e+04 ,7.2240e+04 ,5.4184e+04 , & - &3.6121e+04 ,1.8059e+04 ,3.2297e-01 /) - kao(:, 5,13,15) = (/ & - &1.4334e+05 ,1.2542e+05 ,1.0750e+05 ,8.9583e+04 ,7.1673e+04 ,5.3754e+04 , & - &3.5834e+04 ,1.7916e+04 ,9.5703e-01 /) - kao(:, 1, 1,16) = (/ & - &1.1012e+01 ,9.6385e+00 ,8.2597e+00 ,6.8841e+00 ,5.5077e+00 ,4.1310e+00 , & - &2.7545e+00 ,1.3780e+00 ,8.0170e-01 /) - kao(:, 2, 1,16) = (/ & - &1.0449e+01 ,9.1438e+00 ,7.8382e+00 ,6.5335e+00 ,5.2262e+00 ,3.9202e+00 , & - &2.6149e+00 ,1.3083e+00 ,1.1089e+00 /) - kao(:, 3, 1,16) = (/ & - &9.8963e+00 ,8.6604e+00 ,7.4233e+00 ,6.1853e+00 ,4.9489e+00 ,3.7122e+00 , & - &2.4757e+00 ,1.2390e+00 ,1.4762e+00 /) - kao(:, 4, 1,16) = (/ & - &9.3879e+00 ,8.2127e+00 ,7.0407e+00 ,5.8670e+00 ,4.6947e+00 ,3.5210e+00 , & - &2.3483e+00 ,1.2086e+00 ,1.9022e+00 /) - kao(:, 5, 1,16) = (/ & - &8.8935e+00 ,7.7813e+00 ,6.6705e+00 ,5.5589e+00 ,4.4480e+00 ,3.3366e+00 , & - &2.2250e+00 ,1.5141e+00 ,2.3892e+00 /) - kao(:, 1, 2,16) = (/ & - &1.7937e+01 ,1.5695e+01 ,1.3452e+01 ,1.1211e+01 ,8.9664e+00 ,6.7267e+00 , & - &4.4861e+00 ,2.2435e+00 ,8.6848e-01 /) - kao(:, 2, 2,16) = (/ & - &1.6997e+01 ,1.4871e+01 ,1.2749e+01 ,1.0624e+01 ,8.4984e+00 ,6.3745e+00 , & - &4.2497e+00 ,2.1262e+00 ,1.2205e+00 /) - kao(:, 3, 2,16) = (/ & - &1.6073e+01 ,1.4067e+01 ,1.2054e+01 ,1.0046e+01 ,8.0383e+00 ,6.0294e+00 , & - &4.0202e+00 ,2.0108e+00 ,1.6477e+00 /) - kao(:, 4, 2,16) = (/ & - &1.5204e+01 ,1.3304e+01 ,1.1402e+01 ,9.4999e+00 ,7.6031e+00 ,5.7017e+00 , & - &3.8022e+00 ,1.9021e+00 ,2.1539e+00 /) - kao(:, 5, 2,16) = (/ & - &1.4385e+01 ,1.2589e+01 ,1.0791e+01 ,8.9907e+00 ,7.1928e+00 ,5.3962e+00 , & - &3.5994e+00 ,1.9006e+00 ,2.7317e+00 /) - kao(:, 1, 3,16) = (/ & - &3.9826e+01 ,3.4837e+01 ,2.9874e+01 ,2.4893e+01 ,1.9916e+01 ,1.4937e+01 , & - &9.9605e+00 ,4.9801e+00 ,8.6605e-01 /) - kao(:, 2, 3,16) = (/ & - &3.7687e+01 ,3.2981e+01 ,2.8272e+01 ,2.3555e+01 ,1.8843e+01 ,1.4136e+01 , & - &9.4254e+00 ,4.7126e+00 ,1.2506e+00 /) - kao(:, 3, 3,16) = (/ & - &3.5608e+01 ,3.1162e+01 ,2.6711e+01 ,2.2256e+01 ,1.7812e+01 ,1.3358e+01 , & - &8.9032e+00 ,4.4535e+00 ,1.7305e+00 /) - kao(:, 4, 3,16) = (/ & - &3.3599e+01 ,2.9402e+01 ,2.5206e+01 ,2.1000e+01 ,1.6804e+01 ,1.2601e+01 , & - &8.4019e+00 ,4.2020e+00 ,2.3040e+00 /) - kao(:, 5, 3,16) = (/ & - &3.1757e+01 ,2.7783e+01 ,2.3809e+01 ,1.9848e+01 ,1.5875e+01 ,1.1908e+01 , & - &7.9407e+00 ,3.9713e+00 ,2.9736e+00 /) - kao(:, 1, 4,16) = (/ & - &9.1010e+01 ,7.9617e+01 ,6.8261e+01 ,5.6883e+01 ,4.5501e+01 ,3.4135e+01 , & - &2.2756e+01 ,1.1381e+01 ,8.2098e-01 /) - kao(:, 2, 4,16) = (/ & - &8.5710e+01 ,7.5003e+01 ,6.4275e+01 ,5.3587e+01 ,4.2849e+01 ,3.2139e+01 , & - &2.1425e+01 ,1.0717e+01 ,1.2260e+00 /) - kao(:, 3, 4,16) = (/ & - &8.0903e+01 ,7.0806e+01 ,6.0673e+01 ,5.0561e+01 ,4.0455e+01 ,3.0343e+01 , & - &2.0221e+01 ,1.0019e+01 ,1.7427e+00 /) - kao(:, 4, 4,16) = (/ & - &7.6250e+01 ,6.6729e+01 ,5.7190e+01 ,4.7658e+01 ,3.8119e+01 ,2.8596e+01 , & - &1.9064e+01 ,9.5357e+00 ,2.3756e+00 /) - kao(:, 5, 4,16) = (/ & - &7.1845e+01 ,6.2892e+01 ,5.3881e+01 ,4.4904e+01 ,3.5931e+01 ,2.6946e+01 , & - &1.7968e+01 ,8.9829e+00 ,3.1270e+00 /) - kao(:, 1, 5,16) = (/ & - &1.9171e+02 ,1.6775e+02 ,1.4380e+02 ,1.1981e+02 ,9.5875e+01 ,7.1871e+01 , & - &4.7928e+01 ,2.3964e+01 ,7.5940e-01 /) - kao(:, 2, 5,16) = (/ & - &1.8016e+02 ,1.5760e+02 ,1.3509e+02 ,1.1260e+02 ,9.0071e+01 ,6.7551e+01 , & - &4.5046e+01 ,2.2517e+01 ,1.1757e+00 /) - kao(:, 3, 5,16) = (/ & - &1.6962e+02 ,1.4839e+02 ,1.2718e+02 ,1.0601e+02 ,8.4813e+01 ,6.3608e+01 , & - &4.2403e+01 ,2.1198e+01 ,1.7223e+00 /) - kao(:, 4, 5,16) = (/ & - &1.5982e+02 ,1.3980e+02 ,1.1984e+02 ,9.9881e+01 ,7.9889e+01 ,5.9924e+01 , & - &3.9950e+01 ,1.9975e+01 ,2.4076e+00 /) - kao(:, 5, 5,16) = (/ & - &1.5041e+02 ,1.3158e+02 ,1.1281e+02 ,9.3993e+01 ,7.5196e+01 ,5.6401e+01 , & - &3.7598e+01 ,1.8805e+01 ,3.2368e+00 /) - kao(:, 1, 6,16) = (/ & - &3.8096e+02 ,3.3337e+02 ,2.8576e+02 ,2.3807e+02 ,1.9047e+02 ,1.4289e+02 , & - &9.5250e+01 ,4.7621e+01 ,6.7593e-01 /) - kao(:, 2, 6,16) = (/ & - &3.5801e+02 ,3.1325e+02 ,2.6851e+02 ,2.2376e+02 ,1.7905e+02 ,1.3426e+02 , & - &8.9499e+01 ,4.4742e+01 ,1.0913e+00 /) - kao(:, 3, 6,16) = (/ & - &3.3608e+02 ,2.9405e+02 ,2.5208e+02 ,2.1010e+02 ,1.6803e+02 ,1.2602e+02 , & - &8.4040e+01 ,4.2005e+01 ,1.6542e+00 /) - kao(:, 4, 6,16) = (/ & - &3.1667e+02 ,2.7704e+02 ,2.3752e+02 ,1.9794e+02 ,1.5835e+02 ,1.1877e+02 , & - &7.9157e+01 ,3.9584e+01 ,2.3801e+00 /) - kao(:, 5, 6,16) = (/ & - &2.9810e+02 ,2.6093e+02 ,2.2364e+02 ,1.8637e+02 ,1.4910e+02 ,1.1183e+02 , & - &7.4550e+01 ,3.7278e+01 ,3.2789e+00 /) - kao(:, 1, 7,16) = (/ & - &7.9749e+02 ,6.9796e+02 ,5.9825e+02 ,4.9855e+02 ,3.9886e+02 ,2.9907e+02 , & - &1.9939e+02 ,9.9689e+01 ,5.8719e-01 /) - kao(:, 2, 7,16) = (/ & - &7.4948e+02 ,6.5592e+02 ,5.6211e+02 ,4.6855e+02 ,3.7478e+02 ,2.8116e+02 , & - &1.8738e+02 ,9.3692e+01 ,9.9296e-01 /) - kao(:, 3, 7,16) = (/ & - &7.0403e+02 ,6.1598e+02 ,5.2804e+02 ,4.4008e+02 ,3.5206e+02 ,2.6406e+02 , & - &1.7605e+02 ,8.8000e+01 ,1.5629e+00 /) - kao(:, 4, 7,16) = (/ & - &6.6205e+02 ,5.7919e+02 ,4.9648e+02 ,4.1378e+02 ,3.3107e+02 ,2.4827e+02 , & - &1.6552e+02 ,8.2766e+01 ,2.3202e+00 /) - kao(:, 5, 7,16) = (/ & - &6.2380e+02 ,5.4580e+02 ,4.6792e+02 ,3.8985e+02 ,3.1191e+02 ,2.3394e+02 , & - &1.5598e+02 ,7.7978e+01 ,3.2803e+00 /) - kao(:, 1, 8,16) = (/ & - &2.0029e+03 ,1.7526e+03 ,1.5027e+03 ,1.2518e+03 ,1.0017e+03 ,7.5137e+02 , & - &5.0076e+02 ,2.5041e+02 ,5.0039e-01 /) - kao(:, 2, 8,16) = (/ & - &1.8839e+03 ,1.6487e+03 ,1.4132e+03 ,1.1775e+03 ,9.4211e+02 ,7.0656e+02 , & - &4.7103e+02 ,2.3550e+02 ,8.8968e-01 /) - kao(:, 3, 8,16) = (/ & - &1.7724e+03 ,1.5508e+03 ,1.3295e+03 ,1.1080e+03 ,8.8638e+02 ,6.6461e+02 , & - &4.4304e+02 ,2.2162e+02 ,1.4586e+00 /) - kao(:, 4, 8,16) = (/ & - &1.6681e+03 ,1.4594e+03 ,1.2510e+03 ,1.0422e+03 ,8.3394e+02 ,6.2548e+02 , & - &4.1698e+02 ,2.0850e+02 ,2.2386e+00 /) - kao(:, 5, 8,16) = (/ & - &1.5734e+03 ,1.3768e+03 ,1.1803e+03 ,9.8337e+02 ,7.8678e+02 ,5.9008e+02 , & - &3.9340e+02 ,1.9668e+02 ,3.2542e+00 /) - kao(:, 1, 9,16) = (/ & - &9.5422e+03 ,8.3482e+03 ,7.1572e+03 ,5.9648e+03 ,4.7724e+03 ,3.5785e+03 , & - &2.3856e+03 ,1.1929e+03 ,4.1531e-01 /) - kao(:, 2, 9,16) = (/ & - &8.9979e+03 ,7.8727e+03 ,6.7481e+03 ,5.6240e+03 ,4.4988e+03 ,3.3743e+03 , & - &2.2493e+03 ,1.1247e+03 ,7.8014e-01 /) - kao(:, 3, 9,16) = (/ & - &8.4879e+03 ,7.4273e+03 ,6.3662e+03 ,5.3047e+03 ,4.2442e+03 ,3.1830e+03 , & - &2.1217e+03 ,1.0610e+03 ,1.3368e+00 /) - kao(:, 4, 9,16) = (/ & - &8.0145e+03 ,7.0116e+03 ,6.0099e+03 ,5.0094e+03 ,4.0072e+03 ,3.0052e+03 , & - &2.0036e+03 ,1.0018e+03 ,2.1276e+00 /) - kao(:, 5, 9,16) = (/ & - &7.6138e+03 ,6.6618e+03 ,5.7100e+03 ,4.7582e+03 ,3.8067e+03 ,2.8551e+03 , & - &1.9031e+03 ,9.5177e+02 ,3.1866e+00 /) - kao(:, 1,10,16) = (/ & - &5.0991e+04 ,4.4616e+04 ,3.8235e+04 ,3.1865e+04 ,2.5493e+04 ,1.9119e+04 , & - &1.2748e+04 ,6.3734e+03 ,3.5386e-01 /) - kao(:, 2,10,16) = (/ & - &4.8246e+04 ,4.2216e+04 ,3.6189e+04 ,3.0155e+04 ,2.4122e+04 ,1.8092e+04 , & - &1.2062e+04 ,6.0316e+03 ,7.0256e-01 /) - kao(:, 3,10,16) = (/ & - &4.5828e+04 ,4.0101e+04 ,3.4373e+04 ,2.8642e+04 ,2.2916e+04 ,1.7187e+04 , & - &1.1458e+04 ,5.7294e+03 ,1.2547e+00 /) - kao(:, 4,10,16) = (/ & - &4.3978e+04 ,3.8481e+04 ,3.2983e+04 ,2.7486e+04 ,2.1988e+04 ,1.6492e+04 , & - &1.0995e+04 ,5.4969e+03 ,2.0651e+00 /) - kao(:, 5,10,16) = (/ & - &4.2519e+04 ,3.7205e+04 ,3.1889e+04 ,2.6577e+04 ,2.1264e+04 ,1.5948e+04 , & - &1.0631e+04 ,5.3154e+03 ,3.1779e+00 /) - kao(:, 1,11,16) = (/ & - &9.4155e+04 ,8.2392e+04 ,7.0618e+04 ,5.8856e+04 ,4.7081e+04 ,3.5308e+04 , & - &2.3542e+04 ,1.1770e+04 ,6.1346e-06 /) - kao(:, 2,11,16) = (/ & - &9.0590e+04 ,7.9258e+04 ,6.7935e+04 ,5.6620e+04 ,4.5292e+04 ,3.3967e+04 , & - &2.2646e+04 ,1.1323e+04 ,3.3281e-01 /) - kao(:, 3,11,16) = (/ & - &8.8119e+04 ,7.7104e+04 ,6.6094e+04 ,5.5078e+04 ,4.4061e+04 ,3.3053e+04 , & - &2.2031e+04 ,1.1015e+04 ,1.5023e+00 /) - kao(:, 4,11,16) = (/ & - &8.6175e+04 ,7.5401e+04 ,6.4627e+04 ,5.3860e+04 ,4.3092e+04 ,3.2317e+04 , & - &2.1545e+04 ,1.0771e+04 ,2.4696e+00 /) - kao(:, 5,11,16) = (/ & - &8.4570e+04 ,7.4002e+04 ,6.3432e+04 ,5.2859e+04 ,4.2288e+04 ,3.1714e+04 , & - &2.1142e+04 ,1.0572e+04 ,3.7979e+00 /) - kao(:, 1,12,16) = (/ & - &1.3547e+05 ,1.1853e+05 ,1.0160e+05 ,8.4660e+04 ,6.7729e+04 ,5.0794e+04 , & - &3.3867e+04 ,1.6929e+04 ,5.0265e-06 /) - kao(:, 2,12,16) = (/ & - &1.3284e+05 ,1.1623e+05 ,9.9623e+04 ,8.3023e+04 ,6.6416e+04 ,4.9810e+04 , & - &3.3206e+04 ,1.6603e+04 ,9.0705e-06 /) - kao(:, 3,12,16) = (/ & - &1.3111e+05 ,1.1471e+05 ,9.8324e+04 ,8.1946e+04 ,6.5544e+04 ,4.9165e+04 , & - &3.2777e+04 ,1.6388e+04 ,1.7901e+00 /) - kao(:, 4,12,16) = (/ & - &1.2947e+05 ,1.1329e+05 ,9.7103e+04 ,8.0920e+04 ,6.4734e+04 ,4.8090e+04 , & - &3.2370e+04 ,1.6184e+04 ,2.9393e+00 /) - kao(:, 5,12,16) = (/ & - &1.2773e+05 ,1.1176e+05 ,9.5799e+04 ,7.9830e+04 ,6.3866e+04 ,4.7901e+04 , & - &3.1932e+04 ,1.5966e+04 ,4.5138e+00 /) - kao(:, 1,13,16) = (/ & - &1.6206e+05 ,1.4180e+05 ,1.2155e+05 ,1.0128e+05 ,8.1025e+04 ,6.0775e+04 , & - &4.0514e+04 ,2.0257e+04 ,4.1164e-06 /) - kao(:, 2,13,16) = (/ & - &1.6103e+05 ,1.4091e+05 ,1.2078e+05 ,1.0065e+05 ,8.0525e+04 ,6.0389e+04 , & - &4.0260e+04 ,2.0131e+04 ,7.4285e-06 /) - kao(:, 3,13,16) = (/ & - &1.6003e+05 ,1.4003e+05 ,1.2001e+05 ,1.0001e+05 ,8.0009e+04 ,6.0009e+04 , & - &4.0005e+04 ,2.0004e+04 ,8.7132e-01 /) - kao(:, 4,13,16) = (/ & - &1.5863e+05 ,1.3882e+05 ,1.1899e+05 ,9.9157e+04 ,7.9319e+04 ,5.9492e+04 , & - &3.9661e+04 ,1.9830e+04 ,3.4650e+00 /) - kao(:, 5,13,16) = (/ & - &1.5756e+05 ,1.3786e+05 ,1.1816e+05 ,9.8476e+04 ,7.8780e+04 ,5.9085e+04 , & - &3.9388e+04 ,1.9695e+04 ,5.3123e+00 /) - -! The array KBO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels < ~100mb, temperatures, and ratios -! of H2O to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. The second index, JT, which -! runs from 1 to 5, corresponds to different temperatures. More -! specifically, JT = 3 means that the data are for the corresponding -! reference temperature TREF for this pressure level, JT = 2 refers -! to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and -! JT = 5 is for TREF+30. The third index, JP, runs from 13 to 59 and -! refers to the corresponding pressure level in PREF (e.g. JP = 13 is -! for a pressure of 95.5835 mb). The fourth index, IG, goes from 1 to -! 16, and tells us which g-interval the absorption coefficients are for. - - kbo(:, 1,13, 1) = (/ & - &1.9283e+01 ,1.4533e+01 ,9.7765e+00 ,4.9986e+00 ,1.2562e-02 /) - kbo(:, 2,13, 1) = (/ & - &2.3187e+01 ,1.7461e+01 ,1.1734e+01 ,5.9860e+00 ,1.4622e-02 /) - kbo(:, 3,13, 1) = (/ & - &2.7169e+01 ,2.0447e+01 ,1.3724e+01 ,6.9897e+00 ,1.6755e-02 /) - kbo(:, 4,13, 1) = (/ & - &3.1114e+01 ,2.3405e+01 ,1.5695e+01 ,7.9803e+00 ,1.8932e-02 /) - kbo(:, 5,13, 1) = (/ & - &3.5056e+01 ,2.6360e+01 ,1.7664e+01 ,8.9659e+00 ,2.1071e-02 /) - kbo(:, 1,14, 1) = (/ & - &1.0180e+01 ,7.7052e+00 ,5.2175e+00 ,2.7059e+00 ,1.0725e-02 /) - kbo(:, 2,14, 1) = (/ & - &1.2216e+01 ,9.2332e+00 ,6.2420e+00 ,3.2235e+00 ,1.2472e-02 /) - kbo(:, 3,14, 1) = (/ & - &1.4258e+01 ,1.0764e+01 ,7.2673e+00 ,3.7434e+00 ,1.4271e-02 /) - kbo(:, 4,14, 1) = (/ & - &1.6297e+01 ,1.2292e+01 ,8.2867e+00 ,4.2597e+00 ,1.6035e-02 /) - kbo(:, 5,14, 1) = (/ & - &1.8337e+01 ,1.3822e+01 ,9.3061e+00 ,4.7742e+00 ,1.7777e-02 /) - kbo(:, 1,15, 1) = (/ & - &5.4843e+00 ,4.1814e+00 ,2.8583e+00 ,1.5122e+00 ,9.1712e-03 /) - kbo(:, 2,15, 1) = (/ & - &6.5509e+00 ,4.9839e+00 ,3.3981e+00 ,1.7878e+00 ,1.0654e-02 /) - kbo(:, 3,15, 1) = (/ & - &7.6172e+00 ,5.7836e+00 ,3.9371e+00 ,2.0620e+00 ,1.2109e-02 /) - kbo(:, 4,15, 1) = (/ & - &8.6919e+00 ,6.5886e+00 ,4.4776e+00 ,2.3372e+00 ,1.3585e-02 /) - kbo(:, 5,15, 1) = (/ & - &9.7770e+00 ,7.4027e+00 ,5.0231e+00 ,2.6136e+00 ,1.5008e-02 /) - kbo(:, 1,16, 1) = (/ & - &3.5143e+00 ,2.7004e+00 ,1.8632e+00 ,1.0005e+00 ,7.8549e-03 /) - kbo(:, 2,16, 1) = (/ & - &4.1782e+00 ,3.2010e+00 ,2.2008e+00 ,1.1754e+00 ,9.0596e-03 /) - kbo(:, 3,16, 1) = (/ & - &4.8461e+00 ,3.7036e+00 ,2.5395e+00 ,1.3499e+00 ,1.0291e-02 /) - kbo(:, 4,16, 1) = (/ & - &5.5241e+00 ,4.2125e+00 ,2.8833e+00 ,1.5266e+00 ,1.1500e-02 /) - kbo(:, 5,16, 1) = (/ & - &6.2095e+00 ,4.7270e+00 ,3.2297e+00 ,1.7035e+00 ,1.2669e-02 /) - kbo(:, 1,17, 1) = (/ & - &2.3317e+00 ,1.8082e+00 ,1.2606e+00 ,6.8451e-01 ,6.6638e-03 /) - kbo(:, 2,17, 1) = (/ & - &2.7625e+00 ,2.1339e+00 ,1.4816e+00 ,7.9994e-01 ,7.6839e-03 /) - kbo(:, 3,17, 1) = (/ & - &3.1980e+00 ,2.4632e+00 ,1.7043e+00 ,9.1671e-01 ,8.7134e-03 /) - kbo(:, 4,17, 1) = (/ & - &3.6437e+00 ,2.7995e+00 ,1.9319e+00 ,1.0349e+00 ,9.7011e-03 /) - kbo(:, 5,17, 1) = (/ & - &4.0944e+00 ,3.1388e+00 ,2.1608e+00 ,1.1535e+00 ,1.0621e-02 /) - kbo(:, 1,18, 1) = (/ & - &1.5862e+00 ,1.2436e+00 ,8.7489e-01 ,4.7986e-01 ,5.6356e-03 /) - kbo(:, 2,18, 1) = (/ & - &1.8744e+00 ,1.4623e+00 ,1.0242e+00 ,5.5874e-01 ,6.4918e-03 /) - kbo(:, 3,18, 1) = (/ & - &2.1671e+00 ,1.6845e+00 ,1.1763e+00 ,6.3905e-01 ,7.3340e-03 /) - kbo(:, 4,18, 1) = (/ & - &2.4666e+00 ,1.9117e+00 ,1.3311e+00 ,7.2008e-01 ,8.1312e-03 /) - kbo(:, 5,18, 1) = (/ & - &2.7713e+00 ,2.1418e+00 ,1.4869e+00 ,8.0122e-01 ,8.8525e-03 /) - kbo(:, 1,19, 1) = (/ & - &1.0610e+00 ,8.4360e-01 ,5.9805e-01 ,3.3172e-01 ,4.7490e-03 /) - kbo(:, 2,19, 1) = (/ & - &1.2512e+00 ,9.8882e-01 ,6.9811e-01 ,3.8521e-01 ,5.4538e-03 /) - kbo(:, 3,19, 1) = (/ & - &1.4451e+00 ,1.1370e+00 ,8.0056e-01 ,4.3959e-01 ,6.1291e-03 /) - kbo(:, 4,19, 1) = (/ & - &1.6437e+00 ,1.2883e+00 ,9.0437e-01 ,4.9444e-01 ,6.7635e-03 /) - kbo(:, 5,19, 1) = (/ & - &1.8467e+00 ,1.4425e+00 ,1.0099e+00 ,5.4929e-01 ,7.3353e-03 /) - kbo(:, 1,20, 1) = (/ & - &7.7133e-01 ,6.2032e-01 ,4.4197e-01 ,2.4707e-01 ,4.0032e-03 /) - kbo(:, 2,20, 1) = (/ & - &9.0743e-01 ,7.2503e-01 ,5.1466e-01 ,2.8622e-01 ,4.5715e-03 /) - kbo(:, 3,20, 1) = (/ & - &1.0470e+00 ,8.3267e-01 ,5.8918e-01 ,3.2603e-01 ,5.1125e-03 /) - kbo(:, 4,20, 1) = (/ & - &1.1900e+00 ,9.4226e-01 ,6.6481e-01 ,3.6603e-01 ,5.6145e-03 /) - kbo(:, 5,20, 1) = (/ & - &1.3362e+00 ,1.0539e+00 ,7.4130e-01 ,4.0582e-01 ,6.0699e-03 /) - kbo(:, 1,21, 1) = (/ & - &5.7866e-01 ,4.6986e-01 ,3.3621e-01 ,1.8917e-01 ,3.3621e-03 /) - kbo(:, 2,21, 1) = (/ & - &6.7950e-01 ,5.4811e-01 ,3.9072e-01 ,2.1877e-01 ,3.8183e-03 /) - kbo(:, 3,21, 1) = (/ & - &7.8326e-01 ,6.2869e-01 ,4.4658e-01 ,2.4873e-01 ,4.2512e-03 /) - kbo(:, 4,21, 1) = (/ & - &8.8933e-01 ,7.1063e-01 ,5.0334e-01 ,2.7872e-01 ,4.6532e-03 /) - kbo(:, 5,21, 1) = (/ & - &9.9790e-01 ,7.9397e-01 ,5.6013e-01 ,3.0841e-01 ,5.0189e-03 /) - kbo(:, 1,22, 1) = (/ & - &4.5035e-01 ,3.6838e-01 ,2.6449e-01 ,1.4961e-01 ,2.8371e-03 /) - kbo(:, 2,22, 1) = (/ & - &5.2710e-01 ,4.2854e-01 ,3.0641e-01 ,1.7248e-01 ,3.2033e-03 /) - kbo(:, 3,22, 1) = (/ & - &6.0621e-01 ,4.9027e-01 ,3.4931e-01 ,1.9546e-01 ,3.5507e-03 /) - kbo(:, 4,22, 1) = (/ & - &6.8687e-01 ,5.5302e-01 ,3.9268e-01 ,2.1836e-01 ,3.8721e-03 /) - kbo(:, 5,22, 1) = (/ & - &7.6986e-01 ,6.1676e-01 ,4.3619e-01 ,2.4105e-01 ,4.1644e-03 /) - kbo(:, 1,23, 1) = (/ & - &3.5288e-01 ,2.9059e-01 ,2.0929e-01 ,1.1896e-01 ,2.3878e-03 /) - kbo(:, 2,23, 1) = (/ & - &4.1165e-01 ,3.3703e-01 ,2.4169e-01 ,1.3668e-01 ,2.6830e-03 /) - kbo(:, 3,23, 1) = (/ & - &4.7210e-01 ,3.8447e-01 ,2.7478e-01 ,1.5435e-01 ,2.9616e-03 /) - kbo(:, 4,23, 1) = (/ & - &5.3412e-01 ,4.3294e-01 ,3.0818e-01 ,1.7203e-01 ,3.2196e-03 /) - kbo(:, 5,23, 1) = (/ & - &5.9758e-01 ,4.8162e-01 ,3.4147e-01 ,1.8925e-01 ,3.4517e-03 /) - kbo(:, 1,24, 1) = (/ & - &2.7554e-01 ,2.2847e-01 ,1.6509e-01 ,9.4305e-02 ,2.0058e-03 /) - kbo(:, 2,24, 1) = (/ & - &3.2038e-01 ,2.6411e-01 ,1.9003e-01 ,1.0793e-01 ,2.2440e-03 /) - kbo(:, 3,24, 1) = (/ & - &3.6644e-01 ,3.0049e-01 ,2.1543e-01 ,1.2148e-01 ,2.4688e-03 /) - kbo(:, 4,24, 1) = (/ & - &4.1394e-01 ,3.3761e-01 ,2.4100e-01 ,1.3500e-01 ,2.6754e-03 /) - kbo(:, 5,24, 1) = (/ & - &4.6205e-01 ,3.7459e-01 ,2.6626e-01 ,1.4798e-01 ,2.8597e-03 /) - kbo(:, 1,25, 1) = (/ & - &2.1831e-01 ,1.8211e-01 ,1.3197e-01 ,7.5672e-02 ,1.6848e-03 /) - kbo(:, 2,25, 1) = (/ & - &2.5300e-01 ,2.0977e-01 ,1.5139e-01 ,8.6229e-02 ,1.8770e-03 /) - kbo(:, 3,25, 1) = (/ & - &2.8861e-01 ,2.3809e-01 ,1.7109e-01 ,9.6778e-02 ,2.0567e-03 /) - kbo(:, 4,25, 1) = (/ & - &3.2559e-01 ,2.6686e-01 ,1.9096e-01 ,1.0719e-01 ,2.2230e-03 /) - kbo(:, 5,25, 1) = (/ & - &3.6217e-01 ,2.9511e-01 ,2.1013e-01 ,1.1707e-01 ,2.3678e-03 /) - kbo(:, 1,26, 1) = (/ & - &1.7639e-01 ,1.4786e-01 ,1.0735e-01 ,6.1680e-02 ,1.4167e-03 /) - kbo(:, 2,26, 1) = (/ & - &2.0373e-01 ,1.6972e-01 ,1.2271e-01 ,7.0008e-02 ,1.5712e-03 /) - kbo(:, 3,26, 1) = (/ & - &2.3189e-01 ,1.9218e-01 ,1.3830e-01 ,7.8351e-02 ,1.7155e-03 /) - kbo(:, 4,26, 1) = (/ & - &2.6096e-01 ,2.1478e-01 ,1.5388e-01 ,8.6437e-02 ,1.8482e-03 /) - kbo(:, 5,26, 1) = (/ & - &2.8921e-01 ,2.3658e-01 ,1.6864e-01 ,9.4016e-02 ,1.9628e-03 /) - kbo(:, 1,27, 1) = (/ & - &1.4816e-01 ,1.2446e-01 ,9.0381e-02 ,5.1884e-02 ,1.1905e-03 /) - kbo(:, 2,27, 1) = (/ & - &1.7052e-01 ,1.4243e-01 ,1.0297e-01 ,5.8708e-02 ,1.3153e-03 /) - kbo(:, 3,27, 1) = (/ & - &1.9369e-01 ,1.6085e-01 ,1.1575e-01 ,6.5493e-02 ,1.4309e-03 /) - kbo(:, 4,27, 1) = (/ & - &2.1729e-01 ,1.7923e-01 ,1.2834e-01 ,7.1951e-02 ,1.5370e-03 /) - kbo(:, 5,27, 1) = (/ & - &2.3994e-01 ,1.9663e-01 ,1.4015e-01 ,7.7968e-02 ,1.6265e-03 /) - kbo(:, 1,28, 1) = (/ & - &1.2786e-01 ,1.0743e-01 ,7.7947e-02 ,4.4624e-02 ,1.0001e-03 /) - kbo(:, 2,28, 1) = (/ & - &1.4668e-01 ,1.2262e-01 ,8.8533e-02 ,5.0350e-02 ,1.1007e-03 /) - kbo(:, 3,28, 1) = (/ & - &1.6624e-01 ,1.3809e-01 ,9.9259e-02 ,5.5949e-02 ,1.1936e-03 /) - kbo(:, 4,28, 1) = (/ & - &1.8582e-01 ,1.5336e-01 ,1.0964e-01 ,6.1251e-02 ,1.2774e-03 /) - kbo(:, 5,28, 1) = (/ & - &2.0447e-01 ,1.6760e-01 ,1.1929e-01 ,6.6127e-02 ,1.3481e-03 /) - kbo(:, 1,29, 1) = (/ & - &1.1723e-01 ,9.8203e-02 ,7.1006e-02 ,4.0413e-02 ,8.4082e-04 /) - kbo(:, 2,29, 1) = (/ & - &1.3410e-01 ,1.1181e-01 ,8.0444e-02 ,4.5462e-02 ,9.2201e-04 /) - kbo(:, 3,29, 1) = (/ & - &1.5159e-01 ,1.2556e-01 ,8.9943e-02 ,5.0342e-02 ,9.9652e-04 /) - kbo(:, 4,29, 1) = (/ & - &1.6878e-01 ,1.3892e-01 ,9.8991e-02 ,5.4945e-02 ,1.0624e-03 /) - kbo(:, 5,29, 1) = (/ & - &1.8506e-01 ,1.5133e-01 ,1.0733e-01 ,5.9130e-02 ,1.1186e-03 /) - kbo(:, 1,30, 1) = (/ & - &1.1017e-01 ,9.1915e-02 ,6.6158e-02 ,3.7385e-02 ,7.0716e-04 /) - kbo(:, 2,30, 1) = (/ & - &1.2571e-01 ,1.0438e-01 ,7.4791e-02 ,4.1937e-02 ,7.7222e-04 /) - kbo(:, 3,30, 1) = (/ & - &1.4165e-01 ,1.1688e-01 ,8.3361e-02 ,4.6295e-02 ,8.3205e-04 /) - kbo(:, 4,30, 1) = (/ & - &1.5709e-01 ,1.2882e-01 ,9.1412e-02 ,5.0358e-02 ,8.8422e-04 /) - kbo(:, 5,30, 1) = (/ & - &1.7161e-01 ,1.3989e-01 ,9.8798e-02 ,5.4060e-02 ,9.2829e-04 /) - kbo(:, 1,31, 1) = (/ & - &1.0894e-01 ,9.0338e-02 ,6.4636e-02 ,3.6175e-02 ,5.9489e-04 /) - kbo(:, 2,31, 1) = (/ & - &1.2399e-01 ,1.0230e-01 ,7.2900e-02 ,4.0465e-02 ,6.4753e-04 /) - kbo(:, 3,31, 1) = (/ & - &1.3920e-01 ,1.1419e-01 ,8.0980e-02 ,4.4552e-02 ,6.9507e-04 /) - kbo(:, 4,31, 1) = (/ & - &1.5373e-01 ,1.2537e-01 ,8.8479e-02 ,4.8317e-02 ,7.3661e-04 /) - kbo(:, 5,31, 1) = (/ & - &1.6735e-01 ,1.3577e-01 ,9.5380e-02 ,5.1770e-02 ,7.7104e-04 /) - kbo(:, 1,32, 1) = (/ & - &1.0900e-01 ,8.9827e-02 ,6.3903e-02 ,3.5410e-02 ,5.0043e-04 /) - kbo(:, 2,32, 1) = (/ & - &1.2373e-01 ,1.0144e-01 ,7.1880e-02 ,3.9506e-02 ,5.4269e-04 /) - kbo(:, 3,32, 1) = (/ & - &1.3829e-01 ,1.1278e-01 ,7.9528e-02 ,4.3367e-02 ,5.8080e-04 /) - kbo(:, 4,32, 1) = (/ & - &1.5213e-01 ,1.2340e-01 ,8.6611e-02 ,4.6908e-02 ,6.1297e-04 /) - kbo(:, 5,32, 1) = (/ & - &1.6513e-01 ,1.3334e-01 ,9.3188e-02 ,5.0191e-02 ,6.4067e-04 /) - kbo(:, 1,33, 1) = (/ & - &1.1105e-01 ,9.0919e-02 ,6.4301e-02 ,3.5277e-02 ,4.2055e-04 /) - kbo(:, 2,33, 1) = (/ & - &1.2562e-01 ,1.0235e-01 ,7.2096e-02 ,3.9245e-02 ,4.5474e-04 /) - kbo(:, 3,33, 1) = (/ & - &1.3981e-01 ,1.1334e-01 ,7.9473e-02 ,4.2949e-02 ,4.8461e-04 /) - kbo(:, 4,33, 1) = (/ & - &1.5326e-01 ,1.2363e-01 ,8.6303e-02 ,4.6360e-02 ,5.1014e-04 /) - kbo(:, 5,33, 1) = (/ & - &1.6587e-01 ,1.3331e-01 ,9.2704e-02 ,4.9561e-02 ,5.3252e-04 /) - kbo(:, 1,34, 1) = (/ & - &1.0980e-01 ,8.9454e-02 ,6.2967e-02 ,3.4264e-02 ,3.5179e-04 /) - kbo(:, 2,34, 1) = (/ & - &1.2374e-01 ,1.0037e-01 ,7.0363e-02 ,3.8004e-02 ,3.7955e-04 /) - kbo(:, 3,34, 1) = (/ & - &1.3725e-01 ,1.1080e-01 ,7.7340e-02 ,4.1494e-02 ,4.0292e-04 /) - kbo(:, 4,34, 1) = (/ & - &1.5005e-01 ,1.2058e-01 ,8.3803e-02 ,4.4722e-02 ,4.2388e-04 /) - kbo(:, 5,34, 1) = (/ & - &1.6190e-01 ,1.2971e-01 ,8.9844e-02 ,4.7765e-02 ,4.4175e-04 /) - kbo(:, 1,35, 1) = (/ & - &1.0733e-01 ,8.7091e-02 ,6.1056e-02 ,3.2994e-02 ,2.9230e-04 /) - kbo(:, 2,35, 1) = (/ & - &1.2074e-01 ,9.7561e-02 ,6.8117e-02 ,3.6550e-02 ,3.1434e-04 /) - kbo(:, 3,35, 1) = (/ & - &1.3369e-01 ,1.0755e-01 ,7.4768e-02 ,3.9873e-02 ,3.3363e-04 /) - kbo(:, 4,35, 1) = (/ & - &1.4588e-01 ,1.1689e-01 ,8.0950e-02 ,4.2958e-02 ,3.5062e-04 /) - kbo(:, 5,35, 1) = (/ & - &1.5707e-01 ,1.2552e-01 ,8.6668e-02 ,4.5847e-02 ,3.6479e-04 /) - kbo(:, 1,36, 1) = (/ & - &1.0289e-01 ,8.3241e-02 ,5.8159e-02 ,3.1253e-02 ,2.4069e-04 /) - kbo(:, 2,36, 1) = (/ & - &1.1571e-01 ,9.3253e-02 ,6.4895e-02 ,3.4641e-02 ,2.5868e-04 /) - kbo(:, 3,36, 1) = (/ & - &1.2815e-01 ,1.0284e-01 ,7.1277e-02 ,3.7824e-02 ,2.7449e-04 /) - kbo(:, 4,36, 1) = (/ & - &1.3974e-01 ,1.1174e-01 ,7.7168e-02 ,4.0766e-02 ,2.8849e-04 /) - kbo(:, 5,36, 1) = (/ & - &1.5033e-01 ,1.1990e-01 ,8.2576e-02 ,4.3496e-02 ,2.9983e-04 /) - kbo(:, 1,37, 1) = (/ & - &9.4340e-02 ,7.6226e-02 ,5.3140e-02 ,2.8456e-02 ,1.9559e-04 /) - kbo(:, 2,37, 1) = (/ & - &1.0634e-01 ,8.5612e-02 ,5.9452e-02 ,3.1630e-02 ,2.1059e-04 /) - kbo(:, 3,37, 1) = (/ & - &1.1803e-01 ,9.4641e-02 ,6.5469e-02 ,3.4631e-02 ,2.2381e-04 /) - kbo(:, 4,37, 1) = (/ & - &1.2893e-01 ,1.0302e-01 ,7.1019e-02 ,3.7400e-02 ,2.3549e-04 /) - kbo(:, 5,37, 1) = (/ & - &1.3882e-01 ,1.1066e-01 ,7.6074e-02 ,3.9944e-02 ,2.4505e-04 /) - kbo(:, 1,38, 1) = (/ & - &8.7666e-02 ,7.0724e-02 ,4.9189e-02 ,2.6244e-02 ,1.5881e-04 /) - kbo(:, 2,38, 1) = (/ & - &9.9075e-02 ,7.9666e-02 ,5.5208e-02 ,2.9270e-02 ,1.7135e-04 /) - kbo(:, 3,38, 1) = (/ & - &1.1022e-01 ,8.8294e-02 ,6.0961e-02 ,3.2140e-02 ,1.8248e-04 /) - kbo(:, 4,38, 1) = (/ & - &1.2063e-01 ,9.6310e-02 ,6.6270e-02 ,3.4786e-02 ,1.9228e-04 /) - kbo(:, 5,38, 1) = (/ & - &1.3002e-01 ,1.0355e-01 ,7.1058e-02 ,3.7188e-02 ,2.0028e-04 /) - kbo(:, 1,39, 1) = (/ & - &8.3319e-02 ,6.7083e-02 ,4.6540e-02 ,2.4732e-02 ,1.2903e-04 /) - kbo(:, 2,39, 1) = (/ & - &9.4409e-02 ,7.5788e-02 ,5.2401e-02 ,2.7679e-02 ,1.3958e-04 /) - kbo(:, 3,39, 1) = (/ & - &1.0530e-01 ,8.4225e-02 ,5.8027e-02 ,3.0486e-02 ,1.4894e-04 /) - kbo(:, 4,39, 1) = (/ & - &1.1544e-01 ,9.2061e-02 ,6.3226e-02 ,3.3071e-02 ,1.5713e-04 /) - kbo(:, 5,39, 1) = (/ & - &1.2457e-01 ,9.9102e-02 ,6.7879e-02 ,3.5400e-02 ,1.6372e-04 /) - kbo(:, 1,40, 1) = (/ & - &7.3382e-02 ,5.9091e-02 ,4.0949e-02 ,2.1720e-02 ,1.0369e-04 /) - kbo(:, 2,40, 1) = (/ & - &8.3492e-02 ,6.7054e-02 ,4.6317e-02 ,2.4422e-02 ,1.1258e-04 /) - kbo(:, 3,40, 1) = (/ & - &9.3502e-02 ,7.4845e-02 ,5.1514e-02 ,2.7021e-02 ,1.2049e-04 /) - kbo(:, 4,40, 1) = (/ & - &1.0289e-01 ,8.2115e-02 ,5.6339e-02 ,2.9419e-02 ,1.2744e-04 /) - kbo(:, 5,40, 1) = (/ & - &1.1132e-01 ,8.8604e-02 ,6.0629e-02 ,3.1559e-02 ,1.3317e-04 /) - kbo(:, 1,41, 1) = (/ & - &6.4289e-02 ,5.1783e-02 ,3.5851e-02 ,1.8983e-02 ,8.3205e-05 /) - kbo(:, 2,41, 1) = (/ & - &7.3486e-02 ,5.9047e-02 ,4.0756e-02 ,2.1456e-02 ,9.0601e-05 /) - kbo(:, 3,41, 1) = (/ & - &8.2657e-02 ,6.6211e-02 ,4.5539e-02 ,2.3850e-02 ,9.7309e-05 /) - kbo(:, 4,41, 1) = (/ & - &9.1325e-02 ,7.2956e-02 ,5.0013e-02 ,2.6075e-02 ,1.0320e-04 /) - kbo(:, 5,41, 1) = (/ & - &9.9149e-02 ,7.8969e-02 ,5.3991e-02 ,2.8057e-02 ,1.0825e-04 /) - kbo(:, 1,42, 1) = (/ & - &5.6899e-02 ,4.5812e-02 ,3.1686e-02 ,1.6747e-02 ,6.6719e-05 /) - kbo(:, 2,42, 1) = (/ & - &6.5316e-02 ,5.2494e-02 ,3.6198e-02 ,1.9026e-02 ,7.2862e-05 /) - kbo(:, 3,42, 1) = (/ & - &7.3779e-02 ,5.9136e-02 ,4.0639e-02 ,2.1249e-02 ,7.8557e-05 /) - kbo(:, 4,42, 1) = (/ & - &8.1877e-02 ,6.5448e-02 ,4.4826e-02 ,2.3334e-02 ,8.3575e-05 /) - kbo(:, 5,42, 1) = (/ & - &8.9207e-02 ,7.1094e-02 ,4.8562e-02 ,2.5195e-02 ,8.7912e-05 /) - kbo(:, 1,43, 1) = (/ & - &5.0334e-02 ,4.0495e-02 ,2.7979e-02 ,1.4764e-02 ,5.3104e-05 /) - kbo(:, 2,43, 1) = (/ & - &5.8063e-02 ,4.6679e-02 ,3.2159e-02 ,1.6880e-02 ,5.8298e-05 /) - kbo(:, 3,43, 1) = (/ & - &6.5961e-02 ,5.2905e-02 ,3.6327e-02 ,1.8968e-02 ,6.3123e-05 /) - kbo(:, 4,43, 1) = (/ & - &7.3585e-02 ,5.8862e-02 ,4.0291e-02 ,2.0945e-02 ,6.7425e-05 /) - kbo(:, 5,43, 1) = (/ & - &8.0560e-02 ,6.4257e-02 ,4.3859e-02 ,2.2720e-02 ,7.1177e-05 /) - kbo(:, 1,44, 1) = (/ & - &4.4899e-02 ,3.6074e-02 ,2.4891e-02 ,1.3115e-02 ,4.2029e-05 /) - kbo(:, 2,44, 1) = (/ & - &5.2065e-02 ,4.1850e-02 ,2.8809e-02 ,1.5097e-02 ,4.6479e-05 /) - kbo(:, 3,44, 1) = (/ & - &5.9485e-02 ,4.7740e-02 ,3.2758e-02 ,1.7077e-02 ,5.0599e-05 /) - kbo(:, 4,44, 1) = (/ & - &6.6781e-02 ,5.3454e-02 ,3.6566e-02 ,1.8982e-02 ,5.4263e-05 /) - kbo(:, 5,44, 1) = (/ & - &7.3522e-02 ,5.8690e-02 ,4.0031e-02 ,2.0702e-02 ,5.7530e-05 /) - kbo(:, 1,45, 1) = (/ & - &4.0792e-02 ,3.2725e-02 ,2.2543e-02 ,1.1850e-02 ,3.3244e-05 /) - kbo(:, 2,45, 1) = (/ & - &4.7552e-02 ,3.8195e-02 ,2.6267e-02 ,1.3739e-02 ,3.7011e-05 /) - kbo(:, 3,45, 1) = (/ & - &5.4656e-02 ,4.3858e-02 ,3.0076e-02 ,1.5653e-02 ,4.0475e-05 /) - kbo(:, 4,45, 1) = (/ & - &6.1725e-02 ,4.9413e-02 ,3.3782e-02 ,1.7505e-02 ,4.3662e-05 /) - kbo(:, 5,45, 1) = (/ & - &6.8362e-02 ,5.4599e-02 ,3.7216e-02 ,1.9215e-02 ,4.6426e-05 /) - kbo(:, 1,46, 1) = (/ & - &3.7210e-02 ,2.9813e-02 ,2.0505e-02 ,1.0753e-02 ,2.6192e-05 /) - kbo(:, 2,46, 1) = (/ & - &4.3666e-02 ,3.5023e-02 ,2.4062e-02 ,1.2564e-02 ,2.9338e-05 /) - kbo(:, 3,46, 1) = (/ & - &5.0484e-02 ,4.0487e-02 ,2.7746e-02 ,1.4418e-02 ,3.2269e-05 /) - kbo(:, 4,46, 1) = (/ & - &5.7389e-02 ,4.5948e-02 ,3.1393e-02 ,1.6243e-02 ,3.5047e-05 /) - kbo(:, 5,46, 1) = (/ & - &6.3983e-02 ,5.1116e-02 ,3.4828e-02 ,1.7955e-02 ,3.7412e-05 /) - kbo(:, 1,47, 1) = (/ & - &3.3307e-02 ,2.6647e-02 ,1.8307e-02 ,9.5851e-03 ,2.0446e-05 /) - kbo(:, 2,47, 1) = (/ & - &3.9395e-02 ,3.1552e-02 ,2.1654e-02 ,1.1293e-02 ,2.3124e-05 /) - kbo(:, 3,47, 1) = (/ & - &4.5832e-02 ,3.6752e-02 ,2.5172e-02 ,1.3065e-02 ,2.5601e-05 /) - kbo(:, 4,47, 1) = (/ & - &5.2491e-02 ,4.2052e-02 ,2.8722e-02 ,1.4843e-02 ,2.7940e-05 /) - kbo(:, 5,47, 1) = (/ & - &5.8958e-02 ,4.7137e-02 ,3.2108e-02 ,1.6536e-02 ,3.0007e-05 /) - kbo(:, 1,48, 1) = (/ & - &3.0577e-02 ,2.4411e-02 ,1.6745e-02 ,8.7495e-03 ,1.5922e-05 /) - kbo(:, 2,48, 1) = (/ & - &3.6464e-02 ,2.9147e-02 ,1.9975e-02 ,1.0397e-02 ,1.8148e-05 /) - kbo(:, 3,48, 1) = (/ & - &4.2691e-02 ,3.4197e-02 ,2.3406e-02 ,1.2132e-02 ,2.0290e-05 /) - kbo(:, 4,48, 1) = (/ & - &4.9243e-02 ,3.9438e-02 ,2.6932e-02 ,1.3903e-02 ,2.2244e-05 /) - kbo(:, 5,48, 1) = (/ & - &5.5751e-02 ,4.4571e-02 ,3.0355e-02 ,1.5610e-02 ,2.4044e-05 /) - kbo(:, 1,49, 1) = (/ & - &2.9139e-02 ,2.3202e-02 ,1.5887e-02 ,8.2788e-03 ,1.2379e-05 /) - kbo(:, 2,49, 1) = (/ & - &3.5049e-02 ,2.7954e-02 ,1.9124e-02 ,9.9302e-03 ,1.4214e-05 /) - kbo(:, 3,49, 1) = (/ & - &4.1342e-02 ,3.3034e-02 ,2.2588e-02 ,1.1686e-02 ,1.6044e-05 /) - kbo(:, 4,49, 1) = (/ & - &4.8011e-02 ,3.8402e-02 ,2.6208e-02 ,1.3508e-02 ,1.7733e-05 /) - kbo(:, 5,49, 1) = (/ & - &5.4790e-02 ,4.3771e-02 ,2.9799e-02 ,1.5302e-02 ,1.9282e-05 /) - kbo(:, 1,50, 1) = (/ & - &2.6464e-02 ,2.1057e-02 ,1.4400e-02 ,7.4918e-03 ,9.6160e-06 /) - kbo(:, 2,50, 1) = (/ & - &3.2138e-02 ,2.5589e-02 ,1.7489e-02 ,9.0674e-03 ,1.1117e-05 /) - kbo(:, 3,50, 1) = (/ & - &3.8201e-02 ,3.0472e-02 ,2.0816e-02 ,1.0758e-02 ,1.2650e-05 /) - kbo(:, 4,50, 1) = (/ & - &4.4627e-02 ,3.5684e-02 ,2.4344e-02 ,1.2533e-02 ,1.4094e-05 /) - kbo(:, 5,50, 1) = (/ & - &5.1304e-02 ,4.1009e-02 ,2.7917e-02 ,1.4322e-02 ,1.5452e-05 /) - kbo(:, 1,51, 1) = (/ & - &2.3471e-02 ,1.8670e-02 ,1.2760e-02 ,6.6303e-03 ,7.4600e-06 /) - kbo(:, 2,51, 1) = (/ & - &2.8809e-02 ,2.2911e-02 ,1.5642e-02 ,8.0988e-03 ,8.6870e-06 /) - kbo(:, 3,51, 1) = (/ & - &3.4515e-02 ,2.7502e-02 ,1.8771e-02 ,9.6885e-03 ,9.9502e-06 /) - kbo(:, 4,51, 1) = (/ & - &4.0564e-02 ,3.2426e-02 ,2.2116e-02 ,1.1378e-02 ,1.1172e-05 /) - kbo(:, 5,51, 1) = (/ & - &4.6952e-02 ,3.7546e-02 ,2.5560e-02 ,1.3107e-02 ,1.2317e-05 /) - kbo(:, 1,52, 1) = (/ & - &2.1330e-02 ,1.6945e-02 ,1.1569e-02 ,6.0043e-03 ,5.7740e-06 /) - kbo(:, 2,52, 1) = (/ & - &2.6486e-02 ,2.1033e-02 ,1.4344e-02 ,7.4158e-03 ,6.7739e-06 /) - kbo(:, 3,52, 1) = (/ & - &3.1984e-02 ,2.5459e-02 ,1.7358e-02 ,8.9483e-03 ,7.8163e-06 /) - kbo(:, 4,52, 1) = (/ & - &3.7859e-02 ,3.0220e-02 ,2.0602e-02 ,1.0589e-02 ,8.8379e-06 /) - kbo(:, 5,52, 1) = (/ & - &4.4095e-02 ,3.5255e-02 ,2.3994e-02 ,1.2295e-02 ,9.8102e-06 /) - kbo(:, 1,53, 1) = (/ & - &2.0104e-02 ,1.5937e-02 ,1.0867e-02 ,5.6295e-03 ,4.4532e-06 /) - kbo(:, 2,53, 1) = (/ & - &2.5267e-02 ,2.0039e-02 ,1.3647e-02 ,7.0429e-03 ,5.2727e-06 /) - kbo(:, 3,53, 1) = (/ & - &3.0800e-02 ,2.4464e-02 ,1.6661e-02 ,8.5763e-03 ,6.1352e-06 /) - kbo(:, 4,53, 1) = (/ & - &3.6739e-02 ,2.9255e-02 ,1.9925e-02 ,1.0232e-02 ,6.9843e-06 /) - kbo(:, 5,53, 1) = (/ & - &4.3045e-02 ,3.4379e-02 ,2.3392e-02 ,1.1975e-02 ,7.8095e-06 /) - kbo(:, 1,54, 1) = (/ & - &1.6441e-02 ,1.3030e-02 ,8.8847e-03 ,4.6022e-03 ,3.4230e-06 /) - kbo(:, 2,54, 1) = (/ & - &2.0888e-02 ,1.6582e-02 ,1.1293e-02 ,5.8278e-03 ,4.0956e-06 /) - kbo(:, 3,54, 1) = (/ & - &2.5721e-02 ,2.0433e-02 ,1.3910e-02 ,7.1575e-03 ,4.7876e-06 /) - kbo(:, 4,54, 1) = (/ & - &3.0904e-02 ,2.4618e-02 ,1.6759e-02 ,8.6032e-03 ,5.4982e-06 /) - kbo(:, 5,54, 1) = (/ & - &3.6412e-02 ,2.9120e-02 ,1.9814e-02 ,1.0143e-02 ,6.1750e-06 /) - kbo(:, 1,55, 1) = (/ & - &1.2258e-02 ,9.7268e-03 ,6.6366e-03 ,3.4428e-03 ,2.6213e-06 /) - kbo(:, 2,55, 1) = (/ & - &1.5748e-02 ,1.2527e-02 ,8.5365e-03 ,4.4115e-03 ,3.1717e-06 /) - kbo(:, 3,55, 1) = (/ & - &1.9594e-02 ,1.5595e-02 ,1.0619e-02 ,5.4666e-03 ,3.7237e-06 /) - kbo(:, 4,55, 1) = (/ & - &2.3710e-02 ,1.8931e-02 ,1.2889e-02 ,6.6186e-03 ,4.3031e-06 /) - kbo(:, 5,55, 1) = (/ & - &2.8112e-02 ,2.2537e-02 ,1.5336e-02 ,7.8537e-03 ,4.8648e-06 /) - kbo(:, 1,56, 1) = (/ & - &9.1055e-03 ,7.2363e-03 ,4.9401e-03 ,2.5664e-03 ,1.9997e-06 /) - kbo(:, 2,56, 1) = (/ & - &1.1834e-02 ,9.4303e-03 ,6.4310e-03 ,3.3278e-03 ,2.4479e-06 /) - kbo(:, 3,56, 1) = (/ & - &1.4882e-02 ,1.1870e-02 ,8.0848e-03 ,4.1651e-03 ,2.8963e-06 /) - kbo(:, 4,56, 1) = (/ & - &1.8155e-02 ,1.4526e-02 ,9.8917e-03 ,5.0809e-03 ,3.3616e-06 /) - kbo(:, 5,56, 1) = (/ & - &2.1671e-02 ,1.7405e-02 ,1.1845e-02 ,6.0691e-03 ,3.8293e-06 /) - kbo(:, 1,57, 1) = (/ & - &6.7286e-03 ,5.3591e-03 ,3.6618e-03 ,1.9048e-03 ,1.5179e-06 /) - kbo(:, 2,57, 1) = (/ & - &8.8620e-03 ,7.0733e-03 ,4.8264e-03 ,2.5013e-03 ,1.8807e-06 /) - kbo(:, 3,57, 1) = (/ & - &1.1265e-02 ,9.0088e-03 ,6.1382e-03 ,3.1650e-03 ,2.2483e-06 /) - kbo(:, 4,57, 1) = (/ & - &1.3873e-02 ,1.1116e-02 ,7.5709e-03 ,3.8911e-03 ,2.6184e-06 /) - kbo(:, 5,57, 1) = (/ & - &1.6676e-02 ,1.3415e-02 ,9.1296e-03 ,4.6803e-03 ,3.0020e-06 /) - kbo(:, 1,58, 1) = (/ & - &1.3112e-03 ,1.2811e-03 ,1.1274e-03 ,8.2340e-04 ,1.1519e-06 /) - kbo(:, 2,58, 1) = (/ & - &1.7518e-03 ,1.7126e-03 ,1.5045e-03 ,1.0941e-03 ,1.4467e-06 /) - kbo(:, 3,58, 1) = (/ & - &2.2498e-03 ,2.2053e-03 ,1.9345e-03 ,1.3994e-03 ,1.7445e-06 /) - kbo(:, 4,58, 1) = (/ & - &2.7980e-03 ,2.7467e-03 ,2.4064e-03 ,1.7337e-03 ,2.0427e-06 /) - kbo(:, 5,58, 1) = (/ & - &3.3868e-03 ,3.3394e-03 ,2.9224e-03 ,2.0998e-03 ,2.3542e-06 /) - kbo(:, 1,59, 1) = (/ & - &1.2094e-03 ,1.1351e-03 ,9.3340e-04 ,6.0964e-04 ,9.0654e-07 /) - kbo(:, 2,59, 1) = (/ & - &1.6257e-03 ,1.5254e-03 ,1.2509e-03 ,8.1260e-04 ,1.1440e-06 /) - kbo(:, 3,59, 1) = (/ & - &2.0981e-03 ,1.9741e-03 ,1.6151e-03 ,1.0426e-03 ,1.3852e-06 /) - kbo(:, 4,59, 1) = (/ & - &2.6203e-03 ,2.4691e-03 ,2.0150e-03 ,1.2943e-03 ,1.6270e-06 /) - kbo(:, 5,59, 1) = (/ & - &3.1814e-03 ,3.0122e-03 ,2.4540e-03 ,1.5709e-03 ,1.8687e-06 /) - kbo(:, 1,13, 2) = (/ & - &6.6529e+01 ,4.9985e+01 ,3.3446e+01 ,1.6923e+01 ,3.5914e-02 /) - kbo(:, 2,13, 2) = (/ & - &7.4095e+01 ,5.5661e+01 ,3.7226e+01 ,1.8804e+01 ,3.9958e-02 /) - kbo(:, 3,13, 2) = (/ & - &8.0840e+01 ,6.0720e+01 ,4.0598e+01 ,2.0484e+01 ,4.3881e-02 /) - kbo(:, 4,13, 2) = (/ & - &8.6396e+01 ,6.4888e+01 ,4.3378e+01 ,2.1867e+01 ,4.7563e-02 /) - kbo(:, 5,13, 2) = (/ & - &9.0642e+01 ,6.8073e+01 ,4.5503e+01 ,2.2931e+01 ,5.1188e-02 /) - kbo(:, 1,14, 2) = (/ & - &3.4987e+01 ,2.6327e+01 ,1.7678e+01 ,9.0444e+00 ,3.1025e-02 /) - kbo(:, 2,14, 2) = (/ & - &3.8934e+01 ,2.9288e+01 ,1.9648e+01 ,1.0023e+01 ,3.4459e-02 /) - kbo(:, 3,14, 2) = (/ & - &4.2399e+01 ,3.1888e+01 ,2.1376e+01 ,1.0881e+01 ,3.7786e-02 /) - kbo(:, 4,14, 2) = (/ & - &4.5141e+01 ,3.3946e+01 ,2.2749e+01 ,1.1559e+01 ,4.1037e-02 /) - kbo(:, 5,14, 2) = (/ & - &4.7193e+01 ,3.5485e+01 ,2.3775e+01 ,1.2071e+01 ,4.3970e-02 /) - kbo(:, 1,15, 2) = (/ & - &1.8797e+01 ,1.4186e+01 ,9.5905e+00 ,4.9916e+00 ,2.6741e-02 /) - kbo(:, 2,15, 2) = (/ & - &2.0897e+01 ,1.5761e+01 ,1.0636e+01 ,5.5075e+00 ,2.9658e-02 /) - kbo(:, 3,15, 2) = (/ & - &2.2675e+01 ,1.7093e+01 ,1.1518e+01 ,5.9424e+00 ,3.2475e-02 /) - kbo(:, 4,15, 2) = (/ & - &2.4040e+01 ,1.8121e+01 ,1.2200e+01 ,6.2773e+00 ,3.5159e-02 /) - kbo(:, 5,15, 2) = (/ & - &2.5038e+01 ,1.8870e+01 ,1.2700e+01 ,6.5270e+00 ,3.7635e-02 /) - kbo(:, 1,16, 2) = (/ & - &1.2062e+01 ,9.1374e+00 ,6.2260e+00 ,3.2778e+00 ,2.3010e-02 /) - kbo(:, 2,16, 2) = (/ & - &1.3368e+01 ,1.0114e+01 ,6.8731e+00 ,3.5955e+00 ,2.5515e-02 /) - kbo(:, 3,16, 2) = (/ & - &1.4432e+01 ,1.0911e+01 ,7.4005e+00 ,3.8523e+00 ,2.7873e-02 /) - kbo(:, 4,16, 2) = (/ & - &1.5210e+01 ,1.1498e+01 ,7.7878e+00 ,4.0427e+00 ,3.0096e-02 /) - kbo(:, 5,16, 2) = (/ & - &1.5795e+01 ,1.1938e+01 ,8.0810e+00 ,4.1897e+00 ,3.2123e-02 /) - kbo(:, 1,17, 2) = (/ & - &8.0343e+00 ,6.1202e+00 ,4.2057e+00 ,2.2416e+00 ,1.9722e-02 /) - kbo(:, 2,17, 2) = (/ & - &8.8550e+00 ,6.7335e+00 ,4.6112e+00 ,2.4399e+00 ,2.1833e-02 /) - kbo(:, 3,17, 2) = (/ & - &9.5028e+00 ,7.2176e+00 ,4.9290e+00 ,2.5918e+00 ,2.3771e-02 /) - kbo(:, 4,17, 2) = (/ & - &9.9681e+00 ,7.5665e+00 ,5.1592e+00 ,2.7054e+00 ,2.5587e-02 /) - kbo(:, 5,17, 2) = (/ & - &1.0341e+01 ,7.8464e+00 ,5.3464e+00 ,2.7998e+00 ,2.7262e-02 /) - kbo(:, 1,18, 2) = (/ & - &5.4784e+00 ,4.2063e+00 ,2.9118e+00 ,1.5707e+00 ,1.6843e-02 /) - kbo(:, 2,18, 2) = (/ & - &6.0003e+00 ,4.5949e+00 ,3.1671e+00 ,1.6950e+00 ,1.8568e-02 /) - kbo(:, 3,18, 2) = (/ & - &6.4044e+00 ,4.8955e+00 ,3.3617e+00 ,1.7866e+00 ,2.0170e-02 /) - kbo(:, 4,18, 2) = (/ & - &6.7000e+00 ,5.1163e+00 ,3.5087e+00 ,1.8600e+00 ,2.1658e-02 /) - kbo(:, 5,18, 2) = (/ & - &6.9467e+00 ,5.3017e+00 ,3.6339e+00 ,1.9245e+00 ,2.2992e-02 /) - kbo(:, 1,19, 2) = (/ & - &3.6607e+00 ,2.8397e+00 ,1.9832e+00 ,1.0810e+00 ,1.4294e-02 /) - kbo(:, 2,19, 2) = (/ & - &3.9888e+00 ,3.0825e+00 ,2.1422e+00 ,1.1564e+00 ,1.5700e-02 /) - kbo(:, 3,19, 2) = (/ & - &4.2403e+00 ,3.2678e+00 ,2.2604e+00 ,1.2129e+00 ,1.7026e-02 /) - kbo(:, 4,19, 2) = (/ & - &4.4304e+00 ,3.4105e+00 ,2.3562e+00 ,1.2611e+00 ,1.8223e-02 /) - kbo(:, 5,19, 2) = (/ & - &4.5892e+00 ,3.5305e+00 ,2.4376e+00 ,1.3052e+00 ,1.9250e-02 /) - kbo(:, 1,20, 2) = (/ & - &2.6484e+00 ,2.0725e+00 ,1.4576e+00 ,7.9887e-01 ,1.2095e-02 /) - kbo(:, 2,20, 2) = (/ & - &2.8723e+00 ,2.2377e+00 ,1.5638e+00 ,8.4850e-01 ,1.3258e-02 /) - kbo(:, 3,20, 2) = (/ & - &3.0432e+00 ,2.3620e+00 ,1.6433e+00 ,8.8749e-01 ,1.4323e-02 /) - kbo(:, 4,20, 2) = (/ & - &3.1766e+00 ,2.4628e+00 ,1.7113e+00 ,9.2233e-01 ,1.5251e-02 /) - kbo(:, 5,20, 2) = (/ & - &3.2896e+00 ,2.5490e+00 ,1.7710e+00 ,9.5551e-01 ,1.6040e-02 /) - kbo(:, 1,21, 2) = (/ & - &1.9737e+00 ,1.5589e+00 ,1.1005e+00 ,6.0564e-01 ,1.0202e-02 /) - kbo(:, 2,21, 2) = (/ & - &2.1324e+00 ,1.6743e+00 ,1.1736e+00 ,6.4004e-01 ,1.1146e-02 /) - kbo(:, 3,21, 2) = (/ & - &2.2543e+00 ,1.7630e+00 ,1.2313e+00 ,6.6865e-01 ,1.1981e-02 /) - kbo(:, 4,21, 2) = (/ & - &2.3508e+00 ,1.8360e+00 ,1.2809e+00 ,6.9497e-01 ,1.2686e-02 /) - kbo(:, 5,21, 2) = (/ & - &2.4312e+00 ,1.8986e+00 ,1.3258e+00 ,7.2010e-01 ,1.3291e-02 /) - kbo(:, 1,22, 2) = (/ & - &1.5156e+00 ,1.2064e+00 ,8.5276e-01 ,4.7037e-01 ,8.6256e-03 /) - kbo(:, 2,22, 2) = (/ & - &1.6299e+00 ,1.2880e+00 ,9.0439e-01 ,4.9507e-01 ,9.3659e-03 /) - kbo(:, 3,22, 2) = (/ & - &1.7167e+00 ,1.3521e+00 ,9.4701e-01 ,5.1663e-01 ,1.0004e-02 /) - kbo(:, 4,22, 2) = (/ & - &1.7876e+00 ,1.4059e+00 ,9.8421e-01 ,5.3690e-01 ,1.0541e-02 /) - kbo(:, 5,22, 2) = (/ & - &1.8482e+00 ,1.4540e+00 ,1.0190e+00 ,5.5667e-01 ,1.1012e-02 /) - kbo(:, 1,23, 2) = (/ & - &1.1701e+00 ,9.3735e-01 ,6.6344e-01 ,3.6672e-01 ,7.2585e-03 /) - kbo(:, 2,23, 2) = (/ & - &1.2526e+00 ,9.9560e-01 ,7.0066e-01 ,3.8497e-01 ,7.8298e-03 /) - kbo(:, 3,23, 2) = (/ & - &1.3157e+00 ,1.0429e+00 ,7.3247e-01 ,4.0155e-01 ,8.3206e-03 /) - kbo(:, 4,23, 2) = (/ & - &1.3685e+00 ,1.0835e+00 ,7.6114e-01 ,4.1717e-01 ,8.7383e-03 /) - kbo(:, 5,23, 2) = (/ & - &1.4146e+00 ,1.1207e+00 ,7.8818e-01 ,4.3301e-01 ,9.1036e-03 /) - kbo(:, 1,24, 2) = (/ & - &8.9949e-01 ,7.2462e-01 ,5.1357e-01 ,2.8470e-01 ,6.0789e-03 /) - kbo(:, 2,24, 2) = (/ & - &9.5867e-01 ,7.6639e-01 ,5.4063e-01 ,2.9829e-01 ,6.5218e-03 /) - kbo(:, 3,24, 2) = (/ & - &1.0042e+00 ,8.0114e-01 ,5.6436e-01 ,3.1100e-01 ,6.9029e-03 /) - kbo(:, 4,24, 2) = (/ & - &1.0431e+00 ,8.3179e-01 ,5.8619e-01 ,3.2299e-01 ,7.2295e-03 /) - kbo(:, 5,24, 2) = (/ & - &1.0790e+00 ,8.6138e-01 ,6.0791e-01 ,3.3588e-01 ,7.5120e-03 /) - kbo(:, 1,25, 2) = (/ & - &7.0112e-01 ,5.6715e-01 ,4.0233e-01 ,2.2369e-01 ,5.0763e-03 /) - kbo(:, 2,25, 2) = (/ & - &7.4350e-01 ,5.9764e-01 ,4.2250e-01 ,2.3404e-01 ,5.4222e-03 /) - kbo(:, 3,25, 2) = (/ & - &7.7710e-01 ,6.2349e-01 ,4.4048e-01 ,2.4369e-01 ,5.7195e-03 /) - kbo(:, 4,25, 2) = (/ & - &8.0619e-01 ,6.4737e-01 ,4.5753e-01 ,2.5334e-01 ,5.9744e-03 /) - kbo(:, 5,25, 2) = (/ & - &8.3531e-01 ,6.7147e-01 ,4.7545e-01 ,2.6391e-01 ,6.1951e-03 /) - kbo(:, 1,26, 2) = (/ & - &5.5605e-01 ,4.5118e-01 ,3.2039e-01 ,1.7855e-01 ,4.2346e-03 /) - kbo(:, 2,26, 2) = (/ & - &5.8683e-01 ,4.7392e-01 ,3.3566e-01 ,1.8647e-01 ,4.5042e-03 /) - kbo(:, 3,26, 2) = (/ & - &6.1229e-01 ,4.9380e-01 ,3.4972e-01 ,1.9404e-01 ,4.7382e-03 /) - kbo(:, 4,26, 2) = (/ & - &6.3488e-01 ,5.1281e-01 ,3.6343e-01 ,2.0206e-01 ,4.9373e-03 /) - kbo(:, 5,26, 2) = (/ & - &6.5886e-01 ,5.3298e-01 ,3.7847e-01 ,2.1092e-01 ,5.1112e-03 /) - kbo(:, 1,27, 2) = (/ & - &4.5766e-01 ,3.7194e-01 ,2.6418e-01 ,1.4728e-01 ,3.5266e-03 /) - kbo(:, 2,27, 2) = (/ & - &4.8116e-01 ,3.8971e-01 ,2.7627e-01 ,1.5359e-01 ,3.7388e-03 /) - kbo(:, 3,27, 2) = (/ & - &5.0141e-01 ,4.0592e-01 ,2.8779e-01 ,1.5989e-01 ,3.9220e-03 /) - kbo(:, 4,27, 2) = (/ & - &5.1998e-01 ,4.2171e-01 ,2.9940e-01 ,1.6680e-01 ,4.0803e-03 /) - kbo(:, 5,27, 2) = (/ & - &5.4049e-01 ,4.3926e-01 ,3.1241e-01 ,1.7445e-01 ,4.2171e-03 /) - kbo(:, 1,28, 2) = (/ & - &3.8656e-01 ,3.1440e-01 ,2.2322e-01 ,1.2431e-01 ,2.9341e-03 /) - kbo(:, 2,28, 2) = (/ & - &4.0539e-01 ,3.2888e-01 ,2.3321e-01 ,1.2952e-01 ,3.1008e-03 /) - kbo(:, 3,28, 2) = (/ & - &4.2208e-01 ,3.4256e-01 ,2.4291e-01 ,1.3505e-01 ,3.2456e-03 /) - kbo(:, 4,28, 2) = (/ & - &4.3788e-01 ,3.5618e-01 ,2.5311e-01 ,1.4108e-01 ,3.3707e-03 /) - kbo(:, 5,28, 2) = (/ & - &4.5599e-01 ,3.7197e-01 ,2.6475e-01 ,1.4784e-01 ,3.4778e-03 /) - kbo(:, 1,29, 2) = (/ & - &3.4663e-01 ,2.8147e-01 ,1.9935e-01 ,1.1053e-01 ,2.4407e-03 /) - kbo(:, 2,29, 2) = (/ & - &3.6288e-01 ,2.9416e-01 ,2.0825e-01 ,1.1525e-01 ,2.5726e-03 /) - kbo(:, 3,29, 2) = (/ & - &3.7738e-01 ,3.0636e-01 ,2.1696e-01 ,1.2034e-01 ,2.6876e-03 /) - kbo(:, 4,29, 2) = (/ & - &3.9208e-01 ,3.1911e-01 ,2.2648e-01 ,1.2589e-01 ,2.7881e-03 /) - kbo(:, 5,29, 2) = (/ & - &4.0886e-01 ,3.3389e-01 ,2.3740e-01 ,1.3220e-01 ,2.8698e-03 /) - kbo(:, 1,30, 2) = (/ & - &3.1859e-01 ,2.5807e-01 ,1.8226e-01 ,1.0052e-01 ,2.0286e-03 /) - kbo(:, 2,30, 2) = (/ & - &3.3300e-01 ,2.6960e-01 ,1.9038e-01 ,1.0493e-01 ,2.1345e-03 /) - kbo(:, 3,30, 2) = (/ & - &3.4608e-01 ,2.8079e-01 ,1.9849e-01 ,1.0968e-01 ,2.2264e-03 /) - kbo(:, 4,30, 2) = (/ & - &3.6002e-01 ,2.9303e-01 ,2.0760e-01 ,1.1495e-01 ,2.3052e-03 /) - kbo(:, 5,30, 2) = (/ & - &3.7616e-01 ,3.0718e-01 ,2.1802e-01 ,1.2086e-01 ,2.3703e-03 /) - kbo(:, 1,31, 2) = (/ & - &3.0804e-01 ,2.4854e-01 ,1.7488e-01 ,9.5771e-02 ,1.6879e-03 /) - kbo(:, 2,31, 2) = (/ & - &3.2148e-01 ,2.5954e-01 ,1.8261e-01 ,1.0007e-01 ,1.7724e-03 /) - kbo(:, 3,31, 2) = (/ & - &3.3418e-01 ,2.7047e-01 ,1.9064e-01 ,1.0472e-01 ,1.8461e-03 /) - kbo(:, 4,31, 2) = (/ & - &3.4816e-01 ,2.8282e-01 ,1.9976e-01 ,1.0990e-01 ,1.9082e-03 /) - kbo(:, 5,31, 2) = (/ & - &3.6451e-01 ,2.9706e-01 ,2.1019e-01 ,1.1572e-01 ,1.9578e-03 /) - kbo(:, 1,32, 2) = (/ & - &3.0134e-01 ,2.4222e-01 ,1.6982e-01 ,9.2391e-02 ,1.4045e-03 /) - kbo(:, 2,32, 2) = (/ & - &3.1413e-01 ,2.5288e-01 ,1.7732e-01 ,9.6600e-02 ,1.4719e-03 /) - kbo(:, 3,32, 2) = (/ & - &3.2677e-01 ,2.6386e-01 ,1.8545e-01 ,1.0123e-01 ,1.5309e-03 /) - kbo(:, 4,32, 2) = (/ & - &3.4104e-01 ,2.7646e-01 ,1.9466e-01 ,1.0637e-01 ,1.5796e-03 /) - kbo(:, 5,32, 2) = (/ & - &3.5782e-01 ,2.9105e-01 ,2.0529e-01 ,1.1222e-01 ,1.6199e-03 /) - kbo(:, 1,33, 2) = (/ & - &3.0007e-01 ,2.4036e-01 ,1.6789e-01 ,9.0749e-02 ,1.1692e-03 /) - kbo(:, 2,33, 2) = (/ & - &3.1257e-01 ,2.5093e-01 ,1.7540e-01 ,9.4970e-02 ,1.2231e-03 /) - kbo(:, 3,33, 2) = (/ & - &3.2551e-01 ,2.6224e-01 ,1.8373e-01 ,9.9635e-02 ,1.2703e-03 /) - kbo(:, 4,33, 2) = (/ & - &3.4043e-01 ,2.7535e-01 ,1.9325e-01 ,1.0486e-01 ,1.3103e-03 /) - kbo(:, 5,33, 2) = (/ & - &3.5814e-01 ,2.9066e-01 ,2.0432e-01 ,1.1086e-01 ,1.3413e-03 /) - kbo(:, 1,34, 2) = (/ & - &2.9092e-01 ,2.3257e-01 ,1.6200e-01 ,8.7114e-02 ,9.7104e-04 /) - kbo(:, 2,34, 2) = (/ & - &3.0301e-01 ,2.4286e-01 ,1.6939e-01 ,9.1256e-02 ,1.0146e-03 /) - kbo(:, 3,34, 2) = (/ & - &3.1600e-01 ,2.5431e-01 ,1.7773e-01 ,9.5863e-02 ,1.0532e-03 /) - kbo(:, 4,34, 2) = (/ & - &3.3116e-01 ,2.6756e-01 ,1.8732e-01 ,1.0106e-01 ,1.0840e-03 /) - kbo(:, 5,34, 2) = (/ & - &3.4944e-01 ,2.8336e-01 ,1.9862e-01 ,1.0710e-01 ,1.1076e-03 /) - kbo(:, 1,35, 2) = (/ & - &2.8133e-01 ,2.2448e-01 ,1.5598e-01 ,8.3470e-02 ,8.0326e-04 /) - kbo(:, 2,35, 2) = (/ & - &2.9315e-01 ,2.3461e-01 ,1.6327e-01 ,8.7518e-02 ,8.3948e-04 /) - kbo(:, 3,35, 2) = (/ & - &3.0606e-01 ,2.4602e-01 ,1.7152e-01 ,9.2018e-02 ,8.6953e-04 /) - kbo(:, 4,35, 2) = (/ & - &3.2135e-01 ,2.5937e-01 ,1.8112e-01 ,9.7174e-02 ,8.9330e-04 /) - kbo(:, 5,35, 2) = (/ & - &3.3996e-01 ,2.7548e-01 ,1.9256e-01 ,1.0324e-01 ,9.1326e-04 /) - kbo(:, 1,36, 2) = (/ & - &2.6927e-01 ,2.1450e-01 ,1.4871e-01 ,7.9228e-02 ,6.6044e-04 /) - kbo(:, 2,36, 2) = (/ & - &2.8072e-01 ,2.2434e-01 ,1.5577e-01 ,8.3114e-02 ,6.9019e-04 /) - kbo(:, 3,36, 2) = (/ & - &2.9329e-01 ,2.3546e-01 ,1.6379e-01 ,8.7445e-02 ,7.1471e-04 /) - kbo(:, 4,36, 2) = (/ & - &3.0843e-01 ,2.4872e-01 ,1.7326e-01 ,9.2498e-02 ,7.3506e-04 /) - kbo(:, 5,36, 2) = (/ & - &3.2685e-01 ,2.6470e-01 ,1.8459e-01 ,9.8476e-02 ,7.5121e-04 /) - kbo(:, 1,37, 2) = (/ & - &2.4965e-01 ,1.9865e-01 ,1.3749e-01 ,7.2983e-02 ,5.3914e-04 /) - kbo(:, 2,37, 2) = (/ & - &2.6042e-01 ,2.0789e-01 ,1.4407e-01 ,7.6575e-02 ,5.6372e-04 /) - kbo(:, 3,37, 2) = (/ & - &2.7217e-01 ,2.1833e-01 ,1.5157e-01 ,8.0593e-02 ,5.8448e-04 /) - kbo(:, 4,37, 2) = (/ & - &2.8633e-01 ,2.3076e-01 ,1.6043e-01 ,8.5310e-02 ,6.0216e-04 /) - kbo(:, 5,37, 2) = (/ & - &3.0356e-01 ,2.4582e-01 ,1.7110e-01 ,9.0929e-02 ,6.1615e-04 /) - kbo(:, 1,38, 2) = (/ & - &2.3485e-01 ,1.8661e-01 ,1.2891e-01 ,6.8178e-02 ,4.3970e-04 /) - kbo(:, 2,38, 2) = (/ & - &2.4515e-01 ,1.9543e-01 ,1.3515e-01 ,7.1546e-02 ,4.6052e-04 /) - kbo(:, 3,38, 2) = (/ & - &2.5629e-01 ,2.0533e-01 ,1.4225e-01 ,7.5330e-02 ,4.7811e-04 /) - kbo(:, 4,38, 2) = (/ & - &2.6971e-01 ,2.1715e-01 ,1.5065e-01 ,7.9788e-02 ,4.9330e-04 /) - kbo(:, 5,38, 2) = (/ & - &2.8605e-01 ,2.3151e-01 ,1.6083e-01 ,8.5133e-02 ,5.0547e-04 /) - kbo(:, 1,39, 2) = (/ & - &2.2602e-01 ,1.7927e-01 ,1.2358e-01 ,6.5103e-02 ,3.5893e-04 /) - kbo(:, 2,39, 2) = (/ & - &2.3611e-01 ,1.8789e-01 ,1.2965e-01 ,6.8347e-02 ,3.7626e-04 /) - kbo(:, 3,39, 2) = (/ & - &2.4693e-01 ,1.9751e-01 ,1.3653e-01 ,7.1994e-02 ,3.9112e-04 /) - kbo(:, 4,39, 2) = (/ & - &2.5998e-01 ,2.0903e-01 ,1.4470e-01 ,7.6316e-02 ,4.0431e-04 /) - kbo(:, 5,39, 2) = (/ & - &2.7577e-01 ,2.2297e-01 ,1.5458e-01 ,8.1500e-02 ,4.1520e-04 /) - kbo(:, 1,40, 2) = (/ & - &2.0347e-01 ,1.6128e-01 ,1.1107e-01 ,5.8373e-02 ,2.9088e-04 /) - kbo(:, 2,40, 2) = (/ & - &2.1275e-01 ,1.6921e-01 ,1.1659e-01 ,6.1296e-02 ,3.0550e-04 /) - kbo(:, 3,40, 2) = (/ & - &2.2248e-01 ,1.7787e-01 ,1.2279e-01 ,6.4562e-02 ,3.1830e-04 /) - kbo(:, 4,40, 2) = (/ & - &2.3419e-01 ,1.8824e-01 ,1.3013e-01 ,6.8434e-02 ,3.2975e-04 /) - kbo(:, 5,40, 2) = (/ & - &2.4824e-01 ,2.0081e-01 ,1.3903e-01 ,7.3098e-02 ,3.3913e-04 /) - kbo(:, 1,41, 2) = (/ & - &1.8258e-01 ,1.4470e-01 ,9.9535e-02 ,5.2202e-02 ,2.3535e-04 /) - kbo(:, 2,41, 2) = (/ & - &1.9113e-01 ,1.5197e-01 ,1.0458e-01 ,5.4844e-02 ,2.4773e-04 /) - kbo(:, 3,41, 2) = (/ & - &1.9995e-01 ,1.5977e-01 ,1.1015e-01 ,5.7766e-02 ,2.5866e-04 /) - kbo(:, 4,41, 2) = (/ & - &2.1035e-01 ,1.6906e-01 ,1.1672e-01 ,6.1215e-02 ,2.6866e-04 /) - kbo(:, 5,41, 2) = (/ & - &2.2281e-01 ,1.8031e-01 ,1.2469e-01 ,6.5393e-02 ,2.7675e-04 /) - kbo(:, 1,42, 2) = (/ & - &1.6555e-01 ,1.3118e-01 ,9.0125e-02 ,4.7172e-02 ,1.9035e-04 /) - kbo(:, 2,42, 2) = (/ & - &1.7351e-01 ,1.3791e-01 ,9.4797e-02 ,4.9586e-02 ,2.0086e-04 /) - kbo(:, 3,42, 2) = (/ & - &1.8167e-01 ,1.4504e-01 ,9.9843e-02 ,5.2229e-02 ,2.1016e-04 /) - kbo(:, 4,42, 2) = (/ & - &1.9101e-01 ,1.5346e-01 ,1.0581e-01 ,5.5333e-02 ,2.1875e-04 /) - kbo(:, 5,42, 2) = (/ & - &2.0220e-01 ,1.6362e-01 ,1.1299e-01 ,5.9103e-02 ,2.2587e-04 /) - kbo(:, 1,43, 2) = (/ & - &1.5093e-01 ,1.1961e-01 ,8.2075e-02 ,4.2874e-02 ,1.5326e-04 /) - kbo(:, 2,43, 2) = (/ & - &1.5853e-01 ,1.2589e-01 ,8.6428e-02 ,4.5110e-02 ,1.6227e-04 /) - kbo(:, 3,43, 2) = (/ & - &1.6609e-01 ,1.3244e-01 ,9.1034e-02 ,4.7504e-02 ,1.7029e-04 /) - kbo(:, 4,43, 2) = (/ & - &1.7452e-01 ,1.4008e-01 ,9.6428e-02 ,5.0296e-02 ,1.7773e-04 /) - kbo(:, 5,43, 2) = (/ & - &1.8456e-01 ,1.4921e-01 ,1.0290e-01 ,5.3684e-02 ,1.8398e-04 /) - kbo(:, 1,44, 2) = (/ & - &1.3921e-01 ,1.1030e-01 ,7.5620e-02 ,3.9420e-02 ,1.2316e-04 /) - kbo(:, 2,44, 2) = (/ & - &1.4661e-01 ,1.1628e-01 ,7.9723e-02 ,4.1521e-02 ,1.3084e-04 /) - kbo(:, 3,44, 2) = (/ & - &1.5377e-01 ,1.2242e-01 ,8.4004e-02 ,4.3727e-02 ,1.3764e-04 /) - kbo(:, 4,44, 2) = (/ & - &1.6148e-01 ,1.2941e-01 ,8.8933e-02 ,4.6269e-02 ,1.4416e-04 /) - kbo(:, 5,44, 2) = (/ & - &1.7060e-01 ,1.3772e-01 ,9.4815e-02 ,4.9343e-02 ,1.4964e-04 /) - kbo(:, 1,45, 2) = (/ & - &1.3086e-01 ,1.0364e-01 ,7.0980e-02 ,3.6935e-02 ,9.8771e-05 /) - kbo(:, 2,45, 2) = (/ & - &1.3832e-01 ,1.0957e-01 ,7.5010e-02 ,3.8986e-02 ,1.0533e-04 /) - kbo(:, 3,45, 2) = (/ & - &1.4520e-01 ,1.1543e-01 ,7.9072e-02 ,4.1056e-02 ,1.1127e-04 /) - kbo(:, 4,45, 2) = (/ & - &1.5249e-01 ,1.2195e-01 ,8.3674e-02 ,4.3425e-02 ,1.1690e-04 /) - kbo(:, 5,45, 2) = (/ & - &1.6094e-01 ,1.2967e-01 ,8.9124e-02 ,4.6256e-02 ,1.2176e-04 /) - kbo(:, 1,46, 2) = (/ & - &1.2395e-01 ,9.8133e-02 ,6.7135e-02 ,3.4876e-02 ,7.8972e-05 /) - kbo(:, 2,46, 2) = (/ & - &1.3154e-01 ,1.0413e-01 ,7.1186e-02 ,3.6923e-02 ,8.4580e-05 /) - kbo(:, 3,46, 2) = (/ & - &1.3835e-01 ,1.0981e-01 ,7.5111e-02 ,3.8913e-02 ,8.9707e-05 /) - kbo(:, 4,46, 2) = (/ & - &1.4539e-01 ,1.1598e-01 ,7.9454e-02 ,4.1140e-02 ,9.4570e-05 /) - kbo(:, 5,46, 2) = (/ & - &1.5328e-01 ,1.2322e-01 ,8.4552e-02 ,4.3768e-02 ,9.8952e-05 /) - kbo(:, 1,47, 2) = (/ & - &1.1561e-01 ,9.1621e-02 ,6.2646e-02 ,3.2504e-02 ,6.2836e-05 /) - kbo(:, 2,47, 2) = (/ & - &1.2359e-01 ,9.7799e-02 ,6.6803e-02 ,3.4586e-02 ,6.7612e-05 /) - kbo(:, 3,47, 2) = (/ & - &1.3036e-01 ,1.0330e-01 ,7.0567e-02 ,3.6497e-02 ,7.2040e-05 /) - kbo(:, 4,47, 2) = (/ & - &1.3710e-01 ,1.0912e-01 ,7.4632e-02 ,3.8567e-02 ,7.6196e-05 /) - kbo(:, 5,47, 2) = (/ & - &1.4440e-01 ,1.1580e-01 ,7.9334e-02 ,4.0981e-02 ,8.0080e-05 /) - kbo(:, 1,48, 2) = (/ & - &1.1035e-01 ,8.7581e-02 ,5.9868e-02 ,3.1032e-02 ,4.9884e-05 /) - kbo(:, 2,48, 2) = (/ & - &1.1928e-01 ,9.4310e-02 ,6.4353e-02 ,3.3267e-02 ,5.4019e-05 /) - kbo(:, 3,48, 2) = (/ & - &1.2628e-01 ,9.9898e-02 ,6.8156e-02 ,3.5187e-02 ,5.7777e-05 /) - kbo(:, 4,48, 2) = (/ & - &1.3294e-01 ,1.0557e-01 ,7.2080e-02 ,3.7168e-02 ,6.1393e-05 /) - kbo(:, 5,48, 2) = (/ & - &1.3996e-01 ,1.1191e-01 ,7.6553e-02 ,3.9465e-02 ,6.4815e-05 /) - kbo(:, 1,49, 2) = (/ & - &1.0914e-01 ,8.6684e-02 ,5.9236e-02 ,3.0679e-02 ,3.9521e-05 /) - kbo(:, 2,49, 2) = (/ & - &1.1962e-01 ,9.4485e-02 ,6.4406e-02 ,3.3233e-02 ,4.3077e-05 /) - kbo(:, 3,49, 2) = (/ & - &1.2732e-01 ,1.0058e-01 ,6.8523e-02 ,3.5308e-02 ,4.6318e-05 /) - kbo(:, 4,49, 2) = (/ & - &1.3429e-01 ,1.0636e-01 ,7.2504e-02 ,3.7320e-02 ,4.9451e-05 /) - kbo(:, 5,49, 2) = (/ & - &1.4147e-01 ,1.1268e-01 ,7.6951e-02 ,3.9591e-02 ,5.2405e-05 /) - kbo(:, 1,50, 2) = (/ & - &1.0267e-01 ,8.1582e-02 ,5.5735e-02 ,2.8850e-02 ,3.1268e-05 /) - kbo(:, 2,50, 2) = (/ & - &1.1402e-01 ,9.0165e-02 ,6.1437e-02 ,3.1671e-02 ,3.4319e-05 /) - kbo(:, 3,50, 2) = (/ & - &1.2234e-01 ,9.6602e-02 ,6.5766e-02 ,3.3840e-02 ,3.7076e-05 /) - kbo(:, 4,50, 2) = (/ & - &1.2939e-01 ,1.0230e-01 ,6.9668e-02 ,3.5813e-02 ,3.9737e-05 /) - kbo(:, 5,50, 2) = (/ & - &1.3639e-01 ,1.0837e-01 ,7.3903e-02 ,3.7967e-02 ,4.2232e-05 /) - kbo(:, 1,51, 2) = (/ & - &9.4284e-02 ,7.4953e-02 ,5.1186e-02 ,2.6482e-02 ,2.4659e-05 /) - kbo(:, 2,51, 2) = (/ & - &1.0593e-01 ,8.3948e-02 ,5.7209e-02 ,2.9486e-02 ,2.7298e-05 /) - kbo(:, 3,51, 2) = (/ & - &1.1492e-01 ,9.0727e-02 ,6.1733e-02 ,3.1740e-02 ,2.9657e-05 /) - kbo(:, 4,51, 2) = (/ & - &1.2197e-01 ,9.6371e-02 ,6.5573e-02 ,3.3673e-02 ,3.1882e-05 /) - kbo(:, 5,51, 2) = (/ & - &1.2870e-01 ,1.0212e-01 ,6.9569e-02 ,3.5694e-02 ,3.4030e-05 /) - kbo(:, 1,52, 2) = (/ & - &8.8743e-02 ,7.0542e-02 ,4.8148e-02 ,2.4885e-02 ,1.9415e-05 /) - kbo(:, 2,52, 2) = (/ & - &1.0078e-01 ,7.9976e-02 ,5.4503e-02 ,2.8085e-02 ,2.1689e-05 /) - kbo(:, 3,52, 2) = (/ & - &1.1078e-01 ,8.7454e-02 ,5.9476e-02 ,3.0551e-02 ,2.3703e-05 /) - kbo(:, 4,52, 2) = (/ & - &1.1817e-01 ,9.3325e-02 ,6.3448e-02 ,3.2545e-02 ,2.5596e-05 /) - kbo(:, 5,52, 2) = (/ & - &1.2490e-01 ,9.8940e-02 ,6.7340e-02 ,3.4514e-02 ,2.7422e-05 /) - kbo(:, 1,53, 2) = (/ & - &8.6662e-02 ,6.8864e-02 ,4.6962e-02 ,2.4236e-02 ,1.5263e-05 /) - kbo(:, 2,53, 2) = (/ & - &9.9515e-02 ,7.8952e-02 ,5.3787e-02 ,2.7692e-02 ,1.7200e-05 /) - kbo(:, 3,53, 2) = (/ & - &1.1085e-01 ,8.7554e-02 ,5.9520e-02 ,3.0542e-02 ,1.8920e-05 /) - kbo(:, 4,53, 2) = (/ & - &1.1918e-01 ,9.4022e-02 ,6.3885e-02 ,3.2726e-02 ,2.0582e-05 /) - kbo(:, 5,53, 2) = (/ & - &1.2628e-01 ,9.9818e-02 ,6.7862e-02 ,3.4747e-02 ,2.2128e-05 /) - kbo(:, 1,54, 2) = (/ & - &7.3195e-02 ,5.8286e-02 ,3.9755e-02 ,2.0520e-02 ,1.1967e-05 /) - kbo(:, 2,54, 2) = (/ & - &8.4972e-02 ,6.7544e-02 ,4.6023e-02 ,2.3702e-02 ,1.3585e-05 /) - kbo(:, 3,54, 2) = (/ & - &9.5709e-02 ,7.5855e-02 ,5.1595e-02 ,2.6489e-02 ,1.5051e-05 /) - kbo(:, 4,54, 2) = (/ & - &1.0394e-01 ,8.2096e-02 ,5.5779e-02 ,2.8575e-02 ,1.6406e-05 /) - kbo(:, 5,54, 2) = (/ & - &1.1051e-01 ,8.7391e-02 ,5.9394e-02 ,3.0393e-02 ,1.7745e-05 /) - kbo(:, 1,55, 2) = (/ & - &5.6277e-02 ,4.4947e-02 ,3.0672e-02 ,1.5850e-02 ,9.3585e-06 /) - kbo(:, 2,55, 2) = (/ & - &6.6102e-02 ,5.2729e-02 ,3.5949e-02 ,1.8531e-02 ,1.0684e-05 /) - kbo(:, 3,55, 2) = (/ & - &7.5193e-02 ,5.9877e-02 ,4.0765e-02 ,2.0959e-02 ,1.1938e-05 /) - kbo(:, 4,55, 2) = (/ & - &8.2620e-02 ,6.5458e-02 ,4.4488e-02 ,2.2798e-02 ,1.3050e-05 /) - kbo(:, 5,55, 2) = (/ & - &8.8216e-02 ,6.9936e-02 ,4.7530e-02 ,2.4316e-02 ,1.4154e-05 /) - kbo(:, 1,56, 2) = (/ & - &4.3039e-02 ,3.4453e-02 ,2.3524e-02 ,1.2170e-02 ,7.2880e-06 /) - kbo(:, 2,56, 2) = (/ & - &5.1258e-02 ,4.1038e-02 ,2.7994e-02 ,1.4446e-02 ,8.3961e-06 /) - kbo(:, 3,56, 2) = (/ & - &5.8906e-02 ,4.7098e-02 ,3.2089e-02 ,1.6519e-02 ,9.4488e-06 /) - kbo(:, 4,56, 2) = (/ & - &6.5506e-02 ,5.2094e-02 ,3.5421e-02 ,1.8161e-02 ,1.0382e-05 /) - kbo(:, 5,56, 2) = (/ & - &7.0360e-02 ,5.5940e-02 ,3.8018e-02 ,1.9445e-02 ,1.1248e-05 /) - kbo(:, 1,57, 2) = (/ & - &3.2674e-02 ,2.6237e-02 ,1.7922e-02 ,9.2805e-03 ,5.6715e-06 /) - kbo(:, 2,57, 2) = (/ & - &3.9609e-02 ,3.1835e-02 ,2.1730e-02 ,1.1223e-02 ,6.5904e-06 /) - kbo(:, 3,57, 2) = (/ & - &4.6006e-02 ,3.6922e-02 ,2.5172e-02 ,1.2973e-02 ,7.4542e-06 /) - kbo(:, 4,57, 2) = (/ & - &5.1740e-02 ,4.1352e-02 ,2.8137e-02 ,1.4436e-02 ,8.2537e-06 /) - kbo(:, 5,57, 2) = (/ & - &5.6054e-02 ,4.4686e-02 ,3.0382e-02 ,1.5541e-02 ,8.9675e-06 /) - kbo(:, 1,58, 2) = (/ & - &6.5163e-03 ,6.4215e-03 ,5.6470e-03 ,4.1032e-03 ,4.4127e-06 /) - kbo(:, 2,58, 2) = (/ & - &8.0617e-03 ,7.9508e-03 ,6.9853e-03 ,5.0619e-03 ,5.1550e-06 /) - kbo(:, 3,58, 2) = (/ & - &9.4685e-03 ,9.3297e-03 ,8.1872e-03 ,5.9187e-03 ,5.8809e-06 /) - kbo(:, 4,58, 2) = (/ & - &1.0753e-02 ,1.0568e-02 ,9.2585e-03 ,6.6629e-03 ,6.5571e-06 /) - kbo(:, 5,58, 2) = (/ & - &1.1773e-02 ,1.1514e-02 ,1.0073e-02 ,7.2198e-03 ,7.1478e-06 /) - kbo(:, 1,59, 2) = (/ & - &6.0678e-03 ,5.7484e-03 ,4.7181e-03 ,3.0625e-03 ,3.5292e-06 /) - kbo(:, 2,59, 2) = (/ & - &7.5775e-03 ,7.1843e-03 ,5.8871e-03 ,3.8076e-03 ,4.1244e-06 /) - kbo(:, 3,59, 2) = (/ & - &8.9504e-03 ,8.4793e-03 ,6.9385e-03 ,4.4706e-03 ,4.7056e-06 /) - kbo(:, 4,59, 2) = (/ & - &1.0202e-02 ,9.6400e-03 ,7.8732e-03 ,5.0416e-03 ,5.2546e-06 /) - kbo(:, 5,59, 2) = (/ & - &1.1221e-02 ,1.0539e-02 ,8.5853e-03 ,5.4711e-03 ,5.7591e-06 /) - kbo(:, 1,13, 3) = (/ & - &1.3886e+02 ,1.0424e+02 ,6.9618e+01 ,3.4998e+01 ,6.8908e-02 /) - kbo(:, 2,13, 3) = (/ & - &1.3847e+02 ,1.0394e+02 ,6.9423e+01 ,3.4905e+01 ,7.3584e-02 /) - kbo(:, 3,13, 3) = (/ & - &1.3854e+02 ,1.0400e+02 ,6.9461e+01 ,3.4924e+01 ,7.8137e-02 /) - kbo(:, 4,13, 3) = (/ & - &1.4034e+02 ,1.0534e+02 ,7.0354e+01 ,3.5368e+01 ,8.2835e-02 /) - kbo(:, 5,13, 3) = (/ & - &1.4333e+02 ,1.0759e+02 ,7.1853e+01 ,3.6116e+01 ,8.7500e-02 /) - kbo(:, 1,14, 3) = (/ & - &7.1765e+01 ,5.3918e+01 ,3.6073e+01 ,1.8228e+01 ,5.9867e-02 /) - kbo(:, 2,14, 3) = (/ & - &7.1567e+01 ,5.3771e+01 ,3.5977e+01 ,1.8183e+01 ,6.3947e-02 /) - kbo(:, 3,14, 3) = (/ & - &7.1902e+01 ,5.4021e+01 ,3.6141e+01 ,1.8266e+01 ,6.8160e-02 /) - kbo(:, 4,14, 3) = (/ & - &7.3101e+01 ,5.4919e+01 ,3.6739e+01 ,1.8569e+01 ,7.2138e-02 /) - kbo(:, 5,14, 3) = (/ & - &7.4813e+01 ,5.6202e+01 ,3.7593e+01 ,1.8992e+01 ,7.6299e-02 /) - kbo(:, 1,15, 3) = (/ & - &3.7762e+01 ,2.8418e+01 ,1.9073e+01 ,9.7323e+00 ,5.1937e-02 /) - kbo(:, 2,15, 3) = (/ & - &3.7725e+01 ,2.8390e+01 ,1.9057e+01 ,9.7303e+00 ,5.5591e-02 /) - kbo(:, 3,15, 3) = (/ & - &3.8048e+01 ,2.8634e+01 ,1.9221e+01 ,9.8224e+00 ,5.9263e-02 /) - kbo(:, 4,15, 3) = (/ & - &3.8784e+01 ,2.9182e+01 ,1.9585e+01 ,1.0010e+01 ,6.2883e-02 /) - kbo(:, 5,15, 3) = (/ & - &3.9804e+01 ,2.9945e+01 ,2.0089e+01 ,1.0260e+01 ,6.6326e-02 /) - kbo(:, 1,16, 3) = (/ & - &2.3667e+01 ,1.7845e+01 ,1.2024e+01 ,6.2150e+00 ,4.4961e-02 /) - kbo(:, 2,16, 3) = (/ & - &2.3710e+01 ,1.7881e+01 ,1.2053e+01 ,6.2413e+00 ,4.8227e-02 /) - kbo(:, 3,16, 3) = (/ & - &2.3983e+01 ,1.8085e+01 ,1.2193e+01 ,6.3263e+00 ,5.1418e-02 /) - kbo(:, 4,16, 3) = (/ & - &2.4541e+01 ,1.8499e+01 ,1.2468e+01 ,6.4708e+00 ,5.4587e-02 /) - kbo(:, 5,16, 3) = (/ & - &2.5247e+01 ,1.9026e+01 ,1.2815e+01 ,6.6457e+00 ,5.7578e-02 /) - kbo(:, 1,17, 3) = (/ & - &1.5411e+01 ,1.1654e+01 ,7.9029e+00 ,4.1290e+00 ,3.8761e-02 /) - kbo(:, 2,17, 3) = (/ & - &1.5483e+01 ,1.1712e+01 ,7.9484e+00 ,4.1656e+00 ,4.1564e-02 /) - kbo(:, 3,17, 3) = (/ & - &1.5715e+01 ,1.1885e+01 ,8.0713e+00 ,4.2451e+00 ,4.4369e-02 /) - kbo(:, 4,17, 3) = (/ & - &1.6109e+01 ,1.2177e+01 ,8.2663e+00 ,4.3534e+00 ,4.7100e-02 /) - kbo(:, 5,17, 3) = (/ & - &1.6611e+01 ,1.2551e+01 ,8.5125e+00 ,4.4825e+00 ,4.9594e-02 /) - kbo(:, 1,18, 3) = (/ & - &1.0325e+01 ,7.8390e+00 ,5.3612e+00 ,2.8294e+00 ,3.3186e-02 /) - kbo(:, 2,18, 3) = (/ & - &1.0398e+01 ,7.8984e+00 ,5.4111e+00 ,2.8675e+00 ,3.5625e-02 /) - kbo(:, 3,18, 3) = (/ & - &1.0571e+01 ,8.0297e+00 ,5.5102e+00 ,2.9332e+00 ,3.8042e-02 /) - kbo(:, 4,18, 3) = (/ & - &1.0854e+01 ,8.2395e+00 ,5.6528e+00 ,3.0140e+00 ,4.0327e-02 /) - kbo(:, 5,18, 3) = (/ & - &1.1221e+01 ,8.5111e+00 ,5.8333e+00 ,3.1124e+00 ,4.2414e-02 /) - kbo(:, 1,19, 3) = (/ & - &6.8208e+00 ,5.2153e+00 ,3.5957e+00 ,1.9227e+00 ,2.8261e-02 /) - kbo(:, 2,19, 3) = (/ & - &6.8751e+00 ,5.2621e+00 ,3.6379e+00 ,1.9560e+00 ,3.0383e-02 /) - kbo(:, 3,19, 3) = (/ & - &7.0006e+00 ,5.3588e+00 ,3.7145e+00 ,2.0054e+00 ,3.2394e-02 /) - kbo(:, 4,19, 3) = (/ & - &7.2016e+00 ,5.5069e+00 ,3.8180e+00 ,2.0649e+00 ,3.4293e-02 /) - kbo(:, 5,19, 3) = (/ & - &7.4662e+00 ,5.7018e+00 ,3.9518e+00 ,2.1403e+00 ,3.6047e-02 /) - kbo(:, 1,20, 3) = (/ & - &4.8794e+00 ,3.7616e+00 ,2.6099e+00 ,1.4082e+00 ,2.4010e-02 /) - kbo(:, 2,20, 3) = (/ & - &4.9222e+00 ,3.8008e+00 ,2.6471e+00 ,1.4364e+00 ,2.5795e-02 /) - kbo(:, 3,20, 3) = (/ & - &5.0241e+00 ,3.8811e+00 ,2.7106e+00 ,1.4758e+00 ,2.7487e-02 /) - kbo(:, 4,20, 3) = (/ & - &5.1822e+00 ,3.9983e+00 ,2.7942e+00 ,1.5252e+00 ,2.9078e-02 /) - kbo(:, 5,20, 3) = (/ & - &5.3938e+00 ,4.1543e+00 ,2.9036e+00 ,1.5872e+00 ,3.0457e-02 /) - kbo(:, 1,21, 3) = (/ & - &3.5976e+00 ,2.7957e+00 ,1.9525e+00 ,1.0602e+00 ,2.0310e-02 /) - kbo(:, 2,21, 3) = (/ & - &3.6356e+00 ,2.8321e+00 ,1.9867e+00 ,1.0846e+00 ,2.1803e-02 /) - kbo(:, 3,21, 3) = (/ & - &3.7222e+00 ,2.9011e+00 ,2.0401e+00 ,1.1175e+00 ,2.3227e-02 /) - kbo(:, 4,21, 3) = (/ & - &3.8497e+00 ,2.9972e+00 ,2.1098e+00 ,1.1593e+00 ,2.4505e-02 /) - kbo(:, 5,21, 3) = (/ & - &4.0214e+00 ,3.1255e+00 ,2.2004e+00 ,1.2111e+00 ,2.5550e-02 /) - kbo(:, 1,22, 3) = (/ & - &2.7203e+00 ,2.1314e+00 ,1.4964e+00 ,8.1782e-01 ,1.7205e-02 /) - kbo(:, 2,22, 3) = (/ & - &2.7584e+00 ,2.1682e+00 ,1.5287e+00 ,8.3963e-01 ,1.8458e-02 /) - kbo(:, 3,22, 3) = (/ & - &2.8354e+00 ,2.2296e+00 ,1.5749e+00 ,8.6850e-01 ,1.9598e-02 /) - kbo(:, 4,22, 3) = (/ & - &2.9415e+00 ,2.3111e+00 ,1.6346e+00 ,9.0426e-01 ,2.0559e-02 /) - kbo(:, 5,22, 3) = (/ & - &3.0867e+00 ,2.4212e+00 ,1.7134e+00 ,9.4960e-01 ,2.1311e-02 /) - kbo(:, 1,23, 3) = (/ & - &2.0695e+00 ,1.6369e+00 ,1.1532e+00 ,6.3485e-01 ,1.4544e-02 /) - kbo(:, 2,23, 3) = (/ & - &2.1080e+00 ,1.6730e+00 ,1.1833e+00 ,6.5423e-01 ,1.5557e-02 /) - kbo(:, 3,23, 3) = (/ & - &2.1745e+00 ,1.7262e+00 ,1.2233e+00 ,6.7947e-01 ,1.6419e-02 /) - kbo(:, 4,23, 3) = (/ & - &2.2647e+00 ,1.7970e+00 ,1.2752e+00 ,7.1089e-01 ,1.7120e-02 /) - kbo(:, 5,23, 3) = (/ & - &2.3823e+00 ,1.8879e+00 ,1.3412e+00 ,7.4903e-01 ,1.7674e-02 /) - kbo(:, 1,24, 3) = (/ & - &1.5697e+00 ,1.2531e+00 ,8.8637e-01 ,4.9139e-01 ,1.2257e-02 /) - kbo(:, 2,24, 3) = (/ & - &1.6055e+00 ,1.2864e+00 ,9.1332e-01 ,5.0866e-01 ,1.3031e-02 /) - kbo(:, 3,24, 3) = (/ & - &1.6631e+00 ,1.3329e+00 ,9.4834e-01 ,5.3086e-01 ,1.3670e-02 /) - kbo(:, 4,24, 3) = (/ & - &1.7374e+00 ,1.3923e+00 ,9.9245e-01 ,5.5764e-01 ,1.4194e-02 /) - kbo(:, 5,24, 3) = (/ & - &1.8327e+00 ,1.4671e+00 ,1.0467e+00 ,5.8890e-01 ,1.4611e-02 /) - kbo(:, 1,25, 3) = (/ & - &1.2086e+00 ,9.7309e-01 ,6.9155e-01 ,3.8568e-01 ,1.0281e-02 /) - kbo(:, 2,25, 3) = (/ & - &1.2420e+00 ,1.0035e+00 ,7.1528e-01 ,4.0109e-01 ,1.0857e-02 /) - kbo(:, 3,25, 3) = (/ & - &1.2906e+00 ,1.0433e+00 ,7.4566e-01 ,4.2042e-01 ,1.1339e-02 /) - kbo(:, 4,25, 3) = (/ & - &1.3533e+00 ,1.0941e+00 ,7.8339e-01 ,4.4308e-01 ,1.1737e-02 /) - kbo(:, 5,25, 3) = (/ & - &1.4315e+00 ,1.1563e+00 ,8.2868e-01 ,4.6855e-01 ,1.2054e-02 /) - kbo(:, 1,26, 3) = (/ & - &9.4867e-01 ,7.6987e-01 ,5.4929e-01 ,3.0788e-01 ,8.5827e-03 /) - kbo(:, 2,26, 3) = (/ & - &9.7957e-01 ,7.9721e-01 ,5.7050e-01 ,3.2189e-01 ,9.0225e-03 /) - kbo(:, 3,26, 3) = (/ & - &1.0209e+00 ,8.3198e-01 ,5.9699e-01 ,3.3862e-01 ,9.3908e-03 /) - kbo(:, 4,26, 3) = (/ & - &1.0742e+00 ,8.7561e-01 ,6.2951e-01 ,3.5776e-01 ,9.6952e-03 /) - kbo(:, 5,26, 3) = (/ & - &1.1410e+00 ,9.2907e-01 ,6.6837e-01 ,3.7907e-01 ,9.9345e-03 /) - kbo(:, 1,27, 3) = (/ & - &7.7558e-01 ,6.3324e-01 ,4.5279e-01 ,2.5468e-01 ,7.1414e-03 /) - kbo(:, 2,27, 3) = (/ & - &8.0374e-01 ,6.5793e-01 ,4.7219e-01 ,2.6746e-01 ,7.4832e-03 /) - kbo(:, 3,27, 3) = (/ & - &8.4002e-01 ,6.8874e-01 ,4.9567e-01 ,2.8203e-01 ,7.7674e-03 /) - kbo(:, 4,27, 3) = (/ & - &8.8798e-01 ,7.2827e-01 ,5.2483e-01 ,2.9866e-01 ,7.9993e-03 /) - kbo(:, 5,27, 3) = (/ & - &9.4670e-01 ,7.7585e-01 ,5.5890e-01 ,3.1722e-01 ,8.1810e-03 /) - kbo(:, 1,28, 3) = (/ & - &6.5247e-01 ,5.3505e-01 ,3.8309e-01 ,2.1606e-01 ,5.9313e-03 /) - kbo(:, 2,28, 3) = (/ & - &6.7805e-01 ,5.5765e-01 ,4.0088e-01 ,2.2763e-01 ,6.1964e-03 /) - kbo(:, 3,28, 3) = (/ & - &7.1138e-01 ,5.8602e-01 ,4.2234e-01 ,2.4051e-01 ,6.4170e-03 /) - kbo(:, 4,28, 3) = (/ & - &7.5565e-01 ,6.2271e-01 ,4.4913e-01 ,2.5531e-01 ,6.5956e-03 /) - kbo(:, 5,28, 3) = (/ & - &8.0810e-01 ,6.6536e-01 ,4.7931e-01 ,2.7186e-01 ,6.7356e-03 /) - kbo(:, 1,29, 3) = (/ & - &5.8359e-01 ,4.7922e-01 ,3.4299e-01 ,1.9330e-01 ,4.9222e-03 /) - kbo(:, 2,29, 3) = (/ & - &6.0836e-01 ,5.0105e-01 ,3.5992e-01 ,2.0402e-01 ,5.1279e-03 /) - kbo(:, 3,29, 3) = (/ & - &6.4169e-01 ,5.2929e-01 ,3.8096e-01 ,2.1613e-01 ,5.2989e-03 /) - kbo(:, 4,29, 3) = (/ & - &6.8418e-01 ,5.6479e-01 ,4.0659e-01 ,2.3010e-01 ,5.4376e-03 /) - kbo(:, 5,29, 3) = (/ & - &7.3388e-01 ,6.0487e-01 ,4.3487e-01 ,2.4554e-01 ,5.5459e-03 /) - kbo(:, 1,30, 3) = (/ & - &5.3559e-01 ,4.3987e-01 ,3.1446e-01 ,1.7681e-01 ,4.0812e-03 /) - kbo(:, 2,30, 3) = (/ & - &5.6092e-01 ,4.6195e-01 ,3.3123e-01 ,1.8699e-01 ,4.2410e-03 /) - kbo(:, 3,30, 3) = (/ & - &5.9467e-01 ,4.9061e-01 ,3.5234e-01 ,1.9880e-01 ,4.3756e-03 /) - kbo(:, 4,30, 3) = (/ & - &6.3620e-01 ,5.2529e-01 ,3.7692e-01 ,2.1218e-01 ,4.4820e-03 /) - kbo(:, 5,30, 3) = (/ & - &6.8416e-01 ,5.6390e-01 ,4.0420e-01 ,2.2692e-01 ,4.5637e-03 /) - kbo(:, 1,31, 3) = (/ & - &5.1816e-01 ,4.2464e-01 ,3.0261e-01 ,1.6922e-01 ,3.3825e-03 /) - kbo(:, 2,31, 3) = (/ & - &5.4536e-01 ,4.4814e-01 ,3.2013e-01 ,1.7945e-01 ,3.5084e-03 /) - kbo(:, 3,31, 3) = (/ & - &5.8079e-01 ,4.7822e-01 ,3.4203e-01 ,1.9145e-01 ,3.6133e-03 /) - kbo(:, 4,31, 3) = (/ & - &6.2360e-01 ,5.1355e-01 ,3.6685e-01 ,2.0495e-01 ,3.6964e-03 /) - kbo(:, 5,31, 3) = (/ & - &6.7136e-01 ,5.5242e-01 ,3.9433e-01 ,2.1968e-01 ,3.7632e-03 /) - kbo(:, 1,32, 3) = (/ & - &5.0836e-01 ,4.1565e-01 ,2.9513e-01 ,1.6401e-01 ,2.8023e-03 /) - kbo(:, 2,32, 3) = (/ & - &5.3755e-01 ,4.4081e-01 ,3.1373e-01 ,1.7458e-01 ,2.9031e-03 /) - kbo(:, 3,32, 3) = (/ & - &5.7518e-01 ,4.7260e-01 ,3.3647e-01 ,1.8685e-01 ,2.9841e-03 /) - kbo(:, 4,32, 3) = (/ & - &6.1917e-01 ,5.0863e-01 ,3.6188e-01 ,2.0060e-01 ,3.0523e-03 /) - kbo(:, 5,32, 3) = (/ & - &6.6737e-01 ,5.4799e-01 ,3.8954e-01 ,2.1543e-01 ,3.1032e-03 /) - kbo(:, 1,33, 3) = (/ & - &5.0907e-01 ,4.1513e-01 ,2.9365e-01 ,1.6205e-01 ,2.3233e-03 /) - kbo(:, 2,33, 3) = (/ & - &5.4095e-01 ,4.4243e-01 ,3.1363e-01 ,1.7315e-01 ,2.4017e-03 /) - kbo(:, 3,33, 3) = (/ & - &5.8099e-01 ,4.7617e-01 ,3.3742e-01 ,1.8595e-01 ,2.4676e-03 /) - kbo(:, 4,33, 3) = (/ & - &6.2648e-01 ,5.1328e-01 ,3.6375e-01 ,2.0009e-01 ,2.5196e-03 /) - kbo(:, 5,33, 3) = (/ & - &6.7646e-01 ,5.5394e-01 ,3.9218e-01 ,2.1533e-01 ,2.5609e-03 /) - kbo(:, 1,34, 3) = (/ & - &4.9704e-01 ,4.0480e-01 ,2.8555e-01 ,1.5673e-01 ,1.9225e-03 /) - kbo(:, 2,34, 3) = (/ & - &5.3069e-01 ,4.3364e-01 ,3.0643e-01 ,1.6807e-01 ,1.9847e-03 /) - kbo(:, 3,34, 3) = (/ & - &5.7151e-01 ,4.6776e-01 ,3.3046e-01 ,1.8101e-01 ,2.0370e-03 /) - kbo(:, 4,34, 3) = (/ & - &6.1711e-01 ,5.0510e-01 ,3.5686e-01 ,1.9508e-01 ,2.0801e-03 /) - kbo(:, 5,34, 3) = (/ & - &6.6746e-01 ,5.4585e-01 ,3.8550e-01 ,2.1045e-01 ,2.1144e-03 /) - kbo(:, 1,35, 3) = (/ & - &4.8386e-01 ,3.9362e-01 ,2.7689e-01 ,1.5116e-01 ,1.5847e-03 /) - kbo(:, 2,35, 3) = (/ & - &5.1832e-01 ,4.2323e-01 ,2.9822e-01 ,1.6263e-01 ,1.6362e-03 /) - kbo(:, 3,35, 3) = (/ & - &5.5929e-01 ,4.5721e-01 ,3.2219e-01 ,1.7550e-01 ,1.6795e-03 /) - kbo(:, 4,35, 3) = (/ & - &6.0482e-01 ,4.9463e-01 ,3.4852e-01 ,1.8949e-01 ,1.7156e-03 /) - kbo(:, 5,35, 3) = (/ & - &6.5512e-01 ,5.3534e-01 ,3.7729e-01 ,2.0487e-01 ,1.7410e-03 /) - kbo(:, 1,36, 3) = (/ & - &4.6553e-01 ,3.7836e-01 ,2.6548e-01 ,1.4421e-01 ,1.3024e-03 /) - kbo(:, 2,36, 3) = (/ & - &4.9953e-01 ,4.0773e-01 ,2.8657e-01 ,1.5552e-01 ,1.3449e-03 /) - kbo(:, 3,36, 3) = (/ & - &5.3980e-01 ,4.4109e-01 ,3.1015e-01 ,1.6814e-01 ,1.3813e-03 /) - kbo(:, 4,36, 3) = (/ & - &5.8461e-01 ,4.7793e-01 ,3.3603e-01 ,1.8187e-01 ,1.4105e-03 /) - kbo(:, 5,36, 3) = (/ & - &6.3401e-01 ,5.1804e-01 ,3.6447e-01 ,1.9702e-01 ,1.4329e-03 /) - kbo(:, 1,37, 3) = (/ & - &4.3247e-01 ,3.5136e-01 ,2.4603e-01 ,1.3313e-01 ,1.0644e-03 /) - kbo(:, 2,37, 3) = (/ & - &4.6409e-01 ,3.7893e-01 ,2.6588e-01 ,1.4378e-01 ,1.1011e-03 /) - kbo(:, 3,37, 3) = (/ & - &5.0193e-01 ,4.1040e-01 ,2.8814e-01 ,1.5568e-01 ,1.1313e-03 /) - kbo(:, 4,37, 3) = (/ & - &5.4423e-01 ,4.4538e-01 ,3.1275e-01 ,1.6870e-01 ,1.1563e-03 /) - kbo(:, 5,37, 3) = (/ & - &5.9125e-01 ,4.8359e-01 ,3.3982e-01 ,1.8310e-01 ,1.1762e-03 /) - kbo(:, 1,38, 3) = (/ & - &4.0752e-01 ,3.3084e-01 ,2.3116e-01 ,1.2457e-01 ,8.6985e-04 /) - kbo(:, 2,38, 3) = (/ & - &4.3734e-01 ,3.5701e-01 ,2.5006e-01 ,1.3472e-01 ,9.0011e-04 /) - kbo(:, 3,38, 3) = (/ & - &4.7342e-01 ,3.8717e-01 ,2.7137e-01 ,1.4611e-01 ,9.2699e-04 /) - kbo(:, 4,38, 3) = (/ & - &5.1398e-01 ,4.2080e-01 ,2.9507e-01 ,1.5862e-01 ,9.4795e-04 /) - kbo(:, 5,38, 3) = (/ & - &5.5926e-01 ,4.5769e-01 ,3.2123e-01 ,1.7252e-01 ,9.6539e-04 /) - kbo(:, 1,39, 3) = (/ & - &3.9286e-01 ,3.1853e-01 ,2.2204e-01 ,1.1910e-01 ,7.1027e-04 /) - kbo(:, 2,39, 3) = (/ & - &4.2168e-01 ,3.4392e-01 ,2.4040e-01 ,1.2899e-01 ,7.3606e-04 /) - kbo(:, 3,39, 3) = (/ & - &4.5685e-01 ,3.7344e-01 ,2.6129e-01 ,1.4014e-01 ,7.5956e-04 /) - kbo(:, 4,39, 3) = (/ & - &4.9667e-01 ,4.0652e-01 ,2.8462e-01 ,1.5245e-01 ,7.7770e-04 /) - kbo(:, 5,39, 3) = (/ & - &5.4133e-01 ,4.4296e-01 ,3.1045e-01 ,1.6619e-01 ,7.9334e-04 /) - kbo(:, 1,40, 3) = (/ & - &3.5355e-01 ,2.8669e-01 ,1.9956e-01 ,1.0673e-01 ,5.7721e-04 /) - kbo(:, 2,40, 3) = (/ & - &3.7907e-01 ,3.0944e-01 ,2.1608e-01 ,1.1569e-01 ,5.9933e-04 /) - kbo(:, 3,40, 3) = (/ & - &4.1075e-01 ,3.3635e-01 ,2.3514e-01 ,1.2587e-01 ,6.1943e-04 /) - kbo(:, 4,40, 3) = (/ & - &4.4707e-01 ,3.6668e-01 ,2.5658e-01 ,1.3717e-01 ,6.3526e-04 /) - kbo(:, 5,40, 3) = (/ & - &4.8803e-01 ,4.0025e-01 ,2.8039e-01 ,1.4981e-01 ,6.4905e-04 /) - kbo(:, 1,41, 3) = (/ & - &3.1722e-01 ,2.5721e-01 ,1.7878e-01 ,9.5352e-02 ,4.6830e-04 /) - kbo(:, 2,41, 3) = (/ & - &3.3984e-01 ,2.7762e-01 ,1.9366e-01 ,1.0349e-01 ,4.8763e-04 /) - kbo(:, 3,41, 3) = (/ & - &3.6801e-01 ,3.0195e-01 ,2.1092e-01 ,1.1268e-01 ,5.0461e-04 /) - kbo(:, 4,41, 3) = (/ & - &4.0101e-01 ,3.2964e-01 ,2.3053e-01 ,1.2303e-01 ,5.1866e-04 /) - kbo(:, 5,41, 3) = (/ & - &4.3854e-01 ,3.6057e-01 ,2.5249e-01 ,1.3467e-01 ,5.3060e-04 /) - kbo(:, 1,42, 3) = (/ & - &2.8780e-01 ,2.3320e-01 ,1.6182e-01 ,8.6050e-02 ,3.7987e-04 /) - kbo(:, 2,42, 3) = (/ & - &3.0806e-01 ,2.5171e-01 ,1.7535e-01 ,9.3494e-02 ,3.9649e-04 /) - kbo(:, 3,42, 3) = (/ & - &3.3326e-01 ,2.7383e-01 ,1.9111e-01 ,1.0188e-01 ,4.1103e-04 /) - kbo(:, 4,42, 3) = (/ & - &3.6352e-01 ,2.9931e-01 ,2.0921e-01 ,1.1145e-01 ,4.2329e-04 /) - kbo(:, 5,42, 3) = (/ & - &3.9814e-01 ,3.2805e-01 ,2.2962e-01 ,1.2223e-01 ,4.3386e-04 /) - kbo(:, 1,43, 3) = (/ & - &2.6265e-01 ,2.1245e-01 ,1.4714e-01 ,7.7969e-02 ,3.0714e-04 /) - kbo(:, 2,43, 3) = (/ & - &2.8068e-01 ,2.2918e-01 ,1.5940e-01 ,8.4750e-02 ,3.2151e-04 /) - kbo(:, 3,43, 3) = (/ & - &3.0314e-01 ,2.4932e-01 ,1.7384e-01 ,9.2466e-02 ,3.3415e-04 /) - kbo(:, 4,43, 3) = (/ & - &3.3080e-01 ,2.7269e-01 ,1.9045e-01 ,1.0127e-01 ,3.4470e-04 /) - kbo(:, 5,43, 3) = (/ & - &3.6272e-01 ,2.9942e-01 ,2.0942e-01 ,1.1129e-01 ,3.5407e-04 /) - kbo(:, 1,44, 3) = (/ & - &2.4281e-01 ,1.9594e-01 ,1.3540e-01 ,7.1467e-02 ,2.4789e-04 /) - kbo(:, 2,44, 3) = (/ & - &2.5884e-01 ,2.1103e-01 ,1.4648e-01 ,7.7626e-02 ,2.6014e-04 /) - kbo(:, 3,44, 3) = (/ & - &2.7897e-01 ,2.2939e-01 ,1.5978e-01 ,8.4794e-02 ,2.7117e-04 /) - kbo(:, 4,44, 3) = (/ & - &3.0448e-01 ,2.5115e-01 ,1.7522e-01 ,9.2989e-02 ,2.8049e-04 /) - kbo(:, 5,44, 3) = (/ & - &3.3408e-01 ,2.7612e-01 ,1.9297e-01 ,1.0236e-01 ,2.8861e-04 /) - kbo(:, 1,45, 3) = (/ & - &2.2924e-01 ,1.8447e-01 ,1.2716e-01 ,6.6832e-02 ,2.0004e-04 /) - kbo(:, 2,45, 3) = (/ & - &2.4373e-01 ,1.9820e-01 ,1.3728e-01 ,7.2484e-02 ,2.1065e-04 /) - kbo(:, 3,45, 3) = (/ & - &2.6228e-01 ,2.1536e-01 ,1.4978e-01 ,7.9297e-02 ,2.1996e-04 /) - kbo(:, 4,45, 3) = (/ & - &2.8578e-01 ,2.3573e-01 ,1.6427e-01 ,8.6976e-02 ,2.2795e-04 /) - kbo(:, 5,45, 3) = (/ & - &3.1387e-01 ,2.5954e-01 ,1.8123e-01 ,9.5940e-02 ,2.3501e-04 /) - kbo(:, 1,46, 3) = (/ & - &2.1864e-01 ,1.7537e-01 ,1.2059e-01 ,6.3114e-02 ,1.6106e-04 /) - kbo(:, 2,46, 3) = (/ & - &2.3164e-01 ,1.8773e-01 ,1.2971e-01 ,6.8234e-02 ,1.7008e-04 /) - kbo(:, 3,46, 3) = (/ & - &2.4878e-01 ,2.0380e-01 ,1.4148e-01 ,7.4690e-02 ,1.7817e-04 /) - kbo(:, 4,46, 3) = (/ & - &2.7041e-01 ,2.2298e-01 ,1.5518e-01 ,8.1986e-02 ,1.8514e-04 /) - kbo(:, 5,46, 3) = (/ & - &2.9717e-01 ,2.4573e-01 ,1.7143e-01 ,9.0585e-02 ,1.9112e-04 /) - kbo(:, 1,47, 3) = (/ & - &2.0666e-01 ,1.6515e-01 ,1.1329e-01 ,5.9056e-02 ,1.2901e-04 /) - kbo(:, 2,47, 3) = (/ & - &2.1779e-01 ,1.7589e-01 ,1.2122e-01 ,6.3515e-02 ,1.3680e-04 /) - kbo(:, 3,47, 3) = (/ & - &2.3320e-01 ,1.9053e-01 ,1.3198e-01 ,6.9466e-02 ,1.4384e-04 /) - kbo(:, 4,47, 3) = (/ & - &2.5274e-01 ,2.0828e-01 ,1.4478e-01 ,7.6351e-02 ,1.4999e-04 /) - kbo(:, 5,47, 3) = (/ & - &2.7761e-01 ,2.2954e-01 ,1.5995e-01 ,8.4385e-02 ,1.5514e-04 /) - kbo(:, 1,48, 3) = (/ & - &2.0159e-01 ,1.6032e-01 ,1.0970e-01 ,5.6945e-02 ,1.0330e-04 /) - kbo(:, 2,48, 3) = (/ & - &2.1094e-01 ,1.6966e-01 ,1.1661e-01 ,6.0834e-02 ,1.0997e-04 /) - kbo(:, 3,48, 3) = (/ & - &2.2505e-01 ,1.8313e-01 ,1.2656e-01 ,6.6365e-02 ,1.1606e-04 /) - kbo(:, 4,48, 3) = (/ & - &2.4321e-01 ,1.9993e-01 ,1.3877e-01 ,7.3027e-02 ,1.2143e-04 /) - kbo(:, 5,48, 3) = (/ & - &2.6669e-01 ,2.2023e-01 ,1.5323e-01 ,8.0709e-02 ,1.2582e-04 /) - kbo(:, 1,49, 3) = (/ & - &2.0550e-01 ,1.6255e-01 ,1.1090e-01 ,5.7322e-02 ,8.2624e-05 /) - kbo(:, 2,49, 3) = (/ & - &2.1330e-01 ,1.7068e-01 ,1.1698e-01 ,6.0751e-02 ,8.8378e-05 /) - kbo(:, 3,49, 3) = (/ & - &2.2651e-01 ,1.8330e-01 ,1.2630e-01 ,6.5972e-02 ,9.3615e-05 /) - kbo(:, 4,49, 3) = (/ & - &2.4409e-01 ,1.9975e-01 ,1.3835e-01 ,7.2591e-02 ,9.8246e-05 /) - kbo(:, 5,49, 3) = (/ & - &2.6685e-01 ,2.1980e-01 ,1.5269e-01 ,8.0258e-02 ,1.0201e-04 /) - kbo(:, 1,50, 3) = (/ & - &2.0001e-01 ,1.5763e-01 ,1.0735e-01 ,5.5313e-02 ,6.6052e-05 /) - kbo(:, 2,50, 3) = (/ & - &2.0622e-01 ,1.6433e-01 ,1.1239e-01 ,5.8166e-02 ,7.0964e-05 /) - kbo(:, 3,50, 3) = (/ & - &2.1782e-01 ,1.7560e-01 ,1.2070e-01 ,6.2821e-02 ,7.5460e-05 /) - kbo(:, 4,50, 3) = (/ & - &2.3393e-01 ,1.9090e-01 ,1.3196e-01 ,6.9056e-02 ,7.9402e-05 /) - kbo(:, 5,50, 3) = (/ & - &2.5520e-01 ,2.0998e-01 ,1.4571e-01 ,7.6464e-02 ,8.2692e-05 /) - kbo(:, 1,51, 3) = (/ & - &1.9065e-01 ,1.4985e-01 ,1.0188e-01 ,5.2372e-02 ,5.2796e-05 /) - kbo(:, 2,51, 3) = (/ & - &1.9564e-01 ,1.5535e-01 ,1.0604e-01 ,5.4717e-02 ,5.6909e-05 /) - kbo(:, 3,51, 3) = (/ & - &2.0531e-01 ,1.6500e-01 ,1.1319e-01 ,5.8726e-02 ,6.0736e-05 /) - kbo(:, 4,51, 3) = (/ & - &2.1974e-01 ,1.7886e-01 ,1.2342e-01 ,6.4424e-02 ,6.4172e-05 /) - kbo(:, 5,51, 3) = (/ & - &2.3909e-01 ,1.9652e-01 ,1.3622e-01 ,7.1393e-02 ,6.6971e-05 /) - kbo(:, 1,52, 3) = (/ & - &1.8687e-01 ,1.4652e-01 ,9.9463e-02 ,5.1012e-02 ,4.2174e-05 /) - kbo(:, 2,52, 3) = (/ & - &1.9141e-01 ,1.5137e-01 ,1.0312e-01 ,5.3053e-02 ,4.5594e-05 /) - kbo(:, 3,52, 3) = (/ & - &1.9940e-01 ,1.5962e-01 ,1.0927e-01 ,5.6516e-02 ,4.8848e-05 /) - kbo(:, 4,52, 3) = (/ & - &2.1252e-01 ,1.7228e-01 ,1.1865e-01 ,6.1768e-02 ,5.1771e-05 /) - kbo(:, 5,52, 3) = (/ & - &2.3051e-01 ,1.8896e-01 ,1.3079e-01 ,6.8431e-02 ,5.4234e-05 /) - kbo(:, 1,53, 3) = (/ & - &1.9049e-01 ,1.4907e-01 ,1.0107e-01 ,5.1727e-02 ,3.3675e-05 /) - kbo(:, 2,53, 3) = (/ & - &1.9537e-01 ,1.5387e-01 ,1.0462e-01 ,5.3675e-02 ,3.6498e-05 /) - kbo(:, 3,53, 3) = (/ & - &2.0221e-01 ,1.6109e-01 ,1.1002e-01 ,5.6715e-02 ,3.9286e-05 /) - kbo(:, 4,53, 3) = (/ & - &2.1438e-01 ,1.7292e-01 ,1.1878e-01 ,6.1645e-02 ,4.1745e-05 /) - kbo(:, 5,53, 3) = (/ & - &2.3164e-01 ,1.8913e-01 ,1.3065e-01 ,6.8198e-02 ,4.3903e-05 /) - kbo(:, 1,54, 3) = (/ & - &1.6750e-01 ,1.3117e-01 ,8.8914e-02 ,4.5482e-02 ,2.6834e-05 /) - kbo(:, 2,54, 3) = (/ & - &1.7260e-01 ,1.3577e-01 ,9.2225e-02 ,4.7257e-02 ,2.9152e-05 /) - kbo(:, 3,54, 3) = (/ & - &1.7790e-01 ,1.4144e-01 ,9.6473e-02 ,4.9632e-02 ,3.1487e-05 /) - kbo(:, 4,54, 3) = (/ & - &1.8750e-01 ,1.5107e-01 ,1.0362e-01 ,5.3663e-02 ,3.3610e-05 /) - kbo(:, 5,54, 3) = (/ & - &2.0185e-01 ,1.6484e-01 ,1.1376e-01 ,5.9292e-02 ,3.5416e-05 /) - kbo(:, 1,55, 3) = (/ & - &1.3399e-01 ,1.0522e-01 ,7.1343e-02 ,3.6503e-02 ,2.1364e-05 /) - kbo(:, 2,55, 3) = (/ & - &1.3914e-01 ,1.0951e-01 ,7.4357e-02 ,3.8080e-02 ,2.3275e-05 /) - kbo(:, 3,55, 3) = (/ & - &1.4309e-01 ,1.1374e-01 ,7.7519e-02 ,3.9837e-02 ,2.5155e-05 /) - kbo(:, 4,55, 3) = (/ & - &1.4990e-01 ,1.2087e-01 ,8.2841e-02 ,4.2848e-02 ,2.6955e-05 /) - kbo(:, 5,55, 3) = (/ & - &1.6076e-01 ,1.3155e-01 ,9.0755e-02 ,4.7259e-02 ,2.8512e-05 /) - kbo(:, 1,56, 3) = (/ & - &1.0674e-01 ,8.4150e-02 ,5.7088e-02 ,2.9230e-02 ,1.7018e-05 /) - kbo(:, 2,56, 3) = (/ & - &1.1202e-01 ,8.8284e-02 ,5.9924e-02 ,3.0675e-02 ,1.8552e-05 /) - kbo(:, 3,56, 3) = (/ & - &1.1522e-01 ,9.1603e-02 ,6.2380e-02 ,3.2028e-02 ,2.0079e-05 /) - kbo(:, 4,56, 3) = (/ & - &1.2002e-01 ,9.6801e-02 ,6.6273e-02 ,3.4240e-02 ,2.1582e-05 /) - kbo(:, 5,56, 3) = (/ & - &1.2813e-01 ,1.0499e-01 ,7.2382e-02 ,3.7660e-02 ,2.2972e-05 /) - kbo(:, 1,57, 3) = (/ & - &8.4657e-02 ,6.6996e-02 ,4.5488e-02 ,2.3320e-02 ,1.3524e-05 /) - kbo(:, 2,57, 3) = (/ & - &8.9961e-02 ,7.1035e-02 ,4.8219e-02 ,2.4686e-02 ,1.4787e-05 /) - kbo(:, 3,57, 3) = (/ & - &9.2828e-02 ,7.3808e-02 ,5.0230e-02 ,2.5772e-02 ,1.6030e-05 /) - kbo(:, 4,57, 3) = (/ & - &9.6271e-02 ,7.7620e-02 ,5.3068e-02 ,2.7385e-02 ,1.7279e-05 /) - kbo(:, 5,57, 3) = (/ & - &1.0221e-01 ,8.3835e-02 ,5.7725e-02 ,3.0004e-02 ,1.8442e-05 /) - kbo(:, 1,58, 3) = (/ & - &1.7656e-02 ,1.7150e-02 ,1.4988e-02 ,1.0779e-02 ,1.0747e-05 /) - kbo(:, 2,58, 3) = (/ & - &1.9015e-02 ,1.8411e-02 ,1.6077e-02 ,1.1536e-02 ,1.1805e-05 /) - kbo(:, 3,58, 3) = (/ & - &1.9736e-02 ,1.9199e-02 ,1.6794e-02 ,1.2067e-02 ,1.2808e-05 /) - kbo(:, 4,58, 3) = (/ & - &2.0419e-02 ,2.0127e-02 ,1.7678e-02 ,1.2766e-02 ,1.3807e-05 /) - kbo(:, 5,58, 3) = (/ & - &2.1547e-02 ,2.1640e-02 ,1.9143e-02 ,1.3925e-02 ,1.4766e-05 /) - kbo(:, 1,59, 3) = (/ & - &1.6768e-02 ,1.5635e-02 ,1.2738e-02 ,8.1686e-03 ,8.6706e-06 /) - kbo(:, 2,59, 3) = (/ & - &1.8151e-02 ,1.6868e-02 ,1.3724e-02 ,8.7749e-03 ,9.5360e-06 /) - kbo(:, 3,59, 3) = (/ & - &1.8900e-02 ,1.7641e-02 ,1.4372e-02 ,9.2015e-03 ,1.0356e-05 /) - kbo(:, 4,59, 3) = (/ & - &1.9564e-02 ,1.8529e-02 ,1.5159e-02 ,9.7488e-03 ,1.1149e-05 /) - kbo(:, 5,59, 3) = (/ & - &2.0620e-02 ,1.9962e-02 ,1.6458e-02 ,1.0647e-02 ,1.1905e-05 /) - kbo(:, 1,13, 4) = (/ & - &2.1586e+02 ,1.6199e+02 ,1.0811e+02 ,5.4245e+01 ,1.2105e-01 /) - kbo(:, 2,13, 4) = (/ & - &2.1869e+02 ,1.6410e+02 ,1.0952e+02 ,5.4940e+01 ,1.2618e-01 /) - kbo(:, 3,13, 4) = (/ & - &2.2370e+02 ,1.6786e+02 ,1.1202e+02 ,5.6190e+01 ,1.3118e-01 /) - kbo(:, 4,13, 4) = (/ & - &2.3070e+02 ,1.7312e+02 ,1.1553e+02 ,5.7947e+01 ,1.3630e-01 /) - kbo(:, 5,13, 4) = (/ & - &2.4034e+02 ,1.8034e+02 ,1.2035e+02 ,6.0352e+01 ,1.4080e-01 /) - kbo(:, 1,14, 4) = (/ & - &1.1263e+02 ,8.4567e+01 ,5.6502e+01 ,2.8444e+01 ,1.0638e-01 /) - kbo(:, 2,14, 4) = (/ & - &1.1465e+02 ,8.6072e+01 ,5.7500e+01 ,2.8941e+01 ,1.1108e-01 /) - kbo(:, 3,14, 4) = (/ & - &1.1796e+02 ,8.8560e+01 ,5.9161e+01 ,2.9768e+01 ,1.1550e-01 /) - kbo(:, 4,14, 4) = (/ & - &1.2248e+02 ,9.1950e+01 ,6.1421e+01 ,3.0896e+01 ,1.2021e-01 /) - kbo(:, 5,14, 4) = (/ & - &1.2816e+02 ,9.6211e+01 ,6.4260e+01 ,3.2312e+01 ,1.2485e-01 /) - kbo(:, 1,15, 4) = (/ & - &5.9854e+01 ,4.4984e+01 ,3.0119e+01 ,1.5274e+01 ,9.2887e-02 /) - kbo(:, 2,15, 4) = (/ & - &6.1271e+01 ,4.6045e+01 ,3.0823e+01 ,1.5619e+01 ,9.7129e-02 /) - kbo(:, 3,15, 4) = (/ & - &6.3412e+01 ,4.7652e+01 ,3.1894e+01 ,1.6144e+01 ,1.0153e-01 /) - kbo(:, 4,15, 4) = (/ & - &6.6234e+01 ,4.9767e+01 ,3.3302e+01 ,1.6842e+01 ,1.0585e-01 /) - kbo(:, 5,15, 4) = (/ & - &6.9392e+01 ,5.2133e+01 ,3.4876e+01 ,1.7625e+01 ,1.1025e-01 /) - kbo(:, 1,16, 4) = (/ & - &3.7898e+01 ,2.8521e+01 ,1.9151e+01 ,9.8246e+00 ,8.0720e-02 /) - kbo(:, 2,16, 4) = (/ & - &3.9024e+01 ,2.9361e+01 ,1.9706e+01 ,1.0088e+01 ,8.4821e-02 /) - kbo(:, 3,16, 4) = (/ & - &4.0630e+01 ,3.0565e+01 ,2.0505e+01 ,1.0472e+01 ,8.9056e-02 /) - kbo(:, 4,16, 4) = (/ & - &4.2559e+01 ,3.2011e+01 ,2.1467e+01 ,1.0943e+01 ,9.3186e-02 /) - kbo(:, 5,16, 4) = (/ & - &4.4564e+01 ,3.3513e+01 ,2.2465e+01 ,1.1432e+01 ,9.7171e-02 /) - kbo(:, 1,17, 4) = (/ & - &2.4925e+01 ,1.8792e+01 ,1.2674e+01 ,6.6287e+00 ,6.9974e-02 /) - kbo(:, 2,17, 4) = (/ & - &2.5814e+01 ,1.9454e+01 ,1.3108e+01 ,6.8325e+00 ,7.3907e-02 /) - kbo(:, 3,17, 4) = (/ & - &2.6980e+01 ,2.0330e+01 ,1.3687e+01 ,7.1100e+00 ,7.7821e-02 /) - kbo(:, 4,17, 4) = (/ & - &2.8287e+01 ,2.1307e+01 ,1.4334e+01 ,7.4176e+00 ,8.1565e-02 /) - kbo(:, 5,17, 4) = (/ & - &2.9635e+01 ,2.2318e+01 ,1.5005e+01 ,7.7402e+00 ,8.5222e-02 /) - kbo(:, 1,18, 4) = (/ & - &1.6833e+01 ,1.2726e+01 ,8.6533e+00 ,4.6132e+00 ,6.0568e-02 /) - kbo(:, 2,18, 4) = (/ & - &1.7515e+01 ,1.3234e+01 ,8.9835e+00 ,4.7781e+00 ,6.4137e-02 /) - kbo(:, 3,18, 4) = (/ & - &1.8359e+01 ,1.3866e+01 ,9.3947e+00 ,4.9795e+00 ,6.7564e-02 /) - kbo(:, 4,18, 4) = (/ & - &1.9269e+01 ,1.4545e+01 ,9.8365e+00 ,5.1909e+00 ,7.0941e-02 /) - kbo(:, 5,18, 4) = (/ & - &2.0186e+01 ,1.5233e+01 ,1.0291e+01 ,5.4115e+00 ,7.4160e-02 /) - kbo(:, 1,19, 4) = (/ & - &1.1200e+01 ,8.5062e+00 ,5.8670e+00 ,3.1832e+00 ,5.2174e-02 /) - kbo(:, 2,19, 4) = (/ & - &1.1703e+01 ,8.8805e+00 ,6.1092e+00 ,3.3121e+00 ,5.5280e-02 /) - kbo(:, 3,19, 4) = (/ & - &1.2289e+01 ,9.3153e+00 ,6.3897e+00 ,3.4520e+00 ,5.8298e-02 /) - kbo(:, 4,19, 4) = (/ & - &1.2879e+01 ,9.7549e+00 ,6.6727e+00 ,3.5951e+00 ,6.1230e-02 /) - kbo(:, 5,19, 4) = (/ & - &1.3509e+01 ,1.0228e+01 ,6.9797e+00 ,3.7461e+00 ,6.3987e-02 /) - kbo(:, 1,20, 4) = (/ & - &8.1017e+00 ,6.1940e+00 ,4.3223e+00 ,2.3773e+00 ,4.4725e-02 /) - kbo(:, 2,20, 4) = (/ & - &8.4816e+00 ,6.4735e+00 ,4.5091e+00 ,2.4775e+00 ,4.7408e-02 /) - kbo(:, 3,20, 4) = (/ & - &8.8970e+00 ,6.7793e+00 ,4.7079e+00 ,2.5791e+00 ,5.0027e-02 /) - kbo(:, 4,20, 4) = (/ & - &9.3252e+00 ,7.0958e+00 ,4.9137e+00 ,2.6856e+00 ,5.2539e-02 /) - kbo(:, 5,20, 4) = (/ & - &9.8057e+00 ,7.4546e+00 ,5.1456e+00 ,2.8027e+00 ,5.4910e-02 /) - kbo(:, 1,21, 4) = (/ & - &6.0501e+00 ,4.6688e+00 ,3.2884e+00 ,1.8254e+00 ,3.8136e-02 /) - kbo(:, 2,21, 4) = (/ & - &6.3357e+00 ,4.8779e+00 ,3.4312e+00 ,1.9011e+00 ,4.0441e-02 /) - kbo(:, 3,21, 4) = (/ & - &6.6449e+00 ,5.1029e+00 ,3.5792e+00 ,1.9785e+00 ,4.2660e-02 /) - kbo(:, 4,21, 4) = (/ & - &6.9762e+00 ,5.3455e+00 ,3.7404e+00 ,2.0617e+00 ,4.4823e-02 /) - kbo(:, 5,21, 4) = (/ & - &7.3528e+00 ,5.6235e+00 ,3.9228e+00 ,2.1569e+00 ,4.6872e-02 /) - kbo(:, 1,22, 4) = (/ & - &4.6404e+00 ,3.6182e+00 ,2.5692e+00 ,1.4322e+00 ,3.2495e-02 /) - kbo(:, 2,22, 4) = (/ & - &4.8647e+00 ,3.7820e+00 ,2.6806e+00 ,1.4906e+00 ,3.4441e-02 /) - kbo(:, 3,22, 4) = (/ & - &5.1076e+00 ,3.9577e+00 ,2.7989e+00 ,1.5529e+00 ,3.6349e-02 /) - kbo(:, 4,22, 4) = (/ & - &5.3767e+00 ,4.1547e+00 ,2.9316e+00 ,1.6226e+00 ,3.8200e-02 /) - kbo(:, 5,22, 4) = (/ & - &5.6763e+00 ,4.3747e+00 ,3.0789e+00 ,1.7012e+00 ,3.9814e-02 /) - kbo(:, 1,23, 4) = (/ & - &3.5795e+00 ,2.8211e+00 ,2.0153e+00 ,1.1263e+00 ,2.7571e-02 /) - kbo(:, 2,23, 4) = (/ & - &3.7577e+00 ,2.9513e+00 ,2.1035e+00 ,1.1732e+00 ,2.9222e-02 /) - kbo(:, 3,23, 4) = (/ & - &3.9530e+00 ,3.0936e+00 ,2.2016e+00 ,1.2254e+00 ,3.0874e-02 /) - kbo(:, 4,23, 4) = (/ & - &4.1701e+00 ,3.2524e+00 ,2.3097e+00 ,1.2838e+00 ,3.2339e-02 /) - kbo(:, 5,23, 4) = (/ & - &4.4121e+00 ,3.4311e+00 ,2.4318e+00 ,1.3490e+00 ,3.3498e-02 /) - kbo(:, 1,24, 4) = (/ & - &2.7499e+00 ,2.1929e+00 ,1.5716e+00 ,8.8208e-01 ,2.3328e-02 /) - kbo(:, 2,24, 4) = (/ & - &2.8912e+00 ,2.2961e+00 ,1.6422e+00 ,9.2052e-01 ,2.4747e-02 /) - kbo(:, 3,24, 4) = (/ & - &3.0489e+00 ,2.4127e+00 ,1.7231e+00 ,9.6426e-01 ,2.6067e-02 /) - kbo(:, 4,24, 4) = (/ & - &3.2231e+00 ,2.5412e+00 ,1.8120e+00 ,1.0128e+00 ,2.7124e-02 /) - kbo(:, 5,24, 4) = (/ & - &3.4149e+00 ,2.6844e+00 ,1.9115e+00 ,1.0663e+00 ,2.7906e-02 /) - kbo(:, 1,25, 4) = (/ & - &2.1432e+00 ,1.7277e+00 ,1.2393e+00 ,6.9912e-01 ,1.9707e-02 /) - kbo(:, 2,25, 4) = (/ & - &2.2580e+00 ,1.8124e+00 ,1.2983e+00 ,7.3186e-01 ,2.0862e-02 /) - kbo(:, 3,25, 4) = (/ & - &2.3862e+00 ,1.9090e+00 ,1.3657e+00 ,7.6856e-01 ,2.1834e-02 /) - kbo(:, 4,25, 4) = (/ & - &2.5268e+00 ,2.0149e+00 ,1.4403e+00 ,8.0968e-01 ,2.2567e-02 /) - kbo(:, 5,25, 4) = (/ & - &2.6782e+00 ,2.1290e+00 ,1.5196e+00 ,8.5344e-01 ,2.3120e-02 /) - kbo(:, 1,26, 4) = (/ & - &1.7021e+00 ,1.3844e+00 ,9.9410e-01 ,5.6358e-01 ,1.6610e-02 /) - kbo(:, 2,26, 4) = (/ & - &1.7967e+00 ,1.4558e+00 ,1.0446e+00 ,5.9163e-01 ,1.7478e-02 /) - kbo(:, 3,26, 4) = (/ & - &1.9029e+00 ,1.5366e+00 ,1.1015e+00 ,6.2314e-01 ,1.8168e-02 /) - kbo(:, 4,26, 4) = (/ & - &2.0167e+00 ,1.6240e+00 ,1.1633e+00 ,6.5758e-01 ,1.8695e-02 /) - kbo(:, 5,26, 4) = (/ & - &2.1386e+00 ,1.7169e+00 ,1.2284e+00 ,6.9400e-01 ,1.9096e-02 /) - kbo(:, 1,27, 4) = (/ & - &1.4057e+00 ,1.1500e+00 ,8.2663e-01 ,4.7009e-01 ,1.3925e-02 /) - kbo(:, 2,27, 4) = (/ & - &1.4879e+00 ,1.2132e+00 ,8.7128e-01 ,4.9476e-01 ,1.4552e-02 /) - kbo(:, 3,27, 4) = (/ & - &1.5769e+00 ,1.2821e+00 ,9.2036e-01 ,5.2229e-01 ,1.5059e-02 /) - kbo(:, 4,27, 4) = (/ & - &1.6734e+00 ,1.3576e+00 ,9.7388e-01 ,5.5224e-01 ,1.5448e-02 /) - kbo(:, 5,27, 4) = (/ & - &1.7761e+00 ,1.4364e+00 ,1.0297e+00 ,5.8351e-01 ,1.5741e-02 /) - kbo(:, 1,28, 4) = (/ & - &1.1944e+00 ,9.8092e-01 ,7.0555e-01 ,4.0148e-01 ,1.1607e-02 /) - kbo(:, 2,28, 4) = (/ & - &1.2669e+00 ,1.0377e+00 ,7.4577e-01 ,4.2386e-01 ,1.2073e-02 /) - kbo(:, 3,28, 4) = (/ & - &1.3434e+00 ,1.0982e+00 ,7.8916e-01 ,4.4819e-01 ,1.2454e-02 /) - kbo(:, 4,28, 4) = (/ & - &1.4276e+00 ,1.1642e+00 ,8.3605e-01 ,4.7463e-01 ,1.2747e-02 /) - kbo(:, 5,28, 4) = (/ & - &1.5174e+00 ,1.2340e+00 ,8.8572e-01 ,5.0242e-01 ,1.2962e-02 /) - kbo(:, 1,29, 4) = (/ & - &1.0796e+00 ,8.8738e-01 ,6.3729e-01 ,3.6140e-01 ,9.6469e-03 /) - kbo(:, 2,29, 4) = (/ & - &1.1462e+00 ,9.4012e-01 ,6.7481e-01 ,3.8241e-01 ,1.0006e-02 /) - kbo(:, 3,29, 4) = (/ & - &1.2166e+00 ,9.9676e-01 ,7.1549e-01 ,4.0534e-01 ,1.0291e-02 /) - kbo(:, 4,29, 4) = (/ & - &1.2950e+00 ,1.0580e+00 ,7.5913e-01 ,4.2989e-01 ,1.0512e-02 /) - kbo(:, 5,29, 4) = (/ & - &1.3796e+00 ,1.1246e+00 ,8.0670e-01 ,4.5638e-01 ,1.0678e-02 /) - kbo(:, 1,30, 4) = (/ & - &1.0009e+00 ,8.2254e-01 ,5.8934e-01 ,3.3271e-01 ,8.0058e-03 /) - kbo(:, 2,30, 4) = (/ & - &1.0631e+00 ,8.7256e-01 ,6.2533e-01 ,3.5305e-01 ,8.2800e-03 /) - kbo(:, 3,30, 4) = (/ & - &1.1308e+00 ,9.2710e-01 ,6.6420e-01 ,3.7481e-01 ,8.4963e-03 /) - kbo(:, 4,30, 4) = (/ & - &1.2063e+00 ,9.8617e-01 ,7.0646e-01 ,3.9833e-01 ,8.6678e-03 /) - kbo(:, 5,30, 4) = (/ & - &1.2872e+00 ,1.0507e+00 ,7.5301e-01 ,4.2433e-01 ,8.7939e-03 /) - kbo(:, 1,31, 4) = (/ & - &9.7660e-01 ,8.0084e-01 ,5.7177e-01 ,3.2070e-01 ,6.6382e-03 /) - kbo(:, 2,31, 4) = (/ & - &1.0374e+00 ,8.5014e-01 ,6.0734e-01 ,3.4069e-01 ,6.8456e-03 /) - kbo(:, 3,31, 4) = (/ & - &1.1075e+00 ,9.0581e-01 ,6.4681e-01 ,3.6261e-01 ,7.0127e-03 /) - kbo(:, 4,31, 4) = (/ & - &1.1834e+00 ,9.6644e-01 ,6.9039e-01 ,3.8675e-01 ,7.1469e-03 /) - kbo(:, 5,31, 4) = (/ & - &1.2660e+00 ,1.0326e+00 ,7.3825e-01 ,4.1334e-01 ,7.2367e-03 /) - kbo(:, 1,32, 4) = (/ & - &9.6422e-01 ,7.8878e-01 ,5.6132e-01 ,3.1280e-01 ,5.4958e-03 /) - kbo(:, 2,32, 4) = (/ & - &1.0268e+00 ,8.3964e-01 ,5.9767e-01 ,3.3295e-01 ,5.6574e-03 /) - kbo(:, 3,32, 4) = (/ & - &1.0993e+00 ,8.9729e-01 ,6.3870e-01 ,3.5556e-01 ,5.7908e-03 /) - kbo(:, 4,32, 4) = (/ & - &1.1769e+00 ,9.5960e-01 ,6.8365e-01 ,3.8056e-01 ,5.8892e-03 /) - kbo(:, 5,32, 4) = (/ & - &1.2618e+00 ,1.0283e+00 ,7.3351e-01 ,4.0808e-01 ,5.9563e-03 /) - kbo(:, 1,33, 4) = (/ & - &9.7044e-01 ,7.9175e-01 ,5.6148e-01 ,3.1071e-01 ,4.5479e-03 /) - kbo(:, 2,33, 4) = (/ & - &1.0377e+00 ,8.4609e-01 ,5.9989e-01 ,3.3169e-01 ,4.6770e-03 /) - kbo(:, 3,33, 4) = (/ & - &1.1127e+00 ,9.0612e-01 ,6.4309e-01 ,3.5556e-01 ,4.7785e-03 /) - kbo(:, 4,33, 4) = (/ & - &1.1941e+00 ,9.7205e-01 ,6.9062e-01 ,3.8191e-01 ,4.8530e-03 /) - kbo(:, 5,33, 4) = (/ & - &1.2827e+00 ,1.0440e+00 ,7.4287e-01 ,4.1072e-01 ,4.9022e-03 /) - kbo(:, 1,34, 4) = (/ & - &9.5216e-01 ,7.7596e-01 ,5.4886e-01 ,3.0190e-01 ,3.7602e-03 /) - kbo(:, 2,34, 4) = (/ & - &1.0214e+00 ,8.3168e-01 ,5.8836e-01 ,3.2354e-01 ,3.8612e-03 /) - kbo(:, 3,34, 4) = (/ & - &1.0976e+00 ,8.9321e-01 ,6.3261e-01 ,3.4797e-01 ,3.9398e-03 /) - kbo(:, 4,34, 4) = (/ & - &1.1802e+00 ,9.6059e-01 ,6.8153e-01 ,3.7517e-01 ,3.9961e-03 /) - kbo(:, 5,34, 4) = (/ & - &1.2700e+00 ,1.0340e+00 ,7.3462e-01 ,4.0436e-01 ,4.0321e-03 /) - kbo(:, 1,35, 4) = (/ & - &9.3109e-01 ,7.5807e-01 ,5.3485e-01 ,2.9258e-01 ,3.0990e-03 /) - kbo(:, 2,35, 4) = (/ & - &1.0014e+00 ,8.1463e-01 ,5.7510e-01 ,3.1470e-01 ,3.1794e-03 /) - kbo(:, 3,35, 4) = (/ & - &1.0779e+00 ,8.7703e-01 ,6.2017e-01 ,3.3965e-01 ,3.2414e-03 /) - kbo(:, 4,35, 4) = (/ & - &1.1611e+00 ,9.4542e-01 ,6.6993e-01 ,3.6723e-01 ,3.2866e-03 /) - kbo(:, 5,35, 4) = (/ & - &1.2524e+00 ,1.0199e+00 ,7.2388e-01 ,3.9699e-01 ,3.3190e-03 /) - kbo(:, 1,36, 4) = (/ & - &8.9907e-01 ,7.3170e-01 ,5.1516e-01 ,2.8053e-01 ,2.5454e-03 /) - kbo(:, 2,36, 4) = (/ & - &9.6904e-01 ,7.8811e-01 ,5.5541e-01 ,3.0260e-01 ,2.6116e-03 /) - kbo(:, 3,36, 4) = (/ & - &1.0454e+00 ,8.5074e-01 ,6.0077e-01 ,3.2780e-01 ,2.6639e-03 /) - kbo(:, 4,36, 4) = (/ & - &1.1275e+00 ,9.1876e-01 ,6.5041e-01 ,3.5533e-01 ,2.7017e-03 /) - kbo(:, 5,36, 4) = (/ & - &1.2188e+00 ,9.9337e-01 ,7.0446e-01 ,3.8526e-01 ,2.7298e-03 /) - kbo(:, 1,37, 4) = (/ & - &8.3748e-01 ,6.8208e-01 ,4.7958e-01 ,2.6026e-01 ,2.0819e-03 /) - kbo(:, 2,37, 4) = (/ & - &9.0437e-01 ,7.3619e-01 ,5.1822e-01 ,2.8144e-01 ,2.1383e-03 /) - kbo(:, 3,37, 4) = (/ & - &9.7724e-01 ,7.9645e-01 ,5.6196e-01 ,3.0574e-01 ,2.1835e-03 /) - kbo(:, 4,37, 4) = (/ & - &1.0560e+00 ,8.6198e-01 ,6.0986e-01 ,3.3246e-01 ,2.2167e-03 /) - kbo(:, 5,37, 4) = (/ & - &1.1435e+00 ,9.3399e-01 ,6.6218e-01 ,3.6148e-01 ,2.2423e-03 /) - kbo(:, 1,38, 4) = (/ & - &7.9164e-01 ,6.4489e-01 ,4.5275e-01 ,2.4481e-01 ,1.7033e-03 /) - kbo(:, 2,38, 4) = (/ & - &8.5631e-01 ,6.9735e-01 ,4.9025e-01 ,2.6537e-01 ,1.7520e-03 /) - kbo(:, 3,38, 4) = (/ & - &9.2681e-01 ,7.5605e-01 ,5.3294e-01 ,2.8911e-01 ,1.7893e-03 /) - kbo(:, 4,38, 4) = (/ & - &1.0032e+00 ,8.1986e-01 ,5.7959e-01 ,3.1521e-01 ,1.8197e-03 /) - kbo(:, 5,38, 4) = (/ & - &1.0885e+00 ,8.9047e-01 ,6.3102e-01 ,3.4379e-01 ,1.8432e-03 /) - kbo(:, 1,39, 4) = (/ & - &7.6561e-01 ,6.2337e-01 ,4.3685e-01 ,2.3531e-01 ,1.3951e-03 /) - kbo(:, 2,39, 4) = (/ & - &8.2959e-01 ,6.7544e-01 ,4.7411e-01 ,2.5572e-01 ,1.4362e-03 /) - kbo(:, 3,39, 4) = (/ & - &8.9955e-01 ,7.3386e-01 ,5.1664e-01 ,2.7941e-01 ,1.4681e-03 /) - kbo(:, 4,39, 4) = (/ & - &9.7533e-01 ,7.9745e-01 ,5.6319e-01 ,3.0547e-01 ,1.4952e-03 /) - kbo(:, 5,39, 4) = (/ & - &1.0606e+00 ,8.6829e-01 ,6.1487e-01 ,3.3424e-01 ,1.5163e-03 /) - kbo(:, 1,40, 4) = (/ & - &6.9042e-01 ,5.6314e-01 ,3.9439e-01 ,2.1202e-01 ,1.1367e-03 /) - kbo(:, 2,40, 4) = (/ & - &7.4888e-01 ,6.1108e-01 ,4.2878e-01 ,2.3085e-01 ,1.1721e-03 /) - kbo(:, 3,40, 4) = (/ & - &8.1362e-01 ,6.6539e-01 ,4.6832e-01 ,2.5287e-01 ,1.1998e-03 /) - kbo(:, 4,40, 4) = (/ & - &8.8373e-01 ,7.2479e-01 ,5.1188e-01 ,2.7730e-01 ,1.2242e-03 /) - kbo(:, 5,40, 4) = (/ & - &9.6254e-01 ,7.9070e-01 ,5.6015e-01 ,3.0430e-01 ,1.2434e-03 /) - kbo(:, 1,41, 4) = (/ & - &6.2032e-01 ,5.0688e-01 ,3.5482e-01 ,1.9040e-01 ,9.2546e-04 /) - kbo(:, 2,41, 4) = (/ & - &6.7393e-01 ,5.5118e-01 ,3.8660e-01 ,2.0779e-01 ,9.5549e-04 /) - kbo(:, 3,41, 4) = (/ & - &7.3329e-01 ,6.0114e-01 ,4.2302e-01 ,2.2810e-01 ,9.8005e-04 /) - kbo(:, 4,41, 4) = (/ & - &7.9788e-01 ,6.5636e-01 ,4.6356e-01 ,2.5084e-01 ,1.0016e-03 /) - kbo(:, 5,41, 4) = (/ & - &8.7082e-01 ,7.1789e-01 ,5.0871e-01 ,2.7615e-01 ,1.0188e-03 /) - kbo(:, 1,42, 4) = (/ & - &5.6327e-01 ,4.6093e-01 ,3.2241e-01 ,1.7266e-01 ,7.5328e-04 /) - kbo(:, 2,42, 4) = (/ & - &6.1295e-01 ,5.0232e-01 ,3.5212e-01 ,1.8890e-01 ,7.7877e-04 /) - kbo(:, 3,42, 4) = (/ & - &6.6777e-01 ,5.4861e-01 ,3.8590e-01 ,2.0776e-01 ,8.0043e-04 /) - kbo(:, 4,42, 4) = (/ & - &7.2797e-01 ,6.0039e-01 ,4.2397e-01 ,2.2912e-01 ,8.1936e-04 /) - kbo(:, 5,42, 4) = (/ & - &7.9621e-01 ,6.5839e-01 ,4.6656e-01 ,2.5303e-01 ,8.3483e-04 /) - kbo(:, 1,43, 4) = (/ & - &5.1362e-01 ,4.2068e-01 ,2.9391e-01 ,1.5704e-01 ,6.1131e-04 /) - kbo(:, 2,43, 4) = (/ & - &5.5956e-01 ,4.5932e-01 ,3.2171e-01 ,1.7223e-01 ,6.3359e-04 /) - kbo(:, 3,43, 4) = (/ & - &6.1053e-01 ,5.0241e-01 ,3.5315e-01 ,1.8977e-01 ,6.5237e-04 /) - kbo(:, 4,43, 4) = (/ & - &6.6664e-01 ,5.5084e-01 ,3.8881e-01 ,2.0981e-01 ,6.6921e-04 /) - kbo(:, 5,43, 4) = (/ & - &7.3047e-01 ,6.0544e-01 ,4.2894e-01 ,2.3232e-01 ,6.8300e-04 /) - kbo(:, 1,44, 4) = (/ & - &4.7369e-01 ,3.8803e-01 ,2.7069e-01 ,1.4426e-01 ,4.9540e-04 /) - kbo(:, 2,44, 4) = (/ & - &5.1629e-01 ,4.2426e-01 ,2.9688e-01 ,1.5856e-01 ,5.1475e-04 /) - kbo(:, 3,44, 4) = (/ & - &5.6430e-01 ,4.6484e-01 ,3.2640e-01 ,1.7499e-01 ,5.3131e-04 /) - kbo(:, 4,44, 4) = (/ & - &6.1717e-01 ,5.1049e-01 ,3.6006e-01 ,1.9393e-01 ,5.4642e-04 /) - kbo(:, 5,44, 4) = (/ & - &6.7746e-01 ,5.6241e-01 ,3.9820e-01 ,2.1537e-01 ,5.5870e-04 /) - kbo(:, 1,45, 4) = (/ & - &4.4552e-01 ,3.6469e-01 ,2.5398e-01 ,1.3497e-01 ,4.0119e-04 /) - kbo(:, 2,45, 4) = (/ & - &4.8593e-01 ,3.9940e-01 ,2.7911e-01 ,1.4871e-01 ,4.1803e-04 /) - kbo(:, 3,45, 4) = (/ & - &5.3210e-01 ,4.3837e-01 ,3.0742e-01 ,1.6436e-01 ,4.3281e-04 /) - kbo(:, 4,45, 4) = (/ & - &5.8266e-01 ,4.8202e-01 ,3.3961e-01 ,1.8254e-01 ,4.4586e-04 /) - kbo(:, 5,45, 4) = (/ & - &6.4061e-01 ,5.3215e-01 ,3.7643e-01 ,2.0327e-01 ,4.5687e-04 /) - kbo(:, 1,46, 4) = (/ & - &4.2249e-01 ,3.4536e-01 ,2.4007e-01 ,1.2719e-01 ,3.2444e-04 /) - kbo(:, 2,46, 4) = (/ & - &4.6085e-01 ,3.7858e-01 ,2.6416e-01 ,1.4037e-01 ,3.3911e-04 /) - kbo(:, 3,46, 4) = (/ & - &5.0558e-01 ,4.1641e-01 ,2.9158e-01 ,1.5550e-01 ,3.5210e-04 /) - kbo(:, 4,46, 4) = (/ & - &5.5446e-01 ,4.5852e-01 ,3.2261e-01 ,1.7296e-01 ,3.6323e-04 /) - kbo(:, 5,46, 4) = (/ & - &6.1034e-01 ,5.0695e-01 ,3.5817e-01 ,1.9305e-01 ,3.7330e-04 /) - kbo(:, 1,47, 4) = (/ & - &3.9554e-01 ,3.2291e-01 ,2.2401e-01 ,1.1833e-01 ,2.6160e-04 /) - kbo(:, 2,47, 4) = (/ & - &4.3146e-01 ,3.5412e-01 ,2.4668e-01 ,1.3078e-01 ,2.7433e-04 /) - kbo(:, 3,47, 4) = (/ & - &4.7369e-01 ,3.9022e-01 ,2.7284e-01 ,1.4515e-01 ,2.8554e-04 /) - kbo(:, 4,47, 4) = (/ & - &5.2055e-01 ,4.3044e-01 ,3.0232e-01 ,1.6167e-01 ,2.9527e-04 /) - kbo(:, 5,47, 4) = (/ & - &5.7336e-01 ,4.7635e-01 ,3.3620e-01 ,1.8084e-01 ,3.0428e-04 /) - kbo(:, 1,48, 4) = (/ & - &3.8090e-01 ,3.1036e-01 ,2.1482e-01 ,1.1310e-01 ,2.1085e-04 /) - kbo(:, 2,48, 4) = (/ & - &4.1533e-01 ,3.4019e-01 ,2.3651e-01 ,1.2501e-01 ,2.2180e-04 /) - kbo(:, 3,48, 4) = (/ & - &4.5614e-01 ,3.7537e-01 ,2.6197e-01 ,1.3898e-01 ,2.3143e-04 /) - kbo(:, 4,48, 4) = (/ & - &5.0246e-01 ,4.1492e-01 ,2.9081e-01 ,1.5505e-01 ,2.3998e-04 /) - kbo(:, 5,48, 4) = (/ & - &5.5365e-01 ,4.5945e-01 ,3.2372e-01 ,1.7366e-01 ,2.4799e-04 /) - kbo(:, 1,49, 4) = (/ & - &3.8223e-01 ,3.1052e-01 ,2.1444e-01 ,1.1246e-01 ,1.6987e-04 /) - kbo(:, 2,49, 4) = (/ & - &4.1659e-01 ,3.4001e-01 ,2.3576e-01 ,1.2419e-01 ,1.7919e-04 /) - kbo(:, 3,49, 4) = (/ & - &4.5734e-01 ,3.7525e-01 ,2.6133e-01 ,1.3821e-01 ,1.8743e-04 /) - kbo(:, 4,49, 4) = (/ & - &5.0487e-01 ,4.1574e-01 ,2.9072e-01 ,1.5448e-01 ,1.9508e-04 /) - kbo(:, 5,49, 4) = (/ & - &5.5695e-01 ,4.6079e-01 ,3.2385e-01 ,1.7317e-01 ,2.0224e-04 /) - kbo(:, 1,50, 4) = (/ & - &3.6631e-01 ,2.9712e-01 ,2.0481e-01 ,1.0712e-01 ,1.3672e-04 /) - kbo(:, 2,50, 4) = (/ & - &3.9879e-01 ,3.2486e-01 ,2.2483e-01 ,1.1811e-01 ,1.4458e-04 /) - kbo(:, 3,50, 4) = (/ & - &4.3761e-01 ,3.5858e-01 ,2.4934e-01 ,1.3160e-01 ,1.5166e-04 /) - kbo(:, 4,50, 4) = (/ & - &4.8398e-01 ,3.9821e-01 ,2.7799e-01 ,1.4737e-01 ,1.5830e-04 /) - kbo(:, 5,50, 4) = (/ & - &5.3499e-01 ,4.4212e-01 ,3.1022e-01 ,1.6549e-01 ,1.6465e-04 /) - kbo(:, 1,51, 4) = (/ & - &3.4406e-01 ,2.7861e-01 ,1.9179e-01 ,1.0006e-01 ,1.0998e-04 /) - kbo(:, 2,51, 4) = (/ & - &3.7372e-01 ,3.0420e-01 ,2.1018e-01 ,1.1015e-01 ,1.1652e-04 /) - kbo(:, 3,51, 4) = (/ & - &4.0998e-01 ,3.3570e-01 ,2.3310e-01 ,1.2281e-01 ,1.2263e-04 /) - kbo(:, 4,51, 4) = (/ & - &4.5397e-01 ,3.7347e-01 ,2.6041e-01 ,1.3780e-01 ,1.2829e-04 /) - kbo(:, 5,51, 4) = (/ & - &5.0293e-01 ,4.1560e-01 ,2.9124e-01 ,1.5503e-01 ,1.3386e-04 /) - kbo(:, 1,52, 4) = (/ & - &3.3305e-01 ,2.6887e-01 ,1.8470e-01 ,9.6116e-02 ,8.8414e-05 /) - kbo(:, 2,52, 4) = (/ & - &3.6030e-01 ,2.9285e-01 ,2.0201e-01 ,1.0559e-01 ,9.3941e-05 /) - kbo(:, 3,52, 4) = (/ & - &3.9501e-01 ,3.2288e-01 ,2.2382e-01 ,1.1765e-01 ,9.9142e-05 /) - kbo(:, 4,52, 4) = (/ & - &4.3753e-01 ,3.5954e-01 ,2.5031e-01 ,1.3217e-01 ,1.0404e-04 /) - kbo(:, 5,52, 4) = (/ & - &4.8592e-01 ,4.0113e-01 ,2.8062e-01 ,1.4902e-01 ,1.0887e-04 /) - kbo(:, 1,53, 4) = (/ & - &3.3673e-01 ,2.7062e-01 ,1.8541e-01 ,9.6126e-02 ,7.1043e-05 /) - kbo(:, 2,53, 4) = (/ & - &3.6211e-01 ,2.9355e-01 ,2.0209e-01 ,1.0535e-01 ,7.5715e-05 /) - kbo(:, 3,53, 4) = (/ & - &3.9659e-01 ,3.2308e-01 ,2.2347e-01 ,1.1715e-01 ,8.0134e-05 /) - kbo(:, 4,53, 4) = (/ & - &4.3895e-01 ,3.5976e-01 ,2.5000e-01 ,1.3170e-01 ,8.4354e-05 /) - kbo(:, 5,53, 4) = (/ & - &4.8875e-01 ,4.0230e-01 ,2.8086e-01 ,1.4875e-01 ,8.8431e-05 /) - kbo(:, 1,54, 4) = (/ & - &2.9565e-01 ,2.3718e-01 ,1.6225e-01 ,8.3929e-02 ,5.7062e-05 /) - kbo(:, 2,54, 4) = (/ & - &3.1566e-01 ,2.5610e-01 ,1.7621e-01 ,9.1726e-02 ,6.0930e-05 /) - kbo(:, 3,54, 4) = (/ & - &3.4501e-01 ,2.8145e-01 ,1.9453e-01 ,1.0184e-01 ,6.4630e-05 /) - kbo(:, 4,54, 4) = (/ & - &3.8166e-01 ,3.1342e-01 ,2.1772e-01 ,1.1458e-01 ,6.8122e-05 /) - kbo(:, 5,54, 4) = (/ & - &4.2580e-01 ,3.5139e-01 ,2.4524e-01 ,1.2978e-01 ,7.1556e-05 /) - kbo(:, 1,55, 4) = (/ & - &2.3763e-01 ,1.9054e-01 ,1.3023e-01 ,6.7270e-02 ,4.5734e-05 /) - kbo(:, 2,55, 4) = (/ & - &2.5160e-01 ,2.0457e-01 ,1.4076e-01 ,7.3233e-02 ,4.8936e-05 /) - kbo(:, 3,55, 4) = (/ & - &2.7408e-01 ,2.2452e-01 ,1.5520e-01 ,8.1193e-02 ,5.2040e-05 /) - kbo(:, 4,55, 4) = (/ & - &3.0302e-01 ,2.4999e-01 ,1.7374e-01 ,9.1409e-02 ,5.4914e-05 /) - kbo(:, 5,55, 4) = (/ & - &3.3851e-01 ,2.8105e-01 ,1.9629e-01 ,1.0386e-01 ,5.7717e-05 /) - kbo(:, 1,56, 4) = (/ & - &1.9160e-01 ,1.5340e-01 ,1.0472e-01 ,5.4007e-02 ,3.6625e-05 /) - kbo(:, 2,56, 4) = (/ & - &2.0095e-01 ,1.6357e-01 ,1.1247e-01 ,5.8467e-02 ,3.9320e-05 /) - kbo(:, 3,56, 4) = (/ & - &2.1781e-01 ,1.7908e-01 ,1.2379e-01 ,6.4708e-02 ,4.1872e-05 /) - kbo(:, 4,56, 4) = (/ & - &2.4047e-01 ,1.9929e-01 ,1.3856e-01 ,7.2864e-02 ,4.4297e-05 /) - kbo(:, 5,56, 4) = (/ & - &2.6886e-01 ,2.2463e-01 ,1.5695e-01 ,8.3003e-02 ,4.6496e-05 /) - kbo(:, 1,57, 4) = (/ & - &1.5488e-01 ,1.2382e-01 ,8.4407e-02 ,4.3459e-02 ,2.9307e-05 /) - kbo(:, 2,57, 4) = (/ & - &1.6082e-01 ,1.3093e-01 ,8.9925e-02 ,4.6681e-02 ,3.1559e-05 /) - kbo(:, 3,57, 4) = (/ & - &1.7312e-01 ,1.4284e-01 ,9.8719e-02 ,5.1558e-02 ,3.3681e-05 /) - kbo(:, 4,57, 4) = (/ & - &1.9084e-01 ,1.5883e-01 ,1.1043e-01 ,5.8031e-02 ,3.5680e-05 /) - kbo(:, 5,57, 4) = (/ & - &2.1336e-01 ,1.7931e-01 ,1.2534e-01 ,6.6236e-02 ,3.7524e-05 /) - kbo(:, 1,58, 4) = (/ & - &3.3087e-02 ,3.2322e-02 ,2.8310e-02 ,2.0395e-02 ,2.3455e-05 /) - kbo(:, 2,58, 4) = (/ & - &3.4053e-02 ,3.3907e-02 ,2.9921e-02 ,2.1729e-02 ,2.5336e-05 /) - kbo(:, 3,58, 4) = (/ & - &3.6376e-02 ,3.6839e-02 ,3.2736e-02 ,2.3935e-02 ,2.7095e-05 /) - kbo(:, 4,58, 4) = (/ & - &4.0009e-02 ,4.0914e-02 ,3.6586e-02 ,2.6918e-02 ,2.8737e-05 /) - kbo(:, 5,58, 4) = (/ & - &4.4706e-02 ,4.6236e-02 ,4.1585e-02 ,3.0778e-02 ,3.0324e-05 /) - kbo(:, 1,59, 4) = (/ & - &3.1774e-02 ,2.9779e-02 ,2.4302e-02 ,1.5595e-02 ,1.9010e-05 /) - kbo(:, 2,59, 4) = (/ & - &3.2644e-02 ,3.1267e-02 ,2.5718e-02 ,1.6636e-02 ,2.0536e-05 /) - kbo(:, 3,59, 4) = (/ & - &3.4800e-02 ,3.4041e-02 ,2.8207e-02 ,1.8368e-02 ,2.1957e-05 /) - kbo(:, 4,59, 4) = (/ & - &3.8295e-02 ,3.7946e-02 ,3.1647e-02 ,2.0746e-02 ,2.3288e-05 /) - kbo(:, 5,59, 4) = (/ & - &4.2857e-02 ,4.3069e-02 ,3.6135e-02 ,2.3842e-02 ,2.4528e-05 /) - kbo(:, 1,13, 5) = (/ & - &3.9549e+02 ,2.9672e+02 ,1.9794e+02 ,9.9160e+01 ,2.1101e-01 /) - kbo(:, 2,13, 5) = (/ & - &4.0510e+02 ,3.0393e+02 ,2.0275e+02 ,1.0157e+02 ,2.1805e-01 /) - kbo(:, 3,13, 5) = (/ & - &4.1502e+02 ,3.1136e+02 ,2.0770e+02 ,1.0405e+02 ,2.2406e-01 /) - kbo(:, 4,13, 5) = (/ & - &4.2481e+02 ,3.1871e+02 ,2.1261e+02 ,1.0651e+02 ,2.2934e-01 /) - kbo(:, 5,13, 5) = (/ & - &4.3504e+02 ,3.2638e+02 ,2.1772e+02 ,1.0907e+02 ,2.3453e-01 /) - kbo(:, 1,14, 5) = (/ & - &2.0979e+02 ,1.5743e+02 ,1.0508e+02 ,5.2736e+01 ,1.8842e-01 /) - kbo(:, 2,14, 5) = (/ & - &2.1502e+02 ,1.6136e+02 ,1.0770e+02 ,5.4046e+01 ,1.9486e-01 /) - kbo(:, 3,14, 5) = (/ & - &2.2030e+02 ,1.6532e+02 ,1.1034e+02 ,5.5365e+01 ,2.0050e-01 /) - kbo(:, 4,14, 5) = (/ & - &2.2600e+02 ,1.6960e+02 ,1.1320e+02 ,5.6802e+01 ,2.0562e-01 /) - kbo(:, 5,14, 5) = (/ & - &2.3272e+02 ,1.7464e+02 ,1.1657e+02 ,5.8488e+01 ,2.1024e-01 /) - kbo(:, 1,15, 5) = (/ & - &1.1299e+02 ,8.4842e+01 ,5.6692e+01 ,2.8544e+01 ,1.6706e-01 /) - kbo(:, 2,15, 5) = (/ & - &1.1594e+02 ,8.7050e+01 ,5.8163e+01 ,2.9281e+01 ,1.7285e-01 /) - kbo(:, 3,15, 5) = (/ & - &1.1912e+02 ,8.9439e+01 ,5.9757e+01 ,3.0081e+01 ,1.7816e-01 /) - kbo(:, 4,15, 5) = (/ & - &1.2274e+02 ,9.2159e+01 ,6.1575e+01 ,3.0997e+01 ,1.8306e-01 /) - kbo(:, 5,15, 5) = (/ & - &1.2711e+02 ,9.5434e+01 ,6.3760e+01 ,3.2089e+01 ,1.8793e-01 /) - kbo(:, 1,16, 5) = (/ & - &7.2342e+01 ,5.4353e+01 ,3.6365e+01 ,1.8388e+01 ,1.4721e-01 /) - kbo(:, 2,16, 5) = (/ & - &7.4310e+01 ,5.5827e+01 ,3.7348e+01 ,1.8883e+01 ,1.5241e-01 /) - kbo(:, 3,16, 5) = (/ & - &7.6651e+01 ,5.7588e+01 ,3.8528e+01 ,1.9478e+01 ,1.5739e-01 /) - kbo(:, 4,16, 5) = (/ & - &7.9417e+01 ,5.9665e+01 ,3.9914e+01 ,2.0174e+01 ,1.6237e-01 /) - kbo(:, 5,16, 5) = (/ & - &8.2509e+01 ,6.1984e+01 ,4.1462e+01 ,2.0947e+01 ,1.6729e-01 /) - kbo(:, 1,17, 5) = (/ & - &4.7912e+01 ,3.6032e+01 ,2.4156e+01 ,1.2312e+01 ,1.2867e-01 /) - kbo(:, 2,17, 5) = (/ & - &4.9396e+01 ,3.7145e+01 ,2.4898e+01 ,1.2683e+01 ,1.3345e-01 /) - kbo(:, 3,17, 5) = (/ & - &5.1211e+01 ,3.8509e+01 ,2.5812e+01 ,1.3139e+01 ,1.3833e-01 /) - kbo(:, 4,17, 5) = (/ & - &5.3243e+01 ,4.0036e+01 ,2.6830e+01 ,1.3649e+01 ,1.4345e-01 /) - kbo(:, 5,17, 5) = (/ & - &5.5359e+01 ,4.1621e+01 ,2.7887e+01 ,1.4174e+01 ,1.4839e-01 /) - kbo(:, 1,18, 5) = (/ & - &3.2517e+01 ,2.4486e+01 ,1.6464e+01 ,8.5255e+00 ,1.1175e-01 /) - kbo(:, 2,18, 5) = (/ & - &3.3702e+01 ,2.5376e+01 ,1.7056e+01 ,8.8105e+00 ,1.1647e-01 /) - kbo(:, 3,18, 5) = (/ & - &3.5055e+01 ,2.6392e+01 ,1.7736e+01 ,9.1463e+00 ,1.2136e-01 /) - kbo(:, 4,18, 5) = (/ & - &3.6466e+01 ,2.7452e+01 ,1.8446e+01 ,9.5008e+00 ,1.2627e-01 /) - kbo(:, 5,18, 5) = (/ & - &3.7955e+01 ,2.8569e+01 ,1.9189e+01 ,9.8619e+00 ,1.3101e-01 /) - kbo(:, 1,19, 5) = (/ & - &2.1727e+01 ,1.6393e+01 ,1.1086e+01 ,5.8761e+00 ,9.6819e-02 /) - kbo(:, 2,19, 5) = (/ & - &2.2617e+01 ,1.7062e+01 ,1.1530e+01 ,6.0896e+00 ,1.0144e-01 /) - kbo(:, 3,19, 5) = (/ & - &2.3543e+01 ,1.7760e+01 ,1.1998e+01 ,6.3260e+00 ,1.0605e-01 /) - kbo(:, 4,19, 5) = (/ & - &2.4512e+01 ,1.8488e+01 ,1.2483e+01 ,6.5653e+00 ,1.1055e-01 /) - kbo(:, 5,19, 5) = (/ & - &2.5548e+01 ,1.9265e+01 ,1.2998e+01 ,6.8170e+00 ,1.1478e-01 /) - kbo(:, 1,20, 5) = (/ & - &1.5756e+01 ,1.1916e+01 ,8.1383e+00 ,4.3914e+00 ,8.3853e-02 /) - kbo(:, 2,20, 5) = (/ & - &1.6431e+01 ,1.2425e+01 ,8.4724e+00 ,4.5624e+00 ,8.8103e-02 /) - kbo(:, 3,20, 5) = (/ & - &1.7121e+01 ,1.2945e+01 ,8.8179e+00 ,4.7428e+00 ,9.2252e-02 /) - kbo(:, 4,20, 5) = (/ & - &1.7848e+01 ,1.3492e+01 ,9.1779e+00 ,4.9264e+00 ,9.6228e-02 /) - kbo(:, 5,20, 5) = (/ & - &1.8606e+01 ,1.4060e+01 ,9.5528e+00 ,5.1134e+00 ,9.9993e-02 /) - kbo(:, 1,21, 5) = (/ & - &1.1787e+01 ,8.9459e+00 ,6.1836e+00 ,3.3861e+00 ,7.2353e-02 /) - kbo(:, 2,21, 5) = (/ & - &1.2303e+01 ,9.3354e+00 ,6.4401e+00 ,3.5254e+00 ,7.6084e-02 /) - kbo(:, 3,21, 5) = (/ & - &1.2826e+01 ,9.7292e+00 ,6.7034e+00 ,3.6681e+00 ,7.9750e-02 /) - kbo(:, 4,21, 5) = (/ & - &1.3367e+01 ,1.0136e+01 ,6.9714e+00 ,3.8111e+00 ,8.3233e-02 /) - kbo(:, 5,21, 5) = (/ & - &1.3957e+01 ,1.0578e+01 ,7.2613e+00 ,3.9589e+00 ,8.6478e-02 /) - kbo(:, 1,22, 5) = (/ & - &9.0718e+00 ,6.9242e+00 ,4.8361e+00 ,2.6781e+00 ,6.2307e-02 /) - kbo(:, 2,22, 5) = (/ & - &9.4616e+00 ,7.2180e+00 ,5.0370e+00 ,2.7912e+00 ,6.5577e-02 /) - kbo(:, 3,22, 5) = (/ & - &9.8598e+00 ,7.5169e+00 ,5.2399e+00 ,2.9065e+00 ,6.8755e-02 /) - kbo(:, 4,22, 5) = (/ & - &1.0285e+01 ,7.8355e+00 ,5.4531e+00 ,3.0213e+00 ,7.1732e-02 /) - kbo(:, 5,22, 5) = (/ & - &1.0774e+01 ,8.1994e+00 ,5.6924e+00 ,3.1454e+00 ,7.4544e-02 /) - kbo(:, 1,23, 5) = (/ & - &7.0162e+00 ,5.3998e+00 ,3.8098e+00 ,2.1262e+00 ,5.3397e-02 /) - kbo(:, 2,23, 5) = (/ & - &7.3118e+00 ,5.6231e+00 ,3.9665e+00 ,2.2161e+00 ,5.6221e-02 /) - kbo(:, 3,23, 5) = (/ & - &7.6257e+00 ,5.8582e+00 ,4.1301e+00 ,2.3090e+00 ,5.8902e-02 /) - kbo(:, 4,23, 5) = (/ & - &7.9740e+00 ,6.1181e+00 ,4.3060e+00 ,2.4033e+00 ,6.1507e-02 /) - kbo(:, 5,23, 5) = (/ & - &8.3852e+00 ,6.4219e+00 ,4.5083e+00 ,2.5100e+00 ,6.3983e-02 /) - kbo(:, 1,24, 5) = (/ & - &5.3945e+00 ,4.1959e+00 ,2.9887e+00 ,1.6764e+00 ,4.5562e-02 /) - kbo(:, 2,24, 5) = (/ & - &5.6263e+00 ,4.3723e+00 ,3.1153e+00 ,1.7491e+00 ,4.7953e-02 /) - kbo(:, 3,24, 5) = (/ & - &5.8803e+00 ,4.5632e+00 ,3.2505e+00 ,1.8236e+00 ,5.0272e-02 /) - kbo(:, 4,24, 5) = (/ & - &6.1740e+00 ,4.7820e+00 ,3.4008e+00 ,1.9048e+00 ,5.2561e-02 /) - kbo(:, 5,24, 5) = (/ & - &6.5136e+00 ,5.0303e+00 ,3.5679e+00 ,1.9952e+00 ,5.4580e-02 /) - kbo(:, 1,25, 5) = (/ & - &4.2050e+00 ,3.3091e+00 ,2.3724e+00 ,1.3359e+00 ,3.8734e-02 /) - kbo(:, 2,25, 5) = (/ & - &4.3935e+00 ,3.4537e+00 ,2.4783e+00 ,1.3955e+00 ,4.0785e-02 /) - kbo(:, 3,25, 5) = (/ & - &4.6090e+00 ,3.6169e+00 ,2.5944e+00 ,1.4600e+00 ,4.2817e-02 /) - kbo(:, 4,25, 5) = (/ & - &4.8571e+00 ,3.8012e+00 ,2.7227e+00 ,1.5304e+00 ,4.4658e-02 /) - kbo(:, 5,25, 5) = (/ & - &5.1379e+00 ,4.0071e+00 ,2.8658e+00 ,1.6091e+00 ,4.6106e-02 /) - kbo(:, 1,26, 5) = (/ & - &3.3393e+00 ,2.6590e+00 ,1.9126e+00 ,1.0812e+00 ,3.2872e-02 /) - kbo(:, 2,26, 5) = (/ & - &3.4998e+00 ,2.7840e+00 ,2.0042e+00 ,1.1322e+00 ,3.4655e-02 /) - kbo(:, 3,26, 5) = (/ & - &3.6839e+00 ,2.9244e+00 ,2.1044e+00 ,1.1892e+00 ,3.6289e-02 /) - kbo(:, 4,26, 5) = (/ & - &3.8971e+00 ,3.0834e+00 ,2.2165e+00 ,1.2514e+00 ,3.7614e-02 /) - kbo(:, 5,26, 5) = (/ & - &4.1266e+00 ,3.2542e+00 ,2.3379e+00 ,1.3199e+00 ,3.8535e-02 /) - kbo(:, 1,27, 5) = (/ & - &2.7587e+00 ,2.2186e+00 ,1.5971e+00 ,9.0467e-01 ,2.7863e-02 /) - kbo(:, 2,27, 5) = (/ & - &2.9012e+00 ,2.3317e+00 ,1.6793e+00 ,9.5148e-01 ,2.9310e-02 /) - kbo(:, 3,27, 5) = (/ & - &3.0653e+00 ,2.4577e+00 ,1.7694e+00 ,1.0026e+00 ,3.0500e-02 /) - kbo(:, 4,27, 5) = (/ & - &3.2491e+00 ,2.5968e+00 ,1.8696e+00 ,1.0593e+00 ,3.1389e-02 /) - kbo(:, 5,27, 5) = (/ & - &3.4443e+00 ,2.7432e+00 ,1.9752e+00 ,1.1204e+00 ,3.1994e-02 /) - kbo(:, 1,28, 5) = (/ & - &2.3461e+00 ,1.9019e+00 ,1.3684e+00 ,7.7601e-01 ,2.3534e-02 /) - kbo(:, 2,28, 5) = (/ & - &2.4760e+00 ,2.0059e+00 ,1.4439e+00 ,8.1944e-01 ,2.4611e-02 /) - kbo(:, 3,28, 5) = (/ & - &2.6235e+00 ,2.1209e+00 ,1.5268e+00 ,8.6687e-01 ,2.5434e-02 /) - kbo(:, 4,28, 5) = (/ & - &2.7836e+00 ,2.2441e+00 ,1.6160e+00 ,9.1849e-01 ,2.6044e-02 /) - kbo(:, 5,28, 5) = (/ & - &2.9562e+00 ,2.3753e+00 ,1.7120e+00 ,9.7389e-01 ,2.6449e-02 /) - kbo(:, 1,29, 5) = (/ & - &2.1229e+00 ,1.7281e+00 ,1.2411e+00 ,7.0258e-01 ,1.9767e-02 /) - kbo(:, 2,29, 5) = (/ & - &2.2483e+00 ,1.8286e+00 ,1.3142e+00 ,7.4438e-01 ,2.0526e-02 /) - kbo(:, 3,29, 5) = (/ & - &2.3867e+00 ,1.9376e+00 ,1.3932e+00 ,7.8990e-01 ,2.1121e-02 /) - kbo(:, 4,29, 5) = (/ & - &2.5370e+00 ,2.0544e+00 ,1.4782e+00 ,8.3936e-01 ,2.1540e-02 /) - kbo(:, 5,29, 5) = (/ & - &2.7005e+00 ,2.1808e+00 ,1.5709e+00 ,8.9251e-01 ,2.1826e-02 /) - kbo(:, 1,30, 5) = (/ & - &1.9731e+00 ,1.6098e+00 ,1.1534e+00 ,6.5097e-01 ,1.6498e-02 /) - kbo(:, 2,30, 5) = (/ & - &2.0958e+00 ,1.7088e+00 ,1.2257e+00 ,6.9208e-01 ,1.7054e-02 /) - kbo(:, 3,30, 5) = (/ & - &2.2285e+00 ,1.8139e+00 ,1.3022e+00 ,7.3642e-01 ,1.7482e-02 /) - kbo(:, 4,30, 5) = (/ & - &2.3729e+00 ,1.9280e+00 ,1.3861e+00 ,7.8518e-01 ,1.7790e-02 /) - kbo(:, 5,30, 5) = (/ & - &2.5353e+00 ,2.0546e+00 ,1.4785e+00 ,8.3767e-01 ,1.7989e-02 /) - kbo(:, 1,31, 5) = (/ & - &1.9340e+00 ,1.5772e+00 ,1.1264e+00 ,6.3182e-01 ,1.3731e-02 /) - kbo(:, 2,31, 5) = (/ & - &2.0574e+00 ,1.6773e+00 ,1.1995e+00 ,6.7358e-01 ,1.4152e-02 /) - kbo(:, 3,31, 5) = (/ & - &2.1914e+00 ,1.7848e+00 ,1.2781e+00 ,7.1915e-01 ,1.4466e-02 /) - kbo(:, 4,31, 5) = (/ & - &2.3406e+00 ,1.9025e+00 ,1.3648e+00 ,7.6925e-01 ,1.4687e-02 /) - kbo(:, 5,31, 5) = (/ & - &2.5107e+00 ,2.0354e+00 ,1.4612e+00 ,8.2397e-01 ,1.4843e-02 /) - kbo(:, 1,32, 5) = (/ & - &1.9204e+00 ,1.5654e+00 ,1.1148e+00 ,6.2147e-01 ,1.1411e-02 /) - kbo(:, 2,32, 5) = (/ & - &2.0455e+00 ,1.6672e+00 ,1.1895e+00 ,6.6431e-01 ,1.1723e-02 /) - kbo(:, 3,32, 5) = (/ & - &2.1839e+00 ,1.7785e+00 ,1.2711e+00 ,7.1180e-01 ,1.1953e-02 /) - kbo(:, 4,32, 5) = (/ & - &2.3424e+00 ,1.9038e+00 ,1.3629e+00 ,7.6419e-01 ,1.2125e-02 /) - kbo(:, 5,32, 5) = (/ & - &2.5216e+00 ,2.0435e+00 ,1.4643e+00 ,8.2232e-01 ,1.2240e-02 /) - kbo(:, 1,33, 5) = (/ & - &1.9423e+00 ,1.5823e+00 ,1.1236e+00 ,6.2280e-01 ,9.4667e-03 /) - kbo(:, 2,33, 5) = (/ & - &2.0728e+00 ,1.6884e+00 ,1.2018e+00 ,6.6778e-01 ,9.6991e-03 /) - kbo(:, 3,33, 5) = (/ & - &2.2222e+00 ,1.8079e+00 ,1.2892e+00 ,7.1818e-01 ,9.8807e-03 /) - kbo(:, 4,33, 5) = (/ & - &2.3928e+00 ,1.9430e+00 ,1.3880e+00 ,7.7444e-01 ,1.0013e-02 /) - kbo(:, 5,33, 5) = (/ & - &2.5873e+00 ,2.0935e+00 ,1.4975e+00 ,8.3717e-01 ,1.0093e-02 /) - kbo(:, 1,34, 5) = (/ & - &1.9127e+00 ,1.5588e+00 ,1.1053e+00 ,6.1048e-01 ,7.8309e-03 /) - kbo(:, 2,34, 5) = (/ & - &2.0473e+00 ,1.6687e+00 ,1.1862e+00 ,6.5698e-01 ,8.0168e-03 /) - kbo(:, 3,34, 5) = (/ & - &2.2050e+00 ,1.7947e+00 ,1.2785e+00 ,7.0977e-01 ,8.1571e-03 /) - kbo(:, 4,34, 5) = (/ & - &2.3844e+00 ,1.9366e+00 ,1.3818e+00 ,7.6872e-01 ,8.2588e-03 /) - kbo(:, 5,34, 5) = (/ & - &2.5878e+00 ,2.0945e+00 ,1.4977e+00 ,8.3524e-01 ,8.3102e-03 /) - kbo(:, 1,35, 5) = (/ & - &1.8762e+00 ,1.5298e+00 ,1.0833e+00 ,5.9624e-01 ,6.4645e-03 /) - kbo(:, 2,35, 5) = (/ & - &2.0161e+00 ,1.6440e+00 ,1.1673e+00 ,6.4448e-01 ,6.6144e-03 /) - kbo(:, 3,35, 5) = (/ & - &2.1796e+00 ,1.7750e+00 ,1.2632e+00 ,6.9909e-01 ,6.7276e-03 /) - kbo(:, 4,35, 5) = (/ & - &2.3668e+00 ,1.9227e+00 ,1.3710e+00 ,7.6090e-01 ,6.8022e-03 /) - kbo(:, 5,35, 5) = (/ & - &2.5757e+00 ,2.0863e+00 ,1.4915e+00 ,8.3029e-01 ,6.8468e-03 /) - kbo(:, 1,36, 5) = (/ & - &1.8177e+00 ,1.4833e+00 ,1.0492e+00 ,5.7567e-01 ,5.3254e-03 /) - kbo(:, 2,36, 5) = (/ & - &1.9605e+00 ,1.6001e+00 ,1.1349e+00 ,6.2477e-01 ,5.4464e-03 /) - kbo(:, 3,36, 5) = (/ & - &2.1269e+00 ,1.7343e+00 ,1.2332e+00 ,6.8062e-01 ,5.5407e-03 /) - kbo(:, 4,36, 5) = (/ & - &2.3182e+00 ,1.8849e+00 ,1.3435e+00 ,7.4416e-01 ,5.6019e-03 /) - kbo(:, 5,36, 5) = (/ & - &2.5291e+00 ,2.0513e+00 ,1.4663e+00 ,8.1509e-01 ,5.6408e-03 /) - kbo(:, 1,37, 5) = (/ & - &1.6997e+00 ,1.3894e+00 ,9.8190e-01 ,5.3748e-01 ,4.3666e-03 /) - kbo(:, 2,37, 5) = (/ & - &1.8378e+00 ,1.5030e+00 ,1.0654e+00 ,5.8540e-01 ,4.4691e-03 /) - kbo(:, 3,37, 5) = (/ & - &1.9994e+00 ,1.6341e+00 ,1.1617e+00 ,6.4019e-01 ,4.5481e-03 /) - kbo(:, 4,37, 5) = (/ & - &2.1860e+00 ,1.7826e+00 ,1.2707e+00 ,7.0283e-01 ,4.6056e-03 /) - kbo(:, 5,37, 5) = (/ & - &2.3914e+00 ,1.9456e+00 ,1.3911e+00 ,7.7270e-01 ,4.6416e-03 /) - kbo(:, 1,38, 5) = (/ & - &1.6123e+00 ,1.3193e+00 ,9.3139e-01 ,5.0849e-01 ,3.5784e-03 /) - kbo(:, 2,38, 5) = (/ & - &1.7479e+00 ,1.4316e+00 ,1.0139e+00 ,5.5580e-01 ,3.6670e-03 /) - kbo(:, 3,38, 5) = (/ & - &1.9074e+00 ,1.5615e+00 ,1.1092e+00 ,6.1015e-01 ,3.7371e-03 /) - kbo(:, 4,38, 5) = (/ & - &2.0911e+00 ,1.7089e+00 ,1.2176e+00 ,6.7256e-01 ,3.7869e-03 /) - kbo(:, 5,38, 5) = (/ & - &2.2948e+00 ,1.8712e+00 ,1.3379e+00 ,7.4236e-01 ,3.8180e-03 /) - kbo(:, 1,39, 5) = (/ & - &1.5653e+00 ,1.2809e+00 ,9.0306e-01 ,4.9152e-01 ,2.9339e-03 /) - kbo(:, 2,39, 5) = (/ & - &1.7011e+00 ,1.3939e+00 ,9.8605e-01 ,5.3903e-01 ,3.0110e-03 /) - kbo(:, 3,39, 5) = (/ & - &1.8625e+00 ,1.5257e+00 ,1.0827e+00 ,5.9416e-01 ,3.0720e-03 /) - kbo(:, 4,39, 5) = (/ & - &2.0480e+00 ,1.6749e+00 ,1.1927e+00 ,6.5763e-01 ,3.1176e-03 /) - kbo(:, 5,39, 5) = (/ & - &2.2545e+00 ,1.8403e+00 ,1.3150e+00 ,7.2854e-01 ,3.1424e-03 /) - kbo(:, 1,40, 5) = (/ & - &1.4161e+00 ,1.1618e+00 ,8.1883e-01 ,4.4506e-01 ,2.3961e-03 /) - kbo(:, 2,40, 5) = (/ & - &1.5422e+00 ,1.2675e+00 ,8.9661e-01 ,4.8961e-01 ,2.4634e-03 /) - kbo(:, 3,40, 5) = (/ & - &1.6929e+00 ,1.3914e+00 ,9.8762e-01 ,5.4178e-01 ,2.5182e-03 /) - kbo(:, 4,40, 5) = (/ & - &1.8671e+00 ,1.5327e+00 ,1.0918e+00 ,6.0196e-01 ,2.5595e-03 /) - kbo(:, 5,40, 5) = (/ & - &2.0610e+00 ,1.6900e+00 ,1.2084e+00 ,6.6961e-01 ,2.5831e-03 /) - kbo(:, 1,41, 5) = (/ & - &1.2765e+00 ,1.0500e+00 ,7.3977e-01 ,4.0158e-01 ,1.9558e-03 /) - kbo(:, 2,41, 5) = (/ & - &1.3934e+00 ,1.1486e+00 ,8.1252e-01 ,4.4320e-01 ,2.0159e-03 /) - kbo(:, 3,41, 5) = (/ & - &1.5329e+00 ,1.2644e+00 ,8.9774e-01 ,4.9220e-01 ,2.0644e-03 /) - kbo(:, 4,41, 5) = (/ & - &1.6957e+00 ,1.3977e+00 ,9.9605e-01 ,5.4916e-01 ,2.0998e-03 /) - kbo(:, 5,41, 5) = (/ & - &1.8778e+00 ,1.5466e+00 ,1.1067e+00 ,6.1346e-01 ,2.1224e-03 /) - kbo(:, 1,42, 5) = (/ & - &1.1627e+00 ,9.5841e-01 ,6.7494e-01 ,3.6583e-01 ,1.5975e-03 /) - kbo(:, 2,42, 5) = (/ & - &1.2723e+00 ,1.0513e+00 ,7.4339e-01 ,4.0496e-01 ,1.6498e-03 /) - kbo(:, 3,42, 5) = (/ & - &1.4029e+00 ,1.1604e+00 ,8.2397e-01 ,4.5136e-01 ,1.6921e-03 /) - kbo(:, 4,42, 5) = (/ & - &1.5564e+00 ,1.2873e+00 ,9.1770e-01 ,5.0574e-01 ,1.7229e-03 /) - kbo(:, 5,42, 5) = (/ & - &1.7292e+00 ,1.4295e+00 ,1.0235e+00 ,5.6732e-01 ,1.7439e-03 /) - kbo(:, 1,43, 5) = (/ & - &1.0630e+00 ,8.7767e-01 ,6.1763e-01 ,3.3410e-01 ,1.3020e-03 /) - kbo(:, 2,43, 5) = (/ & - &1.1654e+00 ,9.6474e-01 ,6.8178e-01 ,3.7078e-01 ,1.3472e-03 /) - kbo(:, 3,43, 5) = (/ & - &1.2879e+00 ,1.0676e+00 ,7.5775e-01 ,4.1456e-01 ,1.3843e-03 /) - kbo(:, 4,43, 5) = (/ & - &1.4323e+00 ,1.1883e+00 ,8.4702e-01 ,4.6628e-01 ,1.4122e-03 /) - kbo(:, 5,43, 5) = (/ & - &1.5961e+00 ,1.3241e+00 ,9.4813e-01 ,5.2525e-01 ,1.4316e-03 /) - kbo(:, 1,44, 5) = (/ & - &9.8265e-01 ,8.1189e-01 ,5.7078e-01 ,3.0805e-01 ,1.0595e-03 /) - kbo(:, 2,44, 5) = (/ & - &1.0790e+00 ,8.9402e-01 ,6.3105e-01 ,3.4248e-01 ,1.0984e-03 /) - kbo(:, 3,44, 5) = (/ & - &1.1944e+00 ,9.9169e-01 ,7.0312e-01 ,3.8396e-01 ,1.1318e-03 /) - kbo(:, 4,44, 5) = (/ & - &1.3318e+00 ,1.1077e+00 ,7.8899e-01 ,4.3356e-01 ,1.1566e-03 /) - kbo(:, 5,44, 5) = (/ & - &1.4887e+00 ,1.2383e+00 ,8.8644e-01 ,4.9053e-01 ,1.1752e-03 /) - kbo(:, 1,45, 5) = (/ & - &9.2676e-01 ,7.6543e-01 ,5.3731e-01 ,2.8917e-01 ,8.6207e-04 /) - kbo(:, 2,45, 5) = (/ & - &1.0188e+00 ,8.4420e-01 ,5.9503e-01 ,3.2211e-01 ,8.9589e-04 /) - kbo(:, 3,45, 5) = (/ & - &1.1295e+00 ,9.3840e-01 ,6.6449e-01 ,3.6207e-01 ,9.2491e-04 /) - kbo(:, 4,45, 5) = (/ & - &1.2624e+00 ,1.0512e+00 ,7.4797e-01 ,4.1011e-01 ,9.4724e-04 /) - kbo(:, 5,45, 5) = (/ & - &1.4159e+00 ,1.1794e+00 ,8.4359e-01 ,4.6598e-01 ,9.6431e-04 /) - kbo(:, 1,46, 5) = (/ & - &8.8115e-01 ,7.2712e-01 ,5.0946e-01 ,2.7333e-01 ,7.0044e-04 /) - kbo(:, 2,46, 5) = (/ & - &9.6873e-01 ,8.0252e-01 ,5.6477e-01 ,3.0486e-01 ,7.2940e-04 /) - kbo(:, 3,46, 5) = (/ & - &1.0759e+00 ,8.9393e-01 ,6.3210e-01 ,3.4344e-01 ,7.5456e-04 /) - kbo(:, 4,46, 5) = (/ & - &1.2051e+00 ,1.0038e+00 ,7.1323e-01 ,3.9017e-01 ,7.7543e-04 /) - kbo(:, 5,46, 5) = (/ & - &1.3559e+00 ,1.1306e+00 ,8.0761e-01 ,4.4513e-01 ,7.9123e-04 /) - kbo(:, 1,47, 5) = (/ & - &8.2708e-01 ,6.8179e-01 ,4.7670e-01 ,2.5496e-01 ,5.6723e-04 /) - kbo(:, 2,47, 5) = (/ & - &9.0841e-01 ,7.5254e-01 ,5.2877e-01 ,2.8459e-01 ,5.9237e-04 /) - kbo(:, 3,47, 5) = (/ & - &1.0102e+00 ,8.3938e-01 ,5.9264e-01 ,3.2108e-01 ,6.1461e-04 /) - kbo(:, 4,47, 5) = (/ & - &1.1336e+00 ,9.4433e-01 ,6.7005e-01 ,3.6564e-01 ,6.3367e-04 /) - kbo(:, 5,47, 5) = (/ & - &1.2789e+00 ,1.0675e+00 ,7.6147e-01 ,4.1873e-01 ,6.4826e-04 /) - kbo(:, 1,48, 5) = (/ & - &7.9882e-01 ,6.5670e-01 ,4.5801e-01 ,2.4404e-01 ,4.5910e-04 /) - kbo(:, 2,48, 5) = (/ & - &8.7602e-01 ,7.2469e-01 ,5.0814e-01 ,2.7259e-01 ,4.8082e-04 /) - kbo(:, 3,48, 5) = (/ & - &9.7485e-01 ,8.0906e-01 ,5.6998e-01 ,3.0783e-01 ,5.0059e-04 /) - kbo(:, 4,48, 5) = (/ & - &1.0951e+00 ,9.1136e-01 ,6.4533e-01 ,3.5105e-01 ,5.1769e-04 /) - kbo(:, 5,48, 5) = (/ & - &1.2389e+00 ,1.0335e+00 ,7.3563e-01 ,4.0331e-01 ,5.3087e-04 /) - kbo(:, 1,49, 5) = (/ & - &8.0402e-01 ,6.5823e-01 ,4.5761e-01 ,2.4276e-01 ,3.7137e-04 /) - kbo(:, 2,49, 5) = (/ & - &8.8031e-01 ,7.2577e-01 ,5.0751e-01 ,2.7123e-01 ,3.9017e-04 /) - kbo(:, 3,49, 5) = (/ & - &9.7946e-01 ,8.1065e-01 ,5.6941e-01 ,3.0628e-01 ,4.0777e-04 /) - kbo(:, 4,49, 5) = (/ & - &1.1011e+00 ,9.1410e-01 ,6.4521e-01 ,3.4961e-01 ,4.2272e-04 /) - kbo(:, 5,49, 5) = (/ & - &1.2484e+00 ,1.0389e+00 ,7.3730e-01 ,4.0277e-01 ,4.3479e-04 /) - kbo(:, 1,50, 5) = (/ & - &7.7254e-01 ,6.3104e-01 ,4.3765e-01 ,2.3137e-01 ,3.0017e-04 /) - kbo(:, 2,50, 5) = (/ & - &8.4478e-01 ,6.9541e-01 ,4.8529e-01 ,2.5862e-01 ,3.1617e-04 /) - kbo(:, 3,50, 5) = (/ & - &9.3925e-01 ,7.7679e-01 ,5.4465e-01 ,2.9213e-01 ,3.3160e-04 /) - kbo(:, 4,50, 5) = (/ & - &1.0567e+00 ,8.7678e-01 ,6.1788e-01 ,3.3395e-01 ,3.4487e-04 /) - kbo(:, 5,50, 5) = (/ & - &1.2008e+00 ,9.9924e-01 ,7.0798e-01 ,3.8577e-01 ,3.5577e-04 /) - kbo(:, 1,51, 5) = (/ & - &7.2669e-01 ,5.9284e-01 ,4.1030e-01 ,2.1627e-01 ,2.4246e-04 /) - kbo(:, 2,51, 5) = (/ & - &7.9410e-01 ,6.5300e-01 ,4.5497e-01 ,2.4184e-01 ,2.5602e-04 /) - kbo(:, 3,51, 5) = (/ & - &8.8167e-01 ,7.2916e-01 ,5.1056e-01 ,2.7327e-01 ,2.6933e-04 /) - kbo(:, 4,51, 5) = (/ & - &9.9265e-01 ,8.2410e-01 ,5.8011e-01 ,3.1286e-01 ,2.8099e-04 /) - kbo(:, 5,51, 5) = (/ & - &1.1303e+00 ,9.4117e-01 ,6.6603e-01 ,3.6222e-01 ,2.9075e-04 /) - kbo(:, 1,52, 5) = (/ & - &7.0293e-01 ,5.7224e-01 ,3.9526e-01 ,2.0761e-01 ,1.9566e-04 /) - kbo(:, 2,52, 5) = (/ & - &7.6814e-01 ,6.3021e-01 ,4.3806e-01 ,2.3215e-01 ,2.0717e-04 /) - kbo(:, 3,52, 5) = (/ & - &8.5099e-01 ,7.0282e-01 ,4.9133e-01 ,2.6231e-01 ,2.1874e-04 /) - kbo(:, 4,52, 5) = (/ & - &9.5857e-01 ,7.9517e-01 ,5.5876e-01 ,3.0061e-01 ,2.2893e-04 /) - kbo(:, 5,52, 5) = (/ & - &1.0928e+00 ,9.0923e-01 ,6.4230e-01 ,3.4850e-01 ,2.3751e-04 /) - kbo(:, 1,53, 5) = (/ & - &7.0799e-01 ,5.7451e-01 ,3.9589e-01 ,2.0725e-01 ,1.5775e-04 /) - kbo(:, 2,53, 5) = (/ & - &7.7421e-01 ,6.3284e-01 ,4.3870e-01 ,2.3160e-01 ,1.6771e-04 /) - kbo(:, 3,53, 5) = (/ & - &8.5551e-01 ,7.0456e-01 ,4.9136e-01 ,2.6152e-01 ,1.7761e-04 /) - kbo(:, 4,53, 5) = (/ & - &9.6362e-01 ,7.9737e-01 ,5.5891e-01 ,2.9974e-01 ,1.8647e-04 /) - kbo(:, 5,53, 5) = (/ & - &1.0993e+00 ,9.1246e-01 ,6.4296e-01 ,3.4771e-01 ,1.9425e-04 /) - kbo(:, 1,54, 5) = (/ & - &6.1781e-01 ,5.0174e-01 ,3.4551e-01 ,1.8062e-01 ,1.2698e-04 /) - kbo(:, 2,54, 5) = (/ & - &6.7617e-01 ,5.5332e-01 ,3.8324e-01 ,2.0204e-01 ,1.3548e-04 /) - kbo(:, 3,54, 5) = (/ & - &7.4609e-01 ,6.1568e-01 ,4.2927e-01 ,2.2831e-01 ,1.4360e-04 /) - kbo(:, 4,54, 5) = (/ & - &8.3975e-01 ,6.9703e-01 ,4.8868e-01 ,2.6191e-01 ,1.5134e-04 /) - kbo(:, 5,54, 5) = (/ & - &9.5851e-01 ,7.9875e-01 ,5.6310e-01 ,3.0440e-01 ,1.5803e-04 /) - kbo(:, 1,55, 5) = (/ & - &4.9218e-01 ,4.0097e-01 ,2.7614e-01 ,1.4430e-01 ,1.0197e-04 /) - kbo(:, 2,55, 5) = (/ & - &5.3911e-01 ,4.4293e-01 ,3.0686e-01 ,1.6168e-01 ,1.0930e-04 /) - kbo(:, 3,55, 5) = (/ & - &5.9446e-01 ,4.9291e-01 ,3.4401e-01 ,1.8302e-01 ,1.1592e-04 /) - kbo(:, 4,55, 5) = (/ & - &6.6816e-01 ,5.5826e-01 ,3.9205e-01 ,2.1030e-01 ,1.2249e-04 /) - kbo(:, 5,55, 5) = (/ & - &7.6300e-01 ,6.4076e-01 ,4.5273e-01 ,2.4510e-01 ,1.2815e-04 /) - kbo(:, 1,56, 5) = (/ & - &3.9213e-01 ,3.2040e-01 ,2.2062e-01 ,1.1519e-01 ,8.1886e-05 /) - kbo(:, 2,56, 5) = (/ & - &4.2970e-01 ,3.5433e-01 ,2.4555e-01 ,1.2928e-01 ,8.8029e-05 /) - kbo(:, 3,56, 5) = (/ & - &4.7372e-01 ,3.9458e-01 ,2.7557e-01 ,1.4657e-01 ,9.3592e-05 /) - kbo(:, 4,56, 5) = (/ & - &5.3136e-01 ,4.4682e-01 ,3.1425e-01 ,1.6867e-01 ,9.8924e-05 /) - kbo(:, 5,56, 5) = (/ & - &6.0680e-01 ,5.1356e-01 ,3.6377e-01 ,1.9714e-01 ,1.0388e-04 /) - kbo(:, 1,57, 5) = (/ & - &3.1256e-01 ,2.5603e-01 ,1.7627e-01 ,9.1926e-02 ,6.5686e-05 /) - kbo(:, 2,57, 5) = (/ & - &3.4230e-01 ,2.8322e-01 ,1.9630e-01 ,1.0325e-01 ,7.0810e-05 /) - kbo(:, 3,57, 5) = (/ & - &3.7748e-01 ,3.1574e-01 ,2.2058e-01 ,1.1723e-01 ,7.5533e-05 /) - kbo(:, 4,57, 5) = (/ & - &4.2229e-01 ,3.5725e-01 ,2.5162e-01 ,1.3506e-01 ,7.9907e-05 /) - kbo(:, 5,57, 5) = (/ & - &4.8209e-01 ,4.1127e-01 ,2.9188e-01 ,1.5833e-01 ,8.4096e-05 /) - kbo(:, 1,58, 5) = (/ & - &6.5834e-02 ,6.6132e-02 ,5.8548e-02 ,4.2734e-02 ,5.2667e-05 /) - kbo(:, 2,58, 5) = (/ & - &7.1968e-02 ,7.3109e-02 ,6.5197e-02 ,4.8002e-02 ,5.6984e-05 /) - kbo(:, 3,58, 5) = (/ & - &7.9437e-02 ,8.1656e-02 ,7.3428e-02 ,5.4631e-02 ,6.0874e-05 /) - kbo(:, 4,58, 5) = (/ & - &8.8662e-02 ,9.2383e-02 ,8.3809e-02 ,6.3035e-02 ,6.4619e-05 /) - kbo(:, 5,58, 5) = (/ & - &1.0118e-01 ,1.0653e-01 ,9.7458e-02 ,7.4110e-02 ,6.7988e-05 /) - kbo(:, 1,59, 5) = (/ & - &6.3055e-02 ,6.1069e-02 ,5.0451e-02 ,3.2825e-02 ,4.2796e-05 /) - kbo(:, 2,59, 5) = (/ & - &6.8995e-02 ,6.7782e-02 ,5.6462e-02 ,3.7059e-02 ,4.6289e-05 /) - kbo(:, 3,59, 5) = (/ & - &7.6280e-02 ,7.6111e-02 ,6.4009e-02 ,4.2464e-02 ,4.9459e-05 /) - kbo(:, 4,59, 5) = (/ & - &8.5284e-02 ,8.6606e-02 ,7.3583e-02 ,4.9384e-02 ,5.2442e-05 /) - kbo(:, 5,59, 5) = (/ & - &9.7585e-02 ,1.0050e-01 ,8.6230e-02 ,5.8574e-02 ,5.5198e-05 /) - kbo(:, 1,13, 6) = (/ & - &7.7180e+02 ,5.7896e+02 ,3.8611e+02 ,1.9327e+02 ,3.6289e-01 /) - kbo(:, 2,13, 6) = (/ & - &7.9285e+02 ,5.9474e+02 ,3.9664e+02 ,1.9853e+02 ,3.7298e-01 /) - kbo(:, 3,13, 6) = (/ & - &8.1518e+02 ,6.1149e+02 ,4.0780e+02 ,2.0411e+02 ,3.8121e-01 /) - kbo(:, 4,13, 6) = (/ & - &8.3776e+02 ,6.2842e+02 ,4.1908e+02 ,2.0974e+02 ,3.8734e-01 /) - kbo(:, 5,13, 6) = (/ & - &8.6087e+02 ,6.4575e+02 ,4.3063e+02 ,2.1551e+02 ,3.9230e-01 /) - kbo(:, 1,14, 6) = (/ & - &4.1395e+02 ,3.1056e+02 ,2.0718e+02 ,1.0380e+02 ,3.3381e-01 /) - kbo(:, 2,14, 6) = (/ & - &4.2539e+02 ,3.1915e+02 ,2.1290e+02 ,1.0666e+02 ,3.4169e-01 /) - kbo(:, 3,14, 6) = (/ & - &4.3723e+02 ,3.2803e+02 ,2.1882e+02 ,1.0962e+02 ,3.4947e-01 /) - kbo(:, 4,14, 6) = (/ & - &4.4927e+02 ,3.3705e+02 ,2.2483e+02 ,1.1261e+02 ,3.5567e-01 /) - kbo(:, 5,14, 6) = (/ & - &4.6195e+02 ,3.4656e+02 ,2.3117e+02 ,1.1578e+02 ,3.6065e-01 /) - kbo(:, 1,15, 6) = (/ & - &2.2585e+02 ,1.6949e+02 ,1.1313e+02 ,5.6770e+01 ,3.0356e-01 /) - kbo(:, 2,15, 6) = (/ & - &2.3201e+02 ,1.7411e+02 ,1.1621e+02 ,5.8311e+01 ,3.1091e-01 /) - kbo(:, 3,15, 6) = (/ & - &2.3839e+02 ,1.7889e+02 ,1.1939e+02 ,5.9899e+01 ,3.1810e-01 /) - kbo(:, 4,15, 6) = (/ & - &2.4502e+02 ,1.8386e+02 ,1.2270e+02 ,6.1544e+01 ,3.2391e-01 /) - kbo(:, 5,15, 6) = (/ & - &2.5289e+02 ,1.8977e+02 ,1.2664e+02 ,6.3520e+01 ,3.2850e-01 /) - kbo(:, 1,16, 6) = (/ & - &1.4635e+02 ,1.0986e+02 ,7.3372e+01 ,3.6890e+01 ,2.7344e-01 /) - kbo(:, 2,16, 6) = (/ & - &1.5031e+02 ,1.1283e+02 ,7.5356e+01 ,3.7881e+01 ,2.8092e-01 /) - kbo(:, 3,16, 6) = (/ & - &1.5444e+02 ,1.1592e+02 ,7.7407e+01 ,3.8900e+01 ,2.8781e-01 /) - kbo(:, 4,16, 6) = (/ & - &1.5922e+02 ,1.1951e+02 ,7.9797e+01 ,4.0091e+01 ,2.9332e-01 /) - kbo(:, 5,16, 6) = (/ & - &1.6548e+02 ,1.2420e+02 ,8.2930e+01 ,4.1661e+01 ,2.9808e-01 /) - kbo(:, 1,17, 6) = (/ & - &9.8142e+01 ,7.3705e+01 ,4.9268e+01 ,2.4840e+01 ,2.4429e-01 /) - kbo(:, 2,17, 6) = (/ & - &1.0076e+02 ,7.5668e+01 ,5.0576e+01 ,2.5493e+01 ,2.5184e-01 /) - kbo(:, 3,17, 6) = (/ & - &1.0378e+02 ,7.7926e+01 ,5.2073e+01 ,2.6235e+01 ,2.5821e-01 /) - kbo(:, 4,17, 6) = (/ & - &1.0768e+02 ,8.0849e+01 ,5.4024e+01 ,2.7211e+01 ,2.6339e-01 /) - kbo(:, 5,17, 6) = (/ & - &1.1267e+02 ,8.4599e+01 ,5.6526e+01 ,2.8462e+01 ,2.6841e-01 /) - kbo(:, 1,18, 6) = (/ & - &6.7329e+01 ,5.0594e+01 ,3.3862e+01 ,1.7162e+01 ,2.1677e-01 /) - kbo(:, 2,18, 6) = (/ & - &6.9224e+01 ,5.2009e+01 ,3.4803e+01 ,1.7627e+01 ,2.2376e-01 /) - kbo(:, 3,18, 6) = (/ & - &7.1671e+01 ,5.3842e+01 ,3.6019e+01 ,1.8223e+01 ,2.2981e-01 /) - kbo(:, 4,18, 6) = (/ & - &7.4922e+01 ,5.6283e+01 ,3.7648e+01 ,1.9036e+01 ,2.3516e-01 /) - kbo(:, 5,18, 6) = (/ & - &7.8609e+01 ,5.9048e+01 ,3.9493e+01 ,1.9956e+01 ,2.4055e-01 /) - kbo(:, 1,19, 6) = (/ & - &4.5351e+01 ,3.4111e+01 ,2.2879e+01 ,1.1748e+01 ,1.9068e-01 /) - kbo(:, 2,19, 6) = (/ & - &4.6788e+01 ,3.5180e+01 ,2.3587e+01 ,1.2086e+01 ,1.9727e-01 /) - kbo(:, 3,19, 6) = (/ & - &4.8819e+01 ,3.6704e+01 ,2.4596e+01 ,1.2571e+01 ,2.0322e-01 /) - kbo(:, 4,19, 6) = (/ & - &5.1243e+01 ,3.8523e+01 ,2.5810e+01 ,1.3165e+01 ,2.0895e-01 /) - kbo(:, 5,19, 6) = (/ & - &5.3759e+01 ,4.0411e+01 ,2.7071e+01 ,1.3784e+01 ,2.1468e-01 /) - kbo(:, 1,20, 6) = (/ & - &3.3050e+01 ,2.4885e+01 ,1.6741e+01 ,8.7700e+00 ,1.6695e-01 /) - kbo(:, 2,20, 6) = (/ & - &3.4346e+01 ,2.5850e+01 ,1.7375e+01 ,9.0666e+00 ,1.7321e-01 /) - kbo(:, 3,20, 6) = (/ & - &3.6031e+01 ,2.7114e+01 ,1.8213e+01 ,9.4660e+00 ,1.7929e-01 /) - kbo(:, 4,20, 6) = (/ & - &3.7866e+01 ,2.8491e+01 ,1.9130e+01 ,9.9045e+00 ,1.8515e-01 /) - kbo(:, 5,20, 6) = (/ & - &3.9713e+01 ,2.9876e+01 ,2.0052e+01 ,1.0350e+01 ,1.9066e-01 /) - kbo(:, 1,21, 6) = (/ & - &2.4844e+01 ,1.8731e+01 ,1.2673e+01 ,6.7851e+00 ,1.4553e-01 /) - kbo(:, 2,21, 6) = (/ & - &2.6012e+01 ,1.9600e+01 ,1.3239e+01 ,7.0557e+00 ,1.5180e-01 /) - kbo(:, 3,21, 6) = (/ & - &2.7347e+01 ,2.0602e+01 ,1.3900e+01 ,7.3743e+00 ,1.5767e-01 /) - kbo(:, 4,21, 6) = (/ & - &2.8734e+01 ,2.1643e+01 ,1.4586e+01 ,7.7037e+00 ,1.6319e-01 /) - kbo(:, 5,21, 6) = (/ & - &3.0137e+01 ,2.2696e+01 ,1.5284e+01 ,8.0405e+00 ,1.6831e-01 /) - kbo(:, 1,22, 6) = (/ & - &1.9244e+01 ,1.4532e+01 ,9.9298e+00 ,5.4125e+00 ,1.2703e-01 /) - kbo(:, 2,22, 6) = (/ & - &2.0224e+01 ,1.5263e+01 ,1.0402e+01 ,5.6515e+00 ,1.3287e-01 /) - kbo(:, 3,22, 6) = (/ & - &2.1278e+01 ,1.6053e+01 ,1.0915e+01 ,5.9058e+00 ,1.3815e-01 /) - kbo(:, 4,22, 6) = (/ & - &2.2359e+01 ,1.6864e+01 ,1.1443e+01 ,6.1676e+00 ,1.4315e-01 /) - kbo(:, 5,22, 6) = (/ & - &2.3448e+01 ,1.7683e+01 ,1.1980e+01 ,6.4316e+00 ,1.4780e-01 /) - kbo(:, 1,23, 6) = (/ & - &1.5003e+01 ,1.1361e+01 ,7.8631e+00 ,4.3544e+00 ,1.1053e-01 /) - kbo(:, 2,23, 6) = (/ & - &1.5788e+01 ,1.1946e+01 ,8.2434e+00 ,4.5541e+00 ,1.1564e-01 /) - kbo(:, 3,23, 6) = (/ & - &1.6609e+01 ,1.2560e+01 ,8.6387e+00 ,4.7603e+00 ,1.2034e-01 /) - kbo(:, 4,23, 6) = (/ & - &1.7444e+01 ,1.3184e+01 ,9.0429e+00 ,4.9691e+00 ,1.2479e-01 /) - kbo(:, 5,23, 6) = (/ & - &1.8318e+01 ,1.3840e+01 ,9.4687e+00 ,5.1869e+00 ,1.2894e-01 /) - kbo(:, 1,24, 6) = (/ & - &1.1642e+01 ,8.8646e+00 ,6.2180e+00 ,3.4890e+00 ,9.5642e-02 /) - kbo(:, 2,24, 6) = (/ & - &1.2250e+01 ,9.3143e+00 ,6.5164e+00 ,3.6525e+00 ,1.0007e-01 /) - kbo(:, 3,24, 6) = (/ & - &1.2878e+01 ,9.7800e+00 ,6.8207e+00 ,3.8184e+00 ,1.0423e-01 /) - kbo(:, 4,24, 6) = (/ & - &1.3534e+01 ,1.0267e+01 ,7.1387e+00 ,3.9893e+00 ,1.0818e-01 /) - kbo(:, 5,24, 6) = (/ & - &1.4255e+01 ,1.0806e+01 ,7.4905e+00 ,4.1737e+00 ,1.1190e-01 /) - kbo(:, 1,25, 6) = (/ & - &9.1475e+00 ,7.0241e+00 ,4.9880e+00 ,2.8234e+00 ,8.2353e-02 /) - kbo(:, 2,25, 6) = (/ & - &9.6194e+00 ,7.3705e+00 ,5.2236e+00 ,2.9556e+00 ,8.6208e-02 /) - kbo(:, 3,25, 6) = (/ & - &1.0118e+01 ,7.7356e+00 ,5.4684e+00 ,3.0922e+00 ,8.9882e-02 /) - kbo(:, 4,25, 6) = (/ & - &1.0662e+01 ,8.1371e+00 ,5.7357e+00 ,3.2382e+00 ,9.3407e-02 /) - kbo(:, 5,25, 6) = (/ & - &1.1279e+01 ,8.5947e+00 ,6.0377e+00 ,3.4015e+00 ,9.6770e-02 /) - kbo(:, 1,26, 6) = (/ & - &7.3112e+00 ,5.6725e+00 ,4.0689e+00 ,2.3123e+00 ,7.0640e-02 /) - kbo(:, 2,26, 6) = (/ & - &7.6950e+00 ,5.9535e+00 ,4.2634e+00 ,2.4227e+00 ,7.4010e-02 /) - kbo(:, 3,26, 6) = (/ & - &8.1066e+00 ,6.2538e+00 ,4.4719e+00 ,2.5387e+00 ,7.7271e-02 /) - kbo(:, 4,26, 6) = (/ & - &8.5794e+00 ,6.6014e+00 ,4.7086e+00 ,2.6686e+00 ,8.0450e-02 /) - kbo(:, 5,26, 6) = (/ & - &9.1099e+00 ,6.9909e+00 ,4.9735e+00 ,2.8158e+00 ,8.3380e-02 /) - kbo(:, 1,27, 6) = (/ & - &6.0744e+00 ,4.7606e+00 ,3.4368e+00 ,1.9534e+00 ,6.0404e-02 /) - kbo(:, 2,27, 6) = (/ & - &6.4010e+00 ,4.9996e+00 ,3.6064e+00 ,2.0495e+00 ,6.3391e-02 /) - kbo(:, 3,27, 6) = (/ & - &6.7712e+00 ,5.2713e+00 ,3.7979e+00 ,2.1556e+00 ,6.6293e-02 /) - kbo(:, 4,27, 6) = (/ & - &7.1986e+00 ,5.5846e+00 ,4.0153e+00 ,2.2772e+00 ,6.9007e-02 /) - kbo(:, 5,27, 6) = (/ & - &7.6755e+00 ,5.9357e+00 ,4.2585e+00 ,2.4127e+00 ,7.1247e-02 /) - kbo(:, 1,28, 6) = (/ & - &5.1866e+00 ,4.1033e+00 ,2.9724e+00 ,1.6878e+00 ,5.1571e-02 /) - kbo(:, 2,28, 6) = (/ & - &5.4861e+00 ,4.3239e+00 ,3.1305e+00 ,1.7765e+00 ,5.4219e-02 /) - kbo(:, 3,28, 6) = (/ & - &5.8320e+00 ,4.5795e+00 ,3.3130e+00 ,1.8782e+00 ,5.6690e-02 /) - kbo(:, 4,28, 6) = (/ & - &6.2247e+00 ,4.8686e+00 ,3.5188e+00 ,1.9940e+00 ,5.8750e-02 /) - kbo(:, 5,28, 6) = (/ & - &6.6558e+00 ,5.1871e+00 ,3.7446e+00 ,2.1214e+00 ,6.0243e-02 /) - kbo(:, 1,29, 6) = (/ & - &4.7142e+00 ,3.7524e+00 ,2.7162e+00 ,1.5365e+00 ,4.4039e-02 /) - kbo(:, 2,29, 6) = (/ & - &5.0090e+00 ,3.9723e+00 ,2.8754e+00 ,1.6258e+00 ,4.6277e-02 /) - kbo(:, 3,29, 6) = (/ & - &5.3480e+00 ,4.2236e+00 ,3.0565e+00 ,1.7286e+00 ,4.8156e-02 /) - kbo(:, 4,29, 6) = (/ & - &5.7292e+00 ,4.5074e+00 ,3.2622e+00 ,1.8442e+00 ,4.9560e-02 /) - kbo(:, 5,29, 6) = (/ & - &6.1329e+00 ,4.8058e+00 ,3.4771e+00 ,1.9687e+00 ,5.0487e-02 /) - kbo(:, 1,30, 6) = (/ & - &4.4038e+00 ,3.5211e+00 ,2.5447e+00 ,1.4336e+00 ,3.7528e-02 /) - kbo(:, 2,30, 6) = (/ & - &4.6996e+00 ,3.7441e+00 ,2.7067e+00 ,1.5257e+00 ,3.9262e-02 /) - kbo(:, 3,30, 6) = (/ & - &5.0396e+00 ,3.9983e+00 ,2.8921e+00 ,1.6308e+00 ,4.0573e-02 /) - kbo(:, 4,30, 6) = (/ & - &5.4089e+00 ,4.2744e+00 ,3.0942e+00 ,1.7467e+00 ,4.1475e-02 /) - kbo(:, 5,30, 6) = (/ & - &5.8026e+00 ,4.5655e+00 ,3.3058e+00 ,1.8693e+00 ,4.2084e-02 /) - kbo(:, 1,31, 6) = (/ & - &4.3406e+00 ,3.4756e+00 ,2.5043e+00 ,1.4029e+00 ,3.1837e-02 /) - kbo(:, 2,31, 6) = (/ & - &4.6530e+00 ,3.7116e+00 ,2.6766e+00 ,1.5014e+00 ,3.3063e-02 /) - kbo(:, 3,31, 6) = (/ & - &5.0025e+00 ,3.9754e+00 ,2.8716e+00 ,1.6130e+00 ,3.3948e-02 /) - kbo(:, 4,31, 6) = (/ & - &5.3785e+00 ,4.2562e+00 ,3.0774e+00 ,1.7319e+00 ,3.4570e-02 /) - kbo(:, 5,31, 6) = (/ & - &5.7889e+00 ,4.5595e+00 ,3.2989e+00 ,1.8598e+00 ,3.4986e-02 /) - kbo(:, 1,32, 6) = (/ & - &4.3396e+00 ,3.4769e+00 ,2.4992e+00 ,1.3933e+00 ,2.6827e-02 /) - kbo(:, 2,32, 6) = (/ & - &4.6714e+00 ,3.7286e+00 ,2.6844e+00 ,1.4997e+00 ,2.7685e-02 /) - kbo(:, 3,32, 6) = (/ & - &5.0312e+00 ,4.0002e+00 ,2.8855e+00 ,1.6156e+00 ,2.8303e-02 /) - kbo(:, 4,32, 6) = (/ & - &5.4256e+00 ,4.2946e+00 ,3.1010e+00 ,1.7399e+00 ,2.8748e-02 /) - kbo(:, 5,32, 6) = (/ & - &5.8665e+00 ,4.6212e+00 ,3.3393e+00 ,1.8767e+00 ,2.9064e-02 /) - kbo(:, 1,33, 6) = (/ & - &4.4332e+00 ,3.5489e+00 ,2.5452e+00 ,1.4121e+00 ,2.2496e-02 /) - kbo(:, 2,33, 6) = (/ & - &4.7823e+00 ,3.8149e+00 ,2.7429e+00 ,1.5266e+00 ,2.3111e-02 /) - kbo(:, 3,33, 6) = (/ & - &5.1647e+00 ,4.1029e+00 ,2.9548e+00 ,1.6483e+00 ,2.3573e-02 /) - kbo(:, 4,33, 6) = (/ & - &5.5917e+00 ,4.4208e+00 ,3.1884e+00 ,1.7830e+00 ,2.3904e-02 /) - kbo(:, 5,33, 6) = (/ & - &6.0743e+00 ,4.7788e+00 ,3.4474e+00 ,1.9321e+00 ,2.4134e-02 /) - kbo(:, 1,34, 6) = (/ & - &4.4125e+00 ,3.5356e+00 ,2.5335e+00 ,1.4023e+00 ,1.8787e-02 /) - kbo(:, 2,34, 6) = (/ & - &4.7724e+00 ,3.8103e+00 ,2.7374e+00 ,1.5195e+00 ,1.9239e-02 /) - kbo(:, 3,34, 6) = (/ & - &5.1721e+00 ,4.1112e+00 ,2.9584e+00 ,1.6475e+00 ,1.9590e-02 /) - kbo(:, 4,34, 6) = (/ & - &5.6244e+00 ,4.4492e+00 ,3.2069e+00 ,1.7903e+00 ,1.9843e-02 /) - kbo(:, 5,34, 6) = (/ & - &6.1384e+00 ,4.8292e+00 ,3.4834e+00 ,1.9492e+00 ,2.0036e-02 /) - kbo(:, 1,35, 6) = (/ & - &4.3717e+00 ,3.5073e+00 ,2.5119e+00 ,1.3871e+00 ,1.5622e-02 /) - kbo(:, 2,35, 6) = (/ & - &4.7431e+00 ,3.7911e+00 ,2.7216e+00 ,1.5076e+00 ,1.5975e-02 /) - kbo(:, 3,35, 6) = (/ & - &5.1596e+00 ,4.1047e+00 ,2.9535e+00 ,1.6419e+00 ,1.6252e-02 /) - kbo(:, 4,35, 6) = (/ & - &5.6365e+00 ,4.4612e+00 ,3.2141e+00 ,1.7918e+00 ,1.6461e-02 /) - kbo(:, 5,35, 6) = (/ & - &6.1774e+00 ,4.8609e+00 ,3.5048e+00 ,1.9589e+00 ,1.6599e-02 /) - kbo(:, 1,36, 6) = (/ & - &4.2736e+00 ,3.4354e+00 ,2.4585e+00 ,1.3548e+00 ,1.2936e-02 /) - kbo(:, 2,36, 6) = (/ & - &4.6496e+00 ,3.7234e+00 ,2.6724e+00 ,1.4783e+00 ,1.3228e-02 /) - kbo(:, 3,36, 6) = (/ & - &5.0769e+00 ,4.0460e+00 ,2.9111e+00 ,1.6163e+00 ,1.3462e-02 /) - kbo(:, 4,36, 6) = (/ & - &5.5708e+00 ,4.4155e+00 ,3.1813e+00 ,1.7716e+00 ,1.3637e-02 /) - kbo(:, 5,36, 6) = (/ & - &6.1338e+00 ,4.8311e+00 ,3.4822e+00 ,1.9445e+00 ,1.3753e-02 /) - kbo(:, 1,37, 6) = (/ & - &4.0234e+00 ,3.2473e+00 ,2.3232e+00 ,1.2788e+00 ,1.0671e-02 /) - kbo(:, 2,37, 6) = (/ & - &4.3892e+00 ,3.5290e+00 ,2.5324e+00 ,1.3998e+00 ,1.0924e-02 /) - kbo(:, 3,37, 6) = (/ & - &4.8090e+00 ,3.8477e+00 ,2.7688e+00 ,1.5370e+00 ,1.1122e-02 /) - kbo(:, 4,37, 6) = (/ & - &5.2982e+00 ,4.2143e+00 ,3.0374e+00 ,1.6915e+00 ,1.1275e-02 /) - kbo(:, 5,37, 6) = (/ & - &5.8599e+00 ,4.6308e+00 ,3.3399e+00 ,1.8652e+00 ,1.1382e-02 /) - kbo(:, 1,38, 6) = (/ & - &3.8405e+00 ,3.1094e+00 ,2.2232e+00 ,1.2223e+00 ,8.8011e-03 /) - kbo(:, 2,38, 6) = (/ & - &4.2026e+00 ,3.3894e+00 ,2.4317e+00 ,1.3429e+00 ,9.0204e-03 /) - kbo(:, 3,38, 6) = (/ & - &4.6223e+00 ,3.7094e+00 ,2.6688e+00 ,1.4805e+00 ,9.1889e-03 /) - kbo(:, 4,38, 6) = (/ & - &5.1135e+00 ,4.0786e+00 ,2.9400e+00 ,1.6366e+00 ,9.3266e-03 /) - kbo(:, 5,38, 6) = (/ & - &5.6812e+00 ,4.4997e+00 ,3.2457e+00 ,1.8125e+00 ,9.4327e-03 /) - kbo(:, 1,39, 6) = (/ & - &3.7513e+00 ,3.0429e+00 ,2.1735e+00 ,1.1927e+00 ,7.2681e-03 /) - kbo(:, 2,39, 6) = (/ & - &4.1185e+00 ,3.3272e+00 ,2.3853e+00 ,1.3156e+00 ,7.4517e-03 /) - kbo(:, 3,39, 6) = (/ & - &4.5480e+00 ,3.6554e+00 ,2.6285e+00 ,1.4564e+00 ,7.6013e-03 /) - kbo(:, 4,39, 6) = (/ & - &5.0522e+00 ,4.0351e+00 ,2.9074e+00 ,1.6167e+00 ,7.7185e-03 /) - kbo(:, 5,39, 6) = (/ & - &5.6411e+00 ,4.4721e+00 ,3.2250e+00 ,1.7992e+00 ,7.8245e-03 /) - kbo(:, 1,40, 6) = (/ & - &3.4100e+00 ,2.7806e+00 ,1.9856e+00 ,1.0896e+00 ,5.9768e-03 /) - kbo(:, 2,40, 6) = (/ & - &3.7541e+00 ,3.0505e+00 ,2.1868e+00 ,1.2067e+00 ,6.1348e-03 /) - kbo(:, 3,40, 6) = (/ & - &4.1600e+00 ,3.3636e+00 ,2.4194e+00 ,1.3415e+00 ,6.2676e-03 /) - kbo(:, 4,40, 6) = (/ & - &4.6404e+00 ,3.7278e+00 ,2.6880e+00 ,1.4963e+00 ,6.3713e-03 /) - kbo(:, 5,40, 6) = (/ & - &5.2035e+00 ,4.1476e+00 ,2.9948e+00 ,1.6730e+00 ,6.4667e-03 /) - kbo(:, 1,41, 6) = (/ & - &3.0891e+00 ,2.5323e+00 ,1.8076e+00 ,9.9199e-01 ,4.9106e-03 /) - kbo(:, 2,41, 6) = (/ & - &3.4100e+00 ,2.7866e+00 ,1.9972e+00 ,1.1027e+00 ,5.0459e-03 /) - kbo(:, 3,41, 6) = (/ & - &3.7913e+00 ,3.0833e+00 ,2.2185e+00 ,1.2311e+00 ,5.1622e-03 /) - kbo(:, 4,41, 6) = (/ & - &4.2439e+00 ,3.4304e+00 ,2.4754e+00 ,1.3795e+00 ,5.2594e-03 /) - kbo(:, 5,41, 6) = (/ & - &4.7807e+00 ,3.8337e+00 ,2.7715e+00 ,1.5507e+00 ,5.3436e-03 /) - kbo(:, 1,42, 6) = (/ & - &2.8278e+00 ,2.3283e+00 ,1.6611e+00 ,9.1142e-01 ,4.0331e-03 /) - kbo(:, 2,42, 6) = (/ & - &3.1295e+00 ,2.5702e+00 ,1.8417e+00 ,1.0169e+00 ,4.1507e-03 /) - kbo(:, 3,42, 6) = (/ & - &3.4910e+00 ,2.8544e+00 ,2.0536e+00 ,1.1401e+00 ,4.2525e-03 /) - kbo(:, 4,42, 6) = (/ & - &3.9235e+00 ,3.1883e+00 ,2.3016e+00 ,1.2837e+00 ,4.3408e-03 /) - kbo(:, 5,42, 6) = (/ & - &4.4380e+00 ,3.5784e+00 ,2.5896e+00 ,1.4506e+00 ,4.4170e-03 /) - kbo(:, 1,43, 6) = (/ & - &2.5971e+00 ,2.1460e+00 ,1.5298e+00 ,8.3854e-01 ,3.3049e-03 /) - kbo(:, 2,43, 6) = (/ & - &2.8799e+00 ,2.3759e+00 ,1.7013e+00 ,9.3880e-01 ,3.4092e-03 /) - kbo(:, 3,43, 6) = (/ & - &3.2202e+00 ,2.6461e+00 ,1.9035e+00 ,1.0566e+00 ,3.5003e-03 /) - kbo(:, 4,43, 6) = (/ & - &3.6329e+00 ,2.9678e+00 ,2.1426e+00 ,1.1949e+00 ,3.5773e-03 /) - kbo(:, 5,43, 6) = (/ & - &4.1275e+00 ,3.3455e+00 ,2.4216e+00 ,1.3572e+00 ,3.6480e-03 /) - kbo(:, 1,44, 6) = (/ & - &2.4109e+00 ,1.9983e+00 ,1.4225e+00 ,7.7812e-01 ,2.7054e-03 /) - kbo(:, 2,44, 6) = (/ & - &2.6776e+00 ,2.2170e+00 ,1.5862e+00 ,8.7403e-01 ,2.7971e-03 /) - kbo(:, 3,44, 6) = (/ & - &3.0022e+00 ,2.4769e+00 ,1.7806e+00 ,9.8740e-01 ,2.8773e-03 /) - kbo(:, 4,44, 6) = (/ & - &3.3965e+00 ,2.7871e+00 ,2.0115e+00 ,1.1213e+00 ,2.9478e-03 /) - kbo(:, 5,44, 6) = (/ & - &3.8747e+00 ,3.1555e+00 ,2.2836e+00 ,1.2791e+00 ,3.0101e-03 /) - kbo(:, 1,45, 6) = (/ & - &2.2815e+00 ,1.8944e+00 ,1.3464e+00 ,7.3467e-01 ,2.2130e-03 /) - kbo(:, 2,45, 6) = (/ & - &2.5401e+00 ,2.1081e+00 ,1.5065e+00 ,8.2816e-01 ,2.2948e-03 /) - kbo(:, 3,45, 6) = (/ & - &2.8533e+00 ,2.3602e+00 ,1.6948e+00 ,9.3826e-01 ,2.3656e-03 /) - kbo(:, 4,45, 6) = (/ & - &3.2382e+00 ,2.6655e+00 ,1.9218e+00 ,1.0700e+00 ,2.4291e-03 /) - kbo(:, 5,45, 6) = (/ & - &3.7076e+00 ,3.0298e+00 ,2.1912e+00 ,1.2259e+00 ,2.4852e-03 /) - kbo(:, 1,46, 6) = (/ & - &2.1752e+00 ,1.8075e+00 ,1.2824e+00 ,6.9758e-01 ,1.8083e-03 /) - kbo(:, 2,46, 6) = (/ & - &2.4262e+00 ,2.0168e+00 ,1.4391e+00 ,7.8916e-01 ,1.8803e-03 /) - kbo(:, 3,46, 6) = (/ & - &2.7306e+00 ,2.2636e+00 ,1.6229e+00 ,8.9649e-01 ,1.9453e-03 /) - kbo(:, 4,46, 6) = (/ & - &3.1079e+00 ,2.5651e+00 ,1.8473e+00 ,1.0263e+00 ,2.0023e-03 /) - kbo(:, 5,46, 6) = (/ & - &3.5715e+00 ,2.9262e+00 ,2.1144e+00 ,1.1808e+00 ,2.0547e-03 /) - kbo(:, 1,47, 6) = (/ & - &2.0439e+00 ,1.6998e+00 ,1.2039e+00 ,6.5284e-01 ,1.4728e-03 /) - kbo(:, 2,47, 6) = (/ & - &2.2849e+00 ,1.9026e+00 ,1.3552e+00 ,7.4124e-01 ,1.5378e-03 /) - kbo(:, 3,47, 6) = (/ & - &2.5739e+00 ,2.1396e+00 ,1.5317e+00 ,8.4434e-01 ,1.5971e-03 /) - kbo(:, 4,47, 6) = (/ & - &2.9355e+00 ,2.4308e+00 ,1.7484e+00 ,9.6939e-01 ,1.6478e-03 /) - kbo(:, 5,47, 6) = (/ & - &3.3837e+00 ,2.7824e+00 ,2.0088e+00 ,1.1198e+00 ,1.6945e-03 /) - kbo(:, 1,48, 6) = (/ & - &1.9729e+00 ,1.6396e+00 ,1.1585e+00 ,6.2585e-01 ,1.1998e-03 /) - kbo(:, 2,48, 6) = (/ & - &2.2114e+00 ,1.8415e+00 ,1.3088e+00 ,7.1328e-01 ,1.2575e-03 /) - kbo(:, 3,48, 6) = (/ & - &2.4937e+00 ,2.0747e+00 ,1.4825e+00 ,8.1439e-01 ,1.3096e-03 /) - kbo(:, 4,48, 6) = (/ & - &2.8486e+00 ,2.3616e+00 ,1.6960e+00 ,9.3764e-01 ,1.3556e-03 /) - kbo(:, 5,48, 6) = (/ & - &3.2936e+00 ,2.7131e+00 ,1.9561e+00 ,1.0874e+00 ,1.3979e-03 /) - kbo(:, 1,49, 6) = (/ & - &1.9817e+00 ,1.6421e+00 ,1.1570e+00 ,6.2210e-01 ,9.7602e-04 /) - kbo(:, 2,49, 6) = (/ & - &2.2272e+00 ,1.8506e+00 ,1.3118e+00 ,7.1147e-01 ,1.0279e-03 /) - kbo(:, 3,49, 6) = (/ & - &2.5150e+00 ,2.0896e+00 ,1.4898e+00 ,8.1454e-01 ,1.0745e-03 /) - kbo(:, 4,49, 6) = (/ & - &2.8769e+00 ,2.3813e+00 ,1.7067e+00 ,9.3965e-01 ,1.1160e-03 /) - kbo(:, 5,49, 6) = (/ & - &3.3353e+00 ,2.7446e+00 ,1.9747e+00 ,1.0933e+00 ,1.1545e-03 /) - kbo(:, 1,50, 6) = (/ & - &1.8978e+00 ,1.5720e+00 ,1.1055e+00 ,5.9245e-01 ,7.9308e-04 /) - kbo(:, 2,50, 6) = (/ & - &2.1399e+00 ,1.7779e+00 ,1.2580e+00 ,6.8007e-01 ,8.3888e-04 /) - kbo(:, 3,50, 6) = (/ & - &2.4218e+00 ,2.0138e+00 ,1.4333e+00 ,7.8150e-01 ,8.7996e-04 /) - kbo(:, 4,50, 6) = (/ & - &2.7742e+00 ,2.2995e+00 ,1.6455e+00 ,9.0381e-01 ,9.1698e-04 /) - kbo(:, 5,50, 6) = (/ & - &3.2255e+00 ,2.6590e+00 ,1.9107e+00 ,1.0555e+00 ,9.5164e-04 /) - kbo(:, 1,51, 6) = (/ & - &1.7787e+00 ,1.4741e+00 ,1.0351e+00 ,5.5321e-01 ,6.4322e-04 /) - kbo(:, 2,51, 6) = (/ & - &2.0121e+00 ,1.6731e+00 ,1.1819e+00 ,6.3736e-01 ,6.8396e-04 /) - kbo(:, 3,51, 6) = (/ & - &2.2825e+00 ,1.9012e+00 ,1.3514e+00 ,7.3514e-01 ,7.1977e-04 /) - kbo(:, 4,51, 6) = (/ & - &2.6184e+00 ,2.1760e+00 ,1.5550e+00 ,8.5263e-01 ,7.5276e-04 /) - kbo(:, 5,51, 6) = (/ & - &3.0526e+00 ,2.5248e+00 ,1.8126e+00 ,9.9966e-01 ,7.8322e-04 /) - kbo(:, 1,52, 6) = (/ & - &1.7138e+00 ,1.4190e+00 ,9.9450e-01 ,5.2987e-01 ,5.2154e-04 /) - kbo(:, 2,52, 6) = (/ & - &1.9434e+00 ,1.6150e+00 ,1.1387e+00 ,6.1204e-01 ,5.5749e-04 /) - kbo(:, 3,52, 6) = (/ & - &2.2115e+00 ,1.8422e+00 ,1.3069e+00 ,7.0863e-01 ,5.8864e-04 /) - kbo(:, 4,52, 6) = (/ & - &2.5398e+00 ,2.1125e+00 ,1.5071e+00 ,8.2393e-01 ,6.1775e-04 /) - kbo(:, 5,52, 6) = (/ & - &2.9672e+00 ,2.4581e+00 ,1.7623e+00 ,9.6952e-01 ,6.4493e-04 /) - kbo(:, 1,53, 6) = (/ & - &1.7198e+00 ,1.4203e+00 ,9.9324e-01 ,5.2715e-01 ,4.2262e-04 /) - kbo(:, 2,53, 6) = (/ & - &1.9529e+00 ,1.6185e+00 ,1.1384e+00 ,6.0925e-01 ,4.5399e-04 /) - kbo(:, 3,53, 6) = (/ & - &2.2293e+00 ,1.8530e+00 ,1.3116e+00 ,7.0805e-01 ,4.8128e-04 /) - kbo(:, 4,53, 6) = (/ & - &2.5636e+00 ,2.1294e+00 ,1.5160e+00 ,8.2535e-01 ,5.0713e-04 /) - kbo(:, 5,53, 6) = (/ & - &3.0004e+00 ,2.4827e+00 ,1.7770e+00 ,9.7383e-01 ,5.3111e-04 /) - kbo(:, 1,54, 6) = (/ & - &1.4969e+00 ,1.2401e+00 ,8.6613e-01 ,4.5904e-01 ,3.4135e-04 /) - kbo(:, 2,54, 6) = (/ & - &1.7004e+00 ,1.4146e+00 ,9.9400e-01 ,5.3139e-01 ,3.6835e-04 /) - kbo(:, 3,54, 6) = (/ & - &1.9475e+00 ,1.6269e+00 ,1.1506e+00 ,6.2081e-01 ,3.9232e-04 /) - kbo(:, 4,54, 6) = (/ & - &2.2441e+00 ,1.8758e+00 ,1.3350e+00 ,7.2699e-01 ,4.1441e-04 /) - kbo(:, 5,54, 6) = (/ & - &2.6322e+00 ,2.1931e+00 ,1.5695e+00 ,8.6094e-01 ,4.3501e-04 /) - kbo(:, 1,55, 6) = (/ & - &1.1902e+00 ,9.9203e-01 ,6.9261e-01 ,3.6696e-01 ,2.7539e-04 /) - kbo(:, 2,55, 6) = (/ & - &1.3514e+00 ,1.1327e+00 ,7.9579e-01 ,4.2578e-01 ,2.9805e-04 /) - kbo(:, 3,55, 6) = (/ & - &1.5528e+00 ,1.3090e+00 ,9.2585e-01 ,5.0048e-01 ,3.1883e-04 /) - kbo(:, 4,55, 6) = (/ & - &1.7945e+00 ,1.5161e+00 ,1.0797e+00 ,5.8958e-01 ,3.3758e-04 /) - kbo(:, 5,55, 6) = (/ & - &2.1091e+00 ,1.7786e+00 ,1.2743e+00 ,7.0161e-01 ,3.5497e-04 /) - kbo(:, 1,56, 6) = (/ & - &9.4564e-01 ,7.9256e-01 ,5.5332e-01 ,2.9317e-01 ,2.2189e-04 /) - kbo(:, 2,56, 6) = (/ & - &1.0727e+00 ,9.0556e-01 ,6.3622e-01 ,3.4063e-01 ,2.4090e-04 /) - kbo(:, 3,56, 6) = (/ & - &1.2368e+00 ,1.0514e+00 ,7.4402e-01 ,4.0280e-01 ,2.5859e-04 /) - kbo(:, 4,56, 6) = (/ & - &1.4335e+00 ,1.2238e+00 ,8.7212e-01 ,4.7748e-01 ,2.7478e-04 /) - kbo(:, 5,56, 6) = (/ & - &1.6876e+00 ,1.4404e+00 ,1.0331e+00 ,5.7092e-01 ,2.8964e-04 /) - kbo(:, 1,57, 6) = (/ & - &7.5151e-01 ,6.3315e-01 ,4.4196e-01 ,2.3414e-01 ,1.7834e-04 /) - kbo(:, 2,57, 6) = (/ & - &8.5091e-01 ,7.2306e-01 ,5.0804e-01 ,2.7214e-01 ,1.9471e-04 /) - kbo(:, 3,57, 6) = (/ & - &9.8353e-01 ,8.4281e-01 ,5.9656e-01 ,3.2337e-01 ,2.0961e-04 /) - kbo(:, 4,57, 6) = (/ & - &1.1433e+00 ,9.8609e-01 ,7.0325e-01 ,3.8594e-01 ,2.2327e-04 /) - kbo(:, 5,57, 6) = (/ & - &1.3484e+00 ,1.1650e+00 ,8.3657e-01 ,4.6393e-01 ,2.3604e-04 /) - kbo(:, 1,58, 6) = (/ & - &1.5793e-01 ,1.6356e-01 ,1.4683e-01 ,1.0896e-01 ,1.4326e-04 /) - kbo(:, 2,58, 6) = (/ & - &1.7834e-01 ,1.8665e-01 ,1.6872e-01 ,1.2675e-01 ,1.5731e-04 /) - kbo(:, 3,58, 6) = (/ & - &2.0650e-01 ,2.1828e-01 ,1.9887e-01 ,1.5129e-01 ,1.6986e-04 /) - kbo(:, 4,58, 6) = (/ & - &2.4084e-01 ,2.5688e-01 ,2.3602e-01 ,1.8197e-01 ,1.8127e-04 /) - kbo(:, 5,58, 6) = (/ & - &2.8453e-01 ,3.0466e-01 ,2.8209e-01 ,2.2013e-01 ,1.9222e-04 /) - kbo(:, 1,59, 6) = (/ & - &1.5159e-01 ,1.5229e-01 ,1.2764e-01 ,8.4631e-02 ,1.1680e-04 /) - kbo(:, 2,59, 6) = (/ & - &1.7166e-01 ,1.7481e-01 ,1.4781e-01 ,9.9479e-02 ,1.2840e-04 /) - kbo(:, 3,59, 6) = (/ & - &1.9953e-01 ,2.0595e-01 ,1.7587e-01 ,1.2013e-01 ,1.3871e-04 /) - kbo(:, 4,59, 6) = (/ & - &2.3377e-01 ,2.4439e-01 ,2.1097e-01 ,1.4631e-01 ,1.4804e-04 /) - kbo(:, 5,59, 6) = (/ & - &2.7769e-01 ,2.9243e-01 ,2.5484e-01 ,1.7920e-01 ,1.5678e-04 /) - kbo(:, 1,13, 7) = (/ & - &1.7755e+03 ,1.3317e+03 ,8.8796e+02 ,4.4421e+02 ,6.5972e-01 /) - kbo(:, 2,13, 7) = (/ & - &1.8279e+03 ,1.3710e+03 ,9.1418e+02 ,4.5731e+02 ,6.6173e-01 /) - kbo(:, 3,13, 7) = (/ & - &1.8885e+03 ,1.4165e+03 ,9.4446e+02 ,4.7244e+02 ,6.6577e-01 /) - kbo(:, 4,13, 7) = (/ & - &1.9490e+03 ,1.4619e+03 ,9.7472e+02 ,4.8757e+02 ,6.7090e-01 /) - kbo(:, 5,13, 7) = (/ & - &2.0075e+03 ,1.5058e+03 ,1.0040e+03 ,5.0220e+02 ,6.7193e-01 /) - kbo(:, 1,14, 7) = (/ & - &9.7594e+02 ,7.3206e+02 ,4.8819e+02 ,2.4432e+02 ,6.3121e-01 /) - kbo(:, 2,14, 7) = (/ & - &1.0087e+03 ,7.5661e+02 ,5.0455e+02 ,2.5249e+02 ,6.3502e-01 /) - kbo(:, 3,14, 7) = (/ & - &1.0415e+03 ,7.8124e+02 ,5.2096e+02 ,2.6069e+02 ,6.3710e-01 /) - kbo(:, 4,14, 7) = (/ & - &1.0744e+03 ,8.0589e+02 ,5.3739e+02 ,2.6890e+02 ,6.4004e-01 /) - kbo(:, 5,14, 7) = (/ & - &1.1054e+03 ,8.2913e+02 ,5.5288e+02 ,2.7664e+02 ,6.4122e-01 /) - kbo(:, 1,15, 7) = (/ & - &5.4478e+02 ,4.0870e+02 ,2.7262e+02 ,1.3654e+02 ,5.9523e-01 /) - kbo(:, 2,15, 7) = (/ & - &5.6305e+02 ,4.2240e+02 ,2.8175e+02 ,1.4110e+02 ,6.0003e-01 /) - kbo(:, 3,15, 7) = (/ & - &5.8123e+02 ,4.3603e+02 ,2.9083e+02 ,1.4563e+02 ,6.0181e-01 /) - kbo(:, 4,15, 7) = (/ & - &5.9882e+02 ,4.4922e+02 ,2.9962e+02 ,1.5002e+02 ,6.0320e-01 /) - kbo(:, 5,15, 7) = (/ & - &6.1530e+02 ,4.6158e+02 ,3.0785e+02 ,1.5413e+02 ,6.0492e-01 /) - kbo(:, 1,16, 7) = (/ & - &3.5993e+02 ,2.7006e+02 ,1.8020e+02 ,9.0332e+01 ,5.5493e-01 /) - kbo(:, 2,16, 7) = (/ & - &3.7215e+02 ,2.7922e+02 ,1.8629e+02 ,9.3372e+01 ,5.5851e-01 /) - kbo(:, 3,16, 7) = (/ & - &3.8394e+02 ,2.8806e+02 ,1.9218e+02 ,9.6308e+01 ,5.6035e-01 /) - kbo(:, 4,16, 7) = (/ & - &3.9518e+02 ,2.9649e+02 ,1.9779e+02 ,9.9106e+01 ,5.6267e-01 /) - kbo(:, 5,16, 7) = (/ & - &4.0564e+02 ,3.0433e+02 ,2.0302e+02 ,1.0171e+02 ,5.6476e-01 /) - kbo(:, 1,17, 7) = (/ & - &2.4595e+02 ,1.8458e+02 ,1.2320e+02 ,6.1838e+01 ,5.0905e-01 /) - kbo(:, 2,17, 7) = (/ & - &2.5413e+02 ,1.9070e+02 ,1.2728e+02 ,6.3868e+01 ,5.1185e-01 /) - kbo(:, 3,17, 7) = (/ & - &2.6187e+02 ,1.9651e+02 ,1.3115e+02 ,6.5795e+01 ,5.1474e-01 /) - kbo(:, 4,17, 7) = (/ & - &2.6921e+02 ,2.0201e+02 ,1.3481e+02 ,6.7615e+01 ,5.1865e-01 /) - kbo(:, 5,17, 7) = (/ & - &2.7688e+02 ,2.0776e+02 ,1.3865e+02 ,6.9531e+01 ,5.2170e-01 /) - kbo(:, 1,18, 7) = (/ & - &1.7164e+02 ,1.2884e+02 ,8.6050e+01 ,4.3266e+01 ,4.6055e-01 /) - kbo(:, 2,18, 7) = (/ & - &1.7713e+02 ,1.3296e+02 ,8.8791e+01 ,4.4628e+01 ,4.6405e-01 /) - kbo(:, 3,18, 7) = (/ & - &1.8233e+02 ,1.3686e+02 ,9.1384e+01 ,4.5916e+01 ,4.6825e-01 /) - kbo(:, 4,18, 7) = (/ & - &1.8765e+02 ,1.4084e+02 ,9.4032e+01 ,4.7229e+01 ,4.7329e-01 /) - kbo(:, 5,18, 7) = (/ & - &1.9405e+02 ,1.4564e+02 ,9.7227e+01 ,4.8824e+01 ,4.7705e-01 /) - kbo(:, 1,19, 7) = (/ & - &1.1725e+02 ,8.8048e+01 ,5.8853e+01 ,2.9674e+01 ,4.1247e-01 /) - kbo(:, 2,19, 7) = (/ & - &1.2086e+02 ,9.0759e+01 ,6.0656e+01 ,3.0566e+01 ,4.1661e-01 /) - kbo(:, 3,19, 7) = (/ & - &1.2440e+02 ,9.3403e+01 ,6.2413e+01 ,3.1438e+01 ,4.2213e-01 /) - kbo(:, 4,19, 7) = (/ & - &1.2864e+02 ,9.6587e+01 ,6.4532e+01 ,3.2489e+01 ,4.2779e-01 /) - kbo(:, 5,19, 7) = (/ & - &1.3396e+02 ,1.0057e+02 ,6.7181e+01 ,3.3807e+01 ,4.3260e-01 /) - kbo(:, 1,20, 7) = (/ & - &8.6468e+01 ,6.4964e+01 ,4.3467e+01 ,2.2017e+01 ,3.6582e-01 /) - kbo(:, 2,20, 7) = (/ & - &8.9024e+01 ,6.6879e+01 ,4.4738e+01 ,2.2636e+01 ,3.7131e-01 /) - kbo(:, 3,20, 7) = (/ & - &9.1943e+01 ,6.9064e+01 ,4.6188e+01 ,2.3347e+01 ,3.7766e-01 /) - kbo(:, 4,20, 7) = (/ & - &9.5737e+01 ,7.1906e+01 ,4.8080e+01 ,2.4283e+01 ,3.8413e-01 /) - kbo(:, 5,20, 7) = (/ & - &1.0032e+02 ,7.5342e+01 ,5.0362e+01 ,2.5410e+01 ,3.9048e-01 /) - kbo(:, 1,21, 7) = (/ & - &6.5580e+01 ,4.9300e+01 ,3.3030e+01 ,1.6896e+01 ,3.2248e-01 /) - kbo(:, 2,21, 7) = (/ & - &6.7679e+01 ,5.0870e+01 ,3.4072e+01 ,1.7386e+01 ,3.2902e-01 /) - kbo(:, 3,21, 7) = (/ & - &7.0353e+01 ,5.2872e+01 ,3.5398e+01 ,1.8022e+01 ,3.3617e-01 /) - kbo(:, 4,21, 7) = (/ & - &7.3710e+01 ,5.5384e+01 ,3.7067e+01 ,1.8833e+01 ,3.4337e-01 /) - kbo(:, 5,21, 7) = (/ & - &7.7378e+01 ,5.8129e+01 ,3.8887e+01 ,1.9718e+01 ,3.5091e-01 /) - kbo(:, 1,22, 7) = (/ & - &5.0990e+01 ,3.8360e+01 ,2.5747e+01 ,1.3390e+01 ,2.8355e-01 /) - kbo(:, 2,22, 7) = (/ & - &5.2937e+01 ,3.9813e+01 ,2.6706e+01 ,1.3827e+01 ,2.9084e-01 /) - kbo(:, 3,22, 7) = (/ & - &5.5472e+01 ,4.1712e+01 ,2.7965e+01 ,1.4417e+01 ,2.9863e-01 /) - kbo(:, 4,22, 7) = (/ & - &5.8295e+01 ,4.3822e+01 ,2.9362e+01 ,1.5079e+01 ,3.0668e-01 /) - kbo(:, 5,22, 7) = (/ & - &6.1215e+01 ,4.6005e+01 ,3.0807e+01 ,1.5766e+01 ,3.1501e-01 /) - kbo(:, 1,23, 7) = (/ & - &3.9928e+01 ,3.0064e+01 ,2.0251e+01 ,1.0753e+01 ,2.4875e-01 /) - kbo(:, 2,23, 7) = (/ & - &4.1783e+01 ,3.1450e+01 ,2.1160e+01 ,1.1173e+01 ,2.5662e-01 /) - kbo(:, 3,23, 7) = (/ & - &4.3954e+01 ,3.3072e+01 ,2.2227e+01 ,1.1670e+01 ,2.6505e-01 /) - kbo(:, 4,23, 7) = (/ & - &4.6239e+01 ,3.4779e+01 ,2.3350e+01 ,1.2195e+01 ,2.7351e-01 /) - kbo(:, 5,23, 7) = (/ & - &4.8555e+01 ,3.6509e+01 ,2.4489e+01 ,1.2725e+01 ,2.8191e-01 /) - kbo(:, 1,24, 7) = (/ & - &3.1198e+01 ,2.3518e+01 ,1.5962e+01 ,8.6666e+00 ,2.1812e-01 /) - kbo(:, 2,24, 7) = (/ & - &3.2836e+01 ,2.4742e+01 ,1.6752e+01 ,9.0412e+00 ,2.2642e-01 /) - kbo(:, 3,24, 7) = (/ & - &3.4586e+01 ,2.6047e+01 ,1.7597e+01 ,9.4445e+00 ,2.3475e-01 /) - kbo(:, 4,24, 7) = (/ & - &3.6388e+01 ,2.7390e+01 ,1.8470e+01 ,9.8567e+00 ,2.4289e-01 /) - kbo(:, 5,24, 7) = (/ & - &3.8237e+01 ,2.8772e+01 ,1.9370e+01 ,1.0281e+01 ,2.5096e-01 /) - kbo(:, 1,25, 7) = (/ & - &2.4765e+01 ,1.8701e+01 ,1.2839e+01 ,7.1044e+00 ,1.9118e-01 /) - kbo(:, 2,25, 7) = (/ & - &2.6117e+01 ,1.9708e+01 ,1.3481e+01 ,7.4248e+00 ,1.9923e-01 /) - kbo(:, 3,25, 7) = (/ & - &2.7518e+01 ,2.0749e+01 ,1.4145e+01 ,7.7545e+00 ,2.0704e-01 /) - kbo(:, 4,25, 7) = (/ & - &2.8948e+01 ,2.1814e+01 ,1.4825e+01 ,8.0892e+00 ,2.1475e-01 /) - kbo(:, 5,25, 7) = (/ & - &3.0459e+01 ,2.2943e+01 ,1.5551e+01 ,8.4409e+00 ,2.2240e-01 /) - kbo(:, 1,26, 7) = (/ & - &1.9997e+01 ,1.5145e+01 ,1.0541e+01 ,5.9203e+00 ,1.6734e-01 /) - kbo(:, 2,26, 7) = (/ & - &2.1098e+01 ,1.5958e+01 ,1.1060e+01 ,6.1929e+00 ,1.7471e-01 /) - kbo(:, 3,26, 7) = (/ & - &2.2238e+01 ,1.6802e+01 ,1.1594e+01 ,6.4727e+00 ,1.8196e-01 /) - kbo(:, 4,26, 7) = (/ & - &2.3407e+01 ,1.7668e+01 ,1.2141e+01 ,6.7596e+00 ,1.8921e-01 /) - kbo(:, 5,26, 7) = (/ & - &2.4698e+01 ,1.8629e+01 ,1.2749e+01 ,7.0654e+00 ,1.9648e-01 /) - kbo(:, 1,27, 7) = (/ & - &1.6756e+01 ,1.2745e+01 ,8.9780e+00 ,5.0906e+00 ,1.4596e-01 /) - kbo(:, 2,27, 7) = (/ & - &1.7682e+01 ,1.3422e+01 ,9.4167e+00 ,5.3320e+00 ,1.5263e-01 /) - kbo(:, 3,27, 7) = (/ & - &1.8639e+01 ,1.4123e+01 ,9.8653e+00 ,5.5814e+00 ,1.5946e-01 /) - kbo(:, 4,27, 7) = (/ & - &1.9672e+01 ,1.4884e+01 ,1.0349e+01 ,5.8433e+00 ,1.6641e-01 /) - kbo(:, 5,27, 7) = (/ & - &2.0853e+01 ,1.5759e+01 ,1.0902e+01 ,6.1333e+00 ,1.7345e-01 /) - kbo(:, 1,28, 7) = (/ & - &1.4405e+01 ,1.1016e+01 ,7.8395e+00 ,4.4691e+00 ,1.2690e-01 /) - kbo(:, 2,28, 7) = (/ & - &1.5206e+01 ,1.1594e+01 ,8.2236e+00 ,4.6907e+00 ,1.3310e-01 /) - kbo(:, 3,28, 7) = (/ & - &1.6055e+01 ,1.2210e+01 ,8.6248e+00 ,4.9200e+00 ,1.3960e-01 /) - kbo(:, 4,28, 7) = (/ & - &1.7030e+01 ,1.2924e+01 ,9.0823e+00 ,5.1747e+00 ,1.4629e-01 /) - kbo(:, 5,28, 7) = (/ & - &1.8152e+01 ,1.3752e+01 ,9.6123e+00 ,5.4653e+00 ,1.5306e-01 /) - kbo(:, 1,29, 7) = (/ & - &1.3149e+01 ,1.0099e+01 ,7.2312e+00 ,4.1269e+00 ,1.1016e-01 /) - kbo(:, 2,29, 7) = (/ & - &1.3892e+01 ,1.0633e+01 ,7.5916e+00 ,4.3391e+00 ,1.1614e-01 /) - kbo(:, 3,29, 7) = (/ & - &1.4735e+01 ,1.1242e+01 ,7.9958e+00 ,4.5718e+00 ,1.2237e-01 /) - kbo(:, 4,29, 7) = (/ & - &1.5717e+01 ,1.1957e+01 ,8.4609e+00 ,4.8366e+00 ,1.2878e-01 /) - kbo(:, 5,29, 7) = (/ & - &1.6850e+01 ,1.2790e+01 ,8.9991e+00 ,5.1366e+00 ,1.3504e-01 /) - kbo(:, 1,30, 7) = (/ & - &1.2314e+01 ,9.4945e+00 ,6.8243e+00 ,3.8903e+00 ,9.5721e-02 /) - kbo(:, 2,30, 7) = (/ & - &1.3054e+01 ,1.0024e+01 ,7.1887e+00 ,4.1054e+00 ,1.0142e-01 /) - kbo(:, 3,30, 7) = (/ & - &1.3921e+01 ,1.0650e+01 ,7.6093e+00 ,4.3517e+00 ,1.0739e-01 /) - kbo(:, 4,30, 7) = (/ & - &1.4944e+01 ,1.1393e+01 ,8.1010e+00 ,4.6344e+00 ,1.1328e-01 /) - kbo(:, 5,30, 7) = (/ & - &1.6104e+01 ,1.2245e+01 ,8.6565e+00 ,4.9501e+00 ,1.1877e-01 /) - kbo(:, 1,31, 7) = (/ & - &1.2157e+01 ,9.3878e+00 ,6.7548e+00 ,3.8381e+00 ,8.3345e-02 /) - kbo(:, 2,31, 7) = (/ & - &1.2955e+01 ,9.9594e+00 ,7.1498e+00 ,4.0728e+00 ,8.8771e-02 /) - kbo(:, 3,31, 7) = (/ & - &1.3911e+01 ,1.0649e+01 ,7.6174e+00 ,4.3452e+00 ,9.4250e-02 /) - kbo(:, 4,31, 7) = (/ & - &1.5017e+01 ,1.1456e+01 ,8.1532e+00 ,4.6551e+00 ,9.9406e-02 /) - kbo(:, 5,31, 7) = (/ & - &1.6266e+01 ,1.2373e+01 ,8.7552e+00 ,5.0004e+00 ,1.0401e-01 /) - kbo(:, 1,32, 7) = (/ & - &1.2189e+01 ,9.4190e+00 ,6.7775e+00 ,3.8398e+00 ,7.2780e-02 /) - kbo(:, 2,32, 7) = (/ & - &1.3084e+01 ,1.0062e+01 ,7.2229e+00 ,4.1020e+00 ,7.7761e-02 /) - kbo(:, 3,32, 7) = (/ & - &1.4139e+01 ,1.0827e+01 ,7.7437e+00 ,4.4056e+00 ,8.2541e-02 /) - kbo(:, 4,32, 7) = (/ & - &1.5347e+01 ,1.1710e+01 ,8.3333e+00 ,4.7481e+00 ,8.6905e-02 /) - kbo(:, 5,32, 7) = (/ & - &1.6687e+01 ,1.2692e+01 ,8.9809e+00 ,5.1206e+00 ,9.0564e-02 /) - kbo(:, 1,33, 7) = (/ & - &1.2504e+01 ,9.6581e+00 ,6.9429e+00 ,3.9220e+00 ,6.3643e-02 /) - kbo(:, 2,33, 7) = (/ & - &1.3523e+01 ,1.0393e+01 ,7.4532e+00 ,4.2218e+00 ,6.8037e-02 /) - kbo(:, 3,33, 7) = (/ & - &1.4701e+01 ,1.1251e+01 ,8.0374e+00 ,4.5635e+00 ,7.2051e-02 /) - kbo(:, 4,33, 7) = (/ & - &1.6035e+01 ,1.2227e+01 ,8.6879e+00 ,4.9410e+00 ,7.5520e-02 /) - kbo(:, 5,33, 7) = (/ & - &1.7498e+01 ,1.3301e+01 ,9.3946e+00 ,5.3470e+00 ,7.8343e-02 /) - kbo(:, 1,34, 7) = (/ & - &1.2544e+01 ,9.6932e+00 ,6.9709e+00 ,3.9324e+00 ,5.5495e-02 /) - kbo(:, 2,34, 7) = (/ & - &1.3652e+01 ,1.0495e+01 ,7.5288e+00 ,4.2613e+00 ,5.9207e-02 /) - kbo(:, 3,34, 7) = (/ & - &1.4931e+01 ,1.1428e+01 ,8.1665e+00 ,4.6328e+00 ,6.2449e-02 /) - kbo(:, 4,34, 7) = (/ & - &1.6342e+01 ,1.2460e+01 ,8.8567e+00 ,5.0367e+00 ,6.5144e-02 /) - kbo(:, 5,34, 7) = (/ & - &1.7926e+01 ,1.3623e+01 ,9.6166e+00 ,5.4694e+00 ,6.7469e-02 /) - kbo(:, 1,35, 7) = (/ & - &1.2550e+01 ,9.7037e+00 ,6.9833e+00 ,3.9358e+00 ,4.7960e-02 /) - kbo(:, 2,35, 7) = (/ & - &1.3742e+01 ,1.0569e+01 ,7.5854e+00 ,4.2904e+00 ,5.1023e-02 /) - kbo(:, 3,35, 7) = (/ & - &1.5093e+01 ,1.1555e+01 ,8.2621e+00 ,4.6878e+00 ,5.3624e-02 /) - kbo(:, 4,35, 7) = (/ & - &1.6591e+01 ,1.2650e+01 ,8.9950e+00 ,5.1151e+00 ,5.5900e-02 /) - kbo(:, 5,35, 7) = (/ & - &1.8304e+01 ,1.3907e+01 ,9.8148e+00 ,5.5812e+00 ,5.7988e-02 /) - kbo(:, 1,36, 7) = (/ & - &1.2397e+01 ,9.5976e+00 ,6.9138e+00 ,3.8949e+00 ,4.1048e-02 /) - kbo(:, 2,36, 7) = (/ & - &1.3655e+01 ,1.0513e+01 ,7.5553e+00 ,4.2704e+00 ,4.3574e-02 /) - kbo(:, 3,36, 7) = (/ & - &1.5056e+01 ,1.1535e+01 ,8.2577e+00 ,4.6863e+00 ,4.5767e-02 /) - kbo(:, 4,36, 7) = (/ & - &1.6621e+01 ,1.2678e+01 ,9.0220e+00 ,5.1309e+00 ,4.7778e-02 /) - kbo(:, 5,36, 7) = (/ & - &1.8454e+01 ,1.4024e+01 ,9.9036e+00 ,5.6291e+00 ,4.9683e-02 /) - kbo(:, 1,37, 7) = (/ & - &1.1793e+01 ,9.1604e+00 ,6.6146e+00 ,3.7234e+00 ,3.4707e-02 /) - kbo(:, 2,37, 7) = (/ & - &1.3041e+01 ,1.0070e+01 ,7.2604e+00 ,4.1046e+00 ,3.6864e-02 /) - kbo(:, 3,37, 7) = (/ & - &1.4439e+01 ,1.1088e+01 ,7.9659e+00 ,4.5244e+00 ,3.8795e-02 /) - kbo(:, 4,37, 7) = (/ & - &1.6025e+01 ,1.2245e+01 ,8.7442e+00 ,4.9773e+00 ,4.0613e-02 /) - kbo(:, 5,37, 7) = (/ & - &1.7882e+01 ,1.3605e+01 ,9.6420e+00 ,5.4880e+00 ,4.2339e-02 /) - kbo(:, 1,38, 7) = (/ & - &1.1383e+01 ,8.8666e+00 ,6.4134e+00 ,3.6072e+00 ,2.9298e-02 /) - kbo(:, 2,38, 7) = (/ & - &1.2643e+01 ,9.7859e+00 ,7.0699e+00 ,3.9972e+00 ,3.1148e-02 /) - kbo(:, 3,38, 7) = (/ & - &1.4056e+01 ,1.0814e+01 ,7.7862e+00 ,4.4229e+00 ,3.2867e-02 /) - kbo(:, 4,38, 7) = (/ & - &1.5686e+01 ,1.2002e+01 ,8.5915e+00 ,4.8935e+00 ,3.4517e-02 /) - kbo(:, 5,38, 7) = (/ & - &1.7595e+01 ,1.3400e+01 ,9.5179e+00 ,5.4208e+00 ,3.6067e-02 /) - kbo(:, 1,39, 7) = (/ & - &1.1254e+01 ,8.7785e+00 ,6.3532e+00 ,3.5698e+00 ,2.4703e-02 /) - kbo(:, 2,39, 7) = (/ & - &1.2546e+01 ,9.7238e+00 ,7.0319e+00 ,3.9725e+00 ,2.6328e-02 /) - kbo(:, 3,39, 7) = (/ & - &1.4010e+01 ,1.0789e+01 ,7.7764e+00 ,4.4152e+00 ,2.7854e-02 /) - kbo(:, 4,39, 7) = (/ & - &1.5714e+01 ,1.2031e+01 ,8.6190e+00 ,4.9070e+00 ,2.9325e-02 /) - kbo(:, 5,39, 7) = (/ & - &1.7752e+01 ,1.3525e+01 ,9.6124e+00 ,5.4718e+00 ,3.0788e-02 /) - kbo(:, 1,40, 7) = (/ & - &1.0343e+01 ,8.1149e+00 ,5.8880e+00 ,3.3077e+00 ,2.0662e-02 /) - kbo(:, 2,40, 7) = (/ & - &1.1581e+01 ,9.0215e+00 ,6.5477e+00 ,3.7008e+00 ,2.2084e-02 /) - kbo(:, 3,40, 7) = (/ & - &1.2986e+01 ,1.0044e+01 ,7.2710e+00 ,4.1322e+00 ,2.3431e-02 /) - kbo(:, 4,40, 7) = (/ & - &1.4638e+01 ,1.1247e+01 ,8.0993e+00 ,4.6196e+00 ,2.4776e-02 /) - kbo(:, 5,40, 7) = (/ & - &1.6625e+01 ,1.2700e+01 ,9.0740e+00 ,5.1787e+00 ,2.6103e-02 /) - kbo(:, 1,41, 7) = (/ & - &9.4683e+00 ,7.4757e+00 ,5.4378e+00 ,3.0540e+00 ,1.7243e-02 /) - kbo(:, 2,41, 7) = (/ & - &1.0645e+01 ,8.3400e+00 ,6.0743e+00 ,3.4334e+00 ,1.8487e-02 /) - kbo(:, 3,41, 7) = (/ & - &1.1996e+01 ,9.3250e+00 ,6.7794e+00 ,3.8546e+00 ,1.9684e-02 /) - kbo(:, 4,41, 7) = (/ & - &1.3587e+01 ,1.0480e+01 ,7.5843e+00 ,4.3322e+00 ,2.0909e-02 /) - kbo(:, 5,41, 7) = (/ & - &1.5513e+01 ,1.1886e+01 ,8.5396e+00 ,4.8864e+00 ,2.2113e-02 /) - kbo(:, 1,42, 7) = (/ & - &8.7596e+00 ,6.9575e+00 ,5.0695e+00 ,2.8442e+00 ,1.4375e-02 /) - kbo(:, 2,42, 7) = (/ & - &9.8918e+00 ,7.7921e+00 ,5.6895e+00 ,3.2145e+00 ,1.5469e-02 /) - kbo(:, 3,42, 7) = (/ & - &1.1196e+01 ,8.7450e+00 ,6.3808e+00 ,3.6290e+00 ,1.6542e-02 /) - kbo(:, 4,42, 7) = (/ & - &1.2750e+01 ,9.8741e+00 ,7.1757e+00 ,4.1018e+00 ,1.7643e-02 /) - kbo(:, 5,42, 7) = (/ & - &1.4631e+01 ,1.1244e+01 ,8.1146e+00 ,4.6494e+00 ,1.8736e-02 /) - kbo(:, 1,43, 7) = (/ & - &8.1129e+00 ,6.4828e+00 ,4.7282e+00 ,2.6502e+00 ,1.1920e-02 /) - kbo(:, 2,43, 7) = (/ & - &9.2040e+00 ,7.2919e+00 ,5.3332e+00 ,3.0110e+00 ,1.2884e-02 /) - kbo(:, 3,43, 7) = (/ & - &1.0467e+01 ,8.2176e+00 ,6.0123e+00 ,3.4195e+00 ,1.3839e-02 /) - kbo(:, 4,43, 7) = (/ & - &1.1975e+01 ,9.3139e+00 ,6.7911e+00 ,3.8837e+00 ,1.4824e-02 /) - kbo(:, 5,43, 7) = (/ & - &1.3821e+01 ,1.0658e+01 ,7.7247e+00 ,4.4294e+00 ,1.5816e-02 /) - kbo(:, 1,44, 7) = (/ & - &7.5813e+00 ,6.0889e+00 ,4.4438e+00 ,2.4886e+00 ,9.8504e-03 /) - kbo(:, 2,44, 7) = (/ & - &8.6433e+00 ,6.8838e+00 ,5.0388e+00 ,2.8416e+00 ,1.0695e-02 /) - kbo(:, 3,44, 7) = (/ & - &9.8815e+00 ,7.7937e+00 ,5.7119e+00 ,3.2452e+00 ,1.1549e-02 /) - kbo(:, 4,44, 7) = (/ & - &1.1354e+01 ,8.8664e+00 ,6.4827e+00 ,3.7047e+00 ,1.2430e-02 /) - kbo(:, 5,44, 7) = (/ & - &1.3162e+01 ,1.0183e+01 ,7.4060e+00 ,4.2473e+00 ,1.3335e-02 /) - kbo(:, 1,45, 7) = (/ & - &7.2186e+00 ,5.8199e+00 ,4.2461e+00 ,2.3747e+00 ,8.1314e-03 /) - kbo(:, 2,45, 7) = (/ & - &8.2698e+00 ,6.6114e+00 ,4.8385e+00 ,2.7251e+00 ,8.8750e-03 /) - kbo(:, 3,45, 7) = (/ & - &9.5031e+00 ,7.5246e+00 ,5.5174e+00 ,3.1306e+00 ,9.6297e-03 /) - kbo(:, 4,45, 7) = (/ & - &1.0974e+01 ,8.5972e+00 ,6.2944e+00 ,3.5936e+00 ,1.0417e-02 /) - kbo(:, 5,45, 7) = (/ & - &1.2791e+01 ,9.9194e+00 ,7.2286e+00 ,4.1456e+00 ,1.1234e-02 /) - kbo(:, 1,46, 7) = (/ & - &6.9141e+00 ,5.5940e+00 ,4.0776e+00 ,2.2758e+00 ,6.6876e-03 /) - kbo(:, 2,46, 7) = (/ & - &7.9503e+00 ,6.3788e+00 ,4.6670e+00 ,2.6226e+00 ,7.3399e-03 /) - kbo(:, 3,46, 7) = (/ & - &9.1864e+00 ,7.2991e+00 ,5.3560e+00 ,3.0335e+00 ,8.0038e-03 /) - kbo(:, 4,46, 7) = (/ & - &1.0667e+01 ,8.3803e+00 ,6.1440e+00 ,3.5030e+00 ,8.7040e-03 /) - kbo(:, 5,46, 7) = (/ & - &1.2488e+01 ,9.7091e+00 ,7.0857e+00 ,4.0595e+00 ,9.4400e-03 /) - kbo(:, 1,47, 7) = (/ & - &6.5158e+00 ,5.2952e+00 ,3.8553e+00 ,2.1461e+00 ,5.4578e-03 /) - kbo(:, 2,47, 7) = (/ & - &7.5125e+00 ,6.0542e+00 ,4.4282e+00 ,2.4823e+00 ,6.0287e-03 /) - kbo(:, 3,47, 7) = (/ & - &8.7277e+00 ,6.9654e+00 ,5.1130e+00 ,2.8905e+00 ,6.6123e-03 /) - kbo(:, 4,47, 7) = (/ & - &1.0180e+01 ,8.0330e+00 ,5.8977e+00 ,3.3599e+00 ,7.2304e-03 /) - kbo(:, 5,47, 7) = (/ & - &1.1985e+01 ,9.3498e+00 ,6.8393e+00 ,3.9162e+00 ,7.8875e-03 /) - kbo(:, 1,48, 7) = (/ & - &6.3104e+00 ,5.1398e+00 ,3.7343e+00 ,2.0712e+00 ,4.4438e-03 /) - kbo(:, 2,48, 7) = (/ & - &7.2865e+00 ,5.8865e+00 ,4.2999e+00 ,2.4038e+00 ,4.9412e-03 /) - kbo(:, 3,48, 7) = (/ & - &8.5071e+00 ,6.8079e+00 ,4.9920e+00 ,2.8153e+00 ,5.4521e-03 /) - kbo(:, 4,48, 7) = (/ & - &9.9728e+00 ,7.8905e+00 ,5.7928e+00 ,3.2942e+00 ,5.9945e-03 /) - kbo(:, 5,48, 7) = (/ & - &1.1799e+01 ,9.2259e+00 ,6.7537e+00 ,3.8639e+00 ,6.5748e-03 /) - kbo(:, 1,49, 7) = (/ & - &6.3637e+00 ,5.1793e+00 ,3.7516e+00 ,2.0723e+00 ,3.6085e-03 /) - kbo(:, 2,49, 7) = (/ & - &7.3474e+00 ,5.9332e+00 ,4.3233e+00 ,2.4087e+00 ,4.0406e-03 /) - kbo(:, 3,49, 7) = (/ & - &8.6221e+00 ,6.8978e+00 ,5.0458e+00 ,2.8357e+00 ,4.4876e-03 /) - kbo(:, 4,49, 7) = (/ & - &1.0155e+01 ,8.0340e+00 ,5.8866e+00 ,3.3379e+00 ,4.9641e-03 /) - kbo(:, 5,49, 7) = (/ & - &1.2071e+01 ,9.4371e+00 ,6.8986e+00 ,3.9361e+00 ,5.4780e-03 /) - kbo(:, 1,50, 7) = (/ & - &6.1287e+00 ,4.9982e+00 ,3.6130e+00 ,1.9898e+00 ,2.9263e-03 /) - kbo(:, 2,50, 7) = (/ & - &7.0793e+00 ,5.7315e+00 ,4.1690e+00 ,2.3166e+00 ,3.3022e-03 /) - kbo(:, 3,50, 7) = (/ & - &8.3385e+00 ,6.6892e+00 ,4.8872e+00 ,2.7388e+00 ,3.6894e-03 /) - kbo(:, 4,50, 7) = (/ & - &9.8705e+00 ,7.8310e+00 ,5.7364e+00 ,3.2460e+00 ,4.1061e-03 /) - kbo(:, 5,50, 7) = (/ & - &1.1792e+01 ,9.2428e+00 ,6.7611e+00 ,3.8534e+00 ,4.5631e-03 /) - kbo(:, 1,51, 7) = (/ & - &5.7768e+00 ,4.7273e+00 ,3.4121e+00 ,1.8743e+00 ,2.3693e-03 /) - kbo(:, 2,51, 7) = (/ & - &6.6763e+00 ,5.4272e+00 ,3.9426e+00 ,2.1849e+00 ,2.6931e-03 /) - kbo(:, 3,51, 7) = (/ & - &7.8931e+00 ,6.3576e+00 ,4.6398e+00 ,2.5939e+00 ,3.0298e-03 /) - kbo(:, 4,51, 7) = (/ & - &9.3905e+00 ,7.4818e+00 ,5.4825e+00 ,3.0966e+00 ,3.3909e-03 /) - kbo(:, 5,51, 7) = (/ & - &1.1270e+01 ,8.8663e+00 ,6.4953e+00 ,3.6986e+00 ,3.7911e-03 /) - kbo(:, 1,52, 7) = (/ & - &5.5982e+00 ,4.5875e+00 ,3.3045e+00 ,1.8093e+00 ,1.9133e-03 /) - kbo(:, 2,52, 7) = (/ & - &6.4669e+00 ,5.2676e+00 ,3.8189e+00 ,2.1105e+00 ,2.1929e-03 /) - kbo(:, 3,52, 7) = (/ & - &7.6692e+00 ,6.1904e+00 ,4.5114e+00 ,2.5133e+00 ,2.4833e-03 /) - kbo(:, 4,52, 7) = (/ & - &9.1760e+00 ,7.3261e+00 ,5.3623e+00 ,3.0203e+00 ,2.7953e-03 /) - kbo(:, 5,52, 7) = (/ & - &1.1059e+01 ,8.7181e+00 ,6.3851e+00 ,3.6291e+00 ,3.1452e-03 /) - kbo(:, 1,53, 7) = (/ & - &5.6498e+00 ,4.6222e+00 ,3.3203e+00 ,1.8115e+00 ,1.5408e-03 /) - kbo(:, 2,53, 7) = (/ & - &6.5197e+00 ,5.3054e+00 ,3.8365e+00 ,2.1129e+00 ,1.7821e-03 /) - kbo(:, 3,53, 7) = (/ & - &7.7464e+00 ,6.2478e+00 ,4.5414e+00 ,2.5222e+00 ,2.0319e-03 /) - kbo(:, 4,53, 7) = (/ & - &9.3204e+00 ,7.4376e+00 ,5.4308e+00 ,3.0476e+00 ,2.3029e-03 /) - kbo(:, 5,53, 7) = (/ & - &1.1294e+01 ,8.9013e+00 ,6.5042e+00 ,3.6848e+00 ,2.6089e-03 /) - kbo(:, 1,54, 7) = (/ & - &4.9410e+00 ,4.0701e+00 ,2.9220e+00 ,1.5920e+00 ,1.2393e-03 /) - kbo(:, 2,54, 7) = (/ & - &5.7011e+00 ,4.6779e+00 ,3.3818e+00 ,1.8599e+00 ,1.4465e-03 /) - kbo(:, 3,54, 7) = (/ & - &6.7851e+00 ,5.5214e+00 ,4.0167e+00 ,2.2288e+00 ,1.6602e-03 /) - kbo(:, 4,54, 7) = (/ & - &8.2133e+00 ,6.6133e+00 ,4.8372e+00 ,2.7129e+00 ,1.8918e-03 /) - kbo(:, 5,54, 7) = (/ & - &1.0009e+01 ,7.9570e+00 ,5.8358e+00 ,3.3045e+00 ,2.1561e-03 /) - kbo(:, 1,55, 7) = (/ & - &3.9448e+00 ,3.2894e+00 ,2.3617e+00 ,1.2863e+00 ,9.9479e-04 /) - kbo(:, 2,55, 7) = (/ & - &4.5510e+00 ,3.7868e+00 ,2.7406e+00 ,1.5076e+00 ,1.1698e-03 /) - kbo(:, 3,55, 7) = (/ & - &5.4272e+00 ,4.4849e+00 ,3.2681e+00 ,1.8142e+00 ,1.3510e-03 /) - kbo(:, 4,55, 7) = (/ & - &6.6050e+00 ,5.4031e+00 ,3.9651e+00 ,2.2259e+00 ,1.5494e-03 /) - kbo(:, 5,55, 7) = (/ & - &8.0992e+00 ,6.5420e+00 ,4.8249e+00 ,2.7373e+00 ,1.7731e-03 /) - kbo(:, 1,56, 7) = (/ & - &3.1456e+00 ,2.6539e+00 ,1.9051e+00 ,1.0370e+00 ,7.9618e-04 /) - kbo(:, 2,56, 7) = (/ & - &3.6287e+00 ,3.0618e+00 ,2.2169e+00 ,1.2199e+00 ,9.4437e-04 /) - kbo(:, 3,56, 7) = (/ & - &4.3315e+00 ,3.6363e+00 ,2.6526e+00 ,1.4737e+00 ,1.0978e-03 /) - kbo(:, 4,56, 7) = (/ & - &5.3003e+00 ,4.4092e+00 ,3.2425e+00 ,1.8210e+00 ,1.2654e-03 /) - kbo(:, 5,56, 7) = (/ & - &6.5412e+00 ,5.3749e+00 ,3.9813e+00 ,2.2622e+00 ,1.4546e-03 /) - kbo(:, 1,57, 7) = (/ & - &2.5050e+00 ,2.1372e+00 ,1.5333e+00 ,8.3409e-01 ,6.3524e-04 /) - kbo(:, 2,57, 7) = (/ & - &2.8897e+00 ,2.4717e+00 ,1.7900e+00 ,9.8489e-01 ,7.5959e-04 /) - kbo(:, 3,57, 7) = (/ & - &3.4502e+00 ,2.9412e+00 ,2.1481e+00 ,1.1943e+00 ,8.8948e-04 /) - kbo(:, 4,57, 7) = (/ & - &4.2411e+00 ,3.5892e+00 ,2.6434e+00 ,1.4858e+00 ,1.0311e-03 /) - kbo(:, 5,57, 7) = (/ & - &5.2712e+00 ,4.4105e+00 ,3.2776e+00 ,1.8647e+00 ,1.1913e-03 /) - kbo(:, 1,58, 7) = (/ & - &5.2639e-01 ,5.5628e-01 ,5.1310e-01 ,3.9091e-01 ,5.0641e-04 /) - kbo(:, 2,58, 7) = (/ & - &6.0772e-01 ,6.4553e-01 ,6.0135e-01 ,4.6372e-01 ,6.1035e-04 /) - kbo(:, 3,58, 7) = (/ & - &7.2539e-01 ,7.7016e-01 ,7.2403e-01 ,5.6463e-01 ,7.2056e-04 /) - kbo(:, 4,58, 7) = (/ & - &8.9558e-01 ,9.4507e-01 ,8.9682e-01 ,7.0739e-01 ,8.3918e-04 /) - kbo(:, 5,58, 7) = (/ & - &1.1215e+00 ,1.1728e+00 ,1.1240e+00 ,8.9769e-01 ,9.7498e-04 /) - kbo(:, 1,59, 7) = (/ & - &5.0774e-01 ,5.2725e-01 ,4.5400e-01 ,3.0925e-01 ,4.1598e-04 /) - kbo(:, 2,59, 7) = (/ & - &5.8906e-01 ,6.1772e-01 ,5.3777e-01 ,3.7151e-01 ,5.0342e-04 /) - kbo(:, 3,59, 7) = (/ & - &7.0796e-01 ,7.4490e-01 ,6.5525e-01 ,4.5851e-01 ,5.9609e-04 /) - kbo(:, 4,59, 7) = (/ & - &8.8130e-01 ,9.2517e-01 ,8.2251e-01 ,5.8308e-01 ,6.9661e-04 /) - kbo(:, 5,59, 7) = (/ & - &1.1130e+00 ,1.1619e+00 ,1.0449e+00 ,7.5118e-01 ,8.1226e-04 /) - kbo(:, 1,13, 8) = (/ & - &5.5674e+03 ,4.1757e+03 ,2.7839e+03 ,1.3922e+03 ,1.1827e+00 /) - kbo(:, 2,13, 8) = (/ & - &5.5672e+03 ,4.1755e+03 ,2.7838e+03 ,1.3922e+03 ,1.1780e+00 /) - kbo(:, 3,13, 8) = (/ & - &5.5974e+03 ,4.1981e+03 ,2.7989e+03 ,1.3997e+03 ,1.1714e+00 /) - kbo(:, 4,13, 8) = (/ & - &5.6743e+03 ,4.2558e+03 ,2.8374e+03 ,1.4189e+03 ,1.1612e+00 /) - kbo(:, 5,13, 8) = (/ & - &5.7999e+03 ,4.3500e+03 ,2.9002e+03 ,1.4503e+03 ,1.1566e+00 /) - kbo(:, 1,14, 8) = (/ & - &3.0072e+03 ,2.2555e+03 ,1.5038e+03 ,7.5211e+02 ,1.1873e+00 /) - kbo(:, 2,14, 8) = (/ & - &3.0260e+03 ,2.2696e+03 ,1.5132e+03 ,7.5683e+02 ,1.1778e+00 /) - kbo(:, 3,14, 8) = (/ & - &3.0739e+03 ,2.3055e+03 ,1.5371e+03 ,7.6880e+02 ,1.1759e+00 /) - kbo(:, 4,14, 8) = (/ & - &3.1534e+03 ,2.3651e+03 ,1.5769e+03 ,7.8868e+02 ,1.1686e+00 /) - kbo(:, 5,14, 8) = (/ & - &3.2601e+03 ,2.4451e+03 ,1.6302e+03 ,8.1536e+02 ,1.1588e+00 /) - kbo(:, 1,15, 8) = (/ & - &1.6681e+03 ,1.2512e+03 ,8.3428e+02 ,4.1737e+02 ,1.1796e+00 /) - kbo(:, 2,15, 8) = (/ & - &1.6959e+03 ,1.2720e+03 ,8.4818e+02 ,4.2432e+02 ,1.1712e+00 /) - kbo(:, 3,15, 8) = (/ & - &1.7438e+03 ,1.3080e+03 ,8.7214e+02 ,4.3631e+02 ,1.1630e+00 /) - kbo(:, 4,15, 8) = (/ & - &1.8057e+03 ,1.3544e+03 ,9.0311e+02 ,4.5180e+02 ,1.1584e+00 /) - kbo(:, 5,15, 8) = (/ & - &1.8729e+03 ,1.4048e+03 ,9.3671e+02 ,4.6860e+02 ,1.1490e+00 /) - kbo(:, 1,16, 8) = (/ & - &1.1127e+03 ,8.3463e+02 ,5.5657e+02 ,2.7851e+02 ,1.1544e+00 /) - kbo(:, 2,16, 8) = (/ & - &1.1452e+03 ,8.5902e+02 ,5.7284e+02 ,2.8665e+02 ,1.1489e+00 /) - kbo(:, 3,16, 8) = (/ & - &1.1859e+03 ,8.8958e+02 ,5.9321e+02 ,2.9685e+02 ,1.1423e+00 /) - kbo(:, 4,16, 8) = (/ & - &1.2314e+03 ,9.2370e+02 ,6.1596e+02 ,3.0822e+02 ,1.1380e+00 /) - kbo(:, 5,16, 8) = (/ & - &1.2793e+03 ,9.5963e+02 ,6.3991e+02 ,3.2020e+02 ,1.1307e+00 /) - kbo(:, 1,17, 8) = (/ & - &7.7661e+02 ,5.8258e+02 ,3.8854e+02 ,1.9450e+02 ,1.1162e+00 /) - kbo(:, 2,17, 8) = (/ & - &8.0415e+02 ,6.0323e+02 ,4.0231e+02 ,2.0139e+02 ,1.1130e+00 /) - kbo(:, 3,17, 8) = (/ & - &8.3554e+02 ,6.2677e+02 ,4.1801e+02 ,2.0924e+02 ,1.1093e+00 /) - kbo(:, 4,17, 8) = (/ & - &8.6787e+02 ,6.5102e+02 ,4.3418e+02 ,2.1733e+02 ,1.1057e+00 /) - kbo(:, 5,17, 8) = (/ & - &9.0039e+02 ,6.7541e+02 ,4.5043e+02 ,2.2545e+02 ,1.0994e+00 /) - kbo(:, 1,18, 8) = (/ & - &5.5593e+02 ,4.1706e+02 ,2.7819e+02 ,1.3933e+02 ,1.0653e+00 /) - kbo(:, 2,18, 8) = (/ & - &5.7731e+02 ,4.3309e+02 ,2.8888e+02 ,1.4467e+02 ,1.0637e+00 /) - kbo(:, 3,18, 8) = (/ & - &5.9962e+02 ,4.4983e+02 ,3.0005e+02 ,1.5026e+02 ,1.0625e+00 /) - kbo(:, 4,18, 8) = (/ & - &6.2213e+02 ,4.6672e+02 ,3.1130e+02 ,1.5589e+02 ,1.0595e+00 /) - kbo(:, 5,18, 8) = (/ & - &6.4470e+02 ,4.8364e+02 ,3.2258e+02 ,1.6152e+02 ,1.0552e+00 /) - kbo(:, 1,19, 8) = (/ & - &3.9059e+02 ,2.9306e+02 ,1.9552e+02 ,9.7992e+01 ,1.0025e+00 /) - kbo(:, 2,19, 8) = (/ & - &4.0544e+02 ,3.0420e+02 ,2.0295e+02 ,1.0172e+02 ,1.0019e+00 /) - kbo(:, 3,19, 8) = (/ & - &4.2056e+02 ,3.1554e+02 ,2.1052e+02 ,1.0550e+02 ,1.0025e+00 /) - kbo(:, 4,19, 8) = (/ & - &4.3576e+02 ,3.2693e+02 ,2.1811e+02 ,1.0930e+02 ,1.0012e+00 /) - kbo(:, 5,19, 8) = (/ & - &4.5126e+02 ,3.3856e+02 ,2.2586e+02 ,1.1317e+02 ,9.9899e-01 /) - kbo(:, 1,20, 8) = (/ & - &2.9617e+02 ,2.2224e+02 ,1.4831e+02 ,7.4392e+01 ,9.3059e-01 /) - kbo(:, 2,20, 8) = (/ & - &3.0716e+02 ,2.3049e+02 ,1.5382e+02 ,7.7154e+01 ,9.3219e-01 /) - kbo(:, 3,20, 8) = (/ & - &3.1816e+02 ,2.3874e+02 ,1.5932e+02 ,7.9908e+01 ,9.3370e-01 /) - kbo(:, 4,20, 8) = (/ & - &3.2952e+02 ,2.4726e+02 ,1.6500e+02 ,8.2741e+01 ,9.3435e-01 /) - kbo(:, 5,20, 8) = (/ & - &3.4150e+02 ,2.5625e+02 ,1.7099e+02 ,8.5741e+01 ,9.3474e-01 /) - kbo(:, 1,21, 8) = (/ & - &2.3042e+02 ,1.7293e+02 ,1.1544e+02 ,5.7965e+01 ,8.5235e-01 /) - kbo(:, 2,21, 8) = (/ & - &2.3880e+02 ,1.7922e+02 ,1.1964e+02 ,6.0070e+01 ,8.5599e-01 /) - kbo(:, 3,21, 8) = (/ & - &2.4721e+02 ,1.8553e+02 ,1.2385e+02 ,6.2177e+01 ,8.5938e-01 /) - kbo(:, 4,21, 8) = (/ & - &2.5622e+02 ,1.9229e+02 ,1.2835e+02 ,6.4426e+01 ,8.6241e-01 /) - kbo(:, 5,21, 8) = (/ & - &2.6653e+02 ,2.0002e+02 ,1.3351e+02 ,6.7009e+01 ,8.6670e-01 /) - kbo(:, 1,22, 8) = (/ & - &1.8346e+02 ,1.3771e+02 ,9.1962e+01 ,4.6247e+01 ,7.7175e-01 /) - kbo(:, 2,22, 8) = (/ & - &1.8996e+02 ,1.4259e+02 ,9.5222e+01 ,4.7880e+01 ,7.7757e-01 /) - kbo(:, 3,22, 8) = (/ & - &1.9685e+02 ,1.4775e+02 ,9.8665e+01 ,4.9599e+01 ,7.8369e-01 /) - kbo(:, 4,22, 8) = (/ & - &2.0481e+02 ,1.5373e+02 ,1.0265e+02 ,5.1591e+01 ,7.9052e-01 /) - kbo(:, 5,22, 8) = (/ & - &2.1438e+02 ,1.6091e+02 ,1.0745e+02 ,5.3989e+01 ,7.9865e-01 /) - kbo(:, 1,23, 8) = (/ & - &1.4619e+02 ,1.0976e+02 ,7.3333e+01 ,3.7009e+01 ,6.9269e-01 /) - kbo(:, 2,23, 8) = (/ & - &1.5146e+02 ,1.1371e+02 ,7.5969e+01 ,3.8312e+01 ,7.0058e-01 /) - kbo(:, 3,23, 8) = (/ & - &1.5752e+02 ,1.1826e+02 ,7.9004e+01 ,3.9812e+01 ,7.0997e-01 /) - kbo(:, 4,23, 8) = (/ & - &1.6498e+02 ,1.2386e+02 ,8.2742e+01 ,4.1669e+01 ,7.2082e-01 /) - kbo(:, 5,23, 8) = (/ & - &1.7382e+02 ,1.3049e+02 ,8.7175e+01 ,4.3881e+01 ,7.3247e-01 /) - kbo(:, 1,24, 8) = (/ & - &1.1546e+02 ,8.6713e+01 ,5.7975e+01 ,2.9484e+01 ,6.1736e-01 /) - kbo(:, 2,24, 8) = (/ & - &1.1997e+02 ,9.0096e+01 ,6.0229e+01 ,3.0574e+01 ,6.2822e-01 /) - kbo(:, 3,24, 8) = (/ & - &1.2560e+02 ,9.4324e+01 ,6.3051e+01 ,3.1946e+01 ,6.4118e-01 /) - kbo(:, 4,24, 8) = (/ & - &1.3251e+02 ,9.9515e+01 ,6.6517e+01 ,3.3646e+01 ,6.5583e-01 /) - kbo(:, 5,24, 8) = (/ & - &1.4039e+02 ,1.0542e+02 ,7.0467e+01 ,3.5600e+01 ,6.7045e-01 /) - kbo(:, 1,25, 8) = (/ & - &9.2335e+01 ,6.9366e+01 ,4.6428e+01 ,2.3921e+01 ,5.4857e-01 /) - kbo(:, 2,25, 8) = (/ & - &9.6533e+01 ,7.2518e+01 ,4.8524e+01 ,2.4911e+01 ,5.6301e-01 /) - kbo(:, 3,25, 8) = (/ & - &1.0186e+02 ,7.6521e+01 ,5.1191e+01 ,2.6188e+01 ,5.7925e-01 /) - kbo(:, 4,25, 8) = (/ & - &1.0808e+02 ,8.1193e+01 ,5.4315e+01 ,2.7693e+01 ,5.9615e-01 /) - kbo(:, 5,25, 8) = (/ & - &1.1475e+02 ,8.6195e+01 ,5.7652e+01 ,2.9318e+01 ,6.1289e-01 /) - kbo(:, 1,26, 8) = (/ & - &7.5309e+01 ,5.6599e+01 ,3.7963e+01 ,1.9911e+01 ,4.8832e-01 /) - kbo(:, 2,26, 8) = (/ & - &7.9402e+01 ,5.9672e+01 ,3.9995e+01 ,2.0863e+01 ,5.0531e-01 /) - kbo(:, 3,26, 8) = (/ & - &8.4365e+01 ,6.3403e+01 ,4.2472e+01 ,2.2029e+01 ,5.2357e-01 /) - kbo(:, 4,26, 8) = (/ & - &8.9751e+01 ,6.7447e+01 ,4.5169e+01 ,2.3307e+01 ,5.4165e-01 /) - kbo(:, 5,26, 8) = (/ & - &9.5432e+01 ,7.1708e+01 ,4.8005e+01 ,2.4657e+01 ,5.6018e-01 /) - kbo(:, 1,27, 8) = (/ & - &6.4036e+01 ,4.8147e+01 ,3.2405e+01 ,1.7310e+01 ,4.3584e-01 /) - kbo(:, 2,27, 8) = (/ & - &6.8098e+01 ,5.1198e+01 ,3.4406e+01 ,1.8250e+01 ,4.5420e-01 /) - kbo(:, 3,27, 8) = (/ & - &7.2623e+01 ,5.4602e+01 ,3.6656e+01 ,1.9303e+01 ,4.7326e-01 /) - kbo(:, 4,27, 8) = (/ & - &7.7443e+01 ,5.8217e+01 ,3.9050e+01 ,2.0426e+01 ,4.9239e-01 /) - kbo(:, 5,27, 8) = (/ & - &8.2321e+01 ,6.1875e+01 ,4.1476e+01 ,2.1557e+01 ,5.1192e-01 /) - kbo(:, 1,28, 8) = (/ & - &5.6234e+01 ,4.2299e+01 ,2.8597e+01 ,1.5531e+01 ,3.8958e-01 /) - kbo(:, 2,28, 8) = (/ & - &6.0088e+01 ,4.5199e+01 ,3.0486e+01 ,1.6430e+01 ,4.0865e-01 /) - kbo(:, 3,28, 8) = (/ & - &6.4206e+01 ,4.8292e+01 ,3.2515e+01 ,1.7385e+01 ,4.2800e-01 /) - kbo(:, 4,28, 8) = (/ & - &6.8496e+01 ,5.1510e+01 ,3.4630e+01 ,1.8368e+01 ,4.4785e-01 /) - kbo(:, 5,28, 8) = (/ & - &7.2933e+01 ,5.4831e+01 ,3.6814e+01 ,1.9374e+01 ,4.6830e-01 /) - kbo(:, 1,29, 8) = (/ & - &5.2522e+01 ,3.9524e+01 ,2.6825e+01 ,1.4721e+01 ,3.4924e-01 /) - kbo(:, 2,29, 8) = (/ & - &5.6330e+01 ,4.2387e+01 ,2.8683e+01 ,1.5618e+01 ,3.6822e-01 /) - kbo(:, 3,29, 8) = (/ & - &6.0271e+01 ,4.5343e+01 ,3.0606e+01 ,1.6531e+01 ,3.8784e-01 /) - kbo(:, 4,29, 8) = (/ & - &6.4389e+01 ,4.8431e+01 ,3.2623e+01 ,1.7468e+01 ,4.0814e-01 /) - kbo(:, 5,29, 8) = (/ & - &6.8669e+01 ,5.1633e+01 ,3.4713e+01 ,1.8422e+01 ,4.2953e-01 /) - kbo(:, 1,30, 8) = (/ & - &5.0335e+01 ,3.7896e+01 ,2.5810e+01 ,1.4271e+01 ,3.1347e-01 /) - kbo(:, 2,30, 8) = (/ & - &5.4100e+01 ,4.0719e+01 ,2.7633e+01 ,1.5165e+01 ,3.3234e-01 /) - kbo(:, 3,30, 8) = (/ & - &5.7975e+01 ,4.3625e+01 ,2.9511e+01 ,1.6060e+01 ,3.5217e-01 /) - kbo(:, 4,30, 8) = (/ & - &6.2057e+01 ,4.6681e+01 ,3.1490e+01 ,1.6979e+01 ,3.7324e-01 /) - kbo(:, 5,30, 8) = (/ & - &6.6429e+01 ,4.9951e+01 ,3.3616e+01 ,1.7947e+01 ,3.9520e-01 /) - kbo(:, 1,31, 8) = (/ & - &5.0736e+01 ,3.8204e+01 ,2.6057e+01 ,1.4444e+01 ,2.8199e-01 /) - kbo(:, 2,31, 8) = (/ & - &5.4607e+01 ,4.1105e+01 ,2.7922e+01 ,1.5358e+01 ,3.0094e-01 /) - kbo(:, 3,31, 8) = (/ & - &5.8681e+01 ,4.4155e+01 ,2.9887e+01 ,1.6295e+01 ,3.2130e-01 /) - kbo(:, 4,31, 8) = (/ & - &6.3068e+01 ,4.7436e+01 ,3.2008e+01 ,1.7279e+01 ,3.4300e-01 /) - kbo(:, 5,31, 8) = (/ & - &6.7873e+01 ,5.1031e+01 ,3.4344e+01 ,1.8340e+01 ,3.6582e-01 /) - kbo(:, 1,32, 8) = (/ & - &5.1816e+01 ,3.9019e+01 ,2.6627e+01 ,1.4770e+01 ,2.5449e-01 /) - kbo(:, 2,32, 8) = (/ & - &5.5914e+01 ,4.2088e+01 ,2.8597e+01 ,1.5735e+01 ,2.7379e-01 /) - kbo(:, 3,32, 8) = (/ & - &6.0292e+01 ,4.5361e+01 ,3.0700e+01 ,1.6736e+01 ,2.9480e-01 /) - kbo(:, 4,32, 8) = (/ & - &6.5110e+01 ,4.8965e+01 ,3.3030e+01 ,1.7812e+01 ,3.1717e-01 /) - kbo(:, 5,32, 8) = (/ & - &7.0477e+01 ,5.2981e+01 ,3.5640e+01 ,1.8999e+01 ,3.4101e-01 /) - kbo(:, 1,33, 8) = (/ & - &5.3927e+01 ,4.0606e+01 ,2.7695e+01 ,1.5341e+01 ,2.3093e-01 /) - kbo(:, 2,33, 8) = (/ & - &5.8395e+01 ,4.3947e+01 ,2.9836e+01 ,1.6383e+01 ,2.5073e-01 /) - kbo(:, 3,33, 8) = (/ & - &6.3254e+01 ,4.7578e+01 ,3.2172e+01 ,1.7485e+01 ,2.7229e-01 /) - kbo(:, 4,33, 8) = (/ & - &6.8732e+01 ,5.1678e+01 ,3.4827e+01 ,1.8707e+01 ,2.9562e-01 /) - kbo(:, 5,33, 8) = (/ & - &7.4993e+01 ,5.6366e+01 ,3.7885e+01 ,2.0105e+01 ,3.2058e-01 /) - kbo(:, 1,34, 8) = (/ & - &5.4725e+01 ,4.1207e+01 ,2.8111e+01 ,1.5582e+01 ,2.1030e-01 /) - kbo(:, 2,34, 8) = (/ & - &5.9482e+01 ,4.4761e+01 ,3.0384e+01 ,1.6682e+01 ,2.3046e-01 /) - kbo(:, 3,34, 8) = (/ & - &6.4816e+01 ,4.8747e+01 ,3.2949e+01 ,1.7887e+01 ,2.5288e-01 /) - kbo(:, 4,34, 8) = (/ & - &7.0970e+01 ,5.3352e+01 ,3.5935e+01 ,1.9263e+01 ,2.7720e-01 /) - kbo(:, 5,34, 8) = (/ & - &7.8000e+01 ,5.8622e+01 ,3.9384e+01 ,2.0853e+01 ,3.0314e-01 /) - kbo(:, 1,35, 8) = (/ & - &5.5341e+01 ,4.1670e+01 ,2.8432e+01 ,1.5766e+01 ,1.9105e-01 /) - kbo(:, 2,35, 8) = (/ & - &6.0475e+01 ,4.5504e+01 ,3.0887e+01 ,1.6952e+01 ,2.1167e-01 /) - kbo(:, 3,35, 8) = (/ & - &6.6351e+01 ,4.9895e+01 ,3.3711e+01 ,1.8277e+01 ,2.3461e-01 /) - kbo(:, 4,35, 8) = (/ & - &7.3222e+01 ,5.5040e+01 ,3.7057e+01 ,1.9828e+01 ,2.5964e-01 /) - kbo(:, 5,35, 8) = (/ & - &8.0936e+01 ,6.0824e+01 ,4.0848e+01 ,2.1583e+01 ,2.8629e-01 /) - kbo(:, 1,36, 8) = (/ & - &5.5260e+01 ,4.1610e+01 ,2.8415e+01 ,1.5779e+01 ,1.7255e-01 /) - kbo(:, 2,36, 8) = (/ & - &6.0687e+01 ,4.5661e+01 ,3.1003e+01 ,1.7034e+01 ,1.9343e-01 /) - kbo(:, 3,36, 8) = (/ & - &6.7095e+01 ,5.0451e+01 ,3.4089e+01 ,1.8486e+01 ,2.1666e-01 /) - kbo(:, 4,36, 8) = (/ & - &7.4593e+01 ,5.6070e+01 ,3.7750e+01 ,2.0193e+01 ,2.4210e-01 /) - kbo(:, 5,36, 8) = (/ & - &8.2912e+01 ,6.2305e+01 ,4.1836e+01 ,2.2093e+01 ,2.6939e-01 /) - kbo(:, 1,37, 8) = (/ & - &5.3136e+01 ,4.0024e+01 ,2.7403e+01 ,1.5295e+01 ,1.5374e-01 /) - kbo(:, 2,37, 8) = (/ & - &5.8700e+01 ,4.4173e+01 ,3.0048e+01 ,1.6588e+01 ,1.7430e-01 /) - kbo(:, 3,37, 8) = (/ & - &6.5370e+01 ,4.9158e+01 ,3.3257e+01 ,1.8110e+01 ,1.9744e-01 /) - kbo(:, 4,37, 8) = (/ & - &7.3079e+01 ,5.4934e+01 ,3.7017e+01 ,1.9876e+01 ,2.2299e-01 /) - kbo(:, 5,37, 8) = (/ & - &8.1729e+01 ,6.1417e+01 ,4.1258e+01 ,2.1852e+01 ,2.5074e-01 /) - kbo(:, 1,38, 8) = (/ & - &5.1889e+01 ,3.9094e+01 ,2.6819e+01 ,1.5017e+01 ,1.3711e-01 /) - kbo(:, 2,38, 8) = (/ & - &5.7665e+01 ,4.3397e+01 ,2.9561e+01 ,1.6368e+01 ,1.5734e-01 /) - kbo(:, 3,38, 8) = (/ & - &6.4668e+01 ,4.8631e+01 ,3.2933e+01 ,1.7981e+01 ,1.8028e-01 /) - kbo(:, 4,38, 8) = (/ & - &7.2785e+01 ,5.4713e+01 ,3.6887e+01 ,1.9846e+01 ,2.0601e-01 /) - kbo(:, 5,38, 8) = (/ & - &8.1846e+01 ,6.1504e+01 ,4.1328e+01 ,2.1921e+01 ,2.3415e-01 /) - kbo(:, 1,39, 8) = (/ & - &5.1946e+01 ,3.9141e+01 ,2.6874e+01 ,1.5056e+01 ,1.2254e-01 /) - kbo(:, 2,39, 8) = (/ & - &5.8115e+01 ,4.3735e+01 ,2.9803e+01 ,1.6507e+01 ,1.4241e-01 /) - kbo(:, 3,39, 8) = (/ & - &6.5638e+01 ,4.9361e+01 ,3.3432e+01 ,1.8252e+01 ,1.6535e-01 /) - kbo(:, 4,39, 8) = (/ & - &7.4281e+01 ,5.5835e+01 ,3.7644e+01 ,2.0246e+01 ,1.9114e-01 /) - kbo(:, 5,39, 8) = (/ & - &8.4117e+01 ,6.3205e+01 ,4.2465e+01 ,2.2507e+01 ,2.1954e-01 /) - kbo(:, 1,40, 8) = (/ & - &4.8372e+01 ,3.6476e+01 ,2.5167e+01 ,1.4200e+01 ,1.0786e-01 /) - kbo(:, 2,40, 8) = (/ & - &5.4435e+01 ,4.0985e+01 ,2.8035e+01 ,1.5644e+01 ,1.2713e-01 /) - kbo(:, 3,40, 8) = (/ & - &6.1814e+01 ,4.6498e+01 ,3.1582e+01 ,1.7371e+01 ,1.4957e-01 /) - kbo(:, 4,40, 8) = (/ & - &7.0455e+01 ,5.2966e+01 ,3.5777e+01 ,1.9373e+01 ,1.7507e-01 /) - kbo(:, 5,40, 8) = (/ & - &8.0314e+01 ,6.0352e+01 ,4.0598e+01 ,2.1643e+01 ,2.0339e-01 /) - kbo(:, 1,41, 8) = (/ & - &4.4863e+01 ,3.3865e+01 ,2.3494e+01 ,1.3347e+01 ,9.4622e-02 /) - kbo(:, 2,41, 8) = (/ & - &5.0838e+01 ,3.8301e+01 ,2.6314e+01 ,1.4793e+01 ,1.1320e-01 /) - kbo(:, 3,41, 8) = (/ & - &5.8061e+01 ,4.3692e+01 ,2.9774e+01 ,1.6500e+01 ,1.3504e-01 /) - kbo(:, 4,41, 8) = (/ & - &6.6603e+01 ,5.0081e+01 ,3.3908e+01 ,1.8494e+01 ,1.6019e-01 /) - kbo(:, 5,41, 8) = (/ & - &7.6448e+01 ,5.7454e+01 ,3.8706e+01 ,2.0765e+01 ,1.8828e-01 /) - kbo(:, 1,42, 8) = (/ & - &4.2143e+01 ,3.1846e+01 ,2.2204e+01 ,1.2680e+01 ,8.2928e-02 /) - kbo(:, 2,42, 8) = (/ & - &4.7973e+01 ,3.6167e+01 ,2.4953e+01 ,1.4117e+01 ,1.0072e-01 /) - kbo(:, 3,42, 8) = (/ & - &5.5183e+01 ,4.1542e+01 ,2.8395e+01 ,1.5835e+01 ,1.2195e-01 /) - kbo(:, 4,42, 8) = (/ & - &6.3709e+01 ,4.7914e+01 ,3.2510e+01 ,1.7836e+01 ,1.4663e-01 /) - kbo(:, 5,42, 8) = (/ & - &7.3621e+01 ,5.5334e+01 ,3.7330e+01 ,2.0134e+01 ,1.7447e-01 /) - kbo(:, 1,43, 8) = (/ & - &3.9594e+01 ,2.9962e+01 ,2.1003e+01 ,1.2048e+01 ,7.1693e-02 /) - kbo(:, 2,43, 8) = (/ & - &4.5330e+01 ,3.4203e+01 ,2.3706e+01 ,1.3485e+01 ,8.8502e-02 /) - kbo(:, 3,43, 8) = (/ & - &5.2493e+01 ,3.9537e+01 ,2.7118e+01 ,1.5213e+01 ,1.0887e-01 /) - kbo(:, 4,43, 8) = (/ & - &6.1012e+01 ,4.5896e+01 ,3.1221e+01 ,1.7230e+01 ,1.3283e-01 /) - kbo(:, 5,43, 8) = (/ & - &7.1011e+01 ,5.3379e+01 ,3.6070e+01 ,1.9559e+01 ,1.6011e-01 /) - kbo(:, 1,44, 8) = (/ & - &3.7616e+01 ,2.8507e+01 ,2.0078e+01 ,1.1553e+01 ,6.1401e-02 /) - kbo(:, 2,44, 8) = (/ & - &4.3274e+01 ,3.2681e+01 ,2.2747e+01 ,1.2992e+01 ,7.7099e-02 /) - kbo(:, 3,44, 8) = (/ & - &5.0385e+01 ,3.7971e+01 ,2.6133e+01 ,1.4732e+01 ,9.6479e-02 /) - kbo(:, 4,44, 8) = (/ & - &5.8976e+01 ,4.4379e+01 ,3.0259e+01 ,1.6785e+01 ,1.1952e-01 /) - kbo(:, 5,44, 8) = (/ & - &6.9172e+01 ,5.2003e+01 ,3.5195e+01 ,1.9170e+01 ,1.4606e-01 /) - kbo(:, 1,45, 8) = (/ & - &3.6417e+01 ,2.7634e+01 ,1.9534e+01 ,1.1252e+01 ,5.2391e-02 /) - kbo(:, 2,45, 8) = (/ & - &4.2083e+01 ,3.1808e+01 ,2.2209e+01 ,1.2716e+01 ,6.6909e-02 /) - kbo(:, 3,45, 8) = (/ & - &4.9318e+01 ,3.7181e+01 ,2.5653e+01 ,1.4499e+01 ,8.5223e-02 /) - kbo(:, 4,45, 8) = (/ & - &5.8109e+01 ,4.3735e+01 ,2.9873e+01 ,1.6620e+01 ,1.0731e-01 /) - kbo(:, 5,45, 8) = (/ & - &6.8675e+01 ,5.1635e+01 ,3.4984e+01 ,1.9103e+01 ,1.3302e-01 /) - kbo(:, 1,46, 8) = (/ & - &3.5397e+01 ,2.6895e+01 ,1.9070e+01 ,1.0989e+01 ,4.4228e-02 /) - kbo(:, 2,46, 8) = (/ & - &4.1150e+01 ,3.1127e+01 ,2.1795e+01 ,1.2497e+01 ,5.7487e-02 /) - kbo(:, 3,46, 8) = (/ & - &4.8494e+01 ,3.6574e+01 ,2.5287e+01 ,1.4324e+01 ,7.4577e-02 /) - kbo(:, 4,46, 8) = (/ & - &5.7598e+01 ,4.3359e+01 ,2.9657e+01 ,1.6535e+01 ,9.5575e-02 /) - kbo(:, 5,46, 8) = (/ & - &6.8559e+01 ,5.1549e+01 ,3.4961e+01 ,1.9128e+01 ,1.2028e-01 /) - kbo(:, 1,47, 8) = (/ & - &3.3892e+01 ,2.5799e+01 ,1.8369e+01 ,1.0592e+01 ,3.6658e-02 /) - kbo(:, 2,47, 8) = (/ & - &3.9558e+01 ,2.9961e+01 ,2.1065e+01 ,1.2104e+01 ,4.8512e-02 /) - kbo(:, 3,47, 8) = (/ & - &4.6821e+01 ,3.5338e+01 ,2.4514e+01 ,1.3933e+01 ,6.4199e-02 /) - kbo(:, 4,47, 8) = (/ & - &5.6038e+01 ,4.2200e+01 ,2.8934e+01 ,1.6192e+01 ,8.3849e-02 /) - kbo(:, 5,47, 8) = (/ & - &6.7239e+01 ,5.0568e+01 ,3.4350e+01 ,1.8859e+01 ,1.0731e-01 /) - kbo(:, 1,48, 8) = (/ & - &3.3363e+01 ,2.5430e+01 ,1.8144e+01 ,1.0446e+01 ,3.0177e-02 /) - kbo(:, 2,48, 8) = (/ & - &3.9055e+01 ,2.9607e+01 ,2.0861e+01 ,1.1982e+01 ,4.0640e-02 /) - kbo(:, 3,48, 8) = (/ & - &4.6430e+01 ,3.5057e+01 ,2.4367e+01 ,1.3859e+01 ,5.4873e-02 /) - kbo(:, 4,48, 8) = (/ & - &5.5939e+01 ,4.2134e+01 ,2.8926e+01 ,1.6205e+01 ,7.3130e-02 /) - kbo(:, 5,48, 8) = (/ & - &6.7675e+01 ,5.0896e+01 ,3.4598e+01 ,1.9010e+01 ,9.5352e-02 /) - kbo(:, 1,49, 8) = (/ & - &3.4087e+01 ,2.5989e+01 ,1.8530e+01 ,1.0628e+01 ,2.4642e-02 /) - kbo(:, 2,49, 8) = (/ & - &4.0143e+01 ,3.0436e+01 ,2.1433e+01 ,1.2264e+01 ,3.3771e-02 /) - kbo(:, 3,49, 8) = (/ & - &4.7859e+01 ,3.6137e+01 ,2.5106e+01 ,1.4243e+01 ,4.6570e-02 /) - kbo(:, 4,49, 8) = (/ & - &5.8042e+01 ,4.3715e+01 ,2.9997e+01 ,1.6759e+01 ,6.3406e-02 /) - kbo(:, 5,49, 8) = (/ & - &7.0774e+01 ,5.3220e+01 ,3.6156e+01 ,1.9813e+01 ,8.4317e-02 /) - kbo(:, 1,50, 8) = (/ & - &3.3271e+01 ,2.5407e+01 ,1.8155e+01 ,1.0394e+01 ,2.0105e-02 /) - kbo(:, 2,50, 8) = (/ & - &3.9337e+01 ,2.9859e+01 ,2.1080e+01 ,1.2062e+01 ,2.8045e-02 /) - kbo(:, 3,50, 8) = (/ & - &4.7124e+01 ,3.5606e+01 ,2.4793e+01 ,1.4082e+01 ,3.9522e-02 /) - kbo(:, 4,50, 8) = (/ & - &5.7525e+01 ,4.3340e+01 ,2.9788e+01 ,1.6668e+01 ,5.4974e-02 /) - kbo(:, 5,50, 8) = (/ & - &7.0694e+01 ,5.3165e+01 ,3.6155e+01 ,1.9842e+01 ,7.4569e-02 /) - kbo(:, 1,51, 8) = (/ & - &3.1799e+01 ,2.4339e+01 ,1.7448e+01 ,9.9788e+00 ,1.6322e-02 /) - kbo(:, 2,51, 8) = (/ & - &3.7729e+01 ,2.8686e+01 ,2.0331e+01 ,1.1646e+01 ,2.3187e-02 /) - kbo(:, 3,51, 8) = (/ & - &4.5428e+01 ,3.4361e+01 ,2.4014e+01 ,1.3675e+01 ,3.3395e-02 /) - kbo(:, 4,51, 8) = (/ & - &5.5764e+01 ,4.2036e+01 ,2.8971e+01 ,1.6259e+01 ,4.7474e-02 /) - kbo(:, 5,51, 8) = (/ & - &6.9086e+01 ,5.1969e+01 ,3.5405e+01 ,1.9496e+01 ,6.5720e-02 /) - kbo(:, 1,52, 8) = (/ & - &3.1125e+01 ,2.3861e+01 ,1.7130e+01 ,9.7762e+00 ,1.3165e-02 /) - kbo(:, 2,52, 8) = (/ & - &3.7206e+01 ,2.8320e+01 ,2.0110e+01 ,1.1507e+01 ,1.9020e-02 /) - kbo(:, 3,52, 8) = (/ & - &4.4966e+01 ,3.4037e+01 ,2.3832e+01 ,1.3576e+01 ,2.8007e-02 /) - kbo(:, 4,52, 8) = (/ & - &5.5475e+01 ,4.1834e+01 ,2.8875e+01 ,1.6222e+01 ,4.0752e-02 /) - kbo(:, 5,52, 8) = (/ & - &6.9286e+01 ,5.2127e+01 ,3.5547e+01 ,1.9593e+01 ,5.7616e-02 /) - kbo(:, 1,53, 8) = (/ & - &3.1628e+01 ,2.4253e+01 ,1.7391e+01 ,9.8844e+00 ,1.0543e-02 /) - kbo(:, 2,53, 8) = (/ & - &3.8058e+01 ,2.8975e+01 ,2.0560e+01 ,1.1731e+01 ,1.5472e-02 /) - kbo(:, 3,53, 8) = (/ & - &4.6305e+01 ,3.5054e+01 ,2.4529e+01 ,1.3933e+01 ,2.3276e-02 /) - kbo(:, 4,53, 8) = (/ & - &5.7328e+01 ,4.3229e+01 ,2.9824e+01 ,1.6717e+01 ,3.4695e-02 /) - kbo(:, 5,53, 8) = (/ & - &7.2228e+01 ,5.4335e+01 ,3.7034e+01 ,2.0360e+01 ,5.0210e-02 /) - kbo(:, 1,54, 8) = (/ & - &2.7866e+01 ,2.1495e+01 ,1.5519e+01 ,8.8346e+00 ,8.4580e-03 /) - kbo(:, 2,54, 8) = (/ & - &3.3763e+01 ,2.5815e+01 ,1.8473e+01 ,1.0588e+01 ,1.2602e-02 /) - kbo(:, 3,54, 8) = (/ & - &4.1361e+01 ,3.1401e+01 ,2.2155e+01 ,1.2668e+01 ,1.9366e-02 /) - kbo(:, 4,54, 8) = (/ & - &5.1507e+01 ,3.8906e+01 ,2.7027e+01 ,1.5284e+01 ,2.9589e-02 /) - kbo(:, 5,54, 8) = (/ & - &6.5378e+01 ,4.9225e+01 ,3.3718e+01 ,1.8724e+01 ,4.3797e-02 /) - kbo(:, 1,55, 8) = (/ & - &2.2404e+01 ,1.7484e+01 ,1.2754e+01 ,7.2917e+00 ,6.7620e-03 /) - kbo(:, 2,55, 8) = (/ & - &2.7309e+01 ,2.1069e+01 ,1.5293e+01 ,8.8299e+00 ,1.0220e-02 /) - kbo(:, 3,55, 8) = (/ & - &3.3683e+01 ,2.5733e+01 ,1.8431e+01 ,1.0660e+01 ,1.6054e-02 /) - kbo(:, 4,55, 8) = (/ & - &4.2194e+01 ,3.1999e+01 ,2.2529e+01 ,1.2931e+01 ,2.5150e-02 /) - kbo(:, 5,55, 8) = (/ & - &5.4011e+01 ,4.0754e+01 ,2.8208e+01 ,1.5935e+01 ,3.8077e-02 /) - kbo(:, 1,56, 8) = (/ & - &1.7963e+01 ,1.4222e+01 ,1.0460e+01 ,5.9968e+00 ,5.3696e-03 /) - kbo(:, 2,56, 8) = (/ & - &2.2011e+01 ,1.7185e+01 ,1.2632e+01 ,7.3359e+00 ,8.2238e-03 /) - kbo(:, 3,56, 8) = (/ & - &2.7341e+01 ,2.1070e+01 ,1.5329e+01 ,8.9492e+00 ,1.3200e-02 /) - kbo(:, 4,56, 8) = (/ & - &3.4490e+01 ,2.6306e+01 ,1.8809e+01 ,1.0943e+01 ,2.1214e-02 /) - kbo(:, 5,56, 8) = (/ & - &4.4535e+01 ,3.3715e+01 ,2.3630e+01 ,1.3559e+01 ,3.2915e-02 /) - kbo(:, 1,57, 8) = (/ & - &1.4368e+01 ,1.1564e+01 ,8.5550e+00 ,4.9118e+00 ,4.2402e-03 /) - kbo(:, 2,57, 8) = (/ & - &1.7718e+01 ,1.4043e+01 ,1.0433e+01 ,6.0838e+00 ,6.5672e-03 /) - kbo(:, 3,57, 8) = (/ & - &2.2119e+01 ,1.7250e+01 ,1.2736e+01 ,7.4914e+00 ,1.0750e-02 /) - kbo(:, 4,57, 8) = (/ & - &2.8111e+01 ,2.1614e+01 ,1.5710e+01 ,9.2466e+00 ,1.7729e-02 /) - kbo(:, 5,57, 8) = (/ & - &3.6581e+01 ,2.7832e+01 ,1.9800e+01 ,1.1525e+01 ,2.8247e-02 /) - kbo(:, 1,58, 8) = (/ & - &3.0334e+00 ,3.0458e+00 ,2.9118e+00 ,2.3449e+00 ,3.3480e-03 /) - kbo(:, 2,58, 8) = (/ & - &3.7595e+00 ,3.7165e+00 ,3.5857e+00 ,2.9410e+00 ,5.2345e-03 /) - kbo(:, 3,58, 8) = (/ & - &4.7309e+00 ,4.5866e+00 ,4.4204e+00 ,3.6685e+00 ,8.7466e-03 /) - kbo(:, 4,58, 8) = (/ & - &6.0543e+00 ,5.7620e+00 ,5.4869e+00 ,4.5723e+00 ,1.4810e-02 /) - kbo(:, 5,58, 8) = (/ & - &7.9336e+00 ,7.4372e+00 ,6.9325e+00 ,5.7367e+00 ,2.4215e-02 /) - kbo(:, 1,59, 8) = (/ & - &2.9765e+00 ,2.9765e+00 ,2.6845e+00 ,1.9427e+00 ,2.8320e-03 /) - kbo(:, 2,59, 8) = (/ & - &3.7193e+00 ,3.6697e+00 ,3.3576e+00 ,2.4792e+00 ,4.5261e-03 /) - kbo(:, 3,59, 8) = (/ & - &4.7245e+00 ,4.5542e+00 ,4.1916e+00 ,3.1428e+00 ,7.7669e-03 /) - kbo(:, 4,59, 8) = (/ & - &6.1120e+00 ,5.7342e+00 ,5.2520e+00 ,3.9688e+00 ,1.3461e-02 /) - kbo(:, 5,59, 8) = (/ & - &8.1086e+00 ,7.4151e+00 ,6.6769e+00 ,5.0327e+00 ,2.2363e-02 /) - kbo(:, 1,13, 9) = (/ & - &3.9255e+04 ,2.9441e+04 ,1.9628e+04 ,9.8141e+03 ,2.1650e+00 /) - kbo(:, 2,13, 9) = (/ & - &3.9490e+04 ,2.9618e+04 ,1.9745e+04 ,9.8730e+03 ,2.1321e+00 /) - kbo(:, 3,13, 9) = (/ & - &3.9631e+04 ,2.9723e+04 ,1.9816e+04 ,9.9081e+03 ,2.0803e+00 /) - kbo(:, 4,13, 9) = (/ & - &3.9707e+04 ,2.9781e+04 ,1.9854e+04 ,9.9272e+03 ,2.0587e+00 /) - kbo(:, 5,13, 9) = (/ & - &3.9690e+04 ,2.9768e+04 ,1.9845e+04 ,9.9229e+03 ,2.0351e+00 /) - kbo(:, 1,14, 9) = (/ & - &2.2391e+04 ,1.6793e+04 ,1.1196e+04 ,5.5981e+03 ,2.2958e+00 /) - kbo(:, 2,14, 9) = (/ & - &2.2483e+04 ,1.6862e+04 ,1.1241e+04 ,5.6209e+03 ,2.2646e+00 /) - kbo(:, 3,14, 9) = (/ & - &2.2517e+04 ,1.6888e+04 ,1.1259e+04 ,5.6296e+03 ,2.2164e+00 /) - kbo(:, 4,14, 9) = (/ & - &2.2511e+04 ,1.6883e+04 ,1.1256e+04 ,5.6281e+03 ,2.1692e+00 /) - kbo(:, 5,14, 9) = (/ & - &2.2470e+04 ,1.6853e+04 ,1.1235e+04 ,5.6178e+03 ,2.1488e+00 /) - kbo(:, 1,15, 9) = (/ & - &1.2806e+04 ,9.6046e+03 ,6.4033e+03 ,3.2019e+03 ,2.4251e+00 /) - kbo(:, 2,15, 9) = (/ & - &1.2828e+04 ,9.6209e+03 ,6.4142e+03 ,3.2073e+03 ,2.3960e+00 /) - kbo(:, 3,15, 9) = (/ & - &1.2826e+04 ,9.6195e+03 ,6.4132e+03 ,3.2069e+03 ,2.3588e+00 /) - kbo(:, 4,15, 9) = (/ & - &1.2818e+04 ,9.6139e+03 ,6.4095e+03 ,3.2050e+03 ,2.3106e+00 /) - kbo(:, 5,15, 9) = (/ & - &1.2808e+04 ,9.6063e+03 ,6.4044e+03 ,3.2025e+03 ,2.2722e+00 /) - kbo(:, 1,16, 9) = (/ & - &8.5967e+03 ,6.4476e+03 ,4.2986e+03 ,2.1496e+03 ,2.5476e+00 /) - kbo(:, 2,16, 9) = (/ & - &8.5987e+03 ,6.4492e+03 ,4.2996e+03 ,2.1501e+03 ,2.5204e+00 /) - kbo(:, 3,16, 9) = (/ & - &8.5999e+03 ,6.4500e+03 ,4.3002e+03 ,2.1504e+03 ,2.4878e+00 /) - kbo(:, 4,16, 9) = (/ & - &8.6043e+03 ,6.4534e+03 ,4.3024e+03 ,2.1515e+03 ,2.4397e+00 /) - kbo(:, 5,16, 9) = (/ & - &8.6176e+03 ,6.4634e+03 ,4.3091e+03 ,2.1548e+03 ,2.4008e+00 /) - kbo(:, 1,17, 9) = (/ & - &5.9284e+03 ,4.4464e+03 ,2.9645e+03 ,1.4825e+03 ,2.6544e+00 /) - kbo(:, 2,17, 9) = (/ & - &5.9327e+03 ,4.4497e+03 ,2.9666e+03 ,1.4836e+03 ,2.6300e+00 /) - kbo(:, 3,17, 9) = (/ & - &5.9411e+03 ,4.4560e+03 ,2.9708e+03 ,1.4857e+03 ,2.5993e+00 /) - kbo(:, 4,17, 9) = (/ & - &5.9634e+03 ,4.4727e+03 ,2.9820e+03 ,1.4912e+03 ,2.5553e+00 /) - kbo(:, 5,17, 9) = (/ & - &6.0032e+03 ,4.5025e+03 ,3.0018e+03 ,1.5012e+03 ,2.5167e+00 /) - kbo(:, 1,18, 9) = (/ & - &4.1696e+03 ,3.1274e+03 ,2.0851e+03 ,1.0428e+03 ,2.7386e+00 /) - kbo(:, 2,18, 9) = (/ & - &4.1796e+03 ,3.1348e+03 ,2.0901e+03 ,1.0453e+03 ,2.7184e+00 /) - kbo(:, 3,18, 9) = (/ & - &4.2028e+03 ,3.1522e+03 ,2.1017e+03 ,1.0511e+03 ,2.6888e+00 /) - kbo(:, 4,18, 9) = (/ & - &4.2429e+03 ,3.1823e+03 ,2.1217e+03 ,1.0611e+03 ,2.6491e+00 /) - kbo(:, 5,18, 9) = (/ & - &4.2973e+03 ,3.2231e+03 ,2.1489e+03 ,1.0747e+03 ,2.6124e+00 /) - kbo(:, 1,19, 9) = (/ & - &2.8753e+03 ,2.1566e+03 ,1.4379e+03 ,7.1922e+02 ,2.7969e+00 /) - kbo(:, 2,19, 9) = (/ & - &2.8953e+03 ,2.1716e+03 ,1.4479e+03 ,7.2422e+02 ,2.7817e+00 /) - kbo(:, 3,19, 9) = (/ & - &2.9302e+03 ,2.1978e+03 ,1.4654e+03 ,7.3295e+02 ,2.7548e+00 /) - kbo(:, 4,19, 9) = (/ & - &2.9782e+03 ,2.2338e+03 ,1.4894e+03 ,7.4494e+02 ,2.7189e+00 /) - kbo(:, 5,19, 9) = (/ & - &3.0360e+03 ,2.2771e+03 ,1.5183e+03 ,7.5939e+02 ,2.6829e+00 /) - kbo(:, 1,20, 9) = (/ & - &2.1517e+03 ,1.6139e+03 ,1.0761e+03 ,5.3833e+02 ,2.8251e+00 /) - kbo(:, 2,20, 9) = (/ & - &2.1814e+03 ,1.6362e+03 ,1.0910e+03 ,5.4575e+02 ,2.8122e+00 /) - kbo(:, 3,20, 9) = (/ & - &2.2241e+03 ,1.6682e+03 ,1.1123e+03 ,5.5643e+02 ,2.7893e+00 /) - kbo(:, 4,20, 9) = (/ & - &2.2758e+03 ,1.7069e+03 ,1.1381e+03 ,5.6933e+02 ,2.7572e+00 /) - kbo(:, 5,20, 9) = (/ & - &2.3338e+03 ,1.7505e+03 ,1.1672e+03 ,5.8384e+02 ,2.7245e+00 /) - kbo(:, 1,21, 9) = (/ & - &1.6700e+03 ,1.2526e+03 ,8.3526e+02 ,4.1790e+02 ,2.8188e+00 /) - kbo(:, 2,21, 9) = (/ & - &1.7058e+03 ,1.2795e+03 ,8.5318e+02 ,4.2686e+02 ,2.8087e+00 /) - kbo(:, 3,21, 9) = (/ & - &1.7510e+03 ,1.3134e+03 ,8.7578e+02 ,4.3816e+02 ,2.7899e+00 /) - kbo(:, 4,21, 9) = (/ & - &1.8029e+03 ,1.3523e+03 ,9.0173e+02 ,4.5113e+02 ,2.7632e+00 /) - kbo(:, 5,21, 9) = (/ & - &1.8601e+03 ,1.3952e+03 ,9.3032e+02 ,4.6542e+02 ,2.7328e+00 /) - kbo(:, 1,22, 9) = (/ & - &1.3403e+03 ,1.0054e+03 ,6.7043e+02 ,3.3549e+02 ,2.7778e+00 /) - kbo(:, 2,22, 9) = (/ & - &1.3792e+03 ,1.0345e+03 ,6.8985e+02 ,3.4520e+02 ,2.7715e+00 /) - kbo(:, 3,22, 9) = (/ & - &1.4248e+03 ,1.0688e+03 ,7.1269e+02 ,3.5661e+02 ,2.7559e+00 /) - kbo(:, 4,22, 9) = (/ & - &1.4749e+03 ,1.1063e+03 ,7.3770e+02 ,3.6911e+02 ,2.7316e+00 /) - kbo(:, 5,22, 9) = (/ & - &1.5223e+03 ,1.1418e+03 ,7.6138e+02 ,3.8094e+02 ,2.7088e+00 /) - kbo(:, 1,23, 9) = (/ & - &1.0891e+03 ,8.1698e+02 ,5.4484e+02 ,2.7270e+02 ,2.7041e+00 /) - kbo(:, 2,23, 9) = (/ & - &1.1283e+03 ,8.4637e+02 ,5.6443e+02 ,2.8249e+02 ,2.7027e+00 /) - kbo(:, 3,23, 9) = (/ & - &1.1704e+03 ,8.7791e+02 ,5.8545e+02 ,2.9300e+02 ,2.6907e+00 /) - kbo(:, 4,23, 9) = (/ & - &1.2113e+03 ,9.0862e+02 ,6.0592e+02 ,3.0322e+02 ,2.6730e+00 /) - kbo(:, 5,23, 9) = (/ & - &1.2507e+03 ,9.3816e+02 ,6.2560e+02 ,3.1305e+02 ,2.6594e+00 /) - kbo(:, 1,24, 9) = (/ & - &8.8581e+02 ,6.6450e+02 ,4.4318e+02 ,2.2188e+02 ,2.6023e+00 /) - kbo(:, 2,24, 9) = (/ & - &9.2040e+02 ,6.9044e+02 ,4.6047e+02 ,2.3052e+02 ,2.6060e+00 /) - kbo(:, 3,24, 9) = (/ & - &9.5496e+02 ,7.1635e+02 ,4.7775e+02 ,2.3914e+02 ,2.6005e+00 /) - kbo(:, 4,24, 9) = (/ & - &9.8776e+02 ,7.4094e+02 ,4.9413e+02 ,2.4733e+02 ,2.5922e+00 /) - kbo(:, 5,24, 9) = (/ & - &1.0196e+03 ,7.6479e+02 ,5.1001e+02 ,2.5525e+02 ,2.5914e+00 /) - kbo(:, 1,25, 9) = (/ & - &7.3035e+02 ,5.4790e+02 ,3.6545e+02 ,1.8302e+02 ,2.4806e+00 /) - kbo(:, 2,25, 9) = (/ & - &7.5932e+02 ,5.6963e+02 ,3.7993e+02 ,1.9025e+02 ,2.4895e+00 /) - kbo(:, 3,25, 9) = (/ & - &7.8665e+02 ,5.9012e+02 ,3.9359e+02 ,1.9707e+02 ,2.4921e+00 /) - kbo(:, 4,25, 9) = (/ & - &8.1328e+02 ,6.1007e+02 ,4.0688e+02 ,2.0370e+02 ,2.4969e+00 /) - kbo(:, 5,25, 9) = (/ & - &8.3956e+02 ,6.2979e+02 ,4.2001e+02 ,2.1025e+02 ,2.5085e+00 /) - kbo(:, 1,26, 9) = (/ & - &6.1100e+02 ,4.5838e+02 ,3.0577e+02 ,1.5319e+02 ,2.3442e+00 /) - kbo(:, 2,26, 9) = (/ & - &6.3406e+02 ,4.7568e+02 ,3.1730e+02 ,1.5893e+02 ,2.3618e+00 /) - kbo(:, 3,26, 9) = (/ & - &6.5658e+02 ,4.9255e+02 ,3.2854e+02 ,1.6455e+02 ,2.3770e+00 /) - kbo(:, 4,26, 9) = (/ & - &6.7915e+02 ,5.0948e+02 ,3.3981e+02 ,1.7016e+02 ,2.3964e+00 /) - kbo(:, 5,26, 9) = (/ & - &7.0247e+02 ,5.2696e+02 ,3.5146e+02 ,1.7598e+02 ,2.4222e+00 /) - kbo(:, 1,27, 9) = (/ & - &5.2844e+02 ,3.9646e+02 ,2.6449e+02 ,1.3259e+02 ,2.2032e+00 /) - kbo(:, 2,27, 9) = (/ & - &5.4789e+02 ,4.1105e+02 ,2.7421e+02 ,1.3742e+02 ,2.2331e+00 /) - kbo(:, 3,27, 9) = (/ & - &5.6778e+02 ,4.2595e+02 ,2.8414e+02 ,1.4236e+02 ,2.2623e+00 /) - kbo(:, 4,27, 9) = (/ & - &5.8850e+02 ,4.4149e+02 ,2.9449e+02 ,1.4751e+02 ,2.3009e+00 /) - kbo(:, 5,27, 9) = (/ & - &6.1090e+02 ,4.5829e+02 ,3.0567e+02 ,1.5309e+02 ,2.3382e+00 /) - kbo(:, 1,28, 9) = (/ & - &4.6826e+02 ,3.5133e+02 ,2.3440e+02 ,1.1763e+02 ,2.0680e+00 /) - kbo(:, 2,28, 9) = (/ & - &4.8590e+02 ,3.6454e+02 ,2.4321e+02 ,1.2197e+02 ,2.1100e+00 /) - kbo(:, 3,28, 9) = (/ & - &5.0445e+02 ,3.7846e+02 ,2.5247e+02 ,1.2655e+02 ,2.1567e+00 /) - kbo(:, 4,28, 9) = (/ & - &5.2474e+02 ,3.9367e+02 ,2.6260e+02 ,1.3159e+02 ,2.2098e+00 /) - kbo(:, 5,28, 9) = (/ & - &5.4720e+02 ,4.1051e+02 ,2.7382e+02 ,1.3717e+02 ,2.2620e+00 /) - kbo(:, 1,29, 9) = (/ & - &4.4072e+02 ,3.3067e+02 ,2.2063e+02 ,1.1082e+02 ,1.9419e+00 /) - kbo(:, 2,29, 9) = (/ & - &4.5821e+02 ,3.4378e+02 ,2.2936e+02 ,1.1511e+02 ,1.9998e+00 /) - kbo(:, 3,29, 9) = (/ & - &4.7729e+02 ,3.5808e+02 ,2.3889e+02 ,1.1980e+02 ,2.0671e+00 /) - kbo(:, 4,29, 9) = (/ & - &4.9882e+02 ,3.7422e+02 ,2.4964e+02 ,1.2512e+02 ,2.1341e+00 /) - kbo(:, 5,29, 9) = (/ & - &5.2331e+02 ,3.9259e+02 ,2.6188e+02 ,1.3121e+02 ,2.1979e+00 /) - kbo(:, 1,30, 9) = (/ & - &4.2556e+02 ,3.1930e+02 ,2.1305e+02 ,1.0711e+02 ,1.8309e+00 /) - kbo(:, 2,30, 9) = (/ & - &4.4407e+02 ,3.3317e+02 ,2.2229e+02 ,1.1161e+02 ,1.9101e+00 /) - kbo(:, 3,30, 9) = (/ & - &4.6505e+02 ,3.4890e+02 ,2.3276e+02 ,1.1676e+02 ,1.9914e+00 /) - kbo(:, 4,30, 9) = (/ & - &4.8908e+02 ,3.6692e+02 ,2.4477e+02 ,1.2270e+02 ,2.0709e+00 /) - kbo(:, 5,30, 9) = (/ & - &5.1660e+02 ,3.8756e+02 ,2.5853e+02 ,1.2954e+02 ,2.1480e+00 /) - kbo(:, 1,31, 9) = (/ & - &4.3357e+02 ,3.2530e+02 ,2.1704e+02 ,1.0913e+02 ,1.7458e+00 /) - kbo(:, 2,31, 9) = (/ & - &4.5478e+02 ,3.4120e+02 ,2.2764e+02 ,1.1430e+02 ,1.8393e+00 /) - kbo(:, 3,31, 9) = (/ & - &4.7940e+02 ,3.5966e+02 ,2.3993e+02 ,1.2035e+02 ,1.9333e+00 /) - kbo(:, 4,31, 9) = (/ & - &5.0804e+02 ,3.8115e+02 ,2.5425e+02 ,1.2744e+02 ,2.0234e+00 /) - kbo(:, 5,31, 9) = (/ & - &5.4033e+02 ,4.0536e+02 ,2.7039e+02 ,1.3548e+02 ,2.1150e+00 /) - kbo(:, 1,32, 9) = (/ & - &4.4897e+02 ,3.3685e+02 ,2.2474e+02 ,1.1298e+02 ,1.6787e+00 /) - kbo(:, 2,32, 9) = (/ & - &4.7419e+02 ,3.5576e+02 ,2.3734e+02 ,1.1915e+02 ,1.7859e+00 /) - kbo(:, 3,32, 9) = (/ & - &5.0379e+02 ,3.7796e+02 ,2.5213e+02 ,1.2644e+02 ,1.8899e+00 /) - kbo(:, 4,32, 9) = (/ & - &5.3795e+02 ,4.0357e+02 ,2.6921e+02 ,1.3492e+02 ,1.9968e+00 /) - kbo(:, 5,32, 9) = (/ & - &5.7556e+02 ,4.3179e+02 ,2.8802e+02 ,1.4429e+02 ,2.0977e+00 /) - kbo(:, 1,33, 9) = (/ & - &4.7613e+02 ,3.5721e+02 ,2.3831e+02 ,1.1974e+02 ,1.6313e+00 /) - kbo(:, 2,33, 9) = (/ & - &5.0727e+02 ,3.8056e+02 ,2.5387e+02 ,1.2739e+02 ,1.7486e+00 /) - kbo(:, 3,33, 9) = (/ & - &5.4363e+02 ,4.0783e+02 ,2.7205e+02 ,1.3639e+02 ,1.8695e+00 /) - kbo(:, 4,33, 9) = (/ & - &5.8421e+02 ,4.3828e+02 ,2.9234e+02 ,1.4648e+02 ,1.9835e+00 /) - kbo(:, 5,33, 9) = (/ & - &6.2742e+02 ,4.7068e+02 ,3.1394e+02 ,1.5725e+02 ,2.0938e+00 /) - kbo(:, 1,34, 9) = (/ & - &4.9479e+02 ,3.7120e+02 ,2.4764e+02 ,1.2439e+02 ,1.5951e+00 /) - kbo(:, 2,34, 9) = (/ & - &5.3209e+02 ,3.9918e+02 ,2.6628e+02 ,1.3359e+02 ,1.7258e+00 /) - kbo(:, 3,34, 9) = (/ & - &5.7463e+02 ,4.3109e+02 ,2.8755e+02 ,1.4413e+02 ,1.8546e+00 /) - kbo(:, 4,34, 9) = (/ & - &6.2052e+02 ,4.6551e+02 ,3.1050e+02 ,1.5556e+02 ,1.9770e+00 /) - kbo(:, 5,34, 9) = (/ & - &6.6892e+02 ,5.0180e+02 ,3.3469e+02 ,1.6762e+02 ,2.0917e+00 /) - kbo(:, 1,35, 9) = (/ & - &5.1474e+02 ,3.8617e+02 ,2.5762e+02 ,1.2939e+02 ,1.5620e+00 /) - kbo(:, 2,35, 9) = (/ & - &5.5847e+02 ,4.1897e+02 ,2.7948e+02 ,1.4019e+02 ,1.7022e+00 /) - kbo(:, 3,35, 9) = (/ & - &6.0709e+02 ,4.5544e+02 ,3.0379e+02 ,1.5226e+02 ,1.8365e+00 /) - kbo(:, 4,35, 9) = (/ & - &6.5852e+02 ,4.9401e+02 ,3.2950e+02 ,1.6506e+02 ,1.9663e+00 /) - kbo(:, 5,35, 9) = (/ & - &7.1282e+02 ,5.3473e+02 ,3.5664e+02 ,1.7860e+02 ,2.0876e+00 /) - kbo(:, 1,36, 9) = (/ & - &5.3040e+02 ,3.9792e+02 ,2.6545e+02 ,1.3332e+02 ,1.5229e+00 /) - kbo(:, 2,36, 9) = (/ & - &5.8002e+02 ,4.3513e+02 ,2.9026e+02 ,1.4559e+02 ,1.6698e+00 /) - kbo(:, 3,36, 9) = (/ & - &6.3422e+02 ,4.7578e+02 ,3.1736e+02 ,1.5904e+02 ,1.8112e+00 /) - kbo(:, 4,36, 9) = (/ & - &6.9154e+02 ,5.1877e+02 ,3.4601e+02 ,1.7331e+02 ,1.9470e+00 /) - kbo(:, 5,36, 9) = (/ & - &7.5259e+02 ,5.6456e+02 ,3.7653e+02 ,1.8854e+02 ,2.0786e+00 /) - kbo(:, 1,37, 9) = (/ & - &5.2761e+02 ,3.9583e+02 ,2.6405e+02 ,1.3269e+02 ,1.4669e+00 /) - kbo(:, 2,37, 9) = (/ & - &5.8107e+02 ,4.3593e+02 ,2.9079e+02 ,1.4590e+02 ,1.6200e+00 /) - kbo(:, 3,37, 9) = (/ & - &6.3936e+02 ,4.7964e+02 ,3.1993e+02 ,1.6036e+02 ,1.7687e+00 /) - kbo(:, 4,37, 9) = (/ & - &7.0149e+02 ,5.2623e+02 ,3.5098e+02 ,1.7581e+02 ,1.9104e+00 /) - kbo(:, 5,37, 9) = (/ & - &7.6801e+02 ,5.7612e+02 ,3.8424e+02 ,1.9240e+02 ,2.0492e+00 /) - kbo(:, 1,38, 9) = (/ & - &5.3320e+02 ,4.0002e+02 ,2.6686e+02 ,1.3414e+02 ,1.4150e+00 /) - kbo(:, 2,38, 9) = (/ & - &5.9148e+02 ,4.4373e+02 ,2.9599e+02 ,1.4854e+02 ,1.5738e+00 /) - kbo(:, 3,38, 9) = (/ & - &6.5505e+02 ,4.9141e+02 ,3.2778e+02 ,1.6430e+02 ,1.7289e+00 /) - kbo(:, 4,38, 9) = (/ & - &7.2345e+02 ,5.4270e+02 ,3.6197e+02 ,1.8131e+02 ,1.8759e+00 /) - kbo(:, 5,38, 9) = (/ & - &7.9740e+02 ,5.9816e+02 ,3.9894e+02 ,1.9975e+02 ,2.0221e+00 /) - kbo(:, 1,39, 9) = (/ & - &5.5268e+02 ,4.1463e+02 ,2.7660e+02 ,1.3905e+02 ,1.3683e+00 /) - kbo(:, 2,39, 9) = (/ & - &6.1737e+02 ,4.6316e+02 ,3.0895e+02 ,1.5504e+02 ,1.5320e+00 /) - kbo(:, 3,39, 9) = (/ & - &6.8821e+02 ,5.1628e+02 ,3.4436e+02 ,1.7260e+02 ,1.6920e+00 /) - kbo(:, 4,39, 9) = (/ & - &7.6555e+02 ,5.7429e+02 ,3.8302e+02 ,1.9184e+02 ,1.8468e+00 /) - kbo(:, 5,39, 9) = (/ & - &8.4965e+02 ,6.3736e+02 ,4.2508e+02 ,2.1282e+02 ,1.9969e+00 /) - kbo(:, 1,40, 9) = (/ & - &5.3311e+02 ,3.9996e+02 ,2.6682e+02 ,1.3428e+02 ,1.3069e+00 /) - kbo(:, 2,40, 9) = (/ & - &5.9979e+02 ,4.4997e+02 ,3.0016e+02 ,1.5072e+02 ,1.4753e+00 /) - kbo(:, 3,40, 9) = (/ & - &6.7343e+02 ,5.0519e+02 ,3.3697e+02 ,1.6896e+02 ,1.6406e+00 /) - kbo(:, 4,40, 9) = (/ & - &7.5472e+02 ,5.6615e+02 ,3.7760e+02 ,1.8916e+02 ,1.7999e+00 /) - kbo(:, 5,40, 9) = (/ & - &8.4379e+02 ,6.3296e+02 ,4.2214e+02 ,2.1136e+02 ,1.9558e+00 /) - kbo(:, 1,41, 9) = (/ & - &5.1260e+02 ,3.8458e+02 ,2.5658e+02 ,1.2928e+02 ,1.2459e+00 /) - kbo(:, 2,41, 9) = (/ & - &5.8131e+02 ,4.3611e+02 ,2.9093e+02 ,1.4621e+02 ,1.4179e+00 /) - kbo(:, 3,41, 9) = (/ & - &6.5741e+02 ,4.9318e+02 ,3.2896e+02 ,1.6503e+02 ,1.5871e+00 /) - kbo(:, 4,41, 9) = (/ & - &7.4227e+02 ,5.5683e+02 ,3.7139e+02 ,1.8609e+02 ,1.7498e+00 /) - kbo(:, 5,41, 9) = (/ & - &8.3623e+02 ,6.2730e+02 ,4.1837e+02 ,2.0950e+02 ,1.9122e+00 /) - kbo(:, 1,42, 9) = (/ & - &4.9831e+02 ,3.7386e+02 ,2.4944e+02 ,1.2584e+02 ,1.1865e+00 /) - kbo(:, 2,42, 9) = (/ & - &5.6980e+02 ,4.2748e+02 ,2.8517e+02 ,1.4342e+02 ,1.3622e+00 /) - kbo(:, 3,42, 9) = (/ & - &6.4955e+02 ,4.8728e+02 ,3.2503e+02 ,1.6313e+02 ,1.5361e+00 /) - kbo(:, 4,42, 9) = (/ & - &7.3900e+02 ,5.5437e+02 ,3.6975e+02 ,1.8531e+02 ,1.7026e+00 /) - kbo(:, 5,42, 9) = (/ & - &8.3900e+02 ,6.2937e+02 ,4.1975e+02 ,2.1021e+02 ,1.8688e+00 /) - kbo(:, 1,43, 9) = (/ & - &4.8522e+02 ,3.6405e+02 ,2.4292e+02 ,1.2271e+02 ,1.1188e+00 /) - kbo(:, 2,43, 9) = (/ & - &5.5936e+02 ,4.1965e+02 ,2.7996e+02 ,1.4092e+02 ,1.2979e+00 /) - kbo(:, 3,43, 9) = (/ & - &6.4330e+02 ,4.8260e+02 ,3.2191e+02 ,1.6164e+02 ,1.4736e+00 /) - kbo(:, 4,43, 9) = (/ & - &7.3773e+02 ,5.5342e+02 ,3.6912e+02 ,1.8505e+02 ,1.6463e+00 /) - kbo(:, 5,43, 9) = (/ & - &8.4419e+02 ,6.3327e+02 ,4.2235e+02 ,2.1154e+02 ,1.8168e+00 /) - kbo(:, 1,44, 9) = (/ & - &4.7662e+02 ,3.5759e+02 ,2.3863e+02 ,1.2069e+02 ,1.0480e+00 /) - kbo(:, 2,44, 9) = (/ & - &5.5453e+02 ,4.1603e+02 ,2.7755e+02 ,1.3982e+02 ,1.2297e+00 /) - kbo(:, 3,44, 9) = (/ & - &6.4348e+02 ,4.8273e+02 ,3.2200e+02 ,1.6176e+02 ,1.4085e+00 /) - kbo(:, 4,44, 9) = (/ & - &7.4447e+02 ,5.5848e+02 ,3.7249e+02 ,1.8678e+02 ,1.5847e+00 /) - kbo(:, 5,44, 9) = (/ & - &8.5855e+02 ,6.4403e+02 ,4.2953e+02 ,2.1515e+02 ,1.7587e+00 /) - kbo(:, 1,45, 9) = (/ & - &4.7694e+02 ,3.5784e+02 ,2.3881e+02 ,1.2088e+02 ,9.8025e-01 /) - kbo(:, 2,45, 9) = (/ & - &5.6049e+02 ,4.2050e+02 ,2.8054e+02 ,1.4139e+02 ,1.1623e+00 /) - kbo(:, 3,45, 9) = (/ & - &6.5632e+02 ,4.9237e+02 ,3.2842e+02 ,1.6503e+02 ,1.3439e+00 /) - kbo(:, 4,45, 9) = (/ & - &7.6635e+02 ,5.7488e+02 ,3.8343e+02 ,1.9228e+02 ,1.5236e+00 /) - kbo(:, 5,45, 9) = (/ & - &8.9123e+02 ,6.6854e+02 ,4.4587e+02 ,2.2334e+02 ,1.7007e+00 /) - kbo(:, 1,46, 9) = (/ & - &4.7924e+02 ,3.5957e+02 ,2.3999e+02 ,1.2157e+02 ,9.0983e-01 /) - kbo(:, 2,46, 9) = (/ & - &5.6922e+02 ,4.2705e+02 ,2.8491e+02 ,1.4366e+02 ,1.0922e+00 /) - kbo(:, 3,46, 9) = (/ & - &6.7352e+02 ,5.0527e+02 ,3.3703e+02 ,1.6939e+02 ,1.2757e+00 /) - kbo(:, 4,46, 9) = (/ & - &7.9367e+02 ,5.9538e+02 ,3.9709e+02 ,1.9915e+02 ,1.4579e+00 /) - kbo(:, 5,46, 9) = (/ & - &9.3189e+02 ,6.9904e+02 ,4.6620e+02 ,2.3352e+02 ,1.6382e+00 /) - kbo(:, 1,47, 9) = (/ & - &4.7215e+02 ,3.5425e+02 ,2.3648e+02 ,1.1995e+02 ,8.3319e-01 /) - kbo(:, 2,47, 9) = (/ & - &5.6710e+02 ,4.2546e+02 ,2.8387e+02 ,1.4325e+02 ,1.0142e+00 /) - kbo(:, 3,47, 9) = (/ & - &6.7881e+02 ,5.0924e+02 ,3.3968e+02 ,1.7081e+02 ,1.1988e+00 /) - kbo(:, 4,47, 9) = (/ & - &8.0796e+02 ,6.0609e+02 ,4.0424e+02 ,2.0278e+02 ,1.3835e+00 /) - kbo(:, 5,47, 9) = (/ & - &9.5794e+02 ,7.1858e+02 ,4.7923e+02 ,2.4007e+02 ,1.5668e+00 /) - kbo(:, 1,48, 9) = (/ & - &4.7667e+02 ,3.5764e+02 ,2.3876e+02 ,1.2119e+02 ,7.5823e-01 /) - kbo(:, 2,48, 9) = (/ & - &5.7865e+02 ,4.3413e+02 ,2.8965e+02 ,1.4623e+02 ,9.3799e-01 /) - kbo(:, 3,48, 9) = (/ & - &7.0145e+02 ,5.2622e+02 ,3.5101e+02 ,1.7653e+02 ,1.1229e+00 /) - kbo(:, 4,48, 9) = (/ & - &8.4427e+02 ,6.3333e+02 ,4.2240e+02 ,2.1190e+02 ,1.3089e+00 /) - kbo(:, 5,48, 9) = (/ & - &1.0109e+03 ,7.5832e+02 ,5.0573e+02 ,2.5334e+02 ,1.4951e+00 /) - kbo(:, 1,49, 9) = (/ & - &4.9957e+02 ,3.7481e+02 ,2.5022e+02 ,1.2697e+02 ,6.8631e-01 /) - kbo(:, 2,49, 9) = (/ & - &6.1224e+02 ,4.5931e+02 ,3.0645e+02 ,1.5466e+02 ,8.6353e-01 /) - kbo(:, 3,49, 9) = (/ & - &7.5197e+02 ,5.6411e+02 ,3.7627e+02 ,1.8917e+02 ,1.0480e+00 /) - kbo(:, 4,49, 9) = (/ & - &9.1643e+02 ,6.8745e+02 ,4.5848e+02 ,2.2994e+02 ,1.2341e+00 /) - kbo(:, 5,49, 9) = (/ & - &1.1094e+03 ,8.3219e+02 ,5.5497e+02 ,2.7795e+02 ,1.4234e+00 /) - kbo(:, 1,50, 9) = (/ & - &4.9927e+02 ,3.7459e+02 ,2.5011e+02 ,1.2702e+02 ,6.2082e-01 /) - kbo(:, 2,50, 9) = (/ & - &6.1745e+02 ,4.6322e+02 ,3.0907e+02 ,1.5606e+02 ,7.9337e-01 /) - kbo(:, 3,50, 9) = (/ & - &7.6850e+02 ,5.7651e+02 ,3.8454e+02 ,1.9338e+02 ,9.7702e-01 /) - kbo(:, 4,50, 9) = (/ & - &9.4909e+02 ,7.1195e+02 ,4.7482e+02 ,2.3816e+02 ,1.1637e+00 /) - kbo(:, 5,50, 9) = (/ & - &1.1628e+03 ,8.7227e+02 ,5.8169e+02 ,2.9133e+02 ,1.3527e+00 /) - kbo(:, 1,51, 9) = (/ & - &4.8758e+02 ,3.6583e+02 ,2.4432e+02 ,1.2426e+02 ,5.5888e-01 /) - kbo(:, 2,51, 9) = (/ & - &6.0851e+02 ,4.5652e+02 ,3.0463e+02 ,1.5396e+02 ,7.2702e-01 /) - kbo(:, 3,51, 9) = (/ & - &7.6706e+02 ,5.7543e+02 ,3.8383e+02 ,1.9312e+02 ,9.0804e-01 /) - kbo(:, 4,51, 9) = (/ & - &9.6042e+02 ,7.2045e+02 ,4.8049e+02 ,2.4107e+02 ,1.0946e+00 /) - kbo(:, 5,51, 9) = (/ & - &1.1920e+03 ,8.9415e+02 ,5.9629e+02 ,2.9867e+02 ,1.2844e+00 /) - kbo(:, 1,52, 9) = (/ & - &4.8860e+02 ,3.6660e+02 ,2.4488e+02 ,1.2464e+02 ,4.9962e-01 /) - kbo(:, 2,52, 9) = (/ & - &6.1451e+02 ,4.6102e+02 ,3.0765e+02 ,1.5555e+02 ,6.6320e-01 /) - kbo(:, 3,52, 9) = (/ & - &7.8418e+02 ,5.8827e+02 ,3.9240e+02 ,1.9747e+02 ,8.4128e-01 /) - kbo(:, 4,52, 9) = (/ & - &9.9602e+02 ,7.4715e+02 ,4.9829e+02 ,2.5001e+02 ,1.0268e+00 /) - kbo(:, 5,52, 9) = (/ & - &1.2534e+03 ,9.4018e+02 ,6.2698e+02 ,3.1403e+02 ,1.2165e+00 /) - kbo(:, 1,53, 9) = (/ & - &5.0881e+02 ,3.8175e+02 ,2.5500e+02 ,1.2975e+02 ,4.4418e-01 /) - kbo(:, 2,53, 9) = (/ & - &6.4426e+02 ,4.8334e+02 ,3.2253e+02 ,1.6302e+02 ,6.0138e-01 /) - kbo(:, 3,53, 9) = (/ & - &8.3158e+02 ,6.2382e+02 ,4.1611e+02 ,2.0933e+02 ,7.7570e-01 /) - kbo(:, 4,53, 9) = (/ & - &1.0715e+03 ,8.0375e+02 ,5.3603e+02 ,2.6888e+02 ,9.5940e-01 /) - kbo(:, 5,53, 9) = (/ & - &1.3680e+03 ,1.0262e+03 ,6.8430e+02 ,3.4269e+02 ,1.1487e+00 /) - kbo(:, 1,54, 9) = (/ & - &4.6019e+02 ,3.4529e+02 ,2.3082e+02 ,1.1788e+02 ,3.9422e-01 /) - kbo(:, 2,54, 9) = (/ & - &5.8633e+02 ,4.3988e+02 ,2.9364e+02 ,1.4879e+02 ,5.4422e-01 /) - kbo(:, 3,54, 9) = (/ & - &7.6477e+02 ,5.7372e+02 ,3.8273e+02 ,1.9285e+02 ,7.1419e-01 /) - kbo(:, 4,54, 9) = (/ & - &9.9975e+02 ,7.4995e+02 ,5.0017e+02 ,2.5112e+02 ,8.9603e-01 /) - kbo(:, 5,54, 9) = (/ & - &1.2952e+03 ,9.7153e+02 ,6.4788e+02 ,3.2458e+02 ,1.0830e+00 /) - kbo(:, 1,55, 9) = (/ & - &3.8020e+02 ,2.8531e+02 ,1.9107e+02 ,9.8307e+01 ,3.4739e-01 /) - kbo(:, 2,55, 9) = (/ & - &4.8735e+02 ,3.6565e+02 ,2.4430e+02 ,1.2445e+02 ,4.9078e-01 /) - kbo(:, 3,55, 9) = (/ & - &6.4163e+02 ,4.8136e+02 ,3.2124e+02 ,1.6243e+02 ,6.5484e-01 /) - kbo(:, 4,55, 9) = (/ & - &8.5082e+02 ,6.3825e+02 ,4.2573e+02 ,2.1419e+02 ,8.3371e-01 /) - kbo(:, 5,55, 9) = (/ & - &1.1188e+03 ,8.3927e+02 ,5.5970e+02 ,2.8072e+02 ,1.0198e+00 /) - kbo(:, 1,56, 9) = (/ & - &3.1368e+02 ,2.3545e+02 ,1.5809e+02 ,8.2086e+01 ,3.0410e-01 /) - kbo(:, 2,56, 9) = (/ & - &4.0416e+02 ,3.0326e+02 ,2.0292e+02 ,1.0407e+02 ,4.3985e-01 /) - kbo(:, 3,56, 9) = (/ & - &5.3658e+02 ,4.0257e+02 ,2.6883e+02 ,1.3655e+02 ,5.9766e-01 /) - kbo(:, 4,56, 9) = (/ & - &7.2129e+02 ,5.4110e+02 ,3.6102e+02 ,1.8214e+02 ,7.7256e-01 /) - kbo(:, 5,56, 9) = (/ & - &9.6339e+02 ,7.2268e+02 ,4.8200e+02 ,2.4214e+02 ,9.5689e-01 /) - kbo(:, 1,57, 9) = (/ & - &2.5819e+02 ,1.9390e+02 ,1.3066e+02 ,6.8602e+01 ,2.6463e-01 /) - kbo(:, 2,57, 9) = (/ & - &3.3457e+02 ,2.5110e+02 ,1.6838e+02 ,8.7076e+01 ,3.9133e-01 /) - kbo(:, 3,57, 9) = (/ & - &4.4726e+02 ,3.3558e+02 ,2.2435e+02 ,1.1462e+02 ,5.4231e-01 /) - kbo(:, 4,57, 9) = (/ & - &6.0897e+02 ,4.5687e+02 ,3.0496e+02 ,1.5443e+02 ,7.1198e-01 /) - kbo(:, 5,57, 9) = (/ & - &8.2628e+02 ,6.1985e+02 ,4.1347e+02 ,2.0818e+02 ,8.9451e-01 /) - kbo(:, 1,58, 9) = (/ & - &5.6144e+01 ,5.1598e+01 ,4.4952e+01 ,3.3575e+01 ,2.2945e-01 /) - kbo(:, 2,58, 9) = (/ & - &7.3248e+01 ,6.7230e+01 ,5.8185e+01 ,4.2642e+01 ,3.4680e-01 /) - kbo(:, 3,58, 9) = (/ & - &9.8566e+01 ,9.0421e+01 ,7.7903e+01 ,5.6215e+01 ,4.9127e-01 /) - kbo(:, 4,58, 9) = (/ & - &1.3577e+02 ,1.2452e+02 ,1.0700e+02 ,7.6316e+01 ,6.5580e-01 /) - kbo(:, 5,58, 9) = (/ & - &1.8716e+02 ,1.7164e+02 ,1.4731e+02 ,1.0424e+02 ,8.3481e-01 /) - kbo(:, 1,59, 9) = (/ & - &5.7246e+01 ,5.0299e+01 ,4.1347e+01 ,2.8542e+01 ,2.1390e-01 /) - kbo(:, 2,59, 9) = (/ & - &7.5569e+01 ,6.6181e+01 ,5.3818e+01 ,3.6138e+01 ,3.2687e-01 /) - kbo(:, 3,59, 9) = (/ & - &1.0297e+02 ,9.0031e+01 ,7.2620e+01 ,4.7606e+01 ,4.6582e-01 /) - kbo(:, 4,59, 9) = (/ & - &1.4369e+02 ,1.2555e+02 ,1.0072e+02 ,6.4807e+01 ,6.2712e-01 /) - kbo(:, 5,59, 9) = (/ & - &2.0105e+02 ,1.7562e+02 ,1.4046e+02 ,8.9199e+01 ,8.0292e-01 /) - kbo(:, 1,13,10) = (/ & - &1.3594e+05 ,1.0195e+05 ,6.7969e+04 ,3.3985e+04 ,3.3627e+00 /) - kbo(:, 2,13,10) = (/ & - &1.3605e+05 ,1.0204e+05 ,6.8026e+04 ,3.4013e+04 ,3.2528e+00 /) - kbo(:, 3,13,10) = (/ & - &1.3597e+05 ,1.0198e+05 ,6.7984e+04 ,3.3992e+04 ,3.1814e+00 /) - kbo(:, 4,13,10) = (/ & - &1.3504e+05 ,1.0128e+05 ,6.7520e+04 ,3.3760e+04 ,3.0515e+00 /) - kbo(:, 5,13,10) = (/ & - &1.3382e+05 ,1.0037e+05 ,6.6910e+04 ,3.3456e+04 ,3.0303e+00 /) - kbo(:, 1,14,10) = (/ & - &8.3672e+04 ,6.2754e+04 ,4.1836e+04 ,2.0918e+04 ,3.6220e+00 /) - kbo(:, 2,14,10) = (/ & - &8.3355e+04 ,6.2516e+04 ,4.1677e+04 ,2.0839e+04 ,3.5454e+00 /) - kbo(:, 3,14,10) = (/ & - &8.2924e+04 ,6.2193e+04 ,4.1462e+04 ,2.0731e+04 ,3.4328e+00 /) - kbo(:, 4,14,10) = (/ & - &8.2189e+04 ,6.1641e+04 ,4.1094e+04 ,2.0547e+04 ,3.3922e+00 /) - kbo(:, 5,14,10) = (/ & - &8.1205e+04 ,6.0904e+04 ,4.0602e+04 ,2.0301e+04 ,3.2425e+00 /) - kbo(:, 1,15,10) = (/ & - &5.1150e+04 ,3.8363e+04 ,2.5576e+04 ,1.2788e+04 ,3.9145e+00 /) - kbo(:, 2,15,10) = (/ & - &5.0875e+04 ,3.8157e+04 ,2.5438e+04 ,1.2719e+04 ,3.8152e+00 /) - kbo(:, 3,15,10) = (/ & - &5.0407e+04 ,3.7806e+04 ,2.5204e+04 ,1.2602e+04 ,3.7733e+00 /) - kbo(:, 4,15,10) = (/ & - &4.9693e+04 ,3.7270e+04 ,2.4847e+04 ,1.2424e+04 ,3.6717e+00 /) - kbo(:, 5,15,10) = (/ & - &4.8987e+04 ,3.6740e+04 ,2.4494e+04 ,1.2247e+04 ,3.5647e+00 /) - kbo(:, 1,16,10) = (/ & - &3.6535e+04 ,2.7401e+04 ,1.8268e+04 ,9.1341e+03 ,4.2542e+00 /) - kbo(:, 2,16,10) = (/ & - &3.6151e+04 ,2.7114e+04 ,1.8076e+04 ,9.0383e+03 ,4.1666e+00 /) - kbo(:, 3,16,10) = (/ & - &3.5666e+04 ,2.6750e+04 ,1.7833e+04 ,8.9169e+03 ,4.1063e+00 /) - kbo(:, 4,16,10) = (/ & - &3.5133e+04 ,2.6350e+04 ,1.7567e+04 ,8.7838e+03 ,4.0309e+00 /) - kbo(:, 5,16,10) = (/ & - &3.4526e+04 ,2.5894e+04 ,1.7263e+04 ,8.6318e+03 ,3.8978e+00 /) - kbo(:, 1,17,10) = (/ & - &2.6414e+04 ,1.9811e+04 ,1.3207e+04 ,6.6039e+03 ,4.6454e+00 /) - kbo(:, 2,17,10) = (/ & - &2.6068e+04 ,1.9551e+04 ,1.3034e+04 ,6.5174e+03 ,4.5633e+00 /) - kbo(:, 3,17,10) = (/ & - &2.5689e+04 ,1.9267e+04 ,1.2845e+04 ,6.4225e+03 ,4.4826e+00 /) - kbo(:, 4,17,10) = (/ & - &2.5209e+04 ,1.8907e+04 ,1.2605e+04 ,6.3027e+03 ,4.3889e+00 /) - kbo(:, 5,17,10) = (/ & - &2.4661e+04 ,1.8496e+04 ,1.2331e+04 ,6.1658e+03 ,4.2589e+00 /) - kbo(:, 1,18,10) = (/ & - &1.9208e+04 ,1.4406e+04 ,9.6044e+03 ,4.8025e+03 ,5.0342e+00 /) - kbo(:, 2,18,10) = (/ & - &1.8927e+04 ,1.4195e+04 ,9.4636e+03 ,4.7320e+03 ,4.9453e+00 /) - kbo(:, 3,18,10) = (/ & - &1.8575e+04 ,1.3931e+04 ,9.2875e+03 ,4.6440e+03 ,4.8565e+00 /) - kbo(:, 4,18,10) = (/ & - &1.8151e+04 ,1.3614e+04 ,9.0760e+03 ,4.5383e+03 ,4.7616e+00 /) - kbo(:, 5,18,10) = (/ & - &1.7715e+04 ,1.3287e+04 ,8.8579e+03 ,4.4292e+03 ,4.6381e+00 /) - kbo(:, 1,19,10) = (/ & - &1.3561e+04 ,1.0171e+04 ,6.7808e+03 ,3.3906e+03 ,5.4045e+00 /) - kbo(:, 2,19,10) = (/ & - &1.3305e+04 ,9.9790e+03 ,6.6528e+03 ,3.3267e+03 ,5.3114e+00 /) - kbo(:, 3,19,10) = (/ & - &1.3001e+04 ,9.7507e+03 ,6.5006e+03 ,3.2506e+03 ,5.2250e+00 /) - kbo(:, 4,19,10) = (/ & - &1.2687e+04 ,9.5155e+03 ,6.3438e+03 ,3.1722e+03 ,5.1407e+00 /) - kbo(:, 5,19,10) = (/ & - &1.2394e+04 ,9.2960e+03 ,6.1975e+03 ,3.0991e+03 ,5.0251e+00 /) - kbo(:, 1,20,10) = (/ & - &1.0195e+04 ,7.6466e+03 ,5.0979e+03 ,2.5492e+03 ,5.7652e+00 /) - kbo(:, 2,20,10) = (/ & - &9.9631e+03 ,7.4725e+03 ,4.9818e+03 ,2.4912e+03 ,5.6804e+00 /) - kbo(:, 3,20,10) = (/ & - &9.7293e+03 ,7.2971e+03 ,4.8649e+03 ,2.4328e+03 ,5.6092e+00 /) - kbo(:, 4,20,10) = (/ & - &9.5227e+03 ,7.1421e+03 ,4.7616e+03 ,2.3811e+03 ,5.5285e+00 /) - kbo(:, 5,20,10) = (/ & - &9.3625e+03 ,7.0220e+03 ,4.6816e+03 ,2.3411e+03 ,5.3995e+00 /) - kbo(:, 1,21,10) = (/ & - &7.7885e+03 ,5.8415e+03 ,3.8945e+03 ,1.9475e+03 ,6.1280e+00 /) - kbo(:, 2,21,10) = (/ & - &7.6092e+03 ,5.7071e+03 ,3.8049e+03 ,1.9027e+03 ,6.0467e+00 /) - kbo(:, 3,21,10) = (/ & - &7.4658e+03 ,5.5995e+03 ,3.7332e+03 ,1.8669e+03 ,5.9782e+00 /) - kbo(:, 4,21,10) = (/ & - &7.3647e+03 ,5.5237e+03 ,3.6826e+03 ,1.8416e+03 ,5.8911e+00 /) - kbo(:, 5,21,10) = (/ & - &7.2928e+03 ,5.4698e+03 ,3.6467e+03 ,1.8237e+03 ,5.7660e+00 /) - kbo(:, 1,22,10) = (/ & - &6.0472e+03 ,4.5355e+03 ,3.0239e+03 ,1.5122e+03 ,6.4389e+00 /) - kbo(:, 2,22,10) = (/ & - &5.9457e+03 ,4.4594e+03 ,2.9731e+03 ,1.4868e+03 ,6.3534e+00 /) - kbo(:, 3,22,10) = (/ & - &5.8843e+03 ,4.4133e+03 ,2.9424e+03 ,1.4715e+03 ,6.3043e+00 /) - kbo(:, 4,22,10) = (/ & - &5.8543e+03 ,4.3909e+03 ,2.9274e+03 ,1.4640e+03 ,6.2309e+00 /) - kbo(:, 5,22,10) = (/ & - &5.8906e+03 ,4.4181e+03 ,2.9456e+03 ,1.4732e+03 ,6.0993e+00 /) - kbo(:, 1,23,10) = (/ & - &4.7512e+03 ,3.5635e+03 ,2.3758e+03 ,1.1882e+03 ,6.6888e+00 /) - kbo(:, 2,23,10) = (/ & - &4.7151e+03 ,3.5365e+03 ,2.3578e+03 ,1.1792e+03 ,6.6289e+00 /) - kbo(:, 3,23,10) = (/ & - &4.7153e+03 ,3.5366e+03 ,2.3579e+03 ,1.1792e+03 ,6.5888e+00 /) - kbo(:, 4,23,10) = (/ & - &4.7757e+03 ,3.5820e+03 ,2.3882e+03 ,1.1944e+03 ,6.5103e+00 /) - kbo(:, 5,23,10) = (/ & - &4.8784e+03 ,3.6590e+03 ,2.4396e+03 ,1.2201e+03 ,6.3750e+00 /) - kbo(:, 1,24,10) = (/ & - &3.7664e+03 ,2.8249e+03 ,1.8835e+03 ,9.4199e+02 ,6.8939e+00 /) - kbo(:, 2,24,10) = (/ & - &3.7833e+03 ,2.8376e+03 ,1.8919e+03 ,9.4626e+02 ,6.8560e+00 /) - kbo(:, 3,24,10) = (/ & - &3.8524e+03 ,2.8895e+03 ,1.9265e+03 ,9.6361e+02 ,6.8233e+00 /) - kbo(:, 4,24,10) = (/ & - &3.9503e+03 ,2.9629e+03 ,1.9755e+03 ,9.8811e+02 ,6.7364e+00 /) - kbo(:, 5,24,10) = (/ & - &4.0500e+03 ,3.0377e+03 ,2.0254e+03 ,1.0130e+03 ,6.5861e+00 /) - kbo(:, 1,25,10) = (/ & - &3.0705e+03 ,2.3030e+03 ,1.5356e+03 ,7.6808e+02 ,7.0352e+00 /) - kbo(:, 2,25,10) = (/ & - &3.1368e+03 ,2.3527e+03 ,1.5687e+03 ,7.8472e+02 ,7.0310e+00 /) - kbo(:, 3,25,10) = (/ & - &3.2299e+03 ,2.4226e+03 ,1.6153e+03 ,8.0803e+02 ,7.0074e+00 /) - kbo(:, 4,25,10) = (/ & - &3.3291e+03 ,2.4970e+03 ,1.6649e+03 ,8.3282e+02 ,6.9138e+00 /) - kbo(:, 5,25,10) = (/ & - &3.4334e+03 ,2.5753e+03 ,1.7171e+03 ,8.5889e+02 ,6.7836e+00 /) - kbo(:, 1,26,10) = (/ & - &2.5973e+03 ,1.9481e+03 ,1.2990e+03 ,6.4986e+02 ,7.1301e+00 /) - kbo(:, 2,26,10) = (/ & - &2.6809e+03 ,2.0109e+03 ,1.3408e+03 ,6.7078e+02 ,7.1546e+00 /) - kbo(:, 3,26,10) = (/ & - &2.7748e+03 ,2.0813e+03 ,1.3878e+03 ,6.9426e+02 ,7.1359e+00 /) - kbo(:, 4,26,10) = (/ & - &2.8656e+03 ,2.1494e+03 ,1.4332e+03 ,7.1694e+02 ,7.0388e+00 /) - kbo(:, 5,26,10) = (/ & - &2.9554e+03 ,2.2167e+03 ,1.4780e+03 ,7.3936e+02 ,6.9309e+00 /) - kbo(:, 1,27,10) = (/ & - &2.3040e+03 ,1.7282e+03 ,1.1524e+03 ,5.7657e+02 ,7.1805e+00 /) - kbo(:, 2,27,10) = (/ & - &2.3938e+03 ,1.7956e+03 ,1.1973e+03 ,5.9902e+02 ,7.2265e+00 /) - kbo(:, 3,27,10) = (/ & - &2.4776e+03 ,1.8584e+03 ,1.2392e+03 ,6.1996e+02 ,7.2160e+00 /) - kbo(:, 4,27,10) = (/ & - &2.5592e+03 ,1.9196e+03 ,1.2799e+03 ,6.4031e+02 ,7.1019e+00 /) - kbo(:, 5,27,10) = (/ & - &2.6344e+03 ,1.9760e+03 ,1.3176e+03 ,6.5914e+02 ,7.0533e+00 /) - kbo(:, 1,28,10) = (/ & - &2.1016e+03 ,1.5764e+03 ,1.0512e+03 ,5.2597e+02 ,7.1943e+00 /) - kbo(:, 2,28,10) = (/ & - &2.1832e+03 ,1.6376e+03 ,1.0920e+03 ,5.4637e+02 ,7.2562e+00 /) - kbo(:, 3,28,10) = (/ & - &2.2626e+03 ,1.6971e+03 ,1.1316e+03 ,5.6618e+02 ,7.2356e+00 /) - kbo(:, 4,28,10) = (/ & - &2.3367e+03 ,1.7527e+03 ,1.1687e+03 ,5.8470e+02 ,7.1672e+00 /) - kbo(:, 5,28,10) = (/ & - &2.4052e+03 ,1.8041e+03 ,1.2030e+03 ,6.0186e+02 ,7.1806e+00 /) - kbo(:, 1,29,10) = (/ & - &2.0213e+03 ,1.5162e+03 ,1.0110e+03 ,5.0592e+02 ,7.1826e+00 /) - kbo(:, 2,29,10) = (/ & - &2.1025e+03 ,1.5771e+03 ,1.0516e+03 ,5.2618e+02 ,7.2449e+00 /) - kbo(:, 3,29,10) = (/ & - &2.1817e+03 ,1.6365e+03 ,1.0912e+03 ,5.4596e+02 ,7.2200e+00 /) - kbo(:, 4,29,10) = (/ & - &2.2556e+03 ,1.6919e+03 ,1.1282e+03 ,5.6447e+02 ,7.2591e+00 /) - kbo(:, 5,29,10) = (/ & - &2.3246e+03 ,1.7436e+03 ,1.1626e+03 ,5.8167e+02 ,7.2912e+00 /) - kbo(:, 1,30,10) = (/ & - &1.9891e+03 ,1.4920e+03 ,9.9489e+02 ,4.9783e+02 ,7.1696e+00 /) - kbo(:, 2,30,10) = (/ & - &2.0704e+03 ,1.5530e+03 ,1.0355e+03 ,5.1812e+02 ,7.1996e+00 /) - kbo(:, 3,30,10) = (/ & - &2.1486e+03 ,1.6117e+03 ,1.0747e+03 ,5.3773e+02 ,7.2564e+00 /) - kbo(:, 4,30,10) = (/ & - &2.2243e+03 ,1.6684e+03 ,1.1125e+03 ,5.5660e+02 ,7.3491e+00 /) - kbo(:, 5,30,10) = (/ & - &2.2969e+03 ,1.7228e+03 ,1.1488e+03 ,5.7471e+02 ,7.3950e+00 /) - kbo(:, 1,31,10) = (/ & - &2.0600e+03 ,1.5452e+03 ,1.0303e+03 ,5.1552e+02 ,7.0891e+00 /) - kbo(:, 2,31,10) = (/ & - &2.1442e+03 ,1.6083e+03 ,1.0725e+03 ,5.3661e+02 ,7.1940e+00 /) - kbo(:, 3,31,10) = (/ & - &2.2267e+03 ,1.6702e+03 ,1.1137e+03 ,5.5720e+02 ,7.3519e+00 /) - kbo(:, 4,31,10) = (/ & - &2.3069e+03 ,1.7303e+03 ,1.1538e+03 ,5.7721e+02 ,7.4783e+00 /) - kbo(:, 5,31,10) = (/ & - &2.3951e+03 ,1.7965e+03 ,1.1978e+03 ,5.9922e+02 ,7.4978e+00 /) - kbo(:, 1,32,10) = (/ & - &2.1607e+03 ,1.6207e+03 ,1.0807e+03 ,5.4073e+02 ,7.0921e+00 /) - kbo(:, 2,32,10) = (/ & - &2.2499e+03 ,1.6876e+03 ,1.1253e+03 ,5.6302e+02 ,7.2853e+00 /) - kbo(:, 3,32,10) = (/ & - &2.3389e+03 ,1.7543e+03 ,1.1698e+03 ,5.8523e+02 ,7.4637e+00 /) - kbo(:, 4,32,10) = (/ & - &2.4345e+03 ,1.8261e+03 ,1.2176e+03 ,6.0908e+02 ,7.5300e+00 /) - kbo(:, 5,32,10) = (/ & - &2.5534e+03 ,1.9152e+03 ,1.2769e+03 ,6.3872e+02 ,7.5836e+00 /) - kbo(:, 1,33,10) = (/ & - &2.3147e+03 ,1.7362e+03 ,1.1577e+03 ,5.7922e+02 ,7.1422e+00 /) - kbo(:, 2,33,10) = (/ & - &2.4114e+03 ,1.8087e+03 ,1.2060e+03 ,6.0335e+02 ,7.3798e+00 /) - kbo(:, 3,33,10) = (/ & - &2.5142e+03 ,1.8858e+03 ,1.2574e+03 ,6.2900e+02 ,7.4990e+00 /) - kbo(:, 4,33,10) = (/ & - &2.6436e+03 ,1.9829e+03 ,1.3221e+03 ,6.6129e+02 ,7.6018e+00 /) - kbo(:, 5,33,10) = (/ & - &2.8166e+03 ,2.1125e+03 ,1.4085e+03 ,7.0447e+02 ,7.6468e+00 /) - kbo(:, 1,34,10) = (/ & - &2.4210e+03 ,1.8159e+03 ,1.2108e+03 ,6.0577e+02 ,7.2083e+00 /) - kbo(:, 2,34,10) = (/ & - &2.5284e+03 ,1.8965e+03 ,1.2645e+03 ,6.3255e+02 ,7.4180e+00 /) - kbo(:, 3,34,10) = (/ & - &2.6591e+03 ,1.9944e+03 ,1.3298e+03 ,6.6516e+02 ,7.5418e+00 /) - kbo(:, 4,34,10) = (/ & - &2.8359e+03 ,2.1270e+03 ,1.4182e+03 ,7.0928e+02 ,7.6931e+00 /) - kbo(:, 5,34,10) = (/ & - &3.0680e+03 ,2.3011e+03 ,1.5342e+03 ,7.6730e+02 ,7.7811e+00 /) - kbo(:, 1,35,10) = (/ & - &2.5363e+03 ,1.9024e+03 ,1.2685e+03 ,6.3456e+02 ,7.2309e+00 /) - kbo(:, 2,35,10) = (/ & - &2.6634e+03 ,1.9977e+03 ,1.3320e+03 ,6.6631e+02 ,7.4393e+00 /) - kbo(:, 3,35,10) = (/ & - &2.8345e+03 ,2.1260e+03 ,1.4175e+03 ,7.0897e+02 ,7.6569e+00 /) - kbo(:, 4,35,10) = (/ & - &3.0674e+03 ,2.3007e+03 ,1.5339e+03 ,7.6716e+02 ,7.7801e+00 /) - kbo(:, 5,35,10) = (/ & - &3.3573e+03 ,2.5181e+03 ,1.6788e+03 ,8.3963e+02 ,7.8561e+00 /) - kbo(:, 1,36,10) = (/ & - &2.6451e+03 ,1.9840e+03 ,1.3229e+03 ,6.6175e+02 ,7.2395e+00 /) - kbo(:, 2,36,10) = (/ & - &2.7976e+03 ,2.0983e+03 ,1.3991e+03 ,6.9981e+02 ,7.4813e+00 /) - kbo(:, 3,36,10) = (/ & - &3.0125e+03 ,2.2595e+03 ,1.5065e+03 ,7.5346e+02 ,7.7309e+00 /) - kbo(:, 4,36,10) = (/ & - &3.2979e+03 ,2.4736e+03 ,1.6492e+03 ,8.2479e+02 ,7.8735e+00 /) - kbo(:, 5,36,10) = (/ & - &3.6475e+03 ,2.7357e+03 ,1.8239e+03 ,9.1218e+02 ,7.9027e+00 /) - kbo(:, 1,37,10) = (/ & - &2.6819e+03 ,2.0116e+03 ,1.3413e+03 ,6.7096e+02 ,7.2017e+00 /) - kbo(:, 2,37,10) = (/ & - &2.8583e+03 ,2.1439e+03 ,1.4294e+03 ,7.1495e+02 ,7.5003e+00 /) - kbo(:, 3,37,10) = (/ & - &3.1042e+03 ,2.3283e+03 ,1.5523e+03 ,7.7640e+02 ,7.7646e+00 /) - kbo(:, 4,37,10) = (/ & - &3.4272e+03 ,2.5705e+03 ,1.7138e+03 ,8.5714e+02 ,7.9233e+00 /) - kbo(:, 5,37,10) = (/ & - &3.8225e+03 ,2.8670e+03 ,1.9115e+03 ,9.5596e+02 ,7.9456e+00 /) - kbo(:, 1,38,10) = (/ & - &2.7669e+03 ,2.0753e+03 ,1.3837e+03 ,6.9217e+02 ,7.1724e+00 /) - kbo(:, 2,38,10) = (/ & - &2.9772e+03 ,2.2330e+03 ,1.4888e+03 ,7.4467e+02 ,7.5382e+00 /) - kbo(:, 3,38,10) = (/ & - &3.2630e+03 ,2.4473e+03 ,1.6317e+03 ,8.1609e+02 ,7.7857e+00 /) - kbo(:, 4,38,10) = (/ & - &3.6292e+03 ,2.7220e+03 ,1.8149e+03 ,9.0769e+02 ,7.9649e+00 /) - kbo(:, 5,38,10) = (/ & - &4.0743e+03 ,3.0559e+03 ,2.0374e+03 ,1.0190e+03 ,7.9771e+00 /) - kbo(:, 1,39,10) = (/ & - &2.9268e+03 ,2.1953e+03 ,1.4637e+03 ,7.3213e+02 ,7.1691e+00 /) - kbo(:, 2,39,10) = (/ & - &3.1832e+03 ,2.3875e+03 ,1.5919e+03 ,7.9619e+02 ,7.5536e+00 /) - kbo(:, 3,39,10) = (/ & - &3.5251e+03 ,2.6440e+03 ,1.7628e+03 ,8.8168e+02 ,7.8089e+00 /) - kbo(:, 4,39,10) = (/ & - &3.9504e+03 ,2.9629e+03 ,1.9755e+03 ,9.8804e+02 ,7.9786e+00 /) - kbo(:, 5,39,10) = (/ & - &4.4598e+03 ,3.3450e+03 ,2.2302e+03 ,1.1154e+03 ,8.0073e+00 /) - kbo(:, 1,40,10) = (/ & - &2.8874e+03 ,2.1657e+03 ,1.4439e+03 ,7.2221e+02 ,7.0746e+00 /) - kbo(:, 2,40,10) = (/ & - &3.1724e+03 ,2.3794e+03 ,1.5864e+03 ,7.9346e+02 ,7.4831e+00 /) - kbo(:, 3,40,10) = (/ & - &3.5465e+03 ,2.6600e+03 ,1.7735e+03 ,8.8703e+02 ,7.7692e+00 /) - kbo(:, 4,40,10) = (/ & - &4.0044e+03 ,3.0035e+03 ,2.0025e+03 ,1.0016e+03 ,7.9632e+00 /) - kbo(:, 5,40,10) = (/ & - &4.5454e+03 ,3.4092e+03 ,2.2730e+03 ,1.1368e+03 ,8.0081e+00 /) - kbo(:, 1,41,10) = (/ & - &2.8406e+03 ,2.1306e+03 ,1.4205e+03 ,7.1050e+02 ,6.9600e+00 /) - kbo(:, 2,41,10) = (/ & - &3.1484e+03 ,2.3614e+03 ,1.5744e+03 ,7.8747e+02 ,7.3954e+00 /) - kbo(:, 3,41,10) = (/ & - &3.5576e+03 ,2.6684e+03 ,1.7791e+03 ,8.8987e+02 ,7.7179e+00 /) - kbo(:, 4,41,10) = (/ & - &4.0527e+03 ,3.0397e+03 ,2.0267e+03 ,1.0137e+03 ,7.9444e+00 /) - kbo(:, 5,41,10) = (/ & - &4.6270e+03 ,3.4704e+03 ,2.3138e+03 ,1.1572e+03 ,8.0108e+00 /) - kbo(:, 1,42,10) = (/ & - &2.8258e+03 ,2.1194e+03 ,1.4131e+03 ,7.0678e+02 ,6.8517e+00 /) - kbo(:, 2,42,10) = (/ & - &3.1581e+03 ,2.3687e+03 ,1.5793e+03 ,7.8990e+02 ,7.3049e+00 /) - kbo(:, 3,42,10) = (/ & - &3.6059e+03 ,2.7046e+03 ,1.8032e+03 ,9.0193e+02 ,7.6524e+00 /) - kbo(:, 4,42,10) = (/ & - &4.1499e+03 ,3.1126e+03 ,2.0753e+03 ,1.0380e+03 ,7.9111e+00 /) - kbo(:, 5,42,10) = (/ & - &4.7763e+03 ,3.5824e+03 ,2.3885e+03 ,1.1945e+03 ,8.0026e+00 /) - kbo(:, 1,43,10) = (/ & - &2.8194e+03 ,2.1147e+03 ,1.4100e+03 ,7.0522e+02 ,6.7032e+00 /) - kbo(:, 2,43,10) = (/ & - &3.1747e+03 ,2.3812e+03 ,1.5876e+03 ,7.9408e+02 ,7.1735e+00 /) - kbo(:, 3,43,10) = (/ & - &3.6549e+03 ,2.7413e+03 ,1.8278e+03 ,9.1420e+02 ,7.5844e+00 /) - kbo(:, 4,43,10) = (/ & - &4.2522e+03 ,3.1893e+03 ,2.1264e+03 ,1.0635e+03 ,7.8420e+00 /) - kbo(:, 5,43,10) = (/ & - &4.9421e+03 ,3.7067e+03 ,2.4714e+03 ,1.2360e+03 ,7.9777e+00 /) - kbo(:, 1,44,10) = (/ & - &2.8469e+03 ,2.1353e+03 ,1.4237e+03 ,7.1206e+02 ,6.5380e+00 /) - kbo(:, 2,44,10) = (/ & - &3.2203e+03 ,2.4153e+03 ,1.6104e+03 ,8.0548e+02 ,7.0393e+00 /) - kbo(:, 3,44,10) = (/ & - &3.7360e+03 ,2.8021e+03 ,1.8683e+03 ,9.3448e+02 ,7.4778e+00 /) - kbo(:, 4,44,10) = (/ & - &4.3910e+03 ,3.2934e+03 ,2.1958e+03 ,1.0982e+03 ,7.7716e+00 /) - kbo(:, 5,44,10) = (/ & - &5.1620e+03 ,3.8716e+03 ,2.5813e+03 ,1.2909e+03 ,7.9568e+00 /) - kbo(:, 1,45,10) = (/ & - &2.9370e+03 ,2.2029e+03 ,1.4687e+03 ,7.3461e+02 ,6.3596e+00 /) - kbo(:, 2,45,10) = (/ & - &3.3323e+03 ,2.4994e+03 ,1.6664e+03 ,8.3351e+02 ,6.8956e+00 /) - kbo(:, 3,45,10) = (/ & - &3.8921e+03 ,2.9193e+03 ,1.9464e+03 ,9.7354e+02 ,7.3748e+00 /) - kbo(:, 4,45,10) = (/ & - &4.6196e+03 ,3.4648e+03 ,2.3101e+03 ,1.1554e+03 ,7.7094e+00 /) - kbo(:, 5,45,10) = (/ & - &5.4975e+03 ,4.1233e+03 ,2.7490e+03 ,1.3748e+03 ,7.9394e+00 /) - kbo(:, 1,46,10) = (/ & - &3.0543e+03 ,2.2908e+03 ,1.5274e+03 ,7.6393e+02 ,6.1665e+00 /) - kbo(:, 2,46,10) = (/ & - &3.4757e+03 ,2.6069e+03 ,1.7382e+03 ,8.6940e+02 ,6.7524e+00 /) - kbo(:, 3,46,10) = (/ & - &4.0758e+03 ,3.0570e+03 ,2.0382e+03 ,1.0195e+03 ,7.2688e+00 /) - kbo(:, 4,46,10) = (/ & - &4.8832e+03 ,3.6626e+03 ,2.4419e+03 ,1.2213e+03 ,7.6299e+00 /) - kbo(:, 5,46,10) = (/ & - &5.8799e+03 ,4.4101e+03 ,2.9402e+03 ,1.4704e+03 ,7.9039e+00 /) - kbo(:, 1,47,10) = (/ & - &3.1321e+03 ,2.3492e+03 ,1.5663e+03 ,7.8341e+02 ,5.9258e+00 /) - kbo(:, 2,47,10) = (/ & - &3.5703e+03 ,2.6779e+03 ,1.7855e+03 ,8.9306e+02 ,6.5564e+00 /) - kbo(:, 3,47,10) = (/ & - &4.1981e+03 ,3.1488e+03 ,2.0994e+03 ,1.0501e+03 ,7.1267e+00 /) - kbo(:, 4,47,10) = (/ & - &5.0652e+03 ,3.7991e+03 ,2.5329e+03 ,1.2668e+03 ,7.5455e+00 /) - kbo(:, 5,47,10) = (/ & - &6.1689e+03 ,4.6268e+03 ,3.0847e+03 ,1.5426e+03 ,7.8470e+00 /) - kbo(:, 1,48,10) = (/ & - &3.3047e+03 ,2.4787e+03 ,1.6526e+03 ,8.2657e+02 ,5.6694e+00 /) - kbo(:, 2,48,10) = (/ & - &3.7747e+03 ,2.8312e+03 ,1.8877e+03 ,9.4418e+02 ,6.3589e+00 /) - kbo(:, 3,48,10) = (/ & - &4.4483e+03 ,3.3364e+03 ,2.2245e+03 ,1.1126e+03 ,6.9569e+00 /) - kbo(:, 4,48,10) = (/ & - &5.3940e+03 ,4.0457e+03 ,2.6973e+03 ,1.3490e+03 ,7.4395e+00 /) - kbo(:, 5,48,10) = (/ & - &6.6398e+03 ,4.9800e+03 ,3.3201e+03 ,1.6603e+03 ,7.7751e+00 /) - kbo(:, 1,49,10) = (/ & - &3.6256e+03 ,2.7194e+03 ,1.8131e+03 ,9.0682e+02 ,5.4147e+00 /) - kbo(:, 2,49,10) = (/ & - &4.1643e+03 ,3.1234e+03 ,2.0825e+03 ,1.0416e+03 ,6.1453e+00 /) - kbo(:, 3,49,10) = (/ & - &4.9094e+03 ,3.6822e+03 ,2.4550e+03 ,1.2279e+03 ,6.7872e+00 /) - kbo(:, 4,49,10) = (/ & - &5.9847e+03 ,4.4886e+03 ,2.9926e+03 ,1.4966e+03 ,7.3168e+00 /) - kbo(:, 5,49,10) = (/ & - &7.4258e+03 ,5.5695e+03 ,3.7131e+03 ,1.8568e+03 ,7.6869e+00 /) - kbo(:, 1,50,10) = (/ & - &3.7913e+03 ,2.8436e+03 ,1.8959e+03 ,9.4825e+02 ,5.1338e+00 /) - kbo(:, 2,50,10) = (/ & - &4.3920e+03 ,3.2942e+03 ,2.1963e+03 ,1.0985e+03 ,5.9203e+00 /) - kbo(:, 3,50,10) = (/ & - &5.1851e+03 ,3.8890e+03 ,2.5929e+03 ,1.2968e+03 ,6.5802e+00 /) - kbo(:, 4,50,10) = (/ & - &6.3489e+03 ,4.7618e+03 ,3.1748e+03 ,1.5877e+03 ,7.1705e+00 /) - kbo(:, 5,50,10) = (/ & - &7.9377e+03 ,5.9534e+03 ,3.9691e+03 ,1.9848e+03 ,7.5922e+00 /) - kbo(:, 1,51,10) = (/ & - &3.8669e+03 ,2.9003e+03 ,1.9338e+03 ,9.6719e+02 ,4.8302e+00 /) - kbo(:, 2,51,10) = (/ & - &4.5318e+03 ,3.3991e+03 ,2.2663e+03 ,1.1335e+03 ,5.6653e+00 /) - kbo(:, 3,51,10) = (/ & - &5.3773e+03 ,4.0331e+03 ,2.6890e+03 ,1.3448e+03 ,6.3736e+00 /) - kbo(:, 4,51,10) = (/ & - &6.6015e+03 ,4.9513e+03 ,3.3010e+03 ,1.6508e+03 ,7.0028e+00 /) - kbo(:, 5,51,10) = (/ & - &8.3208e+03 ,6.2407e+03 ,4.1606e+03 ,2.0805e+03 ,7.4729e+00 /) - kbo(:, 1,52,10) = (/ & - &4.0341e+03 ,3.0258e+03 ,2.0174e+03 ,1.0090e+03 ,4.5505e+00 /) - kbo(:, 2,52,10) = (/ & - &4.7982e+03 ,3.5989e+03 ,2.3995e+03 ,1.2001e+03 ,5.4004e+00 /) - kbo(:, 3,52,10) = (/ & - &5.7356e+03 ,4.3019e+03 ,2.8682e+03 ,1.4344e+03 ,6.1556e+00 /) - kbo(:, 4,52,10) = (/ & - &7.0672e+03 ,5.3005e+03 ,3.5339e+03 ,1.7672e+03 ,6.8208e+00 /) - kbo(:, 5,52,10) = (/ & - &8.9657e+03 ,6.7244e+03 ,4.4831e+03 ,2.2418e+03 ,7.3432e+00 /) - kbo(:, 1,53,10) = (/ & - &4.3581e+03 ,3.2687e+03 ,2.1794e+03 ,1.0900e+03 ,4.2696e+00 /) - kbo(:, 2,53,10) = (/ & - &5.2688e+03 ,3.9518e+03 ,2.6348e+03 ,1.3178e+03 ,5.1422e+00 /) - kbo(:, 3,53,10) = (/ & - &6.3653e+03 ,4.7742e+03 ,3.1830e+03 ,1.5919e+03 ,5.9288e+00 /) - kbo(:, 4,53,10) = (/ & - &7.8870e+03 ,5.9154e+03 ,3.9438e+03 ,1.9722e+03 ,6.6345e+00 /) - kbo(:, 5,53,10) = (/ & - &1.0051e+04 ,7.5383e+03 ,5.0257e+03 ,2.5131e+03 ,7.2054e+00 /) - kbo(:, 1,54,10) = (/ & - &4.0664e+03 ,3.0500e+03 ,2.0336e+03 ,1.0171e+03 ,3.9912e+00 /) - kbo(:, 2,54,10) = (/ & - &5.0070e+03 ,3.7555e+03 ,2.5039e+03 ,1.2523e+03 ,4.8673e+00 /) - kbo(:, 3,54,10) = (/ & - &6.1329e+03 ,4.5998e+03 ,3.0668e+03 ,1.5337e+03 ,5.6727e+00 /) - kbo(:, 4,54,10) = (/ & - &7.6570e+03 ,5.7429e+03 ,3.8288e+03 ,1.9147e+03 ,6.4112e+00 /) - kbo(:, 5,54,10) = (/ & - &9.8073e+03 ,7.3556e+03 ,4.9039e+03 ,2.4522e+03 ,7.0431e+00 /) - kbo(:, 1,55,10) = (/ & - &3.4487e+03 ,2.5868e+03 ,1.7247e+03 ,8.6275e+02 ,3.7023e+00 /) - kbo(:, 2,55,10) = (/ & - &4.3277e+03 ,3.2460e+03 ,2.1642e+03 ,1.0825e+03 ,4.5324e+00 /) - kbo(:, 3,55,10) = (/ & - &5.3892e+03 ,4.0421e+03 ,2.6950e+03 ,1.3479e+03 ,5.4035e+00 /) - kbo(:, 4,55,10) = (/ & - &6.7963e+03 ,5.0973e+03 ,3.3984e+03 ,1.6995e+03 ,6.1546e+00 /) - kbo(:, 5,55,10) = (/ & - &8.7627e+03 ,6.5722e+03 ,4.3816e+03 ,2.1910e+03 ,6.8267e+00 /) - kbo(:, 1,56,10) = (/ & - &2.9072e+03 ,2.1806e+03 ,1.4540e+03 ,7.2734e+02 ,3.4115e+00 /) - kbo(:, 2,56,10) = (/ & - &3.7198e+03 ,2.7901e+03 ,1.8603e+03 ,9.3056e+02 ,4.2571e+00 /) - kbo(:, 3,56,10) = (/ & - &4.7203e+03 ,3.5403e+03 ,2.3605e+03 ,1.1806e+03 ,5.1151e+00 /) - kbo(:, 4,56,10) = (/ & - &6.0279e+03 ,4.5211e+03 ,3.0142e+03 ,1.5074e+03 ,5.8984e+00 /) - kbo(:, 5,56,10) = (/ & - &7.8366e+03 ,5.8775e+03 ,3.9185e+03 ,1.9594e+03 ,6.6003e+00 /) - kbo(:, 1,57,10) = (/ & - &2.4367e+03 ,1.8277e+03 ,1.2187e+03 ,6.0970e+02 ,3.1098e+00 /) - kbo(:, 2,57,10) = (/ & - &3.1766e+03 ,2.3826e+03 ,1.5887e+03 ,7.9475e+02 ,3.9704e+00 /) - kbo(:, 3,57,10) = (/ & - &4.1136e+03 ,3.0854e+03 ,2.0572e+03 ,1.0290e+03 ,4.8038e+00 /) - kbo(:, 4,57,10) = (/ & - &5.3345e+03 ,4.0010e+03 ,2.6675e+03 ,1.3340e+03 ,5.6428e+00 /) - kbo(:, 5,57,10) = (/ & - &7.0017e+03 ,5.2513e+03 ,3.5010e+03 ,1.7507e+03 ,6.3564e+00 /) - kbo(:, 1,58,10) = (/ & - &5.3797e+02 ,4.9330e+02 ,4.2306e+02 ,2.9653e+02 ,2.8402e+00 /) - kbo(:, 2,58,10) = (/ & - &7.1438e+02 ,6.5505e+02 ,5.6177e+02 ,3.9372e+02 ,3.6954e+00 /) - kbo(:, 3,58,10) = (/ & - &9.4508e+02 ,8.6656e+02 ,7.4311e+02 ,5.2072e+02 ,4.5299e+00 /) - kbo(:, 4,58,10) = (/ & - &1.2473e+03 ,1.1436e+03 ,9.8061e+02 ,6.8699e+02 ,5.3595e+00 /) - kbo(:, 5,58,10) = (/ & - &1.6559e+03 ,1.5182e+03 ,1.3018e+03 ,9.1191e+02 ,6.1054e+00 /) - kbo(:, 1,59,10) = (/ & - &5.5953e+02 ,4.8866e+02 ,3.8993e+02 ,2.4311e+02 ,2.7081e+00 /) - kbo(:, 2,59,10) = (/ & - &7.5600e+02 ,6.6022e+02 ,5.2680e+02 ,3.2817e+02 ,3.5280e+00 /) - kbo(:, 3,59,10) = (/ & - &1.0213e+03 ,8.9185e+02 ,7.1155e+02 ,4.4309e+02 ,4.3511e+00 /) - kbo(:, 4,59,10) = (/ & - &1.3747e+03 ,1.2004e+03 ,9.5765e+02 ,5.9615e+02 ,5.1215e+00 /) - kbo(:, 5,59,10) = (/ & - &1.8474e+03 ,1.6131e+03 ,1.2868e+03 ,8.0091e+02 ,5.9179e+00 /) - kbo(:, 1,13,11) = (/ & - &1.9556e+05 ,1.4667e+05 ,9.7780e+04 ,4.8890e+04 ,3.8293e+00 /) - kbo(:, 2,13,11) = (/ & - &1.9579e+05 ,1.4684e+05 ,9.7894e+04 ,4.8947e+04 ,3.6477e+00 /) - kbo(:, 3,13,11) = (/ & - &1.9489e+05 ,1.4617e+05 ,9.7447e+04 ,4.8724e+04 ,3.6240e+00 /) - kbo(:, 4,13,11) = (/ & - &1.9354e+05 ,1.4515e+05 ,9.6770e+04 ,4.8385e+04 ,3.4253e+00 /) - kbo(:, 5,13,11) = (/ & - &1.9176e+05 ,1.4382e+05 ,9.5882e+04 ,4.7942e+04 ,3.3965e+00 /) - kbo(:, 1,14,11) = (/ & - &1.2532e+05 ,9.3990e+04 ,6.2660e+04 ,3.1330e+04 ,4.2132e+00 /) - kbo(:, 2,14,11) = (/ & - &1.2490e+05 ,9.3675e+04 ,6.2450e+04 ,3.1225e+04 ,4.0914e+00 /) - kbo(:, 3,14,11) = (/ & - &1.2400e+05 ,9.3003e+04 ,6.2001e+04 ,3.1001e+04 ,4.0126e+00 /) - kbo(:, 4,14,11) = (/ & - &1.2262e+05 ,9.1963e+04 ,6.1309e+04 ,3.0654e+04 ,3.8288e+00 /) - kbo(:, 5,14,11) = (/ & - &1.2099e+05 ,9.0745e+04 ,6.0496e+04 ,3.0248e+04 ,3.6494e+00 /) - kbo(:, 1,15,11) = (/ & - &8.0146e+04 ,6.0110e+04 ,4.0074e+04 ,2.0037e+04 ,4.6025e+00 /) - kbo(:, 2,15,11) = (/ & - &7.9365e+04 ,5.9524e+04 ,3.9683e+04 ,1.9842e+04 ,4.5011e+00 /) - kbo(:, 3,15,11) = (/ & - &7.8437e+04 ,5.8828e+04 ,3.9219e+04 ,1.9610e+04 ,4.3995e+00 /) - kbo(:, 4,15,11) = (/ & - &7.7471e+04 ,5.8104e+04 ,3.8736e+04 ,1.9369e+04 ,4.3087e+00 /) - kbo(:, 5,15,11) = (/ & - &7.6167e+04 ,5.7126e+04 ,3.8084e+04 ,1.9043e+04 ,4.1657e+00 /) - kbo(:, 1,16,11) = (/ & - &5.9412e+04 ,4.4559e+04 ,2.9706e+04 ,1.4854e+04 ,4.9879e+00 /) - kbo(:, 2,16,11) = (/ & - &5.8737e+04 ,4.4053e+04 ,2.9369e+04 ,1.4685e+04 ,4.8952e+00 /) - kbo(:, 3,16,11) = (/ & - &5.7913e+04 ,4.3435e+04 ,2.8957e+04 ,1.4479e+04 ,4.7931e+00 /) - kbo(:, 4,16,11) = (/ & - &5.6912e+04 ,4.2684e+04 ,2.8456e+04 ,1.4229e+04 ,4.7058e+00 /) - kbo(:, 5,16,11) = (/ & - &5.5858e+04 ,4.1894e+04 ,2.7929e+04 ,1.3965e+04 ,4.5654e+00 /) - kbo(:, 1,17,11) = (/ & - &4.4739e+04 ,3.3554e+04 ,2.2370e+04 ,1.1185e+04 ,5.4258e+00 /) - kbo(:, 2,17,11) = (/ & - &4.4040e+04 ,3.3030e+04 ,2.2020e+04 ,1.1011e+04 ,5.3316e+00 /) - kbo(:, 3,17,11) = (/ & - &4.3278e+04 ,3.2459e+04 ,2.1639e+04 ,1.0820e+04 ,5.2258e+00 /) - kbo(:, 4,17,11) = (/ & - &4.2484e+04 ,3.1863e+04 ,2.1242e+04 ,1.0622e+04 ,5.1306e+00 /) - kbo(:, 5,17,11) = (/ & - &4.1610e+04 ,3.1208e+04 ,2.0805e+04 ,1.0403e+04 ,4.9611e+00 /) - kbo(:, 1,18,11) = (/ & - &3.3808e+04 ,2.5356e+04 ,1.6904e+04 ,8.4526e+03 ,5.9588e+00 /) - kbo(:, 2,18,11) = (/ & - &3.3205e+04 ,2.4904e+04 ,1.6603e+04 ,8.3019e+03 ,5.8553e+00 /) - kbo(:, 3,18,11) = (/ & - &3.2587e+04 ,2.4440e+04 ,1.6294e+04 ,8.1473e+03 ,5.7407e+00 /) - kbo(:, 4,18,11) = (/ & - &3.1890e+04 ,2.3917e+04 ,1.5945e+04 ,7.9729e+03 ,5.6396e+00 /) - kbo(:, 5,18,11) = (/ & - &3.1157e+04 ,2.3368e+04 ,1.5579e+04 ,7.7897e+03 ,5.4685e+00 /) - kbo(:, 1,19,11) = (/ & - &2.4641e+04 ,1.8481e+04 ,1.2321e+04 ,6.1608e+03 ,6.5634e+00 /) - kbo(:, 2,19,11) = (/ & - &2.4168e+04 ,1.8126e+04 ,1.2084e+04 ,6.0424e+03 ,6.4593e+00 /) - kbo(:, 3,19,11) = (/ & - &2.3646e+04 ,1.7735e+04 ,1.1823e+04 ,5.9120e+03 ,6.3292e+00 /) - kbo(:, 4,19,11) = (/ & - &2.3077e+04 ,1.7308e+04 ,1.1539e+04 ,5.7697e+03 ,6.2034e+00 /) - kbo(:, 5,19,11) = (/ & - &2.2489e+04 ,1.6867e+04 ,1.1245e+04 ,5.6226e+03 ,6.0369e+00 /) - kbo(:, 1,20,11) = (/ & - &1.9106e+04 ,1.4330e+04 ,9.5533e+03 ,4.7770e+03 ,7.1646e+00 /) - kbo(:, 2,20,11) = (/ & - &1.8682e+04 ,1.4011e+04 ,9.3411e+03 ,4.6709e+03 ,7.0409e+00 /) - kbo(:, 3,20,11) = (/ & - &1.8224e+04 ,1.3668e+04 ,9.1125e+03 ,4.5566e+03 ,6.8869e+00 /) - kbo(:, 4,20,11) = (/ & - &1.7734e+04 ,1.3300e+04 ,8.8671e+03 ,4.4339e+03 ,6.7557e+00 /) - kbo(:, 5,20,11) = (/ & - &1.7241e+04 ,1.2931e+04 ,8.6211e+03 ,4.3109e+03 ,6.6027e+00 /) - kbo(:, 1,21,11) = (/ & - &1.5039e+04 ,1.1280e+04 ,7.5200e+03 ,3.7604e+03 ,7.7170e+00 /) - kbo(:, 2,21,11) = (/ & - &1.4660e+04 ,1.0995e+04 ,7.3306e+03 ,3.6657e+03 ,7.5835e+00 /) - kbo(:, 3,21,11) = (/ & - &1.4253e+04 ,1.0690e+04 ,7.1270e+03 ,3.5639e+03 ,7.4413e+00 /) - kbo(:, 4,21,11) = (/ & - &1.3848e+04 ,1.0387e+04 ,6.9246e+03 ,3.4627e+03 ,7.3214e+00 /) - kbo(:, 5,21,11) = (/ & - &1.3474e+04 ,1.0106e+04 ,6.7374e+03 ,3.3691e+03 ,7.1721e+00 /) - kbo(:, 1,22,11) = (/ & - &1.1928e+04 ,8.9459e+03 ,5.9642e+03 ,2.9825e+03 ,8.2536e+00 /) - kbo(:, 2,22,11) = (/ & - &1.1588e+04 ,8.6914e+03 ,5.7946e+03 ,2.8977e+03 ,8.1353e+00 /) - kbo(:, 3,22,11) = (/ & - &1.1261e+04 ,8.4462e+03 ,5.6311e+03 ,2.8159e+03 ,8.0046e+00 /) - kbo(:, 4,22,11) = (/ & - &1.0981e+04 ,8.2362e+03 ,5.4911e+03 ,2.7459e+03 ,7.8868e+00 /) - kbo(:, 5,22,11) = (/ & - &1.0767e+04 ,8.0756e+03 ,5.3840e+03 ,2.6924e+03 ,7.7103e+00 /) - kbo(:, 1,23,11) = (/ & - &9.3738e+03 ,7.0305e+03 ,4.6873e+03 ,2.3441e+03 ,8.7957e+00 /) - kbo(:, 2,23,11) = (/ & - &9.1120e+03 ,6.8342e+03 ,4.5564e+03 ,2.2786e+03 ,8.6750e+00 /) - kbo(:, 3,23,11) = (/ & - &8.9119e+03 ,6.6842e+03 ,4.4564e+03 ,2.2286e+03 ,8.5667e+00 /) - kbo(:, 4,23,11) = (/ & - &8.7698e+03 ,6.5776e+03 ,4.3853e+03 ,2.1931e+03 ,8.4437e+00 /) - kbo(:, 5,23,11) = (/ & - &8.7064e+03 ,6.5300e+03 ,4.3536e+03 ,2.1772e+03 ,8.2499e+00 /) - kbo(:, 1,24,11) = (/ & - &7.2818e+03 ,5.4615e+03 ,3.6413e+03 ,1.8211e+03 ,9.3047e+00 /) - kbo(:, 2,24,11) = (/ & - &7.1398e+03 ,5.3551e+03 ,3.5703e+03 ,1.7856e+03 ,9.1844e+00 /) - kbo(:, 3,24,11) = (/ & - &7.0551e+03 ,5.2916e+03 ,3.5280e+03 ,1.7644e+03 ,9.0906e+00 /) - kbo(:, 4,24,11) = (/ & - &7.0561e+03 ,5.2923e+03 ,3.5284e+03 ,1.7646e+03 ,8.9639e+00 /) - kbo(:, 5,24,11) = (/ & - &7.1200e+03 ,5.3402e+03 ,3.5604e+03 ,1.7806e+03 ,8.7597e+00 /) - kbo(:, 1,25,11) = (/ & - &5.7829e+03 ,4.3374e+03 ,2.8918e+03 ,1.4463e+03 ,9.7531e+00 /) - kbo(:, 2,25,11) = (/ & - &5.7416e+03 ,4.3064e+03 ,2.8712e+03 ,1.4360e+03 ,9.6333e+00 /) - kbo(:, 3,25,11) = (/ & - &5.7703e+03 ,4.3279e+03 ,2.8855e+03 ,1.4432e+03 ,9.5575e+00 /) - kbo(:, 4,25,11) = (/ & - &5.8528e+03 ,4.3898e+03 ,2.9268e+03 ,1.4638e+03 ,9.4320e+00 /) - kbo(:, 5,25,11) = (/ & - &5.9946e+03 ,4.4961e+03 ,2.9977e+03 ,1.4993e+03 ,9.2048e+00 /) - kbo(:, 1,26,11) = (/ & - &4.7547e+03 ,3.5662e+03 ,2.3777e+03 ,1.1892e+03 ,1.0127e+01 /) - kbo(:, 2,26,11) = (/ & - &4.7969e+03 ,3.5979e+03 ,2.3989e+03 ,1.1999e+03 ,1.0014e+01 /) - kbo(:, 3,26,11) = (/ & - &4.8916e+03 ,3.6689e+03 ,2.4462e+03 ,1.2235e+03 ,9.9567e+00 /) - kbo(:, 4,26,11) = (/ & - &5.0339e+03 ,3.7756e+03 ,2.5174e+03 ,1.2591e+03 ,9.8430e+00 /) - kbo(:, 5,26,11) = (/ & - &5.1881e+03 ,3.8913e+03 ,2.5944e+03 ,1.2976e+03 ,9.5879e+00 /) - kbo(:, 1,27,11) = (/ & - &4.1434e+03 ,3.1078e+03 ,2.0721e+03 ,1.0365e+03 ,1.0438e+01 /) - kbo(:, 2,27,11) = (/ & - &4.2449e+03 ,3.1839e+03 ,2.1229e+03 ,1.0619e+03 ,1.0375e+01 /) - kbo(:, 3,27,11) = (/ & - &4.3814e+03 ,3.2863e+03 ,2.1911e+03 ,1.0960e+03 ,1.0314e+01 /) - kbo(:, 4,27,11) = (/ & - &4.5344e+03 ,3.4010e+03 ,2.2676e+03 ,1.1342e+03 ,1.0178e+01 /) - kbo(:, 5,27,11) = (/ & - &4.7035e+03 ,3.5278e+03 ,2.3521e+03 ,1.1764e+03 ,9.9184e+00 /) - kbo(:, 1,28,11) = (/ & - &3.7712e+03 ,2.8287e+03 ,1.8861e+03 ,9.4351e+02 ,1.0688e+01 /) - kbo(:, 2,28,11) = (/ & - &3.9032e+03 ,2.9276e+03 ,1.9520e+03 ,9.7644e+02 ,1.0679e+01 /) - kbo(:, 3,28,11) = (/ & - &4.0571e+03 ,3.0430e+03 ,2.0289e+03 ,1.0148e+03 ,1.0623e+01 /) - kbo(:, 4,28,11) = (/ & - &4.2272e+03 ,3.1706e+03 ,2.1139e+03 ,1.0573e+03 ,1.0454e+01 /) - kbo(:, 5,28,11) = (/ & - &4.4031e+03 ,3.3025e+03 ,2.2018e+03 ,1.1012e+03 ,1.0168e+01 /) - kbo(:, 1,29,11) = (/ & - &3.6879e+03 ,2.7661e+03 ,1.8444e+03 ,9.2260e+02 ,1.0914e+01 /) - kbo(:, 2,29,11) = (/ & - &3.8440e+03 ,2.8832e+03 ,1.9224e+03 ,9.6157e+02 ,1.0945e+01 /) - kbo(:, 3,29,11) = (/ & - &4.0134e+03 ,3.0102e+03 ,2.0070e+03 ,1.0038e+03 ,1.0853e+01 /) - kbo(:, 4,29,11) = (/ & - &4.1909e+03 ,3.1433e+03 ,2.0957e+03 ,1.0481e+03 ,1.0578e+01 /) - kbo(:, 5,29,11) = (/ & - &4.3726e+03 ,3.2796e+03 ,2.1866e+03 ,1.0936e+03 ,1.0403e+01 /) - kbo(:, 1,30,11) = (/ & - &3.7192e+03 ,2.7896e+03 ,1.8600e+03 ,9.3035e+02 ,1.1141e+01 /) - kbo(:, 2,30,11) = (/ & - &3.8944e+03 ,2.9210e+03 ,1.9475e+03 ,9.7411e+02 ,1.1139e+01 /) - kbo(:, 3,30,11) = (/ & - &4.0753e+03 ,3.0566e+03 ,2.0379e+03 ,1.0192e+03 ,1.0970e+01 /) - kbo(:, 4,30,11) = (/ & - &4.2621e+03 ,3.1967e+03 ,2.1313e+03 ,1.0660e+03 ,1.0736e+01 /) - kbo(:, 5,30,11) = (/ & - &4.4544e+03 ,3.3410e+03 ,2.2275e+03 ,1.1141e+03 ,1.0663e+01 /) - kbo(:, 1,31,11) = (/ & - &3.9494e+03 ,2.9622e+03 ,1.9750e+03 ,9.8786e+02 ,1.1309e+01 /) - kbo(:, 2,31,11) = (/ & - &4.1497e+03 ,3.1124e+03 ,2.0751e+03 ,1.0378e+03 ,1.1233e+01 /) - kbo(:, 3,31,11) = (/ & - &4.3564e+03 ,3.2674e+03 ,2.1785e+03 ,1.0895e+03 ,1.1031e+01 /) - kbo(:, 4,31,11) = (/ & - &4.5677e+03 ,3.4259e+03 ,2.2841e+03 ,1.1423e+03 ,1.1018e+01 /) - kbo(:, 5,31,11) = (/ & - &4.7823e+03 ,3.5869e+03 ,2.3915e+03 ,1.1960e+03 ,1.0922e+01 /) - kbo(:, 1,32,11) = (/ & - &4.2398e+03 ,3.1800e+03 ,2.1202e+03 ,1.0604e+03 ,1.1395e+01 /) - kbo(:, 2,32,11) = (/ & - &4.4759e+03 ,3.3571e+03 ,2.2382e+03 ,1.1194e+03 ,1.1282e+01 /) - kbo(:, 3,32,11) = (/ & - &4.7161e+03 ,3.5372e+03 ,2.3583e+03 ,1.1795e+03 ,1.1286e+01 /) - kbo(:, 4,32,11) = (/ & - &4.9603e+03 ,3.7204e+03 ,2.4805e+03 ,1.2406e+03 ,1.1267e+01 /) - kbo(:, 5,32,11) = (/ & - &5.2103e+03 ,3.9079e+03 ,2.6055e+03 ,1.3031e+03 ,1.1177e+01 /) - kbo(:, 1,33,11) = (/ & - &4.6404e+03 ,3.4804e+03 ,2.3205e+03 ,1.1605e+03 ,1.1433e+01 /) - kbo(:, 2,33,11) = (/ & - &4.9200e+03 ,3.6901e+03 ,2.4603e+03 ,1.2304e+03 ,1.1468e+01 /) - kbo(:, 3,33,11) = (/ & - &5.2076e+03 ,3.9059e+03 ,2.6041e+03 ,1.3024e+03 ,1.1541e+01 /) - kbo(:, 4,33,11) = (/ & - &5.4986e+03 ,4.1241e+03 ,2.7496e+03 ,1.3751e+03 ,1.1519e+01 /) - kbo(:, 5,33,11) = (/ & - &5.8045e+03 ,4.3535e+03 ,2.9026e+03 ,1.4516e+03 ,1.1398e+01 /) - kbo(:, 1,34,11) = (/ & - &4.9577e+03 ,3.7184e+03 ,2.4791e+03 ,1.2399e+03 ,1.1582e+01 /) - kbo(:, 2,34,11) = (/ & - &5.2771e+03 ,3.9580e+03 ,2.6389e+03 ,1.3198e+03 ,1.1708e+01 /) - kbo(:, 3,34,11) = (/ & - &5.6109e+03 ,4.2083e+03 ,2.8058e+03 ,1.4032e+03 ,1.1770e+01 /) - kbo(:, 4,34,11) = (/ & - &5.9588e+03 ,4.4693e+03 ,2.9798e+03 ,1.4902e+03 ,1.1629e+01 /) - kbo(:, 5,34,11) = (/ & - &6.3300e+03 ,4.7477e+03 ,3.1654e+03 ,1.5830e+03 ,1.1520e+01 /) - kbo(:, 1,35,11) = (/ & - &5.2909e+03 ,3.9683e+03 ,2.6458e+03 ,1.3232e+03 ,1.1741e+01 /) - kbo(:, 2,35,11) = (/ & - &5.6548e+03 ,4.2413e+03 ,2.8277e+03 ,1.4142e+03 ,1.1903e+01 /) - kbo(:, 3,35,11) = (/ & - &6.0420e+03 ,4.5317e+03 ,3.0214e+03 ,1.5110e+03 ,1.1866e+01 /) - kbo(:, 4,35,11) = (/ & - &6.4601e+03 ,4.8453e+03 ,3.2304e+03 ,1.6156e+03 ,1.1803e+01 /) - kbo(:, 5,35,11) = (/ & - &6.9268e+03 ,5.1953e+03 ,3.4637e+03 ,1.7322e+03 ,1.1652e+01 /) - kbo(:, 1,36,11) = (/ & - &5.5884e+03 ,4.1915e+03 ,2.7945e+03 ,1.3976e+03 ,1.1878e+01 /) - kbo(:, 2,36,11) = (/ & - &6.0018e+03 ,4.5015e+03 ,3.0012e+03 ,1.5010e+03 ,1.2049e+01 /) - kbo(:, 3,36,11) = (/ & - &6.4517e+03 ,4.8389e+03 ,3.2262e+03 ,1.6135e+03 ,1.1951e+01 /) - kbo(:, 4,36,11) = (/ & - &6.9515e+03 ,5.2138e+03 ,3.4761e+03 ,1.7384e+03 ,1.1938e+01 /) - kbo(:, 5,36,11) = (/ & - &7.5289e+03 ,5.6469e+03 ,3.7648e+03 ,1.8827e+03 ,1.1892e+01 /) - kbo(:, 1,37,11) = (/ & - &5.7114e+03 ,4.2838e+03 ,2.8561e+03 ,1.4284e+03 ,1.1983e+01 /) - kbo(:, 2,37,11) = (/ & - &6.1629e+03 ,4.6224e+03 ,3.0818e+03 ,1.5413e+03 ,1.2105e+01 /) - kbo(:, 3,37,11) = (/ & - &6.6668e+03 ,5.0003e+03 ,3.3338e+03 ,1.6673e+03 ,1.2063e+01 /) - kbo(:, 4,37,11) = (/ & - &7.2441e+03 ,5.4333e+03 ,3.6224e+03 ,1.8115e+03 ,1.2103e+01 /) - kbo(:, 5,37,11) = (/ & - &7.9256e+03 ,5.9443e+03 ,3.9631e+03 ,1.9819e+03 ,1.2052e+01 /) - kbo(:, 1,38,11) = (/ & - &5.9457e+03 ,4.4595e+03 ,2.9732e+03 ,1.4870e+03 ,1.2040e+01 /) - kbo(:, 2,38,11) = (/ & - &6.4404e+03 ,4.8305e+03 ,3.2206e+03 ,1.6107e+03 ,1.2135e+01 /) - kbo(:, 3,38,11) = (/ & - &7.0103e+03 ,5.2579e+03 ,3.5055e+03 ,1.7531e+03 ,1.2201e+01 /) - kbo(:, 4,38,11) = (/ & - &7.6883e+03 ,5.7664e+03 ,3.8444e+03 ,1.9225e+03 ,1.2264e+01 /) - kbo(:, 5,38,11) = (/ & - &8.5003e+03 ,6.3754e+03 ,4.2504e+03 ,2.1255e+03 ,1.2214e+01 /) - kbo(:, 1,39,11) = (/ & - &6.3574e+03 ,4.7683e+03 ,3.1792e+03 ,1.5900e+03 ,1.2058e+01 /) - kbo(:, 2,39,11) = (/ & - &6.9172e+03 ,5.1882e+03 ,3.4591e+03 ,1.7299e+03 ,1.2221e+01 /) - kbo(:, 3,39,11) = (/ & - &7.5768e+03 ,5.6828e+03 ,3.7888e+03 ,1.8948e+03 ,1.2385e+01 /) - kbo(:, 4,39,11) = (/ & - &8.3852e+03 ,6.2891e+03 ,4.1930e+03 ,2.0968e+03 ,1.2417e+01 /) - kbo(:, 5,39,11) = (/ & - &9.3744e+03 ,7.0310e+03 ,4.6875e+03 ,2.3441e+03 ,1.2400e+01 /) - kbo(:, 1,40,11) = (/ & - &6.3544e+03 ,4.7660e+03 ,3.1776e+03 ,1.5893e+03 ,1.2034e+01 /) - kbo(:, 2,40,11) = (/ & - &6.9547e+03 ,5.2162e+03 ,3.4777e+03 ,1.7393e+03 ,1.2252e+01 /) - kbo(:, 3,40,11) = (/ & - &7.6538e+03 ,5.7405e+03 ,3.8272e+03 ,1.9140e+03 ,1.2461e+01 /) - kbo(:, 4,40,11) = (/ & - &8.5373e+03 ,6.4031e+03 ,4.2689e+03 ,2.1348e+03 ,1.2533e+01 /) - kbo(:, 5,40,11) = (/ & - &9.6388e+03 ,7.2292e+03 ,4.8196e+03 ,2.4101e+03 ,1.2526e+01 /) - kbo(:, 1,41,11) = (/ & - &6.3521e+03 ,4.7643e+03 ,3.1765e+03 ,1.5887e+03 ,1.1995e+01 /) - kbo(:, 2,41,11) = (/ & - &6.9920e+03 ,5.2442e+03 ,3.4964e+03 ,1.7486e+03 ,1.2280e+01 /) - kbo(:, 3,41,11) = (/ & - &7.7375e+03 ,5.8033e+03 ,3.8691e+03 ,1.9349e+03 ,1.2499e+01 /) - kbo(:, 4,41,11) = (/ & - &8.6900e+03 ,6.5177e+03 ,4.3453e+03 ,2.1730e+03 ,1.2628e+01 /) - kbo(:, 5,41,11) = (/ & - &9.9008e+03 ,7.4257e+03 ,4.9507e+03 ,2.4756e+03 ,1.2622e+01 /) - kbo(:, 1,42,11) = (/ & - &6.4377e+03 ,4.8285e+03 ,3.2193e+03 ,1.6101e+03 ,1.1943e+01 /) - kbo(:, 2,42,11) = (/ & - &7.1284e+03 ,5.3465e+03 ,3.5646e+03 ,1.7827e+03 ,1.2311e+01 /) - kbo(:, 3,42,11) = (/ & - &7.9472e+03 ,5.9606e+03 ,3.9739e+03 ,1.9873e+03 ,1.2580e+01 /) - kbo(:, 4,42,11) = (/ & - &8.9767e+03 ,6.7326e+03 ,4.4886e+03 ,2.2446e+03 ,1.2710e+01 /) - kbo(:, 5,42,11) = (/ & - &1.0302e+04 ,7.7266e+03 ,5.1512e+03 ,2.5758e+03 ,1.2734e+01 /) - kbo(:, 1,43,11) = (/ & - &6.5684e+03 ,4.9266e+03 ,3.2847e+03 ,1.6428e+03 ,1.1839e+01 /) - kbo(:, 2,43,11) = (/ & - &7.3100e+03 ,5.4827e+03 ,3.6554e+03 ,1.8281e+03 ,1.2298e+01 /) - kbo(:, 3,43,11) = (/ & - &8.2069e+03 ,6.1553e+03 ,4.1038e+03 ,2.0523e+03 ,1.2585e+01 /) - kbo(:, 4,43,11) = (/ & - &9.3215e+03 ,6.9913e+03 ,4.6611e+03 ,2.3308e+03 ,1.2796e+01 /) - kbo(:, 5,43,11) = (/ & - &1.0756e+04 ,8.0671e+03 ,5.3782e+03 ,2.6894e+03 ,1.2802e+01 /) - kbo(:, 1,44,11) = (/ & - &6.7770e+03 ,5.0829e+03 ,3.3889e+03 ,1.6949e+03 ,1.1696e+01 /) - kbo(:, 2,44,11) = (/ & - &7.6014e+03 ,5.7012e+03 ,3.8011e+03 ,1.9009e+03 ,1.2235e+01 /) - kbo(:, 3,44,11) = (/ & - &8.5905e+03 ,6.4430e+03 ,4.2955e+03 ,2.1481e+03 ,1.2598e+01 /) - kbo(:, 4,44,11) = (/ & - &9.8167e+03 ,7.3626e+03 ,4.9086e+03 ,2.4546e+03 ,1.2843e+01 /) - kbo(:, 5,44,11) = (/ & - &1.1370e+04 ,8.5274e+03 ,5.6850e+03 ,2.8427e+03 ,1.2862e+01 /) - kbo(:, 1,45,11) = (/ & - &7.1337e+03 ,5.3505e+03 ,3.5673e+03 ,1.7841e+03 ,1.1553e+01 /) - kbo(:, 2,45,11) = (/ & - &8.0813e+03 ,6.0612e+03 ,4.0411e+03 ,2.0209e+03 ,1.2213e+01 /) - kbo(:, 3,45,11) = (/ & - &9.1915e+03 ,6.8938e+03 ,4.5961e+03 ,2.2984e+03 ,1.2577e+01 /) - kbo(:, 4,45,11) = (/ & - &1.0572e+04 ,7.9290e+03 ,5.2862e+03 ,2.6434e+03 ,1.2862e+01 /) - kbo(:, 5,45,11) = (/ & - &1.2294e+04 ,9.2203e+03 ,6.1470e+03 ,3.0738e+03 ,1.2905e+01 /) - kbo(:, 1,46,11) = (/ & - &7.5574e+03 ,5.6683e+03 ,3.7792e+03 ,1.8901e+03 ,1.1372e+01 /) - kbo(:, 2,46,11) = (/ & - &8.6566e+03 ,6.4927e+03 ,4.3287e+03 ,2.1648e+03 ,1.2098e+01 /) - kbo(:, 3,46,11) = (/ & - &9.9311e+03 ,7.4485e+03 ,4.9659e+03 ,2.4833e+03 ,1.2508e+01 /) - kbo(:, 4,46,11) = (/ & - &1.1483e+04 ,8.6121e+03 ,5.7416e+03 ,2.8711e+03 ,1.2889e+01 /) - kbo(:, 5,46,11) = (/ & - &1.3417e+04 ,1.0063e+04 ,6.7088e+03 ,3.3546e+03 ,1.2962e+01 /) - kbo(:, 1,47,11) = (/ & - &7.8727e+03 ,5.9048e+03 ,3.9368e+03 ,1.9689e+03 ,1.1120e+01 /) - kbo(:, 2,47,11) = (/ & - &9.1356e+03 ,6.8519e+03 ,4.5682e+03 ,2.2845e+03 ,1.1918e+01 /) - kbo(:, 3,47,11) = (/ & - &1.0582e+04 ,7.9368e+03 ,5.2914e+03 ,2.6461e+03 ,1.2406e+01 /) - kbo(:, 4,47,11) = (/ & - &1.2301e+04 ,9.2260e+03 ,6.1509e+03 ,3.0757e+03 ,1.2816e+01 /) - kbo(:, 5,47,11) = (/ & - &1.4433e+04 ,1.0825e+04 ,7.2167e+03 ,3.6086e+03 ,1.2983e+01 /) - kbo(:, 1,48,11) = (/ & - &8.4035e+03 ,6.3029e+03 ,4.2022e+03 ,2.1016e+03 ,1.0897e+01 /) - kbo(:, 2,48,11) = (/ & - &9.8931e+03 ,7.4200e+03 ,4.9470e+03 ,2.4739e+03 ,1.1706e+01 /) - kbo(:, 3,48,11) = (/ & - &1.1589e+04 ,8.6922e+03 ,5.7950e+03 ,2.8979e+03 ,1.2313e+01 /) - kbo(:, 4,48,11) = (/ & - &1.3567e+04 ,1.0175e+04 ,6.7839e+03 ,3.3922e+03 ,1.2741e+01 /) - kbo(:, 5,48,11) = (/ & - &1.5977e+04 ,1.1983e+04 ,7.9888e+03 ,3.9947e+03 ,1.2994e+01 /) - kbo(:, 1,49,11) = (/ & - &9.3222e+03 ,6.9919e+03 ,4.6615e+03 ,2.3312e+03 ,1.0633e+01 /) - kbo(:, 2,49,11) = (/ & - &1.1123e+04 ,8.3424e+03 ,5.5619e+03 ,2.7813e+03 ,1.1478e+01 /) - kbo(:, 3,49,11) = (/ & - &1.3212e+04 ,9.9089e+03 ,6.6061e+03 ,3.3034e+03 ,1.2190e+01 /) - kbo(:, 4,49,11) = (/ & - &1.5603e+04 ,1.1702e+04 ,7.8017e+03 ,3.9011e+03 ,1.2697e+01 /) - kbo(:, 5,49,11) = (/ & - &1.8442e+04 ,1.3832e+04 ,9.2215e+03 ,4.6110e+03 ,1.3027e+01 /) - kbo(:, 1,50,11) = (/ & - &9.8729e+03 ,7.4049e+03 ,4.9369e+03 ,2.4688e+03 ,1.0346e+01 /) - kbo(:, 2,50,11) = (/ & - &1.1927e+04 ,8.9452e+03 ,5.9637e+03 ,2.9822e+03 ,1.1213e+01 /) - kbo(:, 3,50,11) = (/ & - &1.4376e+04 ,1.0782e+04 ,7.1884e+03 ,3.5945e+03 ,1.2042e+01 /) - kbo(:, 4,50,11) = (/ & - &1.7156e+04 ,1.2867e+04 ,8.5782e+03 ,4.2894e+03 ,1.2592e+01 /) - kbo(:, 5,50,11) = (/ & - &2.0387e+04 ,1.5290e+04 ,1.0194e+04 ,5.0970e+03 ,1.3035e+01 /) - kbo(:, 1,51,11) = (/ & - &1.0246e+04 ,7.6846e+03 ,5.1234e+03 ,2.5621e+03 ,1.0080e+01 /) - kbo(:, 2,51,11) = (/ & - &1.2504e+04 ,9.3781e+03 ,6.2523e+03 ,3.1265e+03 ,1.0959e+01 /) - kbo(:, 3,51,11) = (/ & - &1.5294e+04 ,1.1471e+04 ,7.6476e+03 ,3.8241e+03 ,1.1913e+01 /) - kbo(:, 4,51,11) = (/ & - &1.8483e+04 ,1.3863e+04 ,9.2420e+03 ,4.6213e+03 ,1.2523e+01 /) - kbo(:, 5,51,11) = (/ & - &2.2103e+04 ,1.6577e+04 ,1.1052e+04 ,5.5261e+03 ,1.3008e+01 /) - kbo(:, 1,52,11) = (/ & - &1.0919e+04 ,8.1898e+03 ,5.4601e+03 ,2.7304e+03 ,9.7365e+00 /) - kbo(:, 2,52,11) = (/ & - &1.3474e+04 ,1.0106e+04 ,6.7375e+03 ,3.3691e+03 ,1.0715e+01 /) - kbo(:, 3,52,11) = (/ & - &1.6692e+04 ,1.2519e+04 ,8.3465e+03 ,4.1736e+03 ,1.1714e+01 /) - kbo(:, 4,52,11) = (/ & - &2.0445e+04 ,1.5334e+04 ,1.0223e+04 ,5.1117e+03 ,1.2415e+01 /) - kbo(:, 5,52,11) = (/ & - &2.4642e+04 ,1.8481e+04 ,1.2321e+04 ,6.1608e+03 ,1.2964e+01 /) - kbo(:, 1,53,11) = (/ & - &1.2096e+04 ,9.0720e+03 ,6.0483e+03 ,3.0245e+03 ,9.3807e+00 /) - kbo(:, 2,53,11) = (/ & - &1.5115e+04 ,1.1337e+04 ,7.5582e+03 ,3.7794e+03 ,1.0467e+01 /) - kbo(:, 3,53,11) = (/ & - &1.8931e+04 ,1.4199e+04 ,9.4661e+03 ,4.7334e+03 ,1.1520e+01 /) - kbo(:, 4,53,11) = (/ & - &2.3491e+04 ,1.7618e+04 ,1.1746e+04 ,5.8732e+03 ,1.2292e+01 /) - kbo(:, 5,53,11) = (/ & - &2.8602e+04 ,2.1452e+04 ,1.4301e+04 ,7.1510e+03 ,1.2913e+01 /) - kbo(:, 1,54,11) = (/ & - &1.1628e+04 ,8.7215e+03 ,5.8146e+03 ,2.9077e+03 ,8.9653e+00 /) - kbo(:, 2,54,11) = (/ & - &1.4721e+04 ,1.1041e+04 ,7.3608e+03 ,3.6808e+03 ,1.0130e+01 /) - kbo(:, 3,54,11) = (/ & - &1.8638e+04 ,1.3979e+04 ,9.3193e+03 ,4.6600e+03 ,1.1195e+01 /) - kbo(:, 4,54,11) = (/ & - &2.3417e+04 ,1.7563e+04 ,1.1709e+04 ,5.8547e+03 ,1.2060e+01 /) - kbo(:, 5,54,11) = (/ & - &2.8828e+04 ,2.1621e+04 ,1.4414e+04 ,7.2075e+03 ,1.2739e+01 /) - kbo(:, 1,55,11) = (/ & - &1.0209e+04 ,7.6567e+03 ,5.1047e+03 ,2.5527e+03 ,8.5323e+00 /) - kbo(:, 2,55,11) = (/ & - &1.3095e+04 ,9.8211e+03 ,6.5477e+03 ,3.2742e+03 ,9.7667e+00 /) - kbo(:, 3,55,11) = (/ & - &1.6780e+04 ,1.2585e+04 ,8.3901e+03 ,4.1954e+03 ,1.0760e+01 /) - kbo(:, 4,55,11) = (/ & - &2.1308e+04 ,1.5981e+04 ,1.0654e+04 ,5.3275e+03 ,1.1787e+01 /) - kbo(:, 5,55,11) = (/ & - &2.6526e+04 ,1.9895e+04 ,1.3264e+04 ,6.6321e+03 ,1.2490e+01 /) - kbo(:, 1,56,11) = (/ & - &8.9242e+03 ,6.6933e+03 ,4.4624e+03 ,2.2315e+03 ,8.1192e+00 /) - kbo(:, 2,56,11) = (/ & - &1.1623e+04 ,8.7170e+03 ,5.8115e+03 ,2.9061e+03 ,9.3346e+00 /) - kbo(:, 3,56,11) = (/ & - &1.5096e+04 ,1.1322e+04 ,7.5482e+03 ,3.7744e+03 ,1.0408e+01 /) - kbo(:, 4,56,11) = (/ & - &1.9354e+04 ,1.4515e+04 ,9.6771e+03 ,4.8388e+03 ,1.1396e+01 /) - kbo(:, 5,56,11) = (/ & - &2.4338e+04 ,1.8253e+04 ,1.2169e+04 ,6.0847e+03 ,1.2212e+01 /) - kbo(:, 1,57,11) = (/ & - &7.7622e+03 ,5.8218e+03 ,3.8814e+03 ,1.9410e+03 ,7.7106e+00 /) - kbo(:, 2,57,11) = (/ & - &1.0290e+04 ,7.7178e+03 ,5.1454e+03 ,2.5730e+03 ,8.9363e+00 /) - kbo(:, 3,57,11) = (/ & - &1.3552e+04 ,1.0164e+04 ,6.7760e+03 ,3.3882e+03 ,1.0051e+01 /) - kbo(:, 4,57,11) = (/ & - &1.7543e+04 ,1.3157e+04 ,8.7715e+03 ,4.3860e+03 ,1.0990e+01 /) - kbo(:, 5,57,11) = (/ & - &2.2284e+04 ,1.6713e+04 ,1.1142e+04 ,5.5714e+03 ,1.1934e+01 /) - kbo(:, 1,58,11) = (/ & - &1.7767e+03 ,1.6290e+03 ,1.3968e+03 ,9.7855e+02 ,7.2858e+00 /) - kbo(:, 2,58,11) = (/ & - &2.4068e+03 ,2.2067e+03 ,1.8922e+03 ,1.3254e+03 ,8.5609e+00 /) - kbo(:, 3,58,11) = (/ & - &3.2122e+03 ,2.9452e+03 ,2.5253e+03 ,1.7688e+03 ,9.6597e+00 /) - kbo(:, 4,58,11) = (/ & - &4.2027e+03 ,3.8533e+03 ,3.3039e+03 ,2.3142e+03 ,1.0637e+01 /) - kbo(:, 5,58,11) = (/ & - &5.3882e+03 ,4.9402e+03 ,4.2359e+03 ,2.9669e+03 ,1.1542e+01 /) - kbo(:, 1,59,11) = (/ & - &1.9233e+03 ,1.6794e+03 ,1.3397e+03 ,8.3393e+02 ,7.1275e+00 /) - kbo(:, 2,59,11) = (/ & - &2.6585e+03 ,2.3214e+03 ,1.8518e+03 ,1.1525e+03 ,8.4302e+00 /) - kbo(:, 3,59,11) = (/ & - &3.5898e+03 ,3.1345e+03 ,2.5004e+03 ,1.5561e+03 ,9.5360e+00 /) - kbo(:, 4,59,11) = (/ & - &4.7292e+03 ,4.1294e+03 ,3.2940e+03 ,2.0499e+03 ,1.0472e+01 /) - kbo(:, 5,59,11) = (/ & - &6.0902e+03 ,5.3178e+03 ,4.2419e+03 ,2.6398e+03 ,1.1150e+01 /) - kbo(:, 1,13,12) = (/ & - &2.7240e+05 ,2.0430e+05 ,1.3620e+05 ,6.8101e+04 ,4.4161e+00 /) - kbo(:, 2,13,12) = (/ & - &2.7176e+05 ,2.0382e+05 ,1.3588e+05 ,6.7942e+04 ,4.2840e+00 /) - kbo(:, 3,13,12) = (/ & - &2.7001e+05 ,2.0251e+05 ,1.3501e+05 ,6.7503e+04 ,4.1173e+00 /) - kbo(:, 4,13,12) = (/ & - &2.6763e+05 ,2.0073e+05 ,1.3382e+05 ,6.6909e+04 ,3.9336e+00 /) - kbo(:, 5,13,12) = (/ & - &2.6442e+05 ,1.9831e+05 ,1.3221e+05 ,6.6105e+04 ,3.6961e+00 /) - kbo(:, 1,14,12) = (/ & - &1.8113e+05 ,1.3585e+05 ,9.0565e+04 ,4.5283e+04 ,4.8454e+00 /) - kbo(:, 2,14,12) = (/ & - &1.8030e+05 ,1.3523e+05 ,9.0150e+04 ,4.5075e+04 ,4.6873e+00 /) - kbo(:, 3,14,12) = (/ & - &1.7856e+05 ,1.3392e+05 ,8.9279e+04 ,4.4640e+04 ,4.6210e+00 /) - kbo(:, 4,14,12) = (/ & - &1.7661e+05 ,1.3246e+05 ,8.8303e+04 ,4.4152e+04 ,4.4506e+00 /) - kbo(:, 5,14,12) = (/ & - &1.7414e+05 ,1.3060e+05 ,8.7069e+04 ,4.3535e+04 ,4.3231e+00 /) - kbo(:, 1,15,12) = (/ & - &1.2085e+05 ,9.0635e+04 ,6.0424e+04 ,3.0213e+04 ,5.3476e+00 /) - kbo(:, 2,15,12) = (/ & - &1.1987e+05 ,8.9903e+04 ,5.9936e+04 ,2.9969e+04 ,5.2285e+00 /) - kbo(:, 3,15,12) = (/ & - &1.1863e+05 ,8.8976e+04 ,5.9318e+04 ,2.9660e+04 ,5.0918e+00 /) - kbo(:, 4,15,12) = (/ & - &1.1686e+05 ,8.7649e+04 ,5.8433e+04 ,2.9217e+04 ,4.9903e+00 /) - kbo(:, 5,15,12) = (/ & - &1.1485e+05 ,8.6139e+04 ,5.7427e+04 ,2.8714e+04 ,4.7856e+00 /) - kbo(:, 1,16,12) = (/ & - &9.4371e+04 ,7.0779e+04 ,4.7186e+04 ,2.3593e+04 ,5.9193e+00 /) - kbo(:, 2,16,12) = (/ & - &9.3237e+04 ,6.9928e+04 ,4.6619e+04 ,2.3310e+04 ,5.7778e+00 /) - kbo(:, 3,16,12) = (/ & - &9.1868e+04 ,6.8901e+04 ,4.5935e+04 ,2.2968e+04 ,5.6214e+00 /) - kbo(:, 4,16,12) = (/ & - &9.0372e+04 ,6.7780e+04 ,4.5187e+04 ,2.2594e+04 ,5.5103e+00 /) - kbo(:, 5,16,12) = (/ & - &8.8699e+04 ,6.6525e+04 ,4.4350e+04 ,2.2176e+04 ,5.3472e+00 /) - kbo(:, 1,17,12) = (/ & - &7.4737e+04 ,5.6053e+04 ,3.7369e+04 ,1.8685e+04 ,6.5296e+00 /) - kbo(:, 2,17,12) = (/ & - &7.3678e+04 ,5.5259e+04 ,3.6840e+04 ,1.8420e+04 ,6.3899e+00 /) - kbo(:, 3,17,12) = (/ & - &7.2463e+04 ,5.4347e+04 ,3.6232e+04 ,1.8116e+04 ,6.2234e+00 /) - kbo(:, 4,17,12) = (/ & - &7.1178e+04 ,5.3383e+04 ,3.5589e+04 ,1.7795e+04 ,6.1262e+00 /) - kbo(:, 5,17,12) = (/ & - &6.9846e+04 ,5.2385e+04 ,3.4923e+04 ,1.7462e+04 ,6.0038e+00 /) - kbo(:, 1,18,12) = (/ & - &5.9561e+04 ,4.4671e+04 ,2.9781e+04 ,1.4891e+04 ,7.2106e+00 /) - kbo(:, 2,18,12) = (/ & - &5.8573e+04 ,4.3930e+04 ,2.9287e+04 ,1.4644e+04 ,7.0772e+00 /) - kbo(:, 3,18,12) = (/ & - &5.7514e+04 ,4.3136e+04 ,2.8757e+04 ,1.4379e+04 ,6.9067e+00 /) - kbo(:, 4,18,12) = (/ & - &5.6474e+04 ,4.2356e+04 ,2.8238e+04 ,1.4119e+04 ,6.7942e+00 /) - kbo(:, 5,18,12) = (/ & - &5.5403e+04 ,4.1552e+04 ,2.7702e+04 ,1.3851e+04 ,6.6477e+00 /) - kbo(:, 1,19,12) = (/ & - &4.5689e+04 ,3.4267e+04 ,2.2845e+04 ,1.1423e+04 ,7.9750e+00 /) - kbo(:, 2,19,12) = (/ & - &4.4876e+04 ,3.3657e+04 ,2.2438e+04 ,1.1220e+04 ,7.8278e+00 /) - kbo(:, 3,19,12) = (/ & - &4.4040e+04 ,3.3030e+04 ,2.2021e+04 ,1.1011e+04 ,7.6237e+00 /) - kbo(:, 4,19,12) = (/ & - &4.3227e+04 ,3.2420e+04 ,2.1614e+04 ,1.0807e+04 ,7.5070e+00 /) - kbo(:, 5,19,12) = (/ & - &4.2374e+04 ,3.1781e+04 ,2.1187e+04 ,1.0594e+04 ,7.3430e+00 /) - kbo(:, 1,20,12) = (/ & - &3.7246e+04 ,2.7935e+04 ,1.8623e+04 ,9.3122e+03 ,8.8153e+00 /) - kbo(:, 2,20,12) = (/ & - &3.6550e+04 ,2.7413e+04 ,1.8276e+04 ,9.1383e+03 ,8.6532e+00 /) - kbo(:, 3,20,12) = (/ & - &3.5840e+04 ,2.6880e+04 ,1.7920e+04 ,8.9607e+03 ,8.4391e+00 /) - kbo(:, 4,20,12) = (/ & - &3.5149e+04 ,2.6362e+04 ,1.7575e+04 ,8.7878e+03 ,8.2995e+00 /) - kbo(:, 5,20,12) = (/ & - &3.4405e+04 ,2.5804e+04 ,1.7203e+04 ,8.6018e+03 ,8.1167e+00 /) - kbo(:, 1,21,12) = (/ & - &3.0709e+04 ,2.3032e+04 ,1.5355e+04 ,7.6780e+03 ,9.7372e+00 /) - kbo(:, 2,21,12) = (/ & - &3.0108e+04 ,2.2581e+04 ,1.5055e+04 ,7.5277e+03 ,9.5645e+00 /) - kbo(:, 3,21,12) = (/ & - &2.9509e+04 ,2.2132e+04 ,1.4755e+04 ,7.3780e+03 ,9.3267e+00 /) - kbo(:, 4,21,12) = (/ & - &2.8892e+04 ,2.1670e+04 ,1.4447e+04 ,7.2238e+03 ,9.1690e+00 /) - kbo(:, 5,21,12) = (/ & - &2.8241e+04 ,2.1181e+04 ,1.4121e+04 ,7.0607e+03 ,8.9671e+00 /) - kbo(:, 1,22,12) = (/ & - &2.5484e+04 ,1.9113e+04 ,1.2742e+04 ,6.3717e+03 ,1.0681e+01 /) - kbo(:, 2,22,12) = (/ & - &2.4964e+04 ,1.8723e+04 ,1.2483e+04 ,6.2417e+03 ,1.0497e+01 /) - kbo(:, 3,22,12) = (/ & - &2.4423e+04 ,1.8317e+04 ,1.2212e+04 ,6.1064e+03 ,1.0234e+01 /) - kbo(:, 4,22,12) = (/ & - &2.3869e+04 ,1.7902e+04 ,1.1935e+04 ,5.9678e+03 ,1.0059e+01 /) - kbo(:, 5,22,12) = (/ & - &2.3286e+04 ,1.7465e+04 ,1.1643e+04 ,5.8221e+03 ,9.8315e+00 /) - kbo(:, 1,23,12) = (/ & - &2.0918e+04 ,1.5688e+04 ,1.0459e+04 ,5.2302e+03 ,1.1614e+01 /) - kbo(:, 2,23,12) = (/ & - &2.0451e+04 ,1.5339e+04 ,1.0226e+04 ,5.1135e+03 ,1.1417e+01 /) - kbo(:, 3,23,12) = (/ & - &1.9969e+04 ,1.4977e+04 ,9.9848e+03 ,4.9928e+03 ,1.1125e+01 /) - kbo(:, 4,23,12) = (/ & - &1.9481e+04 ,1.4611e+04 ,9.7407e+03 ,4.8708e+03 ,1.0942e+01 /) - kbo(:, 5,23,12) = (/ & - &1.8998e+04 ,1.4249e+04 ,9.4994e+03 ,4.7501e+03 ,1.0699e+01 /) - kbo(:, 1,24,12) = (/ & - &1.6828e+04 ,1.2621e+04 ,8.4145e+03 ,4.2078e+03 ,1.2522e+01 /) - kbo(:, 2,24,12) = (/ & - &1.6415e+04 ,1.2311e+04 ,8.2079e+03 ,4.1044e+03 ,1.2299e+01 /) - kbo(:, 3,24,12) = (/ & - &1.6005e+04 ,1.2004e+04 ,8.0027e+03 ,4.0018e+03 ,1.2004e+01 /) - kbo(:, 4,24,12) = (/ & - &1.5632e+04 ,1.1724e+04 ,7.8164e+03 ,3.9086e+03 ,1.1796e+01 /) - kbo(:, 5,24,12) = (/ & - &1.5350e+04 ,1.1513e+04 ,7.6755e+03 ,3.8381e+03 ,1.1532e+01 /) - kbo(:, 1,25,12) = (/ & - &1.3517e+04 ,1.0138e+04 ,6.7590e+03 ,3.3800e+03 ,1.3378e+01 /) - kbo(:, 2,25,12) = (/ & - &1.3176e+04 ,9.8826e+03 ,6.5887e+03 ,3.2948e+03 ,1.3150e+01 /) - kbo(:, 3,25,12) = (/ & - &1.2900e+04 ,9.6753e+03 ,6.4505e+03 ,3.2257e+03 ,1.2858e+01 /) - kbo(:, 4,25,12) = (/ & - &1.2719e+04 ,9.5392e+03 ,6.3597e+03 ,3.1803e+03 ,1.2628e+01 /) - kbo(:, 5,25,12) = (/ & - &1.2623e+04 ,9.4672e+03 ,6.3117e+03 ,3.1562e+03 ,1.2342e+01 /) - kbo(:, 1,26,12) = (/ & - &1.0917e+04 ,8.1877e+03 ,5.4588e+03 ,2.7299e+03 ,1.4213e+01 /) - kbo(:, 2,26,12) = (/ & - &1.0711e+04 ,8.0332e+03 ,5.3557e+03 ,2.6783e+03 ,1.3979e+01 /) - kbo(:, 3,26,12) = (/ & - &1.0602e+04 ,7.9514e+03 ,5.3012e+03 ,2.6510e+03 ,1.3677e+01 /) - kbo(:, 4,26,12) = (/ & - &1.0604e+04 ,7.9535e+03 ,5.3026e+03 ,2.6517e+03 ,1.3410e+01 /) - kbo(:, 5,26,12) = (/ & - &1.0730e+04 ,8.0477e+03 ,5.3654e+03 ,2.6831e+03 ,1.3099e+01 /) - kbo(:, 1,27,12) = (/ & - &9.1749e+03 ,6.8814e+03 ,4.5879e+03 ,2.2944e+03 ,1.5000e+01 /) - kbo(:, 2,27,12) = (/ & - &9.1157e+03 ,6.8370e+03 ,4.5583e+03 ,2.2796e+03 ,1.4706e+01 /) - kbo(:, 3,27,12) = (/ & - &9.1873e+03 ,6.8907e+03 ,4.5941e+03 ,2.2975e+03 ,1.4431e+01 /) - kbo(:, 4,27,12) = (/ & - &9.3840e+03 ,7.0382e+03 ,4.6924e+03 ,2.3467e+03 ,1.4137e+01 /) - kbo(:, 5,27,12) = (/ & - &9.6488e+03 ,7.2368e+03 ,4.8249e+03 ,2.4129e+03 ,1.3775e+01 /) - kbo(:, 1,28,12) = (/ & - &8.0307e+03 ,6.0232e+03 ,4.0158e+03 ,2.0083e+03 ,1.5711e+01 /) - kbo(:, 2,28,12) = (/ & - &8.1446e+03 ,6.1087e+03 ,4.0727e+03 ,2.0368e+03 ,1.5384e+01 /) - kbo(:, 3,28,12) = (/ & - &8.3784e+03 ,6.2841e+03 ,4.1897e+03 ,2.0953e+03 ,1.5123e+01 /) - kbo(:, 4,28,12) = (/ & - &8.6648e+03 ,6.4989e+03 ,4.3329e+03 ,2.1669e+03 ,1.4791e+01 /) - kbo(:, 5,28,12) = (/ & - &9.0065e+03 ,6.7551e+03 ,4.5037e+03 ,2.2523e+03 ,1.4343e+01 /) - kbo(:, 1,29,12) = (/ & - &7.6471e+03 ,5.7356e+03 ,3.8240e+03 ,1.9124e+03 ,1.6341e+01 /) - kbo(:, 2,29,12) = (/ & - &7.9071e+03 ,5.9306e+03 ,3.9540e+03 ,1.9775e+03 ,1.6013e+01 /) - kbo(:, 3,29,12) = (/ & - &8.2292e+03 ,6.1721e+03 ,4.1151e+03 ,2.0580e+03 ,1.5732e+01 /) - kbo(:, 4,29,12) = (/ & - &8.6240e+03 ,6.4682e+03 ,4.3125e+03 ,2.1567e+03 ,1.5372e+01 /) - kbo(:, 5,29,12) = (/ & - &9.0598e+03 ,6.7951e+03 ,4.5304e+03 ,2.2657e+03 ,1.4767e+01 /) - kbo(:, 1,30,12) = (/ & - &7.6323e+03 ,5.7245e+03 ,3.8166e+03 ,1.9088e+03 ,1.6832e+01 /) - kbo(:, 2,30,12) = (/ & - &7.9856e+03 ,5.9894e+03 ,3.9933e+03 ,1.9972e+03 ,1.6592e+01 /) - kbo(:, 3,30,12) = (/ & - &8.4256e+03 ,6.3195e+03 ,4.2133e+03 ,2.1072e+03 ,1.6260e+01 /) - kbo(:, 4,30,12) = (/ & - &8.9027e+03 ,6.6772e+03 ,4.4518e+03 ,2.2264e+03 ,1.5767e+01 /) - kbo(:, 5,30,12) = (/ & - &9.4138e+03 ,7.0606e+03 ,4.7073e+03 ,2.3541e+03 ,1.5140e+01 /) - kbo(:, 1,31,12) = (/ & - &8.1459e+03 ,6.1097e+03 ,4.0735e+03 ,2.0373e+03 ,1.7334e+01 /) - kbo(:, 2,31,12) = (/ & - &8.6243e+03 ,6.4685e+03 ,4.3127e+03 ,2.1569e+03 ,1.7064e+01 /) - kbo(:, 3,31,12) = (/ & - &9.1518e+03 ,6.8642e+03 ,4.5764e+03 ,2.2887e+03 ,1.6609e+01 /) - kbo(:, 4,31,12) = (/ & - &9.7356e+03 ,7.3019e+03 ,4.8683e+03 ,2.4346e+03 ,1.5848e+01 /) - kbo(:, 5,31,12) = (/ & - &1.0365e+04 ,7.7736e+03 ,5.1827e+03 ,2.5918e+03 ,1.5376e+01 /) - kbo(:, 1,32,12) = (/ & - &8.9083e+03 ,6.6815e+03 ,4.4547e+03 ,2.2279e+03 ,1.7730e+01 /) - kbo(:, 2,32,12) = (/ & - &9.4979e+03 ,7.1237e+03 ,4.7495e+03 ,2.3753e+03 ,1.7331e+01 /) - kbo(:, 3,32,12) = (/ & - &1.0147e+04 ,7.6108e+03 ,5.0742e+03 ,2.5376e+03 ,1.6589e+01 /) - kbo(:, 4,32,12) = (/ & - &1.0867e+04 ,8.1507e+03 ,5.4341e+03 ,2.7175e+03 ,1.6156e+01 /) - kbo(:, 5,32,12) = (/ & - &1.1646e+04 ,8.7350e+03 ,5.8236e+03 ,2.9122e+03 ,1.5848e+01 /) - kbo(:, 1,33,12) = (/ & - &9.9979e+03 ,7.4987e+03 ,4.9995e+03 ,2.5003e+03 ,1.7989e+01 /) - kbo(:, 2,33,12) = (/ & - &1.0743e+04 ,8.0578e+03 ,5.3722e+03 ,2.6866e+03 ,1.7365e+01 /) - kbo(:, 3,33,12) = (/ & - &1.1568e+04 ,8.6761e+03 ,5.7844e+03 ,2.8926e+03 ,1.6901e+01 /) - kbo(:, 4,33,12) = (/ & - &1.2466e+04 ,9.3497e+03 ,6.2334e+03 ,3.1171e+03 ,1.6592e+01 /) - kbo(:, 5,33,12) = (/ & - &1.3441e+04 ,1.0081e+04 ,6.7208e+03 ,3.3608e+03 ,1.6160e+01 /) - kbo(:, 1,34,12) = (/ & - &1.1005e+04 ,8.2543e+03 ,5.5032e+03 ,2.7521e+03 ,1.8094e+01 /) - kbo(:, 2,34,12) = (/ & - &1.1925e+04 ,8.9436e+03 ,5.9627e+03 ,2.9818e+03 ,1.7503e+01 /) - kbo(:, 3,34,12) = (/ & - &1.2929e+04 ,9.6970e+03 ,6.4650e+03 ,3.2329e+03 ,1.7258e+01 /) - kbo(:, 4,34,12) = (/ & - &1.4013e+04 ,1.0510e+04 ,7.0067e+03 ,3.5037e+03 ,1.6964e+01 /) - kbo(:, 5,34,12) = (/ & - &1.5204e+04 ,1.1403e+04 ,7.6022e+03 ,3.8015e+03 ,1.6506e+01 /) - kbo(:, 1,35,12) = (/ & - &1.2135e+04 ,9.1016e+03 ,6.0680e+03 ,3.0345e+03 ,1.8232e+01 /) - kbo(:, 2,35,12) = (/ & - &1.3244e+04 ,9.9331e+03 ,6.6223e+03 ,3.3116e+03 ,1.7908e+01 /) - kbo(:, 3,35,12) = (/ & - &1.4457e+04 ,1.0843e+04 ,7.2288e+03 ,3.6148e+03 ,1.7659e+01 /) - kbo(:, 4,35,12) = (/ & - &1.5776e+04 ,1.1833e+04 ,7.8886e+03 ,3.9447e+03 ,1.7305e+01 /) - kbo(:, 5,35,12) = (/ & - &1.7218e+04 ,1.2914e+04 ,8.6094e+03 ,4.3051e+03 ,1.6889e+01 /) - kbo(:, 1,36,12) = (/ & - &1.3247e+04 ,9.9356e+03 ,6.6240e+03 ,3.3125e+03 ,1.8488e+01 /) - kbo(:, 2,36,12) = (/ & - &1.4560e+04 ,1.0920e+04 ,7.2802e+03 ,3.6405e+03 ,1.8270e+01 /) - kbo(:, 3,36,12) = (/ & - &1.6016e+04 ,1.2012e+04 ,8.0085e+03 ,4.0046e+03 ,1.8063e+01 /) - kbo(:, 4,36,12) = (/ & - &1.7602e+04 ,1.3202e+04 ,8.8012e+03 ,4.4010e+03 ,1.7553e+01 /) - kbo(:, 5,36,12) = (/ & - &1.9328e+04 ,1.4496e+04 ,9.6641e+03 ,4.8324e+03 ,1.7048e+01 /) - kbo(:, 1,37,12) = (/ & - &1.3952e+04 ,1.0464e+04 ,6.9765e+03 ,3.4887e+03 ,1.8801e+01 /) - kbo(:, 2,37,12) = (/ & - &1.5457e+04 ,1.1593e+04 ,7.7287e+03 ,3.8648e+03 ,1.8637e+01 /) - kbo(:, 3,37,12) = (/ & - &1.7141e+04 ,1.2856e+04 ,8.5707e+03 ,4.2857e+03 ,1.8420e+01 /) - kbo(:, 4,37,12) = (/ & - &1.8985e+04 ,1.4239e+04 ,9.4928e+03 ,4.7467e+03 ,1.7805e+01 /) - kbo(:, 5,37,12) = (/ & - &2.0966e+04 ,1.5724e+04 ,1.0483e+04 ,5.2419e+03 ,1.7343e+01 /) - kbo(:, 1,38,12) = (/ & - &1.4936e+04 ,1.1202e+04 ,7.4684e+03 ,3.7346e+03 ,1.9067e+01 /) - kbo(:, 2,38,12) = (/ & - &1.6693e+04 ,1.2520e+04 ,8.3467e+03 ,4.1737e+03 ,1.8968e+01 /) - kbo(:, 3,38,12) = (/ & - &1.8667e+04 ,1.4000e+04 ,9.3337e+03 ,4.6672e+03 ,1.8667e+01 /) - kbo(:, 4,38,12) = (/ & - &2.0838e+04 ,1.5628e+04 ,1.0419e+04 ,5.2098e+03 ,1.8090e+01 /) - kbo(:, 5,38,12) = (/ & - &2.3152e+04 ,1.7364e+04 ,1.1576e+04 ,5.7883e+03 ,1.7634e+01 /) - kbo(:, 1,39,12) = (/ & - &1.6411e+04 ,1.2309e+04 ,8.2062e+03 ,4.1035e+03 ,1.9362e+01 /) - kbo(:, 2,39,12) = (/ & - &1.8520e+04 ,1.3890e+04 ,9.2603e+03 ,4.6305e+03 ,1.9256e+01 /) - kbo(:, 3,39,12) = (/ & - &2.0878e+04 ,1.5659e+04 ,1.0439e+04 ,5.2200e+03 ,1.8842e+01 /) - kbo(:, 4,39,12) = (/ & - &2.3481e+04 ,1.7611e+04 ,1.1741e+04 ,5.8709e+03 ,1.8427e+01 /) - kbo(:, 5,39,12) = (/ & - &2.6258e+04 ,1.9693e+04 ,1.3129e+04 ,6.5649e+03 ,1.8005e+01 /) - kbo(:, 1,40,12) = (/ & - &1.6779e+04 ,1.2584e+04 ,8.3898e+03 ,4.1952e+03 ,1.9573e+01 /) - kbo(:, 2,40,12) = (/ & - &1.9118e+04 ,1.4339e+04 ,9.5593e+03 ,4.7800e+03 ,1.9496e+01 /) - kbo(:, 3,40,12) = (/ & - &2.1747e+04 ,1.6310e+04 ,1.0874e+04 ,5.4372e+03 ,1.9078e+01 /) - kbo(:, 4,40,12) = (/ & - &2.4641e+04 ,1.8481e+04 ,1.2321e+04 ,6.1605e+03 ,1.8680e+01 /) - kbo(:, 5,40,12) = (/ & - &2.7741e+04 ,2.0806e+04 ,1.3871e+04 ,6.9356e+03 ,1.8305e+01 /) - kbo(:, 1,41,12) = (/ & - &1.7108e+04 ,1.2831e+04 ,8.5543e+03 ,4.2775e+03 ,1.9752e+01 /) - kbo(:, 2,41,12) = (/ & - &1.9696e+04 ,1.4772e+04 ,9.8483e+03 ,4.9245e+03 ,1.9665e+01 /) - kbo(:, 3,41,12) = (/ & - &2.2603e+04 ,1.6953e+04 ,1.1302e+04 ,5.6514e+03 ,1.9347e+01 /) - kbo(:, 4,41,12) = (/ & - &2.5797e+04 ,1.9348e+04 ,1.2899e+04 ,6.4497e+03 ,1.8925e+01 /) - kbo(:, 5,41,12) = (/ & - &2.9237e+04 ,2.1928e+04 ,1.4619e+04 ,7.3098e+03 ,1.8587e+01 /) - kbo(:, 1,42,12) = (/ & - &1.7650e+04 ,1.3238e+04 ,8.8253e+03 ,4.4130e+03 ,1.9913e+01 /) - kbo(:, 2,42,12) = (/ & - &2.0552e+04 ,1.5414e+04 ,1.0276e+04 ,5.1385e+03 ,1.9817e+01 /) - kbo(:, 3,42,12) = (/ & - &2.3780e+04 ,1.7835e+04 ,1.1890e+04 ,5.9455e+03 ,1.9487e+01 /) - kbo(:, 4,42,12) = (/ & - &2.7331e+04 ,2.0498e+04 ,1.3666e+04 ,6.8331e+03 ,1.9141e+01 /) - kbo(:, 5,42,12) = (/ & - &3.1174e+04 ,2.3380e+04 ,1.5587e+04 ,7.7938e+03 ,1.8842e+01 /) - kbo(:, 1,43,12) = (/ & - &1.8226e+04 ,1.3670e+04 ,9.1135e+03 ,4.5571e+03 ,2.0107e+01 /) - kbo(:, 2,43,12) = (/ & - &2.1466e+04 ,1.6100e+04 ,1.0734e+04 ,5.3672e+03 ,1.9969e+01 /) - kbo(:, 3,43,12) = (/ & - &2.5067e+04 ,1.8800e+04 ,1.2534e+04 ,6.2672e+03 ,1.9715e+01 /) - kbo(:, 4,43,12) = (/ & - &2.9022e+04 ,2.1767e+04 ,1.4512e+04 ,7.2561e+03 ,1.9331e+01 /) - kbo(:, 5,43,12) = (/ & - &3.3314e+04 ,2.4986e+04 ,1.6658e+04 ,8.3291e+03 ,1.9158e+01 /) - kbo(:, 1,44,12) = (/ & - &1.9005e+04 ,1.4254e+04 ,9.5029e+03 ,4.7518e+03 ,2.0271e+01 /) - kbo(:, 2,44,12) = (/ & - &2.2627e+04 ,1.6970e+04 ,1.1314e+04 ,5.6570e+03 ,2.0045e+01 /) - kbo(:, 3,44,12) = (/ & - &2.6689e+04 ,2.0017e+04 ,1.3345e+04 ,6.6725e+03 ,1.9909e+01 /) - kbo(:, 4,44,12) = (/ & - &3.1132e+04 ,2.3349e+04 ,1.5566e+04 ,7.7832e+03 ,1.9596e+01 /) - kbo(:, 5,44,12) = (/ & - &3.5955e+04 ,2.6966e+04 ,1.7978e+04 ,8.9890e+03 ,1.9454e+01 /) - kbo(:, 1,45,12) = (/ & - &2.0230e+04 ,1.5173e+04 ,1.0115e+04 ,5.0580e+03 ,2.0360e+01 /) - kbo(:, 2,45,12) = (/ & - &2.4315e+04 ,1.8237e+04 ,1.2158e+04 ,6.0793e+03 ,2.0061e+01 /) - kbo(:, 3,45,12) = (/ & - &2.8985e+04 ,2.1739e+04 ,1.4493e+04 ,7.2467e+03 ,2.0123e+01 /) - kbo(:, 4,45,12) = (/ & - &3.4069e+04 ,2.5552e+04 ,1.7035e+04 ,8.5176e+03 ,1.9825e+01 /) - kbo(:, 5,45,12) = (/ & - &3.9583e+04 ,2.9687e+04 ,1.9792e+04 ,9.8961e+03 ,1.9819e+01 /) - kbo(:, 1,46,12) = (/ & - &2.1692e+04 ,1.6269e+04 ,1.0846e+04 ,5.4233e+03 ,2.0397e+01 /) - kbo(:, 2,46,12) = (/ & - &2.6275e+04 ,1.9706e+04 ,1.3138e+04 ,6.5691e+03 ,2.0140e+01 /) - kbo(:, 3,46,12) = (/ & - &3.1629e+04 ,2.3722e+04 ,1.5815e+04 ,7.9076e+03 ,2.0308e+01 /) - kbo(:, 4,46,12) = (/ & - &3.7518e+04 ,2.8139e+04 ,1.8759e+04 ,9.3799e+03 ,2.0045e+01 /) - kbo(:, 5,46,12) = (/ & - &4.3856e+04 ,3.2892e+04 ,2.1928e+04 ,1.0964e+04 ,2.0102e+01 /) - kbo(:, 1,47,12) = (/ & - &2.2886e+04 ,1.7165e+04 ,1.1443e+04 ,5.7220e+03 ,2.0376e+01 /) - kbo(:, 2,47,12) = (/ & - &2.7889e+04 ,2.0917e+04 ,1.3945e+04 ,6.9727e+03 ,2.0171e+01 /) - kbo(:, 3,47,12) = (/ & - &3.3867e+04 ,2.5401e+04 ,1.6934e+04 ,8.4673e+03 ,2.0409e+01 /) - kbo(:, 4,47,12) = (/ & - &4.0597e+04 ,3.0448e+04 ,2.0299e+04 ,1.0150e+04 ,2.0291e+01 /) - kbo(:, 5,47,12) = (/ & - &4.7822e+04 ,3.5866e+04 ,2.3911e+04 ,1.1956e+04 ,2.0384e+01 /) - kbo(:, 1,48,12) = (/ & - &2.4867e+04 ,1.8651e+04 ,1.2434e+04 ,6.2173e+03 ,2.0295e+01 /) - kbo(:, 2,48,12) = (/ & - &3.0432e+04 ,2.2824e+04 ,1.5216e+04 ,7.6085e+03 ,2.0270e+01 /) - kbo(:, 3,48,12) = (/ & - &3.7235e+04 ,2.7926e+04 ,1.8618e+04 ,9.3091e+03 ,2.0484e+01 /) - kbo(:, 4,48,12) = (/ & - &4.5063e+04 ,3.3797e+04 ,2.2532e+04 ,1.1266e+04 ,2.0580e+01 /) - kbo(:, 5,48,12) = (/ & - &5.3530e+04 ,4.0148e+04 ,2.6765e+04 ,1.3383e+04 ,2.0621e+01 /) - kbo(:, 1,49,12) = (/ & - &2.8095e+04 ,2.1071e+04 ,1.4048e+04 ,7.0242e+03 ,2.0197e+01 /) - kbo(:, 2,49,12) = (/ & - &3.4618e+04 ,2.5963e+04 ,1.7309e+04 ,8.6547e+03 ,2.0319e+01 /) - kbo(:, 3,49,12) = (/ & - &4.2591e+04 ,3.1943e+04 ,2.1296e+04 ,1.0648e+04 ,2.0559e+01 /) - kbo(:, 4,49,12) = (/ & - &5.1945e+04 ,3.8959e+04 ,2.5973e+04 ,1.2987e+04 ,2.0853e+01 /) - kbo(:, 5,49,12) = (/ & - &6.2325e+04 ,4.6744e+04 ,3.1163e+04 ,1.5581e+04 ,2.0890e+01 /) - kbo(:, 1,50,12) = (/ & - &3.0354e+04 ,2.2766e+04 ,1.5178e+04 ,7.5891e+03 ,2.0062e+01 /) - kbo(:, 2,50,12) = (/ & - &3.7734e+04 ,2.8300e+04 ,1.8867e+04 ,9.4338e+03 ,2.0363e+01 /) - kbo(:, 3,50,12) = (/ & - &4.6589e+04 ,3.4942e+04 ,2.3295e+04 ,1.1648e+04 ,2.0543e+01 /) - kbo(:, 4,50,12) = (/ & - &5.7214e+04 ,4.2910e+04 ,2.8607e+04 ,1.4304e+04 ,2.0993e+01 /) - kbo(:, 5,50,12) = (/ & - &6.9238e+04 ,5.1929e+04 ,3.4619e+04 ,1.7310e+04 ,2.1035e+01 /) - kbo(:, 1,51,12) = (/ & - &3.2115e+04 ,2.4086e+04 ,1.6058e+04 ,8.0292e+03 ,1.9809e+01 /) - kbo(:, 2,51,12) = (/ & - &4.0277e+04 ,3.0208e+04 ,2.0139e+04 ,1.0070e+04 ,2.0313e+01 /) - kbo(:, 3,51,12) = (/ & - &4.9958e+04 ,3.7469e+04 ,2.4979e+04 ,1.2490e+04 ,2.0455e+01 /) - kbo(:, 4,51,12) = (/ & - &6.1681e+04 ,4.6261e+04 ,3.0841e+04 ,1.5421e+04 ,2.0964e+01 /) - kbo(:, 5,51,12) = (/ & - &7.5206e+04 ,5.6405e+04 ,3.7603e+04 ,1.8802e+04 ,2.1060e+01 /) - kbo(:, 1,52,12) = (/ & - &3.4912e+04 ,2.6184e+04 ,1.7456e+04 ,8.7285e+03 ,1.9582e+01 /) - kbo(:, 2,52,12) = (/ & - &4.4146e+04 ,3.3110e+04 ,2.2073e+04 ,1.1037e+04 ,2.0163e+01 /) - kbo(:, 3,52,12) = (/ & - &5.5147e+04 ,4.1361e+04 ,2.7574e+04 ,1.3787e+04 ,2.0386e+01 /) - kbo(:, 4,52,12) = (/ & - &6.8326e+04 ,5.1245e+04 ,3.4163e+04 ,1.7082e+04 ,2.0999e+01 /) - kbo(:, 5,52,12) = (/ & - &8.3853e+04 ,6.2890e+04 ,4.1927e+04 ,2.0964e+04 ,2.1183e+01 /) - kbo(:, 1,53,12) = (/ & - &3.9402e+04 ,2.9552e+04 ,1.9702e+04 ,9.8513e+03 ,1.9267e+01 /) - kbo(:, 2,53,12) = (/ & - &5.0308e+04 ,3.7732e+04 ,2.5155e+04 ,1.2578e+04 ,1.9908e+01 /) - kbo(:, 3,53,12) = (/ & - &6.3383e+04 ,4.7538e+04 ,3.1692e+04 ,1.5846e+04 ,2.0279e+01 /) - kbo(:, 4,53,12) = (/ & - &7.8778e+04 ,5.9084e+04 ,3.9389e+04 ,1.9695e+04 ,2.1039e+01 /) - kbo(:, 5,53,12) = (/ & - &9.7229e+04 ,7.2923e+04 ,4.8615e+04 ,2.4308e+04 ,2.1293e+01 /) - kbo(:, 1,54,12) = (/ & - &3.8624e+04 ,2.8968e+04 ,1.9312e+04 ,9.6566e+03 ,1.8946e+01 /) - kbo(:, 2,54,12) = (/ & - &4.9869e+04 ,3.7402e+04 ,2.4935e+04 ,1.2468e+04 ,1.9724e+01 /) - kbo(:, 3,54,12) = (/ & - &6.3267e+04 ,4.7450e+04 ,3.1634e+04 ,1.5817e+04 ,2.0221e+01 /) - kbo(:, 4,54,12) = (/ & - &7.9005e+04 ,5.9254e+04 ,3.9503e+04 ,1.9752e+04 ,2.0891e+01 /) - kbo(:, 5,54,12) = (/ & - &9.7899e+04 ,7.3425e+04 ,4.8950e+04 ,2.4475e+04 ,2.1235e+01 /) - kbo(:, 1,55,12) = (/ & - &3.4504e+04 ,2.5878e+04 ,1.7253e+04 ,8.6267e+03 ,1.8561e+01 /) - kbo(:, 2,55,12) = (/ & - &4.5154e+04 ,3.3866e+04 ,2.2578e+04 ,1.1289e+04 ,1.9514e+01 /) - kbo(:, 3,55,12) = (/ & - &5.7700e+04 ,4.3275e+04 ,2.8850e+04 ,1.4425e+04 ,2.0143e+01 /) - kbo(:, 4,55,12) = (/ & - &7.2513e+04 ,5.4385e+04 ,3.6257e+04 ,1.8129e+04 ,2.0526e+01 /) - kbo(:, 5,55,12) = (/ & - &9.0097e+04 ,6.7573e+04 ,4.5049e+04 ,2.2525e+04 ,2.1145e+01 /) - kbo(:, 1,56,12) = (/ & - &3.0670e+04 ,2.3003e+04 ,1.5335e+04 ,7.6681e+03 ,1.8208e+01 /) - kbo(:, 2,56,12) = (/ & - &4.0775e+04 ,3.0581e+04 ,2.0388e+04 ,1.0194e+04 ,1.9345e+01 /) - kbo(:, 3,56,12) = (/ & - &5.2534e+04 ,3.9401e+04 ,2.6267e+04 ,1.3134e+04 ,1.9986e+01 /) - kbo(:, 4,56,12) = (/ & - &6.6490e+04 ,4.9868e+04 ,3.3245e+04 ,1.6623e+04 ,2.0300e+01 /) - kbo(:, 5,56,12) = (/ & - &8.2863e+04 ,6.2147e+04 ,4.1431e+04 ,2.0716e+04 ,2.0929e+01 /) - kbo(:, 1,57,12) = (/ & - &2.7134e+04 ,2.0351e+04 ,1.3567e+04 ,6.7841e+03 ,1.7766e+01 /) - kbo(:, 2,57,12) = (/ & - &3.6730e+04 ,2.7547e+04 ,1.8365e+04 ,9.1827e+03 ,1.8983e+01 /) - kbo(:, 3,57,12) = (/ & - &4.7798e+04 ,3.5848e+04 ,2.3899e+04 ,1.1950e+04 ,1.9837e+01 /) - kbo(:, 4,57,12) = (/ & - &6.0858e+04 ,4.5644e+04 ,3.0429e+04 ,1.5215e+04 ,2.0288e+01 /) - kbo(:, 5,57,12) = (/ & - &7.6170e+04 ,5.7127e+04 ,3.8085e+04 ,1.9043e+04 ,2.0539e+01 /) - kbo(:, 1,58,12) = (/ & - &6.3468e+03 ,5.8191e+03 ,4.9895e+03 ,3.4949e+03 ,1.7351e+01 /) - kbo(:, 2,58,12) = (/ & - &8.7238e+03 ,7.9984e+03 ,6.8580e+03 ,4.8035e+03 ,1.8673e+01 /) - kbo(:, 3,58,12) = (/ & - &1.1493e+04 ,1.0537e+04 ,9.0349e+03 ,6.3281e+03 ,1.9708e+01 /) - kbo(:, 4,58,12) = (/ & - &1.4729e+04 ,1.3504e+04 ,1.1579e+04 ,8.1099e+03 ,2.0210e+01 /) - kbo(:, 5,58,12) = (/ & - &1.8531e+04 ,1.6990e+04 ,1.4568e+04 ,1.0203e+04 ,2.0346e+01 /) - kbo(:, 1,59,12) = (/ & - &7.0593e+03 ,6.1640e+03 ,4.9170e+03 ,3.0600e+03 ,1.7147e+01 /) - kbo(:, 2,59,12) = (/ & - &9.7799e+03 ,8.5396e+03 ,6.8118e+03 ,4.2390e+03 ,1.8584e+01 /) - kbo(:, 3,59,12) = (/ & - &1.2964e+04 ,1.1320e+04 ,9.0293e+03 ,5.6188e+03 ,1.9434e+01 /) - kbo(:, 4,59,12) = (/ & - &1.6671e+04 ,1.4556e+04 ,1.1611e+04 ,7.2253e+03 ,2.0175e+01 /) - kbo(:, 5,59,12) = (/ & - &2.1035e+04 ,1.8367e+04 ,1.4651e+04 ,9.1168e+03 ,2.0516e+01 /) - kbo(:, 1,13,13) = (/ & - &3.8843e+05 ,2.9132e+05 ,1.9422e+05 ,9.7109e+04 ,5.4111e+00 /) - kbo(:, 2,13,13) = (/ & - &3.8116e+05 ,2.8587e+05 ,1.9058e+05 ,9.5291e+04 ,5.1021e+00 /) - kbo(:, 3,13,13) = (/ & - &3.7364e+05 ,2.8023e+05 ,1.8682e+05 ,9.3410e+04 ,4.8974e+00 /) - kbo(:, 4,13,13) = (/ & - &3.6551e+05 ,2.7413e+05 ,1.8276e+05 ,9.1378e+04 ,4.4934e+00 /) - kbo(:, 5,13,13) = (/ & - &3.5750e+05 ,2.6813e+05 ,1.7875e+05 ,8.9377e+04 ,3.9773e+00 /) - kbo(:, 1,14,13) = (/ & - &2.5525e+05 ,1.9143e+05 ,1.2762e+05 ,6.3811e+04 ,5.8071e+00 /) - kbo(:, 2,14,13) = (/ & - &2.5096e+05 ,1.8822e+05 ,1.2548e+05 ,6.2740e+04 ,5.6102e+00 /) - kbo(:, 3,14,13) = (/ & - &2.4685e+05 ,1.8514e+05 ,1.2343e+05 ,6.1713e+04 ,5.4048e+00 /) - kbo(:, 4,14,13) = (/ & - &2.4253e+05 ,1.8190e+05 ,1.2126e+05 ,6.0632e+04 ,5.2557e+00 /) - kbo(:, 5,14,13) = (/ & - &2.3845e+05 ,1.7884e+05 ,1.1922e+05 ,5.9612e+04 ,4.9044e+00 /) - kbo(:, 1,15,13) = (/ & - &1.7262e+05 ,1.2947e+05 ,8.6313e+04 ,4.3157e+04 ,6.3397e+00 /) - kbo(:, 2,15,13) = (/ & - &1.7029e+05 ,1.2772e+05 ,8.5146e+04 ,4.2574e+04 ,6.1559e+00 /) - kbo(:, 3,15,13) = (/ & - &1.6778e+05 ,1.2583e+05 ,8.3891e+04 ,4.1946e+04 ,5.9275e+00 /) - kbo(:, 4,15,13) = (/ & - &1.6564e+05 ,1.2423e+05 ,8.2824e+04 ,4.1413e+04 ,5.8142e+00 /) - kbo(:, 5,15,13) = (/ & - &1.6363e+05 ,1.2273e+05 ,8.1819e+04 ,4.0910e+04 ,5.6466e+00 /) - kbo(:, 1,16,13) = (/ & - &1.3945e+05 ,1.0459e+05 ,6.9724e+04 ,3.4863e+04 ,7.0725e+00 /) - kbo(:, 2,16,13) = (/ & - &1.3799e+05 ,1.0349e+05 ,6.8996e+04 ,3.4499e+04 ,6.9039e+00 /) - kbo(:, 3,16,13) = (/ & - &1.3667e+05 ,1.0250e+05 ,6.8336e+04 ,3.4169e+04 ,6.6526e+00 /) - kbo(:, 4,16,13) = (/ & - &1.3532e+05 ,1.0149e+05 ,6.7659e+04 ,3.3830e+04 ,6.5506e+00 /) - kbo(:, 5,16,13) = (/ & - &1.3401e+05 ,1.0051e+05 ,6.7008e+04 ,3.3505e+04 ,6.3946e+00 /) - kbo(:, 1,17,13) = (/ & - &1.1728e+05 ,8.7962e+04 ,5.8642e+04 ,2.9322e+04 ,7.9743e+00 /) - kbo(:, 2,17,13) = (/ & - &1.1635e+05 ,8.7266e+04 ,5.8178e+04 ,2.9090e+04 ,7.7873e+00 /) - kbo(:, 3,17,13) = (/ & - &1.1534e+05 ,8.6504e+04 ,5.7670e+04 ,2.8835e+04 ,7.5449e+00 /) - kbo(:, 4,17,13) = (/ & - &1.1432e+05 ,8.5738e+04 ,5.7159e+04 ,2.8580e+04 ,7.3894e+00 /) - kbo(:, 5,17,13) = (/ & - &1.1312e+05 ,8.4838e+04 ,5.6559e+04 ,2.8280e+04 ,7.2243e+00 /) - kbo(:, 1,18,13) = (/ & - &1.0020e+05 ,7.5148e+04 ,5.0099e+04 ,2.5050e+04 ,8.9803e+00 /) - kbo(:, 2,18,13) = (/ & - &9.9423e+04 ,7.4567e+04 ,4.9712e+04 ,2.4856e+04 ,8.7551e+00 /) - kbo(:, 3,18,13) = (/ & - &9.8635e+04 ,7.3977e+04 ,4.9318e+04 ,2.4660e+04 ,8.5049e+00 /) - kbo(:, 4,18,13) = (/ & - &9.7679e+04 ,7.3260e+04 ,4.8840e+04 ,2.4421e+04 ,8.3083e+00 /) - kbo(:, 5,18,13) = (/ & - &9.6616e+04 ,7.2462e+04 ,4.8308e+04 ,2.4155e+04 ,8.1253e+00 /) - kbo(:, 1,19,13) = (/ & - &8.3124e+04 ,6.2343e+04 ,4.1562e+04 ,2.0782e+04 ,1.0036e+01 /) - kbo(:, 2,19,13) = (/ & - &8.2434e+04 ,6.1826e+04 ,4.1217e+04 ,2.0609e+04 ,9.7882e+00 /) - kbo(:, 3,19,13) = (/ & - &8.1692e+04 ,6.1269e+04 ,4.0847e+04 ,2.0424e+04 ,9.5505e+00 /) - kbo(:, 4,19,13) = (/ & - &8.0821e+04 ,6.0616e+04 ,4.0411e+04 ,2.0206e+04 ,9.2995e+00 /) - kbo(:, 5,19,13) = (/ & - &7.9844e+04 ,5.9883e+04 ,3.9922e+04 ,1.9962e+04 ,9.1204e+00 /) - kbo(:, 1,20,13) = (/ & - &7.3434e+04 ,5.5076e+04 ,3.6717e+04 ,1.8359e+04 ,1.1173e+01 /) - kbo(:, 2,20,13) = (/ & - &7.2781e+04 ,5.4586e+04 ,3.6391e+04 ,1.8196e+04 ,1.0919e+01 /) - kbo(:, 3,20,13) = (/ & - &7.2073e+04 ,5.4055e+04 ,3.6037e+04 ,1.8019e+04 ,1.0676e+01 /) - kbo(:, 4,20,13) = (/ & - &7.1226e+04 ,5.3419e+04 ,3.5613e+04 ,1.7807e+04 ,1.0406e+01 /) - kbo(:, 5,20,13) = (/ & - &7.0326e+04 ,5.2745e+04 ,3.5164e+04 ,1.7582e+04 ,1.0205e+01 /) - kbo(:, 1,21,13) = (/ & - &6.5684e+04 ,4.9263e+04 ,3.2843e+04 ,1.6422e+04 ,1.2437e+01 /) - kbo(:, 2,21,13) = (/ & - &6.5060e+04 ,4.8795e+04 ,3.2531e+04 ,1.6266e+04 ,1.2175e+01 /) - kbo(:, 3,21,13) = (/ & - &6.4347e+04 ,4.8261e+04 ,3.2174e+04 ,1.6088e+04 ,1.1913e+01 /) - kbo(:, 4,21,13) = (/ & - &6.3551e+04 ,4.7664e+04 ,3.1776e+04 ,1.5889e+04 ,1.1602e+01 /) - kbo(:, 5,21,13) = (/ & - &6.2699e+04 ,4.7025e+04 ,3.1350e+04 ,1.5676e+04 ,1.1366e+01 /) - kbo(:, 1,22,13) = (/ & - &5.8992e+04 ,4.4244e+04 ,2.9497e+04 ,1.4749e+04 ,1.3817e+01 /) - kbo(:, 2,22,13) = (/ & - &5.8377e+04 ,4.3783e+04 ,2.9189e+04 ,1.4595e+04 ,1.3522e+01 /) - kbo(:, 3,22,13) = (/ & - &5.7726e+04 ,4.3295e+04 ,2.8863e+04 ,1.4432e+04 ,1.3217e+01 /) - kbo(:, 4,22,13) = (/ & - &5.7003e+04 ,4.2753e+04 ,2.8502e+04 ,1.4252e+04 ,1.2864e+01 /) - kbo(:, 5,22,13) = (/ & - &5.6242e+04 ,4.2182e+04 ,2.8121e+04 ,1.4061e+04 ,1.2581e+01 /) - kbo(:, 1,23,13) = (/ & - &5.2234e+04 ,3.9176e+04 ,2.6118e+04 ,1.3059e+04 ,1.5301e+01 /) - kbo(:, 2,23,13) = (/ & - &5.1719e+04 ,3.8789e+04 ,2.5860e+04 ,1.2931e+04 ,1.4943e+01 /) - kbo(:, 3,23,13) = (/ & - &5.1144e+04 ,3.8358e+04 ,2.5572e+04 ,1.2787e+04 ,1.4585e+01 /) - kbo(:, 4,23,13) = (/ & - &5.0530e+04 ,3.7898e+04 ,2.5266e+04 ,1.2633e+04 ,1.4170e+01 /) - kbo(:, 5,23,13) = (/ & - &4.9854e+04 ,3.7391e+04 ,2.4928e+04 ,1.2464e+04 ,1.3822e+01 /) - kbo(:, 1,24,13) = (/ & - &4.5231e+04 ,3.3923e+04 ,2.2616e+04 ,1.1309e+04 ,1.6829e+01 /) - kbo(:, 2,24,13) = (/ & - &4.4807e+04 ,3.3606e+04 ,2.2404e+04 ,1.1203e+04 ,1.6434e+01 /) - kbo(:, 3,24,13) = (/ & - &4.4319e+04 ,3.3240e+04 ,2.2160e+04 ,1.1081e+04 ,1.5981e+01 /) - kbo(:, 4,24,13) = (/ & - &4.3813e+04 ,3.2860e+04 ,2.1907e+04 ,1.0954e+04 ,1.5519e+01 /) - kbo(:, 5,24,13) = (/ & - &4.3229e+04 ,3.2422e+04 ,2.1615e+04 ,1.0808e+04 ,1.5118e+01 /) - kbo(:, 1,25,13) = (/ & - &3.9084e+04 ,2.9314e+04 ,1.9543e+04 ,9.7719e+03 ,1.8397e+01 /) - kbo(:, 2,25,13) = (/ & - &3.8734e+04 ,2.9050e+04 ,1.9367e+04 ,9.6842e+03 ,1.7930e+01 /) - kbo(:, 3,25,13) = (/ & - &3.8359e+04 ,2.8770e+04 ,1.9180e+04 ,9.5907e+03 ,1.7387e+01 /) - kbo(:, 4,25,13) = (/ & - &3.7930e+04 ,2.8448e+04 ,1.8965e+04 ,9.4832e+03 ,1.6873e+01 /) - kbo(:, 5,25,13) = (/ & - &3.7467e+04 ,2.8100e+04 ,1.8734e+04 ,9.3675e+03 ,1.6400e+01 /) - kbo(:, 1,26,13) = (/ & - &3.3890e+04 ,2.5418e+04 ,1.6946e+04 ,8.4734e+03 ,1.9920e+01 /) - kbo(:, 2,26,13) = (/ & - &3.3621e+04 ,2.5216e+04 ,1.6811e+04 ,8.4060e+03 ,1.9382e+01 /) - kbo(:, 3,26,13) = (/ & - &3.3332e+04 ,2.4999e+04 ,1.6667e+04 ,8.3338e+03 ,1.8740e+01 /) - kbo(:, 4,26,13) = (/ & - &3.3002e+04 ,2.4752e+04 ,1.6501e+04 ,8.2512e+03 ,1.8176e+01 /) - kbo(:, 5,26,13) = (/ & - &3.2656e+04 ,2.4492e+04 ,1.6328e+04 ,8.1646e+03 ,1.7620e+01 /) - kbo(:, 1,27,13) = (/ & - &3.0166e+04 ,2.2624e+04 ,1.5083e+04 ,7.5423e+03 ,2.1376e+01 /) - kbo(:, 2,27,13) = (/ & - &2.9996e+04 ,2.2497e+04 ,1.4998e+04 ,7.4998e+03 ,2.0763e+01 /) - kbo(:, 3,27,13) = (/ & - &2.9787e+04 ,2.2341e+04 ,1.4894e+04 ,7.4476e+03 ,2.0015e+01 /) - kbo(:, 4,27,13) = (/ & - &2.9581e+04 ,2.2186e+04 ,1.4791e+04 ,7.3962e+03 ,1.9407e+01 /) - kbo(:, 5,27,13) = (/ & - &2.9406e+04 ,2.2055e+04 ,1.4703e+04 ,7.3522e+03 ,1.8770e+01 /) - kbo(:, 1,28,13) = (/ & - &2.7326e+04 ,2.0495e+04 ,1.3664e+04 ,6.8324e+03 ,2.2732e+01 /) - kbo(:, 2,28,13) = (/ & - &2.7236e+04 ,2.0428e+04 ,1.3619e+04 ,6.8100e+03 ,2.2041e+01 /) - kbo(:, 3,28,13) = (/ & - &2.7174e+04 ,2.0381e+04 ,1.3588e+04 ,6.7945e+03 ,2.1170e+01 /) - kbo(:, 4,28,13) = (/ & - &2.7191e+04 ,2.0394e+04 ,1.3596e+04 ,6.7985e+03 ,2.0533e+01 /) - kbo(:, 5,28,13) = (/ & - &2.7306e+04 ,2.0480e+04 ,1.3654e+04 ,6.8273e+03 ,1.9803e+01 /) - kbo(:, 1,29,13) = (/ & - &2.6107e+04 ,1.9580e+04 ,1.3054e+04 ,6.5276e+03 ,2.3952e+01 /) - kbo(:, 2,29,13) = (/ & - &2.6178e+04 ,1.9634e+04 ,1.3090e+04 ,6.5453e+03 ,2.3128e+01 /) - kbo(:, 3,29,13) = (/ & - &2.6373e+04 ,1.9780e+04 ,1.3187e+04 ,6.5941e+03 ,2.2276e+01 /) - kbo(:, 4,29,13) = (/ & - &2.6674e+04 ,2.0006e+04 ,1.3338e+04 ,6.6693e+03 ,2.1526e+01 /) - kbo(:, 5,29,13) = (/ & - &2.7070e+04 ,2.0303e+04 ,1.3535e+04 ,6.7681e+03 ,2.0703e+01 /) - kbo(:, 1,30,13) = (/ & - &2.5565e+04 ,1.9174e+04 ,1.2783e+04 ,6.3921e+03 ,2.5015e+01 /) - kbo(:, 2,30,13) = (/ & - &2.5924e+04 ,1.9443e+04 ,1.2962e+04 ,6.4818e+03 ,2.4026e+01 /) - kbo(:, 3,30,13) = (/ & - &2.6425e+04 ,1.9819e+04 ,1.3213e+04 ,6.6070e+03 ,2.3238e+01 /) - kbo(:, 4,30,13) = (/ & - &2.7081e+04 ,2.0311e+04 ,1.3541e+04 ,6.7710e+03 ,2.2369e+01 /) - kbo(:, 5,30,13) = (/ & - &2.7860e+04 ,2.0896e+04 ,1.3931e+04 ,6.9658e+03 ,2.1263e+01 /) - kbo(:, 1,31,13) = (/ & - &2.6519e+04 ,1.9890e+04 ,1.3260e+04 ,6.6306e+03 ,2.5829e+01 /) - kbo(:, 2,31,13) = (/ & - &2.7266e+04 ,2.0450e+04 ,1.3634e+04 ,6.8173e+03 ,2.4917e+01 /) - kbo(:, 3,31,13) = (/ & - &2.8229e+04 ,2.1172e+04 ,1.4115e+04 ,7.0579e+03 ,2.4029e+01 /) - kbo(:, 4,31,13) = (/ & - &2.9353e+04 ,2.2015e+04 ,1.4677e+04 ,7.3390e+03 ,2.2989e+01 /) - kbo(:, 5,31,13) = (/ & - &3.0590e+04 ,2.2943e+04 ,1.5295e+04 ,7.6481e+03 ,2.1638e+01 /) - kbo(:, 1,32,13) = (/ & - &2.8188e+04 ,2.1141e+04 ,1.4095e+04 ,7.0478e+03 ,2.6468e+01 /) - kbo(:, 2,32,13) = (/ & - &2.9479e+04 ,2.2110e+04 ,1.4740e+04 ,7.3705e+03 ,2.5641e+01 /) - kbo(:, 3,32,13) = (/ & - &3.0998e+04 ,2.3249e+04 ,1.5500e+04 ,7.7503e+03 ,2.4646e+01 /) - kbo(:, 4,32,13) = (/ & - &3.2677e+04 ,2.4508e+04 ,1.6339e+04 ,8.1700e+03 ,2.3083e+01 /) - kbo(:, 5,32,13) = (/ & - &3.4456e+04 ,2.5842e+04 ,1.7228e+04 ,8.6146e+03 ,2.1888e+01 /) - kbo(:, 1,33,13) = (/ & - &3.1038e+04 ,2.3278e+04 ,1.5519e+04 ,7.7602e+03 ,2.7208e+01 /) - kbo(:, 2,33,13) = (/ & - &3.2999e+04 ,2.4749e+04 ,1.6500e+04 ,8.2505e+03 ,2.6145e+01 /) - kbo(:, 3,33,13) = (/ & - &3.5228e+04 ,2.6421e+04 ,1.7614e+04 ,8.8077e+03 ,2.4544e+01 /) - kbo(:, 4,33,13) = (/ & - &3.7600e+04 ,2.8200e+04 ,1.8800e+04 ,9.4007e+03 ,2.3159e+01 /) - kbo(:, 5,33,13) = (/ & - &4.0073e+04 ,3.0055e+04 ,2.0037e+04 ,1.0019e+04 ,2.2387e+01 /) - kbo(:, 1,34,13) = (/ & - &3.3858e+04 ,2.5394e+04 ,1.6930e+04 ,8.4653e+03 ,2.7625e+01 /) - kbo(:, 2,34,13) = (/ & - &3.6566e+04 ,2.7425e+04 ,1.8284e+04 ,9.1422e+03 ,2.6243e+01 /) - kbo(:, 3,34,13) = (/ & - &3.9555e+04 ,2.9666e+04 ,1.9778e+04 ,9.8893e+03 ,2.4430e+01 /) - kbo(:, 4,34,13) = (/ & - &4.2704e+04 ,3.2028e+04 ,2.1352e+04 ,1.0677e+04 ,2.3679e+01 /) - kbo(:, 5,34,13) = (/ & - &4.5894e+04 ,3.4420e+04 ,2.2947e+04 ,1.1474e+04 ,2.2773e+01 /) - kbo(:, 1,35,13) = (/ & - &3.7312e+04 ,2.7984e+04 ,1.8657e+04 ,9.3288e+03 ,2.7942e+01 /) - kbo(:, 2,35,13) = (/ & - &4.0881e+04 ,3.0661e+04 ,2.0441e+04 ,1.0221e+04 ,2.6106e+01 /) - kbo(:, 3,35,13) = (/ & - &4.4738e+04 ,3.3554e+04 ,2.2369e+04 ,1.1185e+04 ,2.5080e+01 /) - kbo(:, 4,35,13) = (/ & - &4.8754e+04 ,3.6566e+04 ,2.4377e+04 ,1.2189e+04 ,2.4179e+01 /) - kbo(:, 5,35,13) = (/ & - &5.2762e+04 ,3.9572e+04 ,2.6381e+04 ,1.3191e+04 ,2.3224e+01 /) - kbo(:, 1,36,13) = (/ & - &4.0999e+04 ,3.0749e+04 ,2.0500e+04 ,1.0250e+04 ,2.8213e+01 /) - kbo(:, 2,36,13) = (/ & - &4.5493e+04 ,3.4120e+04 ,2.2747e+04 ,1.1374e+04 ,2.6516e+01 /) - kbo(:, 3,36,13) = (/ & - &5.0302e+04 ,3.7726e+04 ,2.5151e+04 ,1.2576e+04 ,2.5690e+01 /) - kbo(:, 4,36,13) = (/ & - &5.5257e+04 ,4.1443e+04 ,2.7629e+04 ,1.3815e+04 ,2.4819e+01 /) - kbo(:, 5,36,13) = (/ & - &6.0175e+04 ,4.5131e+04 ,3.0088e+04 ,1.5044e+04 ,2.3837e+01 /) - kbo(:, 1,37,13) = (/ & - &4.3597e+04 ,3.2698e+04 ,2.1799e+04 ,1.0900e+04 ,2.8678e+01 /) - kbo(:, 2,37,13) = (/ & - &4.8963e+04 ,3.6723e+04 ,2.4482e+04 ,1.2241e+04 ,2.7079e+01 /) - kbo(:, 3,37,13) = (/ & - &5.4655e+04 ,4.0991e+04 ,2.7328e+04 ,1.3664e+04 ,2.6274e+01 /) - kbo(:, 4,37,13) = (/ & - &6.0506e+04 ,4.5380e+04 ,3.0253e+04 ,1.5127e+04 ,2.5504e+01 /) - kbo(:, 5,37,13) = (/ & - &6.6353e+04 ,4.9765e+04 ,3.3177e+04 ,1.6589e+04 ,2.4385e+01 /) - kbo(:, 1,38,13) = (/ & - &4.7296e+04 ,3.5472e+04 ,2.3648e+04 ,1.1825e+04 ,2.9114e+01 /) - kbo(:, 2,38,13) = (/ & - &5.3691e+04 ,4.0269e+04 ,2.6846e+04 ,1.3423e+04 ,2.7730e+01 /) - kbo(:, 3,38,13) = (/ & - &6.0448e+04 ,4.5336e+04 ,3.0224e+04 ,1.5113e+04 ,2.6995e+01 /) - kbo(:, 4,38,13) = (/ & - &6.7408e+04 ,5.0556e+04 ,3.3704e+04 ,1.6852e+04 ,2.6164e+01 /) - kbo(:, 5,38,13) = (/ & - &7.4361e+04 ,5.5771e+04 ,3.7181e+04 ,1.8591e+04 ,2.5025e+01 /) - kbo(:, 1,39,13) = (/ & - &5.2787e+04 ,3.9591e+04 ,2.6394e+04 ,1.3198e+04 ,2.9543e+01 /) - kbo(:, 2,39,13) = (/ & - &6.0481e+04 ,4.5362e+04 ,3.0242e+04 ,1.5121e+04 ,2.8398e+01 /) - kbo(:, 3,39,13) = (/ & - &6.8644e+04 ,5.1483e+04 ,3.4323e+04 ,1.7162e+04 ,2.7686e+01 /) - kbo(:, 4,39,13) = (/ & - &7.7024e+04 ,5.7768e+04 ,3.8513e+04 ,1.9257e+04 ,2.6627e+01 /) - kbo(:, 5,39,13) = (/ & - &8.5404e+04 ,6.4053e+04 ,4.2703e+04 ,2.1352e+04 ,2.5499e+01 /) - kbo(:, 1,40,13) = (/ & - &5.4787e+04 ,4.1090e+04 ,2.7394e+04 ,1.3697e+04 ,3.0183e+01 /) - kbo(:, 2,40,13) = (/ & - &6.3323e+04 ,4.7492e+04 ,3.1662e+04 ,1.5831e+04 ,2.8961e+01 /) - kbo(:, 3,40,13) = (/ & - &7.2463e+04 ,5.4348e+04 ,3.6232e+04 ,1.8116e+04 ,2.8295e+01 /) - kbo(:, 4,40,13) = (/ & - &8.1867e+04 ,6.1400e+04 ,4.0933e+04 ,2.0467e+04 ,2.7184e+01 /) - kbo(:, 5,40,13) = (/ & - &9.1325e+04 ,6.8494e+04 ,4.5663e+04 ,2.2832e+04 ,2.5988e+01 /) - kbo(:, 1,41,13) = (/ & - &5.6764e+04 ,4.2573e+04 ,2.8383e+04 ,1.4192e+04 ,3.0791e+01 /) - kbo(:, 2,41,13) = (/ & - &6.6130e+04 ,4.9598e+04 ,3.3066e+04 ,1.6533e+04 ,2.9538e+01 /) - kbo(:, 3,41,13) = (/ & - &7.6243e+04 ,5.7183e+04 ,3.8122e+04 ,1.9062e+04 ,2.8774e+01 /) - kbo(:, 4,41,13) = (/ & - &8.6738e+04 ,6.5054e+04 ,4.3370e+04 ,2.1685e+04 ,2.7771e+01 /) - kbo(:, 5,41,13) = (/ & - &9.7338e+04 ,7.3004e+04 ,4.8670e+04 ,2.4335e+04 ,2.6481e+01 /) - kbo(:, 1,42,13) = (/ & - &5.9574e+04 ,4.4680e+04 ,2.9787e+04 ,1.4894e+04 ,3.1338e+01 /) - kbo(:, 2,42,13) = (/ & - &6.9874e+04 ,5.2405e+04 ,3.4937e+04 ,1.7469e+04 ,3.0066e+01 /) - kbo(:, 3,42,13) = (/ & - &8.1118e+04 ,6.0839e+04 ,4.0559e+04 ,2.0280e+04 ,2.9330e+01 /) - kbo(:, 4,42,13) = (/ & - &9.2915e+04 ,6.9686e+04 ,4.6457e+04 ,2.3229e+04 ,2.8281e+01 /) - kbo(:, 5,42,13) = (/ & - &1.0485e+05 ,7.8636e+04 ,5.2424e+04 ,2.6212e+04 ,2.6956e+01 /) - kbo(:, 1,43,13) = (/ & - &6.2565e+04 ,4.6924e+04 ,3.1283e+04 ,1.5642e+04 ,3.1947e+01 /) - kbo(:, 2,43,13) = (/ & - &7.3881e+04 ,5.5411e+04 ,3.6941e+04 ,1.8471e+04 ,3.0710e+01 /) - kbo(:, 3,43,13) = (/ & - &8.6376e+04 ,6.4783e+04 ,4.3189e+04 ,2.1595e+04 ,2.9823e+01 /) - kbo(:, 4,43,13) = (/ & - &9.9633e+04 ,7.4725e+04 ,4.9817e+04 ,2.4909e+04 ,2.8916e+01 /) - kbo(:, 5,43,13) = (/ & - &1.1317e+05 ,8.4879e+04 ,5.6586e+04 ,2.8294e+04 ,2.7433e+01 /) - kbo(:, 1,44,13) = (/ & - &6.6377e+04 ,4.9783e+04 ,3.3188e+04 ,1.6595e+04 ,3.2537e+01 /) - kbo(:, 2,44,13) = (/ & - &7.8875e+04 ,5.9156e+04 ,3.9437e+04 ,1.9719e+04 ,3.1463e+01 /) - kbo(:, 3,44,13) = (/ & - &9.2826e+04 ,6.9619e+04 ,4.6413e+04 ,2.3207e+04 ,3.0339e+01 /) - kbo(:, 4,44,13) = (/ & - &1.0782e+05 ,8.0864e+04 ,5.3909e+04 ,2.6955e+04 ,2.9519e+01 /) - kbo(:, 5,44,13) = (/ & - &1.2335e+05 ,9.2508e+04 ,6.1672e+04 ,3.0836e+04 ,2.7886e+01 /) - kbo(:, 1,45,13) = (/ & - &7.1874e+04 ,5.3905e+04 ,3.5937e+04 ,1.7969e+04 ,3.3146e+01 /) - kbo(:, 2,45,13) = (/ & - &8.5887e+04 ,6.4415e+04 ,4.2944e+04 ,2.1472e+04 ,3.2123e+01 /) - kbo(:, 3,45,13) = (/ & - &1.0168e+05 ,7.6262e+04 ,5.0841e+04 ,2.5421e+04 ,3.0727e+01 /) - kbo(:, 4,45,13) = (/ & - &1.1891e+05 ,8.9181e+04 ,5.9454e+04 ,2.9727e+04 ,3.0052e+01 /) - kbo(:, 5,45,13) = (/ & - &1.3695e+05 ,1.0272e+05 ,6.8477e+04 ,3.4239e+04 ,2.8423e+01 /) - kbo(:, 1,46,13) = (/ & - &7.8328e+04 ,5.8747e+04 ,3.9165e+04 ,1.9583e+04 ,3.3800e+01 /) - kbo(:, 2,46,13) = (/ & - &9.4082e+04 ,7.0562e+04 ,4.7041e+04 ,2.3521e+04 ,3.2751e+01 /) - kbo(:, 3,46,13) = (/ & - &1.1205e+05 ,8.4041e+04 ,5.6028e+04 ,2.8014e+04 ,3.1210e+01 /) - kbo(:, 4,46,13) = (/ & - &1.3188e+05 ,9.8910e+04 ,6.5940e+04 ,3.2971e+04 ,3.0670e+01 /) - kbo(:, 5,46,13) = (/ & - &1.5296e+05 ,1.1472e+05 ,7.6478e+04 ,3.8239e+04 ,2.9020e+01 /) - kbo(:, 1,47,13) = (/ & - &8.3810e+04 ,6.2858e+04 ,4.1906e+04 ,2.0953e+04 ,3.4456e+01 /) - kbo(:, 2,47,13) = (/ & - &1.0129e+05 ,7.5968e+04 ,5.0646e+04 ,2.5323e+04 ,3.3326e+01 /) - kbo(:, 3,47,13) = (/ & - &1.2133e+05 ,9.0998e+04 ,6.0666e+04 ,3.0333e+04 ,3.1897e+01 /) - kbo(:, 4,47,13) = (/ & - &1.4374e+05 ,1.0781e+05 ,7.1871e+04 ,3.5936e+04 ,3.1165e+01 /) - kbo(:, 5,47,13) = (/ & - &1.6790e+05 ,1.2593e+05 ,8.3952e+04 ,4.1976e+04 ,2.9653e+01 /) - kbo(:, 1,48,13) = (/ & - &9.2009e+04 ,6.9007e+04 ,4.6005e+04 ,2.3003e+04 ,3.5004e+01 /) - kbo(:, 2,48,13) = (/ & - &1.1207e+05 ,8.4051e+04 ,5.6034e+04 ,2.8018e+04 ,3.3918e+01 /) - kbo(:, 3,48,13) = (/ & - &1.3494e+05 ,1.0121e+05 ,6.7471e+04 ,3.3736e+04 ,3.2425e+01 /) - kbo(:, 4,48,13) = (/ & - &1.6083e+05 ,1.2063e+05 ,8.0418e+04 ,4.0210e+04 ,3.1652e+01 /) - kbo(:, 5,48,13) = (/ & - &1.8920e+05 ,1.4190e+05 ,9.4599e+04 ,4.7300e+04 ,3.0396e+01 /) - kbo(:, 1,49,13) = (/ & - &1.0515e+05 ,7.8866e+04 ,5.2577e+04 ,2.6289e+04 ,3.5598e+01 /) - kbo(:, 2,49,13) = (/ & - &1.2899e+05 ,9.6745e+04 ,6.4497e+04 ,3.2249e+04 ,3.4541e+01 /) - kbo(:, 3,49,13) = (/ & - &1.5618e+05 ,1.1714e+05 ,7.8092e+04 ,3.9046e+04 ,3.3166e+01 /) - kbo(:, 4,49,13) = (/ & - &1.8721e+05 ,1.4041e+05 ,9.3606e+04 ,4.6803e+04 ,3.2127e+01 /) - kbo(:, 5,49,13) = (/ & - &2.2166e+05 ,1.6624e+05 ,1.1083e+05 ,5.5414e+04 ,3.1114e+01 /) - kbo(:, 1,50,13) = (/ & - &1.1492e+05 ,8.6190e+04 ,5.7460e+04 ,2.8730e+04 ,3.5920e+01 /) - kbo(:, 2,50,13) = (/ & - &1.4177e+05 ,1.0633e+05 ,7.0884e+04 ,3.5442e+04 ,3.5009e+01 /) - kbo(:, 3,50,13) = (/ & - &1.7284e+05 ,1.2963e+05 ,8.6422e+04 ,4.3212e+04 ,3.3840e+01 /) - kbo(:, 4,50,13) = (/ & - &2.0816e+05 ,1.5612e+05 ,1.0408e+05 ,5.2042e+04 ,3.2614e+01 /) - kbo(:, 5,50,13) = (/ & - &2.4789e+05 ,1.8591e+05 ,1.2394e+05 ,6.1972e+04 ,3.1787e+01 /) - kbo(:, 1,51,13) = (/ & - &1.2316e+05 ,9.2372e+04 ,6.1582e+04 ,3.0791e+04 ,3.6248e+01 /) - kbo(:, 2,51,13) = (/ & - &1.5257e+05 ,1.1443e+05 ,7.6284e+04 ,3.8142e+04 ,3.5464e+01 /) - kbo(:, 3,51,13) = (/ & - &1.8735e+05 ,1.4051e+05 ,9.3677e+04 ,4.6839e+04 ,3.4431e+01 /) - kbo(:, 4,51,13) = (/ & - &2.2663e+05 ,1.6997e+05 ,1.1332e+05 ,5.6659e+04 ,3.2971e+01 /) - kbo(:, 5,51,13) = (/ & - &2.7128e+05 ,2.0346e+05 ,1.3564e+05 ,6.7820e+04 ,3.2477e+01 /) - kbo(:, 1,52,13) = (/ & - &1.3564e+05 ,1.0173e+05 ,6.7822e+04 ,3.3911e+04 ,3.6511e+01 /) - kbo(:, 2,52,13) = (/ & - &1.6873e+05 ,1.2655e+05 ,8.4367e+04 ,4.2184e+04 ,3.5955e+01 /) - kbo(:, 3,52,13) = (/ & - &2.0841e+05 ,1.5631e+05 ,1.0421e+05 ,5.2104e+04 ,3.4988e+01 /) - kbo(:, 4,52,13) = (/ & - &2.5356e+05 ,1.9017e+05 ,1.2678e+05 ,6.3390e+04 ,3.3412e+01 /) - kbo(:, 5,52,13) = (/ & - &3.0501e+05 ,2.2876e+05 ,1.5250e+05 ,7.6253e+04 ,3.3108e+01 /) - kbo(:, 1,53,13) = (/ & - &1.5552e+05 ,1.1664e+05 ,7.7762e+04 ,3.8882e+04 ,3.6856e+01 /) - kbo(:, 2,53,13) = (/ & - &1.9425e+05 ,1.4569e+05 ,9.7128e+04 ,4.8565e+04 ,3.6432e+01 /) - kbo(:, 3,53,13) = (/ & - &2.4103e+05 ,1.8077e+05 ,1.2051e+05 ,6.0258e+04 ,3.5535e+01 /) - kbo(:, 4,53,13) = (/ & - &2.9532e+05 ,2.2149e+05 ,1.4766e+05 ,7.3832e+04 ,3.3878e+01 /) - kbo(:, 5,53,13) = (/ & - &3.5673e+05 ,2.6755e+05 ,1.7837e+05 ,8.9184e+04 ,3.3830e+01 /) - kbo(:, 1,54,13) = (/ & - &1.5519e+05 ,1.1639e+05 ,7.7595e+04 ,3.8798e+04 ,3.7137e+01 /) - kbo(:, 2,54,13) = (/ & - &1.9455e+05 ,1.4591e+05 ,9.7277e+04 ,4.8639e+04 ,3.6719e+01 /) - kbo(:, 3,54,13) = (/ & - &2.4223e+05 ,1.8167e+05 ,1.2111e+05 ,6.0558e+04 ,3.5737e+01 /) - kbo(:, 4,54,13) = (/ & - &2.9863e+05 ,2.2398e+05 ,1.4932e+05 ,7.4660e+04 ,3.4182e+01 /) - kbo(:, 5,54,13) = (/ & - &3.6225e+05 ,2.7169e+05 ,1.8113e+05 ,9.0564e+04 ,3.4090e+01 /) - kbo(:, 1,55,13) = (/ & - &1.4179e+05 ,1.0634e+05 ,7.0895e+04 ,3.5448e+04 ,3.7500e+01 /) - kbo(:, 2,55,13) = (/ & - &1.7805e+05 ,1.3354e+05 ,8.9025e+04 ,4.4513e+04 ,3.6673e+01 /) - kbo(:, 3,55,13) = (/ & - &2.2250e+05 ,1.6688e+05 ,1.1125e+05 ,5.5626e+04 ,3.6002e+01 /) - kbo(:, 4,55,13) = (/ & - &2.7565e+05 ,2.0674e+05 ,1.3783e+05 ,6.8913e+04 ,3.4967e+01 /) - kbo(:, 5,55,13) = (/ & - &3.3613e+05 ,2.5210e+05 ,1.6807e+05 ,8.4034e+04 ,3.3605e+01 /) - kbo(:, 1,56,13) = (/ & - &1.2955e+05 ,9.7160e+04 ,6.4773e+04 ,3.2387e+04 ,3.7592e+01 /) - kbo(:, 2,56,13) = (/ & - &1.6291e+05 ,1.2218e+05 ,8.1452e+04 ,4.0726e+04 ,3.6892e+01 /) - kbo(:, 3,56,13) = (/ & - &2.0430e+05 ,1.5322e+05 ,1.0215e+05 ,5.1074e+04 ,3.6401e+01 /) - kbo(:, 4,56,13) = (/ & - &2.5407e+05 ,1.9055e+05 ,1.2704e+05 ,6.3518e+04 ,3.5416e+01 /) - kbo(:, 5,56,13) = (/ & - &3.1173e+05 ,2.3380e+05 ,1.5586e+05 ,7.7932e+04 ,3.3725e+01 /) - kbo(:, 1,57,13) = (/ & - &1.1844e+05 ,8.8830e+04 ,5.9220e+04 ,2.9610e+04 ,3.7590e+01 /) - kbo(:, 2,57,13) = (/ & - &1.4902e+05 ,1.1176e+05 ,7.4508e+04 ,3.7254e+04 ,3.7340e+01 /) - kbo(:, 3,57,13) = (/ & - &1.8747e+05 ,1.4060e+05 ,9.3736e+04 ,4.6868e+04 ,3.6437e+01 /) - kbo(:, 4,57,13) = (/ & - &2.3395e+05 ,1.7546e+05 ,1.1697e+05 ,5.8487e+04 ,3.5598e+01 /) - kbo(:, 5,57,13) = (/ & - &2.8870e+05 ,2.1653e+05 ,1.4435e+05 ,7.2175e+04 ,3.4562e+01 /) - kbo(:, 1,58,13) = (/ & - &2.8654e+04 ,2.6272e+04 ,2.2526e+04 ,1.5777e+04 ,3.7286e+01 /) - kbo(:, 2,58,13) = (/ & - &3.6090e+04 ,3.3089e+04 ,2.8371e+04 ,1.9871e+04 ,3.7547e+01 /) - kbo(:, 3,58,13) = (/ & - &4.5492e+04 ,4.1710e+04 ,3.5762e+04 ,2.5048e+04 ,3.6650e+01 /) - kbo(:, 4,58,13) = (/ & - &5.6953e+04 ,5.2217e+04 ,4.4772e+04 ,3.1358e+04 ,3.6005e+01 /) - kbo(:, 5,58,13) = (/ & - &7.0617e+04 ,6.4745e+04 ,5.5513e+04 ,3.8881e+04 ,3.4983e+01 /) - kbo(:, 1,59,13) = (/ & - &3.2425e+04 ,2.8312e+04 ,2.2583e+04 ,1.4053e+04 ,3.7337e+01 /) - kbo(:, 2,59,13) = (/ & - &4.0874e+04 ,3.5689e+04 ,2.8468e+04 ,1.7715e+04 ,3.7354e+01 /) - kbo(:, 3,59,13) = (/ & - &5.1569e+04 ,4.5029e+04 ,3.5917e+04 ,2.2350e+04 ,3.7146e+01 /) - kbo(:, 4,59,13) = (/ & - &6.4659e+04 ,5.6458e+04 ,4.5034e+04 ,2.8023e+04 ,3.5794e+01 /) - kbo(:, 5,59,13) = (/ & - &8.0312e+04 ,7.0125e+04 ,5.5936e+04 ,3.4807e+04 ,3.4858e+01 /) - kbo(:, 1,13,14) = (/ & - &5.5354e+05 ,4.1516e+05 ,2.7677e+05 ,1.3839e+05 ,6.6359e+00 /) - kbo(:, 2,13,14) = (/ & - &5.3662e+05 ,4.0247e+05 ,2.6831e+05 ,1.3416e+05 ,6.3521e+00 /) - kbo(:, 3,13,14) = (/ & - &5.2321e+05 ,3.9241e+05 ,2.6161e+05 ,1.3080e+05 ,6.1777e+00 /) - kbo(:, 4,13,14) = (/ & - &5.1223e+05 ,3.8417e+05 ,2.5612e+05 ,1.2806e+05 ,5.8113e+00 /) - kbo(:, 5,13,14) = (/ & - &5.0254e+05 ,3.7690e+05 ,2.5127e+05 ,1.2564e+05 ,5.1461e+00 /) - kbo(:, 1,14,14) = (/ & - &3.6531e+05 ,2.7398e+05 ,1.8265e+05 ,9.1327e+04 ,7.3146e+00 /) - kbo(:, 2,14,14) = (/ & - &3.5777e+05 ,2.6833e+05 ,1.7888e+05 ,8.9442e+04 ,7.0661e+00 /) - kbo(:, 3,14,14) = (/ & - &3.5166e+05 ,2.6375e+05 ,1.7583e+05 ,8.7915e+04 ,6.6597e+00 /) - kbo(:, 4,14,14) = (/ & - &3.4675e+05 ,2.6006e+05 ,1.7337e+05 ,8.6687e+04 ,6.5607e+00 /) - kbo(:, 5,14,14) = (/ & - &3.4224e+05 ,2.5668e+05 ,1.7112e+05 ,8.5559e+04 ,6.0728e+00 /) - kbo(:, 1,15,14) = (/ & - &2.5038e+05 ,1.8779e+05 ,1.2519e+05 ,6.2598e+04 ,8.1437e+00 /) - kbo(:, 2,15,14) = (/ & - &2.4740e+05 ,1.8555e+05 ,1.2370e+05 ,6.1853e+04 ,7.8645e+00 /) - kbo(:, 3,15,14) = (/ & - &2.4508e+05 ,1.8381e+05 ,1.2254e+05 ,6.1272e+04 ,7.4907e+00 /) - kbo(:, 4,15,14) = (/ & - &2.4271e+05 ,1.8203e+05 ,1.2136e+05 ,6.0680e+04 ,7.2641e+00 /) - kbo(:, 5,15,14) = (/ & - &2.4052e+05 ,1.8039e+05 ,1.2026e+05 ,6.0131e+04 ,7.0682e+00 /) - kbo(:, 1,16,14) = (/ & - &2.0782e+05 ,1.5587e+05 ,1.0391e+05 ,5.1957e+04 ,9.0703e+00 /) - kbo(:, 2,16,14) = (/ & - &2.0661e+05 ,1.5496e+05 ,1.0331e+05 ,5.1654e+04 ,8.7622e+00 /) - kbo(:, 3,16,14) = (/ & - &2.0513e+05 ,1.5385e+05 ,1.0257e+05 ,5.1284e+04 ,8.4635e+00 /) - kbo(:, 4,16,14) = (/ & - &2.0374e+05 ,1.5280e+05 ,1.0187e+05 ,5.0936e+04 ,8.1015e+00 /) - kbo(:, 5,16,14) = (/ & - &2.0191e+05 ,1.5143e+05 ,1.0096e+05 ,5.0479e+04 ,7.9045e+00 /) - kbo(:, 1,17,14) = (/ & - &1.8037e+05 ,1.3528e+05 ,9.0185e+04 ,4.5093e+04 ,1.0108e+01 /) - kbo(:, 2,17,14) = (/ & - &1.7972e+05 ,1.3479e+05 ,8.9862e+04 ,4.4932e+04 ,9.7857e+00 /) - kbo(:, 3,17,14) = (/ & - &1.7906e+05 ,1.3430e+05 ,8.9533e+04 ,4.4767e+04 ,9.4761e+00 /) - kbo(:, 4,17,14) = (/ & - &1.7788e+05 ,1.3341e+05 ,8.8942e+04 ,4.4472e+04 ,9.0551e+00 /) - kbo(:, 5,17,14) = (/ & - &1.7662e+05 ,1.3247e+05 ,8.8311e+04 ,4.4156e+04 ,8.8726e+00 /) - kbo(:, 1,18,14) = (/ & - &1.6160e+05 ,1.2120e+05 ,8.0801e+04 ,4.0401e+04 ,1.1327e+01 /) - kbo(:, 2,18,14) = (/ & - &1.6141e+05 ,1.2106e+05 ,8.0704e+04 ,4.0353e+04 ,1.1010e+01 /) - kbo(:, 3,18,14) = (/ & - &1.6076e+05 ,1.2057e+05 ,8.0382e+04 ,4.0192e+04 ,1.0693e+01 /) - kbo(:, 4,18,14) = (/ & - &1.6001e+05 ,1.2001e+05 ,8.0005e+04 ,4.0003e+04 ,1.0193e+01 /) - kbo(:, 5,18,14) = (/ & - &1.5881e+05 ,1.1911e+05 ,7.9406e+04 ,3.9704e+04 ,1.0071e+01 /) - kbo(:, 1,19,14) = (/ & - &1.4270e+05 ,1.0702e+05 ,7.1350e+04 ,3.5676e+04 ,1.2821e+01 /) - kbo(:, 2,19,14) = (/ & - &1.4247e+05 ,1.0685e+05 ,7.1236e+04 ,3.5619e+04 ,1.2498e+01 /) - kbo(:, 3,19,14) = (/ & - &1.4204e+05 ,1.0653e+05 ,7.1022e+04 ,3.5511e+04 ,1.2171e+01 /) - kbo(:, 4,19,14) = (/ & - &1.4126e+05 ,1.0594e+05 ,7.0629e+04 ,3.5315e+04 ,1.1680e+01 /) - kbo(:, 5,19,14) = (/ & - &1.4024e+05 ,1.0518e+05 ,7.0119e+04 ,3.5060e+04 ,1.1491e+01 /) - kbo(:, 1,20,14) = (/ & - &1.3563e+05 ,1.0173e+05 ,6.7817e+04 ,3.3909e+04 ,1.4618e+01 /) - kbo(:, 2,20,14) = (/ & - &1.3541e+05 ,1.0156e+05 ,6.7708e+04 ,3.3855e+04 ,1.4263e+01 /) - kbo(:, 3,20,14) = (/ & - &1.3484e+05 ,1.0113e+05 ,6.7419e+04 ,3.3710e+04 ,1.3906e+01 /) - kbo(:, 4,20,14) = (/ & - &1.3404e+05 ,1.0053e+05 ,6.7023e+04 ,3.3512e+04 ,1.3385e+01 /) - kbo(:, 5,20,14) = (/ & - &1.3293e+05 ,9.9699e+04 ,6.6466e+04 ,3.3234e+04 ,1.3122e+01 /) - kbo(:, 1,21,14) = (/ & - &1.3198e+05 ,9.8983e+04 ,6.5989e+04 ,3.2995e+04 ,1.6661e+01 /) - kbo(:, 2,21,14) = (/ & - &1.3158e+05 ,9.8688e+04 ,6.5792e+04 ,3.2897e+04 ,1.6248e+01 /) - kbo(:, 3,21,14) = (/ & - &1.3094e+05 ,9.8202e+04 ,6.5468e+04 ,3.2735e+04 ,1.5812e+01 /) - kbo(:, 4,21,14) = (/ & - &1.3001e+05 ,9.7504e+04 ,6.5003e+04 ,3.2502e+04 ,1.5225e+01 /) - kbo(:, 5,21,14) = (/ & - &1.2884e+05 ,9.6632e+04 ,6.4422e+04 ,3.2211e+04 ,1.4867e+01 /) - kbo(:, 1,22,14) = (/ & - &1.3028e+05 ,9.7707e+04 ,6.5139e+04 ,3.2570e+04 ,1.8806e+01 /) - kbo(:, 2,22,14) = (/ & - &1.2981e+05 ,9.7355e+04 ,6.4904e+04 ,3.2452e+04 ,1.8310e+01 /) - kbo(:, 3,22,14) = (/ & - &1.2902e+05 ,9.6763e+04 ,6.4509e+04 ,3.2255e+04 ,1.7798e+01 /) - kbo(:, 4,22,14) = (/ & - &1.2795e+05 ,9.5966e+04 ,6.3978e+04 ,3.1989e+04 ,1.7136e+01 /) - kbo(:, 5,22,14) = (/ & - &1.2666e+05 ,9.4996e+04 ,6.3331e+04 ,3.1666e+04 ,1.6711e+01 /) - kbo(:, 1,23,14) = (/ & - &1.2794e+05 ,9.5952e+04 ,6.3968e+04 ,3.1985e+04 ,2.1073e+01 /) - kbo(:, 2,23,14) = (/ & - &1.2735e+05 ,9.5515e+04 ,6.3677e+04 ,3.1839e+04 ,2.0511e+01 /) - kbo(:, 3,23,14) = (/ & - &1.2647e+05 ,9.4850e+04 ,6.3234e+04 ,3.1617e+04 ,1.9930e+01 /) - kbo(:, 4,23,14) = (/ & - &1.2537e+05 ,9.4025e+04 ,6.2684e+04 ,3.1342e+04 ,1.9174e+01 /) - kbo(:, 5,23,14) = (/ & - &1.2398e+05 ,9.2985e+04 ,6.1990e+04 ,3.0996e+04 ,1.8667e+01 /) - kbo(:, 1,24,14) = (/ & - &1.2343e+05 ,9.2570e+04 ,6.1714e+04 ,3.0858e+04 ,2.3485e+01 /) - kbo(:, 2,24,14) = (/ & - &1.2276e+05 ,9.2074e+04 ,6.1383e+04 ,3.0692e+04 ,2.2824e+01 /) - kbo(:, 3,24,14) = (/ & - &1.2194e+05 ,9.1458e+04 ,6.0973e+04 ,3.0487e+04 ,2.2153e+01 /) - kbo(:, 4,24,14) = (/ & - &1.2080e+05 ,9.0601e+04 ,6.0401e+04 ,3.0201e+04 ,2.1291e+01 /) - kbo(:, 5,24,14) = (/ & - &1.1949e+05 ,8.9617e+04 ,5.9745e+04 ,2.9873e+04 ,2.0633e+01 /) - kbo(:, 1,25,14) = (/ & - &1.1905e+05 ,8.9291e+04 ,5.9528e+04 ,2.9764e+04 ,2.5966e+01 /) - kbo(:, 2,25,14) = (/ & - &1.1853e+05 ,8.8894e+04 ,5.9263e+04 ,2.9632e+04 ,2.5184e+01 /) - kbo(:, 3,25,14) = (/ & - &1.1769e+05 ,8.8271e+04 ,5.8848e+04 ,2.9424e+04 ,2.4373e+01 /) - kbo(:, 4,25,14) = (/ & - &1.1666e+05 ,8.7497e+04 ,5.8331e+04 ,2.9166e+04 ,2.3367e+01 /) - kbo(:, 5,25,14) = (/ & - &1.1542e+05 ,8.6565e+04 ,5.7710e+04 ,2.8855e+04 ,2.2586e+01 /) - kbo(:, 1,26,14) = (/ & - &1.1553e+05 ,8.6651e+04 ,5.7768e+04 ,2.8884e+04 ,2.8441e+01 /) - kbo(:, 2,26,14) = (/ & - &1.1511e+05 ,8.6329e+04 ,5.7553e+04 ,2.8777e+04 ,2.7500e+01 /) - kbo(:, 3,26,14) = (/ & - &1.1443e+05 ,8.5820e+04 ,5.7213e+04 ,2.8607e+04 ,2.6532e+01 /) - kbo(:, 4,26,14) = (/ & - &1.1356e+05 ,8.5172e+04 ,5.6781e+04 ,2.8391e+04 ,2.5362e+01 /) - kbo(:, 5,26,14) = (/ & - &1.1241e+05 ,8.4309e+04 ,5.6206e+04 ,2.8103e+04 ,2.4468e+01 /) - kbo(:, 1,27,14) = (/ & - &1.1545e+05 ,8.6587e+04 ,5.7725e+04 ,2.8863e+04 ,3.0839e+01 /) - kbo(:, 2,27,14) = (/ & - &1.1514e+05 ,8.6352e+04 ,5.7568e+04 ,2.8785e+04 ,2.9713e+01 /) - kbo(:, 3,27,14) = (/ & - &1.1466e+05 ,8.5998e+04 ,5.7332e+04 ,2.8667e+04 ,2.8580e+01 /) - kbo(:, 4,27,14) = (/ & - &1.1391e+05 ,8.5436e+04 ,5.6958e+04 ,2.8479e+04 ,2.7213e+01 /) - kbo(:, 5,27,14) = (/ & - &1.1293e+05 ,8.4701e+04 ,5.6467e+04 ,2.8234e+04 ,2.6212e+01 /) - kbo(:, 1,28,14) = (/ & - &1.1769e+05 ,8.8268e+04 ,5.8845e+04 ,2.9423e+04 ,3.3091e+01 /) - kbo(:, 2,28,14) = (/ & - &1.1765e+05 ,8.8234e+04 ,5.8823e+04 ,2.9412e+04 ,3.1766e+01 /) - kbo(:, 3,28,14) = (/ & - &1.1733e+05 ,8.7997e+04 ,5.8665e+04 ,2.9333e+04 ,3.0463e+01 /) - kbo(:, 4,28,14) = (/ & - &1.1677e+05 ,8.7580e+04 ,5.8387e+04 ,2.9194e+04 ,2.8874e+01 /) - kbo(:, 5,28,14) = (/ & - &1.1593e+05 ,8.6950e+04 ,5.7967e+04 ,2.8984e+04 ,2.7821e+01 /) - kbo(:, 1,29,14) = (/ & - &1.2676e+05 ,9.5071e+04 ,6.3381e+04 ,3.1691e+04 ,3.5131e+01 /) - kbo(:, 2,29,14) = (/ & - &1.2709e+05 ,9.5318e+04 ,6.3545e+04 ,3.1773e+04 ,3.3613e+01 /) - kbo(:, 3,29,14) = (/ & - &1.2701e+05 ,9.5260e+04 ,6.3507e+04 ,3.1754e+04 ,3.1981e+01 /) - kbo(:, 4,29,14) = (/ & - &1.2660e+05 ,9.4952e+04 ,6.3301e+04 ,3.1651e+04 ,3.0369e+01 /) - kbo(:, 5,29,14) = (/ & - &1.2589e+05 ,9.4414e+04 ,6.2943e+04 ,3.1472e+04 ,2.9250e+01 /) - kbo(:, 1,30,14) = (/ & - &1.3959e+05 ,1.0469e+05 ,6.9793e+04 ,3.4897e+04 ,3.6931e+01 /) - kbo(:, 2,30,14) = (/ & - &1.4034e+05 ,1.0525e+05 ,7.0169e+04 ,3.5085e+04 ,3.5216e+01 /) - kbo(:, 3,30,14) = (/ & - &1.4057e+05 ,1.0543e+05 ,7.0285e+04 ,3.5143e+04 ,3.3253e+01 /) - kbo(:, 4,30,14) = (/ & - &1.4040e+05 ,1.0530e+05 ,7.0200e+04 ,3.5100e+04 ,3.1871e+01 /) - kbo(:, 5,30,14) = (/ & - &1.3970e+05 ,1.0477e+05 ,6.9850e+04 ,3.4925e+04 ,3.0435e+01 /) - kbo(:, 1,31,14) = (/ & - &1.6150e+05 ,1.2112e+05 ,8.0748e+04 ,4.0374e+04 ,3.8448e+01 /) - kbo(:, 2,31,14) = (/ & - &1.6274e+05 ,1.2205e+05 ,8.1369e+04 ,4.0685e+04 ,3.6340e+01 /) - kbo(:, 3,31,14) = (/ & - &1.6341e+05 ,1.2256e+05 ,8.1707e+04 ,4.0854e+04 ,3.4532e+01 /) - kbo(:, 4,31,14) = (/ & - &1.6341e+05 ,1.2256e+05 ,8.1706e+04 ,4.0853e+04 ,3.3032e+01 /) - kbo(:, 5,31,14) = (/ & - &1.6281e+05 ,1.2211e+05 ,8.1407e+04 ,4.0704e+04 ,3.1374e+01 /) - kbo(:, 1,32,14) = (/ & - &1.8902e+05 ,1.4177e+05 ,9.4511e+04 ,4.7256e+04 ,3.9673e+01 /) - kbo(:, 2,32,14) = (/ & - &1.9095e+05 ,1.4322e+05 ,9.5478e+04 ,4.7739e+04 ,3.7210e+01 /) - kbo(:, 3,32,14) = (/ & - &1.9208e+05 ,1.4406e+05 ,9.6041e+04 ,4.8021e+04 ,3.5668e+01 /) - kbo(:, 4,32,14) = (/ & - &1.9230e+05 ,1.4423e+05 ,9.6153e+04 ,4.8077e+04 ,3.3902e+01 /) - kbo(:, 5,32,14) = (/ & - &1.9178e+05 ,1.4383e+05 ,9.5890e+04 ,4.7945e+04 ,3.1255e+01 /) - kbo(:, 1,33,14) = (/ & - &2.2548e+05 ,1.6911e+05 ,1.1274e+05 ,5.6370e+04 ,4.0253e+01 /) - kbo(:, 2,33,14) = (/ & - &2.2820e+05 ,1.7115e+05 ,1.1410e+05 ,5.7051e+04 ,3.8356e+01 /) - kbo(:, 3,33,14) = (/ & - &2.2980e+05 ,1.7235e+05 ,1.1490e+05 ,5.7450e+04 ,3.6454e+01 /) - kbo(:, 4,33,14) = (/ & - &2.3033e+05 ,1.7275e+05 ,1.1517e+05 ,5.7584e+04 ,3.3797e+01 /) - kbo(:, 5,33,14) = (/ & - &2.2985e+05 ,1.7239e+05 ,1.1492e+05 ,5.7463e+04 ,3.1363e+01 /) - kbo(:, 1,34,14) = (/ & - &2.6250e+05 ,1.9687e+05 ,1.3125e+05 ,6.5624e+04 ,4.1136e+01 /) - kbo(:, 2,34,14) = (/ & - &2.6605e+05 ,1.9954e+05 ,1.3302e+05 ,6.6512e+04 ,3.9143e+01 /) - kbo(:, 3,34,14) = (/ & - &2.6820e+05 ,2.0115e+05 ,1.3410e+05 ,6.7050e+04 ,3.6807e+01 /) - kbo(:, 4,34,14) = (/ & - &2.6900e+05 ,2.0175e+05 ,1.3450e+05 ,6.7251e+04 ,3.3160e+01 /) - kbo(:, 5,34,14) = (/ & - &2.6861e+05 ,2.0146e+05 ,1.3431e+05 ,6.7153e+04 ,3.1344e+01 /) - kbo(:, 1,35,14) = (/ & - &3.0587e+05 ,2.2940e+05 ,1.5293e+05 ,7.6467e+04 ,4.2099e+01 /) - kbo(:, 2,35,14) = (/ & - &3.1048e+05 ,2.3286e+05 ,1.5524e+05 ,7.7621e+04 ,3.9785e+01 /) - kbo(:, 3,35,14) = (/ & - &3.1341e+05 ,2.3506e+05 ,1.5670e+05 ,7.8352e+04 ,3.6072e+01 /) - kbo(:, 4,35,14) = (/ & - &3.1462e+05 ,2.3596e+05 ,1.5731e+05 ,7.8655e+04 ,3.3490e+01 /) - kbo(:, 5,35,14) = (/ & - &3.1438e+05 ,2.3579e+05 ,1.5719e+05 ,7.8596e+04 ,3.1828e+01 /) - kbo(:, 1,36,14) = (/ & - &3.5380e+05 ,2.6535e+05 ,1.7690e+05 ,8.8450e+04 ,4.2948e+01 /) - kbo(:, 2,36,14) = (/ & - &3.5987e+05 ,2.6990e+05 ,1.7993e+05 ,8.9967e+04 ,3.9945e+01 /) - kbo(:, 3,36,14) = (/ & - &3.6383e+05 ,2.7287e+05 ,1.8191e+05 ,9.0957e+04 ,3.5908e+01 /) - kbo(:, 4,36,14) = (/ & - &3.6571e+05 ,2.7429e+05 ,1.8286e+05 ,9.1429e+04 ,3.3881e+01 /) - kbo(:, 5,36,14) = (/ & - &3.6576e+05 ,2.7432e+05 ,1.8288e+05 ,9.1441e+04 ,3.2580e+01 /) - kbo(:, 1,37,14) = (/ & - &3.9789e+05 ,2.9842e+05 ,1.9894e+05 ,9.9472e+04 ,4.3924e+01 /) - kbo(:, 2,37,14) = (/ & - &4.0582e+05 ,3.0436e+05 ,2.0291e+05 ,1.0145e+05 ,4.0613e+01 /) - kbo(:, 3,37,14) = (/ & - &4.1126e+05 ,3.0845e+05 ,2.0563e+05 ,1.0282e+05 ,3.6440e+01 /) - kbo(:, 4,37,14) = (/ & - &4.1422e+05 ,3.1066e+05 ,2.0711e+05 ,1.0355e+05 ,3.4966e+01 /) - kbo(:, 5,37,14) = (/ & - &4.1491e+05 ,3.1118e+05 ,2.0745e+05 ,1.0373e+05 ,3.3736e+01 /) - kbo(:, 1,38,14) = (/ & - &4.5404e+05 ,3.4053e+05 ,2.2702e+05 ,1.1351e+05 ,4.4908e+01 /) - kbo(:, 2,38,14) = (/ & - &4.6441e+05 ,3.4830e+05 ,2.3220e+05 ,1.1610e+05 ,4.0968e+01 /) - kbo(:, 3,38,14) = (/ & - &4.7167e+05 ,3.5375e+05 ,2.3583e+05 ,1.1792e+05 ,3.7185e+01 /) - kbo(:, 4,38,14) = (/ & - &4.7591e+05 ,3.5693e+05 ,2.3796e+05 ,1.1898e+05 ,3.5958e+01 /) - kbo(:, 5,38,14) = (/ & - &4.7747e+05 ,3.5810e+05 ,2.3873e+05 ,1.1937e+05 ,3.4345e+01 /) - kbo(:, 1,39,14) = (/ & - &5.3006e+05 ,3.9755e+05 ,2.6503e+05 ,1.3252e+05 ,4.5571e+01 /) - kbo(:, 2,39,14) = (/ & - &5.4370e+05 ,4.0778e+05 ,2.7185e+05 ,1.3593e+05 ,4.1350e+01 /) - kbo(:, 3,39,14) = (/ & - &5.5324e+05 ,4.1494e+05 ,2.7663e+05 ,1.3831e+05 ,3.8461e+01 /) - kbo(:, 4,39,14) = (/ & - &5.5931e+05 ,4.1948e+05 ,2.7966e+05 ,1.3983e+05 ,3.7172e+01 /) - kbo(:, 5,39,14) = (/ & - &5.6198e+05 ,4.2149e+05 ,2.8099e+05 ,1.4050e+05 ,3.5387e+01 /) - kbo(:, 1,40,14) = (/ & - &5.7962e+05 ,4.3471e+05 ,2.8981e+05 ,1.4490e+05 ,4.6708e+01 /) - kbo(:, 2,40,14) = (/ & - &5.9661e+05 ,4.4745e+05 ,2.9830e+05 ,1.4915e+05 ,4.2510e+01 /) - kbo(:, 3,40,14) = (/ & - &6.0879e+05 ,4.5659e+05 ,3.0439e+05 ,1.5220e+05 ,3.9273e+01 /) - kbo(:, 4,40,14) = (/ & - &6.1695e+05 ,4.6271e+05 ,3.0847e+05 ,1.5424e+05 ,3.8101e+01 /) - kbo(:, 5,40,14) = (/ & - &6.2122e+05 ,4.6592e+05 ,3.1061e+05 ,1.5530e+05 ,3.6493e+01 /) - kbo(:, 1,41,14) = (/ & - &6.3170e+05 ,4.7378e+05 ,3.1585e+05 ,1.5793e+05 ,4.7871e+01 /) - kbo(:, 2,41,14) = (/ & - &6.5265e+05 ,4.8949e+05 ,3.2633e+05 ,1.6317e+05 ,4.3729e+01 /) - kbo(:, 3,41,14) = (/ & - &6.6799e+05 ,5.0099e+05 ,3.3400e+05 ,1.6700e+05 ,4.0263e+01 /) - kbo(:, 4,41,14) = (/ & - &6.7856e+05 ,5.0892e+05 ,3.3928e+05 ,1.6964e+05 ,3.8971e+01 /) - kbo(:, 5,41,14) = (/ & - &6.8482e+05 ,5.1361e+05 ,3.4241e+05 ,1.7121e+05 ,3.7519e+01 /) - kbo(:, 1,42,14) = (/ & - &6.9554e+05 ,5.2166e+05 ,3.4777e+05 ,1.7388e+05 ,4.9144e+01 /) - kbo(:, 2,42,14) = (/ & - &7.2122e+05 ,5.4091e+05 ,3.6061e+05 ,1.8030e+05 ,4.4903e+01 /) - kbo(:, 3,42,14) = (/ & - &7.4054e+05 ,5.5540e+05 ,3.7027e+05 ,1.8513e+05 ,4.1239e+01 /) - kbo(:, 4,42,14) = (/ & - &7.5407e+05 ,5.6555e+05 ,3.7703e+05 ,1.8852e+05 ,4.0019e+01 /) - kbo(:, 5,42,14) = (/ & - &7.6271e+05 ,5.7203e+05 ,3.8135e+05 ,1.9067e+05 ,3.8545e+01 /) - kbo(:, 1,43,14) = (/ & - &7.7014e+05 ,5.7761e+05 ,3.8508e+05 ,1.9254e+05 ,5.0575e+01 /) - kbo(:, 2,43,14) = (/ & - &8.0215e+05 ,6.0161e+05 ,4.0108e+05 ,2.0054e+05 ,4.6180e+01 /) - kbo(:, 3,43,14) = (/ & - &8.2687e+05 ,6.2015e+05 ,4.1344e+05 ,2.0672e+05 ,4.2529e+01 /) - kbo(:, 4,43,14) = (/ & - &8.4441e+05 ,6.3331e+05 ,4.2221e+05 ,2.1110e+05 ,4.0958e+01 /) - kbo(:, 5,43,14) = (/ & - &8.5614e+05 ,6.4211e+05 ,4.2807e+05 ,2.1404e+05 ,3.9632e+01 /) - kbo(:, 1,44,14) = (/ & - &8.6239e+05 ,6.4679e+05 ,4.3119e+05 ,2.1559e+05 ,5.2080e+01 /) - kbo(:, 2,44,14) = (/ & - &9.0261e+05 ,6.7696e+05 ,4.5130e+05 ,2.2565e+05 ,4.7569e+01 /) - kbo(:, 3,44,14) = (/ & - &9.3442e+05 ,7.0081e+05 ,4.6721e+05 ,2.3360e+05 ,4.3904e+01 /) - kbo(:, 4,44,14) = (/ & - &9.5755e+05 ,7.1816e+05 ,4.7877e+05 ,2.3938e+05 ,4.2000e+01 /) - kbo(:, 5,44,14) = (/ & - &9.7341e+05 ,7.3005e+05 ,4.8670e+05 ,2.4335e+05 ,4.0861e+01 /) - kbo(:, 1,45,14) = (/ & - &9.8377e+05 ,7.3783e+05 ,4.9189e+05 ,2.4594e+05 ,5.3464e+01 /) - kbo(:, 2,45,14) = (/ & - &1.0352e+06 ,7.7641e+05 ,5.1760e+05 ,2.5880e+05 ,4.8989e+01 /) - kbo(:, 3,45,14) = (/ & - &1.0762e+06 ,8.0713e+05 ,5.3809e+05 ,2.6904e+05 ,4.5355e+01 /) - kbo(:, 4,45,14) = (/ & - &1.1070e+06 ,8.3023e+05 ,5.5349e+05 ,2.7674e+05 ,4.3217e+01 /) - kbo(:, 5,45,14) = (/ & - &1.1287e+06 ,8.4649e+05 ,5.6433e+05 ,2.8216e+05 ,4.1953e+01 /) - kbo(:, 1,46,14) = (/ & - &1.1307e+06 ,8.4801e+05 ,5.6534e+05 ,2.8267e+05 ,5.4903e+01 /) - kbo(:, 2,46,14) = (/ & - &1.1967e+06 ,8.9750e+05 ,5.9834e+05 ,2.9917e+05 ,5.0473e+01 /) - kbo(:, 3,46,14) = (/ & - &1.2497e+06 ,9.3728e+05 ,6.2485e+05 ,3.1243e+05 ,4.7017e+01 /) - kbo(:, 4,46,14) = (/ & - &1.2910e+06 ,9.6823e+05 ,6.4549e+05 ,3.2274e+05 ,4.4343e+01 /) - kbo(:, 5,46,14) = (/ & - &1.3205e+06 ,9.9037e+05 ,6.6025e+05 ,3.3012e+05 ,4.3085e+01 /) - kbo(:, 1,47,14) = (/ & - &1.2818e+06 ,9.6133e+05 ,6.4089e+05 ,3.2045e+05 ,5.6436e+01 /) - kbo(:, 2,47,14) = (/ & - &1.3655e+06 ,1.0241e+06 ,6.8273e+05 ,3.4137e+05 ,5.2412e+01 /) - kbo(:, 3,47,14) = (/ & - &1.4341e+06 ,1.0756e+06 ,7.1708e+05 ,3.5854e+05 ,4.8254e+01 /) - kbo(:, 4,47,14) = (/ & - &1.4885e+06 ,1.1164e+06 ,7.4427e+05 ,3.7214e+05 ,4.5497e+01 /) - kbo(:, 5,47,14) = (/ & - &1.5285e+06 ,1.1464e+06 ,7.6425e+05 ,3.8213e+05 ,4.4276e+01 /) - kbo(:, 1,48,14) = (/ & - &1.4912e+06 ,1.1184e+06 ,7.4558e+05 ,3.7279e+05 ,5.8070e+01 /) - kbo(:, 2,48,14) = (/ & - &1.5992e+06 ,1.1994e+06 ,7.9959e+05 ,3.9979e+05 ,5.4067e+01 /) - kbo(:, 3,48,14) = (/ & - &1.6898e+06 ,1.2674e+06 ,8.4492e+05 ,4.2246e+05 ,5.0095e+01 /) - kbo(:, 4,48,14) = (/ & - &1.7626e+06 ,1.3220e+06 ,8.8132e+05 ,4.4066e+05 ,4.6945e+01 /) - kbo(:, 5,48,14) = (/ & - &1.8180e+06 ,1.3635e+06 ,9.0900e+05 ,4.5450e+05 ,4.5438e+01 /) - kbo(:, 1,49,14) = (/ & - &1.8033e+06 ,1.3525e+06 ,9.0165e+05 ,4.5083e+05 ,5.9742e+01 /) - kbo(:, 2,49,14) = (/ & - &1.9472e+06 ,1.4604e+06 ,9.7361e+05 ,4.8680e+05 ,5.5654e+01 /) - kbo(:, 3,49,14) = (/ & - &2.0706e+06 ,1.5529e+06 ,1.0353e+06 ,5.1764e+05 ,5.1796e+01 /) - kbo(:, 4,49,14) = (/ & - &2.1711e+06 ,1.6283e+06 ,1.0855e+06 ,5.4277e+05 ,4.8429e+01 /) - kbo(:, 5,49,14) = (/ & - &2.2497e+06 ,1.6872e+06 ,1.1248e+06 ,5.6241e+05 ,4.6805e+01 /) - kbo(:, 1,50,14) = (/ & - &2.0759e+06 ,1.5569e+06 ,1.0379e+06 ,5.1897e+05 ,6.1720e+01 /) - kbo(:, 2,50,14) = (/ & - &2.2580e+06 ,1.6935e+06 ,1.1290e+06 ,5.6451e+05 ,5.7265e+01 /) - kbo(:, 3,50,14) = (/ & - &2.4154e+06 ,1.8116e+06 ,1.2077e+06 ,6.0386e+05 ,5.3335e+01 /) - kbo(:, 4,50,14) = (/ & - &2.5463e+06 ,1.9097e+06 ,1.2731e+06 ,6.3657e+05 ,5.0026e+01 /) - kbo(:, 5,50,14) = (/ & - &2.6508e+06 ,1.9881e+06 ,1.3254e+06 ,6.6270e+05 ,4.7879e+01 /) - kbo(:, 1,51,14) = (/ & - &2.3343e+06 ,1.7507e+06 ,1.1671e+06 ,5.8357e+05 ,6.3629e+01 /) - kbo(:, 2,51,14) = (/ & - &2.5583e+06 ,1.9187e+06 ,1.2791e+06 ,6.3957e+05 ,5.8823e+01 /) - kbo(:, 3,51,14) = (/ & - &2.7536e+06 ,2.0652e+06 ,1.3768e+06 ,6.8840e+05 ,5.4830e+01 /) - kbo(:, 4,51,14) = (/ & - &2.9192e+06 ,2.1894e+06 ,1.4596e+06 ,7.2979e+05 ,5.1797e+01 /) - kbo(:, 5,51,14) = (/ & - &3.0520e+06 ,2.2890e+06 ,1.5260e+06 ,7.6300e+05 ,4.8739e+01 /) - kbo(:, 1,52,14) = (/ & - &2.6927e+06 ,2.0196e+06 ,1.3464e+06 ,6.7319e+05 ,6.5473e+01 /) - kbo(:, 2,52,14) = (/ & - &2.9755e+06 ,2.2317e+06 ,1.4878e+06 ,7.4389e+05 ,6.0202e+01 /) - kbo(:, 3,52,14) = (/ & - &3.2232e+06 ,2.4174e+06 ,1.6116e+06 ,8.0581e+05 ,5.6406e+01 /) - kbo(:, 4,52,14) = (/ & - &3.4356e+06 ,2.5767e+06 ,1.7178e+06 ,8.5891e+05 ,5.3338e+01 /) - kbo(:, 5,52,14) = (/ & - &3.6105e+06 ,2.7079e+06 ,1.8053e+06 ,9.0264e+05 ,4.9535e+01 /) - kbo(:, 1,53,14) = (/ & - &3.2282e+06 ,2.4212e+06 ,1.6141e+06 ,8.0707e+05 ,6.7136e+01 /) - kbo(:, 2,53,14) = (/ & - &3.5968e+06 ,2.6976e+06 ,1.7984e+06 ,8.9921e+05 ,6.1503e+01 /) - kbo(:, 3,53,14) = (/ & - &3.9238e+06 ,2.9429e+06 ,1.9619e+06 ,9.8097e+05 ,5.8062e+01 /) - kbo(:, 4,53,14) = (/ & - &4.2071e+06 ,3.1553e+06 ,2.1035e+06 ,1.0518e+06 ,5.4982e+01 /) - kbo(:, 5,53,14) = (/ & - &4.4446e+06 ,3.3334e+06 ,2.2223e+06 ,1.1112e+06 ,5.0414e+01 /) - kbo(:, 1,54,14) = (/ & - &3.3478e+06 ,2.5109e+06 ,1.6739e+06 ,8.3696e+05 ,6.8647e+01 /) - kbo(:, 2,54,14) = (/ & - &3.7598e+06 ,2.8199e+06 ,1.8799e+06 ,9.3996e+05 ,6.3327e+01 /) - kbo(:, 3,54,14) = (/ & - &4.1308e+06 ,3.0981e+06 ,2.0654e+06 ,1.0327e+06 ,5.9705e+01 /) - kbo(:, 4,54,14) = (/ & - &4.4534e+06 ,3.3401e+06 ,2.2267e+06 ,1.1134e+06 ,5.5841e+01 /) - kbo(:, 5,54,14) = (/ & - &4.7287e+06 ,3.5465e+06 ,2.3644e+06 ,1.1822e+06 ,5.1312e+01 /) - kbo(:, 1,55,14) = (/ & - &3.1636e+06 ,2.3727e+06 ,1.5818e+06 ,7.9090e+05 ,6.9800e+01 /) - kbo(:, 2,55,14) = (/ & - &3.5827e+06 ,2.6870e+06 ,1.7914e+06 ,8.9569e+05 ,6.5650e+01 /) - kbo(:, 3,55,14) = (/ & - &3.9638e+06 ,2.9728e+06 ,1.9819e+06 ,9.9095e+05 ,6.0566e+01 /) - kbo(:, 4,55,14) = (/ & - &4.2985e+06 ,3.2239e+06 ,2.1493e+06 ,1.0746e+06 ,5.6657e+01 /) - kbo(:, 5,55,14) = (/ & - &4.5858e+06 ,3.4394e+06 ,2.2929e+06 ,1.1465e+06 ,5.3531e+01 /) - kbo(:, 1,56,14) = (/ & - &2.9822e+06 ,2.2367e+06 ,1.4911e+06 ,7.4555e+05 ,7.1031e+01 /) - kbo(:, 2,56,14) = (/ & - &3.4067e+06 ,2.5550e+06 ,1.7033e+06 ,8.5166e+05 ,6.7133e+01 /) - kbo(:, 3,56,14) = (/ & - &3.7967e+06 ,2.8475e+06 ,1.8983e+06 ,9.4915e+05 ,6.1784e+01 /) - kbo(:, 4,56,14) = (/ & - &4.1424e+06 ,3.1068e+06 ,2.0712e+06 ,1.0356e+06 ,5.8142e+01 /) - kbo(:, 5,56,14) = (/ & - &4.4422e+06 ,3.3317e+06 ,2.2211e+06 ,1.1105e+06 ,5.4348e+01 /) - kbo(:, 1,57,14) = (/ & - &2.8003e+06 ,2.1002e+06 ,1.4001e+06 ,7.0006e+05 ,7.2686e+01 /) - kbo(:, 2,57,14) = (/ & - &3.2322e+06 ,2.4241e+06 ,1.6161e+06 ,8.0804e+05 ,6.8121e+01 /) - kbo(:, 3,57,14) = (/ & - &3.6290e+06 ,2.7217e+06 ,1.8145e+06 ,9.0724e+05 ,6.3933e+01 /) - kbo(:, 4,57,14) = (/ & - &3.9857e+06 ,2.9893e+06 ,1.9928e+06 ,9.9642e+05 ,5.9242e+01 /) - kbo(:, 5,57,14) = (/ & - &4.2966e+06 ,3.2224e+06 ,2.1482e+06 ,1.0741e+06 ,5.5180e+01 /) - kbo(:, 1,58,14) = (/ & - &6.9277e+05 ,6.3516e+05 ,5.4460e+05 ,3.8143e+05 ,7.4521e+01 /) - kbo(:, 2,58,14) = (/ & - &8.0841e+05 ,7.4119e+05 ,6.3550e+05 ,4.4510e+05 ,6.9466e+01 /) - kbo(:, 3,58,14) = (/ & - &9.1451e+05 ,8.3847e+05 ,7.1891e+05 ,5.0352e+05 ,6.5445e+01 /) - kbo(:, 4,58,14) = (/ & - &1.0112e+06 ,9.2715e+05 ,7.9494e+05 ,5.5677e+05 ,6.0252e+01 /) - kbo(:, 5,58,14) = (/ & - &1.0957e+06 ,1.0046e+06 ,8.6135e+05 ,6.0328e+05 ,5.6261e+01 /) - kbo(:, 1,59,14) = (/ & - &7.9105e+05 ,6.9072e+05 ,5.5096e+05 ,3.4284e+05 ,7.5082e+01 /) - kbo(:, 2,59,14) = (/ & - &9.2759e+05 ,8.0994e+05 ,6.4605e+05 ,4.0201e+05 ,7.0591e+01 /) - kbo(:, 3,59,14) = (/ & - &1.0529e+06 ,9.1931e+05 ,7.3330e+05 ,4.5630e+05 ,6.5689e+01 /) - kbo(:, 4,59,14) = (/ & - &1.1673e+06 ,1.0193e+06 ,8.1302e+05 ,5.0591e+05 ,6.1427e+01 /) - kbo(:, 5,59,14) = (/ & - &1.2680e+06 ,1.1071e+06 ,8.8311e+05 ,5.4953e+05 ,5.7108e+01 /) - kbo(:, 1,13,15) = (/ & - &6.8853e+05 ,5.1640e+05 ,3.4427e+05 ,1.7213e+05 ,8.3646e+00 /) - kbo(:, 2,13,15) = (/ & - &6.7841e+05 ,5.0881e+05 ,3.3921e+05 ,1.6961e+05 ,8.1557e+00 /) - kbo(:, 3,13,15) = (/ & - &6.7058e+05 ,5.0293e+05 ,3.3529e+05 ,1.6765e+05 ,7.2355e+00 /) - kbo(:, 4,13,15) = (/ & - &6.6505e+05 ,4.9879e+05 ,3.3253e+05 ,1.6627e+05 ,7.1104e+00 /) - kbo(:, 5,13,15) = (/ & - &6.5977e+05 ,4.9483e+05 ,3.2989e+05 ,1.6494e+05 ,5.0356e+00 /) - kbo(:, 1,14,15) = (/ & - &4.8859e+05 ,3.6644e+05 ,2.4429e+05 ,1.2215e+05 ,9.3416e+00 /) - kbo(:, 2,14,15) = (/ & - &4.8530e+05 ,3.6397e+05 ,2.4265e+05 ,1.2132e+05 ,9.0997e+00 /) - kbo(:, 3,14,15) = (/ & - &4.8323e+05 ,3.6243e+05 ,2.4161e+05 ,1.2081e+05 ,8.4842e+00 /) - kbo(:, 4,14,15) = (/ & - &4.8076e+05 ,3.6057e+05 ,2.4038e+05 ,1.2019e+05 ,8.2141e+00 /) - kbo(:, 5,14,15) = (/ & - &4.7824e+05 ,3.5868e+05 ,2.3912e+05 ,1.1956e+05 ,7.9624e+00 /) - kbo(:, 1,15,15) = (/ & - &3.5725e+05 ,2.6794e+05 ,1.7863e+05 ,8.9315e+04 ,1.0416e+01 /) - kbo(:, 2,15,15) = (/ & - &3.5701e+05 ,2.6776e+05 ,1.7851e+05 ,8.9255e+04 ,1.0132e+01 /) - kbo(:, 3,15,15) = (/ & - &3.5620e+05 ,2.6715e+05 ,1.7810e+05 ,8.9053e+04 ,9.8342e+00 /) - kbo(:, 4,15,15) = (/ & - &3.5534e+05 ,2.6651e+05 ,1.7767e+05 ,8.8838e+04 ,8.7353e+00 /) - kbo(:, 5,15,15) = (/ & - &3.5411e+05 ,2.6559e+05 ,1.7706e+05 ,8.8531e+04 ,9.0528e+00 /) - kbo(:, 1,16,15) = (/ & - &3.1303e+05 ,2.3478e+05 ,1.5652e+05 ,7.8260e+04 ,1.1678e+01 /) - kbo(:, 2,16,15) = (/ & - &3.1296e+05 ,2.3472e+05 ,1.5648e+05 ,7.8243e+04 ,1.1373e+01 /) - kbo(:, 3,16,15) = (/ & - &3.1311e+05 ,2.3483e+05 ,1.5655e+05 ,7.8278e+04 ,1.1063e+01 /) - kbo(:, 4,16,15) = (/ & - &3.1270e+05 ,2.3452e+05 ,1.5635e+05 ,7.8176e+04 ,1.0185e+01 /) - kbo(:, 5,16,15) = (/ & - &3.1216e+05 ,2.3412e+05 ,1.5608e+05 ,7.8040e+04 ,1.0166e+01 /) - kbo(:, 1,17,15) = (/ & - &2.8440e+05 ,2.1330e+05 ,1.4220e+05 ,7.1101e+04 ,1.3334e+01 /) - kbo(:, 2,17,15) = (/ & - &2.8479e+05 ,2.1359e+05 ,1.4240e+05 ,7.1199e+04 ,1.2996e+01 /) - kbo(:, 3,17,15) = (/ & - &2.8480e+05 ,2.1360e+05 ,1.4240e+05 ,7.1202e+04 ,1.2651e+01 /) - kbo(:, 4,17,15) = (/ & - &2.8481e+05 ,2.1361e+05 ,1.4240e+05 ,7.1203e+04 ,1.1964e+01 /) - kbo(:, 5,17,15) = (/ & - &2.8402e+05 ,2.1301e+05 ,1.4201e+05 ,7.1006e+04 ,1.1649e+01 /) - kbo(:, 1,18,15) = (/ & - &2.6460e+05 ,1.9845e+05 ,1.3230e+05 ,6.6150e+04 ,1.5350e+01 /) - kbo(:, 2,18,15) = (/ & - &2.6490e+05 ,1.9868e+05 ,1.3245e+05 ,6.6227e+04 ,1.4954e+01 /) - kbo(:, 3,18,15) = (/ & - &2.6505e+05 ,1.9879e+05 ,1.3252e+05 ,6.6263e+04 ,1.4553e+01 /) - kbo(:, 4,18,15) = (/ & - &2.6448e+05 ,1.9836e+05 ,1.3224e+05 ,6.6121e+04 ,1.4057e+01 /) - kbo(:, 5,18,15) = (/ & - &2.6357e+05 ,1.9768e+05 ,1.3179e+05 ,6.5894e+04 ,1.3341e+01 /) - kbo(:, 1,19,15) = (/ & - &2.4108e+05 ,1.8081e+05 ,1.2054e+05 ,6.0272e+04 ,1.7626e+01 /) - kbo(:, 2,19,15) = (/ & - &2.4160e+05 ,1.8120e+05 ,1.2080e+05 ,6.0400e+04 ,1.7162e+01 /) - kbo(:, 3,19,15) = (/ & - &2.4138e+05 ,1.8103e+05 ,1.2069e+05 ,6.0347e+04 ,1.6660e+01 /) - kbo(:, 4,19,15) = (/ & - &2.4078e+05 ,1.8058e+05 ,1.2039e+05 ,6.0195e+04 ,1.6133e+01 /) - kbo(:, 5,19,15) = (/ & - &2.3956e+05 ,1.7967e+05 ,1.1978e+05 ,5.9892e+04 ,1.5032e+01 /) - kbo(:, 1,20,15) = (/ & - &2.3801e+05 ,1.7851e+05 ,1.1901e+05 ,5.9503e+04 ,2.0107e+01 /) - kbo(:, 2,20,15) = (/ & - &2.3824e+05 ,1.7868e+05 ,1.1912e+05 ,5.9560e+04 ,1.9545e+01 /) - kbo(:, 3,20,15) = (/ & - &2.3790e+05 ,1.7842e+05 ,1.1895e+05 ,5.9475e+04 ,1.8935e+01 /) - kbo(:, 4,20,15) = (/ & - &2.3694e+05 ,1.7770e+05 ,1.1847e+05 ,5.9235e+04 ,1.8318e+01 /) - kbo(:, 5,20,15) = (/ & - &2.3546e+05 ,1.7659e+05 ,1.1773e+05 ,5.8866e+04 ,1.6971e+01 /) - kbo(:, 1,21,15) = (/ & - &2.4153e+05 ,1.8115e+05 ,1.2077e+05 ,6.0385e+04 ,2.2844e+01 /) - kbo(:, 2,21,15) = (/ & - &2.4153e+05 ,1.8115e+05 ,1.2076e+05 ,6.0383e+04 ,2.2202e+01 /) - kbo(:, 3,21,15) = (/ & - &2.4090e+05 ,1.8068e+05 ,1.2045e+05 ,6.0226e+04 ,2.1535e+01 /) - kbo(:, 4,21,15) = (/ & - &2.3957e+05 ,1.7968e+05 ,1.1978e+05 ,5.9893e+04 ,2.0842e+01 /) - kbo(:, 5,21,15) = (/ & - &2.3762e+05 ,1.7822e+05 ,1.1881e+05 ,5.9406e+04 ,1.9479e+01 /) - kbo(:, 1,22,15) = (/ & - &2.5014e+05 ,1.8760e+05 ,1.2507e+05 ,6.2536e+04 ,2.6039e+01 /) - kbo(:, 2,22,15) = (/ & - &2.4958e+05 ,1.8719e+05 ,1.2479e+05 ,6.2397e+04 ,2.5280e+01 /) - kbo(:, 3,22,15) = (/ & - &2.4838e+05 ,1.8628e+05 ,1.2419e+05 ,6.2096e+04 ,2.4490e+01 /) - kbo(:, 4,22,15) = (/ & - &2.4655e+05 ,1.8492e+05 ,1.2328e+05 ,6.1639e+04 ,2.3671e+01 /) - kbo(:, 5,22,15) = (/ & - &2.4402e+05 ,1.8302e+05 ,1.2201e+05 ,6.1006e+04 ,2.2182e+01 /) - kbo(:, 1,23,15) = (/ & - &2.5892e+05 ,1.9419e+05 ,1.2946e+05 ,6.4730e+04 ,2.9635e+01 /) - kbo(:, 2,23,15) = (/ & - &2.5767e+05 ,1.9325e+05 ,1.2883e+05 ,6.4418e+04 ,2.8708e+01 /) - kbo(:, 3,23,15) = (/ & - &2.5584e+05 ,1.9188e+05 ,1.2792e+05 ,6.3960e+04 ,2.7743e+01 /) - kbo(:, 4,23,15) = (/ & - &2.5321e+05 ,1.8991e+05 ,1.2660e+05 ,6.3303e+04 ,2.6764e+01 /) - kbo(:, 5,23,15) = (/ & - &2.5010e+05 ,1.8758e+05 ,1.2505e+05 ,6.2526e+04 ,2.5122e+01 /) - kbo(:, 1,24,15) = (/ & - &2.6502e+05 ,1.9877e+05 ,1.3251e+05 ,6.6257e+04 ,3.3543e+01 /) - kbo(:, 2,24,15) = (/ & - &2.6308e+05 ,1.9731e+05 ,1.3154e+05 ,6.5771e+04 ,3.2390e+01 /) - kbo(:, 3,24,15) = (/ & - &2.6033e+05 ,1.9524e+05 ,1.3016e+05 ,6.5082e+04 ,3.1202e+01 /) - kbo(:, 4,24,15) = (/ & - &2.5704e+05 ,1.9278e+05 ,1.2852e+05 ,6.4262e+04 ,3.0027e+01 /) - kbo(:, 5,24,15) = (/ & - &2.5313e+05 ,1.8984e+05 ,1.2656e+05 ,6.3282e+04 ,2.8238e+01 /) - kbo(:, 1,25,15) = (/ & - &2.7306e+05 ,2.0480e+05 ,1.3653e+05 ,6.8266e+04 ,3.7656e+01 /) - kbo(:, 2,25,15) = (/ & - &2.7003e+05 ,2.0252e+05 ,1.3501e+05 ,6.7507e+04 ,3.6233e+01 /) - kbo(:, 3,25,15) = (/ & - &2.6644e+05 ,1.9983e+05 ,1.3322e+05 ,6.6611e+04 ,3.4804e+01 /) - kbo(:, 4,25,15) = (/ & - &2.6230e+05 ,1.9672e+05 ,1.3115e+05 ,6.5574e+04 ,3.3361e+01 /) - kbo(:, 5,25,15) = (/ & - &2.5745e+05 ,1.9309e+05 ,1.2873e+05 ,6.4363e+04 ,3.1338e+01 /) - kbo(:, 1,26,15) = (/ & - &2.8347e+05 ,2.1261e+05 ,1.4174e+05 ,7.0869e+04 ,4.1820e+01 /) - kbo(:, 2,26,15) = (/ & - &2.7951e+05 ,2.0963e+05 ,1.3976e+05 ,6.9878e+04 ,4.0076e+01 /) - kbo(:, 3,26,15) = (/ & - &2.7489e+05 ,2.0617e+05 ,1.3745e+05 ,6.8723e+04 ,3.8351e+01 /) - kbo(:, 4,26,15) = (/ & - &2.6958e+05 ,2.0219e+05 ,1.3479e+05 ,6.7396e+04 ,3.6631e+01 /) - kbo(:, 5,26,15) = (/ & - &2.6383e+05 ,1.9788e+05 ,1.3192e+05 ,6.5959e+04 ,3.4286e+01 /) - kbo(:, 1,27,15) = (/ & - &3.0277e+05 ,2.2708e+05 ,1.5139e+05 ,7.5694e+04 ,4.5895e+01 /) - kbo(:, 2,27,15) = (/ & - &2.9771e+05 ,2.2329e+05 ,1.4886e+05 ,7.4429e+04 ,4.3819e+01 /) - kbo(:, 3,27,15) = (/ & - &2.9175e+05 ,2.1881e+05 ,1.4587e+05 ,7.2938e+04 ,4.1746e+01 /) - kbo(:, 4,27,15) = (/ & - &2.8521e+05 ,2.1391e+05 ,1.4261e+05 ,7.1304e+04 ,3.9720e+01 /) - kbo(:, 5,27,15) = (/ & - &2.7826e+05 ,2.0870e+05 ,1.3913e+05 ,6.9566e+04 ,3.6964e+01 /) - kbo(:, 1,28,15) = (/ & - &3.2897e+05 ,2.4673e+05 ,1.6449e+05 ,8.2243e+04 ,4.9767e+01 /) - kbo(:, 2,28,15) = (/ & - &3.2244e+05 ,2.4183e+05 ,1.6122e+05 ,8.0610e+04 ,4.7309e+01 /) - kbo(:, 3,28,15) = (/ & - &3.1503e+05 ,2.3628e+05 ,1.5752e+05 ,7.8759e+04 ,4.4889e+01 /) - kbo(:, 4,28,15) = (/ & - &3.0709e+05 ,2.3032e+05 ,1.5355e+05 ,7.6774e+04 ,4.2541e+01 /) - kbo(:, 5,28,15) = (/ & - &2.9858e+05 ,2.2393e+05 ,1.4929e+05 ,7.4645e+04 ,3.9310e+01 /) - kbo(:, 1,29,15) = (/ & - &3.7585e+05 ,2.8188e+05 ,1.8792e+05 ,9.3962e+04 ,5.3281e+01 /) - kbo(:, 2,29,15) = (/ & - &3.6712e+05 ,2.7534e+05 ,1.8356e+05 ,9.1780e+04 ,5.0424e+01 /) - kbo(:, 3,29,15) = (/ & - &3.5767e+05 ,2.6826e+05 ,1.7884e+05 ,8.9419e+04 ,4.7662e+01 /) - kbo(:, 4,29,15) = (/ & - &3.4765e+05 ,2.6073e+05 ,1.7382e+05 ,8.6912e+04 ,4.4800e+01 /) - kbo(:, 5,29,15) = (/ & - &3.3714e+05 ,2.5285e+05 ,1.6857e+05 ,8.4284e+04 ,4.1166e+01 /) - kbo(:, 1,30,15) = (/ & - &4.3604e+05 ,3.2703e+05 ,2.1802e+05 ,1.0901e+05 ,5.6346e+01 /) - kbo(:, 2,30,15) = (/ & - &4.2462e+05 ,3.1847e+05 ,2.1231e+05 ,1.0616e+05 ,5.3119e+01 /) - kbo(:, 3,30,15) = (/ & - &4.1259e+05 ,3.0944e+05 ,2.0629e+05 ,1.0315e+05 ,5.0028e+01 /) - kbo(:, 4,30,15) = (/ & - &3.9989e+05 ,2.9992e+05 ,1.9995e+05 ,9.9973e+04 ,4.6067e+01 /) - kbo(:, 5,30,15) = (/ & - &3.8696e+05 ,2.9022e+05 ,1.9348e+05 ,9.6741e+04 ,4.3622e+01 /) - kbo(:, 1,31,15) = (/ & - &5.2737e+05 ,3.9553e+05 ,2.6369e+05 ,1.3184e+05 ,5.8898e+01 /) - kbo(:, 2,31,15) = (/ & - &5.1226e+05 ,3.8420e+05 ,2.5613e+05 ,1.2807e+05 ,5.5332e+01 /) - kbo(:, 3,31,15) = (/ & - &4.9638e+05 ,3.7229e+05 ,2.4819e+05 ,1.2410e+05 ,5.1303e+01 /) - kbo(:, 4,31,15) = (/ & - &4.8006e+05 ,3.6004e+05 ,2.4003e+05 ,1.2001e+05 ,4.7154e+01 /) - kbo(:, 5,31,15) = (/ & - &4.6345e+05 ,3.4759e+05 ,2.3173e+05 ,1.1586e+05 ,4.5673e+01 /) - kbo(:, 1,32,15) = (/ & - &6.4038e+05 ,4.8028e+05 ,3.2019e+05 ,1.6010e+05 ,6.0926e+01 /) - kbo(:, 2,32,15) = (/ & - &6.2037e+05 ,4.6528e+05 ,3.1019e+05 ,1.5509e+05 ,5.7062e+01 /) - kbo(:, 3,32,15) = (/ & - &5.9976e+05 ,4.4982e+05 ,2.9988e+05 ,1.4994e+05 ,5.1911e+01 /) - kbo(:, 4,32,15) = (/ & - &5.7886e+05 ,4.3415e+05 ,2.8943e+05 ,1.4472e+05 ,4.9758e+01 /) - kbo(:, 5,32,15) = (/ & - &5.5779e+05 ,4.1835e+05 ,2.7890e+05 ,1.3945e+05 ,4.7124e+01 /) - kbo(:, 1,33,15) = (/ & - &7.8604e+05 ,5.8953e+05 ,3.9302e+05 ,1.9651e+05 ,6.2449e+01 /) - kbo(:, 2,33,15) = (/ & - &7.5994e+05 ,5.6995e+05 ,3.7997e+05 ,1.8999e+05 ,5.7026e+01 /) - kbo(:, 3,33,15) = (/ & - &7.3324e+05 ,5.4993e+05 ,3.6662e+05 ,1.8331e+05 ,5.3959e+01 /) - kbo(:, 4,33,15) = (/ & - &7.0633e+05 ,5.2975e+05 ,3.5316e+05 ,1.7658e+05 ,5.1185e+01 /) - kbo(:, 5,33,15) = (/ & - &6.7933e+05 ,5.0950e+05 ,3.3967e+05 ,1.6983e+05 ,4.6145e+01 /) - kbo(:, 1,34,15) = (/ & - &9.3629e+05 ,7.0222e+05 ,4.6814e+05 ,2.3407e+05 ,6.2950e+01 /) - kbo(:, 2,34,15) = (/ & - &9.0361e+05 ,6.7770e+05 ,4.5180e+05 ,2.2590e+05 ,5.7628e+01 /) - kbo(:, 3,34,15) = (/ & - &8.7048e+05 ,6.5286e+05 ,4.3524e+05 ,2.1762e+05 ,5.5397e+01 /) - kbo(:, 4,34,15) = (/ & - &8.3718e+05 ,6.2788e+05 ,4.1859e+05 ,2.0929e+05 ,5.1885e+01 /) - kbo(:, 5,34,15) = (/ & - &8.0393e+05 ,6.0294e+05 ,4.0196e+05 ,2.0098e+05 ,4.4833e+01 /) - kbo(:, 1,35,15) = (/ & - &1.1151e+06 ,8.3633e+05 ,5.5755e+05 ,2.7878e+05 ,6.3401e+01 /) - kbo(:, 2,35,15) = (/ & - &1.0748e+06 ,8.0608e+05 ,5.3739e+05 ,2.6869e+05 ,5.9975e+01 /) - kbo(:, 3,35,15) = (/ & - &1.0341e+06 ,7.7556e+05 ,5.1704e+05 ,2.5852e+05 ,5.6633e+01 /) - kbo(:, 4,35,15) = (/ & - &9.9325e+05 ,7.4494e+05 ,4.9662e+05 ,2.4831e+05 ,5.0172e+01 /) - kbo(:, 5,35,15) = (/ & - &9.5274e+05 ,7.1455e+05 ,4.7637e+05 ,2.3818e+05 ,4.3180e+01 /) - kbo(:, 1,36,15) = (/ & - &1.3204e+06 ,9.9032e+05 ,6.6021e+05 ,3.3011e+05 ,6.4479e+01 /) - kbo(:, 2,36,15) = (/ & - &1.2713e+06 ,9.5347e+05 ,6.3565e+05 ,3.1782e+05 ,6.1661e+01 /) - kbo(:, 3,36,15) = (/ & - &1.2219e+06 ,9.1640e+05 ,6.1093e+05 ,3.0547e+05 ,5.7543e+01 /) - kbo(:, 4,36,15) = (/ & - &1.1726e+06 ,8.7947e+05 ,5.8632e+05 ,2.9316e+05 ,4.9268e+01 /) - kbo(:, 5,36,15) = (/ & - &1.1240e+06 ,8.4303e+05 ,5.6202e+05 ,2.8101e+05 ,4.3422e+01 /) - kbo(:, 1,37,15) = (/ & - &1.5283e+06 ,1.1462e+06 ,7.6413e+05 ,3.8207e+05 ,6.6367e+01 /) - kbo(:, 2,37,15) = (/ & - &1.4706e+06 ,1.1030e+06 ,7.3532e+05 ,3.6766e+05 ,6.3620e+01 /) - kbo(:, 3,37,15) = (/ & - &1.4128e+06 ,1.0596e+06 ,7.0638e+05 ,3.5319e+05 ,5.8851e+01 /) - kbo(:, 4,37,15) = (/ & - &1.3549e+06 ,1.0162e+06 ,6.7744e+05 ,3.3872e+05 ,4.8460e+01 /) - kbo(:, 5,37,15) = (/ & - &1.2980e+06 ,9.7352e+05 ,6.4901e+05 ,3.2451e+05 ,4.3139e+01 /) - kbo(:, 1,38,15) = (/ & - &1.7917e+06 ,1.3437e+06 ,8.9582e+05 ,4.4791e+05 ,6.8827e+01 /) - kbo(:, 2,38,15) = (/ & - &1.7232e+06 ,1.2924e+06 ,8.6157e+05 ,4.3078e+05 ,6.5495e+01 /) - kbo(:, 3,38,15) = (/ & - &1.6545e+06 ,1.2409e+06 ,8.2724e+05 ,4.1362e+05 ,5.8860e+01 /) - kbo(:, 4,38,15) = (/ & - &1.5862e+06 ,1.1896e+06 ,7.9309e+05 ,3.9654e+05 ,4.7251e+01 /) - kbo(:, 5,38,15) = (/ & - &1.5188e+06 ,1.1391e+06 ,7.5940e+05 ,3.7970e+05 ,4.3731e+01 /) - kbo(:, 1,39,15) = (/ & - &2.1445e+06 ,1.6084e+06 ,1.0723e+06 ,5.3613e+05 ,7.1068e+01 /) - kbo(:, 2,39,15) = (/ & - &2.0613e+06 ,1.5460e+06 ,1.0307e+06 ,5.1533e+05 ,6.6419e+01 /) - kbo(:, 3,39,15) = (/ & - &1.9786e+06 ,1.4840e+06 ,9.8932e+05 ,4.9466e+05 ,5.6988e+01 /) - kbo(:, 4,39,15) = (/ & - &1.8964e+06 ,1.4223e+06 ,9.4822e+05 ,4.7411e+05 ,4.6537e+01 /) - kbo(:, 5,39,15) = (/ & - &1.8152e+06 ,1.3614e+06 ,9.0762e+05 ,4.5381e+05 ,4.1463e+01 /) - kbo(:, 1,40,15) = (/ & - &2.4170e+06 ,1.8127e+06 ,1.2085e+06 ,6.0424e+05 ,7.3096e+01 /) - kbo(:, 2,40,15) = (/ & - &2.3226e+06 ,1.7420e+06 ,1.1613e+06 ,5.8063e+05 ,6.8150e+01 /) - kbo(:, 3,40,15) = (/ & - &2.2296e+06 ,1.6722e+06 ,1.1148e+06 ,5.5739e+05 ,5.8979e+01 /) - kbo(:, 4,40,15) = (/ & - &2.1366e+06 ,1.6025e+06 ,1.0683e+06 ,5.3415e+05 ,4.7816e+01 /) - kbo(:, 5,40,15) = (/ & - &2.0448e+06 ,1.5336e+06 ,1.0224e+06 ,5.1120e+05 ,4.2008e+01 /) - kbo(:, 1,41,15) = (/ & - &2.7164e+06 ,2.0373e+06 ,1.3582e+06 ,6.7911e+05 ,7.4782e+01 /) - kbo(:, 2,41,15) = (/ & - &2.6095e+06 ,1.9571e+06 ,1.3048e+06 ,6.5238e+05 ,6.9972e+01 /) - kbo(:, 3,41,15) = (/ & - &2.5049e+06 ,1.8787e+06 ,1.2525e+06 ,6.2623e+05 ,6.0957e+01 /) - kbo(:, 4,41,15) = (/ & - &2.4006e+06 ,1.8005e+06 ,1.2003e+06 ,6.0017e+05 ,4.9097e+01 /) - kbo(:, 5,41,15) = (/ & - &2.2975e+06 ,1.7231e+06 ,1.1487e+06 ,5.7438e+05 ,4.2980e+01 /) - kbo(:, 1,42,15) = (/ & - &3.0827e+06 ,2.3120e+06 ,1.5413e+06 ,7.7067e+05 ,7.6123e+01 /) - kbo(:, 2,42,15) = (/ & - &2.9612e+06 ,2.2209e+06 ,1.4806e+06 ,7.4030e+05 ,7.1662e+01 /) - kbo(:, 3,42,15) = (/ & - &2.8423e+06 ,2.1317e+06 ,1.4211e+06 ,7.1056e+05 ,6.2602e+01 /) - kbo(:, 4,42,15) = (/ & - &2.7244e+06 ,2.0433e+06 ,1.3622e+06 ,6.8108e+05 ,5.0093e+01 /) - kbo(:, 5,42,15) = (/ & - &2.6071e+06 ,1.9553e+06 ,1.3035e+06 ,6.5176e+05 ,4.3774e+01 /) - kbo(:, 1,43,15) = (/ & - &3.5341e+06 ,2.6506e+06 ,1.7671e+06 ,8.8353e+05 ,7.8436e+01 /) - kbo(:, 2,43,15) = (/ & - &3.3959e+06 ,2.5467e+06 ,1.6978e+06 ,8.4891e+05 ,7.3775e+01 /) - kbo(:, 3,43,15) = (/ & - &3.2585e+06 ,2.4439e+06 ,1.6293e+06 ,8.1464e+05 ,6.4695e+01 /) - kbo(:, 4,43,15) = (/ & - &3.1244e+06 ,2.3433e+06 ,1.5622e+06 ,7.8111e+05 ,5.1912e+01 /) - kbo(:, 5,43,15) = (/ & - &2.9906e+06 ,2.2429e+06 ,1.4953e+06 ,7.4765e+05 ,4.5444e+01 /) - kbo(:, 1,44,15) = (/ & - &4.1097e+06 ,3.0823e+06 ,2.0548e+06 ,1.0274e+06 ,8.1119e+01 /) - kbo(:, 2,44,15) = (/ & - &3.9487e+06 ,2.9615e+06 ,1.9743e+06 ,9.8717e+05 ,7.5797e+01 /) - kbo(:, 3,44,15) = (/ & - &3.7894e+06 ,2.8420e+06 ,1.8947e+06 ,9.4733e+05 ,6.6793e+01 /) - kbo(:, 4,44,15) = (/ & - &3.6341e+06 ,2.7256e+06 ,1.8170e+06 ,9.0851e+05 ,5.3433e+01 /) - kbo(:, 5,44,15) = (/ & - &3.4797e+06 ,2.6097e+06 ,1.7398e+06 ,8.6990e+05 ,4.7406e+01 /) - kbo(:, 1,45,15) = (/ & - &4.8722e+06 ,3.6542e+06 ,2.4361e+06 ,1.2181e+06 ,8.3949e+01 /) - kbo(:, 2,45,15) = (/ & - &4.6827e+06 ,3.5120e+06 ,2.3413e+06 ,1.1707e+06 ,7.7974e+01 /) - kbo(:, 3,45,15) = (/ & - &4.4945e+06 ,3.3709e+06 ,2.2473e+06 ,1.1236e+06 ,6.9073e+01 /) - kbo(:, 4,45,15) = (/ & - &4.3103e+06 ,3.2327e+06 ,2.1551e+06 ,1.0776e+06 ,5.6213e+01 /) - kbo(:, 5,45,15) = (/ & - &4.1290e+06 ,3.0968e+06 ,2.0645e+06 ,1.0323e+06 ,4.8762e+01 /) - kbo(:, 1,46,15) = (/ & - &5.8372e+06 ,4.3779e+06 ,2.9186e+06 ,1.4593e+06 ,8.7007e+01 /) - kbo(:, 2,46,15) = (/ & - &5.6126e+06 ,4.2094e+06 ,2.8063e+06 ,1.4031e+06 ,8.0166e+01 /) - kbo(:, 3,46,15) = (/ & - &5.3885e+06 ,4.0414e+06 ,2.6943e+06 ,1.3471e+06 ,7.0991e+01 /) - kbo(:, 4,46,15) = (/ & - &5.1687e+06 ,3.8765e+06 ,2.5843e+06 ,1.2922e+06 ,5.9015e+01 /) - kbo(:, 5,46,15) = (/ & - &4.9529e+06 ,3.7147e+06 ,2.4764e+06 ,1.2382e+06 ,5.0566e+01 /) - kbo(:, 1,47,15) = (/ & - &6.9385e+06 ,5.2039e+06 ,3.4693e+06 ,1.7346e+06 ,9.1194e+01 /) - kbo(:, 2,47,15) = (/ & - &6.6774e+06 ,5.0081e+06 ,3.3387e+06 ,1.6694e+06 ,8.2417e+01 /) - kbo(:, 3,47,15) = (/ & - &6.4127e+06 ,4.8095e+06 ,3.2064e+06 ,1.6032e+06 ,7.5225e+01 /) - kbo(:, 4,47,15) = (/ & - &6.1518e+06 ,4.6139e+06 ,3.0759e+06 ,1.5380e+06 ,6.2982e+01 /) - kbo(:, 5,47,15) = (/ & - &5.8970e+06 ,4.4228e+06 ,2.9485e+06 ,1.4743e+06 ,5.3315e+01 /) - kbo(:, 1,48,15) = (/ & - &8.4803e+06 ,6.3603e+06 ,4.2402e+06 ,2.1201e+06 ,9.5233e+01 /) - kbo(:, 2,48,15) = (/ & - &8.1666e+06 ,6.1249e+06 ,4.0833e+06 ,2.0417e+06 ,8.3938e+01 /) - kbo(:, 3,48,15) = (/ & - &7.8474e+06 ,5.8855e+06 ,3.9237e+06 ,1.9618e+06 ,7.8581e+01 /) - kbo(:, 4,48,15) = (/ & - &7.5308e+06 ,5.6481e+06 ,3.7654e+06 ,1.8827e+06 ,6.5837e+01 /) - kbo(:, 5,48,15) = (/ & - &7.2194e+06 ,5.4145e+06 ,3.6097e+06 ,1.8049e+06 ,5.5833e+01 /) - kbo(:, 1,49,15) = (/ & - &1.0795e+07 ,8.0961e+06 ,5.3974e+06 ,2.6987e+06 ,9.8694e+01 /) - kbo(:, 2,49,15) = (/ & - &1.0405e+07 ,7.8035e+06 ,5.2023e+06 ,2.6011e+06 ,8.7441e+01 /) - kbo(:, 3,49,15) = (/ & - &1.0006e+07 ,7.5045e+06 ,5.0030e+06 ,2.5015e+06 ,8.1233e+01 /) - kbo(:, 4,49,15) = (/ & - &9.6057e+06 ,7.2043e+06 ,4.8028e+06 ,2.4014e+06 ,6.9160e+01 /) - kbo(:, 5,49,15) = (/ & - &9.2104e+06 ,6.9078e+06 ,4.6052e+06 ,2.3026e+06 ,5.7442e+01 /) - kbo(:, 1,50,15) = (/ & - &1.3074e+07 ,9.8054e+06 ,6.5369e+06 ,3.2685e+06 ,1.0218e+02 /) - kbo(:, 2,50,15) = (/ & - &1.2610e+07 ,9.4575e+06 ,6.3050e+06 ,3.1525e+06 ,9.1395e+01 /) - kbo(:, 3,50,15) = (/ & - &1.2137e+07 ,9.1025e+06 ,6.0683e+06 ,3.0342e+06 ,8.4017e+01 /) - kbo(:, 4,50,15) = (/ & - &1.1655e+07 ,8.7414e+06 ,5.8276e+06 ,2.9138e+06 ,7.1620e+01 /) - kbo(:, 5,50,15) = (/ & - &1.1180e+07 ,8.3848e+06 ,5.5899e+06 ,2.7949e+06 ,6.0411e+01 /) - kbo(:, 1,51,15) = (/ & - &1.5480e+07 ,1.1610e+07 ,7.7399e+06 ,3.8700e+06 ,1.0595e+02 /) - kbo(:, 2,51,15) = (/ & - &1.4942e+07 ,1.1207e+07 ,7.4711e+06 ,3.7356e+06 ,9.5091e+01 /) - kbo(:, 3,51,15) = (/ & - &1.4390e+07 ,1.0793e+07 ,7.1952e+06 ,3.5976e+06 ,8.6843e+01 /) - kbo(:, 4,51,15) = (/ & - &1.3829e+07 ,1.0371e+07 ,6.9143e+06 ,3.4572e+06 ,7.4583e+01 /) - kbo(:, 5,51,15) = (/ & - &1.3268e+07 ,9.9514e+06 ,6.6343e+06 ,3.3171e+06 ,6.4529e+01 /) - kbo(:, 1,52,15) = (/ & - &1.8848e+07 ,1.4136e+07 ,9.4240e+06 ,4.7120e+06 ,1.0974e+02 /) - kbo(:, 2,52,15) = (/ & - &1.8206e+07 ,1.3654e+07 ,9.1030e+06 ,4.5515e+06 ,9.9547e+01 /) - kbo(:, 3,52,15) = (/ & - &1.7547e+07 ,1.3161e+07 ,8.7738e+06 ,4.3869e+06 ,8.9552e+01 /) - kbo(:, 4,52,15) = (/ & - &1.6877e+07 ,1.2658e+07 ,8.4384e+06 ,4.2192e+06 ,7.7635e+01 /) - kbo(:, 5,52,15) = (/ & - &1.6199e+07 ,1.2149e+07 ,8.0997e+06 ,4.0499e+06 ,6.8061e+01 /) - kbo(:, 1,53,15) = (/ & - &2.3903e+07 ,1.7928e+07 ,1.1952e+07 ,5.9760e+06 ,1.1360e+02 /) - kbo(:, 2,53,15) = (/ & - &2.3112e+07 ,1.7334e+07 ,1.1556e+07 ,5.7781e+06 ,1.0455e+02 /) - kbo(:, 3,53,15) = (/ & - &2.2293e+07 ,1.6719e+07 ,1.1146e+07 ,5.5732e+06 ,9.2320e+01 /) - kbo(:, 4,53,15) = (/ & - &2.1455e+07 ,1.6091e+07 ,1.0728e+07 ,5.3638e+06 ,8.0467e+01 /) - kbo(:, 5,53,15) = (/ & - &2.0604e+07 ,1.5453e+07 ,1.0302e+07 ,5.1511e+06 ,7.1688e+01 /) - kbo(:, 1,54,15) = (/ & - &2.6168e+07 ,1.9626e+07 ,1.3084e+07 ,6.5420e+06 ,1.1792e+02 /) - kbo(:, 2,54,15) = (/ & - &2.5326e+07 ,1.8995e+07 ,1.2663e+07 ,6.3316e+06 ,1.0689e+02 /) - kbo(:, 3,54,15) = (/ & - &2.4445e+07 ,1.8334e+07 ,1.2223e+07 ,6.1114e+06 ,9.4623e+01 /) - kbo(:, 4,54,15) = (/ & - &2.3543e+07 ,1.7657e+07 ,1.1772e+07 ,5.8858e+06 ,8.6034e+01 /) - kbo(:, 5,54,15) = (/ & - &2.2624e+07 ,1.6968e+07 ,1.1312e+07 ,5.6560e+06 ,7.5610e+01 /) - kbo(:, 1,55,15) = (/ & - &2.6110e+07 ,1.9583e+07 ,1.3055e+07 ,6.5277e+06 ,1.2293e+02 /) - kbo(:, 2,55,15) = (/ & - &2.5298e+07 ,1.8974e+07 ,1.2649e+07 ,6.3247e+06 ,1.0996e+02 /) - kbo(:, 3,55,15) = (/ & - &2.4435e+07 ,1.8326e+07 ,1.2218e+07 ,6.1089e+06 ,1.0025e+02 /) - kbo(:, 4,55,15) = (/ & - &2.3548e+07 ,1.7661e+07 ,1.1774e+07 ,5.8870e+06 ,8.9943e+01 /) - kbo(:, 5,55,15) = (/ & - &2.2646e+07 ,1.6984e+07 ,1.1323e+07 ,5.6615e+06 ,7.8052e+01 /) - kbo(:, 1,56,15) = (/ & - &2.6049e+07 ,1.9537e+07 ,1.3025e+07 ,6.5123e+06 ,1.2801e+02 /) - kbo(:, 2,56,15) = (/ & - &2.5263e+07 ,1.8947e+07 ,1.2631e+07 ,6.3155e+06 ,1.1426e+02 /) - kbo(:, 3,56,15) = (/ & - &2.4422e+07 ,1.8316e+07 ,1.2211e+07 ,6.1054e+06 ,1.0290e+02 /) - kbo(:, 4,56,15) = (/ & - &2.3554e+07 ,1.7665e+07 ,1.1777e+07 ,5.8883e+06 ,9.1587e+01 /) - kbo(:, 5,56,15) = (/ & - &2.2663e+07 ,1.6997e+07 ,1.1331e+07 ,5.6657e+06 ,8.3726e+01 /) - kbo(:, 1,57,15) = (/ & - &2.5975e+07 ,1.9481e+07 ,1.2987e+07 ,6.4936e+06 ,1.3227e+02 /) - kbo(:, 2,57,15) = (/ & - &2.5221e+07 ,1.8915e+07 ,1.2610e+07 ,6.3050e+06 ,1.1939e+02 /) - kbo(:, 3,57,15) = (/ & - &2.4401e+07 ,1.8301e+07 ,1.2201e+07 ,6.1003e+06 ,1.0672e+02 /) - kbo(:, 4,57,15) = (/ & - &2.3548e+07 ,1.7661e+07 ,1.1774e+07 ,5.8869e+06 ,9.6378e+01 /) - kbo(:, 5,57,15) = (/ & - &2.2676e+07 ,1.7007e+07 ,1.1338e+07 ,5.6688e+06 ,8.7523e+01 /) - kbo(:, 1,58,15) = (/ & - &6.8249e+06 ,6.2574e+06 ,5.3652e+06 ,3.7577e+06 ,1.3651e+02 /) - kbo(:, 2,58,15) = (/ & - &6.6343e+06 ,6.0826e+06 ,5.2153e+06 ,3.6528e+06 ,1.2352e+02 /) - kbo(:, 3,58,15) = (/ & - &6.4258e+06 ,5.8914e+06 ,5.0514e+06 ,3.5379e+06 ,1.1077e+02 /) - kbo(:, 4,58,15) = (/ & - &6.2048e+06 ,5.6888e+06 ,4.8776e+06 ,3.4163e+06 ,9.9878e+01 /) - kbo(:, 5,58,15) = (/ & - &5.9792e+06 ,5.4820e+06 ,4.7004e+06 ,3.2921e+06 ,8.9433e+01 /) - kbo(:, 1,59,15) = (/ & - &7.9949e+06 ,6.9809e+06 ,5.5683e+06 ,3.4650e+06 ,1.3832e+02 /) - kbo(:, 2,59,15) = (/ & - &7.7778e+06 ,6.7913e+06 ,5.4171e+06 ,3.3709e+06 ,1.2505e+02 /) - kbo(:, 3,59,15) = (/ & - &7.5359e+06 ,6.5801e+06 ,5.2486e+06 ,3.2660e+06 ,1.1363e+02 /) - kbo(:, 4,59,15) = (/ & - &7.2794e+06 ,6.3561e+06 ,5.0700e+06 ,3.1549e+06 ,1.0324e+02 /) - kbo(:, 5,59,15) = (/ & - &7.0157e+06 ,6.1258e+06 ,4.8863e+06 ,3.0406e+06 ,9.1722e+01 /) - kbo(:, 1,13,16) = (/ & - &7.4591e+05 ,5.5944e+05 ,3.7296e+05 ,1.8648e+05 ,1.0589e+01 /) - kbo(:, 2,13,16) = (/ & - &7.4121e+05 ,5.5591e+05 ,3.7061e+05 ,1.8530e+05 ,1.0476e+01 /) - kbo(:, 3,13,16) = (/ & - &7.3660e+05 ,5.5245e+05 ,3.6830e+05 ,1.8415e+05 ,6.4518e+00 /) - kbo(:, 4,13,16) = (/ & - &7.3017e+05 ,5.4763e+05 ,3.6509e+05 ,1.8254e+05 ,7.2400e-02 /) - kbo(:, 5,13,16) = (/ & - &7.2523e+05 ,5.4392e+05 ,3.6262e+05 ,1.8131e+05 ,8.3840e-02 /) - kbo(:, 1,14,16) = (/ & - &5.4546e+05 ,4.0910e+05 ,2.7273e+05 ,1.3636e+05 ,1.2083e+01 /) - kbo(:, 2,14,16) = (/ & - &5.4530e+05 ,4.0897e+05 ,2.7264e+05 ,1.3632e+05 ,1.1940e+01 /) - kbo(:, 3,14,16) = (/ & - &5.4326e+05 ,4.0739e+05 ,2.7163e+05 ,1.3581e+05 ,1.1721e+01 /) - kbo(:, 4,14,16) = (/ & - &5.4132e+05 ,4.0599e+05 ,2.7066e+05 ,1.3533e+05 ,4.5827e+00 /) - kbo(:, 5,14,16) = (/ & - &5.3886e+05 ,4.0414e+05 ,2.6943e+05 ,1.3471e+05 ,7.8150e-02 /) - kbo(:, 1,15,16) = (/ & - &4.1181e+05 ,3.0886e+05 ,2.0591e+05 ,1.0295e+05 ,1.3732e+01 /) - kbo(:, 2,15,16) = (/ & - &4.1235e+05 ,3.0926e+05 ,2.0618e+05 ,1.0309e+05 ,1.3536e+01 /) - kbo(:, 3,15,16) = (/ & - &4.1248e+05 ,3.0936e+05 ,2.0624e+05 ,1.0312e+05 ,1.3259e+01 /) - kbo(:, 4,15,16) = (/ & - &4.1181e+05 ,3.0886e+05 ,2.0591e+05 ,1.0296e+05 ,1.2919e+01 /) - kbo(:, 5,15,16) = (/ & - &4.1010e+05 ,3.0757e+05 ,2.0505e+05 ,1.0253e+05 ,4.0719e+00 /) - kbo(:, 1,16,16) = (/ & - &3.7257e+05 ,2.7672e+05 ,1.8628e+05 ,9.3143e+04 ,1.5485e+01 /) - kbo(:, 2,16,16) = (/ & - &3.7431e+05 ,2.8074e+05 ,1.8716e+05 ,9.3579e+04 ,1.5222e+01 /) - kbo(:, 3,16,16) = (/ & - &3.7500e+05 ,2.8129e+05 ,1.8753e+05 ,9.3763e+04 ,1.4862e+01 /) - kbo(:, 4,16,16) = (/ & - &3.7444e+05 ,2.8083e+05 ,1.8722e+05 ,9.3612e+04 ,1.4438e+01 /) - kbo(:, 5,16,16) = (/ & - &3.7332e+05 ,2.7999e+05 ,1.8666e+05 ,9.3332e+04 ,7.6230e+00 /) - kbo(:, 1,17,16) = (/ & - &3.5182e+05 ,2.6386e+05 ,1.7591e+05 ,8.7955e+04 ,1.7290e+01 /) - kbo(:, 2,17,16) = (/ & - &3.5397e+05 ,2.6547e+05 ,1.7698e+05 ,8.8492e+04 ,1.6932e+01 /) - kbo(:, 3,17,16) = (/ & - &3.5462e+05 ,2.6597e+05 ,1.7731e+05 ,8.8656e+04 ,1.6480e+01 /) - kbo(:, 4,17,16) = (/ & - &3.5402e+05 ,2.6552e+05 ,1.7701e+05 ,8.8507e+04 ,1.5962e+01 /) - kbo(:, 5,17,16) = (/ & - &3.5314e+05 ,2.6486e+05 ,1.7657e+05 ,8.8287e+04 ,1.0353e+01 /) - kbo(:, 1,18,16) = (/ & - &3.4176e+05 ,2.5632e+05 ,1.7088e+05 ,8.5439e+04 ,1.9139e+01 /) - kbo(:, 2,18,16) = (/ & - &3.4367e+05 ,2.5775e+05 ,1.7183e+05 ,8.5917e+04 ,1.8641e+01 /) - kbo(:, 3,18,16) = (/ & - &3.4399e+05 ,2.5800e+05 ,1.7200e+05 ,8.5999e+04 ,1.8079e+01 /) - kbo(:, 4,18,16) = (/ & - &3.4376e+05 ,2.5782e+05 ,1.7188e+05 ,8.5941e+04 ,1.7627e+01 /) - kbo(:, 5,18,16) = (/ & - &3.4258e+05 ,2.5694e+05 ,1.7129e+05 ,8.5646e+04 ,1.3174e+01 /) - kbo(:, 1,19,16) = (/ & - &3.2677e+05 ,2.4508e+05 ,1.6338e+05 ,8.1692e+04 ,2.1598e+01 /) - kbo(:, 2,19,16) = (/ & - &3.2775e+05 ,2.4581e+05 ,1.6387e+05 ,8.1937e+04 ,2.1013e+01 /) - kbo(:, 3,19,16) = (/ & - &3.2835e+05 ,2.4626e+05 ,1.6417e+05 ,8.2068e+04 ,2.0530e+01 /) - kbo(:, 4,19,16) = (/ & - &3.2780e+05 ,2.4585e+05 ,1.6390e+05 ,8.1950e+04 ,2.0057e+01 /) - kbo(:, 5,19,16) = (/ & - &3.2322e+05 ,2.4484e+05 ,1.6323e+05 ,8.1613e+04 ,1.8218e+01 /) - kbo(:, 1,20,16) = (/ & - &3.3791e+05 ,2.5343e+05 ,1.6896e+05 ,8.4478e+04 ,2.4811e+01 /) - kbo(:, 2,20,16) = (/ & - &3.3834e+05 ,2.5376e+05 ,1.6917e+05 ,8.4586e+04 ,2.4163e+01 /) - kbo(:, 3,20,16) = (/ & - &3.3842e+05 ,2.5381e+05 ,1.6921e+05 ,8.4605e+04 ,2.3647e+01 /) - kbo(:, 4,20,16) = (/ & - &3.3728e+05 ,2.5296e+05 ,1.6864e+05 ,8.4321e+04 ,2.3144e+01 /) - kbo(:, 5,20,16) = (/ & - &3.3569e+05 ,2.5177e+05 ,1.6785e+05 ,8.3923e+04 ,2.2618e+01 /) - kbo(:, 1,21,16) = (/ & - &3.5913e+05 ,2.6935e+05 ,1.7956e+05 ,8.9782e+04 ,2.8889e+01 /) - kbo(:, 2,21,16) = (/ & - &3.5914e+05 ,2.6936e+05 ,1.7957e+05 ,8.9786e+04 ,2.8114e+01 /) - kbo(:, 3,21,16) = (/ & - &3.5794e+05 ,2.6846e+05 ,1.7897e+05 ,8.9486e+04 ,2.7459e+01 /) - kbo(:, 4,21,16) = (/ & - &3.5626e+05 ,2.6720e+05 ,1.7813e+05 ,8.9066e+04 ,2.6836e+01 /) - kbo(:, 5,21,16) = (/ & - &3.5369e+05 ,2.6527e+05 ,1.7684e+05 ,8.8423e+04 ,2.6161e+01 /) - kbo(:, 1,22,16) = (/ & - &3.8948e+05 ,2.9211e+05 ,1.9474e+05 ,9.7369e+04 ,3.3724e+01 /) - kbo(:, 2,22,16) = (/ & - &3.8828e+05 ,2.9121e+05 ,1.9414e+05 ,9.7069e+04 ,3.2720e+01 /) - kbo(:, 3,22,16) = (/ & - &3.8560e+05 ,2.8920e+05 ,1.9280e+05 ,9.6401e+04 ,3.1834e+01 /) - kbo(:, 4,22,16) = (/ & - &3.8253e+05 ,2.8690e+05 ,1.9127e+05 ,9.5633e+04 ,3.0971e+01 /) - kbo(:, 5,22,16) = (/ & - &3.7845e+05 ,2.8383e+05 ,1.8922e+05 ,9.4612e+04 ,3.0080e+01 /) - kbo(:, 1,23,16) = (/ & - &4.2147e+05 ,3.1611e+05 ,2.1074e+05 ,1.0537e+05 ,3.9276e+01 /) - kbo(:, 2,23,16) = (/ & - &4.1843e+05 ,3.1382e+05 ,2.0921e+05 ,1.0461e+05 ,3.7947e+01 /) - kbo(:, 3,23,16) = (/ & - &4.1438e+05 ,3.1079e+05 ,2.0719e+05 ,1.0360e+05 ,3.6734e+01 /) - kbo(:, 4,23,16) = (/ & - &4.0918e+05 ,3.0688e+05 ,2.0459e+05 ,1.0230e+05 ,3.5522e+01 /) - kbo(:, 5,23,16) = (/ & - &4.0269e+05 ,3.0202e+05 ,2.0135e+05 ,1.0067e+05 ,3.4322e+01 /) - kbo(:, 1,24,16) = (/ & - &4.4910e+05 ,3.3682e+05 ,2.2455e+05 ,1.1228e+05 ,4.5446e+01 /) - kbo(:, 2,24,16) = (/ & - &4.4436e+05 ,3.3327e+05 ,2.2218e+05 ,1.1109e+05 ,4.3684e+01 /) - kbo(:, 3,24,16) = (/ & - &4.3822e+05 ,3.2867e+05 ,2.1911e+05 ,1.0956e+05 ,4.2010e+01 /) - kbo(:, 4,24,16) = (/ & - &4.3055e+05 ,3.2291e+05 ,2.1528e+05 ,1.0764e+05 ,4.0380e+01 /) - kbo(:, 5,24,16) = (/ & - &4.2183e+05 ,3.1637e+05 ,2.1092e+05 ,1.0546e+05 ,3.8819e+01 /) - kbo(:, 1,25,16) = (/ & - &4.7951e+05 ,3.5963e+05 ,2.3975e+05 ,1.1988e+05 ,5.2030e+01 /) - kbo(:, 2,25,16) = (/ & - &4.7236e+05 ,3.5427e+05 ,2.3618e+05 ,1.1809e+05 ,4.9759e+01 /) - kbo(:, 3,25,16) = (/ & - &4.6345e+05 ,3.4759e+05 ,2.3173e+05 ,1.1586e+05 ,4.7513e+01 /) - kbo(:, 4,25,16) = (/ & - &4.5307e+05 ,3.3980e+05 ,2.2654e+05 ,1.1327e+05 ,4.5411e+01 /) - kbo(:, 5,25,16) = (/ & - &4.4201e+05 ,3.3151e+05 ,2.2101e+05 ,1.1050e+05 ,4.3416e+01 /) - kbo(:, 1,26,16) = (/ & - &5.1412e+05 ,3.8559e+05 ,2.5706e+05 ,1.2853e+05 ,5.8735e+01 /) - kbo(:, 2,26,16) = (/ & - &5.0368e+05 ,3.7776e+05 ,2.5184e+05 ,1.2592e+05 ,5.5868e+01 /) - kbo(:, 3,26,16) = (/ & - &4.9157e+05 ,3.6868e+05 ,2.4579e+05 ,1.2289e+05 ,5.3078e+01 /) - kbo(:, 4,26,16) = (/ & - &4.7856e+05 ,3.5892e+05 ,2.3928e+05 ,1.1964e+05 ,5.0425e+01 /) - kbo(:, 5,26,16) = (/ & - &4.6464e+05 ,3.4848e+05 ,2.3232e+05 ,1.1616e+05 ,4.7921e+01 /) - kbo(:, 1,27,16) = (/ & - &5.6504e+05 ,4.2378e+05 ,2.8252e+05 ,1.4126e+05 ,6.5394e+01 /) - kbo(:, 2,27,16) = (/ & - &5.5002e+05 ,4.1252e+05 ,2.7501e+05 ,1.3751e+05 ,6.1825e+01 /) - kbo(:, 3,27,16) = (/ & - &5.3436e+05 ,4.0077e+05 ,2.6718e+05 ,1.3359e+05 ,5.8497e+01 /) - kbo(:, 4,27,16) = (/ & - &5.1782e+05 ,3.8837e+05 ,2.5891e+05 ,1.2946e+05 ,5.5282e+01 /) - kbo(:, 5,27,16) = (/ & - &5.0051e+05 ,3.7538e+05 ,2.5025e+05 ,1.2513e+05 ,5.2211e+01 /) - kbo(:, 1,28,16) = (/ & - &6.2869e+05 ,4.7152e+05 ,3.1435e+05 ,1.5717e+05 ,7.1700e+01 /) - kbo(:, 2,28,16) = (/ & - &6.0862e+05 ,4.5646e+05 ,3.0431e+05 ,1.5215e+05 ,6.7460e+01 /) - kbo(:, 3,28,16) = (/ & - &5.8860e+05 ,4.4145e+05 ,2.9430e+05 ,1.4715e+05 ,6.3511e+01 /) - kbo(:, 4,28,16) = (/ & - &5.6780e+05 ,4.2585e+05 ,2.8390e+05 ,1.4195e+05 ,5.9746e+01 /) - kbo(:, 5,28,16) = (/ & - &5.4624e+05 ,4.0968e+05 ,2.7312e+05 ,1.3656e+05 ,5.6156e+01 /) - kbo(:, 1,29,16) = (/ & - &7.3240e+05 ,5.4930e+05 ,3.6620e+05 ,1.8310e+05 ,7.7436e+01 /) - kbo(:, 2,29,16) = (/ & - &7.0567e+05 ,5.2925e+05 ,3.5284e+05 ,1.7642e+05 ,7.2532e+01 /) - kbo(:, 3,29,16) = (/ & - &6.7920e+05 ,5.0940e+05 ,3.3960e+05 ,1.6980e+05 ,6.7962e+01 /) - kbo(:, 4,29,16) = (/ & - &6.5231e+05 ,4.8923e+05 ,3.2615e+05 ,1.6308e+05 ,6.3669e+01 /) - kbo(:, 5,29,16) = (/ & - &6.2510e+05 ,4.6882e+05 ,3.1255e+05 ,1.5627e+05 ,5.9600e+01 /) - kbo(:, 1,30,16) = (/ & - &8.6319e+05 ,6.4740e+05 ,4.3160e+05 ,2.1580e+05 ,8.2489e+01 /) - kbo(:, 2,30,16) = (/ & - &8.2811e+05 ,6.2108e+05 ,4.1405e+05 ,2.0703e+05 ,7.6918e+01 /) - kbo(:, 3,30,16) = (/ & - &7.9339e+05 ,5.9504e+05 ,3.9669e+05 ,1.9835e+05 ,7.1793e+01 /) - kbo(:, 4,30,16) = (/ & - &7.5902e+05 ,5.6926e+05 ,3.7951e+05 ,1.8975e+05 ,6.6976e+01 /) - kbo(:, 5,30,16) = (/ & - &7.2513e+05 ,5.4385e+05 ,3.6256e+05 ,1.8128e+05 ,5.5921e+01 /) - kbo(:, 1,31,16) = (/ & - &1.0572e+06 ,7.9291e+05 ,5.2861e+05 ,2.6430e+05 ,8.6704e+01 /) - kbo(:, 2,31,16) = (/ & - &1.0099e+06 ,7.5744e+05 ,5.0496e+05 ,2.5248e+05 ,8.0546e+01 /) - kbo(:, 3,31,16) = (/ & - &9.6381e+05 ,7.2285e+05 ,4.8190e+05 ,2.4095e+05 ,7.4889e+01 /) - kbo(:, 4,31,16) = (/ & - &9.1917e+05 ,6.8937e+05 ,4.5958e+05 ,2.2979e+05 ,6.9630e+01 /) - kbo(:, 5,31,16) = (/ & - &8.7558e+05 ,6.5669e+05 ,4.3779e+05 ,2.1889e+05 ,5.1048e+01 /) - kbo(:, 1,32,16) = (/ & - &1.2953e+06 ,9.7146e+05 ,6.4764e+05 ,3.2382e+05 ,9.0053e+01 /) - kbo(:, 2,32,16) = (/ & - &1.2332e+06 ,9.2492e+05 ,6.1662e+05 ,3.0831e+05 ,8.3375e+01 /) - kbo(:, 3,32,16) = (/ & - &1.1732e+06 ,8.7992e+05 ,5.8661e+05 ,2.9331e+05 ,7.7283e+01 /) - kbo(:, 4,32,16) = (/ & - &1.1156e+06 ,8.3672e+05 ,5.5781e+05 ,2.7891e+05 ,5.9068e+01 /) - kbo(:, 5,32,16) = (/ & - &1.0600e+06 ,7.9499e+05 ,5.3000e+05 ,2.6500e+05 ,4.7615e+01 /) - kbo(:, 1,33,16) = (/ & - &1.6005e+06 ,1.2004e+06 ,8.0025e+05 ,4.0013e+05 ,9.2564e+01 /) - kbo(:, 2,33,16) = (/ & - &1.5042e+06 ,1.1396e+06 ,7.5976e+05 ,3.7988e+05 ,8.5451e+01 /) - kbo(:, 3,33,16) = (/ & - &1.4412e+06 ,1.0809e+06 ,7.2060e+05 ,3.6030e+05 ,6.7956e+01 /) - kbo(:, 4,33,16) = (/ & - &1.3676e+06 ,1.0257e+06 ,6.8379e+05 ,3.4189e+05 ,5.3693e+01 /) - kbo(:, 5,33,16) = (/ & - &1.2966e+06 ,9.7245e+05 ,6.4830e+05 ,3.2415e+05 ,4.3539e+01 /) - kbo(:, 1,34,16) = (/ & - &1.9162e+06 ,1.4372e+06 ,9.5812e+05 ,4.7906e+05 ,9.4564e+01 /) - kbo(:, 2,34,16) = (/ & - &1.8147e+06 ,1.3610e+06 ,9.0734e+05 ,4.5367e+05 ,8.5602e+01 /) - kbo(:, 3,34,16) = (/ & - &1.7177e+06 ,1.2883e+06 ,8.5884e+05 ,4.2942e+05 ,6.2695e+01 /) - kbo(:, 4,34,16) = (/ & - &1.6266e+06 ,1.2199e+06 ,8.1329e+05 ,4.0664e+05 ,5.0461e+01 /) - kbo(:, 5,34,16) = (/ & - &1.5395e+06 ,1.1546e+06 ,7.6973e+05 ,3.8486e+05 ,4.1009e+01 /) - kbo(:, 1,35,16) = (/ & - &2.2940e+06 ,1.7205e+06 ,1.1470e+06 ,5.7350e+05 ,9.6683e+01 /) - kbo(:, 2,35,16) = (/ & - &2.1679e+06 ,1.6259e+06 ,1.0839e+06 ,5.4197e+05 ,7.5706e+01 /) - kbo(:, 3,35,16) = (/ & - &2.0487e+06 ,1.5365e+06 ,1.0243e+06 ,5.1216e+05 ,5.9415e+01 /) - kbo(:, 4,35,16) = (/ & - &1.9369e+06 ,1.4527e+06 ,9.6844e+05 ,4.8422e+05 ,4.7837e+01 /) - kbo(:, 5,35,16) = (/ & - &1.8303e+06 ,1.3728e+06 ,9.1517e+05 ,4.5758e+05 ,3.3167e+01 /) - kbo(:, 1,36,16) = (/ & - &2.7323e+06 ,2.0492e+06 ,1.3661e+06 ,6.8307e+05 ,9.9200e+01 /) - kbo(:, 2,36,16) = (/ & - &2.5780e+06 ,1.9335e+06 ,1.2890e+06 ,6.4450e+05 ,7.2688e+01 /) - kbo(:, 3,36,16) = (/ & - &2.4326e+06 ,1.8244e+06 ,1.2163e+06 ,6.0814e+05 ,5.7708e+01 /) - kbo(:, 4,36,16) = (/ & - &2.2967e+06 ,1.7225e+06 ,1.1483e+06 ,5.7417e+05 ,4.6712e+01 /) - kbo(:, 5,36,16) = (/ & - &2.1679e+06 ,1.6259e+06 ,1.0839e+06 ,5.4197e+05 ,1.2791e+01 /) - kbo(:, 1,37,16) = (/ & - &3.1885e+06 ,2.3914e+06 ,1.5942e+06 ,7.9711e+05 ,1.0268e+02 /) - kbo(:, 2,37,16) = (/ & - &3.0040e+06 ,2.2530e+06 ,1.5020e+06 ,7.5099e+05 ,7.3443e+01 /) - kbo(:, 3,37,16) = (/ & - &2.8309e+06 ,2.1232e+06 ,1.4155e+06 ,7.0773e+05 ,5.8756e+01 /) - kbo(:, 4,37,16) = (/ & - &2.6696e+06 ,2.0022e+06 ,1.3348e+06 ,6.6739e+05 ,4.7388e+01 /) - kbo(:, 5,37,16) = (/ & - &2.5177e+06 ,1.8883e+06 ,1.2588e+06 ,6.2942e+05 ,7.8483e+00 /) - kbo(:, 1,38,16) = (/ & - &3.7660e+06 ,2.8245e+06 ,1.8830e+06 ,9.4149e+05 ,1.0053e+02 /) - kbo(:, 2,38,16) = (/ & - &3.5441e+06 ,2.6581e+06 ,1.7720e+06 ,8.8602e+05 ,7.3960e+01 /) - kbo(:, 3,38,16) = (/ & - &3.3357e+06 ,2.5018e+06 ,1.6678e+06 ,8.3391e+05 ,5.9673e+01 /) - kbo(:, 4,38,16) = (/ & - &3.1421e+06 ,2.3566e+06 ,1.5711e+06 ,7.8553e+05 ,4.7953e+01 /) - kbo(:, 5,38,16) = (/ & - &2.9610e+06 ,2.2207e+06 ,1.4805e+06 ,7.4024e+05 ,7.1016e-04 /) - kbo(:, 1,39,16) = (/ & - &4.5378e+06 ,3.4034e+06 ,2.2689e+06 ,1.1345e+06 ,9.8727e+01 /) - kbo(:, 2,39,16) = (/ & - &4.2667e+06 ,3.2000e+06 ,2.1334e+06 ,1.0667e+06 ,7.4242e+01 /) - kbo(:, 3,39,16) = (/ & - &4.0124e+06 ,3.0093e+06 ,2.0062e+06 ,1.0031e+06 ,5.9575e+01 /) - kbo(:, 4,39,16) = (/ & - &3.7760e+06 ,2.8320e+06 ,1.8880e+06 ,9.4400e+05 ,3.9674e+01 /) - kbo(:, 5,39,16) = (/ & - &3.5558e+06 ,2.6669e+06 ,1.7591e+06 ,8.8898e+05 ,5.7405e-04 /) - kbo(:, 1,40,16) = (/ & - &5.1586e+06 ,3.8690e+06 ,2.5793e+06 ,1.2896e+06 ,1.0433e+02 /) - kbo(:, 2,40,16) = (/ & - &4.8469e+06 ,3.6347e+06 ,2.4234e+06 ,1.2117e+06 ,7.7760e+01 /) - kbo(:, 3,40,16) = (/ & - &4.5541e+06 ,3.4156e+06 ,2.2770e+06 ,1.1385e+06 ,6.1585e+01 /) - kbo(:, 4,40,16) = (/ & - &4.2818e+06 ,3.2114e+06 ,2.1409e+06 ,1.0704e+06 ,4.0940e+01 /) - kbo(:, 5,40,16) = (/ & - &4.0296e+06 ,3.0222e+06 ,2.0148e+06 ,1.0074e+06 ,4.6888e-04 /) - kbo(:, 1,41,16) = (/ & - &5.8465e+06 ,4.3849e+06 ,2.9233e+06 ,1.4616e+06 ,1.1317e+02 /) - kbo(:, 2,41,16) = (/ & - &5.4907e+06 ,4.1180e+06 ,2.7454e+06 ,1.3727e+06 ,8.1398e+01 /) - kbo(:, 3,41,16) = (/ & - &5.1550e+06 ,3.8663e+06 ,2.5775e+06 ,1.2888e+06 ,6.4536e+01 /) - kbo(:, 4,41,16) = (/ & - &4.8434e+06 ,3.6326e+06 ,2.4217e+06 ,1.2109e+06 ,4.3960e+01 /) - kbo(:, 5,41,16) = (/ & - &4.5548e+06 ,3.4161e+06 ,2.2774e+06 ,1.1387e+06 ,3.7799e-04 /) - kbo(:, 1,42,16) = (/ & - &6.6900e+06 ,5.0175e+06 ,3.3450e+06 ,1.6725e+06 ,1.2124e+02 /) - kbo(:, 2,42,16) = (/ & - &6.2794e+06 ,4.7096e+06 ,3.1397e+06 ,1.5698e+06 ,8.5097e+01 /) - kbo(:, 3,42,16) = (/ & - &5.8926e+06 ,4.4195e+06 ,2.9463e+06 ,1.4731e+06 ,6.7520e+01 /) - kbo(:, 4,42,16) = (/ & - &5.5323e+06 ,4.1492e+06 ,2.7661e+06 ,1.3831e+06 ,4.6182e+01 /) - kbo(:, 5,42,16) = (/ & - &5.1983e+06 ,3.8987e+06 ,2.5991e+06 ,1.2996e+06 ,3.0509e-04 /) - kbo(:, 1,43,16) = (/ & - &7.7419e+06 ,5.8065e+06 ,3.8710e+06 ,1.9355e+06 ,1.2600e+02 /) - kbo(:, 2,43,16) = (/ & - &7.2619e+06 ,5.4481e+06 ,3.6321e+06 ,1.8161e+06 ,9.0385e+01 /) - kbo(:, 3,43,16) = (/ & - &6.8139e+06 ,5.1104e+06 ,3.4070e+06 ,1.7035e+06 ,7.0944e+01 /) - kbo(:, 4,43,16) = (/ & - &6.3928e+06 ,4.7946e+06 ,3.1964e+06 ,1.5982e+06 ,5.0507e+01 /) - kbo(:, 5,43,16) = (/ & - &6.0029e+06 ,4.5022e+06 ,3.0015e+06 ,1.5007e+06 ,2.4615e-04 /) - kbo(:, 1,44,16) = (/ & - &9.0918e+06 ,6.8188e+06 ,4.5458e+06 ,2.2729e+06 ,1.3122e+02 /) - kbo(:, 2,44,16) = (/ & - &8.5266e+06 ,6.3949e+06 ,4.2633e+06 ,2.1316e+06 ,9.7168e+01 /) - kbo(:, 3,44,16) = (/ & - &7.9959e+06 ,5.9969e+06 ,3.9979e+06 ,1.9989e+06 ,7.5640e+01 /) - kbo(:, 4,44,16) = (/ & - &7.4967e+06 ,5.6225e+06 ,3.7483e+06 ,1.8741e+06 ,5.7032e+01 /) - kbo(:, 5,44,16) = (/ & - &7.0357e+06 ,5.2767e+06 ,3.5178e+06 ,1.7589e+06 ,1.1125e-02 /) - kbo(:, 1,45,16) = (/ & - &1.0890e+07 ,8.1678e+06 ,5.4452e+06 ,2.7226e+06 ,1.3511e+02 /) - kbo(:, 2,45,16) = (/ & - &1.0206e+07 ,7.6543e+06 ,5.1028e+06 ,2.5514e+06 ,1.0320e+02 /) - kbo(:, 3,45,16) = (/ & - &9.5676e+06 ,7.1757e+06 ,4.7838e+06 ,2.3919e+06 ,7.9521e+01 /) - kbo(:, 4,45,16) = (/ & - &8.9682e+06 ,6.7261e+06 ,4.4841e+06 ,2.2420e+06 ,5.3314e+01 /) - kbo(:, 5,45,16) = (/ & - &8.4107e+06 ,6.3080e+06 ,4.2053e+06 ,2.1027e+06 ,2.2542e-04 /) - kbo(:, 1,46,16) = (/ & - &1.3200e+07 ,9.8998e+06 ,6.5999e+06 ,3.2999e+06 ,1.4245e+02 /) - kbo(:, 2,46,16) = (/ & - &1.2354e+07 ,9.2658e+06 ,6.1772e+06 ,3.0886e+06 ,1.1090e+02 /) - kbo(:, 3,46,16) = (/ & - &1.1578e+07 ,8.6832e+06 ,5.7888e+06 ,2.8944e+06 ,8.3717e+01 /) - kbo(:, 4,46,16) = (/ & - &1.0851e+07 ,8.1384e+06 ,5.4256e+06 ,2.7128e+06 ,5.1335e+01 /) - kbo(:, 5,46,16) = (/ & - &1.0172e+07 ,7.6289e+06 ,5.0860e+06 ,2.5430e+06 ,1.9729e-04 /) - kbo(:, 1,47,16) = (/ & - &1.5899e+07 ,1.1924e+07 ,7.9494e+06 ,3.9747e+06 ,1.4926e+02 /) - kbo(:, 2,47,16) = (/ & - &1.4859e+07 ,1.1144e+07 ,7.4297e+06 ,3.7148e+06 ,1.2298e+02 /) - kbo(:, 3,47,16) = (/ & - &1.3924e+07 ,1.0443e+07 ,6.9621e+06 ,3.4810e+06 ,8.5230e+01 /) - kbo(:, 4,47,16) = (/ & - &1.3046e+07 ,9.7847e+06 ,6.5231e+06 ,3.2616e+06 ,5.3561e+01 /) - kbo(:, 5,47,16) = (/ & - &1.2222e+07 ,9.1665e+06 ,6.1110e+06 ,3.0555e+06 ,1.6606e-04 /) - kbo(:, 1,48,16) = (/ & - &1.9701e+07 ,1.4775e+07 ,9.8503e+06 ,4.9251e+06 ,1.5645e+02 /) - kbo(:, 2,48,16) = (/ & - &1.8394e+07 ,1.3796e+07 ,9.1972e+06 ,4.5986e+06 ,1.4059e+02 /) - kbo(:, 3,48,16) = (/ & - &1.7217e+07 ,1.2913e+07 ,8.6087e+06 ,4.3044e+06 ,8.5580e+01 /) - kbo(:, 4,48,16) = (/ & - &1.6130e+07 ,1.2097e+07 ,8.0649e+06 ,4.0324e+06 ,5.5884e+01 /) - kbo(:, 5,48,16) = (/ & - &1.5108e+07 ,1.1331e+07 ,7.5542e+06 ,3.7771e+06 ,1.4110e-04 /) - kbo(:, 1,49,16) = (/ & - &2.5446e+07 ,1.9085e+07 ,1.2723e+07 ,6.3615e+06 ,1.6402e+02 /) - kbo(:, 2,49,16) = (/ & - &2.3735e+07 ,1.7801e+07 ,1.1868e+07 ,5.9337e+06 ,1.4463e+02 /) - kbo(:, 3,49,16) = (/ & - &2.2185e+07 ,1.6639e+07 ,1.1093e+07 ,5.5463e+06 ,8.5806e+01 /) - kbo(:, 4,49,16) = (/ & - &2.0781e+07 ,1.5586e+07 ,1.0390e+07 ,5.1952e+06 ,5.2515e+01 /) - kbo(:, 5,49,16) = (/ & - &1.9463e+07 ,1.4597e+07 ,9.7313e+06 ,4.8656e+06 ,1.1804e-04 /) - kbo(:, 1,50,16) = (/ & - &3.1256e+07 ,2.3442e+07 ,1.5628e+07 ,7.8139e+06 ,1.7145e+02 /) - kbo(:, 2,50,16) = (/ & - &2.9123e+07 ,2.1842e+07 ,1.4562e+07 ,7.2808e+06 ,1.4715e+02 /) - kbo(:, 3,50,16) = (/ & - &2.7197e+07 ,2.0398e+07 ,1.3599e+07 ,6.7993e+06 ,9.2079e+01 /) - kbo(:, 4,50,16) = (/ & - &2.5458e+07 ,1.9094e+07 ,1.2729e+07 ,6.3645e+06 ,5.7113e+01 /) - kbo(:, 5,50,16) = (/ & - &2.3842e+07 ,1.7882e+07 ,1.1921e+07 ,5.9606e+06 ,9.7879e-05 /) - kbo(:, 1,51,16) = (/ & - &3.7532e+07 ,2.8149e+07 ,1.8766e+07 ,9.3831e+06 ,1.7913e+02 /) - kbo(:, 2,51,16) = (/ & - &3.4951e+07 ,2.6213e+07 ,1.7476e+07 ,8.7379e+06 ,1.5348e+02 /) - kbo(:, 3,51,16) = (/ & - &3.2604e+07 ,2.4453e+07 ,1.6302e+07 ,8.1511e+06 ,9.9906e+01 /) - kbo(:, 4,51,16) = (/ & - &3.0489e+07 ,2.2867e+07 ,1.5245e+07 ,7.6224e+06 ,6.1926e+01 /) - kbo(:, 5,51,16) = (/ & - &2.8553e+07 ,2.1415e+07 ,1.4277e+07 ,7.1383e+06 ,8.2332e-05 /) - kbo(:, 1,52,16) = (/ & - &4.6363e+07 ,3.4773e+07 ,2.3182e+07 ,1.1591e+07 ,1.8724e+02 /) - kbo(:, 2,52,16) = (/ & - &4.3154e+07 ,3.2365e+07 ,2.1577e+07 ,1.0789e+07 ,1.5735e+02 /) - kbo(:, 3,52,16) = (/ & - &4.0219e+07 ,3.0165e+07 ,2.0110e+07 ,1.0055e+07 ,1.0819e+02 /) - kbo(:, 4,52,16) = (/ & - &3.7571e+07 ,2.8178e+07 ,1.8786e+07 ,9.3929e+06 ,6.5746e+01 /) - kbo(:, 5,52,16) = (/ & - &3.5175e+07 ,2.6382e+07 ,1.7588e+07 ,8.7937e+06 ,2.5991e+00 /) - kbo(:, 1,53,16) = (/ & - &5.9694e+07 ,4.4771e+07 ,2.9847e+07 ,1.4924e+07 ,1.9593e+02 /) - kbo(:, 2,53,16) = (/ & - &5.5520e+07 ,4.1640e+07 ,2.7760e+07 ,1.3880e+07 ,1.5986e+02 /) - kbo(:, 3,53,16) = (/ & - &5.1713e+07 ,3.8785e+07 ,2.5857e+07 ,1.2928e+07 ,1.1418e+02 /) - kbo(:, 4,53,16) = (/ & - &4.8267e+07 ,3.6200e+07 ,2.4134e+07 ,1.2067e+07 ,6.7101e+01 /) - kbo(:, 5,53,16) = (/ & - &4.5154e+07 ,3.3866e+07 ,2.2577e+07 ,1.1289e+07 ,5.4836e-05 /) - kbo(:, 1,54,16) = (/ & - &6.6291e+07 ,4.9719e+07 ,3.3146e+07 ,1.6573e+07 ,2.0438e+02 /) - kbo(:, 2,54,16) = (/ & - &6.1631e+07 ,4.6223e+07 ,3.0816e+07 ,1.5408e+07 ,1.7539e+02 /) - kbo(:, 3,54,16) = (/ & - &5.7374e+07 ,4.3031e+07 ,2.8687e+07 ,1.4344e+07 ,1.3582e+02 /) - kbo(:, 4,54,16) = (/ & - &5.3498e+07 ,4.0123e+07 ,2.6749e+07 ,1.3375e+07 ,7.9383e+01 /) - kbo(:, 5,54,16) = (/ & - &5.0001e+07 ,3.7501e+07 ,2.5001e+07 ,1.2501e+07 ,1.9380e+01 /) - kbo(:, 1,55,16) = (/ & - &6.7110e+07 ,5.0333e+07 ,3.3555e+07 ,1.6778e+07 ,2.1302e+02 /) - kbo(:, 2,55,16) = (/ & - &6.2350e+07 ,4.6763e+07 ,3.1175e+07 ,1.5588e+07 ,1.8842e+02 /) - kbo(:, 3,55,16) = (/ & - &5.8012e+07 ,4.3509e+07 ,2.9006e+07 ,1.4503e+07 ,1.5117e+02 /) - kbo(:, 4,55,16) = (/ & - &5.4054e+07 ,4.0541e+07 ,2.7027e+07 ,1.3514e+07 ,1.0060e+02 /) - kbo(:, 5,55,16) = (/ & - &5.0479e+07 ,3.7859e+07 ,2.5240e+07 ,1.2620e+07 ,5.1596e+01 /) - kbo(:, 1,56,16) = (/ & - &6.7946e+07 ,5.0959e+07 ,3.3973e+07 ,1.6986e+07 ,2.2213e+02 /) - kbo(:, 2,56,16) = (/ & - &6.3087e+07 ,4.7315e+07 ,3.1543e+07 ,1.5771e+07 ,1.9599e+02 /) - kbo(:, 3,56,16) = (/ & - &5.8660e+07 ,4.3995e+07 ,2.9330e+07 ,1.4665e+07 ,1.7426e+02 /) - kbo(:, 4,56,16) = (/ & - &5.4632e+07 ,4.0974e+07 ,2.7316e+07 ,1.3658e+07 ,1.3341e+02 /) - kbo(:, 5,56,16) = (/ & - &5.0980e+07 ,3.8235e+07 ,2.5490e+07 ,1.2745e+07 ,7.5113e+01 /) - kbo(:, 1,57,16) = (/ & - &6.8848e+07 ,5.1636e+07 ,3.4424e+07 ,1.7212e+07 ,2.3193e+02 /) - kbo(:, 2,57,16) = (/ & - &6.3831e+07 ,4.7873e+07 ,3.1915e+07 ,1.5958e+07 ,2.0396e+02 /) - kbo(:, 3,57,16) = (/ & - &5.9337e+07 ,4.4503e+07 ,2.9325e+07 ,1.4834e+07 ,1.8090e+02 /) - kbo(:, 4,57,16) = (/ & - &5.5232e+07 ,4.1423e+07 ,2.7615e+07 ,1.3808e+07 ,1.4946e+02 /) - kbo(:, 5,57,16) = (/ & - &5.1498e+07 ,3.8623e+07 ,2.5749e+07 ,1.2874e+07 ,9.6802e+01 /) - kbo(:, 1,58,16) = (/ & - &1.8392e+07 ,1.6863e+07 ,1.4458e+07 ,1.0126e+07 ,2.4193e+02 /) - kbo(:, 2,58,16) = (/ & - &1.7018e+07 ,1.5603e+07 ,1.3378e+07 ,9.3701e+06 ,2.1195e+02 /) - kbo(:, 3,58,16) = (/ & - &1.5812e+07 ,1.4497e+07 ,1.2430e+07 ,8.7057e+06 ,1.8755e+02 /) - kbo(:, 4,58,16) = (/ & - &1.4710e+07 ,1.3487e+07 ,1.1564e+07 ,8.0993e+06 ,1.6722e+02 /) - kbo(:, 5,58,16) = (/ & - &1.3707e+07 ,1.2567e+07 ,1.0775e+07 ,7.5470e+06 ,1.3461e+02 /) - kbo(:, 1,59,16) = (/ & - &2.1701e+07 ,1.8948e+07 ,1.5114e+07 ,9.4051e+06 ,2.4616e+02 /) - kbo(:, 2,59,16) = (/ & - &2.0062e+07 ,1.7517e+07 ,1.3973e+07 ,8.5918e+06 ,2.1536e+02 /) - kbo(:, 3,59,16) = (/ & - &1.8637e+07 ,1.6273e+07 ,1.2980e+07 ,8.0770e+06 ,1.9038e+02 /) - kbo(:, 4,59,16) = (/ & - &1.7332e+07 ,1.5134e+07 ,1.2072e+07 ,7.5118e+06 ,1.6959e+02 /) - kbo(:, 5,59,16) = (/ & - &1.6145e+07 ,1.4097e+07 ,1.1245e+07 ,6.9973e+06 ,1.5180e+02 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &3.3839e-04 ,2.4739e-04 ,2.2846e-04 ,2.3376e-04 ,2.2622e-04 ,2.3188e-04 , & - &2.2990e-04 ,2.2532e-04 ,2.1233e-04 ,2.0593e-04 ,2.0716e-04 ,2.0809e-04 , & - &2.0889e-04 ,2.0932e-04 ,2.0944e-04 ,2.0945e-04 /) - forrefo(2,:) = (/ & - &3.4391e-04 ,2.6022e-04 ,2.3449e-04 ,2.4544e-04 ,2.3831e-04 ,2.3014e-04 , & - &2.3729e-04 ,2.2726e-04 ,2.1892e-04 ,1.9223e-04 ,2.1291e-04 ,2.1406e-04 , & - &2.1491e-04 ,2.1548e-04 ,2.1562e-04 ,2.1567e-04 /) - forrefo(3,:) = (/ & - &3.4219e-04 ,2.7334e-04 ,2.3727e-04 ,2.4515e-04 ,2.5272e-04 ,2.4212e-04 , & - &2.3824e-04 ,2.3615e-04 ,2.2724e-04 ,2.2381e-04 ,1.9634e-04 ,2.1625e-04 , & - &2.1963e-04 ,2.2032e-04 ,2.2057e-04 ,2.2058e-04 /) - forrefo(4,:) = (/ & - &3.1684e-04 ,2.4823e-04 ,2.4890e-04 ,2.4577e-04 ,2.4106e-04 ,2.4353e-04 , & - &2.4038e-04 ,2.3932e-04 ,2.3604e-04 ,2.3773e-04 ,2.4243e-04 ,2.2597e-04 , & - &2.2879e-04 ,2.2440e-04 ,2.1104e-04 ,2.1460e-04 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 2.62922e-01 , 2.29106e-01 , 1.99640e-01 , 1.73964e-01 , 1.51589e-01 , & - & 1.32093e-01 , 1.15104e-01 , 1.00300e-01 , 8.74000e-02 , 7.61592e-02 /) - selfrefo(:, 2) = (/ & - & 2.45448e-01 , 2.13212e-01 , 1.85210e-01 , 1.60886e-01 , 1.39756e-01 , & - & 1.21401e-01 , 1.05457e-01 , 9.16070e-02 , 7.95759e-02 , 6.91249e-02 /) - selfrefo(:, 3) = (/ & - & 2.41595e-01 , 2.09697e-01 , 1.82010e-01 , 1.57979e-01 , 1.37121e-01 , & - & 1.19016e-01 , 1.03302e-01 , 8.96630e-02 , 7.78246e-02 , 6.75492e-02 /) - selfrefo(:, 4) = (/ & - & 2.44818e-01 , 2.12172e-01 , 1.83880e-01 , 1.59360e-01 , 1.38110e-01 , & - & 1.19694e-01 , 1.03733e-01 , 8.99010e-02 , 7.79131e-02 , 6.75238e-02 /) - selfrefo(:, 5) = (/ & - & 2.43458e-01 , 2.10983e-01 , 1.82840e-01 , 1.58451e-01 , 1.37315e-01 , & - & 1.18998e-01 , 1.03125e-01 , 8.93690e-02 , 7.74480e-02 , 6.71171e-02 /) - selfrefo(:, 6) = (/ & - & 2.40186e-01 , 2.08745e-01 , 1.81420e-01 , 1.57672e-01 , 1.37032e-01 , & - & 1.19095e-01 , 1.03505e-01 , 8.99560e-02 , 7.81806e-02 , 6.79467e-02 /) - selfrefo(:, 7) = (/ & - & 2.42752e-01 , 2.10579e-01 , 1.82670e-01 , 1.58460e-01 , 1.37459e-01 , & - & 1.19240e-01 , 1.03437e-01 , 8.97280e-02 , 7.78359e-02 , 6.75200e-02 /) - selfrefo(:, 8) = (/ & - & 2.39620e-01 , 2.08166e-01 , 1.80840e-01 , 1.57101e-01 , 1.36479e-01 , & - & 1.18563e-01 , 1.03000e-01 , 8.94790e-02 , 7.77332e-02 , 6.75292e-02 /) - selfrefo(:, 9) = (/ & - & 2.38856e-01 , 2.07166e-01 , 1.79680e-01 , 1.55841e-01 , 1.35165e-01 , & - & 1.17232e-01 , 1.01678e-01 , 8.81880e-02 , 7.64877e-02 , 6.63397e-02 /) - selfrefo(:,10) = (/ & - & 2.29821e-01 , 2.00586e-01 , 1.75070e-01 , 1.52800e-01 , 1.33363e-01 , & - & 1.16398e-01 , 1.01591e-01 , 8.86680e-02 , 7.73887e-02 , 6.75443e-02 /) - selfrefo(:,11) = (/ & - & 2.39945e-01 , 2.08186e-01 , 1.80630e-01 , 1.56722e-01 , 1.35978e-01 , & - & 1.17980e-01 , 1.02364e-01 , 8.88150e-02 , 7.70594e-02 , 6.68598e-02 /) - selfrefo(:,12) = (/ & - & 2.40271e-01 , 2.08465e-01 , 1.80870e-01 , 1.56927e-01 , 1.36154e-01 , & - & 1.18131e-01 , 1.02494e-01 , 8.89260e-02 , 7.71545e-02 , 6.69412e-02 /) - selfrefo(:,13) = (/ & - & 2.40503e-01 , 2.08670e-01 , 1.81050e-01 , 1.57086e-01 , 1.36294e-01 , & - & 1.18254e-01 , 1.02602e-01 , 8.90210e-02 , 7.72380e-02 , 6.70147e-02 /) - selfrefo(:,14) = (/ & - & 2.40670e-01 , 2.08811e-01 , 1.81170e-01 , 1.57188e-01 , 1.36380e-01 , & - & 1.18327e-01 , 1.02663e-01 , 8.90730e-02 , 7.72819e-02 , 6.70517e-02 /) - selfrefo(:,15) = (/ & - & 2.40711e-01 , 2.08846e-01 , 1.81200e-01 , 1.57213e-01 , 1.36402e-01 , & - & 1.18346e-01 , 1.02679e-01 , 8.90870e-02 , 7.72939e-02 , 6.70621e-02 /) - selfrefo(:,16) = (/ & - & 2.40727e-01 , 2.08859e-01 , 1.81210e-01 , 1.57221e-01 , 1.36408e-01 , & - & 1.18350e-01 , 1.02682e-01 , 8.90890e-02 , 7.72952e-02 , 6.70627e-02 /) - - end subroutine lw_kgb04 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_05.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_05.F90 deleted file mode 100644 index 3b0051f3a..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_05.F90 +++ /dev/null @@ -1,11600 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb05 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg05, only : fracrefao, fracrefbo, kao, kbo, kao_mo3, & - selfrefo, forrefo, ccl4o - - implicit none - save - -! Planck fraction mapping level : P = 473.42 mb, T = 259.83 - fracrefao(:, 1) = (/ & - 1.4111e-01 ,1.4222e-01 ,1.3802e-01 ,1.3101e-01 ,1.2244e-01 ,1.0691e-01 , & - 8.8703e-02 ,6.7130e-02 ,4.5509e-02 ,4.9866e-03 ,4.1214e-03 ,3.2557e-03 , & - 2.3805e-03 ,1.5450e-03 ,5.8423e-04 ,8.2275e-05 /) - fracrefao(:, 2) = (/ & - 1.4152e-01 ,1.4271e-01 ,1.3784e-01 ,1.3075e-01 ,1.2215e-01 ,1.0674e-01 , & - 8.8686e-02 ,6.7135e-02 ,4.5508e-02 ,4.9866e-03 ,4.1214e-03 ,3.2558e-03 , & - 2.3805e-03 ,1.5450e-03 ,5.8423e-04 ,8.2275e-05 /) - fracrefao(:, 3) = (/ & - 1.4159e-01 ,1.4300e-01 ,1.3781e-01 ,1.3094e-01 ,1.2192e-01 ,1.0661e-01 , & - 8.8529e-02 ,6.7127e-02 ,4.5511e-02 ,4.9877e-03 ,4.1214e-03 ,3.2558e-03 , & - 2.3805e-03 ,1.5450e-03 ,5.8423e-04 ,8.2275e-05 /) - fracrefao(:, 4) = (/ & - 1.4162e-01 ,1.4337e-01 ,1.3774e-01 ,1.3122e-01 ,1.2172e-01 ,1.0641e-01 , & - 8.8384e-02 ,6.7056e-02 ,4.5514e-02 ,4.9880e-03 ,4.1214e-03 ,3.2557e-03 , & - 2.3805e-03 ,1.5450e-03 ,5.8423e-04 ,8.2275e-05 /) - fracrefao(:, 5) = (/ & - 1.4161e-01 ,1.4370e-01 ,1.3770e-01 ,1.3143e-01 ,1.2173e-01 ,1.0613e-01 , & - 8.8357e-02 ,6.6874e-02 ,4.5509e-02 ,4.9883e-03 ,4.1214e-03 ,3.2558e-03 , & - 2.3804e-03 ,1.5450e-03 ,5.8423e-04 ,8.2275e-05 /) - fracrefao(:, 6) = (/ & - 1.4154e-01 ,1.4405e-01 ,1.3771e-01 ,1.3169e-01 ,1.2166e-01 ,1.0603e-01 , & - 8.8193e-02 ,6.6705e-02 ,4.5469e-02 ,4.9902e-03 ,4.1214e-03 ,3.2558e-03 , & - 2.3804e-03 ,1.5450e-03 ,5.8423e-04 ,8.2275e-05 /) - fracrefao(:, 7) = (/ & - 1.4126e-01 ,1.4440e-01 ,1.3790e-01 ,1.3214e-01 ,1.2153e-01 ,1.0603e-01 , & - 8.7908e-02 ,6.6612e-02 ,4.5269e-02 ,4.9900e-03 ,4.1256e-03 ,3.2558e-03 , & - 2.3804e-03 ,1.5451e-03 ,5.8423e-04 ,8.2275e-05 /) - fracrefao(:, 8) = (/ & - 1.4076e-01 ,1.4415e-01 ,1.3885e-01 ,1.3286e-01 ,1.2147e-01 ,1.0612e-01 , & - 8.7579e-02 ,6.6280e-02 ,4.4977e-02 ,4.9782e-03 ,4.1200e-03 ,3.2620e-03 , & - 2.3820e-03 ,1.5452e-03 ,5.8423e-04 ,8.2275e-05 /) - fracrefao(:, 9) = (/ & - 1.4205e-01 ,1.4496e-01 ,1.4337e-01 ,1.3504e-01 ,1.2260e-01 ,1.0428e-01 , & - 8.4946e-02 ,6.3625e-02 ,4.2951e-02 ,4.7313e-03 ,3.9157e-03 ,3.0879e-03 , & - 2.2666e-03 ,1.5193e-03 ,5.7469e-04 ,8.1674e-05 /) - -! Planck fraction mapping level : P = 0.2369280 mbar, T = 253.60 K - fracrefbo(:, 1) = (/ & - 1.4075e-01 ,1.4196e-01 ,1.3833e-01 ,1.3345e-01 ,1.2234e-01 ,1.0718e-01 , & - 8.8004e-02 ,6.6308e-02 ,4.5028e-02 ,4.9029e-03 ,4.0377e-03 ,3.1870e-03 , & - 2.3503e-03 ,1.5146e-03 ,5.7165e-04 ,8.2371e-05 /) - fracrefbo(:, 2) = (/ & - 1.4081e-01 ,1.4225e-01 ,1.3890e-01 ,1.3410e-01 ,1.2254e-01 ,1.0680e-01 , & - 8.7391e-02 ,6.5819e-02 ,4.4725e-02 ,4.9121e-03 ,4.0420e-03 ,3.1869e-03 , & - 2.3504e-03 ,1.5146e-03 ,5.7165e-04 ,8.2371e-05 /) - fracrefbo(:, 3) = (/ & - 1.4087e-01 ,1.4227e-01 ,1.3920e-01 ,1.3395e-01 ,1.2270e-01 ,1.0694e-01 , & - 8.7229e-02 ,6.5653e-02 ,4.4554e-02 ,4.8797e-03 ,4.0460e-03 ,3.1939e-03 , & - 2.3505e-03 ,1.5146e-03 ,5.7165e-04 ,8.1910e-05 /) - fracrefbo(:, 4) = (/ & - 1.4089e-01 ,1.4238e-01 ,1.3956e-01 ,1.3379e-01 ,1.2284e-01 ,1.0688e-01 , & - 8.7192e-02 ,6.5490e-02 ,4.4390e-02 ,4.8395e-03 ,4.0173e-03 ,3.2070e-03 , & - 2.3559e-03 ,1.5146e-03 ,5.7165e-04 ,8.2371e-05 /) - fracrefbo(:, 5) = (/ & - 1.4091e-01 ,1.4417e-01 ,1.4194e-01 ,1.3457e-01 ,1.2167e-01 ,1.0551e-01 , & - 8.6450e-02 ,6.4889e-02 ,4.3584e-02 ,4.7551e-03 ,3.9509e-03 ,3.1374e-03 , & - 2.3226e-03 ,1.4942e-03 ,5.7545e-04 ,8.0887e-05 /) - -! Minor gas mapping level : -! lower - o3, p = 317.34 mbar, t = 240.77 k -! lower - ccl4 - - ccl4o(:) = (/ & - 26.1407 , 53.9776 , 63.8085 , 36.1701 , 15.4099 , 10.23116 , & - 4.82948 , 5.03836 , 1.75558 , 0. , 0. , 0. , & - 0. , 0. , 0. , 0. /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kao(:, 1, 1, 1) = (/ & - &2.0627e-06 ,7.6619e-06 ,1.2821e-05 ,1.8547e-05 ,2.5694e-05 ,3.6833e-05 , & - &6.0675e-05 ,1.0691e-04 ,4.5186e-05 /) - kao(:, 2, 1, 1) = (/ & - &2.7702e-06 ,1.0260e-05 ,1.6067e-05 ,2.2990e-05 ,3.0808e-05 ,4.1244e-05 , & - &5.9411e-05 ,1.1066e-04 ,5.2628e-05 /) - kao(:, 3, 1, 1) = (/ & - &3.6863e-06 ,1.3689e-05 ,2.0068e-05 ,2.8133e-05 ,3.7359e-05 ,4.8756e-05 , & - &6.5660e-05 ,1.0750e-04 ,6.3147e-05 /) - kao(:, 4, 1, 1) = (/ & - &4.8209e-06 ,1.8184e-05 ,2.5811e-05 ,3.2670e-05 ,4.2393e-05 ,5.7509e-05 , & - &7.7672e-05 ,1.1739e-04 ,6.0614e-05 /) - kao(:, 5, 1, 1) = (/ & - &6.2011e-06 ,2.3679e-05 ,3.3185e-05 ,4.1098e-05 ,4.8872e-05 ,6.0199e-05 , & - &8.6830e-05 ,1.3320e-04 ,5.7959e-05 /) - kao(:, 1, 2, 1) = (/ & - &2.3538e-06 ,6.7359e-06 ,1.0280e-05 ,1.4331e-05 ,1.9304e-05 ,2.5963e-05 , & - &4.0842e-05 ,7.0297e-05 ,3.0786e-05 /) - kao(:, 2, 2, 1) = (/ & - &3.1800e-06 ,9.2776e-06 ,1.3401e-05 ,1.8014e-05 ,2.3501e-05 ,3.0468e-05 , & - &4.1030e-05 ,7.2758e-05 ,3.6807e-05 /) - kao(:, 3, 2, 1) = (/ & - &4.2644e-06 ,1.2589e-05 ,1.7414e-05 ,2.2365e-05 ,2.8924e-05 ,3.6996e-05 , & - &4.7459e-05 ,7.1458e-05 ,4.4453e-05 /) - kao(:, 4, 2, 1) = (/ & - &5.6334e-06 ,1.6843e-05 ,2.2937e-05 ,2.8083e-05 ,3.3609e-05 ,4.3642e-05 , & - &5.6794e-05 ,7.9540e-05 ,3.7769e-05 /) - kao(:, 5, 2, 1) = (/ & - &7.3165e-06 ,2.2208e-05 ,2.9987e-05 ,3.5834e-05 ,4.1117e-05 ,4.7236e-05 , & - &6.4507e-05 ,9.1784e-05 ,4.0356e-05 /) - kao(:, 1, 3, 1) = (/ & - &3.4149e-06 ,6.8426e-06 ,8.9161e-06 ,1.1292e-05 ,1.3987e-05 ,1.7689e-05 , & - &2.4623e-05 ,4.0560e-05 ,1.8741e-05 /) - kao(:, 2, 3, 1) = (/ & - &4.6295e-06 ,9.5910e-06 ,1.2218e-05 ,1.4773e-05 ,1.7906e-05 ,2.1627e-05 , & - &2.7175e-05 ,4.1902e-05 ,2.3338e-05 /) - kao(:, 3, 3, 1) = (/ & - &6.2620e-06 ,1.3265e-05 ,1.6740e-05 ,1.9517e-05 ,2.2851e-05 ,2.6791e-05 , & - &3.2311e-05 ,4.3092e-05 ,2.7303e-05 /) - kao(:, 4, 3, 1) = (/ & - &8.3825e-06 ,1.8025e-05 ,2.2633e-05 ,2.5988e-05 ,2.8756e-05 ,3.2402e-05 , & - &3.9084e-05 ,5.0182e-05 ,2.3119e-05 /) - kao(:, 5, 3, 1) = (/ & - &1.1030e-05 ,2.4184e-05 ,3.0218e-05 ,3.4428e-05 ,3.7379e-05 ,3.9667e-05 , & - &4.3975e-05 ,5.8391e-05 ,2.6206e-05 /) - kao(:, 1, 4, 1) = (/ & - &5.0171e-06 ,7.6880e-06 ,8.7791e-06 ,9.8121e-06 ,1.1212e-05 ,1.2838e-05 , & - &1.6066e-05 ,2.4377e-05 ,1.1689e-05 /) - kao(:, 2, 4, 1) = (/ & - &6.7946e-06 ,1.0789e-05 ,1.2297e-05 ,1.3454e-05 ,1.4738e-05 ,1.6388e-05 , & - &1.8978e-05 ,2.5098e-05 ,1.5123e-05 /) - kao(:, 3, 4, 1) = (/ & - &9.2346e-06 ,1.5122e-05 ,1.7217e-05 ,1.8715e-05 ,1.9870e-05 ,2.1284e-05 , & - &2.3541e-05 ,2.8475e-05 ,1.5817e-05 /) - kao(:, 4, 4, 1) = (/ & - &1.2485e-05 ,2.0883e-05 ,2.3764e-05 ,2.5687e-05 ,2.6834e-05 ,2.7524e-05 , & - &2.9511e-05 ,3.4495e-05 ,1.5461e-05 /) - kao(:, 5, 4, 1) = (/ & - &1.6688e-05 ,2.8377e-05 ,3.2282e-05 ,3.4761e-05 ,3.6075e-05 ,3.6212e-05 , & - &3.5832e-05 ,4.0812e-05 ,1.7475e-05 /) - kao(:, 1, 5, 1) = (/ & - &6.8849e-06 ,8.9001e-06 ,9.3032e-06 ,9.4606e-06 ,9.6746e-06 ,1.0252e-05 , & - &1.1422e-05 ,1.5315e-05 ,7.4550e-06 /) - kao(:, 2, 5, 1) = (/ & - &9.2829e-06 ,1.2355e-05 ,1.3006e-05 ,1.3223e-05 ,1.3294e-05 ,1.3454e-05 , & - &1.4383e-05 ,1.6505e-05 ,9.6725e-06 /) - kao(:, 3, 5, 1) = (/ & - &1.2628e-05 ,1.7354e-05 ,1.8341e-05 ,1.8646e-05 ,1.8560e-05 ,1.8269e-05 , & - &1.8381e-05 ,1.9847e-05 ,1.0746e-05 /) - kao(:, 4, 5, 1) = (/ & - &1.7178e-05 ,2.4178e-05 ,2.5699e-05 ,2.6093e-05 ,2.5857e-05 ,2.5047e-05 , & - &2.4039e-05 ,2.4517e-05 ,1.1239e-05 /) - kao(:, 5, 5, 1) = (/ & - &2.3232e-05 ,3.3207e-05 ,3.5417e-05 ,3.5933e-05 ,3.5521e-05 ,3.4179e-05 , & - &3.1639e-05 ,3.0107e-05 ,1.3413e-05 /) - kao(:, 1, 6, 1) = (/ & - &8.9763e-06 ,1.0310e-05 ,1.0152e-05 ,9.7112e-06 ,9.1573e-06 ,8.7286e-06 , & - &8.7100e-06 ,1.0151e-05 ,5.0468e-06 /) - kao(:, 2, 6, 1) = (/ & - &1.1944e-05 ,1.4094e-05 ,1.4098e-05 ,1.3570e-05 ,1.2771e-05 ,1.1934e-05 , & - &1.1288e-05 ,1.1804e-05 ,6.4542e-06 /) - kao(:, 3, 6, 1) = (/ & - &1.6264e-05 ,1.9621e-05 ,1.9778e-05 ,1.9110e-05 ,1.7995e-05 ,1.6619e-05 , & - &1.5210e-05 ,1.4762e-05 ,7.7867e-06 /) - kao(:, 4, 6, 1) = (/ & - &2.2127e-05 ,2.7394e-05 ,2.7774e-05 ,2.6897e-05 ,2.5333e-05 ,2.3366e-05 , & - &2.0855e-05 ,1.8805e-05 ,9.1527e-06 /) - kao(:, 5, 6, 1) = (/ & - &3.0031e-05 ,3.7976e-05 ,3.8538e-05 ,3.7483e-05 ,3.5390e-05 ,3.2530e-05 , & - &2.8729e-05 ,2.4137e-05 ,1.0787e-05 /) - kao(:, 1, 7, 1) = (/ & - &1.2661e-05 ,1.3255e-05 ,1.2476e-05 ,1.1360e-05 ,1.0126e-05 ,8.8167e-06 , & - &7.6811e-06 ,7.2819e-06 ,3.4701e-06 /) - kao(:, 2, 7, 1) = (/ & - &1.6507e-05 ,1.7720e-05 ,1.6880e-05 ,1.5585e-05 ,1.3986e-05 ,1.2151e-05 , & - &1.0259e-05 ,8.9670e-06 ,4.6214e-06 /) - kao(:, 3, 7, 1) = (/ & - &2.2311e-05 ,2.4431e-05 ,2.3459e-05 ,2.1822e-05 ,1.9662e-05 ,1.7085e-05 , & - &1.4272e-05 ,1.1641e-05 ,5.9077e-06 /) - kao(:, 4, 7, 1) = (/ & - &3.0470e-05 ,3.3907e-05 ,3.2735e-05 ,3.0550e-05 ,2.7736e-05 ,2.4159e-05 , & - &2.0093e-05 ,1.5711e-05 ,7.6152e-06 /) - kao(:, 5, 7, 1) = (/ & - &4.1581e-05 ,4.6778e-05 ,4.5634e-05 ,4.2827e-05 ,3.9000e-05 ,3.4010e-05 , & - &2.8185e-05 ,2.1414e-05 ,9.5151e-06 /) - kao(:, 1, 8, 1) = (/ & - &2.2110e-05 ,2.1516e-05 ,1.9520e-05 ,1.7197e-05 ,1.4610e-05 ,1.1834e-05 , & - &8.9776e-06 ,6.4038e-06 ,2.9294e-06 /) - kao(:, 2, 8, 1) = (/ & - &2.8119e-05 ,2.7833e-05 ,2.5591e-05 ,2.2815e-05 ,1.9548e-05 ,1.6035e-05 , & - &1.2291e-05 ,8.4633e-06 ,3.7469e-06 /) - kao(:, 3, 8, 1) = (/ & - &3.7519e-05 ,3.7575e-05 ,3.4963e-05 ,3.1329e-05 ,2.6989e-05 ,2.2379e-05 , & - &1.7209e-05 ,1.1658e-05 ,5.1343e-06 /) - kao(:, 4, 8, 1) = (/ & - &5.1233e-05 ,5.1900e-05 ,4.8534e-05 ,4.3661e-05 ,3.7852e-05 ,3.1455e-05 , & - &2.4380e-05 ,1.6303e-05 ,6.8677e-06 /) - kao(:, 5, 8, 1) = (/ & - &7.0275e-05 ,7.1610e-05 ,6.7129e-05 ,6.0809e-05 ,5.2885e-05 ,4.4177e-05 , & - &3.4435e-05 ,2.2981e-05 ,8.8724e-06 /) - kao(:, 1, 9, 1) = (/ & - &7.5307e-05 ,6.8982e-05 ,6.0564e-05 ,5.1649e-05 ,4.2335e-05 ,3.2789e-05 , & - &2.3004e-05 ,1.2766e-05 ,4.1976e-06 /) - kao(:, 2, 9, 1) = (/ & - &9.3306e-05 ,8.6322e-05 ,7.6065e-05 ,6.5167e-05 ,5.3786e-05 ,4.2095e-05 , & - &2.9960e-05 ,1.6892e-05 ,6.0950e-06 /) - kao(:, 3, 9, 1) = (/ & - &1.2202e-04 ,1.1392e-04 ,1.0068e-04 ,8.6696e-05 ,7.2080e-05 ,5.6739e-05 , & - &4.0820e-05 ,2.3292e-05 ,8.3200e-06 /) - kao(:, 4, 9, 1) = (/ & - &1.6580e-04 ,1.5570e-04 ,1.3769e-04 ,1.1869e-04 ,9.9119e-05 ,7.8735e-05 , & - &5.6759e-05 ,3.2860e-05 ,1.0538e-05 /) - kao(:, 5, 9, 1) = (/ & - &2.2845e-04 ,2.1403e-04 ,1.8995e-04 ,1.6428e-04 ,1.3747e-04 ,1.0943e-04 , & - &7.9478e-05 ,4.6333e-05 ,1.2645e-05 /) - kao(:, 1,10, 1) = (/ & - &2.9742e-04 ,2.6515e-04 ,2.2972e-04 ,1.9315e-04 ,1.5610e-04 ,1.1880e-04 , & - &8.1117e-05 ,4.2319e-05 ,6.3944e-06 /) - kao(:, 2,10, 1) = (/ & - &3.6180e-04 ,3.2444e-04 ,2.8214e-04 ,2.3809e-04 ,1.9281e-04 ,1.4714e-04 , & - &1.0099e-04 ,5.3082e-05 ,9.7791e-06 /) - kao(:, 3,10, 1) = (/ & - &4.6752e-04 ,4.2137e-04 ,3.6703e-04 ,3.1031e-04 ,2.5194e-04 ,1.9278e-04 , & - &1.3274e-04 ,7.0692e-05 ,1.3731e-05 /) - kao(:, 4,10, 1) = (/ & - &6.3024e-04 ,5.6976e-04 ,4.9706e-04 ,4.2128e-04 ,3.4229e-04 ,2.6250e-04 , & - &1.8103e-04 ,9.7478e-05 ,1.8873e-05 /) - kao(:, 5,10, 1) = (/ & - &8.6816e-04 ,7.8510e-04 ,6.8602e-04 ,5.8224e-04 ,4.7468e-04 ,3.6394e-04 , & - &2.5185e-04 ,1.3590e-04 ,2.4864e-05 /) - kao(:, 1,11, 1) = (/ & - &4.4215e-04 ,3.9273e-04 ,3.3972e-04 ,2.8576e-04 ,2.3079e-04 ,1.7475e-04 , & - &1.1858e-04 ,6.1576e-05 ,6.9970e-06 /) - kao(:, 2,11, 1) = (/ & - &5.4524e-04 ,4.8624e-04 ,4.2158e-04 ,3.5507e-04 ,2.8728e-04 ,2.1797e-04 , & - &1.4849e-04 ,7.7710e-05 ,1.0796e-05 /) - kao(:, 3,11, 1) = (/ & - &7.1212e-04 ,6.3874e-04 ,5.5491e-04 ,4.6791e-04 ,3.7968e-04 ,2.8946e-04 , & - &1.9751e-04 ,1.0405e-04 ,1.6156e-05 /) - kao(:, 4,11, 1) = (/ & - &9.7112e-04 ,8.7198e-04 ,7.5717e-04 ,6.3918e-04 ,5.1919e-04 ,3.9650e-04 , & - &2.7055e-04 ,1.4272e-04 ,2.2761e-05 /) - kao(:, 5,11, 1) = (/ & - &1.3431e-03 ,1.2076e-03 ,1.0484e-03 ,8.8503e-04 ,7.1868e-04 ,5.4992e-04 , & - &3.7609e-04 ,1.9954e-04 ,2.9940e-05 /) - kao(:, 1,12, 1) = (/ & - &4.8443e-04 ,4.2968e-04 ,3.7109e-04 ,3.1171e-04 ,2.5157e-04 ,1.9045e-04 , & - &1.2868e-04 ,6.6606e-05 ,6.8294e-06 /) - kao(:, 2,12, 1) = (/ & - &6.0269e-04 ,5.3630e-04 ,4.6453e-04 ,3.9092e-04 ,3.1605e-04 ,2.4000e-04 , & - &1.6259e-04 ,8.4751e-05 ,1.0182e-05 /) - kao(:, 3,12, 1) = (/ & - &7.9706e-04 ,7.1250e-04 ,6.1805e-04 ,5.2087e-04 ,4.2192e-04 ,3.2125e-04 , & - &2.1834e-04 ,1.1445e-04 ,1.5140e-05 /) - kao(:, 4,12, 1) = (/ & - &1.0910e-03 ,9.7656e-04 ,8.4711e-04 ,7.1442e-04 ,5.7891e-04 ,4.4221e-04 , & - &3.0181e-04 ,1.5855e-04 ,2.1388e-05 /) - kao(:, 5,12, 1) = (/ & - &1.5134e-03 ,1.3551e-03 ,1.1752e-03 ,9.9093e-04 ,8.0388e-04 ,6.1444e-04 , & - &4.2020e-04 ,2.2117e-04 ,2.9059e-05 /) - kao(:, 1,13, 1) = (/ & - &4.2625e-04 ,3.7812e-04 ,3.2711e-04 ,2.7465e-04 ,2.2177e-04 ,1.6800e-04 , & - &1.1342e-04 ,5.8678e-05 ,7.1193e-06 /) - kao(:, 2,13, 1) = (/ & - &5.3759e-04 ,4.7832e-04 ,4.1433e-04 ,3.4844e-04 ,2.8188e-04 ,2.1423e-04 , & - &1.4519e-04 ,7.5588e-05 ,1.0317e-05 /) - kao(:, 3,13, 1) = (/ & - &7.2018e-04 ,6.4309e-04 ,5.5764e-04 ,4.6948e-04 ,3.8030e-04 ,2.8938e-04 , & - &1.9678e-04 ,1.0285e-04 ,1.4041e-05 /) - kao(:, 4,13, 1) = (/ & - &9.8953e-04 ,8.8546e-04 ,7.6800e-04 ,6.4711e-04 ,5.2450e-04 ,3.9956e-04 , & - &2.7312e-04 ,1.4349e-04 ,1.9954e-05 /) - kao(:, 5,13, 1) = (/ & - &1.3790e-03 ,1.2366e-03 ,1.0731e-03 ,9.0477e-04 ,7.3377e-04 ,5.6037e-04 , & - &3.8365e-04 ,2.0147e-04 ,2.6871e-05 /) - kao(:, 1, 1, 2) = (/ & - &6.2300e-06 ,2.3124e-05 ,2.9698e-05 ,3.9591e-05 ,5.8380e-05 ,9.5125e-05 , & - &1.3537e-04 ,2.8288e-04 ,9.7543e-05 /) - kao(:, 2, 1, 2) = (/ & - &9.0246e-06 ,3.3229e-05 ,4.2160e-05 ,4.9478e-05 ,6.0779e-05 ,8.5533e-05 , & - &1.5267e-04 ,2.3904e-04 ,8.0422e-05 /) - kao(:, 3, 1, 2) = (/ & - &1.2807e-05 ,4.6362e-05 ,5.9074e-05 ,6.7253e-05 ,7.5131e-05 ,8.9889e-05 , & - &1.2494e-04 ,2.6418e-04 ,7.9145e-05 /) - kao(:, 4, 1, 2) = (/ & - &1.7786e-05 ,6.3031e-05 ,8.0225e-05 ,9.3521e-05 ,1.0301e-04 ,1.0987e-04 , & - &1.2899e-04 ,2.0499e-04 ,1.0830e-04 /) - kao(:, 5, 1, 2) = (/ & - &2.4116e-05 ,8.3783e-05 ,1.0646e-04 ,1.2431e-04 ,1.3944e-04 ,1.5277e-04 , & - &1.5881e-04 ,2.0933e-04 ,1.4344e-04 /) - kao(:, 1, 2, 2) = (/ & - &7.1421e-06 ,2.2132e-05 ,2.7590e-05 ,3.3376e-05 ,4.3482e-05 ,6.6128e-05 , & - &9.2521e-05 ,1.8166e-04 ,6.3119e-05 /) - kao(:, 2, 2, 2) = (/ & - &1.0480e-05 ,3.2273e-05 ,3.9804e-05 ,4.4484e-05 ,4.9766e-05 ,6.2224e-05 , & - &1.0181e-04 ,1.6062e-04 ,5.5112e-05 /) - kao(:, 3, 2, 2) = (/ & - &1.5069e-05 ,4.5805e-05 ,5.6454e-05 ,6.2730e-05 ,6.6262e-05 ,7.1655e-05 , & - &8.8554e-05 ,1.7608e-04 ,5.4833e-05 /) - kao(:, 4, 2, 2) = (/ & - &2.1158e-05 ,6.3205e-05 ,7.7534e-05 ,8.6669e-05 ,9.2743e-05 ,9.3710e-05 , & - &9.8368e-05 ,1.4175e-04 ,8.3989e-05 /) - kao(:, 5, 2, 2) = (/ & - &2.9018e-05 ,8.5014e-05 ,1.0387e-04 ,1.1638e-04 ,1.2535e-04 ,1.3160e-04 , & - &1.2952e-04 ,1.4715e-04 ,1.0168e-04 /) - kao(:, 1, 3, 2) = (/ & - &1.0134e-05 ,2.3698e-05 ,2.8098e-05 ,3.0832e-05 ,3.4559e-05 ,4.2739e-05 , & - &5.8413e-05 ,1.0086e-04 ,3.2546e-05 /) - kao(:, 2, 3, 2) = (/ & - &1.5067e-05 ,3.5478e-05 ,4.1782e-05 ,4.4927e-05 ,4.6304e-05 ,4.9338e-05 , & - &6.0952e-05 ,9.7126e-05 ,3.2271e-05 /) - kao(:, 3, 3, 2) = (/ & - &2.2020e-05 ,5.1526e-05 ,6.0415e-05 ,6.4785e-05 ,6.5815e-05 ,6.4970e-05 , & - &6.6401e-05 ,9.8577e-05 ,3.7377e-05 /) - kao(:, 4, 3, 2) = (/ & - &3.1402e-05 ,7.2606e-05 ,8.4750e-05 ,9.0680e-05 ,9.2879e-05 ,9.1127e-05 , & - &8.5666e-05 ,9.2372e-05 ,5.9881e-05 /) - kao(:, 5, 3, 2) = (/ & - &4.3798e-05 ,9.9375e-05 ,1.1577e-04 ,1.2361e-04 ,1.2645e-04 ,1.2543e-04 , & - &1.1954e-04 ,1.0799e-04 ,6.6216e-05 /) - kao(:, 1, 4, 2) = (/ & - &1.4395e-05 ,2.6113e-05 ,2.9242e-05 ,3.0501e-05 ,3.0825e-05 ,3.2335e-05 , & - &3.9824e-05 ,5.5770e-05 ,1.8987e-05 /) - kao(:, 2, 4, 2) = (/ & - &2.1448e-05 ,3.9639e-05 ,4.4560e-05 ,4.6391e-05 ,4.5970e-05 ,4.4537e-05 , & - &4.5440e-05 ,6.3416e-05 ,1.9764e-05 /) - kao(:, 3, 4, 2) = (/ & - &3.1834e-05 ,5.8680e-05 ,6.6149e-05 ,6.8528e-05 ,6.7668e-05 ,6.3937e-05 , & - &5.8285e-05 ,6.2232e-05 ,2.7306e-05 /) - kao(:, 4, 4, 2) = (/ & - &4.6271e-05 ,8.4438e-05 ,9.5181e-05 ,9.8206e-05 ,9.6873e-05 ,9.1747e-05 , & - &8.1681e-05 ,6.9834e-05 ,3.9615e-05 /) - kao(:, 5, 4, 2) = (/ & - &6.5671e-05 ,1.1809e-04 ,1.3274e-04 ,1.3673e-04 ,1.3457e-04 ,1.2744e-04 , & - &1.1523e-04 ,9.3255e-05 ,4.5946e-05 /) - kao(:, 1, 5, 2) = (/ & - &1.8932e-05 ,2.8174e-05 ,3.0127e-05 ,3.0189e-05 ,2.9303e-05 ,2.7710e-05 , & - &2.8724e-05 ,3.6981e-05 ,1.2871e-05 /) - kao(:, 2, 5, 2) = (/ & - &2.8193e-05 ,4.3103e-05 ,4.6483e-05 ,4.6716e-05 ,4.5184e-05 ,4.1972e-05 , & - &3.7796e-05 ,4.2113e-05 ,1.5002e-05 /) - kao(:, 3, 5, 2) = (/ & - &4.2171e-05 ,6.4890e-05 ,7.0138e-05 ,7.0754e-05 ,6.8197e-05 ,6.2875e-05 , & - &5.4545e-05 ,4.7871e-05 ,1.9971e-05 /) - kao(:, 4, 5, 2) = (/ & - &6.2206e-05 ,9.5463e-05 ,1.0284e-04 ,1.0393e-04 ,9.9869e-05 ,9.1904e-05 , & - &7.9592e-05 ,6.1772e-05 ,2.7676e-05 /) - kao(:, 5, 5, 2) = (/ & - &8.9897e-05 ,1.3643e-04 ,1.4635e-04 ,1.4773e-04 ,1.4191e-04 ,1.3018e-04 , & - &1.1303e-04 ,8.6827e-05 ,3.3409e-05 /) - kao(:, 1, 6, 2) = (/ & - &2.3688e-05 ,3.0481e-05 ,3.1060e-05 ,3.0054e-05 ,2.7961e-05 ,2.5367e-05 , & - &2.2999e-05 ,2.6629e-05 ,1.0275e-05 /) - kao(:, 2, 6, 2) = (/ & - &3.4582e-05 ,4.5983e-05 ,4.7133e-05 ,4.6002e-05 ,4.3141e-05 ,3.8854e-05 , & - &3.3303e-05 ,2.9897e-05 ,1.2224e-05 /) - kao(:, 3, 6, 2) = (/ & - &5.1699e-05 ,6.9356e-05 ,7.1684e-05 ,7.0505e-05 ,6.6405e-05 ,5.9819e-05 , & - &5.0541e-05 ,3.9074e-05 ,1.6179e-05 /) - kao(:, 4, 6, 2) = (/ & - &7.7368e-05 ,1.0342e-04 ,1.0714e-04 ,1.0541e-04 ,9.9595e-05 ,8.9603e-05 , & - &7.5459e-05 ,5.5384e-05 ,2.1206e-05 /) - kao(:, 5, 6, 2) = (/ & - &1.1347e-04 ,1.5064e-04 ,1.5637e-04 ,1.5316e-04 ,1.4449e-04 ,1.2985e-04 , & - &1.0910e-04 ,8.0324e-05 ,2.6862e-05 /) - kao(:, 1, 7, 2) = (/ & - &3.2355e-05 ,3.6612e-05 ,3.5642e-05 ,3.3581e-05 ,3.0393e-05 ,2.6088e-05 , & - &2.1415e-05 ,1.9368e-05 ,9.5314e-06 /) - kao(:, 2, 7, 2) = (/ & - &4.6022e-05 ,5.3816e-05 ,5.2843e-05 ,4.9963e-05 ,4.5493e-05 ,3.9581e-05 , & - &3.2262e-05 ,2.4294e-05 ,1.1772e-05 /) - kao(:, 3, 7, 2) = (/ & - &6.7685e-05 ,8.0405e-05 ,7.9935e-05 ,7.5649e-05 ,6.9218e-05 ,6.0527e-05 , & - &4.9342e-05 ,3.5155e-05 ,1.4463e-05 /) - kao(:, 4, 7, 2) = (/ & - &1.0120e-04 ,1.2036e-04 ,1.2034e-04 ,1.1418e-04 ,1.0434e-04 ,9.1774e-05 , & - &7.5257e-05 ,5.2793e-05 ,1.8375e-05 /) - kao(:, 5, 7, 2) = (/ & - &1.5071e-04 ,1.7822e-04 ,1.7733e-04 ,1.6840e-04 ,1.5410e-04 ,1.3584e-04 , & - &1.1141e-04 ,7.8080e-05 ,2.3868e-05 /) - kao(:, 1, 8, 2) = (/ & - &5.5226e-05 ,5.6106e-05 ,5.2275e-05 ,4.7400e-05 ,4.1299e-05 ,3.4449e-05 , & - &2.6593e-05 ,1.7838e-05 ,1.0224e-05 /) - kao(:, 2, 8, 2) = (/ & - &7.6682e-05 ,7.9501e-05 ,7.4950e-05 ,6.8270e-05 ,5.9838e-05 ,5.0360e-05 , & - &3.9211e-05 ,2.5644e-05 ,1.3679e-05 /) - kao(:, 3, 8, 2) = (/ & - &1.1162e-04 ,1.1744e-04 ,1.1105e-04 ,1.0166e-04 ,8.9544e-05 ,7.5446e-05 , & - &5.9105e-05 ,3.8912e-05 ,1.6924e-05 /) - kao(:, 4, 8, 2) = (/ & - &1.6426e-04 ,1.7413e-04 ,1.6536e-04 ,1.5206e-04 ,1.3480e-04 ,1.1398e-04 , & - &8.9434e-05 ,5.9125e-05 ,2.1439e-05 /) - kao(:, 5, 8, 2) = (/ & - &2.4317e-04 ,2.5868e-04 ,2.4524e-04 ,2.2533e-04 ,2.0048e-04 ,1.6943e-04 , & - &1.3297e-04 ,8.8280e-05 ,2.6395e-05 /) - kao(:, 1, 9, 2) = (/ & - &1.8480e-04 ,1.7106e-04 ,1.5192e-04 ,1.3086e-04 ,1.0905e-04 ,8.6158e-05 , & - &6.2340e-05 ,3.6177e-05 ,1.4903e-05 /) - kao(:, 2, 9, 2) = (/ & - &2.4641e-04 ,2.3135e-04 ,2.0759e-04 ,1.8017e-04 ,1.5122e-04 ,1.2054e-04 , & - &8.8111e-05 ,5.2211e-05 ,2.0425e-05 /) - kao(:, 3, 9, 2) = (/ & - &3.5294e-04 ,3.3406e-04 ,3.0047e-04 ,2.6193e-04 ,2.2100e-04 ,1.7727e-04 , & - &1.3000e-04 ,7.7386e-05 ,2.5956e-05 /) - kao(:, 4, 9, 2) = (/ & - &5.2033e-04 ,4.9504e-04 ,4.4640e-04 ,3.9034e-04 ,3.2978e-04 ,2.6409e-04 , & - &1.9434e-04 ,1.1587e-04 ,3.4101e-05 /) - kao(:, 5, 9, 2) = (/ & - &7.6495e-04 ,7.3083e-04 ,6.5854e-04 ,5.7617e-04 ,4.8713e-04 ,3.9080e-04 , & - &2.8811e-04 ,1.7251e-04 ,4.3686e-05 /) - kao(:, 1,10, 2) = (/ & - &7.1951e-04 ,6.4170e-04 ,5.5848e-04 ,4.7254e-04 ,3.8543e-04 ,2.9616e-04 , & - &2.0442e-04 ,1.0914e-04 ,2.8683e-05 /) - kao(:, 2,10, 2) = (/ & - &9.5077e-04 ,8.5141e-04 ,7.4327e-04 ,6.3053e-04 ,5.1626e-04 ,3.9828e-04 , & - &2.7613e-04 ,1.4913e-04 ,3.8199e-05 /) - kao(:, 3,10, 2) = (/ & - &1.3355e-03 ,1.2001e-03 ,1.0504e-03 ,8.9360e-04 ,7.3324e-04 ,5.6715e-04 , & - &3.9425e-04 ,2.1480e-04 ,4.7134e-05 /) - kao(:, 4,10, 2) = (/ & - &1.9553e-03 ,1.7643e-03 ,1.5470e-03 ,1.3173e-03 ,1.0803e-03 ,8.3446e-04 , & - &5.8166e-04 ,3.1871e-04 ,5.8212e-05 /) - kao(:, 5,10, 2) = (/ & - &2.8783e-03 ,2.5953e-03 ,2.2770e-03 ,1.9407e-03 ,1.5909e-03 ,1.2316e-03 , & - &8.6003e-04 ,4.7307e-04 ,7.1136e-05 /) - kao(:, 1,11, 2) = (/ & - &1.1139e-03 ,9.8774e-04 ,8.5580e-04 ,7.2091e-04 ,5.8416e-04 ,4.4688e-04 , & - &3.0678e-04 ,1.6222e-04 ,3.9161e-05 /) - kao(:, 2,11, 2) = (/ & - &1.5083e-03 ,1.3423e-03 ,1.1649e-03 ,9.8455e-04 ,8.0047e-04 ,6.1397e-04 , & - &4.2291e-04 ,2.2482e-04 ,5.4701e-05 /) - kao(:, 3,11, 2) = (/ & - &2.1559e-03 ,1.9181e-03 ,1.6686e-03 ,1.4112e-03 ,1.1484e-03 ,8.7957e-04 , & - &6.0584e-04 ,3.2346e-04 ,6.6564e-05 /) - kao(:, 4,11, 2) = (/ & - &3.1472e-03 ,2.8085e-03 ,2.4474e-03 ,2.0740e-03 ,1.6883e-03 ,1.2953e-03 , & - &8.9345e-04 ,4.7890e-04 ,8.3118e-05 /) - kao(:, 5,11, 2) = (/ & - &4.6362e-03 ,4.1388e-03 ,3.6072e-03 ,3.0601e-03 ,2.4938e-03 ,1.9129e-03 , & - &1.3182e-03 ,7.0366e-04 ,1.0053e-04 /) - kao(:, 1,12, 2) = (/ & - &1.2746e-03 ,1.1293e-03 ,9.7744e-04 ,8.2280e-04 ,6.6509e-04 ,5.0694e-04 , & - &3.4671e-04 ,1.8255e-04 ,4.0437e-05 /) - kao(:, 2,12, 2) = (/ & - &1.7556e-03 ,1.5589e-03 ,1.3508e-03 ,1.1390e-03 ,9.2389e-04 ,7.0640e-04 , & - &4.8477e-04 ,2.5611e-04 ,5.8338e-05 /) - kao(:, 3,12, 2) = (/ & - &2.5208e-03 ,2.2390e-03 ,1.9427e-03 ,1.6407e-03 ,1.3325e-03 ,1.0177e-03 , & - &6.9952e-04 ,3.6990e-04 ,7.2977e-05 /) - kao(:, 4,12, 2) = (/ & - &3.7199e-03 ,3.3065e-03 ,2.8736e-03 ,2.4286e-03 ,1.9715e-03 ,1.5043e-03 , & - &1.0308e-03 ,5.4613e-04 ,9.0596e-05 /) - kao(:, 5,12, 2) = (/ & - &5.4892e-03 ,4.8847e-03 ,4.2441e-03 ,3.5888e-03 ,2.9119e-03 ,2.2221e-03 , & - &1.5249e-03 ,8.0704e-04 ,1.1205e-04 /) - kao(:, 1,13, 2) = (/ & - &1.1670e-03 ,1.0343e-03 ,8.9403e-04 ,7.5206e-04 ,6.0815e-04 ,4.6361e-04 , & - &3.1684e-04 ,1.6665e-04 ,3.8297e-05 /) - kao(:, 2,13, 2) = (/ & - &1.6263e-03 ,1.4448e-03 ,1.2518e-03 ,1.0548e-03 ,8.5537e-04 ,6.5308e-04 , & - &4.4734e-04 ,2.3634e-04 ,5.4012e-05 /) - kao(:, 3,13, 2) = (/ & - &2.3576e-03 ,2.0975e-03 ,1.8201e-03 ,1.5368e-03 ,1.2479e-03 ,9.5295e-04 , & - &6.5303e-04 ,3.4532e-04 ,6.8858e-05 /) - kao(:, 4,13, 2) = (/ & - &3.5158e-03 ,3.1277e-03 ,2.7158e-03 ,2.2939e-03 ,1.8617e-03 ,1.4210e-03 , & - &9.7237e-04 ,5.1302e-04 ,8.6284e-05 /) - kao(:, 5,13, 2) = (/ & - &5.1868e-03 ,4.6126e-03 ,4.0043e-03 ,3.3796e-03 ,2.7407e-03 ,2.0921e-03 , & - &1.4302e-03 ,7.5554e-04 ,1.0703e-04 /) - kao(:, 1, 1, 3) = (/ & - &2.1967e-05 ,7.0847e-05 ,9.8056e-05 ,1.1683e-04 ,1.2672e-04 ,1.3386e-04 , & - &1.7335e-04 ,3.0889e-04 ,1.4104e-04 /) - kao(:, 2, 1, 3) = (/ & - &3.2805e-05 ,1.0021e-04 ,1.3719e-04 ,1.6469e-04 ,1.8755e-04 ,2.0275e-04 , & - &1.9715e-04 ,2.9590e-04 ,1.6430e-04 /) - kao(:, 3, 1, 3) = (/ & - &4.7330e-05 ,1.3749e-04 ,1.8575e-04 ,2.2309e-04 ,2.5257e-04 ,2.7701e-04 , & - &3.0293e-04 ,3.2277e-04 ,1.5833e-04 /) - kao(:, 4, 1, 3) = (/ & - &6.6184e-05 ,1.8358e-04 ,2.4505e-04 ,2.9115e-04 ,3.2275e-04 ,3.3970e-04 , & - &3.6327e-04 ,4.7032e-04 ,1.5296e-04 /) - kao(:, 5, 1, 3) = (/ & - &8.9953e-05 ,2.3845e-04 ,3.1568e-04 ,3.7021e-04 ,4.0111e-04 ,4.1250e-04 , & - &4.1712e-04 ,4.9013e-04 ,1.7116e-04 /) - kao(:, 1, 2, 3) = (/ & - &2.6480e-05 ,6.7795e-05 ,8.8273e-05 ,1.0239e-04 ,1.1087e-04 ,1.1252e-04 , & - &1.2626e-04 ,1.7765e-04 ,1.0235e-04 /) - kao(:, 2, 2, 3) = (/ & - &4.0229e-05 ,9.8115e-05 ,1.2639e-04 ,1.4693e-04 ,1.6171e-04 ,1.7149e-04 , & - &1.6078e-04 ,2.0296e-04 ,1.0513e-04 /) - kao(:, 3, 2, 3) = (/ & - &5.9019e-05 ,1.3751e-04 ,1.7468e-04 ,2.0166e-04 ,2.2223e-04 ,2.3730e-04 , & - &2.4647e-04 ,2.3569e-04 ,1.0639e-04 /) - kao(:, 4, 2, 3) = (/ & - &8.3741e-05 ,1.8682e-04 ,2.3419e-04 ,2.6910e-04 ,2.9309e-04 ,3.0629e-04 , & - &3.1256e-04 ,3.4516e-04 ,1.0584e-04 /) - kao(:, 5, 2, 3) = (/ & - &1.1534e-04 ,2.4682e-04 ,3.0598e-04 ,3.4903e-04 ,3.7559e-04 ,3.8169e-04 , & - &3.7221e-04 ,3.8365e-04 ,1.2786e-04 /) - kao(:, 1, 3, 3) = (/ & - &3.8574e-05 ,7.5157e-05 ,8.9382e-05 ,9.8254e-05 ,1.0233e-04 ,1.0063e-04 , & - &1.0056e-04 ,1.0870e-04 ,6.8446e-05 /) - kao(:, 2, 3, 3) = (/ & - &6.0142e-05 ,1.1264e-04 ,1.3244e-04 ,1.4504e-04 ,1.5242e-04 ,1.5259e-04 , & - &1.4806e-04 ,1.3730e-04 ,6.4347e-05 /) - kao(:, 3, 3, 3) = (/ & - &9.0381e-05 ,1.6247e-04 ,1.8926e-04 ,2.0538e-04 ,2.1407e-04 ,2.1609e-04 , & - &2.1113e-04 ,1.9332e-04 ,6.7739e-05 /) - kao(:, 4, 3, 3) = (/ & - &1.3106e-04 ,2.2712e-04 ,2.6180e-04 ,2.8099e-04 ,2.9092e-04 ,2.9292e-04 , & - &2.8375e-04 ,2.7092e-04 ,6.8866e-05 /) - kao(:, 5, 3, 3) = (/ & - &1.8403e-04 ,3.0884e-04 ,3.5100e-04 ,3.7380e-04 ,3.8510e-04 ,3.8362e-04 , & - &3.6289e-04 ,3.2300e-04 ,9.2758e-05 /) - kao(:, 1, 4, 3) = (/ & - &5.4705e-05 ,8.6072e-05 ,9.6209e-05 ,1.0034e-04 ,9.9953e-05 ,9.5189e-05 , & - &8.3161e-05 ,7.9207e-05 ,3.9423e-05 /) - kao(:, 2, 4, 3) = (/ & - &8.7751e-05 ,1.3347e-04 ,1.4769e-04 ,1.5271e-04 ,1.5230e-04 ,1.4652e-04 , & - &1.3316e-04 ,1.0796e-04 ,4.2482e-05 /) - kao(:, 3, 4, 3) = (/ & - &1.3536e-04 ,1.9949e-04 ,2.1780e-04 ,2.2400e-04 ,2.2194e-04 ,2.1254e-04 , & - &1.9475e-04 ,1.6332e-04 ,4.5138e-05 /) - kao(:, 4, 4, 3) = (/ & - &2.0116e-04 ,2.8783e-04 ,3.1041e-04 ,3.1735e-04 ,3.1196e-04 ,2.9572e-04 , & - &2.7052e-04 ,2.3211e-04 ,5.0851e-05 /) - kao(:, 5, 4, 3) = (/ & - &2.8895e-04 ,4.0188e-04 ,4.2924e-04 ,4.3500e-04 ,4.2412e-04 ,3.9959e-04 , & - &3.6227e-04 ,3.0072e-04 ,6.6760e-05 /) - kao(:, 1, 5, 3) = (/ & - &7.0137e-05 ,9.4755e-05 ,1.0063e-04 ,1.0127e-04 ,9.8061e-05 ,9.0698e-05 , & - &7.7439e-05 ,5.9138e-05 ,2.6683e-05 /) - kao(:, 2, 5, 3) = (/ & - &1.1533e-04 ,1.5194e-04 ,1.5997e-04 ,1.5979e-04 ,1.5340e-04 ,1.4208e-04 , & - &1.2486e-04 ,9.3241e-05 ,2.9592e-05 /) - kao(:, 3, 5, 3) = (/ & - &1.8276e-04 ,2.3503e-04 ,2.4432e-04 ,2.4189e-04 ,2.3109e-04 ,2.1296e-04 , & - &1.8693e-04 ,1.4538e-04 ,3.2790e-05 /) - kao(:, 4, 5, 3) = (/ & - &2.7903e-04 ,3.5030e-04 ,3.5953e-04 ,3.5303e-04 ,3.3542e-04 ,3.0702e-04 , & - &2.6606e-04 ,2.0930e-04 ,3.9551e-05 /) - kao(:, 5, 5, 3) = (/ & - &4.1070e-04 ,5.0357e-04 ,5.1208e-04 ,4.9861e-04 ,4.7008e-04 ,4.2683e-04 , & - &3.6701e-04 ,2.8592e-04 ,5.1146e-05 /) - kao(:, 1, 6, 3) = (/ & - &8.1368e-05 ,9.8431e-05 ,1.0007e-04 ,9.7542e-05 ,9.2017e-05 ,8.3169e-05 , & - &7.0090e-05 ,4.8919e-05 ,2.1156e-05 /) - kao(:, 2, 6, 3) = (/ & - &1.3706e-04 ,1.6300e-04 ,1.6503e-04 ,1.5990e-04 ,1.4992e-04 ,1.3472e-04 , & - &1.1399e-04 ,8.3619e-05 ,2.5058e-05 /) - kao(:, 3, 6, 3) = (/ & - &2.2338e-04 ,2.6147e-04 ,2.6146e-04 ,2.5118e-04 ,2.3339e-04 ,2.0831e-04 , & - &1.7568e-04 ,1.3135e-04 ,2.8387e-05 /) - kao(:, 4, 6, 3) = (/ & - &3.5127e-04 ,4.0389e-04 ,3.9905e-04 ,3.7918e-04 ,3.4971e-04 ,3.1035e-04 , & - &2.5984e-04 ,1.9266e-04 ,3.2799e-05 /) - kao(:, 5, 6, 3) = (/ & - &5.3129e-04 ,6.0001e-04 ,5.8622e-04 ,5.5309e-04 ,5.0577e-04 ,4.4569e-04 , & - &3.6955e-04 ,2.7080e-04 ,4.1496e-05 /) - kao(:, 1, 7, 3) = (/ & - &1.0007e-04 ,1.0969e-04 ,1.0696e-04 ,1.0012e-04 ,9.0860e-05 ,7.9591e-05 , & - &6.5272e-05 ,4.4404e-05 ,1.8023e-05 /) - kao(:, 2, 7, 3) = (/ & - &1.6864e-04 ,1.8414e-04 ,1.7903e-04 ,1.6759e-04 ,1.5212e-04 ,1.3294e-04 , & - &1.0932e-04 ,7.7110e-05 ,2.3161e-05 /) - kao(:, 3, 7, 3) = (/ & - &2.8238e-04 ,3.0439e-04 ,2.9352e-04 ,2.7330e-04 ,2.4706e-04 ,2.1459e-04 , & - &1.7451e-04 ,1.2351e-04 ,2.8855e-05 /) - kao(:, 4, 7, 3) = (/ & - &4.5659e-04 ,4.8716e-04 ,4.6539e-04 ,4.2996e-04 ,3.8506e-04 ,3.3112e-04 , & - &2.6671e-04 ,1.8725e-04 ,3.4923e-05 /) - kao(:, 5, 7, 3) = (/ & - &7.1027e-04 ,7.4800e-04 ,7.1021e-04 ,6.5078e-04 ,5.7777e-04 ,4.9194e-04 , & - &3.9297e-04 ,2.7155e-04 ,4.1495e-05 /) - kao(:, 1, 8, 3) = (/ & - &1.5946e-04 ,1.5842e-04 ,1.4746e-04 ,1.3211e-04 ,1.1546e-04 ,9.6168e-05 , & - &7.4324e-05 ,4.8395e-05 ,1.7989e-05 /) - kao(:, 2, 8, 3) = (/ & - &2.5770e-04 ,2.5704e-04 ,2.3941e-04 ,2.1551e-04 ,1.8837e-04 ,1.5713e-04 , & - &1.2214e-04 ,8.1368e-05 ,2.3968e-05 /) - kao(:, 3, 8, 3) = (/ & - &4.2472e-04 ,4.2443e-04 ,3.9713e-04 ,3.5763e-04 ,3.1122e-04 ,2.5901e-04 , & - &2.0043e-04 ,1.3331e-04 ,3.2118e-05 /) - kao(:, 4, 8, 3) = (/ & - &7.0597e-04 ,6.9998e-04 ,6.4911e-04 ,5.8037e-04 ,5.0147e-04 ,4.1570e-04 , & - &3.1990e-04 ,2.0974e-04 ,3.9608e-05 /) - kao(:, 5, 8, 3) = (/ & - &1.1264e-03 ,1.1057e-03 ,1.0236e-03 ,9.1299e-04 ,7.8475e-04 ,6.4516e-04 , & - &4.9155e-04 ,3.1715e-04 ,4.8541e-05 /) - kao(:, 1, 9, 3) = (/ & - &5.0227e-04 ,4.5998e-04 ,4.0915e-04 ,3.5429e-04 ,2.9541e-04 ,2.3264e-04 , & - &1.6588e-04 ,9.6165e-05 ,2.6165e-05 /) - kao(:, 2, 9, 3) = (/ & - &7.8676e-04 ,7.2202e-04 ,6.4423e-04 ,5.5868e-04 ,4.6624e-04 ,3.6840e-04 , & - &2.6387e-04 ,1.5409e-04 ,3.5446e-05 /) - kao(:, 3, 9, 3) = (/ & - &1.2789e-03 ,1.1712e-03 ,1.0462e-03 ,9.0711e-04 ,7.5900e-04 ,5.9930e-04 , & - &4.3043e-04 ,2.5008e-04 ,4.6358e-05 /) - kao(:, 4, 9, 3) = (/ & - &2.0840e-03 ,1.9016e-03 ,1.6924e-03 ,1.4648e-03 ,1.2215e-03 ,9.6366e-04 , & - &6.9084e-04 ,4.0072e-04 ,6.1001e-05 /) - kao(:, 5, 9, 3) = (/ & - &3.3367e-03 ,3.0441e-03 ,2.7105e-03 ,2.3462e-03 ,1.9558e-03 ,1.5435e-03 , & - &1.1056e-03 ,6.3552e-04 ,7.9035e-05 /) - kao(:, 1,10, 3) = (/ & - &1.9385e-03 ,1.7157e-03 ,1.4863e-03 ,1.2534e-03 ,1.0193e-03 ,7.7905e-04 , & - &5.3570e-04 ,2.8621e-04 ,4.8614e-05 /) - kao(:, 2,10, 3) = (/ & - &2.9395e-03 ,2.6008e-03 ,2.2566e-03 ,1.9073e-03 ,1.5534e-03 ,1.1938e-03 , & - &8.2332e-04 ,4.4169e-04 ,7.1291e-05 /) - kao(:, 3,10, 3) = (/ & - &4.6962e-03 ,4.1509e-03 ,3.6037e-03 ,3.0461e-03 ,2.4817e-03 ,1.9064e-03 , & - &1.3190e-03 ,7.0872e-04 ,9.5825e-05 /) - kao(:, 4,10, 3) = (/ & - &7.5852e-03 ,6.6994e-03 ,5.8186e-03 ,4.9195e-03 ,4.0087e-03 ,3.0812e-03 , & - &2.1247e-03 ,1.1368e-03 ,1.1801e-04 /) - kao(:, 5,10, 3) = (/ & - &1.2000e-02 ,1.0601e-02 ,9.2089e-03 ,7.7807e-03 ,6.3408e-03 ,4.8692e-03 , & - &3.3607e-03 ,1.8001e-03 ,1.5301e-04 /) - kao(:, 1,11, 3) = (/ & - &3.1614e-03 ,2.7883e-03 ,2.4150e-03 ,2.0359e-03 ,1.6451e-03 ,1.2526e-03 , & - &8.5416e-04 ,4.4797e-04 ,5.8064e-05 /) - kao(:, 2,11, 3) = (/ & - &4.7730e-03 ,4.2097e-03 ,3.6498e-03 ,3.0671e-03 ,2.4809e-03 ,1.8948e-03 , & - &1.2977e-03 ,6.8686e-04 ,8.3754e-05 /) - kao(:, 3,11, 3) = (/ & - &7.6614e-03 ,6.7521e-03 ,5.8435e-03 ,4.9093e-03 ,3.9758e-03 ,3.0351e-03 , & - &2.0807e-03 ,1.0948e-03 ,1.2253e-04 /) - kao(:, 4,11, 3) = (/ & - &1.2246e-02 ,1.0785e-02 ,9.3301e-03 ,7.8482e-03 ,6.3562e-03 ,4.8536e-03 , & - &3.3260e-03 ,1.7481e-03 ,1.5741e-04 /) - kao(:, 5,11, 3) = (/ & - &1.9021e-02 ,1.6750e-02 ,1.4500e-02 ,1.2206e-02 ,9.8921e-03 ,7.5567e-03 , & - &5.1767e-03 ,2.7251e-03 ,2.0052e-04 /) - kao(:, 1,12, 3) = (/ & - &3.8826e-03 ,3.4185e-03 ,2.9574e-03 ,2.4900e-03 ,2.0123e-03 ,1.5298e-03 , & - &1.0368e-03 ,5.3904e-04 ,6.3688e-05 /) - kao(:, 2,12, 3) = (/ & - &5.8362e-03 ,5.1381e-03 ,4.4457e-03 ,3.7372e-03 ,3.0206e-03 ,2.2947e-03 , & - &1.5681e-03 ,8.2298e-04 ,8.9290e-05 /) - kao(:, 3,12, 3) = (/ & - &9.2251e-03 ,8.1210e-03 ,7.0237e-03 ,5.8967e-03 ,4.7688e-03 ,3.6322e-03 , & - &2.4807e-03 ,1.3032e-03 ,1.3416e-04 /) - kao(:, 4,12, 3) = (/ & - &1.4709e-02 ,1.2946e-02 ,1.1191e-02 ,9.4045e-03 ,7.5956e-03 ,5.7870e-03 , & - &3.9575e-03 ,2.0727e-03 ,1.8001e-04 /) - kao(:, 5,12, 3) = (/ & - &2.2619e-02 ,1.9908e-02 ,1.7216e-02 ,1.4475e-02 ,1.1703e-02 ,8.9157e-03 , & - &6.0792e-03 ,3.1754e-03 ,2.2086e-04 /) - kao(:, 1,13, 3) = (/ & - &3.8309e-03 ,3.3731e-03 ,2.9187e-03 ,2.4542e-03 ,1.9844e-03 ,1.5107e-03 , & - &1.0279e-03 ,5.3642e-04 ,6.4942e-05 /) - kao(:, 2,13, 3) = (/ & - &5.8347e-03 ,5.1376e-03 ,4.4461e-03 ,3.7352e-03 ,3.0197e-03 ,2.2950e-03 , & - &1.5588e-03 ,8.1629e-04 ,9.2767e-05 /) - kao(:, 3,13, 3) = (/ & - &9.2194e-03 ,8.1162e-03 ,7.0173e-03 ,5.8930e-03 ,4.7598e-03 ,3.6175e-03 , & - &2.4591e-03 ,1.2857e-03 ,1.3288e-04 /) - kao(:, 4,13, 3) = (/ & - &1.4386e-02 ,1.2666e-02 ,1.0949e-02 ,9.1979e-03 ,7.4294e-03 ,5.6460e-03 , & - &3.8493e-03 ,2.0075e-03 ,1.7458e-04 /) - kao(:, 5,13, 3) = (/ & - &2.1887e-02 ,1.9271e-02 ,1.6664e-02 ,1.4007e-02 ,1.1332e-02 ,8.6132e-03 , & - &5.8543e-03 ,3.0399e-03 ,2.1866e-04 /) - kao(:, 1, 1, 4) = (/ & - &1.2767e-04 ,2.6436e-04 ,3.0512e-04 ,3.1799e-04 ,3.1958e-04 ,3.3191e-04 , & - &3.9104e-04 ,5.0710e-04 ,1.7855e-04 /) - kao(:, 2, 1, 4) = (/ & - &1.7738e-04 ,3.5053e-04 ,3.9839e-04 ,4.1229e-04 ,4.0492e-04 ,3.8983e-04 , & - &4.1500e-04 ,5.9614e-04 ,1.6036e-04 /) - kao(:, 3, 1, 4) = (/ & - &2.3686e-04 ,4.4965e-04 ,5.0544e-04 ,5.1877e-04 ,5.0600e-04 ,4.7740e-04 , & - &4.5052e-04 ,5.7236e-04 ,1.8787e-04 /) - kao(:, 4, 1, 4) = (/ & - &3.0650e-04 ,5.6569e-04 ,6.3165e-04 ,6.4530e-04 ,6.3512e-04 ,6.1237e-04 , & - &5.6656e-04 ,5.2891e-04 ,2.7469e-04 /) - kao(:, 5, 1, 4) = (/ & - &3.8512e-04 ,6.9752e-04 ,7.7525e-04 ,7.9245e-04 ,7.8883e-04 ,7.7085e-04 , & - &7.4060e-04 ,6.7719e-04 ,3.6282e-04 /) - kao(:, 1, 2, 4) = (/ & - &1.5390e-04 ,2.7494e-04 ,3.1261e-04 ,3.2023e-04 ,3.1151e-04 ,2.9547e-04 , & - &3.1497e-04 ,3.9039e-04 ,1.0989e-04 /) - kao(:, 2, 2, 4) = (/ & - &2.1714e-04 ,3.7453e-04 ,4.1638e-04 ,4.2413e-04 ,4.1007e-04 ,3.7857e-04 , & - &3.5354e-04 ,4.2401e-04 ,1.1763e-04 /) - kao(:, 3, 2, 4) = (/ & - &2.9352e-04 ,4.8938e-04 ,5.3784e-04 ,5.4431e-04 ,5.2257e-04 ,4.7749e-04 , & - &4.2355e-04 ,4.2211e-04 ,1.4157e-04 /) - kao(:, 4, 2, 4) = (/ & - &3.8348e-04 ,6.2214e-04 ,6.8003e-04 ,6.8421e-04 ,6.5590e-04 ,6.0605e-04 , & - &5.3467e-04 ,4.5064e-04 ,2.0612e-04 /) - kao(:, 5, 2, 4) = (/ & - &4.8704e-04 ,7.7618e-04 ,8.4540e-04 ,8.4784e-04 ,8.1484e-04 ,7.6245e-04 , & - &6.8894e-04 ,5.8453e-04 ,2.7190e-04 /) - kao(:, 1, 3, 4) = (/ & - &2.3071e-04 ,3.3499e-04 ,3.6845e-04 ,3.7270e-04 ,3.5547e-04 ,3.2203e-04 , & - &2.7656e-04 ,2.6506e-04 ,6.2779e-05 /) - kao(:, 2, 3, 4) = (/ & - &3.3368e-04 ,4.7302e-04 ,5.1131e-04 ,5.0923e-04 ,4.8101e-04 ,4.3420e-04 , & - &3.6192e-04 ,3.1963e-04 ,7.8022e-05 /) - kao(:, 3, 3, 4) = (/ & - &4.6167e-04 ,6.3817e-04 ,6.7863e-04 ,6.7148e-04 ,6.3202e-04 ,5.6610e-04 , & - &4.7208e-04 ,3.5841e-04 ,1.0032e-04 /) - kao(:, 4, 3, 4) = (/ & - &6.1421e-04 ,8.2728e-04 ,8.7092e-04 ,8.6012e-04 ,8.0666e-04 ,7.1818e-04 , & - &5.9937e-04 ,4.3811e-04 ,1.4466e-04 /) - kao(:, 5, 3, 4) = (/ & - &7.9318e-04 ,1.0499e-03 ,1.1001e-03 ,1.0825e-03 ,1.0111e-03 ,9.0157e-04 , & - &7.5964e-04 ,5.7512e-04 ,1.9432e-04 /) - kao(:, 1, 4, 4) = (/ & - &3.4200e-04 ,4.1990e-04 ,4.4259e-04 ,4.3661e-04 ,4.1163e-04 ,3.6760e-04 , & - &3.0371e-04 ,2.3149e-04 ,4.6307e-05 /) - kao(:, 2, 4, 4) = (/ & - &5.0920e-04 ,6.1539e-04 ,6.3721e-04 ,6.1994e-04 ,5.7603e-04 ,5.0827e-04 , & - &4.1402e-04 ,2.9065e-04 ,5.1907e-05 /) - kao(:, 3, 4, 4) = (/ & - &7.2424e-04 ,8.6063e-04 ,8.7699e-04 ,8.4266e-04 ,7.7721e-04 ,6.8304e-04 , & - &5.5495e-04 ,3.8326e-04 ,6.9160e-05 /) - kao(:, 4, 4, 4) = (/ & - &9.8776e-04 ,1.1516e-03 ,1.1582e-03 ,1.1044e-03 ,1.0138e-03 ,8.8821e-04 , & - &7.1753e-04 ,4.9169e-04 ,9.8233e-05 /) - kao(:, 5, 4, 4) = (/ & - &1.2975e-03 ,1.4918e-03 ,1.4869e-03 ,1.4114e-03 ,1.2930e-03 ,1.1277e-03 , & - &9.0840e-04 ,6.3197e-04 ,1.3450e-04 /) - kao(:, 1, 5, 4) = (/ & - &4.6076e-04 ,5.0474e-04 ,5.1144e-04 ,4.9140e-04 ,4.5232e-04 ,3.9779e-04 , & - &3.2321e-04 ,2.2336e-04 ,3.4201e-05 /) - kao(:, 2, 5, 4) = (/ & - &7.0989e-04 ,7.6999e-04 ,7.6963e-04 ,7.2952e-04 ,6.6336e-04 ,5.7413e-04 , & - &4.5930e-04 ,3.0843e-04 ,4.2292e-05 /) - kao(:, 3, 5, 4) = (/ & - &1.0386e-03 ,1.1133e-03 ,1.0985e-03 ,1.0276e-03 ,9.2270e-04 ,7.9078e-04 , & - &6.2825e-04 ,4.1898e-04 ,5.3586e-05 /) - kao(:, 4, 5, 4) = (/ & - &1.4541e-03 ,1.5404e-03 ,1.4988e-03 ,1.3877e-03 ,1.2375e-03 ,1.0544e-03 , & - &8.3469e-04 ,5.5179e-04 ,6.8395e-05 /) - kao(:, 5, 5, 4) = (/ & - &1.9528e-03 ,2.0463e-03 ,1.9719e-03 ,1.8145e-03 ,1.6102e-03 ,1.3677e-03 , & - &1.0776e-03 ,7.0877e-04 ,9.0444e-05 /) - kao(:, 1, 6, 4) = (/ & - &5.6492e-04 ,5.7565e-04 ,5.5931e-04 ,5.2434e-04 ,4.7320e-04 ,4.0777e-04 , & - &3.2512e-04 ,2.1641e-04 ,2.6966e-05 /) - kao(:, 2, 6, 4) = (/ & - &9.0441e-04 ,9.1447e-04 ,8.8349e-04 ,8.2170e-04 ,7.3208e-04 ,6.2190e-04 , & - &4.8768e-04 ,3.1817e-04 ,3.4982e-05 /) - kao(:, 3, 6, 4) = (/ & - &1.3664e-03 ,1.3688e-03 ,1.3074e-03 ,1.2015e-03 ,1.0584e-03 ,8.8601e-04 , & - &6.8532e-04 ,4.4190e-04 ,4.5831e-05 /) - kao(:, 4, 6, 4) = (/ & - &1.9708e-03 ,1.9570e-03 ,1.8529e-03 ,1.6859e-03 ,1.4692e-03 ,1.2199e-03 , & - &9.3583e-04 ,6.0020e-04 ,5.8072e-05 /) - kao(:, 5, 6, 4) = (/ & - &2.7158e-03 ,2.6789e-03 ,2.5132e-03 ,2.2684e-03 ,1.9663e-03 ,1.6232e-03 , & - &1.2393e-03 ,7.8815e-04 ,7.1453e-05 /) - kao(:, 1, 7, 4) = (/ & - &7.1612e-04 ,6.9080e-04 ,6.4557e-04 ,5.8741e-04 ,5.1690e-04 ,4.3484e-04 , & - &3.3811e-04 ,2.1958e-04 ,2.5385e-05 /) - kao(:, 2, 7, 4) = (/ & - &1.1940e-03 ,1.1449e-03 ,1.0668e-03 ,9.6669e-04 ,8.4588e-04 ,7.0528e-04 , & - &5.3962e-04 ,3.4196e-04 ,3.2650e-05 /) - kao(:, 3, 7, 4) = (/ & - &1.8743e-03 ,1.7868e-03 ,1.6562e-03 ,1.4906e-03 ,1.2906e-03 ,1.0612e-03 , & - &7.9912e-04 ,4.9523e-04 ,4.3298e-05 /) - kao(:, 4, 7, 4) = (/ & - &2.7760e-03 ,2.6274e-03 ,2.4197e-03 ,2.1609e-03 ,1.8570e-03 ,1.5098e-03 , & - &1.1229e-03 ,6.8654e-04 ,5.4268e-05 /) - kao(:, 5, 7, 4) = (/ & - &3.9210e-03 ,3.6980e-03 ,3.3854e-03 ,3.0037e-03 ,2.5627e-03 ,2.0710e-03 , & - &1.5295e-03 ,9.2840e-04 ,6.7940e-05 /) - kao(:, 1, 8, 4) = (/ & - &1.0670e-03 ,9.8692e-04 ,8.9134e-04 ,7.8593e-04 ,6.7073e-04 ,5.4467e-04 , & - &4.0756e-04 ,2.5210e-04 ,2.8359e-05 /) - kao(:, 2, 8, 4) = (/ & - &1.8582e-03 ,1.7102e-03 ,1.5414e-03 ,1.3557e-03 ,1.1545e-03 ,9.3501e-04 , & - &6.9502e-04 ,4.2320e-04 ,3.7233e-05 /) - kao(:, 3, 8, 4) = (/ & - &3.0392e-03 ,2.7815e-03 ,2.4987e-03 ,2.1910e-03 ,1.8592e-03 ,1.4974e-03 , & - &1.1016e-03 ,6.5354e-04 ,4.6926e-05 /) - kao(:, 4, 8, 4) = (/ & - &4.6351e-03 ,4.2251e-03 ,3.7893e-03 ,3.3101e-03 ,2.7928e-03 ,2.2311e-03 , & - &1.6189e-03 ,9.4084e-04 ,6.1285e-05 /) - kao(:, 5, 8, 4) = (/ & - &6.7053e-03 ,6.1011e-03 ,5.4490e-03 ,4.7367e-03 ,3.9743e-03 ,3.1531e-03 , & - &2.2726e-03 ,1.3072e-03 ,7.4486e-05 /) - kao(:, 1, 9, 4) = (/ & - &3.0079e-03 ,2.6671e-03 ,2.3362e-03 ,1.9921e-03 ,1.6375e-03 ,1.2739e-03 , & - &8.9947e-04 ,5.0478e-04 ,4.8310e-05 /) - kao(:, 2, 9, 4) = (/ & - &5.3604e-03 ,4.7462e-03 ,4.1492e-03 ,3.5341e-03 ,2.9054e-03 ,2.2583e-03 , & - &1.5943e-03 ,8.9078e-04 ,6.1843e-05 /) - kao(:, 3, 9, 4) = (/ & - &9.0324e-03 ,7.9882e-03 ,6.9714e-03 ,5.9320e-03 ,4.8700e-03 ,3.7864e-03 , & - &2.6693e-03 ,1.4872e-03 ,8.4369e-05 /) - kao(:, 4, 9, 4) = (/ & - &1.4329e-02 ,1.2658e-02 ,1.1032e-02 ,9.3748e-03 ,7.6880e-03 ,5.9624e-03 , & - &4.1846e-03 ,2.3075e-03 ,1.0247e-04 /) - kao(:, 5, 9, 4) = (/ & - &2.1261e-02 ,1.8755e-02 ,1.6325e-02 ,1.3858e-02 ,1.1339e-02 ,8.7669e-03 , & - &6.1142e-03 ,3.3320e-03 ,1.2163e-04 /) - kao(:, 1,10, 4) = (/ & - &1.0911e-02 ,9.5635e-03 ,8.2330e-03 ,6.9092e-03 ,5.5802e-03 ,4.2396e-03 , & - &2.8819e-03 ,1.5069e-03 ,1.0164e-04 /) - kao(:, 2,10, 4) = (/ & - &1.8579e-02 ,1.6289e-02 ,1.4021e-02 ,1.1757e-02 ,9.4958e-03 ,7.2115e-03 , & - &4.9034e-03 ,2.5692e-03 ,1.2765e-04 /) - kao(:, 3,10, 4) = (/ & - &3.1018e-02 ,2.7193e-02 ,2.3385e-02 ,1.9601e-02 ,1.5823e-02 ,1.2032e-02 , & - &8.1956e-03 ,4.3045e-03 ,1.7856e-04 /) - kao(:, 4,10, 4) = (/ & - &5.0111e-02 ,4.3919e-02 ,3.7756e-02 ,3.1628e-02 ,2.5516e-02 ,1.9374e-02 , & - &1.3194e-02 ,6.9219e-03 ,2.2724e-04 /) - kao(:, 5,10, 4) = (/ & - &7.6376e-02 ,6.6924e-02 ,5.7507e-02 ,4.8151e-02 ,3.8816e-02 ,2.9439e-02 , & - &2.0003e-02 ,1.0433e-02 ,2.6085e-04 /) - kao(:, 1,11, 4) = (/ & - &1.8971e-02 ,1.6611e-02 ,1.4262e-02 ,1.1923e-02 ,9.5992e-03 ,7.2680e-03 , & - &4.9113e-03 ,2.5257e-03 ,1.6715e-04 /) - kao(:, 2,11, 4) = (/ & - &3.0950e-02 ,2.7103e-02 ,2.3271e-02 ,1.9463e-02 ,1.5664e-02 ,1.1847e-02 , & - &7.9981e-03 ,4.1199e-03 ,2.1489e-04 /) - kao(:, 3,11, 4) = (/ & - &4.9685e-02 ,4.3517e-02 ,3.7369e-02 ,3.1256e-02 ,2.5144e-02 ,1.9021e-02 , & - &1.2853e-02 ,6.6396e-03 ,2.5990e-04 /) - kao(:, 4,11, 4) = (/ & - &7.7374e-02 ,6.7750e-02 ,5.8163e-02 ,4.8608e-02 ,3.9067e-02 ,2.9542e-02 , & - &1.9962e-02 ,1.0311e-02 ,3.2116e-04 /) - kao(:, 5,11, 4) = (/ & - &1.1501e-01 ,1.0072e-01 ,8.6431e-02 ,7.2217e-02 ,5.8056e-02 ,4.3898e-02 , & - &2.9647e-02 ,1.5264e-02 ,3.7485e-04 /) - kao(:, 1,12, 4) = (/ & - &2.3401e-02 ,2.0486e-02 ,1.7582e-02 ,1.4686e-02 ,1.1806e-02 ,8.9258e-03 , & - &6.0297e-03 ,3.0936e-03 ,1.8693e-04 /) - kao(:, 2,12, 4) = (/ & - &3.8133e-02 ,3.3387e-02 ,2.8657e-02 ,2.3944e-02 ,1.9250e-02 ,1.4544e-02 , & - &9.8021e-03 ,5.0235e-03 ,2.4530e-04 /) - kao(:, 3,12, 4) = (/ & - &6.0110e-02 ,5.2620e-02 ,4.5149e-02 ,3.7710e-02 ,3.0268e-02 ,2.2852e-02 , & - &1.5390e-02 ,7.8945e-03 ,2.8864e-04 /) - kao(:, 4,12, 4) = (/ & - &9.0890e-02 ,7.9571e-02 ,6.8303e-02 ,5.7049e-02 ,4.5842e-02 ,3.4594e-02 , & - &2.3289e-02 ,1.1923e-02 ,3.6228e-04 /) - kao(:, 5,12, 4) = (/ & - &1.3100e-01 ,1.1462e-01 ,9.8322e-02 ,8.2088e-02 ,6.5959e-02 ,4.9780e-02 , & - &3.3534e-02 ,1.7184e-02 ,4.3158e-04 /) - kao(:, 1,13, 4) = (/ & - &2.4303e-02 ,2.1262e-02 ,1.8230e-02 ,1.5211e-02 ,1.2213e-02 ,9.2155e-03 , & - &6.2046e-03 ,3.1714e-03 ,1.9233e-04 /) - kao(:, 2,13, 4) = (/ & - &3.8296e-02 ,3.3521e-02 ,2.8762e-02 ,2.4031e-02 ,1.9310e-02 ,1.4568e-02 , & - &9.8072e-03 ,5.0047e-03 ,2.4842e-04 /) - kao(:, 3,13, 4) = (/ & - &5.8379e-02 ,5.1065e-02 ,4.3832e-02 ,3.6631e-02 ,2.9434e-02 ,2.2205e-02 , & - &1.4940e-02 ,7.6384e-03 ,2.8734e-04 /) - kao(:, 4,13, 4) = (/ & - &8.5558e-02 ,7.4841e-02 ,6.4227e-02 ,5.3638e-02 ,4.3082e-02 ,3.2499e-02 , & - &2.1863e-02 ,1.1189e-02 ,3.6167e-04 /) - kao(:, 5,13, 4) = (/ & - &1.2105e-01 ,1.0601e-01 ,9.0943e-02 ,7.5945e-02 ,6.0995e-02 ,4.5990e-02 , & - &3.0953e-02 ,1.5858e-02 ,4.3014e-04 /) - kao(:, 1, 1, 5) = (/ & - &5.2897e-04 ,6.3863e-04 ,6.7716e-04 ,6.8592e-04 ,6.6781e-04 ,6.0937e-04 , & - &5.2069e-04 ,5.5022e-04 ,1.8160e-04 /) - kao(:, 2, 1, 5) = (/ & - &6.5371e-04 ,8.0837e-04 ,8.6369e-04 ,8.8295e-04 ,8.7230e-04 ,8.3067e-04 , & - &7.4453e-04 ,6.6477e-04 ,2.9044e-04 /) - kao(:, 3, 1, 5) = (/ & - &7.9309e-04 ,1.0041e-03 ,1.0806e-03 ,1.1131e-03 ,1.1135e-03 ,1.0810e-03 , & - &1.0060e-03 ,8.6363e-04 ,4.3507e-04 /) - kao(:, 4, 1, 5) = (/ & - &9.5515e-04 ,1.2330e-03 ,1.3320e-03 ,1.3798e-03 ,1.3866e-03 ,1.3599e-03 , & - &1.2978e-03 ,1.1703e-03 ,5.4823e-04 /) - kao(:, 5, 1, 5) = (/ & - &1.1370e-03 ,1.4922e-03 ,1.6168e-03 ,1.6809e-03 ,1.6969e-03 ,1.6741e-03 , & - &1.6142e-03 ,1.5306e-03 ,7.1233e-04 /) - kao(:, 1, 2, 5) = (/ & - &6.4530e-04 ,7.2673e-04 ,7.3348e-04 ,7.1463e-04 ,6.7564e-04 ,6.1110e-04 , & - &5.0123e-04 ,4.4222e-04 ,1.3962e-04 /) - kao(:, 2, 2, 5) = (/ & - &8.0957e-04 ,9.2607e-04 ,9.4414e-04 ,9.2480e-04 ,8.8433e-04 ,8.1497e-04 , & - &7.0697e-04 ,5.2414e-04 ,2.1889e-04 /) - kao(:, 3, 2, 5) = (/ & - &9.9558e-04 ,1.1596e-03 ,1.1892e-03 ,1.1731e-03 ,1.1295e-03 ,1.0550e-03 , & - &9.3776e-04 ,7.6366e-04 ,3.1779e-04 /) - kao(:, 4, 2, 5) = (/ & - &1.2093e-03 ,1.4336e-03 ,1.4751e-03 ,1.4631e-03 ,1.4149e-03 ,1.3281e-03 , & - &1.2039e-03 ,1.0264e-03 ,4.0743e-04 /) - kao(:, 5, 2, 5) = (/ & - &1.4548e-03 ,1.7501e-03 ,1.8041e-03 ,1.7977e-03 ,1.7416e-03 ,1.6424e-03 , & - &1.5037e-03 ,1.3244e-03 ,5.3155e-04 /) - kao(:, 1, 3, 5) = (/ & - &1.0073e-03 ,1.0305e-03 ,9.9170e-04 ,9.1685e-04 ,8.2334e-04 ,7.1279e-04 , & - &5.7365e-04 ,3.9412e-04 ,1.0025e-04 /) - kao(:, 2, 3, 5) = (/ & - &1.2880e-03 ,1.3316e-03 ,1.2867e-03 ,1.1967e-03 ,1.0809e-03 ,9.4443e-04 , & - &7.8179e-04 ,5.3700e-04 ,1.5384e-04 /) - kao(:, 3, 3, 5) = (/ & - &1.6107e-03 ,1.6903e-03 ,1.6390e-03 ,1.5300e-03 ,1.3886e-03 ,1.2242e-03 , & - &1.0235e-03 ,7.5425e-04 ,2.1640e-04 /) - kao(:, 4, 3, 5) = (/ & - &1.9797e-03 ,2.1107e-03 ,2.0529e-03 ,1.9209e-03 ,1.7527e-03 ,1.5541e-03 , & - &1.3094e-03 ,9.9288e-04 ,2.8803e-04 /) - kao(:, 5, 3, 5) = (/ & - &2.4113e-03 ,2.6021e-03 ,2.5366e-03 ,2.3815e-03 ,2.1822e-03 ,1.9385e-03 , & - &1.6375e-03 ,1.2689e-03 ,3.7641e-04 /) - kao(:, 1, 4, 5) = (/ & - &1.5851e-03 ,1.5181e-03 ,1.4032e-03 ,1.2606e-03 ,1.0883e-03 ,8.9739e-04 , & - &6.8560e-04 ,4.2854e-04 ,6.6391e-05 /) - kao(:, 2, 4, 5) = (/ & - &2.0501e-03 ,1.9754e-03 ,1.8387e-03 ,1.6565e-03 ,1.4386e-03 ,1.1914e-03 , & - &9.2359e-04 ,6.1319e-04 ,1.0381e-04 /) - kao(:, 3, 4, 5) = (/ & - &2.6137e-03 ,2.5384e-03 ,2.3763e-03 ,2.1489e-03 ,1.8706e-03 ,1.5557e-03 , & - &1.2160e-03 ,8.2392e-04 ,1.4611e-04 /) - kao(:, 4, 4, 5) = (/ & - &3.2665e-03 ,3.2074e-03 ,3.0134e-03 ,2.7316e-03 ,2.3866e-03 ,1.9939e-03 , & - &1.5682e-03 ,1.0781e-03 ,1.9821e-04 /) - kao(:, 5, 4, 5) = (/ & - &4.0137e-03 ,3.9873e-03 ,3.7629e-03 ,3.4158e-03 ,2.9921e-03 ,2.5128e-03 , & - &1.9870e-03 ,1.3733e-03 ,2.6370e-04 /) - kao(:, 1, 5, 5) = (/ & - &2.2692e-03 ,2.1006e-03 ,1.8869e-03 ,1.6579e-03 ,1.4070e-03 ,1.1280e-03 , & - &8.2786e-04 ,4.9332e-04 ,4.7300e-05 /) - kao(:, 2, 5, 5) = (/ & - &2.9951e-03 ,2.7795e-03 ,2.5097e-03 ,2.2151e-03 ,1.8839e-03 ,1.5178e-03 , & - &1.1209e-03 ,6.8743e-04 ,6.4441e-05 /) - kao(:, 3, 5, 5) = (/ & - &3.8783e-03 ,3.6150e-03 ,3.2821e-03 ,2.9041e-03 ,2.4789e-03 ,2.0050e-03 , & - &1.4894e-03 ,9.2698e-04 ,9.4008e-05 /) - kao(:, 4, 5, 5) = (/ & - &4.9258e-03 ,4.6186e-03 ,4.2220e-03 ,3.7446e-03 ,3.2015e-03 ,2.5968e-03 , & - &1.9395e-03 ,1.2217e-03 ,1.3185e-04 /) - kao(:, 5, 5, 5) = (/ & - &6.1149e-03 ,5.7761e-03 ,5.3147e-03 ,4.7312e-03 ,4.0567e-03 ,3.3012e-03 , & - &2.4775e-03 ,1.5747e-03 ,1.8186e-04 /) - kao(:, 1, 6, 5) = (/ & - &2.9777e-03 ,2.7020e-03 ,2.3926e-03 ,2.0653e-03 ,1.7240e-03 ,1.3628e-03 , & - &9.7585e-04 ,5.5769e-04 ,3.7018e-05 /) - kao(:, 2, 6, 5) = (/ & - &4.0405e-03 ,3.6698e-03 ,3.2527e-03 ,2.8150e-03 ,2.3582e-03 ,1.8689e-03 , & - &1.3459e-03 ,7.7825e-04 ,5.0931e-05 /) - kao(:, 3, 6, 5) = (/ & - &5.2985e-03 ,4.8259e-03 ,4.2980e-03 ,3.7351e-03 ,3.1354e-03 ,2.4956e-03 , & - &1.8046e-03 ,1.0570e-03 ,6.8165e-05 /) - kao(:, 4, 6, 5) = (/ & - &6.8330e-03 ,6.2458e-03 ,5.5922e-03 ,4.8800e-03 ,4.1117e-03 ,3.2799e-03 , & - &2.3798e-03 ,1.4059e-03 ,8.9401e-05 /) - kao(:, 5, 6, 5) = (/ & - &8.6003e-03 ,7.8905e-03 ,7.1103e-03 ,6.2229e-03 ,5.2575e-03 ,4.2076e-03 , & - &3.0687e-03 ,1.8306e-03 ,1.2028e-04 /) - kao(:, 1, 7, 5) = (/ & - &4.0427e-03 ,3.6171e-03 ,3.1732e-03 ,2.7085e-03 ,2.2305e-03 ,1.7374e-03 , & - &1.2245e-03 ,6.7631e-04 ,3.7016e-05 /) - kao(:, 2, 7, 5) = (/ & - &5.6556e-03 ,5.0622e-03 ,4.4391e-03 ,3.7915e-03 ,3.1262e-03 ,2.4381e-03 , & - &1.7215e-03 ,9.5894e-04 ,4.8862e-05 /) - kao(:, 3, 7, 5) = (/ & - &7.5823e-03 ,6.7945e-03 ,5.9706e-03 ,5.1108e-03 ,4.2263e-03 ,3.3055e-03 , & - &2.3437e-03 ,1.3169e-03 ,6.1466e-05 /) - kao(:, 4, 7, 5) = (/ & - &9.8701e-03 ,8.8589e-03 ,7.8113e-03 ,6.7131e-03 ,5.5681e-03 ,4.3736e-03 , & - &3.1150e-03 ,1.7640e-03 ,7.9784e-05 /) - kao(:, 5, 7, 5) = (/ & - &1.2627e-02 ,1.1349e-02 ,1.0044e-02 ,8.6633e-03 ,7.2033e-03 ,5.6735e-03 , & - &4.0519e-03 ,2.3093e-03 ,9.9338e-05 /) - kao(:, 1, 8, 5) = (/ & - &6.5162e-03 ,5.7610e-03 ,5.0100e-03 ,4.2382e-03 ,3.4497e-03 ,2.6520e-03 , & - &1.8357e-03 ,9.8841e-04 ,5.0893e-05 /) - kao(:, 2, 8, 5) = (/ & - &9.3894e-03 ,8.3047e-03 ,7.2233e-03 ,6.1097e-03 ,4.9767e-03 ,3.8267e-03 , & - &2.6500e-03 ,1.4278e-03 ,6.6360e-05 /) - kao(:, 3, 8, 5) = (/ & - &1.2886e-02 ,1.1402e-02 ,9.9227e-03 ,8.3986e-03 ,6.8476e-03 ,5.2715e-03 , & - &3.6563e-03 ,1.9797e-03 ,8.1964e-05 /) - kao(:, 4, 8, 5) = (/ & - &1.7029e-02 ,1.5075e-02 ,1.3132e-02 ,1.1136e-02 ,9.1030e-03 ,7.0269e-03 , & - &4.8948e-03 ,2.6694e-03 ,1.0083e-04 /) - kao(:, 5, 8, 5) = (/ & - &2.2131e-02 ,1.9595e-02 ,1.7101e-02 ,1.4537e-02 ,1.1918e-02 ,9.2249e-03 , & - &6.4389e-03 ,3.5237e-03 ,1.2644e-04 /) - kao(:, 1, 9, 5) = (/ & - &1.9574e-02 ,1.7171e-02 ,1.4767e-02 ,1.2373e-02 ,9.9784e-03 ,7.5698e-03 , & - &5.1323e-03 ,2.6624e-03 ,7.9787e-05 /) - kao(:, 2, 9, 5) = (/ & - &2.9063e-02 ,2.5494e-02 ,2.1931e-02 ,1.8384e-02 ,1.4827e-02 ,1.1241e-02 , & - &7.6171e-03 ,3.9520e-03 ,1.0489e-04 /) - kao(:, 3, 9, 5) = (/ & - &4.0973e-02 ,3.5943e-02 ,3.0923e-02 ,2.5930e-02 ,2.0911e-02 ,1.5846e-02 , & - &1.0739e-02 ,5.5789e-03 ,1.2330e-04 /) - kao(:, 4, 9, 5) = (/ & - &5.5333e-02 ,4.8546e-02 ,4.1776e-02 ,3.5034e-02 ,2.8259e-02 ,2.1435e-02 , & - &1.4550e-02 ,7.5751e-03 ,1.5097e-04 /) - kao(:, 5, 9, 5) = (/ & - &7.2795e-02 ,6.3880e-02 ,5.4976e-02 ,4.6114e-02 ,3.7235e-02 ,2.8276e-02 , & - &1.9247e-02 ,1.0060e-02 ,1.9444e-04 /) - kao(:, 1,10, 5) = (/ & - &6.7876e-02 ,5.9426e-02 ,5.0975e-02 ,4.2524e-02 ,3.4085e-02 ,2.5643e-02 , & - &1.7219e-02 ,8.7441e-03 ,2.1379e-04 /) - kao(:, 2,10, 5) = (/ & - &1.0363e-01 ,9.0726e-02 ,7.7824e-02 ,6.4925e-02 ,5.2032e-02 ,3.9153e-02 , & - &2.6288e-02 ,1.3336e-02 ,2.7530e-04 /) - kao(:, 3,10, 5) = (/ & - &1.4868e-01 ,1.3017e-01 ,1.1167e-01 ,9.3161e-02 ,7.4667e-02 ,5.6180e-02 , & - &3.7706e-02 ,1.9125e-02 ,3.1198e-04 /) - kao(:, 4,10, 5) = (/ & - &2.0441e-01 ,1.7897e-01 ,1.5353e-01 ,1.2809e-01 ,1.0267e-01 ,7.7285e-02 , & - &5.1877e-02 ,2.6327e-02 ,3.7361e-04 /) - kao(:, 5,10, 5) = (/ & - &2.7248e-01 ,2.3857e-01 ,2.0467e-01 ,1.7078e-01 ,1.3689e-01 ,1.0307e-01 , & - &6.9236e-02 ,3.5215e-02 ,4.4890e-04 /) - kao(:, 1,11, 5) = (/ & - &1.0259e-01 ,8.9796e-02 ,7.7004e-02 ,6.4217e-02 ,5.1425e-02 ,3.8649e-02 , & - &2.5882e-02 ,1.3106e-02 ,2.9325e-04 /) - kao(:, 2,11, 5) = (/ & - &1.5400e-01 ,1.3480e-01 ,1.1559e-01 ,9.6403e-02 ,7.7200e-02 ,5.8036e-02 , & - &3.8878e-02 ,1.9667e-02 ,3.5327e-04 /) - kao(:, 3,11, 5) = (/ & - &2.2118e-01 ,1.9361e-01 ,1.6603e-01 ,1.3846e-01 ,1.1090e-01 ,8.3368e-02 , & - &5.5861e-02 ,2.8242e-02 ,4.6202e-04 /) - kao(:, 4,11, 5) = (/ & - &3.0353e-01 ,2.6571e-01 ,2.2790e-01 ,1.9008e-01 ,1.5227e-01 ,1.1447e-01 , & - &7.6708e-02 ,3.8764e-02 ,5.6335e-04 /) - kao(:, 5,11, 5) = (/ & - &4.0552e-01 ,3.5495e-01 ,3.0446e-01 ,2.5391e-01 ,2.0338e-01 ,1.5287e-01 , & - &1.0246e-01 ,5.1876e-02 ,6.9233e-04 /) - kao(:, 1,12, 5) = (/ & - &1.1805e-01 ,1.0334e-01 ,8.8617e-02 ,7.3889e-02 ,5.9170e-02 ,4.4431e-02 , & - &2.9722e-02 ,1.5007e-02 ,3.3712e-04 /) - kao(:, 2,12, 5) = (/ & - &1.7261e-01 ,1.5108e-01 ,1.2954e-01 ,1.0804e-01 ,8.6508e-02 ,6.5013e-02 , & - &4.3529e-02 ,2.1984e-02 ,3.8771e-04 /) - kao(:, 3,12, 5) = (/ & - &2.4519e-01 ,2.1462e-01 ,1.8406e-01 ,1.5350e-01 ,1.2297e-01 ,9.2422e-02 , & - &6.1905e-02 ,3.1241e-02 ,5.1427e-04 /) - kao(:, 4,12, 5) = (/ & - &3.3550e-01 ,2.9369e-01 ,2.5183e-01 ,2.1003e-01 ,1.6821e-01 ,1.2645e-01 , & - &8.4714e-02 ,4.2803e-02 ,6.2818e-04 /) - kao(:, 5,12, 5) = (/ & - &4.4900e-01 ,3.9309e-01 ,3.3714e-01 ,2.8120e-01 ,2.2522e-01 ,1.6927e-01 , & - &1.1341e-01 ,5.7326e-02 ,7.6692e-04 /) - kao(:, 1,13, 5) = (/ & - &1.0921e-01 ,9.5613e-02 ,8.2016e-02 ,6.8423e-02 ,5.4814e-02 ,4.1207e-02 , & - &2.7589e-02 ,1.3915e-02 ,3.0996e-04 /) - kao(:, 2,13, 5) = (/ & - &1.5908e-01 ,1.3927e-01 ,1.1945e-01 ,9.9633e-02 ,7.9786e-02 ,5.9973e-02 , & - &4.0176e-02 ,2.0276e-02 ,3.7414e-04 /) - kao(:, 3,13, 5) = (/ & - &2.2086e-01 ,1.9339e-01 ,1.6582e-01 ,1.3829e-01 ,1.1077e-01 ,8.3306e-02 , & - &5.5823e-02 ,2.8176e-02 ,4.9992e-04 /) - kao(:, 4,13, 5) = (/ & - &3.0195e-01 ,2.6439e-01 ,2.2676e-01 ,1.8917e-01 ,1.5156e-01 ,1.1401e-01 , & - &7.6395e-02 ,3.8587e-02 ,6.2293e-04 /) - kao(:, 5,13, 5) = (/ & - &4.0305e-01 ,3.5276e-01 ,3.0259e-01 ,2.5241e-01 ,2.0221e-01 ,1.5209e-01 , & - &1.0190e-01 ,5.1477e-02 ,7.6835e-04 /) - kao(:, 1, 1, 6) = (/ & - &1.3028e-03 ,1.4792e-03 ,1.5640e-03 ,1.5783e-03 ,1.5338e-03 ,1.4263e-03 , & - &1.2426e-03 ,1.0270e-03 ,3.8769e-04 /) - kao(:, 2, 1, 6) = (/ & - &1.5941e-03 ,1.8539e-03 ,1.9924e-03 ,2.0205e-03 ,1.9782e-03 ,1.8703e-03 , & - &1.6672e-03 ,1.3063e-03 ,5.8906e-04 /) - kao(:, 3, 1, 6) = (/ & - &1.9170e-03 ,2.2892e-03 ,2.4874e-03 ,2.5352e-03 ,2.4910e-03 ,2.3785e-03 , & - &2.1678e-03 ,1.7982e-03 ,8.4228e-04 /) - kao(:, 4, 1, 6) = (/ & - &2.2745e-03 ,2.7857e-03 ,3.0496e-03 ,3.1195e-03 ,3.0784e-03 ,2.9487e-03 , & - &2.7123e-03 ,2.3729e-03 ,1.1599e-03 /) - kao(:, 5, 1, 6) = (/ & - &2.6664e-03 ,3.3396e-03 ,3.6796e-03 ,3.7742e-03 ,3.7339e-03 ,3.5735e-03 , & - &3.3124e-03 ,2.9540e-03 ,1.5049e-03 /) - kao(:, 1, 2, 6) = (/ & - &1.6105e-03 ,1.7112e-03 ,1.7440e-03 ,1.7104e-03 ,1.6159e-03 ,1.4650e-03 , & - &1.2347e-03 ,8.8371e-04 ,2.8335e-04 /) - kao(:, 2, 2, 6) = (/ & - &1.9953e-03 ,2.1575e-03 ,2.2293e-03 ,2.1981e-03 ,2.0893e-03 ,1.9131e-03 , & - &1.6649e-03 ,1.2817e-03 ,4.3740e-04 /) - kao(:, 3, 2, 6) = (/ & - &2.4284e-03 ,2.6728e-03 ,2.7960e-03 ,2.7642e-03 ,2.6394e-03 ,2.4361e-03 , & - &2.1522e-03 ,1.6930e-03 ,6.3499e-04 /) - kao(:, 4, 2, 6) = (/ & - &2.9107e-03 ,3.2657e-03 ,3.4379e-03 ,3.4084e-03 ,3.2638e-03 ,3.0336e-03 , & - &2.6919e-03 ,2.1920e-03 ,8.6677e-04 /) - kao(:, 5, 2, 6) = (/ & - &3.4457e-03 ,3.9315e-03 ,4.1602e-03 ,4.1311e-03 ,3.9674e-03 ,3.6982e-03 , & - &3.2905e-03 ,2.7416e-03 ,1.1277e-03 /) - kao(:, 1, 3, 6) = (/ & - &2.5362e-03 ,2.4734e-03 ,2.3740e-03 ,2.2299e-03 ,2.0298e-03 ,1.7661e-03 , & - &1.4316e-03 ,9.7765e-04 ,1.9718e-04 /) - kao(:, 2, 3, 6) = (/ & - &3.1979e-03 ,3.1448e-03 ,3.0502e-03 ,2.8893e-03 ,2.6412e-03 ,2.3120e-03 , & - &1.8934e-03 ,1.3566e-03 ,3.0943e-04 /) - kao(:, 3, 3, 6) = (/ & - &3.9564e-03 ,3.9245e-03 ,3.8464e-03 ,3.6625e-03 ,3.3542e-03 ,2.9452e-03 , & - &2.4362e-03 ,1.8025e-03 ,4.5105e-04 /) - kao(:, 4, 3, 6) = (/ & - &4.8099e-03 ,4.8142e-03 ,4.7669e-03 ,4.5499e-03 ,4.1705e-03 ,3.6723e-03 , & - &3.0586e-03 ,2.2944e-03 ,6.1219e-04 /) - kao(:, 5, 3, 6) = (/ & - &5.7692e-03 ,5.8286e-03 ,5.8075e-03 ,5.5468e-03 ,5.0930e-03 ,4.4966e-03 , & - &3.7644e-03 ,2.8408e-03 ,8.0331e-04 /) - kao(:, 1, 4, 6) = (/ & - &3.9832e-03 ,3.6741e-03 ,3.3865e-03 ,3.0403e-03 ,2.6684e-03 ,2.2429e-03 , & - &1.7419e-03 ,1.1291e-03 ,1.3015e-04 /) - kao(:, 2, 4, 6) = (/ & - &5.1171e-03 ,4.7408e-03 ,4.3919e-03 ,3.9718e-03 ,3.5069e-03 ,2.9654e-03 , & - &2.3168e-03 ,1.5306e-03 ,2.0974e-04 /) - kao(:, 3, 4, 6) = (/ & - &6.4449e-03 ,5.9980e-03 ,5.5858e-03 ,5.0842e-03 ,4.5074e-03 ,3.8196e-03 , & - &2.9911e-03 ,2.0056e-03 ,3.1006e-04 /) - kao(:, 4, 4, 6) = (/ & - &7.9648e-03 ,7.4434e-03 ,6.9731e-03 ,6.3878e-03 ,5.6676e-03 ,4.8062e-03 , & - &3.7737e-03 ,2.5549e-03 ,4.2568e-04 /) - kao(:, 5, 4, 6) = (/ & - &9.7092e-03 ,9.1026e-03 ,8.5703e-03 ,7.8734e-03 ,6.9867e-03 ,5.9261e-03 , & - &4.6651e-03 ,3.1844e-03 ,5.6406e-04 /) - kao(:, 1, 5, 6) = (/ & - &5.7027e-03 ,5.1210e-03 ,4.6077e-03 ,4.0275e-03 ,3.4179e-03 ,2.7812e-03 , & - &2.0863e-03 ,1.2862e-03 ,7.8383e-05 /) - kao(:, 2, 5, 6) = (/ & - &7.4791e-03 ,6.7335e-03 ,6.0729e-03 ,5.3256e-03 ,4.5457e-03 ,3.7228e-03 , & - &2.8115e-03 ,1.7506e-03 ,1.3561e-04 /) - kao(:, 3, 5, 6) = (/ & - &9.5940e-03 ,8.6573e-03 ,7.8294e-03 ,6.8962e-03 ,5.9152e-03 ,4.8604e-03 , & - &3.6801e-03 ,2.2991e-03 ,2.0565e-04 /) - kao(:, 4, 5, 6) = (/ & - &1.2079e-02 ,1.0922e-02 ,9.8984e-03 ,8.7543e-03 ,7.5389e-03 ,6.1967e-03 , & - &4.6995e-03 ,2.9469e-03 ,2.9267e-04 /) - kao(:, 5, 5, 6) = (/ & - &1.4994e-02 ,1.3590e-02 ,1.2330e-02 ,1.0933e-02 ,9.4206e-03 ,7.7402e-03 , & - &5.8678e-03 ,3.6936e-03 ,3.9433e-04 /) - kao(:, 1, 6, 6) = (/ & - &7.5110e-03 ,6.6602e-03 ,5.8889e-03 ,5.0761e-03 ,4.2229e-03 ,3.3438e-03 , & - &2.4265e-03 ,1.4290e-03 ,6.0800e-05 /) - kao(:, 2, 6, 6) = (/ & - &1.0081e-02 ,8.9573e-03 ,7.9340e-03 ,6.8466e-03 ,5.7108e-03 ,4.5453e-03 , & - &3.3197e-03 ,1.9723e-03 ,8.3721e-05 /) - kao(:, 3, 6, 6) = (/ & - &1.3198e-02 ,1.1747e-02 ,1.0417e-02 ,9.0067e-03 ,7.5375e-03 ,6.0255e-03 , & - &4.4194e-03 ,2.6335e-03 ,1.2422e-04 /) - kao(:, 4, 6, 6) = (/ & - &1.6984e-02 ,1.5135e-02 ,1.3426e-02 ,1.1628e-02 ,9.7560e-03 ,7.8119e-03 , & - &5.7333e-03 ,3.4188e-03 ,1.8443e-04 /) - kao(:, 5, 6, 6) = (/ & - &2.1488e-02 ,1.9171e-02 ,1.7013e-02 ,1.4755e-02 ,1.2406e-02 ,9.9290e-03 , & - &7.2811e-03 ,4.3367e-03 ,2.5906e-04 /) - kao(:, 1, 7, 6) = (/ & - &1.0317e-02 ,9.0822e-03 ,7.9160e-03 ,6.7515e-03 ,5.5440e-03 ,4.3074e-03 , & - &3.0340e-03 ,1.7035e-03 ,6.0426e-05 /) - kao(:, 2, 7, 6) = (/ & - &1.4191e-02 ,1.2505e-02 ,1.0919e-02 ,9.3201e-03 ,7.6597e-03 ,5.9649e-03 , & - &4.2263e-03 ,2.3919e-03 ,8.0608e-05 /) - kao(:, 3, 7, 6) = (/ & - &1.9028e-02 ,1.6789e-02 ,1.4664e-02 ,1.2525e-02 ,1.0306e-02 ,8.0458e-03 , & - &5.7261e-03 ,3.2535e-03 ,1.0671e-04 /) - kao(:, 4, 7, 6) = (/ & - &2.5018e-02 ,2.2107e-02 ,1.9309e-02 ,1.6498e-02 ,1.3592e-02 ,1.0633e-02 , & - &7.5736e-03 ,4.3041e-03 ,1.3667e-04 /) - kao(:, 5, 7, 6) = (/ & - &3.2278e-02 ,2.8550e-02 ,2.4932e-02 ,2.1309e-02 ,1.7576e-02 ,1.3764e-02 , & - &9.7979e-03 ,5.5674e-03 ,1.7569e-04 /) - kao(:, 1, 8, 6) = (/ & - &1.6908e-02 ,1.4827e-02 ,1.2781e-02 ,1.0775e-02 ,8.7653e-03 ,6.7156e-03 , & - &4.6263e-03 ,2.4796e-03 ,7.2095e-05 /) - kao(:, 2, 8, 6) = (/ & - &2.3895e-02 ,2.0964e-02 ,1.8085e-02 ,1.5267e-02 ,1.2424e-02 ,9.5170e-03 , & - &6.5710e-03 ,3.5441e-03 ,9.6806e-05 /) - kao(:, 3, 8, 6) = (/ & - &3.2855e-02 ,2.8841e-02 ,2.4900e-02 ,2.1032e-02 ,1.7114e-02 ,1.3120e-02 , & - &9.0780e-03 ,4.9231e-03 ,1.2768e-04 /) - kao(:, 4, 8, 6) = (/ & - &4.4127e-02 ,3.8763e-02 ,3.3492e-02 ,2.8282e-02 ,2.3023e-02 ,1.7668e-02 , & - &1.2245e-02 ,6.6502e-03 ,1.6091e-04 /) - kao(:, 5, 8, 6) = (/ & - &5.7992e-02 ,5.0977e-02 ,4.4047e-02 ,3.7189e-02 ,3.0275e-02 ,2.3248e-02 , & - &1.6136e-02 ,8.7683e-03 ,1.9428e-04 /) - kao(:, 1, 9, 6) = (/ & - &5.1709e-02 ,4.5263e-02 ,3.8825e-02 ,3.2404e-02 ,2.6001e-02 ,1.9630e-02 , & - &1.3270e-02 ,6.8433e-03 ,1.6819e-04 /) - kao(:, 2, 9, 6) = (/ & - &7.5377e-02 ,6.5994e-02 ,5.6614e-02 ,4.7250e-02 ,3.7927e-02 ,2.8667e-02 , & - &1.9405e-02 ,1.0007e-02 ,2.0150e-04 /) - kao(:, 3, 9, 6) = (/ & - &1.0637e-01 ,9.3142e-02 ,7.9913e-02 ,6.6713e-02 ,5.3579e-02 ,4.0525e-02 , & - &2.7438e-02 ,1.4159e-02 ,2.5395e-04 /) - kao(:, 4, 9, 6) = (/ & - &1.4601e-01 ,1.2787e-01 ,1.0973e-01 ,9.1640e-02 ,7.3643e-02 ,5.5707e-02 , & - &3.7721e-02 ,1.9493e-02 ,2.9114e-04 /) - kao(:, 5, 9, 6) = (/ & - &1.9540e-01 ,1.7114e-01 ,1.4689e-01 ,1.2270e-01 ,9.8611e-02 ,7.4576e-02 , & - &5.0506e-02 ,2.6131e-02 ,3.2502e-04 /) - kao(:, 1,10, 6) = (/ & - &1.7908e-01 ,1.5672e-01 ,1.3434e-01 ,1.1197e-01 ,8.9592e-02 ,6.7243e-02 , & - &4.4903e-02 ,2.2650e-02 ,3.5407e-04 /) - kao(:, 2,10, 6) = (/ & - &2.6809e-01 ,2.3461e-01 ,2.0111e-01 ,1.6763e-01 ,1.3416e-01 ,1.0070e-01 , & - &6.7289e-02 ,3.4001e-02 ,4.2267e-04 /) - kao(:, 3,10, 6) = (/ & - &3.8962e-01 ,3.4094e-01 ,2.9228e-01 ,2.4365e-01 ,1.9501e-01 ,1.4639e-01 , & - &9.7852e-02 ,4.9496e-02 ,5.5217e-04 /) - kao(:, 4,10, 6) = (/ & - &5.4709e-01 ,4.7880e-01 ,4.1047e-01 ,3.4221e-01 ,2.7390e-01 ,2.0562e-01 , & - &1.3748e-01 ,6.9566e-02 ,6.7800e-04 /) - kao(:, 5,10, 6) = (/ & - &7.4383e-01 ,6.5097e-01 ,5.5813e-01 ,4.6528e-01 ,3.7246e-01 ,2.7966e-01 , & - &1.8702e-01 ,9.4633e-02 ,7.9930e-04 /) - kao(:, 1,11, 6) = (/ & - &2.6405e-01 ,2.3107e-01 ,1.9807e-01 ,1.6508e-01 ,1.3209e-01 ,9.9087e-02 , & - &6.6140e-02 ,3.3239e-02 ,4.6661e-04 /) - kao(:, 2,11, 6) = (/ & - &3.9885e-01 ,3.4898e-01 ,2.9917e-01 ,2.4935e-01 ,1.9952e-01 ,1.4970e-01 , & - &9.9938e-02 ,5.0287e-02 ,6.6831e-04 /) - kao(:, 3,11, 6) = (/ & - &5.8178e-01 ,5.0910e-01 ,4.3644e-01 ,3.6379e-01 ,2.9110e-01 ,2.1843e-01 , & - &1.4582e-01 ,7.3440e-02 ,7.3058e-04 /) - kao(:, 4,11, 6) = (/ & - &8.2081e-01 ,7.1832e-01 ,6.1577e-01 ,5.1330e-01 ,4.1077e-01 ,3.0826e-01 , & - &2.0583e-01 ,1.0374e-01 ,9.0801e-04 /) - kao(:, 5,11, 6) = (/ & - &1.1196e+00 ,9.7976e-01 ,8.3991e-01 ,7.0013e-01 ,5.6034e-01 ,4.2058e-01 , & - &2.8087e-01 ,1.4156e-01 ,1.1083e-03 /) - kao(:, 1,12, 6) = (/ & - &2.9667e-01 ,2.5960e-01 ,2.2251e-01 ,1.8545e-01 ,1.4837e-01 ,1.1135e-01 , & - &7.4300e-02 ,3.7344e-02 ,4.3166e-04 /) - kao(:, 2,12, 6) = (/ & - &4.4544e-01 ,3.8980e-01 ,3.3414e-01 ,2.7849e-01 ,2.2283e-01 ,1.6719e-01 , & - &1.1158e-01 ,5.6122e-02 ,7.5682e-04 /) - kao(:, 3,12, 6) = (/ & - &6.4877e-01 ,5.6770e-01 ,4.8669e-01 ,4.0564e-01 ,3.2461e-01 ,2.4355e-01 , & - &1.6257e-01 ,8.1850e-02 ,7.9167e-04 /) - kao(:, 4,12, 6) = (/ & - &9.1198e-01 ,7.9809e-01 ,6.8416e-01 ,5.7025e-01 ,4.5635e-01 ,3.4245e-01 , & - &2.2863e-01 ,1.1515e-01 ,9.9906e-04 /) - kao(:, 5,12, 6) = (/ & - &1.2467e+00 ,1.0910e+00 ,9.3529e-01 ,7.7959e-01 ,6.2391e-01 ,4.6827e-01 , & - &3.1271e-01 ,1.5753e-01 ,1.2003e-03 /) - kao(:, 1,13, 6) = (/ & - &2.7690e-01 ,2.4228e-01 ,2.0769e-01 ,1.7308e-01 ,1.3848e-01 ,1.0389e-01 , & - &6.9340e-02 ,3.4888e-02 ,4.3050e-04 /) - kao(:, 2,13, 6) = (/ & - &4.0226e-01 ,3.5198e-01 ,3.0172e-01 ,2.5145e-01 ,2.0123e-01 ,1.5101e-01 , & - &1.0081e-01 ,5.0783e-02 ,7.1649e-04 /) - kao(:, 3,13, 6) = (/ & - &5.7863e-01 ,5.0634e-01 ,4.3410e-01 ,3.6182e-01 ,2.8956e-01 ,2.1728e-01 , & - &1.4512e-01 ,7.3148e-02 ,7.7482e-04 /) - kao(:, 4,13, 6) = (/ & - &8.1324e-01 ,7.1165e-01 ,6.1013e-01 ,5.0851e-01 ,4.0696e-01 ,3.0541e-01 , & - &2.0404e-01 ,1.0287e-01 ,9.9392e-04 /) - kao(:, 5,13, 6) = (/ & - &1.1104e+00 ,9.7179e-01 ,8.3315e-01 ,6.9450e-01 ,5.5586e-01 ,4.1728e-01 , & - &2.7889e-01 ,1.4068e-01 ,1.1816e-03 /) - kao(:, 1, 1, 7) = (/ & - &3.5054e-03 ,3.5055e-03 ,3.5120e-03 ,3.3810e-03 ,3.1730e-03 ,2.8811e-03 , & - &2.4850e-03 ,1.7479e-03 ,1.1652e-03 /) - kao(:, 2, 1, 7) = (/ & - &4.3050e-03 ,4.3583e-03 ,4.3910e-03 ,4.2644e-03 ,4.0306e-03 ,3.6880e-03 , & - &3.2528e-03 ,2.5892e-03 ,1.6752e-03 /) - kao(:, 3, 1, 7) = (/ & - &5.1735e-03 ,5.2976e-03 ,5.3803e-03 ,5.2761e-03 ,5.0137e-03 ,4.6183e-03 , & - &4.1353e-03 ,3.5068e-03 ,2.2495e-03 /) - kao(:, 4, 1, 7) = (/ & - &6.1057e-03 ,6.3115e-03 ,6.4786e-03 ,6.4038e-03 ,6.1210e-03 ,5.6909e-03 , & - &5.1278e-03 ,4.5615e-03 ,2.9063e-03 /) - kao(:, 5, 1, 7) = (/ & - &7.0959e-03 ,7.4049e-03 ,7.6778e-03 ,7.6470e-03 ,7.3706e-03 ,6.8965e-03 , & - &6.2418e-03 ,5.7511e-03 ,3.6720e-03 /) - kao(:, 1, 2, 7) = (/ & - &4.4522e-03 ,4.2827e-03 ,4.1712e-03 ,3.9058e-03 ,3.5730e-03 ,3.1581e-03 , & - &2.6434e-03 ,1.9182e-03 ,8.6485e-04 /) - kao(:, 2, 2, 7) = (/ & - &5.5183e-03 ,5.3551e-03 ,5.2393e-03 ,4.9436e-03 ,4.5529e-03 ,4.0469e-03 , & - &3.4309e-03 ,2.6479e-03 ,1.2370e-03 /) - kao(:, 3, 2, 7) = (/ & - &6.6858e-03 ,6.5555e-03 ,6.4351e-03 ,6.1353e-03 ,5.6849e-03 ,5.0737e-03 , & - &4.3365e-03 ,3.4457e-03 ,1.6663e-03 /) - kao(:, 4, 2, 7) = (/ & - &7.9566e-03 ,7.8606e-03 ,7.7697e-03 ,7.4702e-03 ,6.9634e-03 ,6.2571e-03 , & - &5.3849e-03 ,4.3375e-03 ,2.1739e-03 /) - kao(:, 5, 2, 7) = (/ & - &9.3107e-03 ,9.2749e-03 ,9.2506e-03 ,8.9459e-03 ,8.3896e-03 ,7.5840e-03 , & - &6.5605e-03 ,5.3408e-03 ,2.7747e-03 /) - kao(:, 1, 3, 7) = (/ & - &7.1663e-03 ,6.5385e-03 ,6.0832e-03 ,5.5176e-03 ,4.8422e-03 ,4.1012e-03 , & - &3.2557e-03 ,2.2244e-03 ,5.9815e-04 /) - kao(:, 2, 3, 7) = (/ & - &9.0118e-03 ,8.2694e-03 ,7.7301e-03 ,7.0328e-03 ,6.2053e-03 ,5.2869e-03 , & - &4.2235e-03 ,2.9652e-03 ,8.5322e-04 /) - kao(:, 3, 3, 7) = (/ & - &1.1073e-02 ,1.0215e-02 ,9.5832e-03 ,8.7498e-03 ,7.7844e-03 ,6.6733e-03 , & - &5.3588e-03 ,3.8104e-03 ,1.1597e-03 /) - kao(:, 4, 3, 7) = (/ & - &1.3336e-02 ,1.2373e-02 ,1.1642e-02 ,1.0696e-02 ,9.5807e-03 ,8.2482e-03 , & - &6.6726e-03 ,4.7891e-03 ,1.5317e-03 /) - kao(:, 5, 3, 7) = (/ & - &1.5766e-02 ,1.4727e-02 ,1.3917e-02 ,1.2876e-02 ,1.1585e-02 ,1.0016e-02 , & - &8.1535e-03 ,5.8982e-03 ,1.9785e-03 /) - kao(:, 1, 4, 7) = (/ & - &1.1443e-02 ,1.0194e-02 ,9.0847e-03 ,8.0229e-03 ,6.8443e-03 ,5.5702e-03 , & - &4.2183e-03 ,2.6813e-03 ,4.0030e-04 /) - kao(:, 2, 4, 7) = (/ & - &1.4659e-02 ,1.3095e-02 ,1.1714e-02 ,1.0375e-02 ,8.8664e-03 ,7.2483e-03 , & - &5.5253e-03 ,3.5568e-03 ,5.7754e-04 /) - kao(:, 3, 4, 7) = (/ & - &1.8306e-02 ,1.6401e-02 ,1.4719e-02 ,1.3058e-02 ,1.1190e-02 ,9.2063e-03 , & - &7.0626e-03 ,4.5942e-03 ,7.9824e-04 /) - kao(:, 4, 4, 7) = (/ & - &2.2363e-02 ,2.0101e-02 ,1.8107e-02 ,1.6087e-02 ,1.3850e-02 ,1.1470e-02 , & - &8.8334e-03 ,5.7997e-03 ,1.0688e-03 /) - kao(:, 5, 4, 7) = (/ & - &2.6741e-02 ,2.4136e-02 ,2.1831e-02 ,1.9473e-02 ,1.6867e-02 ,1.4029e-02 , & - &1.0846e-02 ,7.1614e-03 ,1.3988e-03 /) - kao(:, 1, 5, 7) = (/ & - &1.6600e-02 ,1.4668e-02 ,1.2778e-02 ,1.1029e-02 ,9.2361e-03 ,7.3333e-03 , & - &5.3444e-03 ,3.2124e-03 ,2.6040e-04 /) - kao(:, 2, 5, 7) = (/ & - &2.1709e-02 ,1.9200e-02 ,1.6777e-02 ,1.4511e-02 ,1.2172e-02 ,9.6744e-03 , & - &7.0766e-03 ,4.2987e-03 ,3.8620e-04 /) - kao(:, 3, 5, 7) = (/ & - &2.7589e-02 ,2.4430e-02 ,2.1405e-02 ,1.8550e-02 ,1.5579e-02 ,1.2414e-02 , & - &9.1361e-03 ,5.5941e-03 ,5.4726e-04 /) - kao(:, 4, 5, 7) = (/ & - &3.4183e-02 ,3.0324e-02 ,2.6641e-02 ,2.3153e-02 ,1.9480e-02 ,1.5601e-02 , & - &1.1542e-02 ,7.1098e-03 ,7.4652e-04 /) - kao(:, 5, 5, 7) = (/ & - &4.1421e-02 ,3.6823e-02 ,3.2447e-02 ,2.8275e-02 ,2.3873e-02 ,1.9232e-02 , & - &1.4297e-02 ,8.8472e-03 ,9.9177e-04 /) - kao(:, 1, 6, 7) = (/ & - &2.2041e-02 ,1.9394e-02 ,1.6757e-02 ,1.4215e-02 ,1.1736e-02 ,9.1749e-03 , & - &6.5141e-03 ,3.7310e-03 ,1.4404e-04 /) - kao(:, 2, 6, 7) = (/ & - &2.9498e-02 ,2.5961e-02 ,2.2459e-02 ,1.9104e-02 ,1.5796e-02 ,1.2359e-02 , & - &8.7857e-03 ,5.0673e-03 ,2.3466e-04 /) - kao(:, 3, 6, 7) = (/ & - &3.8260e-02 ,3.3683e-02 ,2.9196e-02 ,2.4887e-02 ,2.0608e-02 ,1.6142e-02 , & - &1.1503e-02 ,6.6775e-03 ,3.4879e-04 /) - kao(:, 4, 6, 7) = (/ & - &4.8196e-02 ,4.2468e-02 ,3.6884e-02 ,3.1502e-02 ,2.6137e-02 ,2.0520e-02 , & - &1.4704e-02 ,8.5847e-03 ,4.9990e-04 /) - kao(:, 5, 6, 7) = (/ & - &5.9282e-02 ,5.2285e-02 ,4.5513e-02 ,3.8965e-02 ,3.2393e-02 ,2.5526e-02 , & - &1.8401e-02 ,1.0794e-02 ,6.8674e-04 /) - kao(:, 1, 7, 7) = (/ & - &3.0340e-02 ,2.6632e-02 ,2.2911e-02 ,1.9238e-02 ,1.5651e-02 ,1.2078e-02 , & - &8.4116e-03 ,4.6225e-03 ,1.1044e-04 /) - kao(:, 2, 7, 7) = (/ & - &4.1630e-02 ,3.6541e-02 ,3.1448e-02 ,2.6441e-02 ,2.1565e-02 ,1.6662e-02 , & - &1.1608e-02 ,6.3979e-03 ,1.5103e-04 /) - kao(:, 3, 7, 7) = (/ & - &5.5141e-02 ,4.8404e-02 ,4.1697e-02 ,3.5120e-02 ,2.8696e-02 ,2.2204e-02 , & - &1.5482e-02 ,8.5690e-03 ,2.0480e-04 /) - kao(:, 4, 7, 7) = (/ & - &7.0797e-02 ,6.2144e-02 ,5.3596e-02 ,4.5212e-02 ,3.6995e-02 ,2.8664e-02 , & - &2.0039e-02 ,1.1163e-02 ,2.9866e-04 /) - kao(:, 5, 7, 7) = (/ & - &8.8459e-02 ,7.7674e-02 ,6.7088e-02 ,5.6677e-02 ,4.6470e-02 ,3.6087e-02 , & - &2.5332e-02 ,1.4195e-02 ,4.2372e-04 /) - kao(:, 1, 8, 7) = (/ & - &4.9601e-02 ,4.3472e-02 ,3.7321e-02 ,3.1177e-02 ,2.5072e-02 ,1.9045e-02 , & - &1.3035e-02 ,6.9120e-03 ,1.2554e-04 /) - kao(:, 2, 8, 7) = (/ & - &6.9873e-02 ,6.1229e-02 ,5.2577e-02 ,4.3926e-02 ,3.5352e-02 ,2.6911e-02 , & - &1.8460e-02 ,9.7927e-03 ,1.5143e-04 /) - kao(:, 3, 8, 7) = (/ & - &9.4645e-02 ,8.2931e-02 ,7.1217e-02 ,5.9530e-02 ,4.7979e-02 ,3.6597e-02 , & - &2.5135e-02 ,1.3350e-02 ,1.8982e-04 /) - kao(:, 4, 8, 7) = (/ & - &1.2398e-01 ,1.0863e-01 ,9.3295e-02 ,7.8049e-02 ,6.2983e-02 ,4.8099e-02 , & - &3.3072e-02 ,1.7624e-02 ,2.4338e-04 /) - kao(:, 5, 8, 7) = (/ & - &1.5756e-01 ,1.3808e-01 ,1.1863e-01 ,9.9354e-02 ,8.0265e-02 ,6.1390e-02 , & - &4.2297e-02 ,2.2655e-02 ,3.0934e-04 /) - kao(:, 1, 9, 7) = (/ & - &1.5112e-01 ,1.3227e-01 ,1.1344e-01 ,9.4596e-02 ,7.5748e-02 ,5.6892e-02 , & - &3.8080e-02 ,1.9401e-02 ,2.5169e-04 /) - kao(:, 2, 9, 7) = (/ & - &2.1904e-01 ,1.9173e-01 ,1.6442e-01 ,1.3710e-01 ,1.0978e-01 ,8.2457e-02 , & - &5.5213e-02 ,2.8220e-02 ,3.2207e-04 /) - kao(:, 3, 9, 7) = (/ & - &3.0409e-01 ,2.6618e-01 ,2.2825e-01 ,1.9033e-01 ,1.5240e-01 ,1.1448e-01 , & - &7.6724e-02 ,3.9326e-02 ,3.9043e-04 /) - kao(:, 4, 9, 7) = (/ & - &4.0691e-01 ,3.5618e-01 ,3.0544e-01 ,2.5467e-01 ,2.0393e-01 ,1.5326e-01 , & - &1.0281e-01 ,5.2796e-02 ,4.7191e-04 /) - kao(:, 5, 9, 7) = (/ & - &5.2694e-01 ,4.6123e-01 ,3.9556e-01 ,3.2985e-01 ,2.6417e-01 ,1.9865e-01 , & - &1.3342e-01 ,6.8629e-02 ,5.3966e-04 /) - kao(:, 1,10, 7) = (/ & - &5.2400e-01 ,4.5853e-01 ,3.9306e-01 ,3.2760e-01 ,2.6216e-01 ,1.9669e-01 , & - &1.3123e-01 ,6.5752e-02 ,5.0343e-04 /) - kao(:, 2,10, 7) = (/ & - &7.8161e-01 ,6.8400e-01 ,5.8634e-01 ,4.8867e-01 ,3.9103e-01 ,2.9337e-01 , & - &1.9570e-01 ,9.8059e-02 ,7.7212e-04 /) - kao(:, 3,10, 7) = (/ & - &1.1108e+00 ,9.7208e-01 ,8.3335e-01 ,6.9453e-01 ,5.5575e-01 ,4.1693e-01 , & - &2.7814e-01 ,1.3935e-01 ,8.3303e-04 /) - kao(:, 4,10, 7) = (/ & - &1.5159e+00 ,1.3265e+00 ,1.1372e+00 ,9.4781e-01 ,7.5840e-01 ,5.6900e-01 , & - &3.7960e-01 ,1.9025e-01 ,1.0516e-03 /) - kao(:, 5,10, 7) = (/ & - &2.0008e+00 ,1.7509e+00 ,1.5009e+00 ,1.2510e+00 ,1.0010e+00 ,7.5106e-01 , & - &5.0105e-01 ,2.5132e-01 ,1.2795e-03 /) - kao(:, 1,11, 7) = (/ & - &7.6934e-01 ,6.7322e-01 ,5.7711e-01 ,4.8095e-01 ,3.8483e-01 ,2.8868e-01 , & - &1.9254e-01 ,9.6383e-02 ,4.1213e-04 /) - kao(:, 2,11, 7) = (/ & - &1.1531e+00 ,1.0090e+00 ,8.6492e-01 ,7.2086e-01 ,5.7680e-01 ,4.3268e-01 , & - &2.8857e-01 ,1.4445e-01 ,7.8643e-04 /) - kao(:, 3,11, 7) = (/ & - &1.6479e+00 ,1.4420e+00 ,1.2361e+00 ,1.0302e+00 ,8.2427e-01 ,6.1836e-01 , & - &4.1243e-01 ,2.0646e-01 ,1.3424e-03 /) - kao(:, 4,11, 7) = (/ & - &2.2624e+00 ,1.9796e+00 ,1.6970e+00 ,1.4143e+00 ,1.1316e+00 ,8.4892e-01 , & - &5.6619e-01 ,2.8348e-01 ,1.4044e-03 /) - kao(:, 5,11, 7) = (/ & - &3.0074e+00 ,2.6315e+00 ,2.2558e+00 ,1.8800e+00 ,1.5042e+00 ,1.1285e+00 , & - &7.5266e-01 ,3.7695e-01 ,1.6947e-03 /) - kao(:, 1,12, 7) = (/ & - &8.4478e-01 ,7.3926e-01 ,6.3371e-01 ,5.2813e-01 ,4.2255e-01 ,3.1696e-01 , & - &2.1141e-01 ,1.0578e-01 ,4.0897e-04 /) - kao(:, 2,12, 7) = (/ & - &1.2687e+00 ,1.1101e+00 ,9.5161e-01 ,7.9307e-01 ,6.3449e-01 ,4.7596e-01 , & - &3.1742e-01 ,1.5884e-01 ,7.3572e-04 /) - kao(:, 3,12, 7) = (/ & - &1.8247e+00 ,1.5966e+00 ,1.3686e+00 ,1.1406e+00 ,9.1261e-01 ,6.8459e-01 , & - &4.5656e-01 ,2.2852e-01 ,1.3876e-03 /) - kao(:, 4,12, 7) = (/ & - &2.5294e+00 ,2.2134e+00 ,1.8973e+00 ,1.5812e+00 ,1.2652e+00 ,9.4906e-01 , & - &6.3294e-01 ,3.1685e-01 ,1.6774e-03 /) - kao(:, 5,12, 7) = (/ & - &3.3840e+00 ,2.9611e+00 ,2.5383e+00 ,2.1154e+00 ,1.6926e+00 ,1.2697e+00 , & - &8.4679e-01 ,4.2403e-01 ,1.9227e-03 /) - kao(:, 1,13, 7) = (/ & - &7.4992e-01 ,6.5626e-01 ,5.6252e-01 ,4.6882e-01 ,3.7512e-01 ,2.8140e-01 , & - &1.8768e-01 ,9.3938e-02 ,4.2556e-04 /) - kao(:, 2,13, 7) = (/ & - &1.1304e+00 ,9.8913e-01 ,8.4793e-01 ,7.0671e-01 ,5.6541e-01 ,4.2417e-01 , & - &2.8288e-01 ,1.4159e-01 ,7.8986e-04 /) - kao(:, 3,13, 7) = (/ & - &1.6343e+00 ,1.4300e+00 ,1.2259e+00 ,1.0217e+00 ,8.1745e-01 ,6.1321e-01 , & - &4.0897e-01 ,2.0475e-01 ,1.4019e-03 /) - kao(:, 4,13, 7) = (/ & - &2.2667e+00 ,1.9834e+00 ,1.7002e+00 ,1.4170e+00 ,1.1337e+00 ,8.5047e-01 , & - &5.6722e-01 ,2.8408e-01 ,1.6857e-03 /) - kao(:, 5,13, 7) = (/ & - &3.0450e+00 ,2.6646e+00 ,2.2841e+00 ,1.9036e+00 ,1.5231e+00 ,1.1426e+00 , & - &7.6204e-01 ,3.8179e-01 ,1.9578e-03 /) - kao(:, 1, 1, 8) = (/ & - &7.5530e-03 ,7.1946e-03 ,6.9309e-03 ,6.6476e-03 ,6.1286e-03 ,5.5188e-03 , & - &4.8784e-03 ,4.0369e-03 ,3.2329e-03 /) - kao(:, 2, 1, 8) = (/ & - &9.1868e-03 ,8.8285e-03 ,8.6011e-03 ,8.3060e-03 ,7.7227e-03 ,7.0815e-03 , & - &6.4738e-03 ,5.8694e-03 ,4.4599e-03 /) - kao(:, 3, 1, 8) = (/ & - &1.0993e-02 ,1.0661e-02 ,1.0487e-02 ,1.0178e-02 ,9.5750e-03 ,8.9143e-03 , & - &8.3359e-03 ,7.9019e-03 ,5.9682e-03 /) - kao(:, 4, 1, 8) = (/ & - &1.2929e-02 ,1.2692e-02 ,1.2580e-02 ,1.2285e-02 ,1.1693e-02 ,1.1035e-02 , & - &1.0548e-02 ,1.0225e-02 ,7.8210e-03 /) - kao(:, 5, 1, 8) = (/ & - &1.4992e-02 ,1.4924e-02 ,1.4888e-02 ,1.4659e-02 ,1.4068e-02 ,1.3474e-02 , & - &1.3107e-02 ,1.2867e-02 ,1.0020e-02 /) - kao(:, 1, 2, 8) = (/ & - &1.0207e-02 ,9.4797e-03 ,8.8085e-03 ,8.2309e-03 ,7.4348e-03 ,6.4679e-03 , & - &5.3282e-03 ,4.0056e-03 ,2.5229e-03 /) - kao(:, 2, 2, 8) = (/ & - &1.2558e-02 ,1.1748e-02 ,1.1002e-02 ,1.0338e-02 ,9.3997e-03 ,8.2648e-03 , & - &6.9317e-03 ,5.5570e-03 ,3.5029e-03 /) - kao(:, 3, 2, 8) = (/ & - &1.5167e-02 ,1.4277e-02 ,1.3509e-02 ,1.2727e-02 ,1.1653e-02 ,1.0352e-02 , & - &8.8205e-03 ,7.4037e-03 ,4.7140e-03 /) - kao(:, 4, 2, 8) = (/ & - &1.7986e-02 ,1.7073e-02 ,1.6287e-02 ,1.5417e-02 ,1.4234e-02 ,1.2722e-02 , & - &1.1029e-02 ,9.5450e-03 ,6.1941e-03 /) - kao(:, 5, 2, 8) = (/ & - &2.1016e-02 ,2.0104e-02 ,1.9317e-02 ,1.8415e-02 ,1.7125e-02 ,1.5397e-02 , & - &1.3573e-02 ,1.2029e-02 ,7.9674e-03 /) - kao(:, 1, 3, 8) = (/ & - &1.7495e-02 ,1.5793e-02 ,1.4039e-02 ,1.2465e-02 ,1.0907e-02 ,9.1072e-03 , & - &7.1058e-03 ,4.8343e-03 ,1.7832e-03 /) - kao(:, 2, 3, 8) = (/ & - &2.1893e-02 ,1.9841e-02 ,1.7709e-02 ,1.5801e-02 ,1.3894e-02 ,1.1662e-02 , & - &9.2038e-03 ,6.3817e-03 ,2.5128e-03 /) - kao(:, 3, 3, 8) = (/ & - &2.6790e-02 ,2.4372e-02 ,2.1871e-02 ,1.9635e-02 ,1.7311e-02 ,1.4624e-02 , & - &1.1658e-02 ,8.2109e-03 ,3.4348e-03 /) - kao(:, 4, 3, 8) = (/ & - &3.2142e-02 ,2.9358e-02 ,2.6490e-02 ,2.3921e-02 ,2.1182e-02 ,1.8026e-02 , & - &1.4487e-02 ,1.0373e-02 ,4.5646e-03 /) - kao(:, 5, 3, 8) = (/ & - &3.7933e-02 ,3.4749e-02 ,3.1541e-02 ,2.8628e-02 ,2.5501e-02 ,2.1864e-02 , & - &1.7709e-02 ,1.2883e-02 ,5.9131e-03 /) - kao(:, 1, 4, 8) = (/ & - &2.9550e-02 ,2.6227e-02 ,2.2910e-02 ,1.9604e-02 ,1.6469e-02 ,1.3339e-02 , & - &9.9415e-03 ,6.2262e-03 ,1.2135e-03 /) - kao(:, 2, 4, 8) = (/ & - &3.7687e-02 ,3.3528e-02 ,2.9343e-02 ,2.5186e-02 ,2.1249e-02 ,1.7292e-02 , & - &1.2959e-02 ,8.2307e-03 ,1.7374e-03 /) - kao(:, 3, 4, 8) = (/ & - &4.6817e-02 ,4.1770e-02 ,3.6634e-02 ,3.1558e-02 ,2.6759e-02 ,2.1861e-02 , & - &1.6492e-02 ,1.0607e-02 ,2.4118e-03 /) - kao(:, 4, 4, 8) = (/ & - &5.6963e-02 ,5.0934e-02 ,4.4739e-02 ,3.8692e-02 ,3.2979e-02 ,2.7058e-02 , & - &2.0566e-02 ,1.3387e-02 ,3.2525e-03 /) - kao(:, 5, 4, 8) = (/ & - &6.8137e-02 ,6.0987e-02 ,5.3660e-02 ,4.6589e-02 ,3.9864e-02 ,3.2872e-02 , & - &2.5218e-02 ,1.6596e-02 ,4.2777e-03 /) - kao(:, 1, 5, 8) = (/ & - &4.4958e-02 ,3.9602e-02 ,3.4298e-02 ,2.8957e-02 ,2.3691e-02 ,1.8601e-02 , & - &1.3441e-02 ,7.9068e-03 ,8.1517e-04 /) - kao(:, 2, 5, 8) = (/ & - &5.8476e-02 ,5.1578e-02 ,4.4743e-02 ,3.7815e-02 ,3.1045e-02 ,2.4482e-02 , & - &1.7770e-02 ,1.0541e-02 ,1.1885e-03 /) - kao(:, 3, 5, 8) = (/ & - &7.3906e-02 ,6.5268e-02 ,5.6679e-02 ,4.8013e-02 ,3.9537e-02 ,3.1318e-02 , & - &2.2852e-02 ,1.3697e-02 ,1.6746e-03 /) - kao(:, 4, 5, 8) = (/ & - &9.1296e-02 ,8.0739e-02 ,7.0175e-02 ,5.9533e-02 ,4.9168e-02 ,3.9100e-02 , & - &2.8676e-02 ,1.7397e-02 ,2.2909e-03 /) - kao(:, 5, 5, 8) = (/ & - &1.1069e-01 ,9.7986e-02 ,8.5202e-02 ,7.2388e-02 ,5.9975e-02 ,4.7864e-02 , & - &3.5291e-02 ,2.1668e-02 ,3.0530e-03 /) - kao(:, 1, 6, 8) = (/ & - &6.2124e-02 ,5.4544e-02 ,4.6999e-02 ,3.9470e-02 ,3.1923e-02 ,2.4497e-02 , & - &1.7234e-02 ,9.7062e-03 ,5.1266e-04 /) - kao(:, 2, 6, 8) = (/ & - &8.2639e-02 ,7.2604e-02 ,6.2611e-02 ,5.2626e-02 ,4.2613e-02 ,3.2833e-02 , & - &2.3213e-02 ,1.3144e-02 ,7.8429e-04 /) - kao(:, 3, 6, 8) = (/ & - &1.0657e-01 ,9.3700e-02 ,8.0879e-02 ,6.8013e-02 ,5.5195e-02 ,4.2665e-02 , & - &3.0306e-02 ,1.7290e-02 ,1.1388e-03 /) - kao(:, 4, 6, 8) = (/ & - &1.3398e-01 ,1.1789e-01 ,1.0183e-01 ,8.5694e-02 ,6.9665e-02 ,5.3995e-02 , & - &3.8486e-02 ,2.2145e-02 ,1.5829e-03 /) - kao(:, 5, 6, 8) = (/ & - &1.6490e-01 ,1.4520e-01 ,1.2544e-01 ,1.0568e-01 ,8.6025e-02 ,6.6861e-02 , & - &4.7818e-02 ,2.7758e-02 ,2.1408e-03 /) - kao(:, 1, 7, 8) = (/ & - &8.8474e-02 ,7.7539e-02 ,6.6627e-02 ,5.5731e-02 ,4.4842e-02 ,3.3990e-02 , & - &2.3276e-02 ,1.2620e-02 ,2.5937e-04 /) - kao(:, 2, 7, 8) = (/ & - &1.2057e-01 ,1.0571e-01 ,9.0876e-02 ,7.6061e-02 ,6.1253e-02 ,4.6466e-02 , & - &3.1963e-02 ,1.7441e-02 ,4.2731e-04 /) - kao(:, 3, 7, 8) = (/ & - &1.5880e-01 ,1.3927e-01 ,1.1980e-01 ,1.0034e-01 ,8.0808e-02 ,6.1423e-02 , & - &4.2427e-02 ,2.3279e-02 ,6.8413e-04 /) - kao(:, 4, 7, 8) = (/ & - &2.0345e-01 ,1.7853e-01 ,1.5363e-01 ,1.2871e-01 ,1.0372e-01 ,7.9011e-02 , & - &5.4743e-02 ,3.0170e-02 ,1.0214e-03 /) - kao(:, 5, 7, 8) = (/ & - &2.5461e-01 ,2.2346e-01 ,1.9234e-01 ,1.6117e-01 ,1.3002e-01 ,9.9184e-02 , & - &6.8901e-02 ,3.8181e-02 ,1.4552e-03 /) - kao(:, 1, 8, 8) = (/ & - &1.4868e-01 ,1.3017e-01 ,1.1167e-01 ,9.3201e-02 ,7.4739e-02 ,5.6278e-02 , & - &3.7905e-02 ,1.9693e-02 ,2.2804e-04 /) - kao(:, 2, 8, 8) = (/ & - &2.0798e-01 ,1.8213e-01 ,1.5630e-01 ,1.3048e-01 ,1.0468e-01 ,7.8891e-02 , & - &5.3152e-02 ,2.7778e-02 ,2.9739e-04 /) - kao(:, 3, 8, 8) = (/ & - &2.8017e-01 ,2.4539e-01 ,2.1065e-01 ,1.7590e-01 ,1.4119e-01 ,1.0644e-01 , & - &7.1779e-02 ,3.7725e-02 ,3.8946e-04 /) - kao(:, 4, 8, 8) = (/ & - &3.6604e-01 ,3.2068e-01 ,2.7532e-01 ,2.2999e-01 ,1.8464e-01 ,1.3919e-01 , & - &9.4095e-02 ,4.9659e-02 ,5.6194e-04 /) - kao(:, 5, 8, 8) = (/ & - &4.6634e-01 ,4.0858e-01 ,3.5083e-01 ,2.9310e-01 ,2.3536e-01 ,1.7756e-01 , & - &1.2024e-01 ,6.3667e-02 ,8.0698e-04 /) - kao(:, 1, 9, 8) = (/ & - &4.6269e-01 ,4.0493e-01 ,3.4715e-01 ,2.8935e-01 ,2.3157e-01 ,1.7382e-01 , & - &1.1609e-01 ,5.8382e-02 ,3.9623e-04 /) - kao(:, 2, 9, 8) = (/ & - &6.6628e-01 ,5.8309e-01 ,4.9991e-01 ,4.1673e-01 ,3.3358e-01 ,2.5043e-01 , & - &1.6730e-01 ,8.4243e-02 ,5.2033e-04 /) - kao(:, 3, 9, 8) = (/ & - &9.1981e-01 ,8.0501e-01 ,6.9024e-01 ,5.7543e-01 ,4.6067e-01 ,3.4594e-01 , & - &2.3120e-01 ,1.1646e-01 ,6.1848e-04 /) - kao(:, 4, 9, 8) = (/ & - &1.2275e+00 ,1.0743e+00 ,9.2117e-01 ,7.6798e-01 ,6.1489e-01 ,4.6180e-01 , & - &3.0869e-01 ,1.5554e-01 ,7.6432e-04 /) - kao(:, 5, 9, 8) = (/ & - &1.5931e+00 ,1.3944e+00 ,1.1956e+00 ,9.9699e-01 ,7.9825e-01 ,5.9958e-01 , & - &4.0095e-01 ,2.0227e-01 ,9.3678e-04 /) - kao(:, 1,10, 8) = (/ & - &1.6306e+00 ,1.4267e+00 ,1.2230e+00 ,1.0192e+00 ,8.1547e-01 ,6.1164e-01 , & - &4.0787e-01 ,2.0413e-01 ,4.5853e-04 /) - kao(:, 2,10, 8) = (/ & - &2.4126e+00 ,2.1111e+00 ,1.8096e+00 ,1.5081e+00 ,1.2066e+00 ,9.0513e-01 , & - &6.0364e-01 ,3.0217e-01 ,8.3201e-04 /) - kao(:, 3,10, 8) = (/ & - &3.4093e+00 ,2.9833e+00 ,2.5573e+00 ,2.1313e+00 ,1.7053e+00 ,1.2792e+00 , & - &8.5320e-01 ,4.2724e-01 ,1.5974e-03 /) - kao(:, 4,10, 8) = (/ & - &4.6433e+00 ,4.0630e+00 ,3.4826e+00 ,2.9025e+00 ,2.3226e+00 ,1.7423e+00 , & - &1.1621e+00 ,5.8201e-01 ,1.5962e-03 /) - kao(:, 5,10, 8) = (/ & - &6.1277e+00 ,5.3619e+00 ,4.5964e+00 ,3.8308e+00 ,3.0651e+00 ,2.2994e+00 , & - &1.5338e+00 ,7.6843e-01 ,2.0260e-03 /) - kao(:, 1,11, 8) = (/ & - &2.4162e+00 ,2.1143e+00 ,1.8124e+00 ,1.5103e+00 ,1.2083e+00 ,9.0631e-01 , & - &6.0429e-01 ,3.0233e-01 ,6.1607e-04 /) - kao(:, 2,11, 8) = (/ & - &3.5951e+00 ,3.1458e+00 ,2.6963e+00 ,2.2470e+00 ,1.7978e+00 ,1.3484e+00 , & - &8.9917e-01 ,4.4993e-01 ,6.5176e-04 /) - kao(:, 3,11, 8) = (/ & - &5.1060e+00 ,4.4678e+00 ,3.8297e+00 ,3.1915e+00 ,2.5535e+00 ,1.9153e+00 , & - &1.2772e+00 ,6.3920e-01 ,1.2930e-03 /) - kao(:, 4,11, 8) = (/ & - &6.9828e+00 ,6.1098e+00 ,5.2373e+00 ,4.3645e+00 ,3.4923e+00 ,2.6195e+00 , & - &1.7469e+00 ,8.7439e-01 ,2.6451e-03 /) - kao(:, 5,11, 8) = (/ & - &9.2372e+00 ,8.0825e+00 ,6.9284e+00 ,5.7745e+00 ,4.6202e+00 ,3.4655e+00 , & - &2.3113e+00 ,1.1571e+00 ,3.2091e-03 /) - kao(:, 1,12, 8) = (/ & - &2.6551e+00 ,2.3231e+00 ,1.9913e+00 ,1.6595e+00 ,1.3276e+00 ,9.9570e-01 , & - &6.6396e-01 ,3.3215e-01 ,5.7595e-04 /) - kao(:, 2,12, 8) = (/ & - &3.9875e+00 ,3.4892e+00 ,2.9906e+00 ,2.4922e+00 ,1.9940e+00 ,1.4956e+00 , & - &9.9727e-01 ,4.9897e-01 ,7.2773e-04 /) - kao(:, 3,12, 8) = (/ & - &5.6951e+00 ,4.9832e+00 ,4.2714e+00 ,3.5598e+00 ,2.8480e+00 ,2.1362e+00 , & - &1.4245e+00 ,7.1282e-01 ,1.1732e-03 /) - kao(:, 4,12, 8) = (/ & - &7.8078e+00 ,6.8322e+00 ,5.8562e+00 ,4.8804e+00 ,3.9048e+00 ,2.9289e+00 , & - &1.9532e+00 ,9.7758e-01 ,2.5629e-03 /) - kao(:, 5,12, 8) = (/ & - &1.0362e+01 ,9.0671e+00 ,7.7724e+00 ,6.4775e+00 ,5.1823e+00 ,3.8873e+00 , & - &2.5926e+00 ,1.2977e+00 ,3.8105e-03 /) - kao(:, 1,13, 8) = (/ & - &2.3258e+00 ,2.0350e+00 ,1.7444e+00 ,1.4537e+00 ,1.1630e+00 ,8.7226e-01 , & - &5.8161e-01 ,2.9098e-01 ,5.9908e-04 /) - kao(:, 2,13, 8) = (/ & - &3.5360e+00 ,3.0938e+00 ,2.6520e+00 ,2.2101e+00 ,1.7681e+00 ,1.3262e+00 , & - &8.8435e-01 ,4.4250e-01 ,8.1555e-04 /) - kao(:, 3,13, 8) = (/ & - &5.0896e+00 ,4.4536e+00 ,3.8175e+00 ,3.1814e+00 ,2.5452e+00 ,1.9091e+00 , & - &1.2732e+00 ,6.3712e-01 ,1.2640e-03 /) - kao(:, 4,13, 8) = (/ & - &7.0210e+00 ,6.1435e+00 ,5.2660e+00 ,4.3886e+00 ,3.5112e+00 ,2.6338e+00 , & - &1.7565e+00 ,8.7919e-01 ,2.6701e-03 /) - kao(:, 5,13, 8) = (/ & - &9.3671e+00 ,8.1963e+00 ,7.0260e+00 ,5.8554e+00 ,4.6849e+00 ,3.5142e+00 , & - &2.3437e+00 ,1.1734e+00 ,3.9606e-03 /) - kao(:, 1, 1, 9) = (/ & - &1.7557e-02 ,1.6098e-02 ,1.5252e-02 ,1.4591e-02 ,1.4194e-02 ,1.3841e-02 , & - &1.3213e-02 ,1.1760e-02 ,1.0941e-02 /) - kao(:, 2, 1, 9) = (/ & - &2.1322e-02 ,1.9727e-02 ,1.8932e-02 ,1.8315e-02 ,1.8048e-02 ,1.7757e-02 , & - &1.7105e-02 ,1.5377e-02 ,1.4897e-02 /) - kao(:, 3, 1, 9) = (/ & - &2.5364e-02 ,2.3730e-02 ,2.3058e-02 ,2.2569e-02 ,2.2483e-02 ,2.2337e-02 , & - &2.1647e-02 ,1.9659e-02 ,1.9740e-02 /) - kao(:, 4, 1, 9) = (/ & - &2.9651e-02 ,2.8091e-02 ,2.7567e-02 ,2.7373e-02 ,2.7544e-02 ,2.7572e-02 , & - &2.6885e-02 ,2.4698e-02 ,2.5506e-02 /) - kao(:, 5, 1, 9) = (/ & - &3.4147e-02 ,3.2801e-02 ,3.2509e-02 ,3.2696e-02 ,3.3242e-02 ,3.3466e-02 , & - &3.2763e-02 ,3.0530e-02 ,3.2414e-02 /) - kao(:, 1, 2, 9) = (/ & - &2.4912e-02 ,2.2331e-02 ,2.0288e-02 ,1.8446e-02 ,1.6840e-02 ,1.5437e-02 , & - &1.4050e-02 ,1.2105e-02 ,9.2979e-03 /) - kao(:, 2, 2, 9) = (/ & - &3.0564e-02 ,2.7515e-02 ,2.5261e-02 ,2.3219e-02 ,2.1400e-02 ,1.9828e-02 , & - &1.8282e-02 ,1.5938e-02 ,1.2847e-02 /) - kao(:, 3, 2, 9) = (/ & - &3.6716e-02 ,3.3250e-02 ,3.0813e-02 ,2.8576e-02 ,2.6652e-02 ,2.4969e-02 , & - &2.3242e-02 ,2.0434e-02 ,1.7255e-02 /) - kao(:, 4, 2, 9) = (/ & - &4.3274e-02 ,3.9470e-02 ,3.6945e-02 ,3.4546e-02 ,3.2567e-02 ,3.0902e-02 , & - &2.8990e-02 ,2.5608e-02 ,2.2622e-02 /) - kao(:, 5, 2, 9) = (/ & - &5.0151e-02 ,4.6154e-02 ,4.3548e-02 ,4.1147e-02 ,3.9208e-02 ,3.7617e-02 , & - &3.5476e-02 ,3.1506e-02 ,2.9070e-02 /) - kao(:, 1, 3, 9) = (/ & - &4.5824e-02 ,4.0428e-02 ,3.5360e-02 ,3.0531e-02 ,2.5873e-02 ,2.1515e-02 , & - &1.7437e-02 ,1.3182e-02 ,7.2135e-03 /) - kao(:, 2, 3, 9) = (/ & - &5.7122e-02 ,5.0441e-02 ,4.4296e-02 ,3.8535e-02 ,3.2887e-02 ,2.7626e-02 , & - &2.2637e-02 ,1.7470e-02 ,1.0156e-02 /) - kao(:, 3, 3, 9) = (/ & - &6.9514e-02 ,6.1484e-02 ,5.4267e-02 ,4.7520e-02 ,4.0893e-02 ,3.4647e-02 , & - &2.8731e-02 ,2.2576e-02 ,1.3878e-02 /) - kao(:, 4, 3, 9) = (/ & - &8.2919e-02 ,7.3512e-02 ,6.5273e-02 ,5.7524e-02 ,4.9783e-02 ,4.2603e-02 , & - &3.5784e-02 ,2.8563e-02 ,1.8502e-02 /) - kao(:, 5, 3, 9) = (/ & - &9.7170e-02 ,8.6431e-02 ,7.7261e-02 ,6.8346e-02 ,5.9584e-02 ,5.1514e-02 , & - &4.3768e-02 ,3.5379e-02 ,2.4141e-02 /) - kao(:, 1, 4, 9) = (/ & - &8.5028e-02 ,7.4675e-02 ,6.4408e-02 ,5.4349e-02 ,4.4385e-02 ,3.4667e-02 , & - &2.5298e-02 ,1.6347e-02 ,5.3723e-03 /) - kao(:, 2, 4, 9) = (/ & - &1.0799e-01 ,9.4832e-02 ,8.1887e-02 ,6.9265e-02 ,5.6849e-02 ,4.4649e-02 , & - &3.2963e-02 ,2.1613e-02 ,7.7235e-03 /) - kao(:, 3, 4, 9) = (/ & - &1.3350e-01 ,1.1723e-01 ,1.0141e-01 ,8.6053e-02 ,7.1006e-02 ,5.6113e-02 , & - &4.1792e-02 ,2.7868e-02 ,1.0747e-02 /) - kao(:, 4, 4, 9) = (/ & - &1.6142e-01 ,1.4180e-01 ,1.2297e-01 ,1.0476e-01 ,8.6810e-02 ,6.8956e-02 , & - &5.1841e-02 ,3.5143e-02 ,1.4564e-02 /) - kao(:, 5, 4, 9) = (/ & - &1.9126e-01 ,1.6822e-01 ,1.4629e-01 ,1.2515e-01 ,1.0422e-01 ,8.3176e-02 , & - &6.3089e-02 ,4.3500e-02 ,1.9267e-02 /) - kao(:, 1, 5, 9) = (/ & - &1.4488e-01 ,1.2702e-01 ,1.0917e-01 ,9.1352e-02 ,7.3672e-02 ,5.6082e-02 , & - &3.8867e-02 ,2.2212e-02 ,3.9357e-03 /) - kao(:, 2, 5, 9) = (/ & - &1.8767e-01 ,1.6453e-01 ,1.4140e-01 ,1.1846e-01 ,9.5672e-02 ,7.3107e-02 , & - &5.0961e-02 ,2.9559e-02 ,5.7686e-03 /) - kao(:, 3, 5, 9) = (/ & - &2.3604e-01 ,2.0693e-01 ,1.7791e-01 ,1.4922e-01 ,1.2079e-01 ,9.2713e-02 , & - &6.4987e-02 ,3.8154e-02 ,8.1725e-03 /) - kao(:, 4, 5, 9) = (/ & - &2.8921e-01 ,2.5355e-01 ,2.1818e-01 ,1.8330e-01 ,1.4882e-01 ,1.1469e-01 , & - &8.0893e-02 ,4.8061e-02 ,1.1257e-02 /) - kao(:, 5, 5, 9) = (/ & - &3.4679e-01 ,3.0409e-01 ,2.6204e-01 ,2.2057e-01 ,1.7963e-01 ,1.3899e-01 , & - &9.8558e-02 ,5.9364e-02 ,1.5113e-02 /) - kao(:, 1, 6, 9) = (/ & - &2.2687e-01 ,1.9870e-01 ,1.7053e-01 ,1.4235e-01 ,1.1424e-01 ,8.6261e-02 , & - &5.8407e-02 ,3.1198e-02 ,2.7719e-03 /) - kao(:, 2, 6, 9) = (/ & - &3.0049e-01 ,2.6318e-01 ,2.2586e-01 ,1.8856e-01 ,1.5147e-01 ,1.1450e-01 , & - &7.7818e-02 ,4.1952e-02 ,4.1659e-03 /) - kao(:, 3, 6, 9) = (/ & - &3.8494e-01 ,3.3714e-01 ,2.8934e-01 ,2.4170e-01 ,1.9431e-01 ,1.4714e-01 , & - &1.0048e-01 ,5.4667e-02 ,6.0249e-03 /) - kao(:, 4, 6, 9) = (/ & - &4.7888e-01 ,4.1941e-01 ,3.6000e-01 ,3.0097e-01 ,2.4222e-01 ,1.8390e-01 , & - &1.2612e-01 ,6.9245e-02 ,8.4412e-03 /) - kao(:, 5, 6, 9) = (/ & - &5.8181e-01 ,5.0960e-01 ,4.3765e-01 ,3.6614e-01 ,2.9513e-01 ,2.2467e-01 , & - &1.5478e-01 ,8.5677e-02 ,1.1500e-02 /) - kao(:, 1, 7, 9) = (/ & - &3.6399e-01 ,3.1864e-01 ,2.7330e-01 ,2.2796e-01 ,1.8261e-01 ,1.3731e-01 , & - &9.2161e-02 ,4.7386e-02 ,1.8335e-03 /) - kao(:, 2, 7, 9) = (/ & - &4.9404e-01 ,4.3249e-01 ,3.7094e-01 ,3.0937e-01 ,2.4784e-01 ,1.8651e-01 , & - &1.2531e-01 ,6.4814e-02 ,2.9040e-03 /) - kao(:, 3, 7, 9) = (/ & - &6.4560e-01 ,5.6518e-01 ,4.8472e-01 ,4.0430e-01 ,3.2403e-01 ,2.4402e-01 , & - &1.6421e-01 ,8.5452e-02 ,4.3365e-03 /) - kao(:, 4, 7, 9) = (/ & - &8.1690e-01 ,7.1513e-01 ,6.1336e-01 ,5.1171e-01 ,4.1038e-01 ,3.0928e-01 , & - &2.0863e-01 ,1.0932e-01 ,6.1934e-03 /) - kao(:, 5, 7, 9) = (/ & - &1.0068e+00 ,8.8147e-01 ,7.5616e-01 ,6.3106e-01 ,5.0635e-01 ,3.8205e-01 , & - &2.5843e-01 ,1.3634e-01 ,8.5588e-03 /) - kao(:, 1, 8, 9) = (/ & - &6.8384e-01 ,5.9848e-01 ,5.1310e-01 ,4.2775e-01 ,3.4242e-01 ,2.5705e-01 , & - &1.7171e-01 ,8.6607e-02 ,8.9761e-04 /) - kao(:, 2, 8, 9) = (/ & - &9.5272e-01 ,8.3382e-01 ,7.1490e-01 ,5.9597e-01 ,4.7702e-01 ,3.5811e-01 , & - &2.3935e-01 ,1.2088e-01 ,1.5768e-03 /) - kao(:, 3, 8, 9) = (/ & - &1.2716e+00 ,1.1128e+00 ,9.5409e-01 ,7.9538e-01 ,6.3666e-01 ,4.7804e-01 , & - &3.1975e-01 ,1.6179e-01 ,2.6889e-03 /) - kao(:, 4, 8, 9) = (/ & - &1.6381e+00 ,1.4337e+00 ,1.2291e+00 ,1.0247e+00 ,8.2031e-01 ,6.1622e-01 , & - &4.1239e-01 ,2.0929e-01 ,4.1353e-03 /) - kao(:, 5, 8, 9) = (/ & - &2.0497e+00 ,1.7940e+00 ,1.5381e+00 ,1.2824e+00 ,1.0268e+00 ,7.7156e-01 , & - &5.1676e-01 ,2.6319e-01 ,6.0327e-03 /) - kao(:, 1, 9, 9) = (/ & - &2.3562e+00 ,2.0618e+00 ,1.7675e+00 ,1.4730e+00 ,1.1786e+00 ,8.8409e-01 , & - &5.8968e-01 ,2.9523e-01 ,7.8820e-04 /) - kao(:, 2, 9, 9) = (/ & - &3.3780e+00 ,2.9558e+00 ,2.5337e+00 ,2.1117e+00 ,1.6896e+00 ,1.2675e+00 , & - &8.4537e-01 ,4.2322e-01 ,1.1025e-03 /) - kao(:, 3, 9, 9) = (/ & - &4.6138e+00 ,4.0373e+00 ,3.4607e+00 ,2.8840e+00 ,2.3076e+00 ,1.7311e+00 , & - &1.1546e+00 ,5.7817e-01 ,1.6643e-03 /) - kao(:, 4, 9, 9) = (/ & - &6.0608e+00 ,5.3032e+00 ,4.5462e+00 ,3.7886e+00 ,3.0313e+00 ,2.2740e+00 , & - &1.5168e+00 ,7.6000e-01 ,2.3974e-03 /) - kao(:, 5, 9, 9) = (/ & - &7.7085e+00 ,6.7454e+00 ,5.7823e+00 ,4.8189e+00 ,3.8558e+00 ,2.8925e+00 , & - &1.9295e+00 ,9.6718e-01 ,3.2535e-03 /) - kao(:, 1,10, 9) = (/ & - &9.1055e+00 ,7.9675e+00 ,6.8292e+00 ,5.6913e+00 ,4.5531e+00 ,3.4149e+00 , & - &2.2769e+00 ,1.1388e+00 ,5.8809e-04 /) - kao(:, 2,10, 9) = (/ & - &1.3404e+01 ,1.1729e+01 ,1.0053e+01 ,8.3780e+00 ,6.7024e+00 ,5.0271e+00 , & - &3.3517e+00 ,1.6763e+00 ,9.0563e-04 /) - kao(:, 3,10, 9) = (/ & - &1.8696e+01 ,1.6359e+01 ,1.4022e+01 ,1.1685e+01 ,9.3484e+00 ,7.0117e+00 , & - &4.6747e+00 ,2.3381e+00 ,1.7881e-03 /) - kao(:, 4,10, 9) = (/ & - &2.4995e+01 ,2.1869e+01 ,1.8747e+01 ,1.5622e+01 ,1.2498e+01 ,9.3741e+00 , & - &6.2500e+00 ,3.1259e+00 ,3.1813e-03 /) - kao(:, 5,10, 9) = (/ & - &3.2273e+01 ,2.8239e+01 ,2.4206e+01 ,2.0172e+01 ,1.6138e+01 ,1.2104e+01 , & - &8.0701e+00 ,4.0364e+00 ,3.7345e-03 /) - kao(:, 1,11, 9) = (/ & - &1.4610e+01 ,1.2784e+01 ,1.0958e+01 ,9.1318e+00 ,7.3053e+00 ,5.4792e+00 , & - &3.6529e+00 ,1.8269e+00 ,9.3673e-05 /) - kao(:, 2,11, 9) = (/ & - &2.1482e+01 ,1.8797e+01 ,1.6112e+01 ,1.3427e+01 ,1.0742e+01 ,8.0564e+00 , & - &5.3711e+00 ,2.6860e+00 ,1.0848e-03 /) - kao(:, 3,11, 9) = (/ & - &2.9982e+01 ,2.6234e+01 ,2.2487e+01 ,1.8739e+01 ,1.4992e+01 ,1.1244e+01 , & - &7.4965e+00 ,3.7489e+00 ,1.4593e-03 /) - kao(:, 4,11, 9) = (/ & - &4.0102e+01 ,3.5090e+01 ,3.0079e+01 ,2.5065e+01 ,2.0053e+01 ,1.5039e+01 , & - &1.0027e+01 ,5.0144e+00 ,2.0582e-03 /) - kao(:, 5,11, 9) = (/ & - &5.1873e+01 ,4.5387e+01 ,3.8905e+01 ,3.2421e+01 ,2.5937e+01 ,1.9453e+01 , & - &1.2970e+01 ,6.4862e+00 ,4.4703e-03 /) - kao(:, 1,12, 9) = (/ & - &1.7189e+01 ,1.5041e+01 ,1.2892e+01 ,1.0744e+01 ,8.5949e+00 ,6.4462e+00 , & - &4.2976e+00 ,2.1491e+00 ,3.9266e-05 /) - kao(:, 2,12, 9) = (/ & - &2.5282e+01 ,2.2121e+01 ,1.8962e+01 ,1.5801e+01 ,1.2641e+01 ,9.4811e+00 , & - &6.3210e+00 ,3.1609e+00 ,6.4444e-04 /) - kao(:, 3,12, 9) = (/ & - &3.5289e+01 ,3.0879e+01 ,2.6468e+01 ,2.2056e+01 ,1.7646e+01 ,1.3235e+01 , & - &8.8231e+00 ,4.4124e+00 ,1.8228e-03 /) - kao(:, 4,12, 9) = (/ & - &4.7291e+01 ,4.1381e+01 ,3.5468e+01 ,2.9558e+01 ,2.3647e+01 ,1.7735e+01 , & - &1.1825e+01 ,5.9130e+00 ,2.3757e-03 /) - kao(:, 5,12, 9) = (/ & - &6.1297e+01 ,5.3636e+01 ,4.5972e+01 ,3.8311e+01 ,3.0649e+01 ,2.2988e+01 , & - &1.5326e+01 ,7.6642e+00 ,3.9341e-03 /) - kao(:, 1,13, 9) = (/ & - &1.6000e+01 ,1.4000e+01 ,1.2000e+01 ,9.9998e+00 ,8.0002e+00 ,6.0002e+00 , & - &4.0003e+00 ,2.0005e+00 ,3.8486e-05 /) - kao(:, 2,13, 9) = (/ & - &2.3551e+01 ,2.0607e+01 ,1.7663e+01 ,1.4719e+01 ,1.1776e+01 ,8.8325e+00 , & - &5.8883e+00 ,2.9447e+00 ,5.3945e-04 /) - kao(:, 3,13, 9) = (/ & - &3.2950e+01 ,2.8830e+01 ,2.4711e+01 ,2.0594e+01 ,1.6475e+01 ,1.2356e+01 , & - &8.2382e+00 ,4.1197e+00 ,1.7722e-03 /) - kao(:, 4,13, 9) = (/ & - &4.4263e+01 ,3.8730e+01 ,3.3198e+01 ,2.7666e+01 ,2.2132e+01 ,1.6600e+01 , & - &1.1067e+01 ,5.5345e+00 ,2.5081e-03 /) - kao(:, 5,13, 9) = (/ & - &5.7461e+01 ,5.0277e+01 ,4.3096e+01 ,3.5913e+01 ,2.8731e+01 ,2.1549e+01 , & - &1.4366e+01 ,7.1843e+00 ,4.3602e-03 /) - kao(:, 1, 1,10) = (/ & - &4.8312e-02 ,4.2395e-02 ,3.7029e-02 ,3.4268e-02 ,3.1631e-02 ,2.8012e-02 , & - &2.4227e-02 ,1.9340e-02 ,2.3819e-02 /) - kao(:, 2, 1,10) = (/ & - &5.7978e-02 ,5.0880e-02 ,4.5259e-02 ,4.2684e-02 ,3.9233e-02 ,3.5182e-02 , & - &3.0643e-02 ,2.5810e-02 ,3.1295e-02 /) - kao(:, 3, 1,10) = (/ & - &6.8091e-02 ,5.9773e-02 ,5.4735e-02 ,5.1517e-02 ,4.7810e-02 ,4.2960e-02 , & - &3.8310e-02 ,3.3678e-02 ,4.0832e-02 /) - kao(:, 4, 1,10) = (/ & - &7.8444e-02 ,6.8870e-02 ,6.5474e-02 ,6.0764e-02 ,5.6861e-02 ,5.2020e-02 , & - &4.6525e-02 ,4.3019e-02 ,5.3025e-02 /) - kao(:, 5, 1,10) = (/ & - &8.8955e-02 ,7.8190e-02 ,7.6227e-02 ,7.0877e-02 ,6.6771e-02 ,6.2214e-02 , & - &5.5680e-02 ,5.4857e-02 ,6.6965e-02 /) - kao(:, 1, 2,10) = (/ & - &6.8494e-02 ,6.0019e-02 ,5.1535e-02 ,4.5753e-02 ,4.0717e-02 ,3.4636e-02 , & - &2.8735e-02 ,2.2359e-02 ,2.2396e-02 /) - kao(:, 2, 2,10) = (/ & - &8.3057e-02 ,7.2786e-02 ,6.2703e-02 ,5.6353e-02 ,5.0990e-02 ,4.3733e-02 , & - &3.6309e-02 ,2.8660e-02 ,2.9863e-02 /) - kao(:, 3, 2,10) = (/ & - &9.8445e-02 ,8.6268e-02 ,7.5172e-02 ,6.9101e-02 ,6.1861e-02 ,5.3608e-02 , & - &4.5462e-02 ,3.5628e-02 ,3.9584e-02 /) - kao(:, 4, 2,10) = (/ & - &1.1465e-01 ,1.0047e-01 ,8.9322e-02 ,8.2399e-02 ,7.3847e-02 ,6.4459e-02 , & - &5.5729e-02 ,4.5259e-02 ,5.1011e-02 /) - kao(:, 5, 2,10) = (/ & - &1.3121e-01 ,1.1499e-01 ,1.0547e-01 ,9.5942e-02 ,8.6700e-02 ,7.6912e-02 , & - &6.7683e-02 ,5.7087e-02 ,6.4331e-02 /) - kao(:, 1, 3,10) = (/ & - &1.2396e-01 ,1.0851e-01 ,9.3078e-02 ,7.7936e-02 ,6.5430e-02 ,5.3555e-02 , & - &4.0149e-02 ,2.8165e-02 ,1.9103e-02 /) - kao(:, 2, 3,10) = (/ & - &1.5308e-01 ,1.3401e-01 ,1.1495e-01 ,9.6317e-02 ,8.2061e-02 ,6.7720e-02 , & - &5.1563e-02 ,3.6346e-02 ,2.6147e-02 /) - kao(:, 3, 3,10) = (/ & - &1.8438e-01 ,1.6143e-01 ,1.3846e-01 ,1.1685e-01 ,1.0065e-01 ,8.3573e-02 , & - &6.4169e-02 ,4.6273e-02 ,3.5249e-02 /) - kao(:, 4, 3,10) = (/ & - &2.1730e-01 ,1.9024e-01 ,1.6317e-01 ,1.3937e-01 ,1.2182e-01 ,1.0076e-01 , & - &7.7802e-02 ,5.7458e-02 ,4.6106e-02 /) - kao(:, 5, 3,10) = (/ & - &2.5114e-01 ,2.1989e-01 ,1.8862e-01 ,1.6558e-01 ,1.4330e-01 ,1.1936e-01 , & - &9.3594e-02 ,7.0438e-02 ,5.9048e-02 /) - kao(:, 1, 4,10) = (/ & - &2.2307e-01 ,1.9520e-01 ,1.6737e-01 ,1.3960e-01 ,1.1281e-01 ,8.7662e-02 , & - &6.3355e-02 ,3.7440e-02 ,1.5143e-02 /) - kao(:, 2, 4,10) = (/ & - &2.8121e-01 ,2.4610e-01 ,2.1101e-01 ,1.7601e-01 ,1.4219e-01 ,1.1180e-01 , & - &8.0961e-02 ,4.9348e-02 ,2.1248e-02 /) - kao(:, 3, 4,10) = (/ & - &3.4426e-01 ,3.0128e-01 ,2.5831e-01 ,2.1545e-01 ,1.7407e-01 ,1.3850e-01 , & - &1.0170e-01 ,6.2450e-02 ,2.9486e-02 /) - kao(:, 4, 4,10) = (/ & - &4.1162e-01 ,3.6021e-01 ,3.0885e-01 ,2.5755e-01 ,2.0938e-01 ,1.6873e-01 , & - &1.2428e-01 ,7.7637e-02 ,3.9623e-02 /) - kao(:, 5, 4,10) = (/ & - &4.8400e-01 ,4.2357e-01 ,3.6318e-01 ,3.0275e-01 ,2.4837e-01 ,2.0175e-01 , & - &1.4904e-01 ,9.5123e-02 ,5.2032e-02 /) - kao(:, 1, 5,10) = (/ & - &3.6240e-01 ,3.1713e-01 ,2.7189e-01 ,2.2715e-01 ,1.8287e-01 ,1.3915e-01 , & - &9.6038e-02 ,5.3151e-02 ,1.1469e-02 /) - kao(:, 2, 5,10) = (/ & - &4.6684e-01 ,4.0853e-01 ,3.5029e-01 ,2.9260e-01 ,2.3543e-01 ,1.7892e-01 , & - &1.2501e-01 ,6.9710e-02 ,1.6590e-02 /) - kao(:, 3, 5,10) = (/ & - &5.8305e-01 ,5.1017e-01 ,4.3746e-01 ,3.6540e-01 ,2.9385e-01 ,2.2314e-01 , & - &1.5770e-01 ,8.9552e-02 ,2.3682e-02 /) - kao(:, 4, 5,10) = (/ & - &7.1039e-01 ,6.2164e-01 ,5.3285e-01 ,4.4486e-01 ,3.5759e-01 ,2.7242e-01 , & - &1.9452e-01 ,1.1176e-01 ,3.2616e-02 /) - kao(:, 5, 5,10) = (/ & - &8.4585e-01 ,7.4016e-01 ,6.3454e-01 ,5.2965e-01 ,4.2558e-01 ,3.2651e-01 , & - &2.3601e-01 ,1.3577e-01 ,4.3721e-02 /) - kao(:, 1, 6,10) = (/ & - &5.4565e-01 ,4.7774e-01 ,4.0998e-01 ,3.4242e-01 ,2.7503e-01 ,2.0802e-01 , & - &1.4092e-01 ,7.4294e-02 ,8.5994e-03 /) - kao(:, 2, 6,10) = (/ & - &7.2281e-01 ,6.3285e-01 ,5.4312e-01 ,4.5353e-01 ,3.6423e-01 ,2.7526e-01 , & - &1.8607e-01 ,9.8990e-02 ,1.2620e-02 /) - kao(:, 3, 6,10) = (/ & - &9.2293e-01 ,8.0812e-01 ,6.9347e-01 ,5.7897e-01 ,4.6479e-01 ,3.5103e-01 , & - &2.3728e-01 ,1.2747e-01 ,1.8407e-02 /) - kao(:, 4, 6,10) = (/ & - &1.1448e+00 ,1.0023e+00 ,8.6003e-01 ,7.1795e-01 ,5.7619e-01 ,4.3493e-01 , & - &2.9519e-01 ,1.6083e-01 ,2.5918e-02 /) - kao(:, 5, 6,10) = (/ & - &1.3870e+00 ,1.2144e+00 ,1.0419e+00 ,8.6977e-01 ,6.9789e-01 ,5.2651e-01 , & - &3.5987e-01 ,1.9795e-01 ,3.5516e-02 /) - kao(:, 1, 7,10) = (/ & - &9.0563e-01 ,7.9294e-01 ,6.8033e-01 ,5.6775e-01 ,4.5526e-01 ,3.4288e-01 , & - &2.2993e-01 ,1.1636e-01 ,6.3281e-03 /) - kao(:, 2, 7,10) = (/ & - &1.2304e+00 ,1.0774e+00 ,9.2435e-01 ,7.7129e-01 ,6.1846e-01 ,4.6574e-01 , & - &3.1230e-01 ,1.5802e-01 ,9.6345e-03 /) - kao(:, 3, 7,10) = (/ & - &1.6067e+00 ,1.4068e+00 ,1.2068e+00 ,1.0069e+00 ,8.0717e-01 ,6.0759e-01 , & - &4.0707e-01 ,2.0698e-01 ,1.4230e-02 /) - kao(:, 4, 7,10) = (/ & - &2.0379e+00 ,1.7842e+00 ,1.5305e+00 ,1.2770e+00 ,1.0235e+00 ,7.6992e-01 , & - &5.1539e-01 ,2.6359e-01 ,2.0362e-02 /) - kao(:, 5, 7,10) = (/ & - &2.5042e+00 ,2.1925e+00 ,1.8806e+00 ,1.5690e+00 ,1.2574e+00 ,9.4558e-01 , & - &6.3281e-01 ,3.2569e-01 ,2.8537e-02 /) - kao(:, 1, 8,10) = (/ & - &1.8551e+00 ,1.6239e+00 ,1.3926e+00 ,1.1613e+00 ,9.2995e-01 ,6.9848e-01 , & - &4.6667e-01 ,2.3461e-01 ,3.7282e-03 /) - kao(:, 2, 8,10) = (/ & - &2.5887e+00 ,2.2659e+00 ,1.9430e+00 ,1.6201e+00 ,1.2969e+00 ,9.7383e-01 , & - &6.5051e-01 ,3.2684e-01 ,7.1685e-03 /) - kao(:, 3, 8,10) = (/ & - &3.4601e+00 ,3.0282e+00 ,2.5964e+00 ,2.1645e+00 ,1.7327e+00 ,1.3007e+00 , & - &8.6869e-01 ,4.3618e-01 ,1.0869e-02 /) - kao(:, 4, 8,10) = (/ & - &4.4635e+00 ,3.9062e+00 ,3.3492e+00 ,2.7923e+00 ,2.2350e+00 ,1.6778e+00 , & - &1.1202e+00 ,5.6241e-01 ,1.5855e-02 /) - kao(:, 5, 8,10) = (/ & - &5.5614e+00 ,4.8670e+00 ,4.1730e+00 ,3.4788e+00 ,2.7845e+00 ,2.0899e+00 , & - &1.3954e+00 ,7.0042e-01 ,2.2369e-02 /) - kao(:, 1, 9,10) = (/ & - &7.0057e+00 ,6.1306e+00 ,5.2555e+00 ,4.3802e+00 ,3.5047e+00 ,2.6291e+00 , & - &1.7537e+00 ,8.7821e-01 ,2.6651e-03 /) - kao(:, 2, 9,10) = (/ & - &1.0071e+01 ,8.8120e+00 ,7.5539e+00 ,6.2955e+00 ,5.0368e+00 ,3.7786e+00 , & - &2.5204e+00 ,1.2618e+00 ,3.6187e-03 /) - kao(:, 3, 9,10) = (/ & - &1.3793e+01 ,1.2069e+01 ,1.0345e+01 ,8.6215e+00 ,6.8979e+00 ,5.1747e+00 , & - &3.4512e+00 ,1.7274e+00 ,5.0886e-03 /) - kao(:, 4, 9,10) = (/ & - &1.8095e+01 ,1.5834e+01 ,1.3574e+01 ,1.1311e+01 ,9.0505e+00 ,6.7893e+00 , & - &4.5277e+00 ,2.2659e+00 ,6.6445e-03 /) - kao(:, 5, 9,10) = (/ & - &2.2909e+01 ,2.0046e+01 ,1.7183e+01 ,1.4320e+01 ,1.1458e+01 ,8.5941e+00 , & - &5.7315e+00 ,2.8684e+00 ,1.0715e-02 /) - kao(:, 1,10,10) = (/ & - &2.9637e+01 ,2.5932e+01 ,2.2227e+01 ,1.8524e+01 ,1.4818e+01 ,1.1115e+01 , & - &7.4105e+00 ,3.7062e+00 ,1.7663e-03 /) - kao(:, 2,10,10) = (/ & - &4.3734e+01 ,3.8266e+01 ,3.2801e+01 ,2.7334e+01 ,2.1867e+01 ,1.6402e+01 , & - &1.0936e+01 ,5.4691e+00 ,2.0817e-03 /) - kao(:, 3,10,10) = (/ & - &6.1232e+01 ,5.3576e+01 ,4.5921e+01 ,3.8272e+01 ,3.0616e+01 ,2.2963e+01 , & - &1.5310e+01 ,7.6576e+00 ,1.7504e-03 /) - kao(:, 4,10,10) = (/ & - &8.1674e+01 ,7.1459e+01 ,6.1256e+01 ,5.1048e+01 ,4.0839e+01 ,3.0631e+01 , & - &2.0421e+01 ,1.0211e+01 ,7.5551e-03 /) - kao(:, 5,10,10) = (/ & - &1.0484e+02 ,9.1726e+01 ,7.8618e+01 ,6.5522e+01 ,5.2414e+01 ,3.9315e+01 , & - &2.6210e+01 ,1.3108e+01 ,1.2092e-02 /) - kao(:, 1,11,10) = (/ & - &5.2035e+01 ,4.5533e+01 ,3.9026e+01 ,3.2522e+01 ,2.6019e+01 ,1.9514e+01 , & - &1.3010e+01 ,6.5060e+00 ,2.3377e-05 /) - kao(:, 2,11,10) = (/ & - &7.6878e+01 ,6.7270e+01 ,5.7660e+01 ,4.8051e+01 ,3.8444e+01 ,2.8832e+01 , & - &1.9221e+01 ,9.6129e+00 ,3.4131e-05 /) - kao(:, 3,11,10) = (/ & - &1.0695e+02 ,9.3584e+01 ,8.0221e+01 ,6.6851e+01 ,5.3480e+01 ,4.0109e+01 , & - &2.6742e+01 ,1.3372e+01 ,6.5532e-03 /) - kao(:, 4,11,10) = (/ & - &1.4204e+02 ,1.2428e+02 ,1.0653e+02 ,8.8779e+01 ,7.1025e+01 ,5.3267e+01 , & - &3.5513e+01 ,1.7760e+01 ,3.6230e-03 /) - kao(:, 5,11,10) = (/ & - &1.8146e+02 ,1.5877e+02 ,1.3608e+02 ,1.1341e+02 ,9.0723e+01 ,6.8041e+01 , & - &4.5364e+01 ,2.2685e+01 ,5.3060e-03 /) - kao(:, 1,12,10) = (/ & - &6.6709e+01 ,5.8372e+01 ,5.0033e+01 ,4.1695e+01 ,3.3357e+01 ,2.5018e+01 , & - &1.6679e+01 ,8.3409e+00 ,1.6896e-05 /) - kao(:, 2,12,10) = (/ & - &9.8021e+01 ,8.5767e+01 ,7.3510e+01 ,6.1263e+01 ,4.9006e+01 ,3.6758e+01 , & - &2.4506e+01 ,1.2254e+01 ,2.4443e-05 /) - kao(:, 3,12,10) = (/ & - &1.3575e+02 ,1.1880e+02 ,1.0183e+02 ,8.4855e+01 ,6.7883e+01 ,5.0907e+01 , & - &3.3942e+01 ,1.6972e+01 ,3.9041e-05 /) - kao(:, 4,12,10) = (/ & - &1.7930e+02 ,1.5689e+02 ,1.3447e+02 ,1.1206e+02 ,8.9651e+01 ,6.7236e+01 , & - &4.4831e+01 ,2.2414e+01 ,2.5406e-03 /) - kao(:, 5,12,10) = (/ & - &2.2752e+02 ,1.9909e+02 ,1.7067e+02 ,1.4220e+02 ,1.1376e+02 ,8.5325e+01 , & - &5.6889e+01 ,2.8448e+01 ,5.4913e-03 /) - kao(:, 1,13,10) = (/ & - &6.7103e+01 ,5.8720e+01 ,5.0329e+01 ,4.1943e+01 ,3.3555e+01 ,2.5165e+01 , & - &1.6777e+01 ,8.3902e+00 ,1.5511e-05 /) - kao(:, 2,13,10) = (/ & - &9.7787e+01 ,8.5564e+01 ,7.3344e+01 ,6.1125e+01 ,4.8896e+01 ,3.6672e+01 , & - &2.4451e+01 ,1.2226e+01 ,2.1977e-05 /) - kao(:, 3,13,10) = (/ & - &1.3463e+02 ,1.1780e+02 ,1.0097e+02 ,8.4145e+01 ,6.7313e+01 ,5.0486e+01 , & - &3.3658e+01 ,1.6832e+01 ,3.2342e-05 /) - kao(:, 4,13,10) = (/ & - &1.7688e+02 ,1.5477e+02 ,1.3267e+02 ,1.1056e+02 ,8.8438e+01 ,6.6334e+01 , & - &4.4220e+01 ,2.2113e+01 ,5.6189e-03 /) - kao(:, 5,13,10) = (/ & - &2.2476e+02 ,1.9667e+02 ,1.6857e+02 ,1.4047e+02 ,1.1238e+02 ,8.4289e+01 , & - &5.6195e+01 ,2.8100e+01 ,6.0459e-03 /) - kao(:, 1, 1,11) = (/ & - &6.9001e-02 ,6.0529e-02 ,5.2064e-02 ,4.5590e-02 ,4.0628e-02 ,3.5945e-02 , & - &2.9389e-02 ,2.3144e-02 ,2.9176e-02 /) - kao(:, 2, 1,11) = (/ & - &8.2103e-02 ,7.2020e-02 ,6.1937e-02 ,5.5694e-02 ,5.0508e-02 ,4.4515e-02 , & - &3.6553e-02 ,3.0757e-02 ,3.9695e-02 /) - kao(:, 3, 1,11) = (/ & - &9.5630e-02 ,8.3878e-02 ,7.2481e-02 ,6.7965e-02 ,6.0680e-02 ,5.4180e-02 , & - &4.4143e-02 ,4.0422e-02 ,5.1968e-02 /) - kao(:, 4, 1,11) = (/ & - &1.0928e-01 ,9.5880e-02 ,8.4382e-02 ,8.0469e-02 ,7.1798e-02 ,6.4108e-02 , & - &5.3608e-02 ,5.2409e-02 ,6.6870e-02 /) - kao(:, 5, 1,11) = (/ & - &1.2299e-01 ,1.0790e-01 ,9.8888e-02 ,9.2808e-02 ,8.4009e-02 ,7.5069e-02 , & - &6.6004e-02 ,6.6900e-02 ,8.4455e-02 /) - kao(:, 1, 2,11) = (/ & - &1.0031e-01 ,8.7857e-02 ,7.5407e-02 ,6.3060e-02 ,5.4499e-02 ,4.6504e-02 , & - &3.6770e-02 ,2.6380e-02 ,2.8413e-02 /) - kao(:, 2, 2,11) = (/ & - &1.2053e-01 ,1.0559e-01 ,9.0627e-02 ,7.6829e-02 ,6.7033e-02 ,5.8104e-02 , & - &4.6509e-02 ,3.3638e-02 ,3.8310e-02 /) - kao(:, 3, 2,11) = (/ & - &1.4155e-01 ,1.2398e-01 ,1.0644e-01 ,9.2248e-02 ,8.1983e-02 ,7.0441e-02 , & - &5.6590e-02 ,4.3821e-02 ,5.0130e-02 /) - kao(:, 4, 2,11) = (/ & - &1.6305e-01 ,1.4282e-01 ,1.2262e-01 ,1.1049e-01 ,9.7062e-02 ,8.3848e-02 , & - &6.7975e-02 ,5.5529e-02 ,6.5378e-02 /) - kao(:, 5, 2,11) = (/ & - &1.8507e-01 ,1.6212e-01 ,1.3962e-01 ,1.2935e-01 ,1.1281e-01 ,9.7726e-02 , & - &8.0117e-02 ,6.9954e-02 ,8.3371e-02 /) - kao(:, 1, 3,11) = (/ & - &1.8667e-01 ,1.6338e-01 ,1.4010e-01 ,1.1682e-01 ,9.3557e-02 ,7.4325e-02 , & - &5.5984e-02 ,3.5878e-02 ,2.5531e-02 /) - kao(:, 2, 3,11) = (/ & - &2.2795e-01 ,1.9954e-01 ,1.7113e-01 ,1.4270e-01 ,1.1480e-01 ,9.2509e-02 , & - &7.0623e-02 ,4.6178e-02 ,3.4917e-02 /) - kao(:, 3, 3,11) = (/ & - &2.7211e-01 ,2.3816e-01 ,2.0423e-01 ,1.7032e-01 ,1.3866e-01 ,1.1338e-01 , & - &8.6877e-02 ,5.7191e-02 ,4.6054e-02 /) - kao(:, 4, 3,11) = (/ & - &3.1770e-01 ,2.7809e-01 ,2.3849e-01 ,1.9887e-01 ,1.6548e-01 ,1.3614e-01 , & - &1.0464e-01 ,7.0039e-02 ,6.0217e-02 /) - kao(:, 5, 3,11) = (/ & - &3.6403e-01 ,3.1863e-01 ,2.7328e-01 ,2.2795e-01 ,1.9641e-01 ,1.5908e-01 , & - &1.2312e-01 ,8.3529e-02 ,7.7572e-02 /) - kao(:, 1, 4,11) = (/ & - &3.4588e-01 ,3.0268e-01 ,2.5948e-01 ,2.1629e-01 ,1.7307e-01 ,1.2990e-01 , & - &9.1217e-02 ,5.3135e-02 ,2.1767e-02 /) - kao(:, 2, 4,11) = (/ & - &4.3145e-01 ,3.7755e-01 ,3.2366e-01 ,2.6977e-01 ,2.1589e-01 ,1.6201e-01 , & - &1.1572e-01 ,6.8208e-02 ,3.0409e-02 /) - kao(:, 3, 4,11) = (/ & - &5.2311e-01 ,4.5776e-01 ,3.9244e-01 ,3.2707e-01 ,2.6176e-01 ,1.9718e-01 , & - &1.4225e-01 ,8.5649e-02 ,4.0906e-02 /) - kao(:, 4, 4,11) = (/ & - &6.1949e-01 ,5.4214e-01 ,4.6476e-01 ,3.8737e-01 ,3.1001e-01 ,2.3606e-01 , & - &1.7310e-01 ,1.0459e-01 ,5.4382e-02 /) - kao(:, 5, 4,11) = (/ & - &7.1941e-01 ,6.2950e-01 ,5.3975e-01 ,4.4985e-01 ,3.6002e-01 ,2.8013e-01 , & - &2.0492e-01 ,1.2467e-01 ,7.0400e-02 /) - kao(:, 1, 5,11) = (/ & - &5.8048e-01 ,5.0796e-01 ,4.3542e-01 ,3.6286e-01 ,2.9032e-01 ,2.1780e-01 , & - &1.4642e-01 ,8.0688e-02 ,1.7624e-02 /) - kao(:, 2, 5,11) = (/ & - &7.4078e-01 ,6.4817e-01 ,5.5562e-01 ,4.6305e-01 ,3.7047e-01 ,2.7793e-01 , & - &1.8667e-01 ,1.0393e-01 ,2.5321e-02 /) - kao(:, 3, 5,11) = (/ & - &9.1562e-01 ,8.0121e-01 ,6.8680e-01 ,5.7241e-01 ,4.5798e-01 ,3.4354e-01 , & - &2.3145e-01 ,1.3051e-01 ,3.5008e-02 /) - kao(:, 4, 5,11) = (/ & - &1.1041e+00 ,9.6607e-01 ,8.2810e-01 ,6.9018e-01 ,5.5220e-01 ,4.1422e-01 , & - &2.8137e-01 ,1.6106e-01 ,4.7504e-02 /) - kao(:, 5, 5,11) = (/ & - &1.3000e+00 ,1.1374e+00 ,9.7498e-01 ,8.1255e-01 ,6.5013e-01 ,4.8767e-01 , & - &3.3622e-01 ,1.9350e-01 ,6.2782e-02 /) - kao(:, 1, 6,11) = (/ & - &8.9158e-01 ,7.8014e-01 ,6.6870e-01 ,5.5724e-01 ,4.4582e-01 ,3.3441e-01 , & - &2.2372e-01 ,1.1615e-01 ,1.3452e-02 /) - kao(:, 2, 6,11) = (/ & - &1.1678e+00 ,1.0218e+00 ,8.7586e-01 ,7.2991e-01 ,5.8393e-01 ,4.3799e-01 , & - &2.9305e-01 ,1.5296e-01 ,1.9872e-02 /) - kao(:, 3, 6,11) = (/ & - &1.4777e+00 ,1.2930e+00 ,1.1083e+00 ,9.2359e-01 ,7.3888e-01 ,5.5427e-01 , & - &3.7059e-01 ,1.9566e-01 ,2.8227e-02 /) - kao(:, 4, 6,11) = (/ & - &1.8119e+00 ,1.5855e+00 ,1.3592e+00 ,1.1325e+00 ,9.0614e-01 ,6.7964e-01 , & - &4.5430e-01 ,2.4269e-01 ,3.9342e-02 /) - kao(:, 5, 6,11) = (/ & - &2.1657e+00 ,1.8951e+00 ,1.6242e+00 ,1.3536e+00 ,1.0830e+00 ,8.1233e-01 , & - &5.4303e-01 ,2.9520e-01 ,5.3415e-02 /) - kao(:, 1, 7,11) = (/ & - &1.4142e+00 ,1.2374e+00 ,1.0606e+00 ,8.8396e-01 ,7.0710e-01 ,5.3041e-01 , & - &3.5484e-01 ,1.8101e-01 ,1.0092e-02 /) - kao(:, 2, 7,11) = (/ & - &1.9068e+00 ,1.6686e+00 ,1.4303e+00 ,1.1919e+00 ,9.5353e-01 ,7.1519e-01 , & - &4.7813e-01 ,2.4337e-01 ,1.5041e-02 /) - kao(:, 3, 7,11) = (/ & - &2.4672e+00 ,2.1587e+00 ,1.8505e+00 ,1.5421e+00 ,1.2336e+00 ,9.2548e-01 , & - &6.1872e-01 ,3.1448e-01 ,2.1900e-02 /) - kao(:, 4, 7,11) = (/ & - &3.0809e+00 ,2.6959e+00 ,2.3109e+00 ,1.9258e+00 ,1.5405e+00 ,1.1559e+00 , & - &7.7290e-01 ,3.9302e-01 ,3.1410e-02 /) - kao(:, 5, 7,11) = (/ & - &3.7474e+00 ,3.2787e+00 ,2.8103e+00 ,2.3419e+00 ,1.8737e+00 ,1.4060e+00 , & - &9.3991e-01 ,4.7981e-01 ,4.3693e-02 /) - kao(:, 1, 8,11) = (/ & - &2.6683e+00 ,2.3349e+00 ,2.0012e+00 ,1.6677e+00 ,1.3344e+00 ,1.0014e+00 , & - &6.6874e-01 ,3.3701e-01 ,7.4648e-03 /) - kao(:, 2, 8,11) = (/ & - &3.7060e+00 ,3.2430e+00 ,2.7797e+00 ,2.3168e+00 ,1.8539e+00 ,1.3914e+00 , & - &9.2912e-01 ,4.6800e-01 ,1.1435e-02 /) - kao(:, 3, 8,11) = (/ & - &4.9130e+00 ,4.2993e+00 ,3.6854e+00 ,3.0718e+00 ,2.4583e+00 ,1.8451e+00 , & - &1.2322e+00 ,6.2028e-01 ,1.6885e-02 /) - kao(:, 4, 8,11) = (/ & - &6.2797e+00 ,5.4950e+00 ,4.7108e+00 ,3.9265e+00 ,3.1420e+00 ,2.3582e+00 , & - &1.5746e+00 ,7.9222e-01 ,2.4688e-02 /) - kao(:, 5, 8,11) = (/ & - &7.7638e+00 ,6.7943e+00 ,5.8243e+00 ,4.8546e+00 ,3.8850e+00 ,2.9154e+00 , & - &1.9466e+00 ,9.7896e-01 ,3.5101e-02 /) - kao(:, 1, 9,11) = (/ & - &9.7135e+00 ,8.4998e+00 ,7.2860e+00 ,6.0723e+00 ,4.8583e+00 ,3.6448e+00 , & - &2.4304e+00 ,1.2171e+00 ,3.5233e-03 /) - kao(:, 2, 9,11) = (/ & - &1.3929e+01 ,1.2189e+01 ,1.0449e+01 ,8.7078e+00 ,6.9673e+00 ,5.2263e+00 , & - &3.4856e+00 ,1.7453e+00 ,4.1308e-03 /) - kao(:, 3, 9,11) = (/ & - &1.8989e+01 ,1.6615e+01 ,1.4243e+01 ,1.1869e+01 ,9.4966e+00 ,7.1244e+00 , & - &4.7516e+00 ,2.3792e+00 ,6.6319e-03 /) - kao(:, 4, 9,11) = (/ & - &2.4785e+01 ,2.1688e+01 ,1.8591e+01 ,1.5493e+01 ,1.2396e+01 ,9.2991e+00 , & - &6.2019e+00 ,3.1051e+00 ,1.1490e-02 /) - kao(:, 5, 9,11) = (/ & - &3.1283e+01 ,2.7373e+01 ,2.3465e+01 ,1.9556e+01 ,1.5646e+01 ,1.1737e+01 , & - &7.8279e+00 ,3.9188e+00 ,2.1019e-02 /) - kao(:, 1,10,11) = (/ & - &4.1666e+01 ,3.6458e+01 ,3.1251e+01 ,2.6043e+01 ,2.0835e+01 ,1.5628e+01 , & - &1.0419e+01 ,5.2119e+00 ,1.6494e-03 /) - kao(:, 2,10,11) = (/ & - &6.1694e+01 ,5.3987e+01 ,4.6271e+01 ,3.8561e+01 ,3.0850e+01 ,2.3139e+01 , & - &1.5428e+01 ,7.7161e+00 ,4.8320e-03 /) - kao(:, 3,10,11) = (/ & - &8.6109e+01 ,7.5347e+01 ,6.4581e+01 ,5.3821e+01 ,4.3056e+01 ,3.2294e+01 , & - &2.1533e+01 ,1.0770e+01 ,3.2818e-03 /) - kao(:, 4,10,11) = (/ & - &1.1458e+02 ,1.0025e+02 ,8.5946e+01 ,7.1620e+01 ,5.7298e+01 ,4.2975e+01 , & - &2.8651e+01 ,1.4330e+01 ,1.0923e-02 /) - kao(:, 5,10,11) = (/ & - &1.4689e+02 ,1.2853e+02 ,1.1017e+02 ,9.1808e+01 ,7.3452e+01 ,5.5088e+01 , & - &3.6731e+01 ,1.8371e+01 ,1.7421e-02 /) - kao(:, 1,11,11) = (/ & - &7.6402e+01 ,6.6855e+01 ,5.7300e+01 ,4.7753e+01 ,3.8204e+01 ,2.8655e+01 , & - &1.9105e+01 ,9.5538e+00 ,4.1075e-05 /) - kao(:, 2,11,11) = (/ & - &1.1253e+02 ,9.8463e+01 ,8.4399e+01 ,7.0331e+01 ,5.6269e+01 ,4.2202e+01 , & - &2.8136e+01 ,1.4070e+01 ,5.7635e-05 /) - kao(:, 3,11,11) = (/ & - &1.5636e+02 ,1.3680e+02 ,1.1725e+02 ,9.7724e+01 ,7.8173e+01 ,5.8632e+01 , & - &3.9090e+01 ,1.9548e+01 ,8.0706e-05 /) - kao(:, 4,11,11) = (/ & - &2.0774e+02 ,1.8177e+02 ,1.5580e+02 ,1.2984e+02 ,1.0387e+02 ,7.7908e+01 , & - &5.1937e+01 ,2.5972e+01 ,1.1256e-02 /) - kao(:, 5,11,11) = (/ & - &2.6504e+02 ,2.3192e+02 ,1.9880e+02 ,1.6566e+02 ,1.3254e+02 ,9.9402e+01 , & - &6.6269e+01 ,3.3138e+01 ,8.3317e-03 /) - kao(:, 1,12,11) = (/ & - &1.0209e+02 ,8.9323e+01 ,7.6564e+01 ,6.3800e+01 ,5.1042e+01 ,3.8285e+01 , & - &2.5522e+01 ,1.2763e+01 ,2.5628e-05 /) - kao(:, 2,12,11) = (/ & - &1.4952e+02 ,1.3083e+02 ,1.1214e+02 ,9.3447e+01 ,7.4760e+01 ,5.6068e+01 , & - &3.7381e+01 ,1.8692e+01 ,3.7727e-05 /) - kao(:, 3,12,11) = (/ & - &2.0709e+02 ,1.8121e+02 ,1.5533e+02 ,1.2944e+02 ,1.0355e+02 ,7.7656e+01 , & - &5.1777e+01 ,2.5887e+01 ,4.7198e-05 /) - kao(:, 4,12,11) = (/ & - &2.7380e+02 ,2.3961e+02 ,2.0536e+02 ,1.7114e+02 ,1.3691e+02 ,1.0268e+02 , & - &6.8461e+01 ,3.4230e+01 ,7.7074e-03 /) - kao(:, 5,12,11) = (/ & - &3.4895e+02 ,3.0533e+02 ,2.6172e+02 ,2.1811e+02 ,1.7449e+02 ,1.3086e+02 , & - &8.7241e+01 ,4.3626e+01 ,8.7565e-03 /) - kao(:, 1,13,11) = (/ & - &1.0675e+02 ,9.3411e+01 ,8.0067e+01 ,6.6725e+01 ,5.3379e+01 ,4.0032e+01 , & - &2.6688e+01 ,1.3347e+01 ,1.6230e-05 /) - kao(:, 2,13,11) = (/ & - &1.5608e+02 ,1.3657e+02 ,1.1706e+02 ,9.7552e+01 ,7.8046e+01 ,5.8531e+01 , & - &3.9024e+01 ,1.9513e+01 ,2.2466e-05 /) - kao(:, 3,13,11) = (/ & - &2.1549e+02 ,1.8855e+02 ,1.6162e+02 ,1.3468e+02 ,1.0774e+02 ,8.0803e+01 , & - &5.3874e+01 ,2.6939e+01 ,3.0542e-05 /) - kao(:, 4,13,11) = (/ & - &2.8371e+02 ,2.4826e+02 ,2.1280e+02 ,1.7733e+02 ,1.4186e+02 ,1.0640e+02 , & - &7.0935e+01 ,3.5470e+01 ,1.3758e-03 /) - kao(:, 5,13,11) = (/ & - &3.5962e+02 ,3.1467e+02 ,2.6973e+02 ,2.2478e+02 ,1.7981e+02 ,1.3487e+02 , & - &8.9910e+01 ,4.4960e+01 ,3.9903e-03 /) - kao(:, 1, 1,12) = (/ & - &9.6318e-02 ,8.4306e-02 ,7.2320e-02 ,6.0347e-02 ,5.2079e-02 ,4.4235e-02 , & - &3.5296e-02 ,3.0172e-02 ,3.8372e-02 /) - kao(:, 2, 1,12) = (/ & - &1.1333e-01 ,9.9268e-02 ,8.5214e-02 ,7.2014e-02 ,6.3588e-02 ,5.4323e-02 , & - &4.4306e-02 ,4.1727e-02 ,5.1292e-02 /) - kao(:, 3, 1,12) = (/ & - &1.3065e-01 ,1.1448e-01 ,9.8324e-02 ,8.5358e-02 ,7.7141e-02 ,6.4277e-02 , & - &5.5750e-02 ,5.5415e-02 ,6.7933e-02 /) - kao(:, 4, 1,12) = (/ & - &1.4795e-01 ,1.2969e-01 ,1.1146e-01 ,1.0185e-01 ,9.0045e-02 ,7.5178e-02 , & - &6.8885e-02 ,7.0700e-02 ,8.8138e-02 /) - kao(:, 5, 1,12) = (/ & - &1.6491e-01 ,1.4461e-01 ,1.2472e-01 ,1.1761e-01 ,1.0268e-01 ,8.7802e-02 , & - &8.5057e-02 ,9.0208e-02 ,1.1284e-01 /) - kao(:, 1, 2,12) = (/ & - &1.4316e-01 ,1.2534e-01 ,1.0752e-01 ,8.9701e-02 ,7.2577e-02 ,5.9608e-02 , & - &4.6628e-02 ,3.2233e-02 ,3.6922e-02 /) - kao(:, 2, 2,12) = (/ & - &1.7023e-01 ,1.4907e-01 ,1.2790e-01 ,1.0674e-01 ,8.8738e-02 ,7.3250e-02 , & - &5.7353e-02 ,4.3254e-02 ,4.9659e-02 /) - kao(:, 3, 2,12) = (/ & - &1.9792e-01 ,1.7332e-01 ,1.4875e-01 ,1.2418e-01 ,1.0651e-01 ,8.8601e-02 , & - &6.9038e-02 ,5.5574e-02 ,6.6062e-02 /) - kao(:, 4, 2,12) = (/ & - &2.2567e-01 ,1.9768e-01 ,1.6971e-01 ,1.4278e-01 ,1.2696e-01 ,1.0366e-01 , & - &8.1948e-02 ,7.1191e-02 ,8.6127e-02 /) - kao(:, 5, 2,12) = (/ & - &2.5314e-01 ,2.2175e-01 ,1.9032e-01 ,1.6565e-01 ,1.4606e-01 ,1.1970e-01 , & - &9.8165e-02 ,9.0526e-02 ,1.1061e-01 /) - kao(:, 1, 3,12) = (/ & - &2.7385e-01 ,2.3971e-01 ,2.0552e-01 ,1.7136e-01 ,1.3716e-01 ,1.0300e-01 , & - &7.5178e-02 ,4.5691e-02 ,3.3533e-02 /) - kao(:, 2, 3,12) = (/ & - &3.3090e-01 ,2.8961e-01 ,2.4836e-01 ,2.0707e-01 ,1.6581e-01 ,1.2597e-01 , & - &9.2542e-02 ,5.7168e-02 ,4.5647e-02 /) - kao(:, 3, 3,12) = (/ & - &3.8960e-01 ,3.4098e-01 ,2.9239e-01 ,2.4379e-01 ,1.9517e-01 ,1.5181e-01 , & - &1.1308e-01 ,7.0212e-02 ,6.1610e-02 /) - kao(:, 4, 3,12) = (/ & - &4.4888e-01 ,3.9285e-01 ,3.3686e-01 ,2.8085e-01 ,2.2487e-01 ,1.8074e-01 , & - &1.3367e-01 ,8.4795e-02 ,8.0803e-02 /) - kao(:, 5, 3,12) = (/ & - &5.0777e-01 ,4.4444e-01 ,3.8104e-01 ,3.1773e-01 ,2.5631e-01 ,2.1146e-01 , & - &1.5502e-01 ,1.0449e-01 ,1.0410e-01 /) - kao(:, 1, 4,12) = (/ & - &5.2233e-01 ,4.5708e-01 ,3.9182e-01 ,3.2654e-01 ,2.6131e-01 ,1.9604e-01 , & - &1.3079e-01 ,7.4640e-02 ,2.9498e-02 /) - kao(:, 2, 4,12) = (/ & - &6.4217e-01 ,5.6200e-01 ,4.8174e-01 ,4.0151e-01 ,3.2131e-01 ,2.4104e-01 , & - &1.6124e-01 ,9.3279e-02 ,4.1076e-02 /) - kao(:, 3, 4,12) = (/ & - &7.6818e-01 ,6.7216e-01 ,5.7628e-01 ,4.8026e-01 ,3.8431e-01 ,2.8834e-01 , & - &1.9584e-01 ,1.1499e-01 ,5.5764e-02 /) - kao(:, 4, 4,12) = (/ & - &8.9714e-01 ,7.8510e-01 ,6.7304e-01 ,5.6095e-01 ,4.4882e-01 ,3.3677e-01 , & - &2.3398e-01 ,1.3732e-01 ,7.3695e-02 /) - kao(:, 5, 4,12) = (/ & - &1.0267e+00 ,8.9838e-01 ,7.7018e-01 ,6.4193e-01 ,5.1368e-01 ,3.8545e-01 , & - &2.7687e-01 ,1.6073e-01 ,9.6046e-02 /) - kao(:, 1, 5,12) = (/ & - &9.0551e-01 ,7.9235e-01 ,6.7918e-01 ,5.6601e-01 ,4.5286e-01 ,3.3967e-01 , & - &2.2649e-01 ,1.1543e-01 ,2.5575e-02 /) - kao(:, 2, 5,12) = (/ & - &1.1369e+00 ,9.9490e-01 ,8.5273e-01 ,7.1065e-01 ,5.6855e-01 ,4.2647e-01 , & - &2.8441e-01 ,1.4706e-01 ,3.6472e-02 /) - kao(:, 3, 5,12) = (/ & - &1.3835e+00 ,1.2106e+00 ,1.0376e+00 ,8.6468e-01 ,6.9181e-01 ,5.1896e-01 , & - &3.4607e-01 ,1.8250e-01 ,5.0201e-02 /) - kao(:, 4, 5,12) = (/ & - &1.6400e+00 ,1.4350e+00 ,1.2302e+00 ,1.0252e+00 ,8.2021e-01 ,6.1526e-01 , & - &4.1028e-01 ,2.2034e-01 ,6.6839e-02 /) - kao(:, 5, 5,12) = (/ & - &1.9010e+00 ,1.6635e+00 ,1.4259e+00 ,1.1884e+00 ,9.5076e-01 ,7.1323e-01 , & - &4.7563e-01 ,2.6201e-01 ,8.7568e-02 /) - kao(:, 1, 6,12) = (/ & - &1.4399e+00 ,1.2599e+00 ,1.0800e+00 ,9.0001e-01 ,7.2000e-01 ,5.4003e-01 , & - &3.6008e-01 ,1.8026e-01 ,2.1293e-02 /) - kao(:, 2, 6,12) = (/ & - &1.8513e+00 ,1.6198e+00 ,1.3886e+00 ,1.1570e+00 ,9.2575e-01 ,6.9429e-01 , & - &4.6294e-01 ,2.3182e-01 ,3.1128e-02 /) - kao(:, 3, 6,12) = (/ & - &2.3002e+00 ,2.0128e+00 ,1.7253e+00 ,1.4377e+00 ,1.1502e+00 ,8.6271e-01 , & - &5.7522e-01 ,2.8786e-01 ,4.3673e-02 /) - kao(:, 4, 6,12) = (/ & - &2.7724e+00 ,2.4259e+00 ,2.0792e+00 ,1.7327e+00 ,1.3862e+00 ,1.0398e+00 , & - &6.9321e-01 ,3.4832e-01 ,5.9465e-02 /) - kao(:, 5, 6,12) = (/ & - &3.2575e+00 ,2.8504e+00 ,2.4432e+00 ,2.0359e+00 ,1.6288e+00 ,1.2216e+00 , & - &8.1457e-01 ,4.1431e-01 ,7.8852e-02 /) - kao(:, 1, 7,12) = (/ & - &2.3706e+00 ,2.0741e+00 ,1.7778e+00 ,1.4816e+00 ,1.1852e+00 ,8.8892e-01 , & - &5.9261e-01 ,2.9636e-01 ,1.6814e-02 /) - kao(:, 2, 7,12) = (/ & - &3.1315e+00 ,2.7398e+00 ,2.3484e+00 ,1.9572e+00 ,1.5657e+00 ,1.1742e+00 , & - &7.8297e-01 ,3.9150e-01 ,2.5425e-02 /) - kao(:, 3, 7,12) = (/ & - &3.9698e+00 ,3.4734e+00 ,2.9772e+00 ,2.4811e+00 ,1.9850e+00 ,1.4887e+00 , & - &9.9245e-01 ,4.9628e-01 ,3.6698e-02 /) - kao(:, 4, 7,12) = (/ & - &4.8729e+00 ,4.2639e+00 ,3.6548e+00 ,3.0457e+00 ,2.4366e+00 ,1.8275e+00 , & - &1.2184e+00 ,6.0927e-01 ,5.1098e-02 /) - kao(:, 5, 7,12) = (/ & - &5.8302e+00 ,5.1015e+00 ,4.3726e+00 ,3.6438e+00 ,2.9154e+00 ,2.1865e+00 , & - &1.4578e+00 ,7.2896e-01 ,6.9201e-02 /) - kao(:, 1, 8,12) = (/ & - &4.6083e+00 ,4.0328e+00 ,3.4566e+00 ,2.8804e+00 ,2.3046e+00 ,1.7283e+00 , & - &1.1523e+00 ,5.7615e-01 ,1.2896e-02 /) - kao(:, 2, 8,12) = (/ & - &6.2568e+00 ,5.4739e+00 ,4.6922e+00 ,3.9099e+00 ,3.1281e+00 ,2.3461e+00 , & - &1.5641e+00 ,7.8209e-01 ,1.9880e-02 /) - kao(:, 3, 8,12) = (/ & - &8.1358e+00 ,7.1187e+00 ,6.1015e+00 ,5.0849e+00 ,4.0679e+00 ,3.0509e+00 , & - &2.0338e+00 ,1.0170e+00 ,2.9497e-02 /) - kao(:, 4, 8,12) = (/ & - &1.0204e+01 ,8.9284e+00 ,7.6531e+00 ,6.3773e+00 ,5.1020e+00 ,3.8269e+00 , & - &2.5510e+00 ,1.2755e+00 ,4.2115e-02 /) - kao(:, 5, 8,12) = (/ & - &1.2434e+01 ,1.0880e+01 ,9.3260e+00 ,7.7708e+00 ,6.2169e+00 ,4.6632e+00 , & - &3.1088e+00 ,1.5543e+00 ,5.8665e-02 /) - kao(:, 1, 9,12) = (/ & - &1.6573e+01 ,1.4502e+01 ,1.2430e+01 ,1.0358e+01 ,8.2865e+00 ,6.2149e+00 , & - &4.1429e+00 ,2.0717e+00 ,3.2506e-03 /) - kao(:, 2, 9,12) = (/ & - &2.3241e+01 ,2.0336e+01 ,1.7432e+01 ,1.4525e+01 ,1.1622e+01 ,8.7162e+00 , & - &5.8106e+00 ,2.9051e+00 ,8.0054e-03 /) - kao(:, 3, 9,12) = (/ & - &3.1035e+01 ,2.7156e+01 ,2.3277e+01 ,1.9396e+01 ,1.5516e+01 ,1.1638e+01 , & - &7.7589e+00 ,3.8795e+00 ,1.2478e-02 /) - kao(:, 4, 9,12) = (/ & - &3.9794e+01 ,3.4820e+01 ,2.9846e+01 ,2.4871e+01 ,1.9897e+01 ,1.4923e+01 , & - &9.9485e+00 ,4.9745e+00 ,2.7934e-02 /) - kao(:, 5, 9,12) = (/ & - &4.9259e+01 ,4.3099e+01 ,3.6943e+01 ,3.0785e+01 ,2.4628e+01 ,1.8472e+01 , & - &1.2315e+01 ,6.1576e+00 ,4.7661e-02 /) - kao(:, 1,10,12) = (/ & - &6.7160e+01 ,5.8765e+01 ,5.0369e+01 ,4.1974e+01 ,3.3581e+01 ,2.5186e+01 , & - &1.6790e+01 ,8.3953e+00 ,3.7061e-05 /) - kao(:, 2,10,12) = (/ & - &9.7116e+01 ,8.4979e+01 ,7.2826e+01 ,6.0693e+01 ,4.8559e+01 ,3.6416e+01 , & - &2.4277e+01 ,1.2139e+01 ,5.3890e-03 /) - kao(:, 3,10,12) = (/ & - &1.3274e+02 ,1.1614e+02 ,9.9552e+01 ,8.2959e+01 ,6.6370e+01 ,4.9775e+01 , & - &3.3183e+01 ,1.6592e+01 ,5.5995e-03 /) - kao(:, 4,10,12) = (/ & - &1.7342e+02 ,1.5174e+02 ,1.3008e+02 ,1.0839e+02 ,8.6716e+01 ,6.5036e+01 , & - &4.3354e+01 ,2.1678e+01 ,7.3568e-03 /) - kao(:, 5,10,12) = (/ & - &2.1869e+02 ,1.9137e+02 ,1.6402e+02 ,1.3669e+02 ,1.0934e+02 ,8.2010e+01 , & - &5.4674e+01 ,2.7339e+01 ,1.9171e-02 /) - kao(:, 1,11,12) = (/ & - &1.1512e+02 ,1.0073e+02 ,8.6335e+01 ,7.1940e+01 ,5.7559e+01 ,4.3164e+01 , & - &2.8776e+01 ,1.4390e+01 ,3.3905e-05 /) - kao(:, 2,11,12) = (/ & - &1.6697e+02 ,1.4609e+02 ,1.2523e+02 ,1.0436e+02 ,8.3482e+01 ,6.2612e+01 , & - &4.1744e+01 ,2.0873e+01 ,5.9590e-05 /) - kao(:, 3,11,12) = (/ & - &2.2930e+02 ,2.0064e+02 ,1.7196e+02 ,1.4331e+02 ,1.1466e+02 ,8.5994e+01 , & - &5.7327e+01 ,2.8668e+01 ,8.9833e-05 /) - kao(:, 4,11,12) = (/ & - &3.0132e+02 ,2.6364e+02 ,2.2598e+02 ,1.8835e+02 ,1.5066e+02 ,1.1300e+02 , & - &7.5334e+01 ,3.7671e+01 ,8.4167e-03 /) - kao(:, 5,11,12) = (/ & - &3.8162e+02 ,3.3392e+02 ,2.8622e+02 ,2.3853e+02 ,1.9083e+02 ,1.4312e+02 , & - &9.5410e+01 ,4.7709e+01 ,1.8161e-02 /) - kao(:, 1,12,12) = (/ & - &1.5129e+02 ,1.3238e+02 ,1.1347e+02 ,9.4558e+01 ,7.5645e+01 ,5.6733e+01 , & - &3.7823e+01 ,1.8915e+01 ,3.6770e-05 /) - kao(:, 2,12,12) = (/ & - &2.2053e+02 ,1.9297e+02 ,1.6541e+02 ,1.3784e+02 ,1.1026e+02 ,8.2702e+01 , & - &5.5137e+01 ,2.7573e+01 ,5.2389e-05 /) - kao(:, 3,12,12) = (/ & - &3.0464e+02 ,2.6657e+02 ,2.2849e+02 ,1.9040e+02 ,1.5233e+02 ,1.1424e+02 , & - &7.6159e+01 ,3.8090e+01 ,7.1306e-05 /) - kao(:, 4,12,12) = (/ & - &4.0144e+02 ,3.5128e+02 ,3.0110e+02 ,2.5092e+02 ,2.0072e+02 ,1.5055e+02 , & - &1.0037e+02 ,5.0190e+01 ,9.4766e-05 /) - kao(:, 5,12,12) = (/ & - &5.1041e+02 ,4.4660e+02 ,3.8281e+02 ,3.1900e+02 ,2.5521e+02 ,1.9140e+02 , & - &1.2761e+02 ,6.3809e+01 ,8.9549e-03 /) - kao(:, 1,13,12) = (/ & - &1.6406e+02 ,1.4356e+02 ,1.2306e+02 ,1.0255e+02 ,8.2037e+01 ,6.1534e+01 , & - &4.1023e+01 ,2.0513e+01 ,2.9105e-05 /) - kao(:, 2,13,12) = (/ & - &2.3966e+02 ,2.0971e+02 ,1.7976e+02 ,1.4978e+02 ,1.1983e+02 ,8.9879e+01 , & - &5.9920e+01 ,2.9966e+01 ,3.6736e-05 /) - kao(:, 3,13,12) = (/ & - &3.3040e+02 ,2.8909e+02 ,2.4781e+02 ,2.0651e+02 ,1.6521e+02 ,1.2390e+02 , & - &8.2608e+01 ,4.1307e+01 ,4.7139e-05 /) - kao(:, 4,13,12) = (/ & - &4.3608e+02 ,3.8160e+02 ,3.2708e+02 ,2.7256e+02 ,2.1804e+02 ,1.6354e+02 , & - &1.0903e+02 ,5.4517e+01 ,5.9953e-05 /) - kao(:, 5,13,12) = (/ & - &5.5401e+02 ,4.8478e+02 ,4.1553e+02 ,3.4627e+02 ,2.7701e+02 ,2.0776e+02 , & - &1.3851e+02 ,6.9261e+01 ,1.3826e-02 /) - kao(:, 1, 1,13) = (/ & - &1.2490e-01 ,1.0932e-01 ,9.3720e-02 ,7.8121e-02 ,6.3794e-02 ,5.1600e-02 , & - &4.4680e-02 ,4.2635e-02 ,5.5634e-02 /) - kao(:, 2, 1,13) = (/ & - &1.4548e-01 ,1.2733e-01 ,1.0918e-01 ,9.1021e-02 ,7.6620e-02 ,6.3500e-02 , & - &5.7581e-02 ,5.7524e-02 ,7.4793e-02 /) - kao(:, 3, 1,13) = (/ & - &1.6600e-01 ,1.4529e-01 ,1.2460e-01 ,1.0392e-01 ,9.0379e-02 ,7.8694e-02 , & - &7.4384e-02 ,7.8232e-02 ,9.9775e-02 /) - kao(:, 4, 1,13) = (/ & - &1.8636e-01 ,1.6314e-01 ,1.3994e-01 ,1.1863e-01 ,1.0661e-01 ,9.7110e-02 , & - &9.8012e-02 ,1.0654e-01 ,1.3265e-01 /) - kao(:, 5, 1,13) = (/ & - &2.0606e-01 ,1.8040e-01 ,1.5476e-01 ,1.3669e-01 ,1.2405e-01 ,1.1873e-01 , & - &1.2869e-01 ,1.4070e-01 ,1.7529e-01 /) - kao(:, 1, 2,13) = (/ & - &1.8895e-01 ,1.6535e-01 ,1.4175e-01 ,1.1814e-01 ,9.4551e-02 ,7.3809e-02 , & - &5.5615e-02 ,4.4637e-02 ,5.3030e-02 /) - kao(:, 2, 2,13) = (/ & - &2.2250e-01 ,1.9470e-01 ,1.6692e-01 ,1.3914e-01 ,1.1136e-01 ,8.8262e-02 , & - &7.0022e-02 ,6.0363e-02 ,7.3472e-02 /) - kao(:, 3, 2,13) = (/ & - &2.5567e-01 ,2.2376e-01 ,1.9185e-01 ,1.5991e-01 ,1.3005e-01 ,1.0599e-01 , & - &8.7655e-02 ,7.9726e-02 ,9.6994e-02 /) - kao(:, 4, 2,13) = (/ & - &2.8747e-01 ,2.5157e-01 ,2.1569e-01 ,1.7980e-01 ,1.5083e-01 ,1.2699e-01 , & - &1.0917e-01 ,1.0493e-01 ,1.2703e-01 /) - kao(:, 5, 2,13) = (/ & - &3.1781e-01 ,2.7817e-01 ,2.3857e-01 ,1.9898e-01 ,1.7411e-01 ,1.5016e-01 , & - &1.3454e-01 ,1.3707e-01 ,1.6656e-01 /) - kao(:, 1, 3,13) = (/ & - &3.6978e-01 ,3.2357e-01 ,2.7737e-01 ,2.3116e-01 ,1.8494e-01 ,1.3872e-01 , & - &9.4432e-02 ,5.7465e-02 ,4.7026e-02 /) - kao(:, 2, 3,13) = (/ & - &4.3903e-01 ,3.8415e-01 ,3.2929e-01 ,2.7445e-01 ,2.1956e-01 ,1.6470e-01 , & - &1.1482e-01 ,7.4394e-02 ,6.6138e-02 /) - kao(:, 3, 3,13) = (/ & - &5.0855e-01 ,4.4506e-01 ,3.8154e-01 ,3.1805e-01 ,2.5451e-01 ,1.9102e-01 , & - &1.3670e-01 ,9.4825e-02 ,8.9406e-02 /) - kao(:, 4, 3,13) = (/ & - &5.7817e-01 ,5.0599e-01 ,4.3381e-01 ,3.6166e-01 ,2.8948e-01 ,2.2042e-01 , & - &1.6420e-01 ,1.1827e-01 ,1.1730e-01 /) - kao(:, 5, 3,13) = (/ & - &6.4715e-01 ,5.6638e-01 ,4.8566e-01 ,4.0494e-01 ,3.2419e-01 ,2.5446e-01 , & - &1.9367e-01 ,1.4612e-01 ,1.5219e-01 /) - kao(:, 1, 4,13) = (/ & - &7.1857e-01 ,6.2877e-01 ,5.3894e-01 ,4.4919e-01 ,3.5935e-01 ,2.6957e-01 , & - &1.7976e-01 ,9.3998e-02 ,4.1187e-02 /) - kao(:, 2, 4,13) = (/ & - &8.6835e-01 ,7.5986e-01 ,6.5131e-01 ,5.4283e-01 ,4.3435e-01 ,3.2583e-01 , & - &2.1731e-01 ,1.1522e-01 ,5.8302e-02 /) - kao(:, 3, 4,13) = (/ & - &1.0243e+00 ,8.9626e-01 ,7.6836e-01 ,6.4035e-01 ,5.1240e-01 ,3.8438e-01 , & - &2.5643e-01 ,1.3949e-01 ,7.9878e-02 /) - kao(:, 4, 4,13) = (/ & - &1.1800e+00 ,1.0326e+00 ,8.8512e-01 ,7.3767e-01 ,5.9020e-01 ,4.4282e-01 , & - &2.9609e-01 ,1.6997e-01 ,1.0651e-01 /) - kao(:, 5, 4,13) = (/ & - &1.3277e+00 ,1.1619e+00 ,9.9598e-01 ,8.3009e-01 ,6.6410e-01 ,4.9823e-01 , & - &3.3917e-01 ,2.0392e-01 ,1.3923e-01 /) - kao(:, 1, 5,13) = (/ & - &1.2769e+00 ,1.1173e+00 ,9.5773e-01 ,7.9808e-01 ,6.3854e-01 ,4.7892e-01 , & - &3.1932e-01 ,1.5974e-01 ,3.6366e-02 /) - kao(:, 2, 5,13) = (/ & - &1.5754e+00 ,1.3783e+00 ,1.1815e+00 ,9.8457e-01 ,7.8769e-01 ,5.9081e-01 , & - &3.9400e-01 ,1.9711e-01 ,5.2068e-02 /) - kao(:, 3, 5,13) = (/ & - &1.8818e+00 ,1.6466e+00 ,1.4114e+00 ,1.1761e+00 ,9.4096e-01 ,7.0577e-01 , & - &4.7057e-01 ,2.3659e-01 ,7.1428e-02 /) - kao(:, 4, 5,13) = (/ & - &2.1862e+00 ,1.9130e+00 ,1.6397e+00 ,1.3666e+00 ,1.0933e+00 ,8.2000e-01 , & - &5.4672e-01 ,2.8019e-01 ,9.6282e-02 /) - kao(:, 5, 5,13) = (/ & - &2.4918e+00 ,2.1806e+00 ,1.8691e+00 ,1.5576e+00 ,1.2460e+00 ,9.3474e-01 , & - &6.2322e-01 ,3.2775e-01 ,1.2758e-01 /) - kao(:, 1, 6,13) = (/ & - &2.0873e+00 ,1.8265e+00 ,1.5654e+00 ,1.3046e+00 ,1.0437e+00 ,7.8276e-01 , & - &5.2187e-01 ,2.6100e-01 ,3.1022e-02 /) - kao(:, 2, 6,13) = (/ & - &2.6230e+00 ,2.2953e+00 ,1.9673e+00 ,1.6394e+00 ,1.3116e+00 ,9.8380e-01 , & - &6.5587e-01 ,3.2796e-01 ,4.5564e-02 /) - kao(:, 3, 6,13) = (/ & - &3.1789e+00 ,2.7816e+00 ,2.3843e+00 ,1.9870e+00 ,1.5894e+00 ,1.1921e+00 , & - &7.9481e-01 ,3.9748e-01 ,6.4081e-02 /) - kao(:, 4, 6,13) = (/ & - &3.7665e+00 ,3.2952e+00 ,2.8247e+00 ,2.3538e+00 ,1.8832e+00 ,1.4124e+00 , & - &9.4165e-01 ,4.7095e-01 ,8.7003e-02 /) - kao(:, 5, 6,13) = (/ & - &4.3632e+00 ,3.8180e+00 ,3.2726e+00 ,2.7273e+00 ,2.1819e+00 ,1.6363e+00 , & - &1.0910e+00 ,5.4560e-01 ,1.1609e-01 /) - kao(:, 1, 7,13) = (/ & - &3.5237e+00 ,3.0834e+00 ,2.6428e+00 ,2.2023e+00 ,1.7619e+00 ,1.3214e+00 , & - &8.8102e-01 ,4.4047e-01 ,2.5898e-02 /) - kao(:, 2, 7,13) = (/ & - &4.5331e+00 ,3.9665e+00 ,3.3999e+00 ,2.8333e+00 ,2.2667e+00 ,1.6999e+00 , & - &1.1334e+00 ,5.6671e-01 ,3.9066e-02 /) - kao(:, 3, 7,13) = (/ & - &5.6378e+00 ,4.9326e+00 ,4.2280e+00 ,3.5234e+00 ,2.8189e+00 ,2.1142e+00 , & - &1.4094e+00 ,7.0475e-01 ,5.6679e-02 /) - kao(:, 4, 7,13) = (/ & - &6.8044e+00 ,5.9541e+00 ,5.1033e+00 ,4.2525e+00 ,3.4021e+00 ,2.5518e+00 , & - &1.7012e+00 ,8.5062e-01 ,7.8214e-02 /) - kao(:, 5, 7,13) = (/ & - &7.9748e+00 ,6.9785e+00 ,5.9814e+00 ,4.9841e+00 ,3.9872e+00 ,2.9906e+00 , & - &1.9939e+00 ,9.9695e-01 ,1.0573e-01 /) - kao(:, 1, 8,13) = (/ & - &7.0539e+00 ,6.1726e+00 ,5.2906e+00 ,4.4088e+00 ,3.5267e+00 ,2.6453e+00 , & - &1.7634e+00 ,8.8179e-01 ,2.1249e-02 /) - kao(:, 2, 8,13) = (/ & - &9.3702e+00 ,8.1985e+00 ,7.0273e+00 ,5.8560e+00 ,4.6849e+00 ,3.5137e+00 , & - &2.3424e+00 ,1.1713e+00 ,3.3095e-02 /) - kao(:, 3, 8,13) = (/ & - &1.1943e+01 ,1.0450e+01 ,8.9569e+00 ,7.4646e+00 ,5.9714e+00 ,4.4785e+00 , & - &2.9858e+00 ,1.4929e+00 ,4.9465e-02 /) - kao(:, 4, 8,13) = (/ & - &1.4646e+01 ,1.2815e+01 ,1.0984e+01 ,9.1536e+00 ,7.3228e+00 ,5.4925e+00 , & - &3.6616e+00 ,1.8307e+00 ,7.0099e-02 /) - kao(:, 5, 8,13) = (/ & - &1.7489e+01 ,1.5303e+01 ,1.3117e+01 ,1.0930e+01 ,8.7446e+00 ,6.5589e+00 , & - &4.3724e+00 ,2.1863e+00 ,9.5981e-02 /) - kao(:, 1, 9,13) = (/ & - &2.6371e+01 ,2.3078e+01 ,1.9780e+01 ,1.6484e+01 ,1.3187e+01 ,9.8900e+00 , & - &6.5930e+00 ,3.2967e+00 ,6.8943e-03 /) - kao(:, 2, 9,13) = (/ & - &3.6211e+01 ,3.1684e+01 ,2.7158e+01 ,2.2631e+01 ,1.8105e+01 ,1.3579e+01 , & - &9.0530e+00 ,4.5262e+00 ,1.7485e-02 /) - kao(:, 3, 9,13) = (/ & - &4.7281e+01 ,4.1374e+01 ,3.5462e+01 ,2.9549e+01 ,2.3642e+01 ,1.7731e+01 , & - &1.1820e+01 ,5.9103e+00 ,4.0011e-02 /) - kao(:, 4, 9,13) = (/ & - &5.9381e+01 ,5.1957e+01 ,4.4537e+01 ,3.7114e+01 ,2.9690e+01 ,2.2267e+01 , & - &1.4846e+01 ,7.4229e+00 ,6.1300e-02 /) - kao(:, 5, 9,13) = (/ & - &7.2474e+01 ,6.3419e+01 ,5.4356e+01 ,4.5296e+01 ,3.6239e+01 ,2.7178e+01 , & - &1.8119e+01 ,9.0595e+00 ,8.5682e-02 /) - kao(:, 1,10,13) = (/ & - &1.1184e+02 ,9.7849e+01 ,8.3875e+01 ,6.9894e+01 ,5.5915e+01 ,4.1936e+01 , & - &2.7957e+01 ,1.3979e+01 ,1.8093e-05 /) - kao(:, 2,10,13) = (/ & - &1.5816e+02 ,1.3839e+02 ,1.1862e+02 ,9.8846e+01 ,7.9081e+01 ,5.9311e+01 , & - &3.9538e+01 ,1.9769e+01 ,2.0368e-03 /) - kao(:, 3,10,13) = (/ & - &2.1176e+02 ,1.8530e+02 ,1.5882e+02 ,1.3236e+02 ,1.0588e+02 ,7.9412e+01 , & - &5.2940e+01 ,2.6470e+01 ,1.0379e-02 /) - kao(:, 4,10,13) = (/ & - &2.7234e+02 ,2.3829e+02 ,2.0425e+02 ,1.7021e+02 ,1.3616e+02 ,1.0213e+02 , & - &6.8082e+01 ,3.4042e+01 ,8.3550e-03 /) - kao(:, 5,10,13) = (/ & - &3.3838e+02 ,2.9608e+02 ,2.5378e+02 ,2.1148e+02 ,1.6919e+02 ,1.2688e+02 , & - &8.4588e+01 ,4.2296e+01 ,2.4237e-02 /) - kao(:, 1,11,13) = (/ & - &1.9607e+02 ,1.7156e+02 ,1.4706e+02 ,1.2254e+02 ,9.8035e+01 ,7.3528e+01 , & - &4.9019e+01 ,2.4510e+01 ,1.9563e-05 /) - kao(:, 2,11,13) = (/ & - &2.7783e+02 ,2.4308e+02 ,2.0836e+02 ,1.7363e+02 ,1.3891e+02 ,1.0418e+02 , & - &6.9451e+01 ,3.4727e+01 ,2.1737e-05 /) - kao(:, 3,11,13) = (/ & - &3.7392e+02 ,3.2720e+02 ,2.8047e+02 ,2.3371e+02 ,1.8697e+02 ,1.4023e+02 , & - &9.3485e+01 ,4.6744e+01 ,2.8098e-05 /) - kao(:, 4,11,13) = (/ & - &4.8258e+02 ,4.2223e+02 ,3.6194e+02 ,3.0162e+02 ,2.4128e+02 ,1.8096e+02 , & - &1.2064e+02 ,6.0325e+01 ,6.2823e-03 /) - kao(:, 5,11,13) = (/ & - &6.0149e+02 ,5.2626e+02 ,4.5111e+02 ,3.7591e+02 ,3.0076e+02 ,2.2554e+02 , & - &1.5037e+02 ,7.5184e+01 ,1.4409e-02 /) - kao(:, 1,12,13) = (/ & - &2.5475e+02 ,2.2289e+02 ,1.9106e+02 ,1.5923e+02 ,1.2737e+02 ,9.5526e+01 , & - &6.3684e+01 ,3.1843e+01 ,2.0642e-05 /) - kao(:, 2,12,13) = (/ & - &3.6233e+02 ,3.1704e+02 ,2.7175e+02 ,2.2647e+02 ,1.8117e+02 ,1.3587e+02 , & - &9.0584e+01 ,4.5292e+01 ,3.1983e-05 /) - kao(:, 3,12,13) = (/ & - &4.8916e+02 ,4.2803e+02 ,3.6684e+02 ,3.0571e+02 ,2.4456e+02 ,1.8343e+02 , & - &1.2228e+02 ,6.1143e+01 ,4.9821e-05 /) - kao(:, 4,12,13) = (/ & - &6.3314e+02 ,5.5397e+02 ,4.7487e+02 ,3.9571e+02 ,3.1654e+02 ,2.3742e+02 , & - &1.5828e+02 ,7.9139e+01 ,7.0156e-05 /) - kao(:, 5,12,13) = (/ & - &7.9128e+02 ,6.9231e+02 ,5.9347e+02 ,4.9456e+02 ,3.9565e+02 ,2.9675e+02 , & - &1.9782e+02 ,9.8911e+01 ,2.0440e-02 /) - kao(:, 1,13,13) = (/ & - &2.6423e+02 ,2.3120e+02 ,1.9817e+02 ,1.6514e+02 ,1.3211e+02 ,9.9077e+01 , & - &6.6055e+01 ,3.3026e+01 ,2.0316e-05 /) - kao(:, 2,13,13) = (/ & - &3.7762e+02 ,3.3041e+02 ,2.8322e+02 ,2.3600e+02 ,1.8882e+02 ,1.4161e+02 , & - &9.4405e+01 ,4.7199e+01 ,3.9220e-05 /) - kao(:, 3,13,13) = (/ & - &5.1221e+02 ,4.4817e+02 ,3.8414e+02 ,3.2014e+02 ,2.5611e+02 ,1.9208e+02 , & - &1.2806e+02 ,6.4027e+01 ,5.9611e-05 /) - kao(:, 4,13,13) = (/ & - &6.6615e+02 ,5.8290e+02 ,4.9961e+02 ,4.1636e+02 ,3.3309e+02 ,2.4982e+02 , & - &1.6655e+02 ,8.3275e+01 ,8.3600e-05 /) - kao(:, 5,13,13) = (/ & - &8.3847e+02 ,7.3367e+02 ,6.2884e+02 ,5.2405e+02 ,4.1925e+02 ,3.1441e+02 , & - &2.0962e+02 ,1.0481e+02 ,8.6814e-03 /) - kao(:, 1, 1,14) = (/ & - &1.4546e-01 ,1.2729e-01 ,1.0913e-01 ,9.0969e-02 ,7.2816e-02 ,6.3783e-02 , & - &5.7732e-02 ,5.8710e-02 ,8.0301e-02 /) - kao(:, 2, 1,14) = (/ & - &1.6927e-01 ,1.4814e-01 ,1.2702e-01 ,1.0589e-01 ,8.6710e-02 ,8.1091e-02 , & - &8.1369e-02 ,8.2706e-02 ,1.1649e-01 /) - kao(:, 3, 1,14) = (/ & - &1.9294e-01 ,1.6889e-01 ,1.4479e-01 ,1.2072e-01 ,1.0647e-01 ,1.0625e-01 , & - &1.1521e-01 ,1.1490e-01 ,1.6620e-01 /) - kao(:, 4, 1,14) = (/ & - &2.1639e-01 ,1.8940e-01 ,1.6240e-01 ,1.3541e-01 ,1.3447e-01 ,1.4239e-01 , & - &1.5920e-01 ,1.5808e-01 ,2.2919e-01 /) - kao(:, 5, 1,14) = (/ & - &2.3882e-01 ,2.0905e-01 ,1.7929e-01 ,1.5673e-01 ,1.6730e-01 ,1.8853e-01 , & - &2.1227e-01 ,2.1249e-01 ,3.0359e-01 /) - kao(:, 1, 2,14) = (/ & - &2.2939e-01 ,2.0073e-01 ,1.7206e-01 ,1.4339e-01 ,1.1475e-01 ,8.6951e-02 , & - &7.2184e-02 ,6.3155e-02 ,8.0463e-02 /) - kao(:, 2, 2,14) = (/ & - &2.6931e-01 ,2.3569e-01 ,2.0200e-01 ,1.6840e-01 ,1.3475e-01 ,1.0880e-01 , & - &9.2729e-02 ,8.6720e-02 ,1.1351e-01 /) - kao(:, 3, 2,14) = (/ & - &3.0958e-01 ,2.7100e-01 ,2.3236e-01 ,1.9370e-01 ,1.5506e-01 ,1.3547e-01 , & - &1.2355e-01 ,1.2394e-01 ,1.6330e-01 /) - kao(:, 4, 2,14) = (/ & - &3.5073e-01 ,3.0694e-01 ,2.6319e-01 ,2.1943e-01 ,1.7928e-01 ,1.7126e-01 , & - &1.6643e-01 ,1.7360e-01 ,2.2783e-01 /) - kao(:, 5, 2,14) = (/ & - &3.9134e-01 ,3.4248e-01 ,2.9368e-01 ,2.4496e-01 ,2.1593e-01 ,2.1367e-01 , & - &2.2253e-01 ,2.3537e-01 ,3.0544e-01 /) - kao(:, 1, 3,14) = (/ & - &4.7010e-01 ,4.1135e-01 ,3.5261e-01 ,2.9387e-01 ,2.3512e-01 ,1.7638e-01 , & - &1.1764e-01 ,7.8616e-02 ,7.6241e-02 /) - kao(:, 2, 3,14) = (/ & - &5.6247e-01 ,4.9221e-01 ,4.2195e-01 ,3.5165e-01 ,2.8136e-01 ,2.1111e-01 , & - &1.4480e-01 ,1.0039e-01 ,1.0523e-01 /) - kao(:, 3, 3,14) = (/ & - &6.5749e-01 ,5.7537e-01 ,4.9319e-01 ,4.1105e-01 ,3.2895e-01 ,2.4684e-01 , & - &1.7889e-01 ,1.3157e-01 ,1.4752e-01 /) - kao(:, 4, 3,14) = (/ & - &7.5292e-01 ,6.5895e-01 ,5.6476e-01 ,4.7081e-01 ,3.7678e-01 ,2.8272e-01 , & - &2.2206e-01 ,1.7756e-01 ,2.0769e-01 /) - kao(:, 5, 3,14) = (/ & - &8.4721e-01 ,7.4147e-01 ,6.3570e-01 ,5.2989e-01 ,4.2402e-01 ,3.2414e-01 , & - &2.7831e-01 ,2.3784e-01 ,2.8406e-01 /) - kao(:, 1, 4,14) = (/ & - &9.7171e-01 ,8.5020e-01 ,7.2877e-01 ,6.0734e-01 ,4.8590e-01 ,3.6445e-01 , & - &2.4301e-01 ,1.2213e-01 ,6.9724e-02 /) - kao(:, 2, 4,14) = (/ & - &1.1819e+00 ,1.0342e+00 ,8.8647e-01 ,7.3863e-01 ,5.9101e-01 ,4.4338e-01 , & - &2.9560e-01 ,1.5522e-01 ,9.6103e-02 /) - kao(:, 3, 4,14) = (/ & - &1.3997e+00 ,1.2249e+00 ,1.0500e+00 ,8.7515e-01 ,7.0004e-01 ,5.2502e-01 , & - &3.5022e-01 ,1.9543e-01 ,1.3302e-01 /) - kao(:, 4, 4,14) = (/ & - &1.6223e+00 ,1.4197e+00 ,1.2167e+00 ,1.0141e+00 ,8.1148e-01 ,6.0893e-01 , & - &4.0620e-01 ,2.4484e-01 ,1.8472e-01 /) - kao(:, 5, 4,14) = (/ & - &1.8526e+00 ,1.6213e+00 ,1.3899e+00 ,1.1585e+00 ,9.2711e-01 ,6.9563e-01 , & - &4.6462e-01 ,3.0719e-01 ,2.5304e-01 /) - kao(:, 1, 5,14) = (/ & - &1.8192e+00 ,1.5916e+00 ,1.3645e+00 ,1.1369e+00 ,9.0965e-01 ,6.8222e-01 , & - &4.5478e-01 ,2.2743e-01 ,6.1385e-02 /) - kao(:, 2, 5,14) = (/ & - &2.2491e+00 ,1.9677e+00 ,1.6869e+00 ,1.4056e+00 ,1.1246e+00 ,8.4332e-01 , & - &5.6233e-01 ,2.8119e-01 ,8.6006e-02 /) - kao(:, 3, 5,14) = (/ & - &2.7102e+00 ,2.3722e+00 ,2.0328e+00 ,1.6939e+00 ,1.3553e+00 ,1.0165e+00 , & - &6.7791e-01 ,3.3919e-01 ,1.2062e-01 /) - kao(:, 4, 5,14) = (/ & - &3.1976e+00 ,2.7982e+00 ,2.3984e+00 ,1.9988e+00 ,1.5996e+00 ,1.1997e+00 , & - &8.0003e-01 ,4.0180e-01 ,1.6649e-01 /) - kao(:, 5, 5,14) = (/ & - &3.6973e+00 ,3.2349e+00 ,2.7730e+00 ,2.3110e+00 ,1.8489e+00 ,1.3873e+00 , & - &9.2506e-01 ,4.7326e-01 ,2.2654e-01 /) - kao(:, 1, 6,14) = (/ & - &3.1019e+00 ,2.7140e+00 ,2.3265e+00 ,1.9387e+00 ,1.5510e+00 ,1.1633e+00 , & - &7.7552e-01 ,3.8777e-01 ,5.2928e-02 /) - kao(:, 2, 6,14) = (/ & - &3.9302e+00 ,3.4386e+00 ,2.9473e+00 ,2.4561e+00 ,1.9652e+00 ,1.4738e+00 , & - &9.8267e-01 ,4.9148e-01 ,7.5058e-02 /) - kao(:, 3, 6,14) = (/ & - &4.8343e+00 ,4.2298e+00 ,3.6258e+00 ,3.0217e+00 ,2.4174e+00 ,1.8133e+00 , & - &1.2090e+00 ,6.0467e-01 ,1.0698e-01 /) - kao(:, 4, 6,14) = (/ & - &5.7912e+00 ,5.0677e+00 ,4.3433e+00 ,3.6195e+00 ,2.8961e+00 ,2.1723e+00 , & - &1.4483e+00 ,7.2440e-01 ,1.4901e-01 /) - kao(:, 5, 6,14) = (/ & - &6.7811e+00 ,5.9338e+00 ,5.0864e+00 ,4.2388e+00 ,3.3910e+00 ,2.5430e+00 , & - &1.6957e+00 ,8.4831e-01 ,2.0161e-01 /) - kao(:, 1, 7,14) = (/ & - &5.4638e+00 ,4.7799e+00 ,4.0972e+00 ,3.4147e+00 ,2.7314e+00 ,2.0488e+00 , & - &1.3659e+00 ,6.8294e-01 ,4.5673e-02 /) - kao(:, 2, 7,14) = (/ & - &7.1063e+00 ,6.2177e+00 ,5.3292e+00 ,4.4410e+00 ,3.5530e+00 ,2.6647e+00 , & - &1.7765e+00 ,8.8835e-01 ,6.5608e-02 /) - kao(:, 3, 7,14) = (/ & - &8.9165e+00 ,7.8008e+00 ,6.6867e+00 ,5.5727e+00 ,4.4582e+00 ,3.3435e+00 , & - &2.2293e+00 ,1.1147e+00 ,9.3558e-02 /) - kao(:, 4, 7,14) = (/ & - &1.0858e+01 ,9.5015e+00 ,8.1441e+00 ,6.7868e+00 ,5.4291e+00 ,4.0729e+00 , & - &2.7150e+00 ,1.3577e+00 ,1.3310e-01 /) - kao(:, 5, 7,14) = (/ & - &1.2930e+01 ,1.1317e+01 ,9.6983e+00 ,8.0819e+00 ,6.4667e+00 ,4.8496e+00 , & - &3.2333e+00 ,1.6168e+00 ,1.8236e-01 /) - kao(:, 1, 8,14) = (/ & - &1.1346e+01 ,9.9283e+00 ,8.5084e+00 ,7.0912e+00 ,5.6732e+00 ,4.2544e+00 , & - &2.8362e+00 ,1.4181e+00 ,3.9157e-02 /) - kao(:, 2, 8,14) = (/ & - &1.5150e+01 ,1.3257e+01 ,1.1363e+01 ,9.4692e+00 ,7.5753e+00 ,5.6816e+00 , & - &3.7878e+00 ,1.8940e+00 ,5.7302e-02 /) - kao(:, 3, 8,14) = (/ & - &1.9415e+01 ,1.6989e+01 ,1.4562e+01 ,1.2134e+01 ,9.7069e+00 ,7.2806e+00 , & - &4.8539e+00 ,2.4270e+00 ,8.2333e-02 /) - kao(:, 4, 8,14) = (/ & - &2.4092e+01 ,2.1079e+01 ,1.8070e+01 ,1.5059e+01 ,1.2046e+01 ,9.0355e+00 , & - &6.0239e+00 ,3.0117e+00 ,1.1787e-01 /) - kao(:, 5, 8,14) = (/ & - &2.9062e+01 ,2.5429e+01 ,2.1796e+01 ,1.8164e+01 ,1.4531e+01 ,1.0899e+01 , & - &7.2663e+00 ,3.6329e+00 ,1.6482e-01 /) - kao(:, 1, 9,14) = (/ & - &4.3556e+01 ,3.8120e+01 ,3.2674e+01 ,2.7224e+01 ,2.1783e+01 ,1.6334e+01 , & - &1.0888e+01 ,5.4440e+00 ,2.2652e-02 /) - kao(:, 2, 9,14) = (/ & - &5.9826e+01 ,5.2350e+01 ,4.4870e+01 ,3.7394e+01 ,2.9916e+01 ,2.2436e+01 , & - &1.4957e+01 ,7.4785e+00 ,4.6893e-02 /) - kao(:, 3, 9,14) = (/ & - &7.8381e+01 ,6.8585e+01 ,5.8789e+01 ,4.8993e+01 ,3.9194e+01 ,2.9396e+01 , & - &1.9597e+01 ,9.7990e+00 ,7.2210e-02 /) - kao(:, 4, 9,14) = (/ & - &9.9048e+01 ,8.6676e+01 ,7.4294e+01 ,6.1915e+01 ,4.9526e+01 ,3.7147e+01 , & - &2.4767e+01 ,1.2383e+01 ,1.0452e-01 /) - kao(:, 5, 9,14) = (/ & - &1.2130e+02 ,1.0614e+02 ,9.0980e+01 ,7.5818e+01 ,6.0656e+01 ,4.5493e+01 , & - &3.0327e+01 ,1.5163e+01 ,1.4798e-01 /) - kao(:, 1,10,14) = (/ & - &1.8821e+02 ,1.6469e+02 ,1.4116e+02 ,1.1763e+02 ,9.4105e+01 ,7.0580e+01 , & - &4.7054e+01 ,2.3527e+01 ,9.8284e-06 /) - kao(:, 2,10,14) = (/ & - &2.6476e+02 ,2.3166e+02 ,1.9858e+02 ,1.6548e+02 ,1.3239e+02 ,9.9294e+01 , & - &6.6189e+01 ,3.3094e+01 ,1.2967e-05 /) - kao(:, 3,10,14) = (/ & - &3.5496e+02 ,3.1059e+02 ,2.6621e+02 ,2.2185e+02 ,1.7748e+02 ,1.3310e+02 , & - &8.8736e+01 ,4.4370e+01 ,2.4344e-02 /) - kao(:, 4,10,14) = (/ & - &4.5706e+02 ,3.9992e+02 ,3.4280e+02 ,2.8566e+02 ,2.2852e+02 ,1.7137e+02 , & - &1.1427e+02 ,5.7136e+01 ,2.2864e-02 /) - kao(:, 5,10,14) = (/ & - &5.6918e+02 ,4.9801e+02 ,4.2687e+02 ,3.5573e+02 ,2.8459e+02 ,2.1346e+02 , & - &1.4231e+02 ,7.1148e+01 ,3.1037e-02 /) - kao(:, 1,11,14) = (/ & - &3.3285e+02 ,2.9123e+02 ,2.4962e+02 ,2.0803e+02 ,1.6643e+02 ,1.2482e+02 , & - &8.3209e+01 ,4.1605e+01 ,7.6787e-06 /) - kao(:, 2,11,14) = (/ & - &4.7091e+02 ,4.1207e+02 ,3.5320e+02 ,2.9434e+02 ,2.3549e+02 ,1.7660e+02 , & - &1.1774e+02 ,5.8871e+01 ,1.2053e-05 /) - kao(:, 3,11,14) = (/ & - &6.3434e+02 ,5.5505e+02 ,4.7579e+02 ,3.9648e+02 ,3.1719e+02 ,2.3787e+02 , & - &1.5859e+02 ,7.9298e+01 ,1.7979e-05 /) - kao(:, 4,11,14) = (/ & - &8.2080e+02 ,7.1819e+02 ,6.1562e+02 ,5.1300e+02 ,4.1039e+02 ,3.0781e+02 , & - &2.0518e+02 ,1.0261e+02 ,2.6043e-05 /) - kao(:, 5,11,14) = (/ & - &1.0279e+03 ,8.9936e+02 ,7.7089e+02 ,6.4243e+02 ,5.1399e+02 ,3.8545e+02 , & - &2.5700e+02 ,1.2849e+02 ,3.6811e-02 /) - kao(:, 1,12,14) = (/ & - &4.4072e+02 ,3.8565e+02 ,3.3056e+02 ,2.7546e+02 ,2.2036e+02 ,1.6527e+02 , & - &1.1018e+02 ,5.5100e+01 ,6.3836e-06 /) - kao(:, 2,12,14) = (/ & - &6.2804e+02 ,5.4949e+02 ,4.7103e+02 ,3.9252e+02 ,3.1400e+02 ,2.3550e+02 , & - &1.5700e+02 ,7.8501e+01 ,1.0354e-05 /) - kao(:, 3,12,14) = (/ & - &8.4964e+02 ,7.4346e+02 ,6.3726e+02 ,5.3106e+02 ,4.2484e+02 ,3.1862e+02 , & - &2.1241e+02 ,1.0621e+02 ,1.6673e-05 /) - kao(:, 4,12,14) = (/ & - &1.1033e+03 ,9.6532e+02 ,8.2745e+02 ,6.8953e+02 ,5.5162e+02 ,4.1376e+02 , & - &2.7582e+02 ,1.3790e+02 ,2.5500e-05 /) - kao(:, 5,12,14) = (/ & - &1.3847e+03 ,1.2117e+03 ,1.0386e+03 ,8.6544e+02 ,6.9241e+02 ,5.1925e+02 , & - &3.4620e+02 ,1.7310e+02 ,3.8579e-05 /) - kao(:, 1,13,14) = (/ & - &4.7310e+02 ,4.1397e+02 ,3.5483e+02 ,2.9569e+02 ,2.3655e+02 ,1.7741e+02 , & - &1.1827e+02 ,5.9135e+01 ,7.3062e-06 /) - kao(:, 2,13,14) = (/ & - &6.7569e+02 ,5.9130e+02 ,5.0679e+02 ,4.2232e+02 ,3.3786e+02 ,2.5340e+02 , & - &1.6892e+02 ,8.4465e+01 ,8.6740e-06 /) - kao(:, 3,13,14) = (/ & - &9.1788e+02 ,8.0315e+02 ,6.8841e+02 ,5.7369e+02 ,4.5893e+02 ,3.4424e+02 , & - &2.2946e+02 ,1.1474e+02 ,1.3663e-05 /) - kao(:, 4,13,14) = (/ & - &1.1975e+03 ,1.0479e+03 ,8.9816e+02 ,7.4843e+02 ,5.9874e+02 ,4.4905e+02 , & - &2.9938e+02 ,1.4969e+02 ,2.1412e-05 /) - kao(:, 5,13,14) = (/ & - &1.5101e+03 ,1.3214e+03 ,1.1326e+03 ,9.4376e+02 ,7.5504e+02 ,5.6626e+02 , & - &3.7752e+02 ,1.8876e+02 ,3.3615e-05 /) - kao(:, 1, 1,15) = (/ & - &1.9051e-01 ,1.6674e-01 ,1.4292e-01 ,1.1918e-01 ,9.5396e-02 ,7.5613e-02 , & - &8.0457e-02 ,7.8890e-02 ,1.1694e-01 /) - kao(:, 2, 1,15) = (/ & - &2.2168e-01 ,1.9400e-01 ,1.6634e-01 ,1.3865e-01 ,1.1100e-01 ,1.0009e-01 , & - &1.1113e-01 ,1.0913e-01 ,1.6166e-01 /) - kao(:, 3, 1,15) = (/ & - &2.5284e-01 ,2.2130e-01 ,1.8975e-01 ,1.5816e-01 ,1.2778e-01 ,1.3319e-01 , & - &1.4805e-01 ,1.4559e-01 ,2.1625e-01 /) - kao(:, 4, 1,15) = (/ & - &2.8343e-01 ,2.4807e-01 ,2.1270e-01 ,1.7731e-01 ,1.5213e-01 ,1.7480e-01 , & - &1.9314e-01 ,1.8830e-01 ,2.8691e-01 /) - kao(:, 5, 1,15) = (/ & - &3.1350e-01 ,2.7439e-01 ,2.3527e-01 ,1.9622e-01 ,1.9594e-01 ,2.3135e-01 , & - &2.5307e-01 ,2.4156e-01 ,3.8082e-01 /) - kao(:, 1, 2,15) = (/ & - &3.2111e-01 ,2.8102e-01 ,2.4090e-01 ,2.0079e-01 ,1.6069e-01 ,1.2054e-01 , & - &9.0034e-02 ,8.9831e-02 ,1.2243e-01 /) - kao(:, 2, 2,15) = (/ & - &3.7636e-01 ,3.2926e-01 ,2.8226e-01 ,2.3534e-01 ,1.8831e-01 ,1.4126e-01 , & - &1.2281e-01 ,1.2620e-01 ,1.7187e-01 /) - kao(:, 3, 2,15) = (/ & - &4.3275e-01 ,3.7860e-01 ,3.2463e-01 ,2.7055e-01 ,2.1650e-01 ,1.6706e-01 , & - &1.6578e-01 ,1.7060e-01 ,2.3384e-01 /) - kao(:, 4, 2,15) = (/ & - &4.8952e-01 ,4.2824e-01 ,3.6725e-01 ,3.0597e-01 ,2.4488e-01 ,2.0300e-01 , & - &2.2012e-01 ,2.2396e-01 ,3.1375e-01 /) - kao(:, 5, 2,15) = (/ & - &5.4581e-01 ,4.7748e-01 ,4.0943e-01 ,3.4119e-01 ,2.7312e-01 ,2.6005e-01 , & - &2.9166e-01 ,2.9212e-01 ,4.1866e-01 /) - kao(:, 1, 3,15) = (/ & - &6.9979e-01 ,6.1213e-01 ,5.2483e-01 ,4.3719e-01 ,3.4984e-01 ,2.6243e-01 , & - &1.7501e-01 ,9.9676e-02 ,1.1688e-01 /) - kao(:, 2, 3,15) = (/ & - &8.3387e-01 ,7.2959e-01 ,6.2545e-01 ,5.2112e-01 ,4.1694e-01 ,3.1278e-01 , & - &2.0862e-01 ,1.3660e-01 ,1.6827e-01 /) - kao(:, 3, 3,15) = (/ & - &9.7266e-01 ,8.5098e-01 ,7.2958e-01 ,6.0802e-01 ,4.8655e-01 ,3.6492e-01 , & - &2.4335e-01 ,1.8790e-01 ,2.3450e-01 /) - kao(:, 4, 3,15) = (/ & - &1.1134e+00 ,9.7421e-01 ,8.3530e-01 ,6.9606e-01 ,5.5697e-01 ,4.1779e-01 , & - &2.8251e-01 ,2.5378e-01 ,3.2011e-01 /) - kao(:, 5, 3,15) = (/ & - &1.2541e+00 ,1.0974e+00 ,9.4084e-01 ,7.8396e-01 ,6.2738e-01 ,4.7061e-01 , & - &3.3812e-01 ,3.3805e-01 ,4.3341e-01 /) - kao(:, 1, 4,15) = (/ & - &1.5338e+00 ,1.3422e+00 ,1.1503e+00 ,9.5870e-01 ,7.6686e-01 ,5.7527e-01 , & - &3.8351e-01 ,1.9180e-01 ,1.0723e-01 /) - kao(:, 2, 4,15) = (/ & - &1.8631e+00 ,1.6302e+00 ,1.3974e+00 ,1.1644e+00 ,9.3180e-01 ,6.9872e-01 , & - &4.6589e-01 ,2.3301e-01 ,1.5610e-01 /) - kao(:, 3, 4,15) = (/ & - &2.2077e+00 ,1.9315e+00 ,1.6557e+00 ,1.3803e+00 ,1.1039e+00 ,8.2801e-01 , & - &5.5191e-01 ,2.7612e-01 ,2.2377e-01 /) - kao(:, 4, 4,15) = (/ & - &2.5609e+00 ,2.2407e+00 ,1.9209e+00 ,1.6005e+00 ,1.2804e+00 ,9.6050e-01 , & - &6.4039e-01 ,3.2615e-01 ,3.1195e-01 /) - kao(:, 5, 4,15) = (/ & - &2.9154e+00 ,2.5514e+00 ,2.1867e+00 ,1.8223e+00 ,1.4581e+00 ,1.0937e+00 , & - &7.2913e-01 ,3.9607e-01 ,4.2846e-01 /) - kao(:, 1, 5,15) = (/ & - &3.0736e+00 ,2.6896e+00 ,2.3057e+00 ,1.9212e+00 ,1.5370e+00 ,1.1527e+00 , & - &7.6854e-01 ,3.8431e-01 ,1.0147e-01 /) - kao(:, 2, 5,15) = (/ & - &3.8075e+00 ,3.3314e+00 ,2.8555e+00 ,2.3797e+00 ,1.9037e+00 ,1.4279e+00 , & - &9.5192e-01 ,4.7599e-01 ,1.4471e-01 /) - kao(:, 3, 5,15) = (/ & - &4.5849e+00 ,4.0117e+00 ,3.4370e+00 ,2.8652e+00 ,2.2919e+00 ,1.7190e+00 , & - &1.1462e+00 ,5.7315e-01 ,2.0749e-01 /) - kao(:, 4, 5,15) = (/ & - &5.3872e+00 ,4.7143e+00 ,4.0418e+00 ,3.3672e+00 ,2.6939e+00 ,2.0205e+00 , & - &1.3469e+00 ,6.7361e-01 ,2.9614e-01 /) - kao(:, 5, 5,15) = (/ & - &6.2028e+00 ,5.4263e+00 ,4.6517e+00 ,3.8766e+00 ,3.1014e+00 ,2.3260e+00 , & - &1.5507e+00 ,7.7527e-01 ,4.1447e-01 /) - kao(:, 1, 6,15) = (/ & - &5.6666e+00 ,4.9583e+00 ,4.2496e+00 ,3.5417e+00 ,2.8332e+00 ,2.1246e+00 , & - &1.4165e+00 ,7.0837e-01 ,9.5689e-02 /) - kao(:, 2, 6,15) = (/ & - &7.1702e+00 ,6.2735e+00 ,5.3788e+00 ,4.4810e+00 ,3.5859e+00 ,2.6888e+00 , & - &1.7925e+00 ,8.9634e-01 ,1.3582e-01 /) - kao(:, 3, 6,15) = (/ & - &8.7850e+00 ,7.6873e+00 ,6.5880e+00 ,5.4902e+00 ,4.3923e+00 ,3.2943e+00 , & - &2.1960e+00 ,1.0981e+00 ,1.9014e-01 /) - kao(:, 4, 6,15) = (/ & - &1.0471e+01 ,9.1623e+00 ,7.8537e+00 ,6.5443e+00 ,5.2362e+00 ,3.9265e+00 , & - &2.6173e+00 ,1.3091e+00 ,2.7084e-01 /) - kao(:, 5, 6,15) = (/ & - &1.2195e+01 ,1.0670e+01 ,9.1465e+00 ,7.6219e+00 ,6.0976e+00 ,4.5729e+00 , & - &3.0483e+00 ,1.5247e+00 ,3.8788e-01 /) - kao(:, 1, 7,15) = (/ & - &1.0821e+01 ,9.4694e+00 ,8.1159e+00 ,6.7641e+00 ,5.4109e+00 ,4.0578e+00 , & - &2.7049e+00 ,1.3527e+00 ,8.8090e-02 /) - kao(:, 2, 7,15) = (/ & - &1.4005e+01 ,1.2256e+01 ,1.0505e+01 ,8.7544e+00 ,7.0039e+00 ,5.2527e+00 , & - &3.5019e+00 ,1.7510e+00 ,1.2836e-01 /) - kao(:, 3, 7,15) = (/ & - &1.7472e+01 ,1.5288e+01 ,1.3104e+01 ,1.0920e+01 ,8.7370e+00 ,6.5526e+00 , & - &4.3682e+00 ,2.1842e+00 ,1.7912e-01 /) - kao(:, 4, 7,15) = (/ & - &2.1133e+01 ,1.8491e+01 ,1.5850e+01 ,1.3209e+01 ,1.0568e+01 ,7.9265e+00 , & - &5.2835e+00 ,2.6416e+00 ,2.4968e-01 /) - kao(:, 5, 7,15) = (/ & - &2.4946e+01 ,2.1829e+01 ,1.8712e+01 ,1.5594e+01 ,1.2475e+01 ,9.3563e+00 , & - &6.2369e+00 ,3.1183e+00 ,3.5418e-01 /) - kao(:, 1, 8,15) = (/ & - &2.4402e+01 ,2.1362e+01 ,1.8302e+01 ,1.5253e+01 ,1.2203e+01 ,9.1488e+00 , & - &6.1012e+00 ,3.0503e+00 ,8.0172e-02 /) - kao(:, 2, 8,15) = (/ & - &3.2338e+01 ,2.8299e+01 ,2.4254e+01 ,2.0211e+01 ,1.6168e+01 ,1.2127e+01 , & - &8.0850e+00 ,4.0423e+00 ,1.1917e-01 /) - kao(:, 3, 8,15) = (/ & - &4.1117e+01 ,3.5977e+01 ,3.0837e+01 ,2.5703e+01 ,2.0563e+01 ,1.5418e+01 , & - &1.0280e+01 ,5.1397e+00 ,1.6937e-01 /) - kao(:, 4, 8,15) = (/ & - &5.0705e+01 ,4.4368e+01 ,3.8026e+01 ,3.1698e+01 ,2.5350e+01 ,1.9014e+01 , & - &1.2673e+01 ,6.3384e+00 ,2.3470e-01 /) - kao(:, 5, 8,15) = (/ & - &6.0900e+01 ,5.3282e+01 ,4.5673e+01 ,3.8064e+01 ,3.0449e+01 ,2.2835e+01 , & - &1.5224e+01 ,7.6126e+00 ,3.2704e-01 /) - kao(:, 1, 9,15) = (/ & - &1.0170e+02 ,8.8996e+01 ,7.6286e+01 ,6.3569e+01 ,5.0854e+01 ,3.8145e+01 , & - &2.5429e+01 ,1.2713e+01 ,7.1359e-02 /) - kao(:, 2, 9,15) = (/ & - &1.3845e+02 ,1.2114e+02 ,1.0384e+02 ,8.6532e+01 ,6.9224e+01 ,5.1921e+01 , & - &3.4611e+01 ,1.7307e+01 ,1.0767e-01 /) - kao(:, 3, 9,15) = (/ & - &1.8073e+02 ,1.5810e+02 ,1.3551e+02 ,1.1293e+02 ,9.0345e+01 ,6.7755e+01 , & - &4.5176e+01 ,2.2583e+01 ,1.5849e-01 /) - kao(:, 4, 9,15) = (/ & - &2.2745e+02 ,1.9903e+02 ,1.7061e+02 ,1.4217e+02 ,1.1373e+02 ,8.5301e+01 , & - &5.6875e+01 ,2.8433e+01 ,2.2030e-01 /) - kao(:, 5, 9,15) = (/ & - &2.7773e+02 ,2.4298e+02 ,2.0829e+02 ,1.7358e+02 ,1.3886e+02 ,1.0414e+02 , & - &6.9430e+01 ,3.4715e+01 ,3.0575e-01 /) - kao(:, 1,10,15) = (/ & - &4.7674e+02 ,4.1715e+02 ,3.5753e+02 ,2.9794e+02 ,2.3835e+02 ,1.7878e+02 , & - &1.1918e+02 ,5.9592e+01 ,7.9888e-06 /) - kao(:, 2,10,15) = (/ & - &6.6856e+02 ,5.8521e+02 ,5.0164e+02 ,4.1786e+02 ,3.3435e+02 ,2.5071e+02 , & - &1.6719e+02 ,8.3597e+01 ,1.0572e-05 /) - kao(:, 3,10,15) = (/ & - &8.9281e+02 ,7.8118e+02 ,6.6956e+02 ,5.5797e+02 ,4.4639e+02 ,3.3479e+02 , & - &2.2318e+02 ,1.1160e+02 ,1.3235e-05 /) - kao(:, 4,10,15) = (/ & - &1.1439e+03 ,1.0009e+03 ,8.5793e+02 ,7.1497e+02 ,5.7192e+02 ,4.2885e+02 , & - &2.8596e+02 ,1.4299e+02 ,7.9928e-02 /) - kao(:, 5,10,15) = (/ & - &1.4160e+03 ,1.2390e+03 ,1.0620e+03 ,8.8492e+02 ,7.0798e+02 ,5.3098e+02 , & - &3.5397e+02 ,1.7699e+02 ,2.0557e-01 /) - kao(:, 1,11,15) = (/ & - &9.1777e+02 ,8.0296e+02 ,6.8835e+02 ,5.7354e+02 ,4.5882e+02 ,3.4414e+02 , & - &2.2941e+02 ,1.1472e+02 ,9.0079e-06 /) - kao(:, 2,11,15) = (/ & - &1.2897e+03 ,1.1284e+03 ,9.6718e+02 ,8.0605e+02 ,6.4484e+02 ,4.8368e+02 , & - &3.2242e+02 ,1.6120e+02 ,1.0534e-05 /) - kao(:, 3,11,15) = (/ & - &1.7217e+03 ,1.5064e+03 ,1.2912e+03 ,1.0761e+03 ,8.6072e+02 ,6.4564e+02 , & - &4.3042e+02 ,2.1520e+02 ,1.2890e-05 /) - kao(:, 4,11,15) = (/ & - &2.2030e+03 ,1.9276e+03 ,1.6522e+03 ,1.3769e+03 ,1.1015e+03 ,8.2614e+02 , & - &5.5075e+02 ,2.7537e+02 ,1.8773e-05 /) - kao(:, 5,11,15) = (/ & - &2.7288e+03 ,2.3877e+03 ,2.0468e+03 ,1.7056e+03 ,1.3645e+03 ,1.0232e+03 , & - &6.8218e+02 ,3.4109e+02 ,2.8192e-05 /) - kao(:, 1,12,15) = (/ & - &1.3049e+03 ,1.1418e+03 ,9.7855e+02 ,8.1546e+02 ,6.5249e+02 ,4.8934e+02 , & - &3.2625e+02 ,1.6311e+02 ,7.4201e-06 /) - kao(:, 2,12,15) = (/ & - &1.8314e+03 ,1.6024e+03 ,1.3735e+03 ,1.1446e+03 ,9.1569e+02 ,6.8677e+02 , & - &4.5789e+02 ,2.2893e+02 ,9.0712e-06 /) - kao(:, 3,12,15) = (/ & - &2.4447e+03 ,2.1390e+03 ,1.8335e+03 ,1.5279e+03 ,1.2222e+03 ,9.1674e+02 , & - &6.1121e+02 ,3.0557e+02 ,9.2932e-06 /) - kao(:, 4,12,15) = (/ & - &3.1395e+03 ,2.7470e+03 ,2.3545e+03 ,1.9622e+03 ,1.5697e+03 ,1.1774e+03 , & - &7.8488e+02 ,3.9241e+02 ,1.2651e-05 /) - kao(:, 5,12,15) = (/ & - &3.8988e+03 ,3.4115e+03 ,2.9243e+03 ,2.4367e+03 ,1.9495e+03 ,1.4621e+03 , & - &9.7464e+02 ,4.8737e+02 ,2.0431e-05 /) - kao(:, 1,13,15) = (/ & - &1.4703e+03 ,1.2867e+03 ,1.1028e+03 ,9.1904e+02 ,7.3532e+02 ,5.5150e+02 , & - &3.6759e+02 ,1.8380e+02 ,5.1458e-06 /) - kao(:, 2,13,15) = (/ & - &2.0704e+03 ,1.8115e+03 ,1.5528e+03 ,1.2939e+03 ,1.0351e+03 ,7.7638e+02 , & - &5.1765e+02 ,2.5875e+02 ,6.1867e-06 /) - kao(:, 3,13,15) = (/ & - &2.7739e+03 ,2.4272e+03 ,2.0805e+03 ,1.7336e+03 ,1.3869e+03 ,1.0403e+03 , & - &6.9356e+02 ,3.4674e+02 ,7.7061e-06 /) - kao(:, 4,13,15) = (/ & - &3.5658e+03 ,3.1198e+03 ,2.6740e+03 ,2.2287e+03 ,1.7830e+03 ,1.3371e+03 , & - &8.9142e+02 ,4.4572e+02 ,1.1573e-05 /) - kao(:, 5,13,15) = (/ & - &4.4270e+03 ,3.8738e+03 ,3.3205e+03 ,2.7670e+03 ,2.2135e+03 ,1.6602e+03 , & - &1.1068e+03 ,5.5337e+02 ,1.8919e-05 /) - kao(:, 1, 1,16) = (/ & - &2.0584e-01 ,1.8014e-01 ,1.5444e-01 ,1.2874e-01 ,1.0304e-01 ,7.7345e-02 , & - &8.4273e-02 ,8.1561e-02 ,1.2397e-01 /) - kao(:, 2, 1,16) = (/ & - &2.4103e-01 ,2.1093e-01 ,1.8085e-01 ,1.5075e-01 ,1.2067e-01 ,1.0583e-01 , & - &1.1670e-01 ,1.1303e-01 ,1.7190e-01 /) - kao(:, 3, 1,16) = (/ & - &2.7664e-01 ,2.4213e-01 ,2.0759e-01 ,1.7305e-01 ,1.3852e-01 ,1.4127e-01 , & - &1.5588e-01 ,1.5105e-01 ,2.2980e-01 /) - kao(:, 4, 1,16) = (/ & - &3.1217e-01 ,2.7321e-01 ,2.3426e-01 ,1.9529e-01 ,1.5635e-01 ,1.8285e-01 , & - &2.0187e-01 ,1.9571e-01 ,2.9781e-01 /) - kao(:, 5, 1,16) = (/ & - &3.4704e-01 ,3.0374e-01 ,2.6044e-01 ,2.1712e-01 ,2.0704e-01 ,2.4179e-01 , & - &2.6249e-01 ,2.4688e-01 ,4.0744e-01 /) - kao(:, 1, 2,16) = (/ & - &3.5775e-01 ,3.1302e-01 ,2.6832e-01 ,2.2363e-01 ,1.7894e-01 ,1.3423e-01 , & - &9.4199e-02 ,9.5152e-02 ,1.3347e-01 /) - kao(:, 2, 2,16) = (/ & - &4.2272e-01 ,3.6993e-01 ,3.1710e-01 ,2.6431e-01 ,2.1146e-01 ,1.5866e-01 , & - &1.3268e-01 ,1.3412e-01 ,1.8823e-01 /) - kao(:, 3, 2,16) = (/ & - &4.8911e-01 ,4.2798e-01 ,3.6687e-01 ,3.0577e-01 ,2.4466e-01 ,1.8360e-01 , & - &1.7978e-01 ,1.8185e-01 ,2.5529e-01 /) - kao(:, 4, 2,16) = (/ & - &5.5559e-01 ,4.8623e-01 ,4.1679e-01 ,3.4735e-01 ,2.7796e-01 ,2.0932e-01 , & - &2.3570e-01 ,2.3853e-01 ,3.3493e-01 /) - kao(:, 5, 2,16) = (/ & - &6.2130e-01 ,5.4374e-01 ,4.6609e-01 ,3.8845e-01 ,3.1090e-01 ,2.6998e-01 , & - &3.0230e-01 ,3.0412e-01 ,4.4787e-01 /) - kao(:, 1, 3,16) = (/ & - &8.0759e-01 ,7.0655e-01 ,6.0564e-01 ,5.0473e-01 ,4.0382e-01 ,3.0291e-01 , & - &2.0195e-01 ,1.0457e-01 ,1.3240e-01 /) - kao(:, 2, 3,16) = (/ & - &9.6833e-01 ,8.4737e-01 ,7.2636e-01 ,6.0527e-01 ,4.8421e-01 ,3.6321e-01 , & - &2.4220e-01 ,1.5138e-01 ,1.9184e-01 /) - kao(:, 3, 3,16) = (/ & - &1.1342e+00 ,9.9245e-01 ,8.5072e-01 ,7.0903e-01 ,5.6727e-01 ,4.2548e-01 , & - &2.8373e-01 ,2.0993e-01 ,2.6621e-01 /) - kao(:, 4, 3,16) = (/ & - &1.3024e+00 ,1.1395e+00 ,9.7685e-01 ,8.1409e-01 ,6.5126e-01 ,4.8855e-01 , & - &3.2575e-01 ,2.8072e-01 ,3.5605e-01 /) - kao(:, 5, 3,16) = (/ & - &1.4698e+00 ,1.2860e+00 ,1.1024e+00 ,9.1880e-01 ,7.3505e-01 ,5.5132e-01 , & - &3.6767e-01 ,3.6382e-01 ,4.6256e-01 /) - kao(:, 1, 4,16) = (/ & - &1.8354e+00 ,1.6059e+00 ,1.3766e+00 ,1.1471e+00 ,9.1770e-01 ,6.8825e-01 , & - &4.5887e-01 ,2.2948e-01 ,1.2512e-01 /) - kao(:, 2, 4,16) = (/ & - &2.2391e+00 ,1.9593e+00 ,1.6796e+00 ,1.3998e+00 ,1.1197e+00 ,8.3982e-01 , & - &5.5988e-01 ,2.7997e-01 ,1.8724e-01 /) - kao(:, 3, 4,16) = (/ & - &2.6616e+00 ,2.3290e+00 ,1.9963e+00 ,1.6635e+00 ,1.3310e+00 ,9.9835e-01 , & - &6.6551e-01 ,3.3282e-01 ,2.6695e-01 /) - kao(:, 4, 4,16) = (/ & - &3.0942e+00 ,2.7077e+00 ,2.3212e+00 ,1.9341e+00 ,1.5474e+00 ,1.1605e+00 , & - &7.7373e-01 ,3.8698e-01 ,3.6534e-01 /) - kao(:, 5, 4,16) = (/ & - &3.5299e+00 ,3.0886e+00 ,2.6475e+00 ,2.2065e+00 ,1.7650e+00 ,1.3239e+00 , & - &8.8260e-01 ,4.4141e-01 ,4.8300e-01 /) - kao(:, 1, 5,16) = (/ & - &3.8226e+00 ,3.3446e+00 ,2.8509e+00 ,2.3892e+00 ,1.9114e+00 ,1.4335e+00 , & - &9.5565e-01 ,4.7787e-01 ,1.1560e-01 /) - kao(:, 2, 5,16) = (/ & - &4.7529e+00 ,4.1589e+00 ,3.5644e+00 ,2.9706e+00 ,2.3763e+00 ,1.7823e+00 , & - &1.1883e+00 ,5.9413e-01 ,1.7922e-01 /) - kao(:, 3, 5,16) = (/ & - &5.7385e+00 ,5.0213e+00 ,4.3040e+00 ,3.5869e+00 ,2.8697e+00 ,2.1522e+00 , & - &1.4347e+00 ,7.1742e-01 ,2.6311e-01 /) - kao(:, 4, 5,16) = (/ & - &6.7615e+00 ,5.9164e+00 ,5.0713e+00 ,4.2261e+00 ,3.3806e+00 ,2.5357e+00 , & - &1.6905e+00 ,8.4524e-01 ,3.6914e-01 /) - kao(:, 5, 5,16) = (/ & - &7.8020e+00 ,6.8269e+00 ,5.8507e+00 ,4.8765e+00 ,3.9008e+00 ,2.9261e+00 , & - &1.9507e+00 ,9.7534e-01 ,4.9832e-01 /) - kao(:, 1, 6,16) = (/ & - &7.3571e+00 ,6.4369e+00 ,5.5172e+00 ,4.5985e+00 ,3.6783e+00 ,2.7589e+00 , & - &1.8291e+00 ,9.1965e-01 ,1.0645e-01 /) - kao(:, 2, 6,16) = (/ & - &9.3468e+00 ,8.1778e+00 ,7.0095e+00 ,5.8414e+00 ,4.6732e+00 ,3.5051e+00 , & - &2.3366e+00 ,1.1682e+00 ,1.6617e-01 /) - kao(:, 3, 6,16) = (/ & - &1.1491e+01 ,1.0055e+01 ,8.6175e+00 ,7.1820e+00 ,5.7127e+00 ,4.3090e+00 , & - &2.8724e+00 ,1.4282e+00 ,2.5233e-01 /) - kao(:, 4, 6,16) = (/ & - &1.3744e+01 ,1.2025e+01 ,1.0308e+01 ,8.5898e+00 ,6.8725e+00 ,5.1546e+00 , & - &3.4361e+00 ,1.7180e+00 ,3.6410e-01 /) - kao(:, 5, 6,16) = (/ & - &1.6063e+01 ,1.4056e+01 ,1.2048e+01 ,1.0040e+01 ,8.0325e+00 ,6.0238e+00 , & - &4.0162e+00 ,2.0081e+00 ,5.0340e-01 /) - kao(:, 1, 7,16) = (/ & - &1.4766e+01 ,1.2923e+01 ,1.1075e+01 ,9.2294e+00 ,7.3836e+00 ,5.5378e+00 , & - &3.6915e+00 ,1.8460e+00 ,1.0988e-01 /) - kao(:, 2, 7,16) = (/ & - &1.9210e+01 ,1.6809e+01 ,1.4406e+01 ,1.2004e+01 ,9.6049e+00 ,7.2040e+00 , & - &4.8023e+00 ,2.4010e+00 ,1.5119e-01 /) - kao(:, 3, 7,16) = (/ & - &2.4080e+01 ,2.1071e+01 ,1.8060e+01 ,1.5050e+01 ,1.2042e+01 ,9.0305e+00 , & - &6.0199e+00 ,2.9934e+00 ,2.3822e-01 /) - kao(:, 4, 7,16) = (/ & - &2.9278e+01 ,2.5619e+01 ,2.1957e+01 ,1.8300e+01 ,1.4640e+01 ,1.0980e+01 , & - &7.3208e+00 ,3.6596e+00 ,3.5444e-01 /) - kao(:, 5, 7,16) = (/ & - &3.4690e+01 ,3.0352e+01 ,2.6017e+01 ,2.1683e+01 ,1.7349e+01 ,1.3009e+01 , & - &8.6734e+00 ,4.3366e+00 ,5.0281e-01 /) - kao(:, 1, 8,16) = (/ & - &3.5305e+01 ,3.0898e+01 ,2.6479e+01 ,2.2066e+01 ,1.7653e+01 ,1.3237e+01 , & - &8.8267e+00 ,4.4136e+00 ,1.1225e-01 /) - kao(:, 2, 8,16) = (/ & - &4.7105e+01 ,4.1217e+01 ,3.5327e+01 ,2.9443e+01 ,2.3551e+01 ,1.7664e+01 , & - &1.1776e+01 ,5.8880e+00 ,1.4909e-01 /) - kao(:, 3, 8,16) = (/ & - &6.0289e+01 ,5.2760e+01 ,4.5222e+01 ,3.7680e+01 ,3.0141e+01 ,2.2609e+01 , & - &1.5075e+01 ,7.5364e+00 ,2.2235e-01 /) - kao(:, 4, 8,16) = (/ & - &7.4572e+01 ,6.4882e+01 ,5.5930e+01 ,4.6614e+01 ,3.7287e+01 ,2.7965e+01 , & - &1.8642e+01 ,9.3209e+00 ,3.4182e-01 /) - kao(:, 5, 8,16) = (/ & - &8.9645e+01 ,7.8444e+01 ,6.7227e+01 ,5.6021e+01 ,4.4815e+01 ,3.3612e+01 , & - &2.2408e+01 ,1.1205e+01 ,4.9824e-01 /) - kao(:, 1, 9,16) = (/ & - &1.5759e+02 ,1.3788e+02 ,1.1817e+02 ,9.8475e+01 ,7.8796e+01 ,5.9083e+01 , & - &3.9390e+01 ,1.9699e+01 ,1.1304e-01 /) - kao(:, 2, 9,16) = (/ & - &2.1616e+02 ,1.8914e+02 ,1.6212e+02 ,1.3510e+02 ,1.0808e+02 ,8.1068e+01 , & - &5.4043e+01 ,2.7021e+01 ,1.5445e-01 /) - kao(:, 3, 9,16) = (/ & - &2.8258e+02 ,2.4760e+02 ,2.1223e+02 ,1.7686e+02 ,1.4149e+02 ,1.0611e+02 , & - &7.0744e+01 ,3.5373e+01 ,2.0441e-01 /) - kao(:, 4, 9,16) = (/ & - &3.5653e+02 ,3.1192e+02 ,2.6735e+02 ,2.2280e+02 ,1.7825e+02 ,1.3369e+02 , & - &8.9123e+01 ,4.4565e+01 ,3.2503e-01 /) - kao(:, 5, 9,16) = (/ & - &4.3513e+02 ,3.8075e+02 ,3.2632e+02 ,2.7197e+02 ,2.1754e+02 ,1.6316e+02 , & - &1.0877e+02 ,5.4390e+01 ,4.8785e-01 /) - kao(:, 1,10,16) = (/ & - &7.9828e+02 ,6.9859e+02 ,5.9871e+02 ,4.9899e+02 ,3.9914e+02 ,2.9935e+02 , & - &1.9957e+02 ,9.9786e+01 ,1.4112e-06 /) - kao(:, 2,10,16) = (/ & - &1.1235e+03 ,9.8329e+02 ,8.4282e+02 ,7.0236e+02 ,5.6188e+02 ,4.2131e+02 , & - &2.8094e+02 ,1.4047e+02 ,1.8812e-06 /) - kao(:, 3,10,16) = (/ & - &1.5014e+03 ,1.3138e+03 ,1.1261e+03 ,9.3840e+02 ,7.5072e+02 ,5.6311e+02 , & - &3.7536e+02 ,1.8771e+02 ,2.5472e-06 /) - kao(:, 4,10,16) = (/ & - &1.9233e+03 ,1.6832e+03 ,1.4427e+03 ,1.2020e+03 ,9.6160e+02 ,7.2135e+02 , & - &4.8081e+02 ,2.4039e+02 ,3.1592e-01 /) - kao(:, 5,10,16) = (/ & - &2.3793e+03 ,2.0824e+03 ,1.7849e+03 ,1.4876e+03 ,1.1900e+03 ,8.9243e+02 , & - &5.9503e+02 ,2.9747e+02 ,4.8703e-01 /) - kao(:, 1,11,16) = (/ & - &1.6695e+03 ,1.4608e+03 ,1.2521e+03 ,1.0434e+03 ,8.3472e+02 ,6.2605e+02 , & - &4.1737e+02 ,2.0867e+02 ,1.1529e-06 /) - kao(:, 2,11,16) = (/ & - &2.3476e+03 ,2.0540e+03 ,1.7608e+03 ,1.4673e+03 ,1.1739e+03 ,8.8029e+02 , & - &5.8691e+02 ,2.9349e+02 ,1.5382e-06 /) - kao(:, 3,11,16) = (/ & - &3.1326e+03 ,2.7416e+03 ,2.3500e+03 ,1.9579e+03 ,1.5664e+03 ,1.1749e+03 , & - &7.8334e+02 ,3.9162e+02 ,2.0823e-06 /) - kao(:, 4,11,16) = (/ & - &4.0087e+03 ,3.5076e+03 ,3.0065e+03 ,2.5054e+03 ,2.0043e+03 ,1.5033e+03 , & - &1.0022e+03 ,5.0110e+02 ,2.4008e-06 /) - kao(:, 5,11,16) = (/ & - &4.9540e+03 ,4.3346e+03 ,3.7151e+03 ,3.0963e+03 ,2.4766e+03 ,1.8577e+03 , & - &1.2385e+03 ,6.1917e+02 ,1.3302e-05 /) - kao(:, 1,12,16) = (/ & - &2.5940e+03 ,2.2689e+03 ,1.9455e+03 ,1.6210e+03 ,1.2970e+03 ,9.7271e+02 , & - &6.4849e+02 ,3.2418e+02 ,9.4397e-07 /) - kao(:, 2,12,16) = (/ & - &3.6401e+03 ,3.1850e+03 ,2.7301e+03 ,2.2751e+03 ,1.8200e+03 ,1.3650e+03 , & - &9.1001e+02 ,4.5497e+02 ,1.2594e-06 /) - kao(:, 3,12,16) = (/ & - &4.8482e+03 ,4.2436e+03 ,3.6368e+03 ,3.0301e+03 ,2.4250e+03 ,1.8187e+03 , & - &1.2120e+03 ,6.0606e+02 ,1.2513e-05 /) - kao(:, 4,12,16) = (/ & - &6.1914e+03 ,5.4187e+03 ,4.6435e+03 ,3.8696e+03 ,3.0964e+03 ,2.3220e+03 , & - &1.5479e+03 ,7.7403e+02 ,2.0845e-05 /) - kao(:, 5,12,16) = (/ & - &7.6366e+03 ,6.6419e+03 ,5.7257e+03 ,4.7728e+03 ,3.8188e+03 ,2.8637e+03 , & - &1.9092e+03 ,9.4962e+02 ,2.1463e-05 /) - kao(:, 1,13,16) = (/ & - &3.2192e+03 ,2.8160e+03 ,2.4141e+03 ,2.0117e+03 ,1.6091e+03 ,1.2070e+03 , & - &8.0460e+02 ,4.0235e+02 ,2.5866e-06 /) - kao(:, 2,13,16) = (/ & - &4.5059e+03 ,3.9428e+03 ,3.3791e+03 ,2.8160e+03 ,2.2531e+03 ,1.6897e+03 , & - &1.1264e+03 ,5.6328e+02 ,9.4719e-06 /) - kao(:, 3,13,16) = (/ & - &5.9881e+03 ,5.2388e+03 ,4.4907e+03 ,3.7423e+03 ,2.9935e+03 ,2.2450e+03 , & - &1.4968e+03 ,7.4841e+02 ,1.6561e-05 /) - kao(:, 4,13,16) = (/ & - &7.6265e+03 ,6.6729e+03 ,5.7200e+03 ,4.7671e+03 ,3.8133e+03 ,2.8600e+03 , & - &1.9066e+03 ,9.4757e+02 ,2.1537e-05 /) - kao(:, 5,13,16) = (/ & - &9.3827e+03 ,8.2086e+03 ,7.0366e+03 ,5.8639e+03 ,4.6917e+03 ,3.5181e+03 , & - &2.3456e+03 ,1.1729e+03 ,2.1283e-05 /) - -! The array KBO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels < ~100mb, temperatures, and ratios -! of H2O to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. The second index, JT, which -! runs from 1 to 5, corresponds to different temperatures. More -! specifically, JT = 3 means that the data are for the corresponding -! reference temperature TREF for this pressure level, JT = 2 refers -! to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and -! JT = 5 is for TREF+30. The third index, JP, runs from 13 to 59 and -! refers to the corresponding pressure level in PREF (e.g. JP = 13 is -! for a pressure of 95.5835 mb). The fourth index, IG, goes from 1 to -! 16, and tells us which g-interval the absorption coefficients are for. - - kbo(:, 1,13, 1) = (/ & - &1.5731e-03 ,1.8696e-03 ,1.8486e-03 ,1.7186e-03 ,1.3898e-03 /) - kbo(:, 2,13, 1) = (/ & - &1.8623e-03 ,2.3963e-03 ,2.4362e-03 ,2.2990e-03 ,1.8223e-03 /) - kbo(:, 3,13, 1) = (/ & - &2.3718e-03 ,3.1878e-03 ,3.2540e-03 ,3.0430e-03 ,2.2915e-03 /) - kbo(:, 4,13, 1) = (/ & - &3.1921e-03 ,4.3104e-03 ,4.3590e-03 ,3.9821e-03 ,2.7709e-03 /) - kbo(:, 5,13, 1) = (/ & - &4.4313e-03 ,5.8691e-03 ,5.8118e-03 ,5.1528e-03 ,3.2426e-03 /) - kbo(:, 1,14, 1) = (/ & - &8.1496e-04 ,1.1449e-03 ,1.2521e-03 ,1.2864e-03 ,1.1830e-03 /) - kbo(:, 2,14, 1) = (/ & - &9.7291e-04 ,1.4990e-03 ,1.6700e-03 ,1.7215e-03 ,1.5434e-03 /) - kbo(:, 3,14, 1) = (/ & - &1.2487e-03 ,2.0089e-03 ,2.2296e-03 ,2.2624e-03 ,1.9289e-03 /) - kbo(:, 4,14, 1) = (/ & - &1.6881e-03 ,2.7166e-03 ,2.9639e-03 ,2.9248e-03 ,2.3207e-03 /) - kbo(:, 5,14, 1) = (/ & - &2.3524e-03 ,3.6802e-03 ,3.9082e-03 ,3.7262e-03 ,2.7008e-03 /) - kbo(:, 1,15, 1) = (/ & - &4.3177e-04 ,7.4258e-04 ,8.9651e-04 ,1.0013e-03 ,1.0098e-03 /) - kbo(:, 2,15, 1) = (/ & - &5.2028e-04 ,9.8643e-04 ,1.2013e-03 ,1.3351e-03 ,1.3087e-03 /) - kbo(:, 3,15, 1) = (/ & - &6.7289e-04 ,1.3258e-03 ,1.5978e-03 ,1.7375e-03 ,1.6233e-03 /) - kbo(:, 4,15, 1) = (/ & - &9.1389e-04 ,1.7863e-03 ,2.1013e-03 ,2.2138e-03 ,1.9402e-03 /) - kbo(:, 5,15, 1) = (/ & - &1.2783e-03 ,2.4005e-03 ,2.7322e-03 ,2.7722e-03 ,2.2422e-03 /) - kbo(:, 1,16, 1) = (/ & - &2.7315e-04 ,5.4830e-04 ,7.0218e-04 ,8.1997e-04 ,8.6240e-04 /) - kbo(:, 2,16, 1) = (/ & - &3.3240e-04 ,7.3351e-04 ,9.4112e-04 ,1.0872e-03 ,1.1098e-03 /) - kbo(:, 3,16, 1) = (/ & - &4.3314e-04 ,9.8584e-04 ,1.2457e-03 ,1.4034e-03 ,1.3664e-03 /) - kbo(:, 4,16, 1) = (/ & - &5.9092e-04 ,1.3229e-03 ,1.6223e-03 ,1.7684e-03 ,1.6211e-03 /) - kbo(:, 5,16, 1) = (/ & - &8.2878e-04 ,1.7642e-03 ,2.0878e-03 ,2.1890e-03 ,1.8647e-03 /) - kbo(:, 1,17, 1) = (/ & - &1.7965e-04 ,4.1801e-04 ,5.6155e-04 ,6.7756e-04 ,7.3362e-04 /) - kbo(:, 2,17, 1) = (/ & - &2.2058e-04 ,5.6121e-04 ,7.5064e-04 ,8.9254e-04 ,9.3681e-04 /) - kbo(:, 3,17, 1) = (/ & - &2.8939e-04 ,7.5257e-04 ,9.8597e-04 ,1.1419e-03 ,1.1452e-03 /) - kbo(:, 4,17, 1) = (/ & - &3.9639e-04 ,1.0037e-03 ,1.2718e-03 ,1.4256e-03 ,1.3514e-03 /) - kbo(:, 5,17, 1) = (/ & - &5.5678e-04 ,1.3263e-03 ,1.6209e-03 ,1.7480e-03 ,1.5479e-03 /) - kbo(:, 1,18, 1) = (/ & - &1.2144e-04 ,3.2556e-04 ,4.5465e-04 ,5.6224e-04 ,6.2157e-04 /) - kbo(:, 2,18, 1) = (/ & - &1.5036e-04 ,4.3710e-04 ,6.0499e-04 ,7.3530e-04 ,7.8763e-04 /) - kbo(:, 3,18, 1) = (/ & - &1.9855e-04 ,5.8365e-04 ,7.8791e-04 ,9.3325e-04 ,9.5745e-04 /) - kbo(:, 4,18, 1) = (/ & - &2.7288e-04 ,7.7253e-04 ,1.0079e-03 ,1.1563e-03 ,1.1247e-03 /) - kbo(:, 5,18, 1) = (/ & - &3.8348e-04 ,1.0128e-03 ,1.2724e-03 ,1.4068e-03 ,1.2838e-03 /) - kbo(:, 1,19, 1) = (/ & - &8.0908e-05 ,2.5355e-04 ,3.6780e-04 ,4.6534e-04 ,5.2420e-04 /) - kbo(:, 2,19, 1) = (/ & - &1.0097e-04 ,3.3963e-04 ,4.8637e-04 ,6.0408e-04 ,6.5997e-04 /) - kbo(:, 3,19, 1) = (/ & - &1.3403e-04 ,4.5064e-04 ,6.2806e-04 ,7.6126e-04 ,7.9854e-04 /) - kbo(:, 4,19, 1) = (/ & - &1.8471e-04 ,5.9188e-04 ,7.9637e-04 ,9.3587e-04 ,9.3436e-04 /) - kbo(:, 5,19, 1) = (/ & - &2.5970e-04 ,7.6935e-04 ,9.9605e-04 ,1.1301e-03 ,1.0631e-03 /) - kbo(:, 1,20, 1) = (/ & - &5.8651e-05 ,2.0533e-04 ,3.0468e-04 ,3.8991e-04 ,4.4299e-04 /) - kbo(:, 2,20, 1) = (/ & - &7.3858e-05 ,2.7425e-04 ,4.0056e-04 ,5.0325e-04 ,5.5439e-04 /) - kbo(:, 3,20, 1) = (/ & - &9.8558e-05 ,3.6201e-04 ,5.1389e-04 ,6.3043e-04 ,6.6745e-04 /) - kbo(:, 4,20, 1) = (/ & - &1.3624e-04 ,4.7289e-04 ,6.4732e-04 ,7.7044e-04 ,7.7770e-04 /) - kbo(:, 5,20, 1) = (/ & - &1.9168e-04 ,6.1111e-04 ,8.0443e-04 ,9.2550e-04 ,8.8213e-04 /) - kbo(:, 1,21, 1) = (/ & - &4.3969e-05 ,1.6839e-04 ,2.5404e-04 ,3.2750e-04 ,3.7386e-04 /) - kbo(:, 2,21, 1) = (/ & - &5.5807e-05 ,2.2425e-04 ,3.3214e-04 ,4.2065e-04 ,4.6519e-04 /) - kbo(:, 3,21, 1) = (/ & - &7.4871e-05 ,2.9470e-04 ,4.2375e-04 ,5.2400e-04 ,5.5744e-04 /) - kbo(:, 4,21, 1) = (/ & - &1.0381e-04 ,3.8330e-04 ,5.3089e-04 ,6.3750e-04 ,6.4727e-04 /) - kbo(:, 5,21, 1) = (/ & - &1.4611e-04 ,4.9243e-04 ,6.5637e-04 ,7.6218e-04 ,7.3199e-04 /) - kbo(:, 1,22, 1) = (/ & - &3.4337e-05 ,1.4203e-04 ,2.1658e-04 ,2.8040e-04 ,3.2005e-04 /) - kbo(:, 2,22, 1) = (/ & - &4.4095e-05 ,1.8845e-04 ,2.8132e-04 ,3.5774e-04 ,3.9514e-04 /) - kbo(:, 3,22, 1) = (/ & - &5.9627e-05 ,2.4659e-04 ,3.5661e-04 ,4.4266e-04 ,4.7049e-04 /) - kbo(:, 4,22, 1) = (/ & - &8.3001e-05 ,3.1905e-04 ,4.4430e-04 ,5.3537e-04 ,5.4306e-04 /) - kbo(:, 5,22, 1) = (/ & - &1.1688e-04 ,4.0732e-04 ,5.4669e-04 ,6.3703e-04 ,6.1162e-04 /) - kbo(:, 1,23, 1) = (/ & - &2.7088e-05 ,1.2024e-04 ,1.8486e-04 ,2.4028e-04 ,2.7381e-04 /) - kbo(:, 2,23, 1) = (/ & - &3.5182e-05 ,1.5885e-04 ,2.3849e-04 ,3.0423e-04 ,3.3547e-04 /) - kbo(:, 3,23, 1) = (/ & - &4.7910e-05 ,2.0687e-04 ,3.0043e-04 ,3.7399e-04 ,3.9686e-04 /) - kbo(:, 4,23, 1) = (/ & - &6.6975e-05 ,2.6613e-04 ,3.7259e-04 ,4.4994e-04 ,4.5570e-04 /) - kbo(:, 5,23, 1) = (/ & - &9.4305e-05 ,3.3770e-04 ,4.5596e-04 ,5.3292e-04 ,5.1097e-04 /) - kbo(:, 1,24, 1) = (/ & - &2.1382e-05 ,1.0191e-04 ,1.5778e-04 ,2.0583e-04 ,2.3424e-04 /) - kbo(:, 2,24, 1) = (/ & - &2.8085e-05 ,1.3391e-04 ,2.0214e-04 ,2.5863e-04 ,2.8484e-04 /) - kbo(:, 3,24, 1) = (/ & - &3.8505e-05 ,1.7343e-04 ,2.5313e-04 ,3.1592e-04 ,3.3477e-04 /) - kbo(:, 4,24, 1) = (/ & - &5.3997e-05 ,2.2171e-04 ,3.1228e-04 ,3.7804e-04 ,3.8231e-04 /) - kbo(:, 5,24, 1) = (/ & - &7.5953e-05 ,2.7966e-04 ,3.7978e-04 ,4.4568e-04 ,4.2681e-04 /) - kbo(:, 1,25, 1) = (/ & - &1.7217e-05 ,8.6935e-05 ,1.3520e-04 ,1.7667e-04 ,2.0051e-04 /) - kbo(:, 2,25, 1) = (/ & - &2.2860e-05 ,1.1361e-04 ,1.7201e-04 ,2.2028e-04 ,2.4198e-04 /) - kbo(:, 3,25, 1) = (/ & - &3.1540e-05 ,1.4632e-04 ,2.1426e-04 ,2.6745e-04 ,2.8247e-04 /) - kbo(:, 4,25, 1) = (/ & - &4.4330e-05 ,1.8594e-04 ,2.6272e-04 ,3.1846e-04 ,3.2089e-04 /) - kbo(:, 5,25, 1) = (/ & - &6.2260e-05 ,2.3327e-04 ,3.1770e-04 ,3.7373e-04 ,3.5666e-04 /) - kbo(:, 1,26, 1) = (/ & - &1.4222e-05 ,7.4853e-05 ,1.1659e-04 ,1.5229e-04 ,1.7205e-04 /) - kbo(:, 2,26, 1) = (/ & - &1.9097e-05 ,9.7290e-05 ,1.4733e-04 ,1.8840e-04 ,2.0595e-04 /) - kbo(:, 3,26, 1) = (/ & - &2.6498e-05 ,1.2462e-04 ,1.8247e-04 ,2.2740e-04 ,2.3871e-04 /) - kbo(:, 4,26, 1) = (/ & - &3.7304e-05 ,1.5749e-04 ,2.2244e-04 ,2.6950e-04 ,2.6966e-04 /) - kbo(:, 5,26, 1) = (/ & - &5.2263e-05 ,1.9669e-04 ,2.6764e-04 ,3.1472e-04 ,2.9848e-04 /) - kbo(:, 1,27, 1) = (/ & - &1.2263e-05 ,6.5144e-05 ,1.0108e-04 ,1.3156e-04 ,1.4744e-04 /) - kbo(:, 2,27, 1) = (/ & - &1.6644e-05 ,8.4290e-05 ,1.2696e-04 ,1.6163e-04 ,1.7509e-04 /) - kbo(:, 3,27, 1) = (/ & - &2.3202e-05 ,1.0755e-04 ,1.5651e-04 ,1.9419e-04 ,2.0159e-04 /) - kbo(:, 4,27, 1) = (/ & - &3.2669e-05 ,1.3540e-04 ,1.9003e-04 ,2.2917e-04 ,2.2657e-04 /) - kbo(:, 5,27, 1) = (/ & - &4.5636e-05 ,1.6849e-04 ,2.2778e-04 ,2.6648e-04 ,2.4966e-04 /) - kbo(:, 1,28, 1) = (/ & - &1.0907e-05 ,5.7118e-05 ,8.7946e-05 ,1.1378e-04 ,1.2622e-04 /) - kbo(:, 2,28, 1) = (/ & - &1.4925e-05 ,7.3661e-05 ,1.0996e-04 ,1.3907e-04 ,1.4872e-04 /) - kbo(:, 3,28, 1) = (/ & - &2.0909e-05 ,9.3671e-05 ,1.3497e-04 ,1.6629e-04 ,1.7014e-04 /) - kbo(:, 4,28, 1) = (/ & - &2.9425e-05 ,1.1761e-04 ,1.6330e-04 ,1.9540e-04 ,1.9022e-04 /) - kbo(:, 5,28, 1) = (/ & - &4.0966e-05 ,1.4604e-04 ,1.9535e-04 ,2.2654e-04 ,2.0877e-04 /) - kbo(:, 1,29, 1) = (/ & - &1.0363e-05 ,5.1128e-05 ,7.7457e-05 ,9.9099e-05 ,1.0807e-04 /) - kbo(:, 2,29, 1) = (/ & - &1.4287e-05 ,6.5810e-05 ,9.6485e-05 ,1.2056e-04 ,1.2631e-04 /) - kbo(:, 3,29, 1) = (/ & - &2.0078e-05 ,8.3622e-05 ,1.1822e-04 ,1.4364e-04 ,1.4366e-04 /) - kbo(:, 4,29, 1) = (/ & - &2.8213e-05 ,1.0495e-04 ,1.4288e-04 ,1.6839e-04 ,1.5982e-04 /) - kbo(:, 5,29, 1) = (/ & - &3.9150e-05 ,1.3025e-04 ,1.7086e-04 ,1.9491e-04 ,1.7468e-04 /) - kbo(:, 1,30, 1) = (/ & - &1.0130e-05 ,4.6183e-05 ,6.8547e-05 ,8.6516e-05 ,9.2360e-05 /) - kbo(:, 2,30, 1) = (/ & - &1.4060e-05 ,5.9445e-05 ,8.5241e-05 ,1.0481e-04 ,1.0719e-04 /) - kbo(:, 3,30, 1) = (/ & - &1.9789e-05 ,7.5542e-05 ,1.0433e-04 ,1.2454e-04 ,1.2117e-04 /) - kbo(:, 4,30, 1) = (/ & - &2.7737e-05 ,9.4871e-05 ,1.2613e-04 ,1.4578e-04 ,1.3421e-04 /) - kbo(:, 5,30, 1) = (/ & - &3.8345e-05 ,1.1778e-04 ,1.5088e-04 ,1.6869e-04 ,1.4612e-04 /) - kbo(:, 1,31, 1) = (/ & - &1.0468e-05 ,4.2679e-05 ,6.1533e-05 ,7.6101e-05 ,7.8936e-05 /) - kbo(:, 2,31, 1) = (/ & - &1.4602e-05 ,5.5015e-05 ,7.6472e-05 ,9.1912e-05 ,9.0925e-05 /) - kbo(:, 3,31, 1) = (/ & - &2.0565e-05 ,7.0045e-05 ,9.3754e-05 ,1.0914e-04 ,1.0226e-04 /) - kbo(:, 4,31, 1) = (/ & - &2.8741e-05 ,8.8177e-05 ,1.1361e-04 ,1.2783e-04 ,1.1277e-04 /) - kbo(:, 5,31, 1) = (/ & - &3.9551e-05 ,1.0965e-04 ,1.3625e-04 ,1.4816e-04 ,1.2240e-04 /) - kbo(:, 1,32, 1) = (/ & - &1.0980e-05 ,3.9860e-05 ,5.5596e-05 ,6.7154e-05 ,6.7396e-05 /) - kbo(:, 2,32, 1) = (/ & - &1.5378e-05 ,5.1481e-05 ,6.9207e-05 ,8.1024e-05 ,7.7105e-05 /) - kbo(:, 3,32, 1) = (/ & - &2.1641e-05 ,6.5723e-05 ,8.5005e-05 ,9.6172e-05 ,8.6258e-05 /) - kbo(:, 4,32, 1) = (/ & - &3.0131e-05 ,8.2891e-05 ,1.0329e-04 ,1.1283e-04 ,9.4767e-05 /) - kbo(:, 5,32, 1) = (/ & - &4.1276e-05 ,1.0326e-04 ,1.2427e-04 ,1.3104e-04 ,1.0241e-04 /) - kbo(:, 1,33, 1) = (/ & - &1.1748e-05 ,3.7749e-05 ,5.0777e-05 ,5.9616e-05 ,5.7446e-05 /) - kbo(:, 2,33, 1) = (/ & - &1.6501e-05 ,4.8915e-05 ,6.3363e-05 ,7.1901e-05 ,6.5353e-05 /) - kbo(:, 3,33, 1) = (/ & - &2.3188e-05 ,6.2624e-05 ,7.8070e-05 ,8.5481e-05 ,7.2776e-05 /) - kbo(:, 4,33, 1) = (/ & - &3.2156e-05 ,7.9179e-05 ,9.5194e-05 ,1.0052e-04 ,7.9571e-05 /) - kbo(:, 5,33, 1) = (/ & - &4.3815e-05 ,9.8786e-05 ,1.1493e-04 ,1.1713e-04 ,8.5692e-05 /) - kbo(:, 1,34, 1) = (/ & - &1.2122e-05 ,3.5250e-05 ,4.5906e-05 ,5.2480e-05 ,4.8658e-05 /) - kbo(:, 2,34, 1) = (/ & - &1.7058e-05 ,4.5800e-05 ,5.7395e-05 ,6.3326e-05 ,5.5101e-05 /) - kbo(:, 3,34, 1) = (/ & - &2.3918e-05 ,5.8762e-05 ,7.0946e-05 ,7.5460e-05 ,6.1101e-05 /) - kbo(:, 4,34, 1) = (/ & - &3.3054e-05 ,7.4431e-05 ,8.6803e-05 ,8.8957e-05 ,6.6540e-05 /) - kbo(:, 5,34, 1) = (/ & - &4.4827e-05 ,9.2907e-05 ,1.0510e-04 ,1.0393e-04 ,7.1470e-05 /) - kbo(:, 1,35, 1) = (/ & - &1.2136e-05 ,3.2274e-05 ,4.0784e-05 ,4.5493e-05 ,4.0671e-05 /) - kbo(:, 2,35, 1) = (/ & - &1.7085e-05 ,4.2082e-05 ,5.1198e-05 ,5.5056e-05 ,4.5918e-05 /) - kbo(:, 3,35, 1) = (/ & - &2.3916e-05 ,5.4183e-05 ,6.3553e-05 ,6.5795e-05 ,5.0794e-05 /) - kbo(:, 4,35, 1) = (/ & - &3.2983e-05 ,6.8784e-05 ,7.8061e-05 ,7.7848e-05 ,5.5215e-05 /) - kbo(:, 5,35, 1) = (/ & - &4.4608e-05 ,8.5962e-05 ,9.4799e-05 ,9.1316e-05 ,5.9185e-05 /) - kbo(:, 1,36, 1) = (/ & - &1.1639e-05 ,2.8710e-05 ,3.5389e-05 ,3.8647e-05 ,3.3496e-05 /) - kbo(:, 2,36, 1) = (/ & - &1.6387e-05 ,3.7611e-05 ,4.4660e-05 ,4.6982e-05 ,3.7819e-05 /) - kbo(:, 3,36, 1) = (/ & - &2.2931e-05 ,4.8613e-05 ,5.5727e-05 ,5.6405e-05 ,4.1793e-05 /) - kbo(:, 4,36, 1) = (/ & - &3.1614e-05 ,6.1937e-05 ,6.8745e-05 ,6.7054e-05 ,4.5416e-05 /) - kbo(:, 5,36, 1) = (/ & - &4.2736e-05 ,7.7667e-05 ,8.3834e-05 ,7.9002e-05 ,4.8700e-05 /) - kbo(:, 1,37, 1) = (/ & - &1.0334e-05 ,2.4228e-05 ,2.9412e-05 ,3.1719e-05 ,2.7018e-05 /) - kbo(:, 2,37, 1) = (/ & - &1.4545e-05 ,3.1907e-05 ,3.7329e-05 ,3.8760e-05 ,3.0586e-05 /) - kbo(:, 3,37, 1) = (/ & - &2.0385e-05 ,4.1462e-05 ,4.6849e-05 ,4.6806e-05 ,3.3891e-05 /) - kbo(:, 4,37, 1) = (/ & - &2.8167e-05 ,5.3075e-05 ,5.8122e-05 ,5.5962e-05 ,3.6915e-05 /) - kbo(:, 5,37, 1) = (/ & - &3.8188e-05 ,6.6903e-05 ,7.1250e-05 ,6.6274e-05 ,3.9679e-05 /) - kbo(:, 1,38, 1) = (/ & - &9.2873e-06 ,2.0587e-05 ,2.4545e-05 ,2.6080e-05 ,2.1759e-05 /) - kbo(:, 2,38, 1) = (/ & - &1.3062e-05 ,2.7262e-05 ,3.1359e-05 ,3.2085e-05 ,2.4714e-05 /) - kbo(:, 3,38, 1) = (/ & - &1.8340e-05 ,3.5628e-05 ,3.9617e-05 ,3.8992e-05 ,2.7465e-05 /) - kbo(:, 4,38, 1) = (/ & - &2.5394e-05 ,4.5875e-05 ,4.9461e-05 ,4.6884e-05 ,2.9998e-05 /) - kbo(:, 5,38, 1) = (/ & - &3.4528e-05 ,5.8131e-05 ,6.0967e-05 ,5.5861e-05 ,3.2334e-05 /) - kbo(:, 1,39, 1) = (/ & - &8.5453e-06 ,1.7761e-05 ,2.0713e-05 ,2.1598e-05 ,1.7527e-05 /) - kbo(:, 2,39, 1) = (/ & - &1.2008e-05 ,2.3655e-05 ,2.6655e-05 ,2.6765e-05 ,1.9983e-05 /) - kbo(:, 3,39, 1) = (/ & - &1.6881e-05 ,3.1100e-05 ,3.3909e-05 ,3.2745e-05 ,2.2276e-05 /) - kbo(:, 4,39, 1) = (/ & - &2.3421e-05 ,4.0278e-05 ,4.2620e-05 ,3.9657e-05 ,2.4422e-05 /) - kbo(:, 5,39, 1) = (/ & - &3.1935e-05 ,5.1364e-05 ,5.2889e-05 ,4.7569e-05 ,2.6373e-05 /) - kbo(:, 1,40, 1) = (/ & - &7.1461e-06 ,1.4361e-05 ,1.6604e-05 ,1.7207e-05 ,1.3880e-05 /) - kbo(:, 2,40, 1) = (/ & - &1.0009e-05 ,1.9228e-05 ,2.1496e-05 ,2.1462e-05 ,1.5923e-05 /) - kbo(:, 3,40, 1) = (/ & - &1.4089e-05 ,2.5420e-05 ,2.7521e-05 ,2.6424e-05 ,1.7845e-05 /) - kbo(:, 4,40, 1) = (/ & - &1.9620e-05 ,3.3119e-05 ,3.4800e-05 ,3.2193e-05 ,1.9645e-05 /) - kbo(:, 5,40, 1) = (/ & - &2.6885e-05 ,4.2499e-05 ,4.3444e-05 ,3.8836e-05 ,2.1269e-05 /) - kbo(:, 1,41, 1) = (/ & - &5.9442e-06 ,1.1549e-05 ,1.3242e-05 ,1.3641e-05 ,1.0951e-05 /) - kbo(:, 2,41, 1) = (/ & - &8.2890e-06 ,1.5538e-05 ,1.7245e-05 ,1.7129e-05 ,1.2647e-05 /) - kbo(:, 3,41, 1) = (/ & - &1.1675e-05 ,2.0658e-05 ,2.2220e-05 ,2.1226e-05 ,1.4267e-05 /) - kbo(:, 4,41, 1) = (/ & - &1.6317e-05 ,2.7083e-05 ,2.8276e-05 ,2.6013e-05 ,1.5751e-05 /) - kbo(:, 5,41, 1) = (/ & - &2.2462e-05 ,3.4966e-05 ,3.5519e-05 ,3.1566e-05 ,1.7118e-05 /) - kbo(:, 1,42, 1) = (/ & - &5.0039e-06 ,9.3487e-06 ,1.0601e-05 ,1.0831e-05 ,8.6234e-06 /) - kbo(:, 2,42, 1) = (/ & - &6.9419e-06 ,1.2631e-05 ,1.3888e-05 ,1.3698e-05 ,1.0034e-05 /) - kbo(:, 3,42, 1) = (/ & - &9.7739e-06 ,1.6890e-05 ,1.8015e-05 ,1.7096e-05 ,1.1383e-05 /) - kbo(:, 4,42, 1) = (/ & - &1.3702e-05 ,2.2284e-05 ,2.3078e-05 ,2.1084e-05 ,1.2617e-05 /) - kbo(:, 5,42, 1) = (/ & - &1.8946e-05 ,2.8958e-05 ,2.9188e-05 ,2.5746e-05 ,1.3767e-05 /) - kbo(:, 1,43, 1) = (/ & - &4.1873e-06 ,7.4795e-06 ,8.3830e-06 ,8.4906e-06 ,6.7096e-06 /) - kbo(:, 2,43, 1) = (/ & - &5.7609e-06 ,1.0144e-05 ,1.1051e-05 ,1.0826e-05 ,7.8872e-06 /) - kbo(:, 3,43, 1) = (/ & - &8.0947e-06 ,1.3657e-05 ,1.4441e-05 ,1.3617e-05 ,9.0007e-06 /) - kbo(:, 4,43, 1) = (/ & - &1.1379e-05 ,1.8143e-05 ,1.8645e-05 ,1.6928e-05 ,1.0041e-05 /) - kbo(:, 5,43, 1) = (/ & - &1.5813e-05 ,2.3749e-05 ,2.3760e-05 ,2.0820e-05 ,1.1010e-05 /) - kbo(:, 1,44, 1) = (/ & - &3.5435e-06 ,5.9971e-06 ,6.6151e-06 ,6.6257e-06 ,5.1813e-06 /) - kbo(:, 2,44, 1) = (/ & - &4.8184e-06 ,8.1565e-06 ,8.7802e-06 ,8.5231e-06 ,6.1554e-06 /) - kbo(:, 3,44, 1) = (/ & - &6.7381e-06 ,1.1044e-05 ,1.1560e-05 ,1.0814e-05 ,7.0815e-06 /) - kbo(:, 4,44, 1) = (/ & - &9.4910e-06 ,1.4784e-05 ,1.5050e-05 ,1.3555e-05 ,7.9532e-06 /) - kbo(:, 5,44, 1) = (/ & - &1.3248e-05 ,1.9506e-05 ,1.9344e-05 ,1.6815e-05 ,8.7723e-06 /) - kbo(:, 1,45, 1) = (/ & - &3.0781e-06 ,4.8864e-06 ,5.2730e-06 ,5.1910e-06 ,3.9885e-06 /) - kbo(:, 2,45, 1) = (/ & - &4.1281e-06 ,6.6470e-06 ,7.0382e-06 ,6.7401e-06 ,4.7888e-06 /) - kbo(:, 3,45, 1) = (/ & - &5.7272e-06 ,9.0419e-06 ,9.3373e-06 ,8.6331e-06 ,5.5575e-06 /) - kbo(:, 4,45, 1) = (/ & - &8.0675e-06 ,1.2195e-05 ,1.2269e-05 ,1.0924e-05 ,6.2888e-06 /) - kbo(:, 5,45, 1) = (/ & - &1.1304e-05 ,1.6230e-05 ,1.5911e-05 ,1.3670e-05 ,6.9809e-06 /) - kbo(:, 1,46, 1) = (/ & - &2.7031e-06 ,4.0051e-06 ,4.2052e-06 ,4.0513e-06 ,3.0391e-06 /) - kbo(:, 2,46, 1) = (/ & - &3.5629e-06 ,5.4291e-06 ,5.6384e-06 ,5.3109e-06 ,3.6957e-06 /) - kbo(:, 3,46, 1) = (/ & - &4.8917e-06 ,7.4052e-06 ,7.5318e-06 ,6.8686e-06 ,4.3368e-06 /) - kbo(:, 4,46, 1) = (/ & - &6.8735e-06 ,1.0056e-05 ,9.9863e-06 ,8.7795e-06 ,4.9486e-06 /) - kbo(:, 5,46, 1) = (/ & - &9.6601e-06 ,1.3493e-05 ,1.3073e-05 ,1.1090e-05 ,5.5328e-06 /) - kbo(:, 1,47, 1) = (/ & - &2.3513e-06 ,3.2459e-06 ,3.3109e-06 ,3.1126e-06 ,2.2809e-06 /) - kbo(:, 2,47, 1) = (/ & - &3.0285e-06 ,4.3632e-06 ,4.4435e-06 ,4.1169e-06 ,2.8160e-06 /) - kbo(:, 3,47, 1) = (/ & - &4.0963e-06 ,5.9519e-06 ,5.9675e-06 ,5.3774e-06 ,3.3494e-06 /) - kbo(:, 4,47, 1) = (/ & - &5.7200e-06 ,8.1250e-06 ,7.9789e-06 ,6.9425e-06 ,3.8611e-06 /) - kbo(:, 5,47, 1) = (/ & - &8.0548e-06 ,1.0990e-05 ,1.0545e-05 ,8.8570e-06 ,4.3522e-06 /) - kbo(:, 1,48, 1) = (/ & - &2.1277e-06 ,2.7115e-06 ,2.6627e-06 ,2.4165e-06 ,1.7021e-06 /) - kbo(:, 2,48, 1) = (/ & - &2.6703e-06 ,3.5982e-06 ,3.5641e-06 ,3.2218e-06 ,2.1347e-06 /) - kbo(:, 3,48, 1) = (/ & - &3.5476e-06 ,4.8904e-06 ,4.8030e-06 ,4.2482e-06 ,2.5746e-06 /) - kbo(:, 4,48, 1) = (/ & - &4.9045e-06 ,6.6952e-06 ,6.4687e-06 ,5.5412e-06 ,3.0044e-06 /) - kbo(:, 5,48, 1) = (/ & - &6.9032e-06 ,9.1233e-06 ,8.6345e-06 ,7.1468e-06 ,3.4162e-06 /) - kbo(:, 1,49, 1) = (/ & - &2.0328e-06 ,2.3718e-06 ,2.2199e-06 ,1.9157e-06 ,1.2610e-06 /) - kbo(:, 2,49, 1) = (/ & - &2.4767e-06 ,3.0887e-06 ,2.9459e-06 ,2.5646e-06 ,1.6091e-06 /) - kbo(:, 3,49, 1) = (/ & - &3.2245e-06 ,4.1594e-06 ,3.9687e-06 ,3.4109e-06 ,1.9688e-06 /) - kbo(:, 4,49, 1) = (/ & - &4.3950e-06 ,5.6964e-06 ,5.3766e-06 ,4.4963e-06 ,2.3270e-06 /) - kbo(:, 5,49, 1) = (/ & - &6.1628e-06 ,7.8088e-06 ,7.2467e-06 ,5.8704e-06 ,2.6722e-06 /) - kbo(:, 1,50, 1) = (/ & - &1.8800e-06 ,2.0468e-06 ,1.8384e-06 ,1.5142e-06 ,9.3123e-07 /) - kbo(:, 2,50, 1) = (/ & - &2.2261e-06 ,2.6068e-06 ,2.4062e-06 ,2.0250e-06 ,1.2100e-06 /) - kbo(:, 3,50, 1) = (/ & - &2.8323e-06 ,3.4659e-06 ,3.2264e-06 ,2.7071e-06 ,1.5035e-06 /) - kbo(:, 4,50, 1) = (/ & - &3.7999e-06 ,4.7249e-06 ,4.3788e-06 ,3.5953e-06 ,1.7997e-06 /) - kbo(:, 5,50, 1) = (/ & - &5.2884e-06 ,6.4943e-06 ,5.9393e-06 ,4.7367e-06 ,2.0882e-06 /) - kbo(:, 1,51, 1) = (/ & - &1.7210e-06 ,1.7678e-06 ,1.5277e-06 ,1.2003e-06 ,6.8440e-07 /) - kbo(:, 2,51, 1) = (/ & - &1.9818e-06 ,2.1939e-06 ,1.9638e-06 ,1.5963e-06 ,9.0698e-07 /) - kbo(:, 3,51, 1) = (/ & - &2.4588e-06 ,2.8718e-06 ,2.6104e-06 ,2.1370e-06 ,1.1441e-06 /) - kbo(:, 4,51, 1) = (/ & - &3.2428e-06 ,3.8817e-06 ,3.5358e-06 ,2.8541e-06 ,1.3878e-06 /) - kbo(:, 5,51, 1) = (/ & - &4.4645e-06 ,5.3335e-06 ,4.8140e-06 ,3.7885e-06 ,1.6275e-06 /) - kbo(:, 1,52, 1) = (/ & - &1.6367e-06 ,1.5882e-06 ,1.3178e-06 ,9.7791e-07 ,4.9920e-07 /) - kbo(:, 2,52, 1) = (/ & - &1.8355e-06 ,1.9143e-06 ,1.6527e-06 ,1.2853e-06 ,6.7537e-07 /) - kbo(:, 3,52, 1) = (/ & - &2.2162e-06 ,2.4540e-06 ,2.1676e-06 ,1.7156e-06 ,8.6642e-07 /) - kbo(:, 4,52, 1) = (/ & - &2.8651e-06 ,3.2774e-06 ,2.9188e-06 ,2.2996e-06 ,1.0660e-06 /) - kbo(:, 5,52, 1) = (/ & - &3.8903e-06 ,4.4871e-06 ,3.9803e-06 ,3.0728e-06 ,1.2649e-06 /) - kbo(:, 1,53, 1) = (/ & - &1.6359e-06 ,1.5065e-06 ,1.1971e-06 ,8.3215e-07 ,3.6108e-07 /) - kbo(:, 2,53, 1) = (/ & - &1.7884e-06 ,1.7570e-06 ,1.4552e-06 ,1.0704e-06 ,4.9954e-07 /) - kbo(:, 3,53, 1) = (/ & - &2.1010e-06 ,2.1926e-06 ,1.8706e-06 ,1.4156e-06 ,6.5257e-07 /) - kbo(:, 4,53, 1) = (/ & - &2.6543e-06 ,2.8821e-06 ,2.4935e-06 ,1.8975e-06 ,8.1519e-07 /) - kbo(:, 5,53, 1) = (/ & - &3.5462e-06 ,3.9143e-06 ,3.3945e-06 ,2.5503e-06 ,9.8011e-07 /) - kbo(:, 1,54, 1) = (/ & - &1.4300e-06 ,1.2802e-06 ,9.9257e-07 ,6.6497e-07 ,2.6129e-07 /) - kbo(:, 2,54, 1) = (/ & - &1.5262e-06 ,1.4508e-06 ,1.1768e-06 ,8.3958e-07 ,3.6958e-07 /) - kbo(:, 3,54, 1) = (/ & - &1.7484e-06 ,1.7685e-06 ,1.4827e-06 ,1.0992e-06 ,4.9169e-07 /) - kbo(:, 4,54, 1) = (/ & - &2.1569e-06 ,2.2883e-06 ,1.9539e-06 ,1.4679e-06 ,6.2244e-07 /) - kbo(:, 5,54, 1) = (/ & - &2.8354e-06 ,3.0764e-06 ,2.6455e-06 ,1.9748e-06 ,7.5773e-07 /) - kbo(:, 1,55, 1) = (/ & - &1.1496e-06 ,1.0107e-06 ,7.7300e-07 ,5.0639e-07 ,1.8790e-07 /) - kbo(:, 2,55, 1) = (/ & - &1.1995e-06 ,1.1187e-06 ,8.9719e-07 ,6.3009e-07 ,2.7269e-07 /) - kbo(:, 3,55, 1) = (/ & - &1.3422e-06 ,1.3346e-06 ,1.1096e-06 ,8.1740e-07 ,3.6933e-07 /) - kbo(:, 4,55, 1) = (/ & - &1.6169e-06 ,1.6973e-06 ,1.4454e-06 ,1.0866e-06 ,4.7429e-07 /) - kbo(:, 5,55, 1) = (/ & - &2.0871e-06 ,2.2587e-06 ,1.9432e-06 ,1.4592e-06 ,5.8406e-07 /) - kbo(:, 1,56, 1) = (/ & - &9.3098e-07 ,8.0374e-07 ,6.0662e-07 ,3.8780e-07 ,1.3395e-07 /) - kbo(:, 2,56, 1) = (/ & - &9.4853e-07 ,8.6979e-07 ,6.8824e-07 ,4.7493e-07 ,1.9978e-07 /) - kbo(:, 3,56, 1) = (/ & - &1.0383e-06 ,1.0136e-06 ,8.3527e-07 ,6.0949e-07 ,2.7592e-07 /) - kbo(:, 4,56, 1) = (/ & - &1.2210e-06 ,1.2652e-06 ,1.0730e-06 ,8.0519e-07 ,3.6001e-07 /) - kbo(:, 5,56, 1) = (/ & - &1.5443e-06 ,1.6630e-06 ,1.4302e-06 ,1.0789e-06 ,4.4877e-07 /) - kbo(:, 1,57, 1) = (/ & - &7.5869e-07 ,6.4433e-07 ,4.7913e-07 ,2.9908e-07 ,9.4559e-08 /) - kbo(:, 2,57, 1) = (/ & - &7.5680e-07 ,6.8154e-07 ,5.3140e-07 ,3.5955e-07 ,1.4504e-07 /) - kbo(:, 3,57, 1) = (/ & - &8.0958e-07 ,7.7512e-07 ,6.3252e-07 ,4.5567e-07 ,2.0501e-07 /) - kbo(:, 4,57, 1) = (/ & - &9.2953e-07 ,9.4815e-07 ,7.9932e-07 ,5.9759e-07 ,2.7208e-07 /) - kbo(:, 5,57, 1) = (/ & - &1.1491e-06 ,1.2288e-06 ,1.0552e-06 ,7.9844e-07 ,3.4355e-07 /) - kbo(:, 1,58, 1) = (/ & - &1.6388e-07 ,1.6804e-07 ,1.5881e-07 ,1.3627e-07 ,6.6479e-08 /) - kbo(:, 2,58, 1) = (/ & - &1.6042e-07 ,1.7409e-07 ,1.7274e-07 ,1.6106e-07 ,1.0511e-07 /) - kbo(:, 3,58, 1) = (/ & - &1.6792e-07 ,1.9377e-07 ,2.0193e-07 ,2.0193e-07 ,1.5191e-07 /) - kbo(:, 4,58, 1) = (/ & - &1.8861e-07 ,2.3235e-07 ,2.5117e-07 ,2.6306e-07 ,2.0537e-07 /) - kbo(:, 5,58, 1) = (/ & - &2.2793e-07 ,2.9684e-07 ,3.2824e-07 ,3.5018e-07 ,2.6292e-07 /) - kbo(:, 1,59, 1) = (/ & - &1.5765e-07 ,1.5618e-07 ,1.3958e-07 ,1.1007e-07 ,5.0739e-08 /) - kbo(:, 2,59, 1) = (/ & - &1.5325e-07 ,1.6219e-07 ,1.5348e-07 ,1.3308e-07 ,8.1077e-08 /) - kbo(:, 3,59, 1) = (/ & - &1.5900e-07 ,1.8099e-07 ,1.8121e-07 ,1.6979e-07 ,1.1831e-07 /) - kbo(:, 4,59, 1) = (/ & - &1.7701e-07 ,2.1714e-07 ,2.2693e-07 ,2.2335e-07 ,1.6137e-07 /) - kbo(:, 5,59, 1) = (/ & - &2.1198e-07 ,2.7749e-07 ,2.9703e-07 ,2.9803e-07 ,2.0840e-07 /) - kbo(:, 1,13, 2) = (/ & - &3.6279e-03 ,6.1760e-03 ,7.4137e-03 ,8.1756e-03 ,7.6678e-03 /) - kbo(:, 2,13, 2) = (/ & - &4.7275e-03 ,8.3099e-03 ,9.8779e-03 ,1.0590e-02 ,9.2190e-03 /) - kbo(:, 3,13, 2) = (/ & - &6.7817e-03 ,1.1546e-02 ,1.3324e-02 ,1.3748e-02 ,1.0778e-02 /) - kbo(:, 4,13, 2) = (/ & - &1.0391e-02 ,1.6290e-02 ,1.8048e-02 ,1.7786e-02 ,1.2299e-02 /) - kbo(:, 5,13, 2) = (/ & - &1.6231e-02 ,2.2973e-02 ,2.4369e-02 ,2.2866e-02 ,1.3775e-02 /) - kbo(:, 1,14, 2) = (/ & - &1.9069e-03 ,4.2185e-03 ,5.5573e-03 ,6.5712e-03 ,6.6234e-03 /) - kbo(:, 2,14, 2) = (/ & - &2.5180e-03 ,5.7108e-03 ,7.3682e-03 ,8.4311e-03 ,7.9352e-03 /) - kbo(:, 3,14, 2) = (/ & - &3.6614e-03 ,7.8938e-03 ,9.8216e-03 ,1.0792e-02 ,9.2480e-03 /) - kbo(:, 4,14, 2) = (/ & - &5.6530e-03 ,1.1002e-02 ,1.3072e-02 ,1.3740e-02 ,1.0517e-02 /) - kbo(:, 5,14, 2) = (/ & - &8.8619e-03 ,1.5292e-02 ,1.7338e-02 ,1.7343e-02 ,1.1731e-02 /) - kbo(:, 1,15, 2) = (/ & - &1.0269e-03 ,3.0313e-03 ,4.3258e-03 ,5.3827e-03 ,5.7089e-03 /) - kbo(:, 2,15, 2) = (/ & - &1.3765e-03 ,4.1045e-03 ,5.6876e-03 ,6.8515e-03 ,6.8087e-03 /) - kbo(:, 3,15, 2) = (/ & - &2.0273e-03 ,5.6227e-03 ,7.4759e-03 ,8.6449e-03 ,7.9051e-03 /) - kbo(:, 4,15, 2) = (/ & - &3.1553e-03 ,7.7214e-03 ,9.7810e-03 ,1.0828e-02 ,8.9583e-03 /) - kbo(:, 5,15, 2) = (/ & - &4.9678e-03 ,1.0557e-02 ,1.2725e-02 ,1.3447e-02 ,9.9499e-03 /) - kbo(:, 1,16, 2) = (/ & - &6.6110e-04 ,2.3925e-03 ,3.5607e-03 ,4.5272e-03 ,4.9025e-03 /) - kbo(:, 2,16, 2) = (/ & - &8.9912e-04 ,3.2391e-03 ,4.6534e-03 ,5.7377e-03 ,5.8262e-03 /) - kbo(:, 3,16, 2) = (/ & - &1.3419e-03 ,4.4091e-03 ,6.0651e-03 ,7.1821e-03 ,6.7308e-03 /) - kbo(:, 4,16, 2) = (/ & - &2.1065e-03 ,5.9970e-03 ,7.8566e-03 ,8.9138e-03 ,7.5936e-03 /) - kbo(:, 5,16, 2) = (/ & - &3.3254e-03 ,8.1145e-03 ,1.0111e-02 ,1.0963e-02 ,8.4021e-03 /) - kbo(:, 1,17, 2) = (/ & - &4.4242e-04 ,1.9273e-03 ,2.9584e-03 ,3.8169e-03 ,4.1910e-03 /) - kbo(:, 2,17, 2) = (/ & - &6.0993e-04 ,2.6019e-03 ,3.8415e-03 ,4.8112e-03 ,4.9579e-03 /) - kbo(:, 3,17, 2) = (/ & - &9.2221e-04 ,3.5184e-03 ,4.9669e-03 ,5.9811e-03 ,5.6981e-03 /) - kbo(:, 4,17, 2) = (/ & - &1.4572e-03 ,4.7461e-03 ,6.3751e-03 ,7.3581e-03 ,6.3963e-03 /) - kbo(:, 5,17, 2) = (/ & - &2.3036e-03 ,6.3581e-03 ,8.1281e-03 ,8.9737e-03 ,7.0378e-03 /) - kbo(:, 1,18, 2) = (/ & - &3.0388e-04 ,1.5707e-03 ,2.4656e-03 ,3.2158e-03 ,3.5652e-03 /) - kbo(:, 2,18, 2) = (/ & - &4.2513e-04 ,2.1109e-03 ,3.1840e-03 ,4.0302e-03 ,4.1950e-03 /) - kbo(:, 3,18, 2) = (/ & - &6.4993e-04 ,2.8372e-03 ,4.0815e-03 ,4.9772e-03 ,4.7960e-03 /) - kbo(:, 4,18, 2) = (/ & - &1.0315e-03 ,3.7953e-03 ,5.1949e-03 ,6.0778e-03 ,5.3518e-03 /) - kbo(:, 5,18, 2) = (/ & - &1.6331e-03 ,5.0371e-03 ,6.5707e-03 ,7.3465e-03 ,5.8586e-03 /) - kbo(:, 1,19, 2) = (/ & - &2.0547e-04 ,1.2763e-03 ,2.0458e-03 ,2.6959e-03 ,3.0176e-03 /) - kbo(:, 2,19, 2) = (/ & - &2.9169e-04 ,1.7044e-03 ,2.6231e-03 ,3.3550e-03 ,3.5313e-03 /) - kbo(:, 3,19, 2) = (/ & - &4.4987e-04 ,2.2721e-03 ,3.3322e-03 ,4.1113e-03 ,4.0121e-03 /) - kbo(:, 4,19, 2) = (/ & - &7.1653e-04 ,3.0090e-03 ,4.2013e-03 ,4.9750e-03 ,4.4532e-03 /) - kbo(:, 5,19, 2) = (/ & - &1.1358e-03 ,3.9520e-03 ,5.2567e-03 ,5.9542e-03 ,4.8572e-03 /) - kbo(:, 1,20, 2) = (/ & - &1.5174e-04 ,1.0642e-03 ,1.7200e-03 ,2.2761e-03 ,2.5514e-03 /) - kbo(:, 2,20, 2) = (/ & - &2.1846e-04 ,1.4153e-03 ,2.1942e-03 ,2.8165e-03 ,2.9650e-03 /) - kbo(:, 3,20, 2) = (/ & - &3.3982e-04 ,1.8745e-03 ,2.7705e-03 ,3.4277e-03 ,3.3482e-03 /) - kbo(:, 4,20, 2) = (/ & - &5.4313e-04 ,2.4649e-03 ,3.4676e-03 ,4.1183e-03 ,3.7008e-03 /) - kbo(:, 5,20, 2) = (/ & - &8.6061e-04 ,3.2127e-03 ,4.3062e-03 ,4.9014e-03 ,4.0252e-03 /) - kbo(:, 1,21, 2) = (/ & - &1.1592e-04 ,8.9297e-04 ,1.4493e-03 ,1.9202e-03 ,2.1482e-03 /) - kbo(:, 2,21, 2) = (/ & - &1.6918e-04 ,1.1825e-03 ,1.8389e-03 ,2.3614e-03 ,2.4794e-03 /) - kbo(:, 3,21, 2) = (/ & - &2.6522e-04 ,1.5570e-03 ,2.3088e-03 ,2.8574e-03 ,2.7868e-03 /) - kbo(:, 4,21, 2) = (/ & - &4.2461e-04 ,2.0332e-03 ,2.8744e-03 ,3.4170e-03 ,3.0702e-03 /) - kbo(:, 5,21, 2) = (/ & - &6.7177e-04 ,2.6322e-03 ,3.5494e-03 ,4.0519e-03 ,3.3309e-03 /) - kbo(:, 1,22, 2) = (/ & - &9.3055e-05 ,7.6606e-04 ,1.2409e-03 ,1.6398e-03 ,1.8197e-03 /) - kbo(:, 2,22, 2) = (/ & - &1.3841e-04 ,1.0092e-03 ,1.5660e-03 ,2.0038e-03 ,2.0843e-03 /) - kbo(:, 3,22, 2) = (/ & - &2.1899e-04 ,1.3206e-03 ,1.9566e-03 ,2.4125e-03 ,2.3311e-03 /) - kbo(:, 4,22, 2) = (/ & - &3.5071e-04 ,1.7145e-03 ,2.4240e-03 ,2.8744e-03 ,2.5586e-03 /) - kbo(:, 5,22, 2) = (/ & - &5.5216e-04 ,2.2067e-03 ,2.9792e-03 ,3.3952e-03 ,2.7680e-03 /) - kbo(:, 1,23, 2) = (/ & - &7.5659e-05 ,6.5668e-04 ,1.0605e-03 ,1.3970e-03 ,1.5365e-03 /) - kbo(:, 2,23, 2) = (/ & - &1.1449e-04 ,8.6018e-04 ,1.3327e-03 ,1.6978e-03 ,1.7494e-03 /) - kbo(:, 3,23, 2) = (/ & - &1.8237e-04 ,1.1195e-03 ,1.6581e-03 ,2.0367e-03 ,1.9476e-03 /) - kbo(:, 4,23, 2) = (/ & - &2.9157e-04 ,1.4455e-03 ,2.0441e-03 ,2.4187e-03 ,2.1305e-03 /) - kbo(:, 5,23, 2) = (/ & - &4.5638e-04 ,1.8506e-03 ,2.4994e-03 ,2.8459e-03 ,2.2986e-03 /) - kbo(:, 1,24, 2) = (/ & - &6.1686e-05 ,5.6133e-04 ,9.0530e-04 ,1.1887e-03 ,1.2959e-03 /) - kbo(:, 2,24, 2) = (/ & - &9.4868e-05 ,7.3156e-04 ,1.1327e-03 ,1.4379e-03 ,1.4672e-03 /) - kbo(:, 3,24, 2) = (/ & - &1.5170e-04 ,9.4694e-04 ,1.4023e-03 ,1.7186e-03 ,1.6265e-03 /) - kbo(:, 4,24, 2) = (/ & - &2.4184e-04 ,1.2160e-03 ,1.7202e-03 ,2.0324e-03 ,1.7732e-03 /) - kbo(:, 5,24, 2) = (/ & - &3.7584e-04 ,1.5479e-03 ,2.0924e-03 ,2.3822e-03 ,1.9076e-03 /) - kbo(:, 1,25, 2) = (/ & - &5.1420e-05 ,4.8151e-04 ,7.7480e-04 ,1.0127e-03 ,1.0925e-03 /) - kbo(:, 2,25, 2) = (/ & - &8.0205e-05 ,6.2472e-04 ,9.6537e-04 ,1.2206e-03 ,1.2305e-03 /) - kbo(:, 3,25, 2) = (/ & - &1.2852e-04 ,8.0481e-04 ,1.1895e-03 ,1.4535e-03 ,1.3583e-03 /) - kbo(:, 4,25, 2) = (/ & - &2.0384e-04 ,1.0284e-03 ,1.4523e-03 ,1.7128e-03 ,1.4762e-03 /) - kbo(:, 5,25, 2) = (/ & - &3.1446e-04 ,1.3022e-03 ,1.7587e-03 ,1.9996e-03 ,1.5839e-03 /) - kbo(:, 1,26, 2) = (/ & - &4.4173e-05 ,4.1605e-04 ,6.6653e-04 ,8.6651e-04 ,9.2186e-04 /) - kbo(:, 2,26, 2) = (/ & - &6.9706e-05 ,5.3779e-04 ,8.2701e-04 ,1.0408e-03 ,1.0329e-03 /) - kbo(:, 3,26, 2) = (/ & - &1.1164e-04 ,6.8982e-04 ,1.0147e-03 ,1.2348e-03 ,1.1353e-03 /) - kbo(:, 4,26, 2) = (/ & - &1.7590e-04 ,8.7786e-04 ,1.2337e-03 ,1.4499e-03 ,1.2294e-03 /) - kbo(:, 5,26, 2) = (/ & - &2.6942e-04 ,1.1054e-03 ,1.4885e-03 ,1.6863e-03 ,1.3161e-03 /) - kbo(:, 1,27, 2) = (/ & - &3.9675e-05 ,3.6275e-04 ,5.7658e-04 ,7.4423e-04 ,7.7727e-04 /) - kbo(:, 2,27, 2) = (/ & - &6.3079e-05 ,4.6769e-04 ,7.1304e-04 ,8.9128e-04 ,8.6622e-04 /) - kbo(:, 3,27, 2) = (/ & - &1.0080e-04 ,5.9857e-04 ,8.7226e-04 ,1.0546e-03 ,9.4873e-04 /) - kbo(:, 4,27, 2) = (/ & - &1.5784e-04 ,7.5914e-04 ,1.0582e-03 ,1.2346e-03 ,1.0243e-03 /) - kbo(:, 5,27, 2) = (/ & - &2.3988e-04 ,9.5199e-04 ,1.2727e-03 ,1.4326e-03 ,1.0935e-03 /) - kbo(:, 1,28, 2) = (/ & - &3.6787e-05 ,3.1827e-04 ,5.0054e-04 ,6.4070e-04 ,6.5436e-04 /) - kbo(:, 2,28, 2) = (/ & - &5.8744e-05 ,4.0999e-04 ,6.1769e-04 ,7.6553e-04 ,7.2608e-04 /) - kbo(:, 3,28, 2) = (/ & - &9.3496e-05 ,5.2404e-04 ,7.5434e-04 ,9.0364e-04 ,7.9234e-04 /) - kbo(:, 4,28, 2) = (/ & - &1.4539e-04 ,6.6291e-04 ,9.1412e-04 ,1.0560e-03 ,8.5294e-04 /) - kbo(:, 5,28, 2) = (/ & - &2.1931e-04 ,8.2828e-04 ,1.0967e-03 ,1.2236e-03 ,9.0840e-04 /) - kbo(:, 1,29, 2) = (/ & - &3.6448e-05 ,2.8470e-04 ,4.4017e-04 ,5.5630e-04 ,5.5097e-04 /) - kbo(:, 2,29, 2) = (/ & - &5.8278e-05 ,3.6727e-04 ,5.4285e-04 ,6.6380e-04 ,6.0864e-04 /) - kbo(:, 3,29, 2) = (/ & - &9.2358e-05 ,4.6962e-04 ,6.6368e-04 ,7.8295e-04 ,6.6201e-04 /) - kbo(:, 4,29, 2) = (/ & - &1.4253e-04 ,5.9354e-04 ,8.0405e-04 ,9.1518e-04 ,7.1060e-04 /) - kbo(:, 5,29, 2) = (/ & - &2.1329e-04 ,7.4124e-04 ,9.6341e-04 ,1.0599e-03 ,7.5499e-04 /) - kbo(:, 1,30, 2) = (/ & - &3.7091e-05 ,2.5711e-04 ,3.8922e-04 ,4.8469e-04 ,4.6359e-04 /) - kbo(:, 2,30, 2) = (/ & - &5.9310e-05 ,3.3239e-04 ,4.8070e-04 ,5.7820e-04 ,5.1002e-04 /) - kbo(:, 3,30, 2) = (/ & - &9.3453e-05 ,4.2556e-04 ,5.8851e-04 ,6.8238e-04 ,5.5293e-04 /) - kbo(:, 4,30, 2) = (/ & - &1.4319e-04 ,5.3792e-04 ,7.1341e-04 ,7.9807e-04 ,5.9204e-04 /) - kbo(:, 5,30, 2) = (/ & - &2.1251e-04 ,6.7254e-04 ,8.5446e-04 ,9.2424e-04 ,6.2785e-04 /) - kbo(:, 1,31, 2) = (/ & - &3.9864e-05 ,2.3712e-04 ,3.4911e-04 ,4.2654e-04 ,3.8998e-04 /) - kbo(:, 2,31, 2) = (/ & - &6.3592e-05 ,3.0797e-04 ,4.3283e-04 ,5.0926e-04 ,4.2741e-04 /) - kbo(:, 3,31, 2) = (/ & - &9.9603e-05 ,3.9506e-04 ,5.3137e-04 ,6.0258e-04 ,4.6195e-04 /) - kbo(:, 4,31, 2) = (/ & - &1.5142e-04 ,5.0071e-04 ,6.4518e-04 ,7.0554e-04 ,4.9395e-04 /) - kbo(:, 5,31, 2) = (/ & - &2.2297e-04 ,6.2830e-04 ,7.7442e-04 ,8.1724e-04 ,5.2260e-04 /) - kbo(:, 1,32, 2) = (/ & - &4.3430e-05 ,2.2111e-04 ,3.1573e-04 ,3.7714e-04 ,3.2795e-04 /) - kbo(:, 2,32, 2) = (/ & - &6.9083e-05 ,2.8816e-04 ,3.9276e-04 ,4.5160e-04 ,3.5813e-04 /) - kbo(:, 3,32, 2) = (/ & - &1.0740e-04 ,3.7075e-04 ,4.8372e-04 ,5.3513e-04 ,3.8620e-04 /) - kbo(:, 4,32, 2) = (/ & - &1.6196e-04 ,4.7193e-04 ,5.8843e-04 ,6.2745e-04 ,4.1195e-04 /) - kbo(:, 5,32, 2) = (/ & - &2.3647e-04 ,5.9479e-04 ,7.0866e-04 ,7.2794e-04 ,4.3506e-04 /) - kbo(:, 1,33, 2) = (/ & - &4.8220e-05 ,2.0906e-04 ,2.8832e-04 ,3.3596e-04 ,2.7570e-04 /) - kbo(:, 2,33, 2) = (/ & - &7.6368e-05 ,2.7329e-04 ,3.6023e-04 ,4.0330e-04 ,3.0019e-04 /) - kbo(:, 3,33, 2) = (/ & - &1.1780e-04 ,3.5332e-04 ,4.4506e-04 ,4.7900e-04 ,3.2295e-04 /) - kbo(:, 4,33, 2) = (/ & - &1.7613e-04 ,4.5198e-04 ,5.4349e-04 ,5.6284e-04 ,3.4357e-04 /) - kbo(:, 5,33, 2) = (/ & - &2.5515e-04 ,5.7259e-04 ,6.5773e-04 ,6.5473e-04 ,3.6197e-04 /) - kbo(:, 1,34, 2) = (/ & - &5.1326e-05 ,1.9484e-04 ,2.6083e-04 ,2.9705e-04 ,2.3085e-04 /) - kbo(:, 2,34, 2) = (/ & - &8.0913e-05 ,2.5559e-04 ,3.2688e-04 ,3.5738e-04 ,2.5079e-04 /) - kbo(:, 3,34, 2) = (/ & - &1.2390e-04 ,3.3190e-04 ,4.0497e-04 ,4.2508e-04 ,2.6902e-04 /) - kbo(:, 4,34, 2) = (/ & - &1.8386e-04 ,4.2648e-04 ,4.9662e-04 ,5.0061e-04 ,2.8571e-04 /) - kbo(:, 5,34, 2) = (/ & - &2.6467e-04 ,5.4249e-04 ,6.0361e-04 ,5.8398e-04 ,3.0059e-04 /) - kbo(:, 1,35, 2) = (/ & - &5.2281e-05 ,1.7754e-04 ,2.3171e-04 ,2.5859e-04 ,1.9168e-04 /) - kbo(:, 2,35, 2) = (/ & - &8.2157e-05 ,2.3435e-04 ,2.9174e-04 ,3.1208e-04 ,2.0781e-04 /) - kbo(:, 3,35, 2) = (/ & - &1.2528e-04 ,3.0602e-04 ,3.6300e-04 ,3.7259e-04 ,2.2270e-04 /) - kbo(:, 4,35, 2) = (/ & - &1.8516e-04 ,3.9534e-04 ,4.4759e-04 ,4.4038e-04 ,2.3630e-04 /) - kbo(:, 5,35, 2) = (/ & - &2.6552e-04 ,5.0554e-04 ,5.4703e-04 ,5.1605e-04 ,2.4840e-04 /) - kbo(:, 1,36, 2) = (/ & - &5.0331e-05 ,1.5710e-04 ,2.0093e-04 ,2.2058e-04 ,1.5759e-04 /) - kbo(:, 2,36, 2) = (/ & - &7.9043e-05 ,2.0874e-04 ,2.5435e-04 ,2.6739e-04 ,1.7077e-04 /) - kbo(:, 3,36, 2) = (/ & - &1.2045e-04 ,2.7440e-04 ,3.1834e-04 ,3.2085e-04 ,1.8310e-04 /) - kbo(:, 4,36, 2) = (/ & - &1.7786e-04 ,3.5687e-04 ,3.9494e-04 ,3.8113e-04 ,1.9431e-04 /) - kbo(:, 5,36, 2) = (/ & - &2.5490e-04 ,4.5880e-04 ,4.8570e-04 ,4.4889e-04 ,2.0416e-04 /) - kbo(:, 1,37, 2) = (/ & - &4.4029e-05 ,1.3168e-04 ,1.6668e-04 ,1.8164e-04 ,1.2776e-04 /) - kbo(:, 2,37, 2) = (/ & - &6.9369e-05 ,1.7622e-04 ,2.1241e-04 ,2.2140e-04 ,1.3874e-04 /) - kbo(:, 3,37, 2) = (/ & - &1.0612e-04 ,2.3332e-04 ,2.6770e-04 ,2.6723e-04 ,1.4898e-04 /) - kbo(:, 4,37, 2) = (/ & - &1.5731e-04 ,3.0549e-04 ,3.3418e-04 ,3.1918e-04 ,1.5836e-04 /) - kbo(:, 5,37, 2) = (/ & - &2.2631e-04 ,3.9537e-04 ,4.1350e-04 ,3.7792e-04 ,1.6663e-04 /) - kbo(:, 1,38, 2) = (/ & - &3.8922e-05 ,1.1094e-04 ,1.3878e-04 ,1.4984e-04 ,1.0348e-04 /) - kbo(:, 2,38, 2) = (/ & - &6.1507e-05 ,1.4964e-04 ,1.7814e-04 ,1.8378e-04 ,1.1264e-04 /) - kbo(:, 3,38, 2) = (/ & - &9.4510e-05 ,1.9970e-04 ,2.2619e-04 ,2.2325e-04 ,1.2117e-04 /) - kbo(:, 4,38, 2) = (/ & - &1.4072e-04 ,2.6356e-04 ,2.8447e-04 ,2.6849e-04 ,1.2897e-04 /) - kbo(:, 5,38, 2) = (/ & - &2.0319e-04 ,3.4350e-04 ,3.5441e-04 ,3.1981e-04 ,1.3588e-04 /) - kbo(:, 1,39, 2) = (/ & - &3.5197e-05 ,9.4645e-05 ,1.1658e-04 ,1.2439e-04 ,8.3852e-05 /) - kbo(:, 2,39, 2) = (/ & - &5.5773e-05 ,1.2882e-04 ,1.5091e-04 ,1.5369e-04 ,9.1477e-05 /) - kbo(:, 3,39, 2) = (/ & - &8.6079e-05 ,1.7350e-04 ,1.9331e-04 ,1.8814e-04 ,9.8545e-05 /) - kbo(:, 4,39, 2) = (/ & - &1.2878e-04 ,2.3093e-04 ,2.4509e-04 ,2.2784e-04 ,1.0505e-04 /) - kbo(:, 5,39, 2) = (/ & - &1.8672e-04 ,3.0343e-04 ,3.0781e-04 ,2.7347e-04 ,1.1084e-04 /) - kbo(:, 1,40, 2) = (/ & - &2.8482e-05 ,7.5721e-05 ,9.3100e-05 ,9.9288e-05 ,6.7184e-05 /) - kbo(:, 2,40, 2) = (/ & - &4.5322e-05 ,1.0379e-04 ,1.2136e-04 ,1.2342e-04 ,7.3552e-05 /) - kbo(:, 3,40, 2) = (/ & - &7.0466e-05 ,1.4083e-04 ,1.5650e-04 ,1.5207e-04 ,7.9463e-05 /) - kbo(:, 4,40, 2) = (/ & - &1.0624e-04 ,1.8883e-04 ,1.9975e-04 ,1.8533e-04 ,8.4957e-05 /) - kbo(:, 5,40, 2) = (/ & - &1.5520e-04 ,2.4983e-04 ,2.5250e-04 ,2.2369e-04 ,8.9879e-05 /) - kbo(:, 1,41, 2) = (/ & - &2.2852e-05 ,6.0191e-05 ,7.3911e-05 ,7.8847e-05 ,5.3707e-05 /) - kbo(:, 2,41, 2) = (/ & - &3.6477e-05 ,8.3074e-05 ,9.7030e-05 ,9.8640e-05 ,5.9019e-05 /) - kbo(:, 3,41, 2) = (/ & - &5.7117e-05 ,1.1353e-04 ,1.2598e-04 ,1.2230e-04 ,6.3954e-05 /) - kbo(:, 4,41, 2) = (/ & - &8.6797e-05 ,1.5338e-04 ,1.6193e-04 ,1.5005e-04 ,6.8580e-05 /) - kbo(:, 5,41, 2) = (/ & - &1.2784e-04 ,2.0441e-04 ,2.0604e-04 ,1.8219e-04 ,7.2757e-05 /) - kbo(:, 1,42, 2) = (/ & - &1.8532e-05 ,4.8021e-05 ,5.8809e-05 ,6.2677e-05 ,4.2889e-05 /) - kbo(:, 2,42, 2) = (/ & - &2.9639e-05 ,6.6772e-05 ,7.7781e-05 ,7.8945e-05 ,4.7319e-05 /) - kbo(:, 3,42, 2) = (/ & - &4.6699e-05 ,9.1970e-05 ,1.0173e-04 ,9.8516e-05 ,5.1447e-05 /) - kbo(:, 4,42, 2) = (/ & - &7.1536e-05 ,1.2527e-04 ,1.3174e-04 ,1.2174e-04 ,5.5341e-05 /) - kbo(:, 5,42, 2) = (/ & - &1.0622e-04 ,1.6829e-04 ,1.6888e-04 ,1.4882e-04 ,5.8857e-05 /) - kbo(:, 1,43, 2) = (/ & - &1.4784e-05 ,3.7715e-05 ,4.6105e-05 ,4.9162e-05 ,3.3989e-05 /) - kbo(:, 2,43, 2) = (/ & - &2.3635e-05 ,5.2843e-05 ,6.1488e-05 ,6.2402e-05 ,3.7696e-05 /) - kbo(:, 3,43, 2) = (/ & - &3.7482e-05 ,7.3434e-05 ,8.1121e-05 ,7.8491e-05 ,4.1167e-05 /) - kbo(:, 4,43, 2) = (/ & - &5.7957e-05 ,1.0094e-04 ,1.0596e-04 ,9.7736e-05 ,4.4450e-05 /) - kbo(:, 5,43, 2) = (/ & - &8.6918e-05 ,1.3688e-04 ,1.3695e-04 ,1.2041e-04 ,4.7444e-05 /) - kbo(:, 1,44, 2) = (/ & - &1.1851e-05 ,2.9526e-05 ,3.5985e-05 ,3.8353e-05 ,2.6802e-05 /) - kbo(:, 2,44, 2) = (/ & - &1.8865e-05 ,4.1676e-05 ,4.8402e-05 ,4.9101e-05 ,2.9917e-05 /) - kbo(:, 3,44, 2) = (/ & - &3.0080e-05 ,5.8471e-05 ,6.4462e-05 ,6.2284e-05 ,3.2834e-05 /) - kbo(:, 4,44, 2) = (/ & - &4.6945e-05 ,8.1180e-05 ,8.5021e-05 ,7.8278e-05 ,3.5598e-05 /) - kbo(:, 5,44, 2) = (/ & - &7.1168e-05 ,1.1121e-04 ,1.1093e-04 ,9.7235e-05 ,3.8149e-05 /) - kbo(:, 1,45, 2) = (/ & - &9.7426e-06 ,2.3333e-05 ,2.8230e-05 ,2.9988e-05 ,2.1086e-05 /) - kbo(:, 2,45, 2) = (/ & - &1.5361e-05 ,3.3173e-05 ,3.8317e-05 ,3.8748e-05 ,2.3700e-05 /) - kbo(:, 3,45, 2) = (/ & - &2.4573e-05 ,4.7011e-05 ,5.1561e-05 ,4.9622e-05 ,2.6158e-05 /) - kbo(:, 4,45, 2) = (/ & - &3.8674e-05 ,6.5958e-05 ,6.8724e-05 ,6.2989e-05 ,2.8488e-05 /) - kbo(:, 5,45, 2) = (/ & - &5.9269e-05 ,9.1392e-05 ,9.0638e-05 ,7.9041e-05 ,3.0648e-05 /) - kbo(:, 1,46, 2) = (/ & - &8.0813e-06 ,1.8394e-05 ,2.2048e-05 ,2.3302e-05 ,1.6499e-05 /) - kbo(:, 2,46, 2) = (/ & - &1.2533e-05 ,2.6309e-05 ,3.0179e-05 ,3.0408e-05 ,1.8696e-05 /) - kbo(:, 3,46, 2) = (/ & - &2.0044e-05 ,3.7660e-05 ,4.1056e-05 ,3.9350e-05 ,2.0768e-05 /) - kbo(:, 4,46, 2) = (/ & - &3.1770e-05 ,5.3410e-05 ,5.5319e-05 ,5.0478e-05 ,2.2728e-05 /) - kbo(:, 5,46, 2) = (/ & - &4.9215e-05 ,7.4898e-05 ,7.3800e-05 ,6.4019e-05 ,2.4552e-05 /) - kbo(:, 1,47, 2) = (/ & - &6.6192e-06 ,1.4238e-05 ,1.6907e-05 ,1.7806e-05 ,1.2778e-05 /) - kbo(:, 2,47, 2) = (/ & - &9.9788e-06 ,2.0419e-05 ,2.3301e-05 ,2.3456e-05 ,1.4630e-05 /) - kbo(:, 3,47, 2) = (/ & - &1.5864e-05 ,2.9439e-05 ,3.2011e-05 ,3.0659e-05 ,1.6375e-05 /) - kbo(:, 4,47, 2) = (/ & - &2.5298e-05 ,4.2209e-05 ,4.3617e-05 ,3.9755e-05 ,1.8027e-05 /) - kbo(:, 5,47, 2) = (/ & - &3.9602e-05 ,5.9887e-05 ,5.8840e-05 ,5.0962e-05 ,1.9570e-05 /) - kbo(:, 1,48, 2) = (/ & - &5.6786e-06 ,1.1254e-05 ,1.3112e-05 ,1.3664e-05 ,9.8559e-06 /) - kbo(:, 2,48, 2) = (/ & - &8.2415e-06 ,1.6109e-05 ,1.8176e-05 ,1.8172e-05 ,1.1406e-05 /) - kbo(:, 3,48, 2) = (/ & - &1.2920e-05 ,2.3359e-05 ,2.5209e-05 ,2.4020e-05 ,1.2882e-05 /) - kbo(:, 4,48, 2) = (/ & - &2.0668e-05 ,3.3871e-05 ,3.4762e-05 ,3.1514e-05 ,1.4268e-05 /) - kbo(:, 5,48, 2) = (/ & - &3.2629e-05 ,4.8666e-05 ,4.7495e-05 ,4.0906e-05 ,1.5578e-05 /) - kbo(:, 1,49, 2) = (/ & - &5.1748e-06 ,9.2021e-06 ,1.0379e-05 ,1.0585e-05 ,7.5665e-06 /) - kbo(:, 2,49, 2) = (/ & - &7.1867e-06 ,1.3062e-05 ,1.4427e-05 ,1.4215e-05 ,8.8627e-06 /) - kbo(:, 3,49, 2) = (/ & - &1.1001e-05 ,1.9012e-05 ,2.0206e-05 ,1.9017e-05 ,1.0112e-05 /) - kbo(:, 4,49, 2) = (/ & - &1.7557e-05 ,2.7865e-05 ,2.8224e-05 ,2.5298e-05 ,1.1279e-05 /) - kbo(:, 5,49, 2) = (/ & - &2.7899e-05 ,4.0582e-05 ,3.9130e-05 ,3.3306e-05 ,1.2389e-05 /) - kbo(:, 1,50, 2) = (/ & - &4.6020e-06 ,7.4638e-06 ,8.1645e-06 ,8.1559e-06 ,5.7980e-06 /) - kbo(:, 2,50, 2) = (/ & - &6.1191e-06 ,1.0436e-05 ,1.1320e-05 ,1.1020e-05 ,6.8814e-06 /) - kbo(:, 3,50, 2) = (/ & - &9.0820e-06 ,1.5149e-05 ,1.5926e-05 ,1.4870e-05 ,7.9274e-06 /) - kbo(:, 4,50, 2) = (/ & - &1.4367e-05 ,2.2331e-05 ,2.2448e-05 ,1.9990e-05 ,8.9091e-06 /) - kbo(:, 5,50, 2) = (/ & - &2.2930e-05 ,3.2870e-05 ,3.1485e-05 ,2.6634e-05 ,9.8428e-06 /) - kbo(:, 1,51, 2) = (/ & - &4.0738e-06 ,6.0767e-06 ,6.4322e-06 ,6.2775e-06 ,4.4265e-06 /) - kbo(:, 2,51, 2) = (/ & - &5.2028e-06 ,8.3182e-06 ,8.8519e-06 ,8.5040e-06 ,5.3268e-06 /) - kbo(:, 3,51, 2) = (/ & - &7.4386e-06 ,1.1969e-05 ,1.2454e-05 ,1.1549e-05 ,6.2015e-06 /) - kbo(:, 4,51, 2) = (/ & - &1.1580e-05 ,1.7676e-05 ,1.7666e-05 ,1.5659e-05 ,7.0249e-06 /) - kbo(:, 5,51, 2) = (/ & - &1.8500e-05 ,2.6231e-05 ,2.5018e-05 ,2.1082e-05 ,7.8088e-06 /) - kbo(:, 1,52, 2) = (/ & - &3.7602e-06 ,5.1251e-06 ,5.1954e-06 ,4.8922e-06 ,3.3637e-06 /) - kbo(:, 2,52, 2) = (/ & - &4.6219e-06 ,6.8269e-06 ,7.0581e-06 ,6.6280e-06 ,4.1074e-06 /) - kbo(:, 3,52, 2) = (/ & - &6.3416e-06 ,9.6823e-06 ,9.8934e-06 ,9.0485e-06 ,4.8363e-06 /) - kbo(:, 4,52, 2) = (/ & - &9.6360e-06 ,1.4271e-05 ,1.4108e-05 ,1.2374e-05 ,5.5264e-06 /) - kbo(:, 5,52, 2) = (/ & - &1.5337e-05 ,2.1320e-05 ,2.0165e-05 ,1.6846e-05 ,6.1865e-06 /) - kbo(:, 1,53, 2) = (/ & - &3.6702e-06 ,4.5390e-06 ,4.3659e-06 ,3.9002e-06 ,2.5423e-06 /) - kbo(:, 2,53, 2) = (/ & - &4.3437e-06 ,5.8533e-06 ,5.8072e-06 ,5.2588e-06 ,3.1537e-06 /) - kbo(:, 3,53, 2) = (/ & - &5.7127e-06 ,8.1219e-06 ,8.0674e-06 ,7.2006e-06 ,3.7613e-06 /) - kbo(:, 4,53, 2) = (/ & - &8.4068e-06 ,1.1886e-05 ,1.1528e-05 ,9.9298e-06 ,4.3399e-06 /) - kbo(:, 5,53, 2) = (/ & - &1.3242e-05 ,1.7846e-05 ,1.6632e-05 ,1.3680e-05 ,4.8970e-06 /) - kbo(:, 1,54, 2) = (/ & - &3.1403e-06 ,3.6924e-06 ,3.4557e-06 ,2.9996e-06 ,1.9177e-06 /) - kbo(:, 2,54, 2) = (/ & - &3.5986e-06 ,4.6301e-06 ,4.4986e-06 ,4.0115e-06 ,2.4155e-06 /) - kbo(:, 3,54, 2) = (/ & - &4.5617e-06 ,6.2669e-06 ,6.1686e-06 ,5.4741e-06 ,2.9175e-06 /) - kbo(:, 4,54, 2) = (/ & - &6.4783e-06 ,9.0433e-06 ,8.7626e-06 ,7.5562e-06 ,3.4007e-06 /) - kbo(:, 5,54, 2) = (/ & - &1.0042e-05 ,1.3533e-05 ,1.2655e-05 ,1.0455e-05 ,3.8639e-06 /) - kbo(:, 1,55, 2) = (/ & - &2.4739e-06 ,2.8343e-06 ,2.6165e-06 ,2.2420e-06 ,1.4427e-06 /) - kbo(:, 2,55, 2) = (/ & - &2.7553e-06 ,3.4672e-06 ,3.3435e-06 ,2.9758e-06 ,1.8442e-06 /) - kbo(:, 3,55, 2) = (/ & - &3.3782e-06 ,4.5817e-06 ,4.5186e-06 ,4.0371e-06 ,2.2544e-06 /) - kbo(:, 4,55, 2) = (/ & - &4.6246e-06 ,6.4927e-06 ,6.3529e-06 ,5.5548e-06 ,2.6558e-06 /) - kbo(:, 5,55, 2) = (/ & - &7.0125e-06 ,9.6319e-06 ,9.1393e-06 ,7.6813e-06 ,3.0372e-06 /) - kbo(:, 1,56, 2) = (/ & - &1.9604e-06 ,2.1929e-06 ,1.9920e-06 ,1.6797e-06 ,1.0797e-06 /) - kbo(:, 2,56, 2) = (/ & - &2.1351e-06 ,2.6170e-06 ,2.4998e-06 ,2.2137e-06 ,1.4022e-06 /) - kbo(:, 3,56, 2) = (/ & - &2.5317e-06 ,3.3754e-06 ,3.3236e-06 ,2.9840e-06 ,1.7372e-06 /) - kbo(:, 4,56, 2) = (/ & - &3.3387e-06 ,4.6862e-06 ,4.6202e-06 ,4.0882e-06 ,2.0679e-06 /) - kbo(:, 5,56, 2) = (/ & - &4.9234e-06 ,6.8724e-06 ,6.6108e-06 ,5.6459e-06 ,2.3854e-06 /) - kbo(:, 1,57, 2) = (/ & - &1.5649e-06 ,1.7047e-06 ,1.5250e-06 ,1.2613e-06 ,8.0294e-07 /) - kbo(:, 2,57, 2) = (/ & - &1.6685e-06 ,1.9908e-06 ,1.8801e-06 ,1.6502e-06 ,1.0613e-06 /) - kbo(:, 3,57, 2) = (/ & - &1.9178e-06 ,2.5066e-06 ,2.4556e-06 ,2.2101e-06 ,1.3329e-06 /) - kbo(:, 4,57, 2) = (/ & - &2.4407e-06 ,3.4025e-06 ,3.3722e-06 ,3.0127e-06 ,1.6045e-06 /) - kbo(:, 5,57, 2) = (/ & - &3.4802e-06 ,4.9175e-06 ,4.7870e-06 ,4.1514e-06 ,1.8688e-06 /) - kbo(:, 1,58, 2) = (/ & - &3.3188e-07 ,4.3313e-07 ,4.9294e-07 ,5.6291e-07 ,5.9615e-07 /) - kbo(:, 2,58, 2) = (/ & - &3.4670e-07 ,4.9696e-07 ,5.9930e-07 ,7.3314e-07 ,8.0253e-07 /) - kbo(:, 3,58, 2) = (/ & - &3.8806e-07 ,6.1237e-07 ,7.7019e-07 ,9.7654e-07 ,1.0216e-06 /) - kbo(:, 4,58, 2) = (/ & - &4.7831e-07 ,8.1333e-07 ,1.0442e-06 ,1.3240e-06 ,1.2449e-06 /) - kbo(:, 5,58, 2) = (/ & - &6.5898e-07 ,1.1558e-06 ,1.4682e-06 ,1.8176e-06 ,1.4615e-06 /) - kbo(:, 1,59, 2) = (/ & - &3.1712e-07 ,4.1538e-07 ,4.5873e-07 ,4.9478e-07 ,4.6737e-07 /) - kbo(:, 2,59, 2) = (/ & - &3.2863e-07 ,4.7977e-07 ,5.6611e-07 ,6.5498e-07 ,6.3397e-07 /) - kbo(:, 3,59, 2) = (/ & - &3.6418e-07 ,5.9318e-07 ,7.3191e-07 ,8.7648e-07 ,8.1119e-07 /) - kbo(:, 4,59, 2) = (/ & - &4.4347e-07 ,7.8664e-07 ,9.8989e-07 ,1.1827e-06 ,9.9218e-07 /) - kbo(:, 5,59, 2) = (/ & - &6.0215e-07 ,1.1090e-06 ,1.3813e-06 ,1.6064e-06 ,1.1684e-06 /) - kbo(:, 1,13, 3) = (/ & - &9.1540e-03 ,2.0983e-02 ,2.7409e-02 ,3.0450e-02 ,2.3144e-02 /) - kbo(:, 2,13, 3) = (/ & - &1.5150e-02 ,2.9836e-02 ,3.7088e-02 ,3.9562e-02 ,2.6157e-02 /) - kbo(:, 3,13, 3) = (/ & - &2.6705e-02 ,4.3495e-02 ,5.0489e-02 ,5.0868e-02 ,2.9169e-02 /) - kbo(:, 4,13, 3) = (/ & - &4.6501e-02 ,6.3525e-02 ,6.8930e-02 ,6.5213e-02 ,3.2207e-02 /) - kbo(:, 5,13, 3) = (/ & - &7.7883e-02 ,9.1957e-02 ,9.3471e-02 ,8.3394e-02 ,3.5205e-02 /) - kbo(:, 1,14, 3) = (/ & - &4.9769e-03 ,1.5542e-02 ,2.1404e-02 ,2.4888e-02 ,2.0102e-02 /) - kbo(:, 2,14, 3) = (/ & - &8.3891e-03 ,2.1811e-02 ,2.8513e-02 ,3.1898e-02 ,2.2689e-02 /) - kbo(:, 3,14, 3) = (/ & - &1.4857e-02 ,3.0975e-02 ,3.8046e-02 ,4.0288e-02 ,2.5289e-02 /) - kbo(:, 4,14, 3) = (/ & - &2.5874e-02 ,4.3884e-02 ,5.0681e-02 ,5.0529e-02 ,2.7965e-02 /) - kbo(:, 5,14, 3) = (/ & - &4.3258e-02 ,6.1604e-02 ,6.6800e-02 ,6.3228e-02 ,3.0564e-02 /) - kbo(:, 1,15, 3) = (/ & - &2.7780e-03 ,1.1828e-02 ,1.7073e-02 ,2.0490e-02 ,1.7377e-02 /) - kbo(:, 2,15, 3) = (/ & - &4.7591e-03 ,1.6367e-02 ,2.2382e-02 ,2.5900e-02 ,1.9610e-02 /) - kbo(:, 3,15, 3) = (/ & - &8.4707e-03 ,2.2715e-02 ,2.9226e-02 ,3.2287e-02 ,2.1849e-02 /) - kbo(:, 4,15, 3) = (/ & - &1.4726e-02 ,3.1294e-02 ,3.8074e-02 ,3.9870e-02 ,2.4127e-02 /) - kbo(:, 5,15, 3) = (/ & - &2.4582e-02 ,4.2700e-02 ,4.9087e-02 ,4.8962e-02 ,2.6357e-02 /) - kbo(:, 1,16, 3) = (/ & - &1.8575e-03 ,9.6428e-03 ,1.4258e-02 ,1.7308e-02 ,1.4967e-02 /) - kbo(:, 2,16, 3) = (/ & - &3.2295e-03 ,1.3222e-02 ,1.8534e-02 ,2.1716e-02 ,1.6894e-02 /) - kbo(:, 3,16, 3) = (/ & - &5.7622e-03 ,1.8134e-02 ,2.3952e-02 ,2.6895e-02 ,1.8844e-02 /) - kbo(:, 4,16, 3) = (/ & - &1.0014e-02 ,2.4628e-02 ,3.0790e-02 ,3.2975e-02 ,2.0792e-02 /) - kbo(:, 5,16, 3) = (/ & - &1.6651e-02 ,3.3072e-02 ,3.9202e-02 ,4.0100e-02 ,2.2651e-02 /) - kbo(:, 1,17, 3) = (/ & - &1.2913e-03 ,7.9469e-03 ,1.1927e-02 ,1.4612e-02 ,1.2832e-02 /) - kbo(:, 2,17, 3) = (/ & - &2.2741e-03 ,1.0816e-02 ,1.5424e-02 ,1.8211e-02 ,1.4484e-02 /) - kbo(:, 3,17, 3) = (/ & - &4.0659e-03 ,1.4661e-02 ,1.9799e-02 ,2.2441e-02 ,1.6158e-02 /) - kbo(:, 4,17, 3) = (/ & - &7.0575e-03 ,1.9668e-02 ,2.5205e-02 ,2.7372e-02 ,1.7784e-02 /) - kbo(:, 5,17, 3) = (/ & - &1.1701e-02 ,2.6124e-02 ,3.1755e-02 ,3.3025e-02 ,1.9312e-02 /) - kbo(:, 1,18, 3) = (/ & - &9.2490e-04 ,6.5924e-03 ,1.0000e-02 ,1.2327e-02 ,1.0954e-02 /) - kbo(:, 2,18, 3) = (/ & - &1.6450e-03 ,8.9024e-03 ,1.2876e-02 ,1.5279e-02 ,1.2362e-02 /) - kbo(:, 3,18, 3) = (/ & - &2.9476e-03 ,1.1938e-02 ,1.6432e-02 ,1.8727e-02 ,1.3771e-02 /) - kbo(:, 4,18, 3) = (/ & - &5.1050e-03 ,1.5852e-02 ,2.0747e-02 ,2.2702e-02 ,1.5108e-02 /) - kbo(:, 5,18, 3) = (/ & - &8.4407e-03 ,2.0877e-02 ,2.5905e-02 ,2.7220e-02 ,1.6353e-02 /) - kbo(:, 1,19, 3) = (/ & - &6.5306e-04 ,5.4276e-03 ,8.3228e-03 ,1.0321e-02 ,9.3064e-03 /) - kbo(:, 2,19, 3) = (/ & - &1.1720e-03 ,7.2659e-03 ,1.0659e-02 ,1.2719e-02 ,1.0490e-02 /) - kbo(:, 3,19, 3) = (/ & - &2.1010e-03 ,9.6452e-03 ,1.3501e-02 ,1.5485e-02 ,1.1656e-02 /) - kbo(:, 4,19, 3) = (/ & - &3.6298e-03 ,1.2682e-02 ,1.6890e-02 ,1.8630e-02 ,1.2744e-02 /) - kbo(:, 5,19, 3) = (/ & - &5.9733e-03 ,1.6533e-02 ,2.0894e-02 ,2.2160e-02 ,1.3725e-02 /) - kbo(:, 1,20, 3) = (/ & - &5.0525e-04 ,4.5786e-03 ,7.0416e-03 ,8.7290e-03 ,7.8885e-03 /) - kbo(:, 2,20, 3) = (/ & - &9.1391e-04 ,6.1018e-03 ,8.9804e-03 ,1.0717e-02 ,8.8768e-03 /) - kbo(:, 3,20, 3) = (/ & - &1.6371e-03 ,8.0525e-03 ,1.1310e-02 ,1.2976e-02 ,9.8259e-03 /) - kbo(:, 4,20, 3) = (/ & - &2.8150e-03 ,1.0522e-02 ,1.4057e-02 ,1.5517e-02 ,1.0692e-02 /) - kbo(:, 5,20, 3) = (/ & - &4.6066e-03 ,1.3646e-02 ,1.7296e-02 ,1.8359e-02 ,1.1448e-02 /) - kbo(:, 1,21, 3) = (/ & - &4.0425e-04 ,3.8829e-03 ,5.9693e-03 ,7.3863e-03 ,6.6651e-03 /) - kbo(:, 2,21, 3) = (/ & - &7.3484e-04 ,5.1547e-03 ,7.5787e-03 ,9.0292e-03 ,7.4787e-03 /) - kbo(:, 3,21, 3) = (/ & - &1.3153e-03 ,6.7705e-03 ,9.4934e-03 ,1.0877e-02 ,8.2368e-03 /) - kbo(:, 4,21, 3) = (/ & - &2.2503e-03 ,8.8142e-03 ,1.1739e-02 ,1.2939e-02 ,8.9114e-03 /) - kbo(:, 5,21, 3) = (/ & - &3.6575e-03 ,1.1380e-02 ,1.4377e-02 ,1.5231e-02 ,9.5025e-03 /) - kbo(:, 1,22, 3) = (/ & - &3.4523e-04 ,3.3635e-03 ,5.1429e-03 ,6.3294e-03 ,5.6535e-03 /) - kbo(:, 2,22, 3) = (/ & - &6.2993e-04 ,4.4492e-03 ,6.4923e-03 ,7.6957e-03 ,6.3107e-03 /) - kbo(:, 3,22, 3) = (/ & - &1.1206e-03 ,5.8192e-03 ,8.0871e-03 ,9.2166e-03 ,6.9018e-03 /) - kbo(:, 4,22, 3) = (/ & - &1.8990e-03 ,7.5458e-03 ,9.9517e-03 ,1.0900e-02 ,7.4316e-03 /) - kbo(:, 5,22, 3) = (/ & - &3.0583e-03 ,9.7051e-03 ,1.2139e-02 ,1.2766e-02 ,7.8941e-03 /) - kbo(:, 1,23, 3) = (/ & - &2.9783e-04 ,2.9108e-03 ,4.4177e-03 ,5.4056e-03 ,4.7807e-03 /) - kbo(:, 2,23, 3) = (/ & - &5.4387e-04 ,3.8320e-03 ,5.5435e-03 ,6.5345e-03 ,5.2974e-03 /) - kbo(:, 3,23, 3) = (/ & - &9.5952e-04 ,4.9950e-03 ,6.8655e-03 ,7.7757e-03 ,5.7630e-03 /) - kbo(:, 4,23, 3) = (/ & - &1.6092e-03 ,6.4496e-03 ,8.4095e-03 ,9.1440e-03 ,6.1817e-03 /) - kbo(:, 5,23, 3) = (/ & - &2.5684e-03 ,8.2494e-03 ,1.0215e-02 ,1.0668e-02 ,6.5447e-03 /) - kbo(:, 1,24, 3) = (/ & - &2.5715e-04 ,2.5095e-03 ,3.7777e-03 ,4.5997e-03 ,4.0260e-03 /) - kbo(:, 2,24, 3) = (/ & - &4.6827e-04 ,3.2888e-03 ,4.7107e-03 ,5.5207e-03 ,4.4325e-03 /) - kbo(:, 3,24, 3) = (/ & - &8.1828e-04 ,4.2677e-03 ,5.8000e-03 ,6.5285e-03 ,4.8028e-03 /) - kbo(:, 4,24, 3) = (/ & - &1.3581e-03 ,5.4776e-03 ,7.0696e-03 ,7.6441e-03 ,5.1338e-03 /) - kbo(:, 5,24, 3) = (/ & - &2.1494e-03 ,6.9550e-03 ,8.5500e-03 ,8.8910e-03 ,5.4193e-03 /) - kbo(:, 1,25, 3) = (/ & - &2.2632e-04 ,2.1696e-03 ,3.2330e-03 ,3.9113e-03 ,3.3801e-03 /) - kbo(:, 2,25, 3) = (/ & - &4.0936e-04 ,2.8320e-03 ,4.0052e-03 ,4.6615e-03 ,3.7035e-03 /) - kbo(:, 3,25, 3) = (/ & - &7.0836e-04 ,3.6547e-03 ,4.9096e-03 ,5.4885e-03 ,3.9989e-03 /) - kbo(:, 4,25, 3) = (/ & - &1.1642e-03 ,4.6613e-03 ,5.9642e-03 ,6.4094e-03 ,4.2600e-03 /) - kbo(:, 5,25, 3) = (/ & - &1.8243e-03 ,5.8764e-03 ,7.1830e-03 ,7.4369e-03 ,4.4844e-03 /) - kbo(:, 1,26, 3) = (/ & - &2.0471e-04 ,1.8893e-03 ,2.7768e-03 ,3.3315e-03 ,2.8361e-03 /) - kbo(:, 2,26, 3) = (/ & - &3.6709e-04 ,2.4543e-03 ,3.4258e-03 ,3.9516e-03 ,3.0939e-03 /) - kbo(:, 3,26, 3) = (/ & - &6.2789e-04 ,3.1504e-03 ,4.1849e-03 ,4.6387e-03 ,3.3286e-03 /) - kbo(:, 4,26, 3) = (/ & - &1.0213e-03 ,3.9950e-03 ,5.0687e-03 ,5.4088e-03 ,3.5346e-03 /) - kbo(:, 5,26, 3) = (/ & - &1.5815e-03 ,5.0074e-03 ,6.0787e-03 ,6.2593e-03 ,3.7107e-03 /) - kbo(:, 1,27, 3) = (/ & - &1.9251e-04 ,1.6617e-03 ,2.4029e-03 ,2.8514e-03 ,2.3762e-03 /) - kbo(:, 2,27, 3) = (/ & - &3.4185e-04 ,2.1525e-03 ,2.9600e-03 ,3.3730e-03 ,2.5825e-03 /) - kbo(:, 3,27, 3) = (/ & - &5.7778e-04 ,2.7512e-03 ,3.6092e-03 ,3.9563e-03 ,2.7684e-03 /) - kbo(:, 4,27, 3) = (/ & - &9.2854e-04 ,3.4753e-03 ,4.3621e-03 ,4.6091e-03 ,2.9308e-03 /) - kbo(:, 5,27, 3) = (/ & - &1.4199e-03 ,4.3436e-03 ,5.2156e-03 ,5.3258e-03 ,3.0691e-03 /) - kbo(:, 1,28, 3) = (/ & - &1.8568e-04 ,1.4731e-03 ,2.0943e-03 ,2.4502e-03 ,1.9883e-03 /) - kbo(:, 2,28, 3) = (/ & - &3.2639e-04 ,1.9038e-03 ,2.5783e-03 ,2.8978e-03 ,2.1535e-03 /) - kbo(:, 3,28, 3) = (/ & - &5.4487e-04 ,2.4257e-03 ,3.1398e-03 ,3.3991e-03 ,2.3010e-03 /) - kbo(:, 4,28, 3) = (/ & - &8.6497e-04 ,3.0580e-03 ,3.7865e-03 ,3.9564e-03 ,2.4290e-03 /) - kbo(:, 5,28, 3) = (/ & - &1.3039e-03 ,3.8186e-03 ,4.5211e-03 ,4.5655e-03 ,2.5382e-03 /) - kbo(:, 1,29, 3) = (/ & - &1.9062e-04 ,1.3364e-03 ,1.8603e-03 ,2.1354e-03 ,1.6643e-03 /) - kbo(:, 2,29, 3) = (/ & - &3.3121e-04 ,1.7267e-03 ,2.2927e-03 ,2.5300e-03 ,1.7960e-03 /) - kbo(:, 3,29, 3) = (/ & - &5.4570e-04 ,2.2011e-03 ,2.7931e-03 ,2.9723e-03 ,1.9129e-03 /) - kbo(:, 4,29, 3) = (/ & - &8.5435e-04 ,2.7794e-03 ,3.3678e-03 ,3.4607e-03 ,2.0139e-03 /) - kbo(:, 5,29, 3) = (/ & - &1.2701e-03 ,3.4715e-03 ,4.0279e-03 ,3.9937e-03 ,2.1000e-03 /) - kbo(:, 1,30, 3) = (/ & - &2.0043e-04 ,1.2258e-03 ,1.6689e-03 ,1.8766e-03 ,1.3916e-03 /) - kbo(:, 2,30, 3) = (/ & - &3.4350e-04 ,1.5850e-03 ,2.0586e-03 ,2.2288e-03 ,1.4967e-03 /) - kbo(:, 3,30, 3) = (/ & - &5.5868e-04 ,2.0253e-03 ,2.5096e-03 ,2.6211e-03 ,1.5893e-03 /) - kbo(:, 4,30, 3) = (/ & - &8.6173e-04 ,2.5636e-03 ,3.0320e-03 ,3.0532e-03 ,1.6692e-03 /) - kbo(:, 5,30, 3) = (/ & - &1.2648e-03 ,3.2006e-03 ,3.6329e-03 ,3.5289e-03 ,1.7373e-03 /) - kbo(:, 1,31, 3) = (/ & - &2.2172e-04 ,1.1517e-03 ,1.5273e-03 ,1.6764e-03 ,1.1637e-03 /) - kbo(:, 2,31, 3) = (/ & - &3.7478e-04 ,1.4949e-03 ,1.8875e-03 ,1.9960e-03 ,1.2474e-03 /) - kbo(:, 3,31, 3) = (/ & - &6.0019e-04 ,1.9228e-03 ,2.3094e-03 ,2.3523e-03 ,1.3210e-03 /) - kbo(:, 4,31, 3) = (/ & - &9.1186e-04 ,2.4398e-03 ,2.8016e-03 ,2.7471e-03 ,1.3843e-03 /) - kbo(:, 5,31, 3) = (/ & - &1.3231e-03 ,3.0462e-03 ,3.3613e-03 ,3.1855e-03 ,1.4373e-03 /) - kbo(:, 1,32, 3) = (/ & - &2.4768e-04 ,1.0937e-03 ,1.4089e-03 ,1.5091e-03 ,9.7256e-04 /) - kbo(:, 2,32, 3) = (/ & - &4.1248e-04 ,1.4292e-03 ,1.7477e-03 ,1.8006e-03 ,1.0394e-03 /) - kbo(:, 3,32, 3) = (/ & - &6.5047e-04 ,1.8467e-03 ,2.1484e-03 ,2.1275e-03 ,1.0979e-03 /) - kbo(:, 4,32, 3) = (/ & - &9.7457e-04 ,2.3473e-03 ,2.6140e-03 ,2.4947e-03 ,1.1482e-03 /) - kbo(:, 5,32, 3) = (/ & - &1.3990e-03 ,2.9324e-03 ,3.1399e-03 ,2.8984e-03 ,1.1898e-03 /) - kbo(:, 1,33, 3) = (/ & - &2.8078e-04 ,1.0552e-03 ,1.3156e-03 ,1.3710e-03 ,8.1280e-04 /) - kbo(:, 2,33, 3) = (/ & - &4.6027e-04 ,1.3891e-03 ,1.6405e-03 ,1.6404e-03 ,8.6605e-04 /) - kbo(:, 3,33, 3) = (/ & - &7.1527e-04 ,1.8015e-03 ,2.0264e-03 ,1.9473e-03 ,9.1257e-04 /) - kbo(:, 4,33, 3) = (/ & - &1.0579e-03 ,2.2936e-03 ,2.4711e-03 ,2.2904e-03 ,9.5249e-04 /) - kbo(:, 5,33, 3) = (/ & - &1.5037e-03 ,2.8717e-03 ,2.9734e-03 ,2.6646e-03 ,9.8557e-04 /) - kbo(:, 1,34, 3) = (/ & - &3.0359e-04 ,1.0038e-03 ,1.2140e-03 ,1.2334e-03 ,6.7695e-04 /) - kbo(:, 2,34, 3) = (/ & - &4.9090e-04 ,1.3275e-03 ,1.5216e-03 ,1.4814e-03 ,7.1957e-04 /) - kbo(:, 3,34, 3) = (/ & - &7.5358e-04 ,1.7240e-03 ,1.8846e-03 ,1.7651e-03 ,7.5712e-04 /) - kbo(:, 4,34, 3) = (/ & - &1.1033e-03 ,2.1975e-03 ,2.2999e-03 ,2.0785e-03 ,7.8887e-04 /) - kbo(:, 5,34, 3) = (/ & - &1.5542e-03 ,2.7592e-03 ,2.7749e-03 ,2.4194e-03 ,8.1541e-04 /) - kbo(:, 1,35, 3) = (/ & - &3.1210e-04 ,9.3394e-04 ,1.1014e-03 ,1.0942e-03 ,5.6016e-04 /) - kbo(:, 2,35, 3) = (/ & - &5.0058e-04 ,1.2412e-03 ,1.3879e-03 ,1.3212e-03 ,5.9529e-04 /) - kbo(:, 3,35, 3) = (/ & - &7.6299e-04 ,1.6182e-03 ,1.7248e-03 ,1.5791e-03 ,6.2556e-04 /) - kbo(:, 4,35, 3) = (/ & - &1.1110e-03 ,2.0696e-03 ,2.1107e-03 ,1.8624e-03 ,6.5155e-04 /) - kbo(:, 5,35, 3) = (/ & - &1.5579e-03 ,2.6064e-03 ,2.5562e-03 ,2.1725e-03 ,6.7276e-04 /) - kbo(:, 1,36, 3) = (/ & - &3.0156e-04 ,8.4185e-04 ,9.7484e-04 ,9.5194e-04 ,4.6045e-04 /) - kbo(:, 2,36, 3) = (/ & - &4.8313e-04 ,1.1258e-03 ,1.2357e-03 ,1.1559e-03 ,4.8953e-04 /) - kbo(:, 3,36, 3) = (/ & - &7.3505e-04 ,1.4756e-03 ,1.5422e-03 ,1.3864e-03 ,5.1450e-04 /) - kbo(:, 4,36, 3) = (/ & - &1.0692e-03 ,1.8983e-03 ,1.8970e-03 ,1.6403e-03 ,5.3594e-04 /) - kbo(:, 5,36, 3) = (/ & - &1.4983e-03 ,2.4025e-03 ,2.3079e-03 ,1.9210e-03 ,5.5373e-04 /) - kbo(:, 1,37, 3) = (/ & - &2.6336e-04 ,7.1618e-04 ,8.2306e-04 ,7.9778e-04 ,3.7474e-04 /) - kbo(:, 2,37, 3) = (/ & - &4.2453e-04 ,9.6471e-04 ,1.0505e-03 ,9.7428e-04 ,3.9893e-04 /) - kbo(:, 3,37, 3) = (/ & - &6.5002e-04 ,1.2743e-03 ,1.3189e-03 ,1.1741e-03 ,4.2011e-04 /) - kbo(:, 4,37, 3) = (/ & - &9.5041e-04 ,1.6515e-03 ,1.6323e-03 ,1.3957e-03 ,4.3822e-04 /) - kbo(:, 5,37, 3) = (/ & - &1.3379e-03 ,2.1029e-03 ,1.9967e-03 ,1.6424e-03 ,4.5330e-04 /) - kbo(:, 1,38, 3) = (/ & - &2.3216e-04 ,6.1241e-04 ,6.9804e-04 ,6.7090e-04 ,3.0479e-04 /) - kbo(:, 2,38, 3) = (/ & - &3.7692e-04 ,8.3215e-04 ,8.9807e-04 ,8.2465e-04 ,3.2506e-04 /) - kbo(:, 3,38, 3) = (/ & - &5.8109e-04 ,1.1090e-03 ,1.1350e-03 ,9.9936e-04 ,3.4289e-04 /) - kbo(:, 4,38, 3) = (/ & - &8.5435e-04 ,1.4493e-03 ,1.4148e-03 ,1.1944e-03 ,3.5825e-04 /) - kbo(:, 5,38, 3) = (/ & - &1.2083e-03 ,1.8590e-03 ,1.7421e-03 ,1.4132e-03 ,3.7105e-04 /) - kbo(:, 1,39, 3) = (/ & - &2.0931e-04 ,5.3070e-04 ,5.9845e-04 ,5.6903e-04 ,2.4791e-04 /) - kbo(:, 2,39, 3) = (/ & - &3.4220e-04 ,7.2810e-04 ,7.7651e-04 ,7.0438e-04 ,2.6488e-04 /) - kbo(:, 3,39, 3) = (/ & - &5.3115e-04 ,9.8088e-04 ,9.9044e-04 ,8.5969e-04 ,2.7995e-04 /) - kbo(:, 4,39, 3) = (/ & - &7.8539e-04 ,1.2946e-03 ,1.2451e-03 ,1.0342e-03 ,2.9299e-04 /) - kbo(:, 5,39, 3) = (/ & - &1.1164e-03 ,1.6738e-03 ,1.5453e-03 ,1.2315e-03 ,3.0388e-04 /) - kbo(:, 1,40, 3) = (/ & - &1.6775e-04 ,4.2853e-04 ,4.8421e-04 ,4.6094e-04 ,1.9976e-04 /) - kbo(:, 2,40, 3) = (/ & - &2.7762e-04 ,5.9348e-04 ,6.3343e-04 ,5.7451e-04 ,2.1416e-04 /) - kbo(:, 3,40, 3) = (/ & - &4.3621e-04 ,8.0667e-04 ,8.1437e-04 ,7.0551e-04 ,2.2701e-04 /) - kbo(:, 4,40, 3) = (/ & - &6.5215e-04 ,1.0751e-03 ,1.0317e-03 ,8.5401e-04 ,2.3821e-04 /) - kbo(:, 5,40, 3) = (/ & - &9.3504e-04 ,1.4004e-03 ,1.2886e-03 ,1.0222e-03 ,2.4759e-04 /) - kbo(:, 1,41, 3) = (/ & - &1.3280e-04 ,3.4319e-04 ,3.8888e-04 ,3.7131e-04 ,1.6067e-04 /) - kbo(:, 2,41, 3) = (/ & - &2.2274e-04 ,4.8016e-04 ,5.1341e-04 ,4.6640e-04 ,1.7291e-04 /) - kbo(:, 3,41, 3) = (/ & - &3.5456e-04 ,6.5866e-04 ,6.6545e-04 ,5.7628e-04 ,1.8383e-04 /) - kbo(:, 4,41, 3) = (/ & - &5.3629e-04 ,8.8588e-04 ,8.4970e-04 ,7.0181e-04 ,1.9338e-04 /) - kbo(:, 5,41, 3) = (/ & - &7.7683e-04 ,1.1654e-03 ,1.0693e-03 ,8.4547e-04 ,2.0151e-04 /) - kbo(:, 1,42, 3) = (/ & - &1.0593e-04 ,2.7588e-04 ,3.1299e-04 ,2.9948e-04 ,1.2916e-04 /) - kbo(:, 2,42, 3) = (/ & - &1.8005e-04 ,3.9002e-04 ,4.1742e-04 ,3.7944e-04 ,1.3949e-04 /) - kbo(:, 3,42, 3) = (/ & - &2.9034e-04 ,5.4056e-04 ,5.4599e-04 ,4.7208e-04 ,1.4879e-04 /) - kbo(:, 4,42, 3) = (/ & - &4.4476e-04 ,7.3427e-04 ,7.0341e-04 ,5.7900e-04 ,1.5686e-04 /) - kbo(:, 5,42, 3) = (/ & - &6.5058e-04 ,9.7580e-04 ,8.9207e-04 ,7.0236e-04 ,1.6390e-04 /) - kbo(:, 1,43, 3) = (/ & - &8.2227e-05 ,2.1779e-04 ,2.4797e-04 ,2.3838e-04 ,1.0321e-04 /) - kbo(:, 2,43, 3) = (/ & - &1.4211e-04 ,3.1159e-04 ,3.3460e-04 ,3.0498e-04 ,1.1196e-04 /) - kbo(:, 3,43, 3) = (/ & - &2.3284e-04 ,4.3690e-04 ,4.4252e-04 ,3.8287e-04 ,1.1989e-04 /) - kbo(:, 4,43, 3) = (/ & - &3.6233e-04 ,6.0081e-04 ,5.7601e-04 ,4.7373e-04 ,1.2682e-04 /) - kbo(:, 5,43, 3) = (/ & - &5.3702e-04 ,8.0864e-04 ,7.3797e-04 ,5.7931e-04 ,1.3294e-04 /) - kbo(:, 1,44, 3) = (/ & - &6.3384e-05 ,1.7094e-04 ,1.9525e-04 ,1.8879e-04 ,8.2201e-05 /) - kbo(:, 2,44, 3) = (/ & - &1.1160e-04 ,2.4797e-04 ,2.6713e-04 ,2.4425e-04 ,8.9566e-05 /) - kbo(:, 3,44, 3) = (/ & - &1.8608e-04 ,3.5211e-04 ,3.5750e-04 ,3.0979e-04 ,9.6374e-05 /) - kbo(:, 4,44, 3) = (/ & - &2.9467e-04 ,4.9085e-04 ,4.7122e-04 ,3.8724e-04 ,1.0229e-04 /) - kbo(:, 5,44, 3) = (/ & - &4.4331e-04 ,6.6909e-04 ,6.1037e-04 ,4.7753e-04 ,1.0759e-04 /) - kbo(:, 1,45, 3) = (/ & - &4.9661e-05 ,1.3506e-04 ,1.5438e-04 ,1.4993e-04 ,6.5369e-05 /) - kbo(:, 2,45, 3) = (/ & - &8.8927e-05 ,1.9883e-04 ,2.1432e-04 ,1.9642e-04 ,7.1593e-05 /) - kbo(:, 3,45, 3) = (/ & - &1.5097e-04 ,2.8657e-04 ,2.9095e-04 ,2.5226e-04 ,7.7369e-05 /) - kbo(:, 4,45, 3) = (/ & - &2.4324e-04 ,4.0505e-04 ,3.8855e-04 ,3.1866e-04 ,8.2473e-05 /) - kbo(:, 5,45, 3) = (/ & - &3.7189e-04 ,5.6030e-04 ,5.1022e-04 ,3.9740e-04 ,8.7038e-05 /) - kbo(:, 1,46, 3) = (/ & - &3.8628e-05 ,1.0586e-04 ,1.2112e-04 ,1.1814e-04 ,5.1792e-05 /) - kbo(:, 2,46, 3) = (/ & - &7.0302e-05 ,1.5840e-04 ,1.7081e-04 ,1.5701e-04 ,5.7032e-05 /) - kbo(:, 3,46, 3) = (/ & - &1.2164e-04 ,2.3200e-04 ,2.3559e-04 ,2.0456e-04 ,6.1939e-05 /) - kbo(:, 4,46, 3) = (/ & - &1.9963e-04 ,3.3271e-04 ,3.1891e-04 ,2.6146e-04 ,6.6327e-05 /) - kbo(:, 5,46, 3) = (/ & - &3.1076e-04 ,4.6749e-04 ,4.2492e-04 ,3.2997e-04 ,7.0248e-05 /) - kbo(:, 1,47, 3) = (/ & - &2.8886e-05 ,8.0656e-05 ,9.2760e-05 ,9.1121e-05 ,4.0766e-05 /) - kbo(:, 2,47, 3) = (/ & - &5.3342e-05 ,1.2263e-04 ,1.3276e-04 ,1.2283e-04 ,4.5144e-05 /) - kbo(:, 3,47, 3) = (/ & - &9.4301e-05 ,1.8266e-04 ,1.8617e-04 ,1.6258e-04 ,4.9298e-05 /) - kbo(:, 4,47, 3) = (/ & - &1.5800e-04 ,2.6616e-04 ,2.5579e-04 ,2.1061e-04 ,5.3068e-05 /) - kbo(:, 5,47, 3) = (/ & - &2.5109e-04 ,3.7981e-04 ,3.4582e-04 ,2.6887e-04 ,5.6458e-05 /) - kbo(:, 1,48, 3) = (/ & - &2.2227e-05 ,6.2023e-05 ,7.1458e-05 ,7.0462e-05 ,3.1996e-05 /) - kbo(:, 2,48, 3) = (/ & - &4.1346e-05 ,9.5908e-05 ,1.0391e-04 ,9.6415e-05 ,3.5660e-05 /) - kbo(:, 3,48, 3) = (/ & - &7.4574e-05 ,1.4557e-04 ,1.4830e-04 ,1.2990e-04 ,3.9158e-05 /) - kbo(:, 4,48, 3) = (/ & - &1.2768e-04 ,2.1605e-04 ,2.0753e-04 ,1.7110e-04 ,4.2391e-05 /) - kbo(:, 5,48, 3) = (/ & - &2.0727e-04 ,3.1336e-04 ,2.8498e-04 ,2.2145e-04 ,4.5305e-05 /) - kbo(:, 1,49, 3) = (/ & - &1.7958e-05 ,4.8535e-05 ,5.5723e-05 ,5.4851e-05 ,2.5055e-05 /) - kbo(:, 2,49, 3) = (/ & - &3.3224e-05 ,7.6396e-05 ,8.2450e-05 ,7.6323e-05 ,2.8114e-05 /) - kbo(:, 3,49, 3) = (/ & - &6.0934e-05 ,1.1837e-04 ,1.1999e-04 ,1.0483e-04 ,3.1052e-05 /) - kbo(:, 4,49, 3) = (/ & - &1.0660e-04 ,1.7943e-04 ,1.7133e-04 ,1.4083e-04 ,3.3806e-05 /) - kbo(:, 5,49, 3) = (/ & - &1.7683e-04 ,2.6555e-04 ,2.4004e-04 ,1.8562e-04 ,3.6333e-05 /) - kbo(:, 1,50, 3) = (/ & - &1.4221e-05 ,3.7289e-05 ,4.2772e-05 ,4.2112e-05 ,1.9622e-05 /) - kbo(:, 2,50, 3) = (/ & - &2.5770e-05 ,5.9303e-05 ,6.4074e-05 ,5.9411e-05 ,2.2155e-05 /) - kbo(:, 3,50, 3) = (/ & - &4.7760e-05 ,9.3560e-05 ,9.4851e-05 ,8.2933e-05 ,2.4619e-05 /) - kbo(:, 4,50, 3) = (/ & - &8.5239e-05 ,1.4440e-04 ,1.3769e-04 ,1.1329e-04 ,2.6943e-05 /) - kbo(:, 5,50, 3) = (/ & - &1.4427e-04 ,2.1753e-04 ,1.9626e-04 ,1.5178e-04 ,2.9098e-05 /) - kbo(:, 1,51, 3) = (/ & - &1.1317e-05 ,2.8454e-05 ,3.2589e-05 ,3.2092e-05 ,1.5353e-05 /) - kbo(:, 2,51, 3) = (/ & - &1.9742e-05 ,4.5457e-05 ,4.9229e-05 ,4.5791e-05 ,1.7432e-05 /) - kbo(:, 3,51, 3) = (/ & - &3.6711e-05 ,7.2714e-05 ,7.3963e-05 ,6.4841e-05 ,1.9496e-05 /) - kbo(:, 4,51, 3) = (/ & - &6.6639e-05 ,1.1416e-04 ,1.0901e-04 ,8.9977e-05 ,2.1439e-05 /) - kbo(:, 5,51, 3) = (/ & - &1.1501e-04 ,1.7496e-04 ,1.5780e-04 ,1.2232e-04 ,2.3266e-05 /) - kbo(:, 1,52, 3) = (/ & - &9.5193e-06 ,2.2151e-05 ,2.5124e-05 ,2.4603e-05 ,1.1980e-05 /) - kbo(:, 2,52, 3) = (/ & - &1.5692e-05 ,3.5362e-05 ,3.8197e-05 ,3.5510e-05 ,1.3701e-05 /) - kbo(:, 3,52, 3) = (/ & - &2.8933e-05 ,5.7282e-05 ,5.8273e-05 ,5.1019e-05 ,1.5415e-05 /) - kbo(:, 4,52, 3) = (/ & - &5.3248e-05 ,9.1604e-05 ,8.7350e-05 ,7.2017e-05 ,1.7048e-05 /) - kbo(:, 5,52, 3) = (/ & - &9.3646e-05 ,1.4304e-04 ,1.2865e-04 ,9.9576e-05 ,1.8583e-05 /) - kbo(:, 1,53, 3) = (/ & - &8.6013e-06 ,1.7806e-05 ,1.9756e-05 ,1.9080e-05 ,9.3222e-06 /) - kbo(:, 2,53, 3) = (/ & - &1.3174e-05 ,2.8179e-05 ,3.0144e-05 ,2.7850e-05 ,1.0743e-05 /) - kbo(:, 3,53, 3) = (/ & - &2.3711e-05 ,4.6162e-05 ,4.6700e-05 ,4.0629e-05 ,1.2161e-05 /) - kbo(:, 4,53, 3) = (/ & - &4.4006e-05 ,7.5218e-05 ,7.1366e-05 ,5.8426e-05 ,1.3528e-05 /) - kbo(:, 5,53, 3) = (/ & - &7.8885e-05 ,1.1994e-04 ,1.0719e-04 ,8.2389e-05 ,1.4819e-05 /) - kbo(:, 1,54, 3) = (/ & - &6.9789e-06 ,1.3437e-05 ,1.4771e-05 ,1.4238e-05 ,7.2546e-06 /) - kbo(:, 2,54, 3) = (/ & - &9.9119e-06 ,2.0811e-05 ,2.2371e-05 ,2.0824e-05 ,8.4185e-06 /) - kbo(:, 3,54, 3) = (/ & - &1.7167e-05 ,3.4065e-05 ,3.4800e-05 ,3.0574e-05 ,9.5808e-06 /) - kbo(:, 4,54, 3) = (/ & - &3.1909e-05 ,5.5956e-05 ,5.3708e-05 ,4.4436e-05 ,1.0721e-05 /) - kbo(:, 5,54, 3) = (/ & - &5.8081e-05 ,9.0422e-05 ,8.1544e-05 ,6.3307e-05 ,1.1799e-05 /) - kbo(:, 1,55, 3) = (/ & - &5.3128e-06 ,9.7390e-06 ,1.0688e-05 ,1.0358e-05 ,5.6367e-06 /) - kbo(:, 2,55, 3) = (/ & - &6.9987e-06 ,1.4672e-05 ,1.5984e-05 ,1.5113e-05 ,6.5876e-06 /) - kbo(:, 3,55, 3) = (/ & - &1.1522e-05 ,2.3785e-05 ,2.4757e-05 ,2.2203e-05 ,7.5366e-06 /) - kbo(:, 4,55, 3) = (/ & - &2.1231e-05 ,3.9099e-05 ,3.8355e-05 ,3.2404e-05 ,8.4801e-06 /) - kbo(:, 5,55, 3) = (/ & - &3.9115e-05 ,6.3594e-05 ,5.8504e-05 ,4.6398e-05 ,9.3778e-06 /) - kbo(:, 1,56, 3) = (/ & - &4.1255e-06 ,7.1364e-06 ,7.7808e-06 ,7.5482e-06 ,4.3681e-06 /) - kbo(:, 2,56, 3) = (/ & - &5.0603e-06 ,1.0419e-05 ,1.1462e-05 ,1.0974e-05 ,5.1464e-06 /) - kbo(:, 3,56, 3) = (/ & - &7.8194e-06 ,1.6631e-05 ,1.7619e-05 ,1.6112e-05 ,5.9174e-06 /) - kbo(:, 4,56, 3) = (/ & - &1.4119e-05 ,2.7308e-05 ,2.7375e-05 ,2.3608e-05 ,6.6946e-06 /) - kbo(:, 5,56, 3) = (/ & - &2.6208e-05 ,4.4637e-05 ,4.1923e-05 ,3.3985e-05 ,7.4429e-06 /) - kbo(:, 1,57, 3) = (/ & - &3.2493e-06 ,5.2971e-06 ,5.6993e-06 ,5.5117e-06 ,3.3724e-06 /) - kbo(:, 2,57, 3) = (/ & - &3.7488e-06 ,7.4571e-06 ,8.2480e-06 ,7.9737e-06 ,4.0105e-06 /) - kbo(:, 3,57, 3) = (/ & - &5.3914e-06 ,1.1658e-05 ,1.2555e-05 ,1.1685e-05 ,4.6429e-06 /) - kbo(:, 4,57, 3) = (/ & - &9.4028e-06 ,1.9067e-05 ,1.9516e-05 ,1.7175e-05 ,5.2749e-06 /) - kbo(:, 5,57, 3) = (/ & - &1.7491e-05 ,3.1266e-05 ,3.0002e-05 ,2.4856e-05 ,5.8965e-06 /) - kbo(:, 1,58, 3) = (/ & - &6.8210e-07 ,1.3006e-06 ,1.7801e-06 ,2.4088e-06 ,2.6011e-06 /) - kbo(:, 2,58, 3) = (/ & - &7.5233e-07 ,1.7695e-06 ,2.5293e-06 ,3.4612e-06 ,3.1260e-06 /) - kbo(:, 3,58, 3) = (/ & - &1.0077e-06 ,2.6981e-06 ,3.8040e-06 ,5.0545e-06 ,3.6427e-06 /) - kbo(:, 4,58, 3) = (/ & - &1.6789e-06 ,4.3767e-06 ,5.8928e-06 ,7.4329e-06 ,4.1541e-06 /) - kbo(:, 5,58, 3) = (/ & - &3.1035e-06 ,7.1707e-06 ,9.0733e-06 ,1.0789e-05 ,4.6675e-06 /) - kbo(:, 1,59, 3) = (/ & - &6.5007e-07 ,1.2934e-06 ,1.7266e-06 ,2.1835e-06 ,2.0738e-06 /) - kbo(:, 2,59, 3) = (/ & - &7.0640e-07 ,1.7649e-06 ,2.4593e-06 ,3.1227e-06 ,2.5027e-06 /) - kbo(:, 3,59, 3) = (/ & - &9.2077e-07 ,2.6612e-06 ,3.6625e-06 ,4.5103e-06 ,2.9231e-06 /) - kbo(:, 4,59, 3) = (/ & - &1.5013e-06 ,4.2541e-06 ,5.5816e-06 ,6.5373e-06 ,3.3365e-06 /) - kbo(:, 5,59, 3) = (/ & - &2.7629e-06 ,6.8551e-06 ,8.4568e-06 ,9.3583e-06 ,3.7483e-06 /) - kbo(:, 1,13, 4) = (/ & - &6.7049e-02 ,1.0578e-01 ,1.2049e-01 ,1.1447e-01 ,5.3996e-02 /) - kbo(:, 2,13, 4) = (/ & - &1.2378e-01 ,1.5839e-01 ,1.6716e-01 ,1.4967e-01 ,5.8724e-02 /) - kbo(:, 3,13, 4) = (/ & - &2.1508e-01 ,2.3357e-01 ,2.2807e-01 ,1.9256e-01 ,6.3468e-02 /) - kbo(:, 4,13, 4) = (/ & - &3.4658e-01 ,3.3547e-01 ,3.0532e-01 ,2.4368e-01 ,6.7895e-02 /) - kbo(:, 5,13, 4) = (/ & - &5.1918e-01 ,4.6542e-01 ,4.0071e-01 ,3.0351e-01 ,7.2180e-02 /) - kbo(:, 1,14, 4) = (/ & - &3.7591e-02 ,7.5935e-02 ,8.9834e-02 ,8.8154e-02 ,4.7370e-02 /) - kbo(:, 2,14, 4) = (/ & - &6.9282e-02 ,1.0939e-01 ,1.2082e-01 ,1.1264e-01 ,5.1597e-02 /) - kbo(:, 3,14, 4) = (/ & - &1.1973e-01 ,1.5456e-01 ,1.5973e-01 ,1.4179e-01 ,5.5698e-02 /) - kbo(:, 4,14, 4) = (/ & - &1.9141e-01 ,2.1319e-01 ,2.0757e-01 ,1.7567e-01 ,5.9503e-02 /) - kbo(:, 5,14, 4) = (/ & - &2.8419e-01 ,2.8689e-01 ,2.6537e-01 ,2.1426e-01 ,6.3167e-02 /) - kbo(:, 1,15, 4) = (/ & - &2.1562e-02 ,5.5383e-02 ,6.7683e-02 ,6.8583e-02 ,4.1403e-02 /) - kbo(:, 2,15, 4) = (/ & - &3.9720e-02 ,7.6977e-02 ,8.8827e-02 ,8.5804e-02 ,4.5107e-02 /) - kbo(:, 3,15, 4) = (/ & - &6.8049e-02 ,1.0522e-01 ,1.1458e-01 ,1.0592e-01 ,4.8636e-02 /) - kbo(:, 4,15, 4) = (/ & - &1.0779e-01 ,1.4096e-01 ,1.4532e-01 ,1.2906e-01 ,5.1972e-02 /) - kbo(:, 5,15, 4) = (/ & - &1.5865e-01 ,1.8497e-01 ,1.8175e-01 ,1.5501e-01 ,5.5102e-02 /) - kbo(:, 1,16, 4) = (/ & - &1.4772e-02 ,4.3932e-02 ,5.4513e-02 ,5.6391e-02 ,3.6009e-02 /) - kbo(:, 2,16, 4) = (/ & - &2.7132e-02 ,5.9972e-02 ,7.0550e-02 ,6.9709e-02 ,3.9169e-02 /) - kbo(:, 3,16, 4) = (/ & - &4.6049e-02 ,8.0444e-02 ,8.9769e-02 ,8.5125e-02 ,4.2209e-02 /) - kbo(:, 4,16, 4) = (/ & - &7.2213e-02 ,1.0588e-01 ,1.1245e-01 ,1.0271e-01 ,4.5097e-02 /) - kbo(:, 5,16, 4) = (/ & - &1.0534e-01 ,1.3693e-01 ,1.3910e-01 ,1.2239e-01 ,4.7833e-02 /) - kbo(:, 1,17, 4) = (/ & - &1.0505e-02 ,3.5195e-02 ,4.4278e-02 ,4.6677e-02 ,3.1091e-02 /) - kbo(:, 2,17, 4) = (/ & - &1.9166e-02 ,4.7335e-02 ,5.6632e-02 ,5.7162e-02 ,3.3802e-02 /) - kbo(:, 3,17, 4) = (/ & - &3.2242e-02 ,6.2594e-02 ,7.1319e-02 ,6.9208e-02 ,3.6407e-02 /) - kbo(:, 4,17, 4) = (/ & - &4.9961e-02 ,8.1341e-02 ,8.8470e-02 ,8.2810e-02 ,3.8893e-02 /) - kbo(:, 5,17, 4) = (/ & - &7.2404e-02 ,1.0400e-01 ,1.0862e-01 ,9.8084e-02 ,4.1273e-02 /) - kbo(:, 1,18, 4) = (/ & - &7.6562e-03 ,2.8333e-02 ,3.6121e-02 ,3.8835e-02 ,2.6686e-02 /) - kbo(:, 2,18, 4) = (/ & - &1.3867e-02 ,3.7676e-02 ,4.5765e-02 ,4.7147e-02 ,2.9013e-02 /) - kbo(:, 3,18, 4) = (/ & - &2.3086e-02 ,4.9274e-02 ,5.7143e-02 ,5.6661e-02 ,3.1231e-02 /) - kbo(:, 4,18, 4) = (/ & - &3.5350e-02 ,6.3412e-02 ,7.0379e-02 ,6.7363e-02 ,3.3367e-02 /) - kbo(:, 5,18, 4) = (/ & - &5.0974e-02 ,8.0253e-02 ,8.5775e-02 ,7.9284e-02 ,3.5380e-02 /) - kbo(:, 1,19, 4) = (/ & - &5.4803e-03 ,2.2514e-02 ,2.9208e-02 ,3.2099e-02 ,2.2789e-02 /) - kbo(:, 2,19, 4) = (/ & - &9.8317e-03 ,2.9614e-02 ,3.6650e-02 ,3.8632e-02 ,2.4757e-02 /) - kbo(:, 3,19, 4) = (/ & - &1.6184e-02 ,3.8312e-02 ,4.5365e-02 ,4.6081e-02 ,2.6634e-02 /) - kbo(:, 4,19, 4) = (/ & - &2.4529e-02 ,4.8776e-02 ,5.5440e-02 ,5.4451e-02 ,2.8434e-02 /) - kbo(:, 5,19, 4) = (/ & - &3.5233e-02 ,6.1231e-02 ,6.7107e-02 ,6.3779e-02 ,3.0105e-02 /) - kbo(:, 1,20, 4) = (/ & - &4.2828e-03 ,1.8555e-02 ,2.4277e-02 ,2.6995e-02 ,1.9406e-02 /) - kbo(:, 2,20, 4) = (/ & - &7.5931e-03 ,2.4236e-02 ,3.0290e-02 ,3.2347e-02 ,2.1050e-02 /) - kbo(:, 3,20, 4) = (/ & - &1.2330e-02 ,3.1123e-02 ,3.7288e-02 ,3.8414e-02 ,2.2621e-02 /) - kbo(:, 4,20, 4) = (/ & - &1.8510e-02 ,3.9358e-02 ,4.5374e-02 ,4.5224e-02 ,2.4107e-02 /) - kbo(:, 5,20, 4) = (/ & - &2.6546e-02 ,4.9149e-02 ,5.4720e-02 ,5.2789e-02 ,2.5443e-02 /) - kbo(:, 1,21, 4) = (/ & - &3.4446e-03 ,1.5454e-02 ,2.0322e-02 ,2.2766e-02 ,1.6445e-02 /) - kbo(:, 2,21, 4) = (/ & - &6.0284e-03 ,2.0063e-02 ,2.5258e-02 ,2.7191e-02 ,1.7819e-02 /) - kbo(:, 3,21, 4) = (/ & - &9.6698e-03 ,2.5633e-02 ,3.0993e-02 ,3.2202e-02 ,1.9116e-02 /) - kbo(:, 4,21, 4) = (/ & - &1.4416e-02 ,3.2230e-02 ,3.7573e-02 ,3.7789e-02 ,2.0305e-02 /) - kbo(:, 5,21, 4) = (/ & - &2.0653e-02 ,4.0104e-02 ,4.5153e-02 ,4.3956e-02 ,2.1322e-02 /) - kbo(:, 1,22, 4) = (/ & - &2.9417e-03 ,1.3191e-02 ,1.7364e-02 ,1.9451e-02 ,1.3960e-02 /) - kbo(:, 2,22, 4) = (/ & - &5.0614e-03 ,1.7031e-02 ,2.1496e-02 ,2.3163e-02 ,1.5084e-02 /) - kbo(:, 3,22, 4) = (/ & - &7.9857e-03 ,2.1643e-02 ,2.6269e-02 ,2.7349e-02 ,1.6128e-02 /) - kbo(:, 4,22, 4) = (/ & - &1.1815e-02 ,2.7096e-02 ,3.1716e-02 ,3.1974e-02 ,1.7035e-02 /) - kbo(:, 5,22, 4) = (/ & - &1.6874e-02 ,3.3630e-02 ,3.8023e-02 ,3.7066e-02 ,1.7780e-02 /) - kbo(:, 1,23, 4) = (/ & - &2.5270e-03 ,1.1266e-02 ,1.4840e-02 ,1.6589e-02 ,1.1804e-02 /) - kbo(:, 2,23, 4) = (/ & - &4.2729e-03 ,1.4464e-02 ,1.8293e-02 ,1.9688e-02 ,1.2713e-02 /) - kbo(:, 3,23, 4) = (/ & - &6.6524e-03 ,1.8294e-02 ,2.2254e-02 ,2.3162e-02 ,1.3520e-02 /) - kbo(:, 4,23, 4) = (/ & - &9.7631e-03 ,2.2820e-02 ,2.6759e-02 ,2.6972e-02 ,1.4190e-02 /) - kbo(:, 5,23, 4) = (/ & - &1.3880e-02 ,2.8296e-02 ,3.2015e-02 ,3.1138e-02 ,1.4756e-02 /) - kbo(:, 1,24, 4) = (/ & - &2.1649e-03 ,9.5893e-03 ,1.2641e-02 ,1.4093e-02 ,9.9437e-03 /) - kbo(:, 2,24, 4) = (/ & - &3.5984e-03 ,1.2238e-02 ,1.5497e-02 ,1.6660e-02 ,1.0660e-02 /) - kbo(:, 3,24, 4) = (/ & - &5.5343e-03 ,1.5407e-02 ,1.8761e-02 ,1.9506e-02 ,1.1265e-02 /) - kbo(:, 4,24, 4) = (/ & - &8.0630e-03 ,1.9178e-02 ,2.2493e-02 ,2.2596e-02 ,1.1775e-02 /) - kbo(:, 5,24, 4) = (/ & - &1.1384e-02 ,2.3746e-02 ,2.6831e-02 ,2.5965e-02 ,1.2211e-02 /) - kbo(:, 1,25, 4) = (/ & - &1.8852e-03 ,8.1978e-03 ,1.0793e-02 ,1.1983e-02 ,8.3500e-03 /) - kbo(:, 2,25, 4) = (/ & - &3.0822e-03 ,1.0410e-02 ,1.3161e-02 ,1.4105e-02 ,8.8930e-03 /) - kbo(:, 3,25, 4) = (/ & - &4.6788e-03 ,1.3060e-02 ,1.5866e-02 ,1.6423e-02 ,9.3555e-03 /) - kbo(:, 4,25, 4) = (/ & - &6.7672e-03 ,1.6246e-02 ,1.8965e-02 ,1.8919e-02 ,9.7508e-03 /) - kbo(:, 5,25, 4) = (/ & - &9.4703e-03 ,2.0069e-02 ,2.2560e-02 ,2.1660e-02 ,1.0087e-02 /) - kbo(:, 1,26, 4) = (/ & - &1.6838e-03 ,7.0691e-03 ,9.2649e-03 ,1.0222e-02 ,6.9856e-03 /) - kbo(:, 2,26, 4) = (/ & - &2.7021e-03 ,8.9432e-03 ,1.1240e-02 ,1.1970e-02 ,7.4013e-03 /) - kbo(:, 3,26, 4) = (/ & - &4.0452e-03 ,1.1195e-02 ,1.3497e-02 ,1.3851e-02 ,7.7588e-03 /) - kbo(:, 4,26, 4) = (/ & - &5.8017e-03 ,1.3912e-02 ,1.6094e-02 ,1.5906e-02 ,8.0669e-03 /) - kbo(:, 5,26, 4) = (/ & - &8.0448e-03 ,1.7140e-02 ,1.9095e-02 ,1.8175e-02 ,8.3263e-03 /) - kbo(:, 1,27, 4) = (/ & - &1.5607e-03 ,6.1890e-03 ,8.0258e-03 ,8.7683e-03 ,5.8228e-03 /) - kbo(:, 2,27, 4) = (/ & - &2.4561e-03 ,7.8183e-03 ,9.7010e-03 ,1.0217e-02 ,6.1459e-03 /) - kbo(:, 3,27, 4) = (/ & - &3.6253e-03 ,9.7806e-03 ,1.1625e-02 ,1.1787e-02 ,6.4270e-03 /) - kbo(:, 4,27, 4) = (/ & - &5.1578e-03 ,1.2146e-02 ,1.3856e-02 ,1.3525e-02 ,6.6670e-03 /) - kbo(:, 5,27, 4) = (/ & - &7.0917e-03 ,1.4929e-02 ,1.6419e-02 ,1.5452e-02 ,6.8676e-03 /) - kbo(:, 1,28, 4) = (/ & - &1.4790e-03 ,5.4823e-03 ,6.9976e-03 ,7.5478e-03 ,4.8444e-03 /) - kbo(:, 2,28, 4) = (/ & - &2.2841e-03 ,6.9262e-03 ,8.4418e-03 ,8.7670e-03 ,5.0989e-03 /) - kbo(:, 3,28, 4) = (/ & - &3.3280e-03 ,8.6594e-03 ,1.0117e-02 ,1.0108e-02 ,5.3174e-03 /) - kbo(:, 4,28, 4) = (/ & - &4.7002e-03 ,1.0747e-02 ,1.2065e-02 ,1.1610e-02 ,5.5053e-03 /) - kbo(:, 5,28, 4) = (/ & - &6.4216e-03 ,1.3181e-02 ,1.4294e-02 ,1.3272e-02 ,5.6597e-03 /) - kbo(:, 1,29, 4) = (/ & - &1.4846e-03 ,5.0115e-03 ,6.2330e-03 ,6.5969e-03 ,4.0271e-03 /) - kbo(:, 2,29, 4) = (/ & - &2.2530e-03 ,6.3449e-03 ,7.5362e-03 ,7.6648e-03 ,4.2267e-03 /) - kbo(:, 3,29, 4) = (/ & - &3.2510e-03 ,7.9458e-03 ,9.0603e-03 ,8.8629e-03 ,4.3989e-03 /) - kbo(:, 4,29, 4) = (/ & - &4.5516e-03 ,9.8569e-03 ,1.0828e-02 ,1.0206e-02 ,4.5467e-03 /) - kbo(:, 5,29, 4) = (/ & - &6.1805e-03 ,1.2091e-02 ,1.2839e-02 ,1.1688e-02 ,4.6649e-03 /) - kbo(:, 1,30, 4) = (/ & - &1.5199e-03 ,4.6536e-03 ,5.6184e-03 ,5.8111e-03 ,3.3446e-03 /) - kbo(:, 2,30, 4) = (/ & - &2.2691e-03 ,5.9027e-03 ,6.8239e-03 ,6.7733e-03 ,3.5018e-03 /) - kbo(:, 3,30, 4) = (/ & - &3.2488e-03 ,7.4072e-03 ,8.2321e-03 ,7.8632e-03 ,3.6376e-03 /) - kbo(:, 4,30, 4) = (/ & - &4.5119e-03 ,9.1886e-03 ,9.8595e-03 ,9.0823e-03 ,3.7530e-03 /) - kbo(:, 5,30, 4) = (/ & - &6.0862e-03 ,1.1295e-02 ,1.1709e-02 ,1.0421e-02 ,3.8437e-03 /) - kbo(:, 1,31, 4) = (/ & - &1.6311e-03 ,4.4648e-03 ,5.2027e-03 ,5.2222e-03 ,2.7768e-03 /) - kbo(:, 2,31, 4) = (/ & - &2.3988e-03 ,5.6776e-03 ,6.3545e-03 ,6.1217e-03 ,2.9011e-03 /) - kbo(:, 3,31, 4) = (/ & - &3.4145e-03 ,7.1414e-03 ,7.7030e-03 ,7.1444e-03 ,3.0093e-03 /) - kbo(:, 4,31, 4) = (/ & - &4.7033e-03 ,8.8852e-03 ,9.2526e-03 ,8.2855e-03 ,3.0977e-03 /) - kbo(:, 5,31, 4) = (/ & - &6.2907e-03 ,1.0964e-02 ,1.1034e-02 ,9.5381e-03 ,3.1698e-03 /) - kbo(:, 1,32, 4) = (/ & - &1.7646e-03 ,4.3392e-03 ,4.8857e-03 ,4.7446e-03 ,2.3054e-03 /) - kbo(:, 2,32, 4) = (/ & - &2.5651e-03 ,5.5295e-03 ,5.9929e-03 ,5.5951e-03 ,2.4036e-03 /) - kbo(:, 3,32, 4) = (/ & - &3.6260e-03 ,6.9759e-03 ,7.2903e-03 ,6.5646e-03 ,2.4876e-03 /) - kbo(:, 4,32, 4) = (/ & - &4.9515e-03 ,8.7151e-03 ,8.7927e-03 ,7.6385e-03 ,2.5574e-03 /) - kbo(:, 5,32, 4) = (/ & - &6.5598e-03 ,1.0782e-02 ,1.0540e-02 ,8.8332e-03 ,2.6142e-03 /) - kbo(:, 1,33, 4) = (/ & - &1.9374e-03 ,4.2874e-03 ,4.6591e-03 ,4.3717e-03 ,1.9130e-03 /) - kbo(:, 2,33, 4) = (/ & - &2.7949e-03 ,5.4803e-03 ,5.7408e-03 ,5.1902e-03 ,1.9904e-03 /) - kbo(:, 3,33, 4) = (/ & - &3.9103e-03 ,6.9411e-03 ,7.0122e-03 ,6.1134e-03 ,2.0570e-03 /) - kbo(:, 4,33, 4) = (/ & - &5.2898e-03 ,8.7072e-03 ,8.5064e-03 ,7.1438e-03 ,2.1115e-03 /) - kbo(:, 5,33, 4) = (/ & - &6.9527e-03 ,1.0788e-02 ,1.0239e-02 ,8.3069e-03 ,2.1568e-03 /) - kbo(:, 1,34, 4) = (/ & - &2.0406e-03 ,4.1540e-03 ,4.3826e-03 ,3.9946e-03 ,1.5845e-03 /) - kbo(:, 2,34, 4) = (/ & - &2.9261e-03 ,5.3300e-03 ,5.4194e-03 ,4.7632e-03 ,1.6461e-03 /) - kbo(:, 3,34, 4) = (/ & - &4.0546e-03 ,6.7773e-03 ,6.6513e-03 ,5.6287e-03 ,1.6983e-03 /) - kbo(:, 4,34, 4) = (/ & - &5.4348e-03 ,8.5143e-03 ,8.1040e-03 ,6.6107e-03 ,1.7421e-03 /) - kbo(:, 5,34, 4) = (/ & - &7.1060e-03 ,1.0544e-02 ,9.7699e-03 ,7.7212e-03 ,1.7780e-03 /) - kbo(:, 1,35, 4) = (/ & - &2.0728e-03 ,3.9485e-03 ,4.0574e-03 ,3.6081e-03 ,1.3068e-03 /) - kbo(:, 2,35, 4) = (/ & - &2.9602e-03 ,5.0932e-03 ,5.0438e-03 ,4.3192e-03 ,1.3565e-03 /) - kbo(:, 3,35, 4) = (/ & - &4.0769e-03 ,6.5016e-03 ,6.2270e-03 ,5.1307e-03 ,1.3990e-03 /) - kbo(:, 4,35, 4) = (/ & - &5.4354e-03 ,8.1764e-03 ,7.6137e-03 ,6.0597e-03 ,1.4343e-03 /) - kbo(:, 5,35, 4) = (/ & - &7.0821e-03 ,1.0134e-02 ,9.1905e-03 ,7.1011e-03 ,1.4630e-03 /) - kbo(:, 1,36, 4) = (/ & - &2.0103e-03 ,3.6479e-03 ,3.6691e-03 ,3.1952e-03 ,1.0729e-03 /) - kbo(:, 2,36, 4) = (/ & - &2.8662e-03 ,4.7338e-03 ,4.5904e-03 ,3.8448e-03 ,1.1132e-03 /) - kbo(:, 3,36, 4) = (/ & - &3.9368e-03 ,6.0663e-03 ,5.7008e-03 ,4.5973e-03 ,1.1487e-03 /) - kbo(:, 4,36, 4) = (/ & - &5.2410e-03 ,7.6444e-03 ,6.9919e-03 ,5.4585e-03 ,1.1779e-03 /) - kbo(:, 5,36, 4) = (/ & - &6.8204e-03 ,9.5005e-03 ,8.4610e-03 ,6.4164e-03 ,1.2022e-03 /) - kbo(:, 1,37, 4) = (/ & - &1.7959e-03 ,3.1864e-03 ,3.1663e-03 ,2.7239e-03 ,8.7469e-04 /) - kbo(:, 2,37, 4) = (/ & - &2.5697e-03 ,4.1617e-03 ,3.9876e-03 ,3.2966e-03 ,9.0931e-04 /) - kbo(:, 3,37, 4) = (/ & - &3.5391e-03 ,5.3610e-03 ,4.9818e-03 ,3.9676e-03 ,9.3897e-04 /) - kbo(:, 4,37, 4) = (/ & - &4.7240e-03 ,6.7847e-03 ,6.1364e-03 ,4.7358e-03 ,9.6399e-04 /) - kbo(:, 5,37, 4) = (/ & - &6.1586e-03 ,8.4655e-03 ,7.4564e-03 ,5.5875e-03 ,9.8533e-04 /) - kbo(:, 1,38, 4) = (/ & - &1.6221e-03 ,2.8081e-03 ,2.7522e-03 ,2.3347e-03 ,7.1314e-04 /) - kbo(:, 2,38, 4) = (/ & - &2.3291e-03 ,3.6929e-03 ,3.4899e-03 ,2.8446e-03 ,7.4249e-04 /) - kbo(:, 3,38, 4) = (/ & - &3.2190e-03 ,4.7846e-03 ,4.3892e-03 ,3.4480e-03 ,7.6765e-04 /) - kbo(:, 4,38, 4) = (/ & - &4.3100e-03 ,6.0843e-03 ,5.4322e-03 ,4.1379e-03 ,7.8970e-04 /) - kbo(:, 5,38, 4) = (/ & - &5.6295e-03 ,7.6227e-03 ,6.6325e-03 ,4.9024e-03 ,8.0762e-04 /) - kbo(:, 1,39, 4) = (/ & - &1.4985e-03 ,2.5181e-03 ,2.4272e-03 ,2.0247e-03 ,5.8188e-04 /) - kbo(:, 2,39, 4) = (/ & - &2.1580e-03 ,3.3353e-03 ,3.1025e-03 ,2.4863e-03 ,6.0647e-04 /) - kbo(:, 3,39, 4) = (/ & - &2.9946e-03 ,4.3491e-03 ,3.9298e-03 ,3.0357e-03 ,6.2817e-04 /) - kbo(:, 4,39, 4) = (/ & - &4.0211e-03 ,5.5590e-03 ,4.8918e-03 ,3.6649e-03 ,6.4668e-04 /) - kbo(:, 5,39, 4) = (/ & - &5.2642e-03 ,6.9995e-03 ,6.0040e-03 ,4.3661e-03 ,6.6239e-04 /) - kbo(:, 1,40, 4) = (/ & - &1.2480e-03 ,2.0953e-03 ,2.0102e-03 ,1.6690e-03 ,4.7210e-04 /) - kbo(:, 2,40, 4) = (/ & - &1.8115e-03 ,2.7936e-03 ,2.5861e-03 ,2.0625e-03 ,4.9296e-04 /) - kbo(:, 3,40, 4) = (/ & - &2.5332e-03 ,3.6693e-03 ,3.2977e-03 ,2.5337e-03 ,5.1142e-04 /) - kbo(:, 4,40, 4) = (/ & - &3.4226e-03 ,4.7175e-03 ,4.1297e-03 ,3.0758e-03 ,5.2719e-04 /) - kbo(:, 5,40, 4) = (/ & - &4.4988e-03 ,5.9686e-03 ,5.0929e-03 ,3.6827e-03 ,5.4108e-04 /) - kbo(:, 1,41, 4) = (/ & - &1.0279e-03 ,1.7303e-03 ,1.6546e-03 ,1.3684e-03 ,3.8259e-04 /) - kbo(:, 2,41, 4) = (/ & - &1.5100e-03 ,2.3260e-03 ,2.1442e-03 ,1.7025e-03 ,4.0029e-04 /) - kbo(:, 3,41, 4) = (/ & - &2.1257e-03 ,3.0759e-03 ,2.7514e-03 ,2.1044e-03 ,4.1598e-04 /) - kbo(:, 4,41, 4) = (/ & - &2.8920e-03 ,3.9799e-03 ,3.4670e-03 ,2.5693e-03 ,4.2980e-04 /) - kbo(:, 5,41, 4) = (/ & - &3.8245e-03 ,5.0645e-03 ,4.3009e-03 ,3.0935e-03 ,4.4154e-04 /) - kbo(:, 1,42, 4) = (/ & - &8.5248e-04 ,1.4366e-03 ,1.3681e-03 ,1.1259e-03 ,3.0986e-04 /) - kbo(:, 2,42, 4) = (/ & - &1.2693e-03 ,1.9496e-03 ,1.7879e-03 ,1.4116e-03 ,3.2494e-04 /) - kbo(:, 3,42, 4) = (/ & - &1.7992e-03 ,2.5962e-03 ,2.3093e-03 ,1.7561e-03 ,3.3826e-04 /) - kbo(:, 4,42, 4) = (/ & - &2.4657e-03 ,3.3829e-03 ,2.9302e-03 ,2.1577e-03 ,3.5033e-04 /) - kbo(:, 5,42, 4) = (/ & - &3.2835e-03 ,4.3314e-03 ,3.6581e-03 ,2.6128e-03 ,3.6051e-04 /) - kbo(:, 1,43, 4) = (/ & - &6.9299e-04 ,1.1756e-03 ,1.1172e-03 ,9.1666e-04 ,2.5008e-04 /) - kbo(:, 2,43, 4) = (/ & - &1.0504e-03 ,1.6147e-03 ,1.4746e-03 ,1.1591e-03 ,2.6296e-04 /) - kbo(:, 3,43, 4) = (/ & - &1.5042e-03 ,2.1683e-03 ,1.9190e-03 ,1.4524e-03 ,2.7439e-04 /) - kbo(:, 4,43, 4) = (/ & - &2.0819e-03 ,2.8510e-03 ,2.4566e-03 ,1.7990e-03 ,2.8482e-04 /) - kbo(:, 5,43, 4) = (/ & - &2.7959e-03 ,3.6773e-03 ,3.0899e-03 ,2.1936e-03 ,2.9376e-04 /) - kbo(:, 1,44, 4) = (/ & - &5.6092e-04 ,9.5981e-04 ,9.1038e-04 ,7.4434e-04 ,2.0138e-04 /) - kbo(:, 2,44, 4) = (/ & - &8.6869e-04 ,1.3365e-03 ,1.2153e-03 ,9.5085e-04 ,2.1240e-04 /) - kbo(:, 3,44, 4) = (/ & - &1.2605e-03 ,1.8133e-03 ,1.5968e-03 ,1.2017e-03 ,2.2220e-04 /) - kbo(:, 4,44, 4) = (/ & - &1.7639e-03 ,2.4086e-03 ,2.0630e-03 ,1.5011e-03 ,2.3130e-04 /) - kbo(:, 5,44, 4) = (/ & - &2.3892e-03 ,3.1325e-03 ,2.6172e-03 ,1.8457e-03 ,2.3904e-04 /) - kbo(:, 1,45, 4) = (/ & - &4.5956e-04 ,7.9161e-04 ,7.4840e-04 ,6.0859e-04 ,1.6203e-04 /) - kbo(:, 2,45, 4) = (/ & - &7.2822e-04 ,1.1187e-03 ,1.0117e-03 ,7.8592e-04 ,1.7142e-04 /) - kbo(:, 3,45, 4) = (/ & - &1.0767e-03 ,1.5389e-03 ,1.3458e-03 ,1.0038e-03 ,1.7986e-04 /) - kbo(:, 4,45, 4) = (/ & - &1.5195e-03 ,2.0634e-03 ,1.7544e-03 ,1.2651e-03 ,1.8773e-04 /) - kbo(:, 5,45, 4) = (/ & - &2.0790e-03 ,2.7102e-03 ,2.2473e-03 ,1.5700e-03 ,1.9451e-04 /) - kbo(:, 1,46, 4) = (/ & - &3.7292e-04 ,6.4911e-04 ,6.1209e-04 ,4.9545e-04 ,1.3008e-04 /) - kbo(:, 2,46, 4) = (/ & - &6.0673e-04 ,9.3287e-04 ,8.3976e-04 ,6.4802e-04 ,1.3811e-04 /) - kbo(:, 3,46, 4) = (/ & - &9.1635e-04 ,1.3033e-03 ,1.1323e-03 ,8.3718e-04 ,1.4541e-04 /) - kbo(:, 4,46, 4) = (/ & - &1.3083e-03 ,1.7659e-03 ,1.4916e-03 ,1.0659e-03 ,1.5214e-04 /) - kbo(:, 5,46, 4) = (/ & - &1.8099e-03 ,2.3458e-03 ,1.9309e-03 ,1.3365e-03 ,1.5810e-04 /) - kbo(:, 1,47, 4) = (/ & - &2.8950e-04 ,5.1677e-04 ,4.8802e-04 ,3.9502e-04 ,1.0398e-04 /) - kbo(:, 2,47, 4) = (/ & - &4.8670e-04 ,7.5660e-04 ,6.8049e-04 ,5.2378e-04 ,1.1085e-04 /) - kbo(:, 3,47, 4) = (/ & - &7.5525e-04 ,1.0762e-03 ,9.3123e-04 ,6.8496e-04 ,1.1715e-04 /) - kbo(:, 4,47, 4) = (/ & - &1.0969e-03 ,1.4777e-03 ,1.2426e-03 ,8.8223e-04 ,1.2295e-04 /) - kbo(:, 5,47, 4) = (/ & - &1.5354e-03 ,1.9852e-03 ,1.6256e-03 ,1.1178e-03 ,1.2805e-04 /) - kbo(:, 1,48, 4) = (/ & - &2.2732e-04 ,4.1628e-04 ,3.9316e-04 ,3.1737e-04 ,8.2969e-05 /) - kbo(:, 2,48, 4) = (/ & - &3.9696e-04 ,6.2251e-04 ,5.5852e-04 ,4.2777e-04 ,8.8908e-05 /) - kbo(:, 3,48, 4) = (/ & - &6.3462e-04 ,9.0305e-04 ,7.7729e-04 ,5.6732e-04 ,9.4308e-05 /) - kbo(:, 4,48, 4) = (/ & - &9.4204e-04 ,1.2622e-03 ,1.0539e-03 ,7.4093e-04 ,9.9236e-05 /) - kbo(:, 5,48, 4) = (/ & - &1.3331e-03 ,1.7143e-03 ,1.3938e-03 ,9.4935e-04 ,1.0368e-04 /) - kbo(:, 1,49, 4) = (/ & - &1.8300e-04 ,3.4217e-04 ,3.2264e-04 ,2.5877e-04 ,6.6118e-05 /) - kbo(:, 2,49, 4) = (/ & - &3.3312e-04 ,5.2483e-04 ,4.6829e-04 ,3.5552e-04 ,7.1194e-05 /) - kbo(:, 3,49, 4) = (/ & - &5.4973e-04 ,7.7839e-04 ,6.6473e-04 ,4.7940e-04 ,7.5813e-05 /) - kbo(:, 4,49, 4) = (/ & - &8.3663e-04 ,1.1105e-03 ,9.1800e-04 ,6.3658e-04 ,8.0100e-05 /) - kbo(:, 5,49, 4) = (/ & - &1.2004e-03 ,1.5281e-03 ,1.2307e-03 ,8.2653e-04 ,8.3935e-05 /) - kbo(:, 1,50, 4) = (/ & - &1.4039e-04 ,2.7151e-04 ,2.5713e-04 ,2.0628e-04 ,5.2648e-05 /) - kbo(:, 2,50, 4) = (/ & - &2.6610e-04 ,4.2689e-04 ,3.8091e-04 ,2.8831e-04 ,5.6961e-05 /) - kbo(:, 3,50, 4) = (/ & - &4.5427e-04 ,6.4624e-04 ,5.5025e-04 ,3.9479e-04 ,6.0907e-05 /) - kbo(:, 4,50, 4) = (/ & - &7.0950e-04 ,9.4070e-04 ,7.7361e-04 ,5.3217e-04 ,6.4571e-05 /) - kbo(:, 5,50, 4) = (/ & - &1.0374e-03 ,1.3149e-03 ,1.0530e-03 ,7.0038e-04 ,6.7890e-05 /) - kbo(:, 1,51, 4) = (/ & - &1.0489e-04 ,2.1109e-04 ,2.0141e-04 ,1.6218e-04 ,4.1878e-05 /) - kbo(:, 2,51, 4) = (/ & - &2.0633e-04 ,3.4016e-04 ,3.0444e-04 ,2.3054e-04 ,4.5538e-05 /) - kbo(:, 3,51, 4) = (/ & - &3.6536e-04 ,5.2580e-04 ,4.4746e-04 ,3.2051e-04 ,4.8874e-05 /) - kbo(:, 4,51, 4) = (/ & - &5.8696e-04 ,7.8085e-04 ,6.4023e-04 ,4.3829e-04 ,5.1997e-05 /) - kbo(:, 5,51, 4) = (/ & - &8.7556e-04 ,1.1091e-03 ,8.8460e-04 ,5.8473e-04 ,5.4858e-05 /) - kbo(:, 1,52, 4) = (/ & - &7.9793e-05 ,1.6601e-04 ,1.5918e-04 ,1.2853e-04 ,3.3276e-05 /) - kbo(:, 2,52, 4) = (/ & - &1.6247e-04 ,2.7468e-04 ,2.4631e-04 ,1.8617e-04 ,3.6357e-05 /) - kbo(:, 3,52, 4) = (/ & - &2.9905e-04 ,4.3474e-04 ,3.6924e-04 ,2.6353e-04 ,3.9196e-05 /) - kbo(:, 4,52, 4) = (/ & - &4.9530e-04 ,6.5976e-04 ,5.3847e-04 ,3.6618e-04 ,4.1839e-05 /) - kbo(:, 5,52, 4) = (/ & - &7.5546e-04 ,9.5475e-04 ,7.5721e-04 ,4.9627e-04 ,4.4317e-05 /) - kbo(:, 1,53, 4) = (/ & - &6.2729e-05 ,1.3307e-04 ,1.2792e-04 ,1.0321e-04 ,2.6401e-05 /) - kbo(:, 2,53, 4) = (/ & - &1.3138e-04 ,2.2658e-04 ,2.0324e-04 ,1.5289e-04 ,2.9006e-05 /) - kbo(:, 3,53, 4) = (/ & - &2.5160e-04 ,3.6877e-04 ,3.1205e-04 ,2.2094e-04 ,3.1410e-05 /) - kbo(:, 4,53, 4) = (/ & - &4.3128e-04 ,5.7326e-04 ,4.6479e-04 ,3.1290e-04 ,3.3663e-05 /) - kbo(:, 5,53, 4) = (/ & - &6.7436e-04 ,8.4743e-04 ,6.6688e-04 ,4.3200e-04 ,3.5790e-05 /) - kbo(:, 1,54, 4) = (/ & - &4.3536e-05 ,9.6993e-05 ,9.4650e-05 ,7.7465e-05 ,2.0921e-05 /) - kbo(:, 2,54, 4) = (/ & - &9.2752e-05 ,1.6814e-04 ,1.5268e-04 ,1.1626e-04 ,2.3103e-05 /) - kbo(:, 3,54, 4) = (/ & - &1.8378e-04 ,2.7919e-04 ,2.3835e-04 ,1.7016e-04 ,2.5121e-05 /) - kbo(:, 4,54, 4) = (/ & - &3.2645e-04 ,4.4256e-04 ,3.6033e-04 ,2.4382e-04 ,2.7012e-05 /) - kbo(:, 5,54, 4) = (/ & - &5.2349e-04 ,6.6571e-04 ,5.2497e-04 ,3.4104e-04 ,2.8788e-05 /) - kbo(:, 1,55, 4) = (/ & - &2.7968e-05 ,6.6619e-05 ,6.6506e-05 ,5.5712e-05 ,1.6550e-05 /) - kbo(:, 2,55, 4) = (/ & - &5.9858e-05 ,1.1651e-04 ,1.0803e-04 ,8.4126e-05 ,1.8363e-05 /) - kbo(:, 3,55, 4) = (/ & - &1.2216e-04 ,1.9620e-04 ,1.7047e-04 ,1.2407e-04 ,2.0057e-05 /) - kbo(:, 4,55, 4) = (/ & - &2.2490e-04 ,3.1581e-04 ,2.6032e-04 ,1.7892e-04 ,2.1634e-05 /) - kbo(:, 5,55, 4) = (/ & - &3.7032e-04 ,4.8266e-04 ,3.8398e-04 ,2.5251e-04 ,2.3108e-05 /) - kbo(:, 1,56, 4) = (/ & - &1.8187e-05 ,4.5780e-05 ,4.6700e-05 ,4.0035e-05 ,1.3073e-05 /) - kbo(:, 2,56, 4) = (/ & - &3.8391e-05 ,8.0472e-05 ,7.6243e-05 ,6.0757e-05 ,1.4582e-05 /) - kbo(:, 3,56, 4) = (/ & - &8.0424e-05 ,1.3728e-04 ,1.2154e-04 ,9.0284e-05 ,1.6006e-05 /) - kbo(:, 4,56, 4) = (/ & - &1.5350e-04 ,2.2433e-04 ,1.8750e-04 ,1.3109e-04 ,1.7305e-05 /) - kbo(:, 5,56, 4) = (/ & - &2.6031e-04 ,3.4853e-04 ,2.7994e-04 ,1.8653e-04 ,1.8526e-05 /) - kbo(:, 1,57, 4) = (/ & - &1.2069e-05 ,3.1511e-05 ,3.2815e-05 ,2.8783e-05 ,1.0310e-05 /) - kbo(:, 2,57, 4) = (/ & - &2.4551e-05 ,5.5416e-05 ,5.3688e-05 ,4.3795e-05 ,1.1563e-05 /) - kbo(:, 3,57, 4) = (/ & - &5.2372e-05 ,9.5634e-05 ,8.6379e-05 ,6.5547e-05 ,1.2748e-05 /) - kbo(:, 4,57, 4) = (/ & - &1.0355e-04 ,1.5851e-04 ,1.3458e-04 ,9.5855e-05 ,1.3838e-05 /) - kbo(:, 5,57, 4) = (/ & - &1.8156e-04 ,2.5040e-04 ,2.0330e-04 ,1.3740e-04 ,1.4854e-05 /) - kbo(:, 1,58, 4) = (/ & - &2.1923e-06 ,7.1667e-06 ,9.7990e-06 ,1.2334e-05 ,8.1331e-06 /) - kbo(:, 2,58, 4) = (/ & - &4.2014e-06 ,1.2514e-05 ,1.5980e-05 ,1.8735e-05 ,9.1661e-06 /) - kbo(:, 3,58, 4) = (/ & - &9.0349e-06 ,2.1751e-05 ,2.5847e-05 ,2.8162e-05 ,1.0154e-05 /) - kbo(:, 4,58, 4) = (/ & - &1.8408e-05 ,3.6461e-05 ,4.0575e-05 ,4.1376e-05 ,1.1069e-05 /) - kbo(:, 5,58, 4) = (/ & - &3.3398e-05 ,5.8421e-05 ,6.1871e-05 ,5.9629e-05 ,1.1910e-05 /) - kbo(:, 1,59, 4) = (/ & - &1.9895e-06 ,7.0146e-06 ,9.2666e-06 ,1.0819e-05 ,6.5530e-06 /) - kbo(:, 2,59, 4) = (/ & - &3.7103e-06 ,1.1985e-05 ,1.4798e-05 ,1.6119e-05 ,7.3922e-06 /) - kbo(:, 3,59, 4) = (/ & - &7.9795e-06 ,2.0481e-05 ,2.3504e-05 ,2.3808e-05 ,8.1931e-06 /) - kbo(:, 4,59, 4) = (/ & - &1.6446e-05 ,3.3891e-05 ,3.6329e-05 ,3.4426e-05 ,8.9453e-06 /) - kbo(:, 5,59, 4) = (/ & - &3.0202e-05 ,5.3874e-05 ,5.4799e-05 ,4.8960e-05 ,9.6374e-06 /) - kbo(:, 1,13, 5) = (/ & - &4.3236e-01 ,4.3213e-01 ,3.9701e-01 ,3.2546e-01 ,1.1197e-01 /) - kbo(:, 2,13, 5) = (/ & - &6.6372e-01 ,6.1379e-01 ,5.3578e-01 ,4.1378e-01 ,1.1749e-01 /) - kbo(:, 3,13, 5) = (/ & - &9.6012e-01 ,8.4543e-01 ,7.0690e-01 ,5.2039e-01 ,1.2229e-01 /) - kbo(:, 4,13, 5) = (/ & - &1.3340e+00 ,1.1343e+00 ,9.1491e-01 ,6.4651e-01 ,1.2717e-01 /) - kbo(:, 5,13, 5) = (/ & - &1.8059e+00 ,1.4945e+00 ,1.1687e+00 ,7.9501e-01 ,1.3200e-01 /) - kbo(:, 1,14, 5) = (/ & - &2.3576e-01 ,2.7360e-01 ,2.7141e-01 ,2.4039e-01 ,9.8792e-02 /) - kbo(:, 2,14, 5) = (/ & - &3.5903e-01 ,3.7743e-01 ,3.5638e-01 ,2.9754e-01 ,1.0359e-01 /) - kbo(:, 3,14, 5) = (/ & - &5.1761e-01 ,5.0746e-01 ,4.5981e-01 ,3.6575e-01 ,1.0816e-01 /) - kbo(:, 4,14, 5) = (/ & - &7.1963e-01 ,6.6997e-01 ,5.8434e-01 ,4.4555e-01 ,1.1272e-01 /) - kbo(:, 5,14, 5) = (/ & - &9.7673e-01 ,8.7084e-01 ,7.3356e-01 ,5.3881e-01 ,1.1732e-01 /) - kbo(:, 1,15, 5) = (/ & - &1.3110e-01 ,1.8103e-01 ,1.9281e-01 ,1.8264e-01 ,8.6582e-02 /) - kbo(:, 2,15, 5) = (/ & - &1.9817e-01 ,2.4413e-01 ,2.4684e-01 ,2.2172e-01 ,9.0925e-02 /) - kbo(:, 3,15, 5) = (/ & - &2.8519e-01 ,3.2198e-01 ,3.1178e-01 ,2.6742e-01 ,9.5231e-02 /) - kbo(:, 4,15, 5) = (/ & - &3.9693e-01 ,4.1797e-01 ,3.8987e-01 ,3.1982e-01 ,9.9470e-02 /) - kbo(:, 5,15, 5) = (/ & - &5.3979e-01 ,5.3546e-01 ,4.8283e-01 ,3.8058e-01 ,1.0367e-01 /) - kbo(:, 1,16, 5) = (/ & - &8.6780e-02 ,1.3641e-01 ,1.5186e-01 ,1.4818e-01 ,7.5514e-02 /) - kbo(:, 2,16, 5) = (/ & - &1.3047e-01 ,1.8113e-01 ,1.9135e-01 ,1.7835e-01 ,7.9533e-02 /) - kbo(:, 3,16, 5) = (/ & - &1.8753e-01 ,2.3639e-01 ,2.3875e-01 ,2.1304e-01 ,8.3481e-02 /) - kbo(:, 4,16, 5) = (/ & - &2.6140e-01 ,3.0428e-01 ,2.9551e-01 ,2.5256e-01 ,8.7293e-02 /) - kbo(:, 5,16, 5) = (/ & - &3.5574e-01 ,3.8652e-01 ,3.6267e-01 ,2.9793e-01 ,9.1094e-02 /) - kbo(:, 1,17, 5) = (/ & - &5.9400e-02 ,1.0544e-01 ,1.2175e-01 ,1.2140e-01 ,6.5571e-02 /) - kbo(:, 2,17, 5) = (/ & - &8.8982e-02 ,1.3824e-01 ,1.5175e-01 ,1.4491e-01 ,6.9197e-02 /) - kbo(:, 3,17, 5) = (/ & - &1.2788e-01 ,1.7890e-01 ,1.8755e-01 ,1.7185e-01 ,7.2708e-02 /) - kbo(:, 4,17, 5) = (/ & - &1.7835e-01 ,2.2856e-01 ,2.3024e-01 ,2.0241e-01 ,7.6161e-02 /) - kbo(:, 5,17, 5) = (/ & - &2.4297e-01 ,2.8834e-01 ,2.8043e-01 ,2.3722e-01 ,7.9603e-02 /) - kbo(:, 1,18, 5) = (/ & - &4.1651e-02 ,8.2911e-02 ,9.8455e-02 ,9.9593e-02 ,5.6662e-02 /) - kbo(:, 2,18, 5) = (/ & - &6.2251e-02 ,1.0765e-01 ,1.2173e-01 ,1.1843e-01 ,5.9831e-02 /) - kbo(:, 3,18, 5) = (/ & - &8.9419e-02 ,1.3828e-01 ,1.4944e-01 ,1.3970e-01 ,6.2923e-02 /) - kbo(:, 4,18, 5) = (/ & - &1.2470e-01 ,1.7541e-01 ,1.8216e-01 ,1.6372e-01 ,6.6077e-02 /) - kbo(:, 5,18, 5) = (/ & - &1.6992e-01 ,2.1986e-01 ,2.2047e-01 ,1.9095e-01 ,6.9212e-02 /) - kbo(:, 1,19, 5) = (/ & - &2.8717e-02 ,6.4742e-02 ,7.8819e-02 ,8.0895e-02 ,4.8664e-02 /) - kbo(:, 2,19, 5) = (/ & - &4.2849e-02 ,8.3244e-02 ,9.6815e-02 ,9.5751e-02 ,5.1433e-02 /) - kbo(:, 3,19, 5) = (/ & - &6.1454e-02 ,1.0605e-01 ,1.1801e-01 ,1.1248e-01 ,5.4215e-02 /) - kbo(:, 4,19, 5) = (/ & - &8.5699e-02 ,1.3356e-01 ,1.4292e-01 ,1.3115e-01 ,5.7031e-02 /) - kbo(:, 5,19, 5) = (/ & - &1.1681e-01 ,1.6622e-01 ,1.7182e-01 ,1.5204e-01 ,5.9790e-02 /) - kbo(:, 1,20, 5) = (/ & - &2.1632e-02 ,5.2943e-02 ,6.5235e-02 ,6.7363e-02 ,4.1610e-02 /) - kbo(:, 2,20, 5) = (/ & - &3.2163e-02 ,6.7696e-02 ,7.9852e-02 ,7.9447e-02 ,4.4062e-02 /) - kbo(:, 3,20, 5) = (/ & - &4.6057e-02 ,8.5815e-02 ,9.6980e-02 ,9.3049e-02 ,4.6553e-02 /) - kbo(:, 4,20, 5) = (/ & - &6.4136e-02 ,1.0754e-01 ,1.1694e-01 ,1.0820e-01 ,4.9013e-02 /) - kbo(:, 5,20, 5) = (/ & - &8.7379e-02 ,1.3322e-01 ,1.3995e-01 ,1.2502e-01 ,5.1455e-02 /) - kbo(:, 1,21, 5) = (/ & - &1.6823e-02 ,4.3877e-02 ,5.4527e-02 ,5.6402e-02 ,3.5455e-02 /) - kbo(:, 2,21, 5) = (/ & - &2.4936e-02 ,5.5953e-02 ,6.6511e-02 ,6.6307e-02 ,3.7602e-02 /) - kbo(:, 3,21, 5) = (/ & - &3.5634e-02 ,7.0642e-02 ,8.0513e-02 ,7.7454e-02 ,3.9786e-02 /) - kbo(:, 4,21, 5) = (/ & - &4.9531e-02 ,8.8177e-02 ,9.6745e-02 ,8.9935e-02 ,4.1920e-02 /) - kbo(:, 5,21, 5) = (/ & - &6.7455e-02 ,1.0884e-01 ,1.1539e-01 ,1.0375e-01 ,4.4030e-02 /) - kbo(:, 1,22, 5) = (/ & - &1.3789e-02 ,3.7331e-02 ,4.6413e-02 ,4.7878e-02 ,3.0220e-02 /) - kbo(:, 2,22, 5) = (/ & - &2.0294e-02 ,4.7459e-02 ,5.6444e-02 ,5.6212e-02 ,3.2091e-02 /) - kbo(:, 3,22, 5) = (/ & - &2.8887e-02 ,5.9685e-02 ,6.8142e-02 ,6.5522e-02 ,3.3949e-02 /) - kbo(:, 4,22, 5) = (/ & - &4.0024e-02 ,7.4193e-02 ,8.1621e-02 ,7.5940e-02 ,3.5793e-02 /) - kbo(:, 5,22, 5) = (/ & - &5.4487e-02 ,9.1298e-02 ,9.7079e-02 ,8.7446e-02 ,3.7515e-02 /) - kbo(:, 1,23, 5) = (/ & - &1.1373e-02 ,3.1797e-02 ,3.9445e-02 ,4.0631e-02 ,2.5676e-02 /) - kbo(:, 2,23, 5) = (/ & - &1.6630e-02 ,4.0276e-02 ,4.7874e-02 ,4.7621e-02 ,2.7276e-02 /) - kbo(:, 3,23, 5) = (/ & - &2.3572e-02 ,5.0445e-02 ,5.7632e-02 ,5.5405e-02 ,2.8857e-02 /) - kbo(:, 4,23, 5) = (/ & - &3.2590e-02 ,6.2506e-02 ,6.8883e-02 ,6.4105e-02 ,3.0360e-02 /) - kbo(:, 5,23, 5) = (/ & - &4.4383e-02 ,7.6716e-02 ,8.1703e-02 ,7.3646e-02 ,3.1632e-02 /) - kbo(:, 1,24, 5) = (/ & - &9.3521e-03 ,2.6988e-02 ,3.3405e-02 ,3.4382e-02 ,2.1758e-02 /) - kbo(:, 2,24, 5) = (/ & - &1.3592e-02 ,3.4040e-02 ,4.0452e-02 ,4.0217e-02 ,2.3106e-02 /) - kbo(:, 3,24, 5) = (/ & - &1.9190e-02 ,4.2486e-02 ,4.8570e-02 ,4.6701e-02 ,2.4399e-02 /) - kbo(:, 4,24, 5) = (/ & - &2.6527e-02 ,5.2454e-02 ,5.7886e-02 ,5.3878e-02 ,2.5528e-02 /) - kbo(:, 5,24, 5) = (/ & - &3.6127e-02 ,6.4240e-02 ,6.8480e-02 ,6.1740e-02 ,2.6418e-02 /) - kbo(:, 1,25, 5) = (/ & - &7.8143e-03 ,2.3046e-02 ,2.8423e-02 ,2.9180e-02 ,1.8391e-02 /) - kbo(:, 2,25, 5) = (/ & - &1.1292e-02 ,2.8965e-02 ,3.4350e-02 ,3.4059e-02 ,1.9498e-02 /) - kbo(:, 3,25, 5) = (/ & - &1.5906e-02 ,3.6033e-02 ,4.1158e-02 ,3.9460e-02 ,2.0484e-02 /) - kbo(:, 4,25, 5) = (/ & - &2.2015e-02 ,4.4387e-02 ,4.8915e-02 ,4.5425e-02 ,2.1291e-02 /) - kbo(:, 5,25, 5) = (/ & - &2.9929e-02 ,5.4292e-02 ,5.7748e-02 ,5.1892e-02 ,2.1939e-02 /) - kbo(:, 1,26, 5) = (/ & - &6.6841e-03 ,1.9882e-02 ,2.4386e-02 ,2.4902e-02 ,1.5507e-02 /) - kbo(:, 2,26, 5) = (/ & - &9.6187e-03 ,2.4917e-02 ,2.9404e-02 ,2.8998e-02 ,1.6368e-02 /) - kbo(:, 3,26, 5) = (/ & - &1.3541e-02 ,3.0916e-02 ,3.5147e-02 ,3.3522e-02 ,1.7088e-02 /) - kbo(:, 4,26, 5) = (/ & - &1.8734e-02 ,3.8045e-02 ,4.1676e-02 ,3.8461e-02 ,1.7679e-02 /) - kbo(:, 5,26, 5) = (/ & - &2.5382e-02 ,4.6534e-02 ,4.9183e-02 ,4.3795e-02 ,1.8164e-02 /) - kbo(:, 1,27, 5) = (/ & - &5.9464e-03 ,1.7461e-02 ,2.1207e-02 ,2.1457e-02 ,1.3019e-02 /) - kbo(:, 2,27, 5) = (/ & - &8.5411e-03 ,2.1855e-02 ,2.5534e-02 ,2.4945e-02 ,1.3658e-02 /) - kbo(:, 3,27, 5) = (/ & - &1.2012e-02 ,2.7098e-02 ,3.0472e-02 ,2.8773e-02 ,1.4192e-02 /) - kbo(:, 4,27, 5) = (/ & - &1.6580e-02 ,3.3382e-02 ,3.6146e-02 ,3.2904e-02 ,1.4638e-02 /) - kbo(:, 5,27, 5) = (/ & - &2.2392e-02 ,4.0890e-02 ,4.2671e-02 ,3.7399e-02 ,1.5005e-02 /) - kbo(:, 1,28, 5) = (/ & - &5.4489e-03 ,1.5531e-02 ,1.8614e-02 ,1.8613e-02 ,1.0873e-02 /) - kbo(:, 2,28, 5) = (/ & - &7.8148e-03 ,1.9440e-02 ,2.2401e-02 ,2.1604e-02 ,1.1349e-02 /) - kbo(:, 3,28, 5) = (/ & - &1.0969e-02 ,2.4138e-02 ,2.6729e-02 ,2.4848e-02 ,1.1757e-02 /) - kbo(:, 4,28, 5) = (/ & - &1.5087e-02 ,2.9815e-02 ,3.1728e-02 ,2.8368e-02 ,1.2101e-02 /) - kbo(:, 5,28, 5) = (/ & - &2.0299e-02 ,3.6555e-02 ,3.7502e-02 ,3.2280e-02 ,1.2378e-02 /) - kbo(:, 1,29, 5) = (/ & - &5.3270e-03 ,1.4285e-02 ,1.6775e-02 ,1.6453e-02 ,9.0474e-03 /) - kbo(:, 2,29, 5) = (/ & - &7.6276e-03 ,1.7927e-02 ,2.0207e-02 ,1.9083e-02 ,9.4132e-03 /) - kbo(:, 3,29, 5) = (/ & - &1.0673e-02 ,2.2373e-02 ,2.4172e-02 ,2.1940e-02 ,9.7284e-03 /) - kbo(:, 4,29, 5) = (/ & - &1.4614e-02 ,2.7730e-02 ,2.8795e-02 ,2.5116e-02 ,9.9926e-03 /) - kbo(:, 5,29, 5) = (/ & - &1.9579e-02 ,3.4081e-02 ,3.4110e-02 ,2.8684e-02 ,1.0207e-02 /) - kbo(:, 1,30, 5) = (/ & - &5.3535e-03 ,1.3353e-02 ,1.5300e-02 ,1.4666e-02 ,7.5129e-03 /) - kbo(:, 2,30, 5) = (/ & - &7.6380e-03 ,1.6853e-02 ,1.8473e-02 ,1.7010e-02 ,7.7968e-03 /) - kbo(:, 3,30, 5) = (/ & - &1.0647e-02 ,2.1132e-02 ,2.2202e-02 ,1.9612e-02 ,8.0434e-03 /) - kbo(:, 4,30, 5) = (/ & - &1.4510e-02 ,2.6289e-02 ,2.6550e-02 ,2.2553e-02 ,8.2450e-03 /) - kbo(:, 5,30, 5) = (/ & - &1.9367e-02 ,3.2371e-02 ,3.1546e-02 ,2.5868e-02 ,8.4082e-03 /) - kbo(:, 1,31, 5) = (/ & - &5.6746e-03 ,1.2936e-02 ,1.4343e-02 ,1.3343e-02 ,6.2303e-03 /) - kbo(:, 2,31, 5) = (/ & - &8.0577e-03 ,1.6447e-02 ,1.7425e-02 ,1.5532e-02 ,6.4556e-03 /) - kbo(:, 3,31, 5) = (/ & - &1.1174e-02 ,2.0739e-02 ,2.1078e-02 ,1.8020e-02 ,6.6441e-03 /) - kbo(:, 4,31, 5) = (/ & - &1.5165e-02 ,2.5916e-02 ,2.5346e-02 ,2.0861e-02 ,6.8034e-03 /) - kbo(:, 5,31, 5) = (/ & - &2.0188e-02 ,3.1999e-02 ,3.0259e-02 ,2.4055e-02 ,6.9268e-03 /) - kbo(:, 1,32, 5) = (/ & - &6.0895e-03 ,1.2732e-02 ,1.3622e-02 ,1.2258e-02 ,5.1656e-03 /) - kbo(:, 2,32, 5) = (/ & - &8.5996e-03 ,1.6298e-02 ,1.6681e-02 ,1.4366e-02 ,5.3392e-03 /) - kbo(:, 3,32, 5) = (/ & - &1.1871e-02 ,2.0666e-02 ,2.0302e-02 ,1.6787e-02 ,5.4899e-03 /) - kbo(:, 4,32, 5) = (/ & - &1.6059e-02 ,2.5901e-02 ,2.4547e-02 ,1.9547e-02 ,5.6119e-03 /) - kbo(:, 5,32, 5) = (/ & - &2.1313e-02 ,3.2082e-02 ,2.9454e-02 ,2.2664e-02 ,5.7070e-03 /) - kbo(:, 1,33, 5) = (/ & - &6.6515e-03 ,1.2796e-02 ,1.3188e-02 ,1.1442e-02 ,4.2781e-03 /) - kbo(:, 2,33, 5) = (/ & - &9.3384e-03 ,1.6485e-02 ,1.6266e-02 ,1.3517e-02 ,4.4167e-03 /) - kbo(:, 3,33, 5) = (/ & - &1.2846e-02 ,2.0999e-02 ,1.9943e-02 ,1.5910e-02 ,4.5341e-03 /) - kbo(:, 4,33, 5) = (/ & - &1.7327e-02 ,2.6399e-02 ,2.4247e-02 ,1.8651e-02 ,4.6303e-03 /) - kbo(:, 5,33, 5) = (/ & - &2.2895e-02 ,3.2829e-02 ,2.9267e-02 ,2.1750e-02 ,4.7019e-03 /) - kbo(:, 1,34, 5) = (/ & - &6.9862e-03 ,1.2631e-02 ,1.2600e-02 ,1.0591e-02 ,3.5376e-03 /) - kbo(:, 2,34, 5) = (/ & - &9.7726e-03 ,1.6353e-02 ,1.5653e-02 ,1.2600e-02 ,3.6473e-03 /) - kbo(:, 3,34, 5) = (/ & - &1.3409e-02 ,2.0887e-02 ,1.9295e-02 ,1.4929e-02 ,3.7406e-03 /) - kbo(:, 4,34, 5) = (/ & - &1.8037e-02 ,2.6346e-02 ,2.3581e-02 ,1.7591e-02 ,3.8148e-03 /) - kbo(:, 5,34, 5) = (/ & - &2.3704e-02 ,3.2885e-02 ,2.8616e-02 ,2.0638e-02 ,3.8707e-03 /) - kbo(:, 1,35, 5) = (/ & - &7.0977e-03 ,1.2235e-02 ,1.1878e-02 ,9.7122e-03 ,2.9156e-03 /) - kbo(:, 2,35, 5) = (/ & - &9.9249e-03 ,1.5915e-02 ,1.4862e-02 ,1.1642e-02 ,3.0042e-03 /) - kbo(:, 3,35, 5) = (/ & - &1.3615e-02 ,2.0413e-02 ,1.8425e-02 ,1.3882e-02 ,3.0791e-03 /) - kbo(:, 4,35, 5) = (/ & - &1.8271e-02 ,2.5881e-02 ,2.2655e-02 ,1.6461e-02 ,3.1387e-03 /) - kbo(:, 5,35, 5) = (/ & - &2.3900e-02 ,3.2414e-02 ,2.7651e-02 ,1.9450e-02 ,3.1837e-03 /) - kbo(:, 1,36, 5) = (/ & - &6.9060e-03 ,1.1498e-02 ,1.0932e-02 ,8.7493e-03 ,2.3952e-03 /) - kbo(:, 2,36, 5) = (/ & - &9.6735e-03 ,1.5042e-02 ,1.3779e-02 ,1.0573e-02 ,2.4672e-03 /) - kbo(:, 3,36, 5) = (/ & - &1.3291e-02 ,1.9415e-02 ,1.7205e-02 ,1.2691e-02 ,2.5290e-03 /) - kbo(:, 4,36, 5) = (/ & - &1.7820e-02 ,2.4753e-02 ,2.1299e-02 ,1.5151e-02 ,2.5791e-03 /) - kbo(:, 5,36, 5) = (/ & - &2.3253e-02 ,3.1113e-02 ,2.6141e-02 ,1.8030e-02 ,2.6175e-03 /) - kbo(:, 1,37, 5) = (/ & - &6.2139e-03 ,1.0192e-02 ,9.5802e-03 ,7.5798e-03 ,1.9567e-03 /) - kbo(:, 2,37, 5) = (/ & - &8.7456e-03 ,1.3428e-02 ,1.2164e-02 ,9.2244e-03 ,2.0181e-03 /) - kbo(:, 3,37, 5) = (/ & - &1.2068e-02 ,1.7456e-02 ,1.5302e-02 ,1.1147e-02 ,2.0706e-03 /) - kbo(:, 4,37, 5) = (/ & - &1.6229e-02 ,2.2411e-02 ,1.9089e-02 ,1.3408e-02 ,2.1134e-03 /) - kbo(:, 5,37, 5) = (/ & - &2.1208e-02 ,2.8314e-02 ,2.3560e-02 ,1.6063e-02 ,2.1467e-03 /) - kbo(:, 1,38, 5) = (/ & - &5.6546e-03 ,9.1081e-03 ,8.4597e-03 ,6.6101e-03 ,1.5995e-03 /) - kbo(:, 2,38, 5) = (/ & - &7.9966e-03 ,1.2093e-02 ,1.0832e-02 ,8.1085e-03 ,1.6506e-03 /) - kbo(:, 3,38, 5) = (/ & - &1.1084e-02 ,1.5851e-02 ,1.3740e-02 ,9.8767e-03 ,1.6948e-03 /) - kbo(:, 4,38, 5) = (/ & - &1.4944e-02 ,2.0494e-02 ,1.7272e-02 ,1.1975e-02 ,1.7322e-03 /) - kbo(:, 5,38, 5) = (/ & - &1.9571e-02 ,2.6031e-02 ,2.1445e-02 ,1.4447e-02 ,1.7614e-03 /) - kbo(:, 1,39, 5) = (/ & - &5.2606e-03 ,8.2861e-03 ,7.5918e-03 ,5.8448e-03 ,1.3077e-03 /) - kbo(:, 2,39, 5) = (/ & - &7.4758e-03 ,1.1098e-02 ,9.8108e-03 ,7.2343e-03 ,1.3505e-03 /) - kbo(:, 3,39, 5) = (/ & - &1.0407e-02 ,1.4668e-02 ,1.2553e-02 ,8.8880e-03 ,1.3888e-03 /) - kbo(:, 4,39, 5) = (/ & - &1.4072e-02 ,1.9102e-02 ,1.5911e-02 ,1.0872e-02 ,1.4211e-03 /) - kbo(:, 5,39, 5) = (/ & - &1.8472e-02 ,2.4391e-02 ,1.9883e-02 ,1.3211e-02 ,1.4470e-03 /) - kbo(:, 1,40, 5) = (/ & - &4.4239e-03 ,6.9683e-03 ,6.3619e-03 ,4.8825e-03 ,1.0643e-03 /) - kbo(:, 2,40, 5) = (/ & - &6.3289e-03 ,9.4143e-03 ,8.2870e-03 ,6.0882e-03 ,1.1007e-03 /) - kbo(:, 3,40, 5) = (/ & - &8.8723e-03 ,1.2550e-02 ,1.0689e-02 ,7.5344e-03 ,1.1340e-03 /) - kbo(:, 4,40, 5) = (/ & - &1.2075e-02 ,1.6469e-02 ,1.3655e-02 ,9.2842e-03 ,1.1620e-03 /) - kbo(:, 5,40, 5) = (/ & - &1.5933e-02 ,2.1174e-02 ,1.7180e-02 ,1.1354e-02 ,1.1848e-03 /) - kbo(:, 1,41, 5) = (/ & - &3.6867e-03 ,5.8128e-03 ,5.2949e-03 ,4.0553e-03 ,8.6561e-04 /) - kbo(:, 2,41, 5) = (/ & - &5.3143e-03 ,7.9271e-03 ,6.9551e-03 ,5.0947e-03 ,8.9710e-04 /) - kbo(:, 3,41, 5) = (/ & - &7.5044e-03 ,1.0658e-02 ,9.0449e-03 ,6.3522e-03 ,9.2517e-04 /) - kbo(:, 4,41, 5) = (/ & - &1.0281e-02 ,1.4099e-02 ,1.1643e-02 ,7.8856e-03 ,9.4938e-04 /) - kbo(:, 5,41, 5) = (/ & - &1.3649e-02 ,1.8248e-02 ,1.4748e-02 ,9.7057e-03 ,9.6963e-04 /) - kbo(:, 1,42, 5) = (/ & - &3.0985e-03 ,4.8781e-03 ,4.4299e-03 ,3.3820e-03 ,7.0400e-04 /) - kbo(:, 2,42, 5) = (/ & - &4.5009e-03 ,6.7165e-03 ,5.8698e-03 ,4.2829e-03 ,7.3071e-04 /) - kbo(:, 3,42, 5) = (/ & - &6.4001e-03 ,9.1103e-03 ,7.7007e-03 ,5.3843e-03 ,7.5479e-04 /) - kbo(:, 4,42, 5) = (/ & - &8.8324e-03 ,1.2154e-02 ,9.9941e-03 ,6.7362e-03 ,7.7572e-04 /) - kbo(:, 5,42, 5) = (/ & - &1.1799e-02 ,1.5850e-02 ,1.2750e-02 ,8.3487e-03 ,7.9315e-04 /) - kbo(:, 1,43, 5) = (/ & - &2.5629e-03 ,4.0329e-03 ,3.6588e-03 ,2.7901e-03 ,5.7114e-04 /) - kbo(:, 2,43, 5) = (/ & - &3.7578e-03 ,5.6142e-03 ,4.8977e-03 ,3.5662e-03 ,5.9379e-04 /) - kbo(:, 3,43, 5) = (/ & - &5.3881e-03 ,7.6915e-03 ,6.4844e-03 ,4.5229e-03 ,6.1455e-04 /) - kbo(:, 4,43, 5) = (/ & - &7.5091e-03 ,1.0367e-02 ,8.4990e-03 ,5.7086e-03 ,6.3259e-04 /) - kbo(:, 5,43, 5) = (/ & - &1.0110e-02 ,1.3645e-02 ,1.0937e-02 ,7.1314e-03 ,6.4809e-04 /) - kbo(:, 1,44, 5) = (/ & - &2.1195e-03 ,3.3263e-03 ,3.0153e-03 ,2.2974e-03 ,4.6259e-04 /) - kbo(:, 2,44, 5) = (/ & - &3.1405e-03 ,4.6890e-03 ,4.0834e-03 ,2.9671e-03 ,4.8211e-04 /) - kbo(:, 3,44, 5) = (/ & - &4.5449e-03 ,6.4956e-03 ,5.4625e-03 ,3.8015e-03 ,4.9986e-04 /) - kbo(:, 4,44, 5) = (/ & - &6.4001e-03 ,8.8502e-03 ,7.2321e-03 ,4.8421e-03 ,5.1551e-04 /) - kbo(:, 5,44, 5) = (/ & - &8.6977e-03 ,1.1779e-02 ,9.4064e-03 ,6.1062e-03 ,5.2910e-04 /) - kbo(:, 1,45, 5) = (/ & - &1.7814e-03 ,2.7759e-03 ,2.5092e-03 ,1.9068e-03 ,3.7475e-04 /) - kbo(:, 2,45, 5) = (/ & - &2.6678e-03 ,3.9635e-03 ,3.4407e-03 ,2.4906e-03 ,3.9120e-04 /) - kbo(:, 3,45, 5) = (/ & - &3.8999e-03 ,5.5595e-03 ,4.6558e-03 ,3.2267e-03 ,4.0640e-04 /) - kbo(:, 4,45, 5) = (/ & - &5.5475e-03 ,7.6646e-03 ,6.2331e-03 ,4.1536e-03 ,4.1988e-04 /) - kbo(:, 5,45, 5) = (/ & - &7.6146e-03 ,1.0314e-02 ,8.1967e-03 ,5.2910e-03 ,4.3189e-04 /) - kbo(:, 1,46, 5) = (/ & - &1.4913e-03 ,2.3049e-03 ,2.0781e-03 ,1.5752e-03 ,3.0303e-04 /) - kbo(:, 2,46, 5) = (/ & - &2.2619e-03 ,3.3394e-03 ,2.8896e-03 ,2.0839e-03 ,3.1705e-04 /) - kbo(:, 3,46, 5) = (/ & - &3.3424e-03 ,4.7455e-03 ,3.9592e-03 ,2.7324e-03 ,3.2997e-04 /) - kbo(:, 4,46, 5) = (/ & - &4.8041e-03 ,6.6271e-03 ,5.3667e-03 ,3.5579e-03 ,3.4174e-04 /) - kbo(:, 5,46, 5) = (/ & - &6.6700e-03 ,9.0306e-03 ,7.1468e-03 ,4.5847e-03 ,3.5220e-04 /) - kbo(:, 1,47, 5) = (/ & - &1.2089e-03 ,1.8595e-03 ,1.6774e-03 ,1.2733e-03 ,2.4435e-04 /) - kbo(:, 2,47, 5) = (/ & - &1.8589e-03 ,2.7359e-03 ,2.3669e-03 ,1.7064e-03 ,2.5622e-04 /) - kbo(:, 3,47, 5) = (/ & - &2.7805e-03 ,3.9417e-03 ,3.2867e-03 ,2.2649e-03 ,2.6731e-04 /) - kbo(:, 4,47, 5) = (/ & - &4.0468e-03 ,5.5810e-03 ,4.5086e-03 ,2.9823e-03 ,2.7740e-04 /) - kbo(:, 5,47, 5) = (/ & - &5.6890e-03 ,7.7116e-03 ,6.0862e-03 ,3.8914e-03 ,2.8663e-04 /) - kbo(:, 1,48, 5) = (/ & - &1.0010e-03 ,1.5219e-03 ,1.3705e-03 ,1.0399e-03 ,1.9690e-04 /) - kbo(:, 2,48, 5) = (/ & - &1.5623e-03 ,2.2781e-03 ,1.9661e-03 ,1.4139e-03 ,2.0690e-04 /) - kbo(:, 3,48, 5) = (/ & - &2.3663e-03 ,3.3328e-03 ,2.7724e-03 ,1.9027e-03 ,2.1643e-04 /) - kbo(:, 4,48, 5) = (/ & - &3.4895e-03 ,4.7876e-03 ,3.8543e-03 ,2.5388e-03 ,2.2513e-04 /) - kbo(:, 5,48, 5) = (/ & - &4.9716e-03 ,6.7160e-03 ,5.2797e-03 ,3.3578e-03 ,2.3320e-04 /) - kbo(:, 1,49, 5) = (/ & - &8.5765e-04 ,1.2765e-03 ,1.1434e-03 ,8.6362e-04 ,1.5857e-04 /) - kbo(:, 2,49, 5) = (/ & - &1.3602e-03 ,1.9488e-03 ,1.6723e-03 ,1.1956e-03 ,1.6712e-04 /) - kbo(:, 3,49, 5) = (/ & - &2.0873e-03 ,2.8996e-03 ,2.4000e-03 ,1.6350e-03 ,1.7515e-04 /) - kbo(:, 4,49, 5) = (/ & - &3.1195e-03 ,4.2309e-03 ,3.3880e-03 ,2.2146e-03 ,1.8269e-04 /) - kbo(:, 5,49, 5) = (/ & - &4.5042e-03 ,6.0317e-03 ,4.7143e-03 ,2.9742e-03 ,1.8971e-04 /) - kbo(:, 1,50, 5) = (/ & - &7.0327e-04 ,1.0357e-03 ,9.2617e-04 ,6.9913e-04 ,1.2768e-04 /) - kbo(:, 2,50, 5) = (/ & - &1.1341e-03 ,1.6088e-03 ,1.3773e-03 ,9.8362e-04 ,1.3488e-04 /) - kbo(:, 3,50, 5) = (/ & - &1.7633e-03 ,2.4334e-03 ,2.0087e-03 ,1.3647e-03 ,1.4174e-04 /) - kbo(:, 4,50, 5) = (/ & - &2.6686e-03 ,3.6011e-03 ,2.8760e-03 ,1.8731e-03 ,1.4819e-04 /) - kbo(:, 5,50, 5) = (/ & - &3.9042e-03 ,5.2110e-03 ,4.0582e-03 ,2.5499e-03 ,1.5417e-04 /) - kbo(:, 1,51, 5) = (/ & - &5.6283e-04 ,8.2479e-04 ,7.3777e-04 ,5.5772e-04 ,1.0280e-04 /) - kbo(:, 2,51, 5) = (/ & - &9.2490e-04 ,1.3030e-03 ,1.1149e-03 ,7.9673e-04 ,1.0882e-04 /) - kbo(:, 3,51, 5) = (/ & - &1.4569e-03 ,2.0026e-03 ,1.6508e-03 ,1.1213e-03 ,1.1463e-04 /) - kbo(:, 4,51, 5) = (/ & - &2.2322e-03 ,3.0043e-03 ,2.3967e-03 ,1.5580e-03 ,1.2010e-04 /) - kbo(:, 5,51, 5) = (/ & - &3.3090e-03 ,4.4133e-03 ,3.4281e-03 ,2.1477e-03 ,1.2516e-04 /) - kbo(:, 1,52, 5) = (/ & - &4.5964e-04 ,6.6706e-04 ,5.9570e-04 ,4.4969e-04 ,8.2695e-05 /) - kbo(:, 2,52, 5) = (/ & - &7.7113e-04 ,1.0739e-03 ,9.1646e-04 ,6.5362e-04 ,8.7774e-05 /) - kbo(:, 3,52, 5) = (/ & - &1.2329e-03 ,1.6791e-03 ,1.3796e-03 ,9.3460e-04 ,9.2675e-05 /) - kbo(:, 4,52, 5) = (/ & - &1.9124e-03 ,2.5569e-03 ,2.0345e-03 ,1.3172e-03 ,9.7314e-05 /) - kbo(:, 5,52, 5) = (/ & - &2.8744e-03 ,3.8139e-03 ,2.9526e-03 ,1.8404e-03 ,1.0157e-04 /) - kbo(:, 1,53, 5) = (/ & - &3.8730e-04 ,5.5282e-04 ,4.9108e-04 ,3.6874e-04 ,6.6480e-05 /) - kbo(:, 2,53, 5) = (/ & - &6.6529e-04 ,9.0913e-04 ,7.7130e-04 ,5.4660e-04 ,7.0743e-05 /) - kbo(:, 3,53, 5) = (/ & - &1.0811e-03 ,1.4483e-03 ,1.1832e-03 ,7.9661e-04 ,7.4902e-05 /) - kbo(:, 4,53, 5) = (/ & - &1.6977e-03 ,2.2425e-03 ,1.7750e-03 ,1.1419e-03 ,7.8801e-05 /) - kbo(:, 5,53, 5) = (/ & - &2.5875e-03 ,3.3978e-03 ,2.6180e-03 ,1.6189e-03 ,8.2434e-05 /) - kbo(:, 1,54, 5) = (/ & - &2.8438e-04 ,4.1240e-04 ,3.6923e-04 ,2.8032e-04 ,5.3391e-05 /) - kbo(:, 2,54, 5) = (/ & - &5.0038e-04 ,6.8881e-04 ,5.8764e-04 ,4.1957e-04 ,5.6986e-05 /) - kbo(:, 3,54, 5) = (/ & - &8.2710e-04 ,1.1130e-03 ,9.1323e-04 ,6.1896e-04 ,6.0464e-05 /) - kbo(:, 4,54, 5) = (/ & - &1.3140e-03 ,1.7467e-03 ,1.3863e-03 ,8.9674e-04 ,6.3698e-05 /) - kbo(:, 5,54, 5) = (/ & - &2.0289e-03 ,2.6791e-03 ,2.0677e-03 ,1.2826e-03 ,6.6754e-05 /) - kbo(:, 1,55, 5) = (/ & - &1.9032e-04 ,2.8714e-04 ,2.6164e-04 ,2.0312e-04 ,4.2857e-05 /) - kbo(:, 2,55, 5) = (/ & - &3.4354e-04 ,4.8514e-04 ,4.1940e-04 ,3.0487e-04 ,4.5872e-05 /) - kbo(:, 3,55, 5) = (/ & - &5.7798e-04 ,7.9314e-04 ,6.5789e-04 ,4.5289e-04 ,4.8737e-05 /) - kbo(:, 4,55, 5) = (/ & - &9.2977e-04 ,1.2582e-03 ,1.0072e-03 ,6.6019e-04 ,5.1425e-05 /) - kbo(:, 5,55, 5) = (/ & - &1.4533e-03 ,1.9484e-03 ,1.5135e-03 ,9.4927e-04 ,5.3965e-05 /) - kbo(:, 1,56, 5) = (/ & - &1.2624e-04 ,1.9945e-04 ,1.8526e-04 ,1.4713e-04 ,3.4367e-05 /) - kbo(:, 2,56, 5) = (/ & - &2.3425e-04 ,3.4034e-04 ,2.9855e-04 ,2.2108e-04 ,3.6885e-05 /) - kbo(:, 3,56, 5) = (/ & - &4.0201e-04 ,5.6312e-04 ,4.7257e-04 ,3.3069e-04 ,3.9253e-05 /) - kbo(:, 4,56, 5) = (/ & - &6.5545e-04 ,9.0280e-04 ,7.2955e-04 ,4.8511e-04 ,4.1521e-05 /) - kbo(:, 5,56, 5) = (/ & - &1.0372e-03 ,1.4120e-03 ,1.1051e-03 ,7.0135e-04 ,4.3631e-05 /) - kbo(:, 1,57, 5) = (/ & - &8.2825e-05 ,1.3826e-04 ,1.3105e-04 ,1.0648e-04 ,2.7541e-05 /) - kbo(:, 2,57, 5) = (/ & - &1.5848e-04 ,2.3765e-04 ,2.1180e-04 ,1.6006e-04 ,2.9646e-05 /) - kbo(:, 3,57, 5) = (/ & - &2.7802e-04 ,3.9802e-04 ,3.3815e-04 ,2.4085e-04 ,3.1604e-05 /) - kbo(:, 4,57, 5) = (/ & - &4.6014e-04 ,6.4521e-04 ,5.2696e-04 ,3.5556e-04 ,3.3502e-05 /) - kbo(:, 5,57, 5) = (/ & - &7.3676e-04 ,1.0192e-03 ,8.0418e-04 ,5.1690e-04 ,3.5248e-05 /) - kbo(:, 1,58, 5) = (/ & - &1.4413e-05 ,3.1415e-05 ,3.9206e-05 ,4.5793e-05 ,2.2070e-05 /) - kbo(:, 2,58, 5) = (/ & - &2.8319e-05 ,5.4166e-05 ,6.3295e-05 ,6.8680e-05 ,2.3823e-05 /) - kbo(:, 3,58, 5) = (/ & - &5.0851e-05 ,9.1643e-05 ,1.0172e-04 ,1.0358e-04 ,2.5450e-05 /) - kbo(:, 4,58, 5) = (/ & - &8.5536e-05 ,1.4999e-04 ,1.5967e-04 ,1.5367e-04 ,2.7016e-05 /) - kbo(:, 5,58, 5) = (/ & - &1.3845e-04 ,2.3895e-04 ,2.4509e-04 ,2.2418e-04 ,2.8488e-05 /) - kbo(:, 1,59, 5) = (/ & - &1.2766e-05 ,2.9930e-05 ,3.6342e-05 ,3.9546e-05 ,1.7924e-05 /) - kbo(:, 2,59, 5) = (/ & - &2.5308e-05 ,5.0886e-05 ,5.7559e-05 ,5.8137e-05 ,1.9351e-05 /) - kbo(:, 3,59, 5) = (/ & - &4.5886e-05 ,8.5371e-05 ,9.1314e-05 ,8.6129e-05 ,2.0681e-05 /) - kbo(:, 4,59, 5) = (/ & - &7.7783e-05 ,1.3897e-04 ,1.4192e-04 ,1.2608e-04 ,2.1937e-05 /) - kbo(:, 5,59, 5) = (/ & - &1.2671e-04 ,2.2060e-04 ,2.1586e-04 ,1.8160e-04 ,2.3122e-05 /) - kbo(:, 1,13, 6) = (/ & - &1.2091e+00 ,1.0925e+00 ,9.7132e-01 ,7.6832e-01 ,2.2429e-01 /) - kbo(:, 2,13, 6) = (/ & - &1.8464e+00 ,1.5640e+00 ,1.2977e+00 ,9.6738e-01 ,2.2945e-01 /) - kbo(:, 3,13, 6) = (/ & - &2.7006e+00 ,2.1933e+00 ,1.7174e+00 ,1.2089e+00 ,2.3586e-01 /) - kbo(:, 4,13, 6) = (/ & - &3.8041e+00 ,3.0098e+00 ,2.2534e+00 ,1.4966e+00 ,2.4148e-01 /) - kbo(:, 5,13, 6) = (/ & - &5.1874e+00 ,4.0404e+00 ,2.9277e+00 ,1.8384e+00 ,2.4717e-01 /) - kbo(:, 1,14, 6) = (/ & - &6.6672e-01 ,6.8855e-01 ,6.6353e-01 ,5.5608e-01 ,2.0092e-01 /) - kbo(:, 2,14, 6) = (/ & - &1.0160e+00 ,9.4963e-01 ,8.6392e-01 ,6.8590e-01 ,2.0621e-01 /) - kbo(:, 3,14, 6) = (/ & - &1.4836e+00 ,1.2937e+00 ,1.1112e+00 ,8.3934e-01 ,2.1228e-01 /) - kbo(:, 4,14, 6) = (/ & - &2.0856e+00 ,1.7366e+00 ,1.4142e+00 ,1.0186e+00 ,2.1791e-01 /) - kbo(:, 5,14, 6) = (/ & - &2.8402e+00 ,2.2928e+00 ,1.7814e+00 ,1.2275e+00 ,2.2338e-01 /) - kbo(:, 1,15, 6) = (/ & - &3.7534e-01 ,4.5732e-01 ,4.6750e-01 ,4.0917e-01 ,1.7874e-01 /) - kbo(:, 2,15, 6) = (/ & - &5.7029e-01 ,6.1390e-01 ,5.9540e-01 ,4.9734e-01 ,1.8407e-01 /) - kbo(:, 3,15, 6) = (/ & - &8.2994e-01 ,8.1258e-01 ,7.5038e-01 ,5.9870e-01 ,1.8982e-01 /) - kbo(:, 4,15, 6) = (/ & - &1.1635e+00 ,1.0593e+00 ,9.3529e-01 ,7.1512e-01 ,1.9538e-01 /) - kbo(:, 5,15, 6) = (/ & - &1.5834e+00 ,1.3649e+00 ,1.1537e+00 ,8.4763e-01 ,2.0092e-01 /) - kbo(:, 1,16, 6) = (/ & - &2.5139e-01 ,3.4640e-01 ,3.6560e-01 ,3.2723e-01 ,1.5796e-01 /) - kbo(:, 2,16, 6) = (/ & - &3.8033e-01 ,4.5844e-01 ,4.5962e-01 ,3.9345e-01 ,1.6322e-01 /) - kbo(:, 3,16, 6) = (/ & - &5.5135e-01 ,5.9731e-01 ,5.7234e-01 ,4.6896e-01 ,1.6890e-01 /) - kbo(:, 4,16, 6) = (/ & - &7.7178e-01 ,7.6699e-01 ,7.0504e-01 ,5.5557e-01 ,1.7446e-01 /) - kbo(:, 5,16, 6) = (/ & - &1.0505e+00 ,9.7332e-01 ,8.6035e-01 ,6.5296e-01 ,1.7998e-01 /) - kbo(:, 1,17, 6) = (/ & - &1.7391e-01 ,2.6830e-01 ,2.8935e-01 ,2.6535e-01 ,1.3871e-01 /) - kbo(:, 2,17, 6) = (/ & - &2.6196e-01 ,3.5091e-01 ,3.6089e-01 ,3.1647e-01 ,1.4388e-01 /) - kbo(:, 3,17, 6) = (/ & - &3.7888e-01 ,4.5188e-01 ,4.4522e-01 ,3.7420e-01 ,1.4950e-01 /) - kbo(:, 4,17, 6) = (/ & - &5.3041e-01 ,5.7470e-01 ,5.4379e-01 ,4.3949e-01 ,1.5497e-01 /) - kbo(:, 5,17, 6) = (/ & - &7.2254e-01 ,7.2344e-01 ,6.5849e-01 ,5.1285e-01 ,1.6018e-01 /) - kbo(:, 1,18, 6) = (/ & - &1.2310e-01 ,2.1053e-01 ,2.3152e-01 ,2.1713e-01 ,1.2112e-01 /) - kbo(:, 2,18, 6) = (/ & - &1.8497e-01 ,2.7232e-01 ,2.8648e-01 ,2.5684e-01 ,1.2635e-01 /) - kbo(:, 3,18, 6) = (/ & - &2.6727e-01 ,3.4798e-01 ,3.5045e-01 ,3.0154e-01 ,1.3167e-01 /) - kbo(:, 4,18, 6) = (/ & - &3.7442e-01 ,4.3958e-01 ,4.2522e-01 ,3.5185e-01 ,1.3670e-01 /) - kbo(:, 5,18, 6) = (/ & - &5.0994e-01 ,5.4989e-01 ,5.1174e-01 ,4.0832e-01 ,1.4125e-01 /) - kbo(:, 1,19, 6) = (/ & - &8.5532e-02 ,1.6314e-01 ,1.8367e-01 ,1.7636e-01 ,1.0532e-01 /) - kbo(:, 2,19, 6) = (/ & - &1.2828e-01 ,2.0893e-01 ,2.2484e-01 ,2.0705e-01 ,1.1032e-01 /) - kbo(:, 3,19, 6) = (/ & - &1.8543e-01 ,2.6474e-01 ,2.7268e-01 ,2.4148e-01 ,1.1512e-01 /) - kbo(:, 4,19, 6) = (/ & - &2.5984e-01 ,3.3238e-01 ,3.2852e-01 ,2.8001e-01 ,1.1952e-01 /) - kbo(:, 5,19, 6) = (/ & - &3.5320e-01 ,4.1295e-01 ,3.9317e-01 ,3.2333e-01 ,1.2366e-01 /) - kbo(:, 1,20, 6) = (/ & - &6.4796e-02 ,1.3254e-01 ,1.5120e-01 ,1.4730e-01 ,9.1341e-02 /) - kbo(:, 2,20, 6) = (/ & - &9.6990e-02 ,1.6885e-01 ,1.8400e-01 ,1.7239e-01 ,9.5796e-02 /) - kbo(:, 3,20, 6) = (/ & - &1.4017e-01 ,2.1315e-01 ,2.2212e-01 ,2.0058e-01 ,9.9929e-02 /) - kbo(:, 4,20, 6) = (/ & - &1.9600e-01 ,2.6649e-01 ,2.6658e-01 ,2.3206e-01 ,1.0386e-01 /) - kbo(:, 5,20, 6) = (/ & - &2.6559e-01 ,3.2963e-01 ,3.1802e-01 ,2.6726e-01 ,1.0762e-01 /) - kbo(:, 1,21, 6) = (/ & - &5.0649e-02 ,1.0928e-01 ,1.2583e-01 ,1.2405e-01 ,7.8779e-02 /) - kbo(:, 2,21, 6) = (/ & - &7.5738e-02 ,1.3875e-01 ,1.5264e-01 ,1.4489e-01 ,8.2609e-02 /) - kbo(:, 3,21, 6) = (/ & - &1.0925e-01 ,1.7464e-01 ,1.8399e-01 ,1.6832e-01 ,8.6258e-02 /) - kbo(:, 4,21, 6) = (/ & - &1.5216e-01 ,2.1765e-01 ,2.2035e-01 ,1.9451e-01 ,8.9821e-02 /) - kbo(:, 5,21, 6) = (/ & - &2.0550e-01 ,2.6822e-01 ,2.6230e-01 ,2.2354e-01 ,9.3160e-02 /) - kbo(:, 1,22, 6) = (/ & - &4.1767e-02 ,9.2608e-02 ,1.0699e-01 ,1.0611e-01 ,6.7766e-02 /) - kbo(:, 2,22, 6) = (/ & - &6.2192e-02 ,1.1726e-01 ,1.2959e-01 ,1.2363e-01 ,7.1096e-02 /) - kbo(:, 3,22, 6) = (/ & - &8.9136e-02 ,1.4711e-01 ,1.5605e-01 ,1.4343e-01 ,7.4363e-02 /) - kbo(:, 4,22, 6) = (/ & - &1.2346e-01 ,1.8283e-01 ,1.8672e-01 ,1.6558e-01 ,7.7494e-02 /) - kbo(:, 5,22, 6) = (/ & - &1.6595e-01 ,2.2428e-01 ,2.2184e-01 ,1.9008e-01 ,8.0478e-02 /) - kbo(:, 1,23, 6) = (/ & - &3.4739e-02 ,7.8664e-02 ,9.1136e-02 ,9.0610e-02 ,5.8065e-02 /) - kbo(:, 2,23, 6) = (/ & - &5.1379e-02 ,9.9376e-02 ,1.1032e-01 ,1.0537e-01 ,6.0980e-02 /) - kbo(:, 3,23, 6) = (/ & - &7.3154e-02 ,1.2441e-01 ,1.3261e-01 ,1.2218e-01 ,6.3866e-02 /) - kbo(:, 4,23, 6) = (/ & - &1.0075e-01 ,1.5392e-01 ,1.5845e-01 ,1.4087e-01 ,6.6610e-02 /) - kbo(:, 5,23, 6) = (/ & - &1.3481e-01 ,1.8817e-01 ,1.8784e-01 ,1.6172e-01 ,6.9269e-02 /) - kbo(:, 1,24, 6) = (/ & - &2.8818e-02 ,6.6682e-02 ,7.7471e-02 ,7.7057e-02 ,4.9574e-02 /) - kbo(:, 2,24, 6) = (/ & - &4.2313e-02 ,8.4062e-02 ,9.3582e-02 ,8.9537e-02 ,5.2146e-02 /) - kbo(:, 3,24, 6) = (/ & - &5.9843e-02 ,1.0485e-01 ,1.1232e-01 ,1.0372e-01 ,5.4645e-02 /) - kbo(:, 4,24, 6) = (/ & - &8.1952e-02 ,1.2924e-01 ,1.3388e-01 ,1.1954e-01 ,5.7051e-02 /) - kbo(:, 5,24, 6) = (/ & - &1.0925e-01 ,1.5756e-01 ,1.5837e-01 ,1.3710e-01 ,5.9328e-02 /) - kbo(:, 1,25, 6) = (/ & - &2.4289e-02 ,5.7018e-02 ,6.6182e-02 ,6.5743e-02 ,4.2224e-02 /) - kbo(:, 2,25, 6) = (/ & - &3.5371e-02 ,7.1685e-02 ,7.9860e-02 ,7.6400e-02 ,4.4451e-02 /) - kbo(:, 3,25, 6) = (/ & - &4.9695e-02 ,8.9091e-02 ,9.5704e-02 ,8.8452e-02 ,4.6603e-02 /) - kbo(:, 4,25, 6) = (/ & - &6.7687e-02 ,1.0953e-01 ,1.1385e-01 ,1.0188e-01 ,4.8655e-02 /) - kbo(:, 5,25, 6) = (/ & - &9.0080e-02 ,1.3324e-01 ,1.3448e-01 ,1.1679e-01 ,5.0366e-02 /) - kbo(:, 1,26, 6) = (/ & - &2.0940e-02 ,4.9340e-02 ,5.7029e-02 ,5.6467e-02 ,3.5910e-02 /) - kbo(:, 2,26, 6) = (/ & - &3.0229e-02 ,6.1848e-02 ,6.8786e-02 ,6.5644e-02 ,3.7816e-02 /) - kbo(:, 3,26, 6) = (/ & - &4.2173e-02 ,7.6666e-02 ,8.2327e-02 ,7.6015e-02 ,3.9629e-02 /) - kbo(:, 4,26, 6) = (/ & - &5.7238e-02 ,9.4072e-02 ,9.7854e-02 ,8.7548e-02 ,4.1173e-02 /) - kbo(:, 5,26, 6) = (/ & - &7.6058e-02 ,1.1436e-01 ,1.1545e-01 ,1.0034e-01 ,4.2300e-02 /) - kbo(:, 1,27, 6) = (/ & - &1.8730e-02 ,4.3572e-02 ,4.9937e-02 ,4.9064e-02 ,3.0474e-02 /) - kbo(:, 2,27, 6) = (/ & - &2.6831e-02 ,5.4541e-02 ,6.0259e-02 ,5.7134e-02 ,3.2064e-02 /) - kbo(:, 3,27, 6) = (/ & - &3.7216e-02 ,6.7578e-02 ,7.2151e-02 ,6.6197e-02 ,3.3458e-02 /) - kbo(:, 4,27, 6) = (/ & - &5.0417e-02 ,8.2889e-02 ,8.5762e-02 ,7.6299e-02 ,3.4507e-02 /) - kbo(:, 5,27, 6) = (/ & - &6.6884e-02 ,1.0088e-01 ,1.0129e-01 ,8.7542e-02 ,3.5247e-02 /) - kbo(:, 1,28, 6) = (/ & - &1.7190e-02 ,3.9051e-02 ,4.4263e-02 ,4.3005e-02 ,2.5796e-02 /) - kbo(:, 2,28, 6) = (/ & - &2.4452e-02 ,4.8897e-02 ,5.3477e-02 ,5.0169e-02 ,2.7044e-02 /) - kbo(:, 3,28, 6) = (/ & - &3.3807e-02 ,6.0596e-02 ,6.4111e-02 ,5.8195e-02 ,2.8015e-02 /) - kbo(:, 4,28, 6) = (/ & - &4.5722e-02 ,7.4408e-02 ,7.6314e-02 ,6.7197e-02 ,2.8722e-02 /) - kbo(:, 5,28, 6) = (/ & - &6.0503e-02 ,9.0881e-02 ,9.0351e-02 ,7.7127e-02 ,2.9243e-02 /) - kbo(:, 1,29, 6) = (/ & - &1.6778e-02 ,3.6309e-02 ,4.0421e-02 ,3.8540e-02 ,2.1757e-02 /) - kbo(:, 2,29, 6) = (/ & - &2.3732e-02 ,4.5567e-02 ,4.8987e-02 ,4.5076e-02 ,2.2654e-02 /) - kbo(:, 3,29, 6) = (/ & - &3.2754e-02 ,5.6621e-02 ,5.8900e-02 ,5.2465e-02 ,2.3325e-02 /) - kbo(:, 4,29, 6) = (/ & - &4.4197e-02 ,6.9861e-02 ,7.0379e-02 ,6.0698e-02 ,2.3826e-02 /) - kbo(:, 5,29, 6) = (/ & - &5.8243e-02 ,8.5699e-02 ,8.3806e-02 ,6.9875e-02 ,2.4188e-02 /) - kbo(:, 1,30, 6) = (/ & - &1.6788e-02 ,3.4359e-02 ,3.7447e-02 ,3.4898e-02 ,1.8241e-02 /) - kbo(:, 2,30, 6) = (/ & - &2.3674e-02 ,4.3260e-02 ,4.5554e-02 ,4.0970e-02 ,1.8874e-02 /) - kbo(:, 3,30, 6) = (/ & - &3.2611e-02 ,5.3991e-02 ,5.4995e-02 ,4.7819e-02 ,1.9352e-02 /) - kbo(:, 4,30, 6) = (/ & - &4.3823e-02 ,6.7000e-02 ,6.6123e-02 ,5.5495e-02 ,1.9717e-02 /) - kbo(:, 5,30, 6) = (/ & - &5.7496e-02 ,8.2562e-02 ,7.9216e-02 ,6.4205e-02 ,1.9974e-02 /) - kbo(:, 1,31, 6) = (/ & - &1.7729e-02 ,3.3726e-02 ,3.5756e-02 ,3.2351e-02 ,1.5217e-02 /) - kbo(:, 2,31, 6) = (/ & - &2.4948e-02 ,4.2686e-02 ,4.3734e-02 ,3.8162e-02 ,1.5670e-02 /) - kbo(:, 3,31, 6) = (/ & - &3.4225e-02 ,5.3676e-02 ,5.3194e-02 ,4.4735e-02 ,1.6031e-02 /) - kbo(:, 4,31, 6) = (/ & - &4.5784e-02 ,6.7038e-02 ,6.4468e-02 ,5.2256e-02 ,1.6295e-02 /) - kbo(:, 5,31, 6) = (/ & - &5.9817e-02 ,8.2952e-02 ,7.7737e-02 ,6.0918e-02 ,1.6485e-02 /) - kbo(:, 1,32, 6) = (/ & - &1.9003e-02 ,3.3583e-02 ,3.4583e-02 ,3.0306e-02 ,1.2654e-02 /) - kbo(:, 2,32, 6) = (/ & - &2.6663e-02 ,4.2837e-02 ,4.2596e-02 ,3.5915e-02 ,1.2998e-02 /) - kbo(:, 3,32, 6) = (/ & - &3.6385e-02 ,5.4256e-02 ,5.2269e-02 ,4.2382e-02 ,1.3260e-02 /) - kbo(:, 4,32, 6) = (/ & - &4.8425e-02 ,6.8084e-02 ,6.3837e-02 ,4.9934e-02 ,1.3455e-02 /) - kbo(:, 5,32, 6) = (/ & - &6.3023e-02 ,8.4608e-02 ,7.7399e-02 ,5.8694e-02 ,1.3589e-02 /) - kbo(:, 1,33, 6) = (/ & - &2.0794e-02 ,3.4164e-02 ,3.4049e-02 ,2.8789e-02 ,1.0506e-02 /) - kbo(:, 2,33, 6) = (/ & - &2.9020e-02 ,4.3934e-02 ,4.2358e-02 ,3.4361e-02 ,1.0761e-02 /) - kbo(:, 3,33, 6) = (/ & - &3.9409e-02 ,5.5981e-02 ,5.2449e-02 ,4.0931e-02 ,1.0954e-02 /) - kbo(:, 4,33, 6) = (/ & - &5.2184e-02 ,7.0595e-02 ,6.4456e-02 ,4.8674e-02 ,1.1100e-02 /) - kbo(:, 5,33, 6) = (/ & - &6.7723e-02 ,8.8066e-02 ,7.8614e-02 ,5.7672e-02 ,1.1201e-02 /) - kbo(:, 1,34, 6) = (/ & - &2.1935e-02 ,3.4165e-02 ,3.3105e-02 ,2.7057e-02 ,8.7014e-03 /) - kbo(:, 2,34, 6) = (/ & - &3.0477e-02 ,4.4226e-02 ,4.1562e-02 ,3.2560e-02 ,8.8925e-03 /) - kbo(:, 3,34, 6) = (/ & - &4.1199e-02 ,5.6620e-02 ,5.1809e-02 ,3.9153e-02 ,9.0424e-03 /) - kbo(:, 4,34, 6) = (/ & - &5.4372e-02 ,7.1709e-02 ,6.4039e-02 ,4.6915e-02 ,9.1557e-03 /) - kbo(:, 5,34, 6) = (/ & - &7.0476e-02 ,8.9710e-02 ,7.8542e-02 ,5.5979e-02 ,9.2318e-03 /) - kbo(:, 1,35, 6) = (/ & - &2.2432e-02 ,3.3575e-02 ,3.1770e-02 ,2.5159e-02 ,7.1825e-03 /) - kbo(:, 2,35, 6) = (/ & - &3.1101e-02 ,4.3743e-02 ,4.0231e-02 ,3.0588e-02 ,7.3372e-03 /) - kbo(:, 3,35, 6) = (/ & - &4.1959e-02 ,5.6323e-02 ,5.0491e-02 ,3.7114e-02 ,7.4571e-03 /) - kbo(:, 4,35, 6) = (/ & - &5.5361e-02 ,7.1664e-02 ,6.2827e-02 ,4.4829e-02 ,7.5457e-03 /) - kbo(:, 5,35, 6) = (/ & - &7.1841e-02 ,8.9995e-02 ,7.7538e-02 ,5.3898e-02 ,7.6098e-03 /) - kbo(:, 1,36, 6) = (/ & - &2.1971e-02 ,3.2052e-02 ,2.9773e-02 ,2.2980e-02 ,5.9169e-03 /) - kbo(:, 2,36, 6) = (/ & - &3.0496e-02 ,4.2068e-02 ,3.8012e-02 ,2.8228e-02 ,6.0417e-03 /) - kbo(:, 3,36, 6) = (/ & - &4.1195e-02 ,5.4532e-02 ,4.8068e-02 ,3.4542e-02 ,6.1403e-03 /) - kbo(:, 4,36, 6) = (/ & - &5.4471e-02 ,6.9759e-02 ,6.0254e-02 ,4.2072e-02 ,6.2148e-03 /) - kbo(:, 5,36, 6) = (/ & - &7.0911e-02 ,8.8088e-02 ,7.4912e-02 ,5.0992e-02 ,6.2662e-03 /) - kbo(:, 1,37, 6) = (/ & - &1.9922e-02 ,2.8852e-02 ,2.6493e-02 ,2.0135e-02 ,4.8546e-03 /) - kbo(:, 2,37, 6) = (/ & - &2.7802e-02 ,3.8202e-02 ,3.4133e-02 ,2.4969e-02 ,4.9597e-03 /) - kbo(:, 3,37, 6) = (/ & - &3.7750e-02 ,4.9930e-02 ,4.3532e-02 ,3.0816e-02 ,5.0441e-03 /) - kbo(:, 4,37, 6) = (/ & - &5.0184e-02 ,6.4346e-02 ,5.5012e-02 ,3.7855e-02 ,5.1082e-03 /) - kbo(:, 5,37, 6) = (/ & - &6.5650e-02 ,8.1819e-02 ,6.8970e-02 ,4.6262e-02 ,5.1546e-03 /) - kbo(:, 1,38, 6) = (/ & - &1.8261e-02 ,2.6220e-02 ,2.3783e-02 ,1.7789e-02 ,3.9817e-03 /) - kbo(:, 2,38, 6) = (/ & - &2.5634e-02 ,3.5047e-02 ,3.0941e-02 ,2.2280e-02 ,4.0729e-03 /) - kbo(:, 3,38, 6) = (/ & - &3.5007e-02 ,4.6188e-02 ,3.9826e-02 ,2.7761e-02 ,4.1447e-03 /) - kbo(:, 4,38, 6) = (/ & - &4.6818e-02 ,5.9985e-02 ,5.0782e-02 ,3.4412e-02 ,4.1996e-03 /) - kbo(:, 5,38, 6) = (/ & - &6.1549e-02 ,7.6851e-02 ,6.4240e-02 ,4.2442e-02 ,4.2409e-03 /) - kbo(:, 1,39, 6) = (/ & - &1.7120e-02 ,2.4268e-02 ,2.1723e-02 ,1.5967e-02 ,3.2683e-03 /) - kbo(:, 2,39, 6) = (/ & - &2.4172e-02 ,3.2753e-02 ,2.8567e-02 ,2.0215e-02 ,3.3454e-03 /) - kbo(:, 3,39, 6) = (/ & - &3.3206e-02 ,4.3552e-02 ,3.7135e-02 ,2.5455e-02 ,3.4062e-03 /) - kbo(:, 4,39, 6) = (/ & - &4.4652e-02 ,5.7021e-02 ,4.7802e-02 ,3.1863e-02 ,3.4542e-03 /) - kbo(:, 5,39, 6) = (/ & - &5.8989e-02 ,7.3628e-02 ,6.1045e-02 ,3.9701e-02 ,3.4927e-03 /) - kbo(:, 1,40, 6) = (/ & - &1.4508e-02 ,2.0729e-02 ,1.8466e-02 ,1.3481e-02 ,2.6735e-03 /) - kbo(:, 2,40, 6) = (/ & - &2.0675e-02 ,2.8264e-02 ,2.4526e-02 ,1.7230e-02 ,2.7394e-03 /) - kbo(:, 3,40, 6) = (/ & - &2.8640e-02 ,3.7952e-02 ,3.2186e-02 ,2.1896e-02 ,2.7930e-03 /) - kbo(:, 4,40, 6) = (/ & - &3.8810e-02 ,5.0166e-02 ,4.1826e-02 ,2.7660e-02 ,2.8356e-03 /) - kbo(:, 5,40, 6) = (/ & - &5.1624e-02 ,6.5327e-02 ,5.3925e-02 ,3.4781e-02 ,2.8708e-03 /) - kbo(:, 1,41, 6) = (/ & - &1.2173e-02 ,1.7558e-02 ,1.5577e-02 ,1.1317e-02 ,2.1860e-03 /) - kbo(:, 2,41, 6) = (/ & - &1.7521e-02 ,2.4204e-02 ,2.0905e-02 ,1.4606e-02 ,2.2431e-03 /) - kbo(:, 3,41, 6) = (/ & - &2.4494e-02 ,3.2840e-02 ,2.7710e-02 ,1.8738e-02 ,2.2897e-03 /) - kbo(:, 4,41, 6) = (/ & - &3.3465e-02 ,4.3838e-02 ,3.6359e-02 ,2.3890e-02 ,2.3273e-03 /) - kbo(:, 5,41, 6) = (/ & - &4.4815e-02 ,5.7614e-02 ,4.7337e-02 ,3.0319e-02 ,2.3593e-03 /) - kbo(:, 1,42, 6) = (/ & - &1.0295e-02 ,1.4955e-02 ,1.3204e-02 ,9.5463e-03 ,1.7869e-03 /) - kbo(:, 2,42, 6) = (/ & - &1.4969e-02 ,2.0854e-02 ,1.7923e-02 ,1.2449e-02 ,1.8368e-03 /) - kbo(:, 3,42, 6) = (/ & - &2.1120e-02 ,2.8597e-02 ,2.4004e-02 ,1.6130e-02 ,1.8766e-03 /) - kbo(:, 4,42, 6) = (/ & - &2.9097e-02 ,3.8565e-02 ,3.1822e-02 ,2.0764e-02 ,1.9105e-03 /) - kbo(:, 5,42, 6) = (/ & - &3.9250e-02 ,5.1179e-02 ,4.1851e-02 ,2.6620e-02 ,1.9390e-03 /) - kbo(:, 1,43, 6) = (/ & - &8.5600e-03 ,1.2537e-02 ,1.1032e-02 ,7.9541e-03 ,1.4581e-03 /) - kbo(:, 2,43, 6) = (/ & - &1.2604e-02 ,1.7710e-02 ,1.5163e-02 ,1.0490e-02 ,1.5008e-03 /) - kbo(:, 3,43, 6) = (/ & - &1.7986e-02 ,2.4578e-02 ,2.0552e-02 ,1.3738e-02 ,1.5357e-03 /) - kbo(:, 4,43, 6) = (/ & - &2.5016e-02 ,3.3532e-02 ,2.7550e-02 ,1.7878e-02 ,1.5671e-03 /) - kbo(:, 5,43, 6) = (/ & - &3.4031e-02 ,4.4978e-02 ,3.6624e-02 ,2.3164e-02 ,1.5928e-03 /) - kbo(:, 1,44, 6) = (/ & - &7.1102e-03 ,1.0482e-02 ,9.1923e-03 ,6.6123e-03 ,1.1883e-03 /) - kbo(:, 2,44, 6) = (/ & - &1.0618e-02 ,1.5014e-02 ,1.2809e-02 ,8.8284e-03 ,1.2254e-03 /) - kbo(:, 3,44, 6) = (/ & - &1.5336e-02 ,2.1109e-02 ,1.7587e-02 ,1.1700e-02 ,1.2566e-03 /) - kbo(:, 4,44, 6) = (/ & - &2.1558e-02 ,2.9159e-02 ,2.3862e-02 ,1.5404e-02 ,1.2849e-03 /) - kbo(:, 5,44, 6) = (/ & - &2.9601e-02 ,3.9572e-02 ,3.2092e-02 ,2.0188e-02 ,1.3081e-03 /) - kbo(:, 1,45, 6) = (/ & - &5.9959e-03 ,8.8564e-03 ,7.7363e-03 ,5.5453e-03 ,9.6825e-04 /) - kbo(:, 2,45, 6) = (/ & - &9.0798e-03 ,1.2878e-02 ,1.0936e-02 ,7.5039e-03 ,1.0003e-03 /) - kbo(:, 3,45, 6) = (/ & - &1.3290e-02 ,1.8346e-02 ,1.5227e-02 ,1.0074e-02 ,1.0284e-03 /) - kbo(:, 4,45, 6) = (/ & - &1.8884e-02 ,2.5678e-02 ,2.0927e-02 ,1.3427e-02 ,1.0535e-03 /) - kbo(:, 5,45, 6) = (/ & - &2.6185e-02 ,3.5270e-02 ,2.8485e-02 ,1.7812e-02 ,1.0746e-03 /) - kbo(:, 1,46, 6) = (/ & - &5.0299e-03 ,7.4350e-03 ,6.4749e-03 ,4.6277e-03 ,7.8776e-04 /) - kbo(:, 2,46, 6) = (/ & - &7.7400e-03 ,1.0992e-02 ,9.2918e-03 ,6.3536e-03 ,8.1609e-04 /) - kbo(:, 3,46, 6) = (/ & - &1.1482e-02 ,1.5887e-02 ,1.3136e-02 ,8.6493e-03 ,8.4114e-04 /) - kbo(:, 4,46, 6) = (/ & - &1.6521e-02 ,2.2547e-02 ,1.8306e-02 ,1.1680e-02 ,8.6343e-04 /) - kbo(:, 5,46, 6) = (/ & - &2.3160e-02 ,3.1365e-02 ,2.5232e-02 ,1.5694e-02 ,8.8222e-04 /) - kbo(:, 1,47, 6) = (/ & - &4.0735e-03 ,6.0481e-03 ,5.2664e-03 ,3.7670e-03 ,6.3966e-04 /) - kbo(:, 2,47, 6) = (/ & - &6.3819e-03 ,9.1048e-03 ,7.6804e-03 ,5.2485e-03 ,6.6459e-04 /) - kbo(:, 3,47, 6) = (/ & - &9.6180e-03 ,1.3376e-02 ,1.1030e-02 ,7.2481e-03 ,6.8646e-04 /) - kbo(:, 4,47, 6) = (/ & - &1.4038e-02 ,1.9266e-02 ,1.5600e-02 ,9.9209e-03 ,7.0632e-04 /) - kbo(:, 5,47, 6) = (/ & - &1.9923e-02 ,2.7168e-02 ,2.1786e-02 ,1.3500e-02 ,7.2294e-04 /) - kbo(:, 1,48, 6) = (/ & - &3.3654e-03 ,4.9911e-03 ,4.3393e-03 ,3.1001e-03 ,5.1894e-04 /) - kbo(:, 2,48, 6) = (/ & - &5.3738e-03 ,7.6583e-03 ,6.4413e-03 ,4.3896e-03 ,5.4055e-04 /) - kbo(:, 3,48, 6) = (/ & - &8.2348e-03 ,1.1452e-02 ,9.4090e-03 ,6.1594e-03 ,5.5982e-04 /) - kbo(:, 4,48, 6) = (/ & - &1.2194e-02 ,1.6751e-02 ,1.3518e-02 ,8.5585e-03 ,5.7759e-04 /) - kbo(:, 5,48, 6) = (/ & - &1.7535e-02 ,2.3969e-02 ,1.9153e-02 ,1.1809e-02 ,5.9223e-04 /) - kbo(:, 1,49, 6) = (/ & - &2.8714e-03 ,4.2192e-03 ,3.6533e-03 ,2.6003e-03 ,4.2066e-04 /) - kbo(:, 2,49, 6) = (/ & - &4.6796e-03 ,6.6096e-03 ,5.5332e-03 ,3.7482e-03 ,4.3948e-04 /) - kbo(:, 3,49, 6) = (/ & - &7.3002e-03 ,1.0080e-02 ,8.2347e-03 ,5.3596e-03 ,4.5652e-04 /) - kbo(:, 4,49, 6) = (/ & - &1.0971e-02 ,1.4981e-02 ,1.2046e-02 ,7.5739e-03 ,4.7234e-04 /) - kbo(:, 5,49, 6) = (/ & - &1.5995e-02 ,2.1767e-02 ,1.7330e-02 ,1.0614e-02 ,4.8568e-04 /) - kbo(:, 1,50, 6) = (/ & - &2.3434e-03 ,3.4410e-03 ,2.9786e-03 ,2.1205e-03 ,3.4069e-04 /) - kbo(:, 2,50, 6) = (/ & - &3.8971e-03 ,5.4992e-03 ,4.5940e-03 ,3.1036e-03 ,3.5714e-04 /) - kbo(:, 3,50, 6) = (/ & - &6.1900e-03 ,8.5460e-03 ,6.9553e-03 ,4.5152e-03 ,3.7212e-04 /) - kbo(:, 4,50, 6) = (/ & - &9.4451e-03 ,1.2909e-02 ,1.0349e-02 ,6.4854e-03 ,3.8582e-04 /) - kbo(:, 5,50, 6) = (/ & - &1.3954e-02 ,1.9042e-02 ,1.5119e-02 ,9.2171e-03 ,3.9788e-04 /) - kbo(:, 1,51, 6) = (/ & - &1.8670e-03 ,2.7492e-03 ,2.3841e-03 ,1.7021e-03 ,2.7578e-04 /) - kbo(:, 2,51, 6) = (/ & - &3.1678e-03 ,4.4826e-03 ,3.7408e-03 ,2.5267e-03 ,2.9005e-04 /) - kbo(:, 3,51, 6) = (/ & - &5.1260e-03 ,7.0985e-03 ,5.7656e-03 ,3.7383e-03 ,3.0300e-04 /) - kbo(:, 4,51, 6) = (/ & - &7.9439e-03 ,1.0904e-02 ,8.7196e-03 ,5.4539e-03 ,3.1487e-04 /) - kbo(:, 5,51, 6) = (/ & - &1.1900e-02 ,1.6326e-02 ,1.2929e-02 ,7.8597e-03 ,3.2578e-04 /) - kbo(:, 1,52, 6) = (/ & - &1.5181e-03 ,2.2298e-03 ,1.9337e-03 ,1.3821e-03 ,2.2294e-04 /) - kbo(:, 2,52, 6) = (/ & - &2.6323e-03 ,3.7113e-03 ,3.0904e-03 ,2.0844e-03 ,2.3535e-04 /) - kbo(:, 3,52, 6) = (/ & - &4.3389e-03 ,5.9943e-03 ,4.8574e-03 ,3.1382e-03 ,2.4655e-04 /) - kbo(:, 4,52, 6) = (/ & - &6.8363e-03 ,9.3770e-03 ,7.4736e-03 ,4.6599e-03 ,2.5711e-04 /) - kbo(:, 5,52, 6) = (/ & - &1.0389e-02 ,1.4256e-02 ,1.1263e-02 ,6.8242e-03 ,2.6665e-04 /) - kbo(:, 1,53, 6) = (/ & - &1.2752e-03 ,1.8531e-03 ,1.6024e-03 ,1.1428e-03 ,1.8014e-04 /) - kbo(:, 2,53, 6) = (/ & - &2.2594e-03 ,3.1508e-03 ,2.6140e-03 ,1.7561e-03 ,1.9085e-04 /) - kbo(:, 3,53, 6) = (/ & - &3.7990e-03 ,5.2013e-03 ,4.1982e-03 ,2.6961e-03 ,2.0067e-04 /) - kbo(:, 4,53, 6) = (/ & - &6.0922e-03 ,8.2959e-03 ,6.5816e-03 ,4.0835e-03 ,2.0982e-04 /) - kbo(:, 5,53, 6) = (/ & - &9.3947e-03 ,1.2809e-02 ,1.0095e-02 ,6.0875e-03 ,2.1819e-04 /) - kbo(:, 1,54, 6) = (/ & - &9.3663e-04 ,1.3820e-03 ,1.2040e-03 ,8.6807e-04 ,1.4544e-04 /) - kbo(:, 2,54, 6) = (/ & - &1.6914e-03 ,2.3887e-03 ,1.9911e-03 ,1.3482e-03 ,1.5460e-04 /) - kbo(:, 3,54, 6) = (/ & - &2.8997e-03 ,4.0201e-03 ,3.2494e-03 ,2.0953e-03 ,1.6297e-04 /) - kbo(:, 4,54, 6) = (/ & - &4.7306e-03 ,6.5273e-03 ,5.1758e-03 ,3.2189e-03 ,1.7075e-04 /) - kbo(:, 5,54, 6) = (/ & - &7.3984e-03 ,1.0238e-02 ,8.0539e-03 ,4.8622e-03 ,1.7797e-04 /) - kbo(:, 1,55, 6) = (/ & - &6.2935e-04 ,9.5969e-04 ,8.4900e-04 ,6.2465e-04 ,1.1738e-04 /) - kbo(:, 2,55, 6) = (/ & - &1.1558e-03 ,1.6799e-03 ,1.4161e-03 ,9.7472e-04 ,1.2508e-04 /) - kbo(:, 3,55, 6) = (/ & - &2.0209e-03 ,2.8749e-03 ,2.3378e-03 ,1.5244e-03 ,1.3211e-04 /) - kbo(:, 4,55, 6) = (/ & - &3.3522e-03 ,4.7482e-03 ,3.7736e-03 ,2.3654e-03 ,1.3870e-04 /) - kbo(:, 5,55, 6) = (/ & - &5.3187e-03 ,7.5686e-03 ,5.9480e-03 ,3.6106e-03 ,1.4478e-04 /) - kbo(:, 1,56, 6) = (/ & - &4.2101e-04 ,6.6332e-04 ,5.9672e-04 ,4.4860e-04 ,9.4587e-05 /) - kbo(:, 2,56, 6) = (/ & - &7.8466e-04 ,1.1752e-03 ,1.0029e-03 ,7.0318e-04 ,1.0112e-04 /) - kbo(:, 3,56, 6) = (/ & - &1.3999e-03 ,2.0432e-03 ,1.6739e-03 ,1.1053e-03 ,1.0709e-04 /) - kbo(:, 4,56, 6) = (/ & - &2.3635e-03 ,3.4329e-03 ,2.7372e-03 ,1.7318e-03 ,1.1258e-04 /) - kbo(:, 5,56, 6) = (/ & - &3.8069e-03 ,5.5637e-03 ,4.3696e-03 ,2.6702e-03 ,1.1773e-04 /) - kbo(:, 1,57, 6) = (/ & - &2.8076e-04 ,4.5641e-04 ,4.1815e-04 ,3.2142e-04 ,7.6115e-05 /) - kbo(:, 2,57, 6) = (/ & - &5.2895e-04 ,8.1778e-04 ,7.0771e-04 ,5.0616e-04 ,8.1716e-05 /) - kbo(:, 3,57, 6) = (/ & - &9.6334e-04 ,1.4422e-03 ,1.1917e-03 ,7.9834e-04 ,8.6757e-05 /) - kbo(:, 4,57, 6) = (/ & - &1.6571e-03 ,2.4651e-03 ,1.9746e-03 ,1.2622e-03 ,9.1332e-05 /) - kbo(:, 5,57, 6) = (/ & - &2.7119e-03 ,4.0628e-03 ,3.1926e-03 ,1.9661e-03 ,9.5684e-05 /) - kbo(:, 1,58, 6) = (/ & - &4.9720e-05 ,1.0269e-04 ,1.2366e-04 ,1.3663e-04 ,6.1273e-05 /) - kbo(:, 2,58, 6) = (/ & - &9.4473e-05 ,1.8553e-04 ,2.1007e-04 ,2.1548e-04 ,6.5992e-05 /) - kbo(:, 3,58, 6) = (/ & - &1.7530e-04 ,3.3103e-04 ,3.5575e-04 ,3.4010e-04 ,7.0239e-05 /) - kbo(:, 4,58, 6) = (/ & - &3.0720e-04 ,5.7469e-04 ,5.9600e-04 ,5.4082e-04 ,7.4141e-05 /) - kbo(:, 5,58, 6) = (/ & - &5.1103e-04 ,9.6242e-04 ,9.7487e-04 ,8.4973e-04 ,7.7747e-05 /) - kbo(:, 1,59, 6) = (/ & - &4.4314e-05 ,9.6972e-05 ,1.1293e-04 ,1.1582e-04 ,4.9949e-05 /) - kbo(:, 2,59, 6) = (/ & - &8.4700e-05 ,1.7358e-04 ,1.8881e-04 ,1.7917e-04 ,5.3859e-05 /) - kbo(:, 3,59, 6) = (/ & - &1.5856e-04 ,3.0848e-04 ,3.1562e-04 ,2.7815e-04 ,5.7310e-05 /) - kbo(:, 4,59, 6) = (/ & - &2.8032e-04 ,5.3615e-04 ,5.2587e-04 ,4.3688e-04 ,6.0507e-05 /) - kbo(:, 5,59, 6) = (/ & - &4.7008e-04 ,9.0261e-04 ,8.5908e-04 ,6.8167e-04 ,6.3447e-05 /) - kbo(:, 1,13, 7) = (/ & - &3.5002e+00 ,2.8426e+00 ,2.2229e+00 ,1.5940e+00 ,4.6284e-01 /) - kbo(:, 2,13, 7) = (/ & - &5.2764e+00 ,4.1532e+00 ,3.0774e+00 ,2.0245e+00 ,4.6449e-01 /) - kbo(:, 3,13, 7) = (/ & - &7.6096e+00 ,5.8846e+00 ,4.2048e+00 ,2.5664e+00 ,4.6564e-01 /) - kbo(:, 4,13, 7) = (/ & - &1.0545e+01 ,8.0718e+00 ,5.6353e+00 ,3.2573e+00 ,4.6805e-01 /) - kbo(:, 5,13, 7) = (/ & - &1.4101e+01 ,1.0726e+01 ,7.3776e+00 ,4.1071e+00 ,4.6959e-01 /) - kbo(:, 1,14, 7) = (/ & - &1.9332e+00 ,1.6833e+00 ,1.4584e+00 ,1.1419e+00 ,4.2549e-01 /) - kbo(:, 2,14, 7) = (/ & - &2.9208e+00 ,2.4028e+00 ,1.9264e+00 ,1.4148e+00 ,4.2845e-01 /) - kbo(:, 3,14, 7) = (/ & - &4.2111e+00 ,3.3491e+00 ,2.5401e+00 ,1.7447e+00 ,4.2997e-01 /) - kbo(:, 4,14, 7) = (/ & - &5.8219e+00 ,4.5369e+00 ,3.3137e+00 ,2.1374e+00 ,4.3233e-01 /) - kbo(:, 5,14, 7) = (/ & - &7.7805e+00 ,5.9890e+00 ,4.2588e+00 ,2.5955e+00 ,4.3475e-01 /) - kbo(:, 1,15, 7) = (/ & - &1.0958e+00 ,1.0674e+00 ,1.0130e+00 ,8.4961e-01 ,3.8730e-01 /) - kbo(:, 2,15, 7) = (/ & - &1.6536e+00 ,1.4690e+00 ,1.3041e+00 ,1.0292e+00 ,3.9101e-01 /) - kbo(:, 3,15, 7) = (/ & - &2.3745e+00 ,1.9914e+00 ,1.6603e+00 ,1.2452e+00 ,3.9344e-01 /) - kbo(:, 4,15, 7) = (/ & - &3.2750e+00 ,2.6468e+00 ,2.0887e+00 ,1.4951e+00 ,3.9613e-01 /) - kbo(:, 5,15, 7) = (/ & - &4.3749e+00 ,3.4526e+00 ,2.6092e+00 ,1.7780e+00 ,3.9900e-01 /) - kbo(:, 1,16, 7) = (/ & - &7.4165e-01 ,8.0405e-01 ,7.9283e-01 ,6.9114e-01 ,3.4911e-01 /) - kbo(:, 2,16, 7) = (/ & - &1.1136e+00 ,1.0786e+00 ,1.0091e+00 ,8.2862e-01 ,3.5314e-01 /) - kbo(:, 3,16, 7) = (/ & - &1.5923e+00 ,1.4242e+00 ,1.2681e+00 ,9.9143e-01 ,3.5636e-01 /) - kbo(:, 4,16, 7) = (/ & - &2.1926e+00 ,1.8566e+00 ,1.5712e+00 ,1.1771e+00 ,3.6013e-01 /) - kbo(:, 5,16, 7) = (/ & - &2.9285e+00 ,2.3901e+00 ,1.9279e+00 ,1.3859e+00 ,3.6399e-01 /) - kbo(:, 1,17, 7) = (/ & - &5.1887e-01 ,6.2476e-01 ,6.3724e-01 ,5.7083e-01 ,3.1167e-01 /) - kbo(:, 2,17, 7) = (/ & - &7.7486e-01 ,8.2693e-01 ,8.0143e-01 ,6.7854e-01 ,3.1621e-01 /) - kbo(:, 3,17, 7) = (/ & - &1.1045e+00 ,1.0746e+00 ,9.9649e-01 ,8.0449e-01 ,3.2014e-01 /) - kbo(:, 4,17, 7) = (/ & - &1.5180e+00 ,1.3742e+00 ,1.2231e+00 ,9.4686e-01 ,3.2461e-01 /) - kbo(:, 5,17, 7) = (/ & - &2.0257e+00 ,1.7386e+00 ,1.4858e+00 ,1.1069e+00 ,3.2955e-01 /) - kbo(:, 1,18, 7) = (/ & - &3.7097e-01 ,4.9432e-01 ,5.1840e-01 ,4.7504e-01 ,2.7614e-01 /) - kbo(:, 2,18, 7) = (/ & - &5.5115e-01 ,6.4712e-01 ,6.4514e-01 ,5.6072e-01 ,2.8084e-01 /) - kbo(:, 3,18, 7) = (/ & - &7.8296e-01 ,8.3225e-01 ,7.9447e-01 ,6.5954e-01 ,2.8571e-01 /) - kbo(:, 4,18, 7) = (/ & - &1.0738e+00 ,1.0535e+00 ,9.6779e-01 ,7.7088e-01 ,2.9112e-01 /) - kbo(:, 5,18, 7) = (/ & - &1.4335e+00 ,1.3170e+00 ,1.1664e+00 ,8.9595e-01 ,2.9703e-01 /) - kbo(:, 1,19, 7) = (/ & - &2.5985e-01 ,3.8651e-01 ,4.1602e-01 ,3.9308e-01 ,2.4307e-01 /) - kbo(:, 2,19, 7) = (/ & - &3.8422e-01 ,5.0067e-01 ,5.1275e-01 ,4.5968e-01 ,2.4809e-01 /) - kbo(:, 3,19, 7) = (/ & - &5.4420e-01 ,6.3764e-01 ,6.2617e-01 ,5.3586e-01 ,2.5358e-01 /) - kbo(:, 4,19, 7) = (/ & - &7.4603e-01 ,7.9981e-01 ,7.5671e-01 ,6.2198e-01 ,2.5998e-01 /) - kbo(:, 5,19, 7) = (/ & - &9.9708e-01 ,9.9236e-01 ,9.0617e-01 ,7.1829e-01 ,2.6615e-01 /) - kbo(:, 1,20, 7) = (/ & - &1.9760e-01 ,3.1836e-01 ,3.4770e-01 ,3.3477e-01 ,2.1277e-01 /) - kbo(:, 2,20, 7) = (/ & - &2.9095e-01 ,4.0925e-01 ,4.2592e-01 ,3.8937e-01 ,2.1827e-01 /) - kbo(:, 3,20, 7) = (/ & - &4.1127e-01 ,5.1768e-01 ,5.1739e-01 ,4.5140e-01 ,2.2458e-01 /) - kbo(:, 4,20, 7) = (/ & - &5.6427e-01 ,6.4625e-01 ,6.2247e-01 ,5.2174e-01 ,2.3101e-01 /) - kbo(:, 5,20, 7) = (/ & - &7.5526e-01 ,7.9836e-01 ,7.4304e-01 ,6.0027e-01 ,2.3711e-01 /) - kbo(:, 1,21, 7) = (/ & - &1.5484e-01 ,2.6582e-01 ,2.9382e-01 ,2.8708e-01 ,1.8550e-01 /) - kbo(:, 2,21, 7) = (/ & - &2.2722e-01 ,3.3963e-01 ,3.5832e-01 ,3.3257e-01 ,1.9141e-01 /) - kbo(:, 3,21, 7) = (/ & - &3.2108e-01 ,4.2782e-01 ,4.3333e-01 ,3.8435e-01 ,1.9782e-01 /) - kbo(:, 4,21, 7) = (/ & - &4.4098e-01 ,5.3304e-01 ,5.1997e-01 ,4.4275e-01 ,2.0379e-01 /) - kbo(:, 5,21, 7) = (/ & - &5.9030e-01 ,6.5709e-01 ,6.1970e-01 ,5.0864e-01 ,2.0956e-01 /) - kbo(:, 1,22, 7) = (/ & - &1.2753e-01 ,2.2781e-01 ,2.5360e-01 ,2.4962e-01 ,1.6164e-01 /) - kbo(:, 2,22, 7) = (/ & - &1.8637e-01 ,2.8970e-01 ,3.0789e-01 ,2.8854e-01 ,1.6761e-01 /) - kbo(:, 3,22, 7) = (/ & - &2.6299e-01 ,3.6404e-01 ,3.7114e-01 ,3.3280e-01 ,1.7333e-01 /) - kbo(:, 4,22, 7) = (/ & - &3.6059e-01 ,4.5267e-01 ,4.4472e-01 ,3.8285e-01 ,1.7883e-01 /) - kbo(:, 5,22, 7) = (/ & - &4.8104e-01 ,5.5702e-01 ,5.2923e-01 ,4.3976e-01 ,1.8428e-01 /) - kbo(:, 1,23, 7) = (/ & - &1.0589e-01 ,1.9529e-01 ,2.1876e-01 ,2.1679e-01 ,1.4037e-01 /) - kbo(:, 2,23, 7) = (/ & - &1.5420e-01 ,2.4758e-01 ,2.6461e-01 ,2.5042e-01 ,1.4579e-01 /) - kbo(:, 3,23, 7) = (/ & - &2.1702e-01 ,3.1068e-01 ,3.1854e-01 ,2.8852e-01 ,1.5094e-01 /) - kbo(:, 4,23, 7) = (/ & - &2.9661e-01 ,3.8564e-01 ,3.8128e-01 ,3.3195e-01 ,1.5614e-01 /) - kbo(:, 5,23, 7) = (/ & - &3.9397e-01 ,4.7355e-01 ,4.5341e-01 ,3.8121e-01 ,1.6132e-01 /) - kbo(:, 1,24, 7) = (/ & - &8.7788e-02 ,1.6668e-01 ,1.8799e-01 ,1.8780e-01 ,1.2140e-01 /) - kbo(:, 2,24, 7) = (/ & - &1.2734e-01 ,2.1083e-01 ,2.2703e-01 ,2.1652e-01 ,1.2618e-01 /) - kbo(:, 3,24, 7) = (/ & - &1.7857e-01 ,2.6413e-01 ,2.7303e-01 ,2.4936e-01 ,1.3098e-01 /) - kbo(:, 4,24, 7) = (/ & - &2.4296e-01 ,3.2721e-01 ,3.2661e-01 ,2.8698e-01 ,1.3586e-01 /) - kbo(:, 5,24, 7) = (/ & - &3.2098e-01 ,4.0055e-01 ,3.8785e-01 ,3.2936e-01 ,1.4075e-01 /) - kbo(:, 1,25, 7) = (/ & - &7.4114e-02 ,1.4357e-01 ,1.6268e-01 ,1.6299e-01 ,1.0454e-01 /) - kbo(:, 2,25, 7) = (/ & - &1.0696e-01 ,1.8148e-01 ,1.9639e-01 ,1.8781e-01 ,1.0890e-01 /) - kbo(:, 3,25, 7) = (/ & - &1.4921e-01 ,2.2686e-01 ,2.3627e-01 ,2.1648e-01 ,1.1337e-01 /) - kbo(:, 4,25, 7) = (/ & - &2.0169e-01 ,2.8030e-01 ,2.8233e-01 ,2.4913e-01 ,1.1793e-01 /) - kbo(:, 5,25, 7) = (/ & - &2.6511e-01 ,3.4240e-01 ,3.3494e-01 ,2.8598e-01 ,1.2261e-01 /) - kbo(:, 1,26, 7) = (/ & - &6.4102e-02 ,1.2562e-01 ,1.4220e-01 ,1.4209e-01 ,8.9836e-02 /) - kbo(:, 2,26, 7) = (/ & - &9.1903e-02 ,1.5853e-01 ,1.7179e-01 ,1.6391e-01 ,9.3830e-02 /) - kbo(:, 3,26, 7) = (/ & - &1.2732e-01 ,1.9782e-01 ,2.0670e-01 ,1.8917e-01 ,9.8002e-02 /) - kbo(:, 4,26, 7) = (/ & - &1.7095e-01 ,2.4388e-01 ,2.4691e-01 ,2.1801e-01 ,1.0234e-01 /) - kbo(:, 5,26, 7) = (/ & - &2.2376e-01 ,2.9731e-01 ,2.9277e-01 ,2.5044e-01 ,1.0674e-01 /) - kbo(:, 1,27, 7) = (/ & - &5.7622e-02 ,1.1249e-01 ,1.2636e-01 ,1.2511e-01 ,7.7055e-02 /) - kbo(:, 2,27, 7) = (/ & - &8.1983e-02 ,1.4196e-01 ,1.5312e-01 ,1.4485e-01 ,8.0791e-02 /) - kbo(:, 3,27, 7) = (/ & - &1.1275e-01 ,1.7697e-01 ,1.8437e-01 ,1.6781e-01 ,8.4713e-02 /) - kbo(:, 4,27, 7) = (/ & - &1.5055e-01 ,2.1794e-01 ,2.2039e-01 ,1.9390e-01 ,8.8731e-02 /) - kbo(:, 5,27, 7) = (/ & - &1.9638e-01 ,2.6555e-01 ,2.6132e-01 ,2.2312e-01 ,9.2655e-02 /) - kbo(:, 1,28, 7) = (/ & - &5.3140e-02 ,1.0241e-01 ,1.1379e-01 ,1.1112e-01 ,6.6059e-02 /) - kbo(:, 2,28, 7) = (/ & - &7.5045e-02 ,1.2928e-01 ,1.3817e-01 ,1.2935e-01 ,6.9529e-02 /) - kbo(:, 3,28, 7) = (/ & - &1.0252e-01 ,1.6119e-01 ,1.6672e-01 ,1.5050e-01 ,7.3142e-02 /) - kbo(:, 4,28, 7) = (/ & - &1.3625e-01 ,1.9862e-01 ,1.9953e-01 ,1.7444e-01 ,7.6746e-02 /) - kbo(:, 5,28, 7) = (/ & - &1.7752e-01 ,2.4214e-01 ,2.3714e-01 ,2.0133e-01 ,7.9941e-02 /) - kbo(:, 1,29, 7) = (/ & - &5.2099e-02 ,9.6941e-02 ,1.0563e-01 ,1.0097e-01 ,5.6668e-02 /) - kbo(:, 2,29, 7) = (/ & - &7.3009e-02 ,1.2266e-01 ,1.2890e-01 ,1.1850e-01 ,5.9859e-02 /) - kbo(:, 3,29, 7) = (/ & - &9.9110e-02 ,1.5322e-01 ,1.5608e-01 ,1.3860e-01 ,6.3089e-02 /) - kbo(:, 4,29, 7) = (/ & - &1.3136e-01 ,1.8918e-01 ,1.8750e-01 ,1.6146e-01 ,6.6000e-02 /) - kbo(:, 5,29, 7) = (/ & - &1.7133e-01 ,2.3120e-01 ,2.2375e-01 ,1.8721e-01 ,6.8384e-02 /) - kbo(:, 1,30, 7) = (/ & - &5.2298e-02 ,9.3477e-02 ,9.9631e-02 ,9.3041e-02 ,4.8653e-02 /) - kbo(:, 2,30, 7) = (/ & - &7.2744e-02 ,1.1854e-01 ,1.2224e-01 ,1.0996e-01 ,5.1507e-02 /) - kbo(:, 3,30, 7) = (/ & - &9.8307e-02 ,1.4854e-01 ,1.4866e-01 ,1.2943e-01 ,5.4141e-02 /) - kbo(:, 4,30, 7) = (/ & - &1.3030e-01 ,1.8393e-01 ,1.7946e-01 ,1.5167e-01 ,5.6316e-02 /) - kbo(:, 5,30, 7) = (/ & - &1.7017e-01 ,2.2583e-01 ,2.1516e-01 ,1.7690e-01 ,5.8003e-02 /) - kbo(:, 1,31, 7) = (/ & - &5.5237e-02 ,9.3530e-02 ,9.7080e-02 ,8.7885e-02 ,4.1801e-02 /) - kbo(:, 2,31, 7) = (/ & - &7.6342e-02 ,1.1917e-01 ,1.1987e-01 ,1.0485e-01 ,4.4162e-02 /) - kbo(:, 3,31, 7) = (/ & - &1.0297e-01 ,1.4987e-01 ,1.4665e-01 ,1.2435e-01 ,4.6139e-02 /) - kbo(:, 4,31, 7) = (/ & - &1.3657e-01 ,1.8654e-01 ,1.7810e-01 ,1.4680e-01 ,4.7704e-02 /) - kbo(:, 5,31, 7) = (/ & - &1.7842e-01 ,2.3057e-01 ,2.1509e-01 ,1.7253e-01 ,4.8947e-02 /) - kbo(:, 1,32, 7) = (/ & - &5.9027e-02 ,9.4969e-02 ,9.5943e-02 ,8.4194e-02 ,3.5812e-02 /) - kbo(:, 2,32, 7) = (/ & - &8.1201e-02 ,1.2151e-01 ,1.1922e-01 ,1.0130e-01 ,3.7617e-02 /) - kbo(:, 3,32, 7) = (/ & - &1.0955e-01 ,1.5358e-01 ,1.4681e-01 ,1.2117e-01 ,3.9058e-02 /) - kbo(:, 4,32, 7) = (/ & - &1.4540e-01 ,1.9256e-01 ,1.7966e-01 ,1.4421e-01 ,4.0236e-02 /) - kbo(:, 5,32, 7) = (/ & - &1.8982e-01 ,2.3938e-01 ,2.1889e-01 ,1.7084e-01 ,4.1181e-02 /) - kbo(:, 1,33, 7) = (/ & - &6.4219e-02 ,9.8255e-02 ,9.6625e-02 ,8.2099e-02 ,3.0519e-02 /) - kbo(:, 2,33, 7) = (/ & - &8.8246e-02 ,1.2633e-01 ,1.2088e-01 ,9.9705e-02 ,3.1855e-02 /) - kbo(:, 3,33, 7) = (/ & - &1.1912e-01 ,1.6083e-01 ,1.5001e-01 ,1.2028e-01 ,3.2953e-02 /) - kbo(:, 4,33, 7) = (/ & - &1.5802e-01 ,2.0300e-01 ,1.8528e-01 ,1.4442e-01 ,3.3850e-02 /) - kbo(:, 5,33, 7) = (/ & - &2.0596e-01 ,2.5392e-01 ,2.2791e-01 ,1.7303e-01 ,3.4585e-02 /) - kbo(:, 1,34, 7) = (/ & - &6.7485e-02 ,9.9620e-02 ,9.5868e-02 ,7.9332e-02 ,2.5830e-02 /) - kbo(:, 2,34, 7) = (/ & - &9.2815e-02 ,1.2890e-01 ,1.2075e-01 ,9.7213e-02 ,2.6848e-02 /) - kbo(:, 3,34, 7) = (/ & - &1.2537e-01 ,1.6529e-01 ,1.5122e-01 ,1.1822e-01 ,2.7699e-02 /) - kbo(:, 4,34, 7) = (/ & - &1.6617e-01 ,2.0989e-01 ,1.8860e-01 ,1.4346e-01 ,2.8411e-02 /) - kbo(:, 5,34, 7) = (/ & - &2.1641e-01 ,2.6338e-01 ,2.3365e-01 ,1.7367e-01 ,2.9006e-02 /) - kbo(:, 1,35, 7) = (/ & - &6.9002e-02 ,9.9168e-02 ,9.3611e-02 ,7.5846e-02 ,2.1704e-02 /) - kbo(:, 2,35, 7) = (/ & - &9.5177e-02 ,1.2935e-01 ,1.1903e-01 ,9.3690e-02 ,2.2517e-02 /) - kbo(:, 3,35, 7) = (/ & - &1.2872e-01 ,1.6713e-01 ,1.5066e-01 ,1.1518e-01 ,2.3202e-02 /) - kbo(:, 4,35, 7) = (/ & - &1.7076e-01 ,2.1347e-01 ,1.8964e-01 ,1.4135e-01 ,2.3785e-02 /) - kbo(:, 5,35, 7) = (/ & - &2.2264e-01 ,2.6908e-01 ,2.3665e-01 ,1.7298e-01 ,2.4252e-02 /) - kbo(:, 1,36, 7) = (/ & - &6.7865e-02 ,9.5879e-02 ,8.9211e-02 ,7.0981e-02 ,1.8133e-02 /) - kbo(:, 2,36, 7) = (/ & - &9.4007e-02 ,1.2625e-01 ,1.1466e-01 ,8.8573e-02 ,1.8797e-02 /) - kbo(:, 3,36, 7) = (/ & - &1.2751e-01 ,1.6450e-01 ,1.4669e-01 ,1.1023e-01 ,1.9364e-02 /) - kbo(:, 4,36, 7) = (/ & - &1.6969e-01 ,2.1129e-01 ,1.8634e-01 ,1.3684e-01 ,1.9848e-02 /) - kbo(:, 5,36, 7) = (/ & - &2.2199e-01 ,2.6776e-01 ,2.3416e-01 ,1.6920e-01 ,2.0253e-02 /) - kbo(:, 1,37, 7) = (/ & - &6.1910e-02 ,8.7392e-02 ,8.0722e-02 ,6.3503e-02 ,1.5050e-02 /) - kbo(:, 2,37, 7) = (/ & - &8.6402e-02 ,1.1634e-01 ,1.0496e-01 ,8.0172e-02 ,1.5605e-02 /) - kbo(:, 3,37, 7) = (/ & - &1.1792e-01 ,1.5301e-01 ,1.3575e-01 ,1.0102e-01 ,1.6089e-02 /) - kbo(:, 4,37, 7) = (/ & - &1.5786e-01 ,1.9811e-01 ,1.7416e-01 ,1.2688e-01 ,1.6504e-02 /) - kbo(:, 5,37, 7) = (/ & - &2.0776e-01 ,2.5283e-01 ,2.2073e-01 ,1.5856e-01 ,1.6861e-02 /) - kbo(:, 1,38, 7) = (/ & - &5.7180e-02 ,8.0434e-02 ,7.3641e-02 ,5.7228e-02 ,1.2479e-02 /) - kbo(:, 2,38, 7) = (/ & - &8.0361e-02 ,1.0828e-01 ,9.6955e-02 ,7.3200e-02 ,1.2947e-02 /) - kbo(:, 3,38, 7) = (/ & - &1.1043e-01 ,1.4379e-01 ,1.2688e-01 ,9.3375e-02 ,1.3365e-02 /) - kbo(:, 4,38, 7) = (/ & - &1.4883e-01 ,1.8786e-01 ,1.6450e-01 ,1.1879e-01 ,1.3732e-02 /) - kbo(:, 5,38, 7) = (/ & - &1.9707e-01 ,2.4129e-01 ,2.1013e-01 ,1.4998e-01 ,1.4049e-02 /) - kbo(:, 1,39, 7) = (/ & - &5.4044e-02 ,7.5469e-02 ,6.8324e-02 ,5.2315e-02 ,1.0342e-02 /) - kbo(:, 2,39, 7) = (/ & - &7.6525e-02 ,1.0279e-01 ,9.1154e-02 ,6.7832e-02 ,1.0747e-02 /) - kbo(:, 3,39, 7) = (/ & - &1.0591e-01 ,1.3783e-01 ,1.2080e-01 ,8.7775e-02 ,1.1116e-02 /) - kbo(:, 4,39, 7) = (/ & - &1.4369e-01 ,1.8148e-01 ,1.5809e-01 ,1.1309e-01 ,1.1438e-02 /) - kbo(:, 5,39, 7) = (/ & - &1.9144e-01 ,2.3501e-01 ,2.0393e-01 ,1.4445e-01 ,1.1716e-02 /) - kbo(:, 1,40, 7) = (/ & - &4.6217e-02 ,6.5370e-02 ,5.9012e-02 ,4.4989e-02 ,8.5358e-03 /) - kbo(:, 2,40, 7) = (/ & - &6.6114e-02 ,9.0173e-02 ,7.9777e-02 ,5.9045e-02 ,8.8901e-03 /) - kbo(:, 3,40, 7) = (/ & - &9.2339e-02 ,1.2222e-01 ,1.0699e-01 ,7.7378e-02 ,9.2084e-03 /) - kbo(:, 4,40, 7) = (/ & - &1.2639e-01 ,1.6256e-01 ,1.4164e-01 ,1.0101e-01 ,9.4930e-03 /) - kbo(:, 5,40, 7) = (/ & - &1.6986e-01 ,2.1255e-01 ,1.8467e-01 ,1.3055e-01 ,9.7467e-03 /) - kbo(:, 1,41, 7) = (/ & - &3.9155e-02 ,5.6183e-02 ,5.0596e-02 ,3.8424e-02 ,7.0383e-03 /) - kbo(:, 2,41, 7) = (/ & - &5.6659e-02 ,7.8503e-02 ,6.9340e-02 ,5.1085e-02 ,7.3470e-03 /) - kbo(:, 3,41, 7) = (/ & - &7.9928e-02 ,1.0766e-01 ,9.4225e-02 ,6.7858e-02 ,7.6230e-03 /) - kbo(:, 4,41, 7) = (/ & - &1.1042e-01 ,1.4475e-01 ,1.2626e-01 ,8.9781e-02 ,7.8762e-03 /) - kbo(:, 5,41, 7) = (/ & - &1.4975e-01 ,1.9111e-01 ,1.6637e-01 ,1.1739e-01 ,8.1039e-03 /) - kbo(:, 1,42, 7) = (/ & - &3.3442e-02 ,4.8574e-02 ,4.3613e-02 ,3.2930e-02 ,5.8050e-03 /) - kbo(:, 2,42, 7) = (/ & - &4.8965e-02 ,6.8792e-02 ,6.0620e-02 ,4.4408e-02 ,6.0682e-03 /) - kbo(:, 3,42, 7) = (/ & - &6.9803e-02 ,9.5533e-02 ,8.3532e-02 ,5.9826e-02 ,6.3116e-03 /) - kbo(:, 4,42, 7) = (/ & - &9.7360e-02 ,1.2988e-01 ,1.1328e-01 ,8.0240e-02 ,6.5330e-03 /) - kbo(:, 5,42, 7) = (/ & - &1.3333e-01 ,1.7321e-01 ,1.5102e-01 ,1.0628e-01 ,6.7345e-03 /) - kbo(:, 1,43, 7) = (/ & - &2.8074e-02 ,4.1293e-02 ,3.7000e-02 ,2.7812e-02 ,4.7712e-03 /) - kbo(:, 2,43, 7) = (/ & - &4.1661e-02 ,5.9380e-02 ,5.2205e-02 ,3.8045e-02 ,4.9985e-03 /) - kbo(:, 3,43, 7) = (/ & - &6.0156e-02 ,8.3670e-02 ,7.3060e-02 ,5.2075e-02 ,5.2119e-03 /) - kbo(:, 4,43, 7) = (/ & - &8.4838e-02 ,1.1520e-01 ,1.0043e-01 ,7.0829e-02 ,5.4068e-03 /) - kbo(:, 5,43, 7) = (/ & - &1.1748e-01 ,1.5547e-01 ,1.3568e-01 ,9.5209e-02 ,5.5907e-03 /) - kbo(:, 1,44, 7) = (/ & - &2.3517e-02 ,3.4984e-02 ,3.1261e-02 ,2.3397e-02 ,3.9133e-03 /) - kbo(:, 2,44, 7) = (/ & - &3.5440e-02 ,5.1145e-02 ,4.4838e-02 ,3.2508e-02 ,4.1113e-03 /) - kbo(:, 3,44, 7) = (/ & - &5.1856e-02 ,7.3218e-02 ,6.3748e-02 ,4.5187e-02 ,4.2980e-03 /) - kbo(:, 4,44, 7) = (/ & - &7.4068e-02 ,1.0225e-01 ,8.9058e-02 ,6.2496e-02 ,4.4682e-03 /) - kbo(:, 5,44, 7) = (/ & - &1.0378e-01 ,1.3965e-01 ,1.2187e-01 ,8.5218e-02 ,4.6319e-03 /) - kbo(:, 1,45, 7) = (/ & - &1.9987e-02 ,2.9948e-02 ,2.6638e-02 ,1.9815e-02 ,3.2076e-03 /) - kbo(:, 2,45, 7) = (/ & - &3.0595e-02 ,4.4514e-02 ,3.8859e-02 ,2.7978e-02 ,3.3798e-03 /) - kbo(:, 3,45, 7) = (/ & - &4.5403e-02 ,6.4811e-02 ,5.6194e-02 ,3.9557e-02 ,3.5406e-03 /) - kbo(:, 4,45, 7) = (/ & - &6.5696e-02 ,9.1866e-02 ,7.9797e-02 ,5.5645e-02 ,3.6912e-03 /) - kbo(:, 5,45, 7) = (/ & - &9.3194e-02 ,1.2710e-01 ,1.1078e-01 ,7.7097e-02 ,3.8387e-03 /) - kbo(:, 1,46, 7) = (/ & - &1.6883e-02 ,2.5455e-02 ,2.2540e-02 ,1.6677e-02 ,2.6234e-03 /) - kbo(:, 2,46, 7) = (/ & - &2.6297e-02 ,3.8534e-02 ,3.3486e-02 ,2.3954e-02 ,2.7725e-03 /) - kbo(:, 3,46, 7) = (/ & - &3.9636e-02 ,5.7120e-02 ,4.9278e-02 ,3.4454e-02 ,2.9133e-03 /) - kbo(:, 4,46, 7) = (/ & - &5.8158e-02 ,8.2259e-02 ,7.1230e-02 ,4.9351e-02 ,3.0483e-03 /) - kbo(:, 5,46, 7) = (/ & - &8.3561e-02 ,1.1543e-01 ,1.0042e-01 ,6.9545e-02 ,3.1794e-03 /) - kbo(:, 1,47, 7) = (/ & - &1.3750e-02 ,2.0931e-02 ,1.8489e-02 ,1.3652e-02 ,2.1369e-03 /) - kbo(:, 2,47, 7) = (/ & - &2.1838e-02 ,3.2305e-02 ,2.7989e-02 ,1.9957e-02 ,2.2678e-03 /) - kbo(:, 3,47, 7) = (/ & - &3.3497e-02 ,4.8835e-02 ,4.1985e-02 ,2.9214e-02 ,2.3899e-03 /) - kbo(:, 4,47, 7) = (/ & - &4.9929e-02 ,7.1624e-02 ,6.1836e-02 ,4.2605e-02 ,2.5094e-03 /) - kbo(:, 5,47, 7) = (/ & - &7.2757e-02 ,1.0217e-01 ,8.8738e-02 ,6.1180e-02 ,2.6247e-03 /) - kbo(:, 1,48, 7) = (/ & - &1.1414e-02 ,1.7437e-02 ,1.5334e-02 ,1.1272e-02 ,1.7386e-03 /) - kbo(:, 2,48, 7) = (/ & - &1.8495e-02 ,2.7458e-02 ,2.3694e-02 ,1.6798e-02 ,1.8526e-03 /) - kbo(:, 3,48, 7) = (/ & - &2.8896e-02 ,4.2355e-02 ,3.6253e-02 ,2.5061e-02 ,1.9592e-03 /) - kbo(:, 4,48, 7) = (/ & - &4.3780e-02 ,6.3320e-02 ,5.4439e-02 ,3.7255e-02 ,2.0628e-03 /) - kbo(:, 5,48, 7) = (/ & - &6.4736e-02 ,9.1889e-02 ,7.9609e-02 ,5.4563e-02 ,2.1644e-03 /) - kbo(:, 1,49, 7) = (/ & - &9.7792e-03 ,1.4862e-02 ,1.2975e-02 ,9.4608e-03 ,1.4121e-03 /) - kbo(:, 2,49, 7) = (/ & - &1.6175e-02 ,2.3898e-02 ,2.0488e-02 ,1.4406e-02 ,1.5117e-03 /) - kbo(:, 3,49, 7) = (/ & - &2.5763e-02 ,3.7620e-02 ,3.1995e-02 ,2.1936e-02 ,1.6039e-03 /) - kbo(:, 4,49, 7) = (/ & - &3.9714e-02 ,5.7411e-02 ,4.9041e-02 ,3.3299e-02 ,1.6946e-03 /) - kbo(:, 5,49, 7) = (/ & - &5.9638e-02 ,8.4793e-02 ,7.3080e-02 ,4.9749e-02 ,1.7852e-03 /) - kbo(:, 1,50, 7) = (/ & - &8.0131e-03 ,1.2216e-02 ,1.0631e-02 ,7.7241e-03 ,1.1467e-03 /) - kbo(:, 2,50, 7) = (/ & - &1.3522e-02 ,2.0069e-02 ,1.7141e-02 ,1.2008e-02 ,1.2327e-03 /) - kbo(:, 3,50, 7) = (/ & - &2.1961e-02 ,3.2239e-02 ,2.7314e-02 ,1.8640e-02 ,1.3124e-03 /) - kbo(:, 4,50, 7) = (/ & - &3.4440e-02 ,5.0209e-02 ,4.2737e-02 ,2.8885e-02 ,1.3920e-03 /) - kbo(:, 5,50, 7) = (/ & - &5.2495e-02 ,7.5521e-02 ,6.4947e-02 ,4.4030e-02 ,1.4733e-03 /) - kbo(:, 1,51, 7) = (/ & - &6.4036e-03 ,9.8290e-03 ,8.5406e-03 ,6.2032e-03 ,9.3043e-04 /) - kbo(:, 2,51, 7) = (/ & - &1.1026e-02 ,1.6501e-02 ,1.4064e-02 ,9.8397e-03 ,1.0045e-03 /) - kbo(:, 3,51, 7) = (/ & - &1.8273e-02 ,2.7056e-02 ,2.2864e-02 ,1.5565e-02 ,1.0742e-03 /) - kbo(:, 4,51, 7) = (/ & - &2.9163e-02 ,4.3028e-02 ,3.6523e-02 ,2.4601e-02 ,1.1437e-03 /) - kbo(:, 5,51, 7) = (/ & - &4.5145e-02 ,6.5958e-02 ,5.6628e-02 ,3.8264e-02 ,1.2140e-03 /) - kbo(:, 1,52, 7) = (/ & - &5.2190e-03 ,8.0088e-03 ,6.9367e-03 ,5.0245e-03 ,7.5434e-04 /) - kbo(:, 2,52, 7) = (/ & - &9.1694e-03 ,1.3764e-02 ,1.1684e-02 ,8.1486e-03 ,8.1834e-04 /) - kbo(:, 3,52, 7) = (/ & - &1.5524e-02 ,2.3049e-02 ,1.9394e-02 ,1.3151e-02 ,8.7913e-04 /) - kbo(:, 4,52, 7) = (/ & - &2.5232e-02 ,3.7442e-02 ,3.1647e-02 ,2.1215e-02 ,9.3902e-04 /) - kbo(:, 5,52, 7) = (/ & - &3.9698e-02 ,5.8529e-02 ,5.0101e-02 ,3.3714e-02 ,1.0010e-03 /) - kbo(:, 1,53, 7) = (/ & - &4.3882e-03 ,6.6717e-03 ,5.7454e-03 ,4.1343e-03 ,6.1055e-04 /) - kbo(:, 2,53, 7) = (/ & - &7.8762e-03 ,1.1762e-02 ,9.9163e-03 ,6.8660e-03 ,6.6611e-04 /) - kbo(:, 3,53, 7) = (/ & - &1.3621e-02 ,2.0115e-02 ,1.6825e-02 ,1.1330e-02 ,7.1874e-04 /) - kbo(:, 4,53, 7) = (/ & - &2.2577e-02 ,3.3386e-02 ,2.8049e-02 ,1.8668e-02 ,7.7087e-04 /) - kbo(:, 5,53, 7) = (/ & - &3.6135e-02 ,5.3261e-02 ,4.5341e-02 ,3.0337e-02 ,8.2493e-04 /) - kbo(:, 1,54, 7) = (/ & - &3.2171e-03 ,4.9791e-03 ,4.3152e-03 ,3.1327e-03 ,4.9375e-04 /) - kbo(:, 2,54, 7) = (/ & - &5.9006e-03 ,8.9891e-03 ,7.6027e-03 ,5.2931e-03 ,5.4126e-04 /) - kbo(:, 3,54, 7) = (/ & - &1.0411e-02 ,1.5699e-02 ,1.3153e-02 ,8.8893e-03 ,5.8635e-04 /) - kbo(:, 4,54, 7) = (/ & - &1.7599e-02 ,2.6636e-02 ,2.2397e-02 ,1.4923e-02 ,6.3108e-04 /) - kbo(:, 5,54, 7) = (/ & - &2.8648e-02 ,4.3428e-02 ,3.7016e-02 ,2.4766e-02 ,6.7747e-04 /) - kbo(:, 1,55, 7) = (/ & - &2.1501e-03 ,3.4516e-03 ,3.0360e-03 ,2.2475e-03 ,3.9872e-04 /) - kbo(:, 2,55, 7) = (/ & - &4.0344e-03 ,6.3713e-03 ,5.4431e-03 ,3.8454e-03 ,4.3910e-04 /) - kbo(:, 3,55, 7) = (/ & - &7.2610e-03 ,1.1366e-02 ,9.5883e-03 ,6.5518e-03 ,4.7768e-04 /) - kbo(:, 4,55, 7) = (/ & - &1.2517e-02 ,1.9714e-02 ,1.6657e-02 ,1.1171e-02 ,5.1535e-04 /) - kbo(:, 5,55, 7) = (/ & - &2.0727e-02 ,3.2905e-02 ,2.8181e-02 ,1.8908e-02 ,5.5486e-04 /) - kbo(:, 1,56, 7) = (/ & - &1.4245e-03 ,2.3749e-03 ,2.1236e-03 ,1.6049e-03 ,3.2130e-04 /) - kbo(:, 2,56, 7) = (/ & - &2.7381e-03 ,4.4799e-03 ,3.8718e-03 ,2.7798e-03 ,3.5587e-04 /) - kbo(:, 3,56, 7) = (/ & - &5.0259e-03 ,8.1674e-03 ,6.9450e-03 ,4.8004e-03 ,3.8862e-04 /) - kbo(:, 4,56, 7) = (/ & - &8.8432e-03 ,1.4489e-02 ,1.2307e-02 ,8.3071e-03 ,4.2064e-04 /) - kbo(:, 5,56, 7) = (/ & - &1.4910e-02 ,2.4779e-02 ,2.1310e-02 ,1.4337e-02 ,4.5360e-04 /) - kbo(:, 1,57, 7) = (/ & - &9.3471e-04 ,1.6209e-03 ,1.4751e-03 ,1.1411e-03 ,2.5838e-04 /) - kbo(:, 2,57, 7) = (/ & - &1.8436e-03 ,3.1233e-03 ,2.7344e-03 ,1.9986e-03 ,2.8780e-04 /) - kbo(:, 3,57, 7) = (/ & - &3.4502e-03 ,5.8213e-03 ,4.9934e-03 ,3.4957e-03 ,3.1565e-04 /) - kbo(:, 4,57, 7) = (/ & - &6.2020e-03 ,1.0562e-02 ,9.0212e-03 ,6.1326e-03 ,3.4283e-04 /) - kbo(:, 5,57, 7) = (/ & - &1.0656e-02 ,1.8525e-02 ,1.5995e-02 ,1.0788e-02 ,3.7043e-04 /) - kbo(:, 1,58, 7) = (/ & - &1.6224e-04 ,3.6080e-04 ,4.3166e-04 ,4.8123e-04 ,2.0767e-04 /) - kbo(:, 2,58, 7) = (/ & - &3.2835e-04 ,7.0851e-04 ,8.1160e-04 ,8.4893e-04 ,2.3260e-04 /) - kbo(:, 3,58, 7) = (/ & - &6.2650e-04 ,1.3493e-03 ,1.5057e-03 ,1.4999e-03 ,2.5617e-04 /) - kbo(:, 4,58, 7) = (/ & - &1.1500e-03 ,2.5038e-03 ,2.7715e-03 ,2.6635e-03 ,2.7921e-04 /) - kbo(:, 5,58, 7) = (/ & - &2.0128e-03 ,4.5008e-03 ,5.0240e-03 ,4.7643e-03 ,3.0249e-04 /) - kbo(:, 1,59, 7) = (/ & - &1.4374e-04 ,3.4167e-04 ,3.9743e-04 ,4.1474e-04 ,1.7016e-04 /) - kbo(:, 2,59, 7) = (/ & - &2.9460e-04 ,6.7320e-04 ,7.4449e-04 ,7.2184e-04 ,1.9072e-04 /) - kbo(:, 3,59, 7) = (/ & - &5.6936e-04 ,1.2962e-03 ,1.3859e-03 ,1.2659e-03 ,2.1044e-04 /) - kbo(:, 4,59, 7) = (/ & - &1.0579e-03 ,2.4467e-03 ,2.5761e-03 ,2.2456e-03 ,2.2959e-04 /) - kbo(:, 5,59, 7) = (/ & - &1.8733e-03 ,4.4959e-03 ,4.7523e-03 ,4.0463e-03 ,2.4889e-04 /) - kbo(:, 1,13, 8) = (/ & - &1.0984e+01 ,8.3644e+00 ,5.8323e+00 ,3.5207e+00 ,9.5573e-01 /) - kbo(:, 2,13, 8) = (/ & - &1.6457e+01 ,1.2460e+01 ,8.5024e+00 ,4.7543e+00 ,9.4898e-01 /) - kbo(:, 3,13, 8) = (/ & - &2.3514e+01 ,1.7749e+01 ,1.1998e+01 ,6.4125e+00 ,9.3955e-01 /) - kbo(:, 4,13, 8) = (/ & - &3.2333e+01 ,2.4359e+01 ,1.6389e+01 ,8.5253e+00 ,9.2689e-01 /) - kbo(:, 5,13, 8) = (/ & - &4.3124e+01 ,3.2448e+01 ,2.1775e+01 ,1.1152e+01 ,9.1779e-01 /) - kbo(:, 1,14, 8) = (/ & - &6.1000e+00 ,4.7207e+00 ,3.5104e+00 ,2.4718e+00 ,9.1734e-01 /) - kbo(:, 2,14, 8) = (/ & - &9.1253e+00 ,6.9681e+00 ,4.9378e+00 ,3.1340e+00 ,9.1181e-01 /) - kbo(:, 3,14, 8) = (/ & - &1.3035e+01 ,9.8900e+00 ,6.8208e+00 ,3.9957e+00 ,9.0546e-01 /) - kbo(:, 4,14, 8) = (/ & - &1.7969e+01 ,1.3584e+01 ,9.2328e+00 ,5.1032e+00 ,8.9760e-01 /) - kbo(:, 5,14, 8) = (/ & - &2.4021e+01 ,1.8119e+01 ,1.2229e+01 ,6.5133e+00 ,8.8920e-01 /) - kbo(:, 1,15, 8) = (/ & - &3.4743e+00 ,2.8067e+00 ,2.3437e+00 ,1.8996e+00 ,8.7156e-01 /) - kbo(:, 2,15, 8) = (/ & - &5.1884e+00 ,4.0500e+00 ,3.1125e+00 ,2.2977e+00 ,8.6786e-01 /) - kbo(:, 3,15, 8) = (/ & - &7.4263e+00 ,5.6964e+00 ,4.1330e+00 ,2.7795e+00 ,8.6394e-01 /) - kbo(:, 4,15, 8) = (/ & - &1.0261e+01 ,7.8059e+00 ,5.4699e+00 ,3.3858e+00 ,8.5908e-01 /) - kbo(:, 5,15, 8) = (/ & - &1.3736e+01 ,1.0405e+01 ,7.1459e+00 ,4.1475e+00 ,8.5337e-01 /) - kbo(:, 1,16, 8) = (/ & - &2.3668e+00 ,2.0348e+00 ,1.8716e+00 ,1.6135e+00 ,8.1894e-01 /) - kbo(:, 2,16, 8) = (/ & - &3.5375e+00 ,2.8566e+00 ,2.3918e+00 ,1.9179e+00 ,8.1793e-01 /) - kbo(:, 3,16, 8) = (/ & - &5.0738e+00 ,3.9641e+00 ,3.0738e+00 ,2.2799e+00 ,8.1574e-01 /) - kbo(:, 4,16, 8) = (/ & - &7.0147e+00 ,5.3888e+00 ,3.9564e+00 ,2.7115e+00 ,8.1291e-01 /) - kbo(:, 5,16, 8) = (/ & - &9.3829e+00 ,7.1458e+00 ,5.0571e+00 ,3.2258e+00 ,8.0943e-01 /) - kbo(:, 1,17, 8) = (/ & - &1.6738e+00 ,1.5709e+00 ,1.5512e+00 ,1.3915e+00 ,7.6163e-01 /) - kbo(:, 2,17, 8) = (/ & - &2.5071e+00 ,2.1423e+00 ,1.9466e+00 ,1.6331e+00 ,7.6194e-01 /) - kbo(:, 3,17, 8) = (/ & - &3.5973e+00 ,2.9044e+00 ,2.4376e+00 ,1.9200e+00 ,7.6176e-01 /) - kbo(:, 4,17, 8) = (/ & - &4.9653e+00 ,3.8871e+00 ,3.0499e+00 ,2.2591e+00 ,7.6112e-01 /) - kbo(:, 5,17, 8) = (/ & - &6.6200e+00 ,5.0972e+00 ,3.7961e+00 ,2.6511e+00 ,7.6001e-01 /) - kbo(:, 1,18, 8) = (/ & - &1.2159e+00 ,1.2682e+00 ,1.3055e+00 ,1.2114e+00 ,6.9972e-01 /) - kbo(:, 2,18, 8) = (/ & - &1.8215e+00 ,1.6846e+00 ,1.6207e+00 ,1.4074e+00 ,7.0172e-01 /) - kbo(:, 3,18, 8) = (/ & - &2.6063e+00 ,2.2250e+00 ,2.0059e+00 ,1.6407e+00 ,7.0349e-01 /) - kbo(:, 4,18, 8) = (/ & - &3.5864e+00 ,2.9083e+00 ,2.4603e+00 ,1.9137e+00 ,7.0440e-01 /) - kbo(:, 5,18, 8) = (/ & - &4.7701e+00 ,3.7503e+00 ,2.9936e+00 ,2.2226e+00 ,7.0559e-01 /) - kbo(:, 1,19, 8) = (/ & - &8.6896e-01 ,1.0218e+00 ,1.0917e+00 ,1.0431e+00 ,6.3571e-01 /) - kbo(:, 2,19, 8) = (/ & - &1.2971e+00 ,1.3348e+00 ,1.3390e+00 ,1.2022e+00 ,6.3915e-01 /) - kbo(:, 3,19, 8) = (/ & - &1.8500e+00 ,1.7190e+00 ,1.6367e+00 ,1.3904e+00 ,6.4265e-01 /) - kbo(:, 4,19, 8) = (/ & - &2.5377e+00 ,2.1918e+00 ,1.9845e+00 ,1.6067e+00 ,6.4523e-01 /) - kbo(:, 5,19, 8) = (/ & - &3.3694e+00 ,2.7695e+00 ,2.3848e+00 ,1.8478e+00 ,6.4962e-01 /) - kbo(:, 1,20, 8) = (/ & - &6.7593e-01 ,8.7052e-01 ,9.5066e-01 ,9.1950e-01 ,5.7154e-01 /) - kbo(:, 2,20, 8) = (/ & - &1.0037e+00 ,1.1265e+00 ,1.1588e+00 ,1.0572e+00 ,5.7670e-01 /) - kbo(:, 3,20, 8) = (/ & - &1.4256e+00 ,1.4357e+00 ,1.4052e+00 ,1.2186e+00 ,5.8150e-01 /) - kbo(:, 4,20, 8) = (/ & - &1.9488e+00 ,1.8041e+00 ,1.6911e+00 ,1.4006e+00 ,5.8703e-01 /) - kbo(:, 5,20, 8) = (/ & - &2.5835e+00 ,2.2440e+00 ,2.0193e+00 ,1.6034e+00 ,5.9399e-01 /) - kbo(:, 1,21, 8) = (/ & - &5.4036e-01 ,7.5420e-01 ,8.3572e-01 ,8.1199e-01 ,5.0987e-01 /) - kbo(:, 2,21, 8) = (/ & - &7.9845e-01 ,9.6809e-01 ,1.0141e+00 ,9.3456e-01 ,5.1627e-01 /) - kbo(:, 3,21, 8) = (/ & - &1.1289e+00 ,1.2252e+00 ,1.2225e+00 ,1.0751e+00 ,5.2292e-01 /) - kbo(:, 4,21, 8) = (/ & - &1.5394e+00 ,1.5293e+00 ,1.4635e+00 ,1.2321e+00 ,5.3121e-01 /) - kbo(:, 5,21, 8) = (/ & - &2.0388e+00 ,1.8858e+00 ,1.7395e+00 ,1.4066e+00 ,5.4074e-01 /) - kbo(:, 1,22, 8) = (/ & - &4.5347e-01 ,6.7088e-01 ,7.4705e-01 ,7.2463e-01 ,4.5233e-01 /) - kbo(:, 2,22, 8) = (/ & - &6.6420e-01 ,8.5466e-01 ,9.0352e-01 ,8.3532e-01 ,4.6020e-01 /) - kbo(:, 3,22, 8) = (/ & - &9.3312e-01 ,1.0751e+00 ,1.0854e+00 ,9.5995e-01 ,4.6942e-01 /) - kbo(:, 4,22, 8) = (/ & - &1.2674e+00 ,1.3357e+00 ,1.2944e+00 ,1.0988e+00 ,4.8015e-01 /) - kbo(:, 5,22, 8) = (/ & - &1.6769e+00 ,1.6408e+00 ,1.5338e+00 ,1.2527e+00 ,4.9182e-01 /) - kbo(:, 1,23, 8) = (/ & - &3.8192e-01 ,5.9551e-01 ,6.6526e-01 ,6.4489e-01 ,3.9997e-01 /) - kbo(:, 2,23, 8) = (/ & - &5.5484e-01 ,7.5433e-01 ,8.0227e-01 ,7.4370e-01 ,4.0956e-01 /) - kbo(:, 3,23, 8) = (/ & - &7.7517e-01 ,9.4347e-01 ,9.6125e-01 ,8.5431e-01 ,4.2064e-01 /) - kbo(:, 4,23, 8) = (/ & - &1.0504e+00 ,1.1678e+00 ,1.1437e+00 ,9.7728e-01 ,4.3319e-01 /) - kbo(:, 5,23, 8) = (/ & - &1.3891e+00 ,1.4314e+00 ,1.3533e+00 ,1.1142e+00 ,4.4599e-01 /) - kbo(:, 1,24, 8) = (/ & - &3.1980e-01 ,5.2485e-01 ,5.8816e-01 ,5.7121e-01 ,3.5303e-01 /) - kbo(:, 2,24, 8) = (/ & - &4.6136e-01 ,6.6155e-01 ,7.0757e-01 ,6.5873e-01 ,3.6427e-01 /) - kbo(:, 3,24, 8) = (/ & - &6.4223e-01 ,8.2371e-01 ,8.4561e-01 ,7.5649e-01 ,3.7674e-01 /) - kbo(:, 4,24, 8) = (/ & - &8.6939e-01 ,1.0172e+00 ,1.0047e+00 ,8.6558e-01 ,3.8981e-01 /) - kbo(:, 5,24, 8) = (/ & - &1.1484e+00 ,1.2449e+00 ,1.1880e+00 ,9.8717e-01 ,4.0255e-01 /) - kbo(:, 1,25, 8) = (/ & - &2.7156e-01 ,4.6457e-01 ,5.2127e-01 ,5.0714e-01 ,3.1176e-01 /) - kbo(:, 2,25, 8) = (/ & - &3.8962e-01 ,5.8326e-01 ,6.2605e-01 ,5.8521e-01 ,3.2376e-01 /) - kbo(:, 3,25, 8) = (/ & - &5.4140e-01 ,7.2573e-01 ,7.4721e-01 ,6.7267e-01 ,3.3654e-01 /) - kbo(:, 4,25, 8) = (/ & - &7.3158e-01 ,8.9514e-01 ,8.8800e-01 ,7.7033e-01 ,3.4916e-01 /) - kbo(:, 5,25, 8) = (/ & - &9.6557e-01 ,1.0940e+00 ,1.0510e+00 ,8.7991e-01 ,3.6188e-01 /) - kbo(:, 1,26, 8) = (/ & - &2.3603e-01 ,4.1514e-01 ,4.6570e-01 ,4.5317e-01 ,2.7528e-01 /) - kbo(:, 2,26, 8) = (/ & - &3.3729e-01 ,5.2062e-01 ,5.5904e-01 ,5.2356e-01 ,2.8722e-01 /) - kbo(:, 3,26, 8) = (/ & - &4.6762e-01 ,6.4812e-01 ,6.6791e-01 ,6.0289e-01 ,2.9963e-01 /) - kbo(:, 4,26, 8) = (/ & - &6.3043e-01 ,7.9949e-01 ,7.9540e-01 ,6.9207e-01 ,3.1197e-01 /) - kbo(:, 5,26, 8) = (/ & - &8.2894e-01 ,9.7604e-01 ,9.4222e-01 ,7.9275e-01 ,3.2460e-01 /) - kbo(:, 1,27, 8) = (/ & - &2.1329e-01 ,3.7886e-01 ,4.2295e-01 ,4.0982e-01 ,2.4262e-01 /) - kbo(:, 2,27, 8) = (/ & - &3.0405e-01 ,4.7609e-01 ,5.0881e-01 ,4.7490e-01 ,2.5434e-01 /) - kbo(:, 3,27, 8) = (/ & - &4.2047e-01 ,5.9404e-01 ,6.1027e-01 ,5.4870e-01 ,2.6611e-01 /) - kbo(:, 4,27, 8) = (/ & - &5.6493e-01 ,7.3338e-01 ,7.2904e-01 ,6.3251e-01 ,2.7831e-01 /) - kbo(:, 5,27, 8) = (/ & - &7.3961e-01 ,8.9452e-01 ,8.6490e-01 ,7.2735e-01 ,2.9101e-01 /) - kbo(:, 1,28, 8) = (/ & - &1.9857e-01 ,3.5152e-01 ,3.8897e-01 ,3.7421e-01 ,2.1366e-01 /) - kbo(:, 2,28, 8) = (/ & - &2.8199e-01 ,4.4350e-01 ,4.7029e-01 ,4.3552e-01 ,2.2475e-01 /) - kbo(:, 3,28, 8) = (/ & - &3.8828e-01 ,5.5465e-01 ,5.6697e-01 ,5.0558e-01 ,2.3636e-01 /) - kbo(:, 4,28, 8) = (/ & - &5.1944e-01 ,6.8554e-01 ,6.7950e-01 ,5.8599e-01 ,2.4843e-01 /) - kbo(:, 5,28, 8) = (/ & - &6.7804e-01 ,8.3583e-01 ,8.0789e-01 ,6.7686e-01 ,2.6132e-01 /) - kbo(:, 1,29, 8) = (/ & - &1.9699e-01 ,3.4001e-01 ,3.6948e-01 ,3.4985e-01 ,1.8812e-01 /) - kbo(:, 2,29, 8) = (/ & - &2.7846e-01 ,4.3155e-01 ,4.5041e-01 ,4.0987e-01 ,1.9891e-01 /) - kbo(:, 3,29, 8) = (/ & - &3.8140e-01 ,5.4168e-01 ,5.4658e-01 ,4.7968e-01 ,2.1027e-01 /) - kbo(:, 4,29, 8) = (/ & - &5.0817e-01 ,6.7028e-01 ,6.5795e-01 ,5.5982e-01 ,2.2267e-01 /) - kbo(:, 5,29, 8) = (/ & - &6.6092e-01 ,8.1811e-01 ,7.8466e-01 ,6.5003e-01 ,2.3569e-01 /) - kbo(:, 1,30, 8) = (/ & - &2.0038e-01 ,3.3558e-01 ,3.5744e-01 ,3.3111e-01 ,1.6586e-01 /) - kbo(:, 2,30, 8) = (/ & - &2.8170e-01 ,4.2849e-01 ,4.3945e-01 ,3.9159e-01 ,1.7645e-01 /) - kbo(:, 3,30, 8) = (/ & - &3.8386e-01 ,5.3939e-01 ,5.3663e-01 ,4.6240e-01 ,1.8797e-01 /) - kbo(:, 4,30, 8) = (/ & - &5.0944e-01 ,6.6904e-01 ,6.4909e-01 ,5.4342e-01 ,2.0032e-01 /) - kbo(:, 5,30, 8) = (/ & - &6.6110e-01 ,8.1719e-01 ,7.7645e-01 ,6.3464e-01 ,2.1343e-01 /) - kbo(:, 1,31, 8) = (/ & - &2.1457e-01 ,3.4491e-01 ,3.5799e-01 ,3.2199e-01 ,1.4677e-01 /) - kbo(:, 2,31, 8) = (/ & - &3.0025e-01 ,4.4295e-01 ,4.4440e-01 ,3.8528e-01 ,1.5733e-01 /) - kbo(:, 3,31, 8) = (/ & - &4.0706e-01 ,5.5909e-01 ,5.4635e-01 ,4.5932e-01 ,1.6888e-01 /) - kbo(:, 4,31, 8) = (/ & - &5.3865e-01 ,6.9458e-01 ,6.6400e-01 ,5.4394e-01 ,1.8129e-01 /) - kbo(:, 5,31, 8) = (/ & - &6.9836e-01 ,8.4979e-01 ,7.9754e-01 ,6.3956e-01 ,1.9424e-01 /) - kbo(:, 1,32, 8) = (/ & - &2.3301e-01 ,3.6002e-01 ,3.6447e-01 ,3.1806e-01 ,1.3061e-01 /) - kbo(:, 2,32, 8) = (/ & - &3.2391e-01 ,4.6378e-01 ,4.5628e-01 ,3.8494e-01 ,1.4116e-01 /) - kbo(:, 3,32, 8) = (/ & - &4.3762e-01 ,5.8716e-01 ,5.6420e-01 ,4.6300e-01 ,1.5266e-01 /) - kbo(:, 4,32, 8) = (/ & - &5.7844e-01 ,7.3058e-01 ,6.8894e-01 ,5.5249e-01 ,1.6489e-01 /) - kbo(:, 5,32, 8) = (/ & - &7.5012e-01 ,8.9521e-01 ,8.3056e-01 ,6.5369e-01 ,1.7758e-01 /) - kbo(:, 1,33, 8) = (/ & - &2.5790e-01 ,3.8312e-01 ,3.7883e-01 ,3.2071e-01 ,1.1691e-01 /) - kbo(:, 2,33, 8) = (/ & - &3.5669e-01 ,4.9524e-01 ,4.7746e-01 ,3.9236e-01 ,1.2744e-01 /) - kbo(:, 3,33, 8) = (/ & - &4.8068e-01 ,6.2777e-01 ,5.9359e-01 ,4.7601e-01 ,1.3874e-01 /) - kbo(:, 4,33, 8) = (/ & - &6.3465e-01 ,7.8244e-01 ,7.2784e-01 ,5.7215e-01 ,1.5065e-01 /) - kbo(:, 5,33, 8) = (/ & - &8.2463e-01 ,9.6158e-01 ,8.8094e-01 ,6.8112e-01 ,1.6290e-01 /) - kbo(:, 1,34, 8) = (/ & - &2.7501e-01 ,3.9928e-01 ,3.8789e-01 ,3.2093e-01 ,1.0495e-01 /) - kbo(:, 2,34, 8) = (/ & - &3.7955e-01 ,5.1722e-01 ,4.9202e-01 ,3.9633e-01 ,1.1524e-01 /) - kbo(:, 3,34, 8) = (/ & - &5.1074e-01 ,6.5671e-01 ,6.1416e-01 ,4.8473e-01 ,1.2623e-01 /) - kbo(:, 4,34, 8) = (/ & - &6.7545e-01 ,8.2065e-01 ,7.5592e-01 ,5.8631e-01 ,1.3772e-01 /) - kbo(:, 5,34, 8) = (/ & - &8.8010e-01 ,1.0115e+00 ,9.1893e-01 ,7.0176e-01 ,1.4967e-01 /) - kbo(:, 1,35, 8) = (/ & - &2.8491e-01 ,4.0792e-01 ,3.9124e-01 ,3.1768e-01 ,9.3815e-02 /) - kbo(:, 2,35, 8) = (/ & - &3.9304e-01 ,5.3008e-01 ,4.9917e-01 ,3.9612e-01 ,1.0372e-01 /) - kbo(:, 3,35, 8) = (/ & - &5.3059e-01 ,6.7569e-01 ,6.2665e-01 ,4.8824e-01 ,1.1431e-01 /) - kbo(:, 4,35, 8) = (/ & - &7.0463e-01 ,8.4744e-01 ,7.7517e-01 ,5.9483e-01 ,1.2547e-01 /) - kbo(:, 5,35, 8) = (/ & - &9.2289e-01 ,1.0490e+00 ,9.4773e-01 ,7.1638e-01 ,1.3729e-01 /) - kbo(:, 1,36, 8) = (/ & - &2.8335e-01 ,4.0444e-01 ,3.8444e-01 ,3.0785e-01 ,8.3181e-02 /) - kbo(:, 2,36, 8) = (/ & - &3.9231e-01 ,5.2837e-01 ,4.9425e-01 ,3.8787e-01 ,9.2674e-02 /) - kbo(:, 3,36, 8) = (/ & - &5.3277e-01 ,6.7716e-01 ,6.2485e-01 ,4.8257e-01 ,1.0284e-01 /) - kbo(:, 4,36, 8) = (/ & - &7.1164e-01 ,8.5400e-01 ,7.7825e-01 ,5.9239e-01 ,1.1370e-01 /) - kbo(:, 5,36, 8) = (/ & - &9.3841e-01 ,1.0634e+00 ,9.5733e-01 ,7.1881e-01 ,1.2521e-01 /) - kbo(:, 1,37, 8) = (/ & - &2.6099e-01 ,3.7794e-01 ,3.5839e-01 ,2.8510e-01 ,7.2608e-02 /) - kbo(:, 2,37, 8) = (/ & - &3.6453e-01 ,4.9803e-01 ,4.6544e-01 ,3.6354e-01 ,8.1599e-02 /) - kbo(:, 3,37, 8) = (/ & - &4.9925e-01 ,6.4313e-01 ,5.9376e-01 ,4.5692e-01 ,9.1324e-02 /) - kbo(:, 4,37, 8) = (/ & - &6.7318e-01 ,8.1735e-01 ,7.4579e-01 ,5.6616e-01 ,1.0177e-01 /) - kbo(:, 5,37, 8) = (/ & - &8.9497e-01 ,1.0258e+00 ,9.2402e-01 ,6.9303e-01 ,1.1300e-01 /) - kbo(:, 1,38, 8) = (/ & - &2.4331e-01 ,3.5651e-01 ,3.3705e-01 ,2.6611e-01 ,6.3364e-02 /) - kbo(:, 2,38, 8) = (/ & - &3.4315e-01 ,4.7401e-01 ,4.4240e-01 ,3.4349e-01 ,7.1841e-02 /) - kbo(:, 3,38, 8) = (/ & - &4.7415e-01 ,6.1710e-01 ,5.6959e-01 ,4.3645e-01 ,8.1122e-02 /) - kbo(:, 4,38, 8) = (/ & - &6.4535e-01 ,7.9084e-01 ,7.2136e-01 ,5.4612e-01 ,9.1255e-02 /) - kbo(:, 5,38, 8) = (/ & - &8.6575e-01 ,1.0005e+00 ,9.0147e-01 ,6.7461e-01 ,1.0216e-01 /) - kbo(:, 1,39, 8) = (/ & - &2.3205e-01 ,3.4217e-01 ,3.2219e-01 ,2.5204e-01 ,5.5366e-02 /) - kbo(:, 2,39, 8) = (/ & - &3.3051e-01 ,4.5923e-01 ,4.2752e-01 ,3.2956e-01 ,6.3325e-02 /) - kbo(:, 3,39, 8) = (/ & - &4.6126e-01 ,6.0310e-01 ,5.5564e-01 ,4.2338e-01 ,7.2166e-02 /) - kbo(:, 4,39, 8) = (/ & - &6.3405e-01 ,7.7976e-01 ,7.0985e-01 ,5.3501e-01 ,8.2008e-02 /) - kbo(:, 5,39, 8) = (/ & - &8.5903e-01 ,9.9488e-01 ,8.9458e-01 ,6.6726e-01 ,9.2704e-02 /) - kbo(:, 1,40, 8) = (/ & - &2.0024e-01 ,3.0416e-01 ,2.8720e-01 ,2.2448e-01 ,4.7646e-02 /) - kbo(:, 2,40, 8) = (/ & - &2.8846e-01 ,4.1256e-01 ,3.8572e-01 ,2.9759e-01 ,5.5021e-02 /) - kbo(:, 3,40, 8) = (/ & - &4.0740e-01 ,5.4726e-01 ,5.0694e-01 ,3.8698e-01 ,6.3373e-02 /) - kbo(:, 4,40, 8) = (/ & - &5.6679e-01 ,7.1454e-01 ,6.5407e-01 ,4.9457e-01 ,7.2804e-02 /) - kbo(:, 5,40, 8) = (/ & - &7.7703e-01 ,9.2066e-01 ,8.3239e-01 ,6.2266e-01 ,8.3210e-02 /) - kbo(:, 1,41, 8) = (/ & - &1.7113e-01 ,2.6826e-01 ,2.5417e-01 ,1.9867e-01 ,4.0876e-02 /) - kbo(:, 2,41, 8) = (/ & - &2.4978e-01 ,3.6831e-01 ,3.4599e-01 ,2.6723e-01 ,4.7680e-02 /) - kbo(:, 3,41, 8) = (/ & - &3.5705e-01 ,4.9395e-01 ,4.5991e-01 ,3.5185e-01 ,5.5528e-02 /) - kbo(:, 4,41, 8) = (/ & - &5.0326e-01 ,6.5160e-01 ,5.9993e-01 ,4.5499e-01 ,6.4535e-02 /) - kbo(:, 5,41, 8) = (/ & - &6.9778e-01 ,8.4752e-01 ,7.7088e-01 ,5.7861e-01 ,7.4659e-02 /) - kbo(:, 1,42, 8) = (/ & - &1.4736e-01 ,2.3782e-01 ,2.2594e-01 ,1.7650e-01 ,3.4992e-02 /) - kbo(:, 2,42, 8) = (/ & - &2.1817e-01 ,3.3087e-01 ,3.1198e-01 ,2.4105e-01 ,4.1263e-02 /) - kbo(:, 3,42, 8) = (/ & - &3.1590e-01 ,4.4893e-01 ,4.1987e-01 ,3.2183e-01 ,4.8631e-02 /) - kbo(:, 4,42, 8) = (/ & - &4.5063e-01 ,5.9836e-01 ,5.5343e-01 ,4.2092e-01 ,5.7226e-02 /) - kbo(:, 5,42, 8) = (/ & - &6.3264e-01 ,7.8621e-01 ,7.1837e-01 ,5.4085e-01 ,6.7074e-02 /) - kbo(:, 1,43, 8) = (/ & - &1.2471e-01 ,2.0767e-01 ,1.9765e-01 ,1.5433e-01 ,2.9617e-02 /) - kbo(:, 2,43, 8) = (/ & - &1.8736e-01 ,2.9309e-01 ,2.7736e-01 ,2.1438e-01 ,3.5333e-02 /) - kbo(:, 3,43, 8) = (/ & - &2.7561e-01 ,4.0307e-01 ,3.7854e-01 ,2.9057e-01 ,4.2142e-02 /) - kbo(:, 4,43, 8) = (/ & - &3.9834e-01 ,5.4356e-01 ,5.0521e-01 ,3.8507e-01 ,5.0246e-02 /) - kbo(:, 5,43, 8) = (/ & - &5.6689e-01 ,7.2237e-01 ,6.6289e-01 ,5.0065e-01 ,5.9725e-02 /) - kbo(:, 1,44, 8) = (/ & - &1.0535e-01 ,1.8057e-01 ,1.7198e-01 ,1.3418e-01 ,2.4874e-02 /) - kbo(:, 2,44, 8) = (/ & - &1.6101e-01 ,2.5912e-01 ,2.4579e-01 ,1.8994e-01 ,3.0018e-02 /) - kbo(:, 3,44, 8) = (/ & - &2.4038e-01 ,3.6143e-01 ,3.4064e-01 ,2.6166e-01 ,3.6275e-02 /) - kbo(:, 4,44, 8) = (/ & - &3.5302e-01 ,4.9391e-01 ,4.6079e-01 ,3.5170e-01 ,4.3858e-02 /) - kbo(:, 5,44, 8) = (/ & - &5.0915e-01 ,6.6446e-01 ,6.1193e-01 ,4.6316e-01 ,5.2911e-02 /) - kbo(:, 1,45, 8) = (/ & - &9.0316e-02 ,1.5846e-01 ,1.5081e-01 ,1.1736e-01 ,2.0815e-02 /) - kbo(:, 2,45, 8) = (/ & - &1.4022e-01 ,2.3128e-01 ,2.1952e-01 ,1.6935e-01 ,2.5419e-02 /) - kbo(:, 3,45, 8) = (/ & - &2.1290e-01 ,3.2756e-01 ,3.0923e-01 ,2.3736e-01 ,3.1129e-02 /) - kbo(:, 4,45, 8) = (/ & - &3.1767e-01 ,4.5386e-01 ,4.2443e-01 ,3.2399e-01 ,3.8187e-02 /) - kbo(:, 5,45, 8) = (/ & - &4.6514e-01 ,6.1840e-01 ,5.7081e-01 ,4.3233e-01 ,4.6782e-02 /) - kbo(:, 1,46, 8) = (/ & - &7.6970e-02 ,1.3789e-01 ,1.3114e-01 ,1.0166e-01 ,1.7264e-02 /) - kbo(:, 2,46, 8) = (/ & - &1.2176e-01 ,2.0534e-01 ,1.9482e-01 ,1.4994e-01 ,2.1346e-02 /) - kbo(:, 3,46, 8) = (/ & - &1.8790e-01 ,2.9566e-01 ,2.7941e-01 ,2.1415e-01 ,2.6490e-02 /) - kbo(:, 4,46, 8) = (/ & - &2.8511e-01 ,4.1574e-01 ,3.8936e-01 ,2.9707e-01 ,3.3007e-02 /) - kbo(:, 5,46, 8) = (/ & - &4.2418e-01 ,5.7427e-01 ,5.3095e-01 ,4.0219e-01 ,4.1080e-02 /) - kbo(:, 1,47, 8) = (/ & - &6.3210e-02 ,1.1622e-01 ,1.1043e-01 ,8.5380e-02 ,1.4119e-02 /) - kbo(:, 2,47, 8) = (/ & - &1.0215e-01 ,1.7705e-01 ,1.6808e-01 ,1.2908e-01 ,1.7662e-02 /) - kbo(:, 3,47, 8) = (/ & - &1.6053e-01 ,2.5968e-01 ,2.4579e-01 ,1.8828e-01 ,2.2222e-02 /) - kbo(:, 4,47, 8) = (/ & - &2.4774e-01 ,3.7111e-01 ,3.4851e-01 ,2.6604e-01 ,2.8126e-02 /) - kbo(:, 5,47, 8) = (/ & - &3.7525e-01 ,5.2022e-01 ,4.8241e-01 ,3.6582e-01 ,3.5589e-02 /) - kbo(:, 1,48, 8) = (/ & - &5.2856e-02 ,9.8941e-02 ,9.3700e-02 ,7.2138e-02 ,1.1481e-02 /) - kbo(:, 2,48, 8) = (/ & - &8.7380e-02 ,1.5439e-01 ,1.4631e-01 ,1.1192e-01 ,1.4532e-02 /) - kbo(:, 3,48, 8) = (/ & - &1.4008e-01 ,2.3111e-01 ,2.1862e-01 ,1.6701e-01 ,1.8538e-02 /) - kbo(:, 4,48, 8) = (/ & - &2.2000e-01 ,3.3600e-01 ,3.1573e-01 ,2.4065e-01 ,2.3829e-02 /) - kbo(:, 5,48, 8) = (/ & - &3.3939e-01 ,4.7860e-01 ,4.4403e-01 ,3.3641e-01 ,3.0679e-02 /) - kbo(:, 1,49, 8) = (/ & - &4.5594e-02 ,8.5787e-02 ,8.0733e-02 ,6.1668e-02 ,9.2832e-03 /) - kbo(:, 2,49, 8) = (/ & - &7.7236e-02 ,1.3755e-01 ,1.2964e-01 ,9.8500e-02 ,1.1885e-02 /) - kbo(:, 3,49, 8) = (/ & - &1.2646e-01 ,2.1033e-01 ,1.9831e-01 ,1.5059e-01 ,1.5367e-02 /) - kbo(:, 4,49, 8) = (/ & - &2.0223e-01 ,3.1150e-01 ,2.9194e-01 ,2.2146e-01 ,2.0076e-02 /) - kbo(:, 5,49, 8) = (/ & - &3.1773e-01 ,4.5116e-01 ,4.1757e-01 ,3.1527e-01 ,2.6302e-02 /) - kbo(:, 1,50, 8) = (/ & - &3.7552e-02 ,7.1895e-02 ,6.7424e-02 ,5.1302e-02 ,7.5009e-03 /) - kbo(:, 2,50, 8) = (/ & - &6.5207e-02 ,1.1840e-01 ,1.1139e-01 ,8.4335e-02 ,9.7205e-03 /) - kbo(:, 3,50, 8) = (/ & - &1.0908e-01 ,1.8529e-01 ,1.7464e-01 ,1.3230e-01 ,1.2741e-02 /) - kbo(:, 4,50, 8) = (/ & - &1.7795e-01 ,2.7969e-01 ,2.6224e-01 ,1.9866e-01 ,1.6912e-02 /) - kbo(:, 5,50, 8) = (/ & - &2.8480e-01 ,4.1182e-01 ,3.8156e-01 ,2.8786e-01 ,2.2557e-02 /) - kbo(:, 1,51, 8) = (/ & - &3.0119e-02 ,5.9038e-02 ,5.5227e-02 ,4.1909e-02 ,6.0436e-03 /) - kbo(:, 2,51, 8) = (/ & - &5.3723e-02 ,1.0012e-01 ,9.4083e-02 ,7.1011e-02 ,7.9244e-03 /) - kbo(:, 3,51, 8) = (/ & - &9.1816e-02 ,1.6026e-01 ,1.5113e-01 ,1.1438e-01 ,1.0530e-02 /) - kbo(:, 4,51, 8) = (/ & - &1.5289e-01 ,2.4665e-01 ,2.3169e-01 ,1.7549e-01 ,1.4198e-02 /) - kbo(:, 5,51, 8) = (/ & - &2.4923e-01 ,3.6941e-01 ,3.4309e-01 ,2.5907e-01 ,1.9285e-02 /) - kbo(:, 1,52, 8) = (/ & - &2.4575e-02 ,4.8862e-02 ,4.5516e-02 ,3.4388e-02 ,4.8448e-03 /) - kbo(:, 2,52, 8) = (/ & - &4.5073e-02 ,8.5520e-02 ,8.0105e-02 ,6.0149e-02 ,6.4237e-03 /) - kbo(:, 3,52, 8) = (/ & - &7.8951e-02 ,1.4049e-01 ,1.3220e-01 ,9.9732e-02 ,8.6480e-03 /) - kbo(:, 4,52, 8) = (/ & - &1.3416e-01 ,2.2067e-01 ,2.0720e-01 ,1.5657e-01 ,1.1852e-02 /) - kbo(:, 5,52, 8) = (/ & - &2.2319e-01 ,3.3661e-01 ,3.1253e-01 ,2.3574e-01 ,1.6412e-02 /) - kbo(:, 1,53, 8) = (/ & - &2.0612e-02 ,4.1138e-02 ,3.8068e-02 ,2.8547e-02 ,3.8662e-03 /) - kbo(:, 2,53, 8) = (/ & - &3.9008e-02 ,7.4441e-02 ,6.9299e-02 ,5.1635e-02 ,5.1786e-03 /) - kbo(:, 3,53, 8) = (/ & - &7.0078e-02 ,1.2575e-01 ,1.1775e-01 ,8.8269e-02 ,7.0623e-03 /) - kbo(:, 4,53, 8) = (/ & - &1.2164e-01 ,2.0192e-01 ,1.8894e-01 ,1.4209e-01 ,9.8285e-03 /) - kbo(:, 5,53, 8) = (/ & - &2.0657e-01 ,3.1414e-01 ,2.9077e-01 ,2.1839e-01 ,1.3889e-02 /) - kbo(:, 1,54, 8) = (/ & - &1.5065e-02 ,3.1280e-02 ,2.9021e-02 ,2.1865e-02 ,3.0881e-03 /) - kbo(:, 2,54, 8) = (/ & - &2.9415e-02 ,5.8678e-02 ,5.4740e-02 ,4.0841e-02 ,4.1803e-03 /) - kbo(:, 3,54, 8) = (/ & - &5.4186e-02 ,1.0195e-01 ,9.5873e-02 ,7.1991e-02 ,5.7700e-03 /) - kbo(:, 4,54, 8) = (/ & - &9.6215e-02 ,1.6747e-01 ,1.5763e-01 ,1.1902e-01 ,8.1641e-03 /) - kbo(:, 5,54, 8) = (/ & - &1.6671e-01 ,2.6518e-01 ,2.4733e-01 ,1.8663e-01 ,1.1760e-02 /) - kbo(:, 1,55, 8) = (/ & - &1.0025e-02 ,2.2183e-02 ,2.0776e-02 ,1.5843e-02 ,2.4606e-03 /) - kbo(:, 2,55, 8) = (/ & - &2.0216e-02 ,4.3248e-02 ,4.0605e-02 ,3.0502e-02 ,3.3650e-03 /) - kbo(:, 3,55, 8) = (/ & - &3.8225e-02 ,7.7452e-02 ,7.3454e-02 ,5.5488e-02 ,4.7010e-03 /) - kbo(:, 4,55, 8) = (/ & - &6.9405e-02 ,1.3019e-01 ,1.2386e-01 ,9.4370e-02 ,6.7604e-03 /) - kbo(:, 5,55, 8) = (/ & - &1.2275e-01 ,2.0976e-01 ,1.9836e-01 ,1.5118e-01 ,9.9237e-03 /) - kbo(:, 1,56, 8) = (/ & - &6.5953e-03 ,1.5532e-02 ,1.4697e-02 ,1.1369e-02 ,1.9523e-03 /) - kbo(:, 2,56, 8) = (/ & - &1.3758e-02 ,3.1499e-02 ,2.9770e-02 ,2.2525e-02 ,2.6931e-03 /) - kbo(:, 3,56, 8) = (/ & - &2.6733e-02 ,5.8400e-02 ,5.5794e-02 ,4.2378e-02 ,3.8077e-03 /) - kbo(:, 4,56, 8) = (/ & - &4.9676e-02 ,1.0081e-01 ,9.6783e-02 ,7.4327e-02 ,5.5587e-03 /) - kbo(:, 5,56, 8) = (/ & - &8.9711e-02 ,1.6544e-01 ,1.5844e-01 ,1.2195e-01 ,8.3185e-03 /) - kbo(:, 1,57, 8) = (/ & - &4.2820e-03 ,1.0722e-02 ,1.0258e-02 ,8.0796e-03 ,1.5428e-03 /) - kbo(:, 2,57, 8) = (/ & - &9.2544e-03 ,2.2704e-02 ,2.1598e-02 ,1.6468e-02 ,2.1441e-03 /) - kbo(:, 3,57, 8) = (/ & - &1.8521e-02 ,4.3686e-02 ,4.1983e-02 ,3.2044e-02 ,3.0664e-03 /) - kbo(:, 4,57, 8) = (/ & - &3.5250e-02 ,7.7586e-02 ,7.5143e-02 ,5.8070e-02 ,4.5371e-03 /) - kbo(:, 5,57, 8) = (/ & - &6.5084e-02 ,1.3004e-01 ,1.2594e-01 ,9.7902e-02 ,6.9329e-03 /) - kbo(:, 1,58, 8) = (/ & - &7.3360e-04 ,2.4101e-03 ,3.0107e-03 ,3.3982e-03 ,1.2193e-03 /) - kbo(:, 2,58, 8) = (/ & - &1.6434e-03 ,5.3110e-03 ,6.5569e-03 ,7.0857e-03 ,1.7049e-03 /) - kbo(:, 3,58, 8) = (/ & - &3.3887e-03 ,1.0643e-02 ,1.3244e-02 ,1.4263e-02 ,2.4670e-03 /) - kbo(:, 4,58, 8) = (/ & - &6.6116e-03 ,1.9492e-02 ,2.4519e-02 ,2.6730e-02 ,3.7032e-03 /) - kbo(:, 5,58, 8) = (/ & - &1.2475e-02 ,3.3432e-02 ,4.2135e-02 ,4.6396e-02 ,5.7742e-03 /) - kbo(:, 1,59, 8) = (/ & - &6.5322e-04 ,2.3892e-03 ,2.8729e-03 ,2.9916e-03 ,1.0154e-03 /) - kbo(:, 2,59, 8) = (/ & - &1.4925e-03 ,5.3944e-03 ,6.3528e-03 ,6.2709e-03 ,1.4376e-03 /) - kbo(:, 3,59, 8) = (/ & - &3.1352e-03 ,1.1095e-02 ,1.3136e-02 ,1.2884e-02 ,2.1132e-03 /) - kbo(:, 4,59, 8) = (/ & - &6.2265e-03 ,2.0748e-02 ,2.4885e-02 ,2.4670e-02 ,3.2435e-03 /) - kbo(:, 5,59, 8) = (/ & - &1.1971e-02 ,3.6140e-02 ,4.3523e-02 ,4.3765e-02 ,5.1685e-03 /) - kbo(:, 1,13, 9) = (/ & - &7.3666e+01 ,5.5396e+01 ,3.7129e+01 ,1.8928e+01 ,2.0240e+00 /) - kbo(:, 2,13, 9) = (/ & - &1.0840e+02 ,8.1447e+01 ,5.4490e+01 ,2.7556e+01 ,1.9929e+00 /) - kbo(:, 3,13, 9) = (/ & - &1.5167e+02 ,1.1389e+02 ,7.6113e+01 ,3.8343e+01 ,1.9601e+00 /) - kbo(:, 4,13, 9) = (/ & - &2.0374e+02 ,1.5294e+02 ,1.0214e+02 ,5.1349e+01 ,1.9301e+00 /) - kbo(:, 5,13, 9) = (/ & - &2.6449e+02 ,1.9850e+02 ,1.3251e+02 ,6.6525e+01 ,1.8945e+00 /) - kbo(:, 1,14, 9) = (/ & - &4.2021e+01 ,3.1664e+01 ,2.1327e+01 ,1.1250e+01 ,2.1001e+00 /) - kbo(:, 2,14, 9) = (/ & - &6.1662e+01 ,4.6390e+01 ,3.1123e+01 ,1.5991e+01 ,2.0721e+00 /) - kbo(:, 3,14, 9) = (/ & - &8.6125e+01 ,6.4733e+01 ,4.3345e+01 ,2.2004e+01 ,2.0419e+00 /) - kbo(:, 4,14, 9) = (/ & - &1.1550e+02 ,8.6758e+01 ,5.8024e+01 ,2.9304e+01 ,2.0094e+00 /) - kbo(:, 5,14, 9) = (/ & - &1.4971e+02 ,1.1242e+02 ,7.5125e+01 ,3.7838e+01 ,1.9780e+00 /) - kbo(:, 1,15, 9) = (/ & - &2.4325e+01 ,1.8394e+01 ,1.2572e+01 ,7.1971e+00 ,2.1558e+00 /) - kbo(:, 2,15, 9) = (/ & - &3.5582e+01 ,2.6831e+01 ,1.8117e+01 ,9.7575e+00 ,2.1305e+00 /) - kbo(:, 3,15, 9) = (/ & - &4.9567e+01 ,3.7318e+01 ,2.5078e+01 ,1.3071e+01 ,2.1029e+00 /) - kbo(:, 4,15, 9) = (/ & - &6.6327e+01 ,4.9885e+01 ,3.3445e+01 ,1.7135e+01 ,2.0733e+00 /) - kbo(:, 5,15, 9) = (/ & - &8.5909e+01 ,6.4569e+01 ,4.3231e+01 ,2.1949e+01 ,2.0415e+00 /) - kbo(:, 1,16, 9) = (/ & - &1.6702e+01 ,1.2688e+01 ,8.9156e+00 ,5.6745e+00 ,2.1884e+00 /) - kbo(:, 2,16, 9) = (/ & - &2.4341e+01 ,1.8405e+01 ,1.2602e+01 ,7.2943e+00 ,2.1658e+00 /) - kbo(:, 3,16, 9) = (/ & - &3.3812e+01 ,2.5504e+01 ,1.7253e+01 ,9.4143e+00 ,2.1418e+00 /) - kbo(:, 4,16, 9) = (/ & - &4.5185e+01 ,3.4031e+01 ,2.2894e+01 ,1.2063e+01 ,2.1149e+00 /) - kbo(:, 5,16, 9) = (/ & - &5.8502e+01 ,4.4016e+01 ,2.9536e+01 ,1.5253e+01 ,2.0863e+00 /) - kbo(:, 1,17, 9) = (/ & - &1.1824e+01 ,9.0729e+00 ,6.6968e+00 ,4.8304e+00 ,2.1968e+00 /) - kbo(:, 2,17, 9) = (/ & - &1.7172e+01 ,1.3045e+01 ,9.1828e+00 ,5.8938e+00 ,2.1784e+00 /) - kbo(:, 3,17, 9) = (/ & - &2.3815e+01 ,1.8013e+01 ,1.2370e+01 ,7.2830e+00 ,2.1580e+00 /) - kbo(:, 4,17, 9) = (/ & - &3.1829e+01 ,2.4018e+01 ,1.6287e+01 ,9.0400e+00 ,2.1352e+00 /) - kbo(:, 5,17, 9) = (/ & - &4.1298e+01 ,3.1117e+01 ,2.0970e+01 ,1.1193e+01 ,2.1100e+00 /) - kbo(:, 1,18, 9) = (/ & - &8.5582e+00 ,6.6960e+00 ,5.3232e+00 ,4.2870e+00 ,2.1819e+00 /) - kbo(:, 2,18, 9) = (/ & - &1.2402e+01 ,9.5125e+00 ,7.0290e+00 ,5.0519e+00 ,2.1680e+00 /) - kbo(:, 3,18, 9) = (/ & - &1.7200e+01 ,1.3071e+01 ,9.2389e+00 ,6.0101e+00 ,2.1517e+00 /) - kbo(:, 4,18, 9) = (/ & - &2.3032e+01 ,1.7428e+01 ,1.2014e+01 ,7.2086e+00 ,2.1334e+00 /) - kbo(:, 5,18, 9) = (/ & - &2.9959e+01 ,2.2618e+01 ,1.5385e+01 ,8.6965e+00 ,2.1122e+00 /) - kbo(:, 1,19, 9) = (/ & - &6.0876e+00 ,4.9589e+00 ,4.3617e+00 ,3.8537e+00 ,2.1426e+00 /) - kbo(:, 2,19, 9) = (/ & - &8.8178e+00 ,6.9019e+00 ,5.5120e+00 ,4.4148e+00 ,2.1341e+00 /) - kbo(:, 3,19, 9) = (/ & - &1.2247e+01 ,9.4065e+00 ,7.0194e+00 ,5.0977e+00 ,2.1226e+00 /) - kbo(:, 4,19, 9) = (/ & - &1.6435e+01 ,1.2508e+01 ,8.9285e+00 ,5.9346e+00 ,2.1084e+00 /) - kbo(:, 5,19, 9) = (/ & - &2.1395e+01 ,1.6206e+01 ,1.1260e+01 ,6.9507e+00 ,2.0906e+00 /) - kbo(:, 1,20, 9) = (/ & - &4.7338e+00 ,4.0618e+00 ,3.8673e+00 ,3.5847e+00 ,2.0812e+00 /) - kbo(:, 2,20, 9) = (/ & - &6.8571e+00 ,5.5334e+00 ,4.7582e+00 ,4.0685e+00 ,2.0765e+00 /) - kbo(:, 3,20, 9) = (/ & - &9.5336e+00 ,7.4447e+00 ,5.9012e+00 ,4.6250e+00 ,2.0694e+00 /) - kbo(:, 4,20, 9) = (/ & - &1.2791e+01 ,9.8219e+00 ,7.3358e+00 ,5.2854e+00 ,2.0598e+00 /) - kbo(:, 5,20, 9) = (/ & - &1.6650e+01 ,1.2677e+01 ,9.0899e+00 ,6.0678e+00 ,2.0475e+00 /) - kbo(:, 1,21, 9) = (/ & - &3.8172e+00 ,3.4906e+00 ,3.5314e+00 ,3.3393e+00 ,1.9987e+00 /) - kbo(:, 2,21, 9) = (/ & - &5.5293e+00 ,4.6505e+00 ,4.2636e+00 ,3.7764e+00 ,1.9988e+00 /) - kbo(:, 3,21, 9) = (/ & - &7.6789e+00 ,6.1523e+00 ,5.1831e+00 ,4.2770e+00 ,1.9964e+00 /) - kbo(:, 4,21, 9) = (/ & - &1.0301e+01 ,8.0282e+00 ,6.3179e+00 ,4.8454e+00 ,1.9916e+00 /) - kbo(:, 5,21, 9) = (/ & - &1.3413e+01 ,1.0296e+01 ,7.6922e+00 ,5.4909e+00 ,1.9849e+00 /) - kbo(:, 1,22, 9) = (/ & - &3.2538e+00 ,3.1636e+00 ,3.3083e+00 ,3.1336e+00 ,1.8994e+00 /) - kbo(:, 2,22, 9) = (/ & - &4.6904e+00 ,4.1275e+00 ,3.9601e+00 ,3.5392e+00 ,1.9038e+00 /) - kbo(:, 3,22, 9) = (/ & - &6.4936e+00 ,5.3647e+00 ,4.7415e+00 ,4.0033e+00 ,1.9062e+00 /) - kbo(:, 4,22, 9) = (/ & - &8.6858e+00 ,6.9049e+00 ,5.6919e+00 ,4.5273e+00 ,1.9068e+00 /) - kbo(:, 5,22, 9) = (/ & - &1.1287e+01 ,8.7705e+00 ,6.8305e+00 ,5.1089e+00 ,1.9070e+00 /) - kbo(:, 1,23, 9) = (/ & - &2.7990e+00 ,2.9004e+00 ,3.0888e+00 ,2.9221e+00 ,1.7866e+00 /) - kbo(:, 2,23, 9) = (/ & - &4.0164e+00 ,3.7193e+00 ,3.6884e+00 ,3.3009e+00 ,1.7963e+00 /) - kbo(:, 3,23, 9) = (/ & - &5.5385e+00 ,4.7530e+00 ,4.3835e+00 ,3.7336e+00 ,1.8046e+00 /) - kbo(:, 4,23, 9) = (/ & - &7.3874e+00 ,6.0323e+00 ,5.1957e+00 ,4.2187e+00 ,1.8111e+00 /) - kbo(:, 5,23, 9) = (/ & - &9.5697e+00 ,7.5707e+00 ,6.1486e+00 ,4.7536e+00 ,1.8191e+00 /) - kbo(:, 1,24, 9) = (/ & - &2.4093e+00 ,2.6666e+00 ,2.8613e+00 ,2.7031e+00 ,1.6662e+00 /) - kbo(:, 2,24, 9) = (/ & - &3.4388e+00 ,3.3672e+00 ,3.4097e+00 ,3.0567e+00 ,1.6812e+00 /) - kbo(:, 3,24, 9) = (/ & - &4.7196e+00 ,4.2384e+00 ,4.0418e+00 ,3.4577e+00 ,1.6956e+00 /) - kbo(:, 4,24, 9) = (/ & - &6.2610e+00 ,5.2923e+00 ,4.7542e+00 ,3.9053e+00 ,1.7103e+00 /) - kbo(:, 5,24, 9) = (/ & - &8.0725e+00 ,6.5459e+00 ,5.5528e+00 ,4.3943e+00 ,1.7280e+00 /) - kbo(:, 1,25, 9) = (/ & - &2.1093e+00 ,2.4777e+00 ,2.6576e+00 ,2.5025e+00 ,1.5428e+00 /) - kbo(:, 2,25, 9) = (/ & - &2.9902e+00 ,3.0964e+00 ,3.1653e+00 ,2.8347e+00 ,1.5643e+00 /) - kbo(:, 3,25, 9) = (/ & - &4.0768e+00 ,3.8394e+00 ,3.7463e+00 ,3.2106e+00 ,1.5865e+00 /) - kbo(:, 4,25, 9) = (/ & - &5.3785e+00 ,4.7237e+00 ,4.3881e+00 ,3.6281e+00 ,1.6115e+00 /) - kbo(:, 5,25, 9) = (/ & - &6.9128e+00 ,5.7727e+00 ,5.0863e+00 ,4.0788e+00 ,1.6376e+00 /) - kbo(:, 1,26, 9) = (/ & - &1.8856e+00 ,2.3262e+00 ,2.4875e+00 ,2.3287e+00 ,1.4224e+00 /) - kbo(:, 2,26, 9) = (/ & - &2.6493e+00 ,2.8890e+00 ,2.9641e+00 ,2.6458e+00 ,1.4515e+00 /) - kbo(:, 3,26, 9) = (/ & - &3.5871e+00 ,3.5368e+00 ,3.5013e+00 ,3.0021e+00 ,1.4824e+00 /) - kbo(:, 4,26, 9) = (/ & - &4.7140e+00 ,4.3024e+00 ,4.0862e+00 ,3.3950e+00 ,1.5166e+00 /) - kbo(:, 5,26, 9) = (/ & - &6.0446e+00 ,5.2045e+00 ,4.7238e+00 ,3.8145e+00 ,1.5518e+00 /) - kbo(:, 1,27, 9) = (/ & - &1.7455e+00 ,2.2279e+00 ,2.3691e+00 ,2.1938e+00 ,1.3093e+00 /) - kbo(:, 2,27, 9) = (/ & - &2.4331e+00 ,2.7544e+00 ,2.8270e+00 ,2.5043e+00 ,1.3459e+00 /) - kbo(:, 3,27, 9) = (/ & - &3.2766e+00 ,3.3516e+00 ,3.3333e+00 ,2.8520e+00 ,1.3862e+00 /) - kbo(:, 4,27, 9) = (/ & - &4.2923e+00 ,4.0432e+00 ,3.8852e+00 ,3.2303e+00 ,1.4289e+00 /) - kbo(:, 5,27, 9) = (/ & - &5.4942e+00 ,4.8565e+00 ,4.4878e+00 ,3.6320e+00 ,1.4726e+00 /) - kbo(:, 1,28, 9) = (/ & - &1.6557e+00 ,2.1623e+00 ,2.2857e+00 ,2.0892e+00 ,1.2058e+00 /) - kbo(:, 2,28, 9) = (/ & - &2.2924e+00 ,2.6651e+00 ,2.7290e+00 ,2.3996e+00 ,1.2506e+00 /) - kbo(:, 3,28, 9) = (/ & - &3.0749e+00 ,3.2332e+00 ,3.2167e+00 ,2.7436e+00 ,1.2996e+00 /) - kbo(:, 4,28, 9) = (/ & - &4.0186e+00 ,3.8816e+00 ,3.7505e+00 ,3.1131e+00 ,1.3503e+00 /) - kbo(:, 5,28, 9) = (/ & - &5.1433e+00 ,4.6442e+00 ,4.3346e+00 ,3.5087e+00 ,1.4023e+00 /) - kbo(:, 1,29, 9) = (/ & - &1.6682e+00 ,2.1786e+00 ,2.2786e+00 ,2.0447e+00 ,1.1144e+00 /) - kbo(:, 2,29, 9) = (/ & - &2.2981e+00 ,2.6823e+00 ,2.7239e+00 ,2.3673e+00 ,1.1675e+00 /) - kbo(:, 3,29, 9) = (/ & - &3.0738e+00 ,3.2536e+00 ,3.2170e+00 ,2.7185e+00 ,1.2244e+00 /) - kbo(:, 4,29, 9) = (/ & - &4.0119e+00 ,3.9041e+00 ,3.7595e+00 ,3.0962e+00 ,1.2824e+00 /) - kbo(:, 5,29, 9) = (/ & - &5.1340e+00 ,4.6678e+00 ,4.3550e+00 ,3.5038e+00 ,1.3425e+00 /) - kbo(:, 1,30, 9) = (/ & - &1.7221e+00 ,2.2297e+00 ,2.3038e+00 ,2.0342e+00 ,1.0364e+00 /) - kbo(:, 2,30, 9) = (/ & - &2.3632e+00 ,2.7462e+00 ,2.7611e+00 ,2.3703e+00 ,1.0967e+00 /) - kbo(:, 3,30, 9) = (/ & - &3.1545e+00 ,3.3332e+00 ,3.2697e+00 ,2.7338e+00 ,1.1597e+00 /) - kbo(:, 4,30, 9) = (/ & - &4.1176e+00 ,4.0031e+00 ,3.8327e+00 ,3.1282e+00 ,1.2250e+00 /) - kbo(:, 5,30, 9) = (/ & - &5.2710e+00 ,4.7910e+00 ,4.4538e+00 ,3.5548e+00 ,1.2942e+00 /) - kbo(:, 1,31, 9) = (/ & - &1.8733e+00 ,2.3643e+00 ,2.4037e+00 ,2.0831e+00 ,9.7071e-01 /) - kbo(:, 2,31, 9) = (/ & - &2.5621e+00 ,2.9163e+00 ,2.8917e+00 ,2.4413e+00 ,1.0371e+00 /) - kbo(:, 3,31, 9) = (/ & - &3.4185e+00 ,3.5458e+00 ,3.4392e+00 ,2.8321e+00 ,1.1068e+00 /) - kbo(:, 4,31, 9) = (/ & - &4.4630e+00 ,4.2725e+00 ,4.0472e+00 ,3.2583e+00 ,1.1813e+00 /) - kbo(:, 5,31, 9) = (/ & - &5.7201e+00 ,5.1339e+00 ,4.7206e+00 ,3.7217e+00 ,1.2572e+00 /) - kbo(:, 1,32, 9) = (/ & - &2.0653e+00 ,2.5337e+00 ,2.5386e+00 ,2.1600e+00 ,9.1680e-01 /) - kbo(:, 2,32, 9) = (/ & - &2.8216e+00 ,3.1306e+00 ,3.0669e+00 ,2.5463e+00 ,9.8936e-01 /) - kbo(:, 3,32, 9) = (/ & - &3.7648e+00 ,3.8151e+00 ,3.6619e+00 ,2.9702e+00 ,1.0685e+00 /) - kbo(:, 4,32, 9) = (/ & - &4.9201e+00 ,4.6180e+00 ,4.3259e+00 ,3.4358e+00 ,1.1502e+00 /) - kbo(:, 5,32, 9) = (/ & - &6.3088e+00 ,5.5739e+00 ,5.0619e+00 ,3.9444e+00 ,1.2333e+00 /) - kbo(:, 1,33, 9) = (/ & - &2.3272e+00 ,2.7583e+00 ,2.7254e+00 ,2.2760e+00 ,8.7514e-01 /) - kbo(:, 2,33, 9) = (/ & - &3.1779e+00 ,3.4161e+00 ,3.3066e+00 ,2.6982e+00 ,9.5639e-01 /) - kbo(:, 3,33, 9) = (/ & - &4.2411e+00 ,4.1786e+00 ,3.9626e+00 ,3.1651e+00 ,1.0431e+00 /) - kbo(:, 4,33, 9) = (/ & - &5.5462e+00 ,5.0836e+00 ,4.6978e+00 ,3.6805e+00 ,1.1309e+00 /) - kbo(:, 5,33, 9) = (/ & - &7.1174e+00 ,6.1675e+00 ,5.5124e+00 ,4.2455e+00 ,1.2216e+00 /) - kbo(:, 1,34, 9) = (/ & - &2.5377e+00 ,2.9389e+00 ,2.8782e+00 ,2.3730e+00 ,8.4364e-01 /) - kbo(:, 2,34, 9) = (/ & - &3.4681e+00 ,3.6495e+00 ,3.5041e+00 ,2.8278e+00 ,9.3211e-01 /) - kbo(:, 3,34, 9) = (/ & - &4.6355e+00 ,4.4791e+00 ,4.2141e+00 ,3.3332e+00 ,1.0240e+00 /) - kbo(:, 4,34, 9) = (/ & - &6.0678e+00 ,5.4727e+00 ,5.0128e+00 ,3.8930e+00 ,1.1193e+00 /) - kbo(:, 5,34, 9) = (/ & - &7.8056e+00 ,6.6744e+00 ,5.8925e+00 ,4.5074e+00 ,1.2154e+00 /) - kbo(:, 1,35, 9) = (/ & - &2.6973e+00 ,3.0775e+00 ,2.9953e+00 ,2.4483e+00 ,8.1381e-01 /) - kbo(:, 2,35, 9) = (/ & - &3.6991e+00 ,3.8360e+00 ,3.6636e+00 ,2.9345e+00 ,9.0760e-01 /) - kbo(:, 3,35, 9) = (/ & - &4.9601e+00 ,4.7300e+00 ,4.4278e+00 ,3.4777e+00 ,1.0051e+00 /) - kbo(:, 4,35, 9) = (/ & - &6.5186e+00 ,5.8127e+00 ,5.2832e+00 ,4.0814e+00 ,1.1048e+00 /) - kbo(:, 5,35, 9) = (/ & - &8.4126e+00 ,7.1259e+00 ,6.2273e+00 ,4.7423e+00 ,1.2066e+00 /) - kbo(:, 1,36, 9) = (/ & - &2.7598e+00 ,3.1389e+00 ,3.0464e+00 ,2.4794e+00 ,7.8185e-01 /) - kbo(:, 2,36, 9) = (/ & - &3.8096e+00 ,3.9341e+00 ,3.7503e+00 ,2.9909e+00 ,8.7896e-01 /) - kbo(:, 3,36, 9) = (/ & - &5.1379e+00 ,4.8766e+00 ,4.5549e+00 ,3.5652e+00 ,9.8107e-01 /) - kbo(:, 4,36, 9) = (/ & - &6.7937e+00 ,6.0302e+00 ,5.4578e+00 ,4.2069e+00 ,1.0852e+00 /) - kbo(:, 5,36, 9) = (/ & - &8.8141e+00 ,7.4326e+00 ,6.4589e+00 ,4.9083e+00 ,1.1912e+00 /) - kbo(:, 1,37, 9) = (/ & - &2.6230e+00 ,3.0408e+00 ,2.9596e+00 ,2.4124e+00 ,7.3962e-01 /) - kbo(:, 2,37, 9) = (/ & - &3.6580e+00 ,3.8393e+00 ,3.6702e+00 ,2.9331e+00 ,8.3992e-01 /) - kbo(:, 3,37, 9) = (/ & - &4.9824e+00 ,4.7866e+00 ,4.4878e+00 ,3.5210e+00 ,9.4491e-01 /) - kbo(:, 4,37, 9) = (/ & - &6.6454e+00 ,5.9484e+00 ,5.4110e+00 ,4.1812e+00 ,1.0538e+00 /) - kbo(:, 5,37, 9) = (/ & - &8.6934e+00 ,7.3704e+00 ,6.4379e+00 ,4.9067e+00 ,1.1625e+00 /) - kbo(:, 1,38, 9) = (/ & - &2.5251e+00 ,2.9721e+00 ,2.8975e+00 ,2.3630e+00 ,7.0093e-01 /) - kbo(:, 2,38, 9) = (/ & - &3.5600e+00 ,3.7826e+00 ,3.6219e+00 ,2.8967e+00 ,8.0383e-01 /) - kbo(:, 3,38, 9) = (/ & - &4.9004e+00 ,4.7489e+00 ,4.4611e+00 ,3.5032e+00 ,9.1176e-01 /) - kbo(:, 4,38, 9) = (/ & - &6.5939e+00 ,5.9343e+00 ,5.4149e+00 ,4.1893e+00 ,1.0245e+00 /) - kbo(:, 5,38, 9) = (/ & - &8.7067e+00 ,7.4030e+00 ,6.4798e+00 ,4.9449e+00 ,1.1358e+00 /) - kbo(:, 1,39, 9) = (/ & - &2.4904e+00 ,2.9537e+00 ,2.8793e+00 ,2.3443e+00 ,6.6673e-01 /) - kbo(:, 2,39, 9) = (/ & - &3.5509e+00 ,3.7917e+00 ,3.6298e+00 ,2.8981e+00 ,7.7181e-01 /) - kbo(:, 3,39, 9) = (/ & - &4.9392e+00 ,4.7973e+00 ,4.5055e+00 ,3.5337e+00 ,8.8209e-01 /) - kbo(:, 4,39, 9) = (/ & - &6.7119e+00 ,6.0406e+00 ,5.5079e+00 ,4.2551e+00 ,9.9828e-01 /) - kbo(:, 5,39, 9) = (/ & - &8.9447e+00 ,7.5957e+00 ,6.6321e+00 ,5.0544e+00 ,1.1121e+00 /) - kbo(:, 1,40, 9) = (/ & - &2.2209e+00 ,2.7364e+00 ,2.6885e+00 ,2.2038e+00 ,6.2428e-01 /) - kbo(:, 2,40, 9) = (/ & - &3.2135e+00 ,3.5469e+00 ,3.4206e+00 ,2.7501e+00 ,7.3025e-01 /) - kbo(:, 3,40, 9) = (/ & - &4.5302e+00 ,4.5210e+00 ,4.2832e+00 ,3.3810e+00 ,8.4222e-01 /) - kbo(:, 4,40, 9) = (/ & - &6.2335e+00 ,5.7214e+00 ,5.2769e+00 ,4.1014e+00 ,9.6000e-01 /) - kbo(:, 5,40, 9) = (/ & - &8.4037e+00 ,7.2349e+00 ,6.3985e+00 ,4.9070e+00 ,1.0766e+00 /) - kbo(:, 1,41, 9) = (/ & - &1.9647e+00 ,2.5201e+00 ,2.4974e+00 ,2.0614e+00 ,5.8325e-01 /) - kbo(:, 2,41, 9) = (/ & - &2.8852e+00 ,3.2999e+00 ,3.2081e+00 ,2.5978e+00 ,6.8959e-01 /) - kbo(:, 3,41, 9) = (/ & - &4.1243e+00 ,4.2421e+00 ,4.0540e+00 ,3.2221e+00 ,8.0263e-01 /) - kbo(:, 4,41, 9) = (/ & - &5.7517e+00 ,5.3978e+00 ,5.0364e+00 ,3.9392e+00 ,9.2181e-01 /) - kbo(:, 5,41, 9) = (/ & - &7.8523e+00 ,6.8657e+00 ,6.1521e+00 ,4.7480e+00 ,1.0405e+00 /) - kbo(:, 1,42, 9) = (/ & - &1.7512e+00 ,2.3349e+00 ,2.3318e+00 ,1.9366e+00 ,5.4463e-01 /) - kbo(:, 2,42, 9) = (/ & - &2.6144e+00 ,3.0905e+00 ,3.0258e+00 ,2.4663e+00 ,6.5106e-01 /) - kbo(:, 3,42, 9) = (/ & - &3.7920e+00 ,4.0117e+00 ,3.8605e+00 ,3.0859e+00 ,7.6489e-01 /) - kbo(:, 4,42, 9) = (/ & - &5.3603e+00 ,5.1368e+00 ,4.8392e+00 ,3.8039e+00 ,8.8471e-01 /) - kbo(:, 5,42, 9) = (/ & - &7.4143e+00 ,6.5758e+00 ,5.9582e+00 ,4.6208e+00 ,1.0054e+00 /) - kbo(:, 1,43, 9) = (/ & - &1.5310e+00 ,2.1360e+00 ,2.1508e+00 ,1.7978e+00 ,5.0265e-01 /) - kbo(:, 2,43, 9) = (/ & - &2.3335e+00 ,2.8636e+00 ,2.8240e+00 ,2.3172e+00 ,6.0791e-01 /) - kbo(:, 3,43, 9) = (/ & - &3.4398e+00 ,3.7600e+00 ,3.6428e+00 ,2.9301e+00 ,7.2170e-01 /) - kbo(:, 4,43, 9) = (/ & - &4.9392e+00 ,4.8535e+00 ,4.6142e+00 ,3.6458e+00 ,8.4218e-01 /) - kbo(:, 5,43, 9) = (/ & - &6.9338e+00 ,6.2557e+00 ,5.7358e+00 ,4.4687e+00 ,9.6366e-01 /) - kbo(:, 1,44, 9) = (/ & - &1.3351e+00 ,1.9503e+00 ,1.9789e+00 ,1.6632e+00 ,4.6023e-01 /) - kbo(:, 2,44, 9) = (/ & - &2.0772e+00 ,2.6507e+00 ,2.6321e+00 ,2.1724e+00 ,5.6381e-01 /) - kbo(:, 3,44, 9) = (/ & - &3.1248e+00 ,3.5269e+00 ,3.4366e+00 ,2.7797e+00 ,6.7693e-01 /) - kbo(:, 4,44, 9) = (/ & - &4.5611e+00 ,4.5989e+00 ,4.4033e+00 ,3.4949e+00 ,7.9737e-01 /) - kbo(:, 5,44, 9) = (/ & - &6.5042e+00 ,5.9719e+00 ,5.5317e+00 ,4.3254e+00 ,9.1937e-01 /) - kbo(:, 1,45, 9) = (/ & - &1.1794e+00 ,1.7969e+00 ,1.8343e+00 ,1.5476e+00 ,4.2007e-01 /) - kbo(:, 2,45, 9) = (/ & - &1.8762e+00 ,2.4795e+00 ,2.4742e+00 ,2.0501e+00 ,5.2163e-01 /) - kbo(:, 3,45, 9) = (/ & - &2.8809e+00 ,3.3442e+00 ,3.2721e+00 ,2.6566e+00 ,6.3409e-01 /) - kbo(:, 4,45, 9) = (/ & - &4.2825e+00 ,4.4131e+00 ,4.2443e+00 ,3.3788e+00 ,7.5354e-01 /) - kbo(:, 5,45, 9) = (/ & - &6.2077e+00 ,5.7830e+00 ,5.3934e+00 ,4.2249e+00 ,8.7651e-01 /) - kbo(:, 1,46, 9) = (/ & - &1.0327e+00 ,1.6453e+00 ,1.6900e+00 ,1.4307e+00 ,3.8001e-01 /) - kbo(:, 2,46, 9) = (/ & - &1.6840e+00 ,2.3071e+00 ,2.3154e+00 ,1.9251e+00 ,4.7892e-01 /) - kbo(:, 3,46, 9) = (/ & - &2.6449e+00 ,3.1623e+00 ,3.1054e+00 ,2.5294e+00 ,5.8968e-01 /) - kbo(:, 4,46, 9) = (/ & - &4.0149e+00 ,4.2299e+00 ,4.0828e+00 ,3.2577e+00 ,7.0805e-01 /) - kbo(:, 5,46, 9) = (/ & - &5.9211e+00 ,5.5984e+00 ,5.2528e+00 ,4.1223e+00 ,8.3110e-01 /) - kbo(:, 1,47, 9) = (/ & - &8.6791e-01 ,1.4650e+00 ,1.5175e+00 ,1.2909e+00 ,3.3829e-01 /) - kbo(:, 2,47, 9) = (/ & - &1.4548e+00 ,2.0919e+00 ,2.1155e+00 ,1.7684e+00 ,4.3374e-01 /) - kbo(:, 3,47, 9) = (/ & - &2.3437e+00 ,2.9171e+00 ,2.8820e+00 ,2.3592e+00 ,5.4146e-01 /) - kbo(:, 4,47, 9) = (/ & - &3.6410e+00 ,3.9658e+00 ,3.8455e+00 ,3.0807e+00 ,6.5808e-01 /) - kbo(:, 5,47, 9) = (/ & - &5.4757e+00 ,5.2982e+00 ,5.0168e+00 ,3.9488e+00 ,7.8042e-01 /) - kbo(:, 1,48, 9) = (/ & - &7.4197e-01 ,1.3175e+00 ,1.3727e+00 ,1.1710e+00 ,2.9912e-01 /) - kbo(:, 2,48, 9) = (/ & - &1.2795e+00 ,1.9175e+00 ,1.9504e+00 ,1.6359e+00 ,3.9088e-01 /) - kbo(:, 3,48, 9) = (/ & - &2.1163e+00 ,2.7243e+00 ,2.7026e+00 ,2.2191e+00 ,4.9535e-01 /) - kbo(:, 4,48, 9) = (/ & - &3.3685e+00 ,3.7692e+00 ,3.6648e+00 ,2.9415e+00 ,6.0991e-01 /) - kbo(:, 5,48, 9) = (/ & - &5.1784e+00 ,5.1043e+00 ,4.8553e+00 ,3.8227e+00 ,7.3131e-01 /) - kbo(:, 1,49, 9) = (/ & - &6.5229e-01 ,1.2051e+00 ,1.2591e+00 ,1.0738e+00 ,2.6269e-01 /) - kbo(:, 2,49, 9) = (/ & - &1.1591e+00 ,1.7908e+00 ,1.8269e+00 ,1.5329e+00 ,3.5032e-01 /) - kbo(:, 3,49, 9) = (/ & - &1.9719e+00 ,2.5959e+00 ,2.5784e+00 ,2.1177e+00 ,4.5127e-01 /) - kbo(:, 4,49, 9) = (/ & - &3.2176e+00 ,3.6617e+00 ,3.5592e+00 ,2.8538e+00 ,5.6309e-01 /) - kbo(:, 5,49, 9) = (/ & - &5.0660e+00 ,5.0444e+00 ,4.7964e+00 ,3.7669e+00 ,6.8298e-01 /) - kbo(:, 1,50, 9) = (/ & - &5.4718e-01 ,1.0700e+00 ,1.1242e+00 ,9.6269e-01 ,2.3041e-01 /) - kbo(:, 2,50, 9) = (/ & - &1.0029e+00 ,1.6230e+00 ,1.6660e+00 ,1.4048e+00 ,3.1350e-01 /) - kbo(:, 3,50, 9) = (/ & - &1.7557e+00 ,2.3977e+00 ,2.3952e+00 ,1.9754e+00 ,4.1052e-01 /) - kbo(:, 4,50, 9) = (/ & - &2.9398e+00 ,3.4467e+00 ,3.3608e+00 ,2.7053e+00 ,5.1916e-01 /) - kbo(:, 5,50, 9) = (/ & - &4.7374e+00 ,4.8217e+00 ,4.6033e+00 ,3.6228e+00 ,6.3755e-01 /) - kbo(:, 1,51, 9) = (/ & - &4.4659e-01 ,9.3305e-01 ,9.8713e-01 ,8.5042e-01 ,2.0131e-01 /) - kbo(:, 2,51, 9) = (/ & - &8.4503e-01 ,1.4458e+00 ,1.4962e+00 ,1.2698e+00 ,2.7950e-01 /) - kbo(:, 3,51, 9) = (/ & - &1.5227e+00 ,2.1776e+00 ,2.1908e+00 ,1.8185e+00 ,3.7211e-01 /) - kbo(:, 4,51, 9) = (/ & - &2.6197e+00 ,3.1878e+00 ,3.1271e+00 ,2.5305e+00 ,4.7775e-01 /) - kbo(:, 5,51, 9) = (/ & - &4.3246e+00 ,4.5333e+00 ,4.3504e+00 ,3.4392e+00 ,5.9331e-01 /) - kbo(:, 1,52, 9) = (/ & - &3.7000e-01 ,8.2088e-01 ,8.7232e-01 ,7.5398e-01 ,1.7473e-01 /) - kbo(:, 2,52, 9) = (/ & - &7.2411e-01 ,1.3013e+00 ,1.3548e+00 ,1.1545e+00 ,2.4775e-01 /) - kbo(:, 3,52, 9) = (/ & - &1.3455e+00 ,2.0001e+00 ,2.0236e+00 ,1.6871e+00 ,3.3555e-01 /) - kbo(:, 4,52, 9) = (/ & - &2.3815e+00 ,2.9886e+00 ,2.9408e+00 ,2.3888e+00 ,4.3798e-01 /) - kbo(:, 5,52, 9) = (/ & - &4.0315e+00 ,4.3264e+00 ,4.1654e+00 ,3.2990e+00 ,5.5079e-01 /) - kbo(:, 1,53, 9) = (/ & - &3.1522e-01 ,7.3236e-01 ,7.7935e-01 ,6.7369e-01 ,1.5034e-01 /) - kbo(:, 2,53, 9) = (/ & - &6.3787e-01 ,1.1908e+00 ,1.2433e+00 ,1.0610e+00 ,2.1835e-01 /) - kbo(:, 3,53, 9) = (/ & - &1.2250e+00 ,1.8717e+00 ,1.8985e+00 ,1.5852e+00 ,3.0124e-01 /) - kbo(:, 4,53, 9) = (/ & - &2.2328e+00 ,2.8593e+00 ,2.8149e+00 ,2.2876e+00 ,3.9993e-01 /) - kbo(:, 5,53, 9) = (/ & - &3.8806e+00 ,4.2255e+00 ,4.0654e+00 ,3.2164e+00 ,5.0965e-01 /) - kbo(:, 1,54, 9) = (/ & - &2.3422e-01 ,6.0076e-01 ,6.4671e-01 ,5.6503e-01 ,1.2928e-01 /) - kbo(:, 2,54, 9) = (/ & - &4.9005e-01 ,1.0010e+00 ,1.0587e+00 ,9.1460e-01 ,1.9217e-01 /) - kbo(:, 3,54, 9) = (/ & - &9.7166e-01 ,1.6014e+00 ,1.6473e+00 ,1.3943e+00 ,2.7068e-01 /) - kbo(:, 4,54, 9) = (/ & - &1.8237e+00 ,2.4909e+00 ,2.4828e+00 ,2.0443e+00 ,3.6438e-01 /) - kbo(:, 5,54, 9) = (/ & - &3.2575e+00 ,3.7456e+00 ,3.6419e+00 ,2.9148e+00 ,4.7112e-01 /) - kbo(:, 1,55, 9) = (/ & - &1.5838e-01 ,4.6639e-01 ,5.1049e-01 ,4.5411e-01 ,1.1083e-01 /) - kbo(:, 2,55, 9) = (/ & - &3.4306e-01 ,7.9590e-01 ,8.5878e-01 ,7.5589e-01 ,1.6856e-01 /) - kbo(:, 3,55, 9) = (/ & - &7.0266e-01 ,1.2949e+00 ,1.3605e+00 ,1.1760e+00 ,2.4233e-01 /) - kbo(:, 4,55, 9) = (/ & - &1.3593e+00 ,2.0439e+00 ,2.0790e+00 ,1.7490e+00 ,3.3108e-01 /) - kbo(:, 5,55, 9) = (/ & - &2.4959e+00 ,3.1221e+00 ,3.0894e+00 ,2.5235e+00 ,4.3367e-01 /) - kbo(:, 1,56, 9) = (/ & - &1.0564e-01 ,3.5968e-01 ,4.0062e-01 ,3.6250e-01 ,9.4093e-02 /) - kbo(:, 2,56, 9) = (/ & - &2.3778e-01 ,6.3076e-01 ,6.9353e-01 ,6.2192e-01 ,1.4691e-01 /) - kbo(:, 3,56, 9) = (/ & - &5.0289e-01 ,1.0440e+00 ,1.1212e+00 ,9.8957e-01 ,2.1564e-01 /) - kbo(:, 4,56, 9) = (/ & - &1.0047e+00 ,1.6731e+00 ,1.7388e+00 ,1.4948e+00 ,2.9947e-01 /) - kbo(:, 5,56, 9) = (/ & - &1.8976e+00 ,2.5969e+00 ,2.6179e+00 ,2.1832e+00 ,3.9803e-01 /) - kbo(:, 1,57, 9) = (/ & - &6.9404e-02 ,2.7490e-01 ,3.1190e-01 ,2.8693e-01 ,7.9174e-02 /) - kbo(:, 2,57, 9) = (/ & - &1.6275e-01 ,4.9714e-01 ,5.5717e-01 ,5.0875e-01 ,1.2713e-01 /) - kbo(:, 3,57, 9) = (/ & - &3.5620e-01 ,8.3998e-01 ,9.2115e-01 ,8.2990e-01 ,1.9063e-01 /) - kbo(:, 4,57, 9) = (/ & - &7.3515e-01 ,1.3656e+00 ,1.4515e+00 ,1.2750e+00 ,2.6981e-01 /) - kbo(:, 5,57, 9) = (/ & - &1.4305e+00 ,2.1547e+00 ,2.2152e+00 ,1.8869e+00 ,3.6361e-01 /) - kbo(:, 1,58, 9) = (/ & - &1.2018e-02 ,6.8819e-02 ,1.0253e-01 ,1.3454e-01 ,6.6409e-02 /) - kbo(:, 2,58, 9) = (/ & - &2.9376e-02 ,1.2869e-01 ,1.8932e-01 ,2.4688e-01 ,1.0988e-01 /) - kbo(:, 3,58, 9) = (/ & - &6.6678e-02 ,2.2200e-01 ,3.2071e-01 ,4.1332e-01 ,1.6852e-01 /) - kbo(:, 4,58, 9) = (/ & - &1.4218e-01 ,3.6629e-01 ,5.1309e-01 ,6.4691e-01 ,2.4300e-01 /) - kbo(:, 5,58, 9) = (/ & - &2.8506e-01 ,5.8551e-01 ,7.9229e-01 ,9.6816e-01 ,3.3198e-01 /) - kbo(:, 1,59, 9) = (/ & - &1.0974e-02 ,7.7674e-02 ,1.1174e-01 ,1.3484e-01 ,6.0877e-02 /) - kbo(:, 2,59, 9) = (/ & - &2.7572e-02 ,1.4726e-01 ,2.0947e-01 ,2.5117e-01 ,1.0237e-01 /) - kbo(:, 3,59, 9) = (/ & - &6.4218e-02 ,2.5542e-01 ,3.5789e-01 ,4.2487e-01 ,1.5885e-01 /) - kbo(:, 4,59, 9) = (/ & - &1.3998e-01 ,4.2159e-01 ,5.7382e-01 ,6.6846e-01 ,2.3069e-01 /) - kbo(:, 5,59, 9) = (/ & - &2.8653e-01 ,6.7350e-01 ,8.8507e-01 ,9.9974e-01 ,3.1701e-01 /) - kbo(:, 1,13,10) = (/ & - &3.0887e+02 ,2.3182e+02 ,1.5477e+02 ,7.7734e+01 ,3.2340e+00 /) - kbo(:, 2,13,10) = (/ & - &4.5010e+02 ,3.3773e+02 ,2.2537e+02 ,1.1301e+02 ,3.1679e+00 /) - kbo(:, 3,13,10) = (/ & - &6.1970e+02 ,4.6492e+02 ,3.1014e+02 ,1.5536e+02 ,3.1118e+00 /) - kbo(:, 4,13,10) = (/ & - &8.1413e+02 ,6.1074e+02 ,4.0734e+02 ,2.0395e+02 ,3.0351e+00 /) - kbo(:, 5,13,10) = (/ & - &1.0345e+03 ,7.7604e+02 ,5.1753e+02 ,2.5903e+02 ,2.9847e+00 /) - kbo(:, 1,14,10) = (/ & - &1.8722e+02 ,1.4057e+02 ,9.3932e+01 ,4.7308e+01 ,3.5502e+00 /) - kbo(:, 2,14,10) = (/ & - &2.7007e+02 ,2.0269e+02 ,1.3533e+02 ,6.7970e+01 ,3.4874e+00 /) - kbo(:, 3,14,10) = (/ & - &3.6889e+02 ,2.7681e+02 ,1.8473e+02 ,9.2654e+01 ,3.4323e+00 /) - kbo(:, 4,14,10) = (/ & - &4.8380e+02 ,3.6298e+02 ,2.4217e+02 ,1.2136e+02 ,3.3766e+00 /) - kbo(:, 5,14,10) = (/ & - &6.1384e+02 ,4.6051e+02 ,3.0717e+02 ,1.5385e+02 ,3.3022e+00 /) - kbo(:, 1,15,10) = (/ & - &1.1327e+02 ,8.5100e+01 ,5.6942e+01 ,2.8827e+01 ,3.8722e+00 /) - kbo(:, 2,15,10) = (/ & - &1.6194e+02 ,1.2160e+02 ,8.1262e+01 ,4.0948e+01 ,3.8151e+00 /) - kbo(:, 3,15,10) = (/ & - &2.2047e+02 ,1.6549e+02 ,1.1051e+02 ,5.5552e+01 ,3.7597e+00 /) - kbo(:, 4,15,10) = (/ & - &2.8853e+02 ,2.1653e+02 ,1.4453e+02 ,7.2538e+01 ,3.6967e+00 /) - kbo(:, 5,15,10) = (/ & - &3.6531e+02 ,2.7411e+02 ,1.8291e+02 ,9.1708e+01 ,3.6313e+00 /) - kbo(:, 1,16,10) = (/ & - &8.0065e+01 ,6.0189e+01 ,4.0328e+01 ,2.0552e+01 ,4.2109e+00 /) - kbo(:, 2,16,10) = (/ & - &1.1401e+02 ,8.5639e+01 ,5.7279e+01 ,2.8971e+01 ,4.1507e+00 /) - kbo(:, 3,16,10) = (/ & - &1.5472e+02 ,1.1617e+02 ,7.7619e+01 ,3.9099e+01 ,4.0906e+00 /) - kbo(:, 4,16,10) = (/ & - &2.0197e+02 ,1.5160e+02 ,1.0123e+02 ,5.0878e+01 ,4.0252e+00 /) - kbo(:, 5,16,10) = (/ & - &2.5492e+02 ,1.9130e+02 ,1.2769e+02 ,6.4095e+01 ,3.9532e+00 /) - kbo(:, 1,17,10) = (/ & - &5.7968e+01 ,4.3609e+01 ,2.9277e+01 ,1.5223e+01 ,4.5287e+00 /) - kbo(:, 2,17,10) = (/ & - &8.2190e+01 ,6.1765e+01 ,4.1354e+01 ,2.1049e+01 ,4.4713e+00 /) - kbo(:, 3,17,10) = (/ & - &1.1116e+02 ,8.3481e+01 ,5.5816e+01 ,2.8216e+01 ,4.4079e+00 /) - kbo(:, 4,17,10) = (/ & - &1.4447e+02 ,1.0846e+02 ,7.2459e+01 ,3.6495e+01 ,4.3339e+00 /) - kbo(:, 5,17,10) = (/ & - &1.8168e+02 ,1.3637e+02 ,9.1060e+01 ,4.5781e+01 ,4.2592e+00 /) - kbo(:, 1,18,10) = (/ & - &4.2612e+01 ,3.2081e+01 ,2.1612e+01 ,1.2271e+01 ,4.8071e+00 /) - kbo(:, 2,18,10) = (/ & - &6.0147e+01 ,4.5223e+01 ,3.0329e+01 ,1.5934e+01 ,4.7499e+00 /) - kbo(:, 3,18,10) = (/ & - &8.0941e+01 ,6.0812e+01 ,4.0702e+01 ,2.0761e+01 ,4.6797e+00 /) - kbo(:, 4,18,10) = (/ & - &1.0473e+02 ,7.8652e+01 ,5.2586e+01 ,2.6600e+01 ,4.6080e+00 /) - kbo(:, 5,18,10) = (/ & - &1.3143e+02 ,9.8677e+01 ,6.5930e+01 ,3.3232e+01 ,4.5353e+00 /) - kbo(:, 1,19,10) = (/ & - &3.0448e+01 ,2.2951e+01 ,1.5620e+01 ,1.0168e+01 ,5.0350e+00 /) - kbo(:, 2,19,10) = (/ & - &4.2741e+01 ,3.2162e+01 ,2.1658e+01 ,1.2576e+01 ,4.9712e+00 /) - kbo(:, 3,19,10) = (/ & - &5.7239e+01 ,4.3029e+01 ,2.8857e+01 ,1.5561e+01 ,4.9060e+00 /) - kbo(:, 4,19,10) = (/ & - &7.3990e+01 ,5.5595e+01 ,3.7227e+01 ,1.9263e+01 ,4.8462e+00 /) - kbo(:, 5,19,10) = (/ & - &9.3283e+01 ,7.0062e+01 ,4.6859e+01 ,2.3820e+01 ,4.7826e+00 /) - kbo(:, 1,20,10) = (/ & - &2.3494e+01 ,1.7742e+01 ,1.2645e+01 ,9.3657e+00 ,5.1974e+00 /) - kbo(:, 2,20,10) = (/ & - &3.2767e+01 ,2.4679e+01 ,1.6836e+01 ,1.0930e+01 ,5.1468e+00 /) - kbo(:, 3,20,10) = (/ & - &4.3805e+01 ,3.2955e+01 ,2.2186e+01 ,1.3029e+01 ,5.0951e+00 /) - kbo(:, 4,20,10) = (/ & - &5.6900e+01 ,4.2771e+01 ,2.8686e+01 ,1.5712e+01 ,5.0360e+00 /) - kbo(:, 5,20,10) = (/ & - &7.2009e+01 ,5.4098e+01 ,3.6220e+01 ,1.9012e+01 ,4.9716e+00 /) - kbo(:, 1,21,10) = (/ & - &1.8574e+01 ,1.4067e+01 ,1.0798e+01 ,9.1144e+00 ,5.2989e+00 /) - kbo(:, 2,21,10) = (/ & - &2.5833e+01 ,1.9488e+01 ,1.3882e+01 ,1.0250e+01 ,5.2602e+00 /) - kbo(:, 3,21,10) = (/ & - &3.4706e+01 ,2.6128e+01 ,1.7872e+01 ,1.1627e+01 ,5.2166e+00 /) - kbo(:, 4,21,10) = (/ & - &4.5183e+01 ,3.3979e+01 ,2.2895e+01 ,1.3514e+01 ,5.1658e+00 /) - kbo(:, 5,21,10) = (/ & - &5.7162e+01 ,4.2958e+01 ,2.8816e+01 ,1.5946e+01 ,5.1078e+00 /) - kbo(:, 1,22,10) = (/ & - &1.5385e+01 ,1.1760e+01 ,9.8072e+00 ,8.9715e+00 ,5.3316e+00 /) - kbo(:, 2,22,10) = (/ & - &2.1421e+01 ,1.6187e+01 ,1.2154e+01 ,1.0019e+01 ,5.3065e+00 /) - kbo(:, 3,22,10) = (/ & - &2.8763e+01 ,2.1675e+01 ,1.5363e+01 ,1.1158e+01 ,5.2767e+00 /) - kbo(:, 4,22,10) = (/ & - &3.7378e+01 ,2.8123e+01 ,1.9262e+01 ,1.2474e+01 ,5.2393e+00 /) - kbo(:, 5,22,10) = (/ & - &4.7335e+01 ,3.5583e+01 ,2.3996e+01 ,1.4183e+01 ,5.1848e+00 /) - kbo(:, 1,23,10) = (/ & - &1.2958e+01 ,1.0148e+01 ,9.3026e+00 ,8.7646e+00 ,5.3174e+00 /) - kbo(:, 2,23,10) = (/ & - &1.8016e+01 ,1.3712e+01 ,1.1027e+01 ,9.7388e+00 ,5.3065e+00 /) - kbo(:, 3,23,10) = (/ & - &2.4116e+01 ,1.8203e+01 ,1.3458e+01 ,1.0800e+01 ,5.2863e+00 /) - kbo(:, 4,23,10) = (/ & - &3.1331e+01 ,2.3589e+01 ,1.6625e+01 ,1.1918e+01 ,5.2605e+00 /) - kbo(:, 5,23,10) = (/ & - &3.9751e+01 ,2.9901e+01 ,2.0473e+01 ,1.3180e+01 ,5.2164e+00 /) - kbo(:, 1,24,10) = (/ & - &1.0965e+01 ,8.9178e+00 ,8.8968e+00 ,8.4756e+00 ,5.2609e+00 /) - kbo(:, 2,24,10) = (/ & - &1.5180e+01 ,1.1787e+01 ,1.0354e+01 ,9.3845e+00 ,5.2622e+00 /) - kbo(:, 3,24,10) = (/ & - &2.0304e+01 ,1.5418e+01 ,1.2131e+01 ,1.0371e+01 ,5.2552e+00 /) - kbo(:, 4,24,10) = (/ & - &2.6453e+01 ,1.9955e+01 ,1.4586e+01 ,1.1412e+01 ,5.2428e+00 /) - kbo(:, 5,24,10) = (/ & - &3.3727e+01 ,2.5409e+01 ,1.7807e+01 ,1.2537e+01 ,5.2080e+00 /) - kbo(:, 1,25,10) = (/ & - &9.4802e+00 ,8.0678e+00 ,8.5346e+00 ,8.1689e+00 ,5.1602e+00 /) - kbo(:, 2,25,10) = (/ & - &1.3091e+01 ,1.0412e+01 ,9.8804e+00 ,9.0420e+00 ,5.1798e+00 /) - kbo(:, 3,25,10) = (/ & - &1.7556e+01 ,1.3502e+01 ,1.1390e+01 ,9.9740e+00 ,5.1919e+00 /) - kbo(:, 4,25,10) = (/ & - &2.2937e+01 ,1.7389e+01 ,1.3318e+01 ,1.0956e+01 ,5.1855e+00 /) - kbo(:, 5,25,10) = (/ & - &2.9162e+01 ,2.2007e+01 ,1.5910e+01 ,1.2043e+01 ,5.1753e+00 /) - kbo(:, 1,26,10) = (/ & - &8.4883e+00 ,7.6029e+00 ,8.2305e+00 ,7.8781e+00 ,5.0300e+00 /) - kbo(:, 2,26,10) = (/ & - &1.1732e+01 ,9.5611e+00 ,9.4929e+00 ,8.7340e+00 ,5.0703e+00 /) - kbo(:, 3,26,10) = (/ & - &1.5710e+01 ,1.2274e+01 ,1.0941e+01 ,9.6483e+00 ,5.1008e+00 /) - kbo(:, 4,26,10) = (/ & - &2.0377e+01 ,1.5577e+01 ,1.2626e+01 ,1.0617e+01 ,5.1143e+00 /) - kbo(:, 5,26,10) = (/ & - &2.5762e+01 ,1.9497e+01 ,1.4646e+01 ,1.1691e+01 ,5.1337e+00 /) - kbo(:, 1,27,10) = (/ & - &7.9831e+00 ,7.4657e+00 ,8.0386e+00 ,7.6712e+00 ,4.8762e+00 /) - kbo(:, 2,27,10) = (/ & - &1.1007e+01 ,9.2258e+00 ,9.2928e+00 ,8.5396e+00 ,4.9402e+00 /) - kbo(:, 3,27,10) = (/ & - &1.4621e+01 ,1.1594e+01 ,1.0757e+01 ,9.4652e+00 ,4.9915e+00 /) - kbo(:, 4,27,10) = (/ & - &1.8847e+01 ,1.4547e+01 ,1.2326e+01 ,1.0475e+01 ,5.0304e+00 /) - kbo(:, 5,27,10) = (/ & - &2.3744e+01 ,1.8045e+01 ,1.4056e+01 ,1.1545e+01 ,5.0808e+00 /) - kbo(:, 1,28,10) = (/ & - &7.7237e+00 ,7.4713e+00 ,7.9486e+00 ,7.5349e+00 ,4.7172e+00 /) - kbo(:, 2,28,10) = (/ & - &1.0564e+01 ,9.1113e+00 ,9.2602e+00 ,8.4182e+00 ,4.8066e+00 /) - kbo(:, 3,28,10) = (/ & - &1.3950e+01 ,1.1225e+01 ,1.0715e+01 ,9.3795e+00 ,4.8773e+00 /) - kbo(:, 4,28,10) = (/ & - &1.7938e+01 ,1.3957e+01 ,1.2227e+01 ,1.0437e+01 ,4.9557e+00 /) - kbo(:, 5,28,10) = (/ & - &2.2520e+01 ,1.7201e+01 ,1.3827e+01 ,1.1495e+01 ,5.0256e+00 /) - kbo(:, 1,29,10) = (/ & - &7.9252e+00 ,7.7575e+00 ,8.1492e+00 ,7.5791e+00 ,4.5608e+00 /) - kbo(:, 2,29,10) = (/ & - &1.0756e+01 ,9.3871e+00 ,9.5612e+00 ,8.5083e+00 ,4.6721e+00 /) - kbo(:, 3,29,10) = (/ & - &1.4151e+01 ,1.1455e+01 ,1.1026e+01 ,9.5615e+00 ,4.7742e+00 /) - kbo(:, 4,29,10) = (/ & - &1.8135e+01 ,1.4153e+01 ,1.2557e+01 ,1.0665e+01 ,4.8851e+00 /) - kbo(:, 5,29,10) = (/ & - &2.2757e+01 ,1.7409e+01 ,1.4161e+01 ,1.1730e+01 ,4.9738e+00 /) - kbo(:, 1,30,10) = (/ & - &8.3260e+00 ,8.1445e+00 ,8.5115e+00 ,7.7075e+00 ,4.4112e+00 /) - kbo(:, 2,30,10) = (/ & - &1.1239e+01 ,9.8059e+00 ,9.9796e+00 ,8.7369e+00 ,4.5506e+00 /) - kbo(:, 3,30,10) = (/ & - &1.4731e+01 ,1.1916e+01 ,1.1495e+01 ,9.8748e+00 ,4.7011e+00 /) - kbo(:, 4,30,10) = (/ & - &1.8856e+01 ,1.4710e+01 ,1.3064e+01 ,1.1008e+01 ,4.8328e+00 /) - kbo(:, 5,30,10) = (/ & - &2.3705e+01 ,1.8124e+01 ,1.4716e+01 ,1.2119e+01 ,4.9257e+00 /) - kbo(:, 1,31,10) = (/ & - &9.2196e+00 ,8.8116e+00 ,9.1465e+00 ,8.0622e+00 ,4.2873e+00 /) - kbo(:, 2,31,10) = (/ & - &1.2392e+01 ,1.0607e+01 ,1.0704e+01 ,9.2367e+00 ,4.4733e+00 /) - kbo(:, 3,31,10) = (/ & - &1.6211e+01 ,1.2983e+01 ,1.2309e+01 ,1.0449e+01 ,4.6511e+00 /) - kbo(:, 4,31,10) = (/ & - &2.0762e+01 ,1.6100e+01 ,1.3996e+01 ,1.1659e+01 ,4.7878e+00 /) - kbo(:, 5,31,10) = (/ & - &2.6150e+01 ,1.9908e+01 ,1.5819e+01 ,1.2859e+01 ,4.9198e+00 /) - kbo(:, 1,32,10) = (/ & - &1.0359e+01 ,9.6137e+00 ,9.8752e+00 ,8.5830e+00 ,4.2174e+00 /) - kbo(:, 2,32,10) = (/ & - &1.3877e+01 ,1.1631e+01 ,1.1538e+01 ,9.8576e+00 ,4.4285e+00 /) - kbo(:, 3,32,10) = (/ & - &1.8140e+01 ,1.4380e+01 ,1.3269e+01 ,1.1160e+01 ,4.5970e+00 /) - kbo(:, 4,32,10) = (/ & - &2.3264e+01 ,1.7927e+01 ,1.5118e+01 ,1.2461e+01 ,4.7493e+00 /) - kbo(:, 5,32,10) = (/ & - &2.9418e+01 ,2.2303e+01 ,1.7227e+01 ,1.3746e+01 ,4.9087e+00 /) - kbo(:, 1,33,10) = (/ & - &1.1859e+01 ,1.0640e+01 ,1.0773e+01 ,9.2560e+00 ,4.1651e+00 /) - kbo(:, 2,33,10) = (/ & - &1.5884e+01 ,1.3011e+01 ,1.2572e+01 ,1.0635e+01 ,4.3715e+00 /) - kbo(:, 3,33,10) = (/ & - &2.0782e+01 ,1.6260e+01 ,1.4502e+01 ,1.2047e+01 ,4.5449e+00 /) - kbo(:, 4,33,10) = (/ & - &2.6731e+01 ,2.0436e+01 ,1.6585e+01 ,1.3454e+01 ,4.7445e+00 /) - kbo(:, 5,33,10) = (/ & - &3.3983e+01 ,2.5659e+01 ,1.9186e+01 ,1.4880e+01 ,4.8947e+00 /) - kbo(:, 1,34,10) = (/ & - &1.3139e+01 ,1.1513e+01 ,1.1537e+01 ,9.8375e+00 ,4.1077e+00 /) - kbo(:, 2,34,10) = (/ & - &1.7636e+01 ,1.4225e+01 ,1.3489e+01 ,1.1311e+01 ,4.3160e+00 /) - kbo(:, 3,34,10) = (/ & - &2.3141e+01 ,1.7962e+01 ,1.5594e+01 ,1.2810e+01 ,4.5443e+00 /) - kbo(:, 4,34,10) = (/ & - &2.9960e+01 ,2.2778e+01 ,1.7924e+01 ,1.4335e+01 ,4.7397e+00 /) - kbo(:, 5,34,10) = (/ & - &3.8261e+01 ,2.8825e+01 ,2.1079e+01 ,1.5921e+01 ,4.9149e+00 /) - kbo(:, 1,35,10) = (/ & - &1.4201e+01 ,1.2261e+01 ,1.2213e+01 ,1.0330e+01 ,4.0399e+00 /) - kbo(:, 2,35,10) = (/ & - &1.9135e+01 ,1.5305e+01 ,1.4323e+01 ,1.1895e+01 ,4.2894e+00 /) - kbo(:, 3,35,10) = (/ & - &2.5318e+01 ,1.9545e+01 ,1.6589e+01 ,1.3508e+01 ,4.5397e+00 /) - kbo(:, 4,35,10) = (/ & - &3.3021e+01 ,2.5025e+01 ,1.9285e+01 ,1.5170e+01 ,4.7565e+00 /) - kbo(:, 5,35,10) = (/ & - &4.2461e+01 ,3.1954e+01 ,2.3012e+01 ,1.6958e+01 ,4.9332e+00 /) - kbo(:, 1,36,10) = (/ & - &1.4798e+01 ,1.2717e+01 ,1.2670e+01 ,1.0657e+01 ,3.9724e+00 /) - kbo(:, 2,36,10) = (/ & - &2.0092e+01 ,1.6016e+01 ,1.4899e+01 ,1.2316e+01 ,4.2681e+00 /) - kbo(:, 3,36,10) = (/ & - &2.6852e+01 ,2.0677e+01 ,1.7358e+01 ,1.4052e+01 ,4.5368e+00 /) - kbo(:, 4,36,10) = (/ & - &3.5362e+01 ,2.6747e+01 ,2.0391e+01 ,1.5864e+01 ,4.7528e+00 /) - kbo(:, 5,36,10) = (/ & - &4.5869e+01 ,3.4503e+01 ,2.4644e+01 ,1.7859e+01 ,4.9480e+00 /) - kbo(:, 1,37,10) = (/ & - &1.4369e+01 ,1.2549e+01 ,1.2615e+01 ,1.0629e+01 ,3.8875e+00 /) - kbo(:, 2,37,10) = (/ & - &1.9757e+01 ,1.5840e+01 ,1.4922e+01 ,1.2359e+01 ,4.2086e+00 /) - kbo(:, 3,37,10) = (/ & - &2.6704e+01 ,2.0605e+01 ,1.7493e+01 ,1.4185e+01 ,4.4864e+00 /) - kbo(:, 4,37,10) = (/ & - &3.5588e+01 ,2.6935e+01 ,2.0650e+01 ,1.6109e+01 ,4.7274e+00 /) - kbo(:, 5,37,10) = (/ & - &4.6659e+01 ,3.5099e+01 ,2.5115e+01 ,1.8232e+01 ,4.9396e+00 /) - kbo(:, 1,38,10) = (/ & - &1.4144e+01 ,1.2516e+01 ,1.2646e+01 ,1.0674e+01 ,3.8121e+00 /) - kbo(:, 2,38,10) = (/ & - &1.9692e+01 ,1.5869e+01 ,1.5055e+01 ,1.2490e+01 ,4.1526e+00 /) - kbo(:, 3,38,10) = (/ & - &2.6928e+01 ,2.0800e+01 ,1.7766e+01 ,1.4428e+01 ,4.4461e+00 /) - kbo(:, 4,38,10) = (/ & - &3.6364e+01 ,2.7528e+01 ,2.1122e+01 ,1.6470e+01 ,4.6931e+00 /) - kbo(:, 5,38,10) = (/ & - &4.8190e+01 ,3.6248e+01 ,2.5894e+01 ,1.8774e+01 ,4.9281e+00 /) - kbo(:, 1,39,10) = (/ & - &1.4265e+01 ,1.2699e+01 ,1.2840e+01 ,1.0848e+01 ,3.7413e+00 /) - kbo(:, 2,39,10) = (/ & - &2.0117e+01 ,1.6218e+01 ,1.5387e+01 ,1.2783e+01 ,4.1060e+00 /) - kbo(:, 3,39,10) = (/ & - &2.7852e+01 ,2.1494e+01 ,1.8320e+01 ,1.4851e+01 ,4.4149e+00 /) - kbo(:, 4,39,10) = (/ & - &3.8047e+01 ,2.8782e+01 ,2.1981e+01 ,1.7084e+01 ,4.6584e+00 /) - kbo(:, 5,39,10) = (/ & - &5.1036e+01 ,3.8378e+01 ,2.7311e+01 ,1.9599e+01 ,4.9209e+00 /) - kbo(:, 1,40,10) = (/ & - &1.3045e+01 ,1.2072e+01 ,1.2332e+01 ,1.0515e+01 ,3.6349e+00 /) - kbo(:, 2,40,10) = (/ & - &1.8669e+01 ,1.5342e+01 ,1.4892e+01 ,1.2474e+01 ,4.0124e+00 /) - kbo(:, 3,40,10) = (/ & - &2.6244e+01 ,2.0390e+01 ,1.7841e+01 ,1.4589e+01 ,4.3337e+00 /) - kbo(:, 4,40,10) = (/ & - &3.6291e+01 ,2.7528e+01 ,2.1453e+01 ,1.6896e+01 ,4.5936e+00 /) - kbo(:, 5,40,10) = (/ & - &4.9350e+01 ,3.7123e+01 ,2.6680e+01 ,1.9495e+01 ,4.8667e+00 /) - kbo(:, 1,41,10) = (/ & - &1.1803e+01 ,1.1439e+01 ,1.1786e+01 ,1.0149e+01 ,3.5171e+00 /) - kbo(:, 2,41,10) = (/ & - &1.7194e+01 ,1.4495e+01 ,1.4344e+01 ,1.2127e+01 ,3.9113e+00 /) - kbo(:, 3,41,10) = (/ & - &2.4539e+01 ,1.9243e+01 ,1.7307e+01 ,1.4275e+01 ,4.2454e+00 /) - kbo(:, 4,41,10) = (/ & - &3.4381e+01 ,2.6175e+01 ,2.0871e+01 ,1.6646e+01 ,4.5236e+00 /) - kbo(:, 5,41,10) = (/ & - &4.7387e+01 ,3.5674e+01 ,2.5938e+01 ,1.9314e+01 ,4.8021e+00 /) - kbo(:, 1,42,10) = (/ & - &1.0775e+01 ,1.0903e+01 ,1.1326e+01 ,9.8291e+00 ,3.4027e+00 /) - kbo(:, 2,42,10) = (/ & - &1.5966e+01 ,1.3847e+01 ,1.3900e+01 ,1.1829e+01 ,3.8068e+00 /) - kbo(:, 3,42,10) = (/ & - &2.3163e+01 ,1.8350e+01 ,1.6888e+01 ,1.4033e+01 ,4.1524e+00 /) - kbo(:, 4,42,10) = (/ & - &3.2905e+01 ,2.5146e+01 ,2.0462e+01 ,1.6474e+01 ,4.4507e+00 /) - kbo(:, 5,42,10) = (/ & - &4.5959e+01 ,3.4632e+01 ,2.5458e+01 ,1.9233e+01 ,4.7372e+00 /) - kbo(:, 1,43,10) = (/ & - &9.6785e+00 ,1.0293e+01 ,1.0788e+01 ,9.4380e+00 ,3.2651e+00 /) - kbo(:, 2,43,10) = (/ & - &1.4578e+01 ,1.3133e+01 ,1.3380e+01 ,1.1460e+01 ,3.6820e+00 /) - kbo(:, 3,43,10) = (/ & - &2.1568e+01 ,1.7343e+01 ,1.6367e+01 ,1.3704e+01 ,4.0432e+00 /) - kbo(:, 4,43,10) = (/ & - &3.1160e+01 ,2.3941e+01 ,1.9961e+01 ,1.6215e+01 ,4.3540e+00 /) - kbo(:, 5,43,10) = (/ & - &4.4112e+01 ,3.3295e+01 ,2.4834e+01 ,1.9063e+01 ,4.6487e+00 /) - kbo(:, 1,44,10) = (/ & - &8.6703e+00 ,9.7103e+00 ,1.0263e+01 ,9.0428e+00 ,3.1167e+00 /) - kbo(:, 2,44,10) = (/ & - &1.3323e+01 ,1.2507e+01 ,1.2872e+01 ,1.1099e+01 ,3.5429e+00 /) - kbo(:, 3,44,10) = (/ & - &2.0055e+01 ,1.6451e+01 ,1.5900e+01 ,1.3381e+01 ,3.9213e+00 /) - kbo(:, 4,44,10) = (/ & - &2.9535e+01 ,2.2835e+01 ,1.9530e+01 ,1.5970e+01 ,4.2481e+00 /) - kbo(:, 5,44,10) = (/ & - &4.2449e+01 ,3.2099e+01 ,2.4329e+01 ,1.8926e+01 ,4.5571e+00 /) - kbo(:, 1,45,10) = (/ & - &7.8818e+00 ,9.2454e+00 ,9.8403e+00 ,8.7130e+00 ,2.9638e+00 /) - kbo(:, 2,45,10) = (/ & - &1.2355e+01 ,1.2035e+01 ,1.2482e+01 ,1.0822e+01 ,3.4038e+00 /) - kbo(:, 3,45,10) = (/ & - &1.8948e+01 ,1.5842e+01 ,1.5587e+01 ,1.3162e+01 ,3.7919e+00 /) - kbo(:, 4,45,10) = (/ & - &2.8443e+01 ,2.2122e+01 ,1.9322e+01 ,1.5846e+01 ,4.1405e+00 /) - kbo(:, 5,45,10) = (/ & - &4.1558e+01 ,3.1475e+01 ,2.4163e+01 ,1.8949e+01 ,4.4650e+00 /) - kbo(:, 1,46,10) = (/ & - &7.1089e+00 ,8.7733e+00 ,9.3941e+00 ,8.3547e+00 ,2.8054e+00 /) - kbo(:, 2,46,10) = (/ & - &1.1401e+01 ,1.1562e+01 ,1.2067e+01 ,1.0520e+01 ,3.2536e+00 /) - kbo(:, 3,46,10) = (/ & - &1.7834e+01 ,1.5248e+01 ,1.5247e+01 ,1.2927e+01 ,3.6528e+00 /) - kbo(:, 4,46,10) = (/ & - &2.7249e+01 ,2.1375e+01 ,1.9093e+01 ,1.5705e+01 ,4.0192e+00 /) - kbo(:, 5,46,10) = (/ & - &4.0651e+01 ,3.0866e+01 ,2.4015e+01 ,1.8943e+01 ,4.3574e+00 /) - kbo(:, 1,47,10) = (/ & - &6.1649e+00 ,8.1403e+00 ,8.7798e+00 ,7.8562e+00 ,2.6253e+00 /) - kbo(:, 2,47,10) = (/ & - &1.0138e+01 ,1.0874e+01 ,1.1437e+01 ,1.0055e+01 ,3.0768e+00 /) - kbo(:, 3,47,10) = (/ & - &1.6220e+01 ,1.4389e+01 ,1.4631e+01 ,1.2502e+01 ,3.4927e+00 /) - kbo(:, 4,47,10) = (/ & - &2.5292e+01 ,2.0083e+01 ,1.8506e+01 ,1.5334e+01 ,3.8713e+00 /) - kbo(:, 5,47,10) = (/ & - &3.8579e+01 ,2.9419e+01 ,2.3431e+01 ,1.8659e+01 ,4.2295e+00 /) - kbo(:, 1,48,10) = (/ & - &5.4216e+00 ,7.6284e+00 ,8.2781e+00 ,7.4282e+00 ,2.4448e+00 /) - kbo(:, 2,48,10) = (/ & - &9.1674e+00 ,1.0353e+01 ,1.0955e+01 ,9.6794e+00 ,2.8941e+00 /) - kbo(:, 3,48,10) = (/ & - &1.5043e+01 ,1.3839e+01 ,1.4203e+01 ,1.2197e+01 ,3.3245e+00 /) - kbo(:, 4,48,10) = (/ & - &2.3974e+01 ,1.9288e+01 ,1.8167e+01 ,1.5125e+01 ,3.7165e+00 /) - kbo(:, 5,48,10) = (/ & - &3.7305e+01 ,2.8554e+01 ,2.3217e+01 ,1.8594e+01 ,4.0932e+00 /) - kbo(:, 1,49,10) = (/ & - &4.8939e+00 ,7.2548e+00 ,7.9080e+00 ,7.0906e+00 ,2.2660e+00 /) - kbo(:, 2,49,10) = (/ & - &8.5415e+00 ,1.0039e+01 ,1.0662e+01 ,9.4308e+00 ,2.7166e+00 /) - kbo(:, 3,49,10) = (/ & - &1.4366e+01 ,1.3618e+01 ,1.4041e+01 ,1.2074e+01 ,3.1539e+00 /) - kbo(:, 4,49,10) = (/ & - &2.3519e+01 ,1.9097e+01 ,1.8194e+01 ,1.5161e+01 ,3.5625e+00 /) - kbo(:, 5,49,10) = (/ & - &3.7354e+01 ,2.8637e+01 ,2.3540e+01 ,1.8862e+01 ,3.9655e+00 /) - kbo(:, 1,50,10) = (/ & - &4.2089e+00 ,6.7050e+00 ,7.3787e+00 ,6.6334e+00 ,2.0951e+00 /) - kbo(:, 2,50,10) = (/ & - &7.5781e+00 ,9.4477e+00 ,1.0132e+01 ,8.9977e+00 ,2.5467e+00 /) - kbo(:, 3,50,10) = (/ & - &1.3098e+01 ,1.3002e+01 ,1.3521e+01 ,1.1708e+01 ,2.9888e+00 /) - kbo(:, 4,50,10) = (/ & - &2.2021e+01 ,1.8246e+01 ,1.7755e+01 ,1.4869e+01 ,3.4160e+00 /) - kbo(:, 5,50,10) = (/ & - &3.5802e+01 ,2.7586e+01 ,2.3214e+01 ,1.8702e+01 ,3.8321e+00 /) - kbo(:, 1,51,10) = (/ & - &3.5246e+00 ,6.0952e+00 ,6.7836e+00 ,6.1221e+00 ,1.9285e+00 /) - kbo(:, 2,51,10) = (/ & - &6.5392e+00 ,8.7579e+00 ,9.5007e+00 ,8.4899e+00 ,2.3790e+00 /) - kbo(:, 3,51,10) = (/ & - &1.1662e+01 ,1.2207e+01 ,1.2854e+01 ,1.1229e+01 ,2.8289e+00 /) - kbo(:, 4,51,10) = (/ & - &2.0094e+01 ,1.7146e+01 ,1.7077e+01 ,1.4419e+01 ,3.2637e+00 /) - kbo(:, 5,51,10) = (/ & - &3.3544e+01 ,2.6031e+01 ,2.2586e+01 ,1.8311e+01 ,3.6955e+00 /) - kbo(:, 1,52,10) = (/ & - &2.9972e+00 ,5.5809e+00 ,6.2670e+00 ,5.6729e+00 ,1.7637e+00 /) - kbo(:, 2,52,10) = (/ & - &5.7401e+00 ,8.2025e+00 ,8.9834e+00 ,8.0597e+00 ,2.2115e+00 /) - kbo(:, 3,52,10) = (/ & - &1.0553e+01 ,1.1618e+01 ,1.2357e+01 ,1.0861e+01 ,2.6710e+00 /) - kbo(:, 4,52,10) = (/ & - &1.8666e+01 ,1.6392e+01 ,1.6645e+01 ,1.4126e+01 ,3.1091e+00 /) - kbo(:, 5,52,10) = (/ & - &3.2058e+01 ,2.5069e+01 ,2.2259e+01 ,1.8128e+01 ,3.5578e+00 /) - kbo(:, 1,53,10) = (/ & - &2.6079e+00 ,5.1734e+00 ,5.8449e+00 ,5.2987e+00 ,1.6026e+00 /) - kbo(:, 2,53,10) = (/ & - &5.1862e+00 ,7.8030e+00 ,8.6055e+00 ,7.7246e+00 ,2.0456e+00 /) - kbo(:, 3,53,10) = (/ & - &9.8254e+00 ,1.1267e+01 ,1.2065e+01 ,1.0633e+01 ,2.5075e+00 /) - kbo(:, 4,53,10) = (/ & - &1.7902e+01 ,1.6069e+01 ,1.6506e+01 ,1.4053e+01 ,2.9528e+00 /) - kbo(:, 5,53,10) = (/ & - &3.1626e+01 ,2.4842e+01 ,2.2382e+01 ,1.8272e+01 ,3.4166e+00 /) - kbo(:, 1,54,10) = (/ & - &1.9692e+00 ,4.4492e+00 ,5.0971e+00 ,4.6730e+00 ,1.4560e+00 /) - kbo(:, 2,54,10) = (/ & - &4.0777e+00 ,6.8483e+00 ,7.6942e+00 ,6.9748e+00 ,1.8918e+00 /) - kbo(:, 3,54,10) = (/ & - &7.9636e+00 ,1.0044e+01 ,1.0960e+01 ,9.7978e+00 ,2.3486e+00 /) - kbo(:, 4,54,10) = (/ & - &1.4982e+01 ,1.4434e+01 ,1.5164e+01 ,1.3125e+01 ,2.8028e+00 /) - kbo(:, 5,54,10) = (/ & - &2.7158e+01 ,2.1902e+01 ,2.0733e+01 ,1.7211e+01 ,3.2543e+00 /) - kbo(:, 1,55,10) = (/ & - &1.3507e+00 ,3.6433e+00 ,4.2566e+00 ,3.9661e+00 ,1.3130e+00 /) - kbo(:, 2,55,10) = (/ & - &2.9154e+00 ,5.7215e+00 ,6.5830e+00 ,6.0536e+00 ,1.7424e+00 /) - kbo(:, 3,55,10) = (/ & - &5.8789e+00 ,8.5105e+00 ,9.5339e+00 ,8.6749e+00 ,2.1951e+00 /) - kbo(:, 4,55,10) = (/ & - &1.1400e+01 ,1.2318e+01 ,1.3311e+01 ,1.1788e+01 ,2.6530e+00 /) - kbo(:, 5,55,10) = (/ & - &2.1258e+01 ,1.8155e+01 ,1.8294e+01 ,1.5532e+01 ,3.0990e+00 /) - kbo(:, 1,56,10) = (/ & - &9.1417e-01 ,2.9676e+00 ,3.5310e+00 ,3.3437e+00 ,1.1797e+00 /) - kbo(:, 2,56,10) = (/ & - &2.0541e+00 ,4.7744e+00 ,5.6130e+00 ,5.2303e+00 ,1.5997e+00 /) - kbo(:, 3,56,10) = (/ & - &4.2988e+00 ,7.2236e+00 ,8.2994e+00 ,7.6574e+00 ,2.0435e+00 /) - kbo(:, 4,56,10) = (/ & - &8.5903e+00 ,1.0539e+01 ,1.1687e+01 ,1.0572e+01 ,2.5005e+00 /) - kbo(:, 5,56,10) = (/ & - &1.6506e+01 ,1.5331e+01 ,1.6174e+01 ,1.4030e+01 ,2.9531e+00 /) - kbo(:, 1,57,10) = (/ & - &6.0887e-01 ,2.4030e+00 ,2.9065e+00 ,2.7971e+00 ,1.0495e+00 /) - kbo(:, 2,57,10) = (/ & - &1.4281e+00 ,3.9782e+00 ,4.7656e+00 ,4.4965e+00 ,1.4561e+00 /) - kbo(:, 3,57,10) = (/ & - &3.1054e+00 ,6.1238e+00 ,7.2122e+00 ,6.7209e+00 ,1.8934e+00 /) - kbo(:, 4,57,10) = (/ & - &6.4056e+00 ,9.0325e+00 ,1.0294e+01 ,9.4596e+00 ,2.3523e+00 /) - kbo(:, 5,57,10) = (/ & - &1.2719e+01 ,1.3167e+01 ,1.4312e+01 ,1.2682e+01 ,2.8029e+00 /) - kbo(:, 1,58,10) = (/ & - &1.0707e-01 ,6.3953e-01 ,1.0127e+00 ,1.3896e+00 ,9.3114e-01 /) - kbo(:, 2,58,10) = (/ & - &2.6195e-01 ,1.0902e+00 ,1.7100e+00 ,2.2949e+00 ,1.3241e+00 /) - kbo(:, 3,58,10) = (/ & - &5.9147e-01 ,1.7109e+00 ,2.6503e+00 ,3.5010e+00 ,1.7544e+00 /) - kbo(:, 4,58,10) = (/ & - &1.2606e+00 ,2.5523e+00 ,3.8433e+00 ,5.0138e+00 ,2.2018e+00 /) - kbo(:, 5,58,10) = (/ & - &2.5874e+00 ,3.7372e+00 ,5.3689e+00 ,6.8137e+00 ,2.6612e+00 /) - kbo(:, 1,59,10) = (/ & - &9.9298e-02 ,7.6667e-01 ,1.1645e+00 ,1.4612e+00 ,8.8547e-01 /) - kbo(:, 2,59,10) = (/ & - &2.4968e-01 ,1.3224e+00 ,1.9807e+00 ,2.4248e+00 ,1.2655e+00 /) - kbo(:, 3,59,10) = (/ & - &5.7897e-01 ,2.0921e+00 ,3.0941e+00 ,3.7073e+00 ,1.6878e+00 /) - kbo(:, 4,59,10) = (/ & - &1.2660e+00 ,3.1094e+00 ,4.5051e+00 ,5.3308e+00 ,2.1316e+00 /) - kbo(:, 5,59,10) = (/ & - &2.6665e+00 ,4.5101e+00 ,6.2520e+00 ,7.2627e+00 ,2.5824e+00 /) - kbo(:, 1,13,11) = (/ & - &4.9137e+02 ,3.6866e+02 ,2.4595e+02 ,1.2325e+02 ,3.7154e+00 /) - kbo(:, 2,13,11) = (/ & - &7.1842e+02 ,5.3894e+02 ,3.5946e+02 ,1.7998e+02 ,3.6255e+00 /) - kbo(:, 3,13,11) = (/ & - &9.9186e+02 ,7.4402e+02 ,4.9618e+02 ,2.4833e+02 ,3.5452e+00 /) - kbo(:, 4,13,11) = (/ & - &1.3059e+03 ,9.7954e+02 ,6.5319e+02 ,3.2683e+02 ,3.4736e+00 /) - kbo(:, 5,13,11) = (/ & - &1.6553e+03 ,1.2416e+03 ,8.2787e+02 ,4.1417e+02 ,3.4158e+00 /) - kbo(:, 1,14,11) = (/ & - &3.1242e+02 ,2.3443e+02 ,1.5644e+02 ,7.8454e+01 ,4.0956e+00 /) - kbo(:, 2,14,11) = (/ & - &4.5149e+02 ,3.3873e+02 ,2.2597e+02 ,1.1322e+02 ,4.0089e+00 /) - kbo(:, 3,14,11) = (/ & - &6.1672e+02 ,4.6265e+02 ,3.0858e+02 ,1.5452e+02 ,3.9350e+00 /) - kbo(:, 4,14,11) = (/ & - &8.0574e+02 ,6.0442e+02 ,4.0309e+02 ,2.0177e+02 ,3.8665e+00 /) - kbo(:, 5,14,11) = (/ & - &1.0145e+03 ,7.6099e+02 ,5.0748e+02 ,2.5397e+02 ,3.7755e+00 /) - kbo(:, 1,15,11) = (/ & - &1.9759e+02 ,1.4830e+02 ,9.9018e+01 ,4.9739e+01 ,4.5712e+00 /) - kbo(:, 2,15,11) = (/ & - &2.8230e+02 ,2.1184e+02 ,1.4137e+02 ,7.0907e+01 ,4.4810e+00 /) - kbo(:, 3,15,11) = (/ & - &3.8219e+02 ,2.8675e+02 ,1.9132e+02 ,9.5881e+01 ,4.3973e+00 /) - kbo(:, 4,15,11) = (/ & - &4.9586e+02 ,3.7201e+02 ,2.4816e+02 ,1.2430e+02 ,4.3207e+00 /) - kbo(:, 5,15,11) = (/ & - &6.2301e+02 ,4.6738e+02 ,3.1174e+02 ,1.5610e+02 ,4.2419e+00 /) - kbo(:, 1,16,11) = (/ & - &1.4534e+02 ,1.0912e+02 ,7.2899e+01 ,3.6687e+01 ,5.0599e+00 /) - kbo(:, 2,16,11) = (/ & - &2.0548e+02 ,1.5423e+02 ,1.0297e+02 ,5.1715e+01 ,4.9736e+00 /) - kbo(:, 3,16,11) = (/ & - &2.7637e+02 ,2.0739e+02 ,1.3841e+02 ,6.9439e+01 ,4.8882e+00 /) - kbo(:, 4,16,11) = (/ & - &3.5789e+02 ,2.6854e+02 ,1.7918e+02 ,8.9827e+01 ,4.8052e+00 /) - kbo(:, 5,16,11) = (/ & - &4.4907e+02 ,3.3692e+02 ,2.2477e+02 ,1.1262e+02 ,4.7153e+00 /) - kbo(:, 1,17,11) = (/ & - &1.0823e+02 ,8.1288e+01 ,5.4344e+01 ,2.7412e+01 ,5.5645e+00 /) - kbo(:, 2,17,11) = (/ & - &1.5200e+02 ,1.1412e+02 ,7.6233e+01 ,3.8355e+01 ,5.4748e+00 /) - kbo(:, 3,17,11) = (/ & - &2.0403e+02 ,1.5314e+02 ,1.0225e+02 ,5.1364e+01 ,5.3859e+00 /) - kbo(:, 4,17,11) = (/ & - &2.6361e+02 ,1.9782e+02 ,1.3204e+02 ,6.6255e+01 ,5.2931e+00 /) - kbo(:, 5,17,11) = (/ & - &3.3009e+02 ,2.4768e+02 ,1.6528e+02 ,8.2867e+01 ,5.1961e+00 /) - kbo(:, 1,18,11) = (/ & - &8.1232e+01 ,6.1036e+01 ,4.0843e+01 ,2.0768e+01 ,6.0688e+00 /) - kbo(:, 2,18,11) = (/ & - &1.1380e+02 ,8.5466e+01 ,5.7129e+01 ,2.8802e+01 ,5.9719e+00 /) - kbo(:, 3,18,11) = (/ & - &1.5225e+02 ,1.1430e+02 ,7.6349e+01 ,3.8404e+01 ,5.8780e+00 /) - kbo(:, 4,18,11) = (/ & - &1.9624e+02 ,1.4729e+02 ,9.8340e+01 ,4.9394e+01 ,5.7787e+00 /) - kbo(:, 5,18,11) = (/ & - &2.4493e+02 ,1.8381e+02 ,1.2268e+02 ,6.1561e+01 ,5.6709e+00 /) - kbo(:, 1,19,11) = (/ & - &5.9301e+01 ,4.4585e+01 ,2.9875e+01 ,1.6238e+01 ,6.5385e+00 /) - kbo(:, 2,19,11) = (/ & - &8.2717e+01 ,6.2145e+01 ,4.1575e+01 ,2.1335e+01 ,6.4509e+00 /) - kbo(:, 3,19,11) = (/ & - &1.1031e+02 ,8.2837e+01 ,5.5366e+01 ,2.7948e+01 ,6.3522e+00 /) - kbo(:, 4,19,11) = (/ & - &1.4167e+02 ,1.0635e+02 ,7.1041e+01 ,3.5737e+01 ,6.2392e+00 /) - kbo(:, 5,19,11) = (/ & - &1.7630e+02 ,1.3232e+02 ,8.8349e+01 ,4.4378e+01 ,6.1191e+00 /) - kbo(:, 1,20,11) = (/ & - &4.6675e+01 ,3.5111e+01 ,2.3575e+01 ,1.4266e+01 ,6.9620e+00 /) - kbo(:, 2,20,11) = (/ & - &6.4787e+01 ,4.8692e+01 ,3.2603e+01 ,1.7833e+01 ,6.8738e+00 /) - kbo(:, 3,20,11) = (/ & - &8.5965e+01 ,6.4574e+01 ,4.3185e+01 ,2.2381e+01 ,6.7710e+00 /) - kbo(:, 4,20,11) = (/ & - &1.0993e+02 ,8.2545e+01 ,5.5164e+01 ,2.7968e+01 ,6.6598e+00 /) - kbo(:, 5,20,11) = (/ & - &1.3666e+02 ,1.0259e+02 ,6.8531e+01 ,3.4499e+01 ,6.5455e+00 /) - kbo(:, 1,21,11) = (/ & - &3.7501e+01 ,2.8227e+01 ,1.9281e+01 ,1.3115e+01 ,7.3104e+00 /) - kbo(:, 2,21,11) = (/ & - &5.1743e+01 ,3.8905e+01 ,2.6108e+01 ,1.5684e+01 ,7.2251e+00 /) - kbo(:, 3,21,11) = (/ & - &6.8349e+01 ,5.1361e+01 ,3.4375e+01 ,1.9019e+01 ,7.1334e+00 /) - kbo(:, 4,21,11) = (/ & - &8.7361e+01 ,6.5620e+01 ,4.3882e+01 ,2.3034e+01 ,7.0346e+00 /) - kbo(:, 5,21,11) = (/ & - &1.0904e+02 ,8.1880e+01 ,5.4724e+01 ,2.7964e+01 ,6.9286e+00 /) - kbo(:, 1,22,11) = (/ & - &3.1289e+01 ,2.3566e+01 ,1.6825e+01 ,1.2828e+01 ,7.5760e+00 /) - kbo(:, 2,22,11) = (/ & - &4.2825e+01 ,3.2216e+01 ,2.1971e+01 ,1.4588e+01 ,7.5079e+00 /) - kbo(:, 3,22,11) = (/ & - &5.6403e+01 ,4.2401e+01 ,2.8462e+01 ,1.6984e+01 ,7.4270e+00 /) - kbo(:, 4,22,11) = (/ & - &7.2294e+01 ,5.4320e+01 ,3.6353e+01 ,2.0165e+01 ,7.3380e+00 /) - kbo(:, 5,22,11) = (/ & - &9.0391e+01 ,6.7890e+01 ,4.5398e+01 ,2.4037e+01 ,7.2398e+00 /) - kbo(:, 1,23,11) = (/ & - &2.6113e+01 ,1.9694e+01 ,1.4984e+01 ,1.2807e+01 ,7.7662e+00 /) - kbo(:, 2,23,11) = (/ & - &3.5611e+01 ,2.6805e+01 ,1.8996e+01 ,1.4145e+01 ,7.7141e+00 /) - kbo(:, 3,23,11) = (/ & - &4.7007e+01 ,3.5353e+01 ,2.4112e+01 ,1.5803e+01 ,7.6529e+00 /) - kbo(:, 4,23,11) = (/ & - &6.0260e+01 ,4.5296e+01 ,3.0446e+01 ,1.8119e+01 ,7.5779e+00 /) - kbo(:, 5,23,11) = (/ & - &7.5402e+01 ,5.6642e+01 ,3.7917e+01 ,2.1118e+01 ,7.4889e+00 /) - kbo(:, 1,24,11) = (/ & - &2.1744e+01 ,1.6531e+01 ,1.3667e+01 ,1.2705e+01 ,7.8734e+00 /) - kbo(:, 2,24,11) = (/ & - &2.9665e+01 ,2.2353e+01 ,1.6710e+01 ,1.3918e+01 ,7.8466e+00 /) - kbo(:, 3,24,11) = (/ & - &3.9143e+01 ,2.9459e+01 ,2.0787e+01 ,1.5226e+01 ,7.8065e+00 /) - kbo(:, 4,24,11) = (/ & - &5.0222e+01 ,3.7761e+01 ,2.5773e+01 ,1.6824e+01 ,7.7511e+00 /) - kbo(:, 5,24,11) = (/ & - &6.2928e+01 ,4.7282e+01 ,3.1824e+01 ,1.8958e+01 ,7.6816e+00 /) - kbo(:, 1,25,11) = (/ & - &1.8556e+01 ,1.4391e+01 ,1.2986e+01 ,1.2542e+01 ,7.9223e+00 /) - kbo(:, 2,25,11) = (/ & - &2.5288e+01 ,1.9166e+01 ,1.5272e+01 ,1.3696e+01 ,7.9207e+00 /) - kbo(:, 3,25,11) = (/ & - &3.3328e+01 ,2.5101e+01 ,1.8448e+01 ,1.4913e+01 ,7.9039e+00 /) - kbo(:, 4,25,11) = (/ & - &4.2799e+01 ,3.2187e+01 ,2.2557e+01 ,1.6216e+01 ,7.8725e+00 /) - kbo(:, 5,25,11) = (/ & - &5.3844e+01 ,4.0473e+01 ,2.7585e+01 ,1.7777e+01 ,7.8216e+00 /) - kbo(:, 1,26,11) = (/ & - &1.6321e+01 ,1.3012e+01 ,1.2671e+01 ,1.2389e+01 ,7.9293e+00 /) - kbo(:, 2,26,11) = (/ & - &2.2176e+01 ,1.7013e+01 ,1.4541e+01 ,1.3492e+01 ,7.9549e+00 /) - kbo(:, 3,26,11) = (/ & - &2.9236e+01 ,2.2092e+01 ,1.7014e+01 ,1.4647e+01 ,7.9628e+00 /) - kbo(:, 4,26,11) = (/ & - &3.7703e+01 ,2.8378e+01 ,2.0439e+01 ,1.5868e+01 ,7.9537e+00 /) - kbo(:, 5,26,11) = (/ & - &4.7623e+01 ,3.5826e+01 ,2.4857e+01 ,1.7188e+01 ,7.9177e+00 /) - kbo(:, 1,27,11) = (/ & - &1.5028e+01 ,1.2264e+01 ,1.2582e+01 ,1.2313e+01 ,7.9116e+00 /) - kbo(:, 2,27,11) = (/ & - &2.0393e+01 ,1.5855e+01 ,1.4339e+01 ,1.3407e+01 ,7.9620e+00 /) - kbo(:, 3,27,11) = (/ & - &2.6998e+01 ,2.0503e+01 ,1.6441e+01 ,1.4550e+01 ,7.9958e+00 /) - kbo(:, 4,27,11) = (/ & - &3.4948e+01 ,2.6342e+01 ,1.9460e+01 ,1.5757e+01 ,8.0119e+00 /) - kbo(:, 5,27,11) = (/ & - &4.4164e+01 ,3.3250e+01 ,2.3464e+01 ,1.7068e+01 ,7.9872e+00 /) - kbo(:, 1,28,11) = (/ & - &1.4343e+01 ,1.1935e+01 ,1.2606e+01 ,1.2286e+01 ,7.8708e+00 /) - kbo(:, 2,28,11) = (/ & - &1.9534e+01 ,1.5338e+01 ,1.4333e+01 ,1.3405e+01 ,7.9546e+00 /) - kbo(:, 3,28,11) = (/ & - &2.5909e+01 ,1.9792e+01 ,1.6354e+01 ,1.4575e+01 ,8.0164e+00 /) - kbo(:, 4,28,11) = (/ & - &3.3450e+01 ,2.5271e+01 ,1.9104e+01 ,1.5810e+01 ,8.0394e+00 /) - kbo(:, 5,28,11) = (/ & - &4.2201e+01 ,3.1789e+01 ,2.2776e+01 ,1.7191e+01 ,8.0384e+00 /) - kbo(:, 1,29,11) = (/ & - &1.4799e+01 ,1.2334e+01 ,1.2951e+01 ,1.2470e+01 ,7.8248e+00 /) - kbo(:, 2,29,11) = (/ & - &2.0134e+01 ,1.5845e+01 ,1.4778e+01 ,1.3682e+01 ,7.9390e+00 /) - kbo(:, 3,29,11) = (/ & - &2.6563e+01 ,2.0336e+01 ,1.6926e+01 ,1.4933e+01 ,8.0194e+00 /) - kbo(:, 4,29,11) = (/ & - &3.4143e+01 ,2.5818e+01 ,1.9648e+01 ,1.6307e+01 ,8.0590e+00 /) - kbo(:, 5,29,11) = (/ & - &4.2969e+01 ,3.2368e+01 ,2.3282e+01 ,1.7794e+01 ,8.0931e+00 /) - kbo(:, 1,30,11) = (/ & - &1.5772e+01 ,1.3097e+01 ,1.3464e+01 ,1.2783e+01 ,7.7812e+00 /) - kbo(:, 2,30,11) = (/ & - &2.1344e+01 ,1.6785e+01 ,1.5505e+01 ,1.4108e+01 ,7.9232e+00 /) - kbo(:, 3,30,11) = (/ & - &2.7999e+01 ,2.1429e+01 ,1.7759e+01 ,1.5492e+01 ,8.0114e+00 /) - kbo(:, 4,30,11) = (/ & - &3.5848e+01 ,2.7096e+01 ,2.0562e+01 ,1.7031e+01 ,8.0836e+00 /) - kbo(:, 5,30,11) = (/ & - &4.5004e+01 ,3.3889e+01 ,2.4347e+01 ,1.8589e+01 ,8.1429e+00 /) - kbo(:, 1,31,11) = (/ & - &1.7716e+01 ,1.4511e+01 ,1.4478e+01 ,1.3396e+01 ,7.7478e+00 /) - kbo(:, 2,31,11) = (/ & - &2.3853e+01 ,1.8632e+01 ,1.6766e+01 ,1.4874e+01 ,7.8974e+00 /) - kbo(:, 3,31,11) = (/ & - &3.1182e+01 ,2.3768e+01 ,1.9223e+01 ,1.6499e+01 ,8.0055e+00 /) - kbo(:, 4,31,11) = (/ & - &3.9834e+01 ,3.0054e+01 ,2.2404e+01 ,1.8165e+01 ,8.1138e+00 /) - kbo(:, 5,31,11) = (/ & - &4.9938e+01 ,3.7588e+01 ,2.6690e+01 ,1.9788e+01 ,8.1481e+00 /) - kbo(:, 1,32,11) = (/ & - &2.0151e+01 ,1.6250e+01 ,1.5786e+01 ,1.4153e+01 ,7.7024e+00 /) - kbo(:, 2,32,11) = (/ & - &2.7022e+01 ,2.0930e+01 ,1.8243e+01 ,1.5874e+01 ,7.8766e+00 /) - kbo(:, 3,32,11) = (/ & - &3.5292e+01 ,2.6776e+01 ,2.1045e+01 ,1.7666e+01 ,8.0370e+00 /) - kbo(:, 4,32,11) = (/ & - &4.5050e+01 ,3.3940e+01 ,2.4811e+01 ,1.9434e+01 ,8.1312e+00 /) - kbo(:, 5,32,11) = (/ & - &5.6497e+01 ,4.2506e+01 ,2.9790e+01 ,2.1188e+01 ,8.1409e+00 /) - kbo(:, 1,33,11) = (/ & - &2.3401e+01 ,1.8533e+01 ,1.7371e+01 ,1.5193e+01 ,7.6839e+00 /) - kbo(:, 2,33,11) = (/ & - &3.1308e+01 ,2.4009e+01 ,2.0094e+01 ,1.7155e+01 ,7.9059e+00 /) - kbo(:, 3,33,11) = (/ & - &4.0829e+01 ,3.0856e+01 ,2.3455e+01 ,1.9076e+01 ,8.0587e+00 /) - kbo(:, 4,33,11) = (/ & - &5.2189e+01 ,3.9272e+01 ,2.8099e+01 ,2.1008e+01 ,8.1274e+00 /) - kbo(:, 5,33,11) = (/ & - &6.5586e+01 ,4.9320e+01 ,3.4075e+01 ,2.2993e+01 ,8.2027e+00 /) - kbo(:, 1,34,11) = (/ & - &2.6313e+01 ,2.0607e+01 ,1.8746e+01 ,1.6201e+01 ,7.7021e+00 /) - kbo(:, 2,34,11) = (/ & - &3.5155e+01 ,2.6805e+01 ,2.1758e+01 ,1.8283e+01 ,7.9397e+00 /) - kbo(:, 3,34,11) = (/ & - &4.5927e+01 ,3.4632e+01 ,2.5705e+01 ,2.0353e+01 ,8.0605e+00 /) - kbo(:, 4,34,11) = (/ & - &5.8835e+01 ,4.4252e+01 ,3.1197e+01 ,2.2458e+01 ,8.1311e+00 /) - kbo(:, 5,34,11) = (/ & - &7.4250e+01 ,5.5815e+01 ,3.8184e+01 ,2.4701e+01 ,8.2150e+00 /) - kbo(:, 1,35,11) = (/ & - &2.8876e+01 ,2.2455e+01 ,1.9946e+01 ,1.7124e+01 ,7.7224e+00 /) - kbo(:, 2,35,11) = (/ & - &3.8715e+01 ,2.9405e+01 ,2.3284e+01 ,1.9326e+01 ,7.9252e+00 /) - kbo(:, 3,35,11) = (/ & - &5.0778e+01 ,3.8237e+01 ,2.7902e+01 ,2.1577e+01 ,8.0258e+00 /) - kbo(:, 4,35,11) = (/ & - &6.5355e+01 ,4.9140e+01 ,3.4259e+01 ,2.3860e+01 ,8.1543e+00 /) - kbo(:, 5,35,11) = (/ & - &8.3003e+01 ,6.2372e+01 ,4.2365e+01 ,2.6463e+01 ,8.1938e+00 /) - kbo(:, 1,36,11) = (/ & - &3.0603e+01 ,2.3731e+01 ,2.0817e+01 ,1.7816e+01 ,7.6876e+00 /) - kbo(:, 2,36,11) = (/ & - &4.1304e+01 ,3.1313e+01 ,2.4462e+01 ,2.0172e+01 ,7.8715e+00 /) - kbo(:, 3,36,11) = (/ & - &5.4533e+01 ,4.1035e+01 ,2.9662e+01 ,2.2576e+01 ,7.9878e+00 /) - kbo(:, 4,36,11) = (/ & - &7.0736e+01 ,5.3175e+01 ,3.6832e+01 ,2.5052e+01 ,8.1404e+00 /) - kbo(:, 5,36,11) = (/ & - &9.0535e+01 ,6.8017e+01 ,4.6007e+01 ,2.8044e+01 ,8.2152e+00 /) - kbo(:, 1,37,11) = (/ & - &3.0255e+01 ,2.3559e+01 ,2.0925e+01 ,1.7969e+01 ,7.6093e+00 /) - kbo(:, 2,37,11) = (/ & - &4.1246e+01 ,3.1319e+01 ,2.4672e+01 ,2.0442e+01 ,7.8000e+00 /) - kbo(:, 3,37,11) = (/ & - &5.5008e+01 ,4.1404e+01 ,3.0029e+01 ,2.2965e+01 ,7.9652e+00 /) - kbo(:, 4,37,11) = (/ & - &7.2100e+01 ,5.4198e+01 ,3.7564e+01 ,2.5602e+01 ,8.1174e+00 /) - kbo(:, 5,37,11) = (/ & - &9.3252e+01 ,7.0052e+01 ,4.7363e+01 ,2.8813e+01 ,8.2379e+00 /) - kbo(:, 1,38,11) = (/ & - &3.0319e+01 ,2.3676e+01 ,2.1203e+01 ,1.8223e+01 ,7.5198e+00 /) - kbo(:, 2,38,11) = (/ & - &4.1784e+01 ,3.1741e+01 ,2.5125e+01 ,2.0837e+01 ,7.7243e+00 /) - kbo(:, 3,38,11) = (/ & - &5.6316e+01 ,4.2385e+01 ,3.0775e+01 ,2.3517e+01 ,7.9363e+00 /) - kbo(:, 4,38,11) = (/ & - &7.4582e+01 ,5.6053e+01 ,3.8823e+01 ,2.6361e+01 ,8.1242e+00 /) - kbo(:, 5,38,11) = (/ & - &9.7510e+01 ,7.3243e+01 ,4.9498e+01 ,2.9889e+01 ,8.2559e+00 /) - kbo(:, 1,39,11) = (/ & - &3.1111e+01 ,2.4293e+01 ,2.1786e+01 ,1.8666e+01 ,7.4239e+00 /) - kbo(:, 2,39,11) = (/ & - &4.3408e+01 ,3.2962e+01 ,2.6016e+01 ,2.1461e+01 ,7.6345e+00 /) - kbo(:, 3,39,11) = (/ & - &5.9150e+01 ,4.4506e+01 ,3.2172e+01 ,2.4357e+01 ,7.9192e+00 /) - kbo(:, 4,39,11) = (/ & - &7.9245e+01 ,5.9549e+01 ,4.1085e+01 ,2.7494e+01 ,8.1496e+00 /) - kbo(:, 5,39,11) = (/ & - &1.0467e+02 ,7.8610e+01 ,5.2990e+01 ,3.1523e+01 ,8.2789e+00 /) - kbo(:, 1,40,11) = (/ & - &2.8917e+01 ,2.2849e+01 ,2.1212e+01 ,1.8303e+01 ,7.3082e+00 /) - kbo(:, 2,40,11) = (/ & - &4.0995e+01 ,3.1270e+01 ,2.5375e+01 ,2.1193e+01 ,7.5582e+00 /) - kbo(:, 3,40,11) = (/ & - &5.6673e+01 ,4.2684e+01 ,3.1298e+01 ,2.4183e+01 ,7.8695e+00 /) - kbo(:, 4,40,11) = (/ & - &7.6946e+01 ,5.7826e+01 ,4.0125e+01 ,2.7426e+01 ,8.1312e+00 /) - kbo(:, 5,40,11) = (/ & - &1.0293e+02 ,7.7305e+01 ,5.2205e+01 ,3.1496e+01 ,8.2689e+00 /) - kbo(:, 1,41,11) = (/ & - &2.6634e+01 ,2.1385e+01 ,2.0561e+01 ,1.7885e+01 ,7.1901e+00 /) - kbo(:, 2,41,11) = (/ & - &3.8375e+01 ,2.9451e+01 ,2.4682e+01 ,2.0867e+01 ,7.4740e+00 /) - kbo(:, 3,41,11) = (/ & - &5.3928e+01 ,4.0671e+01 ,3.0356e+01 ,2.3955e+01 ,7.8182e+00 /) - kbo(:, 4,41,11) = (/ & - &7.4310e+01 ,5.5850e+01 ,3.9033e+01 ,2.7309e+01 ,8.0950e+00 /) - kbo(:, 5,41,11) = (/ & - &1.0067e+02 ,7.5610e+01 ,5.1206e+01 ,3.1414e+01 ,8.2644e+00 /) - kbo(:, 1,42,11) = (/ & - &2.4738e+01 ,2.0233e+01 ,2.0020e+01 ,1.7547e+01 ,7.0619e+00 /) - kbo(:, 2,42,11) = (/ & - &3.6234e+01 ,2.7982e+01 ,2.4175e+01 ,2.0637e+01 ,7.4025e+00 /) - kbo(:, 3,42,11) = (/ & - &5.1779e+01 ,3.9115e+01 ,2.9714e+01 ,2.3853e+01 ,7.7568e+00 /) - kbo(:, 4,42,11) = (/ & - &7.2527e+01 ,5.4511e+01 ,3.8357e+01 ,2.7357e+01 ,8.0593e+00 /) - kbo(:, 5,42,11) = (/ & - &9.9602e+01 ,7.4807e+01 ,5.0774e+01 ,3.1579e+01 ,8.2618e+00 /) - kbo(:, 1,43,11) = (/ & - &2.2598e+01 ,1.8979e+01 ,1.9339e+01 ,1.7092e+01 ,6.9063e+00 /) - kbo(:, 2,43,11) = (/ & - &3.3721e+01 ,2.6289e+01 ,2.3541e+01 ,2.0300e+01 ,7.2922e+00 /) - kbo(:, 3,43,11) = (/ & - &4.9059e+01 ,3.7168e+01 ,2.8920e+01 ,2.3665e+01 ,7.6599e+00 /) - kbo(:, 4,43,11) = (/ & - &6.9947e+01 ,5.2582e+01 ,3.7401e+01 ,2.7324e+01 ,7.9953e+00 /) - kbo(:, 5,43,11) = (/ & - &9.7637e+01 ,7.3334e+01 ,4.9954e+01 ,3.1634e+01 ,8.2449e+00 /) - kbo(:, 1,44,11) = (/ & - &2.0598e+01 ,1.7877e+01 ,1.8670e+01 ,1.6634e+01 ,6.7349e+00 /) - kbo(:, 2,44,11) = (/ & - &3.1385e+01 ,2.4755e+01 ,2.2973e+01 ,1.9973e+01 ,7.1646e+00 /) - kbo(:, 3,44,11) = (/ & - &4.6533e+01 ,3.5381e+01 ,2.8231e+01 ,2.3518e+01 ,7.5534e+00 /) - kbo(:, 4,44,11) = (/ & - &6.7572e+01 ,5.0818e+01 ,3.6582e+01 ,2.7361e+01 ,7.9184e+00 /) - kbo(:, 5,44,11) = (/ & - &9.6116e+01 ,7.2195e+01 ,4.9367e+01 ,3.1819e+01 ,8.2107e+00 /) - kbo(:, 1,45,11) = (/ & - &1.9103e+01 ,1.7116e+01 ,1.8163e+01 ,1.6283e+01 ,6.5605e+00 /) - kbo(:, 2,45,11) = (/ & - &2.9658e+01 ,2.3682e+01 ,2.2618e+01 ,1.9789e+01 ,7.0239e+00 /) - kbo(:, 3,45,11) = (/ & - &4.4853e+01 ,3.4227e+01 ,2.7909e+01 ,2.3555e+01 ,7.4383e+00 /) - kbo(:, 4,45,11) = (/ & - &6.6390e+01 ,4.9954e+01 ,3.6314e+01 ,2.7640e+01 ,7.8580e+00 /) - kbo(:, 5,45,11) = (/ & - &9.6230e+01 ,7.2282e+01 ,4.9573e+01 ,3.2349e+01 ,8.1505e+00 /) - kbo(:, 1,46,11) = (/ & - &1.7603e+01 ,1.6408e+01 ,1.7601e+01 ,1.5877e+01 ,6.3549e+00 /) - kbo(:, 2,46,11) = (/ & - &2.7890e+01 ,2.2645e+01 ,2.2217e+01 ,1.9546e+01 ,6.8535e+00 /) - kbo(:, 3,46,11) = (/ & - &4.3095e+01 ,3.3035e+01 ,2.7597e+01 ,2.3556e+01 ,7.2985e+00 /) - kbo(:, 4,46,11) = (/ & - &6.5080e+01 ,4.9001e+01 ,3.6011e+01 ,2.7911e+01 ,7.7668e+00 /) - kbo(:, 5,46,11) = (/ & - &9.6111e+01 ,7.2194e+01 ,4.9702e+01 ,3.2895e+01 ,8.0887e+00 /) - kbo(:, 1,47,11) = (/ & - &1.5582e+01 ,1.5416e+01 ,1.6712e+01 ,1.5202e+01 ,6.1058e+00 /) - kbo(:, 2,47,11) = (/ & - &2.5371e+01 ,2.1144e+01 ,2.1438e+01 ,1.8984e+01 ,6.6529e+00 /) - kbo(:, 3,47,11) = (/ & - &4.0058e+01 ,3.0957e+01 ,2.6834e+01 ,2.3189e+01 ,7.1345e+00 /) - kbo(:, 4,47,11) = (/ & - &6.1807e+01 ,4.6615e+01 ,3.4933e+01 ,2.7758e+01 ,7.6397e+00 /) - kbo(:, 5,47,11) = (/ & - &9.3127e+01 ,6.9962e+01 ,4.8499e+01 ,3.2952e+01 ,7.9851e+00 /) - kbo(:, 1,48,11) = (/ & - &1.4034e+01 ,1.4681e+01 ,1.5989e+01 ,1.4629e+01 ,5.8421e+00 /) - kbo(:, 2,48,11) = (/ & - &2.3558e+01 ,2.0186e+01 ,2.0890e+01 ,1.8564e+01 ,6.4412e+00 /) - kbo(:, 3,48,11) = (/ & - &3.8004e+01 ,2.9609e+01 ,2.6472e+01 ,2.3010e+01 ,6.9605e+00 /) - kbo(:, 4,48,11) = (/ & - &5.9949e+01 ,4.5296e+01 ,3.4518e+01 ,2.7885e+01 ,7.5000e+00 /) - kbo(:, 5,48,11) = (/ & - &9.2277e+01 ,6.9322e+01 ,4.8288e+01 ,3.3402e+01 ,7.8874e+00 /) - kbo(:, 1,49,11) = (/ & - &1.3020e+01 ,1.4223e+01 ,1.5508e+01 ,1.4222e+01 ,5.5629e+00 /) - kbo(:, 2,49,11) = (/ & - &2.2531e+01 ,1.9765e+01 ,2.0674e+01 ,1.8360e+01 ,6.2033e+00 /) - kbo(:, 3,49,11) = (/ & - &3.7326e+01 ,2.9255e+01 ,2.6622e+01 ,2.3133e+01 ,6.7696e+00 /) - kbo(:, 4,49,11) = (/ & - &6.0141e+01 ,4.5507e+01 ,3.5009e+01 ,2.8438e+01 ,7.3484e+00 /) - kbo(:, 5,49,11) = (/ & - &9.4669e+01 ,7.1125e+01 ,4.9613e+01 ,3.4451e+01 ,7.7676e+00 /) - kbo(:, 1,50,11) = (/ & - &1.1528e+01 ,1.3385e+01 ,1.4676e+01 ,1.3553e+01 ,5.2886e+00 /) - kbo(:, 2,50,11) = (/ & - &2.0590e+01 ,1.8779e+01 ,1.9954e+01 ,1.7785e+01 ,5.9683e+00 /) - kbo(:, 3,50,11) = (/ & - &3.5112e+01 ,2.7878e+01 ,2.6128e+01 ,2.2750e+01 ,6.5812e+00 /) - kbo(:, 4,50,11) = (/ & - &5.7821e+01 ,4.3871e+01 ,3.4428e+01 ,2.8358e+01 ,7.1800e+00 /) - kbo(:, 5,50,11) = (/ & - &9.2920e+01 ,6.9817e+01 ,4.9041e+01 ,3.4691e+01 ,7.6346e+00 /) - kbo(:, 1,51,11) = (/ & - &9.9087e+00 ,1.2389e+01 ,1.3702e+01 ,1.2771e+01 ,5.0110e+00 /) - kbo(:, 2,51,11) = (/ & - &1.8347e+01 ,1.7625e+01 ,1.8991e+01 ,1.7018e+01 ,5.7321e+00 /) - kbo(:, 3,51,11) = (/ & - &3.2210e+01 ,2.6119e+01 ,2.5308e+01 ,2.2105e+01 ,6.3824e+00 /) - kbo(:, 4,51,11) = (/ & - &5.4374e+01 ,4.1438e+01 ,3.3397e+01 ,2.7944e+01 ,7.0038e+00 /) - kbo(:, 5,51,11) = (/ & - &8.9118e+01 ,6.6984e+01 ,4.7570e+01 ,3.4540e+01 ,7.4941e+00 /) - kbo(:, 1,52,11) = (/ & - &8.6167e+00 ,1.1576e+01 ,1.2899e+01 ,1.2089e+01 ,4.7245e+00 /) - kbo(:, 2,52,11) = (/ & - &1.6651e+01 ,1.6818e+01 ,1.8231e+01 ,1.6395e+01 ,5.4842e+00 /) - kbo(:, 3,52,11) = (/ & - &3.0138e+01 ,2.4957e+01 ,2.4762e+01 ,2.1646e+01 ,6.1679e+00 /) - kbo(:, 4,52,11) = (/ & - &5.2273e+01 ,4.0011e+01 ,3.2952e+01 ,2.7789e+01 ,6.8199e+00 /) - kbo(:, 5,52,11) = (/ & - &8.7481e+01 ,6.5781e+01 ,4.7111e+01 ,3.4770e+01 ,7.3415e+00 /) - kbo(:, 1,53,11) = (/ & - &7.6702e+00 ,1.0979e+01 ,1.2289e+01 ,1.1530e+01 ,4.4295e+00 /) - kbo(:, 2,53,11) = (/ & - &1.5508e+01 ,1.6366e+01 ,1.7771e+01 ,1.5970e+01 ,5.2253e+00 /) - kbo(:, 3,53,11) = (/ & - &2.9086e+01 ,2.4490e+01 ,2.4633e+01 ,2.1484e+01 ,5.9485e+00 /) - kbo(:, 4,53,11) = (/ & - &5.1881e+01 ,3.9852e+01 ,3.3235e+01 ,2.8055e+01 ,6.6238e+00 /) - kbo(:, 5,53,11) = (/ & - &8.8988e+01 ,6.6930e+01 ,4.8082e+01 ,3.5589e+01 ,7.1849e+00 /) - kbo(:, 1,54,11) = (/ & - &5.9450e+00 ,9.6177e+00 ,1.0972e+01 ,1.0431e+01 ,4.1455e+00 /) - kbo(:, 2,54,11) = (/ & - &1.2556e+01 ,1.4668e+01 ,1.6126e+01 ,1.4708e+01 ,4.9524e+00 /) - kbo(:, 3,54,11) = (/ & - &2.4491e+01 ,2.1770e+01 ,2.2780e+01 ,2.0031e+01 ,5.7134e+00 /) - kbo(:, 4,54,11) = (/ & - &4.4954e+01 ,3.5031e+01 ,3.0908e+01 ,2.6515e+01 ,6.4122e+00 /) - kbo(:, 5,54,11) = (/ & - &7.9027e+01 ,5.9569e+01 ,4.4065e+01 ,3.4001e+01 ,7.0090e+00 /) - kbo(:, 1,55,11) = (/ & - &4.1710e+00 ,8.0225e+00 ,9.3978e+00 ,9.1226e+00 ,3.8682e+00 /) - kbo(:, 2,55,11) = (/ & - &9.2293e+00 ,1.2486e+01 ,1.4001e+01 ,1.3070e+01 ,4.6969e+00 /) - kbo(:, 3,55,11) = (/ & - &1.8778e+01 ,1.8456e+01 ,2.0084e+01 ,1.7971e+01 ,5.4658e+00 /) - kbo(:, 4,55,11) = (/ & - &3.5574e+01 ,2.8777e+01 ,2.7568e+01 ,2.4021e+01 ,6.1617e+00 /) - kbo(:, 5,55,11) = (/ & - &6.4114e+01 ,4.8674e+01 ,3.8113e+01 ,3.1115e+01 ,6.8236e+00 /) - kbo(:, 1,56,11) = (/ & - &2.8728e+00 ,6.6889e+00 ,8.0328e+00 ,7.9557e+00 ,3.5989e+00 /) - kbo(:, 2,56,11) = (/ & - &6.6874e+00 ,1.0605e+01 ,1.2156e+01 ,1.1597e+01 ,4.4247e+00 /) - kbo(:, 3,56,11) = (/ & - &1.4226e+01 ,1.5908e+01 ,1.7667e+01 ,1.6104e+01 ,5.2042e+00 /) - kbo(:, 4,56,11) = (/ & - &2.7945e+01 ,2.3989e+01 ,2.4626e+01 ,2.1735e+01 ,5.9393e+00 /) - kbo(:, 5,56,11) = (/ & - &5.1707e+01 ,3.9775e+01 ,3.3431e+01 ,2.8442e+01 ,6.5979e+00 /) - kbo(:, 1,57,11) = (/ & - &1.9429e+00 ,5.5686e+00 ,6.8405e+00 ,6.9151e+00 ,3.3226e+00 /) - kbo(:, 2,57,11) = (/ & - &4.7724e+00 ,8.9791e+00 ,1.0545e+01 ,1.0240e+01 ,4.1527e+00 /) - kbo(:, 3,57,11) = (/ & - &1.0641e+01 ,1.3735e+01 ,1.5504e+01 ,1.4420e+01 ,4.9657e+00 /) - kbo(:, 4,57,11) = (/ & - &2.1776e+01 ,2.0320e+01 ,2.1929e+01 ,1.9615e+01 ,5.6966e+00 /) - kbo(:, 5,57,11) = (/ & - &4.1383e+01 ,3.2617e+01 ,2.9771e+01 ,2.5932e+01 ,6.3597e+00 /) - kbo(:, 1,58,11) = (/ & - &3.4498e-01 ,1.5267e+00 ,2.4690e+00 ,3.5849e+00 ,3.0713e+00 /) - kbo(:, 2,58,11) = (/ & - &8.9647e-01 ,2.5018e+00 ,3.8790e+00 ,5.3697e+00 ,3.9024e+00 /) - kbo(:, 3,58,11) = (/ & - &2.0963e+00 ,3.8966e+00 ,5.7628e+00 ,7.6647e+00 ,4.7137e+00 /) - kbo(:, 4,58,11) = (/ & - &4.4774e+00 ,5.7497e+00 ,8.2495e+00 ,1.0504e+01 ,5.4718e+00 /) - kbo(:, 5,58,11) = (/ & - &8.7673e+00 ,8.8663e+00 ,1.1318e+01 ,1.3996e+01 ,6.1538e+00 /) - kbo(:, 1,59,11) = (/ & - &3.2685e-01 ,1.8752e+00 ,2.9232e+00 ,3.9328e+00 ,2.9672e+00 /) - kbo(:, 2,59,11) = (/ & - &8.8018e-01 ,3.0635e+00 ,4.5809e+00 ,5.8034e+00 ,3.8049e+00 /) - kbo(:, 3,59,11) = (/ & - &2.1278e+00 ,4.7401e+00 ,6.7591e+00 ,8.2573e+00 ,4.6076e+00 /) - kbo(:, 4,59,11) = (/ & - &4.6712e+00 ,6.9756e+00 ,9.6079e+00 ,1.1224e+01 ,5.3733e+00 /) - kbo(:, 5,59,11) = (/ & - &9.3271e+00 ,1.0056e+01 ,1.3155e+01 ,1.4840e+01 ,6.0503e+00 /) - kbo(:, 1,13,12) = (/ & - &7.5516e+02 ,5.6651e+02 ,3.7786e+02 ,1.8921e+02 ,4.6057e+00 /) - kbo(:, 2,13,12) = (/ & - &1.1031e+03 ,8.2746e+02 ,5.5183e+02 ,2.7620e+02 ,4.4752e+00 /) - kbo(:, 3,13,12) = (/ & - &1.5208e+03 ,1.1407e+03 ,7.6067e+02 ,3.8062e+02 ,4.3357e+00 /) - kbo(:, 4,13,12) = (/ & - &2.0072e+03 ,1.5056e+03 ,1.0039e+03 ,5.0221e+02 ,4.1960e+00 /) - kbo(:, 5,13,12) = (/ & - &2.5500e+03 ,1.9126e+03 ,1.2753e+03 ,6.3790e+02 ,4.0223e+00 /) - kbo(:, 1,14,12) = (/ & - &5.0313e+02 ,3.7749e+02 ,2.5185e+02 ,1.2621e+02 ,5.0046e+00 /) - kbo(:, 2,14,12) = (/ & - &7.2897e+02 ,5.4687e+02 ,3.6476e+02 ,1.8266e+02 ,4.8590e+00 /) - kbo(:, 3,14,12) = (/ & - &9.9893e+02 ,7.4933e+02 ,4.9972e+02 ,2.5013e+02 ,4.7095e+00 /) - kbo(:, 4,14,12) = (/ & - &1.3102e+03 ,9.8276e+02 ,6.5533e+02 ,3.2791e+02 ,4.5769e+00 /) - kbo(:, 5,14,12) = (/ & - &1.6551e+03 ,1.2414e+03 ,8.2775e+02 ,4.1411e+02 ,4.4631e+00 /) - kbo(:, 1,15,12) = (/ & - &3.3639e+02 ,2.5243e+02 ,1.6847e+02 ,8.4507e+01 ,5.4523e+00 /) - kbo(:, 2,15,12) = (/ & - &4.8280e+02 ,3.6223e+02 ,2.4166e+02 ,1.2109e+02 ,5.3133e+00 /) - kbo(:, 3,15,12) = (/ & - &6.5719e+02 ,4.9302e+02 ,3.2884e+02 ,1.6466e+02 ,5.1834e+00 /) - kbo(:, 4,15,12) = (/ & - &8.5550e+02 ,6.4175e+02 ,4.2799e+02 ,2.1423e+02 ,5.0660e+00 /) - kbo(:, 5,15,12) = (/ & - &1.0728e+03 ,8.0472e+02 ,5.3663e+02 ,2.6854e+02 ,4.9623e+00 /) - kbo(:, 1,16,12) = (/ & - &2.6229e+02 ,1.9684e+02 ,1.3139e+02 ,6.5935e+01 ,6.0512e+00 /) - kbo(:, 2,16,12) = (/ & - &3.7303e+02 ,2.7989e+02 ,1.8674e+02 ,9.3604e+01 ,5.9120e+00 /) - kbo(:, 3,16,12) = (/ & - &5.0297e+02 ,3.7733e+02 ,2.5170e+02 ,1.2607e+02 ,5.7872e+00 /) - kbo(:, 4,16,12) = (/ & - &6.4911e+02 ,4.8694e+02 ,3.2477e+02 ,1.6260e+02 ,5.6679e+00 /) - kbo(:, 5,16,12) = (/ & - &8.0986e+02 ,6.0750e+02 ,4.0515e+02 ,2.0279e+02 ,5.5547e+00 /) - kbo(:, 1,17,12) = (/ & - &2.0705e+02 ,1.5540e+02 ,1.0375e+02 ,5.2106e+01 ,6.7730e+00 /) - kbo(:, 2,17,12) = (/ & - &2.9135e+02 ,2.1862e+02 ,1.4589e+02 ,7.3163e+01 ,6.6333e+00 /) - kbo(:, 3,17,12) = (/ & - &3.8916e+02 ,2.9197e+02 ,1.9479e+02 ,9.7603e+01 ,6.4989e+00 /) - kbo(:, 4,17,12) = (/ & - &4.9976e+02 ,3.7492e+02 ,2.5009e+02 ,1.2525e+02 ,6.3687e+00 /) - kbo(:, 5,17,12) = (/ & - &6.2230e+02 ,4.6683e+02 ,3.1136e+02 ,1.5589e+02 ,6.2358e+00 /) - kbo(:, 1,18,12) = (/ & - &1.6333e+02 ,1.2261e+02 ,8.1888e+01 ,4.1178e+01 ,7.5424e+00 /) - kbo(:, 2,18,12) = (/ & - &2.2759e+02 ,1.7080e+02 ,1.1401e+02 ,5.7226e+01 ,7.4084e+00 /) - kbo(:, 3,18,12) = (/ & - &3.0244e+02 ,2.2693e+02 ,1.5143e+02 ,7.5931e+01 ,7.2669e+00 /) - kbo(:, 4,18,12) = (/ & - &3.8758e+02 ,2.9079e+02 ,1.9400e+02 ,9.7216e+01 ,7.1208e+00 /) - kbo(:, 5,18,12) = (/ & - &4.8269e+02 ,3.6212e+02 ,2.4155e+02 ,1.2098e+02 ,6.9720e+00 /) - kbo(:, 1,19,12) = (/ & - &1.2382e+02 ,9.2977e+01 ,6.2136e+01 ,3.1325e+01 ,8.3597e+00 /) - kbo(:, 2,19,12) = (/ & - &1.7154e+02 ,1.2877e+02 ,8.5994e+01 ,4.3233e+01 ,8.2061e+00 /) - kbo(:, 3,19,12) = (/ & - &2.2748e+02 ,1.7072e+02 ,1.1396e+02 ,5.7206e+01 ,8.0513e+00 /) - kbo(:, 4,19,12) = (/ & - &2.9138e+02 ,2.1864e+02 ,1.4590e+02 ,7.3167e+01 ,7.8994e+00 /) - kbo(:, 5,19,12) = (/ & - &3.6253e+02 ,2.7200e+02 ,1.8147e+02 ,9.0939e+01 ,7.7452e+00 /) - kbo(:, 1,20,12) = (/ & - &1.0042e+02 ,7.5430e+01 ,5.0444e+01 ,2.5891e+01 ,9.1675e+00 /) - kbo(:, 2,20,12) = (/ & - &1.3861e+02 ,1.0407e+02 ,6.9532e+01 ,3.5031e+01 ,9.0030e+00 /) - kbo(:, 3,20,12) = (/ & - &1.8351e+02 ,1.3774e+02 ,9.1975e+01 ,4.6211e+01 ,8.8390e+00 /) - kbo(:, 4,20,12) = (/ & - &2.3463e+02 ,1.7607e+02 ,1.1752e+02 ,5.8971e+01 ,8.6735e+00 /) - kbo(:, 5,20,12) = (/ & - &2.9128e+02 ,2.1856e+02 ,1.4583e+02 ,7.3117e+01 ,8.5016e+00 /) - kbo(:, 1,21,12) = (/ & - &8.3057e+01 ,6.2407e+01 ,4.1762e+01 ,2.2683e+01 ,9.9550e+00 /) - kbo(:, 2,21,12) = (/ & - &1.1435e+02 ,8.5868e+01 ,5.7394e+01 ,2.9474e+01 ,9.7863e+00 /) - kbo(:, 3,21,12) = (/ & - &1.5096e+02 ,1.1332e+02 ,7.5686e+01 ,3.8128e+01 ,9.6108e+00 /) - kbo(:, 4,21,12) = (/ & - &1.9244e+02 ,1.4443e+02 ,9.6415e+01 ,4.8410e+01 ,9.4311e+00 /) - kbo(:, 5,21,12) = (/ & - &2.3840e+02 ,1.7889e+02 ,1.1939e+02 ,5.9885e+01 ,9.2417e+00 /) - kbo(:, 1,22,12) = (/ & - &7.1250e+01 ,5.3549e+01 ,3.5853e+01 ,2.1126e+01 ,1.0685e+01 /) - kbo(:, 2,22,12) = (/ & - &9.7414e+01 ,7.3164e+01 ,4.8918e+01 ,2.6307e+01 ,1.0512e+01 /) - kbo(:, 3,22,12) = (/ & - &1.2780e+02 ,9.5945e+01 ,6.4097e+01 ,3.2967e+01 ,1.0335e+01 /) - kbo(:, 4,22,12) = (/ & - &1.6218e+02 ,1.2173e+02 ,8.1281e+01 ,4.1038e+01 ,1.0145e+01 /) - kbo(:, 5,22,12) = (/ & - &2.0041e+02 ,1.5040e+02 ,1.0039e+02 ,5.0398e+01 ,9.9454e+00 /) - kbo(:, 1,23,12) = (/ & - &6.0942e+01 ,4.5813e+01 ,3.0934e+01 ,2.0012e+01 ,1.1340e+01 /) - kbo(:, 2,23,12) = (/ & - &8.2640e+01 ,6.2081e+01 ,4.1527e+01 ,2.4053e+01 ,1.1180e+01 /) - kbo(:, 3,23,12) = (/ & - &1.0785e+02 ,8.0983e+01 ,5.4124e+01 ,2.9110e+01 ,1.1001e+01 /) - kbo(:, 4,23,12) = (/ & - &1.3652e+02 ,1.0249e+02 ,6.8454e+01 ,3.5343e+01 ,1.0812e+01 /) - kbo(:, 5,23,12) = (/ & - &1.6894e+02 ,1.2680e+02 ,8.4663e+01 ,4.2880e+01 ,1.0609e+01 /) - kbo(:, 1,24,12) = (/ & - &5.1406e+01 ,3.8659e+01 ,2.6835e+01 ,1.9368e+01 ,1.1917e+01 /) - kbo(:, 2,24,12) = (/ & - &6.9266e+01 ,5.2052e+01 ,3.5118e+01 ,2.2283e+01 ,1.1770e+01 /) - kbo(:, 3,24,12) = (/ & - &9.0127e+01 ,6.7693e+01 ,4.5282e+01 ,2.6104e+01 ,1.1607e+01 /) - kbo(:, 4,24,12) = (/ & - &1.1424e+02 ,8.5780e+01 ,5.7328e+01 ,3.0937e+01 ,1.1421e+01 /) - kbo(:, 5,24,12) = (/ & - &1.4182e+02 ,1.0646e+02 ,7.1109e+01 ,3.6894e+01 ,1.1218e+01 /) - kbo(:, 1,25,12) = (/ & - &4.3762e+01 ,3.2928e+01 ,2.3974e+01 ,1.9297e+01 ,1.2406e+01 /) - kbo(:, 2,25,12) = (/ & - &5.8726e+01 ,4.4147e+01 ,3.0453e+01 ,2.1379e+01 ,1.2284e+01 /) - kbo(:, 3,25,12) = (/ & - &7.6463e+01 ,5.7453e+01 ,3.8735e+01 ,2.4187e+01 ,1.2134e+01 /) - kbo(:, 4,25,12) = (/ & - &9.7222e+01 ,7.3021e+01 ,4.8859e+01 ,2.7987e+01 ,1.1961e+01 /) - kbo(:, 5,25,12) = (/ & - &1.2098e+02 ,9.0828e+01 ,6.0694e+01 ,3.2765e+01 ,1.1759e+01 /) - kbo(:, 1,26,12) = (/ & - &3.8022e+01 ,2.8659e+01 ,2.2105e+01 ,1.9516e+01 ,1.2805e+01 /) - kbo(:, 2,26,12) = (/ & - &5.0994e+01 ,3.8356e+01 ,2.7362e+01 ,2.1131e+01 ,1.2709e+01 /) - kbo(:, 3,26,12) = (/ & - &6.6538e+01 ,5.0014e+01 ,3.4258e+01 ,2.3250e+01 ,1.2582e+01 /) - kbo(:, 4,26,12) = (/ & - &8.4702e+01 ,6.3631e+01 ,4.2833e+01 ,2.6169e+01 ,1.2418e+01 /) - kbo(:, 5,26,12) = (/ & - &1.0565e+02 ,7.9327e+01 ,5.3062e+01 ,3.0028e+01 ,1.2216e+01 /) - kbo(:, 1,27,12) = (/ & - &3.4489e+01 ,2.6132e+01 ,2.1235e+01 ,1.9878e+01 ,1.3122e+01 /) - kbo(:, 2,27,12) = (/ & - &4.6305e+01 ,3.4844e+01 ,2.5714e+01 ,2.1342e+01 ,1.3062e+01 /) - kbo(:, 3,27,12) = (/ & - &6.0441e+01 ,4.5443e+01 ,3.1734e+01 ,2.3085e+01 ,1.2955e+01 /) - kbo(:, 4,27,12) = (/ & - &7.7109e+01 ,5.7931e+01 ,3.9347e+01 ,2.5409e+01 ,1.2800e+01 /) - kbo(:, 5,27,12) = (/ & - &9.6578e+01 ,7.2521e+01 ,4.8662e+01 ,2.8654e+01 ,1.2602e+01 /) - kbo(:, 1,28,12) = (/ & - &3.2427e+01 ,2.4737e+01 ,2.0948e+01 ,2.0280e+01 ,1.3386e+01 /) - kbo(:, 2,28,12) = (/ & - &4.3501e+01 ,3.2787e+01 ,2.4919e+01 ,2.1714e+01 ,1.3352e+01 /) - kbo(:, 3,28,12) = (/ & - &5.6891e+01 ,4.2776e+01 ,3.0416e+01 ,2.3252e+01 ,1.3262e+01 /) - kbo(:, 4,28,12) = (/ & - &7.2922e+01 ,5.4789e+01 ,3.7531e+01 ,2.5273e+01 ,1.3118e+01 /) - kbo(:, 5,28,12) = (/ & - &9.1872e+01 ,6.8992e+01 ,4.6457e+01 ,2.8166e+01 ,1.2926e+01 /) - kbo(:, 1,29,12) = (/ & - &3.2667e+01 ,2.5018e+01 ,2.1498e+01 ,2.0955e+01 ,1.3603e+01 /) - kbo(:, 2,29,12) = (/ & - &4.3912e+01 ,3.3123e+01 ,2.5431e+01 ,2.2422e+01 ,1.3591e+01 /) - kbo(:, 3,29,12) = (/ & - &5.7701e+01 ,4.3385e+01 ,3.1008e+01 ,2.3974e+01 ,1.3517e+01 /) - kbo(:, 4,29,12) = (/ & - &7.4275e+01 ,5.5806e+01 ,3.8313e+01 ,2.6005e+01 ,1.3383e+01 /) - kbo(:, 5,29,12) = (/ & - &9.3871e+01 ,7.0500e+01 ,4.7521e+01 ,2.8930e+01 ,1.3178e+01 /) - kbo(:, 1,30,12) = (/ & - &3.4156e+01 ,2.6153e+01 ,2.2429e+01 ,2.1713e+01 ,1.3788e+01 /) - kbo(:, 2,30,12) = (/ & - &4.6027e+01 ,3.4711e+01 ,2.6560e+01 ,2.3234e+01 ,1.3795e+01 /) - kbo(:, 3,30,12) = (/ & - &6.0622e+01 ,4.5582e+01 ,3.2488e+01 ,2.4921e+01 ,1.3734e+01 /) - kbo(:, 4,30,12) = (/ & - &7.8321e+01 ,5.8857e+01 ,4.0368e+01 ,2.7080e+01 ,1.3599e+01 /) - kbo(:, 5,30,12) = (/ & - &9.9301e+01 ,7.4592e+01 ,5.0256e+01 ,3.0286e+01 ,1.3384e+01 /) - kbo(:, 1,31,12) = (/ & - &3.8076e+01 ,2.9005e+01 ,2.4159e+01 ,2.2772e+01 ,1.3950e+01 /) - kbo(:, 2,31,12) = (/ & - &5.1386e+01 ,3.8696e+01 ,2.8953e+01 ,2.4505e+01 ,1.3973e+01 /) - kbo(:, 3,31,12) = (/ & - &6.7843e+01 ,5.1009e+01 ,3.5918e+01 ,2.6433e+01 ,1.3920e+01 /) - kbo(:, 4,31,12) = (/ & - &8.7812e+01 ,6.5990e+01 ,4.4995e+01 ,2.9071e+01 ,1.3753e+01 /) - kbo(:, 5,31,12) = (/ & - &1.1160e+02 ,8.3824e+01 ,5.6340e+01 ,3.3050e+01 ,1.3573e+01 /) - kbo(:, 1,32,12) = (/ & - &4.3422e+01 ,3.2909e+01 ,2.6354e+01 ,2.4011e+01 ,1.4101e+01 /) - kbo(:, 2,32,12) = (/ & - &5.8749e+01 ,4.4202e+01 ,3.2268e+01 ,2.6008e+01 ,1.4129e+01 /) - kbo(:, 3,32,12) = (/ & - &7.7682e+01 ,5.8398e+01 ,4.0569e+01 ,2.8355e+01 ,1.4037e+01 /) - kbo(:, 4,32,12) = (/ & - &1.0053e+02 ,7.5534e+01 ,5.1158e+01 ,3.1768e+01 ,1.3909e+01 /) - kbo(:, 5,32,12) = (/ & - &1.2780e+02 ,9.5988e+01 ,6.4344e+01 ,3.6705e+01 ,1.3757e+01 /) - kbo(:, 1,33,12) = (/ & - &5.0972e+01 ,3.8474e+01 ,2.9509e+01 ,2.5608e+01 ,1.4236e+01 /) - kbo(:, 2,33,12) = (/ & - &6.8978e+01 ,5.1873e+01 ,3.6983e+01 ,2.7940e+01 ,1.4225e+01 /) - kbo(:, 3,33,12) = (/ & - &9.1196e+01 ,6.8536e+01 ,4.6964e+01 ,3.1045e+01 ,1.4156e+01 /) - kbo(:, 4,33,12) = (/ & - &1.1806e+02 ,8.8684e+01 ,5.9688e+01 ,3.5479e+01 ,1.4053e+01 /) - kbo(:, 5,33,12) = (/ & - &1.5026e+02 ,1.1283e+02 ,7.5476e+01 ,4.1722e+01 ,1.3797e+01 /) - kbo(:, 1,34,12) = (/ & - &5.8196e+01 ,4.3842e+01 ,3.2696e+01 ,2.7075e+01 ,1.4322e+01 /) - kbo(:, 2,34,12) = (/ & - &7.8717e+01 ,5.9180e+01 ,4.1505e+01 ,2.9899e+01 ,1.4304e+01 /) - kbo(:, 3,34,12) = (/ & - &1.0408e+02 ,7.8203e+01 ,5.3150e+01 ,3.3676e+01 ,1.4279e+01 /) - kbo(:, 4,34,12) = (/ & - &1.3497e+02 ,1.0137e+02 ,6.8004e+01 ,3.9142e+01 ,1.4130e+01 /) - kbo(:, 5,34,12) = (/ & - &1.7215e+02 ,1.2926e+02 ,8.6400e+01 ,4.6696e+01 ,1.3817e+01 /) - kbo(:, 1,35,12) = (/ & - &6.4953e+01 ,4.8885e+01 ,3.5777e+01 ,2.8513e+01 ,1.4376e+01 /) - kbo(:, 2,35,12) = (/ & - &8.7973e+01 ,6.6128e+01 ,4.5876e+01 ,3.1844e+01 ,1.4423e+01 /) - kbo(:, 3,35,12) = (/ & - &1.1659e+02 ,8.7588e+01 ,5.9213e+01 ,3.6344e+01 ,1.4380e+01 /) - kbo(:, 4,35,12) = (/ & - &1.5177e+02 ,1.1397e+02 ,7.6316e+01 ,4.2891e+01 ,1.4142e+01 /) - kbo(:, 5,35,12) = (/ & - &1.9438e+02 ,1.4593e+02 ,9.7521e+01 ,5.1793e+01 ,1.3951e+01 /) - kbo(:, 1,36,12) = (/ & - &7.0028e+01 ,5.2692e+01 ,3.8196e+01 ,2.9764e+01 ,1.4429e+01 /) - kbo(:, 2,36,12) = (/ & - &9.5230e+01 ,7.1580e+01 ,4.9388e+01 ,3.3491e+01 ,1.4515e+01 /) - kbo(:, 3,36,12) = (/ & - &1.2679e+02 ,9.5251e+01 ,6.4219e+01 ,3.8654e+01 ,1.4447e+01 /) - kbo(:, 4,36,12) = (/ & - &1.6604e+02 ,1.2468e+02 ,8.3408e+01 ,4.6199e+01 ,1.4226e+01 /) - kbo(:, 5,36,12) = (/ & - &2.1406e+02 ,1.6070e+02 ,1.0737e+02 ,5.6401e+01 ,1.4079e+01 /) - kbo(:, 1,37,12) = (/ & - &7.0336e+01 ,5.2944e+01 ,3.8605e+01 ,3.0262e+01 ,1.4492e+01 /) - kbo(:, 2,37,12) = (/ & - &9.6465e+01 ,7.2514e+01 ,5.0131e+01 ,3.4164e+01 ,1.4585e+01 /) - kbo(:, 3,37,12) = (/ & - &1.2955e+02 ,9.7324e+01 ,6.5642e+01 ,3.9574e+01 ,1.4537e+01 /) - kbo(:, 4,37,12) = (/ & - &1.7114e+02 ,1.2851e+02 ,8.5971e+01 ,4.7570e+01 ,1.4312e+01 /) - kbo(:, 5,37,12) = (/ & - &2.2257e+02 ,1.6708e+02 ,1.1162e+02 ,5.8523e+01 ,1.4157e+01 /) - kbo(:, 1,38,12) = (/ & - &7.1653e+01 ,5.3935e+01 ,3.9443e+01 ,3.0956e+01 ,1.4537e+01 /) - kbo(:, 2,38,12) = (/ & - &9.9371e+01 ,7.4697e+01 ,5.1646e+01 ,3.5117e+01 ,1.4670e+01 /) - kbo(:, 3,38,12) = (/ & - &1.3467e+02 ,1.0116e+02 ,6.8199e+01 ,4.0938e+01 ,1.4595e+01 /) - kbo(:, 4,38,12) = (/ & - &1.7944e+02 ,1.3474e+02 ,9.0110e+01 ,4.9614e+01 ,1.4367e+01 /) - kbo(:, 5,38,12) = (/ & - &2.3537e+02 ,1.7668e+02 ,1.1802e+02 ,6.1608e+01 ,1.4213e+01 /) - kbo(:, 1,39,12) = (/ & - &7.4953e+01 ,5.6404e+01 ,4.1108e+01 ,3.2048e+01 ,1.4593e+01 /) - kbo(:, 2,39,12) = (/ & - &1.0508e+02 ,7.8982e+01 ,5.4463e+01 ,3.6606e+01 ,1.4737e+01 /) - kbo(:, 3,39,12) = (/ & - &1.4387e+02 ,1.0807e+02 ,7.2745e+01 ,4.3123e+01 ,1.4593e+01 /) - kbo(:, 4,39,12) = (/ & - &1.9336e+02 ,1.4518e+02 ,9.7046e+01 ,5.2882e+01 ,1.4422e+01 /) - kbo(:, 5,39,12) = (/ & - &2.5579e+02 ,1.9200e+02 ,1.2823e+02 ,6.6478e+01 ,1.4241e+01 /) - kbo(:, 1,40,12) = (/ & - &7.1125e+01 ,5.3576e+01 ,3.9744e+01 ,3.1845e+01 ,1.4584e+01 /) - kbo(:, 2,40,12) = (/ & - &1.0123e+02 ,7.6093e+01 ,5.2813e+01 ,3.6464e+01 ,1.4753e+01 /) - kbo(:, 3,40,12) = (/ & - &1.4047e+02 ,1.0551e+02 ,7.1189e+01 ,4.2876e+01 ,1.4635e+01 /) - kbo(:, 4,40,12) = (/ & - &1.9075e+02 ,1.4322e+02 ,9.5759e+01 ,5.2592e+01 ,1.4461e+01 /) - kbo(:, 5,40,12) = (/ & - &2.5487e+02 ,1.9131e+02 ,1.2777e+02 ,6.6443e+01 ,1.4311e+01 /) - kbo(:, 1,41,12) = (/ & - &6.6999e+01 ,5.0553e+01 ,3.8328e+01 ,3.1540e+01 ,1.4557e+01 /) - kbo(:, 2,41,12) = (/ & - &9.6989e+01 ,7.2904e+01 ,5.1038e+01 ,3.6239e+01 ,1.4754e+01 /) - kbo(:, 3,41,12) = (/ & - &1.3645e+02 ,1.0250e+02 ,6.9354e+01 ,4.2559e+01 ,1.4660e+01 /) - kbo(:, 4,41,12) = (/ & - &1.8750e+02 ,1.4078e+02 ,9.4178e+01 ,5.2196e+01 ,1.4491e+01 /) - kbo(:, 5,41,12) = (/ & - &2.5297e+02 ,1.8988e+02 ,1.2682e+02 ,6.6184e+01 ,1.4389e+01 /) - kbo(:, 1,42,12) = (/ & - &6.3698e+01 ,4.8173e+01 ,3.7314e+01 ,3.1356e+01 ,1.4515e+01 /) - kbo(:, 2,42,12) = (/ & - &9.3921e+01 ,7.0600e+01 ,4.9842e+01 ,3.6216e+01 ,1.4716e+01 /) - kbo(:, 3,42,12) = (/ & - &1.3407e+02 ,1.0072e+02 ,6.8313e+01 ,4.2558e+01 ,1.4673e+01 /) - kbo(:, 4,42,12) = (/ & - &1.8663e+02 ,1.4013e+02 ,9.3782e+01 ,5.2338e+01 ,1.4521e+01 /) - kbo(:, 5,42,12) = (/ & - &2.5424e+02 ,1.9084e+02 ,1.2745e+02 ,6.6667e+01 ,1.4444e+01 /) - kbo(:, 1,43,12) = (/ & - &5.9556e+01 ,4.5221e+01 ,3.6039e+01 ,3.0985e+01 ,1.4424e+01 /) - kbo(:, 2,43,12) = (/ & - &8.9715e+01 ,6.7448e+01 ,4.8196e+01 ,3.6053e+01 ,1.4672e+01 /) - kbo(:, 3,43,12) = (/ & - &1.3041e+02 ,9.7958e+01 ,6.6682e+01 ,4.2356e+01 ,1.4685e+01 /) - kbo(:, 4,43,12) = (/ & - &1.8413e+02 ,1.3825e+02 ,9.2592e+01 ,5.2204e+01 ,1.4530e+01 /) - kbo(:, 5,43,12) = (/ & - &2.5372e+02 ,1.9044e+02 ,1.2719e+02 ,6.6793e+01 ,1.4531e+01 /) - kbo(:, 1,44,12) = (/ & - &5.5617e+01 ,4.2462e+01 ,3.4926e+01 ,3.0616e+01 ,1.4301e+01 /) - kbo(:, 2,44,12) = (/ & - &8.5711e+01 ,6.4467e+01 ,4.6726e+01 ,3.5948e+01 ,1.4602e+01 /) - kbo(:, 3,44,12) = (/ & - &1.2713e+02 ,9.5499e+01 ,6.5283e+01 ,4.2294e+01 ,1.4674e+01 /) - kbo(:, 4,44,12) = (/ & - &1.8238e+02 ,1.3694e+02 ,9.1783e+01 ,5.2246e+01 ,1.4528e+01 /) - kbo(:, 5,44,12) = (/ & - &2.5466e+02 ,1.9115e+02 ,1.2766e+02 ,6.7294e+01 ,1.4570e+01 /) - kbo(:, 1,45,12) = (/ & - &5.2685e+01 ,4.0486e+01 ,3.4264e+01 ,3.0427e+01 ,1.4151e+01 /) - kbo(:, 2,45,12) = (/ & - &8.3179e+01 ,6.2605e+01 ,4.5965e+01 ,3.6072e+01 ,1.4507e+01 /) - kbo(:, 3,45,12) = (/ & - &1.2601e+02 ,9.4652e+01 ,6.4923e+01 ,4.2669e+01 ,1.4643e+01 /) - kbo(:, 4,45,12) = (/ & - &1.8401e+02 ,1.3816e+02 ,9.2634e+01 ,5.3005e+01 ,1.4503e+01 /) - kbo(:, 5,45,12) = (/ & - &2.6050e+02 ,1.9553e+02 ,1.3058e+02 ,6.8905e+01 ,1.4618e+01 /) - kbo(:, 1,46,12) = (/ & - &4.9550e+01 ,3.8366e+01 ,3.3605e+01 ,3.0155e+01 ,1.3963e+01 /) - kbo(:, 2,46,12) = (/ & - &8.0337e+01 ,6.0538e+01 ,4.5156e+01 ,3.6142e+01 ,1.4400e+01 /) - kbo(:, 3,46,12) = (/ & - &1.2453e+02 ,9.3545e+01 ,6.4429e+01 ,4.3023e+01 ,1.4594e+01 /) - kbo(:, 4,46,12) = (/ & - &1.8550e+02 ,1.3927e+02 ,9.3438e+01 ,5.3784e+01 ,1.4498e+01 /) - kbo(:, 5,46,12) = (/ & - &2.6666e+02 ,2.0015e+02 ,1.3366e+02 ,7.0579e+01 ,1.4676e+01 /) - kbo(:, 1,47,12) = (/ & - &4.4761e+01 ,3.5144e+01 ,3.2385e+01 ,2.9408e+01 ,1.3714e+01 /) - kbo(:, 2,47,12) = (/ & - &7.4836e+01 ,5.6569e+01 ,4.3337e+01 ,3.5671e+01 ,1.4241e+01 /) - kbo(:, 3,47,12) = (/ & - &1.1904e+02 ,8.9427e+01 ,6.2124e+01 ,4.2720e+01 ,1.4513e+01 /) - kbo(:, 4,47,12) = (/ & - &1.8135e+02 ,1.3615e+02 ,9.1529e+01 ,5.3518e+01 ,1.4491e+01 /) - kbo(:, 5,47,12) = (/ & - &2.6557e+02 ,1.9933e+02 ,1.3311e+02 ,7.0671e+01 ,1.4708e+01 /) - kbo(:, 1,48,12) = (/ & - &4.1069e+01 ,3.2801e+01 ,3.1586e+01 ,2.8865e+01 ,1.3457e+01 /) - kbo(:, 2,48,12) = (/ & - &7.0975e+01 ,5.3819e+01 ,4.2302e+01 ,3.5478e+01 ,1.4056e+01 /) - kbo(:, 3,48,12) = (/ & - &1.1614e+02 ,8.7254e+01 ,6.1078e+01 ,4.2908e+01 ,1.4399e+01 /) - kbo(:, 4,48,12) = (/ & - &1.8113e+02 ,1.3599e+02 ,9.1560e+01 ,5.4099e+01 ,1.4482e+01 /) - kbo(:, 5,48,12) = (/ & - &2.7078e+02 ,2.0323e+02 ,1.3570e+02 ,7.2222e+01 ,1.4704e+01 /) - kbo(:, 1,49,12) = (/ & - &3.8731e+01 ,3.1486e+01 ,3.1265e+01 ,2.8628e+01 ,1.3159e+01 /) - kbo(:, 2,49,12) = (/ & - &6.9397e+01 ,5.2759e+01 ,4.2223e+01 ,3.5759e+01 ,1.3841e+01 /) - kbo(:, 3,49,12) = (/ & - &1.1709e+02 ,8.7966e+01 ,6.1851e+01 ,4.3836e+01 ,1.4254e+01 /) - kbo(:, 4,49,12) = (/ & - &1.8714e+02 ,1.4049e+02 ,9.4623e+01 ,5.5973e+01 ,1.4472e+01 /) - kbo(:, 5,49,12) = (/ & - &2.8581e+02 ,2.1450e+02 ,1.4321e+02 ,7.6013e+01 ,1.4713e+01 /) - kbo(:, 1,50,12) = (/ & - &3.4845e+01 ,2.9222e+01 ,3.0219e+01 ,2.7841e+01 ,1.2848e+01 /) - kbo(:, 2,50,12) = (/ & - &6.4780e+01 ,4.9517e+01 ,4.0909e+01 ,3.5306e+01 ,1.3605e+01 /) - kbo(:, 3,50,12) = (/ & - &1.1280e+02 ,8.4759e+01 ,6.0286e+01 ,4.3805e+01 ,1.4114e+01 /) - kbo(:, 4,50,12) = (/ & - &1.8491e+02 ,1.3882e+02 ,9.3723e+01 ,5.6179e+01 ,1.4404e+01 /) - kbo(:, 5,50,12) = (/ & - &2.8849e+02 ,2.1650e+02 ,1.4455e+02 ,7.7018e+01 ,1.4673e+01 /) - kbo(:, 1,51,12) = (/ & - &3.0519e+01 ,2.6754e+01 ,2.8814e+01 ,2.6775e+01 ,1.2516e+01 /) - kbo(:, 2,51,12) = (/ & - &5.8895e+01 ,4.5411e+01 ,3.9106e+01 ,3.4462e+01 ,1.3344e+01 /) - kbo(:, 3,51,12) = (/ & - &1.0594e+02 ,7.9673e+01 ,5.7668e+01 ,4.3297e+01 ,1.3940e+01 /) - kbo(:, 4,51,12) = (/ & - &1.7846e+02 ,1.3399e+02 ,9.0800e+01 ,5.5546e+01 ,1.4316e+01 /) - kbo(:, 5,51,12) = (/ & - &2.8452e+02 ,2.1353e+02 ,1.4260e+02 ,7.6552e+01 ,1.4603e+01 /) - kbo(:, 1,52,12) = (/ & - &2.7172e+01 ,2.4938e+01 ,2.7638e+01 ,2.5911e+01 ,1.2154e+01 /) - kbo(:, 2,52,12) = (/ & - &5.4443e+01 ,4.2404e+01 ,3.7930e+01 ,3.3867e+01 ,1.3047e+01 /) - kbo(:, 3,52,12) = (/ & - &1.0140e+02 ,7.6335e+01 ,5.6140e+01 ,4.3191e+01 ,1.3744e+01 /) - kbo(:, 4,52,12) = (/ & - &1.7597e+02 ,1.3212e+02 ,8.9791e+01 ,5.5744e+01 ,1.4204e+01 /) - kbo(:, 5,52,12) = (/ & - &2.8690e+02 ,2.1531e+02 ,1.4382e+02 ,7.7564e+01 ,1.4539e+01 /) - kbo(:, 1,53,12) = (/ & - &2.4852e+01 ,2.3783e+01 ,2.6797e+01 ,2.5306e+01 ,1.1753e+01 /) - kbo(:, 2,53,12) = (/ & - &5.1806e+01 ,4.0721e+01 ,3.7447e+01 ,3.3656e+01 ,1.2720e+01 /) - kbo(:, 3,53,12) = (/ & - &1.0002e+02 ,7.5369e+01 ,5.6019e+01 ,4.3667e+01 ,1.3525e+01 /) - kbo(:, 4,53,12) = (/ & - &1.7916e+02 ,1.3451e+02 ,9.1517e+01 ,5.7134e+01 ,1.4067e+01 /) - kbo(:, 5,53,12) = (/ & - &2.9931e+02 ,2.2462e+02 ,1.5004e+02 ,8.0825e+01 ,1.4479e+01 /) - kbo(:, 1,54,12) = (/ & - &1.9814e+01 ,2.1046e+01 ,2.4392e+01 ,2.3477e+01 ,1.1367e+01 /) - kbo(:, 2,54,12) = (/ & - &4.3028e+01 ,3.5019e+01 ,3.4545e+01 ,3.1504e+01 ,1.2419e+01 /) - kbo(:, 3,54,12) = (/ & - &8.5988e+01 ,6.5126e+01 ,5.0588e+01 ,4.1403e+01 ,1.3282e+01 /) - kbo(:, 4,54,12) = (/ & - &1.5878e+02 ,1.1923e+02 ,8.2044e+01 ,5.3856e+01 ,1.3889e+01 /) - kbo(:, 5,54,12) = (/ & - &2.7225e+02 ,2.0433e+02 ,1.3669e+02 ,7.5460e+01 ,1.4357e+01 /) - kbo(:, 1,55,12) = (/ & - &1.4388e+01 ,1.7950e+01 ,2.1372e+01 ,2.1168e+01 ,1.0974e+01 /) - kbo(:, 2,55,12) = (/ & - &3.2596e+01 ,2.8570e+01 ,3.0630e+01 ,2.8429e+01 ,1.2112e+01 /) - kbo(:, 3,55,12) = (/ & - &6.7426e+01 ,5.1747e+01 ,4.3446e+01 ,3.7705e+01 ,1.3016e+01 /) - kbo(:, 4,55,12) = (/ & - &1.2839e+02 ,9.6452e+01 ,6.8218e+01 ,4.8732e+01 ,1.3748e+01 /) - kbo(:, 5,55,12) = (/ & - &2.2612e+02 ,1.6973e+02 ,1.1415e+02 ,6.6296e+01 ,1.4200e+01 /) - kbo(:, 1,56,12) = (/ & - &1.0289e+01 ,1.5296e+01 ,1.8729e+01 ,1.9182e+01 ,1.0528e+01 /) - kbo(:, 2,56,12) = (/ & - &2.4440e+01 ,2.3761e+01 ,2.7083e+01 ,2.5668e+01 ,1.1786e+01 /) - kbo(:, 3,56,12) = (/ & - &5.2397e+01 ,4.1238e+01 ,3.7979e+01 ,3.4254e+01 ,1.2753e+01 /) - kbo(:, 4,56,12) = (/ & - &1.0299e+02 ,7.7598e+01 ,5.7468e+01 ,4.4519e+01 ,1.3526e+01 /) - kbo(:, 5,56,12) = (/ & - &1.8650e+02 ,1.4002e+02 ,9.5113e+01 ,5.8818e+01 ,1.4062e+01 /) - kbo(:, 1,57,12) = (/ & - &7.2296e+00 ,1.3018e+01 ,1.6426e+01 ,1.7434e+01 ,1.0060e+01 /) - kbo(:, 2,57,12) = (/ & - &1.8079e+01 ,2.0222e+01 ,2.3856e+01 ,2.3179e+01 ,1.1422e+01 /) - kbo(:, 3,57,12) = (/ & - &4.0328e+01 ,3.3389e+01 ,3.3719e+01 ,3.1042e+01 ,1.2469e+01 /) - kbo(:, 4,57,12) = (/ & - &8.1861e+01 ,6.2161e+01 ,4.9031e+01 ,4.0727e+01 ,1.3313e+01 /) - kbo(:, 5,57,12) = (/ & - &1.5269e+02 ,1.1466e+02 ,7.9200e+01 ,5.2806e+01 ,1.3923e+01 /) - kbo(:, 1,58,12) = (/ & - &1.3378e+00 ,3.6524e+00 ,6.1661e+00 ,9.4777e+00 ,9.5880e+00 /) - kbo(:, 2,58,12) = (/ & - &3.5257e+00 ,5.7408e+00 ,8.9221e+00 ,1.2503e+01 ,1.1030e+01 /) - kbo(:, 3,58,12) = (/ & - &8.2101e+00 ,9.0368e+00 ,1.2733e+01 ,1.6723e+01 ,1.2197e+01 /) - kbo(:, 4,58,12) = (/ & - &1.7210e+01 ,1.6233e+01 ,1.7913e+01 ,2.2101e+01 ,1.3072e+01 /) - kbo(:, 5,58,12) = (/ & - &3.3035e+01 ,3.0353e+01 ,2.7850e+01 ,2.8452e+01 ,1.3763e+01 /) - kbo(:, 1,59,12) = (/ & - &1.3260e+00 ,4.5998e+00 ,7.5889e+00 ,1.0717e+01 ,9.4033e+00 /) - kbo(:, 2,59,12) = (/ & - &3.6097e+00 ,7.0919e+00 ,1.0659e+01 ,1.3898e+01 ,1.0849e+01 /) - kbo(:, 3,59,12) = (/ & - &8.5987e+00 ,1.0607e+01 ,1.5006e+01 ,1.8102e+01 ,1.2070e+01 /) - kbo(:, 4,59,12) = (/ & - &1.8312e+01 ,1.7368e+01 ,2.0492e+01 ,2.3593e+01 ,1.3009e+01 /) - kbo(:, 5,59,12) = (/ & - &3.5634e+01 ,3.1449e+01 ,2.9305e+01 ,3.0122e+01 ,1.3723e+01 /) - kbo(:, 1,13,13) = (/ & - &1.2162e+03 ,9.1228e+02 ,6.0835e+02 ,3.0442e+02 ,5.7609e+00 /) - kbo(:, 2,13,13) = (/ & - &1.7381e+03 ,1.3037e+03 ,8.6931e+02 ,4.3490e+02 ,5.6432e+00 /) - kbo(:, 3,13,13) = (/ & - &2.3576e+03 ,1.7683e+03 ,1.1791e+03 ,5.8977e+02 ,5.5255e+00 /) - kbo(:, 4,13,13) = (/ & - &3.0662e+03 ,2.2998e+03 ,1.5334e+03 ,7.6694e+02 ,5.4044e+00 /) - kbo(:, 5,13,13) = (/ & - &3.8594e+03 ,2.8947e+03 ,1.9299e+03 ,9.6523e+02 ,5.2355e+00 /) - kbo(:, 1,14,13) = (/ & - &7.9362e+02 ,5.9533e+02 ,3.9705e+02 ,1.9877e+02 ,6.3709e+00 /) - kbo(:, 2,14,13) = (/ & - &1.1345e+03 ,8.5102e+02 ,5.6751e+02 ,2.8400e+02 ,6.2388e+00 /) - kbo(:, 3,14,13) = (/ & - &1.5436e+03 ,1.1578e+03 ,7.7203e+02 ,3.8627e+02 ,6.0986e+00 /) - kbo(:, 4,14,13) = (/ & - &2.0139e+03 ,1.5105e+03 ,1.0072e+03 ,5.0384e+02 ,5.9465e+00 /) - kbo(:, 5,14,13) = (/ & - &2.5413e+03 ,1.9061e+03 ,1.2709e+03 ,6.3569e+02 ,5.7898e+00 /) - kbo(:, 1,15,13) = (/ & - &5.3943e+02 ,4.0470e+02 ,2.6997e+02 ,1.3524e+02 ,7.0503e+00 /) - kbo(:, 2,15,13) = (/ & - &7.7270e+02 ,5.7965e+02 ,3.8660e+02 ,1.9355e+02 ,6.8771e+00 /) - kbo(:, 3,15,13) = (/ & - &1.0520e+03 ,7.8913e+02 ,5.2626e+02 ,2.6338e+02 ,6.6997e+00 /) - kbo(:, 4,15,13) = (/ & - &1.3743e+03 ,1.0308e+03 ,6.8738e+02 ,3.4394e+02 ,6.5201e+00 /) - kbo(:, 5,15,13) = (/ & - &1.7371e+03 ,1.3030e+03 ,8.6881e+02 ,4.3464e+02 ,6.3410e+00 /) - kbo(:, 1,16,13) = (/ & - &4.4449e+02 ,3.3349e+02 ,2.2249e+02 ,1.1150e+02 ,7.7448e+00 /) - kbo(:, 2,16,13) = (/ & - &6.3512e+02 ,4.7646e+02 ,3.1780e+02 ,1.5915e+02 ,7.5481e+00 /) - kbo(:, 3,16,13) = (/ & - &8.6257e+02 ,6.4705e+02 ,4.3152e+02 ,2.1600e+02 ,7.3457e+00 /) - kbo(:, 4,16,13) = (/ & - &1.1249e+03 ,8.4376e+02 ,5.6265e+02 ,2.8155e+02 ,7.1472e+00 /) - kbo(:, 5,16,13) = (/ & - &1.4185e+03 ,1.0640e+03 ,7.0946e+02 ,3.5494e+02 ,6.9622e+00 /) - kbo(:, 1,17,13) = (/ & - &3.7725e+02 ,2.8305e+02 ,1.8886e+02 ,9.4667e+01 ,8.5153e+00 /) - kbo(:, 2,17,13) = (/ & - &5.3579e+02 ,4.0195e+02 ,2.6812e+02 ,1.3428e+02 ,8.2959e+00 /) - kbo(:, 3,17,13) = (/ & - &7.2432e+02 ,5.4334e+02 ,3.6237e+02 ,1.8140e+02 ,8.0790e+00 /) - kbo(:, 4,17,13) = (/ & - &9.4095e+02 ,7.0582e+02 ,4.7068e+02 ,2.3555e+02 ,7.8782e+00 /) - kbo(:, 5,17,13) = (/ & - &1.1800e+03 ,8.8510e+02 ,5.9020e+02 ,2.9531e+02 ,7.6889e+00 /) - kbo(:, 1,18,13) = (/ & - &3.2277e+02 ,2.4218e+02 ,1.6159e+02 ,8.1002e+01 ,9.4611e+00 /) - kbo(:, 2,18,13) = (/ & - &4.5535e+02 ,3.4161e+02 ,2.2787e+02 ,1.1413e+02 ,9.2187e+00 /) - kbo(:, 3,18,13) = (/ & - &6.1248e+02 ,4.5945e+02 ,3.0643e+02 ,1.5340e+02 ,8.9925e+00 /) - kbo(:, 4,18,13) = (/ & - &7.9039e+02 ,5.9288e+02 ,3.9538e+02 ,1.9787e+02 ,8.7824e+00 /) - kbo(:, 5,18,13) = (/ & - &9.8664e+02 ,7.4007e+02 ,4.9351e+02 ,2.4694e+02 ,8.5832e+00 /) - kbo(:, 1,19,13) = (/ & - &2.6617e+02 ,1.9972e+02 ,1.3326e+02 ,6.6812e+01 ,1.0581e+01 /) - kbo(:, 2,19,13) = (/ & - &3.7316e+02 ,2.7996e+02 ,1.8675e+02 ,9.3549e+01 ,1.0334e+01 /) - kbo(:, 3,19,13) = (/ & - &4.9811e+02 ,3.7366e+02 ,2.4922e+02 ,1.2478e+02 ,1.0097e+01 /) - kbo(:, 4,19,13) = (/ & - &6.3941e+02 ,4.7964e+02 ,3.1987e+02 ,1.6011e+02 ,9.8657e+00 /) - kbo(:, 5,19,13) = (/ & - &7.9554e+02 ,5.9674e+02 ,3.9794e+02 ,1.9915e+02 ,9.6319e+00 /) - kbo(:, 1,20,13) = (/ & - &2.3446e+02 ,1.7592e+02 ,1.1738e+02 ,5.8849e+01 ,1.1882e+01 /) - kbo(:, 2,20,13) = (/ & - &3.2565e+02 ,2.4431e+02 ,1.6298e+02 ,8.1640e+01 ,1.1619e+01 /) - kbo(:, 3,20,13) = (/ & - &4.3162e+02 ,3.2380e+02 ,2.1597e+02 ,1.0814e+02 ,1.1360e+01 /) - kbo(:, 4,20,13) = (/ & - &5.5163e+02 ,4.1380e+02 ,2.7598e+02 ,1.3815e+02 ,1.1092e+01 /) - kbo(:, 5,20,13) = (/ & - &6.8433e+02 ,5.1333e+02 ,3.4234e+02 ,1.7134e+02 ,1.0817e+01 /) - kbo(:, 1,21,13) = (/ & - &2.0791e+02 ,1.5600e+02 ,1.0410e+02 ,5.2196e+01 ,1.3299e+01 /) - kbo(:, 2,21,13) = (/ & - &2.8639e+02 ,2.1487e+02 ,1.4335e+02 ,7.1825e+01 ,1.3019e+01 /) - kbo(:, 3,21,13) = (/ & - &3.7808e+02 ,2.8364e+02 ,1.8920e+02 ,9.4762e+01 ,1.2725e+01 /) - kbo(:, 4,21,13) = (/ & - &4.8188e+02 ,3.6150e+02 ,2.4111e+02 ,1.2072e+02 ,1.2414e+01 /) - kbo(:, 5,21,13) = (/ & - &5.9751e+02 ,4.4821e+02 ,2.9892e+02 ,1.4963e+02 ,1.2098e+01 /) - kbo(:, 1,22,13) = (/ & - &1.8905e+02 ,1.4186e+02 ,9.4669e+01 ,4.7658e+01 ,1.4760e+01 /) - kbo(:, 2,22,13) = (/ & - &2.5846e+02 ,1.9392e+02 ,1.2939e+02 ,6.4852e+01 ,1.4444e+01 /) - kbo(:, 3,22,13) = (/ & - &3.3936e+02 ,2.5460e+02 ,1.6984e+02 ,8.5086e+01 ,1.4104e+01 /) - kbo(:, 4,22,13) = (/ & - &4.3137e+02 ,3.2361e+02 ,2.1585e+02 ,1.0809e+02 ,1.3746e+01 /) - kbo(:, 5,22,13) = (/ & - &5.3388e+02 ,4.0049e+02 ,2.6710e+02 ,1.3372e+02 ,1.3378e+01 /) - kbo(:, 1,23,13) = (/ & - &1.7012e+02 ,1.2766e+02 ,8.5209e+01 ,4.3736e+01 ,1.6211e+01 /) - kbo(:, 2,23,13) = (/ & - &2.3107e+02 ,1.7338e+02 ,1.1569e+02 ,5.8148e+01 ,1.5847e+01 /) - kbo(:, 3,23,13) = (/ & - &3.0241e+02 ,2.2689e+02 ,1.5137e+02 ,7.5851e+01 ,1.5467e+01 /) - kbo(:, 4,23,13) = (/ & - &3.8349e+02 ,2.8770e+02 ,1.9191e+02 ,9.6125e+01 ,1.5066e+01 /) - kbo(:, 5,23,13) = (/ & - &4.7369e+02 ,3.5535e+02 ,2.3701e+02 ,1.1867e+02 ,1.4651e+01 /) - kbo(:, 1,24,13) = (/ & - &1.5057e+02 ,1.1300e+02 ,7.5436e+01 ,4.0246e+01 ,1.7609e+01 /) - kbo(:, 2,24,13) = (/ & - &2.0367e+02 ,1.5283e+02 ,1.0199e+02 ,5.2083e+01 ,1.7203e+01 /) - kbo(:, 3,24,13) = (/ & - &2.6558e+02 ,1.9927e+02 ,1.3295e+02 ,6.6835e+01 ,1.6770e+01 /) - kbo(:, 4,24,13) = (/ & - &3.3594e+02 ,2.5203e+02 ,1.6813e+02 ,8.4226e+01 ,1.6325e+01 /) - kbo(:, 5,24,13) = (/ & - &4.1379e+02 ,3.1042e+02 ,2.0705e+02 ,1.0369e+02 ,1.5864e+01 /) - kbo(:, 1,25,13) = (/ & - &1.3420e+02 ,1.0073e+02 ,6.7255e+01 ,3.7941e+01 ,1.8922e+01 /) - kbo(:, 2,25,13) = (/ & - &1.8061e+02 ,1.3554e+02 ,9.0464e+01 ,4.7603e+01 ,1.8471e+01 /) - kbo(:, 3,25,13) = (/ & - &2.3464e+02 ,1.7606e+02 ,1.1747e+02 ,5.9840e+01 ,1.7998e+01 /) - kbo(:, 4,25,13) = (/ & - &2.9580e+02 ,2.2193e+02 ,1.4806e+02 ,7.4446e+01 ,1.7506e+01 /) - kbo(:, 5,25,13) = (/ & - &3.6422e+02 ,2.7325e+02 ,1.8228e+02 ,9.1309e+01 ,1.6997e+01 /) - kbo(:, 1,26,13) = (/ & - &1.2114e+02 ,9.0934e+01 ,6.0946e+01 ,3.6699e+01 ,2.0129e+01 /) - kbo(:, 2,26,13) = (/ & - &1.6224e+02 ,1.2175e+02 ,8.1268e+01 ,4.4540e+01 ,1.9645e+01 /) - kbo(:, 3,26,13) = (/ & - &2.0993e+02 ,1.5753e+02 ,1.0512e+02 ,5.4768e+01 ,1.9134e+01 /) - kbo(:, 4,26,13) = (/ & - &2.6457e+02 ,1.9850e+02 ,1.3244e+02 ,6.7280e+01 ,1.8599e+01 /) - kbo(:, 5,26,13) = (/ & - &3.2617e+02 ,2.4471e+02 ,1.6326e+02 ,8.2064e+01 ,1.8043e+01 /) - kbo(:, 1,27,13) = (/ & - &1.1288e+02 ,8.4731e+01 ,5.7258e+01 ,3.6591e+01 ,2.1235e+01 /) - kbo(:, 2,27,13) = (/ & - &1.5040e+02 ,1.1288e+02 ,7.5447e+01 ,4.3146e+01 ,2.0722e+01 /) - kbo(:, 3,27,13) = (/ & - &1.9447e+02 ,1.4593e+02 ,9.7397e+01 ,5.2019e+01 ,2.0175e+01 /) - kbo(:, 4,27,13) = (/ & - &2.4522e+02 ,1.8400e+02 ,1.2279e+02 ,6.3250e+01 ,1.9596e+01 /) - kbo(:, 5,27,13) = (/ & - &3.0305e+02 ,2.2738e+02 ,1.5172e+02 ,7.6751e+01 ,1.8997e+01 /) - kbo(:, 1,28,13) = (/ & - &1.0746e+02 ,8.0667e+01 ,5.5081e+01 ,3.7035e+01 ,2.2229e+01 /) - kbo(:, 2,28,13) = (/ & - &1.4298e+02 ,1.0731e+02 ,7.1965e+01 ,4.2784e+01 ,2.1691e+01 /) - kbo(:, 3,28,13) = (/ & - &1.8493e+02 ,1.3878e+02 ,9.2649e+01 ,5.0725e+01 ,2.1105e+01 /) - kbo(:, 4,28,13) = (/ & - &2.3378e+02 ,1.7543e+02 ,1.1708e+02 ,6.1166e+01 ,2.0486e+01 /) - kbo(:, 5,28,13) = (/ & - &2.9002e+02 ,2.1761e+02 ,1.4521e+02 ,7.3973e+01 ,1.9841e+01 /) - kbo(:, 1,29,13) = (/ & - &1.0862e+02 ,8.1537e+01 ,5.6008e+01 ,3.8525e+01 ,2.3108e+01 /) - kbo(:, 2,29,13) = (/ & - &1.4451e+02 ,1.0847e+02 ,7.2927e+01 ,4.4121e+01 ,2.2541e+01 /) - kbo(:, 3,29,13) = (/ & - &1.8742e+02 ,1.4066e+02 ,9.3939e+01 ,5.2003e+01 ,2.1917e+01 /) - kbo(:, 4,29,13) = (/ & - &2.3814e+02 ,1.7870e+02 ,1.1927e+02 ,6.2626e+01 ,2.1254e+01 /) - kbo(:, 5,29,13) = (/ & - &2.9712e+02 ,2.2294e+02 ,1.4877e+02 ,7.5955e+01 ,2.0559e+01 /) - kbo(:, 1,30,13) = (/ & - &1.1263e+02 ,8.4559e+01 ,5.8240e+01 ,4.0363e+01 ,2.3867e+01 /) - kbo(:, 2,30,13) = (/ & - &1.5031e+02 ,1.1283e+02 ,7.5908e+01 ,4.6135e+01 ,2.3263e+01 /) - kbo(:, 3,30,13) = (/ & - &1.9606e+02 ,1.4715e+02 ,9.8280e+01 ,5.4419e+01 ,2.2598e+01 /) - kbo(:, 4,30,13) = (/ & - &2.5065e+02 ,1.8809e+02 ,1.2553e+02 ,6.5875e+01 ,2.1889e+01 /) - kbo(:, 5,30,13) = (/ & - &3.1497e+02 ,2.3633e+02 ,1.5769e+02 ,8.0462e+01 ,2.1149e+01 /) - kbo(:, 1,31,13) = (/ & - &1.2378e+02 ,9.2930e+01 ,6.3680e+01 ,4.3209e+01 ,2.4494e+01 /) - kbo(:, 2,31,13) = (/ & - &1.6598e+02 ,1.2458e+02 ,8.3650e+01 ,4.9789e+01 ,2.3857e+01 /) - kbo(:, 3,31,13) = (/ & - &2.1788e+02 ,1.6351e+02 ,1.0916e+02 ,5.9548e+01 ,2.3152e+01 /) - kbo(:, 4,31,13) = (/ & - &2.8056e+02 ,2.1051e+02 ,1.4048e+02 ,7.3069e+01 ,2.2400e+01 /) - kbo(:, 5,31,13) = (/ & - &3.5485e+02 ,2.6624e+02 ,1.7763e+02 ,9.0172e+01 ,2.1588e+01 /) - kbo(:, 1,32,13) = (/ & - &1.3906e+02 ,1.0439e+02 ,7.1039e+01 ,4.6595e+01 ,2.5004e+01 /) - kbo(:, 2,32,13) = (/ & - &1.8760e+02 ,1.4080e+02 ,9.4311e+01 ,5.4496e+01 ,2.4327e+01 /) - kbo(:, 3,32,13) = (/ & - &2.4774e+02 ,1.8590e+02 ,1.2408e+02 ,6.6467e+01 ,2.3584e+01 /) - kbo(:, 4,32,13) = (/ & - &3.2109e+02 ,2.4091e+02 ,1.6074e+02 ,8.2698e+01 ,2.2768e+01 /) - kbo(:, 5,32,13) = (/ & - &4.0872e+02 ,3.0664e+02 ,2.0456e+02 ,1.0327e+02 ,2.1879e+01 /) - kbo(:, 1,33,13) = (/ & - &1.6104e+02 ,1.2087e+02 ,8.1641e+01 ,5.1002e+01 ,2.5402e+01 /) - kbo(:, 2,33,13) = (/ & - &2.1845e+02 ,1.6394e+02 ,1.0954e+02 ,6.1146e+01 ,2.4688e+01 /) - kbo(:, 3,33,13) = (/ & - &2.9039e+02 ,2.1789e+02 ,1.4539e+02 ,7.6233e+01 ,2.3897e+01 /) - kbo(:, 4,33,13) = (/ & - &3.7885e+02 ,2.8424e+02 ,1.8963e+02 ,9.6481e+01 ,2.2987e+01 /) - kbo(:, 5,33,13) = (/ & - &4.8539e+02 ,3.6414e+02 ,2.4290e+02 ,1.2206e+02 ,2.2183e+01 /) - kbo(:, 1,34,13) = (/ & - &1.8189e+02 ,1.3651e+02 ,9.1768e+01 ,5.5207e+01 ,2.5729e+01 /) - kbo(:, 2,34,13) = (/ & - &2.4868e+02 ,1.8660e+02 ,1.2456e+02 ,6.7745e+01 ,2.4984e+01 /) - kbo(:, 3,34,13) = (/ & - &3.3298e+02 ,2.4983e+02 ,1.6669e+02 ,8.6174e+01 ,2.4083e+01 /) - kbo(:, 4,34,13) = (/ & - &4.3751e+02 ,3.2823e+02 ,2.1895e+02 ,1.1064e+02 ,2.3253e+01 /) - kbo(:, 5,34,13) = (/ & - &5.6416e+02 ,4.2322e+02 ,2.8227e+02 ,1.4151e+02 ,2.2432e+01 /) - kbo(:, 1,35,13) = (/ & - &2.0192e+02 ,1.5153e+02 ,1.0158e+02 ,5.9346e+01 ,2.6044e+01 /) - kbo(:, 2,35,13) = (/ & - &2.7880e+02 ,2.0919e+02 ,1.3960e+02 ,7.4527e+01 ,2.5204e+01 /) - kbo(:, 3,35,13) = (/ & - &3.7683e+02 ,2.8271e+02 ,1.8860e+02 ,9.6532e+01 ,2.4315e+01 /) - kbo(:, 4,35,13) = (/ & - &4.9906e+02 ,3.7439e+02 ,2.4972e+02 ,1.2566e+02 ,2.3549e+01 /) - kbo(:, 5,35,13) = (/ & - &6.4817e+02 ,4.8622e+02 ,3.2427e+02 ,1.6242e+02 ,2.2556e+01 /) - kbo(:, 1,36,13) = (/ & - &2.1718e+02 ,1.6298e+02 ,1.0911e+02 ,6.2682e+01 ,2.6372e+01 /) - kbo(:, 2,36,13) = (/ & - &3.0353e+02 ,2.2773e+02 ,1.5196e+02 ,8.0255e+01 ,2.5484e+01 /) - kbo(:, 3,36,13) = (/ & - &4.1487e+02 ,3.1124e+02 ,2.0762e+02 ,1.0565e+02 ,2.4690e+01 /) - kbo(:, 4,36,13) = (/ & - &5.5465e+02 ,4.1607e+02 ,2.7750e+02 ,1.3934e+02 ,2.3815e+01 /) - kbo(:, 5,36,13) = (/ & - &7.2608e+02 ,5.4465e+02 ,3.6322e+02 ,1.8189e+02 ,2.2654e+01 /) - kbo(:, 1,37,13) = (/ & - &2.1788e+02 ,1.6349e+02 ,1.0950e+02 ,6.3289e+01 ,2.6719e+01 /) - kbo(:, 2,37,13) = (/ & - &3.0912e+02 ,2.3193e+02 ,1.5476e+02 ,8.1797e+01 ,2.5860e+01 /) - kbo(:, 3,37,13) = (/ & - &4.2846e+02 ,3.2142e+02 ,2.1440e+02 ,1.0906e+02 ,2.5054e+01 /) - kbo(:, 4,37,13) = (/ & - &5.7982e+02 ,4.3495e+02 ,2.9008e+02 ,1.4561e+02 ,2.4158e+01 /) - kbo(:, 5,37,13) = (/ & - &7.6717e+02 ,5.7546e+02 ,3.8377e+02 ,1.9217e+02 ,2.2948e+01 /) - kbo(:, 1,38,13) = (/ & - &2.2254e+02 ,1.6699e+02 ,1.1184e+02 ,6.4633e+01 ,2.7030e+01 /) - kbo(:, 2,38,13) = (/ & - &3.2031e+02 ,2.4031e+02 ,1.6035e+02 ,8.4610e+01 ,2.6154e+01 /) - kbo(:, 3,38,13) = (/ & - &4.5000e+02 ,3.3758e+02 ,2.2517e+02 ,1.1439e+02 ,2.5377e+01 /) - kbo(:, 4,38,13) = (/ & - &6.1626e+02 ,4.6228e+02 ,3.0831e+02 ,1.5466e+02 ,2.4449e+01 /) - kbo(:, 5,38,13) = (/ & - &8.2391e+02 ,6.1802e+02 ,4.1215e+02 ,2.0635e+02 ,2.3228e+01 /) - kbo(:, 1,39,13) = (/ & - &2.3401e+02 ,1.7560e+02 ,1.1754e+02 ,6.7259e+01 ,2.7265e+01 /) - kbo(:, 2,39,13) = (/ & - &3.4141e+02 ,2.5613e+02 ,1.7089e+02 ,8.9638e+01 ,2.6464e+01 /) - kbo(:, 3,39,13) = (/ & - &4.8579e+02 ,3.6442e+02 ,2.4308e+02 ,1.2315e+02 ,2.5687e+01 /) - kbo(:, 4,39,13) = (/ & - &6.7297e+02 ,5.0482e+02 ,3.3668e+02 ,1.6875e+02 ,2.4654e+01 /) - kbo(:, 5,39,13) = (/ & - &9.0884e+02 ,6.8173e+02 ,4.5462e+02 ,2.2758e+02 ,2.3620e+01 /) - kbo(:, 1,40,13) = (/ & - &2.2310e+02 ,1.6742e+02 ,1.1224e+02 ,6.5625e+01 ,2.7589e+01 /) - kbo(:, 2,40,13) = (/ & - &3.3051e+02 ,2.4796e+02 ,1.6546e+02 ,8.7436e+01 ,2.6816e+01 /) - kbo(:, 3,40,13) = (/ & - &4.7705e+02 ,3.5787e+02 ,2.3871e+02 ,1.2127e+02 ,2.6052e+01 /) - kbo(:, 4,40,13) = (/ & - &6.7033e+02 ,5.0284e+02 ,3.3536e+02 ,1.6816e+02 ,2.5038e+01 /) - kbo(:, 5,40,13) = (/ & - &9.1616e+02 ,6.8722e+02 ,4.5828e+02 ,2.2941e+02 ,2.4007e+01 /) - kbo(:, 1,41,13) = (/ & - &2.1165e+02 ,1.5884e+02 ,1.0674e+02 ,6.4017e+01 ,2.7888e+01 /) - kbo(:, 2,41,13) = (/ & - &3.1819e+02 ,2.3873e+02 ,1.5932e+02 ,8.5003e+01 ,2.7118e+01 /) - kbo(:, 3,41,13) = (/ & - &4.6591e+02 ,3.4951e+02 ,2.3314e+02 ,1.1880e+02 ,2.6396e+01 /) - kbo(:, 4,41,13) = (/ & - &6.6349e+02 ,4.9771e+02 ,3.3195e+02 ,1.6656e+02 ,2.5465e+01 /) - kbo(:, 5,41,13) = (/ & - &9.1847e+02 ,6.8895e+02 ,4.5944e+02 ,2.3000e+02 ,2.4337e+01 /) - kbo(:, 1,42,13) = (/ & - &2.0335e+02 ,1.5260e+02 ,1.0282e+02 ,6.3023e+01 ,2.8153e+01 /) - kbo(:, 2,42,13) = (/ & - &3.1003e+02 ,2.3260e+02 ,1.5524e+02 ,8.3539e+01 ,2.7395e+01 /) - kbo(:, 3,42,13) = (/ & - &4.6024e+02 ,3.4526e+02 ,2.3031e+02 ,1.1765e+02 ,2.6718e+01 /) - kbo(:, 4,42,13) = (/ & - &6.6381e+02 ,4.9795e+02 ,3.3210e+02 ,1.6673e+02 ,2.5846e+01 /) - kbo(:, 5,42,13) = (/ & - &9.3041e+02 ,6.9790e+02 ,4.6540e+02 ,2.3298e+02 ,2.4647e+01 /) - kbo(:, 1,43,13) = (/ & - &1.9244e+02 ,1.4443e+02 ,9.7744e+01 ,6.1682e+01 ,2.8431e+01 /) - kbo(:, 2,43,13) = (/ & - &2.9785e+02 ,2.2347e+02 ,1.4920e+02 ,8.1276e+01 ,2.7711e+01 /) - kbo(:, 3,43,13) = (/ & - &4.4872e+02 ,3.3663e+02 ,2.2458e+02 ,1.1517e+02 ,2.7073e+01 /) - kbo(:, 4,43,13) = (/ & - &6.5646e+02 ,4.9243e+02 ,3.2842e+02 ,1.6500e+02 ,2.6290e+01 /) - kbo(:, 5,43,13) = (/ & - &9.3268e+02 ,6.9961e+02 ,4.6654e+02 ,2.3355e+02 ,2.5000e+01 /) - kbo(:, 1,44,13) = (/ & - &1.8195e+02 ,1.3656e+02 ,9.2955e+01 ,6.0559e+01 ,2.8683e+01 /) - kbo(:, 2,44,13) = (/ & - &2.8673e+02 ,2.1514e+02 ,1.4371e+02 ,7.9343e+01 ,2.8022e+01 /) - kbo(:, 3,44,13) = (/ & - &4.3845e+02 ,3.2893e+02 ,2.1944e+02 ,1.1299e+02 ,2.7430e+01 /) - kbo(:, 4,44,13) = (/ & - &6.5082e+02 ,4.8820e+02 ,3.2560e+02 ,1.6371e+02 ,2.6724e+01 /) - kbo(:, 5,44,13) = (/ & - &9.3739e+02 ,7.0313e+02 ,4.6889e+02 ,2.3472e+02 ,2.5409e+01 /) - kbo(:, 1,45,13) = (/ & - &1.7490e+02 ,1.3128e+02 ,8.9889e+01 ,6.0087e+01 ,2.8892e+01 /) - kbo(:, 2,45,13) = (/ & - &2.8115e+02 ,2.1096e+02 ,1.4101e+02 ,7.8697e+01 ,2.8297e+01 /) - kbo(:, 3,45,13) = (/ & - &4.3612e+02 ,3.2718e+02 ,2.1828e+02 ,1.1266e+02 ,2.7806e+01 /) - kbo(:, 4,45,13) = (/ & - &6.5668e+02 ,4.9260e+02 ,3.2854e+02 ,1.6526e+02 ,2.7097e+01 /) - kbo(:, 5,45,13) = (/ & - &9.5876e+02 ,7.1917e+02 ,4.7958e+02 ,2.4006e+02 ,2.5776e+01 /) - kbo(:, 1,46,13) = (/ & - &1.6728e+02 ,1.2556e+02 ,8.6592e+01 ,5.9568e+01 ,2.9082e+01 /) - kbo(:, 2,46,13) = (/ & - &2.7457e+02 ,2.0602e+02 ,1.3784e+02 ,7.7967e+01 ,2.8545e+01 /) - kbo(:, 3,46,13) = (/ & - &4.3313e+02 ,3.2494e+02 ,2.1678e+02 ,1.1222e+02 ,2.8139e+01 /) - kbo(:, 4,46,13) = (/ & - &6.6163e+02 ,4.9632e+02 ,3.3103e+02 ,1.6658e+02 ,2.7449e+01 /) - kbo(:, 5,46,13) = (/ & - &9.8004e+02 ,7.3512e+02 ,4.9021e+02 ,2.4539e+02 ,2.6122e+01 /) - kbo(:, 1,47,13) = (/ & - &1.5431e+02 ,1.1585e+02 ,8.0931e+01 ,5.8232e+01 ,2.9262e+01 /) - kbo(:, 2,47,13) = (/ & - &2.5885e+02 ,1.9423e+02 ,1.3026e+02 ,7.5643e+01 ,2.8798e+01 /) - kbo(:, 3,47,13) = (/ & - &4.1682e+02 ,3.1271e+02 ,2.0862e+02 ,1.0877e+02 ,2.8446e+01 /) - kbo(:, 4,47,13) = (/ & - &6.4684e+02 ,4.8523e+02 ,3.2363e+02 ,1.6308e+02 ,2.7814e+01 /) - kbo(:, 5,47,13) = (/ & - &9.7279e+02 ,7.2968e+02 ,4.8659e+02 ,2.4359e+02 ,2.6548e+01 /) - kbo(:, 1,48,13) = (/ & - &1.4538e+02 ,1.0915e+02 ,7.7289e+01 ,5.7662e+01 ,2.9351e+01 /) - kbo(:, 2,48,13) = (/ & - &2.4931e+02 ,1.8708e+02 ,1.2577e+02 ,7.4691e+01 ,2.8998e+01 /) - kbo(:, 3,48,13) = (/ & - &4.1014e+02 ,3.0770e+02 ,2.0528e+02 ,1.0766e+02 ,2.8726e+01 /) - kbo(:, 4,48,13) = (/ & - &6.4756e+02 ,4.8577e+02 ,3.2399e+02 ,1.6338e+02 ,2.8115e+01 /) - kbo(:, 5,48,13) = (/ & - &9.8831e+02 ,7.4133e+02 ,4.9436e+02 ,2.4748e+02 ,2.6944e+01 /) - kbo(:, 1,49,13) = (/ & - &1.4120e+02 ,1.0604e+02 ,7.5941e+01 ,5.8065e+01 ,2.9380e+01 /) - kbo(:, 2,49,13) = (/ & - &2.4862e+02 ,1.8657e+02 ,1.2564e+02 ,7.5519e+01 ,2.9233e+01 /) - kbo(:, 3,49,13) = (/ & - &4.1758e+02 ,3.1328e+02 ,2.0900e+02 ,1.0986e+02 ,2.8989e+01 /) - kbo(:, 4,49,13) = (/ & - &6.7203e+02 ,5.0412e+02 ,3.3622e+02 ,1.6950e+02 ,2.8333e+01 /) - kbo(:, 5,49,13) = (/ & - &1.0415e+03 ,7.8124e+02 ,5.2096e+02 ,2.6077e+02 ,2.7256e+01 /) - kbo(:, 1,50,13) = (/ & - &1.3115e+02 ,9.8605e+01 ,7.2172e+01 ,5.7503e+01 ,2.9363e+01 /) - kbo(:, 2,50,13) = (/ & - &2.3790e+02 ,1.7854e+02 ,1.2070e+02 ,7.4407e+01 ,2.9364e+01 /) - kbo(:, 3,50,13) = (/ & - &4.0744e+02 ,3.0568e+02 ,2.0394e+02 ,1.0804e+02 ,2.9149e+01 /) - kbo(:, 4,50,13) = (/ & - &6.6872e+02 ,5.0163e+02 ,3.3456e+02 ,1.6889e+02 ,2.8599e+01 /) - kbo(:, 5,50,13) = (/ & - &1.0519e+03 ,7.8905e+02 ,5.2618e+02 ,2.6337e+02 ,2.7606e+01 /) - kbo(:, 1,51,13) = (/ & - &1.1865e+02 ,8.9445e+01 ,6.7680e+01 ,5.6587e+01 ,2.9290e+01 /) - kbo(:, 2,51,13) = (/ & - &2.2216e+02 ,1.6674e+02 ,1.1346e+02 ,7.2415e+01 ,2.9435e+01 /) - kbo(:, 3,51,13) = (/ & - &3.8895e+02 ,2.9182e+02 ,1.9472e+02 ,1.0439e+02 ,2.9207e+01 /) - kbo(:, 4,51,13) = (/ & - &6.5048e+02 ,4.8795e+02 ,3.2544e+02 ,1.6473e+02 ,2.8819e+01 /) - kbo(:, 5,51,13) = (/ & - &1.0401e+03 ,7.8020e+02 ,5.2027e+02 ,2.6042e+02 ,2.7943e+01 /) - kbo(:, 1,52,13) = (/ & - &1.0900e+02 ,8.2517e+01 ,6.4683e+01 ,5.6184e+01 ,2.9159e+01 /) - kbo(:, 2,52,13) = (/ & - &2.1154e+02 ,1.5879e+02 ,1.0876e+02 ,7.1453e+01 ,2.9466e+01 /) - kbo(:, 3,52,13) = (/ & - &3.8014e+02 ,2.8522e+02 ,1.9038e+02 ,1.0306e+02 ,2.9320e+01 /) - kbo(:, 4,52,13) = (/ & - &6.4723e+02 ,4.8552e+02 ,3.2381e+02 ,1.6425e+02 ,2.8993e+01 /) - kbo(:, 5,52,13) = (/ & - &1.0537e+03 ,7.9041e+02 ,5.2708e+02 ,2.6382e+02 ,2.8208e+01 /) - kbo(:, 1,53,13) = (/ & - &1.0283e+02 ,7.8224e+01 ,6.3272e+01 ,5.6425e+01 ,2.8966e+01 /) - kbo(:, 2,53,13) = (/ & - &2.0760e+02 ,1.5584e+02 ,1.0728e+02 ,7.1858e+01 ,2.9467e+01 /) - kbo(:, 3,53,13) = (/ & - &3.8429e+02 ,2.8834e+02 ,1.9251e+02 ,1.0470e+02 ,2.9381e+01 /) - kbo(:, 4,53,13) = (/ & - &6.6697e+02 ,5.0033e+02 ,3.3369e+02 ,1.6926e+02 ,2.9144e+01 /) - kbo(:, 5,53,13) = (/ & - &1.1061e+03 ,8.2971e+02 ,5.5328e+02 ,2.7691e+02 ,2.8402e+01 /) - kbo(:, 1,54,13) = (/ & - &8.4612e+01 ,6.5337e+01 ,5.7223e+01 ,5.4259e+01 ,2.8744e+01 /) - kbo(:, 2,54,13) = (/ & - &1.7755e+02 ,1.3329e+02 ,9.3740e+01 ,6.7487e+01 ,2.9376e+01 /) - kbo(:, 3,54,13) = (/ & - &3.3886e+02 ,2.5427e+02 ,1.7017e+02 ,9.5886e+01 ,2.9463e+01 /) - kbo(:, 4,54,13) = (/ & - &6.0067e+02 ,4.5060e+02 ,3.0055e+02 ,1.5369e+02 ,2.9315e+01 /) - kbo(:, 5,54,13) = (/ & - &1.0127e+03 ,7.5962e+02 ,5.0655e+02 ,2.5368e+02 ,2.8705e+01 /) - kbo(:, 1,55,13) = (/ & - &6.3387e+01 ,5.0935e+01 ,5.0168e+01 ,5.0996e+01 ,2.8487e+01 /) - kbo(:, 2,55,13) = (/ & - &1.3831e+02 ,1.0410e+02 ,7.7011e+01 ,6.1667e+01 ,2.9169e+01 /) - kbo(:, 3,55,13) = (/ & - &2.7282e+02 ,2.0475e+02 ,1.3822e+02 ,8.3541e+01 ,2.9521e+01 /) - kbo(:, 4,55,13) = (/ & - &4.9509e+02 ,3.7143e+02 ,2.4779e+02 ,1.2925e+02 ,2.9355e+01 /) - kbo(:, 5,55,13) = (/ & - &8.4764e+02 ,6.3583e+02 ,4.2402e+02 ,2.1299e+02 ,2.9013e+01 /) - kbo(:, 1,56,13) = (/ & - &4.6914e+01 ,4.0782e+01 ,4.5015e+01 ,4.7952e+01 ,2.8186e+01 /) - kbo(:, 2,56,13) = (/ & - &1.0661e+02 ,8.1027e+01 ,6.4934e+01 ,5.7313e+01 ,2.9008e+01 /) - kbo(:, 3,56,13) = (/ & - &2.1790e+02 ,1.6356e+02 ,1.1223e+02 ,7.3951e+01 ,2.9460e+01 /) - kbo(:, 4,56,13) = (/ & - &4.0585e+02 ,3.0451e+02 ,2.0325e+02 ,1.0953e+02 ,2.9455e+01 /) - kbo(:, 5,56,13) = (/ & - &7.0659e+02 ,5.3004e+02 ,3.5349e+02 ,1.7883e+02 ,2.9213e+01 /) - kbo(:, 1,57,13) = (/ & - &3.4230e+01 ,3.3758e+01 ,4.1164e+01 ,4.5068e+01 ,2.7829e+01 /) - kbo(:, 2,57,13) = (/ & - &8.1249e+01 ,6.3007e+01 ,5.6061e+01 ,5.3761e+01 ,2.8811e+01 /) - kbo(:, 3,57,13) = (/ & - &1.7223e+02 ,1.2931e+02 ,9.1411e+01 ,6.6606e+01 ,2.9335e+01 /) - kbo(:, 4,57,13) = (/ & - &3.3026e+02 ,2.4783e+02 ,1.6598e+02 ,9.4193e+01 ,2.9500e+01 /) - kbo(:, 5,57,13) = (/ & - &5.8636e+02 ,4.3987e+02 ,2.9340e+02 ,1.5031e+02 ,2.9335e+01 /) - kbo(:, 1,58,13) = (/ & - &6.5933e+00 ,9.4893e+00 ,1.6089e+01 ,2.5300e+01 ,2.7425e+01 /) - kbo(:, 2,58,13) = (/ & - &1.6360e+01 ,1.6224e+01 ,2.0957e+01 ,3.0182e+01 ,2.8583e+01 /) - kbo(:, 3,58,13) = (/ & - &3.5957e+01 ,3.3123e+01 ,3.1853e+01 ,3.6291e+01 ,2.9233e+01 /) - kbo(:, 4,58,13) = (/ & - &7.1076e+01 ,6.5212e+01 ,5.6746e+01 ,4.8699e+01 ,2.9472e+01 /) - kbo(:, 5,58,13) = (/ & - &1.2897e+02 ,1.1828e+02 ,1.0149e+02 ,7.4519e+01 ,2.9400e+01 /) - kbo(:, 1,59,13) = (/ & - &6.7458e+00 ,1.2021e+01 ,2.0178e+01 ,2.9391e+01 ,2.7237e+01 /) - kbo(:, 2,59,13) = (/ & - &1.7109e+01 ,1.8183e+01 ,2.5274e+01 ,3.4440e+01 ,2.8519e+01 /) - kbo(:, 3,59,13) = (/ & - &3.8233e+01 ,3.4158e+01 ,3.4619e+01 ,4.0204e+01 ,2.9240e+01 /) - kbo(:, 4,59,13) = (/ & - &7.6647e+01 ,6.6998e+01 ,5.6073e+01 ,4.9489e+01 ,2.9509e+01 /) - kbo(:, 5,59,13) = (/ & - &1.4043e+02 ,1.2268e+02 ,9.8230e+01 ,6.8889e+01 ,2.9402e+01 /) - kbo(:, 1,13,14) = (/ & - &2.1776e+03 ,1.6333e+03 ,1.0891e+03 ,5.4478e+02 ,7.3262e+00 /) - kbo(:, 2,13,14) = (/ & - &3.1101e+03 ,2.3327e+03 ,1.5553e+03 ,7.7788e+02 ,7.3124e+00 /) - kbo(:, 3,13,14) = (/ & - &4.2249e+03 ,3.1687e+03 ,2.1126e+03 ,1.0565e+03 ,7.2480e+00 /) - kbo(:, 4,13,14) = (/ & - &5.5118e+03 ,4.1339e+03 ,2.7561e+03 ,1.3783e+03 ,7.1568e+00 /) - kbo(:, 5,13,14) = (/ & - &6.9506e+03 ,5.2131e+03 ,3.4755e+03 ,1.7380e+03 ,7.0367e+00 /) - kbo(:, 1,14,14) = (/ & - &1.4496e+03 ,1.0873e+03 ,7.2501e+02 ,3.6272e+02 ,8.3339e+00 /) - kbo(:, 2,14,14) = (/ & - &2.0734e+03 ,1.5551e+03 ,1.0369e+03 ,5.1863e+02 ,8.2705e+00 /) - kbo(:, 3,14,14) = (/ & - &2.8238e+03 ,2.1179e+03 ,1.4121e+03 ,7.0623e+02 ,8.1703e+00 /) - kbo(:, 4,14,14) = (/ & - &3.6841e+03 ,2.7632e+03 ,1.8422e+03 ,9.2131e+02 ,8.0387e+00 /) - kbo(:, 5,14,14) = (/ & - &4.6457e+03 ,3.4843e+03 ,2.3230e+03 ,1.1617e+03 ,7.8896e+00 /) - kbo(:, 1,15,14) = (/ & - &9.9772e+02 ,7.4839e+02 ,4.9906e+02 ,2.4972e+02 ,9.4242e+00 /) - kbo(:, 2,15,14) = (/ & - &1.4271e+03 ,1.0704e+03 ,7.1374e+02 ,3.5707e+02 ,9.3124e+00 /) - kbo(:, 3,15,14) = (/ & - &1.9364e+03 ,1.4524e+03 ,9.6841e+02 ,4.8440e+02 ,9.1590e+00 /) - kbo(:, 4,15,14) = (/ & - &2.5268e+03 ,1.8952e+03 ,1.2636e+03 ,6.3198e+02 ,8.9837e+00 /) - kbo(:, 5,15,14) = (/ & - &3.1888e+03 ,2.3917e+03 ,1.5946e+03 ,7.9748e+02 ,8.7913e+00 /) - kbo(:, 1,16,14) = (/ & - &8.2535e+02 ,6.1910e+02 ,4.1286e+02 ,2.0662e+02 ,1.0617e+01 /) - kbo(:, 2,16,14) = (/ & - &1.1765e+03 ,8.8250e+02 ,5.8845e+02 ,2.9441e+02 ,1.0441e+01 /) - kbo(:, 3,16,14) = (/ & - &1.5988e+03 ,1.1992e+03 ,7.9956e+02 ,3.9995e+02 ,1.0240e+01 /) - kbo(:, 4,16,14) = (/ & - &2.0853e+03 ,1.5640e+03 ,1.0428e+03 ,5.2160e+02 ,1.0022e+01 /) - kbo(:, 5,16,14) = (/ & - &2.6260e+03 ,1.9696e+03 ,1.3132e+03 ,6.5679e+02 ,9.7853e+00 /) - kbo(:, 1,17,14) = (/ & - &7.1446e+02 ,5.3593e+02 ,3.5740e+02 ,1.7888e+02 ,1.1902e+01 /) - kbo(:, 2,17,14) = (/ & - &1.0170e+03 ,7.6281e+02 ,5.0866e+02 ,2.5450e+02 ,1.1678e+01 /) - kbo(:, 3,17,14) = (/ & - &1.3782e+03 ,1.0338e+03 ,6.8929e+02 ,3.4482e+02 ,1.1434e+01 /) - kbo(:, 4,17,14) = (/ & - &1.7913e+03 ,1.3436e+03 ,8.9585e+02 ,4.4810e+02 ,1.1160e+01 /) - kbo(:, 5,17,14) = (/ & - &2.2531e+03 ,1.6899e+03 ,1.1267e+03 ,5.6354e+02 ,1.0872e+01 /) - kbo(:, 1,18,14) = (/ & - &6.3627e+02 ,4.7728e+02 ,3.1830e+02 ,1.5932e+02 ,1.3306e+01 /) - kbo(:, 2,18,14) = (/ & - &9.0279e+02 ,6.7718e+02 ,4.5157e+02 ,2.2596e+02 ,1.3021e+01 /) - kbo(:, 3,18,14) = (/ & - &1.2176e+03 ,9.1326e+02 ,6.0896e+02 ,3.0466e+02 ,1.2705e+01 /) - kbo(:, 4,18,14) = (/ & - &1.5793e+03 ,1.1846e+03 ,7.8983e+02 ,3.9509e+02 ,1.2374e+01 /) - kbo(:, 5,18,14) = (/ & - &1.9821e+03 ,1.4867e+03 ,9.9125e+02 ,4.9580e+02 ,1.2038e+01 /) - kbo(:, 1,19,14) = (/ & - &5.5701e+02 ,4.1784e+02 ,2.7868e+02 ,1.3951e+02 ,1.4835e+01 /) - kbo(:, 2,19,14) = (/ & - &7.8555e+02 ,5.8924e+02 ,3.9294e+02 ,1.9665e+02 ,1.4471e+01 /) - kbo(:, 3,19,14) = (/ & - &1.0565e+03 ,7.9246e+02 ,5.2842e+02 ,2.6438e+02 ,1.4088e+01 /) - kbo(:, 4,19,14) = (/ & - &1.3666e+03 ,1.0251e+03 ,6.8348e+02 ,3.4191e+02 ,1.3700e+01 /) - kbo(:, 5,19,14) = (/ & - &1.7097e+03 ,1.2824e+03 ,8.5504e+02 ,4.2769e+02 ,1.3330e+01 /) - kbo(:, 1,20,14) = (/ & - &5.2902e+02 ,3.9685e+02 ,2.6468e+02 ,1.3251e+02 ,1.6461e+01 /) - kbo(:, 2,20,14) = (/ & - &7.4221e+02 ,5.5674e+02 ,3.7128e+02 ,1.8581e+02 ,1.6028e+01 /) - kbo(:, 3,20,14) = (/ & - &9.9413e+02 ,7.4568e+02 ,4.9723e+02 ,2.4879e+02 ,1.5588e+01 /) - kbo(:, 4,20,14) = (/ & - &1.2802e+03 ,9.6022e+02 ,6.4026e+02 ,3.2030e+02 ,1.5170e+01 /) - kbo(:, 5,20,14) = (/ & - &1.5959e+03 ,1.1970e+03 ,7.9814e+02 ,3.9924e+02 ,1.4766e+01 /) - kbo(:, 1,21,14) = (/ & - &5.1643e+02 ,3.8740e+02 ,2.5838e+02 ,1.2935e+02 ,1.8266e+01 /) - kbo(:, 2,21,14) = (/ & - &7.2079e+02 ,5.4067e+02 ,3.6056e+02 ,1.8045e+02 ,1.7763e+01 /) - kbo(:, 3,21,14) = (/ & - &9.5965e+02 ,7.1982e+02 ,4.7999e+02 ,2.4017e+02 ,1.7272e+01 /) - kbo(:, 4,21,14) = (/ & - &1.2302e+03 ,9.2274e+02 ,6.1527e+02 ,3.0781e+02 ,1.6803e+01 /) - kbo(:, 5,21,14) = (/ & - &1.5280e+03 ,1.1461e+03 ,7.6416e+02 ,3.8225e+02 ,1.6348e+01 /) - kbo(:, 1,22,14) = (/ & - &5.2623e+02 ,3.9475e+02 ,2.6327e+02 ,1.3179e+02 ,2.0243e+01 /) - kbo(:, 2,22,14) = (/ & - &7.2644e+02 ,5.4491e+02 ,3.6339e+02 ,1.8186e+02 ,1.9664e+01 /) - kbo(:, 3,22,14) = (/ & - &9.5925e+02 ,7.1952e+02 ,4.7979e+02 ,2.4006e+02 ,1.9116e+01 /) - kbo(:, 4,22,14) = (/ & - &1.2211e+03 ,9.1590e+02 ,6.1071e+02 ,3.0553e+02 ,1.8593e+01 /) - kbo(:, 5,22,14) = (/ & - &1.5078e+03 ,1.1310e+03 ,7.5409e+02 ,3.7722e+02 ,1.8080e+01 /) - kbo(:, 1,23,14) = (/ & - &5.3158e+02 ,3.9876e+02 ,2.6595e+02 ,1.3313e+02 ,2.2446e+01 /) - kbo(:, 2,23,14) = (/ & - &7.2667e+02 ,5.4508e+02 ,3.6349e+02 ,1.8191e+02 ,2.1789e+01 /) - kbo(:, 3,23,14) = (/ & - &9.5159e+02 ,7.1378e+02 ,4.7596e+02 ,2.3814e+02 ,2.1156e+01 /) - kbo(:, 4,23,14) = (/ & - &1.2042e+03 ,9.0323e+02 ,6.0227e+02 ,3.0131e+02 ,2.0541e+01 /) - kbo(:, 5,23,14) = (/ & - &1.4791e+03 ,1.1094e+03 ,7.3972e+02 ,3.7004e+02 ,1.9936e+01 /) - kbo(:, 1,24,14) = (/ & - &5.2674e+02 ,3.9513e+02 ,2.6351e+02 ,1.3189e+02 ,2.4861e+01 /) - kbo(:, 2,24,14) = (/ & - &7.1320e+02 ,5.3497e+02 ,3.5675e+02 ,1.7852e+02 ,2.4105e+01 /) - kbo(:, 3,24,14) = (/ & - &9.2799e+02 ,6.9608e+02 ,4.6416e+02 ,2.3224e+02 ,2.3357e+01 /) - kbo(:, 4,24,14) = (/ & - &1.1676e+03 ,8.7581e+02 ,5.8399e+02 ,2.9218e+02 ,2.2617e+01 /) - kbo(:, 5,24,14) = (/ & - &1.4298e+03 ,1.0724e+03 ,7.1508e+02 ,3.5774e+02 ,2.1888e+01 /) - kbo(:, 1,25,14) = (/ & - &5.2185e+02 ,3.9145e+02 ,2.6105e+02 ,1.3066e+02 ,2.7396e+01 /) - kbo(:, 2,25,14) = (/ & - &7.0140e+02 ,5.2612e+02 ,3.5084e+02 ,1.7556e+02 ,2.6509e+01 /) - kbo(:, 3,25,14) = (/ & - &9.0713e+02 ,6.8043e+02 ,4.5373e+02 ,2.2703e+02 ,2.5618e+01 /) - kbo(:, 4,25,14) = (/ & - &1.1371e+03 ,8.5288e+02 ,5.6870e+02 ,2.8453e+02 ,2.4730e+01 /) - kbo(:, 5,25,14) = (/ & - &1.3891e+03 ,1.0419e+03 ,6.9474e+02 ,3.4757e+02 ,2.3860e+01 /) - kbo(:, 1,26,14) = (/ & - &5.2251e+02 ,3.9195e+02 ,2.6138e+02 ,1.3085e+02 ,2.9927e+01 /) - kbo(:, 2,26,14) = (/ & - &6.9730e+02 ,5.2305e+02 ,3.4880e+02 ,1.7455e+02 ,2.8877e+01 /) - kbo(:, 3,26,14) = (/ & - &8.9735e+02 ,6.7309e+02 ,4.4884e+02 ,2.2459e+02 ,2.7820e+01 /) - kbo(:, 4,26,14) = (/ & - &1.1213e+03 ,8.4105e+02 ,5.6081e+02 ,2.8058e+02 ,2.6772e+01 /) - kbo(:, 5,26,14) = (/ & - &1.3665e+03 ,1.0250e+03 ,6.8346e+02 ,3.4192e+02 ,2.5741e+01 /) - kbo(:, 1,27,14) = (/ & - &5.3834e+02 ,4.0383e+02 ,2.6931e+02 ,1.3510e+02 ,3.2357e+01 /) - kbo(:, 2,27,14) = (/ & - &7.1439e+02 ,5.3587e+02 ,3.5735e+02 ,1.7883e+02 ,3.1116e+01 /) - kbo(:, 3,27,14) = (/ & - &9.1626e+02 ,6.8728e+02 ,4.5830e+02 ,2.2932e+02 ,2.9881e+01 /) - kbo(:, 4,27,14) = (/ & - &1.1424e+03 ,8.5692e+02 ,5.7140e+02 ,2.8587e+02 ,2.8666e+01 /) - kbo(:, 5,27,14) = (/ & - &1.3901e+03 ,1.0427e+03 ,6.9525e+02 ,3.4781e+02 ,2.7467e+01 /) - kbo(:, 1,28,14) = (/ & - &5.6592e+02 ,4.2451e+02 ,2.8310e+02 ,1.4237e+02 ,3.4583e+01 /) - kbo(:, 2,28,14) = (/ & - &7.4785e+02 ,5.6096e+02 ,3.7408e+02 ,1.8720e+02 ,3.3140e+01 /) - kbo(:, 3,28,14) = (/ & - &9.5690e+02 ,7.1776e+02 ,4.7862e+02 ,2.3947e+02 ,3.1724e+01 /) - kbo(:, 4,28,14) = (/ & - &1.1915e+03 ,8.9371e+02 ,5.9592e+02 ,2.9814e+02 ,3.0340e+01 /) - kbo(:, 5,28,14) = (/ & - &1.4480e+03 ,1.0861e+03 ,7.2421e+02 ,3.6229e+02 ,2.8988e+01 /) - kbo(:, 1,29,14) = (/ & - &6.3031e+02 ,4.7280e+02 ,3.1529e+02 ,1.5867e+02 ,3.6546e+01 /) - kbo(:, 2,29,14) = (/ & - &8.3056e+02 ,6.2300e+02 ,4.1543e+02 ,2.0788e+02 ,3.4912e+01 /) - kbo(:, 3,29,14) = (/ & - &1.0608e+03 ,7.9566e+02 ,5.3055e+02 ,2.6544e+02 ,3.3320e+01 /) - kbo(:, 4,29,14) = (/ & - &1.3185e+03 ,9.8899e+02 ,6.5945e+02 ,3.2990e+02 ,3.1769e+01 /) - kbo(:, 5,29,14) = (/ & - &1.6020e+03 ,1.2016e+03 ,8.0116e+02 ,4.0076e+02 ,3.0274e+01 /) - kbo(:, 1,30,14) = (/ & - &7.1878e+02 ,5.3916e+02 ,3.5953e+02 ,1.8082e+02 ,3.8231e+01 /) - kbo(:, 2,30,14) = (/ & - &9.4502e+02 ,7.0884e+02 ,4.7266e+02 ,2.3650e+02 ,3.6421e+01 /) - kbo(:, 3,30,14) = (/ & - &1.2048e+03 ,9.0370e+02 ,6.0258e+02 ,3.0145e+02 ,3.4660e+01 /) - kbo(:, 4,30,14) = (/ & - &1.4966e+03 ,1.1225e+03 ,7.4846e+02 ,3.7440e+02 ,3.2964e+01 /) - kbo(:, 5,30,14) = (/ & - &1.8180e+03 ,1.3636e+03 ,9.0918e+02 ,4.5477e+02 ,3.1338e+01 /) - kbo(:, 1,31,14) = (/ & - &8.6352e+02 ,6.4770e+02 ,4.3189e+02 ,2.1681e+02 ,3.9626e+01 /) - kbo(:, 2,31,14) = (/ & - &1.1338e+03 ,8.5039e+02 ,5.6702e+02 ,2.8366e+02 ,3.7649e+01 /) - kbo(:, 3,31,14) = (/ & - &1.4436e+03 ,1.0827e+03 ,7.2193e+02 ,3.6112e+02 ,3.5738e+01 /) - kbo(:, 4,31,14) = (/ & - &1.7919e+03 ,1.3440e+03 ,8.9611e+02 ,4.4823e+02 ,3.3911e+01 /) - kbo(:, 5,31,14) = (/ & - &2.1766e+03 ,1.6325e+03 ,1.0885e+03 ,5.4442e+02 ,3.2168e+01 /) - kbo(:, 1,32,14) = (/ & - &1.0534e+03 ,7.9009e+02 ,5.2682e+02 ,2.6397e+02 ,4.0725e+01 /) - kbo(:, 2,32,14) = (/ & - &1.3802e+03 ,1.0352e+03 ,6.9024e+02 ,3.4527e+02 ,3.8603e+01 /) - kbo(:, 3,32,14) = (/ & - &1.7557e+03 ,1.3169e+03 ,8.7802e+02 ,4.3918e+02 ,3.6565e+01 /) - kbo(:, 4,32,14) = (/ & - &2.1789e+03 ,1.6342e+03 ,1.0896e+03 ,5.4499e+02 ,3.4625e+01 /) - kbo(:, 5,32,14) = (/ & - &2.6446e+03 ,1.9836e+03 ,1.3225e+03 ,6.6145e+02 ,3.2784e+01 /) - kbo(:, 1,33,14) = (/ & - &1.3124e+03 ,9.8436e+02 ,6.5633e+02 ,3.2843e+02 ,4.1548e+01 /) - kbo(:, 2,33,14) = (/ & - &1.7177e+03 ,1.2883e+03 ,8.5900e+02 ,4.2966e+02 ,3.9303e+01 /) - kbo(:, 3,33,14) = (/ & - &2.1832e+03 ,1.6375e+03 ,1.0918e+03 ,5.4605e+02 ,3.7160e+01 /) - kbo(:, 4,33,14) = (/ & - &2.7063e+03 ,2.0298e+03 ,1.3533e+03 ,6.7686e+02 ,3.5130e+01 /) - kbo(:, 5,33,14) = (/ & - &3.2806e+03 ,2.4606e+03 ,1.6405e+03 ,8.2046e+02 ,3.3063e+01 /) - kbo(:, 1,34,14) = (/ & - &1.5860e+03 ,1.1896e+03 ,7.9315e+02 ,3.9672e+02 ,4.2202e+01 /) - kbo(:, 2,34,14) = (/ & - &2.0745e+03 ,1.5559e+03 ,1.0374e+03 ,5.1886e+02 ,3.9853e+01 /) - kbo(:, 3,34,14) = (/ & - &2.6355e+03 ,1.9767e+03 ,1.3179e+03 ,6.5913e+02 ,3.7623e+01 /) - kbo(:, 4,34,14) = (/ & - &3.2644e+03 ,2.4484e+03 ,1.6324e+03 ,8.1637e+02 ,3.5405e+01 /) - kbo(:, 5,34,14) = (/ & - &3.9520e+03 ,2.9641e+03 ,1.9762e+03 ,9.8832e+02 ,3.3276e+01 /) - kbo(:, 1,35,14) = (/ & - &1.8756e+03 ,1.4068e+03 ,9.3797e+02 ,4.6914e+02 ,4.2878e+01 /) - kbo(:, 2,35,14) = (/ & - &2.4578e+03 ,1.8434e+03 ,1.2290e+03 ,6.1469e+02 ,4.0440e+01 /) - kbo(:, 3,35,14) = (/ & - &3.1268e+03 ,2.3452e+03 ,1.5636e+03 ,7.8197e+02 ,3.8129e+01 /) - kbo(:, 4,35,14) = (/ & - &3.8751e+03 ,2.9064e+03 ,1.9378e+03 ,9.6909e+02 ,3.5715e+01 /) - kbo(:, 5,35,14) = (/ & - &4.6936e+03 ,3.5203e+03 ,2.3471e+03 ,1.1738e+03 ,3.3797e+01 /) - kbo(:, 1,36,14) = (/ & - &2.1453e+03 ,1.6090e+03 ,1.0728e+03 ,5.3655e+02 ,4.3664e+01 /) - kbo(:, 2,36,14) = (/ & - &2.8245e+03 ,2.1184e+03 ,1.4124e+03 ,7.0636e+02 ,4.1138e+01 /) - kbo(:, 3,36,14) = (/ & - &3.6063e+03 ,2.7048e+03 ,1.8033e+03 ,9.0186e+02 ,3.8589e+01 /) - kbo(:, 4,36,14) = (/ & - &4.4821e+03 ,3.3616e+03 ,2.2412e+03 ,1.1208e+03 ,3.6195e+01 /) - kbo(:, 5,36,14) = (/ & - &5.4418e+03 ,4.0814e+03 ,2.7211e+03 ,1.3608e+03 ,3.4367e+01 /) - kbo(:, 1,37,14) = (/ & - &2.2940e+03 ,1.7205e+03 ,1.1471e+03 ,5.7372e+02 ,4.4724e+01 /) - kbo(:, 2,37,14) = (/ & - &3.0476e+03 ,2.2858e+03 ,1.5240e+03 ,7.6217e+02 ,4.2103e+01 /) - kbo(:, 3,37,14) = (/ & - &3.9216e+03 ,2.9413e+03 ,1.9610e+03 ,9.8070e+02 ,3.9415e+01 /) - kbo(:, 4,37,14) = (/ & - &4.9050e+03 ,3.6789e+03 ,2.4527e+03 ,1.2266e+03 ,3.7136e+01 /) - kbo(:, 5,37,14) = (/ & - &5.9876e+03 ,4.4908e+03 ,2.9940e+03 ,1.4972e+03 ,3.5121e+01 /) - kbo(:, 1,38,14) = (/ & - &2.4855e+03 ,1.8642e+03 ,1.2429e+03 ,6.2161e+02 ,4.5721e+01 /) - kbo(:, 2,38,14) = (/ & - &3.3318e+03 ,2.4989e+03 ,1.6661e+03 ,8.3322e+02 ,4.3010e+01 /) - kbo(:, 3,38,14) = (/ & - &4.3213e+03 ,3.2410e+03 ,2.1608e+03 ,1.0806e+03 ,4.0195e+01 /) - kbo(:, 4,38,14) = (/ & - &5.4403e+03 ,4.0803e+03 ,2.7203e+03 ,1.3604e+03 ,3.7939e+01 /) - kbo(:, 5,38,14) = (/ & - &6.6754e+03 ,5.0066e+03 ,3.3379e+03 ,1.6692e+03 ,3.5824e+01 /) - kbo(:, 1,39,14) = (/ & - &2.7579e+03 ,2.0685e+03 ,1.3791e+03 ,6.8973e+02 ,4.6636e+01 /) - kbo(:, 2,39,14) = (/ & - &3.7311e+03 ,2.7984e+03 ,1.8657e+03 ,9.3308e+02 ,4.3764e+01 /) - kbo(:, 3,39,14) = (/ & - &4.8740e+03 ,3.6556e+03 ,2.4372e+03 ,1.2188e+03 ,4.0901e+01 /) - kbo(:, 4,39,14) = (/ & - &6.1755e+03 ,4.6318e+03 ,3.0880e+03 ,1.5442e+03 ,3.8692e+01 /) - kbo(:, 5,39,14) = (/ & - &7.6168e+03 ,5.7128e+03 ,3.8087e+03 ,1.9046e+03 ,3.6244e+01 /) - kbo(:, 1,40,14) = (/ & - &2.7806e+03 ,2.0855e+03 ,1.3905e+03 ,6.9541e+02 ,4.7781e+01 /) - kbo(:, 2,40,14) = (/ & - &3.8105e+03 ,2.8580e+03 ,1.9054e+03 ,9.5291e+02 ,4.4820e+01 /) - kbo(:, 3,40,14) = (/ & - &5.0317e+03 ,3.7739e+03 ,2.5160e+03 ,1.2582e+03 ,4.1870e+01 /) - kbo(:, 4,40,14) = (/ & - &6.4348e+03 ,4.8262e+03 ,3.2176e+03 ,1.6090e+03 ,3.9597e+01 /) - kbo(:, 5,40,14) = (/ & - &7.9965e+03 ,5.9975e+03 ,3.9985e+03 ,1.9995e+03 ,3.7061e+01 /) - kbo(:, 1,41,14) = (/ & - &2.7787e+03 ,2.0841e+03 ,1.3895e+03 ,6.9500e+02 ,4.8925e+01 /) - kbo(:, 2,41,14) = (/ & - &3.8614e+03 ,2.8961e+03 ,1.9309e+03 ,9.6566e+02 ,4.5922e+01 /) - kbo(:, 3,41,14) = (/ & - &5.1574e+03 ,3.8681e+03 ,2.5789e+03 ,1.2897e+03 ,4.2853e+01 /) - kbo(:, 4,41,14) = (/ & - &6.6587e+03 ,4.9941e+03 ,3.3296e+03 ,1.6650e+03 ,4.0428e+01 /) - kbo(:, 5,41,14) = (/ & - &8.3439e+03 ,6.2581e+03 ,4.1723e+03 ,2.0864e+03 ,3.7900e+01 /) - kbo(:, 1,42,14) = (/ & - &2.7998e+03 ,2.0999e+03 ,1.4001e+03 ,7.0041e+02 ,5.0031e+01 /) - kbo(:, 2,42,14) = (/ & - &3.9460e+03 ,2.9596e+03 ,1.9732e+03 ,9.8680e+02 ,4.6998e+01 /) - kbo(:, 3,42,14) = (/ & - &5.3323e+03 ,3.9993e+03 ,2.6663e+03 ,1.3334e+03 ,4.3819e+01 /) - kbo(:, 4,42,14) = (/ & - &6.9531e+03 ,5.2149e+03 ,3.4767e+03 ,1.7386e+03 ,4.1253e+01 /) - kbo(:, 5,42,14) = (/ & - &8.7873e+03 ,6.5906e+03 ,4.3939e+03 ,2.1972e+03 ,3.8745e+01 /) - kbo(:, 1,43,14) = (/ & - &2.7784e+03 ,2.0839e+03 ,1.3894e+03 ,6.9544e+02 ,5.1292e+01 /) - kbo(:, 2,43,14) = (/ & - &3.9830e+03 ,2.9874e+03 ,1.9917e+03 ,9.9606e+02 ,4.8177e+01 /) - kbo(:, 3,43,14) = (/ & - &5.4603e+03 ,4.0953e+03 ,2.7304e+03 ,1.3654e+03 ,4.4925e+01 /) - kbo(:, 4,43,14) = (/ & - &7.2065e+03 ,5.4050e+03 ,3.6035e+03 ,1.8020e+03 ,4.2242e+01 /) - kbo(:, 5,43,14) = (/ & - &9.2025e+03 ,6.9020e+03 ,4.6015e+03 ,2.3010e+03 ,3.9649e+01 /) - kbo(:, 1,44,14) = (/ & - &2.7542e+03 ,2.0657e+03 ,1.3772e+03 ,6.8977e+02 ,5.2617e+01 /) - kbo(:, 2,44,14) = (/ & - &4.0230e+03 ,3.0173e+03 ,2.0117e+03 ,1.0060e+03 ,4.9427e+01 /) - kbo(:, 3,44,14) = (/ & - &5.6050e+03 ,4.2038e+03 ,2.8027e+03 ,1.4015e+03 ,4.6077e+01 /) - kbo(:, 4,44,14) = (/ & - &7.4959e+03 ,5.6220e+03 ,3.7481e+03 ,1.8743e+03 ,4.3276e+01 /) - kbo(:, 5,44,14) = (/ & - &9.6875e+03 ,7.2657e+03 ,4.8439e+03 ,2.4222e+03 ,4.0647e+01 /) - kbo(:, 1,45,14) = (/ & - &2.7680e+03 ,2.0761e+03 ,1.3842e+03 ,6.9371e+02 ,5.3927e+01 /) - kbo(:, 2,45,14) = (/ & - &4.1247e+03 ,3.0936e+03 ,2.0625e+03 ,1.0314e+03 ,5.0672e+01 /) - kbo(:, 3,45,14) = (/ & - &5.8448e+03 ,4.3837e+03 ,2.9226e+03 ,1.4615e+03 ,4.7150e+01 /) - kbo(:, 4,45,14) = (/ & - &7.9284e+03 ,5.9463e+03 ,3.9644e+03 ,1.9824e+03 ,4.4329e+01 /) - kbo(:, 5,45,14) = (/ & - &1.0369e+04 ,7.7768e+03 ,5.1847e+03 ,2.5926e+03 ,4.1634e+01 /) - kbo(:, 1,46,14) = (/ & - &2.7642e+03 ,2.0732e+03 ,1.3822e+03 ,6.9344e+02 ,5.5299e+01 /) - kbo(:, 2,46,14) = (/ & - &4.2127e+03 ,3.1596e+03 ,2.1065e+03 ,1.0534e+03 ,5.1989e+01 /) - kbo(:, 3,46,14) = (/ & - &6.0817e+03 ,4.5614e+03 ,3.0411e+03 ,1.5207e+03 ,4.8362e+01 /) - kbo(:, 4,46,14) = (/ & - &8.3835e+03 ,6.2877e+03 ,4.1920e+03 ,2.0962e+03 ,4.5451e+01 /) - kbo(:, 5,46,14) = (/ & - &1.1109e+04 ,8.3315e+03 ,5.5545e+03 ,2.7775e+03 ,4.2710e+01 /) - kbo(:, 1,47,14) = (/ & - &2.6579e+03 ,1.9935e+03 ,1.3291e+03 ,6.6810e+02 ,5.6805e+01 /) - kbo(:, 2,47,14) = (/ & - &4.1618e+03 ,3.1214e+03 ,2.0811e+03 ,1.0407e+03 ,5.3447e+01 /) - kbo(:, 3,47,14) = (/ & - &6.1402e+03 ,4.6053e+03 ,3.0703e+03 ,1.5354e+03 ,4.9761e+01 /) - kbo(:, 4,47,14) = (/ & - &8.6262e+03 ,6.4697e+03 ,4.3133e+03 ,2.1569e+03 ,4.6695e+01 /) - kbo(:, 5,47,14) = (/ & - &1.1609e+04 ,8.7071e+03 ,5.8049e+03 ,2.9027e+03 ,4.4026e+01 /) - kbo(:, 1,48,14) = (/ & - &2.5983e+03 ,1.9488e+03 ,1.2993e+03 ,6.5451e+02 ,5.8316e+01 /) - kbo(:, 2,48,14) = (/ & - &4.1890e+03 ,3.1418e+03 ,2.0947e+03 ,1.0476e+03 ,5.4906e+01 /) - kbo(:, 3,48,14) = (/ & - &6.3280e+03 ,4.7461e+03 ,3.1642e+03 ,1.5823e+03 ,5.1153e+01 /) - kbo(:, 4,48,14) = (/ & - &9.0666e+03 ,6.8001e+03 ,4.5335e+03 ,2.2670e+03 ,4.7961e+01 /) - kbo(:, 5,48,14) = (/ & - &1.2413e+04 ,9.3096e+03 ,6.2066e+03 ,3.1035e+03 ,4.5348e+01 /) - kbo(:, 1,49,14) = (/ & - &2.6146e+03 ,1.9610e+03 ,1.3074e+03 ,6.5952e+02 ,5.9823e+01 /) - kbo(:, 2,49,14) = (/ & - &4.3479e+03 ,3.2610e+03 ,2.1741e+03 ,1.0874e+03 ,5.6229e+01 /) - kbo(:, 3,49,14) = (/ & - &6.7401e+03 ,5.0552e+03 ,3.3702e+03 ,1.6853e+03 ,5.2522e+01 /) - kbo(:, 4,49,14) = (/ & - &9.8602e+03 ,7.3953e+03 ,4.9303e+03 ,2.4653e+03 ,4.9326e+01 /) - kbo(:, 5,49,14) = (/ & - &1.3745e+04 ,1.0309e+04 ,6.8727e+03 ,3.4366e+03 ,4.6702e+01 /) - kbo(:, 1,50,14) = (/ & - &2.5099e+03 ,1.8825e+03 ,1.2551e+03 ,6.3476e+02 ,6.1230e+01 /) - kbo(:, 2,50,14) = (/ & - &4.3054e+03 ,3.2291e+03 ,2.1528e+03 ,1.0772e+03 ,5.7584e+01 /) - kbo(:, 3,50,14) = (/ & - &6.8503e+03 ,5.1378e+03 ,3.4253e+03 ,1.7128e+03 ,5.3876e+01 /) - kbo(:, 4,50,14) = (/ & - &1.0235e+04 ,7.6760e+03 ,5.1175e+03 ,2.5589e+03 ,5.0609e+01 /) - kbo(:, 5,50,14) = (/ & - &1.4527e+04 ,1.0895e+04 ,7.2636e+03 ,3.6320e+03 ,4.7904e+01 /) - kbo(:, 1,51,14) = (/ & - &2.3421e+03 ,1.7566e+03 ,1.1712e+03 ,5.9456e+02 ,6.2588e+01 /) - kbo(:, 2,51,14) = (/ & - &4.1517e+03 ,3.1138e+03 ,2.0760e+03 ,1.0393e+03 ,5.8927e+01 /) - kbo(:, 3,51,14) = (/ & - &6.7861e+03 ,5.0897e+03 ,3.3932e+03 ,1.6968e+03 ,5.5331e+01 /) - kbo(:, 4,51,14) = (/ & - &1.0366e+04 ,7.7746e+03 ,5.1832e+03 ,2.5918e+03 ,5.1728e+01 /) - kbo(:, 5,51,14) = (/ & - &1.4983e+04 ,1.1238e+04 ,7.4919e+03 ,3.7462e+03 ,4.9071e+01 /) - kbo(:, 1,52,14) = (/ & - &2.2192e+03 ,1.6645e+03 ,1.1098e+03 ,5.6550e+02 ,6.3929e+01 /) - kbo(:, 2,52,14) = (/ & - &4.0774e+03 ,3.0581e+03 ,2.0388e+03 ,1.0215e+03 ,6.0266e+01 /) - kbo(:, 3,52,14) = (/ & - &6.8574e+03 ,5.1432e+03 ,3.4289e+03 ,1.7146e+03 ,5.6630e+01 /) - kbo(:, 4,52,14) = (/ & - &1.0728e+04 ,8.0459e+03 ,5.3641e+03 ,2.6822e+03 ,5.3054e+01 /) - kbo(:, 5,52,14) = (/ & - &1.5806e+04 ,1.1855e+04 ,7.9035e+03 ,3.9520e+03 ,5.0321e+01 /) - kbo(:, 1,53,14) = (/ & - &2.1588e+03 ,1.6192e+03 ,1.0797e+03 ,5.5175e+02 ,6.5259e+01 /) - kbo(:, 2,53,14) = (/ & - &4.1225e+03 ,3.0919e+03 ,2.0614e+03 ,1.0332e+03 ,6.1546e+01 /) - kbo(:, 3,53,14) = (/ & - &7.1492e+03 ,5.3620e+03 ,3.5747e+03 ,1.7875e+03 ,5.7918e+01 /) - kbo(:, 4,53,14) = (/ & - &1.1475e+04 ,8.6063e+03 ,5.7376e+03 ,2.8690e+03 ,5.4409e+01 /) - kbo(:, 5,53,14) = (/ & - &1.7262e+04 ,1.2946e+04 ,8.6311e+03 ,4.3158e+03 ,5.1571e+01 /) - kbo(:, 1,54,14) = (/ & - &1.8282e+03 ,1.3713e+03 ,9.1520e+02 ,4.7290e+02 ,6.6448e+01 /) - kbo(:, 2,54,14) = (/ & - &3.6279e+03 ,2.7210e+03 ,1.8141e+03 ,9.1135e+02 ,6.2844e+01 /) - kbo(:, 3,54,14) = (/ & - &6.4841e+03 ,4.8631e+03 ,3.2422e+03 ,1.6212e+03 ,5.9155e+01 /) - kbo(:, 4,54,14) = (/ & - &1.0670e+04 ,8.0025e+03 ,5.3351e+03 ,2.6677e+03 ,5.5552e+01 /) - kbo(:, 5,54,14) = (/ & - &1.6384e+04 ,1.2288e+04 ,8.1922e+03 ,4.0963e+03 ,5.2636e+01 /) - kbo(:, 1,55,14) = (/ & - &1.4067e+03 ,1.0551e+03 ,7.0638e+02 ,3.7354e+02 ,6.7558e+01 /) - kbo(:, 2,55,14) = (/ & - &2.9041e+03 ,2.1781e+03 ,1.4522e+03 ,7.3353e+02 ,6.4148e+01 /) - kbo(:, 3,55,14) = (/ & - &5.3593e+03 ,4.0195e+03 ,2.6797e+03 ,1.3404e+03 ,6.0390e+01 /) - kbo(:, 4,55,14) = (/ & - &9.0439e+03 ,6.7830e+03 ,4.5221e+03 ,2.2612e+03 ,5.6702e+01 /) - kbo(:, 5,55,14) = (/ & - &1.4184e+04 ,1.0638e+04 ,7.0920e+03 ,3.5462e+03 ,5.3319e+01 /) - kbo(:, 1,56,14) = (/ & - &1.0676e+03 ,8.0078e+02 ,5.3961e+02 ,2.9566e+02 ,6.8630e+01 /) - kbo(:, 2,56,14) = (/ & - &2.3009e+03 ,1.7258e+03 ,1.1507e+03 ,5.8655e+02 ,6.5294e+01 /) - kbo(:, 3,56,14) = (/ & - &4.3913e+03 ,3.2935e+03 ,2.1958e+03 ,1.1000e+03 ,6.1700e+01 /) - kbo(:, 4,56,14) = (/ & - &7.6108e+03 ,5.7081e+03 ,3.8055e+03 ,1.9028e+03 ,5.7982e+01 /) - kbo(:, 5,56,14) = (/ & - &1.2207e+04 ,9.1554e+03 ,6.1037e+03 ,3.0520e+03 ,5.4269e+01 /) - kbo(:, 1,57,14) = (/ & - &7.9773e+02 ,5.9861e+02 ,4.0826e+02 ,2.3574e+02 ,6.9656e+01 /) - kbo(:, 2,57,14) = (/ & - &1.8005e+03 ,1.3505e+03 ,9.0146e+02 ,4.6638e+02 ,6.6420e+01 /) - kbo(:, 3,57,14) = (/ & - &3.5629e+03 ,2.6722e+03 ,1.7816e+03 ,8.9534e+02 ,6.2948e+01 /) - kbo(:, 4,57,14) = (/ & - &6.3553e+03 ,4.7665e+03 ,3.1777e+03 ,1.5890e+03 ,5.9228e+01 /) - kbo(:, 5,57,14) = (/ & - &1.0437e+04 ,7.8281e+03 ,5.2188e+03 ,2.6095e+03 ,5.5502e+01 /) - kbo(:, 1,58,14) = (/ & - &1.5691e+02 ,1.4430e+02 ,1.2945e+02 ,1.1296e+02 ,7.0583e+01 /) - kbo(:, 2,58,14) = (/ & - &3.7146e+02 ,3.4061e+02 ,2.9343e+02 ,2.1801e+02 ,6.7460e+01 /) - kbo(:, 3,58,14) = (/ & - &7.6282e+02 ,6.9942e+02 ,5.9974e+02 ,4.2478e+02 ,6.4030e+01 /) - kbo(:, 4,58,14) = (/ & - &1.4014e+03 ,1.2849e+03 ,1.1017e+03 ,7.7206e+02 ,6.0507e+01 /) - kbo(:, 5,58,14) = (/ & - &2.3564e+03 ,2.1605e+03 ,1.8525e+03 ,1.2975e+03 ,5.6760e+01 /) - kbo(:, 1,59,14) = (/ & - &1.6269e+02 ,1.4372e+02 ,1.2601e+02 ,1.1040e+02 ,7.0952e+01 /) - kbo(:, 2,59,14) = (/ & - &3.9338e+02 ,3.4354e+02 ,2.7833e+02 ,1.9401e+02 ,6.7878e+01 /) - kbo(:, 3,59,14) = (/ & - &8.2073e+02 ,7.1668e+02 ,5.7208e+02 ,3.6616e+02 ,6.4473e+01 /) - kbo(:, 4,59,14) = (/ & - &1.5267e+03 ,1.3331e+03 ,1.0634e+03 ,6.6456e+02 ,6.0953e+01 /) - kbo(:, 5,59,14) = (/ & - &2.5924e+03 ,2.2637e+03 ,1.8057e+03 ,1.1237e+03 ,5.7434e+01 /) - kbo(:, 1,13,15) = (/ & - &6.7676e+03 ,5.0758e+03 ,3.3840e+03 ,1.6922e+03 ,9.0910e+00 /) - kbo(:, 2,13,15) = (/ & - &9.5300e+03 ,7.1475e+03 ,4.7651e+03 ,2.3827e+03 ,8.9593e+00 /) - kbo(:, 3,13,15) = (/ & - &1.2768e+04 ,9.5761e+03 ,6.3842e+03 ,3.1923e+03 ,8.8860e+00 /) - kbo(:, 4,13,15) = (/ & - &1.6413e+04 ,1.2310e+04 ,8.2067e+03 ,4.1035e+03 ,8.8094e+00 /) - kbo(:, 5,13,15) = (/ & - &2.0377e+04 ,1.5283e+04 ,1.0189e+04 ,5.0946e+03 ,8.7010e+00 /) - kbo(:, 1,14,15) = (/ & - &4.6855e+03 ,3.5142e+03 ,2.3429e+03 ,1.1716e+03 ,1.0351e+01 /) - kbo(:, 2,14,15) = (/ & - &6.5777e+03 ,4.9333e+03 ,3.2890e+03 ,1.6447e+03 ,1.0245e+01 /) - kbo(:, 3,14,15) = (/ & - &8.7780e+03 ,6.5835e+03 ,4.3891e+03 ,2.1947e+03 ,1.0189e+01 /) - kbo(:, 4,14,15) = (/ & - &1.1257e+04 ,8.4428e+03 ,5.6286e+03 ,2.8145e+03 ,1.0105e+01 /) - kbo(:, 5,14,15) = (/ & - &1.3964e+04 ,1.0473e+04 ,6.9821e+03 ,3.4912e+03 ,9.9926e+00 /) - kbo(:, 1,15,15) = (/ & - &3.2854e+03 ,2.4642e+03 ,1.6429e+03 ,8.2169e+02 ,1.1907e+01 /) - kbo(:, 2,15,15) = (/ & - &4.5889e+03 ,3.4418e+03 ,2.2947e+03 ,1.1475e+03 ,1.1847e+01 /) - kbo(:, 3,15,15) = (/ & - &6.1056e+03 ,4.5793e+03 ,3.0530e+03 ,1.5267e+03 ,1.1796e+01 /) - kbo(:, 4,15,15) = (/ & - &7.8011e+03 ,5.8510e+03 ,3.9008e+03 ,1.9506e+03 ,1.1682e+01 /) - kbo(:, 5,15,15) = (/ & - &9.6352e+03 ,7.2265e+03 ,4.8178e+03 ,2.4091e+03 ,1.1548e+01 /) - kbo(:, 1,16,15) = (/ & - &2.7156e+03 ,2.0368e+03 ,1.3580e+03 ,6.7918e+02 ,1.3833e+01 /) - kbo(:, 2,16,15) = (/ & - &3.7730e+03 ,2.8298e+03 ,1.8867e+03 ,9.4350e+02 ,1.3786e+01 /) - kbo(:, 3,16,15) = (/ & - &4.9942e+03 ,3.7457e+03 ,2.4973e+03 ,1.2488e+03 ,1.3682e+01 /) - kbo(:, 4,16,15) = (/ & - &6.3607e+03 ,4.7706e+03 ,3.1805e+03 ,1.5904e+03 ,1.3533e+01 /) - kbo(:, 5,16,15) = (/ & - &7.8514e+03 ,5.8886e+03 ,3.9259e+03 ,1.9631e+03 ,1.3377e+01 /) - kbo(:, 1,17,15) = (/ & - &2.3075e+03 ,1.7307e+03 ,1.1539e+03 ,5.7711e+02 ,1.6126e+01 /) - kbo(:, 2,17,15) = (/ & - &3.1956e+03 ,2.3967e+03 ,1.5979e+03 ,7.9911e+02 ,1.6029e+01 /) - kbo(:, 3,17,15) = (/ & - &4.2241e+03 ,3.1681e+03 ,2.1122e+03 ,1.0562e+03 ,1.5863e+01 /) - kbo(:, 4,17,15) = (/ & - &5.3821e+03 ,4.0366e+03 ,2.6912e+03 ,1.3457e+03 ,1.5685e+01 /) - kbo(:, 5,17,15) = (/ & - &6.6465e+03 ,4.9850e+03 ,3.3234e+03 ,1.6618e+03 ,1.5496e+01 /) - kbo(:, 1,18,15) = (/ & - &2.0119e+03 ,1.5090e+03 ,1.0061e+03 ,5.0318e+02 ,1.8668e+01 /) - kbo(:, 2,18,15) = (/ & - &2.7815e+03 ,2.0862e+03 ,1.3909e+03 ,6.9557e+02 ,1.8505e+01 /) - kbo(:, 3,18,15) = (/ & - &3.6794e+03 ,2.7596e+03 ,1.8398e+03 ,9.2005e+02 ,1.8343e+01 /) - kbo(:, 4,18,15) = (/ & - &4.6884e+03 ,3.5164e+03 ,2.3443e+03 ,1.1723e+03 ,1.8140e+01 /) - kbo(:, 5,18,15) = (/ & - &5.7908e+03 ,4.3432e+03 ,2.8955e+03 ,1.4479e+03 ,1.7901e+01 /) - kbo(:, 1,19,15) = (/ & - &1.7281e+03 ,1.2962e+03 ,8.6418e+02 ,4.3222e+02 ,2.1496e+01 /) - kbo(:, 2,19,15) = (/ & - &2.3903e+03 ,1.7928e+03 ,1.1953e+03 ,5.9777e+02 ,2.1311e+01 /) - kbo(:, 3,19,15) = (/ & - &3.1615e+03 ,2.3712e+03 ,1.5809e+03 ,7.9055e+02 ,2.1106e+01 /) - kbo(:, 4,19,15) = (/ & - &4.0222e+03 ,3.0167e+03 ,2.0112e+03 ,1.0057e+03 ,2.0849e+01 /) - kbo(:, 5,19,15) = (/ & - &4.9621e+03 ,3.7216e+03 ,2.4811e+03 ,1.2407e+03 ,2.0531e+01 /) - kbo(:, 1,20,15) = (/ & - &1.6235e+03 ,1.2177e+03 ,8.1188e+02 ,4.0606e+02 ,2.4735e+01 /) - kbo(:, 2,20,15) = (/ & - &2.2387e+03 ,1.6791e+03 ,1.1195e+03 ,5.5984e+02 ,2.4475e+01 /) - kbo(:, 3,20,15) = (/ & - &2.9488e+03 ,2.2116e+03 ,1.4745e+03 ,7.3737e+02 ,2.4178e+01 /) - kbo(:, 4,20,15) = (/ & - &3.7459e+03 ,2.8095e+03 ,1.8731e+03 ,9.3665e+02 ,2.3818e+01 /) - kbo(:, 5,20,15) = (/ & - &4.6161e+03 ,3.4621e+03 ,2.3081e+03 ,1.1542e+03 ,2.3401e+01 /) - kbo(:, 1,21,15) = (/ & - &1.5705e+03 ,1.1779e+03 ,7.8536e+02 ,3.9279e+02 ,2.8368e+01 /) - kbo(:, 2,21,15) = (/ & - &2.1555e+03 ,1.6166e+03 ,1.0778e+03 ,5.3903e+02 ,2.7972e+01 /) - kbo(:, 3,21,15) = (/ & - &2.8340e+03 ,2.1256e+03 ,1.4171e+03 ,7.0866e+02 ,2.7543e+01 /) - kbo(:, 4,21,15) = (/ & - &3.5949e+03 ,2.6962e+03 ,1.7975e+03 ,8.9888e+02 ,2.7047e+01 /) - kbo(:, 5,21,15) = (/ & - &4.4249e+03 ,3.3187e+03 ,2.2126e+03 ,1.1064e+03 ,2.6508e+01 /) - kbo(:, 1,22,15) = (/ & - &1.5869e+03 ,1.1902e+03 ,7.9356e+02 ,3.9688e+02 ,3.2318e+01 /) - kbo(:, 2,22,15) = (/ & - &2.1673e+03 ,1.6255e+03 ,1.0838e+03 ,5.4198e+02 ,3.1767e+01 /) - kbo(:, 3,22,15) = (/ & - &2.8378e+03 ,2.1284e+03 ,1.4190e+03 ,7.0961e+02 ,3.1126e+01 /) - kbo(:, 4,22,15) = (/ & - &3.5877e+03 ,2.6908e+03 ,1.7940e+03 ,8.9709e+02 ,3.0424e+01 /) - kbo(:, 5,22,15) = (/ & - &4.4005e+03 ,3.3004e+03 ,2.2004e+03 ,1.1003e+03 ,2.9694e+01 /) - kbo(:, 1,23,15) = (/ & - &1.6232e+03 ,1.2174e+03 ,8.1169e+02 ,4.0594e+02 ,3.6426e+01 /) - kbo(:, 2,23,15) = (/ & - &2.2045e+03 ,1.6534e+03 ,1.1023e+03 ,5.5127e+02 ,3.5632e+01 /) - kbo(:, 3,23,15) = (/ & - &2.8697e+03 ,2.1523e+03 ,1.4350e+03 ,7.1760e+02 ,3.4766e+01 /) - kbo(:, 4,23,15) = (/ & - &3.6072e+03 ,2.7054e+03 ,1.8037e+03 ,9.0197e+02 ,3.3867e+01 /) - kbo(:, 5,23,15) = (/ & - &4.4070e+03 ,3.3053e+03 ,2.2036e+03 ,1.1019e+03 ,3.2942e+01 /) - kbo(:, 1,24,15) = (/ & - &1.6638e+03 ,1.2479e+03 ,8.3204e+02 ,4.1615e+02 ,4.0555e+01 /) - kbo(:, 2,24,15) = (/ & - &2.2399e+03 ,1.6800e+03 ,1.1201e+03 ,5.6017e+02 ,3.9512e+01 /) - kbo(:, 3,24,15) = (/ & - &2.8950e+03 ,2.1713e+03 ,1.4476e+03 ,7.2392e+02 ,3.8430e+01 /) - kbo(:, 4,24,15) = (/ & - &3.6214e+03 ,2.7161e+03 ,1.8108e+03 ,9.0552e+02 ,3.7312e+01 /) - kbo(:, 5,24,15) = (/ & - &4.4048e+03 ,3.3036e+03 ,2.2025e+03 ,1.1014e+03 ,3.6172e+01 /) - kbo(:, 1,25,15) = (/ & - &1.7332e+03 ,1.2999e+03 ,8.6673e+02 ,4.3352e+02 ,4.4719e+01 /) - kbo(:, 2,25,15) = (/ & - &2.3131e+03 ,1.7349e+03 ,1.1567e+03 ,5.7851e+02 ,4.3381e+01 /) - kbo(:, 3,25,15) = (/ & - &2.9711e+03 ,2.2284e+03 ,1.4857e+03 ,7.4302e+02 ,4.2032e+01 /) - kbo(:, 4,25,15) = (/ & - &3.6954e+03 ,2.7716e+03 ,1.8478e+03 ,9.2407e+02 ,4.0668e+01 /) - kbo(:, 5,25,15) = (/ & - &4.4711e+03 ,3.3534e+03 ,2.2357e+03 ,1.1180e+03 ,3.9312e+01 /) - kbo(:, 1,26,15) = (/ & - &1.8457e+03 ,1.3843e+03 ,9.2300e+02 ,4.6166e+02 ,4.8798e+01 /) - kbo(:, 2,26,15) = (/ & - &2.4421e+03 ,1.8317e+03 ,1.2212e+03 ,6.1078e+02 ,4.7150e+01 /) - kbo(:, 3,26,15) = (/ & - &3.1127e+03 ,2.3346e+03 ,1.5565e+03 ,7.7843e+02 ,4.5507e+01 /) - kbo(:, 4,26,15) = (/ & - &3.8432e+03 ,2.8825e+03 ,1.9217e+03 ,9.6104e+02 ,4.3884e+01 /) - kbo(:, 5,26,15) = (/ & - &4.6197e+03 ,3.4648e+03 ,2.3100e+03 ,1.1552e+03 ,4.2296e+01 /) - kbo(:, 1,27,15) = (/ & - &2.0401e+03 ,1.5302e+03 ,1.0202e+03 ,5.1030e+02 ,5.2748e+01 /) - kbo(:, 2,27,15) = (/ & - &2.6727e+03 ,2.0046e+03 ,1.3365e+03 ,6.6845e+02 ,5.0763e+01 /) - kbo(:, 3,27,15) = (/ & - &3.3765e+03 ,2.5325e+03 ,1.6885e+03 ,8.4441e+02 ,4.8815e+01 /) - kbo(:, 4,27,15) = (/ & - &4.1373e+03 ,3.1031e+03 ,2.0688e+03 ,1.0346e+03 ,4.6912e+01 /) - kbo(:, 5,27,15) = (/ & - &4.9426e+03 ,3.7071e+03 ,2.4715e+03 ,1.2359e+03 ,4.5084e+01 /) - kbo(:, 1,28,15) = (/ & - &2.3062e+03 ,1.7297e+03 ,1.1533e+03 ,5.7684e+02 ,5.6494e+01 /) - kbo(:, 2,28,15) = (/ & - &2.9911e+03 ,2.2434e+03 ,1.4957e+03 ,7.4806e+02 ,5.4164e+01 /) - kbo(:, 3,28,15) = (/ & - &3.7467e+03 ,2.8101e+03 ,1.8736e+03 ,9.3698e+02 ,5.1914e+01 /) - kbo(:, 4,28,15) = (/ & - &4.5581e+03 ,3.4187e+03 ,2.2792e+03 ,1.1398e+03 ,4.9734e+01 /) - kbo(:, 5,28,15) = (/ & - &5.4121e+03 ,4.0592e+03 ,2.7063e+03 ,1.3533e+03 ,4.7639e+01 /) - kbo(:, 1,29,15) = (/ & - &2.7587e+03 ,2.0691e+03 ,1.3796e+03 ,6.8998e+02 ,5.9883e+01 /) - kbo(:, 2,29,15) = (/ & - &3.5427e+03 ,2.6571e+03 ,1.7716e+03 ,8.8598e+02 ,5.7214e+01 /) - kbo(:, 3,29,15) = (/ & - &4.3997e+03 ,3.2998e+03 ,2.2000e+03 ,1.1002e+03 ,5.4658e+01 /) - kbo(:, 4,29,15) = (/ & - &5.3158e+03 ,3.9869e+03 ,2.6581e+03 ,1.3292e+03 ,5.2215e+01 /) - kbo(:, 5,29,15) = (/ & - &6.2710e+03 ,4.7033e+03 ,3.1357e+03 ,1.5680e+03 ,4.9872e+01 /) - kbo(:, 1,30,15) = (/ & - &3.3645e+03 ,2.5235e+03 ,1.6825e+03 ,8.4145e+02 ,6.2847e+01 /) - kbo(:, 2,30,15) = (/ & - &4.2782e+03 ,3.2088e+03 ,2.1393e+03 ,1.0699e+03 ,5.9850e+01 /) - kbo(:, 3,30,15) = (/ & - &5.2706e+03 ,3.9531e+03 ,2.6355e+03 ,1.3180e+03 ,5.7012e+01 /) - kbo(:, 4,30,15) = (/ & - &6.3236e+03 ,4.7428e+03 ,3.1620e+03 ,1.5812e+03 ,5.4322e+01 /) - kbo(:, 5,30,15) = (/ & - &7.4122e+03 ,5.5592e+03 ,3.7063e+03 ,1.8534e+03 ,5.1754e+01 /) - kbo(:, 1,31,15) = (/ & - &4.2971e+03 ,3.2230e+03 ,2.1488e+03 ,1.0746e+03 ,6.5331e+01 /) - kbo(:, 2,31,15) = (/ & - &5.4121e+03 ,4.0592e+03 ,2.7063e+03 ,1.3534e+03 ,6.2034e+01 /) - kbo(:, 3,31,15) = (/ & - &6.6141e+03 ,4.9607e+03 ,3.3073e+03 ,1.6539e+03 ,5.8947e+01 /) - kbo(:, 4,31,15) = (/ & - &7.8758e+03 ,5.9069e+03 ,3.9381e+03 ,1.9693e+03 ,5.6027e+01 /) - kbo(:, 5,31,15) = (/ & - &9.1717e+03 ,6.8788e+03 ,4.5860e+03 ,2.2932e+03 ,5.3266e+01 /) - kbo(:, 1,32,15) = (/ & - &5.5229e+03 ,4.1423e+03 ,2.7617e+03 ,1.3811e+03 ,6.7311e+01 /) - kbo(:, 2,32,15) = (/ & - &6.8909e+03 ,5.1683e+03 ,3.4457e+03 ,1.7231e+03 ,6.3759e+01 /) - kbo(:, 3,32,15) = (/ & - &8.3530e+03 ,6.2649e+03 ,4.1768e+03 ,2.0886e+03 ,6.0452e+01 /) - kbo(:, 4,32,15) = (/ & - &9.8746e+03 ,7.4061e+03 ,4.9375e+03 ,2.4690e+03 ,5.7340e+01 /) - kbo(:, 5,32,15) = (/ & - &1.1429e+04 ,8.5717e+03 ,5.7146e+03 ,2.8575e+03 ,5.4420e+01 /) - kbo(:, 1,33,15) = (/ & - &7.1868e+03 ,5.3902e+03 ,3.5936e+03 ,1.7971e+03 ,6.8810e+01 /) - kbo(:, 2,33,15) = (/ & - &8.8853e+03 ,6.6641e+03 ,4.4429e+03 ,2.2217e+03 ,6.5053e+01 /) - kbo(:, 3,33,15) = (/ & - &1.0684e+04 ,8.0128e+03 ,5.3420e+03 ,2.6713e+03 ,6.1559e+01 /) - kbo(:, 4,33,15) = (/ & - &1.2545e+04 ,9.4087e+03 ,6.2726e+03 ,3.1365e+03 ,5.8295e+01 /) - kbo(:, 5,33,15) = (/ & - &1.4437e+04 ,1.0828e+04 ,7.2187e+03 ,3.6096e+03 ,5.5243e+01 /) - kbo(:, 1,34,15) = (/ & - &8.9946e+03 ,6.7461e+03 ,4.4975e+03 ,2.2490e+03 ,7.0022e+01 /) - kbo(:, 2,34,15) = (/ & - &1.1036e+04 ,8.2772e+03 ,5.5183e+03 ,2.7594e+03 ,6.6087e+01 /) - kbo(:, 3,34,15) = (/ & - &1.3184e+04 ,9.8877e+03 ,6.5920e+03 ,3.2962e+03 ,6.2443e+01 /) - kbo(:, 4,34,15) = (/ & - &1.5394e+04 ,1.1546e+04 ,7.6972e+03 ,3.8488e+03 ,5.9052e+01 /) - kbo(:, 5,34,15) = (/ & - &1.7632e+04 ,1.3224e+04 ,8.8161e+03 ,4.4083e+03 ,5.5884e+01 /) - kbo(:, 1,35,15) = (/ & - &1.0993e+04 ,8.2446e+03 ,5.4966e+03 ,2.7485e+03 ,7.1272e+01 /) - kbo(:, 2,35,15) = (/ & - &1.3428e+04 ,1.0071e+04 ,6.7141e+03 ,3.3573e+03 ,6.7165e+01 /) - kbo(:, 3,35,15) = (/ & - &1.5977e+04 ,1.1983e+04 ,7.9889e+03 ,3.9949e+03 ,6.3376e+01 /) - kbo(:, 4,35,15) = (/ & - &1.8595e+04 ,1.3946e+04 ,9.2975e+03 ,4.6490e+03 ,5.9869e+01 /) - kbo(:, 5,35,15) = (/ & - &2.1231e+04 ,1.5923e+04 ,1.0616e+04 ,5.3081e+03 ,5.6025e+01 /) - kbo(:, 1,36,15) = (/ & - &1.3006e+04 ,9.7547e+03 ,6.5033e+03 ,3.2519e+03 ,7.2705e+01 /) - kbo(:, 2,36,15) = (/ & - &1.5874e+04 ,1.1905e+04 ,7.9370e+03 ,3.9687e+03 ,6.8413e+01 /) - kbo(:, 3,36,15) = (/ & - &1.8861e+04 ,1.4146e+04 ,9.4305e+03 ,4.7155e+03 ,6.4479e+01 /) - kbo(:, 4,36,15) = (/ & - &2.1927e+04 ,1.6445e+04 ,1.0964e+04 ,5.4821e+03 ,6.0843e+01 /) - kbo(:, 5,36,15) = (/ & - &2.5014e+04 ,1.8760e+04 ,1.2507e+04 ,6.2537e+03 ,5.6544e+01 /) - kbo(:, 1,37,15) = (/ & - &1.4489e+04 ,1.0867e+04 ,7.2447e+03 ,3.6226e+03 ,7.4617e+01 /) - kbo(:, 2,37,15) = (/ & - &1.7744e+04 ,1.3308e+04 ,8.8720e+03 ,4.4362e+03 ,7.0104e+01 /) - kbo(:, 3,37,15) = (/ & - &2.1142e+04 ,1.5857e+04 ,1.0571e+04 ,5.2858e+03 ,6.5985e+01 /) - kbo(:, 4,37,15) = (/ & - &2.4633e+04 ,1.8475e+04 ,1.2317e+04 ,6.1586e+03 ,6.1723e+01 /) - kbo(:, 5,37,15) = (/ & - &2.8152e+04 ,2.1114e+04 ,1.4076e+04 ,7.0383e+03 ,5.7616e+01 /) - kbo(:, 1,38,15) = (/ & - &1.6314e+04 ,1.2236e+04 ,8.1572e+03 ,4.0788e+03 ,7.6413e+01 /) - kbo(:, 2,38,15) = (/ & - &2.0055e+04 ,1.5041e+04 ,1.0028e+04 ,5.0140e+03 ,7.1696e+01 /) - kbo(:, 3,38,15) = (/ & - &2.3973e+04 ,1.7980e+04 ,1.1987e+04 ,5.9936e+03 ,6.7406e+01 /) - kbo(:, 4,38,15) = (/ & - &2.8001e+04 ,2.1001e+04 ,1.4001e+04 ,7.0006e+03 ,6.2768e+01 /) - kbo(:, 5,38,15) = (/ & - &3.2071e+04 ,2.4053e+04 ,1.6036e+04 ,8.0180e+03 ,5.8602e+01 /) - kbo(:, 1,39,15) = (/ & - &1.8759e+04 ,1.4069e+04 ,9.3797e+03 ,4.6901e+03 ,7.8086e+01 /) - kbo(:, 2,39,15) = (/ & - &2.3153e+04 ,1.7365e+04 ,1.1577e+04 ,5.7886e+03 ,7.3162e+01 /) - kbo(:, 3,39,15) = (/ & - &2.7770e+04 ,2.0828e+04 ,1.3886e+04 ,6.9431e+03 ,6.8719e+01 /) - kbo(:, 4,39,15) = (/ & - &3.2517e+04 ,2.4388e+04 ,1.6259e+04 ,8.1299e+03 ,6.3661e+01 /) - kbo(:, 5,39,15) = (/ & - &3.7323e+04 ,2.7992e+04 ,1.8662e+04 ,9.3312e+03 ,5.9468e+01 /) - kbo(:, 1,40,15) = (/ & - &1.9750e+04 ,1.4812e+04 ,9.8751e+03 ,4.9378e+03 ,8.0192e+01 /) - kbo(:, 2,40,15) = (/ & - &2.4562e+04 ,1.8422e+04 ,1.2281e+04 ,6.1409e+03 ,7.5032e+01 /) - kbo(:, 3,40,15) = (/ & - &2.9646e+04 ,2.2235e+04 ,1.4823e+04 ,7.4118e+03 ,7.0393e+01 /) - kbo(:, 4,40,15) = (/ & - &3.4890e+04 ,2.6167e+04 ,1.7445e+04 ,8.7227e+03 ,6.5151e+01 /) - kbo(:, 5,40,15) = (/ & - &4.0218e+04 ,3.0164e+04 ,2.0109e+04 ,1.0055e+04 ,6.0809e+01 /) - kbo(:, 1,41,15) = (/ & - &2.0620e+04 ,1.5465e+04 ,1.0310e+04 ,5.1555e+03 ,8.2333e+01 /) - kbo(:, 2,41,15) = (/ & - &2.5862e+04 ,1.9396e+04 ,1.2931e+04 ,6.4659e+03 ,7.6930e+01 /) - kbo(:, 3,41,15) = (/ & - &3.1429e+04 ,2.3571e+04 ,1.5714e+04 ,7.8575e+03 ,7.2080e+01 /) - kbo(:, 4,41,15) = (/ & - &3.7207e+04 ,2.7905e+04 ,1.8604e+04 ,9.3022e+03 ,6.6689e+01 /) - kbo(:, 5,41,15) = (/ & - &4.3090e+04 ,3.2318e+04 ,2.1545e+04 ,1.0773e+04 ,6.2194e+01 /) - kbo(:, 1,42,15) = (/ & - &2.1691e+04 ,1.6268e+04 ,1.0846e+04 ,5.4231e+03 ,8.4448e+01 /) - kbo(:, 2,42,15) = (/ & - &2.7444e+04 ,2.0583e+04 ,1.3722e+04 ,6.8623e+03 ,7.8791e+01 /) - kbo(:, 3,42,15) = (/ & - &3.3603e+04 ,2.5202e+04 ,1.6802e+04 ,8.4010e+03 ,7.3737e+01 /) - kbo(:, 4,42,15) = (/ & - &4.0024e+04 ,3.0018e+04 ,2.0012e+04 ,1.0006e+04 ,6.8167e+01 /) - kbo(:, 5,42,15) = (/ & - &4.6588e+04 ,3.4941e+04 ,2.3294e+04 ,1.1647e+04 ,6.3488e+01 /) - kbo(:, 1,43,15) = (/ & - &2.2603e+04 ,1.6952e+04 ,1.1302e+04 ,5.6511e+03 ,8.6896e+01 /) - kbo(:, 2,43,15) = (/ & - &2.8935e+04 ,2.1702e+04 ,1.4468e+04 ,7.2343e+03 ,8.0969e+01 /) - kbo(:, 3,43,15) = (/ & - &3.5766e+04 ,2.6825e+04 ,1.7883e+04 ,8.9419e+03 ,7.5666e+01 /) - kbo(:, 4,43,15) = (/ & - &4.2940e+04 ,3.2205e+04 ,2.1471e+04 ,1.0736e+04 ,6.9870e+01 /) - kbo(:, 5,43,15) = (/ & - &5.0307e+04 ,3.7731e+04 ,2.5154e+04 ,1.2577e+04 ,6.5095e+01 /) - kbo(:, 1,44,15) = (/ & - &2.3606e+04 ,1.7705e+04 ,1.1803e+04 ,5.9018e+03 ,8.9540e+01 /) - kbo(:, 2,44,15) = (/ & - &3.0627e+04 ,2.2970e+04 ,1.5314e+04 ,7.6570e+03 ,8.3300e+01 /) - kbo(:, 3,44,15) = (/ & - &3.8272e+04 ,2.8704e+04 ,1.9136e+04 ,9.5682e+03 ,7.7742e+01 /) - kbo(:, 4,44,15) = (/ & - &4.6369e+04 ,3.4777e+04 ,2.3185e+04 ,1.1593e+04 ,7.1787e+01 /) - kbo(:, 5,44,15) = (/ & - &5.4746e+04 ,4.1060e+04 ,2.7373e+04 ,1.3687e+04 ,6.6743e+01 /) - kbo(:, 1,45,15) = (/ & - &2.5020e+04 ,1.8765e+04 ,1.2510e+04 ,6.2554e+03 ,9.2249e+01 /) - kbo(:, 2,45,15) = (/ & - &3.2921e+04 ,2.4691e+04 ,1.6461e+04 ,8.2305e+03 ,8.5687e+01 /) - kbo(:, 3,45,15) = (/ & - &4.1630e+04 ,3.1222e+04 ,2.0815e+04 ,1.0408e+04 ,7.9854e+01 /) - kbo(:, 4,45,15) = (/ & - &5.0934e+04 ,3.8200e+04 ,2.5467e+04 ,1.2734e+04 ,7.3688e+01 /) - kbo(:, 5,45,15) = (/ & - &6.0623e+04 ,4.5467e+04 ,3.0312e+04 ,1.5156e+04 ,6.8450e+01 /) - kbo(:, 1,46,15) = (/ & - &2.6462e+04 ,1.9847e+04 ,1.3231e+04 ,6.6159e+03 ,9.5173e+01 /) - kbo(:, 2,46,15) = (/ & - &3.5388e+04 ,2.6541e+04 ,1.7694e+04 ,8.8474e+03 ,8.8256e+01 /) - kbo(:, 3,46,15) = (/ & - &4.5343e+04 ,3.4008e+04 ,2.2672e+04 ,1.1336e+04 ,8.2143e+01 /) - kbo(:, 4,46,15) = (/ & - &5.6094e+04 ,4.2071e+04 ,2.8047e+04 ,1.4024e+04 ,7.5728e+01 /) - kbo(:, 5,46,15) = (/ & - &6.7389e+04 ,5.0542e+04 ,3.3695e+04 ,1.6848e+04 ,7.0196e+01 /) - kbo(:, 1,47,15) = (/ & - &2.7156e+04 ,2.0367e+04 ,1.3578e+04 ,6.7894e+03 ,9.8564e+01 /) - kbo(:, 2,47,15) = (/ & - &3.7028e+04 ,2.7771e+04 ,1.8514e+04 ,9.2574e+03 ,9.1210e+01 /) - kbo(:, 3,47,15) = (/ & - &4.8225e+04 ,3.6169e+04 ,2.4113e+04 ,1.2057e+04 ,8.4753e+01 /) - kbo(:, 4,47,15) = (/ & - &6.0453e+04 ,4.5340e+04 ,3.0227e+04 ,1.5114e+04 ,7.8168e+01 /) - kbo(:, 5,47,15) = (/ & - &7.3441e+04 ,5.5081e+04 ,3.6721e+04 ,1.8361e+04 ,7.1964e+01 /) - kbo(:, 1,48,15) = (/ & - &2.8408e+04 ,2.1306e+04 ,1.4204e+04 ,7.1024e+03 ,1.0210e+02 /) - kbo(:, 2,48,15) = (/ & - &3.9561e+04 ,2.9671e+04 ,1.9781e+04 ,9.8907e+03 ,9.4282e+01 /) - kbo(:, 3,48,15) = (/ & - &5.2433e+04 ,3.9325e+04 ,2.6217e+04 ,1.3109e+04 ,8.7454e+01 /) - kbo(:, 4,48,15) = (/ & - &6.6685e+04 ,5.0014e+04 ,3.3343e+04 ,1.6672e+04 ,8.0648e+01 /) - kbo(:, 5,48,15) = (/ & - &8.1969e+04 ,6.1477e+04 ,4.0985e+04 ,2.0493e+04 ,7.3773e+01 /) - kbo(:, 1,49,15) = (/ & - &3.0665e+04 ,2.2999e+04 ,1.5333e+04 ,7.6665e+03 ,1.0579e+02 /) - kbo(:, 2,49,15) = (/ & - &4.3701e+04 ,3.2776e+04 ,2.1851e+04 ,1.0926e+04 ,9.7512e+01 /) - kbo(:, 3,49,15) = (/ & - &5.9013e+04 ,4.4260e+04 ,2.9506e+04 ,1.4753e+04 ,9.0273e+01 /) - kbo(:, 4,49,15) = (/ & - &7.6235e+04 ,5.7177e+04 ,3.8118e+04 ,1.9059e+04 ,8.3012e+01 /) - kbo(:, 5,49,15) = (/ & - &9.4928e+04 ,7.1196e+04 ,4.7464e+04 ,2.3732e+04 ,7.5643e+01 /) - kbo(:, 1,50,15) = (/ & - &3.1512e+04 ,2.3634e+04 ,1.5756e+04 ,7.8783e+03 ,1.0944e+02 /) - kbo(:, 2,50,15) = (/ & - &4.5989e+04 ,3.4492e+04 ,2.2995e+04 ,1.1498e+04 ,1.0069e+02 /) - kbo(:, 3,50,15) = (/ & - &6.3288e+04 ,4.7466e+04 ,3.1644e+04 ,1.5822e+04 ,9.3050e+01 /) - kbo(:, 4,50,15) = (/ & - &8.3061e+04 ,6.2296e+04 ,4.1531e+04 ,2.0766e+04 ,8.5379e+01 /) - kbo(:, 5,50,15) = (/ & - &1.0477e+05 ,7.8579e+04 ,5.2386e+04 ,2.6193e+04 ,7.7745e+01 /) - kbo(:, 1,51,15) = (/ & - &3.1512e+04 ,2.3634e+04 ,1.5756e+04 ,7.8783e+03 ,1.1317e+02 /) - kbo(:, 2,51,15) = (/ & - &4.7162e+04 ,3.5373e+04 ,2.3581e+04 ,1.1791e+04 ,1.0391e+02 /) - kbo(:, 3,51,15) = (/ & - &6.6209e+04 ,4.9657e+04 ,3.3105e+04 ,1.6553e+04 ,9.5852e+01 /) - kbo(:, 4,51,15) = (/ & - &8.8316e+04 ,6.6238e+04 ,4.4164e+04 ,2.2080e+04 ,8.8232e+01 /) - kbo(:, 5,51,15) = (/ & - &1.1292e+05 ,8.4693e+04 ,5.6462e+04 ,2.8231e+04 ,8.0003e+01 /) - kbo(:, 1,52,15) = (/ & - &3.2076e+04 ,2.4057e+04 ,1.6038e+04 ,8.0198e+03 ,1.1706e+02 /) - kbo(:, 2,52,15) = (/ & - &4.9342e+04 ,3.7006e+04 ,2.4671e+04 ,1.2336e+04 ,1.0727e+02 /) - kbo(:, 3,52,15) = (/ & - &7.0777e+04 ,5.3083e+04 ,3.5389e+04 ,1.7695e+04 ,9.8793e+01 /) - kbo(:, 4,52,15) = (/ & - &9.6072e+04 ,7.2054e+04 ,4.8037e+04 ,2.4019e+04 ,9.0662e+01 /) - kbo(:, 5,52,15) = (/ & - &1.2464e+05 ,9.3484e+04 ,6.2323e+04 ,3.1162e+04 ,8.2138e+01 /) - kbo(:, 1,53,15) = (/ & - &3.3608e+04 ,2.5207e+04 ,1.6805e+04 ,8.4025e+03 ,1.2114e+02 /) - kbo(:, 2,53,15) = (/ & - &5.3290e+04 ,3.9968e+04 ,2.6645e+04 ,1.3323e+04 ,1.1081e+02 /) - kbo(:, 3,53,15) = (/ & - &7.8269e+04 ,5.8702e+04 ,3.9135e+04 ,1.9568e+04 ,1.0185e+02 /) - kbo(:, 4,53,15) = (/ & - &1.0824e+05 ,8.1183e+04 ,5.4123e+04 ,2.7062e+04 ,9.3093e+01 /) - kbo(:, 5,53,15) = (/ & - &1.4266e+05 ,1.0700e+05 ,7.1333e+04 ,3.5667e+04 ,8.4356e+01 /) - kbo(:, 1,54,15) = (/ & - &3.0554e+04 ,2.2916e+04 ,1.5277e+04 ,7.6389e+03 ,1.2510e+02 /) - kbo(:, 2,54,15) = (/ & - &4.9936e+04 ,3.7452e+04 ,2.4968e+04 ,1.2484e+04 ,1.1423e+02 /) - kbo(:, 3,54,15) = (/ & - &7.5079e+04 ,5.6309e+04 ,3.7540e+04 ,1.8770e+04 ,1.0480e+02 /) - kbo(:, 4,54,15) = (/ & - &1.0578e+05 ,7.9333e+04 ,5.2889e+04 ,2.6445e+04 ,9.5981e+01 /) - kbo(:, 5,54,15) = (/ & - &1.4151e+05 ,1.0613e+05 ,7.0756e+04 ,3.5378e+04 ,8.6958e+01 /) - kbo(:, 1,55,15) = (/ & - &2.5242e+04 ,1.8932e+04 ,1.2621e+04 ,6.3108e+03 ,1.2910e+02 /) - kbo(:, 2,55,15) = (/ & - &4.2561e+04 ,3.1921e+04 ,2.1281e+04 ,1.0641e+04 ,1.1763e+02 /) - kbo(:, 3,55,15) = (/ & - &6.5579e+04 ,4.9184e+04 ,3.2790e+04 ,1.6395e+04 ,1.0775e+02 /) - kbo(:, 4,55,15) = (/ & - &9.4190e+04 ,7.0643e+04 ,4.7095e+04 ,2.3548e+04 ,9.9196e+01 /) - kbo(:, 5,55,15) = (/ & - &1.2798e+05 ,9.5983e+04 ,6.3989e+04 ,3.1995e+04 ,9.0570e+01 /) - kbo(:, 1,56,15) = (/ & - &2.0611e+04 ,1.5459e+04 ,1.0306e+04 ,5.1530e+03 ,1.3327e+02 /) - kbo(:, 2,56,15) = (/ & - &3.5961e+04 ,2.6970e+04 ,1.7980e+04 ,8.9902e+03 ,1.2118e+02 /) - kbo(:, 3,56,15) = (/ & - &5.6902e+04 ,4.2676e+04 ,2.8451e+04 ,1.4227e+04 ,1.1083e+02 /) - kbo(:, 4,56,15) = (/ & - &8.3426e+04 ,6.2569e+04 ,4.1713e+04 ,2.0856e+04 ,1.0187e+02 /) - kbo(:, 5,56,15) = (/ & - &1.1523e+05 ,8.6424e+04 ,5.7616e+04 ,2.8808e+04 ,9.3771e+01 /) - kbo(:, 1,57,15) = (/ & - &1.6610e+04 ,1.2457e+04 ,8.3049e+03 ,4.1526e+03 ,1.3769e+02 /) - kbo(:, 2,57,15) = (/ & - &3.0089e+04 ,2.2567e+04 ,1.5044e+04 ,7.5226e+03 ,1.2490e+02 /) - kbo(:, 3,57,15) = (/ & - &4.8979e+04 ,3.6734e+04 ,2.4489e+04 ,1.2245e+04 ,1.1405e+02 /) - kbo(:, 4,57,15) = (/ & - &7.3462e+04 ,5.5096e+04 ,3.6731e+04 ,1.8365e+04 ,1.0465e+02 /) - kbo(:, 5,57,15) = (/ & - &1.0326e+05 ,7.7443e+04 ,5.1628e+04 ,2.5814e+04 ,9.6480e+01 /) - kbo(:, 1,58,15) = (/ & - &3.5201e+03 ,3.2274e+03 ,2.7672e+03 ,1.9382e+03 ,1.4211e+02 /) - kbo(:, 2,58,15) = (/ & - &6.6315e+03 ,6.0801e+03 ,5.2132e+03 ,3.6514e+03 ,1.2863e+02 /) - kbo(:, 3,58,15) = (/ & - &1.1117e+04 ,1.0193e+04 ,8.7395e+03 ,6.1212e+03 ,1.1722e+02 /) - kbo(:, 4,58,15) = (/ & - &1.7057e+04 ,1.5638e+04 ,1.3409e+04 ,9.3914e+03 ,1.0740e+02 /) - kbo(:, 5,58,15) = (/ & - &2.4410e+04 ,2.2380e+04 ,1.9189e+04 ,1.3440e+04 ,9.8884e+01 /) - kbo(:, 1,59,15) = (/ & - &3.7699e+03 ,3.2918e+03 ,2.6257e+03 ,1.6340e+03 ,1.4398e+02 /) - kbo(:, 2,59,15) = (/ & - &7.2215e+03 ,6.3055e+03 ,5.0297e+03 ,3.1299e+03 ,1.3019e+02 /) - kbo(:, 3,59,15) = (/ & - &1.2258e+04 ,1.0703e+04 ,8.5377e+03 ,5.3128e+03 ,1.1856e+02 /) - kbo(:, 4,59,15) = (/ & - &1.8986e+04 ,1.6578e+04 ,1.3224e+04 ,8.2288e+03 ,1.0855e+02 /) - kbo(:, 5,59,15) = (/ & - &2.7379e+04 ,2.3906e+04 ,1.9069e+04 ,1.1866e+04 ,9.9884e+01 /) - kbo(:, 1,13,16) = (/ & - &1.4818e+04 ,1.1113e+04 ,7.4089e+03 ,3.7045e+03 ,1.1371e+01 /) - kbo(:, 2,13,16) = (/ & - &2.0739e+04 ,1.5555e+04 ,1.0370e+04 ,5.1851e+03 ,1.0985e+01 /) - kbo(:, 3,13,16) = (/ & - &2.7562e+04 ,2.0672e+04 ,1.3781e+04 ,6.8906e+03 ,1.0720e+01 /) - kbo(:, 4,13,16) = (/ & - &3.5104e+04 ,2.6328e+04 ,1.7552e+04 ,8.7760e+03 ,1.0594e+01 /) - kbo(:, 5,13,16) = (/ & - &4.3187e+04 ,3.2390e+04 ,2.1594e+04 ,1.0797e+04 ,1.0676e+01 /) - kbo(:, 1,14,16) = (/ & - &1.1265e+04 ,8.4488e+03 ,5.6325e+03 ,2.8163e+03 ,1.3004e+01 /) - kbo(:, 2,14,16) = (/ & - &1.5638e+04 ,1.1729e+04 ,7.8191e+03 ,3.9096e+03 ,1.2745e+01 /) - kbo(:, 3,14,16) = (/ & - &2.0632e+04 ,1.5474e+04 ,1.0316e+04 ,5.1580e+03 ,1.2511e+01 /) - kbo(:, 4,14,16) = (/ & - &2.6158e+04 ,1.9619e+04 ,1.3079e+04 ,6.5395e+03 ,1.2514e+01 /) - kbo(:, 5,14,16) = (/ & - &3.2161e+04 ,2.4120e+04 ,1.6080e+04 ,8.0400e+03 ,1.2574e+01 /) - kbo(:, 1,15,16) = (/ & - &8.6626e+03 ,6.4970e+03 ,4.3314e+03 ,2.1657e+03 ,1.5047e+01 /) - kbo(:, 2,15,16) = (/ & - &1.1944e+04 ,8.8995e+03 ,5.9720e+03 ,2.9860e+03 ,1.4804e+01 /) - kbo(:, 3,15,16) = (/ & - &1.5730e+04 ,1.1798e+04 ,7.8651e+03 ,3.9326e+03 ,1.4621e+01 /) - kbo(:, 4,15,16) = (/ & - &1.9953e+04 ,1.4965e+04 ,9.9768e+03 ,4.9885e+03 ,1.4704e+01 /) - kbo(:, 5,15,16) = (/ & - &2.4510e+04 ,1.8382e+04 ,1.2255e+04 ,6.1276e+03 ,1.4738e+01 /) - kbo(:, 1,16,16) = (/ & - &7.9177e+03 ,5.9383e+03 ,3.9589e+03 ,1.9795e+03 ,1.7379e+01 /) - kbo(:, 2,16,16) = (/ & - &1.0905e+04 ,8.1790e+03 ,5.4527e+03 ,2.7264e+03 ,1.7087e+01 /) - kbo(:, 3,16,16) = (/ & - &1.4336e+04 ,1.0752e+04 ,7.1680e+03 ,3.5840e+03 ,1.7079e+01 /) - kbo(:, 4,16,16) = (/ & - &1.8134e+04 ,1.3600e+04 ,9.0670e+03 ,4.5335e+03 ,1.7162e+01 /) - kbo(:, 5,16,16) = (/ & - &2.2206e+04 ,1.6655e+04 ,1.1103e+04 ,5.5517e+03 ,1.7193e+01 /) - kbo(:, 1,17,16) = (/ & - &7.5178e+03 ,5.6384e+03 ,3.7589e+03 ,1.8795e+03 ,1.9948e+01 /) - kbo(:, 2,17,16) = (/ & - &1.0311e+04 ,7.7335e+03 ,5.1557e+03 ,2.5779e+03 ,1.9796e+01 /) - kbo(:, 3,17,16) = (/ & - &1.3498e+04 ,1.0124e+04 ,6.7488e+03 ,3.3746e+03 ,1.9858e+01 /) - kbo(:, 4,17,16) = (/ & - &1.6996e+04 ,1.2747e+04 ,8.4978e+03 ,4.2489e+03 ,1.9944e+01 /) - kbo(:, 5,17,16) = (/ & - &2.0726e+04 ,1.5544e+04 ,1.0363e+04 ,5.1815e+03 ,1.9956e+01 /) - kbo(:, 1,18,16) = (/ & - &7.2889e+03 ,5.4667e+03 ,3.6445e+03 ,1.8223e+03 ,2.3259e+01 /) - kbo(:, 2,18,16) = (/ & - &9.9353e+03 ,7.4515e+03 ,4.9677e+03 ,2.4839e+03 ,2.3214e+01 /) - kbo(:, 3,18,16) = (/ & - &1.2928e+04 ,9.6956e+03 ,6.4638e+03 ,3.2319e+03 ,2.3116e+01 /) - kbo(:, 4,18,16) = (/ & - &1.6189e+04 ,1.2142e+04 ,8.0944e+03 ,4.0472e+03 ,2.3106e+01 /) - kbo(:, 5,18,16) = (/ & - &1.9640e+04 ,1.4730e+04 ,9.8201e+03 ,4.9101e+03 ,2.3045e+01 /) - kbo(:, 1,19,16) = (/ & - &6.8892e+03 ,5.1669e+03 ,3.4446e+03 ,1.7223e+03 ,2.7312e+01 /) - kbo(:, 2,19,16) = (/ & - &9.3210e+03 ,6.9908e+03 ,4.6605e+03 ,2.3303e+03 ,2.7199e+01 /) - kbo(:, 3,19,16) = (/ & - &1.2050e+04 ,9.0375e+03 ,6.0250e+03 ,3.0125e+03 ,2.6980e+01 /) - kbo(:, 4,19,16) = (/ & - &1.5046e+04 ,1.1284e+04 ,7.5228e+03 ,3.7614e+03 ,2.6786e+01 /) - kbo(:, 5,19,16) = (/ & - &1.8241e+04 ,1.3681e+04 ,9.1205e+03 ,4.5603e+03 ,2.6595e+01 /) - kbo(:, 1,20,16) = (/ & - &7.0094e+03 ,5.2570e+03 ,3.5047e+03 ,1.7524e+03 ,3.2009e+01 /) - kbo(:, 2,20,16) = (/ & - &9.4364e+03 ,7.0773e+03 ,4.7182e+03 ,2.3591e+03 ,3.1788e+01 /) - kbo(:, 3,20,16) = (/ & - &1.2173e+04 ,9.1297e+03 ,6.0865e+03 ,3.0433e+03 ,3.1450e+01 /) - kbo(:, 4,20,16) = (/ & - &1.5155e+04 ,1.1367e+04 ,7.5778e+03 ,3.7889e+03 ,3.1059e+01 /) - kbo(:, 5,20,16) = (/ & - &1.8307e+04 ,1.3730e+04 ,9.1534e+03 ,4.5767e+03 ,3.0674e+01 /) - kbo(:, 1,21,16) = (/ & - &7.3306e+03 ,5.4980e+03 ,3.6654e+03 ,1.8327e+03 ,3.7355e+01 /) - kbo(:, 2,21,16) = (/ & - &9.8238e+03 ,7.3679e+03 ,4.9119e+03 ,2.4560e+03 ,3.6998e+01 /) - kbo(:, 3,21,16) = (/ & - &1.2609e+04 ,9.4571e+03 ,6.3047e+03 ,3.1524e+03 ,3.6493e+01 /) - kbo(:, 4,21,16) = (/ & - &1.5617e+04 ,1.1713e+04 ,7.8084e+03 ,3.9042e+03 ,3.5962e+01 /) - kbo(:, 5,21,16) = (/ & - &1.8773e+04 ,1.4079e+04 ,9.3863e+03 ,4.6932e+03 ,3.5346e+01 /) - kbo(:, 1,22,16) = (/ & - &7.9668e+03 ,5.9751e+03 ,3.9834e+03 ,1.9917e+03 ,4.3325e+01 /) - kbo(:, 2,22,16) = (/ & - &1.0571e+04 ,7.9286e+03 ,5.2858e+03 ,2.6429e+03 ,4.2793e+01 /) - kbo(:, 3,22,16) = (/ & - &1.3449e+04 ,1.0087e+04 ,6.7244e+03 ,3.3622e+03 ,4.2221e+01 /) - kbo(:, 4,22,16) = (/ & - &1.6524e+04 ,1.2393e+04 ,8.2619e+03 ,4.1310e+03 ,4.1607e+01 /) - kbo(:, 5,22,16) = (/ & - &1.9754e+04 ,1.4816e+04 ,9.8771e+03 ,4.9386e+03 ,4.0888e+01 /) - kbo(:, 1,23,16) = (/ & - &8.6210e+03 ,6.4658e+03 ,4.3105e+03 ,2.1553e+03 ,5.0428e+01 /) - kbo(:, 2,23,16) = (/ & - &1.1316e+04 ,8.4866e+03 ,5.6578e+03 ,2.8289e+03 ,4.9764e+01 /) - kbo(:, 3,23,16) = (/ & - &1.4291e+04 ,1.0718e+04 ,7.1454e+03 ,3.5727e+03 ,4.9049e+01 /) - kbo(:, 4,23,16) = (/ & - &1.7469e+04 ,1.3102e+04 ,8.7344e+03 ,4.3672e+03 ,4.8146e+01 /) - kbo(:, 5,23,16) = (/ & - &2.0774e+04 ,1.5580e+04 ,1.0387e+04 ,5.1935e+03 ,4.7113e+01 /) - kbo(:, 1,24,16) = (/ & - &9.2015e+03 ,6.9011e+03 ,4.6008e+03 ,2.3004e+03 ,5.8527e+01 /) - kbo(:, 2,24,16) = (/ & - &1.1985e+04 ,8.9232e+03 ,5.9928e+03 ,2.9964e+03 ,5.7489e+01 /) - kbo(:, 3,24,16) = (/ & - &1.5026e+04 ,1.1269e+04 ,7.5129e+03 ,3.7565e+03 ,5.6333e+01 /) - kbo(:, 4,24,16) = (/ & - &1.8238e+04 ,1.3679e+04 ,9.1191e+03 ,4.5596e+03 ,5.5030e+01 /) - kbo(:, 5,24,16) = (/ & - &2.1539e+04 ,1.6154e+04 ,1.0769e+04 ,5.3848e+03 ,5.3599e+01 /) - kbo(:, 1,25,16) = (/ & - &9.9033e+03 ,7.4275e+03 ,4.9517e+03 ,2.4759e+03 ,6.7091e+01 /) - kbo(:, 2,25,16) = (/ & - &1.2768e+04 ,9.5762e+03 ,6.3841e+03 ,3.1921e+03 ,6.5542e+01 /) - kbo(:, 3,25,16) = (/ & - &1.5871e+04 ,1.1903e+04 ,7.9355e+03 ,3.9678e+03 ,6.3831e+01 /) - kbo(:, 4,25,16) = (/ & - &1.9110e+04 ,1.4333e+04 ,9.5551e+03 ,4.7776e+03 ,6.2029e+01 /) - kbo(:, 5,25,16) = (/ & - &2.2417e+04 ,1.6813e+04 ,1.1208e+04 ,5.6043e+03 ,6.0136e+01 /) - kbo(:, 1,26,16) = (/ & - &1.0777e+04 ,8.0825e+03 ,5.3884e+03 ,2.6942e+03 ,7.5807e+01 /) - kbo(:, 2,26,16) = (/ & - &1.3749e+04 ,1.0312e+04 ,6.8746e+03 ,3.4373e+03 ,7.3586e+01 /) - kbo(:, 3,26,16) = (/ & - &1.6921e+04 ,1.2690e+04 ,8.4603e+03 ,4.2302e+03 ,7.1246e+01 /) - kbo(:, 4,26,16) = (/ & - &2.0227e+04 ,1.5170e+04 ,1.0114e+04 ,5.0568e+03 ,6.8870e+01 /) - kbo(:, 5,26,16) = (/ & - &2.3585e+04 ,1.7688e+04 ,1.1792e+04 ,5.8962e+03 ,6.6424e+01 /) - kbo(:, 1,27,16) = (/ & - &1.2052e+04 ,9.0388e+03 ,6.0259e+03 ,3.0130e+03 ,8.4316e+01 /) - kbo(:, 2,27,16) = (/ & - &1.5222e+04 ,1.1417e+04 ,7.6111e+03 ,3.8056e+03 ,8.1386e+01 /) - kbo(:, 3,27,16) = (/ & - &1.8590e+04 ,1.3942e+04 ,9.2948e+03 ,4.6474e+03 ,7.8348e+01 /) - kbo(:, 4,27,16) = (/ & - &2.2058e+04 ,1.6543e+04 ,1.1029e+04 ,5.5145e+03 ,7.5340e+01 /) - kbo(:, 5,27,16) = (/ & - &2.5550e+04 ,1.9162e+04 ,1.2775e+04 ,6.3875e+03 ,7.2329e+01 /) - kbo(:, 1,28,16) = (/ & - &1.3724e+04 ,1.0293e+04 ,6.8620e+03 ,3.4310e+03 ,9.2351e+01 /) - kbo(:, 2,28,16) = (/ & - &1.7171e+04 ,1.2878e+04 ,8.5855e+03 ,4.2928e+03 ,8.8670e+01 /) - kbo(:, 3,28,16) = (/ & - &2.0788e+04 ,1.5591e+04 ,1.0394e+04 ,5.1970e+03 ,8.4928e+01 /) - kbo(:, 4,28,16) = (/ & - &2.4487e+04 ,1.8365e+04 ,1.2244e+04 ,6.1218e+03 ,8.1255e+01 /) - kbo(:, 5,28,16) = (/ & - &2.8173e+04 ,2.1130e+04 ,1.4087e+04 ,7.0433e+03 ,7.7666e+01 /) - kbo(:, 1,29,16) = (/ & - &1.6469e+04 ,1.2352e+04 ,8.2344e+03 ,4.1172e+03 ,9.9675e+01 /) - kbo(:, 2,29,16) = (/ & - &2.0402e+04 ,1.5302e+04 ,1.0201e+04 ,5.1006e+03 ,9.5182e+01 /) - kbo(:, 3,29,16) = (/ & - &2.4499e+04 ,1.8374e+04 ,1.2249e+04 ,6.1246e+03 ,9.0759e+01 /) - kbo(:, 4,29,16) = (/ & - &2.8632e+04 ,2.1474e+04 ,1.4316e+04 ,7.1579e+03 ,8.6444e+01 /) - kbo(:, 5,29,16) = (/ & - &3.2723e+04 ,2.4542e+04 ,1.6361e+04 ,8.1807e+03 ,8.2287e+01 /) - kbo(:, 1,30,16) = (/ & - &2.0078e+04 ,1.5058e+04 ,1.0039e+04 ,5.0195e+03 ,1.0609e+02 /) - kbo(:, 2,30,16) = (/ & - &2.4638e+04 ,1.8479e+04 ,1.2319e+04 ,6.1595e+03 ,1.0084e+02 /) - kbo(:, 3,30,16) = (/ & - &2.9329e+04 ,2.1997e+04 ,1.4664e+04 ,7.3322e+03 ,9.5740e+01 /) - kbo(:, 4,30,16) = (/ & - &3.4034e+04 ,2.5525e+04 ,1.7017e+04 ,8.5085e+03 ,9.0849e+01 /) - kbo(:, 5,30,16) = (/ & - &3.8657e+04 ,2.8993e+04 ,1.9329e+04 ,9.6643e+03 ,8.6169e+01 /) - kbo(:, 1,31,16) = (/ & - &2.5548e+04 ,1.9161e+04 ,1.2774e+04 ,6.3870e+03 ,1.1146e+02 /) - kbo(:, 2,31,16) = (/ & - &3.1052e+04 ,2.3289e+04 ,1.5526e+04 ,7.7630e+03 ,1.0555e+02 /) - kbo(:, 3,31,16) = (/ & - &3.6674e+04 ,2.7505e+04 ,1.8172e+04 ,9.1684e+03 ,9.9833e+01 /) - kbo(:, 4,31,16) = (/ & - &4.2278e+04 ,3.1708e+04 ,2.1139e+04 ,1.0569e+04 ,9.4413e+01 /) - kbo(:, 5,31,16) = (/ & - &4.7725e+04 ,3.5794e+04 ,2.3863e+04 ,1.1931e+04 ,8.9289e+01 /) - kbo(:, 1,32,16) = (/ & - &3.2648e+04 ,2.4486e+04 ,1.6324e+04 ,8.1620e+03 ,1.1579e+02 /) - kbo(:, 2,32,16) = (/ & - &3.9333e+04 ,2.9500e+04 ,1.9666e+04 ,9.8333e+03 ,1.0928e+02 /) - kbo(:, 3,32,16) = (/ & - &4.6114e+04 ,3.4586e+04 ,2.3057e+04 ,1.1529e+04 ,1.0305e+02 /) - kbo(:, 4,32,16) = (/ & - &5.2809e+04 ,3.9607e+04 ,2.6404e+04 ,1.3202e+04 ,9.7184e+01 /) - kbo(:, 5,32,16) = (/ & - &5.9284e+04 ,4.4463e+04 ,2.9311e+04 ,1.4821e+04 ,9.1687e+01 /) - kbo(:, 1,33,16) = (/ & - &4.2212e+04 ,3.1659e+04 ,2.1106e+04 ,1.0553e+04 ,1.1913e+02 /) - kbo(:, 2,33,16) = (/ & - &5.0427e+04 ,3.7820e+04 ,2.5214e+04 ,1.2607e+04 ,1.1210e+02 /) - kbo(:, 3,33,16) = (/ & - &5.8684e+04 ,4.4013e+04 ,2.9342e+04 ,1.4671e+04 ,1.0546e+02 /) - kbo(:, 4,33,16) = (/ & - &6.6793e+04 ,5.0095e+04 ,3.3396e+04 ,1.6698e+04 ,9.9210e+01 /) - kbo(:, 5,33,16) = (/ & - &7.4575e+04 ,5.5932e+04 ,3.7288e+04 ,1.8644e+04 ,9.3412e+01 /) - kbo(:, 1,34,16) = (/ & - &5.2540e+04 ,3.9405e+04 ,2.6270e+04 ,1.3135e+04 ,1.2180e+02 /) - kbo(:, 2,34,16) = (/ & - &6.2330e+04 ,4.6748e+04 ,3.1165e+04 ,1.5582e+04 ,1.1436e+02 /) - kbo(:, 3,34,16) = (/ & - &7.2093e+04 ,5.4070e+04 ,3.6046e+04 ,1.8023e+04 ,1.0734e+02 /) - kbo(:, 4,34,16) = (/ & - &8.1593e+04 ,6.1194e+04 ,4.0796e+04 ,2.0398e+04 ,1.0080e+02 /) - kbo(:, 5,34,16) = (/ & - &9.0697e+04 ,6.8023e+04 ,4.5349e+04 ,2.2674e+04 ,9.4753e+01 /) - kbo(:, 1,35,16) = (/ & - &6.4051e+04 ,4.8038e+04 ,3.2026e+04 ,1.6013e+04 ,1.2446e+02 /) - kbo(:, 2,35,16) = (/ & - &7.5644e+04 ,5.6733e+04 ,3.7822e+04 ,1.8911e+04 ,1.1662e+02 /) - kbo(:, 3,35,16) = (/ & - &8.7172e+04 ,6.5379e+04 ,4.3586e+04 ,2.1792e+04 ,1.0929e+02 /) - kbo(:, 4,35,16) = (/ & - &9.8380e+04 ,7.3786e+04 ,4.9191e+04 ,2.4595e+04 ,1.0249e+02 /) - kbo(:, 5,35,16) = (/ & - &1.0903e+05 ,8.1776e+04 ,5.4517e+04 ,2.7259e+04 ,9.6197e+01 /) - kbo(:, 1,36,16) = (/ & - &7.5878e+04 ,5.6908e+04 ,3.7939e+04 ,1.8969e+04 ,1.2742e+02 /) - kbo(:, 2,36,16) = (/ & - &8.9471e+04 ,6.7103e+04 ,4.4735e+04 ,2.2368e+04 ,1.1920e+02 /) - kbo(:, 3,36,16) = (/ & - &1.0302e+05 ,7.7263e+04 ,5.1509e+04 ,2.5436e+04 ,1.1154e+02 /) - kbo(:, 4,36,16) = (/ & - &1.1614e+05 ,8.7108e+04 ,5.8072e+04 ,2.9036e+04 ,1.0445e+02 /) - kbo(:, 5,36,16) = (/ & - &1.2862e+05 ,9.6465e+04 ,6.4310e+04 ,3.2155e+04 ,9.7922e+01 /) - kbo(:, 1,37,16) = (/ & - &8.5083e+04 ,6.3812e+04 ,4.2541e+04 ,2.1271e+04 ,1.3125e+02 /) - kbo(:, 2,37,16) = (/ & - &1.0058e+05 ,7.5436e+04 ,5.0291e+04 ,2.5145e+04 ,1.2185e+02 /) - kbo(:, 3,37,16) = (/ & - &1.1610e+05 ,8.7073e+04 ,5.8049e+04 ,2.9024e+04 ,1.1457e+02 /) - kbo(:, 4,37,16) = (/ & - &1.3117e+05 ,9.8374e+04 ,6.5582e+04 ,3.2791e+04 ,1.0715e+02 /) - kbo(:, 5,37,16) = (/ & - &1.4551e+05 ,1.0913e+05 ,7.2757e+04 ,3.6378e+04 ,1.0034e+02 /) - kbo(:, 1,38,16) = (/ & - &9.5077e+04 ,7.2333e+04 ,4.8222e+04 ,2.4111e+04 ,1.3486e+02 /) - kbo(:, 2,38,16) = (/ & - &1.1439e+05 ,8.5793e+04 ,5.7195e+04 ,2.8598e+04 ,1.2580e+02 /) - kbo(:, 3,38,16) = (/ & - &1.3231e+05 ,9.9236e+04 ,6.6157e+04 ,3.3078e+04 ,1.1743e+02 /) - kbo(:, 4,38,16) = (/ & - &1.4989e+05 ,1.1242e+05 ,7.4945e+04 ,3.7472e+04 ,1.0969e+02 /) - kbo(:, 5,38,16) = (/ & - &1.6664e+05 ,1.2498e+05 ,8.3321e+04 ,4.1660e+04 ,1.0261e+02 /) - kbo(:, 1,39,16) = (/ & - &1.1158e+05 ,8.3685e+04 ,5.5790e+04 ,2.7895e+04 ,1.3820e+02 /) - kbo(:, 2,39,16) = (/ & - &1.3280e+05 ,9.9602e+04 ,6.6401e+04 ,3.3201e+04 ,1.2875e+02 /) - kbo(:, 3,39,16) = (/ & - &1.5408e+05 ,1.1556e+05 ,7.7040e+04 ,3.8520e+04 ,1.2007e+02 /) - kbo(:, 4,39,16) = (/ & - &1.7495e+05 ,1.3121e+05 ,8.7476e+04 ,4.3738e+04 ,1.1204e+02 /) - kbo(:, 5,39,16) = (/ & - &1.9488e+05 ,1.4616e+05 ,9.7443e+04 ,4.8722e+04 ,1.0472e+02 /) - kbo(:, 1,40,16) = (/ & - &1.1876e+05 ,8.9071e+04 ,5.9380e+04 ,2.9690e+04 ,1.4235e+02 /) - kbo(:, 2,40,16) = (/ & - &1.4221e+05 ,1.0666e+05 ,7.1106e+04 ,3.5553e+04 ,1.3244e+02 /) - kbo(:, 3,40,16) = (/ & - &1.6587e+05 ,1.2440e+05 ,8.2934e+04 ,4.1467e+04 ,1.2341e+02 /) - kbo(:, 4,40,16) = (/ & - &1.8920e+05 ,1.4190e+05 ,9.4601e+04 ,4.7300e+04 ,1.1506e+02 /) - kbo(:, 5,40,16) = (/ & - &2.1165e+05 ,1.5874e+05 ,1.0583e+05 ,5.2913e+04 ,1.0743e+02 /) - kbo(:, 1,41,16) = (/ & - &1.2546e+05 ,9.4099e+04 ,6.2733e+04 ,3.1367e+04 ,1.4657e+02 /) - kbo(:, 2,41,16) = (/ & - &1.5125e+05 ,1.1344e+05 ,7.5625e+04 ,3.7812e+04 ,1.3531e+02 /) - kbo(:, 3,41,16) = (/ & - &1.7744e+05 ,1.3308e+05 ,8.8723e+04 ,4.4362e+04 ,1.2676e+02 /) - kbo(:, 4,41,16) = (/ & - &2.0341e+05 ,1.5256e+05 ,1.0171e+05 ,5.0854e+04 ,1.1810e+02 /) - kbo(:, 5,41,16) = (/ & - &2.2858e+05 ,1.7144e+05 ,1.1429e+05 ,5.7146e+04 ,1.1015e+02 /) - kbo(:, 1,42,16) = (/ & - &1.3356e+05 ,1.0017e+05 ,6.6777e+04 ,3.3389e+04 ,1.5077e+02 /) - kbo(:, 2,42,16) = (/ & - &1.6221e+05 ,1.2166e+05 ,8.1105e+04 ,4.0545e+04 ,1.3986e+02 /) - kbo(:, 3,42,16) = (/ & - &1.9146e+05 ,1.4359e+05 ,9.5729e+04 ,4.7864e+04 ,1.3005e+02 /) - kbo(:, 4,42,16) = (/ & - &2.1781e+05 ,1.6546e+05 ,1.1031e+05 ,5.5153e+04 ,1.2109e+02 /) - kbo(:, 5,42,16) = (/ & - &2.4912e+05 ,1.8684e+05 ,1.2456e+05 ,6.2279e+04 ,1.1284e+02 /) - kbo(:, 1,43,16) = (/ & - &1.4126e+05 ,1.0594e+05 ,7.0630e+04 ,3.5315e+04 ,1.5567e+02 /) - kbo(:, 2,43,16) = (/ & - &1.7322e+05 ,1.2992e+05 ,8.6612e+04 ,4.3306e+04 ,1.4408e+02 /) - kbo(:, 3,43,16) = (/ & - &2.0611e+05 ,1.5458e+05 ,1.0200e+05 ,5.1528e+04 ,1.3385e+02 /) - kbo(:, 4,43,16) = (/ & - &2.3919e+05 ,1.7940e+05 ,1.1960e+05 ,5.9799e+04 ,1.2454e+02 /) - kbo(:, 5,43,16) = (/ & - &2.7160e+05 ,2.0370e+05 ,1.3580e+05 ,6.7900e+04 ,1.1596e+02 /) - kbo(:, 1,44,16) = (/ & - &1.5000e+05 ,1.1250e+05 ,7.5001e+04 ,3.7500e+04 ,1.6094e+02 /) - kbo(:, 2,44,16) = (/ & - &1.8602e+05 ,1.3952e+05 ,9.3011e+04 ,4.6505e+04 ,1.4866e+02 /) - kbo(:, 3,44,16) = (/ & - &2.2342e+05 ,1.6756e+05 ,1.1171e+05 ,5.5854e+04 ,1.3792e+02 /) - kbo(:, 4,44,16) = (/ & - &2.6122e+05 ,1.9592e+05 ,1.3061e+05 ,6.5304e+04 ,1.2823e+02 /) - kbo(:, 5,44,16) = (/ & - &2.9874e+05 ,2.2406e+05 ,1.4937e+05 ,7.4685e+04 ,1.1932e+02 /) - kbo(:, 1,45,16) = (/ & - &1.6171e+05 ,1.2128e+05 ,8.0854e+04 ,4.0427e+04 ,1.6635e+02 /) - kbo(:, 2,45,16) = (/ & - &2.0304e+05 ,1.5228e+05 ,1.0152e+05 ,5.0760e+04 ,1.5336e+02 /) - kbo(:, 3,45,16) = (/ & - &2.4630e+05 ,1.8473e+05 ,1.2315e+05 ,6.1576e+04 ,1.4204e+02 /) - kbo(:, 4,45,16) = (/ & - &2.9041e+05 ,2.1781e+05 ,1.4520e+05 ,7.2602e+04 ,1.3193e+02 /) - kbo(:, 5,45,16) = (/ & - &3.3433e+05 ,2.5074e+05 ,1.6716e+05 ,8.3581e+04 ,1.2271e+02 /) - kbo(:, 1,46,16) = (/ & - &1.7432e+05 ,1.3074e+05 ,8.7162e+04 ,4.3581e+04 ,1.7227e+02 /) - kbo(:, 2,46,16) = (/ & - &2.2186e+05 ,1.6640e+05 ,1.1093e+05 ,5.5465e+04 ,1.5849e+02 /) - kbo(:, 3,46,16) = (/ & - &2.7221e+05 ,2.0416e+05 ,1.3611e+05 ,6.8053e+04 ,1.4648e+02 /) - kbo(:, 4,46,16) = (/ & - &3.2411e+05 ,2.4308e+05 ,1.6205e+05 ,8.1026e+04 ,1.3593e+02 /) - kbo(:, 5,46,16) = (/ & - &3.7610e+05 ,2.8208e+05 ,1.8805e+05 ,9.4025e+04 ,1.2634e+02 /) - kbo(:, 1,47,16) = (/ & - &1.8289e+05 ,1.3717e+05 ,9.1447e+04 ,4.5723e+04 ,1.7909e+02 /) - kbo(:, 2,47,16) = (/ & - &2.3679e+05 ,1.7759e+05 ,1.1839e+05 ,5.9198e+04 ,1.6436e+02 /) - kbo(:, 3,47,16) = (/ & - &2.9447e+05 ,2.2085e+05 ,1.4724e+05 ,7.3618e+04 ,1.5159e+02 /) - kbo(:, 4,47,16) = (/ & - &3.5454e+05 ,2.6590e+05 ,1.7727e+05 ,8.8635e+04 ,1.4045e+02 /) - kbo(:, 5,47,16) = (/ & - &4.1548e+05 ,3.1161e+05 ,2.0774e+05 ,1.0387e+05 ,1.3046e+02 /) - kbo(:, 1,48,16) = (/ & - &1.9579e+05 ,1.4684e+05 ,9.7896e+04 ,4.8948e+04 ,1.8623e+02 /) - kbo(:, 2,48,16) = (/ & - &2.5824e+05 ,1.9368e+05 ,1.2912e+05 ,6.4559e+04 ,1.7055e+02 /) - kbo(:, 3,48,16) = (/ & - &3.2608e+05 ,2.4456e+05 ,1.6304e+05 ,8.0315e+04 ,1.5696e+02 /) - kbo(:, 4,48,16) = (/ & - &3.9734e+05 ,2.9801e+05 ,1.9867e+05 ,9.9336e+04 ,1.4512e+02 /) - kbo(:, 5,48,16) = (/ & - &4.7039e+05 ,3.5279e+05 ,2.3519e+05 ,1.1760e+05 ,1.3467e+02 /) - kbo(:, 1,49,16) = (/ & - &2.1650e+05 ,1.6238e+05 ,1.0825e+05 ,5.4125e+04 ,1.9381e+02 /) - kbo(:, 2,49,16) = (/ & - &2.9149e+05 ,2.1861e+05 ,1.4574e+05 ,7.2871e+04 ,1.7704e+02 /) - kbo(:, 3,49,16) = (/ & - &3.7402e+05 ,2.8052e+05 ,1.8701e+05 ,9.3505e+04 ,1.6258e+02 /) - kbo(:, 4,49,16) = (/ & - &4.6192e+05 ,3.4644e+05 ,2.3096e+05 ,1.1548e+05 ,1.4999e+02 /) - kbo(:, 5,49,16) = (/ & - &5.5289e+05 ,4.1467e+05 ,2.7644e+05 ,1.3822e+05 ,1.3901e+02 /) - kbo(:, 1,50,16) = (/ & - &2.2791e+05 ,1.7093e+05 ,1.1395e+05 ,5.6977e+04 ,2.0134e+02 /) - kbo(:, 2,50,16) = (/ & - &3.1325e+05 ,2.3494e+05 ,1.5662e+05 ,7.8312e+04 ,1.8345e+02 /) - kbo(:, 3,50,16) = (/ & - &4.0878e+05 ,3.0659e+05 ,2.0439e+05 ,1.0220e+05 ,1.6811e+02 /) - kbo(:, 4,50,16) = (/ & - &5.1152e+05 ,3.8364e+05 ,2.5576e+05 ,1.2788e+05 ,1.5482e+02 /) - kbo(:, 5,50,16) = (/ & - &6.1913e+05 ,4.6434e+05 ,3.0956e+05 ,1.5478e+05 ,1.4323e+02 /) - kbo(:, 1,51,16) = (/ & - &2.3351e+05 ,1.7513e+05 ,1.1675e+05 ,5.8377e+04 ,2.0909e+02 /) - kbo(:, 2,51,16) = (/ & - &3.2811e+05 ,2.4608e+05 ,1.6406e+05 ,8.2029e+04 ,1.9001e+02 /) - kbo(:, 3,51,16) = (/ & - &4.3579e+05 ,3.2684e+05 ,2.1790e+05 ,1.0895e+05 ,1.7377e+02 /) - kbo(:, 4,51,16) = (/ & - &5.5314e+05 ,4.1486e+05 ,2.7653e+05 ,1.3829e+05 ,1.5970e+02 /) - kbo(:, 5,51,16) = (/ & - &6.7717e+05 ,5.0788e+05 ,3.3859e+05 ,1.6929e+05 ,1.4750e+02 /) - kbo(:, 1,52,16) = (/ & - &2.4395e+05 ,1.8296e+05 ,1.2197e+05 ,6.0984e+04 ,2.1739e+02 /) - kbo(:, 2,52,16) = (/ & - &3.5104e+05 ,2.6328e+05 ,1.7552e+05 ,8.7761e+04 ,1.9693e+02 /) - kbo(:, 3,52,16) = (/ & - &4.7523e+05 ,3.5643e+05 ,2.3762e+05 ,1.1881e+05 ,1.7968e+02 /) - kbo(:, 4,52,16) = (/ & - &6.1247e+05 ,4.5936e+05 ,3.0624e+05 ,1.5312e+05 ,1.6481e+02 /) - kbo(:, 5,52,16) = (/ & - &7.5898e+05 ,5.6924e+05 ,3.7949e+05 ,1.8975e+05 ,1.5192e+02 /) - kbo(:, 1,53,16) = (/ & - &2.6284e+05 ,1.9713e+05 ,1.3142e+05 ,6.5712e+04 ,2.2625e+02 /) - kbo(:, 2,53,16) = (/ & - &3.8810e+05 ,2.9108e+05 ,1.9405e+05 ,9.7027e+04 ,2.0424e+02 /) - kbo(:, 3,53,16) = (/ & - &5.3641e+05 ,4.0231e+05 ,2.6821e+05 ,1.3410e+05 ,1.8589e+02 /) - kbo(:, 4,53,16) = (/ & - &7.0283e+05 ,5.2713e+05 ,3.5142e+05 ,1.7571e+05 ,1.7018e+02 /) - kbo(:, 5,53,16) = (/ & - &8.8260e+05 ,6.6195e+05 ,4.4130e+05 ,2.2065e+05 ,1.5658e+02 /) - kbo(:, 1,54,16) = (/ & - &2.4532e+05 ,1.8399e+05 ,1.2266e+05 ,6.1332e+04 ,2.3489e+02 /) - kbo(:, 2,54,16) = (/ & - &3.7212e+05 ,2.7909e+05 ,1.8606e+05 ,9.3031e+04 ,2.1139e+02 /) - kbo(:, 3,54,16) = (/ & - &5.1860e+05 ,3.9351e+05 ,2.6234e+05 ,1.3117e+05 ,1.9188e+02 /) - kbo(:, 4,54,16) = (/ & - &6.9903e+05 ,5.2427e+05 ,3.4952e+05 ,1.7476e+05 ,1.7536e+02 /) - kbo(:, 5,54,16) = (/ & - &8.8946e+05 ,6.6416e+05 ,4.4474e+05 ,2.2237e+05 ,1.6106e+02 /) - kbo(:, 1,55,16) = (/ & - &2.0815e+05 ,1.5612e+05 ,1.0408e+05 ,5.2039e+04 ,2.4370e+02 /) - kbo(:, 2,55,16) = (/ & - &3.2440e+05 ,2.4330e+05 ,1.6220e+05 ,8.1100e+04 ,2.1865e+02 /) - kbo(:, 3,55,16) = (/ & - &4.6741e+05 ,3.5056e+05 ,2.3371e+05 ,1.1685e+05 ,1.9795e+02 /) - kbo(:, 4,55,16) = (/ & - &6.3338e+05 ,4.7504e+05 ,3.1669e+05 ,1.5835e+05 ,1.8053e+02 /) - kbo(:, 5,55,16) = (/ & - &8.1696e+05 ,6.1272e+05 ,4.0848e+05 ,2.0424e+05 ,1.6554e+02 /) - kbo(:, 1,56,16) = (/ & - &1.7485e+05 ,1.3114e+05 ,8.7424e+04 ,4.3712e+04 ,2.5296e+02 /) - kbo(:, 2,56,16) = (/ & - &2.8084e+05 ,2.1063e+05 ,1.4042e+05 ,7.0208e+04 ,2.2634e+02 /) - kbo(:, 3,56,16) = (/ & - &4.1394e+05 ,3.1046e+05 ,2.0697e+05 ,1.0347e+05 ,2.0431e+02 /) - kbo(:, 4,56,16) = (/ & - &5.7118e+05 ,4.2838e+05 ,2.8559e+05 ,1.4279e+05 ,1.8592e+02 /) - kbo(:, 5,56,16) = (/ & - &7.4759e+05 ,5.6069e+05 ,3.7379e+05 ,1.8690e+05 ,1.7020e+02 /) - kbo(:, 1,57,16) = (/ & - &1.4522e+05 ,1.0891e+05 ,7.2607e+04 ,3.6303e+04 ,2.6280e+02 /) - kbo(:, 2,57,16) = (/ & - &2.4098e+05 ,1.8073e+05 ,1.2049e+05 ,6.0242e+04 ,2.3450e+02 /) - kbo(:, 3,57,16) = (/ & - &3.6414e+05 ,2.7311e+05 ,1.8207e+05 ,9.1034e+04 ,2.1103e+02 /) - kbo(:, 4,57,16) = (/ & - &5.1231e+05 ,3.8423e+05 ,2.5615e+05 ,1.2807e+05 ,1.9160e+02 /) - kbo(:, 5,57,16) = (/ & - &6.8106e+05 ,5.1079e+05 ,3.4053e+05 ,1.7026e+05 ,1.7509e+02 /) - kbo(:, 1,58,16) = (/ & - &3.1730e+04 ,2.9092e+04 ,2.4944e+04 ,1.7470e+04 ,2.7269e+02 /) - kbo(:, 2,58,16) = (/ & - &5.4453e+04 ,4.9925e+04 ,4.2806e+04 ,2.9981e+04 ,2.4268e+02 /) - kbo(:, 3,58,16) = (/ & - &8.4447e+04 ,7.7425e+04 ,6.6385e+04 ,4.6495e+04 ,2.1781e+02 /) - kbo(:, 4,58,16) = (/ & - &1.2116e+05 ,1.1108e+05 ,9.5242e+04 ,6.6707e+04 ,1.9723e+02 /) - kbo(:, 5,58,16) = (/ & - &1.6365e+05 ,1.5004e+05 ,1.2865e+05 ,9.0103e+04 ,1.7991e+02 /) - kbo(:, 1,59,16) = (/ & - &3.4421e+04 ,3.0055e+04 ,2.3973e+04 ,1.4918e+04 ,2.7694e+02 /) - kbo(:, 2,59,16) = (/ & - &5.9930e+04 ,5.2328e+04 ,4.1740e+04 ,2.5973e+04 ,2.4614e+02 /) - kbo(:, 3,59,16) = (/ & - &9.3934e+04 ,8.2019e+04 ,6.5423e+04 ,4.0711e+04 ,2.2066e+02 /) - kbo(:, 4,59,16) = (/ & - &1.3595e+05 ,1.1871e+05 ,9.4687e+04 ,5.8920e+04 ,1.9962e+02 /) - kbo(:, 5,59,16) = (/ & - &1.8479e+05 ,1.6135e+05 ,1.2650e+05 ,8.0089e+04 ,1.8195e+02 /) - -! The array KAO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level below 100~ mb. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. The second index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The third index -! runs over the g-channel (1 to 16). - - kao_mo3( 1, :, 1) = (/ & - & 9.31040e-03 , 1.01286e-02 , 1.10186e-02 , 1.19869e-02 , 1.30403e-02 , & - & 1.41862e-02 , 1.54328e-02 , 1.67890e-02 , 1.82644e-02 , 1.98694e-02 , & - & 2.16154e-02 , 2.35149e-02 , 2.55813e-02 , 2.78293e-02 , 3.02749e-02 , & - & 3.29353e-02 , 3.58295e-02 , 3.89781e-02 , 4.24034e-02 /) - kao_mo3( 2, :, 1) = (/ & - & 1.11200e-02 , 1.20461e-02 , 1.30493e-02 , 1.41360e-02 , 1.53133e-02 , & - & 1.65886e-02 , 1.79701e-02 , 1.94666e-02 , 2.10878e-02 , 2.28440e-02 , & - & 2.47465e-02 , 2.68074e-02 , 2.90399e-02 , 3.14583e-02 , 3.40782e-02 , & - & 3.69162e-02 , 3.99907e-02 , 4.33211e-02 , 4.69289e-02 /) - kao_mo3( 3, :, 1) = (/ & - & 1.21630e-02 , 1.31401e-02 , 1.41956e-02 , 1.53359e-02 , 1.65679e-02 , & - & 1.78988e-02 , 1.93366e-02 , 2.08899e-02 , 2.25680e-02 , 2.43808e-02 , & - & 2.63394e-02 , 2.84552e-02 , 3.07410e-02 , 3.32104e-02 , 3.58782e-02 , & - & 3.87603e-02 , 4.18739e-02 , 4.52377e-02 , 4.88716e-02 /) - kao_mo3( 4, :, 1) = (/ & - & 1.26231e-02 , 1.36243e-02 , 1.47049e-02 , 1.58713e-02 , 1.71301e-02 , & - & 1.84888e-02 , 1.99553e-02 , 2.15380e-02 , 2.32463e-02 , 2.50901e-02 , & - & 2.70801e-02 , 2.92280e-02 , 3.15463e-02 , 3.40484e-02 , 3.67489e-02 , & - & 3.96637e-02 , 4.28097e-02 , 4.62051e-02 , 4.98699e-02 /) - kao_mo3( 5, :, 1) = (/ & - & 1.33345e-02 , 1.43736e-02 , 1.54938e-02 , 1.67012e-02 , 1.80027e-02 , & - & 1.94057e-02 , 2.09180e-02 , 2.25481e-02 , 2.43053e-02 , 2.61994e-02 , & - & 2.82411e-02 , 3.04419e-02 , 3.28142e-02 , 3.53714e-02 , 3.81279e-02 , & - & 4.10992e-02 , 4.43021e-02 , 4.77545e-02 , 5.14760e-02 /) - kao_mo3( 6, :, 1) = (/ & - & 1.43294e-02 , 1.54133e-02 , 1.65791e-02 , 1.78331e-02 , 1.91819e-02 , & - & 2.06328e-02 , 2.21935e-02 , 2.38721e-02 , 2.56778e-02 , 2.76200e-02 , & - & 2.97091e-02 , 3.19562e-02 , 3.43733e-02 , 3.69732e-02 , 3.97698e-02 , & - & 4.27779e-02 , 4.60136e-02 , 4.94939e-02 , 5.32375e-02 /) - kao_mo3( 7, :, 1) = (/ & - & 1.48298e-02 , 1.59503e-02 , 1.71554e-02 , 1.84517e-02 , 1.98458e-02 , & - & 2.13453e-02 , 2.29581e-02 , 2.46928e-02 , 2.65585e-02 , 2.85652e-02 , & - & 3.07235e-02 , 3.30449e-02 , 3.55417e-02 , 3.82272e-02 , 4.11155e-02 , & - & 4.42221e-02 , 4.75634e-02 , 5.11572e-02 , 5.50225e-02 /) - kao_mo3( 8, :, 1) = (/ & - & 1.41792e-02 , 1.53141e-02 , 1.65398e-02 , 1.78637e-02 , 1.92935e-02 , & - & 2.08378e-02 , 2.25057e-02 , 2.43071e-02 , 2.62526e-02 , 2.83539e-02 , & - & 3.06234e-02 , 3.30745e-02 , 3.57218e-02 , 3.85810e-02 , 4.16690e-02 , & - & 4.50042e-02 , 4.86064e-02 , 5.24969e-02 , 5.66988e-02 /) - kao_mo3( 9, :, 1) = (/ & - & 8.82784e-03 , 9.48321e-03 , 1.01872e-02 , 1.09435e-02 , 1.17560e-02 , & - & 1.26287e-02 , 1.35662e-02 , 1.45734e-02 , 1.56553e-02 , 1.68175e-02 , & - & 1.80660e-02 , 1.94072e-02 , 2.08480e-02 , 2.23958e-02 , 2.40584e-02 , & - & 2.58445e-02 , 2.77631e-02 , 2.98242e-02 , 3.20383e-02 /) - kao_mo3( 1, :, 2) = (/ & - & 4.28238e-02 , 4.51015e-02 , 4.75003e-02 , 5.00266e-02 , 5.26873e-02 , & - & 5.54896e-02 , 5.84409e-02 , 6.15491e-02 , 6.48227e-02 , 6.82704e-02 , & - & 7.19014e-02 , 7.57256e-02 , 7.97532e-02 , 8.39949e-02 , 8.84623e-02 , & - & 9.31673e-02 , 9.81225e-02 , 1.03341e-01 , 1.08838e-01 /) - kao_mo3( 2, :, 2) = (/ & - & 4.83672e-02 , 5.07219e-02 , 5.31911e-02 , 5.57806e-02 , 5.84962e-02 , & - & 6.13440e-02 , 6.43303e-02 , 6.74621e-02 , 7.07464e-02 , 7.41905e-02 , & - & 7.78023e-02 , 8.15899e-02 , 8.55619e-02 , 8.97273e-02 , 9.40955e-02 , & - & 9.86763e-02 , 1.03480e-01 , 1.08518e-01 , 1.13801e-01 /) - kao_mo3( 3, :, 2) = (/ & - & 5.24315e-02 , 5.48650e-02 , 5.74115e-02 , 6.00762e-02 , 6.28645e-02 , & - & 6.57822e-02 , 6.88354e-02 , 7.20302e-02 , 7.53734e-02 , 7.88717e-02 , & - & 8.25324e-02 , 8.63630e-02 , 9.03714e-02 , 9.45658e-02 , 9.89549e-02 , & - & 1.03548e-01 , 1.08354e-01 , 1.13383e-01 , 1.18645e-01 /) - kao_mo3( 4, :, 2) = (/ & - & 5.65191e-02 , 5.90383e-02 , 6.16699e-02 , 6.44187e-02 , 6.72901e-02 , & - & 7.02894e-02 , 7.34224e-02 , 7.66951e-02 , 8.01137e-02 , 8.36846e-02 , & - & 8.74147e-02 , 9.13111e-02 , 9.53812e-02 , 9.96326e-02 , 1.04074e-01 , & - & 1.08712e-01 , 1.13558e-01 , 1.18620e-01 , 1.23907e-01 /) - kao_mo3( 5, :, 2) = (/ & - & 6.03171e-02 , 6.29114e-02 , 6.56172e-02 , 6.84394e-02 , 7.13830e-02 , & - & 7.44532e-02 , 7.76555e-02 , 8.09955e-02 , 8.44791e-02 , 8.81125e-02 , & - & 9.19023e-02 , 9.58550e-02 , 9.99778e-02 , 1.04278e-01 , 1.08763e-01 , & - & 1.13441e-01 , 1.18320e-01 , 1.23409e-01 , 1.28717e-01 /) - kao_mo3( 6, :, 2) = (/ & - & 6.51092e-02 , 6.77827e-02 , 7.05660e-02 , 7.34635e-02 , 7.64801e-02 , & - & 7.96204e-02 , 8.28898e-02 , 8.62934e-02 , 8.98367e-02 , 9.35255e-02 , & - & 9.73658e-02 , 1.01364e-01 , 1.05526e-01 , 1.09859e-01 , 1.14370e-01 , & - & 1.19066e-01 , 1.23955e-01 , 1.29045e-01 , 1.34344e-01 /) - kao_mo3( 7, :, 2) = (/ & - & 7.09653e-02 , 7.37378e-02 , 7.66187e-02 , 7.96121e-02 , 8.27225e-02 , & - & 8.59543e-02 , 8.93125e-02 , 9.28018e-02 , 9.64275e-02 , 1.00195e-01 , & - & 1.04109e-01 , 1.08177e-01 , 1.12403e-01 , 1.16795e-01 , 1.21358e-01 , & - & 1.26099e-01 , 1.31026e-01 , 1.36145e-01 , 1.41464e-01 /) - kao_mo3( 8, :, 2) = (/ & - & 7.69193e-02 , 7.97926e-02 , 8.27733e-02 , 8.58653e-02 , 8.90728e-02 , & - & 9.24002e-02 , 9.58518e-02 , 9.94324e-02 , 1.03147e-01 , 1.07000e-01 , & - & 1.10997e-01 , 1.15143e-01 , 1.19444e-01 , 1.23906e-01 , 1.28535e-01 , & - & 1.33336e-01 , 1.38317e-01 , 1.43484e-01 , 1.48844e-01 /) - kao_mo3( 9, :, 2) = (/ & - & 4.57962e-02 , 4.76027e-02 , 4.94805e-02 , 5.14323e-02 , 5.34611e-02 , & - & 5.55700e-02 , 5.77620e-02 , 6.00405e-02 , 6.24089e-02 , 6.48707e-02 , & - & 6.74296e-02 , 7.00895e-02 , 7.28542e-02 , 7.57281e-02 , 7.87153e-02 , & - & 8.18203e-02 , 8.50478e-02 , 8.84027e-02 , 9.18898e-02 /) - kao_mo3( 1, :, 3) = (/ & - & 1.12607e-01 , 1.16047e-01 , 1.19591e-01 , 1.23244e-01 , 1.27009e-01 , & - & 1.30888e-01 , 1.34886e-01 , 1.39006e-01 , 1.43252e-01 , 1.47628e-01 , & - & 1.52137e-01 , 1.56785e-01 , 1.61574e-01 , 1.66509e-01 , 1.71595e-01 , & - & 1.76836e-01 , 1.82238e-01 , 1.87804e-01 , 1.93541e-01 /) - kao_mo3( 2, :, 3) = (/ & - & 1.14531e-01 , 1.17850e-01 , 1.21266e-01 , 1.24781e-01 , 1.28397e-01 , & - & 1.32119e-01 , 1.35948e-01 , 1.39888e-01 , 1.43943e-01 , 1.48115e-01 , & - & 1.52407e-01 , 1.56825e-01 , 1.61370e-01 , 1.66047e-01 , 1.70860e-01 , & - & 1.75812e-01 , 1.80907e-01 , 1.86150e-01 , 1.91546e-01 /) - kao_mo3( 3, :, 3) = (/ & - & 1.13986e-01 , 1.17222e-01 , 1.20551e-01 , 1.23974e-01 , 1.27494e-01 , & - & 1.31114e-01 , 1.34837e-01 , 1.38666e-01 , 1.42604e-01 , 1.46653e-01 , & - & 1.50817e-01 , 1.55099e-01 , 1.59503e-01 , 1.64032e-01 , 1.68690e-01 , & - & 1.73480e-01 , 1.78406e-01 , 1.83472e-01 , 1.88682e-01 /) - kao_mo3( 4, :, 3) = (/ & - & 1.13713e-01 , 1.16892e-01 , 1.20160e-01 , 1.23519e-01 , 1.26972e-01 , & - & 1.30522e-01 , 1.34171e-01 , 1.37922e-01 , 1.41778e-01 , 1.45742e-01 , & - & 1.49817e-01 , 1.54005e-01 , 1.58311e-01 , 1.62737e-01 , 1.67287e-01 , & - & 1.71964e-01 , 1.76771e-01 , 1.81714e-01 , 1.86794e-01 /) - kao_mo3( 5, :, 3) = (/ & - & 1.12321e-01 , 1.15413e-01 , 1.18591e-01 , 1.21856e-01 , 1.25211e-01 , & - & 1.28658e-01 , 1.32200e-01 , 1.35840e-01 , 1.39580e-01 , 1.43423e-01 , & - & 1.47372e-01 , 1.51429e-01 , 1.55599e-01 , 1.59883e-01 , 1.64284e-01 , & - & 1.68808e-01 , 1.73455e-01 , 1.78231e-01 , 1.83138e-01 /) - kao_mo3( 6, :, 3) = (/ & - & 1.14158e-01 , 1.17218e-01 , 1.20360e-01 , 1.23586e-01 , 1.26899e-01 , & - & 1.30300e-01 , 1.33793e-01 , 1.37379e-01 , 1.41061e-01 , 1.44842e-01 , & - & 1.48724e-01 , 1.52711e-01 , 1.56804e-01 , 1.61007e-01 , 1.65322e-01 , & - & 1.69754e-01 , 1.74304e-01 , 1.78976e-01 , 1.83773e-01 /) - kao_mo3( 7, :, 3) = (/ & - & 1.21015e-01 , 1.23989e-01 , 1.27036e-01 , 1.30157e-01 , 1.33355e-01 , & - & 1.36632e-01 , 1.39990e-01 , 1.43429e-01 , 1.46954e-01 , 1.50565e-01 , & - & 1.54264e-01 , 1.58055e-01 , 1.61939e-01 , 1.65918e-01 , 1.69995e-01 , & - & 1.74172e-01 , 1.78452e-01 , 1.82836e-01 , 1.87329e-01 /) - kao_mo3( 8, :, 3) = (/ & - & 1.33952e-01 , 1.36939e-01 , 1.39992e-01 , 1.43114e-01 , 1.46305e-01 , & - & 1.49567e-01 , 1.52902e-01 , 1.56311e-01 , 1.59797e-01 , 1.63360e-01 , & - & 1.67002e-01 , 1.70726e-01 , 1.74533e-01 , 1.78424e-01 , 1.82403e-01 , & - & 1.86470e-01 , 1.90627e-01 , 1.94878e-01 , 1.99223e-01 /) - kao_mo3( 9, :, 3) = (/ & - & 1.01003e-01 , 1.03713e-01 , 1.06495e-01 , 1.09352e-01 , 1.12285e-01 , & - & 1.15297e-01 , 1.18390e-01 , 1.21566e-01 , 1.24827e-01 , 1.28176e-01 , & - & 1.31614e-01 , 1.35145e-01 , 1.38770e-01 , 1.42493e-01 , 1.46315e-01 , & - & 1.50240e-01 , 1.54271e-01 , 1.58409e-01 , 1.62659e-01 /) - kao_mo3( 1, :, 4) = (/ & - & 2.35597e-01 , 2.37975e-01 , 2.40376e-01 , 2.42802e-01 , 2.45253e-01 , & - & 2.47728e-01 , 2.50228e-01 , 2.52753e-01 , 2.55304e-01 , 2.57881e-01 , & - & 2.60483e-01 , 2.63112e-01 , 2.65767e-01 , 2.68450e-01 , 2.71159e-01 , & - & 2.73895e-01 , 2.76660e-01 , 2.79452e-01 , 2.82272e-01 /) - kao_mo3( 2, :, 4) = (/ & - & 2.27965e-01 , 2.30334e-01 , 2.32728e-01 , 2.35146e-01 , 2.37590e-01 , & - & 2.40059e-01 , 2.42554e-01 , 2.45075e-01 , 2.47621e-01 , 2.50195e-01 , & - & 2.52795e-01 , 2.55422e-01 , 2.58077e-01 , 2.60759e-01 , 2.63468e-01 , & - & 2.66206e-01 , 2.68973e-01 , 2.71768e-01 , 2.74593e-01 /) - kao_mo3( 3, :, 4) = (/ & - & 2.25956e-01 , 2.28277e-01 , 2.30622e-01 , 2.32991e-01 , 2.35384e-01 , & - & 2.37802e-01 , 2.40244e-01 , 2.42712e-01 , 2.45205e-01 , 2.47724e-01 , & - & 2.50268e-01 , 2.52839e-01 , 2.55436e-01 , 2.58060e-01 , 2.60711e-01 , & - & 2.63389e-01 , 2.66094e-01 , 2.68827e-01 , 2.71589e-01 /) - kao_mo3( 4, :, 4) = (/ & - & 2.28371e-01 , 2.30595e-01 , 2.32840e-01 , 2.35107e-01 , 2.37397e-01 , & - & 2.39708e-01 , 2.42042e-01 , 2.44399e-01 , 2.46779e-01 , 2.49182e-01 , & - & 2.51608e-01 , 2.54058e-01 , 2.56532e-01 , 2.59030e-01 , 2.61552e-01 , & - & 2.64099e-01 , 2.66671e-01 , 2.69267e-01 , 2.71889e-01 /) - kao_mo3( 5, :, 4) = (/ & - & 2.42563e-01 , 2.44620e-01 , 2.46695e-01 , 2.48787e-01 , 2.50897e-01 , & - & 2.53024e-01 , 2.55170e-01 , 2.57334e-01 , 2.59516e-01 , 2.61717e-01 , & - & 2.63936e-01 , 2.66174e-01 , 2.68431e-01 , 2.70708e-01 , 2.73003e-01 , & - & 2.75318e-01 , 2.77653e-01 , 2.80008e-01 , 2.82382e-01 /) - kao_mo3( 6, :, 4) = (/ & - & 2.54052e-01 , 2.56017e-01 , 2.57997e-01 , 2.59992e-01 , 2.62003e-01 , & - & 2.64029e-01 , 2.66071e-01 , 2.68129e-01 , 2.70203e-01 , 2.72293e-01 , & - & 2.74398e-01 , 2.76521e-01 , 2.78659e-01 , 2.80814e-01 , 2.82986e-01 , & - & 2.85175e-01 , 2.87380e-01 , 2.89603e-01 , 2.91842e-01 /) - kao_mo3( 7, :, 4) = (/ & - & 2.54061e-01 , 2.55982e-01 , 2.57917e-01 , 2.59867e-01 , 2.61832e-01 , & - & 2.63811e-01 , 2.65806e-01 , 2.67815e-01 , 2.69840e-01 , 2.71880e-01 , & - & 2.73936e-01 , 2.76007e-01 , 2.78093e-01 , 2.80196e-01 , 2.82314e-01 , & - & 2.84449e-01 , 2.86599e-01 , 2.88766e-01 , 2.90949e-01 /) - kao_mo3( 8, :, 4) = (/ & - & 2.72482e-01 , 2.73916e-01 , 2.75358e-01 , 2.76807e-01 , 2.78264e-01 , & - & 2.79729e-01 , 2.81201e-01 , 2.82681e-01 , 2.84169e-01 , 2.85665e-01 , & - & 2.87168e-01 , 2.88680e-01 , 2.90199e-01 , 2.91726e-01 , 2.93262e-01 , & - & 2.94805e-01 , 2.96357e-01 , 2.97917e-01 , 2.99485e-01 /) - kao_mo3( 9, :, 4) = (/ & - & 1.93414e-01 , 1.95498e-01 , 1.97605e-01 , 1.99734e-01 , 2.01886e-01 , & - & 2.04062e-01 , 2.06261e-01 , 2.08483e-01 , 2.10730e-01 , 2.13001e-01 , & - & 2.15296e-01 , 2.17616e-01 , 2.19961e-01 , 2.22331e-01 , 2.24727e-01 , & - & 2.27148e-01 , 2.29596e-01 , 2.32070e-01 , 2.34571e-01 /) - kao_mo3( 1, :, 5) = (/ & - & 5.30785e-01 , 5.30477e-01 , 5.30169e-01 , 5.29861e-01 , 5.29553e-01 , & - & 5.29246e-01 , 5.28938e-01 , 5.28631e-01 , 5.28324e-01 , 5.28017e-01 , & - & 5.27711e-01 , 5.27404e-01 , 5.27098e-01 , 5.26792e-01 , 5.26486e-01 , & - & 5.26180e-01 , 5.25875e-01 , 5.25569e-01 , 5.25264e-01 /) - kao_mo3( 2, :, 5) = (/ & - & 5.33406e-01 , 5.32997e-01 , 5.32587e-01 , 5.32178e-01 , 5.31769e-01 , & - & 5.31360e-01 , 5.30952e-01 , 5.30544e-01 , 5.30137e-01 , 5.29729e-01 , & - & 5.29322e-01 , 5.28916e-01 , 5.28509e-01 , 5.28103e-01 , 5.27697e-01 , & - & 5.27292e-01 , 5.26887e-01 , 5.26482e-01 , 5.26077e-01 /) - kao_mo3( 3, :, 5) = (/ & - & 5.39814e-01 , 5.39234e-01 , 5.38655e-01 , 5.38077e-01 , 5.37499e-01 , & - & 5.36922e-01 , 5.36345e-01 , 5.35769e-01 , 5.35194e-01 , 5.34620e-01 , & - & 5.34045e-01 , 5.33472e-01 , 5.32899e-01 , 5.32327e-01 , 5.31756e-01 , & - & 5.31185e-01 , 5.30614e-01 , 5.30045e-01 , 5.29475e-01 /) - kao_mo3( 4, :, 5) = (/ & - & 5.39054e-01 , 5.38348e-01 , 5.37643e-01 , 5.36938e-01 , 5.36235e-01 , & - & 5.35532e-01 , 5.34831e-01 , 5.34130e-01 , 5.33431e-01 , 5.32732e-01 , & - & 5.32034e-01 , 5.31337e-01 , 5.30641e-01 , 5.29946e-01 , 5.29252e-01 , & - & 5.28559e-01 , 5.27866e-01 , 5.27175e-01 , 5.26484e-01 /) - kao_mo3( 5, :, 5) = (/ & - & 5.29240e-01 , 5.28475e-01 , 5.27711e-01 , 5.26949e-01 , 5.26187e-01 , & - & 5.25427e-01 , 5.24668e-01 , 5.23909e-01 , 5.23152e-01 , 5.22396e-01 , & - & 5.21641e-01 , 5.20888e-01 , 5.20135e-01 , 5.19383e-01 , 5.18633e-01 , & - & 5.17883e-01 , 5.17135e-01 , 5.16388e-01 , 5.15642e-01 /) - kao_mo3( 6, :, 5) = (/ & - & 5.21746e-01 , 5.20815e-01 , 5.19886e-01 , 5.18958e-01 , 5.18032e-01 , & - & 5.17107e-01 , 5.16184e-01 , 5.15263e-01 , 5.14343e-01 , 5.13425e-01 , & - & 5.12509e-01 , 5.11594e-01 , 5.10681e-01 , 5.09770e-01 , 5.08860e-01 , & - & 5.07952e-01 , 5.07045e-01 , 5.06140e-01 , 5.05237e-01 /) - kao_mo3( 7, :, 5) = (/ & - & 5.26752e-01 , 5.25550e-01 , 5.24352e-01 , 5.23156e-01 , 5.21963e-01 , & - & 5.20772e-01 , 5.19584e-01 , 5.18399e-01 , 5.17217e-01 , 5.16038e-01 , & - & 5.14861e-01 , 5.13686e-01 , 5.12515e-01 , 5.11346e-01 , 5.10180e-01 , & - & 5.09016e-01 , 5.07855e-01 , 5.06697e-01 , 5.05541e-01 /) - kao_mo3( 8, :, 5) = (/ & - & 5.23581e-01 , 5.22513e-01 , 5.21446e-01 , 5.20382e-01 , 5.19320e-01 , & - & 5.18260e-01 , 5.17203e-01 , 5.16147e-01 , 5.15094e-01 , 5.14042e-01 , & - & 5.12993e-01 , 5.11946e-01 , 5.10901e-01 , 5.09859e-01 , 5.08818e-01 , & - & 5.07780e-01 , 5.06743e-01 , 5.05709e-01 , 5.04677e-01 /) - kao_mo3( 9, :, 5) = (/ & - & 3.80393e-01 , 3.80680e-01 , 3.80967e-01 , 3.81254e-01 , 3.81542e-01 , & - & 3.81829e-01 , 3.82117e-01 , 3.82405e-01 , 3.82693e-01 , 3.82982e-01 , & - & 3.83271e-01 , 3.83559e-01 , 3.83849e-01 , 3.84138e-01 , 3.84428e-01 , & - & 3.84717e-01 , 3.85007e-01 , 3.85298e-01 , 3.85588e-01 /) - kao_mo3( 1, :, 6) = (/ & - & 6.14818e-01 , 6.10664e-01 , 6.06539e-01 , 6.02441e-01 , 5.98372e-01 , & - & 5.94330e-01 , 5.90315e-01 , 5.86327e-01 , 5.82366e-01 , 5.78432e-01 , & - & 5.74524e-01 , 5.70643e-01 , 5.66788e-01 , 5.62959e-01 , 5.59156e-01 , & - & 5.55379e-01 , 5.51627e-01 , 5.47901e-01 , 5.44199e-01 /) - kao_mo3( 2, :, 6) = (/ & - & 6.10199e-01 , 6.06143e-01 , 6.02114e-01 , 5.98112e-01 , 5.94136e-01 , & - & 5.90187e-01 , 5.86264e-01 , 5.82367e-01 , 5.78496e-01 , 5.74651e-01 , & - & 5.70831e-01 , 5.67037e-01 , 5.63268e-01 , 5.59524e-01 , 5.55805e-01 , & - & 5.52110e-01 , 5.48440e-01 , 5.44795e-01 , 5.41174e-01 /) - kao_mo3( 3, :, 6) = (/ & - & 6.02949e-01 , 5.99057e-01 , 5.95190e-01 , 5.91348e-01 , 5.87531e-01 , & - & 5.83739e-01 , 5.79971e-01 , 5.76227e-01 , 5.72508e-01 , 5.68812e-01 , & - & 5.65140e-01 , 5.61493e-01 , 5.57868e-01 , 5.54267e-01 , 5.50690e-01 , & - & 5.47135e-01 , 5.43603e-01 , 5.40094e-01 , 5.36608e-01 /) - kao_mo3( 4, :, 6) = (/ & - & 6.05047e-01 , 6.01155e-01 , 5.97289e-01 , 5.93448e-01 , 5.89631e-01 , & - & 5.85838e-01 , 5.82071e-01 , 5.78327e-01 , 5.74607e-01 , 5.70912e-01 , & - & 5.67240e-01 , 5.63592e-01 , 5.59967e-01 , 5.56365e-01 , 5.52787e-01 , & - & 5.49232e-01 , 5.45699e-01 , 5.42190e-01 , 5.38703e-01 /) - kao_mo3( 5, :, 6) = (/ & - & 6.03593e-01 , 5.99867e-01 , 5.96164e-01 , 5.92483e-01 , 5.88825e-01 , & - & 5.85190e-01 , 5.81577e-01 , 5.77987e-01 , 5.74419e-01 , 5.70872e-01 , & - & 5.67348e-01 , 5.63846e-01 , 5.60365e-01 , 5.56905e-01 , 5.53467e-01 , & - & 5.50050e-01 , 5.46654e-01 , 5.43279e-01 , 5.39926e-01 /) - kao_mo3( 6, :, 6) = (/ & - & 6.03940e-01 , 6.00224e-01 , 5.96531e-01 , 5.92861e-01 , 5.89213e-01 , & - & 5.85588e-01 , 5.81985e-01 , 5.78404e-01 , 5.74845e-01 , 5.71308e-01 , & - & 5.67793e-01 , 5.64299e-01 , 5.60827e-01 , 5.57377e-01 , 5.53947e-01 , & - & 5.50539e-01 , 5.47151e-01 , 5.43785e-01 , 5.40439e-01 /) - kao_mo3( 7, :, 6) = (/ & - & 6.06242e-01 , 6.02257e-01 , 5.98299e-01 , 5.94367e-01 , 5.90461e-01 , & - & 5.86580e-01 , 5.82725e-01 , 5.78895e-01 , 5.75090e-01 , 5.71311e-01 , & - & 5.67556e-01 , 5.63826e-01 , 5.60120e-01 , 5.56439e-01 , 5.52782e-01 , & - & 5.49149e-01 , 5.45540e-01 , 5.41954e-01 , 5.38393e-01 /) - kao_mo3( 8, :, 6) = (/ & - & 6.11929e-01 , 6.07173e-01 , 6.02454e-01 , 5.97773e-01 , 5.93127e-01 , & - & 5.88518e-01 , 5.83944e-01 , 5.79406e-01 , 5.74903e-01 , 5.70436e-01 , & - & 5.66002e-01 , 5.61604e-01 , 5.57239e-01 , 5.52909e-01 , 5.48612e-01 , & - & 5.44349e-01 , 5.40118e-01 , 5.35921e-01 , 5.31756e-01 /) - kao_mo3( 9, :, 6) = (/ & - & 6.21189e-01 , 6.17338e-01 , 6.13511e-01 , 6.09707e-01 , 6.05927e-01 , & - & 6.02170e-01 , 5.98437e-01 , 5.94726e-01 , 5.91039e-01 , 5.87375e-01 , & - & 5.83733e-01 , 5.80114e-01 , 5.76517e-01 , 5.72943e-01 , 5.69390e-01 , & - & 5.65860e-01 , 5.62352e-01 , 5.58865e-01 , 5.55400e-01 /) - kao_mo3( 1, :, 7) = (/ & - & 7.41310e-01 , 7.30108e-01 , 7.19075e-01 , 7.08209e-01 , 6.97507e-01 , & - & 6.86967e-01 , 6.76586e-01 , 6.66362e-01 , 6.56292e-01 , 6.46374e-01 , & - & 6.36607e-01 , 6.26987e-01 , 6.17512e-01 , 6.08181e-01 , 5.98990e-01 , & - & 5.89939e-01 , 5.81024e-01 , 5.72244e-01 , 5.63597e-01 /) - kao_mo3( 2, :, 7) = (/ & - & 7.38780e-01 , 7.27631e-01 , 7.16651e-01 , 7.05836e-01 , 6.95185e-01 , & - & 6.84695e-01 , 6.74362e-01 , 6.64186e-01 , 6.54163e-01 , 6.44292e-01 , & - & 6.34569e-01 , 6.24993e-01 , 6.15562e-01 , 6.06273e-01 , 5.97124e-01 , & - & 5.88113e-01 , 5.79238e-01 , 5.70498e-01 , 5.61889e-01 /) - kao_mo3( 3, :, 7) = (/ & - & 7.33846e-01 , 7.22799e-01 , 7.11919e-01 , 7.01203e-01 , 6.90648e-01 , & - & 6.80252e-01 , 6.70012e-01 , 6.59927e-01 , 6.49993e-01 , 6.40209e-01 , & - & 6.30572e-01 , 6.21080e-01 , 6.11731e-01 , 6.02523e-01 , 5.93453e-01 , & - & 5.84520e-01 , 5.75721e-01 , 5.67055e-01 , 5.58519e-01 /) - kao_mo3( 4, :, 7) = (/ & - & 7.21218e-01 , 7.10492e-01 , 6.99926e-01 , 6.89517e-01 , 6.79262e-01 , & - & 6.69160e-01 , 6.59209e-01 , 6.49405e-01 , 6.39747e-01 , 6.30233e-01 , & - & 6.20860e-01 , 6.11627e-01 , 6.02531e-01 , 5.93570e-01 , 5.84743e-01 , & - & 5.76047e-01 , 5.67480e-01 , 5.59040e-01 , 5.50726e-01 /) - kao_mo3( 5, :, 7) = (/ & - & 7.10588e-01 , 7.00014e-01 , 6.89596e-01 , 6.79334e-01 , 6.69225e-01 , & - & 6.59266e-01 , 6.49455e-01 , 6.39790e-01 , 6.30269e-01 , 6.20889e-01 , & - & 6.11650e-01 , 6.02547e-01 , 5.93581e-01 , 5.84747e-01 , 5.76045e-01 , & - & 5.67473e-01 , 5.59028e-01 , 5.50709e-01 , 5.42513e-01 /) - kao_mo3( 6, :, 7) = (/ & - & 6.98166e-01 , 6.87706e-01 , 6.77402e-01 , 6.67253e-01 , 6.57256e-01 , & - & 6.47408e-01 , 6.37708e-01 , 6.28154e-01 , 6.18742e-01 , 6.09472e-01 , & - & 6.00340e-01 , 5.91346e-01 , 5.82486e-01 , 5.73758e-01 , 5.65162e-01 , & - & 5.56694e-01 , 5.48353e-01 , 5.40138e-01 , 5.32045e-01 /) - kao_mo3( 7, :, 7) = (/ & - & 6.76974e-01 , 6.67034e-01 , 6.57240e-01 , 6.47590e-01 , 6.38081e-01 , & - & 6.28712e-01 , 6.19481e-01 , 6.10385e-01 , 6.01422e-01 , 5.92592e-01 , & - & 5.83891e-01 , 5.75317e-01 , 5.66870e-01 , 5.58547e-01 , 5.50345e-01 , & - & 5.42265e-01 , 5.34303e-01 , 5.26457e-01 , 5.18727e-01 /) - kao_mo3( 8, :, 7) = (/ & - & 6.30061e-01 , 6.21017e-01 , 6.12102e-01 , 6.03316e-01 , 5.94656e-01 , & - & 5.86120e-01 , 5.77706e-01 , 5.69414e-01 , 5.61240e-01 , 5.53184e-01 , & - & 5.45243e-01 , 5.37416e-01 , 5.29702e-01 , 5.22098e-01 , 5.14604e-01 , & - & 5.07217e-01 , 4.99936e-01 , 4.92760e-01 , 4.85687e-01 /) - kao_mo3( 9, :, 7) = (/ & - & 8.97633e-01 , 8.87307e-01 , 8.77100e-01 , 8.67010e-01 , 8.57036e-01 , & - & 8.47176e-01 , 8.37431e-01 , 8.27797e-01 , 8.18274e-01 , 8.08861e-01 , & - & 7.99555e-01 , 7.90357e-01 , 7.81265e-01 , 7.72278e-01 , 7.63393e-01 , & - & 7.54611e-01 , 7.45930e-01 , 7.37349e-01 , 7.28867e-01 /) - kao_mo3( 1, :, 8) = (/ & - & 4.87356e-01 , 4.80743e-01 , 4.74220e-01 , 4.67785e-01 , 4.61437e-01 , & - & 4.55176e-01 , 4.49000e-01 , 4.42907e-01 , 4.36897e-01 , 4.30969e-01 , & - & 4.25121e-01 , 4.19353e-01 , 4.13663e-01 , 4.08049e-01 , 4.02513e-01 , & - & 3.97051e-01 , 3.91663e-01 , 3.86349e-01 , 3.81106e-01 /) - kao_mo3( 2, :, 8) = (/ & - & 4.86776e-01 , 4.80157e-01 , 4.73627e-01 , 4.67187e-01 , 4.60834e-01 , & - & 4.54567e-01 , 4.48386e-01 , 4.42289e-01 , 4.36274e-01 , 4.30342e-01 , & - & 4.24490e-01 , 4.18718e-01 , 4.13024e-01 , 4.07407e-01 , 4.01867e-01 , & - & 3.96403e-01 , 3.91012e-01 , 3.85695e-01 , 3.80450e-01 /) - kao_mo3( 3, :, 8) = (/ & - & 4.86111e-01 , 4.79496e-01 , 4.72972e-01 , 4.66536e-01 , 4.60188e-01 , & - & 4.53926e-01 , 4.47750e-01 , 4.41657e-01 , 4.35648e-01 , 4.29720e-01 , & - & 4.23873e-01 , 4.18105e-01 , 4.12416e-01 , 4.06804e-01 , 4.01269e-01 , & - & 3.95809e-01 , 3.90423e-01 , 3.85111e-01 , 3.79871e-01 /) - kao_mo3( 4, :, 8) = (/ & - & 4.85501e-01 , 4.78880e-01 , 4.72350e-01 , 4.65908e-01 , 4.59554e-01 , & - & 4.53288e-01 , 4.47106e-01 , 4.41009e-01 , 4.34995e-01 , 4.29063e-01 , & - & 4.23211e-01 , 4.17440e-01 , 4.11747e-01 , 4.06132e-01 , 4.00594e-01 , & - & 3.95131e-01 , 3.89743e-01 , 3.84428e-01 , 3.79185e-01 /) - kao_mo3( 5, :, 8) = (/ & - & 4.83679e-01 , 4.77140e-01 , 4.70691e-01 , 4.64328e-01 , 4.58051e-01 , & - & 4.51859e-01 , 4.45751e-01 , 4.39726e-01 , 4.33781e-01 , 4.27918e-01 , & - & 4.22133e-01 , 4.16427e-01 , 4.10798e-01 , 4.05245e-01 , 3.99767e-01 , & - & 3.94363e-01 , 3.89032e-01 , 3.83773e-01 , 3.78585e-01 /) - kao_mo3( 6, :, 8) = (/ & - & 4.72120e-01 , 4.65834e-01 , 4.59630e-01 , 4.53510e-01 , 4.47471e-01 , & - & 4.41513e-01 , 4.35633e-01 , 4.29833e-01 , 4.24109e-01 , 4.18461e-01 , & - & 4.12889e-01 , 4.07391e-01 , 4.01966e-01 , 3.96614e-01 , 3.91332e-01 , & - & 3.86122e-01 , 3.80980e-01 , 3.75907e-01 , 3.70901e-01 /) - kao_mo3( 7, :, 8) = (/ & - & 4.58683e-01 , 4.52758e-01 , 4.46909e-01 , 4.41135e-01 , 4.35437e-01 , & - & 4.29812e-01 , 4.24259e-01 , 4.18779e-01 , 4.13369e-01 , 4.08029e-01 , & - & 4.02758e-01 , 3.97555e-01 , 3.92419e-01 , 3.87350e-01 , 3.82346e-01 , & - & 3.77406e-01 , 3.72531e-01 , 3.67719e-01 , 3.62968e-01 /) - kao_mo3( 8, :, 8) = (/ & - & 4.56091e-01 , 4.50481e-01 , 4.44940e-01 , 4.39467e-01 , 4.34062e-01 , & - & 4.28722e-01 , 4.23449e-01 , 4.18240e-01 , 4.13096e-01 , 4.08015e-01 , & - & 4.02996e-01 , 3.98039e-01 , 3.93143e-01 , 3.88307e-01 , 3.83531e-01 , & - & 3.78813e-01 , 3.74154e-01 , 3.69552e-01 , 3.65006e-01 /) - kao_mo3( 9, :, 8) = (/ & - & 9.11213e-01 , 9.03270e-01 , 8.95396e-01 , 8.87591e-01 , 8.79855e-01 , & - & 8.72185e-01 , 8.64583e-01 , 8.57046e-01 , 8.49576e-01 , 8.42170e-01 , & - & 8.34829e-01 , 8.27552e-01 , 8.20339e-01 , 8.13188e-01 , 8.06100e-01 , & - & 7.99073e-01 , 7.92108e-01 , 7.85204e-01 , 7.78359e-01 /) - kao_mo3( 1, :, 9) = (/ & - & 5.56194e-01 , 5.48595e-01 , 5.41100e-01 , 5.33707e-01 , 5.26415e-01 , & - & 5.19223e-01 , 5.12129e-01 , 5.05132e-01 , 4.98231e-01 , 4.91424e-01 , & - & 4.84710e-01 , 4.78087e-01 , 4.71556e-01 , 4.65113e-01 , 4.58758e-01 , & - & 4.52491e-01 , 4.46309e-01 , 4.40211e-01 , 4.34197e-01 /) - kao_mo3( 2, :, 9) = (/ & - & 5.56174e-01 , 5.48575e-01 , 5.41079e-01 , 5.33687e-01 , 5.26395e-01 , & - & 5.19203e-01 , 5.12109e-01 , 5.05112e-01 , 4.98211e-01 , 4.91404e-01 , & - & 4.84690e-01 , 4.78068e-01 , 4.71536e-01 , 4.65093e-01 , 4.58739e-01 , & - & 4.52471e-01 , 4.46289e-01 , 4.40191e-01 , 4.34177e-01 /) - kao_mo3( 3, :, 9) = (/ & - & 5.55996e-01 , 5.48403e-01 , 5.40913e-01 , 5.33526e-01 , 5.26239e-01 , & - & 5.19052e-01 , 5.11963e-01 , 5.04971e-01 , 4.98074e-01 , 4.91272e-01 , & - & 4.84562e-01 , 4.77944e-01 , 4.71417e-01 , 4.64978e-01 , 4.58628e-01 , & - & 4.52364e-01 , 4.46186e-01 , 4.40092e-01 , 4.34081e-01 /) - kao_mo3( 4, :, 9) = (/ & - & 5.55859e-01 , 5.48271e-01 , 5.40786e-01 , 5.33404e-01 , 5.26123e-01 , & - & 5.18941e-01 , 5.11856e-01 , 5.04869e-01 , 4.97977e-01 , 4.91179e-01 , & - & 4.84474e-01 , 4.77861e-01 , 4.71337e-01 , 4.64903e-01 , 4.58557e-01 , & - & 4.52297e-01 , 4.46123e-01 , 4.40033e-01 , 4.34026e-01 /) - kao_mo3( 5, :, 9) = (/ & - & 5.54550e-01 , 5.46921e-01 , 5.39397e-01 , 5.31976e-01 , 5.24657e-01 , & - & 5.17439e-01 , 5.10320e-01 , 5.03300e-01 , 4.96376e-01 , 4.89547e-01 , & - & 4.82812e-01 , 4.76170e-01 , 4.69619e-01 , 4.63158e-01 , 4.56786e-01 , & - & 4.50502e-01 , 4.44304e-01 , 4.38192e-01 , 4.32163e-01 /) - kao_mo3( 6, :, 9) = (/ & - & 5.53514e-01 , 5.45883e-01 , 5.38358e-01 , 5.30937e-01 , 5.23618e-01 , & - & 5.16399e-01 , 5.09280e-01 , 5.02260e-01 , 4.95336e-01 , 4.88507e-01 , & - & 4.81773e-01 , 4.75132e-01 , 4.68582e-01 , 4.62122e-01 , 4.55752e-01 , & - & 4.49469e-01 , 4.43273e-01 , 4.37162e-01 , 4.31136e-01 /) - kao_mo3( 7, :, 9) = (/ & - & 5.49865e-01 , 5.42303e-01 , 5.34846e-01 , 5.27491e-01 , 5.20237e-01 , & - & 5.13084e-01 , 5.06028e-01 , 4.99070e-01 , 4.92207e-01 , 4.85438e-01 , & - & 4.78763e-01 , 4.72179e-01 , 4.65686e-01 , 4.59282e-01 , 4.52967e-01 , & - & 4.46738e-01 , 4.40595e-01 , 4.34536e-01 , 4.28561e-01 /) - kao_mo3( 8, :, 9) = (/ & - & 5.25435e-01 , 5.18437e-01 , 5.11533e-01 , 5.04721e-01 , 4.97999e-01 , & - & 4.91367e-01 , 4.84823e-01 , 4.78366e-01 , 4.71996e-01 , 4.65710e-01 , & - & 4.59508e-01 , 4.53388e-01 , 4.47350e-01 , 4.41393e-01 , 4.35515e-01 , & - & 4.29715e-01 , 4.23992e-01 , 4.18345e-01 , 4.12774e-01 /) - kao_mo3( 9, :, 9) = (/ & - & 3.48228e-01 , 3.45949e-01 , 3.43686e-01 , 3.41437e-01 , 3.39203e-01 , & - & 3.36983e-01 , 3.34778e-01 , 3.32588e-01 , 3.30412e-01 , 3.28250e-01 , & - & 3.26102e-01 , 3.23968e-01 , 3.21848e-01 , 3.19742e-01 , 3.17650e-01 , & - & 3.15572e-01 , 3.13507e-01 , 3.11456e-01 , 3.09418e-01 /) - kao_mo3( 1, :,10) = (/ & - & 8.34107e-01 , 8.27276e-01 , 8.20501e-01 , 8.13781e-01 , 8.07117e-01 , & - & 8.00507e-01 , 7.93951e-01 , 7.87449e-01 , 7.81000e-01 , 7.74604e-01 , & - & 7.68260e-01 , 7.61968e-01 , 7.55728e-01 , 7.49539e-01 , 7.43400e-01 , & - & 7.37312e-01 , 7.31274e-01 , 7.25285e-01 , 7.19345e-01 /) - kao_mo3( 2, :,10) = (/ & - & 8.32838e-01 , 8.26022e-01 , 8.19263e-01 , 8.12558e-01 , 8.05908e-01 , & - & 7.99313e-01 , 7.92772e-01 , 7.86284e-01 , 7.79849e-01 , 7.73467e-01 , & - & 7.67137e-01 , 7.60859e-01 , 7.54633e-01 , 7.48457e-01 , 7.42332e-01 , & - & 7.36257e-01 , 7.30232e-01 , 7.24256e-01 , 7.18329e-01 /) - kao_mo3( 3, :,10) = (/ & - & 8.31167e-01 , 8.24361e-01 , 8.17611e-01 , 8.10916e-01 , 8.04276e-01 , & - & 7.97691e-01 , 7.91159e-01 , 7.84681e-01 , 7.78256e-01 , 7.71883e-01 , & - & 7.65563e-01 , 7.59294e-01 , 7.53077e-01 , 7.46910e-01 , 7.40795e-01 , & - & 7.34729e-01 , 7.28713e-01 , 7.22746e-01 , 7.16828e-01 /) - kao_mo3( 4, :,10) = (/ & - & 8.29026e-01 , 8.22246e-01 , 8.15521e-01 , 8.08851e-01 , 8.02236e-01 , & - & 7.95675e-01 , 7.89167e-01 , 7.82713e-01 , 7.76312e-01 , 7.69962e-01 , & - & 7.63665e-01 , 7.57419e-01 , 7.51225e-01 , 7.45081e-01 , 7.38987e-01 , & - & 7.32943e-01 , 7.26949e-01 , 7.21003e-01 , 7.15107e-01 /) - kao_mo3( 5, :,10) = (/ & - & 8.26226e-01 , 8.19471e-01 , 8.12771e-01 , 8.06126e-01 , 7.99536e-01 , & - & 7.92999e-01 , 7.86515e-01 , 7.80085e-01 , 7.73707e-01 , 7.67382e-01 , & - & 7.61108e-01 , 7.54885e-01 , 7.48714e-01 , 7.42592e-01 , 7.36521e-01 , & - & 7.30500e-01 , 7.24527e-01 , 7.18604e-01 , 7.12729e-01 /) - kao_mo3( 6, :,10) = (/ & - & 8.33246e-01 , 8.26510e-01 , 8.19828e-01 , 8.13200e-01 , 8.06626e-01 , & - & 8.00105e-01 , 7.93637e-01 , 7.87221e-01 , 7.80856e-01 , 7.74544e-01 , & - & 7.68282e-01 , 7.62071e-01 , 7.55910e-01 , 7.49799e-01 , 7.43737e-01 , & - & 7.37725e-01 , 7.31760e-01 , 7.25845e-01 , 7.19977e-01 /) - kao_mo3( 7, :,10) = (/ & - & 8.45693e-01 , 8.38967e-01 , 8.32295e-01 , 8.25675e-01 , 8.19108e-01 , & - & 8.12594e-01 , 8.06131e-01 , 7.99719e-01 , 7.93359e-01 , 7.87049e-01 , & - & 7.80789e-01 , 7.74579e-01 , 7.68419e-01 , 7.62307e-01 , 7.56244e-01 , & - & 7.50230e-01 , 7.44263e-01 , 7.38343e-01 , 7.32471e-01 /) - kao_mo3( 8, :,10) = (/ & - & 8.32139e-01 , 8.25565e-01 , 8.19044e-01 , 8.12574e-01 , 8.06156e-01 , & - & 7.99788e-01 , 7.93470e-01 , 7.87202e-01 , 7.80984e-01 , 7.74815e-01 , & - & 7.68694e-01 , 7.62622e-01 , 7.56598e-01 , 7.50622e-01 , 7.44692e-01 , & - & 7.38810e-01 , 7.32974e-01 , 7.27184e-01 , 7.21440e-01 /) - kao_mo3( 9, :,10) = (/ & - & 2.34258e-01 , 2.35247e-01 , 2.36239e-01 , 2.37236e-01 , 2.38237e-01 , & - & 2.39242e-01 , 2.40252e-01 , 2.41265e-01 , 2.42283e-01 , 2.43306e-01 , & - & 2.44332e-01 , 2.45363e-01 , 2.46398e-01 , 2.47438e-01 , 2.48482e-01 , & - & 2.49531e-01 , 2.50583e-01 , 2.51641e-01 , 2.52702e-01 /) - kao_mo3( 1, :,11) = (/ & - & 8.31308e-01 , 8.22153e-01 , 8.13098e-01 , 8.04143e-01 , 7.95287e-01 , & - & 7.86528e-01 , 7.77866e-01 , 7.69299e-01 , 7.60827e-01 , 7.52448e-01 , & - & 7.44161e-01 , 7.35965e-01 , 7.27860e-01 , 7.19844e-01 , 7.11916e-01 , & - & 7.04075e-01 , 6.96321e-01 , 6.88652e-01 , 6.81068e-01 /) - kao_mo3( 2, :,11) = (/ & - & 8.31577e-01 , 8.22400e-01 , 8.13324e-01 , 8.04349e-01 , 7.95472e-01 , & - & 7.86693e-01 , 7.78011e-01 , 7.69425e-01 , 7.60934e-01 , 7.52537e-01 , & - & 7.44232e-01 , 7.36019e-01 , 7.27896e-01 , 7.19863e-01 , 7.11919e-01 , & - & 7.04062e-01 , 6.96292e-01 , 6.88608e-01 , 6.81009e-01 /) - kao_mo3( 3, :,11) = (/ & - & 8.31578e-01 , 8.22422e-01 , 8.13368e-01 , 8.04413e-01 , 7.95557e-01 , & - & 7.86798e-01 , 7.78136e-01 , 7.69569e-01 , 7.61097e-01 , 7.52717e-01 , & - & 7.44430e-01 , 7.36235e-01 , 7.28129e-01 , 7.20113e-01 , 7.12185e-01 , & - & 7.04344e-01 , 6.96589e-01 , 6.88920e-01 , 6.81336e-01 /) - kao_mo3( 4, :,11) = (/ & - & 8.31261e-01 , 8.22111e-01 , 8.13062e-01 , 8.04112e-01 , 7.95261e-01 , & - & 7.86507e-01 , 7.77850e-01 , 7.69288e-01 , 7.60820e-01 , 7.52445e-01 , & - & 7.44163e-01 , 7.35971e-01 , 7.27870e-01 , 7.19858e-01 , 7.11935e-01 , & - & 7.04098e-01 , 6.96348e-01 , 6.88683e-01 , 6.81102e-01 /) - kao_mo3( 5, :,11) = (/ & - & 8.31565e-01 , 8.22404e-01 , 8.13344e-01 , 8.04384e-01 , 7.95523e-01 , & - & 7.86760e-01 , 7.78092e-01 , 7.69521e-01 , 7.61044e-01 , 7.52660e-01 , & - & 7.44368e-01 , 7.36168e-01 , 7.28058e-01 , 7.20038e-01 , 7.12106e-01 , & - & 7.04261e-01 , 6.96503e-01 , 6.88830e-01 , 6.81242e-01 /) - kao_mo3( 6, :,11) = (/ & - & 8.17636e-01 , 8.08497e-01 , 7.99461e-01 , 7.90525e-01 , 7.81690e-01 , & - & 7.72953e-01 , 7.64314e-01 , 7.55771e-01 , 7.47324e-01 , 7.38971e-01 , & - & 7.30712e-01 , 7.22545e-01 , 7.14469e-01 , 7.06483e-01 , 6.98587e-01 , & - & 6.90779e-01 , 6.83058e-01 , 6.75424e-01 , 6.67875e-01 /) - kao_mo3( 7, :,11) = (/ & - & 7.95247e-01 , 7.86140e-01 , 7.77137e-01 , 7.68238e-01 , 7.59440e-01 , & - & 7.50743e-01 , 7.42145e-01 , 7.33646e-01 , 7.25245e-01 , 7.16939e-01 , & - & 7.08729e-01 , 7.00612e-01 , 6.92589e-01 , 6.84658e-01 , 6.76817e-01 , & - & 6.69066e-01 , 6.61404e-01 , 6.53830e-01 , 6.46342e-01 /) - kao_mo3( 8, :,11) = (/ & - & 7.63069e-01 , 7.54006e-01 , 7.45051e-01 , 7.36202e-01 , 7.27458e-01 , & - & 7.18818e-01 , 7.10281e-01 , 7.01845e-01 , 6.93509e-01 , 6.85272e-01 , & - & 6.77133e-01 , 6.69091e-01 , 6.61144e-01 , 6.53292e-01 , 6.45533e-01 , & - & 6.37866e-01 , 6.30290e-01 , 6.22804e-01 , 6.15407e-01 /) - kao_mo3( 9, :,11) = (/ & - & 2.03255e-01 , 2.03004e-01 , 2.02753e-01 , 2.02502e-01 , 2.02252e-01 , & - & 2.02001e-01 , 2.01752e-01 , 2.01502e-01 , 2.01253e-01 , 2.01004e-01 , & - & 2.00755e-01 , 2.00507e-01 , 2.00259e-01 , 2.00011e-01 , 1.99764e-01 , & - & 1.99517e-01 , 1.99270e-01 , 1.99024e-01 , 1.98777e-01 /) - kao_mo3( 1, :,12) = (/ & - & 4.13201e-01 , 4.05258e-01 , 3.97468e-01 , 3.89828e-01 , 3.82334e-01 , & - & 3.74985e-01 , 3.67777e-01 , 3.60707e-01 , 3.53774e-01 , 3.46973e-01 , & - & 3.40303e-01 , 3.33762e-01 , 3.27346e-01 , 3.21054e-01 , 3.14882e-01 , & - & 3.08829e-01 , 3.02893e-01 , 2.97071e-01 , 2.91360e-01 /) - kao_mo3( 2, :,12) = (/ & - & 4.12835e-01 , 4.04897e-01 , 3.97112e-01 , 3.89477e-01 , 3.81988e-01 , & - & 3.74644e-01 , 3.67440e-01 , 3.60376e-01 , 3.53447e-01 , 3.46651e-01 , & - & 3.39986e-01 , 3.33449e-01 , 3.27038e-01 , 3.20750e-01 , 3.14582e-01 , & - & 3.08534e-01 , 3.02602e-01 , 2.96784e-01 , 2.91077e-01 /) - kao_mo3( 3, :,12) = (/ & - & 4.13023e-01 , 4.05079e-01 , 3.97289e-01 , 3.89648e-01 , 3.82155e-01 , & - & 3.74805e-01 , 3.67597e-01 , 3.60527e-01 , 3.53594e-01 , 3.46793e-01 , & - & 3.40124e-01 , 3.33583e-01 , 3.27167e-01 , 3.20875e-01 , 3.14704e-01 , & - & 3.08652e-01 , 3.02716e-01 , 2.96894e-01 , 2.91184e-01 /) - kao_mo3( 4, :,12) = (/ & - & 4.13397e-01 , 4.05437e-01 , 3.97630e-01 , 3.89973e-01 , 3.82463e-01 , & - & 3.75099e-01 , 3.67876e-01 , 3.60792e-01 , 3.53844e-01 , 3.47031e-01 , & - & 3.40348e-01 , 3.33794e-01 , 3.27367e-01 , 3.21063e-01 , 3.14880e-01 , & - & 3.08817e-01 , 3.02870e-01 , 2.97038e-01 , 2.91318e-01 /) - kao_mo3( 5, :,12) = (/ & - & 4.13043e-01 , 4.05106e-01 , 3.97321e-01 , 3.89686e-01 , 3.82198e-01 , & - & 3.74854e-01 , 3.67651e-01 , 3.60586e-01 , 3.53657e-01 , 3.46861e-01 , & - & 3.40195e-01 , 3.33658e-01 , 3.27246e-01 , 3.20958e-01 , 3.14790e-01 , & - & 3.08741e-01 , 3.02808e-01 , 2.96990e-01 , 2.91283e-01 /) - kao_mo3( 6, :,12) = (/ & - & 4.13151e-01 , 4.05202e-01 , 3.97406e-01 , 3.89760e-01 , 3.82261e-01 , & - & 3.74906e-01 , 3.67693e-01 , 3.60619e-01 , 3.53680e-01 , 3.46876e-01 , & - & 3.40202e-01 , 3.33656e-01 , 3.27237e-01 , 3.20941e-01 , 3.14766e-01 , & - & 3.08710e-01 , 3.02770e-01 , 2.96945e-01 , 2.91232e-01 /) - kao_mo3( 7, :,12) = (/ & - & 4.13052e-01 , 4.05109e-01 , 3.97319e-01 , 3.89678e-01 , 3.82185e-01 , & - & 3.74835e-01 , 3.67627e-01 , 3.60557e-01 , 3.53624e-01 , 3.46823e-01 , & - & 3.40154e-01 , 3.33612e-01 , 3.27197e-01 , 3.20905e-01 , 3.14734e-01 , & - & 3.08681e-01 , 3.02745e-01 , 2.96923e-01 , 2.91213e-01 /) - kao_mo3( 8, :,12) = (/ & - & 4.13152e-01 , 4.05209e-01 , 3.97418e-01 , 3.89778e-01 , 3.82284e-01 , & - & 3.74935e-01 , 3.67727e-01 , 3.60657e-01 , 3.53723e-01 , 3.46923e-01 , & - & 3.40253e-01 , 3.33712e-01 , 3.27296e-01 , 3.21004e-01 , 3.14833e-01 , & - & 3.08780e-01 , 3.02844e-01 , 2.97021e-01 , 2.91311e-01 /) - kao_mo3( 9, :,12) = (/ & - & 1.31008e-01 , 1.30607e-01 , 1.30208e-01 , 1.29810e-01 , 1.29413e-01 , & - & 1.29017e-01 , 1.28623e-01 , 1.28229e-01 , 1.27837e-01 , 1.27446e-01 , & - & 1.27056e-01 , 1.26668e-01 , 1.26280e-01 , 1.25894e-01 , 1.25509e-01 , & - & 1.25125e-01 , 1.24743e-01 , 1.24361e-01 , 1.23981e-01 /) - kao_mo3( 1, :,13) = (/ & - & 4.66826e-01 , 4.71437e-01 , 4.76094e-01 , 4.80798e-01 , 4.85547e-01 , & - & 4.90344e-01 , 4.95187e-01 , 5.00079e-01 , 5.05019e-01 , 5.10008e-01 , & - & 5.15046e-01 , 5.20134e-01 , 5.25272e-01 , 5.30461e-01 , 5.35701e-01 , & - & 5.40993e-01 , 5.46338e-01 , 5.51735e-01 , 5.57185e-01 /) - kao_mo3( 2, :,13) = (/ & - & 4.66579e-01 , 4.71199e-01 , 4.75865e-01 , 4.80577e-01 , 4.85336e-01 , & - & 4.90141e-01 , 4.94995e-01 , 4.99896e-01 , 5.04846e-01 , 5.09845e-01 , & - & 5.14893e-01 , 5.19992e-01 , 5.25141e-01 , 5.30340e-01 , 5.35592e-01 , & - & 5.40895e-01 , 5.46251e-01 , 5.51660e-01 , 5.57122e-01 /) - kao_mo3( 3, :,13) = (/ & - & 4.66956e-01 , 4.71567e-01 , 4.76224e-01 , 4.80927e-01 , 4.85677e-01 , & - & 4.90474e-01 , 4.95318e-01 , 5.00209e-01 , 5.05149e-01 , 5.10138e-01 , & - & 5.15176e-01 , 5.20264e-01 , 5.25402e-01 , 5.30591e-01 , 5.35831e-01 , & - & 5.41123e-01 , 5.46467e-01 , 5.51864e-01 , 5.57314e-01 /) - kao_mo3( 4, :,13) = (/ & - & 4.66456e-01 , 4.71080e-01 , 4.75750e-01 , 4.80467e-01 , 4.85230e-01 , & - & 4.90040e-01 , 4.94898e-01 , 4.99804e-01 , 5.04759e-01 , 5.09763e-01 , & - & 5.14817e-01 , 5.19920e-01 , 5.25075e-01 , 5.30280e-01 , 5.35537e-01 , & - & 5.40846e-01 , 5.46208e-01 , 5.51622e-01 , 5.57091e-01 /) - kao_mo3( 5, :,13) = (/ & - & 4.66853e-01 , 4.71456e-01 , 4.76104e-01 , 4.80798e-01 , 4.85539e-01 , & - & 4.90326e-01 , 4.95160e-01 , 5.00042e-01 , 5.04973e-01 , 5.09952e-01 , & - & 5.14979e-01 , 5.20057e-01 , 5.25185e-01 , 5.30363e-01 , 5.35592e-01 , & - & 5.40873e-01 , 5.46205e-01 , 5.51591e-01 , 5.57029e-01 /) - kao_mo3( 6, :,13) = (/ & - & 4.66832e-01 , 4.71448e-01 , 4.76110e-01 , 4.80817e-01 , 4.85571e-01 , & - & 4.90372e-01 , 4.95221e-01 , 5.00118e-01 , 5.05063e-01 , 5.10056e-01 , & - & 5.15100e-01 , 5.20193e-01 , 5.25336e-01 , 5.30531e-01 , 5.35776e-01 , & - & 5.41074e-01 , 5.46424e-01 , 5.51826e-01 , 5.57283e-01 /) - kao_mo3( 7, :,13) = (/ & - & 4.66679e-01 , 4.71299e-01 , 4.75965e-01 , 4.80677e-01 , 4.85436e-01 , & - & 4.90241e-01 , 4.95095e-01 , 4.99996e-01 , 5.04946e-01 , 5.09945e-01 , & - & 5.14993e-01 , 5.20092e-01 , 5.25240e-01 , 5.30440e-01 , 5.35692e-01 , & - & 5.40995e-01 , 5.46351e-01 , 5.51759e-01 , 5.57222e-01 /) - kao_mo3( 8, :,13) = (/ & - & 4.66982e-01 , 4.71598e-01 , 4.76260e-01 , 4.80967e-01 , 4.85721e-01 , & - & 4.90522e-01 , 4.95371e-01 , 5.00268e-01 , 5.05213e-01 , 5.10206e-01 , & - & 5.15250e-01 , 5.20343e-01 , 5.25486e-01 , 5.30680e-01 , 5.35926e-01 , & - & 5.41223e-01 , 5.46573e-01 , 5.51976e-01 , 5.57432e-01 /) - kao_mo3( 9, :,13) = (/ & - & 1.13709e-01 , 1.13141e-01 , 1.12576e-01 , 1.12013e-01 , 1.11453e-01 , & - & 1.10897e-01 , 1.10342e-01 , 1.09791e-01 , 1.09242e-01 , 1.08696e-01 , & - & 1.08153e-01 , 1.07613e-01 , 1.07075e-01 , 1.06540e-01 , 1.06007e-01 , & - & 1.05478e-01 , 1.04951e-01 , 1.04426e-01 , 1.03904e-01 /) - kao_mo3( 1, :,14) = (/ & - & 5.67608e-01 , 5.55796e-01 , 5.44230e-01 , 5.32904e-01 , 5.21814e-01 , & - & 5.10955e-01 , 5.00322e-01 , 4.89910e-01 , 4.79714e-01 , 4.69731e-01 , & - & 4.59956e-01 , 4.50384e-01 , 4.41011e-01 , 4.31834e-01 , 4.22847e-01 , & - & 4.14048e-01 , 4.05431e-01 , 3.96994e-01 , 3.88732e-01 /) - kao_mo3( 2, :,14) = (/ & - & 5.67766e-01 , 5.55948e-01 , 5.44376e-01 , 5.33045e-01 , 5.21950e-01 , & - & 5.11086e-01 , 5.00448e-01 , 4.90031e-01 , 4.79831e-01 , 4.69844e-01 , & - & 4.60064e-01 , 4.50488e-01 , 4.41111e-01 , 4.31930e-01 , 4.22939e-01 , & - & 4.14136e-01 , 4.05516e-01 , 3.97075e-01 , 3.88810e-01 /) - kao_mo3( 3, :,14) = (/ & - & 5.67460e-01 , 5.55647e-01 , 5.44080e-01 , 5.32754e-01 , 5.21664e-01 , & - & 5.10805e-01 , 5.00172e-01 , 4.89760e-01 , 4.79564e-01 , 4.69582e-01 , & - & 4.59806e-01 , 4.50235e-01 , 4.40862e-01 , 4.31685e-01 , 4.22699e-01 , & - & 4.13900e-01 , 4.05284e-01 , 3.96847e-01 , 3.88586e-01 /) - kao_mo3( 4, :,14) = (/ & - & 5.67925e-01 , 5.56107e-01 , 5.44536e-01 , 5.33205e-01 , 5.22110e-01 , & - & 5.11246e-01 , 5.00608e-01 , 4.90191e-01 , 4.79991e-01 , 4.70004e-01 , & - & 4.60224e-01 , 4.50647e-01 , 4.41270e-01 , 4.32088e-01 , 4.23097e-01 , & - & 4.14293e-01 , 4.05673e-01 , 3.97231e-01 , 3.88966e-01 /) - kao_mo3( 5, :,14) = (/ & - & 5.67520e-01 , 5.55733e-01 , 5.44190e-01 , 5.32887e-01 , 5.21818e-01 , & - & 5.10980e-01 , 5.00366e-01 , 4.89974e-01 , 4.79797e-01 , 4.69831e-01 , & - & 4.60072e-01 , 4.50516e-01 , 4.41159e-01 , 4.31996e-01 , 4.23023e-01 , & - & 4.14236e-01 , 4.05633e-01 , 3.97207e-01 , 3.88957e-01 /) - kao_mo3( 6, :,14) = (/ & - & 5.67549e-01 , 5.55749e-01 , 5.44195e-01 , 5.32880e-01 , 5.21801e-01 , & - & 5.10952e-01 , 5.00329e-01 , 4.89927e-01 , 4.79740e-01 , 4.69766e-01 , & - & 4.59999e-01 , 4.50435e-01 , 4.41070e-01 , 4.31900e-01 , 4.22920e-01 , & - & 4.14127e-01 , 4.05517e-01 , 3.97086e-01 , 3.88830e-01 /) - kao_mo3( 7, :,14) = (/ & - & 5.67727e-01 , 5.55909e-01 , 5.44337e-01 , 5.33005e-01 , 5.21910e-01 , & - & 5.11046e-01 , 5.00408e-01 , 4.89991e-01 , 4.79791e-01 , 4.69804e-01 , & - & 4.60024e-01 , 4.50448e-01 , 4.41071e-01 , 4.31890e-01 , 4.22900e-01 , & - & 4.14096e-01 , 4.05476e-01 , 3.97036e-01 , 3.88771e-01 /) - kao_mo3( 8, :,14) = (/ & - & 5.67795e-01 , 5.55965e-01 , 5.44381e-01 , 5.33039e-01 , 5.21933e-01 , & - & 5.11058e-01 , 5.00410e-01 , 4.89984e-01 , 4.79775e-01 , 4.69779e-01 , & - & 4.59991e-01 , 4.50407e-01 , 4.41023e-01 , 4.31834e-01 , 4.22836e-01 , & - & 4.14026e-01 , 4.05400e-01 , 3.96953e-01 , 3.88683e-01 /) - kao_mo3( 9, :,14) = (/ & - & 1.32957e-01 , 1.31737e-01 , 1.30528e-01 , 1.29330e-01 , 1.28143e-01 , & - & 1.26967e-01 , 1.25802e-01 , 1.24648e-01 , 1.23504e-01 , 1.22370e-01 , & - & 1.21247e-01 , 1.20135e-01 , 1.19032e-01 , 1.17940e-01 , 1.16857e-01 , & - & 1.15785e-01 , 1.14722e-01 , 1.13669e-01 , 1.12626e-01 /) - kao_mo3( 1, :,15) = (/ & - & 1.51281e-01 , 1.53439e-01 , 1.55628e-01 , 1.57848e-01 , 1.60100e-01 , & - & 1.62384e-01 , 1.64700e-01 , 1.67049e-01 , 1.69432e-01 , 1.71849e-01 , & - & 1.74301e-01 , 1.76787e-01 , 1.79309e-01 , 1.81866e-01 , 1.84461e-01 , & - & 1.87092e-01 , 1.89761e-01 , 1.92468e-01 , 1.95213e-01 /) - kao_mo3( 2, :,15) = (/ & - & 1.51431e-01 , 1.53589e-01 , 1.55778e-01 , 1.57998e-01 , 1.60250e-01 , & - & 1.62534e-01 , 1.64850e-01 , 1.67199e-01 , 1.69582e-01 , 1.71999e-01 , & - & 1.74450e-01 , 1.76937e-01 , 1.79458e-01 , 1.82016e-01 , 1.84610e-01 , & - & 1.87241e-01 , 1.89909e-01 , 1.92616e-01 , 1.95361e-01 /) - kao_mo3( 3, :,15) = (/ & - & 1.51299e-01 , 1.53461e-01 , 1.55654e-01 , 1.57878e-01 , 1.60134e-01 , & - & 1.62422e-01 , 1.64744e-01 , 1.67098e-01 , 1.69486e-01 , 1.71908e-01 , & - & 1.74364e-01 , 1.76856e-01 , 1.79383e-01 , 1.81947e-01 , 1.84547e-01 , & - & 1.87184e-01 , 1.89859e-01 , 1.92572e-01 , 1.95324e-01 /) - kao_mo3( 4, :,15) = (/ & - & 1.51281e-01 , 1.53439e-01 , 1.55628e-01 , 1.57848e-01 , 1.60100e-01 , & - & 1.62384e-01 , 1.64700e-01 , 1.67049e-01 , 1.69432e-01 , 1.71849e-01 , & - & 1.74301e-01 , 1.76787e-01 , 1.79309e-01 , 1.81866e-01 , 1.84461e-01 , & - & 1.87092e-01 , 1.89761e-01 , 1.92468e-01 , 1.95213e-01 /) - kao_mo3( 5, :,15) = (/ & - & 1.51281e-01 , 1.53439e-01 , 1.55628e-01 , 1.57848e-01 , 1.60100e-01 , & - & 1.62384e-01 , 1.64700e-01 , 1.67049e-01 , 1.69432e-01 , 1.71849e-01 , & - & 1.74301e-01 , 1.76787e-01 , 1.79309e-01 , 1.81866e-01 , 1.84461e-01 , & - & 1.87092e-01 , 1.89761e-01 , 1.92468e-01 , 1.95213e-01 /) - kao_mo3( 6, :,15) = (/ & - & 1.51299e-01 , 1.53461e-01 , 1.55654e-01 , 1.57878e-01 , 1.60134e-01 , & - & 1.62422e-01 , 1.64744e-01 , 1.67098e-01 , 1.69486e-01 , 1.71908e-01 , & - & 1.74364e-01 , 1.76856e-01 , 1.79383e-01 , 1.81947e-01 , 1.84547e-01 , & - & 1.87184e-01 , 1.89859e-01 , 1.92572e-01 , 1.95324e-01 /) - kao_mo3( 7, :,15) = (/ & - & 1.51299e-01 , 1.53461e-01 , 1.55654e-01 , 1.57878e-01 , 1.60134e-01 , & - & 1.62422e-01 , 1.64744e-01 , 1.67098e-01 , 1.69486e-01 , 1.71908e-01 , & - & 1.74364e-01 , 1.76856e-01 , 1.79383e-01 , 1.81947e-01 , 1.84547e-01 , & - & 1.87184e-01 , 1.89859e-01 , 1.92572e-01 , 1.95324e-01 /) - kao_mo3( 8, :,15) = (/ & - & 1.51281e-01 , 1.53439e-01 , 1.55628e-01 , 1.57848e-01 , 1.60100e-01 , & - & 1.62384e-01 , 1.64700e-01 , 1.67049e-01 , 1.69432e-01 , 1.71849e-01 , & - & 1.74301e-01 , 1.76787e-01 , 1.79309e-01 , 1.81866e-01 , 1.84461e-01 , & - & 1.87092e-01 , 1.89761e-01 , 1.92468e-01 , 1.95213e-01 /) - kao_mo3( 9, :,15) = (/ & - & 2.44180e-01 , 2.35686e-01 , 2.27487e-01 , 2.19574e-01 , 2.11935e-01 , & - & 2.04563e-01 , 1.97447e-01 , 1.90578e-01 , 1.83949e-01 , 1.77550e-01 , & - & 1.71373e-01 , 1.65412e-01 , 1.59658e-01 , 1.54104e-01 , 1.48743e-01 , & - & 1.43569e-01 , 1.38574e-01 , 1.33754e-01 , 1.29101e-01 /) - kao_mo3( 1, :,16) = (/ & - & 1.02934e-01 , 1.04369e-01 , 1.05825e-01 , 1.07300e-01 , 1.08797e-01 , & - & 1.10314e-01 , 1.11852e-01 , 1.13412e-01 , 1.14993e-01 , 1.16597e-01 , & - & 1.18223e-01 , 1.19871e-01 , 1.21543e-01 , 1.23238e-01 , 1.24956e-01 , & - & 1.26699e-01 , 1.28466e-01 , 1.30257e-01 , 1.32073e-01 /) - kao_mo3( 2, :,16) = (/ & - & 1.02934e-01 , 1.04369e-01 , 1.05825e-01 , 1.07300e-01 , 1.08797e-01 , & - & 1.10314e-01 , 1.11852e-01 , 1.13412e-01 , 1.14993e-01 , 1.16597e-01 , & - & 1.18223e-01 , 1.19871e-01 , 1.21543e-01 , 1.23238e-01 , 1.24956e-01 , & - & 1.26699e-01 , 1.28466e-01 , 1.30257e-01 , 1.32073e-01 /) - kao_mo3( 3, :,16) = (/ & - & 1.02934e-01 , 1.04369e-01 , 1.05825e-01 , 1.07300e-01 , 1.08797e-01 , & - & 1.10314e-01 , 1.11852e-01 , 1.13412e-01 , 1.14993e-01 , 1.16597e-01 , & - & 1.18223e-01 , 1.19871e-01 , 1.21543e-01 , 1.23238e-01 , 1.24956e-01 , & - & 1.26699e-01 , 1.28466e-01 , 1.30257e-01 , 1.32073e-01 /) - kao_mo3( 4, :,16) = (/ & - & 1.02934e-01 , 1.04369e-01 , 1.05825e-01 , 1.07300e-01 , 1.08797e-01 , & - & 1.10314e-01 , 1.11852e-01 , 1.13412e-01 , 1.14993e-01 , 1.16597e-01 , & - & 1.18223e-01 , 1.19871e-01 , 1.21543e-01 , 1.23238e-01 , 1.24956e-01 , & - & 1.26699e-01 , 1.28466e-01 , 1.30257e-01 , 1.32073e-01 /) - kao_mo3( 5, :,16) = (/ & - & 1.02934e-01 , 1.04369e-01 , 1.05825e-01 , 1.07300e-01 , 1.08797e-01 , & - & 1.10314e-01 , 1.11852e-01 , 1.13412e-01 , 1.14993e-01 , 1.16597e-01 , & - & 1.18223e-01 , 1.19871e-01 , 1.21543e-01 , 1.23238e-01 , 1.24956e-01 , & - & 1.26699e-01 , 1.28466e-01 , 1.30257e-01 , 1.32073e-01 /) - kao_mo3( 6, :,16) = (/ & - & 1.02934e-01 , 1.04369e-01 , 1.05825e-01 , 1.07300e-01 , 1.08797e-01 , & - & 1.10314e-01 , 1.11852e-01 , 1.13412e-01 , 1.14993e-01 , 1.16597e-01 , & - & 1.18223e-01 , 1.19871e-01 , 1.21543e-01 , 1.23238e-01 , 1.24956e-01 , & - & 1.26699e-01 , 1.28466e-01 , 1.30257e-01 , 1.32073e-01 /) - kao_mo3( 7, :,16) = (/ & - & 1.02934e-01 , 1.04369e-01 , 1.05825e-01 , 1.07300e-01 , 1.08797e-01 , & - & 1.10314e-01 , 1.11852e-01 , 1.13412e-01 , 1.14993e-01 , 1.16597e-01 , & - & 1.18223e-01 , 1.19871e-01 , 1.21543e-01 , 1.23238e-01 , 1.24956e-01 , & - & 1.26699e-01 , 1.28466e-01 , 1.30257e-01 , 1.32073e-01 /) - kao_mo3( 8, :,16) = (/ & - & 1.02934e-01 , 1.04369e-01 , 1.05825e-01 , 1.07300e-01 , 1.08797e-01 , & - & 1.10314e-01 , 1.11852e-01 , 1.13412e-01 , 1.14993e-01 , 1.16597e-01 , & - & 1.18223e-01 , 1.19871e-01 , 1.21543e-01 , 1.23238e-01 , 1.24956e-01 , & - & 1.26699e-01 , 1.28466e-01 , 1.30257e-01 , 1.32073e-01 /) - kao_mo3( 9, :,16) = (/ & - & 3.91531e-01 , 3.78978e-01 , 3.66827e-01 , 3.55067e-01 , 3.43683e-01 , & - & 3.32664e-01 , 3.21999e-01 , 3.11675e-01 , 3.01683e-01 , 2.92011e-01 , & - & 2.82648e-01 , 2.73586e-01 , 2.64815e-01 , 2.56325e-01 , 2.48107e-01 , & - & 2.40152e-01 , 2.32453e-01 , 2.25000e-01 , 2.17787e-01 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &1.0689e-05 ,1.6987e-05 ,1.8993e-05 ,3.4470e-05 ,4.0873e-05 ,4.8275e-05 , & - &6.1178e-05 ,6.4035e-05 ,6.6253e-05 ,7.8914e-05 ,8.1640e-05 ,7.9738e-05 , & - &7.8492e-05 ,9.1565e-05 ,1.0262e-04 ,1.0368e-04 /) - forrefo(2,:) = (/ & - &1.1194e-05 ,1.6128e-05 ,1.7213e-05 ,2.6845e-05 ,4.1361e-05 ,5.1508e-05 , & - &6.8245e-05 ,7.4063e-05 ,7.6273e-05 ,8.4061e-05 ,8.2492e-05 ,8.1720e-05 , & - &7.7626e-05 ,1.0096e-04 ,1.0519e-04 ,1.0631e-04 /) - forrefo(3,:) = (/ & - &1.0891e-05 ,1.4933e-05 ,1.7964e-05 ,2.2577e-05 ,4.4290e-05 ,5.4675e-05 , & - &7.2494e-05 ,7.8410e-05 ,7.6948e-05 ,7.5742e-05 ,7.7654e-05 ,8.2760e-05 , & - &7.8443e-05 ,9.8384e-05 ,1.0634e-04 ,1.0838e-04 /) - forrefo(4,:) = (/ & - &1.1316e-05 ,1.5470e-05 ,2.1246e-05 ,3.3349e-05 ,4.8704e-05 ,5.6424e-05 , & - &5.8569e-05 ,5.8780e-05 ,6.0358e-05 ,6.1586e-05 ,6.4281e-05 ,6.9333e-05 , & - &7.2763e-05 ,7.2675e-05 ,7.3754e-05 ,1.0131e-04 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 1.27686e-01 , 1.09347e-01 , 9.36410e-02 , 8.01912e-02 , 6.86732e-02 , & - & 5.88096e-02 , 5.03627e-02 , 4.31290e-02 , 3.69343e-02 , 3.16294e-02 /) - selfrefo(:, 2) = (/ & - & 1.40051e-01 , 1.20785e-01 , 1.04170e-01 , 8.98402e-02 , 7.74816e-02 , & - & 6.68231e-02 , 5.76308e-02 , 4.97030e-02 , 4.28658e-02 , 3.69691e-02 /) - selfrefo(:, 3) = (/ & - & 1.42322e-01 , 1.22872e-01 , 1.06080e-01 , 9.15829e-02 , 7.90671e-02 , & - & 6.82616e-02 , 5.89329e-02 , 5.08790e-02 , 4.39258e-02 , 3.79228e-02 /) - selfrefo(:, 4) = (/ & - & 1.53244e-01 , 1.33057e-01 , 1.15530e-01 , 1.00311e-01 , 8.70977e-02 , & - & 7.56244e-02 , 6.56626e-02 , 5.70130e-02 , 4.95028e-02 , 4.29819e-02 /) - selfrefo(:, 5) = (/ & - & 1.71011e-01 , 1.46680e-01 , 1.25810e-01 , 1.07910e-01 , 9.25563e-02 , & - & 7.93874e-02 , 6.80922e-02 , 5.84040e-02 , 5.00943e-02 , 4.29669e-02 /) - selfrefo(:, 6) = (/ & - & 1.76012e-01 , 1.51010e-01 , 1.29560e-01 , 1.11157e-01 , 9.53672e-02 , & - & 8.18207e-02 , 7.01984e-02 , 6.02270e-02 , 5.16720e-02 , 4.43322e-02 /) - selfrefo(:, 7) = (/ & - & 1.85600e-01 , 1.59051e-01 , 1.36300e-01 , 1.16803e-01 , 1.00095e-01 , & - & 8.57776e-02 , 7.35077e-02 , 6.29930e-02 , 5.39823e-02 , 4.62606e-02 /) - selfrefo(:, 8) = (/ & - & 1.88931e-01 , 1.61727e-01 , 1.38440e-01 , 1.18506e-01 , 1.01442e-01 , & - & 8.68356e-02 , 7.43321e-02 , 6.36290e-02 , 5.44670e-02 , 4.66243e-02 /) - selfrefo(:, 9) = (/ & - & 1.91122e-01 , 1.63407e-01 , 1.39710e-01 , 1.19450e-01 , 1.02128e-01 , & - & 8.73176e-02 , 7.46552e-02 , 6.38290e-02 , 5.45728e-02 , 4.66589e-02 /) - selfrefo(:,10) = (/ & - & 1.91334e-01 , 1.64872e-01 , 1.42070e-01 , 1.22421e-01 , 1.05490e-01 , & - & 9.09008e-02 , 7.83291e-02 , 6.74960e-02 , 5.81612e-02 , 5.01174e-02 /) - selfrefo(:,11) = (/ & - & 1.89858e-01 , 1.63934e-01 , 1.41550e-01 , 1.22222e-01 , 1.05534e-01 , & - & 9.11237e-02 , 7.86814e-02 , 6.79380e-02 , 5.86615e-02 , 5.06517e-02 /) - selfrefo(:,12) = (/ & - & 1.89783e-01 , 1.63757e-01 , 1.41300e-01 , 1.21923e-01 , 1.05203e-01 , & - & 9.07760e-02 , 7.83274e-02 , 6.75860e-02 , 5.83176e-02 , 5.03202e-02 /) - selfrefo(:,13) = (/ & - & 1.87534e-01 , 1.62016e-01 , 1.39970e-01 , 1.20924e-01 , 1.04470e-01 , & - & 9.02541e-02 , 7.79730e-02 , 6.73630e-02 , 5.81967e-02 , 5.02778e-02 /) - selfrefo(:,14) = (/ & - & 1.99128e-01 , 1.71410e-01 , 1.47550e-01 , 1.27011e-01 , 1.09332e-01 , & - & 9.41131e-02 , 8.10128e-02 , 6.97360e-02 , 6.00289e-02 , 5.16731e-02 /) - selfrefo(:,15) = (/ & - & 1.99460e-01 , 1.72342e-01 , 1.48910e-01 , 1.28664e-01 , 1.11171e-01 , & - & 9.60560e-02 , 8.29962e-02 , 7.17120e-02 , 6.19620e-02 , 5.35376e-02 /) - selfrefo(:,16) = (/ & - & 1.99906e-01 , 1.72737e-01 , 1.49260e-01 , 1.28974e-01 , 1.11445e-01 , & - & 9.62982e-02 , 8.32102e-02 , 7.19010e-02 , 6.21288e-02 , 5.36848e-02 /) - - end subroutine lw_kgb05 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_06.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_06.F90 deleted file mode 100644 index edbe5069a..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_06.F90 +++ /dev/null @@ -1,666 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb06 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg06, only : fracrefao, kao, kao_mco2, selfrefo, forrefo, & - cfc11adjo, cfc12o - - implicit none - save - -! Planck fraction mapping level : P = 473.4280 mb, T = 259.83 K - fracrefao(:) = (/ & - & 1.4353e-01 ,1.4774e-01 ,1.4467e-01 ,1.3785e-01 ,1.2376e-01 ,1.0214e-01 , & - & 8.1984e-02 ,6.1152e-02 ,4.0987e-02 ,4.5067e-03 ,4.0020e-03 ,3.1772e-03 , & - & 2.3458e-03 ,1.5025e-03 ,5.7415e-04 ,8.2970e-05 /) - -! Minor gas mapping level: -! lower - co2, p = 706.2720 mb, t = 294.2 k -! upper - cfc11, cfc12 - -! cfc11(:) = (/ & -! & 0., 0., 26.5435, 108.850, & -! & 58.7804, 54.0875, 41.1065, 35.6120, & -! & 41.2328, 47.7402, 79.1026, 64.3005, & -! & 108.206, 141.617, 186.565, 58.4782/) -! Original cfc11 is multiplied by 1.385 to account for the 1060-1107 cm-1 band. - - cfc11adjo(:) = (/ & - & 0. , 0. , 36.7627 , 150.757 , & - & 81.4109 , 74.9112 , 56.9325 , 49.3226 , & - & 57.1074 , 66.1202 , 109.557 , 89.0562 , & - & 149.865 , 196.140 , 258.393 , 80.9923 /) - cfc12o(:) = (/ & - & 62.8368 , 43.2626 , 26.7549 , 22.2487 , & - & 23.5029 , 34.8323 , 26.2335 , 23.2306 , & - & 18.4062 , 13.9534 , 22.6268 , 24.2604 , & - & 30.0088 , 26.3634 , 15.8237 , 57.5050 /) - -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels > ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the corresponding TREF for this pressure level, -! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, -! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second -! index, JP, runs from 1 to 13 and refers to the corresponding -! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). -! The third index, IG, goes from 1 to 16, and tells us which -! g-interval the absorption coefficients are for. - - kao(:, 1, 1) = (/ & - &1.5108e-05 ,1.6223e-05 ,1.5899e-05 ,1.5254e-05 ,1.4889e-05 /) - kao(:, 2, 1) = (/ & - &1.0690e-05 ,1.0800e-05 ,1.0568e-05 ,1.0057e-05 ,9.4945e-06 /) - kao(:, 3, 1) = (/ & - &6.1072e-06 ,5.8741e-06 ,5.6796e-06 ,5.3664e-06 ,5.4934e-06 /) - kao(:, 4, 1) = (/ & - &3.0372e-06 ,2.9964e-06 ,2.6541e-06 ,2.8791e-06 ,3.9638e-06 /) - kao(:, 5, 1) = (/ & - &1.4777e-06 ,1.4916e-06 ,1.4819e-06 ,2.2264e-06 ,3.3268e-06 /) - kao(:, 6, 1) = (/ & - &7.4936e-07 ,7.2240e-07 ,1.1518e-06 ,1.7724e-06 ,2.8203e-06 /) - kao(:, 7, 1) = (/ & - &3.4904e-07 ,5.1177e-07 ,8.8489e-07 ,1.5219e-06 ,2.2871e-06 /) - kao(:, 8, 1) = (/ & - &2.1072e-07 ,4.5257e-07 ,7.4214e-07 ,1.2628e-06 ,1.9840e-06 /) - kao(:, 9, 1) = (/ & - &2.1779e-07 ,4.8639e-07 ,8.1133e-07 ,1.3719e-06 ,2.1663e-06 /) - kao(:,10, 1) = (/ & - &2.5134e-07 ,5.9583e-07 ,1.0449e-06 ,1.5899e-06 ,2.7441e-06 /) - kao(:,11, 1) = (/ & - &2.9178e-07 ,6.5749e-07 ,1.0958e-06 ,1.7834e-06 ,3.1413e-06 /) - kao(:,12, 1) = (/ & - &2.7268e-07 ,6.1470e-07 ,1.0270e-06 ,1.7566e-06 ,3.0441e-06 /) - kao(:,13, 1) = (/ & - &2.2995e-07 ,5.2185e-07 ,8.7916e-07 ,1.4999e-06 ,2.5740e-06 /) - kao(:, 1, 2) = (/ & - &2.1301e-05 ,2.3060e-05 ,2.1909e-05 ,2.0972e-05 ,2.1772e-05 /) - kao(:, 2, 2) = (/ & - &1.4382e-05 ,1.4147e-05 ,1.4339e-05 ,1.3679e-05 ,1.6973e-05 /) - kao(:, 3, 2) = (/ & - &8.0559e-06 ,8.4180e-06 ,7.4096e-06 ,9.3490e-06 ,1.0824e-05 /) - kao(:, 4, 2) = (/ & - &4.3614e-06 ,3.9657e-06 ,5.1299e-06 ,6.1754e-06 ,8.2925e-06 /) - kao(:, 5, 2) = (/ & - &2.2350e-06 ,2.3231e-06 ,3.3297e-06 ,4.8612e-06 ,6.5883e-06 /) - kao(:, 6, 2) = (/ & - &1.0863e-06 ,1.7510e-06 ,2.4185e-06 ,3.5854e-06 ,5.1511e-06 /) - kao(:, 7, 2) = (/ & - &7.6749e-07 ,1.2024e-06 ,1.9782e-06 ,2.7223e-06 ,4.2604e-06 /) - kao(:, 8, 2) = (/ & - &6.8738e-07 ,9.7505e-07 ,1.6738e-06 ,2.4371e-06 ,3.9386e-06 /) - kao(:, 9, 2) = (/ & - &7.3668e-07 ,1.0167e-06 ,1.9026e-06 ,3.0451e-06 ,5.0060e-06 /) - kao(:,10, 2) = (/ & - &9.8863e-07 ,1.5373e-06 ,2.5876e-06 ,4.8975e-06 ,7.8206e-06 /) - kao(:,11, 2) = (/ & - &1.0934e-06 ,1.6488e-06 ,2.7961e-06 ,5.2441e-06 ,8.5410e-06 /) - kao(:,12, 2) = (/ & - &1.0277e-06 ,1.5126e-06 ,2.6342e-06 ,4.9122e-06 ,8.0730e-06 /) - kao(:,13, 2) = (/ & - &8.7381e-07 ,1.2665e-06 ,2.2835e-06 ,4.2048e-06 ,6.9189e-06 /) - kao(:, 1, 3) = (/ & - &2.3993e-05 ,2.2308e-05 ,2.5893e-05 ,3.3883e-05 ,3.8280e-05 /) - kao(:, 2, 3) = (/ & - &1.4011e-05 ,1.4296e-05 ,2.1223e-05 ,2.4417e-05 ,2.7881e-05 /) - kao(:, 3, 3) = (/ & - &7.3965e-06 ,9.9180e-06 ,1.3735e-05 ,1.4536e-05 ,1.8056e-05 /) - kao(:, 4, 3) = (/ & - &4.5365e-06 ,7.0513e-06 ,7.2165e-06 ,9.8585e-06 ,1.1890e-05 /) - kao(:, 5, 3) = (/ & - &3.8953e-06 ,4.3626e-06 ,5.3805e-06 ,6.6118e-06 ,9.5204e-06 /) - kao(:, 6, 3) = (/ & - &2.4692e-06 ,2.6620e-06 ,3.5833e-06 ,5.1748e-06 ,7.8116e-06 /) - kao(:, 7, 3) = (/ & - &1.4531e-06 ,2.0753e-06 ,2.7794e-06 ,4.8340e-06 ,7.5049e-06 /) - kao(:, 8, 3) = (/ & - &8.9161e-07 ,1.6554e-06 ,2.7945e-06 ,4.7401e-06 ,7.3008e-06 /) - kao(:, 9, 3) = (/ & - &1.1556e-06 ,2.3050e-06 ,3.6767e-06 ,6.4276e-06 ,1.0393e-05 /) - kao(:,10, 3) = (/ & - &1.3936e-06 ,2.7867e-06 ,4.8066e-06 ,7.9343e-06 ,1.4027e-05 /) - kao(:,11, 3) = (/ & - &1.4469e-06 ,3.0966e-06 ,5.3467e-06 ,9.2496e-06 ,1.6488e-05 /) - kao(:,12, 3) = (/ & - &1.3797e-06 ,2.9577e-06 ,5.1784e-06 ,9.2835e-06 ,1.6169e-05 /) - kao(:,13, 3) = (/ & - &1.1793e-06 ,2.5194e-06 ,4.4903e-06 ,8.2145e-06 ,1.4209e-05 /) - kao(:, 1, 4) = (/ & - &4.3371e-05 ,4.2284e-05 ,4.2569e-05 ,4.5333e-05 ,4.9887e-05 /) - kao(:, 2, 4) = (/ & - &2.7836e-05 ,3.0742e-05 ,2.5159e-05 ,3.1058e-05 ,3.3502e-05 /) - kao(:, 3, 4) = (/ & - &1.5959e-05 ,1.5689e-05 ,1.8607e-05 ,1.9311e-05 ,2.2949e-05 /) - kao(:, 4, 4) = (/ & - &9.4357e-06 ,8.9581e-06 ,1.1706e-05 ,1.2462e-05 ,1.9504e-05 /) - kao(:, 5, 4) = (/ & - &4.6991e-06 ,5.9565e-06 ,7.1131e-06 ,1.0656e-05 ,1.6961e-05 /) - kao(:, 6, 4) = (/ & - &2.9104e-06 ,3.9977e-06 ,5.8385e-06 ,9.8483e-06 ,1.4910e-05 /) - kao(:, 7, 4) = (/ & - &2.0404e-06 ,2.7360e-06 ,5.0537e-06 ,8.2979e-06 ,1.2550e-05 /) - kao(:, 8, 4) = (/ & - &1.7124e-06 ,2.7023e-06 ,4.6383e-06 ,7.6524e-06 ,1.2059e-05 /) - kao(:, 9, 4) = (/ & - &1.7855e-06 ,3.1326e-06 ,5.8535e-06 ,9.7627e-06 ,1.5447e-05 /) - kao(:,10, 4) = (/ & - &2.2188e-06 ,4.3098e-06 ,8.7192e-06 ,1.5363e-05 ,2.4174e-05 /) - kao(:,11, 4) = (/ & - &2.5395e-06 ,4.8780e-06 ,1.0119e-05 ,1.6942e-05 ,2.6266e-05 /) - kao(:,12, 4) = (/ & - &2.4951e-06 ,4.8859e-06 ,9.7649e-06 ,1.6137e-05 ,2.5091e-05 /) - kao(:,13, 4) = (/ & - &2.2608e-06 ,4.4391e-06 ,8.5101e-06 ,1.3874e-05 ,2.1718e-05 /) - kao(:, 1, 5) = (/ & - &3.5802e-05 ,4.9569e-05 ,5.6081e-05 ,5.4456e-05 ,6.1620e-05 /) - kao(:, 2, 5) = (/ & - &2.7431e-05 ,3.7092e-05 ,4.0464e-05 ,4.0603e-05 ,5.2992e-05 /) - kao(:, 3, 5) = (/ & - &1.6511e-05 ,2.1182e-05 ,1.9952e-05 ,2.9271e-05 ,4.8230e-05 /) - kao(:, 4, 5) = (/ & - &1.1211e-05 ,1.2922e-05 ,1.4441e-05 ,2.5935e-05 ,3.8342e-05 /) - kao(:, 5, 5) = (/ & - &7.1937e-06 ,7.6149e-06 ,1.2471e-05 ,2.1334e-05 ,3.0465e-05 /) - kao(:, 6, 5) = (/ & - &4.6613e-06 ,5.5104e-06 ,1.0664e-05 ,1.6922e-05 ,2.4802e-05 /) - kao(:, 7, 5) = (/ & - &2.6908e-06 ,5.1362e-06 ,9.2865e-06 ,1.4719e-05 ,2.2004e-05 /) - kao(:, 8, 5) = (/ & - &2.4192e-06 ,4.7977e-06 ,8.6605e-06 ,1.4122e-05 ,2.1533e-05 /) - kao(:, 9, 5) = (/ & - &2.6505e-06 ,5.2138e-06 ,9.6090e-06 ,1.6493e-05 ,2.6941e-05 /) - kao(:,10, 5) = (/ & - &3.8793e-06 ,7.0191e-06 ,1.2677e-05 ,2.2456e-05 ,3.8574e-05 /) - kao(:,11, 5) = (/ & - &4.3385e-06 ,8.1555e-06 ,1.4661e-05 ,2.7034e-05 ,4.5538e-05 /) - kao(:,12, 5) = (/ & - &4.4806e-06 ,8.0941e-06 ,1.5170e-05 ,2.7140e-05 ,4.7747e-05 /) - kao(:,13, 5) = (/ & - &4.0859e-06 ,7.4306e-06 ,1.3915e-05 ,2.5201e-05 ,4.3638e-05 /) - kao(:, 1, 6) = (/ & - &6.3502e-05 ,6.1626e-05 ,6.7874e-05 ,7.9926e-05 ,1.4827e-04 /) - kao(:, 2, 6) = (/ & - &4.2546e-05 ,3.3547e-05 ,4.0025e-05 ,7.0944e-05 ,1.2242e-04 /) - kao(:, 3, 6) = (/ & - &2.4414e-05 ,2.4466e-05 ,3.6681e-05 ,6.7397e-05 ,9.7673e-05 /) - kao(:, 4, 6) = (/ & - &1.1878e-05 ,1.6683e-05 ,3.4310e-05 ,5.3734e-05 ,7.4953e-05 /) - kao(:, 5, 6) = (/ & - &8.0437e-06 ,1.5133e-05 ,2.7743e-05 ,4.0147e-05 ,5.6233e-05 /) - kao(:, 6, 6) = (/ & - &6.1550e-06 ,1.2316e-05 ,1.9945e-05 ,3.0529e-05 ,4.5113e-05 /) - kao(:, 7, 6) = (/ & - &4.8891e-06 ,9.6377e-06 ,1.6338e-05 ,2.4863e-05 ,3.7137e-05 /) - kao(:, 8, 6) = (/ & - &4.3692e-06 ,8.7526e-06 ,1.4669e-05 ,2.2987e-05 ,3.5150e-05 /) - kao(:, 9, 6) = (/ & - &5.3838e-06 ,1.0727e-05 ,1.8376e-05 ,3.0485e-05 ,4.8603e-05 /) - kao(:,10, 6) = (/ & - &6.7708e-06 ,1.4529e-05 ,2.6810e-05 ,4.7617e-05 ,7.8536e-05 /) - kao(:,11, 6) = (/ & - &8.3666e-06 ,1.7190e-05 ,3.3330e-05 ,5.7837e-05 ,9.5886e-05 /) - kao(:,12, 6) = (/ & - &8.6264e-06 ,1.8503e-05 ,3.4797e-05 ,6.1435e-05 ,1.0046e-04 /) - kao(:,13, 6) = (/ & - &8.2669e-06 ,1.8055e-05 ,3.3739e-05 ,5.7805e-05 ,9.4677e-05 /) - kao(:, 1, 7) = (/ & - &5.0894e-05 ,6.7019e-05 ,1.1702e-04 ,2.4649e-04 ,3.5046e-04 /) - kao(:, 2, 7) = (/ & - &4.3304e-05 ,4.9708e-05 ,1.0701e-04 ,1.8228e-04 ,2.5635e-04 /) - kao(:, 3, 7) = (/ & - &2.6855e-05 ,4.5972e-05 ,9.9426e-05 ,1.4867e-04 ,2.0722e-04 /) - kao(:, 4, 7) = (/ & - &2.0223e-05 ,4.9973e-05 ,8.2293e-05 ,1.1822e-04 ,1.6484e-04 /) - kao(:, 5, 7) = (/ & - &1.8923e-05 ,4.1445e-05 ,6.4003e-05 ,9.2899e-05 ,1.3171e-04 /) - kao(:, 6, 7) = (/ & - &1.5326e-05 ,3.0718e-05 ,4.7457e-05 ,6.8025e-05 ,9.5982e-05 /) - kao(:, 7, 7) = (/ & - &1.2448e-05 ,2.1715e-05 ,3.2987e-05 ,4.9690e-05 ,7.5010e-05 /) - kao(:, 8, 7) = (/ & - &1.0066e-05 ,1.7102e-05 ,2.7164e-05 ,4.3976e-05 ,6.9078e-05 /) - kao(:, 9, 7) = (/ & - &1.1685e-05 ,2.0037e-05 ,3.5620e-05 ,5.8499e-05 ,9.0997e-05 /) - kao(:,10, 7) = (/ & - &1.5861e-05 ,2.8659e-05 ,5.0802e-05 ,8.4995e-05 ,1.3698e-04 /) - kao(:,11, 7) = (/ & - &2.1379e-05 ,3.8980e-05 ,6.8341e-05 ,1.1084e-04 ,1.6745e-04 /) - kao(:,12, 7) = (/ & - &2.2487e-05 ,4.0976e-05 ,7.1749e-05 ,1.1325e-04 ,1.7051e-04 /) - kao(:,13, 7) = (/ & - &2.0952e-05 ,3.7773e-05 ,6.5636e-05 ,1.0928e-04 ,1.6488e-04 /) - kao(:, 1, 8) = (/ & - &1.0722e-04 ,2.7983e-04 ,4.9965e-04 ,7.0430e-04 ,9.5168e-04 /) - kao(:, 2, 8) = (/ & - &9.2566e-05 ,2.4429e-04 ,3.9143e-04 ,5.5037e-04 ,7.4482e-04 /) - kao(:, 3, 8) = (/ & - &8.2611e-05 ,1.7009e-04 ,2.5121e-04 ,3.5806e-04 ,4.9588e-04 /) - kao(:, 4, 8) = (/ & - &7.9199e-05 ,1.3718e-04 ,2.0767e-04 ,3.0111e-04 ,4.2301e-04 /) - kao(:, 5, 8) = (/ & - &6.6965e-05 ,1.0994e-04 ,1.6780e-04 ,2.4484e-04 ,3.4718e-04 /) - kao(:, 6, 8) = (/ & - &5.1557e-05 ,8.4788e-05 ,1.3259e-04 ,1.9727e-04 ,2.8537e-04 /) - kao(:, 7, 8) = (/ & - &3.8653e-05 ,6.5013e-05 ,1.0364e-04 ,1.5866e-04 ,2.2830e-04 /) - kao(:, 8, 8) = (/ & - &2.8949e-05 ,4.9620e-05 ,8.2718e-05 ,1.3000e-04 ,1.9256e-04 /) - kao(:, 9, 8) = (/ & - &2.6449e-05 ,4.6951e-05 ,7.7311e-05 ,1.2263e-04 ,1.9501e-04 /) - kao(:,10, 8) = (/ & - &4.1706e-05 ,7.2947e-05 ,1.1853e-04 ,1.7821e-04 ,2.7161e-04 /) - kao(:,11, 8) = (/ & - &4.6073e-05 ,7.9291e-05 ,1.2399e-04 ,2.0469e-04 ,3.0165e-04 /) - kao(:,12, 8) = (/ & - &4.9634e-05 ,8.1819e-05 ,1.2723e-04 ,2.1479e-04 ,3.2406e-04 /) - kao(:,13, 8) = (/ & - &4.8914e-05 ,8.2845e-05 ,1.3095e-04 ,2.1611e-04 ,3.1389e-04 /) - kao(:, 1, 9) = (/ & - &7.8561e-04 ,1.1643e-03 ,1.6394e-03 ,2.2582e-03 ,3.0560e-03 /) - kao(:, 2, 9) = (/ & - &6.6025e-04 ,9.8571e-04 ,1.4034e-03 ,1.9479e-03 ,2.6634e-03 /) - kao(:, 3, 9) = (/ & - &5.1307e-04 ,7.6204e-04 ,1.0925e-03 ,1.5312e-03 ,2.1163e-03 /) - kao(:, 4, 9) = (/ & - &3.4762e-04 ,5.0219e-04 ,7.2255e-04 ,1.0302e-03 ,1.4514e-03 /) - kao(:, 5, 9) = (/ & - &2.1712e-04 ,3.4419e-04 ,5.2965e-04 ,7.8732e-04 ,1.1464e-03 /) - kao(:, 6, 9) = (/ & - &1.8112e-04 ,2.9769e-04 ,4.6916e-04 ,7.0360e-04 ,1.0307e-03 /) - kao(:, 7, 9) = (/ & - &1.5449e-04 ,2.5935e-04 ,4.1089e-04 ,6.2682e-04 ,9.3587e-04 /) - kao(:, 8, 9) = (/ & - &1.4056e-04 ,2.4062e-04 ,3.8562e-04 ,5.9348e-04 ,8.8749e-04 /) - kao(:, 9, 9) = (/ & - &1.4311e-04 ,2.5683e-04 ,4.3997e-04 ,6.9753e-04 ,1.0500e-03 /) - kao(:,10, 9) = (/ & - &1.3733e-04 ,2.3478e-04 ,3.4047e-04 ,4.8048e-04 ,6.5263e-04 /) - kao(:,11, 9) = (/ & - &1.3199e-04 ,1.9086e-04 ,2.6427e-04 ,3.3652e-04 ,4.6218e-04 /) - kao(:,12, 9) = (/ & - &1.2421e-04 ,1.8123e-04 ,2.4759e-04 ,3.0949e-04 ,4.1038e-04 /) - kao(:,13, 9) = (/ & - &1.2135e-04 ,1.9021e-04 ,2.6678e-04 ,3.4185e-04 ,4.8239e-04 /) - kao(:, 1,10) = (/ & - &2.0319e-03 ,2.8954e-03 ,4.0208e-03 ,5.4666e-03 ,7.2307e-03 /) - kao(:, 2,10) = (/ & - &1.8594e-03 ,2.6055e-03 ,3.5896e-03 ,4.9149e-03 ,6.5643e-03 /) - kao(:, 3,10) = (/ & - &1.4858e-03 ,2.1438e-03 ,3.0067e-03 ,4.1237e-03 ,5.5345e-03 /) - kao(:, 4,10) = (/ & - &1.1237e-03 ,1.6648e-03 ,2.4078e-03 ,3.3725e-03 ,4.5628e-03 /) - kao(:, 5,10) = (/ & - &8.5681e-04 ,1.0371e-03 ,1.2665e-03 ,1.6242e-03 ,2.0962e-03 /) - kao(:, 6,10) = (/ & - &4.1878e-04 ,6.5245e-04 ,8.8673e-04 ,1.4273e-03 ,2.1165e-03 /) - kao(:, 7,10) = (/ & - &4.0657e-04 ,6.7784e-04 ,1.0299e-03 ,1.5982e-03 ,2.4416e-03 /) - kao(:, 8,10) = (/ & - &3.7189e-04 ,6.5876e-04 ,1.1259e-03 ,1.8690e-03 ,2.8514e-03 /) - kao(:, 9,10) = (/ & - &4.4113e-04 ,8.4598e-04 ,1.1991e-03 ,1.8860e-03 ,2.5835e-03 /) - kao(:,10,10) = (/ & - &1.8203e-04 ,4.6909e-06 ,8.8196e-06 ,8.3149e-05 ,1.6489e-04 /) - kao(:,11,10) = (/ & - &2.4843e-06 ,5.0211e-06 ,4.0342e-05 ,1.0733e-04 ,1.3735e-04 /) - kao(:,12,10) = (/ & - &2.2109e-06 ,4.6775e-06 ,6.3563e-05 ,8.8385e-05 ,1.1814e-04 /) - kao(:,13,10) = (/ & - &1.0306e-04 ,2.9167e-05 ,5.8184e-05 ,8.2616e-05 ,1.2141e-04 /) - kao(:, 1,11) = (/ & - &2.6851e-03 ,3.8621e-03 ,5.3296e-03 ,7.1411e-03 ,9.4750e-03 /) - kao(:, 2,11) = (/ & - &2.4213e-03 ,3.4979e-03 ,4.8929e-03 ,6.6432e-03 ,8.8031e-03 /) - kao(:, 3,11) = (/ & - &2.0817e-03 ,2.9708e-03 ,4.1510e-03 ,5.7232e-03 ,7.7624e-03 /) - kao(:, 4,11) = (/ & - &1.6627e-03 ,2.4521e-03 ,3.4576e-03 ,4.7721e-03 ,6.5543e-03 /) - kao(:, 5,11) = (/ & - &1.2664e-03 ,1.9577e-03 ,2.8702e-03 ,4.0767e-03 ,5.5807e-03 /) - kao(:, 6,11) = (/ & - &6.5451e-04 ,7.6752e-04 ,1.2109e-03 ,1.8526e-03 ,2.8298e-03 /) - kao(:, 7,11) = (/ & - &4.8621e-04 ,7.7329e-04 ,1.3520e-03 ,2.1779e-03 ,3.1034e-03 /) - kao(:, 8,11) = (/ & - &4.3573e-04 ,8.1759e-04 ,1.5409e-03 ,2.1798e-03 ,3.1170e-03 /) - kao(:, 9,11) = (/ & - &5.3220e-04 ,6.5242e-04 ,1.0365e-03 ,8.6351e-04 ,8.5932e-04 /) - kao(:,10,11) = (/ & - &4.1711e-06 ,8.9963e-06 ,1.7277e-05 ,3.1054e-05 ,5.1955e-05 /) - kao(:,11,11) = (/ & - &4.2641e-06 ,9.2786e-06 ,1.7917e-05 ,3.2294e-05 ,1.1099e-04 /) - kao(:,12,11) = (/ & - &4.4244e-06 ,9.4799e-06 ,1.8618e-05 ,7.5019e-05 ,1.5478e-04 /) - kao(:,13,11) = (/ & - &4.4439e-06 ,9.5554e-06 ,3.7663e-05 ,9.5587e-05 ,1.4453e-04 /) - kao(:, 1,12) = (/ & - &3.5676e-03 ,4.9715e-03 ,6.8023e-03 ,9.2475e-03 ,1.2425e-02 /) - kao(:, 2,12) = (/ & - &3.3730e-03 ,4.7958e-03 ,6.6635e-03 ,9.0736e-03 ,1.2194e-02 /) - kao(:, 3,12) = (/ & - &2.8824e-03 ,4.1856e-03 ,5.9756e-03 ,8.2464e-03 ,1.1067e-02 /) - kao(:, 4,12) = (/ & - &2.4288e-03 ,3.5141e-03 ,5.0677e-03 ,7.1261e-03 ,9.7127e-03 /) - kao(:, 5,12) = (/ & - &1.9807e-03 ,2.9284e-03 ,4.2016e-03 ,5.9142e-03 ,8.1484e-03 /) - kao(:, 6,12) = (/ & - &1.4728e-03 ,2.2453e-03 ,3.0533e-03 ,3.8340e-03 ,4.6395e-03 /) - kao(:, 7,12) = (/ & - &5.6245e-04 ,9.9265e-04 ,1.6138e-03 ,2.6180e-03 ,3.5983e-03 /) - kao(:, 8,12) = (/ & - &5.6232e-04 ,1.0725e-03 ,1.5736e-03 ,2.7015e-03 ,4.5325e-03 /) - kao(:, 9,12) = (/ & - &3.8503e-04 ,4.5325e-04 ,3.4069e-05 ,5.9217e-05 ,9.6016e-05 /) - kao(:,10,12) = (/ & - &6.7276e-06 ,1.4849e-05 ,2.8992e-05 ,5.2371e-05 ,8.7139e-05 /) - kao(:,11,12) = (/ & - &7.7381e-06 ,1.7002e-05 ,3.3523e-05 ,6.0232e-05 ,1.0004e-04 /) - kao(:,12,12) = (/ & - &8.5790e-06 ,1.9107e-05 ,3.7746e-05 ,6.8157e-05 ,1.1211e-04 /) - kao(:,13,12) = (/ & - &9.3399e-06 ,2.1875e-05 ,4.3407e-05 ,7.7729e-05 ,1.5956e-04 /) - kao(:, 1,13) = (/ & - &4.3788e-03 ,6.3181e-03 ,8.9543e-03 ,1.2364e-02 ,1.6648e-02 /) - kao(:, 2,13) = (/ & - &4.4160e-03 ,6.2758e-03 ,8.7769e-03 ,1.2121e-02 ,1.6531e-02 /) - kao(:, 3,13) = (/ & - &3.9967e-03 ,5.8737e-03 ,8.1369e-03 ,1.1188e-02 ,1.5344e-02 /) - kao(:, 4,13) = (/ & - &3.4004e-03 ,5.1547e-03 ,7.3735e-03 ,1.0182e-02 ,1.3939e-02 /) - kao(:, 5,13) = (/ & - &2.9021e-03 ,4.3823e-03 ,6.4495e-03 ,9.1509e-03 ,1.2669e-02 /) - kao(:, 6,13) = (/ & - &2.4396e-03 ,3.6407e-03 ,5.2497e-03 ,7.5439e-03 ,1.0675e-02 /) - kao(:, 7,13) = (/ & - &1.5932e-03 ,1.8719e-03 ,2.2033e-03 ,2.5091e-03 ,4.1046e-03 /) - kao(:, 8,13) = (/ & - &8.1439e-04 ,1.2125e-03 ,1.8190e-03 ,2.8987e-03 ,3.6148e-03 /) - kao(:, 9,13) = (/ & - &2.9962e-04 ,2.5888e-05 ,4.6085e-05 ,7.7045e-05 ,1.2285e-04 /) - kao(:,10,13) = (/ & - &9.2091e-06 ,1.8817e-05 ,3.5290e-05 ,6.2611e-05 ,1.0050e-04 /) - kao(:,11,13) = (/ & - &8.8922e-06 ,1.8844e-05 ,3.7039e-05 ,6.5193e-05 ,1.0998e-04 /) - kao(:,12,13) = (/ & - &9.1227e-06 ,2.0282e-05 ,3.9304e-05 ,7.0536e-05 ,1.1697e-04 /) - kao(:,13,13) = (/ & - &9.3384e-06 ,2.0460e-05 ,4.0361e-05 ,7.2805e-05 ,1.1815e-04 /) - kao(:, 1,14) = (/ & - &5.8176e-03 ,8.5593e-03 ,1.2130e-02 ,1.6770e-02 ,2.2682e-02 /) - kao(:, 2,14) = (/ & - &5.7661e-03 ,8.5728e-03 ,1.2312e-02 ,1.7131e-02 ,2.3220e-02 /) - kao(:, 3,14) = (/ & - &5.4299e-03 ,7.9187e-03 ,1.1613e-02 ,1.6480e-02 ,2.2670e-02 /) - kao(:, 4,14) = (/ & - &4.9805e-03 ,7.1731e-03 ,1.0470e-02 ,1.5114e-02 ,2.1203e-02 /) - kao(:, 5,14) = (/ & - &4.4098e-03 ,6.5055e-03 ,9.4518e-03 ,1.3613e-02 ,1.9313e-02 /) - kao(:, 6,14) = (/ & - &3.7762e-03 ,5.6862e-03 ,8.4288e-03 ,1.2169e-02 ,1.7260e-02 /) - kao(:, 7,14) = (/ & - &3.2464e-03 ,4.8124e-03 ,6.8092e-03 ,9.1900e-03 ,1.1370e-02 /) - kao(:, 8,14) = (/ & - &1.1521e-03 ,1.1423e-03 ,1.7687e-03 ,1.5659e-03 ,2.2329e-03 /) - kao(:, 9,14) = (/ & - &1.9075e-05 ,4.4531e-05 ,8.9053e-05 ,1.1868e-04 ,1.6905e-04 /) - kao(:,10,14) = (/ & - &1.1271e-05 ,2.8156e-05 ,6.0244e-05 ,8.6340e-05 ,1.3123e-04 /) - kao(:,11,14) = (/ & - &1.1591e-05 ,2.8030e-05 ,4.8484e-05 ,7.4281e-05 ,1.1022e-04 /) - kao(:,12,14) = (/ & - &1.1274e-05 ,2.5700e-05 ,4.0234e-05 ,6.2656e-05 ,9.8261e-05 /) - kao(:,13,14) = (/ & - &1.0130e-05 ,1.8686e-05 ,3.2466e-05 ,5.4260e-05 ,8.5980e-05 /) - kao(:, 1,15) = (/ & - &8.0623e-03 ,1.1623e-02 ,1.6754e-02 ,2.3990e-02 ,3.4103e-02 /) - kao(:, 2,15) = (/ & - &8.1053e-03 ,1.1698e-02 ,1.6865e-02 ,2.3848e-02 ,3.3543e-02 /) - kao(:, 3,15) = (/ & - &7.5058e-03 ,1.0852e-02 ,1.5814e-02 ,2.2160e-02 ,3.0813e-02 /) - kao(:, 4,15) = (/ & - &6.7816e-03 ,9.9478e-03 ,1.4382e-02 ,2.0576e-02 ,2.8388e-02 /) - kao(:, 5,15) = (/ & - &6.3211e-03 ,9.1146e-03 ,1.3301e-02 ,1.9331e-02 ,2.6874e-02 /) - kao(:, 6,15) = (/ & - &5.8531e-03 ,8.4323e-03 ,1.2188e-02 ,1.7787e-02 ,2.5518e-02 /) - kao(:, 7,15) = (/ & - &5.3028e-03 ,7.8385e-03 ,1.1331e-02 ,1.6285e-02 ,2.3804e-02 /) - kao(:, 8,15) = (/ & - &4.7139e-03 ,4.9648e-03 ,2.7936e-03 ,2.1248e-03 ,1.7982e-03 /) - kao(:, 9,15) = (/ & - &6.9507e-07 ,1.4412e-06 ,2.8345e-06 ,1.0911e-04 ,2.4370e-04 /) - kao(:,10,15) = (/ & - &3.6501e-07 ,8.3446e-07 ,1.6843e-06 ,6.4065e-05 ,1.5410e-04 /) - kao(:,11,15) = (/ & - &2.8886e-07 ,6.6813e-07 ,2.2629e-05 ,7.8818e-05 ,1.6163e-04 /) - kao(:,12,15) = (/ & - &2.6037e-07 ,5.5485e-07 ,3.1734e-05 ,8.0123e-05 ,1.4669e-04 /) - kao(:,13,15) = (/ & - &2.3446e-07 ,1.2097e-05 ,3.4961e-05 ,7.1280e-05 ,1.2611e-04 /) - kao(:, 1,16) = (/ & - &8.7570e-03 ,1.2357e-02 ,1.9959e-02 ,3.2636e-02 ,5.0897e-02 /) - kao(:, 2,16) = (/ & - &9.0825e-03 ,1.2808e-02 ,1.9776e-02 ,3.3132e-02 ,5.2704e-02 /) - kao(:, 3,16) = (/ & - &8.8201e-03 ,1.2594e-02 ,1.7588e-02 ,3.0181e-02 ,4.9544e-02 /) - kao(:, 4,16) = (/ & - &8.3170e-03 ,1.2140e-02 ,1.6975e-02 ,2.5787e-02 ,4.3638e-02 /) - kao(:, 5,16) = (/ & - &7.7605e-03 ,1.1646e-02 ,1.6641e-02 ,2.2927e-02 ,3.7740e-02 /) - kao(:, 6,16) = (/ & - &7.0356e-03 ,1.0930e-02 ,1.6057e-02 ,2.2523e-02 ,3.2226e-02 /) - kao(:, 7,16) = (/ & - &6.7105e-03 ,1.0123e-02 ,1.5354e-02 ,2.2098e-02 ,3.0452e-02 /) - kao(:, 8,16) = (/ & - &6.7590e-03 ,9.3669e-03 ,1.4563e-02 ,1.3873e-02 ,1.5872e-03 /) - kao(:, 9,16) = (/ & - &5.9690e-07 ,1.4246e-06 ,2.9975e-06 ,4.2222e-06 ,7.0710e-06 /) - kao(:,10,16) = (/ & - &3.1073e-07 ,7.7259e-07 ,1.8451e-06 ,3.5923e-06 ,5.6864e-06 /) - kao(:,11,16) = (/ & - &2.5196e-07 ,6.5326e-07 ,1.5669e-06 ,3.1861e-06 ,5.6813e-06 /) - kao(:,12,16) = (/ & - &1.8633e-07 ,5.5942e-07 ,1.3020e-06 ,2.7030e-06 ,4.5791e-06 /) - kao(:,13,16) = (/ & - &1.4070e-07 ,4.5125e-07 ,1.0269e-06 ,2.1236e-06 ,3.8826e-06 /) - -! The array KAO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level below 100~ mb. The first index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The second index -! runs over the g-channel (1 to 16). - - kao_mco2(:, 1) = (/ & - & 1.45661e-05 , 1.73337e-05 , 2.06273e-05 , 2.45466e-05 , 2.92105e-05 , & - & 3.47607e-05 , 4.13654e-05 , 4.92251e-05 , 5.85781e-05 , 6.97083e-05 , & - & 8.29533e-05 , 9.87149e-05 , 1.17471e-04 , 1.39792e-04 , 1.66353e-04 , & - & 1.97961e-04 , 2.35574e-04 , 2.80335e-04 , 3.33600e-04 /) - kao_mco2(:, 2) = (/ & - & 9.96332e-06 , 1.21229e-05 , 1.47506e-05 , 1.79478e-05 , 2.18381e-05 , & - & 2.65716e-05 , 3.23310e-05 , 3.93389e-05 , 4.78658e-05 , 5.82408e-05 , & - & 7.08647e-05 , 8.62250e-05 , 1.04914e-04 , 1.27655e-04 , 1.55325e-04 , & - & 1.88992e-04 , 2.29957e-04 , 2.79801e-04 , 3.40448e-04 /) - kao_mco2(:, 3) = (/ & - & 1.14968e-05 , 1.39890e-05 , 1.70215e-05 , 2.07115e-05 , 2.52013e-05 , & - & 3.06644e-05 , 3.73118e-05 , 4.54002e-05 , 5.52420e-05 , 6.72173e-05 , & - & 8.17887e-05 , 9.95188e-05 , 1.21092e-04 , 1.47343e-04 , 1.79283e-04 , & - & 2.18148e-04 , 2.65438e-04 , 3.22980e-04 , 3.92995e-04 /) - kao_mco2(:, 4) = (/ & - & 1.02186e-05 , 1.23232e-05 , 1.48613e-05 , 1.79222e-05 , 2.16134e-05 , & - & 2.60649e-05 , 3.14332e-05 , 3.79071e-05 , 4.57145e-05 , 5.51297e-05 , & - & 6.64843e-05 , 8.01773e-05 , 9.66905e-05 , 1.16605e-04 , 1.40621e-04 , & - & 1.69583e-04 , 2.04510e-04 , 2.46631e-04 , 2.97426e-04 /) - kao_mco2(:, 5) = (/ & - & 1.03469e-05 , 1.24680e-05 , 1.50239e-05 , 1.81037e-05 , 2.18149e-05 , & - & 2.62869e-05 , 3.16756e-05 , 3.81690e-05 , 4.59935e-05 , 5.54220e-05 , & - & 6.67833e-05 , 8.04737e-05 , 9.69704e-05 , 1.16849e-04 , 1.40803e-04 , & - & 1.69667e-04 , 2.04448e-04 , 2.46359e-04 , 2.96861e-04 /) - kao_mco2(:, 6) = (/ & - & 1.71660e-05 , 2.07334e-05 , 2.50420e-05 , 3.02461e-05 , 3.65317e-05 , & - & 4.41235e-05 , 5.32930e-05 , 6.43680e-05 , 7.77446e-05 , 9.39010e-05 , & - & 1.13415e-04 , 1.36984e-04 , 1.65451e-04 , 1.99835e-04 , 2.41363e-04 , & - & 2.91522e-04 , 3.52104e-04 , 4.25276e-04 , 5.13654e-04 /) - kao_mco2(:, 7) = (/ & - & 4.78803e-05 , 5.79395e-05 , 7.01119e-05 , 8.48418e-05 , 1.02666e-04 , & - & 1.24235e-04 , 1.50336e-04 , 1.81920e-04 , 2.20139e-04 , 2.66388e-04 , & - & 3.22354e-04 , 3.90077e-04 , 4.72028e-04 , 5.71197e-04 , 6.91199e-04 , & - & 8.36413e-04 , 1.01214e-03 , 1.22477e-03 , 1.48209e-03 /) - kao_mco2(:, 8) = (/ & - & 1.27954e-04 , 1.55281e-04 , 1.88445e-04 , 2.28692e-04 , 2.77534e-04 , & - & 3.36808e-04 , 4.08741e-04 , 4.96037e-04 , 6.01977e-04 , 7.30542e-04 , & - & 8.86566e-04 , 1.07591e-03 , 1.30570e-03 , 1.58456e-03 , 1.92298e-03 , & - & 2.33367e-03 , 2.83208e-03 , 3.43694e-03 , 4.17097e-03 /) - kao_mco2(:, 9) = (/ & - & 2.93792e-05 , 3.55109e-05 , 4.29223e-05 , 5.18805e-05 , 6.27083e-05 , & - & 7.57960e-05 , 9.16151e-05 , 1.10736e-04 , 1.33847e-04 , 1.61782e-04 , & - & 1.95547e-04 , 2.36359e-04 , 2.85689e-04 , 3.45315e-04 , 4.17384e-04 , & - & 5.04495e-04 , 6.09787e-04 , 7.37054e-04 , 8.90882e-04 /) - kao_mco2(:,10) = (/ & - & 5.08569e-05 , 6.24700e-05 , 7.67350e-05 , 9.42574e-05 , 1.15781e-04 , & - & 1.42220e-04 , 1.74695e-04 , 2.14587e-04 , 2.63588e-04 , 3.23778e-04 , & - & 3.97712e-04 , 4.88530e-04 , 6.00085e-04 , 7.37114e-04 , 9.05433e-04 , & - & 1.11219e-03 , 1.36616e-03 , 1.67812e-03 , 2.06131e-03 /) - kao_mco2(:,11) = (/ & - & 4.82546e-06 , 6.21462e-06 , 8.00369e-06 , 1.03078e-05 , 1.32752e-05 , & - & 1.70969e-05 , 2.20188e-05 , 2.83575e-05 , 3.65211e-05 , 4.70348e-05 , & - & 6.05753e-05 , 7.80138e-05 , 1.00472e-04 , 1.29397e-04 , 1.66647e-04 , & - & 2.14622e-04 , 2.76407e-04 , 3.55980e-04 , 4.58459e-04 /) - kao_mco2(:,12) = (/ & - & 2.41346e-06 , 2.96282e-06 , 3.63723e-06 , 4.46516e-06 , 5.48153e-06 , & - & 6.72926e-06 , 8.26100e-06 , 1.01414e-05 , 1.24498e-05 , 1.52837e-05 , & - & 1.87627e-05 , 2.30335e-05 , 2.82765e-05 , 3.47129e-05 , 4.26144e-05 , & - & 5.23144e-05 , 6.42225e-05 , 7.88410e-05 , 9.67871e-05 /) - kao_mco2(:,13) = (/ & - & 2.76412e-06 , 3.46195e-06 , 4.33596e-06 , 5.43062e-06 , 6.80164e-06 , & - & 8.51879e-06 , 1.06695e-05 , 1.33631e-05 , 1.67367e-05 , 2.09621e-05 , & - & 2.62542e-05 , 3.28824e-05 , 4.11839e-05 , 5.15813e-05 , 6.46035e-05 , & - & 8.09134e-05 , 1.01341e-04 , 1.26925e-04 , 1.58969e-04 /) - kao_mco2(:,14) = (/ & - & 1.25126e-06 , 1.54971e-06 , 1.91935e-06 , 2.37715e-06 , 2.94416e-06 , & - & 3.64640e-06 , 4.51615e-06 , 5.59335e-06 , 6.92749e-06 , 8.57985e-06 , & - & 1.06263e-05 , 1.31610e-05 , 1.63001e-05 , 2.01881e-05 , 2.50034e-05 , & - & 3.09672e-05 , 3.83536e-05 , 4.75018e-05 , 5.88319e-05 /) - kao_mco2(:,15) = (/ & - & 1.59748e-06 , 2.08378e-06 , 2.71812e-06 , 3.54557e-06 , 4.62491e-06 , & - & 6.03282e-06 , 7.86932e-06 , 1.02649e-05 , 1.33897e-05 , 1.74658e-05 , & - & 2.27827e-05 , 2.97182e-05 , 3.87649e-05 , 5.05657e-05 , 6.59589e-05 , & - & 8.60380e-05 , 1.12230e-04 , 1.46394e-04 , 1.90959e-04 /) - kao_mco2(:,16) = (/ & - & 1.68148e-06 , 2.17133e-06 , 2.80388e-06 , 3.62071e-06 , 4.67549e-06 , & - & 6.03756e-06 , 7.79642e-06 , 1.00677e-05 , 1.30006e-05 , 1.67879e-05 , & - & 2.16786e-05 , 2.79941e-05 , 3.61493e-05 , 4.66803e-05 , 6.02792e-05 , & - & 7.78398e-05 , 1.00516e-04 , 1.29799e-04 , 1.67612e-04 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &3.2710e-07 ,5.2119e-07 ,8.4740e-07 ,1.6908e-06 ,2.3433e-06 ,4.4129e-06 , & - &3.8930e-06 ,2.3338e-06 ,2.4115e-06 ,2.4271e-06 ,2.4836e-06 ,2.6470e-06 , & - &2.9559e-06 ,2.3940e-06 ,2.9711e-06 ,2.9511e-06 /) - forrefo(2,:) = (/ & - &6.5125e-07 ,1.2128e-06 ,1.7249e-06 ,2.7126e-06 ,3.1780e-06 ,2.1444e-06 , & - &1.8265e-06 ,1.7385e-06 ,1.4574e-06 ,1.6135e-06 ,2.4966e-06 ,2.8127e-06 , & - &2.5229e-06 ,2.3251e-06 ,2.5353e-06 ,3.0200e-06 /) - forrefo(3,:) = (/ & - &1.4969e-06 ,1.8516e-06 ,2.5791e-06 ,2.7846e-06 ,1.9789e-06 ,1.6688e-06 , & - &1.1037e-06 ,9.9065e-07 ,1.1557e-06 ,7.0847e-07 ,5.7758e-07 ,4.0425e-07 , & - &3.2427e-07 ,3.2267e-07 ,3.1444e-07 ,2.6046e-07 /) - forrefo(4,:) = (/ & - &1.7567e-06 ,1.6891e-06 ,2.1003e-06 ,2.0957e-06 ,2.3664e-06 ,2.1538e-06 , & - &1.5275e-06 ,1.0487e-06 ,8.7390e-07 ,7.9360e-07 ,7.7778e-07 ,8.1445e-07 , & - &8.2121e-07 ,5.4395e-07 ,3.1273e-07 ,3.1848e-07 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 7.73921e-02 , 6.45225e-02 , 5.37930e-02 , 4.48477e-02 , 3.73900e-02 , & - & 3.11723e-02 , 2.59887e-02 , 2.16670e-02 , 1.80640e-02 , 1.50601e-02 /) - selfrefo(:, 2) = (/ & - & 8.47756e-02 , 7.10616e-02 , 5.95660e-02 , 4.99301e-02 , 4.18529e-02 , & - & 3.50824e-02 , 2.94072e-02 , 2.46500e-02 , 2.06624e-02 , 1.73199e-02 /) - selfrefo(:, 3) = (/ & - & 8.84829e-02 , 7.46093e-02 , 6.29110e-02 , 5.30469e-02 , 4.47295e-02 , & - & 3.77161e-02 , 3.18025e-02 , 2.68160e-02 , 2.26114e-02 , 1.90661e-02 /) - selfrefo(:, 4) = (/ & - & 9.27003e-02 , 7.88864e-02 , 6.71310e-02 , 5.71273e-02 , 4.86144e-02 , & - & 4.13700e-02 , 3.52052e-02 , 2.99590e-02 , 2.54946e-02 , 2.16955e-02 /) - selfrefo(:, 5) = (/ & - & 9.14315e-02 , 7.85661e-02 , 6.75110e-02 , 5.80115e-02 , 4.98487e-02 , & - & 4.28344e-02 , 3.68072e-02 , 3.16280e-02 , 2.71776e-02 , 2.33534e-02 /) - selfrefo(:, 6) = (/ & - & 7.72984e-02 , 6.91044e-02 , 6.17790e-02 , 5.52301e-02 , 4.93755e-02 , & - & 4.41414e-02 , 3.94622e-02 , 3.52790e-02 , 3.15392e-02 , 2.81959e-02 /) - selfrefo(:, 7) = (/ & - & 7.46998e-02 , 6.66597e-02 , 5.94850e-02 , 5.30825e-02 , 4.73691e-02 , & - & 4.22707e-02 , 3.77210e-02 , 3.36610e-02 , 3.00380e-02 , 2.68049e-02 /) - selfrefo(:, 8) = (/ & - & 7.59386e-02 , 6.66263e-02 , 5.84560e-02 , 5.12876e-02 , 4.49982e-02 , & - & 3.94801e-02 , 3.46387e-02 , 3.03910e-02 , 2.66642e-02 , 2.33944e-02 /) - selfrefo(:, 9) = (/ & - & 7.26921e-02 , 6.43261e-02 , 5.69230e-02 , 5.03719e-02 , 4.45747e-02 , & - & 3.94447e-02 , 3.49051e-02 , 3.08880e-02 , 2.73332e-02 , 2.41875e-02 /) - selfrefo(:,10) = (/ & - & 7.43684e-02 , 6.58735e-02 , 5.83490e-02 , 5.16840e-02 , 4.57803e-02 , & - & 4.05509e-02 , 3.59189e-02 , 3.18160e-02 , 2.81818e-02 , 2.49626e-02 /) - selfrefo(:,11) = (/ & - & 8.97599e-02 , 7.73727e-02 , 6.66950e-02 , 5.74908e-02 , 4.95569e-02 , & - & 4.27179e-02 , 3.68227e-02 , 3.17410e-02 , 2.73606e-02 , 2.35848e-02 /) - selfrefo(:,12) = (/ & - & 9.12262e-02 , 7.84848e-02 , 6.75230e-02 , 5.80922e-02 , 4.99786e-02 , & - & 4.29982e-02 , 3.69927e-02 , 3.18260e-02 , 2.73809e-02 , 2.35567e-02 /) - selfrefo(:,13) = (/ & - & 9.03254e-02 , 7.83291e-02 , 6.79260e-02 , 5.89046e-02 , 5.10813e-02 , & - & 4.42970e-02 , 3.84139e-02 , 3.33120e-02 , 2.88877e-02 , 2.50511e-02 /) - selfrefo(:,14) = (/ & - & 9.22803e-02 , 7.94172e-02 , 6.83470e-02 , 5.88199e-02 , 5.06209e-02 , & - & 4.35647e-02 , 3.74921e-02 , 3.22660e-02 , 2.77684e-02 , 2.38977e-02 /) - selfrefo(:,15) = (/ & - & 9.36819e-02 , 8.10810e-02 , 7.01750e-02 , 6.07359e-02 , 5.25665e-02 , & - & 4.54959e-02 , 3.93764e-02 , 3.40800e-02 , 2.94960e-02 , 2.55286e-02 /) - selfrefo(:,16) = (/ & - & 1.00195e-01 , 8.58713e-02 , 7.35950e-02 , 6.30737e-02 , 5.40566e-02 , & - & 4.63286e-02 , 3.97054e-02 , 3.40290e-02 , 2.91641e-02 , 2.49948e-02 /) - - end subroutine lw_kgb06 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_07.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_07.F90 deleted file mode 100644 index f69a96df7..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_07.F90 +++ /dev/null @@ -1,5642 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb07 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg07, only : fracrefao, fracrefbo, kao, kbo, kao_mco2, & - kbo_mco2, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level : P = 706.27 mb, T = 278.94 K - fracrefao(:, 1) = (/ & - 1.6312e-01 ,1.4949e-01 ,1.4305e-01 ,1.3161e-01 ,1.1684e-01 ,9.9900e-02 , & - 8.0912e-02 ,6.0203e-02 ,4.0149e-02 ,4.3365e-03 ,3.5844e-03 ,2.8019e-03 , & - 2.0756e-03 ,1.3449e-03 ,5.0492e-04 ,7.1194e-05 /) - fracrefao(:, 2) = (/ & - 1.6329e-01 ,1.4989e-01 ,1.4328e-01 ,1.3101e-01 ,1.1691e-01 ,9.9754e-02 , & - 8.0956e-02 ,5.9912e-02 ,4.0271e-02 ,4.3298e-03 ,3.5626e-03 ,2.8421e-03 , & - 2.1031e-03 ,1.3360e-03 ,4.8965e-04 ,6.8900e-05 /) - fracrefao(:, 3) = (/ & - 1.6236e-01 ,1.5081e-01 ,1.4341e-01 ,1.3083e-01 ,1.1684e-01 ,9.9701e-02 , & - 8.0956e-02 ,5.9884e-02 ,4.0245e-02 ,4.3837e-03 ,3.6683e-03 ,2.9250e-03 , & - 2.0969e-03 ,1.3320e-03 ,4.8965e-04 ,6.8900e-05 /) - fracrefao(:, 4) = (/ & - 1.6096e-01 ,1.5183e-01 ,1.4354e-01 ,1.3081e-01 ,1.1687e-01 ,9.9619e-02 , & - 8.0947e-02 ,5.9899e-02 ,4.0416e-02 ,4.4389e-03 ,3.7280e-03 ,2.9548e-03 , & - 2.0977e-03 ,1.3305e-03 ,4.8965e-04 ,6.8900e-05 /) - fracrefao(:, 5) = (/ & - 1.5661e-01 ,1.5478e-01 ,1.4414e-01 ,1.3097e-01 ,1.1695e-01 ,9.9823e-02 , & - 8.0750e-02 ,6.0100e-02 ,4.0741e-02 ,4.4598e-03 ,3.7366e-03 ,2.9521e-03 , & - 2.0980e-03 ,1.3297e-03 ,4.8965e-04 ,6.8900e-05 /) - fracrefao(:, 6) = (/ & - 1.4879e-01 ,1.5853e-01 ,1.4586e-01 ,1.3162e-01 ,1.1729e-01 ,1.0031e-01 , & - 8.0908e-02 ,6.0460e-02 ,4.1100e-02 ,4.4578e-03 ,3.7388e-03 ,2.9508e-03 , & - 2.0986e-03 ,1.3288e-03 ,4.8965e-04 ,6.8900e-05 /) - fracrefao(:, 7) = (/ & - 1.4117e-01 ,1.4838e-01 ,1.4807e-01 ,1.3759e-01 ,1.2218e-01 ,1.0228e-01 , & - 8.2130e-02 ,6.1546e-02 ,4.1522e-02 ,4.4577e-03 ,3.7428e-03 ,2.9475e-03 , & - 2.0997e-03 ,1.3277e-03 ,4.8965e-04 ,6.8900e-05 /) - fracrefao(:, 8) = (/ & - 1.4018e-01 ,1.4207e-01 ,1.3919e-01 ,1.3332e-01 ,1.2325e-01 ,1.0915e-01 , & - 9.0280e-02 ,6.5554e-02 ,4.1852e-02 ,4.4707e-03 ,3.7572e-03 ,2.9364e-03 , & - 2.1023e-03 ,1.3249e-03 ,4.8965e-04 ,6.8900e-05 /) - fracrefao(:, 9) = (/ & - 1.4863e-01 ,1.4926e-01 ,1.4740e-01 ,1.3558e-01 ,1.1999e-01 ,1.0044e-01 , & - 8.1927e-02 ,6.0989e-02 ,4.0665e-02 ,4.4481e-03 ,3.7369e-03 ,2.9482e-03 , & - 2.0976e-03 ,1.3281e-03 ,4.8965e-04 ,6.8900e-05 /) - -! Planck fraction mapping level : P=95.58 mbar, T= 215.70 K - fracrefbo(:) = (/ & - 1.5872e-01 ,1.5443e-01 ,1.4413e-01 ,1.3147e-01 ,1.1634e-01 ,9.8914e-02 , & - 8.0236e-02 ,6.0197e-02 ,4.0624e-02 ,4.4225e-03 ,3.6688e-03 ,2.9074e-03 , & - 2.0862e-03 ,1.3039e-03 ,4.8561e-04 ,6.8854e-05 /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kao(:, 1, 1, 1) = (/ & - &2.0715e-06 ,2.0394e-06 ,5.0240e-06 ,1.0614e-05 ,1.1983e-05 ,1.5554e-05 , & - &1.7831e-05 ,2.6227e-05 ,1.2374e-05 /) - kao(:, 2, 1, 1) = (/ & - &2.6968e-06 ,2.7207e-06 ,3.6723e-06 ,1.1698e-05 ,1.3601e-05 ,1.5350e-05 , & - &2.0818e-05 ,2.8393e-05 ,1.1509e-05 /) - kao(:, 3, 1, 1) = (/ & - &3.4058e-06 ,3.5757e-06 ,3.8081e-06 ,7.3554e-06 ,1.4372e-05 ,1.6368e-05 , & - &1.9019e-05 ,3.0058e-05 ,1.1256e-05 /) - kao(:, 4, 1, 1) = (/ & - &4.2245e-06 ,4.8570e-06 ,4.7347e-06 ,6.0087e-06 ,1.4347e-05 ,1.6902e-05 , & - &1.9725e-05 ,2.9609e-05 ,1.0323e-05 /) - kao(:, 5, 1, 1) = (/ & - &5.1348e-06 ,6.1189e-06 ,5.9979e-06 ,6.4031e-06 ,9.6268e-06 ,1.7276e-05 , & - &1.9533e-05 ,2.5577e-05 ,1.1200e-05 /) - kao(:, 1, 2, 1) = (/ & - &2.7400e-06 ,2.6398e-06 ,3.5715e-06 ,8.9653e-06 ,1.1704e-05 ,1.2732e-05 , & - &1.5109e-05 ,1.8326e-05 ,7.6584e-06 /) - kao(:, 2, 2, 1) = (/ & - &3.7023e-06 ,3.5996e-06 ,3.5466e-06 ,6.4138e-06 ,1.4301e-05 ,1.4484e-05 , & - &1.7298e-05 ,2.1003e-05 ,7.8450e-06 /) - kao(:, 3, 2, 1) = (/ & - &4.8529e-06 ,4.7902e-06 ,4.4795e-06 ,5.2052e-06 ,1.0079e-05 ,1.6425e-05 , & - &1.7110e-05 ,2.3533e-05 ,8.0830e-06 /) - kao(:, 4, 2, 1) = (/ & - &6.0952e-06 ,6.1266e-06 ,5.7794e-06 ,5.6603e-06 ,7.5131e-06 ,1.6775e-05 , & - &1.7862e-05 ,2.1237e-05 ,6.9720e-06 /) - kao(:, 5, 2, 1) = (/ & - &7.4621e-06 ,7.9816e-06 ,7.3755e-06 ,7.0507e-06 ,7.2782e-06 ,1.2172e-05 , & - &1.8558e-05 ,2.1490e-05 ,7.0903e-06 /) - kao(:, 1, 3, 1) = (/ & - &4.8603e-06 ,4.7726e-06 ,4.1802e-06 ,5.2554e-06 ,9.0303e-06 ,1.4041e-05 , & - &1.3465e-05 ,1.4273e-05 ,4.5115e-06 /) - kao(:, 2, 3, 1) = (/ & - &6.5045e-06 ,6.5033e-06 ,5.8343e-06 ,5.3408e-06 ,7.3167e-06 ,1.4520e-05 , & - &1.5602e-05 ,1.7982e-05 ,4.5301e-06 /) - kao(:, 3, 3, 1) = (/ & - &8.5550e-06 ,8.5301e-06 ,7.7170e-06 ,6.8750e-06 ,6.6921e-06 ,1.0610e-05 , & - &1.8653e-05 ,1.7976e-05 ,3.9894e-06 /) - kao(:, 4, 3, 1) = (/ & - &1.0940e-05 ,1.0943e-05 ,9.9861e-06 ,8.8481e-06 ,7.8291e-06 ,8.3918e-06 , & - &1.7829e-05 ,1.8992e-05 ,3.8512e-06 /) - kao(:, 5, 3, 1) = (/ & - &1.3936e-05 ,1.3811e-05 ,1.2489e-05 ,1.1153e-05 ,9.8326e-06 ,8.7685e-06 , & - &1.2193e-05 ,1.9703e-05 ,4.2059e-06 /) - kao(:, 1, 4, 1) = (/ & - &8.9960e-06 ,8.6210e-06 ,7.6632e-06 ,6.4630e-06 ,6.4239e-06 ,9.4367e-06 , & - &1.6258e-05 ,1.3756e-05 ,2.4163e-06 /) - kao(:, 2, 4, 1) = (/ & - &1.2134e-05 ,1.1807e-05 ,1.0673e-05 ,9.1029e-06 ,7.7016e-06 ,8.4861e-06 , & - &1.4567e-05 ,1.5036e-05 ,2.1658e-06 /) - kao(:, 3, 4, 1) = (/ & - &1.6015e-05 ,1.5688e-05 ,1.4339e-05 ,1.2455e-05 ,1.0313e-05 ,8.5777e-06 , & - &1.1331e-05 ,1.8116e-05 ,2.2633e-06 /) - kao(:, 4, 4, 1) = (/ & - &2.0597e-05 ,2.0155e-05 ,1.8480e-05 ,1.6165e-05 ,1.3589e-05 ,1.0837e-05 , & - &9.4849e-06 ,2.1131e-05 ,2.4289e-06 /) - kao(:, 5, 4, 1) = (/ & - &2.5729e-05 ,2.5473e-05 ,2.3255e-05 ,2.0429e-05 ,1.7213e-05 ,1.3828e-05 , & - &1.0618e-05 ,1.5874e-05 ,3.2874e-06 /) - kao(:, 1, 5, 1) = (/ & - &1.6376e-05 ,1.4981e-05 ,1.3148e-05 ,1.1171e-05 ,9.2339e-06 ,7.8648e-06 , & - &1.1215e-05 ,1.5160e-05 ,1.0907e-06 /) - kao(:, 2, 5, 1) = (/ & - &2.2074e-05 ,2.0407e-05 ,1.8083e-05 ,1.5475e-05 ,1.2746e-05 ,1.0050e-05 , & - &1.0049e-05 ,1.8902e-05 ,1.3007e-06 /) - kao(:, 3, 5, 1) = (/ & - &2.9048e-05 ,2.7094e-05 ,2.4278e-05 ,2.1033e-05 ,1.7417e-05 ,1.3618e-05 , & - &1.0309e-05 ,1.5056e-05 ,1.4150e-06 /) - kao(:, 4, 5, 1) = (/ & - &3.7623e-05 ,3.5233e-05 ,3.1800e-05 ,2.7623e-05 ,2.3164e-05 ,1.8269e-05 , & - &1.3014e-05 ,1.1951e-05 ,2.0520e-06 /) - kao(:, 5, 5, 1) = (/ & - &4.7365e-05 ,4.4556e-05 ,4.0255e-05 ,3.5279e-05 ,2.9803e-05 ,2.3695e-05 , & - &1.6824e-05 ,1.0864e-05 ,3.0931e-06 /) - kao(:, 1, 6, 1) = (/ & - &2.9059e-05 ,2.6117e-05 ,2.2727e-05 ,1.9184e-05 ,1.5516e-05 ,1.1998e-05 , & - &9.5851e-06 ,1.6016e-05 ,6.6366e-07 /) - kao(:, 2, 6, 1) = (/ & - &3.9281e-05 ,3.5568e-05 ,3.1182e-05 ,2.6432e-05 ,2.1505e-05 ,1.6402e-05 , & - &1.1717e-05 ,1.2828e-05 ,7.2868e-07 /) - kao(:, 3, 6, 1) = (/ & - &5.2094e-05 ,4.7264e-05 ,4.1432e-05 ,3.5398e-05 ,2.9041e-05 ,2.2416e-05 , & - &1.5568e-05 ,1.1439e-05 ,1.0703e-06 /) - kao(:, 4, 6, 1) = (/ & - &6.7466e-05 ,6.1301e-05 ,5.3945e-05 ,4.6275e-05 ,3.8268e-05 ,2.9782e-05 , & - &2.0926e-05 ,1.2149e-05 ,1.6636e-06 /) - kao(:, 5, 6, 1) = (/ & - &8.5711e-05 ,7.8253e-05 ,6.9113e-05 ,5.9588e-05 ,4.9429e-05 ,3.8720e-05 , & - &2.7357e-05 ,1.5302e-05 ,2.4859e-06 /) - kao(:, 1, 7, 1) = (/ & - &5.4651e-05 ,4.8396e-05 ,4.1917e-05 ,3.5300e-05 ,2.8526e-05 ,2.1678e-05 , & - &1.5027e-05 ,1.1124e-05 ,3.7210e-07 /) - kao(:, 2, 7, 1) = (/ & - &7.4826e-05 ,6.6392e-05 ,5.7621e-05 ,4.8629e-05 ,3.9371e-05 ,2.9959e-05 , & - &2.0404e-05 ,1.1926e-05 ,4.6517e-07 /) - kao(:, 3, 7, 1) = (/ & - &9.9886e-05 ,8.9008e-05 ,7.7375e-05 ,6.5427e-05 ,5.3175e-05 ,4.0667e-05 , & - &2.7777e-05 ,1.4838e-05 ,7.6733e-07 /) - kao(:, 4, 7, 1) = (/ & - &1.3028e-04 ,1.1642e-04 ,1.0145e-04 ,8.5974e-05 ,7.0058e-05 ,5.3698e-05 , & - &3.6993e-05 ,1.9660e-05 ,1.2756e-06 /) - kao(:, 5, 7, 1) = (/ & - &1.6675e-04 ,1.4925e-04 ,1.3030e-04 ,1.1056e-04 ,9.0256e-05 ,6.9412e-05 , & - &4.8077e-05 ,2.5971e-05 ,2.0598e-06 /) - kao(:, 1, 8, 1) = (/ & - &1.3360e-04 ,1.1739e-04 ,1.0102e-04 ,8.4552e-05 ,6.8007e-05 ,5.1398e-05 , & - &3.4619e-05 ,1.8035e-05 ,1.9024e-07 /) - kao(:, 2, 8, 1) = (/ & - &1.8185e-04 ,1.6006e-04 ,1.3792e-04 ,1.1564e-04 ,9.3245e-05 ,7.0615e-05 , & - &4.7676e-05 ,2.4529e-05 ,3.0949e-07 /) - kao(:, 3, 8, 1) = (/ & - &2.4405e-04 ,2.1504e-04 ,1.8547e-04 ,1.5570e-04 ,1.2559e-04 ,9.5220e-05 , & - &6.4517e-05 ,3.3270e-05 ,5.6654e-07 /) - kao(:, 4, 8, 1) = (/ & - &3.2056e-04 ,2.8296e-04 ,2.4441e-04 ,2.0538e-04 ,1.6592e-04 ,1.2607e-04 , & - &8.5723e-05 ,4.4370e-05 ,1.0126e-06 /) - kao(:, 5, 8, 1) = (/ & - &4.1126e-04 ,3.6352e-04 ,3.1426e-04 ,2.6419e-04 ,2.1364e-04 ,1.6265e-04 , & - &1.1079e-04 ,5.7674e-05 ,1.7042e-06 /) - kao(:, 1, 9, 1) = (/ & - &6.2463e-04 ,5.4698e-04 ,4.6923e-04 ,3.9140e-04 ,3.1352e-04 ,2.3558e-04 , & - &1.5756e-04 ,7.9405e-05 ,1.4148e-07 /) - kao(:, 2, 9, 1) = (/ & - &8.5834e-04 ,7.5200e-04 ,6.4533e-04 ,5.3850e-04 ,4.3155e-04 ,3.2449e-04 , & - &2.1732e-04 ,1.0986e-04 ,2.9809e-07 /) - kao(:, 3, 9, 1) = (/ & - &1.1576e-03 ,1.0147e-03 ,8.7098e-04 ,7.2712e-04 ,5.8298e-04 ,4.3871e-04 , & - &2.9418e-04 ,1.4894e-04 ,5.9602e-07 /) - kao(:, 4, 9, 1) = (/ & - &1.5307e-03 ,1.3423e-03 ,1.1527e-03 ,9.6254e-04 ,7.7214e-04 ,5.8148e-04 , & - &3.9028e-04 ,1.9773e-04 ,1.1255e-06 /) - kao(:, 5, 9, 1) = (/ & - &1.9847e-03 ,1.7410e-03 ,1.4953e-03 ,1.2490e-03 ,1.0025e-03 ,7.5537e-04 , & - &5.0679e-04 ,2.5732e-04 ,1.9162e-06 /) - kao(:, 1,10, 1) = (/ & - &3.6169e-03 ,3.1652e-03 ,2.7133e-03 ,2.2615e-03 ,1.8097e-03 ,1.3577e-03 , & - &9.0574e-04 ,4.5358e-04 ,1.4845e-07 /) - kao(:, 2,10, 1) = (/ & - &4.9699e-03 ,4.3495e-03 ,3.7290e-03 ,3.1084e-03 ,2.4876e-03 ,1.8667e-03 , & - &1.2456e-03 ,6.2420e-04 ,3.2434e-07 /) - kao(:, 3,10, 1) = (/ & - &6.7347e-03 ,5.8945e-03 ,5.0543e-03 ,4.2138e-03 ,3.3728e-03 ,2.5314e-03 , & - &1.6895e-03 ,8.4729e-04 ,6.8830e-07 /) - kao(:, 4,10, 1) = (/ & - &8.9371e-03 ,7.8231e-03 ,6.7088e-03 ,5.5938e-03 ,4.4779e-03 ,3.3612e-03 , & - &2.2441e-03 ,1.1262e-03 ,1.3449e-06 /) - kao(:, 5,10, 1) = (/ & - &1.1613e-02 ,1.0166e-02 ,8.7190e-03 ,7.2700e-03 ,5.8199e-03 ,4.3690e-03 , & - &2.9176e-03 ,1.4653e-03 ,2.4729e-06 /) - kao(:, 1,11, 1) = (/ & - &8.2249e-03 ,7.1970e-03 ,6.1693e-03 ,5.1415e-03 ,4.1138e-03 ,3.0859e-03 , & - &2.0579e-03 ,1.0298e-03 ,1.4864e-07 /) - kao(:, 2,11, 1) = (/ & - &1.1270e-02 ,9.8625e-03 ,8.4545e-03 ,7.0466e-03 ,5.6386e-03 ,4.2301e-03 , & - &2.8215e-03 ,1.4124e-03 ,3.4574e-07 /) - kao(:, 3,11, 1) = (/ & - &1.5223e-02 ,1.3322e-02 ,1.1421e-02 ,9.5200e-03 ,7.6187e-03 ,5.7167e-03 , & - &3.8140e-03 ,1.9100e-03 ,7.2590e-07 /) - kao(:, 4,11, 1) = (/ & - &2.0093e-02 ,1.7585e-02 ,1.5077e-02 ,1.2568e-02 ,1.0059e-02 ,7.5477e-03 , & - &5.0358e-03 ,2.5228e-03 ,1.4168e-06 /) - kao(:, 5,11, 1) = (/ & - &2.5957e-02 ,2.2717e-02 ,1.9478e-02 ,1.6238e-02 ,1.2998e-02 ,9.7533e-03 , & - &6.5080e-03 ,3.2606e-03 ,2.6860e-06 /) - kao(:, 1,12, 1) = (/ & - &1.1827e-02 ,1.0349e-02 ,8.8708e-03 ,7.3929e-03 ,5.9148e-03 ,4.4367e-03 , & - &2.9587e-03 ,1.4802e-03 ,1.3931e-07 /) - kao(:, 2,12, 1) = (/ & - &1.6211e-02 ,1.4185e-02 ,1.2160e-02 ,1.0134e-02 ,8.1087e-03 ,6.0831e-03 , & - &4.0569e-03 ,2.0301e-03 ,3.2171e-07 /) - kao(:, 3,12, 1) = (/ & - &2.1828e-02 ,1.9101e-02 ,1.6374e-02 ,1.3648e-02 ,1.0921e-02 ,8.1937e-03 , & - &5.4651e-03 ,2.7355e-03 ,6.8081e-07 /) - kao(:, 4,12, 1) = (/ & - &2.8730e-02 ,2.5142e-02 ,2.1554e-02 ,1.7967e-02 ,1.4379e-02 ,1.0788e-02 , & - &7.1961e-03 ,3.6027e-03 ,1.3459e-06 /) - kao(:, 5,12, 1) = (/ & - &3.6999e-02 ,3.2380e-02 ,2.7760e-02 ,2.3140e-02 ,1.8520e-02 ,1.3896e-02 , & - &9.2700e-03 ,4.6424e-03 ,2.5690e-06 /) - kao(:, 1,13, 1) = (/ & - &1.3632e-02 ,1.1928e-02 ,1.0225e-02 ,8.5212e-03 ,6.8176e-03 ,5.1139e-03 , & - &3.4100e-03 ,1.7059e-03 ,1.1695e-07 /) - kao(:, 2,13, 1) = (/ & - &1.8706e-02 ,1.6369e-02 ,1.4031e-02 ,1.1694e-02 ,9.3569e-03 ,7.0195e-03 , & - &4.6811e-03 ,2.3422e-03 ,2.7119e-07 /) - kao(:, 3,13, 1) = (/ & - &2.5132e-02 ,2.1993e-02 ,1.8852e-02 ,1.5713e-02 ,1.2573e-02 ,9.4331e-03 , & - &6.2911e-03 ,3.1482e-03 ,5.7144e-07 /) - kao(:, 4,13, 1) = (/ & - &3.3041e-02 ,2.8914e-02 ,2.4787e-02 ,2.0660e-02 ,1.6533e-02 ,1.2406e-02 , & - &8.2739e-03 ,4.1414e-03 ,1.1335e-06 /) - kao(:, 5,13, 1) = (/ & - &4.2440e-02 ,3.7140e-02 ,3.1841e-02 ,2.6541e-02 ,2.1241e-02 ,1.5937e-02 , & - &1.0630e-02 ,5.3218e-03 ,2.1676e-06 /) - kao(:, 1, 1, 2) = (/ & - &4.1413e-06 ,5.7568e-06 ,5.6875e-06 ,2.2265e-05 ,2.6421e-05 ,2.7053e-05 , & - &2.9360e-05 ,4.0970e-05 ,1.4958e-05 /) - kao(:, 2, 1, 2) = (/ & - &5.1991e-06 ,7.4465e-06 ,7.4944e-06 ,1.1514e-05 ,2.6560e-05 ,2.7448e-05 , & - &2.9314e-05 ,3.8310e-05 ,1.7668e-05 /) - kao(:, 3, 1, 2) = (/ & - &6.3145e-06 ,9.3150e-06 ,9.9659e-06 ,1.0415e-05 ,2.4448e-05 ,2.8503e-05 , & - &3.1282e-05 ,4.1769e-05 ,1.5395e-05 /) - kao(:, 4, 1, 2) = (/ & - &7.5825e-06 ,1.1197e-05 ,1.2631e-05 ,1.2849e-05 ,1.2505e-05 ,2.7705e-05 , & - &3.1429e-05 ,4.1459e-05 ,1.9577e-05 /) - kao(:, 5, 1, 2) = (/ & - &9.0691e-06 ,1.3548e-05 ,1.5444e-05 ,1.5939e-05 ,1.4634e-05 ,2.1478e-05 , & - &3.0373e-05 ,4.6504e-05 ,1.5074e-05 /) - kao(:, 1, 2, 2) = (/ & - &6.1165e-06 ,7.4934e-06 ,6.8625e-06 ,7.6121e-06 ,3.0817e-05 ,3.2183e-05 , & - &3.0483e-05 ,3.3496e-05 ,1.0690e-05 /) - kao(:, 2, 2, 2) = (/ & - &7.6538e-06 ,9.6280e-06 ,9.7301e-06 ,8.1097e-06 ,1.6826e-05 ,3.2430e-05 , & - &3.0532e-05 ,3.1851e-05 ,9.7120e-06 /) - kao(:, 3, 2, 2) = (/ & - &9.2709e-06 ,1.2057e-05 ,1.2568e-05 ,1.1762e-05 ,1.2621e-05 ,3.1032e-05 , & - &3.2269e-05 ,3.2750e-05 ,1.1309e-05 /) - kao(:, 4, 2, 2) = (/ & - &1.1033e-05 ,1.5040e-05 ,1.5728e-05 ,1.5466e-05 ,1.4259e-05 ,1.7169e-05 , & - &3.1754e-05 ,3.4497e-05 ,1.2084e-05 /) - kao(:, 5, 2, 2) = (/ & - &1.2896e-05 ,1.7847e-05 ,1.9251e-05 ,1.9193e-05 ,1.8160e-05 ,1.5443e-05 , & - &2.9856e-05 ,3.4316e-05 ,1.0107e-05 /) - kao(:, 1, 3, 2) = (/ & - &1.2491e-05 ,1.2769e-05 ,1.2392e-05 ,1.0198e-05 ,9.0495e-06 ,2.4479e-05 , & - &4.2929e-05 ,3.4687e-05 ,5.7323e-06 /) - kao(:, 2, 3, 2) = (/ & - &1.5715e-05 ,1.6378e-05 ,1.5890e-05 ,1.4699e-05 ,1.1686e-05 ,1.2801e-05 , & - &4.3476e-05 ,3.5317e-05 ,5.8828e-06 /) - kao(:, 3, 3, 2) = (/ & - &1.9226e-05 ,2.0527e-05 ,2.0237e-05 ,1.8901e-05 ,1.6806e-05 ,1.2767e-05 , & - &3.2801e-05 ,3.5650e-05 ,7.0460e-06 /) - kao(:, 4, 3, 2) = (/ & - &2.3182e-05 ,2.5284e-05 ,2.5183e-05 ,2.3943e-05 ,2.1697e-05 ,1.8156e-05 , & - &1.6231e-05 ,3.6132e-05 ,6.5848e-06 /) - kao(:, 5, 3, 2) = (/ & - &2.7146e-05 ,3.0591e-05 ,3.0801e-05 ,2.9528e-05 ,2.6930e-05 ,2.3450e-05 , & - &1.7771e-05 ,3.6010e-05 ,8.7258e-06 /) - kao(:, 1, 4, 2) = (/ & - &2.6397e-05 ,2.4798e-05 ,2.2448e-05 ,1.9931e-05 ,1.6167e-05 ,1.1187e-05 , & - &1.9967e-05 ,5.0094e-05 ,2.6889e-06 /) - kao(:, 2, 4, 2) = (/ & - &3.3110e-05 ,3.1403e-05 ,2.8621e-05 ,2.5685e-05 ,2.2077e-05 ,1.6320e-05 , & - &1.2528e-05 ,5.0766e-05 ,3.5011e-06 /) - kao(:, 3, 4, 2) = (/ & - &4.1079e-05 ,3.9262e-05 ,3.5800e-05 ,3.2065e-05 ,2.7986e-05 ,2.3135e-05 , & - &1.5357e-05 ,4.2293e-05 ,3.6570e-06 /) - kao(:, 4, 4, 2) = (/ & - &4.9814e-05 ,4.8178e-05 ,4.4142e-05 ,4.0008e-05 ,3.5086e-05 ,2.9575e-05 , & - &2.2305e-05 ,2.4338e-05 ,5.5271e-06 /) - kao(:, 5, 4, 2) = (/ & - &5.8999e-05 ,5.7911e-05 ,5.3941e-05 ,4.9131e-05 ,4.3508e-05 ,3.6745e-05 , & - &2.8595e-05 ,1.7749e-05 ,7.9465e-06 /) - kao(:, 1, 5, 2) = (/ & - &5.2146e-05 ,4.7415e-05 ,4.1895e-05 ,3.6100e-05 ,2.9831e-05 ,2.2853e-05 , & - &1.2797e-05 ,3.5615e-05 ,1.8756e-06 /) - kao(:, 2, 5, 2) = (/ & - &6.6386e-05 ,6.0667e-05 ,5.3871e-05 ,4.6587e-05 ,3.8801e-05 ,3.0645e-05 , & - &1.9749e-05 ,1.7747e-05 ,1.8651e-06 /) - kao(:, 3, 5, 2) = (/ & - &8.2249e-05 ,7.5613e-05 ,6.7372e-05 ,5.8338e-05 ,4.8872e-05 ,3.9037e-05 , & - &2.7917e-05 ,1.3785e-05 ,2.9415e-06 /) - kao(:, 4, 5, 2) = (/ & - &1.0042e-04 ,9.2832e-05 ,8.2527e-05 ,7.1569e-05 ,6.0116e-05 ,4.8290e-05 , & - &3.5743e-05 ,1.9373e-05 ,4.5717e-06 /) - kao(:, 5, 5, 2) = (/ & - &1.2062e-04 ,1.1245e-04 ,1.0036e-04 ,8.7051e-05 ,7.3237e-05 ,5.8949e-05 , & - &4.4093e-05 ,2.6901e-05 ,6.6085e-06 /) - kao(:, 1, 6, 2) = (/ & - &9.7868e-05 ,8.7352e-05 ,7.6231e-05 ,6.4624e-05 ,5.2909e-05 ,4.0689e-05 , & - &2.7103e-05 ,1.2458e-05 ,1.0529e-06 /) - kao(:, 2, 6, 2) = (/ & - &1.2683e-04 ,1.1378e-04 ,9.9028e-05 ,8.4157e-05 ,6.8945e-05 ,5.3462e-05 , & - &3.6917e-05 ,1.5991e-05 ,1.3630e-06 /) - kao(:, 3, 6, 2) = (/ & - &1.5959e-04 ,1.4323e-04 ,1.2528e-04 ,1.0669e-04 ,8.7707e-05 ,6.8030e-05 , & - &4.7823e-05 ,2.4263e-05 ,2.3097e-06 /) - kao(:, 4, 6, 2) = (/ & - &1.9648e-04 ,1.7730e-04 ,1.5536e-04 ,1.3239e-04 ,1.0876e-04 ,8.4595e-05 , & - &5.9848e-05 ,3.3068e-05 ,3.7113e-06 /) - kao(:, 5, 6, 2) = (/ & - &2.3620e-04 ,2.1365e-04 ,1.8738e-04 ,1.5973e-04 ,1.3145e-04 ,1.0268e-04 , & - &7.2957e-05 ,4.1703e-05 ,5.6387e-06 /) - kao(:, 1, 7, 2) = (/ & - &1.9683e-04 ,1.7373e-04 ,1.5000e-04 ,1.2604e-04 ,1.0197e-04 ,7.7797e-05 , & - &5.2829e-05 ,2.4870e-05 ,6.2713e-07 /) - kao(:, 2, 7, 2) = (/ & - &2.5760e-04 ,2.2793e-04 ,1.9707e-04 ,1.6593e-04 ,1.3495e-04 ,1.0291e-04 , & - &7.0455e-05 ,3.6046e-05 ,1.0898e-06 /) - kao(:, 3, 7, 2) = (/ & - &3.2772e-04 ,2.9045e-04 ,2.5191e-04 ,2.1251e-04 ,1.7232e-04 ,1.3160e-04 , & - &9.0425e-05 ,4.7870e-05 ,1.9368e-06 /) - kao(:, 4, 7, 2) = (/ & - &4.0755e-04 ,3.6253e-04 ,3.1479e-04 ,2.6553e-04 ,2.1537e-04 ,1.6486e-04 , & - &1.1337e-04 ,6.0602e-05 ,3.1700e-06 /) - kao(:, 5, 7, 2) = (/ & - &4.9614e-04 ,4.4343e-04 ,3.8479e-04 ,3.2448e-04 ,2.6368e-04 ,2.0203e-04 , & - &1.3939e-04 ,7.4791e-05 ,4.9446e-06 /) - kao(:, 1, 8, 2) = (/ & - &5.0097e-04 ,4.3939e-04 ,3.7796e-04 ,3.1605e-04 ,2.5384e-04 ,1.9144e-04 , & - &1.2886e-04 ,6.5770e-05 ,4.5473e-07 /) - kao(:, 2, 8, 2) = (/ & - &6.6297e-04 ,5.8193e-04 ,5.0094e-04 ,4.1901e-04 ,3.3675e-04 ,2.5431e-04 , & - &1.7173e-04 ,8.8413e-05 ,9.2809e-07 /) - kao(:, 3, 8, 2) = (/ & - &8.5051e-04 ,7.4751e-04 ,6.4368e-04 ,5.3885e-04 ,4.3363e-04 ,3.2808e-04 , & - &2.2228e-04 ,1.1512e-04 ,1.7364e-06 /) - kao(:, 4, 8, 2) = (/ & - &1.0693e-03 ,9.4111e-04 ,8.1096e-04 ,6.7960e-04 ,5.4760e-04 ,4.1579e-04 , & - &2.8187e-04 ,1.4563e-04 ,2.9681e-06 /) - kao(:, 5, 8, 2) = (/ & - &1.3123e-03 ,1.1563e-03 ,9.9722e-04 ,8.3695e-04 ,6.7599e-04 ,5.1257e-04 , & - &3.4753e-04 ,1.7994e-04 ,4.7447e-06 /) - kao(:, 1, 9, 2) = (/ & - &2.4740e-03 ,2.1654e-03 ,1.8568e-03 ,1.5484e-03 ,1.2400e-03 ,9.3161e-04 , & - &6.2283e-04 ,3.1298e-04 ,4.6685e-07 /) - kao(:, 2, 9, 2) = (/ & - &3.2850e-03 ,2.8753e-03 ,2.4661e-03 ,2.0570e-03 ,1.6482e-03 ,1.2389e-03 , & - &8.2844e-04 ,4.1698e-04 ,9.7197e-07 /) - kao(:, 3, 9, 2) = (/ & - &4.2422e-03 ,3.7138e-03 ,3.1860e-03 ,2.6588e-03 ,2.1312e-03 ,1.6022e-03 , & - &1.0719e-03 ,5.4052e-04 ,1.8767e-06 /) - kao(:, 4, 9, 2) = (/ & - &5.3553e-03 ,4.6891e-03 ,4.0243e-03 ,3.3598e-03 ,2.6939e-03 ,2.0261e-03 , & - &1.3568e-03 ,6.8626e-04 ,3.3456e-06 /) - kao(:, 5, 9, 2) = (/ & - &6.6220e-03 ,5.7995e-03 ,4.9792e-03 ,4.1587e-03 ,3.3345e-03 ,2.5085e-03 , & - &1.6821e-03 ,8.5317e-04 ,5.6245e-06 /) - kao(:, 1,10, 2) = (/ & - &1.5050e-02 ,1.3169e-02 ,1.1289e-02 ,9.4076e-03 ,7.5270e-03 ,5.6463e-03 , & - &3.7658e-03 ,1.8853e-03 ,4.7266e-07 /) - kao(:, 2,10, 2) = (/ & - &1.9971e-02 ,1.7476e-02 ,1.4981e-02 ,1.2485e-02 ,9.9900e-03 ,7.4947e-03 , & - &4.9999e-03 ,2.5053e-03 ,1.0606e-06 /) - kao(:, 3,10, 2) = (/ & - &2.5996e-02 ,2.2748e-02 ,1.9499e-02 ,1.6252e-02 ,1.3005e-02 ,9.7575e-03 , & - &6.5102e-03 ,3.2633e-03 ,2.1957e-06 /) - kao(:, 4,10, 2) = (/ & - &3.3067e-02 ,2.8935e-02 ,2.4804e-02 ,2.0673e-02 ,1.6543e-02 ,1.2414e-02 , & - &8.2853e-03 ,4.1549e-03 ,4.2322e-06 /) - kao(:, 5,10, 2) = (/ & - &4.1113e-02 ,3.5978e-02 ,3.0842e-02 ,2.5708e-02 ,2.0575e-02 ,1.5443e-02 , & - &1.0311e-02 ,5.1716e-03 ,7.6651e-06 /) - kao(:, 1,11, 2) = (/ & - &3.5447e-02 ,3.1017e-02 ,2.6586e-02 ,2.2156e-02 ,1.7726e-02 ,1.3295e-02 , & - &8.8649e-03 ,4.4348e-03 ,5.0606e-07 /) - kao(:, 2,11, 2) = (/ & - &4.6742e-02 ,4.0900e-02 ,3.5058e-02 ,2.9216e-02 ,2.3374e-02 ,1.7532e-02 , & - &1.1691e-02 ,5.8504e-03 ,1.1095e-06 /) - kao(:, 3,11, 2) = (/ & - &6.0406e-02 ,5.2857e-02 ,4.5306e-02 ,3.7757e-02 ,3.0208e-02 ,2.2660e-02 , & - &1.5111e-02 ,7.5645e-03 ,2.3165e-06 /) - kao(:, 4,11, 2) = (/ & - &7.6519e-02 ,6.6955e-02 ,5.7393e-02 ,4.7830e-02 ,3.8268e-02 ,2.8708e-02 , & - &1.9148e-02 ,9.5895e-03 ,4.5048e-06 /) - kao(:, 5,11, 2) = (/ & - &9.5074e-02 ,8.3196e-02 ,7.1315e-02 ,5.9435e-02 ,4.7553e-02 ,3.5677e-02 , & - &2.3800e-02 ,1.1926e-02 ,8.0597e-06 /) - kao(:, 1,12, 2) = (/ & - &5.2692e-02 ,4.6104e-02 ,3.9518e-02 ,3.2933e-02 ,2.6346e-02 ,1.9761e-02 , & - &1.3176e-02 ,6.5900e-03 ,4.7314e-07 /) - kao(:, 2,12, 2) = (/ & - &6.9235e-02 ,6.0581e-02 ,5.1926e-02 ,4.3273e-02 ,3.4620e-02 ,2.5967e-02 , & - &1.7314e-02 ,8.6616e-03 ,1.0517e-06 /) - kao(:, 3,12, 2) = (/ & - &8.9222e-02 ,7.8070e-02 ,6.6918e-02 ,5.5767e-02 ,4.4616e-02 ,3.3465e-02 , & - &2.2315e-02 ,1.1167e-02 ,2.1820e-06 /) - kao(:, 4,12, 2) = (/ & - &1.1266e-01 ,9.8579e-02 ,8.4496e-02 ,7.0418e-02 ,5.6336e-02 ,4.2258e-02 , & - &2.8182e-02 ,1.4107e-02 ,4.2014e-06 /) - kao(:, 5,12, 2) = (/ & - &1.3942e-01 ,1.2199e-01 ,1.0457e-01 ,8.7148e-02 ,6.9722e-02 ,5.2304e-02 , & - &3.4887e-02 ,1.7469e-02 ,7.4819e-06 /) - kao(:, 1,13, 2) = (/ & - &6.2876e-02 ,5.5018e-02 ,4.7159e-02 ,3.9299e-02 ,3.1440e-02 ,2.3581e-02 , & - &1.5722e-02 ,7.8632e-03 ,4.0954e-07 /) - kao(:, 2,13, 2) = (/ & - &8.2400e-02 ,7.2100e-02 ,6.1801e-02 ,5.1502e-02 ,4.1203e-02 ,3.0903e-02 , & - &2.0605e-02 ,1.0307e-02 ,9.1322e-07 /) - kao(:, 3,13, 2) = (/ & - &1.0586e-01 ,9.2633e-02 ,7.9402e-02 ,6.6169e-02 ,5.2938e-02 ,3.9706e-02 , & - &2.6476e-02 ,1.3248e-02 ,1.8983e-06 /) - kao(:, 4,13, 2) = (/ & - &1.3330e-01 ,1.1664e-01 ,9.9979e-02 ,8.3320e-02 ,6.6657e-02 ,4.9998e-02 , & - &3.3342e-02 ,1.6688e-02 ,3.6054e-06 /) - kao(:, 5,13, 2) = (/ & - &1.6451e-01 ,1.4395e-01 ,1.2339e-01 ,1.0283e-01 ,8.2267e-02 ,6.1710e-02 , & - &4.1158e-02 ,2.0605e-02 ,6.1726e-06 /) - kao(:, 1, 1, 3) = (/ & - &1.0158e-05 ,1.3198e-05 ,1.2933e-05 ,1.7710e-05 ,3.0455e-05 ,3.0829e-05 , & - &3.6460e-05 ,4.7058e-05 ,1.7479e-05 /) - kao(:, 2, 1, 3) = (/ & - &1.1438e-05 ,1.5570e-05 ,1.6943e-05 ,1.4755e-05 ,2.6165e-05 ,3.0134e-05 , & - &3.4781e-05 ,5.6113e-05 ,2.1722e-05 /) - kao(:, 3, 1, 3) = (/ & - &1.2956e-05 ,1.8129e-05 ,1.9971e-05 ,1.8485e-05 ,1.6628e-05 ,3.1264e-05 , & - &3.4010e-05 ,5.1158e-05 ,2.4518e-05 /) - kao(:, 4, 1, 3) = (/ & - &1.4615e-05 ,2.0830e-05 ,2.2660e-05 ,2.2625e-05 ,1.9967e-05 ,2.4812e-05 , & - &3.9103e-05 ,5.0423e-05 ,1.7758e-05 /) - kao(:, 5, 1, 3) = (/ & - &1.6017e-05 ,2.3480e-05 ,2.5498e-05 ,2.6186e-05 ,2.5773e-05 ,1.9360e-05 , & - &3.6373e-05 ,5.8002e-05 ,2.1777e-05 /) - kao(:, 1, 2, 3) = (/ & - &1.6325e-05 ,1.8415e-05 ,1.8317e-05 ,1.4470e-05 ,2.4482e-05 ,3.9161e-05 , & - &3.6427e-05 ,3.6776e-05 ,1.2226e-05 /) - kao(:, 2, 2, 3) = (/ & - &1.8436e-05 ,2.1492e-05 ,2.2101e-05 ,2.0928e-05 ,1.7486e-05 ,3.4569e-05 , & - &3.4173e-05 ,4.1432e-05 ,1.6945e-05 /) - kao(:, 3, 2, 3) = (/ & - &2.0725e-05 ,2.4812e-05 ,2.5608e-05 ,2.5315e-05 ,2.0861e-05 ,2.2865e-05 , & - &3.3858e-05 ,3.7106e-05 ,1.4100e-05 /) - kao(:, 4, 2, 3) = (/ & - &2.3257e-05 ,2.7888e-05 ,2.9222e-05 ,2.9285e-05 ,2.7055e-05 ,2.2581e-05 , & - &3.3589e-05 ,3.8281e-05 ,1.2084e-05 /) - kao(:, 5, 2, 3) = (/ & - &2.5809e-05 ,3.1443e-05 ,3.3009e-05 ,3.2988e-05 ,3.1499e-05 ,2.8005e-05 , & - &2.1824e-05 ,4.6522e-05 ,1.8788e-05 /) - kao(:, 1, 3, 3) = (/ & - &3.6153e-05 ,3.6160e-05 ,3.3889e-05 ,3.0515e-05 ,2.3824e-05 ,2.0510e-05 , & - &5.5046e-05 ,4.3679e-05 ,8.4874e-06 /) - kao(:, 2, 3, 3) = (/ & - &4.1441e-05 ,4.2015e-05 ,3.9744e-05 ,3.6451e-05 ,3.1872e-05 ,2.2157e-05 , & - &3.7036e-05 ,4.0290e-05 ,7.7192e-06 /) - kao(:, 3, 3, 3) = (/ & - &4.6667e-05 ,4.8191e-05 ,4.5785e-05 ,4.2457e-05 ,3.7818e-05 ,3.1272e-05 , & - &2.3354e-05 ,3.9936e-05 ,6.8348e-06 /) - kao(:, 4, 3, 3) = (/ & - &5.1877e-05 ,5.4060e-05 ,5.1719e-05 ,4.8126e-05 ,4.3652e-05 ,3.8051e-05 , & - &2.7576e-05 ,4.1113e-05 ,1.0881e-05 /) - kao(:, 5, 3, 3) = (/ & - &5.7673e-05 ,6.0087e-05 ,5.7843e-05 ,5.4035e-05 ,4.9732e-05 ,4.3859e-05 , & - &3.4661e-05 ,3.3926e-05 ,1.5564e-05 /) - kao(:, 1, 4, 3) = (/ & - &8.1569e-05 ,7.6506e-05 ,6.9052e-05 ,6.0598e-05 ,5.1130e-05 ,3.9208e-05 , & - &2.1647e-05 ,7.1331e-05 ,4.7464e-06 /) - kao(:, 2, 4, 3) = (/ & - &9.5409e-05 ,8.9513e-05 ,8.1016e-05 ,7.1228e-05 ,6.0322e-05 ,4.8270e-05 , & - &3.1172e-05 ,4.9123e-05 ,3.8536e-06 /) - kao(:, 3, 4, 3) = (/ & - &1.0835e-04 ,1.0286e-04 ,9.3383e-05 ,8.2438e-05 ,7.0089e-05 ,5.7019e-05 , & - &4.1480e-05 ,3.2272e-05 ,5.8347e-06 /) - kao(:, 4, 4, 3) = (/ & - &1.2088e-04 ,1.1587e-04 ,1.0589e-04 ,9.3297e-05 ,7.9862e-05 ,6.5329e-05 , & - &4.9231e-05 ,2.5421e-05 ,9.1036e-06 /) - kao(:, 5, 4, 3) = (/ & - &1.3349e-04 ,1.2852e-04 ,1.1738e-04 ,1.0384e-04 ,8.9286e-05 ,7.3614e-05 , & - &5.6906e-05 ,3.4260e-05 ,1.3290e-05 /) - kao(:, 1, 5, 3) = (/ & - &1.7345e-04 ,1.5727e-04 ,1.3841e-04 ,1.1872e-04 ,9.8241e-05 ,7.6833e-05 , & - &5.2762e-05 ,2.6555e-05 ,1.9880e-06 /) - kao(:, 2, 5, 3) = (/ & - &2.0342e-04 ,1.8508e-04 ,1.6349e-04 ,1.4064e-04 ,1.1678e-04 ,9.1597e-05 , & - &6.4678e-05 ,2.5634e-05 ,3.0971e-06 /) - kao(:, 3, 5, 3) = (/ & - &2.3455e-04 ,2.1397e-04 ,1.8954e-04 ,1.6295e-04 ,1.3528e-04 ,1.0632e-04 , & - &7.5971e-05 ,4.0302e-05 ,5.0300e-06 /) - kao(:, 4, 5, 3) = (/ & - &2.6426e-04 ,2.4201e-04 ,2.1476e-04 ,1.8503e-04 ,1.5431e-04 ,1.2132e-04 , & - &8.7057e-05 ,4.9691e-05 ,7.6275e-06 /) - kao(:, 5, 5, 3) = (/ & - &2.9276e-04 ,2.6878e-04 ,2.3851e-04 ,2.0652e-04 ,1.7242e-04 ,1.3630e-04 , & - &9.8498e-05 ,5.7853e-05 ,1.1134e-05 /) - kao(:, 1, 6, 3) = (/ & - &3.5315e-04 ,3.1458e-04 ,2.7325e-04 ,2.3096e-04 ,1.8808e-04 ,1.4453e-04 , & - &9.9918e-05 ,4.6331e-05 ,1.2347e-06 /) - kao(:, 2, 6, 3) = (/ & - &4.1518e-04 ,3.7021e-04 ,3.2222e-04 ,2.7318e-04 ,2.2345e-04 ,1.7257e-04 , & - &1.2006e-04 ,6.3507e-05 ,2.6453e-06 /) - kao(:, 3, 6, 3) = (/ & - &4.8020e-04 ,4.2942e-04 ,3.7435e-04 ,3.1847e-04 ,2.6105e-04 ,2.0180e-04 , & - &1.4068e-04 ,7.6253e-05 ,4.2798e-06 /) - kao(:, 4, 6, 3) = (/ & - &5.4571e-04 ,4.8797e-04 ,4.2639e-04 ,3.6432e-04 ,2.9826e-04 ,2.3028e-04 , & - &1.6074e-04 ,8.8155e-05 ,6.6580e-06 /) - kao(:, 5, 6, 3) = (/ & - &6.1051e-04 ,5.4685e-04 ,4.8080e-04 ,4.0919e-04 ,3.3486e-04 ,2.5913e-04 , & - &1.8080e-04 ,9.9384e-05 ,9.9722e-06 /) - kao(:, 1, 7, 3) = (/ & - &7.5693e-04 ,6.6624e-04 ,5.7513e-04 ,4.8344e-04 ,3.9061e-04 ,2.9600e-04 , & - &2.0095e-04 ,1.0427e-04 ,1.0591e-06 /) - kao(:, 2, 7, 3) = (/ & - &8.9608e-04 ,7.8973e-04 ,6.8311e-04 ,5.7440e-04 ,4.6329e-04 ,3.5236e-04 , & - &2.4053e-04 ,1.2653e-04 ,2.0677e-06 /) - kao(:, 3, 7, 3) = (/ & - &1.0434e-03 ,9.2160e-04 ,7.9776e-04 ,6.7036e-04 ,5.4238e-04 ,4.1393e-04 , & - &2.8414e-04 ,1.5011e-04 ,3.4509e-06 /) - kao(:, 4, 7, 3) = (/ & - &1.1912e-03 ,1.0536e-03 ,9.1065e-04 ,7.6644e-04 ,6.2208e-04 ,4.7601e-04 , & - &3.2680e-04 ,1.7285e-04 ,5.5547e-06 /) - kao(:, 5, 7, 3) = (/ & - &1.3354e-03 ,1.1809e-03 ,1.0220e-03 ,8.6241e-04 ,7.0147e-04 ,5.3735e-04 , & - &3.6893e-04 ,1.9541e-04 ,8.3477e-06 /) - kao(:, 1, 8, 3) = (/ & - &2.0322e-03 ,1.7810e-03 ,1.5293e-03 ,1.2777e-03 ,1.0262e-03 ,7.7431e-04 , & - &5.2105e-04 ,2.6538e-04 ,9.6103e-07 /) - kao(:, 2, 8, 3) = (/ & - &2.4399e-03 ,2.1393e-03 ,1.8380e-03 ,1.5373e-03 ,1.2364e-03 ,9.3375e-04 , & - &6.2913e-04 ,3.2110e-04 ,1.7921e-06 /) - kao(:, 3, 8, 3) = (/ & - &2.8537e-03 ,2.5030e-03 ,2.1528e-03 ,1.8027e-03 ,1.4507e-03 ,1.0966e-03 , & - &7.3847e-04 ,3.7883e-04 ,3.0446e-06 /) - kao(:, 4, 8, 3) = (/ & - &3.2833e-03 ,2.8808e-03 ,2.4800e-03 ,2.0779e-03 ,1.6729e-03 ,1.2622e-03 , & - &8.5179e-04 ,4.3974e-04 ,4.8671e-06 /) - kao(:, 5, 8, 3) = (/ & - &3.6992e-03 ,3.2483e-03 ,2.7990e-03 ,2.3454e-03 ,1.8857e-03 ,1.4259e-03 , & - &9.6561e-04 ,4.9917e-04 ,7.5866e-06 /) - kao(:, 1, 9, 3) = (/ & - &1.0280e-02 ,8.9965e-03 ,7.7134e-03 ,6.4300e-03 ,5.1466e-03 ,3.8628e-03 , & - &2.5792e-03 ,1.2964e-03 ,9.2162e-07 /) - kao(:, 2, 9, 3) = (/ & - &1.2564e-02 ,1.0997e-02 ,9.4289e-03 ,7.8609e-03 ,6.2929e-03 ,4.7248e-03 , & - &3.1577e-03 ,1.5902e-03 ,1.8412e-06 /) - kao(:, 3, 9, 3) = (/ & - &1.4876e-02 ,1.3021e-02 ,1.1166e-02 ,9.3099e-03 ,7.4544e-03 ,5.6000e-03 , & - &3.7464e-03 ,1.8890e-03 ,3.6551e-06 /) - kao(:, 4, 9, 3) = (/ & - &1.7233e-02 ,1.5085e-02 ,1.2936e-02 ,1.0788e-02 ,8.6402e-03 ,6.4946e-03 , & - &4.3480e-03 ,2.1937e-03 ,6.4505e-06 /) - kao(:, 5, 9, 3) = (/ & - &1.9529e-02 ,1.7097e-02 ,1.4665e-02 ,1.2232e-02 ,9.8022e-03 ,7.3739e-03 , & - &4.9380e-03 ,2.4934e-03 ,1.0329e-05 /) - kao(:, 1,10, 3) = (/ & - &6.2934e-02 ,5.5068e-02 ,4.7203e-02 ,3.9337e-02 ,3.1472e-02 ,2.3606e-02 , & - &1.5740e-02 ,7.8743e-03 ,1.2141e-06 /) - kao(:, 2,10, 3) = (/ & - &7.7985e-02 ,6.8239e-02 ,5.8492e-02 ,4.8746e-02 ,3.8999e-02 ,2.9252e-02 , & - &1.9507e-02 ,9.7597e-03 ,2.5517e-06 /) - kao(:, 3,10, 3) = (/ & - &9.3312e-02 ,8.1650e-02 ,6.9991e-02 ,5.8328e-02 ,4.6667e-02 ,3.5007e-02 , & - &2.3345e-02 ,1.1684e-02 ,4.6909e-06 /) - kao(:, 4,10, 3) = (/ & - &1.0852e-01 ,9.4962e-02 ,8.1401e-02 ,6.7840e-02 ,5.4279e-02 ,4.0718e-02 , & - &2.7157e-02 ,1.3598e-02 ,7.7426e-06 /) - kao(:, 5,10, 3) = (/ & - &1.2387e-01 ,1.0840e-01 ,9.2920e-02 ,7.7443e-02 ,6.1965e-02 ,4.6488e-02 , & - &3.1009e-02 ,1.5537e-02 ,1.2033e-05 /) - kao(:, 1,11, 3) = (/ & - &1.4431e-01 ,1.2627e-01 ,1.0823e-01 ,9.0195e-02 ,7.2157e-02 ,5.4120e-02 , & - &3.6082e-02 ,1.8045e-02 ,1.2885e-06 /) - kao(:, 2,11, 3) = (/ & - &1.7767e-01 ,1.5546e-01 ,1.3326e-01 ,1.1105e-01 ,8.8842e-02 ,6.6637e-02 , & - &4.4429e-02 ,2.2220e-02 ,2.6746e-06 /) - kao(:, 3,11, 3) = (/ & - &2.1192e-01 ,1.8543e-01 ,1.5895e-01 ,1.3246e-01 ,1.0597e-01 ,7.9483e-02 , & - &5.2995e-02 ,2.6507e-02 ,4.8840e-06 /) - kao(:, 4,11, 3) = (/ & - &2.4571e-01 ,2.1501e-01 ,1.8430e-01 ,1.5358e-01 ,1.2287e-01 ,9.2163e-02 , & - &6.1452e-02 ,3.0740e-02 ,7.9723e-06 /) - kao(:, 5,11, 3) = (/ & - &2.7981e-01 ,2.4483e-01 ,2.0987e-01 ,1.7490e-01 ,1.3993e-01 ,1.0496e-01 , & - &6.9988e-02 ,3.5019e-02 ,1.2223e-05 /) - kao(:, 1,12, 3) = (/ & - &2.0829e-01 ,1.8226e-01 ,1.5622e-01 ,1.3018e-01 ,1.0415e-01 ,7.8112e-02 , & - &5.2077e-02 ,2.6041e-02 ,1.2025e-06 /) - kao(:, 2,12, 3) = (/ & - &2.5587e-01 ,2.2388e-01 ,1.9190e-01 ,1.5992e-01 ,1.2794e-01 ,9.5954e-02 , & - &6.3973e-02 ,3.1992e-02 ,2.4634e-06 /) - kao(:, 3,12, 3) = (/ & - &3.0401e-01 ,2.6600e-01 ,2.2801e-01 ,1.9001e-01 ,1.5201e-01 ,1.1401e-01 , & - &7.6014e-02 ,3.8015e-02 ,4.4929e-06 /) - kao(:, 4,12, 3) = (/ & - &3.5185e-01 ,3.0787e-01 ,2.6390e-01 ,2.1992e-01 ,1.7594e-01 ,1.3196e-01 , & - &8.7984e-02 ,4.4005e-02 ,7.2358e-06 /) - kao(:, 5,12, 3) = (/ & - &3.9955e-01 ,3.4961e-01 ,2.9967e-01 ,2.4973e-01 ,1.9980e-01 ,1.4985e-01 , & - &9.9920e-02 ,4.9982e-02 ,1.1171e-05 /) - kao(:, 1,13, 3) = (/ & - &2.4192e-01 ,2.1167e-01 ,1.8143e-01 ,1.5120e-01 ,1.2096e-01 ,9.0718e-02 , & - &6.0481e-02 ,3.0243e-02 ,1.0138e-06 /) - kao(:, 2,13, 3) = (/ & - &2.9636e-01 ,2.5932e-01 ,2.2227e-01 ,1.8523e-01 ,1.4819e-01 ,1.1114e-01 , & - &7.4096e-02 ,3.7053e-02 ,2.0810e-06 /) - kao(:, 3,13, 3) = (/ & - &3.5109e-01 ,3.0721e-01 ,2.6332e-01 ,2.1944e-01 ,1.7555e-01 ,1.3167e-01 , & - &8.7782e-02 ,4.3898e-02 ,3.6752e-06 /) - kao(:, 4,13, 3) = (/ & - &4.0523e-01 ,3.5457e-01 ,3.0393e-01 ,2.5327e-01 ,2.0263e-01 ,1.5197e-01 , & - &1.0132e-01 ,5.0676e-02 ,6.1123e-06 /) - kao(:, 5,13, 3) = (/ & - &4.5914e-01 ,4.0175e-01 ,3.4437e-01 ,2.8698e-01 ,2.2959e-01 ,1.7221e-01 , & - &1.1482e-01 ,5.7432e-02 ,9.7404e-06 /) - kao(:, 1, 1, 4) = (/ & - &2.1350e-05 ,2.4552e-05 ,2.3723e-05 ,1.5777e-05 ,2.7169e-05 ,3.2921e-05 , & - &3.9368e-05 ,6.8629e-05 ,2.6626e-05 /) - kao(:, 2, 1, 4) = (/ & - &2.2878e-05 ,2.6833e-05 ,2.6737e-05 ,2.0377e-05 ,2.2142e-05 ,3.1966e-05 , & - &4.1566e-05 ,6.1320e-05 ,2.3858e-05 /) - kao(:, 3, 1, 4) = (/ & - &2.3851e-05 ,2.8963e-05 ,2.9322e-05 ,2.7907e-05 ,1.9726e-05 ,2.5598e-05 , & - &4.2650e-05 ,6.7498e-05 ,2.1250e-05 /) - kao(:, 4, 1, 4) = (/ & - &2.4297e-05 ,3.1053e-05 ,3.2431e-05 ,3.1771e-05 ,2.7799e-05 ,2.0892e-05 , & - &3.7144e-05 ,7.1944e-05 ,2.3747e-05 /) - kao(:, 5, 1, 4) = (/ & - &2.4515e-05 ,3.3133e-05 ,3.5554e-05 ,3.5376e-05 ,3.4171e-05 ,2.9240e-05 , & - &2.7955e-05 ,6.5059e-05 ,3.8779e-05 /) - kao(:, 1, 2, 4) = (/ & - &3.5233e-05 ,3.6967e-05 ,3.5192e-05 ,3.0346e-05 ,1.9517e-05 ,3.6227e-05 , & - &3.6486e-05 ,4.4755e-05 ,1.7210e-05 /) - kao(:, 2, 2, 4) = (/ & - &3.7659e-05 ,4.0104e-05 ,3.8633e-05 ,3.5461e-05 ,2.4007e-05 ,2.9205e-05 , & - &3.6839e-05 ,4.4274e-05 ,1.6582e-05 /) - kao(:, 3, 2, 4) = (/ & - &3.9567e-05 ,4.2994e-05 ,4.2107e-05 ,3.9324e-05 ,3.3808e-05 ,2.0621e-05 , & - &3.2387e-05 ,5.0199e-05 ,1.2696e-05 /) - kao(:, 4, 2, 4) = (/ & - &4.0697e-05 ,4.5929e-05 ,4.5740e-05 ,4.2992e-05 ,3.9709e-05 ,2.8967e-05 , & - &2.4180e-05 ,4.8120e-05 ,2.0582e-05 /) - kao(:, 5, 2, 4) = (/ & - &4.1514e-05 ,4.8565e-05 ,4.9023e-05 ,4.7662e-05 ,4.4382e-05 ,3.8389e-05 , & - &2.5686e-05 ,4.1842e-05 ,3.1906e-05 /) - kao(:, 1, 3, 4) = (/ & - &8.1562e-05 ,7.8380e-05 ,7.1455e-05 ,6.3207e-05 ,5.2782e-05 ,3.3109e-05 , & - &4.1621e-05 ,4.2434e-05 ,8.8242e-06 /) - kao(:, 2, 3, 4) = (/ & - &8.6593e-05 ,8.4470e-05 ,7.7554e-05 ,6.8896e-05 ,5.8997e-05 ,4.4824e-05 , & - &3.0840e-05 ,4.1510e-05 ,8.5693e-06 /) - kao(:, 3, 3, 4) = (/ & - &9.1353e-05 ,8.9996e-05 ,8.3114e-05 ,7.4541e-05 ,6.4935e-05 ,5.3159e-05 , & - &2.8537e-05 ,3.9838e-05 ,1.1226e-05 /) - kao(:, 4, 3, 4) = (/ & - &9.5365e-05 ,9.5648e-05 ,8.9016e-05 ,8.0719e-05 ,7.0818e-05 ,5.8632e-05 , & - &4.0977e-05 ,3.3245e-05 ,1.8214e-05 /) - kao(:, 5, 3, 4) = (/ & - &9.7542e-05 ,1.0001e-04 ,9.4766e-05 ,8.7247e-05 ,7.6489e-05 ,6.4569e-05 , & - &5.1322e-05 ,2.4346e-05 ,2.6190e-05 /) - kao(:, 1, 4, 4) = (/ & - &1.9526e-04 ,1.7866e-04 ,1.5808e-04 ,1.3593e-04 ,1.1271e-04 ,8.7918e-05 , & - &5.1266e-05 ,5.4774e-05 ,4.6025e-06 /) - kao(:, 2, 4, 4) = (/ & - &2.0650e-04 ,1.9062e-04 ,1.6960e-04 ,1.4698e-04 ,1.2286e-04 ,9.7273e-05 , & - &6.7543e-05 ,4.4150e-05 ,5.6277e-06 /) - kao(:, 3, 4, 4) = (/ & - &2.1739e-04 ,2.0276e-04 ,1.8135e-04 ,1.5734e-04 ,1.3233e-04 ,1.0548e-04 , & - &7.6274e-05 ,3.0228e-05 ,9.8992e-06 /) - kao(:, 4, 4, 4) = (/ & - &2.2749e-04 ,2.1410e-04 ,1.9235e-04 ,1.6801e-04 ,1.4178e-04 ,1.1383e-04 , & - &8.3889e-05 ,3.8831e-05 ,1.4832e-05 /) - kao(:, 5, 4, 4) = (/ & - &2.3672e-04 ,2.2535e-04 ,2.0298e-04 ,1.7817e-04 ,1.5157e-04 ,1.2285e-04 , & - &9.1248e-05 ,5.4055e-05 ,2.0953e-05 /) - kao(:, 1, 5, 4) = (/ & - &4.3901e-04 ,3.9096e-04 ,3.4083e-04 ,2.8855e-04 ,2.3566e-04 ,1.8135e-04 , & - &1.2520e-04 ,3.9791e-05 ,2.8698e-06 /) - kao(:, 2, 5, 4) = (/ & - &4.6450e-04 ,4.1602e-04 ,3.6285e-04 ,3.0879e-04 ,2.5330e-04 ,1.9642e-04 , & - &1.3685e-04 ,6.9096e-05 ,4.7432e-06 /) - kao(:, 3, 5, 4) = (/ & - &4.8882e-04 ,4.4052e-04 ,3.8581e-04 ,3.3048e-04 ,2.7253e-04 ,2.1160e-04 , & - &1.4899e-04 ,8.1167e-05 ,8.1879e-06 /) - kao(:, 4, 5, 4) = (/ & - &5.1005e-04 ,4.6303e-04 ,4.0950e-04 ,3.5246e-04 ,2.9060e-04 ,2.2675e-04 , & - &1.6042e-04 ,8.9994e-05 ,1.2389e-05 /) - kao(:, 5, 5, 4) = (/ & - &5.2999e-04 ,4.8642e-04 ,4.3340e-04 ,3.7157e-04 ,3.0721e-04 ,2.4050e-04 , & - &1.7156e-04 ,9.8341e-05 ,1.7831e-05 /) - kao(:, 1, 6, 4) = (/ & - &9.3945e-04 ,8.2623e-04 ,7.1331e-04 ,5.9949e-04 ,4.8483e-04 ,3.6836e-04 , & - &2.5086e-04 ,1.2938e-04 ,2.1494e-06 /) - kao(:, 2, 6, 4) = (/ & - &1.0016e-03 ,8.8499e-04 ,7.6750e-04 ,6.4657e-04 ,5.2304e-04 ,3.9902e-04 , & - &2.7391e-04 ,1.4413e-04 ,3.8318e-06 /) - kao(:, 3, 6, 4) = (/ & - &1.0547e-03 ,9.3464e-04 ,8.1142e-04 ,6.8349e-04 ,5.5479e-04 ,4.2609e-04 , & - &2.9394e-04 ,1.5646e-04 ,6.4475e-06 /) - kao(:, 4, 6, 4) = (/ & - &1.1032e-03 ,9.8345e-04 ,8.5527e-04 ,7.2211e-04 ,5.9000e-04 ,4.5529e-04 , & - &3.1446e-04 ,1.6904e-04 ,9.9612e-06 /) - kao(:, 5, 6, 4) = (/ & - &1.1467e-03 ,1.0269e-03 ,8.9466e-04 ,7.6180e-04 ,6.2654e-04 ,4.8317e-04 , & - &3.3526e-04 ,1.8155e-04 ,1.4635e-05 /) - kao(:, 1, 7, 4) = (/ & - &2.0968e-03 ,1.8382e-03 ,1.5799e-03 ,1.3200e-03 ,1.0602e-03 ,8.0055e-04 , & - &5.3931e-04 ,2.7613e-04 ,1.7495e-06 /) - kao(:, 2, 7, 4) = (/ & - &2.2692e-03 ,1.9926e-03 ,1.7142e-03 ,1.4356e-03 ,1.1561e-03 ,8.7560e-04 , & - &5.9192e-04 ,3.0494e-04 ,3.2823e-06 /) - kao(:, 3, 7, 4) = (/ & - &2.3957e-03 ,2.1065e-03 ,1.8155e-03 ,1.5242e-03 ,1.2302e-03 ,9.3213e-04 , & - &6.3098e-04 ,3.2845e-04 ,5.4452e-06 /) - kao(:, 4, 7, 4) = (/ & - &2.5154e-03 ,2.2153e-03 ,1.9155e-03 ,1.6120e-03 ,1.3009e-03 ,9.8717e-04 , & - &6.7313e-04 ,3.5215e-04 ,8.4591e-06 /) - kao(:, 5, 7, 4) = (/ & - &2.6221e-03 ,2.3149e-03 ,2.0078e-03 ,1.6896e-03 ,1.3663e-03 ,1.0418e-03 , & - &7.1380e-04 ,3.7558e-04 ,1.3208e-05 /) - kao(:, 1, 8, 4) = (/ & - &5.9687e-03 ,5.2249e-03 ,4.4818e-03 ,3.7390e-03 ,2.9959e-03 ,2.2513e-03 , & - &1.5068e-03 ,7.6107e-04 ,1.5072e-06 /) - kao(:, 2, 8, 4) = (/ & - &6.4060e-03 ,5.6103e-03 ,4.8155e-03 ,4.0184e-03 ,3.2203e-03 ,2.4232e-03 , & - &1.6246e-03 ,8.2361e-04 ,2.9177e-06 /) - kao(:, 3, 8, 4) = (/ & - &6.8363e-03 ,5.9919e-03 ,5.1443e-03 ,4.2950e-03 ,3.4467e-03 ,2.5980e-03 , & - &1.7471e-03 ,8.8934e-04 ,5.0920e-06 /) - kao(:, 4, 8, 4) = (/ & - &7.1796e-03 ,6.2954e-03 ,5.4063e-03 ,4.5177e-03 ,3.6307e-03 ,2.7430e-03 , & - &1.8488e-03 ,9.4284e-04 ,8.3290e-06 /) - kao(:, 5, 8, 4) = (/ & - &7.5276e-03 ,6.6017e-03 ,5.6732e-03 ,4.7473e-03 ,3.8229e-03 ,2.8925e-03 , & - &1.9515e-03 ,1.0013e-03 ,1.2816e-05 /) - kao(:, 1, 9, 4) = (/ & - &3.2487e-02 ,2.8428e-02 ,2.4369e-02 ,2.0309e-02 ,1.6251e-02 ,1.2192e-02 , & - &8.1342e-03 ,4.0755e-03 ,1.9489e-06 /) - kao(:, 2, 9, 4) = (/ & - &3.4271e-02 ,2.9992e-02 ,2.5712e-02 ,2.1432e-02 ,1.7152e-02 ,1.2873e-02 , & - &8.5913e-03 ,4.3059e-03 ,3.6526e-06 /) - kao(:, 3, 9, 4) = (/ & - &3.6903e-02 ,3.2297e-02 ,2.7692e-02 ,2.3087e-02 ,1.8480e-02 ,1.3870e-02 , & - &9.2583e-03 ,4.6485e-03 ,5.8762e-06 /) - kao(:, 4, 9, 4) = (/ & - &3.8979e-02 ,3.4119e-02 ,2.9257e-02 ,2.4392e-02 ,1.9526e-02 ,1.4659e-02 , & - &9.7912e-03 ,4.9264e-03 ,9.0883e-06 /) - kao(:, 5, 9, 4) = (/ & - &4.0909e-02 ,3.5808e-02 ,3.0705e-02 ,2.5602e-02 ,2.0497e-02 ,1.5392e-02 , & - &1.0293e-02 ,5.1880e-03 ,1.4132e-05 /) - kao(:, 1,10, 4) = (/ & - &2.1003e-01 ,1.8378e-01 ,1.5753e-01 ,1.3127e-01 ,1.0502e-01 ,7.8770e-02 , & - &5.2516e-02 ,2.6264e-02 ,2.2708e-06 /) - kao(:, 2,10, 4) = (/ & - &2.2303e-01 ,1.9515e-01 ,1.6728e-01 ,1.3940e-01 ,1.1153e-01 ,8.3651e-02 , & - &5.5777e-02 ,2.7901e-02 ,4.3388e-06 /) - kao(:, 3,10, 4) = (/ & - &2.3715e-01 ,2.0752e-01 ,1.7788e-01 ,1.4824e-01 ,1.1861e-01 ,8.8964e-02 , & - &5.9326e-02 ,2.9681e-02 ,8.0389e-06 /) - kao(:, 4,10, 4) = (/ & - &2.5270e-01 ,2.2113e-01 ,1.8955e-01 ,1.5796e-01 ,1.2638e-01 ,9.4802e-02 , & - &6.3220e-02 ,3.1633e-02 ,1.4122e-05 /) - kao(:, 5,10, 4) = (/ & - &2.6544e-01 ,2.3227e-01 ,1.9911e-01 ,1.6593e-01 ,1.3276e-01 ,9.9586e-02 , & - &6.6411e-02 ,3.3237e-02 ,2.0958e-05 /) - kao(:, 1,11, 4) = (/ & - &4.6663e-01 ,4.0831e-01 ,3.4998e-01 ,2.9165e-01 ,2.3332e-01 ,1.7500e-01 , & - &1.1667e-01 ,5.8341e-02 ,2.3420e-06 /) - kao(:, 2,11, 4) = (/ & - &4.9719e-01 ,4.3506e-01 ,3.7290e-01 ,3.1076e-01 ,2.4862e-01 ,1.8647e-01 , & - &1.2432e-01 ,6.2174e-02 ,4.5807e-06 /) - kao(:, 3,11, 4) = (/ & - &5.2774e-01 ,4.6176e-01 ,3.9581e-01 ,3.2984e-01 ,2.6389e-01 ,1.9793e-01 , & - &1.3196e-01 ,6.5997e-02 ,8.8811e-06 /) - kao(:, 4,11, 4) = (/ & - &5.6221e-01 ,4.9195e-01 ,4.2167e-01 ,3.5141e-01 ,2.8114e-01 ,2.1086e-01 , & - &1.4059e-01 ,7.0317e-02 ,1.5538e-05 /) - kao(:, 5,11, 4) = (/ & - &5.9121e-01 ,5.1732e-01 ,4.4343e-01 ,3.6953e-01 ,2.9564e-01 ,2.2174e-01 , & - &1.4785e-01 ,7.3949e-02 ,2.4433e-05 /) - kao(:, 1,12, 4) = (/ & - &6.5249e-01 ,5.7093e-01 ,4.8937e-01 ,4.0781e-01 ,3.2625e-01 ,2.4469e-01 , & - &1.6313e-01 ,8.1572e-02 ,2.2330e-06 /) - kao(:, 2,12, 4) = (/ & - &6.9534e-01 ,6.0842e-01 ,5.2151e-01 ,4.3459e-01 ,3.4768e-01 ,2.6076e-01 , & - &1.7385e-01 ,8.6935e-02 ,4.3967e-06 /) - kao(:, 3,12, 4) = (/ & - &7.4143e-01 ,6.4875e-01 ,5.5607e-01 ,4.6339e-01 ,3.7072e-01 ,2.7805e-01 , & - &1.8537e-01 ,9.2701e-02 ,8.3925e-06 /) - kao(:, 4,12, 4) = (/ & - &7.8904e-01 ,6.9042e-01 ,5.9179e-01 ,4.9316e-01 ,3.9453e-01 ,2.9591e-01 , & - &1.9728e-01 ,9.8661e-02 ,1.5232e-05 /) - kao(:, 5,12, 4) = (/ & - &8.3131e-01 ,7.2741e-01 ,6.2350e-01 ,5.1959e-01 ,4.1567e-01 ,3.1177e-01 , & - &2.0786e-01 ,1.0395e-01 ,2.3060e-05 /) - kao(:, 1,13, 4) = (/ & - &7.3322e-01 ,6.4157e-01 ,5.4992e-01 ,4.5827e-01 ,3.6662e-01 ,2.7497e-01 , & - &1.8332e-01 ,9.1663e-02 ,1.8044e-06 /) - kao(:, 2,13, 4) = (/ & - &7.8224e-01 ,6.8446e-01 ,5.8668e-01 ,4.8890e-01 ,3.9113e-01 ,2.9335e-01 , & - &1.9557e-01 ,9.7794e-02 ,3.6622e-06 /) - kao(:, 3,13, 4) = (/ & - &8.3769e-01 ,7.3298e-01 ,6.2826e-01 ,5.2356e-01 ,4.1885e-01 ,3.1414e-01 , & - &2.0944e-01 ,1.0473e-01 ,6.8549e-06 /) - kao(:, 4,13, 4) = (/ & - &8.9145e-01 ,7.8000e-01 ,6.6858e-01 ,5.5715e-01 ,4.4572e-01 ,3.3430e-01 , & - &2.2288e-01 ,1.1145e-01 ,1.1699e-05 /) - kao(:, 5,13, 4) = (/ & - &9.4256e-01 ,8.2475e-01 ,7.0694e-01 ,5.8912e-01 ,4.7129e-01 ,3.5348e-01 , & - &2.3566e-01 ,1.1785e-01 ,1.9250e-05 /) - kao(:, 1, 1, 5) = (/ & - &3.1890e-05 ,3.3428e-05 ,3.1339e-05 ,1.9062e-05 ,2.1359e-05 ,2.6190e-05 , & - &4.2364e-05 ,7.2281e-05 ,2.8801e-05 /) - kao(:, 2, 1, 5) = (/ & - &3.2241e-05 ,3.5034e-05 ,3.4311e-05 ,2.9337e-05 ,1.6956e-05 ,2.7153e-05 , & - &4.1595e-05 ,7.5807e-05 ,2.1642e-05 /) - kao(:, 3, 1, 5) = (/ & - &3.2685e-05 ,3.7104e-05 ,3.7239e-05 ,3.5440e-05 ,2.4683e-05 ,2.0584e-05 , & - &3.9467e-05 ,7.0498e-05 ,2.5433e-05 /) - kao(:, 4, 1, 5) = (/ & - &3.3108e-05 ,3.9233e-05 ,3.9843e-05 ,4.0632e-05 ,3.9351e-05 ,2.7492e-05 , & - &2.7372e-05 ,6.6136e-05 ,4.2940e-05 /) - kao(:, 5, 1, 5) = (/ & - &3.3102e-05 ,4.1126e-05 ,4.3706e-05 ,4.7600e-05 ,5.0514e-05 ,4.9463e-05 , & - &3.6482e-05 ,4.9147e-05 ,6.6970e-05 /) - kao(:, 1, 2, 5) = (/ & - &5.3936e-05 ,5.3705e-05 ,4.9534e-05 ,4.3483e-05 ,2.4468e-05 ,2.7314e-05 , & - &3.0874e-05 ,5.5614e-05 ,1.6658e-05 /) - kao(:, 2, 2, 5) = (/ & - &5.4860e-05 ,5.5845e-05 ,5.2280e-05 ,4.7572e-05 ,3.6459e-05 ,1.9946e-05 , & - &3.1643e-05 ,4.8991e-05 ,1.3490e-05 /) - kao(:, 3, 2, 5) = (/ & - &5.5709e-05 ,5.8014e-05 ,5.5306e-05 ,5.1404e-05 ,4.5520e-05 ,2.7920e-05 , & - &2.4697e-05 ,4.8298e-05 ,2.2442e-05 /) - kao(:, 4, 2, 5) = (/ & - &5.6594e-05 ,6.0421e-05 ,5.8710e-05 ,5.5553e-05 ,5.0533e-05 ,4.1849e-05 , & - &2.3926e-05 ,4.4332e-05 ,3.8077e-05 /) - kao(:, 5, 2, 5) = (/ & - &5.6989e-05 ,6.3301e-05 ,6.2702e-05 ,5.9556e-05 ,5.7075e-05 ,5.4328e-05 , & - &4.2106e-05 ,3.0435e-05 ,5.5304e-05 /) - kao(:, 1, 3, 5) = (/ & - &1.3054e-04 ,1.2243e-04 ,1.0960e-04 ,9.5396e-05 ,7.9466e-05 ,5.1293e-05 , & - &3.9755e-05 ,3.4475e-05 ,8.0698e-06 /) - kao(:, 2, 3, 5) = (/ & - &1.3254e-04 ,1.2631e-04 ,1.1422e-04 ,1.0017e-04 ,8.4724e-05 ,6.6970e-05 , & - &3.1985e-05 ,3.1748e-05 ,1.1668e-05 /) - kao(:, 3, 3, 5) = (/ & - &1.3451e-04 ,1.3069e-04 ,1.1849e-04 ,1.0449e-04 ,8.9441e-05 ,7.3066e-05 , & - &4.0433e-05 ,3.2069e-05 ,2.1119e-05 /) - kao(:, 4, 3, 5) = (/ & - &1.3620e-04 ,1.3418e-04 ,1.2287e-04 ,1.0958e-04 ,9.5020e-05 ,7.9300e-05 , & - &5.8519e-05 ,2.5240e-05 ,3.2095e-05 /) - kao(:, 5, 3, 5) = (/ & - &1.3805e-04 ,1.3888e-04 ,1.2760e-04 ,1.1481e-04 ,1.0157e-04 ,8.6256e-05 , & - &6.7417e-05 ,3.0660e-05 ,4.5147e-05 /) - kao(:, 1, 4, 5) = (/ & - &3.2379e-04 ,2.9036e-04 ,2.5461e-04 ,2.1829e-04 ,1.8055e-04 ,1.4064e-04 , & - &9.6199e-05 ,5.2600e-05 ,5.3338e-06 /) - kao(:, 2, 4, 5) = (/ & - &3.2979e-04 ,2.9999e-04 ,2.6566e-04 ,2.2924e-04 ,1.9018e-04 ,1.4831e-04 , & - &1.0429e-04 ,3.7208e-05 ,1.1382e-05 /) - kao(:, 3, 4, 5) = (/ & - &3.3647e-04 ,3.0773e-04 ,2.7537e-04 ,2.3841e-04 ,1.9818e-04 ,1.5534e-04 , & - &1.1107e-04 ,4.2940e-05 ,1.8774e-05 /) - kao(:, 4, 4, 5) = (/ & - &3.4222e-04 ,3.1790e-04 ,2.8515e-04 ,2.4672e-04 ,2.0544e-04 ,1.6267e-04 , & - &1.1806e-04 ,6.5823e-05 ,2.7569e-05 /) - kao(:, 5, 4, 5) = (/ & - &3.4598e-04 ,3.2526e-04 ,2.9297e-04 ,2.5514e-04 ,2.1384e-04 ,1.7093e-04 , & - &1.2620e-04 ,7.6156e-05 ,3.8829e-05 /) - kao(:, 1, 5, 5) = (/ & - &7.4853e-04 ,6.5989e-04 ,5.7237e-04 ,4.8339e-04 ,3.9258e-04 ,3.0112e-04 , & - &2.0775e-04 ,1.0511e-04 ,4.9046e-06 /) - kao(:, 2, 5, 5) = (/ & - &7.7296e-04 ,6.8526e-04 ,5.9860e-04 ,5.0629e-04 ,4.1334e-04 ,3.1913e-04 , & - &2.2288e-04 ,1.1662e-04 ,9.7426e-06 /) - kao(:, 3, 5, 5) = (/ & - &7.8512e-04 ,7.0191e-04 ,6.1328e-04 ,5.2156e-04 ,4.2917e-04 ,3.3432e-04 , & - &2.3232e-04 ,1.2535e-04 ,1.4908e-05 /) - kao(:, 4, 5, 5) = (/ & - &8.0065e-04 ,7.1779e-04 ,6.2814e-04 ,5.3808e-04 ,4.4471e-04 ,3.4601e-04 , & - &2.4241e-04 ,1.3326e-04 ,2.1852e-05 /) - kao(:, 5, 5, 5) = (/ & - &8.1368e-04 ,7.3211e-04 ,6.4458e-04 ,5.5662e-04 ,4.6149e-04 ,3.6022e-04 , & - &2.5323e-04 ,1.4142e-04 ,3.1532e-05 /) - kao(:, 1, 6, 5) = (/ & - &1.6528e-03 ,1.4497e-03 ,1.2477e-03 ,1.0459e-03 ,8.4296e-04 ,6.4013e-04 , & - &4.3541e-04 ,2.2882e-04 ,4.1025e-06 /) - kao(:, 2, 6, 5) = (/ & - &1.7167e-03 ,1.5070e-03 ,1.2980e-03 ,1.0901e-03 ,8.8256e-04 ,6.7196e-04 , & - &4.5785e-04 ,2.4158e-04 ,7.1575e-06 /) - kao(:, 3, 6, 5) = (/ & - &1.7542e-03 ,1.5443e-03 ,1.3374e-03 ,1.1305e-03 ,9.1589e-04 ,6.9839e-04 , & - &4.8070e-04 ,2.5576e-04 ,1.1170e-05 /) - kao(:, 4, 6, 5) = (/ & - &1.7835e-03 ,1.5745e-03 ,1.3686e-03 ,1.1552e-03 ,9.3898e-04 ,7.2100e-04 , & - &4.9974e-04 ,2.6756e-04 ,1.6778e-05 /) - kao(:, 5, 6, 5) = (/ & - &1.8173e-03 ,1.6109e-03 ,1.3997e-03 ,1.1836e-03 ,9.6533e-04 ,7.4477e-04 , & - &5.1869e-04 ,2.7889e-04 ,2.4339e-05 /) - kao(:, 1, 7, 5) = (/ & - &3.9726e-03 ,3.4772e-03 ,2.9832e-03 ,2.4912e-03 ,1.9978e-03 ,1.5048e-03 , & - &1.0114e-03 ,5.1606e-04 ,3.0815e-06 /) - kao(:, 2, 7, 5) = (/ & - &3.9885e-03 ,3.4924e-03 ,2.9992e-03 ,2.5047e-03 ,2.0117e-03 ,1.5168e-03 , & - &1.0225e-03 ,5.2471e-04 ,5.4224e-06 /) - kao(:, 3, 7, 5) = (/ & - &4.1133e-03 ,3.6053e-03 ,3.0965e-03 ,2.5896e-03 ,2.0823e-03 ,1.5758e-03 , & - &1.0680e-03 ,5.5159e-04 ,9.0931e-06 /) - kao(:, 4, 7, 5) = (/ & - &4.1858e-03 ,3.6723e-03 ,3.1582e-03 ,2.6449e-03 ,2.1343e-03 ,1.6217e-03 , & - &1.1005e-03 ,5.7513e-04 ,1.3973e-05 /) - kao(:, 5, 7, 5) = (/ & - &4.2673e-03 ,3.7471e-03 ,3.2256e-03 ,2.7082e-03 ,2.1908e-03 ,1.6652e-03 , & - &1.1349e-03 ,5.9686e-04 ,1.9907e-05 /) - kao(:, 1, 8, 5) = (/ & - &1.1789e-02 ,1.0316e-02 ,8.8432e-03 ,7.3701e-03 ,5.8982e-03 ,4.4284e-03 , & - &2.9575e-03 ,1.4868e-03 ,2.6362e-06 /) - kao(:, 2, 8, 5) = (/ & - &1.1815e-02 ,1.0339e-02 ,8.8633e-03 ,7.3911e-03 ,5.9198e-03 ,4.4454e-03 , & - &2.9722e-03 ,1.4993e-03 ,4.7391e-06 /) - kao(:, 3, 8, 5) = (/ & - &1.2063e-02 ,1.0556e-02 ,9.0547e-03 ,7.5533e-03 ,6.0485e-03 ,4.5441e-03 , & - &3.0419e-03 ,1.5395e-03 ,7.9686e-06 /) - kao(:, 4, 8, 5) = (/ & - &1.2374e-02 ,1.0835e-02 ,9.2985e-03 ,7.7571e-03 ,6.2150e-03 ,4.6751e-03 , & - &3.1349e-03 ,1.5981e-03 ,1.2907e-05 /) - kao(:, 5, 8, 5) = (/ & - &1.2586e-02 ,1.1028e-02 ,9.4648e-03 ,7.8998e-03 ,6.3362e-03 ,4.7714e-03 , & - &3.2105e-03 ,1.6437e-03 ,1.9633e-05 /) - kao(:, 1, 9, 5) = (/ & - &6.5443e-02 ,5.7264e-02 ,4.9084e-02 ,4.0904e-02 ,3.2723e-02 ,2.4543e-02 , & - &1.6364e-02 ,8.1848e-03 ,3.1432e-06 /) - kao(:, 2, 9, 5) = (/ & - &6.6880e-02 ,5.8521e-02 ,5.0162e-02 ,4.1802e-02 ,3.3443e-02 ,2.5083e-02 , & - &1.6728e-02 ,8.3763e-03 ,5.7297e-06 /) - kao(:, 3, 9, 5) = (/ & - &6.6965e-02 ,5.8596e-02 ,5.0227e-02 ,4.1857e-02 ,3.3491e-02 ,2.5128e-02 , & - &1.6767e-02 ,8.3954e-03 ,1.0132e-05 /) - kao(:, 4, 9, 5) = (/ & - &6.9095e-02 ,6.0459e-02 ,5.1827e-02 ,4.3201e-02 ,3.4575e-02 ,2.5948e-02 , & - &1.7311e-02 ,8.6749e-03 ,1.6592e-05 /) - kao(:, 5, 9, 5) = (/ & - &7.0723e-02 ,6.1894e-02 ,5.3070e-02 ,4.4247e-02 ,3.5417e-02 ,2.6580e-02 , & - &1.7739e-02 ,8.9030e-03 ,2.5109e-05 /) - kao(:, 1,10, 5) = (/ & - &4.3117e-01 ,3.7727e-01 ,3.2338e-01 ,2.6948e-01 ,2.1559e-01 ,1.6169e-01 , & - &1.0779e-01 ,5.3898e-02 ,3.8321e-06 /) - kao(:, 2,10, 5) = (/ & - &4.4275e-01 ,3.8740e-01 ,3.3206e-01 ,2.7672e-01 ,2.2138e-01 ,1.6603e-01 , & - &1.1069e-01 ,5.5347e-02 ,7.9189e-06 /) - kao(:, 3,10, 5) = (/ & - &4.5038e-01 ,3.9409e-01 ,3.3779e-01 ,2.8149e-01 ,2.2519e-01 ,1.6890e-01 , & - &1.1260e-01 ,5.6313e-02 ,1.3890e-05 /) - kao(:, 4,10, 5) = (/ & - &4.5731e-01 ,4.0015e-01 ,3.4299e-01 ,2.8583e-01 ,2.2868e-01 ,1.7152e-01 , & - &1.1436e-01 ,5.7212e-02 ,2.2042e-05 /) - kao(:, 5,10, 5) = (/ & - &4.7192e-01 ,4.1294e-01 ,3.5396e-01 ,2.9499e-01 ,2.3600e-01 ,1.7703e-01 , & - &1.1805e-01 ,5.9063e-02 ,3.5819e-05 /) - kao(:, 1,11, 5) = (/ & - &9.6082e-01 ,8.4073e-01 ,7.2062e-01 ,6.0052e-01 ,4.8042e-01 ,3.6032e-01 , & - &2.4021e-01 ,1.2011e-01 ,4.1252e-06 /) - kao(:, 2,11, 5) = (/ & - &9.8883e-01 ,8.6524e-01 ,7.4164e-01 ,6.1802e-01 ,4.9442e-01 ,3.7082e-01 , & - &2.4722e-01 ,1.2361e-01 ,8.2890e-06 /) - kao(:, 3,11, 5) = (/ & - &1.0099e+00 ,8.8371e-01 ,7.5745e-01 ,6.3122e-01 ,5.0498e-01 ,3.7874e-01 , & - &2.5251e-01 ,1.2627e-01 ,1.3752e-05 /) - kao(:, 4,11, 5) = (/ & - &1.0275e+00 ,8.9904e-01 ,7.7063e-01 ,6.4220e-01 ,5.1377e-01 ,3.8534e-01 , & - &2.5691e-01 ,1.2849e-01 ,2.1878e-05 /) - kao(:, 5,11, 5) = (/ & - &1.0619e+00 ,9.2921e-01 ,7.9651e-01 ,6.6374e-01 ,5.3103e-01 ,3.9829e-01 , & - &2.6556e-01 ,1.3282e-01 ,3.3798e-05 /) - kao(:, 1,12, 5) = (/ & - &1.3448e+00 ,1.1767e+00 ,1.0086e+00 ,8.4049e-01 ,6.7240e-01 ,5.0429e-01 , & - &3.3620e-01 ,1.6810e-01 ,3.8444e-06 /) - kao(:, 2,12, 5) = (/ & - &1.3870e+00 ,1.2136e+00 ,1.0403e+00 ,8.6689e-01 ,6.9351e-01 ,5.2014e-01 , & - &3.4675e-01 ,1.7338e-01 ,8.1656e-06 /) - kao(:, 3,12, 5) = (/ & - &1.4199e+00 ,1.2424e+00 ,1.0649e+00 ,8.8747e-01 ,7.0998e-01 ,5.3249e-01 , & - &3.5500e-01 ,1.7752e-01 ,1.3518e-05 /) - kao(:, 4,12, 5) = (/ & - &1.4553e+00 ,1.2734e+00 ,1.0915e+00 ,9.0958e-01 ,7.2769e-01 ,5.4578e-01 , & - &3.6386e-01 ,1.8196e-01 ,2.0674e-05 /) - kao(:, 5,12, 5) = (/ & - &1.5049e+00 ,1.3168e+00 ,1.1287e+00 ,9.4058e-01 ,7.5249e-01 ,5.6439e-01 , & - &3.7628e-01 ,1.8817e-01 ,3.3221e-05 /) - kao(:, 1,13, 5) = (/ & - &1.5112e+00 ,1.3223e+00 ,1.1334e+00 ,9.4452e-01 ,7.5561e-01 ,5.6670e-01 , & - &3.7781e-01 ,1.8891e-01 ,3.4136e-06 /) - kao(:, 2,13, 5) = (/ & - &1.5630e+00 ,1.3677e+00 ,1.1723e+00 ,9.7690e-01 ,7.8153e-01 ,5.8614e-01 , & - &3.9077e-01 ,1.9539e-01 ,7.2314e-06 /) - kao(:, 3,13, 5) = (/ & - &1.6029e+00 ,1.4025e+00 ,1.2022e+00 ,1.0018e+00 ,8.0146e-01 ,6.0110e-01 , & - &4.0074e-01 ,2.0039e-01 ,1.2933e-05 /) - kao(:, 4,13, 5) = (/ & - &1.6548e+00 ,1.4480e+00 ,1.2411e+00 ,1.0343e+00 ,8.2742e-01 ,6.2059e-01 , & - &4.1374e-01 ,2.0689e-01 ,2.1420e-05 /) - kao(:, 5,13, 5) = (/ & - &1.7129e+00 ,1.4988e+00 ,1.2846e+00 ,1.0706e+00 ,8.5645e-01 ,6.4235e-01 , & - &4.2827e-01 ,2.1415e-01 ,3.1482e-05 /) - kao(:, 1, 1, 6) = (/ & - &4.0608e-05 ,4.2185e-05 ,3.9730e-05 ,2.6630e-05 ,1.5870e-05 ,2.1720e-05 , & - &4.0183e-05 ,5.7933e-05 ,1.9230e-05 /) - kao(:, 2, 1, 6) = (/ & - &4.0560e-05 ,4.3924e-05 ,4.2843e-05 ,4.0587e-05 ,1.9599e-05 ,1.9434e-05 , & - &2.9187e-05 ,8.1729e-05 ,2.4180e-05 /) - kao(:, 3, 1, 6) = (/ & - &4.0596e-05 ,4.5223e-05 ,4.7233e-05 ,4.8206e-05 ,4.1815e-05 ,2.4282e-05 , & - &2.7535e-05 ,5.3025e-05 ,4.5769e-05 /) - kao(:, 4, 1, 6) = (/ & - &4.0424e-05 ,4.7527e-05 ,5.3798e-05 ,5.7119e-05 ,5.7658e-05 ,5.2268e-05 , & - &3.6355e-05 ,4.4941e-05 ,8.6910e-05 /) - kao(:, 5, 1, 6) = (/ & - &4.0234e-05 ,5.1685e-05 ,6.0703e-05 ,6.7173e-05 ,7.3473e-05 ,7.8264e-05 , & - &7.7542e-05 ,6.1561e-05 ,1.1878e-04 /) - kao(:, 1, 2, 6) = (/ & - &7.1743e-05 ,6.9776e-05 ,6.4069e-05 ,5.6253e-05 ,3.2492e-05 ,1.5299e-05 , & - &2.5979e-05 ,5.8422e-05 ,1.3265e-05 /) - kao(:, 2, 2, 6) = (/ & - &7.1061e-05 ,7.2097e-05 ,6.7274e-05 ,6.0734e-05 ,5.1280e-05 ,2.1520e-05 , & - &1.9911e-05 ,4.4529e-05 ,1.9523e-05 /) - kao(:, 3, 2, 6) = (/ & - &7.0841e-05 ,7.4370e-05 ,7.0760e-05 ,6.5655e-05 ,6.0306e-05 ,4.1020e-05 , & - &2.4466e-05 ,3.0981e-05 ,4.7368e-05 /) - kao(:, 4, 2, 6) = (/ & - &7.0995e-05 ,7.6358e-05 ,7.4085e-05 ,7.2263e-05 ,6.9627e-05 ,6.3412e-05 , & - &3.9010e-05 ,3.3220e-05 ,7.3941e-05 /) - kao(:, 5, 2, 6) = (/ & - &7.1418e-05 ,7.8720e-05 ,7.9350e-05 ,8.0487e-05 ,8.0635e-05 ,7.8967e-05 , & - &7.4070e-05 ,4.7509e-05 ,9.9451e-05 /) - kao(:, 1, 3, 6) = (/ & - &1.7804e-04 ,1.6309e-04 ,1.4603e-04 ,1.2640e-04 ,1.0532e-04 ,7.7851e-05 , & - &3.0401e-05 ,3.2808e-05 ,1.0278e-05 /) - kao(:, 2, 3, 6) = (/ & - &1.7807e-04 ,1.6656e-04 ,1.5059e-04 ,1.3159e-04 ,1.1024e-04 ,8.6966e-05 , & - &3.8390e-05 ,2.7178e-05 ,2.3712e-05 /) - kao(:, 3, 3, 6) = (/ & - &1.7838e-04 ,1.6972e-04 ,1.5616e-04 ,1.3747e-04 ,1.1728e-04 ,9.5070e-05 , & - &6.7563e-05 ,2.2396e-05 ,4.2459e-05 /) - kao(:, 4, 3, 6) = (/ & - &1.7857e-04 ,1.7475e-04 ,1.6100e-04 ,1.4311e-04 ,1.2411e-04 ,1.0321e-04 , & - &8.1061e-05 ,2.7084e-05 ,5.9922e-05 /) - kao(:, 5, 3, 6) = (/ & - &1.7913e-04 ,1.7932e-04 ,1.6663e-04 ,1.4905e-04 ,1.3079e-04 ,1.1234e-04 , & - &9.4176e-05 ,5.9304e-05 ,8.0703e-05 /) - kao(:, 1, 4, 6) = (/ & - &4.5849e-04 ,4.0719e-04 ,3.5630e-04 ,3.0212e-04 ,2.4723e-04 ,1.9208e-04 , & - &1.3224e-04 ,4.0670e-05 ,1.0786e-05 /) - kao(:, 2, 4, 6) = (/ & - &4.6326e-04 ,4.1501e-04 ,3.6371e-04 ,3.1046e-04 ,2.5726e-04 ,2.0145e-04 , & - &1.4032e-04 ,4.2661e-05 ,2.2724e-05 /) - kao(:, 3, 4, 6) = (/ & - &4.5999e-04 ,4.1805e-04 ,3.6892e-04 ,3.1975e-04 ,2.6673e-04 ,2.0947e-04 , & - &1.4924e-04 ,6.8954e-05 ,3.3787e-05 /) - kao(:, 4, 4, 6) = (/ & - &4.6003e-04 ,4.1972e-04 ,3.7753e-04 ,3.3032e-04 ,2.7779e-04 ,2.1909e-04 , & - &1.5785e-04 ,9.1573e-05 ,4.7343e-05 /) - kao(:, 5, 4, 6) = (/ & - &4.6253e-04 ,4.2854e-04 ,3.8917e-04 ,3.4007e-04 ,2.8599e-04 ,2.2760e-04 , & - &1.6713e-04 ,1.0392e-04 ,6.4507e-05 /) - kao(:, 1, 5, 6) = (/ & - &1.1046e-03 ,9.7210e-04 ,8.3818e-04 ,7.0474e-04 ,5.7182e-04 ,4.3731e-04 , & - &3.0078e-04 ,1.5849e-04 ,1.0669e-05 /) - kao(:, 2, 5, 6) = (/ & - &1.1184e-03 ,9.8522e-04 ,8.5052e-04 ,7.1956e-04 ,5.8448e-04 ,4.4708e-04 , & - &3.0943e-04 ,1.6582e-04 ,1.7856e-05 /) - kao(:, 3, 5, 6) = (/ & - &1.1214e-03 ,9.8952e-04 ,8.6298e-04 ,7.3058e-04 ,5.9526e-04 ,4.5967e-04 , & - &3.2343e-04 ,1.7504e-04 ,2.7384e-05 /) - kao(:, 4, 5, 6) = (/ & - &1.1214e-03 ,9.9887e-04 ,8.7233e-04 ,7.4058e-04 ,6.1074e-04 ,4.7706e-04 , & - &3.3627e-04 ,1.8500e-04 ,4.0071e-05 /) - kao(:, 5, 5, 6) = (/ & - &1.1239e-03 ,1.0058e-03 ,8.8047e-04 ,7.5602e-04 ,6.2667e-04 ,4.9193e-04 , & - &3.4864e-04 ,1.9526e-04 ,5.6262e-05 /) - kao(:, 1, 6, 6) = (/ & - &2.6585e-03 ,2.3289e-03 ,2.0017e-03 ,1.6725e-03 ,1.3436e-03 ,1.0134e-03 , & - &6.8348e-04 ,3.5116e-04 ,8.2810e-06 /) - kao(:, 2, 6, 6) = (/ & - &2.5863e-03 ,2.2683e-03 ,1.9501e-03 ,1.6316e-03 ,1.3110e-03 ,9.9174e-04 , & - &6.7274e-04 ,3.5111e-04 ,1.4039e-05 /) - kao(:, 3, 6, 6) = (/ & - &2.6176e-03 ,2.2991e-03 ,1.9771e-03 ,1.6537e-03 ,1.3367e-03 ,1.0179e-03 , & - &6.9352e-04 ,3.6693e-04 ,2.2683e-05 /) - kao(:, 4, 6, 6) = (/ & - &2.6217e-03 ,2.3046e-03 ,1.9871e-03 ,1.6757e-03 ,1.3567e-03 ,1.0347e-03 , & - &7.1195e-04 ,3.8176e-04 ,3.4748e-05 /) - kao(:, 5, 6, 6) = (/ & - &2.6329e-03 ,2.3195e-03 ,2.0094e-03 ,1.6960e-03 ,1.3768e-03 ,1.0589e-03 , & - &7.3230e-04 ,3.9783e-04 ,4.9695e-05 /) - kao(:, 1, 7, 6) = (/ & - &6.5036e-03 ,5.6927e-03 ,4.8817e-03 ,4.0715e-03 ,3.2636e-03 ,2.4531e-03 , & - &1.6426e-03 ,8.2916e-04 ,6.2936e-06 /) - kao(:, 2, 7, 6) = (/ & - &6.4462e-03 ,5.6438e-03 ,4.8427e-03 ,4.0443e-03 ,3.2425e-03 ,2.4409e-03 , & - &1.6364e-03 ,8.3288e-04 ,1.1136e-05 /) - kao(:, 3, 7, 6) = (/ & - &6.4103e-03 ,5.6141e-03 ,4.8233e-03 ,4.0268e-03 ,3.2317e-03 ,2.4336e-03 , & - &1.6355e-03 ,8.3675e-04 ,1.7991e-05 /) - kao(:, 4, 7, 6) = (/ & - &6.4801e-03 ,5.6797e-03 ,4.8784e-03 ,4.0772e-03 ,3.2734e-03 ,2.4699e-03 , & - &1.6705e-03 ,8.6234e-04 ,2.8124e-05 /) - kao(:, 5, 7, 6) = (/ & - &6.4899e-03 ,5.6954e-03 ,4.8999e-03 ,4.1019e-03 ,3.3007e-03 ,2.5022e-03 , & - &1.6963e-03 ,8.8568e-04 ,4.2294e-05 /) - kao(:, 1, 8, 6) = (/ & - &1.9938e-02 ,1.7447e-02 ,1.4956e-02 ,1.2465e-02 ,9.9746e-03 ,7.4836e-03 , & - &4.9963e-03 ,2.5067e-03 ,5.1161e-06 /) - kao(:, 2, 8, 6) = (/ & - &2.0028e-02 ,1.7527e-02 ,1.5026e-02 ,1.2525e-02 ,1.0025e-02 ,7.5295e-03 , & - &5.0298e-03 ,2.5282e-03 ,9.0850e-06 /) - kao(:, 3, 8, 6) = (/ & - &1.9800e-02 ,1.7330e-02 ,1.4859e-02 ,1.2391e-02 ,9.9275e-03 ,7.4581e-03 , & - &4.9868e-03 ,2.5105e-03 ,1.5352e-05 /) - kao(:, 4, 8, 6) = (/ & - &1.9943e-02 ,1.7456e-02 ,1.4973e-02 ,1.2495e-02 ,1.0008e-02 ,7.5213e-03 , & - &5.0327e-03 ,2.5396e-03 ,2.4408e-05 /) - kao(:, 5, 8, 6) = (/ & - &2.0100e-02 ,1.7597e-02 ,1.5105e-02 ,1.2604e-02 ,1.0099e-02 ,7.5963e-03 , & - &5.0871e-03 ,2.5804e-03 ,3.7067e-05 /) - kao(:, 1, 9, 6) = (/ & - &1.1579e-01 ,1.0132e-01 ,8.6843e-02 ,7.2372e-02 ,5.7899e-02 ,4.3426e-02 , & - &2.8954e-02 ,1.4481e-02 ,4.8758e-06 /) - kao(:, 2, 9, 6) = (/ & - &1.1661e-01 ,1.0203e-01 ,8.7460e-02 ,7.2886e-02 ,5.8311e-02 ,4.3737e-02 , & - &2.9163e-02 ,1.4591e-02 ,1.0307e-05 /) - kao(:, 3, 9, 6) = (/ & - &1.1709e-01 ,1.0246e-01 ,8.7825e-02 ,7.3192e-02 ,5.8559e-02 ,4.3925e-02 , & - &2.9293e-02 ,1.4674e-02 ,1.8955e-05 /) - kao(:, 4, 9, 6) = (/ & - &1.1566e-01 ,1.0121e-01 ,8.6757e-02 ,7.2304e-02 ,5.7852e-02 ,4.3402e-02 , & - &2.8967e-02 ,1.4512e-02 ,3.1114e-05 /) - kao(:, 5, 9, 6) = (/ & - &1.1720e-01 ,1.0255e-01 ,8.7909e-02 ,7.3266e-02 ,5.8634e-02 ,4.4011e-02 , & - &2.9372e-02 ,1.4720e-02 ,4.7731e-05 /) - kao(:, 1,10, 6) = (/ & - &7.9704e-01 ,6.9741e-01 ,5.9778e-01 ,4.9815e-01 ,3.9852e-01 ,2.9889e-01 , & - &1.9926e-01 ,9.9635e-02 ,6.0881e-06 /) - kao(:, 2,10, 6) = (/ & - &8.0524e-01 ,7.0458e-01 ,6.0393e-01 ,5.0328e-01 ,4.0263e-01 ,3.0197e-01 , & - &2.0132e-01 ,1.0067e-01 ,9.9592e-06 /) - kao(:, 3,10, 6) = (/ & - &8.0944e-01 ,7.0827e-01 ,6.0708e-01 ,5.0591e-01 ,4.0473e-01 ,3.0356e-01 , & - &2.0238e-01 ,1.0120e-01 ,1.7097e-05 /) - kao(:, 4,10, 6) = (/ & - &8.0782e-01 ,7.0685e-01 ,6.0589e-01 ,5.0491e-01 ,4.0393e-01 ,3.0295e-01 , & - &2.0198e-01 ,1.0100e-01 ,2.9862e-05 /) - kao(:, 5,10, 6) = (/ & - &8.0293e-01 ,7.0255e-01 ,6.0220e-01 ,5.0184e-01 ,4.0149e-01 ,3.0112e-01 , & - &2.0077e-01 ,1.0043e-01 ,4.8674e-05 /) - kao(:, 1,11, 6) = (/ & - &1.8320e+00 ,1.6031e+00 ,1.3740e+00 ,1.1450e+00 ,9.1602e-01 ,6.8703e-01 , & - &4.5802e-01 ,2.2901e-01 ,6.4794e-06 /) - kao(:, 2,11, 6) = (/ & - &1.8510e+00 ,1.6196e+00 ,1.3883e+00 ,1.1569e+00 ,9.2553e-01 ,6.9415e-01 , & - &4.6277e-01 ,2.3139e-01 ,1.1218e-05 /) - kao(:, 3,11, 6) = (/ & - &1.8631e+00 ,1.6303e+00 ,1.3974e+00 ,1.1645e+00 ,9.3160e-01 ,6.9871e-01 , & - &4.6580e-01 ,2.3291e-01 ,1.9228e-05 /) - kao(:, 4,11, 6) = (/ & - &1.8640e+00 ,1.6310e+00 ,1.3980e+00 ,1.1650e+00 ,9.3201e-01 ,6.9904e-01 , & - &4.6603e-01 ,2.3304e-01 ,3.3633e-05 /) - kao(:, 5,11, 6) = (/ & - &1.8480e+00 ,1.6170e+00 ,1.3860e+00 ,1.1550e+00 ,9.2402e-01 ,6.9305e-01 , & - &4.6206e-01 ,2.3108e-01 ,5.6086e-05 /) - kao(:, 1,12, 6) = (/ & - &2.6276e+00 ,2.2991e+00 ,1.9707e+00 ,1.6422e+00 ,1.3138e+00 ,9.8536e-01 , & - &6.5690e-01 ,3.2845e-01 ,6.1969e-06 /) - kao(:, 2,12, 6) = (/ & - &2.6587e+00 ,2.3264e+00 ,1.9940e+00 ,1.6617e+00 ,1.3293e+00 ,9.9701e-01 , & - &6.6468e-01 ,3.3234e-01 ,9.9191e-06 /) - kao(:, 3,12, 6) = (/ & - &2.6771e+00 ,2.3425e+00 ,2.0078e+00 ,1.6732e+00 ,1.3386e+00 ,1.0039e+00 , & - &6.6929e-01 ,3.3465e-01 ,1.7326e-05 /) - kao(:, 4,12, 6) = (/ & - &2.6786e+00 ,2.3438e+00 ,2.0090e+00 ,1.6742e+00 ,1.3393e+00 ,1.0045e+00 , & - &6.6968e-01 ,3.3487e-01 ,3.0600e-05 /) - kao(:, 5,12, 6) = (/ & - &2.6738e+00 ,2.3396e+00 ,2.0054e+00 ,1.6711e+00 ,1.3369e+00 ,1.0027e+00 , & - &6.6852e-01 ,3.3432e-01 ,4.9574e-05 /) - kao(:, 1,13, 6) = (/ & - &3.0141e+00 ,2.6373e+00 ,2.2606e+00 ,1.8838e+00 ,1.5070e+00 ,1.1303e+00 , & - &7.5353e-01 ,3.7676e-01 ,5.4676e-06 /) - kao(:, 2,13, 6) = (/ & - &3.0533e+00 ,2.6716e+00 ,2.2900e+00 ,1.9083e+00 ,1.5266e+00 ,1.1450e+00 , & - &7.6332e-01 ,3.8166e-01 ,9.0049e-06 /) - kao(:, 3,13, 6) = (/ & - &3.0797e+00 ,2.6947e+00 ,2.3097e+00 ,1.9248e+00 ,1.5398e+00 ,1.1549e+00 , & - &7.6993e-01 ,3.8499e-01 ,1.5493e-05 /) - kao(:, 4,13, 6) = (/ & - &3.0841e+00 ,2.6986e+00 ,2.3131e+00 ,1.9276e+00 ,1.5421e+00 ,1.1566e+00 , & - &7.7107e-01 ,3.8557e-01 ,2.5494e-05 /) - kao(:, 5,13, 6) = (/ & - &3.0968e+00 ,2.7097e+00 ,2.3226e+00 ,1.9355e+00 ,1.5484e+00 ,1.1613e+00 , & - &7.7428e-01 ,3.8723e-01 ,4.2043e-05 /) - kao(:, 1, 1, 7) = (/ & - &4.9351e-05 ,5.1634e-05 ,5.0550e-05 ,4.1436e-05 ,1.6376e-05 ,2.1065e-05 , & - &3.5627e-05 ,5.1301e-05 ,2.4192e-05 /) - kao(:, 2, 1, 7) = (/ & - &4.8474e-05 ,5.5540e-05 ,5.6343e-05 ,5.4221e-05 ,4.2170e-05 ,2.4823e-05 , & - &3.1731e-05 ,5.9201e-05 ,4.8733e-05 /) - kao(:, 3, 1, 7) = (/ & - &4.7492e-05 ,6.0199e-05 ,6.3032e-05 ,6.6317e-05 ,6.8647e-05 ,6.4541e-05 , & - &4.0308e-05 ,5.5421e-05 ,1.0385e-04 /) - kao(:, 4, 1, 7) = (/ & - &4.5731e-05 ,6.4480e-05 ,7.0656e-05 ,8.0927e-05 ,9.1209e-05 ,1.0812e-04 , & - &1.1177e-04 ,6.7578e-05 ,1.5053e-04 /) - kao(:, 5, 1, 7) = (/ & - &4.5536e-05 ,6.8791e-05 ,8.4361e-05 ,1.0008e-04 ,1.1558e-04 ,1.4310e-04 , & - &1.8138e-04 ,1.7860e-04 ,2.0339e-04 /) - kao(:, 1, 2, 7) = (/ & - &8.7853e-05 ,8.5975e-05 ,8.0217e-05 ,7.2158e-05 ,5.1923e-05 ,1.7714e-05 , & - &2.3551e-05 ,3.4001e-05 ,1.8843e-05 /) - kao(:, 2, 2, 7) = (/ & - &8.7406e-05 ,8.8950e-05 ,8.5976e-05 ,7.9247e-05 ,6.9532e-05 ,3.6395e-05 , & - &2.2706e-05 ,4.1033e-05 ,5.5544e-05 /) - kao(:, 3, 2, 7) = (/ & - &8.7368e-05 ,9.3020e-05 ,9.1442e-05 ,8.8073e-05 ,8.2295e-05 ,7.2901e-05 , & - &4.3354e-05 ,4.6618e-05 ,9.4748e-05 /) - kao(:, 4, 2, 7) = (/ & - &8.6439e-05 ,9.8041e-05 ,9.9373e-05 ,9.8643e-05 ,9.7447e-05 ,9.7462e-05 , & - &9.8905e-05 ,6.1372e-05 ,1.3473e-04 /) - kao(:, 5, 2, 7) = (/ & - &8.4149e-05 ,1.0269e-04 ,1.0851e-04 ,1.1232e-04 ,1.1694e-04 ,1.2384e-04 , & - &1.3615e-04 ,1.5254e-04 ,1.8188e-04 /) - kao(:, 1, 3, 7) = (/ & - &2.2417e-04 ,2.0404e-04 ,1.8235e-04 ,1.5974e-04 ,1.3536e-04 ,1.0733e-04 , & - &2.8889e-05 ,2.3292e-05 ,2.7610e-05 /) - kao(:, 2, 3, 7) = (/ & - &2.2507e-04 ,2.0905e-04 ,1.8945e-04 ,1.6889e-04 ,1.4442e-04 ,1.1619e-04 , & - &5.9496e-05 ,2.4524e-05 ,5.6641e-05 /) - kao(:, 3, 3, 7) = (/ & - &2.2338e-04 ,2.1298e-04 ,1.9588e-04 ,1.7647e-04 ,1.5321e-04 ,1.2706e-04 , & - &9.4765e-05 ,2.7601e-05 ,8.4458e-05 /) - kao(:, 4, 3, 7) = (/ & - &2.2342e-04 ,2.1728e-04 ,2.0413e-04 ,1.8620e-04 ,1.6349e-04 ,1.4113e-04 , & - &1.1467e-04 ,6.7006e-05 ,1.1844e-04 /) - kao(:, 5, 3, 7) = (/ & - &2.2238e-04 ,2.2192e-04 ,2.1227e-04 ,1.9647e-04 ,1.7779e-04 ,1.5802e-04 , & - &1.3658e-04 ,1.1946e-04 ,1.6048e-04 /) - kao(:, 1, 4, 7) = (/ & - &5.9406e-04 ,5.2735e-04 ,4.5854e-04 ,3.9146e-04 ,3.2173e-04 ,2.5115e-04 , & - &1.8204e-04 ,3.3380e-05 ,2.9857e-05 /) - kao(:, 2, 4, 7) = (/ & - &6.0105e-04 ,5.3531e-04 ,4.6978e-04 ,4.0022e-04 ,3.3097e-04 ,2.6221e-04 , & - &1.8773e-04 ,5.6092e-05 ,4.7642e-05 /) - kao(:, 3, 4, 7) = (/ & - &5.9920e-04 ,5.3954e-04 ,4.7635e-04 ,4.1122e-04 ,3.4497e-04 ,2.7525e-04 , & - &1.9878e-04 ,1.0920e-04 ,7.1351e-05 /) - kao(:, 4, 4, 7) = (/ & - &5.9595e-04 ,5.4459e-04 ,4.8204e-04 ,4.2190e-04 ,3.5656e-04 ,2.8691e-04 , & - &2.1194e-04 ,1.2834e-04 ,1.0247e-04 /) - kao(:, 5, 4, 7) = (/ & - &5.9682e-04 ,5.4845e-04 ,4.9542e-04 ,4.3507e-04 ,3.7084e-04 ,3.0256e-04 , & - &2.2629e-04 ,1.4673e-04 ,1.4061e-04 /) - kao(:, 1, 5, 7) = (/ & - &1.5636e-03 ,1.3738e-03 ,1.1854e-03 ,9.9627e-04 ,8.0358e-04 ,6.1134e-04 , & - &4.1794e-04 ,2.1940e-04 ,2.4302e-05 /) - kao(:, 2, 5, 7) = (/ & - &1.5046e-03 ,1.3266e-03 ,1.1472e-03 ,9.6320e-04 ,7.8248e-04 ,5.9833e-04 , & - &4.1211e-04 ,2.2595e-04 ,3.8463e-05 /) - kao(:, 3, 5, 7) = (/ & - &1.5168e-03 ,1.3431e-03 ,1.1615e-03 ,9.8412e-04 ,8.0210e-04 ,6.1684e-04 , & - &4.2935e-04 ,2.3832e-04 ,5.7958e-05 /) - kao(:, 4, 5, 7) = (/ & - &1.5026e-03 ,1.3336e-03 ,1.1649e-03 ,9.9050e-04 ,8.0890e-04 ,6.2936e-04 , & - &4.4480e-04 ,2.5053e-04 ,8.4195e-05 /) - kao(:, 5, 5, 7) = (/ & - &1.4982e-03 ,1.3418e-03 ,1.1752e-03 ,9.9791e-04 ,8.2403e-04 ,6.4480e-04 , & - &4.6309e-04 ,2.6575e-04 ,1.1855e-04 /) - kao(:, 1, 6, 7) = (/ & - &3.8022e-03 ,3.3297e-03 ,2.8587e-03 ,2.3909e-03 ,1.9206e-03 ,1.4508e-03 , & - &9.7686e-04 ,5.0103e-04 ,1.8374e-05 /) - kao(:, 2, 6, 7) = (/ & - &3.7188e-03 ,3.2606e-03 ,2.8078e-03 ,2.3509e-03 ,1.8941e-03 ,1.4317e-03 , & - &9.6949e-04 ,5.0170e-04 ,2.9781e-05 /) - kao(:, 3, 6, 7) = (/ & - &3.6568e-03 ,3.2124e-03 ,2.7660e-03 ,2.3181e-03 ,1.8667e-03 ,1.4148e-03 , & - &9.6121e-04 ,5.0473e-04 ,4.5442e-05 /) - kao(:, 4, 6, 7) = (/ & - &3.6655e-03 ,3.2274e-03 ,2.7830e-03 ,2.3318e-03 ,1.8859e-03 ,1.4380e-03 , & - &9.8239e-04 ,5.2260e-04 ,6.7780e-05 /) - kao(:, 5, 6, 7) = (/ & - &3.6236e-03 ,3.1965e-03 ,2.7643e-03 ,2.3328e-03 ,1.8928e-03 ,1.4444e-03 , & - &9.9870e-04 ,5.3910e-04 ,9.8293e-05 /) - kao(:, 1, 7, 7) = (/ & - &9.7756e-03 ,8.5557e-03 ,7.3357e-03 ,6.1160e-03 ,4.8978e-03 ,3.6826e-03 , & - &2.4642e-03 ,1.2466e-03 ,1.4263e-05 /) - kao(:, 2, 7, 7) = (/ & - &9.5966e-03 ,8.4005e-03 ,7.2050e-03 ,6.0128e-03 ,4.8216e-03 ,3.6274e-03 , & - &2.4345e-03 ,1.2337e-03 ,2.4094e-05 /) - kao(:, 3, 7, 7) = (/ & - &9.2939e-03 ,8.1388e-03 ,6.9869e-03 ,5.8375e-03 ,4.6843e-03 ,3.5321e-03 , & - &2.3720e-03 ,1.2113e-03 ,3.8518e-05 /) - kao(:, 4, 7, 7) = (/ & - &9.3185e-03 ,8.1650e-03 ,7.0200e-03 ,5.8680e-03 ,4.7180e-03 ,3.5579e-03 , & - &2.3933e-03 ,1.2260e-03 ,6.0065e-05 /) - kao(:, 5, 7, 7) = (/ & - &9.2942e-03 ,8.1544e-03 ,7.0105e-03 ,5.8689e-03 ,4.7186e-03 ,3.5646e-03 , & - &2.4113e-03 ,1.2505e-03 ,8.8114e-05 /) - kao(:, 1, 8, 7) = (/ & - &3.1428e-02 ,2.7501e-02 ,2.3574e-02 ,1.9646e-02 ,1.5719e-02 ,1.1792e-02 , & - &7.8652e-03 ,3.9445e-03 ,1.1179e-05 /) - kao(:, 2, 8, 7) = (/ & - &3.0933e-02 ,2.7068e-02 ,2.3204e-02 ,1.9341e-02 ,1.5477e-02 ,1.1614e-02 , & - &7.7579e-03 ,3.8961e-03 ,2.0761e-05 /) - kao(:, 3, 8, 7) = (/ & - &3.0367e-02 ,2.6575e-02 ,2.2784e-02 ,1.8992e-02 ,1.5203e-02 ,1.1421e-02 , & - &7.6337e-03 ,3.8475e-03 ,3.6107e-05 /) - kao(:, 4, 8, 7) = (/ & - &2.9365e-02 ,2.5702e-02 ,2.2039e-02 ,1.8381e-02 ,1.4731e-02 ,1.1072e-02 , & - &7.4163e-03 ,3.7447e-03 ,5.6666e-05 /) - kao(:, 5, 8, 7) = (/ & - &2.9621e-02 ,2.5930e-02 ,2.2243e-02 ,1.8569e-02 ,1.4884e-02 ,1.1199e-02 , & - &7.5061e-03 ,3.7957e-03 ,8.4702e-05 /) - kao(:, 1, 9, 7) = (/ & - &1.9031e-01 ,1.6652e-01 ,1.4273e-01 ,1.1894e-01 ,9.5159e-02 ,7.1370e-02 , & - &4.7583e-02 ,2.3794e-02 ,1.1825e-05 /) - kao(:, 2, 9, 7) = (/ & - &1.8790e-01 ,1.6442e-01 ,1.4093e-01 ,1.1744e-01 ,9.3958e-02 ,7.0471e-02 , & - &4.6985e-02 ,2.3500e-02 ,2.0873e-05 /) - kao(:, 3, 9, 7) = (/ & - &1.8549e-01 ,1.6231e-01 ,1.3912e-01 ,1.1594e-01 ,9.2757e-02 ,6.9574e-02 , & - &4.6391e-02 ,2.3213e-02 ,3.5554e-05 /) - kao(:, 4, 9, 7) = (/ & - &1.8255e-01 ,1.5974e-01 ,1.3693e-01 ,1.1411e-01 ,9.1298e-02 ,6.8486e-02 , & - &4.5672e-02 ,2.2886e-02 ,5.8671e-05 /) - kao(:, 5, 9, 7) = (/ & - &1.7785e-01 ,1.5563e-01 ,1.3341e-01 ,1.1118e-01 ,8.8960e-02 ,6.6737e-02 , & - &4.4547e-02 ,2.2336e-02 ,9.5234e-05 /) - kao(:, 1,10, 7) = (/ & - &1.3607e+00 ,1.1905e+00 ,1.0205e+00 ,8.5040e-01 ,6.8031e-01 ,5.1024e-01 , & - &3.4016e-01 ,1.7008e-01 ,8.4759e-06 /) - kao(:, 2,10, 7) = (/ & - &1.3482e+00 ,1.1796e+00 ,1.0111e+00 ,8.4260e-01 ,6.7408e-01 ,5.0556e-01 , & - &3.3705e-01 ,1.6853e-01 ,1.7938e-05 /) - kao(:, 3,10, 7) = (/ & - &1.3360e+00 ,1.1690e+00 ,1.0020e+00 ,8.3498e-01 ,6.6798e-01 ,5.0099e-01 , & - &3.3400e-01 ,1.6701e-01 ,3.3302e-05 /) - kao(:, 4,10, 7) = (/ & - &1.3243e+00 ,1.1588e+00 ,9.9325e-01 ,8.2771e-01 ,6.6217e-01 ,4.9664e-01 , & - &3.3111e-01 ,1.6557e-01 ,5.5097e-05 /) - kao(:, 5,10, 7) = (/ & - &1.3047e+00 ,1.1416e+00 ,9.7851e-01 ,8.1543e-01 ,6.5236e-01 ,4.8929e-01 , & - &3.2621e-01 ,1.6314e-01 ,9.0393e-05 /) - kao(:, 1,11, 7) = (/ & - &3.2276e+00 ,2.8242e+00 ,2.4208e+00 ,2.0173e+00 ,1.6138e+00 ,1.2104e+00 , & - &8.0693e-01 ,4.0346e-01 ,7.3681e-06 /) - kao(:, 2,11, 7) = (/ & - &3.2117e+00 ,2.8103e+00 ,2.4088e+00 ,2.0073e+00 ,1.6059e+00 ,1.2044e+00 , & - &8.0294e-01 ,4.0147e-01 ,1.5281e-05 /) - kao(:, 3,11, 7) = (/ & - &3.1949e+00 ,2.7955e+00 ,2.3962e+00 ,1.9968e+00 ,1.5975e+00 ,1.1981e+00 , & - &7.9874e-01 ,3.9938e-01 ,2.9166e-05 /) - kao(:, 4,11, 7) = (/ & - &3.1739e+00 ,2.7771e+00 ,2.3804e+00 ,1.9837e+00 ,1.5870e+00 ,1.1902e+00 , & - &7.9350e-01 ,3.9677e-01 ,4.9026e-05 /) - kao(:, 5,11, 7) = (/ & - &3.1466e+00 ,2.7532e+00 ,2.3599e+00 ,1.9666e+00 ,1.5733e+00 ,1.1800e+00 , & - &7.8668e-01 ,3.9338e-01 ,8.3128e-05 /) - kao(:, 1,12, 7) = (/ & - &4.8071e+00 ,4.2062e+00 ,3.6053e+00 ,3.0044e+00 ,2.4035e+00 ,1.8027e+00 , & - &1.2018e+00 ,6.0089e-01 ,7.8311e-06 /) - kao(:, 2,12, 7) = (/ & - &4.7982e+00 ,4.1985e+00 ,3.5987e+00 ,2.9989e+00 ,2.3991e+00 ,1.7993e+00 , & - &1.1996e+00 ,5.9978e-01 ,1.6500e-05 /) - kao(:, 3,12, 7) = (/ & - &4.7853e+00 ,4.1872e+00 ,3.5890e+00 ,2.9909e+00 ,2.3927e+00 ,1.7945e+00 , & - &1.1963e+00 ,5.9818e-01 ,3.1398e-05 /) - kao(:, 4,12, 7) = (/ & - &4.7636e+00 ,4.1682e+00 ,3.5727e+00 ,2.9773e+00 ,2.3818e+00 ,1.7864e+00 , & - &1.1909e+00 ,5.9548e-01 ,5.6315e-05 /) - kao(:, 5,12, 7) = (/ & - &4.7234e+00 ,4.1330e+00 ,3.5426e+00 ,2.9521e+00 ,2.3618e+00 ,1.7713e+00 , & - &1.1809e+00 ,5.9047e-01 ,9.4104e-05 /) - kao(:, 1,13, 7) = (/ & - &5.7320e+00 ,5.0155e+00 ,4.2989e+00 ,3.5824e+00 ,2.8660e+00 ,2.1495e+00 , & - &1.4330e+00 ,7.1649e-01 ,9.5542e-06 /) - kao(:, 2,13, 7) = (/ & - &5.7353e+00 ,5.0184e+00 ,4.3015e+00 ,3.5845e+00 ,2.8676e+00 ,2.1507e+00 , & - &1.4338e+00 ,7.1691e-01 ,1.9109e-05 /) - kao(:, 3,13, 7) = (/ & - &5.7278e+00 ,5.0119e+00 ,4.2959e+00 ,3.5799e+00 ,2.8639e+00 ,2.1479e+00 , & - &1.4320e+00 ,7.1599e-01 ,3.6436e-05 /) - kao(:, 4,13, 7) = (/ & - &5.7108e+00 ,4.9969e+00 ,4.2830e+00 ,3.5692e+00 ,2.8554e+00 ,2.1415e+00 , & - &1.4277e+00 ,7.1386e-01 ,6.4763e-05 /) - kao(:, 5,13, 7) = (/ & - &5.6635e+00 ,4.9556e+00 ,4.2476e+00 ,3.5397e+00 ,2.8317e+00 ,2.1238e+00 , & - &1.4159e+00 ,7.0796e-01 ,1.0153e-04 /) - kao(:, 1, 1, 8) = (/ & - &5.6440e-05 ,6.3815e-05 ,6.7040e-05 ,7.2656e-05 ,5.7075e-05 ,3.5497e-05 , & - &4.7197e-05 ,3.9064e-05 ,8.4705e-05 /) - kao(:, 2, 1, 8) = (/ & - &5.6956e-05 ,6.9440e-05 ,7.5002e-05 ,9.1724e-05 ,1.1786e-04 ,1.1581e-04 , & - &7.2124e-05 ,6.3862e-05 ,2.0332e-04 /) - kao(:, 3, 1, 8) = (/ & - &5.4856e-05 ,7.4835e-05 ,8.9381e-05 ,1.1688e-04 ,1.6480e-04 ,2.0403e-04 , & - &2.1723e-04 ,1.2068e-04 ,2.9982e-04 /) - kao(:, 4, 1, 8) = (/ & - &5.2749e-05 ,8.4849e-05 ,1.1205e-04 ,1.5064e-04 ,2.1741e-04 ,2.8178e-04 , & - &3.3958e-04 ,3.6475e-04 ,4.0572e-04 /) - kao(:, 5, 1, 8) = (/ & - &4.5645e-05 ,1.0085e-04 ,1.3954e-04 ,1.9411e-04 ,2.8393e-04 ,3.7289e-04 , & - &4.5784e-04 ,5.5744e-04 ,5.3928e-04 /) - kao(:, 1, 2, 8) = (/ & - &1.0540e-04 ,1.0513e-04 ,1.0042e-04 ,9.6258e-05 ,8.8970e-05 ,4.3184e-05 , & - &2.9692e-05 ,3.3913e-05 ,8.0284e-05 /) - kao(:, 2, 2, 8) = (/ & - &1.0559e-04 ,1.0940e-04 ,1.0770e-04 ,1.0381e-04 ,1.0664e-04 ,1.1502e-04 , & - &8.1785e-05 ,5.3525e-05 ,1.4202e-04 /) - kao(:, 3, 2, 8) = (/ & - &1.0218e-04 ,1.1568e-04 ,1.1773e-04 ,1.2016e-04 ,1.3039e-04 ,1.6512e-04 , & - &1.8884e-04 ,1.2031e-04 ,2.0363e-04 /) - kao(:, 4, 2, 8) = (/ & - &9.8487e-05 ,1.1922e-04 ,1.3281e-04 ,1.4606e-04 ,1.6549e-04 ,2.1784e-04 , & - &2.7427e-04 ,3.0595e-04 ,2.8029e-04 /) - kao(:, 5, 2, 8) = (/ & - &9.4987e-05 ,1.2846e-04 ,1.5591e-04 ,1.8268e-04 ,2.1442e-04 ,2.8547e-04 , & - &3.6877e-04 ,4.4657e-04 ,3.7746e-04 /) - kao(:, 1, 3, 8) = (/ & - &2.7647e-04 ,2.5246e-04 ,2.2770e-04 ,2.0041e-04 ,1.7472e-04 ,1.4681e-04 , & - &4.5677e-05 ,2.9185e-05 ,7.9704e-05 /) - kao(:, 2, 3, 8) = (/ & - &2.7846e-04 ,2.6060e-04 ,2.3622e-04 ,2.0968e-04 ,1.8322e-04 ,1.5414e-04 , & - &1.2348e-04 ,3.8961e-05 ,1.2336e-04 /) - kao(:, 3, 3, 8) = (/ & - &2.7763e-04 ,2.6427e-04 ,2.4553e-04 ,2.2406e-04 ,1.9856e-04 ,1.7101e-04 , & - &1.5714e-04 ,1.3645e-04 ,1.7764e-04 /) - kao(:, 4, 3, 8) = (/ & - &2.7073e-04 ,2.6684e-04 ,2.5482e-04 ,2.3763e-04 ,2.1876e-04 ,2.0158e-04 , & - &1.9981e-04 ,2.4173e-04 ,2.4735e-04 /) - kao(:, 5, 3, 8) = (/ & - &2.6027e-04 ,2.7336e-04 ,2.6560e-04 ,2.5755e-04 ,2.5236e-04 ,2.4811e-04 , & - &2.5900e-04 ,3.3153e-04 ,3.3717e-04 /) - kao(:, 1, 4, 8) = (/ & - &7.9130e-04 ,7.0063e-04 ,6.1298e-04 ,5.1987e-04 ,4.2755e-04 ,3.3326e-04 , & - &2.3363e-04 ,3.7051e-05 ,7.4199e-05 /) - kao(:, 2, 4, 8) = (/ & - &7.5980e-04 ,6.7845e-04 ,5.9445e-04 ,5.1095e-04 ,4.1981e-04 ,3.2923e-04 , & - &2.4168e-04 ,1.3135e-04 ,1.1471e-04 /) - kao(:, 3, 4, 8) = (/ & - &7.6644e-04 ,6.8984e-04 ,6.0948e-04 ,5.2391e-04 ,4.3682e-04 ,3.5056e-04 , & - &2.5756e-04 ,1.6433e-04 ,1.6687e-04 /) - kao(:, 4, 4, 8) = (/ & - &7.5595e-04 ,6.9178e-04 ,6.1629e-04 ,5.3601e-04 ,4.5434e-04 ,3.7215e-04 , & - &2.8231e-04 ,1.9566e-04 ,2.3395e-04 /) - kao(:, 5, 4, 8) = (/ & - &7.4067e-04 ,6.8825e-04 ,6.1664e-04 ,5.5301e-04 ,4.7442e-04 ,3.9621e-04 , & - &3.1512e-04 ,2.4572e-04 ,3.2210e-04 /) - kao(:, 1, 5, 8) = (/ & - &2.0703e-03 ,1.8139e-03 ,1.5621e-03 ,1.3106e-03 ,1.0600e-03 ,8.0652e-04 , & - &5.5133e-04 ,2.9069e-04 ,6.3670e-05 /) - kao(:, 2, 5, 8) = (/ & - &1.9818e-03 ,1.7441e-03 ,1.5082e-03 ,1.2728e-03 ,1.0326e-03 ,7.9434e-04 , & - &5.4918e-04 ,2.9978e-04 ,1.0147e-04 /) - kao(:, 3, 5, 8) = (/ & - &1.9776e-03 ,1.7438e-03 ,1.5149e-03 ,1.2743e-03 ,1.0380e-03 ,7.9656e-04 , & - &5.5670e-04 ,3.0633e-04 ,1.5212e-04 /) - kao(:, 4, 5, 8) = (/ & - &1.9765e-03 ,1.7561e-03 ,1.5287e-03 ,1.2973e-03 ,1.0616e-03 ,8.2154e-04 , & - &5.8167e-04 ,3.3115e-04 ,2.1510e-04 /) - kao(:, 5, 5, 8) = (/ & - &1.9526e-03 ,1.7391e-03 ,1.5270e-03 ,1.3031e-03 ,1.0804e-03 ,8.4755e-04 , & - &6.0189e-04 ,3.6102e-04 ,2.9241e-04 /) - kao(:, 1, 6, 8) = (/ & - &5.2193e-03 ,4.5684e-03 ,3.9176e-03 ,3.2705e-03 ,2.6232e-03 ,1.9766e-03 , & - &1.3309e-03 ,6.8212e-04 ,5.1398e-05 /) - kao(:, 2, 6, 8) = (/ & - &5.0808e-03 ,4.4486e-03 ,3.8217e-03 ,3.1970e-03 ,2.5720e-03 ,1.9485e-03 , & - &1.3187e-03 ,6.8335e-04 ,8.5267e-05 /) - kao(:, 3, 6, 8) = (/ & - &4.8228e-03 ,4.2284e-03 ,3.6430e-03 ,3.0578e-03 ,2.4711e-03 ,1.8742e-03 , & - &1.2774e-03 ,6.7264e-04 ,1.3245e-04 /) - kao(:, 4, 6, 8) = (/ & - &4.8943e-03 ,4.3003e-03 ,3.7080e-03 ,3.1199e-03 ,2.5213e-03 ,1.9154e-03 , & - &1.3062e-03 ,6.9055e-04 ,1.9661e-04 /) - kao(:, 5, 6, 8) = (/ & - &4.8824e-03 ,4.3025e-03 ,3.7232e-03 ,3.1333e-03 ,2.5429e-03 ,1.9512e-03 , & - &1.3415e-03 ,7.2251e-04 ,2.7802e-04 /) - kao(:, 1, 7, 8) = (/ & - &1.3875e-02 ,1.2141e-02 ,1.0408e-02 ,8.6749e-03 ,6.9418e-03 ,5.2118e-03 , & - &3.4839e-03 ,1.7560e-03 ,4.0537e-05 /) - kao(:, 2, 7, 8) = (/ & - &1.3633e-02 ,1.1931e-02 ,1.0229e-02 ,8.5279e-03 ,6.8346e-03 ,5.1400e-03 , & - &3.4444e-03 ,1.7477e-03 ,6.8687e-05 /) - kao(:, 3, 7, 8) = (/ & - &1.3328e-02 ,1.1666e-02 ,1.0007e-02 ,8.3587e-03 ,6.7074e-03 ,5.0533e-03 , & - &3.4014e-03 ,1.7372e-03 ,1.1189e-04 /) - kao(:, 4, 7, 8) = (/ & - &1.2636e-02 ,1.1066e-02 ,9.5081e-03 ,7.9486e-03 ,6.3850e-03 ,4.8258e-03 , & - &3.2564e-03 ,1.6750e-03 ,1.7143e-04 /) - kao(:, 5, 7, 8) = (/ & - &1.2752e-02 ,1.1174e-02 ,9.6135e-03 ,8.0399e-03 ,6.4759e-03 ,4.9028e-03 , & - &3.3183e-03 ,1.7153e-03 ,2.5158e-04 /) - kao(:, 1, 8, 8) = (/ & - &4.6547e-02 ,4.0730e-02 ,3.4913e-02 ,2.9095e-02 ,2.3277e-02 ,1.7460e-02 , & - &1.1642e-02 ,5.8282e-03 ,3.2784e-05 /) - kao(:, 2, 8, 8) = (/ & - &4.5721e-02 ,4.0008e-02 ,3.4294e-02 ,2.8581e-02 ,2.2868e-02 ,1.7154e-02 , & - &1.1445e-02 ,5.7448e-03 ,5.6960e-05 /) - kao(:, 3, 8, 8) = (/ & - &4.4866e-02 ,3.9261e-02 ,3.3657e-02 ,2.8053e-02 ,2.2449e-02 ,1.6850e-02 , & - &1.1263e-02 ,5.6659e-03 ,9.3969e-05 /) - kao(:, 4, 8, 8) = (/ & - &4.3949e-02 ,3.8462e-02 ,3.2975e-02 ,2.7489e-02 ,2.2013e-02 ,1.6548e-02 , & - &1.1065e-02 ,5.5874e-03 ,1.4907e-04 /) - kao(:, 5, 8, 8) = (/ & - &4.1860e-02 ,3.6641e-02 ,3.1420e-02 ,2.6211e-02 ,2.1011e-02 ,1.5788e-02 , & - &1.0584e-02 ,5.3726e-03 ,2.2697e-04 /) - kao(:, 1, 9, 8) = (/ & - &2.9682e-01 ,2.5971e-01 ,2.2262e-01 ,1.8551e-01 ,1.4841e-01 ,1.1131e-01 , & - &7.4208e-02 ,3.7107e-02 ,2.8713e-05 /) - kao(:, 2, 9, 8) = (/ & - &2.9173e-01 ,2.5526e-01 ,2.1881e-01 ,1.8234e-01 ,1.4587e-01 ,1.0941e-01 , & - &7.2941e-02 ,3.6477e-02 ,5.3026e-05 /) - kao(:, 3, 9, 8) = (/ & - &2.8647e-01 ,2.5066e-01 ,2.1486e-01 ,1.7905e-01 ,1.4325e-01 ,1.0744e-01 , & - &7.1634e-02 ,3.5829e-02 ,9.1273e-05 /) - kao(:, 4, 9, 8) = (/ & - &2.8100e-01 ,2.4588e-01 ,2.1076e-01 ,1.7564e-01 ,1.4052e-01 ,1.0540e-01 , & - &7.0282e-02 ,3.5177e-02 ,1.4937e-04 /) - kao(:, 5, 9, 8) = (/ & - &2.7385e-01 ,2.3963e-01 ,2.0540e-01 ,1.7118e-01 ,1.3696e-01 ,1.0274e-01 , & - &6.8516e-02 ,3.4350e-02 ,2.3011e-04 /) - kao(:, 1,10, 8) = (/ & - &2.2461e+00 ,1.9654e+00 ,1.6846e+00 ,1.4038e+00 ,1.1231e+00 ,8.4230e-01 , & - &5.6154e-01 ,2.8077e-01 ,2.2240e-05 /) - kao(:, 2,10, 8) = (/ & - &2.2106e+00 ,1.9343e+00 ,1.6579e+00 ,1.3816e+00 ,1.1053e+00 ,8.2897e-01 , & - &5.5265e-01 ,2.7633e-01 ,4.4575e-05 /) - kao(:, 3,10, 8) = (/ & - &2.1737e+00 ,1.9020e+00 ,1.6303e+00 ,1.3586e+00 ,1.0869e+00 ,8.1516e-01 , & - &5.4345e-01 ,2.7173e-01 ,8.8587e-05 /) - kao(:, 4,10, 8) = (/ & - &2.1348e+00 ,1.8680e+00 ,1.6011e+00 ,1.3342e+00 ,1.0674e+00 ,8.0056e-01 , & - &5.3373e-01 ,2.6688e-01 ,1.5800e-04 /) - kao(:, 5,10, 8) = (/ & - &2.0952e+00 ,1.8333e+00 ,1.5714e+00 ,1.3095e+00 ,1.0476e+00 ,7.8572e-01 , & - &5.2383e-01 ,2.6194e-01 ,2.5854e-04 /) - kao(:, 1,11, 8) = (/ & - &5.6263e+00 ,4.9230e+00 ,4.2197e+00 ,3.5164e+00 ,2.8132e+00 ,2.1099e+00 , & - &1.4066e+00 ,7.0330e-01 ,2.4215e-05 /) - kao(:, 2,11, 8) = (/ & - &5.5442e+00 ,4.8512e+00 ,4.1582e+00 ,3.4652e+00 ,2.7721e+00 ,2.0791e+00 , & - &1.3861e+00 ,6.9304e-01 ,5.0673e-05 /) - kao(:, 3,11, 8) = (/ & - &5.4573e+00 ,4.7752e+00 ,4.0930e+00 ,3.4108e+00 ,2.7286e+00 ,2.0465e+00 , & - &1.3643e+00 ,6.8218e-01 ,9.6231e-05 /) - kao(:, 4,11, 8) = (/ & - &5.3719e+00 ,4.7004e+00 ,4.0290e+00 ,3.3575e+00 ,2.6860e+00 ,2.0145e+00 , & - &1.3430e+00 ,6.7153e-01 ,1.7007e-04 /) - kao(:, 5,11, 8) = (/ & - &5.2804e+00 ,4.6204e+00 ,3.9603e+00 ,3.3002e+00 ,2.6402e+00 ,1.9802e+00 , & - &1.3201e+00 ,6.6009e-01 ,2.7665e-04 /) - kao(:, 1,12, 8) = (/ & - &8.8343e+00 ,7.7300e+00 ,6.6256e+00 ,5.5214e+00 ,4.4171e+00 ,3.3128e+00 , & - &2.2085e+00 ,1.1043e+00 ,2.5372e-05 /) - kao(:, 2,12, 8) = (/ & - &8.7174e+00 ,7.6278e+00 ,6.5381e+00 ,5.4484e+00 ,4.3587e+00 ,3.2690e+00 , & - &2.1794e+00 ,1.0897e+00 ,5.2642e-05 /) - kao(:, 3,12, 8) = (/ & - &8.5962e+00 ,7.5216e+00 ,6.4471e+00 ,5.3726e+00 ,4.2981e+00 ,3.2236e+00 , & - &2.1490e+00 ,1.0745e+00 ,9.9934e-05 /) - kao(:, 4,12, 8) = (/ & - &8.4730e+00 ,7.4139e+00 ,6.3547e+00 ,5.2956e+00 ,4.2365e+00 ,3.1774e+00 , & - &2.1183e+00 ,1.0591e+00 ,1.7486e-04 /) - kao(:, 5,12, 8) = (/ & - &8.3427e+00 ,7.2999e+00 ,6.2571e+00 ,5.2142e+00 ,4.1714e+00 ,3.1285e+00 , & - &2.0857e+00 ,1.0429e+00 ,2.8225e-04 /) - kao(:, 1,13, 8) = (/ & - &1.1088e+01 ,9.7019e+00 ,8.3159e+00 ,6.9299e+00 ,5.5439e+00 ,4.1579e+00 , & - &2.7720e+00 ,1.3860e+00 ,2.2843e-05 /) - kao(:, 2,13, 8) = (/ & - &1.0963e+01 ,9.5924e+00 ,8.2220e+00 ,6.8518e+00 ,5.4814e+00 ,4.1110e+00 , & - &2.7407e+00 ,1.3703e+00 ,4.7912e-05 /) - kao(:, 3,13, 8) = (/ & - &1.0836e+01 ,9.4815e+00 ,8.1269e+00 ,6.7725e+00 ,5.4179e+00 ,4.0635e+00 , & - &2.7090e+00 ,1.3545e+00 ,9.1850e-05 /) - kao(:, 4,13, 8) = (/ & - &1.0705e+01 ,9.3666e+00 ,8.0284e+00 ,6.6904e+00 ,5.3523e+00 ,4.0142e+00 , & - &2.6761e+00 ,1.3381e+00 ,1.6522e-04 /) - kao(:, 5,13, 8) = (/ & - &1.0568e+01 ,9.2475e+00 ,7.9263e+00 ,6.6053e+00 ,5.2842e+00 ,3.9632e+00 , & - &2.6421e+00 ,1.3211e+00 ,2.8269e-04 /) - kao(:, 1, 1, 9) = (/ & - &6.2917e-05 ,8.4558e-05 ,1.3686e-04 ,1.9740e-04 ,2.4967e-04 ,2.7515e-04 , & - &1.6338e-04 ,4.8223e-05 ,4.6728e-04 /) - kao(:, 2, 1, 9) = (/ & - &5.3089e-05 ,9.0420e-05 ,1.8251e-04 ,2.7670e-04 ,3.5886e-04 ,4.3834e-04 , & - &4.9477e-04 ,2.3929e-04 ,6.8730e-04 /) - kao(:, 3, 1, 9) = (/ & - &4.3039e-05 ,1.0946e-04 ,2.4429e-04 ,3.7961e-04 ,4.9689e-04 ,6.1288e-04 , & - &7.2274e-04 ,7.7240e-04 ,9.6431e-04 /) - kao(:, 4, 1, 9) = (/ & - &3.4069e-05 ,1.3830e-04 ,3.2177e-04 ,5.0878e-04 ,6.6994e-04 ,8.2945e-04 , & - &9.8413e-04 ,1.1125e-03 ,1.3109e-03 /) - kao(:, 5, 1, 9) = (/ & - &3.0399e-05 ,1.7548e-04 ,4.1760e-04 ,6.6731e-04 ,8.8167e-04 ,1.0941e-03 , & - &1.3015e-03 ,1.4854e-03 ,1.7348e-03 /) - kao(:, 1, 2, 9) = (/ & - &1.1900e-04 ,1.2836e-04 ,1.4231e-04 ,1.8014e-04 ,2.2526e-04 ,2.6329e-04 , & - &2.2981e-04 ,4.7447e-05 ,3.9923e-04 /) - kao(:, 2, 2, 9) = (/ & - &1.1384e-04 ,1.2703e-04 ,1.6170e-04 ,2.3947e-04 ,3.1945e-04 ,3.8888e-04 , & - &4.4936e-04 ,3.6063e-04 ,5.9020e-04 /) - kao(:, 3, 2, 9) = (/ & - &9.6344e-05 ,1.3540e-04 ,2.0202e-04 ,3.2063e-04 ,4.4367e-04 ,5.4566e-04 , & - &6.4489e-04 ,7.2550e-04 ,8.3580e-04 /) - kao(:, 4, 2, 9) = (/ & - &7.7835e-05 ,1.6099e-04 ,2.5994e-04 ,4.2610e-04 ,6.0189e-04 ,7.4414e-04 , & - &8.8531e-04 ,1.0210e-03 ,1.1481e-03 /) - kao(:, 5, 2, 9) = (/ & - &6.0959e-05 ,1.9625e-04 ,3.3515e-04 ,5.6029e-04 ,7.9618e-04 ,9.9092e-04 , & - &1.1822e-03 ,1.3661e-03 ,1.5393e-03 /) - kao(:, 1, 3, 9) = (/ & - &3.4384e-04 ,3.1901e-04 ,2.9656e-04 ,2.7161e-04 ,2.4956e-04 ,2.4575e-04 , & - &2.4892e-04 ,1.2874e-04 ,2.5500e-04 /) - kao(:, 2, 3, 9) = (/ & - &3.2651e-04 ,2.9987e-04 ,2.8407e-04 ,2.6822e-04 ,2.8382e-04 ,3.2698e-04 , & - &3.7690e-04 ,3.8984e-04 ,3.8097e-04 /) - kao(:, 3, 3, 9) = (/ & - &3.1133e-04 ,2.9825e-04 ,2.8892e-04 ,2.8983e-04 ,3.4857e-04 ,4.4151e-04 , & - &5.3596e-04 ,6.0662e-04 ,5.5422e-04 /) - kao(:, 4, 3, 9) = (/ & - &2.6650e-04 ,2.9032e-04 ,3.1626e-04 ,3.4521e-04 ,4.5449e-04 ,5.9386e-04 , & - &7.4052e-04 ,8.5104e-04 ,7.8265e-04 /) - kao(:, 5, 3, 9) = (/ & - &2.2412e-04 ,2.9039e-04 ,3.7283e-04 ,4.3223e-04 ,5.9364e-04 ,7.9041e-04 , & - &9.9696e-04 ,1.1553e-03 ,1.0705e-03 /) - kao(:, 1, 4, 9) = (/ & - &1.0105e-03 ,8.9198e-04 ,7.7732e-04 ,6.6567e-04 ,5.5452e-04 ,4.4086e-04 , & - &3.2869e-04 ,1.9418e-04 ,1.7212e-04 /) - kao(:, 2, 4, 9) = (/ & - &9.2169e-04 ,8.2421e-04 ,7.2924e-04 ,6.3857e-04 ,5.4763e-04 ,4.5198e-04 , & - &3.7244e-04 ,3.3779e-04 ,2.7365e-04 /) - kao(:, 3, 4, 9) = (/ & - &9.1340e-04 ,8.1831e-04 ,7.2882e-04 ,6.3523e-04 ,5.3088e-04 ,4.5658e-04 , & - &4.4489e-04 ,4.8577e-04 ,4.2302e-04 /) - kao(:, 4, 4, 9) = (/ & - &8.9251e-04 ,8.0269e-04 ,7.3471e-04 ,6.4402e-04 ,5.5905e-04 ,5.1386e-04 , & - &5.6577e-04 ,6.8086e-04 ,6.2344e-04 /) - kao(:, 5, 4, 9) = (/ & - &7.9475e-04 ,7.3797e-04 ,7.1362e-04 ,6.7001e-04 ,6.3957e-04 ,6.1730e-04 , & - &7.4587e-04 ,9.2826e-04 ,8.7756e-04 /) - kao(:, 1, 5, 9) = (/ & - &2.6935e-03 ,2.3593e-03 ,2.0323e-03 ,1.7047e-03 ,1.3798e-03 ,1.0522e-03 , & - &7.2780e-04 ,3.9954e-04 ,1.6653e-04 /) - kao(:, 2, 5, 9) = (/ & - &2.6191e-03 ,2.2983e-03 ,1.9871e-03 ,1.6780e-03 ,1.3636e-03 ,1.0535e-03 , & - &7.4346e-04 ,4.3038e-04 ,2.6682e-04 /) - kao(:, 3, 5, 9) = (/ & - &2.3650e-03 ,2.0866e-03 ,1.8132e-03 ,1.5443e-03 ,1.2810e-03 ,1.0093e-03 , & - &7.2606e-04 ,4.8378e-04 ,4.1282e-04 /) - kao(:, 4, 5, 9) = (/ & - &2.4014e-03 ,2.1168e-03 ,1.8401e-03 ,1.5793e-03 ,1.3157e-03 ,1.0190e-03 , & - &7.3809e-04 ,5.7085e-04 ,6.1502e-04 /) - kao(:, 5, 5, 9) = (/ & - &2.3689e-03 ,2.1027e-03 ,1.8524e-03 ,1.6218e-03 ,1.3262e-03 ,1.0531e-03 , & - &8.0904e-04 ,7.1684e-04 ,8.8985e-04 /) - kao(:, 1, 6, 9) = (/ & - &6.9308e-03 ,6.0665e-03 ,5.2022e-03 ,4.3390e-03 ,3.4845e-03 ,2.6255e-03 , & - &1.7705e-03 ,9.1297e-04 ,1.4507e-04 /) - kao(:, 2, 6, 9) = (/ & - &6.7707e-03 ,5.9271e-03 ,5.0849e-03 ,4.2542e-03 ,3.4202e-03 ,2.5899e-03 , & - &1.7563e-03 ,9.2722e-04 ,2.4197e-04 /) - kao(:, 3, 6, 9) = (/ & - &6.6111e-03 ,5.7877e-03 ,4.9821e-03 ,4.1734e-03 ,3.3664e-03 ,2.5641e-03 , & - &1.7626e-03 ,9.4198e-04 ,3.8026e-04 /) - kao(:, 4, 6, 9) = (/ & - &6.0438e-03 ,5.3003e-03 ,4.5745e-03 ,3.8441e-03 ,3.1111e-03 ,2.3922e-03 , & - &1.6672e-03 ,9.3430e-04 ,5.5692e-04 /) - kao(:, 5, 6, 9) = (/ & - &6.1335e-03 ,5.3879e-03 ,4.6501e-03 ,3.9141e-03 ,3.1883e-03 ,2.4602e-03 , & - &1.7143e-03 ,9.6080e-04 ,7.9260e-04 /) - kao(:, 1, 7, 9) = (/ & - &1.9047e-02 ,1.6668e-02 ,1.4288e-02 ,1.1909e-02 ,9.5299e-03 ,7.1507e-03 , & - &4.7825e-03 ,2.4097e-03 ,1.1330e-04 /) - kao(:, 2, 7, 9) = (/ & - &1.8614e-02 ,1.6290e-02 ,1.3965e-02 ,1.1641e-02 ,9.3171e-03 ,7.0086e-03 , & - &4.6932e-03 ,2.3827e-03 ,1.9275e-04 /) - kao(:, 3, 7, 9) = (/ & - &1.8191e-02 ,1.5921e-02 ,1.3650e-02 ,1.1382e-02 ,9.1322e-03 ,6.8769e-03 , & - &4.6246e-03 ,2.3704e-03 ,3.0881e-04 /) - kao(:, 4, 7, 9) = (/ & - &1.7657e-02 ,1.5455e-02 ,1.3252e-02 ,1.1078e-02 ,8.8961e-03 ,6.7169e-03 , & - &4.5330e-03 ,2.3676e-03 ,4.7256e-04 /) - kao(:, 5, 7, 9) = (/ & - &1.6605e-02 ,1.4537e-02 ,1.2495e-02 ,1.0448e-02 ,8.3949e-03 ,6.3348e-03 , & - &4.3112e-03 ,2.2623e-03 ,7.0061e-04 /) - kao(:, 1, 8, 9) = (/ & - &6.6522e-02 ,5.8208e-02 ,4.9894e-02 ,4.1580e-02 ,3.3266e-02 ,2.4952e-02 , & - &1.6638e-02 ,8.3237e-03 ,8.8556e-05 /) - kao(:, 2, 8, 9) = (/ & - &6.5331e-02 ,5.7166e-02 ,4.9002e-02 ,4.0837e-02 ,3.2672e-02 ,2.4508e-02 , & - &1.6344e-02 ,8.1975e-03 ,1.5988e-04 /) - kao(:, 3, 8, 9) = (/ & - &6.4113e-02 ,5.6102e-02 ,4.8090e-02 ,4.0078e-02 ,3.2067e-02 ,2.4056e-02 , & - &1.6062e-02 ,8.0735e-03 ,2.6393e-04 /) - kao(:, 4, 8, 9) = (/ & - &6.2675e-02 ,5.4844e-02 ,4.7014e-02 ,3.9184e-02 ,3.1353e-02 ,2.3542e-02 , & - &1.5747e-02 ,7.9493e-03 ,4.0578e-04 /) - kao(:, 5, 8, 9) = (/ & - &6.0829e-02 ,5.3229e-02 ,4.5632e-02 ,3.8033e-02 ,3.0464e-02 ,2.2925e-02 , & - &1.5354e-02 ,7.7739e-03 ,6.0582e-04 /) - kao(:, 1, 9, 9) = (/ & - &4.4562e-01 ,3.8992e-01 ,3.3422e-01 ,2.7852e-01 ,2.2281e-01 ,1.6711e-01 , & - &1.1141e-01 ,5.5708e-02 ,6.4708e-05 /) - kao(:, 2, 9, 9) = (/ & - &4.3840e-01 ,3.8360e-01 ,3.2881e-01 ,2.7401e-01 ,2.1921e-01 ,1.6441e-01 , & - &1.0961e-01 ,5.4811e-02 ,1.2246e-04 /) - kao(:, 3, 9, 9) = (/ & - &4.3101e-01 ,3.7714e-01 ,3.2326e-01 ,2.6939e-01 ,2.1551e-01 ,1.6164e-01 , & - &1.0777e-01 ,5.3892e-02 ,2.1404e-04 /) - kao(:, 4, 9, 9) = (/ & - &4.2341e-01 ,3.7048e-01 ,3.1756e-01 ,2.6464e-01 ,2.1171e-01 ,1.5879e-01 , & - &1.0587e-01 ,5.2950e-02 ,3.4919e-04 /) - kao(:, 5, 9, 9) = (/ & - &4.1490e-01 ,3.6305e-01 ,3.1119e-01 ,2.5933e-01 ,2.0748e-01 ,1.5561e-01 , & - &1.0376e-01 ,5.1933e-02 ,5.3978e-04 /) - kao(:, 1,10, 9) = (/ & - &3.5739e+00 ,3.1272e+00 ,2.6804e+00 ,2.2337e+00 ,1.7870e+00 ,1.3402e+00 , & - &8.9349e-01 ,4.4675e-01 ,3.6923e-05 /) - kao(:, 2,10, 9) = (/ & - &3.5173e+00 ,3.0777e+00 ,2.6381e+00 ,2.1983e+00 ,1.7587e+00 ,1.3190e+00 , & - &8.7936e-01 ,4.3968e-01 ,7.4734e-05 /) - kao(:, 3,10, 9) = (/ & - &3.4601e+00 ,3.0276e+00 ,2.5951e+00 ,2.1626e+00 ,1.7301e+00 ,1.2976e+00 , & - &8.6506e-01 ,4.3253e-01 ,1.2645e-04 /) - kao(:, 4,10, 9) = (/ & - &3.4013e+00 ,2.9762e+00 ,2.5510e+00 ,2.1258e+00 ,1.7007e+00 ,1.2755e+00 , & - &8.5034e-01 ,4.2518e-01 ,2.0434e-04 /) - kao(:, 5,10, 9) = (/ & - &3.3408e+00 ,2.9231e+00 ,2.5056e+00 ,2.0880e+00 ,1.6704e+00 ,1.2528e+00 , & - &8.3521e-01 ,4.1763e-01 ,3.0930e-04 /) - kao(:, 1,11, 9) = (/ & - &9.5423e+00 ,8.3495e+00 ,7.1567e+00 ,5.9639e+00 ,4.7712e+00 ,3.5784e+00 , & - &2.3856e+00 ,1.1928e+00 ,3.3494e-05 /) - kao(:, 2,11, 9) = (/ & - &9.3929e+00 ,8.2188e+00 ,7.0447e+00 ,5.8706e+00 ,4.6965e+00 ,3.5224e+00 , & - &2.3483e+00 ,1.1741e+00 ,6.4875e-05 /) - kao(:, 3,11, 9) = (/ & - &9.2404e+00 ,8.0853e+00 ,6.9303e+00 ,5.7752e+00 ,4.6202e+00 ,3.4651e+00 , & - &2.3101e+00 ,1.1551e+00 ,1.1378e-04 /) - kao(:, 4,11, 9) = (/ & - &9.0863e+00 ,7.9506e+00 ,6.8148e+00 ,5.6790e+00 ,4.5432e+00 ,3.4074e+00 , & - &2.2716e+00 ,1.1358e+00 ,1.8195e-04 /) - kao(:, 5,11, 9) = (/ & - &8.9334e+00 ,7.8167e+00 ,6.7001e+00 ,5.5834e+00 ,4.4668e+00 ,3.3501e+00 , & - &2.2334e+00 ,1.1167e+00 ,2.6874e-04 /) - kao(:, 1,12, 9) = (/ & - &1.6018e+01 ,1.4016e+01 ,1.2013e+01 ,1.0011e+01 ,8.0089e+00 ,6.0065e+00 , & - &4.0043e+00 ,2.0022e+00 ,3.3227e-05 /) - kao(:, 2,12, 9) = (/ & - &1.5778e+01 ,1.3806e+01 ,1.1834e+01 ,9.8614e+00 ,7.8892e+00 ,5.9169e+00 , & - &3.9446e+00 ,1.9723e+00 ,6.4843e-05 /) - kao(:, 3,12, 9) = (/ & - &1.5536e+01 ,1.3594e+01 ,1.1652e+01 ,9.7100e+00 ,7.7679e+00 ,5.8260e+00 , & - &3.8840e+00 ,1.9420e+00 ,1.1290e-04 /) - kao(:, 4,12, 9) = (/ & - &1.5292e+01 ,1.3380e+01 ,1.1469e+01 ,9.5575e+00 ,7.6460e+00 ,5.7344e+00 , & - &3.8230e+00 ,1.9115e+00 ,1.7636e-04 /) - kao(:, 5,12, 9) = (/ & - &1.5044e+01 ,1.3163e+01 ,1.1283e+01 ,9.4022e+00 ,7.5218e+00 ,5.6414e+00 , & - &3.7609e+00 ,1.8805e+00 ,2.6723e-04 /) - kao(:, 1,13, 9) = (/ & - &2.1597e+01 ,1.8897e+01 ,1.6197e+01 ,1.3498e+01 ,1.0798e+01 ,8.0986e+00 , & - &5.3991e+00 ,2.6995e+00 ,3.8904e-05 /) - kao(:, 2,13, 9) = (/ & - &2.1295e+01 ,1.8633e+01 ,1.5971e+01 ,1.3309e+01 ,1.0647e+01 ,7.9855e+00 , & - &5.3237e+00 ,2.6618e+00 ,7.5857e-05 /) - kao(:, 3,13, 9) = (/ & - &2.0989e+01 ,1.8366e+01 ,1.5742e+01 ,1.3118e+01 ,1.0494e+01 ,7.8710e+00 , & - &5.2472e+00 ,2.6236e+00 ,1.3015e-04 /) - kao(:, 4,13, 9) = (/ & - &2.0668e+01 ,1.8085e+01 ,1.5501e+01 ,1.2918e+01 ,1.0334e+01 ,7.7506e+00 , & - &5.1670e+00 ,2.5835e+00 ,2.0228e-04 /) - kao(:, 5,13, 9) = (/ & - &2.0333e+01 ,1.7791e+01 ,1.5249e+01 ,1.2708e+01 ,1.0166e+01 ,7.6247e+00 , & - &5.0831e+00 ,2.5416e+00 ,2.9840e-04 /) - kao(:, 1, 1,10) = (/ & - &5.6592e-05 ,1.3380e-04 ,2.8259e-04 ,4.0725e-04 ,5.2722e-04 ,6.3771e-04 , & - &7.3618e-04 ,6.8809e-05 ,1.0230e-03 /) - kao(:, 2, 1,10) = (/ & - &3.4000e-05 ,1.7762e-04 ,3.9282e-04 ,5.7189e-04 ,7.4744e-04 ,9.1578e-04 , & - &1.0739e-03 ,1.1530e-03 ,1.4652e-03 /) - kao(:, 3, 1,10) = (/ & - &3.1822e-05 ,2.4313e-04 ,5.2738e-04 ,7.7595e-04 ,1.0231e-03 ,1.2640e-03 , & - &1.5000e-03 ,1.6967e-03 ,2.0181e-03 /) - kao(:, 4, 1,10) = (/ & - &3.1887e-05 ,3.1730e-04 ,7.0142e-04 ,1.0376e-03 ,1.3716e-03 ,1.7032e-03 , & - &2.0256e-03 ,2.3355e-03 ,2.7159e-03 /) - kao(:, 5, 1,10) = (/ & - &3.2974e-05 ,4.0500e-04 ,9.2096e-04 ,1.3701e-03 ,1.8162e-03 ,2.2594e-03 , & - &2.6867e-03 ,3.0973e-03 ,3.6043e-03 /) - kao(:, 1, 2,10) = (/ & - &1.2846e-04 ,1.5522e-04 ,2.7655e-04 ,3.8379e-04 ,4.9079e-04 ,5.9529e-04 , & - &6.9141e-04 ,5.6796e-04 ,9.2767e-04 /) - kao(:, 2, 2,10) = (/ & - &6.5990e-05 ,1.6552e-04 ,3.7419e-04 ,5.3648e-04 ,6.9689e-04 ,8.5375e-04 , & - &1.0031e-03 ,1.1095e-03 ,1.3393e-03 /) - kao(:, 3, 2,10) = (/ & - &5.6435e-05 ,1.5534e-04 ,5.0363e-04 ,7.3034e-04 ,9.5369e-04 ,1.1711e-03 , & - &1.3827e-03 ,1.5608e-03 ,1.8461e-03 /) - kao(:, 4, 2,10) = (/ & - &5.4174e-05 ,1.7810e-04 ,6.6905e-04 ,9.7686e-04 ,1.2783e-03 ,1.5737e-03 , & - &1.8611e-03 ,2.1178e-03 ,2.4942e-03 /) - kao(:, 5, 2,10) = (/ & - &5.2370e-05 ,1.9597e-04 ,8.6044e-04 ,1.2706e-03 ,1.6729e-03 ,2.0703e-03 , & - &2.4603e-03 ,2.8342e-03 ,3.2918e-03 /) - kao(:, 1, 3,10) = (/ & - &4.4469e-04 ,4.0346e-04 ,3.7124e-04 ,3.9072e-04 ,4.6265e-04 ,5.3518e-04 , & - &6.0670e-04 ,6.5723e-04 ,7.6901e-04 /) - kao(:, 2, 3,10) = (/ & - &2.7821e-04 ,2.8769e-04 ,3.4636e-04 ,4.5772e-04 ,6.3733e-04 ,7.5575e-04 , & - &8.7290e-04 ,9.7779e-04 ,1.1248e-03 /) - kao(:, 3, 3,10) = (/ & - &1.6712e-04 ,2.0135e-04 ,3.1664e-04 ,6.0259e-04 ,8.6177e-04 ,1.0373e-03 , & - &1.2106e-03 ,1.3752e-03 ,1.5723e-03 /) - kao(:, 4, 3,10) = (/ & - &1.5303e-04 ,2.3452e-04 ,3.6629e-04 ,7.9270e-04 ,1.1535e-03 ,1.4036e-03 , & - &1.6498e-03 ,1.8820e-03 ,2.1596e-03 /) - kao(:, 5, 3,10) = (/ & - &1.4546e-04 ,2.9515e-04 ,4.4927e-04 ,1.0579e-03 ,1.5163e-03 ,1.8612e-03 , & - &2.1985e-03 ,2.5140e-03 ,2.9016e-03 /) - kao(:, 1, 4,10) = (/ & - &1.2138e-03 ,1.0643e-03 ,9.4070e-04 ,8.1504e-04 ,7.0358e-04 ,5.9316e-04 , & - &5.5104e-04 ,5.6438e-04 ,3.2078e-04 /) - kao(:, 2, 4,10) = (/ & - &1.1514e-03 ,1.0125e-03 ,9.4071e-04 ,8.3600e-04 ,7.4220e-04 ,6.5907e-04 , & - &7.7143e-04 ,8.3267e-04 ,4.7891e-04 /) - kao(:, 3, 4,10) = (/ & - &8.3276e-04 ,7.0376e-04 ,7.1208e-04 ,6.8052e-04 ,7.6194e-04 ,8.9019e-04 , & - &1.0682e-03 ,1.1778e-03 ,6.1825e-04 /) - kao(:, 4, 4,10) = (/ & - &6.2678e-04 ,5.3178e-04 ,5.1712e-04 ,6.2090e-04 ,7.5690e-04 ,1.1872e-03 , & - &1.4563e-03 ,1.6302e-03 ,8.5537e-04 /) - kao(:, 5, 4,10) = (/ & - &4.2987e-04 ,5.2033e-04 ,6.3756e-04 ,7.6564e-04 ,7.8218e-04 ,1.6224e-03 , & - &1.9482e-03 ,2.2056e-03 ,1.2455e-03 /) - kao(:, 1, 5,10) = (/ & - &3.3420e-03 ,2.9247e-03 ,2.5126e-03 ,2.0946e-03 ,1.6924e-03 ,1.3030e-03 , & - &9.3410e-04 ,5.8986e-04 ,3.1969e-04 /) - kao(:, 2, 5,10) = (/ & - &3.1398e-03 ,2.7488e-03 ,2.3818e-03 ,2.0259e-03 ,1.6962e-03 ,1.3524e-03 , & - &9.7217e-04 ,7.2894e-04 ,5.2320e-04 /) - kao(:, 3, 5,10) = (/ & - &3.0330e-03 ,2.6759e-03 ,2.3370e-03 ,2.0014e-03 ,1.6490e-03 ,1.4032e-03 , & - &1.0593e-03 ,1.0067e-03 ,7.5418e-04 /) - kao(:, 4, 5,10) = (/ & - &2.5775e-03 ,2.3167e-03 ,2.0477e-03 ,1.6916e-03 ,1.3663e-03 ,1.1599e-03 , & - &1.0841e-03 ,1.3957e-03 ,9.6520e-04 /) - kao(:, 5, 5,10) = (/ & - &2.1866e-03 ,2.0017e-03 ,1.5507e-03 ,1.2425e-03 ,1.2248e-03 ,1.1086e-03 , & - &1.2483e-03 ,1.9173e-03 ,1.1788e-03 /) - kao(:, 1, 6,10) = (/ & - &8.8838e-03 ,7.7745e-03 ,6.6646e-03 ,5.5555e-03 ,4.4614e-03 ,3.3623e-03 , & - &2.2796e-03 ,1.1799e-03 ,1.7827e-04 /) - kao(:, 2, 6,10) = (/ & - &8.6572e-03 ,7.5770e-03 ,6.4955e-03 ,5.4321e-03 ,4.3605e-03 ,3.3104e-03 , & - &2.2427e-03 ,1.2382e-03 ,2.5800e-04 /) - kao(:, 3, 6,10) = (/ & - &8.3335e-03 ,7.2931e-03 ,6.2759e-03 ,5.2475e-03 ,4.2339e-03 ,3.2059e-03 , & - &2.2047e-03 ,1.3240e-03 ,4.2156e-04 /) - kao(:, 4, 6,10) = (/ & - &7.5549e-03 ,6.6060e-03 ,5.7369e-03 ,4.8380e-03 ,4.0096e-03 ,3.1204e-03 , & - &2.3001e-03 ,1.3603e-03 ,7.8178e-04 /) - kao(:, 5, 6,10) = (/ & - &6.8684e-03 ,6.0886e-03 ,5.1989e-03 ,4.4067e-03 ,3.6681e-03 ,2.8099e-03 , & - &1.8970e-03 ,1.4204e-03 ,1.3480e-03 /) - kao(:, 1, 7,10) = (/ & - &2.4586e-02 ,2.1513e-02 ,1.8440e-02 ,1.5369e-02 ,1.2296e-02 ,9.2230e-03 , & - &6.1633e-03 ,3.1137e-03 ,1.3933e-04 /) - kao(:, 2, 7,10) = (/ & - &2.4170e-02 ,2.1150e-02 ,1.8129e-02 ,1.5109e-02 ,1.2088e-02 ,9.0886e-03 , & - &6.0878e-03 ,3.1114e-03 ,2.3190e-04 /) - kao(:, 3, 7,10) = (/ & - &2.3662e-02 ,2.0705e-02 ,1.7748e-02 ,1.4791e-02 ,1.1861e-02 ,8.9271e-03 , & - &6.0215e-03 ,3.0844e-03 ,3.6298e-04 /) - kao(:, 4, 7,10) = (/ & - &2.2469e-02 ,1.9660e-02 ,1.6853e-02 ,1.4086e-02 ,1.1306e-02 ,8.5420e-03 , & - &5.7631e-03 ,3.0626e-03 ,5.4029e-04 /) - kao(:, 5, 7,10) = (/ & - &1.9809e-02 ,1.7349e-02 ,1.4886e-02 ,1.2460e-02 ,1.0092e-02 ,7.8522e-03 , & - &5.3378e-03 ,3.0999e-03 ,7.7423e-04 /) - kao(:, 1, 8,10) = (/ & - &8.6508e-02 ,7.5696e-02 ,6.4882e-02 ,5.4068e-02 ,4.3255e-02 ,3.2443e-02 , & - &2.1630e-02 ,1.0817e-02 ,1.6191e-04 /) - kao(:, 2, 8,10) = (/ & - &8.4528e-02 ,7.3960e-02 ,6.3397e-02 ,5.2832e-02 ,4.2266e-02 ,3.1701e-02 , & - &2.1136e-02 ,1.0597e-02 ,3.0221e-04 /) - kao(:, 3, 8,10) = (/ & - &8.2999e-02 ,7.2627e-02 ,6.2253e-02 ,5.1878e-02 ,4.1506e-02 ,3.1132e-02 , & - &2.0757e-02 ,1.0444e-02 ,5.5391e-04 /) - kao(:, 4, 8,10) = (/ & - &8.1486e-02 ,7.1301e-02 ,6.1120e-02 ,5.0928e-02 ,4.0746e-02 ,3.0564e-02 , & - &2.0452e-02 ,1.0346e-02 ,1.0152e-03 /) - kao(:, 5, 8,10) = (/ & - &7.7129e-02 ,6.7490e-02 ,5.7855e-02 ,4.8214e-02 ,3.8581e-02 ,2.9014e-02 , & - &1.9443e-02 ,9.9515e-03 ,1.5121e-03 /) - kao(:, 1, 9,10) = (/ & - &5.8674e-01 ,5.1340e-01 ,4.4007e-01 ,3.6671e-01 ,2.9337e-01 ,2.2003e-01 , & - &1.4669e-01 ,7.3347e-02 ,1.3954e-04 /) - kao(:, 2, 9,10) = (/ & - &5.7350e-01 ,5.0184e-01 ,4.3015e-01 ,3.5845e-01 ,2.8676e-01 ,2.1507e-01 , & - &1.4339e-01 ,7.1694e-02 ,3.0044e-04 /) - kao(:, 3, 9,10) = (/ & - &5.6021e-01 ,4.9017e-01 ,4.2014e-01 ,3.5012e-01 ,2.8010e-01 ,2.1008e-01 , & - &1.4005e-01 ,7.0031e-02 ,5.5636e-04 /) - kao(:, 4, 9,10) = (/ & - &5.4802e-01 ,4.7953e-01 ,4.1105e-01 ,3.4251e-01 ,2.7403e-01 ,2.0552e-01 , & - &1.3702e-01 ,6.8512e-02 ,9.3561e-04 /) - kao(:, 5, 9,10) = (/ & - &5.3709e-01 ,4.6991e-01 ,4.0280e-01 ,3.3568e-01 ,2.6852e-01 ,2.0142e-01 , & - &1.3428e-01 ,6.7143e-02 ,1.4485e-03 /) - kao(:, 1,10,10) = (/ & - &4.7861e+00 ,4.1878e+00 ,3.5896e+00 ,2.9913e+00 ,2.3930e+00 ,1.7948e+00 , & - &1.1965e+00 ,5.9827e-01 ,3.2704e-06 /) - kao(:, 2,10,10) = (/ & - &4.6903e+00 ,4.1040e+00 ,3.5178e+00 ,2.9315e+00 ,2.3452e+00 ,1.7589e+00 , & - &1.1726e+00 ,5.8632e-01 ,5.9185e-06 /) - kao(:, 3,10,10) = (/ & - &4.5984e+00 ,4.0237e+00 ,3.4487e+00 ,2.8740e+00 ,2.2992e+00 ,1.7244e+00 , & - &1.1496e+00 ,5.7479e-01 ,9.9252e-06 /) - kao(:, 4,10,10) = (/ & - &4.5067e+00 ,3.9434e+00 ,3.3802e+00 ,2.8168e+00 ,2.2535e+00 ,1.6901e+00 , & - &1.1267e+00 ,5.6337e-01 ,1.5639e-05 /) - kao(:, 5,10,10) = (/ & - &4.4320e+00 ,3.8780e+00 ,3.3239e+00 ,2.7699e+00 ,2.2160e+00 ,1.6620e+00 , & - &1.1080e+00 ,5.5401e-01 ,2.3260e-05 /) - kao(:, 1,11,10) = (/ & - &1.3118e+01 ,1.1478e+01 ,9.8381e+00 ,8.1983e+00 ,6.5588e+00 ,4.9192e+00 , & - &3.2794e+00 ,1.6397e+00 ,2.2734e-06 /) - kao(:, 2,11,10) = (/ & - &1.2878e+01 ,1.1268e+01 ,9.6587e+00 ,8.0488e+00 ,6.4391e+00 ,4.8293e+00 , & - &3.2196e+00 ,1.6098e+00 ,4.2460e-06 /) - kao(:, 3,11,10) = (/ & - &1.2677e+01 ,1.1092e+01 ,9.5076e+00 ,7.9230e+00 ,6.3383e+00 ,4.7539e+00 , & - &3.1692e+00 ,1.5846e+00 ,7.1509e-06 /) - kao(:, 4,11,10) = (/ & - &1.2452e+01 ,1.0896e+01 ,9.3395e+00 ,7.7831e+00 ,6.2263e+00 ,4.6699e+00 , & - &3.1133e+00 ,1.5566e+00 ,1.2244e-05 /) - kao(:, 5,11,10) = (/ & - &1.2241e+01 ,1.0711e+01 ,9.1810e+00 ,7.6509e+00 ,6.1207e+00 ,4.5903e+00 , & - &3.0604e+00 ,1.5302e+00 ,2.0967e-05 /) - kao(:, 1,12,10) = (/ & - &2.2864e+01 ,2.0005e+01 ,1.7148e+01 ,1.4290e+01 ,1.1432e+01 ,8.5738e+00 , & - &5.7157e+00 ,2.8580e+00 ,1.8184e-06 /) - kao(:, 2,12,10) = (/ & - &2.2487e+01 ,1.9676e+01 ,1.6864e+01 ,1.4054e+01 ,1.1243e+01 ,8.4321e+00 , & - &5.6215e+00 ,2.8107e+00 ,3.3852e-06 /) - kao(:, 3,12,10) = (/ & - &2.2126e+01 ,1.9360e+01 ,1.6594e+01 ,1.3829e+01 ,1.1063e+01 ,8.2969e+00 , & - &5.5315e+00 ,2.7657e+00 ,6.4086e-06 /) - kao(:, 4,12,10) = (/ & - &2.1772e+01 ,1.9050e+01 ,1.6328e+01 ,1.3607e+01 ,1.0886e+01 ,8.1644e+00 , & - &5.4429e+00 ,2.7215e+00 ,1.1402e-05 /) - kao(:, 5,12,10) = (/ & - &2.1416e+01 ,1.8740e+01 ,1.6063e+01 ,1.3386e+01 ,1.0708e+01 ,8.0313e+00 , & - &5.3540e+00 ,2.6771e+00 ,1.6645e-05 /) - kao(:, 1,13,10) = (/ & - &3.2272e+01 ,2.8237e+01 ,2.4203e+01 ,2.0170e+01 ,1.6136e+01 ,1.2101e+01 , & - &8.0677e+00 ,4.0338e+00 ,1.4317e-06 /) - kao(:, 2,13,10) = (/ & - &3.1783e+01 ,2.7810e+01 ,2.3837e+01 ,1.9864e+01 ,1.5891e+01 ,1.1919e+01 , & - &7.9455e+00 ,3.9728e+00 ,3.0046e-06 /) - kao(:, 3,13,10) = (/ & - &3.1267e+01 ,2.7359e+01 ,2.3450e+01 ,1.9542e+01 ,1.5633e+01 ,1.1725e+01 , & - &7.8169e+00 ,3.9083e+00 ,5.7473e-06 /) - kao(:, 4,13,10) = (/ & - &3.0805e+01 ,2.6955e+01 ,2.3103e+01 ,1.9253e+01 ,1.5402e+01 ,1.1552e+01 , & - &7.7014e+00 ,3.8506e+00 ,8.5901e-06 /) - kao(:, 5,13,10) = (/ & - &3.0347e+01 ,2.6554e+01 ,2.2760e+01 ,1.8967e+01 ,1.5174e+01 ,1.1380e+01 , & - &7.5867e+00 ,3.7933e+00 ,1.2367e-05 /) - kao(:, 1, 1,11) = (/ & - &4.7098e-05 ,1.8036e-04 ,3.4819e-04 ,5.0638e-04 ,6.6181e-04 ,8.1065e-04 , & - &9.3902e-04 ,7.7167e-04 ,1.3022e-03 /) - kao(:, 2, 1,11) = (/ & - &3.0033e-05 ,2.6523e-04 ,5.0795e-04 ,7.4803e-04 ,9.8321e-04 ,1.2080e-03 , & - &1.4174e-03 ,1.6176e-03 ,1.9428e-03 /) - kao(:, 3, 1,11) = (/ & - &3.0544e-05 ,3.7128e-04 ,7.2058e-04 ,1.0671e-03 ,1.4084e-03 ,1.7391e-03 , & - &2.0379e-03 ,2.3032e-03 ,2.7938e-03 /) - kao(:, 4, 1,11) = (/ & - &3.0472e-05 ,4.9757e-04 ,9.8168e-04 ,1.4606e-03 ,1.9374e-03 ,2.4057e-03 , & - &2.8449e-03 ,3.1636e-03 ,3.8517e-03 /) - kao(:, 5, 1,11) = (/ & - &2.4091e-05 ,6.5444e-04 ,1.2934e-03 ,1.9295e-03 ,2.5676e-03 ,3.2003e-03 , & - &3.8144e-03 ,4.2439e-03 ,5.1123e-03 /) - kao(:, 1, 2,11) = (/ & - &1.3816e-04 ,1.6153e-04 ,3.3849e-04 ,4.7695e-04 ,6.1250e-04 ,7.4207e-04 , & - &8.5768e-04 ,9.1861e-04 ,1.1708e-03 /) - kao(:, 2, 2,11) = (/ & - &6.1066e-05 ,1.7974e-04 ,4.7651e-04 ,6.8520e-04 ,8.9139e-04 ,1.0930e-03 , & - &1.2848e-03 ,1.4278e-03 ,1.7346e-03 /) - kao(:, 3, 2,11) = (/ & - &5.7831e-05 ,2.0028e-04 ,6.5612e-04 ,9.5859e-04 ,1.2605e-03 ,1.5625e-03 , & - &1.8554e-03 ,2.0988e-03 ,2.4798e-03 /) - kao(:, 4, 2,11) = (/ & - &5.4516e-05 ,2.3064e-04 ,8.8062e-04 ,1.3017e-03 ,1.7223e-03 ,2.1436e-03 , & - &2.5645e-03 ,2.9565e-03 ,3.4038e-03 /) - kao(:, 5, 2,11) = (/ & - &5.5309e-05 ,3.0448e-04 ,1.1705e-03 ,1.7340e-03 ,2.2966e-03 ,2.8601e-03 , & - &3.4280e-03 ,3.9900e-03 ,4.5458e-03 /) - kao(:, 1, 3,11) = (/ & - &4.5525e-04 ,4.1659e-04 ,4.0041e-04 ,4.3594e-04 ,5.6841e-04 ,6.6824e-04 , & - &7.6559e-04 ,8.3275e-04 ,9.8673e-04 /) - kao(:, 2, 3,11) = (/ & - &2.7564e-04 ,3.1143e-04 ,4.0133e-04 ,6.4539e-04 ,8.1010e-04 ,9.7483e-04 , & - &1.1326e-03 ,1.2606e-03 ,1.4783e-03 /) - kao(:, 3, 3,11) = (/ & - &1.5755e-04 ,2.0262e-04 ,4.4233e-04 ,8.8058e-04 ,1.1240e-03 ,1.3655e-03 , & - &1.6023e-03 ,1.8183e-03 ,2.1060e-03 /) - kao(:, 4, 3,11) = (/ & - &1.5225e-04 ,2.1360e-04 ,4.5750e-04 ,1.1722e-03 ,1.5129e-03 ,1.8525e-03 , & - &2.1885e-03 ,2.5141e-03 ,2.8848e-03 /) - kao(:, 5, 3,11) = (/ & - &1.4157e-04 ,2.5829e-04 ,4.6589e-04 ,1.5429e-03 ,2.0085e-03 ,2.4737e-03 , & - &2.9344e-03 ,3.3883e-03 ,3.8756e-03 /) - kao(:, 1, 4,11) = (/ & - &1.2968e-03 ,1.1627e-03 ,1.0295e-03 ,8.8852e-04 ,7.5100e-04 ,6.8878e-04 , & - &7.0217e-04 ,7.2855e-04 ,6.6909e-04 /) - kao(:, 2, 4,11) = (/ & - &1.2901e-03 ,1.1618e-03 ,9.9278e-04 ,8.6686e-04 ,8.2710e-04 ,9.1628e-04 , & - &1.0053e-03 ,1.0921e-03 ,9.3719e-04 /) - kao(:, 3, 4,11) = (/ & - &8.4696e-04 ,8.0992e-04 ,6.6835e-04 ,7.5797e-04 ,8.8170e-04 ,1.2538e-03 , & - &1.4194e-03 ,1.5777e-03 ,1.2930e-03 /) - kao(:, 4, 4,11) = (/ & - &4.0946e-04 ,5.3575e-04 ,5.3156e-04 ,6.5607e-04 ,1.0924e-03 ,1.6886e-03 , & - &1.9410e-03 ,2.1799e-03 ,1.6795e-03 /) - kao(:, 5, 4,11) = (/ & - &4.1161e-04 ,5.7102e-04 ,5.8841e-04 ,6.9122e-04 ,1.4036e-03 ,2.2467e-03 , & - &2.6025e-03 ,2.9419e-03 ,2.1668e-03 /) - kao(:, 1, 5,11) = (/ & - &3.5249e-03 ,3.0877e-03 ,2.6707e-03 ,2.2562e-03 ,1.8574e-03 ,1.4440e-03 , & - &1.0135e-03 ,7.0090e-04 ,2.4879e-04 /) - kao(:, 2, 5,11) = (/ & - &3.4987e-03 ,3.0660e-03 ,2.6585e-03 ,2.2616e-03 ,1.8230e-03 ,1.3947e-03 , & - &1.1338e-03 ,9.8875e-04 ,4.4035e-04 /) - kao(:, 3, 5,11) = (/ & - &3.2338e-03 ,2.8640e-03 ,2.5128e-03 ,2.2224e-03 ,1.8369e-03 ,1.4590e-03 , & - &1.3054e-03 ,1.4040e-03 ,6.0764e-04 /) - kao(:, 4, 5,11) = (/ & - &2.1959e-03 ,1.9312e-03 ,1.7650e-03 ,1.5181e-03 ,1.3319e-03 ,1.3218e-03 , & - &1.7587e-03 ,1.9394e-03 ,9.4777e-04 /) - kao(:, 5, 5,11) = (/ & - &1.2468e-03 ,1.0861e-03 ,1.1609e-03 ,1.1515e-03 ,1.2470e-03 ,1.3220e-03 , & - &2.3659e-03 ,2.6308e-03 ,1.2356e-03 /) - kao(:, 1, 6,11) = (/ & - &9.5223e-03 ,8.3335e-03 ,7.1442e-03 ,5.9544e-03 ,4.7779e-03 ,3.5984e-03 , & - &2.4247e-03 ,1.2737e-03 ,1.4692e-04 /) - kao(:, 2, 6,11) = (/ & - &9.2485e-03 ,8.0943e-03 ,6.9406e-03 ,5.8161e-03 ,4.6851e-03 ,3.5677e-03 , & - &2.4748e-03 ,1.3469e-03 ,2.5178e-04 /) - kao(:, 3, 6,11) = (/ & - &8.7789e-03 ,7.6827e-03 ,6.6150e-03 ,5.5437e-03 ,4.4673e-03 ,3.4787e-03 , & - &2.4528e-03 ,1.4847e-03 ,3.7920e-04 /) - kao(:, 4, 6,11) = (/ & - &8.2164e-03 ,7.2018e-03 ,6.2465e-03 ,5.3375e-03 ,4.3691e-03 ,3.4064e-03 , & - &2.4151e-03 ,1.7544e-03 ,5.7438e-04 /) - kao(:, 5, 6,11) = (/ & - &6.8576e-03 ,6.0356e-03 ,5.1755e-03 ,4.2553e-03 ,3.2890e-03 ,2.6043e-03 , & - &1.9585e-03 ,2.3328e-03 ,8.0859e-04 /) - kao(:, 1, 7,11) = (/ & - &2.6634e-02 ,2.3306e-02 ,1.9979e-02 ,1.6651e-02 ,1.3321e-02 ,9.9924e-03 , & - &6.6684e-03 ,3.3709e-03 ,1.8920e-04 /) - kao(:, 2, 7,11) = (/ & - &2.5938e-02 ,2.2696e-02 ,1.9456e-02 ,1.6215e-02 ,1.2974e-02 ,9.7488e-03 , & - &6.5437e-03 ,3.3574e-03 ,3.7520e-04 /) - kao(:, 3, 7,11) = (/ & - &2.5453e-02 ,2.2274e-02 ,1.9096e-02 ,1.5918e-02 ,1.2777e-02 ,9.6455e-03 , & - &6.5081e-03 ,3.3802e-03 ,5.3158e-04 /) - kao(:, 4, 7,11) = (/ & - &2.4271e-02 ,2.1241e-02 ,1.8214e-02 ,1.5233e-02 ,1.2290e-02 ,9.3599e-03 , & - &6.4912e-03 ,3.4387e-03 ,8.0667e-04 /) - kao(:, 5, 7,11) = (/ & - &2.2422e-02 ,1.9613e-02 ,1.6806e-02 ,1.4145e-02 ,1.1493e-02 ,8.8108e-03 , & - &6.0692e-03 ,3.4048e-03 ,1.1367e-03 /) - kao(:, 1, 8,11) = (/ & - &9.5097e-02 ,8.3206e-02 ,7.1322e-02 ,5.9437e-02 ,4.7550e-02 ,3.5664e-02 , & - &2.3777e-02 ,1.1891e-02 ,8.8895e-05 /) - kao(:, 2, 8,11) = (/ & - &9.2657e-02 ,8.1078e-02 ,6.9498e-02 ,5.7915e-02 ,4.6333e-02 ,3.4754e-02 , & - &2.3172e-02 ,1.1611e-02 ,1.6093e-04 /) - kao(:, 3, 8,11) = (/ & - &8.9553e-02 ,7.8360e-02 ,6.7165e-02 ,5.5974e-02 ,4.4782e-02 ,3.3592e-02 , & - &2.2399e-02 ,1.1297e-02 ,2.7559e-04 /) - kao(:, 4, 8,11) = (/ & - &8.7450e-02 ,7.6527e-02 ,6.5593e-02 ,5.4667e-02 ,4.3739e-02 ,3.2808e-02 , & - &2.1983e-02 ,1.1121e-02 ,4.3678e-04 /) - kao(:, 5, 8,11) = (/ & - &8.6068e-02 ,7.5315e-02 ,6.4565e-02 ,5.3811e-02 ,4.3053e-02 ,3.2463e-02 , & - &2.1814e-02 ,1.1203e-02 ,7.8846e-04 /) - kao(:, 1, 9,11) = (/ & - &6.4279e-01 ,5.6245e-01 ,4.8207e-01 ,4.0173e-01 ,3.2138e-01 ,2.4105e-01 , & - &1.6070e-01 ,8.0350e-02 ,1.4861e-06 /) - kao(:, 2, 9,11) = (/ & - &6.2663e-01 ,5.4828e-01 ,4.6997e-01 ,3.9164e-01 ,3.1331e-01 ,2.3498e-01 , & - &1.5666e-01 ,7.8331e-02 ,2.7002e-06 /) - kao(:, 3, 9,11) = (/ & - &6.1151e-01 ,5.3505e-01 ,4.5861e-01 ,3.8220e-01 ,3.0575e-01 ,2.2931e-01 , & - &1.5288e-01 ,7.6443e-02 ,4.4491e-06 /) - kao(:, 4, 9,11) = (/ & - &5.9675e-01 ,5.2214e-01 ,4.4753e-01 ,3.7296e-01 ,2.9837e-01 ,2.2379e-01 , & - &1.4920e-01 ,7.4612e-02 ,6.8192e-06 /) - kao(:, 5, 9,11) = (/ & - &5.8474e-01 ,5.1167e-01 ,4.3855e-01 ,3.6547e-01 ,2.9239e-01 ,2.1930e-01 , & - &1.4621e-01 ,7.3117e-02 ,1.0152e-05 /) - kao(:, 1,10,11) = (/ & - &5.2427e+00 ,4.5875e+00 ,3.9320e+00 ,3.2767e+00 ,2.6214e+00 ,1.9660e+00 , & - &1.3107e+00 ,6.5538e-01 ,3.2405e-06 /) - kao(:, 2,10,11) = (/ & - &5.1308e+00 ,4.4894e+00 ,3.8480e+00 ,3.2067e+00 ,2.5654e+00 ,1.9241e+00 , & - &1.2827e+00 ,6.4136e-01 ,6.0207e-06 /) - kao(:, 3,10,11) = (/ & - &5.0278e+00 ,4.3993e+00 ,3.7708e+00 ,3.1424e+00 ,2.5139e+00 ,1.8854e+00 , & - &1.2569e+00 ,6.2847e-01 ,1.0181e-05 /) - kao(:, 4,10,11) = (/ & - &4.9276e+00 ,4.3117e+00 ,3.6956e+00 ,3.0798e+00 ,2.4638e+00 ,1.8478e+00 , & - &1.2319e+00 ,6.1596e-01 ,1.5690e-05 /) - kao(:, 5,10,11) = (/ & - &4.8175e+00 ,4.2154e+00 ,3.6129e+00 ,3.0109e+00 ,2.4088e+00 ,1.8066e+00 , & - &1.2044e+00 ,6.0226e-01 ,2.2851e-05 /) - kao(:, 1,11,11) = (/ & - &1.4444e+01 ,1.2639e+01 ,1.0833e+01 ,9.0277e+00 ,7.2223e+00 ,5.4167e+00 , & - &3.6111e+00 ,1.8056e+00 ,3.3928e-06 /) - kao(:, 2,11,11) = (/ & - &1.4191e+01 ,1.2417e+01 ,1.0643e+01 ,8.8695e+00 ,7.0956e+00 ,5.3217e+00 , & - &3.5476e+00 ,1.7739e+00 ,6.3163e-06 /) - kao(:, 3,11,11) = (/ & - &1.3919e+01 ,1.2179e+01 ,1.0439e+01 ,8.6994e+00 ,6.9594e+00 ,5.2197e+00 , & - &3.4797e+00 ,1.7399e+00 ,1.0603e-05 /) - kao(:, 4,11,11) = (/ & - &1.3652e+01 ,1.1946e+01 ,1.0239e+01 ,8.5326e+00 ,6.8259e+00 ,5.1193e+00 , & - &3.4129e+00 ,1.7065e+00 ,1.6659e-05 /) - kao(:, 5,11,11) = (/ & - &1.3348e+01 ,1.1680e+01 ,1.0011e+01 ,8.3424e+00 ,6.6742e+00 ,5.0056e+00 , & - &3.3371e+00 ,1.6685e+00 ,2.4500e-05 /) - kao(:, 1,12,11) = (/ & - &2.5285e+01 ,2.2125e+01 ,1.8964e+01 ,1.5803e+01 ,1.2642e+01 ,9.4819e+00 , & - &6.3210e+00 ,3.1605e+00 ,2.1167e-06 /) - kao(:, 2,12,11) = (/ & - &2.4880e+01 ,2.1769e+01 ,1.8659e+01 ,1.5550e+01 ,1.2440e+01 ,9.3299e+00 , & - &6.2198e+00 ,3.1099e+00 ,3.8897e-06 /) - kao(:, 3,12,11) = (/ & - &2.4433e+01 ,2.1379e+01 ,1.8325e+01 ,1.5271e+01 ,1.2217e+01 ,9.1622e+00 , & - &6.1081e+00 ,3.0541e+00 ,6.6786e-06 /) - kao(:, 4,12,11) = (/ & - &2.3948e+01 ,2.0955e+01 ,1.7960e+01 ,1.4967e+01 ,1.1974e+01 ,8.9803e+00 , & - &5.9870e+00 ,2.9934e+00 ,1.0649e-05 /) - kao(:, 5,12,11) = (/ & - &2.3474e+01 ,2.0540e+01 ,1.7606e+01 ,1.4671e+01 ,1.1737e+01 ,8.8029e+00 , & - &5.8685e+00 ,2.9342e+00 ,1.7444e-05 /) - kao(:, 1,13,11) = (/ & - &3.6004e+01 ,3.1505e+01 ,2.7003e+01 ,2.2503e+01 ,1.8003e+01 ,1.3502e+01 , & - &9.0009e+00 ,4.5004e+00 ,1.4918e-06 /) - kao(:, 2,13,11) = (/ & - &3.5389e+01 ,3.0965e+01 ,2.6541e+01 ,2.2118e+01 ,1.7694e+01 ,1.3271e+01 , & - &8.8469e+00 ,4.4235e+00 ,2.8535e-06 /) - kao(:, 3,13,11) = (/ & - &3.4779e+01 ,3.0432e+01 ,2.6084e+01 ,2.1737e+01 ,1.7389e+01 ,1.3042e+01 , & - &8.6948e+00 ,4.3474e+00 ,4.8793e-06 /) - kao(:, 4,13,11) = (/ & - &3.4139e+01 ,2.9872e+01 ,2.5605e+01 ,2.1337e+01 ,1.7070e+01 ,1.2802e+01 , & - &8.5348e+00 ,4.2675e+00 ,8.8607e-06 /) - kao(:, 5,13,11) = (/ & - &3.3563e+01 ,2.9368e+01 ,2.5171e+01 ,2.0976e+01 ,1.6781e+01 ,1.2586e+01 , & - &8.3906e+00 ,4.1953e+00 ,1.4420e-05 /) - kao(:, 1, 1,12) = (/ & - &6.4900e-05 ,2.8719e-04 ,5.6307e-04 ,8.4351e-04 ,1.1291e-03 ,1.4211e-03 , & - &1.7201e-03 ,1.9852e-03 ,2.2469e-03 /) - kao(:, 2, 1,12) = (/ & - &3.4635e-05 ,4.0542e-04 ,7.9731e-04 ,1.1929e-03 ,1.5968e-03 ,2.0148e-03 , & - &2.4518e-03 ,2.8750e-03 ,3.1817e-03 /) - kao(:, 3, 1,12) = (/ & - &3.0386e-05 ,5.5544e-04 ,1.0947e-03 ,1.6361e-03 ,2.1835e-03 ,2.7444e-03 , & - &3.3456e-03 ,3.9572e-03 ,4.3509e-03 /) - kao(:, 4, 1,12) = (/ & - &2.1896e-05 ,7.4746e-04 ,1.4741e-03 ,2.1992e-03 ,2.9238e-03 ,3.6527e-03 , & - &4.4093e-03 ,5.2454e-03 ,5.8288e-03 /) - kao(:, 5, 1,12) = (/ & - &2.2978e-05 ,9.8728e-04 ,1.9484e-03 ,2.9034e-03 ,3.8494e-03 ,4.7859e-03 , & - &5.7216e-03 ,6.7414e-03 ,7.6777e-03 /) - kao(:, 1, 2,12) = (/ & - &1.5749e-04 ,2.0866e-04 ,4.6787e-04 ,6.8742e-04 ,9.1071e-04 ,1.1382e-03 , & - &1.3780e-03 ,1.6236e-03 ,1.7971e-03 /) - kao(:, 2, 2,12) = (/ & - &6.4613e-05 ,2.9516e-04 ,6.7832e-04 ,1.0033e-03 ,1.3310e-03 ,1.6630e-03 , & - &2.0071e-03 ,2.4028e-03 ,2.6327e-03 /) - kao(:, 3, 2,12) = (/ & - &5.7078e-05 ,4.5933e-04 ,9.6118e-04 ,1.4236e-03 ,1.8857e-03 ,2.3486e-03 , & - &2.8168e-03 ,3.3472e-03 ,3.7377e-03 /) - kao(:, 4, 2,12) = (/ & - &4.9262e-05 ,6.5877e-04 ,1.3301e-03 ,1.9726e-03 ,2.6111e-03 ,3.2436e-03 , & - &3.8662e-03 ,4.5052e-03 ,5.1847e-03 /) - kao(:, 5, 2,12) = (/ & - &4.0132e-05 ,8.9682e-04 ,1.7993e-03 ,2.6705e-03 ,3.5334e-03 ,4.3806e-03 , & - &5.1960e-03 ,5.9592e-03 ,7.0262e-03 /) - kao(:, 1, 3,12) = (/ & - &4.4536e-04 ,4.2140e-04 ,4.1326e-04 ,5.8784e-04 ,7.3376e-04 ,8.8410e-04 , & - &1.0353e-03 ,1.1868e-03 ,1.3506e-03 /) - kao(:, 2, 3,12) = (/ & - &3.6360e-04 ,3.5667e-04 ,4.9101e-04 ,8.4210e-04 ,1.0791e-03 ,1.3181e-03 , & - &1.5590e-03 ,1.8085e-03 ,2.0516e-03 /) - kao(:, 3, 3,12) = (/ & - &1.5077e-04 ,2.9297e-04 ,7.2917e-04 ,1.2081e-03 ,1.5723e-03 ,1.9339e-03 , & - &2.2902e-03 ,2.6377e-03 ,3.0400e-03 /) - kao(:, 4, 3,12) = (/ & - &1.4163e-04 ,2.2426e-04 ,1.0557e-03 ,1.7084e-03 ,2.2382e-03 ,2.7621e-03 , & - &3.2708e-03 ,3.7457e-03 ,4.3687e-03 /) - kao(:, 5, 3,12) = (/ & - &1.3019e-04 ,2.3338e-04 ,1.4920e-03 ,2.3388e-03 ,3.0800e-03 ,3.8155e-03 , & - &4.5352e-03 ,5.1815e-03 ,6.0536e-03 /) - kao(:, 1, 4,12) = (/ & - &1.4099e-03 ,1.2519e-03 ,1.0992e-03 ,9.6157e-04 ,8.5060e-04 ,8.2135e-04 , & - &8.8574e-04 ,9.4943e-04 ,1.0571e-03 /) - kao(:, 2, 4,12) = (/ & - &1.2160e-03 ,1.0633e-03 ,1.0308e-03 ,9.5807e-04 ,9.2808e-04 ,1.1772e-03 , & - &1.3218e-03 ,1.4545e-03 ,1.6420e-03 /) - kao(:, 3, 4,12) = (/ & - &7.7631e-04 ,7.4153e-04 ,7.5882e-04 ,8.7236e-04 ,1.3771e-03 ,1.6770e-03 , & - &1.9300e-03 ,2.1670e-03 ,2.4676e-03 /) - kao(:, 4, 4,12) = (/ & - &4.5228e-04 ,5.1764e-04 ,4.9825e-04 ,1.0410e-03 ,1.9642e-03 ,2.3602e-03 , & - &2.7572e-03 ,3.1444e-03 ,3.5784e-03 /) - kao(:, 5, 4,12) = (/ & - &3.7162e-04 ,5.4517e-04 ,4.7653e-04 ,1.0804e-03 ,2.6516e-03 ,3.2347e-03 , & - &3.8223e-03 ,4.4076e-03 ,4.9248e-03 /) - kao(:, 1, 5,12) = (/ & - &3.8990e-03 ,3.4146e-03 ,2.9418e-03 ,2.4792e-03 ,1.9894e-03 ,1.5917e-03 , & - &1.1813e-03 ,8.6801e-04 ,2.1028e-04 /) - kao(:, 2, 5,12) = (/ & - &3.6199e-03 ,3.1680e-03 ,2.6938e-03 ,2.3090e-03 ,1.9956e-03 ,1.6463e-03 , & - &1.2997e-03 ,1.3006e-03 ,2.4494e-04 /) - kao(:, 3, 5,12) = (/ & - &3.4415e-03 ,3.0220e-03 ,2.5761e-03 ,2.2036e-03 ,1.8689e-03 ,1.5859e-03 , & - &1.7898e-03 ,1.9074e-03 ,5.0679e-04 /) - kao(:, 4, 5,12) = (/ & - &2.1716e-03 ,1.9079e-03 ,1.6133e-03 ,1.3356e-03 ,1.5050e-03 ,1.8145e-03 , & - &2.4880e-03 ,2.7223e-03 ,8.8637e-04 /) - kao(:, 5, 5,12) = (/ & - &1.3077e-03 ,1.2440e-03 ,1.1158e-03 ,9.0020e-04 ,1.2713e-03 ,2.3698e-03 , & - &3.3646e-03 ,3.7560e-03 ,1.3375e-03 /) - kao(:, 1, 6,12) = (/ & - &1.0196e-02 ,8.9244e-03 ,7.6531e-03 ,6.3818e-03 ,5.1267e-03 ,3.9081e-03 , & - &2.6537e-03 ,1.4661e-03 ,1.6889e-04 /) - kao(:, 2, 6,12) = (/ & - &1.0111e-02 ,8.8532e-03 ,7.5941e-03 ,6.3593e-03 ,5.1154e-03 ,3.8577e-03 , & - &2.6627e-03 ,1.5273e-03 ,2.6786e-04 /) - kao(:, 3, 6,12) = (/ & - &9.5574e-03 ,8.3745e-03 ,7.2096e-03 ,6.0967e-03 ,4.9927e-03 ,3.8753e-03 , & - &2.6940e-03 ,1.7929e-03 ,4.4721e-04 /) - kao(:, 4, 6,12) = (/ & - &9.1448e-03 ,8.0065e-03 ,6.8180e-03 ,5.6454e-03 ,4.5888e-03 ,3.5047e-03 , & - &2.6334e-03 ,2.4842e-03 ,6.5846e-04 /) - kao(:, 5, 6,12) = (/ & - &5.7075e-03 ,5.0049e-03 ,4.5271e-03 ,4.0365e-03 ,3.0612e-03 ,2.5106e-03 , & - &2.5238e-03 ,3.3792e-03 ,9.8239e-04 /) - kao(:, 1, 7,12) = (/ & - &2.9179e-02 ,2.5534e-02 ,2.1889e-02 ,1.8245e-02 ,1.4599e-02 ,1.0955e-02 , & - &7.3101e-03 ,3.7189e-03 ,1.6629e-04 /) - kao(:, 2, 7,12) = (/ & - &2.8331e-02 ,2.4795e-02 ,2.1258e-02 ,1.7722e-02 ,1.4184e-02 ,1.0647e-02 , & - &7.1746e-03 ,3.6882e-03 ,3.2759e-04 /) - kao(:, 3, 7,12) = (/ & - &2.7584e-02 ,2.4141e-02 ,2.0699e-02 ,1.7251e-02 ,1.3817e-02 ,1.0419e-02 , & - &6.9883e-03 ,3.6331e-03 ,7.5693e-04 /) - kao(:, 4, 7,12) = (/ & - &2.7092e-02 ,2.3710e-02 ,2.0332e-02 ,1.6950e-02 ,1.3669e-02 ,1.0331e-02 , & - &6.9978e-03 ,3.6886e-03 ,1.3272e-03 /) - kao(:, 5, 7,12) = (/ & - &2.4668e-02 ,2.1578e-02 ,1.8509e-02 ,1.5691e-02 ,1.2680e-02 ,9.7141e-03 , & - &6.7022e-03 ,3.7141e-03 ,1.7778e-03 /) - kao(:, 1, 8,12) = (/ & - &1.0361e-01 ,9.0667e-02 ,7.7713e-02 ,6.4765e-02 ,5.1815e-02 ,3.8864e-02 , & - &2.5914e-02 ,1.2965e-02 ,1.1677e-04 /) - kao(:, 2, 8,12) = (/ & - &1.0115e-01 ,8.8507e-02 ,7.5864e-02 ,6.3225e-02 ,5.0584e-02 ,3.7943e-02 , & - &2.5302e-02 ,1.2662e-02 ,2.2624e-04 /) - kao(:, 3, 8,12) = (/ & - &9.8784e-02 ,8.6438e-02 ,7.4094e-02 ,6.1749e-02 ,4.9403e-02 ,3.7059e-02 , & - &2.4715e-02 ,1.2461e-02 ,3.7810e-04 /) - kao(:, 4, 8,12) = (/ & - &9.5779e-02 ,8.3802e-02 ,7.1837e-02 ,5.9866e-02 ,4.7899e-02 ,3.5935e-02 , & - &2.4068e-02 ,1.2158e-02 ,6.1406e-04 /) - kao(:, 5, 8,12) = (/ & - &9.3500e-02 ,8.1816e-02 ,7.0121e-02 ,5.8448e-02 ,4.6756e-02 ,3.5152e-02 , & - &2.3515e-02 ,1.2003e-02 ,9.1223e-04 /) - kao(:, 1, 9,12) = (/ & - &7.0616e-01 ,6.1791e-01 ,5.2965e-01 ,4.4136e-01 ,3.5309e-01 ,2.6483e-01 , & - &1.7655e-01 ,8.8282e-02 ,1.5290e-06 /) - kao(:, 2, 9,12) = (/ & - &6.9151e-01 ,6.0507e-01 ,5.1861e-01 ,4.3218e-01 ,3.4576e-01 ,2.5930e-01 , & - &1.7288e-01 ,8.6445e-02 ,2.6717e-06 /) - kao(:, 3, 9,12) = (/ & - &6.7650e-01 ,5.9194e-01 ,5.0740e-01 ,4.2284e-01 ,3.3827e-01 ,2.5371e-01 , & - &1.6914e-01 ,8.4579e-02 ,4.4922e-06 /) - kao(:, 4, 9,12) = (/ & - &6.5888e-01 ,5.7654e-01 ,4.9417e-01 ,4.1183e-01 ,3.2946e-01 ,2.4710e-01 , & - &1.6473e-01 ,8.2371e-02 ,7.3887e-06 /) - kao(:, 5, 9,12) = (/ & - &6.4040e-01 ,5.6034e-01 ,4.8031e-01 ,4.0028e-01 ,3.2019e-01 ,2.4016e-01 , & - &1.6010e-01 ,8.0057e-02 ,1.1597e-05 /) - kao(:, 1,10,12) = (/ & - &5.7734e+00 ,5.0518e+00 ,4.3301e+00 ,3.6085e+00 ,2.8866e+00 ,2.1651e+00 , & - &1.4434e+00 ,7.2167e-01 ,9.1748e-07 /) - kao(:, 2,10,12) = (/ & - &5.6550e+00 ,4.9481e+00 ,4.2414e+00 ,3.5344e+00 ,2.8275e+00 ,2.1206e+00 , & - &1.4138e+00 ,7.0688e-01 ,1.6728e-06 /) - kao(:, 3,10,12) = (/ & - &5.5293e+00 ,4.8379e+00 ,4.1470e+00 ,3.4558e+00 ,2.7646e+00 ,2.0735e+00 , & - &1.3823e+00 ,6.9113e-01 ,2.9526e-06 /) - kao(:, 4,10,12) = (/ & - &5.4054e+00 ,4.7297e+00 ,4.0540e+00 ,3.3783e+00 ,2.7027e+00 ,2.0270e+00 , & - &1.3514e+00 ,6.7568e-01 ,4.8767e-06 /) - kao(:, 5,10,12) = (/ & - &5.2733e+00 ,4.6145e+00 ,3.9550e+00 ,3.2959e+00 ,2.6366e+00 ,1.9775e+00 , & - &1.3184e+00 ,6.5919e-01 ,7.7655e-06 /) - kao(:, 1,11,12) = (/ & - &1.5785e+01 ,1.3812e+01 ,1.1839e+01 ,9.8659e+00 ,7.8925e+00 ,5.9194e+00 , & - &3.9463e+00 ,1.9732e+00 ,7.4549e-07 /) - kao(:, 2,11,12) = (/ & - &1.5479e+01 ,1.3544e+01 ,1.1609e+01 ,9.6738e+00 ,7.7393e+00 ,5.8045e+00 , & - &3.8695e+00 ,1.9348e+00 ,1.4083e-06 /) - kao(:, 3,11,12) = (/ & - &1.5180e+01 ,1.3283e+01 ,1.1385e+01 ,9.4881e+00 ,7.5902e+00 ,5.6927e+00 , & - &3.7951e+00 ,1.8975e+00 ,2.4492e-06 /) - kao(:, 4,11,12) = (/ & - &1.4875e+01 ,1.3016e+01 ,1.1157e+01 ,9.2972e+00 ,7.4378e+00 ,5.5784e+00 , & - &3.7189e+00 ,1.8594e+00 ,4.0481e-06 /) - kao(:, 5,11,12) = (/ & - &1.4584e+01 ,1.2761e+01 ,1.0938e+01 ,9.1150e+00 ,7.2921e+00 ,5.4689e+00 , & - &3.6460e+00 ,1.8230e+00 ,6.1324e-06 /) - kao(:, 1,12,12) = (/ & - &2.7851e+01 ,2.4369e+01 ,2.0888e+01 ,1.7407e+01 ,1.3925e+01 ,1.0444e+01 , & - &6.9625e+00 ,3.4813e+00 ,1.7967e-06 /) - kao(:, 2,12,12) = (/ & - &2.7381e+01 ,2.3958e+01 ,2.0536e+01 ,1.7113e+01 ,1.3691e+01 ,1.0268e+01 , & - &6.8453e+00 ,3.4226e+00 ,3.3551e-06 /) - kao(:, 3,12,12) = (/ & - &2.6898e+01 ,2.3535e+01 ,2.0173e+01 ,1.6811e+01 ,1.3449e+01 ,1.0086e+01 , & - &6.7243e+00 ,3.3621e+00 ,5.7999e-06 /) - kao(:, 4,12,12) = (/ & - &2.6422e+01 ,2.3120e+01 ,1.9816e+01 ,1.6513e+01 ,1.3211e+01 ,9.9083e+00 , & - &6.6055e+00 ,3.3027e+00 ,8.8648e-06 /) - kao(:, 5,12,12) = (/ & - &2.5893e+01 ,2.2657e+01 ,1.9420e+01 ,1.6183e+01 ,1.2946e+01 ,9.7098e+00 , & - &6.4732e+00 ,3.2366e+00 ,1.3030e-05 /) - kao(:, 1,13,12) = (/ & - &4.0056e+01 ,3.5049e+01 ,3.0042e+01 ,2.5035e+01 ,2.0028e+01 ,1.5021e+01 , & - &1.0014e+01 ,5.0068e+00 ,1.9339e-06 /) - kao(:, 2,13,12) = (/ & - &3.9543e+01 ,3.4599e+01 ,2.9657e+01 ,2.4713e+01 ,1.9771e+01 ,1.4828e+01 , & - &9.8854e+00 ,4.9428e+00 ,3.6424e-06 /) - kao(:, 3,13,12) = (/ & - &3.8932e+01 ,3.4065e+01 ,2.9198e+01 ,2.4333e+01 ,1.9465e+01 ,1.4599e+01 , & - &9.7330e+00 ,4.8663e+00 ,6.0957e-06 /) - kao(:, 4,13,12) = (/ & - &3.8278e+01 ,3.3493e+01 ,2.8708e+01 ,2.3923e+01 ,1.9139e+01 ,1.4354e+01 , & - &9.5693e+00 ,4.7847e+00 ,9.5853e-06 /) - kao(:, 5,13,12) = (/ & - &3.7502e+01 ,3.2815e+01 ,2.8127e+01 ,2.3438e+01 ,1.8751e+01 ,1.4063e+01 , & - &9.3751e+00 ,4.6877e+00 ,1.4124e-05 /) - kao(:, 1, 1,13) = (/ & - &7.4486e-05 ,5.1116e-04 ,1.0025e-03 ,1.4842e-03 ,1.9493e-03 ,2.3797e-03 , & - &2.7258e-03 ,2.8231e-03 ,3.8853e-03 /) - kao(:, 2, 1,13) = (/ & - &6.5327e-05 ,7.3706e-04 ,1.4529e-03 ,2.1556e-03 ,2.8349e-03 ,3.4671e-03 , & - &3.9764e-03 ,4.1729e-03 ,5.6550e-03 /) - kao(:, 3, 1,13) = (/ & - &2.8267e-05 ,1.0173e-03 ,2.0120e-03 ,2.9905e-03 ,3.9385e-03 ,4.8257e-03 , & - &5.5630e-03 ,5.8315e-03 ,7.8638e-03 /) - kao(:, 4, 1,13) = (/ & - &2.3738e-05 ,1.3547e-03 ,2.6849e-03 ,3.9940e-03 ,5.2660e-03 ,6.4652e-03 , & - &7.4857e-03 ,7.8673e-03 ,1.0519e-02 /) - kao(:, 5, 1,13) = (/ & - &2.6320e-05 ,1.7490e-03 ,3.4713e-03 ,5.1691e-03 ,6.8225e-03 ,8.3917e-03 , & - &9.7490e-03 ,1.0316e-02 ,1.3632e-02 /) - kao(:, 1, 2,13) = (/ & - &1.3584e-04 ,4.6683e-04 ,9.0905e-04 ,1.3477e-03 ,1.7804e-03 ,2.1997e-03 , & - &2.5843e-03 ,2.8459e-03 ,3.5348e-03 /) - kao(:, 2, 2,13) = (/ & - &1.2342e-04 ,6.7608e-04 ,1.3278e-03 ,1.9757e-03 ,2.6172e-03 ,3.2432e-03 , & - &3.8268e-03 ,4.2250e-03 ,5.2098e-03 /) - kao(:, 3, 2,13) = (/ & - &5.7073e-05 ,9.3916e-04 ,1.8537e-03 ,2.7640e-03 ,3.6667e-03 ,4.5531e-03 , & - &5.3892e-03 ,5.9774e-03 ,7.3088e-03 /) - kao(:, 4, 2,13) = (/ & - &4.3007e-05 ,1.2575e-03 ,2.4910e-03 ,3.7207e-03 ,4.9408e-03 ,6.1442e-03 , & - &7.2881e-03 ,8.1201e-03 ,9.8567e-03 /) - kao(:, 5, 2,13) = (/ & - &4.4050e-05 ,1.6325e-03 ,3.2411e-03 ,4.8448e-03 ,6.4428e-03 ,8.0196e-03 , & - &9.5284e-03 ,1.0661e-02 ,1.2860e-02 /) - kao(:, 1, 3,13) = (/ & - &4.8847e-04 ,4.8646e-04 ,7.2624e-04 ,1.0874e-03 ,1.4317e-03 ,1.7747e-03 , & - &2.1141e-03 ,2.4304e-03 ,2.8058e-03 /) - kao(:, 2, 3,13) = (/ & - &3.4302e-04 ,4.5845e-04 ,1.0966e-03 ,1.6182e-03 ,2.1396e-03 ,2.6609e-03 , & - &3.1797e-03 ,3.6788e-03 ,4.2203e-03 /) - kao(:, 3, 3,13) = (/ & - &2.3118e-04 ,5.8673e-04 ,1.5488e-03 ,2.2966e-03 ,3.0451e-03 ,3.7949e-03 , & - &4.5473e-03 ,5.2834e-03 ,6.0295e-03 /) - kao(:, 4, 3,13) = (/ & - &1.2745e-04 ,7.5679e-04 ,2.1131e-03 ,3.1366e-03 ,4.1628e-03 ,5.1929e-03 , & - &6.2318e-03 ,7.2646e-03 ,8.2577e-03 /) - kao(:, 5, 3,13) = (/ & - &1.0163e-04 ,9.0005e-04 ,2.8013e-03 ,4.1651e-03 ,5.5261e-03 ,6.8877e-03 , & - &8.2517e-03 ,9.6360e-03 ,1.0972e-02 /) - kao(:, 1, 4,13) = (/ & - &1.4481e-03 ,1.2897e-03 ,1.1542e-03 ,1.0925e-03 ,1.1503e-03 ,1.3566e-03 , & - &1.5821e-03 ,1.8266e-03 ,2.0462e-03 /) - kao(:, 2, 4,13) = (/ & - &1.3895e-03 ,1.2964e-03 ,1.0801e-03 ,1.1824e-03 ,1.6797e-03 ,2.0441e-03 , & - &2.4259e-03 ,2.8265e-03 ,3.1666e-03 /) - kao(:, 3, 4,13) = (/ & - &8.4970e-04 ,9.1322e-04 ,9.4827e-04 ,1.6805e-03 ,2.4256e-03 ,2.9871e-03 , & - &3.5538e-03 ,4.1410e-03 ,4.6574e-03 /) - kao(:, 4, 4,13) = (/ & - &4.1870e-04 ,6.5230e-04 ,1.1618e-03 ,2.4565e-03 ,3.3994e-03 ,4.2007e-03 , & - &5.0069e-03 ,5.8294e-03 ,6.5858e-03 /) - kao(:, 5, 4,13) = (/ & - &3.3416e-04 ,5.3110e-04 ,1.2880e-03 ,3.5329e-03 ,4.6400e-03 ,5.7434e-03 , & - &6.8465e-03 ,7.9498e-03 ,9.0475e-03 /) - kao(:, 1, 5,13) = (/ & - &4.2095e-03 ,3.6897e-03 ,3.1731e-03 ,2.7426e-03 ,2.2812e-03 ,1.8053e-03 , & - &1.3867e-03 ,1.3663e-03 ,1.0788e-03 /) - kao(:, 2, 5,13) = (/ & - &4.0034e-03 ,3.5161e-03 ,3.1982e-03 ,2.7135e-03 ,2.2188e-03 ,1.8636e-03 , & - &1.9269e-03 ,2.1141e-03 ,1.6636e-03 /) - kao(:, 3, 5,13) = (/ & - &3.5828e-03 ,3.2123e-03 ,2.7997e-03 ,2.3571e-03 ,1.9942e-03 ,2.3633e-03 , & - &2.8135e-03 ,3.1780e-03 ,2.3977e-03 /) - kao(:, 4, 5,13) = (/ & - &2.0578e-03 ,1.9948e-03 ,1.9739e-03 ,1.8494e-03 ,2.1664e-03 ,3.4722e-03 , & - &4.0379e-03 ,4.6191e-03 ,3.3853e-03 /) - kao(:, 5, 5,13) = (/ & - &8.8300e-04 ,9.5901e-04 ,1.3118e-03 ,1.4619e-03 ,2.8921e-03 ,4.8304e-03 , & - &5.6699e-03 ,6.5165e-03 ,5.0451e-03 /) - kao(:, 1, 6,13) = (/ & - &1.1518e-02 ,1.0082e-02 ,8.6450e-03 ,7.2094e-03 ,5.7738e-03 ,4.4142e-03 , & - &2.9967e-03 ,1.6414e-03 ,2.3528e-04 /) - kao(:, 2, 6,13) = (/ & - &1.0779e-02 ,9.4346e-03 ,8.0897e-03 ,6.7606e-03 ,5.5435e-03 ,4.2583e-03 , & - &3.0675e-03 ,1.8475e-03 ,3.7683e-04 /) - kao(:, 3, 6,13) = (/ & - &1.0564e-02 ,9.2493e-03 ,7.9306e-03 ,6.7005e-03 ,5.4724e-03 ,4.2002e-03 , & - &3.0432e-03 ,2.5995e-03 ,5.6137e-04 /) - kao(:, 4, 6,13) = (/ & - &8.9592e-03 ,7.8426e-03 ,6.9339e-03 ,5.9610e-03 ,4.9577e-03 ,4.0115e-03 , & - &3.3973e-03 ,3.7509e-03 ,7.8787e-04 /) - kao(:, 5, 6,13) = (/ & - &5.6084e-03 ,4.9031e-03 ,4.1060e-03 ,3.7154e-03 ,3.3523e-03 ,3.1522e-03 , & - &4.6655e-03 ,5.3564e-03 ,1.1263e-03 /) - kao(:, 1, 7,13) = (/ & - &3.2240e-02 ,2.8212e-02 ,2.4183e-02 ,2.0155e-02 ,1.6127e-02 ,1.2099e-02 , & - &8.0718e-03 ,4.1324e-03 ,2.8875e-04 /) - kao(:, 2, 7,13) = (/ & - &3.1311e-02 ,2.7399e-02 ,2.3486e-02 ,1.9574e-02 ,1.5661e-02 ,1.1749e-02 , & - &7.9670e-03 ,4.1256e-03 ,4.9392e-04 /) - kao(:, 3, 7,13) = (/ & - &2.9762e-02 ,2.6043e-02 ,2.2324e-02 ,1.8611e-02 ,1.4888e-02 ,1.1369e-02 , & - &7.7126e-03 ,4.2395e-03 ,7.8171e-04 /) - kao(:, 4, 7,13) = (/ & - &2.8871e-02 ,2.5265e-02 ,2.1655e-02 ,1.8050e-02 ,1.4581e-02 ,1.1027e-02 , & - &7.5640e-03 ,4.2437e-03 ,1.1828e-03 /) - kao(:, 5, 7,13) = (/ & - &2.6386e-02 ,2.3095e-02 ,1.9798e-02 ,1.6677e-02 ,1.3324e-02 ,1.0191e-02 , & - &7.1310e-03 ,4.8298e-03 ,2.2511e-03 /) - kao(:, 1, 8,13) = (/ & - &1.1497e-01 ,1.0060e-01 ,8.6231e-02 ,7.1859e-02 ,5.7486e-02 ,4.3117e-02 , & - &2.8748e-02 ,1.4377e-02 ,1.6465e-04 /) - kao(:, 2, 8,13) = (/ & - &1.1189e-01 ,9.7901e-02 ,8.3916e-02 ,6.9933e-02 ,5.5946e-02 ,4.1961e-02 , & - &2.7977e-02 ,1.3991e-02 ,2.9555e-04 /) - kao(:, 3, 8,13) = (/ & - &1.0913e-01 ,9.5494e-02 ,8.1850e-02 ,6.8211e-02 ,5.4570e-02 ,4.0928e-02 , & - &2.7290e-02 ,1.3843e-02 ,5.2136e-04 /) - kao(:, 4, 8,13) = (/ & - &1.0534e-01 ,9.2180e-02 ,7.9010e-02 ,6.5847e-02 ,5.2678e-02 ,3.9513e-02 , & - &2.6523e-02 ,1.3514e-02 ,8.6919e-04 /) - kao(:, 5, 8,13) = (/ & - &1.0155e-01 ,8.8866e-02 ,7.6173e-02 ,6.3476e-02 ,5.0785e-02 ,3.8190e-02 , & - &2.5826e-02 ,1.3344e-02 ,1.3651e-03 /) - kao(:, 1, 9,13) = (/ & - &7.8551e-01 ,6.8732e-01 ,5.8909e-01 ,4.9092e-01 ,3.9275e-01 ,2.9457e-01 , & - &1.9638e-01 ,9.8187e-02 ,1.8629e-06 /) - kao(:, 2, 9,13) = (/ & - &7.6466e-01 ,6.6906e-01 ,5.7351e-01 ,4.7791e-01 ,3.8233e-01 ,2.8675e-01 , & - &1.9117e-01 ,9.5586e-02 ,3.1593e-06 /) - kao(:, 3, 9,13) = (/ & - &7.4558e-01 ,6.5237e-01 ,5.5922e-01 ,4.6601e-01 ,3.7282e-01 ,2.7960e-01 , & - &1.8640e-01 ,9.3207e-02 ,5.1342e-06 /) - kao(:, 4, 9,13) = (/ & - &7.2909e-01 ,6.3798e-01 ,5.4684e-01 ,4.5571e-01 ,3.6456e-01 ,2.7343e-01 , & - &1.8229e-01 ,9.1144e-02 ,7.8192e-06 /) - kao(:, 5, 9,13) = (/ & - &7.0726e-01 ,6.1887e-01 ,5.3047e-01 ,4.4203e-01 ,3.5366e-01 ,2.6523e-01 , & - &1.7683e-01 ,8.8423e-02 ,1.1206e-05 /) - kao(:, 1,10,13) = (/ & - &6.4269e+00 ,5.6236e+00 ,4.8204e+00 ,4.0168e+00 ,3.2134e+00 ,2.4100e+00 , & - &1.6066e+00 ,8.0335e-01 ,1.1293e-06 /) - kao(:, 2,10,13) = (/ & - &6.2640e+00 ,5.4811e+00 ,4.6981e+00 ,3.9150e+00 ,3.1320e+00 ,2.3491e+00 , & - &1.5660e+00 ,7.8302e-01 ,2.0871e-06 /) - kao(:, 3,10,13) = (/ & - &6.1220e+00 ,5.3567e+00 ,4.5912e+00 ,3.8262e+00 ,3.0609e+00 ,2.2959e+00 , & - &1.5304e+00 ,7.6518e-01 ,3.5513e-06 /) - kao(:, 4,10,13) = (/ & - &5.9998e+00 ,5.2499e+00 ,4.4998e+00 ,3.7498e+00 ,2.9997e+00 ,2.2499e+00 , & - &1.5000e+00 ,7.4994e-01 ,5.6768e-06 /) - kao(:, 5,10,13) = (/ & - &5.8812e+00 ,5.1459e+00 ,4.4109e+00 ,3.6757e+00 ,2.9406e+00 ,2.2054e+00 , & - &1.4703e+00 ,7.3514e-01 ,8.5300e-06 /) - kao(:, 1,11,13) = (/ & - &1.7678e+01 ,1.5468e+01 ,1.3258e+01 ,1.1049e+01 ,8.8386e+00 ,6.6292e+00 , & - &4.4195e+00 ,2.2097e+00 ,9.5807e-07 /) - kao(:, 2,11,13) = (/ & - &1.7256e+01 ,1.5100e+01 ,1.2942e+01 ,1.0785e+01 ,8.6284e+00 ,6.4710e+00 , & - &4.3143e+00 ,2.1571e+00 ,1.8271e-06 /) - kao(:, 3,11,13) = (/ & - &1.6917e+01 ,1.4802e+01 ,1.2687e+01 ,1.0572e+01 ,8.4580e+00 ,6.3436e+00 , & - &4.2290e+00 ,2.1146e+00 ,3.1322e-06 /) - kao(:, 4,11,13) = (/ & - &1.6624e+01 ,1.4546e+01 ,1.2468e+01 ,1.0390e+01 ,8.3118e+00 ,6.2340e+00 , & - &4.1559e+00 ,2.0780e+00 ,4.9941e-06 /) - kao(:, 5,11,13) = (/ & - &1.6312e+01 ,1.4273e+01 ,1.2234e+01 ,1.0195e+01 ,8.1562e+00 ,6.1169e+00 , & - &4.0780e+00 ,2.0391e+00 ,7.8208e-06 /) - kao(:, 1,12,13) = (/ & - &3.1083e+01 ,2.7197e+01 ,2.3312e+01 ,1.9426e+01 ,1.5541e+01 ,1.1655e+01 , & - &7.7704e+00 ,3.8852e+00 ,7.4323e-07 /) - kao(:, 2,12,13) = (/ & - &3.0431e+01 ,2.6627e+01 ,2.2823e+01 ,1.9019e+01 ,1.5215e+01 ,1.1411e+01 , & - &7.6077e+00 ,3.8037e+00 ,1.4468e-06 /) - kao(:, 3,12,13) = (/ & - &2.9924e+01 ,2.6183e+01 ,2.2443e+01 ,1.8702e+01 ,1.4961e+01 ,1.1221e+01 , & - &7.4808e+00 ,3.7405e+00 ,2.6259e-06 /) - kao(:, 4,12,13) = (/ & - &2.9439e+01 ,2.5759e+01 ,2.2079e+01 ,1.8399e+01 ,1.4719e+01 ,1.1040e+01 , & - &7.3599e+00 ,3.6798e+00 ,4.5448e-06 /) - kao(:, 5,12,13) = (/ & - &2.8940e+01 ,2.5323e+01 ,2.1705e+01 ,1.8088e+01 ,1.4470e+01 ,1.0853e+01 , & - &7.2348e+00 ,3.6174e+00 ,7.3875e-06 /) - kao(:, 1,13,13) = (/ & - &4.5024e+01 ,3.9395e+01 ,3.3766e+01 ,2.8140e+01 ,2.2511e+01 ,1.6883e+01 , & - &1.1256e+01 ,5.6279e+00 ,6.0376e-07 /) - kao(:, 2,13,13) = (/ & - &4.4143e+01 ,3.8625e+01 ,3.3107e+01 ,2.7589e+01 ,2.2071e+01 ,1.6554e+01 , & - &1.1035e+01 ,5.5177e+00 ,1.1756e-06 /) - kao(:, 3,13,13) = (/ & - &4.3457e+01 ,3.8026e+01 ,3.2594e+01 ,2.7161e+01 ,2.1728e+01 ,1.6297e+01 , & - &1.0864e+01 ,5.4320e+00 ,2.1118e-06 /) - kao(:, 4,13,13) = (/ & - &4.2787e+01 ,3.7437e+01 ,3.2089e+01 ,2.6742e+01 ,2.1393e+01 ,1.6044e+01 , & - &1.0696e+01 ,5.3482e+00 ,3.5390e-06 /) - kao(:, 5,13,13) = (/ & - &4.2071e+01 ,3.6811e+01 ,3.1552e+01 ,2.6294e+01 ,2.1034e+01 ,1.5776e+01 , & - &1.0517e+01 ,5.2587e+00 ,5.6752e-06 /) - kao(:, 1, 1,14) = (/ & - &8.0615e-05 ,9.4684e-04 ,1.8810e-03 ,2.8058e-03 ,3.7171e-03 ,4.6066e-03 , & - &5.4471e-03 ,6.0480e-03 ,7.4265e-03 /) - kao(:, 2, 1,14) = (/ & - &7.2907e-05 ,1.3385e-03 ,2.6578e-03 ,3.9621e-03 ,5.2462e-03 ,6.4943e-03 , & - &7.6854e-03 ,8.5660e-03 ,1.0483e-02 /) - kao(:, 3, 1,14) = (/ & - &6.3747e-05 ,1.8288e-03 ,3.6296e-03 ,5.4086e-03 ,7.1575e-03 ,8.8508e-03 , & - &1.0431e-02 ,1.1658e-02 ,1.4300e-02 /) - kao(:, 4, 1,14) = (/ & - &3.9260e-05 ,2.4240e-03 ,4.8114e-03 ,7.1688e-03 ,9.4794e-03 ,1.1704e-02 , & - &1.3748e-02 ,1.5334e-02 ,1.8941e-02 /) - kao(:, 5, 1,14) = (/ & - &2.4568e-05 ,3.1272e-03 ,6.2078e-03 ,9.2494e-03 ,1.2223e-02 ,1.5067e-02 , & - &1.7657e-02 ,1.9583e-02 ,2.4427e-02 /) - kao(:, 1, 2,14) = (/ & - &1.5596e-04 ,8.5463e-04 ,1.6898e-03 ,2.5200e-03 ,3.3406e-03 ,4.1439e-03 , & - &4.9117e-03 ,5.5191e-03 ,6.6708e-03 /) - kao(:, 2, 2,14) = (/ & - &1.3504e-04 ,1.2362e-03 ,2.4448e-03 ,3.6435e-03 ,4.8236e-03 ,5.9777e-03 , & - &7.0641e-03 ,7.9635e-03 ,9.6287e-03 /) - kao(:, 3, 2,14) = (/ & - &1.1284e-04 ,1.7193e-03 ,3.4047e-03 ,5.0732e-03 ,6.7143e-03 ,8.3092e-03 , & - &9.8022e-03 ,1.1012e-02 ,1.3405e-02 /) - kao(:, 4, 2,14) = (/ & - &7.1068e-05 ,2.3136e-03 ,4.5842e-03 ,6.8306e-03 ,9.0376e-03 ,1.1180e-02 , & - &1.3169e-02 ,1.4761e-02 ,1.8047e-02 /) - kao(:, 5, 2,14) = (/ & - &4.9683e-05 ,3.0234e-03 ,5.9956e-03 ,8.9376e-03 ,1.1824e-02 ,1.4613e-02 , & - &1.7201e-02 ,1.9221e-02 ,2.3615e-02 /) - kao(:, 1, 3,14) = (/ & - &4.8559e-04 ,6.3562e-04 ,1.4148e-03 ,2.0956e-03 ,2.7735e-03 ,3.4411e-03 , & - &4.0892e-03 ,4.6631e-03 ,5.5086e-03 /) - kao(:, 2, 3,14) = (/ & - &3.9874e-04 ,1.0860e-03 ,2.1105e-03 ,3.1322e-03 ,4.1464e-03 ,5.1442e-03 , & - &6.1073e-03 ,6.9472e-03 ,8.2419e-03 /) - kao(:, 3, 3,14) = (/ & - &3.0553e-04 ,1.5424e-03 ,3.0141e-03 ,4.4802e-03 ,5.9320e-03 ,7.3631e-03 , & - &8.7355e-03 ,9.9159e-03 ,1.1803e-02 /) - kao(:, 4, 3,14) = (/ & - &2.0300e-04 ,2.1134e-03 ,4.1489e-03 ,6.1729e-03 ,8.1791e-03 ,1.0152e-02 , & - &1.2037e-02 ,1.3637e-02 ,1.6288e-02 /) - kao(:, 5, 3,14) = (/ & - &1.2261e-04 ,2.8083e-03 ,5.5298e-03 ,8.2360e-03 ,1.0915e-02 ,1.3546e-02 , & - &1.6061e-02 ,1.8163e-02 ,2.1753e-02 /) - kao(:, 1, 4,14) = (/ & - &1.6340e-03 ,1.4799e-03 ,1.3812e-03 ,1.7164e-03 ,2.2393e-03 ,2.7610e-03 , & - &3.2750e-03 ,3.7562e-03 ,4.3569e-03 /) - kao(:, 2, 4,14) = (/ & - &1.3493e-03 ,1.1314e-03 ,1.6943e-03 ,2.6409e-03 ,3.4636e-03 ,4.2822e-03 , & - &5.0857e-03 ,5.8323e-03 ,6.7806e-03 /) - kao(:, 3, 4,14) = (/ & - &9.9538e-04 ,9.6503e-04 ,2.6483e-03 ,3.8772e-03 ,5.1039e-03 ,6.3200e-03 , & - &7.5138e-03 ,8.6138e-03 ,1.0038e-02 /) - kao(:, 4, 4,14) = (/ & - &7.1686e-04 ,9.6594e-04 ,3.7129e-03 ,5.4649e-03 ,7.2111e-03 ,8.9436e-03 , & - &1.0638e-02 ,1.2197e-02 ,1.4232e-02 /) - kao(:, 5, 4,14) = (/ & - &3.7667e-04 ,1.0457e-03 ,5.0357e-03 ,7.4391e-03 ,9.8310e-03 ,1.2205e-02 , & - &1.4525e-02 ,1.6653e-02 ,1.9453e-02 /) - kao(:, 1, 5,14) = (/ & - &4.8186e-03 ,4.2167e-03 ,3.6150e-03 ,3.0747e-03 ,2.5291e-03 ,2.2936e-03 , & - &2.5986e-03 ,2.9578e-03 ,3.3675e-03 /) - kao(:, 2, 5,14) = (/ & - &4.3147e-03 ,3.7763e-03 ,3.3322e-03 ,2.8723e-03 ,2.9945e-03 ,3.5591e-03 , & - &4.1803e-03 ,4.7800e-03 ,5.4630e-03 /) - kao(:, 3, 5,14) = (/ & - &3.5596e-03 ,3.1147e-03 ,2.7981e-03 ,3.1802e-03 ,4.4145e-03 ,5.3933e-03 , & - &6.3651e-03 ,7.3014e-03 ,8.3701e-03 /) - kao(:, 4, 5,14) = (/ & - &2.3785e-03 ,2.2217e-03 ,2.2338e-03 ,4.4885e-03 ,6.3608e-03 ,7.8120e-03 , & - &9.2509e-03 ,1.0634e-02 ,1.2219e-02 /) - kao(:, 5, 5,14) = (/ & - &1.3285e-03 ,1.6004e-03 ,2.5745e-03 ,6.3438e-03 ,8.8283e-03 ,1.0885e-02 , & - &1.2921e-02 ,1.4873e-02 ,1.7112e-02 /) - kao(:, 1, 6,14) = (/ & - &1.2819e-02 ,1.1217e-02 ,9.6163e-03 ,8.0152e-03 ,6.4138e-03 ,4.8948e-03 , & - &3.3434e-03 ,2.3020e-03 ,2.0077e-03 /) - kao(:, 2, 6,14) = (/ & - &1.2485e-02 ,1.0926e-02 ,9.3667e-03 ,7.8075e-03 ,6.3840e-03 ,4.8805e-03 , & - &3.7061e-03 ,3.8075e-03 ,3.4020e-03 /) - kao(:, 3, 6,14) = (/ & - &1.1272e-02 ,9.8625e-03 ,8.4554e-03 ,7.3206e-03 ,6.0114e-03 ,5.1792e-03 , & - &5.3340e-03 ,6.0074e-03 ,5.3316e-03 /) - kao(:, 4, 6,14) = (/ & - &1.0208e-02 ,8.9332e-03 ,7.9437e-03 ,6.6798e-03 ,5.8609e-03 ,6.4855e-03 , & - &7.9228e-03 ,9.0010e-03 ,7.9567e-03 /) - kao(:, 5, 6,14) = (/ & - &6.0521e-03 ,5.2891e-03 ,4.8269e-03 ,4.6206e-03 ,6.6176e-03 ,9.3039e-03 , & - &1.1293e-02 ,1.2903e-02 ,1.1196e-02 /) - kao(:, 1, 7,14) = (/ & - &3.6443e-02 ,3.1891e-02 ,2.7336e-02 ,2.2781e-02 ,1.8226e-02 ,1.3673e-02 , & - &9.1182e-03 ,4.6764e-03 ,1.4855e-04 /) - kao(:, 2, 7,14) = (/ & - &3.5471e-02 ,3.1039e-02 ,2.6606e-02 ,2.2173e-02 ,1.7742e-02 ,1.3309e-02 , & - &9.0490e-03 ,4.6704e-03 ,2.5095e-04 /) - kao(:, 3, 7,14) = (/ & - &3.4456e-02 ,3.0149e-02 ,2.5845e-02 ,2.1540e-02 ,1.7235e-02 ,1.3185e-02 , & - &8.9735e-03 ,5.4794e-03 ,4.0737e-04 /) - kao(:, 4, 7,14) = (/ & - &3.1652e-02 ,2.7700e-02 ,2.3744e-02 ,1.9792e-02 ,1.6225e-02 ,1.2450e-02 , & - &9.1363e-03 ,7.6445e-03 ,6.2917e-04 /) - kao(:, 5, 7,14) = (/ & - &2.9864e-02 ,2.6135e-02 ,2.2399e-02 ,1.8923e-02 ,1.5530e-02 ,1.2143e-02 , & - &1.0151e-02 ,1.1058e-02 ,9.1130e-04 /) - kao(:, 1, 8,14) = (/ & - &1.3223e-01 ,1.1571e-01 ,9.9174e-02 ,8.2651e-02 ,6.6122e-02 ,4.9592e-02 , & - &3.3063e-02 ,1.6534e-02 ,2.3921e-04 /) - kao(:, 2, 8,14) = (/ & - &1.2869e-01 ,1.1260e-01 ,9.6519e-02 ,8.0434e-02 ,6.4349e-02 ,4.8263e-02 , & - &3.2179e-02 ,1.6093e-02 ,4.2965e-04 /) - kao(:, 3, 8,14) = (/ & - &1.2518e-01 ,1.0953e-01 ,9.3886e-02 ,7.8243e-02 ,6.2597e-02 ,4.6952e-02 , & - &3.1306e-02 ,1.5992e-02 ,7.4452e-04 /) - kao(:, 4, 8,14) = (/ & - &1.2188e-01 ,1.0664e-01 ,9.1414e-02 ,7.6180e-02 ,6.0947e-02 ,4.5714e-02 , & - &3.0548e-02 ,1.5885e-02 ,1.1502e-03 /) - kao(:, 5, 8,14) = (/ & - &1.1492e-01 ,1.0055e-01 ,8.6192e-02 ,7.1832e-02 ,5.7467e-02 ,4.3105e-02 , & - &2.9610e-02 ,1.5934e-02 ,1.8646e-03 /) - kao(:, 1, 9,14) = (/ & - &9.2387e-01 ,8.0839e-01 ,6.9293e-01 ,5.7740e-01 ,4.6193e-01 ,3.4646e-01 , & - &2.3098e-01 ,1.1549e-01 ,2.2371e-06 /) - kao(:, 2, 9,14) = (/ & - &9.0122e-01 ,7.8856e-01 ,6.7591e-01 ,5.6327e-01 ,4.5061e-01 ,3.3795e-01 , & - &2.2531e-01 ,1.1266e-01 ,3.5853e-06 /) - kao(:, 3, 9,14) = (/ & - &8.7866e-01 ,7.6881e-01 ,6.5900e-01 ,5.4913e-01 ,4.3933e-01 ,3.2948e-01 , & - &2.1967e-01 ,1.0984e-01 ,5.0567e-06 /) - kao(:, 4, 9,14) = (/ & - &8.5611e-01 ,7.4910e-01 ,6.4207e-01 ,5.3506e-01 ,4.2806e-01 ,3.2105e-01 , & - &2.1404e-01 ,1.0702e-01 ,6.9838e-06 /) - kao(:, 5, 9,14) = (/ & - &8.3494e-01 ,7.3059e-01 ,6.2623e-01 ,5.2185e-01 ,4.1749e-01 ,3.1312e-01 , & - &2.0874e-01 ,1.0439e-01 ,9.6651e-06 /) - kao(:, 1,10,14) = (/ & - &7.7336e+00 ,6.7669e+00 ,5.8002e+00 ,4.8337e+00 ,3.8667e+00 ,2.9002e+00 , & - &1.9334e+00 ,9.6674e-01 ,1.4759e-06 /) - kao(:, 2,10,14) = (/ & - &7.5671e+00 ,6.6210e+00 ,5.6751e+00 ,4.7295e+00 ,3.7835e+00 ,2.8377e+00 , & - &1.8919e+00 ,9.4588e-01 ,2.4483e-06 /) - kao(:, 3,10,14) = (/ & - &7.3934e+00 ,6.4694e+00 ,5.5449e+00 ,4.6209e+00 ,3.6964e+00 ,2.7725e+00 , & - &1.8483e+00 ,9.2413e-01 ,3.6428e-06 /) - kao(:, 4,10,14) = (/ & - &7.2085e+00 ,6.3072e+00 ,5.4063e+00 ,4.5053e+00 ,3.6041e+00 ,2.7031e+00 , & - &1.8022e+00 ,9.0111e-01 ,5.1643e-06 /) - kao(:, 5,10,14) = (/ & - &7.0344e+00 ,6.1551e+00 ,5.2759e+00 ,4.3968e+00 ,3.5172e+00 ,2.6378e+00 , & - &1.7586e+00 ,8.7933e-01 ,7.2619e-06 /) - kao(:, 1,11,14) = (/ & - &2.1626e+01 ,1.8923e+01 ,1.6220e+01 ,1.3516e+01 ,1.0813e+01 ,8.1097e+00 , & - &5.4065e+00 ,2.7033e+00 ,1.2148e-06 /) - kao(:, 2,11,14) = (/ & - &2.1170e+01 ,1.8523e+01 ,1.5877e+01 ,1.3231e+01 ,1.0585e+01 ,7.9391e+00 , & - &5.2925e+00 ,2.6462e+00 ,1.9377e-06 /) - kao(:, 3,11,14) = (/ & - &2.0665e+01 ,1.8082e+01 ,1.5499e+01 ,1.2916e+01 ,1.0333e+01 ,7.7495e+00 , & - &5.1662e+00 ,2.5832e+00 ,2.9701e-06 /) - kao(:, 4,11,14) = (/ & - &2.0140e+01 ,1.7623e+01 ,1.5106e+01 ,1.2588e+01 ,1.0071e+01 ,7.5528e+00 , & - &5.0352e+00 ,2.5176e+00 ,4.4558e-06 /) - kao(:, 5,11,14) = (/ & - &1.9664e+01 ,1.7206e+01 ,1.4748e+01 ,1.2290e+01 ,9.8317e+00 ,7.3738e+00 , & - &4.9159e+00 ,2.4579e+00 ,6.2661e-06 /) - kao(:, 1,12,14) = (/ & - &3.8270e+01 ,3.3486e+01 ,2.8703e+01 ,2.3919e+01 ,1.9135e+01 ,1.4352e+01 , & - &9.5673e+00 ,4.7836e+00 ,1.1282e-06 /) - kao(:, 2,12,14) = (/ & - &3.7417e+01 ,3.2741e+01 ,2.8063e+01 ,2.3387e+01 ,1.8709e+01 ,1.4031e+01 , & - &9.3545e+00 ,4.6770e+00 ,1.8527e-06 /) - kao(:, 3,12,14) = (/ & - &3.6489e+01 ,3.1928e+01 ,2.7367e+01 ,2.2805e+01 ,1.8244e+01 ,1.3683e+01 , & - &9.1218e+00 ,4.5610e+00 ,2.7902e-06 /) - kao(:, 4,12,14) = (/ & - &3.5556e+01 ,3.1112e+01 ,2.6666e+01 ,2.2223e+01 ,1.7778e+01 ,1.3333e+01 , & - &8.8890e+00 ,4.4446e+00 ,3.8795e-06 /) - kao(:, 5,12,14) = (/ & - &3.4682e+01 ,3.0344e+01 ,2.6011e+01 ,2.1676e+01 ,1.7341e+01 ,1.3005e+01 , & - &8.6702e+00 ,4.3349e+00 ,5.0987e-06 /) - kao(:, 1,13,14) = (/ & - &5.4806e+01 ,4.7955e+01 ,4.1104e+01 ,3.4254e+01 ,2.7403e+01 ,2.0551e+01 , & - &1.3701e+01 ,6.8507e+00 ,9.3782e-07 /) - kao(:, 2,13,14) = (/ & - &5.3507e+01 ,4.6818e+01 ,4.0130e+01 ,3.3442e+01 ,2.6753e+01 ,2.0066e+01 , & - &1.3376e+01 ,6.6886e+00 ,1.6696e-06 /) - kao(:, 3,13,14) = (/ & - &5.2032e+01 ,4.5528e+01 ,3.9023e+01 ,3.2519e+01 ,2.6015e+01 ,1.9512e+01 , & - &1.3008e+01 ,6.5038e+00 ,2.8850e-06 /) - kao(:, 4,13,14) = (/ & - &5.0622e+01 ,4.4293e+01 ,3.7966e+01 ,3.1638e+01 ,2.5310e+01 ,1.8983e+01 , & - &1.2655e+01 ,6.3275e+00 ,4.3456e-06 /) - kao(:, 5,13,14) = (/ & - &4.9341e+01 ,4.3174e+01 ,3.7007e+01 ,3.0838e+01 ,2.4670e+01 ,1.8503e+01 , & - &1.2335e+01 ,6.1672e+00 ,6.2672e-06 /) - kao(:, 1, 1,15) = (/ & - &9.0368e-05 ,1.7587e-03 ,3.4692e-03 ,5.1215e-03 ,6.6729e-03 ,8.0447e-03 , & - &9.0360e-03 ,8.9574e-03 ,1.3337e-02 /) - kao(:, 2, 1,15) = (/ & - &8.5673e-05 ,2.5288e-03 ,4.9923e-03 ,7.3709e-03 ,9.6068e-03 ,1.1588e-02 , & - &1.3021e-02 ,1.2915e-02 ,1.9203e-02 /) - kao(:, 3, 1,15) = (/ & - &7.5800e-05 ,3.4920e-03 ,6.8957e-03 ,1.0184e-02 ,1.3280e-02 ,1.6021e-02 , & - &1.8010e-02 ,1.7888e-02 ,2.6548e-02 /) - kao(:, 4, 1,15) = (/ & - &6.6885e-05 ,4.6582e-03 ,9.2038e-03 ,1.3596e-02 ,1.7729e-02 ,2.1393e-02 , & - &2.4064e-02 ,2.3923e-02 ,3.5446e-02 /) - kao(:, 5, 1,15) = (/ & - &2.9277e-05 ,6.0336e-03 ,1.1922e-02 ,1.7611e-02 ,2.2979e-02 ,2.7733e-02 , & - &3.1220e-02 ,3.1058e-02 ,4.5944e-02 /) - kao(:, 1, 2,15) = (/ & - &1.6162e-04 ,1.7658e-03 ,3.4927e-03 ,5.1816e-03 ,6.8087e-03 ,8.3146e-03 , & - &9.5542e-03 ,9.9349e-03 ,1.3602e-02 /) - kao(:, 2, 2,15) = (/ & - &1.4940e-04 ,2.5810e-03 ,5.1093e-03 ,7.5846e-03 ,9.9670e-03 ,1.2178e-02 , & - &1.4000e-02 ,1.4578e-02 ,1.9917e-02 /) - kao(:, 3, 2,15) = (/ & - &1.4212e-04 ,3.6142e-03 ,7.1589e-03 ,1.0631e-02 ,1.3977e-02 ,1.7085e-02 , & - &1.9645e-02 ,2.0472e-02 ,2.7934e-02 /) - kao(:, 4, 2,15) = (/ & - &1.2057e-04 ,4.8773e-03 ,9.6676e-03 ,1.4359e-02 ,1.8882e-02 ,2.3081e-02 , & - &2.6561e-02 ,2.7724e-02 ,3.7741e-02 /) - kao(:, 5, 2,15) = (/ & - &6.0191e-05 ,6.3788e-03 ,1.2648e-02 ,1.8790e-02 ,2.4713e-02 ,3.0224e-02 , & - &3.4797e-02 ,3.6354e-02 ,4.9402e-02 /) - kao(:, 1, 3,15) = (/ & - &4.4246e-04 ,1.6142e-03 ,3.1839e-03 ,4.7378e-03 ,6.2661e-03 ,7.7441e-03 , & - &9.0975e-03 ,1.0015e-02 ,1.2497e-02 /) - kao(:, 2, 3,15) = (/ & - &3.8619e-04 ,2.4195e-03 ,4.7839e-03 ,7.1249e-03 ,9.4281e-03 ,1.1657e-02 , & - &1.3699e-02 ,1.5096e-02 ,1.8815e-02 /) - kao(:, 3, 3,15) = (/ & - &3.7186e-04 ,3.4615e-03 ,6.8531e-03 ,1.0215e-02 ,1.3514e-02 ,1.6722e-02 , & - &1.9664e-02 ,2.1688e-02 ,2.6981e-02 /) - kao(:, 4, 3,15) = (/ & - &3.4136e-04 ,4.7556e-03 ,9.4307e-03 ,1.4062e-02 ,1.8619e-02 ,2.3030e-02 , & - &2.7098e-02 ,2.9910e-02 ,3.7185e-02 /) - kao(:, 5, 3,15) = (/ & - &2.7238e-04 ,6.3154e-03 ,1.2533e-02 ,1.8695e-02 ,2.4762e-02 ,3.0640e-02 , & - &3.6060e-02 ,3.9831e-02 ,4.9464e-02 /) - kao(:, 1, 4,15) = (/ & - &1.8439e-03 ,1.6255e-03 ,2.7662e-03 ,4.1011e-03 ,5.4250e-03 ,6.7307e-03 , & - &7.9903e-03 ,9.0701e-03 ,1.0766e-02 /) - kao(:, 2, 4,15) = (/ & - &1.2780e-03 ,2.0382e-03 ,4.2819e-03 ,6.3618e-03 ,8.4274e-03 ,1.0464e-02 , & - &1.2431e-02 ,1.4123e-02 ,1.6753e-02 /) - kao(:, 3, 4,15) = (/ & - &1.0129e-03 ,3.1935e-03 ,6.2902e-03 ,9.3615e-03 ,1.2411e-02 ,1.5417e-02 , & - &1.8325e-02 ,2.0828e-02 ,2.4703e-02 /) - kao(:, 4, 4,15) = (/ & - &9.5662e-04 ,4.4942e-03 ,8.8414e-03 ,1.3166e-02 ,1.7466e-02 ,2.1716e-02 , & - &2.5826e-02 ,2.9379e-02 ,3.4795e-02 /) - kao(:, 5, 4,15) = (/ & - &7.9817e-04 ,6.0664e-03 ,1.1965e-02 ,1.7841e-02 ,2.3679e-02 ,2.9437e-02 , & - &3.5012e-02 ,3.9861e-02 ,4.7202e-02 /) - kao(:, 1, 5,15) = (/ & - &5.1399e-03 ,4.4963e-03 ,3.8550e-03 ,3.7300e-03 ,4.5601e-03 ,5.6445e-03 , & - &6.7084e-03 ,7.7027e-03 ,8.9288e-03 /) - kao(:, 2, 5,15) = (/ & - &4.9517e-03 ,4.3316e-03 ,4.1416e-03 ,5.5566e-03 ,7.3222e-03 ,9.0762e-03 , & - &1.0805e-02 ,1.2425e-02 ,1.4409e-02 /) - kao(:, 3, 5,15) = (/ & - &3.6157e-03 ,3.1633e-03 ,5.3630e-03 ,8.3885e-03 ,1.1080e-02 ,1.3756e-02 , & - &1.6391e-02 ,1.8868e-02 ,2.1878e-02 /) - kao(:, 4, 5,15) = (/ & - &2.5485e-03 ,3.2448e-03 ,8.0168e-03 ,1.2065e-02 ,1.5959e-02 ,1.9835e-02 , & - &2.3656e-02 ,2.7245e-02 ,3.1588e-02 /) - kao(:, 5, 5,15) = (/ & - &2.2002e-03 ,3.7004e-03 ,1.1229e-02 ,1.6648e-02 ,2.2051e-02 ,2.7414e-02 , & - &3.2714e-02 ,3.7713e-02 ,4.3725e-02 /) - kao(:, 1, 6,15) = (/ & - &1.3785e-02 ,1.2061e-02 ,1.0339e-02 ,8.6158e-03 ,6.8942e-03 ,5.5266e-03 , & - &5.3843e-03 ,6.1361e-03 ,7.0081e-03 /) - kao(:, 2, 6,15) = (/ & - &1.3401e-02 ,1.1726e-02 ,1.0052e-02 ,8.3774e-03 ,7.3256e-03 ,7.6626e-03 , & - &8.9483e-03 ,1.0302e-02 ,1.1787e-02 /) - kao(:, 3, 6,15) = (/ & - &1.3001e-02 ,1.1375e-02 ,9.7516e-03 ,8.8385e-03 ,9.7753e-03 ,1.1803e-02 , & - &1.4015e-02 ,1.6165e-02 ,1.8521e-02 /) - kao(:, 4, 6,15) = (/ & - &1.0311e-02 ,9.0242e-03 ,7.7593e-03 ,9.8758e-03 ,1.4142e-02 ,1.7458e-02 , & - &2.0764e-02 ,2.3987e-02 ,2.7500e-02 /) - kao(:, 5, 6,15) = (/ & - &6.1007e-03 ,5.3334e-03 ,8.4379e-03 ,1.3947e-02 ,1.9967e-02 ,2.4665e-02 , & - &2.9359e-02 ,3.3960e-02 ,3.8947e-02 /) - kao(:, 1, 7,15) = (/ & - &3.9607e-02 ,3.4655e-02 ,2.9704e-02 ,2.4754e-02 ,1.9804e-02 ,1.4853e-02 , & - &9.9024e-03 ,5.6087e-03 ,4.7437e-03 /) - kao(:, 2, 7,15) = (/ & - &3.8786e-02 ,3.3939e-02 ,2.9089e-02 ,2.4244e-02 ,1.9395e-02 ,1.4546e-02 , & - &1.0087e-02 ,8.3483e-03 ,8.1480e-03 /) - kao(:, 3, 7,15) = (/ & - &3.7941e-02 ,3.3203e-02 ,2.8458e-02 ,2.3715e-02 ,1.8973e-02 ,1.4624e-02 , & - &1.2669e-02 ,1.3455e-02 ,1.2971e-02 /) - kao(:, 4, 7,15) = (/ & - &3.7052e-02 ,3.2423e-02 ,2.7792e-02 ,2.3160e-02 ,1.8933e-02 ,1.7157e-02 , & - &1.8083e-02 ,2.0593e-02 ,1.9406e-02 /) - kao(:, 5, 7,15) = (/ & - &3.1592e-02 ,2.7646e-02 ,2.3693e-02 ,2.0299e-02 ,1.8491e-02 ,2.1228e-02 , & - &2.6244e-02 ,2.9985e-02 ,2.7520e-02 /) - kao(:, 1, 8,15) = (/ & - &1.4580e-01 ,1.2758e-01 ,1.0936e-01 ,9.1128e-02 ,7.2910e-02 ,5.4675e-02 , & - &3.6454e-02 ,1.8228e-02 ,7.5823e-04 /) - kao(:, 2, 8,15) = (/ & - &1.4341e-01 ,1.2548e-01 ,1.0755e-01 ,8.9631e-02 ,7.1703e-02 ,5.3780e-02 , & - &3.5854e-02 ,1.7928e-02 ,1.3701e-03 /) - kao(:, 3, 8,15) = (/ & - &1.4083e-01 ,1.2323e-01 ,1.0562e-01 ,8.8019e-02 ,7.0413e-02 ,5.2809e-02 , & - &3.5210e-02 ,1.8039e-02 ,2.2984e-03 /) - kao(:, 4, 8,15) = (/ & - &1.3806e-01 ,1.2080e-01 ,1.0354e-01 ,8.6290e-02 ,6.9028e-02 ,5.1771e-02 , & - &3.4515e-02 ,2.0878e-02 ,3.6182e-03 /) - kao(:, 5, 8,15) = (/ & - &1.3508e-01 ,1.1820e-01 ,1.0132e-01 ,8.4431e-02 ,6.7546e-02 ,5.0657e-02 , & - &3.5330e-02 ,2.7298e-02 ,5.3909e-03 /) - kao(:, 1, 9,15) = (/ & - &1.0374e+00 ,9.0767e-01 ,7.7802e-01 ,6.4832e-01 ,5.1864e-01 ,3.8900e-01 , & - &2.5933e-01 ,1.2966e-01 ,2.1397e-06 /) - kao(:, 2, 9,15) = (/ & - &1.0197e+00 ,8.9224e-01 ,7.6478e-01 ,6.3733e-01 ,5.0988e-01 ,3.8239e-01 , & - &2.5493e-01 ,1.2747e-01 ,3.4826e-06 /) - kao(:, 3, 9,15) = (/ & - &1.0031e+00 ,8.7777e-01 ,7.5240e-01 ,6.2700e-01 ,5.0158e-01 ,3.7619e-01 , & - &2.5081e-01 ,1.2540e-01 ,5.6811e-06 /) - kao(:, 4, 9,15) = (/ & - &9.8558e-01 ,8.6233e-01 ,7.3918e-01 ,6.1597e-01 ,4.9277e-01 ,3.6960e-01 , & - &2.4641e-01 ,1.2320e-01 ,9.7907e-06 /) - kao(:, 5, 9,15) = (/ & - &9.6612e-01 ,8.4542e-01 ,7.2465e-01 ,6.0387e-01 ,4.8310e-01 ,3.6231e-01 , & - &2.4155e-01 ,1.2077e-01 ,1.4737e-05 /) - kao(:, 1,10,15) = (/ & - &8.9111e+00 ,7.7969e+00 ,6.6836e+00 ,5.5691e+00 ,4.4554e+00 ,3.3414e+00 , & - &2.2275e+00 ,1.1138e+00 ,1.1507e-06 /) - kao(:, 2,10,15) = (/ & - &8.7649e+00 ,7.6684e+00 ,6.5728e+00 ,5.4777e+00 ,4.3822e+00 ,3.2866e+00 , & - &2.1910e+00 ,1.0955e+00 ,1.9584e-06 /) - kao(:, 3,10,15) = (/ & - &8.6133e+00 ,7.5361e+00 ,6.4598e+00 ,5.3829e+00 ,4.3064e+00 ,3.2299e+00 , & - &2.1532e+00 ,1.0766e+00 ,3.2367e-06 /) - kao(:, 4,10,15) = (/ & - &8.4534e+00 ,7.3969e+00 ,6.3406e+00 ,5.2836e+00 ,4.2270e+00 ,3.1701e+00 , & - &2.1135e+00 ,1.0568e+00 ,5.5316e-06 /) - kao(:, 5,10,15) = (/ & - &8.2801e+00 ,7.2444e+00 ,6.2095e+00 ,5.1748e+00 ,4.1398e+00 ,3.1049e+00 , & - &2.0699e+00 ,1.0350e+00 ,8.6177e-06 /) - kao(:, 1,11,15) = (/ & - &2.5435e+01 ,2.2258e+01 ,1.9079e+01 ,1.5898e+01 ,1.2719e+01 ,9.5392e+00 , & - &6.3596e+00 ,3.1798e+00 ,8.0677e-07 /) - kao(:, 2,11,15) = (/ & - &2.5109e+01 ,2.1970e+01 ,1.8832e+01 ,1.5693e+01 ,1.2554e+01 ,9.4153e+00 , & - &6.2771e+00 ,3.1385e+00 ,1.4119e-06 /) - kao(:, 3,11,15) = (/ & - &2.4708e+01 ,2.1620e+01 ,1.8532e+01 ,1.5442e+01 ,1.2355e+01 ,9.2660e+00 , & - &6.1771e+00 ,3.0885e+00 ,2.4283e-06 /) - kao(:, 4,11,15) = (/ & - &2.4206e+01 ,2.1181e+01 ,1.8155e+01 ,1.5130e+01 ,1.2103e+01 ,9.0784e+00 , & - &6.0520e+00 ,3.0256e+00 ,3.8467e-06 /) - kao(:, 5,11,15) = (/ & - &2.3645e+01 ,2.0690e+01 ,1.7735e+01 ,1.4778e+01 ,1.1822e+01 ,8.8671e+00 , & - &5.9114e+00 ,2.9557e+00 ,6.2945e-06 /) - kao(:, 1,12,15) = (/ & - &4.5821e+01 ,4.0093e+01 ,3.4365e+01 ,2.8640e+01 ,2.2910e+01 ,1.7183e+01 , & - &1.1455e+01 ,5.7277e+00 ,5.6905e-07 /) - kao(:, 2,12,15) = (/ & - &4.5215e+01 ,3.9561e+01 ,3.3912e+01 ,2.8260e+01 ,2.2608e+01 ,1.6955e+01 , & - &1.1304e+01 ,5.6520e+00 ,1.0466e-06 /) - kao(:, 3,12,15) = (/ & - &4.4441e+01 ,3.8886e+01 ,3.3332e+01 ,2.7776e+01 ,2.2220e+01 ,1.6665e+01 , & - &1.1110e+01 ,5.5552e+00 ,1.8066e-06 /) - kao(:, 4,12,15) = (/ & - &4.3598e+01 ,3.8150e+01 ,3.2698e+01 ,2.7250e+01 ,2.1798e+01 ,1.6350e+01 , & - &1.0900e+01 ,5.4499e+00 ,2.8751e-06 /) - kao(:, 5,12,15) = (/ & - &4.2666e+01 ,3.7332e+01 ,3.2000e+01 ,2.6665e+01 ,2.1333e+01 ,1.6001e+01 , & - &1.0666e+01 ,5.3333e+00 ,4.5303e-06 /) - kao(:, 1,13,15) = (/ & - &6.6305e+01 ,5.8017e+01 ,4.9731e+01 ,4.1443e+01 ,3.3153e+01 ,2.4866e+01 , & - &1.6576e+01 ,8.2888e+00 ,6.5868e-07 /) - kao(:, 2,13,15) = (/ & - &6.5425e+01 ,5.7245e+01 ,4.9068e+01 ,4.0889e+01 ,3.2711e+01 ,2.4534e+01 , & - &1.6356e+01 ,8.1783e+00 ,1.0770e-06 /) - kao(:, 3,13,15) = (/ & - &6.4452e+01 ,5.6397e+01 ,4.8336e+01 ,4.0283e+01 ,3.2227e+01 ,2.4169e+01 , & - &1.6113e+01 ,8.0564e+00 ,1.3521e-06 /) - kao(:, 4,13,15) = (/ & - &6.3313e+01 ,5.5397e+01 ,4.7486e+01 ,3.9571e+01 ,3.1655e+01 ,2.3741e+01 , & - &1.5828e+01 ,7.9140e+00 ,2.2152e-06 /) - kao(:, 5,13,15) = (/ & - &6.1963e+01 ,5.4219e+01 ,4.6473e+01 ,3.8726e+01 ,3.0982e+01 ,2.3236e+01 , & - &1.5490e+01 ,7.7450e+00 ,3.4066e-06 /) - kao(:, 1, 1,16) = (/ & - &8.8773e-05 ,1.9140e-03 ,3.7690e-03 ,5.5469e-03 ,7.2016e-03 ,8.6351e-03 , & - &9.6093e-03 ,9.3558e-03 ,1.4394e-02 /) - kao(:, 2, 1,16) = (/ & - &8.4216e-05 ,2.7660e-03 ,5.4492e-03 ,8.0218e-03 ,1.0416e-02 ,1.2486e-02 , & - &1.3893e-02 ,1.3527e-02 ,2.0822e-02 /) - kao(:, 3, 1,16) = (/ & - &8.0290e-05 ,3.8383e-03 ,7.5630e-03 ,1.1136e-02 ,1.4457e-02 ,1.7334e-02 , & - &1.9290e-02 ,1.8781e-02 ,2.8902e-02 /) - kao(:, 4, 1,16) = (/ & - &7.6611e-05 ,5.1452e-03 ,1.0139e-02 ,1.4930e-02 ,1.9392e-02 ,2.3248e-02 , & - &2.5870e-02 ,2.5185e-02 ,3.8771e-02 /) - kao(:, 5, 1,16) = (/ & - &7.3163e-05 ,6.6935e-03 ,1.3197e-02 ,1.9435e-02 ,2.5235e-02 ,3.0263e-02 , & - &3.3675e-02 ,3.2771e-02 ,5.0455e-02 /) - kao(:, 1, 2,16) = (/ & - &1.5679e-04 ,1.9888e-03 ,3.9277e-03 ,5.8149e-03 ,7.6126e-03 ,9.2475e-03 , & - &1.0521e-02 ,1.0714e-02 ,1.5210e-02 /) - kao(:, 2, 2,16) = (/ & - &1.4773e-04 ,2.9274e-03 ,5.7862e-03 ,8.5677e-03 ,1.1217e-02 ,1.3627e-02 , & - &1.5504e-02 ,1.5787e-02 ,2.2417e-02 /) - kao(:, 3, 2,16) = (/ & - &1.4025e-04 ,4.1262e-03 ,8.1606e-03 ,1.2085e-02 ,1.5823e-02 ,1.9223e-02 , & - &2.1876e-02 ,2.2273e-02 ,3.1626e-02 /) - kao(:, 4, 2,16) = (/ & - &1.3354e-04 ,5.6053e-03 ,1.1089e-02 ,1.6429e-02 ,2.1516e-02 ,2.6138e-02 , & - &2.9742e-02 ,3.0283e-02 ,4.3010e-02 /) - kao(:, 5, 2,16) = (/ & - &1.2725e-04 ,7.3793e-03 ,1.4605e-02 ,2.1632e-02 ,2.8334e-02 ,3.4423e-02 , & - &3.9175e-02 ,3.9879e-02 ,5.6642e-02 /) - kao(:, 1, 3,16) = (/ & - &4.1725e-04 ,1.8982e-03 ,3.7447e-03 ,5.5658e-03 ,7.3458e-03 ,9.0433e-03 , & - &1.0548e-02 ,1.1397e-02 ,1.4655e-02 /) - kao(:, 2, 3,16) = (/ & - &3.9098e-04 ,2.8734e-03 ,5.6787e-03 ,8.4482e-03 ,1.1153e-02 ,1.3733e-02 , & - &1.6021e-02 ,1.7312e-02 ,2.2262e-02 /) - kao(:, 3, 3,16) = (/ & - &3.4851e-04 ,4.1474e-03 ,8.2100e-03 ,1.2218e-02 ,1.6131e-02 ,1.9869e-02 , & - &2.3184e-02 ,2.5055e-02 ,3.2211e-02 /) - kao(:, 4, 3,16) = (/ & - &3.3110e-04 ,5.7507e-03 ,1.1396e-02 ,1.6965e-02 ,2.2409e-02 ,2.7601e-02 , & - &3.2208e-02 ,3.4575e-02 ,4.4760e-02 /) - kao(:, 5, 3,16) = (/ & - &3.1495e-04 ,7.7054e-03 ,1.5281e-02 ,2.2758e-02 ,3.0062e-02 ,3.7025e-02 , & - &4.3208e-02 ,4.6704e-02 ,6.0059e-02 /) - kao(:, 1, 4,16) = (/ & - &1.7281e-03 ,1.7667e-03 ,3.4371e-03 ,5.0959e-03 ,6.7367e-03 ,8.3430e-03 , & - &9.8600e-03 ,1.1050e-02 ,1.3383e-02 /) - kao(:, 2, 4,16) = (/ & - &1.1628e-03 ,2.7537e-03 ,5.3881e-03 ,8.0069e-03 ,1.0596e-02 ,1.3125e-02 , & - &1.5518e-02 ,1.7399e-02 ,2.1083e-02 /) - kao(:, 3, 4,16) = (/ & - &1.1124e-03 ,4.0786e-03 ,8.0137e-03 ,1.1921e-02 ,1.5788e-02 ,1.9566e-02 , & - &2.3141e-02 ,2.5952e-02 ,3.1447e-02 /) - kao(:, 4, 4,16) = (/ & - &1.0810e-03 ,5.7837e-03 ,1.1394e-02 ,1.6970e-02 ,2.2483e-02 ,2.7876e-02 , & - &3.2974e-02 ,3.6985e-02 ,4.4815e-02 /) - kao(:, 5, 4,16) = (/ & - &9.9376e-04 ,7.9012e-03 ,1.5599e-02 ,2.3249e-02 ,3.0813e-02 ,3.8207e-02 , & - &4.5202e-02 ,5.0705e-02 ,6.1455e-02 /) - kao(:, 1, 5,16) = (/ & - &5.4114e-03 ,4.7354e-03 ,4.0587e-03 ,4.6142e-03 ,6.0695e-03 ,7.5080e-03 , & - &8.9059e-03 ,1.0147e-02 ,1.1928e-02 /) - kao(:, 2, 5,16) = (/ & - &5.1867e-03 ,4.5542e-03 ,5.0981e-03 ,7.5059e-03 ,9.9017e-03 ,1.2267e-02 , & - &1.4567e-02 ,1.6610e-02 ,1.9542e-02 /) - kao(:, 3, 5,16) = (/ & - &3.0269e-03 ,2.6488e-03 ,7.7938e-03 ,1.1517e-02 ,1.5221e-02 ,1.8876e-02 , & - &2.2431e-02 ,2.5594e-02 ,3.0125e-02 /) - kao(:, 4, 5,16) = (/ & - &2.9184e-03 ,2.5534e-03 ,1.1353e-02 ,1.6816e-02 ,2.2248e-02 ,2.7623e-02 , & - &3.2847e-02 ,3.7486e-02 ,4.4122e-02 /) - kao(:, 5, 5,16) = (/ & - &2.8186e-03 ,8.1567e-03 ,1.5865e-02 ,2.3545e-02 ,3.1185e-02 ,3.8732e-02 , & - &4.6076e-02 ,5.2599e-02 ,6.1936e-02 /) - kao(:, 1, 6,16) = (/ & - &1.4590e-02 ,1.2765e-02 ,1.0941e-02 ,9.1186e-03 ,7.2947e-03 ,6.5373e-03 , & - &7.7212e-03 ,8.8306e-03 ,1.0195e-02 /) - kao(:, 2, 6,16) = (/ & - &1.4301e-02 ,1.2513e-02 ,1.0724e-02 ,8.9392e-03 ,9.0428e-03 ,1.1132e-02 , & - &1.3188e-02 ,1.5117e-02 ,1.7482e-02 /) - kao(:, 3, 6,16) = (/ & - &1.3976e-02 ,1.2228e-02 ,1.0485e-02 ,1.0970e-02 ,1.4363e-02 ,1.7735e-02 , & - &2.1052e-02 ,2.4167e-02 ,2.7980e-02 /) - kao(:, 4, 6,16) = (/ & - &7.5839e-03 ,6.6346e-03 ,9.3364e-03 ,1.6444e-02 ,2.1598e-02 ,2.6720e-02 , & - &3.1771e-02 ,3.6510e-02 ,4.2297e-02 /) - kao(:, 5, 6,16) = (/ & - &7.3499e-03 ,6.4297e-03 ,1.6063e-02 ,2.3546e-02 ,3.1010e-02 ,3.8427e-02 , & - &4.5729e-02 ,5.2589e-02 ,6.0961e-02 /) - kao(:, 1, 7,16) = (/ & - &4.2002e-02 ,3.6747e-02 ,3.1501e-02 ,2.6251e-02 ,2.1002e-02 ,1.5754e-02 , & - &1.0500e-02 ,7.5058e-03 ,8.4905e-03 /) - kao(:, 2, 7,16) = (/ & - &4.1348e-02 ,3.6182e-02 ,3.1017e-02 ,2.5842e-02 ,2.0675e-02 ,1.5509e-02 , & - &1.1819e-02 ,1.3466e-02 ,1.5310e-02 /) - kao(:, 3, 7,16) = (/ & - &4.0563e-02 ,3.5489e-02 ,3.0424e-02 ,2.5351e-02 ,2.0286e-02 ,1.6643e-02 , & - &1.9563e-02 ,2.2386e-02 ,2.5539e-02 /) - kao(:, 4, 7,16) = (/ & - &3.9401e-02 ,3.4717e-02 ,2.9752e-02 ,2.4793e-02 ,2.1115e-02 ,2.5798e-02 , & - &3.0449e-02 ,3.4941e-02 ,3.9945e-02 /) - kao(:, 5, 7,16) = (/ & - &2.0373e-02 ,1.7827e-02 ,1.5278e-02 ,1.2733e-02 ,3.0987e-02 ,3.8017e-02 , & - &4.4987e-02 ,5.1736e-02 ,5.9242e-02 /) - kao(:, 1, 8,16) = (/ & - &1.5400e-01 ,1.3474e-01 ,1.1553e-01 ,9.6239e-02 ,7.7005e-02 ,5.7761e-02 , & - &3.8504e-02 ,1.9252e-02 ,6.9298e-03 /) - kao(:, 2, 8,16) = (/ & - &1.5231e-01 ,1.3330e-01 ,1.1425e-01 ,9.5219e-02 ,7.6158e-02 ,5.7117e-02 , & - &3.8082e-02 ,1.9041e-02 ,1.3109e-02 /) - kao(:, 3, 8,16) = (/ & - &1.4996e-01 ,1.3122e-01 ,1.1247e-01 ,9.3714e-02 ,7.4984e-02 ,5.6235e-02 , & - &3.7492e-02 ,2.0794e-02 ,2.1673e-02 /) - kao(:, 4, 8,16) = (/ & - &1.4710e-01 ,1.2871e-01 ,1.1034e-01 ,9.1947e-02 ,7.3562e-02 ,5.5161e-02 , & - &3.6783e-02 ,3.3457e-02 ,3.2749e-02 /) - kao(:, 5, 8,16) = (/ & - &1.4389e-01 ,1.2590e-01 ,1.0792e-01 ,8.9927e-02 ,7.1955e-02 ,5.3965e-02 , & - &4.4963e-02 ,5.0849e-02 ,4.4095e-02 /) - kao(:, 1, 9,16) = (/ & - &1.0859e+00 ,9.5014e-01 ,8.1454e-01 ,6.7879e-01 ,5.4303e-01 ,4.0724e-01 , & - &2.7149e-01 ,1.3574e-01 ,5.1220e-06 /) - kao(:, 2, 9,16) = (/ & - &1.0768e+00 ,9.4216e-01 ,8.0759e-01 ,6.7299e-01 ,5.3840e-01 ,4.0381e-01 , & - &2.6917e-01 ,1.3460e-01 ,1.2021e-05 /) - kao(:, 3, 9,16) = (/ & - &1.0636e+00 ,9.3068e-01 ,7.9788e-01 ,6.6477e-01 ,5.3197e-01 ,3.9888e-01 , & - &2.6599e-01 ,1.3299e-01 ,2.0747e-05 /) - kao(:, 4, 9,16) = (/ & - &1.0462e+00 ,9.1536e-01 ,7.8477e-01 ,6.5394e-01 ,5.2317e-01 ,3.9241e-01 , & - &2.6164e-01 ,1.3081e-01 ,2.6757e-05 /) - kao(:, 5, 9,16) = (/ & - &1.0256e+00 ,8.9712e-01 ,7.6891e-01 ,6.4089e-01 ,5.1277e-01 ,3.8454e-01 , & - &2.5635e-01 ,1.2820e-01 ,3.3237e-05 /) - kao(:, 1,10,16) = (/ & - &9.2943e+00 ,8.1330e+00 ,6.9713e+00 ,5.8089e+00 ,4.6478e+00 ,3.4621e+00 , & - &2.3237e+00 ,1.1620e+00 ,2.5199e-06 /) - kao(:, 2,10,16) = (/ & - &9.1327e+00 ,7.9905e+00 ,6.8491e+00 ,5.7077e+00 ,4.5656e+00 ,3.4245e+00 , & - &2.2832e+00 ,1.1416e+00 ,6.1820e-06 /) - kao(:, 3,10,16) = (/ & - &9.0419e+00 ,7.9114e+00 ,6.7812e+00 ,5.6501e+00 ,4.5208e+00 ,3.3897e+00 , & - &2.2603e+00 ,1.1303e+00 ,1.2253e-05 /) - kao(:, 4,10,16) = (/ & - &8.9128e+00 ,7.7986e+00 ,6.6845e+00 ,5.5708e+00 ,4.4561e+00 ,3.3428e+00 , & - &2.2285e+00 ,1.1142e+00 ,1.7974e-05 /) - kao(:, 5,10,16) = (/ & - &8.7796e+00 ,7.6831e+00 ,6.5851e+00 ,5.4876e+00 ,4.3892e+00 ,3.2921e+00 , & - &2.1948e+00 ,1.0975e+00 ,2.4232e-05 /) - kao(:, 1,11,16) = (/ & - &2.7588e+01 ,2.4141e+01 ,2.0693e+01 ,1.7244e+01 ,1.3795e+01 ,1.0345e+01 , & - &6.8978e+00 ,3.4484e+00 ,2.0595e-06 /) - kao(:, 2,11,16) = (/ & - &2.6657e+01 ,2.3323e+01 ,1.9991e+01 ,1.6660e+01 ,1.3327e+01 ,9.9952e+00 , & - &6.6638e+00 ,3.3322e+00 ,4.7312e-06 /) - kao(:, 3,11,16) = (/ & - &2.5989e+01 ,2.2740e+01 ,1.9493e+01 ,1.6242e+01 ,1.2994e+01 ,9.7462e+00 , & - &6.4977e+00 ,3.2488e+00 ,8.7718e-06 /) - kao(:, 4,11,16) = (/ & - &2.5704e+01 ,2.2492e+01 ,1.9279e+01 ,1.6066e+01 ,1.2854e+01 ,9.6403e+00 , & - &6.4266e+00 ,3.2130e+00 ,1.4050e-05 /) - kao(:, 5,11,16) = (/ & - &2.5636e+01 ,2.2431e+01 ,1.9229e+01 ,1.6023e+01 ,1.2819e+01 ,9.6138e+00 , & - &6.4100e+00 ,3.2046e+00 ,1.9441e-05 /) - kao(:, 1,12,16) = (/ & - &5.2064e+01 ,4.5551e+01 ,3.9046e+01 ,3.2542e+01 ,2.6032e+01 ,1.9524e+01 , & - &1.3016e+01 ,6.5078e+00 ,1.7091e-06 /) - kao(:, 2,12,16) = (/ & - &5.0183e+01 ,4.3912e+01 ,3.7638e+01 ,3.1363e+01 ,2.5091e+01 ,1.8819e+01 , & - &1.2545e+01 ,6.2729e+00 ,3.7298e-06 /) - kao(:, 3,12,16) = (/ & - &4.8961e+01 ,4.2840e+01 ,3.6719e+01 ,3.0598e+01 ,2.4478e+01 ,1.8358e+01 , & - &1.2239e+01 ,6.1197e+00 ,6.4267e-06 /) - kao(:, 4,12,16) = (/ & - &4.8192e+01 ,4.2165e+01 ,3.6143e+01 ,3.0118e+01 ,2.4096e+01 ,1.8071e+01 , & - &1.2047e+01 ,6.0236e+00 ,1.0438e-05 /) - kao(:, 5,12,16) = (/ & - &4.7950e+01 ,4.1951e+01 ,3.5955e+01 ,2.9964e+01 ,2.3968e+01 ,1.7977e+01 , & - &1.1985e+01 ,5.9924e+00 ,1.5532e-05 /) - kao(:, 1,13,16) = (/ & - &7.9237e+01 ,6.9320e+01 ,5.9418e+01 ,4.9515e+01 ,3.9615e+01 ,2.9712e+01 , & - &1.9806e+01 ,9.9046e+00 ,1.3997e-06 /) - kao(:, 2,13,16) = (/ & - &7.6481e+01 ,6.6913e+01 ,5.7358e+01 ,4.7795e+01 ,3.8238e+01 ,2.8679e+01 , & - &1.9119e+01 ,9.5593e+00 ,2.8864e-06 /) - kao(:, 3,13,16) = (/ & - &7.4663e+01 ,6.5336e+01 ,5.5998e+01 ,4.6664e+01 ,3.7331e+01 ,2.7999e+01 , & - &1.8666e+01 ,9.3324e+00 ,4.8512e-06 /) - kao(:, 4,13,16) = (/ & - &7.3334e+01 ,6.4170e+01 ,5.5002e+01 ,4.5830e+01 ,3.6668e+01 ,2.7499e+01 , & - &1.8332e+01 ,9.1667e+00 ,7.8505e-06 /) - kao(:, 5,13,16) = (/ & - &7.2543e+01 ,6.3471e+01 ,5.4398e+01 ,4.5335e+01 ,3.6267e+01 ,2.7201e+01 , & - &1.8133e+01 ,9.0671e+00 ,1.1235e-05 /) - -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kbo(:,13, 1) = (/ & - &6.2747e-02 ,8.6102e-02 ,1.1568e-01 ,1.5208e-01 ,1.9535e-01 /) - kbo(:,14, 1) = (/ & - &5.7861e-02 ,7.9151e-02 ,1.0594e-01 ,1.3846e-01 ,1.7643e-01 /) - kbo(:,15, 1) = (/ & - &5.3092e-02 ,7.2482e-02 ,9.6781e-02 ,1.2588e-01 ,1.5918e-01 /) - kbo(:,16, 1) = (/ & - &4.8457e-02 ,6.6047e-02 ,8.7760e-02 ,1.1351e-01 ,1.4288e-01 /) - kbo(:,17, 1) = (/ & - &4.3912e-02 ,5.9676e-02 ,7.8923e-02 ,1.0151e-01 ,1.2709e-01 /) - kbo(:,18, 1) = (/ & - &3.9426e-02 ,5.3365e-02 ,7.0341e-02 ,8.9953e-02 ,1.1230e-01 /) - kbo(:,19, 1) = (/ & - &3.5046e-02 ,4.7312e-02 ,6.2046e-02 ,7.9063e-02 ,9.8334e-02 /) - kbo(:,20, 1) = (/ & - &3.1115e-02 ,4.1839e-02 ,5.4636e-02 ,6.9407e-02 ,8.5975e-02 /) - kbo(:,21, 1) = (/ & - &2.7465e-02 ,3.6785e-02 ,4.7830e-02 ,6.0600e-02 ,7.4770e-02 /) - kbo(:,22, 1) = (/ & - &2.4593e-02 ,3.2747e-02 ,4.2384e-02 ,5.3412e-02 ,6.5545e-02 /) - kbo(:,23, 1) = (/ & - &2.1937e-02 ,2.9046e-02 ,3.7411e-02 ,4.6873e-02 ,5.7167e-02 /) - kbo(:,24, 1) = (/ & - &1.9516e-02 ,2.5711e-02 ,3.2910e-02 ,4.0910e-02 ,4.9576e-02 /) - kbo(:,25, 1) = (/ & - &1.7347e-02 ,2.2706e-02 ,2.8823e-02 ,3.5568e-02 ,4.2803e-02 /) - kbo(:,26, 1) = (/ & - &1.5431e-02 ,2.0022e-02 ,2.5209e-02 ,3.0861e-02 ,3.6863e-02 /) - kbo(:,27, 1) = (/ & - &1.3676e-02 ,1.7588e-02 ,2.1954e-02 ,2.6656e-02 ,3.1628e-02 /) - kbo(:,28, 1) = (/ & - &1.2072e-02 ,1.5389e-02 ,1.9040e-02 ,2.2944e-02 ,2.7092e-02 /) - kbo(:,29, 1) = (/ & - &1.0638e-02 ,1.3440e-02 ,1.6483e-02 ,1.9764e-02 ,2.3215e-02 /) - kbo(:,30, 1) = (/ & - &9.3452e-03 ,1.1695e-02 ,1.4256e-02 ,1.7011e-02 ,1.9889e-02 /) - kbo(:,31, 1) = (/ & - &8.1958e-03 ,1.0179e-02 ,1.2343e-02 ,1.4653e-02 ,1.7063e-02 /) - kbo(:,32, 1) = (/ & - &7.1787e-03 ,8.8627e-03 ,1.0685e-02 ,1.2626e-02 ,1.4630e-02 /) - kbo(:,33, 1) = (/ & - &6.2851e-03 ,7.7078e-03 ,9.2476e-03 ,1.0876e-02 ,1.2551e-02 /) - kbo(:,34, 1) = (/ & - &5.4503e-03 ,6.6513e-03 ,7.9437e-03 ,9.3044e-03 ,1.0718e-02 /) - kbo(:,35, 1) = (/ & - &4.6286e-03 ,5.6362e-03 ,6.7164e-03 ,7.8605e-03 ,9.0307e-03 /) - kbo(:,36, 1) = (/ & - &3.8439e-03 ,4.6777e-03 ,5.5784e-03 ,6.5325e-03 ,7.4907e-03 /) - kbo(:,37, 1) = (/ & - &3.0907e-03 ,3.7733e-03 ,4.5151e-03 ,5.2952e-03 ,6.0875e-03 /) - kbo(:,38, 1) = (/ & - &2.4803e-03 ,3.0385e-03 ,3.6485e-03 ,4.2895e-03 ,4.9493e-03 /) - kbo(:,39, 1) = (/ & - &1.9914e-03 ,2.4489e-03 ,2.9506e-03 ,3.4809e-03 ,4.0250e-03 /) - kbo(:,40, 1) = (/ & - &1.5591e-03 ,1.9289e-03 ,2.3368e-03 ,2.7699e-03 ,3.2181e-03 /) - kbo(:,41, 1) = (/ & - &1.2156e-03 ,1.5132e-03 ,1.8431e-03 ,2.1975e-03 ,2.5662e-03 /) - kbo(:,42, 1) = (/ & - &9.4642e-04 ,1.1860e-03 ,1.4531e-03 ,1.7422e-03 ,2.0436e-03 /) - kbo(:,43, 1) = (/ & - &7.2576e-04 ,9.1670e-04 ,1.1319e-03 ,1.3659e-03 ,1.6136e-03 /) - kbo(:,44, 1) = (/ & - &5.5191e-04 ,7.0339e-04 ,8.7651e-04 ,1.0654e-03 ,1.2677e-03 /) - kbo(:,45, 1) = (/ & - &4.1864e-04 ,5.3928e-04 ,6.7793e-04 ,8.3043e-04 ,9.9568e-04 /) - kbo(:,46, 1) = (/ & - &3.1490e-04 ,4.0992e-04 ,5.2032e-04 ,6.4322e-04 ,7.7812e-04 /) - kbo(:,47, 1) = (/ & - &2.3273e-04 ,3.0659e-04 ,3.9375e-04 ,4.9208e-04 ,6.0088e-04 /) - kbo(:,48, 1) = (/ & - &1.7128e-04 ,2.2854e-04 ,2.9725e-04 ,3.7557e-04 ,4.6327e-04 /) - kbo(:,49, 1) = (/ & - &1.2553e-04 ,1.6987e-04 ,2.2375e-04 ,2.8623e-04 ,3.5677e-04 /) - kbo(:,50, 1) = (/ & - &9.2117e-05 ,1.2634e-04 ,1.6842e-04 ,2.1802e-04 ,2.7404e-04 /) - kbo(:,51, 1) = (/ & - &6.7482e-05 ,9.3783e-05 ,1.2646e-04 ,1.6541e-04 ,2.1004e-04 /) - kbo(:,52, 1) = (/ & - &4.9294e-05 ,6.9377e-05 ,9.4622e-05 ,1.2516e-04 ,1.6083e-04 /) - kbo(:,53, 1) = (/ & - &3.5898e-05 ,5.1131e-05 ,7.0555e-05 ,9.4518e-05 ,1.2315e-04 /) - kbo(:,54, 1) = (/ & - &2.6237e-05 ,3.7710e-05 ,5.2593e-05 ,7.1209e-05 ,9.3663e-05 /) - kbo(:,55, 1) = (/ & - &1.9162e-05 ,2.7753e-05 ,3.9112e-05 ,5.3467e-05 ,7.0840e-05 /) - kbo(:,56, 1) = (/ & - &1.3954e-05 ,2.0386e-05 ,2.8986e-05 ,3.9982e-05 ,5.3468e-05 /) - kbo(:,57, 1) = (/ & - &1.0137e-05 ,1.4950e-05 ,2.1433e-05 ,2.9844e-05 ,4.0285e-05 /) - kbo(:,58, 1) = (/ & - &7.3955e-06 ,1.0988e-05 ,1.5849e-05 ,2.2304e-05 ,3.0355e-05 /) - kbo(:,59, 1) = (/ & - &5.7756e-06 ,8.5841e-06 ,1.2417e-05 ,1.7454e-05 ,2.3825e-05 /) - kbo(:,13, 2) = (/ & - &2.8941e-01 ,3.7928e-01 ,4.8728e-01 ,6.1356e-01 ,7.5720e-01 /) - kbo(:,14, 2) = (/ & - &2.7482e-01 ,3.5907e-01 ,4.5923e-01 ,5.7444e-01 ,7.0479e-01 /) - kbo(:,15, 2) = (/ & - &2.6012e-01 ,3.3844e-01 ,4.3050e-01 ,5.3565e-01 ,6.5360e-01 /) - kbo(:,16, 2) = (/ & - &2.4469e-01 ,3.1749e-01 ,4.0174e-01 ,4.9749e-01 ,6.0352e-01 /) - kbo(:,17, 2) = (/ & - &2.2805e-01 ,2.9482e-01 ,3.7163e-01 ,4.5800e-01 ,5.5300e-01 /) - kbo(:,18, 2) = (/ & - &2.1066e-01 ,2.7121e-01 ,3.4050e-01 ,4.1816e-01 ,5.0173e-01 /) - kbo(:,19, 2) = (/ & - &1.9258e-01 ,2.4696e-01 ,3.0899e-01 ,3.7763e-01 ,4.5019e-01 /) - kbo(:,20, 2) = (/ & - &1.7535e-01 ,2.2386e-01 ,2.7870e-01 ,3.3833e-01 ,4.0121e-01 /) - kbo(:,21, 2) = (/ & - &1.5823e-01 ,2.0117e-01 ,2.4903e-01 ,3.0059e-01 ,3.5459e-01 /) - kbo(:,22, 2) = (/ & - &1.4393e-01 ,1.8176e-01 ,2.2349e-01 ,2.6801e-01 ,3.1434e-01 /) - kbo(:,23, 2) = (/ & - &1.2993e-01 ,1.6307e-01 ,1.9923e-01 ,2.3752e-01 ,2.7733e-01 /) - kbo(:,24, 2) = (/ & - &1.1668e-01 ,1.4559e-01 ,1.7680e-01 ,2.0966e-01 ,2.4384e-01 /) - kbo(:,25, 2) = (/ & - &1.0441e-01 ,1.2946e-01 ,1.5637e-01 ,1.8462e-01 ,2.1368e-01 /) - kbo(:,26, 2) = (/ & - &9.3354e-02 ,1.1505e-01 ,1.3816e-01 ,1.6244e-01 ,1.8706e-01 /) - kbo(:,27, 2) = (/ & - &8.3171e-02 ,1.0190e-01 ,1.2182e-01 ,1.4246e-01 ,1.6301e-01 /) - kbo(:,28, 2) = (/ & - &7.3897e-02 ,9.0049e-02 ,1.0712e-01 ,1.2442e-01 ,1.4130e-01 /) - kbo(:,29, 2) = (/ & - &6.5628e-02 ,7.9501e-02 ,9.3908e-02 ,1.0826e-01 ,1.2190e-01 /) - kbo(:,30, 2) = (/ & - &5.8144e-02 ,6.9960e-02 ,8.1950e-02 ,9.3660e-02 ,1.0454e-01 /) - kbo(:,31, 2) = (/ & - &5.1413e-02 ,6.1336e-02 ,7.1221e-02 ,8.0615e-02 ,8.9347e-02 /) - kbo(:,32, 2) = (/ & - &4.5308e-02 ,5.3538e-02 ,6.1586e-02 ,6.9140e-02 ,7.6180e-02 /) - kbo(:,33, 2) = (/ & - &3.9776e-02 ,4.6552e-02 ,5.3085e-02 ,5.9155e-02 ,6.4885e-02 /) - kbo(:,34, 2) = (/ & - &3.4566e-02 ,4.0142e-02 ,4.5387e-02 ,5.0362e-02 ,5.5085e-02 /) - kbo(:,35, 2) = (/ & - &2.9501e-02 ,3.4063e-02 ,3.8371e-02 ,4.2482e-02 ,4.6355e-02 /) - kbo(:,36, 2) = (/ & - &2.4731e-02 ,2.8480e-02 ,3.2042e-02 ,3.5445e-02 ,3.8685e-02 /) - kbo(:,37, 2) = (/ & - &2.0227e-02 ,2.3337e-02 ,2.6311e-02 ,2.9150e-02 ,3.1875e-02 /) - kbo(:,38, 2) = (/ & - &1.6522e-02 ,1.9118e-02 ,2.1594e-02 ,2.3970e-02 ,2.6280e-02 /) - kbo(:,39, 2) = (/ & - &1.3506e-02 ,1.5663e-02 ,1.7734e-02 ,1.9723e-02 ,2.1666e-02 /) - kbo(:,40, 2) = (/ & - &1.0839e-02 ,1.2642e-02 ,1.4374e-02 ,1.6039e-02 ,1.7665e-02 /) - kbo(:,41, 2) = (/ & - &8.6687e-03 ,1.0169e-02 ,1.1614e-02 ,1.3014e-02 ,1.4376e-02 /) - kbo(:,42, 2) = (/ & - &6.9249e-03 ,8.1709e-03 ,9.3824e-03 ,1.0556e-02 ,1.1694e-02 /) - kbo(:,43, 2) = (/ & - &5.4677e-03 ,6.5006e-03 ,7.5154e-03 ,8.4985e-03 ,9.4530e-03 /) - kbo(:,44, 2) = (/ & - &4.2855e-03 ,5.1437e-03 ,5.9926e-03 ,6.8145e-03 ,7.6201e-03 /) - kbo(:,45, 2) = (/ & - &3.3515e-03 ,4.0607e-03 ,4.7699e-03 ,5.4599e-03 ,6.1332e-03 /) - kbo(:,46, 2) = (/ & - &2.6019e-03 ,3.1870e-03 ,3.7777e-03 ,4.3556e-03 ,4.9205e-03 /) - kbo(:,47, 2) = (/ & - &1.9902e-03 ,2.4722e-03 ,2.9627e-03 ,3.4486e-03 ,3.9210e-03 /) - kbo(:,48, 2) = (/ & - &1.5153e-03 ,1.9102e-03 ,2.3171e-03 ,2.7244e-03 ,3.1206e-03 /) - kbo(:,49, 2) = (/ & - &1.1469e-03 ,1.4720e-03 ,1.8085e-03 ,2.1494e-03 ,2.4830e-03 /) - kbo(:,50, 2) = (/ & - &8.6648e-04 ,1.1333e-03 ,1.4108e-03 ,1.6953e-03 ,1.9769e-03 /) - kbo(:,51, 2) = (/ & - &6.5125e-04 ,8.6980e-04 ,1.0984e-03 ,1.3342e-03 ,1.5715e-03 /) - kbo(:,52, 2) = (/ & - &4.8660e-04 ,6.6498e-04 ,8.5250e-04 ,1.0475e-03 ,1.2461e-03 /) - kbo(:,53, 2) = (/ & - &3.6091e-04 ,5.0560e-04 ,6.5947e-04 ,8.2040e-04 ,9.8603e-04 /) - kbo(:,54, 2) = (/ & - &2.6798e-04 ,3.8317e-04 ,5.0899e-04 ,6.4130e-04 ,7.7856e-04 /) - kbo(:,55, 2) = (/ & - &1.9837e-04 ,2.8906e-04 ,3.9148e-04 ,4.9955e-04 ,6.1247e-04 /) - kbo(:,56, 2) = (/ & - &1.4613e-04 ,2.1685e-04 ,3.0004e-04 ,3.8773e-04 ,4.8096e-04 /) - kbo(:,57, 2) = (/ & - &1.0691e-04 ,1.6173e-04 ,2.2873e-04 ,3.0001e-04 ,3.7637e-04 /) - kbo(:,58, 2) = (/ & - &7.8236e-05 ,1.2069e-04 ,1.7421e-04 ,2.3200e-04 ,2.9412e-04 /) - kbo(:,59, 2) = (/ & - &6.1826e-05 ,9.5990e-05 ,1.3927e-04 ,1.8625e-04 ,2.3654e-04 /) - kbo(:,13, 3) = (/ & - &1.1135e+00 ,1.3641e+00 ,1.6160e+00 ,1.8652e+00 ,2.1134e+00 /) - kbo(:,14, 3) = (/ & - &1.0304e+00 ,1.2521e+00 ,1.4746e+00 ,1.6946e+00 ,1.9141e+00 /) - kbo(:,15, 3) = (/ & - &9.5384e-01 ,1.1492e+00 ,1.3443e+00 ,1.5379e+00 ,1.7345e+00 /) - kbo(:,16, 3) = (/ & - &8.8007e-01 ,1.0512e+00 ,1.2220e+00 ,1.3952e+00 ,1.5691e+00 /) - kbo(:,17, 3) = (/ & - &8.0715e-01 ,9.5537e-01 ,1.1063e+00 ,1.2596e+00 ,1.4122e+00 /) - kbo(:,18, 3) = (/ & - &7.3500e-01 ,8.6436e-01 ,9.9708e-01 ,1.1308e+00 ,1.2638e+00 /) - kbo(:,19, 3) = (/ & - &6.6442e-01 ,7.7800e-01 ,8.9341e-01 ,1.0094e+00 ,1.1240e+00 /) - kbo(:,20, 3) = (/ & - &5.9870e-01 ,6.9782e-01 ,7.9815e-01 ,8.9858e-01 ,9.9720e-01 /) - kbo(:,21, 3) = (/ & - &5.3577e-01 ,6.2165e-01 ,7.0893e-01 ,7.9562e-01 ,8.8013e-01 /) - kbo(:,22, 3) = (/ & - &4.8056e-01 ,5.5531e-01 ,6.3060e-01 ,7.0436e-01 ,7.7687e-01 /) - kbo(:,23, 3) = (/ & - &4.2855e-01 ,4.9296e-01 ,5.5690e-01 ,6.1984e-01 ,6.8212e-01 /) - kbo(:,24, 3) = (/ & - &3.8024e-01 ,4.3497e-01 ,4.8911e-01 ,5.4325e-01 ,5.9676e-01 /) - kbo(:,25, 3) = (/ & - &3.3570e-01 ,3.8197e-01 ,4.2813e-01 ,4.7450e-01 ,5.2085e-01 /) - kbo(:,26, 3) = (/ & - &2.9535e-01 ,3.3462e-01 ,3.7428e-01 ,4.1425e-01 ,4.5431e-01 /) - kbo(:,27, 3) = (/ & - &2.5873e-01 ,2.9239e-01 ,3.2655e-01 ,3.6110e-01 ,3.9601e-01 /) - kbo(:,28, 3) = (/ & - &2.2605e-01 ,2.5498e-01 ,2.8445e-01 ,3.1460e-01 ,3.4506e-01 /) - kbo(:,29, 3) = (/ & - &1.9728e-01 ,2.2221e-01 ,2.4794e-01 ,2.7429e-01 ,3.0081e-01 /) - kbo(:,30, 3) = (/ & - &1.7195e-01 ,1.9369e-01 ,2.1631e-01 ,2.3929e-01 ,2.6198e-01 /) - kbo(:,31, 3) = (/ & - &1.5004e-01 ,1.6915e-01 ,1.8896e-01 ,2.0886e-01 ,2.2799e-01 /) - kbo(:,32, 3) = (/ & - &1.3116e-01 ,1.4802e-01 ,1.6521e-01 ,1.8200e-01 ,1.9806e-01 /) - kbo(:,33, 3) = (/ & - &1.1493e-01 ,1.2958e-01 ,1.4418e-01 ,1.5826e-01 ,1.7170e-01 /) - kbo(:,34, 3) = (/ & - &1.0026e-01 ,1.1281e-01 ,1.2510e-01 ,1.3692e-01 ,1.4804e-01 /) - kbo(:,35, 3) = (/ & - &8.6407e-02 ,9.7015e-02 ,1.0743e-01 ,1.1729e-01 ,1.2663e-01 /) - kbo(:,36, 3) = (/ & - &7.3396e-02 ,8.2443e-02 ,9.1165e-02 ,9.9519e-02 ,1.0753e-01 /) - kbo(:,37, 3) = (/ & - &6.1173e-02 ,6.8860e-02 ,7.6255e-02 ,8.3361e-02 ,9.0284e-02 /) - kbo(:,38, 3) = (/ & - &5.0910e-02 ,5.7435e-02 ,6.3715e-02 ,6.9817e-02 ,7.5733e-02 /) - kbo(:,39, 3) = (/ & - &4.2376e-02 ,4.7913e-02 ,5.3247e-02 ,5.8502e-02 ,6.3619e-02 /) - kbo(:,40, 3) = (/ & - &3.4748e-02 ,3.9459e-02 ,4.3993e-02 ,4.8510e-02 ,5.2956e-02 /) - kbo(:,41, 3) = (/ & - &2.8418e-02 ,3.2417e-02 ,3.6282e-02 ,4.0161e-02 ,4.3993e-02 /) - kbo(:,42, 3) = (/ & - &2.3210e-02 ,2.6614e-02 ,2.9916e-02 ,3.3242e-02 ,3.6540e-02 /) - kbo(:,43, 3) = (/ & - &1.8779e-02 ,2.1673e-02 ,2.4493e-02 ,2.7336e-02 ,3.0182e-02 /) - kbo(:,44, 3) = (/ & - &1.5102e-02 ,1.7567e-02 ,1.9972e-02 ,2.2410e-02 ,2.4858e-02 /) - kbo(:,45, 3) = (/ & - &1.2119e-02 ,1.4212e-02 ,1.6271e-02 ,1.8344e-02 ,2.0451e-02 /) - kbo(:,46, 3) = (/ & - &9.6639e-03 ,1.1430e-02 ,1.3190e-02 ,1.4958e-02 ,1.6759e-02 /) - kbo(:,47, 3) = (/ & - &7.6185e-03 ,9.1001e-03 ,1.0599e-02 ,1.2098e-02 ,1.3639e-02 /) - kbo(:,48, 3) = (/ & - &5.9842e-03 ,7.2206e-03 ,8.5005e-03 ,9.7716e-03 ,1.1086e-02 /) - kbo(:,49, 3) = (/ & - &4.6860e-03 ,5.7121e-03 ,6.7999e-03 ,7.8773e-03 ,8.9943e-03 /) - kbo(:,50, 3) = (/ & - &3.6738e-03 ,4.5201e-03 ,5.4386e-03 ,6.3525e-03 ,7.2951e-03 /) - kbo(:,51, 3) = (/ & - &2.8749e-03 ,3.5695e-03 ,4.3389e-03 ,5.1158e-03 ,5.9116e-03 /) - kbo(:,52, 3) = (/ & - &2.2412e-03 ,2.8111e-03 ,3.4548e-03 ,4.1149e-03 ,4.7853e-03 /) - kbo(:,53, 3) = (/ & - &1.7396e-03 ,2.2062e-03 ,2.7406e-03 ,3.3024e-03 ,3.8694e-03 /) - kbo(:,54, 3) = (/ & - &1.3505e-03 ,1.7325e-03 ,2.1715e-03 ,2.6457e-03 ,3.1233e-03 /) - kbo(:,55, 3) = (/ & - &1.0458e-03 ,1.3574e-03 ,1.7165e-03 ,2.1138e-03 ,2.5149e-03 /) - kbo(:,56, 3) = (/ & - &8.0583e-04 ,1.0599e-03 ,1.3530e-03 ,1.6840e-03 ,2.0192e-03 /) - kbo(:,57, 3) = (/ & - &6.1766e-04 ,8.2479e-04 ,1.0628e-03 ,1.3371e-03 ,1.6185e-03 /) - kbo(:,58, 3) = (/ & - &4.7327e-04 ,6.4160e-04 ,8.3562e-04 ,1.0608e-03 ,1.2972e-03 /) - kbo(:,59, 3) = (/ & - &3.8292e-04 ,5.2222e-04 ,6.8284e-04 ,8.6897e-04 ,1.0664e-03 /) - kbo(:,13, 4) = (/ & - &3.3749e+00 ,3.6005e+00 ,3.8557e+00 ,4.1032e+00 ,4.3385e+00 /) - kbo(:,14, 4) = (/ & - &2.9858e+00 ,3.1916e+00 ,3.4148e+00 ,3.6458e+00 ,3.8704e+00 /) - kbo(:,15, 4) = (/ & - &2.6360e+00 ,2.8231e+00 ,3.0273e+00 ,3.2443e+00 ,3.4520e+00 /) - kbo(:,16, 4) = (/ & - &2.3243e+00 ,2.4974e+00 ,2.6921e+00 ,2.8866e+00 ,3.0804e+00 /) - kbo(:,17, 4) = (/ & - &2.0501e+00 ,2.2124e+00 ,2.3895e+00 ,2.5647e+00 ,2.7458e+00 /) - kbo(:,18, 4) = (/ & - &1.8079e+00 ,1.9578e+00 ,2.1149e+00 ,2.2757e+00 ,2.4444e+00 /) - kbo(:,19, 4) = (/ & - &1.5916e+00 ,1.7262e+00 ,1.8683e+00 ,2.0160e+00 ,2.1705e+00 /) - kbo(:,20, 4) = (/ & - &1.3988e+00 ,1.5220e+00 ,1.6508e+00 ,1.7854e+00 ,1.9234e+00 /) - kbo(:,21, 4) = (/ & - &1.2283e+00 ,1.3399e+00 ,1.4559e+00 ,1.5766e+00 ,1.6985e+00 /) - kbo(:,22, 4) = (/ & - &1.0842e+00 ,1.1844e+00 ,1.2884e+00 ,1.3958e+00 ,1.5035e+00 /) - kbo(:,23, 4) = (/ & - &9.5535e-01 ,1.0448e+00 ,1.1388e+00 ,1.2338e+00 ,1.3273e+00 /) - kbo(:,24, 4) = (/ & - &8.3937e-01 ,9.2038e-01 ,1.0041e+00 ,1.0871e+00 ,1.1675e+00 /) - kbo(:,25, 4) = (/ & - &7.3697e-01 ,8.0962e-01 ,8.8296e-01 ,9.5450e-01 ,1.0251e+00 /) - kbo(:,26, 4) = (/ & - &6.4730e-01 ,7.1109e-01 ,7.7450e-01 ,8.3674e-01 ,9.0032e-01 /) - kbo(:,27, 4) = (/ & - &5.6756e-01 ,6.2293e-01 ,6.7780e-01 ,7.3355e-01 ,7.9083e-01 /) - kbo(:,28, 4) = (/ & - &4.9666e-01 ,5.4463e-01 ,5.9308e-01 ,6.4333e-01 ,6.9525e-01 /) - kbo(:,29, 4) = (/ & - &4.3427e-01 ,4.7629e-01 ,5.1987e-01 ,5.6530e-01 ,6.1288e-01 /) - kbo(:,30, 4) = (/ & - &3.7957e-01 ,4.1709e-01 ,4.5651e-01 ,4.9797e-01 ,5.4181e-01 /) - kbo(:,31, 4) = (/ & - &3.3226e-01 ,3.6617e-01 ,4.0201e-01 ,4.4025e-01 ,4.8083e-01 /) - kbo(:,32, 4) = (/ & - &2.9152e-01 ,3.2232e-01 ,3.5534e-01 ,3.9102e-01 ,4.2785e-01 /) - kbo(:,33, 4) = (/ & - &2.5658e-01 ,2.8478e-01 ,3.1566e-01 ,3.4846e-01 ,3.8205e-01 /) - kbo(:,34, 4) = (/ & - &2.2568e-01 ,2.5200e-01 ,2.8059e-01 ,3.1045e-01 ,3.4133e-01 /) - kbo(:,35, 4) = (/ & - &1.9721e-01 ,2.2158e-01 ,2.4755e-01 ,2.7492e-01 ,3.0313e-01 /) - kbo(:,36, 4) = (/ & - &1.7069e-01 ,1.9278e-01 ,2.1640e-01 ,2.4134e-01 ,2.6698e-01 /) - kbo(:,37, 4) = (/ & - &1.4514e-01 ,1.6486e-01 ,1.8617e-01 ,2.0876e-01 ,2.3216e-01 /) - kbo(:,38, 4) = (/ & - &1.2328e-01 ,1.4085e-01 ,1.6011e-01 ,1.8057e-01 ,2.0182e-01 /) - kbo(:,39, 4) = (/ & - &1.0472e-01 ,1.2042e-01 ,1.3775e-01 ,1.5631e-01 ,1.7570e-01 /) - kbo(:,40, 4) = (/ & - &8.7593e-02 ,1.0140e-01 ,1.1682e-01 ,1.3356e-01 ,1.5106e-01 /) - kbo(:,41, 4) = (/ & - &7.2991e-02 ,8.5111e-02 ,9.8743e-02 ,1.1375e-01 ,1.2963e-01 /) - kbo(:,42, 4) = (/ & - &6.0719e-02 ,7.1311e-02 ,8.3382e-02 ,9.6810e-02 ,1.1115e-01 /) - kbo(:,43, 4) = (/ & - &4.9944e-02 ,5.9103e-02 ,6.9670e-02 ,8.1603e-02 ,9.4469e-02 /) - kbo(:,44, 4) = (/ & - &4.0785e-02 ,4.8637e-02 ,5.7853e-02 ,6.8379e-02 ,7.9912e-02 /) - kbo(:,45, 4) = (/ & - &3.3215e-02 ,3.9939e-02 ,4.7926e-02 ,5.7208e-02 ,6.7537e-02 /) - kbo(:,46, 4) = (/ & - &2.6843e-02 ,3.2560e-02 ,3.9436e-02 ,4.7558e-02 ,5.6745e-02 /) - kbo(:,47, 4) = (/ & - &2.1428e-02 ,2.6226e-02 ,3.2052e-02 ,3.9057e-02 ,4.7184e-02 /) - kbo(:,48, 4) = (/ & - &1.7029e-02 ,2.1031e-02 ,2.5943e-02 ,3.1986e-02 ,3.9099e-02 /) - kbo(:,49, 4) = (/ & - &1.3477e-02 ,1.6802e-02 ,2.0926e-02 ,2.6109e-02 ,3.2294e-02 /) - kbo(:,50, 4) = (/ & - &1.0673e-02 ,1.3423e-02 ,1.6872e-02 ,2.1279e-02 ,2.6629e-02 /) - kbo(:,51, 4) = (/ & - &8.4370e-03 ,1.0700e-02 ,1.3568e-02 ,1.7289e-02 ,2.1889e-02 /) - kbo(:,52, 4) = (/ & - &6.6453e-03 ,8.4949e-03 ,1.0870e-02 ,1.3987e-02 ,1.7931e-02 /) - kbo(:,53, 4) = (/ & - &5.2146e-03 ,6.7176e-03 ,8.6804e-03 ,1.1275e-02 ,1.4637e-02 /) - kbo(:,54, 4) = (/ & - &4.1029e-03 ,5.3246e-03 ,6.9354e-03 ,9.0873e-03 ,1.1925e-02 /) - kbo(:,55, 4) = (/ & - &3.2267e-03 ,4.2135e-03 ,5.5289e-03 ,7.2992e-03 ,9.6811e-03 /) - kbo(:,56, 4) = (/ & - &2.5269e-03 ,3.3219e-03 ,4.3912e-03 ,5.8434e-03 ,7.8299e-03 /) - kbo(:,57, 4) = (/ & - &1.9715e-03 ,2.6095e-03 ,3.4757e-03 ,4.6583e-03 ,6.3020e-03 /) - kbo(:,58, 4) = (/ & - &1.5393e-03 ,2.0522e-03 ,2.7523e-03 ,3.7145e-03 ,5.0709e-03 /) - kbo(:,59, 4) = (/ & - &1.2601e-03 ,1.6926e-03 ,2.2864e-03 ,3.1046e-03 ,4.2734e-03 /) - kbo(:,13, 5) = (/ & - &6.9559e+00 ,7.1944e+00 ,7.3778e+00 ,7.6168e+00 ,7.8840e+00 /) - kbo(:,14, 5) = (/ & - &6.1197e+00 ,6.3419e+00 ,6.5357e+00 ,6.7535e+00 ,7.0053e+00 /) - kbo(:,15, 5) = (/ & - &5.3579e+00 ,5.5744e+00 ,5.7766e+00 ,5.9767e+00 ,6.2167e+00 /) - kbo(:,16, 5) = (/ & - &4.6816e+00 ,4.8936e+00 ,5.0862e+00 ,5.2967e+00 ,5.5327e+00 /) - kbo(:,17, 5) = (/ & - &4.0899e+00 ,4.2917e+00 ,4.4812e+00 ,4.7025e+00 ,4.9201e+00 /) - kbo(:,18, 5) = (/ & - &3.5771e+00 ,3.7678e+00 ,3.9593e+00 ,4.1715e+00 ,4.3722e+00 /) - kbo(:,19, 5) = (/ & - &3.1364e+00 ,3.3176e+00 ,3.5013e+00 ,3.6935e+00 ,3.8830e+00 /) - kbo(:,20, 5) = (/ & - &2.7593e+00 ,2.9230e+00 ,3.0933e+00 ,3.2687e+00 ,3.4499e+00 /) - kbo(:,21, 5) = (/ & - &2.4256e+00 ,2.5724e+00 ,2.7298e+00 ,2.8928e+00 ,3.0638e+00 /) - kbo(:,22, 5) = (/ & - &2.1368e+00 ,2.2729e+00 ,2.4183e+00 ,2.5689e+00 ,2.7252e+00 /) - kbo(:,23, 5) = (/ & - &1.8817e+00 ,2.0092e+00 ,2.1410e+00 ,2.2786e+00 ,2.4217e+00 /) - kbo(:,24, 5) = (/ & - &1.6588e+00 ,1.7749e+00 ,1.8947e+00 ,2.0208e+00 ,2.1527e+00 /) - kbo(:,25, 5) = (/ & - &1.4616e+00 ,1.5668e+00 ,1.6777e+00 ,1.7944e+00 ,1.9128e+00 /) - kbo(:,26, 5) = (/ & - &1.2875e+00 ,1.3850e+00 ,1.4881e+00 ,1.5943e+00 ,1.7005e+00 /) - kbo(:,27, 5) = (/ & - &1.1342e+00 ,1.2250e+00 ,1.3195e+00 ,1.4155e+00 ,1.5121e+00 /) - kbo(:,28, 5) = (/ & - &1.0000e+00 ,1.0834e+00 ,1.1694e+00 ,1.2569e+00 ,1.3467e+00 /) - kbo(:,29, 5) = (/ & - &8.8272e-01 ,9.5878e-01 ,1.0375e+00 ,1.1189e+00 ,1.2039e+00 /) - kbo(:,30, 5) = (/ & - &7.8028e-01 ,8.4986e-01 ,9.2253e-01 ,9.9927e-01 ,1.0809e+00 /) - kbo(:,31, 5) = (/ & - &6.9115e-01 ,7.5536e-01 ,8.2388e-01 ,8.9787e-01 ,9.7590e-01 /) - kbo(:,32, 5) = (/ & - &6.1412e-01 ,6.7446e-01 ,7.4048e-01 ,8.1095e-01 ,8.8670e-01 /) - kbo(:,33, 5) = (/ & - &5.4810e-01 ,6.0636e-01 ,6.6911e-01 ,7.3734e-01 ,8.1091e-01 /) - kbo(:,34, 5) = (/ & - &4.9071e-01 ,5.4601e-01 ,6.0648e-01 ,6.7271e-01 ,7.4441e-01 /) - kbo(:,35, 5) = (/ & - &4.3693e-01 ,4.8943e-01 ,5.4769e-01 ,6.1149e-01 ,6.8198e-01 /) - kbo(:,36, 5) = (/ & - &3.8551e-01 ,4.3547e-01 ,4.9121e-01 ,5.5301e-01 ,6.2109e-01 /) - kbo(:,37, 5) = (/ & - &3.3480e-01 ,3.8150e-01 ,4.3408e-01 ,4.9278e-01 ,5.5808e-01 /) - kbo(:,38, 5) = (/ & - &2.9081e-01 ,3.3450e-01 ,3.8398e-01 ,4.3987e-01 ,5.0248e-01 /) - kbo(:,39, 5) = (/ & - &2.5305e-01 ,2.9380e-01 ,3.4050e-01 ,3.9390e-01 ,4.5364e-01 /) - kbo(:,40, 5) = (/ & - &2.1671e-01 ,2.5418e-01 ,2.9763e-01 ,3.4779e-01 ,4.0458e-01 /) - kbo(:,41, 5) = (/ & - &1.8493e-01 ,2.1926e-01 ,2.5954e-01 ,3.0662e-01 ,3.6037e-01 /) - kbo(:,42, 5) = (/ & - &1.5752e-01 ,1.8888e-01 ,2.2625e-01 ,2.7031e-01 ,3.2124e-01 /) - kbo(:,43, 5) = (/ & - &1.3255e-01 ,1.6078e-01 ,1.9491e-01 ,2.3576e-01 ,2.8350e-01 /) - kbo(:,44, 5) = (/ & - &1.1061e-01 ,1.3578e-01 ,1.6666e-01 ,2.0425e-01 ,2.4865e-01 /) - kbo(:,45, 5) = (/ & - &9.1951e-02 ,1.1424e-01 ,1.4202e-01 ,1.7639e-01 ,2.1757e-01 /) - kbo(:,46, 5) = (/ & - &7.5781e-02 ,9.5221e-02 ,1.1993e-01 ,1.5099e-01 ,1.8901e-01 /) - kbo(:,47, 5) = (/ & - &6.1487e-02 ,7.8164e-02 ,9.9731e-02 ,1.2737e-01 ,1.6179e-01 /) - kbo(:,48, 5) = (/ & - &4.9580e-02 ,6.3770e-02 ,8.2434e-02 ,1.0684e-01 ,1.3786e-01 /) - kbo(:,49, 5) = (/ & - &3.9738e-02 ,5.1709e-02 ,6.7733e-02 ,8.9073e-02 ,1.1686e-01 /) - kbo(:,50, 5) = (/ & - &3.1862e-02 ,4.1943e-02 ,5.5637e-02 ,7.4270e-02 ,9.9031e-02 /) - kbo(:,51, 5) = (/ & - &2.5469e-02 ,3.3911e-02 ,4.5561e-02 ,6.1725e-02 ,8.3692e-02 /) - kbo(:,52, 5) = (/ & - &2.0254e-02 ,2.7266e-02 ,3.7097e-02 ,5.1018e-02 ,7.0332e-02 /) - kbo(:,53, 5) = (/ & - &1.6008e-02 ,2.1779e-02 ,3.0012e-02 ,4.1907e-02 ,5.8779e-02 /) - kbo(:,54, 5) = (/ & - &1.2684e-02 ,1.7422e-02 ,2.4313e-02 ,3.4417e-02 ,4.9062e-02 /) - kbo(:,55, 5) = (/ & - &1.0038e-02 ,1.3916e-02 ,1.9644e-02 ,2.8164e-02 ,4.0795e-02 /) - kbo(:,56, 5) = (/ & - &7.9079e-03 ,1.1053e-02 ,1.5781e-02 ,2.2925e-02 ,3.3750e-02 /) - kbo(:,57, 5) = (/ & - &6.2010e-03 ,8.7295e-03 ,1.2598e-02 ,1.8552e-02 ,2.7742e-02 /) - kbo(:,58, 5) = (/ & - &4.8646e-03 ,6.8966e-03 ,1.0058e-02 ,1.5005e-02 ,2.2774e-02 /) - kbo(:,59, 5) = (/ & - &4.0331e-03 ,5.7872e-03 ,8.5542e-03 ,1.2975e-02 ,2.0014e-02 /) - kbo(:,13, 6) = (/ & - &1.3874e+01 ,1.4054e+01 ,1.4175e+01 ,1.4196e+01 ,1.4254e+01 /) - kbo(:,14, 6) = (/ & - &1.2387e+01 ,1.2564e+01 ,1.2698e+01 ,1.2762e+01 ,1.2781e+01 /) - kbo(:,15, 6) = (/ & - &1.0973e+01 ,1.1145e+01 ,1.1274e+01 ,1.1365e+01 ,1.1424e+01 /) - kbo(:,16, 6) = (/ & - &9.6521e+00 ,9.8053e+00 ,9.9370e+00 ,1.0047e+01 ,1.0150e+01 /) - kbo(:,17, 6) = (/ & - &8.4222e+00 ,8.5719e+00 ,8.7195e+00 ,8.8488e+00 ,9.0159e+00 /) - kbo(:,18, 6) = (/ & - &7.3090e+00 ,7.4668e+00 ,7.6322e+00 ,7.7932e+00 ,8.0086e+00 /) - kbo(:,19, 6) = (/ & - &6.3279e+00 ,6.4985e+00 ,6.6813e+00 ,6.8756e+00 ,7.1176e+00 /) - kbo(:,20, 6) = (/ & - &5.4862e+00 ,5.6719e+00 ,5.8682e+00 ,6.0850e+00 ,6.3337e+00 /) - kbo(:,21, 6) = (/ & - &4.7753e+00 ,4.9682e+00 ,5.1665e+00 ,5.3943e+00 ,5.6406e+00 /) - kbo(:,22, 6) = (/ & - &4.1854e+00 ,4.3703e+00 ,4.5713e+00 ,4.7990e+00 ,5.0439e+00 /) - kbo(:,23, 6) = (/ & - &3.6767e+00 ,3.8508e+00 ,4.0542e+00 ,4.2776e+00 ,4.5191e+00 /) - kbo(:,24, 6) = (/ & - &3.2355e+00 ,3.4077e+00 ,3.6072e+00 ,3.8245e+00 ,4.0534e+00 /) - kbo(:,25, 6) = (/ & - &2.8580e+00 ,3.0303e+00 ,3.2220e+00 ,3.4257e+00 ,3.6444e+00 /) - kbo(:,26, 6) = (/ & - &2.5405e+00 ,2.7078e+00 ,2.8872e+00 ,3.0816e+00 ,3.2880e+00 /) - kbo(:,27, 6) = (/ & - &2.2677e+00 ,2.4258e+00 ,2.5973e+00 ,2.7818e+00 ,2.9766e+00 /) - kbo(:,28, 6) = (/ & - &2.0273e+00 ,2.1803e+00 ,2.3462e+00 ,2.5211e+00 ,2.7040e+00 /) - kbo(:,29, 6) = (/ & - &1.8190e+00 ,1.9689e+00 ,2.1279e+00 ,2.2941e+00 ,2.4662e+00 /) - kbo(:,30, 6) = (/ & - &1.6397e+00 ,1.7844e+00 ,1.9371e+00 ,2.0958e+00 ,2.2590e+00 /) - kbo(:,31, 6) = (/ & - &1.4852e+00 ,1.6249e+00 ,1.7714e+00 ,1.9226e+00 ,2.0813e+00 /) - kbo(:,32, 6) = (/ & - &1.3517e+00 ,1.4862e+00 ,1.6264e+00 ,1.7745e+00 ,1.9335e+00 /) - kbo(:,33, 6) = (/ & - &1.2364e+00 ,1.3651e+00 ,1.5027e+00 ,1.6513e+00 ,1.8098e+00 /) - kbo(:,34, 6) = (/ & - &1.1317e+00 ,1.2571e+00 ,1.3947e+00 ,1.5426e+00 ,1.7001e+00 /) - kbo(:,35, 6) = (/ & - &1.0305e+00 ,1.1540e+00 ,1.2902e+00 ,1.4368e+00 ,1.5937e+00 /) - kbo(:,36, 6) = (/ & - &9.3137e-01 ,1.0526e+00 ,1.1856e+00 ,1.3299e+00 ,1.4860e+00 /) - kbo(:,37, 6) = (/ & - &8.2931e-01 ,9.4564e-01 ,1.0739e+00 ,1.2152e+00 ,1.3682e+00 /) - kbo(:,38, 6) = (/ & - &7.3906e-01 ,8.5034e-01 ,9.7478e-01 ,1.1125e+00 ,1.2627e+00 /) - kbo(:,39, 6) = (/ & - &6.6006e-01 ,7.6663e-01 ,8.8732e-01 ,1.0214e+00 ,1.1704e+00 /) - kbo(:,40, 6) = (/ & - &5.8074e-01 ,6.8151e-01 ,7.9698e-01 ,9.2673e-01 ,1.0719e+00 /) - kbo(:,41, 6) = (/ & - &5.0970e-01 ,6.0467e-01 ,7.1469e-01 ,8.3962e-01 ,9.8097e-01 /) - kbo(:,42, 6) = (/ & - &4.4691e-01 ,5.3653e-01 ,6.4112e-01 ,7.6136e-01 ,8.9846e-01 /) - kbo(:,43, 6) = (/ & - &3.8720e-01 ,4.7067e-01 ,5.6921e-01 ,6.8346e-01 ,8.1541e-01 /) - kbo(:,44, 6) = (/ & - &3.3270e-01 ,4.0984e-01 ,5.0209e-01 ,6.1017e-01 ,7.3637e-01 /) - kbo(:,45, 6) = (/ & - &2.8475e-01 ,3.5595e-01 ,4.4190e-01 ,5.4378e-01 ,6.6410e-01 /) - kbo(:,46, 6) = (/ & - &2.4137e-01 ,3.0640e-01 ,3.8581e-01 ,4.8130e-01 ,5.9507e-01 /) - kbo(:,47, 6) = (/ & - &2.0121e-01 ,2.5952e-01 ,3.3199e-01 ,4.2038e-01 ,5.2702e-01 /) - kbo(:,48, 6) = (/ & - &1.6644e-01 ,2.1836e-01 ,2.8412e-01 ,3.6558e-01 ,4.6520e-01 /) - kbo(:,49, 6) = (/ & - &1.3664e-01 ,1.8247e-01 ,2.4166e-01 ,3.1637e-01 ,4.0912e-01 /) - kbo(:,50, 6) = (/ & - &1.1203e-01 ,1.5228e-01 ,2.0551e-01 ,2.7399e-01 ,3.6023e-01 /) - kbo(:,51, 6) = (/ & - &9.1424e-02 ,1.2652e-01 ,1.7413e-01 ,2.3648e-01 ,3.1642e-01 /) - kbo(:,52, 6) = (/ & - &7.4033e-02 ,1.0433e-01 ,1.4653e-01 ,2.0289e-01 ,2.7670e-01 /) - kbo(:,53, 6) = (/ & - &5.9468e-02 ,8.5397e-02 ,1.2237e-01 ,1.7301e-01 ,2.4059e-01 /) - kbo(:,54, 6) = (/ & - &4.7831e-02 ,6.9932e-02 ,1.0222e-01 ,1.4759e-01 ,2.0954e-01 /) - kbo(:,55, 6) = (/ & - &3.8375e-02 ,5.7032e-02 ,8.5062e-02 ,1.2546e-01 ,1.8204e-01 /) - kbo(:,56, 6) = (/ & - &3.0600e-02 ,4.6150e-02 ,7.0262e-02 ,1.0594e-01 ,1.5707e-01 /) - kbo(:,57, 6) = (/ & - &2.4221e-02 ,3.7043e-02 ,5.7569e-02 ,8.8786e-02 ,1.3465e-01 /) - kbo(:,58, 6) = (/ & - &1.9170e-02 ,2.9713e-02 ,4.7101e-02 ,7.4302e-02 ,1.1534e-01 /) - kbo(:,59, 6) = (/ & - &1.6314e-02 ,2.5760e-02 ,4.1528e-02 ,6.6912e-02 ,1.0596e-01 /) - kbo(:,13, 7) = (/ & - &2.6383e+01 ,2.6399e+01 ,2.6364e+01 ,2.6286e+01 ,2.6068e+01 /) - kbo(:,14, 7) = (/ & - &2.4391e+01 ,2.4435e+01 ,2.4445e+01 ,2.4411e+01 ,2.4344e+01 /) - kbo(:,15, 7) = (/ & - &2.2267e+01 ,2.2343e+01 ,2.2391e+01 ,2.2420e+01 ,2.2406e+01 /) - kbo(:,16, 7) = (/ & - &2.0101e+01 ,2.0222e+01 ,2.0311e+01 ,2.0370e+01 ,2.0373e+01 /) - kbo(:,17, 7) = (/ & - &1.7987e+01 ,1.8130e+01 ,1.8242e+01 ,1.8316e+01 ,1.8338e+01 /) - kbo(:,18, 7) = (/ & - &1.5956e+01 ,1.6114e+01 ,1.6238e+01 ,1.6337e+01 ,1.6400e+01 /) - kbo(:,19, 7) = (/ & - &1.4050e+01 ,1.4210e+01 ,1.4354e+01 ,1.4495e+01 ,1.4623e+01 /) - kbo(:,20, 7) = (/ & - &1.2287e+01 ,1.2462e+01 ,1.2644e+01 ,1.2837e+01 ,1.3036e+01 /) - kbo(:,21, 7) = (/ & - &1.0697e+01 ,1.0904e+01 ,1.1136e+01 ,1.1376e+01 ,1.1647e+01 /) - kbo(:,22, 7) = (/ & - &9.3216e+00 ,9.5704e+00 ,9.8418e+00 ,1.0134e+01 ,1.0464e+01 /) - kbo(:,23, 7) = (/ & - &8.1552e+00 ,8.4381e+00 ,8.7358e+00 ,9.0546e+00 ,9.4274e+00 /) - kbo(:,24, 7) = (/ & - &7.1742e+00 ,7.4714e+00 ,7.7800e+00 ,8.1293e+00 ,8.5227e+00 /) - kbo(:,25, 7) = (/ & - &6.3453e+00 ,6.6371e+00 ,6.9572e+00 ,7.3300e+00 ,7.7371e+00 /) - kbo(:,26, 7) = (/ & - &5.6325e+00 ,5.9213e+00 ,6.2619e+00 ,6.6436e+00 ,7.0622e+00 /) - kbo(:,27, 7) = (/ & - &5.0177e+00 ,5.3180e+00 ,5.6685e+00 ,6.0556e+00 ,6.4791e+00 /) - kbo(:,28, 7) = (/ & - &4.5006e+00 ,4.8114e+00 ,5.1630e+00 ,5.5512e+00 ,5.9725e+00 /) - kbo(:,29, 7) = (/ & - &4.0763e+00 ,4.3869e+00 ,4.7357e+00 ,5.1215e+00 ,5.5415e+00 /) - kbo(:,30, 7) = (/ & - &3.7197e+00 ,4.0279e+00 ,4.3734e+00 ,4.7560e+00 ,5.1758e+00 /) - kbo(:,31, 7) = (/ & - &3.4217e+00 ,3.7276e+00 ,4.0700e+00 ,4.4513e+00 ,4.8709e+00 /) - kbo(:,32, 7) = (/ & - &3.1725e+00 ,3.4760e+00 ,3.8179e+00 ,4.1999e+00 ,4.6169e+00 /) - kbo(:,33, 7) = (/ & - &2.9640e+00 ,3.2682e+00 ,3.6118e+00 ,3.9912e+00 ,4.4110e+00 /) - kbo(:,34, 7) = (/ & - &2.7815e+00 ,3.0881e+00 ,3.4286e+00 ,3.8090e+00 ,4.2366e+00 /) - kbo(:,35, 7) = (/ & - &2.6027e+00 ,2.9073e+00 ,3.2445e+00 ,3.6269e+00 ,4.0627e+00 /) - kbo(:,36, 7) = (/ & - &2.4195e+00 ,2.7195e+00 ,3.0535e+00 ,3.4362e+00 ,3.8766e+00 /) - kbo(:,37, 7) = (/ & - &2.2155e+00 ,2.5099e+00 ,2.8373e+00 ,3.2150e+00 ,3.6504e+00 /) - kbo(:,38, 7) = (/ & - &2.0317e+00 ,2.3214e+00 ,2.6457e+00 ,3.0187e+00 ,3.4497e+00 /) - kbo(:,39, 7) = (/ & - &1.8675e+00 ,2.1535e+00 ,2.4775e+00 ,2.8467e+00 ,3.2732e+00 /) - kbo(:,40, 7) = (/ & - &1.6933e+00 ,1.9726e+00 ,2.2917e+00 ,2.6527e+00 ,3.0690e+00 /) - kbo(:,41, 7) = (/ & - &1.5321e+00 ,1.8045e+00 ,2.1184e+00 ,2.4731e+00 ,2.8788e+00 /) - kbo(:,42, 7) = (/ & - &1.3858e+00 ,1.6512e+00 ,1.9598e+00 ,2.3096e+00 ,2.7061e+00 /) - kbo(:,43, 7) = (/ & - &1.2395e+00 ,1.4953e+00 ,1.7959e+00 ,2.1389e+00 ,2.5250e+00 /) - kbo(:,44, 7) = (/ & - &1.1006e+00 ,1.3456e+00 ,1.6365e+00 ,1.9712e+00 ,2.3479e+00 /) - kbo(:,45, 7) = (/ & - &9.7411e-01 ,1.2078e+00 ,1.4892e+00 ,1.8150e+00 ,2.1832e+00 /) - kbo(:,46, 7) = (/ & - &8.5489e-01 ,1.0759e+00 ,1.3456e+00 ,1.6612e+00 ,2.0197e+00 /) - kbo(:,47, 7) = (/ & - &7.3930e-01 ,9.4494e-01 ,1.2000e+00 ,1.5026e+00 ,1.8496e+00 /) - kbo(:,48, 7) = (/ & - &6.3547e-01 ,8.2535e-01 ,1.0653e+00 ,1.3544e+00 ,1.6889e+00 /) - kbo(:,49, 7) = (/ & - &5.4241e-01 ,7.1674e-01 ,9.4139e-01 ,1.2160e+00 ,1.5375e+00 /) - kbo(:,50, 7) = (/ & - &4.6304e-01 ,6.2300e-01 ,8.3217e-01 ,1.0925e+00 ,1.4012e+00 /) - kbo(:,51, 7) = (/ & - &3.9371e-01 ,5.3995e-01 ,7.3373e-01 ,9.7980e-01 ,1.2748e+00 /) - kbo(:,52, 7) = (/ & - &3.3220e-01 ,4.6493e-01 ,6.4396e-01 ,8.7508e-01 ,1.1558e+00 /) - kbo(:,53, 7) = (/ & - &2.7778e-01 ,3.9741e-01 ,5.6181e-01 ,7.7785e-01 ,1.0434e+00 /) - kbo(:,54, 7) = (/ & - &2.3274e-01 ,3.4050e-01 ,4.9090e-01 ,6.9261e-01 ,9.4387e-01 /) - kbo(:,55, 7) = (/ & - &1.9435e-01 ,2.9105e-01 ,4.2805e-01 ,6.1562e-01 ,8.5235e-01 /) - kbo(:,56, 7) = (/ & - &1.6083e-01 ,2.4693e-01 ,3.7158e-01 ,5.4415e-01 ,7.6669e-01 /) - kbo(:,57, 7) = (/ & - &1.3183e-01 ,2.0770e-01 ,3.2034e-01 ,4.7818e-01 ,6.8649e-01 /) - kbo(:,58, 7) = (/ & - &1.0786e-01 ,1.7445e-01 ,2.7618e-01 ,4.2058e-01 ,6.1481e-01 /) - kbo(:,59, 7) = (/ & - &9.5778e-02 ,1.5879e-01 ,2.5699e-01 ,3.9684e-01 ,5.8283e-01 /) - kbo(:,13, 8) = (/ & - &5.1036e+01 ,5.0460e+01 ,4.9876e+01 ,4.9272e+01 ,4.8645e+01 /) - kbo(:,14, 8) = (/ & - &4.9659e+01 ,4.9240e+01 ,4.8789e+01 ,4.8317e+01 ,4.7813e+01 /) - kbo(:,15, 8) = (/ & - &4.7836e+01 ,4.7533e+01 ,4.7179e+01 ,4.6807e+01 ,4.6408e+01 /) - kbo(:,16, 8) = (/ & - &4.5523e+01 ,4.5307e+01 ,4.5074e+01 ,4.4798e+01 ,4.4497e+01 /) - kbo(:,17, 8) = (/ & - &4.2751e+01 ,4.2659e+01 ,4.2523e+01 ,4.2351e+01 ,4.2128e+01 /) - kbo(:,18, 8) = (/ & - &3.9675e+01 ,3.9678e+01 ,3.9613e+01 ,3.9512e+01 ,3.9377e+01 /) - kbo(:,19, 8) = (/ & - &3.6385e+01 ,3.6442e+01 ,3.6467e+01 ,3.6453e+01 ,3.6385e+01 /) - kbo(:,20, 8) = (/ & - &3.2988e+01 ,3.3119e+01 ,3.3207e+01 ,3.3253e+01 ,3.3266e+01 /) - kbo(:,21, 8) = (/ & - &2.9629e+01 ,2.9807e+01 ,2.9950e+01 ,3.0074e+01 ,3.0195e+01 /) - kbo(:,22, 8) = (/ & - &2.6389e+01 ,2.6615e+01 ,2.6833e+01 ,2.7054e+01 ,2.7281e+01 /) - kbo(:,23, 8) = (/ & - &2.3355e+01 ,2.3644e+01 ,2.3948e+01 ,2.4296e+01 ,2.4660e+01 /) - kbo(:,24, 8) = (/ & - &2.0595e+01 ,2.0963e+01 ,2.1391e+01 ,2.1861e+01 ,2.2380e+01 /) - kbo(:,25, 8) = (/ & - &1.8159e+01 ,1.8637e+01 ,1.9183e+01 ,1.9778e+01 ,2.0439e+01 /) - kbo(:,26, 8) = (/ & - &1.6089e+01 ,1.6677e+01 ,1.7319e+01 ,1.8032e+01 ,1.8814e+01 /) - kbo(:,27, 8) = (/ & - &1.4363e+01 ,1.5028e+01 ,1.5757e+01 ,1.6564e+01 ,1.7443e+01 /) - kbo(:,28, 8) = (/ & - &1.2926e+01 ,1.3648e+01 ,1.4446e+01 ,1.5323e+01 ,1.6326e+01 /) - kbo(:,29, 8) = (/ & - &1.1723e+01 ,1.2493e+01 ,1.3349e+01 ,1.4336e+01 ,1.5419e+01 /) - kbo(:,30, 8) = (/ & - &1.0720e+01 ,1.1535e+01 ,1.2485e+01 ,1.3543e+01 ,1.4696e+01 /) - kbo(:,31, 8) = (/ & - &9.8953e+00 ,1.0794e+01 ,1.1807e+01 ,1.2928e+01 ,1.4151e+01 /) - kbo(:,32, 8) = (/ & - &9.2630e+00 ,1.0213e+01 ,1.1281e+01 ,1.2468e+01 ,1.3783e+01 /) - kbo(:,33, 8) = (/ & - &8.7693e+00 ,9.7682e+00 ,1.0900e+01 ,1.2171e+01 ,1.3564e+01 /) - kbo(:,34, 8) = (/ & - &8.3550e+00 ,9.4057e+00 ,1.0612e+01 ,1.1954e+01 ,1.3416e+01 /) - kbo(:,35, 8) = (/ & - &7.9503e+00 ,9.0506e+00 ,1.0311e+01 ,1.1711e+01 ,1.3230e+01 /) - kbo(:,36, 8) = (/ & - &7.5260e+00 ,8.6513e+00 ,9.9500e+00 ,1.1393e+01 ,1.2954e+01 /) - kbo(:,37, 8) = (/ & - &7.0166e+00 ,8.1408e+00 ,9.4476e+00 ,1.0907e+01 ,1.2489e+01 /) - kbo(:,38, 8) = (/ & - &6.5631e+00 ,7.6815e+00 ,8.9895e+00 ,1.0461e+01 ,1.2064e+01 /) - kbo(:,39, 8) = (/ & - &6.1678e+00 ,7.2805e+00 ,8.5861e+00 ,1.0065e+01 ,1.1676e+01 /) - kbo(:,40, 8) = (/ & - &5.7155e+00 ,6.7987e+00 ,8.0775e+00 ,9.5392e+00 ,1.1142e+01 /) - kbo(:,41, 8) = (/ & - &5.2949e+00 ,6.3470e+00 ,7.5914e+00 ,9.0258e+00 ,1.0614e+01 /) - kbo(:,42, 8) = (/ & - &4.9139e+00 ,5.9322e+00 ,7.1403e+00 ,8.5407e+00 ,1.0110e+01 /) - kbo(:,43, 8) = (/ & - &4.5194e+00 ,5.4902e+00 ,6.6498e+00 ,8.0033e+00 ,9.5351e+00 /) - kbo(:,44, 8) = (/ & - &4.1399e+00 ,5.0576e+00 ,6.1633e+00 ,7.4614e+00 ,8.9447e+00 /) - kbo(:,45, 8) = (/ & - &3.7947e+00 ,4.6596e+00 ,5.7095e+00 ,6.9501e+00 ,8.3804e+00 /) - kbo(:,46, 8) = (/ & - &3.4645e+00 ,4.2731e+00 ,5.2631e+00 ,6.4408e+00 ,7.8107e+00 /) - kbo(:,47, 8) = (/ & - &3.1333e+00 ,3.8817e+00 ,4.8032e+00 ,5.9109e+00 ,7.2077e+00 /) - kbo(:,48, 8) = (/ & - &2.8272e+00 ,3.5252e+00 ,4.3790e+00 ,5.4161e+00 ,6.6403e+00 /) - kbo(:,49, 8) = (/ & - &2.5419e+00 ,3.2000e+00 ,3.9894e+00 ,4.9550e+00 ,6.1077e+00 /) - kbo(:,50, 8) = (/ & - &2.2876e+00 ,2.9151e+00 ,3.6507e+00 ,4.5513e+00 ,5.6358e+00 /) - kbo(:,51, 8) = (/ & - &2.0539e+00 ,2.6537e+00 ,3.3480e+00 ,4.1860e+00 ,5.2042e+00 /) - kbo(:,52, 8) = (/ & - &1.8359e+00 ,2.4075e+00 ,3.0676e+00 ,3.8482e+00 ,4.8005e+00 /) - kbo(:,53, 8) = (/ & - &1.6315e+00 ,2.1744e+00 ,2.8043e+00 ,3.5342e+00 ,4.4242e+00 /) - kbo(:,54, 8) = (/ & - &1.4536e+00 ,1.9689e+00 ,2.5734e+00 ,3.2651e+00 ,4.0977e+00 /) - kbo(:,55, 8) = (/ & - &1.2924e+00 ,1.7818e+00 ,2.3616e+00 ,3.0234e+00 ,3.8040e+00 /) - kbo(:,56, 8) = (/ & - &1.1428e+00 ,1.6042e+00 ,2.1584e+00 ,2.7950e+00 ,3.5303e+00 /) - kbo(:,57, 8) = (/ & - &1.0034e+00 ,1.4376e+00 ,1.9645e+00 ,2.5766e+00 ,3.2746e+00 /) - kbo(:,58, 8) = (/ & - &8.7989e-01 ,1.2882e+00 ,1.7895e+00 ,2.3775e+00 ,3.0470e+00 /) - kbo(:,59, 8) = (/ & - &8.2607e-01 ,1.2253e+00 ,1.7145e+00 ,2.2929e+00 ,2.9546e+00 /) - kbo(:,13, 9) = (/ & - &9.9406e+01 ,9.8017e+01 ,9.6610e+01 ,9.5133e+01 ,9.3589e+01 /) - kbo(:,14, 9) = (/ & - &1.0426e+02 ,1.0289e+02 ,1.0145e+02 ,9.9955e+01 ,9.8418e+01 /) - kbo(:,15, 9) = (/ & - &1.0831e+02 ,1.0700e+02 ,1.0565e+02 ,1.0422e+02 ,1.0271e+02 /) - kbo(:,16, 9) = (/ & - &1.1144e+02 ,1.1027e+02 ,1.0899e+02 ,1.0766e+02 ,1.0626e+02 /) - kbo(:,17, 9) = (/ & - &1.1357e+02 ,1.1252e+02 ,1.1140e+02 ,1.1022e+02 ,1.0897e+02 /) - kbo(:,18, 9) = (/ & - &1.1451e+02 ,1.1366e+02 ,1.1275e+02 ,1.1172e+02 ,1.1059e+02 /) - kbo(:,19, 9) = (/ & - &1.1419e+02 ,1.1358e+02 ,1.1283e+02 ,1.1199e+02 ,1.1108e+02 /) - kbo(:,20, 9) = (/ & - &1.1253e+02 ,1.1217e+02 ,1.1170e+02 ,1.1113e+02 ,1.1043e+02 /) - kbo(:,21, 9) = (/ & - &1.0964e+02 ,1.0959e+02 ,1.0941e+02 ,1.0911e+02 ,1.0868e+02 /) - kbo(:,22, 9) = (/ & - &1.0576e+02 ,1.0601e+02 ,1.0614e+02 ,1.0616e+02 ,1.0606e+02 /) - kbo(:,23, 9) = (/ & - &1.0113e+02 ,1.0172e+02 ,1.0220e+02 ,1.0257e+02 ,1.0280e+02 /) - kbo(:,24, 9) = (/ & - &9.6005e+01 ,9.6976e+01 ,9.7826e+01 ,9.8561e+01 ,9.9182e+01 /) - kbo(:,25, 9) = (/ & - &9.0658e+01 ,9.2026e+01 ,9.3302e+01 ,9.4462e+01 ,9.5504e+01 /) - kbo(:,26, 9) = (/ & - &8.5398e+01 ,8.7188e+01 ,8.8895e+01 ,9.0506e+01 ,9.1994e+01 /) - kbo(:,27, 9) = (/ & - &8.0425e+01 ,8.2648e+01 ,8.4817e+01 ,8.6900e+01 ,8.8861e+01 /) - kbo(:,28, 9) = (/ & - &7.5902e+01 ,7.8597e+01 ,8.1250e+01 ,8.3817e+01 ,8.6189e+01 /) - kbo(:,29, 9) = (/ & - &7.2021e+01 ,7.5193e+01 ,7.8323e+01 ,8.1284e+01 ,8.4079e+01 /) - kbo(:,30, 9) = (/ & - &6.8846e+01 ,7.2476e+01 ,7.5986e+01 ,7.9352e+01 ,8.2517e+01 /) - kbo(:,31, 9) = (/ & - &6.6391e+01 ,7.0389e+01 ,7.4280e+01 ,7.7994e+01 ,8.1462e+01 /) - kbo(:,32, 9) = (/ & - &6.4577e+01 ,6.8942e+01 ,7.3166e+01 ,7.7157e+01 ,8.0829e+01 /) - kbo(:,33, 9) = (/ & - &6.3392e+01 ,6.8071e+01 ,7.2548e+01 ,7.6730e+01 ,8.0569e+01 /) - kbo(:,34, 9) = (/ & - &6.2591e+01 ,6.7517e+01 ,7.2182e+01 ,7.6523e+01 ,8.0479e+01 /) - kbo(:,35, 9) = (/ & - &6.1727e+01 ,6.6854e+01 ,7.1692e+01 ,7.6175e+01 ,8.0232e+01 /) - kbo(:,36, 9) = (/ & - &6.0594e+01 ,6.5914e+01 ,7.0919e+01 ,7.5536e+01 ,7.9714e+01 /) - kbo(:,37, 9) = (/ & - &5.8846e+01 ,6.4364e+01 ,6.9558e+01 ,7.4349e+01 ,7.8713e+01 /) - kbo(:,38, 9) = (/ & - &5.7194e+01 ,6.2887e+01 ,6.8247e+01 ,7.3195e+01 ,7.8049e+01 /) - kbo(:,39, 9) = (/ & - &5.5665e+01 ,6.1507e+01 ,6.7008e+01 ,7.2147e+01 ,7.7547e+01 /) - kbo(:,40, 9) = (/ & - &5.3621e+01 ,5.9617e+01 ,6.5286e+01 ,7.0695e+01 ,7.6340e+01 /) - kbo(:,41, 9) = (/ & - &5.1554e+01 ,5.7685e+01 ,6.3510e+01 ,6.9201e+01 ,7.4982e+01 /) - kbo(:,42, 9) = (/ & - &4.9528e+01 ,5.5776e+01 ,6.1743e+01 ,6.7740e+01 ,7.3659e+01 /) - kbo(:,43, 9) = (/ & - &4.7178e+01 ,5.3540e+01 ,5.9647e+01 ,6.5886e+01 ,7.2015e+01 /) - kbo(:,44, 9) = (/ & - &4.4688e+01 ,5.1145e+01 ,5.7387e+01 ,6.3891e+01 ,7.0203e+01 /) - kbo(:,45, 9) = (/ & - &4.2221e+01 ,4.8754e+01 ,5.5108e+01 ,6.1908e+01 ,6.8361e+01 /) - kbo(:,46, 9) = (/ & - &3.9637e+01 ,4.6220e+01 ,5.2693e+01 ,5.9708e+01 ,6.6363e+01 /) - kbo(:,47, 9) = (/ & - &3.6803e+01 ,4.3409e+01 ,4.9987e+01 ,5.7153e+01 ,6.3987e+01 /) - kbo(:,48, 9) = (/ & - &3.4015e+01 ,4.0603e+01 ,4.7276e+01 ,5.4594e+01 ,6.1608e+01 /) - kbo(:,49, 9) = (/ & - &3.1288e+01 ,3.7812e+01 ,4.4636e+01 ,5.2065e+01 ,5.9201e+01 /) - kbo(:,50, 9) = (/ & - &2.8795e+01 ,3.5220e+01 ,4.2061e+01 ,4.9552e+01 ,5.6813e+01 /) - kbo(:,51, 9) = (/ & - &2.6450e+01 ,3.2748e+01 ,3.9528e+01 ,4.7065e+01 ,5.4424e+01 /) - kbo(:,52, 9) = (/ & - &2.4182e+01 ,3.0329e+01 ,3.7052e+01 ,4.4584e+01 ,5.2041e+01 /) - kbo(:,53, 9) = (/ & - &2.1996e+01 ,2.7965e+01 ,3.4636e+01 ,4.2155e+01 ,4.9659e+01 /) - kbo(:,54, 9) = (/ & - &2.0069e+01 ,2.5858e+01 ,3.2251e+01 ,3.9700e+01 ,4.7245e+01 /) - kbo(:,55, 9) = (/ & - &1.8302e+01 ,2.3898e+01 ,3.0045e+01 ,3.7230e+01 ,4.4781e+01 /) - kbo(:,56, 9) = (/ & - &1.6618e+01 ,2.2006e+01 ,2.7997e+01 ,3.4787e+01 ,4.2319e+01 /) - kbo(:,57, 9) = (/ & - &1.5017e+01 ,2.0180e+01 ,2.5997e+01 ,3.2401e+01 ,3.9855e+01 /) - kbo(:,58, 9) = (/ & - &1.3581e+01 ,1.8514e+01 ,2.4151e+01 ,3.0332e+01 ,3.7487e+01 /) - kbo(:,59, 9) = (/ & - &1.3022e+01 ,1.7859e+01 ,2.3425e+01 ,2.9551e+01 ,3.6092e+01 /) - kbo(:,13,10) = (/ & - &1.4854e+02 ,1.4629e+02 ,1.4392e+02 ,1.4179e+02 ,1.3968e+02 /) - kbo(:,14,10) = (/ & - &1.6449e+02 ,1.6201e+02 ,1.5966e+02 ,1.5740e+02 ,1.5475e+02 /) - kbo(:,15,10) = (/ & - &1.8113e+02 ,1.7883e+02 ,1.7633e+02 ,1.7356e+02 ,1.7082e+02 /) - kbo(:,16,10) = (/ & - &1.9869e+02 ,1.9617e+02 ,1.9337e+02 ,1.9057e+02 ,1.8767e+02 /) - kbo(:,17,10) = (/ & - &2.1579e+02 ,2.1310e+02 ,2.1009e+02 ,2.0678e+02 ,2.0344e+02 /) - kbo(:,18,10) = (/ & - &2.3175e+02 ,2.2862e+02 ,2.2543e+02 ,2.2232e+02 ,2.1916e+02 /) - kbo(:,19,10) = (/ & - &2.4595e+02 ,2.4325e+02 ,2.4040e+02 ,2.3730e+02 ,2.3384e+02 /) - kbo(:,20,10) = (/ & - &2.5917e+02 ,2.5646e+02 ,2.5347e+02 ,2.5026e+02 ,2.4697e+02 /) - kbo(:,21,10) = (/ & - &2.7002e+02 ,2.6751e+02 ,2.6472e+02 ,2.6184e+02 ,2.5881e+02 /) - kbo(:,22,10) = (/ & - &2.7788e+02 ,2.7617e+02 ,2.7411e+02 ,2.7166e+02 ,2.6869e+02 /) - kbo(:,23,10) = (/ & - &2.8310e+02 ,2.8234e+02 ,2.8114e+02 ,2.7929e+02 ,2.7687e+02 /) - kbo(:,24,10) = (/ & - &2.8635e+02 ,2.8652e+02 ,2.8615e+02 ,2.8511e+02 ,2.8345e+02 /) - kbo(:,25,10) = (/ & - &2.8819e+02 ,2.8935e+02 ,2.8976e+02 ,2.8954e+02 ,2.8857e+02 /) - kbo(:,26,10) = (/ & - &2.8894e+02 ,2.9109e+02 ,2.9250e+02 ,2.9307e+02 ,2.9272e+02 /) - kbo(:,27,10) = (/ & - &2.8895e+02 ,2.9239e+02 ,2.9473e+02 ,2.9595e+02 ,2.9616e+02 /) - kbo(:,28,10) = (/ & - &2.8893e+02 ,2.9347e+02 ,2.9660e+02 ,2.9845e+02 ,2.9908e+02 /) - kbo(:,29,10) = (/ & - &2.8896e+02 ,2.9449e+02 ,2.9830e+02 ,3.0067e+02 ,3.0167e+02 /) - kbo(:,30,10) = (/ & - &2.8928e+02 ,2.9562e+02 ,2.9995e+02 ,3.0268e+02 ,3.0395e+02 /) - kbo(:,31,10) = (/ & - &2.9009e+02 ,2.9691e+02 ,3.0163e+02 ,3.0456e+02 ,3.0602e+02 /) - kbo(:,32,10) = (/ & - &2.9131e+02 ,2.9842e+02 ,3.0331e+02 ,3.0639e+02 ,3.0785e+02 /) - kbo(:,33,10) = (/ & - &2.9285e+02 ,3.0006e+02 ,3.0500e+02 ,3.0808e+02 ,3.0942e+02 /) - kbo(:,34,10) = (/ & - &2.9430e+02 ,3.0156e+02 ,3.0650e+02 ,3.0954e+02 ,3.1081e+02 /) - kbo(:,35,10) = (/ & - &2.9506e+02 ,3.0251e+02 ,3.0756e+02 ,3.1064e+02 ,3.1189e+02 /) - kbo(:,36,10) = (/ & - &2.9495e+02 ,3.0278e+02 ,3.0811e+02 ,3.1136e+02 ,3.1273e+02 /) - kbo(:,37,10) = (/ & - &2.9340e+02 ,3.0194e+02 ,3.0787e+02 ,3.1159e+02 ,3.1314e+02 /) - kbo(:,38,10) = (/ & - &2.9167e+02 ,3.0090e+02 ,3.0743e+02 ,3.1157e+02 ,3.1035e+02 /) - kbo(:,39,10) = (/ & - &2.8984e+02 ,2.9975e+02 ,3.0683e+02 ,3.1096e+02 ,3.0638e+02 /) - kbo(:,40,10) = (/ & - &2.8667e+02 ,2.9751e+02 ,3.0546e+02 ,3.0937e+02 ,3.0473e+02 /) - kbo(:,41,10) = (/ & - &2.8308e+02 ,2.9489e+02 ,3.0373e+02 ,3.0736e+02 ,3.0363e+02 /) - kbo(:,42,10) = (/ & - &2.7921e+02 ,2.9200e+02 ,3.0174e+02 ,3.0479e+02 ,3.0187e+02 /) - kbo(:,43,10) = (/ & - &2.7420e+02 ,2.8820e+02 ,2.9899e+02 ,3.0230e+02 ,2.9999e+02 /) - kbo(:,44,10) = (/ & - &2.6840e+02 ,2.8368e+02 ,2.9562e+02 ,2.9904e+02 ,2.9872e+02 /) - kbo(:,45,10) = (/ & - &2.6218e+02 ,2.7870e+02 ,2.9185e+02 ,2.9503e+02 ,2.9798e+02 /) - kbo(:,46,10) = (/ & - &2.5505e+02 ,2.7298e+02 ,2.8727e+02 ,2.9090e+02 ,2.9720e+02 /) - kbo(:,47,10) = (/ & - &2.4654e+02 ,2.6603e+02 ,2.8160e+02 ,2.8645e+02 ,2.9469e+02 /) - kbo(:,48,10) = (/ & - &2.3740e+02 ,2.5847e+02 ,2.7519e+02 ,2.8106e+02 ,2.9248e+02 /) - kbo(:,49,10) = (/ & - &2.2763e+02 ,2.5025e+02 ,2.6743e+02 ,2.7456e+02 ,2.9049e+02 /) - kbo(:,50,10) = (/ & - &2.1791e+02 ,2.4202e+02 ,2.6048e+02 ,2.6898e+02 ,2.8731e+02 /) - kbo(:,51,10) = (/ & - &2.0797e+02 ,2.3350e+02 ,2.5355e+02 ,2.6334e+02 ,2.8310e+02 /) - kbo(:,52,10) = (/ & - &1.9757e+02 ,2.2449e+02 ,2.4576e+02 ,2.5715e+02 ,2.7915e+02 /) - kbo(:,53,10) = (/ & - &1.8669e+02 ,2.1495e+02 ,2.3714e+02 ,2.5067e+02 ,2.7496e+02 /) - kbo(:,54,10) = (/ & - &1.7638e+02 ,2.0577e+02 ,2.3068e+02 ,2.4491e+02 ,2.6874e+02 /) - kbo(:,55,10) = (/ & - &1.6621e+02 ,1.9659e+02 ,2.2369e+02 ,2.4095e+02 ,2.6031e+02 /) - kbo(:,56,10) = (/ & - &1.5581e+02 ,1.8709e+02 ,2.1533e+02 ,2.3658e+02 ,2.5187e+02 /) - kbo(:,57,10) = (/ & - &1.4523e+02 ,1.7728e+02 ,2.0662e+02 ,2.3157e+02 ,2.4581e+02 /) - kbo(:,58,10) = (/ & - &1.3508e+02 ,1.6774e+02 ,1.9802e+02 ,2.2497e+02 ,2.4252e+02 /) - kbo(:,59,10) = (/ & - &1.3094e+02 ,1.6382e+02 ,1.9446e+02 ,2.2185e+02 ,2.4525e+02 /) - kbo(:,13,11) = (/ & - &1.6572e+02 ,1.6289e+02 ,1.6008e+02 ,1.5714e+02 ,1.5448e+02 /) - kbo(:,14,11) = (/ & - &1.8540e+02 ,1.8266e+02 ,1.7967e+02 ,1.7665e+02 ,1.7387e+02 /) - kbo(:,15,11) = (/ & - &2.0814e+02 ,2.0518e+02 ,2.0210e+02 ,1.9898e+02 ,1.9569e+02 /) - kbo(:,16,11) = (/ & - &2.3282e+02 ,2.2978e+02 ,2.2643e+02 ,2.2243e+02 ,2.1800e+02 /) - kbo(:,17,11) = (/ & - &2.5856e+02 ,2.5501e+02 ,2.5085e+02 ,2.4632e+02 ,2.4166e+02 /) - kbo(:,18,11) = (/ & - &2.8422e+02 ,2.8031e+02 ,2.7577e+02 ,2.7086e+02 ,2.6564e+02 /) - kbo(:,19,11) = (/ & - &3.0919e+02 ,3.0467e+02 ,2.9960e+02 ,2.9432e+02 ,2.8897e+02 /) - kbo(:,20,11) = (/ & - &3.3207e+02 ,3.2741e+02 ,3.2245e+02 ,3.1728e+02 ,3.1181e+02 /) - kbo(:,21,11) = (/ & - &3.5360e+02 ,3.4929e+02 ,3.4457e+02 ,3.3936e+02 ,3.3368e+02 /) - kbo(:,22,11) = (/ & - &3.7366e+02 ,3.6938e+02 ,3.6457e+02 ,3.5924e+02 ,3.5347e+02 /) - kbo(:,23,11) = (/ & - &3.9151e+02 ,3.8745e+02 ,3.8282e+02 ,3.7760e+02 ,3.7188e+02 /) - kbo(:,24,11) = (/ & - &4.0699e+02 ,4.0355e+02 ,3.9930e+02 ,3.9428e+02 ,3.8859e+02 /) - kbo(:,25,11) = (/ & - &4.2010e+02 ,4.1762e+02 ,4.1382e+02 ,4.0900e+02 ,4.0333e+02 /) - kbo(:,26,11) = (/ & - &4.3097e+02 ,4.2949e+02 ,4.2634e+02 ,4.2177e+02 ,4.1610e+02 /) - kbo(:,27,11) = (/ & - &4.4020e+02 ,4.3958e+02 ,4.3704e+02 ,4.3277e+02 ,4.2718e+02 /) - kbo(:,28,11) = (/ & - &4.4818e+02 ,4.4821e+02 ,4.4611e+02 ,4.4212e+02 ,4.3652e+02 /) - kbo(:,29,11) = (/ & - &4.5504e+02 ,4.5548e+02 ,4.5376e+02 ,4.4984e+02 ,4.4415e+02 /) - kbo(:,30,11) = (/ & - &4.6091e+02 ,4.6162e+02 ,4.6010e+02 ,4.5616e+02 ,4.5025e+02 /) - kbo(:,31,11) = (/ & - &4.6598e+02 ,4.6680e+02 ,4.6528e+02 ,4.6118e+02 ,4.5498e+02 /) - kbo(:,32,11) = (/ & - &4.7040e+02 ,4.7120e+02 ,4.6944e+02 ,4.6509e+02 ,4.5862e+02 /) - kbo(:,33,11) = (/ & - &4.7430e+02 ,4.7493e+02 ,4.7283e+02 ,4.6810e+02 ,4.6122e+02 /) - kbo(:,34,11) = (/ & - &4.7770e+02 ,4.7802e+02 ,4.7557e+02 ,4.7044e+02 ,4.6319e+02 /) - kbo(:,35,11) = (/ & - &4.8041e+02 ,4.8064e+02 ,4.7804e+02 ,4.7275e+02 ,4.6531e+02 /) - kbo(:,36,11) = (/ & - &4.8253e+02 ,4.8296e+02 ,4.8047e+02 ,4.7521e+02 ,4.6778e+02 /) - kbo(:,37,11) = (/ & - &4.8393e+02 ,4.8502e+02 ,4.8301e+02 ,4.7821e+02 ,4.7102e+02 /) - kbo(:,38,11) = (/ & - &4.8486e+02 ,4.8663e+02 ,4.8514e+02 ,4.8082e+02 ,4.7394e+02 /) - kbo(:,39,11) = (/ & - &4.8541e+02 ,4.8785e+02 ,4.8691e+02 ,4.8302e+02 ,4.7647e+02 /) - kbo(:,40,11) = (/ & - &4.8510e+02 ,4.8864e+02 ,4.8854e+02 ,4.8540e+02 ,4.7945e+02 /) - kbo(:,41,11) = (/ & - &4.8418e+02 ,4.8891e+02 ,4.8975e+02 ,4.8740e+02 ,4.8219e+02 /) - kbo(:,42,11) = (/ & - &4.8279e+02 ,4.8873e+02 ,4.9057e+02 ,4.8904e+02 ,4.8458e+02 /) - kbo(:,43,11) = (/ & - &4.8041e+02 ,4.8782e+02 ,4.9100e+02 ,4.9049e+02 ,4.8682e+02 /) - kbo(:,44,11) = (/ & - &4.7714e+02 ,4.8618e+02 ,4.9081e+02 ,4.9150e+02 ,4.8756e+02 /) - kbo(:,45,11) = (/ & - &4.7308e+02 ,4.8395e+02 ,4.9007e+02 ,4.9204e+02 ,4.8671e+02 /) - kbo(:,46,11) = (/ & - &4.6783e+02 ,4.8086e+02 ,4.8862e+02 ,4.9205e+02 ,4.8480e+02 /) - kbo(:,47,11) = (/ & - &4.6080e+02 ,4.7644e+02 ,4.8623e+02 ,4.9139e+02 ,4.8469e+02 /) - kbo(:,48,11) = (/ & - &4.5259e+02 ,4.7102e+02 ,4.8306e+02 ,4.9003e+02 ,4.8230e+02 /) - kbo(:,49,11) = (/ & - &4.4320e+02 ,4.6445e+02 ,4.7901e+02 ,4.8786e+02 ,4.7807e+02 /) - kbo(:,50,11) = (/ & - &4.3321e+02 ,4.5728e+02 ,4.7435e+02 ,4.8518e+02 ,4.7550e+02 /) - kbo(:,51,11) = (/ & - &4.2248e+02 ,4.4931e+02 ,4.6891e+02 ,4.8193e+02 ,4.7366e+02 /) - kbo(:,52,11) = (/ & - &4.1065e+02 ,4.4034e+02 ,4.6257e+02 ,4.7793e+02 ,4.7004e+02 /) - kbo(:,53,11) = (/ & - &3.9765e+02 ,4.3037e+02 ,4.5526e+02 ,4.7213e+02 ,4.6510e+02 /) - kbo(:,54,11) = (/ & - &3.8467e+02 ,4.2027e+02 ,4.4777e+02 ,4.6790e+02 ,4.6484e+02 /) - kbo(:,55,11) = (/ & - &3.7132e+02 ,4.0974e+02 ,4.3973e+02 ,4.6220e+02 ,4.6820e+02 /) - kbo(:,56,11) = (/ & - &3.5710e+02 ,3.9837e+02 ,4.3097e+02 ,4.5580e+02 ,4.7038e+02 /) - kbo(:,57,11) = (/ & - &3.4209e+02 ,3.8602e+02 ,4.2139e+02 ,4.4866e+02 ,4.6860e+02 /) - kbo(:,58,11) = (/ & - &3.2702e+02 ,3.7354e+02 ,4.1153e+02 ,4.4115e+02 ,4.6327e+02 /) - kbo(:,59,11) = (/ & - &3.2074e+02 ,3.6827e+02 ,4.0735e+02 ,4.3797e+02 ,4.6099e+02 /) - kbo(:,13,12) = (/ & - &1.8437e+02 ,1.8201e+02 ,1.7920e+02 ,1.7619e+02 ,1.7262e+02 /) - kbo(:,14,12) = (/ & - &2.0920e+02 ,2.0655e+02 ,2.0368e+02 ,2.0039e+02 ,1.9660e+02 /) - kbo(:,15,12) = (/ & - &2.3807e+02 ,2.3483e+02 ,2.3126e+02 ,2.2723e+02 ,2.2261e+02 /) - kbo(:,16,12) = (/ & - &2.7050e+02 ,2.6622e+02 ,2.6148e+02 ,2.5668e+02 ,2.5203e+02 /) - kbo(:,17,12) = (/ & - &3.0550e+02 ,3.0047e+02 ,2.9528e+02 ,2.8984e+02 ,2.8414e+02 /) - kbo(:,18,12) = (/ & - &3.4308e+02 ,3.3718e+02 ,3.3104e+02 ,3.2458e+02 ,3.1787e+02 /) - kbo(:,19,12) = (/ & - &3.8177e+02 ,3.7532e+02 ,3.6857e+02 ,3.6127e+02 ,3.5363e+02 /) - kbo(:,20,12) = (/ & - &4.2186e+02 ,4.1506e+02 ,4.0728e+02 ,3.9905e+02 ,3.9052e+02 /) - kbo(:,21,12) = (/ & - &4.6246e+02 ,4.5454e+02 ,4.4606e+02 ,4.3704e+02 ,4.2747e+02 /) - kbo(:,22,12) = (/ & - &5.0135e+02 ,4.9292e+02 ,4.8363e+02 ,4.7369e+02 ,4.6338e+02 /) - kbo(:,23,12) = (/ & - &5.3861e+02 ,5.2961e+02 ,5.1962e+02 ,5.0894e+02 ,4.9767e+02 /) - kbo(:,24,12) = (/ & - &5.7338e+02 ,5.6389e+02 ,5.5338e+02 ,5.4189e+02 ,5.2932e+02 /) - kbo(:,25,12) = (/ & - &6.0539e+02 ,5.9528e+02 ,5.8404e+02 ,5.7158e+02 ,5.5798e+02 /) - kbo(:,26,12) = (/ & - &6.3403e+02 ,6.2334e+02 ,6.1112e+02 ,5.9770e+02 ,5.8310e+02 /) - kbo(:,27,12) = (/ & - &6.5936e+02 ,6.4795e+02 ,6.3483e+02 ,6.2036e+02 ,6.0455e+02 /) - kbo(:,28,12) = (/ & - &6.8125e+02 ,6.6919e+02 ,6.5513e+02 ,6.3951e+02 ,6.2260e+02 /) - kbo(:,29,12) = (/ & - &6.9998e+02 ,6.8712e+02 ,6.7207e+02 ,6.5530e+02 ,6.3734e+02 /) - kbo(:,30,12) = (/ & - &7.1583e+02 ,7.0209e+02 ,6.8590e+02 ,6.6805e+02 ,6.4904e+02 /) - kbo(:,31,12) = (/ & - &7.2876e+02 ,7.1404e+02 ,6.9677e+02 ,6.7790e+02 ,6.5793e+02 /) - kbo(:,32,12) = (/ & - &7.3900e+02 ,7.2324e+02 ,7.0493e+02 ,6.8513e+02 ,6.6427e+02 /) - kbo(:,33,12) = (/ & - &7.4681e+02 ,7.2991e+02 ,7.1072e+02 ,6.9001e+02 ,6.6847e+02 /) - kbo(:,34,12) = (/ & - &7.5291e+02 ,7.3522e+02 ,7.1519e+02 ,6.9374e+02 ,6.7158e+02 /) - kbo(:,35,12) = (/ & - &7.5888e+02 ,7.4060e+02 ,7.1995e+02 ,6.9804e+02 ,6.7534e+02 /) - kbo(:,36,12) = (/ & - &7.6530e+02 ,7.4674e+02 ,7.2578e+02 ,7.0348e+02 ,6.8047e+02 /) - kbo(:,37,12) = (/ & - &7.7324e+02 ,7.5477e+02 ,7.3385e+02 ,7.1142e+02 ,6.8821e+02 /) - kbo(:,38,12) = (/ & - &7.8031e+02 ,7.6209e+02 ,7.4126e+02 ,7.1874e+02 ,6.9540e+02 /) - kbo(:,39,12) = (/ & - &7.8648e+02 ,7.6857e+02 ,7.4796e+02 ,7.2542e+02 ,7.0198e+02 /) - kbo(:,40,12) = (/ & - &7.9353e+02 ,7.7637e+02 ,7.5617e+02 ,7.3391e+02 ,7.1045e+02 /) - kbo(:,41,12) = (/ & - &7.9989e+02 ,7.8377e+02 ,7.6410e+02 ,7.4214e+02 ,7.1879e+02 /) - kbo(:,42,12) = (/ & - &8.0558e+02 ,7.9048e+02 ,7.7152e+02 ,7.4994e+02 ,7.2677e+02 /) - kbo(:,43,12) = (/ & - &8.1116e+02 ,7.9747e+02 ,7.7955e+02 ,7.5862e+02 ,7.3574e+02 /) - kbo(:,44,12) = (/ & - &8.1607e+02 ,8.0410e+02 ,7.8744e+02 ,7.6731e+02 ,7.4497e+02 /) - kbo(:,45,12) = (/ & - &8.1994e+02 ,8.0997e+02 ,7.9477e+02 ,7.7561e+02 ,7.5385e+02 /) - kbo(:,46,12) = (/ & - &8.2292e+02 ,8.1527e+02 ,8.0168e+02 ,7.8384e+02 ,7.6285e+02 /) - kbo(:,47,12) = (/ & - &8.2480e+02 ,8.1993e+02 ,8.0858e+02 ,7.9229e+02 ,7.7235e+02 /) - kbo(:,48,12) = (/ & - &8.2522e+02 ,8.2345e+02 ,8.1455e+02 ,8.0002e+02 ,7.8135e+02 /) - kbo(:,49,12) = (/ & - &8.2404e+02 ,8.2558e+02 ,8.1941e+02 ,8.0697e+02 ,7.8982e+02 /) - kbo(:,50,12) = (/ & - &8.2131e+02 ,8.2647e+02 ,8.2301e+02 ,8.1277e+02 ,7.9722e+02 /) - kbo(:,51,12) = (/ & - &8.1699e+02 ,8.2604e+02 ,8.2550e+02 ,8.1759e+02 ,8.0380e+02 /) - kbo(:,52,12) = (/ & - &8.1118e+02 ,8.2427e+02 ,8.2691e+02 ,8.2151e+02 ,8.0969e+02 /) - kbo(:,53,12) = (/ & - &8.0369e+02 ,8.2099e+02 ,8.2725e+02 ,8.2455e+02 ,8.1493e+02 /) - kbo(:,54,12) = (/ & - &7.9519e+02 ,8.1662e+02 ,8.2647e+02 ,8.2649e+02 ,8.1904e+02 /) - kbo(:,55,12) = (/ & - &7.8525e+02 ,8.1122e+02 ,8.2466e+02 ,8.2753e+02 ,8.2231e+02 /) - kbo(:,56,12) = (/ & - &7.7348e+02 ,8.0460e+02 ,8.2163e+02 ,8.2776e+02 ,8.2487e+02 /) - kbo(:,57,12) = (/ & - &7.5991e+02 ,7.9652e+02 ,8.1752e+02 ,8.2701e+02 ,8.2675e+02 /) - kbo(:,58,12) = (/ & - &7.4511e+02 ,7.8730e+02 ,8.1251e+02 ,8.2536e+02 ,8.2776e+02 /) - kbo(:,59,12) = (/ & - &7.3866e+02 ,7.8320e+02 ,8.1026e+02 ,8.2449e+02 ,8.2800e+02 /) - kbo(:,13,13) = (/ & - &2.0724e+02 ,2.0318e+02 ,2.0003e+02 ,1.9694e+02 ,1.9365e+02 /) - kbo(:,14,13) = (/ & - &2.3785e+02 ,2.3358e+02 ,2.2976e+02 ,2.2561e+02 ,2.2123e+02 /) - kbo(:,15,13) = (/ & - &2.7371e+02 ,2.6880e+02 ,2.6365e+02 ,2.5854e+02 ,2.5349e+02 /) - kbo(:,16,13) = (/ & - &3.1341e+02 ,3.0766e+02 ,3.0218e+02 ,2.9651e+02 ,2.9050e+02 /) - kbo(:,17,13) = (/ & - &3.5823e+02 ,3.5167e+02 ,3.4512e+02 ,3.3848e+02 ,3.3144e+02 /) - kbo(:,18,13) = (/ & - &4.0795e+02 ,4.0075e+02 ,3.9354e+02 ,3.8585e+02 ,3.7775e+02 /) - kbo(:,19,13) = (/ & - &4.6454e+02 ,4.5636e+02 ,4.4761e+02 ,4.3852e+02 ,4.2883e+02 /) - kbo(:,20,13) = (/ & - &5.2670e+02 ,5.1674e+02 ,5.0627e+02 ,4.9500e+02 ,4.8317e+02 /) - kbo(:,21,13) = (/ & - &5.9234e+02 ,5.8071e+02 ,5.6797e+02 ,5.5430e+02 ,5.3997e+02 /) - kbo(:,22,13) = (/ & - &6.5952e+02 ,6.4514e+02 ,6.2980e+02 ,6.1347e+02 ,5.9629e+02 /) - kbo(:,23,13) = (/ & - &7.2668e+02 ,7.0946e+02 ,6.9096e+02 ,6.7135e+02 ,6.5090e+02 /) - kbo(:,24,13) = (/ & - &7.9179e+02 ,7.7144e+02 ,7.4939e+02 ,7.2625e+02 ,7.0273e+02 /) - kbo(:,25,13) = (/ & - &8.5340e+02 ,8.2954e+02 ,8.0385e+02 ,7.7737e+02 ,7.5044e+02 /) - kbo(:,26,13) = (/ & - &9.1011e+02 ,8.8231e+02 ,8.5326e+02 ,8.2331e+02 ,7.9319e+02 /) - kbo(:,27,13) = (/ & - &9.6106e+02 ,9.2973e+02 ,8.9712e+02 ,8.6391e+02 ,8.3062e+02 /) - kbo(:,28,13) = (/ & - &1.0059e+03 ,9.7091e+02 ,9.3507e+02 ,8.9869e+02 ,8.6233e+02 /) - kbo(:,29,13) = (/ & - &1.0437e+03 ,1.0055e+03 ,9.6641e+02 ,9.2715e+02 ,8.8802e+02 /) - kbo(:,30,13) = (/ & - &1.0747e+03 ,1.0334e+03 ,9.9156e+02 ,9.4965e+02 ,9.0810e+02 /) - kbo(:,31,13) = (/ & - &1.0990e+03 ,1.0548e+03 ,1.0106e+03 ,9.6642e+02 ,9.2291e+02 /) - kbo(:,32,13) = (/ & - &1.1170e+03 ,1.0705e+03 ,1.0242e+03 ,9.7810e+02 ,9.3290e+02 /) - kbo(:,33,13) = (/ & - &1.1295e+03 ,1.0810e+03 ,1.0329e+03 ,9.8524e+02 ,9.3872e+02 /) - kbo(:,34,13) = (/ & - &1.1390e+03 ,1.0889e+03 ,1.0392e+03 ,9.9037e+02 ,9.4276e+02 /) - kbo(:,35,13) = (/ & - &1.1495e+03 ,1.0980e+03 ,1.0471e+03 ,9.9723e+02 ,9.4859e+02 /) - kbo(:,36,13) = (/ & - &1.1627e+03 ,1.1100e+03 ,1.0580e+03 ,1.0071e+03 ,9.5754e+02 /) - kbo(:,37,13) = (/ & - &1.1817e+03 ,1.1279e+03 ,1.0749e+03 ,1.0229e+03 ,9.7232e+02 /) - kbo(:,38,13) = (/ & - &1.1995e+03 ,1.1446e+03 ,1.0907e+03 ,1.0378e+03 ,9.8626e+02 /) - kbo(:,39,13) = (/ & - &1.2156e+03 ,1.1601e+03 ,1.1053e+03 ,1.0516e+03 ,9.9926e+02 /) - kbo(:,40,13) = (/ & - &1.2364e+03 ,1.1800e+03 ,1.1244e+03 ,1.0699e+03 ,1.0167e+03 /) - kbo(:,41,13) = (/ & - &1.2568e+03 ,1.1999e+03 ,1.1435e+03 ,1.0883e+03 ,1.0343e+03 /) - kbo(:,42,13) = (/ & - &1.2764e+03 ,1.2191e+03 ,1.1621e+03 ,1.1062e+03 ,1.0515e+03 /) - kbo(:,43,13) = (/ & - &1.2983e+03 ,1.2411e+03 ,1.1834e+03 ,1.1268e+03 ,1.0715e+03 /) - kbo(:,44,13) = (/ & - &1.3210e+03 ,1.2639e+03 ,1.2059e+03 ,1.1485e+03 ,1.0925e+03 /) - kbo(:,45,13) = (/ & - &1.3430e+03 ,1.2862e+03 ,1.2280e+03 ,1.1702e+03 ,1.1134e+03 /) - kbo(:,46,13) = (/ & - &1.3658e+03 ,1.3092e+03 ,1.2511e+03 ,1.1929e+03 ,1.1355e+03 /) - kbo(:,47,13) = (/ & - &1.3902e+03 ,1.3342e+03 ,1.2766e+03 ,1.2180e+03 ,1.1600e+03 /) - kbo(:,48,13) = (/ & - &1.4137e+03 ,1.3587e+03 ,1.3015e+03 ,1.2430e+03 ,1.1845e+03 /) - kbo(:,49,13) = (/ & - &1.4360e+03 ,1.3827e+03 ,1.3260e+03 ,1.2679e+03 ,1.2090e+03 /) - kbo(:,50,13) = (/ & - &1.4561e+03 ,1.4046e+03 ,1.3487e+03 ,1.2910e+03 ,1.2321e+03 /) - kbo(:,51,13) = (/ & - &1.4745e+03 ,1.4251e+03 ,1.3704e+03 ,1.3131e+03 ,1.2546e+03 /) - kbo(:,52,13) = (/ & - &1.4914e+03 ,1.4448e+03 ,1.3917e+03 ,1.3349e+03 ,1.2767e+03 /) - kbo(:,53,13) = (/ & - &1.5066e+03 ,1.4635e+03 ,1.4124e+03 ,1.3565e+03 ,1.2987e+03 /) - kbo(:,54,13) = (/ & - &1.5189e+03 ,1.4798e+03 ,1.4307e+03 ,1.3761e+03 ,1.3187e+03 /) - kbo(:,55,13) = (/ & - &1.5296e+03 ,1.4942e+03 ,1.4476e+03 ,1.3946e+03 ,1.3376e+03 /) - kbo(:,56,13) = (/ & - &1.5385e+03 ,1.5073e+03 ,1.4637e+03 ,1.4124e+03 ,1.3564e+03 /) - kbo(:,57,13) = (/ & - &1.5454e+03 ,1.5190e+03 ,1.4793e+03 ,1.4298e+03 ,1.3750e+03 /) - kbo(:,58,13) = (/ & - &1.5501e+03 ,1.5291e+03 ,1.4929e+03 ,1.4457e+03 ,1.3924e+03 /) - kbo(:,59,13) = (/ & - &1.5515e+03 ,1.5328e+03 ,1.4982e+03 ,1.4521e+03 ,1.3993e+03 /) - kbo(:,13,14) = (/ & - &2.5226e+02 ,2.4628e+02 ,2.3949e+02 ,2.3300e+02 ,2.2711e+02 /) - kbo(:,14,14) = (/ & - &2.8391e+02 ,2.7613e+02 ,2.6825e+02 ,2.6100e+02 ,2.5461e+02 /) - kbo(:,15,14) = (/ & - &3.2054e+02 ,3.1155e+02 ,3.0330e+02 ,2.9588e+02 ,2.8901e+02 /) - kbo(:,16,14) = (/ & - &3.6563e+02 ,3.5616e+02 ,3.4734e+02 ,3.3914e+02 ,3.3106e+02 /) - kbo(:,17,14) = (/ & - &4.2096e+02 ,4.1081e+02 ,4.0125e+02 ,3.9214e+02 ,3.8323e+02 /) - kbo(:,18,14) = (/ & - &4.8740e+02 ,4.7626e+02 ,4.6528e+02 ,4.5466e+02 ,4.4412e+02 /) - kbo(:,19,14) = (/ & - &5.6419e+02 ,5.5097e+02 ,5.3827e+02 ,5.2557e+02 ,5.1276e+02 /) - kbo(:,20,14) = (/ & - &6.5011e+02 ,6.3415e+02 ,6.1868e+02 ,6.0321e+02 ,5.8733e+02 /) - kbo(:,21,14) = (/ & - &7.4435e+02 ,7.2484e+02 ,7.0550e+02 ,6.8621e+02 ,6.6643e+02 /) - kbo(:,22,14) = (/ & - &8.4421e+02 ,8.2013e+02 ,7.9603e+02 ,7.7185e+02 ,7.4730e+02 /) - kbo(:,23,14) = (/ & - &9.4857e+02 ,9.1895e+02 ,8.8918e+02 ,8.5916e+02 ,8.2913e+02 /) - kbo(:,24,14) = (/ & - &1.0549e+03 ,1.0183e+03 ,9.8186e+02 ,9.4534e+02 ,9.0882e+02 /) - kbo(:,25,14) = (/ & - &1.1590e+03 ,1.1145e+03 ,1.0708e+03 ,1.0270e+03 ,9.8371e+02 /) - kbo(:,26,14) = (/ & - &1.2562e+03 ,1.2038e+03 ,1.1521e+03 ,1.1010e+03 ,1.0508e+03 /) - kbo(:,27,14) = (/ & - &1.3447e+03 ,1.2836e+03 ,1.2238e+03 ,1.1655e+03 ,1.1088e+03 /) - kbo(:,28,14) = (/ & - &1.4217e+03 ,1.3523e+03 ,1.2847e+03 ,1.2199e+03 ,1.1573e+03 /) - kbo(:,29,14) = (/ & - &1.4859e+03 ,1.4088e+03 ,1.3346e+03 ,1.2639e+03 ,1.1961e+03 /) - kbo(:,30,14) = (/ & - &1.5380e+03 ,1.4539e+03 ,1.3740e+03 ,1.2981e+03 ,1.2259e+03 /) - kbo(:,31,14) = (/ & - &1.5776e+03 ,1.4880e+03 ,1.4031e+03 ,1.3231e+03 ,1.2472e+03 /) - kbo(:,32,14) = (/ & - &1.6062e+03 ,1.5119e+03 ,1.4231e+03 ,1.3398e+03 ,1.2610e+03 /) - kbo(:,33,14) = (/ & - &1.6248e+03 ,1.5270e+03 ,1.4353e+03 ,1.3494e+03 ,1.2686e+03 /) - kbo(:,34,14) = (/ & - &1.6386e+03 ,1.5378e+03 ,1.4439e+03 ,1.3560e+03 ,1.2737e+03 /) - kbo(:,35,14) = (/ & - &1.6557e+03 ,1.5522e+03 ,1.4559e+03 ,1.3661e+03 ,1.2821e+03 /) - kbo(:,36,14) = (/ & - &1.6790e+03 ,1.5727e+03 ,1.4740e+03 ,1.3819e+03 ,1.2962e+03 /) - kbo(:,37,14) = (/ & - &1.7154e+03 ,1.6055e+03 ,1.5035e+03 ,1.4086e+03 ,1.3204e+03 /) - kbo(:,38,14) = (/ & - &1.7499e+03 ,1.6367e+03 ,1.5316e+03 ,1.4342e+03 ,1.3436e+03 /) - kbo(:,39,14) = (/ & - &1.7821e+03 ,1.6659e+03 ,1.5579e+03 ,1.4580e+03 ,1.3653e+03 /) - kbo(:,40,14) = (/ & - &1.8250e+03 ,1.7051e+03 ,1.5937e+03 ,1.4906e+03 ,1.3951e+03 /) - kbo(:,41,14) = (/ & - &1.8687e+03 ,1.7449e+03 ,1.6302e+03 ,1.5239e+03 ,1.4257e+03 /) - kbo(:,42,14) = (/ & - &1.9118e+03 ,1.7843e+03 ,1.6662e+03 ,1.5570e+03 ,1.4560e+03 /) - kbo(:,43,14) = (/ & - &1.9625e+03 ,1.8305e+03 ,1.7087e+03 ,1.5959e+03 ,1.4917e+03 /) - kbo(:,44,14) = (/ & - &2.0169e+03 ,1.8802e+03 ,1.7544e+03 ,1.6379e+03 ,1.5302e+03 /) - kbo(:,45,14) = (/ & - &2.0719e+03 ,1.9306e+03 ,1.8005e+03 ,1.6804e+03 ,1.5693e+03 /) - kbo(:,46,14) = (/ & - &2.1310e+03 ,1.9850e+03 ,1.8502e+03 ,1.7262e+03 ,1.6114e+03 /) - kbo(:,47,14) = (/ & - &2.1977e+03 ,2.0465e+03 ,1.9066e+03 ,1.7781e+03 ,1.6592e+03 /) - kbo(:,48,14) = (/ & - &2.2663e+03 ,2.1096e+03 ,1.9646e+03 ,1.8312e+03 ,1.7082e+03 /) - kbo(:,49,14) = (/ & - &2.3369e+03 ,2.1743e+03 ,2.0243e+03 ,1.8859e+03 ,1.7586e+03 /) - kbo(:,50,14) = (/ & - &2.4050e+03 ,2.2366e+03 ,2.0818e+03 ,1.9387e+03 ,1.8071e+03 /) - kbo(:,51,14) = (/ & - &2.4725e+03 ,2.2988e+03 ,2.1390e+03 ,1.9914e+03 ,1.8554e+03 /) - kbo(:,52,14) = (/ & - &2.5415e+03 ,2.3629e+03 ,2.1974e+03 ,2.0453e+03 ,1.9050e+03 /) - kbo(:,53,14) = (/ & - &2.6121e+03 ,2.4283e+03 ,2.2576e+03 ,2.1009e+03 ,1.9561e+03 /) - kbo(:,54,14) = (/ & - &2.6782e+03 ,2.4899e+03 ,2.3146e+03 ,2.1531e+03 ,2.0043e+03 /) - kbo(:,55,14) = (/ & - &2.7428e+03 ,2.5502e+03 ,2.3706e+03 ,2.2044e+03 ,2.0516e+03 /) - kbo(:,56,14) = (/ & - &2.8087e+03 ,2.6116e+03 ,2.4275e+03 ,2.2567e+03 ,2.0999e+03 /) - kbo(:,57,14) = (/ & - &2.8759e+03 ,2.6742e+03 ,2.4859e+03 ,2.3106e+03 ,2.1494e+03 /) - kbo(:,58,14) = (/ & - &2.9406e+03 ,2.7347e+03 ,2.5423e+03 ,2.3630e+03 ,2.1974e+03 /) - kbo(:,59,14) = (/ & - &2.9672e+03 ,2.7595e+03 ,2.5656e+03 ,2.3846e+03 ,2.2171e+03 /) - kbo(:,13,15) = (/ & - &3.0519e+02 ,3.0114e+02 ,2.9666e+02 ,2.9142e+02 ,2.8521e+02 /) - kbo(:,14,15) = (/ & - &3.4479e+02 ,3.4114e+02 ,3.3631e+02 ,3.3085e+02 ,3.2433e+02 /) - kbo(:,15,15) = (/ & - &3.8993e+02 ,3.8674e+02 ,3.8200e+02 ,3.7573e+02 ,3.6825e+02 /) - kbo(:,16,15) = (/ & - &4.4412e+02 ,4.3994e+02 ,4.3428e+02 ,4.2699e+02 ,4.1897e+02 /) - kbo(:,17,15) = (/ & - &5.0918e+02 ,5.0358e+02 ,4.9594e+02 ,4.8667e+02 ,4.7654e+02 /) - kbo(:,18,15) = (/ & - &5.8800e+02 ,5.7963e+02 ,5.6899e+02 ,5.5650e+02 ,5.4319e+02 /) - kbo(:,19,15) = (/ & - &6.8137e+02 ,6.6869e+02 ,6.5385e+02 ,6.3714e+02 ,6.1975e+02 /) - kbo(:,20,15) = (/ & - &7.8942e+02 ,7.7129e+02 ,7.5076e+02 ,7.2873e+02 ,7.0666e+02 /) - kbo(:,21,15) = (/ & - &9.1222e+02 ,8.8683e+02 ,8.5955e+02 ,8.3129e+02 ,8.0321e+02 /) - kbo(:,22,15) = (/ & - &1.0462e+03 ,1.0122e+03 ,9.7665e+02 ,9.4080e+02 ,9.0511e+02 /) - kbo(:,23,15) = (/ & - &1.1896e+03 ,1.1445e+03 ,1.0990e+03 ,1.0540e+03 ,1.0094e+03 /) - kbo(:,24,15) = (/ & - &1.3365e+03 ,1.2790e+03 ,1.2222e+03 ,1.1664e+03 ,1.1117e+03 /) - kbo(:,25,15) = (/ & - &1.4807e+03 ,1.4091e+03 ,1.3391e+03 ,1.2717e+03 ,1.2073e+03 /) - kbo(:,26,15) = (/ & - &1.6156e+03 ,1.5289e+03 ,1.4461e+03 ,1.3673e+03 ,1.2929e+03 /) - kbo(:,27,15) = (/ & - &1.7387e+03 ,1.6377e+03 ,1.5427e+03 ,1.4535e+03 ,1.3699e+03 /) - kbo(:,28,15) = (/ & - &1.8481e+03 ,1.7337e+03 ,1.6274e+03 ,1.5282e+03 ,1.4358e+03 /) - kbo(:,29,15) = (/ & - &1.9406e+03 ,1.8143e+03 ,1.6975e+03 ,1.5890e+03 ,1.4891e+03 /) - kbo(:,30,15) = (/ & - &2.0157e+03 ,1.8789e+03 ,1.7529e+03 ,1.6367e+03 ,1.5303e+03 /) - kbo(:,31,15) = (/ & - &2.0726e+03 ,1.9271e+03 ,1.7935e+03 ,1.6714e+03 ,1.5596e+03 /) - kbo(:,32,15) = (/ & - &2.1128e+03 ,1.9603e+03 ,1.8210e+03 ,1.6943e+03 ,1.5785e+03 /) - kbo(:,33,15) = (/ & - &2.1379e+03 ,1.9802e+03 ,1.8368e+03 ,1.7069e+03 ,1.5884e+03 /) - kbo(:,34,15) = (/ & - &2.1559e+03 ,1.9943e+03 ,1.8478e+03 ,1.7154e+03 ,1.5948e+03 /) - kbo(:,35,15) = (/ & - &2.1801e+03 ,2.0143e+03 ,1.8645e+03 ,1.7293e+03 ,1.6063e+03 /) - kbo(:,36,15) = (/ & - &2.2153e+03 ,2.0448e+03 ,1.8906e+03 ,1.7519e+03 ,1.6260e+03 /) - kbo(:,37,15) = (/ & - &2.2726e+03 ,2.0949e+03 ,1.9348e+03 ,1.7908e+03 ,1.6606e+03 /) - kbo(:,38,15) = (/ & - &2.3276e+03 ,2.1431e+03 ,1.9773e+03 ,1.8285e+03 ,1.6940e+03 /) - kbo(:,39,15) = (/ & - &2.3794e+03 ,2.1884e+03 ,2.0174e+03 ,1.8638e+03 ,1.7255e+03 /) - kbo(:,40,15) = (/ & - &2.4500e+03 ,2.2506e+03 ,2.0727e+03 ,1.9128e+03 ,1.7693e+03 /) - kbo(:,41,15) = (/ & - &2.5230e+03 ,2.3148e+03 ,2.1296e+03 ,1.9633e+03 ,1.8145e+03 /) - kbo(:,42,15) = (/ & - &2.5961e+03 ,2.3790e+03 ,2.1863e+03 ,2.0139e+03 ,1.8595e+03 /) - kbo(:,43,15) = (/ & - &2.6832e+03 ,2.4556e+03 ,2.2539e+03 ,2.0744e+03 ,1.9133e+03 /) - kbo(:,44,15) = (/ & - &2.7787e+03 ,2.5394e+03 ,2.3280e+03 ,2.1403e+03 ,1.9719e+03 /) - kbo(:,45,15) = (/ & - &2.8773e+03 ,2.6257e+03 ,2.4039e+03 ,2.2077e+03 ,2.0320e+03 /) - kbo(:,46,15) = (/ & - &2.9856e+03 ,2.7201e+03 ,2.4871e+03 ,2.2811e+03 ,2.0978e+03 /) - kbo(:,47,15) = (/ & - &3.1115e+03 ,2.8292e+03 ,2.5830e+03 ,2.3659e+03 ,2.1733e+03 /) - kbo(:,48,15) = (/ & - &3.2432e+03 ,2.9440e+03 ,2.6832e+03 ,2.4542e+03 ,2.2517e+03 /) - kbo(:,49,15) = (/ & - &3.3819e+03 ,3.0648e+03 ,2.7882e+03 ,2.5466e+03 ,2.3333e+03 /) - kbo(:,50,15) = (/ & - &3.5188e+03 ,3.1840e+03 ,2.8918e+03 ,2.6374e+03 ,2.4134e+03 /) - kbo(:,51,15) = (/ & - &3.6589e+03 ,3.3051e+03 ,2.9974e+03 ,2.7291e+03 ,2.4943e+03 /) - kbo(:,52,15) = (/ & - &3.8062e+03 ,3.4317e+03 ,3.1077e+03 ,2.8252e+03 ,2.5787e+03 /) - kbo(:,53,15) = (/ & - &3.9623e+03 ,3.5652e+03 ,3.2237e+03 ,2.9261e+03 ,2.6671e+03 /) - kbo(:,54,15) = (/ & - &4.1133e+03 ,3.6940e+03 ,3.3349e+03 ,3.0230e+03 ,2.7515e+03 /) - kbo(:,55,15) = (/ & - &4.2651e+03 ,3.8236e+03 ,3.4464e+03 ,3.1202e+03 ,2.8359e+03 /) - kbo(:,56,15) = (/ & - &4.4246e+03 ,3.9598e+03 ,3.5625e+03 ,3.2212e+03 ,2.9236e+03 /) - kbo(:,57,15) = (/ & - &4.5926e+03 ,4.1026e+03 ,3.6846e+03 ,3.3264e+03 ,3.0154e+03 /) - kbo(:,58,15) = (/ & - &4.7612e+03 ,4.2446e+03 ,3.8056e+03 ,3.4306e+03 ,3.1063e+03 /) - kbo(:,59,15) = (/ & - &4.8322e+03 ,4.3040e+03 ,3.8565e+03 ,3.4742e+03 ,3.1440e+03 /) - kbo(:,13,16) = (/ & - &3.6471e+02 ,3.5203e+02 ,3.4366e+02 ,3.3754e+02 ,3.3391e+02 /) - kbo(:,14,16) = (/ & - &4.3205e+02 ,4.1910e+02 ,4.0949e+02 ,4.0181e+02 ,3.9611e+02 /) - kbo(:,15,16) = (/ & - &5.1076e+02 ,4.9691e+02 ,4.8535e+02 ,4.7583e+02 ,4.6772e+02 /) - kbo(:,16,16) = (/ & - &6.0124e+02 ,5.8532e+02 ,5.7134e+02 ,5.5921e+02 ,5.4786e+02 /) - kbo(:,17,16) = (/ & - &7.0293e+02 ,6.8353e+02 ,6.6658e+02 ,6.5132e+02 ,6.3843e+02 /) - kbo(:,18,16) = (/ & - &8.1350e+02 ,7.9054e+02 ,7.7108e+02 ,7.5418e+02 ,7.3825e+02 /) - kbo(:,19,16) = (/ & - &9.3232e+02 ,9.0753e+02 ,8.8580e+02 ,8.6501e+02 ,8.4456e+02 /) - kbo(:,20,16) = (/ & - &1.0608e+03 ,1.0329e+03 ,1.0063e+03 ,9.8009e+02 ,9.5395e+02 /) - kbo(:,21,16) = (/ & - &1.1958e+03 ,1.1622e+03 ,1.1292e+03 ,1.0962e+03 ,1.0633e+03 /) - kbo(:,22,16) = (/ & - &1.3311e+03 ,1.2897e+03 ,1.2482e+03 ,1.2072e+03 ,1.1676e+03 /) - kbo(:,23,16) = (/ & - &1.4683e+03 ,1.4174e+03 ,1.3670e+03 ,1.3170e+03 ,1.2708e+03 /) - kbo(:,24,16) = (/ & - &1.6081e+03 ,1.5439e+03 ,1.4829e+03 ,1.4263e+03 ,1.3726e+03 /) - kbo(:,25,16) = (/ & - &1.7506e+03 ,1.6769e+03 ,1.6089e+03 ,1.5421e+03 ,1.4771e+03 /) - kbo(:,26,16) = (/ & - &1.9057e+03 ,1.8182e+03 ,1.7345e+03 ,1.6548e+03 ,1.5773e+03 /) - kbo(:,27,16) = (/ & - &2.0569e+03 ,1.9520e+03 ,1.8523e+03 ,1.7577e+03 ,1.6669e+03 /) - kbo(:,28,16) = (/ & - &2.1937e+03 ,2.0714e+03 ,1.9558e+03 ,1.8469e+03 ,1.7437e+03 /) - kbo(:,29,16) = (/ & - &2.3109e+03 ,2.1712e+03 ,2.0410e+03 ,1.9197e+03 ,1.8067e+03 /) - kbo(:,30,16) = (/ & - &2.4059e+03 ,2.2511e+03 ,2.1086e+03 ,1.9768e+03 ,1.8554e+03 /) - kbo(:,31,16) = (/ & - &2.4785e+03 ,2.3110e+03 ,2.1586e+03 ,2.0181e+03 ,1.8908e+03 /) - kbo(:,32,16) = (/ & - &2.5298e+03 ,2.3528e+03 ,2.1923e+03 ,2.0454e+03 ,1.9136e+03 /) - kbo(:,33,16) = (/ & - &2.5622e+03 ,2.3783e+03 ,2.2119e+03 ,2.0610e+03 ,1.9258e+03 /) - kbo(:,34,16) = (/ & - &2.5858e+03 ,2.3964e+03 ,2.2256e+03 ,2.0716e+03 ,1.9341e+03 /) - kbo(:,35,16) = (/ & - &2.6161e+03 ,2.4209e+03 ,2.2454e+03 ,2.0882e+03 ,1.9479e+03 /) - kbo(:,36,16) = (/ & - &2.6591e+03 ,2.4573e+03 ,2.2765e+03 ,2.1149e+03 ,1.9709e+03 /) - kbo(:,37,16) = (/ & - &2.7282e+03 ,2.5168e+03 ,2.3287e+03 ,2.1606e+03 ,2.0108e+03 /) - kbo(:,38,16) = (/ & - &2.7948e+03 ,2.5745e+03 ,2.3791e+03 ,2.2045e+03 ,2.0494e+03 /) - kbo(:,39,16) = (/ & - &2.8577e+03 ,2.6290e+03 ,2.4266e+03 ,2.2455e+03 ,2.0858e+03 /) - kbo(:,40,16) = (/ & - &2.9439e+03 ,2.7038e+03 ,2.4920e+03 ,2.3032e+03 ,2.1363e+03 /) - kbo(:,41,16) = (/ & - &3.0330e+03 ,2.7810e+03 ,2.5596e+03 ,2.3632e+03 ,2.1888e+03 /) - kbo(:,42,16) = (/ & - &3.1221e+03 ,2.8586e+03 ,2.6274e+03 ,2.4230e+03 ,2.2411e+03 /) - kbo(:,43,16) = (/ & - &3.2294e+03 ,2.9518e+03 ,2.6848e+03 ,2.4944e+03 ,2.3041e+03 /) - kbo(:,44,16) = (/ & - &3.3475e+03 ,3.0539e+03 ,2.7976e+03 ,2.5728e+03 ,2.3737e+03 /) - kbo(:,45,16) = (/ & - &3.4703e+03 ,3.1592e+03 ,2.8896e+03 ,2.6532e+03 ,2.4448e+03 /) - kbo(:,46,16) = (/ & - &3.6062e+03 ,3.2757e+03 ,2.9905e+03 ,2.7415e+03 ,2.5226e+03 /) - kbo(:,47,16) = (/ & - &3.7659e+03 ,3.4109e+03 ,3.1077e+03 ,2.8434e+03 ,2.6124e+03 /) - kbo(:,48,16) = (/ & - &3.9357e+03 ,3.5542e+03 ,3.2307e+03 ,2.9507e+03 ,2.7060e+03 /) - kbo(:,49,16) = (/ & - &4.1183e+03 ,3.7067e+03 ,3.3602e+03 ,3.0634e+03 ,2.8046e+03 /) - kbo(:,50,16) = (/ & - &4.3018e+03 ,3.8593e+03 ,3.4893e+03 ,3.1743e+03 ,2.9010e+03 /) - kbo(:,51,16) = (/ & - &4.4921e+03 ,4.0168e+03 ,3.6208e+03 ,3.2876e+03 ,3.0000e+03 /) - kbo(:,52,16) = (/ & - &4.6953e+03 ,4.1848e+03 ,3.7620e+03 ,3.4065e+03 ,3.1029e+03 /) - kbo(:,53,16) = (/ & - &4.9149e+03 ,4.3644e+03 ,3.9107e+03 ,3.5325e+03 ,3.2110e+03 /) - kbo(:,54,16) = (/ & - &5.1330e+03 ,4.5400e+03 ,4.0560e+03 ,3.6544e+03 ,3.3151e+03 /) - kbo(:,55,16) = (/ & - &5.3615e+03 ,4.7192e+03 ,4.2041e+03 ,3.7779e+03 ,3.4198e+03 /) - kbo(:,56,16) = (/ & - &5.6061e+03 ,4.9107e+03 ,4.3608e+03 ,3.9074e+03 ,3.5296e+03 /) - kbo(:,57,16) = (/ & - &5.8683e+03 ,5.1170e+03 ,4.5267e+03 ,4.0448e+03 ,3.6452e+03 /) - kbo(:,58,16) = (/ & - &6.1353e+03 ,5.3291e+03 ,4.6942e+03 ,4.1832e+03 ,3.7603e+03 /) - kbo(:,59,16) = (/ & - &6.2495e+03 ,5.4200e+03 ,4.7647e+03 ,4.2413e+03 ,3.8086e+03 /) - -! The array KAO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level below 100~ mb. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. The second index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The third index -! runs over the g-channel (1 to 16). - - kao_mco2( 1, :, 1) = (/ & - & 7.38630e-06 , 8.97432e-06 , 1.09037e-05 , 1.32480e-05 , 1.60963e-05 , & - & 1.95569e-05 , 2.37615e-05 , 2.88701e-05 , 3.50770e-05 , 4.26184e-05 , & - & 5.17811e-05 , 6.29138e-05 , 7.64400e-05 , 9.28742e-05 , 1.12842e-04 , & - & 1.37102e-04 , 1.66578e-04 , 2.02392e-04 , 2.45905e-04 /) - kao_mco2( 2, :, 1) = (/ & - & 7.03916e-06 , 8.58785e-06 , 1.04773e-05 , 1.27824e-05 , 1.55947e-05 , & - & 1.90257e-05 , 2.32115e-05 , 2.83183e-05 , 3.45487e-05 , 4.21498e-05 , & - & 5.14233e-05 , 6.27370e-05 , 7.65398e-05 , 9.33794e-05 , 1.13924e-04 , & - & 1.38989e-04 , 1.69568e-04 , 2.06874e-04 , 2.52389e-04 /) - kao_mco2( 3, :, 1) = (/ & - & 7.80015e-06 , 9.48520e-06 , 1.15343e-05 , 1.40260e-05 , 1.70560e-05 , & - & 2.07405e-05 , 2.52211e-05 , 3.06695e-05 , 3.72950e-05 , 4.53517e-05 , & - & 5.51489e-05 , 6.70626e-05 , 8.15499e-05 , 9.91670e-05 , 1.20590e-04 , & - & 1.46640e-04 , 1.78319e-04 , 2.16841e-04 , 2.63684e-04 /) - kao_mco2( 4, :, 1) = (/ & - & 9.24267e-06 , 1.11747e-05 , 1.35105e-05 , 1.63346e-05 , 1.97490e-05 , & - & 2.38771e-05 , 2.88682e-05 , 3.49025e-05 , 4.21981e-05 , 5.10188e-05 , & - & 6.16832e-05 , 7.45768e-05 , 9.01656e-05 , 1.09013e-04 , 1.31800e-04 , & - & 1.59350e-04 , 1.92659e-04 , 2.32930e-04 , 2.81619e-04 /) - kao_mco2( 5, :, 1) = (/ & - & 1.59506e-05 , 1.90078e-05 , 2.26509e-05 , 2.69923e-05 , 3.21658e-05 , & - & 3.83309e-05 , 4.56777e-05 , 5.44325e-05 , 6.48654e-05 , 7.72978e-05 , & - & 9.21132e-05 , 1.09768e-04 , 1.30807e-04 , 1.55878e-04 , 1.85755e-04 , & - & 2.21357e-04 , 2.63784e-04 , 3.14342e-04 , 3.74591e-04 /) - kao_mco2( 6, :, 1) = (/ & - & 3.53189e-05 , 4.14789e-05 , 4.87131e-05 , 5.72092e-05 , 6.71870e-05 , & - & 7.89050e-05 , 9.26667e-05 , 1.08829e-04 , 1.27809e-04 , 1.50100e-04 , & - & 1.76279e-04 , 2.07024e-04 , 2.43131e-04 , 2.85535e-04 , 3.35335e-04 , & - & 3.93821e-04 , 4.62507e-04 , 5.43172e-04 , 6.37906e-04 /) - kao_mco2( 7, :, 1) = (/ & - & 6.63273e-05 , 7.76356e-05 , 9.08718e-05 , 1.06365e-04 , 1.24499e-04 , & - & 1.45725e-04 , 1.70570e-04 , 1.99651e-04 , 2.33689e-04 , 2.73531e-04 , & - & 3.20166e-04 , 3.74752e-04 , 4.38644e-04 , 5.13429e-04 , 6.00964e-04 , & - & 7.03424e-04 , 8.23352e-04 , 9.63726e-04 , 1.12803e-03 /) - kao_mco2( 8, :, 1) = (/ & - & 9.01134e-05 , 1.05517e-04 , 1.23553e-04 , 1.44673e-04 , 1.69402e-04 , & - & 1.98359e-04 , 2.32265e-04 , 2.71967e-04 , 3.18456e-04 , 3.72890e-04 , & - & 4.36630e-04 , 5.11265e-04 , 5.98657e-04 , 7.00989e-04 , 8.20811e-04 , & - & 9.61116e-04 , 1.12540e-03 , 1.31777e-03 , 1.54302e-03 /) - kao_mco2( 9, :, 1) = (/ & - & 1.14205e-05 , 1.36364e-05 , 1.62823e-05 , 1.94416e-05 , 2.32139e-05 , & - & 2.77181e-05 , 3.30963e-05 , 3.95181e-05 , 4.71858e-05 , 5.63414e-05 , & - & 6.72734e-05 , 8.03266e-05 , 9.59124e-05 , 1.14523e-04 , 1.36743e-04 , & - & 1.63276e-04 , 1.94957e-04 , 2.32784e-04 , 2.77952e-04 /) - kao_mco2( 1, :, 2) = (/ & - & 2.01754e-05 , 2.40506e-05 , 2.86701e-05 , 3.41769e-05 , 4.07414e-05 , & - & 4.85668e-05 , 5.78953e-05 , 6.90155e-05 , 8.22717e-05 , 9.80739e-05 , & - & 1.16912e-04 , 1.39367e-04 , 1.66136e-04 , 1.98047e-04 , 2.36087e-04 , & - & 2.81433e-04 , 3.35489e-04 , 3.99928e-04 , 4.76744e-04 /) - kao_mco2( 2, :, 2) = (/ & - & 2.08613e-05 , 2.48759e-05 , 2.96631e-05 , 3.53716e-05 , 4.21786e-05 , & - & 5.02955e-05 , 5.99746e-05 , 7.15163e-05 , 8.52791e-05 , 1.01690e-04 , & - & 1.21260e-04 , 1.44596e-04 , 1.72422e-04 , 2.05604e-04 , 2.45171e-04 , & - & 2.92352e-04 , 3.48613e-04 , 4.15702e-04 , 4.95700e-04 /) - kao_mco2( 3, :, 2) = (/ & - & 2.06879e-05 , 2.47009e-05 , 2.94924e-05 , 3.52133e-05 , 4.20439e-05 , & - & 5.01995e-05 , 5.99372e-05 , 7.15637e-05 , 8.54456e-05 , 1.02020e-04 , & - & 1.21810e-04 , 1.45439e-04 , 1.73651e-04 , 2.07335e-04 , 2.47554e-04 , & - & 2.95574e-04 , 3.52909e-04 , 4.21366e-04 , 5.03102e-04 /) - kao_mco2( 4, :, 2) = (/ & - & 2.12700e-05 , 2.54064e-05 , 3.03472e-05 , 3.62490e-05 , 4.32984e-05 , & - & 5.17188e-05 , 6.17767e-05 , 7.37906e-05 , 8.81410e-05 , 1.05282e-04 , & - & 1.25757e-04 , 1.50213e-04 , 1.79425e-04 , 2.14319e-04 , 2.55998e-04 , & - & 3.05782e-04 , 3.65249e-04 , 4.36280e-04 , 5.21125e-04 /) - kao_mco2( 5, :, 2) = (/ & - & 1.88144e-05 , 2.25220e-05 , 2.69602e-05 , 3.22730e-05 , 3.86328e-05 , & - & 4.62458e-05 , 5.53591e-05 , 6.62682e-05 , 7.93271e-05 , 9.49594e-05 , & - & 1.13672e-04 , 1.36073e-04 , 1.62887e-04 , 1.94986e-04 , 2.33410e-04 , & - & 2.79406e-04 , 3.34467e-04 , 4.00377e-04 , 4.79275e-04 /) - kao_mco2( 6, :, 2) = (/ & - & 1.20964e-05 , 1.46021e-05 , 1.76268e-05 , 2.12780e-05 , 2.56856e-05 , & - & 3.10062e-05 , 3.74289e-05 , 4.51820e-05 , 5.45411e-05 , 6.58388e-05 , & - & 7.94769e-05 , 9.59399e-05 , 1.15813e-04 , 1.39803e-04 , 1.68762e-04 , & - & 2.03720e-04 , 2.45919e-04 , 2.96859e-04 , 3.58350e-04 /) - kao_mco2( 7, :, 2) = (/ & - & 3.07117e-05 , 3.64441e-05 , 4.32465e-05 , 5.13186e-05 , 6.08974e-05 , & - & 7.22642e-05 , 8.57525e-05 , 1.01758e-04 , 1.20752e-04 , 1.43291e-04 , & - & 1.70037e-04 , 2.01775e-04 , 2.39436e-04 , 2.84128e-04 , 3.37161e-04 , & - & 4.00094e-04 , 4.74773e-04 , 5.63391e-04 , 6.68549e-04 /) - kao_mco2( 8, :, 2) = (/ & - & 9.34077e-05 , 1.10481e-04 , 1.30675e-04 , 1.54559e-04 , 1.82810e-04 , & - & 2.16224e-04 , 2.55745e-04 , 3.02491e-04 , 3.57780e-04 , 4.23175e-04 , & - & 5.00523e-04 , 5.92009e-04 , 7.00217e-04 , 8.28203e-04 , 9.79582e-04 , & - & 1.15863e-03 , 1.37041e-03 , 1.62089e-03 , 1.91716e-03 /) - kao_mco2( 9, :, 2) = (/ & - & 1.15325e-05 , 1.37935e-05 , 1.64978e-05 , 1.97322e-05 , 2.36007e-05 , & - & 2.82277e-05 , 3.37618e-05 , 4.03808e-05 , 4.82976e-05 , 5.77664e-05 , & - & 6.90916e-05 , 8.26372e-05 , 9.88384e-05 , 1.18216e-04 , 1.41392e-04 , & - & 1.69113e-04 , 2.02267e-04 , 2.41922e-04 , 2.89352e-04 /) - kao_mco2( 1, :, 3) = (/ & - & 2.56142e-05 , 3.05385e-05 , 3.64096e-05 , 4.34093e-05 , 5.17547e-05 , & - & 6.17045e-05 , 7.35672e-05 , 8.77104e-05 , 1.04573e-04 , 1.24677e-04 , & - & 1.48646e-04 , 1.77223e-04 , 2.11294e-04 , 2.51915e-04 , 3.00346e-04 , & - & 3.58087e-04 , 4.26929e-04 , 5.09006e-04 , 6.06862e-04 /) - kao_mco2( 2, :, 3) = (/ & - & 2.49802e-05 , 2.98040e-05 , 3.55593e-05 , 4.24259e-05 , 5.06186e-05 , & - & 6.03932e-05 , 7.20554e-05 , 8.59696e-05 , 1.02571e-04 , 1.22377e-04 , & - & 1.46009e-04 , 1.74204e-04 , 2.07844e-04 , 2.47979e-04 , 2.95865e-04 , & - & 3.52998e-04 , 4.21163e-04 , 5.02491e-04 , 5.99524e-04 /) - kao_mco2( 3, :, 3) = (/ & - & 2.54644e-05 , 3.03959e-05 , 3.62825e-05 , 4.33091e-05 , 5.16965e-05 , & - & 6.17083e-05 , 7.36589e-05 , 8.79240e-05 , 1.04952e-04 , 1.25277e-04 , & - & 1.49539e-04 , 1.78499e-04 , 2.13068e-04 , 2.54331e-04 , 3.03586e-04 , & - & 3.62380e-04 , 4.32560e-04 , 5.16331e-04 , 6.16326e-04 /) - kao_mco2( 4, :, 3) = (/ & - & 2.55054e-05 , 3.04699e-05 , 3.64007e-05 , 4.34859e-05 , 5.19501e-05 , & - & 6.20619e-05 , 7.41418e-05 , 8.85731e-05 , 1.05813e-04 , 1.26409e-04 , & - & 1.51014e-04 , 1.80408e-04 , 2.15523e-04 , 2.57474e-04 , 3.07589e-04 , & - & 3.67459e-04 , 4.38983e-04 , 5.24428e-04 , 6.26505e-04 /) - kao_mco2( 5, :, 3) = (/ & - & 2.48615e-05 , 2.97398e-05 , 3.55754e-05 , 4.25560e-05 , 5.09064e-05 , & - & 6.08952e-05 , 7.28441e-05 , 8.71375e-05 , 1.04236e-04 , 1.24689e-04 , & - & 1.49155e-04 , 1.78423e-04 , 2.13433e-04 , 2.55313e-04 , 3.05410e-04 , & - & 3.65338e-04 , 4.37024e-04 , 5.22777e-04 , 6.25356e-04 /) - kao_mco2( 6, :, 3) = (/ & - & 2.09074e-05 , 2.50891e-05 , 3.01072e-05 , 3.61290e-05 , 4.33553e-05 , & - & 5.20269e-05 , 6.24329e-05 , 7.49202e-05 , 8.99051e-05 , 1.07887e-04 , & - & 1.29466e-04 , 1.55361e-04 , 1.86435e-04 , 2.23724e-04 , 2.68471e-04 , & - & 3.22169e-04 , 3.86607e-04 , 4.63933e-04 , 5.56725e-04 /) - kao_mco2( 7, :, 3) = (/ & - & 1.25163e-05 , 1.51688e-05 , 1.83835e-05 , 2.22795e-05 , 2.70011e-05 , & - & 3.27234e-05 , 3.96583e-05 , 4.80630e-05 , 5.82488e-05 , 7.05933e-05 , & - & 8.55539e-05 , 1.03685e-04 , 1.25659e-04 , 1.52289e-04 , 1.84563e-04 , & - & 2.23677e-04 , 2.71081e-04 , 3.28530e-04 , 3.98154e-04 /) - kao_mco2( 8, :, 3) = (/ & - & 1.00408e-04 , 1.20081e-04 , 1.43608e-04 , 1.71745e-04 , 2.05395e-04 , & - & 2.45637e-04 , 2.93765e-04 , 3.51322e-04 , 4.20156e-04 , 5.02476e-04 , & - & 6.00926e-04 , 7.18665e-04 , 8.59472e-04 , 1.02787e-03 , 1.22926e-03 , & - & 1.47010e-03 , 1.75814e-03 , 2.10261e-03 , 2.51457e-03 /) - kao_mco2( 9, :, 3) = (/ & - & 8.50402e-06 , 1.02737e-05 , 1.24116e-05 , 1.49945e-05 , 1.81148e-05 , & - & 2.18844e-05 , 2.64385e-05 , 3.19403e-05 , 3.85871e-05 , 4.66169e-05 , & - & 5.63178e-05 , 6.80375e-05 , 8.21959e-05 , 9.93008e-05 , 1.19965e-04 , & - & 1.44930e-04 , 1.75089e-04 , 2.11525e-04 , 2.55543e-04 /) - kao_mco2( 1, :, 4) = (/ & - & 2.68659e-05 , 3.20986e-05 , 3.83506e-05 , 4.58203e-05 , 5.47450e-05 , & - & 6.54078e-05 , 7.81476e-05 , 9.33687e-05 , 1.11555e-04 , 1.33282e-04 , & - & 1.59242e-04 , 1.90259e-04 , 2.27316e-04 , 2.71592e-04 , 3.24490e-04 , & - & 3.87693e-04 , 4.63206e-04 , 5.53426e-04 , 6.61218e-04 /) - kao_mco2( 2, :, 4) = (/ & - & 2.74827e-05 , 3.28460e-05 , 3.92560e-05 , 4.69169e-05 , 5.60728e-05 , & - & 6.70155e-05 , 8.00937e-05 , 9.57241e-05 , 1.14405e-04 , 1.36731e-04 , & - & 1.63415e-04 , 1.95305e-04 , 2.33419e-04 , 2.78972e-04 , 3.33413e-04 , & - & 3.98480e-04 , 4.76244e-04 , 5.69184e-04 , 6.80261e-04 /) - kao_mco2( 3, :, 4) = (/ & - & 2.84702e-05 , 3.40189e-05 , 4.06490e-05 , 4.85713e-05 , 5.80375e-05 , & - & 6.93487e-05 , 8.28644e-05 , 9.90142e-05 , 1.18312e-04 , 1.41370e-04 , & - & 1.68922e-04 , 2.01844e-04 , 2.41182e-04 , 2.88188e-04 , 3.44354e-04 , & - & 4.11466e-04 , 4.91659e-04 , 5.87481e-04 , 7.01977e-04 /) - kao_mco2( 4, :, 4) = (/ & - & 2.92293e-05 , 3.49243e-05 , 4.17289e-05 , 4.98593e-05 , 5.95738e-05 , & - & 7.11810e-05 , 8.50498e-05 , 1.01621e-04 , 1.21420e-04 , 1.45078e-04 , & - & 1.73344e-04 , 2.07119e-04 , 2.47473e-04 , 2.95690e-04 , 3.53302e-04 , & - & 4.22139e-04 , 5.04388e-04 , 6.02662e-04 , 7.20083e-04 /) - kao_mco2( 5, :, 4) = (/ & - & 2.88531e-05 , 3.45646e-05 , 4.14067e-05 , 4.96033e-05 , 5.94224e-05 , & - & 7.11851e-05 , 8.52764e-05 , 1.02157e-04 , 1.22379e-04 , 1.46604e-04 , & - & 1.75625e-04 , 2.10391e-04 , 2.52038e-04 , 3.01929e-04 , 3.61697e-04 , & - & 4.33295e-04 , 5.19067e-04 , 6.21818e-04 , 7.44908e-04 /) - kao_mco2( 6, :, 4) = (/ & - & 2.79869e-05 , 3.36885e-05 , 4.05516e-05 , 4.88130e-05 , 5.87574e-05 , & - & 7.07278e-05 , 8.51368e-05 , 1.02481e-04 , 1.23359e-04 , 1.48490e-04 , & - & 1.78742e-04 , 2.15156e-04 , 2.58988e-04 , 3.11751e-04 , 3.75262e-04 , & - & 4.51712e-04 , 5.43737e-04 , 6.54510e-04 , 7.87849e-04 /) - kao_mco2( 7, :, 4) = (/ & - & 1.45797e-05 , 1.78204e-05 , 2.17815e-05 , 2.66230e-05 , 3.25407e-05 , & - & 3.97737e-05 , 4.86145e-05 , 5.94203e-05 , 7.26281e-05 , 8.87715e-05 , & - & 1.08503e-04 , 1.32621e-04 , 1.62100e-04 , 1.98130e-04 , 2.42170e-04 , & - & 2.95999e-04 , 3.61792e-04 , 4.42210e-04 , 5.40503e-04 /) - kao_mco2( 8, :, 4) = (/ & - & 6.32607e-05 , 7.63420e-05 , 9.21282e-05 , 1.11179e-04 , 1.34169e-04 , & - & 1.61913e-04 , 1.95393e-04 , 2.35797e-04 , 2.84557e-04 , 3.43398e-04 , & - & 4.14407e-04 , 5.00100e-04 , 6.03512e-04 , 7.28308e-04 , 8.78909e-04 , & - & 1.06065e-03 , 1.27998e-03 , 1.54466e-03 , 1.86407e-03 /) - kao_mco2( 9, :, 4) = (/ & - & 1.52296e-05 , 1.84301e-05 , 2.23032e-05 , 2.69902e-05 , 3.26622e-05 , & - & 3.95261e-05 , 4.78324e-05 , 5.78844e-05 , 7.00487e-05 , 8.47694e-05 , & - & 1.02584e-04 , 1.24142e-04 , 1.50230e-04 , 1.81800e-04 , 2.20005e-04 , & - & 2.66239e-04 , 3.22190e-04 , 3.89897e-04 , 4.71833e-04 /) - kao_mco2( 1, :, 5) = (/ & - & 3.43213e-05 , 4.11301e-05 , 4.92896e-05 , 5.90679e-05 , 7.07860e-05 , & - & 8.48288e-05 , 1.01657e-04 , 1.21825e-04 , 1.45993e-04 , 1.74955e-04 , & - & 2.09663e-04 , 2.51257e-04 , 3.01103e-04 , 3.60837e-04 , 4.32421e-04 , & - & 5.18206e-04 , 6.21010e-04 , 7.44208e-04 , 8.91846e-04 /) - kao_mco2( 2, :, 5) = (/ & - & 3.14792e-05 , 3.79075e-05 , 4.56485e-05 , 5.49703e-05 , 6.61956e-05 , & - & 7.97133e-05 , 9.59914e-05 , 1.15594e-04 , 1.39199e-04 , 1.67624e-04 , & - & 2.01854e-04 , 2.43075e-04 , 2.92712e-04 , 3.52487e-04 , 4.24467e-04 , & - & 5.11147e-04 , 6.15527e-04 , 7.41222e-04 , 8.92585e-04 /) - kao_mco2( 3, :, 5) = (/ & - & 3.21655e-05 , 3.87990e-05 , 4.68006e-05 , 5.64523e-05 , 6.80945e-05 , & - & 8.21377e-05 , 9.90770e-05 , 1.19510e-04 , 1.44156e-04 , 1.73886e-04 , & - & 2.09746e-04 , 2.53002e-04 , 3.05179e-04 , 3.68117e-04 , 4.44033e-04 , & - & 5.35607e-04 , 6.46066e-04 , 7.79304e-04 , 9.40020e-04 /) - kao_mco2( 4, :, 5) = (/ & - & 3.22870e-05 , 3.89864e-05 , 4.70759e-05 , 5.68439e-05 , 6.86388e-05 , & - & 8.28810e-05 , 1.00078e-04 , 1.20844e-04 , 1.45919e-04 , 1.76196e-04 , & - & 2.12756e-04 , 2.56902e-04 , 3.10207e-04 , 3.74574e-04 , 4.52296e-04 , & - & 5.46146e-04 , 6.59468e-04 , 7.96304e-04 , 9.61533e-04 /) - kao_mco2( 5, :, 5) = (/ & - & 3.31190e-05 , 3.99528e-05 , 4.81967e-05 , 5.81417e-05 , 7.01387e-05 , & - & 8.46111e-05 , 1.02070e-04 , 1.23131e-04 , 1.48538e-04 , 1.79187e-04 , & - & 2.16161e-04 , 2.60764e-04 , 3.14570e-04 , 3.79479e-04 , 4.57781e-04 , & - & 5.52240e-04 , 6.66190e-04 , 8.03652e-04 , 9.69477e-04 /) - kao_mco2( 6, :, 5) = (/ & - & 3.31287e-05 , 3.99772e-05 , 4.82413e-05 , 5.82139e-05 , 7.02480e-05 , & - & 8.47698e-05 , 1.02294e-04 , 1.23440e-04 , 1.48958e-04 , 1.79750e-04 , & - & 2.16909e-04 , 2.61749e-04 , 3.15858e-04 , 3.81153e-04 , 4.59945e-04 , & - & 5.55026e-04 , 6.69762e-04 , 8.08216e-04 , 9.75292e-04 /) - kao_mco2( 7, :, 5) = (/ & - & 3.35235e-05 , 4.02832e-05 , 4.84061e-05 , 5.81668e-05 , 6.98958e-05 , & - & 8.39898e-05 , 1.00926e-04 , 1.21277e-04 , 1.45731e-04 , 1.75117e-04 , & - & 2.10428e-04 , 2.52860e-04 , 3.03847e-04 , 3.65116e-04 , 4.38739e-04 , & - & 5.27208e-04 , 6.33516e-04 , 7.61260e-04 , 9.14762e-04 /) - kao_mco2( 8, :, 5) = (/ & - & 3.57666e-05 , 4.27511e-05 , 5.10995e-05 , 6.10783e-05 , 7.30057e-05 , & - & 8.72622e-05 , 1.04303e-04 , 1.24671e-04 , 1.49017e-04 , 1.78117e-04 , & - & 2.12900e-04 , 2.54475e-04 , 3.04169e-04 , 3.63567e-04 , 4.34565e-04 , & - & 5.19427e-04 , 6.20861e-04 , 7.42103e-04 , 8.87020e-04 /) - kao_mco2( 9, :, 5) = (/ & - & 2.96349e-05 , 3.55202e-05 , 4.25743e-05 , 5.10292e-05 , 6.11633e-05 , & - & 7.33099e-05 , 8.78687e-05 , 1.05319e-04 , 1.26234e-04 , 1.51304e-04 , & - & 1.81352e-04 , 2.17367e-04 , 2.60534e-04 , 3.12275e-04 , 3.74290e-04 , & - & 4.48622e-04 , 5.37715e-04 , 6.44502e-04 , 7.72495e-04 /) - kao_mco2( 1, :, 6) = (/ & - & 4.14659e-05 , 4.98693e-05 , 5.99757e-05 , 7.21302e-05 , 8.67479e-05 , & - & 1.04328e-04 , 1.25471e-04 , 1.50899e-04 , 1.81479e-04 , 2.18257e-04 , & - & 2.62489e-04 , 3.15685e-04 , 3.79660e-04 , 4.56601e-04 , 5.49135e-04 , & - & 6.60422e-04 , 7.94261e-04 , 9.55224e-04 , 1.14881e-03 /) - kao_mco2( 2, :, 6) = (/ & - & 4.25940e-05 , 5.11162e-05 , 6.13434e-05 , 7.36168e-05 , 8.83459e-05 , & - & 1.06022e-04 , 1.27235e-04 , 1.52691e-04 , 1.83241e-04 , 2.19904e-04 , & - & 2.63902e-04 , 3.16703e-04 , 3.80068e-04 , 4.56111e-04 , 5.47368e-04 , & - & 6.56885e-04 , 7.88313e-04 , 9.46036e-04 , 1.13532e-03 /) - kao_mco2( 3, :, 6) = (/ & - & 4.44940e-05 , 5.32922e-05 , 6.38303e-05 , 7.64522e-05 , 9.15700e-05 , & - & 1.09677e-04 , 1.31365e-04 , 1.57341e-04 , 1.88454e-04 , 2.25719e-04 , & - & 2.70353e-04 , 3.23813e-04 , 3.87844e-04 , 4.64537e-04 , 5.56395e-04 , & - & 6.66418e-04 , 7.98196e-04 , 9.56032e-04 , 1.14508e-03 /) - kao_mco2( 4, :, 6) = (/ & - & 4.83402e-05 , 5.78065e-05 , 6.91265e-05 , 8.26633e-05 , 9.88510e-05 , & - & 1.18209e-04 , 1.41357e-04 , 1.69038e-04 , 2.02140e-04 , 2.41725e-04 , & - & 2.89061e-04 , 3.45667e-04 , 4.13357e-04 , 4.94303e-04 , 5.91101e-04 , & - & 7.06854e-04 , 8.45275e-04 , 1.01080e-03 , 1.20874e-03 /) - kao_mco2( 5, :, 6) = (/ & - & 5.14797e-05 , 6.15328e-05 , 7.35491e-05 , 8.79120e-05 , 1.05080e-04 , & - & 1.25600e-04 , 1.50128e-04 , 1.79445e-04 , 2.14487e-04 , 2.56373e-04 , & - & 3.06438e-04 , 3.66281e-04 , 4.37809e-04 , 5.23305e-04 , 6.25498e-04 , & - & 7.47647e-04 , 8.93650e-04 , 1.06816e-03 , 1.27676e-03 /) - kao_mco2( 6, :, 6) = (/ & - & 5.71481e-05 , 6.83156e-05 , 8.16652e-05 , 9.76237e-05 , 1.16701e-04 , & - & 1.39505e-04 , 1.66766e-04 , 1.99354e-04 , 2.38311e-04 , 2.84879e-04 , & - & 3.40548e-04 , 4.07096e-04 , 4.86647e-04 , 5.81744e-04 , 6.95424e-04 , & - & 8.31318e-04 , 9.93769e-04 , 1.18796e-03 , 1.42010e-03 /) - kao_mco2( 7, :, 6) = (/ & - & 5.69513e-05 , 6.84420e-05 , 8.22512e-05 , 9.88466e-05 , 1.18790e-04 , & - & 1.42758e-04 , 1.71562e-04 , 2.06177e-04 , 2.47776e-04 , 2.97768e-04 , & - & 3.57848e-04 , 4.30049e-04 , 5.16817e-04 , 6.21093e-04 , 7.46407e-04 , & - & 8.97006e-04 , 1.07799e-03 , 1.29549e-03 , 1.55687e-03 /) - kao_mco2( 8, :, 6) = (/ & - & 4.39361e-06 , 5.50076e-06 , 6.88690e-06 , 8.62235e-06 , 1.07951e-05 , & - & 1.35154e-05 , 1.69212e-05 , 2.11851e-05 , 2.65236e-05 , 3.32074e-05 , & - & 4.15754e-05 , 5.20520e-05 , 6.51687e-05 , 8.15907e-05 , 1.02151e-04 , & - & 1.27892e-04 , 1.60120e-04 , 2.00469e-04 , 2.50985e-04 /) - kao_mco2( 9, :, 6) = (/ & - & 5.75515e-05 , 6.86850e-05 , 8.19722e-05 , 9.78298e-05 , 1.16755e-04 , & - & 1.39342e-04 , 1.66297e-04 , 1.98468e-04 , 2.36862e-04 , 2.82683e-04 , & - & 3.37369e-04 , 4.02633e-04 , 4.80523e-04 , 5.73481e-04 , 6.84422e-04 , & - & 8.16824e-04 , 9.74841e-04 , 1.16342e-03 , 1.38849e-03 /) - kao_mco2( 1, :, 7) = (/ & - & 6.84544e-05 , 8.16461e-05 , 9.73799e-05 , 1.16146e-04 , 1.38528e-04 , & - & 1.65223e-04 , 1.97063e-04 , 2.35039e-04 , 2.80333e-04 , 3.34355e-04 , & - & 3.98788e-04 , 4.75637e-04 , 5.67296e-04 , 6.76618e-04 , 8.07008e-04 , & - & 9.62525e-04 , 1.14801e-03 , 1.36924e-03 , 1.63310e-03 /) - kao_mco2( 2, :, 7) = (/ & - & 6.88332e-05 , 8.21719e-05 , 9.80955e-05 , 1.17105e-04 , 1.39798e-04 , & - & 1.66888e-04 , 1.99229e-04 , 2.37836e-04 , 2.83925e-04 , 3.38944e-04 , & - & 4.04627e-04 , 4.83037e-04 , 5.76641e-04 , 6.88385e-04 , 8.21782e-04 , & - & 9.81031e-04 , 1.17114e-03 , 1.39809e-03 , 1.66901e-03 /) - kao_mco2( 3, :, 7) = (/ & - & 7.49899e-05 , 8.94606e-05 , 1.06724e-04 , 1.27318e-04 , 1.51887e-04 , & - & 1.81196e-04 , 2.16161e-04 , 2.57873e-04 , 3.07635e-04 , 3.66999e-04 , & - & 4.37818e-04 , 5.22304e-04 , 6.23092e-04 , 7.43330e-04 , 8.86769e-04 , & - & 1.05789e-03 , 1.26203e-03 , 1.50556e-03 , 1.79608e-03 /) - kao_mco2( 4, :, 7) = (/ & - & 8.26801e-05 , 9.85802e-05 , 1.17538e-04 , 1.40141e-04 , 1.67092e-04 , & - & 1.99225e-04 , 2.37537e-04 , 2.83217e-04 , 3.37682e-04 , 4.02621e-04 , & - & 4.80048e-04 , 5.72365e-04 , 6.82435e-04 , 8.13673e-04 , 9.70148e-04 , & - & 1.15671e-03 , 1.37916e-03 , 1.64438e-03 , 1.96061e-03 /) - kao_mco2( 5, :, 7) = (/ & - & 9.29561e-05 , 1.10845e-04 , 1.32176e-04 , 1.57612e-04 , 1.87944e-04 , & - & 2.24112e-04 , 2.67241e-04 , 3.18669e-04 , 3.79995e-04 , 4.53121e-04 , & - & 5.40321e-04 , 6.44302e-04 , 7.68293e-04 , 9.16146e-04 , 1.09245e-03 , & - & 1.30268e-03 , 1.55338e-03 , 1.85231e-03 , 2.20877e-03 /) - kao_mco2( 6, :, 7) = (/ & - & 1.09700e-04 , 1.30879e-04 , 1.56148e-04 , 1.86294e-04 , 2.22261e-04 , & - & 2.65172e-04 , 3.16367e-04 , 3.77446e-04 , 4.50317e-04 , 5.37257e-04 , & - & 6.40983e-04 , 7.64734e-04 , 9.12376e-04 , 1.08852e-03 , 1.29868e-03 , & - & 1.54941e-03 , 1.84854e-03 , 2.20543e-03 , 2.63122e-03 /) - kao_mco2( 7, :, 7) = (/ & - & 1.43457e-04 , 1.71554e-04 , 2.05153e-04 , 2.45332e-04 , 2.93381e-04 , & - & 3.50840e-04 , 4.19552e-04 , 5.01722e-04 , 5.99985e-04 , 7.17492e-04 , & - & 8.58014e-04 , 1.02606e-03 , 1.22701e-03 , 1.46732e-03 , 1.75470e-03 , & - & 2.09836e-03 , 2.50933e-03 , 3.00078e-03 , 3.58849e-03 /) - kao_mco2( 8, :, 7) = (/ & - & 1.52152e-05 , 1.89421e-05 , 2.35819e-05 , 2.93582e-05 , 3.65494e-05 , & - & 4.55021e-05 , 5.66476e-05 , 7.05233e-05 , 8.77978e-05 , 1.09304e-04 , & - & 1.36077e-04 , 1.69409e-04 , 2.10905e-04 , 2.62565e-04 , 3.26880e-04 , & - & 4.06948e-04 , 5.06629e-04 , 6.30726e-04 , 7.85219e-04 /) - kao_mco2( 9, :, 7) = (/ & - & 1.15683e-04 , 1.37544e-04 , 1.63535e-04 , 1.94438e-04 , 2.31180e-04 , & - & 2.74866e-04 , 3.26807e-04 , 3.88563e-04 , 4.61989e-04 , 5.49289e-04 , & - & 6.53088e-04 , 7.76501e-04 , 9.23234e-04 , 1.09770e-03 , 1.30512e-03 , & - & 1.55175e-03 , 1.84498e-03 , 2.19362e-03 , 2.60815e-03 /) - kao_mco2( 1, :, 8) = (/ & - & 1.18154e-04 , 1.40516e-04 , 1.67111e-04 , 1.98739e-04 , 2.36353e-04 , & - & 2.81086e-04 , 3.34285e-04 , 3.97553e-04 , 4.72796e-04 , 5.62278e-04 , & - & 6.68697e-04 , 7.95257e-04 , 9.45770e-04 , 1.12477e-03 , 1.33765e-03 , & - & 1.59081e-03 , 1.89190e-03 , 2.24996e-03 , 2.67580e-03 /) - kao_mco2( 2, :, 8) = (/ & - & 1.40874e-04 , 1.67009e-04 , 1.97993e-04 , 2.34726e-04 , 2.78273e-04 , & - & 3.29899e-04 , 3.91102e-04 , 4.63661e-04 , 5.49680e-04 , 6.51659e-04 , & - & 7.72556e-04 , 9.15884e-04 , 1.08580e-03 , 1.28724e-03 , 1.52605e-03 , & - & 1.80917e-03 , 2.14482e-03 , 2.54273e-03 , 3.01446e-03 /) - kao_mco2( 3, :, 8) = (/ & - & 1.55092e-04 , 1.84132e-04 , 2.18609e-04 , 2.59542e-04 , 3.08140e-04 , & - & 3.65837e-04 , 4.34337e-04 , 5.15664e-04 , 6.12219e-04 , 7.26853e-04 , & - & 8.62952e-04 , 1.02453e-03 , 1.21637e-03 , 1.44413e-03 , 1.71453e-03 , & - & 2.03557e-03 , 2.41671e-03 , 2.86923e-03 , 3.40647e-03 /) - kao_mco2( 4, :, 8) = (/ & - & 1.80666e-04 , 2.14521e-04 , 2.54721e-04 , 3.02454e-04 , 3.59131e-04 , & - & 4.26429e-04 , 5.06339e-04 , 6.01223e-04 , 7.13887e-04 , 8.47663e-04 , & - & 1.00651e-03 , 1.19512e-03 , 1.41908e-03 , 1.68500e-03 , 2.00076e-03 , & - & 2.37568e-03 , 2.82087e-03 , 3.34947e-03 , 3.97714e-03 /) - kao_mco2( 5, :, 8) = (/ & - & 2.21554e-04 , 2.63265e-04 , 3.12829e-04 , 3.71724e-04 , 4.41707e-04 , & - & 5.24865e-04 , 6.23679e-04 , 7.41096e-04 , 8.80619e-04 , 1.04641e-03 , & - & 1.24341e-03 , 1.47750e-03 , 1.75567e-03 , 2.08620e-03 , 2.47896e-03 , & - & 2.94566e-03 , 3.50023e-03 , 4.15920e-03 , 4.94224e-03 /) - kao_mco2( 6, :, 8) = (/ & - & 2.78997e-04 , 3.32548e-04 , 3.96378e-04 , 4.72460e-04 , 5.63146e-04 , & - & 6.71238e-04 , 8.00077e-04 , 9.53647e-04 , 1.13669e-03 , 1.35487e-03 , & - & 1.61493e-03 , 1.92491e-03 , 2.29438e-03 , 2.73477e-03 , 3.25969e-03 , & - & 3.88537e-03 , 4.63114e-03 , 5.52005e-03 , 6.57958e-03 /) - kao_mco2( 7, :, 8) = (/ & - & 2.84939e-04 , 3.40606e-04 , 4.07149e-04 , 4.86691e-04 , 5.81774e-04 , & - & 6.95432e-04 , 8.31295e-04 , 9.93700e-04 , 1.18783e-03 , 1.41989e-03 , & - & 1.69729e-03 , 2.02888e-03 , 2.42526e-03 , 2.89907e-03 , 3.46544e-03 , & - & 4.14246e-03 , 4.95176e-03 , 5.91915e-03 , 7.07554e-03 /) - kao_mco2( 8, :, 8) = (/ & - & 5.30764e-05 , 6.47812e-05 , 7.90673e-05 , 9.65039e-05 , 1.17786e-04 , & - & 1.43761e-04 , 1.75464e-04 , 2.14159e-04 , 2.61387e-04 , 3.19030e-04 , & - & 3.89385e-04 , 4.75255e-04 , 5.80062e-04 , 7.07982e-04 , 8.64111e-04 , & - & 1.05467e-03 , 1.28726e-03 , 1.57113e-03 , 1.91761e-03 /) - kao_mco2( 9, :, 8) = (/ & - & 2.76806e-04 , 3.29639e-04 , 3.92556e-04 , 4.67481e-04 , 5.56708e-04 , & - & 6.62964e-04 , 7.89501e-04 , 9.40190e-04 , 1.11964e-03 , 1.33334e-03 , & - & 1.58783e-03 , 1.89089e-03 , 2.25180e-03 , 2.68159e-03 , 3.19341e-03 , & - & 3.80293e-03 , 4.52878e-03 , 5.39316e-03 , 6.42253e-03 /) - kao_mco2( 1, :, 9) = (/ & - & 3.30614e-04 , 3.93289e-04 , 4.67844e-04 , 5.56534e-04 , 6.62036e-04 , & - & 7.87539e-04 , 9.36833e-04 , 1.11443e-03 , 1.32569e-03 , 1.57700e-03 , & - & 1.87596e-03 , 2.23158e-03 , 2.65463e-03 , 3.15787e-03 , 3.75650e-03 , & - & 4.46862e-03 , 5.31575e-03 , 6.32345e-03 , 7.52219e-03 /) - kao_mco2( 2, :, 9) = (/ & - & 3.78453e-04 , 4.50735e-04 , 5.36824e-04 , 6.39355e-04 , 7.61469e-04 , & - & 9.06906e-04 , 1.08012e-03 , 1.28642e-03 , 1.53212e-03 , 1.82475e-03 , & - & 2.17326e-03 , 2.58835e-03 , 3.08271e-03 , 3.67149e-03 , 4.37273e-03 , & - & 5.20790e-03 , 6.20259e-03 , 7.38725e-03 , 8.79818e-03 /) - kao_mco2( 3, :, 9) = (/ & - & 4.57576e-04 , 5.45512e-04 , 6.50348e-04 , 7.75330e-04 , 9.24332e-04 , & - & 1.10197e-03 , 1.31374e-03 , 1.56621e-03 , 1.86721e-03 , 2.22604e-03 , & - & 2.65384e-03 , 3.16385e-03 , 3.77187e-03 , 4.49675e-03 , 5.36092e-03 , & - & 6.39117e-03 , 7.61942e-03 , 9.08370e-03 , 1.08294e-02 /) - kao_mco2( 4, :, 9) = (/ & - & 5.18277e-04 , 6.18764e-04 , 7.38735e-04 , 8.81967e-04 , 1.05297e-03 , & - & 1.25713e-03 , 1.50087e-03 , 1.79187e-03 , 2.13929e-03 , 2.55407e-03 , & - & 3.04928e-03 , 3.64050e-03 , 4.34635e-03 , 5.18905e-03 , 6.19514e-03 , & - & 7.39631e-03 , 8.83036e-03 , 1.05425e-02 , 1.25865e-02 /) - kao_mco2( 5, :, 9) = (/ & - & 4.45365e-04 , 5.32106e-04 , 6.35742e-04 , 7.59563e-04 , 9.07500e-04 , & - & 1.08425e-03 , 1.29542e-03 , 1.54773e-03 , 1.84917e-03 , 2.20933e-03 , & - & 2.63963e-03 , 3.15374e-03 , 3.76797e-03 , 4.50184e-03 , 5.37865e-03 , & - & 6.42622e-03 , 7.67783e-03 , 9.17320e-03 , 1.09598e-02 /) - kao_mco2( 6, :, 9) = (/ & - & 2.87301e-04 , 3.43009e-04 , 4.09519e-04 , 4.88926e-04 , 5.83730e-04 , & - & 6.96916e-04 , 8.32050e-04 , 9.93386e-04 , 1.18601e-03 , 1.41597e-03 , & - & 1.69053e-03 , 2.01833e-03 , 2.40969e-03 , 2.87693e-03 , 3.43478e-03 , & - & 4.10079e-03 , 4.89594e-03 , 5.84527e-03 , 6.97867e-03 /) - kao_mco2( 7, :, 9) = (/ & - & 1.10743e-04 , 1.32286e-04 , 1.58020e-04 , 1.88760e-04 , 2.25480e-04 , & - & 2.69342e-04 , 3.21738e-04 , 3.84326e-04 , 4.59090e-04 , 5.48397e-04 , & - & 6.55078e-04 , 7.82511e-04 , 9.34734e-04 , 1.11657e-03 , 1.33378e-03 , & - & 1.59324e-03 , 1.90318e-03 , 2.27340e-03 , 2.71565e-03 /) - kao_mco2( 8, :, 9) = (/ & - & 8.63177e-05 , 1.03067e-04 , 1.23066e-04 , 1.46946e-04 , 1.75459e-04 , & - & 2.09505e-04 , 2.50158e-04 , 2.98698e-04 , 3.56658e-04 , 4.25864e-04 , & - & 5.08498e-04 , 6.07168e-04 , 7.24982e-04 , 8.65658e-04 , 1.03363e-03 , & - & 1.23420e-03 , 1.47368e-03 , 1.75963e-03 , 2.10107e-03 /) - kao_mco2( 9, :, 9) = (/ & - & 4.52715e-04 , 5.41540e-04 , 6.47792e-04 , 7.74892e-04 , 9.26929e-04 , & - & 1.10880e-03 , 1.32635e-03 , 1.58658e-03 , 1.89787e-03 , 2.27024e-03 , & - & 2.71568e-03 , 3.24850e-03 , 3.88587e-03 , 4.64830e-03 , 5.56031e-03 , & - & 6.65127e-03 , 7.95627e-03 , 9.51732e-03 , 1.13847e-02 /) - kao_mco2( 1, :,10) = (/ & - & 9.10418e-04 , 1.08631e-03 , 1.29619e-03 , 1.54662e-03 , 1.84543e-03 , & - & 2.20198e-03 , 2.62741e-03 , 3.13503e-03 , 3.74073e-03 , 4.46344e-03 , & - & 5.32580e-03 , 6.35476e-03 , 7.58251e-03 , 9.04748e-03 , 1.07955e-02 , & - & 1.28812e-02 , 1.53699e-02 , 1.83394e-02 , 2.18826e-02 /) - kao_mco2( 2, :,10) = (/ & - & 9.06680e-04 , 1.08622e-03 , 1.30130e-03 , 1.55898e-03 , 1.86768e-03 , & - & 2.23750e-03 , 2.68056e-03 , 3.21135e-03 , 3.84724e-03 , 4.60905e-03 , & - & 5.52171e-03 , 6.61508e-03 , 7.92496e-03 , 9.49421e-03 , 1.13742e-02 , & - & 1.36265e-02 , 1.63247e-02 , 1.95572e-02 , 2.34298e-02 /) - kao_mco2( 3, :,10) = (/ & - & 8.17976e-04 , 9.79458e-04 , 1.17282e-03 , 1.40435e-03 , 1.68160e-03 , & - & 2.01357e-03 , 2.41108e-03 , 2.88707e-03 , 3.45703e-03 , 4.13950e-03 , & - & 4.95671e-03 , 5.93525e-03 , 7.10696e-03 , 8.51000e-03 , 1.01900e-02 , & - & 1.22017e-02 , 1.46105e-02 , 1.74949e-02 , 2.09486e-02 /) - kao_mco2( 4, :,10) = (/ & - & 3.70314e-04 , 4.41440e-04 , 5.26226e-04 , 6.27298e-04 , 7.47782e-04 , & - & 8.91407e-04 , 1.06262e-03 , 1.26671e-03 , 1.51001e-03 , 1.80003e-03 , & - & 2.14576e-03 , 2.55789e-03 , 3.04918e-03 , 3.63483e-03 , 4.33297e-03 , & - & 5.16520e-03 , 6.15727e-03 , 7.33988e-03 , 8.74963e-03 /) - kao_mco2( 5, :,10) = (/ & - & 1.00859e-04 , 1.19692e-04 , 1.42041e-04 , 1.68563e-04 , 2.00038e-04 , & - & 2.37389e-04 , 2.81715e-04 , 3.34318e-04 , 3.96742e-04 , 4.70823e-04 , & - & 5.58736e-04 , 6.63065e-04 , 7.86874e-04 , 9.33801e-04 , 1.10816e-03 , & - & 1.31508e-03 , 1.56064e-03 , 1.85204e-03 , 2.19786e-03 /) - kao_mco2( 6, :,10) = (/ & - & 9.24477e-05 , 1.09659e-04 , 1.30074e-04 , 1.54290e-04 , 1.83015e-04 , & - & 2.17087e-04 , 2.57503e-04 , 3.05442e-04 , 3.62307e-04 , 4.29759e-04 , & - & 5.09768e-04 , 6.04672e-04 , 7.17245e-04 , 8.50776e-04 , 1.00917e-03 , & - & 1.19704e-03 , 1.41990e-03 , 1.68425e-03 , 1.99780e-03 /) - kao_mco2( 7, :,10) = (/ & - & 8.42943e-05 , 1.00044e-04 , 1.18735e-04 , 1.40919e-04 , 1.67248e-04 , & - & 1.98496e-04 , 2.35582e-04 , 2.79597e-04 , 3.31836e-04 , 3.93835e-04 , & - & 4.67418e-04 , 5.54748e-04 , 6.58395e-04 , 7.81407e-04 , 9.27402e-04 , & - & 1.10067e-03 , 1.30632e-03 , 1.55039e-03 , 1.84005e-03 /) - kao_mco2( 8, :,10) = (/ & - & 6.86464e-05 , 8.18163e-05 , 9.75129e-05 , 1.16221e-04 , 1.38518e-04 , & - & 1.65093e-04 , 1.96767e-04 , 2.34517e-04 , 2.79509e-04 , 3.33133e-04 , & - & 3.97046e-04 , 4.73220e-04 , 5.64008e-04 , 6.72214e-04 , 8.01179e-04 , & - & 9.54887e-04 , 1.13808e-03 , 1.35643e-03 , 1.61666e-03 /) - kao_mco2( 9, :,10) = (/ & - & 1.03095e-04 , 1.21985e-04 , 1.44335e-04 , 1.70781e-04 , 2.02072e-04 , & - & 2.39096e-04 , 2.82904e-04 , 3.34739e-04 , 3.96070e-04 , 4.68639e-04 , & - & 5.54505e-04 , 6.56103e-04 , 7.76316e-04 , 9.18556e-04 , 1.08686e-03 , & - & 1.28599e-03 , 1.52162e-03 , 1.80041e-03 , 2.13029e-03 /) - kao_mco2( 1, :,11) = (/ & - & 1.01275e-03 , 1.21433e-03 , 1.45605e-03 , 1.74587e-03 , 2.09339e-03 , & - & 2.51007e-03 , 3.00970e-03 , 3.60878e-03 , 4.32711e-03 , 5.18842e-03 , & - & 6.22117e-03 , 7.45950e-03 , 8.94430e-03 , 1.07247e-02 , 1.28594e-02 , & - & 1.54191e-02 , 1.84882e-02 , 2.21683e-02 , 2.65809e-02 /) - kao_mco2( 2, :,11) = (/ & - & 1.06856e-03 , 1.27885e-03 , 1.53052e-03 , 1.83171e-03 , 2.19218e-03 , & - & 2.62359e-03 , 3.13990e-03 , 3.75781e-03 , 4.49732e-03 , 5.38236e-03 , & - & 6.44158e-03 , 7.70924e-03 , 9.22637e-03 , 1.10421e-02 , 1.32151e-02 , & - & 1.58157e-02 , 1.89281e-02 , 2.26531e-02 , 2.71110e-02 /) - kao_mco2( 3, :,11) = (/ & - & 7.34896e-04 , 8.77863e-04 , 1.04864e-03 , 1.25265e-03 , 1.49634e-03 , & - & 1.78744e-03 , 2.13516e-03 , 2.55054e-03 , 3.04672e-03 , 3.63943e-03 , & - & 4.34745e-03 , 5.19321e-03 , 6.20349e-03 , 7.41032e-03 , 8.85192e-03 , & - & 1.05740e-02 , 1.26311e-02 , 1.50883e-02 , 1.80236e-02 /) - kao_mco2( 4, :,11) = (/ & - & 5.89491e-05 , 7.12560e-05 , 8.61322e-05 , 1.04114e-04 , 1.25850e-04 , & - & 1.52124e-04 , 1.83883e-04 , 2.22272e-04 , 2.68676e-04 , 3.24768e-04 , & - & 3.92571e-04 , 4.74528e-04 , 5.73595e-04 , 6.93346e-04 , 8.38096e-04 , & - & 1.01307e-03 , 1.22457e-03 , 1.48022e-03 , 1.78924e-03 /) - kao_mco2( 5, :,11) = (/ & - & 5.32400e-05 , 6.45465e-05 , 7.82542e-05 , 9.48731e-05 , 1.15021e-04 , & - & 1.39448e-04 , 1.69063e-04 , 2.04966e-04 , 2.48495e-04 , 3.01268e-04 , & - & 3.65248e-04 , 4.42816e-04 , 5.36856e-04 , 6.50868e-04 , 7.89092e-04 , & - & 9.56672e-04 , 1.15984e-03 , 1.40615e-03 , 1.70478e-03 /) - kao_mco2( 6, :,11) = (/ & - & 5.31408e-05 , 6.42409e-05 , 7.76597e-05 , 9.38814e-05 , 1.13491e-04 , & - & 1.37198e-04 , 1.65856e-04 , 2.00500e-04 , 2.42381e-04 , 2.93010e-04 , & - & 3.54214e-04 , 4.28203e-04 , 5.17647e-04 , 6.25774e-04 , 7.56486e-04 , & - & 9.14503e-04 , 1.10553e-03 , 1.33645e-03 , 1.61561e-03 /) - kao_mco2( 7, :,11) = (/ & - & 5.24517e-05 , 6.32485e-05 , 7.62676e-05 , 9.19667e-05 , 1.10897e-04 , & - & 1.33725e-04 , 1.61251e-04 , 1.94443e-04 , 2.34467e-04 , 2.82730e-04 , & - & 3.40928e-04 , 4.11106e-04 , 4.95728e-04 , 5.97770e-04 , 7.20816e-04 , & - & 8.69190e-04 , 1.04811e-03 , 1.26385e-03 , 1.52400e-03 /) - kao_mco2( 8, :,11) = (/ & - & 5.01768e-05 , 6.02217e-05 , 7.22774e-05 , 8.67466e-05 , 1.04112e-04 , & - & 1.24955e-04 , 1.49969e-04 , 1.79991e-04 , 2.16024e-04 , 2.59270e-04 , & - & 3.11173e-04 , 3.73467e-04 , 4.48231e-04 , 5.37962e-04 , 6.45656e-04 , & - & 7.74910e-04 , 9.30039e-04 , 1.11622e-03 , 1.33968e-03 /) - kao_mco2( 9, :,11) = (/ & - & 5.46391e-05 , 6.58765e-05 , 7.94252e-05 , 9.57603e-05 , 1.15455e-04 , & - & 1.39200e-04 , 1.67829e-04 , 2.02346e-04 , 2.43962e-04 , 2.94137e-04 , & - & 3.54632e-04 , 4.27568e-04 , 5.15504e-04 , 6.21526e-04 , 7.49353e-04 , & - & 9.03471e-04 , 1.08929e-03 , 1.31331e-03 , 1.58342e-03 /) - kao_mco2( 1, :,12) = (/ & - & 1.18469e-03 , 1.41755e-03 , 1.69619e-03 , 2.02959e-03 , 2.42854e-03 , & - & 2.90589e-03 , 3.47708e-03 , 4.16055e-03 , 4.97836e-03 , 5.95691e-03 , & - & 7.12782e-03 , 8.52889e-03 , 1.02053e-02 , 1.22113e-02 , 1.46116e-02 , & - & 1.74837e-02 , 2.09204e-02 , 2.50325e-02 , 2.99530e-02 /) - kao_mco2( 2, :,12) = (/ & - & 1.09092e-03 , 1.30288e-03 , 1.55602e-03 , 1.85834e-03 , 2.21940e-03 , & - & 2.65061e-03 , 3.16560e-03 , 3.78064e-03 , 4.51519e-03 , 5.39245e-03 , & - & 6.44016e-03 , 7.69143e-03 , 9.18580e-03 , 1.09705e-02 , 1.31020e-02 , & - & 1.56476e-02 , 1.86878e-02 , 2.23187e-02 , 2.66550e-02 /) - kao_mco2( 3, :,12) = (/ & - & 3.97521e-04 , 4.74103e-04 , 5.65438e-04 , 6.74369e-04 , 8.04285e-04 , & - & 9.59228e-04 , 1.14402e-03 , 1.36442e-03 , 1.62727e-03 , 1.94076e-03 , & - & 2.31464e-03 , 2.76055e-03 , 3.29237e-03 , 3.92663e-03 , 4.68309e-03 , & - & 5.58528e-03 , 6.66128e-03 , 7.94456e-03 , 9.47505e-03 /) - kao_mco2( 4, :,12) = (/ & - & 7.18557e-05 , 8.56230e-05 , 1.02028e-04 , 1.21576e-04 , 1.44870e-04 , & - & 1.72626e-04 , 2.05701e-04 , 2.45112e-04 , 2.92075e-04 , 3.48035e-04 , & - & 4.14718e-04 , 4.94176e-04 , 5.88858e-04 , 7.01682e-04 , 8.36121e-04 , & - & 9.96319e-04 , 1.18721e-03 , 1.41467e-03 , 1.68572e-03 /) - kao_mco2( 5, :,12) = (/ & - & 7.33026e-05 , 8.69077e-05 , 1.03038e-04 , 1.22162e-04 , 1.44836e-04 , & - & 1.71717e-04 , 2.03588e-04 , 2.41375e-04 , 2.86175e-04 , 3.39289e-04 , & - & 4.02262e-04 , 4.76923e-04 , 5.65440e-04 , 6.70387e-04 , 7.94812e-04 , & - & 9.42331e-04 , 1.11723e-03 , 1.32459e-03 , 1.57044e-03 /) - kao_mco2( 6, :,12) = (/ & - & 7.44053e-05 , 8.82167e-05 , 1.04592e-04 , 1.24007e-04 , 1.47025e-04 , & - & 1.74317e-04 , 2.06674e-04 , 2.45038e-04 , 2.90523e-04 , 3.44451e-04 , & - & 4.08389e-04 , 4.84196e-04 , 5.74074e-04 , 6.80637e-04 , 8.06979e-04 , & - & 9.56774e-04 , 1.13437e-03 , 1.34494e-03 , 1.59459e-03 /) - kao_mco2( 7, :,12) = (/ & - & 7.68762e-05 , 9.11305e-05 , 1.08028e-04 , 1.28058e-04 , 1.51802e-04 , & - & 1.79949e-04 , 2.13315e-04 , 2.52868e-04 , 2.99754e-04 , 3.55334e-04 , & - & 4.21220e-04 , 4.99322e-04 , 5.91905e-04 , 7.01656e-04 , 8.31756e-04 , & - & 9.85979e-04 , 1.16880e-03 , 1.38551e-03 , 1.64241e-03 /) - kao_mco2( 8, :,12) = (/ & - & 8.45996e-05 , 1.00214e-04 , 1.18711e-04 , 1.40622e-04 , 1.66577e-04 , & - & 1.97323e-04 , 2.33743e-04 , 2.76885e-04 , 3.27991e-04 , 3.88529e-04 , & - & 4.60241e-04 , 5.45189e-04 , 6.45816e-04 , 7.65016e-04 , 9.06216e-04 , & - & 1.07348e-03 , 1.27161e-03 , 1.50632e-03 , 1.78434e-03 /) - kao_mco2( 9, :,12) = (/ & - & 7.73583e-05 , 9.16767e-05 , 1.08645e-04 , 1.28755e-04 , 1.52586e-04 , & - & 1.80829e-04 , 2.14299e-04 , 2.53964e-04 , 3.00970e-04 , 3.56678e-04 , & - & 4.22696e-04 , 5.00934e-04 , 5.93652e-04 , 7.03533e-04 , 8.33751e-04 , & - & 9.88072e-04 , 1.17096e-03 , 1.38769e-03 , 1.64454e-03 /) - kao_mco2( 1, :,13) = (/ & - & 1.20952e-03 , 1.44504e-03 , 1.72642e-03 , 2.06260e-03 , 2.46423e-03 , & - & 2.94407e-03 , 3.51735e-03 , 4.20226e-03 , 5.02053e-03 , 5.99814e-03 , & - & 7.16612e-03 , 8.56153e-03 , 1.02287e-02 , 1.22204e-02 , 1.46000e-02 , & - & 1.74430e-02 , 2.08395e-02 , 2.48974e-02 , 2.97455e-02 /) - kao_mco2( 2, :,13) = (/ & - & 8.47667e-04 , 1.01027e-03 , 1.20407e-03 , 1.43505e-03 , 1.71034e-03 , & - & 2.03843e-03 , 2.42946e-03 , 2.89550e-03 , 3.45094e-03 , 4.11293e-03 , & - & 4.90192e-03 , 5.84225e-03 , 6.96296e-03 , 8.29866e-03 , 9.89058e-03 , & - & 1.17879e-02 , 1.40492e-02 , 1.67442e-02 , 1.99562e-02 /) - kao_mco2( 3, :,13) = (/ & - & 1.45612e-04 , 1.71739e-04 , 2.02554e-04 , 2.38897e-04 , 2.81762e-04 , & - & 3.32318e-04 , 3.91945e-04 , 4.62271e-04 , 5.45215e-04 , 6.43041e-04 , & - & 7.58421e-04 , 8.94503e-04 , 1.05500e-03 , 1.24430e-03 , 1.46756e-03 , & - & 1.73088e-03 , 2.04145e-03 , 2.40774e-03 , 2.83975e-03 /) - kao_mco2( 4, :,13) = (/ & - & 1.40167e-04 , 1.65266e-04 , 1.94858e-04 , 2.29750e-04 , 2.70889e-04 , & - & 3.19394e-04 , 3.76585e-04 , 4.44016e-04 , 5.23522e-04 , 6.17264e-04 , & - & 7.27791e-04 , 8.58110e-04 , 1.01176e-03 , 1.19293e-03 , 1.40654e-03 , & - & 1.65839e-03 , 1.95534e-03 , 2.30547e-03 , 2.71828e-03 /) - kao_mco2( 5, :,13) = (/ & - & 1.37406e-04 , 1.61990e-04 , 1.90973e-04 , 2.25141e-04 , 2.65423e-04 , & - & 3.12911e-04 , 3.68896e-04 , 4.34898e-04 , 5.12709e-04 , 6.04442e-04 , & - & 7.12587e-04 , 8.40082e-04 , 9.90387e-04 , 1.16758e-03 , 1.37648e-03 , & - & 1.62276e-03 , 1.91310e-03 , 2.25539e-03 , 2.65892e-03 /) - kao_mco2( 6, :,13) = (/ & - & 1.35356e-04 , 1.59577e-04 , 1.88132e-04 , 2.21797e-04 , 2.61485e-04 , & - & 3.08276e-04 , 3.63440e-04 , 4.28475e-04 , 5.05147e-04 , 5.95539e-04 , & - & 7.02106e-04 , 8.27743e-04 , 9.75861e-04 , 1.15048e-03 , 1.35635e-03 , & - & 1.59906e-03 , 1.88520e-03 , 2.22255e-03 , 2.62025e-03 /) - kao_mco2( 7, :,13) = (/ & - & 1.33359e-04 , 1.57252e-04 , 1.85424e-04 , 2.18645e-04 , 2.57817e-04 , & - & 3.04007e-04 , 3.58472e-04 , 4.22695e-04 , 4.98425e-04 , 5.87722e-04 , & - & 6.93017e-04 , 8.17177e-04 , 9.63581e-04 , 1.13621e-03 , 1.33978e-03 , & - & 1.57981e-03 , 1.86284e-03 , 2.19659e-03 , 2.59012e-03 /) - kao_mco2( 8, :,13) = (/ & - & 1.29667e-04 , 1.53001e-04 , 1.80534e-04 , 2.13022e-04 , 2.51356e-04 , & - & 2.96589e-04 , 3.49961e-04 , 4.12938e-04 , 4.87249e-04 , 5.74931e-04 , & - & 6.78393e-04 , 8.00473e-04 , 9.44521e-04 , 1.11449e-03 , 1.31505e-03 , & - & 1.55170e-03 , 1.83094e-03 , 2.16042e-03 , 2.54920e-03 /) - kao_mco2( 9, :,13) = (/ & - & 1.37892e-04 , 1.62557e-04 , 1.91635e-04 , 2.25914e-04 , 2.66324e-04 , & - & 3.13963e-04 , 3.70124e-04 , 4.36330e-04 , 5.14379e-04 , 6.06389e-04 , & - & 7.14858e-04 , 8.42730e-04 , 9.93473e-04 , 1.17118e-03 , 1.38068e-03 , & - & 1.62765e-03 , 1.91880e-03 , 2.26202e-03 , 2.66665e-03 /) - kao_mco2( 1, :,14) = (/ & - & 1.28098e-03 , 1.52939e-03 , 1.82597e-03 , 2.18007e-03 , 2.60284e-03 , & - & 3.10759e-03 , 3.71022e-03 , 4.42972e-03 , 5.28874e-03 , 6.31435e-03 , & - & 7.53885e-03 , 9.00081e-03 , 1.07463e-02 , 1.28302e-02 , 1.53183e-02 , & - & 1.82889e-02 , 2.18355e-02 , 2.60699e-02 , 3.11255e-02 /) - kao_mco2( 2, :,14) = (/ & - & 1.27275e-04 , 1.48842e-04 , 1.74064e-04 , 2.03561e-04 , 2.38055e-04 , & - & 2.78395e-04 , 3.25570e-04 , 3.80740e-04 , 4.45259e-04 , 5.20710e-04 , & - & 6.08947e-04 , 7.12137e-04 , 8.32812e-04 , 9.73937e-04 , 1.13898e-03 , & - & 1.33198e-03 , 1.55769e-03 , 1.82165e-03 , 2.13034e-03 /) - kao_mco2( 3, :,14) = (/ & - & 1.27744e-04 , 1.49255e-04 , 1.74389e-04 , 2.03755e-04 , 2.38066e-04 , & - & 2.78155e-04 , 3.24995e-04 , 3.79722e-04 , 4.43666e-04 , 5.18376e-04 , & - & 6.05668e-04 , 7.07660e-04 , 8.26826e-04 , 9.66059e-04 , 1.12874e-03 , & - & 1.31881e-03 , 1.54089e-03 , 1.80037e-03 , 2.10354e-03 /) - kao_mco2( 4, :,14) = (/ & - & 1.28543e-04 , 1.50136e-04 , 1.75357e-04 , 2.04814e-04 , 2.39219e-04 , & - & 2.79404e-04 , 3.26339e-04 , 3.81159e-04 , 4.45188e-04 , 5.19972e-04 , & - & 6.07319e-04 , 7.09339e-04 , 8.28496e-04 , 9.67670e-04 , 1.13022e-03 , & - & 1.32008e-03 , 1.54184e-03 , 1.80084e-03 , 2.10335e-03 /) - kao_mco2( 5, :,14) = (/ & - & 1.29218e-04 , 1.50897e-04 , 1.76214e-04 , 2.05778e-04 , 2.40302e-04 , & - & 2.80618e-04 , 3.27698e-04 , 3.82678e-04 , 4.46881e-04 , 5.21855e-04 , & - & 6.09409e-04 , 7.11652e-04 , 8.31048e-04 , 9.70475e-04 , 1.13330e-03 , & - & 1.32343e-03 , 1.54547e-03 , 1.80476e-03 , 2.10755e-03 /) - kao_mco2( 6, :,14) = (/ & - & 1.30502e-04 , 1.52368e-04 , 1.77898e-04 , 2.07706e-04 , 2.42508e-04 , & - & 2.83141e-04 , 3.30583e-04 , 3.85974e-04 , 4.50646e-04 , 5.26153e-04 , & - & 6.14313e-04 , 7.17244e-04 , 8.37422e-04 , 9.77736e-04 , 1.14156e-03 , & - & 1.33283e-03 , 1.55616e-03 , 1.81690e-03 , 2.12133e-03 /) - kao_mco2( 7, :,14) = (/ & - & 1.32820e-04 , 1.55041e-04 , 1.80980e-04 , 2.11259e-04 , 2.46604e-04 , & - & 2.87862e-04 , 3.36022e-04 , 3.92240e-04 , 4.57864e-04 , 5.34467e-04 , & - & 6.23886e-04 , 7.28265e-04 , 8.50107e-04 , 9.92334e-04 , 1.15836e-03 , & - & 1.35215e-03 , 1.57838e-03 , 1.84244e-03 , 2.15069e-03 /) - kao_mco2( 8, :,14) = (/ & - & 1.40203e-04 , 1.63590e-04 , 1.90879e-04 , 2.22720e-04 , 2.59872e-04 , & - & 3.03221e-04 , 3.53801e-04 , 4.12819e-04 , 4.81681e-04 , 5.62031e-04 , & - & 6.55783e-04 , 7.65175e-04 , 8.92814e-04 , 1.04174e-03 , 1.21552e-03 , & - & 1.41828e-03 , 1.65486e-03 , 1.93091e-03 , 2.25301e-03 /) - kao_mco2( 9, :,14) = (/ & - & 1.30642e-04 , 1.52513e-04 , 1.78046e-04 , 2.07853e-04 , 2.42651e-04 , & - & 2.83275e-04 , 3.30699e-04 , 3.86063e-04 , 4.50696e-04 , 5.26149e-04 , & - & 6.14234e-04 , 7.17066e-04 , 8.37113e-04 , 9.77259e-04 , 1.14087e-03 , & - & 1.33186e-03 , 1.55484e-03 , 1.81514e-03 , 2.11902e-03 /) - kao_mco2( 1, :,15) = (/ & - & 1.37603e-03 , 1.64035e-03 , 1.95543e-03 , 2.33105e-03 , 2.77881e-03 , & - & 3.31257e-03 , 3.94887e-03 , 4.70739e-03 , 5.61162e-03 , 6.68952e-03 , & - & 7.97449e-03 , 9.50627e-03 , 1.13323e-02 , 1.35091e-02 , 1.61039e-02 , & - & 1.91973e-02 , 2.28848e-02 , 2.72806e-02 , 3.25208e-02 /) - kao_mco2( 2, :,15) = (/ & - & 1.67843e-04 , 1.93707e-04 , 2.23557e-04 , 2.58007e-04 , 2.97765e-04 , & - & 3.43650e-04 , 3.96606e-04 , 4.57722e-04 , 5.28256e-04 , 6.09659e-04 , & - & 7.03606e-04 , 8.12031e-04 , 9.37163e-04 , 1.08158e-03 , 1.24825e-03 , & - & 1.44060e-03 , 1.66259e-03 , 1.91880e-03 , 2.21448e-03 /) - kao_mco2( 3, :,15) = (/ & - & 1.67595e-04 , 1.93410e-04 , 2.23200e-04 , 2.57579e-04 , 2.97253e-04 , & - & 3.43039e-04 , 3.95876e-04 , 4.56852e-04 , 5.27220e-04 , 6.08426e-04 , & - & 7.02141e-04 , 8.10291e-04 , 9.35098e-04 , 1.07913e-03 , 1.24534e-03 , & - & 1.43716e-03 , 1.65853e-03 , 1.91398e-03 , 2.20879e-03 /) - kao_mco2( 4, :,15) = (/ & - & 1.67354e-04 , 1.93130e-04 , 2.22877e-04 , 2.57206e-04 , 2.96823e-04 , & - & 3.42541e-04 , 3.95301e-04 , 4.56187e-04 , 5.26452e-04 , 6.07539e-04 , & - & 7.01116e-04 , 8.09106e-04 , 9.33728e-04 , 1.07755e-03 , 1.24352e-03 , & - & 1.43505e-03 , 1.65608e-03 , 1.91116e-03 , 2.20553e-03 /) - kao_mco2( 5, :,15) = (/ & - & 1.67437e-04 , 1.93232e-04 , 2.23002e-04 , 2.57358e-04 , 2.97006e-04 , & - & 3.42763e-04 , 3.95570e-04 , 4.56511e-04 , 5.26842e-04 , 6.08007e-04 , & - & 7.01677e-04 , 8.09778e-04 , 9.34533e-04 , 1.07851e-03 , 1.24466e-03 , & - & 1.43642e-03 , 1.65771e-03 , 1.91310e-03 , 2.20783e-03 /) - kao_mco2( 6, :,15) = (/ & - & 1.67267e-04 , 1.93027e-04 , 2.22753e-04 , 2.57057e-04 , 2.96645e-04 , & - & 3.42328e-04 , 3.95047e-04 , 4.55885e-04 , 5.26092e-04 , 6.07110e-04 , & - & 7.00606e-04 , 8.08500e-04 , 9.33010e-04 , 1.07669e-03 , 1.24251e-03 , & - & 1.43385e-03 , 1.65467e-03 , 1.90949e-03 , 2.20355e-03 /) - kao_mco2( 7, :,15) = (/ & - & 1.67354e-04 , 1.93130e-04 , 2.22877e-04 , 2.57206e-04 , 2.96823e-04 , & - & 3.42541e-04 , 3.95301e-04 , 4.56187e-04 , 5.26452e-04 , 6.07539e-04 , & - & 7.01116e-04 , 8.09106e-04 , 9.33728e-04 , 1.07755e-03 , 1.24352e-03 , & - & 1.43505e-03 , 1.65608e-03 , 1.91116e-03 , 2.20553e-03 /) - kao_mco2( 8, :,15) = (/ & - & 1.67276e-04 , 1.93038e-04 , 2.22769e-04 , 2.57079e-04 , 2.96673e-04 , & - & 3.42365e-04 , 3.95094e-04 , 4.55944e-04 , 5.26166e-04 , 6.07203e-04 , & - & 7.00722e-04 , 8.08643e-04 , 9.33186e-04 , 1.07691e-03 , 1.24277e-03 , & - & 1.43417e-03 , 1.65506e-03 , 1.90996e-03 , 2.20412e-03 /) - kao_mco2( 9, :,15) = (/ & - & 1.67437e-04 , 1.93232e-04 , 2.23002e-04 , 2.57358e-04 , 2.97006e-04 , & - & 3.42763e-04 , 3.95570e-04 , 4.56511e-04 , 5.26842e-04 , 6.08007e-04 , & - & 7.01677e-04 , 8.09778e-04 , 9.34533e-04 , 1.07851e-03 , 1.24466e-03 , & - & 1.43642e-03 , 1.65771e-03 , 1.91310e-03 , 2.20783e-03 /) - kao_mco2( 1, :,16) = (/ & - & 1.42104e-03 , 1.69791e-03 , 2.02872e-03 , 2.42399e-03 , 2.89626e-03 , & - & 3.46055e-03 , 4.13478e-03 , 4.94038e-03 , 5.90294e-03 , 7.05303e-03 , & - & 8.42720e-03 , 1.00691e-02 , 1.20309e-02 , 1.43749e-02 , 1.71757e-02 , & - & 2.05221e-02 , 2.45205e-02 , 2.92979e-02 , 3.50061e-02 /) - kao_mco2( 2, :,16) = (/ & - & 1.63777e-04 , 1.88736e-04 , 2.17498e-04 , 2.50643e-04 , 2.88839e-04 , & - & 3.32857e-04 , 3.83582e-04 , 4.42037e-04 , 5.09401e-04 , 5.87030e-04 , & - & 6.76490e-04 , 7.79583e-04 , 8.98386e-04 , 1.03530e-03 , 1.19307e-03 , & - & 1.37488e-03 , 1.58441e-03 , 1.82586e-03 , 2.10411e-03 /) - kao_mco2( 3, :,16) = (/ & - & 1.63679e-04 , 1.88621e-04 , 2.17365e-04 , 2.50489e-04 , 2.88661e-04 , & - & 3.32650e-04 , 3.83342e-04 , 4.41759e-04 , 5.09079e-04 , 5.86657e-04 , & - & 6.76057e-04 , 7.79080e-04 , 8.97804e-04 , 1.03462e-03 , 1.19228e-03 , & - & 1.37397e-03 , 1.58335e-03 , 1.82464e-03 , 2.10269e-03 /) - kao_mco2( 4, :,16) = (/ & - & 1.63679e-04 , 1.88621e-04 , 2.17365e-04 , 2.50489e-04 , 2.88661e-04 , & - & 3.32650e-04 , 3.83342e-04 , 4.41759e-04 , 5.09079e-04 , 5.86657e-04 , & - & 6.76057e-04 , 7.79080e-04 , 8.97804e-04 , 1.03462e-03 , 1.19228e-03 , & - & 1.37397e-03 , 1.58335e-03 , 1.82464e-03 , 2.10269e-03 /) - kao_mco2( 5, :,16) = (/ & - & 1.63586e-04 , 1.88513e-04 , 2.17239e-04 , 2.50343e-04 , 2.88490e-04 , & - & 3.32451e-04 , 3.83111e-04 , 4.41490e-04 , 5.08766e-04 , 5.86292e-04 , & - & 6.75633e-04 , 7.78588e-04 , 8.97231e-04 , 1.03395e-03 , 1.19151e-03 , & - & 1.37307e-03 , 1.58231e-03 , 1.82342e-03 , 2.10128e-03 /) - kao_mco2( 6, :,16) = (/ & - & 1.63679e-04 , 1.88621e-04 , 2.17365e-04 , 2.50489e-04 , 2.88661e-04 , & - & 3.32650e-04 , 3.83342e-04 , 4.41759e-04 , 5.09079e-04 , 5.86657e-04 , & - & 6.76057e-04 , 7.79080e-04 , 8.97804e-04 , 1.03462e-03 , 1.19228e-03 , & - & 1.37397e-03 , 1.58335e-03 , 1.82464e-03 , 2.10269e-03 /) - kao_mco2( 7, :,16) = (/ & - & 1.63679e-04 , 1.88621e-04 , 2.17365e-04 , 2.50489e-04 , 2.88661e-04 , & - & 3.32650e-04 , 3.83342e-04 , 4.41759e-04 , 5.09079e-04 , 5.86657e-04 , & - & 6.76057e-04 , 7.79080e-04 , 8.97804e-04 , 1.03462e-03 , 1.19228e-03 , & - & 1.37397e-03 , 1.58335e-03 , 1.82464e-03 , 2.10269e-03 /) - kao_mco2( 8, :,16) = (/ & - & 1.63479e-04 , 1.88391e-04 , 2.17098e-04 , 2.50180e-04 , 2.88303e-04 , & - & 3.32236e-04 , 3.82863e-04 , 4.41205e-04 , 5.08437e-04 , 5.85914e-04 , & - & 6.75198e-04 , 7.78087e-04 , 8.96654e-04 , 1.03329e-03 , 1.19074e-03 , & - & 1.37219e-03 , 1.58129e-03 , 1.82226e-03 , 2.09994e-03 /) - kao_mco2( 9, :,16) = (/ & - & 1.63586e-04 , 1.88513e-04 , 2.17239e-04 , 2.50343e-04 , 2.88490e-04 , & - & 3.32451e-04 , 3.83111e-04 , 4.41490e-04 , 5.08766e-04 , 5.86292e-04 , & - & 6.75633e-04 , 7.78588e-04 , 8.97231e-04 , 1.03395e-03 , 1.19151e-03 , & - & 1.37307e-03 , 1.58231e-03 , 1.82342e-03 , 2.10128e-03 /) - -! The array KBO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level above 100~ mb. The first index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The second index -! runs over the g-channel (1 to 16). - - kbo_mco2(:, 1) = (/ & - & 3.72069e-06 , 4.81866e-06 , 6.24064e-06 , 8.08226e-06 , 1.04673e-05 , & - & 1.35562e-05 , 1.75567e-05 , 2.27376e-05 , 2.94475e-05 , 3.81375e-05 , & - & 4.93918e-05 , 6.39674e-05 , 8.28441e-05 , 1.07291e-04 , 1.38953e-04 , & - & 1.79958e-04 , 2.33064e-04 , 3.01840e-04 , 3.90913e-04 /) - kbo_mco2(:, 2) = (/ & - & 8.14357e-06 , 1.06031e-05 , 1.38056e-05 , 1.79752e-05 , 2.34041e-05 , & - & 3.04728e-05 , 3.96763e-05 , 5.16596e-05 , 6.72622e-05 , 8.75770e-05 , & - & 1.14027e-04 , 1.48467e-04 , 1.93307e-04 , 2.51691e-04 , 3.27708e-04 , & - & 4.26685e-04 , 5.55555e-04 , 7.23346e-04 , 9.41814e-04 /) - kbo_mco2(:, 3) = (/ & - & 1.09367e-05 , 1.42063e-05 , 1.84533e-05 , 2.39701e-05 , 3.11362e-05 , & - & 4.04446e-05 , 5.25358e-05 , 6.82417e-05 , 8.86432e-05 , 1.15144e-04 , & - & 1.49567e-04 , 1.94281e-04 , 2.52363e-04 , 3.27809e-04 , 4.25810e-04 , & - & 5.53109e-04 , 7.18466e-04 , 9.33256e-04 , 1.21226e-03 /) - kbo_mco2(:, 4) = (/ & - & 1.76192e-05 , 2.27752e-05 , 2.94401e-05 , 3.80553e-05 , 4.91916e-05 , & - & 6.35867e-05 , 8.21944e-05 , 1.06247e-04 , 1.37339e-04 , 1.77529e-04 , & - & 2.29480e-04 , 2.96635e-04 , 3.83440e-04 , 4.95648e-04 , 6.40691e-04 , & - & 8.28180e-04 , 1.07054e-03 , 1.38381e-03 , 1.78876e-03 /) - kbo_mco2(:, 5) = (/ & - & 3.72142e-05 , 4.78603e-05 , 6.15520e-05 , 7.91605e-05 , 1.01806e-04 , & - & 1.30931e-04 , 1.68387e-04 , 2.16558e-04 , 2.78510e-04 , 3.58185e-04 , & - & 4.60653e-04 , 5.92435e-04 , 7.61915e-04 , 9.79881e-04 , 1.26020e-03 , & - & 1.62071e-03 , 2.08436e-03 , 2.68064e-03 , 3.44751e-03 /) - kbo_mco2(:, 6) = (/ & - & 7.74131e-05 , 9.98876e-05 , 1.28887e-04 , 1.66305e-04 , 2.14587e-04 , & - & 2.76886e-04 , 3.57272e-04 , 4.60994e-04 , 5.94831e-04 , 7.67521e-04 , & - & 9.90348e-04 , 1.27787e-03 , 1.64886e-03 , 2.12755e-03 , 2.74522e-03 , & - & 3.54221e-03 , 4.57059e-03 , 5.89752e-03 , 7.60968e-03 /) - kbo_mco2(:, 7) = (/ & - & 1.32294e-04 , 1.70977e-04 , 2.20973e-04 , 2.85587e-04 , 3.69095e-04 , & - & 4.77022e-04 , 6.16507e-04 , 7.96779e-04 , 1.02976e-03 , 1.33088e-03 , & - & 1.72004e-03 , 2.22299e-03 , 2.87301e-03 , 3.71310e-03 , 4.79884e-03 , & - & 6.20207e-03 , 8.01561e-03 , 1.03594e-02 , 1.33886e-02 /) - kbo_mco2(:, 8) = (/ & - & 3.59868e-05 , 4.63611e-05 , 5.97261e-05 , 7.69439e-05 , 9.91253e-05 , & - & 1.27701e-04 , 1.64515e-04 , 2.11941e-04 , 2.73040e-04 , 3.51752e-04 , & - & 4.53155e-04 , 5.83790e-04 , 7.52085e-04 , 9.68897e-04 , 1.24821e-03 , & - & 1.60804e-03 , 2.07161e-03 , 2.66882e-03 , 3.43818e-03 /) - kbo_mco2(:, 9) = (/ & - & 5.09543e-05 , 6.60510e-05 , 8.56205e-05 , 1.10988e-04 , 1.43872e-04 , & - & 1.86498e-04 , 2.41753e-04 , 3.13380e-04 , 4.06228e-04 , 5.26585e-04 , & - & 6.82601e-04 , 8.84842e-04 , 1.14700e-03 , 1.48684e-03 , 1.92735e-03 , & - & 2.49839e-03 , 3.23861e-03 , 4.19814e-03 , 5.44196e-03 /) - kbo_mco2(:,10) = (/ & - & 2.08253e-05 , 2.64900e-05 , 3.36954e-05 , 4.28609e-05 , 5.45194e-05 , & - & 6.93491e-05 , 8.82125e-05 , 1.12207e-04 , 1.42728e-04 , 1.81551e-04 , & - & 2.30935e-04 , 2.93751e-04 , 3.73653e-04 , 4.75290e-04 , 6.04572e-04 , & - & 7.69021e-04 , 9.78201e-04 , 1.24428e-03 , 1.58273e-03 /) - kbo_mco2(:,11) = (/ & - & 2.08953e-05 , 2.65543e-05 , 3.37459e-05 , 4.28852e-05 , 5.44996e-05 , & - & 6.92595e-05 , 8.80169e-05 , 1.11854e-04 , 1.42147e-04 , 1.80644e-04 , & - & 2.29568e-04 , 2.91741e-04 , 3.70752e-04 , 4.71161e-04 , 5.98764e-04 , & - & 7.60925e-04 , 9.67005e-04 , 1.22889e-03 , 1.56171e-03 /) - kbo_mco2(:,12) = (/ & - & 2.65295e-05 , 3.36318e-05 , 4.26356e-05 , 5.40498e-05 , 6.85198e-05 , & - & 8.68636e-05 , 1.10118e-04 , 1.39599e-04 , 1.76972e-04 , 2.24350e-04 , & - & 2.84412e-04 , 3.60553e-04 , 4.57079e-04 , 5.79446e-04 , 7.34572e-04 , & - & 9.31230e-04 , 1.18053e-03 , 1.49658e-03 , 1.89724e-03 /) - kbo_mco2(:,13) = (/ & - & 3.45358e-05 , 4.36743e-05 , 5.52309e-05 , 6.98455e-05 , 8.83273e-05 , & - & 1.11700e-04 , 1.41256e-04 , 1.78634e-04 , 2.25902e-04 , 2.85678e-04 , & - & 3.61271e-04 , 4.56867e-04 , 5.77758e-04 , 7.30639e-04 , 9.23973e-04 , & - & 1.16847e-03 , 1.47765e-03 , 1.86865e-03 , 2.36311e-03 /) - kbo_mco2(:,14) = (/ & - & 3.99721e-05 , 5.12343e-05 , 6.56698e-05 , 8.41725e-05 , 1.07888e-04 , & - & 1.38286e-04 , 1.77249e-04 , 2.27190e-04 , 2.91201e-04 , 3.73248e-04 , & - & 4.78412e-04 , 6.13207e-04 , 7.85980e-04 , 1.00743e-03 , 1.29128e-03 , & - & 1.65510e-03 , 2.12144e-03 , 2.71916e-03 , 3.48529e-03 /) - kbo_mco2(:,15) = (/ & - & 8.51533e-06 , 1.23021e-05 , 1.77730e-05 , 2.56767e-05 , 3.70953e-05 , & - & 5.35918e-05 , 7.74243e-05 , 1.11855e-04 , 1.61598e-04 , 2.33461e-04 , & - & 3.37283e-04 , 4.87275e-04 , 7.03968e-04 , 1.01703e-03 , 1.46930e-03 , & - & 2.12271e-03 , 3.06670e-03 , 4.43047e-03 , 6.40072e-03 /) - kbo_mco2(:,16) = (/ & - & 2.93050e-06 , 3.65298e-06 , 4.55358e-06 , 5.67622e-06 , 7.07564e-06 , & - & 8.82006e-06 , 1.09945e-05 , 1.37051e-05 , 1.70840e-05 , 2.12959e-05 , & - & 2.65461e-05 , 3.30908e-05 , 4.12490e-05 , 5.14185e-05 , 6.40952e-05 , & - & 7.98972e-05 , 9.95951e-05 , 1.24149e-04 , 1.54757e-04 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296 ,260 ,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &2.0677e-07 ,2.0363e-07 ,2.0583e-07 ,2.0547e-07 ,2.0267e-07 ,2.0154e-07 , & - &2.0190e-07 ,2.0103e-07 ,1.9869e-07 ,1.9663e-07 ,1.9701e-07 ,2.0103e-07 , & - &2.0527e-07 ,2.0206e-07 ,2.0364e-07 ,2.0364e-07 /) - forrefo(2,:) = (/ & - &2.2427e-07 ,2.1489e-07 ,2.0453e-07 ,1.9710e-07 ,1.9650e-07 ,1.9738e-07 , & - &1.9767e-07 ,1.9769e-07 ,1.9940e-07 ,1.9846e-07 ,1.9898e-07 ,1.9853e-07 , & - &2.0000e-07 ,2.0517e-07 ,2.0482e-07 ,2.0482e-07 /) - forrefo(3,:) = (/ & - &2.2672e-07 ,2.1706e-07 ,2.0571e-07 ,1.9747e-07 ,1.9706e-07 ,1.9698e-07 , & - &1.9781e-07 ,1.9774e-07 ,1.9724e-07 ,1.9714e-07 ,1.9751e-07 ,1.9758e-07 , & - &1.9840e-07 ,1.9968e-07 ,1.9931e-07 ,1.9880e-07 /) - forrefo(4,:) = (/ & - &2.2191e-07 ,2.0899e-07 ,2.0265e-07 ,2.0101e-07 ,2.0034e-07 ,2.0021e-07 , & - &1.9987e-07 ,1.9978e-07 ,1.9902e-07 ,1.9742e-07 ,1.9672e-07 ,1.9615e-07 , & - &1.9576e-07 ,1.9540e-07 ,1.9588e-07 ,1.9590e-07 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 5.18832e-02 , 4.28690e-02 , 3.54210e-02 , 2.92670e-02 , 2.41822e-02 , & - & 1.99808e-02 , 1.65093e-02 , 1.36410e-02 , 1.12710e-02 , 9.31280e-03 /) - selfrefo(:, 2) = (/ & - & 4.36030e-02 , 3.78379e-02 , 3.28350e-02 , 2.84936e-02 , 2.47262e-02 , & - & 2.14569e-02 , 1.86199e-02 , 1.61580e-02 , 1.40216e-02 , 1.21677e-02 /) - selfrefo(:, 3) = (/ & - & 4.26492e-02 , 3.71443e-02 , 3.23500e-02 , 2.81745e-02 , 2.45379e-02 , & - & 2.13707e-02 , 1.86124e-02 , 1.62100e-02 , 1.41177e-02 , 1.22955e-02 /) - selfrefo(:, 4) = (/ & - & 4.03591e-02 , 3.54614e-02 , 3.11580e-02 , 2.73769e-02 , 2.40546e-02 , & - & 2.11355e-02 , 1.85706e-02 , 1.63170e-02 , 1.43369e-02 , 1.25970e-02 /) - selfrefo(:, 5) = (/ & - & 3.94512e-02 , 3.46232e-02 , 3.03860e-02 , 2.66674e-02 , 2.34038e-02 , & - & 2.05397e-02 , 1.80260e-02 , 1.58200e-02 , 1.38839e-02 , 1.21848e-02 /) - selfrefo(:, 6) = (/ & - & 3.90567e-02 , 3.40694e-02 , 2.97190e-02 , 2.59241e-02 , 2.26138e-02 , & - & 1.97261e-02 , 1.72072e-02 , 1.50100e-02 , 1.30933e-02 , 1.14214e-02 /) - selfrefo(:, 7) = (/ & - & 3.85397e-02 , 3.36462e-02 , 2.93740e-02 , 2.56443e-02 , 2.23881e-02 , & - & 1.95454e-02 , 1.70636e-02 , 1.48970e-02 , 1.30055e-02 , 1.13541e-02 /) - selfrefo(:, 8) = (/ & - & 3.79692e-02 , 3.31360e-02 , 2.89180e-02 , 2.52369e-02 , 2.20245e-02 , & - & 1.92209e-02 , 1.67742e-02 , 1.46390e-02 , 1.27756e-02 , 1.11493e-02 /) - selfrefo(:, 9) = (/ & - & 3.68819e-02 , 3.22827e-02 , 2.82570e-02 , 2.47333e-02 , 2.16490e-02 , & - & 1.89494e-02 , 1.65863e-02 , 1.45180e-02 , 1.27076e-02 , 1.11229e-02 /) - selfrefo(:,10) = (/ & - & 3.65157e-02 , 3.20121e-02 , 2.80640e-02 , 2.46028e-02 , 2.15685e-02 , & - & 1.89084e-02 , 1.65764e-02 , 1.45320e-02 , 1.27397e-02 , 1.11685e-02 /) - selfrefo(:,11) = (/ & - & 3.59917e-02 , 3.16727e-02 , 2.78720e-02 , 2.45274e-02 , 2.15841e-02 , & - & 1.89940e-02 , 1.67148e-02 , 1.47090e-02 , 1.29439e-02 , 1.13907e-02 /) - selfrefo(:,12) = (/ & - & 3.66963e-02 , 3.20483e-02 , 2.79890e-02 , 2.44439e-02 , 2.13478e-02 , & - & 1.86438e-02 , 1.62824e-02 , 1.42200e-02 , 1.24189e-02 , 1.08459e-02 /) - selfrefo(:,13) = (/ & - & 3.66422e-02 , 3.19026e-02 , 2.77760e-02 , 2.41832e-02 , 2.10551e-02 , & - & 1.83317e-02 , 1.59605e-02 , 1.38960e-02 , 1.20986e-02 , 1.05336e-02 /) - selfrefo(:,14) = (/ & - & 3.81260e-02 , 3.29322e-02 , 2.84460e-02 , 2.45709e-02 , 2.12237e-02 , & - & 1.83325e-02 , 1.58352e-02 , 1.36780e-02 , 1.18147e-02 , 1.02052e-02 /) - selfrefo(:,15) = (/ & - & 3.51264e-02 , 3.05081e-02 , 2.64970e-02 , 2.30133e-02 , 1.99876e-02 , & - & 1.73597e-02 , 1.50773e-02 , 1.30950e-02 , 1.13733e-02 , 9.87800e-03 /) - selfrefo(:,16) = (/ & - & 3.51264e-02 , 3.05081e-02 , 2.64970e-02 , 2.30133e-02 , 1.99876e-02 , & - & 1.73597e-02 , 1.50773e-02 , 1.30950e-02 , 1.13733e-02 , 9.87800e-03 /) - - end subroutine lw_kgb07 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_08.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_08.F90 deleted file mode 100644 index d6a47efe0..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_08.F90 +++ /dev/null @@ -1,2517 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb08 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg08, only : fracrefao, fracrefbo, kao, kao_mco2, kao_mn2o, & - kao_mo3, kbo, kbo_mco2, kbo_mn2o, selfrefo, forrefo, & - cfc12o, cfc22adjo - - implicit none - save - -! Planck fraction mapping level : P=473.4280 mb, T = 259.83 K - fracrefao(:) = (/ & - 1.6004e-01 ,1.5437e-01 ,1.4502e-01 ,1.3084e-01 ,1.1523e-01 ,9.7743e-02 , & - 8.0376e-02 ,6.0261e-02 ,4.1111e-02 ,4.4772e-03 ,3.6511e-03 ,2.9154e-03 , & - 2.1184e-03 ,1.3048e-03 ,4.6637e-04 ,6.5624e-05 /) - -! Planck fraction mapping level : P=95.5835 mb, T= 215.7 K - fracrefbo(:) = (/ & - 1.4987e-01 ,1.4665e-01 ,1.4154e-01 ,1.3200e-01 ,1.1902e-01 ,1.0352e-01 , & - 8.4939e-02 ,6.4105e-02 ,4.3190e-02 ,4.5129e-03 ,3.7656e-03 ,2.8733e-03 , & - 2.0947e-03 ,1.3201e-03 ,5.1832e-04 ,7.7473e-05 /) - -! Minor gas mapping level: -! lower - co2, p = 1053.63 mb, t = 294.2 k -! lower - o3, p = 317.348 mb, t = 240.77 k -! lower - n2o, p = 706.2720 mb, t= 278.94 k -! lower - cfc12,cfc11 -! upper - co2, p = 35.1632 mb, t = 223.28 k -! upper - n2o, p = 8.716e-2 mb, t = 226.03 k - - cfc12o(:) = (/ & - 85.4027 , 89.4696 , 74.0959 , 67.7480 , & - 61.2444 , 59.9073 , 60.8296 , 63.0998 , & - 59.6110 , 64.0735 , 57.2622 , 58.9721 , & - 43.5505 , 26.1192 , 32.7023 , 32.8667 /) -! Original CFC22 is multiplied by 1.485 to account for the 780-850 cm-1 -! and 1290-1335 cm-1 bands. - cfc22adjo(:) = (/ & - 135.335 , 89.6642 , 76.2375 , 65.9748 , & - 63.1164 , 60.2935 , 64.0299 , 75.4264 , & - 51.3018 , 7.07911 , 5.86928 , 0.398693 , & - 2.82885 , 9.12751 , 6.28271 , 0. /) - -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels > ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the corresponding TREF for this pressure level, -! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, -! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second -! index, JP, runs from 1 to 13 and refers to the corresponding -! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). -! The third index, IG, goes from 1 to 16, and tells us which -! g-interval the absorption coefficients are for. - - kao(:, 1, 1) = (/ & - &1.4664e-05 ,1.7114e-05 ,1.8876e-05 ,2.2301e-05 ,2.6622e-05 /) - kao(:, 2, 1) = (/ & - &1.0571e-05 ,1.1718e-05 ,1.4060e-05 ,1.7193e-05 ,2.1557e-05 /) - kao(:, 3, 1) = (/ & - &6.6138e-06 ,8.1523e-06 ,1.0695e-05 ,1.3782e-05 ,1.7449e-05 /) - kao(:, 4, 1) = (/ & - &5.1390e-06 ,7.0055e-06 ,9.4447e-06 ,1.2362e-05 ,1.5431e-05 /) - kao(:, 5, 1) = (/ & - &4.7765e-06 ,6.4140e-06 ,8.4242e-06 ,1.0772e-05 ,1.3788e-05 /) - kao(:, 6, 1) = (/ & - &4.4818e-06 ,6.1945e-06 ,8.3186e-06 ,1.0638e-05 ,1.3072e-05 /) - kao(:, 7, 1) = (/ & - &4.1781e-06 ,5.8651e-06 ,8.2034e-06 ,1.0966e-05 ,1.3592e-05 /) - kao(:, 8, 1) = (/ & - &4.6559e-06 ,6.5570e-06 ,8.8606e-06 ,1.1636e-05 ,1.4449e-05 /) - kao(:, 9, 1) = (/ & - &6.3964e-06 ,9.3461e-06 ,1.3202e-05 ,1.7140e-05 ,2.2124e-05 /) - kao(:,10, 1) = (/ & - &1.0453e-05 ,1.6266e-05 ,2.2571e-05 ,3.2675e-05 ,4.3832e-05 /) - kao(:,11, 1) = (/ & - &1.9225e-05 ,2.5219e-05 ,3.3439e-05 ,4.2567e-05 ,5.0999e-05 /) - kao(:,12, 1) = (/ & - &1.8581e-05 ,2.6464e-05 ,3.4892e-05 ,4.5782e-05 ,5.8008e-05 /) - kao(:,13, 1) = (/ & - &2.3252e-05 ,2.6601e-05 ,3.1497e-05 ,4.1728e-05 ,5.3564e-05 /) - kao(:, 1, 2) = (/ & - &2.4622e-05 ,2.2121e-05 ,2.5151e-05 ,3.1972e-05 ,4.1114e-05 /) - kao(:, 2, 2) = (/ & - &1.5738e-05 ,1.6913e-05 ,2.0782e-05 ,2.6880e-05 ,3.4084e-05 /) - kao(:, 3, 2) = (/ & - &9.8655e-06 ,1.2753e-05 ,1.6558e-05 ,2.1755e-05 ,2.8126e-05 /) - kao(:, 4, 2) = (/ & - &7.9265e-06 ,1.0229e-05 ,1.3524e-05 ,1.7603e-05 ,2.3192e-05 /) - kao(:, 5, 2) = (/ & - &7.0537e-06 ,9.6733e-06 ,1.2570e-05 ,1.6079e-05 ,2.0384e-05 /) - kao(:, 6, 2) = (/ & - &6.5277e-06 ,9.1084e-06 ,1.2443e-05 ,1.5914e-05 ,2.0339e-05 /) - kao(:, 7, 2) = (/ & - &7.4442e-06 ,1.0146e-05 ,1.2791e-05 ,1.6212e-05 ,2.1044e-05 /) - kao(:, 8, 2) = (/ & - &7.4223e-06 ,1.0854e-05 ,1.4643e-05 ,1.9376e-05 ,2.5625e-05 /) - kao(:, 9, 2) = (/ & - &1.4157e-05 ,1.8510e-05 ,2.5064e-05 ,3.4631e-05 ,4.4655e-05 /) - kao(:,10, 2) = (/ & - &3.4785e-05 ,4.4053e-05 ,5.4155e-05 ,6.0764e-05 ,5.9887e-05 /) - kao(:,11, 2) = (/ & - &4.4199e-05 ,5.6024e-05 ,6.6252e-05 ,8.3322e-05 ,1.0437e-04 /) - kao(:,12, 2) = (/ & - &4.8012e-05 ,6.2560e-05 ,7.6674e-05 ,8.6164e-05 ,1.0081e-04 /) - kao(:,13, 2) = (/ & - &3.9220e-05 ,5.8614e-05 ,7.6090e-05 ,8.9710e-05 ,9.6705e-05 /) - kao(:, 1, 3) = (/ & - &2.7517e-05 ,3.2252e-05 ,4.5774e-05 ,5.9187e-05 ,7.3901e-05 /) - kao(:, 2, 3) = (/ & - &1.9414e-05 ,2.5349e-05 ,3.4494e-05 ,4.4078e-05 ,5.4475e-05 /) - kao(:, 3, 3) = (/ & - &1.4431e-05 ,1.9862e-05 ,2.6815e-05 ,3.5045e-05 ,4.4510e-05 /) - kao(:, 4, 3) = (/ & - &1.1163e-05 ,1.5886e-05 ,2.1047e-05 ,2.7352e-05 ,3.5151e-05 /) - kao(:, 5, 3) = (/ & - &1.0004e-05 ,1.3946e-05 ,1.9070e-05 ,2.4940e-05 ,3.2122e-05 /) - kao(:, 6, 3) = (/ & - &9.8796e-06 ,1.2389e-05 ,1.6574e-05 ,2.2677e-05 ,2.9114e-05 /) - kao(:, 7, 3) = (/ & - &9.6705e-06 ,1.3203e-05 ,1.8009e-05 ,2.4248e-05 ,2.9926e-05 /) - kao(:, 8, 3) = (/ & - &1.2684e-05 ,1.5798e-05 ,2.0751e-05 ,2.7135e-05 ,3.4302e-05 /) - kao(:, 9, 3) = (/ & - &2.3748e-05 ,2.8117e-05 ,3.3728e-05 ,4.1366e-05 ,5.3787e-05 /) - kao(:,10, 3) = (/ & - &4.9449e-05 ,6.0387e-05 ,8.1388e-05 ,1.0134e-04 ,1.3311e-04 /) - kao(:,11, 3) = (/ & - &6.5933e-05 ,8.9755e-05 ,1.2191e-04 ,1.3795e-04 ,1.5355e-04 /) - kao(:,12, 3) = (/ & - &6.2437e-05 ,8.0247e-05 ,1.0990e-04 ,1.3683e-04 ,1.6418e-04 /) - kao(:,13, 3) = (/ & - &5.9989e-05 ,6.7831e-05 ,9.4332e-05 ,1.1542e-04 ,1.5040e-04 /) - kao(:, 1, 4) = (/ & - &3.6489e-05 ,5.9568e-05 ,7.8043e-05 ,9.8599e-05 ,1.2261e-04 /) - kao(:, 2, 4) = (/ & - &3.0751e-05 ,4.5700e-05 ,5.9720e-05 ,7.6230e-05 ,9.5698e-05 /) - kao(:, 3, 4) = (/ & - &2.6862e-05 ,3.6448e-05 ,4.6703e-05 ,5.7936e-05 ,7.1216e-05 /) - kao(:, 4, 4) = (/ & - &2.0754e-05 ,2.7900e-05 ,3.6677e-05 ,4.8008e-05 ,6.1630e-05 /) - kao(:, 5, 4) = (/ & - &1.6362e-05 ,2.1862e-05 ,2.9666e-05 ,3.8981e-05 ,5.0305e-05 /) - kao(:, 6, 4) = (/ & - &1.4991e-05 ,2.0957e-05 ,2.6223e-05 ,3.2254e-05 ,4.2632e-05 /) - kao(:, 7, 4) = (/ & - &1.3833e-05 ,1.9399e-05 ,2.5656e-05 ,3.2001e-05 ,4.1685e-05 /) - kao(:, 8, 4) = (/ & - &1.6855e-05 ,2.2852e-05 ,3.0265e-05 ,3.5778e-05 ,4.6073e-05 /) - kao(:, 9, 4) = (/ & - &3.3370e-05 ,4.7904e-05 ,5.8243e-05 ,6.4094e-05 ,7.6700e-05 /) - kao(:,10, 4) = (/ & - &6.8238e-05 ,1.0340e-04 ,1.2739e-04 ,1.5464e-04 ,1.7523e-04 /) - kao(:,11, 4) = (/ & - &6.1230e-05 ,9.6227e-05 ,1.3743e-04 ,1.9846e-04 ,2.3838e-04 /) - kao(:,12, 4) = (/ & - &6.8823e-05 ,1.0715e-04 ,1.3058e-04 ,1.9049e-04 ,2.2996e-04 /) - kao(:,13, 4) = (/ & - &6.5444e-05 ,1.1659e-04 ,1.2685e-04 ,1.7368e-04 ,2.0128e-04 /) - kao(:, 1, 5) = (/ & - &7.8999e-05 ,1.0665e-04 ,1.3776e-04 ,1.7432e-04 ,2.1687e-04 /) - kao(:, 2, 5) = (/ & - &6.1797e-05 ,8.3347e-05 ,1.0862e-04 ,1.3836e-04 ,1.7490e-04 /) - kao(:, 3, 5) = (/ & - &4.7325e-05 ,6.2800e-05 ,8.1194e-05 ,1.0315e-04 ,1.3026e-04 /) - kao(:, 4, 5) = (/ & - &3.8433e-05 ,5.0865e-05 ,6.5549e-05 ,8.2585e-05 ,1.0247e-04 /) - kao(:, 5, 5) = (/ & - &3.0177e-05 ,3.9082e-05 ,4.9288e-05 ,6.5674e-05 ,8.5494e-05 /) - kao(:, 6, 5) = (/ & - &2.4712e-05 ,3.2374e-05 ,4.1224e-05 ,5.5035e-05 ,7.0157e-05 /) - kao(:, 7, 5) = (/ & - &2.2530e-05 ,2.6200e-05 ,3.5121e-05 ,4.6306e-05 ,5.9652e-05 /) - kao(:, 8, 5) = (/ & - &2.8297e-05 ,3.6551e-05 ,4.4329e-05 ,5.9550e-05 ,7.1792e-05 /) - kao(:, 9, 5) = (/ & - &5.6002e-05 ,7.4631e-05 ,8.8607e-05 ,1.1720e-04 ,1.2997e-04 /) - kao(:,10, 5) = (/ & - &8.1020e-05 ,1.1580e-04 ,1.6197e-04 ,2.3825e-04 ,2.8441e-04 /) - kao(:,11, 5) = (/ & - &9.6146e-05 ,1.4644e-04 ,1.7805e-04 ,2.2438e-04 ,3.1753e-04 /) - kao(:,12, 5) = (/ & - &9.5441e-05 ,1.4982e-04 ,2.4222e-04 ,2.7134e-04 ,3.3168e-04 /) - kao(:,13, 5) = (/ & - &9.5058e-05 ,1.4349e-04 ,2.4835e-04 ,2.9526e-04 ,3.7011e-04 /) - kao(:, 1, 6) = (/ & - &1.5625e-04 ,2.0681e-04 ,2.6299e-04 ,3.2669e-04 ,4.0038e-04 /) - kao(:, 2, 6) = (/ & - &1.1702e-04 ,1.5581e-04 ,2.0084e-04 ,2.5419e-04 ,3.1669e-04 /) - kao(:, 3, 6) = (/ & - &8.6159e-05 ,1.1329e-04 ,1.4769e-04 ,1.9151e-04 ,2.4537e-04 /) - kao(:, 4, 6) = (/ & - &7.1655e-05 ,9.4348e-05 ,1.2251e-04 ,1.5312e-04 ,1.8840e-04 /) - kao(:, 5, 6) = (/ & - &5.9776e-05 ,8.0388e-05 ,1.0504e-04 ,1.3009e-04 ,1.5686e-04 /) - kao(:, 6, 6) = (/ & - &4.1587e-05 ,5.6800e-05 ,7.7481e-05 ,9.9930e-05 ,1.3028e-04 /) - kao(:, 7, 6) = (/ & - &3.7625e-05 ,5.2950e-05 ,6.5572e-05 ,8.3943e-05 ,1.0947e-04 /) - kao(:, 8, 6) = (/ & - &4.0934e-05 ,5.1706e-05 ,6.6726e-05 ,8.2858e-05 ,1.0389e-04 /) - kao(:, 9, 6) = (/ & - &8.3177e-05 ,1.0693e-04 ,1.2771e-04 ,1.5344e-04 ,1.9338e-04 /) - kao(:,10, 6) = (/ & - &1.2590e-04 ,1.6860e-04 ,2.4332e-04 ,2.8123e-04 ,4.3002e-04 /) - kao(:,11, 6) = (/ & - &1.5778e-04 ,2.1103e-04 ,2.9773e-04 ,4.5434e-04 ,5.2006e-04 /) - kao(:,12, 6) = (/ & - &1.7734e-04 ,2.3169e-04 ,2.6921e-04 ,4.5377e-04 ,6.4453e-04 /) - kao(:,13, 6) = (/ & - &1.7874e-04 ,2.2968e-04 ,2.8292e-04 ,4.5303e-04 ,6.1897e-04 /) - kao(:, 1, 7) = (/ & - &3.7144e-04 ,4.7830e-04 ,6.0203e-04 ,7.4238e-04 ,8.9847e-04 /) - kao(:, 2, 7) = (/ & - &2.8002e-04 ,3.6431e-04 ,4.6140e-04 ,5.7047e-04 ,6.9195e-04 /) - kao(:, 3, 7) = (/ & - &1.8338e-04 ,2.5018e-04 ,3.2929e-04 ,4.2096e-04 ,5.2583e-04 /) - kao(:, 4, 7) = (/ & - &1.3365e-04 ,1.7565e-04 ,2.2370e-04 ,2.9770e-04 ,3.9171e-04 /) - kao(:, 5, 7) = (/ & - &1.1609e-04 ,1.5410e-04 ,1.9723e-04 ,2.4620e-04 ,3.0830e-04 /) - kao(:, 6, 7) = (/ & - &1.0480e-04 ,1.3862e-04 ,1.7991e-04 ,2.2372e-04 ,2.7406e-04 /) - kao(:, 7, 7) = (/ & - &8.7767e-05 ,1.1689e-04 ,1.5270e-04 ,1.9631e-04 ,2.3773e-04 /) - kao(:, 8, 7) = (/ & - &9.8366e-05 ,1.1738e-04 ,1.4725e-04 ,1.8494e-04 ,2.3601e-04 /) - kao(:, 9, 7) = (/ & - &1.5443e-04 ,1.9009e-04 ,2.4404e-04 ,2.8078e-04 ,3.3602e-04 /) - kao(:,10, 7) = (/ & - &1.5274e-04 ,2.6878e-04 ,3.7659e-04 ,5.3377e-04 ,5.6306e-04 /) - kao(:,11, 7) = (/ & - &2.0214e-04 ,2.6794e-04 ,4.2457e-04 ,5.7376e-04 ,8.8285e-04 /) - kao(:,12, 7) = (/ & - &2.5054e-04 ,3.1232e-04 ,4.4996e-04 ,6.0765e-04 ,8.8689e-04 /) - kao(:,13, 7) = (/ & - &2.7318e-04 ,3.6929e-04 ,4.5362e-04 ,6.1364e-04 ,9.2141e-04 /) - kao(:, 1, 8) = (/ & - &1.1751e-03 ,1.5113e-03 ,1.8892e-03 ,2.3109e-03 ,2.7776e-03 /) - kao(:, 2, 8) = (/ & - &8.9844e-04 ,1.1675e-03 ,1.4748e-03 ,1.8223e-03 ,2.2105e-03 /) - kao(:, 3, 8) = (/ & - &6.3916e-04 ,8.4337e-04 ,1.0777e-03 ,1.3420e-03 ,1.6361e-03 /) - kao(:, 4, 8) = (/ & - &3.9704e-04 ,5.5491e-04 ,7.4493e-04 ,9.5633e-04 ,1.1972e-03 /) - kao(:, 5, 8) = (/ & - &2.8104e-04 ,3.5275e-04 ,4.8572e-04 ,6.7373e-04 ,9.0464e-04 /) - kao(:, 6, 8) = (/ & - &2.6538e-04 ,3.4221e-04 ,4.3816e-04 ,5.5889e-04 ,6.9563e-04 /) - kao(:, 7, 8) = (/ & - &2.6802e-04 ,3.3443e-04 ,4.3228e-04 ,5.4299e-04 ,6.7937e-04 /) - kao(:, 8, 8) = (/ & - &2.6587e-04 ,3.6538e-04 ,4.4243e-04 ,5.3612e-04 ,6.5384e-04 /) - kao(:, 9, 8) = (/ & - &3.1669e-04 ,4.3173e-04 ,5.9018e-04 ,7.8164e-04 ,9.3453e-04 /) - kao(:,10, 8) = (/ & - &2.7923e-04 ,3.5605e-04 ,4.7230e-04 ,7.5710e-04 ,1.3303e-03 /) - kao(:,11, 8) = (/ & - &3.9189e-04 ,4.5454e-04 ,6.3718e-04 ,5.9520e-04 ,8.3511e-04 /) - kao(:,12, 8) = (/ & - &2.6981e-04 ,5.3035e-04 ,6.9787e-04 ,8.5120e-04 ,7.8888e-04 /) - kao(:,13, 8) = (/ & - &2.5533e-04 ,5.3884e-04 ,7.3128e-04 ,1.0359e-03 ,9.5286e-04 /) - kao(:, 1, 9) = (/ & - &4.1658e-03 ,5.4654e-03 ,6.9658e-03 ,8.6722e-03 ,1.0572e-02 /) - kao(:, 2, 9) = (/ & - &3.6223e-03 ,4.7934e-03 ,6.1539e-03 ,7.6963e-03 ,9.3961e-03 /) - kao(:, 3, 9) = (/ & - &2.8899e-03 ,3.8874e-03 ,5.0544e-03 ,6.3815e-03 ,7.8638e-03 /) - kao(:, 4, 9) = (/ & - &2.1989e-03 ,3.0197e-03 ,3.9971e-03 ,5.1085e-03 ,6.3356e-03 /) - kao(:, 5, 9) = (/ & - &1.5192e-03 ,2.2278e-03 ,3.0194e-03 ,3.9009e-03 ,4.8746e-03 /) - kao(:, 6, 9) = (/ & - &8.7921e-04 ,1.3751e-03 ,1.9853e-03 ,2.7076e-03 ,3.5697e-03 /) - kao(:, 7, 9) = (/ & - &8.1169e-04 ,1.0620e-03 ,1.3025e-03 ,1.8213e-03 ,2.5733e-03 /) - kao(:, 8, 9) = (/ & - &8.9592e-04 ,1.1349e-03 ,1.5068e-03 ,1.9574e-03 ,2.3526e-03 /) - kao(:, 9, 9) = (/ & - &6.4937e-04 ,9.7395e-04 ,1.5824e-03 ,2.3319e-03 ,3.1640e-03 /) - kao(:,10, 9) = (/ & - &5.2173e-04 ,1.2542e-03 ,1.3511e-03 ,1.8295e-03 ,2.2102e-03 /) - kao(:,11, 9) = (/ & - &3.8299e-05 ,7.6837e-04 ,1.6073e-03 ,2.1707e-03 ,2.6859e-03 /) - kao(:,12, 9) = (/ & - &5.7389e-05 ,4.8395e-04 ,1.3815e-03 ,2.5956e-03 ,2.8856e-03 /) - kao(:,13, 9) = (/ & - &6.6437e-05 ,4.1020e-04 ,1.3561e-03 ,2.3769e-03 ,2.6400e-03 /) - kao(:, 1,10) = (/ & - &8.5531e-03 ,1.1311e-02 ,1.4946e-02 ,1.9199e-02 ,2.4070e-02 /) - kao(:, 2,10) = (/ & - &7.9512e-03 ,1.0579e-02 ,1.3947e-02 ,1.7937e-02 ,2.2682e-02 /) - kao(:, 3,10) = (/ & - &6.8586e-03 ,9.3196e-03 ,1.2459e-02 ,1.6108e-02 ,2.0278e-02 /) - kao(:, 4,10) = (/ & - &5.7104e-03 ,7.9133e-03 ,1.0642e-02 ,1.3936e-02 ,1.7830e-02 /) - kao(:, 5,10) = (/ & - &4.5965e-03 ,6.4891e-03 ,8.9433e-03 ,1.1923e-02 ,1.5372e-02 /) - kao(:, 6,10) = (/ & - &3.5770e-03 ,5.1433e-03 ,7.2049e-03 ,9.7750e-03 ,1.2529e-02 /) - kao(:, 7,10) = (/ & - &1.4544e-03 ,1.6129e-03 ,4.3574e-03 ,7.0808e-03 ,9.3333e-03 /) - kao(:, 8,10) = (/ & - &1.6681e-03 ,2.3313e-03 ,2.9075e-03 ,3.3382e-03 ,4.3787e-03 /) - kao(:, 9,10) = (/ & - &8.5765e-04 ,1.7252e-03 ,1.7039e-03 ,3.3311e-03 ,4.8997e-03 /) - kao(:,10,10) = (/ & - &2.2034e-05 ,3.2730e-05 ,2.9477e-03 ,2.5954e-03 ,5.2191e-03 /) - kao(:,11,10) = (/ & - &1.5700e-05 ,2.2697e-05 ,3.1811e-05 ,9.1022e-03 ,5.0873e-03 /) - kao(:,12,10) = (/ & - &1.1747e-05 ,1.7581e-05 ,2.4222e-05 ,3.4764e-05 ,8.4666e-03 /) - kao(:,13,10) = (/ & - &8.0435e-06 ,1.2386e-05 ,1.8547e-05 ,2.6164e-05 ,8.2788e-03 /) - kao(:, 1,11) = (/ & - &1.1747e-02 ,1.5703e-02 ,2.0198e-02 ,2.5614e-02 ,3.2111e-02 /) - kao(:, 2,11) = (/ & - &1.0674e-02 ,1.4371e-02 ,1.8733e-02 ,2.4132e-02 ,3.0707e-02 /) - kao(:, 3,11) = (/ & - &9.1890e-03 ,1.2390e-02 ,1.6367e-02 ,2.1591e-02 ,2.7893e-02 /) - kao(:, 4,11) = (/ & - &7.8825e-03 ,1.0755e-02 ,1.4391e-02 ,1.9071e-02 ,2.4702e-02 /) - kao(:, 5,11) = (/ & - &6.5907e-03 ,9.1636e-03 ,1.2468e-02 ,1.6782e-02 ,2.1901e-02 /) - kao(:, 6,11) = (/ & - &5.2625e-03 ,7.5549e-03 ,1.0521e-02 ,1.4321e-02 ,1.8906e-02 /) - kao(:, 7,11) = (/ & - &1.3421e-03 ,5.0016e-03 ,8.2742e-03 ,1.0825e-02 ,1.4096e-02 /) - kao(:, 8,11) = (/ & - &1.1288e-03 ,2.7904e-03 ,2.9048e-03 ,3.8915e-03 ,1.0764e-02 /) - kao(:, 9,11) = (/ & - &1.1212e-03 ,3.3992e-03 ,2.3130e-03 ,2.5518e-03 ,6.4495e-03 /) - kao(:,10,11) = (/ & - &2.4789e-05 ,3.8028e-05 ,7.9034e-03 ,4.9082e-03 ,4.7487e-03 /) - kao(:,11,11) = (/ & - &1.5630e-05 ,2.4780e-05 ,3.4663e-05 ,4.3353e-05 ,1.1174e-02 /) - kao(:,12,11) = (/ & - &1.2516e-05 ,1.8590e-05 ,2.5768e-05 ,3.2997e-05 ,7.6429e-03 /) - kao(:,13,11) = (/ & - &9.1474e-06 ,1.3280e-05 ,1.7796e-05 ,2.4600e-05 ,8.5245e-03 /) - kao(:, 1,12) = (/ & - &1.9137e-02 ,2.4205e-02 ,3.0237e-02 ,3.7229e-02 ,4.5273e-02 /) - kao(:, 2,12) = (/ & - &1.6304e-02 ,2.1414e-02 ,2.7665e-02 ,3.5151e-02 ,4.3535e-02 /) - kao(:, 3,12) = (/ & - &1.3446e-02 ,1.8468e-02 ,2.4699e-02 ,3.1802e-02 ,4.0159e-02 /) - kao(:, 4,12) = (/ & - &1.0988e-02 ,1.5565e-02 ,2.1262e-02 ,2.7914e-02 ,3.5968e-02 /) - kao(:, 5,12) = (/ & - &9.1659e-03 ,1.3233e-02 ,1.8175e-02 ,2.4059e-02 ,3.1596e-02 /) - kao(:, 6,12) = (/ & - &7.6758e-03 ,1.1199e-02 ,1.5520e-02 ,2.0906e-02 ,2.7754e-02 /) - kao(:, 7,12) = (/ & - &5.4756e-03 ,9.3901e-03 ,1.3292e-02 ,1.8129e-02 ,2.3738e-02 /) - kao(:, 8,12) = (/ & - &8.4306e-04 ,3.0332e-03 ,3.5332e-03 ,1.1602e-02 ,1.7968e-02 /) - kao(:, 9,12) = (/ & - &1.4946e-03 ,1.5749e-03 ,3.2158e-03 ,3.1867e-03 ,3.5737e-03 /) - kao(:,10,12) = (/ & - &2.3105e-05 ,3.7657e-05 ,5.4692e-05 ,1.0942e-02 ,7.6646e-03 /) - kao(:,11,12) = (/ & - &1.6278e-05 ,2.6849e-05 ,3.8655e-05 ,5.4498e-05 ,7.7401e-03 /) - kao(:,12,12) = (/ & - &1.1713e-05 ,1.9330e-05 ,2.9159e-05 ,3.9386e-05 ,5.6995e-05 /) - kao(:,13,12) = (/ & - &9.2970e-06 ,1.5197e-05 ,2.2881e-05 ,3.3051e-05 ,4.6248e-05 /) - kao(:, 1,13) = (/ & - &3.6366e-02 ,4.6887e-02 ,5.8513e-02 ,7.0986e-02 ,8.4117e-02 /) - kao(:, 2,13) = (/ & - &3.3990e-02 ,4.3857e-02 ,5.4708e-02 ,6.6354e-02 ,7.9156e-02 /) - kao(:, 3,13) = (/ & - &2.8482e-02 ,3.7147e-02 ,4.6806e-02 ,5.7889e-02 ,7.0408e-02 /) - kao(:, 4,13) = (/ & - &2.2450e-02 ,2.9975e-02 ,3.8835e-02 ,4.9297e-02 ,6.1450e-02 /) - kao(:, 5,13) = (/ & - &1.7322e-02 ,2.3874e-02 ,3.2063e-02 ,4.2032e-02 ,5.3868e-02 /) - kao(:, 6,13) = (/ & - &1.3022e-02 ,1.8695e-02 ,2.6114e-02 ,3.5380e-02 ,4.6717e-02 /) - kao(:, 7,13) = (/ & - &9.9635e-03 ,1.4798e-02 ,2.1337e-02 ,2.9901e-02 ,4.0578e-02 /) - kao(:, 8,13) = (/ & - &9.7470e-04 ,2.7616e-03 ,1.5907e-02 ,2.2415e-02 ,2.7492e-02 /) - kao(:, 9,13) = (/ & - &1.9362e-03 ,1.8145e-03 ,4.1737e-03 ,3.7651e-03 ,6.5913e-03 /) - kao(:,10,13) = (/ & - &2.8915e-05 ,4.8621e-05 ,6.9201e-05 ,8.4840e-03 ,1.1790e-02 /) - kao(:,11,13) = (/ & - &2.3309e-05 ,3.4553e-05 ,5.2552e-05 ,7.2505e-05 ,8.3347e-05 /) - kao(:,12,13) = (/ & - &1.5870e-05 ,2.3577e-05 ,3.4029e-05 ,5.3277e-05 ,6.5207e-05 /) - kao(:,13,13) = (/ & - &1.1931e-05 ,1.9929e-05 ,2.7393e-05 ,3.2822e-05 ,4.4265e-05 /) - kao(:, 1,14) = (/ & - &6.9682e-02 ,8.7076e-02 ,1.0644e-01 ,1.2772e-01 ,1.5052e-01 /) - kao(:, 2,14) = (/ & - &6.7443e-02 ,8.6048e-02 ,1.0697e-01 ,1.3011e-01 ,1.5516e-01 /) - kao(:, 3,14) = (/ & - &6.1305e-02 ,8.0158e-02 ,1.0175e-01 ,1.2582e-01 ,1.5220e-01 /) - kao(:, 4,14) = (/ & - &5.3357e-02 ,7.1652e-02 ,9.2935e-02 ,1.1706e-01 ,1.4376e-01 /) - kao(:, 5,14) = (/ & - &4.5060e-02 ,6.2229e-02 ,8.2609e-02 ,1.0608e-01 ,1.3238e-01 /) - kao(:, 6,14) = (/ & - &3.6438e-02 ,5.1966e-02 ,7.0824e-02 ,9.2958e-02 ,1.1819e-01 /) - kao(:, 7,14) = (/ & - &2.8491e-02 ,4.2112e-02 ,5.9112e-02 ,7.9508e-02 ,1.0325e-01 /) - kao(:, 8,14) = (/ & - &1.8236e-02 ,3.3304e-02 ,4.8438e-02 ,6.6896e-02 ,8.8683e-02 /) - kao(:, 9,14) = (/ & - &2.4537e-03 ,2.3453e-03 ,8.8067e-03 ,2.0762e-02 ,4.5513e-02 /) - kao(:,10,14) = (/ & - &1.4330e-05 ,1.7518e-05 ,3.1868e-05 ,4.9025e-05 ,3.3153e-02 /) - kao(:,11,14) = (/ & - &1.4087e-05 ,2.3580e-05 ,3.6793e-05 ,4.1734e-05 ,4.2976e-05 /) - kao(:,12,14) = (/ & - &1.3087e-05 ,2.2036e-05 ,3.4770e-05 ,3.7226e-05 ,3.8663e-05 /) - kao(:,13,14) = (/ & - &6.3004e-06 ,7.4647e-06 ,1.3256e-05 ,1.9422e-05 ,2.7358e-05 /) - kao(:, 1,15) = (/ & - &1.0457e-01 ,1.3337e-01 ,1.6543e-01 ,2.0044e-01 ,2.3788e-01 /) - kao(:, 2,15) = (/ & - &1.1420e-01 ,1.4734e-01 ,1.8451e-01 ,2.2524e-01 ,2.6907e-01 /) - kao(:, 3,15) = (/ & - &1.1631e-01 ,1.5291e-01 ,1.9437e-01 ,2.4033e-01 ,2.9013e-01 /) - kao(:, 4,15) = (/ & - &1.1302e-01 ,1.5183e-01 ,1.9657e-01 ,2.4665e-01 ,3.0148e-01 /) - kao(:, 5,15) = (/ & - &1.0669e-01 ,1.4681e-01 ,1.9375e-01 ,2.4698e-01 ,3.0586e-01 /) - kao(:, 6,15) = (/ & - &9.6727e-02 ,1.3681e-01 ,1.8458e-01 ,2.3961e-01 ,3.0104e-01 /) - kao(:, 7,15) = (/ & - &8.4990e-02 ,1.2388e-01 ,1.7124e-01 ,2.2660e-01 ,2.8964e-01 /) - kao(:, 8,15) = (/ & - &7.2581e-02 ,1.0932e-01 ,1.5506e-01 ,2.1052e-01 ,2.7593e-01 /) - kao(:, 9,15) = (/ & - &2.1552e-02 ,6.6962e-02 ,1.2166e-01 ,1.8985e-01 ,2.2620e-01 /) - kao(:,10,15) = (/ & - &8.5757e-06 ,7.9319e-06 ,7.5384e-06 ,5.2149e-06 ,3.5776e-06 /) - kao(:,11,15) = (/ & - &7.3855e-06 ,7.4681e-06 ,7.1804e-06 ,6.5771e-06 ,3.3890e-06 /) - kao(:,12,15) = (/ & - &5.9318e-06 ,6.7082e-06 ,7.4828e-06 ,6.0815e-06 ,3.2500e-06 /) - kao(:,13,15) = (/ & - &7.9734e-06 ,1.0467e-05 ,1.8551e-05 ,3.3018e-05 ,1.4396e-05 /) - kao(:, 1,16) = (/ & - &1.0940e-01 ,1.4000e-01 ,1.7421e-01 ,2.1173e-01 ,2.5214e-01 /) - kao(:, 2,16) = (/ & - &1.2207e-01 ,1.5824e-01 ,1.9908e-01 ,2.4418e-01 ,2.9310e-01 /) - kao(:, 3,16) = (/ & - &1.2803e-01 ,1.6941e-01 ,2.1687e-01 ,2.6992e-01 ,3.2810e-01 /) - kao(:, 4,16) = (/ & - &1.2912e-01 ,1.7512e-01 ,2.2885e-01 ,2.8989e-01 ,3.5760e-01 /) - kao(:, 5,16) = (/ & - &1.2782e-01 ,1.7809e-01 ,2.3798e-01 ,3.0717e-01 ,3.8500e-01 /) - kao(:, 6,16) = (/ & - &1.2288e-01 ,1.7665e-01 ,2.4226e-01 ,3.1945e-01 ,4.0769e-01 /) - kao(:, 7,16) = (/ & - &1.1601e-01 ,1.7265e-01 ,2.4356e-01 ,3.2874e-01 ,4.2783e-01 /) - kao(:, 8,16) = (/ & - &1.0802e-01 ,1.6690e-01 ,2.4265e-01 ,3.3582e-01 ,4.4617e-01 /) - kao(:, 9,16) = (/ & - &9.8584e-02 ,1.5878e-01 ,2.3864e-01 ,3.3924e-01 ,4.6085e-01 /) - kao(:,10,16) = (/ & - &2.5370e-06 ,3.6996e-06 ,5.1180e-06 ,9.0911e-06 ,1.0521e-05 /) - kao(:,11,16) = (/ & - &2.1410e-06 ,3.1393e-06 ,2.7559e-06 ,9.6933e-06 ,1.1052e-05 /) - kao(:,12,16) = (/ & - &1.7911e-06 ,2.0648e-06 ,1.9476e-06 ,1.0250e-05 ,1.1569e-05 /) - kao(:,13,16) = (/ & - &6.8424e-07 ,2.1307e-05 ,3.0235e-05 ,1.0419e-05 ,1.1877e-05 /) - -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kbo(:,13, 1) = (/ & - &2.1590e-02 ,2.2747e-02 ,2.3755e-02 ,2.4762e-02 ,2.5739e-02 /) - kbo(:,14, 1) = (/ & - &1.5891e-02 ,1.6865e-02 ,1.7785e-02 ,1.8588e-02 ,1.9375e-02 /) - kbo(:,15, 1) = (/ & - &1.2008e-02 ,1.2891e-02 ,1.3700e-02 ,1.4369e-02 ,1.4970e-02 /) - kbo(:,16, 1) = (/ & - &9.5594e-03 ,1.0266e-02 ,1.0893e-02 ,1.1429e-02 ,1.1863e-02 /) - kbo(:,17, 1) = (/ & - &7.6979e-03 ,8.2617e-03 ,8.7527e-03 ,9.1620e-03 ,9.5161e-03 /) - kbo(:,18, 1) = (/ & - &6.2689e-03 ,6.7130e-03 ,7.1029e-03 ,7.4199e-03 ,7.7032e-03 /) - kbo(:,19, 1) = (/ & - &5.1124e-03 ,5.4669e-03 ,5.7636e-03 ,6.0175e-03 ,6.2439e-03 /) - kbo(:,20, 1) = (/ & - &4.2074e-03 ,4.4879e-03 ,4.7226e-03 ,4.9240e-03 ,5.1066e-03 /) - kbo(:,21, 1) = (/ & - &3.4689e-03 ,3.6905e-03 ,3.8771e-03 ,4.0402e-03 ,4.1874e-03 /) - kbo(:,22, 1) = (/ & - &2.8675e-03 ,3.0422e-03 ,3.1923e-03 ,3.3247e-03 ,3.4419e-03 /) - kbo(:,23, 1) = (/ & - &2.3673e-03 ,2.5068e-03 ,2.6269e-03 ,2.7338e-03 ,2.8272e-03 /) - kbo(:,24, 1) = (/ & - &1.9512e-03 ,2.0620e-03 ,2.1580e-03 ,2.2436e-03 ,2.3178e-03 /) - kbo(:,25, 1) = (/ & - &1.6104e-03 ,1.6991e-03 ,1.7756e-03 ,1.8445e-03 ,1.9031e-03 /) - kbo(:,26, 1) = (/ & - &1.3324e-03 ,1.4030e-03 ,1.4641e-03 ,1.5181e-03 ,1.5647e-03 /) - kbo(:,27, 1) = (/ & - &1.1030e-03 ,1.1588e-03 ,1.2079e-03 ,1.2506e-03 ,1.2885e-03 /) - kbo(:,28, 1) = (/ & - &9.1277e-04 ,9.5694e-04 ,9.9621e-04 ,1.0308e-03 ,1.0603e-03 /) - kbo(:,29, 1) = (/ & - &7.5709e-04 ,7.9257e-04 ,8.2415e-04 ,8.5205e-04 ,8.7500e-04 /) - kbo(:,30, 1) = (/ & - &6.2805e-04 ,6.5667e-04 ,6.8205e-04 ,7.0403e-04 ,7.2224e-04 /) - kbo(:,31, 1) = (/ & - &5.2190e-04 ,5.4469e-04 ,5.6521e-04 ,5.8274e-04 ,5.9713e-04 /) - kbo(:,32, 1) = (/ & - &4.3349e-04 ,4.5214e-04 ,4.6842e-04 ,4.8237e-04 ,4.9367e-04 /) - kbo(:,33, 1) = (/ & - &3.5999e-04 ,3.7522e-04 ,3.8828e-04 ,3.9917e-04 ,4.0831e-04 /) - kbo(:,34, 1) = (/ & - &2.9885e-04 ,3.1108e-04 ,3.2123e-04 ,3.3020e-04 ,3.3735e-04 /) - kbo(:,35, 1) = (/ & - &2.4686e-04 ,2.5649e-04 ,2.6489e-04 ,2.7217e-04 ,2.7798e-04 /) - kbo(:,36, 1) = (/ & - &2.0249e-04 ,2.1050e-04 ,2.1752e-04 ,2.2349e-04 ,2.2845e-04 /) - kbo(:,37, 1) = (/ & - &1.6556e-04 ,1.7221e-04 ,1.7821e-04 ,1.8323e-04 ,1.8756e-04 /) - kbo(:,38, 1) = (/ & - &1.3530e-04 ,1.4093e-04 ,1.4599e-04 ,1.5028e-04 ,1.5406e-04 /) - kbo(:,39, 1) = (/ & - &1.1062e-04 ,1.1539e-04 ,1.1961e-04 ,1.2331e-04 ,1.2663e-04 /) - kbo(:,40, 1) = (/ & - &8.9884e-05 ,9.3980e-05 ,9.7546e-05 ,1.0075e-04 ,1.0361e-04 /) - kbo(:,41, 1) = (/ & - &7.2964e-05 ,7.6433e-05 ,7.9468e-05 ,8.2219e-05 ,8.4723e-05 /) - kbo(:,42, 1) = (/ & - &5.9182e-05 ,6.2146e-05 ,6.4721e-05 ,6.7085e-05 ,6.9267e-05 /) - kbo(:,43, 1) = (/ & - &4.7864e-05 ,5.0382e-05 ,5.2591e-05 ,5.4634e-05 ,5.6528e-05 /) - kbo(:,44, 1) = (/ & - &3.8628e-05 ,4.0783e-05 ,4.2701e-05 ,4.4436e-05 ,4.6114e-05 /) - kbo(:,45, 1) = (/ & - &3.1127e-05 ,3.3002e-05 ,3.4654e-05 ,3.6151e-05 ,3.7566e-05 /) - kbo(:,46, 1) = (/ & - &2.5026e-05 ,2.6649e-05 ,2.8068e-05 ,2.9367e-05 ,3.0563e-05 /) - kbo(:,47, 1) = (/ & - &2.0040e-05 ,2.1423e-05 ,2.2656e-05 ,2.3781e-05 ,2.4816e-05 /) - kbo(:,48, 1) = (/ & - &1.6036e-05 ,1.7209e-05 ,1.8283e-05 ,1.9267e-05 ,2.0138e-05 /) - kbo(:,49, 1) = (/ & - &1.2828e-05 ,1.3830e-05 ,1.4752e-05 ,1.5602e-05 ,1.6354e-05 /) - kbo(:,50, 1) = (/ & - &1.0257e-05 ,1.1106e-05 ,1.1884e-05 ,1.2616e-05 ,1.3265e-05 /) - kbo(:,51, 1) = (/ & - &8.1934e-06 ,8.9110e-06 ,9.5669e-06 ,1.0186e-05 ,1.0748e-05 /) - kbo(:,52, 1) = (/ & - &6.5467e-06 ,7.1424e-06 ,7.7065e-06 ,8.2286e-06 ,8.7123e-06 /) - kbo(:,53, 1) = (/ & - &5.2332e-06 ,5.7328e-06 ,6.2119e-06 ,6.6510e-06 ,7.0700e-06 /) - kbo(:,54, 1) = (/ & - &4.1577e-06 ,4.5779e-06 ,4.9804e-06 ,5.3498e-06 ,5.7020e-06 /) - kbo(:,55, 1) = (/ & - &3.2878e-06 ,3.6403e-06 ,3.9741e-06 ,4.2805e-06 ,4.5760e-06 /) - kbo(:,56, 1) = (/ & - &2.5965e-06 ,2.8911e-06 ,3.1663e-06 ,3.4265e-06 ,3.6666e-06 /) - kbo(:,57, 1) = (/ & - &2.0466e-06 ,2.2908e-06 ,2.5217e-06 ,2.7403e-06 ,2.9373e-06 /) - kbo(:,58, 1) = (/ & - &1.6093e-06 ,1.8128e-06 ,2.0059e-06 ,2.1882e-06 ,2.3529e-06 /) - kbo(:,59, 1) = (/ & - &1.2776e-06 ,1.4459e-06 ,1.6042e-06 ,1.7524e-06 ,1.8906e-06 /) - kbo(:,13, 2) = (/ & - &3.8014e-02 ,3.9737e-02 ,4.1825e-02 ,4.3879e-02 ,4.5802e-02 /) - kbo(:,14, 2) = (/ & - &3.0759e-02 ,3.2195e-02 ,3.3860e-02 ,3.5735e-02 ,3.7445e-02 /) - kbo(:,15, 2) = (/ & - &2.4737e-02 ,2.6065e-02 ,2.7499e-02 ,2.8985e-02 ,3.0345e-02 /) - kbo(:,16, 2) = (/ & - &2.0386e-02 ,2.1604e-02 ,2.2870e-02 ,2.4062e-02 ,2.5169e-02 /) - kbo(:,17, 2) = (/ & - &1.6973e-02 ,1.8030e-02 ,1.9046e-02 ,1.9999e-02 ,2.0836e-02 /) - kbo(:,18, 2) = (/ & - &1.4179e-02 ,1.5045e-02 ,1.5843e-02 ,1.6598e-02 ,1.7207e-02 /) - kbo(:,19, 2) = (/ & - &1.1784e-02 ,1.2488e-02 ,1.3131e-02 ,1.3688e-02 ,1.4139e-02 /) - kbo(:,20, 2) = (/ & - &9.8208e-03 ,1.0377e-02 ,1.0872e-02 ,1.1296e-02 ,1.1641e-02 /) - kbo(:,21, 2) = (/ & - &8.1632e-03 ,8.5996e-03 ,8.9808e-03 ,9.3040e-03 ,9.5696e-03 /) - kbo(:,22, 2) = (/ & - &6.7970e-03 ,7.1290e-03 ,7.4204e-03 ,7.6665e-03 ,7.8692e-03 /) - kbo(:,23, 2) = (/ & - &5.6384e-03 ,5.8917e-03 ,6.1228e-03 ,6.3098e-03 ,6.4698e-03 /) - kbo(:,24, 2) = (/ & - &4.6602e-03 ,4.8595e-03 ,5.0396e-03 ,5.1884e-03 ,5.3131e-03 /) - kbo(:,25, 2) = (/ & - &3.8492e-03 ,4.0101e-03 ,4.1507e-03 ,4.2656e-03 ,4.3666e-03 /) - kbo(:,26, 2) = (/ & - &3.1817e-03 ,3.3089e-03 ,3.4202e-03 ,3.5130e-03 ,3.5943e-03 /) - kbo(:,27, 2) = (/ & - &2.6312e-03 ,2.7340e-03 ,2.8215e-03 ,2.8952e-03 ,2.9585e-03 /) - kbo(:,28, 2) = (/ & - &2.1766e-03 ,2.2592e-03 ,2.3277e-03 ,2.3874e-03 ,2.4369e-03 /) - kbo(:,29, 2) = (/ & - &1.8050e-03 ,1.8690e-03 ,1.9243e-03 ,1.9721e-03 ,2.0134e-03 /) - kbo(:,30, 2) = (/ & - &1.4965e-03 ,1.5474e-03 ,1.5922e-03 ,1.6307e-03 ,1.6644e-03 /) - kbo(:,31, 2) = (/ & - &1.2416e-03 ,1.2835e-03 ,1.3200e-03 ,1.3519e-03 ,1.3783e-03 /) - kbo(:,32, 2) = (/ & - &1.0308e-03 ,1.0652e-03 ,1.0950e-03 ,1.1207e-03 ,1.1427e-03 /) - kbo(:,33, 2) = (/ & - &8.5698e-04 ,8.8430e-04 ,9.0863e-04 ,9.2966e-04 ,9.4803e-04 /) - kbo(:,34, 2) = (/ & - &7.1109e-04 ,7.3332e-04 ,7.5331e-04 ,7.7074e-04 ,7.8601e-04 /) - kbo(:,35, 2) = (/ & - &5.8729e-04 ,6.0603e-04 ,6.2268e-04 ,6.3737e-04 ,6.5045e-04 /) - kbo(:,36, 2) = (/ & - &4.8310e-04 ,4.9861e-04 ,5.1251e-04 ,5.2508e-04 ,5.3615e-04 /) - kbo(:,37, 2) = (/ & - &3.9625e-04 ,4.0955e-04 ,4.2151e-04 ,4.3225e-04 ,4.4172e-04 /) - kbo(:,38, 2) = (/ & - &3.2503e-04 ,3.3643e-04 ,3.4664e-04 ,3.5587e-04 ,3.6445e-04 /) - kbo(:,39, 2) = (/ & - &2.6664e-04 ,2.7639e-04 ,2.8514e-04 ,2.9332e-04 ,3.0098e-04 /) - kbo(:,40, 2) = (/ & - &2.1759e-04 ,2.2608e-04 ,2.3348e-04 ,2.4050e-04 ,2.4712e-04 /) - kbo(:,41, 2) = (/ & - &1.7739e-04 ,1.8462e-04 ,1.9097e-04 ,1.9703e-04 ,2.0268e-04 /) - kbo(:,42, 2) = (/ & - &1.4453e-04 ,1.5070e-04 ,1.5612e-04 ,1.6130e-04 ,1.6626e-04 /) - kbo(:,43, 2) = (/ & - &1.1750e-04 ,1.2276e-04 ,1.2736e-04 ,1.3185e-04 ,1.3616e-04 /) - kbo(:,44, 2) = (/ & - &9.5367e-05 ,9.9857e-05 ,1.0380e-04 ,1.0768e-04 ,1.1140e-04 /) - kbo(:,45, 2) = (/ & - &7.7428e-05 ,8.1152e-05 ,8.4582e-05 ,8.7898e-05 ,9.1175e-05 /) - kbo(:,46, 2) = (/ & - &6.2722e-05 ,6.5854e-05 ,6.8828e-05 ,7.1656e-05 ,7.4494e-05 /) - kbo(:,47, 2) = (/ & - &5.0620e-05 ,5.3291e-05 ,5.5834e-05 ,5.8234e-05 ,6.0703e-05 /) - kbo(:,48, 2) = (/ & - &4.0839e-05 ,4.3112e-05 ,4.5285e-05 ,4.7326e-05 ,4.9468e-05 /) - kbo(:,49, 2) = (/ & - &3.2956e-05 ,3.4871e-05 ,3.6734e-05 ,3.8477e-05 ,4.0339e-05 /) - kbo(:,50, 2) = (/ & - &2.6578e-05 ,2.8186e-05 ,2.9765e-05 ,3.1246e-05 ,3.2810e-05 /) - kbo(:,51, 2) = (/ & - &2.1419e-05 ,2.2753e-05 ,2.4086e-05 ,2.5342e-05 ,2.6653e-05 /) - kbo(:,52, 2) = (/ & - &1.7265e-05 ,1.8376e-05 ,1.9492e-05 ,2.0556e-05 ,2.1651e-05 /) - kbo(:,53, 2) = (/ & - &1.3928e-05 ,1.4844e-05 ,1.5782e-05 ,1.6689e-05 ,1.7614e-05 /) - kbo(:,54, 2) = (/ & - &1.1205e-05 ,1.1963e-05 ,1.2726e-05 ,1.3478e-05 ,1.4240e-05 /) - kbo(:,55, 2) = (/ & - &8.9889e-06 ,9.6190e-06 ,1.0235e-05 ,1.0868e-05 ,1.1479e-05 /) - kbo(:,56, 2) = (/ & - &7.2032e-06 ,7.7304e-06 ,8.2333e-06 ,8.7486e-06 ,9.2547e-06 /) - kbo(:,57, 2) = (/ & - &5.7621e-06 ,6.2097e-06 ,6.6195e-06 ,7.0372e-06 ,7.4615e-06 /) - kbo(:,58, 2) = (/ & - &4.6073e-06 ,4.9865e-06 ,5.3240e-06 ,5.6615e-06 ,6.0083e-06 /) - kbo(:,59, 2) = (/ & - &3.7094e-06 ,4.0178e-06 ,4.3021e-06 ,4.5755e-06 ,4.8477e-06 /) - kbo(:,13, 3) = (/ & - &6.3405e-02 ,6.5846e-02 ,6.7902e-02 ,7.0344e-02 ,7.3087e-02 /) - kbo(:,14, 3) = (/ & - &5.1252e-02 ,5.3361e-02 ,5.5658e-02 ,5.8048e-02 ,6.0738e-02 /) - kbo(:,15, 3) = (/ & - &4.2340e-02 ,4.4418e-02 ,4.6657e-02 ,4.8923e-02 ,5.1338e-02 /) - kbo(:,16, 3) = (/ & - &3.5507e-02 ,3.7339e-02 ,3.9465e-02 ,4.1652e-02 ,4.3669e-02 /) - kbo(:,17, 3) = (/ & - &2.9824e-02 ,3.1523e-02 ,3.3435e-02 ,3.5273e-02 ,3.6953e-02 /) - kbo(:,18, 3) = (/ & - &2.5125e-02 ,2.6683e-02 ,2.8323e-02 ,2.9797e-02 ,3.1126e-02 /) - kbo(:,19, 3) = (/ & - &2.1223e-02 ,2.2544e-02 ,2.3820e-02 ,2.4985e-02 ,2.5990e-02 /) - kbo(:,20, 3) = (/ & - &1.7915e-02 ,1.8986e-02 ,1.9994e-02 ,2.0861e-02 ,2.1602e-02 /) - kbo(:,21, 3) = (/ & - &1.5062e-02 ,1.5916e-02 ,1.6665e-02 ,1.7312e-02 ,1.7872e-02 /) - kbo(:,22, 3) = (/ & - &1.2635e-02 ,1.3292e-02 ,1.3846e-02 ,1.4329e-02 ,1.4769e-02 /) - kbo(:,23, 3) = (/ & - &1.0554e-02 ,1.1051e-02 ,1.1464e-02 ,1.1841e-02 ,1.2180e-02 /) - kbo(:,24, 3) = (/ & - &8.7770e-03 ,9.1488e-03 ,9.4668e-03 ,9.7625e-03 ,1.0031e-02 /) - kbo(:,25, 3) = (/ & - &7.2756e-03 ,7.5544e-03 ,7.8035e-03 ,8.0431e-03 ,8.2495e-03 /) - kbo(:,26, 3) = (/ & - &6.0226e-03 ,6.2378e-03 ,6.4382e-03 ,6.6253e-03 ,6.7857e-03 /) - kbo(:,27, 3) = (/ & - &4.9811e-03 ,5.1501e-03 ,5.3115e-03 ,5.4587e-03 ,5.5851e-03 /) - kbo(:,28, 3) = (/ & - &4.1172e-03 ,4.2566e-03 ,4.3852e-03 ,4.4995e-03 ,4.6022e-03 /) - kbo(:,29, 3) = (/ & - &3.4101e-03 ,3.5232e-03 ,3.6273e-03 ,3.7181e-03 ,3.8009e-03 /) - kbo(:,30, 3) = (/ & - &2.8248e-03 ,2.9164e-03 ,2.9992e-03 ,3.0754e-03 ,3.1419e-03 /) - kbo(:,31, 3) = (/ & - &2.3450e-03 ,2.4195e-03 ,2.4879e-03 ,2.5493e-03 ,2.6070e-03 /) - kbo(:,32, 3) = (/ & - &1.9491e-03 ,2.0095e-03 ,2.0670e-03 ,2.1190e-03 ,2.1683e-03 /) - kbo(:,33, 3) = (/ & - &1.6195e-03 ,1.6713e-03 ,1.7189e-03 ,1.7649e-03 ,1.8032e-03 /) - kbo(:,34, 3) = (/ & - &1.3454e-03 ,1.3883e-03 ,1.4290e-03 ,1.4663e-03 ,1.4976e-03 /) - kbo(:,35, 3) = (/ & - &1.1151e-03 ,1.1504e-03 ,1.1846e-03 ,1.2147e-03 ,1.2425e-03 /) - kbo(:,36, 3) = (/ & - &9.1872e-04 ,9.4904e-04 ,9.7800e-04 ,1.0033e-03 ,1.0278e-03 /) - kbo(:,37, 3) = (/ & - &7.5556e-04 ,7.8161e-04 ,8.0630e-04 ,8.2845e-04 ,8.4914e-04 /) - kbo(:,38, 3) = (/ & - &6.2192e-04 ,6.4458e-04 ,6.6572e-04 ,6.8474e-04 ,7.0313e-04 /) - kbo(:,39, 3) = (/ & - &5.1238e-04 ,5.3172e-04 ,5.4973e-04 ,5.6636e-04 ,5.8235e-04 /) - kbo(:,40, 3) = (/ & - &4.1982e-04 ,4.3621e-04 ,4.5139e-04 ,4.6596e-04 ,4.7961e-04 /) - kbo(:,41, 3) = (/ & - &3.4388e-04 ,3.5746e-04 ,3.7054e-04 ,3.8291e-04 ,3.9470e-04 /) - kbo(:,42, 3) = (/ & - &2.8144e-04 ,2.9295e-04 ,3.0424e-04 ,3.1457e-04 ,3.2459e-04 /) - kbo(:,43, 3) = (/ & - &2.2990e-04 ,2.3955e-04 ,2.4928e-04 ,2.5827e-04 ,2.6672e-04 /) - kbo(:,44, 3) = (/ & - &1.8744e-04 ,1.9582e-04 ,2.0413e-04 ,2.1176e-04 ,2.1912e-04 /) - kbo(:,45, 3) = (/ & - &1.5285e-04 ,1.6000e-04 ,1.6711e-04 ,1.7363e-04 ,1.7993e-04 /) - kbo(:,46, 3) = (/ & - &1.2448e-04 ,1.3059e-04 ,1.3656e-04 ,1.4216e-04 ,1.4758e-04 /) - kbo(:,47, 3) = (/ & - &1.0103e-04 ,1.0628e-04 ,1.1130e-04 ,1.1611e-04 ,1.2074e-04 /) - kbo(:,48, 3) = (/ & - &8.1983e-05 ,8.6504e-05 ,9.0728e-05 ,9.4862e-05 ,9.8826e-05 /) - kbo(:,49, 3) = (/ & - &6.6563e-05 ,7.0429e-05 ,7.4014e-05 ,7.7542e-05 ,8.0976e-05 /) - kbo(:,50, 3) = (/ & - &5.3952e-05 ,5.7235e-05 ,6.0247e-05 ,6.3258e-05 ,6.6182e-05 /) - kbo(:,51, 3) = (/ & - &4.3663e-05 ,4.6470e-05 ,4.9001e-05 ,5.1519e-05 ,5.4013e-05 /) - kbo(:,52, 3) = (/ & - &3.5323e-05 ,3.7705e-05 ,3.9846e-05 ,4.1973e-05 ,4.4086e-05 /) - kbo(:,53, 3) = (/ & - &2.8583e-05 ,3.0614e-05 ,3.2428e-05 ,3.4214e-05 ,3.6024e-05 /) - kbo(:,54, 3) = (/ & - &2.3052e-05 ,2.4741e-05 ,2.6291e-05 ,2.7754e-05 ,2.9233e-05 /) - kbo(:,55, 3) = (/ & - &1.8532e-05 ,1.9924e-05 ,2.1226e-05 ,2.2443e-05 ,2.3644e-05 /) - kbo(:,56, 3) = (/ & - &1.4892e-05 ,1.6026e-05 ,1.7132e-05 ,1.8148e-05 ,1.9127e-05 /) - kbo(:,57, 3) = (/ & - &1.1957e-05 ,1.2880e-05 ,1.3809e-05 ,1.4669e-05 ,1.5458e-05 /) - kbo(:,58, 3) = (/ & - &9.6000e-06 ,1.0349e-05 ,1.1127e-05 ,1.1847e-05 ,1.2497e-05 /) - kbo(:,59, 3) = (/ & - &7.7452e-06 ,8.3627e-06 ,8.9895e-06 ,9.5703e-06 ,1.0120e-05 /) - kbo(:,13, 4) = (/ & - &9.9915e-02 ,1.0385e-01 ,1.0749e-01 ,1.1095e-01 ,1.1480e-01 /) - kbo(:,14, 4) = (/ & - &8.4174e-02 ,8.7314e-02 ,9.0833e-02 ,9.4040e-02 ,9.7483e-02 /) - kbo(:,15, 4) = (/ & - &7.1798e-02 ,7.3772e-02 ,7.6218e-02 ,7.9303e-02 ,8.2911e-02 /) - kbo(:,16, 4) = (/ & - &6.0987e-02 ,6.2861e-02 ,6.5027e-02 ,6.7869e-02 ,7.1492e-02 /) - kbo(:,17, 4) = (/ & - &5.1988e-02 ,5.3759e-02 ,5.5853e-02 ,5.8672e-02 ,6.1980e-02 /) - kbo(:,18, 4) = (/ & - &4.4171e-02 ,4.5935e-02 ,4.8095e-02 ,5.0759e-02 ,5.3616e-02 /) - kbo(:,19, 4) = (/ & - &3.7411e-02 ,3.9215e-02 ,4.1337e-02 ,4.3631e-02 ,4.5910e-02 /) - kbo(:,20, 4) = (/ & - &3.1780e-02 ,3.3510e-02 ,3.5386e-02 ,3.7312e-02 ,3.9095e-02 /) - kbo(:,21, 4) = (/ & - &2.6954e-02 ,2.8513e-02 ,3.0099e-02 ,3.1617e-02 ,3.2915e-02 /) - kbo(:,22, 4) = (/ & - &2.2888e-02 ,2.4194e-02 ,2.5477e-02 ,2.6596e-02 ,2.7511e-02 /) - kbo(:,23, 4) = (/ & - &1.9346e-02 ,2.0404e-02 ,2.1382e-02 ,2.2165e-02 ,2.2830e-02 /) - kbo(:,24, 4) = (/ & - &1.6247e-02 ,1.7083e-02 ,1.7781e-02 ,1.8353e-02 ,1.8851e-02 /) - kbo(:,25, 4) = (/ & - &1.3597e-02 ,1.4221e-02 ,1.4742e-02 ,1.5163e-02 ,1.5551e-02 /) - kbo(:,26, 4) = (/ & - &1.1347e-02 ,1.1808e-02 ,1.2193e-02 ,1.2519e-02 ,1.2827e-02 /) - kbo(:,27, 4) = (/ & - &9.4352e-03 ,9.7820e-03 ,1.0071e-02 ,1.0331e-02 ,1.0583e-02 /) - kbo(:,28, 4) = (/ & - &7.8281e-03 ,8.0857e-03 ,8.3110e-03 ,8.5276e-03 ,8.7304e-03 /) - kbo(:,29, 4) = (/ & - &6.4877e-03 ,6.6881e-03 ,6.8753e-03 ,7.0489e-03 ,7.2105e-03 /) - kbo(:,30, 4) = (/ & - &5.3741e-03 ,5.5372e-03 ,5.6910e-03 ,5.8358e-03 ,5.9652e-03 /) - kbo(:,31, 4) = (/ & - &4.4624e-03 ,4.5974e-03 ,4.7269e-03 ,4.8416e-03 ,4.9477e-03 /) - kbo(:,32, 4) = (/ & - &3.7110e-03 ,3.8251e-03 ,3.9302e-03 ,4.0264e-03 ,4.1112e-03 /) - kbo(:,33, 4) = (/ & - &3.0918e-03 ,3.1864e-03 ,3.2713e-03 ,3.3504e-03 ,3.4219e-03 /) - kbo(:,34, 4) = (/ & - &2.5734e-03 ,2.6501e-03 ,2.7238e-03 ,2.7897e-03 ,2.8499e-03 /) - kbo(:,35, 4) = (/ & - &2.1361e-03 ,2.2030e-03 ,2.2659e-03 ,2.3224e-03 ,2.3696e-03 /) - kbo(:,36, 4) = (/ & - &1.7673e-03 ,1.8262e-03 ,1.8805e-03 ,1.9284e-03 ,1.9688e-03 /) - kbo(:,37, 4) = (/ & - &1.4584e-03 ,1.5086e-03 ,1.5546e-03 ,1.5960e-03 ,1.6338e-03 /) - kbo(:,38, 4) = (/ & - &1.2034e-03 ,1.2453e-03 ,1.2856e-03 ,1.3227e-03 ,1.3572e-03 /) - kbo(:,39, 4) = (/ & - &9.9454e-04 ,1.0299e-03 ,1.0651e-03 ,1.0982e-03 ,1.1293e-03 /) - kbo(:,40, 4) = (/ & - &8.1766e-04 ,8.4814e-04 ,8.7922e-04 ,9.0780e-04 ,9.3604e-04 /) - kbo(:,41, 4) = (/ & - &6.7161e-04 ,6.9882e-04 ,7.2604e-04 ,7.5179e-04 ,7.7573e-04 /) - kbo(:,42, 4) = (/ & - &5.5233e-04 ,5.7642e-04 ,5.9983e-04 ,6.2278e-04 ,6.4351e-04 /) - kbo(:,43, 4) = (/ & - &4.5350e-04 ,4.7458e-04 ,4.9522e-04 ,5.1500e-04 ,5.3326e-04 /) - kbo(:,44, 4) = (/ & - &3.7202e-04 ,3.9025e-04 ,4.0848e-04 ,4.2568e-04 ,4.4143e-04 /) - kbo(:,45, 4) = (/ & - &3.0534e-04 ,3.2126e-04 ,3.3706e-04 ,3.5201e-04 ,3.6606e-04 /) - kbo(:,46, 4) = (/ & - &2.5026e-04 ,2.6416e-04 ,2.7768e-04 ,2.9081e-04 ,3.0319e-04 /) - kbo(:,47, 4) = (/ & - &2.0428e-04 ,2.1616e-04 ,2.2794e-04 ,2.3946e-04 ,2.5046e-04 /) - kbo(:,48, 4) = (/ & - &1.6667e-04 ,1.7701e-04 ,1.8729e-04 ,1.9740e-04 ,2.0693e-04 /) - kbo(:,49, 4) = (/ & - &1.3611e-04 ,1.4498e-04 ,1.5402e-04 ,1.6290e-04 ,1.7121e-04 /) - kbo(:,50, 4) = (/ & - &1.1088e-04 ,1.1847e-04 ,1.2631e-04 ,1.3390e-04 ,1.4119e-04 /) - kbo(:,51, 4) = (/ & - &9.0216e-05 ,9.6607e-05 ,1.0331e-04 ,1.0986e-04 ,1.1615e-04 /) - kbo(:,52, 4) = (/ & - &7.3423e-05 ,7.8834e-05 ,8.4566e-05 ,9.0143e-05 ,9.5562e-05 /) - kbo(:,53, 4) = (/ & - &5.9754e-05 ,6.4377e-05 ,6.9227e-05 ,7.4054e-05 ,7.8692e-05 /) - kbo(:,54, 4) = (/ & - &4.8298e-05 ,5.2166e-05 ,5.6219e-05 ,6.0246e-05 ,6.4263e-05 /) - kbo(:,55, 4) = (/ & - &3.8831e-05 ,4.2066e-05 ,4.5431e-05 ,4.8757e-05 ,5.2064e-05 /) - kbo(:,56, 4) = (/ & - &3.1190e-05 ,3.3925e-05 ,3.6680e-05 ,3.9437e-05 ,4.2169e-05 /) - kbo(:,57, 4) = (/ & - &2.5026e-05 ,2.7326e-05 ,2.9588e-05 ,3.1864e-05 ,3.4154e-05 /) - kbo(:,58, 4) = (/ & - &2.0044e-05 ,2.1985e-05 ,2.3836e-05 ,2.5731e-05 ,2.7590e-05 /) - kbo(:,59, 4) = (/ & - &1.6187e-05 ,1.7736e-05 ,1.9214e-05 ,2.0762e-05 ,2.2244e-05 /) - kbo(:,13, 5) = (/ & - &1.6183e-01 ,1.6388e-01 ,1.6830e-01 ,1.7476e-01 ,1.8120e-01 /) - kbo(:,14, 5) = (/ & - &1.4136e-01 ,1.4390e-01 ,1.4614e-01 ,1.5033e-01 ,1.5561e-01 /) - kbo(:,15, 5) = (/ & - &1.2277e-01 ,1.2594e-01 ,1.2862e-01 ,1.3140e-01 ,1.3513e-01 /) - kbo(:,16, 5) = (/ & - &1.0716e-01 ,1.1019e-01 ,1.1295e-01 ,1.1569e-01 ,1.1878e-01 /) - kbo(:,17, 5) = (/ & - &9.2722e-02 ,9.5517e-02 ,9.8213e-02 ,1.0105e-01 ,1.0426e-01 /) - kbo(:,18, 5) = (/ & - &7.9838e-02 ,8.2414e-02 ,8.5010e-02 ,8.8074e-02 ,9.1598e-02 /) - kbo(:,19, 5) = (/ & - &6.8325e-02 ,7.0740e-02 ,7.3430e-02 ,7.6659e-02 ,8.0269e-02 /) - kbo(:,20, 5) = (/ & - &5.8275e-02 ,6.0721e-02 ,6.3630e-02 ,6.6772e-02 ,7.0098e-02 /) - kbo(:,21, 5) = (/ & - &4.9672e-02 ,5.2190e-02 ,5.4967e-02 ,5.7853e-02 ,6.0822e-02 /) - kbo(:,22, 5) = (/ & - &4.2534e-02 ,4.4900e-02 ,4.7398e-02 ,4.9961e-02 ,5.2416e-02 /) - kbo(:,23, 5) = (/ & - &3.6361e-02 ,3.8477e-02 ,4.0633e-02 ,4.2770e-02 ,4.4639e-02 /) - kbo(:,24, 5) = (/ & - &3.0984e-02 ,3.2792e-02 ,3.4594e-02 ,3.6198e-02 ,3.7541e-02 /) - kbo(:,25, 5) = (/ & - &2.6322e-02 ,2.7818e-02 ,2.9192e-02 ,3.0375e-02 ,3.1335e-02 /) - kbo(:,26, 5) = (/ & - &2.2285e-02 ,2.3473e-02 ,2.4485e-02 ,2.5360e-02 ,2.6084e-02 /) - kbo(:,27, 5) = (/ & - &1.8777e-02 ,1.9670e-02 ,2.0440e-02 ,2.1104e-02 ,2.1661e-02 /) - kbo(:,28, 5) = (/ & - &1.5739e-02 ,1.6410e-02 ,1.7009e-02 ,1.7502e-02 ,1.7957e-02 /) - kbo(:,29, 5) = (/ & - &1.3157e-02 ,1.3689e-02 ,1.4135e-02 ,1.4550e-02 ,1.4908e-02 /) - kbo(:,30, 5) = (/ & - &1.0985e-02 ,1.1390e-02 ,1.1749e-02 ,1.2076e-02 ,1.2372e-02 /) - kbo(:,31, 5) = (/ & - &9.1582e-03 ,9.4742e-03 ,9.7675e-03 ,1.0044e-02 ,1.0289e-02 /) - kbo(:,32, 5) = (/ & - &7.6339e-03 ,7.8923e-03 ,8.1271e-03 ,8.3548e-03 ,8.5695e-03 /) - kbo(:,33, 5) = (/ & - &6.3715e-03 ,6.5845e-03 ,6.7878e-03 ,6.9736e-03 ,7.1535e-03 /) - kbo(:,34, 5) = (/ & - &5.3224e-03 ,5.5025e-03 ,5.6652e-03 ,5.8262e-03 ,5.9749e-03 /) - kbo(:,35, 5) = (/ & - &4.4348e-03 ,4.5841e-03 ,4.7248e-03 ,4.8589e-03 ,4.9851e-03 /) - kbo(:,36, 5) = (/ & - &3.6880e-03 ,3.8127e-03 ,3.9338e-03 ,4.0484e-03 ,4.1576e-03 /) - kbo(:,37, 5) = (/ & - &3.0534e-03 ,3.1615e-03 ,3.2693e-03 ,3.3693e-03 ,3.4657e-03 /) - kbo(:,38, 5) = (/ & - &2.5332e-03 ,2.6300e-03 ,2.7225e-03 ,2.8131e-03 ,2.8939e-03 /) - kbo(:,39, 5) = (/ & - &2.1084e-03 ,2.1961e-03 ,2.2783e-03 ,2.3583e-03 ,2.4286e-03 /) - kbo(:,40, 5) = (/ & - &1.7458e-03 ,1.8240e-03 ,1.8981e-03 ,1.9682e-03 ,2.0283e-03 /) - kbo(:,41, 5) = (/ & - &1.4453e-03 ,1.5145e-03 ,1.5781e-03 ,1.6391e-03 ,1.6964e-03 /) - kbo(:,42, 5) = (/ & - &1.1954e-03 ,1.2559e-03 ,1.3113e-03 ,1.3662e-03 ,1.4193e-03 /) - kbo(:,43, 5) = (/ & - &9.8711e-04 ,1.0388e-03 ,1.0881e-03 ,1.1376e-03 ,1.1854e-03 /) - kbo(:,44, 5) = (/ & - &8.1670e-04 ,8.6083e-04 ,9.0273e-04 ,9.4724e-04 ,9.9183e-04 /) - kbo(:,45, 5) = (/ & - &6.7571e-04 ,7.1462e-04 ,7.5340e-04 ,7.9241e-04 ,8.3252e-04 /) - kbo(:,46, 5) = (/ & - &5.5868e-04 ,5.9210e-04 ,6.2784e-04 ,6.6315e-04 ,6.9901e-04 /) - kbo(:,47, 5) = (/ & - &4.6002e-04 ,4.8924e-04 ,5.2084e-04 ,5.5250e-04 ,5.8555e-04 /) - kbo(:,48, 5) = (/ & - &3.7900e-04 ,4.0478e-04 ,4.3312e-04 ,4.6138e-04 ,4.9219e-04 /) - kbo(:,49, 5) = (/ & - &3.1223e-04 ,3.3515e-04 ,3.6106e-04 ,3.8737e-04 ,4.1475e-04 /) - kbo(:,50, 5) = (/ & - &2.5631e-04 ,2.7625e-04 ,2.9941e-04 ,3.2338e-04 ,3.4759e-04 /) - kbo(:,51, 5) = (/ & - &2.0956e-04 ,2.2726e-04 ,2.4758e-04 ,2.6894e-04 ,2.9020e-04 /) - kbo(:,52, 5) = (/ & - &1.7113e-04 ,1.8689e-04 ,2.0470e-04 ,2.2361e-04 ,2.4260e-04 /) - kbo(:,53, 5) = (/ & - &1.3975e-04 ,1.5381e-04 ,1.6939e-04 ,1.8611e-04 ,2.0352e-04 /) - kbo(:,54, 5) = (/ & - &1.1323e-04 ,1.2519e-04 ,1.3824e-04 ,1.5269e-04 ,1.6768e-04 /) - kbo(:,55, 5) = (/ & - &9.1211e-05 ,1.0111e-04 ,1.1195e-04 ,1.2407e-04 ,1.3663e-04 /) - kbo(:,56, 5) = (/ & - &7.3375e-05 ,8.1461e-05 ,9.0533e-05 ,1.0060e-04 ,1.1119e-04 /) - kbo(:,57, 5) = (/ & - &5.8946e-05 ,6.5535e-05 ,7.3109e-05 ,8.1511e-05 ,9.0294e-05 /) - kbo(:,58, 5) = (/ & - &4.7323e-05 ,5.2682e-05 ,5.8966e-05 ,6.5820e-05 ,7.3137e-05 /) - kbo(:,59, 5) = (/ & - &3.8250e-05 ,4.2565e-05 ,4.7446e-05 ,5.2866e-05 ,5.8710e-05 /) - kbo(:,13, 6) = (/ & - &2.7197e-01 ,2.7739e-01 ,2.8096e-01 ,2.8231e-01 ,2.8660e-01 /) - kbo(:,14, 6) = (/ & - &2.4407e-01 ,2.4904e-01 ,2.5343e-01 ,2.5569e-01 ,2.5783e-01 /) - kbo(:,15, 6) = (/ & - &2.1616e-01 ,2.2099e-01 ,2.2537e-01 ,2.2864e-01 ,2.3140e-01 /) - kbo(:,16, 6) = (/ & - &1.9106e-01 ,1.9585e-01 ,1.9991e-01 ,2.0367e-01 ,2.0768e-01 /) - kbo(:,17, 6) = (/ & - &1.6891e-01 ,1.7330e-01 ,1.7742e-01 ,1.8116e-01 ,1.8548e-01 /) - kbo(:,18, 6) = (/ & - &1.4873e-01 ,1.5292e-01 ,1.5684e-01 ,1.6048e-01 ,1.6482e-01 /) - kbo(:,19, 6) = (/ & - &1.3023e-01 ,1.3403e-01 ,1.3773e-01 ,1.4155e-01 ,1.4625e-01 /) - kbo(:,20, 6) = (/ & - &1.1343e-01 ,1.1684e-01 ,1.2043e-01 ,1.2478e-01 ,1.2990e-01 /) - kbo(:,21, 6) = (/ & - &9.8160e-02 ,1.0135e-01 ,1.0525e-01 ,1.1007e-01 ,1.1526e-01 /) - kbo(:,22, 6) = (/ & - &8.4655e-02 ,8.8120e-02 ,9.2429e-02 ,9.7184e-02 ,1.0215e-01 /) - kbo(:,23, 6) = (/ & - &7.3019e-02 ,7.6775e-02 ,8.1076e-02 ,8.5515e-02 ,9.0104e-02 /) - kbo(:,24, 6) = (/ & - &6.3162e-02 ,6.6861e-02 ,7.0760e-02 ,7.4872e-02 ,7.8956e-02 /) - kbo(:,25, 6) = (/ & - &5.4670e-02 ,5.8059e-02 ,6.1565e-02 ,6.5142e-02 ,6.8514e-02 /) - kbo(:,26, 6) = (/ & - &4.7238e-02 ,5.0243e-02 ,5.3330e-02 ,5.6237e-02 ,5.8783e-02 /) - kbo(:,27, 6) = (/ & - &4.0718e-02 ,4.3335e-02 ,4.5897e-02 ,4.8107e-02 ,4.9970e-02 /) - kbo(:,28, 6) = (/ & - &3.4992e-02 ,3.7210e-02 ,3.9178e-02 ,4.0837e-02 ,4.2251e-02 /) - kbo(:,29, 6) = (/ & - &2.9986e-02 ,3.1757e-02 ,3.3246e-02 ,3.4515e-02 ,3.5697e-02 /) - kbo(:,30, 6) = (/ & - &2.5598e-02 ,2.6947e-02 ,2.8105e-02 ,2.9142e-02 ,3.0127e-02 /) - kbo(:,31, 6) = (/ & - &2.1742e-02 ,2.2800e-02 ,2.3733e-02 ,2.4625e-02 ,2.5488e-02 /) - kbo(:,32, 6) = (/ & - &1.8409e-02 ,1.9261e-02 ,2.0062e-02 ,2.0837e-02 ,2.1556e-02 /) - kbo(:,33, 6) = (/ & - &1.5564e-02 ,1.6264e-02 ,1.6973e-02 ,1.7637e-02 ,1.8281e-02 /) - kbo(:,34, 6) = (/ & - &1.3120e-02 ,1.3750e-02 ,1.4364e-02 ,1.4950e-02 ,1.5574e-02 /) - kbo(:,35, 6) = (/ & - &1.1037e-02 ,1.1597e-02 ,1.2120e-02 ,1.2671e-02 ,1.3247e-02 /) - kbo(:,36, 6) = (/ & - &9.2368e-03 ,9.7140e-03 ,1.0180e-02 ,1.0677e-02 ,1.1200e-02 /) - kbo(:,37, 6) = (/ & - &7.7240e-03 ,8.1368e-03 ,8.5470e-03 ,8.9958e-03 ,9.4504e-03 /) - kbo(:,38, 6) = (/ & - &6.4758e-03 ,6.8295e-03 ,7.1958e-03 ,7.5972e-03 ,8.0066e-03 /) - kbo(:,39, 6) = (/ & - &5.4501e-03 ,5.7576e-03 ,6.0862e-03 ,6.4345e-03 ,6.8065e-03 /) - kbo(:,40, 6) = (/ & - &4.5611e-03 ,4.8311e-03 ,5.1160e-03 ,5.4160e-03 ,5.7404e-03 /) - kbo(:,41, 6) = (/ & - &3.8156e-03 ,4.0605e-03 ,4.3157e-03 ,4.5812e-03 ,4.8631e-03 /) - kbo(:,42, 6) = (/ & - &3.1991e-03 ,3.4174e-03 ,3.6479e-03 ,3.8959e-03 ,4.1438e-03 /) - kbo(:,43, 6) = (/ & - &2.6778e-03 ,2.8754e-03 ,3.0830e-03 ,3.3106e-03 ,3.5418e-03 /) - kbo(:,44, 6) = (/ & - &2.2384e-03 ,2.4221e-03 ,2.6165e-03 ,2.8279e-03 ,3.0365e-03 /) - kbo(:,45, 6) = (/ & - &1.8762e-03 ,2.0454e-03 ,2.2217e-03 ,2.4182e-03 ,2.6139e-03 /) - kbo(:,46, 6) = (/ & - &1.5669e-03 ,1.7239e-03 ,1.8868e-03 ,2.0694e-03 ,2.2548e-03 /) - kbo(:,47, 6) = (/ & - &1.2965e-03 ,1.4378e-03 ,1.5876e-03 ,1.7568e-03 ,1.9326e-03 /) - kbo(:,48, 6) = (/ & - &1.0774e-03 ,1.2001e-03 ,1.3389e-03 ,1.4948e-03 ,1.6630e-03 /) - kbo(:,49, 6) = (/ & - &8.9852e-04 ,1.0105e-03 ,1.1309e-03 ,1.2754e-03 ,1.4391e-03 /) - kbo(:,50, 6) = (/ & - &7.4445e-04 ,8.4643e-04 ,9.5631e-04 ,1.0809e-03 ,1.2318e-03 /) - kbo(:,51, 6) = (/ & - &6.1558e-04 ,7.0452e-04 ,8.0429e-04 ,9.1653e-04 ,1.0518e-03 /) - kbo(:,52, 6) = (/ & - &5.0970e-04 ,5.8893e-04 ,6.7706e-04 ,7.7959e-04 ,9.0341e-04 /) - kbo(:,53, 6) = (/ & - &4.2152e-04 ,4.9282e-04 ,5.7291e-04 ,6.6638e-04 ,7.8149e-04 /) - kbo(:,54, 6) = (/ & - &3.4337e-04 ,4.0415e-04 ,4.7438e-04 ,5.5660e-04 ,6.5618e-04 /) - kbo(:,55, 6) = (/ & - &2.7643e-04 ,3.2706e-04 ,3.8585e-04 ,4.5635e-04 ,5.3989e-04 /) - kbo(:,56, 6) = (/ & - &2.2200e-04 ,2.6388e-04 ,3.1337e-04 ,3.7328e-04 ,4.4370e-04 /) - kbo(:,57, 6) = (/ & - &1.7748e-04 ,2.1244e-04 ,2.5395e-04 ,3.0395e-04 ,3.6371e-04 /) - kbo(:,58, 6) = (/ & - &1.4157e-04 ,1.7062e-04 ,2.0500e-04 ,2.4610e-04 ,2.9686e-04 /) - kbo(:,59, 6) = (/ & - &1.1414e-04 ,1.3738e-04 ,1.6469e-04 ,1.9701e-04 ,2.3735e-04 /) - kbo(:,13, 7) = (/ & - &4.6955e-01 ,4.7919e-01 ,4.8757e-01 ,4.9335e-01 ,4.9501e-01 /) - kbo(:,14, 7) = (/ & - &4.3446e-01 ,4.4412e-01 ,4.5217e-01 ,4.5833e-01 ,4.6211e-01 /) - kbo(:,15, 7) = (/ & - &3.9856e-01 ,4.0695e-01 ,4.1403e-01 ,4.2050e-01 ,4.2565e-01 /) - kbo(:,16, 7) = (/ & - &3.6468e-01 ,3.7159e-01 ,3.7817e-01 ,3.8407e-01 ,3.8859e-01 /) - kbo(:,17, 7) = (/ & - &3.3137e-01 ,3.3763e-01 ,3.4358e-01 ,3.4927e-01 ,3.5406e-01 /) - kbo(:,18, 7) = (/ & - &2.9961e-01 ,3.0527e-01 ,3.1117e-01 ,3.1677e-01 ,3.2160e-01 /) - kbo(:,19, 7) = (/ & - &2.6897e-01 ,2.7470e-01 ,2.8068e-01 ,2.8609e-01 ,2.9127e-01 /) - kbo(:,20, 7) = (/ & - &2.4079e-01 ,2.4662e-01 ,2.5228e-01 ,2.5749e-01 ,2.6294e-01 /) - kbo(:,21, 7) = (/ & - &2.1419e-01 ,2.1985e-01 ,2.2509e-01 ,2.3029e-01 ,2.3688e-01 /) - kbo(:,22, 7) = (/ & - &1.8948e-01 ,1.9472e-01 ,1.9983e-01 ,2.0584e-01 ,2.1394e-01 /) - kbo(:,23, 7) = (/ & - &1.6639e-01 ,1.7145e-01 ,1.7716e-01 ,1.8457e-01 ,1.9389e-01 /) - kbo(:,24, 7) = (/ & - &1.4538e-01 ,1.5085e-01 ,1.5765e-01 ,1.6633e-01 ,1.7588e-01 /) - kbo(:,25, 7) = (/ & - &1.2705e-01 ,1.3331e-01 ,1.4121e-01 ,1.5025e-01 ,1.5987e-01 /) - kbo(:,26, 7) = (/ & - &1.1163e-01 ,1.1872e-01 ,1.2704e-01 ,1.3598e-01 ,1.4549e-01 /) - kbo(:,27, 7) = (/ & - &9.8775e-02 ,1.0620e-01 ,1.1436e-01 ,1.2321e-01 ,1.3236e-01 /) - kbo(:,28, 7) = (/ & - &8.7819e-02 ,9.5125e-02 ,1.0304e-01 ,1.1161e-01 ,1.2007e-01 /) - kbo(:,29, 7) = (/ & - &7.8356e-02 ,8.5376e-02 ,9.3117e-02 ,1.0101e-01 ,1.0879e-01 /) - kbo(:,30, 7) = (/ & - &7.0020e-02 ,7.6849e-02 ,8.4078e-02 ,9.1302e-02 ,9.8416e-02 /) - kbo(:,31, 7) = (/ & - &6.2819e-02 ,6.9270e-02 ,7.5879e-02 ,8.2483e-02 ,8.8967e-02 /) - kbo(:,32, 7) = (/ & - &5.6483e-02 ,6.2430e-02 ,6.8481e-02 ,7.4539e-02 ,8.0648e-02 /) - kbo(:,33, 7) = (/ & - &5.0860e-02 ,5.6316e-02 ,6.1885e-02 ,6.7612e-02 ,7.3808e-02 /) - kbo(:,34, 7) = (/ & - &4.5682e-02 ,5.0745e-02 ,5.5935e-02 ,6.1551e-02 ,6.7601e-02 /) - kbo(:,35, 7) = (/ & - &4.0692e-02 ,4.5316e-02 ,5.0264e-02 ,5.5834e-02 ,6.1807e-02 /) - kbo(:,36, 7) = (/ & - &3.5794e-02 ,4.0089e-02 ,4.4914e-02 ,5.0304e-02 ,5.6176e-02 /) - kbo(:,37, 7) = (/ & - &3.0961e-02 ,3.4978e-02 ,3.9573e-02 ,4.4775e-02 ,5.0561e-02 /) - kbo(:,38, 7) = (/ & - &2.6776e-02 ,3.0559e-02 ,3.4968e-02 ,3.9997e-02 ,4.5685e-02 /) - kbo(:,39, 7) = (/ & - &2.3185e-02 ,2.6765e-02 ,3.1022e-02 ,3.5959e-02 ,4.1519e-02 /) - kbo(:,40, 7) = (/ & - &1.9763e-02 ,2.3065e-02 ,2.7085e-02 ,3.1775e-02 ,3.7215e-02 /) - kbo(:,41, 7) = (/ & - &1.6812e-02 ,1.9830e-02 ,2.3604e-02 ,2.8085e-02 ,3.3399e-02 /) - kbo(:,42, 7) = (/ & - &1.4318e-02 ,1.7069e-02 ,2.0605e-02 ,2.4882e-02 ,3.0046e-02 /) - kbo(:,43, 7) = (/ & - &1.2083e-02 ,1.4567e-02 ,1.7802e-02 ,2.1853e-02 ,2.6807e-02 /) - kbo(:,44, 7) = (/ & - &1.0170e-02 ,1.2372e-02 ,1.5314e-02 ,1.9108e-02 ,2.3821e-02 /) - kbo(:,45, 7) = (/ & - &8.6090e-03 ,1.0534e-02 ,1.3191e-02 ,1.6726e-02 ,2.1197e-02 /) - kbo(:,46, 7) = (/ & - &7.3022e-03 ,8.9907e-03 ,1.1353e-02 ,1.4581e-02 ,1.8771e-02 /) - kbo(:,47, 7) = (/ & - &6.1213e-03 ,7.6431e-03 ,9.7321e-03 ,1.2583e-02 ,1.6455e-02 /) - kbo(:,48, 7) = (/ & - &5.1186e-03 ,6.5188e-03 ,8.4138e-03 ,1.0987e-02 ,1.4502e-02 /) - kbo(:,49, 7) = (/ & - &4.2957e-03 ,5.5597e-03 ,7.3442e-03 ,9.7283e-03 ,1.2936e-02 /) - kbo(:,50, 7) = (/ & - &3.6145e-03 ,4.7398e-03 ,6.3555e-03 ,8.6287e-03 ,1.1590e-02 /) - kbo(:,51, 7) = (/ & - &3.0102e-03 ,4.0430e-03 ,5.4860e-03 ,7.5896e-03 ,1.0447e-02 /) - kbo(:,52, 7) = (/ & - &2.4958e-03 ,3.4406e-03 ,4.7896e-03 ,6.7274e-03 ,9.4519e-03 /) - kbo(:,53, 7) = (/ & - &2.0685e-03 ,2.9229e-03 ,4.2030e-03 ,6.0566e-03 ,8.6137e-03 /) - kbo(:,54, 7) = (/ & - &1.6899e-03 ,2.4174e-03 ,3.5607e-03 ,5.2595e-03 ,7.6384e-03 /) - kbo(:,55, 7) = (/ & - &1.3559e-03 ,1.9570e-03 ,2.9412e-03 ,4.4253e-03 ,6.5827e-03 /) - kbo(:,56, 7) = (/ & - &1.0806e-03 ,1.5745e-03 ,2.4094e-03 ,3.7108e-03 ,5.6277e-03 /) - kbo(:,57, 7) = (/ & - &8.5457e-04 ,1.2632e-03 ,1.9536e-03 ,3.0874e-03 ,4.7870e-03 /) - kbo(:,58, 7) = (/ & - &6.7302e-04 ,1.0065e-03 ,1.5736e-03 ,2.5427e-03 ,4.0334e-03 /) - kbo(:,59, 7) = (/ & - &5.4147e-04 ,8.1396e-04 ,1.2891e-03 ,2.1042e-03 ,3.3560e-03 /) - kbo(:,13, 8) = (/ & - &8.0034e-01 ,8.1640e-01 ,8.3288e-01 ,8.4808e-01 ,8.6148e-01 /) - kbo(:,14, 8) = (/ & - &7.8054e-01 ,7.9433e-01 ,8.0919e-01 ,8.2411e-01 ,8.3905e-01 /) - kbo(:,15, 8) = (/ & - &7.5909e-01 ,7.7248e-01 ,7.8592e-01 ,7.9872e-01 ,8.1170e-01 /) - kbo(:,16, 8) = (/ & - &7.3580e-01 ,7.4804e-01 ,7.6085e-01 ,7.7248e-01 ,7.8295e-01 /) - kbo(:,17, 8) = (/ & - &7.0630e-01 ,7.1844e-01 ,7.2965e-01 ,7.3912e-01 ,7.4743e-01 /) - kbo(:,18, 8) = (/ & - &6.7101e-01 ,6.8279e-01 ,6.9322e-01 ,7.0102e-01 ,7.0887e-01 /) - kbo(:,19, 8) = (/ & - &6.2981e-01 ,6.4055e-01 ,6.4979e-01 ,6.5773e-01 ,6.6515e-01 /) - kbo(:,20, 8) = (/ & - &5.8544e-01 ,5.9608e-01 ,6.0511e-01 ,6.1342e-01 ,6.2187e-01 /) - kbo(:,21, 8) = (/ & - &5.3944e-01 ,5.5063e-01 ,5.6005e-01 ,5.6946e-01 ,5.7856e-01 /) - kbo(:,22, 8) = (/ & - &4.9436e-01 ,5.0585e-01 ,5.1644e-01 ,5.2703e-01 ,5.3664e-01 /) - kbo(:,23, 8) = (/ & - &4.5102e-01 ,4.6300e-01 ,4.7455e-01 ,4.8579e-01 ,4.9663e-01 /) - kbo(:,24, 8) = (/ & - &4.0950e-01 ,4.2198e-01 ,4.3426e-01 ,4.4606e-01 ,4.5946e-01 /) - kbo(:,25, 8) = (/ & - &3.7091e-01 ,3.8365e-01 ,3.9643e-01 ,4.1000e-01 ,4.2576e-01 /) - kbo(:,26, 8) = (/ & - &3.3534e-01 ,3.4839e-01 ,3.6241e-01 ,3.7838e-01 ,3.9777e-01 /) - kbo(:,27, 8) = (/ & - &3.0274e-01 ,3.1698e-01 ,3.3298e-01 ,3.5138e-01 ,3.7450e-01 /) - kbo(:,28, 8) = (/ & - &2.7401e-01 ,2.8968e-01 ,3.0792e-01 ,3.3011e-01 ,3.5579e-01 /) - kbo(:,29, 8) = (/ & - &2.4984e-01 ,2.6749e-01 ,2.8805e-01 ,3.1339e-01 ,3.4148e-01 /) - kbo(:,30, 8) = (/ & - &2.2976e-01 ,2.4923e-01 ,2.7317e-01 ,3.0058e-01 ,3.3054e-01 /) - kbo(:,31, 8) = (/ & - &2.1378e-01 ,2.3592e-01 ,2.6234e-01 ,2.9177e-01 ,3.2355e-01 /) - kbo(:,32, 8) = (/ & - &2.0184e-01 ,2.2666e-01 ,2.5501e-01 ,2.8631e-01 ,3.1911e-01 /) - kbo(:,33, 8) = (/ & - &1.9381e-01 ,2.2050e-01 ,2.5091e-01 ,2.8341e-01 ,3.1739e-01 /) - kbo(:,34, 8) = (/ & - &1.8744e-01 ,2.1594e-01 ,2.4774e-01 ,2.8137e-01 ,3.1632e-01 /) - kbo(:,35, 8) = (/ & - &1.8056e-01 ,2.1069e-01 ,2.4353e-01 ,2.7798e-01 ,3.1405e-01 /) - kbo(:,36, 8) = (/ & - &1.7277e-01 ,2.0381e-01 ,2.3716e-01 ,2.7253e-01 ,3.0956e-01 /) - kbo(:,37, 8) = (/ & - &1.6168e-01 ,1.9289e-01 ,2.2650e-01 ,2.6234e-01 ,2.9987e-01 /) - kbo(:,38, 8) = (/ & - &1.5148e-01 ,1.8272e-01 ,2.1663e-01 ,2.5277e-01 ,2.9084e-01 /) - kbo(:,39, 8) = (/ & - &1.4247e-01 ,1.7365e-01 ,2.0770e-01 ,2.4421e-01 ,2.8306e-01 /) - kbo(:,40, 8) = (/ & - &1.3121e-01 ,1.6190e-01 ,1.9569e-01 ,2.3227e-01 ,2.7141e-01 /) - kbo(:,41, 8) = (/ & - &1.2044e-01 ,1.5044e-01 ,1.8388e-01 ,2.2048e-01 ,2.5951e-01 /) - kbo(:,42, 8) = (/ & - &1.1043e-01 ,1.3967e-01 ,1.7269e-01 ,2.0919e-01 ,2.4811e-01 /) - kbo(:,43, 8) = (/ & - &9.9679e-02 ,1.2792e-01 ,1.6034e-01 ,1.9622e-01 ,2.3472e-01 /) - kbo(:,44, 8) = (/ & - &8.9034e-02 ,1.1631e-01 ,1.4764e-01 ,1.8285e-01 ,2.2093e-01 /) - kbo(:,45, 8) = (/ & - &7.9054e-02 ,1.0536e-01 ,1.3566e-01 ,1.6992e-01 ,2.0745e-01 /) - kbo(:,46, 8) = (/ & - &6.9318e-02 ,9.4501e-02 ,1.2377e-01 ,1.5667e-01 ,1.9349e-01 /) - kbo(:,47, 8) = (/ & - &5.9551e-02 ,8.3032e-02 ,1.1103e-01 ,1.4286e-01 ,1.7816e-01 /) - kbo(:,48, 8) = (/ & - &5.0798e-02 ,7.2525e-02 ,9.9035e-02 ,1.2969e-01 ,1.6375e-01 /) - kbo(:,49, 8) = (/ & - &4.3152e-02 ,6.3003e-02 ,8.7833e-02 ,1.1716e-01 ,1.5024e-01 /) - kbo(:,50, 8) = (/ & - &3.6793e-02 ,5.4813e-02 ,7.7929e-02 ,1.0576e-01 ,1.3787e-01 /) - kbo(:,51, 8) = (/ & - &3.1426e-02 ,4.7509e-02 ,6.8953e-02 ,9.5149e-02 ,1.2582e-01 /) - kbo(:,52, 8) = (/ & - &2.6907e-02 ,4.1306e-02 ,6.0841e-02 ,8.5477e-02 ,1.1483e-01 /) - kbo(:,53, 8) = (/ & - &2.3168e-02 ,3.6049e-02 ,5.3816e-02 ,7.6669e-02 ,1.0462e-01 /) - kbo(:,54, 8) = (/ & - &1.9633e-02 ,3.1217e-02 ,4.7423e-02 ,6.8592e-02 ,9.4967e-02 /) - kbo(:,55, 8) = (/ & - &1.6386e-02 ,2.6769e-02 ,4.1346e-02 ,6.0965e-02 ,8.5476e-02 /) - kbo(:,56, 8) = (/ & - &1.3620e-02 ,2.2714e-02 ,3.5826e-02 ,5.3847e-02 ,7.6755e-02 /) - kbo(:,57, 8) = (/ & - &1.1197e-02 ,1.9124e-02 ,3.0904e-02 ,4.7282e-02 ,6.8602e-02 /) - kbo(:,58, 8) = (/ & - &9.1481e-03 ,1.6046e-02 ,2.6605e-02 ,4.1371e-02 ,6.1207e-02 /) - kbo(:,59, 8) = (/ & - &7.9051e-03 ,1.4193e-02 ,2.3774e-02 ,3.7742e-02 ,5.6658e-02 /) - kbo(:,13, 9) = (/ & - &1.3350e+00 ,1.3653e+00 ,1.3981e+00 ,1.4396e+00 ,1.4753e+00 /) - kbo(:,14, 9) = (/ & - &1.4178e+00 ,1.4520e+00 ,1.4843e+00 ,1.5206e+00 ,1.5583e+00 /) - kbo(:,15, 9) = (/ & - &1.4732e+00 ,1.5083e+00 ,1.5396e+00 ,1.5755e+00 ,1.6045e+00 /) - kbo(:,16, 9) = (/ & - &1.5430e+00 ,1.5830e+00 ,1.6160e+00 ,1.6547e+00 ,1.6902e+00 /) - kbo(:,17, 9) = (/ & - &1.6452e+00 ,1.6845e+00 ,1.7176e+00 ,1.7564e+00 ,1.7915e+00 /) - kbo(:,18, 9) = (/ & - &1.7229e+00 ,1.7605e+00 ,1.7922e+00 ,1.8300e+00 ,1.8621e+00 /) - kbo(:,19, 9) = (/ & - &1.7775e+00 ,1.8140e+00 ,1.8454e+00 ,1.8798e+00 ,1.9094e+00 /) - kbo(:,20, 9) = (/ & - &1.8038e+00 ,1.8386e+00 ,1.8699e+00 ,1.9034e+00 ,1.9311e+00 /) - kbo(:,21, 9) = (/ & - &1.8050e+00 ,1.8386e+00 ,1.8712e+00 ,1.9046e+00 ,1.9320e+00 /) - kbo(:,22, 9) = (/ & - &1.7869e+00 ,1.8213e+00 ,1.8557e+00 ,1.8890e+00 ,1.9178e+00 /) - kbo(:,23, 9) = (/ & - &1.7516e+00 ,1.7874e+00 ,1.8248e+00 ,1.8592e+00 ,1.8901e+00 /) - kbo(:,24, 9) = (/ & - &1.7051e+00 ,1.7440e+00 ,1.7841e+00 ,1.8220e+00 ,1.8561e+00 /) - kbo(:,25, 9) = (/ & - &1.6513e+00 ,1.6948e+00 ,1.7396e+00 ,1.7805e+00 ,1.8194e+00 /) - kbo(:,26, 9) = (/ & - &1.5955e+00 ,1.6454e+00 ,1.6945e+00 ,1.7402e+00 ,1.7819e+00 /) - kbo(:,27, 9) = (/ & - &1.5421e+00 ,1.5985e+00 ,1.6517e+00 ,1.7028e+00 ,1.7485e+00 /) - kbo(:,28, 9) = (/ & - &1.4940e+00 ,1.5568e+00 ,1.6151e+00 ,1.6694e+00 ,1.7213e+00 /) - kbo(:,29, 9) = (/ & - &1.4533e+00 ,1.5206e+00 ,1.5846e+00 ,1.6444e+00 ,1.7003e+00 /) - kbo(:,30, 9) = (/ & - &1.4208e+00 ,1.4930e+00 ,1.5618e+00 ,1.6263e+00 ,1.6869e+00 /) - kbo(:,31, 9) = (/ & - &1.3961e+00 ,1.4744e+00 ,1.5474e+00 ,1.6161e+00 ,1.6805e+00 /) - kbo(:,32, 9) = (/ & - &1.3821e+00 ,1.4633e+00 ,1.5401e+00 ,1.6122e+00 ,1.6817e+00 /) - kbo(:,33, 9) = (/ & - &1.3749e+00 ,1.4598e+00 ,1.5393e+00 ,1.6160e+00 ,1.6953e+00 /) - kbo(:,34, 9) = (/ & - &1.3713e+00 ,1.4588e+00 ,1.5429e+00 ,1.6218e+00 ,1.7156e+00 /) - kbo(:,35, 9) = (/ & - &1.3644e+00 ,1.4561e+00 ,1.5422e+00 ,1.6338e+00 ,1.7288e+00 /) - kbo(:,36, 9) = (/ & - &1.3516e+00 ,1.4466e+00 ,1.5348e+00 ,1.6360e+00 ,1.7340e+00 /) - kbo(:,37, 9) = (/ & - &1.3275e+00 ,1.4250e+00 ,1.5169e+00 ,1.6237e+00 ,1.7238e+00 /) - kbo(:,38, 9) = (/ & - &1.3040e+00 ,1.4043e+00 ,1.5021e+00 ,1.6114e+00 ,1.7135e+00 /) - kbo(:,39, 9) = (/ & - &1.2823e+00 ,1.3849e+00 ,1.4910e+00 ,1.6008e+00 ,1.7062e+00 /) - kbo(:,40, 9) = (/ & - &1.2494e+00 ,1.3552e+00 ,1.4636e+00 ,1.5759e+00 ,1.6836e+00 /) - kbo(:,41, 9) = (/ & - &1.2158e+00 ,1.3244e+00 ,1.4340e+00 ,1.5489e+00 ,1.6593e+00 /) - kbo(:,42, 9) = (/ & - &1.1826e+00 ,1.2939e+00 ,1.4045e+00 ,1.5221e+00 ,1.6360e+00 /) - kbo(:,43, 9) = (/ & - &1.1430e+00 ,1.2570e+00 ,1.3680e+00 ,1.4889e+00 ,1.6061e+00 /) - kbo(:,44, 9) = (/ & - &1.1001e+00 ,1.2164e+00 ,1.3282e+00 ,1.4525e+00 ,1.5734e+00 /) - kbo(:,45, 9) = (/ & - &1.0569e+00 ,1.1761e+00 ,1.2894e+00 ,1.4161e+00 ,1.5408e+00 /) - kbo(:,46, 9) = (/ & - &1.0113e+00 ,1.1324e+00 ,1.2480e+00 ,1.3769e+00 ,1.5047e+00 /) - kbo(:,47, 9) = (/ & - &9.5935e-01 ,1.0831e+00 ,1.2009e+00 ,1.3301e+00 ,1.4611e+00 /) - kbo(:,48, 9) = (/ & - &9.0670e-01 ,1.0329e+00 ,1.1535e+00 ,1.2830e+00 ,1.4185e+00 /) - kbo(:,49, 9) = (/ & - &8.5414e-01 ,9.8225e-01 ,1.1056e+00 ,1.2370e+00 ,1.3774e+00 /) - kbo(:,50, 9) = (/ & - &8.0339e-01 ,9.3369e-01 ,1.0592e+00 ,1.1907e+00 ,1.3340e+00 /) - kbo(:,51, 9) = (/ & - &7.5351e-01 ,8.8571e-01 ,1.0133e+00 ,1.1450e+00 ,1.2894e+00 /) - kbo(:,52, 9) = (/ & - &7.0363e-01 ,8.3718e-01 ,9.6715e-01 ,1.0991e+00 ,1.2446e+00 /) - kbo(:,53, 9) = (/ & - &6.5356e-01 ,7.8813e-01 ,9.1966e-01 ,1.0529e+00 ,1.2015e+00 /) - kbo(:,54, 9) = (/ & - &6.0842e-01 ,7.4258e-01 ,8.7513e-01 ,1.0061e+00 ,1.1543e+00 /) - kbo(:,55, 9) = (/ & - &5.6587e-01 ,6.9834e-01 ,8.3229e-01 ,9.6266e-01 ,1.1037e+00 /) - kbo(:,56, 9) = (/ & - &5.2358e-01 ,6.5442e-01 ,7.8939e-01 ,9.2104e-01 ,1.0541e+00 /) - kbo(:,57, 9) = (/ & - &4.8183e-01 ,6.1174e-01 ,7.4558e-01 ,8.7862e-01 ,1.0077e+00 /) - kbo(:,58, 9) = (/ & - &4.4300e-01 ,5.7151e-01 ,7.0375e-01 ,8.3825e-01 ,9.6862e-01 /) - kbo(:,59, 9) = (/ & - &4.2745e-01 ,5.5483e-01 ,6.8739e-01 ,8.2045e-01 ,9.5225e-01 /) - kbo(:,13,10) = (/ & - &1.9893e+00 ,1.9563e+00 ,1.9174e+00 ,1.9426e+00 ,2.0503e+00 /) - kbo(:,14,10) = (/ & - &1.9716e+00 ,2.0101e+00 ,2.0332e+00 ,2.0825e+00 ,2.0990e+00 /) - kbo(:,15,10) = (/ & - &2.2404e+00 ,2.3114e+00 ,2.3474e+00 ,2.4414e+00 ,2.5235e+00 /) - kbo(:,16,10) = (/ & - &2.6948e+00 ,2.7693e+00 ,2.8500e+00 ,2.9277e+00 ,3.0098e+00 /) - kbo(:,17,10) = (/ & - &2.9786e+00 ,3.0578e+00 ,3.1508e+00 ,3.2081e+00 ,3.2791e+00 /) - kbo(:,18,10) = (/ & - &3.2445e+00 ,3.3300e+00 ,3.4200e+00 ,3.4641e+00 ,3.5430e+00 /) - kbo(:,19,10) = (/ & - &3.4975e+00 ,3.5857e+00 ,3.6668e+00 ,3.7210e+00 ,3.8007e+00 /) - kbo(:,20,10) = (/ & - &3.7569e+00 ,3.8465e+00 ,3.9165e+00 ,3.9790e+00 ,4.0533e+00 /) - kbo(:,21,10) = (/ & - &4.0221e+00 ,4.1092e+00 ,4.1701e+00 ,4.2261e+00 ,4.2948e+00 /) - kbo(:,22,10) = (/ & - &4.2735e+00 ,4.3579e+00 ,4.4003e+00 ,4.4698e+00 ,4.5287e+00 /) - kbo(:,23,10) = (/ & - &4.4889e+00 ,4.5713e+00 ,4.6026e+00 ,4.6888e+00 ,4.7442e+00 /) - kbo(:,24,10) = (/ & - &4.6627e+00 ,4.7429e+00 ,4.7936e+00 ,4.8738e+00 ,4.9305e+00 /) - kbo(:,25,10) = (/ & - &4.8010e+00 ,4.8792e+00 ,4.9473e+00 ,5.0350e+00 ,5.0940e+00 /) - kbo(:,26,10) = (/ & - &4.9124e+00 ,4.9871e+00 ,5.0797e+00 ,5.1628e+00 ,5.2299e+00 /) - kbo(:,27,10) = (/ & - &4.9985e+00 ,5.0753e+00 ,5.2023e+00 ,5.2822e+00 ,5.3506e+00 /) - kbo(:,28,10) = (/ & - &5.0601e+00 ,5.1633e+00 ,5.2946e+00 ,5.3826e+00 ,5.4390e+00 /) - kbo(:,29,10) = (/ & - &5.1149e+00 ,5.2551e+00 ,5.3769e+00 ,5.4560e+00 ,5.5331e+00 /) - kbo(:,30,10) = (/ & - &5.1829e+00 ,5.3405e+00 ,5.4468e+00 ,5.5366e+00 ,5.6267e+00 /) - kbo(:,31,10) = (/ & - &5.2708e+00 ,5.3990e+00 ,5.5145e+00 ,5.6271e+00 ,5.7226e+00 /) - kbo(:,32,10) = (/ & - &5.3210e+00 ,5.4615e+00 ,5.6064e+00 ,5.7149e+00 ,5.7961e+00 /) - kbo(:,33,10) = (/ & - &5.3784e+00 ,5.5514e+00 ,5.6898e+00 ,5.7825e+00 ,5.7881e+00 /) - kbo(:,34,10) = (/ & - &5.4610e+00 ,5.6264e+00 ,5.7421e+00 ,5.8351e+00 ,5.7469e+00 /) - kbo(:,35,10) = (/ & - &5.5182e+00 ,5.6646e+00 ,5.7805e+00 ,5.8049e+00 ,5.8731e+00 /) - kbo(:,36,10) = (/ & - &5.5474e+00 ,5.6825e+00 ,5.8317e+00 ,5.7746e+00 ,5.9436e+00 /) - kbo(:,37,10) = (/ & - &5.5356e+00 ,5.6848e+00 ,5.8413e+00 ,5.7830e+00 ,5.9888e+00 /) - kbo(:,38,10) = (/ & - &5.5240e+00 ,5.6924e+00 ,5.8161e+00 ,5.8447e+00 ,6.0305e+00 /) - kbo(:,39,10) = (/ & - &5.5062e+00 ,5.7035e+00 ,5.7750e+00 ,5.8907e+00 ,6.0598e+00 /) - kbo(:,40,10) = (/ & - &5.4721e+00 ,5.6790e+00 ,5.7621e+00 ,5.8808e+00 ,6.0578e+00 /) - kbo(:,41,10) = (/ & - &5.4259e+00 ,5.6462e+00 ,5.7509e+00 ,5.8640e+00 ,6.0494e+00 /) - kbo(:,42,10) = (/ & - &5.3746e+00 ,5.6111e+00 ,5.7387e+00 ,5.8493e+00 ,6.0309e+00 /) - kbo(:,43,10) = (/ & - &5.3001e+00 ,5.5493e+00 ,5.7206e+00 ,5.8145e+00 ,6.0040e+00 /) - kbo(:,44,10) = (/ & - &5.2173e+00 ,5.4929e+00 ,5.6988e+00 ,5.7584e+00 ,5.9757e+00 /) - kbo(:,45,10) = (/ & - &5.1348e+00 ,5.4235e+00 ,5.6596e+00 ,5.7148e+00 ,5.9430e+00 /) - kbo(:,46,10) = (/ & - &5.0314e+00 ,5.3386e+00 ,5.5941e+00 ,5.6594e+00 ,5.8994e+00 /) - kbo(:,47,10) = (/ & - &4.9050e+00 ,5.2288e+00 ,5.5164e+00 ,5.5882e+00 ,5.8407e+00 /) - kbo(:,48,10) = (/ & - &4.7768e+00 ,5.1235e+00 ,5.4274e+00 ,5.5412e+00 ,5.7765e+00 /) - kbo(:,49,10) = (/ & - &4.6322e+00 ,5.0058e+00 ,5.3313e+00 ,5.4722e+00 ,5.7006e+00 /) - kbo(:,50,10) = (/ & - &4.4926e+00 ,4.8780e+00 ,5.2241e+00 ,5.4133e+00 ,5.6277e+00 /) - kbo(:,51,10) = (/ & - &4.3523e+00 ,4.7488e+00 ,5.1238e+00 ,5.3514e+00 ,5.5587e+00 /) - kbo(:,52,10) = (/ & - &4.2056e+00 ,4.6099e+00 ,5.0074e+00 ,5.2732e+00 ,5.4803e+00 /) - kbo(:,53,10) = (/ & - &4.0530e+00 ,4.4698e+00 ,4.8873e+00 ,5.1842e+00 ,5.3844e+00 /) - kbo(:,54,10) = (/ & - &3.8976e+00 ,4.3362e+00 ,4.7616e+00 ,5.1168e+00 ,5.2766e+00 /) - kbo(:,55,10) = (/ & - &3.7298e+00 ,4.2020e+00 ,4.6200e+00 ,5.0133e+00 ,5.2077e+00 /) - kbo(:,56,10) = (/ & - &3.5605e+00 ,4.0625e+00 ,4.4800e+00 ,4.8943e+00 ,5.1989e+00 /) - kbo(:,57,10) = (/ & - &3.3848e+00 ,3.9107e+00 ,4.3536e+00 ,4.7626e+00 ,5.1398e+00 /) - kbo(:,58,10) = (/ & - &3.2413e+00 ,3.7494e+00 ,4.2254e+00 ,4.6312e+00 ,5.0237e+00 /) - kbo(:,59,10) = (/ & - &3.1874e+00 ,3.6712e+00 ,4.1570e+00 ,4.5764e+00 ,4.9431e+00 /) - kbo(:,13,11) = (/ & - &2.0655e+00 ,2.2522e+00 ,2.3749e+00 ,2.3793e+00 ,2.3141e+00 /) - kbo(:,14,11) = (/ & - &2.3056e+00 ,2.3392e+00 ,2.3483e+00 ,2.4161e+00 ,2.4783e+00 /) - kbo(:,15,11) = (/ & - &2.5044e+00 ,2.5910e+00 ,2.7153e+00 ,2.7838e+00 ,2.9462e+00 /) - kbo(:,16,11) = (/ & - &3.2130e+00 ,3.2960e+00 ,3.3708e+00 ,3.3957e+00 ,3.4936e+00 /) - kbo(:,17,11) = (/ & - &3.5929e+00 ,3.6854e+00 ,3.7568e+00 ,3.8084e+00 ,3.9070e+00 /) - kbo(:,18,11) = (/ & - &3.9502e+00 ,4.0564e+00 ,4.1260e+00 ,4.2219e+00 ,4.3335e+00 /) - kbo(:,19,11) = (/ & - &4.3215e+00 ,4.4423e+00 ,4.5361e+00 ,4.6179e+00 ,4.7405e+00 /) - kbo(:,20,11) = (/ & - &4.7059e+00 ,4.8304e+00 ,4.9342e+00 ,4.9958e+00 ,5.1320e+00 /) - kbo(:,21,11) = (/ & - &5.0845e+00 ,5.2089e+00 ,5.3085e+00 ,5.3635e+00 ,5.4973e+00 /) - kbo(:,22,11) = (/ & - &5.4678e+00 ,5.5866e+00 ,5.6718e+00 ,5.7157e+00 ,5.8446e+00 /) - kbo(:,23,11) = (/ & - &5.8472e+00 ,5.9542e+00 ,6.0224e+00 ,6.0657e+00 ,6.1751e+00 /) - kbo(:,24,11) = (/ & - &6.2102e+00 ,6.3055e+00 ,6.3477e+00 ,6.4025e+00 ,6.4818e+00 /) - kbo(:,25,11) = (/ & - &6.5425e+00 ,6.6276e+00 ,6.6464e+00 ,6.7138e+00 ,6.7776e+00 /) - kbo(:,26,11) = (/ & - &6.8397e+00 ,6.9134e+00 ,6.9153e+00 ,7.0099e+00 ,7.0590e+00 /) - kbo(:,27,11) = (/ & - &7.1001e+00 ,7.1597e+00 ,7.1676e+00 ,7.2592e+00 ,7.2956e+00 /) - kbo(:,28,11) = (/ & - &7.3310e+00 ,7.3578e+00 ,7.4192e+00 ,7.4714e+00 ,7.5147e+00 /) - kbo(:,29,11) = (/ & - &7.5220e+00 ,7.5568e+00 ,7.6448e+00 ,7.6786e+00 ,7.7106e+00 /) - kbo(:,30,11) = (/ & - &7.6639e+00 ,7.7470e+00 ,7.8152e+00 ,7.8571e+00 ,7.8626e+00 /) - kbo(:,31,11) = (/ & - &7.8082e+00 ,7.9292e+00 ,7.9711e+00 ,7.9864e+00 ,7.9914e+00 /) - kbo(:,32,11) = (/ & - &7.9725e+00 ,8.0661e+00 ,8.0888e+00 ,8.1052e+00 ,8.1459e+00 /) - kbo(:,33,11) = (/ & - &8.1196e+00 ,8.1648e+00 ,8.2204e+00 ,8.2561e+00 ,8.2714e+00 /) - kbo(:,34,11) = (/ & - &8.1982e+00 ,8.2822e+00 ,8.3431e+00 ,8.3695e+00 ,8.3494e+00 /) - kbo(:,35,11) = (/ & - &8.2893e+00 ,8.3914e+00 ,8.4459e+00 ,8.4367e+00 ,8.2201e+00 /) - kbo(:,36,11) = (/ & - &8.3709e+00 ,8.4754e+00 ,8.5081e+00 ,8.5002e+00 ,8.2056e+00 /) - kbo(:,37,11) = (/ & - &8.4255e+00 ,8.5299e+00 ,8.5562e+00 ,8.5457e+00 ,8.3297e+00 /) - kbo(:,38,11) = (/ & - &8.4692e+00 ,8.5729e+00 ,8.6048e+00 ,8.5329e+00 ,8.4574e+00 /) - kbo(:,39,11) = (/ & - &8.5044e+00 ,8.6011e+00 ,8.6529e+00 ,8.5036e+00 ,8.5412e+00 /) - kbo(:,40,11) = (/ & - &8.5034e+00 ,8.6122e+00 ,8.6861e+00 ,8.5500e+00 ,8.5878e+00 /) - kbo(:,41,11) = (/ & - &8.4921e+00 ,8.6152e+00 ,8.7146e+00 ,8.6037e+00 ,8.6322e+00 /) - kbo(:,42,11) = (/ & - &8.4716e+00 ,8.6012e+00 ,8.7281e+00 ,8.6344e+00 ,8.6768e+00 /) - kbo(:,43,11) = (/ & - &8.4399e+00 ,8.6022e+00 ,8.7354e+00 ,8.6857e+00 ,8.7108e+00 /) - kbo(:,44,11) = (/ & - &8.4042e+00 ,8.5707e+00 ,8.7247e+00 ,8.7306e+00 ,8.7301e+00 /) - kbo(:,45,11) = (/ & - &8.3422e+00 ,8.5367e+00 ,8.7092e+00 ,8.7655e+00 ,8.7531e+00 /) - kbo(:,46,11) = (/ & - &8.2614e+00 ,8.4925e+00 ,8.6796e+00 ,8.7911e+00 ,8.7636e+00 /) - kbo(:,47,11) = (/ & - &8.1773e+00 ,8.4296e+00 ,8.6376e+00 ,8.8172e+00 ,8.7465e+00 /) - kbo(:,48,11) = (/ & - &8.0681e+00 ,8.3512e+00 ,8.5867e+00 ,8.7946e+00 ,8.7119e+00 /) - kbo(:,49,11) = (/ & - &7.9551e+00 ,8.2607e+00 ,8.5307e+00 ,8.7608e+00 ,8.6937e+00 /) - kbo(:,50,11) = (/ & - &7.8252e+00 ,8.1751e+00 ,8.4616e+00 ,8.7182e+00 ,8.6487e+00 /) - kbo(:,51,11) = (/ & - &7.6779e+00 ,8.0748e+00 ,8.3664e+00 ,8.6630e+00 ,8.6216e+00 /) - kbo(:,52,11) = (/ & - &7.5020e+00 ,7.9591e+00 ,8.2751e+00 ,8.6024e+00 ,8.6131e+00 /) - kbo(:,53,11) = (/ & - &7.3138e+00 ,7.8339e+00 ,8.1806e+00 ,8.5263e+00 ,8.5994e+00 /) - kbo(:,54,11) = (/ & - &7.1204e+00 ,7.6772e+00 ,8.0838e+00 ,8.4459e+00 ,8.6417e+00 /) - kbo(:,55,11) = (/ & - &6.9256e+00 ,7.5251e+00 ,7.9750e+00 ,8.3203e+00 ,8.6369e+00 /) - kbo(:,56,11) = (/ & - &6.7619e+00 ,7.3247e+00 ,7.8477e+00 ,8.2055e+00 ,8.5418e+00 /) - kbo(:,57,11) = (/ & - &6.5989e+00 ,7.1193e+00 ,7.6865e+00 ,8.1073e+00 ,8.4236e+00 /) - kbo(:,58,11) = (/ & - &6.3964e+00 ,6.9666e+00 ,7.5354e+00 ,7.9999e+00 ,8.3228e+00 /) - kbo(:,59,11) = (/ & - &6.3130e+00 ,6.9330e+00 ,7.4209e+00 ,7.9087e+00 ,8.2712e+00 /) - kbo(:,13,12) = (/ & - &2.2326e+00 ,2.2492e+00 ,2.2166e+00 ,2.2179e+00 ,2.3939e+00 /) - kbo(:,14,12) = (/ & - &2.6624e+00 ,2.8068e+00 ,2.8766e+00 ,2.8509e+00 ,2.8616e+00 /) - kbo(:,15,12) = (/ & - &3.7151e+00 ,3.8338e+00 ,3.8710e+00 ,3.8938e+00 ,4.0387e+00 /) - kbo(:,16,12) = (/ & - &4.1478e+00 ,4.2453e+00 ,4.2845e+00 ,4.3058e+00 ,4.4171e+00 /) - kbo(:,17,12) = (/ & - &4.4594e+00 ,4.5666e+00 ,4.6335e+00 ,4.6600e+00 ,4.7776e+00 /) - kbo(:,18,12) = (/ & - &4.8949e+00 ,5.0141e+00 ,5.1198e+00 ,5.1461e+00 ,5.2514e+00 /) - kbo(:,19,12) = (/ & - &5.4166e+00 ,5.5448e+00 ,5.6541e+00 ,5.7098e+00 ,5.7608e+00 /) - kbo(:,20,12) = (/ & - &5.9687e+00 ,6.1117e+00 ,6.2318e+00 ,6.2991e+00 ,6.3382e+00 /) - kbo(:,21,12) = (/ & - &6.5357e+00 ,6.6891e+00 ,6.8185e+00 ,6.8922e+00 ,6.9339e+00 /) - kbo(:,22,12) = (/ & - &7.1247e+00 ,7.2763e+00 ,7.4121e+00 ,7.4770e+00 ,7.5498e+00 /) - kbo(:,23,12) = (/ & - &7.7039e+00 ,7.8572e+00 ,7.9884e+00 ,8.0284e+00 ,8.1432e+00 /) - kbo(:,24,12) = (/ & - &8.2700e+00 ,8.4098e+00 ,8.5280e+00 ,8.5448e+00 ,8.6892e+00 /) - kbo(:,25,12) = (/ & - &8.8099e+00 ,8.9417e+00 ,9.0327e+00 ,9.0480e+00 ,9.1843e+00 /) - kbo(:,26,12) = (/ & - &9.3282e+00 ,9.4425e+00 ,9.5016e+00 ,9.4918e+00 ,9.6320e+00 /) - kbo(:,27,12) = (/ & - &9.8120e+00 ,9.9020e+00 ,9.8963e+00 ,9.9235e+00 ,1.0029e+01 /) - kbo(:,28,12) = (/ & - &1.0246e+01 ,1.0311e+01 ,1.0256e+01 ,1.0345e+01 ,1.0401e+01 /) - kbo(:,29,12) = (/ & - &1.0631e+01 ,1.0621e+01 ,1.0577e+01 ,1.0691e+01 ,1.0719e+01 /) - kbo(:,30,12) = (/ & - &1.0962e+01 ,1.0883e+01 ,1.0936e+01 ,1.0968e+01 ,1.0995e+01 /) - kbo(:,31,12) = (/ & - &1.1183e+01 ,1.1144e+01 ,1.1216e+01 ,1.1241e+01 ,1.1250e+01 /) - kbo(:,32,12) = (/ & - &1.1390e+01 ,1.1439e+01 ,1.1434e+01 ,1.1471e+01 ,1.1430e+01 /) - kbo(:,33,12) = (/ & - &1.1588e+01 ,1.1624e+01 ,1.1599e+01 ,1.1614e+01 ,1.1630e+01 /) - kbo(:,34,12) = (/ & - &1.1823e+01 ,1.1780e+01 ,1.1748e+01 ,1.1805e+01 ,1.1825e+01 /) - kbo(:,35,12) = (/ & - &1.1935e+01 ,1.1885e+01 ,1.1934e+01 ,1.1981e+01 ,1.2011e+01 /) - kbo(:,36,12) = (/ & - &1.2055e+01 ,1.2055e+01 ,1.2092e+01 ,1.2129e+01 ,1.2083e+01 /) - kbo(:,37,12) = (/ & - &1.2143e+01 ,1.2189e+01 ,1.2217e+01 ,1.2211e+01 ,1.2038e+01 /) - kbo(:,38,12) = (/ & - &1.2240e+01 ,1.2287e+01 ,1.2320e+01 ,1.2293e+01 ,1.1958e+01 /) - kbo(:,39,12) = (/ & - &1.2384e+01 ,1.2401e+01 ,1.2395e+01 ,1.2388e+01 ,1.1943e+01 /) - kbo(:,40,12) = (/ & - &1.2464e+01 ,1.2479e+01 ,1.2477e+01 ,1.2446e+01 ,1.2032e+01 /) - kbo(:,41,12) = (/ & - &1.2528e+01 ,1.2533e+01 ,1.2534e+01 ,1.2503e+01 ,1.2103e+01 /) - kbo(:,42,12) = (/ & - &1.2585e+01 ,1.2609e+01 ,1.2591e+01 ,1.2562e+01 ,1.2170e+01 /) - kbo(:,43,12) = (/ & - &1.2648e+01 ,1.2666e+01 ,1.2643e+01 ,1.2594e+01 ,1.2252e+01 /) - kbo(:,44,12) = (/ & - &1.2682e+01 ,1.2728e+01 ,1.2701e+01 ,1.2655e+01 ,1.2340e+01 /) - kbo(:,45,12) = (/ & - &1.2706e+01 ,1.2763e+01 ,1.2739e+01 ,1.2702e+01 ,1.2417e+01 /) - kbo(:,46,12) = (/ & - &1.2744e+01 ,1.2798e+01 ,1.2795e+01 ,1.2773e+01 ,1.2516e+01 /) - kbo(:,47,12) = (/ & - &1.2744e+01 ,1.2852e+01 ,1.2846e+01 ,1.2816e+01 ,1.2652e+01 /) - kbo(:,48,12) = (/ & - &1.2714e+01 ,1.2860e+01 ,1.2886e+01 ,1.2860e+01 ,1.2772e+01 /) - kbo(:,49,12) = (/ & - &1.2667e+01 ,1.2862e+01 ,1.2927e+01 ,1.2926e+01 ,1.2873e+01 /) - kbo(:,50,12) = (/ & - &1.2568e+01 ,1.2858e+01 ,1.2953e+01 ,1.2955e+01 ,1.2993e+01 /) - kbo(:,51,12) = (/ & - &1.2506e+01 ,1.2803e+01 ,1.2982e+01 ,1.2983e+01 ,1.3071e+01 /) - kbo(:,52,12) = (/ & - &1.2444e+01 ,1.2786e+01 ,1.2969e+01 ,1.3005e+01 ,1.3112e+01 /) - kbo(:,53,12) = (/ & - &1.2352e+01 ,1.2737e+01 ,1.2961e+01 ,1.3024e+01 ,1.3150e+01 /) - kbo(:,54,12) = (/ & - &1.2273e+01 ,1.2640e+01 ,1.2911e+01 ,1.3015e+01 ,1.3144e+01 /) - kbo(:,55,12) = (/ & - &1.2241e+01 ,1.2456e+01 ,1.2830e+01 ,1.3015e+01 ,1.3103e+01 /) - kbo(:,56,12) = (/ & - &1.2129e+01 ,1.2403e+01 ,1.2744e+01 ,1.2955e+01 ,1.3054e+01 /) - kbo(:,57,12) = (/ & - &1.1983e+01 ,1.2327e+01 ,1.2603e+01 ,1.2910e+01 ,1.3056e+01 /) - kbo(:,58,12) = (/ & - &1.1825e+01 ,1.2269e+01 ,1.2506e+01 ,1.2817e+01 ,1.3023e+01 /) - kbo(:,59,12) = (/ & - &1.1756e+01 ,1.2243e+01 ,1.2496e+01 ,1.2736e+01 ,1.2923e+01 /) - kbo(:,13,13) = (/ & - &2.4382e+00 ,2.5269e+00 ,2.6487e+00 ,2.6115e+00 ,2.6014e+00 /) - kbo(:,14,13) = (/ & - &3.1530e+00 ,3.3624e+00 ,3.5863e+00 ,3.8586e+00 ,4.4708e+00 /) - kbo(:,15,13) = (/ & - &5.2015e+00 ,5.3405e+00 ,5.5020e+00 ,5.5114e+00 ,5.5124e+00 /) - kbo(:,16,13) = (/ & - &5.7225e+00 ,5.8966e+00 ,6.0571e+00 ,6.0559e+00 ,6.0668e+00 /) - kbo(:,17,13) = (/ & - &6.2716e+00 ,6.4422e+00 ,6.5990e+00 ,6.6435e+00 ,6.5757e+00 /) - kbo(:,18,13) = (/ & - &6.7715e+00 ,6.9371e+00 ,7.0939e+00 ,7.1586e+00 ,7.0596e+00 /) - kbo(:,19,13) = (/ & - &7.2728e+00 ,7.4403e+00 ,7.6008e+00 ,7.7026e+00 ,7.6789e+00 /) - kbo(:,20,13) = (/ & - &7.8570e+00 ,8.0286e+00 ,8.1992e+00 ,8.3169e+00 ,8.3122e+00 /) - kbo(:,21,13) = (/ & - &8.5574e+00 ,8.7300e+00 ,8.9004e+00 ,9.0231e+00 ,9.0274e+00 /) - kbo(:,22,13) = (/ & - &9.3806e+00 ,9.5518e+00 ,9.7137e+00 ,9.8169e+00 ,9.7877e+00 /) - kbo(:,23,13) = (/ & - &1.0275e+01 ,1.0446e+01 ,1.0597e+01 ,1.0672e+01 ,1.0640e+01 /) - kbo(:,24,13) = (/ & - &1.1189e+01 ,1.1360e+01 ,1.1491e+01 ,1.1535e+01 ,1.1479e+01 /) - kbo(:,25,13) = (/ & - &1.2097e+01 ,1.2245e+01 ,1.2356e+01 ,1.2332e+01 ,1.2284e+01 /) - kbo(:,26,13) = (/ & - &1.2961e+01 ,1.3082e+01 ,1.3167e+01 ,1.3081e+01 ,1.3047e+01 /) - kbo(:,27,13) = (/ & - &1.3759e+01 ,1.3850e+01 ,1.3907e+01 ,1.3774e+01 ,1.3731e+01 /) - kbo(:,28,13) = (/ & - &1.4487e+01 ,1.4544e+01 ,1.4510e+01 ,1.4345e+01 ,1.4410e+01 /) - kbo(:,29,13) = (/ & - &1.5131e+01 ,1.5152e+01 ,1.4989e+01 ,1.4893e+01 ,1.4931e+01 /) - kbo(:,30,13) = (/ & - &1.5691e+01 ,1.5628e+01 ,1.5428e+01 ,1.5458e+01 ,1.5409e+01 /) - kbo(:,31,13) = (/ & - &1.6170e+01 ,1.5957e+01 ,1.5859e+01 ,1.5855e+01 ,1.5824e+01 /) - kbo(:,32,13) = (/ & - &1.6473e+01 ,1.6259e+01 ,1.6330e+01 ,1.6208e+01 ,1.6186e+01 /) - kbo(:,33,13) = (/ & - &1.6723e+01 ,1.6704e+01 ,1.6654e+01 ,1.6563e+01 ,1.6454e+01 /) - kbo(:,34,13) = (/ & - &1.6982e+01 ,1.6991e+01 ,1.6942e+01 ,1.6797e+01 ,1.6670e+01 /) - kbo(:,35,13) = (/ & - &1.7322e+01 ,1.7270e+01 ,1.7135e+01 ,1.6953e+01 ,1.6879e+01 /) - kbo(:,36,13) = (/ & - &1.7562e+01 ,1.7451e+01 ,1.7282e+01 ,1.7228e+01 ,1.7169e+01 /) - kbo(:,37,13) = (/ & - &1.7777e+01 ,1.7615e+01 ,1.7471e+01 ,1.7494e+01 ,1.7411e+01 /) - kbo(:,38,13) = (/ & - &1.7932e+01 ,1.7773e+01 ,1.7733e+01 ,1.7665e+01 ,1.7616e+01 /) - kbo(:,39,13) = (/ & - &1.7993e+01 ,1.7881e+01 ,1.7968e+01 ,1.7898e+01 ,1.7772e+01 /) - kbo(:,40,13) = (/ & - &1.8148e+01 ,1.8027e+01 ,1.8107e+01 ,1.8066e+01 ,1.7907e+01 /) - kbo(:,41,13) = (/ & - &1.8273e+01 ,1.8183e+01 ,1.8251e+01 ,1.8205e+01 ,1.8057e+01 /) - kbo(:,42,13) = (/ & - &1.8408e+01 ,1.8324e+01 ,1.8378e+01 ,1.8322e+01 ,1.8177e+01 /) - kbo(:,43,13) = (/ & - &1.8505e+01 ,1.8424e+01 ,1.8497e+01 ,1.8450e+01 ,1.8293e+01 /) - kbo(:,44,13) = (/ & - &1.8604e+01 ,1.8490e+01 ,1.8578e+01 ,1.8585e+01 ,1.8430e+01 /) - kbo(:,45,13) = (/ & - &1.8704e+01 ,1.8600e+01 ,1.8704e+01 ,1.8731e+01 ,1.8566e+01 /) - kbo(:,46,13) = (/ & - &1.8778e+01 ,1.8729e+01 ,1.8813e+01 ,1.8830e+01 ,1.8670e+01 /) - kbo(:,47,13) = (/ & - &1.8850e+01 ,1.8781e+01 ,1.8910e+01 ,1.8941e+01 ,1.8764e+01 /) - kbo(:,48,13) = (/ & - &1.8986e+01 ,1.8857e+01 ,1.8976e+01 ,1.9005e+01 ,1.8895e+01 /) - kbo(:,49,13) = (/ & - &1.9095e+01 ,1.9011e+01 ,1.9061e+01 ,1.9086e+01 ,1.9025e+01 /) - kbo(:,50,13) = (/ & - &1.9280e+01 ,1.9083e+01 ,1.9157e+01 ,1.9191e+01 ,1.9123e+01 /) - kbo(:,51,13) = (/ & - &1.9385e+01 ,1.9151e+01 ,1.9215e+01 ,1.9259e+01 ,1.9196e+01 /) - kbo(:,52,13) = (/ & - &1.9488e+01 ,1.9188e+01 ,1.9260e+01 ,1.9328e+01 ,1.9259e+01 /) - kbo(:,53,13) = (/ & - &1.9657e+01 ,1.9231e+01 ,1.9381e+01 ,1.9391e+01 ,1.9331e+01 /) - kbo(:,54,13) = (/ & - &1.9810e+01 ,1.9362e+01 ,1.9357e+01 ,1.9443e+01 ,1.9402e+01 /) - kbo(:,55,13) = (/ & - &1.9885e+01 ,1.9515e+01 ,1.9337e+01 ,1.9415e+01 ,1.9400e+01 /) - kbo(:,56,13) = (/ & - &1.9952e+01 ,1.9629e+01 ,1.9325e+01 ,1.9383e+01 ,1.9431e+01 /) - kbo(:,57,13) = (/ & - &2.0005e+01 ,1.9822e+01 ,1.9466e+01 ,1.9235e+01 ,1.9419e+01 /) - kbo(:,58,13) = (/ & - &2.0044e+01 ,1.9891e+01 ,1.9520e+01 ,1.9352e+01 ,1.9344e+01 /) - kbo(:,59,13) = (/ & - &2.0058e+01 ,1.9920e+01 ,1.9627e+01 ,1.9319e+01 ,1.9225e+01 /) - kbo(:,13,14) = (/ & - &3.1216e+00 ,3.1914e+00 ,3.0899e+00 ,3.3224e+00 ,4.2010e+00 /) - kbo(:,14,14) = (/ & - &7.0173e+00 ,7.2031e+00 ,7.3581e+00 ,7.0289e+00 ,6.9115e+00 /) - kbo(:,15,14) = (/ & - &7.9333e+00 ,8.1347e+00 ,8.2980e+00 ,8.2914e+00 ,7.9259e+00 /) - kbo(:,16,14) = (/ & - &8.8725e+00 ,9.0683e+00 ,9.2568e+00 ,9.4307e+00 ,9.0182e+00 /) - kbo(:,17,14) = (/ & - &9.8363e+00 ,1.0075e+01 ,1.0298e+01 ,1.0509e+01 ,1.0358e+01 /) - kbo(:,18,14) = (/ & - &1.0886e+01 ,1.1174e+01 ,1.1435e+01 ,1.1674e+01 ,1.1694e+01 /) - kbo(:,19,14) = (/ & - &1.2011e+01 ,1.2333e+01 ,1.2632e+01 ,1.2897e+01 ,1.3012e+01 /) - kbo(:,20,14) = (/ & - &1.3190e+01 ,1.3540e+01 ,1.3861e+01 ,1.4163e+01 ,1.4313e+01 /) - kbo(:,21,14) = (/ & - &1.4385e+01 ,1.4764e+01 ,1.5119e+01 ,1.5437e+01 ,1.5593e+01 /) - kbo(:,22,14) = (/ & - &1.5599e+01 ,1.6013e+01 ,1.6388e+01 ,1.6714e+01 ,1.6844e+01 /) - kbo(:,23,14) = (/ & - &1.6855e+01 ,1.7274e+01 ,1.7644e+01 ,1.7957e+01 ,1.7983e+01 /) - kbo(:,24,14) = (/ & - &1.8152e+01 ,1.8541e+01 ,1.8882e+01 ,1.9172e+01 ,1.9130e+01 /) - kbo(:,25,14) = (/ & - &1.9440e+01 ,1.9782e+01 ,2.0084e+01 ,2.0333e+01 ,2.0194e+01 /) - kbo(:,26,14) = (/ & - &2.0688e+01 ,2.0983e+01 ,2.1232e+01 ,2.1433e+01 ,2.1144e+01 /) - kbo(:,27,14) = (/ & - &2.1870e+01 ,2.2106e+01 ,2.2296e+01 ,2.2344e+01 ,2.1989e+01 /) - kbo(:,28,14) = (/ & - &2.2959e+01 ,2.3128e+01 ,2.3255e+01 ,2.3127e+01 ,2.2540e+01 /) - kbo(:,29,14) = (/ & - &2.3936e+01 ,2.4040e+01 ,2.4108e+01 ,2.3686e+01 ,2.3118e+01 /) - kbo(:,30,14) = (/ & - &2.4794e+01 ,2.4831e+01 ,2.4631e+01 ,2.3967e+01 ,2.3807e+01 /) - kbo(:,31,14) = (/ & - &2.5525e+01 ,2.5458e+01 ,2.4921e+01 ,2.4395e+01 ,2.4482e+01 /) - kbo(:,32,14) = (/ & - &2.6140e+01 ,2.5757e+01 ,2.4988e+01 ,2.5111e+01 ,2.5399e+01 /) - kbo(:,33,14) = (/ & - &2.6507e+01 ,2.5703e+01 ,2.5535e+01 ,2.5869e+01 ,2.6121e+01 /) - kbo(:,34,14) = (/ & - &2.6569e+01 ,2.5953e+01 ,2.6151e+01 ,2.6361e+01 ,2.6801e+01 /) - kbo(:,35,14) = (/ & - &2.6562e+01 ,2.6504e+01 ,2.6810e+01 ,2.7029e+01 ,2.7434e+01 /) - kbo(:,36,14) = (/ & - &2.6827e+01 ,2.6824e+01 ,2.7232e+01 ,2.7537e+01 ,2.7695e+01 /) - kbo(:,37,14) = (/ & - &2.7090e+01 ,2.7286e+01 ,2.7649e+01 ,2.7765e+01 ,2.8180e+01 /) - kbo(:,38,14) = (/ & - &2.7488e+01 ,2.7623e+01 ,2.7893e+01 ,2.8192e+01 ,2.8556e+01 /) - kbo(:,39,14) = (/ & - &2.7778e+01 ,2.8122e+01 ,2.8064e+01 ,2.8480e+01 ,2.8841e+01 /) - kbo(:,40,14) = (/ & - &2.8002e+01 ,2.8307e+01 ,2.8286e+01 ,2.8653e+01 ,2.9020e+01 /) - kbo(:,41,14) = (/ & - &2.8205e+01 ,2.8457e+01 ,2.8430e+01 ,2.8865e+01 ,2.9164e+01 /) - kbo(:,42,14) = (/ & - &2.8421e+01 ,2.8563e+01 ,2.8567e+01 ,2.9033e+01 ,2.9360e+01 /) - kbo(:,43,14) = (/ & - &2.8605e+01 ,2.8649e+01 ,2.8746e+01 ,2.9195e+01 ,2.9582e+01 /) - kbo(:,44,14) = (/ & - &2.8719e+01 ,2.8847e+01 ,2.8915e+01 ,2.9326e+01 ,2.9712e+01 /) - kbo(:,45,14) = (/ & - &2.9008e+01 ,2.9000e+01 ,2.9085e+01 ,2.9440e+01 ,2.9882e+01 /) - kbo(:,46,14) = (/ & - &2.9283e+01 ,2.9066e+01 ,2.9214e+01 ,2.9505e+01 ,3.0075e+01 /) - kbo(:,47,14) = (/ & - &2.9505e+01 ,2.9215e+01 ,2.9192e+01 ,2.9549e+01 ,3.0231e+01 /) - kbo(:,48,14) = (/ & - &2.9847e+01 ,2.9465e+01 ,2.9377e+01 ,2.9796e+01 ,3.0530e+01 /) - kbo(:,49,14) = (/ & - &3.0209e+01 ,2.9590e+01 ,2.9613e+01 ,2.9947e+01 ,3.0891e+01 /) - kbo(:,50,14) = (/ & - &3.0555e+01 ,2.9682e+01 ,2.9721e+01 ,3.0034e+01 ,3.0987e+01 /) - kbo(:,51,14) = (/ & - &3.0932e+01 ,2.9941e+01 ,2.9791e+01 ,3.0042e+01 ,3.0973e+01 /) - kbo(:,52,14) = (/ & - &3.1304e+01 ,3.0128e+01 ,2.9896e+01 ,3.0085e+01 ,3.1235e+01 /) - kbo(:,53,14) = (/ & - &3.1593e+01 ,3.0463e+01 ,3.0008e+01 ,3.0297e+01 ,3.1448e+01 /) - kbo(:,54,14) = (/ & - &3.1880e+01 ,3.0666e+01 ,3.0079e+01 ,3.0245e+01 ,3.1244e+01 /) - kbo(:,55,14) = (/ & - &3.2179e+01 ,3.1215e+01 ,3.0197e+01 ,3.0244e+01 ,3.0630e+01 /) - kbo(:,56,14) = (/ & - &3.2496e+01 ,3.1618e+01 ,3.0405e+01 ,3.0157e+01 ,3.0368e+01 /) - kbo(:,57,14) = (/ & - &3.2846e+01 ,3.1885e+01 ,3.0675e+01 ,3.0336e+01 ,3.0326e+01 /) - kbo(:,58,14) = (/ & - &3.3194e+01 ,3.2160e+01 ,3.1205e+01 ,3.0229e+01 ,3.0346e+01 /) - kbo(:,59,14) = (/ & - &3.3342e+01 ,3.2279e+01 ,3.1453e+01 ,3.0328e+01 ,3.0152e+01 /) - kbo(:,13,15) = (/ & - &4.0030e+00 ,4.7414e+00 ,5.8560e+00 ,6.7438e+00 ,3.2808e+00 /) - kbo(:,14,15) = (/ & - &9.0899e+00 ,9.4664e+00 ,9.7823e+00 ,1.0059e+01 ,8.9794e+00 /) - kbo(:,15,15) = (/ & - &1.0857e+01 ,1.1261e+01 ,1.1617e+01 ,1.1923e+01 ,1.1563e+01 /) - kbo(:,16,15) = (/ & - &1.2889e+01 ,1.3334e+01 ,1.3725e+01 ,1.4064e+01 ,1.4341e+01 /) - kbo(:,17,15) = (/ & - &1.5204e+01 ,1.5687e+01 ,1.6115e+01 ,1.6474e+01 ,1.6771e+01 /) - kbo(:,18,15) = (/ & - &1.7808e+01 ,1.8322e+01 ,1.8770e+01 ,1.9149e+01 ,1.9438e+01 /) - kbo(:,19,15) = (/ & - &2.0675e+01 ,2.1216e+01 ,2.1671e+01 ,2.2040e+01 ,2.2294e+01 /) - kbo(:,20,15) = (/ & - &2.3784e+01 ,2.4335e+01 ,2.4780e+01 ,2.5092e+01 ,2.5318e+01 /) - kbo(:,21,15) = (/ & - &2.7074e+01 ,2.7616e+01 ,2.7992e+01 ,2.8260e+01 ,2.8435e+01 /) - kbo(:,22,15) = (/ & - &3.0512e+01 ,3.0967e+01 ,3.1281e+01 ,3.1482e+01 ,3.1588e+01 /) - kbo(:,23,15) = (/ & - &3.3946e+01 ,3.4307e+01 ,3.4554e+01 ,3.4683e+01 ,3.4702e+01 /) - kbo(:,24,15) = (/ & - &3.7353e+01 ,3.7642e+01 ,3.7797e+01 ,3.7830e+01 ,3.7737e+01 /) - kbo(:,25,15) = (/ & - &4.0725e+01 ,4.0910e+01 ,4.0948e+01 ,4.0847e+01 ,4.0612e+01 /) - kbo(:,26,15) = (/ & - &4.3991e+01 ,4.4018e+01 ,4.3898e+01 ,4.3642e+01 ,4.3255e+01 /) - kbo(:,27,15) = (/ & - &4.7033e+01 ,4.6887e+01 ,4.6594e+01 ,4.6165e+01 ,4.5614e+01 /) - kbo(:,28,15) = (/ & - &4.9783e+01 ,4.9454e+01 ,4.8983e+01 ,4.8387e+01 ,4.7672e+01 /) - kbo(:,29,15) = (/ & - &5.2209e+01 ,5.1689e+01 ,5.1048e+01 ,5.0282e+01 ,4.9143e+01 /) - kbo(:,30,15) = (/ & - &5.4285e+01 ,5.3590e+01 ,5.2778e+01 ,5.1862e+01 ,4.9504e+01 /) - kbo(:,31,15) = (/ & - &5.6017e+01 ,5.5158e+01 ,5.4192e+01 ,5.2520e+01 ,4.8958e+01 /) - kbo(:,32,15) = (/ & - &5.7422e+01 ,5.6414e+01 ,5.5126e+01 ,5.1643e+01 ,4.7729e+01 /) - kbo(:,33,15) = (/ & - &5.8538e+01 ,5.7396e+01 ,5.4438e+01 ,4.9797e+01 ,4.8468e+01 /) - kbo(:,34,15) = (/ & - &5.9425e+01 ,5.7428e+01 ,5.3101e+01 ,5.0744e+01 ,5.0414e+01 /) - kbo(:,35,15) = (/ & - &6.0220e+01 ,5.6550e+01 ,5.2246e+01 ,5.2031e+01 ,5.2160e+01 /) - kbo(:,36,15) = (/ & - &6.0380e+01 ,5.6323e+01 ,5.3290e+01 ,5.3091e+01 ,5.1837e+01 /) - kbo(:,37,15) = (/ & - &6.1064e+01 ,5.6288e+01 ,5.3962e+01 ,5.4330e+01 ,5.1190e+01 /) - kbo(:,38,15) = (/ & - &6.1244e+01 ,5.6422e+01 ,5.4974e+01 ,5.5783e+01 ,5.0823e+01 /) - kbo(:,39,15) = (/ & - &6.1491e+01 ,5.6521e+01 ,5.6495e+01 ,5.7139e+01 ,5.0363e+01 /) - kbo(:,40,15) = (/ & - &6.2285e+01 ,5.7310e+01 ,5.7143e+01 ,5.8068e+01 ,5.1166e+01 /) - kbo(:,41,15) = (/ & - &6.3214e+01 ,5.7786e+01 ,5.7889e+01 ,5.8807e+01 ,5.2057e+01 /) - kbo(:,42,15) = (/ & - &6.3921e+01 ,5.8540e+01 ,5.8564e+01 ,5.9508e+01 ,5.2732e+01 /) - kbo(:,43,15) = (/ & - &6.4936e+01 ,5.9750e+01 ,5.9252e+01 ,6.0188e+01 ,5.3641e+01 /) - kbo(:,44,15) = (/ & - &6.6180e+01 ,6.0810e+01 ,5.9653e+01 ,6.1132e+01 ,5.4737e+01 /) - kbo(:,45,15) = (/ & - &6.6949e+01 ,6.1798e+01 ,5.9966e+01 ,6.1660e+01 ,5.5582e+01 /) - kbo(:,46,15) = (/ & - &6.7824e+01 ,6.2979e+01 ,6.0686e+01 ,6.2546e+01 ,5.6565e+01 /) - kbo(:,47,15) = (/ & - &6.9039e+01 ,6.4342e+01 ,6.1803e+01 ,6.2906e+01 ,5.8086e+01 /) - kbo(:,48,15) = (/ & - &6.9761e+01 ,6.5409e+01 ,6.2421e+01 ,6.3565e+01 ,5.8945e+01 /) - kbo(:,49,15) = (/ & - &7.0431e+01 ,6.6423e+01 ,6.3050e+01 ,6.4501e+01 ,5.9296e+01 /) - kbo(:,50,15) = (/ & - &7.1030e+01 ,6.7738e+01 ,6.3115e+01 ,6.5100e+01 ,6.0669e+01 /) - kbo(:,51,15) = (/ & - &7.1594e+01 ,6.8849e+01 ,6.3996e+01 ,6.5429e+01 ,6.2495e+01 /) - kbo(:,52,15) = (/ & - &7.2143e+01 ,7.0005e+01 ,6.4776e+01 ,6.5575e+01 ,6.3548e+01 /) - kbo(:,53,15) = (/ & - &7.2670e+01 ,7.0732e+01 ,6.5046e+01 ,6.6263e+01 ,6.4505e+01 /) - kbo(:,54,15) = (/ & - &7.3127e+01 ,7.1823e+01 ,6.6914e+01 ,6.6275e+01 ,6.7029e+01 /) - kbo(:,55,15) = (/ & - &7.3553e+01 ,7.2289e+01 ,6.8950e+01 ,6.5529e+01 ,6.7722e+01 /) - kbo(:,56,15) = (/ & - &7.3983e+01 ,7.2738e+01 ,7.0656e+01 ,6.5646e+01 ,6.6961e+01 /) - kbo(:,57,15) = (/ & - &7.4388e+01 ,7.3166e+01 ,7.1848e+01 ,6.6976e+01 ,6.6137e+01 /) - kbo(:,58,15) = (/ & - &7.4771e+01 ,7.3567e+01 ,7.2279e+01 ,6.9020e+01 ,6.5380e+01 /) - kbo(:,59,15) = (/ & - &7.4949e+01 ,7.3730e+01 ,7.2460e+01 ,7.0691e+01 ,6.5332e+01 /) - kbo(:,13,16) = (/ & - &5.0420e+00 ,8.6337e+00 ,8.8692e+00 ,1.2195e+00 ,9.3776e-01 /) - kbo(:,14,16) = (/ & - &1.0108e+01 ,1.0449e+01 ,1.0740e+01 ,1.1004e+01 ,9.1915e-01 /) - kbo(:,15,16) = (/ & - &1.2227e+01 ,1.2648e+01 ,1.3007e+01 ,1.3327e+01 ,1.3667e+01 /) - kbo(:,16,16) = (/ & - &1.4789e+01 ,1.5299e+01 ,1.5728e+01 ,1.6109e+01 ,1.6498e+01 /) - kbo(:,17,16) = (/ & - &1.7862e+01 ,1.8466e+01 ,1.8964e+01 ,1.9401e+01 ,1.9824e+01 /) - kbo(:,18,16) = (/ & - &2.1506e+01 ,2.2192e+01 ,2.2762e+01 ,2.3238e+01 ,2.3665e+01 /) - kbo(:,19,16) = (/ & - &2.5786e+01 ,2.6523e+01 ,2.7142e+01 ,2.7627e+01 ,2.8030e+01 /) - kbo(:,20,16) = (/ & - &3.0723e+01 ,3.1489e+01 ,3.2109e+01 ,3.2556e+01 ,3.2877e+01 /) - kbo(:,21,16) = (/ & - &3.6293e+01 ,3.7031e+01 ,3.7583e+01 ,3.7941e+01 ,3.8130e+01 /) - kbo(:,22,16) = (/ & - &4.2493e+01 ,4.3104e+01 ,4.3485e+01 ,4.3668e+01 ,4.3655e+01 /) - kbo(:,23,16) = (/ & - &4.9099e+01 ,4.9493e+01 ,4.9618e+01 ,4.9538e+01 ,4.9251e+01 /) - kbo(:,24,16) = (/ & - &5.5931e+01 ,5.5983e+01 ,5.5792e+01 ,5.5378e+01 ,5.4757e+01 /) - kbo(:,25,16) = (/ & - &6.2744e+01 ,6.2387e+01 ,6.1774e+01 ,6.0982e+01 ,5.9987e+01 /) - kbo(:,26,16) = (/ & - &6.9294e+01 ,6.8455e+01 ,6.7400e+01 ,6.6158e+01 ,6.4771e+01 /) - kbo(:,27,16) = (/ & - &7.5369e+01 ,7.4018e+01 ,7.2501e+01 ,7.0820e+01 ,6.9030e+01 /) - kbo(:,28,16) = (/ & - &8.0847e+01 ,7.8971e+01 ,7.6973e+01 ,7.4879e+01 ,7.2699e+01 /) - kbo(:,29,16) = (/ & - &8.5588e+01 ,8.3223e+01 ,8.0777e+01 ,7.8292e+01 ,7.5762e+01 /) - kbo(:,30,16) = (/ & - &8.9575e+01 ,8.6758e+01 ,8.3320e+01 ,8.1073e+01 ,7.8238e+01 /) - kbo(:,31,16) = (/ & - &9.2801e+01 ,8.9596e+01 ,8.6404e+01 ,8.3251e+01 ,8.0171e+01 /) - kbo(:,32,16) = (/ & - &9.5328e+01 ,9.1774e+01 ,8.8298e+01 ,8.4902e+01 ,7.6985e+01 /) - kbo(:,33,16) = (/ & - &9.7221e+01 ,9.3383e+01 ,8.9667e+01 ,8.6065e+01 ,5.8850e+01 /) - kbo(:,34,16) = (/ & - &9.8688e+01 ,9.4629e+01 ,9.0722e+01 ,7.0430e+01 ,3.0605e+01 /) - kbo(:,35,16) = (/ & - &1.0011e+02 ,9.5862e+01 ,8.7207e+01 ,5.0589e+01 ,4.4567e+00 /) - kbo(:,36,16) = (/ & - &1.0168e+02 ,9.7257e+01 ,7.6588e+01 ,3.3945e+01 ,3.3821e-01 /) - kbo(:,37,16) = (/ & - &1.0369e+02 ,9.9078e+01 ,7.2492e+01 ,2.6526e+01 ,3.3765e-01 /) - kbo(:,38,16) = (/ & - &1.0555e+02 ,1.0077e+02 ,6.5594e+01 ,1.3779e+01 ,3.3740e-01 /) - kbo(:,39,16) = (/ & - &1.0726e+02 ,9.7866e+01 ,5.5055e+01 ,3.4196e-01 ,3.3714e-01 /) - kbo(:,40,16) = (/ & - &1.0936e+02 ,1.0037e+02 ,5.6740e+01 ,3.4227e-01 ,3.3798e-01 /) - kbo(:,41,16) = (/ & - &1.1147e+02 ,1.0552e+02 ,5.9119e+01 ,1.0312e+00 ,3.3873e-01 /) - kbo(:,42,16) = (/ & - &1.1349e+02 ,1.0806e+02 ,6.1522e+01 ,2.4025e+00 ,3.3958e-01 /) - kbo(:,43,16) = (/ & - &1.1581e+02 ,1.1021e+02 ,6.4818e+01 ,5.9686e+00 ,3.4048e-01 /) - kbo(:,44,16) = (/ & - &1.1830e+02 ,1.1248e+02 ,7.1730e+01 ,8.2150e+00 ,3.4135e-01 /) - kbo(:,45,16) = (/ & - &1.2075e+02 ,1.1473e+02 ,7.7444e+01 ,1.2041e+01 ,3.1303e-01 /) - kbo(:,46,16) = (/ & - &1.2335e+02 ,1.1716e+02 ,8.1949e+01 ,1.5245e+01 ,3.1351e-01 /) - kbo(:,47,16) = (/ & - &1.2629e+02 ,1.1987e+02 ,8.8206e+01 ,2.5272e+01 ,3.1369e-01 /) - kbo(:,48,16) = (/ & - &1.2931e+02 ,1.2262e+02 ,9.4686e+01 ,2.9706e+01 ,3.1394e-01 /) - kbo(:,49,16) = (/ & - &1.3237e+02 ,1.2544e+02 ,9.8342e+01 ,3.1959e+01 ,3.1361e-01 /) - kbo(:,50,16) = (/ & - &1.3530e+02 ,1.2816e+02 ,1.0881e+02 ,3.8226e+01 ,3.1326e-01 /) - kbo(:,51,16) = (/ & - &1.3828e+02 ,1.3089e+02 ,1.1491e+02 ,4.8666e+01 ,3.1193e-01 /) - kbo(:,52,16) = (/ & - &1.4134e+02 ,1.3361e+02 ,1.2195e+02 ,5.9393e+01 ,3.1051e-01 /) - kbo(:,53,16) = (/ & - &1.4442e+02 ,1.3646e+02 ,1.2918e+02 ,6.3097e+01 ,3.0922e-01 /) - kbo(:,54,16) = (/ & - &1.4741e+02 ,1.3916e+02 ,1.3165e+02 ,7.8318e+01 ,3.0699e-01 /) - kbo(:,55,16) = (/ & - &1.5037e+02 ,1.4182e+02 ,1.3403e+02 ,1.0259e+02 ,2.6611e+01 /) - kbo(:,56,16) = (/ & - &1.5341e+02 ,1.4449e+02 ,1.3650e+02 ,1.2291e+02 ,5.4887e+01 /) - kbo(:,57,16) = (/ & - &1.5661e+02 ,1.4731e+02 ,1.3904e+02 ,1.3152e+02 ,7.9860e+01 /) - kbo(:,58,16) = (/ & - &1.5976e+02 ,1.5007e+02 ,1.4153e+02 ,1.3378e+02 ,1.0477e+02 /) - kbo(:,59,16) = (/ & - &1.6110e+02 ,1.5124e+02 ,1.4255e+02 ,1.3470e+02 ,1.2755e+02 /) - -! The array KAO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level below 100~ mb. The first index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The second index -! runs over the g-channel (1 to 16). - - kao_mco2(:, 1) = (/ & - & 8.88964e-07 , 1.13087e-06 , 1.43861e-06 , 1.83010e-06 , 2.32811e-06 , & - & 2.96165e-06 , 3.76760e-06 , 4.79286e-06 , 6.09712e-06 , 7.75630e-06 , & - & 9.86699e-06 , 1.25521e-05 , 1.59678e-05 , 2.03130e-05 , 2.58407e-05 , & - & 3.28727e-05 , 4.18182e-05 , 5.31980e-05 , 6.76745e-05 /) - kao_mco2(:, 2) = (/ & - & 1.10492e-05 , 1.35003e-05 , 1.64952e-05 , 2.01545e-05 , 2.46256e-05 , & - & 3.00885e-05 , 3.67632e-05 , 4.49188e-05 , 5.48835e-05 , 6.70588e-05 , & - & 8.19351e-05 , 1.00111e-04 , 1.22320e-04 , 1.49455e-04 , 1.82610e-04 , & - & 2.23121e-04 , 2.72618e-04 , 3.33095e-04 , 4.06988e-04 /) - kao_mco2(:, 3) = (/ & - & 1.51034e-05 , 1.81249e-05 , 2.17508e-05 , 2.61020e-05 , 3.13238e-05 , & - & 3.75901e-05 , 4.51101e-05 , 5.41344e-05 , 6.49640e-05 , 7.79601e-05 , & - & 9.35562e-05 , 1.12272e-04 , 1.34732e-04 , 1.61686e-04 , 1.94031e-04 , & - & 2.32847e-04 , 2.79429e-04 , 3.35329e-04 , 4.02411e-04 /) - kao_mco2(:, 4) = (/ & - & 1.57088e-05 , 1.89537e-05 , 2.28688e-05 , 2.75928e-05 , 3.32924e-05 , & - & 4.01695e-05 , 4.84671e-05 , 5.84787e-05 , 7.05584e-05 , 8.51332e-05 , & - & 1.02719e-04 , 1.23937e-04 , 1.49538e-04 , 1.80427e-04 , 2.17697e-04 , & - & 2.62666e-04 , 3.16923e-04 , 3.82388e-04 , 4.61376e-04 /) - kao_mco2(:, 5) = (/ & - & 3.09299e-05 , 3.73196e-05 , 4.50294e-05 , 5.43320e-05 , 6.55563e-05 , & - & 7.90995e-05 , 9.54405e-05 , 1.15157e-04 , 1.38948e-04 , 1.67652e-04 , & - & 2.02288e-04 , 2.44078e-04 , 2.94501e-04 , 3.55342e-04 , 4.28751e-04 , & - & 5.17327e-04 , 6.24200e-04 , 7.53153e-04 , 9.08745e-04 /) - kao_mco2(:, 6) = (/ & - & 1.98653e-05 , 2.38878e-05 , 2.87248e-05 , 3.45413e-05 , 4.15355e-05 , & - & 4.99459e-05 , 6.00593e-05 , 7.22206e-05 , 8.68445e-05 , 1.04429e-04 , & - & 1.25575e-04 , 1.51003e-04 , 1.81579e-04 , 2.18346e-04 , 2.62559e-04 , & - & 3.15724e-04 , 3.79654e-04 , 4.56529e-04 , 5.48971e-04 /) - kao_mco2(:, 7) = (/ & - & 1.54276e-06 , 1.90144e-06 , 2.34351e-06 , 2.88836e-06 , 3.55989e-06 , & - & 4.38754e-06 , 5.40761e-06 , 6.66485e-06 , 8.21439e-06 , 1.01242e-05 , & - & 1.24780e-05 , 1.53790e-05 , 1.89546e-05 , 2.33614e-05 , 2.87928e-05 , & - & 3.54869e-05 , 4.37374e-05 , 5.39060e-05 , 6.64388e-05 /) - kao_mco2(:, 8) = (/ & - & 1.66907e-06 , 2.11106e-06 , 2.67008e-06 , 3.37714e-06 , 4.27143e-06 , & - & 5.40254e-06 , 6.83318e-06 , 8.64266e-06 , 1.09313e-05 , 1.38260e-05 , & - & 1.74872e-05 , 2.21180e-05 , 2.79750e-05 , 3.53830e-05 , 4.47527e-05 , & - & 5.66036e-05 , 7.15927e-05 , 9.05509e-05 , 1.14529e-04 /) - kao_mco2(:, 9) = (/ & - & 1.22817e-06 , 1.56416e-06 , 1.99206e-06 , 2.53703e-06 , 3.23108e-06 , & - & 4.11501e-06 , 5.24074e-06 , 6.67445e-06 , 8.50037e-06 , 1.08258e-05 , & - & 1.37874e-05 , 1.75592e-05 , 2.23629e-05 , 2.84807e-05 , 3.62721e-05 , & - & 4.61950e-05 , 5.88325e-05 , 7.49272e-05 , 9.54249e-05 /) - kao_mco2(:,10) = (/ & - & 3.45943e-08 , 3.84726e-08 , 4.27856e-08 , 4.75821e-08 , 5.29164e-08 , & - & 5.88487e-08 , 6.54460e-08 , 7.27829e-08 , 8.09423e-08 , 9.00164e-08 , & - & 1.00108e-07 , 1.11331e-07 , 1.23811e-07 , 1.37691e-07 , 1.53128e-07 , & - & 1.70294e-07 , 1.89385e-07 , 2.10616e-07 , 2.34228e-07 /) - kao_mco2(:,11) = (/ & - & 2.89971e-08 , 3.35110e-08 , 3.87275e-08 , 4.47561e-08 , 5.17230e-08 , & - & 5.97745e-08 , 6.90794e-08 , 7.98327e-08 , 9.22599e-08 , 1.06622e-07 , & - & 1.23219e-07 , 1.42400e-07 , 1.64567e-07 , 1.90184e-07 , 2.19789e-07 , & - & 2.54003e-07 , 2.93542e-07 , 3.39237e-07 , 3.92044e-07 /) - kao_mco2(:,12) = (/ & - & 2.51330e-08 , 2.96783e-08 , 3.50457e-08 , 4.13837e-08 , 4.88679e-08 , & - & 5.77056e-08 , 6.81416e-08 , 8.04650e-08 , 9.50171e-08 , 1.12201e-07 , & - & 1.32492e-07 , 1.56454e-07 , 1.84748e-07 , 2.18160e-07 , 2.57614e-07 , & - & 3.04203e-07 , 3.59218e-07 , 4.24182e-07 , 5.00895e-07 /) - kao_mco2(:,13) = (/ & - & 1.16966e-07 , 1.13960e-07 , 1.11032e-07 , 1.08179e-07 , 1.05400e-07 , & - & 1.02691e-07 , 1.00053e-07 , 9.74820e-08 , 9.49772e-08 , 9.25368e-08 , & - & 9.01591e-08 , 8.78425e-08 , 8.55854e-08 , 8.33863e-08 , 8.12437e-08 , & - & 7.91562e-08 , 7.71223e-08 , 7.51407e-08 , 7.32100e-08 /) - kao_mco2(:,14) = (/ & - & 9.17853e-08 , 8.94322e-08 , 8.71395e-08 , 8.49055e-08 , 8.27289e-08 , & - & 8.06080e-08 , 7.85415e-08 , 7.65279e-08 , 7.45660e-08 , 7.26544e-08 , & - & 7.07918e-08 , 6.89770e-08 , 6.72086e-08 , 6.54856e-08 , 6.38068e-08 , & - & 6.21710e-08 , 6.05772e-08 , 5.90242e-08 , 5.75110e-08 /) - kao_mco2(:,15) = (/ & - & 8.34607e-08 , 8.13236e-08 , 7.92413e-08 , 7.72122e-08 , 7.52351e-08 , & - & 7.33087e-08 , 7.14315e-08 , 6.96025e-08 , 6.78202e-08 , 6.60837e-08 , & - & 6.43915e-08 , 6.27427e-08 , 6.11361e-08 , 5.95707e-08 , 5.80453e-08 , & - & 5.65590e-08 , 5.51108e-08 , 5.36996e-08 , 5.23246e-08 /) - kao_mco2(:,16) = (/ & - & 8.34607e-08 , 8.13236e-08 , 7.92413e-08 , 7.72122e-08 , 7.52351e-08 , & - & 7.33087e-08 , 7.14315e-08 , 6.96025e-08 , 6.78202e-08 , 6.60837e-08 , & - & 6.43915e-08 , 6.27427e-08 , 6.11361e-08 , 5.95707e-08 , 5.80453e-08 , & - & 5.65590e-08 , 5.51108e-08 , 5.36996e-08 , 5.23246e-08 /) - kao_mo3(:, 1) = (/ & - & 1.18276e-01 , 1.18009e-01 , 1.17742e-01 , 1.17476e-01 , 1.17210e-01 , & - & 1.16945e-01 , 1.16681e-01 , 1.16417e-01 , 1.16153e-01 , 1.15891e-01 , & - & 1.15629e-01 , 1.15367e-01 , 1.15106e-01 , 1.14846e-01 , 1.14586e-01 , & - & 1.14327e-01 , 1.14069e-01 , 1.13811e-01 , 1.13553e-01 /) - kao_mo3(:, 2) = (/ & - & 1.83777e-01 , 1.84268e-01 , 1.84761e-01 , 1.85255e-01 , 1.85751e-01 , & - & 1.86248e-01 , 1.86746e-01 , 1.87245e-01 , 1.87746e-01 , 1.88248e-01 , & - & 1.88752e-01 , 1.89257e-01 , 1.89763e-01 , 1.90270e-01 , 1.90779e-01 , & - & 1.91290e-01 , 1.91801e-01 , 1.92314e-01 , 1.92829e-01 /) - kao_mo3(:, 3) = (/ & - & 2.33414e-01 , 2.34511e-01 , 2.35614e-01 , 2.36722e-01 , 2.37836e-01 , & - & 2.38954e-01 , 2.40078e-01 , 2.41207e-01 , 2.42342e-01 , 2.43481e-01 , & - & 2.44626e-01 , 2.45777e-01 , 2.46933e-01 , 2.48094e-01 , 2.49261e-01 , & - & 2.50433e-01 , 2.51611e-01 , 2.52794e-01 , 2.53983e-01 /) - kao_mo3(:, 4) = (/ & - & 2.84906e-01 , 2.87358e-01 , 2.89832e-01 , 2.92328e-01 , 2.94844e-01 , & - & 2.97383e-01 , 2.99943e-01 , 3.02525e-01 , 3.05130e-01 , 3.07757e-01 , & - & 3.10406e-01 , 3.13078e-01 , 3.15774e-01 , 3.18492e-01 , 3.21234e-01 , & - & 3.24000e-01 , 3.26789e-01 , 3.29603e-01 , 3.32440e-01 /) - kao_mo3(:, 5) = (/ & - & 3.40508e-01 , 3.44095e-01 , 3.47720e-01 , 3.51383e-01 , 3.55084e-01 , & - & 3.58824e-01 , 3.62604e-01 , 3.66424e-01 , 3.70284e-01 , 3.74184e-01 , & - & 3.78126e-01 , 3.82109e-01 , 3.86134e-01 , 3.90202e-01 , 3.94312e-01 , & - & 3.98466e-01 , 4.02663e-01 , 4.06905e-01 , 4.11191e-01 /) - kao_mo3(:, 6) = (/ & - & 3.78368e-01 , 3.83690e-01 , 3.89086e-01 , 3.94558e-01 , 4.00107e-01 , & - & 4.05735e-01 , 4.11441e-01 , 4.17227e-01 , 4.23095e-01 , 4.29046e-01 , & - & 4.35080e-01 , 4.41199e-01 , 4.47404e-01 , 4.53697e-01 , 4.60078e-01 , & - & 4.66548e-01 , 4.73110e-01 , 4.79764e-01 , 4.86511e-01 /) - kao_mo3(:, 7) = (/ & - & 4.51965e-01 , 4.58461e-01 , 4.65051e-01 , 4.71735e-01 , 4.78516e-01 , & - & 4.85394e-01 , 4.92371e-01 , 4.99448e-01 , 5.06627e-01 , 5.13909e-01 , & - & 5.21296e-01 , 5.28789e-01 , 5.36390e-01 , 5.44100e-01 , 5.51920e-01 , & - & 5.59854e-01 , 5.67901e-01 , 5.76064e-01 , 5.84344e-01 /) - kao_mo3(:, 8) = (/ & - & 3.00557e-01 , 3.03974e-01 , 3.07430e-01 , 3.10925e-01 , 3.14460e-01 , & - & 3.18035e-01 , 3.21651e-01 , 3.25307e-01 , 3.29006e-01 , 3.32746e-01 , & - & 3.36529e-01 , 3.40355e-01 , 3.44224e-01 , 3.48137e-01 , 3.52095e-01 , & - & 3.56098e-01 , 3.60146e-01 , 3.64241e-01 , 3.68381e-01 /) - kao_mo3(:, 9) = (/ & - & 2.10042e-01 , 2.12905e-01 , 2.15806e-01 , 2.18748e-01 , 2.21729e-01 , & - & 2.24751e-01 , 2.27814e-01 , 2.30919e-01 , 2.34066e-01 , 2.37256e-01 , & - & 2.40489e-01 , 2.43767e-01 , 2.47089e-01 , 2.50457e-01 , 2.53870e-01 , & - & 2.57330e-01 , 2.60837e-01 , 2.64392e-01 , 2.67996e-01 /) - kao_mo3(:,10) = (/ & - & 2.09288e-01 , 2.11759e-01 , 2.14259e-01 , 2.16789e-01 , 2.19349e-01 , & - & 2.21939e-01 , 2.24559e-01 , 2.27210e-01 , 2.29893e-01 , 2.32607e-01 , & - & 2.35354e-01 , 2.38133e-01 , 2.40944e-01 , 2.43789e-01 , 2.46667e-01 , & - & 2.49580e-01 , 2.52527e-01 , 2.55508e-01 , 2.58525e-01 /) - kao_mo3(:,11) = (/ & - & 2.28947e-01 , 2.30609e-01 , 2.32283e-01 , 2.33969e-01 , 2.35667e-01 , & - & 2.37378e-01 , 2.39101e-01 , 2.40836e-01 , 2.42584e-01 , 2.44345e-01 , & - & 2.46118e-01 , 2.47905e-01 , 2.49704e-01 , 2.51516e-01 , 2.53342e-01 , & - & 2.55181e-01 , 2.57033e-01 , 2.58899e-01 , 2.60778e-01 /) - kao_mo3(:,12) = (/ & - & 2.57263e-01 , 2.58272e-01 , 2.59285e-01 , 2.60302e-01 , 2.61323e-01 , & - & 2.62347e-01 , 2.63376e-01 , 2.64409e-01 , 2.65446e-01 , 2.66487e-01 , & - & 2.67532e-01 , 2.68581e-01 , 2.69635e-01 , 2.70692e-01 , 2.71753e-01 , & - & 2.72819e-01 , 2.73889e-01 , 2.74963e-01 , 2.76042e-01 /) - kao_mo3(:,13) = (/ & - & 2.43322e-01 , 2.45918e-01 , 2.48541e-01 , 2.51192e-01 , 2.53872e-01 , & - & 2.56580e-01 , 2.59317e-01 , 2.62083e-01 , 2.64879e-01 , 2.67704e-01 , & - & 2.70560e-01 , 2.73446e-01 , 2.76363e-01 , 2.79311e-01 , 2.82290e-01 , & - & 2.85302e-01 , 2.88345e-01 , 2.91421e-01 , 2.94529e-01 /) - kao_mo3(:,14) = (/ & - & 2.10568e-01 , 2.16529e-01 , 2.22660e-01 , 2.28964e-01 , 2.35446e-01 , & - & 2.42113e-01 , 2.48967e-01 , 2.56016e-01 , 2.63265e-01 , 2.70719e-01 , & - & 2.78383e-01 , 2.86265e-01 , 2.94370e-01 , 3.02704e-01 , 3.11275e-01 , & - & 3.20088e-01 , 3.29150e-01 , 3.38470e-01 , 3.48052e-01 /) - kao_mo3(:,15) = (/ & - & 2.60406e-02 , 2.78779e-02 , 2.98448e-02 , 3.19505e-02 , 3.42048e-02 , & - & 3.66181e-02 , 3.92017e-02 , 4.19675e-02 , 4.49285e-02 , 4.80985e-02 , & - & 5.14920e-02 , 5.51250e-02 , 5.90143e-02 , 6.31781e-02 , 6.76356e-02 , & - & 7.24076e-02 , 7.75163e-02 , 8.29854e-02 , 8.88404e-02 /) - kao_mo3(:,16) = (/ & - & 2.31483e-02 , 2.46840e-02 , 2.63217e-02 , 2.80681e-02 , 2.99302e-02 , & - & 3.19160e-02 , 3.40335e-02 , 3.62914e-02 , 3.86992e-02 , 4.12668e-02 , & - & 4.40046e-02 , 4.69242e-02 , 5.00374e-02 , 5.33571e-02 , 5.68971e-02 , & - & 6.06720e-02 , 6.46974e-02 , 6.89897e-02 , 7.35669e-02 /) - kao_mn2o(:, 1) = (/ & - & 3.02276e-02 , 3.10321e-02 , 3.18580e-02 , 3.27059e-02 , 3.35764e-02 , & - & 3.44700e-02 , 3.53875e-02 , 3.63293e-02 , 3.72962e-02 , 3.82889e-02 , & - & 3.93079e-02 , 4.03541e-02 , 4.14281e-02 , 4.25307e-02 , 4.36627e-02 , & - & 4.48248e-02 , 4.60178e-02 , 4.72425e-02 , 4.84999e-02 /) - kao_mn2o(:, 2) = (/ & - & 6.10132e-02 , 6.17435e-02 , 6.24825e-02 , 6.32304e-02 , 6.39872e-02 , & - & 6.47531e-02 , 6.55281e-02 , 6.63124e-02 , 6.71061e-02 , 6.79093e-02 , & - & 6.87221e-02 , 6.95446e-02 , 7.03770e-02 , 7.12194e-02 , 7.20718e-02 , & - & 7.29344e-02 , 7.38074e-02 , 7.46908e-02 , 7.55848e-02 /) - kao_mn2o(:, 3) = (/ & - & 1.04479e-01 , 1.05566e-01 , 1.06664e-01 , 1.07774e-01 , 1.08895e-01 , & - & 1.10028e-01 , 1.11173e-01 , 1.12329e-01 , 1.13498e-01 , 1.14679e-01 , & - & 1.15872e-01 , 1.17077e-01 , 1.18295e-01 , 1.19526e-01 , 1.20770e-01 , & - & 1.22026e-01 , 1.23296e-01 , 1.24578e-01 , 1.25875e-01 /) - kao_mn2o(:, 4) = (/ & - & 2.07260e-01 , 2.08126e-01 , 2.08996e-01 , 2.09869e-01 , 2.10746e-01 , & - & 2.11627e-01 , 2.12511e-01 , 2.13399e-01 , 2.14291e-01 , 2.15187e-01 , & - & 2.16086e-01 , 2.16989e-01 , 2.17896e-01 , 2.18807e-01 , 2.19721e-01 , & - & 2.20640e-01 , 2.21562e-01 , 2.22488e-01 , 2.23418e-01 /) - kao_mn2o(:, 5) = (/ & - & 3.71566e-01 , 3.71353e-01 , 3.71141e-01 , 3.70928e-01 , 3.70716e-01 , & - & 3.70504e-01 , 3.70292e-01 , 3.70080e-01 , 3.69869e-01 , 3.69657e-01 , & - & 3.69446e-01 , 3.69234e-01 , 3.69023e-01 , 3.68812e-01 , 3.68601e-01 , & - & 3.68390e-01 , 3.68179e-01 , 3.67969e-01 , 3.67758e-01 /) - kao_mn2o(:, 6) = (/ & - & 5.28092e-01 , 5.27262e-01 , 5.26433e-01 , 5.25605e-01 , 5.24779e-01 , & - & 5.23954e-01 , 5.23130e-01 , 5.22307e-01 , 5.21486e-01 , 5.20666e-01 , & - & 5.19847e-01 , 5.19030e-01 , 5.18214e-01 , 5.17399e-01 , 5.16586e-01 , & - & 5.15773e-01 , 5.14962e-01 , 5.14153e-01 , 5.13344e-01 /) - kao_mn2o(:, 7) = (/ & - & 3.88140e-01 , 3.87956e-01 , 3.87773e-01 , 3.87590e-01 , 3.87407e-01 , & - & 3.87224e-01 , 3.87041e-01 , 3.86858e-01 , 3.86675e-01 , 3.86492e-01 , & - & 3.86310e-01 , 3.86127e-01 , 3.85945e-01 , 3.85763e-01 , 3.85580e-01 , & - & 3.85398e-01 , 3.85216e-01 , 3.85034e-01 , 3.84852e-01 /) - kao_mn2o(:, 8) = (/ & - & 3.12991e-01 , 3.12246e-01 , 3.11504e-01 , 3.10763e-01 , 3.10024e-01 , & - & 3.09287e-01 , 3.08552e-01 , 3.07818e-01 , 3.07086e-01 , 3.06356e-01 , & - & 3.05628e-01 , 3.04901e-01 , 3.04176e-01 , 3.03453e-01 , 3.02732e-01 , & - & 3.02012e-01 , 3.01294e-01 , 3.00577e-01 , 2.99863e-01 /) - kao_mn2o(:, 9) = (/ & - & 4.11761e-01 , 4.11309e-01 , 4.10858e-01 , 4.10407e-01 , 4.09957e-01 , & - & 4.09507e-01 , 4.09057e-01 , 4.08608e-01 , 4.08160e-01 , 4.07712e-01 , & - & 4.07265e-01 , 4.06818e-01 , 4.06371e-01 , 4.05925e-01 , 4.05480e-01 , & - & 4.05035e-01 , 4.04590e-01 , 4.04146e-01 , 4.03703e-01 /) - kao_mn2o(:,10) = (/ & - & 2.84648e-01 , 2.87025e-01 , 2.89421e-01 , 2.91838e-01 , 2.94275e-01 , & - & 2.96732e-01 , 2.99210e-01 , 3.01708e-01 , 3.04227e-01 , 3.06768e-01 , & - & 3.09329e-01 , 3.11912e-01 , 3.14517e-01 , 3.17143e-01 , 3.19791e-01 , & - & 3.22461e-01 , 3.25154e-01 , 3.27869e-01 , 3.30606e-01 /) - kao_mn2o(:,11) = (/ & - & 2.75090e-01 , 2.79370e-01 , 2.83716e-01 , 2.88129e-01 , 2.92611e-01 , & - & 2.97163e-01 , 3.01786e-01 , 3.06480e-01 , 3.11248e-01 , 3.16090e-01 , & - & 3.21007e-01 , 3.26001e-01 , 3.31072e-01 , 3.36222e-01 , 3.41452e-01 , & - & 3.46764e-01 , 3.52158e-01 , 3.57636e-01 , 3.63200e-01 /) - kao_mn2o(:,12) = (/ & - & 1.67753e-01 , 1.71386e-01 , 1.75098e-01 , 1.78890e-01 , 1.82765e-01 , & - & 1.86723e-01 , 1.90767e-01 , 1.94899e-01 , 1.99120e-01 , 2.03433e-01 , & - & 2.07839e-01 , 2.12340e-01 , 2.16939e-01 , 2.21638e-01 , 2.26438e-01 , & - & 2.31342e-01 , 2.36353e-01 , 2.41472e-01 , 2.46701e-01 /) - kao_mn2o(:,13) = (/ & - & 1.40543e-01 , 1.42049e-01 , 1.43571e-01 , 1.45109e-01 , 1.46663e-01 , & - & 1.48234e-01 , 1.49822e-01 , 1.51427e-01 , 1.53049e-01 , 1.54689e-01 , & - & 1.56346e-01 , 1.58021e-01 , 1.59713e-01 , 1.61424e-01 , 1.63153e-01 , & - & 1.64901e-01 , 1.66668e-01 , 1.68453e-01 , 1.70258e-01 /) - kao_mn2o(:,14) = (/ & - & 1.51530e-01 , 1.50944e-01 , 1.50360e-01 , 1.49779e-01 , 1.49199e-01 , & - & 1.48622e-01 , 1.48047e-01 , 1.47474e-01 , 1.46903e-01 , 1.46335e-01 , & - & 1.45769e-01 , 1.45205e-01 , 1.44643e-01 , 1.44083e-01 , 1.43526e-01 , & - & 1.42971e-01 , 1.42418e-01 , 1.41867e-01 , 1.41318e-01 /) - kao_mn2o(:,15) = (/ & - & 2.20492e-01 , 2.16479e-01 , 2.12539e-01 , 2.08671e-01 , 2.04873e-01 , & - & 2.01145e-01 , 1.97484e-01 , 1.93890e-01 , 1.90361e-01 , 1.86897e-01 , & - & 1.83495e-01 , 1.80156e-01 , 1.76877e-01 , 1.73658e-01 , 1.70497e-01 , & - & 1.67394e-01 , 1.64348e-01 , 1.61356e-01 , 1.58420e-01 /) - kao_mn2o(:,16) = (/ & - & 2.19848e-01 , 2.15847e-01 , 2.11919e-01 , 2.08062e-01 , 2.04275e-01 , & - & 2.00558e-01 , 1.96908e-01 , 1.93324e-01 , 1.89806e-01 , 1.86351e-01 , & - & 1.82960e-01 , 1.79630e-01 , 1.76361e-01 , 1.73151e-01 , 1.70000e-01 , & - & 1.66906e-01 , 1.63868e-01 , 1.60886e-01 , 1.57958e-01 /) - -! The array KBO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level above 100~ mb. The first index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The second index -! runs over the g-channel (1 to 16). - - kbo_mco2(:, 1) = (/ & - & 4.74280e-08 , 6.62724e-08 , 9.26042e-08 , 1.29398e-07 , 1.80812e-07 , & - & 2.52653e-07 , 3.53039e-07 , 4.93310e-07 , 6.89316e-07 , 9.63198e-07 , & - & 1.34590e-06 , 1.88067e-06 , 2.62790e-06 , 3.67204e-06 , 5.13104e-06 , & - & 7.16974e-06 , 1.00185e-05 , 1.39991e-05 , 1.95613e-05 /) - kbo_mco2(:, 2) = (/ & - & 1.14872e-07 , 1.63356e-07 , 2.32304e-07 , 3.30352e-07 , 4.69783e-07 , & - & 6.68064e-07 , 9.50033e-07 , 1.35101e-06 , 1.92123e-06 , 2.73213e-06 , & - & 3.88527e-06 , 5.52513e-06 , 7.85711e-06 , 1.11734e-05 , 1.58893e-05 , & - & 2.25957e-05 , 3.21326e-05 , 4.56948e-05 , 6.49811e-05 /) - kbo_mco2(:, 3) = (/ & - & 3.30676e-07 , 4.76313e-07 , 6.86094e-07 , 9.88267e-07 , 1.42353e-06 , & - & 2.05048e-06 , 2.95356e-06 , 4.25439e-06 , 6.12813e-06 , 8.82711e-06 , & - & 1.27148e-05 , 1.83147e-05 , 2.63810e-05 , 3.79998e-05 , 5.47359e-05 , & - & 7.88430e-05 , 1.13568e-04 , 1.63585e-04 , 2.35632e-04 /) - kbo_mco2(:, 4) = (/ & - & 6.58642e-07 , 9.52761e-07 , 1.37822e-06 , 1.99368e-06 , 2.88396e-06 , & - & 4.17181e-06 , 6.03475e-06 , 8.72960e-06 , 1.26279e-05 , 1.82669e-05 , & - & 2.64241e-05 , 3.82239e-05 , 5.52929e-05 , 7.99844e-05 , 1.15702e-04 , & - & 1.67369e-04 , 2.42109e-04 , 3.50223e-04 , 5.06617e-04 /) - kbo_mco2(:, 5) = (/ & - & 1.26418e-06 , 1.82095e-06 , 2.62292e-06 , 3.77810e-06 , 5.44204e-06 , & - & 7.83881e-06 , 1.12911e-05 , 1.62640e-05 , 2.34269e-05 , 3.37445e-05 , & - & 4.86061e-05 , 7.00131e-05 , 1.00848e-04 , 1.45263e-04 , 2.09239e-04 , & - & 3.01392e-04 , 4.34131e-04 , 6.25329e-04 , 9.00733e-04 /) - kbo_mco2(:, 6) = (/ & - & 2.38529e-06 , 3.43110e-06 , 4.93545e-06 , 7.09937e-06 , 1.02120e-05 , & - & 1.46895e-05 , 2.11300e-05 , 3.03943e-05 , 4.37205e-05 , 6.28894e-05 , & - & 9.04630e-05 , 1.30126e-04 , 1.87179e-04 , 2.69247e-04 , 3.87296e-04 , & - & 5.57104e-04 , 8.01364e-04 , 1.15272e-03 , 1.65812e-03 /) - kbo_mco2(:, 7) = (/ & - & 5.41398e-06 , 7.54295e-06 , 1.05091e-05 , 1.46417e-05 , 2.03993e-05 , & - & 2.84211e-05 , 3.95973e-05 , 5.51683e-05 , 7.68626e-05 , 1.07088e-04 , & - & 1.49199e-04 , 2.07869e-04 , 2.89610e-04 , 4.03496e-04 , 5.62165e-04 , & - & 7.83229e-04 , 1.09122e-03 , 1.52033e-03 , 2.11818e-03 /) - kbo_mco2(:, 8) = (/ & - & 1.09995e-05 , 1.54018e-05 , 2.15660e-05 , 3.01973e-05 , 4.22831e-05 , & - & 5.92059e-05 , 8.29017e-05 , 1.16081e-04 , 1.62540e-04 , 2.27592e-04 , & - & 3.18681e-04 , 4.46226e-04 , 6.24817e-04 , 8.74886e-04 , 1.22504e-03 , & - & 1.71533e-03 , 2.40185e-03 , 3.36313e-03 , 4.70915e-03 /) - kbo_mco2(:, 9) = (/ & - & 3.29051e-05 , 4.59996e-05 , 6.43050e-05 , 8.98950e-05 , 1.25668e-04 , & - & 1.75678e-04 , 2.45588e-04 , 3.43319e-04 , 4.79942e-04 , 6.70933e-04 , & - & 9.37930e-04 , 1.31118e-03 , 1.83295e-03 , 2.56237e-03 , 3.58206e-03 , & - & 5.00753e-03 , 7.00027e-03 , 9.78599e-03 , 1.36803e-02 /) - kbo_mco2(:,10) = (/ & - & 1.95126e-05 , 2.65944e-05 , 3.62463e-05 , 4.94013e-05 , 6.73305e-05 , & - & 9.17669e-05 , 1.25072e-04 , 1.70465e-04 , 2.32332e-04 , 3.16652e-04 , & - & 4.31575e-04 , 5.88208e-04 , 8.01687e-04 , 1.09264e-03 , 1.48920e-03 , & - & 2.02968e-03 , 2.76631e-03 , 3.77029e-03 , 5.13865e-03 /) - kbo_mco2(:,11) = (/ & - & 8.67271e-05 , 1.19228e-04 , 1.63908e-04 , 2.25332e-04 , 3.09774e-04 , & - & 4.25860e-04 , 5.85450e-04 , 8.04845e-04 , 1.10646e-03 , 1.52110e-03 , & - & 2.09112e-03 , 2.87476e-03 , 3.95207e-03 , 5.43309e-03 , 7.46911e-03 , & - & 1.02681e-02 , 1.41161e-02 , 1.94060e-02 , 2.66783e-02 /) - kbo_mco2(:,12) = (/ & - & 3.79194e-07 , 5.51419e-07 , 8.01866e-07 , 1.16606e-06 , 1.69567e-06 , & - & 2.46582e-06 , 3.58577e-06 , 5.21438e-06 , 7.58268e-06 , 1.10266e-05 , & - & 1.60348e-05 , 2.33176e-05 , 3.39081e-05 , 4.93087e-05 , 7.17040e-05 , & - & 1.04271e-04 , 1.51630e-04 , 2.20498e-04 , 3.20644e-04 /) - kbo_mco2(:,13) = (/ & - & 1.72555e-07 , 2.29952e-07 , 3.06441e-07 , 4.08373e-07 , 5.44209e-07 , & - & 7.25229e-07 , 9.66461e-07 , 1.28793e-06 , 1.71634e-06 , 2.28724e-06 , & - & 3.04805e-06 , 4.06192e-06 , 5.41303e-06 , 7.21356e-06 , 9.61299e-06 , & - & 1.28106e-05 , 1.70717e-05 , 2.27503e-05 , 3.03177e-05 /) - kbo_mco2(:,14) = (/ & - & 7.42245e-09 , 7.17780e-09 , 6.94122e-09 , 6.71243e-09 , 6.49118e-09 , & - & 6.27723e-09 , 6.07032e-09 , 5.87024e-09 , 5.67675e-09 , 5.48964e-09 , & - & 5.30870e-09 , 5.13372e-09 , 4.96451e-09 , 4.80087e-09 , 4.64263e-09 , & - & 4.48961e-09 , 4.34163e-09 , 4.19852e-09 , 4.06014e-09 /) - kbo_mco2(:,15) = (/ & - & 7.41847e-09 , 7.17332e-09 , 6.93627e-09 , 6.70705e-09 , 6.48541e-09 , & - & 6.27109e-09 , 6.06386e-09 , 5.86347e-09 , 5.66970e-09 , 5.48234e-09 , & - & 5.30117e-09 , 5.12599e-09 , 4.95659e-09 , 4.79280e-09 , 4.63441e-09 , & - & 4.48126e-09 , 4.33317e-09 , 4.18998e-09 , 4.05152e-09 /) - kbo_mco2(:,16) = (/ & - & 7.42855e-09 , 7.18278e-09 , 6.94513e-09 , 6.71535e-09 , 6.49317e-09 , & - & 6.27834e-09 , 6.07062e-09 , 5.86977e-09 , 5.67557e-09 , 5.48779e-09 , & - & 5.30622e-09 , 5.13066e-09 , 4.96091e-09 , 4.79678e-09 , 4.63808e-09 , & - & 4.48462e-09 , 4.33625e-09 , 4.19278e-09 , 4.05406e-09 /) - kbo_mn2o(:, 1) = (/ & - & 2.49055e-04 , 2.53574e-04 , 2.58175e-04 , 2.62860e-04 , 2.67629e-04 , & - & 2.72485e-04 , 2.77429e-04 , 2.82463e-04 , 2.87588e-04 , 2.92806e-04 , & - & 2.98119e-04 , 3.03528e-04 , 3.09036e-04 , 3.14643e-04 , 3.20352e-04 , & - & 3.26165e-04 , 3.32083e-04 , 3.38109e-04 , 3.44243e-04 /) - kbo_mn2o(:, 2) = (/ & - & 3.79251e-04 , 4.04353e-04 , 4.31117e-04 , 4.59652e-04 , 4.90075e-04 , & - & 5.22513e-04 , 5.57097e-04 , 5.93970e-04 , 6.33284e-04 , 6.75200e-04 , & - & 7.19890e-04 , 7.67539e-04 , 8.18340e-04 , 8.72505e-04 , 9.30255e-04 , & - & 9.91827e-04 , 1.05747e-03 , 1.12747e-03 , 1.20209e-03 /) - kbo_mn2o(:, 3) = (/ & - & 7.61140e-04 , 8.36483e-04 , 9.19284e-04 , 1.01028e-03 , 1.11029e-03 , & - & 1.22019e-03 , 1.34098e-03 , 1.47372e-03 , 1.61959e-03 , 1.77991e-03 , & - & 1.95610e-03 , 2.14973e-03 , 2.36253e-03 , 2.59639e-03 , 2.85340e-03 , & - & 3.13585e-03 , 3.44626e-03 , 3.78740e-03 , 4.16230e-03 /) - kbo_mn2o(:, 4) = (/ & - & 2.01074e-03 , 2.26915e-03 , 2.56077e-03 , 2.88987e-03 , 3.26126e-03 , & - & 3.68038e-03 , 4.15337e-03 , 4.68714e-03 , 5.28951e-03 , 5.96929e-03 , & - & 6.73643e-03 , 7.60217e-03 , 8.57916e-03 , 9.68172e-03 , 1.09260e-02 , & - & 1.23301e-02 , 1.39147e-02 , 1.57030e-02 , 1.77211e-02 /) - kbo_mn2o(:, 5) = (/ & - & 7.43302e-03 , 8.32582e-03 , 9.32585e-03 , 1.04460e-02 , 1.17007e-02 , & - & 1.31061e-02 , 1.46803e-02 , 1.64436e-02 , 1.84186e-02 , 2.06309e-02 , & - & 2.31090e-02 , 2.58846e-02 , 2.89937e-02 , 3.24762e-02 , 3.63769e-02 , & - & 4.07463e-02 , 4.56404e-02 , 5.11223e-02 , 5.72627e-02 /) - kbo_mn2o(:, 6) = (/ & - & 2.71911e-02 , 2.94258e-02 , 3.18441e-02 , 3.44612e-02 , 3.72933e-02 , & - & 4.03582e-02 , 4.36750e-02 , 4.72644e-02 , 5.11487e-02 , 5.53523e-02 , & - & 5.99014e-02 , 6.48243e-02 , 7.01518e-02 , 7.59172e-02 , 8.21563e-02 , & - & 8.89082e-02 , 9.62150e-02 , 1.04122e-01 , 1.12679e-01 /) - kbo_mn2o(:, 7) = (/ & - & 1.63331e-01 , 1.80469e-01 , 1.99406e-01 , 2.20330e-01 , 2.43449e-01 , & - & 2.68995e-01 , 2.97221e-01 , 3.28408e-01 , 3.62869e-01 , 4.00945e-01 , & - & 4.43017e-01 , 4.89503e-01 , 5.40867e-01 , 5.97621e-01 , 6.60330e-01 , & - & 7.29619e-01 , 8.06179e-01 , 8.90772e-01 , 9.84242e-01 /) - kbo_mn2o(:, 8) = (/ & - & 1.32648e+00 , 1.33515e+00 , 1.34387e+00 , 1.35265e+00 , 1.36149e+00 , & - & 1.37038e+00 , 1.37933e+00 , 1.38835e+00 , 1.39742e+00 , 1.40655e+00 , & - & 1.41574e+00 , 1.42499e+00 , 1.43429e+00 , 1.44367e+00 , 1.45310e+00 , & - & 1.46259e+00 , 1.47215e+00 , 1.48176e+00 , 1.49144e+00 /) - kbo_mn2o(:, 9) = (/ & - & 3.12620e+00 , 3.03118e+00 , 2.93905e+00 , 2.84972e+00 , 2.76310e+00 , & - & 2.67911e+00 , 2.59768e+00 , 2.51873e+00 , 2.44217e+00 , 2.36794e+00 , & - & 2.29596e+00 , 2.22618e+00 , 2.15851e+00 , 2.09290e+00 , 2.02929e+00 , & - & 1.96761e+00 , 1.90780e+00 , 1.84982e+00 , 1.79359e+00 /) - kbo_mn2o(:,10) = (/ & - & 1.60677e-02 , 1.82485e-02 , 2.07254e-02 , 2.35384e-02 , 2.67332e-02 , & - & 3.03617e-02 , 3.44827e-02 , 3.91629e-02 , 4.44785e-02 , 5.05154e-02 , & - & 5.73718e-02 , 6.51589e-02 , 7.40027e-02 , 8.40470e-02 , 9.54546e-02 , & - & 1.08411e-01 , 1.23125e-01 , 1.39836e-01 , 1.58816e-01 /) - kbo_mn2o(:,11) = (/ & - & 1.55287e-02 , 1.78265e-02 , 2.04642e-02 , 2.34922e-02 , 2.69683e-02 , & - & 3.09588e-02 , 3.55397e-02 , 4.07984e-02 , 4.68352e-02 , 5.37653e-02 , & - & 6.17208e-02 , 7.08535e-02 , 8.13375e-02 , 9.33728e-02 , 1.07189e-01 , & - & 1.23049e-01 , 1.41257e-01 , 1.62158e-01 , 1.86152e-01 /) - kbo_mn2o(:,12) = (/ & - & 7.13719e-03 , 8.18879e-03 , 9.39535e-03 , 1.07797e-02 , 1.23680e-02 , & - & 1.41903e-02 , 1.62811e-02 , 1.86800e-02 , 2.14324e-02 , 2.45902e-02 , & - & 2.82134e-02 , 3.23704e-02 , 3.71400e-02 , 4.26122e-02 , 4.88908e-02 , & - & 5.60945e-02 , 6.43596e-02 , 7.38424e-02 , 8.47224e-02 /) - kbo_mn2o(:,13) = (/ & - & 9.28813e-03 , 1.06108e-02 , 1.21218e-02 , 1.38480e-02 , 1.58199e-02 , & - & 1.80727e-02 , 2.06463e-02 , 2.35864e-02 , 2.69452e-02 , 3.07822e-02 , & - & 3.51657e-02 , 4.01734e-02 , 4.58941e-02 , 5.24296e-02 , 5.98956e-02 , & - & 6.84249e-02 , 7.81688e-02 , 8.93002e-02 , 1.02017e-01 /) - kbo_mn2o(:,14) = (/ & - & 2.17205e-02 , 2.51661e-02 , 2.91581e-02 , 3.37835e-02 , 3.91425e-02 , & - & 4.53517e-02 , 5.25458e-02 , 6.08811e-02 , 7.05387e-02 , 8.17282e-02 , & - & 9.46927e-02 , 1.09714e-01 , 1.27118e-01 , 1.47282e-01 , 1.70645e-01 , & - & 1.97715e-01 , 2.29078e-01 , 2.65417e-01 , 3.07520e-01 /) - kbo_mn2o(:,15) = (/ & - & 4.89156e-02 , 5.70504e-02 , 6.65379e-02 , 7.76033e-02 , 9.05089e-02 , & - & 1.05561e-01 , 1.23116e-01 , 1.43590e-01 , 1.67469e-01 , 1.95320e-01 , & - & 2.27802e-01 , 2.65686e-01 , 3.09869e-01 , 3.61401e-01 , 4.21503e-01 , & - & 4.91600e-01 , 5.73354e-01 , 6.68703e-01 , 7.79910e-01 /) - kbo_mn2o(:,16) = (/ & - & 1.13156e-02 , 1.46199e-02 , 1.88891e-02 , 2.44050e-02 , 3.15316e-02 , & - & 4.07393e-02 , 5.26358e-02 , 6.80061e-02 , 8.78649e-02 , 1.13523e-01 , & - & 1.46673e-01 , 1.89504e-01 , 2.44841e-01 , 3.16338e-01 , 4.08713e-01 , & - & 5.28064e-01 , 6.82266e-01 , 8.81496e-01 , 1.13891e+00 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &4.8166e-07 ,3.7500e-07 ,4.8978e-07 ,5.9624e-07 ,6.3742e-07 ,7.5551e-07 , & - &7.7706e-07 ,6.8681e-07 ,7.5212e-07 ,8.0956e-07 ,7.8117e-07 ,7.4835e-07 , & - &9.4118e-07 ,1.2585e-06 ,1.4976e-06 ,1.4976e-06 /) - forrefo(2,:) = (/ & - &3.1320e-07 ,4.0764e-07 ,4.7468e-07 ,5.9976e-07 ,7.3324e-07 ,8.1488e-07 , & - &7.6442e-07 ,8.2007e-07 ,7.7721e-07 ,7.6377e-07 ,8.0327e-07 ,7.1881e-07 , & - &8.2148e-07 ,1.0203e-06 ,1.5033e-06 ,1.5032e-06 /) - forrefo(3,:) = (/ & - &4.1831e-07 ,5.5043e-07 ,5.7783e-07 ,6.1294e-07 ,6.3396e-07 ,6.2292e-07 , & - &6.1719e-07 ,6.4183e-07 ,7.6180e-07 ,9.5477e-07 ,9.5901e-07 ,1.0207e-06 , & - &1.0387e-06 ,1.1305e-06 ,1.3602e-06 ,1.5063e-06 /) - forrefo(4,:) = (/ & - &8.5878e-07 ,6.0921e-07 ,5.5773e-07 ,5.3374e-07 ,5.0495e-07 ,4.9844e-07 , & - &5.1536e-07 ,5.2908e-07 ,4.7977e-07 ,5.3177e-07 ,4.9266e-07 ,4.5403e-07 , & - &3.9695e-07 ,3.4792e-07 ,3.4912e-07 ,3.4102e-07 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 3.16029e-02 , 2.74633e-02 , 2.38660e-02 , 2.07399e-02 , 1.80232e-02 , & - & 1.56624e-02 , 1.36108e-02 , 1.18280e-02 , 1.02787e-02 , 8.93231e-03 /) - selfrefo(:, 2) = (/ & - & 3.10422e-02 , 2.71312e-02 , 2.37130e-02 , 2.07254e-02 , 1.81142e-02 , & - & 1.58320e-02 , 1.38374e-02 , 1.20940e-02 , 1.05703e-02 , 9.23854e-03 /) - selfrefo(:, 3) = (/ & - & 3.08657e-02 , 2.69431e-02 , 2.35190e-02 , 2.05301e-02 , 1.79210e-02 , & - & 1.56435e-02 , 1.36554e-02 , 1.19200e-02 , 1.04051e-02 , 9.08279e-03 /) - selfrefo(:, 4) = (/ & - & 3.02668e-02 , 2.64686e-02 , 2.31470e-02 , 2.02422e-02 , 1.77020e-02 , & - & 1.54806e-02 , 1.35379e-02 , 1.18390e-02 , 1.03533e-02 , 9.05406e-03 /) - selfrefo(:, 5) = (/ & - & 2.98317e-02 , 2.61491e-02 , 2.29210e-02 , 2.00914e-02 , 1.76112e-02 , & - & 1.54371e-02 , 1.35314e-02 , 1.18610e-02 , 1.03968e-02 , 9.11332e-03 /) - selfrefo(:, 6) = (/ & - & 2.95545e-02 , 2.59083e-02 , 2.27120e-02 , 1.99100e-02 , 1.74537e-02 , & - & 1.53004e-02 , 1.34128e-02 , 1.17580e-02 , 1.03074e-02 , 9.03576e-03 /) - selfrefo(:, 7) = (/ & - & 2.97352e-02 , 2.60320e-02 , 2.27900e-02 , 1.99517e-02 , 1.74670e-02 , & - & 1.52916e-02 , 1.33872e-02 , 1.17200e-02 , 1.02604e-02 , 8.98258e-03 /) - selfrefo(:, 8) = (/ & - & 2.96543e-02 , 2.59760e-02 , 2.27540e-02 , 1.99316e-02 , 1.74593e-02 , & - & 1.52937e-02 , 1.33967e-02 , 1.17350e-02 , 1.02794e-02 , 9.00437e-03 /) - selfrefo(:, 9) = (/ & - & 2.97998e-02 , 2.60786e-02 , 2.28220e-02 , 1.99721e-02 , 1.74781e-02 , & - & 1.52955e-02 , 1.33855e-02 , 1.17140e-02 , 1.02512e-02 , 8.97110e-03 /) - selfrefo(:,10) = (/ & - & 2.98826e-02 , 2.61096e-02 , 2.28130e-02 , 1.99326e-02 , 1.74159e-02 , & - & 1.52170e-02 , 1.32957e-02 , 1.16170e-02 , 1.01502e-02 , 8.86867e-03 /) - selfrefo(:,11) = (/ & - & 2.94710e-02 , 2.58147e-02 , 2.26120e-02 , 1.98066e-02 , 1.73493e-02 , & - & 1.51969e-02 , 1.33115e-02 , 1.16600e-02 , 1.02134e-02 , 8.94628e-03 /) - selfrefo(:,12) = (/ & - & 2.96297e-02 , 2.59544e-02 , 2.27350e-02 , 1.99149e-02 , 1.74446e-02 , & - & 1.52808e-02 , 1.33853e-02 , 1.17250e-02 , 1.02706e-02 , 8.99663e-03 /) - selfrefo(:,13) = (/ & - & 2.96272e-02 , 2.59013e-02 , 2.26440e-02 , 1.97963e-02 , 1.73067e-02 , & - & 1.51302e-02 , 1.32275e-02 , 1.15640e-02 , 1.01097e-02 , 8.83833e-03 /) - selfrefo(:,14) = (/ & - & 2.89906e-02 , 2.53971e-02 , 2.22490e-02 , 1.94911e-02 , 1.70751e-02 , & - & 1.49585e-02 , 1.31044e-02 , 1.14800e-02 , 1.00570e-02 , 8.81038e-03 /) - selfrefo(:,15) = (/ & - & 2.80884e-02 , 2.46987e-02 , 2.17180e-02 , 1.90970e-02 , 1.67924e-02 , & - & 1.47659e-02 , 1.29839e-02 , 1.14170e-02 , 1.00392e-02 , 8.82765e-03 /) - selfrefo(:,16) = (/ & - & 2.80884e-02 , 2.46987e-02 , 2.17180e-02 , 1.90970e-02 , 1.67924e-02 , & - & 1.47659e-02 , 1.29839e-02 , 1.14170e-02 , 1.00392e-02 , 8.82765e-03 /) - - end subroutine lw_kgb08 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_09.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_09.F90 deleted file mode 100644 index 35829c576..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_09.F90 +++ /dev/null @@ -1,5642 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb09 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg09, only : fracrefao, fracrefbo, kao, kbo, kao_mn2o, & - kbo_mn2o, selfrefo, forrefo - - implicit none - save - -! Planck fractions mapping level : P=212.7250 mb, T = 223.06 K - fracrefao(:, 1) = (/ & - & 1.8129e-01 ,1.6119e-01 ,1.3308e-01 ,1.2342e-01 ,1.1259e-01 ,9.7580e-02 , & - & 7.9176e-02 ,5.8541e-02 ,3.9084e-02 ,4.2419e-03 ,3.4314e-03 ,2.6935e-03 , & - & 1.9404e-03 ,1.2218e-03 ,4.5263e-04 ,6.0909e-05 /) - fracrefao(:, 2) = (/ & - & 1.9665e-01 ,1.5640e-01 ,1.3101e-01 ,1.2153e-01 ,1.1037e-01 ,9.6043e-02 , & - & 7.7856e-02 ,5.7547e-02 ,3.8670e-02 ,4.1955e-03 ,3.4104e-03 ,2.6781e-03 , & - & 1.9245e-03 ,1.2093e-03 ,4.4113e-04 ,6.0913e-05 /) - fracrefao(:, 3) = (/ & - & 2.0273e-01 ,1.5506e-01 ,1.3044e-01 ,1.2043e-01 ,1.0952e-01 ,9.5384e-02 , & - & 7.7157e-02 ,5.7176e-02 ,3.8379e-02 ,4.1584e-03 ,3.3836e-03 ,2.6412e-03 , & - & 1.8865e-03 ,1.1791e-03 ,4.2094e-04 ,4.7410e-05 /) - fracrefao(:, 4) = (/ & - & 2.0272e-01 ,1.5963e-01 ,1.2913e-01 ,1.2060e-01 ,1.0820e-01 ,9.4685e-02 , & - & 7.6544e-02 ,5.6851e-02 ,3.8155e-02 ,4.0913e-03 ,3.3442e-03 ,2.6054e-03 , & - & 1.8875e-03 ,1.1263e-03 ,3.7743e-04 ,4.7410e-05 /) - fracrefao(:, 5) = (/ & - & 2.0280e-01 ,1.6353e-01 ,1.2910e-01 ,1.1968e-01 ,1.0725e-01 ,9.4112e-02 , & - & 7.5828e-02 ,5.6526e-02 ,3.7972e-02 ,4.0205e-03 ,3.3063e-03 ,2.5681e-03 , & - & 1.8386e-03 ,1.0757e-03 ,3.5301e-04 ,4.7410e-05 /) - fracrefao(:, 6) = (/ & - & 2.0294e-01 ,1.6840e-01 ,1.2852e-01 ,1.1813e-01 ,1.0724e-01 ,9.2946e-02 , & - & 7.5029e-02 ,5.6158e-02 ,3.7744e-02 ,3.9632e-03 ,3.2434e-03 ,2.5275e-03 , & - & 1.7558e-03 ,1.0080e-03 ,3.5301e-04 ,4.7410e-05 /) - fracrefao(:, 7) = (/ & - & 2.0313e-01 ,1.7390e-01 ,1.2864e-01 ,1.1689e-01 ,1.0601e-01 ,9.1791e-02 , & - & 7.4224e-02 ,5.5500e-02 ,3.7374e-02 ,3.9214e-03 ,3.1984e-03 ,2.4162e-03 , & - & 1.6394e-03 ,9.7275e-04 ,3.5299e-04 ,4.7410e-05 /) - fracrefao(:, 8) = (/ & - & 2.0332e-01 ,1.7800e-01 ,1.3286e-01 ,1.1555e-01 ,1.0407e-01 ,9.0475e-02 , & - & 7.2452e-02 ,5.4566e-02 ,3.6677e-02 ,3.7889e-03 ,3.0351e-03 ,2.2587e-03 , & - & 1.5764e-03 ,9.7270e-04 ,3.5300e-04 ,4.7410e-05 /) - fracrefao(:, 9) = (/ & - & 1.9624e-01 ,1.6519e-01 ,1.3663e-01 ,1.1535e-01 ,1.0719e-01 ,9.4156e-02 , & - & 7.6745e-02 ,5.6987e-02 ,3.8135e-02 ,4.1626e-03 ,3.4243e-03 ,2.7116e-03 , & - & 1.7095e-03 ,9.7271e-04 ,3.5299e-04 ,4.7410e-05 /) - -! Planck fraction mapping level : p=3.20e-2 mb, t = 197.92 k - fracrefbo(:) = (/ & - & 2.0914e-01 ,1.5077e-01 ,1.2878e-01 ,1.1856e-01 ,1.0695e-01 ,9.3048e-02 , & - & 7.7645e-02 ,6.0785e-02 ,4.0642e-02 ,4.0499e-03 ,3.3931e-03 ,2.6363e-03 , & - & 1.9151e-03 ,1.1963e-03 ,4.3471e-04 ,5.1421e-05 /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kao(:, 1, 1, 1) = (/ & - &2.1746e-06 ,2.0220e-05 ,3.5039e-05 ,4.9564e-05 ,6.4547e-05 ,8.0645e-05 , & - &1.0050e-04 ,1.3591e-04 ,1.1422e-04 /) - kao(:, 2, 1, 1) = (/ & - &2.4567e-06 ,2.4642e-05 ,4.2577e-05 ,6.0179e-05 ,7.8156e-05 ,9.7521e-05 , & - &1.2325e-04 ,1.6438e-04 ,1.3834e-04 /) - kao(:, 3, 1, 1) = (/ & - &2.7778e-06 ,2.9755e-05 ,5.1233e-05 ,7.2538e-05 ,9.4256e-05 ,1.1716e-04 , & - &1.4583e-04 ,1.9818e-04 ,1.6722e-04 /) - kao(:, 4, 1, 1) = (/ & - &3.1364e-06 ,3.5376e-05 ,6.1122e-05 ,8.6709e-05 ,1.1261e-04 ,1.4025e-04 , & - &1.7411e-04 ,2.3326e-04 ,2.0043e-04 /) - kao(:, 5, 1, 1) = (/ & - &3.4866e-06 ,4.1773e-05 ,7.2421e-05 ,1.0284e-04 ,1.3368e-04 ,1.6658e-04 , & - &2.0645e-04 ,2.7379e-04 ,2.3933e-04 /) - kao(:, 1, 2, 1) = (/ & - &2.7658e-06 ,1.8665e-05 ,2.9579e-05 ,4.0556e-05 ,5.1475e-05 ,6.3012e-05 , & - &7.6030e-05 ,9.6554e-05 ,8.6790e-05 /) - kao(:, 2, 2, 1) = (/ & - &3.1474e-06 ,2.2675e-05 ,3.6322e-05 ,4.9569e-05 ,6.2848e-05 ,7.6725e-05 , & - &9.2975e-05 ,1.1920e-04 ,1.0628e-04 /) - kao(:, 3, 2, 1) = (/ & - &3.5619e-06 ,2.7222e-05 ,4.3763e-05 ,5.9895e-05 ,7.6025e-05 ,9.2855e-05 , & - &1.1166e-04 ,1.4410e-04 ,1.2840e-04 /) - kao(:, 4, 2, 1) = (/ & - &4.0332e-06 ,3.2194e-05 ,5.2284e-05 ,7.1664e-05 ,9.1201e-05 ,1.1132e-04 , & - &1.3395e-04 ,1.6948e-04 ,1.5482e-04 /) - kao(:, 5, 2, 1) = (/ & - &4.5426e-06 ,3.7892e-05 ,6.1930e-05 ,8.5200e-05 ,1.0845e-04 ,1.3257e-04 , & - &1.5957e-04 ,2.0150e-04 ,1.8531e-04 /) - kao(:, 1, 3, 1) = (/ & - &4.6515e-06 ,1.9518e-05 ,2.8024e-05 ,3.5437e-05 ,4.2060e-05 ,4.8949e-05 , & - &5.6458e-05 ,6.6193e-05 ,6.4702e-05 /) - kao(:, 2, 3, 1) = (/ & - &5.3085e-06 ,2.3661e-05 ,3.4250e-05 ,4.3649e-05 ,5.1882e-05 ,6.0429e-05 , & - &6.9536e-05 ,8.2456e-05 ,7.9400e-05 /) - kao(:, 3, 3, 1) = (/ & - &6.0401e-06 ,2.8338e-05 ,4.1344e-05 ,5.2675e-05 ,6.2996e-05 ,7.3527e-05 , & - &8.4697e-05 ,9.9499e-05 ,9.6161e-05 /) - kao(:, 4, 3, 1) = (/ & - &6.8636e-06 ,3.3625e-05 ,4.9393e-05 ,6.2729e-05 ,7.5705e-05 ,8.8632e-05 , & - &1.0218e-04 ,1.1965e-04 ,1.1595e-04 /) - kao(:, 5, 3, 1) = (/ & - &7.7592e-06 ,3.9481e-05 ,5.8243e-05 ,7.4429e-05 ,9.0184e-05 ,1.0593e-04 , & - &1.2226e-04 ,1.4329e-04 ,1.3957e-04 /) - kao(:, 1, 4, 1) = (/ & - &7.8254e-06 ,2.2162e-05 ,2.8768e-05 ,3.4092e-05 ,3.8273e-05 ,4.1617e-05 , & - &4.4585e-05 ,4.7843e-05 ,5.0090e-05 /) - kao(:, 2, 4, 1) = (/ & - &9.0107e-06 ,2.6852e-05 ,3.5234e-05 ,4.2063e-05 ,4.7365e-05 ,5.1787e-05 , & - &5.5276e-05 ,5.9864e-05 ,6.1930e-05 /) - kao(:, 3, 4, 1) = (/ & - &1.0349e-05 ,3.2172e-05 ,4.2565e-05 ,5.1061e-05 ,5.7654e-05 ,6.3243e-05 , & - &6.7675e-05 ,7.3397e-05 ,7.5548e-05 /) - kao(:, 4, 4, 1) = (/ & - &1.1906e-05 ,3.8190e-05 ,5.0960e-05 ,6.1161e-05 ,6.9192e-05 ,7.6085e-05 , & - &8.1960e-05 ,8.9085e-05 ,9.1511e-05 /) - kao(:, 5, 4, 1) = (/ & - &1.3610e-05 ,4.4853e-05 ,6.0373e-05 ,7.2336e-05 ,8.2116e-05 ,9.0436e-05 , & - &9.8270e-05 ,1.0717e-04 ,1.0994e-04 /) - kao(:, 1, 5, 1) = (/ & - &1.2215e-05 ,2.6429e-05 ,3.0893e-05 ,3.4176e-05 ,3.6538e-05 ,3.7893e-05 , & - &3.8292e-05 ,3.7482e-05 ,3.9876e-05 /) - kao(:, 2, 5, 1) = (/ & - &1.4086e-05 ,3.1907e-05 ,3.7874e-05 ,4.2237e-05 ,4.5377e-05 ,4.7376e-05 , & - &4.7976e-05 ,4.7239e-05 ,4.9622e-05 /) - kao(:, 3, 5, 1) = (/ & - &1.6264e-05 ,3.8161e-05 ,4.5845e-05 ,5.1471e-05 ,5.5412e-05 ,5.8145e-05 , & - &5.8993e-05 ,5.8204e-05 ,6.0963e-05 /) - kao(:, 4, 5, 1) = (/ & - &1.8858e-05 ,4.5142e-05 ,5.4763e-05 ,6.1781e-05 ,6.6831e-05 ,7.0144e-05 , & - &7.1439e-05 ,7.0642e-05 ,7.3664e-05 /) - kao(:, 5, 5, 1) = (/ & - &2.1682e-05 ,5.2995e-05 ,6.4832e-05 ,7.3555e-05 ,7.9689e-05 ,8.3689e-05 , & - &8.5451e-05 ,8.5137e-05 ,8.8330e-05 /) - kao(:, 1, 6, 1) = (/ & - &1.7737e-05 ,3.1507e-05 ,3.4689e-05 ,3.5923e-05 ,3.6042e-05 ,3.5547e-05 , & - &3.3855e-05 ,3.0889e-05 ,3.3707e-05 /) - kao(:, 2, 6, 1) = (/ & - &2.0662e-05 ,3.8270e-05 ,4.2282e-05 ,4.3931e-05 ,4.4914e-05 ,4.4463e-05 , & - &4.2744e-05 ,3.9347e-05 ,4.1797e-05 /) - kao(:, 3, 6, 1) = (/ & - &2.4128e-05 ,4.5613e-05 ,5.0898e-05 ,5.3590e-05 ,5.4968e-05 ,5.4808e-05 , & - &5.3000e-05 ,4.8943e-05 ,5.1147e-05 /) - kao(:, 4, 6, 1) = (/ & - &2.7999e-05 ,5.3907e-05 ,6.0955e-05 ,6.4423e-05 ,6.6442e-05 ,6.6605e-05 , & - &6.4604e-05 ,5.9878e-05 ,6.1516e-05 /) - kao(:, 5, 6, 1) = (/ & - &3.2152e-05 ,6.3564e-05 ,7.2012e-05 ,7.6692e-05 ,7.9463e-05 ,7.9823e-05 , & - &7.7573e-05 ,7.2281e-05 ,7.4081e-05 /) - kao(:, 1, 7, 1) = (/ & - &2.6880e-05 ,4.1451e-05 ,4.2153e-05 ,4.1795e-05 ,4.0071e-05 ,3.7010e-05 , & - &3.2935e-05 ,2.7157e-05 ,3.0165e-05 /) - kao(:, 2, 7, 1) = (/ & - &3.1867e-05 ,5.0449e-05 ,5.1950e-05 ,5.1350e-05 ,4.9502e-05 ,4.6117e-05 , & - &4.1536e-05 ,3.4782e-05 ,3.7420e-05 /) - kao(:, 3, 7, 1) = (/ & - &3.7274e-05 ,6.0537e-05 ,6.2610e-05 ,6.2280e-05 ,6.0355e-05 ,5.6848e-05 , & - &5.1457e-05 ,4.3658e-05 ,4.5586e-05 /) - kao(:, 4, 7, 1) = (/ & - &4.3315e-05 ,7.1931e-05 ,7.4511e-05 ,7.5005e-05 ,7.2731e-05 ,6.8916e-05 , & - &6.2904e-05 ,5.3755e-05 ,5.5264e-05 /) - kao(:, 5, 7, 1) = (/ & - &4.9907e-05 ,8.4683e-05 ,8.8542e-05 ,8.9292e-05 ,8.6631e-05 ,8.2549e-05 , & - &7.6077e-05 ,6.5242e-05 ,6.5892e-05 /) - kao(:, 1, 8, 1) = (/ & - &4.7627e-05 ,6.4864e-05 ,6.3521e-05 ,5.9018e-05 ,5.3108e-05 ,4.6571e-05 , & - &3.8650e-05 ,2.8473e-05 ,2.9135e-05 /) - kao(:, 2, 8, 1) = (/ & - &5.7767e-05 ,7.9036e-05 ,7.7751e-05 ,7.3012e-05 ,6.6279e-05 ,5.8148e-05 , & - &4.8459e-05 ,3.6303e-05 ,3.6552e-05 /) - kao(:, 3, 8, 1) = (/ & - &6.8331e-05 ,9.5161e-05 ,9.3980e-05 ,8.8741e-05 ,8.0901e-05 ,7.1279e-05 , & - &5.9682e-05 ,4.5314e-05 ,4.4112e-05 /) - kao(:, 4, 8, 1) = (/ & - &7.9894e-05 ,1.1320e-04 ,1.1263e-04 ,1.0646e-04 ,9.7413e-05 ,8.6626e-05 , & - &7.2540e-05 ,5.5667e-05 ,5.2996e-05 /) - kao(:, 5, 8, 1) = (/ & - &9.2972e-05 ,1.3437e-04 ,1.3320e-04 ,1.2651e-04 ,1.1648e-04 ,1.0389e-04 , & - &8.7249e-05 ,6.7590e-05 ,6.3371e-05 /) - kao(:, 1, 9, 1) = (/ & - &1.5799e-04 ,1.8833e-04 ,1.7550e-04 ,1.5612e-04 ,1.3380e-04 ,1.0918e-04 , & - &8.2063e-05 ,5.1241e-05 ,3.5341e-05 /) - kao(:, 2, 9, 1) = (/ & - &1.9443e-04 ,2.2819e-04 ,2.1471e-04 ,1.9244e-04 ,1.6566e-04 ,1.3587e-04 , & - &1.0320e-04 ,6.4536e-05 ,4.5195e-05 /) - kao(:, 3, 9, 1) = (/ & - &2.3622e-04 ,2.7685e-04 ,2.6057e-04 ,2.3445e-04 ,2.0276e-04 ,1.6671e-04 , & - &1.2651e-04 ,7.9797e-05 ,5.6882e-05 /) - kao(:, 4, 9, 1) = (/ & - &2.7828e-04 ,3.3139e-04 ,3.1210e-04 ,2.8146e-04 ,2.4413e-04 ,2.0071e-04 , & - &1.5211e-04 ,9.7273e-05 ,6.9081e-05 /) - kao(:, 5, 9, 1) = (/ & - &3.2528e-04 ,3.9307e-04 ,3.6944e-04 ,3.3441e-04 ,2.9052e-04 ,2.3944e-04 , & - &1.8220e-04 ,1.1689e-04 ,8.4202e-05 /) - kao(:, 1,10, 1) = (/ & - &5.9822e-04 ,6.2372e-04 ,5.8089e-04 ,5.1261e-04 ,4.3322e-04 ,3.4273e-04 , & - &2.4200e-04 ,1.3558e-04 ,7.2135e-05 /) - kao(:, 2,10, 1) = (/ & - &7.4373e-04 ,7.8308e-04 ,7.2223e-04 ,6.3443e-04 ,5.3223e-04 ,4.2429e-04 , & - &3.0242e-04 ,1.7107e-04 ,9.5831e-05 /) - kao(:, 3,10, 1) = (/ & - &9.1691e-04 ,9.5621e-04 ,8.7625e-04 ,7.6950e-04 ,6.5144e-04 ,5.1701e-04 , & - &3.7121e-04 ,2.1199e-04 ,1.2423e-04 /) - kao(:, 4,10, 1) = (/ & - &1.1043e-03 ,1.1414e-03 ,1.0539e-03 ,9.3161e-04 ,7.8672e-04 ,6.2626e-04 , & - &4.5160e-04 ,2.5892e-04 ,1.5666e-04 /) - kao(:, 5,10, 1) = (/ & - &1.3045e-03 ,1.3552e-03 ,1.2556e-03 ,1.1172e-03 ,9.4316e-04 ,7.4718e-04 , & - &5.4008e-04 ,3.1196e-04 ,1.9599e-04 /) - kao(:, 1,11, 1) = (/ & - &8.7712e-04 ,8.8837e-04 ,8.1430e-04 ,7.2064e-04 ,6.0791e-04 ,4.8638e-04 , & - &3.4855e-04 ,1.8904e-04 ,9.5086e-05 /) - kao(:, 2,11, 1) = (/ & - &1.1025e-03 ,1.1220e-03 ,1.0310e-03 ,9.0820e-04 ,7.5807e-04 ,5.9864e-04 , & - &4.3064e-04 ,2.3702e-04 ,1.2669e-04 /) - kao(:, 3,11, 1) = (/ & - &1.3684e-03 ,1.3746e-03 ,1.2594e-03 ,1.1058e-03 ,9.3187e-04 ,7.3748e-04 , & - &5.2465e-04 ,2.9520e-04 ,1.6181e-04 /) - kao(:, 4,11, 1) = (/ & - &1.6471e-03 ,1.6623e-03 ,1.5206e-03 ,1.3382e-03 ,1.1315e-03 ,8.9471e-04 , & - &6.4214e-04 ,3.6310e-04 ,2.0489e-04 /) - kao(:, 5,11, 1) = (/ & - &1.9688e-03 ,1.9772e-03 ,1.8138e-03 ,1.6028e-03 ,1.3619e-03 ,1.0826e-03 , & - &7.7699e-04 ,4.3404e-04 ,2.5459e-04 /) - kao(:, 1,12, 1) = (/ & - &9.4409e-04 ,9.5030e-04 ,8.6958e-04 ,7.6723e-04 ,6.4799e-04 ,5.1804e-04 , & - &3.7162e-04 ,2.0179e-04 ,1.0181e-04 /) - kao(:, 2,12, 1) = (/ & - &1.2024e-03 ,1.2024e-03 ,1.1035e-03 ,9.7105e-04 ,8.1245e-04 ,6.4379e-04 , & - &4.6123e-04 ,2.5624e-04 ,1.3746e-04 /) - kao(:, 3,12, 1) = (/ & - &1.5009e-03 ,1.4895e-03 ,1.3527e-03 ,1.1889e-03 ,1.0016e-03 ,7.9376e-04 , & - &5.6671e-04 ,3.1943e-04 ,1.7568e-04 /) - kao(:, 4,12, 1) = (/ & - &1.8192e-03 ,1.8117e-03 ,1.6422e-03 ,1.4410e-03 ,1.2151e-03 ,9.6812e-04 , & - &6.9546e-04 ,3.9137e-04 ,2.1782e-04 /) - kao(:, 5,12, 1) = (/ & - &2.1766e-03 ,2.1635e-03 ,1.9700e-03 ,1.7314e-03 ,1.4651e-03 ,1.1736e-03 , & - &8.4593e-04 ,4.7032e-04 ,2.5768e-04 /) - kao(:, 1,13, 1) = (/ & - &8.2069e-04 ,8.2445e-04 ,7.5154e-04 ,6.6188e-04 ,5.6185e-04 ,4.5083e-04 , & - &3.2275e-04 ,1.7851e-04 ,9.1099e-05 /) - kao(:, 2,13, 1) = (/ & - &1.0473e-03 ,1.0502e-03 ,9.5966e-04 ,8.4257e-04 ,7.0741e-04 ,5.6233e-04 , & - &4.0370e-04 ,2.2679e-04 ,1.2172e-04 /) - kao(:, 3,13, 1) = (/ & - &1.3133e-03 ,1.3024e-03 ,1.1846e-03 ,1.0375e-03 ,8.7436e-04 ,6.9645e-04 , & - &5.0292e-04 ,2.8463e-04 ,1.5549e-04 /) - kao(:, 4,13, 1) = (/ & - &1.6064e-03 ,1.5873e-03 ,1.4461e-03 ,1.2677e-03 ,1.0715e-03 ,8.5901e-04 , & - &6.1842e-04 ,3.4781e-04 ,1.9357e-04 /) - kao(:, 5,13, 1) = (/ & - &1.9305e-03 ,1.9051e-03 ,1.7364e-03 ,1.5314e-03 ,1.2972e-03 ,1.0440e-03 , & - &7.5312e-04 ,4.2210e-04 ,2.3145e-04 /) - kao(:, 1, 1, 2) = (/ & - &8.1346e-06 ,1.0615e-04 ,1.6451e-04 ,2.1843e-04 ,2.7217e-04 ,3.3271e-04 , & - &4.0424e-04 ,5.2737e-04 ,4.6457e-04 /) - kao(:, 2, 1, 2) = (/ & - &9.5357e-06 ,1.2245e-04 ,1.9203e-04 ,2.5686e-04 ,3.2147e-04 ,3.9091e-04 , & - &4.7632e-04 ,6.1736e-04 ,5.3890e-04 /) - kao(:, 3, 1, 2) = (/ & - &1.0894e-05 ,1.4027e-04 ,2.2328e-04 ,3.0098e-04 ,3.7740e-04 ,4.5873e-04 , & - &5.6256e-04 ,7.2836e-04 ,6.2820e-04 /) - kao(:, 4, 1, 2) = (/ & - &1.2218e-05 ,1.6125e-04 ,2.5837e-04 ,3.4988e-04 ,4.3991e-04 ,5.3396e-04 , & - &6.5212e-04 ,8.5783e-04 ,7.3258e-04 /) - kao(:, 5, 1, 2) = (/ & - &1.3559e-05 ,1.8418e-04 ,2.9709e-04 ,4.0563e-04 ,5.0913e-04 ,6.2018e-04 , & - &7.5464e-04 ,9.9267e-04 ,8.5248e-04 /) - kao(:, 1, 2, 2) = (/ & - &1.0648e-05 ,1.0205e-04 ,1.5218e-04 ,1.9460e-04 ,2.3469e-04 ,2.7445e-04 , & - &3.2374e-04 ,3.9687e-04 ,3.7021e-04 /) - kao(:, 2, 2, 2) = (/ & - &1.2479e-05 ,1.1864e-04 ,1.7693e-04 ,2.2906e-04 ,2.7817e-04 ,3.2635e-04 , & - &3.8100e-04 ,4.6812e-04 ,4.2972e-04 /) - kao(:, 3, 2, 2) = (/ & - &1.4325e-05 ,1.3615e-04 ,2.0613e-04 ,2.6822e-04 ,3.2742e-04 ,3.8532e-04 , & - &4.4992e-04 ,5.5581e-04 ,5.0382e-04 /) - kao(:, 4, 2, 2) = (/ & - &1.6131e-05 ,1.5522e-04 ,2.3823e-04 ,3.1216e-04 ,3.8163e-04 ,4.4987e-04 , & - &5.2423e-04 ,6.5095e-04 ,5.8901e-04 /) - kao(:, 5, 2, 2) = (/ & - &1.7840e-05 ,1.7738e-04 ,2.7413e-04 ,3.6145e-04 ,4.4307e-04 ,5.2217e-04 , & - &6.0968e-04 ,7.4929e-04 ,6.8588e-04 /) - kao(:, 1, 3, 2) = (/ & - &1.7975e-05 ,1.1236e-04 ,1.5383e-04 ,1.8734e-04 ,2.1612e-04 ,2.4014e-04 , & - &2.6058e-04 ,2.9343e-04 ,2.9752e-04 /) - kao(:, 2, 3, 2) = (/ & - &2.1208e-05 ,1.3084e-04 ,1.8013e-04 ,2.2080e-04 ,2.5543e-04 ,2.8432e-04 , & - &3.1199e-04 ,3.4846e-04 ,3.5196e-04 /) - kao(:, 3, 3, 2) = (/ & - &2.4558e-05 ,1.5021e-04 ,2.0878e-04 ,2.5693e-04 ,2.9945e-04 ,3.3619e-04 , & - &3.7048e-04 ,4.1334e-04 ,4.1350e-04 /) - kao(:, 4, 3, 2) = (/ & - &2.7720e-05 ,1.7111e-04 ,2.4012e-04 ,2.9904e-04 ,3.4910e-04 ,3.9367e-04 , & - &4.3560e-04 ,4.8351e-04 ,4.8248e-04 /) - kao(:, 5, 3, 2) = (/ & - &3.0839e-05 ,1.9412e-04 ,2.7570e-04 ,3.4584e-04 ,4.0483e-04 ,4.5917e-04 , & - &5.0628e-04 ,5.6356e-04 ,5.6016e-04 /) - kao(:, 1, 4, 2) = (/ & - &3.0257e-05 ,1.3348e-04 ,1.6797e-04 ,1.9240e-04 ,2.0954e-04 ,2.2222e-04 , & - &2.2898e-04 ,2.3143e-04 ,2.5081e-04 /) - kao(:, 2, 4, 2) = (/ & - &3.6110e-05 ,1.5427e-04 ,1.9683e-04 ,2.2498e-04 ,2.4900e-04 ,2.6495e-04 , & - &2.7383e-04 ,2.7831e-04 ,3.0130e-04 /) - kao(:, 3, 4, 2) = (/ & - &4.2020e-05 ,1.7731e-04 ,2.2733e-04 ,2.6268e-04 ,2.9200e-04 ,3.1270e-04 , & - &3.2430e-04 ,3.3243e-04 ,3.4977e-04 /) - kao(:, 4, 4, 2) = (/ & - &4.7704e-05 ,2.0254e-04 ,2.6080e-04 ,3.0470e-04 ,3.4066e-04 ,3.6571e-04 , & - &3.8177e-04 ,3.9329e-04 ,4.0928e-04 /) - kao(:, 5, 4, 2) = (/ & - &5.3448e-05 ,2.2883e-04 ,2.9767e-04 ,3.4976e-04 ,3.9269e-04 ,4.2565e-04 , & - &4.4636e-04 ,4.5989e-04 ,4.7277e-04 /) - kao(:, 1, 5, 2) = (/ & - &4.6988e-05 ,1.6787e-04 ,1.9191e-04 ,2.0648e-04 ,2.1525e-04 ,2.1596e-04 , & - &2.0906e-04 ,1.9576e-04 ,2.0610e-04 /) - kao(:, 2, 5, 2) = (/ & - &5.6510e-05 ,1.9317e-04 ,2.2448e-04 ,2.4373e-04 ,2.5210e-04 ,2.5521e-04 , & - &2.5032e-04 ,2.3737e-04 ,2.5015e-04 /) - kao(:, 3, 5, 2) = (/ & - &6.6097e-05 ,2.2111e-04 ,2.5901e-04 ,2.8182e-04 ,2.9480e-04 ,2.9992e-04 , & - &2.9852e-04 ,2.8340e-04 ,3.0111e-04 /) - kao(:, 4, 5, 2) = (/ & - &7.5373e-05 ,2.5095e-04 ,2.9694e-04 ,3.2434e-04 ,3.4231e-04 ,3.5125e-04 , & - &3.5172e-04 ,3.3625e-04 ,3.5720e-04 /) - kao(:, 5, 5, 2) = (/ & - &8.4653e-05 ,2.8271e-04 ,3.3633e-04 ,3.7103e-04 ,3.9540e-04 ,4.0854e-04 , & - &4.1017e-04 ,3.9523e-04 ,4.0911e-04 /) - kao(:, 1, 6, 2) = (/ & - &6.8194e-05 ,2.1119e-04 ,2.2511e-04 ,2.2905e-04 ,2.2761e-04 ,2.1982e-04 , & - &2.0183e-04 ,1.7113e-04 ,1.7129e-04 /) - kao(:, 2, 6, 2) = (/ & - &8.3032e-05 ,2.4138e-04 ,2.6267e-04 ,2.7055e-04 ,2.6995e-04 ,2.6005e-04 , & - &2.3793e-04 ,2.0771e-04 ,2.1052e-04 /) - kao(:, 3, 6, 2) = (/ & - &9.7316e-05 ,2.7435e-04 ,3.0334e-04 ,3.1415e-04 ,3.1605e-04 ,3.0269e-04 , & - &2.8123e-04 ,2.4990e-04 ,2.5531e-04 /) - kao(:, 4, 6, 2) = (/ & - &1.1184e-04 ,3.0984e-04 ,3.4680e-04 ,3.6228e-04 ,3.6303e-04 ,3.5165e-04 , & - &3.2989e-04 ,2.9654e-04 ,3.0715e-04 /) - kao(:, 5, 6, 2) = (/ & - &1.2632e-04 ,3.4683e-04 ,3.9318e-04 ,4.1205e-04 ,4.1568e-04 ,4.0572e-04 , & - &3.8584e-04 ,3.4794e-04 ,3.6334e-04 /) - kao(:, 1, 7, 2) = (/ & - &1.0382e-04 ,2.6395e-04 ,2.8989e-04 ,2.8076e-04 ,2.6344e-04 ,2.4071e-04 , & - &2.1106e-04 ,1.6791e-04 ,1.4516e-04 /) - kao(:, 2, 7, 2) = (/ & - &1.2713e-04 ,3.0635e-04 ,3.3550e-04 ,3.2897e-04 ,3.1196e-04 ,2.8824e-04 , & - &2.5288e-04 ,2.0031e-04 ,1.8143e-04 /) - kao(:, 3, 7, 2) = (/ & - &1.5126e-04 ,3.5047e-04 ,3.8510e-04 ,3.8068e-04 ,3.6466e-04 ,3.3889e-04 , & - &2.9600e-04 ,2.3790e-04 ,2.2323e-04 /) - kao(:, 4, 7, 2) = (/ & - &1.7453e-04 ,3.9749e-04 ,4.3569e-04 ,4.3708e-04 ,4.2166e-04 ,3.9085e-04 , & - &3.4474e-04 ,2.8074e-04 ,2.7137e-04 /) - kao(:, 5, 7, 2) = (/ & - &1.9815e-04 ,4.4700e-04 ,4.9020e-04 ,4.9608e-04 ,4.8316e-04 ,4.4845e-04 , & - &4.0007e-04 ,3.2811e-04 ,3.2529e-04 /) - kao(:, 1, 8, 2) = (/ & - &1.8568e-04 ,3.7522e-04 ,4.0441e-04 ,4.0400e-04 ,3.7101e-04 ,3.2090e-04 , & - &2.6014e-04 ,1.8741e-04 ,1.4093e-04 /) - kao(:, 2, 8, 2) = (/ & - &2.2706e-04 ,4.4100e-04 ,4.7331e-04 ,4.6941e-04 ,4.3330e-04 ,3.7933e-04 , & - &3.1116e-04 ,2.2753e-04 ,1.7550e-04 /) - kao(:, 3, 8, 2) = (/ & - &2.7313e-04 ,5.0681e-04 ,5.4665e-04 ,5.4041e-04 ,5.0328e-04 ,4.4299e-04 , & - &3.6626e-04 ,2.6706e-04 ,2.1512e-04 /) - kao(:, 4, 8, 2) = (/ & - &3.2050e-04 ,5.7784e-04 ,6.2469e-04 ,6.1766e-04 ,5.7799e-04 ,5.1310e-04 , & - &4.2712e-04 ,3.1237e-04 ,2.5864e-04 /) - kao(:, 5, 8, 2) = (/ & - &3.6492e-04 ,6.4972e-04 ,7.0632e-04 ,6.9926e-04 ,6.5563e-04 ,5.8535e-04 , & - &4.8972e-04 ,3.6487e-04 ,3.1085e-04 /) - kao(:, 1, 9, 2) = (/ & - &6.2599e-04 ,8.6654e-04 ,9.0634e-04 ,8.8937e-04 ,8.1140e-04 ,7.1027e-04 , & - &5.7167e-04 ,3.5735e-04 ,2.0982e-04 /) - kao(:, 2, 9, 2) = (/ & - &7.7627e-04 ,1.0704e-03 ,1.1043e-03 ,1.0586e-03 ,9.6032e-04 ,8.3995e-04 , & - &6.6547e-04 ,4.2636e-04 ,2.5832e-04 /) - kao(:, 3, 9, 2) = (/ & - &9.3794e-04 ,1.2619e-03 ,1.2949e-03 ,1.2284e-03 ,1.1156e-03 ,9.7182e-04 , & - &7.6979e-04 ,5.0109e-04 ,3.1973e-04 /) - kao(:, 4, 9, 2) = (/ & - &1.1114e-03 ,1.4537e-03 ,1.4722e-03 ,1.4030e-03 ,1.2802e-03 ,1.1177e-03 , & - &8.8445e-04 ,5.8120e-04 ,3.8922e-04 /) - kao(:, 5, 9, 2) = (/ & - &1.2779e-03 ,1.6415e-03 ,1.6560e-03 ,1.5834e-03 ,1.4519e-03 ,1.2713e-03 , & - &1.0105e-03 ,6.6729e-04 ,4.6624e-04 /) - kao(:, 1,10, 2) = (/ & - &2.4553e-03 ,2.6165e-03 ,2.4993e-03 ,2.2847e-03 ,2.0267e-03 ,1.7115e-03 , & - &1.3397e-03 ,8.6368e-04 ,3.6576e-04 /) - kao(:, 2,10, 2) = (/ & - &3.0620e-03 ,3.2511e-03 ,3.1049e-03 ,2.8553e-03 ,2.5348e-03 ,2.1265e-03 , & - &1.6314e-03 ,1.0269e-03 ,4.5803e-04 /) - kao(:, 3,10, 2) = (/ & - &3.7364e-03 ,3.9627e-03 ,3.7660e-03 ,3.4224e-03 ,3.0121e-03 ,2.5166e-03 , & - &1.9135e-03 ,1.1990e-03 ,5.6685e-04 /) - kao(:, 4,10, 2) = (/ & - &4.4530e-03 ,4.6554e-03 ,4.3836e-03 ,3.9682e-03 ,3.4829e-03 ,2.8809e-03 , & - &2.1972e-03 ,1.3815e-03 ,6.9188e-04 /) - kao(:, 5,10, 2) = (/ & - &5.1575e-03 ,5.3264e-03 ,4.9909e-03 ,4.5087e-03 ,3.9257e-03 ,3.2602e-03 , & - &2.4888e-03 ,1.5715e-03 ,8.2270e-04 /) - kao(:, 1,11, 2) = (/ & - &3.7833e-03 ,3.8112e-03 ,3.5566e-03 ,3.1989e-03 ,2.7686e-03 ,2.2723e-03 , & - &1.7364e-03 ,1.0753e-03 ,4.0590e-04 /) - kao(:, 2,11, 2) = (/ & - &4.6966e-03 ,4.7207e-03 ,4.4156e-03 ,3.9736e-03 ,3.4554e-03 ,2.8577e-03 , & - &2.1338e-03 ,1.2945e-03 ,5.0517e-04 /) - kao(:, 3,11, 2) = (/ & - &5.7189e-03 ,5.7590e-03 ,5.3345e-03 ,4.7708e-03 ,4.1084e-03 ,3.3729e-03 , & - &2.5008e-03 ,1.5078e-03 ,6.3337e-04 /) - kao(:, 4,11, 2) = (/ & - &6.7827e-03 ,6.7469e-03 ,6.2278e-03 ,5.5367e-03 ,4.7380e-03 ,3.8594e-03 , & - &2.8648e-03 ,1.7294e-03 ,7.7415e-04 /) - kao(:, 5,11, 2) = (/ & - &7.8200e-03 ,7.7382e-03 ,7.0901e-03 ,6.2644e-03 ,5.3533e-03 ,4.3510e-03 , & - &3.2356e-03 ,1.9722e-03 ,9.3312e-04 /) - kao(:, 1,12, 2) = (/ & - &4.2783e-03 ,4.2041e-03 ,3.8742e-03 ,3.4634e-03 ,2.9720e-03 ,2.4393e-03 , & - &1.8351e-03 ,1.1175e-03 ,3.9253e-04 /) - kao(:, 2,12, 2) = (/ & - &5.3337e-03 ,5.2652e-03 ,4.8301e-03 ,4.3189e-03 ,3.7223e-03 ,3.0228e-03 , & - &2.2408e-03 ,1.3443e-03 ,4.8795e-04 /) - kao(:, 3,12, 2) = (/ & - &6.5143e-03 ,6.3579e-03 ,5.8237e-03 ,5.1812e-03 ,4.4118e-03 ,3.5721e-03 , & - &2.6281e-03 ,1.5684e-03 ,6.0394e-04 /) - kao(:, 4,12, 2) = (/ & - &7.6468e-03 ,7.4276e-03 ,6.7625e-03 ,6.0120e-03 ,5.0805e-03 ,4.0892e-03 , & - &3.0024e-03 ,1.8032e-03 ,7.4856e-04 /) - kao(:, 5,12, 2) = (/ & - &8.7322e-03 ,8.4845e-03 ,7.6878e-03 ,6.7875e-03 ,5.7064e-03 ,4.6095e-03 , & - &3.4027e-03 ,2.0497e-03 ,9.3030e-04 /) - kao(:, 1,13, 2) = (/ & - &3.8383e-03 ,3.7685e-03 ,3.4781e-03 ,3.1000e-03 ,2.6661e-03 ,2.1777e-03 , & - &1.6207e-03 ,9.7395e-04 ,3.4434e-04 /) - kao(:, 2,13, 2) = (/ & - &4.7991e-03 ,4.7287e-03 ,4.3604e-03 ,3.8801e-03 ,3.3054e-03 ,2.6658e-03 , & - &1.9755e-03 ,1.1692e-03 ,4.3018e-04 /) - kao(:, 3,13, 2) = (/ & - &5.8240e-03 ,5.6632e-03 ,5.1895e-03 ,4.6114e-03 ,3.9052e-03 ,3.1338e-03 , & - &2.3066e-03 ,1.3724e-03 ,5.3490e-04 /) - kao(:, 4,13, 2) = (/ & - &6.7942e-03 ,6.6067e-03 ,6.0062e-03 ,5.2927e-03 ,4.4607e-03 ,3.5870e-03 , & - &2.6413e-03 ,1.5766e-03 ,6.6330e-04 /) - kao(:, 5,13, 2) = (/ & - &7.7135e-03 ,7.4856e-03 ,6.7623e-03 ,5.9543e-03 ,5.0216e-03 ,4.0477e-03 , & - &2.9856e-03 ,1.7918e-03 ,8.1116e-04 /) - kao(:, 1, 1, 3) = (/ & - &2.4793e-05 ,3.0799e-04 ,4.6290e-04 ,5.9325e-04 ,7.1737e-04 ,8.2193e-04 , & - &9.4048e-04 ,1.1399e-03 ,1.0252e-03 /) - kao(:, 2, 1, 3) = (/ & - &2.6296e-05 ,3.5350e-04 ,5.3963e-04 ,6.9573e-04 ,8.4910e-04 ,9.9005e-04 , & - &1.1353e-03 ,1.3914e-03 ,1.2872e-03 /) - kao(:, 3, 1, 3) = (/ & - &2.7819e-05 ,4.0345e-04 ,6.2337e-04 ,8.1130e-04 ,9.9260e-04 ,1.1727e-03 , & - &1.3740e-03 ,1.6958e-03 ,1.5768e-03 /) - kao(:, 4, 1, 3) = (/ & - &2.9505e-05 ,4.5829e-04 ,7.1308e-04 ,9.3786e-04 ,1.1508e-03 ,1.3827e-03 , & - &1.6466e-03 ,2.0604e-03 ,1.9074e-03 /) - kao(:, 5, 1, 3) = (/ & - &3.1281e-05 ,5.1795e-04 ,8.1473e-04 ,1.0770e-03 ,1.3366e-03 ,1.6108e-03 , & - &1.9547e-03 ,2.4904e-03 ,2.2803e-03 /) - kao(:, 1, 2, 3) = (/ & - &3.2793e-05 ,3.0694e-04 ,4.5221e-04 ,5.6459e-04 ,6.5806e-04 ,7.4456e-04 , & - &8.0925e-04 ,9.1019e-04 ,8.6945e-04 /) - kao(:, 2, 2, 3) = (/ & - &3.4666e-05 ,3.5123e-04 ,5.2466e-04 ,6.5968e-04 ,7.7040e-04 ,8.8249e-04 , & - &9.7906e-04 ,1.1056e-03 ,1.0654e-03 /) - kao(:, 3, 2, 3) = (/ & - &3.6731e-05 ,4.0004e-04 ,6.0292e-04 ,7.6491e-04 ,9.0091e-04 ,1.0289e-03 , & - &1.1668e-03 ,1.3438e-03 ,1.2804e-03 /) - kao(:, 4, 2, 3) = (/ & - &3.8918e-05 ,4.5420e-04 ,6.8900e-04 ,8.8273e-04 ,1.0463e-03 ,1.2043e-03 , & - &1.3845e-03 ,1.6322e-03 ,1.5338e-03 /) - kao(:, 5, 2, 3) = (/ & - &4.1070e-05 ,5.1139e-04 ,7.8412e-04 ,1.0082e-03 ,1.2070e-03 ,1.4003e-03 , & - &1.6106e-03 ,1.9566e-03 ,1.8338e-03 /) - kao(:, 1, 3, 3) = (/ & - &5.7419e-05 ,3.4417e-04 ,4.7657e-04 ,5.8011e-04 ,6.5776e-04 ,7.1017e-04 , & - &7.4352e-04 ,7.5165e-04 ,7.1905e-04 /) - kao(:, 2, 3, 3) = (/ & - &6.1098e-05 ,3.8894e-04 ,5.5050e-04 ,6.7283e-04 ,7.6814e-04 ,8.3562e-04 , & - &8.7563e-04 ,9.0812e-04 ,8.7884e-04 /) - kao(:, 3, 3, 3) = (/ & - &6.4950e-05 ,4.3994e-04 ,6.3159e-04 ,7.7584e-04 ,8.9433e-04 ,9.7562e-04 , & - &1.0278e-03 ,1.0860e-03 ,1.0655e-03 /) - kao(:, 4, 3, 3) = (/ & - &6.9137e-05 ,4.9606e-04 ,7.1905e-04 ,8.8979e-04 ,1.0295e-03 ,1.1315e-03 , & - &1.2033e-03 ,1.2952e-03 ,1.2839e-03 /) - kao(:, 5, 3, 3) = (/ & - &7.3375e-05 ,5.5536e-04 ,8.1436e-04 ,1.0155e-03 ,1.1795e-03 ,1.3051e-03 , & - &1.4046e-03 ,1.5168e-03 ,1.5296e-03 /) - kao(:, 1, 4, 3) = (/ & - &1.0086e-04 ,4.2454e-04 ,5.2985e-04 ,6.0848e-04 ,6.7121e-04 ,7.0723e-04 , & - &7.1237e-04 ,6.8193e-04 ,6.1640e-04 /) - kao(:, 2, 4, 3) = (/ & - &1.0794e-04 ,4.6886e-04 ,6.0099e-04 ,7.0397e-04 ,7.8290e-04 ,8.2924e-04 , & - &8.4042e-04 ,8.0656e-04 ,7.3923e-04 /) - kao(:, 3, 4, 3) = (/ & - &1.1564e-04 ,5.1937e-04 ,6.8316e-04 ,8.0764e-04 ,9.0488e-04 ,9.5975e-04 , & - &9.8680e-04 ,9.5115e-04 ,8.9690e-04 /) - kao(:, 4, 4, 3) = (/ & - &1.2339e-04 ,5.7610e-04 ,7.7301e-04 ,9.2354e-04 ,1.0350e-03 ,1.1092e-03 , & - &1.1493e-03 ,1.1169e-03 ,1.0760e-03 /) - kao(:, 5, 4, 3) = (/ & - &1.3105e-04 ,6.3905e-04 ,8.6996e-04 ,1.0475e-03 ,1.1809e-03 ,1.2763e-03 , & - &1.3289e-03 ,1.3078e-03 ,1.2869e-03 /) - kao(:, 1, 5, 3) = (/ & - &1.6100e-04 ,5.0634e-04 ,6.1668e-04 ,6.6467e-04 ,6.8745e-04 ,6.9758e-04 , & - &6.8538e-04 ,6.2098e-04 ,6.1721e-04 /) - kao(:, 2, 5, 3) = (/ & - &1.7365e-04 ,5.5505e-04 ,6.8253e-04 ,7.5603e-04 ,7.9631e-04 ,8.1600e-04 , & - &8.0888e-04 ,7.3807e-04 ,7.1431e-04 /) - kao(:, 3, 5, 3) = (/ & - &1.8648e-04 ,6.0992e-04 ,7.6141e-04 ,8.5901e-04 ,9.1428e-04 ,9.4703e-04 , & - &9.4315e-04 ,8.7432e-04 ,8.2918e-04 /) - kao(:, 4, 5, 3) = (/ & - &1.9988e-04 ,6.7074e-04 ,8.4873e-04 ,9.7496e-04 ,1.0437e-03 ,1.0922e-03 , & - &1.0916e-03 ,1.0269e-03 ,9.7489e-04 /) - kao(:, 5, 5, 3) = (/ & - &2.1403e-04 ,7.3152e-04 ,9.4776e-04 ,1.0959e-03 ,1.1876e-03 ,1.2477e-03 , & - &1.2592e-03 ,1.1994e-03 ,1.1556e-03 /) - kao(:, 1, 6, 3) = (/ & - &2.3782e-04 ,5.8473e-04 ,7.0057e-04 ,7.3727e-04 ,7.3866e-04 ,7.0622e-04 , & - &6.5578e-04 ,5.7152e-04 ,6.4834e-04 /) - kao(:, 2, 6, 3) = (/ & - &2.5744e-04 ,6.5190e-04 ,7.6744e-04 ,8.2296e-04 ,8.3569e-04 ,8.1871e-04 , & - &7.7021e-04 ,6.8232e-04 ,7.1639e-04 /) - kao(:, 3, 6, 3) = (/ & - &2.7664e-04 ,7.1488e-04 ,8.5237e-04 ,9.1762e-04 ,9.4622e-04 ,9.4392e-04 , & - &8.9795e-04 ,8.0363e-04 ,8.0674e-04 /) - kao(:, 4, 6, 3) = (/ & - &2.9757e-04 ,7.7689e-04 ,9.3669e-04 ,1.0212e-03 ,1.0750e-03 ,1.0793e-03 , & - &1.0394e-03 ,9.3920e-04 ,9.2478e-04 /) - kao(:, 5, 6, 3) = (/ & - &3.2013e-04 ,8.4833e-04 ,1.0249e-03 ,1.1443e-03 ,1.2150e-03 ,1.2313e-03 , & - &1.1962e-03 ,1.0926e-03 ,1.0558e-03 /) - kao(:, 1, 7, 3) = (/ & - &3.7226e-04 ,7.2122e-04 ,8.2273e-04 ,8.7424e-04 ,8.4905e-04 ,7.9504e-04 , & - &6.8600e-04 ,5.4748e-04 ,6.4757e-04 /) - kao(:, 2, 7, 3) = (/ & - &4.0471e-04 ,8.0580e-04 ,9.2241e-04 ,9.6290e-04 ,9.4856e-04 ,8.9436e-04 , & - &7.9088e-04 ,6.5024e-04 ,7.6906e-04 /) - kao(:, 3, 7, 3) = (/ & - &4.3485e-04 ,8.8728e-04 ,1.0201e-03 ,1.0664e-03 ,1.0598e-03 ,1.0046e-03 , & - &9.1434e-04 ,7.6471e-04 ,8.8345e-04 /) - kao(:, 4, 7, 3) = (/ & - &4.6779e-04 ,9.6940e-04 ,1.1214e-03 ,1.1802e-03 ,1.1771e-03 ,1.1317e-03 , & - &1.0506e-03 ,8.9487e-04 ,9.7870e-04 /) - kao(:, 5, 7, 3) = (/ & - &5.0564e-04 ,1.0493e-03 ,1.2285e-03 ,1.2989e-03 ,1.3103e-03 ,1.2822e-03 , & - &1.2004e-03 ,1.0399e-03 ,1.0827e-03 /) - kao(:, 1, 8, 3) = (/ & - &6.8834e-04 ,1.0497e-03 ,1.1354e-03 ,1.1403e-03 ,1.1091e-03 ,1.0282e-03 , & - &8.6922e-04 ,6.2179e-04 ,6.4394e-04 /) - kao(:, 2, 8, 3) = (/ & - &7.5262e-04 ,1.1719e-03 ,1.2711e-03 ,1.2847e-03 ,1.2498e-03 ,1.1356e-03 , & - &9.7177e-04 ,7.1700e-04 ,7.5449e-04 /) - kao(:, 3, 8, 3) = (/ & - &8.1196e-04 ,1.2925e-03 ,1.4075e-03 ,1.4221e-03 ,1.3886e-03 ,1.2652e-03 , & - &1.0898e-03 ,8.2946e-04 ,8.8164e-04 /) - kao(:, 4, 8, 3) = (/ & - &8.7357e-04 ,1.4119e-03 ,1.5462e-03 ,1.5662e-03 ,1.5234e-03 ,1.4066e-03 , & - &1.2187e-03 ,9.5583e-04 ,1.0263e-03 /) - kao(:, 5, 8, 3) = (/ & - &9.4776e-04 ,1.5351e-03 ,1.6779e-03 ,1.7191e-03 ,1.6760e-03 ,1.5541e-03 , & - &1.3711e-03 ,1.0942e-03 ,1.1866e-03 /) - kao(:, 1, 9, 3) = (/ & - &2.4030e-03 ,2.8116e-03 ,2.7490e-03 ,2.5782e-03 ,2.3739e-03 ,2.0451e-03 , & - &1.6352e-03 ,1.1525e-03 ,7.8397e-04 /) - kao(:, 2, 9, 3) = (/ & - &2.6406e-03 ,3.0780e-03 ,3.0311e-03 ,2.8880e-03 ,2.6562e-03 ,2.3012e-03 , & - &1.8579e-03 ,1.2942e-03 ,9.5305e-04 /) - kao(:, 3, 9, 3) = (/ & - &2.8588e-03 ,3.3826e-03 ,3.3331e-03 ,3.2003e-03 ,2.9491e-03 ,2.5645e-03 , & - &2.0822e-03 ,1.4320e-03 ,1.1371e-03 /) - kao(:, 4, 9, 3) = (/ & - &3.0751e-03 ,3.6837e-03 ,3.6521e-03 ,3.5172e-03 ,3.2330e-03 ,2.8266e-03 , & - &2.3022e-03 ,1.5958e-03 ,1.3270e-03 /) - kao(:, 5, 9, 3) = (/ & - &3.3401e-03 ,4.0139e-03 ,3.9712e-03 ,3.8387e-03 ,3.5273e-03 ,3.0908e-03 , & - &2.5332e-03 ,1.7734e-03 ,1.5421e-03 /) - kao(:, 1,10, 3) = (/ & - &9.4661e-03 ,9.3672e-03 ,8.6815e-03 ,7.7670e-03 ,6.6533e-03 ,5.4267e-03 , & - &4.0804e-03 ,2.5558e-03 ,1.0683e-03 /) - kao(:, 2,10, 3) = (/ & - &1.0403e-02 ,1.0310e-02 ,9.5215e-03 ,8.5122e-03 ,7.3124e-03 ,5.9813e-03 , & - &4.5509e-03 ,2.8739e-03 ,1.2946e-03 /) - kao(:, 3,10, 3) = (/ & - &1.1289e-02 ,1.1218e-02 ,1.0349e-02 ,9.3127e-03 ,8.0182e-03 ,6.6138e-03 , & - &5.0551e-03 ,3.2072e-03 ,1.5622e-03 /) - kao(:, 4,10, 3) = (/ & - &1.2130e-02 ,1.2221e-02 ,1.1320e-02 ,1.0189e-02 ,8.7979e-03 ,7.2832e-03 , & - &5.5873e-03 ,3.5427e-03 ,1.8389e-03 /) - kao(:, 5,10, 3) = (/ & - &1.3100e-02 ,1.3300e-02 ,1.2340e-02 ,1.1131e-02 ,9.6189e-03 ,7.9428e-03 , & - &6.1291e-03 ,3.8793e-03 ,2.1440e-03 /) - kao(:, 1,11, 3) = (/ & - &1.3487e-02 ,1.2984e-02 ,1.1782e-02 ,1.0398e-02 ,8.8336e-03 ,7.1334e-03 , & - &5.2262e-03 ,3.1590e-03 ,1.1845e-03 /) - kao(:, 2,11, 3) = (/ & - &1.4804e-02 ,1.4185e-02 ,1.2823e-02 ,1.1346e-02 ,9.6530e-03 ,7.7631e-03 , & - &5.7673e-03 ,3.5383e-03 ,1.4275e-03 /) - kao(:, 3,11, 3) = (/ & - &1.5980e-02 ,1.5367e-02 ,1.3971e-02 ,1.2366e-02 ,1.0542e-02 ,8.5565e-03 , & - &6.3780e-03 ,3.9351e-03 ,1.7235e-03 /) - kao(:, 4,11, 3) = (/ & - &1.7219e-02 ,1.6745e-02 ,1.5253e-02 ,1.3475e-02 ,1.1557e-02 ,9.4243e-03 , & - &6.9880e-03 ,4.3338e-03 ,2.0121e-03 /) - kao(:, 5,11, 3) = (/ & - &1.8659e-02 ,1.8178e-02 ,1.6582e-02 ,1.4739e-02 ,1.2667e-02 ,1.0254e-02 , & - &7.6524e-03 ,4.7481e-03 ,2.3669e-03 /) - kao(:, 1,12, 3) = (/ & - &1.4430e-02 ,1.3711e-02 ,1.2344e-02 ,1.0793e-02 ,9.1312e-03 ,7.2788e-03 , & - &5.2885e-03 ,3.1556e-03 ,1.1392e-03 /) - kao(:, 2,12, 3) = (/ & - &1.5757e-02 ,1.4929e-02 ,1.3431e-02 ,1.1729e-02 ,9.9240e-03 ,7.9738e-03 , & - &5.8467e-03 ,3.5123e-03 ,1.3911e-03 /) - kao(:, 3,12, 3) = (/ & - &1.6948e-02 ,1.6169e-02 ,1.4634e-02 ,1.2830e-02 ,1.0856e-02 ,8.7512e-03 , & - &6.4418e-03 ,3.8765e-03 ,1.6585e-03 /) - kao(:, 4,12, 3) = (/ & - &1.8340e-02 ,1.7651e-02 ,1.6013e-02 ,1.4019e-02 ,1.1962e-02 ,9.6662e-03 , & - &7.0623e-03 ,4.2621e-03 ,1.9806e-03 /) - kao(:, 5,12, 3) = (/ & - &1.9917e-02 ,1.9194e-02 ,1.7450e-02 ,1.5375e-02 ,1.3136e-02 ,1.0559e-02 , & - &7.7061e-03 ,4.6735e-03 ,2.2886e-03 /) - kao(:, 1,13, 3) = (/ & - &1.2378e-02 ,1.1740e-02 ,1.0520e-02 ,9.1794e-03 ,7.7313e-03 ,6.1547e-03 , & - &4.4837e-03 ,2.6655e-03 ,9.8041e-04 /) - kao(:, 2,13, 3) = (/ & - &1.3400e-02 ,1.2704e-02 ,1.1442e-02 ,9.9607e-03 ,8.4166e-03 ,6.7824e-03 , & - &4.9464e-03 ,2.9635e-03 ,1.2027e-03 /) - kao(:, 3,13, 3) = (/ & - &1.4376e-02 ,1.3828e-02 ,1.2497e-02 ,1.0944e-02 ,9.2894e-03 ,7.4859e-03 , & - &5.4627e-03 ,3.2639e-03 ,1.4455e-03 /) - kao(:, 4,13, 3) = (/ & - &1.5663e-02 ,1.5087e-02 ,1.3675e-02 ,1.2023e-02 ,1.0248e-02 ,8.2522e-03 , & - &5.9994e-03 ,3.5980e-03 ,1.7132e-03 /) - kao(:, 5,13, 3) = (/ & - &1.7084e-02 ,1.6538e-02 ,1.5027e-02 ,1.3180e-02 ,1.1220e-02 ,9.0513e-03 , & - &6.5567e-03 ,3.9396e-03 ,2.0154e-03 /) - kao(:, 1, 1, 4) = (/ & - &4.5432e-05 ,6.4085e-04 ,1.0470e-03 ,1.4404e-03 ,1.8333e-03 ,2.2857e-03 , & - &2.8540e-03 ,3.7474e-03 ,3.3078e-03 /) - kao(:, 2, 1, 4) = (/ & - &4.6775e-05 ,7.3260e-04 ,1.2196e-03 ,1.6906e-03 ,2.1700e-03 ,2.7279e-03 , & - &3.3928e-03 ,4.5435e-03 ,4.0031e-03 /) - kao(:, 3, 1, 4) = (/ & - &4.7907e-05 ,8.4030e-04 ,1.4168e-03 ,1.9771e-03 ,2.5623e-03 ,3.2199e-03 , & - &4.0380e-03 ,5.3656e-03 ,4.7474e-03 /) - kao(:, 4, 1, 4) = (/ & - &4.8733e-05 ,9.6171e-04 ,1.6416e-03 ,2.3126e-03 ,3.0275e-03 ,3.7946e-03 , & - &4.7571e-03 ,6.3684e-03 ,5.6396e-03 /) - kao(:, 5, 1, 4) = (/ & - &4.9568e-05 ,1.0960e-03 ,1.8926e-03 ,2.6893e-03 ,3.5365e-03 ,4.4677e-03 , & - &5.5986e-03 ,7.4848e-03 ,6.6760e-03 /) - kao(:, 1, 2, 4) = (/ & - &5.9644e-05 ,6.5165e-04 ,9.7095e-04 ,1.2735e-03 ,1.5693e-03 ,1.8723e-03 , & - &2.2435e-03 ,2.8303e-03 ,2.5518e-03 /) - kao(:, 2, 2, 4) = (/ & - &6.1550e-05 ,7.3433e-04 ,1.1155e-03 ,1.4862e-03 ,1.8480e-03 ,2.2144e-03 , & - &2.6782e-03 ,3.3851e-03 ,3.1028e-03 /) - kao(:, 3, 2, 4) = (/ & - &6.3424e-05 ,8.2814e-04 ,1.2862e-03 ,1.7299e-03 ,2.1667e-03 ,2.6220e-03 , & - &3.1654e-03 ,4.0290e-03 ,3.7219e-03 /) - kao(:, 4, 2, 4) = (/ & - &6.4618e-05 ,9.2770e-04 ,1.4812e-03 ,2.0000e-03 ,2.5281e-03 ,3.0889e-03 , & - &3.7301e-03 ,4.7467e-03 ,4.4551e-03 /) - kao(:, 5, 2, 4) = (/ & - &6.6495e-05 ,1.0413e-03 ,1.6912e-03 ,2.3096e-03 ,2.9324e-03 ,3.6063e-03 , & - &4.3915e-03 ,5.5831e-03 ,5.2779e-03 /) - kao(:, 1, 3, 4) = (/ & - &1.0462e-04 ,7.2939e-04 ,1.0510e-03 ,1.2708e-03 ,1.4590e-03 ,1.6268e-03 , & - &1.8071e-03 ,2.0571e-03 ,1.9983e-03 /) - kao(:, 2, 3, 4) = (/ & - &1.0853e-04 ,8.1591e-04 ,1.1915e-03 ,1.4605e-03 ,1.6878e-03 ,1.9079e-03 , & - &2.1403e-03 ,2.4652e-03 ,2.3859e-03 /) - kao(:, 3, 3, 4) = (/ & - &1.1161e-04 ,9.0807e-04 ,1.3452e-03 ,1.6696e-03 ,1.9436e-03 ,2.2298e-03 , & - &2.5245e-03 ,2.9256e-03 ,2.8236e-03 /) - kao(:, 4, 3, 4) = (/ & - &1.1463e-04 ,1.0096e-03 ,1.5126e-03 ,1.9029e-03 ,2.2460e-03 ,2.5957e-03 , & - &2.9637e-03 ,3.4539e-03 ,3.3286e-03 /) - kao(:, 5, 3, 4) = (/ & - &1.1771e-04 ,1.1227e-03 ,1.6998e-03 ,2.1624e-03 ,2.5867e-03 ,3.0031e-03 , & - &3.4507e-03 ,4.0691e-03 ,3.9216e-03 /) - kao(:, 1, 4, 4) = (/ & - &1.8980e-04 ,8.1690e-04 ,1.1496e-03 ,1.3743e-03 ,1.5174e-03 ,1.5997e-03 , & - &1.6364e-03 ,1.6486e-03 ,1.6867e-03 /) - kao(:, 2, 4, 4) = (/ & - &1.9681e-04 ,9.1682e-04 ,1.2947e-03 ,1.5538e-03 ,1.7351e-03 ,1.8526e-03 , & - &1.9065e-03 ,1.9583e-03 ,2.0215e-03 /) - kao(:, 3, 4, 4) = (/ & - &2.0208e-04 ,1.0146e-03 ,1.4514e-03 ,1.7516e-03 ,1.9841e-03 ,2.1383e-03 , & - &2.2138e-03 ,2.3082e-03 ,2.3998e-03 /) - kao(:, 4, 4, 4) = (/ & - &2.0762e-04 ,1.1226e-03 ,1.6211e-03 ,1.9728e-03 ,2.2623e-03 ,2.4506e-03 , & - &2.5563e-03 ,2.7166e-03 ,2.8343e-03 /) - kao(:, 5, 4, 4) = (/ & - &2.1385e-04 ,1.2397e-03 ,1.8026e-03 ,2.2223e-03 ,2.5659e-03 ,2.7894e-03 , & - &2.9545e-03 ,3.1771e-03 ,3.3076e-03 /) - kao(:, 1, 5, 4) = (/ & - &3.1379e-04 ,9.3426e-04 ,1.2166e-03 ,1.4285e-03 ,1.5654e-03 ,1.6404e-03 , & - &1.5965e-03 ,1.4828e-03 ,1.3604e-03 /) - kao(:, 2, 5, 4) = (/ & - &3.2699e-04 ,1.0358e-03 ,1.3783e-03 ,1.6163e-03 ,1.7786e-03 ,1.8763e-03 , & - &1.8530e-03 ,1.7399e-03 ,1.6555e-03 /) - kao(:, 3, 5, 4) = (/ & - &3.3749e-04 ,1.1387e-03 ,1.5374e-03 ,1.8184e-03 ,2.0178e-03 ,2.1215e-03 , & - &2.1453e-03 ,2.0239e-03 ,1.9794e-03 /) - kao(:, 4, 5, 4) = (/ & - &3.4807e-04 ,1.2529e-03 ,1.7131e-03 ,2.0397e-03 ,2.2808e-03 ,2.4051e-03 , & - &2.4718e-03 ,2.3502e-03 ,2.3300e-03 /) - kao(:, 5, 5, 4) = (/ & - &3.5954e-04 ,1.3777e-03 ,1.8982e-03 ,2.2796e-03 ,2.5586e-03 ,2.7323e-03 , & - &2.8236e-03 ,2.7161e-03 ,2.7237e-03 /) - kao(:, 1, 6, 4) = (/ & - &4.7800e-04 ,1.0890e-03 ,1.3133e-03 ,1.4652e-03 ,1.5696e-03 ,1.6077e-03 , & - &1.5816e-03 ,1.3782e-03 ,1.1543e-03 /) - kao(:, 2, 6, 4) = (/ & - &5.0135e-04 ,1.1692e-03 ,1.4789e-03 ,1.6725e-03 ,1.7871e-03 ,1.8348e-03 , & - &1.8106e-03 ,1.6080e-03 ,1.4185e-03 /) - kao(:, 3, 6, 4) = (/ & - &5.2250e-04 ,1.2684e-03 ,1.6447e-03 ,1.8893e-03 ,2.0173e-03 ,2.0845e-03 , & - &2.0641e-03 ,1.8764e-03 ,1.6970e-03 /) - kao(:, 4, 6, 4) = (/ & - &5.4010e-04 ,1.3890e-03 ,1.8350e-03 ,2.1143e-03 ,2.2731e-03 ,2.3591e-03 , & - &2.3476e-03 ,2.1762e-03 ,2.0061e-03 /) - kao(:, 5, 6, 4) = (/ & - &5.6086e-04 ,1.5152e-03 ,2.0323e-03 ,2.3522e-03 ,2.5434e-03 ,2.6585e-03 , & - &2.6646e-03 ,2.5043e-03 ,2.3580e-03 /) - kao(:, 1, 7, 4) = (/ & - &7.6472e-04 ,1.4103e-03 ,1.5811e-03 ,1.6521e-03 ,1.6700e-03 ,1.6355e-03 , & - &1.5716e-03 ,1.3655e-03 ,1.1953e-03 /) - kao(:, 2, 7, 4) = (/ & - &8.0405e-04 ,1.4820e-03 ,1.7182e-03 ,1.8432e-03 ,1.9040e-03 ,1.8839e-03 , & - &1.8004e-03 ,1.5836e-03 ,1.3245e-03 /) - kao(:, 3, 7, 4) = (/ & - &8.3976e-04 ,1.5925e-03 ,1.8706e-03 ,2.0547e-03 ,2.1511e-03 ,2.1580e-03 , & - &2.0497e-03 ,1.8151e-03 ,1.5136e-03 /) - kao(:, 4, 7, 4) = (/ & - &8.7606e-04 ,1.7044e-03 ,2.0552e-03 ,2.2845e-03 ,2.4212e-03 ,2.4433e-03 , & - &2.3312e-03 ,2.0671e-03 ,1.7685e-03 /) - kao(:, 5, 7, 4) = (/ & - &9.1065e-04 ,1.8368e-03 ,2.2563e-03 ,2.5472e-03 ,2.7054e-03 ,2.7384e-03 , & - &2.6284e-03 ,2.3513e-03 ,2.0612e-03 /) - kao(:, 1, 8, 4) = (/ & - &1.4362e-03 ,2.1402e-03 ,2.2733e-03 ,2.2579e-03 ,2.1547e-03 ,1.9686e-03 , & - &1.7196e-03 ,1.4177e-03 ,1.4603e-03 /) - kao(:, 2, 8, 4) = (/ & - &1.5196e-03 ,2.2635e-03 ,2.4111e-03 ,2.4495e-03 ,2.3642e-03 ,2.2258e-03 , & - &1.9891e-03 ,1.6444e-03 ,1.7173e-03 /) - kao(:, 3, 8, 4) = (/ & - &1.5863e-03 ,2.3882e-03 ,2.5869e-03 ,2.6588e-03 ,2.5952e-03 ,2.5025e-03 , & - &2.2780e-03 ,1.8819e-03 ,1.8908e-03 /) - kao(:, 4, 8, 4) = (/ & - &1.6588e-03 ,2.5177e-03 ,2.7792e-03 ,2.8954e-03 ,2.8908e-03 ,2.7990e-03 , & - &2.5915e-03 ,2.1558e-03 ,2.0333e-03 /) - kao(:, 5, 8, 4) = (/ & - &1.7367e-03 ,2.6935e-03 ,3.0017e-03 ,3.1619e-03 ,3.2065e-03 ,3.1297e-03 , & - &2.9147e-03 ,2.4525e-03 ,2.1765e-03 /) - kao(:, 1, 9, 4) = (/ & - &5.1377e-03 ,5.6879e-03 ,5.6413e-03 ,5.3776e-03 ,4.8224e-03 ,4.1689e-03 , & - &3.3325e-03 ,2.2481e-03 ,2.0122e-03 /) - kao(:, 2, 9, 4) = (/ & - &5.4511e-03 ,6.1548e-03 ,6.1332e-03 ,5.7185e-03 ,5.1593e-03 ,4.4551e-03 , & - &3.6302e-03 ,2.5234e-03 ,2.3673e-03 /) - kao(:, 3, 9, 4) = (/ & - &5.7014e-03 ,6.5729e-03 ,6.5250e-03 ,6.0830e-03 ,5.4507e-03 ,4.7941e-03 , & - &3.9451e-03 ,2.8561e-03 ,2.7249e-03 /) - kao(:, 4, 9, 4) = (/ & - &5.9876e-03 ,6.9491e-03 ,6.9266e-03 ,6.3994e-03 ,5.8665e-03 ,5.2094e-03 , & - &4.3177e-03 ,3.2100e-03 ,3.0655e-03 /) - kao(:, 5, 9, 4) = (/ & - &6.2578e-03 ,7.3161e-03 ,7.3395e-03 ,6.8572e-03 ,6.3066e-03 ,5.6391e-03 , & - &4.7410e-03 ,3.6035e-03 ,3.3864e-03 /) - kao(:, 1,10, 4) = (/ & - &2.0796e-02 ,2.0019e-02 ,1.8165e-02 ,1.6068e-02 ,1.3873e-02 ,1.1404e-02 , & - &8.6779e-03 ,5.2784e-03 ,2.8413e-03 /) - kao(:, 2,10, 4) = (/ & - &2.2188e-02 ,2.1487e-02 ,1.9617e-02 ,1.7448e-02 ,1.5124e-02 ,1.2499e-02 , & - &9.2630e-03 ,5.6664e-03 ,3.3963e-03 /) - kao(:, 3,10, 4) = (/ & - &2.3219e-02 ,2.2843e-02 ,2.1086e-02 ,1.8777e-02 ,1.6130e-02 ,1.3209e-02 , & - &9.9059e-03 ,6.0802e-03 ,4.0019e-03 /) - kao(:, 4,10, 4) = (/ & - &2.4435e-02 ,2.4082e-02 ,2.2303e-02 ,1.9851e-02 ,1.7023e-02 ,1.4121e-02 , & - &1.0410e-02 ,6.5843e-03 ,4.6477e-03 /) - kao(:, 5,10, 4) = (/ & - &2.5609e-02 ,2.5343e-02 ,2.3560e-02 ,2.0930e-02 ,1.8042e-02 ,1.4937e-02 , & - &1.1163e-02 ,7.1400e-03 ,5.2598e-03 /) - kao(:, 1,11, 4) = (/ & - &3.0218e-02 ,2.8464e-02 ,2.5566e-02 ,2.2189e-02 ,1.8763e-02 ,1.5165e-02 , & - &1.1286e-02 ,6.7271e-03 ,3.0443e-03 /) - kao(:, 2,11, 4) = (/ & - &3.2017e-02 ,3.0288e-02 ,2.7351e-02 ,2.3960e-02 ,2.0417e-02 ,1.6571e-02 , & - &1.2201e-02 ,7.2159e-03 ,3.6072e-03 /) - kao(:, 3,11, 4) = (/ & - &3.3713e-02 ,3.2141e-02 ,2.9172e-02 ,2.5698e-02 ,2.1768e-02 ,1.7546e-02 , & - &1.2989e-02 ,7.6734e-03 ,4.2021e-03 /) - kao(:, 4,11, 4) = (/ & - &3.5523e-02 ,3.3941e-02 ,3.0802e-02 ,2.7264e-02 ,2.3091e-02 ,1.8512e-02 , & - &1.3848e-02 ,8.2207e-03 ,4.9261e-03 /) - kao(:, 5,11, 4) = (/ & - &3.7048e-02 ,3.5659e-02 ,3.2500e-02 ,2.8766e-02 ,2.4380e-02 ,1.9724e-02 , & - &1.4735e-02 ,8.8773e-03 ,5.6292e-03 /) - kao(:, 1,12, 4) = (/ & - &3.2170e-02 ,2.9965e-02 ,2.6774e-02 ,2.3265e-02 ,1.9604e-02 ,1.5767e-02 , & - &1.1665e-02 ,6.8628e-03 ,2.9693e-03 /) - kao(:, 2,12, 4) = (/ & - &3.3877e-02 ,3.1857e-02 ,2.8686e-02 ,2.5070e-02 ,2.1306e-02 ,1.7043e-02 , & - &1.2460e-02 ,7.3567e-03 ,3.5157e-03 /) - kao(:, 3,12, 4) = (/ & - &3.5821e-02 ,3.3840e-02 ,3.0497e-02 ,2.6646e-02 ,2.2619e-02 ,1.8108e-02 , & - &1.3276e-02 ,7.8561e-03 ,4.1559e-03 /) - kao(:, 4,12, 4) = (/ & - &3.7503e-02 ,3.5506e-02 ,3.2126e-02 ,2.8288e-02 ,2.3902e-02 ,1.9181e-02 , & - &1.4142e-02 ,8.3990e-03 ,4.8088e-03 /) - kao(:, 5,12, 4) = (/ & - &3.9218e-02 ,3.7289e-02 ,3.3764e-02 ,2.9747e-02 ,2.5253e-02 ,2.0345e-02 , & - &1.5175e-02 ,9.0569e-03 ,5.5254e-03 /) - kao(:, 1,13, 4) = (/ & - &2.7021e-02 ,2.5240e-02 ,2.2638e-02 ,1.9764e-02 ,1.6669e-02 ,1.3389e-02 , & - &9.8031e-03 ,5.7609e-03 ,2.5391e-03 /) - kao(:, 2,13, 4) = (/ & - &2.8550e-02 ,2.6888e-02 ,2.4164e-02 ,2.1146e-02 ,1.7859e-02 ,1.4211e-02 , & - &1.0456e-02 ,6.1648e-03 ,3.0359e-03 /) - kao(:, 3,13, 4) = (/ & - &3.0206e-02 ,2.8336e-02 ,2.5560e-02 ,2.2362e-02 ,1.8953e-02 ,1.5151e-02 , & - &1.1086e-02 ,6.5998e-03 ,3.5704e-03 /) - kao(:, 4,13, 4) = (/ & - &3.1495e-02 ,2.9878e-02 ,2.6989e-02 ,2.3626e-02 ,1.9993e-02 ,1.6052e-02 , & - &1.1891e-02 ,7.0977e-03 ,4.1349e-03 /) - kao(:, 5,13, 4) = (/ & - &3.2969e-02 ,3.1259e-02 ,2.8282e-02 ,2.5005e-02 ,2.1232e-02 ,1.7061e-02 , & - &1.2808e-02 ,7.6578e-03 ,4.7180e-03 /) - kao(:, 1, 1, 5) = (/ & - &7.7208e-05 ,1.2983e-03 ,2.1990e-03 ,3.0698e-03 ,3.9335e-03 ,4.8939e-03 , & - &6.0507e-03 ,7.9864e-03 ,7.3950e-03 /) - kao(:, 2, 1, 5) = (/ & - &7.7960e-05 ,1.4953e-03 ,2.5372e-03 ,3.5852e-03 ,4.6877e-03 ,5.9141e-03 , & - &7.4453e-03 ,9.6664e-03 ,8.9362e-03 /) - kao(:, 3, 1, 5) = (/ & - &7.8616e-05 ,1.7027e-03 ,2.9428e-03 ,4.1895e-03 ,5.5241e-03 ,7.0220e-03 , & - &8.8894e-03 ,1.1837e-02 ,1.0698e-02 /) - kao(:, 4, 1, 5) = (/ & - &7.9284e-05 ,1.9233e-03 ,3.3889e-03 ,4.8861e-03 ,6.4864e-03 ,8.2886e-03 , & - &1.0489e-02 ,1.4031e-02 ,1.2687e-02 /) - kao(:, 5, 1, 5) = (/ & - &8.0311e-05 ,2.1623e-03 ,3.8730e-03 ,5.6513e-03 ,7.5603e-03 ,9.7064e-03 , & - &1.2306e-02 ,1.6419e-02 ,1.4857e-02 /) - kao(:, 1, 2, 5) = (/ & - &1.0510e-04 ,1.2010e-03 ,1.9708e-03 ,2.6863e-03 ,3.3801e-03 ,4.0401e-03 , & - &4.8065e-03 ,5.9839e-03 ,5.8720e-03 /) - kao(:, 2, 2, 5) = (/ & - &1.0618e-04 ,1.3719e-03 ,2.2892e-03 ,3.1040e-03 ,3.9264e-03 ,4.7961e-03 , & - &5.8356e-03 ,7.3351e-03 ,7.0925e-03 /) - kao(:, 3, 2, 5) = (/ & - &1.0689e-04 ,1.5661e-03 ,2.6266e-03 ,3.5943e-03 ,4.5681e-03 ,5.6180e-03 , & - &6.8759e-03 ,8.8640e-03 ,8.4509e-03 /) - kao(:, 4, 2, 5) = (/ & - &1.0861e-04 ,1.7752e-03 ,2.9853e-03 ,4.1453e-03 ,5.3192e-03 ,6.5973e-03 , & - &8.1274e-03 ,1.0456e-02 ,1.0031e-02 /) - kao(:, 5, 2, 5) = (/ & - &1.1004e-04 ,1.9945e-03 ,3.3831e-03 ,4.7368e-03 ,6.1454e-03 ,7.6846e-03 , & - &9.5320e-03 ,1.2312e-02 ,1.1757e-02 /) - kao(:, 1, 3, 5) = (/ & - &1.9166e-04 ,1.3172e-03 ,1.9278e-03 ,2.4677e-03 ,2.9707e-03 ,3.4895e-03 , & - &3.9440e-03 ,4.4484e-03 ,4.3497e-03 /) - kao(:, 2, 3, 5) = (/ & - &1.9336e-04 ,1.4888e-03 ,2.1997e-03 ,2.8500e-03 ,3.4656e-03 ,4.0405e-03 , & - &4.6494e-03 ,5.3886e-03 ,5.2876e-03 /) - kao(:, 3, 3, 5) = (/ & - &1.9552e-04 ,1.6719e-03 ,2.4978e-03 ,3.2794e-03 ,4.0171e-03 ,4.6883e-03 , & - &5.3810e-03 ,6.3663e-03 ,6.3594e-03 /) - kao(:, 4, 3, 5) = (/ & - &1.9793e-04 ,1.8618e-03 ,2.8193e-03 ,3.7421e-03 ,4.6002e-03 ,5.4246e-03 , & - &6.2790e-03 ,7.4939e-03 ,7.6260e-03 /) - kao(:, 5, 3, 5) = (/ & - &2.0202e-04 ,2.0622e-03 ,3.1772e-03 ,4.2408e-03 ,5.2345e-03 ,6.2239e-03 , & - &7.2922e-03 ,8.8196e-03 ,9.0035e-03 /) - kao(:, 1, 4, 5) = (/ & - &3.5080e-04 ,1.5106e-03 ,2.1048e-03 ,2.5530e-03 ,2.8923e-03 ,3.1426e-03 , & - &3.3832e-03 ,3.6360e-03 ,3.6099e-03 /) - kao(:, 2, 4, 5) = (/ & - &3.5494e-04 ,1.6898e-03 ,2.3828e-03 ,2.9160e-03 ,3.3056e-03 ,3.6304e-03 , & - &3.9520e-03 ,4.2994e-03 ,4.2882e-03 /) - kao(:, 3, 4, 5) = (/ & - &3.5978e-04 ,1.8836e-03 ,2.6877e-03 ,3.3008e-03 ,3.7593e-03 ,4.1815e-03 , & - &4.6053e-03 ,4.9917e-03 ,5.0514e-03 /) - kao(:, 4, 4, 5) = (/ & - &3.6746e-04 ,2.0763e-03 ,3.0082e-03 ,3.7203e-03 ,4.2549e-03 ,4.7934e-03 , & - &5.3242e-03 ,5.8169e-03 ,5.8760e-03 /) - kao(:, 5, 4, 5) = (/ & - &3.7911e-04 ,2.2831e-03 ,3.3520e-03 ,4.1619e-03 ,4.7913e-03 ,5.4605e-03 , & - &6.1003e-03 ,6.7476e-03 ,6.8032e-03 /) - kao(:, 1, 5, 5) = (/ & - &5.8701e-04 ,1.7294e-03 ,2.3007e-03 ,2.6940e-03 ,2.9671e-03 ,3.1134e-03 , & - &3.1768e-03 ,3.0490e-03 ,3.1049e-03 /) - kao(:, 2, 5, 5) = (/ & - &5.9308e-04 ,1.9111e-03 ,2.5835e-03 ,3.0407e-03 ,3.3851e-03 ,3.5845e-03 , & - &3.6445e-03 ,3.5746e-03 ,3.6940e-03 /) - kao(:, 3, 5, 5) = (/ & - &6.0356e-04 ,2.1186e-03 ,2.8868e-03 ,3.4242e-03 ,3.8486e-03 ,4.1112e-03 , & - &4.1722e-03 ,4.1940e-03 ,4.3605e-03 /) - kao(:, 4, 5, 5) = (/ & - &6.1818e-04 ,2.3278e-03 ,3.1936e-03 ,3.8321e-03 ,4.3352e-03 ,4.6666e-03 , & - &4.7552e-03 ,4.8779e-03 ,5.1110e-03 /) - kao(:, 5, 5, 5) = (/ & - &6.3535e-04 ,2.5512e-03 ,3.5322e-03 ,4.2882e-03 ,4.8679e-03 ,5.2358e-03 , & - &5.3921e-03 ,5.6199e-03 ,5.9412e-03 /) - kao(:, 1, 6, 5) = (/ & - &9.2532e-04 ,2.0015e-03 ,2.5277e-03 ,2.8421e-03 ,3.0437e-03 ,3.1018e-03 , & - &3.0296e-03 ,2.8221e-03 ,2.6040e-03 /) - kao(:, 2, 6, 5) = (/ & - &9.2928e-04 ,2.2000e-03 ,2.8005e-03 ,3.1777e-03 ,3.4468e-03 ,3.5577e-03 , & - &3.5029e-03 ,3.2686e-03 ,3.0871e-03 /) - kao(:, 3, 6, 5) = (/ & - &9.4818e-04 ,2.4342e-03 ,3.0892e-03 ,3.5513e-03 ,3.8786e-03 ,4.0485e-03 , & - &4.0367e-03 ,3.7564e-03 ,3.6084e-03 /) - kao(:, 4, 6, 5) = (/ & - &9.7245e-04 ,2.6688e-03 ,3.4060e-03 ,3.9527e-03 ,4.3416e-03 ,4.5754e-03 , & - &4.6140e-03 ,4.3161e-03 ,4.2427e-03 /) - kao(:, 5, 6, 5) = (/ & - &9.9339e-04 ,2.9158e-03 ,3.7426e-03 ,4.3630e-03 ,4.8503e-03 ,5.1436e-03 , & - &5.2166e-03 ,4.9082e-03 ,4.9378e-03 /) - kao(:, 1, 7, 5) = (/ & - &1.5302e-03 ,2.5414e-03 ,2.9540e-03 ,3.1974e-03 ,3.3103e-03 ,3.2792e-03 , & - &3.0626e-03 ,2.6477e-03 ,2.2296e-03 /) - kao(:, 2, 7, 5) = (/ & - &1.5437e-03 ,2.8069e-03 ,3.2725e-03 ,3.5730e-03 ,3.6894e-03 ,3.7000e-03 , & - &3.5141e-03 ,3.0866e-03 ,2.7517e-03 /) - kao(:, 3, 7, 5) = (/ & - &1.5828e-03 ,3.0663e-03 ,3.6143e-03 ,3.9451e-03 ,4.1195e-03 ,4.1576e-03 , & - &4.0163e-03 ,3.5822e-03 ,3.3032e-03 /) - kao(:, 4, 7, 5) = (/ & - &1.6196e-03 ,3.3257e-03 ,3.9578e-03 ,4.3834e-03 ,4.5853e-03 ,4.6606e-03 , & - &4.5385e-03 ,4.1261e-03 ,3.9000e-03 /) - kao(:, 5, 7, 5) = (/ & - &1.6660e-03 ,3.6179e-03 ,4.3451e-03 ,4.8226e-03 ,5.0668e-03 ,5.1930e-03 , & - &5.1180e-03 ,4.7030e-03 ,4.5474e-03 /) - kao(:, 1, 8, 5) = (/ & - &2.9602e-03 ,3.9304e-03 ,4.1580e-03 ,4.2228e-03 ,4.1165e-03 ,3.9147e-03 , & - &3.5216e-03 ,2.8265e-03 ,2.2242e-03 /) - kao(:, 2, 8, 5) = (/ & - &2.9996e-03 ,4.2668e-03 ,4.6028e-03 ,4.6806e-03 ,4.6212e-03 ,4.3859e-03 , & - &3.9542e-03 ,3.2447e-03 ,2.5165e-03 /) - kao(:, 3, 8, 5) = (/ & - &3.0790e-03 ,4.6440e-03 ,5.0256e-03 ,5.1447e-03 ,5.1348e-03 ,4.8892e-03 , & - &4.4430e-03 ,3.7287e-03 ,2.9386e-03 /) - kao(:, 4, 8, 5) = (/ & - &3.1467e-03 ,5.0515e-03 ,5.4655e-03 ,5.6295e-03 ,5.6440e-03 ,5.4532e-03 , & - &4.9689e-03 ,4.2347e-03 ,3.5150e-03 /) - kao(:, 5, 8, 5) = (/ & - &3.2473e-03 ,5.4319e-03 ,5.9099e-03 ,6.1513e-03 ,6.2421e-03 ,6.0606e-03 , & - &5.5483e-03 ,4.7752e-03 ,4.1476e-03 /) - kao(:, 1, 9, 5) = (/ & - &1.0715e-02 ,1.1382e-02 ,1.0899e-02 ,1.0007e-02 ,9.0437e-03 ,7.6976e-03 , & - &6.2825e-03 ,4.4971e-03 ,3.7652e-03 /) - kao(:, 2, 9, 5) = (/ & - &1.0909e-02 ,1.1862e-02 ,1.1397e-02 ,1.0777e-02 ,9.8877e-03 ,8.5937e-03 , & - &7.0755e-03 ,5.0938e-03 ,4.2507e-03 /) - kao(:, 3, 9, 5) = (/ & - &1.1246e-02 ,1.2418e-02 ,1.2293e-02 ,1.1701e-02 ,1.0880e-02 ,9.4889e-03 , & - &7.8244e-03 ,5.6718e-03 ,4.5213e-03 /) - kao(:, 4, 9, 5) = (/ & - &1.1484e-02 ,1.3245e-02 ,1.3252e-02 ,1.2816e-02 ,1.1850e-02 ,1.0328e-02 , & - &8.6168e-03 ,6.3257e-03 ,4.7999e-03 /) - kao(:, 5, 9, 5) = (/ & - &1.1883e-02 ,1.4169e-02 ,1.4256e-02 ,1.3856e-02 ,1.2835e-02 ,1.1196e-02 , & - &9.4286e-03 ,7.0084e-03 ,5.1834e-03 /) - kao(:, 1,10, 5) = (/ & - &4.3348e-02 ,4.0646e-02 ,3.6539e-02 ,3.2078e-02 ,2.7151e-02 ,2.1841e-02 , & - &1.6185e-02 ,9.9201e-03 ,6.7193e-03 /) - kao(:, 2,10, 5) = (/ & - &4.4149e-02 ,4.2066e-02 ,3.8091e-02 ,3.3609e-02 ,2.8552e-02 ,2.2983e-02 , & - &1.7376e-02 ,1.1009e-02 ,7.5436e-03 /) - kao(:, 3,10, 5) = (/ & - &4.5674e-02 ,4.3639e-02 ,3.9624e-02 ,3.4947e-02 ,3.0188e-02 ,2.4887e-02 , & - &1.8903e-02 ,1.2177e-02 ,8.3556e-03 /) - kao(:, 4,10, 5) = (/ & - &4.6947e-02 ,4.5302e-02 ,4.1477e-02 ,3.7249e-02 ,3.2588e-02 ,2.6746e-02 , & - &2.0815e-02 ,1.3320e-02 ,9.0276e-03 /) - kao(:, 5,10, 5) = (/ & - &4.8633e-02 ,4.7885e-02 ,4.4096e-02 ,3.9864e-02 ,3.4957e-02 ,2.9104e-02 , & - &2.2653e-02 ,1.4428e-02 ,9.7333e-03 /) - kao(:, 1,11, 5) = (/ & - &6.1692e-02 ,5.6780e-02 ,5.0232e-02 ,4.3693e-02 ,3.6664e-02 ,2.9101e-02 , & - &2.1139e-02 ,1.2500e-02 ,7.3091e-03 /) - kao(:, 2,11, 5) = (/ & - &6.3633e-02 ,5.9268e-02 ,5.2865e-02 ,4.5871e-02 ,3.8419e-02 ,3.0609e-02 , & - &2.2496e-02 ,1.3660e-02 ,8.2073e-03 /) - kao(:, 3,11, 5) = (/ & - &6.5598e-02 ,6.1281e-02 ,5.4828e-02 ,4.7713e-02 ,4.0401e-02 ,3.2790e-02 , & - &2.4296e-02 ,1.5126e-02 ,8.8706e-03 /) - kao(:, 4,11, 5) = (/ & - &6.7575e-02 ,6.3884e-02 ,5.7739e-02 ,5.0715e-02 ,4.3385e-02 ,3.5358e-02 , & - &2.6343e-02 ,1.6652e-02 ,9.5120e-03 /) - kao(:, 5,11, 5) = (/ & - &7.0953e-02 ,6.7728e-02 ,6.1195e-02 ,5.3939e-02 ,4.6283e-02 ,3.8093e-02 , & - &2.8648e-02 ,1.8051e-02 ,1.0472e-02 /) - kao(:, 1,12, 5) = (/ & - &6.6289e-02 ,6.0781e-02 ,5.3636e-02 ,4.6304e-02 ,3.8429e-02 ,3.0261e-02 , & - &2.1777e-02 ,1.2752e-02 ,6.7746e-03 /) - kao(:, 2,12, 5) = (/ & - &6.8551e-02 ,6.3174e-02 ,5.6063e-02 ,4.8348e-02 ,4.0059e-02 ,3.1785e-02 , & - &2.3315e-02 ,1.3856e-02 ,7.6622e-03 /) - kao(:, 3,12, 5) = (/ & - &7.0441e-02 ,6.5327e-02 ,5.8258e-02 ,5.0611e-02 ,4.2587e-02 ,3.4170e-02 , & - &2.5237e-02 ,1.5295e-02 ,8.3950e-03 /) - kao(:, 4,12, 5) = (/ & - &7.3259e-02 ,6.8842e-02 ,6.1685e-02 ,5.3758e-02 ,4.5436e-02 ,3.6706e-02 , & - &2.7377e-02 ,1.6771e-02 ,8.9439e-03 /) - kao(:, 5,12, 5) = (/ & - &7.7467e-02 ,7.3081e-02 ,6.5449e-02 ,5.7418e-02 ,4.8677e-02 ,3.9671e-02 , & - &2.9550e-02 ,1.8202e-02 ,9.6319e-03 /) - kao(:, 1,13, 5) = (/ & - &5.6671e-02 ,5.1982e-02 ,4.5878e-02 ,3.9500e-02 ,3.2807e-02 ,2.5894e-02 , & - &1.8717e-02 ,1.0942e-02 ,5.7523e-03 /) - kao(:, 2,13, 5) = (/ & - &5.8577e-02 ,5.4011e-02 ,4.7896e-02 ,4.1459e-02 ,3.4661e-02 ,2.7671e-02 , & - &2.0186e-02 ,1.2025e-02 ,6.4664e-03 /) - kao(:, 3,13, 5) = (/ & - &6.0296e-02 ,5.6294e-02 ,5.0261e-02 ,4.3702e-02 ,3.6751e-02 ,2.9579e-02 , & - &2.1985e-02 ,1.3253e-02 ,7.0517e-03 /) - kao(:, 4,13, 5) = (/ & - &6.3403e-02 ,5.9492e-02 ,5.3202e-02 ,4.6643e-02 ,3.9435e-02 ,3.1951e-02 , & - &2.3841e-02 ,1.4493e-02 ,7.4965e-03 /) - kao(:, 5,13, 5) = (/ & - &6.7016e-02 ,6.3341e-02 ,5.7105e-02 ,5.0058e-02 ,4.2357e-02 ,3.4571e-02 , & - &2.5674e-02 ,1.5753e-02 ,8.1075e-03 /) - kao(:, 1, 1, 6) = (/ & - &1.5042e-04 ,2.4198e-03 ,4.3016e-03 ,6.2979e-03 ,8.5168e-03 ,1.0968e-02 , & - &1.3929e-02 ,1.8584e-02 ,1.6834e-02 /) - kao(:, 2, 1, 6) = (/ & - &1.5402e-04 ,2.7874e-03 ,5.0906e-03 ,7.5405e-03 ,1.0172e-02 ,1.3049e-02 , & - &1.6523e-02 ,2.2172e-02 ,2.0134e-02 /) - kao(:, 3, 1, 6) = (/ & - &1.5658e-04 ,3.2116e-03 ,5.9652e-03 ,8.9274e-03 ,1.2070e-02 ,1.5491e-02 , & - &1.9553e-02 ,2.6056e-02 ,2.3919e-02 /) - kao(:, 4, 1, 6) = (/ & - &1.5960e-04 ,3.6836e-03 ,6.9617e-03 ,1.0460e-02 ,1.4154e-02 ,1.8205e-02 , & - &2.3055e-02 ,3.0555e-02 ,2.8089e-02 /) - kao(:, 5, 1, 6) = (/ & - &1.6165e-04 ,4.2037e-03 ,8.0817e-03 ,1.2177e-02 ,1.6484e-02 ,2.1191e-02 , & - &2.6875e-02 ,3.5769e-02 ,3.2739e-02 /) - kao(:, 1, 2, 6) = (/ & - &2.0998e-04 ,2.2589e-03 ,3.7899e-03 ,5.2410e-03 ,6.7744e-03 ,8.5703e-03 , & - &1.0697e-02 ,1.3881e-02 ,1.3198e-02 /) - kao(:, 2, 2, 6) = (/ & - &2.1456e-04 ,2.6007e-03 ,4.3946e-03 ,6.1987e-03 ,8.1361e-03 ,1.0272e-02 , & - &1.2733e-02 ,1.6541e-02 ,1.5875e-02 /) - kao(:, 3, 2, 6) = (/ & - &2.1842e-04 ,2.9560e-03 ,5.0887e-03 ,7.2752e-03 ,9.6552e-03 ,1.2252e-02 , & - &1.5232e-02 ,1.9582e-02 ,1.8968e-02 /) - kao(:, 4, 2, 6) = (/ & - &2.2236e-04 ,3.3459e-03 ,5.8736e-03 ,8.5067e-03 ,1.1349e-02 ,1.4414e-02 , & - &1.7964e-02 ,2.3187e-02 ,2.2355e-02 /) - kao(:, 5, 2, 6) = (/ & - &2.2547e-04 ,3.7713e-03 ,6.7501e-03 ,9.9039e-03 ,1.3264e-02 ,1.6870e-02 , & - &2.1032e-02 ,2.7154e-02 ,2.6176e-02 /) - kao(:, 1, 3, 6) = (/ & - &3.8749e-04 ,2.3567e-03 ,3.5784e-03 ,4.7302e-03 ,5.7992e-03 ,6.7584e-03 , & - &7.8929e-03 ,9.6810e-03 ,9.8950e-03 /) - kao(:, 2, 3, 6) = (/ & - &3.9603e-04 ,2.6464e-03 ,4.1366e-03 ,5.5007e-03 ,6.7822e-03 ,8.0470e-03 , & - &9.4913e-03 ,1.1619e-02 ,1.2036e-02 /) - kao(:, 3, 3, 6) = (/ & - &4.0456e-04 ,2.9559e-03 ,4.7389e-03 ,6.3508e-03 ,7.8799e-03 ,9.4907e-03 , & - &1.1392e-02 ,1.3956e-02 ,1.4457e-02 /) - kao(:, 4, 3, 6) = (/ & - &4.1360e-04 ,3.3032e-03 ,5.4024e-03 ,7.2987e-03 ,9.1447e-03 ,1.1131e-02 , & - &1.3466e-02 ,1.6568e-02 ,1.7113e-02 /) - kao(:, 5, 3, 6) = (/ & - &4.1860e-04 ,3.6941e-03 ,6.1025e-03 ,8.3274e-03 ,1.0570e-02 ,1.3013e-02 , & - &1.5813e-02 ,1.9496e-02 ,2.0111e-02 /) - kao(:, 1, 4, 6) = (/ & - &7.1991e-04 ,2.8586e-03 ,3.8493e-03 ,4.6115e-03 ,5.2750e-03 ,5.9823e-03 , & - &6.5939e-03 ,7.1204e-03 ,6.9950e-03 /) - kao(:, 2, 4, 6) = (/ & - &7.3932e-04 ,3.1546e-03 ,4.3292e-03 ,5.2487e-03 ,6.1632e-03 ,7.0322e-03 , & - &7.8025e-03 ,8.5583e-03 ,8.4949e-03 /) - kao(:, 3, 4, 6) = (/ & - &7.5829e-04 ,3.4592e-03 ,4.8355e-03 ,5.9709e-03 ,7.1395e-03 ,8.1909e-03 , & - &9.1159e-03 ,1.0292e-02 ,1.0335e-02 /) - kao(:, 4, 4, 6) = (/ & - &7.6959e-04 ,3.8025e-03 ,5.3880e-03 ,6.7853e-03 ,8.1872e-03 ,9.4673e-03 , & - &1.0631e-02 ,1.2218e-02 ,1.2516e-02 /) - kao(:, 5, 4, 6) = (/ & - &7.7964e-04 ,4.1796e-03 ,5.9947e-03 ,7.6582e-03 ,9.3446e-03 ,1.0850e-02 , & - &1.2339e-02 ,1.4388e-02 ,1.5009e-02 /) - kao(:, 1, 5, 6) = (/ & - &1.2241e-03 ,3.4685e-03 ,4.4046e-03 ,5.0844e-03 ,5.4871e-03 ,5.7179e-03 , & - &5.7620e-03 ,5.9818e-03 ,6.1472e-03 /) - kao(:, 2, 5, 6) = (/ & - &1.2601e-03 ,3.8071e-03 ,4.8995e-03 ,5.7159e-03 ,6.2114e-03 ,6.5597e-03 , & - &6.8164e-03 ,7.1370e-03 ,7.3501e-03 /) - kao(:, 3, 5, 6) = (/ & - &1.2927e-03 ,4.1224e-03 ,5.4389e-03 ,6.3889e-03 ,6.9938e-03 ,7.4901e-03 , & - &7.9768e-03 ,8.3697e-03 ,8.6918e-03 /) - kao(:, 4, 5, 6) = (/ & - &1.3168e-03 ,4.4980e-03 ,6.0112e-03 ,7.1194e-03 ,7.8654e-03 ,8.4979e-03 , & - &9.2325e-03 ,9.7616e-03 ,1.0181e-02 /) - kao(:, 5, 5, 6) = (/ & - &1.3499e-03 ,4.8864e-03 ,6.6201e-03 ,7.8699e-03 ,8.7970e-03 ,9.6632e-03 , & - &1.0606e-02 ,1.1344e-02 ,1.1812e-02 /) - kao(:, 1, 6, 6) = (/ & - &1.9359e-03 ,4.1954e-03 ,5.0050e-03 ,5.5462e-03 ,5.8539e-03 ,5.9443e-03 , & - &5.7417e-03 ,5.1473e-03 ,5.2472e-03 /) - kao(:, 2, 6, 6) = (/ & - &2.0045e-03 ,4.5957e-03 ,5.5374e-03 ,6.1876e-03 ,6.5964e-03 ,6.7501e-03 , & - &6.5907e-03 ,6.0581e-03 ,6.2872e-03 /) - kao(:, 3, 6, 6) = (/ & - &2.0656e-03 ,4.9538e-03 ,6.0748e-03 ,6.8772e-03 ,7.3778e-03 ,7.6157e-03 , & - &7.5054e-03 ,7.1291e-03 ,7.4717e-03 /) - kao(:, 4, 6, 6) = (/ & - &2.1235e-03 ,5.3117e-03 ,6.6418e-03 ,7.6042e-03 ,8.2374e-03 ,8.5589e-03 , & - &8.5173e-03 ,8.3153e-03 ,8.7345e-03 /) - kao(:, 5, 6, 6) = (/ & - &2.1708e-03 ,5.7022e-03 ,7.2758e-03 ,8.4071e-03 ,9.1623e-03 ,9.5678e-03 , & - &9.5860e-03 ,9.6197e-03 ,1.0118e-02 /) - kao(:, 1, 7, 6) = (/ & - &3.2088e-03 ,5.3976e-03 ,6.1152e-03 ,6.4273e-03 ,6.5565e-03 ,6.4169e-03 , & - &6.0483e-03 ,5.1718e-03 ,4.3840e-03 /) - kao(:, 2, 7, 6) = (/ & - &3.3329e-03 ,5.8617e-03 ,6.7065e-03 ,7.1293e-03 ,7.3332e-03 ,7.2483e-03 , & - &6.8991e-03 ,6.0070e-03 ,5.1893e-03 /) - kao(:, 3, 7, 6) = (/ & - &3.4526e-03 ,6.3215e-03 ,7.2907e-03 ,7.8484e-03 ,8.1105e-03 ,8.1244e-03 , & - &7.7961e-03 ,6.9012e-03 ,6.1115e-03 /) - kao(:, 4, 7, 6) = (/ & - &3.5398e-03 ,6.7841e-03 ,7.9069e-03 ,8.5448e-03 ,8.9613e-03 ,9.0608e-03 , & - &8.7760e-03 ,7.8768e-03 ,7.1030e-03 /) - kao(:, 5, 7, 6) = (/ & - &3.6419e-03 ,7.2100e-03 ,8.5218e-03 ,9.3036e-03 ,9.8959e-03 ,1.0073e-02 , & - &9.8505e-03 ,8.9292e-03 ,8.2308e-03 /) - kao(:, 1, 8, 6) = (/ & - &6.2734e-03 ,8.1929e-03 ,8.7347e-03 ,8.8396e-03 ,8.5498e-03 ,7.9153e-03 , & - &7.0346e-03 ,5.6808e-03 ,4.1552e-03 /) - kao(:, 2, 8, 6) = (/ & - &6.5441e-03 ,8.8580e-03 ,9.5108e-03 ,9.7024e-03 ,9.3653e-03 ,8.8364e-03 , & - &7.9480e-03 ,6.5304e-03 ,4.9813e-03 /) - kao(:, 3, 8, 6) = (/ & - &6.7938e-03 ,9.5212e-03 ,1.0312e-02 ,1.0573e-02 ,1.0260e-02 ,9.7376e-03 , & - &8.8728e-03 ,7.4306e-03 ,5.9661e-03 /) - kao(:, 4, 8, 6) = (/ & - &6.9763e-03 ,1.0160e-02 ,1.1107e-02 ,1.1420e-02 ,1.1193e-02 ,1.0684e-02 , & - &9.8581e-03 ,8.3990e-03 ,6.9644e-03 /) - kao(:, 5, 8, 6) = (/ & - &7.1912e-03 ,1.0832e-02 ,1.1979e-02 ,1.2319e-02 ,1.2084e-02 ,1.1646e-02 , & - &1.0942e-02 ,9.4605e-03 ,8.0079e-03 /) - kao(:, 1, 9, 6) = (/ & - &2.3423e-02 ,2.3874e-02 ,2.2570e-02 ,2.0907e-02 ,1.8747e-02 ,1.6279e-02 , & - &1.3268e-02 ,9.1967e-03 ,5.4472e-03 /) - kao(:, 2, 9, 6) = (/ & - &2.4372e-02 ,2.5487e-02 ,2.4526e-02 ,2.2806e-02 ,2.0430e-02 ,1.7721e-02 , & - &1.4547e-02 ,1.0257e-02 ,5.8874e-03 /) - kao(:, 3, 9, 6) = (/ & - &2.5322e-02 ,2.7228e-02 ,2.6228e-02 ,2.4576e-02 ,2.2164e-02 ,1.9365e-02 , & - &1.5921e-02 ,1.1389e-02 ,6.8168e-03 /) - kao(:, 4, 9, 6) = (/ & - &2.6144e-02 ,2.8709e-02 ,2.7958e-02 ,2.6366e-02 ,2.3791e-02 ,2.0979e-02 , & - &1.7361e-02 ,1.2542e-02 ,7.8623e-03 /) - kao(:, 5, 9, 6) = (/ & - &2.7002e-02 ,3.0246e-02 ,2.9564e-02 ,2.8028e-02 ,2.5537e-02 ,2.2731e-02 , & - &1.8860e-02 ,1.3722e-02 ,9.0318e-03 /) - kao(:, 1,10, 6) = (/ & - &9.6759e-02 ,8.9920e-02 ,8.0281e-02 ,6.9298e-02 ,5.8160e-02 ,4.6685e-02 , & - &3.4489e-02 ,2.1137e-02 ,9.1317e-03 /) - kao(:, 2,10, 6) = (/ & - &1.0130e-01 ,9.4928e-02 ,8.5063e-02 ,7.4190e-02 ,6.2751e-02 ,5.0819e-02 , & - &3.7815e-02 ,2.3107e-02 ,9.7753e-03 /) - kao(:, 3,10, 6) = (/ & - &1.0500e-01 ,9.9899e-02 ,9.0245e-02 ,7.9682e-02 ,6.7667e-02 ,5.4638e-02 , & - &4.0873e-02 ,2.5040e-02 ,1.0330e-02 /) - kao(:, 4,10, 6) = (/ & - &1.0896e-01 ,1.0463e-01 ,9.5171e-02 ,8.3946e-02 ,7.1420e-02 ,5.8144e-02 , & - &4.3799e-02 ,2.7205e-02 ,1.1084e-02 /) - kao(:, 5,10, 6) = (/ & - &1.1285e-01 ,1.0942e-01 ,9.9931e-02 ,8.8439e-02 ,7.5783e-02 ,6.1708e-02 , & - &4.6484e-02 ,2.9531e-02 ,1.2060e-02 /) - kao(:, 1,11, 6) = (/ & - &1.4204e-01 ,1.2997e-01 ,1.1520e-01 ,9.8769e-02 ,8.1420e-02 ,6.4217e-02 , & - &4.6399e-02 ,2.7414e-02 ,9.3511e-03 /) - kao(:, 2,11, 6) = (/ & - &1.4781e-01 ,1.3669e-01 ,1.2188e-01 ,1.0492e-01 ,8.7668e-02 ,6.9566e-02 , & - &5.0549e-02 ,3.0014e-02 ,1.0330e-02 /) - kao(:, 3,11, 6) = (/ & - &1.5380e-01 ,1.4353e-01 ,1.2793e-01 ,1.1113e-01 ,9.3325e-02 ,7.4108e-02 , & - &5.4029e-02 ,3.2498e-02 ,1.1533e-02 /) - kao(:, 4,11, 6) = (/ & - &1.6004e-01 ,1.5059e-01 ,1.3460e-01 ,1.1704e-01 ,9.8404e-02 ,7.8709e-02 , & - &5.7847e-02 ,3.4798e-02 ,1.2510e-02 /) - kao(:, 5,11, 6) = (/ & - &1.6529e-01 ,1.5606e-01 ,1.4056e-01 ,1.2310e-01 ,1.0396e-01 ,8.3240e-02 , & - &6.1355e-02 ,3.7415e-02 ,1.3283e-02 /) - kao(:, 1,12, 6) = (/ & - &1.5238e-01 ,1.3897e-01 ,1.2274e-01 ,1.0509e-01 ,8.6816e-02 ,6.8213e-02 , & - &4.8813e-02 ,2.8303e-02 ,8.9094e-03 /) - kao(:, 2,12, 6) = (/ & - &1.5887e-01 ,1.4598e-01 ,1.2939e-01 ,1.1123e-01 ,9.2497e-02 ,7.3141e-02 , & - &5.2574e-02 ,3.0889e-02 ,9.4910e-03 /) - kao(:, 3,12, 6) = (/ & - &1.6583e-01 ,1.5402e-01 ,1.3664e-01 ,1.1788e-01 ,9.8276e-02 ,7.7826e-02 , & - &5.6134e-02 ,3.3329e-02 ,1.0354e-02 /) - kao(:, 4,12, 6) = (/ & - &1.7232e-01 ,1.6056e-01 ,1.4294e-01 ,1.2398e-01 ,1.0387e-01 ,8.2524e-02 , & - &5.9981e-02 ,3.5800e-02 ,1.1471e-02 /) - kao(:, 5,12, 6) = (/ & - &1.7822e-01 ,1.6713e-01 ,1.4985e-01 ,1.3045e-01 ,1.0965e-01 ,8.7208e-02 , & - &6.3531e-02 ,3.8400e-02 ,1.2648e-02 /) - kao(:, 1,13, 6) = (/ & - &1.2851e-01 ,1.1760e-01 ,1.0432e-01 ,8.9471e-02 ,7.3952e-02 ,5.7965e-02 , & - &4.1571e-02 ,2.4244e-02 ,7.5271e-03 /) - kao(:, 2,13, 6) = (/ & - &1.3461e-01 ,1.2431e-01 ,1.1020e-01 ,9.4715e-02 ,7.8713e-02 ,6.2191e-02 , & - &4.4720e-02 ,2.6349e-02 ,7.9374e-03 /) - kao(:, 3,13, 6) = (/ & - &1.4091e-01 ,1.3079e-01 ,1.1585e-01 ,1.0015e-01 ,8.3554e-02 ,6.6181e-02 , & - &4.7816e-02 ,2.8551e-02 ,8.7113e-03 /) - kao(:, 4,13, 6) = (/ & - &1.4657e-01 ,1.3673e-01 ,1.2189e-01 ,1.0573e-01 ,8.8680e-02 ,7.0418e-02 , & - &5.0990e-02 ,3.0632e-02 ,9.8158e-03 /) - kao(:, 5,13, 6) = (/ & - &1.5197e-01 ,1.4281e-01 ,1.2778e-01 ,1.1111e-01 ,9.3402e-02 ,7.4099e-02 , & - &5.4192e-02 ,3.2952e-02 ,1.0865e-02 /) - kao(:, 1, 1, 7) = (/ & - &2.9775e-04 ,4.9903e-03 ,9.5966e-03 ,1.4458e-02 ,1.9550e-02 ,2.5066e-02 , & - &3.1548e-02 ,4.0907e-02 ,3.8920e-02 /) - kao(:, 2, 1, 7) = (/ & - &2.9974e-04 ,5.8708e-03 ,1.1484e-02 ,1.7340e-02 ,2.3486e-02 ,3.0156e-02 , & - &3.8022e-02 ,4.9522e-02 ,4.6798e-02 /) - kao(:, 3, 1, 7) = (/ & - &3.0249e-04 ,6.8379e-03 ,1.3523e-02 ,2.0453e-02 ,2.7734e-02 ,3.5680e-02 , & - &4.5116e-02 ,5.8960e-02 ,5.5301e-02 /) - kao(:, 4, 1, 7) = (/ & - &3.0505e-04 ,7.9161e-03 ,1.5750e-02 ,2.3843e-02 ,3.2353e-02 ,4.1634e-02 , & - &5.2683e-02 ,6.9279e-02 ,6.4544e-02 /) - kao(:, 5, 1, 7) = (/ & - &3.0784e-04 ,9.1145e-03 ,1.8178e-02 ,2.7529e-02 ,3.7353e-02 ,4.8074e-02 , & - &6.0824e-02 ,8.0052e-02 ,7.4551e-02 /) - kao(:, 1, 2, 7) = (/ & - &4.4044e-04 ,4.5745e-03 ,7.9442e-03 ,1.1658e-02 ,1.5612e-02 ,1.9809e-02 , & - &2.4586e-02 ,3.1373e-02 ,3.0910e-02 /) - kao(:, 2, 2, 7) = (/ & - &4.4502e-04 ,5.2457e-03 ,9.4321e-03 ,1.4009e-02 ,1.8804e-02 ,2.3915e-02 , & - &2.9756e-02 ,3.8088e-02 ,3.7317e-02 /) - kao(:, 3, 2, 7) = (/ & - &4.4893e-04 ,5.9898e-03 ,1.1101e-02 ,1.6604e-02 ,2.2319e-02 ,2.8413e-02 , & - &3.5386e-02 ,4.5425e-02 ,4.4358e-02 /) - kao(:, 4, 2, 7) = (/ & - &4.5303e-04 ,6.8346e-03 ,1.2966e-02 ,1.9451e-02 ,2.6168e-02 ,3.3333e-02 , & - &4.1534e-02 ,5.3372e-02 ,5.2063e-02 /) - kao(:, 5, 2, 7) = (/ & - &4.5653e-04 ,7.7989e-03 ,1.5045e-02 ,2.2592e-02 ,3.0407e-02 ,3.8717e-02 , & - &4.8217e-02 ,6.1953e-02 ,6.0541e-02 /) - kao(:, 1, 3, 7) = (/ & - &8.7011e-04 ,4.7519e-03 ,7.4191e-03 ,9.7724e-03 ,1.2242e-02 ,1.5076e-02 , & - &1.8293e-02 ,2.2402e-02 ,2.3454e-02 /) - kao(:, 2, 3, 7) = (/ & - &8.7761e-04 ,5.4004e-03 ,8.5169e-03 ,1.1449e-02 ,1.4656e-02 ,1.8245e-02 , & - &2.2203e-02 ,2.7303e-02 ,2.8468e-02 /) - kao(:, 3, 3, 7) = (/ & - &8.8555e-04 ,6.0960e-03 ,9.7399e-03 ,1.3383e-02 ,1.7420e-02 ,2.1805e-02 , & - &2.6578e-02 ,3.2747e-02 ,3.4102e-02 /) - kao(:, 4, 3, 7) = (/ & - &8.8837e-04 ,6.8303e-03 ,1.1116e-02 ,1.5598e-02 ,2.0532e-02 ,2.5757e-02 , & - &3.1445e-02 ,3.8773e-02 ,4.0387e-02 /) - kao(:, 5, 3, 7) = (/ & - &8.9568e-04 ,7.6159e-03 ,1.2685e-02 ,1.8136e-02 ,2.4011e-02 ,3.0157e-02 , & - &3.6817e-02 ,4.5383e-02 ,4.7355e-02 /) - kao(:, 1, 4, 7) = (/ & - &1.7216e-03 ,5.6014e-03 ,7.5736e-03 ,9.4674e-03 ,1.1191e-02 ,1.2535e-02 , & - &1.3987e-02 ,1.6268e-02 ,1.7296e-02 /) - kao(:, 2, 4, 7) = (/ & - &1.7298e-03 ,6.1879e-03 ,8.6832e-03 ,1.0978e-02 ,1.2974e-02 ,1.4749e-02 , & - &1.6870e-02 ,1.9909e-02 ,2.1431e-02 /) - kao(:, 3, 4, 7) = (/ & - &1.7341e-03 ,6.8367e-03 ,9.8584e-03 ,1.2616e-02 ,1.4944e-02 ,1.7324e-02 , & - &2.0237e-02 ,2.4035e-02 ,2.5998e-02 /) - kao(:, 4, 4, 7) = (/ & - &1.7534e-03 ,7.5128e-03 ,1.1127e-02 ,1.4362e-02 ,1.7213e-02 ,2.0310e-02 , & - &2.4053e-02 ,2.8665e-02 ,3.1074e-02 /) - kao(:, 5, 4, 7) = (/ & - &1.7641e-03 ,8.2760e-03 ,1.2507e-02 ,1.6268e-02 ,1.9802e-02 ,2.3773e-02 , & - &2.8361e-02 ,3.3846e-02 ,3.6727e-02 /) - kao(:, 1, 5, 7) = (/ & - &3.0539e-03 ,7.3205e-03 ,8.9564e-03 ,9.9240e-03 ,1.0675e-02 ,1.1625e-02 , & - &1.2424e-02 ,1.2649e-02 ,1.2475e-02 /) - kao(:, 2, 5, 7) = (/ & - &3.0697e-03 ,8.0642e-03 ,9.9550e-03 ,1.1166e-02 ,1.2428e-02 ,1.3587e-02 , & - &1.4545e-02 ,1.5222e-02 ,1.4936e-02 /) - kao(:, 3, 5, 7) = (/ & - &3.0978e-03 ,8.8320e-03 ,1.1001e-02 ,1.2560e-02 ,1.4306e-02 ,1.5802e-02 , & - &1.6906e-02 ,1.8302e-02 ,1.7957e-02 /) - kao(:, 4, 5, 7) = (/ & - &3.1191e-03 ,9.5288e-03 ,1.2130e-02 ,1.4148e-02 ,1.6348e-02 ,1.8245e-02 , & - &1.9668e-02 ,2.1849e-02 ,2.2010e-02 /) - kao(:, 5, 5, 7) = (/ & - &3.1173e-03 ,1.0269e-02 ,1.3281e-02 ,1.5937e-02 ,1.8604e-02 ,2.0861e-02 , & - &2.2868e-02 ,2.5903e-02 ,2.6735e-02 /) - kao(:, 1, 6, 7) = (/ & - &4.9571e-03 ,9.1596e-03 ,1.0920e-02 ,1.1683e-02 ,1.1947e-02 ,1.1808e-02 , & - &1.1212e-02 ,1.1074e-02 ,1.1113e-02 /) - kao(:, 2, 6, 7) = (/ & - &5.0027e-03 ,9.9969e-03 ,1.2157e-02 ,1.3082e-02 ,1.3449e-02 ,1.3422e-02 , & - &1.3156e-02 ,1.3134e-02 ,1.3279e-02 /) - kao(:, 3, 6, 7) = (/ & - &5.0299e-03 ,1.0940e-02 ,1.3400e-02 ,1.4481e-02 ,1.5090e-02 ,1.5137e-02 , & - &1.5334e-02 ,1.5370e-02 ,1.5787e-02 /) - kao(:, 4, 6, 7) = (/ & - &5.0401e-03 ,1.1872e-02 ,1.4616e-02 ,1.5947e-02 ,1.6778e-02 ,1.7087e-02 , & - &1.7734e-02 ,1.7868e-02 ,1.8548e-02 /) - kao(:, 5, 6, 7) = (/ & - &5.0929e-03 ,1.2799e-02 ,1.5866e-02 ,1.7551e-02 ,1.8584e-02 ,1.9414e-02 , & - &2.0410e-02 ,2.0816e-02 ,2.1713e-02 /) - kao(:, 1, 7, 7) = (/ & - &8.4314e-03 ,1.2463e-02 ,1.3843e-02 ,1.4407e-02 ,1.4329e-02 ,1.3643e-02 , & - &1.2423e-02 ,1.0398e-02 ,1.0049e-02 /) - kao(:, 2, 7, 7) = (/ & - &8.4877e-03 ,1.3426e-02 ,1.5237e-02 ,1.6099e-02 ,1.6143e-02 ,1.5465e-02 , & - &1.4143e-02 ,1.1980e-02 ,1.1912e-02 /) - kao(:, 3, 7, 7) = (/ & - &8.5061e-03 ,1.4450e-02 ,1.6739e-02 ,1.7865e-02 ,1.8006e-02 ,1.7376e-02 , & - &1.5998e-02 ,1.3868e-02 ,1.3962e-02 /) - kao(:, 4, 7, 7) = (/ & - &8.5919e-03 ,1.5490e-02 ,1.8250e-02 ,1.9632e-02 ,1.9933e-02 ,1.9343e-02 , & - &1.7978e-02 ,1.6120e-02 ,1.6346e-02 /) - kao(:, 5, 7, 7) = (/ & - &8.6244e-03 ,1.6546e-02 ,1.9762e-02 ,2.1475e-02 ,2.1907e-02 ,2.1414e-02 , & - &2.0099e-02 ,1.8617e-02 ,1.9113e-02 /) - kao(:, 1, 8, 7) = (/ & - &1.6801e-02 ,2.0166e-02 ,2.0707e-02 ,2.0359e-02 ,1.9438e-02 ,1.7889e-02 , & - &1.5556e-02 ,1.2093e-02 ,8.8687e-03 /) - kao(:, 2, 8, 7) = (/ & - &1.6841e-02 ,2.1258e-02 ,2.2460e-02 ,2.2381e-02 ,2.1605e-02 ,2.0124e-02 , & - &1.7632e-02 ,1.3928e-02 ,1.0513e-02 /) - kao(:, 3, 8, 7) = (/ & - &1.6945e-02 ,2.2389e-02 ,2.4138e-02 ,2.4525e-02 ,2.3968e-02 ,2.2498e-02 , & - &1.9836e-02 ,1.5792e-02 ,1.2224e-02 /) - kao(:, 4, 8, 7) = (/ & - &1.7081e-02 ,2.3610e-02 ,2.5903e-02 ,2.6682e-02 ,2.6351e-02 ,2.4884e-02 , & - &2.2197e-02 ,1.7790e-02 ,1.4133e-02 /) - kao(:, 5, 8, 7) = (/ & - &1.7107e-02 ,2.4831e-02 ,2.7681e-02 ,2.8814e-02 ,2.8766e-02 ,2.7453e-02 , & - &2.4610e-02 ,1.9914e-02 ,1.6383e-02 /) - kao(:, 1, 9, 7) = (/ & - &6.2717e-02 ,6.2735e-02 ,5.8603e-02 ,5.2748e-02 ,4.6263e-02 ,3.9117e-02 , & - &3.0759e-02 ,2.1087e-02 ,9.9200e-03 /) - kao(:, 2, 9, 7) = (/ & - &6.3094e-02 ,6.4670e-02 ,6.0602e-02 ,5.5392e-02 ,4.9420e-02 ,4.2558e-02 , & - &3.4002e-02 ,2.3733e-02 ,1.2138e-02 /) - kao(:, 3, 9, 7) = (/ & - &6.3563e-02 ,6.6269e-02 ,6.3058e-02 ,5.8357e-02 ,5.2632e-02 ,4.5743e-02 , & - &3.7261e-02 ,2.6594e-02 ,1.4716e-02 /) - kao(:, 4, 9, 7) = (/ & - &6.4005e-02 ,6.8005e-02 ,6.5556e-02 ,6.1466e-02 ,5.6121e-02 ,4.9302e-02 , & - &4.0642e-02 ,2.9533e-02 ,1.7598e-02 /) - kao(:, 5, 9, 7) = (/ & - &6.4303e-02 ,6.9477e-02 ,6.8109e-02 ,6.4600e-02 ,5.9691e-02 ,5.2874e-02 , & - &4.4056e-02 ,3.2670e-02 ,2.0612e-02 /) - kao(:, 1,10, 7) = (/ & - &2.6283e-01 ,2.3848e-01 ,2.1237e-01 ,1.8399e-01 ,1.5364e-01 ,1.2096e-01 , & - &8.6686e-02 ,5.0921e-02 ,1.2662e-02 /) - kao(:, 2,10, 7) = (/ & - &2.6495e-01 ,2.4348e-01 ,2.1796e-01 ,1.8933e-01 ,1.5813e-01 ,1.2513e-01 , & - &9.1228e-02 ,5.5191e-02 ,1.6120e-02 /) - kao(:, 3,10, 7) = (/ & - &2.6701e-01 ,2.4762e-01 ,2.2286e-01 ,1.9379e-01 ,1.6250e-01 ,1.3046e-01 , & - &9.6273e-02 ,5.9643e-02 ,2.0041e-02 /) - kao(:, 4,10, 7) = (/ & - &2.6827e-01 ,2.5124e-01 ,2.2683e-01 ,1.9843e-01 ,1.6799e-01 ,1.3618e-01 , & - &1.0159e-01 ,6.3939e-02 ,2.4035e-02 /) - kao(:, 5,10, 7) = (/ & - &2.7234e-01 ,2.5705e-01 ,2.3264e-01 ,2.0401e-01 ,1.7374e-01 ,1.4157e-01 , & - &1.0689e-01 ,6.8300e-02 ,2.8241e-02 /) - kao(:, 1,11, 7) = (/ & - &3.8435e-01 ,3.4486e-01 ,3.0408e-01 ,2.6025e-01 ,2.1577e-01 ,1.6840e-01 , & - &1.1827e-01 ,6.6862e-02 ,1.4067e-02 /) - kao(:, 2,11, 7) = (/ & - &3.8808e-01 ,3.5079e-01 ,3.0947e-01 ,2.6705e-01 ,2.2115e-01 ,1.7271e-01 , & - &1.2306e-01 ,7.1102e-02 ,1.7282e-02 /) - kao(:, 3,11, 7) = (/ & - &3.9133e-01 ,3.5683e-01 ,3.1692e-01 ,2.7320e-01 ,2.2652e-01 ,1.7854e-01 , & - &1.2887e-01 ,7.5471e-02 ,2.0650e-02 /) - kao(:, 4,11, 7) = (/ & - &3.9688e-01 ,3.6404e-01 ,3.2547e-01 ,2.8118e-01 ,2.3421e-01 ,1.8549e-01 , & - &1.3490e-01 ,8.0175e-02 ,2.4385e-02 /) - kao(:, 5,11, 7) = (/ & - &4.0366e-01 ,3.7211e-01 ,3.3310e-01 ,2.8891e-01 ,2.4168e-01 ,1.9277e-01 , & - &1.4118e-01 ,8.5255e-02 ,2.8315e-02 /) - kao(:, 1,12, 7) = (/ & - &4.1788e-01 ,3.7417e-01 ,3.2848e-01 ,2.8026e-01 ,2.3093e-01 ,1.7900e-01 , & - &1.2516e-01 ,6.9829e-02 ,1.3077e-02 /) - kao(:, 2,12, 7) = (/ & - &4.2346e-01 ,3.8197e-01 ,3.3568e-01 ,2.8761e-01 ,2.3734e-01 ,1.8458e-01 , & - &1.3037e-01 ,7.4069e-02 ,1.6501e-02 /) - kao(:, 3,12, 7) = (/ & - &4.3061e-01 ,3.9035e-01 ,3.4485e-01 ,2.9676e-01 ,2.4502e-01 ,1.9175e-01 , & - &1.3672e-01 ,7.8434e-02 ,1.9942e-02 /) - kao(:, 4,12, 7) = (/ & - &4.3991e-01 ,4.0142e-01 ,3.5621e-01 ,3.0583e-01 ,2.5354e-01 ,1.9941e-01 , & - &1.4294e-01 ,8.2867e-02 ,2.3156e-02 /) - kao(:, 5,12, 7) = (/ & - &4.5018e-01 ,4.1383e-01 ,3.6847e-01 ,3.1728e-01 ,2.6385e-01 ,2.0769e-01 , & - &1.4984e-01 ,8.7550e-02 ,2.5906e-02 /) - kao(:, 1,13, 7) = (/ & - &3.5954e-01 ,3.2293e-01 ,2.8290e-01 ,2.4149e-01 ,1.9855e-01 ,1.5392e-01 , & - &1.0799e-01 ,6.0538e-02 ,1.1582e-02 /) - kao(:, 2,13, 7) = (/ & - &3.6620e-01 ,3.3095e-01 ,2.9118e-01 ,2.4962e-01 ,2.0579e-01 ,1.6035e-01 , & - &1.1345e-01 ,6.4561e-02 ,1.4555e-02 /) - kao(:, 3,13, 7) = (/ & - &3.7497e-01 ,3.4139e-01 ,3.0205e-01 ,2.5902e-01 ,2.1397e-01 ,1.6755e-01 , & - &1.1907e-01 ,6.8274e-02 ,1.7516e-02 /) - kao(:, 4,13, 7) = (/ & - &3.8491e-01 ,3.5293e-01 ,3.1344e-01 ,2.6951e-01 ,2.2338e-01 ,1.7537e-01 , & - &1.2550e-01 ,7.2213e-02 ,1.9685e-02 /) - kao(:, 5,13, 7) = (/ & - &3.9456e-01 ,3.6430e-01 ,3.2370e-01 ,2.7885e-01 ,2.3209e-01 ,1.8326e-01 , & - &1.3235e-01 ,7.6929e-02 ,2.1105e-02 /) - kao(:, 1, 1, 8) = (/ & - &6.2097e-04 ,1.4117e-02 ,2.8277e-02 ,4.2775e-02 ,5.7848e-02 ,7.3960e-02 , & - &9.2407e-02 ,1.1864e-01 ,1.1554e-01 /) - kao(:, 2, 1, 8) = (/ & - &6.1974e-04 ,1.6905e-02 ,3.3889e-02 ,5.1276e-02 ,6.9348e-02 ,8.8703e-02 , & - &1.1084e-01 ,1.4177e-01 ,1.3853e-01 /) - kao(:, 3, 1, 8) = (/ & - &6.1587e-04 ,1.9900e-02 ,3.9925e-02 ,6.0422e-02 ,8.1729e-02 ,1.0451e-01 , & - &1.3061e-01 ,1.6696e-01 ,1.6328e-01 /) - kao(:, 4, 1, 8) = (/ & - &6.1184e-04 ,2.3086e-02 ,4.6344e-02 ,7.0163e-02 ,9.4901e-02 ,1.2137e-01 , & - &1.5165e-01 ,1.9370e-01 ,1.8962e-01 /) - kao(:, 5, 1, 8) = (/ & - &6.0950e-04 ,2.6468e-02 ,5.3164e-02 ,8.0478e-02 ,1.0886e-01 ,1.3922e-01 , & - &1.7398e-01 ,2.2192e-01 ,2.1753e-01 /) - kao(:, 1, 2, 8) = (/ & - &9.4214e-04 ,1.1864e-02 ,2.3368e-02 ,3.5168e-02 ,4.7308e-02 ,6.0060e-02 , & - &7.4293e-02 ,9.3548e-02 ,9.4381e-02 /) - kao(:, 2, 2, 8) = (/ & - &9.3967e-04 ,1.4205e-02 ,2.8221e-02 ,4.2491e-02 ,5.7165e-02 ,7.2616e-02 , & - &8.9835e-02 ,1.1322e-01 ,1.1408e-01 /) - kao(:, 3, 2, 8) = (/ & - &9.3666e-04 ,1.6793e-02 ,3.3453e-02 ,5.0403e-02 ,6.7823e-02 ,8.6143e-02 , & - &1.0657e-01 ,1.3437e-01 ,1.3538e-01 /) - kao(:, 4, 2, 8) = (/ & - &9.3490e-04 ,1.9589e-02 ,3.9087e-02 ,5.8901e-02 ,7.9281e-02 ,1.0068e-01 , & - &1.2458e-01 ,1.5697e-01 ,1.5829e-01 /) - kao(:, 5, 2, 8) = (/ & - &9.3255e-04 ,2.2561e-02 ,4.5087e-02 ,6.7983e-02 ,9.1508e-02 ,1.1621e-01 , & - &1.4375e-01 ,1.8108e-01 ,1.8274e-01 /) - kao(:, 1, 3, 8) = (/ & - &1.9614e-03 ,1.1299e-02 ,1.9005e-02 ,2.7782e-02 ,3.7000e-02 ,4.6522e-02 , & - &5.6657e-02 ,6.9080e-02 ,7.3508e-02 /) - kao(:, 2, 3, 8) = (/ & - &1.9548e-03 ,1.2955e-02 ,2.2891e-02 ,3.3903e-02 ,4.5254e-02 ,5.6922e-02 , & - &6.9355e-02 ,8.4555e-02 ,9.0001e-02 /) - kao(:, 3, 3, 8) = (/ & - &1.9534e-03 ,1.4833e-02 ,2.7240e-02 ,4.0599e-02 ,5.4239e-02 ,6.8264e-02 , & - &8.3194e-02 ,1.0146e-01 ,1.0796e-01 /) - kao(:, 4, 3, 8) = (/ & - &1.9479e-03 ,1.6939e-02 ,3.1981e-02 ,4.7805e-02 ,6.3918e-02 ,8.0501e-02 , & - &9.8164e-02 ,1.1980e-01 ,1.2731e-01 /) - kao(:, 5, 3, 8) = (/ & - &1.9437e-03 ,1.9215e-02 ,3.7014e-02 ,5.5432e-02 ,7.4159e-02 ,9.3422e-02 , & - &1.1404e-01 ,1.3937e-01 ,1.4780e-01 /) - kao(:, 1, 4, 8) = (/ & - &4.1141e-03 ,1.2873e-02 ,1.8872e-02 ,2.3795e-02 ,2.9310e-02 ,3.5813e-02 , & - &4.3001e-02 ,5.1220e-02 ,5.6278e-02 /) - kao(:, 2, 4, 8) = (/ & - &4.1183e-03 ,1.4575e-02 ,2.1599e-02 ,2.8253e-02 ,3.5801e-02 ,4.4309e-02 , & - &5.3363e-02 ,6.3628e-02 ,6.9867e-02 /) - kao(:, 3, 4, 8) = (/ & - &4.1349e-03 ,1.6355e-02 ,2.4672e-02 ,3.3305e-02 ,4.3074e-02 ,5.3625e-02 , & - &6.4673e-02 ,7.7228e-02 ,8.4695e-02 /) - kao(:, 4, 4, 8) = (/ & - &4.1308e-03 ,1.8173e-02 ,2.8034e-02 ,3.8865e-02 ,5.0949e-02 ,6.3606e-02 , & - &7.6798e-02 ,9.1846e-02 ,1.0056e-01 /) - kao(:, 5, 4, 8) = (/ & - &4.1264e-03 ,1.9905e-02 ,3.1676e-02 ,4.4946e-02 ,5.9333e-02 ,7.4191e-02 , & - &8.9640e-02 ,1.0735e-01 ,1.1739e-01 /) - kao(:, 1, 5, 8) = (/ & - &7.8459e-03 ,1.5273e-02 ,2.0315e-02 ,2.4490e-02 ,2.7833e-02 ,3.0201e-02 , & - &3.3378e-02 ,3.8411e-02 ,4.1001e-02 /) - kao(:, 2, 5, 8) = (/ & - &7.8747e-03 ,1.6898e-02 ,2.3176e-02 ,2.8487e-02 ,3.2405e-02 ,3.6383e-02 , & - &4.1437e-02 ,4.8316e-02 ,5.2769e-02 /) - kao(:, 3, 5, 8) = (/ & - &7.8992e-03 ,1.8661e-02 ,2.6253e-02 ,3.2541e-02 ,3.7550e-02 ,4.3266e-02 , & - &5.0422e-02 ,5.9136e-02 ,6.5527e-02 /) - kao(:, 4, 5, 8) = (/ & - &7.8989e-03 ,2.0558e-02 ,2.9408e-02 ,3.6576e-02 ,4.3219e-02 ,5.0946e-02 , & - &6.0207e-02 ,7.0821e-02 ,7.8616e-02 /) - kao(:, 5, 5, 8) = (/ & - &7.9229e-03 ,2.2512e-02 ,3.2599e-02 ,4.0913e-02 ,4.9454e-02 ,5.9390e-02 , & - &7.0729e-02 ,8.3313e-02 ,9.2573e-02 /) - kao(:, 1, 6, 8) = (/ & - &1.3755e-02 ,2.1264e-02 ,2.4103e-02 ,2.5712e-02 ,2.7798e-02 ,2.9236e-02 , & - &2.9846e-02 ,2.9593e-02 ,2.7586e-02 /) - kao(:, 2, 6, 8) = (/ & - &1.3782e-02 ,2.2999e-02 ,2.6490e-02 ,2.9514e-02 ,3.2454e-02 ,3.4496e-02 , & - &3.5566e-02 ,3.7000e-02 ,3.5132e-02 /) - kao(:, 3, 6, 8) = (/ & - &1.3863e-02 ,2.4665e-02 ,2.9042e-02 ,3.3641e-02 ,3.7254e-02 ,4.0147e-02 , & - &4.1998e-02 ,4.5403e-02 ,4.4921e-02 /) - kao(:, 4, 6, 8) = (/ & - &1.3921e-02 ,2.6309e-02 ,3.1937e-02 ,3.7874e-02 ,4.2332e-02 ,4.5980e-02 , & - &4.9161e-02 ,5.4719e-02 ,5.5713e-02 /) - kao(:, 5, 6, 8) = (/ & - &1.4010e-02 ,2.7955e-02 ,3.5119e-02 ,4.2034e-02 ,4.7545e-02 ,5.2148e-02 , & - &5.7163e-02 ,6.4833e-02 ,6.7480e-02 /) - kao(:, 1, 7, 8) = (/ & - &2.4762e-02 ,3.1775e-02 ,3.3749e-02 ,3.4176e-02 ,3.3323e-02 ,3.1060e-02 , & - &2.9254e-02 ,2.6750e-02 ,2.6287e-02 /) - kao(:, 2, 7, 8) = (/ & - &2.4951e-02 ,3.3870e-02 ,3.6729e-02 ,3.7700e-02 ,3.7125e-02 ,3.5645e-02 , & - &3.4725e-02 ,3.2382e-02 ,3.2363e-02 /) - kao(:, 3, 7, 8) = (/ & - &2.5173e-02 ,3.5837e-02 ,3.9660e-02 ,4.1206e-02 ,4.1346e-02 ,4.1029e-02 , & - &4.0471e-02 ,3.8518e-02 ,3.8913e-02 /) - kao(:, 4, 7, 8) = (/ & - &2.5363e-02 ,3.7886e-02 ,4.2599e-02 ,4.5028e-02 ,4.5616e-02 ,4.6713e-02 , & - &4.6613e-02 ,4.5204e-02 ,4.5916e-02 /) - kao(:, 5, 7, 8) = (/ & - &2.5554e-02 ,3.9913e-02 ,4.5725e-02 ,4.8757e-02 ,5.0398e-02 ,5.2532e-02 , & - &5.3118e-02 ,5.2718e-02 ,5.3341e-02 /) - kao(:, 1, 8, 8) = (/ & - &5.1772e-02 ,5.6742e-02 ,5.6311e-02 ,5.3676e-02 ,4.9761e-02 ,4.4432e-02 , & - &3.7642e-02 ,2.8159e-02 ,2.5366e-02 /) - kao(:, 2, 8, 8) = (/ & - &5.2310e-02 ,5.9935e-02 ,6.0103e-02 ,5.8243e-02 ,5.4861e-02 ,4.9530e-02 , & - &4.2560e-02 ,3.2942e-02 ,3.0796e-02 /) - kao(:, 3, 8, 8) = (/ & - &5.2803e-02 ,6.3037e-02 ,6.4134e-02 ,6.2766e-02 ,5.9645e-02 ,5.4655e-02 , & - &4.7864e-02 ,3.8688e-02 ,3.7143e-02 /) - kao(:, 4, 8, 8) = (/ & - &5.3460e-02 ,6.5918e-02 ,6.8003e-02 ,6.7271e-02 ,6.4711e-02 ,6.0132e-02 , & - &5.3215e-02 ,4.4724e-02 ,4.4005e-02 /) - kao(:, 5, 8, 8) = (/ & - &5.3710e-02 ,6.8699e-02 ,7.1633e-02 ,7.2036e-02 ,6.9887e-02 ,6.5520e-02 , & - &5.8694e-02 ,5.1143e-02 ,5.1305e-02 /) - kao(:, 1, 9, 8) = (/ & - &2.0198e-01 ,1.8901e-01 ,1.7403e-01 ,1.5566e-01 ,1.3460e-01 ,1.1050e-01 , & - &8.4423e-02 ,5.5049e-02 ,2.7409e-02 /) - kao(:, 2, 9, 8) = (/ & - &2.0495e-01 ,1.9639e-01 ,1.8291e-01 ,1.6519e-01 ,1.4305e-01 ,1.1881e-01 , & - &9.2245e-02 ,6.1787e-02 ,3.3663e-02 /) - kao(:, 3, 9, 8) = (/ & - &2.0775e-01 ,2.0359e-01 ,1.9173e-01 ,1.7370e-01 ,1.5212e-01 ,1.2752e-01 , & - &1.0028e-01 ,6.8520e-02 ,3.9556e-02 /) - kao(:, 4, 9, 8) = (/ & - &2.0971e-01 ,2.1033e-01 ,1.9959e-01 ,1.8173e-01 ,1.6052e-01 ,1.3619e-01 , & - &1.0838e-01 ,7.5430e-02 ,4.6210e-02 /) - kao(:, 5, 9, 8) = (/ & - &2.1122e-01 ,2.1661e-01 ,2.0701e-01 ,1.8977e-01 ,1.6868e-01 ,1.4451e-01 , & - &1.1695e-01 ,8.2426e-02 ,5.2611e-02 /) - kao(:, 1,10, 8) = (/ & - &8.7179e-01 ,7.7305e-01 ,6.7676e-01 ,5.7800e-01 ,4.7858e-01 ,3.7509e-01 , & - &2.6780e-01 ,1.5257e-01 ,3.4825e-02 /) - kao(:, 2,10, 8) = (/ & - &8.8690e-01 ,7.9154e-01 ,6.9682e-01 ,6.0089e-01 ,5.0085e-01 ,3.9677e-01 , & - &2.8510e-01 ,1.6381e-01 ,4.0840e-02 /) - kao(:, 3,10, 8) = (/ & - &8.9846e-01 ,8.0873e-01 ,7.1712e-01 ,6.2211e-01 ,5.2235e-01 ,4.1529e-01 , & - &3.0033e-01 ,1.7576e-01 ,4.8253e-02 /) - kao(:, 4,10, 8) = (/ & - &9.1202e-01 ,8.2713e-01 ,7.3854e-01 ,6.4399e-01 ,5.4276e-01 ,4.3255e-01 , & - &3.1463e-01 ,1.8727e-01 ,5.7567e-02 /) - kao(:, 5,10, 8) = (/ & - &9.1292e-01 ,8.3520e-01 ,7.5311e-01 ,6.6058e-01 ,5.5851e-01 ,4.4868e-01 , & - &3.2919e-01 ,1.9841e-01 ,6.5659e-02 /) - kao(:, 1,11, 8) = (/ & - &1.3103e+00 ,1.1565e+00 ,1.0072e+00 ,8.5492e-01 ,7.0080e-01 ,5.4405e-01 , & - &3.8288e-01 ,2.1296e-01 ,3.6932e-02 /) - kao(:, 2,11, 8) = (/ & - &1.3299e+00 ,1.1796e+00 ,1.0327e+00 ,8.8125e-01 ,7.2693e-01 ,5.6857e-01 , & - &4.0335e-01 ,2.2633e-01 ,4.3190e-02 /) - kao(:, 3,11, 8) = (/ & - &1.3530e+00 ,1.2064e+00 ,1.0600e+00 ,9.1131e-01 ,7.5598e-01 ,5.9411e-01 , & - &4.2265e-01 ,2.3978e-01 ,5.2762e-02 /) - kao(:, 4,11, 8) = (/ & - &1.3587e+00 ,1.2195e+00 ,1.0781e+00 ,9.3079e-01 ,7.7634e-01 ,6.1327e-01 , & - &4.3892e-01 ,2.5297e-01 ,6.4865e-02 /) - kao(:, 5,11, 8) = (/ & - &1.3600e+00 ,1.2284e+00 ,1.0908e+00 ,9.4457e-01 ,7.9211e-01 ,6.2699e-01 , & - &4.5262e-01 ,2.6437e-01 ,7.6848e-02 /) - kao(:, 1,12, 8) = (/ & - &1.4407e+00 ,1.2713e+00 ,1.1065e+00 ,9.3835e-01 ,7.6825e-01 ,5.9432e-01 , & - &4.1638e-01 ,2.2888e-01 ,3.4685e-02 /) - kao(:, 2,12, 8) = (/ & - &1.4696e+00 ,1.3029e+00 ,1.1378e+00 ,9.6981e-01 ,7.9767e-01 ,6.2103e-01 , & - &4.3779e-01 ,2.4254e-01 ,4.2654e-02 /) - kao(:, 3,12, 8) = (/ & - &1.4810e+00 ,1.3211e+00 ,1.1578e+00 ,9.9148e-01 ,8.2013e-01 ,6.4181e-01 , & - &4.5466e-01 ,2.5578e-01 ,5.2496e-02 /) - kao(:, 4,12, 8) = (/ & - &1.4858e+00 ,1.3306e+00 ,1.1727e+00 ,1.0074e+00 ,8.3618e-01 ,6.5672e-01 , & - &4.6743e-01 ,2.6737e-01 ,6.3361e-02 /) - kao(:, 5,12, 8) = (/ & - &1.4815e+00 ,1.3335e+00 ,1.1804e+00 ,1.0190e+00 ,8.4985e-01 ,6.7121e-01 , & - &4.8121e-01 ,2.7853e-01 ,7.5291e-02 /) - kao(:, 1,13, 8) = (/ & - &1.2616e+00 ,1.1163e+00 ,9.7204e-01 ,8.2547e-01 ,6.7669e-01 ,5.2391e-01 , & - &3.6673e-01 ,2.0106e-01 ,2.9782e-02 /) - kao(:, 2,13, 8) = (/ & - &1.2777e+00 ,1.1375e+00 ,9.9345e-01 ,8.4804e-01 ,6.9806e-01 ,5.4388e-01 , & - &3.8298e-01 ,2.1265e-01 ,3.7539e-02 /) - kao(:, 3,13, 8) = (/ & - &1.2857e+00 ,1.1501e+00 ,1.0105e+00 ,8.6538e-01 ,7.1567e-01 ,5.5928e-01 , & - &3.9596e-01 ,2.2292e-01 ,4.5370e-02 /) - kao(:, 4,13, 8) = (/ & - &1.2877e+00 ,1.1566e+00 ,1.0204e+00 ,8.7739e-01 ,7.2832e-01 ,5.7170e-01 , & - &4.0727e-01 ,2.3325e-01 ,5.5134e-02 /) - kao(:, 5,13, 8) = (/ & - &1.2810e+00 ,1.1580e+00 ,1.0267e+00 ,8.8778e-01 ,7.3941e-01 ,5.8252e-01 , & - &4.1760e-01 ,2.4248e-01 ,6.6222e-02 /) - kao(:, 1, 1, 9) = (/ & - &1.6209e-03 ,5.7589e-02 ,1.1558e-01 ,1.7436e-01 ,2.3438e-01 ,2.9678e-01 , & - &3.6435e-01 ,4.4557e-01 ,4.6867e-01 /) - kao(:, 2, 1, 9) = (/ & - &1.6160e-03 ,6.8254e-02 ,1.3700e-01 ,2.0665e-01 ,2.7776e-01 ,3.5160e-01 , & - &4.3147e-01 ,5.2804e-01 ,5.5543e-01 /) - kao(:, 3, 1, 9) = (/ & - &1.6156e-03 ,7.9739e-02 ,1.6004e-01 ,2.4140e-01 ,3.2446e-01 ,4.1061e-01 , & - &5.0337e-01 ,6.1528e-01 ,6.4882e-01 /) - kao(:, 4, 1, 9) = (/ & - &1.6118e-03 ,9.1878e-02 ,1.8447e-01 ,2.7828e-01 ,3.7409e-01 ,4.7339e-01 , & - &5.8011e-01 ,7.0748e-01 ,7.4809e-01 /) - kao(:, 5, 1, 9) = (/ & - &1.6027e-03 ,1.0449e-01 ,2.0983e-01 ,3.1665e-01 ,4.2579e-01 ,5.3908e-01 , & - &6.6087e-01 ,8.0485e-01 ,8.5148e-01 /) - kao(:, 1, 2, 9) = (/ & - &2.5385e-03 ,4.9947e-02 ,1.0010e-01 ,1.5075e-01 ,2.0224e-01 ,2.5529e-01 , & - &3.1202e-01 ,3.8059e-01 ,4.0436e-01 /) - kao(:, 2, 2, 9) = (/ & - &2.5420e-03 ,5.9613e-02 ,1.1949e-01 ,1.7998e-01 ,2.4152e-01 ,3.0496e-01 , & - &3.7260e-01 ,4.5413e-01 ,4.8291e-01 /) - kao(:, 3, 2, 9) = (/ & - &2.5425e-03 ,6.9977e-02 ,1.4031e-01 ,2.1138e-01 ,2.8370e-01 ,3.5840e-01 , & - &4.3825e-01 ,5.3358e-01 ,5.6726e-01 /) - kao(:, 4, 2, 9) = (/ & - &2.5349e-03 ,8.0938e-02 ,1.6229e-01 ,2.4456e-01 ,3.2834e-01 ,4.1497e-01 , & - &5.0769e-01 ,6.1900e-01 ,6.5654e-01 /) - kao(:, 5, 2, 9) = (/ & - &2.5236e-03 ,9.2377e-02 ,1.8522e-01 ,2.7915e-01 ,3.7480e-01 ,4.7381e-01 , & - &5.8018e-01 ,7.0850e-01 ,7.4944e-01 /) - kao(:, 1, 3, 9) = (/ & - &5.2884e-03 ,4.1358e-02 ,8.2480e-02 ,1.2391e-01 ,1.6574e-01 ,2.0832e-01 , & - &2.5278e-01 ,3.0394e-01 ,3.3126e-01 /) - kao(:, 2, 3, 9) = (/ & - &5.3098e-03 ,4.9746e-02 ,9.9365e-02 ,1.4928e-01 ,1.9972e-01 ,2.5111e-01 , & - &3.0480e-01 ,3.6676e-01 ,3.9919e-01 /) - kao(:, 3, 3, 9) = (/ & - &5.3133e-03 ,5.8864e-02 ,1.1765e-01 ,1.7679e-01 ,2.3653e-01 ,2.9742e-01 , & - &3.6115e-01 ,4.3493e-01 ,4.7279e-01 /) - kao(:, 4, 3, 9) = (/ & - &5.3184e-03 ,6.8570e-02 ,1.3708e-01 ,2.0601e-01 ,2.7562e-01 ,3.4665e-01 , & - &4.2100e-01 ,5.0744e-01 ,5.5094e-01 /) - kao(:, 5, 3, 9) = (/ & - &5.2937e-03 ,7.8913e-02 ,1.5776e-01 ,2.3709e-01 ,3.1721e-01 ,3.9889e-01 , & - &4.8431e-01 ,5.8366e-01 ,6.3409e-01 /) - kao(:, 1, 4, 9) = (/ & - &1.1189e-02 ,3.7631e-02 ,6.6855e-02 ,9.9420e-02 ,1.3264e-01 ,1.6622e-01 , & - &2.0064e-01 ,2.3828e-01 ,2.6479e-01 /) - kao(:, 2, 4, 9) = (/ & - &1.1235e-02 ,4.3836e-02 ,8.1298e-02 ,1.2151e-01 ,1.6212e-01 ,2.0319e-01 , & - &2.4526e-01 ,2.9131e-01 ,3.2370e-01 /) - kao(:, 3, 4, 9) = (/ & - &1.1256e-02 ,5.0846e-02 ,9.7157e-02 ,1.4551e-01 ,1.9420e-01 ,2.4340e-01 , & - &2.9384e-01 ,3.4897e-01 ,3.8783e-01 /) - kao(:, 4, 4, 9) = (/ & - &1.1233e-02 ,5.8695e-02 ,1.1439e-01 ,1.7147e-01 ,2.2883e-01 ,2.8678e-01 , & - &3.4608e-01 ,4.1077e-01 ,4.5705e-01 /) - kao(:, 5, 4, 9) = (/ & - &1.1193e-02 ,6.7408e-02 ,1.3290e-01 ,1.9926e-01 ,2.6591e-01 ,3.3325e-01 , & - &4.0214e-01 ,4.7714e-01 ,5.3115e-01 /) - kao(:, 1, 5, 9) = (/ & - &2.1456e-02 ,4.5196e-02 ,6.1958e-02 ,8.2153e-02 ,1.0545e-01 ,1.3112e-01 , & - &1.5772e-01 ,1.8584e-01 ,2.0874e-01 /) - kao(:, 2, 5, 9) = (/ & - &2.1627e-02 ,4.9543e-02 ,7.2420e-02 ,9.9628e-02 ,1.3042e-01 ,1.6274e-01 , & - &1.9580e-01 ,2.3075e-01 ,2.5926e-01 /) - kao(:, 3, 5, 9) = (/ & - &2.1648e-02 ,5.4430e-02 ,8.4381e-02 ,1.1963e-01 ,1.5816e-01 ,1.9769e-01 , & - &2.3786e-01 ,2.8024e-01 ,3.1505e-01 /) - kao(:, 4, 5, 9) = (/ & - &2.1655e-02 ,5.9909e-02 ,9.8020e-02 ,1.4216e-01 ,1.8871e-01 ,2.3596e-01 , & - &2.8391e-01 ,3.3439e-01 ,3.7619e-01 /) - kao(:, 5, 5, 9) = (/ & - &2.1575e-02 ,6.6071e-02 ,1.1341e-01 ,1.6675e-01 ,2.2186e-01 ,2.7746e-01 , & - &3.3388e-01 ,3.9317e-01 ,4.4246e-01 /) - kao(:, 1, 6, 9) = (/ & - &3.8314e-02 ,5.9481e-02 ,7.1457e-02 ,8.1684e-02 ,9.1784e-02 ,1.0487e-01 , & - &1.2171e-01 ,1.4213e-01 ,1.5860e-01 /) - kao(:, 2, 6, 9) = (/ & - &3.8611e-02 ,6.4337e-02 ,7.9461e-02 ,9.3850e-02 ,1.0993e-01 ,1.2967e-01 , & - &1.5327e-01 ,1.7946e-01 ,2.0255e-01 /) - kao(:, 3, 6, 9) = (/ & - &3.8670e-02 ,6.9241e-02 ,8.8613e-02 ,1.0808e-01 ,1.3134e-01 ,1.5836e-01 , & - &1.8890e-01 ,2.2142e-01 ,2.5002e-01 /) - kao(:, 4, 6, 9) = (/ & - &3.8675e-02 ,7.4319e-02 ,9.8760e-02 ,1.2484e-01 ,1.5591e-01 ,1.9105e-01 , & - &2.2866e-01 ,2.6805e-01 ,3.0304e-01 /) - kao(:, 5, 6, 9) = (/ & - &3.8508e-02 ,7.9526e-02 ,1.0987e-01 ,1.4404e-01 ,1.8357e-01 ,2.2696e-01 , & - &2.7218e-01 ,3.1912e-01 ,3.6102e-01 /) - kao(:, 1, 7, 9) = (/ & - &7.2084e-02 ,8.8512e-02 ,9.7172e-02 ,1.0090e-01 ,1.0168e-01 ,1.0216e-01 , & - &1.0271e-01 ,1.0842e-01 ,1.0501e-01 /) - kao(:, 2, 7, 9) = (/ & - &7.2564e-02 ,9.4711e-02 ,1.0583e-01 ,1.1196e-01 ,1.1550e-01 ,1.2008e-01 , & - &1.2583e-01 ,1.3849e-01 ,1.4021e-01 /) - kao(:, 3, 7, 9) = (/ & - &7.2730e-02 ,1.0095e-01 ,1.1490e-01 ,1.2380e-01 ,1.3141e-01 ,1.4065e-01 , & - &1.5344e-01 ,1.7335e-01 ,1.8125e-01 /) - kao(:, 4, 7, 9) = (/ & - &7.2941e-02 ,1.0706e-01 ,1.2422e-01 ,1.3654e-01 ,1.5005e-01 ,1.6497e-01 , & - &1.8541e-01 ,2.1284e-01 ,2.2809e-01 /) - kao(:, 5, 7, 9) = (/ & - &7.3026e-02 ,1.1297e-01 ,1.3379e-01 ,1.5116e-01 ,1.7068e-01 ,1.9286e-01 , & - &2.2139e-01 ,2.5637e-01 ,2.7993e-01 /) - kao(:, 1, 8, 9) = (/ & - &1.6179e-01 ,1.6443e-01 ,1.6310e-01 ,1.5765e-01 ,1.4868e-01 ,1.3533e-01 , & - &1.1770e-01 ,9.8380e-02 ,8.1836e-02 /) - kao(:, 2, 8, 9) = (/ & - &1.6423e-01 ,1.7218e-01 ,1.7516e-01 ,1.7171e-01 ,1.6374e-01 ,1.5153e-01 , & - &1.3534e-01 ,1.1999e-01 ,1.0061e-01 /) - kao(:, 3, 8, 9) = (/ & - &1.6654e-01 ,1.7965e-01 ,1.8707e-01 ,1.8587e-01 ,1.7956e-01 ,1.6926e-01 , & - &1.5537e-01 ,1.4544e-01 ,1.2284e-01 /) - kao(:, 4, 8, 9) = (/ & - &1.6762e-01 ,1.8741e-01 ,1.9894e-01 ,2.0043e-01 ,1.9638e-01 ,1.8821e-01 , & - &1.7907e-01 ,1.7570e-01 ,1.5659e-01 /) - kao(:, 5, 8, 9) = (/ & - &1.6808e-01 ,1.9570e-01 ,2.1084e-01 ,2.1493e-01 ,2.1406e-01 ,2.0908e-01 , & - &2.0616e-01 ,2.1009e-01 ,1.9730e-01 /) - kao(:, 1, 9, 9) = (/ & - &7.0428e-01 ,6.3434e-01 ,5.6644e-01 ,4.9559e-01 ,4.2070e-01 ,3.4143e-01 , & - &2.6063e-01 ,1.7246e-01 ,1.1446e-01 /) - kao(:, 2, 9, 9) = (/ & - &7.1533e-01 ,6.5148e-01 ,5.8487e-01 ,5.1694e-01 ,4.4379e-01 ,3.6693e-01 , & - &2.8562e-01 ,1.9355e-01 ,1.3717e-01 /) - kao(:, 3, 9, 9) = (/ & - &7.2105e-01 ,6.6501e-01 ,6.0595e-01 ,5.4025e-01 ,4.6705e-01 ,3.9267e-01 , & - &3.1101e-01 ,2.1648e-01 ,1.6351e-01 /) - kao(:, 4, 9, 9) = (/ & - &7.2262e-01 ,6.7430e-01 ,6.2376e-01 ,5.6249e-01 ,4.9295e-01 ,4.1839e-01 , & - &3.3764e-01 ,2.4119e-01 ,1.9114e-01 /) - kao(:, 5, 9, 9) = (/ & - &7.2252e-01 ,6.8406e-01 ,6.4078e-01 ,5.8400e-01 ,5.1738e-01 ,4.4614e-01 , & - &3.6505e-01 ,2.6763e-01 ,2.2362e-01 /) - kao(:, 1,10, 9) = (/ & - &3.3754e+00 ,2.9579e+00 ,2.5567e+00 ,2.1598e+00 ,1.7623e+00 ,1.3527e+00 , & - &9.4464e-01 ,5.2414e-01 ,1.6022e-01 /) - kao(:, 2,10, 9) = (/ & - &3.4121e+00 ,2.9947e+00 ,2.5993e+00 ,2.2033e+00 ,1.8038e+00 ,1.3952e+00 , & - &9.8851e-01 ,5.5797e-01 ,1.9922e-01 /) - kao(:, 3,10, 9) = (/ & - &3.4354e+00 ,3.0219e+00 ,2.6345e+00 ,2.2476e+00 ,1.8449e+00 ,1.4451e+00 , & - &1.0317e+00 ,5.9234e-01 ,2.4180e-01 /) - kao(:, 4,10, 9) = (/ & - &3.4369e+00 ,3.0367e+00 ,2.6577e+00 ,2.2740e+00 ,1.8821e+00 ,1.4871e+00 , & - &1.0728e+00 ,6.2615e-01 ,2.8291e-01 /) - kao(:, 5,10, 9) = (/ & - &3.4461e+00 ,3.0546e+00 ,2.6839e+00 ,2.3057e+00 ,1.9262e+00 ,1.5287e+00 , & - &1.1134e+00 ,6.5955e-01 ,3.3010e-01 /) - kao(:, 1,11, 9) = (/ & - &5.5731e+00 ,4.8785e+00 ,4.1979e+00 ,3.5322e+00 ,2.8619e+00 ,2.1883e+00 , & - &1.5051e+00 ,8.1479e-01 ,1.7197e-01 /) - kao(:, 2,11, 9) = (/ & - &5.6124e+00 ,4.9158e+00 ,4.2449e+00 ,3.5793e+00 ,2.9170e+00 ,2.2388e+00 , & - &1.5568e+00 ,8.5687e-01 ,2.2531e-01 /) - kao(:, 3,11, 9) = (/ & - &5.6253e+00 ,4.9334e+00 ,4.2755e+00 ,3.6196e+00 ,2.9577e+00 ,2.2787e+00 , & - &1.6022e+00 ,8.9680e-01 ,2.6360e-01 /) - kao(:, 4,11, 9) = (/ & - &5.6351e+00 ,4.9513e+00 ,4.3021e+00 ,3.6565e+00 ,2.9923e+00 ,2.3311e+00 , & - &1.6513e+00 ,9.3728e-01 ,3.0681e-01 /) - kao(:, 5,11, 9) = (/ & - &5.6511e+00 ,4.9808e+00 ,4.3475e+00 ,3.7008e+00 ,3.0483e+00 ,2.3866e+00 , & - &1.7012e+00 ,9.7887e-01 ,3.4951e-01 /) - kao(:, 1,12, 9) = (/ & - &6.6833e+00 ,5.8503e+00 ,5.0320e+00 ,4.2291e+00 ,3.4220e+00 ,2.6133e+00 , & - &1.7900e+00 ,9.6260e-01 ,1.7445e-01 /) - kao(:, 2,12, 9) = (/ & - &6.6977e+00 ,5.8665e+00 ,5.0629e+00 ,4.2649e+00 ,3.4722e+00 ,2.6560e+00 , & - &1.8378e+00 ,1.0034e+00 ,2.1910e-01 /) - kao(:, 3,12, 9) = (/ & - &6.7112e+00 ,5.8830e+00 ,5.0943e+00 ,4.3071e+00 ,3.5122e+00 ,2.7000e+00 , & - &1.8863e+00 ,1.0455e+00 ,2.5420e-01 /) - kao(:, 4,12, 9) = (/ & - &6.7306e+00 ,5.9135e+00 ,5.1333e+00 ,4.3624e+00 ,3.5635e+00 ,2.7641e+00 , & - &1.9469e+00 ,1.0906e+00 ,2.9618e-01 /) - kao(:, 5,12, 9) = (/ & - &6.7198e+00 ,5.9182e+00 ,5.1572e+00 ,4.3874e+00 ,3.6068e+00 ,2.8158e+00 , & - &1.9979e+00 ,1.1364e+00 ,3.4172e-01 /) - kao(:, 1,13, 9) = (/ & - &6.2228e+00 ,5.4483e+00 ,4.6948e+00 ,3.9489e+00 ,3.2053e+00 ,2.4477e+00 , & - &1.6826e+00 ,9.0899e-01 ,1.6340e-01 /) - kao(:, 2,13, 9) = (/ & - &6.2479e+00 ,5.4750e+00 ,4.7365e+00 ,3.9942e+00 ,3.2532e+00 ,2.4916e+00 , & - &1.7319e+00 ,9.4656e-01 ,1.9164e-01 /) - kao(:, 3,13, 9) = (/ & - &6.2720e+00 ,5.5063e+00 ,4.7748e+00 ,4.0523e+00 ,3.3026e+00 ,2.5508e+00 , & - &1.7859e+00 ,9.9108e-01 ,2.3050e-01 /) - kao(:, 4,13, 9) = (/ & - &6.2663e+00 ,5.5165e+00 ,4.8016e+00 ,4.0858e+00 ,3.3448e+00 ,2.6010e+00 , & - &1.8364e+00 ,1.0337e+00 ,2.6420e-01 /) - kao(:, 5,13, 9) = (/ & - &6.2869e+00 ,5.5494e+00 ,4.8492e+00 ,4.1318e+00 ,3.4036e+00 ,2.6598e+00 , & - &1.8865e+00 ,1.0759e+00 ,2.9687e-01 /) - kao(:, 1, 1,10) = (/ & - &2.7731e-03 ,1.5625e-01 ,3.1254e-01 ,4.6910e-01 ,6.2583e-01 ,7.8249e-01 , & - &9.3706e-01 ,1.0845e+00 ,1.2516e+00 /) - kao(:, 2, 1,10) = (/ & - &2.6994e-03 ,1.8576e-01 ,3.7148e-01 ,5.5698e-01 ,7.4226e-01 ,9.2683e-01 , & - &1.1083e+00 ,1.2874e+00 ,1.4844e+00 /) - kao(:, 3, 1,10) = (/ & - &2.5977e-03 ,2.1688e-01 ,4.3344e-01 ,6.4957e-01 ,8.6528e-01 ,1.0791e+00 , & - &1.2881e+00 ,1.4959e+00 ,1.7305e+00 /) - kao(:, 4, 1,10) = (/ & - &2.4994e-03 ,2.5005e-01 ,4.9954e-01 ,7.4789e-01 ,9.9444e-01 ,1.2373e+00 , & - &1.4746e+00 ,1.7076e+00 ,1.9888e+00 /) - kao(:, 5, 1,10) = (/ & - &2.4443e-03 ,2.8623e-01 ,5.7132e-01 ,8.5454e-01 ,1.1344e+00 ,1.4080e+00 , & - &1.6698e+00 ,1.9238e+00 ,2.2687e+00 /) - kao(:, 1, 2,10) = (/ & - &4.6033e-03 ,1.4235e-01 ,2.8494e-01 ,4.2818e-01 ,5.7234e-01 ,7.1833e-01 , & - &8.6574e-01 ,1.0139e+00 ,1.1445e+00 /) - kao(:, 2, 2,10) = (/ & - &4.4279e-03 ,1.7116e-01 ,3.4236e-01 ,5.1392e-01 ,6.8612e-01 ,8.5990e-01 , & - &1.0377e+00 ,1.2137e+00 ,1.3721e+00 /) - kao(:, 3, 2,10) = (/ & - &4.2606e-03 ,2.0315e-01 ,4.0616e-01 ,6.0913e-01 ,8.1201e-01 ,1.0152e+00 , & - &1.2192e+00 ,1.4256e+00 ,1.6238e+00 /) - kao(:, 4, 2,10) = (/ & - &4.1205e-03 ,2.3773e-01 ,4.7526e-01 ,7.1252e-01 ,9.4929e-01 ,1.1850e+00 , & - &1.4175e+00 ,1.6433e+00 ,1.8984e+00 /) - kao(:, 5, 2,10) = (/ & - &4.0494e-03 ,2.7547e-01 ,5.5055e-01 ,8.2539e-01 ,1.0993e+00 ,1.3710e+00 , & - &1.6368e+00 ,1.8772e+00 ,2.1984e+00 /) - kao(:, 1, 3,10) = (/ & - &1.0161e-02 ,1.2214e-01 ,2.4424e-01 ,3.6667e-01 ,4.8955e-01 ,6.1355e-01 , & - &7.4009e-01 ,8.7555e-01 ,9.7887e-01 /) - kao(:, 2, 3,10) = (/ & - &9.8188e-03 ,1.5023e-01 ,3.0029e-01 ,4.5055e-01 ,6.0115e-01 ,7.5236e-01 , & - &9.0544e-01 ,1.0662e+00 ,1.2020e+00 /) - kao(:, 3, 3,10) = (/ & - &9.4977e-03 ,1.8146e-01 ,3.6272e-01 ,5.4423e-01 ,7.2598e-01 ,9.0829e-01 , & - &1.0912e+00 ,1.2774e+00 ,1.4517e+00 /) - kao(:, 4, 3,10) = (/ & - &9.2658e-03 ,2.1540e-01 ,4.3072e-01 ,6.4627e-01 ,8.6225e-01 ,1.0787e+00 , & - &1.2961e+00 ,1.5118e+00 ,1.7242e+00 /) - kao(:, 5, 3,10) = (/ & - &9.2390e-03 ,2.5102e-01 ,5.0193e-01 ,7.5312e-01 ,1.0052e+00 ,1.2582e+00 , & - &1.5132e+00 ,1.7682e+00 ,2.0100e+00 /) - kao(:, 1, 4,10) = (/ & - &2.2805e-02 ,1.0395e-01 ,2.0752e-01 ,3.1119e-01 ,4.1502e-01 ,5.1909e-01 , & - &6.2381e-01 ,7.3100e-01 ,8.2961e-01 /) - kao(:, 2, 4,10) = (/ & - &2.2222e-02 ,1.2866e-01 ,2.5687e-01 ,3.8520e-01 ,5.1380e-01 ,6.4273e-01 , & - &7.7289e-01 ,9.0648e-01 ,1.0271e+00 /) - kao(:, 3, 4,10) = (/ & - &2.1664e-02 ,1.5642e-01 ,3.1238e-01 ,4.6876e-01 ,6.2523e-01 ,7.8254e-01 , & - &9.4140e-01 ,1.1052e+00 ,1.2499e+00 /) - kao(:, 4, 4,10) = (/ & - &2.1586e-02 ,1.8661e-01 ,3.7283e-01 ,5.5940e-01 ,7.4664e-01 ,9.3462e-01 , & - &1.1258e+00 ,1.3254e+00 ,1.4927e+00 /) - kao(:, 5, 4,10) = (/ & - &2.1462e-02 ,2.1863e-01 ,4.3680e-01 ,6.5519e-01 ,8.7456e-01 ,1.0957e+00 , & - &1.3203e+00 ,1.5569e+00 ,1.7484e+00 /) - kao(:, 1, 5,10) = (/ & - &4.7130e-02 ,9.3953e-02 ,1.7393e-01 ,2.6053e-01 ,3.4731e-01 ,4.3431e-01 , & - &5.2182e-01 ,6.1134e-01 ,6.9380e-01 /) - kao(:, 2, 5,10) = (/ & - &4.5557e-02 ,1.1245e-01 ,2.1773e-01 ,3.2619e-01 ,4.3487e-01 ,5.4373e-01 , & - &6.5319e-01 ,7.6497e-01 ,8.6883e-01 /) - kao(:, 3, 5,10) = (/ & - &4.5179e-02 ,1.3419e-01 ,2.6606e-01 ,3.9876e-01 ,5.3167e-01 ,6.6490e-01 , & - &7.9898e-01 ,9.3637e-01 ,1.0624e+00 /) - kao(:, 4, 5,10) = (/ & - &4.5058e-02 ,1.5943e-01 ,3.1786e-01 ,4.7639e-01 ,6.3534e-01 ,7.9462e-01 , & - &9.5569e-01 ,1.1218e+00 ,1.2696e+00 /) - kao(:, 5, 5,10) = (/ & - &4.5124e-02 ,1.8659e-01 ,3.7199e-01 ,5.5748e-01 ,7.4317e-01 ,9.2965e-01 , & - &1.1179e+00 ,1.3144e+00 ,1.4843e+00 /) - kao(:, 1, 6,10) = (/ & - &9.1822e-02 ,1.2595e-01 ,1.5650e-01 ,2.1453e-01 ,2.8383e-01 ,3.5468e-01 , & - &4.2569e-01 ,4.9790e-01 ,5.6600e-01 /) - kao(:, 2, 6,10) = (/ & - &9.0834e-02 ,1.3514e-01 ,1.8905e-01 ,2.7114e-01 ,3.6116e-01 ,4.5123e-01 , & - &5.4153e-01 ,6.3330e-01 ,7.2013e-01 /) - kao(:, 3, 6,10) = (/ & - &9.0336e-02 ,1.4401e-01 ,2.2730e-01 ,3.3603e-01 ,4.4738e-01 ,5.5884e-01 , & - &6.7092e-01 ,7.8481e-01 ,8.9194e-01 /) - kao(:, 4, 6,10) = (/ & - &9.0439e-02 ,1.5770e-01 ,2.7084e-01 ,4.0445e-01 ,5.3847e-01 ,6.7263e-01 , & - &8.0760e-01 ,9.4541e-01 ,1.0734e+00 /) - kao(:, 5, 6,10) = (/ & - &8.9534e-02 ,1.7535e-01 ,3.1878e-01 ,4.7665e-01 ,6.3445e-01 ,7.9249e-01 , & - &9.5149e-01 ,1.1135e+00 ,1.2646e+00 /) - kao(:, 1, 7,10) = (/ & - &1.8704e-01 ,2.0782e-01 ,2.1870e-01 ,2.2895e-01 ,2.4473e-01 ,2.8566e-01 , & - &3.3903e-01 ,3.9559e-01 ,4.4999e-01 /) - kao(:, 2, 7,10) = (/ & - &1.8532e-01 ,2.1563e-01 ,2.3939e-01 ,2.5636e-01 ,3.0272e-01 ,3.6581e-01 , & - &4.3811e-01 ,5.1140e-01 ,5.8167e-01 /) - kao(:, 3, 7,10) = (/ & - &1.8680e-01 ,2.2377e-01 ,2.5927e-01 ,2.9855e-01 ,3.7097e-01 ,4.5865e-01 , & - &5.4953e-01 ,6.4162e-01 ,7.2947e-01 /) - kao(:, 4, 7,10) = (/ & - &1.8310e-01 ,2.3512e-01 ,2.8042e-01 ,3.5020e-01 ,4.4840e-01 ,5.5852e-01 , & - &6.6925e-01 ,7.8169e-01 ,8.8834e-01 /) - kao(:, 5, 7,10) = (/ & - &1.7882e-01 ,2.4826e-01 ,3.0849e-01 ,4.0772e-01 ,5.3530e-01 ,6.6727e-01 , & - &7.9969e-01 ,9.3357e-01 ,1.0615e+00 /) - kao(:, 1, 8,10) = (/ & - &4.1112e-01 ,4.0974e-01 ,4.1065e-01 ,3.9316e-01 ,3.5874e-01 ,3.2789e-01 , & - &2.9581e-01 ,3.0764e-01 ,1.9137e-01 /) - kao(:, 2, 8,10) = (/ & - &4.0366e-01 ,4.2457e-01 ,4.2635e-01 ,4.1703e-01 ,3.9720e-01 ,3.6880e-01 , & - &3.6253e-01 ,4.0327e-01 ,3.4592e-01 /) - kao(:, 3, 8,10) = (/ & - &3.8607e-01 ,4.4207e-01 ,4.4571e-01 ,4.4555e-01 ,4.3797e-01 ,4.1894e-01 , & - &4.4727e-01 ,5.1245e-01 ,5.5117e-01 /) - kao(:, 4, 8,10) = (/ & - &3.7227e-01 ,4.5775e-01 ,4.6855e-01 ,4.7950e-01 ,4.7625e-01 ,4.8559e-01 , & - &5.4513e-01 ,6.3288e-01 ,7.1148e-01 /) - kao(:, 5, 8,10) = (/ & - &3.6637e-01 ,4.6773e-01 ,4.9188e-01 ,5.1329e-01 ,5.2260e-01 ,5.7072e-01 , & - &6.6113e-01 ,7.6991e-01 ,8.6824e-01 /) - kao(:, 1, 9,10) = (/ & - &1.5096e+00 ,1.3467e+00 ,1.2191e+00 ,1.0959e+00 ,9.8221e-01 ,8.6433e-01 , & - &6.8915e-01 ,4.5155e-01 ,2.5455e-01 /) - kao(:, 2, 9,10) = (/ & - &1.4729e+00 ,1.3283e+00 ,1.2484e+00 ,1.1515e+00 ,1.0570e+00 ,9.2603e-01 , & - &7.4690e-01 ,5.0470e-01 ,3.4249e-01 /) - kao(:, 3, 9,10) = (/ & - &1.4533e+00 ,1.3348e+00 ,1.2453e+00 ,1.1987e+00 ,1.1351e+00 ,9.9543e-01 , & - &8.1023e-01 ,5.6196e-01 ,4.0591e-01 /) - kao(:, 4, 9,10) = (/ & - &1.4744e+00 ,1.3676e+00 ,1.2850e+00 ,1.2602e+00 ,1.1957e+00 ,1.0697e+00 , & - &8.6704e-01 ,6.2711e-01 ,4.8211e-01 /) - kao(:, 5, 9,10) = (/ & - &1.4999e+00 ,1.4091e+00 ,1.3355e+00 ,1.3264e+00 ,1.2721e+00 ,1.1339e+00 , & - &9.2252e-01 ,7.1025e-01 ,5.3091e-01 /) - kao(:, 1,10,10) = (/ & - &7.2829e+00 ,6.3687e+00 ,5.4628e+00 ,4.5827e+00 ,3.6816e+00 ,2.8784e+00 , & - &1.9461e+00 ,1.1228e+00 ,2.9615e-01 /) - kao(:, 2,10,10) = (/ & - &7.2567e+00 ,6.3523e+00 ,5.5013e+00 ,4.6178e+00 ,3.8060e+00 ,2.8925e+00 , & - &1.9877e+00 ,1.2045e+00 ,5.0840e-01 /) - kao(:, 3,10,10) = (/ & - &7.3526e+00 ,6.4384e+00 ,5.5471e+00 ,4.6686e+00 ,3.8188e+00 ,2.9106e+00 , & - &2.0584e+00 ,1.3182e+00 ,5.8969e-01 /) - kao(:, 4,10,10) = (/ & - &7.6517e+00 ,6.6965e+00 ,5.8098e+00 ,4.9129e+00 ,3.9609e+00 ,3.0608e+00 , & - &2.1952e+00 ,1.4642e+00 ,7.2061e-01 /) - kao(:, 5,10,10) = (/ & - &7.6682e+00 ,6.7495e+00 ,5.8665e+00 ,4.9992e+00 ,4.0971e+00 ,3.1895e+00 , & - &2.3244e+00 ,1.6171e+00 ,8.0277e-01 /) - kao(:, 1,11,10) = (/ & - &1.2863e+01 ,1.1253e+01 ,9.6455e+00 ,8.0559e+00 ,6.4984e+00 ,4.9709e+00 , & - &3.3831e+00 ,1.7991e+00 ,3.6644e-01 /) - kao(:, 2,11,10) = (/ & - &1.3151e+01 ,1.1511e+01 ,9.8627e+00 ,8.2765e+00 ,6.6703e+00 ,5.1195e+00 , & - &3.4235e+00 ,1.8440e+00 ,4.6729e-01 /) - kao(:, 3,11,10) = (/ & - &1.3385e+01 ,1.1711e+01 ,1.0081e+01 ,8.4279e+00 ,6.8536e+00 ,5.2620e+00 , & - &3.6394e+00 ,1.9452e+00 ,7.7574e-01 /) - kao(:, 4,11,10) = (/ & - &1.3506e+01 ,1.1818e+01 ,1.0183e+01 ,8.6029e+00 ,7.0409e+00 ,5.3665e+00 , & - &3.7651e+00 ,2.0591e+00 ,8.8231e-01 /) - kao(:, 5,11,10) = (/ & - &1.3392e+01 ,1.1719e+01 ,1.0115e+01 ,8.6680e+00 ,7.0525e+00 ,5.5043e+00 , & - &3.9029e+00 ,2.2010e+00 ,9.9688e-01 /) - kao(:, 1,12,10) = (/ & - &1.6670e+01 ,1.4588e+01 ,1.2501e+01 ,1.0421e+01 ,8.3941e+00 ,6.4270e+00 , & - &4.3660e+00 ,2.2934e+00 ,3.9405e-01 /) - kao(:, 2,12,10) = (/ & - &1.7105e+01 ,1.4960e+01 ,1.2826e+01 ,1.0751e+01 ,8.6199e+00 ,6.6739e+00 , & - &4.5154e+00 ,2.4126e+00 ,5.4759e-01 /) - kao(:, 3,12,10) = (/ & - &1.7307e+01 ,1.5147e+01 ,1.3016e+01 ,1.0902e+01 ,8.9354e+00 ,6.8220e+00 , & - &4.7181e+00 ,2.5631e+00 ,8.3787e-01 /) - kao(:, 4,12,10) = (/ & - &1.7279e+01 ,1.5121e+01 ,1.3042e+01 ,1.0948e+01 ,8.9655e+00 ,6.8546e+00 , & - &4.7965e+00 ,2.6658e+00 ,9.5310e-01 /) - kao(:, 5,12,10) = (/ & - &1.7622e+01 ,1.5423e+01 ,1.3295e+01 ,1.1391e+01 ,9.1951e+00 ,7.1021e+00 , & - &4.9630e+00 ,2.7853e+00 ,1.0381e+00 /) - kao(:, 1,13,10) = (/ & - &1.7285e+01 ,1.5124e+01 ,1.2963e+01 ,1.0843e+01 ,8.6958e+00 ,6.7399e+00 , & - &4.5324e+00 ,2.3893e+00 ,3.8223e-01 /) - kao(:, 2,13,10) = (/ & - &1.7394e+01 ,1.5220e+01 ,1.3045e+01 ,1.0933e+01 ,8.8783e+00 ,6.8319e+00 , & - &4.6535e+00 ,2.5278e+00 ,6.6322e-01 /) - kao(:, 3,13,10) = (/ & - &1.7534e+01 ,1.5350e+01 ,1.3222e+01 ,1.1038e+01 ,9.1270e+00 ,6.8978e+00 , & - &4.7818e+00 ,2.6214e+00 ,7.3123e-01 /) - kao(:, 4,13,10) = (/ & - &1.7891e+01 ,1.5660e+01 ,1.3479e+01 ,1.1400e+01 ,9.3159e+00 ,7.0998e+00 , & - &4.9577e+00 ,2.7354e+00 ,8.9654e-01 /) - kao(:, 5,13,10) = (/ & - &1.8019e+01 ,1.5767e+01 ,1.3610e+01 ,1.1614e+01 ,9.4166e+00 ,7.3122e+00 , & - &5.1530e+00 ,2.8785e+00 ,1.0692e+00 /) - kao(:, 1, 1,11) = (/ & - &3.1711e-03 ,2.2841e-01 ,4.5620e-01 ,6.8299e-01 ,9.0802e-01 ,1.1291e+00 , & - &1.3398e+00 ,1.4993e+00 ,1.8159e+00 /) - kao(:, 2, 1,11) = (/ & - &3.0704e-03 ,2.7128e-01 ,5.4234e-01 ,8.1284e-01 ,1.0822e+00 ,1.3468e+00 , & - &1.5998e+00 ,1.7945e+00 ,2.1643e+00 /) - kao(:, 3, 1,11) = (/ & - &2.9866e-03 ,3.1478e-01 ,6.2947e-01 ,9.4408e-01 ,1.2581e+00 ,1.5709e+00 , & - &1.8741e+00 ,2.1028e+00 ,2.5161e+00 /) - kao(:, 4, 1,11) = (/ & - &2.9163e-03 ,3.5938e-01 ,7.1835e-01 ,1.0774e+00 ,1.4362e+00 ,1.7946e+00 , & - &2.1451e+00 ,2.4217e+00 ,2.8722e+00 /) - kao(:, 5, 1,11) = (/ & - &2.8034e-03 ,4.0521e-01 ,8.0970e-01 ,1.2136e+00 ,1.6171e+00 ,2.0187e+00 , & - &2.4125e+00 ,2.7343e+00 ,3.2340e+00 /) - kao(:, 1, 2,11) = (/ & - &5.2383e-03 ,2.1282e-01 ,4.2542e-01 ,6.3727e-01 ,8.4863e-01 ,1.0581e+00 , & - &1.2660e+00 ,1.4631e+00 ,1.6971e+00 /) - kao(:, 2, 2,11) = (/ & - &5.1027e-03 ,2.5414e-01 ,5.0811e-01 ,7.6215e-01 ,1.0157e+00 ,1.2690e+00 , & - &1.5182e+00 ,1.7540e+00 ,2.0313e+00 /) - kao(:, 3, 2,11) = (/ & - &4.9821e-03 ,2.9639e-01 ,5.9276e-01 ,8.8910e-01 ,1.1857e+00 ,1.4825e+00 , & - &1.7783e+00 ,2.0622e+00 ,2.3711e+00 /) - kao(:, 4, 2,11) = (/ & - &4.8330e-03 ,3.4110e-01 ,6.8181e-01 ,1.0221e+00 ,1.3622e+00 ,1.7021e+00 , & - &2.0428e+00 ,2.3773e+00 ,2.7241e+00 /) - kao(:, 5, 2,11) = (/ & - &4.6466e-03 ,3.8845e-01 ,7.7604e-01 ,1.1627e+00 ,1.5479e+00 ,1.9317e+00 , & - &2.3125e+00 ,2.6917e+00 ,3.0955e+00 /) - kao(:, 1, 3,11) = (/ & - &1.1968e-02 ,1.8925e-01 ,3.7814e-01 ,5.6720e-01 ,7.5640e-01 ,9.4598e-01 , & - &1.1354e+00 ,1.3192e+00 ,1.5123e+00 /) - kao(:, 2, 3,11) = (/ & - &1.1738e-02 ,2.2858e-01 ,4.5676e-01 ,6.8520e-01 ,9.1426e-01 ,1.1439e+00 , & - &1.3747e+00 ,1.6035e+00 ,1.8280e+00 /) - kao(:, 3, 3,11) = (/ & - &1.1441e-02 ,2.7028e-01 ,5.3999e-01 ,8.0979e-01 ,1.0799e+00 ,1.3506e+00 , & - &1.6224e+00 ,1.8949e+00 ,2.1592e+00 /) - kao(:, 4, 3,11) = (/ & - &1.1066e-02 ,3.1556e-01 ,6.3024e-01 ,9.4495e-01 ,1.2595e+00 ,1.5736e+00 , & - &1.8868e+00 ,2.1970e+00 ,2.5183e+00 /) - kao(:, 5, 3,11) = (/ & - &1.0627e-02 ,3.6442e-01 ,7.2807e-01 ,1.0914e+00 ,1.4538e+00 ,1.8154e+00 , & - &2.1726e+00 ,2.5191e+00 ,2.9067e+00 /) - kao(:, 1, 4,11) = (/ & - &2.8048e-02 ,1.6151e-01 ,3.2202e-01 ,4.8262e-01 ,6.4375e-01 ,8.0530e-01 , & - &9.6854e-01 ,1.1364e+00 ,1.2863e+00 /) - kao(:, 2, 4,11) = (/ & - &2.7460e-02 ,1.9867e-01 ,3.9620e-01 ,5.9396e-01 ,7.9208e-01 ,9.9102e-01 , & - &1.1917e+00 ,1.3983e+00 ,1.5828e+00 /) - kao(:, 3, 4,11) = (/ & - &2.6672e-02 ,2.3899e-01 ,4.7658e-01 ,7.1429e-01 ,9.5231e-01 ,1.1913e+00 , & - &1.4318e+00 ,1.6791e+00 ,1.9031e+00 /) - kao(:, 4, 4,11) = (/ & - &2.5665e-02 ,2.8345e-01 ,5.6525e-01 ,8.4715e-01 ,1.1294e+00 ,1.4117e+00 , & - &1.6956e+00 ,1.9833e+00 ,2.2571e+00 /) - kao(:, 5, 4,11) = (/ & - &2.4958e-02 ,3.3271e-01 ,6.6383e-01 ,9.9466e-01 ,1.3259e+00 ,1.6572e+00 , & - &1.9874e+00 ,2.3183e+00 ,2.6500e+00 /) - kao(:, 1, 5,11) = (/ & - &5.9740e-02 ,1.3717e-01 ,2.6992e-01 ,4.0387e-01 ,5.3789e-01 ,6.7238e-01 , & - &8.0752e-01 ,9.4549e-01 ,1.0734e+00 /) - kao(:, 2, 5,11) = (/ & - &5.8323e-02 ,1.6942e-01 ,3.3625e-01 ,5.0313e-01 ,6.7036e-01 ,8.3790e-01 , & - &1.0063e+00 ,1.1790e+00 ,1.3380e+00 /) - kao(:, 3, 5,11) = (/ & - &5.6700e-02 ,2.0744e-01 ,4.1183e-01 ,6.1629e-01 ,8.2117e-01 ,1.0263e+00 , & - &1.2326e+00 ,1.4427e+00 ,1.6392e+00 /) - kao(:, 4, 5,11) = (/ & - &5.4845e-02 ,2.5070e-01 ,4.9802e-01 ,7.4525e-01 ,9.9296e-01 ,1.2407e+00 , & - &1.4895e+00 ,1.7409e+00 ,1.9825e+00 /) - kao(:, 5, 5,11) = (/ & - &5.3384e-02 ,2.9836e-01 ,5.9305e-01 ,8.8824e-01 ,1.1834e+00 ,1.4792e+00 , & - &1.7758e+00 ,2.0754e+00 ,2.3639e+00 /) - kao(:, 1, 6,11) = (/ & - &1.1443e-01 ,1.5330e-01 ,2.2814e-01 ,3.3358e-01 ,4.4343e-01 ,5.5347e-01 , & - &6.6399e-01 ,7.7608e-01 ,8.8294e-01 /) - kao(:, 2, 6,11) = (/ & - &1.1139e-01 ,1.6753e-01 ,2.8410e-01 ,4.2322e-01 ,5.6271e-01 ,7.0257e-01 , & - &8.4275e-01 ,9.8447e-01 ,1.1213e+00 /) - kao(:, 3, 6,11) = (/ & - &1.0816e-01 ,1.9391e-01 ,3.5154e-01 ,5.2463e-01 ,6.9799e-01 ,8.7181e-01 , & - &1.0460e+00 ,1.2220e+00 ,1.3917e+00 /) - kao(:, 4, 6,11) = (/ & - &1.0514e-01 ,2.2522e-01 ,4.2775e-01 ,6.3893e-01 ,8.5037e-01 ,1.0626e+00 , & - &1.2753e+00 ,1.4901e+00 ,1.6964e+00 /) - kao(:, 5, 6,11) = (/ & - &1.0414e-01 ,2.6189e-01 ,5.1110e-01 ,7.6424e-01 ,1.0178e+00 ,1.2716e+00 , & - &1.5264e+00 ,1.7854e+00 ,2.0311e+00 /) - kao(:, 1, 7,11) = (/ & - &2.3680e-01 ,2.5474e-01 ,2.7467e-01 ,2.9968e-01 ,3.6549e-01 ,4.4931e-01 , & - &5.3835e-01 ,6.2811e-01 ,7.1559e-01 /) - kao(:, 2, 7,11) = (/ & - &2.3126e-01 ,2.6667e-01 ,2.9742e-01 ,3.6770e-01 ,4.6828e-01 ,5.8355e-01 , & - &6.9932e-01 ,8.1593e-01 ,9.2966e-01 /) - kao(:, 3, 7,11) = (/ & - &2.2333e-01 ,2.8145e-01 ,3.3561e-01 ,4.4803e-01 ,5.8828e-01 ,7.3378e-01 , & - &8.7969e-01 ,1.0266e+00 ,1.1700e+00 /) - kao(:, 4, 7,11) = (/ & - &2.2006e-01 ,2.9370e-01 ,3.8943e-01 ,5.4388e-01 ,7.2193e-01 ,9.0087e-01 , & - &1.0804e+00 ,1.2609e+00 ,1.4372e+00 /) - kao(:, 5, 7,11) = (/ & - &2.1836e-01 ,3.0927e-01 ,4.5013e-01 ,6.5145e-01 ,8.6638e-01 ,1.0814e+00 , & - &1.2967e+00 ,1.5147e+00 ,1.7257e+00 /) - kao(:, 1, 8,11) = (/ & - &5.7508e-01 ,5.5228e-01 ,5.1832e-01 ,4.8920e-01 ,4.5962e-01 ,4.2790e-01 , & - &4.4544e-01 ,5.0496e-01 ,5.4406e-01 /) - kao(:, 2, 8,11) = (/ & - &5.5570e-01 ,5.5086e-01 ,5.3954e-01 ,5.2836e-01 ,5.0571e-01 ,5.1612e-01 , & - &5.7597e-01 ,6.6763e-01 ,7.6063e-01 /) - kao(:, 3, 8,11) = (/ & - &5.4644e-01 ,5.5917e-01 ,5.6849e-01 ,5.6772e-01 ,5.6845e-01 ,6.3045e-01 , & - &7.3261e-01 ,8.5320e-01 ,9.7237e-01 /) - kao(:, 4, 8,11) = (/ & - &5.4298e-01 ,5.6882e-01 ,5.9693e-01 ,6.1038e-01 ,6.5823e-01 ,7.6720e-01 , & - &9.1091e-01 ,1.0615e+00 ,1.2099e+00 /) - kao(:, 5, 8,11) = (/ & - &5.3663e-01 ,5.8485e-01 ,6.2913e-01 ,6.6732e-01 ,7.6736e-01 ,9.2195e-01 , & - &1.1025e+00 ,1.2850e+00 ,1.4649e+00 /) - kao(:, 1, 9,11) = (/ & - &2.5279e+00 ,2.2431e+00 ,2.0106e+00 ,1.7600e+00 ,1.4790e+00 ,1.2051e+00 , & - &8.9590e-01 ,5.8517e-01 ,3.0795e-01 /) - kao(:, 2, 9,11) = (/ & - &2.4601e+00 ,2.1917e+00 ,2.0103e+00 ,1.7592e+00 ,1.5280e+00 ,1.2575e+00 , & - &9.5967e-01 ,6.7082e-01 ,3.9930e-01 /) - kao(:, 3, 9,11) = (/ & - &2.4168e+00 ,2.1757e+00 ,2.0177e+00 ,1.7994e+00 ,1.5699e+00 ,1.3186e+00 , & - &1.0425e+00 ,7.7727e-01 ,5.2484e-01 /) - kao(:, 4, 9,11) = (/ & - &2.3770e+00 ,2.1985e+00 ,2.0410e+00 ,1.8443e+00 ,1.6274e+00 ,1.3869e+00 , & - &1.1288e+00 ,9.2337e-01 ,5.9212e-01 /) - kao(:, 5, 9,11) = (/ & - &2.3400e+00 ,2.1850e+00 ,2.0960e+00 ,1.9025e+00 ,1.6878e+00 ,1.4602e+00 , & - &1.2280e+00 ,1.0954e+00 ,7.2073e-01 /) - kao(:, 1,10,11) = (/ & - &1.1112e+01 ,9.7248e+00 ,8.3361e+00 ,7.0270e+00 ,5.7440e+00 ,4.5096e+00 , & - &3.2779e+00 ,1.8950e+00 ,4.0940e-01 /) - kao(:, 2,10,11) = (/ & - &1.0924e+01 ,9.5564e+00 ,8.1917e+00 ,6.9650e+00 ,5.7085e+00 ,4.6298e+00 , & - &3.3486e+00 ,2.0156e+00 ,4.6752e-01 /) - kao(:, 3,10,11) = (/ & - &1.0832e+01 ,9.4781e+00 ,8.2229e+00 ,6.9872e+00 ,5.8796e+00 ,4.6954e+00 , & - &3.5108e+00 ,2.1192e+00 ,8.0168e-01 /) - kao(:, 4,10,11) = (/ & - &1.0490e+01 ,9.1768e+00 ,8.0065e+00 ,6.9497e+00 ,5.9506e+00 ,4.7816e+00 , & - &3.6391e+00 ,2.2227e+00 ,9.3825e-01 /) - kao(:, 5,10,11) = (/ & - &1.0399e+01 ,9.1010e+00 ,8.0219e+00 ,7.0325e+00 ,5.9506e+00 ,4.9243e+00 , & - &3.8048e+00 ,2.3499e+00 ,1.1716e+00 /) - kao(:, 1,11,11) = (/ & - &1.6964e+01 ,1.4849e+01 ,1.2726e+01 ,1.0607e+01 ,8.5722e+00 ,6.5304e+00 , & - &4.5723e+00 ,2.5353e+00 ,5.7715e-01 /) - kao(:, 2,11,11) = (/ & - &1.6824e+01 ,1.4725e+01 ,1.2623e+01 ,1.0586e+01 ,8.5709e+00 ,6.6756e+00 , & - &4.7183e+00 ,2.7595e+00 ,6.2192e-01 /) - kao(:, 3,11,11) = (/ & - &1.6755e+01 ,1.4665e+01 ,1.2572e+01 ,1.0610e+01 ,8.6759e+00 ,6.8661e+00 , & - &4.7973e+00 ,2.9494e+00 ,7.1889e-01 /) - kao(:, 4,11,11) = (/ & - &1.6922e+01 ,1.4802e+01 ,1.2769e+01 ,1.0738e+01 ,8.9005e+00 ,6.9130e+00 , & - &5.0022e+00 ,3.1663e+00 ,1.1906e+00 /) - kao(:, 5,11,11) = (/ & - &1.7198e+01 ,1.5045e+01 ,1.3001e+01 ,1.1038e+01 ,9.0834e+00 ,7.0679e+00 , & - &5.2222e+00 ,3.3529e+00 ,1.3885e+00 /) - kao(:, 1,12,11) = (/ & - &2.1802e+01 ,1.9077e+01 ,1.6353e+01 ,1.3626e+01 ,1.0986e+01 ,8.2719e+00 , & - &5.7215e+00 ,2.9889e+00 ,6.5084e-01 /) - kao(:, 2,12,11) = (/ & - &2.2052e+01 ,1.9310e+01 ,1.6546e+01 ,1.3830e+01 ,1.1139e+01 ,8.5492e+00 , & - &5.8655e+00 ,3.1860e+00 ,7.2046e-01 /) - kao(:, 3,12,11) = (/ & - &2.2451e+01 ,1.9654e+01 ,1.6841e+01 ,1.4123e+01 ,1.1335e+01 ,8.7814e+00 , & - &5.9237e+00 ,3.3098e+00 ,8.3218e-01 /) - kao(:, 4,12,11) = (/ & - &2.3090e+01 ,2.0216e+01 ,1.7353e+01 ,1.4511e+01 ,1.1935e+01 ,9.0228e+00 , & - &6.2499e+00 ,3.5354e+00 ,1.3462e+00 /) - kao(:, 5,12,11) = (/ & - &2.3297e+01 ,2.0383e+01 ,1.7601e+01 ,1.4664e+01 ,1.2080e+01 ,9.1910e+00 , & - &6.4263e+00 ,3.7093e+00 ,1.5753e+00 /) - kao(:, 1,13,11) = (/ & - &2.3137e+01 ,2.0253e+01 ,1.7360e+01 ,1.4461e+01 ,1.1660e+01 ,8.7711e+00 , & - &6.0766e+00 ,3.2004e+00 ,6.2333e-01 /) - kao(:, 2,13,11) = (/ & - &2.3705e+01 ,2.0739e+01 ,1.7789e+01 ,1.4919e+01 ,1.1958e+01 ,9.2720e+00 , & - &6.2579e+00 ,3.3419e+00 ,6.6494e-01 /) - kao(:, 3,13,11) = (/ & - &2.4274e+01 ,2.1226e+01 ,1.8190e+01 ,1.5260e+01 ,1.2326e+01 ,9.5663e+00 , & - &6.4788e+00 ,3.4909e+00 ,1.1201e+00 /) - kao(:, 4,13,11) = (/ & - &2.4386e+01 ,2.1333e+01 ,1.8377e+01 ,1.5357e+01 ,1.2667e+01 ,9.6781e+00 , & - &6.7508e+00 ,3.6779e+00 ,1.3420e+00 /) - kao(:, 5,13,11) = (/ & - &2.4394e+01 ,2.1348e+01 ,1.8396e+01 ,1.5507e+01 ,1.2756e+01 ,9.7415e+00 , & - &6.8863e+00 ,3.8176e+00 ,1.6819e+00 /) - kao(:, 1, 1,12) = (/ & - &3.7292e-03 ,3.2906e-01 ,6.5580e-01 ,9.7933e-01 ,1.2975e+00 ,1.6059e+00 , & - &1.8953e+00 ,2.1342e+00 ,2.5948e+00 /) - kao(:, 2, 1,12) = (/ & - &3.6338e-03 ,3.9331e-01 ,7.8289e-01 ,1.1672e+00 ,1.5430e+00 ,1.9051e+00 , & - &2.2331e+00 ,2.4741e+00 ,3.0857e+00 /) - kao(:, 3, 1,12) = (/ & - &3.5564e-03 ,4.6323e-01 ,9.2190e-01 ,1.3739e+00 ,1.8144e+00 ,2.2323e+00 , & - &2.6037e+00 ,2.8683e+00 ,3.6286e+00 /) - kao(:, 4, 1,12) = (/ & - &3.4829e-03 ,5.3356e-01 ,1.0626e+00 ,1.5845e+00 ,2.0933e+00 ,2.5784e+00 , & - &3.0158e+00 ,3.3179e+00 ,4.1863e+00 /) - kao(:, 5, 1,12) = (/ & - &3.4329e-03 ,6.0324e-01 ,1.2029e+00 ,1.7965e+00 ,2.3794e+00 ,2.9402e+00 , & - &3.4530e+00 ,3.8265e+00 ,4.7585e+00 /) - kao(:, 1, 2,12) = (/ & - &6.2080e-03 ,3.1766e-01 ,6.3367e-01 ,9.4784e-01 ,1.2588e+00 ,1.5639e+00 , & - &1.8558e+00 ,2.1035e+00 ,2.5172e+00 /) - kao(:, 2, 2,12) = (/ & - &6.0635e-03 ,3.8413e-01 ,7.6634e-01 ,1.1462e+00 ,1.5215e+00 ,1.8884e+00 , & - &2.2355e+00 ,2.5176e+00 ,3.0427e+00 /) - kao(:, 3, 2,12) = (/ & - &5.9382e-03 ,4.5423e-01 ,9.0644e-01 ,1.3562e+00 ,1.8011e+00 ,2.2367e+00 , & - &2.6480e+00 ,2.9724e+00 ,3.6017e+00 /) - kao(:, 4, 2,12) = (/ & - &5.8323e-03 ,5.2519e-01 ,1.0487e+00 ,1.5700e+00 ,2.0875e+00 ,2.5951e+00 , & - &3.0747e+00 ,3.4387e+00 ,4.1744e+00 /) - kao(:, 5, 2,12) = (/ & - &5.7338e-03 ,5.9386e-01 ,1.1863e+00 ,1.7768e+00 ,2.3632e+00 ,2.9403e+00 , & - &3.4914e+00 ,3.9302e+00 ,4.7260e+00 /) - kao(:, 1, 3,12) = (/ & - &1.4176e-02 ,2.8836e-01 ,5.7586e-01 ,8.6297e-01 ,1.1493e+00 ,1.4343e+00 , & - &1.7160e+00 ,1.9825e+00 ,2.2980e+00 /) - kao(:, 2, 3,12) = (/ & - &1.3806e-02 ,3.5186e-01 ,7.0276e-01 ,1.0533e+00 ,1.4030e+00 ,1.7510e+00 , & - &2.0945e+00 ,2.4186e+00 ,2.8053e+00 /) - kao(:, 3, 3,12) = (/ & - &1.3514e-02 ,4.1890e-01 ,8.3697e-01 ,1.2547e+00 ,1.6718e+00 ,2.0870e+00 , & - &2.4990e+00 ,2.8908e+00 ,3.3428e+00 /) - kao(:, 4, 3,12) = (/ & - &1.3249e-02 ,4.8707e-01 ,9.7331e-01 ,1.4597e+00 ,1.9459e+00 ,2.4316e+00 , & - &2.9156e+00 ,3.3828e+00 ,3.8910e+00 /) - kao(:, 5, 3,12) = (/ & - &1.3015e-02 ,5.5537e-01 ,1.1100e+00 ,1.6644e+00 ,2.2195e+00 ,2.7745e+00 , & - &3.3300e+00 ,3.8734e+00 ,4.4382e+00 /) - kao(:, 1, 4,12) = (/ & - &3.3184e-02 ,2.5339e-01 ,5.0565e-01 ,7.5787e-01 ,1.0100e+00 ,1.2620e+00 , & - &1.5135e+00 ,1.7634e+00 ,2.0190e+00 /) - kao(:, 2, 4,12) = (/ & - &3.2427e-02 ,3.1318e-01 ,6.2514e-01 ,9.3708e-01 ,1.2489e+00 ,1.5601e+00 , & - &1.8704e+00 ,2.1781e+00 ,2.4966e+00 /) - kao(:, 3, 4,12) = (/ & - &3.1776e-02 ,3.7781e-01 ,7.5434e-01 ,1.1309e+00 ,1.5072e+00 ,1.8833e+00 , & - &2.2580e+00 ,2.6266e+00 ,3.0132e+00 /) - kao(:, 4, 4,12) = (/ & - &3.1130e-02 ,4.4383e-01 ,8.8640e-01 ,1.3292e+00 ,1.7718e+00 ,2.2142e+00 , & - &2.6572e+00 ,3.0981e+00 ,3.5423e+00 /) - kao(:, 5, 4,12) = (/ & - &3.0303e-02 ,5.1080e-01 ,1.0203e+00 ,1.5301e+00 ,2.0399e+00 ,2.5495e+00 , & - &3.0593e+00 ,3.5718e+00 ,4.0785e+00 /) - kao(:, 1, 5,12) = (/ & - &7.0197e-02 ,2.2033e-01 ,4.3908e-01 ,6.5775e-01 ,8.7643e-01 ,1.0950e+00 , & - &1.3134e+00 ,1.5311e+00 ,1.7514e+00 /) - kao(:, 2, 5,12) = (/ & - &6.8848e-02 ,2.7720e-01 ,5.5265e-01 ,8.2808e-01 ,1.1036e+00 ,1.3787e+00 , & - &1.6538e+00 ,1.9275e+00 ,2.2056e+00 /) - kao(:, 3, 5,12) = (/ & - &6.6971e-02 ,3.3853e-01 ,6.7513e-01 ,1.0119e+00 ,1.3485e+00 ,1.6854e+00 , & - &2.0224e+00 ,2.3592e+00 ,2.6952e+00 /) - kao(:, 4, 5,12) = (/ & - &6.5365e-02 ,4.0161e-01 ,8.0132e-01 ,1.2011e+00 ,1.6012e+00 ,2.0009e+00 , & - &2.4008e+00 ,2.8038e+00 ,3.2005e+00 /) - kao(:, 5, 5,12) = (/ & - &6.3431e-02 ,4.6828e-01 ,9.3456e-01 ,1.4005e+00 ,1.8671e+00 ,2.3331e+00 , & - &2.7981e+00 ,3.2640e+00 ,3.7323e+00 /) - kao(:, 1, 6,12) = (/ & - &1.3973e-01 ,2.0662e-01 ,3.6962e-01 ,5.5318e-01 ,7.3681e-01 ,9.2064e-01 , & - &1.1045e+00 ,1.2891e+00 ,1.4713e+00 /) - kao(:, 2, 6,12) = (/ & - &1.3671e-01 ,2.4877e-01 ,4.7403e-01 ,7.0978e-01 ,9.4572e-01 ,1.1814e+00 , & - &1.4179e+00 ,1.6551e+00 ,1.8888e+00 /) - kao(:, 3, 6,12) = (/ & - &1.3368e-01 ,2.9917e-01 ,5.8968e-01 ,8.8312e-01 ,1.1767e+00 ,1.4704e+00 , & - &1.7646e+00 ,2.0602e+00 ,2.3507e+00 /) - kao(:, 4, 6,12) = (/ & - &1.2994e-01 ,3.5894e-01 ,7.1459e-01 ,1.0704e+00 ,1.4263e+00 ,1.7824e+00 , & - &2.1385e+00 ,2.4959e+00 ,2.8498e+00 /) - kao(:, 5, 6,12) = (/ & - &1.2525e-01 ,4.2650e-01 ,8.4975e-01 ,1.2729e+00 ,1.6963e+00 ,2.1200e+00 , & - &2.5435e+00 ,2.9674e+00 ,3.3897e+00 /) - kao(:, 1, 7,12) = (/ & - &2.8974e-01 ,3.1610e-01 ,3.5823e-01 ,4.6930e-01 ,6.1329e-01 ,7.6583e-01 , & - &9.1850e-01 ,1.0715e+00 ,1.2231e+00 /) - kao(:, 2, 7,12) = (/ & - &2.8480e-01 ,3.2946e-01 ,4.3038e-01 ,6.0019e-01 ,7.9796e-01 ,9.9665e-01 , & - &1.1955e+00 ,1.3949e+00 ,1.5921e+00 /) - kao(:, 3, 7,12) = (/ & - &2.7871e-01 ,3.5067e-01 ,5.1857e-01 ,7.5801e-01 ,1.0094e+00 ,1.2608e+00 , & - &1.5125e+00 ,1.7653e+00 ,2.0145e+00 /) - kao(:, 4, 7,12) = (/ & - &2.7300e-01 ,3.8461e-01 ,6.2621e-01 ,9.3301e-01 ,1.2423e+00 ,1.5518e+00 , & - &1.8620e+00 ,2.1734e+00 ,2.4799e+00 /) - kao(:, 5, 7,12) = (/ & - &2.6591e-01 ,4.2736e-01 ,7.5270e-01 ,1.1266e+00 ,1.5003e+00 ,1.8747e+00 , & - &2.2489e+00 ,2.6247e+00 ,2.9958e+00 /) - kao(:, 1, 8,12) = (/ & - &7.1395e-01 ,6.8533e-01 ,6.5866e-01 ,6.2646e-01 ,6.1056e-01 ,6.5589e-01 , & - &7.5232e-01 ,8.7691e-01 ,1.0005e+00 /) - kao(:, 2, 8,12) = (/ & - &7.0494e-01 ,6.9398e-01 ,6.9094e-01 ,6.7668e-01 ,7.2746e-01 ,8.4153e-01 , & - &1.0006e+00 ,1.1668e+00 ,1.3319e+00 /) - kao(:, 3, 8,12) = (/ & - &6.9397e-01 ,7.0598e-01 ,7.2266e-01 ,7.6185e-01 ,8.8476e-01 ,1.0705e+00 , & - &1.2831e+00 ,1.4961e+00 ,1.7076e+00 /) - kao(:, 4, 8,12) = (/ & - &6.8087e-01 ,7.2362e-01 ,7.6721e-01 ,8.7767e-01 ,1.0787e+00 ,1.3359e+00 , & - &1.6015e+00 ,1.8678e+00 ,2.1324e+00 /) - kao(:, 5, 8,12) = (/ & - &6.7139e-01 ,7.3688e-01 ,8.3187e-01 ,1.0246e+00 ,1.3106e+00 ,1.6352e+00 , & - &1.9607e+00 ,2.2865e+00 ,2.6110e+00 /) - kao(:, 1, 9,12) = (/ & - &3.4095e+00 ,2.9940e+00 ,2.6084e+00 ,2.2712e+00 ,1.8987e+00 ,1.5323e+00 , & - &1.1724e+00 ,8.1780e-01 ,4.0421e-01 /) - kao(:, 2, 9,12) = (/ & - &3.3693e+00 ,2.9832e+00 ,2.6354e+00 ,2.2978e+00 ,1.9462e+00 ,1.6166e+00 , & - &1.2713e+00 ,1.0128e+00 ,5.1858e-01 /) - kao(:, 3, 9,12) = (/ & - &3.3273e+00 ,2.9606e+00 ,2.6476e+00 ,2.3138e+00 ,2.0240e+00 ,1.7033e+00 , & - &1.3935e+00 ,1.2814e+00 ,6.1493e-01 /) - kao(:, 4, 9,12) = (/ & - &3.2577e+00 ,2.9148e+00 ,2.6437e+00 ,2.3667e+00 ,2.0968e+00 ,1.8097e+00 , & - &1.5817e+00 ,1.6061e+00 ,8.7818e-01 /) - kao(:, 5, 9,12) = (/ & - &3.1999e+00 ,2.9208e+00 ,2.6366e+00 ,2.4121e+00 ,2.1879e+00 ,1.9394e+00 , & - &1.8270e+00 ,1.9776e+00 ,1.4315e+00 /) - kao(:, 1,10,12) = (/ & - &1.8080e+01 ,1.5820e+01 ,1.3560e+01 ,1.1300e+01 ,9.1208e+00 ,6.9174e+00 , & - &4.8050e+00 ,2.5816e+00 ,5.9225e-01 /) - kao(:, 2,10,12) = (/ & - &1.7863e+01 ,1.5633e+01 ,1.3401e+01 ,1.1233e+01 ,9.0719e+00 ,6.9705e+00 , & - &4.8769e+00 ,2.6813e+00 ,6.3411e-01 /) - kao(:, 3,10,12) = (/ & - &1.7446e+01 ,1.5265e+01 ,1.3103e+01 ,1.1057e+01 ,9.0250e+00 ,7.0448e+00 , & - &4.8922e+00 ,2.7949e+00 ,7.0806e-01 /) - kao(:, 4,10,12) = (/ & - &1.7175e+01 ,1.5031e+01 ,1.2961e+01 ,1.0925e+01 ,8.9744e+00 ,7.0129e+00 , & - &4.9823e+00 ,2.9347e+00 ,1.2270e+00 /) - kao(:, 5,10,12) = (/ & - &1.6980e+01 ,1.4865e+01 ,1.2847e+01 ,1.0927e+01 ,9.0016e+00 ,7.0557e+00 , & - &5.0460e+00 ,3.0782e+00 ,1.3161e+00 /) - kao(:, 1,11,12) = (/ & - &3.1621e+01 ,2.7664e+01 ,2.3716e+01 ,1.9762e+01 ,1.5836e+01 ,1.2028e+01 , & - &8.3404e+00 ,4.4951e+00 ,7.7226e-01 /) - kao(:, 2,11,12) = (/ & - &3.1089e+01 ,2.7197e+01 ,2.3314e+01 ,1.9432e+01 ,1.5688e+01 ,1.1946e+01 , & - &8.4568e+00 ,4.5500e+00 ,1.2396e+00 /) - kao(:, 3,11,12) = (/ & - &3.0576e+01 ,2.6758e+01 ,2.2933e+01 ,1.9212e+01 ,1.5533e+01 ,1.1953e+01 , & - &8.4697e+00 ,4.6829e+00 ,1.0564e+00 /) - kao(:, 4,11,12) = (/ & - &3.0097e+01 ,2.6346e+01 ,2.2583e+01 ,1.9026e+01 ,1.5507e+01 ,1.2181e+01 , & - &8.5232e+00 ,4.7855e+00 ,1.0613e+00 /) - kao(:, 5,11,12) = (/ & - &2.9719e+01 ,2.6007e+01 ,2.2377e+01 ,1.8843e+01 ,1.5650e+01 ,1.2244e+01 , & - &8.6646e+00 ,4.9270e+00 ,1.7788e+00 /) - kao(:, 1,12,12) = (/ & - &3.8089e+01 ,3.3321e+01 ,2.8563e+01 ,2.3805e+01 ,1.9048e+01 ,1.4479e+01 , & - &1.0042e+01 ,5.5700e+00 ,1.0139e+00 /) - kao(:, 2,12,12) = (/ & - &3.7254e+01 ,3.2590e+01 ,2.7941e+01 ,2.3286e+01 ,1.8814e+01 ,1.4266e+01 , & - &1.0187e+01 ,5.6505e+00 ,1.3358e+00 /) - kao(:, 3,12,12) = (/ & - &3.6753e+01 ,3.2149e+01 ,2.7565e+01 ,2.3058e+01 ,1.8681e+01 ,1.4515e+01 , & - &1.0441e+01 ,5.8743e+00 ,1.3962e+00 /) - kao(:, 4,12,12) = (/ & - &3.6095e+01 ,3.1568e+01 ,2.7073e+01 ,2.2830e+01 ,1.8483e+01 ,1.4754e+01 , & - &1.0446e+01 ,6.0858e+00 ,1.2630e+00 /) - kao(:, 5,12,12) = (/ & - &3.5605e+01 ,3.1165e+01 ,2.6709e+01 ,2.2579e+01 ,1.8648e+01 ,1.4780e+01 , & - &1.0721e+01 ,6.3554e+00 ,1.9400e+00 /) - kao(:, 1,13,12) = (/ & - &3.6373e+01 ,3.1828e+01 ,2.7282e+01 ,2.2746e+01 ,1.8235e+01 ,1.3858e+01 , & - &9.7116e+00 ,5.3620e+00 ,1.4114e+00 /) - kao(:, 2,13,12) = (/ & - &3.6095e+01 ,3.1587e+01 ,2.7062e+01 ,2.2560e+01 ,1.8254e+01 ,1.3864e+01 , & - &1.0010e+01 ,5.5792e+00 ,1.4567e+00 /) - kao(:, 3,13,12) = (/ & - &3.5583e+01 ,3.1140e+01 ,2.6700e+01 ,2.2381e+01 ,1.8087e+01 ,1.4135e+01 , & - &1.0160e+01 ,5.8997e+00 ,1.1528e+00 /) - kao(:, 4,13,12) = (/ & - &3.5474e+01 ,3.1045e+01 ,2.6613e+01 ,2.2429e+01 ,1.8206e+01 ,1.4545e+01 , & - &1.0311e+01 ,6.1832e+00 ,1.6292e+00 /) - kao(:, 5,13,12) = (/ & - &3.5565e+01 ,3.1124e+01 ,2.6773e+01 ,2.2531e+01 ,1.8670e+01 ,1.4802e+01 , & - &1.0686e+01 ,6.5577e+00 ,2.3163e+00 /) - kao(:, 1, 1,13) = (/ & - &4.6813e-03 ,5.0961e-01 ,1.0176e+00 ,1.5220e+00 ,2.0224e+00 ,2.5138e+00 , & - &2.9825e+00 ,3.3723e+00 ,4.0446e+00 /) - kao(:, 2, 1,13) = (/ & - &4.5378e-03 ,5.9150e-01 ,1.1812e+00 ,1.7694e+00 ,2.3540e+00 ,2.9329e+00 , & - &3.4999e+00 ,3.9983e+00 ,4.7077e+00 /) - kao(:, 3, 1,13) = (/ & - &4.3993e-03 ,6.8031e-01 ,1.3585e+00 ,2.0344e+00 ,2.7071e+00 ,3.3760e+00 , & - &4.0375e+00 ,4.6330e+00 ,5.4138e+00 /) - kao(:, 4, 1,13) = (/ & - &4.2648e-03 ,7.8088e-01 ,1.5583e+00 ,2.3313e+00 ,3.0997e+00 ,3.8593e+00 , & - &4.5971e+00 ,5.2655e+00 ,6.1991e+00 /) - kao(:, 5, 1,13) = (/ & - &4.1347e-03 ,8.9242e-01 ,1.7790e+00 ,2.6579e+00 ,3.5250e+00 ,4.3745e+00 , & - &5.1887e+00 ,5.9002e+00 ,7.0497e+00 /) - kao(:, 1, 2,13) = (/ & - &7.6228e-03 ,4.9032e-01 ,9.7924e-01 ,1.4667e+00 ,1.9517e+00 ,2.4315e+00 , & - &2.8986e+00 ,3.3149e+00 ,3.9031e+00 /) - kao(:, 2, 2,13) = (/ & - &7.3845e-03 ,5.7215e-01 ,1.1423e+00 ,1.7099e+00 ,2.2735e+00 ,2.8309e+00 , & - &3.3762e+00 ,3.8853e+00 ,4.5466e+00 /) - kao(:, 3, 2,13) = (/ & - &7.1668e-03 ,6.6400e-01 ,1.3252e+00 ,1.9825e+00 ,2.6343e+00 ,3.2753e+00 , & - &3.8969e+00 ,4.4792e+00 ,5.2681e+00 /) - kao(:, 4, 2,13) = (/ & - &6.9674e-03 ,7.6745e-01 ,1.5306e+00 ,2.2881e+00 ,3.0362e+00 ,3.7701e+00 , & - &4.4777e+00 ,5.1450e+00 ,6.0719e+00 /) - kao(:, 5, 2,13) = (/ & - &6.7870e-03 ,8.8445e-01 ,1.7639e+00 ,2.6357e+00 ,3.4964e+00 ,4.3377e+00 , & - &5.1390e+00 ,5.8595e+00 ,6.9924e+00 /) - kao(:, 1, 3,13) = (/ & - &1.6838e-02 ,4.6207e-01 ,9.2280e-01 ,1.3820e+00 ,1.8387e+00 ,2.2901e+00 , & - &2.7306e+00 ,3.1427e+00 ,3.6769e+00 /) - kao(:, 2, 3,13) = (/ & - &1.6384e-02 ,5.4636e-01 ,1.0908e+00 ,1.6331e+00 ,2.1721e+00 ,2.7041e+00 , & - &3.2216e+00 ,3.6963e+00 ,4.3436e+00 /) - kao(:, 3, 3,13) = (/ & - &1.5944e-02 ,6.4109e-01 ,1.2798e+00 ,1.9157e+00 ,2.5468e+00 ,3.1693e+00 , & - &3.7717e+00 ,4.3145e+00 ,5.0931e+00 /) - kao(:, 4, 3,13) = (/ & - &1.5558e-02 ,7.4877e-01 ,1.4944e+00 ,2.2360e+00 ,2.9707e+00 ,3.6929e+00 , & - &4.3862e+00 ,5.0013e+00 ,5.9409e+00 /) - kao(:, 5, 3,13) = (/ & - &1.5161e-02 ,8.6996e-01 ,1.7361e+00 ,2.5972e+00 ,3.4498e+00 ,4.2854e+00 , & - &5.0840e+00 ,5.7719e+00 ,6.8989e+00 /) - kao(:, 1, 4,13) = (/ & - &3.7812e-02 ,4.2471e-01 ,8.4847e-01 ,1.2717e+00 ,1.6944e+00 ,2.1155e+00 , & - &2.5337e+00 ,2.9379e+00 ,3.3881e+00 /) - kao(:, 2, 4,13) = (/ & - &3.6812e-02 ,5.1516e-01 ,1.0290e+00 ,1.5422e+00 ,2.0538e+00 ,2.5636e+00 , & - &3.0667e+00 ,3.5462e+00 ,4.1066e+00 /) - kao(:, 3, 4,13) = (/ & - &3.5849e-02 ,6.1666e-01 ,1.2316e+00 ,1.8451e+00 ,2.4569e+00 ,3.0640e+00 , & - &3.6618e+00 ,4.2232e+00 ,4.9129e+00 /) - kao(:, 4, 4,13) = (/ & - &3.5079e-02 ,7.3193e-01 ,1.4618e+00 ,2.1899e+00 ,2.9146e+00 ,3.6330e+00 , & - &4.3356e+00 ,4.9789e+00 ,5.8283e+00 /) - kao(:, 5, 4,13) = (/ & - &3.4393e-02 ,8.5645e-01 ,1.7103e+00 ,2.5622e+00 ,3.4100e+00 ,4.2503e+00 , & - &5.0712e+00 ,5.8174e+00 ,6.8190e+00 /) - kao(:, 1, 5,13) = (/ & - &8.0627e-02 ,3.8028e-01 ,7.5923e-01 ,1.1381e+00 ,1.5165e+00 ,1.8947e+00 , & - &2.2720e+00 ,2.6453e+00 ,3.0318e+00 /) - kao(:, 2, 5,13) = (/ & - &7.8562e-02 ,4.7262e-01 ,9.4356e-01 ,1.4144e+00 ,1.8847e+00 ,2.3543e+00 , & - &2.8214e+00 ,3.2802e+00 ,3.7680e+00 /) - kao(:, 3, 5,13) = (/ & - &7.6982e-02 ,5.7810e-01 ,1.1544e+00 ,1.7303e+00 ,2.3053e+00 ,2.8784e+00 , & - &3.4478e+00 ,4.0008e+00 ,4.6091e+00 /) - kao(:, 4, 5,13) = (/ & - &7.5657e-02 ,6.9735e-01 ,1.3928e+00 ,2.0875e+00 ,2.7814e+00 ,3.4728e+00 , & - &4.1587e+00 ,4.8230e+00 ,5.5613e+00 /) - kao(:, 5, 5,13) = (/ & - &7.4333e-02 ,8.2506e-01 ,1.6482e+00 ,2.4702e+00 ,3.2916e+00 ,4.1103e+00 , & - &4.9228e+00 ,5.7104e+00 ,6.5816e+00 /) - kao(:, 1, 6,13) = (/ & - &1.6425e-01 ,3.3608e-01 ,6.6609e-01 ,9.9817e-01 ,1.3302e+00 ,1.6619e+00 , & - &1.9931e+00 ,2.3215e+00 ,2.6587e+00 /) - kao(:, 2, 6,13) = (/ & - &1.6074e-01 ,4.2522e-01 ,8.4831e-01 ,1.2715e+00 ,1.6941e+00 ,2.1166e+00 , & - &2.5378e+00 ,2.9543e+00 ,3.3863e+00 /) - kao(:, 3, 6,13) = (/ & - &1.5834e-01 ,5.2989e-01 ,1.0574e+00 ,1.5848e+00 ,2.1117e+00 ,2.6382e+00 , & - &3.1634e+00 ,3.6820e+00 ,4.2213e+00 /) - kao(:, 4, 6,13) = (/ & - &1.5607e-01 ,6.4460e-01 ,1.2868e+00 ,1.9290e+00 ,2.5707e+00 ,3.2115e+00 , & - &3.8511e+00 ,4.4833e+00 ,5.1392e+00 /) - kao(:, 5, 6,13) = (/ & - &1.5296e-01 ,7.6868e-01 ,1.5350e+00 ,2.3008e+00 ,3.0663e+00 ,3.8313e+00 , & - &4.5942e+00 ,5.3490e+00 ,6.1304e+00 /) - kao(:, 1, 7,13) = (/ & - &3.5667e-01 ,3.9890e-01 ,5.8897e-01 ,8.6077e-01 ,1.1469e+00 ,1.4325e+00 , & - &1.7184e+00 ,2.0036e+00 ,2.2913e+00 /) - kao(:, 2, 7,13) = (/ & - &3.5161e-01 ,4.4967e-01 ,7.5040e-01 ,1.1221e+00 ,1.4950e+00 ,1.8682e+00 , & - &2.2405e+00 ,2.6119e+00 ,2.9872e+00 /) - kao(:, 3, 7,13) = (/ & - &3.4606e-01 ,5.1859e-01 ,9.4635e-01 ,1.4181e+00 ,1.8897e+00 ,2.3609e+00 , & - &2.8323e+00 ,3.3018e+00 ,3.7764e+00 /) - kao(:, 4, 7,13) = (/ & - &3.3825e-01 ,6.0265e-01 ,1.1668e+00 ,1.7485e+00 ,2.3304e+00 ,2.9114e+00 , & - &3.4925e+00 ,4.0716e+00 ,4.6575e+00 /) - kao(:, 5, 7,13) = (/ & - &3.3043e-01 ,7.1091e-01 ,1.4088e+00 ,2.1112e+00 ,2.8136e+00 ,3.5161e+00 , & - &4.2182e+00 ,4.9170e+00 ,5.6239e+00 /) - kao(:, 1, 8,13) = (/ & - &9.2067e-01 ,8.6182e-01 ,8.2952e-01 ,8.7491e-01 ,1.0086e+00 ,1.2181e+00 , & - &1.4607e+00 ,1.7034e+00 ,1.9462e+00 /) - kao(:, 2, 8,13) = (/ & - &9.0671e-01 ,8.7567e-01 ,8.9610e-01 ,1.0491e+00 ,1.2996e+00 ,1.6153e+00 , & - &1.9371e+00 ,2.2592e+00 ,2.5816e+00 /) - kao(:, 3, 8,13) = (/ & - &8.8973e-01 ,8.8439e-01 ,1.0044e+00 ,1.2766e+00 ,1.6623e+00 ,2.0766e+00 , & - &2.4910e+00 ,2.9049e+00 ,3.3193e+00 /) - kao(:, 4, 8,13) = (/ & - &8.6846e-01 ,9.1357e-01 ,1.1469e+00 ,1.5675e+00 ,2.0797e+00 ,2.5979e+00 , & - &3.1162e+00 ,3.6352e+00 ,4.1539e+00 /) - kao(:, 5, 8,13) = (/ & - &8.4664e-01 ,9.6627e-01 ,1.3262e+00 ,1.9064e+00 ,2.5399e+00 ,3.1734e+00 , & - &3.8073e+00 ,4.4405e+00 ,5.0740e+00 /) - kao(:, 1, 9,13) = (/ & - &4.4067e+00 ,3.8562e+00 ,3.3799e+00 ,2.9279e+00 ,2.4898e+00 ,2.0023e+00 , & - &1.6061e+00 ,1.4556e+00 ,5.3966e-01 /) - kao(:, 2, 9,13) = (/ & - &4.3584e+00 ,3.8431e+00 ,3.3719e+00 ,2.9985e+00 ,2.5395e+00 ,2.1329e+00 , & - &1.8824e+00 ,1.9290e+00 ,1.2534e+00 /) - kao(:, 3, 9,13) = (/ & - &4.2715e+00 ,3.7950e+00 ,3.4185e+00 ,3.0378e+00 ,2.6388e+00 ,2.3497e+00 , & - &2.2667e+00 ,2.5092e+00 ,2.3205e+00 /) - kao(:, 4, 9,13) = (/ & - &4.1934e+00 ,3.7482e+00 ,3.4519e+00 ,3.0862e+00 ,2.7969e+00 ,2.6493e+00 , & - &2.7789e+00 ,3.1851e+00 ,3.5246e+00 /) - kao(:, 5, 9,13) = (/ & - &4.0917e+00 ,3.7105e+00 ,3.4634e+00 ,3.1979e+00 ,3.0093e+00 ,3.0525e+00 , & - &3.4012e+00 ,3.9555e+00 ,4.5178e+00 /) - kao(:, 1,10,13) = (/ & - &2.3719e+01 ,2.0753e+01 ,1.7788e+01 ,1.4825e+01 ,1.1907e+01 ,9.0621e+00 , & - &6.2541e+00 ,3.4363e+00 ,9.1814e-01 /) - kao(:, 2,10,13) = (/ & - &2.3432e+01 ,2.0501e+01 ,1.7571e+01 ,1.4658e+01 ,1.1890e+01 ,9.0622e+00 , & - &6.4024e+00 ,3.5910e+00 ,1.1158e+00 /) - kao(:, 3,10,13) = (/ & - &2.3069e+01 ,2.0187e+01 ,1.7300e+01 ,1.4541e+01 ,1.1793e+01 ,9.1570e+00 , & - &6.5099e+00 ,3.8249e+00 ,9.3188e-01 /) - kao(:, 4,10,13) = (/ & - &2.2641e+01 ,1.9809e+01 ,1.6998e+01 ,1.4367e+01 ,1.1776e+01 ,9.2770e+00 , & - &6.6180e+00 ,4.0885e+00 ,9.9189e-01 /) - kao(:, 5,10,13) = (/ & - &2.2220e+01 ,1.9436e+01 ,1.6770e+01 ,1.4187e+01 ,1.1792e+01 ,9.2910e+00 , & - &6.8771e+00 ,4.4865e+00 ,1.9399e+00 /) - kao(:, 1,11,13) = (/ & - &4.4319e+01 ,3.8780e+01 ,3.3240e+01 ,2.7701e+01 ,2.2160e+01 ,1.6704e+01 , & - &1.1307e+01 ,6.0563e+00 ,5.8625e-01 /) - kao(:, 2,11,13) = (/ & - &4.3809e+01 ,3.8330e+01 ,3.2852e+01 ,2.7376e+01 ,2.1936e+01 ,1.6626e+01 , & - &1.1378e+01 ,6.1989e+00 ,8.1730e-01 /) - kao(:, 3,11,13) = (/ & - &4.3202e+01 ,3.7799e+01 ,3.2400e+01 ,2.7000e+01 ,2.1788e+01 ,1.6575e+01 , & - &1.1586e+01 ,6.3577e+00 ,1.8296e+00 /) - kao(:, 4,11,13) = (/ & - &4.2458e+01 ,3.7147e+01 ,3.1841e+01 ,2.6621e+01 ,2.1500e+01 ,1.6577e+01 , & - &1.1663e+01 ,6.6208e+00 ,1.8735e+00 /) - kao(:, 5,11,13) = (/ & - &4.1634e+01 ,3.6429e+01 ,3.1221e+01 ,2.6233e+01 ,2.1246e+01 ,1.6580e+01 , & - &1.1685e+01 ,6.9092e+00 ,1.7032e+00 /) - kao(:, 1,12,13) = (/ & - &6.1904e+01 ,5.4167e+01 ,4.6429e+01 ,3.8690e+01 ,3.0952e+01 ,2.3248e+01 , & - &1.5661e+01 ,8.2582e+00 ,4.3930e-01 /) - kao(:, 2,12,13) = (/ & - &6.1270e+01 ,5.3611e+01 ,4.5953e+01 ,3.8296e+01 ,3.0637e+01 ,2.3190e+01 , & - &1.5723e+01 ,8.4338e+00 ,1.2396e+00 /) - kao(:, 3,12,13) = (/ & - &6.0345e+01 ,5.2802e+01 ,4.5261e+01 ,3.7714e+01 ,3.0326e+01 ,2.2898e+01 , & - &1.5824e+01 ,8.5563e+00 ,2.5106e+00 /) - kao(:, 4,12,13) = (/ & - &5.9306e+01 ,5.1895e+01 ,4.4474e+01 ,3.7089e+01 ,2.9895e+01 ,2.2756e+01 , & - &1.5929e+01 ,8.7873e+00 ,2.2974e+00 /) - kao(:, 5,12,13) = (/ & - &5.8419e+01 ,5.1111e+01 ,4.3811e+01 ,3.6683e+01 ,2.9523e+01 ,2.2821e+01 , & - &1.5911e+01 ,9.0327e+00 ,2.2973e+00 /) - kao(:, 1,13,13) = (/ & - &6.8544e+01 ,5.9975e+01 ,5.1408e+01 ,4.2840e+01 ,3.4272e+01 ,2.5775e+01 , & - &1.7340e+01 ,9.2235e+00 ,4.0824e-01 /) - kao(:, 2,13,13) = (/ & - &6.7698e+01 ,5.9233e+01 ,5.0770e+01 ,4.2312e+01 ,3.3875e+01 ,2.5602e+01 , & - &1.7402e+01 ,9.3485e+00 ,1.7747e+00 /) - kao(:, 3,13,13) = (/ & - &6.6803e+01 ,5.8453e+01 ,5.0103e+01 ,4.1750e+01 ,3.3601e+01 ,2.5372e+01 , & - &1.7686e+01 ,9.4660e+00 ,2.9931e+00 /) - kao(:, 4,13,13) = (/ & - &6.5956e+01 ,5.7706e+01 ,4.9463e+01 ,4.1288e+01 ,3.3259e+01 ,2.5336e+01 , & - &1.7750e+01 ,9.7483e+00 ,2.7732e+00 /) - kao(:, 5,13,13) = (/ & - &6.5110e+01 ,5.6969e+01 ,4.8829e+01 ,4.0948e+01 ,3.2989e+01 ,2.5559e+01 , & - &1.7705e+01 ,9.9706e+00 ,2.2584e+00 /) - kao(:, 1, 1,14) = (/ & - &5.3617e-03 ,8.8862e-01 ,1.7657e+00 ,2.6246e+00 ,3.4547e+00 ,4.2326e+00 , & - &4.9022e+00 ,5.2848e+00 ,6.9093e+00 /) - kao(:, 2, 1,14) = (/ & - &5.2510e-03 ,1.0670e+00 ,2.1191e+00 ,3.1492e+00 ,4.1423e+00 ,5.0696e+00 , & - &5.8593e+00 ,6.2778e+00 ,8.2844e+00 /) - kao(:, 3, 1,14) = (/ & - &5.1410e-03 ,1.2574e+00 ,2.4970e+00 ,3.7095e+00 ,4.8778e+00 ,5.9654e+00 , & - &6.8831e+00 ,7.3419e+00 ,9.7553e+00 /) - kao(:, 4, 1,14) = (/ & - &5.0266e-03 ,1.4566e+00 ,2.8932e+00 ,4.2987e+00 ,5.6515e+00 ,6.9086e+00 , & - &7.9640e+00 ,8.4651e+00 ,1.1303e+01 /) - kao(:, 5, 1,14) = (/ & - &4.9104e-03 ,1.6562e+00 ,3.2920e+00 ,4.8956e+00 ,6.4440e+00 ,7.8868e+00 , & - &9.0871e+00 ,9.6375e+00 ,1.2888e+01 /) - kao(:, 1, 2,14) = (/ & - &8.7449e-03 ,9.0334e-01 ,1.7988e+00 ,2.6821e+00 ,3.5450e+00 ,4.3691e+00 , & - &5.1072e+00 ,5.5794e+00 ,7.0898e+00 /) - kao(:, 2, 2,14) = (/ & - &8.5771e-03 ,1.0973e+00 ,2.1846e+00 ,3.2569e+00 ,4.3031e+00 ,5.3011e+00 , & - &6.1907e+00 ,6.7403e+00 ,8.6059e+00 /) - kao(:, 3, 2,14) = (/ & - &8.3757e-03 ,1.3007e+00 ,2.5910e+00 ,3.8649e+00 ,5.1100e+00 ,6.3010e+00 , & - &7.3563e+00 ,7.9915e+00 ,1.0220e+01 /) - kao(:, 4, 2,14) = (/ & - &8.1726e-03 ,1.5076e+00 ,3.0039e+00 ,4.4835e+00 ,5.9326e+00 ,7.3236e+00 , & - &8.5740e+00 ,9.3177e+00 ,1.1865e+01 /) - kao(:, 5, 2,14) = (/ & - &7.9706e-03 ,1.7155e+00 ,3.4194e+00 ,5.1046e+00 ,6.7592e+00 ,8.3528e+00 , & - &9.7973e+00 ,1.0700e+01 ,1.3518e+01 /) - kao(:, 1, 3,14) = (/ & - &1.9310e-02 ,8.7468e-01 ,1.7453e+00 ,2.6103e+00 ,3.4663e+00 ,4.3037e+00 , & - &5.0955e+00 ,5.7297e+00 ,6.9321e+00 /) - kao(:, 2, 3,14) = (/ & - &1.8969e-02 ,1.0738e+00 ,2.1432e+00 ,3.2076e+00 ,4.2608e+00 ,5.2941e+00 , & - &6.2765e+00 ,7.0620e+00 ,8.5210e+00 /) - kao(:, 3, 3,14) = (/ & - &1.8605e-02 ,1.2813e+00 ,2.5582e+00 ,3.8286e+00 ,5.0883e+00 ,6.3262e+00 , & - &7.5114e+00 ,8.4846e+00 ,1.0176e+01 /) - kao(:, 4, 3,14) = (/ & - &1.8213e-02 ,1.4944e+00 ,2.9835e+00 ,4.4663e+00 ,5.9372e+00 ,7.3859e+00 , & - &8.7760e+00 ,9.9435e+00 ,1.1874e+01 /) - kao(:, 5, 3,14) = (/ & - &1.7876e-02 ,1.7091e+00 ,3.4131e+00 ,5.1104e+00 ,6.7954e+00 ,8.4548e+00 , & - &1.0056e+01 ,1.1421e+01 ,1.3590e+01 /) - kao(:, 1, 4,14) = (/ & - &4.4344e-02 ,8.3370e-01 ,1.6650e+00 ,2.4941e+00 ,3.3185e+00 ,4.1344e+00 , & - &4.9297e+00 ,5.6430e+00 ,6.6364e+00 /) - kao(:, 2, 4,14) = (/ & - &4.3566e-02 ,1.0283e+00 ,2.0545e+00 ,3.0778e+00 ,4.0971e+00 ,5.1067e+00 , & - &6.0943e+00 ,6.9950e+00 ,8.1935e+00 /) - kao(:, 3, 4,14) = (/ & - &4.2932e-02 ,1.2330e+00 ,2.4636e+00 ,3.6915e+00 ,4.9148e+00 ,6.1292e+00 , & - &7.3214e+00 ,8.4254e+00 ,9.8287e+00 /) - kao(:, 4, 4,14) = (/ & - &4.2251e-02 ,1.4427e+00 ,2.8831e+00 ,4.3208e+00 ,5.7549e+00 ,7.1799e+00 , & - &8.5827e+00 ,9.9037e+00 ,1.1509e+01 /) - kao(:, 5, 4,14) = (/ & - &4.1551e-02 ,1.6617e+00 ,3.3208e+00 ,4.9772e+00 ,6.6290e+00 ,8.2714e+00 , & - &9.8934e+00 ,1.1428e+01 ,1.3257e+01 /) - kao(:, 1, 5,14) = (/ & - &9.4754e-02 ,7.8821e-01 ,1.5748e+00 ,2.3603e+00 ,3.1437e+00 ,3.9237e+00 , & - &4.6947e+00 ,5.4302e+00 ,6.2865e+00 /) - kao(:, 2, 5,14) = (/ & - &9.3575e-02 ,9.7845e-01 ,1.9550e+00 ,2.9310e+00 ,3.9047e+00 ,4.8748e+00 , & - &5.8356e+00 ,6.7595e+00 ,7.8084e+00 /) - kao(:, 3, 5,14) = (/ & - &9.2188e-02 ,1.1782e+00 ,2.3547e+00 ,3.5302e+00 ,4.7038e+00 ,5.8743e+00 , & - &7.0357e+00 ,8.1610e+00 ,9.4064e+00 /) - kao(:, 4, 5,14) = (/ & - &9.0816e-02 ,1.3863e+00 ,2.7710e+00 ,4.1546e+00 ,5.5362e+00 ,6.9136e+00 , & - &8.2813e+00 ,9.6122e+00 ,1.1071e+01 /) - kao(:, 5, 5,14) = (/ & - &8.9641e-02 ,1.6059e+00 ,3.2095e+00 ,4.8121e+00 ,6.4122e+00 ,8.0077e+00 , & - &9.5924e+00 ,1.1136e+01 ,1.2823e+01 /) - kao(:, 1, 6,14) = (/ & - &1.9317e-01 ,7.2809e-01 ,1.4547e+00 ,2.1811e+00 ,2.9065e+00 ,3.6305e+00 , & - &4.3507e+00 ,5.0577e+00 ,5.8117e+00 /) - kao(:, 2, 6,14) = (/ & - &1.9031e-01 ,9.0988e-01 ,1.8182e+00 ,2.7260e+00 ,3.6329e+00 ,4.5385e+00 , & - &5.4408e+00 ,6.3293e+00 ,7.2643e+00 /) - kao(:, 3, 6,14) = (/ & - &1.8758e-01 ,1.1038e+00 ,2.2061e+00 ,3.3074e+00 ,4.4083e+00 ,5.5073e+00 , & - &6.6028e+00 ,7.6822e+00 ,8.8149e+00 /) - kao(:, 4, 6,14) = (/ & - &1.8516e-01 ,1.3141e+00 ,2.6258e+00 ,3.9372e+00 ,5.2485e+00 ,6.5558e+00 , & - &7.8598e+00 ,9.1449e+00 ,1.0495e+01 /) - kao(:, 5, 6,14) = (/ & - &1.8433e-01 ,1.5378e+00 ,3.0732e+00 ,4.6078e+00 ,6.1419e+00 ,7.6735e+00 , & - &9.1990e+00 ,1.0701e+01 ,1.2282e+01 /) - kao(:, 1, 7,14) = (/ & - &4.2545e-01 ,7.0197e-01 ,1.3229e+00 ,1.9833e+00 ,2.6434e+00 ,3.3025e+00 , & - &3.9608e+00 ,4.6133e+00 ,5.2849e+00 /) - kao(:, 2, 7,14) = (/ & - &4.1807e-01 ,8.4884e-01 ,1.6721e+00 ,2.5066e+00 ,3.3410e+00 ,4.1750e+00 , & - &5.0067e+00 ,5.8326e+00 ,6.6798e+00 /) - kao(:, 3, 7,14) = (/ & - &4.1332e-01 ,1.0301e+00 ,2.0577e+00 ,3.0848e+00 ,4.1118e+00 ,5.1378e+00 , & - &6.1618e+00 ,7.1777e+00 ,8.2211e+00 /) - kao(:, 4, 7,14) = (/ & - &4.0936e-01 ,1.2414e+00 ,2.4798e+00 ,3.7180e+00 ,4.9556e+00 ,6.1921e+00 , & - &7.4267e+00 ,8.6520e+00 ,9.9083e+00 /) - kao(:, 5, 7,14) = (/ & - &4.0685e-01 ,1.4675e+00 ,2.9318e+00 ,4.3961e+00 ,5.8593e+00 ,7.3214e+00 , & - &8.7804e+00 ,1.0230e+01 ,1.1715e+01 /) - kao(:, 1, 8,14) = (/ & - &1.1195e+00 ,1.0895e+00 ,1.3598e+00 ,1.7846e+00 ,2.3466e+00 ,2.9325e+00 , & - &3.5182e+00 ,4.1012e+00 ,4.6898e+00 /) - kao(:, 2, 8,14) = (/ & - &1.1037e+00 ,1.1788e+00 ,1.6176e+00 ,2.2927e+00 ,3.0553e+00 ,3.8181e+00 , & - &4.5804e+00 ,5.3406e+00 ,6.1069e+00 /) - kao(:, 3, 8,14) = (/ & - &1.0884e+00 ,1.2851e+00 ,1.9342e+00 ,2.8650e+00 ,3.8186e+00 ,4.7719e+00 , & - &5.7236e+00 ,6.6739e+00 ,7.6330e+00 /) - kao(:, 4, 8,14) = (/ & - &1.0777e+00 ,1.3879e+00 ,2.3316e+00 ,3.4927e+00 ,4.6551e+00 ,5.8169e+00 , & - &6.9783e+00 ,8.1364e+00 ,9.3055e+00 /) - kao(:, 5, 8,14) = (/ & - &1.0697e+00 ,1.5195e+00 ,2.7843e+00 ,4.1737e+00 ,5.5632e+00 ,6.9521e+00 , & - &8.3391e+00 ,9.7222e+00 ,1.1121e+01 /) - kao(:, 1, 9,14) = (/ & - &5.6190e+00 ,4.9167e+00 ,4.3250e+00 ,3.7358e+00 ,3.4047e+00 ,3.1579e+00 , & - &3.1500e+00 ,3.5459e+00 ,3.9362e+00 /) - kao(:, 2, 9,14) = (/ & - &5.5255e+00 ,4.8418e+00 ,4.3146e+00 ,3.9154e+00 ,3.7623e+00 ,3.7282e+00 , & - &4.0980e+00 ,4.7612e+00 ,5.4406e+00 /) - kao(:, 3, 9,14) = (/ & - &5.4430e+00 ,4.8357e+00 ,4.3573e+00 ,4.2040e+00 ,4.1594e+00 ,4.5007e+00 , & - &5.2453e+00 ,6.1166e+00 ,6.9893e+00 /) - kao(:, 4, 9,14) = (/ & - &5.3842e+00 ,4.8388e+00 ,4.5334e+00 ,4.4707e+00 ,4.7073e+00 ,5.4536e+00 , & - &6.5005e+00 ,7.5810e+00 ,8.6617e+00 /) - kao(:, 5, 9,14) = (/ & - &5.3385e+00 ,4.8392e+00 ,4.7032e+00 ,4.7787e+00 ,5.4197e+00 ,6.5502e+00 , & - &7.8564e+00 ,9.1615e+00 ,1.0470e+01 /) - kao(:, 1,10,14) = (/ & - &3.1503e+01 ,2.7564e+01 ,2.3627e+01 ,1.9689e+01 ,1.5752e+01 ,1.2029e+01 , & - &8.2850e+00 ,5.0089e+00 ,2.6421e-01 /) - kao(:, 2,10,14) = (/ & - &3.1041e+01 ,2.7162e+01 ,2.3282e+01 ,1.9402e+01 ,1.5696e+01 ,1.2052e+01 , & - &8.5363e+00 ,5.5767e+00 ,1.2004e+00 /) - kao(:, 3,10,14) = (/ & - &3.0653e+01 ,2.6822e+01 ,2.2991e+01 ,1.9210e+01 ,1.5684e+01 ,1.2101e+01 , & - &9.0343e+00 ,6.3229e+00 ,1.6811e+00 /) - kao(:, 4,10,14) = (/ & - &3.0330e+01 ,2.6541e+01 ,2.2749e+01 ,1.9185e+01 ,1.5678e+01 ,1.2425e+01 , & - &9.5207e+00 ,7.4497e+00 ,1.5881e+00 /) - kao(:, 5,10,14) = (/ & - &2.9986e+01 ,2.6238e+01 ,2.2506e+01 ,1.9078e+01 ,1.5796e+01 ,1.2833e+01 , & - &1.0036e+01 ,8.8467e+00 ,2.8996e+00 /) - kao(:, 1,11,14) = (/ & - &6.1029e+01 ,5.3402e+01 ,4.5771e+01 ,3.8145e+01 ,3.0515e+01 ,2.2887e+01 , & - &1.5544e+01 ,8.4710e+00 ,5.1903e-01 /) - kao(:, 2,11,14) = (/ & - &6.0319e+01 ,5.2777e+01 ,4.5238e+01 ,3.7700e+01 ,3.0160e+01 ,2.2857e+01 , & - &1.5622e+01 ,8.8835e+00 ,1.0450e+00 /) - kao(:, 3,11,14) = (/ & - &5.9632e+01 ,5.2177e+01 ,4.4723e+01 ,3.7270e+01 ,2.9909e+01 ,2.2818e+01 , & - &1.5829e+01 ,9.3768e+00 ,1.3014e+00 /) - kao(:, 4,11,14) = (/ & - &5.9020e+01 ,5.1642e+01 ,4.4266e+01 ,3.6888e+01 ,2.9847e+01 ,2.2764e+01 , & - &1.6262e+01 ,9.9702e+00 ,2.2647e+00 /) - kao(:, 5,11,14) = (/ & - &5.8283e+01 ,5.0998e+01 ,4.3714e+01 ,3.6531e+01 ,2.9620e+01 ,2.3044e+01 , & - &1.6667e+01 ,1.0858e+01 ,2.1604e+00 /) - kao(:, 1,12,14) = (/ & - &8.6818e+01 ,7.5961e+01 ,6.5105e+01 ,5.4264e+01 ,4.3410e+01 ,3.2557e+01 , & - &2.1958e+01 ,1.1756e+01 ,1.0818e+00 /) - kao(:, 2,12,14) = (/ & - &8.5898e+01 ,7.5160e+01 ,6.4423e+01 ,5.3685e+01 ,4.2947e+01 ,3.2329e+01 , & - &2.1951e+01 ,1.2183e+01 ,6.2703e-01 /) - kao(:, 3,12,14) = (/ & - &8.4970e+01 ,7.4354e+01 ,6.3731e+01 ,5.3109e+01 ,4.2485e+01 ,3.2310e+01 , & - &2.2149e+01 ,1.2602e+01 ,1.0531e+00 /) - kao(:, 4,12,14) = (/ & - &8.4043e+01 ,7.3537e+01 ,6.3034e+01 ,5.2533e+01 ,4.2288e+01 ,3.2140e+01 , & - &2.2696e+01 ,1.3012e+01 ,4.3852e+00 /) - kao(:, 5,12,14) = (/ & - &8.3130e+01 ,7.2745e+01 ,6.2351e+01 ,5.1964e+01 ,4.2084e+01 ,3.2159e+01 , & - &2.3067e+01 ,1.3670e+01 ,3.1697e+00 /) - kao(:, 1,13,14) = (/ & - &9.9062e+01 ,8.6679e+01 ,7.4295e+01 ,6.1914e+01 ,4.9531e+01 ,3.7148e+01 , & - &2.5053e+01 ,1.3336e+01 ,1.0355e+00 /) - kao(:, 2,13,14) = (/ & - &9.8005e+01 ,8.5755e+01 ,7.3503e+01 ,6.1254e+01 ,4.9004e+01 ,3.6913e+01 , & - &2.4991e+01 ,1.3937e+01 ,6.5467e-01 /) - kao(:, 3,13,14) = (/ & - &9.6910e+01 ,8.4797e+01 ,7.2683e+01 ,6.0573e+01 ,4.8483e+01 ,3.6814e+01 , & - &2.5110e+01 ,1.4339e+01 ,1.8215e+00 /) - kao(:, 4,13,14) = (/ & - &9.5837e+01 ,8.3857e+01 ,7.1882e+01 ,5.9896e+01 ,4.8229e+01 ,3.6584e+01 , & - &2.5752e+01 ,1.4680e+01 ,4.3881e+00 /) - kao(:, 5,13,14) = (/ & - &9.4386e+01 ,8.2585e+01 ,7.0788e+01 ,5.9024e+01 ,4.7765e+01 ,3.6452e+01 , & - &2.6308e+01 ,1.5330e+01 ,4.3734e+00 /) - kao(:, 1, 1,15) = (/ & - &6.2662e-03 ,2.0747e+00 ,4.1170e+00 ,6.1089e+00 ,8.0146e+00 ,9.7584e+00 , & - &1.1145e+01 ,1.1422e+01 ,1.6029e+01 /) - kao(:, 2, 1,15) = (/ & - &6.1351e-03 ,2.4271e+00 ,4.8178e+00 ,7.1504e+00 ,9.3877e+00 ,1.1443e+01 , & - &1.3088e+01 ,1.3461e+01 ,1.8775e+01 /) - kao(:, 3, 1,15) = (/ & - &6.0097e-03 ,2.7826e+00 ,5.5248e+00 ,8.2041e+00 ,1.0775e+01 ,1.3145e+01 , & - &1.5060e+01 ,1.5543e+01 ,2.1551e+01 /) - kao(:, 4, 1,15) = (/ & - &5.9020e-03 ,3.1403e+00 ,6.2337e+00 ,9.2578e+00 ,1.2161e+01 ,1.4850e+01 , & - &1.7039e+01 ,1.7642e+01 ,2.4321e+01 /) - kao(:, 5, 1,15) = (/ & - &5.8030e-03 ,3.5098e+00 ,6.9636e+00 ,1.0331e+01 ,1.3560e+01 ,1.6533e+01 , & - &1.8991e+01 ,1.9724e+01 ,2.7120e+01 /) - kao(:, 1, 2,15) = (/ & - &1.0266e-02 ,2.1405e+00 ,4.2622e+00 ,6.3547e+00 ,8.3970e+00 ,1.0344e+01 , & - &1.2064e+01 ,1.2985e+01 ,1.6794e+01 /) - kao(:, 2, 2,15) = (/ & - &1.0014e-02 ,2.5163e+00 ,5.0119e+00 ,7.4752e+00 ,9.8815e+00 ,1.2172e+01 , & - &1.4218e+01 ,1.5356e+01 ,1.9763e+01 /) - kao(:, 3, 2,15) = (/ & - &9.8638e-03 ,2.9079e+00 ,5.7890e+00 ,8.6292e+00 ,1.1401e+01 ,1.4046e+01 , & - &1.6408e+01 ,1.7772e+01 ,2.2802e+01 /) - kao(:, 4, 2,15) = (/ & - &9.7234e-03 ,3.3191e+00 ,6.6057e+00 ,9.8408e+00 ,1.2995e+01 ,1.5989e+01 , & - &1.8633e+01 ,2.0195e+01 ,2.5989e+01 /) - kao(:, 5, 2,15) = (/ & - &9.5893e-03 ,3.7435e+00 ,7.4476e+00 ,1.1096e+01 ,1.4644e+01 ,1.8006e+01 , & - &2.0946e+01 ,2.2600e+01 ,2.9288e+01 /) - kao(:, 1, 3,15) = (/ & - &2.3937e-02 ,2.0884e+00 ,4.1689e+00 ,6.2403e+00 ,8.2897e+00 ,1.0301e+01 , & - &1.2219e+01 ,1.3769e+01 ,1.6579e+01 /) - kao(:, 2, 3,15) = (/ & - &2.3289e-02 ,2.4959e+00 ,4.9798e+00 ,7.4513e+00 ,9.8967e+00 ,1.2286e+01 , & - &1.4557e+01 ,1.6412e+01 ,1.9793e+01 /) - kao(:, 3, 3,15) = (/ & - &2.2745e-02 ,2.9294e+00 ,5.8465e+00 ,8.7448e+00 ,1.1610e+01 ,1.4408e+01 , & - &1.7054e+01 ,1.9158e+01 ,2.3219e+01 /) - kao(:, 4, 3,15) = (/ & - &2.2330e-02 ,3.3848e+00 ,6.7550e+00 ,1.0101e+01 ,1.3409e+01 ,1.6637e+01 , & - &1.9679e+01 ,2.2057e+01 ,2.6817e+01 /) - kao(:, 5, 3,15) = (/ & - &2.1962e-02 ,3.8549e+00 ,7.6925e+00 ,1.1504e+01 ,1.5265e+01 ,1.8935e+01 , & - &2.2399e+01 ,2.5067e+01 ,3.0529e+01 /) - kao(:, 1, 4,15) = (/ & - &5.8511e-02 ,1.9940e+00 ,3.9844e+00 ,5.9687e+00 ,7.9437e+00 ,9.9016e+00 , & - &1.1811e+01 ,1.3553e+01 ,1.5887e+01 /) - kao(:, 2, 4,15) = (/ & - &5.6982e-02 ,2.4233e+00 ,4.8420e+00 ,7.2530e+00 ,9.6512e+00 ,1.2029e+01 , & - &1.4341e+01 ,1.6438e+01 ,1.9302e+01 /) - kao(:, 3, 4,15) = (/ & - &5.5673e-02 ,2.8886e+00 ,5.7711e+00 ,8.6444e+00 ,1.1501e+01 ,1.4329e+01 , & - &1.7084e+01 ,1.9562e+01 ,2.3002e+01 /) - kao(:, 4, 4,15) = (/ & - &5.4580e-02 ,3.3869e+00 ,6.7661e+00 ,1.0134e+01 ,1.3482e+01 ,1.6795e+01 , & - &2.0015e+01 ,2.2895e+01 ,2.6964e+01 /) - kao(:, 5, 4,15) = (/ & - &5.3615e-02 ,3.9077e+00 ,7.8058e+00 ,1.1691e+01 ,1.5555e+01 ,1.9373e+01 , & - &2.3083e+01 ,2.6384e+01 ,3.1109e+01 /) - kao(:, 1, 5,15) = (/ & - &1.2989e-01 ,1.8900e+00 ,3.7783e+00 ,5.6637e+00 ,7.5463e+00 ,9.4177e+00 , & - &1.1267e+01 ,1.3028e+01 ,1.5093e+01 /) - kao(:, 2, 5,15) = (/ & - &1.2665e-01 ,2.3422e+00 ,4.6829e+00 ,7.0179e+00 ,9.3476e+00 ,1.1662e+01 , & - &1.3953e+01 ,1.6125e+01 ,1.8695e+01 /) - kao(:, 3, 5,15) = (/ & - &1.2397e-01 ,2.8405e+00 ,5.6772e+00 ,8.5098e+00 ,1.1334e+01 ,1.4142e+01 , & - &1.6912e+01 ,1.9527e+01 ,2.2668e+01 /) - kao(:, 4, 5,15) = (/ & - &1.2164e-01 ,3.3767e+00 ,6.7490e+00 ,1.0116e+01 ,1.3472e+01 ,1.6807e+01 , & - &2.0097e+01 ,2.3197e+01 ,2.6943e+01 /) - kao(:, 5, 5,15) = (/ & - &1.1945e-01 ,3.9432e+00 ,7.8814e+00 ,1.1812e+01 ,1.5732e+01 ,1.9624e+01 , & - &2.3463e+01 ,2.7077e+01 ,3.1463e+01 /) - kao(:, 1, 6,15) = (/ & - &2.7269e-01 ,1.7592e+00 ,3.5166e+00 ,5.2733e+00 ,7.0272e+00 ,8.7771e+00 , & - &1.0515e+01 ,1.2209e+01 ,1.4054e+01 /) - kao(:, 2, 6,15) = (/ & - &2.6586e-01 ,2.2331e+00 ,4.4644e+00 ,6.6948e+00 ,8.9210e+00 ,1.1141e+01 , & - &1.3343e+01 ,1.5486e+01 ,1.7841e+01 /) - kao(:, 3, 6,15) = (/ & - &2.5987e-01 ,2.7625e+00 ,5.5224e+00 ,8.2799e+00 ,1.1033e+01 ,1.3778e+01 , & - &1.6504e+01 ,1.9146e+01 ,2.2064e+01 /) - kao(:, 4, 6,15) = (/ & - &2.5470e-01 ,3.3380e+00 ,6.6713e+00 ,1.0004e+01 ,1.3331e+01 ,1.6646e+01 , & - &1.9934e+01 ,2.3121e+01 ,2.6661e+01 /) - kao(:, 5, 6,15) = (/ & - &2.4980e-01 ,3.9509e+00 ,7.8982e+00 ,1.1841e+01 ,1.5778e+01 ,1.9702e+01 , & - &2.3595e+01 ,2.7362e+01 ,3.1554e+01 /) - kao(:, 1, 7,15) = (/ & - &6.0751e-01 ,1.6155e+00 ,3.2295e+00 ,4.8433e+00 ,6.4556e+00 ,8.0666e+00 , & - &9.6721e+00 ,1.1255e+01 ,1.2910e+01 /) - kao(:, 2, 7,15) = (/ & - &5.9214e-01 ,2.1056e+00 ,4.2107e+00 ,6.3119e+00 ,8.4131e+00 ,1.0511e+01 , & - &1.2602e+01 ,1.4667e+01 ,1.6825e+01 /) - kao(:, 3, 7,15) = (/ & - &5.7904e-01 ,2.6613e+00 ,5.3198e+00 ,7.9772e+00 ,1.0632e+01 ,1.3285e+01 , & - &1.5925e+01 ,1.8528e+01 ,2.1262e+01 /) - kao(:, 4, 7,15) = (/ & - &5.6819e-01 ,3.2710e+00 ,6.5412e+00 ,9.8097e+00 ,1.3074e+01 ,1.6330e+01 , & - &1.9581e+01 ,2.2775e+01 ,2.6146e+01 /) - kao(:, 5, 7,15) = (/ & - &5.5940e-01 ,3.9287e+00 ,7.8537e+00 ,1.1777e+01 ,1.5697e+01 ,1.9610e+01 , & - &2.3510e+01 ,2.7346e+01 ,3.1392e+01 /) - kao(:, 1, 8,15) = (/ & - &1.5944e+00 ,1.8253e+00 ,2.9741e+00 ,4.4602e+00 ,5.9464e+00 ,7.4314e+00 , & - &8.9145e+00 ,1.0387e+01 ,1.1892e+01 /) - kao(:, 2, 8,15) = (/ & - &1.5557e+00 ,2.1022e+00 ,3.9278e+00 ,5.8889e+00 ,7.8512e+00 ,9.8106e+00 , & - &1.1770e+01 ,1.3716e+01 ,1.5700e+01 /) - kao(:, 3, 8,15) = (/ & - &1.5271e+00 ,2.5583e+00 ,5.0719e+00 ,7.6057e+00 ,1.0139e+01 ,1.2670e+01 , & - &1.5200e+01 ,1.7713e+01 ,2.0275e+01 /) - kao(:, 4, 8,15) = (/ & - &1.5040e+00 ,3.1773e+00 ,6.3513e+00 ,9.5214e+00 ,1.2692e+01 ,1.5861e+01 , & - &1.9025e+01 ,2.2168e+01 ,2.5379e+01 /) - kao(:, 5, 8,15) = (/ & - &1.4829e+00 ,3.8723e+00 ,7.7385e+00 ,1.1605e+01 ,1.5469e+01 ,1.9331e+01 , & - &2.3189e+01 ,2.7019e+01 ,3.0932e+01 /) - kao(:, 1, 9,15) = (/ & - &7.9603e+00 ,6.9650e+00 ,6.1670e+00 ,5.9409e+00 ,5.9163e+00 ,6.8445e+00 , & - &8.2104e+00 ,9.5758e+00 ,1.0949e+01 /) - kao(:, 2, 9,15) = (/ & - &7.7491e+00 ,6.7807e+00 ,6.5143e+00 ,6.5222e+00 ,7.4209e+00 ,9.1698e+00 , & - &1.1001e+01 ,1.2830e+01 ,1.4668e+01 /) - kao(:, 3, 9,15) = (/ & - &7.6260e+00 ,6.7058e+00 ,6.8127e+00 ,7.5772e+00 ,9.5702e+00 ,1.1961e+01 , & - &1.4350e+01 ,1.6735e+01 ,1.9129e+01 /) - kao(:, 4, 9,15) = (/ & - &7.5222e+00 ,6.8189e+00 ,7.2464e+00 ,9.2266e+00 ,1.2156e+01 ,1.5192e+01 , & - &1.8221e+01 ,2.1251e+01 ,2.4297e+01 /) - kao(:, 5, 9,15) = (/ & - &7.4213e+00 ,6.9850e+00 ,8.1141e+00 ,1.1288e+01 ,1.5041e+01 ,1.8797e+01 , & - &2.2550e+01 ,2.6298e+01 ,3.0063e+01 /) - kao(:, 1,10,15) = (/ & - &4.4970e+01 ,3.9351e+01 ,3.3728e+01 ,2.8106e+01 ,2.2484e+01 ,1.7001e+01 , & - &1.2662e+01 ,9.3833e+00 ,3.0844e+00 /) - kao(:, 2,10,15) = (/ & - &4.3703e+01 ,3.8241e+01 ,3.2779e+01 ,2.7313e+01 ,2.1862e+01 ,1.7553e+01 , & - &1.3621e+01 ,1.2273e+01 ,6.8989e+00 /) - kao(:, 3,10,15) = (/ & - &4.2828e+01 ,3.7472e+01 ,3.2122e+01 ,2.6765e+01 ,2.2087e+01 ,1.8341e+01 , & - &1.5372e+01 ,1.6156e+01 ,1.4584e+01 /) - kao(:, 4,10,15) = (/ & - &4.2192e+01 ,3.6921e+01 ,3.1646e+01 ,2.6524e+01 ,2.2776e+01 ,1.9260e+01 , & - &1.8346e+01 ,2.0694e+01 ,2.3643e+01 /) - kao(:, 5,10,15) = (/ & - &4.1609e+01 ,3.6411e+01 ,3.1210e+01 ,2.6835e+01 ,2.3359e+01 ,2.1143e+01 , & - &2.2256e+01 ,2.5773e+01 ,2.9447e+01 /) - kao(:, 1,11,15) = (/ & - &8.7878e+01 ,7.6892e+01 ,6.5913e+01 ,5.4929e+01 ,4.3942e+01 ,3.2958e+01 , & - &2.2278e+01 ,1.3146e+01 ,1.2934e+00 /) - kao(:, 2,11,15) = (/ & - &8.5528e+01 ,7.4837e+01 ,6.4148e+01 ,5.3454e+01 ,4.2765e+01 ,3.2087e+01 , & - &2.2860e+01 ,1.5064e+01 ,9.2095e-01 /) - kao(:, 3,11,15) = (/ & - &8.3842e+01 ,7.3371e+01 ,6.2884e+01 ,5.2405e+01 ,4.1923e+01 ,3.2241e+01 , & - &2.3615e+01 ,1.8250e+01 ,5.0549e+00 /) - kao(:, 4,11,15) = (/ & - &8.2422e+01 ,7.2123e+01 ,6.1819e+01 ,5.1515e+01 ,4.1404e+01 ,3.2935e+01 , & - &2.5033e+01 ,2.2612e+01 ,1.1342e+01 /) - kao(:, 5,11,15) = (/ & - &8.1155e+01 ,7.1009e+01 ,6.0866e+01 ,5.0722e+01 ,4.1664e+01 ,3.3361e+01 , & - &2.7672e+01 ,2.7836e+01 ,2.1588e+01 /) - kao(:, 1,12,15) = (/ & - &1.2764e+02 ,1.1168e+02 ,9.5717e+01 ,7.9766e+01 ,6.3821e+01 ,4.7862e+01 , & - &3.1927e+01 ,1.7517e+01 ,5.0733e-04 /) - kao(:, 2,12,15) = (/ & - &1.2458e+02 ,1.0901e+02 ,9.3437e+01 ,7.7867e+01 ,6.2287e+01 ,4.6718e+01 , & - &3.2041e+01 ,1.8889e+01 ,1.2295e+00 /) - kao(:, 3,12,15) = (/ & - &1.2214e+02 ,1.0687e+02 ,9.1606e+01 ,7.6332e+01 ,6.1069e+01 ,4.6041e+01 , & - &3.2605e+01 ,2.1597e+01 ,1.0764e+00 /) - kao(:, 4,12,15) = (/ & - &1.1993e+02 ,1.0494e+02 ,8.9942e+01 ,7.4954e+01 ,5.9961e+01 ,4.6289e+01 , & - &3.3082e+01 ,2.5581e+01 ,1.5268e+00 /) - kao(:, 5,12,15) = (/ & - &1.1793e+02 ,1.0318e+02 ,8.8443e+01 ,7.3700e+01 ,5.9323e+01 ,4.6666e+01 , & - &3.5017e+01 ,3.0597e+01 ,1.3997e+01 /) - kao(:, 1,13,15) = (/ & - &1.4863e+02 ,1.3005e+02 ,1.1147e+02 ,9.2892e+01 ,7.4315e+01 ,5.5737e+01 , & - &3.7199e+01 ,2.0080e+01 ,6.4806e-01 /) - kao(:, 2,13,15) = (/ & - &1.4520e+02 ,1.2704e+02 ,1.0889e+02 ,9.0753e+01 ,7.2597e+01 ,5.4452e+01 , & - &3.7281e+01 ,2.1314e+01 ,1.2348e+00 /) - kao(:, 3,13,15) = (/ & - &1.4229e+02 ,1.2450e+02 ,1.0672e+02 ,8.8931e+01 ,7.1150e+01 ,5.3675e+01 , & - &3.7660e+01 ,2.4186e+01 ,1.1194e+00 /) - kao(:, 4,13,15) = (/ & - &1.3965e+02 ,1.2219e+02 ,1.0474e+02 ,8.7285e+01 ,6.9825e+01 ,5.3800e+01 , & - &3.7958e+01 ,2.8295e+01 ,2.6393e+00 /) - kao(:, 5,13,15) = (/ & - &1.3732e+02 ,1.2017e+02 ,1.0299e+02 ,8.5829e+01 ,6.9074e+01 ,5.3874e+01 , & - &3.9693e+01 ,3.3322e+01 ,1.2822e+01 /) - kao(:, 1, 1,16) = (/ & - &6.7483e-03 ,2.7477e+00 ,5.4216e+00 ,7.9838e+00 ,1.0362e+01 ,1.2414e+01 , & - &1.3792e+01 ,1.3364e+01 ,2.0724e+01 /) - kao(:, 2, 1,16) = (/ & - &6.6276e-03 ,3.2705e+00 ,6.4539e+00 ,9.5049e+00 ,1.2338e+01 ,1.4784e+01 , & - &1.6428e+01 ,1.5929e+01 ,2.4675e+01 /) - kao(:, 3, 1,16) = (/ & - &6.5036e-03 ,3.8140e+00 ,7.5283e+00 ,1.1085e+01 ,1.4395e+01 ,1.7249e+01 , & - &1.9172e+01 ,1.8603e+01 ,2.8790e+01 /) - kao(:, 4, 1,16) = (/ & - &6.3721e-03 ,4.3730e+00 ,8.6292e+00 ,1.2711e+01 ,1.6503e+01 ,1.9784e+01 , & - &2.1993e+01 ,2.1351e+01 ,3.3006e+01 /) - kao(:, 5, 1,16) = (/ & - &6.2363e-03 ,4.9396e+00 ,9.7465e+00 ,1.4357e+01 ,1.8648e+01 ,2.2353e+01 , & - &2.4860e+01 ,2.4146e+01 ,3.7295e+01 /) - kao(:, 1, 2,16) = (/ & - &1.1399e-02 ,3.0700e+00 ,6.0865e+00 ,9.0222e+00 ,1.1819e+01 ,1.4357e+01 , & - &1.6335e+01 ,1.6615e+01 ,2.3637e+01 /) - kao(:, 2, 2,16) = (/ & - &1.1191e-02 ,3.6855e+00 ,7.3071e+00 ,1.0831e+01 ,1.4189e+01 ,1.7243e+01 , & - &1.9624e+01 ,1.9971e+01 ,2.8378e+01 /) - kao(:, 3, 2,16) = (/ & - &1.0967e-02 ,4.3287e+00 ,8.5840e+00 ,1.2722e+01 ,1.6670e+01 ,2.0258e+01 , & - &2.3062e+01 ,2.3488e+01 ,3.3340e+01 /) - kao(:, 4, 2,16) = (/ & - &1.0738e-02 ,4.9902e+00 ,9.8948e+00 ,1.4671e+01 ,1.9224e+01 ,2.3370e+01 , & - &2.6613e+01 ,2.7035e+01 ,3.8446e+01 /) - kao(:, 5, 2,16) = (/ & - &1.0463e-02 ,5.6638e+00 ,1.1230e+01 ,1.6648e+01 ,2.1823e+01 ,2.6530e+01 , & - &3.0222e+01 ,3.0819e+01 ,4.3644e+01 /) - kao(:, 1, 3,16) = (/ & - &2.6306e-02 ,3.2694e+00 ,6.5125e+00 ,9.7138e+00 ,1.2840e+01 ,1.5828e+01 , & - &1.8484e+01 ,2.0009e+01 ,2.5680e+01 /) - kao(:, 2, 3,16) = (/ & - &2.5884e-02 ,3.9785e+00 ,7.9277e+00 ,1.1819e+01 ,1.5631e+01 ,1.9201e+01 , & - &2.2505e+01 ,2.4372e+01 ,3.1262e+01 /) - kao(:, 3, 3,16) = (/ & - &2.5346e-02 ,4.7273e+00 ,9.4145e+00 ,1.4042e+01 ,1.8571e+01 ,2.2894e+01 , & - &2.6751e+01 ,2.8974e+01 ,3.7022e+01 /) - kao(:, 4, 3,16) = (/ & - &2.4784e-02 ,5.5013e+00 ,1.0958e+01 ,1.6345e+01 ,2.1611e+01 ,2.6651e+01 , & - &3.1147e+01 ,3.3763e+01 ,4.3221e+01 /) - kao(:, 5, 3,16) = (/ & - &2.4200e-02 ,6.2942e+00 ,1.2535e+01 ,1.8701e+01 ,2.4733e+01 ,3.0502e+01 , & - &3.5641e+01 ,3.8658e+01 ,4.9465e+01 /) - kao(:, 1, 4,16) = (/ & - &6.3011e-02 ,3.3909e+00 ,6.7686e+00 ,1.0126e+01 ,1.3449e+01 ,1.6701e+01 , & - &1.9789e+01 ,2.2242e+01 ,2.6898e+01 /) - kao(:, 2, 4,16) = (/ & - &6.1738e-02 ,4.1953e+00 ,8.3750e+00 ,1.2529e+01 ,1.6640e+01 ,2.0669e+01 , & - &2.4483e+01 ,2.7534e+01 ,3.3280e+01 /) - kao(:, 3, 4,16) = (/ & - &6.0385e-02 ,5.0522e+00 ,1.0085e+01 ,1.5088e+01 ,2.0041e+01 ,2.4891e+01 , & - &2.9498e+01 ,3.3182e+01 ,4.0082e+01 /) - kao(:, 4, 4,16) = (/ & - &5.8960e-02 ,5.9475e+00 ,1.1873e+01 ,1.7764e+01 ,2.3588e+01 ,2.9299e+01 , & - &3.4723e+01 ,3.9079e+01 ,4.7175e+01 /) - kao(:, 5, 4,16) = (/ & - &5.7513e-02 ,6.8674e+00 ,1.3704e+01 ,2.0508e+01 ,2.7243e+01 ,3.3832e+01 , & - &4.0104e+01 ,4.5142e+01 ,5.4486e+01 /) - kao(:, 1, 5,16) = (/ & - &1.5311e-01 ,3.4647e+00 ,6.9218e+00 ,1.0370e+01 ,1.3799e+01 ,1.7194e+01 , & - &2.0501e+01 ,2.3473e+01 ,2.7599e+01 /) - kao(:, 2, 5,16) = (/ & - &1.4808e-01 ,4.3642e+00 ,8.7211e+00 ,1.3066e+01 ,1.7386e+01 ,2.1656e+01 , & - &2.5836e+01 ,2.9576e+01 ,3.4772e+01 /) - kao(:, 3, 5,16) = (/ & - &1.4324e-01 ,5.3326e+00 ,1.0656e+01 ,1.5962e+01 ,2.1244e+01 ,2.6472e+01 , & - &3.1566e+01 ,3.6158e+01 ,4.2487e+01 /) - kao(:, 4, 5,16) = (/ & - &1.3867e-01 ,6.3343e+00 ,1.2694e+01 ,1.9018e+01 ,2.5310e+01 ,3.1544e+01 , & - &3.7609e+01 ,4.3076e+01 ,5.0619e+01 /) - kao(:, 5, 5,16) = (/ & - &1.3442e-01 ,7.4110e+00 ,1.4809e+01 ,2.2187e+01 ,2.9523e+01 ,3.6788e+01 , & - &4.3874e+01 ,5.0262e+01 ,5.9046e+01 /) - kao(:, 1, 6,16) = (/ & - &3.3965e-01 ,3.4550e+00 ,6.9058e+00 ,1.0352e+01 ,1.3789e+01 ,1.7206e+01 , & - &2.0578e+01 ,2.3766e+01 ,2.7578e+01 /) - kao(:, 2, 6,16) = (/ & - &3.2990e-01 ,4.4451e+00 ,8.8565e+00 ,1.3318e+01 ,1.7740e+01 ,2.2139e+01 , & - &2.6477e+01 ,3.0582e+01 ,3.5479e+01 /) - kao(:, 3, 6,16) = (/ & - &3.2021e-01 ,5.5240e+00 ,1.1042e+01 ,1.6554e+01 ,2.2048e+01 ,2.7511e+01 , & - &3.2908e+01 ,3.8025e+01 ,4.4095e+01 /) - kao(:, 4, 6,16) = (/ & - &3.1092e-01 ,6.6752e+00 ,1.3341e+01 ,2.0002e+01 ,2.6641e+01 ,3.3245e+01 , & - &3.9761e+01 ,4.5941e+01 ,5.3282e+01 /) - kao(:, 5, 6,16) = (/ & - &3.0227e-01 ,7.8771e+00 ,1.5743e+01 ,2.3602e+01 ,3.1434e+01 ,3.9236e+01 , & - &4.6923e+01 ,5.4228e+01 ,6.2865e+01 /) - kao(:, 1, 7,16) = (/ & - &7.9672e-01 ,3.3862e+00 ,6.7703e+00 ,1.0151e+01 ,1.3528e+01 ,1.6895e+01 , & - &2.0243e+01 ,2.3498e+01 ,2.7056e+01 /) - kao(:, 2, 7,16) = (/ & - &7.7399e-01 ,4.4592e+00 ,8.9171e+00 ,1.3369e+01 ,1.7816e+01 ,2.2252e+01 , & - &2.6655e+01 ,3.0954e+01 ,3.5514e+01 /) - kao(:, 3, 7,16) = (/ & - &7.5170e-01 ,5.6480e+00 ,1.1293e+01 ,1.6933e+01 ,2.2566e+01 ,2.8186e+01 , & - &3.3769e+01 ,3.9205e+01 ,4.5131e+01 /) - kao(:, 4, 7,16) = (/ & - &7.3106e-01 ,6.9294e+00 ,1.3857e+01 ,2.0779e+01 ,2.7691e+01 ,3.4583e+01 , & - &4.1435e+01 ,4.8102e+01 ,5.5380e+01 /) - kao(:, 5, 7,16) = (/ & - &7.1147e-01 ,8.2841e+00 ,1.6563e+01 ,2.4830e+01 ,3.3089e+01 ,4.1334e+01 , & - &4.9522e+01 ,5.7496e+01 ,6.6175e+01 /) - kao(:, 1, 8,16) = (/ & - &2.2037e+00 ,3.2722e+00 ,6.5418e+00 ,9.8122e+00 ,1.3082e+01 ,1.6344e+01 , & - &1.9599e+01 ,2.2817e+01 ,2.6163e+01 /) - kao(:, 2, 8,16) = (/ & - &2.1416e+00 ,4.4204e+00 ,8.8385e+00 ,1.3255e+01 ,1.7675e+01 ,2.2079e+01 , & - &2.6477e+01 ,3.0833e+01 ,3.5348e+01 /) - kao(:, 3, 8,16) = (/ & - &2.0842e+00 ,5.7151e+00 ,1.1428e+01 ,1.7137e+01 ,2.2842e+01 ,2.8548e+01 , & - &3.4230e+01 ,3.9856e+01 ,4.5681e+01 /) - kao(:, 4, 8,16) = (/ & - &2.0305e+00 ,7.1274e+00 ,1.4255e+01 ,2.1373e+01 ,2.8489e+01 ,3.5598e+01 , & - &4.2693e+01 ,4.9704e+01 ,5.6975e+01 /) - kao(:, 5, 8,16) = (/ & - &1.9781e+00 ,8.6369e+00 ,1.7269e+01 ,2.5895e+01 ,3.4524e+01 ,4.3140e+01 , & - &5.1725e+01 ,6.0225e+01 ,6.9043e+01 /) - kao(:, 1, 9,16) = (/ & - &1.1509e+01 ,1.0070e+01 ,8.6316e+00 ,9.3146e+00 ,1.2418e+01 ,1.5525e+01 , & - &1.8622e+01 ,2.1717e+01 ,2.4834e+01 /) - kao(:, 2, 9,16) = (/ & - &1.1216e+01 ,9.8124e+00 ,8.9628e+00 ,1.2947e+01 ,1.7258e+01 ,2.1566e+01 , & - &2.5882e+01 ,3.0171e+01 ,3.4512e+01 /) - kao(:, 3, 9,16) = (/ & - &1.0936e+01 ,9.5703e+00 ,1.1414e+01 ,1.7115e+01 ,2.2811e+01 ,2.8515e+01 , & - &3.4212e+01 ,3.9896e+01 ,4.5613e+01 /) - kao(:, 4, 9,16) = (/ & - &1.0665e+01 ,9.3327e+00 ,1.4497e+01 ,2.1741e+01 ,2.8981e+01 ,3.6218e+01 , & - &4.3300e+01 ,5.0677e+01 ,5.7950e+01 /) - kao(:, 5, 9,16) = (/ & - &1.0398e+01 ,9.5016e+00 ,1.7820e+01 ,2.6724e+01 ,3.5623e+01 ,4.4518e+01 , & - &5.3410e+01 ,6.2271e+01 ,7.1226e+01 /) - kao(:, 1,10,16) = (/ & - &6.7305e+01 ,5.8689e+01 ,5.0477e+01 ,4.2062e+01 ,3.3650e+01 ,2.5240e+01 , & - &1.8527e+01 ,2.0871e+01 ,2.3854e+01 /) - kao(:, 2,10,16) = (/ & - &6.5751e+01 ,5.7530e+01 ,4.9313e+01 ,4.1093e+01 ,3.2876e+01 ,2.4802e+01 , & - &2.5524e+01 ,2.9774e+01 ,3.4038e+01 /) - kao(:, 3,10,16) = (/ & - &6.4198e+01 ,5.6172e+01 ,4.8149e+01 ,4.0130e+01 ,3.2100e+01 ,2.8998e+01 , & - &3.4448e+01 ,4.0179e+01 ,4.5916e+01 /) - kao(:, 4,10,16) = (/ & - &6.2664e+01 ,5.4833e+01 ,4.6832e+01 ,3.9166e+01 ,3.2607e+01 ,3.7058e+01 , & - &4.4476e+01 ,5.1875e+01 ,5.9284e+01 /) - kao(:, 5,10,16) = (/ & - &6.1101e+01 ,5.3467e+01 ,4.5664e+01 ,3.8190e+01 ,3.7365e+01 ,4.6149e+01 , & - &5.5367e+01 ,6.4570e+01 ,7.3787e+01 /) - kao(:, 1,11,16) = (/ & - &1.3576e+02 ,1.1879e+02 ,1.0182e+02 ,8.4849e+01 ,6.7875e+01 ,5.0907e+01 , & - &3.3938e+01 ,2.3799e+01 ,9.0162e+00 /) - kao(:, 2,11,16) = (/ & - &1.3280e+02 ,1.1619e+02 ,9.9587e+01 ,8.3000e+01 ,6.6392e+01 ,4.9800e+01 , & - &3.3906e+01 ,3.3859e+01 ,3.7265e+01 /) - kao(:, 3,11,16) = (/ & - &1.2969e+02 ,1.1350e+02 ,9.7289e+01 ,8.1076e+01 ,6.4844e+01 ,4.8642e+01 , & - &3.9970e+01 ,4.5587e+01 ,5.2094e+01 /) - kao(:, 4,11,16) = (/ & - &1.2653e+02 ,1.1071e+02 ,9.4885e+01 ,7.9077e+01 ,6.3265e+01 ,4.8850e+01 , & - &5.0310e+01 ,5.8678e+01 ,6.7071e+01 /) - kao(:, 5,11,16) = (/ & - &1.2325e+02 ,1.0784e+02 ,9.2433e+01 ,7.7029e+01 ,6.1622e+01 ,5.4553e+01 , & - &6.2511e+01 ,7.2895e+01 ,8.3291e+01 /) - kao(:, 1,12,16) = (/ & - &2.0298e+02 ,1.7762e+02 ,1.5224e+02 ,1.2687e+02 ,1.0147e+02 ,7.6126e+01 , & - &5.0748e+01 ,2.9045e+01 ,9.6314e-05 /) - kao(:, 2,12,16) = (/ & - &1.9850e+02 ,1.7368e+02 ,1.4888e+02 ,1.2405e+02 ,9.9250e+01 ,7.4435e+01 , & - &4.9625e+01 ,3.8234e+01 ,2.3705e+01 /) - kao(:, 3,12,16) = (/ & - &1.9369e+02 ,1.6949e+02 ,1.4528e+02 ,1.2103e+02 ,9.6845e+01 ,7.2640e+01 , & - &5.1319e+01 ,5.1242e+01 ,5.0529e+01 /) - kao(:, 4,12,16) = (/ & - &1.8865e+02 ,1.6508e+02 ,1.4148e+02 ,1.1791e+02 ,9.4323e+01 ,7.0746e+01 , & - &5.9155e+01 ,6.5776e+01 ,7.5148e+01 /) - kao(:, 5,12,16) = (/ & - &1.8345e+02 ,1.6051e+02 ,1.3757e+02 ,1.1465e+02 ,9.1715e+01 ,7.1673e+01 , & - &7.0340e+01 ,8.1440e+01 ,9.3046e+01 /) - kao(:, 1,13,16) = (/ & - &2.4179e+02 ,2.1156e+02 ,1.8133e+02 ,1.5111e+02 ,1.2089e+02 ,9.0670e+01 , & - &6.0447e+01 ,3.4181e+01 ,7.5740e-05 /) - kao(:, 2,13,16) = (/ & - &2.3602e+02 ,2.0653e+02 ,1.7702e+02 ,1.4755e+02 ,1.1802e+02 ,8.8512e+01 , & - &5.9018e+01 ,4.3484e+01 ,2.5520e+01 /) - kao(:, 3,13,16) = (/ & - &2.2984e+02 ,2.0112e+02 ,1.7238e+02 ,1.4366e+02 ,1.1493e+02 ,8.6216e+01 , & - &6.0956e+01 ,5.6909e+01 ,5.1259e+01 /) - kao(:, 4,13,16) = (/ & - &2.2335e+02 ,1.9547e+02 ,1.6749e+02 ,1.3960e+02 ,1.1169e+02 ,8.3756e+01 , & - &6.8596e+01 ,7.2790e+01 ,7.7355e+01 /) - kao(:, 5,13,16) = (/ & - &2.1661e+02 ,1.8954e+02 ,1.6247e+02 ,1.3539e+02 ,1.0832e+02 ,8.5058e+01 , & - &7.9741e+01 ,8.9915e+01 ,1.0226e+02 /) - -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kbo(:,13, 1) = (/ & - &2.3382e-03 ,2.8918e-03 ,3.5228e-03 ,4.2513e-03 ,5.0992e-03 /) - kbo(:,14, 1) = (/ & - &2.0993e-03 ,2.6087e-03 ,3.2027e-03 ,3.9155e-03 ,4.7075e-03 /) - kbo(:,15, 1) = (/ & - &1.9068e-03 ,2.4224e-03 ,2.9993e-03 ,3.6366e-03 ,4.4490e-03 /) - kbo(:,16, 1) = (/ & - &1.7630e-03 ,2.2267e-03 ,2.7514e-03 ,3.4114e-03 ,4.1614e-03 /) - kbo(:,17, 1) = (/ & - &1.6519e-03 ,2.0886e-03 ,2.6010e-03 ,3.2457e-03 ,3.9066e-03 /) - kbo(:,18, 1) = (/ & - &1.5561e-03 ,1.9733e-03 ,2.5429e-03 ,3.1325e-03 ,3.6764e-03 /) - kbo(:,19, 1) = (/ & - &1.4778e-03 ,1.9477e-03 ,2.4734e-03 ,2.9725e-03 ,3.4413e-03 /) - kbo(:,20, 1) = (/ & - &1.3764e-03 ,1.8206e-03 ,2.2794e-03 ,2.6918e-03 ,3.0807e-03 /) - kbo(:,21, 1) = (/ & - &1.2547e-03 ,1.6614e-03 ,2.0387e-03 ,2.3912e-03 ,2.7222e-03 /) - kbo(:,22, 1) = (/ & - &1.1692e-03 ,1.5034e-03 ,1.8117e-03 ,2.1136e-03 ,2.3959e-03 /) - kbo(:,23, 1) = (/ & - &1.0852e-03 ,1.3578e-03 ,1.6152e-03 ,1.8580e-03 ,2.0983e-03 /) - kbo(:,24, 1) = (/ & - &9.9196e-04 ,1.2216e-03 ,1.4332e-03 ,1.6336e-03 ,1.8396e-03 /) - kbo(:,25, 1) = (/ & - &9.0621e-04 ,1.0934e-03 ,1.2579e-03 ,1.4326e-03 ,1.5972e-03 /) - kbo(:,26, 1) = (/ & - &8.1196e-04 ,9.6544e-04 ,1.0989e-03 ,1.2439e-03 ,1.3772e-03 /) - kbo(:,27, 1) = (/ & - &7.2402e-04 ,8.4382e-04 ,9.5455e-04 ,1.0692e-03 ,1.1790e-03 /) - kbo(:,28, 1) = (/ & - &6.3816e-04 ,7.3173e-04 ,8.2333e-04 ,9.1530e-04 ,1.0008e-03 /) - kbo(:,29, 1) = (/ & - &5.5611e-04 ,6.2561e-04 ,7.0457e-04 ,7.7239e-04 ,8.4074e-04 /) - kbo(:,30, 1) = (/ & - &4.7758e-04 ,5.3585e-04 ,5.9602e-04 ,6.4848e-04 ,7.0299e-04 /) - kbo(:,31, 1) = (/ & - &4.0233e-04 ,4.5494e-04 ,5.0095e-04 ,5.4165e-04 ,5.8359e-04 /) - kbo(:,32, 1) = (/ & - &3.4147e-04 ,3.8327e-04 ,4.2049e-04 ,4.5512e-04 ,4.8721e-04 /) - kbo(:,33, 1) = (/ & - &2.9210e-04 ,3.2465e-04 ,3.5276e-04 ,3.8153e-04 ,4.1121e-04 /) - kbo(:,34, 1) = (/ & - &2.4930e-04 ,2.7584e-04 ,2.9920e-04 ,3.2247e-04 ,3.4759e-04 /) - kbo(:,35, 1) = (/ & - &2.1208e-04 ,2.3419e-04 ,2.5253e-04 ,2.7252e-04 ,2.9279e-04 /) - kbo(:,36, 1) = (/ & - &1.7811e-04 ,1.9459e-04 ,2.1195e-04 ,2.2908e-04 ,2.4619e-04 /) - kbo(:,37, 1) = (/ & - &1.4252e-04 ,1.5802e-04 ,1.7124e-04 ,1.8557e-04 ,1.9967e-04 /) - kbo(:,38, 1) = (/ & - &1.1316e-04 ,1.2691e-04 ,1.3875e-04 ,1.4940e-04 ,1.6149e-04 /) - kbo(:,39, 1) = (/ & - &8.9734e-05 ,1.0111e-04 ,1.1110e-04 ,1.2104e-04 ,1.3018e-04 /) - kbo(:,40, 1) = (/ & - &6.9862e-05 ,7.9338e-05 ,8.7351e-05 ,9.5361e-05 ,1.0350e-04 /) - kbo(:,41, 1) = (/ & - &5.3903e-05 ,6.1377e-05 ,6.8596e-05 ,7.4910e-05 ,8.1525e-05 /) - kbo(:,42, 1) = (/ & - &4.1353e-05 ,4.7327e-05 ,5.3464e-05 ,5.8873e-05 ,6.3813e-05 /) - kbo(:,43, 1) = (/ & - &3.1177e-05 ,3.6021e-05 ,4.0748e-05 ,4.5236e-05 ,4.9388e-05 /) - kbo(:,44, 1) = (/ & - &2.3155e-05 ,2.7105e-05 ,3.0750e-05 ,3.4487e-05 ,3.7902e-05 /) - kbo(:,45, 1) = (/ & - &1.6939e-05 ,2.0019e-05 ,2.3152e-05 ,2.6034e-05 ,2.8825e-05 /) - kbo(:,46, 1) = (/ & - &1.2188e-05 ,1.4774e-05 ,1.7220e-05 ,1.9590e-05 ,2.1820e-05 /) - kbo(:,47, 1) = (/ & - &8.5598e-06 ,1.0765e-05 ,1.2719e-05 ,1.4628e-05 ,1.6428e-05 /) - kbo(:,48, 1) = (/ & - &5.9262e-06 ,7.6349e-06 ,9.2601e-06 ,1.0811e-05 ,1.2306e-05 /) - kbo(:,49, 1) = (/ & - &3.9332e-06 ,5.2612e-06 ,6.6345e-06 ,7.8390e-06 ,9.0160e-06 /) - kbo(:,50, 1) = (/ & - &2.6915e-06 ,3.7062e-06 ,4.7528e-06 ,5.7591e-06 ,6.6828e-06 /) - kbo(:,51, 1) = (/ & - &1.9031e-06 ,2.5633e-06 ,3.3817e-06 ,4.2212e-06 ,4.9973e-06 /) - kbo(:,52, 1) = (/ & - &1.3022e-06 ,1.7876e-06 ,2.4129e-06 ,3.0582e-06 ,3.6770e-06 /) - kbo(:,53, 1) = (/ & - &8.8514e-07 ,1.2531e-06 ,1.6651e-06 ,2.1701e-06 ,2.6821e-06 /) - kbo(:,54, 1) = (/ & - &6.3174e-07 ,9.0490e-07 ,1.2164e-06 ,1.6231e-06 ,2.0201e-06 /) - kbo(:,55, 1) = (/ & - &4.6092e-07 ,6.6386e-07 ,9.1477e-07 ,1.2278e-06 ,1.5504e-06 /) - kbo(:,56, 1) = (/ & - &3.3312e-07 ,4.8579e-07 ,6.8774e-07 ,9.1495e-07 ,1.1856e-06 /) - kbo(:,57, 1) = (/ & - &2.4004e-07 ,3.5567e-07 ,5.1418e-07 ,6.8280e-07 ,9.0960e-07 /) - kbo(:,58, 1) = (/ & - &1.7424e-07 ,2.6290e-07 ,3.8304e-07 ,5.1880e-07 ,6.9948e-07 /) - kbo(:,59, 1) = (/ & - &1.4545e-07 ,2.2249e-07 ,3.3056e-07 ,4.4487e-07 ,6.0780e-07 /) - kbo(:,13, 2) = (/ & - &1.0289e-02 ,1.3009e-02 ,1.5474e-02 ,1.7839e-02 ,2.0097e-02 /) - kbo(:,14, 2) = (/ & - &9.5725e-03 ,1.1818e-02 ,1.3904e-02 ,1.5918e-02 ,1.7958e-02 /) - kbo(:,15, 2) = (/ & - &8.9675e-03 ,1.0842e-02 ,1.2642e-02 ,1.4399e-02 ,1.6048e-02 /) - kbo(:,16, 2) = (/ & - &8.1677e-03 ,9.7202e-03 ,1.1280e-02 ,1.2681e-02 ,1.4168e-02 /) - kbo(:,17, 2) = (/ & - &7.4338e-03 ,8.8205e-03 ,1.0076e-02 ,1.1262e-02 ,1.2428e-02 /) - kbo(:,18, 2) = (/ & - &6.8634e-03 ,8.0133e-03 ,8.9513e-03 ,9.9366e-03 ,1.1014e-02 /) - kbo(:,19, 2) = (/ & - &6.3552e-03 ,7.2047e-03 ,8.0129e-03 ,8.8966e-03 ,9.8381e-03 /) - kbo(:,20, 2) = (/ & - &5.6397e-03 ,6.2755e-03 ,6.9887e-03 ,7.7846e-03 ,8.5391e-03 /) - kbo(:,21, 2) = (/ & - &4.8925e-03 ,5.4088e-03 ,6.0399e-03 ,6.7004e-03 ,7.3289e-03 /) - kbo(:,22, 2) = (/ & - &4.2004e-03 ,4.6864e-03 ,5.2247e-03 ,5.7527e-03 ,6.2510e-03 /) - kbo(:,23, 2) = (/ & - &3.5982e-03 ,4.0432e-03 ,4.4892e-03 ,4.9192e-03 ,5.3260e-03 /) - kbo(:,24, 2) = (/ & - &3.1341e-03 ,3.4942e-03 ,3.8506e-03 ,4.1837e-03 ,4.5083e-03 /) - kbo(:,25, 2) = (/ & - &2.7078e-03 ,2.9853e-03 ,3.2644e-03 ,3.5527e-03 ,3.8354e-03 /) - kbo(:,26, 2) = (/ & - &2.3166e-03 ,2.5349e-03 ,2.7760e-03 ,3.0099e-03 ,3.2441e-03 /) - kbo(:,27, 2) = (/ & - &1.9581e-03 ,2.1476e-03 ,2.3442e-03 ,2.5333e-03 ,2.7284e-03 /) - kbo(:,28, 2) = (/ & - &1.6566e-03 ,1.8064e-03 ,1.9708e-03 ,2.1221e-03 ,2.2915e-03 /) - kbo(:,29, 2) = (/ & - &1.3865e-03 ,1.5225e-03 ,1.6510e-03 ,1.7817e-03 ,1.9308e-03 /) - kbo(:,30, 2) = (/ & - &1.1671e-03 ,1.2777e-03 ,1.3825e-03 ,1.4960e-03 ,1.6203e-03 /) - kbo(:,31, 2) = (/ & - &9.8586e-04 ,1.0724e-03 ,1.1604e-03 ,1.2563e-03 ,1.3588e-03 /) - kbo(:,32, 2) = (/ & - &8.3378e-04 ,9.0396e-04 ,9.7429e-04 ,1.0568e-03 ,1.1470e-03 /) - kbo(:,33, 2) = (/ & - &7.0369e-04 ,7.5618e-04 ,8.2196e-04 ,8.9196e-04 ,9.6493e-04 /) - kbo(:,34, 2) = (/ & - &5.9334e-04 ,6.3847e-04 ,6.9888e-04 ,7.5675e-04 ,8.1741e-04 /) - kbo(:,35, 2) = (/ & - &4.9419e-04 ,5.3430e-04 ,5.8625e-04 ,6.3690e-04 ,6.8685e-04 /) - kbo(:,36, 2) = (/ & - &4.1196e-04 ,4.5151e-04 ,4.9203e-04 ,5.3162e-04 ,5.7140e-04 /) - kbo(:,37, 2) = (/ & - &3.3813e-04 ,3.6860e-04 ,4.0277e-04 ,4.3459e-04 ,4.6722e-04 /) - kbo(:,38, 2) = (/ & - &2.7817e-04 ,3.0151e-04 ,3.2943e-04 ,3.5593e-04 ,3.8227e-04 /) - kbo(:,39, 2) = (/ & - &2.2867e-04 ,2.4762e-04 ,2.6968e-04 ,2.9008e-04 ,3.1209e-04 /) - kbo(:,40, 2) = (/ & - &1.8342e-04 ,1.9773e-04 ,2.1631e-04 ,2.3254e-04 ,2.4976e-04 /) - kbo(:,41, 2) = (/ & - &1.4676e-04 ,1.5810e-04 ,1.7216e-04 ,1.8594e-04 ,1.9960e-04 /) - kbo(:,42, 2) = (/ & - &1.1746e-04 ,1.2665e-04 ,1.3672e-04 ,1.4836e-04 ,1.5881e-04 /) - kbo(:,43, 2) = (/ & - &9.3086e-05 ,1.0013e-04 ,1.0780e-04 ,1.1711e-04 ,1.2583e-04 /) - kbo(:,44, 2) = (/ & - &7.3232e-05 ,7.8805e-05 ,8.4882e-05 ,9.2011e-05 ,9.9424e-05 /) - kbo(:,45, 2) = (/ & - &5.7257e-05 ,6.2283e-05 ,6.6827e-05 ,7.2104e-05 ,7.8039e-05 /) - kbo(:,46, 2) = (/ & - &4.5024e-05 ,4.8935e-05 ,5.2600e-05 ,5.6600e-05 ,6.1280e-05 /) - kbo(:,47, 2) = (/ & - &3.5357e-05 ,3.8098e-05 ,4.1339e-05 ,4.4405e-05 ,4.7940e-05 /) - kbo(:,48, 2) = (/ & - &2.7815e-05 ,2.9967e-05 ,3.2437e-05 ,3.4873e-05 ,3.7402e-05 /) - kbo(:,49, 2) = (/ & - &2.1939e-05 ,2.3492e-05 ,2.5305e-05 ,2.7332e-05 ,2.9323e-05 /) - kbo(:,50, 2) = (/ & - &1.7237e-05 ,1.8528e-05 ,1.9953e-05 ,2.1525e-05 ,2.3159e-05 /) - kbo(:,51, 2) = (/ & - &1.3436e-05 ,1.4671e-05 ,1.5802e-05 ,1.6957e-05 ,1.8296e-05 /) - kbo(:,52, 2) = (/ & - &1.0450e-05 ,1.1538e-05 ,1.2438e-05 ,1.3421e-05 ,1.4433e-05 /) - kbo(:,53, 2) = (/ & - &8.1106e-06 ,9.0282e-06 ,9.8120e-06 ,1.0593e-05 ,1.1339e-05 /) - kbo(:,54, 2) = (/ & - &6.3166e-06 ,7.0785e-06 ,7.7924e-06 ,8.4016e-06 ,8.9926e-06 /) - kbo(:,55, 2) = (/ & - &4.9361e-06 ,5.5830e-06 ,6.1858e-06 ,6.7021e-06 ,7.1744e-06 /) - kbo(:,56, 2) = (/ & - &3.8472e-06 ,4.3596e-06 ,4.8727e-06 ,5.3362e-06 ,5.7261e-06 /) - kbo(:,57, 2) = (/ & - &2.9833e-06 ,3.4045e-06 ,3.8019e-06 ,4.2184e-06 ,4.5533e-06 /) - kbo(:,58, 2) = (/ & - &2.2932e-06 ,2.6742e-06 ,3.0024e-06 ,3.3291e-06 ,3.6047e-06 /) - kbo(:,59, 2) = (/ & - &1.8323e-06 ,2.1714e-06 ,2.4292e-06 ,2.6999e-06 ,2.9218e-06 /) - kbo(:,13, 3) = (/ & - &3.0891e-02 ,3.3118e-02 ,3.6308e-02 ,3.9588e-02 ,4.3089e-02 /) - kbo(:,14, 3) = (/ & - &2.6329e-02 ,2.8653e-02 ,3.1325e-02 ,3.4211e-02 ,3.7000e-02 /) - kbo(:,15, 3) = (/ & - &2.2620e-02 ,2.4702e-02 ,2.7101e-02 ,2.9342e-02 ,3.1645e-02 /) - kbo(:,16, 3) = (/ & - &1.9521e-02 ,2.1493e-02 ,2.3534e-02 ,2.5338e-02 ,2.7120e-02 /) - kbo(:,17, 3) = (/ & - &1.7199e-02 ,1.8861e-02 ,2.0377e-02 ,2.1918e-02 ,2.3545e-02 /) - kbo(:,18, 3) = (/ & - &1.5181e-02 ,1.6445e-02 ,1.7796e-02 ,1.9171e-02 ,2.0759e-02 /) - kbo(:,19, 3) = (/ & - &1.3401e-02 ,1.4529e-02 ,1.5713e-02 ,1.7031e-02 ,1.8531e-02 /) - kbo(:,20, 3) = (/ & - &1.1566e-02 ,1.2595e-02 ,1.3616e-02 ,1.4797e-02 ,1.6195e-02 /) - kbo(:,21, 3) = (/ & - &9.9790e-03 ,1.0856e-02 ,1.1739e-02 ,1.2840e-02 ,1.4039e-02 /) - kbo(:,22, 3) = (/ & - &8.5571e-03 ,9.3189e-03 ,1.0148e-02 ,1.1149e-02 ,1.2271e-02 /) - kbo(:,23, 3) = (/ & - &7.3578e-03 ,7.9960e-03 ,8.8066e-03 ,9.6774e-03 ,1.0719e-02 /) - kbo(:,24, 3) = (/ & - &6.2710e-03 ,6.8510e-03 ,7.5829e-03 ,8.4285e-03 ,9.3410e-03 /) - kbo(:,25, 3) = (/ & - &5.3189e-03 ,5.9223e-03 ,6.5735e-03 ,7.3163e-03 ,8.1167e-03 /) - kbo(:,26, 3) = (/ & - &4.5763e-03 ,5.1227e-03 ,5.7207e-03 ,6.3561e-03 ,7.0425e-03 /) - kbo(:,27, 3) = (/ & - &3.9329e-03 ,4.4226e-03 ,4.9281e-03 ,5.4554e-03 ,6.0474e-03 /) - kbo(:,28, 3) = (/ & - &3.3818e-03 ,3.7926e-03 ,4.2066e-03 ,4.6531e-03 ,5.1585e-03 /) - kbo(:,29, 3) = (/ & - &2.9035e-03 ,3.2271e-03 ,3.5855e-03 ,3.9705e-03 ,4.3799e-03 /) - kbo(:,30, 3) = (/ & - &2.4837e-03 ,2.7647e-03 ,3.0488e-03 ,3.3703e-03 ,3.7029e-03 /) - kbo(:,31, 3) = (/ & - &2.0927e-03 ,2.3283e-03 ,2.5712e-03 ,2.8545e-03 ,3.1157e-03 /) - kbo(:,32, 3) = (/ & - &1.7660e-03 ,1.9568e-03 ,2.1676e-03 ,2.3923e-03 ,2.6159e-03 /) - kbo(:,33, 3) = (/ & - &1.4871e-03 ,1.6499e-03 ,1.8213e-03 ,2.0066e-03 ,2.1979e-03 /) - kbo(:,34, 3) = (/ & - &1.2670e-03 ,1.4012e-03 ,1.5485e-03 ,1.7073e-03 ,1.8735e-03 /) - kbo(:,35, 3) = (/ & - &1.0672e-03 ,1.1813e-03 ,1.3131e-03 ,1.4449e-03 ,1.5924e-03 /) - kbo(:,36, 3) = (/ & - &8.9185e-04 ,9.8733e-04 ,1.0955e-03 ,1.2168e-03 ,1.3441e-03 /) - kbo(:,37, 3) = (/ & - &7.2820e-04 ,8.0537e-04 ,8.9528e-04 ,9.9910e-04 ,1.1050e-03 /) - kbo(:,38, 3) = (/ & - &5.9186e-04 ,6.5591e-04 ,7.2922e-04 ,8.1759e-04 ,9.0441e-04 /) - kbo(:,39, 3) = (/ & - &4.8327e-04 ,5.3477e-04 ,5.9527e-04 ,6.6884e-04 ,7.4026e-04 /) - kbo(:,40, 3) = (/ & - &3.8671e-04 ,4.2869e-04 ,4.7628e-04 ,5.3686e-04 ,5.9502e-04 /) - kbo(:,41, 3) = (/ & - &3.0862e-04 ,3.4166e-04 ,3.8000e-04 ,4.2745e-04 ,4.7580e-04 /) - kbo(:,42, 3) = (/ & - &2.4577e-04 ,2.7168e-04 ,3.0221e-04 ,3.3942e-04 ,3.8025e-04 /) - kbo(:,43, 3) = (/ & - &1.9416e-04 ,2.1479e-04 ,2.3878e-04 ,2.6702e-04 ,3.0069e-04 /) - kbo(:,44, 3) = (/ & - &1.5374e-04 ,1.6929e-04 ,1.8776e-04 ,2.0950e-04 ,2.3556e-04 /) - kbo(:,45, 3) = (/ & - &1.2163e-04 ,1.3301e-04 ,1.4695e-04 ,1.6433e-04 ,1.8435e-04 /) - kbo(:,46, 3) = (/ & - &9.4928e-05 ,1.0426e-04 ,1.1546e-04 ,1.2841e-04 ,1.4410e-04 /) - kbo(:,47, 3) = (/ & - &7.3995e-05 ,8.2130e-05 ,9.0212e-05 ,1.0006e-04 ,1.1186e-04 /) - kbo(:,48, 3) = (/ & - &5.7893e-05 ,6.3962e-05 ,7.0352e-05 ,7.8032e-05 ,8.7072e-05 /) - kbo(:,49, 3) = (/ & - &4.5051e-05 ,4.9908e-05 ,5.5306e-05 ,6.0837e-05 ,6.7927e-05 /) - kbo(:,50, 3) = (/ & - &3.5303e-05 ,3.9326e-05 ,4.3324e-05 ,4.7812e-05 ,5.3164e-05 /) - kbo(:,51, 3) = (/ & - &2.7771e-05 ,3.0856e-05 ,3.4054e-05 ,3.7804e-05 ,4.1758e-05 /) - kbo(:,52, 3) = (/ & - &2.1938e-05 ,2.4227e-05 ,2.6919e-05 ,2.9733e-05 ,3.2981e-05 /) - kbo(:,53, 3) = (/ & - &1.7187e-05 ,1.9050e-05 ,2.1224e-05 ,2.3374e-05 ,2.5986e-05 /) - kbo(:,54, 3) = (/ & - &1.3551e-05 ,1.5084e-05 ,1.6671e-05 ,1.8493e-05 ,2.0639e-05 /) - kbo(:,55, 3) = (/ & - &1.0736e-05 ,1.1998e-05 ,1.3230e-05 ,1.4714e-05 ,1.6387e-05 /) - kbo(:,56, 3) = (/ & - &8.4780e-06 ,9.5613e-06 ,1.0535e-05 ,1.1722e-05 ,1.2981e-05 /) - kbo(:,57, 3) = (/ & - &6.6892e-06 ,7.5486e-06 ,8.3874e-06 ,9.3040e-06 ,1.0324e-05 /) - kbo(:,58, 3) = (/ & - &5.3282e-06 ,5.9530e-06 ,6.6841e-06 ,7.4078e-06 ,8.2298e-06 /) - kbo(:,59, 3) = (/ & - &4.3459e-06 ,4.8321e-06 ,5.4567e-06 ,6.0369e-06 ,6.7261e-06 /) - kbo(:,13, 4) = (/ & - &6.7009e-02 ,7.0746e-02 ,7.4150e-02 ,7.7569e-02 ,8.1680e-02 /) - kbo(:,14, 4) = (/ & - &5.5943e-02 ,5.8697e-02 ,6.1678e-02 ,6.4914e-02 ,6.9379e-02 /) - kbo(:,15, 4) = (/ & - &4.6843e-02 ,4.9217e-02 ,5.1833e-02 ,5.5783e-02 ,5.9767e-02 /) - kbo(:,16, 4) = (/ & - &3.9239e-02 ,4.1262e-02 ,4.4032e-02 ,4.7642e-02 ,5.1925e-02 /) - kbo(:,17, 4) = (/ & - &3.3107e-02 ,3.5295e-02 ,3.8541e-02 ,4.2220e-02 ,4.6357e-02 /) - kbo(:,18, 4) = (/ & - &2.8797e-02 ,3.1620e-02 ,3.4631e-02 ,3.8034e-02 ,4.1725e-02 /) - kbo(:,19, 4) = (/ & - &2.5628e-02 ,2.8281e-02 ,3.1139e-02 ,3.4358e-02 ,3.7925e-02 /) - kbo(:,20, 4) = (/ & - &2.2579e-02 ,2.4906e-02 ,2.7554e-02 ,3.0345e-02 ,3.3488e-02 /) - kbo(:,21, 4) = (/ & - &1.9528e-02 ,2.1738e-02 ,2.4107e-02 ,2.6707e-02 ,2.9475e-02 /) - kbo(:,22, 4) = (/ & - &1.7101e-02 ,1.8986e-02 ,2.1039e-02 ,2.3296e-02 ,2.5855e-02 /) - kbo(:,23, 4) = (/ & - &1.4866e-02 ,1.6502e-02 ,1.8337e-02 ,2.0414e-02 ,2.2548e-02 /) - kbo(:,24, 4) = (/ & - &1.2821e-02 ,1.4288e-02 ,1.5941e-02 ,1.7747e-02 ,1.9679e-02 /) - kbo(:,25, 4) = (/ & - &1.1061e-02 ,1.2369e-02 ,1.3872e-02 ,1.5379e-02 ,1.7059e-02 /) - kbo(:,26, 4) = (/ & - &9.5354e-03 ,1.0723e-02 ,1.2012e-02 ,1.3430e-02 ,1.4839e-02 /) - kbo(:,27, 4) = (/ & - &8.1975e-03 ,9.2673e-03 ,1.0387e-02 ,1.1650e-02 ,1.2827e-02 /) - kbo(:,28, 4) = (/ & - &7.0231e-03 ,7.9702e-03 ,8.9828e-03 ,1.0032e-02 ,1.1053e-02 /) - kbo(:,29, 4) = (/ & - &6.0200e-03 ,6.8421e-03 ,7.7670e-03 ,8.6094e-03 ,9.5249e-03 /) - kbo(:,30, 4) = (/ & - &5.1558e-03 ,5.8823e-03 ,6.6735e-03 ,7.4143e-03 ,8.2222e-03 /) - kbo(:,31, 4) = (/ & - &4.4508e-03 ,5.1031e-03 ,5.7395e-03 ,6.3990e-03 ,7.0930e-03 /) - kbo(:,32, 4) = (/ & - &3.8687e-03 ,4.4226e-03 ,4.9634e-03 ,5.5499e-03 ,6.1447e-03 /) - kbo(:,33, 4) = (/ & - &3.3860e-03 ,3.8414e-03 ,4.3170e-03 ,4.8129e-03 ,5.3113e-03 /) - kbo(:,34, 4) = (/ & - &2.9667e-03 ,3.3572e-03 ,3.7642e-03 ,4.1882e-03 ,4.5973e-03 /) - kbo(:,35, 4) = (/ & - &2.5854e-03 ,2.9160e-03 ,3.2542e-03 ,3.6120e-03 ,3.9574e-03 /) - kbo(:,36, 4) = (/ & - &2.2132e-03 ,2.5004e-03 ,2.7859e-03 ,3.0722e-03 ,3.3673e-03 /) - kbo(:,37, 4) = (/ & - &1.8397e-03 ,2.0798e-03 ,2.3185e-03 ,2.5525e-03 ,2.8046e-03 /) - kbo(:,38, 4) = (/ & - &1.5241e-03 ,1.7240e-03 ,1.9250e-03 ,2.1190e-03 ,2.3334e-03 /) - kbo(:,39, 4) = (/ & - &1.2578e-03 ,1.4258e-03 ,1.5974e-03 ,1.7602e-03 ,1.9414e-03 /) - kbo(:,40, 4) = (/ & - &1.0136e-03 ,1.1511e-03 ,1.2925e-03 ,1.4274e-03 ,1.5799e-03 /) - kbo(:,41, 4) = (/ & - &8.1255e-04 ,9.2485e-04 ,1.0421e-03 ,1.1560e-03 ,1.2823e-03 /) - kbo(:,42, 4) = (/ & - &6.5076e-04 ,7.4076e-04 ,8.3891e-04 ,9.3536e-04 ,1.0398e-03 /) - kbo(:,43, 4) = (/ & - &5.1457e-04 ,5.8675e-04 ,6.6625e-04 ,7.5025e-04 ,8.3332e-04 /) - kbo(:,44, 4) = (/ & - &4.0130e-04 ,4.6112e-04 ,5.2500e-04 ,5.9353e-04 ,6.6396e-04 /) - kbo(:,45, 4) = (/ & - &3.1174e-04 ,3.6176e-04 ,4.1281e-04 ,4.6943e-04 ,5.2749e-04 /) - kbo(:,46, 4) = (/ & - &2.4198e-04 ,2.8347e-04 ,3.2327e-04 ,3.6940e-04 ,4.1847e-04 /) - kbo(:,47, 4) = (/ & - &1.8653e-04 ,2.1946e-04 ,2.5297e-04 ,2.9033e-04 ,3.3117e-04 /) - kbo(:,48, 4) = (/ & - &1.4273e-04 ,1.6990e-04 ,1.9780e-04 ,2.2703e-04 ,2.6076e-04 /) - kbo(:,49, 4) = (/ & - &1.1020e-04 ,1.3076e-04 ,1.5369e-04 ,1.7736e-04 ,2.0453e-04 /) - kbo(:,50, 4) = (/ & - &8.5840e-05 ,1.0098e-04 ,1.2003e-04 ,1.3937e-04 ,1.6133e-04 /) - kbo(:,51, 4) = (/ & - &6.7375e-05 ,7.8667e-05 ,9.3691e-05 ,1.0967e-04 ,1.2714e-04 /) - kbo(:,52, 4) = (/ & - &5.2333e-05 ,6.1321e-05 ,7.2765e-05 ,8.6008e-05 ,9.9915e-05 /) - kbo(:,53, 4) = (/ & - &4.0658e-05 ,4.7664e-05 ,5.6514e-05 ,6.7300e-05 ,7.8701e-05 /) - kbo(:,54, 4) = (/ & - &3.1857e-05 ,3.7478e-05 ,4.4306e-05 ,5.3025e-05 ,6.2299e-05 /) - kbo(:,55, 4) = (/ & - &2.4955e-05 ,2.9435e-05 ,3.4823e-05 ,4.1578e-05 ,4.9419e-05 /) - kbo(:,56, 4) = (/ & - &1.9655e-05 ,2.3009e-05 ,2.7169e-05 ,3.2570e-05 ,3.9005e-05 /) - kbo(:,57, 4) = (/ & - &1.5476e-05 ,1.8100e-05 ,2.1340e-05 ,2.5521e-05 ,3.0667e-05 /) - kbo(:,58, 4) = (/ & - &1.2154e-05 ,1.4292e-05 ,1.6827e-05 ,2.0050e-05 ,2.4167e-05 /) - kbo(:,59, 4) = (/ & - &9.8901e-06 ,1.1647e-05 ,1.3760e-05 ,1.6454e-05 ,1.9831e-05 /) - kbo(:,13, 5) = (/ & - &1.3634e-01 ,1.4252e-01 ,1.5001e-01 ,1.6028e-01 ,1.7134e-01 /) - kbo(:,14, 5) = (/ & - &1.1274e-01 ,1.1839e-01 ,1.2582e-01 ,1.3453e-01 ,1.4378e-01 /) - kbo(:,15, 5) = (/ & - &9.3550e-02 ,9.9682e-02 ,1.0681e-01 ,1.1432e-01 ,1.2335e-01 /) - kbo(:,16, 5) = (/ & - &7.9704e-02 ,8.5926e-02 ,9.2006e-02 ,9.9216e-02 ,1.0669e-01 /) - kbo(:,17, 5) = (/ & - &6.9562e-02 ,7.4399e-02 ,8.0031e-02 ,8.6090e-02 ,9.3210e-02 /) - kbo(:,18, 5) = (/ & - &6.1028e-02 ,6.5373e-02 ,7.1097e-02 ,7.7143e-02 ,8.4153e-02 /) - kbo(:,19, 5) = (/ & - &5.4138e-02 ,5.9145e-02 ,6.4366e-02 ,7.0461e-02 ,7.6822e-02 /) - kbo(:,20, 5) = (/ & - &4.7698e-02 ,5.2419e-02 ,5.7657e-02 ,6.3398e-02 ,6.9523e-02 /) - kbo(:,21, 5) = (/ & - &4.2126e-02 ,4.6323e-02 ,5.1164e-02 ,5.6007e-02 ,6.1597e-02 /) - kbo(:,22, 5) = (/ & - &3.6873e-02 ,4.0763e-02 ,4.4958e-02 ,4.9556e-02 ,5.4204e-02 /) - kbo(:,23, 5) = (/ & - &3.2201e-02 ,3.5761e-02 ,3.9530e-02 ,4.3670e-02 ,4.7920e-02 /) - kbo(:,24, 5) = (/ & - &2.8239e-02 ,3.1305e-02 ,3.4844e-02 ,3.8415e-02 ,4.2157e-02 /) - kbo(:,25, 5) = (/ & - &2.4669e-02 ,2.7511e-02 ,3.0568e-02 ,3.3769e-02 ,3.6890e-02 /) - kbo(:,26, 5) = (/ & - &2.1582e-02 ,2.4173e-02 ,2.6811e-02 ,2.9496e-02 ,3.2330e-02 /) - kbo(:,27, 5) = (/ & - &1.8849e-02 ,2.1094e-02 ,2.3446e-02 ,2.5755e-02 ,2.8374e-02 /) - kbo(:,28, 5) = (/ & - &1.6379e-02 ,1.8330e-02 ,2.0367e-02 ,2.2542e-02 ,2.4931e-02 /) - kbo(:,29, 5) = (/ & - &1.4280e-02 ,1.5993e-02 ,1.7723e-02 ,1.9736e-02 ,2.1895e-02 /) - kbo(:,30, 5) = (/ & - &1.2451e-02 ,1.3902e-02 ,1.5477e-02 ,1.7322e-02 ,1.9234e-02 /) - kbo(:,31, 5) = (/ & - &1.0840e-02 ,1.2122e-02 ,1.3593e-02 ,1.5159e-02 ,1.6921e-02 /) - kbo(:,32, 5) = (/ & - &9.4753e-03 ,1.0651e-02 ,1.1992e-02 ,1.3397e-02 ,1.4887e-02 /) - kbo(:,33, 5) = (/ & - &8.3358e-03 ,9.4249e-03 ,1.0592e-02 ,1.1871e-02 ,1.3208e-02 /) - kbo(:,34, 5) = (/ & - &7.3799e-03 ,8.3765e-03 ,9.4456e-03 ,1.0582e-02 ,1.1863e-02 /) - kbo(:,35, 5) = (/ & - &6.4631e-03 ,7.3628e-03 ,8.3364e-03 ,9.3419e-03 ,1.0526e-02 /) - kbo(:,36, 5) = (/ & - &5.5926e-03 ,6.3888e-03 ,7.2585e-03 ,8.2192e-03 ,9.2462e-03 /) - kbo(:,37, 5) = (/ & - &4.7015e-03 ,5.3951e-03 ,6.1680e-03 ,7.0229e-03 ,7.9329e-03 /) - kbo(:,38, 5) = (/ & - &3.9517e-03 ,4.5644e-03 ,5.2429e-03 ,6.0141e-03 ,6.8184e-03 /) - kbo(:,39, 5) = (/ & - &3.3266e-03 ,3.8629e-03 ,4.4575e-03 ,5.1473e-03 ,5.8646e-03 /) - kbo(:,40, 5) = (/ & - &2.7281e-03 ,3.1818e-03 ,3.6932e-03 ,4.2742e-03 ,4.8976e-03 /) - kbo(:,41, 5) = (/ & - &2.2270e-03 ,2.6113e-03 ,3.0386e-03 ,3.5308e-03 ,4.0601e-03 /) - kbo(:,42, 5) = (/ & - &1.8093e-03 ,2.1403e-03 ,2.4947e-03 ,2.9136e-03 ,3.3566e-03 /) - kbo(:,43, 5) = (/ & - &1.4510e-03 ,1.7247e-03 ,2.0294e-03 ,2.3716e-03 ,2.7407e-03 /) - kbo(:,44, 5) = (/ & - &1.1565e-03 ,1.3809e-03 ,1.6356e-03 ,1.9170e-03 ,2.2199e-03 /) - kbo(:,45, 5) = (/ & - &9.2074e-04 ,1.1011e-03 ,1.3110e-03 ,1.5432e-03 ,1.7974e-03 /) - kbo(:,46, 5) = (/ & - &7.2799e-04 ,8.7147e-04 ,1.0468e-03 ,1.2375e-03 ,1.4475e-03 /) - kbo(:,47, 5) = (/ & - &5.6825e-04 ,6.8576e-04 ,8.2827e-04 ,9.8300e-04 ,1.1595e-03 /) - kbo(:,48, 5) = (/ & - &4.4362e-04 ,5.3785e-04 ,6.5132e-04 ,7.7947e-04 ,9.2729e-04 /) - kbo(:,49, 5) = (/ & - &3.4360e-04 ,4.2004e-04 ,5.1060e-04 ,6.1673e-04 ,7.3913e-04 /) - kbo(:,50, 5) = (/ & - &2.6639e-04 ,3.2974e-04 ,4.0310e-04 ,4.8991e-04 ,5.9182e-04 /) - kbo(:,51, 5) = (/ & - &2.0705e-04 ,2.5803e-04 ,3.1790e-04 ,3.8886e-04 ,4.7401e-04 /) - kbo(:,52, 5) = (/ & - &1.6104e-04 ,2.0156e-04 ,2.4998e-04 ,3.0713e-04 ,3.7759e-04 /) - kbo(:,53, 5) = (/ & - &1.2422e-04 ,1.5670e-04 ,1.9587e-04 ,2.4211e-04 ,2.9925e-04 /) - kbo(:,54, 5) = (/ & - &9.6443e-05 ,1.2239e-04 ,1.5459e-04 ,1.9203e-04 ,2.3866e-04 /) - kbo(:,55, 5) = (/ & - &7.5345e-05 ,9.6163e-05 ,1.2185e-04 ,1.5278e-04 ,1.9092e-04 /) - kbo(:,56, 5) = (/ & - &5.8479e-05 ,7.5388e-05 ,9.6163e-05 ,1.2109e-04 ,1.5224e-04 /) - kbo(:,57, 5) = (/ & - &4.5173e-05 ,5.8728e-05 ,7.5432e-05 ,9.5735e-05 ,1.2084e-04 /) - kbo(:,58, 5) = (/ & - &3.5110e-05 ,4.5659e-05 ,5.9108e-05 ,7.5684e-05 ,9.5780e-05 /) - kbo(:,59, 5) = (/ & - &2.8669e-05 ,3.7452e-05 ,4.8577e-05 ,6.2553e-05 ,7.9913e-05 /) - kbo(:,13, 6) = (/ & - &3.1943e-01 ,3.3627e-01 ,3.5152e-01 ,3.6856e-01 ,3.8489e-01 /) - kbo(:,14, 6) = (/ & - &2.6955e-01 ,2.8315e-01 ,2.9631e-01 ,3.1035e-01 ,3.2480e-01 /) - kbo(:,15, 6) = (/ & - &2.2744e-01 ,2.3792e-01 ,2.4935e-01 ,2.6127e-01 ,2.7359e-01 /) - kbo(:,16, 6) = (/ & - &1.9190e-01 ,2.0128e-01 ,2.1209e-01 ,2.2354e-01 ,2.3634e-01 /) - kbo(:,17, 6) = (/ & - &1.6550e-01 ,1.7572e-01 ,1.8575e-01 ,1.9639e-01 ,2.0864e-01 /) - kbo(:,18, 6) = (/ & - &1.4664e-01 ,1.5533e-01 ,1.6464e-01 ,1.7496e-01 ,1.8532e-01 /) - kbo(:,19, 6) = (/ & - &1.3086e-01 ,1.3857e-01 ,1.4754e-01 ,1.5676e-01 ,1.6804e-01 /) - kbo(:,20, 6) = (/ & - &1.1476e-01 ,1.2256e-01 ,1.3048e-01 ,1.3999e-01 ,1.5052e-01 /) - kbo(:,21, 6) = (/ & - &1.0042e-01 ,1.0755e-01 ,1.1552e-01 ,1.2457e-01 ,1.3541e-01 /) - kbo(:,22, 6) = (/ & - &8.7811e-02 ,9.4376e-02 ,1.0240e-01 ,1.1139e-01 ,1.2190e-01 /) - kbo(:,23, 6) = (/ & - &7.6746e-02 ,8.3440e-02 ,9.0958e-02 ,9.9436e-02 ,1.0837e-01 /) - kbo(:,24, 6) = (/ & - &6.7020e-02 ,7.3597e-02 ,8.0186e-02 ,8.7655e-02 ,9.5847e-02 /) - kbo(:,25, 6) = (/ & - &5.8852e-02 ,6.4342e-02 ,7.0651e-02 ,7.7553e-02 ,8.5595e-02 /) - kbo(:,26, 6) = (/ & - &5.1501e-02 ,5.6677e-02 ,6.2671e-02 ,6.9309e-02 ,7.6862e-02 /) - kbo(:,27, 6) = (/ & - &4.5068e-02 ,5.0089e-02 ,5.5571e-02 ,6.2056e-02 ,6.8532e-02 /) - kbo(:,28, 6) = (/ & - &3.9606e-02 ,4.4193e-02 ,4.9408e-02 ,5.5057e-02 ,6.0956e-02 /) - kbo(:,29, 6) = (/ & - &3.4989e-02 ,3.9176e-02 ,4.4032e-02 ,4.9174e-02 ,5.4655e-02 /) - kbo(:,30, 6) = (/ & - &3.0943e-02 ,3.4971e-02 ,3.9398e-02 ,4.4027e-02 ,4.9163e-02 /) - kbo(:,31, 6) = (/ & - &2.7553e-02 ,3.1287e-02 ,3.5351e-02 ,3.9782e-02 ,4.4558e-02 /) - kbo(:,32, 6) = (/ & - &2.4710e-02 ,2.8155e-02 ,3.1869e-02 ,3.6099e-02 ,4.0666e-02 /) - kbo(:,33, 6) = (/ & - &2.2173e-02 ,2.5362e-02 ,2.8990e-02 ,3.2965e-02 ,3.7297e-02 /) - kbo(:,34, 6) = (/ & - &2.0107e-02 ,2.3109e-02 ,2.6574e-02 ,3.0332e-02 ,3.4357e-02 /) - kbo(:,35, 6) = (/ & - &1.8022e-02 ,2.0877e-02 ,2.4132e-02 ,2.7710e-02 ,3.1520e-02 /) - kbo(:,36, 6) = (/ & - &1.5963e-02 ,1.8659e-02 ,2.1660e-02 ,2.4929e-02 ,2.8560e-02 /) - kbo(:,37, 6) = (/ & - &1.3764e-02 ,1.6188e-02 ,1.8916e-02 ,2.1932e-02 ,2.5294e-02 /) - kbo(:,38, 6) = (/ & - &1.1849e-02 ,1.4028e-02 ,1.6494e-02 ,1.9269e-02 ,2.2340e-02 /) - kbo(:,39, 6) = (/ & - &1.0207e-02 ,1.2194e-02 ,1.4401e-02 ,1.6941e-02 ,1.9796e-02 /) - kbo(:,40, 6) = (/ & - &8.5573e-03 ,1.0315e-02 ,1.2260e-02 ,1.4559e-02 ,1.7141e-02 /) - kbo(:,41, 6) = (/ & - &7.1290e-03 ,8.6738e-03 ,1.0403e-02 ,1.2445e-02 ,1.4801e-02 /) - kbo(:,42, 6) = (/ & - &5.9179e-03 ,7.2709e-03 ,8.8122e-03 ,1.0627e-02 ,1.2787e-02 /) - kbo(:,43, 6) = (/ & - &4.8318e-03 ,5.9892e-03 ,7.3334e-03 ,8.9514e-03 ,1.0874e-02 /) - kbo(:,44, 6) = (/ & - &3.8999e-03 ,4.8767e-03 ,6.0501e-03 ,7.4816e-03 ,9.1794e-03 /) - kbo(:,45, 6) = (/ & - &3.1360e-03 ,3.9601e-03 ,4.9837e-03 ,6.2240e-03 ,7.7311e-03 /) - kbo(:,46, 6) = (/ & - &2.5027e-03 ,3.1827e-03 ,4.0540e-03 ,5.1329e-03 ,6.4480e-03 /) - kbo(:,47, 6) = (/ & - &1.9756e-03 ,2.5273e-03 ,3.2610e-03 ,4.1749e-03 ,5.3122e-03 /) - kbo(:,48, 6) = (/ & - &1.5473e-03 ,1.9960e-03 ,2.6043e-03 ,3.3772e-03 ,4.3437e-03 /) - kbo(:,49, 6) = (/ & - &1.2068e-03 ,1.5706e-03 ,2.0674e-03 ,2.7091e-03 ,3.5307e-03 /) - kbo(:,50, 6) = (/ & - &9.4521e-04 ,1.2396e-03 ,1.6445e-03 ,2.1801e-03 ,2.8792e-03 /) - kbo(:,51, 6) = (/ & - &7.3804e-04 ,9.7746e-04 ,1.3076e-03 ,1.7542e-03 ,2.3409e-03 /) - kbo(:,52, 6) = (/ & - &5.7206e-04 ,7.6763e-04 ,1.0338e-03 ,1.4015e-03 ,1.8909e-03 /) - kbo(:,53, 6) = (/ & - &4.4225e-04 ,5.9805e-04 ,8.1248e-04 ,1.1113e-03 ,1.5170e-03 /) - kbo(:,54, 6) = (/ & - &3.4467e-04 ,4.7010e-04 ,6.4272e-04 ,8.8848e-04 ,1.2276e-03 /) - kbo(:,55, 6) = (/ & - &2.6885e-04 ,3.6925e-04 ,5.1051e-04 ,7.1238e-04 ,9.9424e-04 /) - kbo(:,56, 6) = (/ & - &2.0891e-04 ,2.8866e-04 ,4.0323e-04 ,5.6854e-04 ,8.0318e-04 /) - kbo(:,57, 6) = (/ & - &1.6206e-04 ,2.2457e-04 ,3.1663e-04 ,4.5154e-04 ,6.4436e-04 /) - kbo(:,58, 6) = (/ & - &1.2565e-04 ,1.7534e-04 ,2.4919e-04 ,3.5849e-04 ,5.1835e-04 /) - kbo(:,59, 6) = (/ & - &1.0370e-04 ,1.4590e-04 ,2.0972e-04 ,3.0572e-04 ,4.4824e-04 /) - kbo(:,13, 7) = (/ & - &8.6885e-01 ,8.9426e-01 ,9.2071e-01 ,9.5081e-01 ,9.7593e-01 /) - kbo(:,14, 7) = (/ & - &7.3422e-01 ,7.5692e-01 ,7.8528e-01 ,8.1141e-01 ,8.3349e-01 /) - kbo(:,15, 7) = (/ & - &6.1192e-01 ,6.3447e-01 ,6.5837e-01 ,6.7854e-01 ,7.0269e-01 /) - kbo(:,16, 7) = (/ & - &5.0884e-01 ,5.2842e-01 ,5.4670e-01 ,5.6627e-01 ,5.8867e-01 /) - kbo(:,17, 7) = (/ & - &4.3640e-01 ,4.5419e-01 ,4.7288e-01 ,4.9197e-01 ,5.1336e-01 /) - kbo(:,18, 7) = (/ & - &3.8407e-01 ,4.0203e-01 ,4.1993e-01 ,4.4018e-01 ,4.6362e-01 /) - kbo(:,19, 7) = (/ & - &3.4228e-01 ,3.5912e-01 ,3.7740e-01 ,3.9888e-01 ,4.2103e-01 /) - kbo(:,20, 7) = (/ & - &3.0199e-01 ,3.1730e-01 ,3.3484e-01 ,3.5351e-01 ,3.7675e-01 /) - kbo(:,21, 7) = (/ & - &2.6553e-01 ,2.8042e-01 ,2.9603e-01 ,3.1609e-01 ,3.3882e-01 /) - kbo(:,22, 7) = (/ & - &2.3320e-01 ,2.4726e-01 ,2.6434e-01 ,2.8368e-01 ,3.0736e-01 /) - kbo(:,23, 7) = (/ & - &2.0578e-01 ,2.1941e-01 ,2.3579e-01 ,2.5629e-01 ,2.8224e-01 /) - kbo(:,24, 7) = (/ & - &1.8045e-01 ,1.9362e-01 ,2.1135e-01 ,2.3376e-01 ,2.5793e-01 /) - kbo(:,25, 7) = (/ & - &1.5885e-01 ,1.7311e-01 ,1.9174e-01 ,2.1249e-01 ,2.3261e-01 /) - kbo(:,26, 7) = (/ & - &1.4101e-01 ,1.5639e-01 ,1.7418e-01 ,1.9114e-01 ,2.1048e-01 /) - kbo(:,27, 7) = (/ & - &1.2599e-01 ,1.4076e-01 ,1.5557e-01 ,1.7183e-01 ,1.9023e-01 /) - kbo(:,28, 7) = (/ & - &1.1218e-01 ,1.2546e-01 ,1.3903e-01 ,1.5482e-01 ,1.7215e-01 /) - kbo(:,29, 7) = (/ & - &1.0072e-01 ,1.1254e-01 ,1.2583e-01 ,1.4062e-01 ,1.5650e-01 /) - kbo(:,30, 7) = (/ & - &9.0713e-02 ,1.0192e-01 ,1.1464e-01 ,1.2854e-01 ,1.4398e-01 /) - kbo(:,31, 7) = (/ & - &8.2277e-02 ,9.3097e-02 ,1.0524e-01 ,1.1856e-01 ,1.3355e-01 /) - kbo(:,32, 7) = (/ & - &7.5303e-02 ,8.5763e-02 ,9.7401e-02 ,1.1054e-01 ,1.2526e-01 /) - kbo(:,33, 7) = (/ & - &6.9506e-02 ,7.9549e-02 ,9.0902e-02 ,1.0398e-01 ,1.1862e-01 /) - kbo(:,34, 7) = (/ & - &6.4727e-02 ,7.4554e-02 ,8.5918e-02 ,9.8930e-02 ,1.1374e-01 /) - kbo(:,35, 7) = (/ & - &5.9573e-02 ,6.9480e-02 ,8.0602e-02 ,9.3549e-02 ,1.0847e-01 /) - kbo(:,36, 7) = (/ & - &5.4200e-02 ,6.3825e-02 ,7.4842e-02 ,8.7689e-02 ,1.0224e-01 /) - kbo(:,37, 7) = (/ & - &4.7941e-02 ,5.7083e-02 ,6.7560e-02 ,8.0041e-02 ,9.3919e-02 /) - kbo(:,38, 7) = (/ & - &4.2423e-02 ,5.1057e-02 ,6.0983e-02 ,7.2873e-02 ,8.6484e-02 /) - kbo(:,39, 7) = (/ & - &3.7589e-02 ,4.5606e-02 ,5.5155e-02 ,6.6511e-02 ,7.9703e-02 /) - kbo(:,40, 7) = (/ & - &3.2287e-02 ,3.9605e-02 ,4.8489e-02 ,5.9153e-02 ,7.1379e-02 /) - kbo(:,41, 7) = (/ & - &2.7611e-02 ,3.4241e-02 ,4.2425e-02 ,5.2312e-02 ,6.3597e-02 /) - kbo(:,42, 7) = (/ & - &2.3526e-02 ,2.9544e-02 ,3.7050e-02 ,4.6066e-02 ,5.6624e-02 /) - kbo(:,43, 7) = (/ & - &1.9724e-02 ,2.5077e-02 ,3.1787e-02 ,3.9922e-02 ,4.9656e-02 /) - kbo(:,44, 7) = (/ & - &1.6360e-02 ,2.1054e-02 ,2.6994e-02 ,3.4254e-02 ,4.3106e-02 /) - kbo(:,45, 7) = (/ & - &1.3479e-02 ,1.7563e-02 ,2.2810e-02 ,2.9308e-02 ,3.7331e-02 /) - kbo(:,46, 7) = (/ & - &1.0982e-02 ,1.4524e-02 ,1.9109e-02 ,2.4872e-02 ,3.2032e-02 /) - kbo(:,47, 7) = (/ & - &8.8182e-03 ,1.1815e-02 ,1.5755e-02 ,2.0785e-02 ,2.7117e-02 /) - kbo(:,48, 7) = (/ & - &7.0297e-03 ,9.5228e-03 ,1.2883e-02 ,1.7248e-02 ,2.2808e-02 /) - kbo(:,49, 7) = (/ & - &5.5570e-03 ,7.6141e-03 ,1.0446e-02 ,1.4193e-02 ,1.9030e-02 /) - kbo(:,50, 7) = (/ & - &4.4018e-03 ,6.0988e-03 ,8.5078e-03 ,1.1727e-02 ,1.5958e-02 /) - kbo(:,51, 7) = (/ & - &3.4813e-03 ,4.8790e-03 ,6.9087e-03 ,9.6740e-03 ,1.3370e-02 /) - kbo(:,52, 7) = (/ & - &2.7259e-03 ,3.8645e-03 ,5.5503e-03 ,7.9313e-03 ,1.1133e-02 /) - kbo(:,53, 7) = (/ & - &2.1153e-03 ,3.0336e-03 ,4.4195e-03 ,6.4300e-03 ,9.1714e-03 /) - kbo(:,54, 7) = (/ & - &1.6649e-03 ,2.4099e-03 ,3.5602e-03 ,5.2651e-03 ,7.6558e-03 /) - kbo(:,55, 7) = (/ & - &1.3120e-03 ,1.9223e-03 ,2.8746e-03 ,4.3204e-03 ,6.4144e-03 /) - kbo(:,56, 7) = (/ & - &1.0280e-03 ,1.5213e-03 ,2.3034e-03 ,3.5254e-03 ,5.3355e-03 /) - kbo(:,57, 7) = (/ & - &8.0119e-04 ,1.1961e-03 ,1.8353e-03 ,2.8565e-03 ,4.4054e-03 /) - kbo(:,58, 7) = (/ & - &6.2596e-04 ,9.4223e-04 ,1.4648e-03 ,2.3194e-03 ,3.6416e-03 /) - kbo(:,59, 7) = (/ & - &5.2923e-04 ,8.1079e-04 ,1.2847e-03 ,2.0681e-03 ,3.3065e-03 /) - kbo(:,13, 8) = (/ & - &3.0137e+00 ,3.0721e+00 ,3.1135e+00 ,3.1353e+00 ,3.1526e+00 /) - kbo(:,14, 8) = (/ & - &2.5881e+00 ,2.6331e+00 ,2.6669e+00 ,2.6887e+00 ,2.7106e+00 /) - kbo(:,15, 8) = (/ & - &2.2017e+00 ,2.2477e+00 ,2.2747e+00 ,2.3022e+00 ,2.3199e+00 /) - kbo(:,16, 8) = (/ & - &1.8745e+00 ,1.9119e+00 ,1.9407e+00 ,1.9650e+00 ,1.9910e+00 /) - kbo(:,17, 8) = (/ & - &1.5865e+00 ,1.6181e+00 ,1.6438e+00 ,1.6744e+00 ,1.7044e+00 /) - kbo(:,18, 8) = (/ & - &1.3469e+00 ,1.3737e+00 ,1.4061e+00 ,1.4422e+00 ,1.4784e+00 /) - kbo(:,19, 8) = (/ & - &1.1589e+00 ,1.1936e+00 ,1.2348e+00 ,1.2728e+00 ,1.3146e+00 /) - kbo(:,20, 8) = (/ & - &1.0242e+00 ,1.0660e+00 ,1.1056e+00 ,1.1466e+00 ,1.1869e+00 /) - kbo(:,21, 8) = (/ & - &9.1121e-01 ,9.5273e-01 ,9.9427e-01 ,1.0332e+00 ,1.0710e+00 /) - kbo(:,22, 8) = (/ & - &8.0647e-01 ,8.4440e-01 ,8.8114e-01 ,9.1866e-01 ,9.5785e-01 /) - kbo(:,23, 8) = (/ & - &7.0834e-01 ,7.4542e-01 ,7.7998e-01 ,8.1759e-01 ,8.5850e-01 /) - kbo(:,24, 8) = (/ & - &6.2177e-01 ,6.5425e-01 ,6.8799e-01 ,7.2751e-01 ,7.7799e-01 /) - kbo(:,25, 8) = (/ & - &5.4589e-01 ,5.7729e-01 ,6.1309e-01 ,6.5804e-01 ,7.1412e-01 /) - kbo(:,26, 8) = (/ & - &4.8128e-01 ,5.1418e-01 ,5.5324e-01 ,6.0347e-01 ,6.6308e-01 /) - kbo(:,27, 8) = (/ & - &4.2682e-01 ,4.6055e-01 ,5.0524e-01 ,5.5765e-01 ,6.2135e-01 /) - kbo(:,28, 8) = (/ & - &3.8006e-01 ,4.1721e-01 ,4.6337e-01 ,5.1919e-01 ,5.8322e-01 /) - kbo(:,29, 8) = (/ & - &3.4196e-01 ,3.8125e-01 ,4.2943e-01 ,4.8588e-01 ,5.5221e-01 /) - kbo(:,30, 8) = (/ & - &3.1093e-01 ,3.5114e-01 ,4.0038e-01 ,4.5863e-01 ,5.2276e-01 /) - kbo(:,31, 8) = (/ & - &2.8616e-01 ,3.2668e-01 ,3.7633e-01 ,4.3472e-01 ,4.9941e-01 /) - kbo(:,32, 8) = (/ & - &2.6688e-01 ,3.0820e-01 ,3.5883e-01 ,4.1523e-01 ,4.8206e-01 /) - kbo(:,33, 8) = (/ & - &2.5149e-01 ,2.9538e-01 ,3.4473e-01 ,4.0327e-01 ,4.6953e-01 /) - kbo(:,34, 8) = (/ & - &2.4069e-01 ,2.8516e-01 ,3.3563e-01 ,3.9421e-01 ,4.6040e-01 /) - kbo(:,35, 8) = (/ & - &2.2923e-01 ,2.7328e-01 ,3.2510e-01 ,3.8300e-01 ,4.4899e-01 /) - kbo(:,36, 8) = (/ & - &2.1677e-01 ,2.6037e-01 ,3.1183e-01 ,3.6883e-01 ,4.3509e-01 /) - kbo(:,37, 8) = (/ & - &1.9848e-01 ,2.3986e-01 ,2.8965e-01 ,3.4421e-01 ,4.0854e-01 /) - kbo(:,38, 8) = (/ & - &1.8143e-01 ,2.2127e-01 ,2.6901e-01 ,3.2212e-01 ,3.8468e-01 /) - kbo(:,39, 8) = (/ & - &1.6606e-01 ,2.0455e-01 ,2.5024e-01 ,3.0203e-01 ,3.6363e-01 /) - kbo(:,40, 8) = (/ & - &1.4741e-01 ,1.8322e-01 ,2.2603e-01 ,2.7520e-01 ,3.3417e-01 /) - kbo(:,41, 8) = (/ & - &1.3011e-01 ,1.6308e-01 ,2.0319e-01 ,2.4965e-01 ,3.0588e-01 /) - kbo(:,42, 8) = (/ & - &1.1484e-01 ,1.4491e-01 ,1.8233e-01 ,2.2638e-01 ,2.7964e-01 /) - kbo(:,43, 8) = (/ & - &9.9279e-02 ,1.2633e-01 ,1.6039e-01 ,2.0179e-01 ,2.5143e-01 /) - kbo(:,44, 8) = (/ & - &8.4904e-02 ,1.0929e-01 ,1.3953e-01 ,1.7766e-01 ,2.2379e-01 /) - kbo(:,45, 8) = (/ & - &7.2367e-02 ,9.4015e-02 ,1.2097e-01 ,1.5526e-01 ,1.9786e-01 /) - kbo(:,46, 8) = (/ & - &6.1012e-02 ,8.0269e-02 ,1.0419e-01 ,1.3470e-01 ,1.7331e-01 /) - kbo(:,47, 8) = (/ & - &5.0418e-02 ,6.7581e-02 ,8.8667e-02 ,1.1556e-01 ,1.5023e-01 /) - kbo(:,48, 8) = (/ & - &4.1555e-02 ,5.6345e-02 ,7.4999e-02 ,9.8811e-02 ,1.2934e-01 /) - kbo(:,49, 8) = (/ & - &3.3904e-02 ,4.6392e-02 ,6.2939e-02 ,8.3873e-02 ,1.1077e-01 /) - kbo(:,50, 8) = (/ & - &2.7924e-02 ,3.8644e-02 ,5.3103e-02 ,7.1817e-02 ,9.5860e-02 /) - kbo(:,51, 8) = (/ & - &2.3027e-02 ,3.2254e-02 ,4.4770e-02 ,6.1630e-02 ,8.3189e-02 /) - kbo(:,52, 8) = (/ & - &1.8860e-02 ,2.6783e-02 ,3.7563e-02 ,5.2481e-02 ,7.1941e-02 /) - kbo(:,53, 8) = (/ & - &1.5315e-02 ,2.2045e-02 ,3.1363e-02 ,4.4231e-02 ,6.1710e-02 /) - kbo(:,54, 8) = (/ & - &1.2583e-02 ,1.8403e-02 ,2.6586e-02 ,3.7901e-02 ,5.3727e-02 /) - kbo(:,55, 8) = (/ & - &1.0382e-02 ,1.5404e-02 ,2.2584e-02 ,3.2684e-02 ,4.7053e-02 /) - kbo(:,56, 8) = (/ & - &8.4944e-03 ,1.2799e-02 ,1.9133e-02 ,2.8106e-02 ,4.1010e-02 /) - kbo(:,57, 8) = (/ & - &6.8852e-03 ,1.0598e-02 ,1.6081e-02 ,2.3991e-02 ,3.5498e-02 /) - kbo(:,58, 8) = (/ & - &5.5895e-03 ,8.7768e-03 ,1.3535e-02 ,2.0567e-02 ,3.0872e-02 /) - kbo(:,59, 8) = (/ & - &4.9705e-03 ,7.9600e-03 ,1.2473e-02 ,1.9319e-02 ,2.9463e-02 /) - kbo(:,13, 9) = (/ & - &1.4590e+01 ,1.4670e+01 ,1.4841e+01 ,1.4854e+01 ,1.4880e+01 /) - kbo(:,14, 9) = (/ & - &1.3239e+01 ,1.3368e+01 ,1.3423e+01 ,1.3479e+01 ,1.3588e+01 /) - kbo(:,15, 9) = (/ & - &1.1801e+01 ,1.1873e+01 ,1.1983e+01 ,1.2092e+01 ,1.2194e+01 /) - kbo(:,16, 9) = (/ & - &1.0397e+01 ,1.0519e+01 ,1.0636e+01 ,1.0761e+01 ,1.0910e+01 /) - kbo(:,17, 9) = (/ & - &9.1941e+00 ,9.3273e+00 ,9.4699e+00 ,9.6116e+00 ,9.7497e+00 /) - kbo(:,18, 9) = (/ & - &8.2105e+00 ,8.3532e+00 ,8.4897e+00 ,8.6223e+00 ,8.7373e+00 /) - kbo(:,19, 9) = (/ & - &7.2827e+00 ,7.4240e+00 ,7.5562e+00 ,7.6727e+00 ,7.7914e+00 /) - kbo(:,20, 9) = (/ & - &6.3721e+00 ,6.4943e+00 ,6.6028e+00 ,6.7186e+00 ,6.8391e+00 /) - kbo(:,21, 9) = (/ & - &5.5515e+00 ,5.6468e+00 ,5.7503e+00 ,5.8563e+00 ,5.9656e+00 /) - kbo(:,22, 9) = (/ & - &4.8000e+00 ,4.8972e+00 ,4.9944e+00 ,5.1084e+00 ,5.2408e+00 /) - kbo(:,23, 9) = (/ & - &4.1624e+00 ,4.2656e+00 ,4.3811e+00 ,4.5085e+00 ,4.6380e+00 /) - kbo(:,24, 9) = (/ & - &3.6468e+00 ,3.7664e+00 ,3.9092e+00 ,4.0407e+00 ,4.1687e+00 /) - kbo(:,25, 9) = (/ & - &3.2292e+00 ,3.3800e+00 ,3.5189e+00 ,3.6529e+00 ,3.8087e+00 /) - kbo(:,26, 9) = (/ & - &2.9129e+00 ,3.0593e+00 ,3.1926e+00 ,3.3487e+00 ,3.5171e+00 /) - kbo(:,27, 9) = (/ & - &2.6651e+00 ,2.7860e+00 ,2.9417e+00 ,3.1050e+00 ,3.2838e+00 /) - kbo(:,28, 9) = (/ & - &2.4547e+00 ,2.5852e+00 ,2.7243e+00 ,2.8973e+00 ,3.0879e+00 /) - kbo(:,29, 9) = (/ & - &2.2775e+00 ,2.4144e+00 ,2.5520e+00 ,2.7166e+00 ,2.9171e+00 /) - kbo(:,30, 9) = (/ & - &2.1281e+00 ,2.2766e+00 ,2.4266e+00 ,2.5792e+00 ,2.7778e+00 /) - kbo(:,31, 9) = (/ & - &1.9982e+00 ,2.1596e+00 ,2.3215e+00 ,2.4758e+00 ,2.6690e+00 /) - kbo(:,32, 9) = (/ & - &1.8974e+00 ,2.0696e+00 ,2.2391e+00 ,2.4103e+00 ,2.6183e+00 /) - kbo(:,33, 9) = (/ & - &1.8191e+00 ,1.9994e+00 ,2.1809e+00 ,2.3775e+00 ,2.6019e+00 /) - kbo(:,34, 9) = (/ & - &1.7674e+00 ,1.9617e+00 ,2.1590e+00 ,2.3767e+00 ,2.6194e+00 /) - kbo(:,35, 9) = (/ & - &1.7160e+00 ,1.9253e+00 ,2.1379e+00 ,2.3725e+00 ,2.6356e+00 /) - kbo(:,36, 9) = (/ & - &1.6660e+00 ,1.8913e+00 ,2.1169e+00 ,2.3615e+00 ,2.6378e+00 /) - kbo(:,37, 9) = (/ & - &1.5784e+00 ,1.8090e+00 ,2.0343e+00 ,2.2860e+00 ,2.5707e+00 /) - kbo(:,38, 9) = (/ & - &1.4967e+00 ,1.7299e+00 ,1.9619e+00 ,2.2122e+00 ,2.4970e+00 /) - kbo(:,39, 9) = (/ & - &1.4275e+00 ,1.6566e+00 ,1.8885e+00 ,2.1422e+00 ,2.4238e+00 /) - kbo(:,40, 9) = (/ & - &1.3319e+00 ,1.5527e+00 ,1.7867e+00 ,2.0342e+00 ,2.3084e+00 /) - kbo(:,41, 9) = (/ & - &1.2324e+00 ,1.4488e+00 ,1.6798e+00 ,1.9260e+00 ,2.1920e+00 /) - kbo(:,42, 9) = (/ & - &1.1393e+00 ,1.3560e+00 ,1.5786e+00 ,1.8237e+00 ,2.0822e+00 /) - kbo(:,43, 9) = (/ & - &1.0393e+00 ,1.2480e+00 ,1.4586e+00 ,1.7011e+00 ,1.9564e+00 /) - kbo(:,44, 9) = (/ & - &9.4004e-01 ,1.1318e+00 ,1.3401e+00 ,1.5753e+00 ,1.8301e+00 /) - kbo(:,45, 9) = (/ & - &8.4677e-01 ,1.0287e+00 ,1.2277e+00 ,1.4538e+00 ,1.7017e+00 /) - kbo(:,46, 9) = (/ & - &7.5668e-01 ,9.2772e-01 ,1.1175e+00 ,1.3351e+00 ,1.5740e+00 /) - kbo(:,47, 9) = (/ & - &6.6952e-01 ,8.3230e-01 ,1.0096e+00 ,1.2100e+00 ,1.4418e+00 /) - kbo(:,48, 9) = (/ & - &5.9179e-01 ,7.4047e-01 ,9.0922e-01 ,1.0966e+00 ,1.3183e+00 /) - kbo(:,49, 9) = (/ & - &5.2110e-01 ,6.5712e-01 ,8.1623e-01 ,9.9075e-01 ,1.1944e+00 /) - kbo(:,50, 9) = (/ & - &4.6158e-01 ,5.8589e-01 ,7.3680e-01 ,8.9883e-01 ,1.0896e+00 /) - kbo(:,51, 9) = (/ & - &4.0970e-01 ,5.2471e-01 ,6.6511e-01 ,8.1893e-01 ,1.0001e+00 /) - kbo(:,52, 9) = (/ & - &3.6376e-01 ,4.6797e-01 ,5.9787e-01 ,7.4696e-01 ,9.1589e-01 /) - kbo(:,53, 9) = (/ & - &3.2051e-01 ,4.1628e-01 ,5.3506e-01 ,6.7993e-01 ,8.3743e-01 /) - kbo(:,54, 9) = (/ & - &2.8466e-01 ,3.7491e-01 ,4.8412e-01 ,6.2077e-01 ,7.6925e-01 /) - kbo(:,55, 9) = (/ & - &2.5367e-01 ,3.3870e-01 ,4.3869e-01 ,5.6524e-01 ,7.0875e-01 /) - kbo(:,56, 9) = (/ & - &2.2562e-01 ,3.0476e-01 ,3.9766e-01 ,5.1473e-01 ,6.5170e-01 /) - kbo(:,57, 9) = (/ & - &1.9827e-01 ,2.7217e-01 ,3.6127e-01 ,4.6695e-01 ,5.9679e-01 /) - kbo(:,58, 9) = (/ & - &1.7439e-01 ,2.4383e-01 ,3.2816e-01 ,4.2523e-01 ,5.4584e-01 /) - kbo(:,59, 9) = (/ & - &1.6511e-01 ,2.3377e-01 ,3.1581e-01 ,4.1157e-01 ,5.2975e-01 /) - kbo(:,13,10) = (/ & - &4.0695e+01 ,4.0469e+01 ,4.0155e+01 ,4.1544e+01 ,4.2682e+01 /) - kbo(:,14,10) = (/ & - &3.9304e+01 ,3.9060e+01 ,4.0807e+01 ,4.1587e+01 ,4.0953e+01 /) - kbo(:,15,10) = (/ & - &3.7657e+01 ,3.9117e+01 ,3.9307e+01 ,3.8957e+01 ,3.9710e+01 /) - kbo(:,16,10) = (/ & - &3.6278e+01 ,3.6420e+01 ,3.6566e+01 ,3.7322e+01 ,3.7268e+01 /) - kbo(:,17,10) = (/ & - &3.3662e+01 ,3.3973e+01 ,3.4667e+01 ,3.4884e+01 ,3.5251e+01 /) - kbo(:,18,10) = (/ & - &3.1195e+01 ,3.1946e+01 ,3.2272e+01 ,3.2818e+01 ,3.3898e+01 /) - kbo(:,19,10) = (/ & - &2.9346e+01 ,2.9678e+01 ,3.0231e+01 ,3.1581e+01 ,3.2542e+01 /) - kbo(:,20,10) = (/ & - &2.6569e+01 ,2.7189e+01 ,2.8571e+01 ,2.9702e+01 ,3.0461e+01 /) - kbo(:,21,10) = (/ & - &2.3800e+01 ,2.5133e+01 ,2.6296e+01 ,2.7333e+01 ,2.8348e+01 /) - kbo(:,22,10) = (/ & - &2.1748e+01 ,2.2899e+01 ,2.3947e+01 ,2.5006e+01 ,2.6299e+01 /) - kbo(:,23,10) = (/ & - &1.9685e+01 ,2.0476e+01 ,2.1391e+01 ,2.2690e+01 ,2.3900e+01 /) - kbo(:,24,10) = (/ & - &1.7032e+01 ,1.7826e+01 ,1.8674e+01 ,1.9703e+01 ,2.1087e+01 /) - kbo(:,25,10) = (/ & - &1.4880e+01 ,1.5564e+01 ,1.6390e+01 ,1.7502e+01 ,1.8671e+01 /) - kbo(:,26,10) = (/ & - &1.3363e+01 ,1.4020e+01 ,1.5087e+01 ,1.6178e+01 ,1.7289e+01 /) - kbo(:,27,10) = (/ & - &1.1727e+01 ,1.2959e+01 ,1.3942e+01 ,1.5094e+01 ,1.6463e+01 /) - kbo(:,28,10) = (/ & - &1.0659e+01 ,1.1764e+01 ,1.3018e+01 ,1.4300e+01 ,1.5936e+01 /) - kbo(:,29,10) = (/ & - &9.6581e+00 ,1.0907e+01 ,1.2325e+01 ,1.4028e+01 ,1.5807e+01 /) - kbo(:,30,10) = (/ & - &8.9612e+00 ,1.0145e+01 ,1.1747e+01 ,1.3771e+01 ,1.5726e+01 /) - kbo(:,31,10) = (/ & - &8.6124e+00 ,9.7350e+00 ,1.1421e+01 ,1.3475e+01 ,1.5366e+01 /) - kbo(:,32,10) = (/ & - &8.5911e+00 ,9.4800e+00 ,1.1115e+01 ,1.3010e+01 ,1.4984e+01 /) - kbo(:,33,10) = (/ & - &8.6709e+00 ,9.3343e+00 ,1.0809e+01 ,1.2622e+01 ,1.4676e+01 /) - kbo(:,34,10) = (/ & - &8.8793e+00 ,9.5541e+00 ,1.0639e+01 ,1.2461e+01 ,1.4700e+01 /) - kbo(:,35,10) = (/ & - &9.1036e+00 ,9.7617e+00 ,1.0550e+01 ,1.2303e+01 ,1.4597e+01 /) - kbo(:,36,10) = (/ & - &9.1500e+00 ,9.8472e+00 ,1.0675e+01 ,1.1920e+01 ,1.4033e+01 /) - kbo(:,37,10) = (/ & - &8.9913e+00 ,9.7513e+00 ,1.0626e+01 ,1.1848e+01 ,1.3311e+01 /) - kbo(:,38,10) = (/ & - &8.8541e+00 ,9.6133e+00 ,1.0479e+01 ,1.1805e+01 ,1.2978e+01 /) - kbo(:,39,10) = (/ & - &8.6355e+00 ,9.4791e+00 ,1.0441e+01 ,1.1774e+01 ,1.2974e+01 /) - kbo(:,40,10) = (/ & - &8.2572e+00 ,9.1900e+00 ,1.0103e+01 ,1.1340e+01 ,1.2612e+01 /) - kbo(:,41,10) = (/ & - &7.9700e+00 ,8.8564e+00 ,9.7227e+00 ,1.0892e+01 ,1.2191e+01 /) - kbo(:,42,10) = (/ & - &7.7269e+00 ,8.5147e+00 ,9.3572e+00 ,1.0449e+01 ,1.1769e+01 /) - kbo(:,43,10) = (/ & - &7.3457e+00 ,8.1022e+00 ,8.9870e+00 ,9.9755e+00 ,1.1267e+01 /) - kbo(:,44,10) = (/ & - &6.8559e+00 ,7.7825e+00 ,8.6085e+00 ,9.5618e+00 ,1.0705e+01 /) - kbo(:,45,10) = (/ & - &6.3680e+00 ,7.3808e+00 ,8.2404e+00 ,9.1444e+00 ,1.0228e+01 /) - kbo(:,46,10) = (/ & - &5.9178e+00 ,6.9688e+00 ,7.8931e+00 ,8.8310e+00 ,9.8114e+00 /) - kbo(:,47,10) = (/ & - &5.4530e+00 ,6.4924e+00 ,7.5375e+00 ,8.5314e+00 ,9.4745e+00 /) - kbo(:,48,10) = (/ & - &4.9630e+00 ,6.0598e+00 ,7.0862e+00 ,8.1895e+00 ,9.1462e+00 /) - kbo(:,49,10) = (/ & - &4.4814e+00 ,5.6082e+00 ,6.6461e+00 ,7.8385e+00 ,8.8792e+00 /) - kbo(:,50,10) = (/ & - &4.0666e+00 ,5.1497e+00 ,6.2742e+00 ,7.4367e+00 ,8.5539e+00 /) - kbo(:,51,10) = (/ & - &3.6813e+00 ,4.7093e+00 ,5.9040e+00 ,7.0217e+00 ,8.2062e+00 /) - kbo(:,52,10) = (/ & - &3.3213e+00 ,4.2985e+00 ,5.4430e+00 ,6.5658e+00 ,7.7730e+00 /) - kbo(:,53,10) = (/ & - &2.9730e+00 ,3.8940e+00 ,5.0012e+00 ,6.1367e+00 ,7.2957e+00 /) - kbo(:,54,10) = (/ & - &2.6494e+00 ,3.5088e+00 ,4.5590e+00 ,5.7479e+00 ,6.8609e+00 /) - kbo(:,55,10) = (/ & - &2.3517e+00 ,3.1542e+00 ,4.1525e+00 ,5.3587e+00 ,6.4637e+00 /) - kbo(:,56,10) = (/ & - &2.0870e+00 ,2.8232e+00 ,3.7684e+00 ,4.9288e+00 ,6.0659e+00 /) - kbo(:,57,10) = (/ & - &1.8716e+00 ,2.5211e+00 ,3.3862e+00 ,4.4963e+00 ,5.6364e+00 /) - kbo(:,58,10) = (/ & - &1.6996e+00 ,2.2494e+00 ,3.0457e+00 ,4.0946e+00 ,5.2813e+00 /) - kbo(:,59,10) = (/ & - &1.6125e+00 ,2.1057e+00 ,2.8675e+00 ,3.8607e+00 ,5.0173e+00 /) - kbo(:,13,11) = (/ & - &5.4280e+01 ,5.5937e+01 ,5.6472e+01 ,5.6083e+01 ,5.6645e+01 /) - kbo(:,14,11) = (/ & - &5.6104e+01 ,5.7569e+01 ,5.6325e+01 ,5.6970e+01 ,5.8322e+01 /) - kbo(:,15,11) = (/ & - &5.6157e+01 ,5.5505e+01 ,5.6534e+01 ,5.8680e+01 ,5.8495e+01 /) - kbo(:,16,11) = (/ & - &5.4215e+01 ,5.5590e+01 ,5.7381e+01 ,5.6844e+01 ,5.6502e+01 /) - kbo(:,17,11) = (/ & - &5.3917e+01 ,5.5209e+01 ,5.4751e+01 ,5.5176e+01 ,5.5535e+01 /) - kbo(:,18,11) = (/ & - &5.2925e+01 ,5.3017e+01 ,5.3849e+01 ,5.4671e+01 ,5.5470e+01 /) - kbo(:,19,11) = (/ & - &5.0412e+01 ,5.1474e+01 ,5.2761e+01 ,5.3623e+01 ,5.4522e+01 /) - kbo(:,20,11) = (/ & - &4.7799e+01 ,4.9437e+01 ,5.0594e+01 ,5.1515e+01 ,5.3379e+01 /) - kbo(:,21,11) = (/ & - &4.5510e+01 ,4.6838e+01 ,4.7923e+01 ,4.9803e+01 ,5.2087e+01 /) - kbo(:,22,11) = (/ & - &4.2197e+01 ,4.3528e+01 ,4.5703e+01 ,4.8296e+01 ,5.0603e+01 /) - kbo(:,23,11) = (/ & - &3.8776e+01 ,4.1167e+01 ,4.4015e+01 ,4.6341e+01 ,4.9195e+01 /) - kbo(:,24,11) = (/ & - &3.6077e+01 ,3.8799e+01 ,4.1478e+01 ,4.4468e+01 ,4.7105e+01 /) - kbo(:,25,11) = (/ & - &3.3423e+01 ,3.6288e+01 ,3.9007e+01 ,4.1836e+01 ,4.5174e+01 /) - kbo(:,26,11) = (/ & - &3.0575e+01 ,3.3241e+01 ,3.5927e+01 ,3.9133e+01 ,4.2785e+01 /) - kbo(:,27,11) = (/ & - &2.7764e+01 ,3.0312e+01 ,3.3054e+01 ,3.6826e+01 ,4.0509e+01 /) - kbo(:,28,11) = (/ & - &2.5413e+01 ,2.8045e+01 ,3.1419e+01 ,3.5118e+01 ,3.8747e+01 /) - kbo(:,29,11) = (/ & - &2.4096e+01 ,2.6980e+01 ,3.0700e+01 ,3.4243e+01 ,3.7699e+01 /) - kbo(:,30,11) = (/ & - &2.3140e+01 ,2.6541e+01 ,2.9953e+01 ,3.3565e+01 ,3.7298e+01 /) - kbo(:,31,11) = (/ & - &2.2574e+01 ,2.6228e+01 ,2.9925e+01 ,3.3653e+01 ,3.8032e+01 /) - kbo(:,32,11) = (/ & - &2.2078e+01 ,2.6231e+01 ,3.0164e+01 ,3.4342e+01 ,3.9067e+01 /) - kbo(:,33,11) = (/ & - &2.1802e+01 ,2.6392e+01 ,3.0637e+01 ,3.5356e+01 ,4.0173e+01 /) - kbo(:,34,11) = (/ & - &2.1886e+01 ,2.6523e+01 ,3.1557e+01 ,3.6504e+01 ,4.1183e+01 /) - kbo(:,35,11) = (/ & - &2.1287e+01 ,2.6137e+01 ,3.1875e+01 ,3.7051e+01 ,4.1397e+01 /) - kbo(:,36,11) = (/ & - &2.0396e+01 ,2.5293e+01 ,3.0920e+01 ,3.6387e+01 ,4.1546e+01 /) - kbo(:,37,11) = (/ & - &1.9398e+01 ,2.4195e+01 ,2.9734e+01 ,3.5138e+01 ,4.1598e+01 /) - kbo(:,38,11) = (/ & - &1.8580e+01 ,2.3161e+01 ,2.8626e+01 ,3.3912e+01 ,4.1158e+01 /) - kbo(:,39,11) = (/ & - &1.8482e+01 ,2.2205e+01 ,2.7504e+01 ,3.3104e+01 ,4.0527e+01 /) - kbo(:,40,11) = (/ & - &1.7984e+01 ,2.0750e+01 ,2.5770e+01 ,3.1669e+01 ,3.8818e+01 /) - kbo(:,41,11) = (/ & - &1.7355e+01 ,1.9936e+01 ,2.4013e+01 ,3.0152e+01 ,3.7102e+01 /) - kbo(:,42,11) = (/ & - &1.6681e+01 ,1.9220e+01 ,2.2251e+01 ,2.8625e+01 ,3.5420e+01 /) - kbo(:,43,11) = (/ & - &1.5870e+01 ,1.8435e+01 ,2.1070e+01 ,2.6668e+01 ,3.3375e+01 /) - kbo(:,44,11) = (/ & - &1.5165e+01 ,1.7568e+01 ,2.0082e+01 ,2.4204e+01 ,3.1050e+01 /) - kbo(:,45,11) = (/ & - &1.4453e+01 ,1.6684e+01 ,1.9148e+01 ,2.2404e+01 ,2.8741e+01 /) - kbo(:,46,11) = (/ & - &1.3674e+01 ,1.5793e+01 ,1.8236e+01 ,2.1064e+01 ,2.6017e+01 /) - kbo(:,47,11) = (/ & - &1.2730e+01 ,1.4847e+01 ,1.7129e+01 ,1.9769e+01 ,2.3301e+01 /) - kbo(:,48,11) = (/ & - &1.1966e+01 ,1.3921e+01 ,1.6062e+01 ,1.8570e+01 ,2.1519e+01 /) - kbo(:,49,11) = (/ & - &1.1256e+01 ,1.2947e+01 ,1.5051e+01 ,1.7441e+01 ,2.0164e+01 /) - kbo(:,50,11) = (/ & - &1.0630e+01 ,1.2231e+01 ,1.4125e+01 ,1.6384e+01 ,1.9019e+01 /) - kbo(:,51,11) = (/ & - &9.8987e+00 ,1.1569e+01 ,1.3215e+01 ,1.5489e+01 ,1.7851e+01 /) - kbo(:,52,11) = (/ & - &9.1901e+00 ,1.0969e+01 ,1.2500e+01 ,1.4560e+01 ,1.6807e+01 /) - kbo(:,53,11) = (/ & - &8.5518e+00 ,1.0279e+01 ,1.1856e+01 ,1.3672e+01 ,1.5980e+01 /) - kbo(:,54,11) = (/ & - &7.8898e+00 ,9.6237e+00 ,1.1322e+01 ,1.2850e+01 ,1.5109e+01 /) - kbo(:,55,11) = (/ & - &7.2910e+00 ,9.0794e+00 ,1.0802e+01 ,1.2222e+01 ,1.4316e+01 /) - kbo(:,56,11) = (/ & - &6.6231e+00 ,8.4503e+00 ,1.0147e+01 ,1.1641e+01 ,1.3475e+01 /) - kbo(:,57,11) = (/ & - &5.9797e+00 ,7.8956e+00 ,9.5656e+00 ,1.1172e+01 ,1.2770e+01 /) - kbo(:,58,11) = (/ & - &5.3792e+00 ,7.3070e+00 ,9.0406e+00 ,1.0661e+01 ,1.2099e+01 /) - kbo(:,59,11) = (/ & - &5.1187e+00 ,7.0446e+00 ,8.7908e+00 ,1.0434e+01 ,1.1861e+01 /) - kbo(:,13,12) = (/ & - &8.5594e+01 ,8.5081e+01 ,8.4548e+01 ,8.3781e+01 ,8.2265e+01 /) - kbo(:,14,12) = (/ & - &8.5160e+01 ,8.5106e+01 ,8.5561e+01 ,8.4404e+01 ,8.6474e+01 /) - kbo(:,15,12) = (/ & - &8.6225e+01 ,8.6934e+01 ,8.6406e+01 ,8.7005e+01 ,8.9359e+01 /) - kbo(:,16,12) = (/ & - &8.5430e+01 ,8.5513e+01 ,8.6639e+01 ,9.0490e+01 ,9.3290e+01 /) - kbo(:,17,12) = (/ & - &8.2443e+01 ,8.4907e+01 ,8.8384e+01 ,9.0076e+01 ,9.1263e+01 /) - kbo(:,18,12) = (/ & - &8.5149e+01 ,8.7540e+01 ,8.9291e+01 ,9.0823e+01 ,9.2775e+01 /) - kbo(:,19,12) = (/ & - &8.8628e+01 ,9.0598e+01 ,9.2322e+01 ,9.4441e+01 ,9.6854e+01 /) - kbo(:,20,12) = (/ & - &8.9356e+01 ,9.1085e+01 ,9.4127e+01 ,9.6914e+01 ,9.9051e+01 /) - kbo(:,21,12) = (/ & - &8.7608e+01 ,9.1521e+01 ,9.5537e+01 ,9.7630e+01 ,9.9135e+01 /) - kbo(:,22,12) = (/ & - &8.6703e+01 ,9.1359e+01 ,9.3725e+01 ,9.6097e+01 ,9.8620e+01 /) - kbo(:,23,12) = (/ & - &8.4986e+01 ,8.8658e+01 ,9.1547e+01 ,9.4897e+01 ,9.8884e+01 /) - kbo(:,24,12) = (/ & - &8.1861e+01 ,8.5495e+01 ,8.9569e+01 ,9.4335e+01 ,9.9177e+01 /) - kbo(:,25,12) = (/ & - &7.8144e+01 ,8.2621e+01 ,8.8221e+01 ,9.4555e+01 ,9.9082e+01 /) - kbo(:,26,12) = (/ & - &7.5558e+01 ,8.1550e+01 ,8.8515e+01 ,9.4800e+01 ,1.0018e+02 /) - kbo(:,27,12) = (/ & - &7.4385e+01 ,8.1401e+01 ,8.8755e+01 ,9.4867e+01 ,9.9863e+01 /) - kbo(:,28,12) = (/ & - &7.2786e+01 ,8.0630e+01 ,8.7375e+01 ,9.3177e+01 ,9.7577e+01 /) - kbo(:,29,12) = (/ & - &7.2494e+01 ,7.9832e+01 ,8.6004e+01 ,9.1472e+01 ,9.7317e+01 /) - kbo(:,30,12) = (/ & - &7.1849e+01 ,7.8701e+01 ,8.4991e+01 ,9.0891e+01 ,9.7338e+01 /) - kbo(:,31,12) = (/ & - &7.1241e+01 ,7.7805e+01 ,8.4010e+01 ,9.1171e+01 ,1.0059e+02 /) - kbo(:,32,12) = (/ & - &7.0698e+01 ,7.7293e+01 ,8.4547e+01 ,9.6001e+01 ,1.0686e+02 /) - kbo(:,33,12) = (/ & - &7.0154e+01 ,7.8613e+01 ,9.0857e+01 ,1.0245e+02 ,1.1312e+02 /) - kbo(:,34,12) = (/ & - &7.1031e+01 ,8.3561e+01 ,9.6187e+01 ,1.0815e+02 ,1.1901e+02 /) - kbo(:,35,12) = (/ & - &7.5071e+01 ,8.8162e+01 ,1.0114e+02 ,1.1296e+02 ,1.2569e+02 /) - kbo(:,36,12) = (/ & - &7.8029e+01 ,9.1692e+01 ,1.0504e+02 ,1.1849e+02 ,1.3079e+02 /) - kbo(:,37,12) = (/ & - &7.7450e+01 ,9.1080e+01 ,1.0499e+02 ,1.1872e+02 ,1.3083e+02 /) - kbo(:,38,12) = (/ & - &7.6390e+01 ,9.0295e+01 ,1.0451e+02 ,1.1896e+02 ,1.3094e+02 /) - kbo(:,39,12) = (/ & - &7.4846e+01 ,8.9967e+01 ,1.0468e+02 ,1.1884e+02 ,1.3087e+02 /) - kbo(:,40,12) = (/ & - &7.0636e+01 ,8.6765e+01 ,1.0145e+02 ,1.1588e+02 ,1.2805e+02 /) - kbo(:,41,12) = (/ & - &6.6305e+01 ,8.2647e+01 ,9.8224e+01 ,1.1219e+02 ,1.2504e+02 /) - kbo(:,42,12) = (/ & - &6.2198e+01 ,7.8258e+01 ,9.4811e+01 ,1.0862e+02 ,1.2155e+02 /) - kbo(:,43,12) = (/ & - &5.7303e+01 ,7.2832e+01 ,8.9604e+01 ,1.0357e+02 ,1.1674e+02 /) - kbo(:,44,12) = (/ & - &5.2689e+01 ,6.6907e+01 ,8.3558e+01 ,9.8406e+01 ,1.1125e+02 /) - kbo(:,45,12) = (/ & - &4.8182e+01 ,6.1264e+01 ,7.7478e+01 ,9.3228e+01 ,1.0590e+02 /) - kbo(:,46,12) = (/ & - &4.3386e+01 ,5.6258e+01 ,7.0871e+01 ,8.6833e+01 ,1.0102e+02 /) - kbo(:,47,12) = (/ & - &3.8704e+01 ,5.0818e+01 ,6.4039e+01 ,7.9666e+01 ,9.5229e+01 /) - kbo(:,48,12) = (/ & - &3.3968e+01 ,4.5364e+01 ,5.8393e+01 ,7.2512e+01 ,8.8396e+01 /) - kbo(:,49,12) = (/ & - &2.9879e+01 ,4.0583e+01 ,5.2774e+01 ,6.5752e+01 ,8.1056e+01 /) - kbo(:,50,12) = (/ & - &2.7602e+01 ,3.6039e+01 ,4.7664e+01 ,6.0460e+01 ,7.4304e+01 /) - kbo(:,51,12) = (/ & - &2.6051e+01 ,3.1889e+01 ,4.2974e+01 ,5.5102e+01 ,6.8169e+01 /) - kbo(:,52,12) = (/ & - &2.4438e+01 ,2.8876e+01 ,3.8469e+01 ,5.0102e+01 ,6.2912e+01 /) - kbo(:,53,12) = (/ & - &2.2776e+01 ,2.7295e+01 ,3.4271e+01 ,4.5285e+01 ,5.7384e+01 /) - kbo(:,54,12) = (/ & - &2.1249e+01 ,2.5821e+01 ,3.0686e+01 ,4.1216e+01 ,5.2669e+01 /) - kbo(:,55,12) = (/ & - &2.0155e+01 ,2.4296e+01 ,2.8676e+01 ,3.7338e+01 ,4.8393e+01 /) - kbo(:,56,12) = (/ & - &1.8949e+01 ,2.2808e+01 ,2.7284e+01 ,3.3732e+01 ,4.4387e+01 /) - kbo(:,57,12) = (/ & - &1.7651e+01 ,2.1401e+01 ,2.5896e+01 ,3.0538e+01 ,4.0399e+01 /) - kbo(:,58,12) = (/ & - &1.6454e+01 ,2.0257e+01 ,2.4400e+01 ,2.8791e+01 ,3.6888e+01 /) - kbo(:,59,12) = (/ & - &1.6078e+01 ,1.9650e+01 ,2.3686e+01 ,2.8130e+01 ,3.5337e+01 /) - kbo(:,13,13) = (/ & - &1.6179e+02 ,1.5851e+02 ,1.5620e+02 ,1.5532e+02 ,1.5316e+02 /) - kbo(:,14,13) = (/ & - &1.7476e+02 ,1.7156e+02 ,1.7068e+02 ,1.6952e+02 ,1.6413e+02 /) - kbo(:,15,13) = (/ & - &1.8520e+02 ,1.8372e+02 ,1.8384e+02 ,1.8019e+02 ,1.7522e+02 /) - kbo(:,16,13) = (/ & - &1.9454e+02 ,1.9542e+02 ,1.9248e+02 ,1.8773e+02 ,1.8813e+02 /) - kbo(:,17,13) = (/ & - &2.0028e+02 ,1.9793e+02 ,1.9596e+02 ,1.9785e+02 ,2.0205e+02 /) - kbo(:,18,13) = (/ & - &1.9037e+02 ,1.9170e+02 ,1.9555e+02 ,2.0164e+02 ,2.0309e+02 /) - kbo(:,19,13) = (/ & - &1.7958e+02 ,1.8623e+02 ,1.9196e+02 ,1.9543e+02 ,1.9670e+02 /) - kbo(:,20,13) = (/ & - &1.7423e+02 ,1.8217e+02 ,1.8721e+02 ,1.9064e+02 ,1.9763e+02 /) - kbo(:,21,13) = (/ & - &1.7205e+02 ,1.7751e+02 ,1.8259e+02 ,1.9102e+02 ,1.9985e+02 /) - kbo(:,22,13) = (/ & - &1.7310e+02 ,1.7837e+02 ,1.8681e+02 ,1.9582e+02 ,2.0409e+02 /) - kbo(:,23,13) = (/ & - &1.7691e+02 ,1.8432e+02 ,1.9387e+02 ,2.0103e+02 ,2.1026e+02 /) - kbo(:,24,13) = (/ & - &1.8088e+02 ,1.8942e+02 ,1.9891e+02 ,2.0699e+02 ,2.1646e+02 /) - kbo(:,25,13) = (/ & - &1.8492e+02 ,1.9434e+02 ,2.0408e+02 ,2.1437e+02 ,2.2277e+02 /) - kbo(:,26,13) = (/ & - &1.8625e+02 ,1.9837e+02 ,2.0945e+02 ,2.1941e+02 ,2.3087e+02 /) - kbo(:,27,13) = (/ & - &1.9010e+02 ,2.0364e+02 ,2.1615e+02 ,2.2715e+02 ,2.4079e+02 /) - kbo(:,28,13) = (/ & - &1.9712e+02 ,2.1090e+02 ,2.2463e+02 ,2.3844e+02 ,2.5439e+02 /) - kbo(:,29,13) = (/ & - &2.0453e+02 ,2.1990e+02 ,2.3570e+02 ,2.5241e+02 ,2.6509e+02 /) - kbo(:,30,13) = (/ & - &2.1308e+02 ,2.3113e+02 ,2.4908e+02 ,2.6461e+02 ,2.7735e+02 /) - kbo(:,31,13) = (/ & - &2.2395e+02 ,2.4239e+02 ,2.6296e+02 ,2.7710e+02 ,2.8754e+02 /) - kbo(:,32,13) = (/ & - &2.3649e+02 ,2.5891e+02 ,2.7696e+02 ,2.8809e+02 ,2.9409e+02 /) - kbo(:,33,13) = (/ & - &2.5295e+02 ,2.7352e+02 ,2.8553e+02 ,2.9364e+02 ,3.0036e+02 /) - kbo(:,34,13) = (/ & - &2.6621e+02 ,2.8028e+02 ,2.9209e+02 ,2.9925e+02 ,3.0905e+02 /) - kbo(:,35,13) = (/ & - &2.7274e+02 ,2.8720e+02 ,2.9678e+02 ,3.0598e+02 ,3.1573e+02 /) - kbo(:,36,13) = (/ & - &2.7668e+02 ,2.9126e+02 ,3.0131e+02 ,3.1293e+02 ,3.2456e+02 /) - kbo(:,37,13) = (/ & - &2.7566e+02 ,2.9125e+02 ,3.0241e+02 ,3.1513e+02 ,3.2636e+02 /) - kbo(:,38,13) = (/ & - &2.7524e+02 ,2.9197e+02 ,3.0411e+02 ,3.1688e+02 ,3.2854e+02 /) - kbo(:,39,13) = (/ & - &2.7502e+02 ,2.9241e+02 ,3.0488e+02 ,3.1825e+02 ,3.3122e+02 /) - kbo(:,40,13) = (/ & - &2.7103e+02 ,2.8939e+02 ,3.0276e+02 ,3.1510e+02 ,3.2909e+02 /) - kbo(:,41,13) = (/ & - &2.6612e+02 ,2.8502e+02 ,2.9924e+02 ,3.1164e+02 ,3.2628e+02 /) - kbo(:,42,13) = (/ & - &2.6020e+02 ,2.7999e+02 ,2.9554e+02 ,3.0769e+02 ,3.2142e+02 /) - kbo(:,43,13) = (/ & - &2.5242e+02 ,2.7289e+02 ,2.9079e+02 ,3.0394e+02 ,3.1657e+02 /) - kbo(:,44,13) = (/ & - &2.4141e+02 ,2.6492e+02 ,2.8389e+02 ,2.9851e+02 ,3.1003e+02 /) - kbo(:,45,13) = (/ & - &2.3199e+02 ,2.5697e+02 ,2.7534e+02 ,2.9238e+02 ,3.0488e+02 /) - kbo(:,46,13) = (/ & - &2.2099e+02 ,2.4628e+02 ,2.6862e+02 ,2.8625e+02 ,2.9891e+02 /) - kbo(:,47,13) = (/ & - &2.0813e+02 ,2.3515e+02 ,2.5936e+02 ,2.7698e+02 ,2.9245e+02 /) - kbo(:,48,13) = (/ & - &1.9611e+02 ,2.2305e+02 ,2.4767e+02 ,2.6948e+02 ,2.8622e+02 /) - kbo(:,49,13) = (/ & - &1.8313e+02 ,2.1047e+02 ,2.3654e+02 ,2.6025e+02 ,2.7775e+02 /) - kbo(:,50,13) = (/ & - &1.6903e+02 ,1.9938e+02 ,2.2519e+02 ,2.4907e+02 ,2.7015e+02 /) - kbo(:,51,13) = (/ & - &1.5421e+02 ,1.8800e+02 ,2.1428e+02 ,2.3876e+02 ,2.6215e+02 /) - kbo(:,52,13) = (/ & - &1.4056e+02 ,1.7488e+02 ,2.0358e+02 ,2.2873e+02 ,2.5153e+02 /) - kbo(:,53,13) = (/ & - &1.2774e+02 ,1.6089e+02 ,1.9159e+02 ,2.1758e+02 ,2.4063e+02 /) - kbo(:,54,13) = (/ & - &1.1505e+02 ,1.4830e+02 ,1.8148e+02 ,2.0706e+02 ,2.3185e+02 /) - kbo(:,55,13) = (/ & - &1.0455e+02 ,1.3680e+02 ,1.7009e+02 ,1.9749e+02 ,2.2149e+02 /) - kbo(:,56,13) = (/ & - &9.5380e+01 ,1.2458e+02 ,1.5763e+02 ,1.8850e+02 ,2.1165e+02 /) - kbo(:,57,13) = (/ & - &8.6328e+01 ,1.1370e+02 ,1.4580e+02 ,1.7843e+02 ,2.0341e+02 /) - kbo(:,58,13) = (/ & - &7.7503e+01 ,1.0463e+02 ,1.3405e+02 ,1.6684e+02 ,1.9463e+02 /) - kbo(:,59,13) = (/ & - &7.3613e+01 ,1.0087e+02 ,1.2946e+02 ,1.6169e+02 ,1.9043e+02 /) - kbo(:,13,14) = (/ & - &2.3384e+02 ,2.3134e+02 ,2.2678e+02 ,2.2105e+02 ,2.2130e+02 /) - kbo(:,14,14) = (/ & - &2.6370e+02 ,2.6091e+02 ,2.5467e+02 ,2.5118e+02 ,2.4954e+02 /) - kbo(:,15,14) = (/ & - &2.9591e+02 ,2.9159e+02 ,2.8464e+02 ,2.8328e+02 ,2.7984e+02 /) - kbo(:,16,14) = (/ & - &3.2944e+02 ,3.2156e+02 ,3.1816e+02 ,3.1521e+02 ,3.0449e+02 /) - kbo(:,17,14) = (/ & - &3.5907e+02 ,3.5209e+02 ,3.5084e+02 ,3.4076e+02 ,3.2553e+02 /) - kbo(:,18,14) = (/ & - &3.8932e+02 ,3.8700e+02 ,3.7610e+02 ,3.6121e+02 ,3.5570e+02 /) - kbo(:,19,14) = (/ & - &4.2093e+02 ,4.0885e+02 ,3.9722e+02 ,3.9095e+02 ,3.9197e+02 /) - kbo(:,20,14) = (/ & - &4.4653e+02 ,4.3247e+02 ,4.2391e+02 ,4.2574e+02 ,4.2089e+02 /) - kbo(:,21,14) = (/ & - &4.6745e+02 ,4.5974e+02 ,4.5782e+02 ,4.5591e+02 ,4.4616e+02 /) - kbo(:,22,14) = (/ & - &4.8396e+02 ,4.8410e+02 ,4.8532e+02 ,4.7987e+02 ,4.6662e+02 /) - kbo(:,23,14) = (/ & - &5.0568e+02 ,5.0696e+02 ,5.0168e+02 ,4.9917e+02 ,4.8477e+02 /) - kbo(:,24,14) = (/ & - &5.2372e+02 ,5.2925e+02 ,5.2568e+02 ,5.1576e+02 ,5.0916e+02 /) - kbo(:,25,14) = (/ & - &5.4773e+02 ,5.4681e+02 ,5.4261e+02 ,5.3467e+02 ,5.2926e+02 /) - kbo(:,26,14) = (/ & - &5.6992e+02 ,5.6525e+02 ,5.5986e+02 ,5.5383e+02 ,5.4189e+02 /) - kbo(:,27,14) = (/ & - &5.8413e+02 ,5.7753e+02 ,5.7399e+02 ,5.6915e+02 ,5.5630e+02 /) - kbo(:,28,14) = (/ & - &5.9410e+02 ,5.9489e+02 ,5.8870e+02 ,5.8276e+02 ,5.7225e+02 /) - kbo(:,29,14) = (/ & - &6.0586e+02 ,6.0400e+02 ,6.0319e+02 ,5.9066e+02 ,5.8348e+02 /) - kbo(:,30,14) = (/ & - &6.2023e+02 ,6.2112e+02 ,6.1269e+02 ,6.0507e+02 ,5.8831e+02 /) - kbo(:,31,14) = (/ & - &6.3249e+02 ,6.3678e+02 ,6.2186e+02 ,6.1145e+02 ,5.9841e+02 /) - kbo(:,32,14) = (/ & - &6.5129e+02 ,6.4085e+02 ,6.3065e+02 ,6.1664e+02 ,6.0677e+02 /) - kbo(:,33,14) = (/ & - &6.5648e+02 ,6.4719e+02 ,6.3483e+02 ,6.2799e+02 ,6.1689e+02 /) - kbo(:,34,14) = (/ & - &6.6261e+02 ,6.5214e+02 ,6.4542e+02 ,6.3852e+02 ,6.1993e+02 /) - kbo(:,35,14) = (/ & - &6.7078e+02 ,6.6309e+02 ,6.5953e+02 ,6.4635e+02 ,6.1863e+02 /) - kbo(:,36,14) = (/ & - &6.8510e+02 ,6.7944e+02 ,6.7467e+02 ,6.5682e+02 ,6.1696e+02 /) - kbo(:,37,14) = (/ & - &6.9465e+02 ,6.8814e+02 ,6.8342e+02 ,6.6410e+02 ,6.2485e+02 /) - kbo(:,38,14) = (/ & - &7.0151e+02 ,6.9441e+02 ,6.9017e+02 ,6.7086e+02 ,6.3205e+02 /) - kbo(:,39,14) = (/ & - &7.0868e+02 ,7.0183e+02 ,6.9685e+02 ,6.7866e+02 ,6.3921e+02 /) - kbo(:,40,14) = (/ & - &7.1075e+02 ,7.0438e+02 ,7.0305e+02 ,6.8866e+02 ,6.5105e+02 /) - kbo(:,41,14) = (/ & - &7.0971e+02 ,7.0837e+02 ,7.0822e+02 ,6.9421e+02 ,6.5990e+02 /) - kbo(:,42,14) = (/ & - &7.1142e+02 ,7.1113e+02 ,7.1018e+02 ,6.9720e+02 ,6.7342e+02 /) - kbo(:,43,14) = (/ & - &7.1363e+02 ,7.1120e+02 ,7.0210e+02 ,7.0055e+02 ,6.8488e+02 /) - kbo(:,44,14) = (/ & - &7.1148e+02 ,7.0646e+02 ,7.0565e+02 ,7.0398e+02 ,6.8877e+02 /) - kbo(:,45,14) = (/ & - &7.0895e+02 ,7.0958e+02 ,7.0605e+02 ,6.9798e+02 ,6.9240e+02 /) - kbo(:,46,14) = (/ & - &6.9950e+02 ,7.0866e+02 ,7.0226e+02 ,6.9819e+02 ,6.9658e+02 /) - kbo(:,47,14) = (/ & - &6.8721e+02 ,7.0244e+02 ,7.0188e+02 ,6.9806e+02 ,6.9161e+02 /) - kbo(:,48,14) = (/ & - &6.8035e+02 ,6.9565e+02 ,6.9976e+02 ,6.9387e+02 ,6.8913e+02 /) - kbo(:,49,14) = (/ & - &6.6852e+02 ,6.8533e+02 ,6.9809e+02 ,6.9470e+02 ,6.8647e+02 /) - kbo(:,50,14) = (/ & - &6.5815e+02 ,6.7824e+02 ,6.9156e+02 ,6.9473e+02 ,6.8677e+02 /) - kbo(:,51,14) = (/ & - &6.5633e+02 ,6.6741e+02 ,6.8334e+02 ,6.9427e+02 ,6.8718e+02 /) - kbo(:,52,14) = (/ & - &6.4799e+02 ,6.6007e+02 ,6.7742e+02 ,6.8641e+02 ,6.8886e+02 /) - kbo(:,53,14) = (/ & - &6.3478e+02 ,6.5848e+02 ,6.6595e+02 ,6.8004e+02 ,6.8977e+02 /) - kbo(:,54,14) = (/ & - &6.3075e+02 ,6.5140e+02 ,6.6048e+02 ,6.7510e+02 ,6.7898e+02 /) - kbo(:,55,14) = (/ & - &6.2053e+02 ,6.3982e+02 ,6.5909e+02 ,6.6252e+02 ,6.7620e+02 /) - kbo(:,56,14) = (/ & - &6.0488e+02 ,6.3692e+02 ,6.5472e+02 ,6.5961e+02 ,6.7144e+02 /) - kbo(:,57,14) = (/ & - &5.9240e+02 ,6.2947e+02 ,6.4320e+02 ,6.5881e+02 ,6.5824e+02 /) - kbo(:,58,14) = (/ & - &5.7619e+02 ,6.1537e+02 ,6.4199e+02 ,6.5527e+02 ,6.5777e+02 /) - kbo(:,59,14) = (/ & - &5.7161e+02 ,6.1151e+02 ,6.3977e+02 ,6.4718e+02 ,6.5762e+02 /) - kbo(:,13,15) = (/ & - &3.5083e+02 ,3.4274e+02 ,3.3588e+02 ,3.2964e+02 ,3.0980e+02 /) - kbo(:,14,15) = (/ & - &4.0382e+02 ,3.9443e+02 ,3.8616e+02 ,3.7379e+02 ,3.5621e+02 /) - kbo(:,15,15) = (/ & - &4.6271e+02 ,4.5170e+02 ,4.4204e+02 ,4.2053e+02 ,4.0520e+02 /) - kbo(:,16,15) = (/ & - &5.2768e+02 ,5.1495e+02 ,4.9504e+02 ,4.7377e+02 ,4.6833e+02 /) - kbo(:,17,15) = (/ & - &5.9879e+02 ,5.8378e+02 ,5.5161e+02 ,5.3753e+02 ,5.3799e+02 /) - kbo(:,18,15) = (/ & - &6.7489e+02 ,6.3850e+02 ,6.1688e+02 ,6.0987e+02 ,5.7677e+02 /) - kbo(:,19,15) = (/ & - &7.3779e+02 ,7.0513e+02 ,6.9510e+02 ,6.5830e+02 ,6.0487e+02 /) - kbo(:,20,15) = (/ & - &8.1079e+02 ,7.9490e+02 ,7.5998e+02 ,6.9897e+02 ,6.4843e+02 /) - kbo(:,21,15) = (/ & - &8.8426e+02 ,8.6003e+02 ,8.0304e+02 ,7.3384e+02 ,6.9837e+02 /) - kbo(:,22,15) = (/ & - &9.6812e+02 ,9.1088e+02 ,8.3391e+02 ,7.8330e+02 ,7.5669e+02 /) - kbo(:,23,15) = (/ & - &1.0128e+03 ,9.4218e+02 ,8.8720e+02 ,8.2530e+02 ,7.8833e+02 /) - kbo(:,24,15) = (/ & - &1.0622e+03 ,9.7878e+02 ,9.1791e+02 ,8.7765e+02 ,7.9731e+02 /) - kbo(:,25,15) = (/ & - &1.0853e+03 ,1.0245e+03 ,9.5328e+02 ,8.9340e+02 ,8.1721e+02 /) - kbo(:,26,15) = (/ & - &1.1200e+03 ,1.0458e+03 ,9.9235e+02 ,9.0775e+02 ,8.4493e+02 /) - kbo(:,27,15) = (/ & - &1.1556e+03 ,1.0812e+03 ,1.0090e+03 ,9.2343e+02 ,8.1758e+02 /) - kbo(:,28,15) = (/ & - &1.1865e+03 ,1.1049e+03 ,1.0073e+03 ,9.1620e+02 ,7.7173e+02 /) - kbo(:,29,15) = (/ & - &1.1906e+03 ,1.1065e+03 ,1.0028e+03 ,8.7527e+02 ,7.2650e+02 /) - kbo(:,30,15) = (/ & - &1.1992e+03 ,1.0831e+03 ,9.6830e+02 ,8.1150e+02 ,6.8040e+02 /) - kbo(:,31,15) = (/ & - &1.1794e+03 ,1.0618e+03 ,9.0601e+02 ,7.5400e+02 ,6.0274e+02 /) - kbo(:,32,15) = (/ & - &1.1491e+03 ,9.9644e+02 ,8.3044e+02 ,6.7287e+02 ,5.1890e+02 /) - kbo(:,33,15) = (/ & - &1.0978e+03 ,9.1760e+02 ,7.5228e+02 ,5.8187e+02 ,4.2649e+02 /) - kbo(:,34,15) = (/ & - &1.0237e+03 ,8.4870e+02 ,6.6311e+02 ,4.9111e+02 ,3.3958e+02 /) - kbo(:,35,15) = (/ & - &9.6010e+02 ,7.7009e+02 ,5.7949e+02 ,4.1414e+02 ,2.7668e+02 /) - kbo(:,36,15) = (/ & - &9.0171e+02 ,7.0086e+02 ,5.0886e+02 ,3.3823e+02 ,2.2240e+02 /) - kbo(:,37,15) = (/ & - &9.0464e+02 ,7.0259e+02 ,5.0334e+02 ,3.3120e+02 ,2.1250e+02 /) - kbo(:,38,15) = (/ & - &9.1272e+02 ,7.0777e+02 ,5.0236e+02 ,3.2627e+02 ,2.0281e+02 /) - kbo(:,39,15) = (/ & - &9.1592e+02 ,7.0699e+02 ,5.0029e+02 ,3.1832e+02 ,1.8984e+02 /) - kbo(:,40,15) = (/ & - &9.7111e+02 ,7.5888e+02 ,5.4218e+02 ,3.5289e+02 ,2.1710e+02 /) - kbo(:,41,15) = (/ & - &1.0392e+03 ,8.1334e+02 ,5.9329e+02 ,4.0507e+02 ,2.5679e+02 /) - kbo(:,42,15) = (/ & - &1.1018e+03 ,8.7332e+02 ,6.5360e+02 ,4.6461e+02 ,2.9410e+02 /) - kbo(:,43,15) = (/ & - &1.1780e+03 ,9.5750e+02 ,7.5295e+02 ,5.3640e+02 ,3.4968e+02 /) - kbo(:,44,15) = (/ & - &1.2774e+03 ,1.0610e+03 ,8.3382e+02 ,6.1903e+02 ,4.3881e+02 /) - kbo(:,45,15) = (/ & - &1.3696e+03 ,1.1411e+03 ,9.2825e+02 ,7.2390e+02 ,5.2087e+02 /) - kbo(:,46,15) = (/ & - &1.4458e+03 ,1.2392e+03 ,1.0284e+03 ,8.1462e+02 ,6.0446e+02 /) - kbo(:,47,15) = (/ & - &1.5185e+03 ,1.3558e+03 ,1.1323e+03 ,9.2353e+02 ,7.1923e+02 /) - kbo(:,48,15) = (/ & - &1.5480e+03 ,1.4278e+03 ,1.2433e+03 ,1.0338e+03 ,8.2416e+02 /) - kbo(:,49,15) = (/ & - &1.6321e+03 ,1.4959e+03 ,1.3391e+03 ,1.1340e+03 ,9.3754e+02 /) - kbo(:,50,15) = (/ & - &1.7049e+03 ,1.5268e+03 ,1.4037e+03 ,1.2337e+03 ,1.0324e+03 /) - kbo(:,51,15) = (/ & - &1.7473e+03 ,1.6024e+03 ,1.4662e+03 ,1.3130e+03 ,1.1235e+03 /) - kbo(:,52,15) = (/ & - &1.7742e+03 ,1.6697e+03 ,1.4942e+03 ,1.3753e+03 ,1.2160e+03 /) - kbo(:,53,15) = (/ & - &1.8257e+03 ,1.7098e+03 ,1.5772e+03 ,1.4297e+03 ,1.2866e+03 /) - kbo(:,54,15) = (/ & - &1.8238e+03 ,1.7301e+03 ,1.6290e+03 ,1.4640e+03 ,1.3508e+03 /) - kbo(:,55,15) = (/ & - &1.8598e+03 ,1.7789e+03 ,1.6666e+03 ,1.5389e+03 ,1.3930e+03 /) - kbo(:,56,15) = (/ & - &1.9305e+03 ,1.7834e+03 ,1.6800e+03 ,1.5831e+03 ,1.4252e+03 /) - kbo(:,57,15) = (/ & - &1.9902e+03 ,1.8099e+03 ,1.7296e+03 ,1.6197e+03 ,1.4994e+03 /) - kbo(:,58,15) = (/ & - &2.0569e+03 ,1.8785e+03 ,1.7252e+03 ,1.6299e+03 ,1.5366e+03 /) - kbo(:,59,15) = (/ & - &2.0792e+03 ,1.9024e+03 ,1.7290e+03 ,1.6559e+03 ,1.5493e+03 /) - kbo(:,13,16) = (/ & - &5.7074e+02 ,5.5713e+02 ,5.4253e+02 ,5.2721e+02 ,5.1131e+02 /) - kbo(:,14,16) = (/ & - &6.6774e+02 ,6.5027e+02 ,6.3161e+02 ,6.1261e+02 ,5.9377e+02 /) - kbo(:,15,16) = (/ & - &7.7763e+02 ,7.5535e+02 ,7.3247e+02 ,7.0914e+02 ,6.8554e+02 /) - kbo(:,16,16) = (/ & - &9.0056e+02 ,8.7306e+02 ,8.4456e+02 ,8.1516e+02 ,7.0895e+02 /) - kbo(:,17,16) = (/ & - &1.0366e+03 ,1.0015e+03 ,9.6519e+02 ,8.8128e+02 ,7.1380e+02 /) - kbo(:,18,16) = (/ & - &1.1817e+03 ,1.1369e+03 ,1.0597e+03 ,8.5644e+02 ,7.3707e+02 /) - kbo(:,19,16) = (/ & - &1.3316e+03 ,1.2750e+03 ,1.0321e+03 ,8.8674e+02 ,7.7129e+02 /) - kbo(:,20,16) = (/ & - &1.4803e+03 ,1.2710e+03 ,1.0855e+03 ,9.4408e+02 ,7.2356e+02 /) - kbo(:,21,16) = (/ & - &1.6247e+03 ,1.3272e+03 ,1.1530e+03 ,9.8338e+02 ,6.9198e+02 /) - kbo(:,22,16) = (/ & - &1.6008e+03 ,1.3778e+03 ,1.2081e+03 ,9.0370e+02 ,5.5641e+02 /) - kbo(:,23,16) = (/ & - &1.6342e+03 ,1.4243e+03 ,1.1304e+03 ,8.5528e+02 ,4.9240e+02 /) - kbo(:,24,16) = (/ & - &1.6690e+03 ,1.4128e+03 ,1.0773e+03 ,6.8055e+02 ,4.3204e+02 /) - kbo(:,25,16) = (/ & - &1.6932e+03 ,1.3171e+03 ,9.9569e+02 ,5.6924e+02 ,2.7405e+02 /) - kbo(:,26,16) = (/ & - &1.5997e+03 ,1.2565e+03 ,7.2147e+02 ,4.1508e+02 ,1.6363e+00 /) - kbo(:,27,16) = (/ & - &1.4709e+03 ,1.0620e+03 ,5.5367e+02 ,1.6801e+02 ,1.7711e+00 /) - kbo(:,28,16) = (/ & - &1.2868e+03 ,7.4225e+02 ,4.1091e+02 ,1.3979e+00 ,1.9138e+00 /) - kbo(:,29,16) = (/ & - &1.1046e+03 ,5.7327e+02 ,1.1435e+02 ,1.5227e+00 ,2.0690e+00 /) - kbo(:,30,16) = (/ & - &7.5951e+02 ,3.1070e+02 ,1.1800e+00 ,1.6572e+00 ,2.2234e+00 /) - kbo(:,31,16) = (/ & - &5.2269e+02 ,8.9357e-01 ,1.2993e+00 ,1.7936e+00 ,2.3615e+00 /) - kbo(:,32,16) = (/ & - &1.3504e+02 ,9.8754e-01 ,1.4263e+00 ,1.9479e+00 ,2.5792e+00 /) - kbo(:,33,16) = (/ & - &7.3408e-01 ,1.0937e+00 ,1.5601e+00 ,2.1018e+00 ,2.7689e+00 /) - kbo(:,34,16) = (/ & - &8.0973e-01 ,1.1916e+00 ,1.6719e+00 ,2.2462e+00 ,2.9376e+00 /) - kbo(:,35,16) = (/ & - &8.5624e-01 ,1.2515e+00 ,1.7457e+00 ,2.3340e+00 ,3.0393e+00 /) - kbo(:,36,16) = (/ & - &8.6582e-01 ,1.2640e+00 ,1.7620e+00 ,2.3537e+00 ,3.0624e+00 /) - kbo(:,37,16) = (/ & - &8.2392e-01 ,1.2109e+00 ,1.6970e+00 ,2.2619e+00 ,2.9651e+00 /) - kbo(:,38,16) = (/ & - &7.7820e-01 ,1.1515e+00 ,1.6284e+00 ,2.1818e+00 ,2.8537e+00 /) - kbo(:,39,16) = (/ & - &7.3137e-01 ,1.0905e+00 ,1.5568e+00 ,2.1026e+00 ,2.7617e+00 /) - kbo(:,40,16) = (/ & - &6.6113e-01 ,9.9827e-01 ,1.4324e+00 ,1.9599e+00 ,2.5782e+00 /) - kbo(:,41,16) = (/ & - &5.8979e-01 ,9.0432e-01 ,1.3165e+00 ,1.8211e+00 ,2.4166e+00 /) - kbo(:,42,16) = (/ & - &5.2189e-01 ,8.1262e-01 ,1.2033e+00 ,1.6872e+00 ,2.2584e+00 /) - kbo(:,43,16) = (/ & - &4.5012e-01 ,7.1522e-01 ,1.0693e+00 ,1.5212e+00 ,2.0670e+00 /) - kbo(:,44,16) = (/ & - &3.7946e-01 ,6.1667e-01 ,9.4312e-01 ,1.3624e+00 ,1.8770e+00 /) - kbo(:,45,16) = (/ & - &3.1558e-01 ,5.2623e-01 ,8.0787e-01 ,1.2032e+00 ,1.6863e+00 /) - kbo(:,46,16) = (/ & - &2.9590e+02 ,4.4343e-01 ,7.0619e-01 ,1.0578e+00 ,1.5068e+00 /) - kbo(:,47,16) = (/ & - &7.2659e+02 ,3.5873e-01 ,5.9101e-01 ,9.0599e-01 ,1.3156e+00 /) - kbo(:,48,16) = (/ & - &1.3181e+03 ,3.4672e+02 ,4.8767e-01 ,7.6683e-01 ,1.1370e+00 /) - kbo(:,49,16) = (/ & - &1.6047e+03 ,7.6641e+02 ,7.0071e+01 ,6.4471e-01 ,9.8037e-01 /) - kbo(:,50,16) = (/ & - &1.8848e+03 ,1.3103e+03 ,4.1613e+02 ,5.4100e-01 ,8.3899e-01 /) - kbo(:,51,16) = (/ & - &2.2044e+03 ,1.5848e+03 ,7.6808e+02 ,1.1316e+02 ,7.2276e-01 /) - kbo(:,52,16) = (/ & - &2.7162e+03 ,1.8452e+03 ,1.2957e+03 ,4.5829e+02 ,6.1559e-01 /) - kbo(:,53,16) = (/ & - &3.1107e+03 ,2.1559e+03 ,1.5529e+03 ,8.4689e+02 ,1.7464e+02 /) - kbo(:,54,16) = (/ & - &3.6955e+03 ,2.6522e+03 ,1.8196e+03 ,1.2866e+03 ,5.0615e+02 /) - kbo(:,55,16) = (/ & - &4.0343e+03 ,2.9873e+03 ,2.0751e+03 ,1.5293e+03 ,8.5669e+02 /) - kbo(:,56,16) = (/ & - &4.1921e+03 ,3.4914e+03 ,2.5653e+03 ,1.7745e+03 ,1.2881e+03 /) - kbo(:,57,16) = (/ & - &4.3609e+03 ,3.8712e+03 ,2.9041e+03 ,2.0379e+03 ,1.5211e+03 /) - kbo(:,58,16) = (/ & - &4.5313e+03 ,4.0098e+03 ,3.4243e+03 ,2.5213e+03 ,1.7627e+03 /) - kbo(:,59,16) = (/ & - &4.6034e+03 ,4.0679e+03 ,3.6299e+03 ,2.7016e+03 ,1.9029e+03 /) - -! The array KAO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level below 100~ mb. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. The second index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The third index -! runs over the g-channel (1 to 16). - - kao_mn2o( 1, :, 1) = (/ & - & 5.41078e-02 , 5.59051e-02 , 5.77620e-02 , 5.96805e-02 , 6.16628e-02 , & - & 6.37110e-02 , 6.58272e-02 , 6.80137e-02 , 7.02728e-02 , 7.26069e-02 , & - & 7.50185e-02 , 7.75103e-02 , 8.00848e-02 , 8.27449e-02 , 8.54933e-02 , & - & 8.83330e-02 , 9.12670e-02 , 9.42984e-02 , 9.74306e-02 /) - kao_mn2o( 2, :, 1) = (/ & - & 1.19602e-01 , 1.22963e-01 , 1.26417e-01 , 1.29969e-01 , 1.33621e-01 , & - & 1.37375e-01 , 1.41235e-01 , 1.45203e-01 , 1.49283e-01 , 1.53477e-01 , & - & 1.57789e-01 , 1.62223e-01 , 1.66780e-01 , 1.71466e-01 , 1.76284e-01 , & - & 1.81237e-01 , 1.86329e-01 , 1.91564e-01 , 1.96946e-01 /) - kao_mn2o( 3, :, 1) = (/ & - & 1.49614e-01 , 1.53427e-01 , 1.57337e-01 , 1.61346e-01 , 1.65457e-01 , & - & 1.69674e-01 , 1.73997e-01 , 1.78431e-01 , 1.82978e-01 , 1.87641e-01 , & - & 1.92422e-01 , 1.97325e-01 , 2.02354e-01 , 2.07510e-01 , 2.12798e-01 , & - & 2.18221e-01 , 2.23781e-01 , 2.29484e-01 , 2.35331e-01 /) - kao_mn2o( 4, :, 1) = (/ & - & 1.80029e-01 , 1.84202e-01 , 1.88472e-01 , 1.92841e-01 , 1.97311e-01 , & - & 2.01884e-01 , 2.06564e-01 , 2.11352e-01 , 2.16252e-01 , 2.21264e-01 , & - & 2.26393e-01 , 2.31641e-01 , 2.37010e-01 , 2.42504e-01 , 2.48126e-01 , & - & 2.53877e-01 , 2.59762e-01 , 2.65783e-01 , 2.71944e-01 /) - kao_mn2o( 5, :, 1) = (/ & - & 2.08279e-01 , 2.13029e-01 , 2.17888e-01 , 2.22858e-01 , 2.27941e-01 , & - & 2.33140e-01 , 2.38458e-01 , 2.43897e-01 , 2.49460e-01 , 2.55150e-01 , & - & 2.60969e-01 , 2.66922e-01 , 2.73010e-01 , 2.79237e-01 , 2.85606e-01 , & - & 2.92120e-01 , 2.98783e-01 , 3.05598e-01 , 3.12568e-01 /) - kao_mn2o( 6, :, 1) = (/ & - & 2.17336e-01 , 2.22571e-01 , 2.27931e-01 , 2.33421e-01 , 2.39043e-01 , & - & 2.44801e-01 , 2.50697e-01 , 2.56735e-01 , 2.62918e-01 , 2.69251e-01 , & - & 2.75735e-01 , 2.82377e-01 , 2.89178e-01 , 2.96142e-01 , 3.03275e-01 , & - & 3.10579e-01 , 3.18060e-01 , 3.25720e-01 , 3.33565e-01 /) - kao_mn2o( 7, :, 1) = (/ & - & 2.23903e-01 , 2.29349e-01 , 2.34926e-01 , 2.40640e-01 , 2.46493e-01 , & - & 2.52488e-01 , 2.58628e-01 , 2.64918e-01 , 2.71361e-01 , 2.77961e-01 , & - & 2.84721e-01 , 2.91646e-01 , 2.98739e-01 , 3.06005e-01 , 3.13447e-01 , & - & 3.21070e-01 , 3.28879e-01 , 3.36877e-01 , 3.45071e-01 /) - kao_mn2o( 8, :, 1) = (/ & - & 2.23400e-01 , 2.28843e-01 , 2.34418e-01 , 2.40130e-01 , 2.45980e-01 , & - & 2.51973e-01 , 2.58112e-01 , 2.64401e-01 , 2.70843e-01 , 2.77442e-01 , & - & 2.84202e-01 , 2.91126e-01 , 2.98219e-01 , 3.05485e-01 , 3.12928e-01 , & - & 3.20552e-01 , 3.28362e-01 , 3.36362e-01 , 3.44557e-01 /) - kao_mn2o( 9, :, 1) = (/ & - & 1.89279e-01 , 1.94423e-01 , 1.99707e-01 , 2.05135e-01 , 2.10710e-01 , & - & 2.16437e-01 , 2.22319e-01 , 2.28361e-01 , 2.34568e-01 , 2.40943e-01 , & - & 2.47492e-01 , 2.54218e-01 , 2.61127e-01 , 2.68224e-01 , 2.75514e-01 , & - & 2.83002e-01 , 2.90694e-01 , 2.98594e-01 , 3.06709e-01 /) - kao_mn2o( 1, :, 2) = (/ & - & 9.46669e-02 , 9.77137e-02 , 1.00858e-01 , 1.04104e-01 , 1.07455e-01 , & - & 1.10913e-01 , 1.14483e-01 , 1.18167e-01 , 1.21971e-01 , 1.25896e-01 , & - & 1.29948e-01 , 1.34130e-01 , 1.38447e-01 , 1.42903e-01 , 1.47502e-01 , & - & 1.52249e-01 , 1.57149e-01 , 1.62207e-01 , 1.67427e-01 /) - kao_mn2o( 2, :, 2) = (/ & - & 5.11901e-01 , 5.24950e-01 , 5.38331e-01 , 5.52053e-01 , 5.66125e-01 , & - & 5.80556e-01 , 5.95354e-01 , 6.10530e-01 , 6.26093e-01 , 6.42052e-01 , & - & 6.58418e-01 , 6.75202e-01 , 6.92413e-01 , 7.10062e-01 , 7.28162e-01 , & - & 7.46723e-01 , 7.65758e-01 , 7.85277e-01 , 8.05294e-01 /) - kao_mn2o( 3, :, 2) = (/ & - & 8.32946e-01 , 8.45780e-01 , 8.58813e-01 , 8.72046e-01 , 8.85482e-01 , & - & 8.99126e-01 , 9.12980e-01 , 9.27048e-01 , 9.41332e-01 , 9.55837e-01 , & - & 9.70565e-01 , 9.85520e-01 , 1.00070e+00 , 1.01612e+00 , 1.03178e+00 , & - & 1.04768e+00 , 1.06382e+00 , 1.08021e+00 , 1.09686e+00 /) - kao_mn2o( 4, :, 2) = (/ & - & 1.04032e+00 , 1.05475e+00 , 1.06937e+00 , 1.08419e+00 , 1.09922e+00 , & - & 1.11446e+00 , 1.12991e+00 , 1.14557e+00 , 1.16145e+00 , 1.17755e+00 , & - & 1.19387e+00 , 1.21042e+00 , 1.22720e+00 , 1.24421e+00 , 1.26146e+00 , & - & 1.27895e+00 , 1.29668e+00 , 1.31465e+00 , 1.33287e+00 /) - kao_mn2o( 5, :, 2) = (/ & - & 1.22685e+00 , 1.24267e+00 , 1.25870e+00 , 1.27493e+00 , 1.29137e+00 , & - & 1.30803e+00 , 1.32490e+00 , 1.34199e+00 , 1.35930e+00 , 1.37683e+00 , & - & 1.39459e+00 , 1.41257e+00 , 1.43079e+00 , 1.44925e+00 , 1.46794e+00 , & - & 1.48687e+00 , 1.50605e+00 , 1.52547e+00 , 1.54515e+00 /) - kao_mn2o( 6, :, 2) = (/ & - & 1.53781e+00 , 1.55206e+00 , 1.56645e+00 , 1.58097e+00 , 1.59563e+00 , & - & 1.61042e+00 , 1.62535e+00 , 1.64042e+00 , 1.65562e+00 , 1.67097e+00 , & - & 1.68646e+00 , 1.70210e+00 , 1.71788e+00 , 1.73380e+00 , 1.74987e+00 , & - & 1.76610e+00 , 1.78247e+00 , 1.79899e+00 , 1.81567e+00 /) - kao_mn2o( 7, :, 2) = (/ & - & 1.90476e+00 , 1.91858e+00 , 1.93251e+00 , 1.94653e+00 , 1.96065e+00 , & - & 1.97488e+00 , 1.98921e+00 , 2.00365e+00 , 2.01819e+00 , 2.03283e+00 , & - & 2.04758e+00 , 2.06244e+00 , 2.07741e+00 , 2.09248e+00 , 2.10767e+00 , & - & 2.12296e+00 , 2.13837e+00 , 2.15388e+00 , 2.16951e+00 /) - kao_mn2o( 8, :, 2) = (/ & - & 2.38211e+00 , 2.39819e+00 , 2.41438e+00 , 2.43068e+00 , 2.44709e+00 , & - & 2.46361e+00 , 2.48024e+00 , 2.49699e+00 , 2.51384e+00 , 2.53082e+00 , & - & 2.54790e+00 , 2.56510e+00 , 2.58242e+00 , 2.59985e+00 , 2.61741e+00 , & - & 2.63508e+00 , 2.65287e+00 , 2.67078e+00 , 2.68881e+00 /) - kao_mn2o( 9, :, 2) = (/ & - & 1.26464e+00 , 1.28107e+00 , 1.29772e+00 , 1.31458e+00 , 1.33166e+00 , & - & 1.34896e+00 , 1.36649e+00 , 1.38424e+00 , 1.40223e+00 , 1.42044e+00 , & - & 1.43890e+00 , 1.45759e+00 , 1.47653e+00 , 1.49572e+00 , 1.51515e+00 , & - & 1.53483e+00 , 1.55478e+00 , 1.57498e+00 , 1.59544e+00 /) - kao_mn2o( 1, :, 3) = (/ & - & 1.50082e-01 , 1.59095e-01 , 1.68650e-01 , 1.78779e-01 , 1.89516e-01 , & - & 2.00898e-01 , 2.12963e-01 , 2.25753e-01 , 2.39311e-01 , 2.53683e-01 , & - & 2.68919e-01 , 2.85069e-01 , 3.02190e-01 , 3.20339e-01 , 3.39577e-01 , & - & 3.59971e-01 , 3.81590e-01 , 4.04507e-01 , 4.28801e-01 /) - kao_mn2o( 2, :, 3) = (/ & - & 3.09551e+00 , 3.09780e+00 , 3.10008e+00 , 3.10237e+00 , 3.10466e+00 , & - & 3.10695e+00 , 3.10925e+00 , 3.11154e+00 , 3.11384e+00 , 3.11614e+00 , & - & 3.11844e+00 , 3.12074e+00 , 3.12305e+00 , 3.12535e+00 , 3.12766e+00 , & - & 3.12997e+00 , 3.13228e+00 , 3.13459e+00 , 3.13691e+00 /) - kao_mn2o( 3, :, 3) = (/ & - & 4.42661e+00 , 4.40858e+00 , 4.39062e+00 , 4.37274e+00 , 4.35493e+00 , & - & 4.33719e+00 , 4.31953e+00 , 4.30193e+00 , 4.28441e+00 , 4.26696e+00 , & - & 4.24958e+00 , 4.23227e+00 , 4.21503e+00 , 4.19787e+00 , 4.18077e+00 , & - & 4.16374e+00 , 4.14678e+00 , 4.12989e+00 , 4.11307e+00 /) - kao_mn2o( 4, :, 3) = (/ & - & 5.77864e+00 , 5.74085e+00 , 5.70331e+00 , 5.66602e+00 , 5.62897e+00 , & - & 5.59216e+00 , 5.55559e+00 , 5.51926e+00 , 5.48317e+00 , 5.44731e+00 , & - & 5.41169e+00 , 5.37631e+00 , 5.34115e+00 , 5.30622e+00 , 5.27152e+00 , & - & 5.23705e+00 , 5.20281e+00 , 5.16879e+00 , 5.13499e+00 /) - kao_mn2o( 5, :, 3) = (/ & - & 7.17294e+00 , 7.10890e+00 , 7.04542e+00 , 6.98251e+00 , 6.92017e+00 , & - & 6.85838e+00 , 6.79714e+00 , 6.73645e+00 , 6.67630e+00 , 6.61669e+00 , & - & 6.55761e+00 , 6.49905e+00 , 6.44102e+00 , 6.38351e+00 , 6.32651e+00 , & - & 6.27003e+00 , 6.21404e+00 , 6.15856e+00 , 6.10357e+00 /) - kao_mn2o( 6, :, 3) = (/ & - & 9.05082e+00 , 8.96132e+00 , 8.87271e+00 , 8.78498e+00 , 8.69811e+00 , & - & 8.61210e+00 , 8.52694e+00 , 8.44262e+00 , 8.35914e+00 , 8.27648e+00 , & - & 8.19464e+00 , 8.11361e+00 , 8.03338e+00 , 7.95394e+00 , 7.87529e+00 , & - & 7.79742e+00 , 7.72032e+00 , 7.64398e+00 , 7.56839e+00 /) - kao_mn2o( 7, :, 3) = (/ & - & 1.18749e+01 , 1.17648e+01 , 1.16556e+01 , 1.15475e+01 , 1.14403e+01 , & - & 1.13342e+01 , 1.12290e+01 , 1.11248e+01 , 1.10216e+01 , 1.09194e+01 , & - & 1.08180e+01 , 1.07177e+01 , 1.06182e+01 , 1.05197e+01 , 1.04221e+01 , & - & 1.03254e+01 , 1.02296e+01 , 1.01347e+01 , 1.00407e+01 /) - kao_mn2o( 8, :, 3) = (/ & - & 1.41428e+01 , 1.40323e+01 , 1.39227e+01 , 1.38139e+01 , 1.37060e+01 , & - & 1.35989e+01 , 1.34927e+01 , 1.33873e+01 , 1.32827e+01 , 1.31790e+01 , & - & 1.30760e+01 , 1.29738e+01 , 1.28725e+01 , 1.27719e+01 , 1.26722e+01 , & - & 1.25732e+01 , 1.24750e+01 , 1.23775e+01 , 1.22808e+01 /) - kao_mn2o( 9, :, 3) = (/ & - & 7.34993e+00 , 7.29335e+00 , 7.23720e+00 , 7.18149e+00 , 7.12620e+00 , & - & 7.07134e+00 , 7.01690e+00 , 6.96288e+00 , 6.90928e+00 , 6.85609e+00 , & - & 6.80331e+00 , 6.75094e+00 , 6.69897e+00 , 6.64739e+00 , 6.59622e+00 , & - & 6.54544e+00 , 6.49505e+00 , 6.44505e+00 , 6.39543e+00 /) - kao_mn2o( 1, :, 4) = (/ & - & 6.11248e-01 , 6.37225e-01 , 6.64306e-01 , 6.92538e-01 , 7.21970e-01 , & - & 7.52653e-01 , 7.84639e-01 , 8.17985e-01 , 8.52749e-01 , 8.88989e-01 , & - & 9.26770e-01 , 9.66157e-01 , 1.00722e+00 , 1.05002e+00 , 1.09465e+00 , & - & 1.14117e+00 , 1.18967e+00 , 1.24022e+00 , 1.29293e+00 /) - kao_mn2o( 2, :, 4) = (/ & - & 5.07253e+00 , 5.05299e+00 , 5.03353e+00 , 5.01414e+00 , 4.99483e+00 , & - & 4.97559e+00 , 4.95642e+00 , 4.93733e+00 , 4.91831e+00 , 4.89937e+00 , & - & 4.88050e+00 , 4.86170e+00 , 4.84297e+00 , 4.82432e+00 , 4.80573e+00 , & - & 4.78722e+00 , 4.76878e+00 , 4.75042e+00 , 4.73212e+00 /) - kao_mn2o( 3, :, 4) = (/ & - & 7.45829e+00 , 7.42266e+00 , 7.38719e+00 , 7.35190e+00 , 7.31677e+00 , & - & 7.28181e+00 , 7.24702e+00 , 7.21240e+00 , 7.17794e+00 , 7.14364e+00 , & - & 7.10951e+00 , 7.07554e+00 , 7.04173e+00 , 7.00809e+00 , 6.97461e+00 , & - & 6.94128e+00 , 6.90812e+00 , 6.87511e+00 , 6.84226e+00 /) - kao_mn2o( 4, :, 4) = (/ & - & 9.58893e+00 , 9.54796e+00 , 9.50716e+00 , 9.46654e+00 , 9.42609e+00 , & - & 9.38581e+00 , 9.34571e+00 , 9.30578e+00 , 9.26602e+00 , 9.22642e+00 , & - & 9.18700e+00 , 9.14775e+00 , 9.10866e+00 , 9.06974e+00 , 9.03099e+00 , & - & 8.99240e+00 , 8.95398e+00 , 8.91572e+00 , 8.87762e+00 /) - kao_mn2o( 5, :, 4) = (/ & - & 1.16344e+01 , 1.16012e+01 , 1.15681e+01 , 1.15351e+01 , 1.15022e+01 , & - & 1.14694e+01 , 1.14366e+01 , 1.14040e+01 , 1.13715e+01 , 1.13390e+01 , & - & 1.13067e+01 , 1.12744e+01 , 1.12422e+01 , 1.12102e+01 , 1.11782e+01 , & - & 1.11463e+01 , 1.11145e+01 , 1.10828e+01 , 1.10511e+01 /) - kao_mn2o( 6, :, 4) = (/ & - & 1.12460e+01 , 1.12402e+01 , 1.12344e+01 , 1.12286e+01 , 1.12228e+01 , & - & 1.12170e+01 , 1.12112e+01 , 1.12055e+01 , 1.11997e+01 , 1.11939e+01 , & - & 1.11882e+01 , 1.11824e+01 , 1.11766e+01 , 1.11709e+01 , 1.11651e+01 , & - & 1.11594e+01 , 1.11536e+01 , 1.11479e+01 , 1.11421e+01 /) - kao_mn2o( 7, :, 4) = (/ & - & 8.89265e+00 , 8.91419e+00 , 8.93578e+00 , 8.95743e+00 , 8.97913e+00 , & - & 9.00088e+00 , 9.02268e+00 , 9.04454e+00 , 9.06645e+00 , 9.08841e+00 , & - & 9.11043e+00 , 9.13250e+00 , 9.15462e+00 , 9.17680e+00 , 9.19903e+00 , & - & 9.22131e+00 , 9.24365e+00 , 9.26604e+00 , 9.28849e+00 /) - kao_mn2o( 8, :, 4) = (/ & - & 6.83933e+00 , 6.86688e+00 , 6.89453e+00 , 6.92230e+00 , 6.95018e+00 , & - & 6.97817e+00 , 7.00627e+00 , 7.03449e+00 , 7.06282e+00 , 7.09126e+00 , & - & 7.11982e+00 , 7.14850e+00 , 7.17729e+00 , 7.20619e+00 , 7.23521e+00 , & - & 7.26435e+00 , 7.29361e+00 , 7.32298e+00 , 7.35248e+00 /) - kao_mn2o( 9, :, 4) = (/ & - & 1.10637e+01 , 1.10232e+01 , 1.09829e+01 , 1.09427e+01 , 1.09026e+01 , & - & 1.08627e+01 , 1.08230e+01 , 1.07833e+01 , 1.07439e+01 , 1.07046e+01 , & - & 1.06654e+01 , 1.06263e+01 , 1.05875e+01 , 1.05487e+01 , 1.05101e+01 , & - & 1.04716e+01 , 1.04333e+01 , 1.03951e+01 , 1.03571e+01 /) - kao_mn2o( 1, :, 5) = (/ & - & 2.53460e+00 , 2.56050e+00 , 2.58667e+00 , 2.61310e+00 , 2.63980e+00 , & - & 2.66678e+00 , 2.69403e+00 , 2.72156e+00 , 2.74937e+00 , 2.77746e+00 , & - & 2.80585e+00 , 2.83452e+00 , 2.86348e+00 , 2.89275e+00 , 2.92231e+00 , & - & 2.95217e+00 , 2.98234e+00 , 3.01281e+00 , 3.04360e+00 /) - kao_mn2o( 2, :, 5) = (/ & - & 7.45650e+00 , 7.44283e+00 , 7.42919e+00 , 7.41557e+00 , 7.40198e+00 , & - & 7.38841e+00 , 7.37487e+00 , 7.36135e+00 , 7.34786e+00 , 7.33439e+00 , & - & 7.32095e+00 , 7.30753e+00 , 7.29413e+00 , 7.28076e+00 , 7.26742e+00 , & - & 7.25410e+00 , 7.24080e+00 , 7.22753e+00 , 7.21428e+00 /) - kao_mn2o( 3, :, 5) = (/ & - & 1.06311e+01 , 1.06110e+01 , 1.05909e+01 , 1.05709e+01 , 1.05509e+01 , & - & 1.05310e+01 , 1.05111e+01 , 1.04912e+01 , 1.04713e+01 , 1.04516e+01 , & - & 1.04318e+01 , 1.04121e+01 , 1.03924e+01 , 1.03727e+01 , 1.03531e+01 , & - & 1.03336e+01 , 1.03140e+01 , 1.02945e+01 , 1.02751e+01 /) - kao_mn2o( 4, :, 5) = (/ & - & 1.03924e+01 , 1.03895e+01 , 1.03867e+01 , 1.03838e+01 , 1.03809e+01 , & - & 1.03780e+01 , 1.03751e+01 , 1.03722e+01 , 1.03693e+01 , 1.03665e+01 , & - & 1.03636e+01 , 1.03607e+01 , 1.03578e+01 , 1.03549e+01 , 1.03521e+01 , & - & 1.03492e+01 , 1.03463e+01 , 1.03434e+01 , 1.03406e+01 /) - kao_mn2o( 5, :, 5) = (/ & - & 7.82277e+00 , 7.83872e+00 , 7.85471e+00 , 7.87073e+00 , 7.88678e+00 , & - & 7.90287e+00 , 7.91899e+00 , 7.93514e+00 , 7.95132e+00 , 7.96754e+00 , & - & 7.98379e+00 , 8.00008e+00 , 8.01639e+00 , 8.03274e+00 , 8.04913e+00 , & - & 8.06555e+00 , 8.08200e+00 , 8.09848e+00 , 8.11500e+00 /) - kao_mn2o( 6, :, 5) = (/ & - & 6.05225e+00 , 6.06883e+00 , 6.08545e+00 , 6.10212e+00 , 6.11883e+00 , & - & 6.13559e+00 , 6.15240e+00 , 6.16925e+00 , 6.18615e+00 , 6.20309e+00 , & - & 6.22008e+00 , 6.23712e+00 , 6.25420e+00 , 6.27133e+00 , 6.28851e+00 , & - & 6.30574e+00 , 6.32301e+00 , 6.34033e+00 , 6.35769e+00 /) - kao_mn2o( 7, :, 5) = (/ & - & 5.24135e+00 , 5.25696e+00 , 5.27261e+00 , 5.28831e+00 , 5.30405e+00 , & - & 5.31984e+00 , 5.33568e+00 , 5.35157e+00 , 5.36750e+00 , 5.38348e+00 , & - & 5.39951e+00 , 5.41558e+00 , 5.43171e+00 , 5.44788e+00 , 5.46410e+00 , & - & 5.48037e+00 , 5.49668e+00 , 5.51305e+00 , 5.52946e+00 /) - kao_mn2o( 8, :, 5) = (/ & - & 4.40240e+00 , 4.40915e+00 , 4.41591e+00 , 4.42268e+00 , 4.42946e+00 , & - & 4.43625e+00 , 4.44305e+00 , 4.44986e+00 , 4.45668e+00 , 4.46351e+00 , & - & 4.47035e+00 , 4.47720e+00 , 4.48407e+00 , 4.49094e+00 , 4.49782e+00 , & - & 4.50472e+00 , 4.51162e+00 , 4.51854e+00 , 4.52547e+00 /) - kao_mn2o( 9, :, 5) = (/ & - & 8.56554e+00 , 8.59185e+00 , 8.61824e+00 , 8.64470e+00 , 8.67125e+00 , & - & 8.69788e+00 , 8.72460e+00 , 8.75139e+00 , 8.77827e+00 , 8.80523e+00 , & - & 8.83227e+00 , 8.85939e+00 , 8.88660e+00 , 8.91389e+00 , 8.94127e+00 , & - & 8.96873e+00 , 8.99627e+00 , 9.02390e+00 , 9.05161e+00 /) - kao_mn2o( 1, :, 6) = (/ & - & 5.78695e+00 , 5.78939e+00 , 5.79182e+00 , 5.79426e+00 , 5.79670e+00 , & - & 5.79914e+00 , 5.80158e+00 , 5.80403e+00 , 5.80647e+00 , 5.80892e+00 , & - & 5.81136e+00 , 5.81381e+00 , 5.81626e+00 , 5.81870e+00 , 5.82115e+00 , & - & 5.82361e+00 , 5.82606e+00 , 5.82851e+00 , 5.83096e+00 /) - kao_mn2o( 2, :, 6) = (/ & - & 1.22893e+01 , 1.22556e+01 , 1.22221e+01 , 1.21886e+01 , 1.21552e+01 , & - & 1.21220e+01 , 1.20888e+01 , 1.20557e+01 , 1.20227e+01 , 1.19898e+01 , & - & 1.19569e+01 , 1.19242e+01 , 1.18915e+01 , 1.18590e+01 , 1.18265e+01 , & - & 1.17941e+01 , 1.17618e+01 , 1.17296e+01 , 1.16975e+01 /) - kao_mn2o( 3, :, 6) = (/ & - & 7.93118e+00 , 7.94590e+00 , 7.96065e+00 , 7.97542e+00 , 7.99022e+00 , & - & 8.00505e+00 , 8.01990e+00 , 8.03478e+00 , 8.04970e+00 , 8.06463e+00 , & - & 8.07960e+00 , 8.09459e+00 , 8.10961e+00 , 8.12466e+00 , 8.13974e+00 , & - & 8.15485e+00 , 8.16998e+00 , 8.18514e+00 , 8.20033e+00 /) - kao_mn2o( 4, :, 6) = (/ & - & 4.08899e+00 , 4.11435e+00 , 4.13988e+00 , 4.16556e+00 , 4.19140e+00 , & - & 4.21740e+00 , 4.24357e+00 , 4.26989e+00 , 4.29638e+00 , 4.32304e+00 , & - & 4.34985e+00 , 4.37684e+00 , 4.40399e+00 , 4.43131e+00 , 4.45880e+00 , & - & 4.48646e+00 , 4.51430e+00 , 4.54230e+00 , 4.57048e+00 /) - kao_mn2o( 5, :, 6) = (/ & - & 2.61358e+00 , 2.64029e+00 , 2.66728e+00 , 2.69454e+00 , 2.72209e+00 , & - & 2.74991e+00 , 2.77802e+00 , 2.80641e+00 , 2.83510e+00 , 2.86408e+00 , & - & 2.89335e+00 , 2.92293e+00 , 2.95280e+00 , 2.98299e+00 , 3.01348e+00 , & - & 3.04428e+00 , 3.07540e+00 , 3.10683e+00 , 3.13859e+00 /) - kao_mn2o( 6, :, 6) = (/ & - & 2.40720e+00 , 2.43430e+00 , 2.46169e+00 , 2.48940e+00 , 2.51741e+00 , & - & 2.54575e+00 , 2.57440e+00 , 2.60337e+00 , 2.63267e+00 , 2.66230e+00 , & - & 2.69226e+00 , 2.72256e+00 , 2.75320e+00 , 2.78419e+00 , 2.81552e+00 , & - & 2.84721e+00 , 2.87925e+00 , 2.91166e+00 , 2.94443e+00 /) - kao_mn2o( 7, :, 6) = (/ & - & 1.99607e+00 , 2.01725e+00 , 2.03865e+00 , 2.06028e+00 , 2.08214e+00 , & - & 2.10423e+00 , 2.12655e+00 , 2.14912e+00 , 2.17192e+00 , 2.19496e+00 , & - & 2.21825e+00 , 2.24179e+00 , 2.26557e+00 , 2.28961e+00 , 2.31390e+00 , & - & 2.33845e+00 , 2.36326e+00 , 2.38834e+00 , 2.41368e+00 /) - kao_mn2o( 8, :, 6) = (/ & - & 1.94150e+00 , 1.96398e+00 , 1.98671e+00 , 2.00971e+00 , 2.03298e+00 , & - & 2.05651e+00 , 2.08032e+00 , 2.10440e+00 , 2.12876e+00 , 2.15341e+00 , & - & 2.17834e+00 , 2.20355e+00 , 2.22906e+00 , 2.25487e+00 , 2.28097e+00 , & - & 2.30738e+00 , 2.33409e+00 , 2.36111e+00 , 2.38844e+00 /) - kao_mn2o( 9, :, 6) = (/ & - & 2.47259e+00 , 2.48950e+00 , 2.50653e+00 , 2.52367e+00 , 2.54093e+00 , & - & 2.55831e+00 , 2.57581e+00 , 2.59343e+00 , 2.61117e+00 , 2.62903e+00 , & - & 2.64701e+00 , 2.66511e+00 , 2.68334e+00 , 2.70169e+00 , 2.72017e+00 , & - & 2.73878e+00 , 2.75751e+00 , 2.77637e+00 , 2.79536e+00 /) - kao_mn2o( 1, :, 7) = (/ & - & 1.23417e+01 , 1.22618e+01 , 1.21823e+01 , 1.21034e+01 , 1.20250e+01 , & - & 1.19471e+01 , 1.18697e+01 , 1.17928e+01 , 1.17164e+01 , 1.16405e+01 , & - & 1.15651e+01 , 1.14901e+01 , 1.14157e+01 , 1.13417e+01 , 1.12683e+01 , & - & 1.11952e+01 , 1.11227e+01 , 1.10507e+01 , 1.09791e+01 /) - kao_mn2o( 2, :, 7) = (/ & - & 9.30957e+00 , 9.32775e+00 , 9.34597e+00 , 9.36421e+00 , 9.38250e+00 , & - & 9.40082e+00 , 9.41918e+00 , 9.43757e+00 , 9.45600e+00 , 9.47446e+00 , & - & 9.49296e+00 , 9.51150e+00 , 9.53007e+00 , 9.54868e+00 , 9.56732e+00 , & - & 9.58601e+00 , 9.60472e+00 , 9.62348e+00 , 9.64227e+00 /) - kao_mn2o( 3, :, 7) = (/ & - & 4.15867e+00 , 4.19254e+00 , 4.22668e+00 , 4.26110e+00 , 4.29581e+00 , & - & 4.33079e+00 , 4.36606e+00 , 4.40162e+00 , 4.43747e+00 , 4.47360e+00 , & - & 4.51004e+00 , 4.54677e+00 , 4.58380e+00 , 4.62113e+00 , 4.65876e+00 , & - & 4.69670e+00 , 4.73495e+00 , 4.77351e+00 , 4.81239e+00 /) - kao_mn2o( 4, :, 7) = (/ & - & 3.55634e+00 , 3.59382e+00 , 3.63169e+00 , 3.66996e+00 , 3.70863e+00 , & - & 3.74771e+00 , 3.78720e+00 , 3.82711e+00 , 3.86744e+00 , 3.90820e+00 , & - & 3.94938e+00 , 3.99100e+00 , 4.03305e+00 , 4.07555e+00 , 4.11850e+00 , & - & 4.16190e+00 , 4.20576e+00 , 4.25008e+00 , 4.29486e+00 /) - kao_mn2o( 5, :, 7) = (/ & - & 3.09468e+00 , 3.12655e+00 , 3.15876e+00 , 3.19129e+00 , 3.22416e+00 , & - & 3.25737e+00 , 3.29092e+00 , 3.32482e+00 , 3.35907e+00 , 3.39366e+00 , & - & 3.42862e+00 , 3.46393e+00 , 3.49961e+00 , 3.53566e+00 , 3.57208e+00 , & - & 3.60887e+00 , 3.64604e+00 , 3.68360e+00 , 3.72154e+00 /) - kao_mn2o( 6, :, 7) = (/ & - & 2.75473e+00 , 2.78356e+00 , 2.81268e+00 , 2.84211e+00 , 2.87185e+00 , & - & 2.90190e+00 , 2.93227e+00 , 2.96295e+00 , 2.99395e+00 , 3.02528e+00 , & - & 3.05694e+00 , 3.08892e+00 , 3.12125e+00 , 3.15391e+00 , 3.18691e+00 , & - & 3.22025e+00 , 3.25395e+00 , 3.28800e+00 , 3.32240e+00 /) - kao_mn2o( 7, :, 7) = (/ & - & 2.68587e+00 , 2.71431e+00 , 2.74306e+00 , 2.77211e+00 , 2.80146e+00 , & - & 2.83113e+00 , 2.86111e+00 , 2.89141e+00 , 2.92203e+00 , 2.95298e+00 , & - & 2.98425e+00 , 3.01585e+00 , 3.04779e+00 , 3.08006e+00 , 3.11268e+00 , & - & 3.14564e+00 , 3.17896e+00 , 3.21262e+00 , 3.24664e+00 /) - kao_mn2o( 8, :, 7) = (/ & - & 2.54778e+00 , 2.57461e+00 , 2.60173e+00 , 2.62914e+00 , 2.65683e+00 , & - & 2.68482e+00 , 2.71310e+00 , 2.74168e+00 , 2.77056e+00 , 2.79974e+00 , & - & 2.82923e+00 , 2.85903e+00 , 2.88915e+00 , 2.91958e+00 , 2.95033e+00 , & - & 2.98141e+00 , 3.01282e+00 , 3.04455e+00 , 3.07662e+00 /) - kao_mn2o( 9, :, 7) = (/ & - & 2.78137e+00 , 2.80957e+00 , 2.83805e+00 , 2.86682e+00 , 2.89589e+00 , & - & 2.92525e+00 , 2.95491e+00 , 2.98486e+00 , 3.01512e+00 , 3.04569e+00 , & - & 3.07657e+00 , 3.10776e+00 , 3.13927e+00 , 3.17110e+00 , 3.20324e+00 , & - & 3.23572e+00 , 3.26852e+00 , 3.30166e+00 , 3.33513e+00 /) - kao_mn2o( 1, :, 8) = (/ & - & 2.28384e+01 , 2.27450e+01 , 2.26519e+01 , 2.25593e+01 , 2.24670e+01 , & - & 2.23751e+01 , 2.22835e+01 , 2.21924e+01 , 2.21016e+01 , 2.20112e+01 , & - & 2.19211e+01 , 2.18314e+01 , 2.17421e+01 , 2.16532e+01 , 2.15646e+01 , & - & 2.14764e+01 , 2.13885e+01 , 2.13010e+01 , 2.12139e+01 /) - kao_mn2o( 2, :, 8) = (/ & - & 4.48608e+00 , 4.52259e+00 , 4.55939e+00 , 4.59649e+00 , 4.63389e+00 , & - & 4.67160e+00 , 4.70961e+00 , 4.74793e+00 , 4.78656e+00 , 4.82551e+00 , & - & 4.86478e+00 , 4.90436e+00 , 4.94427e+00 , 4.98450e+00 , 5.02506e+00 , & - & 5.06595e+00 , 5.10717e+00 , 5.14873e+00 , 5.19062e+00 /) - kao_mn2o( 3, :, 8) = (/ & - & 3.69928e+00 , 3.72584e+00 , 3.75259e+00 , 3.77953e+00 , 3.80666e+00 , & - & 3.83399e+00 , 3.86152e+00 , 3.88924e+00 , 3.91717e+00 , 3.94529e+00 , & - & 3.97361e+00 , 4.00214e+00 , 4.03088e+00 , 4.05982e+00 , 4.08896e+00 , & - & 4.11832e+00 , 4.14789e+00 , 4.17767e+00 , 4.20766e+00 /) - kao_mn2o( 4, :, 8) = (/ & - & 3.17856e+00 , 3.19596e+00 , 3.21345e+00 , 3.23104e+00 , 3.24872e+00 , & - & 3.26650e+00 , 3.28437e+00 , 3.30235e+00 , 3.32042e+00 , 3.33859e+00 , & - & 3.35686e+00 , 3.37523e+00 , 3.39370e+00 , 3.41227e+00 , 3.43095e+00 , & - & 3.44972e+00 , 3.46860e+00 , 3.48758e+00 , 3.50667e+00 /) - kao_mn2o( 5, :, 8) = (/ & - & 3.16549e+00 , 3.18288e+00 , 3.20037e+00 , 3.21795e+00 , 3.23563e+00 , & - & 3.25340e+00 , 3.27128e+00 , 3.28925e+00 , 3.30732e+00 , 3.32549e+00 , & - & 3.34376e+00 , 3.36213e+00 , 3.38060e+00 , 3.39917e+00 , 3.41785e+00 , & - & 3.43662e+00 , 3.45551e+00 , 3.47449e+00 , 3.49358e+00 /) - kao_mn2o( 6, :, 8) = (/ & - & 3.16612e+00 , 3.18355e+00 , 3.20108e+00 , 3.21870e+00 , 3.23643e+00 , & - & 3.25425e+00 , 3.27217e+00 , 3.29018e+00 , 3.30830e+00 , 3.32652e+00 , & - & 3.34483e+00 , 3.36325e+00 , 3.38177e+00 , 3.40039e+00 , 3.41911e+00 , & - & 3.43794e+00 , 3.45687e+00 , 3.47591e+00 , 3.49505e+00 /) - kao_mn2o( 7, :, 8) = (/ & - & 3.19644e+00 , 3.21419e+00 , 3.23203e+00 , 3.24996e+00 , 3.26800e+00 , & - & 3.28614e+00 , 3.30438e+00 , 3.32272e+00 , 3.34116e+00 , 3.35970e+00 , & - & 3.37835e+00 , 3.39710e+00 , 3.41596e+00 , 3.43492e+00 , 3.45398e+00 , & - & 3.47315e+00 , 3.49243e+00 , 3.51181e+00 , 3.53130e+00 /) - kao_mn2o( 8, :, 8) = (/ & - & 3.35759e+00 , 3.37775e+00 , 3.39804e+00 , 3.41845e+00 , 3.43899e+00 , & - & 3.45964e+00 , 3.48042e+00 , 3.50133e+00 , 3.52236e+00 , 3.54351e+00 , & - & 3.56480e+00 , 3.58621e+00 , 3.60775e+00 , 3.62942e+00 , 3.65122e+00 , & - & 3.67315e+00 , 3.69521e+00 , 3.71741e+00 , 3.73974e+00 /) - kao_mn2o( 9, :, 8) = (/ & - & 3.17378e+00 , 3.19135e+00 , 3.20901e+00 , 3.22677e+00 , 3.24462e+00 , & - & 3.26258e+00 , 3.28063e+00 , 3.29879e+00 , 3.31704e+00 , 3.33540e+00 , & - & 3.35386e+00 , 3.37242e+00 , 3.39108e+00 , 3.40984e+00 , 3.42871e+00 , & - & 3.44769e+00 , 3.46677e+00 , 3.48595e+00 , 3.50524e+00 /) - kao_mn2o( 1, :, 9) = (/ & - & 2.09106e+01 , 2.08779e+01 , 2.08452e+01 , 2.08126e+01 , 2.07800e+01 , & - & 2.07475e+01 , 2.07150e+01 , 2.06826e+01 , 2.06502e+01 , 2.06179e+01 , & - & 2.05856e+01 , 2.05534e+01 , 2.05213e+01 , 2.04891e+01 , 2.04571e+01 , & - & 2.04251e+01 , 2.03931e+01 , 2.03612e+01 , 2.03293e+01 /) - kao_mn2o( 2, :, 9) = (/ & - & 2.60494e+00 , 2.62757e+00 , 2.65040e+00 , 2.67343e+00 , 2.69665e+00 , & - & 2.72008e+00 , 2.74372e+00 , 2.76756e+00 , 2.79160e+00 , 2.81586e+00 , & - & 2.84032e+00 , 2.86500e+00 , 2.88989e+00 , 2.91500e+00 , 2.94033e+00 , & - & 2.96588e+00 , 2.99164e+00 , 3.01764e+00 , 3.04386e+00 /) - kao_mn2o( 3, :, 9) = (/ & - & 2.42238e+00 , 2.44514e+00 , 2.46811e+00 , 2.49130e+00 , 2.51471e+00 , & - & 2.53834e+00 , 2.56219e+00 , 2.58626e+00 , 2.61056e+00 , 2.63509e+00 , & - & 2.65985e+00 , 2.68484e+00 , 2.71007e+00 , 2.73554e+00 , 2.76124e+00 , & - & 2.78718e+00 , 2.81337e+00 , 2.83981e+00 , 2.86649e+00 /) - kao_mn2o( 4, :, 9) = (/ & - & 2.33681e+00 , 2.35961e+00 , 2.38263e+00 , 2.40588e+00 , 2.42935e+00 , & - & 2.45305e+00 , 2.47699e+00 , 2.50115e+00 , 2.52556e+00 , 2.55020e+00 , & - & 2.57508e+00 , 2.60021e+00 , 2.62558e+00 , 2.65119e+00 , 2.67706e+00 , & - & 2.70318e+00 , 2.72955e+00 , 2.75619e+00 , 2.78308e+00 /) - kao_mn2o( 5, :, 9) = (/ & - & 2.26420e+00 , 2.28696e+00 , 2.30996e+00 , 2.33319e+00 , 2.35665e+00 , & - & 2.38035e+00 , 2.40429e+00 , 2.42846e+00 , 2.45288e+00 , 2.47755e+00 , & - & 2.50246e+00 , 2.52763e+00 , 2.55304e+00 , 2.57871e+00 , 2.60465e+00 , & - & 2.63084e+00 , 2.65729e+00 , 2.68401e+00 , 2.71100e+00 /) - kao_mn2o( 6, :, 9) = (/ & - & 2.19628e+00 , 2.21902e+00 , 2.24199e+00 , 2.26520e+00 , 2.28865e+00 , & - & 2.31234e+00 , 2.33628e+00 , 2.36047e+00 , 2.38491e+00 , 2.40959e+00 , & - & 2.43454e+00 , 2.45974e+00 , 2.48521e+00 , 2.51094e+00 , 2.53693e+00 , & - & 2.56319e+00 , 2.58973e+00 , 2.61654e+00 , 2.64363e+00 /) - kao_mn2o( 7, :, 9) = (/ & - & 2.07829e+00 , 2.10090e+00 , 2.12375e+00 , 2.14685e+00 , 2.17021e+00 , & - & 2.19381e+00 , 2.21767e+00 , 2.24180e+00 , 2.26618e+00 , 2.29083e+00 , & - & 2.31575e+00 , 2.34094e+00 , 2.36640e+00 , 2.39214e+00 , 2.41816e+00 , & - & 2.44446e+00 , 2.47105e+00 , 2.49793e+00 , 2.52510e+00 /) - kao_mn2o( 8, :, 9) = (/ & - & 1.68230e+00 , 1.70305e+00 , 1.72404e+00 , 1.74530e+00 , 1.76681e+00 , & - & 1.78860e+00 , 1.81065e+00 , 1.83297e+00 , 1.85557e+00 , 1.87845e+00 , & - & 1.90161e+00 , 1.92505e+00 , 1.94878e+00 , 1.97281e+00 , 1.99713e+00 , & - & 2.02176e+00 , 2.04668e+00 , 2.07191e+00 , 2.09746e+00 /) - kao_mn2o( 9, :, 9) = (/ & - & 2.23224e+00 , 2.25486e+00 , 2.27771e+00 , 2.30079e+00 , 2.32411e+00 , & - & 2.34766e+00 , 2.37145e+00 , 2.39548e+00 , 2.41975e+00 , 2.44427e+00 , & - & 2.46904e+00 , 2.49406e+00 , 2.51933e+00 , 2.54486e+00 , 2.57065e+00 , & - & 2.59670e+00 , 2.62301e+00 , 2.64959e+00 , 2.67644e+00 /) - kao_mn2o( 1, :,10) = (/ & - & 1.30711e+01 , 1.31853e+01 , 1.33004e+01 , 1.34166e+01 , 1.35339e+01 , & - & 1.36521e+01 , 1.37714e+01 , 1.38917e+01 , 1.40130e+01 , 1.41355e+01 , & - & 1.42590e+01 , 1.43835e+01 , 1.45092e+01 , 1.46360e+01 , 1.47638e+01 , & - & 1.48928e+01 , 1.50229e+01 , 1.51542e+01 , 1.52866e+01 /) - kao_mn2o( 2, :,10) = (/ & - & 2.71206e-01 , 2.90148e-01 , 3.10413e-01 , 3.32093e-01 , 3.55287e-01 , & - & 3.80102e-01 , 4.06649e-01 , 4.35051e-01 , 4.65436e-01 , 4.97943e-01 , & - & 5.32721e-01 , 5.69928e-01 , 6.09733e-01 , 6.52319e-01 , 6.97879e-01 , & - & 7.46621e-01 , 7.98767e-01 , 8.54555e-01 , 9.14239e-01 /) - kao_mn2o( 3, :,10) = (/ & - & 2.65609e-01 , 2.84236e-01 , 3.04170e-01 , 3.25501e-01 , 3.48329e-01 , & - & 3.72758e-01 , 3.98900e-01 , 4.26875e-01 , 4.56812e-01 , 4.88849e-01 , & - & 5.23132e-01 , 5.59820e-01 , 5.99080e-01 , 6.41095e-01 , 6.86055e-01 , & - & 7.34169e-01 , 7.85657e-01 , 8.40756e-01 , 8.99718e-01 /) - kao_mn2o( 4, :,10) = (/ & - & 2.55277e-01 , 2.73370e-01 , 2.92745e-01 , 3.13494e-01 , 3.35714e-01 , & - & 3.59508e-01 , 3.84989e-01 , 4.12275e-01 , 4.41496e-01 , 4.72788e-01 , & - & 5.06298e-01 , 5.42183e-01 , 5.80611e-01 , 6.21763e-01 , 6.65831e-01 , & - & 7.13023e-01 , 7.63560e-01 , 8.17678e-01 , 8.75633e-01 /) - kao_mn2o( 5, :,10) = (/ & - & 2.41481e-01 , 2.58840e-01 , 2.77446e-01 , 2.97390e-01 , 3.18768e-01 , & - & 3.41682e-01 , 3.66244e-01 , 3.92571e-01 , 4.20791e-01 , 4.51039e-01 , & - & 4.83461e-01 , 5.18215e-01 , 5.55466e-01 , 5.95396e-01 , 6.38195e-01 , & - & 6.84071e-01 , 7.33245e-01 , 7.85954e-01 , 8.42452e-01 /) - kao_mn2o( 6, :,10) = (/ & - & 2.37173e-01 , 2.54360e-01 , 2.72792e-01 , 2.92559e-01 , 3.13759e-01 , & - & 3.36495e-01 , 3.60878e-01 , 3.87029e-01 , 4.15074e-01 , 4.45152e-01 , & - & 4.77409e-01 , 5.12004e-01 , 5.49105e-01 , 5.88895e-01 , 6.31569e-01 , & - & 6.77334e-01 , 7.26416e-01 , 7.79055e-01 , 8.35508e-01 /) - kao_mn2o( 7, :,10) = (/ & - & 2.27414e-01 , 2.44231e-01 , 2.62292e-01 , 2.81689e-01 , 3.02520e-01 , & - & 3.24891e-01 , 3.48917e-01 , 3.74720e-01 , 4.02430e-01 , 4.32190e-01 , & - & 4.64151e-01 , 4.98475e-01 , 5.35337e-01 , 5.74926e-01 , 6.17442e-01 , & - & 6.63102e-01 , 7.12138e-01 , 7.64801e-01 , 8.21358e-01 /) - kao_mn2o( 8, :,10) = (/ & - & 1.77234e-01 , 1.92029e-01 , 2.08060e-01 , 2.25429e-01 , 2.44248e-01 , & - & 2.64638e-01 , 2.86730e-01 , 3.10667e-01 , 3.36601e-01 , 3.64701e-01 , & - & 3.95147e-01 , 4.28134e-01 , 4.63875e-01 , 5.02600e-01 , 5.44557e-01 , & - & 5.90017e-01 , 6.39272e-01 , 6.92639e-01 , 7.50461e-01 /) - kao_mn2o( 9, :,10) = (/ & - & 2.41727e-01 , 2.59094e-01 , 2.77710e-01 , 2.97662e-01 , 3.19049e-01 , & - & 3.41972e-01 , 3.66541e-01 , 3.92877e-01 , 4.21104e-01 , 4.51359e-01 , & - & 4.83788e-01 , 5.18547e-01 , 5.55804e-01 , 5.95737e-01 , 6.38539e-01 , & - & 6.84417e-01 , 7.33590e-01 , 7.86297e-01 , 8.42790e-01 /) - kao_mn2o( 1, :,11) = (/ & - & 6.65287e+00 , 6.69137e+00 , 6.73008e+00 , 6.76903e+00 , 6.80820e+00 , & - & 6.84759e+00 , 6.88721e+00 , 6.92707e+00 , 6.96715e+00 , 7.00746e+00 , & - & 7.04801e+00 , 7.08879e+00 , 7.12981e+00 , 7.17107e+00 , 7.21256e+00 , & - & 7.25430e+00 , 7.29628e+00 , 7.33850e+00 , 7.38096e+00 /) - kao_mn2o( 2, :,11) = (/ & - & 2.06252e-01 , 2.27731e-01 , 2.51447e-01 , 2.77633e-01 , 3.06546e-01 , & - & 3.38470e-01 , 3.73719e-01 , 4.12638e-01 , 4.55611e-01 , 5.03058e-01 , & - & 5.55447e-01 , 6.13292e-01 , 6.77160e-01 , 7.47680e-01 , 8.25544e-01 , & - & 9.11517e-01 , 1.00644e+00 , 1.11125e+00 , 1.22698e+00 /) - kao_mn2o( 3, :,11) = (/ & - & 2.05840e-01 , 2.27279e-01 , 2.50952e-01 , 2.77090e-01 , 3.05950e-01 , & - & 3.37816e-01 , 3.73002e-01 , 4.11852e-01 , 4.54748e-01 , 5.02113e-01 , & - & 5.54411e-01 , 6.12155e-01 , 6.75915e-01 , 7.46315e-01 , 8.24047e-01 , & - & 9.09876e-01 , 1.00465e+00 , 1.10928e+00 , 1.22482e+00 /) - kao_mn2o( 4, :,11) = (/ & - & 2.04702e-01 , 2.26031e-01 , 2.49582e-01 , 2.75587e-01 , 3.04301e-01 , & - & 3.36008e-01 , 3.71018e-01 , 4.09675e-01 , 4.52361e-01 , 4.99495e-01 , & - & 5.51539e-01 , 6.09007e-01 , 6.72461e-01 , 7.42528e-01 , 8.19895e-01 , & - & 9.05323e-01 , 9.99653e-01 , 1.10381e+00 , 1.21882e+00 /) - kao_mn2o( 5, :,11) = (/ & - & 2.03481e-01 , 2.24689e-01 , 2.48108e-01 , 2.73967e-01 , 3.02522e-01 , & - & 3.34053e-01 , 3.68871e-01 , 4.07317e-01 , 4.49771e-01 , 4.96649e-01 , & - & 5.48414e-01 , 6.05574e-01 , 6.68691e-01 , 7.38387e-01 , 8.15347e-01 , & - & 9.00329e-01 , 9.94168e-01 , 1.09779e+00 , 1.21221e+00 /) - kao_mn2o( 6, :,11) = (/ & - & 2.01513e-01 , 2.22529e-01 , 2.45738e-01 , 2.71367e-01 , 2.99670e-01 , & - & 3.30924e-01 , 3.65437e-01 , 4.03550e-01 , 4.45639e-01 , 4.92117e-01 , & - & 5.43442e-01 , 6.00120e-01 , 6.62710e-01 , 7.31827e-01 , 8.08153e-01 , & - & 8.92439e-01 , 9.85516e-01 , 1.08830e+00 , 1.20180e+00 /) - kao_mn2o( 7, :,11) = (/ & - & 1.97136e-01 , 2.17723e-01 , 2.40459e-01 , 2.65570e-01 , 2.93304e-01 , & - & 3.23933e-01 , 3.57762e-01 , 3.95122e-01 , 4.36385e-01 , 4.81956e-01 , & - & 5.32287e-01 , 5.87873e-01 , 6.49264e-01 , 7.17067e-01 , 7.91950e-01 , & - & 8.74653e-01 , 9.65992e-01 , 1.06687e+00 , 1.17828e+00 /) - kao_mn2o( 8, :,11) = (/ & - & 1.79518e-01 , 1.98371e-01 , 2.19204e-01 , 2.42224e-01 , 2.67662e-01 , & - & 2.95772e-01 , 3.26833e-01 , 3.61157e-01 , 3.99085e-01 , 4.40996e-01 , & - & 4.87309e-01 , 5.38486e-01 , 5.95037e-01 , 6.57526e-01 , 7.26579e-01 , & - & 8.02883e-01 , 8.87201e-01 , 9.80373e-01 , 1.08333e+00 /) - kao_mn2o( 9, :,11) = (/ & - & 2.03481e-01 , 2.24689e-01 , 2.48108e-01 , 2.73967e-01 , 3.02522e-01 , & - & 3.34053e-01 , 3.68871e-01 , 4.07317e-01 , 4.49771e-01 , 4.96649e-01 , & - & 5.48414e-01 , 6.05574e-01 , 6.68691e-01 , 7.38387e-01 , 8.15347e-01 , & - & 9.00329e-01 , 9.94168e-01 , 1.09779e+00 , 1.21221e+00 /) - kao_mn2o( 1, :,12) = (/ & - & 5.89636e+00 , 5.95081e+00 , 6.00576e+00 , 6.06121e+00 , 6.11718e+00 , & - & 6.17366e+00 , 6.23067e+00 , 6.28820e+00 , 6.34627e+00 , 6.40487e+00 , & - & 6.46401e+00 , 6.52369e+00 , 6.58393e+00 , 6.64472e+00 , 6.70608e+00 , & - & 6.76800e+00 , 6.83050e+00 , 6.89357e+00 , 6.95722e+00 /) - kao_mn2o( 2, :,12) = (/ & - & 7.18699e-05 , 9.48140e-05 , 1.25083e-04 , 1.65015e-04 , 2.17695e-04 , & - & 2.87193e-04 , 3.78877e-04 , 4.99831e-04 , 6.59400e-04 , 8.69909e-04 , & - & 1.14762e-03 , 1.51400e-03 , 1.99733e-03 , 2.63497e-03 , 3.47616e-03 , & - & 4.58591e-03 , 6.04993e-03 , 7.98133e-03 , 1.05293e-02 /) - kao_mn2o( 3, :,12) = (/ & - & 7.20868e-05 , 9.50993e-05 , 1.25458e-04 , 1.65508e-04 , 2.18344e-04 , & - & 2.88046e-04 , 3.80000e-04 , 5.01307e-04 , 6.61341e-04 , 8.72462e-04 , & - & 1.15098e-03 , 1.51841e-03 , 2.00313e-03 , 2.64260e-03 , 3.48620e-03 , & - & 4.59911e-03 , 6.06729e-03 , 8.00416e-03 , 1.05593e-02 /) - kao_mn2o( 4, :,12) = (/ & - & 7.21734e-05 , 9.52161e-05 , 1.25616e-04 , 1.65721e-04 , 2.18630e-04 , & - & 2.88432e-04 , 3.80519e-04 , 5.02007e-04 , 6.62282e-04 , 8.73727e-04 , & - & 1.15268e-03 , 1.52070e-03 , 2.00621e-03 , 2.64673e-03 , 3.49174e-03 , & - & 4.60655e-03 , 6.07727e-03 , 8.01755e-03 , 1.05773e-02 /) - kao_mn2o( 5, :,12) = (/ & - & 7.22599e-05 , 9.53329e-05 , 1.25773e-04 , 1.65933e-04 , 2.18916e-04 , & - & 2.88818e-04 , 3.81038e-04 , 5.02706e-04 , 6.63223e-04 , 8.74992e-04 , & - & 1.15438e-03 , 1.52298e-03 , 2.00928e-03 , 2.65085e-03 , 3.49728e-03 , & - & 4.61398e-03 , 6.08725e-03 , 8.03094e-03 , 1.05952e-02 /) - kao_mn2o( 6, :,12) = (/ & - & 7.29962e-05 , 9.63091e-05 , 1.27067e-04 , 1.67649e-04 , 2.21191e-04 , & - & 2.91833e-04 , 3.85036e-04 , 5.08005e-04 , 6.70247e-04 , 8.84304e-04 , & - & 1.16672e-03 , 1.53934e-03 , 2.03096e-03 , 2.67959e-03 , 3.53537e-03 , & - & 4.66447e-03 , 6.15417e-03 , 8.11962e-03 , 1.07128e-02 /) - kao_mn2o( 7, :,12) = (/ & - & 7.47398e-05 , 9.86139e-05 , 1.30114e-04 , 1.71677e-04 , 2.26516e-04 , & - & 2.98872e-04 , 3.94340e-04 , 5.20305e-04 , 6.86506e-04 , 9.05797e-04 , & - & 1.19514e-03 , 1.57690e-03 , 2.08061e-03 , 2.74522e-03 , 3.62213e-03 , & - & 4.77915e-03 , 6.30576e-03 , 8.32001e-03 , 1.09777e-02 /) - kao_mn2o( 8, :,12) = (/ & - & 7.57487e-05 , 9.99802e-05 , 1.31963e-04 , 1.74177e-04 , 2.29896e-04 , & - & 3.03438e-04 , 4.00506e-04 , 5.28625e-04 , 6.97729e-04 , 9.20927e-04 , & - & 1.21553e-03 , 1.60437e-03 , 2.11759e-03 , 2.79499e-03 , 3.68909e-03 , & - & 4.86921e-03 , 6.42684e-03 , 8.48274e-03 , 1.11963e-02 /) - kao_mn2o( 9, :,12) = (/ & - & 7.22467e-05 , 9.53177e-05 , 1.25756e-04 , 1.65915e-04 , 2.18898e-04 , & - & 2.88800e-04 , 3.81024e-04 , 5.02700e-04 , 6.63231e-04 , 8.75024e-04 , & - & 1.15445e-03 , 1.52311e-03 , 2.00950e-03 , 2.65121e-03 , 3.49784e-03 , & - & 4.61483e-03 , 6.08852e-03 , 8.03280e-03 , 1.05980e-02 /) - kao_mn2o( 1, :,13) = (/ & - & 1.14265e+01 , 1.16380e+01 , 1.18534e+01 , 1.20728e+01 , 1.22962e+01 , & - & 1.25238e+01 , 1.27556e+01 , 1.29917e+01 , 1.32322e+01 , 1.34771e+01 , & - & 1.37265e+01 , 1.39806e+01 , 1.42394e+01 , 1.45029e+01 , 1.47714e+01 , & - & 1.50448e+01 , 1.53232e+01 , 1.56068e+01 , 1.58957e+01 /) - kao_mn2o( 2, :,13) = (/ & - & 7.97796e-05 , 1.05659e-04 , 1.39932e-04 , 1.85324e-04 , 2.45439e-04 , & - & 3.25054e-04 , 4.30496e-04 , 5.70140e-04 , 7.55082e-04 , 1.00002e-03 , & - & 1.32440e-03 , 1.75401e-03 , 2.32298e-03 , 3.07651e-03 , 4.07447e-03 , & - & 5.39614e-03 , 7.14655e-03 , 9.46475e-03 , 1.25349e-02 /) - kao_mn2o( 3, :,13) = (/ & - & 7.95035e-05 , 1.05293e-04 , 1.39449e-04 , 1.84684e-04 , 2.44592e-04 , & - & 3.23934e-04 , 4.29013e-04 , 5.68178e-04 , 7.52486e-04 , 9.96580e-04 , & - & 1.31985e-03 , 1.74800e-03 , 2.31502e-03 , 3.06597e-03 , 4.06052e-03 , & - & 5.37770e-03 , 7.12214e-03 , 9.43244e-03 , 1.24922e-02 /) - kao_mn2o( 4, :,13) = (/ & - & 7.92339e-05 , 1.04938e-04 , 1.38980e-04 , 1.84065e-04 , 2.43776e-04 , & - & 3.22857e-04 , 4.27593e-04 , 5.66305e-04 , 7.50016e-04 , 9.93322e-04 , & - & 1.31556e-03 , 1.74233e-03 , 2.30754e-03 , 3.05612e-03 , 4.04752e-03 , & - & 5.36055e-03 , 7.09953e-03 , 9.40262e-03 , 1.24528e-02 /) - kao_mn2o( 5, :,13) = (/ & - & 7.90000e-05 , 1.04627e-04 , 1.38566e-04 , 1.83516e-04 , 2.43046e-04 , & - & 3.21887e-04 , 4.26303e-04 , 5.64591e-04 , 7.47738e-04 , 9.90295e-04 , & - & 1.31154e-03 , 1.73698e-03 , 2.30044e-03 , 3.04667e-03 , 4.03498e-03 , & - & 5.34388e-03 , 7.07737e-03 , 9.37318e-03 , 1.24137e-02 /) - kao_mn2o( 6, :,13) = (/ & - & 7.76004e-05 , 1.02776e-04 , 1.36118e-04 , 1.80278e-04 , 2.38764e-04 , & - & 3.16224e-04 , 4.18814e-04 , 5.54686e-04 , 7.34638e-04 , 9.72970e-04 , & - & 1.28862e-03 , 1.70668e-03 , 2.26036e-03 , 2.99367e-03 , 3.96488e-03 , & - & 5.25118e-03 , 6.95477e-03 , 9.21105e-03 , 1.21993e-02 /) - kao_mn2o( 7, :,13) = (/ & - & 7.52813e-05 , 9.97094e-05 , 1.32064e-04 , 1.74918e-04 , 2.31677e-04 , & - & 3.06854e-04 , 4.06426e-04 , 5.38308e-04 , 7.12984e-04 , 9.44341e-04 , & - & 1.25077e-03 , 1.65664e-03 , 2.19420e-03 , 2.90620e-03 , 3.84923e-03 , & - & 5.09828e-03 , 6.75263e-03 , 8.94379e-03 , 1.18460e-02 /) - kao_mn2o( 8, :,13) = (/ & - & 6.87436e-05 , 9.10605e-05 , 1.20622e-04 , 1.59781e-04 , 2.11653e-04 , & - & 2.80364e-04 , 3.71381e-04 , 4.91946e-04 , 6.51651e-04 , 8.63203e-04 , & - & 1.14343e-03 , 1.51464e-03 , 2.00635e-03 , 2.65769e-03 , 3.52048e-03 , & - & 4.66337e-03 , 6.17729e-03 , 8.18269e-03 , 1.08391e-02 /) - kao_mn2o( 9, :,13) = (/ & - & 7.90357e-05 , 1.04671e-04 , 1.38622e-04 , 1.83585e-04 , 2.43132e-04 , & - & 3.21994e-04 , 4.26434e-04 , 5.64750e-04 , 7.47931e-04 , 9.90526e-04 , & - & 1.31181e-03 , 1.73730e-03 , 2.30081e-03 , 3.04709e-03 , 4.03543e-03 , & - & 5.34435e-03 , 7.07782e-03 , 9.37355e-03 , 1.24139e-02 /) - kao_mn2o( 1, :,14) = (/ & - & 1.61373e+01 , 1.64784e+01 , 1.68266e+01 , 1.71822e+01 , 1.75454e+01 , & - & 1.79162e+01 , 1.82948e+01 , 1.86814e+01 , 1.90762e+01 , 1.94794e+01 , & - & 1.98911e+01 , 2.03114e+01 , 2.07407e+01 , 2.11790e+01 , 2.16266e+01 , & - & 2.20836e+01 , 2.25504e+01 , 2.30269e+01 , 2.35136e+01 /) - kao_mn2o( 2, :,14) = (/ & - & 6.92866e-10 , 9.24655e-10 , 1.23398e-09 , 1.64680e-09 , 2.19771e-09 , & - & 2.93292e-09 , 3.91409e-09 , 5.22349e-09 , 6.97093e-09 , 9.30295e-09 , & - & 1.24151e-08 , 1.65684e-08 , 2.21111e-08 , 2.95081e-08 , 3.93796e-08 , & - & 5.25535e-08 , 7.01346e-08 , 9.35970e-08 , 1.24908e-07 /) - kao_mn2o( 3, :,14) = (/ & - & 6.94564e-10 , 9.26928e-10 , 1.23703e-09 , 1.65088e-09 , 2.20317e-09 , & - & 2.94024e-09 , 3.92389e-09 , 5.23661e-09 , 6.98851e-09 , 9.32650e-09 , & - & 1.24467e-08 , 1.66107e-08 , 2.21677e-08 , 2.95839e-08 , 3.94811e-08 , & - & 5.26894e-08 , 7.03165e-08 , 9.38407e-08 , 1.25235e-07 /) - kao_mn2o( 4, :,14) = (/ & - & 6.98644e-10 , 9.32310e-10 , 1.24413e-09 , 1.66023e-09 , 2.21551e-09 , & - & 2.95649e-09 , 3.94531e-09 , 5.26484e-09 , 7.02570e-09 , 9.37548e-09 , & - & 1.25112e-08 , 1.66956e-08 , 2.22795e-08 , 2.97311e-08 , 3.96748e-08 , & - & 5.29443e-08 , 7.06518e-08 , 9.42817e-08 , 1.25815e-07 /) - kao_mn2o( 5, :,14) = (/ & - & 7.03261e-10 , 9.38472e-10 , 1.25235e-09 , 1.67121e-09 , 2.23016e-09 , & - & 2.97605e-09 , 3.97141e-09 , 5.29968e-09 , 7.07220e-09 , 9.43754e-09 , & - & 1.25940e-08 , 1.68062e-08 , 2.24271e-08 , 2.99280e-08 , 3.99376e-08 , & - & 5.32951e-08 , 7.11200e-08 , 9.49066e-08 , 1.26649e-07 /) - kao_mn2o( 6, :,14) = (/ & - & 7.12478e-10 , 9.50674e-10 , 1.26850e-09 , 1.69259e-09 , 2.25845e-09 , & - & 3.01350e-09 , 4.02096e-09 , 5.36525e-09 , 7.15896e-09 , 9.55233e-09 , & - & 1.27459e-08 , 1.70071e-08 , 2.26928e-08 , 3.02795e-08 , 4.04025e-08 , & - & 5.39099e-08 , 7.19330e-08 , 9.59815e-08 , 1.28070e-07 /) - kao_mn2o( 7, :,14) = (/ & - & 7.28994e-10 , 9.72644e-10 , 1.29773e-09 , 1.73147e-09 , 2.31017e-09 , & - & 3.08230e-09 , 4.11249e-09 , 5.48700e-09 , 7.32092e-09 , 9.76777e-09 , & - & 1.30324e-08 , 1.73883e-08 , 2.31999e-08 , 3.09540e-08 , 4.12996e-08 , & - & 5.51032e-08 , 7.35203e-08 , 9.80928e-08 , 1.30878e-07 /) - kao_mn2o( 8, :,14) = (/ & - & 7.87604e-10 , 1.05043e-09 , 1.40097e-09 , 1.86848e-09 , 2.49201e-09 , & - & 3.32360e-09 , 4.43271e-09 , 5.91194e-09 , 7.88479e-09 , 1.05160e-08 , & - & 1.40253e-08 , 1.87056e-08 , 2.49478e-08 , 3.32730e-08 , 4.43764e-08 , & - & 5.91851e-08 , 7.89356e-08 , 1.05277e-07 , 1.40408e-07 /) - kao_mn2o( 9, :,14) = (/ & - & 7.03261e-10 , 9.38472e-10 , 1.25235e-09 , 1.67121e-09 , 2.23016e-09 , & - & 2.97605e-09 , 3.97141e-09 , 5.29968e-09 , 7.07220e-09 , 9.43754e-09 , & - & 1.25940e-08 , 1.68062e-08 , 2.24271e-08 , 2.99280e-08 , 3.99376e-08 , & - & 5.32951e-08 , 7.11200e-08 , 9.49066e-08 , 1.26649e-07 /) - kao_mn2o( 1, :,15) = (/ & - & 2.14029e+01 , 2.16782e+01 , 2.19571e+01 , 2.22396e+01 , 2.25257e+01 , & - & 2.28155e+01 , 2.31090e+01 , 2.34063e+01 , 2.37074e+01 , 2.40124e+01 , & - & 2.43213e+01 , 2.46342e+01 , 2.49511e+01 , 2.52721e+01 , 2.55972e+01 , & - & 2.59265e+01 , 2.62600e+01 , 2.65979e+01 , 2.69400e+01 /) - kao_mn2o( 2, :,15) = (/ & - & 5.68659e-10 , 7.55629e-10 , 1.00407e-09 , 1.33421e-09 , 1.77288e-09 , & - & 2.35579e-09 , 3.13036e-09 , 4.15960e-09 , 5.52724e-09 , 7.34455e-09 , & - & 9.75939e-09 , 1.29682e-08 , 1.72320e-08 , 2.28978e-08 , 3.04264e-08 , & - & 4.04304e-08 , 5.37236e-08 , 7.13875e-08 , 9.48591e-08 /) - kao_mn2o( 3, :,15) = (/ & - & 5.59573e-10 , 7.43558e-10 , 9.88035e-10 , 1.31290e-09 , 1.74457e-09 , & - & 2.31817e-09 , 3.08037e-09 , 4.09318e-09 , 5.43900e-09 , 7.22730e-09 , & - & 9.60360e-09 , 1.27612e-08 , 1.69570e-08 , 2.25324e-08 , 2.99409e-08 , & - & 3.97853e-08 , 5.28665e-08 , 7.02486e-08 , 9.33459e-08 /) - kao_mn2o( 4, :,15) = (/ & - & 5.50488e-10 , 7.31486e-10 , 9.71996e-10 , 1.29158e-09 , 1.71625e-09 , & - & 2.28055e-09 , 3.03039e-09 , 4.02676e-09 , 5.35075e-09 , 7.11005e-09 , & - & 9.44781e-09 , 1.25542e-08 , 1.66820e-08 , 2.21670e-08 , 2.94554e-08 , & - & 3.91402e-08 , 5.20093e-08 , 6.91098e-08 , 9.18327e-08 /) - kao_mn2o( 5, :,15) = (/ & - & 5.34010e-10 , 7.09574e-10 , 9.42858e-10 , 1.25284e-09 , 1.66473e-09 , & - & 2.21203e-09 , 2.93927e-09 , 3.90560e-09 , 5.18963e-09 , 6.89580e-09 , & - & 9.16290e-09 , 1.21754e-08 , 1.61782e-08 , 2.14970e-08 , 2.85645e-08 , & - & 3.79555e-08 , 5.04340e-08 , 6.70149e-08 , 8.90470e-08 /) - kao_mn2o( 6, :,15) = (/ & - & 5.08144e-10 , 6.75221e-10 , 8.97231e-10 , 1.19224e-09 , 1.58424e-09 , & - & 2.10513e-09 , 2.79729e-09 , 3.71703e-09 , 4.93919e-09 , 6.56317e-09 , & - & 8.72112e-09 , 1.15886e-08 , 1.53989e-08 , 2.04620e-08 , 2.71898e-08 , & - & 3.61297e-08 , 4.80091e-08 , 6.37943e-08 , 8.47696e-08 /) - kao_mn2o( 7, :,15) = (/ & - & 4.56716e-10 , 6.06884e-10 , 8.06427e-10 , 1.07158e-09 , 1.42391e-09 , & - & 1.89210e-09 , 2.51422e-09 , 3.34089e-09 , 4.43938e-09 , 5.89904e-09 , & - & 7.83864e-09 , 1.04160e-08 , 1.38408e-08 , 1.83916e-08 , 2.44387e-08 , & - & 3.24742e-08 , 4.31517e-08 , 5.73399e-08 , 7.61932e-08 /) - kao_mn2o( 8, :,15) = (/ & - & 2.78366e-10 , 3.69881e-10 , 4.91482e-10 , 6.53061e-10 , 8.67760e-10 , & - & 1.15304e-09 , 1.53211e-09 , 2.03581e-09 , 2.70510e-09 , 3.59441e-09 , & - & 4.77611e-09 , 6.34629e-09 , 8.43268e-09 , 1.12050e-08 , 1.48887e-08 , & - & 1.97835e-08 , 2.62875e-08 , 3.49296e-08 , 4.64130e-08 /) - kao_mn2o( 9, :,15) = (/ & - & 5.34010e-10 , 7.09574e-10 , 9.42858e-10 , 1.25284e-09 , 1.66473e-09 , & - & 2.21203e-09 , 2.93927e-09 , 3.90560e-09 , 5.18963e-09 , 6.89580e-09 , & - & 9.16290e-09 , 1.21754e-08 , 1.61782e-08 , 2.14970e-08 , 2.85645e-08 , & - & 3.79555e-08 , 5.04340e-08 , 6.70149e-08 , 8.90470e-08 /) - kao_mn2o( 1, :,16) = (/ & - & 2.90784e+01 , 2.93787e+01 , 2.96820e+01 , 2.99885e+01 , 3.02982e+01 , & - & 3.06110e+01 , 3.09271e+01 , 3.12464e+01 , 3.15690e+01 , 3.18950e+01 , & - & 3.22243e+01 , 3.25571e+01 , 3.28932e+01 , 3.32329e+01 , 3.35760e+01 , & - & 3.39227e+01 , 3.42730e+01 , 3.46269e+01 , 3.49844e+01 /) - kao_mn2o( 2, :,16) = (/ & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 /) - kao_mn2o( 3, :,16) = (/ & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 /) - kao_mn2o( 4, :,16) = (/ & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 /) - kao_mn2o( 5, :,16) = (/ & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 /) - kao_mn2o( 6, :,16) = (/ & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 /) - kao_mn2o( 7, :,16) = (/ & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 /) - kao_mn2o( 8, :,16) = (/ & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 /) - kao_mn2o( 9, :,16) = (/ & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , & - & 0.00000e+00 , 0.00000e+00 , 0.00000e+00 , 0.00000e+00 /) - -! The array KBO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level above 100~ mb. The first index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The second index -! runs over the g-channel (1 to 16). - - kbo_mn2o(:, 1) = (/ & - & 8.42688e-03 , 8.96787e-03 , 9.54358e-03 , 1.01563e-02 , 1.08083e-02 , & - & 1.15021e-02 , 1.22405e-02 , 1.30263e-02 , 1.38626e-02 , 1.47525e-02 , & - & 1.56996e-02 , 1.67075e-02 , 1.77800e-02 , 1.89215e-02 , 2.01362e-02 , & - & 2.14289e-02 , 2.28045e-02 , 2.42685e-02 , 2.58265e-02 /) - kbo_mn2o(:, 2) = (/ & - & 2.24976e-02 , 2.38935e-02 , 2.53762e-02 , 2.69508e-02 , 2.86231e-02 , & - & 3.03991e-02 , 3.22854e-02 , 3.42887e-02 , 3.64163e-02 , 3.86760e-02 , & - & 4.10759e-02 , 4.36246e-02 , 4.63315e-02 , 4.92064e-02 , 5.22597e-02 , & - & 5.55024e-02 , 5.89464e-02 , 6.26040e-02 , 6.64886e-02 /) - kbo_mn2o(:, 3) = (/ & - & 5.93542e-02 , 6.37312e-02 , 6.84310e-02 , 7.34774e-02 , 7.88960e-02 , & - & 8.47141e-02 , 9.09613e-02 , 9.76692e-02 , 1.04872e-01 , 1.12605e-01 , & - & 1.20910e-01 , 1.29826e-01 , 1.39400e-01 , 1.49680e-01 , 1.60718e-01 , & - & 1.72570e-01 , 1.85296e-01 , 1.98961e-01 , 2.13633e-01 /) - kbo_mn2o(:, 4) = (/ & - & 1.98022e-01 , 2.05895e-01 , 2.14082e-01 , 2.22594e-01 , 2.31445e-01 , & - & 2.40647e-01 , 2.50216e-01 , 2.60164e-01 , 2.70509e-01 , 2.81265e-01 , & - & 2.92448e-01 , 3.04076e-01 , 3.16167e-01 , 3.28738e-01 , 3.41809e-01 , & - & 3.55400e-01 , 3.69531e-01 , 3.84224e-01 , 3.99501e-01 /) - kbo_mn2o(:, 5) = (/ & - & 6.41413e-01 , 6.46239e-01 , 6.51101e-01 , 6.56000e-01 , 6.60936e-01 , & - & 6.65910e-01 , 6.70920e-01 , 6.75968e-01 , 6.81054e-01 , 6.86179e-01 , & - & 6.91342e-01 , 6.96544e-01 , 7.01785e-01 , 7.07065e-01 , 7.12385e-01 , & - & 7.17746e-01 , 7.23146e-01 , 7.28587e-01 , 7.34070e-01 /) - kbo_mn2o(:, 6) = (/ & - & 1.47906e+00 , 1.48768e+00 , 1.49635e+00 , 1.50507e+00 , 1.51384e+00 , & - & 1.52267e+00 , 1.53154e+00 , 1.54047e+00 , 1.54944e+00 , 1.55847e+00 , & - & 1.56755e+00 , 1.57669e+00 , 1.58588e+00 , 1.59512e+00 , 1.60442e+00 , & - & 1.61377e+00 , 1.62317e+00 , 1.63263e+00 , 1.64215e+00 /) - kbo_mn2o(:, 7) = (/ & - & 3.53152e+00 , 3.55492e+00 , 3.57848e+00 , 3.60219e+00 , 3.62606e+00 , & - & 3.65008e+00 , 3.67427e+00 , 3.69862e+00 , 3.72313e+00 , 3.74780e+00 , & - & 3.77263e+00 , 3.79763e+00 , 3.82279e+00 , 3.84812e+00 , 3.87362e+00 , & - & 3.89929e+00 , 3.92513e+00 , 3.95114e+00 , 3.97732e+00 /) - kbo_mn2o(:, 8) = (/ & - & 9.06783e+00 , 9.04597e+00 , 9.02415e+00 , 9.00239e+00 , 8.98069e+00 , & - & 8.95903e+00 , 8.93743e+00 , 8.91588e+00 , 8.89438e+00 , 8.87293e+00 , & - & 8.85154e+00 , 8.83020e+00 , 8.80890e+00 , 8.78766e+00 , 8.76647e+00 , & - & 8.74533e+00 , 8.72425e+00 , 8.70321e+00 , 8.68223e+00 /) - kbo_mn2o(:, 9) = (/ & - & 3.88220e+01 , 3.85805e+01 , 3.83405e+01 , 3.81019e+01 , 3.78649e+01 , & - & 3.76293e+01 , 3.73952e+01 , 3.71625e+01 , 3.69313e+01 , 3.67016e+01 , & - & 3.64732e+01 , 3.62463e+01 , 3.60208e+01 , 3.57967e+01 , 3.55740e+01 , & - & 3.53527e+01 , 3.51327e+01 , 3.49142e+01 , 3.46970e+01 /) - kbo_mn2o(:, 10) = (/ & - & 1.14211e+02 , 1.13955e+02 , 1.13700e+02 , 1.13445e+02 , 1.13191e+02 , & - & 1.12938e+02 , 1.12685e+02 , 1.12433e+02 , 1.12181e+02 , 1.11930e+02 , & - & 1.11679e+02 , 1.11429e+02 , 1.11180e+02 , 1.10931e+02 , 1.10682e+02 , & - & 1.10434e+02 , 1.10187e+02 , 1.09940e+02 , 1.09694e+02 /) - kbo_mn2o(:, 11) = (/ & - & 1.60513e+02 , 1.60857e+02 , 1.61201e+02 , 1.61547e+02 , 1.61893e+02 , & - & 1.62240e+02 , 1.62587e+02 , 1.62936e+02 , 1.63285e+02 , 1.63635e+02 , & - & 1.63985e+02 , 1.64337e+02 , 1.64689e+02 , 1.65041e+02 , 1.65395e+02 , & - & 1.65749e+02 , 1.66105e+02 , 1.66460e+02 , 1.66817e+02 /) - kbo_mn2o(:, 12) = (/ & - & 1.71473e+02 , 1.72766e+02 , 1.74068e+02 , 1.75381e+02 , 1.76703e+02 , & - & 1.78035e+02 , 1.79377e+02 , 1.80729e+02 , 1.82091e+02 , 1.83464e+02 , & - & 1.84847e+02 , 1.86240e+02 , 1.87644e+02 , 1.89059e+02 , 1.90484e+02 , & - & 1.91920e+02 , 1.93367e+02 , 1.94824e+02 , 1.96293e+02 /) - kbo_mn2o(:, 13) = (/ & - & 2.71287e+01 , 2.75538e+01 , 2.79856e+01 , 2.84241e+01 , 2.88695e+01 , & - & 2.93219e+01 , 2.97814e+01 , 3.02480e+01 , 3.07220e+01 , 3.12035e+01 , & - & 3.16924e+01 , 3.21890e+01 , 3.26934e+01 , 3.32058e+01 , 3.37261e+01 , & - & 3.42546e+01 , 3.47914e+01 , 3.53365e+01 , 3.58903e+01 /) - kbo_mn2o(:, 14) = (/ & - & 1.70389e+01 , 1.70899e+01 , 1.71411e+01 , 1.71924e+01 , 1.72439e+01 , & - & 1.72955e+01 , 1.73473e+01 , 1.73992e+01 , 1.74513e+01 , 1.75035e+01 , & - & 1.75559e+01 , 1.76085e+01 , 1.76612e+01 , 1.77141e+01 , 1.77671e+01 , & - & 1.78203e+01 , 1.78736e+01 , 1.79271e+01 , 1.79808e+01 /) - kbo_mn2o(:, 15) = (/ & - & 2.49725e+00 , 2.66861e+00 , 2.85174e+00 , 3.04743e+00 , 3.25655e+00 , & - & 3.48003e+00 , 3.71883e+00 , 3.97403e+00 , 4.24673e+00 , 4.53815e+00 , & - & 4.84957e+00 , 5.18236e+00 , 5.53798e+00 , 5.91801e+00 , 6.32412e+00 , & - & 6.75809e+00 , 7.22185e+00 , 7.71742e+00 , 8.24701e+00 /) - kbo_mn2o(:, 16) = (/ & - & 1.82935e-03 , 2.58912e-03 , 3.66444e-03 , 5.18637e-03 , 7.34039e-03 , & - & 1.03890e-02 , 1.47038e-02 , 2.08106e-02 , 2.94538e-02 , 4.16865e-02 , & - & 5.89999e-02 , 8.35040e-02 , 1.18185e-01 , 1.67270e-01 , 2.36741e-01 , & - & 3.35065e-01 , 4.74225e-01 , 6.71180e-01 , 9.49936e-01 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &7.5352e-06 ,2.9812e-05 ,1.4497e-04 ,4.4006e-04 ,1.0492e-03 ,1.9676e-03 , & - &1.9989e-03 ,1.9099e-03 ,2.2121e-03 ,2.4491e-03 ,2.9573e-03 ,2.6344e-03 , & - &3.0629e-03 ,3.3547e-03 ,5.0643e-03 ,5.0642e-03 /) - forrefo(2,:) = (/ & - &6.6070e-06 ,4.8618e-05 ,3.1112e-04 ,8.4235e-04 ,1.4179e-03 ,1.4315e-03 , & - &1.4685e-03 ,1.6554e-03 ,2.1171e-03 ,2.3545e-03 ,2.5165e-03 ,2.7680e-03 , & - &2.6985e-03 ,3.5345e-03 ,4.2924e-03 ,5.0712e-03 /) - forrefo(3,:) = (/ & - &6.5962e-06 ,7.2595e-04 ,1.3429e-03 ,1.1675e-03 ,9.8384e-04 ,8.8787e-04 , & - &8.7557e-04 ,8.0589e-04 ,7.7024e-04 ,8.7518e-04 ,9.5213e-04 ,9.0849e-04 , & - &1.2596e-03 ,2.5106e-03 ,3.9471e-03 ,5.0742e-03 /) - forrefo(4,:) = (/ & - &3.6217e-04 ,1.0709e-03 ,1.0628e-03 ,8.5640e-04 ,8.9332e-04 ,8.3372e-04 , & - &7.8539e-04 ,8.2828e-04 ,8.3329e-04 ,8.5118e-04 ,8.2878e-04 ,6.8570e-04 , & - &6.3815e-04 ,8.0648e-04 ,2.3236e-03 ,4.0321e-03 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 2.83453e-02 , 2.51439e-02 , 2.23040e-02 , 1.97849e-02 , 1.75503e-02 , & - & 1.55681e-02 , 1.38097e-02 , 1.22500e-02 , 1.08664e-02 , 9.63912e-03 /) - selfrefo(:, 2) = (/ & - & 3.05185e-02 , 2.72374e-02 , 2.43090e-02 , 2.16955e-02 , 1.93629e-02 , & - & 1.72811e-02 , 1.54232e-02 , 1.37650e-02 , 1.22851e-02 , 1.09643e-02 /) - selfrefo(:, 3) = (/ & - & 4.23833e-02 , 3.76250e-02 , 3.34010e-02 , 2.96512e-02 , 2.63223e-02 , & - & 2.33672e-02 , 2.07439e-02 , 1.84150e-02 , 1.63476e-02 , 1.45123e-02 /) - selfrefo(:, 4) = (/ & - & 5.76481e-02 , 5.13686e-02 , 4.57730e-02 , 4.07870e-02 , 3.63441e-02 , & - & 3.23851e-02 , 2.88574e-02 , 2.57140e-02 , 2.29130e-02 , 2.04171e-02 /) - selfrefo(:, 5) = (/ & - & 6.92255e-02 , 6.33521e-02 , 5.79770e-02 , 5.30580e-02 , 4.85563e-02 , & - & 4.44365e-02 , 4.06663e-02 , 3.72160e-02 , 3.40584e-02 , 3.11687e-02 /) - selfrefo(:, 6) = (/ & - & 6.07694e-02 , 5.94182e-02 , 5.80970e-02 , 5.68052e-02 , 5.55422e-02 , & - & 5.43072e-02 , 5.30997e-02 , 5.19190e-02 , 5.07646e-02 , 4.96358e-02 /) - selfrefo(:, 7) = (/ & - & 6.23749e-02 , 6.07744e-02 , 5.92150e-02 , 5.76956e-02 , 5.62152e-02 , & - & 5.47728e-02 , 5.33674e-02 , 5.19980e-02 , 5.06638e-02 , 4.93638e-02 /) - selfrefo(:, 8) = (/ & - & 6.90744e-02 , 6.61811e-02 , 6.34090e-02 , 6.07530e-02 , 5.82083e-02 , & - & 5.57702e-02 , 5.34342e-02 , 5.11960e-02 , 4.90516e-02 , 4.69970e-02 /) - selfrefo(:, 9) = (/ & - & 8.08992e-02 , 7.68876e-02 , 7.30750e-02 , 6.94514e-02 , 6.60075e-02 , & - & 6.27344e-02 , 5.96236e-02 , 5.66670e-02 , 5.38570e-02 , 5.11864e-02 /) - selfrefo(:,10) = (/ & - & 8.70197e-02 , 8.27485e-02 , 7.86870e-02 , 7.48248e-02 , 7.11522e-02 , & - & 6.76599e-02 , 6.43389e-02 , 6.11810e-02 , 5.81781e-02 , 5.53225e-02 /) - selfrefo(:,11) = (/ & - & 8.84776e-02 , 8.54262e-02 , 8.24800e-02 , 7.96354e-02 , 7.68890e-02 , & - & 7.42373e-02 , 7.16770e-02 , 6.92050e-02 , 6.68183e-02 , 6.45139e-02 /) - selfrefo(:,12) = (/ & - & 9.82552e-02 , 9.25696e-02 , 8.72130e-02 , 8.21664e-02 , 7.74118e-02 , & - & 7.29323e-02 , 6.87121e-02 , 6.47360e-02 , 6.09900e-02 , 5.74608e-02 /) - selfrefo(:,13) = (/ & - & 9.32447e-02 , 8.96818e-02 , 8.62550e-02 , 8.29592e-02 , 7.97893e-02 , & - & 7.67405e-02 , 7.38082e-02 , 7.09880e-02 , 6.82755e-02 , 6.56667e-02 /) - selfrefo(:,14) = (/ & - & 1.15363e-01 , 1.08593e-01 , 1.02220e-01 , 9.62210e-02 , 9.05741e-02 , & - & 8.52585e-02 , 8.02549e-02 , 7.55450e-02 , 7.11115e-02 , 6.69382e-02 /) - selfrefo(:,15) = (/ & - & 1.23179e-01 , 1.19247e-01 , 1.15440e-01 , 1.11755e-01 , 1.08187e-01 , & - & 1.04734e-01 , 1.01391e-01 , 9.81540e-02 , 9.50207e-02 , 9.19875e-02 /) - selfrefo(:,16) = (/ & - & 1.44104e-01 , 1.36412e-01 , 1.29130e-01 , 1.22237e-01 , 1.15712e-01 , & - & 1.09535e-01 , 1.03688e-01 , 9.81530e-02 , 9.29135e-02 , 8.79537e-02 /) - - end subroutine lw_kgb09 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_10.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_10.F90 deleted file mode 100644 index 2b101e8f2..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_10.F90 +++ /dev/null @@ -1,2080 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb10 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg10, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level : P = 212.7250, T = 223.06 K - fracrefao(:) = (/ & - & 1.6909e-01 , 1.5419e-01 , 1.3999e-01 , 1.2637e-01 , & - & 1.1429e-01 , 9.9676e-02 , 8.0093e-02 , 6.0283e-02 , & - & 4.1077e-02 , 4.4857e-03 , 3.6545e-03 , 2.9243e-03 , & - & 2.0407e-03 , 1.2891e-03 , 4.8767e-04 , 6.7748e-05 /) - -! Planck fraction mapping level : P = 95.58350 mb, T = 215.70 K - fracrefbo(:) = (/ & - & 1.7391e-01 , 1.5680e-01 , 1.4419e-01 , 1.2672e-01 , & - & 1.0708e-01 , 9.7034e-02 , 7.8545e-02 , 5.9784e-02 , & - & 4.0879e-02 , 4.4704e-03 , 3.7150e-03 , 2.9038e-03 , & - & 2.1454e-03 , 1.2802e-03 , 4.8328e-04 , 6.7378e-05 /) - -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels > ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the corresponding TREF for this pressure level, -! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, -! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second -! index, JP, runs from 1 to 13 and refers to the corresponding -! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). -! The third index, IG, goes from 1 to 16, and tells us which -! g-interval the absorption coefficients are for. - - kao(:, 1, 1) = (/ & - &2.7213e-02 ,2.9029e-02 ,3.0838e-02 ,3.2767e-02 ,3.4630e-02 /) - kao(:, 2, 1) = (/ & - &2.1383e-02 ,2.2832e-02 ,2.4365e-02 ,2.5925e-02 ,2.7376e-02 /) - kao(:, 3, 1) = (/ & - &1.6478e-02 ,1.7675e-02 ,1.8942e-02 ,2.0177e-02 ,2.1374e-02 /) - kao(:, 4, 1) = (/ & - &1.2848e-02 ,1.3809e-02 ,1.4825e-02 ,1.5852e-02 ,1.6799e-02 /) - kao(:, 5, 1) = (/ & - &1.0029e-02 ,1.0847e-02 ,1.1686e-02 ,1.2512e-02 ,1.3297e-02 /) - kao(:, 6, 1) = (/ & - &7.8313e-03 ,8.5460e-03 ,9.2025e-03 ,9.9079e-03 ,1.0554e-02 /) - kao(:, 7, 1) = (/ & - &6.1234e-03 ,6.6846e-03 ,7.2818e-03 ,7.8451e-03 ,8.4144e-03 /) - kao(:, 8, 1) = (/ & - &4.8747e-03 ,5.2881e-03 ,5.7474e-03 ,6.2355e-03 ,6.7085e-03 /) - kao(:, 9, 1) = (/ & - &4.1059e-03 ,4.5848e-03 ,4.9152e-03 ,5.2401e-03 ,5.5908e-03 /) - kao(:,10, 1) = (/ & - &3.5412e-03 ,4.0565e-03 ,4.5689e-03 ,5.1092e-03 ,5.6716e-03 /) - kao(:,11, 1) = (/ & - &3.0492e-03 ,3.6436e-03 ,4.0799e-03 ,4.5260e-03 ,4.9802e-03 /) - kao(:,12, 1) = (/ & - &2.5821e-03 ,3.0995e-03 ,3.5069e-03 ,3.8699e-03 ,4.2575e-03 /) - kao(:,13, 1) = (/ & - &2.1558e-03 ,2.5890e-03 ,2.9127e-03 ,3.2139e-03 ,3.5455e-03 /) - kao(:, 1, 2) = (/ & - &5.2889e-02 ,5.6315e-02 ,5.9927e-02 ,6.3408e-02 ,6.6329e-02 /) - kao(:, 2, 2) = (/ & - &4.1932e-02 ,4.4934e-02 ,4.8030e-02 ,5.0855e-02 ,5.3372e-02 /) - kao(:, 3, 2) = (/ & - &3.2754e-02 ,3.5198e-02 ,3.7786e-02 ,4.0294e-02 ,4.2438e-02 /) - kao(:, 4, 2) = (/ & - &2.5838e-02 ,2.7680e-02 ,2.9873e-02 ,3.1963e-02 ,3.3931e-02 /) - kao(:, 5, 2) = (/ & - &2.0528e-02 ,2.2079e-02 ,2.3740e-02 ,2.5501e-02 ,2.7219e-02 /) - kao(:, 6, 2) = (/ & - &1.6350e-02 ,1.7491e-02 ,1.8902e-02 ,2.0280e-02 ,2.1774e-02 /) - kao(:, 7, 2) = (/ & - &1.2732e-02 ,1.3953e-02 ,1.5005e-02 ,1.6145e-02 ,1.7323e-02 /) - kao(:, 8, 2) = (/ & - &9.7464e-03 ,1.1159e-02 ,1.2150e-02 ,1.2940e-02 ,1.3856e-02 /) - kao(:, 9, 2) = (/ & - &7.5337e-03 ,8.5370e-03 ,9.6841e-03 ,1.0825e-02 ,1.1894e-02 /) - kao(:,10, 2) = (/ & - &7.1476e-03 ,7.8468e-03 ,8.6104e-03 ,9.4234e-03 ,1.0165e-02 /) - kao(:,11, 2) = (/ & - &7.4726e-03 ,7.8619e-03 ,8.4110e-03 ,8.8097e-03 ,9.3621e-03 /) - kao(:,12, 2) = (/ & - &6.8212e-03 ,7.3104e-03 ,7.6521e-03 ,8.0570e-03 ,8.3782e-03 /) - kao(:,13, 2) = (/ & - &5.7626e-03 ,6.1115e-03 ,6.3578e-03 ,6.6833e-03 ,6.9834e-03 /) - kao(:, 1, 3) = (/ & - &9.2909e-02 ,9.6713e-02 ,9.9436e-02 ,1.0242e-01 ,1.0613e-01 /) - kao(:, 2, 3) = (/ & - &7.4548e-02 ,7.7785e-02 ,8.0363e-02 ,8.2840e-02 ,8.6028e-02 /) - kao(:, 3, 3) = (/ & - &5.8714e-02 ,6.1823e-02 ,6.4284e-02 ,6.6702e-02 ,6.9231e-02 /) - kao(:, 4, 3) = (/ & - &4.6349e-02 ,4.9440e-02 ,5.1743e-02 ,5.3890e-02 ,5.5994e-02 /) - kao(:, 5, 3) = (/ & - &3.6507e-02 ,3.9309e-02 ,4.1637e-02 ,4.3586e-02 ,4.5365e-02 /) - kao(:, 6, 3) = (/ & - &2.8427e-02 ,3.1177e-02 ,3.3328e-02 ,3.5180e-02 ,3.6733e-02 /) - kao(:, 7, 3) = (/ & - &2.2397e-02 ,2.4640e-02 ,2.6638e-02 ,2.8311e-02 ,2.9747e-02 /) - kao(:, 8, 3) = (/ & - &1.7861e-02 ,1.9252e-02 ,2.1033e-02 ,2.2648e-02 ,2.3985e-02 /) - kao(:, 9, 3) = (/ & - &1.4398e-02 ,1.5884e-02 ,1.6962e-02 ,1.7935e-02 ,1.8840e-02 /) - kao(:,10, 3) = (/ & - &1.3336e-02 ,1.5085e-02 ,1.6848e-02 ,1.8578e-02 ,1.9024e-02 /) - kao(:,11, 3) = (/ & - &1.0996e-02 ,1.2680e-02 ,1.4233e-02 ,1.6184e-02 ,1.7835e-02 /) - kao(:,12, 3) = (/ & - &9.6066e-03 ,1.0608e-02 ,1.2101e-02 ,1.3713e-02 ,1.5338e-02 /) - kao(:,13, 3) = (/ & - &8.0007e-03 ,8.9344e-03 ,1.0260e-02 ,1.1651e-02 ,1.2914e-02 /) - kao(:, 1, 4) = (/ & - &1.4098e-01 ,1.4735e-01 ,1.5390e-01 ,1.6007e-01 ,1.6623e-01 /) - kao(:, 2, 4) = (/ & - &1.1373e-01 ,1.1930e-01 ,1.2491e-01 ,1.3057e-01 ,1.3593e-01 /) - kao(:, 3, 4) = (/ & - &9.0856e-02 ,9.5503e-02 ,1.0012e-01 ,1.0479e-01 ,1.0971e-01 /) - kao(:, 4, 4) = (/ & - &7.2695e-02 ,7.6746e-02 ,8.0662e-02 ,8.4622e-02 ,8.8881e-02 /) - kao(:, 5, 4) = (/ & - &5.8402e-02 ,6.1962e-02 ,6.5265e-02 ,6.8694e-02 ,7.2371e-02 /) - kao(:, 6, 4) = (/ & - &4.7100e-02 ,5.0100e-02 ,5.2955e-02 ,5.5897e-02 ,5.9012e-02 /) - kao(:, 7, 4) = (/ & - &3.7714e-02 ,4.0303e-02 ,4.2858e-02 ,4.5396e-02 ,4.8032e-02 /) - kao(:, 8, 4) = (/ & - &2.9938e-02 ,3.2418e-02 ,3.4599e-02 ,3.6801e-02 ,3.9055e-02 /) - kao(:, 9, 4) = (/ & - &2.3570e-02 ,2.5475e-02 ,2.7580e-02 ,2.9598e-02 ,3.1549e-02 /) - kao(:,10, 4) = (/ & - &2.3291e-02 ,2.1658e-02 ,2.1418e-02 ,2.1490e-02 ,2.3536e-02 /) - kao(:,11, 4) = (/ & - &2.1808e-02 ,2.2150e-02 ,2.2833e-02 ,2.0354e-02 ,1.9688e-02 /) - kao(:,12, 4) = (/ & - &1.9246e-02 ,1.9438e-02 ,1.9839e-02 ,2.0164e-02 ,1.7716e-02 /) - kao(:,13, 4) = (/ & - &1.6236e-02 ,1.6164e-02 ,1.6551e-02 ,1.6579e-02 ,1.4849e-02 /) - kao(:, 1, 5) = (/ & - &2.5886e-01 ,2.7100e-01 ,2.8220e-01 ,2.9245e-01 ,3.0214e-01 /) - kao(:, 2, 5) = (/ & - &2.0909e-01 ,2.1918e-01 ,2.2861e-01 ,2.3740e-01 ,2.4610e-01 /) - kao(:, 3, 5) = (/ & - &1.6622e-01 ,1.7497e-01 ,1.8311e-01 ,1.9088e-01 ,1.9860e-01 /) - kao(:, 4, 5) = (/ & - &1.3301e-01 ,1.4069e-01 ,1.4792e-01 ,1.5478e-01 ,1.6132e-01 /) - kao(:, 5, 5) = (/ & - &1.0688e-01 ,1.1355e-01 ,1.1989e-01 ,1.2584e-01 ,1.3154e-01 /) - kao(:, 6, 5) = (/ & - &8.5419e-02 ,9.1274e-02 ,9.6848e-02 ,1.0202e-01 ,1.0704e-01 /) - kao(:, 7, 5) = (/ & - &6.8100e-02 ,7.3262e-02 ,7.8047e-02 ,8.2594e-02 ,8.7027e-02 /) - kao(:, 8, 5) = (/ & - &5.4252e-02 ,5.8815e-02 ,6.2989e-02 ,6.6937e-02 ,7.0783e-02 /) - kao(:, 9, 5) = (/ & - &4.3117e-02 ,4.7224e-02 ,5.0916e-02 ,5.4328e-02 ,5.7817e-02 /) - kao(:,10, 5) = (/ & - &2.9151e-02 ,3.5667e-02 ,4.0092e-02 ,4.3888e-02 ,4.6870e-02 /) - kao(:,11, 5) = (/ & - &2.3941e-02 ,2.7450e-02 ,2.9750e-02 ,3.5348e-02 ,3.9440e-02 /) - kao(:,12, 5) = (/ & - &2.0570e-02 ,2.3238e-02 ,2.5236e-02 ,2.7327e-02 ,3.2816e-02 /) - kao(:,13, 5) = (/ & - &1.7253e-02 ,1.9755e-02 ,2.1401e-02 ,2.3591e-02 ,2.8114e-02 /) - kao(:, 1, 6) = (/ & - &5.6993e-01 ,6.0360e-01 ,6.3489e-01 ,6.6230e-01 ,6.8659e-01 /) - kao(:, 2, 6) = (/ & - &4.6502e-01 ,4.9401e-01 ,5.2007e-01 ,5.4304e-01 ,5.6306e-01 /) - kao(:, 3, 6) = (/ & - &3.7271e-01 ,3.9757e-01 ,4.1967e-01 ,4.3927e-01 ,4.5631e-01 /) - kao(:, 4, 6) = (/ & - &2.9874e-01 ,3.1990e-01 ,3.3890e-01 ,3.5594e-01 ,3.7139e-01 /) - kao(:, 5, 6) = (/ & - &2.3859e-01 ,2.5711e-01 ,2.7375e-01 ,2.8893e-01 ,3.0280e-01 /) - kao(:, 6, 6) = (/ & - &1.8917e-01 ,2.0549e-01 ,2.2017e-01 ,2.3369e-01 ,2.4611e-01 /) - kao(:, 7, 6) = (/ & - &1.4938e-01 ,1.6367e-01 ,1.7681e-01 ,1.8887e-01 ,1.9989e-01 /) - kao(:, 8, 6) = (/ & - &1.1758e-01 ,1.3011e-01 ,1.4157e-01 ,1.5226e-01 ,1.6197e-01 /) - kao(:, 9, 6) = (/ & - &9.1609e-02 ,1.0230e-01 ,1.1226e-01 ,1.2154e-01 ,1.2990e-01 /) - kao(:,10, 6) = (/ & - &7.2629e-02 ,8.2527e-02 ,9.1786e-02 ,1.0065e-01 ,1.0832e-01 /) - kao(:,11, 6) = (/ & - &6.0173e-02 ,6.9095e-02 ,7.8339e-02 ,8.6340e-02 ,9.2996e-02 /) - kao(:,12, 6) = (/ & - &5.1074e-02 ,5.9514e-02 ,6.6969e-02 ,7.3447e-02 ,7.9277e-02 /) - kao(:,13, 6) = (/ & - &4.3826e-02 ,5.0848e-02 ,5.7125e-02 ,6.2916e-02 ,6.7915e-02 /) - kao(:, 1, 7) = (/ & - &1.4129e+00 ,1.4750e+00 ,1.5277e+00 ,1.5727e+00 ,1.6117e+00 /) - kao(:, 2, 7) = (/ & - &1.1749e+00 ,1.2287e+00 ,1.2750e+00 ,1.3159e+00 ,1.3523e+00 /) - kao(:, 3, 7) = (/ & - &9.5348e-01 ,1.0008e+00 ,1.0433e+00 ,1.0822e+00 ,1.1168e+00 /) - kao(:, 4, 7) = (/ & - &7.6995e-01 ,8.1381e-01 ,8.5421e-01 ,8.9012e-01 ,9.2111e-01 /) - kao(:, 5, 7) = (/ & - &6.2211e-01 ,6.6255e-01 ,6.9934e-01 ,7.3149e-01 ,7.5879e-01 /) - kao(:, 6, 7) = (/ & - &5.0056e-01 ,5.3742e-01 ,5.7038e-01 ,5.9882e-01 ,6.2305e-01 /) - kao(:, 7, 7) = (/ & - &4.0115e-01 ,4.3352e-01 ,4.6244e-01 ,4.8765e-01 ,5.0920e-01 /) - kao(:, 8, 7) = (/ & - &3.1902e-01 ,3.4754e-01 ,3.7305e-01 ,3.9544e-01 ,4.1482e-01 /) - kao(:, 9, 7) = (/ & - &2.5207e-01 ,2.7718e-01 ,2.9962e-01 ,3.1933e-01 ,3.3666e-01 /) - kao(:,10, 7) = (/ & - &1.9498e-01 ,2.1588e-01 ,2.3464e-01 ,2.5127e-01 ,2.6668e-01 /) - kao(:,11, 7) = (/ & - &1.6583e-01 ,1.8332e-01 ,1.9835e-01 ,2.1191e-01 ,2.2523e-01 /) - kao(:,12, 7) = (/ & - &1.3827e-01 ,1.5202e-01 ,1.6547e-01 ,1.7854e-01 ,1.8991e-01 /) - kao(:,13, 7) = (/ & - &1.1534e-01 ,1.2733e-01 ,1.3962e-01 ,1.4987e-01 ,1.6008e-01 /) - kao(:, 1, 8) = (/ & - &3.5920e+00 ,3.7800e+00 ,3.9524e+00 ,4.1109e+00 ,4.2529e+00 /) - kao(:, 2, 8) = (/ & - &3.2111e+00 ,3.3886e+00 ,3.5521e+00 ,3.6948e+00 ,3.8225e+00 /) - kao(:, 3, 8) = (/ & - &2.7787e+00 ,2.9477e+00 ,3.0955e+00 ,3.2271e+00 ,3.3442e+00 /) - kao(:, 4, 8) = (/ & - &2.3588e+00 ,2.5119e+00 ,2.6472e+00 ,2.7686e+00 ,2.8775e+00 /) - kao(:, 5, 8) = (/ & - &1.9705e+00 ,2.1082e+00 ,2.2326e+00 ,2.3452e+00 ,2.4470e+00 /) - kao(:, 6, 8) = (/ & - &1.6168e+00 ,1.7418e+00 ,1.8565e+00 ,1.9616e+00 ,2.0551e+00 /) - kao(:, 7, 8) = (/ & - &1.3089e+00 ,1.4235e+00 ,1.5288e+00 ,1.6233e+00 ,1.7079e+00 /) - kao(:, 8, 8) = (/ & - &1.0505e+00 ,1.1539e+00 ,1.2478e+00 ,1.3319e+00 ,1.4095e+00 /) - kao(:, 9, 8) = (/ & - &8.3583e-01 ,9.2738e-01 ,1.0101e+00 ,1.0861e+00 ,1.1567e+00 /) - kao(:,10, 8) = (/ & - &6.6552e-01 ,7.4516e-01 ,8.1795e-01 ,8.8505e-01 ,9.4596e-01 /) - kao(:,11, 8) = (/ & - &5.5048e-01 ,6.1499e-01 ,6.7571e-01 ,7.3145e-01 ,7.8064e-01 /) - kao(:,12, 8) = (/ & - &4.5804e-01 ,5.1260e-01 ,5.6222e-01 ,6.0624e-01 ,6.4709e-01 /) - kao(:,13, 8) = (/ & - &3.8513e-01 ,4.3049e-01 ,4.7109e-01 ,5.0795e-01 ,5.3980e-01 /) - kao(:, 1, 9) = (/ & - &1.0443e+01 ,1.1048e+01 ,1.1589e+01 ,1.2078e+01 ,1.2523e+01 /) - kao(:, 2, 9) = (/ & - &1.0305e+01 ,1.0938e+01 ,1.1513e+01 ,1.2045e+01 ,1.2531e+01 /) - kao(:, 3, 9) = (/ & - &9.8576e+00 ,1.0529e+01 ,1.1150e+01 ,1.1712e+01 ,1.2221e+01 /) - kao(:, 4, 9) = (/ & - &9.2371e+00 ,9.9233e+00 ,1.0551e+01 ,1.1124e+01 ,1.1647e+01 /) - kao(:, 5, 9) = (/ & - &8.4700e+00 ,9.1602e+00 ,9.7951e+00 ,1.0380e+01 ,1.0911e+01 /) - kao(:, 6, 9) = (/ & - &7.5880e+00 ,8.2763e+00 ,8.9154e+00 ,9.5007e+00 ,1.0024e+01 /) - kao(:, 7, 9) = (/ & - &6.6790e+00 ,7.3503e+00 ,7.9748e+00 ,8.5357e+00 ,9.0412e+00 /) - kao(:, 8, 9) = (/ & - &5.7712e+00 ,6.4120e+00 ,7.0009e+00 ,7.5325e+00 ,8.0088e+00 /) - kao(:, 9, 9) = (/ & - &4.8989e+00 ,5.4909e+00 ,6.0328e+00 ,6.5241e+00 ,6.9680e+00 /) - kao(:,10, 9) = (/ & - &4.1164e+00 ,4.6491e+00 ,5.1402e+00 ,5.5886e+00 ,6.0036e+00 /) - kao(:,11, 9) = (/ & - &3.6151e+00 ,4.0753e+00 ,4.5022e+00 ,4.8994e+00 ,5.2546e+00 /) - kao(:,12, 9) = (/ & - &3.1350e+00 ,3.5329e+00 ,3.9073e+00 ,4.2435e+00 ,4.5415e+00 /) - kao(:,13, 9) = (/ & - &2.6929e+00 ,3.0365e+00 ,3.3480e+00 ,3.6295e+00 ,3.8842e+00 /) - kao(:, 1,10) = (/ & - &1.9924e+01 ,2.0919e+01 ,2.2000e+01 ,2.2972e+01 ,2.3773e+01 /) - kao(:, 2,10) = (/ & - &2.0689e+01 ,2.1909e+01 ,2.3034e+01 ,2.3987e+01 ,2.4788e+01 /) - kao(:, 3,10) = (/ & - &2.0776e+01 ,2.2053e+01 ,2.3211e+01 ,2.4276e+01 ,2.5292e+01 /) - kao(:, 4,10) = (/ & - &2.0236e+01 ,2.1839e+01 ,2.3315e+01 ,2.4662e+01 ,2.5879e+01 /) - kao(:, 5,10) = (/ & - &1.9987e+01 ,2.1808e+01 ,2.3390e+01 ,2.4727e+01 ,2.5958e+01 /) - kao(:, 6,10) = (/ & - &1.9523e+01 ,2.1285e+01 ,2.2798e+01 ,2.4193e+01 ,2.5643e+01 /) - kao(:, 7,10) = (/ & - &1.8326e+01 ,2.0057e+01 ,2.1638e+01 ,2.3310e+01 ,2.4996e+01 /) - kao(:, 8,10) = (/ & - &1.6812e+01 ,1.8592e+01 ,2.0423e+01 ,2.2320e+01 ,2.4092e+01 /) - kao(:, 9,10) = (/ & - &1.5126e+01 ,1.7059e+01 ,1.9069e+01 ,2.1023e+01 ,2.2713e+01 /) - kao(:,10,10) = (/ & - &1.3603e+01 ,1.5643e+01 ,1.7659e+01 ,1.9476e+01 ,2.1017e+01 /) - kao(:,11,10) = (/ & - &1.3136e+01 ,1.5065e+01 ,1.6788e+01 ,1.8298e+01 ,1.9745e+01 /) - kao(:,12,10) = (/ & - &1.2291e+01 ,1.3925e+01 ,1.5389e+01 ,1.6819e+01 ,1.8254e+01 /) - kao(:,13,10) = (/ & - &1.1103e+01 ,1.2502e+01 ,1.3897e+01 ,1.5277e+01 ,1.6528e+01 /) - kao(:, 1,11) = (/ & - &2.4296e+01 ,2.5293e+01 ,2.6167e+01 ,2.7129e+01 ,2.8181e+01 /) - kao(:, 2,11) = (/ & - &2.5960e+01 ,2.7094e+01 ,2.8248e+01 ,2.9459e+01 ,3.0485e+01 /) - kao(:, 3,11) = (/ & - &2.6865e+01 ,2.8307e+01 ,2.9751e+01 ,3.1102e+01 ,3.2279e+01 /) - kao(:, 4,11) = (/ & - &2.7354e+01 ,2.8995e+01 ,3.0628e+01 ,3.2100e+01 ,3.3421e+01 /) - kao(:, 5,11) = (/ & - &2.6969e+01 ,2.8892e+01 ,3.0767e+01 ,3.2621e+01 ,3.4273e+01 /) - kao(:, 6,11) = (/ & - &2.6094e+01 ,2.8469e+01 ,3.0801e+01 ,3.2980e+01 ,3.4919e+01 /) - kao(:, 7,11) = (/ & - &2.5366e+01 ,2.8149e+01 ,3.0864e+01 ,3.3154e+01 ,3.5069e+01 /) - kao(:, 8,11) = (/ & - &2.4570e+01 ,2.7568e+01 ,3.0172e+01 ,3.2348e+01 ,3.4412e+01 /) - kao(:, 9,11) = (/ & - &2.3141e+01 ,2.6027e+01 ,2.8564e+01 ,3.0892e+01 ,3.3292e+01 /) - kao(:,10,11) = (/ & - &2.1375e+01 ,2.4163e+01 ,2.6748e+01 ,2.9381e+01 ,3.2113e+01 /) - kao(:,11,11) = (/ & - &2.0563e+01 ,2.3343e+01 ,2.6200e+01 ,2.9082e+01 ,3.1737e+01 /) - kao(:,12,11) = (/ & - &1.9759e+01 ,2.2669e+01 ,2.5592e+01 ,2.8225e+01 ,3.0484e+01 /) - kao(:,13,11) = (/ & - &1.9005e+01 ,2.1823e+01 ,2.4335e+01 ,2.6560e+01 ,2.8649e+01 /) - kao(:, 1,12) = (/ & - &2.8554e+01 ,3.0109e+01 ,3.1534e+01 ,3.2820e+01 ,3.3912e+01 /) - kao(:, 2,12) = (/ & - &3.1883e+01 ,3.3547e+01 ,3.5069e+01 ,3.6425e+01 ,3.7803e+01 /) - kao(:, 3,12) = (/ & - &3.5025e+01 ,3.6824e+01 ,3.8424e+01 ,3.9924e+01 ,4.1396e+01 /) - kao(:, 4,12) = (/ & - &3.7112e+01 ,3.9231e+01 ,4.1147e+01 ,4.2932e+01 ,4.4646e+01 /) - kao(:, 5,12) = (/ & - &3.8447e+01 ,4.0861e+01 ,4.3125e+01 ,4.5199e+01 ,4.7297e+01 /) - kao(:, 6,12) = (/ & - &3.8994e+01 ,4.1741e+01 ,4.4237e+01 ,4.6637e+01 ,4.8930e+01 /) - kao(:, 7,12) = (/ & - &3.8693e+01 ,4.1674e+01 ,4.4392e+01 ,4.7287e+01 ,5.0041e+01 /) - kao(:, 8,12) = (/ & - &3.7231e+01 ,4.0534e+01 ,4.3968e+01 ,4.7486e+01 ,5.0745e+01 /) - kao(:, 9,12) = (/ & - &3.5314e+01 ,3.9308e+01 ,4.3458e+01 ,4.7418e+01 ,5.1164e+01 /) - kao(:,10,12) = (/ & - &3.3674e+01 ,3.8340e+01 ,4.2937e+01 ,4.7301e+01 ,5.1085e+01 /) - kao(:,11,12) = (/ & - &3.4306e+01 ,3.9228e+01 ,4.3781e+01 ,4.7771e+01 ,5.1424e+01 /) - kao(:,12,12) = (/ & - &3.4432e+01 ,3.9064e+01 ,4.3274e+01 ,4.7292e+01 ,5.1289e+01 /) - kao(:,13,12) = (/ & - &3.3504e+01 ,3.7950e+01 ,4.2337e+01 ,4.6726e+01 ,5.1022e+01 /) - kao(:, 1,13) = (/ & - &3.3083e+01 ,3.5231e+01 ,3.7169e+01 ,3.8902e+01 ,4.0496e+01 /) - kao(:, 2,13) = (/ & - &3.7816e+01 ,4.0283e+01 ,4.2419e+01 ,4.4328e+01 ,4.6116e+01 /) - kao(:, 3,13) = (/ & - &4.2916e+01 ,4.5668e+01 ,4.8087e+01 ,5.0367e+01 ,5.2460e+01 /) - kao(:, 4,13) = (/ & - &4.7941e+01 ,5.0937e+01 ,5.3613e+01 ,5.6174e+01 ,5.8534e+01 /) - kao(:, 5,13) = (/ & - &5.2708e+01 ,5.6040e+01 ,5.9163e+01 ,6.2033e+01 ,6.4593e+01 /) - kao(:, 6,13) = (/ & - &5.6670e+01 ,6.0546e+01 ,6.4072e+01 ,6.7245e+01 ,7.0176e+01 /) - kao(:, 7,13) = (/ & - &5.9263e+01 ,6.3946e+01 ,6.8113e+01 ,7.1753e+01 ,7.5271e+01 /) - kao(:, 8,13) = (/ & - &6.0990e+01 ,6.6317e+01 ,7.1009e+01 ,7.5310e+01 ,7.9458e+01 /) - kao(:, 9,13) = (/ & - &6.1500e+01 ,6.7310e+01 ,7.2473e+01 ,7.7444e+01 ,8.1955e+01 /) - kao(:,10,13) = (/ & - &6.1095e+01 ,6.7188e+01 ,7.2950e+01 ,7.8366e+01 ,8.3528e+01 /) - kao(:,11,13) = (/ & - &6.2204e+01 ,6.8688e+01 ,7.5122e+01 ,8.1365e+01 ,8.7577e+01 /) - kao(:,12,13) = (/ & - &6.2610e+01 ,7.0078e+01 ,7.7313e+01 ,8.4495e+01 ,9.1274e+01 /) - kao(:,13,13) = (/ & - &6.3252e+01 ,7.1343e+01 ,7.9418e+01 ,8.6956e+01 ,9.3893e+01 /) - kao(:, 1,14) = (/ & - &4.3344e+01 ,4.5304e+01 ,4.7200e+01 ,4.8977e+01 ,5.0634e+01 /) - kao(:, 2,14) = (/ & - &4.8672e+01 ,5.1219e+01 ,5.3748e+01 ,5.6207e+01 ,5.8584e+01 /) - kao(:, 3,14) = (/ & - &5.3835e+01 ,5.7385e+01 ,6.0811e+01 ,6.4094e+01 ,6.7183e+01 /) - kao(:, 4,14) = (/ & - &5.9051e+01 ,6.3463e+01 ,6.7847e+01 ,7.2047e+01 ,7.6005e+01 /) - kao(:, 5,14) = (/ & - &6.4910e+01 ,7.0372e+01 ,7.5734e+01 ,8.0867e+01 ,8.5466e+01 /) - kao(:, 6,14) = (/ & - &7.1177e+01 ,7.7830e+01 ,8.4454e+01 ,9.0502e+01 ,9.5851e+01 /) - kao(:, 7,14) = (/ & - &7.8645e+01 ,8.6401e+01 ,9.3877e+01 ,1.0067e+02 ,1.0680e+02 /) - kao(:, 8,14) = (/ & - &8.6837e+01 ,9.5972e+01 ,1.0455e+02 ,1.1218e+02 ,1.1889e+02 /) - kao(:, 9,14) = (/ & - &9.4588e+01 ,1.0523e+02 ,1.1528e+02 ,1.2405e+02 ,1.3172e+02 /) - kao(:,10,14) = (/ & - &1.0185e+02 ,1.1428e+02 ,1.2585e+02 ,1.3577e+02 ,1.4474e+02 /) - kao(:,11,14) = (/ & - &1.1416e+02 ,1.2817e+02 ,1.4064e+02 ,1.5135e+02 ,1.6079e+02 /) - kao(:,12,14) = (/ & - &1.2658e+02 ,1.4157e+02 ,1.5496e+02 ,1.6630e+02 ,1.7621e+02 /) - kao(:,13,14) = (/ & - &1.3763e+02 ,1.5352e+02 ,1.6709e+02 ,1.7925e+02 ,1.9013e+02 /) - kao(:, 1,15) = (/ & - &5.4748e+01 ,5.6924e+01 ,5.8795e+01 ,6.0375e+01 ,6.1716e+01 /) - kao(:, 2,15) = (/ & - &6.5566e+01 ,6.8287e+01 ,7.0585e+01 ,7.2551e+01 ,7.4160e+01 /) - kao(:, 3,15) = (/ & - &7.7583e+01 ,8.1027e+01 ,8.3928e+01 ,8.6358e+01 ,8.8397e+01 /) - kao(:, 4,15) = (/ & - &8.9871e+01 ,9.4173e+01 ,9.7817e+01 ,1.0084e+02 ,1.0339e+02 /) - kao(:, 5,15) = (/ & - &1.0246e+02 ,1.0776e+02 ,1.1220e+02 ,1.1592e+02 ,1.1961e+02 /) - kao(:, 6,15) = (/ & - &1.1487e+02 ,1.2133e+02 ,1.2665e+02 ,1.3188e+02 ,1.3707e+02 /) - kao(:, 7,15) = (/ & - &1.2683e+02 ,1.3446e+02 ,1.4160e+02 ,1.4872e+02 ,1.5558e+02 /) - kao(:, 8,15) = (/ & - &1.3795e+02 ,1.4756e+02 ,1.5674e+02 ,1.6606e+02 ,1.7523e+02 /) - kao(:, 9,15) = (/ & - &1.4965e+02 ,1.6170e+02 ,1.7284e+02 ,1.8422e+02 ,1.9597e+02 /) - kao(:,10,15) = (/ & - &1.6376e+02 ,1.7796e+02 ,1.9116e+02 ,2.0528e+02 ,2.1939e+02 /) - kao(:,11,15) = (/ & - &1.8752e+02 ,2.0335e+02 ,2.1913e+02 ,2.3662e+02 ,2.5359e+02 /) - kao(:,12,15) = (/ & - &2.1430e+02 ,2.3299e+02 ,2.5241e+02 ,2.7277e+02 ,2.9286e+02 /) - kao(:,13,15) = (/ & - &2.4469e+02 ,2.6735e+02 ,2.9101e+02 ,3.1438e+02 ,3.3674e+02 /) - kao(:, 1,16) = (/ & - &5.6182e+01 ,5.8534e+01 ,6.0580e+01 ,6.2336e+01 ,6.3846e+01 /) - kao(:, 2,16) = (/ & - &6.7714e+01 ,7.1253e+01 ,7.3886e+01 ,7.6167e+01 ,7.8129e+01 /) - kao(:, 3,16) = (/ & - &8.2239e+01 ,8.6274e+01 ,8.9810e+01 ,9.2865e+01 ,9.5500e+01 /) - kao(:, 4,16) = (/ & - &9.7623e+01 ,1.0299e+02 ,1.0769e+02 ,1.1178e+02 ,1.1532e+02 /) - kao(:, 5,16) = (/ & - &1.1485e+02 ,1.2193e+02 ,1.2815e+02 ,1.3359e+02 ,1.3829e+02 /) - kao(:, 6,16) = (/ & - &1.3405e+02 ,1.4336e+02 ,1.5157e+02 ,1.5875e+02 ,1.6501e+02 /) - kao(:, 7,16) = (/ & - &1.5562e+02 ,1.6780e+02 ,1.7860e+02 ,1.8805e+02 ,1.9632e+02 /) - kao(:, 8,16) = (/ & - &1.7987e+02 ,1.9571e+02 ,2.0979e+02 ,2.2214e+02 ,2.3298e+02 /) - kao(:, 9,16) = (/ & - &2.0674e+02 ,2.2717e+02 ,2.4538e+02 ,2.6145e+02 ,2.7552e+02 /) - kao(:,10,16) = (/ & - &2.3822e+02 ,2.6423e+02 ,2.8739e+02 ,3.0794e+02 ,3.2592e+02 /) - kao(:,11,16) = (/ & - &2.8871e+02 ,3.1996e+02 ,3.4774e+02 ,3.7226e+02 ,3.9354e+02 /) - kao(:,12,16) = (/ & - &3.4916e+02 ,3.8637e+02 ,4.1932e+02 ,4.4825e+02 ,4.7321e+02 /) - kao(:,13,16) = (/ & - &4.2045e+02 ,4.6429e+02 ,5.0303e+02 ,5.3671e+02 ,5.6546e+02 /) - -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kbo(:,13, 1) = (/ & - &2.1558e-03 ,2.5890e-03 ,2.9127e-03 ,3.2139e-03 ,3.5455e-03 /) - kbo(:,14, 1) = (/ & - &1.8304e-03 ,2.1809e-03 ,2.4298e-03 ,2.6878e-03 ,2.9625e-03 /) - kbo(:,15, 1) = (/ & - &1.5486e-03 ,1.7962e-03 ,2.0058e-03 ,2.2286e-03 ,2.4705e-03 /) - kbo(:,16, 1) = (/ & - &1.3025e-03 ,1.4833e-03 ,1.6606e-03 ,1.8503e-03 ,2.0485e-03 /) - kbo(:,17, 1) = (/ & - &1.0810e-03 ,1.2227e-03 ,1.3725e-03 ,1.5304e-03 ,1.6938e-03 /) - kbo(:,18, 1) = (/ & - &8.7942e-04 ,1.0015e-03 ,1.1266e-03 ,1.2596e-03 ,1.3951e-03 /) - kbo(:,19, 1) = (/ & - &7.2280e-04 ,8.2373e-04 ,9.2739e-04 ,1.0381e-03 ,1.1467e-03 /) - kbo(:,20, 1) = (/ & - &6.0184e-04 ,6.8491e-04 ,7.6954e-04 ,8.5989e-04 ,9.4913e-04 /) - kbo(:,21, 1) = (/ & - &5.0117e-04 ,5.6823e-04 ,6.3855e-04 ,7.1320e-04 ,7.8654e-04 /) - kbo(:,22, 1) = (/ & - &4.1938e-04 ,4.7543e-04 ,5.3375e-04 ,5.9543e-04 ,6.5571e-04 /) - kbo(:,23, 1) = (/ & - &3.5199e-04 ,3.9855e-04 ,4.4679e-04 ,4.9714e-04 ,5.4750e-04 /) - kbo(:,24, 1) = (/ & - &2.9639e-04 ,3.3452e-04 ,3.7432e-04 ,4.1615e-04 ,4.5706e-04 /) - kbo(:,25, 1) = (/ & - &2.4906e-04 ,2.8117e-04 ,3.1412e-04 ,3.4839e-04 ,3.7317e-04 /) - kbo(:,26, 1) = (/ & - &2.1029e-04 ,2.3678e-04 ,2.6421e-04 ,2.9238e-04 ,3.0575e-04 /) - kbo(:,27, 1) = (/ & - &1.7727e-04 ,1.9942e-04 ,2.2208e-04 ,2.4556e-04 ,2.5262e-04 /) - kbo(:,28, 1) = (/ & - &1.4969e-04 ,1.6790e-04 ,1.8692e-04 ,2.0183e-04 ,2.0915e-04 /) - kbo(:,29, 1) = (/ & - &1.2629e-04 ,1.4151e-04 ,1.5706e-04 ,1.6548e-04 ,1.7223e-04 /) - kbo(:,30, 1) = (/ & - &1.0651e-04 ,1.1909e-04 ,1.3186e-04 ,1.3639e-04 ,1.4198e-04 /) - kbo(:,31, 1) = (/ & - &8.9698e-05 ,1.0002e-04 ,1.0798e-04 ,1.1271e-04 ,1.1661e-04 /) - kbo(:,32, 1) = (/ & - &7.5536e-05 ,8.4037e-05 ,8.8553e-05 ,9.2337e-05 ,9.5468e-05 /) - kbo(:,33, 1) = (/ & - &6.3563e-05 ,7.0507e-05 ,7.3023e-05 ,7.6153e-05 ,7.8142e-05 /) - kbo(:,34, 1) = (/ & - &5.3365e-05 ,5.7820e-05 ,6.0490e-05 ,6.2653e-05 ,6.4307e-05 /) - kbo(:,35, 1) = (/ & - &4.4295e-05 ,4.7505e-05 ,4.9568e-05 ,5.1436e-05 ,5.2756e-05 /) - kbo(:,36, 1) = (/ & - &3.6359e-05 ,3.8955e-05 ,4.0612e-05 ,4.2071e-05 ,4.3157e-05 /) - kbo(:,37, 1) = (/ & - &2.9443e-05 ,3.1950e-05 ,3.3272e-05 ,3.4376e-05 ,3.5259e-05 /) - kbo(:,38, 1) = (/ & - &2.3815e-05 ,2.6274e-05 ,2.7165e-05 ,2.8049e-05 ,2.8811e-05 /) - kbo(:,39, 1) = (/ & - &1.9245e-05 ,2.1354e-05 ,2.2111e-05 ,2.2930e-05 ,2.3532e-05 /) - kbo(:,40, 1) = (/ & - &1.5405e-05 ,1.7147e-05 ,1.8049e-05 ,1.8756e-05 ,1.9282e-05 /) - kbo(:,41, 1) = (/ & - &1.2319e-05 ,1.3748e-05 ,1.4753e-05 ,1.5289e-05 ,1.5770e-05 /) - kbo(:,42, 1) = (/ & - &9.8357e-06 ,1.1012e-05 ,1.2183e-05 ,1.2499e-05 ,1.2877e-05 /) - kbo(:,43, 1) = (/ & - &7.7892e-06 ,8.7858e-06 ,9.7457e-06 ,1.0234e-05 ,1.0599e-05 /) - kbo(:,44, 1) = (/ & - &6.1605e-06 ,6.9805e-06 ,7.7675e-06 ,8.4197e-06 ,8.6950e-06 /) - kbo(:,45, 1) = (/ & - &4.8809e-06 ,5.5274e-06 ,6.1865e-06 ,6.8268e-06 ,7.0906e-06 /) - kbo(:,46, 1) = (/ & - &3.8470e-06 ,4.3665e-06 ,4.9029e-06 ,5.4349e-06 ,5.8089e-06 /) - kbo(:,47, 1) = (/ & - &3.0311e-06 ,3.4294e-06 ,3.8630e-06 ,4.3044e-06 ,4.7453e-06 /) - kbo(:,48, 1) = (/ & - &2.3694e-06 ,2.7049e-06 ,3.0473e-06 ,3.4008e-06 ,3.7674e-06 /) - kbo(:,49, 1) = (/ & - &1.8467e-06 ,2.1296e-06 ,2.4020e-06 ,2.6917e-06 ,2.9837e-06 /) - kbo(:,50, 1) = (/ & - &1.4542e-06 ,1.6765e-06 ,1.8996e-06 ,2.1320e-06 ,2.3692e-06 /) - kbo(:,51, 1) = (/ & - &1.1539e-06 ,1.3178e-06 ,1.5055e-06 ,1.6911e-06 ,1.8864e-06 /) - kbo(:,52, 1) = (/ & - &8.7493e-07 ,1.0411e-06 ,1.1898e-06 ,1.3435e-06 ,1.4983e-06 /) - kbo(:,53, 1) = (/ & - &6.6072e-07 ,8.3282e-07 ,9.4298e-07 ,1.0653e-06 ,1.1935e-06 /) - kbo(:,54, 1) = (/ & - &5.0251e-07 ,6.4316e-07 ,7.5237e-07 ,8.5108e-07 ,9.5630e-07 /) - kbo(:,55, 1) = (/ & - &3.8195e-07 ,4.9281e-07 ,6.0554e-07 ,6.8279e-07 ,7.6458e-07 /) - kbo(:,56, 1) = (/ & - &2.8943e-07 ,3.7779e-07 ,4.8048e-07 ,5.4688e-07 ,6.1650e-07 /) - kbo(:,57, 1) = (/ & - &2.1868e-07 ,2.8870e-07 ,3.7076e-07 ,4.4677e-07 ,4.9616e-07 /) - kbo(:,58, 1) = (/ & - &1.6598e-07 ,2.2133e-07 ,2.8693e-07 ,3.5995e-07 ,4.0195e-07 /) - kbo(:,59, 1) = (/ & - &1.3312e-07 ,1.7804e-07 ,2.3134e-07 ,2.9072e-07 ,3.3304e-07 /) - kbo(:,13, 2) = (/ & - &5.7626e-03 ,6.1115e-03 ,6.3578e-03 ,6.6833e-03 ,6.9834e-03 /) - kbo(:,14, 2) = (/ & - &4.7365e-03 ,4.9915e-03 ,5.2669e-03 ,5.5245e-03 ,5.7996e-03 /) - kbo(:,15, 2) = (/ & - &3.8570e-03 ,4.0469e-03 ,4.3101e-03 ,4.5195e-03 ,4.7607e-03 /) - kbo(:,16, 2) = (/ & - &3.0836e-03 ,3.2692e-03 ,3.4748e-03 ,3.6812e-03 ,3.8941e-03 /) - kbo(:,17, 2) = (/ & - &2.4665e-03 ,2.6482e-03 ,2.8018e-03 ,2.9854e-03 ,3.1785e-03 /) - kbo(:,18, 2) = (/ & - &1.9741e-03 ,2.1245e-03 ,2.2564e-03 ,2.4081e-03 ,2.5780e-03 /) - kbo(:,19, 2) = (/ & - &1.5958e-03 ,1.7126e-03 ,1.8351e-03 ,1.9560e-03 ,2.0570e-03 /) - kbo(:,20, 2) = (/ & - &1.3038e-03 ,1.3978e-03 ,1.5013e-03 ,1.6102e-03 ,1.6734e-03 /) - kbo(:,21, 2) = (/ & - &1.0706e-03 ,1.1492e-03 ,1.2352e-03 ,1.3269e-03 ,1.3755e-03 /) - kbo(:,22, 2) = (/ & - &8.8260e-04 ,9.4987e-04 ,1.0209e-03 ,1.0834e-03 ,1.1278e-03 /) - kbo(:,23, 2) = (/ & - &7.2583e-04 ,7.8218e-04 ,8.4637e-04 ,8.8814e-04 ,9.2896e-04 /) - kbo(:,24, 2) = (/ & - &6.0040e-04 ,6.4872e-04 ,7.0437e-04 ,7.3258e-04 ,7.6936e-04 /) - kbo(:,25, 2) = (/ & - &4.9798e-04 ,5.3936e-04 ,5.8024e-04 ,6.0451e-04 ,6.4613e-04 /) - kbo(:,26, 2) = (/ & - &4.1436e-04 ,4.5078e-04 ,4.7645e-04 ,5.0082e-04 ,5.4367e-04 /) - kbo(:,27, 2) = (/ & - &3.4567e-04 ,3.7682e-04 ,3.9546e-04 ,4.1621e-04 ,4.5625e-04 /) - kbo(:,28, 2) = (/ & - &2.8902e-04 ,3.1546e-04 ,3.2798e-04 ,3.5075e-04 ,3.8306e-04 /) - kbo(:,29, 2) = (/ & - &2.4193e-04 ,2.5865e-04 ,2.7208e-04 ,2.9507e-04 ,3.2156e-04 /) - kbo(:,30, 2) = (/ & - &2.0282e-04 ,2.1375e-04 ,2.2606e-04 ,2.4794e-04 ,2.6904e-04 /) - kbo(:,31, 2) = (/ & - &1.6986e-04 ,1.7726e-04 ,1.9036e-04 ,2.0754e-04 ,2.2529e-04 /) - kbo(:,32, 2) = (/ & - &1.3922e-04 ,1.4692e-04 ,1.5999e-04 ,1.7445e-04 ,1.8931e-04 /) - kbo(:,33, 2) = (/ & - &1.1520e-04 ,1.2220e-04 ,1.3453e-04 ,1.4590e-04 ,1.5875e-04 /) - kbo(:,34, 2) = (/ & - &9.5764e-05 ,1.0295e-04 ,1.1231e-04 ,1.2221e-04 ,1.3235e-04 /) - kbo(:,35, 2) = (/ & - &7.8951e-05 ,8.5467e-05 ,9.3381e-05 ,1.0154e-04 ,1.0962e-04 /) - kbo(:,36, 2) = (/ & - &6.4805e-05 ,7.0212e-05 ,7.6766e-05 ,8.3544e-05 ,9.0139e-05 /) - kbo(:,37, 2) = (/ & - &5.2918e-05 ,5.7064e-05 ,6.2426e-05 ,6.8102e-05 ,7.3562e-05 /) - kbo(:,38, 2) = (/ & - &4.3224e-05 ,4.6216e-05 ,5.0772e-05 ,5.5504e-05 ,6.0016e-05 /) - kbo(:,39, 2) = (/ & - &3.5291e-05 ,3.7592e-05 ,4.1355e-05 ,4.5145e-05 ,4.8932e-05 /) - kbo(:,40, 2) = (/ & - &2.8761e-05 ,3.0515e-05 ,3.3449e-05 ,3.6463e-05 ,3.9654e-05 /) - kbo(:,41, 2) = (/ & - &2.3487e-05 ,2.4801e-05 ,2.6922e-05 ,2.9459e-05 ,3.2147e-05 /) - kbo(:,42, 2) = (/ & - &1.9314e-05 ,2.0243e-05 ,2.1564e-05 ,2.3753e-05 ,2.5964e-05 /) - kbo(:,43, 2) = (/ & - &1.5553e-05 ,1.6470e-05 ,1.7479e-05 ,1.9035e-05 ,2.0784e-05 /) - kbo(:,44, 2) = (/ & - &1.2457e-05 ,1.3468e-05 ,1.4190e-05 ,1.5199e-05 ,1.6632e-05 /) - kbo(:,45, 2) = (/ & - &9.9734e-06 ,1.1008e-05 ,1.1581e-05 ,1.2254e-05 ,1.3346e-05 /) - kbo(:,46, 2) = (/ & - &7.9698e-06 ,8.8088e-06 ,9.4445e-06 ,9.9340e-06 ,1.0690e-05 /) - kbo(:,47, 2) = (/ & - &6.3565e-06 ,7.0249e-06 ,7.7396e-06 ,8.1033e-06 ,8.5527e-06 /) - kbo(:,48, 2) = (/ & - &5.1256e-06 ,5.5929e-06 ,6.1735e-06 ,6.6021e-06 ,6.9371e-06 /) - kbo(:,49, 2) = (/ & - &4.0784e-06 ,4.4718e-06 ,4.9212e-06 ,5.4190e-06 ,5.6740e-06 /) - kbo(:,50, 2) = (/ & - &3.3297e-06 ,3.6155e-06 ,3.9436e-06 ,4.3292e-06 ,4.6291e-06 /) - kbo(:,51, 2) = (/ & - &2.7486e-06 ,2.9107e-06 ,3.1698e-06 ,3.4767e-06 ,3.8139e-06 /) - kbo(:,52, 2) = (/ & - &2.2530e-06 ,2.4006e-06 ,2.5759e-06 ,2.7925e-06 ,3.0627e-06 /) - kbo(:,53, 2) = (/ & - &1.8678e-06 ,1.9765e-06 ,2.1052e-06 ,2.2503e-06 ,2.4591e-06 /) - kbo(:,54, 2) = (/ & - &1.5340e-06 ,1.6385e-06 ,1.7450e-06 ,1.8671e-06 ,1.9805e-06 /) - kbo(:,55, 2) = (/ & - &1.2873e-06 ,1.3532e-06 ,1.4432e-06 ,1.5328e-06 ,1.6236e-06 /) - kbo(:,56, 2) = (/ & - &1.0668e-06 ,1.1355e-06 ,1.1865e-06 ,1.2884e-06 ,1.3667e-06 /) - kbo(:,57, 2) = (/ & - &8.4592e-07 ,9.6149e-07 ,9.8845e-07 ,1.0536e-06 ,1.1286e-06 /) - kbo(:,58, 2) = (/ & - &6.5721e-07 ,8.0847e-07 ,8.4916e-07 ,8.7196e-07 ,9.4267e-07 /) - kbo(:,59, 2) = (/ & - &5.2809e-07 ,6.6890e-07 ,7.2431e-07 ,7.4028e-07 ,7.8416e-07 /) - kbo(:,13, 3) = (/ & - &8.0007e-03 ,8.9344e-03 ,1.0260e-02 ,1.1651e-02 ,1.2914e-02 /) - kbo(:,14, 3) = (/ & - &6.8039e-03 ,7.6829e-03 ,8.7921e-03 ,9.9141e-03 ,1.0757e-02 /) - kbo(:,15, 3) = (/ & - &5.7029e-03 ,6.5489e-03 ,7.4475e-03 ,8.3471e-03 ,8.8091e-03 /) - kbo(:,16, 3) = (/ & - &4.8074e-03 ,5.5085e-03 ,6.2455e-03 ,6.9353e-03 ,7.1997e-03 /) - kbo(:,17, 3) = (/ & - &4.0213e-03 ,4.6076e-03 ,5.2117e-03 ,5.6731e-03 ,5.8805e-03 /) - kbo(:,18, 3) = (/ & - &3.3461e-03 ,3.8362e-03 ,4.3242e-03 ,4.6154e-03 ,4.7757e-03 /) - kbo(:,19, 3) = (/ & - &2.7996e-03 ,3.2075e-03 ,3.5883e-03 ,3.7732e-03 ,3.8872e-03 /) - kbo(:,20, 3) = (/ & - &2.3589e-03 ,2.6931e-03 ,2.9843e-03 ,3.1004e-03 ,3.1743e-03 /) - kbo(:,21, 3) = (/ & - &1.9734e-03 ,2.2564e-03 ,2.4531e-03 ,2.5572e-03 ,2.5979e-03 /) - kbo(:,22, 3) = (/ & - &1.6777e-03 ,1.9014e-03 ,2.0201e-03 ,2.0877e-03 ,2.1290e-03 /) - kbo(:,23, 3) = (/ & - &1.4255e-03 ,1.6043e-03 ,1.6675e-03 ,1.7121e-03 ,1.7219e-03 /) - kbo(:,24, 3) = (/ & - &1.2066e-03 ,1.3233e-03 ,1.3782e-03 ,1.4109e-03 ,1.3842e-03 /) - kbo(:,25, 3) = (/ & - &1.0218e-03 ,1.0936e-03 ,1.1313e-03 ,1.1590e-03 ,1.1132e-03 /) - kbo(:,26, 3) = (/ & - &8.6686e-04 ,9.0770e-04 ,9.3474e-04 ,9.3738e-04 ,9.0394e-04 /) - kbo(:,27, 3) = (/ & - &7.2332e-04 ,7.5480e-04 ,7.7347e-04 ,7.5530e-04 ,7.3995e-04 /) - kbo(:,28, 3) = (/ & - &5.9945e-04 ,6.1747e-04 ,6.3797e-04 ,6.1191e-04 ,6.1018e-04 /) - kbo(:,29, 3) = (/ & - &4.9636e-04 ,5.1141e-04 ,5.1979e-04 ,4.9718e-04 ,5.0501e-04 /) - kbo(:,30, 3) = (/ & - &4.1287e-04 ,4.2400e-04 ,4.1392e-04 ,4.0737e-04 ,4.1659e-04 /) - kbo(:,31, 3) = (/ & - &3.3517e-04 ,3.4906e-04 ,3.3288e-04 ,3.3660e-04 ,3.4335e-04 /) - kbo(:,32, 3) = (/ & - &2.7784e-04 ,2.7984e-04 ,2.7143e-04 ,2.7785e-04 ,2.8417e-04 /) - kbo(:,33, 3) = (/ & - &2.3052e-04 ,2.2367e-04 ,2.2307e-04 ,2.2883e-04 ,2.3495e-04 /) - kbo(:,34, 3) = (/ & - &1.9073e-04 ,1.8192e-04 ,1.8515e-04 ,1.8942e-04 ,1.9507e-04 /) - kbo(:,35, 3) = (/ & - &1.5683e-04 ,1.4914e-04 ,1.5288e-04 ,1.5663e-04 ,1.6156e-04 /) - kbo(:,36, 3) = (/ & - &1.2835e-04 ,1.2262e-04 ,1.2564e-04 ,1.2896e-04 ,1.3319e-04 /) - kbo(:,37, 3) = (/ & - &1.0651e-04 ,1.0086e-04 ,1.0335e-04 ,1.0615e-04 ,1.0970e-04 /) - kbo(:,38, 3) = (/ & - &8.7372e-05 ,8.2916e-05 ,8.4948e-05 ,8.7192e-05 ,9.0174e-05 /) - kbo(:,39, 3) = (/ & - &7.1580e-05 ,6.8441e-05 ,6.9733e-05 ,7.1507e-05 ,7.4030e-05 /) - kbo(:,40, 3) = (/ & - &5.8422e-05 ,5.7750e-05 ,5.6983e-05 ,5.8663e-05 ,6.0682e-05 /) - kbo(:,41, 3) = (/ & - &4.7623e-05 ,4.8587e-05 ,4.6749e-05 ,4.8145e-05 ,4.9685e-05 /) - kbo(:,42, 3) = (/ & - &3.8729e-05 ,4.0813e-05 ,3.8776e-05 ,3.9518e-05 ,4.0826e-05 /) - kbo(:,43, 3) = (/ & - &3.2019e-05 ,3.3273e-05 ,3.2653e-05 ,3.2753e-05 ,3.3527e-05 /) - kbo(:,44, 3) = (/ & - &2.6412e-05 ,2.7141e-05 ,2.7698e-05 ,2.6940e-05 ,2.7582e-05 /) - kbo(:,45, 3) = (/ & - &2.1266e-05 ,2.2156e-05 ,2.3306e-05 ,2.2397e-05 ,2.2801e-05 /) - kbo(:,46, 3) = (/ & - &1.7333e-05 ,1.8301e-05 ,1.8885e-05 ,1.9036e-05 ,1.8747e-05 /) - kbo(:,47, 3) = (/ & - &1.4070e-05 ,1.4972e-05 ,1.5353e-05 ,1.6172e-05 ,1.5451e-05 /) - kbo(:,48, 3) = (/ & - &1.0908e-05 ,1.2143e-05 ,1.2701e-05 ,1.3131e-05 ,1.3135e-05 /) - kbo(:,49, 3) = (/ & - &8.5257e-06 ,9.9029e-06 ,1.0615e-05 ,1.0623e-05 ,1.1229e-05 /) - kbo(:,50, 3) = (/ & - &6.5831e-06 ,7.8068e-06 ,8.5689e-06 ,8.8823e-06 ,9.1397e-06 /) - kbo(:,51, 3) = (/ & - &5.0124e-06 ,6.1123e-06 ,6.9735e-06 ,7.5152e-06 ,7.4209e-06 /) - kbo(:,52, 3) = (/ & - &3.8557e-06 ,4.7153e-06 ,5.6513e-06 ,6.0740e-06 ,6.2588e-06 /) - kbo(:,53, 3) = (/ & - &2.9713e-06 ,3.6139e-06 ,4.3749e-06 ,4.9165e-06 ,5.3050e-06 /) - kbo(:,54, 3) = (/ & - &2.2856e-06 ,2.7967e-06 ,3.4018e-06 ,4.0149e-06 ,4.3280e-06 /) - kbo(:,55, 3) = (/ & - &1.7432e-06 ,2.1952e-06 ,2.6416e-06 ,3.2063e-06 ,3.5207e-06 /) - kbo(:,56, 3) = (/ & - &1.3460e-06 ,1.6981e-06 ,2.0681e-06 ,2.4690e-06 ,2.8558e-06 /) - kbo(:,57, 3) = (/ & - &1.0794e-06 ,1.2900e-06 ,1.6260e-06 ,1.9447e-06 ,2.3391e-06 /) - kbo(:,58, 3) = (/ & - &9.2042e-07 ,9.9682e-07 ,1.2594e-06 ,1.5341e-06 ,1.8245e-06 /) - kbo(:,59, 3) = (/ & - &7.5487e-07 ,8.2111e-07 ,1.0075e-06 ,1.2341e-06 ,1.4799e-06 /) - kbo(:,13, 4) = (/ & - &1.6236e-02 ,1.6164e-02 ,1.6551e-02 ,1.6579e-02 ,1.4849e-02 /) - kbo(:,14, 4) = (/ & - &1.3333e-02 ,1.3358e-02 ,1.3723e-02 ,1.3164e-02 ,1.2310e-02 /) - kbo(:,15, 4) = (/ & - &1.0791e-02 ,1.1005e-02 ,1.1347e-02 ,1.0262e-02 ,1.0198e-02 /) - kbo(:,16, 4) = (/ & - &8.7740e-03 ,9.0551e-03 ,8.8988e-03 ,8.1326e-03 ,8.4246e-03 /) - kbo(:,17, 4) = (/ & - &7.1855e-03 ,7.4271e-03 ,6.8507e-03 ,6.6124e-03 ,6.9447e-03 /) - kbo(:,18, 4) = (/ & - &5.8832e-03 ,5.8794e-03 ,5.3061e-03 ,5.4156e-03 ,5.7271e-03 /) - kbo(:,19, 4) = (/ & - &4.7612e-03 ,4.5173e-03 ,4.2495e-03 ,4.4758e-03 ,4.7797e-03 /) - kbo(:,20, 4) = (/ & - &3.8929e-03 ,3.5371e-03 ,3.4837e-03 ,3.7081e-03 ,4.0335e-03 /) - kbo(:,21, 4) = (/ & - &3.1210e-03 ,2.8158e-03 ,2.9040e-03 ,3.0717e-03 ,3.3855e-03 /) - kbo(:,22, 4) = (/ & - &2.4122e-03 ,2.2915e-03 ,2.4348e-03 ,2.6102e-03 ,2.8568e-03 /) - kbo(:,23, 4) = (/ & - &1.8931e-03 ,1.8847e-03 ,2.0226e-03 ,2.2045e-03 ,2.4293e-03 /) - kbo(:,24, 4) = (/ & - &1.5231e-03 ,1.5878e-03 ,1.6899e-03 ,1.8552e-03 ,2.0775e-03 /) - kbo(:,25, 4) = (/ & - &1.2458e-03 ,1.3309e-03 ,1.4317e-03 ,1.5678e-03 ,1.7779e-03 /) - kbo(:,26, 4) = (/ & - &1.0318e-03 ,1.1118e-03 ,1.2146e-03 ,1.3449e-03 ,1.5065e-03 /) - kbo(:,27, 4) = (/ & - &8.6665e-04 ,9.3057e-04 ,1.0235e-03 ,1.1557e-03 ,1.2745e-03 /) - kbo(:,28, 4) = (/ & - &7.2935e-04 ,7.9123e-04 ,8.6656e-04 ,9.8388e-04 ,1.0757e-03 /) - kbo(:,29, 4) = (/ & - &6.1286e-04 ,6.7240e-04 ,7.4124e-04 ,8.3872e-04 ,9.0911e-04 /) - kbo(:,30, 4) = (/ & - &5.1400e-04 ,5.6684e-04 ,6.4255e-04 ,7.1220e-04 ,7.7258e-04 /) - kbo(:,31, 4) = (/ & - &4.4005e-04 ,4.8076e-04 ,5.5017e-04 ,6.0255e-04 ,6.5647e-04 /) - kbo(:,32, 4) = (/ & - &3.7263e-04 ,4.1679e-04 ,4.6901e-04 ,5.1118e-04 ,5.5709e-04 /) - kbo(:,33, 4) = (/ & - &3.1452e-04 ,3.5853e-04 ,3.9810e-04 ,4.3526e-04 ,4.7464e-04 /) - kbo(:,34, 4) = (/ & - &2.6538e-04 ,3.0537e-04 ,3.3607e-04 ,3.6889e-04 ,4.0236e-04 /) - kbo(:,35, 4) = (/ & - &2.2314e-04 ,2.5674e-04 ,2.8212e-04 ,3.1017e-04 ,3.3804e-04 /) - kbo(:,36, 4) = (/ & - &1.8558e-04 ,2.1307e-04 ,2.3484e-04 ,2.5807e-04 ,2.8146e-04 /) - kbo(:,37, 4) = (/ & - &1.5092e-04 ,1.7515e-04 ,1.9371e-04 ,2.1363e-04 ,2.3312e-04 /) - kbo(:,38, 4) = (/ & - &1.2396e-04 ,1.4379e-04 ,1.5969e-04 ,1.7662e-04 ,1.9284e-04 /) - kbo(:,39, 4) = (/ & - &1.0157e-04 ,1.1773e-04 ,1.3175e-04 ,1.4587e-04 ,1.5934e-04 /) - kbo(:,40, 4) = (/ & - &8.2605e-05 ,9.4273e-05 ,1.0813e-04 ,1.1977e-04 ,1.3107e-04 /) - kbo(:,41, 4) = (/ & - &6.6939e-05 ,7.5416e-05 ,8.8332e-05 ,9.8121e-05 ,1.0774e-04 /) - kbo(:,42, 4) = (/ & - &5.4049e-05 ,6.0030e-05 ,7.1511e-05 ,8.0199e-05 ,8.8261e-05 /) - kbo(:,43, 4) = (/ & - &4.3092e-05 ,4.8470e-05 ,5.6902e-05 ,6.4800e-05 ,7.1905e-05 /) - kbo(:,44, 4) = (/ & - &3.4303e-05 ,3.8888e-05 ,4.4709e-05 ,5.2317e-05 ,5.8294e-05 /) - kbo(:,45, 4) = (/ & - &2.7706e-05 ,3.1192e-05 ,3.5138e-05 ,4.1880e-05 ,4.7037e-05 /) - kbo(:,46, 4) = (/ & - &2.2020e-05 ,2.4816e-05 ,2.8235e-05 ,3.2847e-05 ,3.7855e-05 /) - kbo(:,47, 4) = (/ & - &1.7397e-05 ,1.9571e-05 ,2.2339e-05 ,2.5403e-05 ,3.0154e-05 /) - kbo(:,48, 4) = (/ & - &1.4464e-05 ,1.5535e-05 ,1.7628e-05 ,2.0160e-05 ,2.3523e-05 /) - kbo(:,49, 4) = (/ & - &1.2203e-05 ,1.2334e-05 ,1.3809e-05 ,1.5955e-05 ,1.8189e-05 /) - kbo(:,50, 4) = (/ & - &1.0868e-05 ,1.0166e-05 ,1.1038e-05 ,1.2542e-05 ,1.4482e-05 /) - kbo(:,51, 4) = (/ & - &9.5445e-06 ,8.4914e-06 ,8.8728e-06 ,9.7788e-06 ,1.1531e-05 /) - kbo(:,52, 4) = (/ & - &7.6675e-06 ,7.5593e-06 ,7.1200e-06 ,7.9511e-06 ,9.0030e-06 /) - kbo(:,53, 4) = (/ & - &6.1578e-06 ,6.8621e-06 ,5.9549e-06 ,6.4007e-06 ,7.0103e-06 /) - kbo(:,54, 4) = (/ & - &4.9970e-06 ,5.5372e-06 ,5.2950e-06 ,5.1133e-06 ,5.6754e-06 /) - kbo(:,55, 4) = (/ & - &4.1058e-06 ,4.4463e-06 ,4.8381e-06 ,4.2110e-06 ,4.6398e-06 /) - kbo(:,56, 4) = (/ & - &3.3825e-06 ,3.6285e-06 ,4.0286e-06 ,3.7391e-06 ,3.7193e-06 /) - kbo(:,57, 4) = (/ & - &2.7087e-06 ,2.9631e-06 ,3.2500e-06 ,3.4185e-06 ,3.0256e-06 /) - kbo(:,58, 4) = (/ & - &2.0759e-06 ,2.4918e-06 ,2.6378e-06 ,2.9253e-06 ,2.6729e-06 /) - kbo(:,59, 4) = (/ & - &1.6942e-06 ,2.0927e-06 ,2.1992e-06 ,2.4373e-06 ,2.3395e-06 /) - kbo(:,13, 5) = (/ & - &1.7253e-02 ,1.9755e-02 ,2.1401e-02 ,2.3591e-02 ,2.8114e-02 /) - kbo(:,14, 5) = (/ & - &1.4836e-02 ,1.6934e-02 ,1.8341e-02 ,2.1005e-02 ,2.4456e-02 /) - kbo(:,15, 5) = (/ & - &1.2786e-02 ,1.4254e-02 ,1.5589e-02 ,1.8700e-02 ,2.1272e-02 /) - kbo(:,16, 5) = (/ & - &1.0892e-02 ,1.2056e-02 ,1.3761e-02 ,1.6336e-02 ,1.8224e-02 /) - kbo(:,17, 5) = (/ & - &9.1405e-03 ,1.0167e-02 ,1.2171e-02 ,1.4009e-02 ,1.5426e-02 /) - kbo(:,18, 5) = (/ & - &7.6420e-03 ,8.7762e-03 ,1.0582e-02 ,1.1875e-02 ,1.2969e-02 /) - kbo(:,19, 5) = (/ & - &6.4312e-03 ,7.6685e-03 ,8.9635e-03 ,9.9226e-03 ,1.0844e-02 /) - kbo(:,20, 5) = (/ & - &5.4039e-03 ,6.6521e-03 ,7.5702e-03 ,8.3653e-03 ,9.0934e-03 /) - kbo(:,21, 5) = (/ & - &4.6584e-03 ,5.7137e-03 ,6.4063e-03 ,7.0462e-03 ,7.6384e-03 /) - kbo(:,22, 5) = (/ & - &4.1485e-03 ,4.9033e-03 ,5.4200e-03 ,5.9610e-03 ,6.4648e-03 /) - kbo(:,23, 5) = (/ & - &3.6403e-03 ,4.1705e-03 ,4.6055e-03 ,5.0423e-03 ,5.4667e-03 /) - kbo(:,24, 5) = (/ & - &3.1466e-03 ,3.5285e-03 ,3.8988e-03 ,4.2642e-03 ,4.6134e-03 /) - kbo(:,25, 5) = (/ & - &2.6968e-03 ,2.9919e-03 ,3.3029e-03 ,3.6014e-03 ,3.8905e-03 /) - kbo(:,26, 5) = (/ & - &2.2919e-03 ,2.5427e-03 ,2.7966e-03 ,3.0460e-03 ,3.3030e-03 /) - kbo(:,27, 5) = (/ & - &1.9487e-03 ,2.1617e-03 ,2.3708e-03 ,2.5760e-03 ,2.8001e-03 /) - kbo(:,28, 5) = (/ & - &1.6604e-03 ,1.8339e-03 ,2.0064e-03 ,2.1858e-03 ,2.3683e-03 /) - kbo(:,29, 5) = (/ & - &1.4167e-03 ,1.5573e-03 ,1.7005e-03 ,1.8546e-03 ,2.0015e-03 /) - kbo(:,30, 5) = (/ & - &1.2043e-03 ,1.3228e-03 ,1.4435e-03 ,1.5699e-03 ,1.6896e-03 /) - kbo(:,31, 5) = (/ & - &1.0225e-03 ,1.1229e-03 ,1.2273e-03 ,1.3283e-03 ,1.4296e-03 /) - kbo(:,32, 5) = (/ & - &8.6992e-04 ,9.5293e-04 ,1.0416e-03 ,1.1243e-03 ,1.2104e-03 /) - kbo(:,33, 5) = (/ & - &7.3968e-04 ,8.1278e-04 ,8.8420e-04 ,9.5333e-04 ,1.0276e-03 /) - kbo(:,34, 5) = (/ & - &6.2724e-04 ,6.8945e-04 ,7.4802e-04 ,8.0740e-04 ,8.7396e-04 /) - kbo(:,35, 5) = (/ & - &5.2729e-04 ,5.7995e-04 ,6.2910e-04 ,6.7983e-04 ,7.3853e-04 /) - kbo(:,36, 5) = (/ & - &4.3895e-04 ,4.8339e-04 ,5.2479e-04 ,5.6936e-04 ,6.1891e-04 /) - kbo(:,37, 5) = (/ & - &3.6323e-04 ,4.0071e-04 ,4.3613e-04 ,4.7458e-04 ,5.1673e-04 /) - kbo(:,38, 5) = (/ & - &3.0001e-04 ,3.3215e-04 ,3.6263e-04 ,3.9587e-04 ,4.3165e-04 /) - kbo(:,39, 5) = (/ & - &2.4808e-04 ,2.7543e-04 ,3.0133e-04 ,3.3050e-04 ,3.6200e-04 /) - kbo(:,40, 5) = (/ & - &2.0392e-04 ,2.2766e-04 ,2.5038e-04 ,2.7569e-04 ,3.0329e-04 /) - kbo(:,41, 5) = (/ & - &1.6718e-04 ,1.8754e-04 ,2.0771e-04 ,2.3036e-04 ,2.5452e-04 /) - kbo(:,42, 5) = (/ & - &1.3676e-04 ,1.5432e-04 ,1.7210e-04 ,1.9216e-04 ,2.1391e-04 /) - kbo(:,43, 5) = (/ & - &1.1103e-04 ,1.2612e-04 ,1.4186e-04 ,1.5938e-04 ,1.7898e-04 /) - kbo(:,44, 5) = (/ & - &8.9549e-05 ,1.0259e-04 ,1.1643e-04 ,1.3169e-04 ,1.4912e-04 /) - kbo(:,45, 5) = (/ & - &7.2088e-05 ,8.3098e-05 ,9.5307e-05 ,1.0860e-04 ,1.2373e-04 /) - kbo(:,46, 5) = (/ & - &5.7589e-05 ,6.6833e-05 ,7.7497e-05 ,8.9096e-05 ,1.0212e-04 /) - kbo(:,47, 5) = (/ & - &4.5404e-05 ,5.3366e-05 ,6.2424e-05 ,7.2413e-05 ,8.3476e-05 /) - kbo(:,48, 5) = (/ & - &3.5296e-05 ,4.2388e-05 ,4.9972e-05 ,5.8618e-05 ,6.7991e-05 /) - kbo(:,49, 5) = (/ & - &2.7057e-05 ,3.3322e-05 ,3.9733e-05 ,4.7217e-05 ,5.5093e-05 /) - kbo(:,50, 5) = (/ & - &2.0028e-05 ,2.6063e-05 ,3.1674e-05 ,3.7934e-05 ,4.4693e-05 /) - kbo(:,51, 5) = (/ & - &1.4762e-05 ,2.0261e-05 ,2.5067e-05 ,3.0345e-05 ,3.6144e-05 /) - kbo(:,52, 5) = (/ & - &1.1471e-05 ,1.5106e-05 ,1.9721e-05 ,2.4107e-05 ,2.9127e-05 /) - kbo(:,53, 5) = (/ & - &8.8078e-06 ,1.0927e-05 ,1.5370e-05 ,1.9101e-05 ,2.3328e-05 /) - kbo(:,54, 5) = (/ & - &6.7922e-06 ,8.5333e-06 ,1.1608e-05 ,1.5114e-05 ,1.8676e-05 /) - kbo(:,55, 5) = (/ & - &5.2087e-06 ,6.6736e-06 ,8.5401e-06 ,1.1909e-05 ,1.4884e-05 /) - kbo(:,56, 5) = (/ & - &3.9778e-06 ,5.1458e-06 ,6.5614e-06 ,9.1281e-06 ,1.1849e-05 /) - kbo(:,57, 5) = (/ & - &3.4293e-06 ,3.9957e-06 ,5.1202e-06 ,6.7753e-06 ,9.3431e-06 /) - kbo(:,58, 5) = (/ & - &3.0812e-06 ,3.0418e-06 ,3.9938e-06 ,5.1720e-06 ,7.2446e-06 /) - kbo(:,59, 5) = (/ & - &2.6710e-06 ,2.4462e-06 ,3.2530e-06 ,4.2384e-06 ,5.8592e-06 /) - kbo(:,13, 6) = (/ & - &4.3826e-02 ,5.0848e-02 ,5.7125e-02 ,6.2916e-02 ,6.7915e-02 /) - kbo(:,14, 6) = (/ & - &3.8242e-02 ,4.3851e-02 ,4.9242e-02 ,5.3907e-02 ,5.8385e-02 /) - kbo(:,15, 6) = (/ & - &3.3170e-02 ,3.7873e-02 ,4.2212e-02 ,4.6203e-02 ,5.0021e-02 /) - kbo(:,16, 6) = (/ & - &2.8430e-02 ,3.2381e-02 ,3.6071e-02 ,3.9408e-02 ,4.2554e-02 /) - kbo(:,17, 6) = (/ & - &2.4252e-02 ,2.7453e-02 ,3.0545e-02 ,3.3265e-02 ,3.5923e-02 /) - kbo(:,18, 6) = (/ & - &2.0461e-02 ,2.3166e-02 ,2.5616e-02 ,2.7856e-02 ,3.0048e-02 /) - kbo(:,19, 6) = (/ & - &1.7273e-02 ,1.9462e-02 ,2.1473e-02 ,2.3367e-02 ,2.5163e-02 /) - kbo(:,20, 6) = (/ & - &1.4713e-02 ,1.6450e-02 ,1.8126e-02 ,1.9702e-02 ,2.1262e-02 /) - kbo(:,21, 6) = (/ & - &1.2468e-02 ,1.3887e-02 ,1.5268e-02 ,1.6611e-02 ,1.7949e-02 /) - kbo(:,22, 6) = (/ & - &1.0608e-02 ,1.1782e-02 ,1.2961e-02 ,1.4100e-02 ,1.5205e-02 /) - kbo(:,23, 6) = (/ & - &8.9996e-03 ,9.9872e-03 ,1.1001e-02 ,1.1992e-02 ,1.2875e-02 /) - kbo(:,24, 6) = (/ & - &7.6639e-03 ,8.5225e-03 ,9.3703e-03 ,1.0166e-02 ,1.0905e-02 /) - kbo(:,25, 6) = (/ & - &6.5402e-03 ,7.2570e-03 ,7.9762e-03 ,8.6328e-03 ,9.2482e-03 /) - kbo(:,26, 6) = (/ & - &5.5998e-03 ,6.2109e-03 ,6.7992e-03 ,7.3298e-03 ,7.8244e-03 /) - kbo(:,27, 6) = (/ & - &4.7932e-03 ,5.3061e-03 ,5.7794e-03 ,6.2257e-03 ,6.6438e-03 /) - kbo(:,28, 6) = (/ & - &4.0951e-03 ,4.5312e-03 ,4.9233e-03 ,5.2892e-03 ,5.6437e-03 /) - kbo(:,29, 6) = (/ & - &3.5062e-03 ,3.8638e-03 ,4.1941e-03 ,4.4995e-03 ,4.7944e-03 /) - kbo(:,30, 6) = (/ & - &2.9997e-03 ,3.2915e-03 ,3.5642e-03 ,3.8238e-03 ,4.0827e-03 /) - kbo(:,31, 6) = (/ & - &2.5609e-03 ,2.8021e-03 ,3.0278e-03 ,3.2471e-03 ,3.4700e-03 /) - kbo(:,32, 6) = (/ & - &2.1838e-03 ,2.3823e-03 ,2.5746e-03 ,2.7615e-03 ,2.9515e-03 /) - kbo(:,33, 6) = (/ & - &1.8610e-03 ,2.0261e-03 ,2.1868e-03 ,2.3490e-03 ,2.5125e-03 /) - kbo(:,34, 6) = (/ & - &1.5812e-03 ,1.7190e-03 ,1.8561e-03 ,1.9953e-03 ,2.1347e-03 /) - kbo(:,35, 6) = (/ & - &1.3323e-03 ,1.4487e-03 ,1.5664e-03 ,1.6864e-03 ,1.8025e-03 /) - kbo(:,36, 6) = (/ & - &1.1120e-03 ,1.2101e-03 ,1.3111e-03 ,1.4134e-03 ,1.5124e-03 /) - kbo(:,37, 6) = (/ & - &9.2067e-04 ,1.0045e-03 ,1.0903e-03 ,1.1790e-03 ,1.2650e-03 /) - kbo(:,38, 6) = (/ & - &7.6186e-04 ,8.3301e-04 ,9.0690e-04 ,9.8204e-04 ,1.0582e-03 /) - kbo(:,39, 6) = (/ & - &6.3121e-04 ,6.9074e-04 ,7.5442e-04 ,8.1836e-04 ,8.8377e-04 /) - kbo(:,40, 6) = (/ & - &5.2096e-04 ,5.7198e-04 ,6.2426e-04 ,6.7904e-04 ,7.3548e-04 /) - kbo(:,41, 6) = (/ & - &4.2992e-04 ,4.7365e-04 ,5.1846e-04 ,5.6371e-04 ,6.1228e-04 /) - kbo(:,42, 6) = (/ & - &3.5500e-04 ,3.9262e-04 ,4.3159e-04 ,4.7009e-04 ,5.1120e-04 /) - kbo(:,43, 6) = (/ & - &2.9285e-04 ,3.2562e-04 ,3.5900e-04 ,3.9210e-04 ,4.2694e-04 /) - kbo(:,44, 6) = (/ & - &2.4061e-04 ,2.6923e-04 ,2.9805e-04 ,3.2732e-04 ,3.5760e-04 /) - kbo(:,45, 6) = (/ & - &1.9754e-04 ,2.2270e-04 ,2.4799e-04 ,2.7345e-04 ,3.0033e-04 /) - kbo(:,46, 6) = (/ & - &1.6118e-04 ,1.8331e-04 ,2.0573e-04 ,2.2834e-04 ,2.5255e-04 /) - kbo(:,47, 6) = (/ & - &1.3001e-04 ,1.4919e-04 ,1.6905e-04 ,1.8953e-04 ,2.1172e-04 /) - kbo(:,48, 6) = (/ & - &1.0430e-04 ,1.2103e-04 ,1.3853e-04 ,1.5665e-04 ,1.7689e-04 /) - kbo(:,49, 6) = (/ & - &8.3158e-05 ,9.7679e-05 ,1.1288e-04 ,1.2898e-04 ,1.4689e-04 /) - kbo(:,50, 6) = (/ & - &6.6182e-05 ,7.8799e-05 ,9.1873e-05 ,1.0601e-04 ,1.2184e-04 /) - kbo(:,51, 6) = (/ & - &5.2460e-05 ,6.3349e-05 ,7.4559e-05 ,8.7033e-05 ,1.0081e-04 /) - kbo(:,52, 6) = (/ & - &4.1391e-05 ,5.0671e-05 ,6.0237e-05 ,7.1015e-05 ,8.3290e-05 /) - kbo(:,53, 6) = (/ & - &3.2451e-05 ,4.0299e-05 ,4.8474e-05 ,5.7732e-05 ,6.8499e-05 /) - kbo(:,54, 6) = (/ & - &2.5414e-05 ,3.2075e-05 ,3.9061e-05 ,4.7059e-05 ,5.6458e-05 /) - kbo(:,55, 6) = (/ & - &1.9791e-05 ,2.5430e-05 ,3.1447e-05 ,3.8320e-05 ,4.6433e-05 /) - kbo(:,56, 6) = (/ & - &1.5282e-05 ,2.0059e-05 ,2.5203e-05 ,3.1033e-05 ,3.8063e-05 /) - kbo(:,57, 6) = (/ & - &1.1377e-05 ,1.5690e-05 ,2.0076e-05 ,2.5035e-05 ,3.1091e-05 /) - kbo(:,58, 6) = (/ & - &8.3098e-06 ,1.2203e-05 ,1.5952e-05 ,2.0176e-05 ,2.5366e-05 /) - kbo(:,59, 6) = (/ & - &6.5651e-06 ,9.9766e-06 ,1.3186e-05 ,1.6915e-05 ,2.1496e-05 /) - kbo(:,13, 7) = (/ & - &1.1534e-01 ,1.2733e-01 ,1.3962e-01 ,1.4987e-01 ,1.6008e-01 /) - kbo(:,14, 7) = (/ & - &9.8557e-02 ,1.0921e-01 ,1.1846e-01 ,1.2756e-01 ,1.3545e-01 /) - kbo(:,15, 7) = (/ & - &8.4816e-02 ,9.3361e-02 ,1.0130e-01 ,1.0828e-01 ,1.1452e-01 /) - kbo(:,16, 7) = (/ & - &7.2792e-02 ,7.9992e-02 ,8.6025e-02 ,9.1745e-02 ,9.7220e-02 /) - kbo(:,17, 7) = (/ & - &6.2250e-02 ,6.8145e-02 ,7.3215e-02 ,7.8161e-02 ,8.2912e-02 /) - kbo(:,18, 7) = (/ & - &5.2897e-02 ,5.7617e-02 ,6.2131e-02 ,6.6296e-02 ,7.0468e-02 /) - kbo(:,19, 7) = (/ & - &4.4630e-02 ,4.8620e-02 ,5.2395e-02 ,5.5983e-02 ,5.9561e-02 /) - kbo(:,20, 7) = (/ & - &3.7638e-02 ,4.1018e-02 ,4.4192e-02 ,4.7348e-02 ,5.0426e-02 /) - kbo(:,21, 7) = (/ & - &3.1712e-02 ,3.4570e-02 ,3.7337e-02 ,4.0055e-02 ,4.2699e-02 /) - kbo(:,22, 7) = (/ & - &2.6951e-02 ,2.9361e-02 ,3.1724e-02 ,3.4058e-02 ,3.6337e-02 /) - kbo(:,23, 7) = (/ & - &2.2985e-02 ,2.5005e-02 ,2.7002e-02 ,2.8884e-02 ,3.0844e-02 /) - kbo(:,24, 7) = (/ & - &1.9564e-02 ,2.1275e-02 ,2.2950e-02 ,2.4579e-02 ,2.6269e-02 /) - kbo(:,25, 7) = (/ & - &1.6678e-02 ,1.8134e-02 ,1.9557e-02 ,2.0984e-02 ,2.2448e-02 /) - kbo(:,26, 7) = (/ & - &1.4215e-02 ,1.5478e-02 ,1.6731e-02 ,1.8053e-02 ,1.9409e-02 /) - kbo(:,27, 7) = (/ & - &1.2146e-02 ,1.3259e-02 ,1.4401e-02 ,1.5542e-02 ,1.6732e-02 /) - kbo(:,28, 7) = (/ & - &1.0451e-02 ,1.1387e-02 ,1.2366e-02 ,1.3378e-02 ,1.4403e-02 /) - kbo(:,29, 7) = (/ & - &8.9638e-03 ,9.7824e-03 ,1.0625e-02 ,1.1522e-02 ,1.2402e-02 /) - kbo(:,30, 7) = (/ & - &7.7059e-03 ,8.4110e-03 ,9.1535e-03 ,9.9173e-03 ,1.0684e-02 /) - kbo(:,31, 7) = (/ & - &6.6159e-03 ,7.2344e-03 ,7.8777e-03 ,8.5358e-03 ,9.2030e-03 /) - kbo(:,32, 7) = (/ & - &5.6925e-03 ,6.2370e-03 ,6.7880e-03 ,7.3601e-03 ,7.9298e-03 /) - kbo(:,33, 7) = (/ & - &4.9047e-03 ,5.3755e-03 ,5.8574e-03 ,6.3478e-03 ,6.8444e-03 /) - kbo(:,34, 7) = (/ & - &4.2261e-03 ,4.6310e-03 ,5.0504e-03 ,5.4765e-03 ,5.9065e-03 /) - kbo(:,35, 7) = (/ & - &3.6014e-03 ,3.9541e-03 ,4.3177e-03 ,4.6806e-03 ,5.0649e-03 /) - kbo(:,36, 7) = (/ & - &3.0405e-03 ,3.3438e-03 ,3.6573e-03 ,3.9714e-03 ,4.3136e-03 /) - kbo(:,37, 7) = (/ & - &2.5476e-03 ,2.8157e-03 ,3.0872e-03 ,3.3632e-03 ,3.6681e-03 /) - kbo(:,38, 7) = (/ & - &2.1334e-03 ,2.3678e-03 ,2.6052e-03 ,2.8532e-03 ,3.1134e-03 /) - kbo(:,39, 7) = (/ & - &1.7845e-03 ,1.9869e-03 ,2.1996e-03 ,2.4178e-03 ,2.6484e-03 /) - kbo(:,40, 7) = (/ & - &1.4840e-03 ,1.6609e-03 ,1.8504e-03 ,2.0474e-03 ,2.2560e-03 /) - kbo(:,41, 7) = (/ & - &1.2344e-03 ,1.3898e-03 ,1.5559e-03 ,1.7345e-03 ,1.9234e-03 /) - kbo(:,42, 7) = (/ & - &1.0314e-03 ,1.1653e-03 ,1.3107e-03 ,1.4669e-03 ,1.6353e-03 /) - kbo(:,43, 7) = (/ & - &8.5631e-04 ,9.7409e-04 ,1.1003e-03 ,1.2355e-03 ,1.3860e-03 /) - kbo(:,44, 7) = (/ & - &7.0883e-04 ,8.1303e-04 ,9.2536e-04 ,1.0435e-03 ,1.1739e-03 /) - kbo(:,45, 7) = (/ & - &5.8732e-04 ,6.7556e-04 ,7.7384e-04 ,8.8025e-04 ,9.9590e-04 /) - kbo(:,46, 7) = (/ & - &4.8484e-04 ,5.6171e-04 ,6.4432e-04 ,7.3847e-04 ,8.4169e-04 /) - kbo(:,47, 7) = (/ & - &3.9752e-04 ,4.6412e-04 ,5.3807e-04 ,6.1858e-04 ,7.0821e-04 /) - kbo(:,48, 7) = (/ & - &3.2593e-04 ,3.8380e-04 ,4.4885e-04 ,5.1997e-04 ,5.9487e-04 /) - kbo(:,49, 7) = (/ & - &2.6581e-04 ,3.1620e-04 ,3.7509e-04 ,4.3658e-04 ,5.0219e-04 /) - kbo(:,50, 7) = (/ & - &2.1682e-04 ,2.6203e-04 ,3.1361e-04 ,3.6786e-04 ,4.2524e-04 /) - kbo(:,51, 7) = (/ & - &1.7696e-04 ,2.1726e-04 ,2.6292e-04 ,3.1080e-04 ,3.6141e-04 /) - kbo(:,52, 7) = (/ & - &1.4350e-04 ,1.8000e-04 ,2.2008e-04 ,2.6275e-04 ,3.0811e-04 /) - kbo(:,53, 7) = (/ & - &1.1566e-04 ,1.4775e-04 ,1.8326e-04 ,2.2179e-04 ,2.6354e-04 /) - kbo(:,54, 7) = (/ & - &9.3174e-05 ,1.2130e-04 ,1.5287e-04 ,1.8794e-04 ,2.2723e-04 /) - kbo(:,55, 7) = (/ & - &7.4812e-05 ,9.9351e-05 ,1.2721e-04 ,1.5976e-04 ,1.9539e-04 /) - kbo(:,56, 7) = (/ & - &5.9751e-05 ,8.0907e-05 ,1.0532e-04 ,1.3503e-04 ,1.6719e-04 /) - kbo(:,57, 7) = (/ & - &4.7338e-05 ,6.5345e-05 ,8.6815e-05 ,1.1307e-04 ,1.4234e-04 /) - kbo(:,58, 7) = (/ & - &3.7388e-05 ,5.2674e-05 ,7.1720e-05 ,9.4757e-05 ,1.2118e-04 /) - kbo(:,59, 7) = (/ & - &3.1368e-05 ,4.4899e-05 ,6.2069e-05 ,8.2754e-05 ,1.0682e-04 /) - kbo(:,13, 8) = (/ & - &3.8513e-01 ,4.3049e-01 ,4.7109e-01 ,5.0795e-01 ,5.3980e-01 /) - kbo(:,14, 8) = (/ & - &3.2769e-01 ,3.6398e-01 ,3.9786e-01 ,4.2776e-01 ,4.5444e-01 /) - kbo(:,15, 8) = (/ & - &2.7898e-01 ,3.0981e-01 ,3.3796e-01 ,3.6334e-01 ,3.8812e-01 /) - kbo(:,16, 8) = (/ & - &2.3683e-01 ,2.6231e-01 ,2.8577e-01 ,3.0755e-01 ,3.2800e-01 /) - kbo(:,17, 8) = (/ & - &2.0036e-01 ,2.2125e-01 ,2.4047e-01 ,2.5907e-01 ,2.7604e-01 /) - kbo(:,18, 8) = (/ & - &1.7015e-01 ,1.8726e-01 ,2.0338e-01 ,2.1873e-01 ,2.3341e-01 /) - kbo(:,19, 8) = (/ & - &1.4494e-01 ,1.5899e-01 ,1.7245e-01 ,1.8542e-01 ,1.9788e-01 /) - kbo(:,20, 8) = (/ & - &1.2385e-01 ,1.3588e-01 ,1.4742e-01 ,1.5823e-01 ,1.6882e-01 /) - kbo(:,21, 8) = (/ & - &1.0654e-01 ,1.1655e-01 ,1.2609e-01 ,1.3545e-01 ,1.4408e-01 /) - kbo(:,22, 8) = (/ & - &9.1991e-02 ,1.0041e-01 ,1.0849e-01 ,1.1626e-01 ,1.2371e-01 /) - kbo(:,23, 8) = (/ & - &7.9046e-02 ,8.6400e-02 ,9.3327e-02 ,9.9889e-02 ,1.0642e-01 /) - kbo(:,24, 8) = (/ & - &6.8021e-02 ,7.4328e-02 ,8.0300e-02 ,8.6084e-02 ,9.1544e-02 /) - kbo(:,25, 8) = (/ & - &5.8516e-02 ,6.3854e-02 ,6.9101e-02 ,7.4075e-02 ,7.8861e-02 /) - kbo(:,26, 8) = (/ & - &5.0443e-02 ,5.5091e-02 ,5.9525e-02 ,6.3760e-02 ,6.7833e-02 /) - kbo(:,27, 8) = (/ & - &4.3538e-02 ,4.7477e-02 ,5.1180e-02 ,5.4850e-02 ,5.8530e-02 /) - kbo(:,28, 8) = (/ & - &3.7617e-02 ,4.0916e-02 ,4.4139e-02 ,4.7301e-02 ,5.0513e-02 /) - kbo(:,29, 8) = (/ & - &3.2546e-02 ,3.5342e-02 ,3.8069e-02 ,4.0845e-02 ,4.3756e-02 /) - kbo(:,30, 8) = (/ & - &2.8067e-02 ,3.0536e-02 ,3.2922e-02 ,3.5388e-02 ,3.8072e-02 /) - kbo(:,31, 8) = (/ & - &2.4245e-02 ,2.6387e-02 ,2.8550e-02 ,3.0769e-02 ,3.3007e-02 /) - kbo(:,32, 8) = (/ & - &2.1010e-02 ,2.2870e-02 ,2.4839e-02 ,2.6760e-02 ,2.8725e-02 /) - kbo(:,33, 8) = (/ & - &1.8247e-02 ,1.9921e-02 ,2.1633e-02 ,2.3376e-02 ,2.5089e-02 /) - kbo(:,34, 8) = (/ & - &1.5899e-02 ,1.7453e-02 ,1.8953e-02 ,2.0489e-02 ,2.2006e-02 /) - kbo(:,35, 8) = (/ & - &1.3799e-02 ,1.5171e-02 ,1.6500e-02 ,1.7816e-02 ,1.9222e-02 /) - kbo(:,36, 8) = (/ & - &1.1856e-02 ,1.3040e-02 ,1.4223e-02 ,1.5409e-02 ,1.6675e-02 /) - kbo(:,37, 8) = (/ & - &1.0122e-02 ,1.1172e-02 ,1.2227e-02 ,1.3320e-02 ,1.4426e-02 /) - kbo(:,38, 8) = (/ & - &8.6297e-03 ,9.5720e-03 ,1.0548e-02 ,1.1499e-02 ,1.2504e-02 /) - kbo(:,39, 8) = (/ & - &7.3583e-03 ,8.2086e-03 ,9.0807e-03 ,9.9445e-03 ,1.0852e-02 /) - kbo(:,40, 8) = (/ & - &6.2575e-03 ,7.0294e-03 ,7.8131e-03 ,8.5974e-03 ,9.4311e-03 /) - kbo(:,41, 8) = (/ & - &5.3221e-03 ,6.0117e-03 ,6.7242e-03 ,7.4367e-03 ,8.2130e-03 /) - kbo(:,42, 8) = (/ & - &4.5217e-03 ,5.1291e-03 ,5.7774e-03 ,6.4411e-03 ,7.1607e-03 /) - kbo(:,43, 8) = (/ & - &3.8118e-03 ,4.3626e-03 ,4.9535e-03 ,5.5702e-03 ,6.2186e-03 /) - kbo(:,44, 8) = (/ & - &3.1928e-03 ,3.7055e-03 ,4.2384e-03 ,4.7956e-03 ,5.3949e-03 /) - kbo(:,45, 8) = (/ & - &2.6724e-03 ,3.1345e-03 ,3.6292e-03 ,4.1408e-03 ,4.6835e-03 /) - kbo(:,46, 8) = (/ & - &2.2327e-03 ,2.6446e-03 ,3.0956e-03 ,3.5684e-03 ,4.0653e-03 /) - kbo(:,47, 8) = (/ & - &1.8490e-03 ,2.2161e-03 ,2.6105e-03 ,3.0391e-03 ,3.5058e-03 /) - kbo(:,48, 8) = (/ & - &1.5271e-03 ,1.8513e-03 ,2.2029e-03 ,2.5798e-03 ,3.0175e-03 /) - kbo(:,49, 8) = (/ & - &1.2568e-03 ,1.5444e-03 ,1.8551e-03 ,2.1969e-03 ,2.5931e-03 /) - kbo(:,50, 8) = (/ & - &1.0411e-03 ,1.2920e-03 ,1.5680e-03 ,1.8789e-03 ,2.2434e-03 /) - kbo(:,51, 8) = (/ & - &8.6157e-04 ,1.0792e-03 ,1.3252e-03 ,1.6044e-03 ,1.9374e-03 /) - kbo(:,52, 8) = (/ & - &7.1345e-04 ,8.9803e-04 ,1.1146e-03 ,1.3696e-03 ,1.6714e-03 /) - kbo(:,53, 8) = (/ & - &5.9120e-04 ,7.4871e-04 ,9.4040e-04 ,1.1662e-03 ,1.4395e-03 /) - kbo(:,54, 8) = (/ & - &4.9248e-04 ,6.3323e-04 ,7.9771e-04 ,9.9957e-04 ,1.2405e-03 /) - kbo(:,55, 8) = (/ & - &4.1065e-04 ,5.3488e-04 ,6.8225e-04 ,8.6108e-04 ,1.0736e-03 /) - kbo(:,56, 8) = (/ & - &3.4182e-04 ,4.5283e-04 ,5.8716e-04 ,7.4149e-04 ,9.3761e-04 /) - kbo(:,57, 8) = (/ & - &2.8276e-04 ,3.8428e-04 ,5.0468e-04 ,6.4575e-04 ,8.2300e-04 /) - kbo(:,58, 8) = (/ & - &2.3443e-04 ,3.2611e-04 ,4.3528e-04 ,5.6896e-04 ,7.2980e-04 /) - kbo(:,59, 8) = (/ & - &2.0666e-04 ,2.9266e-04 ,3.9707e-04 ,5.2680e-04 ,6.7824e-04 /) - kbo(:,13, 9) = (/ & - &2.6929e+00 ,3.0365e+00 ,3.3480e+00 ,3.6295e+00 ,3.8842e+00 /) - kbo(:,14, 9) = (/ & - &2.3218e+00 ,2.6065e+00 ,2.8670e+00 ,3.1040e+00 ,3.3162e+00 /) - kbo(:,15, 9) = (/ & - &1.9883e+00 ,2.2252e+00 ,2.4424e+00 ,2.6373e+00 ,2.8081e+00 /) - kbo(:,16, 9) = (/ & - &1.6988e+00 ,1.8964e+00 ,2.0747e+00 ,2.2343e+00 ,2.3791e+00 /) - kbo(:,17, 9) = (/ & - &1.4495e+00 ,1.6116e+00 ,1.7595e+00 ,1.8933e+00 ,2.0138e+00 /) - kbo(:,18, 9) = (/ & - &1.2318e+00 ,1.3662e+00 ,1.4893e+00 ,1.6003e+00 ,1.6980e+00 /) - kbo(:,19, 9) = (/ & - &1.0432e+00 ,1.1554e+00 ,1.2571e+00 ,1.3476e+00 ,1.4284e+00 /) - kbo(:,20, 9) = (/ & - &8.8399e-01 ,9.7584e-01 ,1.0583e+00 ,1.1327e+00 ,1.2000e+00 /) - kbo(:,21, 9) = (/ & - &7.4719e-01 ,8.2246e-01 ,8.9025e-01 ,9.5182e-01 ,1.0085e+00 /) - kbo(:,22, 9) = (/ & - &6.3607e-01 ,6.9712e-01 ,7.5292e-01 ,8.0394e-01 ,8.5135e-01 /) - kbo(:,23, 9) = (/ & - &5.4262e-01 ,5.9143e-01 ,6.3738e-01 ,6.8008e-01 ,7.1995e-01 /) - kbo(:,24, 9) = (/ & - &4.6285e-01 ,5.0331e-01 ,5.4067e-01 ,5.7573e-01 ,6.1046e-01 /) - kbo(:,25, 9) = (/ & - &3.9562e-01 ,4.2919e-01 ,4.6040e-01 ,4.9042e-01 ,5.1991e-01 /) - kbo(:,26, 9) = (/ & - &3.4017e-01 ,3.6788e-01 ,3.9442e-01 ,4.2037e-01 ,4.4731e-01 /) - kbo(:,27, 9) = (/ & - &2.9399e-01 ,3.1651e-01 ,3.3903e-01 ,3.6222e-01 ,3.8618e-01 /) - kbo(:,28, 9) = (/ & - &2.5435e-01 ,2.7396e-01 ,2.9328e-01 ,3.1366e-01 ,3.3524e-01 /) - kbo(:,29, 9) = (/ & - &2.2098e-01 ,2.3815e-01 ,2.5600e-01 ,2.7395e-01 ,2.9332e-01 /) - kbo(:,30, 9) = (/ & - &1.9332e-01 ,2.0838e-01 ,2.2416e-01 ,2.4057e-01 ,2.5735e-01 /) - kbo(:,31, 9) = (/ & - &1.6991e-01 ,1.8327e-01 ,1.9737e-01 ,2.1207e-01 ,2.2734e-01 /) - kbo(:,32, 9) = (/ & - &1.4986e-01 ,1.6194e-01 ,1.7445e-01 ,1.8782e-01 ,2.0152e-01 /) - kbo(:,33, 9) = (/ & - &1.3279e-01 ,1.4378e-01 ,1.5504e-01 ,1.6697e-01 ,1.7955e-01 /) - kbo(:,34, 9) = (/ & - &1.1789e-01 ,1.2771e-01 ,1.3816e-01 ,1.4885e-01 ,1.6033e-01 /) - kbo(:,35, 9) = (/ & - &1.0423e-01 ,1.1314e-01 ,1.2268e-01 ,1.3249e-01 ,1.4303e-01 /) - kbo(:,36, 9) = (/ & - &9.1569e-02 ,9.9843e-02 ,1.0848e-01 ,1.1752e-01 ,1.2715e-01 /) - kbo(:,37, 9) = (/ & - &7.9654e-02 ,8.7324e-02 ,9.5396e-02 ,1.0365e-01 ,1.1217e-01 /) - kbo(:,38, 9) = (/ & - &6.9582e-02 ,7.6500e-02 ,8.3939e-02 ,9.1706e-02 ,9.9308e-02 /) - kbo(:,39, 9) = (/ & - &6.0817e-02 ,6.7147e-02 ,7.4089e-02 ,8.1389e-02 ,8.8469e-02 /) - kbo(:,40, 9) = (/ & - &5.2895e-02 ,5.8816e-02 ,6.5088e-02 ,7.1837e-02 ,7.8761e-02 /) - kbo(:,41, 9) = (/ & - &4.5994e-02 ,5.1507e-02 ,5.7306e-02 ,6.3493e-02 ,7.0017e-02 /) - kbo(:,42, 9) = (/ & - &3.9933e-02 ,4.5126e-02 ,5.0659e-02 ,5.6440e-02 ,6.2355e-02 /) - kbo(:,43, 9) = (/ & - &3.4407e-02 ,3.9333e-02 ,4.4505e-02 ,5.0025e-02 ,5.5477e-02 /) - kbo(:,44, 9) = (/ & - &2.9641e-02 ,3.4179e-02 ,3.9085e-02 ,4.4243e-02 ,4.9585e-02 /) - kbo(:,45, 9) = (/ & - &2.5534e-02 ,2.9717e-02 ,3.4321e-02 ,3.9331e-02 ,4.4385e-02 /) - kbo(:,46, 9) = (/ & - &2.1943e-02 ,2.5772e-02 ,3.0011e-02 ,3.4665e-02 ,3.9677e-02 /) - kbo(:,47, 9) = (/ & - &1.8799e-02 ,2.2299e-02 ,2.6155e-02 ,3.0452e-02 ,3.5108e-02 /) - kbo(:,48, 9) = (/ & - &1.6134e-02 ,1.9292e-02 ,2.2898e-02 ,2.6798e-02 ,3.1152e-02 /) - kbo(:,49, 9) = (/ & - &1.3799e-02 ,1.6693e-02 ,1.9932e-02 ,2.3629e-02 ,2.7686e-02 /) - kbo(:,50, 9) = (/ & - &1.1807e-02 ,1.4439e-02 ,1.7455e-02 ,2.0914e-02 ,2.4717e-02 /) - kbo(:,51, 9) = (/ & - &1.0105e-02 ,1.2520e-02 ,1.5304e-02 ,1.8588e-02 ,2.2129e-02 /) - kbo(:,52, 9) = (/ & - &8.6629e-03 ,1.0849e-02 ,1.3445e-02 ,1.6444e-02 ,1.9913e-02 /) - kbo(:,53, 9) = (/ & - &7.4874e-03 ,9.4257e-03 ,1.1801e-02 ,1.4610e-02 ,1.7870e-02 /) - kbo(:,54, 9) = (/ & - &6.4970e-03 ,8.2758e-03 ,1.0456e-02 ,1.3093e-02 ,1.6122e-02 /) - kbo(:,55, 9) = (/ & - &5.6140e-03 ,7.3217e-03 ,9.3276e-03 ,1.1747e-02 ,1.4696e-02 /) - kbo(:,56, 9) = (/ & - &4.8349e-03 ,6.4792e-03 ,8.3317e-03 ,1.0602e-02 ,1.3343e-02 /) - kbo(:,57, 9) = (/ & - &4.1640e-03 ,5.6963e-03 ,7.4736e-03 ,9.6066e-03 ,1.2192e-02 /) - kbo(:,58, 9) = (/ & - &3.5901e-03 ,5.0045e-03 ,6.7274e-03 ,8.7656e-03 ,1.1231e-02 /) - kbo(:,59, 9) = (/ & - &3.3029e-03 ,4.6798e-03 ,6.3469e-03 ,8.3368e-03 ,1.0817e-02 /) - kbo(:,13,10) = (/ & - &1.1103e+01 ,1.2502e+01 ,1.3897e+01 ,1.5277e+01 ,1.6528e+01 /) - kbo(:,14,10) = (/ & - &9.9415e+00 ,1.1260e+01 ,1.2546e+01 ,1.3697e+01 ,1.4756e+01 /) - kbo(:,15,10) = (/ & - &8.8808e+00 ,1.0035e+01 ,1.1086e+01 ,1.2088e+01 ,1.3034e+01 /) - kbo(:,16,10) = (/ & - &7.8211e+00 ,8.7752e+00 ,9.7015e+00 ,1.0578e+01 ,1.1354e+01 /) - kbo(:,17,10) = (/ & - &6.7833e+00 ,7.6204e+00 ,8.4176e+00 ,9.1234e+00 ,9.7674e+00 /) - kbo(:,18,10) = (/ & - &5.8703e+00 ,6.5862e+00 ,7.2317e+00 ,7.8324e+00 ,8.4128e+00 /) - kbo(:,19,10) = (/ & - &5.0772e+00 ,5.6603e+00 ,6.2160e+00 ,6.7517e+00 ,7.2522e+00 /) - kbo(:,20,10) = (/ & - &4.3641e+00 ,4.8646e+00 ,5.3518e+00 ,5.8113e+00 ,6.2183e+00 /) - kbo(:,21,10) = (/ & - &3.7436e+00 ,4.1787e+00 ,4.5968e+00 ,4.9653e+00 ,5.2958e+00 /) - kbo(:,22,10) = (/ & - &3.2384e+00 ,3.6097e+00 ,3.9430e+00 ,4.2432e+00 ,4.5244e+00 /) - kbo(:,23,10) = (/ & - &2.7953e+00 ,3.1049e+00 ,3.3758e+00 ,3.6302e+00 ,3.8688e+00 /) - kbo(:,24,10) = (/ & - &2.4111e+00 ,2.6600e+00 ,2.8956e+00 ,3.1175e+00 ,3.3165e+00 /) - kbo(:,25,10) = (/ & - &2.0794e+00 ,2.2877e+00 ,2.4858e+00 ,2.6707e+00 ,2.8419e+00 /) - kbo(:,26,10) = (/ & - &1.7863e+00 ,1.9622e+00 ,2.1280e+00 ,2.2830e+00 ,2.4241e+00 /) - kbo(:,27,10) = (/ & - &1.5261e+00 ,1.6805e+00 ,1.8222e+00 ,1.9507e+00 ,2.0763e+00 /) - kbo(:,28,10) = (/ & - &1.3094e+00 ,1.4366e+00 ,1.5593e+00 ,1.6738e+00 ,1.7905e+00 /) - kbo(:,29,10) = (/ & - &1.1331e+00 ,1.2336e+00 ,1.3334e+00 ,1.4402e+00 ,1.5544e+00 /) - kbo(:,30,10) = (/ & - &9.7850e-01 ,1.0622e+00 ,1.1514e+00 ,1.2513e+00 ,1.3634e+00 /) - kbo(:,31,10) = (/ & - &8.4902e-01 ,9.2389e-01 ,1.0050e+00 ,1.1001e+00 ,1.2086e+00 /) - kbo(:,32,10) = (/ & - &7.4130e-01 ,8.0932e-01 ,8.8870e-01 ,9.7905e-01 ,1.0856e+00 /) - kbo(:,33,10) = (/ & - &6.5296e-01 ,7.1655e-01 ,7.9236e-01 ,8.8248e-01 ,9.8250e-01 /) - kbo(:,34,10) = (/ & - &5.7962e-01 ,6.3885e-01 ,7.0985e-01 ,7.9650e-01 ,8.9263e-01 /) - kbo(:,35,10) = (/ & - &5.1372e-01 ,5.6904e-01 ,6.3621e-01 ,7.1633e-01 ,8.0771e-01 /) - kbo(:,36,10) = (/ & - &4.5469e-01 ,5.0394e-01 ,5.6668e-01 ,6.4061e-01 ,7.2625e-01 /) - kbo(:,37,10) = (/ & - &3.9957e-01 ,4.4312e-01 ,4.9317e-01 ,5.6045e-01 ,6.4131e-01 /) - kbo(:,38,10) = (/ & - &3.5188e-01 ,3.9249e-01 ,4.3332e-01 ,4.9135e-01 ,5.6831e-01 /) - kbo(:,39,10) = (/ & - &3.1275e-01 ,3.5014e-01 ,3.8817e-01 ,4.3541e-01 ,5.0377e-01 /) - kbo(:,40,10) = (/ & - &2.7524e-01 ,3.0717e-01 ,3.4405e-01 ,3.8385e-01 ,4.3866e-01 /) - kbo(:,41,10) = (/ & - &2.4392e-01 ,2.7163e-01 ,3.0427e-01 ,3.4320e-01 ,3.8763e-01 /) - kbo(:,42,10) = (/ & - &2.1672e-01 ,2.4359e-01 ,2.7030e-01 ,3.0489e-01 ,3.4816e-01 /) - kbo(:,43,10) = (/ & - &1.9366e-01 ,2.1755e-01 ,2.4331e-01 ,2.6943e-01 ,3.1064e-01 /) - kbo(:,44,10) = (/ & - &1.7412e-01 ,1.9505e-01 ,2.1790e-01 ,2.4485e-01 ,2.7503e-01 /) - kbo(:,45,10) = (/ & - &1.5640e-01 ,1.7593e-01 ,1.9695e-01 ,2.2100e-01 ,2.4918e-01 /) - kbo(:,46,10) = (/ & - &1.3989e-01 ,1.5897e-01 ,1.7897e-01 ,2.0081e-01 ,2.2644e-01 /) - kbo(:,47,10) = (/ & - &1.2271e-01 ,1.4204e-01 ,1.6295e-01 ,1.8322e-01 ,2.0661e-01 /) - kbo(:,48,10) = (/ & - &1.0686e-01 ,1.2583e-01 ,1.4636e-01 ,1.6777e-01 ,1.9011e-01 /) - kbo(:,49,10) = (/ & - &9.3685e-02 ,1.1078e-01 ,1.3130e-01 ,1.5261e-01 ,1.7455e-01 /) - kbo(:,50,10) = (/ & - &8.2656e-02 ,9.8591e-02 ,1.1744e-01 ,1.3916e-01 ,1.6129e-01 /) - kbo(:,51,10) = (/ & - &7.2693e-02 ,8.8183e-02 ,1.0575e-01 ,1.2537e-01 ,1.4856e-01 /) - kbo(:,52,10) = (/ & - &6.4048e-02 ,7.9108e-02 ,9.5503e-02 ,1.1470e-01 ,1.3627e-01 /) - kbo(:,53,10) = (/ & - &5.5496e-02 ,7.0682e-02 ,8.5938e-02 ,1.0406e-01 ,1.2637e-01 /) - kbo(:,54,10) = (/ & - &4.9035e-02 ,6.2876e-02 ,7.7887e-02 ,9.5399e-02 ,1.1721e-01 /) - kbo(:,55,10) = (/ & - &4.3446e-02 ,5.6855e-02 ,7.1213e-02 ,8.8342e-02 ,1.0826e-01 /) - kbo(:,56,10) = (/ & - &3.8859e-02 ,5.1445e-02 ,6.5981e-02 ,8.2010e-02 ,1.0158e-01 /) - kbo(:,57,10) = (/ & - &3.5022e-02 ,4.6988e-02 ,6.1022e-02 ,7.6424e-02 ,9.5735e-02 /) - kbo(:,58,10) = (/ & - &3.1909e-02 ,4.3092e-02 ,5.6695e-02 ,7.2335e-02 ,9.0564e-02 /) - kbo(:,59,10) = (/ & - &3.0556e-02 ,4.1959e-02 ,5.5206e-02 ,7.1568e-02 ,9.0259e-02 /) - kbo(:,13,11) = (/ & - &1.9005e+01 ,2.1823e+01 ,2.4335e+01 ,2.6560e+01 ,2.8649e+01 /) - kbo(:,14,11) = (/ & - &1.8043e+01 ,2.0403e+01 ,2.2563e+01 ,2.4639e+01 ,2.6669e+01 /) - kbo(:,15,11) = (/ & - &1.6503e+01 ,1.8586e+01 ,2.0593e+01 ,2.2552e+01 ,2.4342e+01 /) - kbo(:,16,11) = (/ & - &1.4859e+01 ,1.6766e+01 ,1.8612e+01 ,2.0317e+01 ,2.1884e+01 /) - kbo(:,17,11) = (/ & - &1.3269e+01 ,1.4973e+01 ,1.6543e+01 ,1.8024e+01 ,1.9429e+01 /) - kbo(:,18,11) = (/ & - &1.1718e+01 ,1.3157e+01 ,1.4545e+01 ,1.5849e+01 ,1.7039e+01 /) - kbo(:,19,11) = (/ & - &1.0207e+01 ,1.1484e+01 ,1.2680e+01 ,1.3769e+01 ,1.4775e+01 /) - kbo(:,20,11) = (/ & - &8.8979e+00 ,9.9836e+00 ,1.0976e+01 ,1.1897e+01 ,1.2806e+01 /) - kbo(:,21,11) = (/ & - &7.7345e+00 ,8.6287e+00 ,9.4674e+00 ,1.0308e+01 ,1.1126e+01 /) - kbo(:,22,11) = (/ & - &6.7360e+00 ,7.4922e+00 ,8.2529e+00 ,8.9982e+00 ,9.7172e+00 /) - kbo(:,23,11) = (/ & - &5.8386e+00 ,6.5155e+00 ,7.1951e+00 ,7.8490e+00 ,8.4500e+00 /) - kbo(:,24,11) = (/ & - &5.0807e+00 ,5.6843e+00 ,6.2699e+00 ,6.8121e+00 ,7.3100e+00 /) - kbo(:,25,11) = (/ & - &4.4422e+00 ,4.9643e+00 ,5.4499e+00 ,5.8998e+00 ,6.3372e+00 /) - kbo(:,26,11) = (/ & - &3.9004e+00 ,4.3334e+00 ,4.7344e+00 ,5.1243e+00 ,5.5060e+00 /) - kbo(:,27,11) = (/ & - &3.4204e+00 ,3.7816e+00 ,4.1294e+00 ,4.4714e+00 ,4.7992e+00 /) - kbo(:,28,11) = (/ & - &2.9981e+00 ,3.3076e+00 ,3.6130e+00 ,3.9107e+00 ,4.1979e+00 /) - kbo(:,29,11) = (/ & - &2.6272e+00 ,2.9045e+00 ,3.1705e+00 ,3.4300e+00 ,3.6761e+00 /) - kbo(:,30,11) = (/ & - &2.3072e+00 ,2.5571e+00 ,2.7905e+00 ,3.0127e+00 ,3.2425e+00 /) - kbo(:,31,11) = (/ & - &2.0315e+00 ,2.2496e+00 ,2.4602e+00 ,2.6655e+00 ,2.8882e+00 /) - kbo(:,32,11) = (/ & - &1.7947e+00 ,1.9859e+00 ,2.1751e+00 ,2.3754e+00 ,2.5995e+00 /) - kbo(:,33,11) = (/ & - &1.5917e+00 ,1.7608e+00 ,1.9393e+00 ,2.1339e+00 ,2.3696e+00 /) - kbo(:,34,11) = (/ & - &1.4106e+00 ,1.5681e+00 ,1.7384e+00 ,1.9365e+00 ,2.1773e+00 /) - kbo(:,35,11) = (/ & - &1.2470e+00 ,1.3941e+00 ,1.5593e+00 ,1.7605e+00 ,1.9959e+00 /) - kbo(:,36,11) = (/ & - &1.0975e+00 ,1.2350e+00 ,1.3953e+00 ,1.5917e+00 ,1.8213e+00 /) - kbo(:,37,11) = (/ & - &9.5256e-01 ,1.0776e+00 ,1.2351e+00 ,1.4193e+00 ,1.6407e+00 /) - kbo(:,38,11) = (/ & - &8.3116e-01 ,9.4539e-01 ,1.0963e+00 ,1.2721e+00 ,1.4845e+00 /) - kbo(:,39,11) = (/ & - &7.2978e-01 ,8.3514e-01 ,9.7338e-01 ,1.1448e+00 ,1.3526e+00 /) - kbo(:,40,11) = (/ & - &6.3508e-01 ,7.2958e-01 ,8.5453e-01 ,1.0153e+00 ,1.2157e+00 /) - kbo(:,41,11) = (/ & - &5.5559e-01 ,6.3933e-01 ,7.5266e-01 ,8.9822e-01 ,1.0902e+00 /) - kbo(:,42,11) = (/ & - &4.9132e-01 ,5.6247e-01 ,6.6545e-01 ,8.0063e-01 ,9.7700e-01 /) - kbo(:,43,11) = (/ & - &4.3434e-01 ,4.9358e-01 ,5.8232e-01 ,7.0818e-01 ,8.6923e-01 /) - kbo(:,44,11) = (/ & - &3.8638e-01 ,4.3517e-01 ,5.1097e-01 ,6.1891e-01 ,7.7146e-01 /) - kbo(:,45,11) = (/ & - &3.4515e-01 ,3.9086e-01 ,4.5155e-01 ,5.4453e-01 ,6.8039e-01 /) - kbo(:,46,11) = (/ & - &3.1047e-01 ,3.4972e-01 ,4.0476e-01 ,4.8078e-01 ,5.9879e-01 /) - kbo(:,47,11) = (/ & - &2.8096e-01 ,3.1543e-01 ,3.6034e-01 ,4.2515e-01 ,5.2456e-01 /) - kbo(:,48,11) = (/ & - &2.5443e-01 ,2.8861e-01 ,3.2488e-01 ,3.8074e-01 ,4.6176e-01 /) - kbo(:,49,11) = (/ & - &2.3075e-01 ,2.6370e-01 ,2.9745e-01 ,3.4508e-01 ,4.1364e-01 /) - kbo(:,50,11) = (/ & - &2.0955e-01 ,2.4450e-01 ,2.7626e-01 ,3.1515e-01 ,3.7610e-01 /) - kbo(:,51,11) = (/ & - &1.9162e-01 ,2.2508e-01 ,2.5888e-01 ,2.9434e-01 ,3.4519e-01 /) - kbo(:,52,11) = (/ & - &1.7326e-01 ,2.0725e-01 ,2.4087e-01 ,2.7521e-01 ,3.1976e-01 /) - kbo(:,53,11) = (/ & - &1.5761e-01 ,1.9120e-01 ,2.2695e-01 ,2.6019e-01 ,2.9822e-01 /) - kbo(:,54,11) = (/ & - &1.4365e-01 ,1.7736e-01 ,2.1379e-01 ,2.4744e-01 ,2.8175e-01 /) - kbo(:,55,11) = (/ & - &1.3037e-01 ,1.6532e-01 ,2.0060e-01 ,2.3640e-01 ,2.6972e-01 /) - kbo(:,56,11) = (/ & - &1.1768e-01 ,1.5347e-01 ,1.8925e-01 ,2.2636e-01 ,2.6180e-01 /) - kbo(:,57,11) = (/ & - &1.0584e-01 ,1.4146e-01 ,1.7843e-01 ,2.1611e-01 ,2.5112e-01 /) - kbo(:,58,11) = (/ & - &9.5443e-02 ,1.3188e-01 ,1.6746e-01 ,2.0707e-01 ,2.4328e-01 /) - kbo(:,59,11) = (/ & - &9.0897e-02 ,1.2729e-01 ,1.6511e-01 ,2.0322e-01 ,2.4119e-01 /) - kbo(:,13,12) = (/ & - &3.3504e+01 ,3.7950e+01 ,4.2337e+01 ,4.6726e+01 ,5.1022e+01 /) - kbo(:,14,12) = (/ & - &3.2726e+01 ,3.7291e+01 ,4.1814e+01 ,4.6223e+01 ,5.0163e+01 /) - kbo(:,15,12) = (/ & - &3.1900e+01 ,3.6439e+01 ,4.0782e+01 ,4.4671e+01 ,4.8184e+01 /) - kbo(:,16,12) = (/ & - &3.0776e+01 ,3.4900e+01 ,3.8620e+01 ,4.2065e+01 ,4.5353e+01 /) - kbo(:,17,12) = (/ & - &2.8746e+01 ,3.2300e+01 ,3.5697e+01 ,3.8925e+01 ,4.2020e+01 /) - kbo(:,18,12) = (/ & - &2.6146e+01 ,2.9399e+01 ,3.2494e+01 ,3.5494e+01 ,3.8316e+01 /) - kbo(:,19,12) = (/ & - &2.3524e+01 ,2.6429e+01 ,2.9272e+01 ,3.2000e+01 ,3.4621e+01 /) - kbo(:,20,12) = (/ & - &2.1002e+01 ,2.3641e+01 ,2.6168e+01 ,2.8626e+01 ,3.0966e+01 /) - kbo(:,21,12) = (/ & - &1.8638e+01 ,2.0929e+01 ,2.3211e+01 ,2.5404e+01 ,2.7506e+01 /) - kbo(:,22,12) = (/ & - &1.6511e+01 ,1.8592e+01 ,2.0614e+01 ,2.2575e+01 ,2.4466e+01 /) - kbo(:,23,12) = (/ & - &1.4666e+01 ,1.6512e+01 ,1.8295e+01 ,2.0007e+01 ,2.1707e+01 /) - kbo(:,24,12) = (/ & - &1.3045e+01 ,1.4646e+01 ,1.6188e+01 ,1.7728e+01 ,1.9330e+01 /) - kbo(:,25,12) = (/ & - &1.1583e+01 ,1.2959e+01 ,1.4347e+01 ,1.5799e+01 ,1.7308e+01 /) - kbo(:,26,12) = (/ & - &1.0289e+01 ,1.1524e+01 ,1.2828e+01 ,1.4195e+01 ,1.5608e+01 /) - kbo(:,27,12) = (/ & - &9.1629e+00 ,1.0320e+01 ,1.1545e+01 ,1.2818e+01 ,1.4160e+01 /) - kbo(:,28,12) = (/ & - &8.1951e+00 ,9.2900e+00 ,1.0435e+01 ,1.1638e+01 ,1.2904e+01 /) - kbo(:,29,12) = (/ & - &7.3862e+00 ,8.4074e+00 ,9.4905e+00 ,1.0629e+01 ,1.1848e+01 /) - kbo(:,30,12) = (/ & - &6.7112e+00 ,7.6605e+00 ,8.6762e+00 ,9.7816e+00 ,1.0954e+01 /) - kbo(:,31,12) = (/ & - &6.1419e+00 ,7.0283e+00 ,8.0036e+00 ,9.0662e+00 ,1.0224e+01 /) - kbo(:,32,12) = (/ & - &5.6561e+00 ,6.5080e+00 ,7.4459e+00 ,8.4904e+00 ,9.6547e+00 /) - kbo(:,33,12) = (/ & - &5.2496e+00 ,6.0774e+00 ,7.0019e+00 ,8.0523e+00 ,9.2390e+00 /) - kbo(:,34,12) = (/ & - &4.8878e+00 ,5.7010e+00 ,6.6301e+00 ,7.6985e+00 ,8.9231e+00 /) - kbo(:,35,12) = (/ & - &4.5253e+00 ,5.3274e+00 ,6.2605e+00 ,7.3465e+00 ,8.6116e+00 /) - kbo(:,36,12) = (/ & - &4.1488e+00 ,4.9390e+00 ,5.8698e+00 ,6.9625e+00 ,8.2516e+00 /) - kbo(:,37,12) = (/ & - &3.7312e+00 ,4.4908e+00 ,5.4013e+00 ,6.4804e+00 ,7.7554e+00 /) - kbo(:,38,12) = (/ & - &3.3680e+00 ,4.1012e+00 ,4.9908e+00 ,6.0547e+00 ,7.3121e+00 /) - kbo(:,39,12) = (/ & - &3.0586e+00 ,3.7669e+00 ,4.6363e+00 ,5.6845e+00 ,6.9229e+00 /) - kbo(:,40,12) = (/ & - &2.7296e+00 ,3.4041e+00 ,4.2320e+00 ,5.2462e+00 ,6.4437e+00 /) - kbo(:,41,12) = (/ & - &2.4362e+00 ,3.0740e+00 ,3.8624e+00 ,4.8348e+00 ,5.9904e+00 /) - kbo(:,42,12) = (/ & - &2.1809e+00 ,2.7810e+00 ,3.5324e+00 ,4.4598e+00 ,5.5747e+00 /) - kbo(:,43,12) = (/ & - &1.9255e+00 ,2.4860e+00 ,3.1917e+00 ,4.0645e+00 ,5.1258e+00 /) - kbo(:,44,12) = (/ & - &1.6844e+00 ,2.2090e+00 ,2.8652e+00 ,3.6821e+00 ,4.6820e+00 /) - kbo(:,45,12) = (/ & - &1.4745e+00 ,1.9569e+00 ,2.5696e+00 ,3.3333e+00 ,4.2717e+00 /) - kbo(:,46,12) = (/ & - &1.2799e+00 ,1.7238e+00 ,2.2842e+00 ,2.9993e+00 ,3.8727e+00 /) - kbo(:,47,12) = (/ & - &1.0954e+00 ,1.4926e+00 ,2.0054e+00 ,2.6579e+00 ,3.4668e+00 /) - kbo(:,48,12) = (/ & - &9.3943e-01 ,1.2870e+00 ,1.7558e+00 ,2.3470e+00 ,3.0956e+00 /) - kbo(:,49,12) = (/ & - &8.0789e-01 ,1.1100e+00 ,1.5297e+00 ,2.0665e+00 ,2.7506e+00 /) - kbo(:,50,12) = (/ & - &7.0633e-01 ,9.6173e-01 ,1.3381e+00 ,1.8318e+00 ,2.4528e+00 /) - kbo(:,51,12) = (/ & - &6.2380e-01 ,8.4012e-01 ,1.1696e+00 ,1.6208e+00 ,2.1914e+00 /) - kbo(:,52,12) = (/ & - &5.6356e-01 ,7.3733e-01 ,1.0234e+00 ,1.4290e+00 ,1.9532e+00 /) - kbo(:,53,12) = (/ & - &5.0909e-01 ,6.5068e-01 ,8.9219e-01 ,1.2539e+00 ,1.7345e+00 /) - kbo(:,54,12) = (/ & - &4.6136e-01 ,5.8883e-01 ,7.8810e-01 ,1.1078e+00 ,1.5488e+00 /) - kbo(:,55,12) = (/ & - &4.1950e-01 ,5.3756e-01 ,7.0213e-01 ,9.8100e-01 ,1.3825e+00 /) - kbo(:,56,12) = (/ & - &3.8410e-01 ,4.8996e-01 ,6.3016e-01 ,8.6652e-01 ,1.2252e+00 /) - kbo(:,57,12) = (/ & - &3.5624e-01 ,4.4831e-01 ,5.7215e-01 ,7.6572e-01 ,1.0848e+00 /) - kbo(:,58,12) = (/ & - &3.2868e-01 ,4.1829e-01 ,5.2553e-01 ,6.8368e-01 ,9.6165e-01 /) - kbo(:,59,12) = (/ & - &3.1733e-01 ,4.0674e-01 ,5.0354e-01 ,6.5575e-01 ,9.0743e-01 /) - kbo(:,13,13) = (/ & - &6.3252e+01 ,7.1343e+01 ,7.9418e+01 ,8.6956e+01 ,9.3893e+01 /) - kbo(:,14,13) = (/ & - &6.4432e+01 ,7.3277e+01 ,8.1636e+01 ,8.9410e+01 ,9.6695e+01 /) - kbo(:,15,13) = (/ & - &6.5832e+01 ,7.4648e+01 ,8.2893e+01 ,9.0741e+01 ,9.8138e+01 /) - kbo(:,16,13) = (/ & - &6.5929e+01 ,7.4500e+01 ,8.2870e+01 ,9.0803e+01 ,9.8296e+01 /) - kbo(:,17,13) = (/ & - &6.5097e+01 ,7.3774e+01 ,8.2069e+01 ,9.0039e+01 ,9.7697e+01 /) - kbo(:,18,13) = (/ & - &6.3876e+01 ,7.2341e+01 ,8.0612e+01 ,8.8540e+01 ,9.6103e+01 /) - kbo(:,19,13) = (/ & - &6.1808e+01 ,7.0129e+01 ,7.8103e+01 ,8.5721e+01 ,9.2920e+01 /) - kbo(:,20,13) = (/ & - &5.9337e+01 ,6.7178e+01 ,7.4740e+01 ,8.1921e+01 ,8.8860e+01 /) - kbo(:,21,13) = (/ & - &5.6051e+01 ,6.3423e+01 ,7.0500e+01 ,7.7416e+01 ,8.4103e+01 /) - kbo(:,22,13) = (/ & - &5.2578e+01 ,5.9410e+01 ,6.6220e+01 ,7.2967e+01 ,7.9639e+01 /) - kbo(:,23,13) = (/ & - &4.8800e+01 ,5.5307e+01 ,6.1937e+01 ,6.8633e+01 ,7.5406e+01 /) - kbo(:,24,13) = (/ & - &4.5172e+01 ,5.1522e+01 ,5.8057e+01 ,6.4742e+01 ,7.1436e+01 /) - kbo(:,25,13) = (/ & - &4.2002e+01 ,4.8199e+01 ,5.4646e+01 ,6.1219e+01 ,6.7880e+01 /) - kbo(:,26,13) = (/ & - &3.9325e+01 ,4.5395e+01 ,5.1713e+01 ,5.8235e+01 ,6.4961e+01 /) - kbo(:,27,13) = (/ & - &3.7049e+01 ,4.2989e+01 ,4.9236e+01 ,5.5807e+01 ,6.2667e+01 /) - kbo(:,28,13) = (/ & - &3.5161e+01 ,4.0996e+01 ,4.7272e+01 ,5.3955e+01 ,6.1012e+01 /) - kbo(:,29,13) = (/ & - &3.3638e+01 ,3.9504e+01 ,4.5884e+01 ,5.2759e+01 ,6.0034e+01 /) - kbo(:,30,13) = (/ & - &3.2492e+01 ,3.8479e+01 ,4.5047e+01 ,5.2111e+01 ,5.9617e+01 /) - kbo(:,31,13) = (/ & - &3.1781e+01 ,3.7957e+01 ,4.4719e+01 ,5.2013e+01 ,5.9720e+01 /) - kbo(:,32,13) = (/ & - &3.1516e+01 ,3.7888e+01 ,4.4882e+01 ,5.2382e+01 ,6.0245e+01 /) - kbo(:,33,13) = (/ & - &3.1641e+01 ,3.8231e+01 ,4.5439e+01 ,5.3118e+01 ,6.1113e+01 /) - kbo(:,34,13) = (/ & - &3.1881e+01 ,3.8668e+01 ,4.6052e+01 ,5.3873e+01 ,6.1967e+01 /) - kbo(:,35,13) = (/ & - &3.1765e+01 ,3.8677e+01 ,4.6167e+01 ,5.4068e+01 ,6.2237e+01 /) - kbo(:,36,13) = (/ & - &3.1127e+01 ,3.8083e+01 ,4.5619e+01 ,5.3554e+01 ,6.1754e+01 /) - kbo(:,37,13) = (/ & - &2.9631e+01 ,3.6533e+01 ,4.4019e+01 ,5.1934e+01 ,6.0138e+01 /) - kbo(:,38,13) = (/ & - &2.8216e+01 ,3.5039e+01 ,4.2468e+01 ,5.0350e+01 ,5.8547e+01 /) - kbo(:,39,13) = (/ & - &2.6913e+01 ,3.3654e+01 ,4.1024e+01 ,4.8851e+01 ,5.7030e+01 /) - kbo(:,40,13) = (/ & - &2.5061e+01 ,3.1637e+01 ,3.8879e+01 ,4.6620e+01 ,5.4739e+01 /) - kbo(:,41,13) = (/ & - &2.3239e+01 ,2.9632e+01 ,3.6721e+01 ,4.4349e+01 ,5.2395e+01 /) - kbo(:,42,13) = (/ & - &2.1518e+01 ,2.7714e+01 ,3.4638e+01 ,4.2154e+01 ,5.0111e+01 /) - kbo(:,43,13) = (/ & - &1.9578e+01 ,2.5525e+01 ,3.2232e+01 ,3.9588e+01 ,4.7417e+01 /) - kbo(:,44,13) = (/ & - &1.7631e+01 ,2.3285e+01 ,2.9750e+01 ,3.6914e+01 ,4.4596e+01 /) - kbo(:,45,13) = (/ & - &1.5817e+01 ,2.1168e+01 ,2.7372e+01 ,3.4312e+01 ,4.1842e+01 /) - kbo(:,46,13) = (/ & - &1.4031e+01 ,1.9049e+01 ,2.4960e+01 ,3.1648e+01 ,3.8993e+01 /) - kbo(:,47,13) = (/ & - &1.2204e+01 ,1.6850e+01 ,2.2409e+01 ,2.8797e+01 ,3.5899e+01 /) - kbo(:,48,13) = (/ & - &1.0543e+01 ,1.4813e+01 ,2.0005e+01 ,2.6074e+01 ,3.2906e+01 /) - kbo(:,49,13) = (/ & - &9.0410e+00 ,1.2940e+01 ,1.7763e+01 ,2.3491e+01 ,3.0027e+01 /) - kbo(:,50,13) = (/ & - &7.7723e+00 ,1.1328e+01 ,1.5799e+01 ,2.1188e+01 ,2.7436e+01 /) - kbo(:,51,13) = (/ & - &6.6603e+00 ,9.8956e+00 ,1.4031e+01 ,1.9082e+01 ,2.5030e+01 /) - kbo(:,52,13) = (/ & - &5.6483e+00 ,8.5936e+00 ,1.2389e+01 ,1.7108e+01 ,2.2735e+01 /) - kbo(:,53,13) = (/ & - &4.7548e+00 ,7.4145e+00 ,1.0879e+01 ,1.5253e+01 ,2.0556e+01 /) - kbo(:,54,13) = (/ & - &4.0362e+00 ,6.4182e+00 ,9.6047e+00 ,1.3672e+01 ,1.8664e+01 /) - kbo(:,55,13) = (/ & - &3.4328e+00 ,5.5491e+00 ,8.4816e+00 ,1.2254e+01 ,1.6947e+01 /) - kbo(:,56,13) = (/ & - &2.9068e+00 ,4.7740e+00 ,7.4485e+00 ,1.0936e+01 ,1.5335e+01 /) - kbo(:,57,13) = (/ & - &2.4469e+00 ,4.0838e+00 ,6.4921e+00 ,9.7157e+00 ,1.3818e+01 /) - kbo(:,58,13) = (/ & - &2.0735e+00 ,3.4925e+00 ,5.6637e+00 ,8.6413e+00 ,1.2467e+01 /) - kbo(:,59,13) = (/ & - &1.9355e+00 ,3.2709e+00 ,5.3499e+00 ,8.2221e+00 ,1.1950e+01 /) - kbo(:,13,14) = (/ & - &1.3763e+02 ,1.5352e+02 ,1.6709e+02 ,1.7925e+02 ,1.9013e+02 /) - kbo(:,14,14) = (/ & - &1.4836e+02 ,1.6388e+02 ,1.7793e+02 ,1.9078e+02 ,2.0291e+02 /) - kbo(:,15,14) = (/ & - &1.5609e+02 ,1.7227e+02 ,1.8754e+02 ,2.0210e+02 ,2.1605e+02 /) - kbo(:,16,14) = (/ & - &1.6287e+02 ,1.8058e+02 ,1.9742e+02 ,2.1358e+02 ,2.2879e+02 /) - kbo(:,17,14) = (/ & - &1.6936e+02 ,1.8829e+02 ,2.0654e+02 ,2.2380e+02 ,2.3943e+02 /) - kbo(:,18,14) = (/ & - &1.7409e+02 ,1.9426e+02 ,2.1359e+02 ,2.3157e+02 ,2.4840e+02 /) - kbo(:,19,14) = (/ & - &1.7751e+02 ,1.9877e+02 ,2.1900e+02 ,2.3829e+02 ,2.5666e+02 /) - kbo(:,20,14) = (/ & - &1.8029e+02 ,2.0255e+02 ,2.2414e+02 ,2.4492e+02 ,2.6421e+02 /) - kbo(:,21,14) = (/ & - &1.8288e+02 ,2.0645e+02 ,2.2930e+02 ,2.5080e+02 ,2.7109e+02 /) - kbo(:,22,14) = (/ & - &1.8758e+02 ,2.1208e+02 ,2.3543e+02 ,2.5750e+02 ,2.7832e+02 /) - kbo(:,23,14) = (/ & - &1.9239e+02 ,2.1719e+02 ,2.4091e+02 ,2.6350e+02 ,2.8469e+02 /) - kbo(:,24,14) = (/ & - &1.9651e+02 ,2.2173e+02 ,2.4591e+02 ,2.6890e+02 ,2.9066e+02 /) - kbo(:,25,14) = (/ & - &2.0022e+02 ,2.2597e+02 ,2.5071e+02 ,2.7426e+02 ,2.9648e+02 /) - kbo(:,26,14) = (/ & - &2.0417e+02 ,2.3049e+02 ,2.5589e+02 ,2.7996e+02 ,3.0257e+02 /) - kbo(:,27,14) = (/ & - &2.0832e+02 ,2.3518e+02 ,2.6110e+02 ,2.8565e+02 ,3.0854e+02 /) - kbo(:,28,14) = (/ & - &2.1279e+02 ,2.4021e+02 ,2.6653e+02 ,2.9138e+02 ,3.1446e+02 /) - kbo(:,29,14) = (/ & - &2.1796e+02 ,2.4575e+02 ,2.7237e+02 ,2.9736e+02 ,3.2050e+02 /) - kbo(:,30,14) = (/ & - &2.2364e+02 ,2.5171e+02 ,2.7842e+02 ,3.0343e+02 ,3.2655e+02 /) - kbo(:,31,14) = (/ & - &2.2986e+02 ,2.5803e+02 ,2.8476e+02 ,3.0967e+02 ,3.3263e+02 /) - kbo(:,32,14) = (/ & - &2.3644e+02 ,2.6463e+02 ,2.9123e+02 ,3.1599e+02 ,3.3870e+02 /) - kbo(:,33,14) = (/ & - &2.4330e+02 ,2.7142e+02 ,2.9784e+02 ,3.2234e+02 ,3.4468e+02 /) - kbo(:,34,14) = (/ & - &2.4932e+02 ,2.7733e+02 ,3.0352e+02 ,3.2779e+02 ,3.4977e+02 /) - kbo(:,35,14) = (/ & - &2.5266e+02 ,2.8063e+02 ,3.0678e+02 ,3.3096e+02 ,3.5278e+02 /) - kbo(:,36,14) = (/ & - &2.5297e+02 ,2.8101e+02 ,3.0732e+02 ,3.3158e+02 ,3.5352e+02 /) - kbo(:,37,14) = (/ & - &2.4886e+02 ,2.7734e+02 ,3.0396e+02 ,3.2863e+02 ,3.5100e+02 /) - kbo(:,38,14) = (/ & - &2.4449e+02 ,2.7331e+02 ,3.0032e+02 ,3.2535e+02 ,3.4818e+02 /) - kbo(:,39,14) = (/ & - &2.4014e+02 ,2.6925e+02 ,2.9663e+02 ,3.2206e+02 ,3.4524e+02 /) - kbo(:,40,14) = (/ & - &2.3269e+02 ,2.6223e+02 ,2.9013e+02 ,3.1615e+02 ,3.3997e+02 /) - kbo(:,41,14) = (/ & - &2.2477e+02 ,2.5475e+02 ,2.8316e+02 ,3.0972e+02 ,3.3417e+02 /) - kbo(:,42,14) = (/ & - &2.1674e+02 ,2.4709e+02 ,2.7597e+02 ,3.0309e+02 ,3.2816e+02 /) - kbo(:,43,14) = (/ & - &2.0690e+02 ,2.3764e+02 ,2.6708e+02 ,2.9483e+02 ,3.2058e+02 /) - kbo(:,44,14) = (/ & - &1.9620e+02 ,2.2728e+02 ,2.5727e+02 ,2.8565e+02 ,3.1213e+02 /) - kbo(:,45,14) = (/ & - &1.8544e+02 ,2.1679e+02 ,2.4722e+02 ,2.7624e+02 ,3.0339e+02 /) - kbo(:,46,14) = (/ & - &1.7394e+02 ,2.0555e+02 ,2.3639e+02 ,2.6594e+02 ,2.9386e+02 /) - kbo(:,47,14) = (/ & - &1.6112e+02 ,1.9279e+02 ,2.2405e+02 ,2.5421e+02 ,2.8283e+02 /) - kbo(:,48,14) = (/ & - &1.4837e+02 ,1.8000e+02 ,2.1155e+02 ,2.4220e+02 ,2.7155e+02 /) - kbo(:,49,14) = (/ & - &1.3570e+02 ,1.6720e+02 ,1.9889e+02 ,2.3000e+02 ,2.5992e+02 /) - kbo(:,50,14) = (/ & - &1.2401e+02 ,1.5522e+02 ,1.8690e+02 ,2.1834e+02 ,2.4877e+02 /) - kbo(:,51,14) = (/ & - &1.1285e+02 ,1.4368e+02 ,1.7528e+02 ,2.0692e+02 ,2.3777e+02 /) - kbo(:,52,14) = (/ & - &1.0205e+02 ,1.3225e+02 ,1.6371e+02 ,1.9541e+02 ,2.2663e+02 /) - kbo(:,53,14) = (/ & - &9.1561e+01 ,1.2094e+02 ,1.5208e+02 ,1.8381e+02 ,2.1529e+02 /) - kbo(:,54,14) = (/ & - &8.2288e+01 ,1.1082e+02 ,1.4154e+02 ,1.7313e+02 ,2.0480e+02 /) - kbo(:,55,14) = (/ & - &7.3729e+01 ,1.0135e+02 ,1.3152e+02 ,1.6297e+02 ,1.9471e+02 /) - kbo(:,56,14) = (/ & - &6.5504e+01 ,9.2170e+01 ,1.2164e+02 ,1.5283e+02 ,1.8453e+02 /) - kbo(:,57,14) = (/ & - &5.7661e+01 ,8.3295e+01 ,1.1195e+02 ,1.4273e+02 ,1.7435e+02 /) - kbo(:,58,14) = (/ & - &5.0636e+01 ,7.5168e+01 ,1.0296e+02 ,1.3321e+02 ,1.6472e+02 /) - kbo(:,59,14) = (/ & - &4.7932e+01 ,7.1971e+01 ,9.9421e+01 ,1.2944e+02 ,1.6088e+02 /) - kbo(:,13,15) = (/ & - &2.4469e+02 ,2.6735e+02 ,2.9101e+02 ,3.1438e+02 ,3.3674e+02 /) - kbo(:,14,15) = (/ & - &2.8094e+02 ,3.0921e+02 ,3.3701e+02 ,3.6348e+02 ,3.8824e+02 /) - kbo(:,15,15) = (/ & - &3.2313e+02 ,3.5640e+02 ,3.8804e+02 ,4.1754e+02 ,4.4448e+02 /) - kbo(:,16,15) = (/ & - &3.6992e+02 ,4.0761e+02 ,4.4269e+02 ,4.7470e+02 ,5.0364e+02 /) - kbo(:,17,15) = (/ & - &4.1926e+02 ,4.6079e+02 ,4.9879e+02 ,5.3327e+02 ,5.6513e+02 /) - kbo(:,18,15) = (/ & - &4.7156e+02 ,5.1653e+02 ,5.5718e+02 ,5.9454e+02 ,6.2828e+02 /) - kbo(:,19,15) = (/ & - &5.2525e+02 ,5.7308e+02 ,6.1700e+02 ,6.5663e+02 ,6.9127e+02 /) - kbo(:,20,15) = (/ & - &5.7876e+02 ,6.2973e+02 ,6.7595e+02 ,7.1709e+02 ,7.5345e+02 /) - kbo(:,21,15) = (/ & - &6.2988e+02 ,6.8342e+02 ,7.3148e+02 ,7.7494e+02 ,8.1239e+02 /) - kbo(:,22,15) = (/ & - &6.8118e+02 ,7.3681e+02 ,7.8702e+02 ,8.3157e+02 ,8.6949e+02 /) - kbo(:,23,15) = (/ & - &7.2944e+02 ,7.8796e+02 ,8.3973e+02 ,8.8478e+02 ,9.2278e+02 /) - kbo(:,24,15) = (/ & - &7.7652e+02 ,8.3661e+02 ,8.8931e+02 ,9.3457e+02 ,9.7211e+02 /) - kbo(:,25,15) = (/ & - &8.2208e+02 ,8.8322e+02 ,9.3559e+02 ,9.8038e+02 ,1.0170e+03 /) - kbo(:,26,15) = (/ & - &8.6654e+02 ,9.2755e+02 ,9.7898e+02 ,1.0223e+03 ,1.0574e+03 /) - kbo(:,27,15) = (/ & - &9.0828e+02 ,9.6846e+02 ,1.0184e+03 ,1.0599e+03 ,1.0932e+03 /) - kbo(:,28,15) = (/ & - &9.4716e+02 ,1.0058e+03 ,1.0539e+03 ,1.0933e+03 ,1.1247e+03 /) - kbo(:,29,15) = (/ & - &9.8313e+02 ,1.0399e+03 ,1.0858e+03 ,1.1230e+03 ,1.1519e+03 /) - kbo(:,30,15) = (/ & - &1.0160e+03 ,1.0704e+03 ,1.1141e+03 ,1.1489e+03 ,1.1756e+03 /) - kbo(:,31,15) = (/ & - &1.0460e+03 ,1.0956e+03 ,1.1391e+03 ,1.1716e+03 ,1.1960e+03 /) - kbo(:,32,15) = (/ & - &1.0732e+03 ,1.1224e+03 ,1.1612e+03 ,1.1912e+03 ,1.2136e+03 /) - kbo(:,33,15) = (/ & - &1.0978e+03 ,1.1441e+03 ,1.1805e+03 ,1.2081e+03 ,1.2287e+03 /) - kbo(:,34,15) = (/ & - &1.1183e+03 ,1.1622e+03 ,1.1963e+03 ,1.2219e+03 ,1.2409e+03 /) - kbo(:,35,15) = (/ & - &1.1319e+03 ,1.1747e+03 ,1.2074e+03 ,1.2320e+03 ,1.2497e+03 /) - kbo(:,36,15) = (/ & - &1.1393e+03 ,1.1815e+03 ,1.2141e+03 ,1.2383e+03 ,1.2557e+03 /) - kbo(:,37,15) = (/ & - &1.1379e+03 ,1.1816e+03 ,1.2154e+03 ,1.2404e+03 ,1.2585e+03 /) - kbo(:,38,15) = (/ & - &1.1350e+03 ,1.1805e+03 ,1.2153e+03 ,1.2413e+03 ,1.2601e+03 /) - kbo(:,39,15) = (/ & - &1.1312e+03 ,1.1782e+03 ,1.2145e+03 ,1.2415e+03 ,1.2613e+03 /) - kbo(:,40,15) = (/ & - &1.1209e+03 ,1.1709e+03 ,1.2094e+03 ,1.2385e+03 ,1.2597e+03 /) - kbo(:,41,15) = (/ & - &1.1085e+03 ,1.1615e+03 ,1.2028e+03 ,1.2343e+03 ,1.2572e+03 /) - kbo(:,42,15) = (/ & - &1.0950e+03 ,1.1510e+03 ,1.1953e+03 ,1.2290e+03 ,1.2540e+03 /) - kbo(:,43,15) = (/ & - &1.0762e+03 ,1.1364e+03 ,1.1842e+03 ,1.2211e+03 ,1.2485e+03 /) - kbo(:,44,15) = (/ & - &1.0545e+03 ,1.1188e+03 ,1.1706e+03 ,1.2111e+03 ,1.2414e+03 /) - kbo(:,45,15) = (/ & - &1.0306e+03 ,1.0995e+03 ,1.1556e+03 ,1.1997e+03 ,1.2332e+03 /) - kbo(:,46,15) = (/ & - &1.0035e+03 ,1.0771e+03 ,1.1376e+03 ,1.1860e+03 ,1.2231e+03 /) - kbo(:,47,15) = (/ & - &9.7068e+02 ,1.0499e+03 ,1.1155e+03 ,1.1686e+03 ,1.2101e+03 /) - kbo(:,48,15) = (/ & - &9.3560e+02 ,1.0200e+03 ,1.0913e+03 ,1.1493e+03 ,1.1954e+03 /) - kbo(:,49,15) = (/ & - &8.9859e+02 ,9.8816e+02 ,1.0648e+03 ,1.1280e+03 ,1.1788e+03 /) - kbo(:,50,15) = (/ & - &8.6187e+02 ,9.5626e+02 ,1.0379e+03 ,1.1061e+03 ,1.1615e+03 /) - kbo(:,51,15) = (/ & - &8.2436e+02 ,9.2347e+02 ,1.0097e+03 ,1.0831e+03 ,1.1429e+03 /) - kbo(:,52,15) = (/ & - &7.8552e+02 ,8.8919e+02 ,9.8012e+02 ,1.0582e+03 ,1.1227e+03 /) - kbo(:,53,15) = (/ & - &7.4472e+02 ,8.5281e+02 ,9.4852e+02 ,1.0314e+03 ,1.1008e+03 /) - kbo(:,54,15) = (/ & - &7.0603e+02 ,8.1807e+02 ,9.1796e+02 ,1.0053e+03 ,1.0792e+03 /) - kbo(:,55,15) = (/ & - &6.6818e+02 ,7.8362e+02 ,8.8753e+02 ,9.7880e+02 ,1.0572e+03 /) - kbo(:,56,15) = (/ & - &6.2949e+02 ,7.4771e+02 ,8.5573e+02 ,9.5104e+02 ,1.0336e+03 /) - kbo(:,57,15) = (/ & - &5.9013e+02 ,7.1102e+02 ,8.2256e+02 ,9.2198e+02 ,1.0088e+03 /) - kbo(:,58,15) = (/ & - &5.5222e+02 ,6.7509e+02 ,7.8994e+02 ,8.9322e+02 ,9.8385e+02 /) - kbo(:,59,15) = (/ & - &5.3696e+02 ,6.6055e+02 ,7.7661e+02 ,8.8142e+02 ,9.7364e+02 /) - kbo(:,13,16) = (/ & - &4.2045e+02 ,4.6429e+02 ,5.0303e+02 ,5.3671e+02 ,5.6546e+02 /) - kbo(:,14,16) = (/ & - &5.0808e+02 ,5.5889e+02 ,6.0315e+02 ,6.4104e+02 ,6.7319e+02 /) - kbo(:,15,16) = (/ & - &6.0971e+02 ,6.6729e+02 ,7.1666e+02 ,7.5857e+02 ,7.9337e+02 /) - kbo(:,16,16) = (/ & - &7.2443e+02 ,7.8825e+02 ,8.4219e+02 ,8.8727e+02 ,9.2382e+02 /) - kbo(:,17,16) = (/ & - &8.5000e+02 ,9.1908e+02 ,9.7683e+02 ,1.0239e+03 ,1.0613e+03 /) - kbo(:,18,16) = (/ & - &9.8305e+02 ,1.0566e+03 ,1.1167e+03 ,1.1645e+03 ,1.2017e+03 /) - kbo(:,19,16) = (/ & - &1.1204e+03 ,1.1968e+03 ,1.2579e+03 ,1.3058e+03 ,1.3449e+03 /) - kbo(:,20,16) = (/ & - &1.2624e+03 ,1.3419e+03 ,1.4045e+03 ,1.4519e+03 ,1.4914e+03 /) - kbo(:,21,16) = (/ & - &1.4128e+03 ,1.4938e+03 ,1.5557e+03 ,1.6009e+03 ,1.6375e+03 /) - kbo(:,22,16) = (/ & - &1.5738e+03 ,1.6513e+03 ,1.7095e+03 ,1.7503e+03 ,1.7825e+03 /) - kbo(:,23,16) = (/ & - &1.7348e+03 ,1.8057e+03 ,1.8583e+03 ,1.8939e+03 ,1.9201e+03 /) - kbo(:,24,16) = (/ & - &1.8918e+03 ,1.9538e+03 ,1.9990e+03 ,2.0285e+03 ,2.0481e+03 /) - kbo(:,25,16) = (/ & - &2.0394e+03 ,2.0915e+03 ,2.1288e+03 ,2.1514e+03 ,2.1633e+03 /) - kbo(:,26,16) = (/ & - &2.1757e+03 ,2.2166e+03 ,2.2458e+03 ,2.2605e+03 ,2.2652e+03 /) - kbo(:,27,16) = (/ & - &2.2965e+03 ,2.3277e+03 ,2.3485e+03 ,2.3546e+03 ,2.3529e+03 /) - kbo(:,28,16) = (/ & - &2.4019e+03 ,2.4242e+03 ,2.4364e+03 ,2.4355e+03 ,2.4262e+03 /) - kbo(:,29,16) = (/ & - &2.4918e+03 ,2.5053e+03 ,2.5101e+03 ,2.5025e+03 ,2.4871e+03 /) - kbo(:,30,16) = (/ & - &2.5673e+03 ,2.5738e+03 ,2.5706e+03 ,2.5574e+03 ,2.5361e+03 /) - kbo(:,31,16) = (/ & - &2.6301e+03 ,2.6241e+03 ,2.6201e+03 ,2.6003e+03 ,2.5741e+03 /) - kbo(:,32,16) = (/ & - &2.6807e+03 ,2.6744e+03 ,2.6583e+03 ,2.6342e+03 ,2.6035e+03 /) - kbo(:,33,16) = (/ & - &2.7216e+03 ,2.7096e+03 ,2.6883e+03 ,2.6595e+03 ,2.6244e+03 /) - kbo(:,34,16) = (/ & - &2.7530e+03 ,2.7368e+03 ,2.7115e+03 ,2.6793e+03 ,2.6415e+03 /) - kbo(:,35,16) = (/ & - &2.7800e+03 ,2.7599e+03 ,2.7318e+03 ,2.6972e+03 ,2.6568e+03 /) - kbo(:,36,16) = (/ & - &2.8032e+03 ,2.7809e+03 ,2.7511e+03 ,2.7149e+03 ,2.6728e+03 /) - kbo(:,37,16) = (/ & - &2.8255e+03 ,2.8022e+03 ,2.7720e+03 ,2.7352e+03 ,2.6929e+03 /) - kbo(:,38,16) = (/ & - &2.8447e+03 ,2.8207e+03 ,2.7907e+03 ,2.7534e+03 ,2.7108e+03 /) - kbo(:,39,16) = (/ & - &2.8614e+03 ,2.8371e+03 ,2.8072e+03 ,2.7697e+03 ,2.7272e+03 /) - kbo(:,40,16) = (/ & - &2.8775e+03 ,2.8542e+03 ,2.8246e+03 ,2.7882e+03 ,2.7463e+03 /) - kbo(:,41,16) = (/ & - &2.8919e+03 ,2.8698e+03 ,2.8410e+03 ,2.8060e+03 ,2.7644e+03 /) - kbo(:,42,16) = (/ & - &2.9035e+03 ,2.8842e+03 ,2.8555e+03 ,2.8221e+03 ,2.7810e+03 /) - kbo(:,43,16) = (/ & - &2.9142e+03 ,2.8974e+03 ,2.8713e+03 ,2.8381e+03 ,2.7994e+03 /) - kbo(:,44,16) = (/ & - &2.9225e+03 ,2.9100e+03 ,2.8852e+03 ,2.8542e+03 ,2.8174e+03 /) - kbo(:,45,16) = (/ & - &2.9284e+03 ,2.9199e+03 ,2.8988e+03 ,2.8699e+03 ,2.8343e+03 /) - kbo(:,46,16) = (/ & - &2.9312e+03 ,2.9287e+03 ,2.9114e+03 ,2.8839e+03 ,2.8514e+03 /) - kbo(:,47,16) = (/ & - &2.9278e+03 ,2.9353e+03 ,2.9229e+03 ,2.8988e+03 ,2.8673e+03 /) - kbo(:,48,16) = (/ & - &2.9198e+03 ,2.9382e+03 ,2.9322e+03 ,2.9123e+03 ,2.8825e+03 /) - kbo(:,49,16) = (/ & - &2.9055e+03 ,2.9369e+03 ,2.9391e+03 ,2.9238e+03 ,2.8967e+03 /) - kbo(:,50,16) = (/ & - &2.8866e+03 ,2.9312e+03 ,2.9427e+03 ,2.9328e+03 ,2.9100e+03 /) - kbo(:,51,16) = (/ & - &2.8621e+03 ,2.9209e+03 ,2.9426e+03 ,2.9399e+03 ,2.9204e+03 /) - kbo(:,52,16) = (/ & - &2.8313e+03 ,2.9062e+03 ,2.9403e+03 ,2.9447e+03 ,2.9298e+03 /) - kbo(:,53,16) = (/ & - &2.7937e+03 ,2.8849e+03 ,2.9330e+03 ,2.9466e+03 ,2.9378e+03 /) - kbo(:,54,16) = (/ & - &2.7518e+03 ,2.8608e+03 ,2.9213e+03 ,2.9463e+03 ,2.9434e+03 /) - kbo(:,55,16) = (/ & - &2.7066e+03 ,2.8327e+03 ,2.9070e+03 ,2.9427e+03 ,2.9473e+03 /) - kbo(:,56,16) = (/ & - &2.6539e+03 ,2.7985e+03 ,2.8885e+03 ,2.9351e+03 ,2.9485e+03 /) - kbo(:,57,16) = (/ & - &2.5953e+03 ,2.7598e+03 ,2.8651e+03 ,2.9247e+03 ,2.9481e+03 /) - kbo(:,58,16) = (/ & - &2.5319e+03 ,2.7165e+03 ,2.8391e+03 ,2.9117e+03 ,2.9450e+03 /) - kbo(:,59,16) = (/ & - &2.5058e+03 ,2.6981e+03 ,2.8277e+03 ,2.9062e+03 ,2.9427e+03 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &1.0515e-02 ,1.4860e-02 ,1.7181e-02 ,1.6642e-02 ,1.6644e-02 ,1.5649e-02 , & - &1.7734e-02 ,1.7521e-02 ,1.7868e-02 ,1.8400e-02 ,1.9361e-02 ,2.1487e-02 , & - &2.0192e-02 ,1.6545e-02 ,2.0922e-02 ,2.0922e-02 /) - forrefo(2,:) = (/ & - &1.0423e-02 ,1.4593e-02 ,1.6329e-02 ,1.7071e-02 ,1.7252e-02 ,1.6188e-02 , & - &1.7752e-02 ,1.7913e-02 ,1.7551e-02 ,1.8203e-02 ,1.7946e-02 ,1.9828e-02 , & - &2.1566e-02 ,1.9707e-02 ,2.0944e-02 ,2.0944e-02 /) - forrefo(3,:) = (/ & - &9.2770e-03 ,1.2818e-02 ,1.7181e-02 ,1.7858e-02 ,1.7888e-02 ,1.7121e-02 , & - &1.8116e-02 ,1.8230e-02 ,1.7719e-02 ,1.7833e-02 ,1.8438e-02 ,1.7995e-02 , & - &2.0895e-02 ,2.1525e-02 ,2.0517e-02 ,2.0954e-02 /) - forrefo(4,:) = (/ & - &8.3290e-03 ,1.3483e-02 ,1.5432e-02 ,2.0793e-02 ,1.8404e-02 ,1.7470e-02 , & - &1.7253e-02 ,1.7132e-02 ,1.7119e-02 ,1.7376e-02 ,1.7030e-02 ,1.6847e-02 , & - &1.5562e-02 ,1.6836e-02 ,1.8746e-02 ,2.1233e-02 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 2.41120e-01 , 2.27071e-01 , 2.13840e-01 , 2.01380e-01 , 1.89646e-01 , & - & 1.78596e-01 , 1.68190e-01 , 1.58390e-01 , 1.49161e-01 , 1.40470e-01 /) - selfrefo(:, 2) = (/ & - & 3.11156e-01 , 2.92249e-01 , 2.74490e-01 , 2.57810e-01 , 2.42144e-01 , & - & 2.27430e-01 , 2.13610e-01 , 2.00630e-01 , 1.88439e-01 , 1.76988e-01 /) - selfrefo(:, 3) = (/ & - & 3.37148e-01 , 3.17767e-01 , 2.99500e-01 , 2.82283e-01 , 2.66056e-01 , & - & 2.50762e-01 , 2.36347e-01 , 2.22760e-01 , 2.09955e-01 , 1.97885e-01 /) - selfrefo(:, 4) = (/ & - & 3.57139e-01 , 3.32763e-01 , 3.10050e-01 , 2.88888e-01 , 2.69170e-01 , & - & 2.50798e-01 , 2.33680e-01 , 2.17730e-01 , 2.02869e-01 , 1.89022e-01 /) - selfrefo(:, 5) = (/ & - & 3.60626e-01 , 3.35433e-01 , 3.12000e-01 , 2.90204e-01 , 2.69931e-01 , & - & 2.51074e-01 , 2.33534e-01 , 2.17220e-01 , 2.02045e-01 , 1.87931e-01 /) - selfrefo(:, 6) = (/ & - & 3.42420e-01 , 3.18795e-01 , 2.96800e-01 , 2.76323e-01 , 2.57258e-01 , & - & 2.39509e-01 , 2.22985e-01 , 2.07600e-01 , 1.93277e-01 , 1.79942e-01 /) - selfrefo(:, 7) = (/ & - & 3.65491e-01 , 3.41599e-01 , 3.19270e-01 , 2.98400e-01 , 2.78895e-01 , & - & 2.60664e-01 , 2.43625e-01 , 2.27700e-01 , 2.12816e-01 , 1.98905e-01 /) - selfrefo(:, 8) = (/ & - & 3.70354e-01 , 3.45005e-01 , 3.21390e-01 , 2.99392e-01 , 2.78899e-01 , & - & 2.59809e-01 , 2.42026e-01 , 2.25460e-01 , 2.10028e-01 , 1.95652e-01 /) - selfrefo(:, 9) = (/ & - & 3.60483e-01 , 3.37846e-01 , 3.16630e-01 , 2.96747e-01 , 2.78112e-01 , & - & 2.60648e-01 , 2.44280e-01 , 2.28940e-01 , 2.14563e-01 , 2.01090e-01 /) - selfrefo(:,10) = (/ & - & 3.71845e-01 , 3.48164e-01 , 3.25990e-01 , 3.05229e-01 , 2.85790e-01 , & - & 2.67588e-01 , 2.50547e-01 , 2.34590e-01 , 2.19650e-01 , 2.05661e-01 /) - selfrefo(:,11) = (/ & - & 3.60606e-01 , 3.40789e-01 , 3.22060e-01 , 3.04361e-01 , 2.87634e-01 , & - & 2.71826e-01 , 2.56888e-01 , 2.42770e-01 , 2.29428e-01 , 2.16819e-01 /) - selfrefo(:,12) = (/ & - & 3.90046e-01 , 3.68879e-01 , 3.48860e-01 , 3.29928e-01 , 3.12023e-01 , & - & 2.95089e-01 , 2.79075e-01 , 2.63930e-01 , 2.49607e-01 , 2.36061e-01 /) - selfrefo(:,13) = (/ & - & 4.38542e-01 , 4.05139e-01 , 3.74280e-01 , 3.45771e-01 , 3.19434e-01 , & - & 2.95103e-01 , 2.72626e-01 , 2.51860e-01 , 2.32676e-01 , 2.14953e-01 /) - selfrefo(:,14) = (/ & - & 4.19448e-01 , 3.81920e-01 , 3.47750e-01 , 3.16637e-01 , 2.88307e-01 , & - & 2.62513e-01 , 2.39026e-01 , 2.17640e-01 , 1.98168e-01 , 1.80438e-01 /) - selfrefo(:,15) = (/ & - & 4.20276e-01 , 3.92281e-01 , 3.66150e-01 , 3.41760e-01 , 3.18995e-01 , & - & 2.97746e-01 , 2.77912e-01 , 2.59400e-01 , 2.42121e-01 , 2.25993e-01 /) - selfrefo(:,16) = (/ & - & 4.20276e-01 , 3.92281e-01 , 3.66150e-01 , 3.41760e-01 , 3.18995e-01 , & - & 2.97746e-01 , 2.77912e-01 , 2.59400e-01 , 2.42121e-01 , 2.25993e-01 /) - - end subroutine lw_kgb10 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_11.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_11.F90 deleted file mode 100644 index d6ec51890..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_11.F90 +++ /dev/null @@ -1,2255 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb11 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg11, only : fracrefao, fracrefbo, kao, kbo, kao_mo2, & - kbo_mo2, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level : P=1053.63 mb, T= 294.2 K - fracrefao(:) = (/ & - & 1.4601e-01 ,1.3824e-01 ,1.4240e-01 ,1.3463e-01 ,1.1948e-01 ,1.0440e-01 , & - & 8.8667e-02 ,6.5792e-02 ,4.3893e-02 ,4.7941e-03 ,4.0760e-03 ,3.3207e-03 , & - & 2.4087e-03 ,1.3912e-03 ,4.3482e-04 ,6.0932e-05 /) - -! Planck fraction mapping level : P=0.353 mb, T = 262.11 K - fracrefbo(:) = (/ & - & 7.2928e-02 ,1.4900e-01 ,1.6156e-01 ,1.5603e-01 ,1.3934e-01 ,1.1394e-01 , & - & 8.8783e-02 ,6.2411e-02 ,4.0191e-02 ,4.4587e-03 ,3.9533e-03 ,3.0847e-03 , & - & 2.2317e-03 ,1.4410e-03 ,5.6722e-04 ,7.7933e-05 /) - -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels > ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the corresponding TREF for this pressure level, -! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, -! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second -! index, JP, runs from 1 to 13 and refers to the corresponding -! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). -! The third index, IG, goes from 1 to 16, and tells us which -! g-interval the absorption coefficients are for. - - kao(:, 1, 1) = (/ & - &4.9423e-02 ,4.8938e-02 ,4.8236e-02 ,4.7630e-02 ,4.7027e-02 /) - kao(:, 2, 1) = (/ & - &4.0264e-02 ,3.9991e-02 ,3.9414e-02 ,3.8921e-02 ,3.8455e-02 /) - kao(:, 3, 1) = (/ & - &3.2762e-02 ,3.2612e-02 ,3.2225e-02 ,3.1842e-02 ,3.1448e-02 /) - kao(:, 4, 1) = (/ & - &2.6929e-02 ,2.6828e-02 ,2.6636e-02 ,2.6311e-02 ,2.5979e-02 /) - kao(:, 5, 1) = (/ & - &2.2254e-02 ,2.2190e-02 ,2.2139e-02 ,2.1844e-02 ,2.1606e-02 /) - kao(:, 6, 1) = (/ & - &1.8428e-02 ,1.8406e-02 ,1.8346e-02 ,1.8223e-02 ,1.7986e-02 /) - kao(:, 7, 1) = (/ & - &1.5302e-02 ,1.5279e-02 ,1.5227e-02 ,1.5173e-02 ,1.5001e-02 /) - kao(:, 8, 1) = (/ & - &1.2917e-02 ,1.2821e-02 ,1.2762e-02 ,1.2673e-02 ,1.2614e-02 /) - kao(:, 9, 1) = (/ & - &1.4361e-02 ,1.3355e-02 ,1.2836e-02 ,1.2424e-02 ,1.2069e-02 /) - kao(:,10, 1) = (/ & - &1.9078e-02 ,1.9077e-02 ,1.9301e-02 ,1.9494e-02 ,1.9600e-02 /) - kao(:,11, 1) = (/ & - &1.6651e-02 ,1.7279e-02 ,1.7762e-02 ,1.8212e-02 ,1.8508e-02 /) - kao(:,12, 1) = (/ & - &1.4359e-02 ,1.4912e-02 ,1.5370e-02 ,1.5766e-02 ,1.6068e-02 /) - kao(:,13, 1) = (/ & - &1.2190e-02 ,1.2693e-02 ,1.3086e-02 ,1.3355e-02 ,1.3602e-02 /) - kao(:, 1, 2) = (/ & - &1.3874e-01 ,1.3507e-01 ,1.3188e-01 ,1.2875e-01 ,1.2573e-01 /) - kao(:, 2, 2) = (/ & - &1.1449e-01 ,1.1143e-01 ,1.0880e-01 ,1.0626e-01 ,1.0384e-01 /) - kao(:, 3, 2) = (/ & - &9.4610e-02 ,9.2157e-02 ,8.9899e-02 ,8.7836e-02 ,8.5813e-02 /) - kao(:, 4, 2) = (/ & - &7.8921e-02 ,7.6917e-02 ,7.5042e-02 ,7.3283e-02 ,7.1619e-02 /) - kao(:, 5, 2) = (/ & - &6.6025e-02 ,6.4395e-02 ,6.2788e-02 ,6.1406e-02 ,5.9938e-02 /) - kao(:, 6, 2) = (/ & - &5.5198e-02 ,5.3979e-02 ,5.2652e-02 ,5.1421e-02 ,5.0291e-02 /) - kao(:, 7, 2) = (/ & - &4.5982e-02 ,4.5142e-02 ,4.4142e-02 ,4.3045e-02 ,4.2121e-02 /) - kao(:, 8, 2) = (/ & - &3.8128e-02 ,3.7632e-02 ,3.6913e-02 ,3.6127e-02 ,3.5207e-02 /) - kao(:, 9, 2) = (/ & - &2.9988e-02 ,3.0199e-02 ,2.9924e-02 ,2.9588e-02 ,2.9106e-02 /) - kao(:,10, 2) = (/ & - &4.8557e-02 ,4.4974e-02 ,3.7588e-02 ,3.1508e-02 ,2.7381e-02 /) - kao(:,11, 2) = (/ & - &4.6113e-02 ,4.4271e-02 ,4.2375e-02 ,4.0024e-02 ,3.7665e-02 /) - kao(:,12, 2) = (/ & - &4.0305e-02 ,3.9408e-02 ,3.7504e-02 ,3.5981e-02 ,3.4390e-02 /) - kao(:,13, 2) = (/ & - &3.3779e-02 ,3.2735e-02 ,3.1178e-02 ,2.9814e-02 ,2.8271e-02 /) - kao(:, 1, 3) = (/ & - &2.4150e-01 ,2.3616e-01 ,2.3111e-01 ,2.2673e-01 ,2.2290e-01 /) - kao(:, 2, 3) = (/ & - &2.0007e-01 ,1.9568e-01 ,1.9176e-01 ,1.8825e-01 ,1.8518e-01 /) - kao(:, 3, 3) = (/ & - &1.6573e-01 ,1.6221e-01 ,1.5908e-01 ,1.5616e-01 ,1.5376e-01 /) - kao(:, 4, 3) = (/ & - &1.3876e-01 ,1.3573e-01 ,1.3298e-01 ,1.3059e-01 ,1.2856e-01 /) - kao(:, 5, 3) = (/ & - &1.1663e-01 ,1.1399e-01 ,1.1156e-01 ,1.0951e-01 ,1.0785e-01 /) - kao(:, 6, 3) = (/ & - &9.8259e-02 ,9.5861e-02 ,9.3802e-02 ,9.1948e-02 ,9.0492e-02 /) - kao(:, 7, 3) = (/ & - &8.2887e-02 ,8.0616e-02 ,7.8766e-02 ,7.7206e-02 ,7.5856e-02 /) - kao(:, 8, 3) = (/ & - &6.9730e-02 ,6.7730e-02 ,6.5964e-02 ,6.4565e-02 ,6.3437e-02 /) - kao(:, 9, 3) = (/ & - &5.8101e-02 ,5.6452e-02 ,5.5028e-02 ,5.3674e-02 ,5.2557e-02 /) - kao(:,10, 3) = (/ & - &3.7373e-02 ,3.5041e-02 ,3.8621e-02 ,4.1558e-02 ,4.3012e-02 /) - kao(:,11, 3) = (/ & - &5.3584e-02 ,4.0890e-02 ,3.3882e-02 ,2.9034e-02 ,2.6383e-02 /) - kao(:,12, 3) = (/ & - &5.8428e-02 ,4.4689e-02 ,3.5111e-02 ,2.9172e-02 ,2.4695e-02 /) - kao(:,13, 3) = (/ & - &4.7904e-02 ,3.6965e-02 ,2.8601e-02 ,2.3919e-02 ,2.0680e-02 /) - kao(:, 1, 4) = (/ & - &4.2548e-01 ,4.1807e-01 ,4.1094e-01 ,4.0423e-01 ,3.9806e-01 /) - kao(:, 2, 4) = (/ & - &3.5494e-01 ,3.4863e-01 ,3.4235e-01 ,3.3657e-01 ,3.3155e-01 /) - kao(:, 3, 4) = (/ & - &2.9648e-01 ,2.9099e-01 ,2.8545e-01 ,2.8071e-01 ,2.7648e-01 /) - kao(:, 4, 4) = (/ & - &2.4939e-01 ,2.4483e-01 ,2.4021e-01 ,2.3626e-01 ,2.3256e-01 /) - kao(:, 5, 4) = (/ & - &2.1025e-01 ,2.0654e-01 ,2.0285e-01 ,1.9937e-01 ,1.9615e-01 /) - kao(:, 6, 4) = (/ & - &1.7714e-01 ,1.7417e-01 ,1.7124e-01 ,1.6826e-01 ,1.6547e-01 /) - kao(:, 7, 4) = (/ & - &1.4884e-01 ,1.4658e-01 ,1.4422e-01 ,1.4179e-01 ,1.3940e-01 /) - kao(:, 8, 4) = (/ & - &1.2471e-01 ,1.2286e-01 ,1.2117e-01 ,1.1917e-01 ,1.1721e-01 /) - kao(:, 9, 4) = (/ & - &1.0337e-01 ,1.0218e-01 ,1.0077e-01 ,9.9333e-02 ,9.7869e-02 /) - kao(:,10, 4) = (/ & - &8.5198e-02 ,8.3413e-02 ,8.1099e-02 ,7.8395e-02 ,7.6293e-02 /) - kao(:,11, 4) = (/ & - &6.0820e-02 ,6.7915e-02 ,6.7626e-02 ,6.6844e-02 ,6.6371e-02 /) - kao(:,12, 4) = (/ & - &4.0000e-02 ,4.8190e-02 ,5.3574e-02 ,5.5575e-02 ,5.5151e-02 /) - kao(:,13, 4) = (/ & - &3.3587e-02 ,4.0386e-02 ,4.5135e-02 ,4.6401e-02 ,4.5805e-02 /) - kao(:, 1, 5) = (/ & - &7.7524e-01 ,7.6536e-01 ,7.5522e-01 ,7.4431e-01 ,7.3311e-01 /) - kao(:, 2, 5) = (/ & - &6.5185e-01 ,6.4405e-01 ,6.3568e-01 ,6.2684e-01 ,6.1765e-01 /) - kao(:, 3, 5) = (/ & - &5.4580e-01 ,5.3942e-01 ,5.3289e-01 ,5.2546e-01 ,5.1768e-01 /) - kao(:, 4, 5) = (/ & - &4.5945e-01 ,4.5416e-01 ,4.4868e-01 ,4.4229e-01 ,4.3592e-01 /) - kao(:, 5, 5) = (/ & - &3.8777e-01 ,3.8350e-01 ,3.7876e-01 ,3.7352e-01 ,3.6853e-01 /) - kao(:, 6, 5) = (/ & - &3.2750e-01 ,3.2403e-01 ,3.2009e-01 ,3.1598e-01 ,3.1216e-01 /) - kao(:, 7, 5) = (/ & - &2.7610e-01 ,2.7333e-01 ,2.7016e-01 ,2.6699e-01 ,2.6402e-01 /) - kao(:, 8, 5) = (/ & - &2.3237e-01 ,2.3021e-01 ,2.2764e-01 ,2.2511e-01 ,2.2263e-01 /) - kao(:, 9, 5) = (/ & - &1.9461e-01 ,1.9312e-01 ,1.9116e-01 ,1.8911e-01 ,1.8708e-01 /) - kao(:,10, 5) = (/ & - &1.4772e-01 ,1.4997e-01 ,1.5067e-01 ,1.5164e-01 ,1.5169e-01 /) - kao(:,11, 5) = (/ & - &1.1317e-01 ,1.1322e-01 ,1.1552e-01 ,1.1824e-01 ,1.1886e-01 /) - kao(:,12, 5) = (/ & - &9.7948e-02 ,9.4310e-02 ,9.3527e-02 ,9.3094e-02 ,9.5273e-02 /) - kao(:,13, 5) = (/ & - &8.1443e-02 ,7.8686e-02 ,7.8076e-02 ,7.8298e-02 ,8.0221e-02 /) - kao(:, 1, 6) = (/ & - &1.5697e+00 ,1.5485e+00 ,1.5270e+00 ,1.5062e+00 ,1.4845e+00 /) - kao(:, 2, 6) = (/ & - &1.3465e+00 ,1.3286e+00 ,1.3101e+00 ,1.2912e+00 ,1.2719e+00 /) - kao(:, 3, 6) = (/ & - &1.1474e+00 ,1.1322e+00 ,1.1161e+00 ,1.0997e+00 ,1.0837e+00 /) - kao(:, 4, 6) = (/ & - &9.7861e-01 ,9.6591e-01 ,9.5236e-01 ,9.3871e-01 ,9.2522e-01 /) - kao(:, 5, 6) = (/ & - &8.3345e-01 ,8.2282e-01 ,8.1147e-01 ,8.0015e-01 ,7.8882e-01 /) - kao(:, 6, 6) = (/ & - &7.0768e-01 ,6.9919e-01 ,6.8975e-01 ,6.8018e-01 ,6.7024e-01 /) - kao(:, 7, 6) = (/ & - &5.9916e-01 ,5.9240e-01 ,5.8444e-01 ,5.7632e-01 ,5.6762e-01 /) - kao(:, 8, 6) = (/ & - &5.0612e-01 ,5.0051e-01 ,4.9423e-01 ,4.8731e-01 ,4.7989e-01 /) - kao(:, 9, 6) = (/ & - &4.2622e-01 ,4.2196e-01 ,4.1690e-01 ,4.1124e-01 ,4.0525e-01 /) - kao(:,10, 6) = (/ & - &3.5041e-01 ,3.4937e-01 ,3.4686e-01 ,3.4326e-01 ,3.3900e-01 /) - kao(:,11, 6) = (/ & - &2.8138e-01 ,2.8270e-01 ,2.8314e-01 ,2.8109e-01 ,2.7863e-01 /) - kao(:,12, 6) = (/ & - &2.2569e-01 ,2.3115e-01 ,2.3249e-01 ,2.3233e-01 ,2.3100e-01 /) - kao(:,13, 6) = (/ & - &1.8817e-01 ,1.9206e-01 ,1.9341e-01 ,1.9316e-01 ,1.9216e-01 /) - kao(:, 1, 7) = (/ & - &3.4196e+00 ,3.3801e+00 ,3.3399e+00 ,3.2946e+00 ,3.2477e+00 /) - kao(:, 2, 7) = (/ & - &3.0295e+00 ,2.9903e+00 ,2.9469e+00 ,2.9032e+00 ,2.8599e+00 /) - kao(:, 3, 7) = (/ & - &2.6483e+00 ,2.6096e+00 ,2.5696e+00 ,2.5316e+00 ,2.4936e+00 /) - kao(:, 4, 7) = (/ & - &2.3044e+00 ,2.2705e+00 ,2.2374e+00 ,2.2055e+00 ,2.1724e+00 /) - kao(:, 5, 7) = (/ & - &1.9970e+00 ,1.9688e+00 ,1.9416e+00 ,1.9143e+00 ,1.8852e+00 /) - kao(:, 6, 7) = (/ & - &1.7224e+00 ,1.6992e+00 ,1.6760e+00 ,1.6526e+00 ,1.6276e+00 /) - kao(:, 7, 7) = (/ & - &1.4770e+00 ,1.4579e+00 ,1.4384e+00 ,1.4185e+00 ,1.3976e+00 /) - kao(:, 8, 7) = (/ & - &1.2593e+00 ,1.2433e+00 ,1.2274e+00 ,1.2112e+00 ,1.1939e+00 /) - kao(:, 9, 7) = (/ & - &1.0697e+00 ,1.0563e+00 ,1.0434e+00 ,1.0295e+00 ,1.0150e+00 /) - kao(:,10, 7) = (/ & - &9.0213e-01 ,8.9139e-01 ,8.8119e-01 ,8.6954e-01 ,8.5716e-01 /) - kao(:,11, 7) = (/ & - &7.5061e-01 ,7.4446e-01 ,7.3597e-01 ,7.2638e-01 ,7.1615e-01 /) - kao(:,12, 7) = (/ & - &6.2457e-01 ,6.1924e-01 ,6.1219e-01 ,6.0465e-01 ,5.9633e-01 /) - kao(:,13, 7) = (/ & - &5.2204e-01 ,5.1758e-01 ,5.1182e-01 ,5.0530e-01 ,4.9787e-01 /) - kao(:, 1, 8) = (/ & - &7.9795e+00 ,7.8457e+00 ,7.7132e+00 ,7.5890e+00 ,7.4645e+00 /) - kao(:, 2, 8) = (/ & - &7.5076e+00 ,7.3733e+00 ,7.2519e+00 ,7.1316e+00 ,7.0099e+00 /) - kao(:, 3, 8) = (/ & - &6.9340e+00 ,6.8148e+00 ,6.7036e+00 ,6.5875e+00 ,6.4766e+00 /) - kao(:, 4, 8) = (/ & - &6.3414e+00 ,6.2366e+00 ,6.1298e+00 ,6.0215e+00 ,5.9183e+00 /) - kao(:, 5, 8) = (/ & - &5.7373e+00 ,5.6423e+00 ,5.5412e+00 ,5.4426e+00 ,5.3434e+00 /) - kao(:, 6, 8) = (/ & - &5.1373e+00 ,5.0482e+00 ,4.9577e+00 ,4.8621e+00 ,4.7659e+00 /) - kao(:, 7, 8) = (/ & - &4.5492e+00 ,4.4684e+00 ,4.3821e+00 ,4.2928e+00 ,4.2067e+00 /) - kao(:, 8, 8) = (/ & - &3.9884e+00 ,3.9140e+00 ,3.8349e+00 ,3.7563e+00 ,3.6821e+00 /) - kao(:, 9, 8) = (/ & - &3.4656e+00 ,3.3995e+00 ,3.3300e+00 ,3.2636e+00 ,3.2010e+00 /) - kao(:,10, 8) = (/ & - &2.9841e+00 ,2.9267e+00 ,2.8680e+00 ,2.8124e+00 ,2.7592e+00 /) - kao(:,11, 8) = (/ & - &2.5294e+00 ,2.4795e+00 ,2.4321e+00 ,2.3862e+00 ,2.3418e+00 /) - kao(:,12, 8) = (/ & - &2.1315e+00 ,2.0918e+00 ,2.0527e+00 ,2.0146e+00 ,1.9776e+00 /) - kao(:,13, 8) = (/ & - &1.7932e+00 ,1.7598e+00 ,1.7272e+00 ,1.6957e+00 ,1.6643e+00 /) - kao(:, 1, 9) = (/ & - &1.8965e+01 ,1.8711e+01 ,1.8469e+01 ,1.8242e+01 ,1.8035e+01 /) - kao(:, 2, 9) = (/ & - &1.9621e+01 ,1.9373e+01 ,1.9124e+01 ,1.8882e+01 ,1.8648e+01 /) - kao(:, 3, 9) = (/ & - &2.0111e+01 ,1.9849e+01 ,1.9576e+01 ,1.9310e+01 ,1.9047e+01 /) - kao(:, 4, 9) = (/ & - &2.0303e+01 ,2.0017e+01 ,1.9726e+01 ,1.9447e+01 ,1.9174e+01 /) - kao(:, 5, 9) = (/ & - &2.0176e+01 ,1.9882e+01 ,1.9591e+01 ,1.9312e+01 ,1.9035e+01 /) - kao(:, 6, 9) = (/ & - &1.9747e+01 ,1.9457e+01 ,1.9166e+01 ,1.8888e+01 ,1.8606e+01 /) - kao(:, 7, 9) = (/ & - &1.9018e+01 ,1.8727e+01 ,1.8446e+01 ,1.8173e+01 ,1.7878e+01 /) - kao(:, 8, 9) = (/ & - &1.8015e+01 ,1.7734e+01 ,1.7466e+01 ,1.7191e+01 ,1.6898e+01 /) - kao(:, 9, 9) = (/ & - &1.6785e+01 ,1.6527e+01 ,1.6264e+01 ,1.5992e+01 ,1.5711e+01 /) - kao(:,10, 9) = (/ & - &1.5379e+01 ,1.5144e+01 ,1.4899e+01 ,1.4648e+01 ,1.4396e+01 /) - kao(:,11, 9) = (/ & - &1.3809e+01 ,1.3588e+01 ,1.3370e+01 ,1.3146e+01 ,1.2927e+01 /) - kao(:,12, 9) = (/ & - &1.2243e+01 ,1.2056e+01 ,1.1862e+01 ,1.1669e+01 ,1.1464e+01 /) - kao(:,13, 9) = (/ & - &1.0743e+01 ,1.0581e+01 ,1.0416e+01 ,1.0238e+01 ,1.0057e+01 /) - kao(:, 1,10) = (/ & - &3.4918e+01 ,3.4410e+01 ,3.3938e+01 ,3.3384e+01 ,3.2811e+01 /) - kao(:, 2,10) = (/ & - &3.7421e+01 ,3.6860e+01 ,3.6321e+01 ,3.5822e+01 ,3.5445e+01 /) - kao(:, 3,10) = (/ & - &4.0412e+01 ,3.9722e+01 ,3.9217e+01 ,3.8832e+01 ,3.8460e+01 /) - kao(:, 4,10) = (/ & - &4.3162e+01 ,4.2539e+01 ,4.2112e+01 ,4.1640e+01 ,4.1120e+01 /) - kao(:, 5,10) = (/ & - &4.5609e+01 ,4.5045e+01 ,4.4552e+01 ,4.3899e+01 ,4.3271e+01 /) - kao(:, 6,10) = (/ & - &4.7877e+01 ,4.7338e+01 ,4.6747e+01 ,4.6031e+01 ,4.5492e+01 /) - kao(:, 7,10) = (/ & - &4.9831e+01 ,4.9324e+01 ,4.8717e+01 ,4.8005e+01 ,4.7611e+01 /) - kao(:, 8,10) = (/ & - &5.1031e+01 ,5.0574e+01 ,4.9915e+01 ,4.9244e+01 ,4.8761e+01 /) - kao(:, 9,10) = (/ & - &5.1465e+01 ,5.0984e+01 ,5.0270e+01 ,4.9612e+01 ,4.9032e+01 /) - kao(:,10,10) = (/ & - &5.0911e+01 ,5.0267e+01 ,4.9512e+01 ,4.8818e+01 ,4.8092e+01 /) - kao(:,11,10) = (/ & - &4.8719e+01 ,4.7980e+01 ,4.7190e+01 ,4.6412e+01 ,4.5593e+01 /) - kao(:,12,10) = (/ & - &4.5566e+01 ,4.4779e+01 ,4.4020e+01 ,4.3287e+01 ,4.2695e+01 /) - kao(:,13,10) = (/ & - &4.1842e+01 ,4.1126e+01 ,4.0474e+01 ,3.9934e+01 ,3.9455e+01 /) - kao(:, 1,11) = (/ & - &4.3485e+01 ,4.3086e+01 ,4.2575e+01 ,4.2046e+01 ,4.1574e+01 /) - kao(:, 2,11) = (/ & - &4.8017e+01 ,4.7410e+01 ,4.6743e+01 ,4.6112e+01 ,4.5460e+01 /) - kao(:, 3,11) = (/ & - &5.1964e+01 ,5.1351e+01 ,5.0628e+01 ,4.9892e+01 ,4.9112e+01 /) - kao(:, 4,11) = (/ & - &5.5970e+01 ,5.5232e+01 ,5.4425e+01 ,5.3658e+01 ,5.2964e+01 /) - kao(:, 5,11) = (/ & - &6.0234e+01 ,5.9398e+01 ,5.8467e+01 ,5.7720e+01 ,5.7104e+01 /) - kao(:, 6,11) = (/ & - &6.4036e+01 ,6.3174e+01 ,6.2265e+01 ,6.1623e+01 ,6.0928e+01 /) - kao(:, 7,11) = (/ & - &6.7087e+01 ,6.6347e+01 ,6.5603e+01 ,6.4996e+01 ,6.4192e+01 /) - kao(:, 8,11) = (/ & - &6.9922e+01 ,6.9386e+01 ,6.8783e+01 ,6.8159e+01 ,6.7317e+01 /) - kao(:, 9,11) = (/ & - &7.2326e+01 ,7.1863e+01 ,7.1404e+01 ,7.0792e+01 ,6.9972e+01 /) - kao(:,10,11) = (/ & - &7.3782e+01 ,7.3486e+01 ,7.3017e+01 ,7.2321e+01 ,7.1486e+01 /) - kao(:,11,11) = (/ & - &7.4137e+01 ,7.3779e+01 ,7.3113e+01 ,7.2218e+01 ,7.1354e+01 /) - kao(:,12,11) = (/ & - &7.3214e+01 ,7.2506e+01 ,7.1526e+01 ,7.0521e+01 ,6.9446e+01 /) - kao(:,13,11) = (/ & - &7.0360e+01 ,6.9342e+01 ,6.8249e+01 ,6.7098e+01 ,6.5980e+01 /) - kao(:, 1,12) = (/ & - &5.1887e+01 ,5.1393e+01 ,5.0969e+01 ,5.0675e+01 ,5.0203e+01 /) - kao(:, 2,12) = (/ & - &5.9704e+01 ,5.9201e+01 ,5.8829e+01 ,5.8469e+01 ,5.7899e+01 /) - kao(:, 3,12) = (/ & - &6.7858e+01 ,6.7238e+01 ,6.6756e+01 ,6.6195e+01 ,6.5626e+01 /) - kao(:, 4,12) = (/ & - &7.5062e+01 ,7.4258e+01 ,7.3522e+01 ,7.2807e+01 ,7.2094e+01 /) - kao(:, 5,12) = (/ & - &8.1152e+01 ,8.0143e+01 ,7.9393e+01 ,7.8647e+01 ,7.7881e+01 /) - kao(:, 6,12) = (/ & - &8.7340e+01 ,8.6150e+01 ,8.5372e+01 ,8.4516e+01 ,8.3657e+01 /) - kao(:, 7,12) = (/ & - &9.4121e+01 ,9.2665e+01 ,9.1695e+01 ,9.0706e+01 ,8.9764e+01 /) - kao(:, 8,12) = (/ & - &1.0086e+02 ,9.9171e+01 ,9.7989e+01 ,9.6851e+01 ,9.5921e+01 /) - kao(:, 9,12) = (/ & - &1.0671e+02 ,1.0483e+02 ,1.0352e+02 ,1.0233e+02 ,1.0145e+02 /) - kao(:,10,12) = (/ & - &1.1135e+02 ,1.0957e+02 ,1.0846e+02 ,1.0742e+02 ,1.0652e+02 /) - kao(:,11,12) = (/ & - &1.1430e+02 ,1.1336e+02 ,1.1254e+02 ,1.1170e+02 ,1.1063e+02 /) - kao(:,12,12) = (/ & - &1.1681e+02 ,1.1638e+02 ,1.1571e+02 ,1.1469e+02 ,1.1347e+02 /) - kao(:,13,12) = (/ & - &1.1832e+02 ,1.1787e+02 ,1.1696e+02 ,1.1585e+02 ,1.1448e+02 /) - kao(:, 1,13) = (/ & - &6.2138e+01 ,6.1536e+01 ,6.0957e+01 ,6.0185e+01 ,5.9644e+01 /) - kao(:, 2,13) = (/ & - &7.3104e+01 ,7.2436e+01 ,7.1604e+01 ,7.0616e+01 ,6.9923e+01 /) - kao(:, 3,13) = (/ & - &8.5575e+01 ,8.4690e+01 ,8.3633e+01 ,8.2595e+01 ,8.1733e+01 /) - kao(:, 4,13) = (/ & - &9.8880e+01 ,9.7932e+01 ,9.6845e+01 ,9.5711e+01 ,9.4631e+01 /) - kao(:, 5,13) = (/ & - &1.1273e+02 ,1.1168e+02 ,1.1051e+02 ,1.0912e+02 ,1.0775e+02 /) - kao(:, 6,13) = (/ & - &1.2651e+02 ,1.2538e+02 ,1.2389e+02 ,1.2226e+02 ,1.2074e+02 /) - kao(:, 7,13) = (/ & - &1.4003e+02 ,1.3861e+02 ,1.3671e+02 ,1.3477e+02 ,1.3302e+02 /) - kao(:, 8,13) = (/ & - &1.5267e+02 ,1.5069e+02 ,1.4845e+02 ,1.4633e+02 ,1.4433e+02 /) - kao(:, 9,13) = (/ & - &1.6510e+02 ,1.6280e+02 ,1.6039e+02 ,1.5803e+02 ,1.5572e+02 /) - kao(:,10,13) = (/ & - &1.7758e+02 ,1.7506e+02 ,1.7227e+02 ,1.6951e+02 ,1.6718e+02 /) - kao(:,11,13) = (/ & - &1.8910e+02 ,1.8565e+02 ,1.8227e+02 ,1.7970e+02 ,1.7779e+02 /) - kao(:,12,13) = (/ & - &1.9894e+02 ,1.9500e+02 ,1.9204e+02 ,1.8987e+02 ,1.8782e+02 /) - kao(:,13,13) = (/ & - &2.0665e+02 ,2.0326e+02 ,2.0074e+02 ,1.9867e+02 ,1.9680e+02 /) - kao(:, 1,14) = (/ & - &7.2473e+01 ,7.1368e+01 ,7.0428e+01 ,6.9932e+01 ,6.9604e+01 /) - kao(:, 2,14) = (/ & - &8.7789e+01 ,8.6447e+01 ,8.5315e+01 ,8.4536e+01 ,8.3865e+01 /) - kao(:, 3,14) = (/ & - &1.0616e+02 ,1.0473e+02 ,1.0338e+02 ,1.0236e+02 ,1.0132e+02 /) - kao(:, 4,14) = (/ & - &1.2669e+02 ,1.2502e+02 ,1.2342e+02 ,1.2210e+02 ,1.2081e+02 /) - kao(:, 5,14) = (/ & - &1.4951e+02 ,1.4761e+02 ,1.4568e+02 ,1.4409e+02 ,1.4262e+02 /) - kao(:, 6,14) = (/ & - &1.7487e+02 ,1.7259e+02 ,1.7054e+02 ,1.6873e+02 ,1.6691e+02 /) - kao(:, 7,14) = (/ & - &2.0246e+02 ,2.0010e+02 ,1.9793e+02 ,1.9585e+02 ,1.9382e+02 /) - kao(:, 8,14) = (/ & - &2.3272e+02 ,2.3034e+02 ,2.2811e+02 ,2.2588e+02 ,2.2363e+02 /) - kao(:, 9,14) = (/ & - &2.6521e+02 ,2.6298e+02 ,2.6062e+02 ,2.5802e+02 ,2.5525e+02 /) - kao(:,10,14) = (/ & - &2.9843e+02 ,2.9609e+02 ,2.9357e+02 ,2.9069e+02 ,2.8721e+02 /) - kao(:,11,14) = (/ & - &3.3019e+02 ,3.2789e+02 ,3.2506e+02 ,3.2111e+02 ,3.1667e+02 /) - kao(:,12,14) = (/ & - &3.6200e+02 ,3.5928e+02 ,3.5512e+02 ,3.5030e+02 ,3.4598e+02 /) - kao(:,13,14) = (/ & - &3.9453e+02 ,3.9054e+02 ,3.8556e+02 ,3.8029e+02 ,3.7518e+02 /) - kao(:, 1,15) = (/ & - &8.4296e+01 ,8.4294e+01 ,8.4592e+01 ,8.4817e+01 ,8.4944e+01 /) - kao(:, 2,15) = (/ & - &1.0316e+02 ,1.0286e+02 ,1.0304e+02 ,1.0333e+02 ,1.0370e+02 /) - kao(:, 3,15) = (/ & - &1.2648e+02 ,1.2563e+02 ,1.2552e+02 ,1.2542e+02 ,1.2564e+02 /) - kao(:, 4,15) = (/ & - &1.5355e+02 ,1.5194e+02 ,1.5117e+02 ,1.5062e+02 ,1.5044e+02 /) - kao(:, 5,15) = (/ & - &1.8607e+02 ,1.8324e+02 ,1.8143e+02 ,1.8019e+02 ,1.7911e+02 /) - kao(:, 6,15) = (/ & - &2.2538e+02 ,2.2140e+02 ,2.1806e+02 ,2.1567e+02 ,2.1369e+02 /) - kao(:, 7,15) = (/ & - &2.7204e+02 ,2.6705e+02 ,2.6220e+02 ,2.5861e+02 ,2.5549e+02 /) - kao(:, 8,15) = (/ & - &3.2681e+02 ,3.2069e+02 ,3.1478e+02 ,3.0961e+02 ,3.0517e+02 /) - kao(:, 9,15) = (/ & - &3.9109e+02 ,3.8311e+02 ,3.7570e+02 ,3.6941e+02 ,3.6369e+02 /) - kao(:,10,15) = (/ & - &4.6558e+02 ,4.5519e+02 ,4.4566e+02 ,4.3786e+02 ,4.3114e+02 /) - kao(:,11,15) = (/ & - &5.4422e+02 ,5.3170e+02 ,5.2160e+02 ,5.1300e+02 ,5.0502e+02 /) - kao(:,12,15) = (/ & - &6.3083e+02 ,6.1809e+02 ,6.0782e+02 ,5.9755e+02 ,5.8778e+02 /) - kao(:,13,15) = (/ & - &7.2633e+02 ,7.1401e+02 ,7.0254e+02 ,6.9098e+02 ,6.8020e+02 /) - kao(:, 1,16) = (/ & - &9.0293e+01 ,9.1524e+01 ,9.2499e+01 ,9.3157e+01 ,9.3569e+01 /) - kao(:, 2,16) = (/ & - &1.1228e+02 ,1.1346e+02 ,1.1477e+02 ,1.1575e+02 ,1.1638e+02 /) - kao(:, 3,16) = (/ & - &1.3962e+02 ,1.4080e+02 ,1.4217e+02 ,1.4343e+02 ,1.4444e+02 /) - kao(:, 4,16) = (/ & - &1.7141e+02 ,1.7272e+02 ,1.7425e+02 ,1.7564e+02 ,1.7671e+02 /) - kao(:, 5,16) = (/ & - &2.0680e+02 ,2.1031e+02 ,2.1221e+02 ,2.1383e+02 ,2.1512e+02 /) - kao(:, 6,16) = (/ & - &2.5314e+02 ,2.5478e+02 ,2.5735e+02 ,2.5955e+02 ,2.6116e+02 /) - kao(:, 7,16) = (/ & - &3.0938e+02 ,3.0774e+02 ,3.1113e+02 ,3.1414e+02 ,3.1633e+02 /) - kao(:, 8,16) = (/ & - &3.7909e+02 ,3.7514e+02 ,3.7476e+02 ,3.7901e+02 ,3.8212e+02 /) - kao(:, 9,16) = (/ & - &4.6433e+02 ,4.5795e+02 ,4.5378e+02 ,4.5558e+02 ,4.5979e+02 /) - kao(:,10,16) = (/ & - &5.6730e+02 ,5.5767e+02 ,5.5088e+02 ,5.4957e+02 ,5.5150e+02 /) - kao(:,11,16) = (/ & - &6.8668e+02 ,6.7309e+02 ,6.6516e+02 ,6.6333e+02 ,6.6322e+02 /) - kao(:,12,16) = (/ & - &8.3053e+02 ,8.1176e+02 ,8.0043e+02 ,7.9744e+02 ,7.9485e+02 /) - kao(:,13,16) = (/ & - &1.0026e+03 ,9.7775e+02 ,9.6058e+02 ,9.5314e+02 ,9.4719e+02 /) - -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kbo(:,13, 1) = (/ & - &1.2190e-02 ,1.2693e-02 ,1.3086e-02 ,1.3355e-02 ,1.3602e-02 /) - kbo(:,14, 1) = (/ & - &1.0639e-02 ,1.0991e-02 ,1.1315e-02 ,1.1564e-02 ,1.1518e-02 /) - kbo(:,15, 1) = (/ & - &9.4343e-03 ,9.6676e-03 ,9.5938e-03 ,9.5530e-03 ,9.4890e-03 /) - kbo(:,16, 1) = (/ & - &7.9681e-03 ,7.8419e-03 ,7.8162e-03 ,7.7492e-03 ,7.7652e-03 /) - kbo(:,17, 1) = (/ & - &6.4068e-03 ,6.3539e-03 ,6.3265e-03 ,6.3294e-03 ,6.2292e-03 /) - kbo(:,18, 1) = (/ & - &5.1420e-03 ,5.1335e-03 ,5.0780e-03 ,5.0408e-03 ,5.0223e-03 /) - kbo(:,19, 1) = (/ & - &4.1739e-03 ,4.1404e-03 ,4.1032e-03 ,4.0908e-03 ,4.0562e-03 /) - kbo(:,20, 1) = (/ & - &3.3887e-03 ,3.3668e-03 ,3.3481e-03 ,3.3359e-03 ,3.2948e-03 /) - kbo(:,21, 1) = (/ & - &2.7580e-03 ,2.7551e-03 ,2.7356e-03 ,2.7092e-03 ,2.6841e-03 /) - kbo(:,22, 1) = (/ & - &2.2558e-03 ,2.2435e-03 ,2.2235e-03 ,2.2041e-03 ,2.1870e-03 /) - kbo(:,23, 1) = (/ & - &1.8426e-03 ,1.8324e-03 ,1.8088e-03 ,1.7975e-03 ,1.7882e-03 /) - kbo(:,24, 1) = (/ & - &1.5091e-03 ,1.4914e-03 ,1.4770e-03 ,1.4698e-03 ,1.4675e-03 /) - kbo(:,25, 1) = (/ & - &1.2361e-03 ,1.2170e-03 ,1.2068e-03 ,1.2059e-03 ,1.2054e-03 /) - kbo(:,26, 1) = (/ & - &1.0050e-03 ,9.9424e-04 ,9.8921e-04 ,9.8950e-04 ,9.9102e-04 /) - kbo(:,27, 1) = (/ & - &8.1924e-04 ,8.1181e-04 ,8.1111e-04 ,8.1148e-04 ,8.1057e-04 /) - kbo(:,28, 1) = (/ & - &6.6881e-04 ,6.6398e-04 ,6.6473e-04 ,6.6536e-04 ,6.6057e-04 /) - kbo(:,29, 1) = (/ & - &5.4452e-04 ,5.4181e-04 ,5.4254e-04 ,5.4342e-04 ,5.3551e-04 /) - kbo(:,30, 1) = (/ & - &4.4259e-04 ,4.4140e-04 ,4.4207e-04 ,4.4326e-04 ,4.2874e-04 /) - kbo(:,31, 1) = (/ & - &3.5899e-04 ,3.5826e-04 ,3.5911e-04 ,3.5984e-04 ,3.4298e-04 /) - kbo(:,32, 1) = (/ & - &2.9138e-04 ,2.9104e-04 ,2.9178e-04 ,2.9237e-04 ,2.7522e-04 /) - kbo(:,33, 1) = (/ & - &2.3674e-04 ,2.3667e-04 ,2.3708e-04 ,2.3749e-04 ,2.2116e-04 /) - kbo(:,34, 1) = (/ & - &1.9293e-04 ,1.9295e-04 ,1.9307e-04 ,1.9353e-04 ,1.7944e-04 /) - kbo(:,35, 1) = (/ & - &1.5741e-04 ,1.5737e-04 ,1.5735e-04 ,1.5778e-04 ,1.4713e-04 /) - kbo(:,36, 1) = (/ & - &1.2872e-04 ,1.2833e-04 ,1.2856e-04 ,1.2886e-04 ,1.2147e-04 /) - kbo(:,37, 1) = (/ & - &1.0573e-04 ,1.0521e-04 ,1.0532e-04 ,1.0552e-04 ,1.0153e-04 /) - kbo(:,38, 1) = (/ & - &8.6912e-05 ,8.6294e-05 ,8.6278e-05 ,8.6393e-05 ,8.5663e-05 /) - kbo(:,39, 1) = (/ & - &7.1476e-05 ,7.0797e-05 ,7.0693e-05 ,7.0706e-05 ,7.0752e-05 /) - kbo(:,40, 1) = (/ & - &5.8778e-05 ,5.8375e-05 ,5.8149e-05 ,5.8120e-05 ,5.8038e-05 /) - kbo(:,41, 1) = (/ & - &4.8208e-05 ,4.8291e-05 ,4.7939e-05 ,4.7839e-05 ,4.7717e-05 /) - kbo(:,42, 1) = (/ & - &3.9735e-05 ,3.9794e-05 ,3.9588e-05 ,3.9414e-05 ,3.9275e-05 /) - kbo(:,43, 1) = (/ & - &3.3069e-05 ,3.2750e-05 ,3.2898e-05 ,3.2646e-05 ,3.2434e-05 /) - kbo(:,44, 1) = (/ & - &2.7160e-05 ,2.7263e-05 ,2.7120e-05 ,2.7165e-05 ,2.6874e-05 /) - kbo(:,45, 1) = (/ & - &2.2285e-05 ,2.2565e-05 ,2.2508e-05 ,2.2456e-05 ,2.2357e-05 /) - kbo(:,46, 1) = (/ & - &1.8468e-05 ,1.8529e-05 ,1.8744e-05 ,1.8640e-05 ,1.8584e-05 /) - kbo(:,47, 1) = (/ & - &1.5267e-05 ,1.5373e-05 ,1.5389e-05 ,1.5590e-05 ,1.5417e-05 /) - kbo(:,48, 1) = (/ & - &1.2576e-05 ,1.2765e-05 ,1.2771e-05 ,1.2828e-05 ,1.2953e-05 /) - kbo(:,49, 1) = (/ & - &1.0526e-05 ,1.0503e-05 ,1.0641e-05 ,1.0645e-05 ,1.0671e-05 /) - kbo(:,50, 1) = (/ & - &8.5146e-06 ,8.8286e-06 ,8.7879e-06 ,8.8870e-06 ,8.8515e-06 /) - kbo(:,51, 1) = (/ & - &6.8551e-06 ,7.1714e-06 ,7.4262e-06 ,7.3568e-06 ,7.4039e-06 /) - kbo(:,52, 1) = (/ & - &5.5111e-06 ,5.7854e-06 ,6.0431e-06 ,6.2230e-06 ,6.1473e-06 /) - kbo(:,53, 1) = (/ & - &4.4382e-06 ,4.6559e-06 ,4.8718e-06 ,5.0815e-06 ,5.1941e-06 /) - kbo(:,54, 1) = (/ & - &3.6177e-06 ,3.7935e-06 ,3.9613e-06 ,4.1342e-06 ,4.2936e-06 /) - kbo(:,55, 1) = (/ & - &2.9336e-06 ,3.1004e-06 ,3.2420e-06 ,3.3846e-06 ,3.5194e-06 /) - kbo(:,56, 1) = (/ & - &2.3777e-06 ,2.5393e-06 ,2.6559e-06 ,2.7737e-06 ,2.8819e-06 /) - kbo(:,57, 1) = (/ & - &1.9258e-06 ,2.0635e-06 ,2.1875e-06 ,2.2772e-06 ,2.3684e-06 /) - kbo(:,58, 1) = (/ & - &1.5658e-06 ,1.6813e-06 ,1.7910e-06 ,1.8800e-06 ,1.9530e-06 /) - kbo(:,59, 1) = (/ & - &1.3188e-06 ,1.4141e-06 ,1.4979e-06 ,1.5764e-06 ,1.6384e-06 /) - kbo(:,13, 2) = (/ & - &3.3779e-02 ,3.2735e-02 ,3.1178e-02 ,2.9814e-02 ,2.8271e-02 /) - kbo(:,14, 2) = (/ & - &2.7945e-02 ,2.6846e-02 ,2.5419e-02 ,2.4157e-02 ,2.2814e-02 /) - kbo(:,15, 2) = (/ & - &2.2748e-02 ,2.1521e-02 ,2.0571e-02 ,1.9559e-02 ,1.8047e-02 /) - kbo(:,16, 2) = (/ & - &1.8337e-02 ,1.7587e-02 ,1.6750e-02 ,1.5705e-02 ,1.3259e-02 /) - kbo(:,17, 2) = (/ & - &1.5034e-02 ,1.4343e-02 ,1.3736e-02 ,1.1541e-02 ,9.7400e-03 /) - kbo(:,18, 2) = (/ & - &1.2164e-02 ,1.1828e-02 ,9.9998e-03 ,8.2911e-03 ,6.9774e-03 /) - kbo(:,19, 2) = (/ & - &1.0053e-02 ,8.7760e-03 ,7.2944e-03 ,6.0291e-03 ,5.2188e-03 /) - kbo(:,20, 2) = (/ & - &8.0996e-03 ,6.6628e-03 ,5.4744e-03 ,4.5474e-03 ,4.0343e-03 /) - kbo(:,21, 2) = (/ & - &6.1685e-03 ,5.0455e-03 ,4.1278e-03 ,3.5537e-03 ,3.1461e-03 /) - kbo(:,22, 2) = (/ & - &4.6680e-03 ,3.7894e-03 ,3.1347e-03 ,2.7602e-03 ,2.4538e-03 /) - kbo(:,23, 2) = (/ & - &3.5105e-03 ,2.8430e-03 ,2.4311e-03 ,2.1442e-03 ,1.9116e-03 /) - kbo(:,24, 2) = (/ & - &2.6394e-03 ,2.1852e-03 ,1.8960e-03 ,1.6702e-03 ,1.4993e-03 /) - kbo(:,25, 2) = (/ & - &2.0041e-03 ,1.6920e-03 ,1.4784e-03 ,1.3107e-03 ,1.1883e-03 /) - kbo(:,26, 2) = (/ & - &1.5414e-03 ,1.3189e-03 ,1.1564e-03 ,1.0333e-03 ,9.4710e-04 /) - kbo(:,27, 2) = (/ & - &1.2025e-03 ,1.0381e-03 ,9.1423e-04 ,8.1996e-04 ,7.6323e-04 /) - kbo(:,28, 2) = (/ & - &9.4481e-04 ,8.2314e-04 ,7.2601e-04 ,6.5680e-04 ,6.2105e-04 /) - kbo(:,29, 2) = (/ & - &7.4291e-04 ,6.5138e-04 ,5.7968e-04 ,5.2914e-04 ,5.0508e-04 /) - kbo(:,30, 2) = (/ & - &5.8796e-04 ,5.1841e-04 ,4.6161e-04 ,4.2521e-04 ,4.1671e-04 /) - kbo(:,31, 2) = (/ & - &4.6334e-04 ,4.1198e-04 ,3.6828e-04 ,3.4267e-04 ,3.4322e-04 /) - kbo(:,32, 2) = (/ & - &3.6683e-04 ,3.2718e-04 ,2.9598e-04 ,2.7743e-04 ,2.8106e-04 /) - kbo(:,33, 2) = (/ & - &2.9220e-04 ,2.6104e-04 ,2.3912e-04 ,2.2529e-04 ,2.3032e-04 /) - kbo(:,34, 2) = (/ & - &2.3494e-04 ,2.1114e-04 ,1.9458e-04 ,1.8336e-04 ,1.8849e-04 /) - kbo(:,35, 2) = (/ & - &1.9117e-04 ,1.7220e-04 ,1.5969e-04 ,1.5013e-04 ,1.5359e-04 /) - kbo(:,36, 2) = (/ & - &1.5747e-04 ,1.4221e-04 ,1.3171e-04 ,1.2370e-04 ,1.2459e-04 /) - kbo(:,37, 2) = (/ & - &1.3250e-04 ,1.1910e-04 ,1.0968e-04 ,1.0296e-04 ,1.0130e-04 /) - kbo(:,38, 2) = (/ & - &1.1160e-04 ,9.9715e-05 ,9.1665e-05 ,8.5730e-05 ,8.1933e-05 /) - kbo(:,39, 2) = (/ & - &9.4135e-05 ,8.3974e-05 ,7.6783e-05 ,7.1718e-05 ,6.7517e-05 /) - kbo(:,40, 2) = (/ & - &8.0997e-05 ,7.2288e-05 ,6.5235e-05 ,6.0491e-05 ,5.6970e-05 /) - kbo(:,41, 2) = (/ & - &7.0436e-05 ,6.2097e-05 ,5.5431e-05 ,5.1123e-05 ,4.8054e-05 /) - kbo(:,42, 2) = (/ & - &6.1655e-05 ,5.3367e-05 ,4.7548e-05 ,4.3416e-05 ,4.0552e-05 /) - kbo(:,43, 2) = (/ & - &5.5272e-05 ,4.6832e-05 ,4.1549e-05 ,3.7143e-05 ,3.4563e-05 /) - kbo(:,44, 2) = (/ & - &5.0350e-05 ,4.1911e-05 ,3.6573e-05 ,3.2553e-05 ,2.9621e-05 /) - kbo(:,45, 2) = (/ & - &4.6680e-05 ,3.8062e-05 ,3.2149e-05 ,2.8703e-05 ,2.5694e-05 /) - kbo(:,46, 2) = (/ & - &4.2769e-05 ,3.5698e-05 ,2.9139e-05 ,2.5199e-05 ,2.2638e-05 /) - kbo(:,47, 2) = (/ & - &3.6477e-05 ,3.2822e-05 ,2.7467e-05 ,2.2730e-05 ,2.0075e-05 /) - kbo(:,48, 2) = (/ & - &3.0609e-05 ,2.9832e-05 ,2.5641e-05 ,2.1246e-05 ,1.7927e-05 /) - kbo(:,49, 2) = (/ & - &2.5892e-05 ,2.4976e-05 ,2.3819e-05 ,2.0178e-05 ,1.6719e-05 /) - kbo(:,50, 2) = (/ & - &2.2068e-05 ,2.0897e-05 ,2.0445e-05 ,1.8401e-05 ,1.5648e-05 /) - kbo(:,51, 2) = (/ & - &1.8894e-05 ,1.8060e-05 ,1.7047e-05 ,1.6809e-05 ,1.4426e-05 /) - kbo(:,52, 2) = (/ & - &1.6131e-05 ,1.5345e-05 ,1.4613e-05 ,1.3961e-05 ,1.3398e-05 /) - kbo(:,53, 2) = (/ & - &1.3727e-05 ,1.3222e-05 ,1.2619e-05 ,1.1906e-05 ,1.1467e-05 /) - kbo(:,54, 2) = (/ & - &1.1644e-05 ,1.1203e-05 ,1.0779e-05 ,1.0373e-05 ,9.7090e-06 /) - kbo(:,55, 2) = (/ & - &9.9606e-06 ,9.5440e-06 ,9.2216e-06 ,8.7822e-06 ,8.3198e-06 /) - kbo(:,56, 2) = (/ & - &8.4517e-06 ,8.1696e-06 ,7.8373e-06 ,7.5094e-06 ,7.2266e-06 /) - kbo(:,57, 2) = (/ & - &7.1634e-06 ,7.0985e-06 ,6.7296e-06 ,6.4794e-06 ,6.1647e-06 /) - kbo(:,58, 2) = (/ & - &6.2286e-06 ,5.9713e-06 ,5.8323e-06 ,5.5370e-06 ,5.3465e-06 /) - kbo(:,59, 2) = (/ & - &5.3307e-06 ,5.0367e-06 ,4.9690e-06 ,4.6758e-06 ,4.5062e-06 /) - kbo(:,13, 3) = (/ & - &4.7904e-02 ,3.6965e-02 ,2.8601e-02 ,2.3919e-02 ,2.0680e-02 /) - kbo(:,14, 3) = (/ & - &3.6570e-02 ,2.7810e-02 ,2.1848e-02 ,1.8508e-02 ,1.6582e-02 /) - kbo(:,15, 3) = (/ & - &2.6097e-02 ,1.9628e-02 ,1.6268e-02 ,1.4252e-02 ,1.3801e-02 /) - kbo(:,16, 3) = (/ & - &1.8293e-02 ,1.4393e-02 ,1.2369e-02 ,1.1568e-02 ,1.2855e-02 /) - kbo(:,17, 3) = (/ & - &1.3004e-02 ,1.0838e-02 ,9.6882e-03 ,1.0818e-02 ,1.1950e-02 /) - kbo(:,18, 3) = (/ & - &9.6007e-03 ,8.2004e-03 ,9.1048e-03 ,1.0148e-02 ,1.0662e-02 /) - kbo(:,19, 3) = (/ & - &7.2730e-03 ,7.5847e-03 ,8.4339e-03 ,9.0734e-03 ,9.2118e-03 /) - kbo(:,20, 3) = (/ & - &5.9400e-03 ,6.7100e-03 ,7.4249e-03 ,7.7409e-03 ,7.7182e-03 /) - kbo(:,21, 3) = (/ & - &5.2740e-03 ,5.8871e-03 ,6.3746e-03 ,6.4908e-03 ,6.3895e-03 /) - kbo(:,22, 3) = (/ & - &4.5973e-03 ,5.1329e-03 ,5.3865e-03 ,5.3473e-03 ,5.2488e-03 /) - kbo(:,23, 3) = (/ & - &4.0216e-03 ,4.3958e-03 ,4.5011e-03 ,4.3919e-03 ,4.3384e-03 /) - kbo(:,24, 3) = (/ & - &3.5050e-03 ,3.6950e-03 ,3.6848e-03 ,3.6232e-03 ,3.5889e-03 /) - kbo(:,25, 3) = (/ & - &3.0079e-03 ,3.0947e-03 ,3.0321e-03 ,2.9863e-03 ,2.9569e-03 /) - kbo(:,26, 3) = (/ & - &2.5223e-03 ,2.5389e-03 ,2.4899e-03 ,2.4616e-03 ,2.4119e-03 /) - kbo(:,27, 3) = (/ & - &2.0904e-03 ,2.0720e-03 ,2.0405e-03 ,2.0263e-03 ,1.9704e-03 /) - kbo(:,28, 3) = (/ & - &1.7240e-03 ,1.6892e-03 ,1.6695e-03 ,1.6561e-03 ,1.6055e-03 /) - kbo(:,29, 3) = (/ & - &1.4068e-03 ,1.3720e-03 ,1.3607e-03 ,1.3422e-03 ,1.3070e-03 /) - kbo(:,30, 3) = (/ & - &1.1328e-03 ,1.1145e-03 ,1.1117e-03 ,1.0886e-03 ,1.0628e-03 /) - kbo(:,31, 3) = (/ & - &9.1589e-04 ,9.0415e-04 ,9.0310e-04 ,8.8069e-04 ,8.6082e-04 /) - kbo(:,32, 3) = (/ & - &7.4268e-04 ,7.3425e-04 ,7.3091e-04 ,7.1193e-04 ,7.0016e-04 /) - kbo(:,33, 3) = (/ & - &5.9881e-04 ,5.9536e-04 ,5.8909e-04 ,5.7513e-04 ,5.6984e-04 /) - kbo(:,34, 3) = (/ & - &4.8522e-04 ,4.8326e-04 ,4.7702e-04 ,4.6806e-04 ,4.6482e-04 /) - kbo(:,35, 3) = (/ & - &3.9408e-04 ,3.9282e-04 ,3.8758e-04 ,3.8191e-04 ,3.7951e-04 /) - kbo(:,36, 3) = (/ & - &3.2090e-04 ,3.1998e-04 ,3.1651e-04 ,3.1185e-04 ,3.1064e-04 /) - kbo(:,37, 3) = (/ & - &2.6225e-04 ,2.6215e-04 ,2.6078e-04 ,2.5651e-04 ,2.5549e-04 /) - kbo(:,38, 3) = (/ & - &2.1480e-04 ,2.1472e-04 ,2.1476e-04 ,2.1116e-04 ,2.0969e-04 /) - kbo(:,39, 3) = (/ & - &1.7555e-04 ,1.7537e-04 ,1.7598e-04 ,1.7350e-04 ,1.7249e-04 /) - kbo(:,40, 3) = (/ & - &1.4506e-04 ,1.4338e-04 ,1.4427e-04 ,1.4359e-04 ,1.4195e-04 /) - kbo(:,41, 3) = (/ & - &1.1753e-04 ,1.1789e-04 ,1.1842e-04 ,1.1899e-04 ,1.1706e-04 /) - kbo(:,42, 3) = (/ & - &9.4811e-05 ,9.6651e-05 ,9.6909e-05 ,9.7780e-05 ,9.6573e-05 /) - kbo(:,43, 3) = (/ & - &7.5161e-05 ,7.9489e-05 ,7.9256e-05 ,8.0096e-05 ,8.0065e-05 /) - kbo(:,44, 3) = (/ & - &5.8204e-05 ,6.3635e-05 ,6.5251e-05 ,6.5174e-05 ,6.6162e-05 /) - kbo(:,45, 3) = (/ & - &4.3809e-05 ,5.0393e-05 ,5.3351e-05 ,5.3552e-05 ,5.3892e-05 /) - kbo(:,46, 3) = (/ & - &3.2980e-05 ,3.7988e-05 ,4.2459e-05 ,4.3951e-05 ,4.3847e-05 /) - kbo(:,47, 3) = (/ & - &2.7646e-05 ,2.8723e-05 ,3.2811e-05 ,3.5391e-05 ,3.6137e-05 /) - kbo(:,48, 3) = (/ & - &2.4543e-05 ,2.1924e-05 ,2.4598e-05 ,2.7741e-05 ,2.9339e-05 /) - kbo(:,49, 3) = (/ & - &2.2466e-05 ,1.9218e-05 ,1.8251e-05 ,2.0876e-05 ,2.3032e-05 /) - kbo(:,50, 3) = (/ & - &2.1181e-05 ,1.7247e-05 ,1.5253e-05 ,1.5927e-05 ,1.7960e-05 /) - kbo(:,51, 3) = (/ & - &2.0829e-05 ,1.5682e-05 ,1.3335e-05 ,1.2152e-05 ,1.3683e-05 /) - kbo(:,52, 3) = (/ & - &2.0195e-05 ,1.5008e-05 ,1.2032e-05 ,1.0543e-05 ,1.0211e-05 /) - kbo(:,53, 3) = (/ & - &1.9323e-05 ,1.4642e-05 ,1.1065e-05 ,9.3359e-06 ,8.4701e-06 /) - kbo(:,54, 3) = (/ & - &1.7666e-05 ,1.4231e-05 ,1.0596e-05 ,8.3241e-06 ,7.3928e-06 /) - kbo(:,55, 3) = (/ & - &1.5462e-05 ,1.3265e-05 ,1.0248e-05 ,7.8075e-06 ,6.5230e-06 /) - kbo(:,56, 3) = (/ & - &1.3370e-05 ,1.2106e-05 ,9.7995e-06 ,7.4236e-06 ,5.8878e-06 /) - kbo(:,57, 3) = (/ & - &1.1515e-05 ,1.0653e-05 ,9.2073e-06 ,7.1981e-06 ,5.4819e-06 /) - kbo(:,58, 3) = (/ & - &1.0034e-05 ,9.2814e-06 ,8.4358e-06 ,6.8772e-06 ,5.2130e-06 /) - kbo(:,59, 3) = (/ & - &8.4460e-06 ,7.8198e-06 ,7.3452e-06 ,6.2331e-06 ,4.7237e-06 /) - kbo(:,13, 4) = (/ & - &3.3587e-02 ,4.0386e-02 ,4.5135e-02 ,4.6401e-02 ,4.5805e-02 /) - kbo(:,14, 4) = (/ & - &3.1030e-02 ,3.6513e-02 ,3.9636e-02 ,3.9291e-02 ,3.8805e-02 /) - kbo(:,15, 4) = (/ & - &2.9952e-02 ,3.3504e-02 ,3.3526e-02 ,3.3527e-02 ,3.2785e-02 /) - kbo(:,16, 4) = (/ & - &2.7625e-02 ,2.8337e-02 ,2.8532e-02 ,2.8121e-02 ,2.7038e-02 /) - kbo(:,17, 4) = (/ & - &2.3797e-02 ,2.4231e-02 ,2.3927e-02 ,2.3137e-02 ,2.2675e-02 /) - kbo(:,18, 4) = (/ & - &2.0364e-02 ,2.0218e-02 ,1.9689e-02 ,1.9353e-02 ,1.9321e-02 /) - kbo(:,19, 4) = (/ & - &1.7135e-02 ,1.6671e-02 ,1.6414e-02 ,1.6325e-02 ,1.6362e-02 /) - kbo(:,20, 4) = (/ & - &1.4048e-02 ,1.3836e-02 ,1.3650e-02 ,1.3725e-02 ,1.3743e-02 /) - kbo(:,21, 4) = (/ & - &1.1598e-02 ,1.1451e-02 ,1.1386e-02 ,1.1434e-02 ,1.1536e-02 /) - kbo(:,22, 4) = (/ & - &9.5671e-03 ,9.4431e-03 ,9.4962e-03 ,9.5565e-03 ,9.6638e-03 /) - kbo(:,23, 4) = (/ & - &7.8733e-03 ,7.8272e-03 ,7.8608e-03 ,8.0045e-03 ,8.0429e-03 /) - kbo(:,24, 4) = (/ & - &6.4854e-03 ,6.5239e-03 ,6.5932e-03 ,6.6847e-03 ,6.6897e-03 /) - kbo(:,25, 4) = (/ & - &5.3475e-03 ,5.3959e-03 ,5.5055e-03 ,5.5513e-03 ,5.5516e-03 /) - kbo(:,26, 4) = (/ & - &4.4370e-03 ,4.4984e-03 ,4.5821e-03 ,4.5978e-03 ,4.6194e-03 /) - kbo(:,27, 4) = (/ & - &3.6654e-03 ,3.7378e-03 ,3.7830e-03 ,3.7897e-03 ,3.8209e-03 /) - kbo(:,28, 4) = (/ & - &3.0135e-03 ,3.0852e-03 ,3.1155e-03 ,3.1198e-03 ,3.1538e-03 /) - kbo(:,29, 4) = (/ & - &2.4690e-03 ,2.5299e-03 ,2.5457e-03 ,2.5581e-03 ,2.5884e-03 /) - kbo(:,30, 4) = (/ & - &2.0282e-03 ,2.0645e-03 ,2.0716e-03 ,2.0943e-03 ,2.1183e-03 /) - kbo(:,31, 4) = (/ & - &1.6532e-03 ,1.6753e-03 ,1.6810e-03 ,1.7064e-03 ,1.7271e-03 /) - kbo(:,32, 4) = (/ & - &1.3440e-03 ,1.3610e-03 ,1.3688e-03 ,1.3929e-03 ,1.4080e-03 /) - kbo(:,33, 4) = (/ & - &1.0937e-03 ,1.1058e-03 ,1.1183e-03 ,1.1384e-03 ,1.1495e-03 /) - kbo(:,34, 4) = (/ & - &8.9328e-04 ,9.0340e-04 ,9.1730e-04 ,9.3209e-04 ,9.4284e-04 /) - kbo(:,35, 4) = (/ & - &7.2895e-04 ,7.3894e-04 ,7.5120e-04 ,7.6322e-04 ,7.7389e-04 /) - kbo(:,36, 4) = (/ & - &5.9465e-04 ,6.0388e-04 ,6.1360e-04 ,6.2477e-04 ,6.3446e-04 /) - kbo(:,37, 4) = (/ & - &4.8509e-04 ,4.9426e-04 ,5.0234e-04 ,5.1316e-04 ,5.2248e-04 /) - kbo(:,38, 4) = (/ & - &3.9518e-04 ,4.0486e-04 ,4.1118e-04 ,4.2126e-04 ,4.3035e-04 /) - kbo(:,39, 4) = (/ & - &3.2206e-04 ,3.3126e-04 ,3.3692e-04 ,3.4570e-04 ,3.5386e-04 /) - kbo(:,40, 4) = (/ & - &2.6189e-04 ,2.7140e-04 ,2.7744e-04 ,2.8454e-04 ,2.9309e-04 /) - kbo(:,41, 4) = (/ & - &2.1513e-04 ,2.2151e-04 ,2.2843e-04 ,2.3405e-04 ,2.4235e-04 /) - kbo(:,42, 4) = (/ & - &1.7598e-04 ,1.8130e-04 ,1.8775e-04 ,1.9283e-04 ,2.0002e-04 /) - kbo(:,43, 4) = (/ & - &1.4391e-04 ,1.4742e-04 ,1.5366e-04 ,1.5883e-04 ,1.6416e-04 /) - kbo(:,44, 4) = (/ & - &1.1869e-04 ,1.2058e-04 ,1.2494e-04 ,1.3042e-04 ,1.3475e-04 /) - kbo(:,45, 4) = (/ & - &9.8053e-05 ,9.8247e-05 ,1.0155e-04 ,1.0624e-04 ,1.1079e-04 /) - kbo(:,46, 4) = (/ & - &8.0733e-05 ,8.0988e-05 ,8.2961e-05 ,8.6570e-05 ,9.0733e-05 /) - kbo(:,47, 4) = (/ & - &6.6646e-05 ,6.6793e-05 ,6.7614e-05 ,7.0248e-05 ,7.3658e-05 /) - kbo(:,48, 4) = (/ & - &5.5124e-05 ,5.5074e-05 ,5.5667e-05 ,5.7150e-05 ,5.9800e-05 /) - kbo(:,49, 4) = (/ & - &4.4694e-05 ,4.5221e-05 ,4.5769e-05 ,4.6677e-05 ,4.8625e-05 /) - kbo(:,50, 4) = (/ & - &3.5617e-05 ,3.7343e-05 ,3.7522e-05 ,3.8384e-05 ,3.9484e-05 /) - kbo(:,51, 4) = (/ & - &2.7917e-05 ,3.0153e-05 ,3.0833e-05 ,3.1535e-05 ,3.2403e-05 /) - kbo(:,52, 4) = (/ & - &2.1904e-05 ,2.3837e-05 ,2.5410e-05 ,2.5925e-05 ,2.6605e-05 /) - kbo(:,53, 4) = (/ & - &1.6636e-05 ,1.9086e-05 ,2.0539e-05 ,2.1236e-05 ,2.1831e-05 /) - kbo(:,54, 4) = (/ & - &1.2490e-05 ,1.4743e-05 ,1.6336e-05 ,1.7546e-05 ,1.7865e-05 /) - kbo(:,55, 4) = (/ & - &1.0189e-05 ,1.1568e-05 ,1.3196e-05 ,1.4286e-05 ,1.4740e-05 /) - kbo(:,56, 4) = (/ & - &9.0688e-06 ,8.6690e-06 ,1.0255e-05 ,1.1493e-05 ,1.2371e-05 /) - kbo(:,57, 4) = (/ & - &8.8593e-06 ,6.9758e-06 ,8.0033e-06 ,9.3145e-06 ,1.0058e-05 /) - kbo(:,58, 4) = (/ & - &8.9813e-06 ,6.2718e-06 ,5.9506e-06 ,7.1169e-06 ,8.0866e-06 /) - kbo(:,59, 4) = (/ & - &8.3077e-06 ,5.6478e-06 ,4.7582e-06 ,5.5908e-06 ,6.6051e-06 /) - kbo(:,13, 5) = (/ & - &8.1443e-02 ,7.8686e-02 ,7.8076e-02 ,7.8298e-02 ,8.0221e-02 /) - kbo(:,14, 5) = (/ & - &6.8138e-02 ,6.7426e-02 ,6.7266e-02 ,6.8778e-02 ,7.0029e-02 /) - kbo(:,15, 5) = (/ & - &5.7566e-02 ,5.8181e-02 ,6.0037e-02 ,6.1077e-02 ,6.2170e-02 /) - kbo(:,16, 5) = (/ & - &4.9602e-02 ,5.1862e-02 ,5.2830e-02 ,5.3796e-02 ,5.4837e-02 /) - kbo(:,17, 5) = (/ & - &4.4316e-02 ,4.5504e-02 ,4.6554e-02 ,4.7427e-02 ,4.7730e-02 /) - kbo(:,18, 5) = (/ & - &3.9127e-02 ,4.0270e-02 ,4.1019e-02 ,4.1264e-02 ,4.1372e-02 /) - kbo(:,19, 5) = (/ & - &3.4464e-02 ,3.5381e-02 ,3.5731e-02 ,3.5860e-02 ,3.6031e-02 /) - kbo(:,20, 5) = (/ & - &2.9866e-02 ,3.0433e-02 ,3.0697e-02 ,3.0719e-02 ,3.0767e-02 /) - kbo(:,21, 5) = (/ & - &2.5526e-02 ,2.5898e-02 ,2.6044e-02 ,2.5989e-02 ,2.5913e-02 /) - kbo(:,22, 5) = (/ & - &2.1617e-02 ,2.1821e-02 ,2.1825e-02 ,2.1764e-02 ,2.1636e-02 /) - kbo(:,23, 5) = (/ & - &1.8178e-02 ,1.8256e-02 ,1.8221e-02 ,1.8126e-02 ,1.8025e-02 /) - kbo(:,24, 5) = (/ & - &1.5221e-02 ,1.5229e-02 ,1.5185e-02 ,1.5079e-02 ,1.4988e-02 /) - kbo(:,25, 5) = (/ & - &1.2672e-02 ,1.2670e-02 ,1.2609e-02 ,1.2518e-02 ,1.2439e-02 /) - kbo(:,26, 5) = (/ & - &1.0521e-02 ,1.0503e-02 ,1.0444e-02 ,1.0375e-02 ,1.0305e-02 /) - kbo(:,27, 5) = (/ & - &8.6769e-03 ,8.6518e-03 ,8.6102e-03 ,8.5574e-03 ,8.4970e-03 /) - kbo(:,28, 5) = (/ & - &7.1348e-03 ,7.1122e-03 ,7.0812e-03 ,7.0380e-03 ,6.9899e-03 /) - kbo(:,29, 5) = (/ & - &5.8206e-03 ,5.8023e-03 ,5.7788e-03 ,5.7535e-03 ,5.7174e-03 /) - kbo(:,30, 5) = (/ & - &4.7381e-03 ,4.7263e-03 ,4.7093e-03 ,4.6856e-03 ,4.6651e-03 /) - kbo(:,31, 5) = (/ & - &3.8310e-03 ,3.8249e-03 ,3.8179e-03 ,3.8007e-03 ,3.7880e-03 /) - kbo(:,32, 5) = (/ & - &3.1058e-03 ,3.1004e-03 ,3.0969e-03 ,3.0876e-03 ,3.0842e-03 /) - kbo(:,33, 5) = (/ & - &2.5170e-03 ,2.5165e-03 ,2.5146e-03 ,2.5120e-03 ,2.5162e-03 /) - kbo(:,34, 5) = (/ & - &2.0509e-03 ,2.0525e-03 ,2.0528e-03 ,2.0549e-03 ,2.0638e-03 /) - kbo(:,35, 5) = (/ & - &1.6738e-03 ,1.6767e-03 ,1.6787e-03 ,1.6855e-03 ,1.6962e-03 /) - kbo(:,36, 5) = (/ & - &1.3688e-03 ,1.3726e-03 ,1.3769e-03 ,1.3854e-03 ,1.3974e-03 /) - kbo(:,37, 5) = (/ & - &1.1244e-03 ,1.1287e-03 ,1.1344e-03 ,1.1436e-03 ,1.1555e-03 /) - kbo(:,38, 5) = (/ & - &9.2354e-04 ,9.2789e-04 ,9.3393e-04 ,9.4440e-04 ,9.5553e-04 /) - kbo(:,39, 5) = (/ & - &7.5825e-04 ,7.6213e-04 ,7.6943e-04 ,7.7957e-04 ,7.9082e-04 /) - kbo(:,40, 5) = (/ & - &6.2483e-04 ,6.2933e-04 ,6.3674e-04 ,6.4631e-04 ,6.5698e-04 /) - kbo(:,41, 5) = (/ & - &5.1520e-04 ,5.2035e-04 ,5.2751e-04 ,5.3662e-04 ,5.4646e-04 /) - kbo(:,42, 5) = (/ & - &4.2480e-04 ,4.3031e-04 ,4.3691e-04 ,4.4575e-04 ,4.5526e-04 /) - kbo(:,43, 5) = (/ & - &3.5001e-04 ,3.5557e-04 ,3.6220e-04 ,3.7053e-04 ,3.7981e-04 /) - kbo(:,44, 5) = (/ & - &2.8750e-04 ,2.9363e-04 ,3.0042e-04 ,3.0784e-04 ,3.1671e-04 /) - kbo(:,45, 5) = (/ & - &2.3558e-04 ,2.4233e-04 ,2.4882e-04 ,2.5588e-04 ,2.6409e-04 /) - kbo(:,46, 5) = (/ & - &1.9252e-04 ,1.9920e-04 ,2.0547e-04 ,2.1209e-04 ,2.1984e-04 /) - kbo(:,47, 5) = (/ & - &1.5646e-04 ,1.6321e-04 ,1.6931e-04 ,1.7555e-04 ,1.8250e-04 /) - kbo(:,48, 5) = (/ & - &1.2570e-04 ,1.3295e-04 ,1.3900e-04 ,1.4479e-04 ,1.5118e-04 /) - kbo(:,49, 5) = (/ & - &1.0046e-04 ,1.0778e-04 ,1.1356e-04 ,1.1908e-04 ,1.2499e-04 /) - kbo(:,50, 5) = (/ & - &8.0435e-05 ,8.6489e-05 ,9.2769e-05 ,9.7911e-05 ,1.0325e-04 /) - kbo(:,51, 5) = (/ & - &6.3458e-05 ,6.9460e-05 ,7.5498e-05 ,8.0303e-05 ,8.5194e-05 /) - kbo(:,52, 5) = (/ & - &4.9865e-05 ,5.5730e-05 ,6.0501e-05 ,6.5586e-05 ,7.0113e-05 /) - kbo(:,53, 5) = (/ & - &3.9952e-05 ,4.3532e-05 ,4.8481e-05 ,5.3147e-05 ,5.7399e-05 /) - kbo(:,54, 5) = (/ & - &3.2880e-05 ,3.4587e-05 ,3.8794e-05 ,4.2722e-05 ,4.7074e-05 /) - kbo(:,55, 5) = (/ & - &2.7120e-05 ,2.7717e-05 ,3.0553e-05 ,3.4428e-05 ,3.8350e-05 /) - kbo(:,56, 5) = (/ & - &2.2127e-05 ,2.2850e-05 ,2.4431e-05 ,2.7545e-05 ,3.0669e-05 /) - kbo(:,57, 5) = (/ & - &1.8252e-05 ,1.8866e-05 ,1.9461e-05 ,2.1577e-05 ,2.4721e-05 /) - kbo(:,58, 5) = (/ & - &1.4337e-05 ,1.5384e-05 ,1.6084e-05 ,1.7424e-05 ,1.9750e-05 /) - kbo(:,59, 5) = (/ & - &1.1278e-05 ,1.2651e-05 ,1.3368e-05 ,1.4398e-05 ,1.6235e-05 /) - kbo(:,13, 6) = (/ & - &1.8817e-01 ,1.9206e-01 ,1.9341e-01 ,1.9316e-01 ,1.9216e-01 /) - kbo(:,14, 6) = (/ & - &1.5839e-01 ,1.6013e-01 ,1.6098e-01 ,1.6083e-01 ,1.6026e-01 /) - kbo(:,15, 6) = (/ & - &1.3908e-01 ,1.4022e-01 ,1.4029e-01 ,1.3949e-01 ,1.3862e-01 /) - kbo(:,16, 6) = (/ & - &1.2016e-01 ,1.2041e-01 ,1.1995e-01 ,1.1931e-01 ,1.1861e-01 /) - kbo(:,17, 6) = (/ & - &1.0302e-01 ,1.0297e-01 ,1.0263e-01 ,1.0230e-01 ,1.0181e-01 /) - kbo(:,18, 6) = (/ & - &8.8231e-02 ,8.8161e-02 ,8.7913e-02 ,8.7602e-02 ,8.7188e-02 /) - kbo(:,19, 6) = (/ & - &7.6358e-02 ,7.6259e-02 ,7.5975e-02 ,7.5746e-02 ,7.5236e-02 /) - kbo(:,20, 6) = (/ & - &6.5716e-02 ,6.5541e-02 ,6.5322e-02 ,6.5232e-02 ,6.4993e-02 /) - kbo(:,21, 6) = (/ & - &5.5986e-02 ,5.5897e-02 ,5.5927e-02 ,5.6065e-02 ,5.6062e-02 /) - kbo(:,22, 6) = (/ & - &4.7367e-02 ,4.7462e-02 ,4.7736e-02 ,4.7820e-02 ,4.7753e-02 /) - kbo(:,23, 6) = (/ & - &4.0099e-02 ,4.0361e-02 ,4.0481e-02 ,4.0442e-02 ,4.0254e-02 /) - kbo(:,24, 6) = (/ & - &3.3998e-02 ,3.4135e-02 ,3.4123e-02 ,3.4025e-02 ,3.3829e-02 /) - kbo(:,25, 6) = (/ & - &2.8658e-02 ,2.8658e-02 ,2.8582e-02 ,2.8475e-02 ,2.8305e-02 /) - kbo(:,26, 6) = (/ & - &2.3955e-02 ,2.3909e-02 ,2.3836e-02 ,2.3748e-02 ,2.3606e-02 /) - kbo(:,27, 6) = (/ & - &1.9889e-02 ,1.9852e-02 ,1.9780e-02 ,1.9709e-02 ,1.9615e-02 /) - kbo(:,28, 6) = (/ & - &1.6444e-02 ,1.6406e-02 ,1.6372e-02 ,1.6318e-02 ,1.6245e-02 /) - kbo(:,29, 6) = (/ & - &1.3491e-02 ,1.3473e-02 ,1.3456e-02 ,1.3404e-02 ,1.3356e-02 /) - kbo(:,30, 6) = (/ & - &1.1049e-02 ,1.1039e-02 ,1.1036e-02 ,1.1011e-02 ,1.0973e-02 /) - kbo(:,31, 6) = (/ & - &9.0143e-03 ,9.0192e-03 ,9.0194e-03 ,9.0134e-03 ,9.0031e-03 /) - kbo(:,32, 6) = (/ & - &7.3665e-03 ,7.3853e-03 ,7.3885e-03 ,7.3955e-03 ,7.4067e-03 /) - kbo(:,33, 6) = (/ & - &6.0271e-03 ,6.0462e-03 ,6.0622e-03 ,6.0836e-03 ,6.1045e-03 /) - kbo(:,34, 6) = (/ & - &4.9546e-03 ,4.9811e-03 ,5.0047e-03 ,5.0339e-03 ,5.0627e-03 /) - kbo(:,35, 6) = (/ & - &4.0822e-03 ,4.1121e-03 ,4.1424e-03 ,4.1730e-03 ,4.2061e-03 /) - kbo(:,36, 6) = (/ & - &3.3681e-03 ,3.3993e-03 ,3.4334e-03 ,3.4635e-03 ,3.4987e-03 /) - kbo(:,37, 6) = (/ & - &2.7875e-03 ,2.8195e-03 ,2.8505e-03 ,2.8836e-03 ,2.9180e-03 /) - kbo(:,38, 6) = (/ & - &2.3080e-03 ,2.3382e-03 ,2.3688e-03 ,2.3992e-03 ,2.4337e-03 /) - kbo(:,39, 6) = (/ & - &1.9086e-03 ,1.9391e-03 ,1.9678e-03 ,1.9967e-03 ,2.0294e-03 /) - kbo(:,40, 6) = (/ & - &1.5841e-03 ,1.6128e-03 ,1.6390e-03 ,1.6667e-03 ,1.6980e-03 /) - kbo(:,41, 6) = (/ & - &1.3139e-03 ,1.3408e-03 ,1.3651e-03 ,1.3913e-03 ,1.4213e-03 /) - kbo(:,42, 6) = (/ & - &1.0897e-03 ,1.1135e-03 ,1.1369e-03 ,1.1616e-03 ,1.1887e-03 /) - kbo(:,43, 6) = (/ & - &9.0311e-04 ,9.2481e-04 ,9.4572e-04 ,9.6914e-04 ,9.9399e-04 /) - kbo(:,44, 6) = (/ & - &7.4776e-04 ,7.6718e-04 ,7.8637e-04 ,8.0787e-04 ,8.3044e-04 /) - kbo(:,45, 6) = (/ & - &6.1863e-04 ,6.3626e-04 ,6.5392e-04 ,6.7285e-04 ,6.9425e-04 /) - kbo(:,46, 6) = (/ & - &5.1188e-04 ,5.2759e-04 ,5.4354e-04 ,5.6054e-04 ,5.8050e-04 /) - kbo(:,47, 6) = (/ & - &4.2255e-04 ,4.3715e-04 ,4.5173e-04 ,4.6695e-04 ,4.8462e-04 /) - kbo(:,48, 6) = (/ & - &3.4819e-04 ,3.6156e-04 ,3.7458e-04 ,3.8864e-04 ,4.0475e-04 /) - kbo(:,49, 6) = (/ & - &2.8602e-04 ,2.9814e-04 ,3.1015e-04 ,3.2283e-04 ,3.3769e-04 /) - kbo(:,50, 6) = (/ & - &2.3475e-04 ,2.4603e-04 ,2.5676e-04 ,2.6851e-04 ,2.8207e-04 /) - kbo(:,51, 6) = (/ & - &1.9267e-04 ,2.0293e-04 ,2.1257e-04 ,2.2327e-04 ,2.3584e-04 /) - kbo(:,52, 6) = (/ & - &1.5736e-04 ,1.6664e-04 ,1.7558e-04 ,1.8519e-04 ,1.9650e-04 /) - kbo(:,53, 6) = (/ & - &1.2741e-04 ,1.3627e-04 ,1.4450e-04 ,1.5309e-04 ,1.6331e-04 /) - kbo(:,54, 6) = (/ & - &1.0368e-04 ,1.1186e-04 ,1.1942e-04 ,1.2720e-04 ,1.3642e-04 /) - kbo(:,55, 6) = (/ & - &8.4018e-05 ,9.1900e-05 ,9.8814e-05 ,1.0595e-04 ,1.1419e-04 /) - kbo(:,56, 6) = (/ & - &6.7644e-05 ,7.5107e-05 ,8.1537e-05 ,8.8130e-05 ,9.5553e-05 /) - kbo(:,57, 6) = (/ & - &5.3052e-05 ,6.0800e-05 ,6.7049e-05 ,7.3153e-05 ,7.9865e-05 /) - kbo(:,58, 6) = (/ & - &4.1297e-05 ,4.9020e-05 ,5.4922e-05 ,6.0589e-05 ,6.6753e-05 /) - kbo(:,59, 6) = (/ & - &3.4006e-05 ,4.0647e-05 ,4.6127e-05 ,5.1418e-05 ,5.7293e-05 /) - kbo(:,13, 7) = (/ & - &5.2204e-01 ,5.1758e-01 ,5.1182e-01 ,5.0530e-01 ,4.9787e-01 /) - kbo(:,14, 7) = (/ & - &4.3225e-01 ,4.2797e-01 ,4.2283e-01 ,4.1695e-01 ,4.1054e-01 /) - kbo(:,15, 7) = (/ & - &3.5438e-01 ,3.5034e-01 ,3.4544e-01 ,3.4060e-01 ,3.3555e-01 /) - kbo(:,16, 7) = (/ & - &3.0255e-01 ,2.9825e-01 ,2.9421e-01 ,2.8975e-01 ,2.8561e-01 /) - kbo(:,17, 7) = (/ & - &2.5944e-01 ,2.5596e-01 ,2.5201e-01 ,2.4828e-01 ,2.4466e-01 /) - kbo(:,18, 7) = (/ & - &2.2110e-01 ,2.1760e-01 ,2.1435e-01 ,2.1143e-01 ,2.0904e-01 /) - kbo(:,19, 7) = (/ & - &1.8864e-01 ,1.8589e-01 ,1.8343e-01 ,1.8143e-01 ,1.7990e-01 /) - kbo(:,20, 7) = (/ & - &1.6121e-01 ,1.5932e-01 ,1.5784e-01 ,1.5634e-01 ,1.5506e-01 /) - kbo(:,21, 7) = (/ & - &1.3878e-01 ,1.3751e-01 ,1.3632e-01 ,1.3482e-01 ,1.3362e-01 /) - kbo(:,22, 7) = (/ & - &1.1962e-01 ,1.1845e-01 ,1.1744e-01 ,1.1632e-01 ,1.1539e-01 /) - kbo(:,23, 7) = (/ & - &1.0245e-01 ,1.0173e-01 ,1.0097e-01 ,1.0038e-01 ,9.9933e-02 /) - kbo(:,24, 7) = (/ & - &8.7666e-02 ,8.7158e-02 ,8.6968e-02 ,8.6971e-02 ,8.7255e-02 /) - kbo(:,25, 7) = (/ & - &7.4640e-02 ,7.4734e-02 ,7.5053e-02 ,7.5269e-02 ,7.5390e-02 /) - kbo(:,26, 7) = (/ & - &6.3735e-02 ,6.4061e-02 ,6.4333e-02 ,6.4421e-02 ,6.4368e-02 /) - kbo(:,27, 7) = (/ & - &5.4126e-02 ,5.4429e-02 ,5.4564e-02 ,5.4521e-02 ,5.4525e-02 /) - kbo(:,28, 7) = (/ & - &4.5724e-02 ,4.5897e-02 ,4.5948e-02 ,4.5981e-02 ,4.6016e-02 /) - kbo(:,29, 7) = (/ & - &3.8172e-02 ,3.8308e-02 ,3.8382e-02 ,3.8489e-02 ,3.8585e-02 /) - kbo(:,30, 7) = (/ & - &3.1718e-02 ,3.1883e-02 ,3.2020e-02 ,3.2173e-02 ,3.2316e-02 /) - kbo(:,31, 7) = (/ & - &2.6252e-02 ,2.6436e-02 ,2.6597e-02 ,2.6780e-02 ,2.6950e-02 /) - kbo(:,32, 7) = (/ & - &2.1754e-02 ,2.1941e-02 ,2.2153e-02 ,2.2326e-02 ,2.2517e-02 /) - kbo(:,33, 7) = (/ & - &1.8085e-02 ,1.8277e-02 ,1.8461e-02 ,1.8652e-02 ,1.8849e-02 /) - kbo(:,34, 7) = (/ & - &1.5122e-02 ,1.5298e-02 ,1.5478e-02 ,1.5652e-02 ,1.5844e-02 /) - kbo(:,35, 7) = (/ & - &1.2625e-02 ,1.2802e-02 ,1.2974e-02 ,1.3152e-02 ,1.3333e-02 /) - kbo(:,36, 7) = (/ & - &1.0557e-02 ,1.0724e-02 ,1.0878e-02 ,1.1051e-02 ,1.1225e-02 /) - kbo(:,37, 7) = (/ & - &8.8496e-03 ,9.0081e-03 ,9.1627e-03 ,9.3269e-03 ,9.4871e-03 /) - kbo(:,38, 7) = (/ & - &7.4071e-03 ,7.5543e-03 ,7.6993e-03 ,7.8541e-03 ,8.0170e-03 /) - kbo(:,39, 7) = (/ & - &6.1854e-03 ,6.3247e-03 ,6.4677e-03 ,6.6094e-03 ,6.7526e-03 /) - kbo(:,40, 7) = (/ & - &5.1922e-03 ,5.3234e-03 ,5.4554e-03 ,5.5916e-03 ,5.7266e-03 /) - kbo(:,41, 7) = (/ & - &4.3585e-03 ,4.4819e-03 ,4.6086e-03 ,4.7343e-03 ,4.8561e-03 /) - kbo(:,42, 7) = (/ & - &3.6533e-03 ,3.7711e-03 ,3.8861e-03 ,3.9990e-03 ,4.1168e-03 /) - kbo(:,43, 7) = (/ & - &3.0584e-03 ,3.1667e-03 ,3.2727e-03 ,3.3777e-03 ,3.4881e-03 /) - kbo(:,44, 7) = (/ & - &2.5534e-03 ,2.6526e-03 ,2.7492e-03 ,2.8491e-03 ,2.9548e-03 /) - kbo(:,45, 7) = (/ & - &2.1284e-03 ,2.2160e-03 ,2.3074e-03 ,2.3986e-03 ,2.4950e-03 /) - kbo(:,46, 7) = (/ & - &1.7695e-03 ,1.8482e-03 ,1.9316e-03 ,2.0146e-03 ,2.1010e-03 /) - kbo(:,47, 7) = (/ & - &1.4673e-03 ,1.5398e-03 ,1.6138e-03 ,1.6894e-03 ,1.7692e-03 /) - kbo(:,48, 7) = (/ & - &1.2142e-03 ,1.2798e-03 ,1.3450e-03 ,1.4129e-03 ,1.4833e-03 /) - kbo(:,49, 7) = (/ & - &1.0007e-03 ,1.0578e-03 ,1.1143e-03 ,1.1757e-03 ,1.2387e-03 /) - kbo(:,50, 7) = (/ & - &8.2795e-04 ,8.7794e-04 ,9.2798e-04 ,9.8346e-04 ,1.0399e-03 /) - kbo(:,51, 7) = (/ & - &6.8604e-04 ,7.3011e-04 ,7.7427e-04 ,8.2321e-04 ,8.7374e-04 /) - kbo(:,52, 7) = (/ & - &5.6660e-04 ,6.0603e-04 ,6.4555e-04 ,6.8763e-04 ,7.3282e-04 /) - kbo(:,53, 7) = (/ & - &4.6575e-04 ,5.0073e-04 ,5.3612e-04 ,5.7296e-04 ,6.1258e-04 /) - kbo(:,54, 7) = (/ & - &3.8679e-04 ,4.1843e-04 ,4.5022e-04 ,4.8415e-04 ,5.2013e-04 /) - kbo(:,55, 7) = (/ & - &3.2310e-04 ,3.5117e-04 ,3.8038e-04 ,4.1226e-04 ,4.4542e-04 /) - kbo(:,56, 7) = (/ & - &2.6895e-04 ,2.9441e-04 ,3.2135e-04 ,3.5045e-04 ,3.8084e-04 /) - kbo(:,57, 7) = (/ & - &2.2346e-04 ,2.4644e-04 ,2.7077e-04 ,2.9691e-04 ,3.2529e-04 /) - kbo(:,58, 7) = (/ & - &1.8566e-04 ,2.0641e-04 ,2.2834e-04 ,2.5256e-04 ,2.7894e-04 /) - kbo(:,59, 7) = (/ & - &1.5949e-04 ,1.7859e-04 ,1.9903e-04 ,2.2176e-04 ,2.4718e-04 /) - kbo(:,13, 8) = (/ & - &1.7932e+00 ,1.7598e+00 ,1.7272e+00 ,1.6957e+00 ,1.6643e+00 /) - kbo(:,14, 8) = (/ & - &1.5024e+00 ,1.4748e+00 ,1.4482e+00 ,1.4213e+00 ,1.3943e+00 /) - kbo(:,15, 8) = (/ & - &1.2493e+00 ,1.2269e+00 ,1.2042e+00 ,1.1821e+00 ,1.1593e+00 /) - kbo(:,16, 8) = (/ & - &1.0236e+00 ,1.0050e+00 ,9.8683e-01 ,9.6754e-01 ,9.4805e-01 /) - kbo(:,17, 8) = (/ & - &8.3764e-01 ,8.2167e-01 ,8.0558e-01 ,7.8848e-01 ,7.7231e-01 /) - kbo(:,18, 8) = (/ & - &7.0049e-01 ,6.8715e-01 ,6.7310e-01 ,6.5885e-01 ,6.4482e-01 /) - kbo(:,19, 8) = (/ & - &6.0067e-01 ,5.8909e-01 ,5.7714e-01 ,5.6481e-01 ,5.5329e-01 /) - kbo(:,20, 8) = (/ & - &5.1436e-01 ,5.0417e-01 ,4.9351e-01 ,4.8348e-01 ,4.7495e-01 /) - kbo(:,21, 8) = (/ & - &4.3696e-01 ,4.2847e-01 ,4.2014e-01 ,4.1292e-01 ,4.0709e-01 /) - kbo(:,22, 8) = (/ & - &3.7052e-01 ,3.6397e-01 ,3.5765e-01 ,3.5323e-01 ,3.4919e-01 /) - kbo(:,23, 8) = (/ & - &3.1534e-01 ,3.1049e-01 ,3.0630e-01 ,3.0316e-01 ,3.0035e-01 /) - kbo(:,24, 8) = (/ & - &2.7112e-01 ,2.6740e-01 ,2.6459e-01 ,2.6223e-01 ,2.5988e-01 /) - kbo(:,25, 8) = (/ & - &2.3380e-01 ,2.3133e-01 ,2.2943e-01 ,2.2772e-01 ,2.2653e-01 /) - kbo(:,26, 8) = (/ & - &2.0236e-01 ,2.0088e-01 ,1.9954e-01 ,1.9878e-01 ,1.9870e-01 /) - kbo(:,27, 8) = (/ & - &1.7470e-01 ,1.7394e-01 ,1.7356e-01 ,1.7393e-01 ,1.7411e-01 /) - kbo(:,28, 8) = (/ & - &1.5024e-01 ,1.5047e-01 ,1.5098e-01 ,1.5164e-01 ,1.5243e-01 /) - kbo(:,29, 8) = (/ & - &1.2816e-01 ,1.2887e-01 ,1.2996e-01 ,1.3066e-01 ,1.3197e-01 /) - kbo(:,30, 8) = (/ & - &1.0887e-01 ,1.0998e-01 ,1.1099e-01 ,1.1227e-01 ,1.1365e-01 /) - kbo(:,31, 8) = (/ & - &9.1656e-02 ,9.2754e-02 ,9.3840e-02 ,9.5163e-02 ,9.6499e-02 /) - kbo(:,32, 8) = (/ & - &7.7165e-02 ,7.8228e-02 ,7.9327e-02 ,8.0584e-02 ,8.1883e-02 /) - kbo(:,33, 8) = (/ & - &6.4796e-02 ,6.5863e-02 ,6.6915e-02 ,6.7986e-02 ,6.9105e-02 /) - kbo(:,34, 8) = (/ & - &5.4901e-02 ,5.5964e-02 ,5.6945e-02 ,5.8000e-02 ,5.9045e-02 /) - kbo(:,35, 8) = (/ & - &4.6607e-02 ,4.7594e-02 ,4.8499e-02 ,4.9452e-02 ,5.0386e-02 /) - kbo(:,36, 8) = (/ & - &3.9577e-02 ,4.0492e-02 ,4.1341e-02 ,4.2242e-02 ,4.3090e-02 /) - kbo(:,37, 8) = (/ & - &3.3790e-02 ,3.4662e-02 ,3.5486e-02 ,3.6314e-02 ,3.7168e-02 /) - kbo(:,38, 8) = (/ & - &2.8754e-02 ,2.9559e-02 ,3.0387e-02 ,3.1137e-02 ,3.1929e-02 /) - kbo(:,39, 8) = (/ & - &2.4394e-02 ,2.5115e-02 ,2.5838e-02 ,2.6544e-02 ,2.7274e-02 /) - kbo(:,40, 8) = (/ & - &2.0920e-02 ,2.1659e-02 ,2.2398e-02 ,2.3092e-02 ,2.3784e-02 /) - kbo(:,41, 8) = (/ & - &1.7960e-02 ,1.8686e-02 ,1.9408e-02 ,2.0118e-02 ,2.0798e-02 /) - kbo(:,42, 8) = (/ & - &1.5382e-02 ,1.6080e-02 ,1.6764e-02 ,1.7451e-02 ,1.8100e-02 /) - kbo(:,43, 8) = (/ & - &1.3156e-02 ,1.3822e-02 ,1.4465e-02 ,1.5132e-02 ,1.5767e-02 /) - kbo(:,44, 8) = (/ & - &1.1236e-02 ,1.1847e-02 ,1.2471e-02 ,1.3074e-02 ,1.3675e-02 /) - kbo(:,45, 8) = (/ & - &9.5475e-03 ,1.0122e-02 ,1.0686e-02 ,1.1243e-02 ,1.1794e-02 /) - kbo(:,46, 8) = (/ & - &8.0771e-03 ,8.6018e-03 ,9.1254e-03 ,9.6411e-03 ,1.0156e-02 /) - kbo(:,47, 8) = (/ & - &6.8185e-03 ,7.3016e-03 ,7.7913e-03 ,8.2730e-03 ,8.7590e-03 /) - kbo(:,48, 8) = (/ & - &5.7132e-03 ,6.1559e-03 ,6.5990e-03 ,7.0467e-03 ,7.5035e-03 /) - kbo(:,49, 8) = (/ & - &4.7309e-03 ,5.1282e-03 ,5.5334e-03 ,5.9379e-03 ,6.3413e-03 /) - kbo(:,50, 8) = (/ & - &3.9545e-03 ,4.3092e-03 ,4.6836e-03 ,5.0555e-03 ,5.4339e-03 /) - kbo(:,51, 8) = (/ & - &3.3094e-03 ,3.6354e-03 ,3.9810e-03 ,4.3245e-03 ,4.6768e-03 /) - kbo(:,52, 8) = (/ & - &2.7556e-03 ,3.0488e-03 ,3.3581e-03 ,3.6757e-03 ,3.9978e-03 /) - kbo(:,53, 8) = (/ & - &2.2741e-03 ,2.5328e-03 ,2.8070e-03 ,3.0901e-03 ,3.3837e-03 /) - kbo(:,54, 8) = (/ & - &1.9244e-03 ,2.1630e-03 ,2.4199e-03 ,2.6919e-03 ,2.9670e-03 /) - kbo(:,55, 8) = (/ & - &1.6527e-03 ,1.8750e-03 ,2.1244e-03 ,2.3895e-03 ,2.6621e-03 /) - kbo(:,56, 8) = (/ & - &1.4187e-03 ,1.6262e-03 ,1.8617e-03 ,2.1120e-03 ,2.3834e-03 /) - kbo(:,57, 8) = (/ & - &1.2123e-03 ,1.4102e-03 ,1.6308e-03 ,1.8701e-03 ,2.1361e-03 /) - kbo(:,58, 8) = (/ & - &1.0428e-03 ,1.2269e-03 ,1.4357e-03 ,1.6692e-03 ,1.9342e-03 /) - kbo(:,59, 8) = (/ & - &9.5774e-04 ,1.1485e-03 ,1.3717e-03 ,1.6313e-03 ,1.9270e-03 /) - kbo(:,13, 9) = (/ & - &1.0743e+01 ,1.0581e+01 ,1.0416e+01 ,1.0238e+01 ,1.0057e+01 /) - kbo(:,14, 9) = (/ & - &9.3266e+00 ,9.1890e+00 ,9.0401e+00 ,8.8785e+00 ,8.7093e+00 /) - kbo(:,15, 9) = (/ & - &8.0329e+00 ,7.9105e+00 ,7.7721e+00 ,7.6225e+00 ,7.4769e+00 /) - kbo(:,16, 9) = (/ & - &6.8686e+00 ,6.7530e+00 ,6.6275e+00 ,6.5036e+00 ,6.3858e+00 /) - kbo(:,17, 9) = (/ & - &5.8249e+00 ,5.7232e+00 ,5.6209e+00 ,5.5225e+00 ,5.4281e+00 /) - kbo(:,18, 9) = (/ & - &4.8929e+00 ,4.8094e+00 ,4.7279e+00 ,4.6483e+00 ,4.5724e+00 /) - kbo(:,19, 9) = (/ & - &4.0706e+00 ,4.0042e+00 ,3.9380e+00 ,3.8751e+00 ,3.8145e+00 /) - kbo(:,20, 9) = (/ & - &3.3806e+00 ,3.3267e+00 ,3.2749e+00 ,3.2247e+00 ,3.1746e+00 /) - kbo(:,21, 9) = (/ & - &2.8074e+00 ,2.7644e+00 ,2.7235e+00 ,2.6821e+00 ,2.6407e+00 /) - kbo(:,22, 9) = (/ & - &2.3283e+00 ,2.2955e+00 ,2.2616e+00 ,2.2266e+00 ,2.1957e+00 /) - kbo(:,23, 9) = (/ & - &1.9321e+00 ,1.9042e+00 ,1.8758e+00 ,1.8494e+00 ,1.8261e+00 /) - kbo(:,24, 9) = (/ & - &1.6234e+00 ,1.5933e+00 ,1.5660e+00 ,1.5420e+00 ,1.5232e+00 /) - kbo(:,25, 9) = (/ & - &1.3980e+00 ,1.3704e+00 ,1.3436e+00 ,1.3210e+00 ,1.3008e+00 /) - kbo(:,26, 9) = (/ & - &1.2106e+00 ,1.1883e+00 ,1.1672e+00 ,1.1488e+00 ,1.1330e+00 /) - kbo(:,27, 9) = (/ & - &1.0466e+00 ,1.0297e+00 ,1.0139e+00 ,1.0016e+00 ,9.9022e-01 /) - kbo(:,28, 9) = (/ & - &9.0567e-01 ,8.9244e-01 ,8.8275e-01 ,8.7361e-01 ,8.6722e-01 /) - kbo(:,29, 9) = (/ & - &7.7743e-01 ,7.6923e-01 ,7.6234e-01 ,7.5840e-01 ,7.5702e-01 /) - kbo(:,30, 9) = (/ & - &6.6693e-01 ,6.6196e-01 ,6.5810e-01 ,6.5663e-01 ,6.5785e-01 /) - kbo(:,31, 9) = (/ & - &5.6777e-01 ,5.6527e-01 ,5.6420e-01 ,5.6593e-01 ,5.6662e-01 /) - kbo(:,32, 9) = (/ & - &4.8384e-01 ,4.8324e-01 ,4.8562e-01 ,4.8803e-01 ,4.8996e-01 /) - kbo(:,33, 9) = (/ & - &4.1137e-01 ,4.1406e-01 ,4.1751e-01 ,4.2081e-01 ,4.2550e-01 /) - kbo(:,34, 9) = (/ & - &3.5416e-01 ,3.5806e-01 ,3.6166e-01 ,3.6664e-01 ,3.7277e-01 /) - kbo(:,35, 9) = (/ & - &3.0554e-01 ,3.0948e-01 ,3.1424e-01 ,3.1976e-01 ,3.2676e-01 /) - kbo(:,36, 9) = (/ & - &2.6418e-01 ,2.6871e-01 ,2.7383e-01 ,2.8027e-01 ,2.8707e-01 /) - kbo(:,37, 9) = (/ & - &2.2969e-01 ,2.3421e-01 ,2.3975e-01 ,2.4624e-01 ,2.5310e-01 /) - kbo(:,38, 9) = (/ & - &1.9950e-01 ,2.0421e-01 ,2.0978e-01 ,2.1651e-01 ,2.2302e-01 /) - kbo(:,39, 9) = (/ & - &1.7282e-01 ,1.7783e-01 ,1.8337e-01 ,1.9005e-01 ,1.9644e-01 /) - kbo(:,40, 9) = (/ & - &1.5139e-01 ,1.5623e-01 ,1.6190e-01 ,1.6820e-01 ,1.7447e-01 /) - kbo(:,41, 9) = (/ & - &1.3264e-01 ,1.3745e-01 ,1.4301e-01 ,1.4932e-01 ,1.5546e-01 /) - kbo(:,42, 9) = (/ & - &1.1607e-01 ,1.2085e-01 ,1.2625e-01 ,1.3247e-01 ,1.3847e-01 /) - kbo(:,43, 9) = (/ & - &1.0129e-01 ,1.0600e-01 ,1.1131e-01 ,1.1735e-01 ,1.2314e-01 /) - kbo(:,44, 9) = (/ & - &8.8076e-02 ,9.2672e-02 ,9.7764e-02 ,1.0358e-01 ,1.0942e-01 /) - kbo(:,45, 9) = (/ & - &7.6267e-02 ,8.0788e-02 ,8.5604e-02 ,9.1124e-02 ,9.6796e-02 /) - kbo(:,46, 9) = (/ & - &6.5896e-02 ,7.0073e-02 ,7.4628e-02 ,7.9860e-02 ,8.5349e-02 /) - kbo(:,47, 9) = (/ & - &5.6947e-02 ,6.0912e-02 ,6.5102e-02 ,6.9953e-02 ,7.5324e-02 /) - kbo(:,48, 9) = (/ & - &4.8993e-02 ,5.2552e-02 ,5.6622e-02 ,6.1050e-02 ,6.6050e-02 /) - kbo(:,49, 9) = (/ & - &4.1828e-02 ,4.5103e-02 ,4.8726e-02 ,5.2827e-02 ,5.7536e-02 /) - kbo(:,50, 9) = (/ & - &3.6237e-02 ,3.9173e-02 ,4.2523e-02 ,4.6248e-02 ,5.0679e-02 /) - kbo(:,51, 9) = (/ & - &3.1483e-02 ,3.4194e-02 ,3.7317e-02 ,4.0792e-02 ,4.4937e-02 /) - kbo(:,52, 9) = (/ & - &2.7288e-02 ,2.9720e-02 ,3.2635e-02 ,3.5833e-02 ,3.9605e-02 /) - kbo(:,53, 9) = (/ & - &2.3553e-02 ,2.5752e-02 ,2.8298e-02 ,3.1273e-02 ,3.4805e-02 /) - kbo(:,54, 9) = (/ & - &2.0927e-02 ,2.2955e-02 ,2.5436e-02 ,2.8294e-02 ,3.1547e-02 /) - kbo(:,55, 9) = (/ & - &1.8850e-02 ,2.0892e-02 ,2.3245e-02 ,2.6068e-02 ,2.9259e-02 /) - kbo(:,56, 9) = (/ & - &1.7133e-02 ,1.9134e-02 ,2.1378e-02 ,2.4152e-02 ,2.7278e-02 /) - kbo(:,57, 9) = (/ & - &1.5614e-02 ,1.7616e-02 ,1.9861e-02 ,2.2450e-02 ,2.5658e-02 /) - kbo(:,58, 9) = (/ & - &1.4386e-02 ,1.6367e-02 ,1.8612e-02 ,2.1235e-02 ,2.4366e-02 /) - kbo(:,59, 9) = (/ & - &1.4750e-02 ,1.6838e-02 ,1.9250e-02 ,2.2069e-02 ,2.5653e-02 /) - kbo(:,13,10) = (/ & - &4.1842e+01 ,4.1126e+01 ,4.0474e+01 ,3.9934e+01 ,3.9455e+01 /) - kbo(:,14,10) = (/ & - &3.7817e+01 ,3.7244e+01 ,3.6754e+01 ,3.6387e+01 ,3.5986e+01 /) - kbo(:,15,10) = (/ & - &3.3775e+01 ,3.3359e+01 ,3.3057e+01 ,3.2734e+01 ,3.2346e+01 /) - kbo(:,16,10) = (/ & - &2.9866e+01 ,2.9628e+01 ,2.9352e+01 ,2.8982e+01 ,2.8500e+01 /) - kbo(:,17,10) = (/ & - &2.6256e+01 ,2.6026e+01 ,2.5674e+01 ,2.5248e+01 ,2.4813e+01 /) - kbo(:,18,10) = (/ & - &2.2845e+01 ,2.2539e+01 ,2.2184e+01 ,2.1830e+01 ,2.1506e+01 /) - kbo(:,19,10) = (/ & - &1.9624e+01 ,1.9336e+01 ,1.9054e+01 ,1.8789e+01 ,1.8555e+01 /) - kbo(:,20,10) = (/ & - &1.6714e+01 ,1.6495e+01 ,1.6283e+01 ,1.6088e+01 ,1.5920e+01 /) - kbo(:,21,10) = (/ & - &1.4184e+01 ,1.4023e+01 ,1.3853e+01 ,1.3722e+01 ,1.3615e+01 /) - kbo(:,22,10) = (/ & - &1.2010e+01 ,1.1876e+01 ,1.1769e+01 ,1.1693e+01 ,1.1608e+01 /) - kbo(:,23,10) = (/ & - &1.0140e+01 ,1.0060e+01 ,1.0004e+01 ,9.9480e+00 ,9.8828e+00 /) - kbo(:,24,10) = (/ & - &8.3529e+00 ,8.3955e+00 ,8.4004e+00 ,8.3887e+00 ,8.3750e+00 /) - kbo(:,25,10) = (/ & - &6.5990e+00 ,6.6692e+00 ,6.7250e+00 ,6.7763e+00 ,6.8513e+00 /) - kbo(:,26,10) = (/ & - &5.2218e+00 ,5.2429e+00 ,5.2934e+00 ,5.3672e+00 ,5.4447e+00 /) - kbo(:,27,10) = (/ & - &4.4199e+00 ,4.3564e+00 ,4.3290e+00 ,4.3162e+00 ,4.3878e+00 /) - kbo(:,28,10) = (/ & - &3.8059e+00 ,3.7536e+00 ,3.6821e+00 ,3.6546e+00 ,3.6556e+00 /) - kbo(:,29,10) = (/ & - &3.2943e+00 ,3.2284e+00 ,3.1752e+00 ,3.1401e+00 ,3.1165e+00 /) - kbo(:,30,10) = (/ & - &2.8426e+00 ,2.7881e+00 ,2.7489e+00 ,2.7185e+00 ,2.7182e+00 /) - kbo(:,31,10) = (/ & - &2.4366e+00 ,2.4010e+00 ,2.3877e+00 ,2.3684e+00 ,2.4040e+00 /) - kbo(:,32,10) = (/ & - &2.1031e+00 ,2.0888e+00 ,2.0634e+00 ,2.0885e+00 ,2.1581e+00 /) - kbo(:,33,10) = (/ & - &1.8304e+00 ,1.8104e+00 ,1.8138e+00 ,1.8703e+00 ,1.9665e+00 /) - kbo(:,34,10) = (/ & - &1.5963e+00 ,1.5877e+00 ,1.6209e+00 ,1.6809e+00 ,1.8060e+00 /) - kbo(:,35,10) = (/ & - &1.3950e+00 ,1.4093e+00 ,1.4535e+00 ,1.5372e+00 ,1.6748e+00 /) - kbo(:,36,10) = (/ & - &1.2291e+00 ,1.2517e+00 ,1.3081e+00 ,1.4001e+00 ,1.5466e+00 /) - kbo(:,37,10) = (/ & - &1.0841e+00 ,1.1159e+00 ,1.1678e+00 ,1.2585e+00 ,1.4003e+00 /) - kbo(:,38,10) = (/ & - &9.5502e-01 ,9.9217e-01 ,1.0459e+00 ,1.1387e+00 ,1.2834e+00 /) - kbo(:,39,10) = (/ & - &8.4320e-01 ,8.8008e-01 ,9.3921e-01 ,1.0432e+00 ,1.1899e+00 /) - kbo(:,40,10) = (/ & - &7.4742e-01 ,7.8308e-01 ,8.3378e-01 ,9.2859e-01 ,1.0715e+00 /) - kbo(:,41,10) = (/ & - &6.6607e-01 ,6.9838e-01 ,7.4378e-01 ,8.2580e-01 ,9.6253e-01 /) - kbo(:,42,10) = (/ & - &5.9399e-01 ,6.2402e-01 ,6.6818e-01 ,7.3908e-01 ,8.7040e-01 /) - kbo(:,43,10) = (/ & - &5.3134e-01 ,5.5822e-01 ,5.9679e-01 ,6.5834e-01 ,7.8163e-01 /) - kbo(:,44,10) = (/ & - &4.7483e-01 ,4.9813e-01 ,5.3656e-01 ,5.8775e-01 ,7.0057e-01 /) - kbo(:,45,10) = (/ & - &4.2242e-01 ,4.4383e-01 ,4.8053e-01 ,5.2923e-01 ,6.3377e-01 /) - kbo(:,46,10) = (/ & - &3.7426e-01 ,3.9626e-01 ,4.2998e-01 ,4.7693e-01 ,5.7307e-01 /) - kbo(:,47,10) = (/ & - &3.3305e-01 ,3.5232e-01 ,3.8380e-01 ,4.2680e-01 ,5.1056e-01 /) - kbo(:,48,10) = (/ & - &2.9118e-01 ,3.1195e-01 ,3.3996e-01 ,3.8124e-01 ,4.5847e-01 /) - kbo(:,49,10) = (/ & - &2.5186e-01 ,2.7185e-01 ,2.9957e-01 ,3.4007e-01 ,4.1454e-01 /) - kbo(:,50,10) = (/ & - &2.1978e-01 ,2.4030e-01 ,2.6478e-01 ,3.0486e-01 ,3.7227e-01 /) - kbo(:,51,10) = (/ & - &1.9384e-01 ,2.1260e-01 ,2.3536e-01 ,2.7096e-01 ,3.3311e-01 /) - kbo(:,52,10) = (/ & - &1.6918e-01 ,1.8784e-01 ,2.0901e-01 ,2.4060e-01 ,2.9976e-01 /) - kbo(:,53,10) = (/ & - &1.4644e-01 ,1.6376e-01 ,1.8425e-01 ,2.1431e-01 ,2.7054e-01 /) - kbo(:,54,10) = (/ & - &1.3139e-01 ,1.4808e-01 ,1.6611e-01 ,1.9208e-01 ,2.4005e-01 /) - kbo(:,55,10) = (/ & - &1.2172e-01 ,1.3644e-01 ,1.5558e-01 ,1.7831e-01 ,2.1286e-01 /) - kbo(:,56,10) = (/ & - &1.1074e-01 ,1.2717e-01 ,1.4642e-01 ,1.6603e-01 ,1.9730e-01 /) - kbo(:,57,10) = (/ & - &1.0195e-01 ,1.1787e-01 ,1.3707e-01 ,1.5838e-01 ,1.8439e-01 /) - kbo(:,58,10) = (/ & - &9.6243e-02 ,1.1076e-01 ,1.2956e-01 ,1.5169e-01 ,1.7652e-01 /) - kbo(:,59,10) = (/ & - &9.7302e-02 ,1.1627e-01 ,1.3740e-01 ,1.6328e-01 ,1.9053e-01 /) - kbo(:,13,11) = (/ & - &7.0360e+01 ,6.9342e+01 ,6.8249e+01 ,6.7098e+01 ,6.5980e+01 /) - kbo(:,14,11) = (/ & - &6.5791e+01 ,6.4723e+01 ,6.3625e+01 ,6.2598e+01 ,6.1783e+01 /) - kbo(:,15,11) = (/ & - &6.0426e+01 ,5.9395e+01 ,5.8516e+01 ,5.7828e+01 ,5.7219e+01 /) - kbo(:,16,11) = (/ & - &5.4683e+01 ,5.3915e+01 ,5.3328e+01 ,5.2878e+01 ,5.2385e+01 /) - kbo(:,17,11) = (/ & - &4.8953e+01 ,4.8487e+01 ,4.8177e+01 ,4.7782e+01 ,4.7308e+01 /) - kbo(:,18,11) = (/ & - &4.3480e+01 ,4.3274e+01 ,4.2982e+01 ,4.2563e+01 ,4.2021e+01 /) - kbo(:,19,11) = (/ & - &3.8401e+01 ,3.8213e+01 ,3.7862e+01 ,3.7391e+01 ,3.6879e+01 /) - kbo(:,20,11) = (/ & - &3.3602e+01 ,3.3341e+01 ,3.2960e+01 ,3.2565e+01 ,3.2185e+01 /) - kbo(:,21,11) = (/ & - &2.9094e+01 ,2.8806e+01 ,2.8524e+01 ,2.8243e+01 ,2.8023e+01 /) - kbo(:,22,11) = (/ & - &2.4954e+01 ,2.4758e+01 ,2.4575e+01 ,2.4433e+01 ,2.4352e+01 /) - kbo(:,23,11) = (/ & - &2.1326e+01 ,2.1219e+01 ,2.1148e+01 ,2.1108e+01 ,2.1117e+01 /) - kbo(:,24,11) = (/ & - &1.8212e+01 ,1.8167e+01 ,1.8172e+01 ,1.8221e+01 ,1.8288e+01 /) - kbo(:,25,11) = (/ & - &1.5541e+01 ,1.5569e+01 ,1.5649e+01 ,1.5756e+01 ,1.5867e+01 /) - kbo(:,26,11) = (/ & - &1.3185e+01 ,1.3326e+01 ,1.3479e+01 ,1.3624e+01 ,1.3786e+01 /) - kbo(:,27,11) = (/ & - &1.0920e+01 ,1.1211e+01 ,1.1487e+01 ,1.1743e+01 ,1.1957e+01 /) - kbo(:,28,11) = (/ & - &9.0678e+00 ,9.3710e+00 ,9.6834e+00 ,9.9920e+00 ,1.0324e+01 /) - kbo(:,29,11) = (/ & - &7.6881e+00 ,7.9879e+00 ,8.2968e+00 ,8.6379e+00 ,9.0061e+00 /) - kbo(:,30,11) = (/ & - &6.6033e+00 ,6.8954e+00 ,7.2204e+00 ,7.5787e+00 ,7.9480e+00 /) - kbo(:,31,11) = (/ & - &5.8224e+00 ,6.1213e+00 ,6.4394e+00 ,6.7947e+00 ,7.1839e+00 /) - kbo(:,32,11) = (/ & - &5.1825e+00 ,5.4854e+00 ,5.8203e+00 ,6.1672e+00 ,6.5644e+00 /) - kbo(:,33,11) = (/ & - &4.6793e+00 ,4.9853e+00 ,5.3218e+00 ,5.6796e+00 ,6.0723e+00 /) - kbo(:,34,11) = (/ & - &4.2112e+00 ,4.5240e+00 ,4.8672e+00 ,5.2510e+00 ,5.6439e+00 /) - kbo(:,35,11) = (/ & - &3.8061e+00 ,4.1193e+00 ,4.4694e+00 ,4.8571e+00 ,5.2645e+00 /) - kbo(:,36,11) = (/ & - &3.4331e+00 ,3.7452e+00 ,4.0978e+00 ,4.4887e+00 ,4.9173e+00 /) - kbo(:,37,11) = (/ & - &3.0586e+00 ,3.3607e+00 ,3.7172e+00 ,4.1153e+00 ,4.5572e+00 /) - kbo(:,38,11) = (/ & - &2.7517e+00 ,3.0453e+00 ,3.3976e+00 ,3.7947e+00 ,4.2441e+00 /) - kbo(:,39,11) = (/ & - &2.5013e+00 ,2.7908e+00 ,3.1383e+00 ,3.5236e+00 ,3.9765e+00 /) - kbo(:,40,11) = (/ & - &2.2268e+00 ,2.5094e+00 ,2.8534e+00 ,3.2426e+00 ,3.6921e+00 /) - kbo(:,41,11) = (/ & - &1.9832e+00 ,2.2609e+00 ,2.6000e+00 ,2.9899e+00 ,3.4337e+00 /) - kbo(:,42,11) = (/ & - &1.7785e+00 ,2.0479e+00 ,2.3793e+00 ,2.7692e+00 ,3.2048e+00 /) - kbo(:,43,11) = (/ & - &1.5856e+00 ,1.8448e+00 ,2.1667e+00 ,2.5496e+00 ,2.9735e+00 /) - kbo(:,44,11) = (/ & - &1.4123e+00 ,1.6629e+00 ,1.9679e+00 ,2.3444e+00 ,2.7547e+00 /) - kbo(:,45,11) = (/ & - &1.2640e+00 ,1.5067e+00 ,1.7987e+00 ,2.1603e+00 ,2.5558e+00 /) - kbo(:,46,11) = (/ & - &1.1290e+00 ,1.3620e+00 ,1.6422e+00 ,1.9855e+00 ,2.3652e+00 /) - kbo(:,47,11) = (/ & - &9.9161e-01 ,1.2154e+00 ,1.4836e+00 ,1.8087e+00 ,2.1736e+00 /) - kbo(:,48,11) = (/ & - &8.7615e-01 ,1.0875e+00 ,1.3440e+00 ,1.6515e+00 ,1.9976e+00 /) - kbo(:,49,11) = (/ & - &7.7782e-01 ,9.7773e-01 ,1.2220e+00 ,1.5130e+00 ,1.8356e+00 /) - kbo(:,50,11) = (/ & - &6.8345e-01 ,8.7089e-01 ,1.1065e+00 ,1.3830e+00 ,1.6924e+00 /) - kbo(:,51,11) = (/ & - &5.9562e-01 ,7.7251e-01 ,9.9776e-01 ,1.2648e+00 ,1.5621e+00 /) - kbo(:,52,11) = (/ & - &5.1948e-01 ,6.8509e-01 ,8.9806e-01 ,1.1564e+00 ,1.4407e+00 /) - kbo(:,53,11) = (/ & - &4.5430e-01 ,6.0810e-01 ,8.0999e-01 ,1.0551e+00 ,1.3256e+00 /) - kbo(:,54,11) = (/ & - &3.8584e-01 ,5.2960e-01 ,7.1926e-01 ,9.5469e-01 ,1.2208e+00 /) - kbo(:,55,11) = (/ & - &3.2585e-01 ,4.5415e-01 ,6.2813e-01 ,8.5255e-01 ,1.1189e+00 /) - kbo(:,56,11) = (/ & - &2.9347e-01 ,3.8309e-01 ,5.4571e-01 ,7.5695e-01 ,1.0111e+00 /) - kbo(:,57,11) = (/ & - &2.6872e-01 ,3.3263e-01 ,4.6996e-01 ,6.6376e-01 ,9.0688e-01 /) - kbo(:,58,11) = (/ & - &2.4960e-01 ,3.0758e-01 ,4.0207e-01 ,5.8213e-01 ,8.0803e-01 /) - kbo(:,59,11) = (/ & - &2.6183e-01 ,3.2106e-01 ,3.9760e-01 ,5.1091e-01 ,7.1717e-01 /) - kbo(:,13,12) = (/ & - &1.1832e+02 ,1.1787e+02 ,1.1696e+02 ,1.1585e+02 ,1.1448e+02 /) - kbo(:,14,12) = (/ & - &1.1787e+02 ,1.1706e+02 ,1.1585e+02 ,1.1435e+02 ,1.1282e+02 /) - kbo(:,15,12) = (/ & - &1.1482e+02 ,1.1352e+02 ,1.1198e+02 ,1.1040e+02 ,1.0880e+02 /) - kbo(:,16,12) = (/ & - &1.0896e+02 ,1.0749e+02 ,1.0590e+02 ,1.0433e+02 ,1.0304e+02 /) - kbo(:,17,12) = (/ & - &1.0128e+02 ,9.9814e+01 ,9.8422e+01 ,9.7349e+01 ,9.6504e+01 /) - kbo(:,18,12) = (/ & - &9.2677e+01 ,9.1506e+01 ,9.0639e+01 ,9.0100e+01 ,8.9682e+01 /) - kbo(:,19,12) = (/ & - &8.3897e+01 ,8.3222e+01 ,8.2911e+01 ,8.2751e+01 ,8.2502e+01 /) - kbo(:,20,12) = (/ & - &7.5342e+01 ,7.5217e+01 ,7.5315e+01 ,7.5254e+01 ,7.5130e+01 /) - kbo(:,21,12) = (/ & - &6.7351e+01 ,6.7622e+01 ,6.7745e+01 ,6.7796e+01 ,6.7734e+01 /) - kbo(:,22,12) = (/ & - &5.9964e+01 ,6.0293e+01 ,6.0504e+01 ,6.0565e+01 ,6.0581e+01 /) - kbo(:,23,12) = (/ & - &5.3111e+01 ,5.3464e+01 ,5.3681e+01 ,5.3837e+01 ,5.4061e+01 /) - kbo(:,24,12) = (/ & - &4.6795e+01 ,4.7144e+01 ,4.7460e+01 ,4.7828e+01 ,4.8279e+01 /) - kbo(:,25,12) = (/ & - &4.1060e+01 ,4.1497e+01 ,4.1989e+01 ,4.2550e+01 ,4.3265e+01 /) - kbo(:,26,12) = (/ & - &3.6007e+01 ,3.6594e+01 ,3.7261e+01 ,3.8060e+01 ,3.9005e+01 /) - kbo(:,27,12) = (/ & - &3.1657e+01 ,3.2380e+01 ,3.3234e+01 ,3.4259e+01 ,3.5455e+01 /) - kbo(:,28,12) = (/ & - &2.7936e+01 ,2.8816e+01 ,2.9878e+01 ,3.1120e+01 ,3.2499e+01 /) - kbo(:,29,12) = (/ & - &2.4811e+01 ,2.5887e+01 ,2.7138e+01 ,2.8541e+01 ,3.0069e+01 /) - kbo(:,30,12) = (/ & - &2.2271e+01 ,2.3484e+01 ,2.4883e+01 ,2.6431e+01 ,2.8119e+01 /) - kbo(:,31,12) = (/ & - &2.0203e+01 ,2.1534e+01 ,2.3058e+01 ,2.4751e+01 ,2.6602e+01 /) - kbo(:,32,12) = (/ & - &1.8534e+01 ,1.9980e+01 ,2.1635e+01 ,2.3479e+01 ,2.5477e+01 /) - kbo(:,33,12) = (/ & - &1.7225e+01 ,1.8794e+01 ,2.0572e+01 ,2.2559e+01 ,2.4699e+01 /) - kbo(:,34,12) = (/ & - &1.6174e+01 ,1.7857e+01 ,1.9770e+01 ,2.1880e+01 ,2.4147e+01 /) - kbo(:,35,12) = (/ & - &1.5236e+01 ,1.7017e+01 ,1.9034e+01 ,2.1242e+01 ,2.3610e+01 /) - kbo(:,36,12) = (/ & - &1.4322e+01 ,1.6183e+01 ,1.8272e+01 ,2.0552e+01 ,2.2984e+01 /) - kbo(:,37,12) = (/ & - &1.3315e+01 ,1.5210e+01 ,1.7331e+01 ,1.9645e+01 ,2.2115e+01 /) - kbo(:,38,12) = (/ & - &1.2427e+01 ,1.4349e+01 ,1.6493e+01 ,1.8831e+01 ,2.1326e+01 /) - kbo(:,39,12) = (/ & - &1.1655e+01 ,1.3594e+01 ,1.5756e+01 ,1.8111e+01 ,2.0619e+01 /) - kbo(:,40,12) = (/ & - &1.0800e+01 ,1.2718e+01 ,1.4870e+01 ,1.7214e+01 ,1.9711e+01 /) - kbo(:,41,12) = (/ & - &1.0009e+01 ,1.1890e+01 ,1.4023e+01 ,1.6343e+01 ,1.8829e+01 /) - kbo(:,42,12) = (/ & - &9.2911e+00 ,1.1131e+01 ,1.3230e+01 ,1.5526e+01 ,1.7990e+01 /) - kbo(:,43,12) = (/ & - &8.5453e+00 ,1.0322e+01 ,1.2366e+01 ,1.4622e+01 ,1.7049e+01 /) - kbo(:,44,12) = (/ & - &7.8249e+00 ,9.5233e+00 ,1.1499e+01 ,1.3704e+01 ,1.6085e+01 /) - kbo(:,45,12) = (/ & - &7.1656e+00 ,8.7847e+00 ,1.0682e+01 ,1.2826e+01 ,1.5159e+01 /) - kbo(:,46,12) = (/ & - &6.5222e+00 ,8.0621e+00 ,9.8691e+00 ,1.1939e+01 ,1.4215e+01 /) - kbo(:,47,12) = (/ & - &5.8688e+00 ,7.3253e+00 ,9.0292e+00 ,1.1003e+01 ,1.3207e+01 /) - kbo(:,48,12) = (/ & - &5.2686e+00 ,6.6401e+00 ,8.2460e+00 ,1.0116e+01 ,1.2240e+01 /) - kbo(:,49,12) = (/ & - &4.7119e+00 ,6.0011e+00 ,7.5181e+00 ,9.2810e+00 ,1.1309e+01 /) - kbo(:,50,12) = (/ & - &4.2243e+00 ,5.4409e+00 ,6.8771e+00 ,8.5451e+00 ,1.0476e+01 /) - kbo(:,51,12) = (/ & - &3.7894e+00 ,4.9333e+00 ,6.2908e+00 ,7.8717e+00 ,9.7058e+00 /) - kbo(:,52,12) = (/ & - &3.3915e+00 ,4.4569e+00 ,5.7416e+00 ,7.2423e+00 ,8.9799e+00 /) - kbo(:,53,12) = (/ & - &3.0222e+00 ,4.0130e+00 ,5.2245e+00 ,6.6473e+00 ,8.2931e+00 /) - kbo(:,54,12) = (/ & - &2.7077e+00 ,3.6347e+00 ,4.7766e+00 ,6.1280e+00 ,7.6968e+00 /) - kbo(:,55,12) = (/ & - &2.4210e+00 ,3.2970e+00 ,4.3697e+00 ,5.6562e+00 ,7.1563e+00 /) - kbo(:,56,12) = (/ & - &2.1307e+00 ,2.9831e+00 ,3.9864e+00 ,5.2103e+00 ,6.6404e+00 /) - kbo(:,57,12) = (/ & - &1.8552e+00 ,2.6736e+00 ,3.6295e+00 ,4.7868e+00 ,6.1491e+00 /) - kbo(:,58,12) = (/ & - &1.6050e+00 ,2.3734e+00 ,3.3136e+00 ,4.4004e+00 ,5.7055e+00 /) - kbo(:,59,12) = (/ & - &1.4434e+00 ,2.1814e+00 ,3.1118e+00 ,4.2418e+00 ,5.5300e+00 /) - kbo(:,13,13) = (/ & - &2.0665e+02 ,2.0326e+02 ,2.0074e+02 ,1.9867e+02 ,1.9680e+02 /) - kbo(:,14,13) = (/ & - &2.1250e+02 ,2.0998e+02 ,2.0827e+02 ,2.0659e+02 ,2.0468e+02 /) - kbo(:,15,13) = (/ & - &2.1695e+02 ,2.1587e+02 ,2.1446e+02 ,2.1260e+02 ,2.1056e+02 /) - kbo(:,16,13) = (/ & - &2.2062e+02 ,2.1972e+02 ,2.1811e+02 ,2.1619e+02 ,2.1401e+02 /) - kbo(:,17,13) = (/ & - &2.2121e+02 ,2.1996e+02 ,2.1823e+02 ,2.1618e+02 ,2.1385e+02 /) - kbo(:,18,13) = (/ & - &2.1775e+02 ,2.1636e+02 ,2.1445e+02 ,2.1229e+02 ,2.1021e+02 /) - kbo(:,19,13) = (/ & - &2.1064e+02 ,2.0900e+02 ,2.0712e+02 ,2.0551e+02 ,2.0407e+02 /) - kbo(:,20,13) = (/ & - &2.0008e+02 ,1.9874e+02 ,1.9769e+02 ,1.9686e+02 ,1.9621e+02 /) - kbo(:,21,13) = (/ & - &1.8747e+02 ,1.8700e+02 ,1.8691e+02 ,1.8703e+02 ,1.8742e+02 /) - kbo(:,22,13) = (/ & - &1.7415e+02 ,1.7476e+02 ,1.7572e+02 ,1.7701e+02 ,1.7852e+02 /) - kbo(:,23,13) = (/ & - &1.6113e+02 ,1.6295e+02 ,1.6510e+02 ,1.6752e+02 ,1.7009e+02 /) - kbo(:,24,13) = (/ & - &1.4912e+02 ,1.5211e+02 ,1.5536e+02 ,1.5887e+02 ,1.6232e+02 /) - kbo(:,25,13) = (/ & - &1.3846e+02 ,1.4246e+02 ,1.4677e+02 ,1.5111e+02 ,1.5523e+02 /) - kbo(:,26,13) = (/ & - &1.2926e+02 ,1.3422e+02 ,1.3933e+02 ,1.4432e+02 ,1.4910e+02 /) - kbo(:,27,13) = (/ & - &1.2138e+02 ,1.2724e+02 ,1.3302e+02 ,1.3864e+02 ,1.4402e+02 /) - kbo(:,28,13) = (/ & - &1.1492e+02 ,1.2144e+02 ,1.2785e+02 ,1.3411e+02 ,1.4008e+02 /) - kbo(:,29,13) = (/ & - &1.0978e+02 ,1.1690e+02 ,1.2395e+02 ,1.3076e+02 ,1.3730e+02 /) - kbo(:,30,13) = (/ & - &1.0580e+02 ,1.1355e+02 ,1.2118e+02 ,1.2849e+02 ,1.3548e+02 /) - kbo(:,31,13) = (/ & - &1.0304e+02 ,1.1137e+02 ,1.1944e+02 ,1.2716e+02 ,1.3451e+02 /) - kbo(:,32,13) = (/ & - &1.0136e+02 ,1.1014e+02 ,1.1859e+02 ,1.2663e+02 ,1.3416e+02 /) - kbo(:,33,13) = (/ & - &1.0056e+02 ,1.0971e+02 ,1.1845e+02 ,1.2667e+02 ,1.3431e+02 /) - kbo(:,34,13) = (/ & - &1.0020e+02 ,1.0961e+02 ,1.1855e+02 ,1.2688e+02 ,1.3458e+02 /) - kbo(:,35,13) = (/ & - &9.9483e+01 ,1.0912e+02 ,1.1821e+02 ,1.2667e+02 ,1.3443e+02 /) - kbo(:,36,13) = (/ & - &9.8103e+01 ,1.0792e+02 ,1.1721e+02 ,1.2581e+02 ,1.3368e+02 /) - kbo(:,37,13) = (/ & - &9.5455e+01 ,1.0552e+02 ,1.1504e+02 ,1.2386e+02 ,1.3193e+02 /) - kbo(:,38,13) = (/ & - &9.2912e+01 ,1.0319e+02 ,1.1292e+02 ,1.2195e+02 ,1.3022e+02 /) - kbo(:,39,13) = (/ & - &9.0538e+01 ,1.0100e+02 ,1.1091e+02 ,1.2014e+02 ,1.2859e+02 /) - kbo(:,40,13) = (/ & - &8.7195e+01 ,9.7854e+01 ,1.0799e+02 ,1.1748e+02 ,1.2618e+02 /) - kbo(:,41,13) = (/ & - &8.3785e+01 ,9.4631e+01 ,1.0497e+02 ,1.1470e+02 ,1.2366e+02 /) - kbo(:,42,13) = (/ & - &8.0430e+01 ,9.1433e+01 ,1.0197e+02 ,1.1192e+02 ,1.2113e+02 /) - kbo(:,43,13) = (/ & - &7.6477e+01 ,8.7634e+01 ,9.8384e+01 ,1.0856e+02 ,1.1808e+02 /) - kbo(:,44,13) = (/ & - &7.2299e+01 ,8.3562e+01 ,9.4524e+01 ,1.0494e+02 ,1.1474e+02 /) - kbo(:,45,13) = (/ & - &6.8166e+01 ,7.9496e+01 ,9.0629e+01 ,1.0127e+02 ,1.1130e+02 /) - kbo(:,46,13) = (/ & - &6.3834e+01 ,7.5188e+01 ,8.6450e+01 ,9.7312e+01 ,1.0760e+02 /) - kbo(:,47,13) = (/ & - &5.9081e+01 ,7.0413e+01 ,8.1772e+01 ,9.2852e+01 ,1.0340e+02 /) - kbo(:,48,13) = (/ & - &5.4396e+01 ,6.5661e+01 ,7.7060e+01 ,8.8317e+01 ,9.9114e+01 /) - kbo(:,49,13) = (/ & - &4.9801e+01 ,6.0961e+01 ,7.2354e+01 ,8.3709e+01 ,9.4725e+01 /) - kbo(:,50,13) = (/ & - &4.5581e+01 ,5.6585e+01 ,6.7933e+01 ,7.9345e+01 ,9.0545e+01 /) - kbo(:,51,13) = (/ & - &4.1581e+01 ,5.2405e+01 ,6.3662e+01 ,7.5096e+01 ,8.6425e+01 /) - kbo(:,52,13) = (/ & - &3.7719e+01 ,4.8309e+01 ,5.9448e+01 ,7.0850e+01 ,8.2254e+01 /) - kbo(:,53,13) = (/ & - &3.4012e+01 ,4.4282e+01 ,5.5265e+01 ,6.6609e+01 ,7.8050e+01 /) - kbo(:,54,13) = (/ & - &3.0756e+01 ,4.0675e+01 ,5.1476e+01 ,6.2735e+01 ,7.4183e+01 /) - kbo(:,55,13) = (/ & - &2.7771e+01 ,3.7316e+01 ,4.7906e+01 ,5.9042e+01 ,7.0461e+01 /) - kbo(:,56,13) = (/ & - &2.4943e+01 ,3.4093e+01 ,4.4398e+01 ,5.5401e+01 ,6.6760e+01 /) - kbo(:,57,13) = (/ & - &2.2280e+01 ,3.0993e+01 ,4.0957e+01 ,5.1794e+01 ,6.3073e+01 /) - kbo(:,58,13) = (/ & - &1.9914e+01 ,2.8171e+01 ,3.7788e+01 ,4.8428e+01 ,5.9596e+01 /) - kbo(:,59,13) = (/ & - &1.9003e+01 ,2.7062e+01 ,3.6534e+01 ,4.7084e+01 ,5.8201e+01 /) - kbo(:,13,14) = (/ & - &3.9453e+02 ,3.9054e+02 ,3.8556e+02 ,3.8029e+02 ,3.7518e+02 /) - kbo(:,14,14) = (/ & - &4.2588e+02 ,4.2023e+02 ,4.1375e+02 ,4.0776e+02 ,4.0199e+02 /) - kbo(:,15,14) = (/ & - &4.5408e+02 ,4.4627e+02 ,4.3917e+02 ,4.3301e+02 ,4.2714e+02 /) - kbo(:,16,14) = (/ & - &4.7789e+02 ,4.6976e+02 ,4.6328e+02 ,4.5698e+02 ,4.5114e+02 /) - kbo(:,17,14) = (/ & - &5.0033e+02 ,4.9329e+02 ,4.8659e+02 ,4.8030e+02 ,4.7472e+02 /) - kbo(:,18,14) = (/ & - &5.2160e+02 ,5.1479e+02 ,5.0850e+02 ,5.0281e+02 ,4.9755e+02 /) - kbo(:,19,14) = (/ & - &5.3975e+02 ,5.3405e+02 ,5.2880e+02 ,5.2359e+02 ,5.1826e+02 /) - kbo(:,20,14) = (/ & - &5.5471e+02 ,5.5025e+02 ,5.4544e+02 ,5.4054e+02 ,5.3559e+02 /) - kbo(:,21,14) = (/ & - &5.6616e+02 ,5.6246e+02 ,5.5854e+02 ,5.5439e+02 ,5.5012e+02 /) - kbo(:,22,14) = (/ & - &5.7373e+02 ,5.7143e+02 ,5.6842e+02 ,5.6526e+02 ,5.6165e+02 /) - kbo(:,23,14) = (/ & - &5.7822e+02 ,5.7745e+02 ,5.7602e+02 ,5.7378e+02 ,5.7033e+02 /) - kbo(:,24,14) = (/ & - &5.8038e+02 ,5.8144e+02 ,5.8147e+02 ,5.7978e+02 ,5.7697e+02 /) - kbo(:,25,14) = (/ & - &5.8144e+02 ,5.8416e+02 ,5.8500e+02 ,5.8436e+02 ,5.8236e+02 /) - kbo(:,26,14) = (/ & - &5.8189e+02 ,5.8575e+02 ,5.8780e+02 ,5.8818e+02 ,5.8686e+02 /) - kbo(:,27,14) = (/ & - &5.8218e+02 ,5.8719e+02 ,5.9038e+02 ,5.9148e+02 ,5.9059e+02 /) - kbo(:,28,14) = (/ & - &5.8262e+02 ,5.8871e+02 ,5.9261e+02 ,5.9417e+02 ,5.9365e+02 /) - kbo(:,29,14) = (/ & - &5.8351e+02 ,5.9046e+02 ,5.9468e+02 ,5.9643e+02 ,5.9604e+02 /) - kbo(:,30,14) = (/ & - &5.8500e+02 ,5.9236e+02 ,5.9667e+02 ,5.9846e+02 ,5.9808e+02 /) - kbo(:,31,14) = (/ & - &5.8683e+02 ,5.9418e+02 ,5.9850e+02 ,6.0020e+02 ,5.9975e+02 /) - kbo(:,32,14) = (/ & - &5.8889e+02 ,5.9602e+02 ,6.0013e+02 ,6.0165e+02 ,6.0111e+02 /) - kbo(:,33,14) = (/ & - &5.9113e+02 ,5.9792e+02 ,6.0167e+02 ,6.0289e+02 ,6.0219e+02 /) - kbo(:,34,14) = (/ & - &5.9309e+02 ,5.9954e+02 ,6.0296e+02 ,6.0390e+02 ,6.0309e+02 /) - kbo(:,35,14) = (/ & - &5.9425e+02 ,6.0057e+02 ,6.0391e+02 ,6.0481e+02 ,6.0395e+02 /) - kbo(:,36,14) = (/ & - &5.9453e+02 ,6.0102e+02 ,6.0449e+02 ,6.0555e+02 ,6.0478e+02 /) - kbo(:,37,14) = (/ & - &5.9344e+02 ,6.0064e+02 ,6.0466e+02 ,6.0613e+02 ,6.0565e+02 /) - kbo(:,38,14) = (/ & - &5.9210e+02 ,6.0005e+02 ,6.0460e+02 ,6.0657e+02 ,6.0636e+02 /) - kbo(:,39,14) = (/ & - &5.9062e+02 ,5.9933e+02 ,6.0439e+02 ,6.0685e+02 ,6.0693e+02 /) - kbo(:,40,14) = (/ & - &5.8781e+02 ,5.9770e+02 ,6.0363e+02 ,6.0675e+02 ,6.0742e+02 /) - kbo(:,41,14) = (/ & - &5.8441e+02 ,5.9563e+02 ,6.0254e+02 ,6.0641e+02 ,6.0773e+02 /) - kbo(:,42,14) = (/ & - &5.8066e+02 ,5.9320e+02 ,6.0125e+02 ,6.0582e+02 ,6.0784e+02 /) - kbo(:,43,14) = (/ & - &5.7546e+02 ,5.8975e+02 ,5.9921e+02 ,6.0478e+02 ,6.0764e+02 /) - kbo(:,44,14) = (/ & - &5.6919e+02 ,5.8551e+02 ,5.9655e+02 ,6.0334e+02 ,6.0709e+02 /) - kbo(:,45,14) = (/ & - &5.6228e+02 ,5.8057e+02 ,5.9328e+02 ,6.0149e+02 ,6.0621e+02 /) - kbo(:,46,14) = (/ & - &5.5416e+02 ,5.7453e+02 ,5.8925e+02 ,5.9904e+02 ,6.0487e+02 /) - kbo(:,47,14) = (/ & - &5.4413e+02 ,5.6695e+02 ,5.8396e+02 ,5.9568e+02 ,6.0296e+02 /) - kbo(:,48,14) = (/ & - &5.3289e+02 ,5.5838e+02 ,5.7778e+02 ,5.9151e+02 ,6.0055e+02 /) - kbo(:,49,14) = (/ & - &5.2046e+02 ,5.4886e+02 ,5.7056e+02 ,5.8661e+02 ,5.9745e+02 /) - kbo(:,50,14) = (/ & - &5.0763e+02 ,5.3890e+02 ,5.6309e+02 ,5.8123e+02 ,5.9389e+02 /) - kbo(:,51,14) = (/ & - &4.9397e+02 ,5.2829e+02 ,5.5490e+02 ,5.7522e+02 ,5.8985e+02 /) - kbo(:,52,14) = (/ & - &4.7917e+02 ,5.1663e+02 ,5.4597e+02 ,5.6843e+02 ,5.8514e+02 /) - kbo(:,53,14) = (/ & - &4.6310e+02 ,5.0389e+02 ,5.3606e+02 ,5.6086e+02 ,5.7969e+02 /) - kbo(:,54,14) = (/ & - &4.4738e+02 ,4.9113e+02 ,5.2610e+02 ,5.5325e+02 ,5.7401e+02 /) - kbo(:,55,14) = (/ & - &4.3145e+02 ,4.7800e+02 ,5.1576e+02 ,5.4530e+02 ,5.6795e+02 /) - kbo(:,56,14) = (/ & - &4.1442e+02 ,4.6397e+02 ,5.0460e+02 ,5.3665e+02 ,5.6135e+02 /) - kbo(:,57,14) = (/ & - &3.9638e+02 ,4.4904e+02 ,4.9255e+02 ,5.2719e+02 ,5.5411e+02 /) - kbo(:,58,14) = (/ & - &3.7836e+02 ,4.3410e+02 ,4.8026e+02 ,5.1754e+02 ,5.4672e+02 /) - kbo(:,59,14) = (/ & - &3.7094e+02 ,4.2781e+02 ,4.7507e+02 ,5.1348e+02 ,5.4351e+02 /) - kbo(:,13,15) = (/ & - &7.2633e+02 ,7.1401e+02 ,7.0254e+02 ,6.9098e+02 ,6.8020e+02 /) - kbo(:,14,15) = (/ & - &8.3011e+02 ,8.1776e+02 ,8.0585e+02 ,7.9323e+02 ,7.8158e+02 /) - kbo(:,15,15) = (/ & - &9.4371e+02 ,9.3141e+02 ,9.1779e+02 ,9.0358e+02 ,8.9021e+02 /) - kbo(:,16,15) = (/ & - &1.0657e+03 ,1.0512e+03 ,1.0343e+03 ,1.0183e+03 ,1.0024e+03 /) - kbo(:,17,15) = (/ & - &1.1900e+03 ,1.1715e+03 ,1.1530e+03 ,1.1344e+03 ,1.1149e+03 /) - kbo(:,18,15) = (/ & - &1.3144e+03 ,1.2934e+03 ,1.2719e+03 ,1.2491e+03 ,1.2254e+03 /) - kbo(:,19,15) = (/ & - &1.4395e+03 ,1.4148e+03 ,1.3884e+03 ,1.3607e+03 ,1.3337e+03 /) - kbo(:,20,15) = (/ & - &1.5639e+03 ,1.5338e+03 ,1.5021e+03 ,1.4707e+03 ,1.4392e+03 /) - kbo(:,21,15) = (/ & - &1.6839e+03 ,1.6488e+03 ,1.6126e+03 ,1.5763e+03 ,1.5389e+03 /) - kbo(:,22,15) = (/ & - &1.7952e+03 ,1.7545e+03 ,1.7135e+03 ,1.6710e+03 ,1.6285e+03 /) - kbo(:,23,15) = (/ & - &1.8976e+03 ,1.8509e+03 ,1.8033e+03 ,1.7556e+03 ,1.7089e+03 /) - kbo(:,24,15) = (/ & - &1.9890e+03 ,1.9360e+03 ,1.8826e+03 ,1.8303e+03 ,1.7792e+03 /) - kbo(:,25,15) = (/ & - &2.0674e+03 ,2.0090e+03 ,1.9512e+03 ,1.8940e+03 ,1.8389e+03 /) - kbo(:,26,15) = (/ & - &2.1327e+03 ,2.0701e+03 ,2.0075e+03 ,1.9460e+03 ,1.8872e+03 /) - kbo(:,27,15) = (/ & - &2.1871e+03 ,2.1199e+03 ,2.0526e+03 ,1.9878e+03 ,1.9258e+03 /) - kbo(:,28,15) = (/ & - &2.2305e+03 ,2.1590e+03 ,2.0884e+03 ,2.0207e+03 ,1.9559e+03 /) - kbo(:,29,15) = (/ & - &2.2640e+03 ,2.1881e+03 ,2.1149e+03 ,2.0446e+03 ,1.9773e+03 /) - kbo(:,30,15) = (/ & - &2.2867e+03 ,2.2086e+03 ,2.1332e+03 ,2.0610e+03 ,1.9920e+03 /) - kbo(:,31,15) = (/ & - &2.3021e+03 ,2.2217e+03 ,2.1448e+03 ,2.0709e+03 ,2.0000e+03 /) - kbo(:,32,15) = (/ & - &2.3102e+03 ,2.2286e+03 ,2.1502e+03 ,2.0751e+03 ,2.0031e+03 /) - kbo(:,33,15) = (/ & - &2.3126e+03 ,2.2299e+03 ,2.1503e+03 ,2.0747e+03 ,2.0018e+03 /) - kbo(:,34,15) = (/ & - &2.3131e+03 ,2.2295e+03 ,2.1494e+03 ,2.0730e+03 ,1.9993e+03 /) - kbo(:,35,15) = (/ & - &2.3181e+03 ,2.2337e+03 ,2.1530e+03 ,2.0757e+03 ,2.0015e+03 /) - kbo(:,36,15) = (/ & - &2.3296e+03 ,2.2444e+03 ,2.1625e+03 ,2.0844e+03 ,2.0094e+03 /) - kbo(:,37,15) = (/ & - &2.3524e+03 ,2.2655e+03 ,2.1822e+03 ,2.1029e+03 ,2.0270e+03 /) - kbo(:,38,15) = (/ & - &2.3744e+03 ,2.2859e+03 ,2.2015e+03 ,2.1208e+03 ,2.0440e+03 /) - kbo(:,39,15) = (/ & - &2.3947e+03 ,2.3050e+03 ,2.2197e+03 ,2.1376e+03 ,2.0600e+03 /) - kbo(:,40,15) = (/ & - &2.4238e+03 ,2.3323e+03 ,2.2455e+03 ,2.1621e+03 ,2.0831e+03 /) - kbo(:,41,15) = (/ & - &2.4535e+03 ,2.3601e+03 ,2.2718e+03 ,2.1873e+03 ,2.1067e+03 /) - kbo(:,42,15) = (/ & - &2.4827e+03 ,2.3879e+03 ,2.2978e+03 ,2.2120e+03 ,2.1299e+03 /) - kbo(:,43,15) = (/ & - &2.5170e+03 ,2.4207e+03 ,2.3287e+03 ,2.2417e+03 ,2.1580e+03 /) - kbo(:,44,15) = (/ & - &2.5535e+03 ,2.4558e+03 ,2.3619e+03 ,2.2731e+03 ,2.1881e+03 /) - kbo(:,45,15) = (/ & - &2.5895e+03 ,2.4909e+03 ,2.3955e+03 ,2.3046e+03 ,2.2183e+03 /) - kbo(:,46,15) = (/ & - &2.6275e+03 ,2.5286e+03 ,2.4314e+03 ,2.3383e+03 ,2.2507e+03 /) - kbo(:,47,15) = (/ & - &2.6692e+03 ,2.5702e+03 ,2.4716e+03 ,2.3766e+03 ,2.2868e+03 /) - kbo(:,48,15) = (/ & - &2.7104e+03 ,2.6117e+03 ,2.5124e+03 ,2.4158e+03 ,2.3235e+03 /) - kbo(:,49,15) = (/ & - &2.7515e+03 ,2.6527e+03 ,2.5535e+03 ,2.4553e+03 ,2.3608e+03 /) - kbo(:,50,15) = (/ & - &2.7894e+03 ,2.6912e+03 ,2.5919e+03 ,2.4928e+03 ,2.3968e+03 /) - kbo(:,51,15) = (/ & - &2.8258e+03 ,2.7283e+03 ,2.6293e+03 ,2.5297e+03 ,2.4319e+03 /) - kbo(:,52,15) = (/ & - &2.8615e+03 ,2.7650e+03 ,2.6661e+03 ,2.5667e+03 ,2.4680e+03 /) - kbo(:,53,15) = (/ & - &2.8958e+03 ,2.8012e+03 ,2.7030e+03 ,2.6033e+03 ,2.5041e+03 /) - kbo(:,54,15) = (/ & - &2.9257e+03 ,2.8343e+03 ,2.7368e+03 ,2.6377e+03 ,2.5378e+03 /) - kbo(:,55,15) = (/ & - &2.9533e+03 ,2.8653e+03 ,2.7685e+03 ,2.6697e+03 ,2.5700e+03 /) - kbo(:,56,15) = (/ & - &2.9793e+03 ,2.8948e+03 ,2.8002e+03 ,2.7018e+03 ,2.6024e+03 /) - kbo(:,57,15) = (/ & - &3.0042e+03 ,2.9237e+03 ,2.8317e+03 ,2.7340e+03 ,2.6347e+03 /) - kbo(:,58,15) = (/ & - &3.0257e+03 ,2.9495e+03 ,2.8610e+03 ,2.7641e+03 ,2.6651e+03 /) - kbo(:,59,15) = (/ & - &3.0338e+03 ,2.9597e+03 ,2.8725e+03 ,2.7761e+03 ,2.6773e+03 /) - kbo(:,13,16) = (/ & - &1.0026e+03 ,9.7775e+02 ,9.6058e+02 ,9.5314e+02 ,9.4719e+02 /) - kbo(:,14,16) = (/ & - &1.2035e+03 ,1.1711e+03 ,1.1486e+03 ,1.1339e+03 ,1.1211e+03 /) - kbo(:,15,16) = (/ & - &1.4371e+03 ,1.3952e+03 ,1.3661e+03 ,1.3423e+03 ,1.3197e+03 /) - kbo(:,16,16) = (/ & - &1.7031e+03 ,1.6520e+03 ,1.6127e+03 ,1.5775e+03 ,1.5442e+03 /) - kbo(:,17,16) = (/ & - &2.0034e+03 ,1.9408e+03 ,1.8881e+03 ,1.8394e+03 ,1.7917e+03 /) - kbo(:,18,16) = (/ & - &2.3372e+03 ,2.2594e+03 ,2.1891e+03 ,2.1223e+03 ,2.0585e+03 /) - kbo(:,19,16) = (/ & - &2.7003e+03 ,2.6007e+03 ,2.5092e+03 ,2.4222e+03 ,2.3387e+03 /) - kbo(:,20,16) = (/ & - &3.0827e+03 ,2.9575e+03 ,2.8405e+03 ,2.7290e+03 ,2.6233e+03 /) - kbo(:,21,16) = (/ & - &3.4765e+03 ,3.3200e+03 ,3.1728e+03 ,3.0348e+03 ,2.9062e+03 /) - kbo(:,22,16) = (/ & - &3.8557e+03 ,3.6642e+03 ,3.4867e+03 ,3.3227e+03 ,3.1685e+03 /) - kbo(:,23,16) = (/ & - &4.2141e+03 ,3.9881e+03 ,3.7808e+03 ,3.5882e+03 ,3.4103e+03 /) - kbo(:,24,16) = (/ & - &4.5433e+03 ,4.2837e+03 ,4.0442e+03 ,3.8246e+03 ,3.6242e+03 /) - kbo(:,25,16) = (/ & - &4.8340e+03 ,4.5405e+03 ,4.2717e+03 ,4.0284e+03 ,3.8059e+03 /) - kbo(:,26,16) = (/ & - &5.0756e+03 ,4.7511e+03 ,4.4591e+03 ,4.1940e+03 ,3.9524e+03 /) - kbo(:,27,16) = (/ & - &5.2698e+03 ,4.9206e+03 ,4.6082e+03 ,4.3247e+03 ,4.0667e+03 /) - kbo(:,28,16) = (/ & - &5.4203e+03 ,5.0514e+03 ,4.7208e+03 ,4.4225e+03 ,4.1519e+03 /) - kbo(:,29,16) = (/ & - &5.5225e+03 ,5.1430e+03 ,4.7990e+03 ,4.4889e+03 ,4.2086e+03 /) - kbo(:,30,16) = (/ & - &5.5968e+03 ,5.2018e+03 ,4.8479e+03 ,4.5299e+03 ,4.2431e+03 /) - kbo(:,31,16) = (/ & - &5.6319e+03 ,5.2297e+03 ,4.8692e+03 ,4.5471e+03 ,4.2577e+03 /) - kbo(:,32,16) = (/ & - &5.6393e+03 ,5.2323e+03 ,4.8693e+03 ,4.5451e+03 ,4.2544e+03 /) - kbo(:,33,16) = (/ & - &5.6219e+03 ,5.2153e+03 ,4.8522e+03 ,4.5281e+03 ,4.2389e+03 /) - kbo(:,34,16) = (/ & - &5.6014e+03 ,5.1950e+03 ,4.8333e+03 ,4.5105e+03 ,4.2225e+03 /) - kbo(:,35,16) = (/ & - &5.6085e+03 ,5.1993e+03 ,4.8360e+03 ,4.5120e+03 ,4.2238e+03 /) - kbo(:,36,16) = (/ & - &5.6508e+03 ,5.2362e+03 ,4.8672e+03 ,4.5401e+03 ,4.2477e+03 /) - kbo(:,37,16) = (/ & - &5.7523e+03 ,5.3259e+03 ,4.9464e+03 ,4.6095e+03 ,4.3092e+03 /) - kbo(:,38,16) = (/ & - &5.8536e+03 ,5.4145e+03 ,5.0247e+03 ,4.6788e+03 ,4.3703e+03 /) - kbo(:,39,16) = (/ & - &5.9499e+03 ,5.4442e+03 ,5.0495e+03 ,4.7451e+03 ,4.4289e+03 /) - kbo(:,40,16) = (/ & - &6.0943e+03 ,5.6261e+03 ,5.2115e+03 ,4.8437e+03 ,4.5174e+03 /) - kbo(:,41,16) = (/ & - &6.2466e+03 ,5.7599e+03 ,5.3292e+03 ,4.9481e+03 ,4.6100e+03 /) - kbo(:,42,16) = (/ & - &6.4016e+03 ,5.8949e+03 ,5.4490e+03 ,5.0540e+03 ,4.7039e+03 /) - kbo(:,43,16) = (/ & - &6.5921e+03 ,6.0603e+03 ,5.5952e+03 ,5.1830e+03 ,4.8181e+03 /) - kbo(:,44,16) = (/ & - &6.8054e+03 ,6.2437e+03 ,5.7562e+03 ,5.3258e+03 ,4.9439e+03 /) - kbo(:,45,16) = (/ & - &7.0283e+03 ,6.4351e+03 ,5.9235e+03 ,5.4736e+03 ,5.0747e+03 /) - kbo(:,46,16) = (/ & - &7.2775e+03 ,6.6473e+03 ,6.1076e+03 ,5.6361e+03 ,5.2188e+03 /) - kbo(:,47,16) = (/ & - &7.5694e+03 ,6.8970e+03 ,6.3223e+03 ,5.8241e+03 ,5.3852e+03 /) - kbo(:,48,16) = (/ & - &7.8805e+03 ,7.1623e+03 ,6.5487e+03 ,6.0220e+03 ,5.5600e+03 /) - kbo(:,49,16) = (/ & - &8.2112e+03 ,7.4430e+03 ,6.7899e+03 ,6.2293e+03 ,5.7432e+03 /) - kbo(:,50,16) = (/ & - &8.5417e+03 ,7.7234e+03 ,7.0279e+03 ,6.4340e+03 ,5.9223e+03 /) - kbo(:,51,16) = (/ & - &8.8820e+03 ,8.0126e+03 ,7.2736e+03 ,6.6439e+03 ,6.1042e+03 /) - kbo(:,52,16) = (/ & - &9.2420e+03 ,8.3170e+03 ,7.5326e+03 ,6.8651e+03 ,6.2940e+03 /) - kbo(:,53,16) = (/ & - &9.6269e+03 ,8.6414e+03 ,7.8081e+03 ,7.0991e+03 ,6.4953e+03 /) - kbo(:,54,16) = (/ & - &1.0002e+04 ,8.9556e+03 ,8.0739e+03 ,7.3265e+03 ,6.6894e+03 /) - kbo(:,55,16) = (/ & - &1.0382e+04 ,9.2723e+03 ,8.3431e+03 ,7.5548e+03 ,6.8840e+03 /) - kbo(:,56,16) = (/ & - &1.0780e+04 ,9.6091e+03 ,8.6265e+03 ,7.7944e+03 ,7.0899e+03 /) - kbo(:,57,16) = (/ & - &1.1201e+04 ,9.9648e+03 ,8.9241e+03 ,8.0480e+03 ,7.3039e+03 /) - kbo(:,58,16) = (/ & - &1.1621e+04 ,1.0321e+04 ,9.2223e+03 ,8.3005e+03 ,7.5182e+03 /) - kbo(:,59,16) = (/ & - &1.1796e+04 ,1.0468e+04 ,9.3476e+03 ,8.4058e+03 ,7.6078e+03 /) - -! The array KAO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level below 100~ mb. The first index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The second index -! runs over the g-channel (1 to 16). - - kao_mo2(:, 1) = (/ & - & 2.31723e-06 , 2.28697e-06 , 2.25710e-06 , 2.22762e-06 , 2.19852e-06 , & - & 2.16981e-06 , 2.14147e-06 , 2.11350e-06 , 2.08590e-06 , 2.05865e-06 , & - & 2.03176e-06 , 2.00523e-06 , 1.97904e-06 , 1.95319e-06 , 1.92768e-06 , & - & 1.90250e-06 , 1.87765e-06 , 1.85313e-06 , 1.82893e-06 /) - kao_mo2(:, 2) = (/ & - & 1.81980e-06 , 1.81352e-06 , 1.80726e-06 , 1.80101e-06 , 1.79479e-06 , & - & 1.78860e-06 , 1.78242e-06 , 1.77626e-06 , 1.77013e-06 , 1.76402e-06 , & - & 1.75792e-06 , 1.75185e-06 , 1.74580e-06 , 1.73977e-06 , 1.73377e-06 , & - & 1.72778e-06 , 1.72181e-06 , 1.71587e-06 , 1.70994e-06 /) - kao_mo2(:, 3) = (/ & - & 2.26922e-06 , 2.25413e-06 , 2.23914e-06 , 2.22425e-06 , 2.20945e-06 , & - & 2.19476e-06 , 2.18016e-06 , 2.16566e-06 , 2.15126e-06 , 2.13695e-06 , & - & 2.12274e-06 , 2.10862e-06 , 2.09459e-06 , 2.08066e-06 , 2.06683e-06 , & - & 2.05308e-06 , 2.03942e-06 , 2.02586e-06 , 2.01239e-06 /) - kao_mo2(:, 4) = (/ & - & 2.15555e-06 , 2.14539e-06 , 2.13527e-06 , 2.12520e-06 , 2.11517e-06 , & - & 2.10520e-06 , 2.09527e-06 , 2.08538e-06 , 2.07555e-06 , 2.06576e-06 , & - & 2.05601e-06 , 2.04631e-06 , 2.03666e-06 , 2.02706e-06 , 2.01749e-06 , & - & 2.00798e-06 , 1.99851e-06 , 1.98908e-06 , 1.97970e-06 /) - kao_mo2(:, 5) = (/ & - & 2.05821e-06 , 2.04914e-06 , 2.04011e-06 , 2.03111e-06 , 2.02216e-06 , & - & 2.01324e-06 , 2.00437e-06 , 1.99553e-06 , 1.98673e-06 , 1.97798e-06 , & - & 1.96926e-06 , 1.96057e-06 , 1.95193e-06 , 1.94333e-06 , 1.93476e-06 , & - & 1.92623e-06 , 1.91774e-06 , 1.90928e-06 , 1.90087e-06 /) - kao_mo2(:, 6) = (/ & - & 2.20148e-06 , 2.18998e-06 , 2.17854e-06 , 2.16717e-06 , 2.15585e-06 , & - & 2.14459e-06 , 2.13339e-06 , 2.12225e-06 , 2.11117e-06 , 2.10014e-06 , & - & 2.08918e-06 , 2.07827e-06 , 2.06741e-06 , 2.05662e-06 , 2.04588e-06 , & - & 2.03519e-06 , 2.02457e-06 , 2.01399e-06 , 2.00348e-06 /) - kao_mo2(:, 7) = (/ & - & 2.28960e-06 , 2.27651e-06 , 2.26349e-06 , 2.25054e-06 , 2.23767e-06 , & - & 2.22487e-06 , 2.21215e-06 , 2.19950e-06 , 2.18692e-06 , 2.17441e-06 , & - & 2.16198e-06 , 2.14961e-06 , 2.13732e-06 , 2.12509e-06 , 2.11294e-06 , & - & 2.10085e-06 , 2.08884e-06 , 2.07689e-06 , 2.06501e-06 /) - kao_mo2(:, 8) = (/ & - & 2.28564e-06 , 2.27363e-06 , 2.26168e-06 , 2.24980e-06 , 2.23798e-06 , & - & 2.22622e-06 , 2.21452e-06 , 2.20288e-06 , 2.19131e-06 , 2.17980e-06 , & - & 2.16834e-06 , 2.15695e-06 , 2.14562e-06 , 2.13434e-06 , 2.12313e-06 , & - & 2.11197e-06 , 2.10087e-06 , 2.08984e-06 , 2.07886e-06 /) - kao_mo2(:, 9) = (/ & - & 2.28505e-06 , 2.27395e-06 , 2.26291e-06 , 2.25192e-06 , 2.24099e-06 , & - & 2.23011e-06 , 2.21928e-06 , 2.20850e-06 , 2.19778e-06 , 2.18711e-06 , & - & 2.17649e-06 , 2.16592e-06 , 2.15540e-06 , 2.14494e-06 , 2.13452e-06 , & - & 2.12416e-06 , 2.11385e-06 , 2.10358e-06 , 2.09337e-06 /) - kao_mo2(:,10) = (/ & - & 2.25915e-06 , 2.24938e-06 , 2.23965e-06 , 2.22997e-06 , 2.22032e-06 , & - & 2.21072e-06 , 2.20116e-06 , 2.19164e-06 , 2.18216e-06 , 2.17272e-06 , & - & 2.16333e-06 , 2.15397e-06 , 2.14465e-06 , 2.13538e-06 , 2.12614e-06 , & - & 2.11695e-06 , 2.10779e-06 , 2.09868e-06 , 2.08960e-06 /) - kao_mo2(:,11) = (/ & - & 2.52025e-06 , 2.50423e-06 , 2.48831e-06 , 2.47249e-06 , 2.45677e-06 , & - & 2.44115e-06 , 2.42563e-06 , 2.41021e-06 , 2.39489e-06 , 2.37967e-06 , & - & 2.36454e-06 , 2.34951e-06 , 2.33457e-06 , 2.31973e-06 , 2.30498e-06 , & - & 2.29033e-06 , 2.27577e-06 , 2.26130e-06 , 2.24692e-06 /) - kao_mo2(:,12) = (/ & - & 2.52634e-06 , 2.51180e-06 , 2.49735e-06 , 2.48299e-06 , 2.46871e-06 , & - & 2.45451e-06 , 2.44039e-06 , 2.42635e-06 , 2.41239e-06 , 2.39851e-06 , & - & 2.38472e-06 , 2.37100e-06 , 2.35736e-06 , 2.34380e-06 , 2.33032e-06 , & - & 2.31691e-06 , 2.30358e-06 , 2.29033e-06 , 2.27716e-06 /) - kao_mo2(:,13) = (/ & - & 2.66614e-06 , 2.64897e-06 , 2.63191e-06 , 2.61496e-06 , 2.59812e-06 , & - & 2.58138e-06 , 2.56476e-06 , 2.54824e-06 , 2.53183e-06 , 2.51552e-06 , & - & 2.49932e-06 , 2.48322e-06 , 2.46723e-06 , 2.45134e-06 , 2.43555e-06 , & - & 2.41987e-06 , 2.40428e-06 , 2.38880e-06 , 2.37341e-06 /) - kao_mo2(:,14) = (/ & - & 2.96755e-06 , 2.94803e-06 , 2.92864e-06 , 2.90937e-06 , 2.89023e-06 , & - & 2.87122e-06 , 2.85233e-06 , 2.83357e-06 , 2.81493e-06 , 2.79641e-06 , & - & 2.77802e-06 , 2.75974e-06 , 2.74159e-06 , 2.72355e-06 , 2.70563e-06 , & - & 2.68784e-06 , 2.67015e-06 , 2.65259e-06 , 2.63514e-06 /) - kao_mo2(:,15) = (/ & - & 1.30668e-06 , 1.31378e-06 , 1.32091e-06 , 1.32808e-06 , 1.33530e-06 , & - & 1.34255e-06 , 1.34984e-06 , 1.35717e-06 , 1.36454e-06 , 1.37195e-06 , & - & 1.37941e-06 , 1.38690e-06 , 1.39443e-06 , 1.40200e-06 , 1.40962e-06 , & - & 1.41727e-06 , 1.42497e-06 , 1.43271e-06 , 1.44049e-06 /) - kao_mo2(:,16) = (/ & - & 5.99001e-07 , 6.16844e-07 , 6.35219e-07 , 6.54141e-07 , 6.73626e-07 , & - & 6.93692e-07 , 7.14356e-07 , 7.35635e-07 , 7.57548e-07 , 7.80114e-07 , & - & 8.03352e-07 , 8.27282e-07 , 8.51925e-07 , 8.77302e-07 , 9.03435e-07 , & - & 9.30347e-07 , 9.58060e-07 , 9.86599e-07 , 1.01599e-06 /) - -! The array KBO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level above 100~ mb. The first index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The second index -! runs over the g-channel (1 to 16). - - kbo_mo2(:, 1) = (/ & - & 4.97626e-07 , 5.05955e-07 , 5.14424e-07 , 5.23034e-07 , 5.31789e-07 , & - & 5.40690e-07 , 5.49739e-07 , 5.58941e-07 , 5.68296e-07 , 5.77808e-07 , & - & 5.87479e-07 , 5.97312e-07 , 6.07310e-07 , 6.17475e-07 , 6.27810e-07 , & - & 6.38318e-07 , 6.49002e-07 , 6.59865e-07 , 6.70910e-07 /) - kbo_mo2(:, 2) = (/ & - & 3.10232e-06 , 3.06339e-06 , 3.02496e-06 , 2.98700e-06 , 2.94952e-06 , & - & 2.91252e-06 , 2.87597e-06 , 2.83989e-06 , 2.80426e-06 , 2.76907e-06 , & - & 2.73433e-06 , 2.70002e-06 , 2.66614e-06 , 2.63269e-06 , 2.59966e-06 , & - & 2.56704e-06 , 2.53483e-06 , 2.50303e-06 , 2.47162e-06 /) - kbo_mo2(:, 3) = (/ & - & 2.91635e-06 , 2.88637e-06 , 2.85669e-06 , 2.82733e-06 , 2.79826e-06 , & - & 2.76949e-06 , 2.74102e-06 , 2.71284e-06 , 2.68495e-06 , 2.65735e-06 , & - & 2.63003e-06 , 2.60299e-06 , 2.57623e-06 , 2.54975e-06 , 2.52353e-06 , & - & 2.49759e-06 , 2.47191e-06 , 2.44650e-06 , 2.42135e-06 /) - kbo_mo2(:, 4) = (/ & - & 3.15584e-06 , 3.11986e-06 , 3.08430e-06 , 3.04914e-06 , 3.01438e-06 , & - & 2.98002e-06 , 2.94605e-06 , 2.91247e-06 , 2.87927e-06 , 2.84645e-06 , & - & 2.81400e-06 , 2.78192e-06 , 2.75021e-06 , 2.71886e-06 , 2.68787e-06 , & - & 2.65723e-06 , 2.62694e-06 , 2.59699e-06 , 2.56739e-06 /) - kbo_mo2(:, 5) = (/ & - & 2.52067e-06 , 2.50127e-06 , 2.48202e-06 , 2.46291e-06 , 2.44396e-06 , & - & 2.42515e-06 , 2.40648e-06 , 2.38796e-06 , 2.36958e-06 , 2.35134e-06 , & - & 2.33324e-06 , 2.31529e-06 , 2.29747e-06 , 2.27978e-06 , 2.26224e-06 , & - & 2.24482e-06 , 2.22755e-06 , 2.21040e-06 , 2.19339e-06 /) - kbo_mo2(:, 6) = (/ & - & 2.37304e-06 , 2.36340e-06 , 2.35380e-06 , 2.34423e-06 , 2.33471e-06 , & - & 2.32522e-06 , 2.31578e-06 , 2.30637e-06 , 2.29700e-06 , 2.28766e-06 , & - & 2.27837e-06 , 2.26911e-06 , 2.25989e-06 , 2.25071e-06 , 2.24157e-06 , & - & 2.23246e-06 , 2.22339e-06 , 2.21436e-06 , 2.20536e-06 /) - kbo_mo2(:, 7) = (/ & - & 2.56366e-06 , 2.56395e-06 , 2.56424e-06 , 2.56453e-06 , 2.56482e-06 , & - & 2.56510e-06 , 2.56539e-06 , 2.56568e-06 , 2.56597e-06 , 2.56625e-06 , & - & 2.56654e-06 , 2.56683e-06 , 2.56712e-06 , 2.56741e-06 , 2.56769e-06 , & - & 2.56798e-06 , 2.56827e-06 , 2.56856e-06 , 2.56885e-06 /) - kbo_mo2(:, 8) = (/ & - & 2.54502e-06 , 2.55393e-06 , 2.56287e-06 , 2.57185e-06 , 2.58085e-06 , & - & 2.58989e-06 , 2.59896e-06 , 2.60806e-06 , 2.61719e-06 , 2.62636e-06 , & - & 2.63555e-06 , 2.64478e-06 , 2.65404e-06 , 2.66334e-06 , 2.67266e-06 , & - & 2.68202e-06 , 2.69141e-06 , 2.70084e-06 , 2.71030e-06 /) - kbo_mo2(:, 9) = (/ & - & 1.84106e-06 , 1.83922e-06 , 1.83737e-06 , 1.83553e-06 , 1.83369e-06 , & - & 1.83186e-06 , 1.83002e-06 , 1.82819e-06 , 1.82636e-06 , 1.82453e-06 , & - & 1.82270e-06 , 1.82087e-06 , 1.81905e-06 , 1.81723e-06 , 1.81541e-06 , & - & 1.81359e-06 , 1.81177e-06 , 1.80996e-06 , 1.80814e-06 /) - kbo_mo2(:,10) = (/ & - & 1.83886e-06 , 1.83632e-06 , 1.83379e-06 , 1.83126e-06 , 1.82874e-06 , & - & 1.82622e-06 , 1.82370e-06 , 1.82119e-06 , 1.81868e-06 , 1.81617e-06 , & - & 1.81367e-06 , 1.81117e-06 , 1.80867e-06 , 1.80618e-06 , 1.80369e-06 , & - & 1.80120e-06 , 1.79872e-06 , 1.79624e-06 , 1.79377e-06 /) - kbo_mo2(:,11) = (/ & - & 2.30390e-06 , 2.30269e-06 , 2.30148e-06 , 2.30028e-06 , 2.29907e-06 , & - & 2.29787e-06 , 2.29667e-06 , 2.29546e-06 , 2.29426e-06 , 2.29306e-06 , & - & 2.29186e-06 , 2.29066e-06 , 2.28946e-06 , 2.28826e-06 , 2.28706e-06 , & - & 2.28586e-06 , 2.28466e-06 , 2.28347e-06 , 2.28227e-06 /) - kbo_mo2(:,12) = (/ & - & 2.38201e-06 , 2.36536e-06 , 2.34882e-06 , 2.33240e-06 , 2.31609e-06 , & - & 2.29990e-06 , 2.28382e-06 , 2.26785e-06 , 2.25199e-06 , 2.23625e-06 , & - & 2.22061e-06 , 2.20508e-06 , 2.18967e-06 , 2.17436e-06 , 2.15915e-06 , & - & 2.14406e-06 , 2.12907e-06 , 2.11418e-06 , 2.09940e-06 /) - kbo_mo2(:,13) = (/ & - & 2.33326e-06 , 2.32549e-06 , 2.31775e-06 , 2.31003e-06 , 2.30234e-06 , & - & 2.29467e-06 , 2.28703e-06 , 2.27941e-06 , 2.27182e-06 , 2.26426e-06 , & - & 2.25672e-06 , 2.24920e-06 , 2.24171e-06 , 2.23424e-06 , 2.22680e-06 , & - & 2.21939e-06 , 2.21200e-06 , 2.20463e-06 , 2.19729e-06 /) - kbo_mo2(:,14) = (/ & - & 2.75292e-06 , 2.75210e-06 , 2.75129e-06 , 2.75047e-06 , 2.74965e-06 , & - & 2.74883e-06 , 2.74801e-06 , 2.74720e-06 , 2.74638e-06 , 2.74556e-06 , & - & 2.74475e-06 , 2.74393e-06 , 2.74311e-06 , 2.74230e-06 , 2.74148e-06 , & - & 2.74067e-06 , 2.73985e-06 , 2.73904e-06 , 2.73822e-06 /) - kbo_mo2(:,15) = (/ & - & 2.55262e-06 , 2.53364e-06 , 2.51480e-06 , 2.49611e-06 , 2.47755e-06 , & - & 2.45913e-06 , 2.44084e-06 , 2.42269e-06 , 2.40468e-06 , 2.38680e-06 , & - & 2.36906e-06 , 2.35144e-06 , 2.33396e-06 , 2.31660e-06 , 2.29938e-06 , & - & 2.28228e-06 , 2.26531e-06 , 2.24847e-06 , 2.23175e-06 /) - kbo_mo2(:,16) = (/ & - & 3.11382e-06 , 3.08751e-06 , 3.06141e-06 , 3.03554e-06 , 3.00989e-06 , & - & 2.98445e-06 , 2.95923e-06 , 2.93422e-06 , 2.90942e-06 , 2.88483e-06 , & - & 2.86045e-06 , 2.83628e-06 , 2.81231e-06 , 2.78854e-06 , 2.76498e-06 , & - & 2.74161e-06 , 2.71844e-06 , 2.69547e-06 , 2.67269e-06 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &2.8858e-02 ,3.6879e-02 ,4.0746e-02 ,4.2561e-02 ,4.2740e-02 ,4.2707e-02 , & - &4.4109e-02 ,4.4540e-02 ,4.5206e-02 ,4.4679e-02 ,4.5034e-02 ,4.5364e-02 , & - &4.6790e-02 ,4.7857e-02 ,4.8328e-02 ,4.8084e-02 /) - forrefo(2,:) = (/ & - &2.7887e-02 ,3.7376e-02 ,4.0980e-02 ,4.2986e-02 ,4.3054e-02 ,4.2975e-02 , & - &4.3754e-02 ,4.4352e-02 ,4.4723e-02 ,4.6236e-02 ,4.5273e-02 ,4.5360e-02 , & - &4.5332e-02 ,4.7587e-02 ,4.7035e-02 ,5.0267e-02 /) - forrefo(3,:) = (/ & - &2.5846e-02 ,3.6753e-02 ,4.2334e-02 ,4.3806e-02 ,4.3848e-02 ,4.3215e-02 , & - &4.3838e-02 ,4.4278e-02 ,4.4658e-02 ,4.5403e-02 ,4.5255e-02 ,4.6347e-02 , & - &4.4722e-02 ,4.6612e-02 ,4.6836e-02 ,4.8720e-02 /) - forrefo(4,:) = (/ & - &2.8955e-02 ,3.7608e-02 ,4.1989e-02 ,4.4919e-02 ,4.2803e-02 ,4.2842e-02 , & - &4.2632e-02 ,4.1056e-02 ,4.0086e-02 ,4.1401e-02 ,4.2746e-02 ,4.2142e-02 , & - &4.1871e-02 ,4.3917e-02 ,4.5462e-02 ,4.8359e-02 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 5.96496e-01 , 5.49171e-01 , 5.05600e-01 , 4.65486e-01 , 4.28555e-01 , & - & 3.94554e-01 , 3.63250e-01 , 3.34430e-01 , 3.07897e-01 , 2.83468e-01 /) - selfrefo(:, 2) = (/ & - & 7.46455e-01 , 6.82459e-01 , 6.23950e-01 , 5.70457e-01 , 5.21550e-01 , & - & 4.76836e-01 , 4.35956e-01 , 3.98580e-01 , 3.64409e-01 , 3.33167e-01 /) - selfrefo(:, 3) = (/ & - & 7.86805e-01 , 7.21186e-01 , 6.61040e-01 , 6.05910e-01 , 5.55378e-01 , & - & 5.09059e-01 , 4.66605e-01 , 4.27690e-01 , 3.92021e-01 , 3.59327e-01 /) - selfrefo(:, 4) = (/ & - & 8.11740e-01 , 7.44359e-01 , 6.82570e-01 , 6.25910e-01 , 5.73954e-01 , & - & 5.26311e-01 , 4.82622e-01 , 4.42560e-01 , 4.05823e-01 , 3.72136e-01 /) - selfrefo(:, 5) = (/ & - & 8.14870e-01 , 7.47200e-01 , 6.85150e-01 , 6.28253e-01 , 5.76081e-01 , & - & 5.28241e-01 , 4.84374e-01 , 4.44150e-01 , 4.07266e-01 , 3.73446e-01 /) - selfrefo(:, 6) = (/ & - & 8.10104e-01 , 7.43259e-01 , 6.81930e-01 , 6.25661e-01 , 5.74035e-01 , & - & 5.26669e-01 , 4.83212e-01 , 4.43340e-01 , 4.06758e-01 , 3.73195e-01 /) - selfrefo(:, 7) = (/ & - & 8.13119e-01 , 7.48127e-01 , 6.88330e-01 , 6.33312e-01 , 5.82692e-01 , & - & 5.36118e-01 , 4.93267e-01 , 4.53840e-01 , 4.17565e-01 , 3.84189e-01 /) - selfrefo(:, 8) = (/ & - & 8.26137e-01 , 7.58984e-01 , 6.97290e-01 , 6.40611e-01 , 5.88539e-01 , & - & 5.40699e-01 , 4.96748e-01 , 4.56370e-01 , 4.19274e-01 , 3.85193e-01 /) - selfrefo(:, 9) = (/ & - & 8.30566e-01 , 7.63984e-01 , 7.02740e-01 , 6.46405e-01 , 5.94587e-01 , & - & 5.46922e-01 , 5.03079e-01 , 4.62750e-01 , 4.25654e-01 , 3.91532e-01 /) - selfrefo(:,10) = (/ & - & 8.67471e-01 , 7.91575e-01 , 7.22320e-01 , 6.59124e-01 , 6.01457e-01 , & - & 5.48835e-01 , 5.00817e-01 , 4.57000e-01 , 4.17017e-01 , 3.80532e-01 /) - selfrefo(:,11) = (/ & - & 8.51029e-01 , 7.79373e-01 , 7.13750e-01 , 6.53652e-01 , 5.98615e-01 , & - & 5.48212e-01 , 5.02053e-01 , 4.59780e-01 , 4.21067e-01 , 3.85613e-01 /) - selfrefo(:,12) = (/ & - & 8.36772e-01 , 7.68751e-01 , 7.06260e-01 , 6.48848e-01 , 5.96104e-01 , & - & 5.47647e-01 , 5.03129e-01 , 4.62230e-01 , 4.24655e-01 , 3.90136e-01 /) - selfrefo(:,13) = (/ & - & 8.36551e-01 , 7.71089e-01 , 7.10750e-01 , 6.55133e-01 , 6.03867e-01 , & - & 5.56614e-01 , 5.13058e-01 , 4.72910e-01 , 4.35904e-01 , 4.01794e-01 /) - selfrefo(:,14) = (/ & - & 8.84307e-01 , 8.11175e-01 , 7.44090e-01 , 6.82553e-01 , 6.26106e-01 , & - & 5.74326e-01 , 5.26829e-01 , 4.83260e-01 , 4.43294e-01 , 4.06633e-01 /) - selfrefo(:,15) = (/ & - & 8.90356e-01 , 8.19830e-01 , 7.54890e-01 , 6.95094e-01 , 6.40035e-01 , & - & 5.89337e-01 , 5.42655e-01 , 4.99670e-01 , 4.60090e-01 , 4.23646e-01 /) - selfrefo(:,16) = (/ & - & 9.67549e-01 , 8.79393e-01 , 7.99270e-01 , 7.26447e-01 , 6.60259e-01 , & - & 6.00101e-01 , 5.45425e-01 , 4.95730e-01 , 4.50563e-01 , 4.09511e-01 /) - - end subroutine lw_kgb11 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_12.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_12.F90 deleted file mode 100644 index 44d71dca1..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_12.F90 +++ /dev/null @@ -1,3297 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb12 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg12, only : fracrefao, kao, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level : P = 174.1640 mbar, T= 215.78 K - fracrefao(:, 1) = (/ & - & 1.3984e-01 ,1.6809e-01 ,1.8072e-01 ,1.5400e-01 ,1.2613e-01 ,9.6959e-02 , & - & 5.9713e-02 ,3.8631e-02 ,2.6937e-02 ,3.1711e-03 ,2.3458e-03 ,1.4653e-03 , & - & 1.0567e-03 ,6.6504e-04 ,2.4957e-04 ,3.5172e-05 /) - fracrefao(:, 2) = (/ & - & 1.2745e-01 ,1.6107e-01 ,1.6568e-01 ,1.5436e-01 ,1.3183e-01 ,1.0166e-01 , & - & 6.4506e-02 ,4.7756e-02 ,3.4472e-02 ,3.7189e-03 ,2.9349e-03 ,2.1469e-03 , & - & 1.3746e-03 ,7.1691e-04 ,2.8057e-04 ,5.6242e-05 /) - fracrefao(:, 3) = (/ & - & 1.2181e-01 ,1.5404e-01 ,1.6540e-01 ,1.5255e-01 ,1.3736e-01 ,9.8856e-02 , & - & 6.8927e-02 ,5.1385e-02 ,3.7046e-02 ,4.0302e-03 ,3.0949e-03 ,2.3772e-03 , & - & 1.6538e-03 ,8.9641e-04 ,4.6991e-04 ,1.1251e-04 /) - fracrefao(:, 4) = (/ & - & 1.1794e-01 ,1.4864e-01 ,1.6316e-01 ,1.5341e-01 ,1.3986e-01 ,9.6656e-02 , & - & 7.2478e-02 ,5.5061e-02 ,3.8886e-02 ,4.3398e-03 ,3.3576e-03 ,2.4891e-03 , & - & 1.7674e-03 ,1.0764e-03 ,7.7689e-04 ,1.1251e-04 /) - fracrefao(:, 5) = (/ & - & 1.1635e-01 ,1.4342e-01 ,1.5924e-01 ,1.5670e-01 ,1.3740e-01 ,9.7087e-02 , & - & 7.6250e-02 ,5.7802e-02 ,4.0808e-02 ,4.4113e-03 ,3.6035e-03 ,2.6269e-03 , & - & 1.7586e-03 ,1.6498e-03 ,7.7689e-04 ,1.1251e-04 /) - fracrefao(:, 6) = (/ & - & 1.1497e-01 ,1.3751e-01 ,1.5587e-01 ,1.5904e-01 ,1.3140e-01 ,1.0159e-01 , & - & 7.9729e-02 ,6.1475e-02 ,4.2382e-02 ,4.5291e-03 ,3.8161e-03 ,2.7683e-03 , & - & 1.9899e-03 ,2.0395e-03 ,7.7720e-04 ,1.1251e-04 /) - fracrefao(:, 7) = (/ & - & 1.1331e-01 ,1.3015e-01 ,1.5574e-01 ,1.5489e-01 ,1.2697e-01 ,1.0746e-01 , & - & 8.4777e-02 ,6.5145e-02 ,4.4293e-02 ,4.7426e-03 ,3.8383e-03 ,2.9065e-03 , & - & 2.8430e-03 ,2.0401e-03 ,7.7689e-04 ,1.1251e-04 /) - fracrefao(:, 8) = (/ & - & 1.0993e-01 ,1.2320e-01 ,1.4893e-01 ,1.4573e-01 ,1.3174e-01 ,1.1149e-01 , & - & 9.3326e-02 ,6.9942e-02 ,4.6762e-02 ,4.9309e-03 ,3.8583e-03 ,4.1889e-03 , & - & 3.0415e-03 ,2.0406e-03 ,7.7720e-04 ,1.1251e-04 /) - fracrefao(:, 9) = (/ & - & 1.2028e-01 ,1.2091e-01 ,1.3098e-01 ,1.3442e-01 ,1.3574e-01 ,1.1739e-01 , & - & 9.5343e-02 ,7.0224e-02 ,5.3456e-02 ,6.0206e-03 ,5.0758e-03 ,4.1906e-03 , & - & 3.0431e-03 ,2.0400e-03 ,7.7689e-04 ,1.1251e-04 /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kao(:, 1, 1, 1) = (/ & - &1.7511e-07 ,6.8135e-05 ,1.1804e-04 ,1.6931e-04 ,2.2006e-04 ,2.8275e-04 , & - &3.5722e-04 ,4.9530e-04 ,3.5719e-04 /) - kao(:, 2, 1, 1) = (/ & - &1.9831e-07 ,7.7459e-05 ,1.3459e-04 ,1.9095e-04 ,2.5338e-04 ,3.1724e-04 , & - &4.1347e-04 ,5.5823e-04 ,4.1876e-04 /) - kao(:, 3, 1, 1) = (/ & - &2.2440e-07 ,8.7653e-05 ,1.5288e-04 ,2.1636e-04 ,2.8321e-04 ,3.6387e-04 , & - &4.5547e-04 ,6.4036e-04 ,4.9001e-04 /) - kao(:, 4, 1, 1) = (/ & - &2.4907e-07 ,9.8921e-05 ,1.7279e-04 ,2.4495e-04 ,3.1911e-04 ,4.0317e-04 , & - &5.1922e-04 ,7.1060e-04 ,5.5803e-04 /) - kao(:, 5, 1, 1) = (/ & - &2.7577e-07 ,1.1088e-04 ,1.9448e-04 ,2.7670e-04 ,3.6112e-04 ,4.5291e-04 , & - &5.7232e-04 ,7.9647e-04 ,6.3718e-04 /) - kao(:, 1, 2, 1) = (/ & - &2.1743e-07 ,5.9697e-05 ,1.0011e-04 ,1.3856e-04 ,1.7837e-04 ,2.1937e-04 , & - &2.7665e-04 ,3.5934e-04 ,2.6865e-04 /) - kao(:, 2, 2, 1) = (/ & - &2.4689e-07 ,6.8199e-05 ,1.1473e-04 ,1.5826e-04 ,2.0299e-04 ,2.5265e-04 , & - &3.0999e-04 ,4.0941e-04 ,3.2103e-04 /) - kao(:, 3, 2, 1) = (/ & - &2.7759e-07 ,7.7428e-05 ,1.3086e-04 ,1.8044e-04 ,2.2946e-04 ,2.8434e-04 , & - &3.5412e-04 ,4.7313e-04 ,3.7455e-04 /) - kao(:, 4, 2, 1) = (/ & - &3.1162e-07 ,8.7312e-05 ,1.4837e-04 ,2.0486e-04 ,2.6086e-04 ,3.2026e-04 , & - &3.9490e-04 ,5.1882e-04 ,4.3142e-04 /) - kao(:, 5, 2, 1) = (/ & - &3.4483e-07 ,9.7902e-05 ,1.6760e-04 ,2.3163e-04 ,2.9600e-04 ,3.6332e-04 , & - &4.4224e-04 ,5.8485e-04 ,4.9654e-04 /) - kao(:, 1, 3, 1) = (/ & - &3.5522e-07 ,5.4633e-05 ,8.9953e-05 ,1.1946e-04 ,1.4735e-04 ,1.7547e-04 , & - &2.0438e-04 ,2.5064e-04 ,1.9532e-04 /) - kao(:, 2, 3, 1) = (/ & - &4.0312e-07 ,6.2965e-05 ,1.0335e-04 ,1.3746e-04 ,1.6817e-04 ,1.9939e-04 , & - &2.3562e-04 ,2.9335e-04 ,2.3482e-04 /) - kao(:, 3, 3, 1) = (/ & - &4.5344e-07 ,7.1817e-05 ,1.1822e-04 ,1.5709e-04 ,1.9287e-04 ,2.2736e-04 , & - &2.6619e-04 ,3.2521e-04 ,2.7722e-04 /) - kao(:, 4, 3, 1) = (/ & - &5.1341e-07 ,8.1197e-05 ,1.3399e-04 ,1.7909e-04 ,2.2021e-04 ,2.5936e-04 , & - &3.0089e-04 ,3.7007e-04 ,3.2243e-04 /) - kao(:, 5, 3, 1) = (/ & - &5.7093e-07 ,9.0935e-05 ,1.5129e-04 ,2.0303e-04 ,2.4981e-04 ,2.9482e-04 , & - &3.4243e-04 ,4.0910e-04 ,3.7408e-04 /) - kao(:, 1, 4, 1) = (/ & - &5.9029e-07 ,4.8269e-05 ,8.1661e-05 ,1.0687e-04 ,1.2826e-04 ,1.4610e-04 , & - &1.6333e-04 ,1.8670e-04 ,1.4151e-04 /) - kao(:, 2, 4, 1) = (/ & - &6.7060e-07 ,5.6349e-05 ,9.4916e-05 ,1.2365e-04 ,1.4803e-04 ,1.6776e-04 , & - &1.8719e-04 ,2.1036e-04 ,1.7196e-04 /) - kao(:, 3, 4, 1) = (/ & - &7.5759e-07 ,6.4869e-05 ,1.0916e-04 ,1.4206e-04 ,1.6962e-04 ,1.9348e-04 , & - &2.1325e-04 ,2.4238e-04 ,2.0611e-04 /) - kao(:, 4, 4, 1) = (/ & - &8.5937e-07 ,7.4063e-05 ,1.2416e-04 ,1.6207e-04 ,1.9412e-04 ,2.2126e-04 , & - &2.4479e-04 ,2.7146e-04 ,2.4157e-04 /) - kao(:, 5, 4, 1) = (/ & - &9.5897e-07 ,8.3687e-05 ,1.3973e-04 ,1.8364e-04 ,2.2051e-04 ,2.5234e-04 , & - &2.7911e-04 ,3.0928e-04 ,2.8248e-04 /) - kao(:, 1, 5, 1) = (/ & - &9.1759e-07 ,4.1947e-05 ,7.0794e-05 ,9.4885e-05 ,1.1243e-04 ,1.2599e-04 , & - &1.3683e-04 ,1.4293e-04 ,1.0336e-04 /) - kao(:, 2, 5, 1) = (/ & - &1.0425e-06 ,4.9113e-05 ,8.3728e-05 ,1.1140e-04 ,1.3168e-04 ,1.4605e-04 , & - &1.5650e-04 ,1.6563e-04 ,1.2713e-04 /) - kao(:, 3, 5, 1) = (/ & - &1.1835e-06 ,5.7263e-05 ,9.7394e-05 ,1.2924e-04 ,1.5190e-04 ,1.6881e-04 , & - &1.8096e-04 ,1.8906e-04 ,1.5436e-04 /) - kao(:, 4, 5, 1) = (/ & - &1.3393e-06 ,6.6178e-05 ,1.1132e-04 ,1.4759e-04 ,1.7411e-04 ,1.9396e-04 , & - &2.0764e-04 ,2.1628e-04 ,1.8190e-04 /) - kao(:, 5, 5, 1) = (/ & - &1.4988e-06 ,7.5103e-05 ,1.2617e-04 ,1.6721e-04 ,1.9778e-04 ,2.2104e-04 , & - &2.3789e-04 ,2.4796e-04 ,2.1416e-04 /) - kao(:, 1, 6, 1) = (/ & - &1.3509e-06 ,3.6190e-05 ,6.0186e-05 ,8.0089e-05 ,9.7447e-05 ,1.0817e-04 , & - &1.1477e-04 ,1.1459e-04 ,7.5216e-05 /) - kao(:, 2, 6, 1) = (/ & - &1.5379e-06 ,4.3048e-05 ,7.1223e-05 ,9.5429e-05 ,1.1555e-04 ,1.2778e-04 , & - &1.3385e-04 ,1.3550e-04 ,9.3747e-05 /) - kao(:, 3, 6, 1) = (/ & - &1.7505e-06 ,5.0649e-05 ,8.3443e-05 ,1.1225e-04 ,1.3468e-04 ,1.4925e-04 , & - &1.5516e-04 ,1.5522e-04 ,1.1566e-04 /) - kao(:, 4, 6, 1) = (/ & - &1.9769e-06 ,5.8613e-05 ,9.7176e-05 ,1.2952e-04 ,1.5512e-04 ,1.7221e-04 , & - &1.7952e-04 ,1.7884e-04 ,1.3754e-04 /) - kao(:, 5, 6, 1) = (/ & - &2.2201e-06 ,6.7356e-05 ,1.1202e-04 ,1.4825e-04 ,1.7722e-04 ,1.9650e-04 , & - &2.0554e-04 ,2.0495e-04 ,1.6355e-04 /) - kao(:, 1, 7, 1) = (/ & - &2.1304e-06 ,3.3089e-05 ,5.1849e-05 ,6.8730e-05 ,8.2305e-05 ,9.3472e-05 , & - &9.9164e-05 ,9.8631e-05 ,5.9418e-05 /) - kao(:, 2, 7, 1) = (/ & - &2.4308e-06 ,3.9636e-05 ,6.2051e-05 ,8.1968e-05 ,9.8909e-05 ,1.1256e-04 , & - &1.1810e-04 ,1.1396e-04 ,7.5269e-05 /) - kao(:, 3, 7, 1) = (/ & - &2.7537e-06 ,4.6821e-05 ,7.3795e-05 ,9.6812e-05 ,1.1738e-04 ,1.3274e-04 , & - &1.3903e-04 ,1.3282e-04 ,9.2641e-05 /) - kao(:, 4, 7, 1) = (/ & - &3.1212e-06 ,5.4439e-05 ,8.6765e-05 ,1.1374e-04 ,1.3694e-04 ,1.5474e-04 , & - &1.6192e-04 ,1.5375e-04 ,1.1184e-04 /) - kao(:, 5, 7, 1) = (/ & - &3.5210e-06 ,6.2611e-05 ,9.9782e-05 ,1.3214e-04 ,1.5850e-04 ,1.7752e-04 , & - &1.8622e-04 ,1.7734e-04 ,1.3357e-04 /) - kao(:, 1, 8, 1) = (/ & - &4.1180e-06 ,3.5356e-05 ,4.9875e-05 ,6.2112e-05 ,7.3272e-05 ,8.1665e-05 , & - &8.7559e-05 ,8.6370e-05 ,4.9881e-05 /) - kao(:, 2, 8, 1) = (/ & - &4.6880e-06 ,4.2308e-05 ,6.0139e-05 ,7.5108e-05 ,8.8001e-05 ,9.9269e-05 , & - &1.0597e-04 ,1.0409e-04 ,6.3232e-05 /) - kao(:, 3, 8, 1) = (/ & - &5.2893e-06 ,4.9705e-05 ,7.1733e-05 ,8.9997e-05 ,1.0540e-04 ,1.1807e-04 , & - &1.2729e-04 ,1.2367e-04 ,7.9488e-05 /) - kao(:, 4, 8, 1) = (/ & - &5.9934e-06 ,5.7629e-05 ,8.3852e-05 ,1.0617e-04 ,1.2505e-04 ,1.3960e-04 , & - &1.5001e-04 ,1.4519e-04 ,9.7332e-05 /) - kao(:, 5, 8, 1) = (/ & - &6.8016e-06 ,6.6193e-05 ,9.7237e-05 ,1.2349e-04 ,1.4561e-04 ,1.6359e-04 , & - &1.7405e-04 ,1.6782e-04 ,1.1691e-04 /) - kao(:, 1, 9, 1) = (/ & - &1.5173e-05 ,6.0073e-05 ,7.5522e-05 ,8.4608e-05 ,8.9391e-05 ,9.1045e-05 , & - &9.0015e-05 ,8.5089e-05 ,6.2916e-05 /) - kao(:, 2, 9, 1) = (/ & - &1.7118e-05 ,7.2165e-05 ,9.0975e-05 ,1.0209e-04 ,1.0823e-04 ,1.1031e-04 , & - &1.0910e-04 ,1.0450e-04 ,8.0378e-05 /) - kao(:, 3, 9, 1) = (/ & - &1.9333e-05 ,8.4779e-05 ,1.0715e-04 ,1.2042e-04 ,1.2865e-04 ,1.3251e-04 , & - &1.3198e-04 ,1.2575e-04 ,1.0185e-04 /) - kao(:, 4, 9, 1) = (/ & - &2.2020e-05 ,9.7885e-05 ,1.2402e-04 ,1.4031e-04 ,1.5091e-04 ,1.5615e-04 , & - &1.5775e-04 ,1.5010e-04 ,1.2495e-04 /) - kao(:, 5, 9, 1) = (/ & - &2.4990e-05 ,1.1102e-04 ,1.4167e-04 ,1.6181e-04 ,1.7511e-04 ,1.8231e-04 , & - &1.8406e-04 ,1.7738e-04 ,1.4891e-04 /) - kao(:, 1,10, 1) = (/ & - &6.3843e-05 ,1.3785e-04 ,1.5635e-04 ,1.6287e-04 ,1.6037e-04 ,1.5248e-04 , & - &1.3606e-04 ,1.0761e-04 ,1.0144e-04 /) - kao(:, 2,10, 1) = (/ & - &7.2156e-05 ,1.6111e-04 ,1.8530e-04 ,1.9419e-04 ,1.9482e-04 ,1.8548e-04 , & - &1.6571e-04 ,1.3139e-04 ,1.2609e-04 /) - kao(:, 3,10, 1) = (/ & - &8.1633e-05 ,1.8623e-04 ,2.1467e-04 ,2.2993e-04 ,2.3146e-04 ,2.2096e-04 , & - &1.9656e-04 ,1.5757e-04 ,1.5350e-04 /) - kao(:, 4,10, 1) = (/ & - &9.2413e-05 ,2.1393e-04 ,2.4898e-04 ,2.6688e-04 ,2.6838e-04 ,2.5715e-04 , & - &2.2901e-04 ,1.8640e-04 ,1.8257e-04 /) - kao(:, 5,10, 1) = (/ & - &1.0426e-04 ,2.4538e-04 ,2.8330e-04 ,3.0298e-04 ,3.0752e-04 ,2.9416e-04 , & - &2.6511e-04 ,2.1835e-04 ,2.1288e-04 /) - kao(:, 1,11, 1) = (/ & - &9.9914e-05 ,1.8204e-04 ,1.9923e-04 ,2.0432e-04 ,1.9733e-04 ,1.8201e-04 , & - &1.5904e-04 ,1.2299e-04 ,1.0910e-04 /) - kao(:, 2,11, 1) = (/ & - &1.1199e-04 ,2.1265e-04 ,2.3389e-04 ,2.4089e-04 ,2.3442e-04 ,2.2069e-04 , & - &1.9371e-04 ,1.4882e-04 ,1.3411e-04 /) - kao(:, 3,11, 1) = (/ & - &1.2687e-04 ,2.4499e-04 ,2.7026e-04 ,2.7909e-04 ,2.7675e-04 ,2.6044e-04 , & - &2.2915e-04 ,1.7718e-04 ,1.6026e-04 /) - kao(:, 4,11, 1) = (/ & - &1.4261e-04 ,2.8101e-04 ,3.1141e-04 ,3.2255e-04 ,3.1948e-04 ,3.0150e-04 , & - &2.6612e-04 ,2.0752e-04 ,1.8601e-04 /) - kao(:, 5,11, 1) = (/ & - &1.5789e-04 ,3.1929e-04 ,3.5513e-04 ,3.6602e-04 ,3.6282e-04 ,3.4410e-04 , & - &3.0577e-04 ,2.4097e-04 ,2.1352e-04 /) - kao(:, 1,12, 1) = (/ & - &1.1122e-04 ,1.9022e-04 ,2.0568e-04 ,2.0798e-04 ,2.0013e-04 ,1.8369e-04 , & - &1.5756e-04 ,1.2037e-04 ,1.0098e-04 /) - kao(:, 2,12, 1) = (/ & - &1.2500e-04 ,2.2156e-04 ,2.4046e-04 ,2.4347e-04 ,2.3764e-04 ,2.2116e-04 , & - &1.9272e-04 ,1.4643e-04 ,1.2390e-04 /) - kao(:, 3,12, 1) = (/ & - &1.4056e-04 ,2.5489e-04 ,2.7764e-04 ,2.8122e-04 ,2.7905e-04 ,2.5886e-04 , & - &2.2636e-04 ,1.7352e-04 ,1.4664e-04 /) - kao(:, 4,12, 1) = (/ & - &1.5858e-04 ,2.9021e-04 ,3.1841e-04 ,3.2551e-04 ,3.1903e-04 ,2.9848e-04 , & - &2.6254e-04 ,2.0265e-04 ,1.7061e-04 /) - kao(:, 5,12, 1) = (/ & - &1.7398e-04 ,3.2750e-04 ,3.6207e-04 ,3.6880e-04 ,3.6058e-04 ,3.3907e-04 , & - &2.9970e-04 ,2.3401e-04 ,1.9575e-04 /) - kao(:, 1,13, 1) = (/ & - &9.9982e-05 ,1.6786e-04 ,1.8157e-04 ,1.8311e-04 ,1.7732e-04 ,1.6257e-04 , & - &1.4107e-04 ,1.0684e-04 ,8.8282e-05 /) - kao(:, 2,13, 1) = (/ & - &1.1208e-04 ,1.9489e-04 ,2.1207e-04 ,2.1420e-04 ,2.0856e-04 ,1.9501e-04 , & - &1.6942e-04 ,1.2896e-04 ,1.0706e-04 /) - kao(:, 3,13, 1) = (/ & - &1.2580e-04 ,2.2390e-04 ,2.4368e-04 ,2.4899e-04 ,2.4426e-04 ,2.2695e-04 , & - &1.9796e-04 ,1.5273e-04 ,1.2657e-04 /) - kao(:, 4,13, 1) = (/ & - &1.4115e-04 ,2.5382e-04 ,2.8079e-04 ,2.8499e-04 ,2.7843e-04 ,2.6072e-04 , & - &2.2903e-04 ,1.7905e-04 ,1.4711e-04 /) - kao(:, 5,13, 1) = (/ & - &1.5465e-04 ,2.8798e-04 ,3.1774e-04 ,3.2258e-04 ,3.1431e-04 ,2.9430e-04 , & - &2.6133e-04 ,2.0499e-04 ,1.6802e-04 /) - kao(:, 1, 1, 2) = (/ & - &3.7683e-07 ,1.9808e-04 ,3.6685e-04 ,5.3916e-04 ,7.1167e-04 ,8.9309e-04 , & - &1.1251e-03 ,1.6060e-03 ,1.3216e-03 /) - kao(:, 2, 1, 2) = (/ & - &4.2181e-07 ,2.2081e-04 ,4.0843e-04 ,6.0005e-04 ,7.9854e-04 ,1.0235e-03 , & - &1.2747e-03 ,1.7730e-03 ,1.5072e-03 /) - kao(:, 3, 1, 2) = (/ & - &4.6205e-07 ,2.4503e-04 ,4.5395e-04 ,6.6471e-04 ,8.8503e-04 ,1.1345e-03 , & - &1.4567e-03 ,1.9804e-03 ,1.6670e-03 /) - kao(:, 4, 1, 2) = (/ & - &5.1491e-07 ,2.7069e-04 ,5.0378e-04 ,7.3699e-04 ,9.7626e-04 ,1.2446e-03 , & - &1.5952e-03 ,2.2188e-03 ,1.8463e-03 /) - kao(:, 5, 1, 2) = (/ & - &5.5977e-07 ,2.9608e-04 ,5.5719e-04 ,8.1557e-04 ,1.0806e-03 ,1.3738e-03 , & - &1.7497e-03 ,2.4313e-03 ,2.0562e-03 /) - kao(:, 1, 2, 2) = (/ & - &4.7123e-07 ,1.6943e-04 ,3.0287e-04 ,4.3680e-04 ,5.7665e-04 ,7.0994e-04 , & - &8.5911e-04 ,1.1308e-03 ,1.0172e-03 /) - kao(:, 2, 2, 2) = (/ & - &5.2931e-07 ,1.8961e-04 ,3.3976e-04 ,4.8868e-04 ,6.4337e-04 ,8.0862e-04 , & - &9.8935e-04 ,1.2742e-03 ,1.1602e-03 /) - kao(:, 3, 2, 2) = (/ & - &5.8844e-07 ,2.1120e-04 ,3.7935e-04 ,5.4606e-04 ,7.1722e-04 ,8.9758e-04 , & - &1.1168e-03 ,1.4348e-03 ,1.3002e-03 /) - kao(:, 4, 2, 2) = (/ & - &6.4390e-07 ,2.3336e-04 ,4.2266e-04 ,6.0899e-04 ,7.9911e-04 ,9.9511e-04 , & - &1.2304e-03 ,1.6357e-03 ,1.4539e-03 /) - kao(:, 5, 2, 2) = (/ & - &7.0717e-07 ,2.5573e-04 ,4.6939e-04 ,6.7801e-04 ,8.8876e-04 ,1.1052e-03 , & - &1.3595e-03 ,1.7810e-03 ,1.6268e-03 /) - kao(:, 1, 3, 2) = (/ & - &7.7382e-07 ,1.5592e-04 ,2.6004e-04 ,3.5917e-04 ,4.5597e-04 ,5.6221e-04 , & - &6.6191e-04 ,7.8092e-04 ,7.5320e-04 /) - kao(:, 2, 3, 2) = (/ & - &8.7904e-07 ,1.7462e-04 ,2.9301e-04 ,4.0553e-04 ,5.1639e-04 ,6.3236e-04 , & - &7.5999e-04 ,8.9592e-04 ,8.6804e-04 /) - kao(:, 3, 3, 2) = (/ & - &9.8281e-07 ,1.9263e-04 ,3.2870e-04 ,4.5631e-04 ,5.8039e-04 ,7.0848e-04 , & - &8.4867e-04 ,1.0369e-03 ,9.8463e-04 /) - kao(:, 4, 3, 2) = (/ & - &1.0791e-06 ,2.1196e-04 ,3.6740e-04 ,5.1125e-04 ,6.5128e-04 ,7.9536e-04 , & - &9.4873e-04 ,1.1498e-03 ,1.1137e-03 /) - kao(:, 5, 3, 2) = (/ & - &1.1811e-06 ,2.3314e-04 ,4.0444e-04 ,5.7096e-04 ,7.2953e-04 ,8.9019e-04 , & - &1.0598e-03 ,1.2765e-03 ,1.2563e-03 /) - kao(:, 1, 4, 2) = (/ & - &1.2931e-06 ,1.5459e-04 ,2.3712e-04 ,3.1151e-04 ,3.8051e-04 ,4.4732e-04 , & - &5.1939e-04 ,5.8139e-04 ,5.5932e-04 /) - kao(:, 2, 4, 2) = (/ & - &1.4961e-06 ,1.6924e-04 ,2.6743e-04 ,3.5309e-04 ,4.3277e-04 ,5.1005e-04 , & - &5.8720e-04 ,6.8557e-04 ,6.5449e-04 /) - kao(:, 3, 4, 2) = (/ & - &1.6687e-06 ,1.8668e-04 ,2.9946e-04 ,3.9815e-04 ,4.8978e-04 ,5.7712e-04 , & - &6.6568e-04 ,7.7293e-04 ,7.4803e-04 /) - kao(:, 4, 4, 2) = (/ & - &1.8491e-06 ,2.0517e-04 ,3.2982e-04 ,4.4741e-04 ,5.5202e-04 ,6.5205e-04 , & - &7.5198e-04 ,8.7064e-04 ,8.5540e-04 /) - kao(:, 5, 4, 2) = (/ & - &2.0324e-06 ,2.2162e-04 ,3.6469e-04 ,4.9544e-04 ,6.1968e-04 ,7.3378e-04 , & - &8.4769e-04 ,9.7614e-04 ,9.7197e-04 /) - kao(:, 1, 5, 2) = (/ & - &2.0065e-06 ,1.5150e-04 ,2.2968e-04 ,2.8386e-04 ,3.3168e-04 ,3.7581e-04 , & - &4.1489e-04 ,4.5675e-04 ,4.1358e-04 /) - kao(:, 2, 5, 2) = (/ & - &2.3252e-06 ,1.6854e-04 ,2.5480e-04 ,3.2081e-04 ,3.7754e-04 ,4.3026e-04 , & - &4.7606e-04 ,5.2820e-04 ,4.9368e-04 /) - kao(:, 3, 5, 2) = (/ & - &2.6085e-06 ,1.8331e-04 ,2.8033e-04 ,3.6056e-04 ,4.2825e-04 ,4.8928e-04 , & - &5.4309e-04 ,5.9807e-04 ,5.6993e-04 /) - kao(:, 4, 5, 2) = (/ & - &2.9132e-06 ,1.9761e-04 ,3.1015e-04 ,3.9882e-04 ,4.8412e-04 ,5.5460e-04 , & - &6.1782e-04 ,6.7980e-04 ,6.5837e-04 /) - kao(:, 5, 5, 2) = (/ & - &3.2361e-06 ,2.1434e-04 ,3.4118e-04 ,4.4180e-04 ,5.3752e-04 ,6.2588e-04 , & - &6.9930e-04 ,7.7113e-04 ,7.5327e-04 /) - kao(:, 1, 6, 2) = (/ & - &2.9230e-06 ,1.3806e-04 ,2.1835e-04 ,2.7095e-04 ,3.0194e-04 ,3.2758e-04 , & - &3.4587e-04 ,3.6408e-04 ,3.0468e-04 /) - kao(:, 2, 6, 2) = (/ & - &3.4021e-06 ,1.5365e-04 ,2.4578e-04 ,3.0400e-04 ,3.4286e-04 ,3.7318e-04 , & - &3.9861e-04 ,4.1438e-04 ,3.7021e-04 /) - kao(:, 3, 6, 2) = (/ & - &3.8620e-06 ,1.7051e-04 ,2.7334e-04 ,3.3438e-04 ,3.8715e-04 ,4.2432e-04 , & - &4.5662e-04 ,4.7772e-04 ,4.3260e-04 /) - kao(:, 4, 6, 2) = (/ & - &4.2870e-06 ,1.8887e-04 ,2.9668e-04 ,3.7137e-04 ,4.2886e-04 ,4.8133e-04 , & - &5.2053e-04 ,5.4689e-04 ,5.0258e-04 /) - kao(:, 5, 6, 2) = (/ & - &4.8423e-06 ,2.0662e-04 ,3.1977e-04 ,4.1089e-04 ,4.7609e-04 ,5.3742e-04 , & - &5.9126e-04 ,6.2337e-04 ,5.7823e-04 /) - kao(:, 1, 7, 2) = (/ & - &4.5404e-06 ,1.3143e-04 ,2.0727e-04 ,2.6052e-04 ,2.9635e-04 ,3.0743e-04 , & - &3.0825e-04 ,2.9703e-04 ,2.2197e-04 /) - kao(:, 2, 7, 2) = (/ & - &5.2640e-06 ,1.4772e-04 ,2.3068e-04 ,2.9687e-04 ,3.3184e-04 ,3.4986e-04 , & - &3.5249e-04 ,3.4543e-04 ,2.7330e-04 /) - kao(:, 3, 7, 2) = (/ & - &6.0466e-06 ,1.6470e-04 ,2.5696e-04 ,3.3234e-04 ,3.6914e-04 ,3.9626e-04 , & - &4.0246e-04 ,3.9902e-04 ,3.2329e-04 /) - kao(:, 4, 7, 2) = (/ & - &6.7565e-06 ,1.8107e-04 ,2.8421e-04 ,3.6286e-04 ,4.1183e-04 ,4.3876e-04 , & - &4.5748e-04 ,4.5835e-04 ,3.7913e-04 /) - kao(:, 5, 7, 2) = (/ & - &7.6474e-06 ,1.9867e-04 ,3.1475e-04 ,3.9310e-04 ,4.5438e-04 ,4.8957e-04 , & - &5.1385e-04 ,5.2320e-04 ,4.4016e-04 /) - kao(:, 1, 8, 2) = (/ & - &8.6520e-06 ,1.4110e-04 ,2.0496e-04 ,2.5993e-04 ,2.9742e-04 ,3.1821e-04 , & - &3.1456e-04 ,2.7649e-04 ,1.8485e-04 /) - kao(:, 2, 8, 2) = (/ & - &1.0009e-05 ,1.5517e-04 ,2.3206e-04 ,2.9171e-04 ,3.4405e-04 ,3.6414e-04 , & - &3.5939e-04 ,3.1713e-04 ,2.2424e-04 /) - kao(:, 3, 8, 2) = (/ & - &1.1509e-05 ,1.7205e-04 ,2.6018e-04 ,3.2636e-04 ,3.8244e-04 ,4.1241e-04 , & - &4.0304e-04 ,3.6377e-04 ,2.6821e-04 /) - kao(:, 4, 8, 2) = (/ & - &1.3117e-05 ,1.8959e-04 ,2.8945e-04 ,3.6544e-04 ,4.2147e-04 ,4.5788e-04 , & - &4.4922e-04 ,4.1527e-04 ,3.1806e-04 /) - kao(:, 5, 8, 2) = (/ & - &1.4790e-05 ,2.0902e-04 ,3.1840e-04 ,4.0603e-04 ,4.6521e-04 ,4.9945e-04 , & - &5.0220e-04 ,4.7045e-04 ,3.7190e-04 /) - kao(:, 1, 9, 2) = (/ & - &3.0998e-05 ,2.0637e-04 ,2.7947e-04 ,3.3530e-04 ,3.6480e-04 ,3.8205e-04 , & - &3.8653e-04 ,3.4762e-04 ,1.8242e-04 /) - kao(:, 2, 9, 2) = (/ & - &3.6096e-05 ,2.3076e-04 ,3.1240e-04 ,3.7284e-04 ,4.1471e-04 ,4.3432e-04 , & - &4.4125e-04 ,4.0372e-04 ,2.2363e-04 /) - kao(:, 3, 9, 2) = (/ & - &4.2035e-05 ,2.5734e-04 ,3.4822e-04 ,4.1425e-04 ,4.6570e-04 ,4.9153e-04 , & - &4.9534e-04 ,4.6243e-04 ,2.6686e-04 /) - kao(:, 4, 9, 2) = (/ & - &4.8029e-05 ,2.8335e-04 ,3.8624e-04 ,4.5968e-04 ,5.1473e-04 ,5.5196e-04 , & - &5.5517e-04 ,5.1807e-04 ,3.1577e-04 /) - kao(:, 5, 9, 2) = (/ & - &5.5331e-05 ,3.0966e-04 ,4.2837e-04 ,5.0793e-04 ,5.6875e-04 ,6.0971e-04 , & - &6.2368e-04 ,5.6511e-04 ,3.7171e-04 /) - kao(:, 1,10, 2) = (/ & - &1.2964e-04 ,4.0632e-04 ,5.1358e-04 ,5.5581e-04 ,5.6980e-04 ,5.6112e-04 , & - &5.2892e-04 ,4.3728e-04 ,2.8865e-04 /) - kao(:, 2,10, 2) = (/ & - &1.5095e-04 ,4.5953e-04 ,5.7199e-04 ,6.2596e-04 ,6.3988e-04 ,6.3023e-04 , & - &5.9124e-04 ,5.0100e-04 ,3.5610e-04 /) - kao(:, 3,10, 2) = (/ & - &1.7573e-04 ,5.1815e-04 ,6.3409e-04 ,6.9698e-04 ,7.1541e-04 ,7.0519e-04 , & - &6.6061e-04 ,5.7112e-04 ,4.2862e-04 /) - kao(:, 4,10, 2) = (/ & - &2.0254e-04 ,5.7408e-04 ,7.0140e-04 ,7.6485e-04 ,7.9509e-04 ,7.8487e-04 , & - &7.3767e-04 ,6.4340e-04 ,5.0196e-04 /) - kao(:, 5,10, 2) = (/ & - &2.3735e-04 ,6.3435e-04 ,7.7477e-04 ,8.4107e-04 ,8.7369e-04 ,8.7290e-04 , & - &8.2035e-04 ,7.1353e-04 ,5.7378e-04 /) - kao(:, 1,11, 2) = (/ & - &2.0611e-04 ,5.0579e-04 ,6.0906e-04 ,6.6598e-04 ,6.7463e-04 ,6.4325e-04 , & - &5.7358e-04 ,4.6594e-04 ,3.7105e-04 /) - kao(:, 2,11, 2) = (/ & - &2.4168e-04 ,5.7457e-04 ,6.8930e-04 ,7.4695e-04 ,7.5788e-04 ,7.2324e-04 , & - &6.4676e-04 ,5.2943e-04 ,4.4283e-04 /) - kao(:, 3,11, 2) = (/ & - &2.7855e-04 ,6.5109e-04 ,7.7336e-04 ,8.3624e-04 ,8.3721e-04 ,8.0652e-04 , & - &7.2648e-04 ,5.9132e-04 ,5.1523e-04 /) - kao(:, 4,11, 2) = (/ & - &3.2934e-04 ,7.2843e-04 ,8.5922e-04 ,9.2211e-04 ,9.2829e-04 ,8.9207e-04 , & - &8.1359e-04 ,6.5969e-04 ,5.9146e-04 /) - kao(:, 5,11, 2) = (/ & - &3.7624e-04 ,8.0764e-04 ,9.4816e-04 ,1.0176e-03 ,1.0267e-03 ,9.8589e-04 , & - &9.0003e-04 ,7.3360e-04 ,6.6373e-04 /) - kao(:, 1,12, 2) = (/ & - &2.3690e-04 ,5.2345e-04 ,6.1583e-04 ,6.6206e-04 ,6.7308e-04 ,6.4411e-04 , & - &5.7108e-04 ,4.4594e-04 ,3.6966e-04 /) - kao(:, 2,12, 2) = (/ & - &2.7636e-04 ,5.9693e-04 ,6.9824e-04 ,7.5086e-04 ,7.5372e-04 ,7.2129e-04 , & - &6.4015e-04 ,5.0417e-04 ,4.3519e-04 /) - kao(:, 3,12, 2) = (/ & - &3.2475e-04 ,6.7274e-04 ,7.7976e-04 ,8.4185e-04 ,8.4051e-04 ,8.0110e-04 , & - &7.2036e-04 ,5.6771e-04 ,5.0173e-04 /) - kao(:, 4,12, 2) = (/ & - &3.7742e-04 ,7.5354e-04 ,8.6958e-04 ,9.2971e-04 ,9.3567e-04 ,8.9034e-04 , & - &7.9942e-04 ,6.3511e-04 ,5.6743e-04 /) - kao(:, 5,12, 2) = (/ & - &4.2656e-04 ,8.3460e-04 ,9.6197e-04 ,1.0276e-03 ,1.0348e-03 ,9.8795e-04 , & - &8.8414e-04 ,7.0917e-04 ,6.3181e-04 /) - kao(:, 1,13, 2) = (/ & - &2.1559e-04 ,4.7034e-04 ,5.5318e-04 ,5.8764e-04 ,5.9246e-04 ,5.7342e-04 , & - &5.0467e-04 ,3.9184e-04 ,3.4198e-04 /) - kao(:, 2,13, 2) = (/ & - &2.5152e-04 ,5.3422e-04 ,6.2195e-04 ,6.6659e-04 ,6.7272e-04 ,6.3853e-04 , & - &5.7068e-04 ,4.4436e-04 ,3.9456e-04 /) - kao(:, 3,13, 2) = (/ & - &3.0302e-04 ,6.0127e-04 ,6.9437e-04 ,7.4686e-04 ,7.5249e-04 ,7.1183e-04 , & - &6.4004e-04 ,5.0162e-04 ,4.4714e-04 /) - kao(:, 4,13, 2) = (/ & - &3.4242e-04 ,6.7081e-04 ,7.7273e-04 ,8.2774e-04 ,8.3533e-04 ,7.9499e-04 , & - &7.1004e-04 ,5.6394e-04 ,5.0105e-04 /) - kao(:, 5,13, 2) = (/ & - &3.8220e-04 ,7.4575e-04 ,8.5383e-04 ,9.1037e-04 ,9.2303e-04 ,8.8587e-04 , & - &7.8559e-04 ,6.3207e-04 ,5.5475e-04 /) - kao(:, 1, 1, 3) = (/ & - &5.3797e-07 ,4.8188e-04 ,8.9729e-04 ,1.3200e-03 ,1.7770e-03 ,2.3291e-03 , & - &3.1122e-03 ,4.4511e-03 ,3.5150e-03 /) - kao(:, 2, 1, 3) = (/ & - &6.1262e-07 ,5.2615e-04 ,9.8845e-04 ,1.4517e-03 ,1.9408e-03 ,2.5148e-03 , & - &3.2963e-03 ,4.8584e-03 ,3.8321e-03 /) - kao(:, 3, 1, 3) = (/ & - &7.0635e-07 ,5.6647e-04 ,1.0753e-03 ,1.5925e-03 ,2.1392e-03 ,2.7441e-03 , & - &3.5300e-03 ,5.0419e-03 ,4.2299e-03 /) - kao(:, 4, 1, 3) = (/ & - &7.6766e-07 ,6.0727e-04 ,1.1623e-03 ,1.7247e-03 ,2.3255e-03 ,3.0054e-03 , & - &3.8553e-03 ,5.3163e-03 ,4.6081e-03 /) - kao(:, 5, 1, 3) = (/ & - &8.3851e-07 ,6.4796e-04 ,1.2484e-03 ,1.8617e-03 ,2.5127e-03 ,3.2521e-03 , & - &4.1787e-03 ,5.7407e-03 ,4.9828e-03 /) - kao(:, 1, 2, 3) = (/ & - &6.9858e-07 ,4.1220e-04 ,7.5871e-04 ,1.0893e-03 ,1.4250e-03 ,1.8069e-03 , & - &2.3218e-03 ,3.2208e-03 ,2.7451e-03 /) - kao(:, 2, 2, 3) = (/ & - &8.1006e-07 ,4.4690e-04 ,8.3751e-04 ,1.2083e-03 ,1.5781e-03 ,1.9758e-03 , & - &2.4966e-03 ,3.4638e-03 ,3.0268e-03 /) - kao(:, 3, 2, 3) = (/ & - &9.0719e-07 ,4.8245e-04 ,9.0580e-04 ,1.3167e-03 ,1.7362e-03 ,2.1788e-03 , & - &2.7148e-03 ,3.6613e-03 ,3.3476e-03 /) - kao(:, 4, 2, 3) = (/ & - &9.9070e-07 ,5.1202e-04 ,9.7859e-04 ,1.4272e-03 ,1.8822e-03 ,2.3784e-03 , & - &2.9761e-03 ,3.9189e-03 ,3.6534e-03 /) - kao(:, 5, 2, 3) = (/ & - &1.0800e-06 ,5.4986e-04 ,1.0443e-03 ,1.5370e-03 ,2.0346e-03 ,2.5754e-03 , & - &3.2289e-03 ,4.2581e-03 ,3.9665e-03 /) - kao(:, 1, 3, 3) = (/ & - &1.1956e-06 ,3.6533e-04 ,6.4857e-04 ,9.1797e-04 ,1.1753e-03 ,1.4236e-03 , & - &1.7165e-03 ,2.2362e-03 ,2.0894e-03 /) - kao(:, 2, 3, 3) = (/ & - &1.3685e-06 ,3.9659e-04 ,7.1084e-04 ,1.0164e-03 ,1.3082e-03 ,1.5859e-03 , & - &1.8841e-03 ,2.3586e-03 ,2.3274e-03 /) - kao(:, 3, 3, 3) = (/ & - &1.5093e-06 ,4.2397e-04 ,7.7009e-04 ,1.1048e-03 ,1.4344e-03 ,1.7565e-03 , & - &2.0870e-03 ,2.5514e-03 ,2.5907e-03 /) - kao(:, 4, 3, 3) = (/ & - &1.6732e-06 ,4.5580e-04 ,8.2534e-04 ,1.1953e-03 ,1.5533e-03 ,1.9057e-03 , & - &2.2804e-03 ,2.8031e-03 ,2.8387e-03 /) - kao(:, 5, 3, 3) = (/ & - &1.8304e-06 ,4.8851e-04 ,8.8340e-04 ,1.2735e-03 ,1.6704e-03 ,2.0642e-03 , & - &2.4727e-03 ,3.0561e-03 ,3.0939e-03 /) - kao(:, 1, 4, 3) = (/ & - &2.0440e-06 ,3.4190e-04 ,5.7528e-04 ,7.8555e-04 ,9.8576e-04 ,1.1789e-03 , & - &1.3557e-03 ,1.6128e-03 ,1.5891e-03 /) - kao(:, 2, 4, 3) = (/ & - &2.2803e-06 ,3.6626e-04 ,6.2613e-04 ,8.6621e-04 ,1.0945e-03 ,1.3150e-03 , & - &1.5191e-03 ,1.7412e-03 ,1.7827e-03 /) - kao(:, 3, 4, 3) = (/ & - &2.5344e-06 ,3.9307e-04 ,6.7511e-04 ,9.4372e-04 ,1.1954e-03 ,1.4474e-03 , & - &1.6882e-03 ,1.9262e-03 ,2.0030e-03 /) - kao(:, 4, 4, 3) = (/ & - &2.8636e-06 ,4.1974e-04 ,7.2769e-04 ,1.0153e-03 ,1.2977e-03 ,1.5716e-03 , & - &1.8427e-03 ,2.1315e-03 ,2.2084e-03 /) - kao(:, 5, 4, 3) = (/ & - &3.0668e-06 ,4.5207e-04 ,7.8267e-04 ,1.0885e-03 ,1.3854e-03 ,1.6897e-03 , & - &1.9964e-03 ,2.3147e-03 ,2.4195e-03 /) - kao(:, 1, 5, 3) = (/ & - &3.1319e-06 ,3.2418e-04 ,5.2433e-04 ,6.9885e-04 ,8.4707e-04 ,9.8232e-04 , & - &1.1112e-03 ,1.2410e-03 ,1.2226e-03 /) - kao(:, 2, 5, 3) = (/ & - &3.5295e-06 ,3.4929e-04 ,5.6868e-04 ,7.6274e-04 ,9.3852e-04 ,1.0972e-03 , & - &1.2472e-03 ,1.3812e-03 ,1.3798e-03 /) - kao(:, 3, 5, 3) = (/ & - &3.9745e-06 ,3.7641e-04 ,6.1261e-04 ,8.2611e-04 ,1.0255e-03 ,1.2065e-03 , & - &1.3836e-03 ,1.5454e-03 ,1.5563e-03 /) - kao(:, 4, 5, 3) = (/ & - &4.4389e-06 ,4.0602e-04 ,6.5760e-04 ,8.9247e-04 ,1.1052e-03 ,1.3151e-03 , & - &1.5074e-03 ,1.7081e-03 ,1.7334e-03 /) - kao(:, 5, 5, 3) = (/ & - &4.7663e-06 ,4.3568e-04 ,7.0547e-04 ,9.6253e-04 ,1.1901e-03 ,1.4105e-03 , & - &1.6319e-03 ,1.8559e-03 ,1.9044e-03 /) - kao(:, 1, 6, 3) = (/ & - &4.5500e-06 ,3.2085e-04 ,4.8959e-04 ,6.2597e-04 ,7.4855e-04 ,8.4386e-04 , & - &9.2463e-04 ,9.8196e-04 ,9.3322e-04 /) - kao(:, 2, 6, 3) = (/ & - &5.1832e-06 ,3.4894e-04 ,5.2646e-04 ,6.8892e-04 ,8.2642e-04 ,9.4419e-04 , & - &1.0344e-03 ,1.1120e-03 ,1.0567e-03 /) - kao(:, 3, 6, 3) = (/ & - &5.7454e-06 ,3.7624e-04 ,5.6596e-04 ,7.4193e-04 ,8.9866e-04 ,1.0339e-03 , & - &1.1478e-03 ,1.2434e-03 ,1.1989e-03 /) - kao(:, 4, 6, 3) = (/ & - &6.4183e-06 ,4.0049e-04 ,6.1119e-04 ,7.9917e-04 ,9.7241e-04 ,1.1206e-03 , & - &1.2562e-03 ,1.3721e-03 ,1.3554e-03 /) - kao(:, 5, 6, 3) = (/ & - &6.9324e-06 ,4.2668e-04 ,6.6038e-04 ,8.5368e-04 ,1.0486e-03 ,1.2116e-03 , & - &1.3599e-03 ,1.5001e-03 ,1.5043e-03 /) - kao(:, 1, 7, 3) = (/ & - &7.2797e-06 ,3.0677e-04 ,4.8071e-04 ,5.9971e-04 ,6.8742e-04 ,7.5672e-04 , & - &8.0124e-04 ,8.1058e-04 ,7.0953e-04 /) - kao(:, 2, 7, 3) = (/ & - &8.1177e-06 ,3.3920e-04 ,5.2455e-04 ,6.4489e-04 ,7.6436e-04 ,8.4338e-04 , & - &9.0408e-04 ,9.2147e-04 ,8.0482e-04 /) - kao(:, 3, 7, 3) = (/ & - &8.9509e-06 ,3.6425e-04 ,5.6797e-04 ,6.9667e-04 ,8.2046e-04 ,9.2590e-04 , & - &9.9874e-04 ,1.0317e-03 ,9.2280e-04 /) - kao(:, 4, 7, 3) = (/ & - &9.9962e-06 ,3.8975e-04 ,6.1216e-04 ,7.5517e-04 ,8.8215e-04 ,1.0000e-03 , & - &1.0895e-03 ,1.1382e-03 ,1.0492e-03 /) - kao(:, 5, 7, 3) = (/ & - &1.0669e-05 ,4.1752e-04 ,6.5205e-04 ,8.1765e-04 ,9.5018e-04 ,1.0745e-03 , & - &1.1767e-03 ,1.2498e-03 ,1.1757e-03 /) - kao(:, 1, 8, 3) = (/ & - &1.3269e-05 ,3.0208e-04 ,4.8542e-04 ,6.1720e-04 ,7.0751e-04 ,7.5832e-04 , & - &7.5956e-04 ,7.2658e-04 ,5.2753e-04 /) - kao(:, 2, 8, 3) = (/ & - &1.5282e-05 ,3.2807e-04 ,5.3968e-04 ,6.8467e-04 ,7.6733e-04 ,8.2175e-04 , & - &8.4708e-04 ,8.2655e-04 ,6.1209e-04 /) - kao(:, 3, 8, 3) = (/ & - &1.6919e-05 ,3.5455e-04 ,5.8673e-04 ,7.5006e-04 ,8.3417e-04 ,8.8820e-04 , & - &9.3120e-04 ,9.2583e-04 ,7.0621e-04 /) - kao(:, 4, 8, 3) = (/ & - &1.8616e-05 ,3.8664e-04 ,6.2653e-04 ,8.0927e-04 ,9.0712e-04 ,9.6236e-04 , & - &1.0056e-03 ,1.0184e-03 ,8.0931e-04 /) - kao(:, 5, 8, 3) = (/ & - &2.0327e-05 ,4.2321e-04 ,6.7354e-04 ,8.6755e-04 ,9.7906e-04 ,1.0424e-03 , & - &1.0862e-03 ,1.0982e-03 ,9.1316e-04 /) - kao(:, 1, 9, 3) = (/ & - &5.0114e-05 ,4.1653e-04 ,5.9063e-04 ,7.3539e-04 ,8.5123e-04 ,9.2178e-04 , & - &9.4309e-04 ,8.5391e-04 ,5.1499e-04 /) - kao(:, 2, 9, 3) = (/ & - &5.7273e-05 ,4.5656e-04 ,6.4069e-04 ,7.9699e-04 ,9.4296e-04 ,1.0365e-03 , & - &1.0446e-03 ,9.3220e-04 ,6.0883e-04 /) - kao(:, 3, 9, 3) = (/ & - &6.4035e-05 ,4.9861e-04 ,7.0653e-04 ,8.6985e-04 ,1.0116e-03 ,1.1468e-03 , & - &1.1543e-03 ,1.0092e-03 ,7.0553e-04 /) - kao(:, 4, 9, 3) = (/ & - &7.2188e-05 ,5.4617e-04 ,7.8095e-04 ,9.4772e-04 ,1.1003e-03 ,1.2322e-03 , & - &1.2562e-03 ,1.0988e-03 ,7.9526e-04 /) - kao(:, 5, 9, 3) = (/ & - &7.9550e-05 ,6.0184e-04 ,8.5464e-04 ,1.0416e-03 ,1.1956e-03 ,1.3190e-03 , & - &1.3528e-03 ,1.1984e-03 ,8.7997e-04 /) - kao(:, 1,10, 3) = (/ & - &2.3306e-04 ,7.9772e-04 ,9.8566e-04 ,1.1183e-03 ,1.1737e-03 ,1.1902e-03 , & - &1.1793e-03 ,1.0698e-03 ,6.6407e-04 /) - kao(:, 2,10, 3) = (/ & - &2.6771e-04 ,8.8993e-04 ,1.0956e-03 ,1.2259e-03 ,1.2971e-03 ,1.3020e-03 , & - &1.2785e-03 ,1.2036e-03 ,7.5718e-04 /) - kao(:, 3,10, 3) = (/ & - &3.0294e-04 ,9.8041e-04 ,1.2123e-03 ,1.3475e-03 ,1.4168e-03 ,1.4273e-03 , & - &1.4006e-03 ,1.3282e-03 ,8.5838e-04 /) - kao(:, 4,10, 3) = (/ & - &3.4186e-04 ,1.0838e-03 ,1.3329e-03 ,1.4855e-03 ,1.5514e-03 ,1.5775e-03 , & - &1.5302e-03 ,1.4297e-03 ,9.7732e-04 /) - kao(:, 5,10, 3) = (/ & - &3.7940e-04 ,1.2006e-03 ,1.4657e-03 ,1.6333e-03 ,1.7070e-03 ,1.7269e-03 , & - &1.6832e-03 ,1.5552e-03 ,1.1108e-03 /) - kao(:, 1,11, 3) = (/ & - &4.1370e-04 ,1.0481e-03 ,1.2382e-03 ,1.3193e-03 ,1.3405e-03 ,1.3128e-03 , & - &1.2136e-03 ,1.0530e-03 ,7.9947e-04 /) - kao(:, 2,11, 3) = (/ & - &4.6551e-04 ,1.1702e-03 ,1.3813e-03 ,1.4636e-03 ,1.4831e-03 ,1.4472e-03 , & - &1.3317e-03 ,1.1447e-03 ,9.1716e-04 /) - kao(:, 3,11, 3) = (/ & - &5.2337e-04 ,1.3114e-03 ,1.5380e-03 ,1.6111e-03 ,1.6417e-03 ,1.5910e-03 , & - &1.4641e-03 ,1.2585e-03 ,1.0575e-03 /) - kao(:, 4,11, 3) = (/ & - &5.8236e-04 ,1.4612e-03 ,1.6981e-03 ,1.7829e-03 ,1.8015e-03 ,1.7452e-03 , & - &1.6069e-03 ,1.3761e-03 ,1.2010e-03 /) - kao(:, 5,11, 3) = (/ & - &6.7131e-04 ,1.6254e-03 ,1.8811e-03 ,1.9666e-03 ,1.9744e-03 ,1.9137e-03 , & - &1.7677e-03 ,1.5105e-03 ,1.3428e-03 /) - kao(:, 1,12, 3) = (/ & - &5.0548e-04 ,1.1217e-03 ,1.2964e-03 ,1.3785e-03 ,1.3692e-03 ,1.2935e-03 , & - &1.1705e-03 ,9.6704e-04 ,8.2680e-04 /) - kao(:, 2,12, 3) = (/ & - &5.7320e-04 ,1.2560e-03 ,1.4612e-03 ,1.5290e-03 ,1.5133e-03 ,1.4345e-03 , & - &1.2992e-03 ,1.0595e-03 ,9.5961e-04 /) - kao(:, 3,12, 3) = (/ & - &6.3853e-04 ,1.4125e-03 ,1.6378e-03 ,1.6918e-03 ,1.6663e-03 ,1.5909e-03 , & - &1.4283e-03 ,1.1648e-03 ,1.0789e-03 /) - kao(:, 4,12, 3) = (/ & - &7.1367e-04 ,1.5888e-03 ,1.8194e-03 ,1.8745e-03 ,1.8358e-03 ,1.7471e-03 , & - &1.5691e-03 ,1.2862e-03 ,1.2039e-03 /) - kao(:, 5,12, 3) = (/ & - &8.2207e-04 ,1.7742e-03 ,2.0103e-03 ,2.0603e-03 ,2.0193e-03 ,1.9194e-03 , & - &1.7244e-03 ,1.4199e-03 ,1.3514e-03 /) - kao(:, 1,13, 3) = (/ & - &5.0420e-04 ,1.0317e-03 ,1.1965e-03 ,1.2627e-03 ,1.2425e-03 ,1.1623e-03 , & - &1.0397e-03 ,8.4556e-04 ,7.6156e-04 /) - kao(:, 2,13, 3) = (/ & - &5.6808e-04 ,1.1670e-03 ,1.3463e-03 ,1.4009e-03 ,1.3701e-03 ,1.2956e-03 , & - &1.1567e-03 ,9.3024e-04 ,8.8050e-04 /) - kao(:, 3,13, 3) = (/ & - &6.1838e-04 ,1.3214e-03 ,1.5180e-03 ,1.5502e-03 ,1.5020e-03 ,1.4361e-03 , & - &1.2780e-03 ,1.0272e-03 ,9.9967e-04 /) - kao(:, 4,13, 3) = (/ & - &7.0527e-04 ,1.4908e-03 ,1.6794e-03 ,1.7102e-03 ,1.6621e-03 ,1.5793e-03 , & - &1.4142e-03 ,1.1355e-03 ,1.1267e-03 /) - kao(:, 5,13, 3) = (/ & - &8.1247e-04 ,1.6340e-03 ,1.8549e-03 ,1.8870e-03 ,1.8374e-03 ,1.7298e-03 , & - &1.5606e-03 ,1.2534e-03 ,1.2510e-03 /) - kao(:, 1, 1, 4) = (/ & - &7.9349e-07 ,1.0718e-03 ,2.1076e-03 ,3.1773e-03 ,4.3493e-03 ,5.6505e-03 , & - &7.2449e-03 ,1.0124e-02 ,8.6807e-03 /) - kao(:, 2, 1, 4) = (/ & - &7.9171e-07 ,1.1405e-03 ,2.2617e-03 ,3.4209e-03 ,4.6727e-03 ,6.0666e-03 , & - &7.8396e-03 ,1.0702e-02 ,9.3285e-03 /) - kao(:, 3, 1, 4) = (/ & - &8.3534e-07 ,1.2022e-03 ,2.3697e-03 ,3.6079e-03 ,4.9651e-03 ,6.4864e-03 , & - &8.3654e-03 ,1.1513e-02 ,9.9193e-03 /) - kao(:, 4, 1, 4) = (/ & - &9.5267e-07 ,1.2723e-03 ,2.4978e-03 ,3.7943e-03 ,5.1994e-03 ,6.8025e-03 , & - &8.8715e-03 ,1.2190e-02 ,1.0375e-02 /) - kao(:, 5, 1, 4) = (/ & - &1.1458e-06 ,1.3554e-03 ,2.6484e-03 ,4.0109e-03 ,5.4856e-03 ,7.1578e-03 , & - &9.2726e-03 ,1.2904e-02 ,1.0954e-02 /) - kao(:, 1, 2, 4) = (/ & - &9.1454e-07 ,9.0539e-04 ,1.7315e-03 ,2.5817e-03 ,3.4611e-03 ,4.4469e-03 , & - &5.5705e-03 ,7.4448e-03 ,6.8782e-03 /) - kao(:, 2, 2, 4) = (/ & - &9.5187e-07 ,9.6041e-04 ,1.8588e-03 ,2.7755e-03 ,3.7306e-03 ,4.7775e-03 , & - &6.0319e-03 ,7.9894e-03 ,7.4238e-03 /) - kao(:, 3, 2, 4) = (/ & - &1.1150e-06 ,1.0164e-03 ,1.9573e-03 ,2.9264e-03 ,3.9480e-03 ,5.1214e-03 , & - &6.4611e-03 ,8.5702e-03 ,7.8654e-03 /) - kao(:, 4, 2, 4) = (/ & - &1.3385e-06 ,1.0876e-03 ,2.0659e-03 ,3.0814e-03 ,4.1574e-03 ,5.3507e-03 , & - &6.8052e-03 ,9.1287e-03 ,8.2842e-03 /) - kao(:, 5, 2, 4) = (/ & - &1.6022e-06 ,1.1568e-03 ,2.2052e-03 ,3.2703e-03 ,4.4002e-03 ,5.6510e-03 , & - &7.1684e-03 ,9.6207e-03 ,8.7667e-03 /) - kao(:, 1, 3, 4) = (/ & - &1.5574e-06 ,7.6371e-04 ,1.4483e-03 ,2.1006e-03 ,2.7598e-03 ,3.4620e-03 , & - &4.1959e-03 ,5.2056e-03 ,5.3344e-03 /) - kao(:, 2, 3, 4) = (/ & - &1.7591e-06 ,8.1114e-04 ,1.5471e-03 ,2.2761e-03 ,2.9860e-03 ,3.7307e-03 , & - &4.5489e-03 ,5.7315e-03 ,5.7929e-03 /) - kao(:, 3, 3, 4) = (/ & - &2.0958e-06 ,8.7335e-04 ,1.6413e-03 ,2.3988e-03 ,3.1565e-03 ,3.9689e-03 , & - &4.8920e-03 ,6.1466e-03 ,6.1501e-03 /) - kao(:, 4, 3, 4) = (/ & - &2.4948e-06 ,9.3193e-04 ,1.7550e-03 ,2.5427e-03 ,3.3388e-03 ,4.1838e-03 , & - &5.1384e-03 ,6.5670e-03 ,6.5006e-03 /) - kao(:, 5, 3, 4) = (/ & - &2.9808e-06 ,9.8734e-04 ,1.8752e-03 ,2.7256e-03 ,3.5562e-03 ,4.4297e-03 , & - &5.4345e-03 ,6.8804e-03 ,6.9100e-03 /) - kao(:, 1, 4, 4) = (/ & - &2.8339e-06 ,6.5550e-04 ,1.2204e-03 ,1.7505e-03 ,2.2569e-03 ,2.7626e-03 , & - &3.2755e-03 ,3.8524e-03 ,4.1315e-03 /) - kao(:, 2, 4, 4) = (/ & - &3.2988e-06 ,7.0845e-04 ,1.2966e-03 ,1.8754e-03 ,2.4581e-03 ,3.0020e-03 , & - &3.5639e-03 ,4.2448e-03 ,4.5130e-03 /) - kao(:, 3, 4, 4) = (/ & - &3.9491e-06 ,7.6198e-04 ,1.3871e-03 ,1.9942e-03 ,2.6023e-03 ,3.1978e-03 , & - &3.8488e-03 ,4.5802e-03 ,4.8443e-03 /) - kao(:, 4, 4, 4) = (/ & - &4.6425e-06 ,8.1982e-04 ,1.4902e-03 ,2.1380e-03 ,2.7710e-03 ,3.3974e-03 , & - &4.0487e-03 ,4.8659e-03 ,5.1413e-03 /) - kao(:, 5, 4, 4) = (/ & - &5.6265e-06 ,8.8017e-04 ,1.5882e-03 ,2.2893e-03 ,2.9763e-03 ,3.6352e-03 , & - &4.2916e-03 ,5.1439e-03 ,5.4622e-03 /) - kao(:, 1, 5, 4) = (/ & - &4.8447e-06 ,5.8594e-04 ,1.0296e-03 ,1.4656e-03 ,1.8696e-03 ,2.2619e-03 , & - &2.6388e-03 ,3.0084e-03 ,3.1950e-03 /) - kao(:, 2, 5, 4) = (/ & - &5.5680e-06 ,6.3350e-04 ,1.1054e-03 ,1.5640e-03 ,2.0148e-03 ,2.4702e-03 , & - &2.8772e-03 ,3.3130e-03 ,3.5193e-03 /) - kao(:, 3, 5, 4) = (/ & - &6.5723e-06 ,6.8615e-04 ,1.1977e-03 ,1.6753e-03 ,2.1497e-03 ,2.6254e-03 , & - &3.0969e-03 ,3.5912e-03 ,3.8422e-03 /) - kao(:, 4, 5, 4) = (/ & - &7.8530e-06 ,7.4277e-04 ,1.2884e-03 ,1.8101e-03 ,2.3101e-03 ,2.7992e-03 , & - &3.2952e-03 ,3.8151e-03 ,4.0689e-03 /) - kao(:, 5, 5, 4) = (/ & - &9.4527e-06 ,8.0105e-04 ,1.3871e-03 ,1.9371e-03 ,2.4908e-03 ,3.0121e-03 , & - &3.5288e-03 ,4.0532e-03 ,4.3486e-03 /) - kao(:, 1, 6, 4) = (/ & - &7.9687e-06 ,5.4507e-04 ,8.9513e-04 ,1.2382e-03 ,1.5589e-03 ,1.8510e-03 , & - &2.1398e-03 ,2.3860e-03 ,2.4635e-03 /) - kao(:, 2, 6, 4) = (/ & - &8.8712e-06 ,5.9098e-04 ,9.7039e-04 ,1.3235e-03 ,1.6755e-03 ,2.0285e-03 , & - &2.3501e-03 ,2.6411e-03 ,2.7555e-03 /) - kao(:, 3, 6, 4) = (/ & - &1.0300e-05 ,6.3947e-04 ,1.0497e-03 ,1.4366e-03 ,1.7944e-03 ,2.1608e-03 , & - &2.5184e-03 ,2.8809e-03 ,3.0211e-03 /) - kao(:, 4, 6, 4) = (/ & - &1.2171e-05 ,6.9277e-04 ,1.1370e-03 ,1.5510e-03 ,1.9450e-03 ,2.3217e-03 , & - &2.6890e-03 ,3.0692e-03 ,3.2284e-03 /) - kao(:, 5, 6, 4) = (/ & - &1.4564e-05 ,7.4600e-04 ,1.2318e-03 ,1.6801e-03 ,2.0948e-03 ,2.5115e-03 , & - &2.8923e-03 ,3.2756e-03 ,3.4483e-03 /) - kao(:, 1, 7, 4) = (/ & - &1.3302e-05 ,5.5386e-04 ,8.3382e-04 ,1.0993e-03 ,1.3564e-03 ,1.5663e-03 , & - &1.7522e-03 ,1.9212e-03 ,1.8928e-03 /) - kao(:, 2, 7, 4) = (/ & - &1.5137e-05 ,6.0362e-04 ,9.0303e-04 ,1.1816e-03 ,1.4350e-03 ,1.6949e-03 , & - &1.9391e-03 ,2.1345e-03 ,2.1400e-03 /) - kao(:, 3, 7, 4) = (/ & - &1.7393e-05 ,6.5556e-04 ,9.7760e-04 ,1.2752e-03 ,1.5638e-03 ,1.8142e-03 , & - &2.0760e-03 ,2.3419e-03 ,2.3618e-03 /) - kao(:, 4, 7, 4) = (/ & - &2.0190e-05 ,7.0877e-04 ,1.0583e-03 ,1.3832e-03 ,1.6934e-03 ,1.9720e-03 , & - &2.2273e-03 ,2.4896e-03 ,2.5682e-03 /) - kao(:, 5, 7, 4) = (/ & - &2.3865e-05 ,7.6246e-04 ,1.1476e-03 ,1.5003e-03 ,1.8325e-03 ,2.1363e-03 , & - &2.4216e-03 ,2.6647e-03 ,2.7377e-03 /) - kao(:, 1, 8, 4) = (/ & - &2.8723e-05 ,5.8785e-04 ,8.8654e-04 ,1.0769e-03 ,1.2579e-03 ,1.4310e-03 , & - &1.5394e-03 ,1.5987e-03 ,1.4479e-03 /) - kao(:, 2, 8, 4) = (/ & - &3.1951e-05 ,6.5934e-04 ,9.7493e-04 ,1.1672e-03 ,1.3594e-03 ,1.5243e-03 , & - &1.6749e-03 ,1.7779e-03 ,1.6535e-03 /) - kao(:, 3, 8, 4) = (/ & - &3.6028e-05 ,7.3349e-04 ,1.0597e-03 ,1.2704e-03 ,1.4675e-03 ,1.6499e-03 , & - &1.7965e-03 ,1.9280e-03 ,1.8443e-03 /) - kao(:, 4, 8, 4) = (/ & - &4.1972e-05 ,7.9901e-04 ,1.1534e-03 ,1.3845e-03 ,1.5898e-03 ,1.7819e-03 , & - &1.9610e-03 ,2.0652e-03 ,2.0278e-03 /) - kao(:, 5, 8, 4) = (/ & - &4.8818e-05 ,8.6068e-04 ,1.2469e-03 ,1.5029e-03 ,1.7252e-03 ,1.9359e-03 , & - &2.1153e-03 ,2.2493e-03 ,2.1613e-03 /) - kao(:, 1, 9, 4) = (/ & - &1.2151e-04 ,7.9394e-04 ,1.1551e-03 ,1.4165e-03 ,1.6142e-03 ,1.6912e-03 , & - &1.6602e-03 ,1.6194e-03 ,1.1991e-03 /) - kao(:, 2, 9, 4) = (/ & - &1.3408e-04 ,8.8305e-04 ,1.2970e-03 ,1.6023e-03 ,1.7938e-03 ,1.8665e-03 , & - &1.8031e-03 ,1.7264e-03 ,1.3714e-03 /) - kao(:, 3, 9, 4) = (/ & - &1.5040e-04 ,9.7901e-04 ,1.4287e-03 ,1.7867e-03 ,2.0033e-03 ,2.0339e-03 , & - &1.9620e-03 ,1.8611e-03 ,1.5284e-03 /) - kao(:, 4, 9, 4) = (/ & - &1.6901e-04 ,1.0844e-03 ,1.5638e-03 ,1.9651e-03 ,2.1812e-03 ,2.2146e-03 , & - &2.1459e-03 ,2.0086e-03 ,1.6589e-03 /) - kao(:, 5, 9, 4) = (/ & - &1.9165e-04 ,1.1941e-03 ,1.7106e-03 ,2.1260e-03 ,2.3624e-03 ,2.4142e-03 , & - &2.3405e-03 ,2.1792e-03 ,1.8085e-03 /) - kao(:, 1,10, 4) = (/ & - &5.9868e-04 ,1.5993e-03 ,1.9364e-03 ,2.1129e-03 ,2.2524e-03 ,2.3246e-03 , & - &2.2594e-03 ,2.0146e-03 ,1.3568e-03 /) - kao(:, 2,10, 4) = (/ & - &6.6752e-04 ,1.7567e-03 ,2.1277e-03 ,2.3435e-03 ,2.4977e-03 ,2.6109e-03 , & - &2.5681e-03 ,2.2608e-03 ,1.5177e-03 /) - kao(:, 3,10, 4) = (/ & - &7.4901e-04 ,1.9228e-03 ,2.3324e-03 ,2.5957e-03 ,2.7706e-03 ,2.8949e-03 , & - &2.8715e-03 ,2.4740e-03 ,1.6681e-03 /) - kao(:, 4,10, 4) = (/ & - &8.4268e-04 ,2.1035e-03 ,2.5651e-03 ,2.8675e-03 ,3.0553e-03 ,3.1760e-03 , & - &3.1745e-03 ,2.7207e-03 ,1.8575e-03 /) - kao(:, 5,10, 4) = (/ & - &9.4245e-04 ,2.2879e-03 ,2.8080e-03 ,3.1494e-03 ,3.3540e-03 ,3.4813e-03 , & - &3.4487e-03 ,2.9536e-03 ,2.0691e-03 /) - kao(:, 1,11, 4) = (/ & - &1.0805e-03 ,2.1148e-03 ,2.4220e-03 ,2.5310e-03 ,2.5389e-03 ,2.4625e-03 , & - &2.3509e-03 ,2.0401e-03 ,1.4417e-03 /) - kao(:, 2,11, 4) = (/ & - &1.2248e-03 ,2.3043e-03 ,2.6421e-03 ,2.7805e-03 ,2.8051e-03 ,2.7290e-03 , & - &2.6298e-03 ,2.3094e-03 ,1.6718e-03 /) - kao(:, 3,11, 4) = (/ & - &1.3919e-03 ,2.5018e-03 ,2.8694e-03 ,3.0522e-03 ,3.0921e-03 ,3.0140e-03 , & - &2.9024e-03 ,2.5763e-03 ,1.8644e-03 /) - kao(:, 4,11, 4) = (/ & - &1.5591e-03 ,2.7193e-03 ,3.1319e-03 ,3.3417e-03 ,3.3992e-03 ,3.3292e-03 , & - &3.1865e-03 ,2.8388e-03 ,2.0955e-03 /) - kao(:, 5,11, 4) = (/ & - &1.7150e-03 ,2.9473e-03 ,3.3980e-03 ,3.6551e-03 ,3.7158e-03 ,3.6708e-03 , & - &3.4907e-03 ,3.0872e-03 ,2.3494e-03 /) - kao(:, 1,12, 4) = (/ & - &1.3897e-03 ,2.3284e-03 ,2.5562e-03 ,2.6114e-03 ,2.5756e-03 ,2.4579e-03 , & - &2.2328e-03 ,1.8907e-03 ,1.4460e-03 /) - kao(:, 2,12, 4) = (/ & - &1.5697e-03 ,2.5462e-03 ,2.7773e-03 ,2.8739e-03 ,2.8515e-03 ,2.7127e-03 , & - &2.4702e-03 ,2.1317e-03 ,1.6710e-03 /) - kao(:, 3,12, 4) = (/ & - &1.7564e-03 ,2.7736e-03 ,3.0368e-03 ,3.1575e-03 ,3.1336e-03 ,2.9932e-03 , & - &2.7316e-03 ,2.3689e-03 ,1.9165e-03 /) - kao(:, 4,12, 4) = (/ & - &1.9373e-03 ,3.0028e-03 ,3.3026e-03 ,3.4473e-03 ,3.4197e-03 ,3.2885e-03 , & - &3.0105e-03 ,2.5975e-03 ,2.1734e-03 /) - kao(:, 5,12, 4) = (/ & - &2.1103e-03 ,3.2861e-03 ,3.6126e-03 ,3.7579e-03 ,3.7472e-03 ,3.5983e-03 , & - &3.3137e-03 ,2.8243e-03 ,2.4241e-03 /) - kao(:, 1,13, 4) = (/ & - &1.4034e-03 ,2.2073e-03 ,2.3423e-03 ,2.3940e-03 ,2.3352e-03 ,2.2289e-03 , & - &1.9861e-03 ,1.6453e-03 ,1.3641e-03 /) - kao(:, 2,13, 4) = (/ & - &1.5468e-03 ,2.3993e-03 ,2.5715e-03 ,2.6353e-03 ,2.5905e-03 ,2.4689e-03 , & - &2.2035e-03 ,1.8516e-03 ,1.5595e-03 /) - kao(:, 3,13, 4) = (/ & - &1.7054e-03 ,2.6002e-03 ,2.8041e-03 ,2.9001e-03 ,2.8726e-03 ,2.7020e-03 , & - &2.4437e-03 ,2.0505e-03 ,1.7798e-03 /) - kao(:, 4,13, 4) = (/ & - &1.8746e-03 ,2.8344e-03 ,3.0758e-03 ,3.1886e-03 ,3.1543e-03 ,2.9591e-03 , & - &2.7010e-03 ,2.2473e-03 ,2.0185e-03 /) - kao(:, 5,13, 4) = (/ & - &2.0493e-03 ,3.1290e-03 ,3.3711e-03 ,3.5047e-03 ,3.4626e-03 ,3.2529e-03 , & - &2.9617e-03 ,2.4466e-03 ,2.2855e-03 /) - kao(:, 1, 1, 5) = (/ & - &2.7288e-06 ,2.0772e-03 ,4.1339e-03 ,6.3040e-03 ,8.6169e-03 ,1.1216e-02 , & - &1.4425e-02 ,1.9774e-02 ,1.7219e-02 /) - kao(:, 2, 1, 5) = (/ & - &3.1343e-06 ,2.2547e-03 ,4.4747e-03 ,6.8269e-03 ,9.3305e-03 ,1.2134e-02 , & - &1.5662e-02 ,2.1511e-02 ,1.8646e-02 /) - kao(:, 3, 1, 5) = (/ & - &3.5230e-06 ,2.4421e-03 ,4.8659e-03 ,7.3919e-03 ,1.0064e-02 ,1.3080e-02 , & - &1.6864e-02 ,2.3200e-02 ,2.0105e-02 /) - kao(:, 4, 1, 5) = (/ & - &3.8970e-06 ,2.6162e-03 ,5.2335e-03 ,7.9722e-03 ,1.0895e-02 ,1.4129e-02 , & - &1.8093e-02 ,2.4994e-02 ,2.1780e-02 /) - kao(:, 5, 1, 5) = (/ & - &4.2153e-06 ,2.7842e-03 ,5.5880e-03 ,8.5221e-03 ,1.1648e-02 ,1.5136e-02 , & - &1.9474e-02 ,2.6742e-02 ,2.3280e-02 /) - kao(:, 1, 2, 5) = (/ & - &3.8170e-06 ,1.7299e-03 ,3.3770e-03 ,5.0561e-03 ,6.8488e-03 ,8.8137e-03 , & - &1.1142e-02 ,1.4709e-02 ,1.3674e-02 /) - kao(:, 2, 2, 5) = (/ & - &4.3252e-06 ,1.8890e-03 ,3.6509e-03 ,5.4769e-03 ,7.4269e-03 ,9.5439e-03 , & - &1.2081e-02 ,1.6033e-02 ,1.4831e-02 /) - kao(:, 3, 2, 5) = (/ & - &4.7646e-06 ,2.0435e-03 ,3.9774e-03 ,5.9664e-03 ,8.0622e-03 ,1.0295e-02 , & - &1.3026e-02 ,1.7373e-02 ,1.6093e-02 /) - kao(:, 4, 2, 5) = (/ & - &5.2162e-06 ,2.1898e-03 ,4.2814e-03 ,6.4462e-03 ,8.7251e-03 ,1.1197e-02 , & - &1.4093e-02 ,1.8642e-02 ,1.7418e-02 /) - kao(:, 5, 2, 5) = (/ & - &5.6571e-06 ,2.3346e-03 ,4.5674e-03 ,6.8936e-03 ,9.3452e-03 ,1.2004e-02 , & - &1.5146e-02 ,2.0072e-02 ,1.8662e-02 /) - kao(:, 1, 3, 5) = (/ & - &6.7841e-06 ,1.4874e-03 ,2.7805e-03 ,4.0760e-03 ,5.3909e-03 ,6.7517e-03 , & - &8.3542e-03 ,1.0487e-02 ,1.0633e-02 /) - kao(:, 2, 3, 5) = (/ & - &7.5652e-06 ,1.6242e-03 ,3.0372e-03 ,4.4125e-03 ,5.8428e-03 ,7.3572e-03 , & - &9.0599e-03 ,1.1418e-02 ,1.1564e-02 /) - kao(:, 3, 3, 5) = (/ & - &8.3338e-06 ,1.7491e-03 ,3.3027e-03 ,4.8269e-03 ,6.3750e-03 ,7.9902e-03 , & - &9.8070e-03 ,1.2345e-02 ,1.2611e-02 /) - kao(:, 4, 3, 5) = (/ & - &9.1322e-06 ,1.8750e-03 ,3.5479e-03 ,5.2057e-03 ,6.8969e-03 ,8.6842e-03 , & - &1.0693e-02 ,1.3305e-02 ,1.3678e-02 /) - kao(:, 5, 3, 5) = (/ & - &9.9531e-06 ,2.0097e-03 ,3.7981e-03 ,5.5735e-03 ,7.4004e-03 ,9.3447e-03 , & - &1.1509e-02 ,1.4423e-02 ,1.4706e-02 /) - kao(:, 1, 4, 5) = (/ & - &1.2103e-05 ,1.3043e-03 ,2.3537e-03 ,3.3772e-03 ,4.3942e-03 ,5.3862e-03 , & - &6.4402e-03 ,7.7504e-03 ,8.3034e-03 /) - kao(:, 2, 4, 5) = (/ & - &1.3453e-05 ,1.4203e-03 ,2.5925e-03 ,3.7016e-03 ,4.7682e-03 ,5.8654e-03 , & - &7.0102e-03 ,8.4347e-03 ,9.0709e-03 /) - kao(:, 3, 4, 5) = (/ & - &1.4828e-05 ,1.5367e-03 ,2.8071e-03 ,4.0356e-03 ,5.2345e-03 ,6.4096e-03 , & - &7.5937e-03 ,9.1611e-03 ,9.8978e-03 /) - kao(:, 4, 4, 5) = (/ & - &1.6265e-05 ,1.6502e-03 ,3.0181e-03 ,4.3485e-03 ,5.6510e-03 ,6.9455e-03 , & - &8.2885e-03 ,9.9540e-03 ,1.0767e-02 /) - kao(:, 5, 4, 5) = (/ & - &1.7755e-05 ,1.7615e-03 ,3.2390e-03 ,4.6692e-03 ,6.0695e-03 ,7.4667e-03 , & - &8.9542e-03 ,1.0781e-02 ,1.1635e-02 /) - kao(:, 1, 5, 5) = (/ & - &2.0332e-05 ,1.1698e-03 ,2.0394e-03 ,2.8422e-03 ,3.6398e-03 ,4.4106e-03 , & - &5.1682e-03 ,5.9629e-03 ,6.5029e-03 /) - kao(:, 2, 5, 5) = (/ & - &2.2530e-05 ,1.2736e-03 ,2.2339e-03 ,3.1431e-03 ,3.9975e-03 ,4.8072e-03 , & - &5.6451e-03 ,6.5119e-03 ,7.1285e-03 /) - kao(:, 3, 5, 5) = (/ & - &2.4796e-05 ,1.3790e-03 ,2.4265e-03 ,3.4174e-03 ,4.3749e-03 ,5.2936e-03 , & - &6.1677e-03 ,7.0807e-03 ,7.7613e-03 /) - kao(:, 4, 5, 5) = (/ & - &2.7075e-05 ,1.4796e-03 ,2.6222e-03 ,3.6840e-03 ,4.7300e-03 ,5.7397e-03 , & - &6.7237e-03 ,7.7301e-03 ,8.5090e-03 /) - kao(:, 5, 5, 5) = (/ & - &2.9544e-05 ,1.5786e-03 ,2.8146e-03 ,3.9658e-03 ,5.0797e-03 ,6.1834e-03 , & - &7.2517e-03 ,8.3791e-03 ,9.2155e-03 /) - kao(:, 1, 6, 5) = (/ & - &3.1599e-05 ,1.0623e-03 ,1.7784e-03 ,2.4227e-03 ,3.0276e-03 ,3.6296e-03 , & - &4.1838e-03 ,4.7343e-03 ,5.0477e-03 /) - kao(:, 2, 6, 5) = (/ & - &3.5232e-05 ,1.1598e-03 ,1.9531e-03 ,2.6761e-03 ,3.3625e-03 ,3.9768e-03 , & - &4.5866e-03 ,5.2016e-03 ,5.5671e-03 /) - kao(:, 3, 6, 5) = (/ & - &3.8902e-05 ,1.2546e-03 ,2.1314e-03 ,2.9272e-03 ,3.6836e-03 ,4.3880e-03 , & - &5.0585e-03 ,5.6644e-03 ,6.0941e-03 /) - kao(:, 4, 6, 5) = (/ & - &4.2647e-05 ,1.3467e-03 ,2.3051e-03 ,3.1735e-03 ,3.9922e-03 ,4.7680e-03 , & - &5.5151e-03 ,6.2191e-03 ,6.7036e-03 /) - kao(:, 5, 6, 5) = (/ & - &4.6653e-05 ,1.4422e-03 ,2.4729e-03 ,3.4216e-03 ,4.3101e-03 ,5.1401e-03 , & - &5.9675e-03 ,6.7430e-03 ,7.2989e-03 /) - kao(:, 1, 7, 5) = (/ & - &5.0846e-05 ,1.0315e-03 ,1.6111e-03 ,2.1236e-03 ,2.5799e-03 ,3.0310e-03 , & - &3.4624e-03 ,3.8172e-03 ,3.8938e-03 /) - kao(:, 2, 7, 5) = (/ & - &5.6601e-05 ,1.1149e-03 ,1.7798e-03 ,2.3658e-03 ,2.8898e-03 ,3.3716e-03 , & - &3.7952e-03 ,4.1967e-03 ,4.3621e-03 /) - kao(:, 3, 7, 5) = (/ & - &6.2823e-05 ,1.2046e-03 ,1.9431e-03 ,2.5998e-03 ,3.1765e-03 ,3.7177e-03 , & - &4.2137e-03 ,4.5955e-03 ,4.7978e-03 /) - kao(:, 4, 7, 5) = (/ & - &6.9611e-05 ,1.2957e-03 ,2.0957e-03 ,2.8201e-03 ,3.4636e-03 ,4.0605e-03 , & - &4.6007e-03 ,5.0741e-03 ,5.2639e-03 /) - kao(:, 5, 7, 5) = (/ & - &7.6939e-05 ,1.3859e-03 ,2.2478e-03 ,3.0375e-03 ,3.7523e-03 ,4.4027e-03 , & - &4.9784e-03 ,5.5148e-03 ,5.7724e-03 /) - kao(:, 1, 8, 5) = (/ & - &9.6301e-05 ,1.1719e-03 ,1.6543e-03 ,2.0770e-03 ,2.3972e-03 ,2.6733e-03 , & - &2.9412e-03 ,3.1694e-03 ,3.0111e-03 /) - kao(:, 2, 8, 5) = (/ & - &1.0686e-04 ,1.2764e-03 ,1.7930e-03 ,2.2808e-03 ,2.6778e-03 ,3.0239e-03 , & - &3.3001e-03 ,3.5015e-03 ,3.3999e-03 /) - kao(:, 3, 8, 5) = (/ & - &1.1947e-04 ,1.3739e-03 ,1.9473e-03 ,2.4712e-03 ,2.9582e-03 ,3.3516e-03 , & - &3.6623e-03 ,3.8834e-03 ,3.7468e-03 /) - kao(:, 4, 8, 5) = (/ & - &1.3232e-04 ,1.4765e-03 ,2.1012e-03 ,2.6685e-03 ,3.2209e-03 ,3.6672e-03 , & - &4.0113e-03 ,4.2720e-03 ,4.1080e-03 /) - kao(:, 5, 8, 5) = (/ & - &1.4706e-04 ,1.5789e-03 ,2.2554e-03 ,2.8711e-03 ,3.4655e-03 ,3.9725e-03 , & - &4.3795e-03 ,4.6534e-03 ,4.5441e-03 /) - kao(:, 1, 9, 5) = (/ & - &3.5361e-04 ,1.7799e-03 ,2.5051e-03 ,2.9026e-03 ,3.0684e-03 ,3.1720e-03 , & - &3.1736e-03 ,2.9481e-03 ,2.3479e-03 /) - kao(:, 2, 9, 5) = (/ & - &3.8911e-04 ,1.9917e-03 ,2.7818e-03 ,3.1870e-03 ,3.3554e-03 ,3.4634e-03 , & - &3.5258e-03 ,3.3674e-03 ,2.6687e-03 /) - kao(:, 3, 9, 5) = (/ & - &4.2895e-04 ,2.2031e-03 ,3.0511e-03 ,3.4571e-03 ,3.6423e-03 ,3.7656e-03 , & - &3.8544e-03 ,3.7669e-03 ,2.9800e-03 /) - kao(:, 4, 9, 5) = (/ & - &4.7521e-04 ,2.4131e-03 ,3.3032e-03 ,3.7275e-03 ,3.9589e-03 ,4.0895e-03 , & - &4.1693e-03 ,4.1455e-03 ,3.3334e-03 /) - kao(:, 5, 9, 5) = (/ & - &5.2696e-04 ,2.6212e-03 ,3.5469e-03 ,4.0100e-03 ,4.2674e-03 ,4.4062e-03 , & - &4.4862e-03 ,4.5098e-03 ,3.6774e-03 /) - kao(:, 1,10, 5) = (/ & - &1.5564e-03 ,3.2260e-03 ,4.0223e-03 ,4.5990e-03 ,4.8864e-03 ,4.9553e-03 , & - &4.6372e-03 ,3.8115e-03 ,2.4163e-03 /) - kao(:, 2,10, 5) = (/ & - &1.6655e-03 ,3.5530e-03 ,4.4984e-03 ,5.1615e-03 ,5.5140e-03 ,5.5636e-03 , & - &5.1458e-03 ,4.1627e-03 ,2.8169e-03 /) - kao(:, 3,10, 5) = (/ & - &1.7970e-03 ,3.9283e-03 ,4.9975e-03 ,5.7194e-03 ,6.1431e-03 ,6.1500e-03 , & - &5.6336e-03 ,4.5688e-03 ,3.2157e-03 /) - kao(:, 4,10, 5) = (/ & - &1.9389e-03 ,4.3419e-03 ,5.5082e-03 ,6.3036e-03 ,6.7602e-03 ,6.7061e-03 , & - &6.1219e-03 ,4.9831e-03 ,3.5478e-03 /) - kao(:, 5,10, 5) = (/ & - &2.1200e-03 ,4.8101e-03 ,6.0597e-03 ,6.9046e-03 ,7.3538e-03 ,7.2522e-03 , & - &6.6229e-03 ,5.4082e-03 ,3.8617e-03 /) - kao(:, 1,11, 5) = (/ & - &2.5844e-03 ,4.2072e-03 ,4.7201e-03 ,5.1141e-03 ,5.3078e-03 ,5.2931e-03 , & - &4.9397e-03 ,3.9983e-03 ,2.6464e-03 /) - kao(:, 2,11, 5) = (/ & - &2.7239e-03 ,4.5852e-03 ,5.1921e-03 ,5.6631e-03 ,5.9270e-03 ,5.9381e-03 , & - &5.5459e-03 ,4.4351e-03 ,2.9283e-03 /) - kao(:, 3,11, 5) = (/ & - &2.8937e-03 ,4.9994e-03 ,5.7378e-03 ,6.2452e-03 ,6.5647e-03 ,6.5969e-03 , & - &6.1297e-03 ,4.8694e-03 ,3.2879e-03 /) - kao(:, 4,11, 5) = (/ & - &3.0973e-03 ,5.4803e-03 ,6.2977e-03 ,6.8750e-03 ,7.2241e-03 ,7.2627e-03 , & - &6.7036e-03 ,5.3184e-03 ,3.6746e-03 /) - kao(:, 5,11, 5) = (/ & - &3.3444e-03 ,6.0139e-03 ,6.9682e-03 ,7.5496e-03 ,7.9438e-03 ,7.9183e-03 , & - &7.2786e-03 ,5.7800e-03 ,4.1120e-03 /) - kao(:, 1,12, 5) = (/ & - &3.1142e-03 ,4.6509e-03 ,5.0639e-03 ,5.2099e-03 ,5.2596e-03 ,5.1306e-03 , & - &4.7167e-03 ,3.8189e-03 ,2.7150e-03 /) - kao(:, 2,12, 5) = (/ & - &3.2756e-03 ,5.0359e-03 ,5.5390e-03 ,5.7321e-03 ,5.8154e-03 ,5.7214e-03 , & - &5.2745e-03 ,4.2400e-03 ,3.0513e-03 /) - kao(:, 3,12, 5) = (/ & - &3.4985e-03 ,5.4685e-03 ,6.0590e-03 ,6.2917e-03 ,6.4404e-03 ,6.3170e-03 , & - &5.8354e-03 ,4.6512e-03 ,3.3763e-03 /) - kao(:, 4,12, 5) = (/ & - &3.7766e-03 ,5.9630e-03 ,6.6546e-03 ,6.9419e-03 ,7.0961e-03 ,6.9336e-03 , & - &6.4037e-03 ,5.0749e-03 ,3.7160e-03 /) - kao(:, 5,12, 5) = (/ & - &4.1085e-03 ,6.5232e-03 ,7.2797e-03 ,7.6482e-03 ,7.7587e-03 ,7.5770e-03 , & - &6.9583e-03 ,5.5150e-03 ,4.0847e-03 /) - kao(:, 1,13, 5) = (/ & - &2.9969e-03 ,4.3888e-03 ,4.7684e-03 ,4.8307e-03 ,4.7938e-03 ,4.5847e-03 , & - &4.1916e-03 ,3.3359e-03 ,2.6072e-03 /) - kao(:, 2,13, 5) = (/ & - &3.2153e-03 ,4.7897e-03 ,5.2331e-03 ,5.3333e-03 ,5.2913e-03 ,5.1054e-03 , & - &4.6633e-03 ,3.6830e-03 ,2.9306e-03 /) - kao(:, 3,13, 5) = (/ & - &3.4754e-03 ,5.2096e-03 ,5.7373e-03 ,5.8606e-03 ,5.8296e-03 ,5.6492e-03 , & - &5.1331e-03 ,4.0274e-03 ,3.2891e-03 /) - kao(:, 4,13, 5) = (/ & - &3.7596e-03 ,5.6812e-03 ,6.2772e-03 ,6.4413e-03 ,6.4105e-03 ,6.2095e-03 , & - &5.6055e-03 ,4.3924e-03 ,3.6856e-03 /) - kao(:, 5,13, 5) = (/ & - &4.1250e-03 ,6.2069e-03 ,6.8482e-03 ,7.0531e-03 ,7.0243e-03 ,6.7656e-03 , & - &6.0849e-03 ,4.7766e-03 ,4.1519e-03 /) - kao(:, 1, 1, 6) = (/ & - &8.6000e-06 ,4.4651e-03 ,9.0097e-03 ,1.3704e-02 ,1.8645e-02 ,2.4046e-02 , & - &3.0633e-02 ,4.1152e-02 ,3.7281e-02 /) - kao(:, 2, 1, 6) = (/ & - &9.1677e-06 ,4.8343e-03 ,9.7595e-03 ,1.4853e-02 ,2.0235e-02 ,2.6158e-02 , & - &3.3249e-02 ,4.4739e-02 ,4.0461e-02 /) - kao(:, 3, 1, 6) = (/ & - &9.7617e-06 ,5.2064e-03 ,1.0520e-02 ,1.6024e-02 ,2.1831e-02 ,2.8229e-02 , & - &3.6006e-02 ,4.8415e-02 ,4.3651e-02 /) - kao(:, 4, 1, 6) = (/ & - &1.0395e-05 ,5.5866e-03 ,1.1290e-02 ,1.7191e-02 ,2.3426e-02 ,3.0307e-02 , & - &3.8717e-02 ,5.2240e-02 ,4.6842e-02 /) - kao(:, 5, 1, 6) = (/ & - &1.1075e-05 ,5.9593e-03 ,1.2050e-02 ,1.8360e-02 ,2.5043e-02 ,3.2426e-02 , & - &4.1434e-02 ,5.5912e-02 ,5.0074e-02 /) - kao(:, 1, 2, 6) = (/ & - &1.1648e-05 ,3.7355e-03 ,7.3892e-03 ,1.1190e-02 ,1.5132e-02 ,1.9317e-02 , & - &2.4213e-02 ,3.1544e-02 ,3.0250e-02 /) - kao(:, 2, 2, 6) = (/ & - &1.2445e-05 ,4.0410e-03 ,8.0302e-03 ,1.2160e-02 ,1.6448e-02 ,2.1055e-02 , & - &2.6369e-02 ,3.4311e-02 ,3.2880e-02 /) - kao(:, 3, 2, 6) = (/ & - &1.3310e-05 ,4.3542e-03 ,8.6703e-03 ,1.3133e-02 ,1.7778e-02 ,2.2773e-02 , & - &2.8564e-02 ,3.7228e-02 ,3.5538e-02 /) - kao(:, 4, 2, 6) = (/ & - &1.4232e-05 ,4.6616e-03 ,9.3074e-03 ,1.4103e-02 ,1.9095e-02 ,2.4467e-02 , & - &3.0730e-02 ,4.0202e-02 ,3.8172e-02 /) - kao(:, 5, 2, 6) = (/ & - &1.5231e-05 ,4.9691e-03 ,9.9386e-03 ,1.5066e-02 ,2.0413e-02 ,2.6167e-02 , & - &3.2915e-02 ,4.3077e-02 ,4.0807e-02 /) - kao(:, 1, 3, 6) = (/ & - &2.0796e-05 ,3.1636e-03 ,6.0427e-03 ,8.9479e-03 ,1.1951e-02 ,1.5111e-02 , & - &1.8532e-02 ,2.3072e-02 ,2.3870e-02 /) - kao(:, 2, 3, 6) = (/ & - &2.2285e-05 ,3.4357e-03 ,6.5684e-03 ,9.7449e-03 ,1.3046e-02 ,1.6505e-02 , & - &2.0281e-02 ,2.5200e-02 ,2.6059e-02 /) - kao(:, 3, 3, 6) = (/ & - &2.3921e-05 ,3.7148e-03 ,7.1066e-03 ,1.0556e-02 ,1.4151e-02 ,1.7911e-02 , & - &2.2018e-02 ,2.7457e-02 ,2.8268e-02 /) - kao(:, 4, 3, 6) = (/ & - &2.5678e-05 ,3.9815e-03 ,7.6234e-03 ,1.1355e-02 ,1.5233e-02 ,1.9276e-02 , & - &2.3703e-02 ,2.9635e-02 ,3.0431e-02 /) - kao(:, 5, 3, 6) = (/ & - &2.7604e-05 ,4.2441e-03 ,8.1373e-03 ,1.2146e-02 ,1.6312e-02 ,2.0656e-02 , & - &2.5417e-02 ,3.1780e-02 ,3.2590e-02 /) - kao(:, 1, 4, 6) = (/ & - &3.7548e-05 ,2.7525e-03 ,5.0829e-03 ,7.3519e-03 ,9.5921e-03 ,1.1880e-02 , & - &1.4330e-02 ,1.7270e-02 ,1.8770e-02 /) - kao(:, 2, 4, 6) = (/ & - &4.0479e-05 ,3.0018e-03 ,5.5477e-03 ,8.0335e-03 ,1.0500e-02 ,1.3017e-02 , & - &1.5741e-02 ,1.8989e-02 ,2.0592e-02 /) - kao(:, 3, 4, 6) = (/ & - &4.3632e-05 ,3.2358e-03 ,6.0288e-03 ,8.7218e-03 ,1.1388e-02 ,1.4152e-02 , & - &1.7154e-02 ,2.0724e-02 ,2.2417e-02 /) - kao(:, 4, 4, 6) = (/ & - &4.6956e-05 ,3.4641e-03 ,6.4839e-03 ,9.3953e-03 ,1.2286e-02 ,1.5294e-02 , & - &1.8543e-02 ,2.2416e-02 ,2.4245e-02 /) - kao(:, 5, 4, 6) = (/ & - &5.0658e-05 ,3.6946e-03 ,6.9352e-03 ,1.0060e-02 ,1.3165e-02 ,1.6424e-02 , & - &1.9935e-02 ,2.4115e-02 ,2.6056e-02 /) - kao(:, 1, 5, 6) = (/ & - &6.1528e-05 ,2.4644e-03 ,4.3512e-03 ,6.1626e-03 ,7.9327e-03 ,9.6496e-03 , & - &1.1347e-02 ,1.3264e-02 ,1.4745e-02 /) - kao(:, 2, 5, 6) = (/ & - &6.6793e-05 ,2.6844e-03 ,4.7746e-03 ,6.7632e-03 ,8.7202e-03 ,1.0626e-02 , & - &1.2508e-02 ,1.4649e-02 ,1.6279e-02 /) - kao(:, 3, 5, 6) = (/ & - &7.2459e-05 ,2.8961e-03 ,5.1774e-03 ,7.3853e-03 ,9.5105e-03 ,1.1570e-02 , & - &1.3632e-02 ,1.6051e-02 ,1.7802e-02 /) - kao(:, 4, 5, 6) = (/ & - &7.8727e-05 ,3.1045e-03 ,5.5659e-03 ,7.9693e-03 ,1.0288e-02 ,1.2541e-02 , & - &1.4785e-02 ,1.7438e-02 ,1.9338e-02 /) - kao(:, 5, 5, 6) = (/ & - &8.5530e-05 ,3.3182e-03 ,5.9543e-03 ,8.5528e-03 ,1.1059e-02 ,1.3485e-02 , & - &1.5922e-02 ,1.8829e-02 ,2.0873e-02 /) - kao(:, 1, 6, 6) = (/ & - &9.4265e-05 ,2.2301e-03 ,3.8046e-03 ,5.2488e-03 ,6.6170e-03 ,7.9289e-03 , & - &9.1950e-03 ,1.0423e-02 ,1.1518e-02 /) - kao(:, 2, 6, 6) = (/ & - &1.0266e-04 ,2.4246e-03 ,4.1792e-03 ,5.7800e-03 ,7.2894e-03 ,8.7747e-03 , & - &1.0200e-02 ,1.1548e-02 ,1.2780e-02 /) - kao(:, 3, 6, 6) = (/ & - &1.1200e-04 ,2.6239e-03 ,4.5381e-03 ,6.2992e-03 ,7.9916e-03 ,9.6188e-03 , & - &1.1174e-02 ,1.2683e-02 ,1.4059e-02 /) - kao(:, 4, 6, 6) = (/ & - &1.2224e-04 ,2.8287e-03 ,4.8898e-03 ,6.8010e-03 ,8.6582e-03 ,1.0462e-02 , & - &1.2176e-02 ,1.3803e-02 ,1.5334e-02 /) - kao(:, 5, 6, 6) = (/ & - &1.3337e-04 ,3.0366e-03 ,5.2437e-03 ,7.3027e-03 ,9.3153e-03 ,1.1279e-02 , & - &1.3144e-02 ,1.4949e-02 ,1.6628e-02 /) - kao(:, 1, 7, 6) = (/ & - &1.5263e-04 ,2.1146e-03 ,3.4378e-03 ,4.6052e-03 ,5.6815e-03 ,6.6787e-03 , & - &7.5592e-03 ,8.3902e-03 ,8.9861e-03 /) - kao(:, 2, 7, 6) = (/ & - &1.6683e-04 ,2.3125e-03 ,3.7648e-03 ,5.0866e-03 ,6.2982e-03 ,7.4001e-03 , & - &8.4314e-03 ,9.3717e-03 ,1.0001e-02 /) - kao(:, 3, 7, 6) = (/ & - &1.8246e-04 ,2.5152e-03 ,4.0947e-03 ,5.5502e-03 ,6.9009e-03 ,8.1426e-03 , & - &9.2748e-03 ,1.0344e-02 ,1.1085e-02 /) - kao(:, 4, 7, 6) = (/ & - &1.9965e-04 ,2.7190e-03 ,4.4394e-03 ,6.0162e-03 ,7.4822e-03 ,8.8463e-03 , & - &1.0151e-02 ,1.1321e-02 ,1.2163e-02 /) - kao(:, 5, 7, 6) = (/ & - &2.1839e-04 ,2.9201e-03 ,4.7890e-03 ,6.4854e-03 ,8.0589e-03 ,9.5473e-03 , & - &1.0985e-02 ,1.2296e-02 ,1.3266e-02 /) - kao(:, 1, 8, 6) = (/ & - &2.9912e-04 ,2.3311e-03 ,3.4065e-03 ,4.3529e-03 ,5.1991e-03 ,5.9115e-03 , & - &6.5345e-03 ,6.9536e-03 ,6.9673e-03 /) - kao(:, 2, 8, 6) = (/ & - &3.2667e-04 ,2.5198e-03 ,3.7444e-03 ,4.8113e-03 ,5.7475e-03 ,6.5852e-03 , & - &7.2722e-03 ,7.8027e-03 ,7.8100e-03 /) - kao(:, 3, 8, 6) = (/ & - &3.5783e-04 ,2.7045e-03 ,4.0852e-03 ,5.2736e-03 ,6.2947e-03 ,7.2359e-03 , & - &8.0488e-03 ,8.6314e-03 ,8.7294e-03 /) - kao(:, 4, 8, 6) = (/ & - &3.9253e-04 ,2.8930e-03 ,4.4286e-03 ,5.7246e-03 ,6.8467e-03 ,7.8891e-03 , & - &8.7826e-03 ,9.4970e-03 ,9.6421e-03 /) - kao(:, 5, 8, 6) = (/ & - &4.3012e-04 ,3.0887e-03 ,4.7690e-03 ,6.1815e-03 ,7.4286e-03 ,8.5468e-03 , & - &9.5146e-03 ,1.0319e-02 ,1.0565e-02 /) - kao(:, 1, 9, 6) = (/ & - &1.0976e-03 ,4.1506e-03 ,5.1147e-03 ,5.7794e-03 ,6.2915e-03 ,6.5755e-03 , & - &6.7173e-03 ,6.5721e-03 ,5.2619e-03 /) - kao(:, 2, 9, 6) = (/ & - &1.2019e-03 ,4.4814e-03 ,5.5166e-03 ,6.2823e-03 ,6.8818e-03 ,7.2627e-03 , & - &7.4725e-03 ,7.3662e-03 ,5.9464e-03 /) - kao(:, 3, 9, 6) = (/ & - &1.3207e-03 ,4.7927e-03 ,5.9242e-03 ,6.7576e-03 ,7.4599e-03 ,7.9614e-03 , & - &8.2442e-03 ,8.1477e-03 ,6.6764e-03 /) - kao(:, 4, 9, 6) = (/ & - &1.4520e-03 ,5.0989e-03 ,6.3402e-03 ,7.2519e-03 ,8.0196e-03 ,8.6608e-03 , & - &9.0083e-03 ,8.9373e-03 ,7.4095e-03 /) - kao(:, 5, 9, 6) = (/ & - &1.5966e-03 ,5.4241e-03 ,6.7693e-03 ,7.7581e-03 ,8.6262e-03 ,9.3645e-03 , & - &9.7704e-03 ,9.7289e-03 ,8.1550e-03 /) - kao(:, 1,10, 6) = (/ & - &4.4394e-03 ,9.1190e-03 ,1.0725e-02 ,1.1220e-02 ,1.1152e-02 ,1.0508e-02 , & - &9.4386e-03 ,7.8107e-03 ,4.9143e-03 /) - kao(:, 2,10, 6) = (/ & - &4.8803e-03 ,1.0187e-02 ,1.1809e-02 ,1.2265e-02 ,1.2072e-02 ,1.1380e-02 , & - &1.0318e-02 ,8.6414e-03 ,5.6112e-03 /) - kao(:, 3,10, 6) = (/ & - &5.3784e-03 ,1.1243e-02 ,1.2866e-02 ,1.3294e-02 ,1.2988e-02 ,1.2282e-02 , & - &1.1181e-02 ,9.4518e-03 ,6.2671e-03 /) - kao(:, 4,10, 6) = (/ & - &5.9406e-03 ,1.2247e-02 ,1.3888e-02 ,1.4276e-02 ,1.3911e-02 ,1.3225e-02 , & - &1.2026e-02 ,1.0238e-02 ,6.9421e-03 /) - kao(:, 5,10, 6) = (/ & - &6.5660e-03 ,1.3194e-02 ,1.4891e-02 ,1.5253e-02 ,1.4902e-02 ,1.4176e-02 , & - &1.2864e-02 ,1.1066e-02 ,7.6281e-03 /) - kao(:, 1,11, 6) = (/ & - &6.6711e-03 ,1.1267e-02 ,1.2748e-02 ,1.3242e-02 ,1.2977e-02 ,1.2030e-02 , & - &1.0523e-02 ,8.3002e-03 ,5.3202e-03 /) - kao(:, 2,11, 6) = (/ & - &7.3092e-03 ,1.2565e-02 ,1.4207e-02 ,1.4653e-02 ,1.4245e-02 ,1.3138e-02 , & - &1.1437e-02 ,9.1124e-03 ,6.0956e-03 /) - kao(:, 3,11, 6) = (/ & - &8.0261e-03 ,1.3900e-02 ,1.5599e-02 ,1.6022e-02 ,1.5510e-02 ,1.4232e-02 , & - &1.2399e-02 ,9.8954e-03 ,6.7920e-03 /) - kao(:, 4,11, 6) = (/ & - &8.8835e-03 ,1.5218e-02 ,1.7018e-02 ,1.7348e-02 ,1.6755e-02 ,1.5328e-02 , & - &1.3427e-02 ,1.0676e-02 ,7.4156e-03 /) - kao(:, 5,11, 6) = (/ & - &9.8592e-03 ,1.6591e-02 ,1.8382e-02 ,1.8693e-02 ,1.7995e-02 ,1.6489e-02 , & - &1.4464e-02 ,1.1488e-02 ,8.0687e-03 /) - kao(:, 1,12, 6) = (/ & - &7.8286e-03 ,1.1844e-02 ,1.2951e-02 ,1.3269e-02 ,1.2819e-02 ,1.1719e-02 , & - &1.0146e-02 ,7.7901e-03 ,5.3706e-03 /) - kao(:, 2,12, 6) = (/ & - &8.5205e-03 ,1.3089e-02 ,1.4355e-02 ,1.4624e-02 ,1.4116e-02 ,1.2895e-02 , & - &1.1103e-02 ,8.5730e-03 ,5.9882e-03 /) - kao(:, 3,12, 6) = (/ & - &9.3309e-03 ,1.4405e-02 ,1.5746e-02 ,1.6010e-02 ,1.5387e-02 ,1.4067e-02 , & - &1.2065e-02 ,9.3726e-03 ,6.6686e-03 /) - kao(:, 4,12, 6) = (/ & - &1.0285e-02 ,1.5780e-02 ,1.7147e-02 ,1.7368e-02 ,1.6677e-02 ,1.5224e-02 , & - &1.3058e-02 ,1.0197e-02 ,7.3827e-03 /) - kao(:, 5,12, 6) = (/ & - &1.1378e-02 ,1.7192e-02 ,1.8621e-02 ,1.8778e-02 ,1.8045e-02 ,1.6433e-02 , & - &1.4105e-02 ,1.1017e-02 ,8.1428e-03 /) - kao(:, 1,13, 6) = (/ & - &7.7075e-03 ,1.1053e-02 ,1.1788e-02 ,1.1798e-02 ,1.1282e-02 ,1.0218e-02 , & - &8.7608e-03 ,6.6974e-03 ,4.9774e-03 /) - kao(:, 2,13, 6) = (/ & - &8.3931e-03 ,1.2074e-02 ,1.2868e-02 ,1.2866e-02 ,1.2320e-02 ,1.1165e-02 , & - &9.5984e-03 ,7.4025e-03 ,5.6029e-03 /) - kao(:, 3,13, 6) = (/ & - &9.1257e-03 ,1.3198e-02 ,1.3994e-02 ,1.3989e-02 ,1.3400e-02 ,1.2194e-02 , & - &1.0455e-02 ,8.1317e-03 ,6.2279e-03 /) - kao(:, 4,13, 6) = (/ & - &9.9594e-03 ,1.4337e-02 ,1.5200e-02 ,1.5161e-02 ,1.4494e-02 ,1.3263e-02 , & - &1.1356e-02 ,8.8525e-03 ,6.8478e-03 /) - kao(:, 5,13, 6) = (/ & - &1.0855e-02 ,1.5527e-02 ,1.6501e-02 ,1.6412e-02 ,1.5661e-02 ,1.4395e-02 , & - &1.2355e-02 ,9.5887e-03 ,7.3951e-03 /) - kao(:, 1, 1, 7) = (/ & - &2.8482e-05 ,1.1072e-02 ,2.2376e-02 ,3.4052e-02 ,4.6363e-02 ,5.9888e-02 , & - &7.6137e-02 ,1.0147e-01 ,9.2714e-02 /) - kao(:, 2, 1, 7) = (/ & - &2.9459e-05 ,1.1920e-02 ,2.4092e-02 ,3.6662e-02 ,4.9933e-02 ,6.4531e-02 , & - &8.2136e-02 ,1.0950e-01 ,9.9856e-02 /) - kao(:, 3, 1, 7) = (/ & - &3.0378e-05 ,1.2748e-02 ,2.5776e-02 ,3.9242e-02 ,5.3450e-02 ,6.9069e-02 , & - &8.7941e-02 ,1.1741e-01 ,1.0689e-01 /) - kao(:, 4, 1, 7) = (/ & - &3.1242e-05 ,1.3565e-02 ,2.7429e-02 ,4.1762e-02 ,5.6896e-02 ,7.3556e-02 , & - &9.3626e-02 ,1.2500e-01 ,1.1378e-01 /) - kao(:, 5, 1, 7) = (/ & - &3.2096e-05 ,1.4368e-02 ,2.9038e-02 ,4.4226e-02 ,6.0256e-02 ,7.7920e-02 , & - &9.9246e-02 ,1.3270e-01 ,1.2050e-01 /) - kao(:, 1, 2, 7) = (/ & - &3.8108e-05 ,9.1980e-03 ,1.8505e-02 ,2.8037e-02 ,3.7923e-02 ,4.8524e-02 , & - &6.0800e-02 ,7.8866e-02 ,7.5829e-02 /) - kao(:, 2, 2, 7) = (/ & - &3.9453e-05 ,9.9404e-03 ,2.0012e-02 ,3.0307e-02 ,4.0999e-02 ,5.2467e-02 , & - &6.5752e-02 ,8.5496e-02 ,8.1980e-02 /) - kao(:, 3, 2, 7) = (/ & - &4.0728e-05 ,1.0645e-02 ,2.1444e-02 ,3.2483e-02 ,4.3962e-02 ,5.6282e-02 , & - &7.0607e-02 ,9.1834e-02 ,8.7906e-02 /) - kao(:, 4, 2, 7) = (/ & - &4.1960e-05 ,1.1349e-02 ,2.2852e-02 ,3.4627e-02 ,4.6872e-02 ,6.0009e-02 , & - &7.5320e-02 ,9.8100e-02 ,9.3725e-02 /) - kao(:, 5, 2, 7) = (/ & - &4.3152e-05 ,1.2042e-02 ,2.4257e-02 ,3.6759e-02 ,4.9754e-02 ,6.3714e-02 , & - &7.9963e-02 ,1.0426e-01 ,9.9487e-02 /) - kao(:, 1, 3, 7) = (/ & - &6.8682e-05 ,7.6817e-03 ,1.5032e-02 ,2.2610e-02 ,3.0354e-02 ,3.8397e-02 , & - &4.7144e-02 ,5.8545e-02 ,6.0680e-02 /) - kao(:, 2, 3, 7) = (/ & - &7.1048e-05 ,8.3077e-03 ,1.6309e-02 ,2.4554e-02 ,3.2973e-02 ,4.1716e-02 , & - &5.1249e-02 ,6.3726e-02 ,6.5916e-02 /) - kao(:, 3, 3, 7) = (/ & - &7.3516e-05 ,8.8904e-03 ,1.7519e-02 ,2.6389e-02 ,3.5446e-02 ,4.4862e-02 , & - &5.5125e-02 ,6.8637e-02 ,7.0859e-02 /) - kao(:, 4, 3, 7) = (/ & - &7.5927e-05 ,9.4787e-03 ,1.8742e-02 ,2.8235e-02 ,3.7922e-02 ,4.7994e-02 , & - &5.8964e-02 ,7.3444e-02 ,7.5806e-02 /) - kao(:, 5, 3, 7) = (/ & - &7.8228e-05 ,1.0059e-02 ,1.9946e-02 ,3.0057e-02 ,4.0372e-02 ,5.1096e-02 , & - &6.2816e-02 ,7.8277e-02 ,8.0701e-02 /) - kao(:, 1, 4, 7) = (/ & - &1.2728e-04 ,6.6847e-03 ,1.2528e-02 ,1.8338e-02 ,2.4310e-02 ,3.0521e-02 , & - &3.7034e-02 ,4.4629e-02 ,4.8506e-02 /) - kao(:, 2, 4, 7) = (/ & - &1.3229e-04 ,7.2462e-03 ,1.3606e-02 ,1.9949e-02 ,2.6505e-02 ,3.3306e-02 , & - &4.0432e-02 ,4.8804e-02 ,5.2931e-02 /) - kao(:, 3, 4, 7) = (/ & - &1.3690e-04 ,7.7950e-03 ,1.4636e-02 ,2.1498e-02 ,2.8618e-02 ,3.5967e-02 , & - &4.3669e-02 ,5.2720e-02 ,5.7159e-02 /) - kao(:, 4, 4, 7) = (/ & - &1.4141e-04 ,8.3363e-03 ,1.5650e-02 ,2.3036e-02 ,3.0707e-02 ,3.8607e-02 , & - &4.6880e-02 ,5.6623e-02 ,6.1327e-02 /) - kao(:, 5, 4, 7) = (/ & - &1.4572e-04 ,8.8720e-03 ,1.6649e-02 ,2.4570e-02 ,3.2799e-02 ,4.1227e-02 , & - &5.0069e-02 ,6.0500e-02 ,6.5502e-02 /) - kao(:, 1, 5, 7) = (/ & - &2.1573e-04 ,5.8827e-03 ,1.0779e-02 ,1.5450e-02 ,1.9971e-02 ,2.4513e-02 , & - &2.9346e-02 ,3.4831e-02 ,3.8718e-02 /) - kao(:, 2, 5, 7) = (/ & - &2.2440e-04 ,6.4009e-03 ,1.1752e-02 ,1.6862e-02 ,2.1813e-02 ,2.6822e-02 , & - &3.2187e-02 ,3.8239e-02 ,4.2467e-02 /) - kao(:, 3, 5, 7) = (/ & - &2.3312e-04 ,6.9022e-03 ,1.2696e-02 ,1.8213e-02 ,2.3573e-02 ,2.9063e-02 , & - &3.4955e-02 ,4.1525e-02 ,4.6111e-02 /) - kao(:, 4, 5, 7) = (/ & - &2.4120e-04 ,7.3983e-03 ,1.3629e-02 ,1.9546e-02 ,2.5293e-02 ,3.1249e-02 , & - &3.7630e-02 ,4.4709e-02 ,4.9634e-02 /) - kao(:, 5, 5, 7) = (/ & - &2.4900e-04 ,7.8813e-03 ,1.4548e-02 ,2.0857e-02 ,2.7012e-02 ,3.3451e-02 , & - &4.0320e-02 ,4.7915e-02 ,5.3175e-02 /) - kao(:, 1, 6, 7) = (/ & - &3.4036e-04 ,5.3231e-03 ,9.2729e-03 ,1.3061e-02 ,1.6728e-02 ,2.0215e-02 , & - &2.3560e-02 ,2.7195e-02 ,3.0556e-02 /) - kao(:, 2, 6, 7) = (/ & - &3.5502e-04 ,5.8134e-03 ,1.0151e-02 ,1.4345e-02 ,1.8389e-02 ,2.2227e-02 , & - &2.5905e-02 ,3.0036e-02 ,3.3756e-02 /) - kao(:, 3, 6, 7) = (/ & - &3.6934e-04 ,6.2790e-03 ,1.1006e-02 ,1.5584e-02 ,1.9972e-02 ,2.4157e-02 , & - &2.8189e-02 ,3.2811e-02 ,3.6865e-02 /) - kao(:, 4, 6, 7) = (/ & - &3.8386e-04 ,6.7401e-03 ,1.1853e-02 ,1.6807e-02 ,2.1541e-02 ,2.6034e-02 , & - &3.0406e-02 ,3.5498e-02 ,3.9873e-02 /) - kao(:, 5, 6, 7) = (/ & - &3.9798e-04 ,7.1899e-03 ,1.2680e-02 ,1.7996e-02 ,2.3081e-02 ,2.7888e-02 , & - &3.2622e-02 ,3.8170e-02 ,4.2864e-02 /) - kao(:, 1, 7, 7) = (/ & - &5.6321e-04 ,5.0131e-03 ,8.3197e-03 ,1.1342e-02 ,1.4164e-02 ,1.6877e-02 , & - &1.9447e-02 ,2.1713e-02 ,2.3905e-02 /) - kao(:, 2, 7, 7) = (/ & - &5.9016e-04 ,5.4925e-03 ,9.1570e-03 ,1.2482e-02 ,1.5641e-02 ,1.8693e-02 , & - &2.1556e-02 ,2.4086e-02 ,2.6629e-02 /) - kao(:, 3, 7, 7) = (/ & - &6.1706e-04 ,5.9641e-03 ,9.9615e-03 ,1.3605e-02 ,1.7087e-02 ,2.0445e-02 , & - &2.3593e-02 ,2.6361e-02 ,2.9262e-02 /) - kao(:, 4, 7, 7) = (/ & - &6.4250e-04 ,6.4355e-03 ,1.0740e-02 ,1.4689e-02 ,1.8507e-02 ,2.2162e-02 , & - &2.5558e-02 ,2.8565e-02 ,3.1822e-02 /) - kao(:, 5, 7, 7) = (/ & - &6.6706e-04 ,6.9143e-03 ,1.1505e-02 ,1.5753e-02 ,1.9886e-02 ,2.3836e-02 , & - &2.7497e-02 ,3.0749e-02 ,3.4313e-02 /) - kao(:, 1, 8, 7) = (/ & - &1.1137e-03 ,5.2798e-03 ,8.0960e-03 ,1.0553e-02 ,1.2781e-02 ,1.4788e-02 , & - &1.6508e-02 ,1.7972e-02 ,1.8634e-02 /) - kao(:, 2, 8, 7) = (/ & - &1.1746e-03 ,5.8110e-03 ,8.9215e-03 ,1.1680e-02 ,1.4167e-02 ,1.6394e-02 , & - &1.8389e-02 ,2.0091e-02 ,2.0946e-02 /) - kao(:, 3, 8, 7) = (/ & - &1.2333e-03 ,6.3510e-03 ,9.7459e-03 ,1.2786e-02 ,1.5523e-02 ,1.7978e-02 , & - &2.0210e-02 ,2.2150e-02 ,2.3198e-02 /) - kao(:, 4, 8, 7) = (/ & - &1.2923e-03 ,6.8806e-03 ,1.0573e-02 ,1.3874e-02 ,1.6833e-02 ,1.9520e-02 , & - &2.2008e-02 ,2.4130e-02 ,2.5397e-02 /) - kao(:, 5, 8, 7) = (/ & - &1.3493e-03 ,7.4001e-03 ,1.1421e-02 ,1.4955e-02 ,1.8119e-02 ,2.1028e-02 , & - &2.3751e-02 ,2.6082e-02 ,2.7521e-02 /) - kao(:, 1, 9, 7) = (/ & - &4.1652e-03 ,9.1226e-03 ,1.1391e-02 ,1.3127e-02 ,1.4574e-02 ,1.5712e-02 , & - &1.6412e-02 ,1.6590e-02 ,1.4324e-02 /) - kao(:, 2, 9, 7) = (/ & - &4.4077e-03 ,9.7658e-03 ,1.2393e-02 ,1.4489e-02 ,1.6135e-02 ,1.7441e-02 , & - &1.8307e-02 ,1.8536e-02 ,1.6186e-02 /) - kao(:, 3, 9, 7) = (/ & - &4.6510e-03 ,1.0425e-02 ,1.3450e-02 ,1.5897e-02 ,1.7759e-02 ,1.9177e-02 , & - &2.0163e-02 ,2.0445e-02 ,1.8103e-02 /) - kao(:, 4, 9, 7) = (/ & - &4.8932e-03 ,1.1096e-02 ,1.4490e-02 ,1.7265e-02 ,1.9404e-02 ,2.0920e-02 , & - &2.2008e-02 ,2.2308e-02 ,1.9978e-02 /) - kao(:, 5, 9, 7) = (/ & - &5.1319e-03 ,1.1758e-02 ,1.5541e-02 ,1.8602e-02 ,2.0988e-02 ,2.2688e-02 , & - &2.3851e-02 ,2.4156e-02 ,2.1799e-02 /) - kao(:, 1,10, 7) = (/ & - &1.7349e-02 ,2.4277e-02 ,2.5467e-02 ,2.5566e-02 ,2.4825e-02 ,2.3373e-02 , & - &2.1223e-02 ,1.8524e-02 ,1.1809e-02 /) - kao(:, 2,10, 7) = (/ & - &1.8441e-02 ,2.5550e-02 ,2.7079e-02 ,2.7402e-02 ,2.6767e-02 ,2.5495e-02 , & - &2.3503e-02 ,2.0675e-02 ,1.3556e-02 /) - kao(:, 3,10, 7) = (/ & - &1.9634e-02 ,2.6955e-02 ,2.8784e-02 ,2.9151e-02 ,2.8790e-02 ,2.7521e-02 , & - &2.5774e-02 ,2.2876e-02 ,1.5334e-02 /) - kao(:, 4,10, 7) = (/ & - &2.0834e-02 ,2.8474e-02 ,3.0492e-02 ,3.0988e-02 ,3.0837e-02 ,2.9673e-02 , & - &2.8036e-02 ,2.5100e-02 ,1.7072e-02 /) - kao(:, 5,10, 7) = (/ & - &2.2004e-02 ,3.0118e-02 ,3.2233e-02 ,3.2923e-02 ,3.2760e-02 ,3.1852e-02 , & - &3.0321e-02 ,2.7280e-02 ,1.8710e-02 /) - kao(:, 1,11, 7) = (/ & - &2.5621e-02 ,3.2655e-02 ,3.3386e-02 ,3.2478e-02 ,3.0535e-02 ,2.7796e-02 , & - &2.3855e-02 ,1.8680e-02 ,1.0565e-02 /) - kao(:, 2,11, 7) = (/ & - &2.7487e-02 ,3.4718e-02 ,3.5449e-02 ,3.4659e-02 ,3.2784e-02 ,2.9958e-02 , & - &2.6042e-02 ,2.0737e-02 ,1.2143e-02 /) - kao(:, 3,11, 7) = (/ & - &2.9493e-02 ,3.6885e-02 ,3.7684e-02 ,3.6984e-02 ,3.4999e-02 ,3.2138e-02 , & - &2.8186e-02 ,2.2834e-02 ,1.3640e-02 /) - kao(:, 4,11, 7) = (/ & - &3.1405e-02 ,3.9361e-02 ,4.0123e-02 ,3.9393e-02 ,3.7354e-02 ,3.4345e-02 , & - &3.0182e-02 ,2.4896e-02 ,1.5233e-02 /) - kao(:, 5,11, 7) = (/ & - &3.3372e-02 ,4.1804e-02 ,4.2639e-02 ,4.1888e-02 ,3.9776e-02 ,3.6559e-02 , & - &3.2377e-02 ,2.6934e-02 ,1.6905e-02 /) - kao(:, 1,12, 7) = (/ & - &2.8107e-02 ,3.4513e-02 ,3.4691e-02 ,3.3440e-02 ,3.1149e-02 ,2.8092e-02 , & - &2.3835e-02 ,1.7987e-02 ,9.8223e-03 /) - kao(:, 2,12, 7) = (/ & - &3.0318e-02 ,3.7007e-02 ,3.7165e-02 ,3.5894e-02 ,3.3524e-02 ,3.0240e-02 , & - &2.5840e-02 ,1.9792e-02 ,1.1332e-02 /) - kao(:, 3,12, 7) = (/ & - &3.2580e-02 ,3.9682e-02 ,3.9790e-02 ,3.8457e-02 ,3.5971e-02 ,3.2486e-02 , & - &2.7883e-02 ,2.1561e-02 ,1.2728e-02 /) - kao(:, 4,12, 7) = (/ & - &3.4838e-02 ,4.2408e-02 ,4.2616e-02 ,4.1228e-02 ,3.8571e-02 ,3.4918e-02 , & - &2.9920e-02 ,2.3363e-02 ,1.4318e-02 /) - kao(:, 5,12, 7) = (/ & - &3.7163e-02 ,4.5231e-02 ,4.5400e-02 ,4.4006e-02 ,4.1203e-02 ,3.7331e-02 , & - &3.2004e-02 ,2.5209e-02 ,1.5927e-02 /) - kao(:, 1,13, 7) = (/ & - &2.5217e-02 ,3.0486e-02 ,3.0548e-02 ,2.9385e-02 ,2.7336e-02 ,2.4524e-02 , & - &2.0890e-02 ,1.5756e-02 ,9.4392e-03 /) - kao(:, 2,13, 7) = (/ & - &2.7202e-02 ,3.2841e-02 ,3.2933e-02 ,3.1772e-02 ,2.9593e-02 ,2.6611e-02 , & - &2.2741e-02 ,1.7329e-02 ,1.0602e-02 /) - kao(:, 3,13, 7) = (/ & - &2.9280e-02 ,3.5351e-02 ,3.5444e-02 ,3.4289e-02 ,3.1993e-02 ,2.8821e-02 , & - &2.4603e-02 ,1.8828e-02 ,1.1938e-02 /) - kao(:, 4,13, 7) = (/ & - &3.1331e-02 ,3.7956e-02 ,3.7975e-02 ,3.6801e-02 ,3.4445e-02 ,3.1086e-02 , & - &2.6513e-02 ,2.0428e-02 ,1.3267e-02 /) - kao(:, 5,13, 7) = (/ & - &3.3613e-02 ,4.0685e-02 ,4.0655e-02 ,3.9388e-02 ,3.6935e-02 ,3.3268e-02 , & - &2.8459e-02 ,2.2050e-02 ,1.4574e-02 /) - kao(:, 1, 1, 8) = (/ & - &7.0857e-05 ,3.1247e-02 ,6.3050e-02 ,9.5741e-02 ,1.2991e-01 ,1.6688e-01 , & - &2.1008e-01 ,2.7194e-01 ,2.5981e-01 /) - kao(:, 2, 1, 8) = (/ & - &7.3061e-05 ,3.3759e-02 ,6.8122e-02 ,1.0346e-01 ,1.4038e-01 ,1.8030e-01 , & - &2.2703e-01 ,2.9445e-01 ,2.8076e-01 /) - kao(:, 3, 1, 8) = (/ & - &7.5439e-05 ,3.6248e-02 ,7.3153e-02 ,1.1109e-01 ,1.5077e-01 ,1.9367e-01 , & - &2.4381e-01 ,3.1652e-01 ,3.0153e-01 /) - kao(:, 4, 1, 8) = (/ & - &7.7957e-05 ,3.8675e-02 ,7.8063e-02 ,1.1859e-01 ,1.6099e-01 ,2.0691e-01 , & - &2.6053e-01 ,3.3811e-01 ,3.2197e-01 /) - kao(:, 5, 1, 8) = (/ & - &8.0722e-05 ,4.1119e-02 ,8.2986e-02 ,1.2604e-01 ,1.7112e-01 ,2.1995e-01 , & - &2.7714e-01 ,3.5946e-01 ,3.4222e-01 /) - kao(:, 1, 2, 8) = (/ & - &9.7224e-05 ,2.6558e-02 ,5.3452e-02 ,8.0855e-02 ,1.0918e-01 ,1.3924e-01 , & - &1.7330e-01 ,2.2109e-01 ,2.1834e-01 /) - kao(:, 2, 2, 8) = (/ & - &1.0058e-04 ,2.8759e-02 ,5.7870e-02 ,8.7575e-02 ,1.1827e-01 ,1.5089e-01 , & - &1.8793e-01 ,2.3994e-01 ,2.3652e-01 /) - kao(:, 3, 2, 8) = (/ & - &1.0421e-04 ,3.0964e-02 ,6.2308e-02 ,9.4299e-02 ,1.2733e-01 ,1.6243e-01 , & - &2.0230e-01 ,2.5862e-01 ,2.5463e-01 /) - kao(:, 4, 2, 8) = (/ & - &1.0798e-04 ,3.3179e-02 ,6.6764e-02 ,1.0101e-01 ,1.3640e-01 ,1.7400e-01 , & - &2.1675e-01 ,2.7715e-01 ,2.7277e-01 /) - kao(:, 5, 2, 8) = (/ & - &1.1188e-04 ,3.5361e-02 ,7.1160e-02 ,1.0767e-01 ,1.4545e-01 ,1.8554e-01 , & - &2.3113e-01 ,2.9555e-01 ,2.9088e-01 /) - kao(:, 1, 3, 8) = (/ & - &1.7704e-04 ,2.1958e-02 ,4.4006e-02 ,6.6294e-02 ,8.8988e-02 ,1.1245e-01 , & - &1.3781e-01 ,1.7014e-01 ,1.7794e-01 /) - kao(:, 2, 3, 8) = (/ & - &1.8401e-04 ,2.3898e-02 ,4.7908e-02 ,7.2164e-02 ,9.6867e-02 ,1.2239e-01 , & - &1.4998e-01 ,1.8528e-01 ,1.9370e-01 /) - kao(:, 3, 3, 8) = (/ & - &1.9123e-04 ,2.5882e-02 ,5.1886e-02 ,7.8168e-02 ,1.0491e-01 ,1.3257e-01 , & - &1.6241e-01 ,2.0047e-01 ,2.0978e-01 /) - kao(:, 4, 3, 8) = (/ & - &1.9826e-04 ,2.7841e-02 ,5.5828e-02 ,8.4093e-02 ,1.1289e-01 ,1.4266e-01 , & - &1.7485e-01 ,2.1582e-01 ,2.2574e-01 /) - kao(:, 5, 3, 8) = (/ & - &2.0558e-04 ,2.9781e-02 ,5.9723e-02 ,8.9997e-02 ,1.2076e-01 ,1.5262e-01 , & - &1.8706e-01 ,2.3095e-01 ,2.4148e-01 /) - kao(:, 1, 4, 8) = (/ & - &3.2677e-04 ,1.8554e-02 ,3.5926e-02 ,5.3829e-02 ,7.1995e-02 ,9.0469e-02 , & - &1.0973e-01 ,1.3198e-01 ,1.4393e-01 /) - kao(:, 2, 4, 8) = (/ & - &3.3998e-04 ,2.0214e-02 ,3.9351e-02 ,5.9051e-02 ,7.8970e-02 ,9.9220e-02 , & - &1.2030e-01 ,1.4461e-01 ,1.5787e-01 /) - kao(:, 3, 4, 8) = (/ & - &3.5423e-04 ,2.1886e-02 ,4.2819e-02 ,6.4313e-02 ,8.6016e-02 ,1.0809e-01 , & - &1.3108e-01 ,1.5763e-01 ,1.7196e-01 /) - kao(:, 4, 4, 8) = (/ & - &3.6836e-04 ,2.3526e-02 ,4.6236e-02 ,6.9481e-02 ,9.2916e-02 ,1.1677e-01 , & - &1.4164e-01 ,1.7039e-01 ,1.8576e-01 /) - kao(:, 5, 4, 8) = (/ & - &3.8269e-04 ,2.5159e-02 ,4.9646e-02 ,7.4614e-02 ,9.9776e-02 ,1.2541e-01 , & - &1.5213e-01 ,1.8307e-01 ,1.9947e-01 /) - kao(:, 1, 5, 8) = (/ & - &5.5618e-04 ,1.6693e-02 ,3.0352e-02 ,4.4004e-02 ,5.8213e-02 ,7.2865e-02 , & - &8.7904e-02 ,1.0425e-01 ,1.1619e-01 /) - kao(:, 2, 5, 8) = (/ & - &5.8090e-04 ,1.8251e-02 ,3.3255e-02 ,4.8452e-02 ,6.4257e-02 ,8.0492e-02 , & - &9.7115e-02 ,1.1513e-01 ,1.2836e-01 /) - kao(:, 3, 5, 8) = (/ & - &6.0567e-04 ,1.9782e-02 ,3.6119e-02 ,5.2854e-02 ,7.0252e-02 ,8.8045e-02 , & - &1.0624e-01 ,1.2602e-01 ,1.4037e-01 /) - kao(:, 4, 5, 8) = (/ & - &6.3036e-04 ,2.1279e-02 ,3.8977e-02 ,5.7257e-02 ,7.6243e-02 ,9.5550e-02 , & - &1.1529e-01 ,1.3680e-01 ,1.5235e-01 /) - kao(:, 5, 5, 8) = (/ & - &6.5503e-04 ,2.2767e-02 ,4.1832e-02 ,6.1655e-02 ,8.2195e-02 ,1.0302e-01 , & - &1.2434e-01 ,1.4756e-01 ,1.6424e-01 /) - kao(:, 1, 6, 8) = (/ & - &8.8779e-04 ,1.5219e-02 ,2.6847e-02 ,3.7621e-02 ,4.8063e-02 ,5.8817e-02 , & - &7.0265e-02 ,8.2696e-02 ,9.3190e-02 /) - kao(:, 2, 6, 8) = (/ & - &9.2874e-04 ,1.6673e-02 ,2.9554e-02 ,4.1458e-02 ,5.3049e-02 ,6.5160e-02 , & - &7.8074e-02 ,9.1921e-02 ,1.0355e-01 /) - kao(:, 3, 6, 8) = (/ & - &9.6950e-04 ,1.8111e-02 ,3.2190e-02 ,4.5211e-02 ,5.8015e-02 ,7.1500e-02 , & - &8.5838e-02 ,1.0107e-01 ,1.1382e-01 /) - kao(:, 4, 6, 8) = (/ & - &1.0101e-03 ,1.9522e-02 ,3.4803e-02 ,4.8905e-02 ,6.3015e-02 ,7.7875e-02 , & - &9.3602e-02 ,1.1021e-01 ,1.2414e-01 /) - kao(:, 5, 6, 8) = (/ & - &1.0515e-03 ,2.0916e-02 ,3.7389e-02 ,5.2547e-02 ,6.7966e-02 ,8.4205e-02 , & - &1.0130e-01 ,1.1932e-01 ,1.3433e-01 /) - kao(:, 1, 7, 8) = (/ & - &1.4977e-03 ,1.4733e-02 ,2.4381e-02 ,3.3428e-02 ,4.1931e-02 ,4.9753e-02 , & - &5.7173e-02 ,6.5580e-02 ,7.4312e-02 /) - kao(:, 2, 7, 8) = (/ & - &1.5637e-03 ,1.6075e-02 ,2.6857e-02 ,3.6980e-02 ,4.6449e-02 ,5.5152e-02 , & - &6.3551e-02 ,7.3261e-02 ,8.3066e-02 /) - kao(:, 3, 7, 8) = (/ & - &1.6297e-03 ,1.7399e-02 ,2.9305e-02 ,4.0484e-02 ,5.0904e-02 ,6.0470e-02 , & - &6.9956e-02 ,8.1009e-02 ,9.1840e-02 /) - kao(:, 4, 7, 8) = (/ & - &1.7004e-03 ,1.8688e-02 ,3.1747e-02 ,4.3982e-02 ,5.5347e-02 ,6.5760e-02 , & - &7.6435e-02 ,8.8798e-02 ,1.0066e-01 /) - kao(:, 5, 7, 8) = (/ & - &1.7747e-03 ,1.9942e-02 ,3.4156e-02 ,4.7424e-02 ,5.9706e-02 ,7.0996e-02 , & - &8.2872e-02 ,9.6510e-02 ,1.0938e-01 /) - kao(:, 1, 8, 8) = (/ & - &3.0289e-03 ,1.6187e-02 ,2.4623e-02 ,3.1800e-02 ,3.8382e-02 ,4.4473e-02 , & - &4.9956e-02 ,5.4111e-02 ,5.8932e-02 /) - kao(:, 2, 8, 8) = (/ & - &3.1588e-03 ,1.7601e-02 ,2.6972e-02 ,3.5067e-02 ,4.2580e-02 ,4.9539e-02 , & - &5.5733e-02 ,6.0374e-02 ,6.6309e-02 /) - kao(:, 3, 8, 8) = (/ & - &3.2918e-03 ,1.8992e-02 ,2.9294e-02 ,3.8315e-02 ,4.6735e-02 ,5.4548e-02 , & - &6.1452e-02 ,6.6677e-02 ,7.3699e-02 /) - kao(:, 4, 8, 8) = (/ & - &3.4281e-03 ,2.0362e-02 ,3.1558e-02 ,4.1571e-02 ,5.0908e-02 ,5.9537e-02 , & - &6.7138e-02 ,7.3015e-02 ,8.1106e-02 /) - kao(:, 5, 8, 8) = (/ & - &3.5753e-03 ,2.1737e-02 ,3.3774e-02 ,4.4733e-02 ,5.4993e-02 ,6.4441e-02 , & - &7.2719e-02 ,7.9338e-02 ,8.8474e-02 /) - kao(:, 1, 9, 8) = (/ & - &1.1613e-02 ,2.6600e-02 ,3.4830e-02 ,4.1045e-02 ,4.5758e-02 ,4.9187e-02 , & - &5.0957e-02 ,5.0881e-02 ,4.6332e-02 /) - kao(:, 2, 9, 8) = (/ & - &1.2035e-02 ,2.8837e-02 ,3.7970e-02 ,4.4834e-02 ,5.0301e-02 ,5.4274e-02 , & - &5.6564e-02 ,5.6979e-02 ,5.2710e-02 /) - kao(:, 3, 9, 8) = (/ & - &1.2460e-02 ,3.1118e-02 ,4.1014e-02 ,4.8606e-02 ,5.4716e-02 ,5.9241e-02 , & - &6.2128e-02 ,6.3036e-02 ,5.8975e-02 /) - kao(:, 4, 9, 8) = (/ & - &1.2980e-02 ,3.3463e-02 ,4.4127e-02 ,5.2378e-02 ,5.9008e-02 ,6.4138e-02 , & - &6.7667e-02 ,6.9075e-02 ,6.5274e-02 /) - kao(:, 5, 9, 8) = (/ & - &1.3559e-02 ,3.5809e-02 ,4.7263e-02 ,5.6212e-02 ,6.3302e-02 ,6.8912e-02 , & - &7.3069e-02 ,7.5010e-02 ,7.1590e-02 /) - kao(:, 1,10, 8) = (/ & - &4.9669e-02 ,6.5649e-02 ,7.1116e-02 ,7.3534e-02 ,7.3825e-02 ,7.2083e-02 , & - &6.7844e-02 ,5.9498e-02 ,3.3788e-02 /) - kao(:, 2,10, 8) = (/ & - &5.1505e-02 ,7.0624e-02 ,7.6814e-02 ,7.9826e-02 ,8.0618e-02 ,7.8892e-02 , & - &7.4439e-02 ,6.5949e-02 ,3.8529e-02 /) - kao(:, 3,10, 8) = (/ & - &5.3297e-02 ,7.5384e-02 ,8.2789e-02 ,8.6542e-02 ,8.7369e-02 ,8.5820e-02 , & - &8.1089e-02 ,7.2258e-02 ,4.3360e-02 /) - kao(:, 4,10, 8) = (/ & - &5.5068e-02 ,8.0008e-02 ,8.8749e-02 ,9.3221e-02 ,9.4169e-02 ,9.2692e-02 , & - &8.7784e-02 ,7.8437e-02 ,4.8014e-02 /) - kao(:, 5,10, 8) = (/ & - &5.7734e-02 ,8.4667e-02 ,9.4556e-02 ,9.9634e-02 ,1.0118e-01 ,9.9703e-02 , & - &9.4571e-02 ,8.4495e-02 ,5.2667e-02 /) - kao(:, 1,11, 8) = (/ & - &7.6448e-02 ,9.0381e-02 ,9.1555e-02 ,9.0047e-02 ,8.6717e-02 ,8.1217e-02 , & - &7.3241e-02 ,6.1179e-02 ,3.1726e-02 /) - kao(:, 2,11, 8) = (/ & - &7.9612e-02 ,9.5621e-02 ,9.8574e-02 ,9.7505e-02 ,9.4314e-02 ,8.8768e-02 , & - &8.0204e-02 ,6.7360e-02 ,3.6181e-02 /) - kao(:, 3,11, 8) = (/ & - &8.2652e-02 ,1.0183e-01 ,1.0547e-01 ,1.0483e-01 ,1.0201e-01 ,9.6508e-02 , & - &8.7273e-02 ,7.3474e-02 ,4.0817e-02 /) - kao(:, 4,11, 8) = (/ & - &8.5862e-02 ,1.0806e-01 ,1.1212e-01 ,1.1216e-01 ,1.0950e-01 ,1.0402e-01 , & - &9.4626e-02 ,7.9735e-02 ,4.5328e-02 /) - kao(:, 5,11, 8) = (/ & - &8.9572e-02 ,1.1434e-01 ,1.1896e-01 ,1.1939e-01 ,1.1678e-01 ,1.1141e-01 , & - &1.0160e-01 ,8.6030e-02 ,4.9522e-02 /) - kao(:, 1,12, 8) = (/ & - &8.7861e-02 ,9.9993e-02 ,9.9171e-02 ,9.4628e-02 ,8.8704e-02 ,8.0579e-02 , & - &7.0917e-02 ,5.7333e-02 ,2.8393e-02 /) - kao(:, 2,12, 8) = (/ & - &9.1432e-02 ,1.0608e-01 ,1.0583e-01 ,1.0218e-01 ,9.6300e-02 ,8.8064e-02 , & - &7.7816e-02 ,6.3024e-02 ,3.2578e-02 /) - kao(:, 3,12, 8) = (/ & - &9.5110e-02 ,1.1196e-01 ,1.1325e-01 ,1.0996e-01 ,1.0369e-01 ,9.5361e-02 , & - &8.4644e-02 ,6.8902e-02 ,3.7335e-02 /) - kao(:, 4,12, 8) = (/ & - &9.9318e-02 ,1.1859e-01 ,1.2042e-01 ,1.1748e-01 ,1.1108e-01 ,1.0241e-01 , & - &9.1344e-02 ,7.4779e-02 ,4.1207e-02 /) - kao(:, 5,12, 8) = (/ & - &1.0395e-01 ,1.2551e-01 ,1.2774e-01 ,1.2502e-01 ,1.1865e-01 ,1.0948e-01 , & - &9.7810e-02 ,8.0483e-02 ,4.4886e-02 /) - kao(:, 1,13, 8) = (/ & - &7.9847e-02 ,9.1714e-02 ,9.0958e-02 ,8.6422e-02 ,8.0456e-02 ,7.2533e-02 , & - &6.2189e-02 ,4.9649e-02 ,2.4638e-02 /) - kao(:, 2,13, 8) = (/ & - &8.3442e-02 ,9.7407e-02 ,9.6872e-02 ,9.3129e-02 ,8.7376e-02 ,7.8985e-02 , & - &6.8360e-02 ,5.4702e-02 ,2.8608e-02 /) - kao(:, 3,13, 8) = (/ & - &8.7437e-02 ,1.0293e-01 ,1.0345e-01 ,9.9852e-02 ,9.3864e-02 ,8.5454e-02 , & - &7.4382e-02 ,5.9885e-02 ,3.2171e-02 /) - kao(:, 4,13, 8) = (/ & - &9.2235e-02 ,1.0932e-01 ,1.1033e-01 ,1.0673e-01 ,1.0043e-01 ,9.1575e-02 , & - &8.0229e-02 ,6.4806e-02 ,3.5846e-02 /) - kao(:, 5,13, 8) = (/ & - &9.7358e-02 ,1.1603e-01 ,1.1725e-01 ,1.1373e-01 ,1.0722e-01 ,9.7942e-02 , & - &8.5906e-02 ,6.9573e-02 ,3.9453e-02 /) - kao(:, 1, 1, 9) = (/ & - &2.3734e-04 ,1.2635e-01 ,2.5378e-01 ,3.8280e-01 ,5.1449e-01 ,6.5095e-01 , & - &7.9709e-01 ,9.7059e-01 ,1.0290e+00 /) - kao(:, 2, 1, 9) = (/ & - &2.4162e-04 ,1.3562e-01 ,2.7235e-01 ,4.1078e-01 ,5.5198e-01 ,6.9838e-01 , & - &8.5534e-01 ,1.0400e+00 ,1.1040e+00 /) - kao(:, 3, 1, 9) = (/ & - &2.4599e-04 ,1.4459e-01 ,2.9042e-01 ,4.3810e-01 ,5.8884e-01 ,7.4499e-01 , & - &9.1233e-01 ,1.1085e+00 ,1.1777e+00 /) - kao(:, 4, 1, 9) = (/ & - &2.5041e-04 ,1.5330e-01 ,3.0793e-01 ,4.6450e-01 ,6.2431e-01 ,7.9002e-01 , & - &9.6789e-01 ,1.1761e+00 ,1.2486e+00 /) - kao(:, 5, 1, 9) = (/ & - &2.5474e-04 ,1.6182e-01 ,3.2498e-01 ,4.9034e-01 ,6.5899e-01 ,8.3368e-01 , & - &1.0214e+00 ,1.2421e+00 ,1.3180e+00 /) - kao(:, 1, 2, 9) = (/ & - &3.4870e-04 ,1.1450e-01 ,2.2975e-01 ,3.4621e-01 ,4.6468e-01 ,5.8691e-01 , & - &7.1765e-01 ,8.7423e-01 ,9.2933e-01 /) - kao(:, 2, 2, 9) = (/ & - &3.5536e-04 ,1.2334e-01 ,2.4755e-01 ,3.7300e-01 ,5.0064e-01 ,6.3232e-01 , & - &7.7280e-01 ,9.4059e-01 ,1.0013e+00 /) - kao(:, 3, 2, 9) = (/ & - &3.6217e-04 ,1.3183e-01 ,2.6460e-01 ,3.9876e-01 ,5.3531e-01 ,6.7635e-01 , & - &8.2730e-01 ,1.0064e+00 ,1.0706e+00 /) - kao(:, 4, 2, 9) = (/ & - &3.6933e-04 ,1.4017e-01 ,2.8129e-01 ,4.2395e-01 ,5.6909e-01 ,7.1898e-01 , & - &8.7939e-01 ,1.0712e+00 ,1.1382e+00 /) - kao(:, 5, 2, 9) = (/ & - &3.7836e-04 ,1.4828e-01 ,2.9766e-01 ,4.4860e-01 ,6.0234e-01 ,7.6096e-01 , & - &9.3060e-01 ,1.1332e+00 ,1.2047e+00 /) - kao(:, 1, 3, 9) = (/ & - &6.8597e-04 ,1.0077e-01 ,2.0189e-01 ,3.0366e-01 ,4.0641e-01 ,5.1122e-01 , & - &6.2085e-01 ,7.4738e-01 ,8.1281e-01 /) - kao(:, 2, 3, 9) = (/ & - &6.9976e-04 ,1.0900e-01 ,2.1840e-01 ,3.2848e-01 ,4.3972e-01 ,5.5316e-01 , & - &6.7192e-01 ,8.0915e-01 ,8.7943e-01 /) - kao(:, 3, 3, 9) = (/ & - &7.1420e-04 ,1.1699e-01 ,2.3444e-01 ,3.5259e-01 ,4.7192e-01 ,5.9381e-01 , & - &7.2140e-01 ,8.6946e-01 ,9.4382e-01 /) - kao(:, 4, 3, 9) = (/ & - &7.3229e-04 ,1.2483e-01 ,2.5014e-01 ,3.7620e-01 ,5.0367e-01 ,6.3374e-01 , & - &7.7001e-01 ,9.2785e-01 ,1.0073e+00 /) - kao(:, 5, 3, 9) = (/ & - &7.5049e-04 ,1.3237e-01 ,2.6526e-01 ,3.9901e-01 ,5.3417e-01 ,6.7225e-01 , & - &8.1699e-01 ,9.8549e-01 ,1.0683e+00 /) - kao(:, 1, 4, 9) = (/ & - &1.3742e-03 ,8.7179e-02 ,1.7451e-01 ,2.6209e-01 ,3.5019e-01 ,4.3920e-01 , & - &5.3064e-01 ,6.3091e-01 ,7.0034e-01 /) - kao(:, 2, 4, 9) = (/ & - &1.4034e-03 ,9.4872e-02 ,1.8987e-01 ,2.8522e-01 ,3.8105e-01 ,4.7796e-01 , & - &5.7741e-01 ,6.8650e-01 ,7.6206e-01 /) - kao(:, 3, 4, 9) = (/ & - &1.4371e-03 ,1.0231e-01 ,2.0478e-01 ,3.0758e-01 ,4.1096e-01 ,5.1550e-01 , & - &6.2287e-01 ,7.4083e-01 ,8.2187e-01 /) - kao(:, 4, 4, 9) = (/ & - &1.4753e-03 ,1.0953e-01 ,2.1924e-01 ,3.2932e-01 ,4.4000e-01 ,5.5196e-01 , & - &6.6692e-01 ,7.9351e-01 ,8.7995e-01 /) - kao(:, 5, 4, 9) = (/ & - &1.5185e-03 ,1.1661e-01 ,2.3342e-01 ,3.5060e-01 ,4.6845e-01 ,5.8764e-01 , & - &7.1008e-01 ,8.4502e-01 ,9.3684e-01 /) - kao(:, 1, 5, 9) = (/ & - &2.5355e-03 ,7.5685e-02 ,1.4908e-01 ,2.2375e-01 ,2.9863e-01 ,3.7400e-01 , & - &4.5045e-01 ,5.3139e-01 ,5.9720e-01 /) - kao(:, 2, 5, 9) = (/ & - &2.5953e-03 ,8.2577e-02 ,1.6333e-01 ,2.4515e-01 ,3.2721e-01 ,4.0982e-01 , & - &4.9365e-01 ,5.8247e-01 ,6.5435e-01 /) - kao(:, 3, 5, 9) = (/ & - &2.6636e-03 ,8.9208e-02 ,1.7705e-01 ,2.6573e-01 ,3.5473e-01 ,4.4427e-01 , & - &5.3522e-01 ,6.3160e-01 ,7.0937e-01 /) - kao(:, 4, 5, 9) = (/ & - &2.7420e-03 ,9.5746e-02 ,1.9046e-01 ,2.8588e-01 ,3.8160e-01 ,4.7792e-01 , & - &5.7573e-01 ,6.7936e-01 ,7.6310e-01 /) - kao(:, 5, 5, 9) = (/ & - &2.8238e-03 ,1.0214e-01 ,2.0360e-01 ,3.0562e-01 ,4.0796e-01 ,5.1095e-01 , & - &6.1550e-01 ,7.2630e-01 ,8.1581e-01 /) - kao(:, 1, 6, 9) = (/ & - &4.3605e-03 ,6.9106e-02 ,1.2775e-01 ,1.8881e-01 ,2.5131e-01 ,3.1447e-01 , & - &3.7819e-01 ,4.4408e-01 ,5.0252e-01 /) - kao(:, 2, 6, 9) = (/ & - &4.4677e-03 ,7.5202e-02 ,1.4031e-01 ,2.0810e-01 ,2.7735e-01 ,3.4706e-01 , & - &4.1739e-01 ,4.9016e-01 ,5.5457e-01 /) - kao(:, 3, 6, 9) = (/ & - &4.5887e-03 ,8.1094e-02 ,1.5254e-01 ,2.2684e-01 ,3.0254e-01 ,3.7858e-01 , & - &4.5531e-01 ,5.3473e-01 ,6.0493e-01 /) - kao(:, 4, 6, 9) = (/ & - &4.7247e-03 ,8.6870e-02 ,1.6450e-01 ,2.4527e-01 ,3.2719e-01 ,4.0945e-01 , & - &4.9240e-01 ,5.7834e-01 ,6.5421e-01 /) - kao(:, 5, 6, 9) = (/ & - &4.8692e-03 ,9.2597e-02 ,1.7638e-01 ,2.6357e-01 ,3.5163e-01 ,4.4001e-01 , & - &5.2913e-01 ,6.2153e-01 ,7.0308e-01 /) - kao(:, 1, 7, 9) = (/ & - &7.8126e-03 ,6.9794e-02 ,1.1632e-01 ,1.6292e-01 ,2.1140e-01 ,2.6176e-01 , & - &3.1398e-01 ,3.6765e-01 ,4.1782e-01 /) - kao(:, 2, 7, 9) = (/ & - &8.0155e-03 ,7.6059e-02 ,1.2742e-01 ,1.7989e-01 ,2.3439e-01 ,2.9098e-01 , & - &3.4941e-01 ,4.0917e-01 ,4.6495e-01 /) - kao(:, 3, 7, 9) = (/ & - &8.2416e-03 ,8.1970e-02 ,1.3813e-01 ,1.9625e-01 ,2.5659e-01 ,3.1926e-01 , & - &3.8354e-01 ,4.4917e-01 ,5.1030e-01 /) - kao(:, 4, 7, 9) = (/ & - &8.4921e-03 ,8.7603e-02 ,1.4873e-01 ,2.1252e-01 ,2.7865e-01 ,3.4736e-01 , & - &4.1730e-01 ,4.8866e-01 ,5.5524e-01 /) - kao(:, 5, 7, 9) = (/ & - &8.7515e-03 ,9.3044e-02 ,1.5925e-01 ,2.2867e-01 ,3.0064e-01 ,3.7532e-01 , & - &4.5091e-01 ,5.2808e-01 ,5.9993e-01 /) - kao(:, 1, 8, 9) = (/ & - &1.6603e-02 ,7.8794e-02 ,1.2181e-01 ,1.5872e-01 ,1.9167e-01 ,2.2528e-01 , & - &2.6122e-01 ,3.0128e-01 ,3.4340e-01 /) - kao(:, 2, 8, 9) = (/ & - &1.7055e-02 ,8.5849e-02 ,1.3372e-01 ,1.7446e-01 ,2.1153e-01 ,2.5044e-01 , & - &2.9195e-01 ,3.3805e-01 ,3.8527e-01 /) - kao(:, 3, 8, 9) = (/ & - &1.7594e-02 ,9.2738e-02 ,1.4493e-01 ,1.8895e-01 ,2.3080e-01 ,2.7486e-01 , & - &3.2173e-01 ,3.7362e-01 ,4.2584e-01 /) - kao(:, 4, 8, 9) = (/ & - &1.8162e-02 ,9.9290e-02 ,1.5571e-01 ,2.0324e-01 ,2.5013e-01 ,2.9946e-01 , & - &3.5175e-01 ,4.0935e-01 ,4.6655e-01 /) - kao(:, 5, 8, 9) = (/ & - &1.8749e-02 ,1.0557e-01 ,1.6622e-01 ,2.1745e-01 ,2.6934e-01 ,3.2386e-01 , & - &3.8166e-01 ,4.4484e-01 ,5.0696e-01 /) - kao(:, 1, 9, 9) = (/ & - &6.5840e-02 ,1.3860e-01 ,1.7838e-01 ,2.0998e-01 ,2.3508e-01 ,2.5392e-01 , & - &2.6499e-01 ,2.6488e-01 ,2.7801e-01 /) - kao(:, 2, 9, 9) = (/ & - &6.7872e-02 ,1.4849e-01 ,1.9371e-01 ,2.2975e-01 ,2.5869e-01 ,2.8072e-01 , & - &2.9363e-01 ,2.9601e-01 ,3.1493e-01 /) - kao(:, 3, 9, 9) = (/ & - &7.0225e-02 ,1.5836e-01 ,2.0886e-01 ,2.4918e-01 ,2.8159e-01 ,3.0644e-01 , & - &3.2072e-01 ,3.2657e-01 ,3.5112e-01 /) - kao(:, 4, 9, 9) = (/ & - &7.2560e-02 ,1.6804e-01 ,2.2356e-01 ,2.6776e-01 ,3.0359e-01 ,3.3128e-01 , & - &3.4695e-01 ,3.5732e-01 ,3.8745e-01 /) - kao(:, 5, 9, 9) = (/ & - &7.5125e-02 ,1.7750e-01 ,2.3755e-01 ,2.8560e-01 ,3.2501e-01 ,3.5553e-01 , & - &3.7247e-01 ,3.8768e-01 ,4.2319e-01 /) - kao(:, 1,10, 9) = (/ & - &2.8983e-01 ,3.6990e-01 ,4.0037e-01 ,4.0949e-01 ,4.0589e-01 ,3.9081e-01 , & - &3.6404e-01 ,3.1914e-01 ,2.2264e-01 /) - kao(:, 2,10, 9) = (/ & - &2.9917e-01 ,3.8833e-01 ,4.2499e-01 ,4.3869e-01 ,4.3868e-01 ,4.2555e-01 , & - &3.9991e-01 ,3.5416e-01 ,2.5485e-01 /) - kao(:, 3,10, 9) = (/ & - &3.0939e-01 ,4.0713e-01 ,4.4875e-01 ,4.6776e-01 ,4.7103e-01 ,4.6014e-01 , & - &4.3525e-01 ,3.8827e-01 ,2.8738e-01 /) - kao(:, 4,10, 9) = (/ & - &3.2110e-01 ,4.2672e-01 ,4.7284e-01 ,4.9667e-01 ,5.0290e-01 ,4.9348e-01 , & - &4.6953e-01 ,4.2184e-01 ,3.1974e-01 /) - kao(:, 5,10, 9) = (/ & - &3.3272e-01 ,4.4730e-01 ,4.9768e-01 ,5.2532e-01 ,5.3384e-01 ,5.2588e-01 , & - &5.0287e-01 ,4.5423e-01 ,3.5166e-01 /) - kao(:, 1,11, 9) = (/ & - &4.4524e-01 ,5.1679e-01 ,5.3684e-01 ,5.3332e-01 ,5.1092e-01 ,4.7255e-01 , & - &4.1877e-01 ,3.4229e-01 ,1.8048e-01 /) - kao(:, 2,11, 9) = (/ & - &4.5963e-01 ,5.4202e-01 ,5.6658e-01 ,5.6626e-01 ,5.4700e-01 ,5.0983e-01 , & - &4.5605e-01 ,3.7725e-01 ,2.0742e-01 /) - kao(:, 3,11, 9) = (/ & - &4.7588e-01 ,5.6665e-01 ,5.9649e-01 ,5.9968e-01 ,5.8254e-01 ,5.4674e-01 , & - &4.9265e-01 ,4.1176e-01 ,2.3443e-01 /) - kao(:, 4,11, 9) = (/ & - &4.9478e-01 ,5.9201e-01 ,6.2710e-01 ,6.3330e-01 ,6.1823e-01 ,5.8344e-01 , & - &5.2842e-01 ,4.4573e-01 ,2.6065e-01 /) - kao(:, 5,11, 9) = (/ & - &5.1485e-01 ,6.2017e-01 ,6.5811e-01 ,6.6709e-01 ,6.5355e-01 ,6.1972e-01 , & - &5.6393e-01 ,4.7838e-01 ,2.8720e-01 /) - kao(:, 1,12, 9) = (/ & - &5.0543e-01 ,5.6903e-01 ,5.8050e-01 ,5.7018e-01 ,5.4105e-01 ,4.9466e-01 , & - &4.2828e-01 ,3.3843e-01 ,1.4652e-01 /) - kao(:, 2,12, 9) = (/ & - &5.2298e-01 ,5.9603e-01 ,6.1306e-01 ,6.0448e-01 ,5.7710e-01 ,5.3128e-01 , & - &4.6400e-01 ,3.7149e-01 ,1.6865e-01 /) - kao(:, 3,12, 9) = (/ & - &5.4270e-01 ,6.2472e-01 ,6.4493e-01 ,6.3902e-01 ,6.1334e-01 ,5.6783e-01 , & - &4.9936e-01 ,4.0428e-01 ,1.8993e-01 /) - kao(:, 4,12, 9) = (/ & - &5.6576e-01 ,6.5409e-01 ,6.7814e-01 ,6.7406e-01 ,6.4973e-01 ,6.0390e-01 , & - &5.3494e-01 ,4.3628e-01 ,2.1164e-01 /) - kao(:, 5,12, 9) = (/ & - &5.9076e-01 ,6.8665e-01 ,7.1248e-01 ,7.0991e-01 ,6.8560e-01 ,6.4007e-01 , & - &5.7053e-01 ,4.6743e-01 ,2.3320e-01 /) - kao(:, 1,13, 9) = (/ & - &4.5979e-01 ,5.1890e-01 ,5.2855e-01 ,5.1825e-01 ,4.9146e-01 ,4.4960e-01 , & - &3.8971e-01 ,3.0598e-01 ,1.2566e-01 /) - kao(:, 2,13, 9) = (/ & - &4.7640e-01 ,5.4480e-01 ,5.5925e-01 ,5.5059e-01 ,5.2436e-01 ,4.8283e-01 , & - &4.2163e-01 ,3.3565e-01 ,1.4550e-01 /) - kao(:, 3,13, 9) = (/ & - &4.9565e-01 ,5.7250e-01 ,5.8989e-01 ,5.8311e-01 ,5.5799e-01 ,5.1559e-01 , & - &4.5382e-01 ,3.6511e-01 ,1.6523e-01 /) - kao(:, 4,13, 9) = (/ & - &5.1794e-01 ,6.0150e-01 ,6.2192e-01 ,6.1629e-01 ,5.9157e-01 ,5.4908e-01 , & - &4.8624e-01 ,3.9414e-01 ,1.8408e-01 /) - kao(:, 5,13, 9) = (/ & - &5.4127e-01 ,6.3348e-01 ,6.5477e-01 ,6.5028e-01 ,6.2556e-01 ,5.8254e-01 , & - &5.1808e-01 ,4.2264e-01 ,2.0283e-01 /) - kao(:, 1, 1,10) = (/ & - &6.5918e-04 ,3.4888e-01 ,6.9848e-01 ,1.0485e+00 ,1.4002e+00 ,1.7549e+00 , & - &2.1190e+00 ,2.5078e+00 ,2.8004e+00 /) - kao(:, 2, 1,10) = (/ & - &6.7280e-04 ,3.7184e-01 ,7.4416e-01 ,1.1175e+00 ,1.4925e+00 ,1.8689e+00 , & - &2.2475e+00 ,2.6390e+00 ,2.9850e+00 /) - kao(:, 3, 1,10) = (/ & - &6.8523e-04 ,3.9709e-01 ,7.9353e-01 ,1.1893e+00 ,1.5844e+00 ,1.9796e+00 , & - &2.3755e+00 ,2.7728e+00 ,3.1689e+00 /) - kao(:, 4, 1,10) = (/ & - &6.9619e-04 ,4.2236e-01 ,8.4460e-01 ,1.2663e+00 ,1.6869e+00 ,2.1024e+00 , & - &2.5075e+00 ,2.8990e+00 ,3.3737e+00 /) - kao(:, 5, 1,10) = (/ & - &7.0541e-04 ,4.4505e-01 ,8.9002e-01 ,1.3353e+00 ,1.7799e+00 ,2.2235e+00 , & - &2.6534e+00 ,3.0275e+00 ,3.5598e+00 /) - kao(:, 1, 2,10) = (/ & - &1.0168e-03 ,3.3520e-01 ,6.7064e-01 ,1.0063e+00 ,1.3424e+00 ,1.6793e+00 , & - &2.0199e+00 ,2.3746e+00 ,2.6847e+00 /) - kao(:, 2, 2,10) = (/ & - &1.0383e-03 ,3.6090e-01 ,7.2200e-01 ,1.0832e+00 ,1.4445e+00 ,1.8057e+00 , & - &2.1681e+00 ,2.5457e+00 ,2.8891e+00 /) - kao(:, 3, 2,10) = (/ & - &1.0584e-03 ,3.8758e-01 ,7.7508e-01 ,1.1623e+00 ,1.5490e+00 ,1.9350e+00 , & - &2.3176e+00 ,2.7064e+00 ,3.0980e+00 /) - kao(:, 4, 2,10) = (/ & - &1.0746e-03 ,4.1292e-01 ,8.2598e-01 ,1.2389e+00 ,1.6519e+00 ,2.0646e+00 , & - &2.4744e+00 ,2.8678e+00 ,3.3037e+00 /) - kao(:, 5, 2,10) = (/ & - &1.0744e-03 ,4.3717e-01 ,8.7417e-01 ,1.3107e+00 ,1.7471e+00 ,2.1834e+00 , & - &2.6192e+00 ,3.0444e+00 ,3.4941e+00 /) - kao(:, 1, 3,10) = (/ & - &2.0748e-03 ,3.1600e-01 ,6.3217e-01 ,9.4857e-01 ,1.2657e+00 ,1.5838e+00 , & - &1.9039e+00 ,2.2287e+00 ,2.5314e+00 /) - kao(:, 2, 3,10) = (/ & - &2.1217e-03 ,3.4261e-01 ,6.8545e-01 ,1.0284e+00 ,1.3716e+00 ,1.7154e+00 , & - &2.0606e+00 ,2.4138e+00 ,2.7432e+00 /) - kao(:, 3, 3,10) = (/ & - &2.1619e-03 ,3.6999e-01 ,7.4010e-01 ,1.1107e+00 ,1.4817e+00 ,1.8526e+00 , & - &2.2240e+00 ,2.5942e+00 ,2.9634e+00 /) - kao(:, 4, 3,10) = (/ & - &2.1755e-03 ,3.9596e-01 ,7.9208e-01 ,1.1885e+00 ,1.5854e+00 ,1.9831e+00 , & - &2.3825e+00 ,2.7842e+00 ,3.1709e+00 /) - kao(:, 5, 3,10) = (/ & - &2.1880e-03 ,4.2191e-01 ,8.4399e-01 ,1.2664e+00 ,1.6893e+00 ,2.1130e+00 , & - &2.5373e+00 ,2.9615e+00 ,3.3787e+00 /) - kao(:, 1, 4,10) = (/ & - &4.2494e-03 ,2.8992e-01 ,5.8012e-01 ,8.7071e-01 ,1.1620e+00 ,1.4546e+00 , & - &1.7505e+00 ,2.0568e+00 ,2.3239e+00 /) - kao(:, 2, 4,10) = (/ & - &4.3512e-03 ,3.1537e-01 ,6.3099e-01 ,9.4695e-01 ,1.2638e+00 ,1.5819e+00 , & - &1.9039e+00 ,2.2390e+00 ,2.5276e+00 /) - kao(:, 3, 4,10) = (/ & - &4.4136e-03 ,3.4243e-01 ,6.8516e-01 ,1.0282e+00 ,1.3719e+00 ,1.7170e+00 , & - &2.0650e+00 ,2.4245e+00 ,2.7438e+00 /) - kao(:, 4, 4,10) = (/ & - &4.4541e-03 ,3.6913e-01 ,7.3845e-01 ,1.1085e+00 ,1.4792e+00 ,1.8513e+00 , & - &2.2276e+00 ,2.6166e+00 ,2.9583e+00 /) - kao(:, 5, 4,10) = (/ & - &4.4637e-03 ,3.9522e-01 ,7.9055e-01 ,1.1865e+00 ,1.5830e+00 ,1.9815e+00 , & - &2.3838e+00 ,2.7994e+00 ,3.1659e+00 /) - kao(:, 1, 5,10) = (/ & - &7.8944e-03 ,2.6027e-01 ,5.2060e-01 ,7.8129e-01 ,1.0423e+00 ,1.3045e+00 , & - &1.5691e+00 ,1.8427e+00 ,2.0845e+00 /) - kao(:, 2, 5,10) = (/ & - &8.0572e-03 ,2.8413e-01 ,5.6833e-01 ,8.5287e-01 ,1.1378e+00 ,1.4238e+00 , & - &1.7119e+00 ,2.0096e+00 ,2.2754e+00 /) - kao(:, 3, 5,10) = (/ & - &8.1742e-03 ,3.1030e-01 ,6.2054e-01 ,9.3122e-01 ,1.2421e+00 ,1.5541e+00 , & - &1.8685e+00 ,2.1911e+00 ,2.4841e+00 /) - kao(:, 4, 5,10) = (/ & - &8.2414e-03 ,3.3618e-01 ,6.7234e-01 ,1.0088e+00 ,1.3458e+00 ,1.6840e+00 , & - &2.0247e+00 ,2.3758e+00 ,2.6915e+00 /) - kao(:, 5, 5,10) = (/ & - &8.3003e-03 ,3.6135e-01 ,7.2289e-01 ,1.0847e+00 ,1.4472e+00 ,1.8109e+00 , & - &2.1782e+00 ,2.5572e+00 ,2.8943e+00 /) - kao(:, 1, 6,10) = (/ & - &1.3769e-02 ,2.2868e-01 ,4.5729e-01 ,6.8615e-01 ,9.1532e-01 ,1.1447e+00 , & - &1.3758e+00 ,1.6126e+00 ,1.8305e+00 /) - kao(:, 2, 6,10) = (/ & - &1.4077e-02 ,2.5186e-01 ,5.0368e-01 ,7.5558e-01 ,1.0079e+00 ,1.2605e+00 , & - &1.5146e+00 ,1.7737e+00 ,2.0155e+00 /) - kao(:, 3, 6,10) = (/ & - &1.4339e-02 ,2.7680e-01 ,5.5350e-01 ,8.3033e-01 ,1.1075e+00 ,1.3852e+00 , & - &1.6642e+00 ,1.9484e+00 ,2.2148e+00 /) - kao(:, 4, 6,10) = (/ & - &1.4519e-02 ,3.0142e-01 ,6.0270e-01 ,9.0418e-01 ,1.2061e+00 ,1.5083e+00 , & - &1.8129e+00 ,2.1232e+00 ,2.4121e+00 /) - kao(:, 5, 6,10) = (/ & - &1.4692e-02 ,3.2398e-01 ,6.4788e-01 ,9.7210e-01 ,1.2967e+00 ,1.6219e+00 , & - &1.9490e+00 ,2.2841e+00 ,2.5932e+00 /) - kao(:, 1, 7,10) = (/ & - &2.5736e-02 ,2.1730e-01 ,3.9499e-01 ,5.9240e-01 ,7.9003e-01 ,9.8783e-01 , & - &1.1864e+00 ,1.3877e+00 ,1.5798e+00 /) - kao(:, 2, 7,10) = (/ & - &2.6391e-02 ,2.3410e-01 ,4.4100e-01 ,6.6147e-01 ,8.8204e-01 ,1.1029e+00 , & - &1.3242e+00 ,1.5482e+00 ,1.7637e+00 /) - kao(:, 3, 7,10) = (/ & - &2.6951e-02 ,2.5201e-01 ,4.8957e-01 ,7.3433e-01 ,9.7905e-01 ,1.2243e+00 , & - &1.4699e+00 ,1.7185e+00 ,1.9578e+00 /) - kao(:, 4, 7,10) = (/ & - &2.7390e-02 ,2.7020e-01 ,5.3407e-01 ,8.0106e-01 ,1.0682e+00 ,1.3359e+00 , & - &1.6042e+00 ,1.8761e+00 ,2.1361e+00 /) - kao(:, 5, 7,10) = (/ & - &2.8064e-02 ,2.8861e-01 ,5.7611e-01 ,8.6397e-01 ,1.1521e+00 ,1.4408e+00 , & - &1.7300e+00 ,2.0229e+00 ,2.3040e+00 /) - kao(:, 1, 8,10) = (/ & - &5.8578e-02 ,2.6880e-01 ,4.0001e-01 ,5.2061e-01 ,6.7938e-01 ,8.4922e-01 , & - &1.0194e+00 ,1.1905e+00 ,1.3581e+00 /) - kao(:, 2, 8,10) = (/ & - &6.0087e-02 ,2.9139e-01 ,4.3501e-01 ,5.7583e-01 ,7.6491e-01 ,9.5619e-01 , & - &1.1477e+00 ,1.3402e+00 ,1.5292e+00 /) - kao(:, 3, 8,10) = (/ & - &6.1083e-02 ,3.1400e-01 ,4.7010e-01 ,6.4266e-01 ,8.5685e-01 ,1.0710e+00 , & - &1.2856e+00 ,1.5014e+00 ,1.7131e+00 /) - kao(:, 4, 8,10) = (/ & - &6.2072e-02 ,3.3715e-01 ,5.0004e-01 ,7.0498e-01 ,9.3980e-01 ,1.1748e+00 , & - &1.4102e+00 ,1.6468e+00 ,1.8789e+00 /) - kao(:, 5, 8,10) = (/ & - &6.3481e-02 ,3.5691e-01 ,5.2888e-01 ,7.6432e-01 ,1.0191e+00 ,1.2740e+00 , & - &1.5290e+00 ,1.7860e+00 ,2.0375e+00 /) - kao(:, 1, 9,10) = (/ & - &2.5051e-01 ,4.8216e-01 ,6.3956e-01 ,7.5081e-01 ,8.3417e-01 ,8.8639e-01 , & - &9.0389e-01 ,1.0106e+00 ,1.1541e+00 /) - kao(:, 2, 9,10) = (/ & - &2.5603e-01 ,5.1856e-01 ,6.9227e-01 ,8.2007e-01 ,9.1537e-01 ,9.7189e-01 , & - &9.9778e-01 ,1.1454e+00 ,1.3083e+00 /) - kao(:, 3, 9,10) = (/ & - &2.6013e-01 ,5.5198e-01 ,7.4416e-01 ,8.8806e-01 ,9.9547e-01 ,1.0583e+00 , & - &1.1091e+00 ,1.2896e+00 ,1.4729e+00 /) - kao(:, 4, 9,10) = (/ & - &2.6455e-01 ,5.8224e-01 ,7.9653e-01 ,9.5696e-01 ,1.0752e+00 ,1.1310e+00 , & - &1.2203e+00 ,1.4235e+00 ,1.6258e+00 /) - kao(:, 5, 9,10) = (/ & - &2.6779e-01 ,6.1167e-01 ,8.4854e-01 ,1.0208e+00 ,1.1434e+00 ,1.1964e+00 , & - &1.3330e+00 ,1.5553e+00 ,1.7761e+00 /) - kao(:, 1,10,10) = (/ & - &1.1877e+00 ,1.3423e+00 ,1.4114e+00 ,1.4638e+00 ,1.4747e+00 ,1.4384e+00 , & - &1.3561e+00 ,1.1884e+00 ,9.6724e-01 /) - kao(:, 2,10,10) = (/ & - &1.2130e+00 ,1.4001e+00 ,1.4986e+00 ,1.5677e+00 ,1.5910e+00 ,1.5689e+00 , & - &1.4918e+00 ,1.3127e+00 ,1.1039e+00 /) - kao(:, 3,10,10) = (/ & - &1.2346e+00 ,1.4593e+00 ,1.5877e+00 ,1.6627e+00 ,1.7012e+00 ,1.6974e+00 , & - &1.6231e+00 ,1.4376e+00 ,1.2384e+00 /) - kao(:, 4,10,10) = (/ & - &1.2516e+00 ,1.5151e+00 ,1.6747e+00 ,1.7501e+00 ,1.8076e+00 ,1.8250e+00 , & - &1.7537e+00 ,1.5512e+00 ,1.3735e+00 /) - kao(:, 5,10,10) = (/ & - &1.2661e+00 ,1.5638e+00 ,1.7522e+00 ,1.8374e+00 ,1.9121e+00 ,1.9420e+00 , & - &1.8736e+00 ,1.6582e+00 ,1.5128e+00 /) - kao(:, 1,11,10) = (/ & - &1.9480e+00 ,2.0492e+00 ,2.0295e+00 ,1.9735e+00 ,1.8970e+00 ,1.7736e+00 , & - &1.5866e+00 ,1.3339e+00 ,8.4829e-01 /) - kao(:, 2,11,10) = (/ & - &1.9908e+00 ,2.1211e+00 ,2.1260e+00 ,2.0949e+00 ,2.0240e+00 ,1.9060e+00 , & - &1.7325e+00 ,1.4683e+00 ,9.6828e-01 /) - kao(:, 3,11,10) = (/ & - &2.0285e+00 ,2.1879e+00 ,2.2239e+00 ,2.2116e+00 ,2.1470e+00 ,2.0366e+00 , & - &1.8735e+00 ,1.6014e+00 ,1.0930e+00 /) - kao(:, 4,11,10) = (/ & - &2.0556e+00 ,2.2562e+00 ,2.3222e+00 ,2.3233e+00 ,2.2648e+00 ,2.1592e+00 , & - &2.0072e+00 ,1.7228e+00 ,1.2296e+00 /) - kao(:, 5,11,10) = (/ & - &2.0825e+00 ,2.3069e+00 ,2.4192e+00 ,2.4269e+00 ,2.3834e+00 ,2.2768e+00 , & - &2.1248e+00 ,1.8445e+00 ,1.3568e+00 /) - kao(:, 1,12,10) = (/ & - &2.3362e+00 ,2.4153e+00 ,2.3669e+00 ,2.2577e+00 ,2.1055e+00 ,1.9147e+00 , & - &1.6820e+00 ,1.3486e+00 ,7.4407e-01 /) - kao(:, 2,12,10) = (/ & - &2.3893e+00 ,2.4937e+00 ,2.4670e+00 ,2.3773e+00 ,2.2296e+00 ,2.0482e+00 , & - &1.8201e+00 ,1.4800e+00 ,8.5242e-01 /) - kao(:, 3,12,10) = (/ & - &2.4357e+00 ,2.5702e+00 ,2.5666e+00 ,2.4887e+00 ,2.3537e+00 ,2.1812e+00 , & - &1.9511e+00 ,1.6049e+00 ,9.6662e-01 /) - kao(:, 4,12,10) = (/ & - &2.4652e+00 ,2.6456e+00 ,2.6664e+00 ,2.5981e+00 ,2.4742e+00 ,2.3104e+00 , & - &2.0695e+00 ,1.7245e+00 ,1.0828e+00 /) - kao(:, 5,12,10) = (/ & - &2.4945e+00 ,2.7001e+00 ,2.7645e+00 ,2.7014e+00 ,2.5936e+00 ,2.4312e+00 , & - &2.1779e+00 ,1.8427e+00 ,1.2015e+00 /) - kao(:, 1,13,10) = (/ & - &2.2054e+00 ,2.3120e+00 ,2.2775e+00 ,2.1807e+00 ,2.0276e+00 ,1.8297e+00 , & - &1.5931e+00 ,1.2531e+00 ,5.9202e-01 /) - kao(:, 2,13,10) = (/ & - &2.2559e+00 ,2.3878e+00 ,2.3725e+00 ,2.2888e+00 ,2.1438e+00 ,1.9536e+00 , & - &1.7172e+00 ,1.3694e+00 ,6.7488e-01 /) - kao(:, 3,13,10) = (/ & - &2.2951e+00 ,2.4612e+00 ,2.4689e+00 ,2.3923e+00 ,2.2596e+00 ,2.0732e+00 , & - &1.8332e+00 ,1.4777e+00 ,7.6019e-01 /) - kao(:, 4,13,10) = (/ & - &2.3235e+00 ,2.5286e+00 ,2.5591e+00 ,2.4947e+00 ,2.3722e+00 ,2.1862e+00 , & - &1.9383e+00 ,1.5857e+00 ,8.5248e-01 /) - kao(:, 5,13,10) = (/ & - &2.3616e+00 ,2.5838e+00 ,2.6490e+00 ,2.5951e+00 ,2.4760e+00 ,2.2908e+00 , & - &2.0454e+00 ,1.6895e+00 ,9.4490e-01 /) - kao(:, 1, 1,11) = (/ & - &9.3294e-04 ,5.3309e-01 ,1.0647e+00 ,1.5932e+00 ,2.1160e+00 ,2.6255e+00 , & - &3.0986e+00 ,3.3968e+00 ,4.2319e+00 /) - kao(:, 2, 1,11) = (/ & - &9.5345e-04 ,5.6455e-01 ,1.1277e+00 ,1.6875e+00 ,2.2413e+00 ,2.7825e+00 , & - &3.2884e+00 ,3.6383e+00 ,4.4826e+00 /) - kao(:, 3, 1,11) = (/ & - &9.7241e-04 ,5.9098e-01 ,1.1810e+00 ,1.7692e+00 ,2.3540e+00 ,2.9286e+00 , & - &3.4675e+00 ,3.8516e+00 ,4.7080e+00 /) - kao(:, 4, 1,11) = (/ & - &9.8984e-04 ,6.1800e-01 ,1.2338e+00 ,1.8462e+00 ,2.4536e+00 ,3.0526e+00 , & - &3.6266e+00 ,4.0600e+00 ,4.9071e+00 /) - kao(:, 5, 1,11) = (/ & - &1.0059e-03 ,6.4816e-01 ,1.2933e+00 ,1.9339e+00 ,2.5658e+00 ,3.1822e+00 , & - &3.7668e+00 ,4.2510e+00 ,5.1316e+00 /) - kao(:, 1, 2,11) = (/ & - &1.5074e-03 ,5.1913e-01 ,1.0387e+00 ,1.5585e+00 ,2.0790e+00 ,2.5998e+00 , & - &3.1169e+00 ,3.5984e+00 ,4.1578e+00 /) - kao(:, 2, 2,11) = (/ & - &1.5417e-03 ,5.5254e-01 ,1.1053e+00 ,1.6578e+00 ,2.2101e+00 ,2.7629e+00 , & - &3.3129e+00 ,3.8170e+00 ,4.4201e+00 /) - kao(:, 3, 2,11) = (/ & - &1.5713e-03 ,5.8438e-01 ,1.1685e+00 ,1.7524e+00 ,2.3358e+00 ,2.9174e+00 , & - &3.4950e+00 ,4.0242e+00 ,4.6716e+00 /) - kao(:, 4, 2,11) = (/ & - &1.5983e-03 ,6.1743e-01 ,1.2340e+00 ,1.8490e+00 ,2.4617e+00 ,3.0691e+00 , & - &3.6659e+00 ,4.2202e+00 ,4.9233e+00 /) - kao(:, 5, 2,11) = (/ & - &1.6216e-03 ,6.5216e-01 ,1.3030e+00 ,1.9521e+00 ,2.5969e+00 ,3.2326e+00 , & - &3.8472e+00 ,4.4004e+00 ,5.1936e+00 /) - kao(:, 1, 3,11) = (/ & - &3.2100e-03 ,4.8846e-01 ,9.7712e-01 ,1.4663e+00 ,1.9565e+00 ,2.4483e+00 , & - &2.9445e+00 ,3.4602e+00 ,3.9130e+00 /) - kao(:, 2, 3,11) = (/ & - &3.2832e-03 ,5.2715e-01 ,1.0544e+00 ,1.5820e+00 ,2.1102e+00 ,2.6392e+00 , & - &3.1691e+00 ,3.7028e+00 ,4.2204e+00 /) - kao(:, 3, 3,11) = (/ & - &3.3509e-03 ,5.6319e-01 ,1.1265e+00 ,1.6900e+00 ,2.2533e+00 ,2.8179e+00 , & - &3.3838e+00 ,3.9526e+00 ,4.5066e+00 /) - kao(:, 4, 3,11) = (/ & - &3.4122e-03 ,6.0075e-01 ,1.2012e+00 ,1.8012e+00 ,2.4005e+00 ,2.9988e+00 , & - &3.5947e+00 ,4.1839e+00 ,4.8011e+00 /) - kao(:, 5, 3,11) = (/ & - &3.4694e-03 ,6.3990e-01 ,1.2794e+00 ,1.9184e+00 ,2.5559e+00 ,3.1911e+00 , & - &3.8197e+00 ,4.4273e+00 ,5.1119e+00 /) - kao(:, 1, 4,11) = (/ & - &6.8944e-03 ,4.5524e-01 ,9.1034e-01 ,1.3656e+00 ,1.8210e+00 ,2.2768e+00 , & - &2.7339e+00 ,3.1966e+00 ,3.6419e+00 /) - kao(:, 2, 4,11) = (/ & - &7.0719e-03 ,4.9844e-01 ,9.9694e-01 ,1.4955e+00 ,1.9943e+00 ,2.4932e+00 , & - &2.9929e+00 ,3.4921e+00 ,3.9886e+00 /) - kao(:, 3, 4,11) = (/ & - &7.2326e-03 ,5.3850e-01 ,1.0768e+00 ,1.6152e+00 ,2.1534e+00 ,2.6917e+00 , & - &3.2302e+00 ,3.7700e+00 ,4.3067e+00 /) - kao(:, 4, 4,11) = (/ & - &7.3806e-03 ,5.7980e-01 ,1.1594e+00 ,1.7389e+00 ,2.3180e+00 ,2.8967e+00 , & - &3.4739e+00 ,4.0439e+00 ,4.6359e+00 /) - kao(:, 5, 4,11) = (/ & - &7.4998e-03 ,6.1978e-01 ,1.2395e+00 ,1.8590e+00 ,2.4785e+00 ,3.0979e+00 , & - &3.7146e+00 ,4.3244e+00 ,4.9568e+00 /) - kao(:, 1, 5,11) = (/ & - &1.3442e-02 ,4.2037e-01 ,8.4065e-01 ,1.2612e+00 ,1.6819e+00 ,2.1029e+00 , & - &2.5255e+00 ,2.9520e+00 ,3.3637e+00 /) - kao(:, 2, 5,11) = (/ & - &1.3797e-02 ,4.6626e-01 ,9.3234e-01 ,1.3987e+00 ,1.8650e+00 ,2.3319e+00 , & - &2.7996e+00 ,3.2699e+00 ,3.7300e+00 /) - kao(:, 3, 5,11) = (/ & - &1.4112e-02 ,5.0925e-01 ,1.0185e+00 ,1.5280e+00 ,2.0375e+00 ,2.5478e+00 , & - &3.0591e+00 ,3.5748e+00 ,4.0749e+00 /) - kao(:, 4, 5,11) = (/ & - &1.4385e-02 ,5.5077e-01 ,1.1015e+00 ,1.6526e+00 ,2.2034e+00 ,2.7548e+00 , & - &3.3072e+00 ,3.8625e+00 ,4.4066e+00 /) - kao(:, 5, 5,11) = (/ & - &1.4645e-02 ,5.9271e-01 ,1.1855e+00 ,1.7781e+00 ,2.3710e+00 ,2.9641e+00 , & - &3.5574e+00 ,4.1512e+00 ,4.7419e+00 /) - kao(:, 1, 6,11) = (/ & - &2.4122e-02 ,3.8084e-01 ,7.6147e-01 ,1.1422e+00 ,1.5231e+00 ,1.9045e+00 , & - &2.2870e+00 ,2.6730e+00 ,3.0460e+00 /) - kao(:, 2, 6,11) = (/ & - &2.4797e-02 ,4.2571e-01 ,8.5136e-01 ,1.2771e+00 ,1.7031e+00 ,2.1298e+00 , & - &2.5578e+00 ,2.9908e+00 ,3.4060e+00 /) - kao(:, 3, 6,11) = (/ & - &2.5418e-02 ,4.6778e-01 ,9.3545e-01 ,1.4036e+00 ,1.8720e+00 ,2.3409e+00 , & - &2.8115e+00 ,3.2888e+00 ,3.7438e+00 /) - kao(:, 4, 6,11) = (/ & - &2.5988e-02 ,5.1023e-01 ,1.0205e+00 ,1.5308e+00 ,2.0415e+00 ,2.5527e+00 , & - &3.0658e+00 ,3.5842e+00 ,4.0828e+00 /) - kao(:, 5, 6,11) = (/ & - &2.6439e-02 ,5.5329e-01 ,1.1066e+00 ,1.6600e+00 ,2.2137e+00 ,2.7680e+00 , & - &3.3240e+00 ,3.8852e+00 ,4.4272e+00 /) - kao(:, 1, 7,11) = (/ & - &4.4902e-02 ,3.4110e-01 ,6.7879e-01 ,1.0183e+00 ,1.3577e+00 ,1.6974e+00 , & - &2.0380e+00 ,2.3811e+00 ,2.7150e+00 /) - kao(:, 2, 7,11) = (/ & - &4.6257e-02 ,3.7900e-01 ,7.5783e-01 ,1.1366e+00 ,1.5157e+00 ,1.8951e+00 , & - &2.2756e+00 ,2.6593e+00 ,3.0311e+00 /) - kao(:, 3, 7,11) = (/ & - &4.7417e-02 ,4.1838e-01 ,8.3644e-01 ,1.2549e+00 ,1.6732e+00 ,2.0920e+00 , & - &2.5119e+00 ,2.9363e+00 ,3.3461e+00 /) - kao(:, 4, 7,11) = (/ & - &4.8439e-02 ,4.5979e-01 ,9.1922e-01 ,1.3788e+00 ,1.8387e+00 ,2.2989e+00 , & - &2.7602e+00 ,3.2261e+00 ,3.6771e+00 /) - kao(:, 5, 7,11) = (/ & - &4.9115e-02 ,5.0257e-01 ,1.0048e+00 ,1.5073e+00 ,2.0099e+00 ,2.5129e+00 , & - &3.0174e+00 ,3.5268e+00 ,4.0195e+00 /) - kao(:, 1, 8,11) = (/ & - &9.9346e-02 ,4.0741e-01 ,6.1474e-01 ,8.8954e-01 ,1.1859e+00 ,1.4823e+00 , & - &1.7793e+00 ,2.0775e+00 ,2.3709e+00 /) - kao(:, 2, 8,11) = (/ & - &1.0236e-01 ,4.4079e-01 ,6.7253e-01 ,9.9766e-01 ,1.3301e+00 ,1.6626e+00 , & - &1.9955e+00 ,2.3301e+00 ,2.6593e+00 /) - kao(:, 3, 8,11) = (/ & - &1.0516e-01 ,4.6951e-01 ,7.3794e-01 ,1.1060e+00 ,1.4745e+00 ,1.8432e+00 , & - &2.2125e+00 ,2.5835e+00 ,2.9480e+00 /) - kao(:, 4, 8,11) = (/ & - &1.0772e-01 ,4.9500e-01 ,8.1532e-01 ,1.2227e+00 ,1.6302e+00 ,2.0375e+00 , & - &2.4456e+00 ,2.8562e+00 ,3.2595e+00 /) - kao(:, 5, 8,11) = (/ & - &1.0947e-01 ,5.2130e-01 ,8.9659e-01 ,1.3445e+00 ,1.7925e+00 ,2.2406e+00 , & - &2.6897e+00 ,3.1404e+00 ,3.5840e+00 /) - kao(:, 1, 9,11) = (/ & - &4.1823e-01 ,7.9567e-01 ,1.0382e+00 ,1.1972e+00 ,1.2989e+00 ,1.3526e+00 , & - &1.5261e+00 ,1.7800e+00 ,2.0331e+00 /) - kao(:, 2, 9,11) = (/ & - &4.3170e-01 ,8.4637e-01 ,1.1195e+00 ,1.3007e+00 ,1.4025e+00 ,1.4821e+00 , & - &1.7319e+00 ,2.0202e+00 ,2.3074e+00 /) - kao(:, 3, 9,11) = (/ & - &4.4387e-01 ,8.9320e-01 ,1.1954e+00 ,1.3918e+00 ,1.4965e+00 ,1.6263e+00 , & - &1.9385e+00 ,2.2615e+00 ,2.5830e+00 /) - kao(:, 4, 9,11) = (/ & - &4.5501e-01 ,9.4246e-01 ,1.2607e+00 ,1.4727e+00 ,1.5878e+00 ,1.7989e+00 , & - &2.1575e+00 ,2.5169e+00 ,2.8754e+00 /) - kao(:, 5, 9,11) = (/ & - &4.6515e-01 ,9.9000e-01 ,1.3196e+00 ,1.5528e+00 ,1.6906e+00 ,1.9810e+00 , & - &2.3767e+00 ,2.7728e+00 ,3.1676e+00 /) - kao(:, 1,10,11) = (/ & - &1.9805e+00 ,2.2049e+00 ,2.3763e+00 ,2.4479e+00 ,2.4732e+00 ,2.4264e+00 , & - &2.2604e+00 ,1.8802e+00 ,1.7493e+00 /) - kao(:, 2,10,11) = (/ & - &2.0472e+00 ,2.3153e+00 ,2.5048e+00 ,2.6141e+00 ,2.6517e+00 ,2.6235e+00 , & - &2.4547e+00 ,2.0470e+00 ,2.0043e+00 /) - kao(:, 3,10,11) = (/ & - &2.1094e+00 ,2.4143e+00 ,2.6357e+00 ,2.7700e+00 ,2.8309e+00 ,2.7965e+00 , & - &2.6317e+00 ,2.2035e+00 ,2.2660e+00 /) - kao(:, 4,10,11) = (/ & - &2.1647e+00 ,2.5051e+00 ,2.7487e+00 ,2.9276e+00 ,2.9982e+00 ,2.9552e+00 , & - &2.7953e+00 ,2.3731e+00 ,2.5329e+00 /) - kao(:, 5,10,11) = (/ & - &2.2155e+00 ,2.5942e+00 ,2.8618e+00 ,3.0775e+00 ,3.1500e+00 ,3.1109e+00 , & - &2.9560e+00 ,2.5540e+00 ,2.7905e+00 /) - kao(:, 1,11,11) = (/ & - &3.3272e+00 ,3.3391e+00 ,3.4265e+00 ,3.3299e+00 ,3.1864e+00 ,3.0000e+00 , & - &2.7382e+00 ,2.2548e+00 ,1.5937e+00 /) - kao(:, 2,11,11) = (/ & - &3.4245e+00 ,3.4923e+00 ,3.5888e+00 ,3.5207e+00 ,3.3952e+00 ,3.2270e+00 , & - &2.9458e+00 ,2.4552e+00 ,1.8248e+00 /) - kao(:, 3,11,11) = (/ & - &3.5147e+00 ,3.6350e+00 ,3.7493e+00 ,3.6979e+00 ,3.6003e+00 ,3.4366e+00 , & - &3.1408e+00 ,2.6446e+00 ,2.0543e+00 /) - kao(:, 4,11,11) = (/ & - &3.5973e+00 ,3.7611e+00 ,3.8955e+00 ,3.8697e+00 ,3.7999e+00 ,3.6320e+00 , & - &3.3291e+00 ,2.8219e+00 ,2.2769e+00 /) - kao(:, 5,11,11) = (/ & - &3.6658e+00 ,3.8812e+00 ,4.0226e+00 ,4.0479e+00 ,3.9815e+00 ,3.8145e+00 , & - &3.5185e+00 ,2.9782e+00 ,2.4861e+00 /) - kao(:, 1,12,11) = (/ & - &4.1187e+00 ,4.0374e+00 ,4.0352e+00 ,3.8356e+00 ,3.5772e+00 ,3.2668e+00 , & - &2.8837e+00 ,2.3539e+00 ,1.4349e+00 /) - kao(:, 2,12,11) = (/ & - &4.2212e+00 ,4.1986e+00 ,4.2178e+00 ,4.0426e+00 ,3.8006e+00 ,3.4932e+00 , & - &3.0942e+00 ,2.5554e+00 ,1.6369e+00 /) - kao(:, 3,12,11) = (/ & - &4.3153e+00 ,4.3421e+00 ,4.3917e+00 ,4.2429e+00 ,4.0161e+00 ,3.6975e+00 , & - &3.3039e+00 ,2.7454e+00 ,1.8396e+00 /) - kao(:, 4,12,11) = (/ & - &4.3996e+00 ,4.4753e+00 ,4.5481e+00 ,4.4345e+00 ,4.2153e+00 ,3.8944e+00 , & - &3.5079e+00 ,2.9264e+00 ,2.0403e+00 /) - kao(:, 5,12,11) = (/ & - &4.4754e+00 ,4.5978e+00 ,4.6899e+00 ,4.6220e+00 ,4.4006e+00 ,4.0838e+00 , & - &3.7036e+00 ,3.0926e+00 ,2.2349e+00 /) - kao(:, 1,13,11) = (/ & - &4.0592e+00 ,4.0332e+00 ,3.9681e+00 ,3.7590e+00 ,3.4963e+00 ,3.1626e+00 , & - &2.7397e+00 ,2.2238e+00 ,1.2732e+00 /) - kao(:, 2,13,11) = (/ & - &4.1472e+00 ,4.1742e+00 ,4.1368e+00 ,3.9606e+00 ,3.7120e+00 ,3.3731e+00 , & - &2.9427e+00 ,2.4115e+00 ,1.4537e+00 /) - kao(:, 3,13,11) = (/ & - &4.2292e+00 ,4.3011e+00 ,4.2979e+00 ,4.1507e+00 ,3.9119e+00 ,3.5700e+00 , & - &3.1423e+00 ,2.5914e+00 ,1.6282e+00 /) - kao(:, 4,13,11) = (/ & - &4.3001e+00 ,4.4170e+00 ,4.4457e+00 ,4.3341e+00 ,4.0986e+00 ,3.7637e+00 , & - &3.3341e+00 ,2.7592e+00 ,1.8128e+00 /) - kao(:, 5,13,11) = (/ & - &4.3627e+00 ,4.5278e+00 ,4.5856e+00 ,4.5011e+00 ,4.2740e+00 ,3.9472e+00 , & - &3.5112e+00 ,2.9185e+00 ,1.9901e+00 /) - kao(:, 1, 1,12) = (/ & - &1.2832e-03 ,7.6911e-01 ,1.5308e+00 ,2.2815e+00 ,3.0131e+00 ,3.7102e+00 , & - &4.3339e+00 ,4.8156e+00 ,6.0262e+00 /) - kao(:, 2, 1,12) = (/ & - &1.3165e-03 ,8.3137e-01 ,1.6545e+00 ,2.4655e+00 ,3.2561e+00 ,4.0092e+00 , & - &4.6800e+00 ,5.1382e+00 ,6.5123e+00 /) - kao(:, 3, 1,12) = (/ & - &1.3465e-03 ,8.9467e-01 ,1.7805e+00 ,2.6534e+00 ,3.5040e+00 ,4.3130e+00 , & - &5.0270e+00 ,5.5081e+00 ,7.0080e+00 /) - kao(:, 4, 1,12) = (/ & - &1.3733e-03 ,9.5420e-01 ,1.9011e+00 ,2.8343e+00 ,3.7449e+00 ,4.6125e+00 , & - &5.3804e+00 ,5.8655e+00 ,7.4899e+00 /) - kao(:, 5, 1,12) = (/ & - &1.3973e-03 ,1.0065e+00 ,2.0056e+00 ,2.9931e+00 ,3.9616e+00 ,4.8908e+00 , & - &5.7173e+00 ,6.2206e+00 ,7.9232e+00 /) - kao(:, 1, 2,12) = (/ & - &2.1567e-03 ,7.9503e-01 ,1.5851e+00 ,2.3675e+00 ,3.1367e+00 ,3.8805e+00 , & - &4.5651e+00 ,5.0566e+00 ,6.2733e+00 /) - kao(:, 2, 2,12) = (/ & - &2.2096e-03 ,8.5765e-01 ,1.7102e+00 ,2.5549e+00 ,3.3862e+00 ,4.1922e+00 , & - &4.9361e+00 ,5.4818e+00 ,6.7723e+00 /) - kao(:, 3, 2,12) = (/ & - &2.2593e-03 ,9.2132e-01 ,1.8371e+00 ,2.7441e+00 ,3.6360e+00 ,4.5001e+00 , & - &5.3023e+00 ,5.9092e+00 ,7.2719e+00 /) - kao(:, 4, 2,12) = (/ & - &2.3029e-03 ,9.7961e-01 ,1.9547e+00 ,2.9227e+00 ,3.8771e+00 ,4.8047e+00 , & - &5.6684e+00 ,6.3211e+00 ,7.7542e+00 /) - kao(:, 5, 2,12) = (/ & - &2.3432e-03 ,1.0294e+00 ,2.0551e+00 ,3.0745e+00 ,4.0831e+00 ,5.0720e+00 , & - &6.0082e+00 ,6.7230e+00 ,8.1662e+00 /) - kao(:, 1, 3,12) = (/ & - &4.8280e-03 ,7.9900e-01 ,1.5962e+00 ,2.3906e+00 ,3.1803e+00 ,3.9604e+00 , & - &4.7157e+00 ,5.3732e+00 ,6.3605e+00 /) - kao(:, 2, 3,12) = (/ & - &4.9522e-03 ,8.6159e-01 ,1.7217e+00 ,2.5790e+00 ,3.4316e+00 ,4.2766e+00 , & - &5.0979e+00 ,5.8264e+00 ,6.8633e+00 /) - kao(:, 3, 3,12) = (/ & - &5.0521e-03 ,9.2450e-01 ,1.8472e+00 ,2.7674e+00 ,3.6829e+00 ,4.5888e+00 , & - &5.4724e+00 ,6.2581e+00 ,7.3659e+00 /) - kao(:, 4, 3,12) = (/ & - &5.1417e-03 ,9.8492e-01 ,1.9684e+00 ,2.9494e+00 ,3.9267e+00 ,4.8950e+00 , & - &5.8398e+00 ,6.6855e+00 ,7.8533e+00 /) - kao(:, 5, 3,12) = (/ & - &5.2128e-03 ,1.0351e+00 ,2.0685e+00 ,3.1013e+00 ,4.1304e+00 ,5.1536e+00 , & - &6.1563e+00 ,7.0696e+00 ,8.2608e+00 /) - kao(:, 1, 4,12) = (/ & - &1.0891e-02 ,7.7727e-01 ,1.5543e+00 ,2.3309e+00 ,3.1067e+00 ,3.8812e+00 , & - &4.6512e+00 ,5.4004e+00 ,6.2133e+00 /) - kao(:, 2, 4,12) = (/ & - &1.1146e-02 ,8.4013e-01 ,1.6801e+00 ,2.5195e+00 ,3.3588e+00 ,4.1965e+00 , & - &5.0315e+00 ,5.8522e+00 ,6.7175e+00 /) - kao(:, 3, 4,12) = (/ & - &1.1369e-02 ,9.0347e-01 ,1.8066e+00 ,2.7094e+00 ,3.6116e+00 ,4.5128e+00 , & - &5.4097e+00 ,6.2868e+00 ,7.2231e+00 /) - kao(:, 4, 4,12) = (/ & - &1.1543e-02 ,9.6345e-01 ,1.9267e+00 ,2.8898e+00 ,3.8526e+00 ,4.8146e+00 , & - &5.7741e+00 ,6.7146e+00 ,7.7051e+00 /) - kao(:, 5, 4,12) = (/ & - &1.1696e-02 ,1.0158e+00 ,2.0314e+00 ,3.0468e+00 ,4.0618e+00 ,5.0772e+00 , & - &6.0909e+00 ,7.0982e+00 ,8.1235e+00 /) - kao(:, 1, 5,12) = (/ & - &2.2302e-02 ,7.3490e-01 ,1.4696e+00 ,2.2046e+00 ,2.9394e+00 ,3.6745e+00 , & - &4.4097e+00 ,5.1450e+00 ,5.8787e+00 /) - kao(:, 2, 5,12) = (/ & - &2.2823e-02 ,7.9768e-01 ,1.5952e+00 ,2.3932e+00 ,3.1913e+00 ,3.9900e+00 , & - &4.7899e+00 ,5.5934e+00 ,6.3823e+00 /) - kao(:, 3, 5,12) = (/ & - &2.3280e-02 ,8.5775e-01 ,1.7153e+00 ,2.5734e+00 ,3.4313e+00 ,4.2902e+00 , & - &5.1502e+00 ,6.0153e+00 ,6.8623e+00 /) - kao(:, 4, 5,12) = (/ & - &2.3683e-02 ,9.1895e-01 ,1.8383e+00 ,2.7574e+00 ,3.6772e+00 ,4.5980e+00 , & - &5.5202e+00 ,6.4486e+00 ,7.3542e+00 /) - kao(:, 5, 5,12) = (/ & - &2.3999e-02 ,9.7537e-01 ,1.9505e+00 ,2.9260e+00 ,3.9018e+00 ,4.8784e+00 , & - &5.8576e+00 ,6.8447e+00 ,7.8034e+00 /) - kao(:, 1, 6,12) = (/ & - &4.2265e-02 ,6.7923e-01 ,1.3583e+00 ,2.0372e+00 ,2.7164e+00 ,3.3965e+00 , & - &4.0771e+00 ,4.7611e+00 ,5.4325e+00 /) - kao(:, 2, 6,12) = (/ & - &4.3312e-02 ,7.4027e-01 ,1.4802e+00 ,2.2203e+00 ,2.9606e+00 ,3.7016e+00 , & - &4.4440e+00 ,5.1934e+00 ,5.9209e+00 /) - kao(:, 3, 6,12) = (/ & - &4.4154e-02 ,8.0193e-01 ,1.6036e+00 ,2.4053e+00 ,3.2071e+00 ,4.0091e+00 , & - &4.8130e+00 ,5.6200e+00 ,6.4137e+00 /) - kao(:, 4, 6,12) = (/ & - &4.4818e-02 ,8.6447e-01 ,1.7287e+00 ,2.5931e+00 ,3.4580e+00 ,4.3234e+00 , & - &5.1892e+00 ,6.0606e+00 ,6.9157e+00 /) - kao(:, 5, 6,12) = (/ & - &4.5427e-02 ,9.2353e-01 ,1.8468e+00 ,2.7701e+00 ,3.6940e+00 ,4.6182e+00 , & - &5.5436e+00 ,6.4744e+00 ,7.3877e+00 /) - kao(:, 1, 7,12) = (/ & - &8.2851e-02 ,6.1813e-01 ,1.2353e+00 ,1.8525e+00 ,2.4701e+00 ,3.0880e+00 , & - &3.7064e+00 ,4.3285e+00 ,4.9392e+00 /) - kao(:, 2, 7,12) = (/ & - &8.4778e-02 ,6.8174e-01 ,1.3624e+00 ,2.0434e+00 ,2.7245e+00 ,3.4060e+00 , & - &4.0883e+00 ,4.7735e+00 ,5.4481e+00 /) - kao(:, 3, 7,12) = (/ & - &8.6620e-02 ,7.4569e-01 ,1.4908e+00 ,2.2359e+00 ,2.9814e+00 ,3.7272e+00 , & - &4.4733e+00 ,5.2220e+00 ,5.9623e+00 /) - kao(:, 4, 7,12) = (/ & - &8.8221e-02 ,8.0972e-01 ,1.6191e+00 ,2.4284e+00 ,3.2380e+00 ,4.0476e+00 , & - &4.8581e+00 ,5.6715e+00 ,6.4756e+00 /) - kao(:, 5, 7,12) = (/ & - &8.9388e-02 ,8.6929e-01 ,1.7383e+00 ,2.6072e+00 ,3.4769e+00 ,4.3464e+00 , & - &5.2172e+00 ,6.0912e+00 ,6.9533e+00 /) - kao(:, 1, 8,12) = (/ & - &1.9209e-01 ,6.2527e-01 ,1.1133e+00 ,1.6689e+00 ,2.2244e+00 ,2.7803e+00 , & - &3.3362e+00 ,3.8938e+00 ,4.4464e+00 /) - kao(:, 2, 8,12) = (/ & - &1.9727e-01 ,6.6108e-01 ,1.2430e+00 ,1.8635e+00 ,2.4844e+00 ,3.1054e+00 , & - &3.7267e+00 ,4.3504e+00 ,4.9671e+00 /) - kao(:, 3, 8,12) = (/ & - &2.0144e-01 ,7.0485e-01 ,1.3718e+00 ,2.0572e+00 ,2.7423e+00 ,3.4280e+00 , & - &4.1141e+00 ,4.8012e+00 ,5.4833e+00 /) - kao(:, 4, 8,12) = (/ & - &2.0484e-01 ,7.5576e-01 ,1.4986e+00 ,2.2473e+00 ,2.9964e+00 ,3.7450e+00 , & - &4.4951e+00 ,5.2469e+00 ,5.9915e+00 /) - kao(:, 5, 8,12) = (/ & - &2.0777e-01 ,8.0793e-01 ,1.6132e+00 ,2.4193e+00 ,3.2252e+00 ,4.0323e+00 , & - &4.8391e+00 ,5.6481e+00 ,6.4494e+00 /) - kao(:, 1, 9,12) = (/ & - &8.2620e-01 ,1.3515e+00 ,1.6396e+00 ,1.8633e+00 ,2.0617e+00 ,2.4827e+00 , & - &2.9771e+00 ,3.4729e+00 ,3.9666e+00 /) - kao(:, 2, 9,12) = (/ & - &8.4850e-01 ,1.4155e+00 ,1.7443e+00 ,1.9664e+00 ,2.2558e+00 ,2.7862e+00 , & - &3.3424e+00 ,3.8990e+00 ,4.4541e+00 /) - kao(:, 3, 9,12) = (/ & - &8.6743e-01 ,1.4840e+00 ,1.8355e+00 ,2.0729e+00 ,2.4805e+00 ,3.0958e+00 , & - &3.7138e+00 ,4.3325e+00 ,4.9497e+00 /) - kao(:, 4, 9,12) = (/ & - &8.8373e-01 ,1.5402e+00 ,1.9288e+00 ,2.1892e+00 ,2.7106e+00 ,3.3871e+00 , & - &4.0635e+00 ,4.7407e+00 ,5.4157e+00 /) - kao(:, 5, 9,12) = (/ & - &8.9622e-01 ,1.5897e+00 ,2.0124e+00 ,2.3107e+00 ,2.9348e+00 ,3.6673e+00 , & - &4.4005e+00 ,5.1335e+00 ,5.8643e+00 /) - kao(:, 1,10,12) = (/ & - &3.9173e+00 ,3.9928e+00 ,4.3366e+00 ,4.4280e+00 ,4.2663e+00 ,3.9998e+00 , & - &3.6166e+00 ,3.1308e+00 ,3.5126e+00 /) - kao(:, 2,10,12) = (/ & - &4.0212e+00 ,4.1687e+00 ,4.5593e+00 ,4.6368e+00 ,4.5220e+00 ,4.2834e+00 , & - &3.8634e+00 ,3.4894e+00 ,3.9713e+00 /) - kao(:, 3,10,12) = (/ & - &4.1147e+00 ,4.3230e+00 ,4.7454e+00 ,4.8522e+00 ,4.7749e+00 ,4.5433e+00 , & - &4.0957e+00 ,3.8708e+00 ,4.4196e+00 /) - kao(:, 4,10,12) = (/ & - &4.1890e+00 ,4.4586e+00 ,4.9236e+00 ,5.0494e+00 ,4.9988e+00 ,4.8016e+00 , & - &4.3028e+00 ,4.2486e+00 ,4.8508e+00 /) - kao(:, 5,10,12) = (/ & - &4.2486e+00 ,4.5669e+00 ,5.0902e+00 ,5.2222e+00 ,5.2265e+00 ,5.0216e+00 , & - &4.5057e+00 ,4.6204e+00 ,5.2753e+00 /) - kao(:, 1,11,12) = (/ & - &6.5008e+00 ,6.1849e+00 ,6.2789e+00 ,6.2685e+00 ,5.9393e+00 ,5.4109e+00 , & - &4.7099e+00 ,3.7046e+00 ,3.2687e+00 /) - kao(:, 2,11,12) = (/ & - &6.6711e+00 ,6.4071e+00 ,6.5745e+00 ,6.5690e+00 ,6.2447e+00 ,5.7486e+00 , & - &5.0466e+00 ,3.9652e+00 ,3.6849e+00 /) - kao(:, 3,11,12) = (/ & - &6.8141e+00 ,6.5961e+00 ,6.8266e+00 ,6.8425e+00 ,6.5425e+00 ,6.0645e+00 , & - &5.3679e+00 ,4.1951e+00 ,4.0848e+00 /) - kao(:, 4,11,12) = (/ & - &6.9309e+00 ,6.7641e+00 ,7.0497e+00 ,7.0951e+00 ,6.8173e+00 ,6.3688e+00 , & - &5.6628e+00 ,4.4427e+00 ,4.4838e+00 /) - kao(:, 5,11,12) = (/ & - &7.0334e+00 ,6.9031e+00 ,7.2676e+00 ,7.3125e+00 ,7.0679e+00 ,6.6762e+00 , & - &5.9144e+00 ,4.7231e+00 ,4.9084e+00 /) - kao(:, 1,12,12) = (/ & - &8.0356e+00 ,7.5209e+00 ,7.4229e+00 ,7.2434e+00 ,6.7979e+00 ,6.1202e+00 , & - &5.2895e+00 ,4.1070e+00 ,2.9936e+00 /) - kao(:, 2,12,12) = (/ & - &8.2347e+00 ,7.7748e+00 ,7.7310e+00 ,7.5713e+00 ,7.1351e+00 ,6.4951e+00 , & - &5.6590e+00 ,4.4043e+00 ,3.3743e+00 /) - kao(:, 3,12,12) = (/ & - &8.4084e+00 ,7.9908e+00 ,8.0012e+00 ,7.8714e+00 ,7.4600e+00 ,6.8499e+00 , & - &6.0055e+00 ,4.6706e+00 ,3.7574e+00 /) - kao(:, 4,12,12) = (/ & - &8.5546e+00 ,8.1702e+00 ,8.2474e+00 ,8.1496e+00 ,7.7631e+00 ,7.1869e+00 , & - &6.3250e+00 ,4.9362e+00 ,4.1426e+00 /) - kao(:, 5,12,12) = (/ & - &8.6676e+00 ,8.3299e+00 ,8.4723e+00 ,8.3950e+00 ,8.0405e+00 ,7.5149e+00 , & - &6.6159e+00 ,5.2129e+00 ,4.5254e+00 /) - kao(:, 1,13,12) = (/ & - &7.9759e+00 ,7.5343e+00 ,7.4503e+00 ,7.1563e+00 ,6.6524e+00 ,6.0033e+00 , & - &5.2080e+00 ,4.0643e+00 ,2.7278e+00 /) - kao(:, 2,13,12) = (/ & - &8.1794e+00 ,7.7874e+00 ,7.7473e+00 ,7.4642e+00 ,6.9912e+00 ,6.3834e+00 , & - &5.5711e+00 ,4.3572e+00 ,3.0821e+00 /) - kao(:, 3,13,12) = (/ & - &8.3457e+00 ,8.0091e+00 ,8.0057e+00 ,7.7578e+00 ,7.3258e+00 ,6.7364e+00 , & - &5.9096e+00 ,4.6439e+00 ,3.4477e+00 /) - kao(:, 4,13,12) = (/ & - &8.4812e+00 ,8.2074e+00 ,8.2395e+00 ,8.0326e+00 ,7.6295e+00 ,7.0667e+00 , & - &6.2213e+00 ,4.9334e+00 ,3.7948e+00 /) - kao(:, 5,13,12) = (/ & - &8.5914e+00 ,8.3651e+00 ,8.4655e+00 ,8.2768e+00 ,7.9296e+00 ,7.3785e+00 , & - &6.5133e+00 ,5.2165e+00 ,4.1485e+00 /) - kao(:, 1, 1,13) = (/ & - &1.8376e-03 ,1.2493e+00 ,2.4869e+00 ,3.7066e+00 ,4.8962e+00 ,6.0283e+00 , & - &7.0325e+00 ,7.5732e+00 ,9.7924e+00 /) - kao(:, 2, 1,13) = (/ & - &1.8435e-03 ,1.3137e+00 ,2.6151e+00 ,3.8978e+00 ,5.1474e+00 ,6.3345e+00 , & - &7.3693e+00 ,7.9436e+00 ,1.0295e+01 /) - kao(:, 3, 1,13) = (/ & - &1.8457e-03 ,1.3823e+00 ,2.7512e+00 ,4.0980e+00 ,5.4060e+00 ,6.6439e+00 , & - &7.7282e+00 ,8.2817e+00 ,1.0812e+01 /) - kao(:, 4, 1,13) = (/ & - &1.8458e-03 ,1.4480e+00 ,2.8814e+00 ,4.2920e+00 ,5.6663e+00 ,6.9707e+00 , & - &8.1084e+00 ,8.6593e+00 ,1.1333e+01 /) - kao(:, 5, 1,13) = (/ & - &1.8581e-03 ,1.5191e+00 ,3.0214e+00 ,4.4961e+00 ,5.9276e+00 ,7.2804e+00 , & - &8.4721e+00 ,9.0750e+00 ,1.1855e+01 /) - kao(:, 1, 2,13) = (/ & - &3.0081e-03 ,1.2887e+00 ,2.5721e+00 ,3.8463e+00 ,5.1064e+00 ,6.3378e+00 , & - &7.4987e+00 ,8.3933e+00 ,1.0213e+01 /) - kao(:, 2, 2,13) = (/ & - &3.0389e-03 ,1.3599e+00 ,2.7131e+00 ,4.0552e+00 ,5.3783e+00 ,6.6678e+00 , & - &7.8772e+00 ,8.7981e+00 ,1.0756e+01 /) - kao(:, 3, 2,13) = (/ & - &3.0623e-03 ,1.4308e+00 ,2.8555e+00 ,4.2711e+00 ,5.6674e+00 ,7.0255e+00 , & - &8.2810e+00 ,9.2099e+00 ,1.1335e+01 /) - kao(:, 4, 2,13) = (/ & - &3.1073e-03 ,1.4998e+00 ,2.9927e+00 ,4.4738e+00 ,5.9361e+00 ,7.3612e+00 , & - &8.6975e+00 ,9.6506e+00 ,1.1872e+01 /) - kao(:, 5, 2,13) = (/ & - &3.1371e-03 ,1.5763e+00 ,3.1432e+00 ,4.6958e+00 ,6.2242e+00 ,7.7091e+00 , & - &9.0917e+00 ,1.0108e+01 ,1.2448e+01 /) - kao(:, 1, 3,13) = (/ & - &6.7566e-03 ,1.3010e+00 ,2.6001e+00 ,3.8967e+00 ,5.1878e+00 ,6.4676e+00 , & - &7.7183e+00 ,8.8575e+00 ,1.0376e+01 /) - kao(:, 2, 3,13) = (/ & - &6.8655e-03 ,1.3725e+00 ,2.7424e+00 ,4.1083e+00 ,5.4679e+00 ,6.8133e+00 , & - &8.1286e+00 ,9.3210e+00 ,1.0936e+01 /) - kao(:, 3, 3,13) = (/ & - &7.0162e-03 ,1.4463e+00 ,2.8900e+00 ,4.3294e+00 ,5.7613e+00 ,7.1793e+00 , & - &8.5582e+00 ,9.7979e+00 ,1.1523e+01 /) - kao(:, 4, 3,13) = (/ & - &7.1355e-03 ,1.5186e+00 ,3.0341e+00 ,4.5447e+00 ,6.0464e+00 ,7.5309e+00 , & - &8.9783e+00 ,1.0290e+01 ,1.2093e+01 /) - kao(:, 5, 3,13) = (/ & - &7.2326e-03 ,1.6009e+00 ,3.1979e+00 ,4.7883e+00 ,6.3681e+00 ,7.9274e+00 , & - &9.4396e+00 ,1.0789e+01 ,1.2736e+01 /) - kao(:, 1, 4,13) = (/ & - &1.5770e-02 ,1.2974e+00 ,2.5940e+00 ,3.8891e+00 ,5.1823e+00 ,6.4711e+00 , & - &7.7497e+00 ,8.9872e+00 ,1.0364e+01 /) - kao(:, 2, 4,13) = (/ & - &1.6102e-02 ,1.3725e+00 ,2.7438e+00 ,4.1133e+00 ,5.4792e+00 ,6.8384e+00 , & - &8.1824e+00 ,9.4681e+00 ,1.0958e+01 /) - kao(:, 3, 4,13) = (/ & - &1.6461e-02 ,1.4529e+00 ,2.9044e+00 ,4.3540e+00 ,5.7994e+00 ,7.2375e+00 , & - &8.6575e+00 ,1.0008e+01 ,1.1599e+01 /) - kao(:, 4, 4,13) = (/ & - &1.6764e-02 ,1.5336e+00 ,3.0659e+00 ,4.5952e+00 ,6.1201e+00 ,7.6366e+00 , & - &9.1307e+00 ,1.0552e+01 ,1.2240e+01 /) - kao(:, 5, 4,13) = (/ & - &1.6983e-02 ,1.6203e+00 ,3.2389e+00 ,4.8548e+00 ,6.4661e+00 ,8.0668e+00 , & - &9.6455e+00 ,1.1132e+01 ,1.2932e+01 /) - kao(:, 1, 5,13) = (/ & - &3.3958e-02 ,1.2926e+00 ,2.5850e+00 ,3.8765e+00 ,5.1671e+00 ,6.4548e+00 , & - &7.7382e+00 ,9.0001e+00 ,1.0334e+01 /) - kao(:, 2, 5,13) = (/ & - &3.4722e-02 ,1.3756e+00 ,2.7505e+00 ,4.1243e+00 ,5.4969e+00 ,6.8654e+00 , & - &8.2252e+00 ,9.5545e+00 ,1.0994e+01 /) - kao(:, 3, 5,13) = (/ & - &3.5363e-02 ,1.4648e+00 ,2.9290e+00 ,4.3919e+00 ,5.8529e+00 ,7.3099e+00 , & - &8.7568e+00 ,1.0164e+01 ,1.1706e+01 /) - kao(:, 4, 5,13) = (/ & - &3.6012e-02 ,1.5505e+00 ,3.1003e+00 ,4.6491e+00 ,6.1954e+00 ,7.7382e+00 , & - &9.2690e+00 ,1.0761e+01 ,1.2391e+01 /) - kao(:, 5, 5,13) = (/ & - &3.6453e-02 ,1.6361e+00 ,3.2714e+00 ,4.9053e+00 ,6.5374e+00 ,8.1645e+00 , & - &9.7803e+00 ,1.1352e+01 ,1.3075e+01 /) - kao(:, 1, 6,13) = (/ & - &6.7837e-02 ,1.2756e+00 ,2.5511e+00 ,3.8262e+00 ,5.1016e+00 ,6.3755e+00 , & - &7.6486e+00 ,8.9147e+00 ,1.0203e+01 /) - kao(:, 2, 6,13) = (/ & - &6.9368e-02 ,1.3655e+00 ,2.7307e+00 ,4.0953e+00 ,5.4595e+00 ,6.8218e+00 , & - &8.1822e+00 ,9.5288e+00 ,1.0919e+01 /) - kao(:, 3, 6,13) = (/ & - &7.0610e-02 ,1.4598e+00 ,2.9193e+00 ,4.3789e+00 ,5.8375e+00 ,7.2946e+00 , & - &8.7480e+00 ,1.0185e+01 ,1.1675e+01 /) - kao(:, 4, 6,13) = (/ & - &7.1895e-02 ,1.5499e+00 ,3.0992e+00 ,4.6481e+00 ,6.1963e+00 ,7.7431e+00 , & - &9.2863e+00 ,1.0814e+01 ,1.2392e+01 /) - kao(:, 5, 6,13) = (/ & - &7.2713e-02 ,1.6401e+00 ,3.2796e+00 ,4.9184e+00 ,6.5572e+00 ,8.1927e+00 , & - &9.8252e+00 ,1.1440e+01 ,1.3114e+01 /) - kao(:, 1, 7,13) = (/ & - &1.4148e-01 ,1.2306e+00 ,2.4611e+00 ,3.6917e+00 ,4.9218e+00 ,6.1530e+00 , & - &7.3843e+00 ,8.6153e+00 ,9.8436e+00 /) - kao(:, 2, 7,13) = (/ & - &1.4468e-01 ,1.3267e+00 ,2.6534e+00 ,3.9799e+00 ,5.3067e+00 ,6.6328e+00 , & - &7.9589e+00 ,9.2835e+00 ,1.0613e+01 /) - kao(:, 3, 7,13) = (/ & - &1.4723e-01 ,1.4271e+00 ,2.8538e+00 ,4.2801e+00 ,5.7062e+00 ,7.1323e+00 , & - &8.5577e+00 ,9.9797e+00 ,1.1412e+01 /) - kao(:, 4, 7,13) = (/ & - &1.4959e-01 ,1.5234e+00 ,3.0460e+00 ,4.5687e+00 ,6.0905e+00 ,7.6133e+00 , & - &9.1342e+00 ,1.0653e+01 ,1.2180e+01 /) - kao(:, 5, 7,13) = (/ & - &1.5109e-01 ,1.6156e+00 ,3.2301e+00 ,4.8444e+00 ,6.4594e+00 ,8.0732e+00 , & - &9.6859e+00 ,1.1294e+01 ,1.2918e+01 /) - kao(:, 1, 8,13) = (/ & - &3.4983e-01 ,1.1544e+00 ,2.3087e+00 ,3.4632e+00 ,4.6176e+00 ,5.7728e+00 , & - &6.9283e+00 ,8.0852e+00 ,9.2350e+00 /) - kao(:, 2, 8,13) = (/ & - &3.5757e-01 ,1.2554e+00 ,2.5092e+00 ,3.7633e+00 ,5.0176e+00 ,6.2716e+00 , & - &7.5265e+00 ,8.7822e+00 ,1.0034e+01 /) - kao(:, 3, 8,13) = (/ & - &3.6359e-01 ,1.3606e+00 ,2.7192e+00 ,4.0780e+00 ,5.4366e+00 ,6.7958e+00 , & - &8.1543e+00 ,9.5151e+00 ,1.0871e+01 /) - kao(:, 4, 8,13) = (/ & - &3.6947e-01 ,1.4619e+00 ,2.9219e+00 ,4.3820e+00 ,5.8417e+00 ,7.3019e+00 , & - &8.7622e+00 ,1.0223e+01 ,1.1681e+01 /) - kao(:, 5, 8,13) = (/ & - &3.7269e-01 ,1.5629e+00 ,3.1234e+00 ,4.6839e+00 ,6.2445e+00 ,7.8052e+00 , & - &9.3661e+00 ,1.0928e+01 ,1.2487e+01 /) - kao(:, 1, 9,13) = (/ & - &1.6120e+00 ,2.1579e+00 ,2.5856e+00 ,3.2058e+00 ,4.2226e+00 ,5.2767e+00 , & - &6.3317e+00 ,7.3871e+00 ,8.4404e+00 /) - kao(:, 2, 9,13) = (/ & - &1.6481e+00 ,2.2537e+00 ,2.6687e+00 ,3.4901e+00 ,4.6465e+00 ,5.8062e+00 , & - &6.9659e+00 ,8.1266e+00 ,9.2849e+00 /) - kao(:, 3, 9,13) = (/ & - &1.6791e+00 ,2.3216e+00 ,2.7898e+00 ,3.8113e+00 ,5.0781e+00 ,6.3453e+00 , & - &7.6127e+00 ,8.8803e+00 ,1.0146e+01 /) - kao(:, 4, 9,13) = (/ & - &1.7002e+00 ,2.3849e+00 ,2.9226e+00 ,4.1389e+00 ,5.5144e+00 ,6.8902e+00 , & - &8.2665e+00 ,9.6440e+00 ,1.1018e+01 /) - kao(:, 5, 9,13) = (/ & - &1.7139e+00 ,2.4356e+00 ,3.0744e+00 ,4.4589e+00 ,5.9418e+00 ,7.4246e+00 , & - &8.9078e+00 ,1.0391e+01 ,1.1873e+01 /) - kao(:, 1,10,13) = (/ & - &8.1900e+00 ,7.5735e+00 ,7.5164e+00 ,7.4868e+00 ,7.2490e+00 ,6.5441e+00 , & - &6.0001e+00 ,6.6902e+00 ,7.6402e+00 /) - kao(:, 2,10,13) = (/ & - &8.3686e+00 ,7.7990e+00 ,7.8449e+00 ,7.8651e+00 ,7.5310e+00 ,6.7442e+00 , & - &6.5109e+00 ,7.4533e+00 ,8.5097e+00 /) - kao(:, 3,10,13) = (/ & - &8.5094e+00 ,8.0068e+00 ,8.1129e+00 ,8.1601e+00 ,7.7387e+00 ,7.0241e+00 , & - &7.1098e+00 ,8.2483e+00 ,9.4190e+00 /) - kao(:, 4,10,13) = (/ & - &8.6083e+00 ,8.1729e+00 ,8.3302e+00 ,8.3900e+00 ,7.9589e+00 ,7.3305e+00 , & - &7.7681e+00 ,9.0471e+00 ,1.0331e+01 /) - kao(:, 5,10,13) = (/ & - &8.6642e+00 ,8.2947e+00 ,8.5084e+00 ,8.6017e+00 ,8.1354e+00 ,7.7044e+00 , & - &8.4486e+00 ,9.8464e+00 ,1.1244e+01 /) - kao(:, 1,11,13) = (/ & - &1.4422e+01 ,1.2923e+01 ,1.2146e+01 ,1.1467e+01 ,1.0797e+01 ,9.7043e+00 , & - &7.9341e+00 ,6.4523e+00 ,7.2283e+00 /) - kao(:, 2,11,13) = (/ & - &1.4693e+01 ,1.3224e+01 ,1.2546e+01 ,1.1961e+01 ,1.1284e+01 ,1.0051e+01 , & - &8.2717e+00 ,7.1710e+00 ,8.1411e+00 /) - kao(:, 3,11,13) = (/ & - &1.4865e+01 ,1.3437e+01 ,1.2872e+01 ,1.2352e+01 ,1.1673e+01 ,1.0373e+01 , & - &8.6477e+00 ,7.9776e+00 ,9.0911e+00 /) - kao(:, 4,11,13) = (/ & - &1.4985e+01 ,1.3594e+01 ,1.3136e+01 ,1.2689e+01 ,1.2000e+01 ,1.0700e+01 , & - &9.0501e+00 ,8.7877e+00 ,1.0028e+01 /) - kao(:, 5,11,13) = (/ & - &1.5049e+01 ,1.3704e+01 ,1.3344e+01 ,1.2975e+01 ,1.2311e+01 ,1.0977e+01 , & - &9.5392e+00 ,9.6092e+00 ,1.0970e+01 /) - kao(:, 1,12,13) = (/ & - &1.8498e+01 ,1.6493e+01 ,1.5330e+01 ,1.4296e+01 ,1.3227e+01 ,1.1776e+01 , & - &9.6093e+00 ,6.9105e+00 ,6.8698e+00 /) - kao(:, 2,12,13) = (/ & - &1.8757e+01 ,1.6799e+01 ,1.5767e+01 ,1.4839e+01 ,1.3780e+01 ,1.2237e+01 , & - &1.0031e+01 ,7.5179e+00 ,7.8121e+00 /) - kao(:, 3,12,13) = (/ & - &1.8947e+01 ,1.7036e+01 ,1.6095e+01 ,1.5249e+01 ,1.4223e+01 ,1.2650e+01 , & - &1.0480e+01 ,8.1785e+00 ,8.7273e+00 /) - kao(:, 4,12,13) = (/ & - &1.9063e+01 ,1.7202e+01 ,1.6365e+01 ,1.5574e+01 ,1.4614e+01 ,1.3047e+01 , & - &1.0927e+01 ,8.8781e+00 ,9.6514e+00 /) - kao(:, 5,12,13) = (/ & - &1.9121e+01 ,1.7309e+01 ,1.6592e+01 ,1.5868e+01 ,1.4993e+01 ,1.3399e+01 , & - &1.1411e+01 ,9.6204e+00 ,1.0609e+01 /) - kao(:, 1,13,13) = (/ & - &1.8681e+01 ,1.6791e+01 ,1.5759e+01 ,1.4851e+01 ,1.3770e+01 ,1.2167e+01 , & - &1.0009e+01 ,7.2580e+00 ,6.5238e+00 /) - kao(:, 2,13,13) = (/ & - &1.8892e+01 ,1.7070e+01 ,1.6163e+01 ,1.5373e+01 ,1.4290e+01 ,1.2645e+01 , & - &1.0505e+01 ,7.8149e+00 ,7.3987e+00 /) - kao(:, 3,13,13) = (/ & - &1.9028e+01 ,1.7273e+01 ,1.6517e+01 ,1.5784e+01 ,1.4702e+01 ,1.3114e+01 , & - &1.1026e+01 ,8.4153e+00 ,8.2894e+00 /) - kao(:, 4,13,13) = (/ & - &1.9122e+01 ,1.7418e+01 ,1.6814e+01 ,1.6131e+01 ,1.5108e+01 ,1.3570e+01 , & - &1.1549e+01 ,9.0457e+00 ,9.1940e+00 /) - kao(:, 5,13,13) = (/ & - &1.9151e+01 ,1.7520e+01 ,1.7041e+01 ,1.6440e+01 ,1.5494e+01 ,1.4010e+01 , & - &1.2106e+01 ,9.7104e+00 ,1.0102e+01 /) - kao(:, 1, 1,14) = (/ & - &3.3087e-03 ,1.8715e+00 ,3.7152e+00 ,5.5155e+00 ,7.2487e+00 ,8.8573e+00 , & - &1.0201e+01 ,1.0807e+01 ,1.4497e+01 /) - kao(:, 2, 1,14) = (/ & - &3.2220e-03 ,1.9525e+00 ,3.8750e+00 ,5.7533e+00 ,7.5552e+00 ,9.2212e+00 , & - &1.0608e+01 ,1.1197e+01 ,1.5110e+01 /) - kao(:, 3, 1,14) = (/ & - &3.1339e-03 ,2.0260e+00 ,4.0195e+00 ,5.9653e+00 ,7.8344e+00 ,9.5608e+00 , & - &1.0981e+01 ,1.1562e+01 ,1.5669e+01 /) - kao(:, 4, 1,14) = (/ & - &3.0455e-03 ,2.1060e+00 ,4.1769e+00 ,6.1939e+00 ,8.1222e+00 ,9.8877e+00 , & - &1.1323e+01 ,1.1897e+01 ,1.6244e+01 /) - kao(:, 5, 1,14) = (/ & - &2.9339e-03 ,2.1869e+00 ,4.3369e+00 ,6.4318e+00 ,8.4325e+00 ,1.0262e+01 , & - &1.1718e+01 ,1.2199e+01 ,1.6865e+01 /) - kao(:, 1, 2,14) = (/ & - &5.2878e-03 ,2.0475e+00 ,4.0760e+00 ,6.0751e+00 ,8.0240e+00 ,9.8767e+00 , & - &1.1510e+01 ,1.2463e+01 ,1.6048e+01 /) - kao(:, 2, 2,14) = (/ & - &5.1473e-03 ,2.1393e+00 ,4.2595e+00 ,6.3491e+00 ,8.3874e+00 ,1.0326e+01 , & - &1.2039e+01 ,1.3009e+01 ,1.6775e+01 /) - kao(:, 3, 2,14) = (/ & - &5.0049e-03 ,2.2262e+00 ,4.4297e+00 ,6.5989e+00 ,8.7109e+00 ,1.0721e+01 , & - &1.2503e+01 ,1.3517e+01 ,1.7422e+01 /) - kao(:, 4, 2,14) = (/ & - &4.8227e-03 ,2.3172e+00 ,4.6099e+00 ,6.8638e+00 ,9.0568e+00 ,1.1128e+01 , & - &1.2937e+01 ,1.3964e+01 ,1.8113e+01 /) - kao(:, 5, 2,14) = (/ & - &4.6542e-03 ,2.4084e+00 ,4.7911e+00 ,7.1333e+00 ,9.4086e+00 ,1.1557e+01 , & - &1.3418e+01 ,1.4407e+01 ,1.8817e+01 /) - kao(:, 1, 3,14) = (/ & - &1.1438e-02 ,2.1889e+00 ,4.3692e+00 ,6.5353e+00 ,8.6778e+00 ,1.0773e+01 , & - &1.2758e+01 ,1.4346e+01 ,1.7356e+01 /) - kao(:, 2, 3,14) = (/ & - &1.1139e-02 ,2.3041e+00 ,4.5995e+00 ,6.8793e+00 ,9.1316e+00 ,1.1334e+01 , & - &1.3411e+01 ,1.5052e+01 ,1.8263e+01 /) - kao(:, 3, 3,14) = (/ & - &1.0770e-02 ,2.4104e+00 ,4.8103e+00 ,7.1935e+00 ,9.5485e+00 ,1.1847e+01 , & - &1.4017e+01 ,1.5716e+01 ,1.9097e+01 /) - kao(:, 4, 3,14) = (/ & - &1.0423e-02 ,2.5146e+00 ,5.0181e+00 ,7.5021e+00 ,9.9570e+00 ,1.2351e+01 , & - &1.4597e+01 ,1.6319e+01 ,1.9914e+01 /) - kao(:, 5, 3,14) = (/ & - &1.0104e-02 ,2.6169e+00 ,5.2203e+00 ,7.8059e+00 ,1.0356e+01 ,1.2839e+01 , & - &1.5169e+01 ,1.6937e+01 ,2.0712e+01 /) - kao(:, 1, 4,14) = (/ & - &2.5365e-02 ,2.3050e+00 ,4.6063e+00 ,6.9017e+00 ,9.1853e+00 ,1.1448e+01 , & - &1.3656e+01 ,1.5659e+01 ,1.8370e+01 /) - kao(:, 2, 4,14) = (/ & - &2.4778e-02 ,2.4401e+00 ,4.8764e+00 ,7.3060e+00 ,9.7240e+00 ,1.2119e+01 , & - &1.4458e+01 ,1.6580e+01 ,1.9448e+01 /) - kao(:, 3, 4,14) = (/ & - &2.4097e-02 ,2.5614e+00 ,5.1183e+00 ,7.6688e+00 ,1.0206e+01 ,1.2719e+01 , & - &1.5172e+01 ,1.7403e+01 ,2.0411e+01 /) - kao(:, 4, 4,14) = (/ & - &2.3478e-02 ,2.6774e+00 ,5.3500e+00 ,8.0159e+00 ,1.0665e+01 ,1.3289e+01 , & - &1.5848e+01 ,1.8161e+01 ,2.1330e+01 /) - kao(:, 5, 4,14) = (/ & - &2.2944e-02 ,2.7978e+00 ,5.5896e+00 ,8.3727e+00 ,1.1139e+01 ,1.3876e+01 , & - &1.6535e+01 ,1.8911e+01 ,2.2278e+01 /) - kao(:, 1, 5,14) = (/ & - &5.2400e-02 ,2.3882e+00 ,4.7744e+00 ,7.1579e+00 ,9.5370e+00 ,1.1906e+01 , & - &1.4251e+01 ,1.6502e+01 ,1.9074e+01 /) - kao(:, 2, 5,14) = (/ & - &5.1529e-02 ,2.5417e+00 ,5.0820e+00 ,7.6184e+00 ,1.0150e+01 ,1.2670e+01 , & - &1.5165e+01 ,1.7564e+01 ,2.0300e+01 /) - kao(:, 3, 5,14) = (/ & - &5.0713e-02 ,2.6834e+00 ,5.3644e+00 ,8.0415e+00 ,1.0713e+01 ,1.3375e+01 , & - &1.6005e+01 ,1.8525e+01 ,2.1426e+01 /) - kao(:, 4, 5,14) = (/ & - &4.9736e-02 ,2.8194e+00 ,5.6359e+00 ,8.4488e+00 ,1.1255e+01 ,1.4048e+01 , & - &1.6805e+01 ,1.9440e+01 ,2.2511e+01 /) - kao(:, 5, 5,14) = (/ & - &4.8999e-02 ,2.9595e+00 ,5.9157e+00 ,8.8682e+00 ,1.1813e+01 ,1.4742e+01 , & - &1.7634e+01 ,2.0380e+01 ,2.3625e+01 /) - kao(:, 1, 6,14) = (/ & - &1.0351e-01 ,2.4306e+00 ,4.8601e+00 ,7.2890e+00 ,9.7147e+00 ,1.2135e+01 , & - &1.4543e+01 ,1.6905e+01 ,1.9429e+01 /) - kao(:, 2, 6,14) = (/ & - &1.0255e-01 ,2.6140e+00 ,5.2274e+00 ,7.8383e+00 ,1.0448e+01 ,1.3051e+01 , & - &1.5640e+01 ,1.8174e+01 ,2.0896e+01 /) - kao(:, 3, 6,14) = (/ & - &1.0183e-01 ,2.7755e+00 ,5.5503e+00 ,8.3234e+00 ,1.1093e+01 ,1.3857e+01 , & - &1.6607e+01 ,1.9300e+01 ,2.2186e+01 /) - kao(:, 4, 6,14) = (/ & - &1.0081e-01 ,2.9307e+00 ,5.8597e+00 ,8.7876e+00 ,1.1711e+01 ,1.4627e+01 , & - &1.7527e+01 ,2.0360e+01 ,2.3422e+01 /) - kao(:, 5, 6,14) = (/ & - &1.0025e-01 ,3.0883e+00 ,6.1762e+00 ,9.2605e+00 ,1.2342e+01 ,1.5414e+01 , & - &1.8466e+01 ,2.1444e+01 ,2.4683e+01 /) - kao(:, 1, 7,14) = (/ & - &2.1803e-01 ,2.4631e+00 ,4.9259e+00 ,7.3877e+00 ,9.8477e+00 ,1.2306e+01 , & - &1.4757e+01 ,1.7182e+01 ,1.9695e+01 /) - kao(:, 2, 7,14) = (/ & - &2.1806e-01 ,2.6703e+00 ,5.3400e+00 ,8.0091e+00 ,1.0677e+01 ,1.3341e+01 , & - &1.6000e+01 ,1.8630e+01 ,2.1354e+01 /) - kao(:, 3, 7,14) = (/ & - &2.1815e-01 ,2.8507e+00 ,5.7004e+00 ,8.5504e+00 ,1.1399e+01 ,1.4242e+01 , & - &1.7080e+01 ,1.9888e+01 ,2.2798e+01 /) - kao(:, 4, 7,14) = (/ & - &2.1765e-01 ,3.0257e+00 ,6.0505e+00 ,9.0745e+00 ,1.2096e+01 ,1.5115e+01 , & - &1.8125e+01 ,2.1099e+01 ,2.4193e+01 /) - kao(:, 5, 7,14) = (/ & - &2.1725e-01 ,3.2088e+00 ,6.4163e+00 ,9.6232e+00 ,1.2829e+01 ,1.6028e+01 , & - &1.9219e+01 ,2.2369e+01 ,2.5657e+01 /) - kao(:, 1, 8,14) = (/ & - &5.5719e-01 ,2.4793e+00 ,4.9583e+00 ,7.4367e+00 ,9.9152e+00 ,1.2393e+01 , & - &1.4868e+01 ,1.7332e+01 ,1.9830e+01 /) - kao(:, 2, 8,14) = (/ & - &5.6059e-01 ,2.7128e+00 ,5.4248e+00 ,8.1366e+00 ,1.0849e+01 ,1.3560e+01 , & - &1.6268e+01 ,1.8965e+01 ,2.1697e+01 /) - kao(:, 3, 8,14) = (/ & - &5.6435e-01 ,2.9177e+00 ,5.8349e+00 ,8.7514e+00 ,1.1668e+01 ,1.4583e+01 , & - &1.7497e+01 ,2.0397e+01 ,2.3335e+01 /) - kao(:, 4, 8,14) = (/ & - &5.6354e-01 ,3.1161e+00 ,6.2315e+00 ,9.3470e+00 ,1.2462e+01 ,1.5576e+01 , & - &1.8684e+01 ,2.1779e+01 ,2.4923e+01 /) - kao(:, 5, 8,14) = (/ & - &5.6160e-01 ,3.3171e+00 ,6.6335e+00 ,9.9496e+00 ,1.3266e+01 ,1.6580e+01 , & - &1.9888e+01 ,2.3183e+01 ,2.6532e+01 /) - kao(:, 1, 9,14) = (/ & - &2.7023e+00 ,3.1133e+00 ,4.9392e+00 ,7.4089e+00 ,9.8776e+00 ,1.2348e+01 , & - &1.4816e+01 ,1.7282e+01 ,1.9755e+01 /) - kao(:, 2, 9,14) = (/ & - &2.7329e+00 ,3.1899e+00 ,5.4498e+00 ,8.1745e+00 ,1.0899e+01 ,1.3624e+01 , & - &1.6348e+01 ,1.9070e+01 ,2.1798e+01 /) - kao(:, 3, 9,14) = (/ & - &2.7414e+00 ,3.2928e+00 ,5.9087e+00 ,8.8629e+00 ,1.1816e+01 ,1.4770e+01 , & - &1.7722e+01 ,2.0675e+01 ,2.3632e+01 /) - kao(:, 4, 9,14) = (/ & - &2.7386e+00 ,3.4095e+00 ,6.3408e+00 ,9.5112e+00 ,1.2680e+01 ,1.5850e+01 , & - &1.9019e+01 ,2.2186e+01 ,2.5359e+01 /) - kao(:, 5, 9,14) = (/ & - &2.7253e+00 ,3.5556e+00 ,6.7742e+00 ,1.0160e+01 ,1.3547e+01 ,1.6934e+01 , & - &2.0319e+01 ,2.3701e+01 ,2.7094e+01 /) - kao(:, 1,10,14) = (/ & - &1.4620e+01 ,1.3012e+01 ,1.2093e+01 ,1.1252e+01 ,1.0888e+01 ,1.2263e+01 , & - &1.4693e+01 ,1.7142e+01 ,1.9590e+01 /) - kao(:, 2,10,14) = (/ & - &1.4753e+01 ,1.3186e+01 ,1.2290e+01 ,1.1490e+01 ,1.1589e+01 ,1.3604e+01 , & - &1.6324e+01 ,1.9044e+01 ,2.1765e+01 /) - kao(:, 3,10,14) = (/ & - &1.4775e+01 ,1.3219e+01 ,1.2416e+01 ,1.1687e+01 ,1.2328e+01 ,1.4817e+01 , & - &1.7779e+01 ,2.0743e+01 ,2.3705e+01 /) - kao(:, 4,10,14) = (/ & - &1.4749e+01 ,1.3203e+01 ,1.2546e+01 ,1.1974e+01 ,1.3088e+01 ,1.5981e+01 , & - &1.9178e+01 ,2.2373e+01 ,2.5570e+01 /) - kao(:, 5,10,14) = (/ & - &1.4700e+01 ,1.3186e+01 ,1.2659e+01 ,1.2331e+01 ,1.3931e+01 ,1.7138e+01 , & - &2.0565e+01 ,2.3991e+01 ,2.7418e+01 /) - kao(:, 1,11,14) = (/ & - &2.7410e+01 ,2.3992e+01 ,2.1335e+01 ,1.9158e+01 ,1.6847e+01 ,1.4928e+01 , & - &1.5265e+01 ,1.7677e+01 ,2.0202e+01 /) - kao(:, 2,11,14) = (/ & - &2.7494e+01 ,2.4097e+01 ,2.1553e+01 ,1.9434e+01 ,1.7307e+01 ,1.5809e+01 , & - &1.6793e+01 ,1.9551e+01 ,2.2343e+01 /) - kao(:, 3,11,14) = (/ & - &2.7540e+01 ,2.4181e+01 ,2.1730e+01 ,1.9742e+01 ,1.7701e+01 ,1.6732e+01 , & - &1.8269e+01 ,2.1306e+01 ,2.4350e+01 /) - kao(:, 4,11,14) = (/ & - &2.7514e+01 ,2.4204e+01 ,2.1897e+01 ,2.0034e+01 ,1.8171e+01 ,1.7696e+01 , & - &1.9766e+01 ,2.3053e+01 ,2.6341e+01 /) - kao(:, 5,11,14) = (/ & - &2.7458e+01 ,2.4204e+01 ,2.2040e+01 ,2.0324e+01 ,1.8730e+01 ,1.8750e+01 , & - &2.1236e+01 ,2.4764e+01 ,2.8296e+01 /) - kao(:, 1,12,14) = (/ & - &3.7739e+01 ,3.3022e+01 ,2.9081e+01 ,2.5731e+01 ,2.2384e+01 ,1.9192e+01 , & - &1.6882e+01 ,1.7924e+01 ,2.0483e+01 /) - kao(:, 2,12,14) = (/ & - &3.7888e+01 ,3.3157e+01 ,2.9316e+01 ,2.6118e+01 ,2.2987e+01 ,1.9918e+01 , & - &1.8210e+01 ,1.9805e+01 ,2.2631e+01 /) - kao(:, 3,12,14) = (/ & - &3.7945e+01 ,3.3236e+01 ,2.9563e+01 ,2.6509e+01 ,2.3567e+01 ,2.0714e+01 , & - &1.9521e+01 ,2.1672e+01 ,2.4760e+01 /) - kao(:, 4,12,14) = (/ & - &3.7956e+01 ,3.3289e+01 ,2.9765e+01 ,2.6932e+01 ,2.4108e+01 ,2.1541e+01 , & - &2.0877e+01 ,2.3478e+01 ,2.6821e+01 /) - kao(:, 5,12,14) = (/ & - &3.7967e+01 ,3.3331e+01 ,2.9953e+01 ,2.7347e+01 ,2.4651e+01 ,2.2457e+01 , & - &2.2265e+01 ,2.5248e+01 ,2.8840e+01 /) - kao(:, 1,13,14) = (/ & - &4.1396e+01 ,3.6239e+01 ,3.2059e+01 ,2.8493e+01 ,2.4944e+01 ,2.1585e+01 , & - &1.8204e+01 ,1.7791e+01 ,2.0316e+01 /) - kao(:, 2,13,14) = (/ & - &4.1543e+01 ,3.6421e+01 ,3.2427e+01 ,2.9033e+01 ,2.5736e+01 ,2.2468e+01 , & - &1.9493e+01 ,1.9781e+01 ,2.2598e+01 /) - kao(:, 3,13,14) = (/ & - &4.1678e+01 ,3.6592e+01 ,3.2739e+01 ,2.9584e+01 ,2.6500e+01 ,2.3336e+01 , & - &2.0749e+01 ,2.1701e+01 ,2.4790e+01 /) - kao(:, 4,13,14) = (/ & - &4.1767e+01 ,3.6719e+01 ,3.3041e+01 ,3.0106e+01 ,2.7204e+01 ,2.4205e+01 , & - &2.2086e+01 ,2.3604e+01 ,2.6962e+01 /) - kao(:, 5,13,14) = (/ & - &4.1856e+01 ,3.6841e+01 ,3.3340e+01 ,3.0667e+01 ,2.7878e+01 ,2.5159e+01 , & - &2.3471e+01 ,2.5553e+01 ,2.9188e+01 /) - kao(:, 1, 1,15) = (/ & - &4.1661e-03 ,3.0613e+00 ,6.0764e+00 ,9.0246e+00 ,1.1861e+01 ,1.4480e+01 , & - &1.6622e+01 ,1.7284e+01 ,2.3722e+01 /) - kao(:, 2, 1,15) = (/ & - &4.0148e-03 ,3.1418e+00 ,6.2320e+00 ,9.2486e+00 ,1.2140e+01 ,1.4819e+01 , & - &1.7035e+01 ,1.7764e+01 ,2.4279e+01 /) - kao(:, 3, 1,15) = (/ & - &3.8658e-03 ,3.2144e+00 ,6.3745e+00 ,9.4527e+00 ,1.2398e+01 ,1.5111e+01 , & - &1.7346e+01 ,1.8143e+01 ,2.4796e+01 /) - kao(:, 4, 1,15) = (/ & - &3.7196e-03 ,3.2826e+00 ,6.5071e+00 ,9.6422e+00 ,1.2633e+01 ,1.5374e+01 , & - &1.7599e+01 ,1.8433e+01 ,2.5267e+01 /) - kao(:, 5, 1,15) = (/ & - &3.5761e-03 ,3.3515e+00 ,6.6395e+00 ,9.8324e+00 ,1.2873e+01 ,1.5639e+01 , & - &1.7844e+01 ,1.8646e+01 ,2.5747e+01 /) - kao(:, 1, 2,15) = (/ & - &6.8577e-03 ,3.3744e+00 ,6.7125e+00 ,9.9952e+00 ,1.3184e+01 ,1.6201e+01 , & - &1.8839e+01 ,2.0375e+01 ,2.6368e+01 /) - kao(:, 2, 2,15) = (/ & - &6.5948e-03 ,3.4888e+00 ,6.9393e+00 ,1.0331e+01 ,1.3623e+01 ,1.6730e+01 , & - &1.9423e+01 ,2.0902e+01 ,2.7246e+01 /) - kao(:, 3, 2,15) = (/ & - &6.3372e-03 ,3.5940e+00 ,7.1483e+00 ,1.0636e+01 ,1.4019e+01 ,1.7199e+01 , & - &1.9946e+01 ,2.1371e+01 ,2.8038e+01 /) - kao(:, 4, 2,15) = (/ & - &6.0860e-03 ,3.6975e+00 ,7.3505e+00 ,1.0936e+01 ,1.4402e+01 ,1.7655e+01 , & - &2.0430e+01 ,2.1802e+01 ,2.8803e+01 /) - kao(:, 5, 2,15) = (/ & - &5.8418e-03 ,3.7949e+00 ,7.5419e+00 ,1.1217e+01 ,1.4770e+01 ,1.8090e+01 , & - &2.0913e+01 ,2.2203e+01 ,2.9539e+01 /) - kao(:, 1, 3,15) = (/ & - &1.5312e-02 ,3.7161e+00 ,7.4117e+00 ,1.1074e+01 ,1.4677e+01 ,1.8180e+01 , & - &2.1427e+01 ,2.3812e+01 ,2.9355e+01 /) - kao(:, 2, 3,15) = (/ & - &1.4697e-02 ,3.8703e+00 ,7.7181e+00 ,1.1532e+01 ,1.5288e+01 ,1.8926e+01 , & - &2.2293e+01 ,2.4742e+01 ,3.0575e+01 /) - kao(:, 3, 3,15) = (/ & - &1.4095e-02 ,4.0069e+00 ,7.9901e+00 ,1.1939e+01 ,1.5823e+01 ,1.9587e+01 , & - &2.3063e+01 ,2.5568e+01 ,3.1646e+01 /) - kao(:, 4, 3,15) = (/ & - &1.3512e-02 ,4.1402e+00 ,8.2563e+00 ,1.2333e+01 ,1.6342e+01 ,2.0226e+01 , & - &2.3806e+01 ,2.6351e+01 ,3.2684e+01 /) - kao(:, 5, 3,15) = (/ & - &1.2949e-02 ,4.2659e+00 ,8.5058e+00 ,1.2707e+01 ,1.6836e+01 ,2.0833e+01 , & - &2.4517e+01 ,2.7109e+01 ,3.3673e+01 /) - kao(:, 1, 4,15) = (/ & - &3.5017e-02 ,4.0833e+00 ,8.1553e+00 ,1.2211e+01 ,1.6236e+01 ,2.0204e+01 , & - &2.4024e+01 ,2.7316e+01 ,3.2472e+01 /) - kao(:, 2, 4,15) = (/ & - &3.3537e-02 ,4.2828e+00 ,8.5541e+00 ,1.2808e+01 ,1.7029e+01 ,2.1189e+01 , & - &2.5196e+01 ,2.8637e+01 ,3.4057e+01 /) - kao(:, 3, 4,15) = (/ & - &3.2113e-02 ,4.4600e+00 ,8.9081e+00 ,1.3336e+01 ,1.7733e+01 ,2.2059e+01 , & - &2.6228e+01 ,2.9796e+01 ,3.5465e+01 /) - kao(:, 4, 4,15) = (/ & - &3.0746e-02 ,4.6307e+00 ,9.2473e+00 ,1.3839e+01 ,1.8403e+01 ,2.2892e+01 , & - &2.7214e+01 ,3.0894e+01 ,3.6805e+01 /) - kao(:, 5, 4,15) = (/ & - &2.9433e-02 ,4.7874e+00 ,9.5611e+00 ,1.4314e+01 ,1.9029e+01 ,2.3669e+01 , & - &2.8132e+01 ,3.1929e+01 ,3.8057e+01 /) - kao(:, 1, 5,15) = (/ & - &7.3896e-02 ,4.4639e+00 ,8.9220e+00 ,1.3370e+01 ,1.7804e+01 ,2.2204e+01 , & - &2.6523e+01 ,3.0537e+01 ,3.5608e+01 /) - kao(:, 2, 5,15) = (/ & - &7.0692e-02 ,4.7138e+00 ,9.4187e+00 ,1.4116e+01 ,1.8797e+01 ,2.3443e+01 , & - &2.8005e+01 ,3.2244e+01 ,3.7595e+01 /) - kao(:, 3, 5,15) = (/ & - &6.7622e-02 ,4.9383e+00 ,9.8707e+00 ,1.4791e+01 ,1.9696e+01 ,2.4560e+01 , & - &2.9335e+01 ,3.3760e+01 ,3.9391e+01 /) - kao(:, 4, 5,15) = (/ & - &6.4677e-02 ,5.1515e+00 ,1.0296e+01 ,1.5428e+01 ,2.0542e+01 ,2.5616e+01 , & - &3.0597e+01 ,3.5203e+01 ,4.1084e+01 /) - kao(:, 5, 5,15) = (/ & - &6.1858e-02 ,5.3461e+00 ,1.0685e+01 ,1.6012e+01 ,2.1318e+01 ,2.6583e+01 , & - &3.1750e+01 ,3.6527e+01 ,4.2635e+01 /) - kao(:, 1, 6,15) = (/ & - &1.4684e-01 ,4.8264e+00 ,9.6500e+00 ,1.4468e+01 ,1.9279e+01 ,2.4068e+01 , & - &2.8816e+01 ,3.3389e+01 ,3.8558e+01 /) - kao(:, 2, 6,15) = (/ & - &1.4028e-01 ,5.1303e+00 ,1.0258e+01 ,1.5380e+01 ,2.0490e+01 ,2.5585e+01 , & - &3.0631e+01 ,3.5492e+01 ,4.0980e+01 /) - kao(:, 3, 6,15) = (/ & - &1.3401e-01 ,5.4150e+00 ,1.0825e+01 ,1.6231e+01 ,2.1624e+01 ,2.7001e+01 , & - &3.2322e+01 ,3.7445e+01 ,4.3249e+01 /) - kao(:, 4, 6,15) = (/ & - &1.2806e-01 ,5.6771e+00 ,1.1351e+01 ,1.7018e+01 ,2.2674e+01 ,2.8310e+01 , & - &3.3887e+01 ,3.9255e+01 ,4.5348e+01 /) - kao(:, 5, 6,15) = (/ & - &1.2235e-01 ,5.9138e+00 ,1.1824e+01 ,1.7725e+01 ,2.3617e+01 ,2.9485e+01 , & - &3.5301e+01 ,4.0890e+01 ,4.7234e+01 /) - kao(:, 1, 7,15) = (/ & - &3.0725e-01 ,5.1535e+00 ,1.0306e+01 ,1.5454e+01 ,2.0602e+01 ,2.5736e+01 , & - &3.0848e+01 ,3.5878e+01 ,4.1204e+01 /) - kao(:, 2, 7,15) = (/ & - &2.9321e-01 ,5.5259e+00 ,1.1050e+01 ,1.6570e+01 ,2.2088e+01 ,2.7592e+01 , & - &3.3073e+01 ,3.8464e+01 ,4.4176e+01 /) - kao(:, 3, 7,15) = (/ & - &2.7993e-01 ,5.8735e+00 ,1.1744e+01 ,1.7612e+01 ,2.3476e+01 ,2.9329e+01 , & - &3.5155e+01 ,4.0875e+01 ,4.6953e+01 /) - kao(:, 4, 7,15) = (/ & - &2.6791e-01 ,6.1876e+00 ,1.2373e+01 ,1.8557e+01 ,2.4734e+01 ,3.0898e+01 , & - &3.7039e+01 ,4.3070e+01 ,4.9468e+01 /) - kao(:, 5, 7,15) = (/ & - &2.5886e-01 ,6.4685e+00 ,1.2934e+01 ,1.9398e+01 ,2.5854e+01 ,3.2302e+01 , & - &3.8716e+01 ,4.5022e+01 ,5.1708e+01 /) - kao(:, 1, 8,15) = (/ & - &7.7279e-01 ,5.4596e+00 ,1.0918e+01 ,1.6376e+01 ,2.1832e+01 ,2.7286e+01 , & - &3.2729e+01 ,3.8130e+01 ,4.3663e+01 /) - kao(:, 2, 8,15) = (/ & - &7.3823e-01 ,5.9033e+00 ,1.1807e+01 ,1.7707e+01 ,2.3607e+01 ,2.9503e+01 , & - &3.5387e+01 ,4.1229e+01 ,4.7214e+01 /) - kao(:, 3, 8,15) = (/ & - &7.0825e-01 ,6.3158e+00 ,1.2632e+01 ,1.8945e+01 ,2.5259e+01 ,3.1562e+01 , & - &3.7862e+01 ,4.4105e+01 ,5.0517e+01 /) - kao(:, 4, 8,15) = (/ & - &6.8827e-01 ,6.6883e+00 ,1.3376e+01 ,2.0062e+01 ,2.6743e+01 ,3.3422e+01 , & - &4.0088e+01 ,4.6704e+01 ,5.3485e+01 /) - kao(:, 5, 8,15) = (/ & - &6.7674e-01 ,7.0269e+00 ,1.4054e+01 ,2.1077e+01 ,2.8099e+01 ,3.5115e+01 , & - &4.2117e+01 ,4.9067e+01 ,5.6197e+01 /) - kao(:, 1, 9,15) = (/ & - &3.6929e+00 ,5.7245e+00 ,1.1448e+01 ,1.7170e+01 ,2.2894e+01 ,2.8616e+01 , & - &3.4335e+01 ,4.0048e+01 ,4.5789e+01 /) - kao(:, 2, 9,15) = (/ & - &3.5483e+00 ,6.2547e+00 ,1.2509e+01 ,1.8761e+01 ,2.5016e+01 ,3.1268e+01 , & - &3.7517e+01 ,4.3757e+01 ,5.0032e+01 /) - kao(:, 3, 9,15) = (/ & - &3.4652e+00 ,6.7430e+00 ,1.3484e+01 ,2.0224e+01 ,2.6965e+01 ,3.3705e+01 , & - &4.0443e+01 ,4.7167e+01 ,5.3930e+01 /) - kao(:, 4, 9,15) = (/ & - &3.4260e+00 ,7.1974e+00 ,1.4393e+01 ,2.1588e+01 ,2.8784e+01 ,3.5977e+01 , & - &4.3167e+01 ,5.0348e+01 ,5.7567e+01 /) - kao(:, 5, 9,15) = (/ & - &3.4123e+00 ,7.6134e+00 ,1.5225e+01 ,2.2838e+01 ,3.0451e+01 ,3.8059e+01 , & - &4.5665e+01 ,5.3256e+01 ,6.0901e+01 /) - kao(:, 1,10,15) = (/ & - &1.9879e+01 ,1.7395e+01 ,1.5929e+01 ,1.8251e+01 ,2.3917e+01 ,2.9895e+01 , & - &3.5873e+01 ,4.1851e+01 ,4.7831e+01 /) - kao(:, 2,10,15) = (/ & - &1.9461e+01 ,1.7089e+01 ,1.6077e+01 ,1.9823e+01 ,2.6409e+01 ,3.3015e+01 , & - &3.9616e+01 ,4.6210e+01 ,5.2815e+01 /) - kao(:, 3,10,15) = (/ & - &1.9336e+01 ,1.7101e+01 ,1.6570e+01 ,2.1574e+01 ,2.8765e+01 ,3.5957e+01 , & - &4.3144e+01 ,5.0330e+01 ,5.7526e+01 /) - kao(:, 4,10,15) = (/ & - &1.9333e+01 ,1.7178e+01 ,1.7183e+01 ,2.3203e+01 ,3.0928e+01 ,3.8662e+01 , & - &4.6389e+01 ,5.4117e+01 ,6.1850e+01 /) - kao(:, 5,10,15) = (/ & - &1.9454e+01 ,1.7376e+01 ,1.7879e+01 ,2.4671e+01 ,3.2892e+01 ,4.1116e+01 , & - &4.9334e+01 ,5.7555e+01 ,6.5778e+01 /) - kao(:, 1,11,15) = (/ & - &3.7918e+01 ,3.3177e+01 ,2.9050e+01 ,2.5728e+01 ,2.6964e+01 ,3.2638e+01 , & - &3.9160e+01 ,4.5686e+01 ,5.2215e+01 /) - kao(:, 2,11,15) = (/ & - &3.7982e+01 ,3.3235e+01 ,2.9190e+01 ,2.6661e+01 ,2.9222e+01 ,3.6220e+01 , & - &4.3460e+01 ,5.0704e+01 ,5.7949e+01 /) - kao(:, 3,11,15) = (/ & - &3.8191e+01 ,3.3419e+01 ,2.9491e+01 ,2.7784e+01 ,3.1731e+01 ,3.9527e+01 , & - &4.7423e+01 ,5.5330e+01 ,6.3238e+01 /) - kao(:, 4,11,15) = (/ & - &3.8572e+01 ,3.3751e+01 ,2.9960e+01 ,2.8966e+01 ,3.4093e+01 ,4.2514e+01 , & - &5.1014e+01 ,5.9516e+01 ,6.8017e+01 /) - kao(:, 5,11,15) = (/ & - &3.9093e+01 ,3.4206e+01 ,3.0547e+01 ,3.0263e+01 ,3.6228e+01 ,4.5245e+01 , & - &5.4290e+01 ,6.3320e+01 ,7.2371e+01 /) - kao(:, 1,12,15) = (/ & - &5.5475e+01 ,4.8541e+01 ,4.2038e+01 ,3.6129e+01 ,3.3332e+01 ,3.5714e+01 , & - &4.2669e+01 ,4.9771e+01 ,5.6891e+01 /) - kao(:, 2,12,15) = (/ & - &5.6059e+01 ,4.9052e+01 ,4.2754e+01 ,3.7078e+01 ,3.5375e+01 ,3.9558e+01 , & - &4.7442e+01 ,5.5347e+01 ,6.3258e+01 /) - kao(:, 3,12,15) = (/ & - &5.6760e+01 ,4.9664e+01 ,4.3494e+01 ,3.8346e+01 ,3.7575e+01 ,4.3186e+01 , & - &5.1821e+01 ,6.0453e+01 ,6.9095e+01 /) - kao(:, 4,12,15) = (/ & - &5.7648e+01 ,5.0443e+01 ,4.4349e+01 ,3.9649e+01 ,3.9898e+01 ,4.6561e+01 , & - &5.5869e+01 ,6.5177e+01 ,7.4491e+01 /) - kao(:, 5,12,15) = (/ & - &5.8564e+01 ,5.1244e+01 ,4.5202e+01 ,4.0926e+01 ,4.2120e+01 ,4.9601e+01 , & - &5.9519e+01 ,6.9433e+01 ,7.9355e+01 /) - kao(:, 1,13,15) = (/ & - &6.5843e+01 ,5.7608e+01 ,4.9977e+01 ,4.3124e+01 ,3.8891e+01 ,3.9628e+01 , & - &4.6579e+01 ,5.4339e+01 ,6.2102e+01 /) - kao(:, 2,13,15) = (/ & - &6.6934e+01 ,5.8564e+01 ,5.1105e+01 ,4.4471e+01 ,4.1117e+01 ,4.3582e+01 , & - &5.1721e+01 ,6.0334e+01 ,6.8958e+01 /) - kao(:, 3,13,15) = (/ & - &6.8030e+01 ,5.9532e+01 ,5.2179e+01 ,4.5978e+01 ,4.3480e+01 ,4.7374e+01 , & - &5.6498e+01 ,6.5896e+01 ,7.5328e+01 /) - kao(:, 4,13,15) = (/ & - &6.9202e+01 ,6.0551e+01 ,5.3246e+01 ,4.7483e+01 ,4.5884e+01 ,5.0923e+01 , & - &6.0842e+01 ,7.0980e+01 ,8.1125e+01 /) - kao(:, 5,13,15) = (/ & - &7.0366e+01 ,6.1567e+01 ,5.4251e+01 ,4.8884e+01 ,4.8138e+01 ,5.4098e+01 , & - &6.4681e+01 ,7.5454e+01 ,8.6236e+01 /) - kao(:, 1, 1,16) = (/ & - &4.2680e-03 ,4.0094e+00 ,7.9109e+00 ,1.1649e+01 ,1.5123e+01 ,1.8131e+01 , & - &2.0185e+01 ,1.9759e+01 ,3.0246e+01 /) - kao(:, 2, 1,16) = (/ & - &4.1096e-03 ,4.1769e+00 ,8.2411e+00 ,1.2134e+01 ,1.5754e+01 ,1.8883e+01 , & - &2.1013e+01 ,2.0555e+01 ,3.1509e+01 /) - kao(:, 3, 1,16) = (/ & - &3.9552e-03 ,4.3246e+00 ,8.5324e+00 ,1.2562e+01 ,1.6307e+01 ,1.9544e+01 , & - &2.1743e+01 ,2.1252e+01 ,3.2613e+01 /) - kao(:, 4, 1,16) = (/ & - &3.8024e-03 ,4.4537e+00 ,8.7866e+00 ,1.2936e+01 ,1.6790e+01 ,2.0122e+01 , & - &2.2380e+01 ,2.1858e+01 ,3.3579e+01 /) - kao(:, 5, 1,16) = (/ & - &3.6530e-03 ,4.5661e+00 ,9.0077e+00 ,1.3262e+01 ,1.7211e+01 ,2.0624e+01 , & - &2.2936e+01 ,2.2383e+01 ,3.4420e+01 /) - kao(:, 1, 2,16) = (/ & - &7.0518e-03 ,4.7486e+00 ,9.4112e+00 ,1.3945e+01 ,1.8257e+01 ,2.2167e+01 , & - &2.5197e+01 ,2.5646e+01 ,3.6513e+01 /) - kao(:, 2, 2,16) = (/ & - &6.7731e-03 ,4.9653e+00 ,9.8411e+00 ,1.4578e+01 ,1.9087e+01 ,2.3173e+01 , & - &2.6338e+01 ,2.6795e+01 ,3.8174e+01 /) - kao(:, 3, 2,16) = (/ & - &6.4989e-03 ,5.1561e+00 ,1.0219e+01 ,1.5138e+01 ,1.9822e+01 ,2.4059e+01 , & - &2.7344e+01 ,2.7802e+01 ,3.9644e+01 /) - kao(:, 4, 2,16) = (/ & - &6.2358e-03 ,5.3229e+00 ,1.0548e+01 ,1.5628e+01 ,2.0461e+01 ,2.4836e+01 , & - &2.8225e+01 ,2.8690e+01 ,4.0921e+01 /) - kao(:, 5, 2,16) = (/ & - &5.9777e-03 ,5.4686e+00 ,1.0838e+01 ,1.6055e+01 ,2.1017e+01 ,2.5512e+01 , & - &2.8989e+01 ,2.9460e+01 ,4.2034e+01 /) - kao(:, 1, 3,16) = (/ & - &1.5841e-02 ,5.5685e+00 ,1.1089e+01 ,1.6529e+01 ,2.1842e+01 ,2.6900e+01 , & - &3.1365e+01 ,3.3823e+01 ,4.3684e+01 /) - kao(:, 2, 3,16) = (/ & - &1.5180e-02 ,5.8535e+00 ,1.1654e+01 ,1.7376e+01 ,2.2954e+01 ,2.8269e+01 , & - &3.2966e+01 ,3.5548e+01 ,4.5909e+01 /) - kao(:, 3, 3,16) = (/ & - &1.4542e-02 ,6.1037e+00 ,1.2154e+01 ,1.8119e+01 ,2.3939e+01 ,2.9482e+01 , & - &3.4375e+01 ,3.7061e+01 ,4.7877e+01 /) - kao(:, 4, 3,16) = (/ & - &1.3926e-02 ,6.3236e+00 ,1.2592e+01 ,1.8771e+01 ,2.4803e+01 ,3.0545e+01 , & - &3.5612e+01 ,3.8393e+01 ,4.9606e+01 /) - kao(:, 5, 3,16) = (/ & - &1.3332e-02 ,6.5149e+00 ,1.2971e+01 ,1.9341e+01 ,2.5553e+01 ,3.1470e+01 , & - &3.6691e+01 ,3.9549e+01 ,5.1106e+01 /) - kao(:, 1, 4,16) = (/ & - &3.6504e-02 ,6.4847e+00 ,1.2941e+01 ,1.9357e+01 ,2.5697e+01 ,3.1893e+01 , & - &3.7735e+01 ,4.2276e+01 ,5.1393e+01 /) - kao(:, 2, 4,16) = (/ & - &3.4931e-02 ,6.8562e+00 ,1.3684e+01 ,2.0466e+01 ,2.7170e+01 ,3.3719e+01 , & - &3.9896e+01 ,4.4696e+01 ,5.4340e+01 /) - kao(:, 3, 4,16) = (/ & - &3.3404e-02 ,7.1832e+00 ,1.4337e+01 ,2.1441e+01 ,2.8465e+01 ,3.5334e+01 , & - &4.1803e+01 ,4.6838e+01 ,5.6929e+01 /) - kao(:, 4, 4,16) = (/ & - &3.1940e-02 ,7.4729e+00 ,1.4911e+01 ,2.2302e+01 ,2.9607e+01 ,3.6753e+01 , & - &4.3482e+01 ,4.8710e+01 ,5.9213e+01 /) - kao(:, 5, 4,16) = (/ & - &3.0537e-02 ,7.7225e+00 ,1.5413e+01 ,2.3052e+01 ,3.0605e+01 ,3.7982e+01 , & - &4.4943e+01 ,5.0367e+01 ,6.1209e+01 /) - kao(:, 1, 5,16) = (/ & - &7.7459e-02 ,7.5153e+00 ,1.5015e+01 ,2.2490e+01 ,2.9920e+01 ,3.7263e+01 , & - &4.4388e+01 ,5.0697e+01 ,5.9839e+01 /) - kao(:, 2, 5,16) = (/ & - &7.3973e-02 ,7.9956e+00 ,1.5974e+01 ,2.3926e+01 ,3.1831e+01 ,3.9653e+01 , & - &4.7235e+01 ,5.3936e+01 ,6.3661e+01 /) - kao(:, 3, 5,16) = (/ & - &7.0652e-02 ,8.4194e+00 ,1.6824e+01 ,2.5198e+01 ,3.3521e+01 ,4.1754e+01 , & - &4.9742e+01 ,5.6808e+01 ,6.7041e+01 /) - kao(:, 4, 5,16) = (/ & - &6.7486e-02 ,8.7920e+00 ,1.7565e+01 ,2.6310e+01 ,3.5003e+01 ,4.3595e+01 , & - &5.1933e+01 ,5.9317e+01 ,7.0006e+01 /) - kao(:, 5, 5,16) = (/ & - &6.4478e-02 ,9.1159e+00 ,1.8215e+01 ,2.7284e+01 ,3.6299e+01 ,4.5208e+01 , & - &5.3851e+01 ,6.1525e+01 ,7.2598e+01 /) - kao(:, 1, 6,16) = (/ & - &1.5475e-01 ,8.6422e+00 ,1.7275e+01 ,2.5892e+01 ,3.4482e+01 ,4.3028e+01 , & - &5.1423e+01 ,5.9299e+01 ,6.8964e+01 /) - kao(:, 2, 6,16) = (/ & - &1.4760e-01 ,9.2603e+00 ,1.8510e+01 ,2.7740e+01 ,3.6952e+01 ,4.6093e+01 , & - &5.5105e+01 ,6.3549e+01 ,7.3905e+01 /) - kao(:, 3, 6,16) = (/ & - &1.4090e-01 ,9.8052e+00 ,1.9599e+01 ,2.9376e+01 ,3.9123e+01 ,4.8807e+01 , & - &5.8340e+01 ,6.7288e+01 ,7.8246e+01 /) - kao(:, 4, 6,16) = (/ & - &1.3455e-01 ,1.0284e+01 ,2.0553e+01 ,3.0809e+01 ,4.1029e+01 ,5.1188e+01 , & - &6.1191e+01 ,7.0573e+01 ,8.2057e+01 /) - kao(:, 5, 6,16) = (/ & - &1.2855e-01 ,1.0696e+01 ,2.1381e+01 ,3.2059e+01 ,4.2695e+01 ,5.3257e+01 , & - &6.3651e+01 ,7.3440e+01 ,8.5390e+01 /) - kao(:, 1, 7,16) = (/ & - &3.2765e-01 ,9.8708e+00 ,1.9738e+01 ,2.9598e+01 ,3.9436e+01 ,4.9244e+01 , & - &5.8981e+01 ,6.8395e+01 ,7.8872e+01 /) - kao(:, 2, 7,16) = (/ & - &3.1237e-01 ,1.0655e+01 ,2.1308e+01 ,3.1948e+01 ,4.2573e+01 ,5.3154e+01 , & - &6.3663e+01 ,7.3848e+01 ,8.5146e+01 /) - kao(:, 3, 7,16) = (/ & - &2.9817e-01 ,1.1348e+01 ,2.2690e+01 ,3.4027e+01 ,4.5330e+01 ,5.6613e+01 , & - &6.7816e+01 ,7.8654e+01 ,9.0660e+01 /) - kao(:, 4, 7,16) = (/ & - &2.8488e-01 ,1.1956e+01 ,2.3907e+01 ,3.5845e+01 ,4.7755e+01 ,5.9649e+01 , & - &7.1415e+01 ,8.2866e+01 ,9.5510e+01 /) - kao(:, 5, 7,16) = (/ & - &2.7283e-01 ,1.2480e+01 ,2.4950e+01 ,3.7415e+01 ,4.9097e+01 ,6.2266e+01 , & - &7.4578e+01 ,8.6491e+01 ,9.9702e+01 /) - kao(:, 1, 8,16) = (/ & - &8.3606e-01 ,1.1195e+01 ,2.2388e+01 ,3.3574e+01 ,4.4755e+01 ,5.5920e+01 , & - &6.7048e+01 ,7.8029e+01 ,8.9508e+01 /) - kao(:, 2, 8,16) = (/ & - &7.9798e-01 ,1.2177e+01 ,2.4351e+01 ,3.6522e+01 ,4.8685e+01 ,6.0830e+01 , & - &7.2963e+01 ,8.4892e+01 ,9.7369e+01 /) - kao(:, 3, 8,16) = (/ & - &7.6304e-01 ,1.3047e+01 ,2.6090e+01 ,3.9130e+01 ,5.2156e+01 ,6.5163e+01 , & - &7.8140e+01 ,9.0945e+01 ,1.0431e+02 /) - kao(:, 4, 8,16) = (/ & - &7.3296e-01 ,1.3800e+01 ,2.7601e+01 ,4.1393e+01 ,5.5174e+01 ,6.8947e+01 , & - &8.2670e+01 ,9.6216e+01 ,1.1035e+02 /) - kao(:, 5, 8,16) = (/ & - &7.2250e-01 ,1.4453e+01 ,2.8899e+01 ,4.3348e+01 ,5.7784e+01 ,7.2193e+01 , & - &8.6582e+01 ,1.0076e+02 ,1.1557e+02 /) - kao(:, 1, 9,16) = (/ & - &4.0611e+00 ,1.2573e+01 ,2.5149e+01 ,3.7721e+01 ,5.0293e+01 ,6.2854e+01 , & - &7.5422e+01 ,8.7942e+01 ,1.0059e+02 /) - kao(:, 2, 9,16) = (/ & - &3.8919e+00 ,1.3793e+01 ,2.7583e+01 ,4.1373e+01 ,5.5157e+01 ,6.8943e+01 , & - &8.2722e+01 ,9.6458e+01 ,1.1031e+02 /) - kao(:, 3, 9,16) = (/ & - &3.7505e+00 ,1.4863e+01 ,2.9722e+01 ,4.4587e+01 ,5.9447e+01 ,7.4303e+01 , & - &8.9145e+01 ,1.0395e+02 ,1.1889e+02 /) - kao(:, 4, 9,16) = (/ & - &3.6915e+00 ,1.5793e+01 ,3.1587e+01 ,4.7379e+01 ,6.3167e+01 ,7.8955e+01 , & - &9.4727e+01 ,1.1046e+02 ,1.2634e+02 /) - kao(:, 5, 9,16) = (/ & - &3.8118e+00 ,1.6590e+01 ,3.3180e+01 ,4.9767e+01 ,6.6364e+01 ,8.2935e+01 , & - &9.9506e+01 ,1.1603e+02 ,1.3273e+02 /) - kao(:, 1,10,16) = (/ & - &2.2252e+01 ,1.9469e+01 ,2.8181e+01 ,4.2271e+01 ,5.6359e+01 ,7.0451e+01 , & - &8.4538e+01 ,9.8612e+01 ,1.1272e+02 /) - kao(:, 2,10,16) = (/ & - &2.1525e+01 ,1.8834e+01 ,3.1126e+01 ,4.6690e+01 ,6.2252e+01 ,7.7813e+01 , & - &9.3373e+01 ,1.0893e+02 ,1.2450e+02 /) - kao(:, 3,10,16) = (/ & - &2.1146e+01 ,1.8632e+01 ,3.3699e+01 ,5.0550e+01 ,6.7413e+01 ,8.4265e+01 , & - &1.0112e+02 ,1.1795e+02 ,1.3483e+02 /) - kao(:, 4,10,16) = (/ & - &2.1709e+01 ,1.9529e+01 ,3.5926e+01 ,5.3893e+01 ,7.1851e+01 ,8.9812e+01 , & - &1.0777e+02 ,1.2572e+02 ,1.4370e+02 /) - kao(:, 5,10,16) = (/ & - &2.2565e+01 ,2.0486e+01 ,3.7826e+01 ,5.6738e+01 ,7.5652e+01 ,9.4560e+01 , & - &1.1347e+02 ,1.3237e+02 ,1.5131e+02 /) - kao(:, 1,11,16) = (/ & - &4.2772e+01 ,3.7423e+01 ,3.4479e+01 ,4.9359e+01 ,6.5807e+01 ,8.2260e+01 , & - &9.8714e+01 ,1.1516e+02 ,1.3161e+02 /) - kao(:, 2,11,16) = (/ & - &4.2480e+01 ,3.7168e+01 ,3.6886e+01 ,5.4309e+01 ,7.2413e+01 ,9.0516e+01 , & - &1.0859e+02 ,1.2671e+02 ,1.4483e+02 /) - kao(:, 3,11,16) = (/ & - &4.3695e+01 ,3.8234e+01 ,3.9646e+01 ,5.8582e+01 ,7.8105e+01 ,9.7632e+01 , & - &1.1715e+02 ,1.3667e+02 ,1.5621e+02 /) - kao(:, 4,11,16) = (/ & - &4.5497e+01 ,3.9810e+01 ,4.2112e+01 ,6.2236e+01 ,8.2974e+01 ,1.0371e+02 , & - &1.2447e+02 ,1.4520e+02 ,1.6595e+02 /) - kao(:, 5,11,16) = (/ & - &4.7319e+01 ,4.1402e+01 ,4.4245e+01 ,6.5288e+01 ,8.7037e+01 ,1.0880e+02 , & - &1.3053e+02 ,1.5228e+02 ,1.7407e+02 /) - kao(:, 1,12,16) = (/ & - &6.3760e+01 ,5.5793e+01 ,4.7823e+01 ,5.6928e+01 ,7.5904e+01 ,9.4850e+01 , & - &1.1385e+02 ,1.3279e+02 ,1.5181e+02 /) - kao(:, 2,12,16) = (/ & - &6.5427e+01 ,5.7247e+01 ,4.9649e+01 ,6.2349e+01 ,8.3126e+01 ,1.0392e+02 , & - &1.2469e+02 ,1.4546e+02 ,1.6625e+02 /) - kao(:, 3,12,16) = (/ & - &6.8202e+01 ,5.9674e+01 ,5.2535e+01 ,6.6975e+01 ,8.9301e+01 ,1.1163e+02 , & - &1.3393e+02 ,1.5627e+02 ,1.7860e+02 /) - kao(:, 4,12,16) = (/ & - &7.0922e+01 ,6.2055e+01 ,5.5321e+01 ,7.0905e+01 ,9.4539e+01 ,1.1818e+02 , & - &1.4181e+02 ,1.6544e+02 ,1.8908e+02 /) - kao(:, 5,12,16) = (/ & - &7.3649e+01 ,6.4442e+01 ,5.7813e+01 ,7.4307e+01 ,9.9092e+01 ,1.2384e+02 , & - &1.4863e+02 ,1.7339e+02 ,1.9818e+02 /) - kao(:, 1,13,16) = (/ & - &7.8782e+01 ,6.8941e+01 ,5.9088e+01 ,6.5861e+01 ,8.6369e+01 ,1.0796e+02 , & - &1.2954e+02 ,1.5113e+02 ,1.7274e+02 /) - kao(:, 2,13,16) = (/ & - &8.1731e+01 ,7.1509e+01 ,6.1634e+01 ,7.1635e+01 ,9.4482e+01 ,1.1810e+02 , & - &1.4170e+02 ,1.6534e+02 ,1.8896e+02 /) - kao(:, 3,13,16) = (/ & - &8.5240e+01 ,7.4588e+01 ,6.4915e+01 ,7.6648e+01 ,1.0154e+02 ,1.2693e+02 , & - &1.5232e+02 ,1.7766e+02 ,2.0308e+02 /) - kao(:, 4,13,16) = (/ & - &8.8622e+01 ,7.7543e+01 ,6.7967e+01 ,8.0867e+01 ,1.0759e+02 ,1.3449e+02 , & - &1.6139e+02 ,1.8828e+02 ,2.1519e+02 /) - kao(:, 5,13,16) = (/ & - &9.1737e+01 ,8.0288e+01 ,7.0891e+01 ,8.4742e+01 ,1.1298e+02 ,1.4117e+02 , & - &1.6939e+02 ,1.9762e+02 ,2.2595e+02 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &1.4739e-04 ,3.1686e-04 ,8.5973e-04 ,1.9039e-03 ,3.1820e-03 ,3.6596e-03 , & - &3.8724e-03 ,3.6785e-03 ,3.7141e-03 ,3.7646e-03 ,4.2955e-03 ,4.6343e-03 , & - &5.0612e-03 ,4.0227e-03 ,4.2966e-03 ,4.6622e-03 /) - forrefo(2,:) = (/ & - &1.9397e-04 ,3.6322e-04 ,8.9797e-04 ,2.1001e-03 ,3.0307e-03 ,3.5563e-03 , & - &3.8498e-03 ,3.5741e-03 ,3.5914e-03 ,3.7658e-03 ,3.8895e-03 ,4.4072e-03 , & - &4.7112e-03 ,4.2230e-03 ,4.2666e-03 ,4.6634e-03 /) - forrefo(3,:) = (/ & - &3.1506e-04 ,7.3687e-04 ,1.9678e-03 ,2.5531e-03 ,2.8345e-03 ,2.7809e-03 , & - &2.9124e-03 ,2.7125e-03 ,2.6644e-03 ,2.4907e-03 ,2.7032e-03 ,4.0967e-03 , & - &4.1971e-03 ,4.4507e-03 ,4.2293e-03 ,4.6633e-03 /) - forrefo(4,:) = (/ & - &8.8196e-04 ,2.1125e-03 ,2.8042e-03 ,2.8891e-03 ,2.4362e-03 ,1.8733e-03 , & - &1.4078e-03 ,1.1987e-03 ,1.2808e-03 ,8.9050e-04 ,9.4375e-04 ,7.8351e-04 , & - &1.0756e-03 ,1.6586e-03 ,1.7511e-03 ,4.7803e-03 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 2.37879e-02 , 2.10719e-02 , 1.86660e-02 , 1.65348e-02 , 1.46469e-02 , & - & 1.29746e-02 , 1.14932e-02 , 1.01810e-02 , 9.01858e-03 , 7.98888e-03 /) - selfrefo(:, 2) = (/ & - & 3.10625e-02 , 2.82664e-02 , 2.57220e-02 , 2.34066e-02 , 2.12997e-02 , & - & 1.93824e-02 , 1.76377e-02 , 1.60500e-02 , 1.46053e-02 , 1.32906e-02 /) - selfrefo(:, 3) = (/ & - & 5.19103e-02 , 4.80004e-02 , 4.43850e-02 , 4.10419e-02 , 3.79506e-02 , & - & 3.50922e-02 , 3.24491e-02 , 3.00050e-02 , 2.77450e-02 , 2.56553e-02 /) - selfrefo(:, 4) = (/ & - & 9.12444e-02 , 8.38675e-02 , 7.70870e-02 , 7.08547e-02 , 6.51263e-02 , & - & 5.98610e-02 , 5.50214e-02 , 5.05730e-02 , 4.64843e-02 , 4.27262e-02 /) - selfrefo(:, 5) = (/ & - & 1.11323e-01 , 1.04217e-01 , 9.75650e-02 , 9.13376e-02 , 8.55076e-02 , & - & 8.00498e-02 , 7.49403e-02 , 7.01570e-02 , 6.56790e-02 , 6.14868e-02 /) - selfrefo(:, 6) = (/ & - & 1.25301e-01 , 1.16877e-01 , 1.09020e-01 , 1.01691e-01 , 9.48543e-02 , & - & 8.84774e-02 , 8.25293e-02 , 7.69810e-02 , 7.18057e-02 , 6.69784e-02 /) - selfrefo(:, 7) = (/ & - & 1.34063e-01 , 1.24662e-01 , 1.15920e-01 , 1.07791e-01 , 1.00232e-01 , & - & 9.32035e-02 , 8.66676e-02 , 8.05900e-02 , 7.49386e-02 , 6.96836e-02 /) - selfrefo(:, 8) = (/ & - & 1.26997e-01 , 1.18306e-01 , 1.10210e-01 , 1.02668e-01 , 9.56417e-02 , & - & 8.90964e-02 , 8.29991e-02 , 7.73190e-02 , 7.20276e-02 , 6.70984e-02 /) - selfrefo(:, 9) = (/ & - & 1.28823e-01 , 1.20235e-01 , 1.12220e-01 , 1.04739e-01 , 9.77569e-02 , & - & 9.12402e-02 , 8.51579e-02 , 7.94810e-02 , 7.41826e-02 , 6.92374e-02 /) - selfrefo(:,10) = (/ & - & 1.35802e-01 , 1.25981e-01 , 1.16870e-01 , 1.08418e-01 , 1.00577e-01 , & - & 9.33034e-02 , 8.65557e-02 , 8.02960e-02 , 7.44890e-02 , 6.91020e-02 /) - selfrefo(:,11) = (/ & - & 1.35475e-01 , 1.27572e-01 , 1.20130e-01 , 1.13122e-01 , 1.06523e-01 , & - & 1.00309e-01 , 9.44573e-02 , 8.89470e-02 , 8.37582e-02 , 7.88721e-02 /) - selfrefo(:,12) = (/ & - & 1.51195e-01 , 1.41159e-01 , 1.31790e-01 , 1.23043e-01 , 1.14876e-01 , & - & 1.07251e-01 , 1.00132e-01 , 9.34860e-02 , 8.72809e-02 , 8.14877e-02 /) - selfrefo(:,13) = (/ & - & 1.57538e-01 , 1.47974e-01 , 1.38990e-01 , 1.30552e-01 , 1.22626e-01 , & - & 1.15181e-01 , 1.08188e-01 , 1.01620e-01 , 9.54505e-02 , 8.96556e-02 /) - selfrefo(:,14) = (/ & - & 1.53567e-01 , 1.41564e-01 , 1.30500e-01 , 1.20300e-01 , 1.10898e-01 , & - & 1.02231e-01 , 9.42406e-02 , 8.68750e-02 , 8.00851e-02 , 7.38259e-02 /) - selfrefo(:,15) = (/ & - & 1.53687e-01 , 1.42981e-01 , 1.33020e-01 , 1.23753e-01 , 1.15132e-01 , & - & 1.07112e-01 , 9.96500e-02 , 9.27080e-02 , 8.62496e-02 , 8.02412e-02 /) - selfrefo(:,16) = (/ & - & 1.65129e-01 , 1.53285e-01 , 1.42290e-01 , 1.32084e-01 , 1.22610e-01 , & - & 1.13815e-01 , 1.05651e-01 , 9.80730e-02 , 9.10384e-02 , 8.45083e-02 /) - - end subroutine lw_kgb12 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_13.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_13.F90 deleted file mode 100644 index 62343e347..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_13.F90 +++ /dev/null @@ -1,4846 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb13 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg13, only : fracrefao, fracrefbo, kao, kao_mco2, kao_mco, & - kbo_mo3, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level : P=473.4280 mb, T = 259.83 K - fracrefao(:, 1) = (/ & - & 1.7534e-01 ,1.7394e-01 ,1.6089e-01 ,1.3782e-01 ,1.0696e-01 ,8.5853e-02 , & - & 6.6548e-02 ,4.9053e-02 ,3.2064e-02 ,3.4820e-03 ,2.8763e-03 ,2.2204e-03 , & - & 1.5612e-03 ,9.8572e-04 ,3.6853e-04 ,5.1612e-05 /) - fracrefao(:, 2) = (/ & - & 1.7489e-01 ,1.7309e-01 ,1.5981e-01 ,1.3782e-01 ,1.0797e-01 ,8.6367e-02 , & - & 6.7042e-02 ,4.9257e-02 ,3.2207e-02 ,3.4820e-03 ,2.8767e-03 ,2.2203e-03 , & - & 1.5613e-03 ,9.8571e-04 ,3.6853e-04 ,5.1612e-05 /) - fracrefao(:, 3) = (/ & - & 1.7459e-01 ,1.7259e-01 ,1.5948e-01 ,1.3694e-01 ,1.0815e-01 ,8.7376e-02 , & - & 6.7339e-02 ,4.9541e-02 ,3.2333e-02 ,3.5019e-03 ,2.8958e-03 ,2.2527e-03 , & - & 1.6099e-03 ,9.8574e-04 ,3.6853e-04 ,5.1612e-05 /) - fracrefao(:, 4) = (/ & - & 1.7391e-01 ,1.7244e-01 ,1.5921e-01 ,1.3644e-01 ,1.0787e-01 ,8.7776e-02 , & - & 6.8361e-02 ,4.9628e-02 ,3.2578e-02 ,3.5117e-03 ,2.9064e-03 ,2.2571e-03 , & - & 1.6887e-03 ,1.0045e-03 ,3.6853e-04 ,5.1612e-05 /) - fracrefao(:, 5) = (/ & - & 1.7338e-01 ,1.7157e-01 ,1.5957e-01 ,1.3571e-01 ,1.0773e-01 ,8.7966e-02 , & - & 6.9000e-02 ,5.0300e-02 ,3.2813e-02 ,3.5470e-03 ,2.9425e-03 ,2.2552e-03 , & - & 1.7038e-03 ,1.1025e-03 ,3.6853e-04 ,5.1612e-05 /) - fracrefao(:, 6) = (/ & - & 1.7230e-01 ,1.7082e-01 ,1.5917e-01 ,1.3562e-01 ,1.0806e-01 ,8.7635e-02 , & - & 6.9815e-02 ,5.1155e-02 ,3.3139e-02 ,3.6264e-03 ,2.9436e-03 ,2.3417e-03 , & - & 1.7731e-03 ,1.1156e-03 ,4.4533e-04 ,5.1612e-05 /) - fracrefao(:, 7) = (/ & - & 1.7073e-01 ,1.6961e-01 ,1.5844e-01 ,1.3594e-01 ,1.0821e-01 ,8.7791e-02 , & - & 7.0502e-02 ,5.1904e-02 ,3.4107e-02 ,3.5888e-03 ,2.9574e-03 ,2.5851e-03 , & - & 1.9127e-03 ,1.1537e-03 ,4.7789e-04 ,1.0016e-04 /) - fracrefao(:, 8) = (/ & - & 1.6700e-01 ,1.6848e-01 ,1.5628e-01 ,1.3448e-01 ,1.1011e-01 ,8.9016e-02 , & - & 7.1973e-02 ,5.2798e-02 ,3.5650e-02 ,3.8534e-03 ,3.4142e-03 ,2.7799e-03 , & - & 2.1288e-03 ,1.3043e-03 ,6.2858e-04 ,1.0016e-04 /) - fracrefao(:, 9) = (/ & - & 1.6338e-01 ,1.5565e-01 ,1.4470e-01 ,1.3500e-01 ,1.1909e-01 ,9.8312e-02 , & - & 7.9023e-02 ,5.5728e-02 ,3.6831e-02 ,3.6569e-03 ,3.0552e-03 ,2.3431e-03 , & - & 1.7088e-03 ,1.1082e-03 ,3.6829e-04 ,5.1612e-05 /) - -! Planck fraction mapping level : P=4.758820 mb, T = 250.85 K - fracrefbo(:) = (/ & - & 1.5411e-01 ,1.3573e-01 ,1.2527e-01 ,1.2698e-01 ,1.2394e-01 ,1.0876e-01 , & - & 8.9906e-02 ,6.9551e-02 ,4.8240e-02 ,5.2434e-03 ,4.3630e-03 ,3.4262e-03 , & - & 2.5124e-03 ,1.5479e-03 ,3.7294e-04 ,5.1050e-05 /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kao(:, 1, 1, 1) = (/ & - &6.4065e-07 ,1.0419e-05 ,1.7041e-05 ,2.3341e-05 ,2.9288e-05 ,3.6860e-05 , & - &5.2289e-05 ,7.6369e-05 ,2.2034e-05 /) - kao(:, 2, 1, 1) = (/ & - &7.4425e-07 ,1.2994e-05 ,2.1634e-05 ,2.9437e-05 ,3.6128e-05 ,4.4577e-05 , & - &5.5507e-05 ,7.3010e-05 ,3.0368e-05 /) - kao(:, 3, 1, 1) = (/ & - &9.1477e-07 ,1.6195e-05 ,2.7037e-05 ,3.6851e-05 ,4.4956e-05 ,5.3696e-05 , & - &6.5423e-05 ,7.7959e-05 ,3.9940e-05 /) - kao(:, 4, 1, 1) = (/ & - &1.0920e-06 ,2.0021e-05 ,3.3475e-05 ,4.5528e-05 ,5.5351e-05 ,6.4790e-05 , & - &7.8460e-05 ,9.0393e-05 ,5.1295e-05 /) - kao(:, 5, 1, 1) = (/ & - &1.3489e-06 ,2.4363e-05 ,4.1025e-05 ,5.5638e-05 ,6.7646e-05 ,7.8828e-05 , & - &9.2175e-05 ,1.0262e-04 ,6.4740e-05 /) - kao(:, 1, 2, 1) = (/ & - &9.4474e-07 ,9.5739e-06 ,1.4537e-05 ,1.9319e-05 ,2.3955e-05 ,2.8125e-05 , & - &3.4867e-05 ,5.4010e-05 ,1.9403e-05 /) - kao(:, 2, 2, 1) = (/ & - &1.1323e-06 ,1.1739e-05 ,1.8325e-05 ,2.4542e-05 ,3.0201e-05 ,3.5031e-05 , & - &4.2528e-05 ,5.9167e-05 ,2.5395e-05 /) - kao(:, 3, 2, 1) = (/ & - &1.3451e-06 ,1.4450e-05 ,2.3075e-05 ,3.0847e-05 ,3.7507e-05 ,4.3224e-05 , & - &5.0526e-05 ,6.6079e-05 ,3.2769e-05 /) - kao(:, 4, 2, 1) = (/ & - &1.6171e-06 ,1.7819e-05 ,2.8678e-05 ,3.8333e-05 ,4.6715e-05 ,5.3613e-05 , & - &6.0668e-05 ,7.1518e-05 ,4.1642e-05 /) - kao(:, 5, 2, 1) = (/ & - &1.9441e-06 ,2.1692e-05 ,3.5243e-05 ,4.7173e-05 ,5.7398e-05 ,6.5939e-05 , & - &7.3567e-05 ,8.2891e-05 ,5.2140e-05 /) - kao(:, 1, 3, 1) = (/ & - &1.9997e-06 ,1.0333e-05 ,1.4351e-05 ,1.7071e-05 ,1.9818e-05 ,2.2671e-05 , & - &2.5587e-05 ,3.3080e-05 ,2.1440e-05 /) - kao(:, 2, 3, 1) = (/ & - &2.2813e-06 ,1.2534e-05 ,1.7541e-05 ,2.1448e-05 ,2.5145e-05 ,2.8879e-05 , & - &3.1889e-05 ,3.7831e-05 ,2.6738e-05 /) - kao(:, 3, 3, 1) = (/ & - &2.7401e-06 ,1.5206e-05 ,2.1444e-05 ,2.7039e-05 ,3.1929e-05 ,3.6455e-05 , & - &3.9620e-05 ,4.6057e-05 ,3.1366e-05 /) - kao(:, 4, 3, 1) = (/ & - &3.2871e-06 ,1.8031e-05 ,2.6416e-05 ,3.3815e-05 ,3.9999e-05 ,4.5410e-05 , & - &4.9342e-05 ,5.4203e-05 ,3.7064e-05 /) - kao(:, 5, 3, 1) = (/ & - &3.8869e-06 ,2.1455e-05 ,3.2368e-05 ,4.1756e-05 ,4.9581e-05 ,5.6093e-05 , & - &6.1027e-05 ,6.5117e-05 ,4.4920e-05 /) - kao(:, 1, 4, 1) = (/ & - &4.3610e-06 ,1.3316e-05 ,1.6242e-05 ,1.8257e-05 ,1.9350e-05 ,2.0037e-05 , & - &2.0833e-05 ,2.3040e-05 ,2.2366e-05 /) - kao(:, 2, 4, 1) = (/ & - &5.0348e-06 ,1.5693e-05 ,1.9649e-05 ,2.2560e-05 ,2.3970e-05 ,2.5222e-05 , & - &2.6081e-05 ,2.7399e-05 ,2.7623e-05 /) - kao(:, 3, 4, 1) = (/ & - &5.7893e-06 ,1.8717e-05 ,2.3542e-05 ,2.7248e-05 ,2.9677e-05 ,3.1779e-05 , & - &3.2973e-05 ,3.3876e-05 ,3.4347e-05 /) - kao(:, 4, 4, 1) = (/ & - &6.7700e-06 ,2.2355e-05 ,2.8015e-05 ,3.2751e-05 ,3.6706e-05 ,3.9566e-05 , & - &4.1488e-05 ,4.1986e-05 ,4.0984e-05 /) - kao(:, 5, 4, 1) = (/ & - &8.0207e-06 ,2.6505e-05 ,3.3421e-05 ,3.9357e-05 ,4.5121e-05 ,4.9003e-05 , & - &5.1776e-05 ,5.2148e-05 ,4.7085e-05 /) - kao(:, 1, 5, 1) = (/ & - &8.6602e-06 ,1.8553e-05 ,2.0839e-05 ,2.1788e-05 ,2.1544e-05 ,2.1077e-05 , & - &1.9473e-05 ,1.8495e-05 ,2.3671e-05 /) - kao(:, 2, 5, 1) = (/ & - &9.9810e-06 ,2.2031e-05 ,2.4930e-05 ,2.6247e-05 ,2.6462e-05 ,2.6137e-05 , & - &2.4415e-05 ,2.2553e-05 ,2.8177e-05 /) - kao(:, 3, 5, 1) = (/ & - &1.1619e-05 ,2.6356e-05 ,2.9247e-05 ,3.1562e-05 ,3.1911e-05 ,3.1801e-05 , & - &3.0166e-05 ,2.7978e-05 ,3.2481e-05 /) - kao(:, 4, 5, 1) = (/ & - &1.3216e-05 ,3.1104e-05 ,3.4868e-05 ,3.7332e-05 ,3.8497e-05 ,3.8279e-05 , & - &3.7615e-05 ,3.4834e-05 ,3.8514e-05 /) - kao(:, 5, 5, 1) = (/ & - &1.5414e-05 ,3.5706e-05 ,4.1155e-05 ,4.4051e-05 ,4.6023e-05 ,4.6762e-05 , & - &4.6430e-05 ,4.3490e-05 ,4.6117e-05 /) - kao(:, 1, 6, 1) = (/ & - &1.6458e-05 ,2.5684e-05 ,2.8012e-05 ,2.7844e-05 ,2.6244e-05 ,2.4237e-05 , & - &2.0656e-05 ,1.6798e-05 ,2.3796e-05 /) - kao(:, 2, 6, 1) = (/ & - &1.8595e-05 ,3.0385e-05 ,3.3443e-05 ,3.3768e-05 ,3.2056e-05 ,2.9483e-05 , & - &2.5851e-05 ,2.0866e-05 ,2.8662e-05 /) - kao(:, 3, 6, 1) = (/ & - &2.1348e-05 ,3.6540e-05 ,3.9601e-05 ,3.9640e-05 ,3.8210e-05 ,3.5898e-05 , & - &3.1968e-05 ,2.5765e-05 ,3.3968e-05 /) - kao(:, 4, 6, 1) = (/ & - &2.4741e-05 ,4.2510e-05 ,4.6979e-05 ,4.6425e-05 ,4.6165e-05 ,4.2824e-05 , & - &3.8814e-05 ,3.1863e-05 ,3.8072e-05 /) - kao(:, 5, 6, 1) = (/ & - &2.8527e-05 ,5.0183e-05 ,5.5064e-05 ,5.5234e-05 ,5.4182e-05 ,5.0966e-05 , & - &4.6758e-05 ,3.9447e-05 ,4.4935e-05 /) - kao(:, 1, 7, 1) = (/ & - &3.2476e-05 ,3.8679e-05 ,3.9032e-05 ,3.7741e-05 ,3.4552e-05 ,2.9807e-05 , & - &2.4164e-05 ,1.7294e-05 ,2.4102e-05 /) - kao(:, 2, 7, 1) = (/ & - &3.6570e-05 ,4.6320e-05 ,4.7537e-05 ,4.6067e-05 ,4.2268e-05 ,3.6503e-05 , & - &3.0476e-05 ,2.2134e-05 ,2.9448e-05 /) - kao(:, 3, 7, 1) = (/ & - &4.1124e-05 ,5.4270e-05 ,5.7210e-05 ,5.5312e-05 ,5.2106e-05 ,4.5231e-05 , & - &3.7737e-05 ,2.7811e-05 ,3.4668e-05 /) - kao(:, 4, 7, 1) = (/ & - &4.8133e-05 ,6.4794e-05 ,6.7628e-05 ,6.6254e-05 ,6.2299e-05 ,5.4379e-05 , & - &4.5931e-05 ,3.4327e-05 ,4.1743e-05 /) - kao(:, 5, 7, 1) = (/ & - &5.5532e-05 ,7.7694e-05 ,8.0423e-05 ,7.9418e-05 ,7.2354e-05 ,6.4221e-05 , & - &5.4806e-05 ,4.1684e-05 ,4.8759e-05 /) - kao(:, 1, 8, 1) = (/ & - &7.4902e-05 ,7.7106e-05 ,7.0826e-05 ,6.4010e-05 ,5.5968e-05 ,4.6986e-05 , & - &3.6409e-05 ,2.2524e-05 ,2.8079e-05 /) - kao(:, 2, 8, 1) = (/ & - &8.5067e-05 ,8.8842e-05 ,8.3769e-05 ,7.6787e-05 ,6.8134e-05 ,5.7821e-05 , & - &4.4557e-05 ,2.8824e-05 ,3.6133e-05 /) - kao(:, 3, 8, 1) = (/ & - &9.7879e-05 ,1.0460e-04 ,9.9884e-05 ,9.2458e-05 ,8.3229e-05 ,7.0097e-05 , & - &5.5355e-05 ,3.6496e-05 ,4.1979e-05 /) - kao(:, 4, 8, 1) = (/ & - &1.1321e-04 ,1.2375e-04 ,1.2003e-04 ,1.1241e-04 ,1.0088e-04 ,8.6080e-05 , & - &6.8531e-05 ,4.5034e-05 ,5.0526e-05 /) - kao(:, 5, 8, 1) = (/ & - &1.3142e-04 ,1.5020e-04 ,1.4626e-04 ,1.3653e-04 ,1.2235e-04 ,1.0518e-04 , & - &8.2469e-05 ,5.5412e-05 ,6.0484e-05 /) - kao(:, 1, 9, 1) = (/ & - &3.0190e-04 ,2.8195e-04 ,2.5208e-04 ,2.1662e-04 ,1.7929e-04 ,1.4025e-04 , & - &1.0049e-04 ,5.8291e-05 ,3.9381e-05 /) - kao(:, 2, 9, 1) = (/ & - &3.5007e-04 ,3.2966e-04 ,2.9418e-04 ,2.5482e-04 ,2.1206e-04 ,1.6775e-04 , & - &1.2208e-04 ,7.2618e-05 ,5.1006e-05 /) - kao(:, 3, 9, 1) = (/ & - &4.1355e-04 ,3.9069e-04 ,3.5043e-04 ,3.0530e-04 ,2.5611e-04 ,2.0488e-04 , & - &1.4964e-04 ,8.8870e-05 ,6.5960e-05 /) - kao(:, 4, 9, 1) = (/ & - &4.9093e-04 ,4.6398e-04 ,4.1726e-04 ,3.6373e-04 ,3.0710e-04 ,2.4775e-04 , & - &1.8258e-04 ,1.0881e-04 ,8.2307e-05 /) - kao(:, 5, 9, 1) = (/ & - &5.8022e-04 ,5.5027e-04 ,5.0137e-04 ,4.3986e-04 ,3.7225e-04 ,2.9865e-04 , & - &2.2079e-04 ,1.3406e-04 ,9.5285e-05 /) - kao(:, 1,10, 1) = (/ & - &1.2883e-03 ,1.1451e-03 ,9.9720e-04 ,8.4603e-04 ,6.8855e-04 ,5.2856e-04 , & - &3.6226e-04 ,1.9198e-04 ,7.4637e-05 /) - kao(:, 2,10, 1) = (/ & - &1.5104e-03 ,1.3471e-03 ,1.1771e-03 ,9.9916e-04 ,8.1528e-04 ,6.2425e-04 , & - &4.3021e-04 ,2.3018e-04 ,8.8724e-05 /) - kao(:, 3,10, 1) = (/ & - &1.8167e-03 ,1.6260e-03 ,1.4233e-03 ,1.2086e-03 ,9.8644e-04 ,7.6173e-04 , & - &5.2737e-04 ,2.8610e-04 ,1.0717e-04 /) - kao(:, 4,10, 1) = (/ & - &2.2177e-03 ,1.9922e-03 ,1.7424e-03 ,1.4817e-03 ,1.2127e-03 ,9.3691e-04 , & - &6.5292e-04 ,3.5708e-04 ,1.2411e-04 /) - kao(:, 5,10, 1) = (/ & - &2.7210e-03 ,2.4399e-03 ,2.1395e-03 ,1.8137e-03 ,1.4859e-03 ,1.1551e-03 , & - &8.0975e-04 ,4.4504e-04 ,1.4851e-04 /) - kao(:, 1,11, 1) = (/ & - &1.9516e-03 ,1.7255e-03 ,1.4956e-03 ,1.2644e-03 ,1.0251e-03 ,7.8257e-04 , & - &5.3359e-04 ,2.7877e-04 ,7.8095e-05 /) - kao(:, 2,11, 1) = (/ & - &2.3604e-03 ,2.0924e-03 ,1.8171e-03 ,1.5363e-03 ,1.2459e-03 ,9.5100e-04 , & - &6.5089e-04 ,3.4345e-04 ,9.5842e-05 /) - kao(:, 3,11, 1) = (/ & - &2.8804e-03 ,2.5577e-03 ,2.2239e-03 ,1.8797e-03 ,1.5233e-03 ,1.1642e-03 , & - &8.0020e-04 ,4.2543e-04 ,1.1860e-04 /) - kao(:, 4,11, 1) = (/ & - &3.5705e-03 ,3.1731e-03 ,2.7557e-03 ,2.3268e-03 ,1.8893e-03 ,1.4468e-03 , & - &9.9612e-04 ,5.3416e-04 ,1.4487e-04 /) - kao(:, 5,11, 1) = (/ & - &4.4488e-03 ,3.9532e-03 ,3.4428e-03 ,2.9093e-03 ,2.3658e-03 ,1.8156e-03 , & - &1.2567e-03 ,6.7979e-04 ,1.7247e-04 /) - kao(:, 1,12, 1) = (/ & - &2.1650e-03 ,1.9116e-03 ,1.6550e-03 ,1.3963e-03 ,1.1297e-03 ,8.5899e-04 , & - &5.8509e-04 ,3.0490e-04 ,7.1706e-05 /) - kao(:, 2,12, 1) = (/ & - &2.6267e-03 ,2.3248e-03 ,2.0167e-03 ,1.7021e-03 ,1.3758e-03 ,1.0485e-03 , & - &7.1504e-04 ,3.7456e-04 ,8.9235e-05 /) - kao(:, 3,12, 1) = (/ & - &3.2534e-03 ,2.8836e-03 ,2.5027e-03 ,2.1051e-03 ,1.7048e-03 ,1.2988e-03 , & - &8.8817e-04 ,4.6846e-04 ,1.1111e-04 /) - kao(:, 4,12, 1) = (/ & - &4.0663e-03 ,3.6075e-03 ,3.1250e-03 ,2.6309e-03 ,2.1307e-03 ,1.6269e-03 , & - &1.1159e-03 ,5.9423e-04 ,1.3807e-04 /) - kao(:, 5,12, 1) = (/ & - &5.1489e-03 ,4.5663e-03 ,3.9639e-03 ,3.3363e-03 ,2.7011e-03 ,2.0639e-03 , & - &1.4193e-03 ,7.5878e-04 ,1.6511e-04 /) - kao(:, 1,13, 1) = (/ & - &1.8892e-03 ,1.6706e-03 ,1.4468e-03 ,1.2178e-03 ,9.8369e-04 ,7.4837e-04 , & - &5.0829e-04 ,2.6445e-04 ,6.0347e-05 /) - kao(:, 2,13, 1) = (/ & - &2.3493e-03 ,2.0800e-03 ,1.8039e-03 ,1.5176e-03 ,1.2269e-03 ,9.3478e-04 , & - &6.3614e-04 ,3.3311e-04 ,7.4952e-05 /) - kao(:, 3,13, 1) = (/ & - &2.9367e-03 ,2.6050e-03 ,2.2571e-03 ,1.8958e-03 ,1.5337e-03 ,1.1694e-03 , & - &7.9916e-04 ,4.2184e-04 ,9.2442e-05 /) - kao(:, 4,13, 1) = (/ & - &3.6657e-03 ,3.2513e-03 ,2.8158e-03 ,2.3704e-03 ,1.9186e-03 ,1.4653e-03 , & - &1.0024e-03 ,5.3341e-04 ,1.1484e-04 /) - kao(:, 5,13, 1) = (/ & - &4.6760e-03 ,4.1516e-03 ,3.5983e-03 ,3.0289e-03 ,2.4503e-03 ,1.8734e-03 , & - &1.2888e-03 ,6.8680e-04 ,1.3777e-04 /) - kao(:, 1, 1, 2) = (/ & - &1.8748e-06 ,2.5986e-05 ,3.9140e-05 ,5.0515e-05 ,6.0453e-05 ,7.0222e-05 , & - &9.2153e-05 ,1.1527e-04 ,4.9863e-05 /) - kao(:, 2, 1, 2) = (/ & - &2.2195e-06 ,3.2877e-05 ,5.0201e-05 ,6.4757e-05 ,7.7459e-05 ,8.9731e-05 , & - &1.0523e-04 ,1.3275e-04 ,6.4946e-05 /) - kao(:, 3, 1, 2) = (/ & - &2.6699e-06 ,4.0948e-05 ,6.3539e-05 ,8.1241e-05 ,9.7151e-05 ,1.1092e-04 , & - &1.1761e-04 ,1.3825e-04 ,8.4658e-05 /) - kao(:, 4, 1, 2) = (/ & - &3.1333e-06 ,5.0568e-05 ,7.8106e-05 ,9.9691e-05 ,1.1981e-04 ,1.3549e-04 , & - &1.3924e-04 ,1.5344e-04 ,1.0884e-04 /) - kao(:, 5, 1, 2) = (/ & - &3.7302e-06 ,6.1696e-05 ,9.4521e-05 ,1.2091e-04 ,1.4534e-04 ,1.6166e-04 , & - &1.6745e-04 ,1.7689e-04 ,1.3808e-04 /) - kao(:, 1, 2, 2) = (/ & - &2.7303e-06 ,2.4541e-05 ,3.5763e-05 ,4.4104e-05 ,5.1595e-05 ,5.8966e-05 , & - &6.8130e-05 ,1.0200e-04 ,3.9223e-05 /) - kao(:, 2, 2, 2) = (/ & - &3.2091e-06 ,3.1379e-05 ,4.5745e-05 ,5.7229e-05 ,6.6576e-05 ,7.4659e-05 , & - &8.1615e-05 ,9.9977e-05 ,5.3367e-05 /) - kao(:, 3, 2, 2) = (/ & - &3.8233e-06 ,3.9294e-05 ,5.7741e-05 ,7.2569e-05 ,8.4616e-05 ,9.4873e-05 , & - &1.0240e-04 ,1.1173e-04 ,6.9904e-05 /) - kao(:, 4, 2, 2) = (/ & - &4.4247e-06 ,4.8330e-05 ,7.1550e-05 ,9.0142e-05 ,1.0471e-04 ,1.1736e-04 , & - &1.2542e-04 ,1.2602e-04 ,8.9761e-05 /) - kao(:, 5, 2, 2) = (/ & - &5.2245e-06 ,5.9597e-05 ,8.7482e-05 ,1.0983e-04 ,1.2772e-04 ,1.4263e-04 , & - &1.4957e-04 ,1.4619e-04 ,1.1276e-04 /) - kao(:, 1, 3, 2) = (/ & - &5.2515e-06 ,2.5764e-05 ,3.5421e-05 ,4.2053e-05 ,4.7449e-05 ,5.0608e-05 , & - &5.3790e-05 ,6.3623e-05 ,3.2707e-05 /) - kao(:, 2, 3, 2) = (/ & - &6.1812e-06 ,3.3267e-05 ,4.5617e-05 ,5.4363e-05 ,6.1462e-05 ,6.5644e-05 , & - &6.8603e-05 ,7.2538e-05 ,4.2974e-05 /) - kao(:, 3, 3, 2) = (/ & - &7.0789e-06 ,4.1750e-05 ,5.7967e-05 ,6.9149e-05 ,7.8026e-05 ,8.4324e-05 , & - &8.7723e-05 ,8.7036e-05 ,5.7402e-05 /) - kao(:, 4, 3, 2) = (/ & - &8.1019e-06 ,5.2243e-05 ,7.2254e-05 ,8.6560e-05 ,9.8380e-05 ,1.0586e-04 , & - &1.1006e-04 ,1.0834e-04 ,7.4594e-05 /) - kao(:, 5, 3, 2) = (/ & - &9.5928e-06 ,6.4752e-05 ,8.9095e-05 ,1.0726e-04 ,1.2114e-04 ,1.3016e-04 , & - &1.3551e-04 ,1.3048e-04 ,9.3901e-05 /) - kao(:, 1, 4, 2) = (/ & - &1.1020e-05 ,2.8494e-05 ,3.6932e-05 ,4.2975e-05 ,4.6074e-05 ,4.6953e-05 , & - &4.6313e-05 ,4.4542e-05 ,3.2970e-05 /) - kao(:, 2, 4, 2) = (/ & - &1.2562e-05 ,3.7065e-05 ,4.7812e-05 ,5.4915e-05 ,5.9599e-05 ,6.1605e-05 , & - &6.1355e-05 ,5.8223e-05 ,3.9379e-05 /) - kao(:, 3, 4, 2) = (/ & - &1.4576e-05 ,4.7351e-05 ,6.1614e-05 ,7.0211e-05 ,7.6184e-05 ,7.9246e-05 , & - &7.8840e-05 ,7.4646e-05 ,4.5622e-05 /) - kao(:, 4, 4, 2) = (/ & - &1.6280e-05 ,5.8550e-05 ,7.7244e-05 ,8.9750e-05 ,9.5812e-05 ,1.0028e-04 , & - &1.0042e-04 ,9.4563e-05 ,5.6157e-05 /) - kao(:, 5, 4, 2) = (/ & - &1.8452e-05 ,7.1720e-05 ,9.6110e-05 ,1.1183e-04 ,1.1944e-04 ,1.2546e-04 , & - &1.2521e-04 ,1.1758e-04 ,7.2313e-05 /) - kao(:, 1, 5, 2) = (/ & - &2.1312e-05 ,3.6806e-05 ,4.2862e-05 ,4.6599e-05 ,4.7270e-05 ,4.6274e-05 , & - &4.2916e-05 ,3.6817e-05 ,3.2593e-05 /) - kao(:, 2, 5, 2) = (/ & - &2.5202e-05 ,4.5358e-05 ,5.3413e-05 ,5.8866e-05 ,6.0628e-05 ,5.9617e-05 , & - &5.6530e-05 ,4.9579e-05 ,3.9610e-05 /) - kao(:, 3, 5, 2) = (/ & - &2.8699e-05 ,5.5778e-05 ,6.8120e-05 ,7.4417e-05 ,7.7573e-05 ,7.6799e-05 , & - &7.3323e-05 ,6.4915e-05 ,4.8072e-05 /) - kao(:, 4, 5, 2) = (/ & - &3.2753e-05 ,6.7844e-05 ,8.5625e-05 ,9.3879e-05 ,9.7934e-05 ,9.8316e-05 , & - &9.3375e-05 ,8.3569e-05 ,5.7445e-05 /) - kao(:, 5, 5, 2) = (/ & - &3.6908e-05 ,8.3612e-05 ,1.0490e-04 ,1.1632e-04 ,1.2275e-04 ,1.2328e-04 , & - &1.1667e-04 ,1.0539e-04 ,6.6570e-05 /) - kao(:, 1, 6, 2) = (/ & - &4.3241e-05 ,5.7363e-05 ,5.9383e-05 ,5.9083e-05 ,5.6687e-05 ,5.1929e-05 , & - &4.4854e-05 ,3.4134e-05 ,3.3554e-05 /) - kao(:, 2, 6, 2) = (/ & - &4.8160e-05 ,6.6362e-05 ,7.1460e-05 ,7.1908e-05 ,6.9540e-05 ,6.3380e-05 , & - &5.6957e-05 ,4.4490e-05 ,3.9435e-05 /) - kao(:, 3, 6, 2) = (/ & - &5.5150e-05 ,7.8279e-05 ,8.5897e-05 ,8.6929e-05 ,8.6216e-05 ,7.9912e-05 , & - &7.1634e-05 ,5.7727e-05 ,4.6871e-05 /) - kao(:, 4, 6, 2) = (/ & - &6.2702e-05 ,9.3878e-05 ,1.0189e-04 ,1.0755e-04 ,1.0575e-04 ,1.0053e-04 , & - &8.9365e-05 ,7.5152e-05 ,5.7874e-05 /) - kao(:, 5, 6, 2) = (/ & - &7.1646e-05 ,1.0994e-04 ,1.2283e-04 ,1.3142e-04 ,1.3048e-04 ,1.2339e-04 , & - &1.1339e-04 ,9.4667e-05 ,6.9560e-05 /) - kao(:, 1, 7, 2) = (/ & - &9.4217e-05 ,1.0625e-04 ,1.0297e-04 ,9.4341e-05 ,8.4820e-05 ,7.4540e-05 , & - &5.9573e-05 ,4.0162e-05 ,3.4032e-05 /) - kao(:, 2, 7, 2) = (/ & - &1.0328e-04 ,1.1698e-04 ,1.1273e-04 ,1.0730e-04 ,9.8854e-05 ,8.8068e-05 , & - &7.1680e-05 ,5.0363e-05 ,4.1780e-05 /) - kao(:, 3, 7, 2) = (/ & - &1.1436e-04 ,1.3466e-04 ,1.3293e-04 ,1.2807e-04 ,1.1742e-04 ,1.0440e-04 , & - &8.7142e-05 ,6.2911e-05 ,5.1346e-05 /) - kao(:, 4, 7, 2) = (/ & - &1.2805e-04 ,1.5498e-04 ,1.5579e-04 ,1.5032e-04 ,1.3953e-04 ,1.2638e-04 , & - &1.0638e-04 ,7.6925e-05 ,6.1784e-05 /) - kao(:, 5, 7, 2) = (/ & - &1.4510e-04 ,1.7937e-04 ,1.8186e-04 ,1.7514e-04 ,1.6579e-04 ,1.5232e-04 , & - &1.2822e-04 ,9.5671e-05 ,7.0048e-05 /) - kao(:, 1, 8, 2) = (/ & - &2.4926e-04 ,2.4392e-04 ,2.2297e-04 ,1.9521e-04 ,1.6651e-04 ,1.3349e-04 , & - &9.8669e-05 ,6.3201e-05 ,3.1807e-05 /) - kao(:, 2, 8, 2) = (/ & - &2.7454e-04 ,2.7755e-04 ,2.5558e-04 ,2.2780e-04 ,1.9618e-04 ,1.5908e-04 , & - &1.2121e-04 ,7.6667e-05 ,4.0012e-05 /) - kao(:, 3, 8, 2) = (/ & - &2.9508e-04 ,3.0091e-04 ,2.7929e-04 ,2.5223e-04 ,2.1930e-04 ,1.8562e-04 , & - &1.4312e-04 ,9.2529e-05 ,5.6355e-05 /) - kao(:, 4, 8, 2) = (/ & - &3.2350e-04 ,3.3697e-04 ,3.1656e-04 ,2.8676e-04 ,2.5417e-04 ,2.1233e-04 , & - &1.6702e-04 ,1.1113e-04 ,6.5692e-05 /) - kao(:, 5, 8, 2) = (/ & - &3.5413e-04 ,3.7149e-04 ,3.5724e-04 ,3.2794e-04 ,2.8883e-04 ,2.4521e-04 , & - &1.9502e-04 ,1.3265e-04 ,7.4636e-05 /) - kao(:, 1, 9, 2) = (/ & - &1.1370e-03 ,1.0245e-03 ,9.0233e-04 ,7.7373e-04 ,6.3596e-04 ,4.9782e-04 , & - &3.4706e-04 ,1.8813e-04 ,5.4967e-05 /) - kao(:, 2, 9, 2) = (/ & - &1.2549e-03 ,1.1327e-03 ,1.0081e-03 ,8.6174e-04 ,7.1233e-04 ,5.5663e-04 , & - &3.9054e-04 ,2.1740e-04 ,6.5863e-05 /) - kao(:, 3, 9, 2) = (/ & - &1.4193e-03 ,1.2929e-03 ,1.1501e-03 ,9.8954e-04 ,8.1834e-04 ,6.4034e-04 , & - &4.5590e-04 ,2.5841e-04 ,7.6782e-05 /) - kao(:, 4, 9, 2) = (/ & - &1.5730e-03 ,1.4525e-03 ,1.2939e-03 ,1.1191e-03 ,9.2869e-04 ,7.2912e-04 , & - &5.2003e-04 ,2.9928e-04 ,9.3109e-05 /) - kao(:, 5, 9, 2) = (/ & - &1.7020e-03 ,1.5888e-03 ,1.4187e-03 ,1.2315e-03 ,1.0334e-03 ,8.2293e-04 , & - &5.9761e-04 ,3.4411e-04 ,1.1836e-04 /) - kao(:, 1,10, 2) = (/ & - &6.1528e-03 ,5.4056e-03 ,4.6635e-03 ,3.9185e-03 ,3.1663e-03 ,2.4050e-03 , & - &1.6372e-03 ,8.5009e-04 ,8.0054e-05 /) - kao(:, 2,10, 2) = (/ & - &6.8550e-03 ,6.0391e-03 ,5.2246e-03 ,4.3821e-03 ,3.5514e-03 ,2.7172e-03 , & - &1.8529e-03 ,9.7224e-04 ,1.0130e-04 /) - kao(:, 3,10, 2) = (/ & - &7.6163e-03 ,6.7254e-03 ,5.8028e-03 ,4.8844e-03 ,3.9710e-03 ,3.0268e-03 , & - &2.0640e-03 ,1.0804e-03 ,1.3327e-04 /) - kao(:, 4,10, 2) = (/ & - &8.4017e-03 ,7.4385e-03 ,6.4324e-03 ,5.4278e-03 ,4.4132e-03 ,3.3677e-03 , & - &2.3075e-03 ,1.2226e-03 ,1.6598e-04 /) - kao(:, 5,10, 2) = (/ & - &9.3911e-03 ,8.3333e-03 ,7.2272e-03 ,6.1232e-03 ,4.9837e-03 ,3.8167e-03 , & - &2.6213e-03 ,1.4063e-03 ,2.0638e-04 /) - kao(:, 1,11, 2) = (/ & - &1.1762e-02 ,1.0306e-02 ,8.8593e-03 ,7.4127e-03 ,5.9627e-03 ,4.5045e-03 , & - &3.0511e-03 ,1.5666e-03 ,8.2025e-05 /) - kao(:, 2,11, 2) = (/ & - &1.3012e-02 ,1.1426e-02 ,9.8347e-03 ,8.2336e-03 ,6.6323e-03 ,5.0275e-03 , & - &3.4043e-03 ,1.7550e-03 ,1.0611e-04 /) - kao(:, 3,11, 2) = (/ & - &1.4612e-02 ,1.2845e-02 ,1.1070e-02 ,9.2725e-03 ,7.4822e-03 ,5.6847e-03 , & - &3.8534e-03 ,1.9989e-03 ,1.3346e-04 /) - kao(:, 4,11, 2) = (/ & - &1.6251e-02 ,1.4313e-02 ,1.2347e-02 ,1.0360e-02 ,8.3777e-03 ,6.3716e-03 , & - &4.3250e-03 ,2.2445e-03 ,1.6083e-04 /) - kao(:, 5,11, 2) = (/ & - &1.8150e-02 ,1.6016e-02 ,1.3813e-02 ,1.1608e-02 ,9.3833e-03 ,7.1360e-03 , & - &4.8421e-03 ,2.5233e-03 ,2.0030e-04 /) - kao(:, 1,12, 2) = (/ & - &1.5059e-02 ,1.3197e-02 ,1.1332e-02 ,9.4687e-03 ,7.6107e-03 ,5.7434e-03 , & - &3.8799e-03 ,1.9799e-03 ,8.0330e-05 /) - kao(:, 2,12, 2) = (/ & - &1.6512e-02 ,1.4476e-02 ,1.2442e-02 ,1.0410e-02 ,8.3743e-03 ,6.3355e-03 , & - &4.2771e-03 ,2.1952e-03 ,9.9323e-05 /) - kao(:, 3,12, 2) = (/ & - &1.8685e-02 ,1.6400e-02 ,1.4116e-02 ,1.1818e-02 ,9.5219e-03 ,7.2188e-03 , & - &4.8730e-03 ,2.5083e-03 ,1.2343e-04 /) - kao(:, 4,12, 2) = (/ & - &2.1153e-02 ,1.8588e-02 ,1.6002e-02 ,1.3413e-02 ,1.0821e-02 ,8.2029e-03 , & - &5.5391e-03 ,2.8500e-03 ,1.4931e-04 /) - kao(:, 5,12, 2) = (/ & - &2.3737e-02 ,2.0901e-02 ,1.7991e-02 ,1.5090e-02 ,1.2172e-02 ,9.2290e-03 , & - &6.2485e-03 ,3.2234e-03 ,1.9022e-04 /) - kao(:, 1,13, 2) = (/ & - &1.4847e-02 ,1.3010e-02 ,1.1175e-02 ,9.3417e-03 ,7.5039e-03 ,5.6608e-03 , & - &3.8195e-03 ,1.9483e-03 ,7.0259e-05 /) - kao(:, 2,13, 2) = (/ & - &1.6739e-02 ,1.4679e-02 ,1.2619e-02 ,1.0555e-02 ,8.4903e-03 ,6.4217e-03 , & - &4.3269e-03 ,2.2129e-03 ,8.5490e-05 /) - kao(:, 3,13, 2) = (/ & - &1.8825e-02 ,1.6518e-02 ,1.4211e-02 ,1.1898e-02 ,9.5859e-03 ,7.2507e-03 , & - &4.8896e-03 ,2.5047e-03 ,1.1226e-04 /) - kao(:, 4,13, 2) = (/ & - &2.1292e-02 ,1.8712e-02 ,1.6107e-02 ,1.3496e-02 ,1.0877e-02 ,8.2331e-03 , & - &5.5639e-03 ,2.8510e-03 ,1.4031e-04 /) - kao(:, 5,13, 2) = (/ & - &2.4158e-02 ,2.1241e-02 ,1.8299e-02 ,1.5344e-02 ,1.2375e-02 ,9.3646e-03 , & - &6.3197e-03 ,3.2533e-03 ,1.7265e-04 /) - kao(:, 1, 1, 3) = (/ & - &1.0410e-05 ,6.1962e-05 ,8.9498e-05 ,1.0661e-04 ,1.2164e-04 ,1.3377e-04 , & - &1.2941e-04 ,1.4521e-04 ,8.1226e-05 /) - kao(:, 2, 1, 3) = (/ & - &1.1876e-05 ,7.8368e-05 ,1.1198e-04 ,1.3409e-04 ,1.5187e-04 ,1.6090e-04 , & - &1.6481e-04 ,1.6441e-04 ,1.1141e-04 /) - kao(:, 3, 1, 3) = (/ & - &1.3686e-05 ,9.7536e-05 ,1.3724e-04 ,1.6641e-04 ,1.8557e-04 ,1.9386e-04 , & - &1.9539e-04 ,1.8991e-04 ,1.4967e-04 /) - kao(:, 4, 1, 3) = (/ & - &1.5807e-05 ,1.1754e-04 ,1.6722e-04 ,2.0238e-04 ,2.2277e-04 ,2.3084e-04 , & - &2.3103e-04 ,2.1679e-04 ,1.9490e-04 /) - kao(:, 5, 1, 3) = (/ & - &1.8430e-05 ,1.4041e-04 ,2.0063e-04 ,2.4077e-04 ,2.6088e-04 ,2.7081e-04 , & - &2.7088e-04 ,2.6451e-04 ,2.4633e-04 /) - kao(:, 1, 2, 3) = (/ & - &1.4574e-05 ,6.1181e-05 ,8.5219e-05 ,1.0233e-04 ,1.1097e-04 ,1.1864e-04 , & - &1.2443e-04 ,1.2339e-04 ,6.7714e-05 /) - kao(:, 2, 2, 3) = (/ & - &1.6727e-05 ,7.7358e-05 ,1.0881e-04 ,1.2844e-04 ,1.4104e-04 ,1.5016e-04 , & - &1.5142e-04 ,1.4164e-04 ,9.0996e-05 /) - kao(:, 3, 2, 3) = (/ & - &1.9092e-05 ,9.6319e-05 ,1.3467e-04 ,1.5937e-04 ,1.7543e-04 ,1.8362e-04 , & - &1.8038e-04 ,1.5924e-04 ,1.2122e-04 /) - kao(:, 4, 2, 3) = (/ & - &2.2128e-05 ,1.1862e-04 ,1.6445e-04 ,1.9397e-04 ,2.1438e-04 ,2.2054e-04 , & - &2.1448e-04 ,2.0102e-04 ,1.5787e-04 /) - kao(:, 5, 2, 3) = (/ & - &2.5953e-05 ,1.4141e-04 ,1.9710e-04 ,2.3342e-04 ,2.5581e-04 ,2.5978e-04 , & - &2.5390e-04 ,2.3627e-04 ,2.0062e-04 /) - kao(:, 1, 3, 3) = (/ & - &2.6011e-05 ,6.9300e-05 ,8.8885e-05 ,1.0316e-04 ,1.1255e-04 ,1.1444e-04 , & - &1.1119e-04 ,1.0838e-04 ,5.7064e-05 /) - kao(:, 2, 3, 3) = (/ & - &2.9960e-05 ,8.6707e-05 ,1.1415e-04 ,1.3351e-04 ,1.4420e-04 ,1.4685e-04 , & - &1.4419e-04 ,1.3258e-04 ,7.5649e-05 /) - kao(:, 3, 3, 3) = (/ & - &3.4740e-05 ,1.0851e-04 ,1.4450e-04 ,1.6834e-04 ,1.8054e-04 ,1.8416e-04 , & - &1.8038e-04 ,1.5855e-04 ,9.9657e-05 /) - kao(:, 4, 3, 3) = (/ & - &4.0367e-05 ,1.3338e-04 ,1.7889e-04 ,2.0752e-04 ,2.2266e-04 ,2.2792e-04 , & - &2.1975e-04 ,1.8879e-04 ,1.2950e-04 /) - kao(:, 5, 3, 3) = (/ & - &4.7325e-05 ,1.6087e-04 ,2.1635e-04 ,2.5031e-04 ,2.7116e-04 ,2.7639e-04 , & - &2.6032e-04 ,2.2480e-04 ,1.6585e-04 /) - kao(:, 1, 4, 3) = (/ & - &4.6629e-05 ,8.8856e-05 ,1.0307e-04 ,1.1034e-04 ,1.1324e-04 ,1.1518e-04 , & - &1.0941e-04 ,9.2447e-05 ,4.9807e-05 /) - kao(:, 2, 4, 3) = (/ & - &5.3813e-05 ,1.0914e-04 ,1.2953e-04 ,1.4280e-04 ,1.4973e-04 ,1.5074e-04 , & - &1.4150e-04 ,1.2111e-04 ,6.6358e-05 /) - kao(:, 3, 4, 3) = (/ & - &6.3364e-05 ,1.3307e-04 ,1.6255e-04 ,1.8292e-04 ,1.9276e-04 ,1.9285e-04 , & - &1.8002e-04 ,1.5407e-04 ,8.8052e-05 /) - kao(:, 4, 4, 3) = (/ & - &7.4529e-05 ,1.6123e-04 ,2.0145e-04 ,2.2832e-04 ,2.4093e-04 ,2.3982e-04 , & - &2.2562e-04 ,1.8990e-04 ,1.1560e-04 /) - kao(:, 5, 4, 3) = (/ & - &8.8134e-05 ,1.9717e-04 ,2.4798e-04 ,2.7909e-04 ,2.9532e-04 ,2.9441e-04 , & - &2.7564e-04 ,2.2733e-04 ,1.4686e-04 /) - kao(:, 1, 5, 3) = (/ & - &7.7279e-05 ,1.1122e-04 ,1.2109e-04 ,1.2443e-04 ,1.2189e-04 ,1.1617e-04 , & - &1.0613e-04 ,8.7521e-05 ,4.7012e-05 /) - kao(:, 2, 5, 3) = (/ & - &8.9473e-05 ,1.3546e-04 ,1.5195e-04 ,1.5794e-04 ,1.5786e-04 ,1.5329e-04 , & - &1.4127e-04 ,1.1487e-04 ,6.0204e-05 /) - kao(:, 3, 5, 3) = (/ & - &1.0328e-04 ,1.6610e-04 ,1.8961e-04 ,1.9990e-04 ,2.0229e-04 ,2.0006e-04 , & - &1.8432e-04 ,1.4896e-04 ,7.6087e-05 /) - kao(:, 4, 5, 3) = (/ & - &1.2119e-04 ,2.0367e-04 ,2.3155e-04 ,2.4851e-04 ,2.5658e-04 ,2.5211e-04 , & - &2.3296e-04 ,1.8864e-04 ,9.8744e-05 /) - kao(:, 5, 5, 3) = (/ & - &1.4337e-04 ,2.4554e-04 ,2.8278e-04 ,3.0781e-04 ,3.1834e-04 ,3.1139e-04 , & - &2.8860e-04 ,2.3262e-04 ,1.2920e-04 /) - kao(:, 1, 6, 3) = (/ & - &1.1761e-04 ,1.4538e-04 ,1.4284e-04 ,1.3740e-04 ,1.2980e-04 ,1.1847e-04 , & - &1.0232e-04 ,8.1254e-05 ,4.1748e-05 /) - kao(:, 2, 6, 3) = (/ & - &1.3703e-04 ,1.7162e-04 ,1.7382e-04 ,1.7289e-04 ,1.6644e-04 ,1.5514e-04 , & - &1.3666e-04 ,1.0938e-04 ,5.6033e-05 /) - kao(:, 3, 6, 3) = (/ & - &1.5744e-04 ,2.0479e-04 ,2.1458e-04 ,2.1922e-04 ,2.1487e-04 ,2.0072e-04 , & - &1.7976e-04 ,1.4480e-04 ,7.3663e-05 /) - kao(:, 4, 6, 3) = (/ & - &1.7947e-04 ,2.4802e-04 ,2.6658e-04 ,2.7311e-04 ,2.6613e-04 ,2.5639e-04 , & - &2.3337e-04 ,1.8491e-04 ,9.1670e-05 /) - kao(:, 5, 6, 3) = (/ & - &2.1213e-04 ,2.9698e-04 ,3.2800e-04 ,3.3255e-04 ,3.3379e-04 ,3.2227e-04 , & - &2.9213e-04 ,2.3295e-04 ,1.1053e-04 /) - kao(:, 1, 7, 3) = (/ & - &2.1717e-04 ,2.2955e-04 ,2.1661e-04 ,1.9608e-04 ,1.6989e-04 ,1.4299e-04 , & - &1.1566e-04 ,8.2895e-05 ,3.7387e-05 /) - kao(:, 2, 7, 3) = (/ & - &2.4414e-04 ,2.6643e-04 ,2.5638e-04 ,2.3114e-04 ,2.0334e-04 ,1.7738e-04 , & - &1.4895e-04 ,1.0764e-04 ,5.2222e-05 /) - kao(:, 3, 7, 3) = (/ & - &2.7286e-04 ,3.0487e-04 ,2.9526e-04 ,2.7261e-04 ,2.5126e-04 ,2.2507e-04 , & - &1.8734e-04 ,1.4022e-04 ,6.8628e-05 /) - kao(:, 4, 7, 3) = (/ & - &3.1153e-04 ,3.5338e-04 ,3.4554e-04 ,3.2591e-04 ,3.0719e-04 ,2.7679e-04 , & - &2.3565e-04 ,1.8522e-04 ,8.6360e-05 /) - kao(:, 5, 7, 3) = (/ & - &3.5307e-04 ,4.0595e-04 ,4.0654e-04 ,3.9853e-04 ,3.7853e-04 ,3.4348e-04 , & - &3.0049e-04 ,2.3594e-04 ,1.1315e-04 /) - kao(:, 1, 8, 3) = (/ & - &5.5525e-04 ,5.3290e-04 ,4.9219e-04 ,4.3834e-04 ,3.7060e-04 ,2.9620e-04 , & - &2.1670e-04 ,1.3044e-04 ,4.3913e-05 /) - kao(:, 2, 8, 3) = (/ & - &6.1273e-04 ,5.9169e-04 ,5.4415e-04 ,4.8432e-04 ,4.1256e-04 ,3.3431e-04 , & - &2.4554e-04 ,1.5735e-04 ,5.6222e-05 /) - kao(:, 3, 8, 3) = (/ & - &6.6697e-04 ,6.5930e-04 ,6.1229e-04 ,5.4542e-04 ,4.6824e-04 ,3.7897e-04 , & - &2.8714e-04 ,1.8945e-04 ,7.2182e-05 /) - kao(:, 4, 8, 3) = (/ & - &7.3789e-04 ,7.3274e-04 ,6.8030e-04 ,6.0993e-04 ,5.2803e-04 ,4.3826e-04 , & - &3.4177e-04 ,2.2879e-04 ,9.7984e-05 /) - kao(:, 5, 8, 3) = (/ & - &8.2418e-04 ,8.2930e-04 ,7.7540e-04 ,7.0471e-04 ,6.2407e-04 ,5.2518e-04 , & - &4.1114e-04 ,2.7739e-04 ,1.2917e-04 /) - kao(:, 1, 9, 3) = (/ & - &2.9866e-03 ,2.6446e-03 ,2.3122e-03 ,1.9743e-03 ,1.6235e-03 ,1.2497e-03 , & - &8.7401e-04 ,4.7254e-04 ,6.5815e-05 /) - kao(:, 2, 9, 3) = (/ & - &3.1867e-03 ,2.8548e-03 ,2.5070e-03 ,2.1512e-03 ,1.7728e-03 ,1.3804e-03 , & - &9.6416e-04 ,5.2342e-04 ,8.4426e-05 /) - kao(:, 3, 9, 3) = (/ & - &3.3577e-03 ,3.0331e-03 ,2.6681e-03 ,2.2844e-03 ,1.8894e-03 ,1.4824e-03 , & - &1.0437e-03 ,5.7926e-04 ,1.1456e-04 /) - kao(:, 4, 9, 3) = (/ & - &3.5955e-03 ,3.2669e-03 ,2.8865e-03 ,2.4786e-03 ,2.0664e-03 ,1.6261e-03 , & - &1.1591e-03 ,6.6253e-04 ,1.4708e-04 /) - kao(:, 5, 9, 3) = (/ & - &3.9554e-03 ,3.6156e-03 ,3.2186e-03 ,2.7765e-03 ,2.3055e-03 ,1.8177e-03 , & - &1.3061e-03 ,7.6692e-04 ,1.9062e-04 /) - kao(:, 1,10, 3) = (/ & - &1.6695e-02 ,1.4628e-02 ,1.2561e-02 ,1.0499e-02 ,8.4474e-03 ,6.4042e-03 , & - &4.3459e-03 ,2.2571e-03 ,5.1038e-05 /) - kao(:, 2,10, 3) = (/ & - &1.8223e-02 ,1.5977e-02 ,1.3728e-02 ,1.1517e-02 ,9.2932e-03 ,7.0542e-03 , & - &4.8075e-03 ,2.4890e-03 ,1.1555e-04 /) - kao(:, 3,10, 3) = (/ & - &2.0043e-02 ,1.7593e-02 ,1.5175e-02 ,1.2748e-02 ,1.0288e-02 ,7.8318e-03 , & - &5.3279e-03 ,2.7782e-03 ,1.4398e-04 /) - kao(:, 4,10, 3) = (/ & - &2.1904e-02 ,1.9249e-02 ,1.6643e-02 ,1.3989e-02 ,1.1315e-02 ,8.6138e-03 , & - &5.8652e-03 ,3.0632e-03 ,1.9715e-04 /) - kao(:, 5,10, 3) = (/ & - &2.3159e-02 ,2.0410e-02 ,1.7664e-02 ,1.4873e-02 ,1.2019e-02 ,9.1728e-03 , & - &6.2874e-03 ,3.3158e-03 ,2.7195e-04 /) - kao(:, 1,11, 3) = (/ & - &3.2603e-02 ,2.8559e-02 ,2.4510e-02 ,2.0449e-02 ,1.6397e-02 ,1.2361e-02 , & - &8.3115e-03 ,4.2614e-03 ,4.3561e-05 /) - kao(:, 2,11, 3) = (/ & - &3.5490e-02 ,3.1085e-02 ,2.6692e-02 ,2.2303e-02 ,1.7919e-02 ,1.3525e-02 , & - &9.1241e-03 ,4.6814e-03 ,1.0680e-04 /) - kao(:, 3,11, 3) = (/ & - &3.8854e-02 ,3.4035e-02 ,2.9244e-02 ,2.4483e-02 ,1.9700e-02 ,1.4916e-02 , & - &1.0095e-02 ,5.1808e-03 ,1.8562e-04 /) - kao(:, 4,11, 3) = (/ & - &4.2305e-02 ,3.7086e-02 ,3.1904e-02 ,2.6732e-02 ,2.1504e-02 ,1.6276e-02 , & - &1.1000e-02 ,5.6671e-03 ,2.4195e-04 /) - kao(:, 5,11, 3) = (/ & - &4.6003e-02 ,4.0358e-02 ,3.4797e-02 ,2.9165e-02 ,2.3531e-02 ,1.7850e-02 , & - &1.2113e-02 ,6.2729e-03 ,3.2815e-04 /) - kao(:, 1,12, 3) = (/ & - &4.2717e-02 ,3.7390e-02 ,3.2076e-02 ,2.6766e-02 ,2.1453e-02 ,1.6148e-02 , & - &1.0833e-02 ,5.5285e-03 ,5.3162e-05 /) - kao(:, 2,12, 3) = (/ & - &4.7716e-02 ,4.1793e-02 ,3.5854e-02 ,2.9930e-02 ,2.4020e-02 ,1.8099e-02 , & - &1.2166e-02 ,6.2010e-03 ,1.2199e-04 /) - kao(:, 3,12, 3) = (/ & - &5.2485e-02 ,4.5967e-02 ,3.9456e-02 ,3.2983e-02 ,2.6496e-02 ,1.9981e-02 , & - &1.3462e-02 ,6.8646e-03 ,1.9551e-04 /) - kao(:, 4,12, 3) = (/ & - &5.6971e-02 ,4.9905e-02 ,4.2910e-02 ,3.5876e-02 ,2.8829e-02 ,2.1772e-02 , & - &1.4678e-02 ,7.4885e-03 ,2.4038e-04 /) - kao(:, 5,12, 3) = (/ & - &6.1845e-02 ,5.4216e-02 ,4.6694e-02 ,3.9065e-02 ,3.1428e-02 ,2.3760e-02 , & - &1.6034e-02 ,8.2201e-03 ,3.2330e-04 /) - kao(:, 1,13, 3) = (/ & - &4.4159e-02 ,3.8661e-02 ,3.3159e-02 ,2.7655e-02 ,2.2159e-02 ,1.6679e-02 , & - &1.1182e-02 ,5.6866e-03 ,7.0844e-05 /) - kao(:, 2,13, 3) = (/ & - &4.9543e-02 ,4.3376e-02 ,3.7217e-02 ,3.1073e-02 ,2.4939e-02 ,1.8777e-02 , & - &1.2622e-02 ,6.4095e-03 ,1.2350e-04 /) - kao(:, 3,13, 3) = (/ & - &5.4720e-02 ,4.7942e-02 ,4.1156e-02 ,3.4403e-02 ,2.7607e-02 ,2.0806e-02 , & - &1.3984e-02 ,7.1021e-03 ,1.5128e-04 /) - kao(:, 4,13, 3) = (/ & - &5.9716e-02 ,5.2321e-02 ,4.4977e-02 ,3.7585e-02 ,3.0190e-02 ,2.2781e-02 , & - &1.5325e-02 ,7.8087e-03 ,2.1269e-04 /) - kao(:, 5,13, 3) = (/ & - &6.4624e-02 ,5.6664e-02 ,4.8723e-02 ,4.0765e-02 ,3.2763e-02 ,2.4744e-02 , & - &1.6652e-02 ,8.4913e-03 ,3.0727e-04 /) - kao(:, 1, 1, 4) = (/ & - &5.7873e-05 ,1.6488e-04 ,2.0580e-04 ,2.2960e-04 ,2.3556e-04 ,2.2261e-04 , & - &2.0972e-04 ,1.9322e-04 ,1.3088e-04 /) - kao(:, 2, 1, 4) = (/ & - &6.6249e-05 ,1.9462e-04 ,2.4549e-04 ,2.7463e-04 ,2.7934e-04 ,2.6538e-04 , & - &2.3743e-04 ,2.0925e-04 ,1.7715e-04 /) - kao(:, 3, 1, 4) = (/ & - &7.5658e-05 ,2.2561e-04 ,2.8843e-04 ,3.1940e-04 ,3.2388e-04 ,3.1216e-04 , & - &2.9036e-04 ,2.7653e-04 ,2.3143e-04 /) - kao(:, 4, 1, 4) = (/ & - &8.5832e-05 ,2.6205e-04 ,3.3188e-04 ,3.6495e-04 ,3.7173e-04 ,3.6401e-04 , & - &3.4696e-04 ,3.4171e-04 ,2.9590e-04 /) - kao(:, 5, 1, 4) = (/ & - &9.6691e-05 ,2.9985e-04 ,3.7678e-04 ,4.1538e-04 ,4.2689e-04 ,4.2505e-04 , & - &4.1168e-04 ,4.0784e-04 ,3.7540e-04 /) - kao(:, 1, 2, 4) = (/ & - &8.0001e-05 ,1.7863e-04 ,2.1664e-04 ,2.3517e-04 ,2.4432e-04 ,2.3529e-04 , & - &2.0358e-04 ,1.5402e-04 ,1.1156e-04 /) - kao(:, 2, 2, 4) = (/ & - &9.2299e-05 ,2.0953e-04 ,2.5648e-04 ,2.8347e-04 ,2.9289e-04 ,2.8063e-04 , & - &2.4649e-04 ,1.9992e-04 ,1.5181e-04 /) - kao(:, 3, 2, 4) = (/ & - &1.0437e-04 ,2.4399e-04 ,3.0364e-04 ,3.3466e-04 ,3.4277e-04 ,3.2781e-04 , & - &2.9451e-04 ,2.4303e-04 ,2.0131e-04 /) - kao(:, 4, 2, 4) = (/ & - &1.1814e-04 ,2.8134e-04 ,3.5342e-04 ,3.8732e-04 ,3.9443e-04 ,3.8031e-04 , & - &3.4829e-04 ,2.8801e-04 ,2.6066e-04 /) - kao(:, 5, 2, 4) = (/ & - &1.3198e-04 ,3.2404e-04 ,4.0415e-04 ,4.4181e-04 ,4.5121e-04 ,4.4037e-04 , & - &4.0877e-04 ,3.5353e-04 ,3.3227e-04 /) - kao(:, 1, 3, 4) = (/ & - &1.4443e-04 ,2.3826e-04 ,2.7329e-04 ,2.8523e-04 ,2.8239e-04 ,2.6871e-04 , & - &2.4140e-04 ,1.7625e-04 ,9.1057e-05 /) - kao(:, 2, 3, 4) = (/ & - &1.6500e-04 ,2.7899e-04 ,3.2197e-04 ,3.3661e-04 ,3.4010e-04 ,3.2744e-04 , & - &2.9069e-04 ,2.1583e-04 ,1.2870e-04 /) - kao(:, 3, 3, 4) = (/ & - &1.8759e-04 ,3.2667e-04 ,3.7258e-04 ,3.9759e-04 ,4.0496e-04 ,3.8750e-04 , & - &3.4189e-04 ,2.6207e-04 ,1.7564e-04 /) - kao(:, 4, 3, 4) = (/ & - &2.1411e-04 ,3.7810e-04 ,4.3373e-04 ,4.6557e-04 ,4.7150e-04 ,4.5014e-04 , & - &3.9858e-04 ,3.1356e-04 ,2.3208e-04 /) - kao(:, 5, 3, 4) = (/ & - &2.3870e-04 ,4.2957e-04 ,5.0123e-04 ,5.3924e-04 ,5.3944e-04 ,5.1553e-04 , & - &4.6343e-04 ,3.7106e-04 ,2.9980e-04 /) - kao(:, 1, 4, 4) = (/ & - &2.6076e-04 ,3.4439e-04 ,3.6366e-04 ,3.6515e-04 ,3.5256e-04 ,3.2080e-04 , & - &2.7636e-04 ,2.0889e-04 ,8.2321e-05 /) - kao(:, 2, 4, 4) = (/ & - &2.9760e-04 ,4.0373e-04 ,4.3154e-04 ,4.3412e-04 ,4.1663e-04 ,3.8448e-04 , & - &3.3798e-04 ,2.5481e-04 ,1.1139e-04 /) - kao(:, 3, 4, 4) = (/ & - &3.4031e-04 ,4.7084e-04 ,5.0815e-04 ,5.1064e-04 ,4.9099e-04 ,4.5954e-04 , & - &4.0644e-04 ,3.0187e-04 ,1.5330e-04 /) - kao(:, 4, 4, 4) = (/ & - &3.8682e-04 ,5.4745e-04 ,5.9070e-04 ,5.9370e-04 ,5.7774e-04 ,5.4347e-04 , & - &4.7190e-04 ,3.5452e-04 ,2.0604e-04 /) - kao(:, 5, 4, 4) = (/ & - &4.3959e-04 ,6.2729e-04 ,6.7728e-04 ,6.8652e-04 ,6.7377e-04 ,6.2625e-04 , & - &5.4307e-04 ,4.1535e-04 ,2.7101e-04 /) - kao(:, 1, 5, 4) = (/ & - &4.3137e-04 ,4.9354e-04 ,4.9901e-04 ,4.7432e-04 ,4.3778e-04 ,3.8485e-04 , & - &3.1938e-04 ,2.2709e-04 ,7.3559e-05 /) - kao(:, 2, 5, 4) = (/ & - &4.9217e-04 ,5.7735e-04 ,5.8525e-04 ,5.6095e-04 ,5.2221e-04 ,4.6398e-04 , & - &3.8313e-04 ,2.8160e-04 ,1.0296e-04 /) - kao(:, 3, 5, 4) = (/ & - &5.6924e-04 ,6.7555e-04 ,6.8298e-04 ,6.6362e-04 ,6.1781e-04 ,5.4692e-04 , & - &4.5981e-04 ,3.4088e-04 ,1.4005e-04 /) - kao(:, 4, 5, 4) = (/ & - &6.5162e-04 ,7.8635e-04 ,7.9830e-04 ,7.7682e-04 ,7.2322e-04 ,6.4526e-04 , & - &5.4580e-04 ,4.0061e-04 ,1.8482e-04 /) - kao(:, 5, 5, 4) = (/ & - &7.5040e-04 ,9.0883e-04 ,9.2599e-04 ,8.9925e-04 ,8.3896e-04 ,7.5567e-04 , & - &6.3867e-04 ,4.6416e-04 ,2.4367e-04 /) - kao(:, 1, 6, 4) = (/ & - &6.5259e-04 ,6.7358e-04 ,6.6023e-04 ,6.1431e-04 ,5.5026e-04 ,4.6572e-04 , & - &3.6933e-04 ,2.4724e-04 ,6.3454e-05 /) - kao(:, 2, 6, 4) = (/ & - &7.5346e-04 ,7.9866e-04 ,7.7727e-04 ,7.2579e-04 ,6.4756e-04 ,5.5655e-04 , & - &4.4395e-04 ,3.0264e-04 ,8.7333e-05 /) - kao(:, 3, 6, 4) = (/ & - &8.8029e-04 ,9.4301e-04 ,9.1678e-04 ,8.5383e-04 ,7.6672e-04 ,6.6157e-04 , & - &5.3248e-04 ,3.6645e-04 ,1.2006e-04 /) - kao(:, 4, 6, 4) = (/ & - &1.0324e-03 ,1.1112e-03 ,1.0784e-03 ,1.0064e-03 ,9.0982e-04 ,7.8126e-04 , & - &6.2832e-04 ,4.4008e-04 ,1.6674e-04 /) - kao(:, 5, 6, 4) = (/ & - &1.1873e-03 ,1.2942e-03 ,1.2623e-03 ,1.1793e-03 ,1.0646e-03 ,9.2296e-04 , & - &7.3952e-04 ,5.1891e-04 ,2.2335e-04 /) - kao(:, 1, 7, 4) = (/ & - &1.0039e-03 ,9.6265e-04 ,8.9986e-04 ,8.1533e-04 ,7.1416e-04 ,5.9439e-04 , & - &4.5276e-04 ,2.8651e-04 ,6.5221e-05 /) - kao(:, 2, 7, 4) = (/ & - &1.1698e-03 ,1.1414e-03 ,1.0686e-03 ,9.8012e-04 ,8.6148e-04 ,7.1658e-04 , & - &5.4576e-04 ,3.5076e-04 ,8.8064e-05 /) - kao(:, 3, 7, 4) = (/ & - &1.3785e-03 ,1.3654e-03 ,1.2898e-03 ,1.1834e-03 ,1.0346e-03 ,8.5792e-04 , & - &6.6115e-04 ,4.2986e-04 ,1.2055e-04 /) - kao(:, 4, 7, 4) = (/ & - &1.6296e-03 ,1.6337e-03 ,1.5460e-03 ,1.4118e-03 ,1.2372e-03 ,1.0278e-03 , & - &7.9671e-04 ,5.1331e-04 ,1.5903e-04 /) - kao(:, 5, 7, 4) = (/ & - &1.9001e-03 ,1.9217e-03 ,1.8220e-03 ,1.6571e-03 ,1.4527e-03 ,1.2164e-03 , & - &9.4433e-04 ,6.1289e-04 ,2.0363e-04 /) - kao(:, 1, 8, 4) = (/ & - &1.8226e-03 ,1.6514e-03 ,1.4839e-03 ,1.2932e-03 ,1.0982e-03 ,8.8723e-04 , & - &6.5582e-04 ,3.8869e-04 ,7.0418e-05 /) - kao(:, 2, 8, 4) = (/ & - &2.1183e-03 ,1.9484e-03 ,1.7717e-03 ,1.5557e-03 ,1.3178e-03 ,1.0649e-03 , & - &7.9415e-04 ,4.7222e-04 ,9.8173e-05 /) - kao(:, 3, 8, 4) = (/ & - &2.5295e-03 ,2.3395e-03 ,2.1347e-03 ,1.8817e-03 ,1.6058e-03 ,1.3046e-03 , & - &9.6185e-04 ,5.7415e-04 ,1.2861e-04 /) - kao(:, 4, 8, 4) = (/ & - &3.0151e-03 ,2.8208e-03 ,2.5722e-03 ,2.2683e-03 ,1.9222e-03 ,1.5620e-03 , & - &1.1535e-03 ,7.0406e-04 ,1.7432e-04 /) - kao(:, 5, 8, 4) = (/ & - &3.5096e-03 ,3.3177e-03 ,3.0150e-03 ,2.6542e-03 ,2.2606e-03 ,1.8422e-03 , & - &1.3738e-03 ,8.5046e-04 ,2.3260e-04 /) - kao(:, 1, 9, 4) = (/ & - &7.9941e-03 ,7.0328e-03 ,6.0711e-03 ,5.1105e-03 ,4.1565e-03 ,3.2070e-03 , & - &2.2152e-03 ,1.1971e-03 ,7.9032e-05 /) - kao(:, 2, 9, 4) = (/ & - &8.9783e-03 ,7.9063e-03 ,6.8488e-03 ,5.7943e-03 ,4.7410e-03 ,3.6528e-03 , & - &2.5467e-03 ,1.3852e-03 ,1.1999e-04 /) - kao(:, 3, 9, 4) = (/ & - &1.0198e-02 ,9.0183e-03 ,7.8510e-03 ,6.6811e-03 ,5.4839e-03 ,4.2200e-03 , & - &2.9428e-03 ,1.6034e-03 ,1.6821e-04 /) - kao(:, 4, 9, 4) = (/ & - &1.1749e-02 ,1.0423e-02 ,9.0948e-03 ,7.7411e-03 ,6.3357e-03 ,4.8731e-03 , & - &3.3881e-03 ,1.8608e-03 ,2.4632e-04 /) - kao(:, 5, 9, 4) = (/ & - &1.3350e-02 ,1.1910e-02 ,1.0410e-02 ,8.8879e-03 ,7.2904e-03 ,5.6383e-03 , & - &3.9275e-03 ,2.1612e-03 ,3.3903e-04 /) - kao(:, 1,10, 4) = (/ & - &4.5801e-02 ,4.0109e-02 ,3.4395e-02 ,2.8682e-02 ,2.2984e-02 ,1.7267e-02 , & - &1.1579e-02 ,5.9235e-03 ,6.3484e-05 /) - kao(:, 2,10, 4) = (/ & - &4.9659e-02 ,4.3500e-02 ,3.7321e-02 ,3.1127e-02 ,2.4948e-02 ,1.8778e-02 , & - &1.2636e-02 ,6.5101e-03 ,9.5466e-05 /) - kao(:, 3,10, 4) = (/ & - &5.4357e-02 ,4.7634e-02 ,4.0874e-02 ,3.4140e-02 ,2.7418e-02 ,2.0676e-02 , & - &1.3967e-02 ,7.2134e-03 ,2.1246e-04 /) - kao(:, 4,10, 4) = (/ & - &6.0291e-02 ,5.2843e-02 ,4.5373e-02 ,3.7958e-02 ,3.0510e-02 ,2.3082e-02 , & - &1.5672e-02 ,8.0960e-03 ,3.5404e-04 /) - kao(:, 5,10, 4) = (/ & - &6.7661e-02 ,5.9365e-02 ,5.1042e-02 ,4.2745e-02 ,3.4451e-02 ,2.6105e-02 , & - &1.7693e-02 ,9.1211e-03 ,4.7192e-04 /) - kao(:, 1,11, 4) = (/ & - &9.0702e-02 ,7.9394e-02 ,6.8068e-02 ,5.6747e-02 ,4.5417e-02 ,3.4107e-02 , & - &2.2797e-02 ,1.1511e-02 ,7.5853e-05 /) - kao(:, 2,11, 4) = (/ & - &9.9244e-02 ,8.6879e-02 ,7.4483e-02 ,6.2100e-02 ,4.9720e-02 ,3.7362e-02 , & - &2.5008e-02 ,1.2672e-02 ,1.0256e-04 /) - kao(:, 3,11, 4) = (/ & - &1.0852e-01 ,9.5023e-02 ,8.1487e-02 ,6.7960e-02 ,5.4445e-02 ,4.0919e-02 , & - &2.7423e-02 ,1.3982e-02 ,1.6509e-04 /) - kao(:, 4,11, 4) = (/ & - &1.1956e-01 ,1.0470e-01 ,8.9828e-02 ,7.4940e-02 ,6.0117e-02 ,4.5252e-02 , & - &3.0437e-02 ,1.5543e-02 ,3.1661e-04 /) - kao(:, 5,11, 4) = (/ & - &1.3039e-01 ,1.1429e-01 ,9.8079e-02 ,8.1967e-02 ,6.5782e-02 ,4.9565e-02 , & - &3.3397e-02 ,1.7070e-02 ,5.0645e-04 /) - kao(:, 1,12, 4) = (/ & - &1.2021e-01 ,1.0519e-01 ,9.0195e-02 ,7.5171e-02 ,6.0154e-02 ,4.5148e-02 , & - &3.0151e-02 ,1.5167e-02 ,6.7632e-05 /) - kao(:, 2,12, 4) = (/ & - &1.3016e-01 ,1.1394e-01 ,9.7701e-02 ,8.1469e-02 ,6.5222e-02 ,4.8981e-02 , & - &3.2777e-02 ,1.6564e-02 ,9.6691e-05 /) - kao(:, 3,12, 4) = (/ & - &1.4257e-01 ,1.2479e-01 ,1.0706e-01 ,8.9271e-02 ,7.1459e-02 ,5.3715e-02 , & - &3.5967e-02 ,1.8266e-02 ,1.8650e-04 /) - kao(:, 4,12, 4) = (/ & - &1.5648e-01 ,1.3701e-01 ,1.1748e-01 ,9.8018e-02 ,7.8554e-02 ,5.9075e-02 , & - &3.9673e-02 ,2.0186e-02 ,3.5387e-04 /) - kao(:, 5,12, 4) = (/ & - &1.6740e-01 ,1.4658e-01 ,1.2570e-01 ,1.0496e-01 ,8.4156e-02 ,6.3336e-02 , & - &4.2553e-02 ,2.1604e-02 ,5.3320e-04 /) - kao(:, 1,13, 4) = (/ & - &1.2573e-01 ,1.1000e-01 ,9.4314e-02 ,7.8615e-02 ,6.2929e-02 ,4.7219e-02 , & - &3.1536e-02 ,1.5865e-02 ,5.0474e-05 /) - kao(:, 2,13, 4) = (/ & - &1.3569e-01 ,1.1873e-01 ,1.0180e-01 ,8.4863e-02 ,6.7917e-02 ,5.1000e-02 , & - &3.4100e-02 ,1.7211e-02 ,1.0366e-04 /) - kao(:, 3,13, 4) = (/ & - &1.4578e-01 ,1.2755e-01 ,1.0936e-01 ,9.1174e-02 ,7.3030e-02 ,5.4868e-02 , & - &3.6725e-02 ,1.8584e-02 ,2.4417e-04 /) - kao(:, 4,13, 4) = (/ & - &1.5300e-01 ,1.3393e-01 ,1.1485e-01 ,9.5797e-02 ,7.6755e-02 ,5.7691e-02 , & - &3.8700e-02 ,1.9588e-02 ,3.9463e-04 /) - kao(:, 5,13, 4) = (/ & - &1.5948e-01 ,1.3959e-01 ,1.1975e-01 ,9.9939e-02 ,8.0103e-02 ,6.0267e-02 , & - &4.0442e-02 ,2.0476e-02 ,5.2489e-04 /) - kao(:, 1, 1, 5) = (/ & - &3.0730e-04 ,4.0869e-04 ,4.2558e-04 ,4.1836e-04 ,3.9519e-04 ,3.6372e-04 , & - &2.8694e-04 ,2.6584e-04 ,2.1801e-04 /) - kao(:, 2, 1, 5) = (/ & - &3.2538e-04 ,4.3862e-04 ,4.6062e-04 ,4.5800e-04 ,4.4348e-04 ,4.2125e-04 , & - &3.6505e-04 ,3.2613e-04 ,2.9396e-04 /) - kao(:, 3, 1, 5) = (/ & - &3.3965e-04 ,4.6778e-04 ,5.0124e-04 ,5.0588e-04 ,5.0627e-04 ,4.8837e-04 , & - &4.4591e-04 ,3.9091e-04 ,3.8601e-04 /) - kao(:, 4, 1, 5) = (/ & - &3.5305e-04 ,5.0005e-04 ,5.4810e-04 ,5.6545e-04 ,5.7634e-04 ,5.6350e-04 , & - &5.3398e-04 ,4.9322e-04 ,4.9703e-04 /) - kao(:, 5, 1, 5) = (/ & - &3.6843e-04 ,5.3559e-04 ,6.0074e-04 ,6.3388e-04 ,6.5476e-04 ,6.5121e-04 , & - &6.3615e-04 ,6.1596e-04 ,6.2900e-04 /) - kao(:, 1, 2, 5) = (/ & - &4.2086e-04 ,5.1417e-04 ,5.1972e-04 ,4.9790e-04 ,4.6126e-04 ,4.1005e-04 , & - &3.3841e-04 ,2.3086e-04 ,1.8396e-04 /) - kao(:, 2, 2, 5) = (/ & - &4.4142e-04 ,5.4838e-04 ,5.5918e-04 ,5.4271e-04 ,5.1015e-04 ,4.6371e-04 , & - &3.9686e-04 ,2.8420e-04 ,2.4486e-04 /) - kao(:, 3, 2, 5) = (/ & - &4.6438e-04 ,5.8432e-04 ,6.0102e-04 ,5.9651e-04 ,5.6920e-04 ,5.3041e-04 , & - &4.5976e-04 ,3.7342e-04 ,3.2265e-04 /) - kao(:, 4, 2, 5) = (/ & - &4.8279e-04 ,6.2418e-04 ,6.4960e-04 ,6.5695e-04 ,6.3988e-04 ,6.0274e-04 , & - &5.3017e-04 ,4.6801e-04 ,4.1702e-04 /) - kao(:, 5, 2, 5) = (/ & - &4.9938e-04 ,6.6314e-04 ,7.0911e-04 ,7.2552e-04 ,7.1847e-04 ,6.8356e-04 , & - &6.1801e-04 ,5.7242e-04 ,5.3937e-04 /) - kao(:, 1, 3, 5) = (/ & - &7.5073e-04 ,8.1743e-04 ,7.9414e-04 ,7.4039e-04 ,6.6425e-04 ,5.6902e-04 , & - &4.5211e-04 ,2.9071e-04 ,1.7629e-04 /) - kao(:, 2, 3, 5) = (/ & - &7.9242e-04 ,8.7156e-04 ,8.5005e-04 ,8.0165e-04 ,7.1947e-04 ,6.2467e-04 , & - &5.0816e-04 ,3.5038e-04 ,2.3642e-04 /) - kao(:, 3, 3, 5) = (/ & - &8.3043e-04 ,9.2555e-04 ,9.1453e-04 ,8.6093e-04 ,7.8464e-04 ,6.9275e-04 , & - &5.7807e-04 ,4.1288e-04 ,3.0691e-04 /) - kao(:, 4, 3, 5) = (/ & - &8.6053e-04 ,9.7674e-04 ,9.7765e-04 ,9.2813e-04 ,8.5853e-04 ,7.7377e-04 , & - &6.5702e-04 ,4.8317e-04 ,3.9911e-04 /) - kao(:, 5, 3, 5) = (/ & - &8.9084e-04 ,1.0351e-03 ,1.0435e-03 ,1.0049e-03 ,9.4814e-04 ,8.6574e-04 , & - &7.4637e-04 ,5.6491e-04 ,5.0649e-04 /) - kao(:, 1, 4, 5) = (/ & - &1.3691e-03 ,1.3420e-03 ,1.2789e-03 ,1.1571e-03 ,1.0054e-03 ,8.3457e-04 , & - &6.3859e-04 ,4.0761e-04 ,1.5090e-04 /) - kao(:, 2, 4, 5) = (/ & - &1.4497e-03 ,1.4458e-03 ,1.3693e-03 ,1.2399e-03 ,1.0886e-03 ,9.0944e-04 , & - &6.9922e-04 ,4.5891e-04 ,2.1864e-04 /) - kao(:, 3, 4, 5) = (/ & - &1.5092e-03 ,1.5288e-03 ,1.4492e-03 ,1.3231e-03 ,1.1702e-03 ,9.8222e-04 , & - &7.7013e-04 ,5.2474e-04 ,3.0407e-04 /) - kao(:, 4, 4, 5) = (/ & - &1.5602e-03 ,1.6068e-03 ,1.5312e-03 ,1.4087e-03 ,1.2594e-03 ,1.0655e-03 , & - &8.5735e-04 ,5.9578e-04 ,3.9268e-04 /) - kao(:, 5, 4, 5) = (/ & - &1.6108e-03 ,1.6853e-03 ,1.6164e-03 ,1.5057e-03 ,1.3492e-03 ,1.1682e-03 , & - &9.6058e-04 ,6.7959e-04 ,4.9525e-04 /) - kao(:, 1, 5, 5) = (/ & - &2.3434e-03 ,2.1631e-03 ,1.9859e-03 ,1.7683e-03 ,1.5141e-03 ,1.2226e-03 , & - &8.9923e-04 ,5.4477e-04 ,1.2575e-04 /) - kao(:, 2, 5, 5) = (/ & - &2.4752e-03 ,2.3171e-03 ,2.1360e-03 ,1.9016e-03 ,1.6214e-03 ,1.3108e-03 , & - &9.7831e-04 ,5.9705e-04 ,1.8419e-04 /) - kao(:, 3, 5, 5) = (/ & - &2.5685e-03 ,2.4387e-03 ,2.2507e-03 ,2.0028e-03 ,1.7171e-03 ,1.4030e-03 , & - &1.0542e-03 ,6.5942e-04 ,2.6114e-04 /) - kao(:, 4, 5, 5) = (/ & - &2.6469e-03 ,2.5385e-03 ,2.3599e-03 ,2.1047e-03 ,1.8139e-03 ,1.4974e-03 , & - &1.1404e-03 ,7.3650e-04 ,3.6173e-04 /) - kao(:, 5, 5, 5) = (/ & - &2.7111e-03 ,2.6448e-03 ,2.4645e-03 ,2.2107e-03 ,1.9222e-03 ,1.6048e-03 , & - &1.2367e-03 ,8.2822e-04 ,4.7124e-04 /) - kao(:, 1, 6, 5) = (/ & - &3.6870e-03 ,3.3081e-03 ,2.9535e-03 ,2.5781e-03 ,2.1710e-03 ,1.7353e-03 , & - &1.2527e-03 ,7.1995e-04 ,1.0649e-04 /) - kao(:, 2, 6, 5) = (/ & - &3.8867e-03 ,3.5260e-03 ,3.1721e-03 ,2.7718e-03 ,2.3392e-03 ,1.8682e-03 , & - &1.3468e-03 ,7.8719e-04 ,1.5668e-04 /) - kao(:, 3, 6, 5) = (/ & - &4.0284e-03 ,3.6872e-03 ,3.3334e-03 ,2.9169e-03 ,2.4661e-03 ,1.9733e-03 , & - &1.4372e-03 ,8.5750e-04 ,2.1580e-04 /) - kao(:, 4, 6, 5) = (/ & - &4.1355e-03 ,3.8269e-03 ,3.4723e-03 ,3.0564e-03 ,2.5962e-03 ,2.0858e-03 , & - &1.5388e-03 ,9.2919e-04 ,2.8921e-04 /) - kao(:, 5, 6, 5) = (/ & - &4.2530e-03 ,3.9771e-03 ,3.6076e-03 ,3.1973e-03 ,2.7175e-03 ,2.1980e-03 , & - &1.6503e-03 ,1.0123e-03 ,3.9933e-04 /) - kao(:, 1, 7, 5) = (/ & - &5.9303e-03 ,5.2537e-03 ,4.6038e-03 ,3.9568e-03 ,3.2763e-03 ,2.5699e-03 , & - &1.8266e-03 ,1.0238e-03 ,9.0759e-05 /) - kao(:, 2, 7, 5) = (/ & - &6.2719e-03 ,5.5854e-03 ,4.9264e-03 ,4.2403e-03 ,3.5196e-03 ,2.7643e-03 , & - &1.9714e-03 ,1.1058e-03 ,1.3173e-04 /) - kao(:, 3, 7, 5) = (/ & - &6.5193e-03 ,5.8407e-03 ,5.1576e-03 ,4.4431e-03 ,3.6909e-03 ,2.9114e-03 , & - &2.0825e-03 ,1.1806e-03 ,1.8536e-04 /) - kao(:, 4, 7, 5) = (/ & - &6.6989e-03 ,6.0314e-03 ,5.3552e-03 ,4.6281e-03 ,3.8605e-03 ,3.0624e-03 , & - &2.1992e-03 ,1.2697e-03 ,2.6787e-04 /) - kao(:, 5, 7, 5) = (/ & - &6.9450e-03 ,6.3008e-03 ,5.6152e-03 ,4.8622e-03 ,4.0675e-03 ,3.2291e-03 , & - &2.3204e-03 ,1.3675e-03 ,3.5672e-04 /) - kao(:, 1, 8, 5) = (/ & - &1.1078e-02 ,9.7294e-03 ,8.3981e-03 ,7.0957e-03 ,5.7917e-03 ,4.4718e-03 , & - &3.1091e-03 ,1.6886e-03 ,1.1294e-04 /) - kao(:, 2, 8, 5) = (/ & - &1.1717e-02 ,1.0310e-02 ,8.9257e-03 ,7.5752e-03 ,6.2113e-03 ,4.8050e-03 , & - &3.3497e-03 ,1.8274e-03 ,1.4724e-04 /) - kao(:, 3, 8, 5) = (/ & - &1.2207e-02 ,1.0778e-02 ,9.3683e-03 ,7.9668e-03 ,6.5278e-03 ,5.0484e-03 , & - &3.5310e-03 ,1.9391e-03 ,2.0653e-04 /) - kao(:, 4, 8, 5) = (/ & - &1.2674e-02 ,1.1230e-02 ,9.8021e-03 ,8.3609e-03 ,6.8807e-03 ,5.3359e-03 , & - &3.7364e-03 ,2.0615e-03 ,2.8343e-04 /) - kao(:, 5, 8, 5) = (/ & - &1.3265e-02 ,1.1790e-02 ,1.0322e-02 ,8.8148e-03 ,7.2381e-03 ,5.6108e-03 , & - &3.9433e-03 ,2.1912e-03 ,3.7254e-04 /) - kao(:, 1, 9, 5) = (/ & - &3.7052e-02 ,3.2437e-02 ,2.7835e-02 ,2.3250e-02 ,1.8658e-02 ,1.4080e-02 , & - &9.5558e-03 ,4.9966e-03 ,1.9423e-04 /) - kao(:, 2, 9, 5) = (/ & - &3.9539e-02 ,3.4640e-02 ,2.9744e-02 ,2.4857e-02 ,1.9981e-02 ,1.5146e-02 , & - &1.0322e-02 ,5.4117e-03 ,2.4661e-04 /) - kao(:, 3, 9, 5) = (/ & - &4.1918e-02 ,3.6737e-02 ,3.1561e-02 ,2.6402e-02 ,2.1269e-02 ,1.6195e-02 , & - &1.1056e-02 ,5.7963e-03 ,3.2011e-04 /) - kao(:, 4, 9, 5) = (/ & - &4.4100e-02 ,3.8673e-02 ,3.3273e-02 ,2.7895e-02 ,2.2554e-02 ,1.7214e-02 , & - &1.1779e-02 ,6.1756e-03 ,4.1260e-04 /) - kao(:, 5, 9, 5) = (/ & - &4.6405e-02 ,4.0709e-02 ,3.5073e-02 ,2.9453e-02 ,2.3852e-02 ,1.8195e-02 , & - &1.2445e-02 ,6.5667e-03 ,5.2938e-04 /) - kao(:, 1,10, 5) = (/ & - &1.5260e-01 ,1.3356e-01 ,1.1452e-01 ,9.5486e-02 ,7.6440e-02 ,5.7459e-02 , & - &3.8411e-02 ,1.9334e-02 ,1.8781e-04 /) - kao(:, 2,10, 5) = (/ & - &1.6192e-01 ,1.4171e-01 ,1.2154e-01 ,1.0139e-01 ,8.1225e-02 ,6.1032e-02 , & - &4.0817e-02 ,2.0639e-02 ,3.0020e-04 /) - kao(:, 3,10, 5) = (/ & - &1.6952e-01 ,1.4839e-01 ,1.2731e-01 ,1.0623e-01 ,8.5090e-02 ,6.3990e-02 , & - &4.2882e-02 ,2.1810e-02 ,3.7223e-04 /) - kao(:, 4,10, 5) = (/ & - &1.7675e-01 ,1.5478e-01 ,1.3285e-01 ,1.1085e-01 ,8.8843e-02 ,6.6852e-02 , & - &4.4829e-02 ,2.2833e-02 ,4.6711e-04 /) - kao(:, 5,10, 5) = (/ & - &1.8239e-01 ,1.5968e-01 ,1.3704e-01 ,1.1434e-01 ,9.1701e-02 ,6.9058e-02 , & - &4.6429e-02 ,2.3733e-02 ,6.6086e-04 /) - kao(:, 1,11, 5) = (/ & - &2.7058e-01 ,2.3683e-01 ,2.0302e-01 ,1.6928e-01 ,1.3552e-01 ,1.0170e-01 , & - &6.7859e-02 ,3.4017e-02 ,1.5001e-04 /) - kao(:, 2,11, 5) = (/ & - &2.7834e-01 ,2.4359e-01 ,2.0889e-01 ,1.7416e-01 ,1.3942e-01 ,1.0462e-01 , & - &6.9857e-02 ,3.5072e-02 ,2.9190e-04 /) - kao(:, 3,11, 5) = (/ & - &2.8582e-01 ,2.5022e-01 ,2.1462e-01 ,1.7895e-01 ,1.4327e-01 ,1.0754e-01 , & - &7.1838e-02 ,3.6157e-02 ,3.9721e-04 /) - kao(:, 4,11, 5) = (/ & - &2.8898e-01 ,2.5301e-01 ,2.1700e-01 ,1.8097e-01 ,1.4487e-01 ,1.0884e-01 , & - &7.2766e-02 ,3.6699e-02 ,5.3597e-04 /) - kao(:, 5,11, 5) = (/ & - &2.9536e-01 ,2.5857e-01 ,2.2177e-01 ,1.8491e-01 ,1.4809e-01 ,1.1136e-01 , & - &7.4481e-02 ,3.7679e-02 ,7.1552e-04 /) - kao(:, 1,12, 5) = (/ & - &3.2683e-01 ,2.8605e-01 ,2.4525e-01 ,2.0441e-01 ,1.6361e-01 ,1.2282e-01 , & - &8.1893e-02 ,4.1016e-02 ,1.4076e-04 /) - kao(:, 2,12, 5) = (/ & - &3.3106e-01 ,2.8971e-01 ,2.4839e-01 ,2.0704e-01 ,1.6570e-01 ,1.2434e-01 , & - &8.2938e-02 ,4.1600e-02 ,2.8033e-04 /) - kao(:, 3,12, 5) = (/ & - &3.3746e-01 ,2.9539e-01 ,2.5326e-01 ,2.1111e-01 ,1.6904e-01 ,1.2682e-01 , & - &8.4697e-02 ,4.2481e-02 ,3.8254e-04 /) - kao(:, 4,12, 5) = (/ & - &3.4047e-01 ,2.9813e-01 ,2.5560e-01 ,2.1310e-01 ,1.7062e-01 ,1.2812e-01 , & - &8.5526e-02 ,4.3047e-02 ,5.1612e-04 /) - kao(:, 5,12, 5) = (/ & - &3.4523e-01 ,3.0226e-01 ,2.5919e-01 ,2.1613e-01 ,1.7310e-01 ,1.3003e-01 , & - &8.6933e-02 ,4.3928e-02 ,7.3625e-04 /) - kao(:, 1,13, 5) = (/ & - &2.9792e-01 ,2.6068e-01 ,2.2349e-01 ,1.8628e-01 ,1.4905e-01 ,1.1181e-01 , & - &7.4561e-02 ,3.7329e-02 ,1.5388e-04 /) - kao(:, 2,13, 5) = (/ & - &3.0081e-01 ,2.6326e-01 ,2.2566e-01 ,1.8811e-01 ,1.5050e-01 ,1.1291e-01 , & - &7.5310e-02 ,3.7768e-02 ,2.8934e-04 /) - kao(:, 3,13, 5) = (/ & - &3.0121e-01 ,2.6362e-01 ,2.2602e-01 ,1.8840e-01 ,1.5077e-01 ,1.1318e-01 , & - &7.5585e-02 ,3.7991e-02 ,3.3166e-04 /) - kao(:, 4,13, 5) = (/ & - &3.0495e-01 ,2.6698e-01 ,2.2888e-01 ,1.9082e-01 ,1.5277e-01 ,1.1476e-01 , & - &7.6636e-02 ,3.8673e-02 ,4.6400e-04 /) - kao(:, 5,13, 5) = (/ & - &3.1093e-01 ,2.7226e-01 ,2.3342e-01 ,1.9467e-01 ,1.5596e-01 ,1.1716e-01 , & - &7.8384e-02 ,3.9602e-02 ,6.9078e-04 /) - kao(:, 1, 1, 6) = (/ & - &6.7719e-04 ,7.1472e-04 ,7.1797e-04 ,6.8628e-04 ,6.3509e-04 ,5.7059e-04 , & - &5.0987e-04 ,3.4938e-04 ,4.0895e-04 /) - kao(:, 2, 1, 6) = (/ & - &6.7482e-04 ,7.4520e-04 ,7.5758e-04 ,7.4570e-04 ,7.0620e-04 ,6.5805e-04 , & - &6.1645e-04 ,4.7281e-04 ,5.4801e-04 /) - kao(:, 3, 1, 6) = (/ & - &6.7924e-04 ,7.8313e-04 ,8.0713e-04 ,8.1739e-04 ,7.9231e-04 ,7.6723e-04 , & - &7.3523e-04 ,6.1861e-04 ,7.0683e-04 /) - kao(:, 4, 1, 6) = (/ & - &6.8649e-04 ,8.2657e-04 ,8.7129e-04 ,9.0685e-04 ,8.9681e-04 ,8.9801e-04 , & - &8.6860e-04 ,7.7360e-04 ,8.9309e-04 /) - kao(:, 5, 1, 6) = (/ & - &6.9142e-04 ,8.7359e-04 ,9.5301e-04 ,1.0075e-03 ,1.0203e-03 ,1.0461e-03 , & - &1.0218e-03 ,9.5114e-04 ,1.0965e-03 /) - kao(:, 1, 2, 6) = (/ & - &9.6029e-04 ,9.5330e-04 ,9.1502e-04 ,8.4442e-04 ,7.4240e-04 ,6.3131e-04 , & - &5.2007e-04 ,3.7829e-04 ,3.5691e-04 /) - kao(:, 2, 2, 6) = (/ & - &9.5985e-04 ,9.8942e-04 ,9.6445e-04 ,8.9433e-04 ,8.0300e-04 ,7.0134e-04 , & - &6.1315e-04 ,5.0159e-04 ,4.8663e-04 /) - kao(:, 3, 2, 6) = (/ & - &9.6320e-04 ,1.0310e-03 ,1.0191e-03 ,9.5205e-04 ,8.7761e-04 ,7.9453e-04 , & - &7.3253e-04 ,6.2365e-04 ,6.4547e-04 /) - kao(:, 4, 2, 6) = (/ & - &9.7399e-04 ,1.0755e-03 ,1.0817e-03 ,1.0333e-03 ,9.7218e-04 ,9.1068e-04 , & - &8.7686e-04 ,7.5862e-04 ,8.3212e-04 /) - kao(:, 5, 2, 6) = (/ & - &9.8138e-04 ,1.1324e-03 ,1.1507e-03 ,1.1333e-03 ,1.0937e-03 ,1.0509e-03 , & - &1.0310e-03 ,9.0559e-04 ,1.0246e-03 /) - kao(:, 1, 3, 6) = (/ & - &1.8119e-03 ,1.6817e-03 ,1.5499e-03 ,1.3740e-03 ,1.1743e-03 ,9.5554e-04 , & - &7.1656e-04 ,4.7034e-04 ,2.9777e-04 /) - kao(:, 2, 3, 6) = (/ & - &1.8107e-03 ,1.7310e-03 ,1.6189e-03 ,1.4391e-03 ,1.2510e-03 ,1.0204e-03 , & - &7.8709e-04 ,5.5271e-04 ,4.0666e-04 /) - kao(:, 3, 3, 6) = (/ & - &1.8217e-03 ,1.7823e-03 ,1.6795e-03 ,1.5235e-03 ,1.3331e-03 ,1.1033e-03 , & - &8.7727e-04 ,6.6343e-04 ,5.5347e-04 /) - kao(:, 4, 3, 6) = (/ & - &1.8325e-03 ,1.8451e-03 ,1.7507e-03 ,1.6178e-03 ,1.4289e-03 ,1.2102e-03 , & - &9.9121e-04 ,7.9875e-04 ,7.2923e-04 /) - kao(:, 5, 3, 6) = (/ & - &1.8499e-03 ,1.9065e-03 ,1.8500e-03 ,1.7218e-03 ,1.5483e-03 ,1.3411e-03 , & - &1.1326e-03 ,9.4539e-04 ,9.3725e-04 /) - kao(:, 1, 4, 6) = (/ & - &3.4114e-03 ,3.0491e-03 ,2.7140e-03 ,2.3662e-03 ,1.9783e-03 ,1.5658e-03 , & - &1.1300e-03 ,6.5946e-04 ,2.6201e-04 /) - kao(:, 2, 4, 6) = (/ & - &3.4376e-03 ,3.0989e-03 ,2.7962e-03 ,2.4537e-03 ,2.0666e-03 ,1.6491e-03 , & - &1.2098e-03 ,7.2995e-04 ,3.5441e-04 /) - kao(:, 3, 4, 6) = (/ & - &3.4485e-03 ,3.1733e-03 ,2.8848e-03 ,2.5421e-03 ,2.1715e-03 ,1.7580e-03 , & - &1.3056e-03 ,8.1745e-04 ,4.7057e-04 /) - kao(:, 4, 4, 6) = (/ & - &3.4770e-03 ,3.2632e-03 ,3.0027e-03 ,2.6508e-03 ,2.2906e-03 ,1.8839e-03 , & - &1.4242e-03 ,9.3156e-04 ,6.1906e-04 /) - kao(:, 5, 4, 6) = (/ & - &3.5195e-03 ,3.3661e-03 ,3.1261e-03 ,2.7792e-03 ,2.4277e-03 ,2.0261e-03 , & - &1.5634e-03 ,1.0703e-03 ,8.1465e-04 /) - kao(:, 1, 5, 6) = (/ & - &5.7502e-03 ,5.0807e-03 ,4.4217e-03 ,3.7897e-03 ,3.1287e-03 ,2.4547e-03 , & - &1.7341e-03 ,9.6239e-04 ,2.4204e-04 /) - kao(:, 2, 5, 6) = (/ & - &5.7894e-03 ,5.1466e-03 ,4.5231e-03 ,3.9026e-03 ,3.2431e-03 ,2.5561e-03 , & - &1.8209e-03 ,1.0387e-03 ,3.3073e-04 /) - kao(:, 3, 5, 6) = (/ & - &5.8510e-03 ,5.2408e-03 ,4.6666e-03 ,4.0479e-03 ,3.3863e-03 ,2.6690e-03 , & - &1.9231e-03 ,1.1318e-03 ,4.4023e-04 /) - kao(:, 4, 5, 6) = (/ & - &5.9488e-03 ,5.3756e-03 ,4.8127e-03 ,4.2175e-03 ,3.5437e-03 ,2.8108e-03 , & - &2.0541e-03 ,1.2413e-03 ,5.7017e-04 /) - kao(:, 5, 5, 6) = (/ & - &6.0632e-03 ,5.5286e-03 ,4.9850e-03 ,4.3894e-03 ,3.7125e-03 ,2.9737e-03 , & - &2.2202e-03 ,1.3784e-03 ,7.3804e-04 /) - kao(:, 1, 6, 6) = (/ & - &9.0144e-03 ,7.9241e-03 ,6.8389e-03 ,5.7807e-03 ,4.7224e-03 ,3.6386e-03 , & - &2.5487e-03 ,1.3755e-03 ,2.0268e-04 /) - kao(:, 2, 6, 6) = (/ & - &9.0405e-03 ,7.9650e-03 ,6.9105e-03 ,5.8762e-03 ,4.8286e-03 ,3.7488e-03 , & - &2.6372e-03 ,1.4443e-03 ,2.8152e-04 /) - kao(:, 3, 6, 6) = (/ & - &9.2000e-03 ,8.1570e-03 ,7.1089e-03 ,6.0851e-03 ,5.0081e-03 ,3.9064e-03 , & - &2.7603e-03 ,1.5330e-03 ,3.9833e-04 /) - kao(:, 4, 6, 6) = (/ & - &9.3676e-03 ,8.3397e-03 ,7.3293e-03 ,6.2884e-03 ,5.2172e-03 ,4.0838e-03 , & - &2.8967e-03 ,1.6576e-03 ,5.5504e-04 /) - kao(:, 5, 6, 6) = (/ & - &9.5404e-03 ,8.5459e-03 ,7.5717e-03 ,6.5076e-03 ,5.4312e-03 ,4.2828e-03 , & - &3.0616e-03 ,1.8170e-03 ,7.2861e-04 /) - kao(:, 1, 7, 6) = (/ & - &1.4907e-02 ,1.3059e-02 ,1.1219e-02 ,9.3912e-03 ,7.6074e-03 ,5.8006e-03 , & - &3.9637e-03 ,2.0976e-03 ,1.8870e-04 /) - kao(:, 2, 7, 6) = (/ & - &1.4960e-02 ,1.3123e-02 ,1.1304e-02 ,9.5034e-03 ,7.7189e-03 ,5.9029e-03 , & - &4.0714e-03 ,2.1752e-03 ,2.5278e-04 /) - kao(:, 3, 7, 6) = (/ & - &1.5077e-02 ,1.3255e-02 ,1.1479e-02 ,9.6943e-03 ,7.9204e-03 ,6.0871e-03 , & - &4.2229e-03 ,2.2784e-03 ,3.4866e-04 /) - kao(:, 4, 7, 6) = (/ & - &1.5413e-02 ,1.3606e-02 ,1.1805e-02 ,1.0016e-02 ,8.1764e-03 ,6.3063e-03 , & - &4.3884e-03 ,2.3906e-03 ,4.7884e-04 /) - kao(:, 5, 7, 6) = (/ & - &1.5640e-02 ,1.3874e-02 ,1.2089e-02 ,1.0323e-02 ,8.4660e-03 ,6.5392e-03 , & - &4.5932e-03 ,2.5421e-03 ,6.8588e-04 /) - kao(:, 1, 8, 6) = (/ & - &2.8559e-02 ,2.4997e-02 ,2.1448e-02 ,1.7898e-02 ,1.4352e-02 ,1.0840e-02 , & - &7.3538e-03 ,3.7976e-03 ,1.9487e-04 /) - kao(:, 2, 8, 6) = (/ & - &2.8738e-02 ,2.5172e-02 ,2.1609e-02 ,1.8050e-02 ,1.4521e-02 ,1.1028e-02 , & - &7.4791e-03 ,3.8937e-03 ,2.5597e-04 /) - kao(:, 3, 8, 6) = (/ & - &2.9088e-02 ,2.5505e-02 ,2.1920e-02 ,1.8369e-02 ,1.4844e-02 ,1.1305e-02 , & - &7.7085e-03 ,4.0334e-03 ,3.3647e-04 /) - kao(:, 4, 8, 6) = (/ & - &2.9471e-02 ,2.5866e-02 ,2.2282e-02 ,1.8723e-02 ,1.5191e-02 ,1.1604e-02 , & - &7.9478e-03 ,4.2092e-03 ,4.5107e-04 /) - kao(:, 5, 8, 6) = (/ & - &2.9965e-02 ,2.6334e-02 ,2.2760e-02 ,1.9185e-02 ,1.5605e-02 ,1.1940e-02 , & - &8.2260e-03 ,4.4031e-03 ,6.3668e-04 /) - kao(:, 1, 9, 6) = (/ & - &1.0333e-01 ,9.0409e-02 ,7.7506e-02 ,6.4597e-02 ,5.1717e-02 ,3.8817e-02 , & - &2.5905e-02 ,1.3064e-02 ,2.4712e-04 /) - kao(:, 2, 9, 6) = (/ & - &1.0373e-01 ,9.0771e-02 ,7.7825e-02 ,6.4896e-02 ,5.1961e-02 ,3.9016e-02 , & - &2.6085e-02 ,1.3262e-02 ,3.3832e-04 /) - kao(:, 3, 9, 6) = (/ & - &1.0493e-01 ,9.1818e-02 ,7.8786e-02 ,6.5718e-02 ,5.2648e-02 ,3.9574e-02 , & - &2.6569e-02 ,1.3576e-02 ,4.4601e-04 /) - kao(:, 4, 9, 6) = (/ & - &1.0587e-01 ,9.2691e-02 ,7.9566e-02 ,6.6407e-02 ,5.3246e-02 ,4.0117e-02 , & - &2.7043e-02 ,1.3891e-02 ,5.4826e-04 /) - kao(:, 5, 9, 6) = (/ & - &1.0759e-01 ,9.4255e-02 ,8.0925e-02 ,6.7610e-02 ,5.4300e-02 ,4.1036e-02 , & - &2.7792e-02 ,1.4265e-02 ,6.4886e-04 /) - kao(:, 1,10, 6) = (/ & - &3.9062e-01 ,3.4177e-01 ,2.9293e-01 ,2.4412e-01 ,1.9530e-01 ,1.4643e-01 , & - &9.7639e-02 ,4.8848e-02 ,1.4547e-04 /) - kao(:, 2,10, 6) = (/ & - &3.9313e-01 ,3.4397e-01 ,2.9486e-01 ,2.4569e-01 ,1.9653e-01 ,1.4745e-01 , & - &9.8352e-02 ,4.9236e-02 ,2.6944e-04 /) - kao(:, 3,10, 6) = (/ & - &3.9636e-01 ,3.4679e-01 ,2.9726e-01 ,2.4770e-01 ,1.9822e-01 ,1.4872e-01 , & - &9.9231e-02 ,4.9728e-02 ,4.9543e-04 /) - kao(:, 4,10, 6) = (/ & - &4.0190e-01 ,3.5169e-01 ,3.0137e-01 ,2.5124e-01 ,2.0112e-01 ,1.5095e-01 , & - &1.0079e-01 ,5.0721e-02 ,7.4715e-04 /) - kao(:, 5,10, 6) = (/ & - &4.1118e-01 ,3.5981e-01 ,3.0844e-01 ,2.5722e-01 ,2.0591e-01 ,1.5462e-01 , & - &1.0334e-01 ,5.2226e-02 ,1.0737e-03 /) - kao(:, 1,11, 6) = (/ & - &5.2843e-01 ,4.6229e-01 ,3.9627e-01 ,3.3017e-01 ,2.6411e-01 ,1.9813e-01 , & - &1.3214e-01 ,6.6158e-02 ,1.5345e-04 /) - kao(:, 2,11, 6) = (/ & - &5.2350e-01 ,4.5807e-01 ,3.9260e-01 ,3.2718e-01 ,2.6177e-01 ,1.9641e-01 , & - &1.3106e-01 ,6.5668e-02 ,2.3814e-04 /) - kao(:, 3,11, 6) = (/ & - &5.2048e-01 ,4.5536e-01 ,3.9029e-01 ,3.2525e-01 ,2.6032e-01 ,1.9539e-01 , & - &1.3041e-01 ,6.5403e-02 ,4.8642e-04 /) - kao(:, 4,11, 6) = (/ & - &5.2442e-01 ,4.5878e-01 ,3.9329e-01 ,3.2791e-01 ,2.6245e-01 ,1.9699e-01 , & - &1.3158e-01 ,6.6140e-02 ,7.7713e-04 /) - kao(:, 5,11, 6) = (/ & - &5.3645e-01 ,4.6936e-01 ,4.0243e-01 ,3.3557e-01 ,2.6862e-01 ,2.0159e-01 , & - &1.3470e-01 ,6.7828e-02 ,1.0827e-03 /) - kao(:, 1,12, 6) = (/ & - &5.9047e-01 ,5.1664e-01 ,4.4278e-01 ,3.6903e-01 ,2.9521e-01 ,2.2135e-01 , & - &1.4776e-01 ,7.3993e-02 ,1.4236e-04 /) - kao(:, 2,12, 6) = (/ & - &5.8585e-01 ,5.1270e-01 ,4.3944e-01 ,3.6623e-01 ,2.9300e-01 ,2.1996e-01 , & - &1.4676e-01 ,7.3476e-02 ,2.2023e-04 /) - kao(:, 3,12, 6) = (/ & - &5.7367e-01 ,5.0194e-01 ,4.3031e-01 ,3.5876e-01 ,2.8718e-01 ,2.1559e-01 , & - &1.4380e-01 ,7.2153e-02 ,4.4743e-04 /) - kao(:, 4,12, 6) = (/ & - &5.7511e-01 ,5.0312e-01 ,4.3146e-01 ,3.5985e-01 ,2.8795e-01 ,2.1609e-01 , & - &1.4436e-01 ,7.2515e-02 ,8.0036e-04 /) - kao(:, 5,12, 6) = (/ & - &5.8792e-01 ,5.1441e-01 ,4.4120e-01 ,3.6789e-01 ,2.9440e-01 ,2.2104e-01 , & - &1.4769e-01 ,7.4288e-02 ,1.0818e-03 /) - kao(:, 1,13, 6) = (/ & - &5.2587e-01 ,4.6012e-01 ,3.9434e-01 ,3.2864e-01 ,2.6295e-01 ,1.9729e-01 , & - &1.3161e-01 ,6.5880e-02 ,1.1855e-04 /) - kao(:, 2,13, 6) = (/ & - &5.1655e-01 ,4.5203e-01 ,3.8739e-01 ,3.2291e-01 ,2.5848e-01 ,1.9395e-01 , & - &1.2940e-01 ,6.4811e-02 ,1.8738e-04 /) - kao(:, 3,13, 6) = (/ & - &5.1454e-01 ,4.5033e-01 ,3.8607e-01 ,3.2190e-01 ,2.5767e-01 ,1.9330e-01 , & - &1.2903e-01 ,6.4719e-02 ,4.6442e-04 /) - kao(:, 4,13, 6) = (/ & - &5.2306e-01 ,4.5763e-01 ,3.9250e-01 ,3.2722e-01 ,2.6190e-01 ,1.9661e-01 , & - &1.3127e-01 ,6.5873e-02 ,7.3146e-04 /) - kao(:, 5,13, 6) = (/ & - &5.3732e-01 ,4.7035e-01 ,4.0337e-01 ,3.3620e-01 ,2.6904e-01 ,2.0206e-01 , & - &1.3501e-01 ,6.8074e-02 ,1.0136e-03 /) - kao(:, 1, 1, 7) = (/ & - &1.2103e-03 ,1.2175e-03 ,1.1935e-03 ,1.1549e-03 ,1.0791e-03 ,9.5598e-04 , & - &8.1255e-04 ,6.1193e-04 ,6.2180e-04 /) - kao(:, 2, 1, 7) = (/ & - &1.2178e-03 ,1.2781e-03 ,1.2880e-03 ,1.2578e-03 ,1.2013e-03 ,1.0898e-03 , & - &9.4696e-04 ,8.3333e-04 ,8.1545e-04 /) - kao(:, 3, 1, 7) = (/ & - &1.2282e-03 ,1.3405e-03 ,1.3881e-03 ,1.3716e-03 ,1.3394e-03 ,1.2381e-03 , & - &1.1125e-03 ,1.0711e-03 ,1.0876e-03 /) - kao(:, 4, 1, 7) = (/ & - &1.2403e-03 ,1.4084e-03 ,1.4922e-03 ,1.5029e-03 ,1.4913e-03 ,1.4226e-03 , & - &1.3116e-03 ,1.3637e-03 ,1.4095e-03 /) - kao(:, 5, 1, 7) = (/ & - &1.2587e-03 ,1.4782e-03 ,1.5894e-03 ,1.6533e-03 ,1.6739e-03 ,1.6196e-03 , & - &1.5433e-03 ,1.7053e-03 ,1.8020e-03 /) - kao(:, 1, 2, 7) = (/ & - &1.5958e-03 ,1.5396e-03 ,1.4781e-03 ,1.3976e-03 ,1.2942e-03 ,1.1273e-03 , & - &9.3307e-04 ,7.0021e-04 ,6.0904e-04 /) - kao(:, 2, 2, 7) = (/ & - &1.6176e-03 ,1.6176e-03 ,1.5750e-03 ,1.5193e-03 ,1.4296e-03 ,1.2725e-03 , & - &1.0674e-03 ,8.4851e-04 ,7.7411e-04 /) - kao(:, 3, 2, 7) = (/ & - &1.6471e-03 ,1.6851e-03 ,1.6807e-03 ,1.6583e-03 ,1.5791e-03 ,1.4314e-03 , & - &1.2293e-03 ,1.0317e-03 ,9.9584e-04 /) - kao(:, 4, 2, 7) = (/ & - &1.6650e-03 ,1.7627e-03 ,1.7970e-03 ,1.8046e-03 ,1.7334e-03 ,1.6113e-03 , & - &1.4228e-03 ,1.2451e-03 ,1.2394e-03 /) - kao(:, 5, 2, 7) = (/ & - &1.7122e-03 ,1.8558e-03 ,1.9287e-03 ,1.9533e-03 ,1.9037e-03 ,1.8293e-03 , & - &1.6473e-03 ,1.5087e-03 ,1.5795e-03 /) - kao(:, 1, 3, 7) = (/ & - &2.9351e-03 ,2.6534e-03 ,2.4324e-03 ,2.1954e-03 ,1.9158e-03 ,1.6076e-03 , & - &1.2520e-03 ,8.5789e-04 ,6.1375e-04 /) - kao(:, 2, 3, 7) = (/ & - &2.9633e-03 ,2.7281e-03 ,2.5348e-03 ,2.3132e-03 ,2.0567e-03 ,1.7614e-03 , & - &1.4143e-03 ,9.9890e-04 ,7.9742e-04 /) - kao(:, 3, 3, 7) = (/ & - &3.0018e-03 ,2.8266e-03 ,2.6658e-03 ,2.4521e-03 ,2.2182e-03 ,1.9505e-03 , & - &1.5883e-03 ,1.1664e-03 ,9.9661e-04 /) - kao(:, 4, 3, 7) = (/ & - &3.0730e-03 ,2.9520e-03 ,2.8043e-03 ,2.6204e-03 ,2.4182e-03 ,2.1521e-03 , & - &1.7967e-03 ,1.3650e-03 ,1.2315e-03 /) - kao(:, 5, 3, 7) = (/ & - &3.1816e-03 ,3.1107e-03 ,2.9552e-03 ,2.8080e-03 ,2.6346e-03 ,2.3544e-03 , & - &2.0373e-03 ,1.6039e-03 ,1.5090e-03 /) - kao(:, 1, 4, 7) = (/ & - &5.7269e-03 ,5.0918e-03 ,4.4466e-03 ,3.8641e-03 ,3.2580e-03 ,2.6083e-03 , & - &1.8965e-03 ,1.1416e-03 ,5.7204e-04 /) - kao(:, 2, 4, 7) = (/ & - &5.7492e-03 ,5.1587e-03 ,4.5741e-03 ,4.0239e-03 ,3.4230e-03 ,2.7638e-03 , & - &2.0485e-03 ,1.2804e-03 ,7.6092e-04 /) - kao(:, 3, 4, 7) = (/ & - &5.8525e-03 ,5.2748e-03 ,4.7562e-03 ,4.2073e-03 ,3.6092e-03 ,2.9384e-03 , & - &2.2265e-03 ,1.4580e-03 ,9.9771e-04 /) - kao(:, 4, 4, 7) = (/ & - &5.9797e-03 ,5.4326e-03 ,4.9495e-03 ,4.4248e-03 ,3.8014e-03 ,3.1433e-03 , & - &2.4307e-03 ,1.6612e-03 ,1.3149e-03 /) - kao(:, 5, 4, 7) = (/ & - &6.1647e-03 ,5.6540e-03 ,5.1948e-03 ,4.6848e-03 ,4.0444e-03 ,3.3860e-03 , & - &2.6695e-03 ,1.9106e-03 ,1.6620e-03 /) - kao(:, 1, 5, 7) = (/ & - &1.0220e-02 ,9.0008e-03 ,7.7868e-03 ,6.5817e-03 ,5.4248e-03 ,4.2290e-03 , & - &3.0009e-03 ,1.6787e-03 ,5.3957e-04 /) - kao(:, 2, 5, 7) = (/ & - &1.0367e-02 ,9.1668e-03 ,7.9693e-03 ,6.7850e-03 ,5.6408e-03 ,4.4280e-03 , & - &3.1863e-03 ,1.8183e-03 ,7.0339e-04 /) - kao(:, 3, 5, 7) = (/ & - &1.0581e-02 ,9.4102e-03 ,8.2049e-03 ,7.0786e-03 ,5.9001e-03 ,4.6839e-03 , & - &3.3914e-03 ,1.9878e-03 ,9.2591e-04 /) - kao(:, 4, 5, 7) = (/ & - &1.0809e-02 ,9.6775e-03 ,8.5132e-03 ,7.3701e-03 ,6.2042e-03 ,4.9938e-03 , & - &3.6238e-03 ,2.1871e-03 ,1.1943e-03 /) - kao(:, 5, 5, 7) = (/ & - &1.1112e-02 ,1.0026e-02 ,8.9250e-03 ,7.7808e-03 ,6.5932e-03 ,5.3151e-03 , & - &3.9019e-03 ,2.4156e-03 ,1.5529e-03 /) - kao(:, 1, 6, 7) = (/ & - &1.6720e-02 ,1.4665e-02 ,1.2615e-02 ,1.0575e-02 ,8.5627e-03 ,6.5744e-03 , & - &4.5286e-03 ,2.4830e-03 ,5.6458e-04 /) - kao(:, 2, 6, 7) = (/ & - &1.7104e-02 ,1.5034e-02 ,1.2975e-02 ,1.0925e-02 ,8.9009e-03 ,6.8822e-03 , & - &4.7999e-03 ,2.6619e-03 ,7.2679e-04 /) - kao(:, 3, 6, 7) = (/ & - &1.7534e-02 ,1.5438e-02 ,1.3395e-02 ,1.1323e-02 ,9.3166e-03 ,7.2349e-03 , & - &5.0972e-03 ,2.8734e-03 ,9.0147e-04 /) - kao(:, 4, 6, 7) = (/ & - &1.8091e-02 ,1.6011e-02 ,1.3940e-02 ,1.1869e-02 ,9.7728e-03 ,7.6440e-03 , & - &5.4515e-03 ,3.0818e-03 ,1.1288e-03 /) - kao(:, 5, 6, 7) = (/ & - &1.8583e-02 ,1.6530e-02 ,1.4432e-02 ,1.2438e-02 ,1.0309e-02 ,8.1409e-03 , & - &5.8462e-03 ,3.3346e-03 ,1.4293e-03 /) - kao(:, 1, 7, 7) = (/ & - &2.7982e-02 ,2.4501e-02 ,2.1043e-02 ,1.7577e-02 ,1.4110e-02 ,1.0697e-02 , & - &7.3114e-03 ,3.8393e-03 ,5.1721e-04 /) - kao(:, 2, 7, 7) = (/ & - &2.8730e-02 ,2.5189e-02 ,2.1653e-02 ,1.8120e-02 ,1.4619e-02 ,1.1160e-02 , & - &7.6475e-03 ,4.0900e-03 ,6.8268e-04 /) - kao(:, 3, 7, 7) = (/ & - &2.9602e-02 ,2.5984e-02 ,2.2367e-02 ,1.8790e-02 ,1.5226e-02 ,1.1688e-02 , & - &8.0684e-03 ,4.3672e-03 ,8.7865e-04 /) - kao(:, 4, 7, 7) = (/ & - &3.0383e-02 ,2.6722e-02 ,2.3100e-02 ,1.9474e-02 ,1.5890e-02 ,1.2270e-02 , & - &8.5486e-03 ,4.6828e-03 ,1.1058e-03 /) - kao(:, 5, 7, 7) = (/ & - &3.1027e-02 ,2.7319e-02 ,2.3722e-02 ,2.0052e-02 ,1.6464e-02 ,1.2803e-02 , & - &9.0257e-03 ,5.0413e-03 ,1.3701e-03 /) - kao(:, 1, 8, 7) = (/ & - &5.4825e-02 ,4.7970e-02 ,4.1147e-02 ,3.4322e-02 ,2.7487e-02 ,2.0656e-02 , & - &1.3854e-02 ,7.1281e-03 ,4.3340e-04 /) - kao(:, 2, 8, 7) = (/ & - &5.6231e-02 ,4.9217e-02 ,4.2253e-02 ,3.5263e-02 ,2.8269e-02 ,2.1292e-02 , & - &1.4434e-02 ,7.4660e-03 ,6.0870e-04 /) - kao(:, 3, 8, 7) = (/ & - &5.7926e-02 ,5.0738e-02 ,4.3579e-02 ,3.6411e-02 ,2.9254e-02 ,2.2161e-02 , & - &1.5102e-02 ,7.9134e-03 ,8.5563e-04 /) - kao(:, 4, 8, 7) = (/ & - &5.9329e-02 ,5.2017e-02 ,4.4709e-02 ,3.7445e-02 ,3.0174e-02 ,2.2939e-02 , & - &1.5732e-02 ,8.3409e-03 ,1.1069e-03 /) - kao(:, 5, 8, 7) = (/ & - &6.0706e-02 ,5.3284e-02 ,4.5885e-02 ,3.8526e-02 ,3.1172e-02 ,2.3870e-02 , & - &1.6429e-02 ,8.7694e-03 ,1.3835e-03 /) - kao(:, 1, 9, 7) = (/ & - &2.0429e-01 ,1.7875e-01 ,1.5322e-01 ,1.2768e-01 ,1.0216e-01 ,7.6684e-02 , & - &5.1143e-02 ,2.5629e-02 ,2.9263e-04 /) - kao(:, 2, 9, 7) = (/ & - &2.0990e-01 ,1.8367e-01 ,1.5743e-01 ,1.3122e-01 ,1.0506e-01 ,7.8849e-02 , & - &5.2652e-02 ,2.6459e-02 ,5.6921e-04 /) - kao(:, 3, 9, 7) = (/ & - &2.1338e-01 ,1.8672e-01 ,1.6006e-01 ,1.3349e-01 ,1.0689e-01 ,8.0285e-02 , & - &5.3664e-02 ,2.7200e-02 ,9.3758e-04 /) - kao(:, 4, 9, 7) = (/ & - &2.2002e-01 ,1.9252e-01 ,1.6512e-01 ,1.3776e-01 ,1.1035e-01 ,8.2930e-02 , & - &5.5562e-02 ,2.8342e-02 ,1.3055e-03 /) - kao(:, 5, 9, 7) = (/ & - &2.2506e-01 ,1.9692e-01 ,1.6901e-01 ,1.4099e-01 ,1.1303e-01 ,8.5078e-02 , & - &5.7190e-02 ,2.9461e-02 ,1.8874e-03 /) - kao(:, 1,10, 7) = (/ & - &8.3776e-01 ,7.3310e-01 ,6.2841e-01 ,5.2361e-01 ,4.1890e-01 ,3.1415e-01 , & - &2.0945e-01 ,1.0479e-01 ,1.9258e-04 /) - kao(:, 2,10, 7) = (/ & - &8.5667e-01 ,7.4964e-01 ,6.4250e-01 ,5.3547e-01 ,4.2837e-01 ,3.2129e-01 , & - &2.1421e-01 ,1.0723e-01 ,3.0052e-04 /) - kao(:, 3,10, 7) = (/ & - &8.7378e-01 ,7.6452e-01 ,6.5535e-01 ,5.4608e-01 ,4.3691e-01 ,3.2776e-01 , & - &2.1870e-01 ,1.0952e-01 ,5.4766e-04 /) - kao(:, 4,10, 7) = (/ & - &8.9911e-01 ,7.8666e-01 ,6.7423e-01 ,5.6186e-01 ,4.4961e-01 ,3.3744e-01 , & - &2.2515e-01 ,1.1291e-01 ,1.0571e-03 /) - kao(:, 5,10, 7) = (/ & - &9.2543e-01 ,8.0983e-01 ,6.9418e-01 ,5.7864e-01 ,4.6314e-01 ,3.4767e-01 , & - &2.3212e-01 ,1.1658e-01 ,1.4779e-03 /) - kao(:, 1,11, 7) = (/ & - &1.1170e+00 ,9.7735e-01 ,8.3780e-01 ,6.9827e-01 ,5.5860e-01 ,4.1894e-01 , & - &2.7927e-01 ,1.3969e-01 ,1.8784e-04 /) - kao(:, 2,11, 7) = (/ & - &1.1469e+00 ,1.0035e+00 ,8.6021e-01 ,7.1681e-01 ,5.7347e-01 ,4.3009e-01 , & - &2.8675e-01 ,1.4352e-01 ,2.9142e-04 /) - kao(:, 3,11, 7) = (/ & - &1.1926e+00 ,1.0436e+00 ,8.9439e-01 ,7.4544e-01 ,5.9622e-01 ,4.4725e-01 , & - &2.9836e-01 ,1.4934e-01 ,4.5203e-04 /) - kao(:, 4,11, 7) = (/ & - &1.2362e+00 ,1.0816e+00 ,9.2703e-01 ,7.7246e-01 ,6.1814e-01 ,4.6378e-01 , & - &3.0936e-01 ,1.5503e-01 ,7.8924e-04 /) - kao(:, 5,11, 7) = (/ & - &1.2847e+00 ,1.1241e+00 ,9.6352e-01 ,8.0300e-01 ,6.4259e-01 ,4.8242e-01 , & - &3.2196e-01 ,1.6156e-01 ,1.3839e-03 /) - kao(:, 1,12, 7) = (/ & - &1.0784e+00 ,9.4374e-01 ,8.0896e-01 ,6.7399e-01 ,5.3931e-01 ,4.0450e-01 , & - &2.6958e-01 ,1.3485e-01 ,1.8250e-04 /) - kao(:, 2,12, 7) = (/ & - &1.1016e+00 ,9.6383e-01 ,8.2624e-01 ,6.8848e-01 ,5.5081e-01 ,4.1305e-01 , & - &2.7543e-01 ,1.3793e-01 ,2.7118e-04 /) - kao(:, 3,12, 7) = (/ & - &1.1494e+00 ,1.0057e+00 ,8.6213e-01 ,7.1839e-01 ,5.7458e-01 ,4.3099e-01 , & - &2.8756e-01 ,1.4395e-01 ,4.0903e-04 /) - kao(:, 4,12, 7) = (/ & - &1.1966e+00 ,1.0468e+00 ,8.9727e-01 ,7.4760e-01 ,5.9830e-01 ,4.4892e-01 , & - &2.9949e-01 ,1.5008e-01 ,6.0710e-04 /) - kao(:, 5,12, 7) = (/ & - &1.2391e+00 ,1.0842e+00 ,9.2930e-01 ,7.7450e-01 ,6.1988e-01 ,4.6531e-01 , & - &3.1051e-01 ,1.5585e-01 ,1.1075e-03 /) - kao(:, 1,13, 7) = (/ & - &9.1609e-01 ,8.0170e-01 ,6.8730e-01 ,5.7285e-01 ,4.5825e-01 ,3.4365e-01 , & - &2.2921e-01 ,1.1478e-01 ,1.8534e-04 /) - kao(:, 2,13, 7) = (/ & - &9.2338e-01 ,8.0782e-01 ,6.9263e-01 ,5.7718e-01 ,4.6175e-01 ,3.4635e-01 , & - &2.3110e-01 ,1.1575e-01 ,2.6985e-04 /) - kao(:, 3,13, 7) = (/ & - &9.4678e-01 ,8.2823e-01 ,7.0984e-01 ,5.9160e-01 ,4.7336e-01 ,3.5526e-01 , & - &2.3691e-01 ,1.1874e-01 ,3.9189e-04 /) - kao(:, 4,13, 7) = (/ & - &9.5798e-01 ,8.3839e-01 ,7.1856e-01 ,5.9888e-01 ,4.7933e-01 ,3.5969e-01 , & - &2.4009e-01 ,1.2046e-01 ,6.8070e-04 /) - kao(:, 5,13, 7) = (/ & - &9.7420e-01 ,8.5221e-01 ,7.3072e-01 ,6.0920e-01 ,4.8778e-01 ,3.6616e-01 , & - &2.4455e-01 ,1.2274e-01 ,1.2004e-03 /) - kao(:, 1, 1, 8) = (/ & - &2.2086e-03 ,2.0999e-03 ,2.0159e-03 ,1.8719e-03 ,1.7233e-03 ,1.5637e-03 , & - &1.3735e-03 ,1.3147e-03 ,1.3769e-03 /) - kao(:, 2, 1, 8) = (/ & - &2.2485e-03 ,2.2158e-03 ,2.1547e-03 ,2.0369e-03 ,1.8898e-03 ,1.7374e-03 , & - &1.6006e-03 ,1.7014e-03 ,1.7807e-03 /) - kao(:, 3, 1, 8) = (/ & - &2.2803e-03 ,2.3414e-03 ,2.2949e-03 ,2.2265e-03 ,2.0601e-03 ,1.9356e-03 , & - &1.8992e-03 ,2.1518e-03 ,2.2509e-03 /) - kao(:, 4, 1, 8) = (/ & - &2.3178e-03 ,2.4462e-03 ,2.4702e-03 ,2.4013e-03 ,2.2630e-03 ,2.1680e-03 , & - &2.2995e-03 ,2.6824e-03 ,2.8243e-03 /) - kao(:, 5, 1, 8) = (/ & - &2.3355e-03 ,2.5902e-03 ,2.6514e-03 ,2.5825e-03 ,2.4802e-03 ,2.5028e-03 , & - &2.7971e-03 ,3.2930e-03 ,3.4957e-03 /) - kao(:, 1, 2, 8) = (/ & - &3.2554e-03 ,3.0029e-03 ,2.8238e-03 ,2.5475e-03 ,2.2552e-03 ,1.9853e-03 , & - &1.6584e-03 ,1.2784e-03 ,1.0936e-03 /) - kao(:, 2, 2, 8) = (/ & - &3.3021e-03 ,3.1146e-03 ,2.9858e-03 ,2.7302e-03 ,2.4455e-03 ,2.1856e-03 , & - &1.8782e-03 ,1.5376e-03 ,1.5050e-03 /) - kao(:, 3, 2, 8) = (/ & - &3.3434e-03 ,3.2633e-03 ,3.1581e-03 ,2.9235e-03 ,2.6724e-03 ,2.4236e-03 , & - &2.1164e-03 ,1.8700e-03 ,1.9615e-03 /) - kao(:, 4, 2, 8) = (/ & - &3.3924e-03 ,3.4464e-03 ,3.3467e-03 ,3.1420e-03 ,2.9417e-03 ,2.6854e-03 , & - &2.3908e-03 ,2.2943e-03 ,2.5456e-03 /) - kao(:, 5, 2, 8) = (/ & - &3.4124e-03 ,3.5941e-03 ,3.5577e-03 ,3.4139e-03 ,3.2366e-03 ,2.9618e-03 , & - &2.7452e-03 ,2.8336e-03 ,3.1731e-03 /) - kao(:, 1, 3, 8) = (/ & - &6.2310e-03 ,5.6159e-03 ,4.9769e-03 ,4.4245e-03 ,3.8289e-03 ,3.1465e-03 , & - &2.4651e-03 ,1.6762e-03 ,1.0171e-03 /) - kao(:, 2, 3, 8) = (/ & - &6.3558e-03 ,5.7885e-03 ,5.2143e-03 ,4.7067e-03 ,4.0833e-03 ,3.4041e-03 , & - &2.6899e-03 ,1.9219e-03 ,1.2943e-03 /) - kao(:, 3, 3, 8) = (/ & - &6.4584e-03 ,5.9604e-03 ,5.4819e-03 ,4.9958e-03 ,4.3577e-03 ,3.6662e-03 , & - &2.9872e-03 ,2.1872e-03 ,1.6861e-03 /) - kao(:, 4, 3, 8) = (/ & - &6.6103e-03 ,6.1684e-03 ,5.8142e-03 ,5.2903e-03 ,4.6437e-03 ,3.9929e-03 , & - &3.3051e-03 ,2.4974e-03 ,2.2070e-03 /) - kao(:, 5, 3, 8) = (/ & - &6.6588e-03 ,6.3708e-03 ,6.1123e-03 ,5.6154e-03 ,4.9949e-03 ,4.3617e-03 , & - &3.6895e-03 ,2.8582e-03 ,2.8798e-03 /) - kao(:, 1, 4, 8) = (/ & - &1.1807e-02 ,1.0450e-02 ,9.1344e-03 ,7.7844e-03 ,6.5100e-03 ,5.2593e-03 , & - &3.9218e-03 ,2.4635e-03 ,1.1324e-03 /) - kao(:, 2, 4, 8) = (/ & - &1.2088e-02 ,1.0775e-02 ,9.4615e-03 ,8.1147e-03 ,6.9001e-03 ,5.6187e-03 , & - &4.2536e-03 ,2.7131e-03 ,1.3848e-03 /) - kao(:, 3, 4, 8) = (/ & - &1.2276e-02 ,1.1057e-02 ,9.7542e-03 ,8.5429e-03 ,7.3199e-03 ,6.0294e-03 , & - &4.5931e-03 ,3.0093e-03 ,1.7357e-03 /) - kao(:, 4, 4, 8) = (/ & - &1.2505e-02 ,1.1360e-02 ,1.0130e-02 ,9.0368e-03 ,7.7990e-03 ,6.4476e-03 , & - &5.0000e-03 ,3.3597e-03 ,2.0753e-03 /) - kao(:, 5, 4, 8) = (/ & - &1.2694e-02 ,1.1662e-02 ,1.0517e-02 ,9.4548e-03 ,8.2827e-03 ,6.9233e-03 , & - &5.4172e-03 ,3.7628e-03 ,2.5678e-03 /) - kao(:, 1, 5, 8) = (/ & - &2.0656e-02 ,1.8160e-02 ,1.5700e-02 ,1.3242e-02 ,1.0772e-02 ,8.3779e-03 , & - &6.0246e-03 ,3.5524e-03 ,1.1630e-03 /) - kao(:, 2, 5, 8) = (/ & - &2.0910e-02 ,1.8437e-02 ,1.6005e-02 ,1.3585e-02 ,1.1145e-02 ,8.8221e-03 , & - &6.4062e-03 ,3.8753e-03 ,1.4990e-03 /) - kao(:, 3, 5, 8) = (/ & - &2.1222e-02 ,1.8787e-02 ,1.6416e-02 ,1.3970e-02 ,1.1606e-02 ,9.3057e-03 , & - &6.8725e-03 ,4.2169e-03 ,1.9100e-03 /) - kao(:, 4, 5, 8) = (/ & - &2.1675e-02 ,1.9271e-02 ,1.6942e-02 ,1.4504e-02 ,1.2206e-02 ,9.8161e-03 , & - &7.3695e-03 ,4.6216e-03 ,2.4296e-03 /) - kao(:, 5, 5, 8) = (/ & - &2.2102e-02 ,1.9781e-02 ,1.7441e-02 ,1.5076e-02 ,1.2804e-02 ,1.0400e-02 , & - &7.9027e-03 ,5.0748e-03 ,2.9846e-03 /) - kao(:, 1, 6, 8) = (/ & - &3.4516e-02 ,3.0236e-02 ,2.6032e-02 ,2.1800e-02 ,1.7574e-02 ,1.3389e-02 , & - &9.2847e-03 ,5.1122e-03 ,1.0508e-03 /) - kao(:, 2, 6, 8) = (/ & - &3.4800e-02 ,3.0544e-02 ,2.6323e-02 ,2.2117e-02 ,1.7921e-02 ,1.3756e-02 , & - &9.6631e-03 ,5.4342e-03 ,1.4451e-03 /) - kao(:, 3, 6, 8) = (/ & - &3.5127e-02 ,3.0902e-02 ,2.6702e-02 ,2.2553e-02 ,1.8369e-02 ,1.4212e-02 , & - &1.0118e-02 ,5.8263e-03 ,1.8818e-03 /) - kao(:, 4, 6, 8) = (/ & - &3.5628e-02 ,3.1400e-02 ,2.7233e-02 ,2.3087e-02 ,1.8895e-02 ,1.4840e-02 , & - &1.0658e-02 ,6.2966e-03 ,2.4028e-03 /) - kao(:, 5, 6, 8) = (/ & - &3.6414e-02 ,3.2167e-02 ,2.8039e-02 ,2.3770e-02 ,1.9619e-02 ,1.5526e-02 , & - &1.1248e-02 ,6.8040e-03 ,2.9828e-03 /) - kao(:, 1, 7, 8) = (/ & - &6.0465e-02 ,5.2915e-02 ,4.5423e-02 ,3.7947e-02 ,3.0446e-02 ,2.2948e-02 , & - &1.5515e-02 ,8.2239e-03 ,1.0379e-03 /) - kao(:, 2, 7, 8) = (/ & - &6.0755e-02 ,5.3175e-02 ,4.5748e-02 ,3.8231e-02 ,3.0723e-02 ,2.3271e-02 , & - &1.5903e-02 ,8.5285e-03 ,1.3797e-03 /) - kao(:, 3, 7, 8) = (/ & - &6.1398e-02 ,5.3805e-02 ,4.6318e-02 ,3.8793e-02 ,3.1274e-02 ,2.3804e-02 , & - &1.6410e-02 ,8.9355e-03 ,1.8226e-03 /) - kao(:, 4, 7, 8) = (/ & - &6.2566e-02 ,5.4915e-02 ,4.7291e-02 ,3.9712e-02 ,3.2135e-02 ,2.4531e-02 , & - &1.7075e-02 ,9.4211e-03 ,2.3895e-03 /) - kao(:, 5, 7, 8) = (/ & - &6.4353e-02 ,5.6526e-02 ,4.8732e-02 ,4.1035e-02 ,3.3303e-02 ,2.5613e-02 , & - &1.7950e-02 ,9.9840e-03 ,2.9275e-03 /) - kao(:, 1, 8, 8) = (/ & - &1.2368e-01 ,1.0822e-01 ,9.2766e-02 ,7.7347e-02 ,6.2005e-02 ,4.6603e-02 , & - &3.1194e-02 ,1.5883e-02 ,8.5274e-04 /) - kao(:, 2, 8, 8) = (/ & - &1.2468e-01 ,1.0911e-01 ,9.3546e-02 ,7.8108e-02 ,6.2629e-02 ,4.7130e-02 , & - &3.1595e-02 ,1.6348e-02 ,1.3444e-03 /) - kao(:, 3, 8, 8) = (/ & - &1.2638e-01 ,1.1058e-01 ,9.4937e-02 ,7.9293e-02 ,6.3607e-02 ,4.7918e-02 , & - &3.2304e-02 ,1.6902e-02 ,1.7616e-03 /) - kao(:, 4, 8, 8) = (/ & - &1.2969e-01 ,1.1353e-01 ,9.7623e-02 ,8.1508e-02 ,6.5432e-02 ,4.9461e-02 , & - &3.3527e-02 ,1.7620e-02 ,2.4617e-03 /) - kao(:, 5, 8, 8) = (/ & - &1.3392e-01 ,1.1729e-01 ,1.0082e-01 ,8.4317e-02 ,6.7894e-02 ,5.1430e-02 , & - &3.4991e-02 ,1.8580e-02 ,3.1642e-03 /) - kao(:, 1, 9, 8) = (/ & - &4.6846e-01 ,4.0990e-01 ,3.5136e-01 ,2.9284e-01 ,2.3423e-01 ,1.7564e-01 , & - &1.1723e-01 ,5.8786e-02 ,4.0030e-04 /) - kao(:, 2, 9, 8) = (/ & - &4.7406e-01 ,4.1475e-01 ,3.5556e-01 ,2.9624e-01 ,2.3703e-01 ,1.7789e-01 , & - &1.1882e-01 ,5.9622e-02 ,6.8004e-04 /) - kao(:, 3, 9, 8) = (/ & - &4.8684e-01 ,4.2603e-01 ,3.6514e-01 ,3.0430e-01 ,2.4358e-01 ,1.8292e-01 , & - &1.2220e-01 ,6.1402e-02 ,1.0402e-03 /) - kao(:, 4, 9, 8) = (/ & - &5.0043e-01 ,4.3778e-01 ,3.7520e-01 ,3.1290e-01 ,2.5060e-01 ,1.8834e-01 , & - &1.2594e-01 ,6.3564e-02 ,1.7944e-03 /) - kao(:, 5, 9, 8) = (/ & - &5.2090e-01 ,4.5588e-01 ,3.9070e-01 ,3.2594e-01 ,2.6129e-01 ,1.9629e-01 , & - &1.3136e-01 ,6.6645e-02 ,2.5620e-03 /) - kao(:, 1,10, 8) = (/ & - &1.9599e+00 ,1.7147e+00 ,1.4700e+00 ,1.2249e+00 ,9.7999e-01 ,7.3502e-01 , & - &4.8995e-01 ,2.4496e-01 ,4.5019e-04 /) - kao(:, 2,10, 8) = (/ & - &2.0004e+00 ,1.7503e+00 ,1.5003e+00 ,1.2502e+00 ,1.0002e+00 ,7.5004e-01 , & - &5.0013e-01 ,2.5017e-01 ,7.7160e-04 /) - kao(:, 3,10, 8) = (/ & - &2.0706e+00 ,1.8118e+00 ,1.5527e+00 ,1.2941e+00 ,1.0353e+00 ,7.7648e-01 , & - &5.1774e-01 ,2.5926e-01 ,1.2278e-03 /) - kao(:, 4,10, 8) = (/ & - &2.1488e+00 ,1.8803e+00 ,1.6119e+00 ,1.3430e+00 ,1.0744e+00 ,8.0582e-01 , & - &5.3747e-01 ,2.6934e-01 ,1.1252e-03 /) - kao(:, 5,10, 8) = (/ & - &2.2415e+00 ,1.9614e+00 ,1.6811e+00 ,1.4008e+00 ,1.1207e+00 ,8.4068e-01 , & - &5.6107e-01 ,2.8130e-01 ,1.6850e-03 /) - kao(:, 1,11, 8) = (/ & - &2.8911e+00 ,2.5300e+00 ,2.1683e+00 ,1.8069e+00 ,1.4455e+00 ,1.0841e+00 , & - &7.2274e-01 ,3.6133e-01 ,4.4874e-04 /) - kao(:, 2,11, 8) = (/ & - &2.9950e+00 ,2.6205e+00 ,2.2462e+00 ,1.8718e+00 ,1.4974e+00 ,1.1232e+00 , & - &7.4873e-01 ,3.7448e-01 ,7.8243e-04 /) - kao(:, 3,11, 8) = (/ & - &3.1150e+00 ,2.7257e+00 ,2.3363e+00 ,1.9467e+00 ,1.5577e+00 ,1.1681e+00 , & - &7.7884e-01 ,3.8967e-01 ,1.2703e-03 /) - kao(:, 4,11, 8) = (/ & - &3.2669e+00 ,2.8585e+00 ,2.4505e+00 ,2.0417e+00 ,1.6337e+00 ,1.2254e+00 , & - &8.1715e-01 ,4.0914e-01 ,1.7634e-03 /) - kao(:, 5,11, 8) = (/ & - &3.4234e+00 ,2.9957e+00 ,2.5672e+00 ,2.1393e+00 ,1.7114e+00 ,1.2836e+00 , & - &8.5639e-01 ,4.2894e-01 ,1.6787e-03 /) - kao(:, 1,12, 8) = (/ & - &3.0768e+00 ,2.6917e+00 ,2.3070e+00 ,1.9231e+00 ,1.5383e+00 ,1.1537e+00 , & - &7.6915e-01 ,3.8462e-01 ,4.7094e-04 /) - kao(:, 2,12, 8) = (/ & - &3.2435e+00 ,2.8382e+00 ,2.4330e+00 ,2.0274e+00 ,1.6219e+00 ,1.2164e+00 , & - &8.1089e-01 ,4.0548e-01 ,8.2872e-04 /) - kao(:, 3,12, 8) = (/ & - &3.4231e+00 ,2.9954e+00 ,2.5672e+00 ,2.1393e+00 ,1.7115e+00 ,1.2835e+00 , & - &8.5578e-01 ,4.2826e-01 ,1.3467e-03 /) - kao(:, 4,12, 8) = (/ & - &3.5915e+00 ,3.1425e+00 ,2.6940e+00 ,2.2448e+00 ,1.7959e+00 ,1.3469e+00 , & - &8.9804e-01 ,4.4980e-01 ,2.0869e-03 /) - kao(:, 5,12, 8) = (/ & - &3.8078e+00 ,3.3318e+00 ,2.8557e+00 ,2.3795e+00 ,1.9039e+00 ,1.4280e+00 , & - &9.5252e-01 ,4.7712e-01 ,1.8673e-03 /) - kao(:, 1,13, 8) = (/ & - &2.3608e+00 ,2.0656e+00 ,1.7703e+00 ,1.4752e+00 ,1.1801e+00 ,8.8512e-01 , & - &5.9005e-01 ,2.9502e-01 ,4.6667e-04 /) - kao(:, 2,13, 8) = (/ & - &2.5500e+00 ,2.2311e+00 ,1.9119e+00 ,1.5932e+00 ,1.2746e+00 ,9.5617e-01 , & - &6.3722e-01 ,3.1884e-01 ,8.1387e-04 /) - kao(:, 3,13, 8) = (/ & - &2.7068e+00 ,2.3688e+00 ,2.0306e+00 ,1.6919e+00 ,1.3534e+00 ,1.0151e+00 , & - &6.7709e-01 ,3.3887e-01 ,1.3055e-03 /) - kao(:, 4,13, 8) = (/ & - &2.8840e+00 ,2.5234e+00 ,2.1627e+00 ,1.8025e+00 ,1.4417e+00 ,1.0815e+00 , & - &7.2137e-01 ,3.6139e-01 ,1.9116e-03 /) - kao(:, 5,13, 8) = (/ & - &3.0939e+00 ,2.7071e+00 ,2.3203e+00 ,1.9334e+00 ,1.5471e+00 ,1.1606e+00 , & - &7.7438e-01 ,3.8815e-01 ,1.4651e-03 /) - kao(:, 1, 1, 9) = (/ & - &3.8342e-03 ,3.6037e-03 ,3.3390e-03 ,3.1415e-03 ,3.0062e-03 ,3.0639e-03 , & - &3.3790e-03 ,3.9710e-03 ,4.6693e-03 /) - kao(:, 2, 1, 9) = (/ & - &3.8099e-03 ,3.5245e-03 ,3.4236e-03 ,3.3696e-03 ,3.4435e-03 ,3.7521e-03 , & - &4.3079e-03 ,5.1949e-03 ,5.9521e-03 /) - kao(:, 3, 1, 9) = (/ & - &3.6846e-03 ,3.4976e-03 ,3.5740e-03 ,3.6729e-03 ,4.0680e-03 ,4.6302e-03 , & - &5.4360e-03 ,6.6553e-03 ,7.4735e-03 /) - kao(:, 4, 1, 9) = (/ & - &3.5274e-03 ,3.5376e-03 ,3.7030e-03 ,4.1336e-03 ,4.8513e-03 ,5.7165e-03 , & - &6.7340e-03 ,8.3554e-03 ,9.2181e-03 /) - kao(:, 5, 1, 9) = (/ & - &3.3692e-03 ,3.5348e-03 ,3.9656e-03 ,4.7179e-03 ,5.7827e-03 ,6.9797e-03 , & - &8.2404e-03 ,1.0337e-02 ,1.1151e-02 /) - kao(:, 1, 2, 9) = (/ & - &6.4244e-03 ,5.9003e-03 ,5.2917e-03 ,4.8738e-03 ,4.2886e-03 ,3.6979e-03 , & - &3.3432e-03 ,3.4356e-03 ,4.2740e-03 /) - kao(:, 2, 2, 9) = (/ & - &6.4294e-03 ,5.9365e-03 ,5.4378e-03 ,5.0910e-03 ,4.5359e-03 ,4.1466e-03 , & - &4.0476e-03 ,4.4354e-03 ,5.4215e-03 /) - kao(:, 3, 2, 9) = (/ & - &6.3847e-03 ,6.0135e-03 ,5.5846e-03 ,5.2573e-03 ,4.8954e-03 ,4.7657e-03 , & - &4.9765e-03 ,5.6368e-03 ,6.8419e-03 /) - kao(:, 4, 2, 9) = (/ & - &6.3412e-03 ,5.9177e-03 ,5.7222e-03 ,5.4979e-03 ,5.4021e-03 ,5.5794e-03 , & - &6.1113e-03 ,7.0879e-03 ,8.4995e-03 /) - kao(:, 5, 2, 9) = (/ & - &6.1488e-03 ,5.8853e-03 ,5.8235e-03 ,5.8427e-03 ,6.0130e-03 ,6.6088e-03 , & - &7.4819e-03 ,8.8092e-03 ,1.0289e-02 /) - kao(:, 1, 3, 9) = (/ & - &1.4195e-02 ,1.2643e-02 ,1.1125e-02 ,9.5338e-03 ,8.0743e-03 ,6.7413e-03 , & - &5.1394e-03 ,3.4808e-03 ,3.6417e-03 /) - kao(:, 2, 3, 9) = (/ & - &1.4156e-02 ,1.2714e-02 ,1.1322e-02 ,9.8573e-03 ,8.5639e-03 ,7.1930e-03 , & - &5.4628e-03 ,4.1430e-03 ,4.8796e-03 /) - kao(:, 3, 3, 9) = (/ & - &1.4281e-02 ,1.3014e-02 ,1.1636e-02 ,1.0282e-02 ,9.0638e-03 ,7.5306e-03 , & - &5.9490e-03 ,5.0136e-03 ,6.2613e-03 /) - kao(:, 4, 3, 9) = (/ & - &1.4318e-02 ,1.3194e-02 ,1.1832e-02 ,1.0698e-02 ,9.4111e-03 ,7.9426e-03 , & - &6.6489e-03 ,6.1359e-03 ,7.8675e-03 /) - kao(:, 5, 3, 9) = (/ & - &1.4241e-02 ,1.3300e-02 ,1.2028e-02 ,1.0934e-02 ,9.7284e-03 ,8.5621e-03 , & - &7.5356e-03 ,7.5232e-03 ,9.7190e-03 /) - kao(:, 1, 4, 9) = (/ & - &3.1371e-02 ,2.7594e-02 ,2.3918e-02 ,2.0236e-02 ,1.6538e-02 ,1.2862e-02 , & - &9.3415e-03 ,5.6206e-03 ,3.0136e-03 /) - kao(:, 2, 4, 9) = (/ & - &3.1367e-02 ,2.7706e-02 ,2.4150e-02 ,2.0624e-02 ,1.6974e-02 ,1.3427e-02 , & - &9.9709e-03 ,6.1282e-03 ,4.2995e-03 /) - kao(:, 3, 4, 9) = (/ & - &3.1583e-02 ,2.8007e-02 ,2.4625e-02 ,2.1088e-02 ,1.7481e-02 ,1.4076e-02 , & - &1.0648e-02 ,6.6037e-03 ,5.6873e-03 /) - kao(:, 4, 4, 9) = (/ & - &3.1875e-02 ,2.8446e-02 ,2.5140e-02 ,2.1570e-02 ,1.8204e-02 ,1.5013e-02 , & - &1.1353e-02 ,7.2455e-03 ,7.5289e-03 /) - kao(:, 5, 4, 9) = (/ & - &3.2159e-02 ,2.8870e-02 ,2.5760e-02 ,2.2306e-02 ,1.9019e-02 ,1.5749e-02 , & - &1.1959e-02 ,8.0455e-03 ,9.2604e-03 /) - kao(:, 1, 5, 9) = (/ & - &6.1996e-02 ,5.4276e-02 ,4.6766e-02 ,3.9233e-02 ,3.1722e-02 ,2.4192e-02 , & - &1.6676e-02 ,9.3526e-03 ,2.3723e-03 /) - kao(:, 2, 5, 9) = (/ & - &6.2786e-02 ,5.5036e-02 ,4.7544e-02 ,4.0014e-02 ,3.2500e-02 ,2.4919e-02 , & - &1.7414e-02 ,9.9958e-03 ,3.1775e-03 /) - kao(:, 3, 5, 9) = (/ & - &6.3408e-02 ,5.5719e-02 ,4.8263e-02 ,4.0805e-02 ,3.3340e-02 ,2.5705e-02 , & - &1.8217e-02 ,1.0807e-02 ,4.4457e-03 /) - kao(:, 4, 5, 9) = (/ & - &6.3958e-02 ,5.6455e-02 ,4.8967e-02 ,4.1701e-02 ,3.4289e-02 ,2.6801e-02 , & - &1.9500e-02 ,1.1614e-02 ,6.0592e-03 /) - kao(:, 5, 5, 9) = (/ & - &6.4544e-02 ,5.7091e-02 ,4.9896e-02 ,4.2837e-02 ,3.5365e-02 ,2.7903e-02 , & - &2.0589e-02 ,1.2558e-02 ,7.7840e-03 /) - kao(:, 1, 6, 9) = (/ & - &1.1420e-01 ,9.9928e-02 ,8.5730e-02 ,7.1669e-02 ,5.7641e-02 ,4.3533e-02 , & - &2.9463e-02 ,1.5596e-02 ,1.8870e-03 /) - kao(:, 2, 6, 9) = (/ & - &1.1463e-01 ,1.0031e-01 ,8.6249e-02 ,7.2249e-02 ,5.8195e-02 ,4.4132e-02 , & - &3.0125e-02 ,1.6255e-02 ,2.7185e-03 /) - kao(:, 3, 6, 9) = (/ & - &1.1505e-01 ,1.0074e-01 ,8.6836e-02 ,7.2850e-02 ,5.8886e-02 ,4.5056e-02 , & - &3.1103e-02 ,1.7221e-02 ,3.7627e-03 /) - kao(:, 4, 6, 9) = (/ & - &1.1693e-01 ,1.0252e-01 ,8.8568e-02 ,7.4567e-02 ,6.0606e-02 ,4.6540e-02 , & - &3.2424e-02 ,1.8275e-02 ,5.0267e-03 /) - kao(:, 5, 6, 9) = (/ & - &1.1806e-01 ,1.0371e-01 ,8.9817e-02 ,7.5865e-02 ,6.1963e-02 ,4.7866e-02 , & - &3.3695e-02 ,1.9500e-02 ,6.8317e-03 /) - kao(:, 1, 7, 9) = (/ & - &2.1427e-01 ,1.8749e-01 ,1.6070e-01 ,1.3399e-01 ,1.0738e-01 ,8.0867e-02 , & - &5.4264e-02 ,2.7682e-02 ,1.2395e-03 /) - kao(:, 2, 7, 9) = (/ & - &2.1459e-01 ,1.8775e-01 ,1.6094e-01 ,1.3438e-01 ,1.0794e-01 ,8.1406e-02 , & - &5.4844e-02 ,2.8427e-02 ,2.0965e-03 /) - kao(:, 3, 7, 9) = (/ & - &2.1615e-01 ,1.8914e-01 ,1.6231e-01 ,1.3573e-01 ,1.0921e-01 ,8.2571e-02 , & - &5.5952e-02 ,2.9582e-02 ,3.1925e-03 /) - kao(:, 4, 7, 9) = (/ & - &2.1891e-01 ,1.9155e-01 ,1.6470e-01 ,1.3802e-01 ,1.1113e-01 ,8.4390e-02 , & - &5.7587e-02 ,3.0908e-02 ,4.5715e-03 /) - kao(:, 5, 7, 9) = (/ & - &2.2155e-01 ,1.9400e-01 ,1.6713e-01 ,1.4027e-01 ,1.1333e-01 ,8.6454e-02 , & - &5.9526e-02 ,3.2445e-02 ,6.5617e-03 /) - kao(:, 1, 8, 9) = (/ & - &4.6547e-01 ,4.0732e-01 ,3.4911e-01 ,2.9100e-01 ,2.3277e-01 ,1.7470e-01 , & - &1.1672e-01 ,5.8764e-02 ,8.5250e-04 /) - kao(:, 2, 8, 9) = (/ & - &4.6469e-01 ,4.0659e-01 ,3.4854e-01 ,2.9045e-01 ,2.3244e-01 ,1.7466e-01 , & - &1.1705e-01 ,5.9152e-02 ,1.3360e-03 /) - kao(:, 3, 8, 9) = (/ & - &4.6927e-01 ,4.1062e-01 ,3.5196e-01 ,2.9346e-01 ,2.3515e-01 ,1.7702e-01 , & - &1.1874e-01 ,6.0462e-02 ,2.4435e-03 /) - kao(:, 4, 8, 9) = (/ & - &4.7393e-01 ,4.1463e-01 ,3.5541e-01 ,2.9668e-01 ,2.3809e-01 ,1.7953e-01 , & - &1.2082e-01 ,6.2242e-02 ,3.3995e-03 /) - kao(:, 5, 8, 9) = (/ & - &4.8023e-01 ,4.2020e-01 ,3.6048e-01 ,3.0117e-01 ,2.4212e-01 ,1.8271e-01 , & - &1.2350e-01 ,6.4451e-02 ,5.1655e-03 /) - kao(:, 1, 9, 9) = (/ & - &1.9039e+00 ,1.6660e+00 ,1.4281e+00 ,1.1899e+00 ,9.5193e-01 ,7.1405e-01 , & - &4.7606e-01 ,2.3807e-01 ,5.1784e-04 /) - kao(:, 2, 9, 9) = (/ & - &1.8960e+00 ,1.6589e+00 ,1.4220e+00 ,1.1850e+00 ,9.4792e-01 ,7.1098e-01 , & - &4.7399e-01 ,2.3745e-01 ,1.0379e-03 /) - kao(:, 3, 9, 9) = (/ & - &1.8985e+00 ,1.6610e+00 ,1.4239e+00 ,1.1866e+00 ,9.4922e-01 ,7.1187e-01 , & - &4.7501e-01 ,2.3850e-01 ,1.9956e-03 /) - kao(:, 4, 9, 9) = (/ & - &1.9331e+00 ,1.6922e+00 ,1.4503e+00 ,1.2084e+00 ,9.6666e-01 ,7.2514e-01 , & - &4.8432e-01 ,2.4379e-01 ,3.3200e-03 /) - kao(:, 5, 9, 9) = (/ & - &1.9563e+00 ,1.7116e+00 ,1.4675e+00 ,1.2227e+00 ,9.7814e-01 ,7.3426e-01 , & - &4.9112e-01 ,2.4753e-01 ,5.3379e-03 /) - kao(:, 1,10, 9) = (/ & - &8.5901e+00 ,7.5167e+00 ,6.4427e+00 ,5.3701e+00 ,4.2955e+00 ,3.2213e+00 , & - &2.1478e+00 ,1.0738e+00 ,2.8232e-05 /) - kao(:, 2,10, 9) = (/ & - &8.5325e+00 ,7.4671e+00 ,6.4018e+00 ,5.3343e+00 ,4.2664e+00 ,3.2001e+00 , & - &2.1333e+00 ,1.0667e+00 ,3.4266e-05 /) - kao(:, 3,10, 9) = (/ & - &8.5180e+00 ,7.4539e+00 ,6.3892e+00 ,5.3241e+00 ,4.2587e+00 ,3.1944e+00 , & - &2.1293e+00 ,1.0648e+00 ,4.9015e-05 /) - kao(:, 4,10, 9) = (/ & - &8.6373e+00 ,7.5561e+00 ,6.4798e+00 ,5.3988e+00 ,4.3190e+00 ,3.2393e+00 , & - &2.1596e+00 ,1.0801e+00 ,1.1052e-03 /) - kao(:, 5,10, 9) = (/ & - &8.7651e+00 ,7.6691e+00 ,6.5729e+00 ,5.4773e+00 ,4.3830e+00 ,3.2869e+00 , & - &2.1915e+00 ,1.0965e+00 ,2.0612e-03 /) - kao(:, 1,11, 9) = (/ & - &1.3293e+01 ,1.1631e+01 ,9.9694e+00 ,8.3080e+00 ,6.6463e+00 ,4.9848e+00 , & - &3.3235e+00 ,1.6616e+00 ,8.6041e-05 /) - kao(:, 2,11, 9) = (/ & - &1.3175e+01 ,1.1527e+01 ,9.8819e+00 ,8.2359e+00 ,6.5871e+00 ,4.9407e+00 , & - &3.2935e+00 ,1.6469e+00 ,8.8405e-05 /) - kao(:, 3,11, 9) = (/ & - &1.3260e+01 ,1.1601e+01 ,9.9453e+00 ,8.2878e+00 ,6.6300e+00 ,4.9725e+00 , & - &3.3155e+00 ,1.6576e+00 ,7.6661e-05 /) - kao(:, 4,11, 9) = (/ & - &1.3414e+01 ,1.1737e+01 ,1.0061e+01 ,8.3841e+00 ,6.7068e+00 ,5.0294e+00 , & - &3.3528e+00 ,1.6766e+00 ,3.1506e-04 /) - kao(:, 5,11, 9) = (/ & - &1.3624e+01 ,1.1922e+01 ,1.0219e+01 ,8.5160e+00 ,6.8128e+00 ,5.1095e+00 , & - &3.4058e+00 ,1.7038e+00 ,1.6944e-03 /) - kao(:, 1,12, 9) = (/ & - &1.4782e+01 ,1.2935e+01 ,1.1089e+01 ,9.2388e+00 ,7.3920e+00 ,5.5445e+00 , & - &3.6962e+00 ,1.8480e+00 ,1.3867e-04 /) - kao(:, 2,12, 9) = (/ & - &1.4730e+01 ,1.2889e+01 ,1.1047e+01 ,9.2076e+00 ,7.3659e+00 ,5.5246e+00 , & - &3.6830e+00 ,1.8415e+00 ,1.5061e-04 /) - kao(:, 3,12, 9) = (/ & - &1.4865e+01 ,1.3005e+01 ,1.1148e+01 ,9.2913e+00 ,7.4319e+00 ,5.5733e+00 , & - &3.7153e+00 ,1.8580e+00 ,1.4666e-04 /) - kao(:, 4,12, 9) = (/ & - &1.5163e+01 ,1.3269e+01 ,1.1374e+01 ,9.4785e+00 ,7.5816e+00 ,5.6866e+00 , & - &3.7915e+00 ,1.8957e+00 ,1.4926e-04 /) - kao(:, 5,12, 9) = (/ & - &1.5423e+01 ,1.3495e+01 ,1.1567e+01 ,9.6394e+00 ,7.7115e+00 ,5.7838e+00 , & - &3.8558e+00 ,1.9287e+00 ,1.8983e-03 /) - kao(:, 1,13, 9) = (/ & - &1.2526e+01 ,1.0960e+01 ,9.3953e+00 ,7.8295e+00 ,6.2636e+00 ,4.6971e+00 , & - &3.1319e+00 ,1.5656e+00 ,2.2960e-04 /) - kao(:, 2,13, 9) = (/ & - &1.2594e+01 ,1.1020e+01 ,9.4466e+00 ,7.8734e+00 ,6.2977e+00 ,4.7229e+00 , & - &3.1489e+00 ,1.5743e+00 ,3.0250e-04 /) - kao(:, 3,13, 9) = (/ & - &1.2808e+01 ,1.1205e+01 ,9.6060e+00 ,8.0068e+00 ,6.4043e+00 ,4.8030e+00 , & - &3.2030e+00 ,1.6008e+00 ,4.1712e-04 /) - kao(:, 4,13, 9) = (/ & - &1.3107e+01 ,1.1466e+01 ,9.8274e+00 ,8.1873e+00 ,6.5536e+00 ,4.9140e+00 , & - &3.2751e+00 ,1.6381e+00 ,6.5679e-04 /) - kao(:, 5,13, 9) = (/ & - &1.3444e+01 ,1.1761e+01 ,1.0081e+01 ,8.4011e+00 ,6.7204e+00 ,5.0404e+00 , & - &3.3592e+00 ,1.6815e+00 ,2.8416e-03 /) - kao(:, 1, 1,10) = (/ & - &4.6973e-03 ,3.3679e-03 ,3.0810e-03 ,4.4179e-03 ,5.3922e-03 ,6.8127e-03 , & - &7.5300e-03 ,9.6520e-03 ,1.0742e-02 /) - kao(:, 2, 1,10) = (/ & - &3.3940e-03 ,3.6347e-03 ,3.8181e-03 ,5.7069e-03 ,7.1993e-03 ,9.1516e-03 , & - &1.0242e-02 ,1.2914e-02 ,1.4284e-02 /) - kao(:, 3, 1,10) = (/ & - &2.9328e-03 ,3.5249e-03 ,5.0061e-03 ,7.3569e-03 ,8.9474e-03 ,1.1546e-02 , & - &1.2963e-02 ,1.7115e-02 ,1.7551e-02 /) - kao(:, 4, 1,10) = (/ & - &2.4964e-03 ,3.6551e-03 ,6.6228e-03 ,8.9461e-03 ,1.0774e-02 ,1.3965e-02 , & - &1.7435e-02 ,2.2332e-02 ,2.1398e-02 /) - kao(:, 5, 1,10) = (/ & - &2.1304e-03 ,4.5161e-03 ,8.4664e-03 ,1.0811e-02 ,1.3640e-02 ,1.7099e-02 , & - &2.2735e-02 ,2.8461e-02 ,2.7259e-02 /) - kao(:, 1, 2,10) = (/ & - &9.4205e-03 ,8.2881e-03 ,6.8055e-03 ,5.1998e-03 ,6.0003e-03 ,6.4194e-03 , & - &7.3653e-03 ,8.1269e-03 ,1.1868e-02 /) - kao(:, 2, 2,10) = (/ & - &8.5761e-03 ,7.3303e-03 ,5.6742e-03 ,5.4200e-03 ,7.5061e-03 ,8.7164e-03 , & - &9.8614e-03 ,1.1132e-02 ,1.4929e-02 /) - kao(:, 3, 2,10) = (/ & - &7.2342e-03 ,5.9377e-03 ,5.5335e-03 ,7.0973e-03 ,9.3181e-03 ,1.1104e-02 , & - &1.2752e-02 ,1.5333e-02 ,1.8200e-02 /) - kao(:, 4, 2,10) = (/ & - &5.3015e-03 ,5.6105e-03 ,6.0212e-03 ,9.3735e-03 ,1.1344e-02 ,1.3845e-02 , & - &1.6350e-02 ,2.0205e-02 ,2.2040e-02 /) - kao(:, 5, 2,10) = (/ & - &4.6868e-03 ,5.1363e-03 ,7.4969e-03 ,1.0079e-02 ,1.4155e-02 ,1.6850e-02 , & - &1.9756e-02 ,2.5412e-02 ,2.7831e-02 /) - kao(:, 1, 3,10) = (/ & - &2.2659e-02 ,2.0083e-02 ,1.7749e-02 ,1.5132e-02 ,1.2304e-02 ,9.8131e-03 , & - &6.5475e-03 ,7.6061e-03 ,9.2024e-03 /) - kao(:, 2, 3,10) = (/ & - &2.3012e-02 ,2.0379e-02 ,1.7548e-02 ,1.4904e-02 ,1.1694e-02 ,9.3796e-03 , & - &9.2412e-03 ,1.0030e-02 ,1.2744e-02 /) - kao(:, 3, 3,10) = (/ & - &2.1396e-02 ,1.8727e-02 ,1.6107e-02 ,1.2456e-02 ,1.0255e-02 ,1.0536e-02 , & - &1.1966e-02 ,1.3095e-02 ,1.7259e-02 /) - kao(:, 4, 3,10) = (/ & - &1.9331e-02 ,1.6488e-02 ,1.2963e-02 ,1.0270e-02 ,1.1515e-02 ,1.2315e-02 , & - &1.5198e-02 ,1.6672e-02 ,2.2500e-02 /) - kao(:, 5, 3,10) = (/ & - &1.6551e-02 ,1.3344e-02 ,1.1001e-02 ,1.0385e-02 ,1.2450e-02 ,1.4894e-02 , & - &1.8912e-02 ,2.0849e-02 ,2.4782e-02 /) - kao(:, 1, 4,10) = (/ & - &5.3443e-02 ,4.6752e-02 ,4.0212e-02 ,3.3727e-02 ,2.6764e-02 ,2.0366e-02 , & - &1.4100e-02 ,8.5626e-03 ,5.0179e-03 /) - kao(:, 2, 4,10) = (/ & - &5.5520e-02 ,4.8788e-02 ,4.2227e-02 ,3.5776e-02 ,2.9164e-02 ,2.2326e-02 , & - &1.5452e-02 ,9.1701e-03 ,6.6031e-03 /) - kao(:, 3, 4,10) = (/ & - &5.3841e-02 ,4.7471e-02 ,4.1338e-02 ,3.5633e-02 ,2.9297e-02 ,2.2785e-02 , & - &1.5793e-02 ,1.1481e-02 ,9.9885e-03 /) - kao(:, 4, 4,10) = (/ & - &5.4923e-02 ,4.8665e-02 ,4.2046e-02 ,3.5458e-02 ,2.8786e-02 ,2.1135e-02 , & - &1.3946e-02 ,1.4729e-02 ,1.3190e-02 /) - kao(:, 5, 4,10) = (/ & - &5.1650e-02 ,4.6045e-02 ,4.0319e-02 ,3.3252e-02 ,2.5245e-02 ,1.9132e-02 , & - &1.5667e-02 ,1.8634e-02 ,1.9277e-02 /) - kao(:, 1, 5,10) = (/ & - &1.1780e-01 ,1.0308e-01 ,8.8391e-02 ,7.4152e-02 ,5.9704e-02 ,4.5204e-02 , & - &3.0807e-02 ,1.6385e-02 ,4.0089e-03 /) - kao(:, 2, 5,10) = (/ & - &1.1261e-01 ,9.8543e-02 ,8.5059e-02 ,7.1216e-02 ,5.7505e-02 ,4.3649e-02 , & - &3.0528e-02 ,1.7529e-02 ,9.3093e-03 /) - kao(:, 3, 5,10) = (/ & - &1.1400e-01 ,9.9742e-02 ,8.6449e-02 ,7.3042e-02 ,5.9615e-02 ,4.6638e-02 , & - &3.2532e-02 ,1.8567e-02 ,1.1184e-02 /) - kao(:, 4, 5,10) = (/ & - &1.1613e-01 ,1.0163e-01 ,8.9121e-02 ,7.4876e-02 ,6.0453e-02 ,4.6196e-02 , & - &3.1216e-02 ,1.9048e-02 ,1.2339e-02 /) - kao(:, 5, 5,10) = (/ & - &1.2016e-01 ,1.0608e-01 ,9.2375e-02 ,7.6465e-02 ,6.2248e-02 ,4.8476e-02 , & - &3.3522e-02 ,1.7446e-02 ,1.7040e-02 /) - kao(:, 1, 6,10) = (/ & - &2.3387e-01 ,2.0464e-01 ,1.7541e-01 ,1.4624e-01 ,1.1769e-01 ,8.8692e-02 , & - &5.9747e-02 ,3.0756e-02 ,2.5605e-03 /) - kao(:, 2, 6,10) = (/ & - &2.3730e-01 ,2.0756e-01 ,1.7772e-01 ,1.4892e-01 ,1.1985e-01 ,9.0758e-02 , & - &6.1778e-02 ,3.2933e-02 ,4.6893e-03 /) - kao(:, 3, 6,10) = (/ & - &2.4203e-01 ,2.1158e-01 ,1.8155e-01 ,1.5250e-01 ,1.2284e-01 ,9.2705e-02 , & - &6.3067e-02 ,3.2776e-02 ,9.7345e-03 /) - kao(:, 4, 6,10) = (/ & - &2.3049e-01 ,2.0160e-01 ,1.7416e-01 ,1.4569e-01 ,1.1768e-01 ,8.9784e-02 , & - &6.1642e-02 ,3.4682e-02 ,1.6936e-02 /) - kao(:, 5, 6,10) = (/ & - &2.3636e-01 ,2.0679e-01 ,1.7932e-01 ,1.5154e-01 ,1.2337e-01 ,9.4475e-02 , & - &6.5584e-02 ,3.6305e-02 ,2.2069e-02 /) - kao(:, 1, 7,10) = (/ & - &4.9443e-01 ,4.3211e-01 ,3.7050e-01 ,3.0887e-01 ,2.4699e-01 ,1.8540e-01 , & - &1.2438e-01 ,6.2986e-02 ,2.0096e-03 /) - kao(:, 2, 7,10) = (/ & - &4.9639e-01 ,4.3473e-01 ,3.7266e-01 ,3.1039e-01 ,2.4852e-01 ,1.8749e-01 , & - &1.2568e-01 ,6.4131e-02 ,3.0764e-03 /) - kao(:, 3, 7,10) = (/ & - &4.9265e-01 ,4.3128e-01 ,3.6987e-01 ,3.0823e-01 ,2.4792e-01 ,1.8671e-01 , & - &1.2562e-01 ,6.4213e-02 ,5.4655e-03 /) - kao(:, 4, 7,10) = (/ & - &4.7703e-01 ,4.1742e-01 ,3.5749e-01 ,2.9850e-01 ,2.4081e-01 ,1.8239e-01 , & - &1.2380e-01 ,6.5802e-02 ,1.0925e-02 /) - kao(:, 5, 7,10) = (/ & - &4.8180e-01 ,4.2216e-01 ,3.6195e-01 ,3.0277e-01 ,2.4364e-01 ,1.8402e-01 , & - &1.2523e-01 ,6.7909e-02 ,1.4296e-02 /) - kao(:, 1, 8,10) = (/ & - &1.1962e+00 ,1.0464e+00 ,8.9717e-01 ,7.4708e-01 ,5.9764e-01 ,4.4825e-01 , & - &2.9884e-01 ,1.5061e-01 ,3.8986e-03 /) - kao(:, 2, 8,10) = (/ & - &1.2041e+00 ,1.0536e+00 ,9.0306e-01 ,7.5220e-01 ,6.0244e-01 ,4.5171e-01 , & - &3.0103e-01 ,1.5197e-01 ,3.3573e-03 /) - kao(:, 3, 8,10) = (/ & - &1.1525e+00 ,1.0084e+00 ,8.6433e-01 ,7.2027e-01 ,5.7631e-01 ,4.3217e-01 , & - &2.8996e-01 ,1.4673e-01 ,3.4045e-03 /) - kao(:, 4, 8,10) = (/ & - &1.1627e+00 ,1.0178e+00 ,8.7243e-01 ,7.2665e-01 ,5.8167e-01 ,4.3823e-01 , & - &2.9244e-01 ,1.4815e-01 ,8.5595e-03 /) - kao(:, 5, 8,10) = (/ & - &1.1683e+00 ,1.0228e+00 ,8.7612e-01 ,7.3014e-01 ,5.8445e-01 ,4.4237e-01 , & - &2.9748e-01 ,1.5239e-01 ,1.0748e-02 /) - kao(:, 1, 9,10) = (/ & - &5.3473e+00 ,4.6810e+00 ,4.0088e+00 ,3.3420e+00 ,2.6745e+00 ,2.0052e+00 , & - &1.3357e+00 ,6.6899e-01 ,9.0646e-06 /) - kao(:, 2, 9,10) = (/ & - &5.3849e+00 ,4.7131e+00 ,4.0386e+00 ,3.3668e+00 ,2.6936e+00 ,2.0203e+00 , & - &1.3467e+00 ,6.7337e-01 ,1.6160e-05 /) - kao(:, 3, 9,10) = (/ & - &5.2604e+00 ,4.6046e+00 ,3.9456e+00 ,3.2881e+00 ,2.6303e+00 ,1.9734e+00 , & - &1.3151e+00 ,6.5758e-01 ,2.7795e-05 /) - kao(:, 4, 9,10) = (/ & - &4.9950e+00 ,4.3651e+00 ,3.7432e+00 ,3.1211e+00 ,2.4979e+00 ,1.8723e+00 , & - &1.2477e+00 ,6.2561e-01 ,4.1978e-05 /) - kao(:, 5, 9,10) = (/ & - &5.1108e+00 ,4.4671e+00 ,3.8297e+00 ,3.1913e+00 ,2.5537e+00 ,1.9170e+00 , & - &1.2756e+00 ,6.4540e-01 ,6.6209e-05 /) - kao(:, 1,10,10) = (/ & - &2.6042e+01 ,2.2785e+01 ,1.9540e+01 ,1.6264e+01 ,1.3016e+01 ,9.7654e+00 , & - &6.5078e+00 ,3.2552e+00 ,5.7707e-06 /) - kao(:, 2,10,10) = (/ & - &2.6479e+01 ,2.3167e+01 ,1.9837e+01 ,1.6530e+01 ,1.3239e+01 ,9.9265e+00 , & - &6.6195e+00 ,3.3086e+00 ,1.0081e-05 /) - kao(:, 3,10,10) = (/ & - &2.6009e+01 ,2.2746e+01 ,1.9506e+01 ,1.6255e+01 ,1.3009e+01 ,9.7479e+00 , & - &6.5045e+00 ,3.2511e+00 ,1.6976e-05 /) - kao(:, 4,10,10) = (/ & - &2.4905e+01 ,2.1818e+01 ,1.8660e+01 ,1.5572e+01 ,1.2451e+01 ,9.3433e+00 , & - &6.2220e+00 ,3.1125e+00 ,2.8117e-05 /) - kao(:, 5,10,10) = (/ & - &2.5169e+01 ,2.2024e+01 ,1.8885e+01 ,1.5746e+01 ,1.2587e+01 ,9.4388e+00 , & - &6.2934e+00 ,3.1427e+00 ,4.4861e-05 /) - kao(:, 1,11,10) = (/ & - &4.3366e+01 ,3.7949e+01 ,3.2540e+01 ,2.7105e+01 ,2.1683e+01 ,1.6263e+01 , & - &1.0837e+01 ,5.4210e+00 ,4.9323e-06 /) - kao(:, 2,11,10) = (/ & - &4.4481e+01 ,3.8935e+01 ,3.3362e+01 ,2.7791e+01 ,2.2247e+01 ,1.6680e+01 , & - &1.1125e+01 ,5.5599e+00 ,8.9387e-06 /) - kao(:, 3,11,10) = (/ & - &4.2759e+01 ,3.7428e+01 ,3.2070e+01 ,2.6725e+01 ,2.1369e+01 ,1.6026e+01 , & - &1.0686e+01 ,5.3424e+00 ,1.3904e-05 /) - kao(:, 4,11,10) = (/ & - &4.2776e+01 ,3.7387e+01 ,3.2051e+01 ,2.6735e+01 ,2.1399e+01 ,1.6039e+01 , & - &1.0699e+01 ,5.3492e+00 ,2.3732e-05 /) - kao(:, 5,11,10) = (/ & - &4.2881e+01 ,3.7499e+01 ,3.2160e+01 ,2.6814e+01 ,2.1427e+01 ,1.6080e+01 , & - &1.0724e+01 ,5.3602e+00 ,3.9053e-05 /) - kao(:, 1,12,10) = (/ & - &5.2035e+01 ,4.5530e+01 ,3.8991e+01 ,3.2521e+01 ,2.6007e+01 ,1.9502e+01 , & - &1.3003e+01 ,6.5017e+00 ,4.1086e-06 /) - kao(:, 2,12,10) = (/ & - &5.2620e+01 ,4.6040e+01 ,3.9465e+01 ,3.2876e+01 ,2.6300e+01 ,1.9726e+01 , & - &1.3150e+01 ,6.5751e+00 ,7.6006e-06 /) - kao(:, 3,12,10) = (/ & - &5.1699e+01 ,4.5233e+01 ,3.8772e+01 ,3.2297e+01 ,2.5847e+01 ,1.9404e+01 , & - &1.2928e+01 ,6.4618e+00 ,1.3155e-05 /) - kao(:, 4,12,10) = (/ & - &5.1530e+01 ,4.5092e+01 ,3.8615e+01 ,3.2196e+01 ,2.5751e+01 ,1.9320e+01 , & - &1.2877e+01 ,6.4388e+00 ,2.2125e-05 /) - kao(:, 5,12,10) = (/ & - &5.2358e+01 ,4.5788e+01 ,3.9246e+01 ,3.2725e+01 ,2.6162e+01 ,1.9634e+01 , & - &1.3083e+01 ,6.5448e+00 ,3.4034e-05 /) - kao(:, 1,13,10) = (/ & - &4.8070e+01 ,4.2058e+01 ,3.6028e+01 ,3.0041e+01 ,2.4032e+01 ,1.8020e+01 , & - &1.2016e+01 ,6.0067e+00 ,1.1683e-05 /) - kao(:, 2,13,10) = (/ & - &4.7586e+01 ,4.1613e+01 ,3.5689e+01 ,2.9748e+01 ,2.3780e+01 ,1.7835e+01 , & - &1.1890e+01 ,5.9450e+00 ,6.6906e-06 /) - kao(:, 3,13,10) = (/ & - &4.7760e+01 ,4.1804e+01 ,3.5818e+01 ,2.9821e+01 ,2.3863e+01 ,1.7898e+01 , & - &1.1923e+01 ,5.9715e+00 ,1.1688e-05 /) - kao(:, 4,13,10) = (/ & - &4.7976e+01 ,4.1998e+01 ,3.6011e+01 ,3.0021e+01 ,2.3989e+01 ,1.7987e+01 , & - &1.2008e+01 ,6.0018e+00 ,2.0801e-05 /) - kao(:, 5,13,10) = (/ & - &4.8185e+01 ,4.2179e+01 ,3.6131e+01 ,3.0110e+01 ,2.4087e+01 ,1.8066e+01 , & - &1.2054e+01 ,6.0193e+00 ,3.3629e-05 /) - kao(:, 1, 1,11) = (/ & - &2.3144e-03 ,3.0235e-03 ,4.2030e-03 ,4.5486e-03 ,6.9673e-03 ,8.5656e-03 , & - &1.0150e-02 ,1.3548e-02 ,1.3475e-02 /) - kao(:, 2, 1,11) = (/ & - &2.0416e-03 ,3.1999e-03 ,4.6569e-03 ,6.4031e-03 ,9.8267e-03 ,1.1395e-02 , & - &1.5022e-02 ,1.8877e-02 ,1.8904e-02 /) - kao(:, 3, 1,11) = (/ & - &1.8509e-03 ,4.2185e-03 ,5.5775e-03 ,9.1095e-03 ,1.2979e-02 ,1.4639e-02 , & - &2.1829e-02 ,2.5577e-02 ,2.5272e-02 /) - kao(:, 4, 1,11) = (/ & - &1.7995e-03 ,5.2396e-03 ,7.4739e-03 ,1.1646e-02 ,1.7153e-02 ,1.9747e-02 , & - &2.8712e-02 ,3.3739e-02 ,3.3147e-02 /) - kao(:, 5, 1,11) = (/ & - &1.8412e-03 ,6.1417e-03 ,9.5119e-03 ,1.5457e-02 ,2.1034e-02 ,2.5800e-02 , & - &3.6795e-02 ,4.3339e-02 ,4.2100e-02 /) - kao(:, 1, 2,11) = (/ & - &7.4427e-03 ,5.5490e-03 ,4.6664e-03 ,4.6380e-03 ,5.2610e-03 ,8.4068e-03 , & - &1.0505e-02 ,1.1967e-02 ,1.0119e-02 /) - kao(:, 2, 2,11) = (/ & - &5.3180e-03 ,5.4523e-03 ,5.6480e-03 ,5.7960e-03 ,8.0504e-03 ,1.1015e-02 , & - &1.3308e-02 ,1.6901e-02 ,1.5834e-02 /) - kao(:, 3, 2,11) = (/ & - &4.1509e-03 ,5.0420e-03 ,5.9494e-03 ,7.8778e-03 ,1.1077e-02 ,1.4709e-02 , & - &1.7403e-02 ,2.2592e-02 ,2.1710e-02 /) - kao(:, 4, 2,11) = (/ & - &3.7251e-03 ,5.8604e-03 ,7.1881e-03 ,1.0249e-02 ,1.4831e-02 ,1.9015e-02 , & - &2.1299e-02 ,2.9770e-02 ,2.9198e-02 /) - kao(:, 5, 2,11) = (/ & - &3.3170e-03 ,7.3759e-03 ,9.2312e-03 ,1.4285e-02 ,1.9035e-02 ,2.3096e-02 , & - &2.6856e-02 ,3.8325e-02 ,3.7190e-02 /) - kao(:, 1, 3,11) = (/ & - &2.3930e-02 ,2.1175e-02 ,1.8068e-02 ,1.3752e-02 ,9.3232e-03 ,6.3033e-03 , & - &9.0890e-03 ,1.0309e-02 ,9.2920e-03 /) - kao(:, 2, 3,11) = (/ & - &2.1364e-02 ,1.8346e-02 ,1.4408e-02 ,1.0567e-02 ,7.3487e-03 ,8.3255e-03 , & - &1.2320e-02 ,1.3559e-02 ,1.1942e-02 /) - kao(:, 3, 3,11) = (/ & - &1.6897e-02 ,1.4069e-02 ,1.1090e-02 ,9.4072e-03 ,9.0158e-03 ,1.2182e-02 , & - &1.6529e-02 ,1.8032e-02 ,1.6702e-02 /) - kao(:, 4, 3,11) = (/ & - &1.1735e-02 ,1.1062e-02 ,1.1919e-02 ,1.0177e-02 ,1.1885e-02 ,1.6740e-02 , & - &2.0422e-02 ,2.2761e-02 ,2.2381e-02 /) - kao(:, 5, 3,11) = (/ & - &9.3268e-03 ,1.0886e-02 ,1.2245e-02 ,1.2355e-02 ,1.5695e-02 ,2.1667e-02 , & - &2.4460e-02 ,2.7729e-02 ,3.0274e-02 /) - kao(:, 1, 4,11) = (/ & - &5.8030e-02 ,5.0790e-02 ,4.4332e-02 ,3.7503e-02 ,3.1337e-02 ,2.3862e-02 , & - &1.5919e-02 ,8.9924e-03 ,1.0517e-02 /) - kao(:, 2, 4,11) = (/ & - &5.8203e-02 ,5.1238e-02 ,4.3852e-02 ,3.6687e-02 ,2.8842e-02 ,2.1050e-02 , & - &1.3525e-02 ,1.1884e-02 ,1.5506e-02 /) - kao(:, 3, 4,11) = (/ & - &6.0219e-02 ,5.3113e-02 ,4.5845e-02 ,3.6288e-02 ,2.6852e-02 ,1.6648e-02 , & - &1.3537e-02 ,1.6277e-02 ,1.8129e-02 /) - kao(:, 4, 4,11) = (/ & - &4.9871e-02 ,4.2283e-02 ,3.5849e-02 ,2.8922e-02 ,1.9343e-02 ,1.4341e-02 , & - &1.8188e-02 ,2.0990e-02 ,2.0822e-02 /) - kao(:, 5, 4,11) = (/ & - &3.8385e-02 ,3.4058e-02 ,2.7365e-02 ,2.1994e-02 ,1.7140e-02 ,1.6164e-02 , & - &2.3472e-02 ,2.6305e-02 ,2.6373e-02 /) - kao(:, 1, 5,11) = (/ & - &1.3556e-01 ,1.1844e-01 ,1.0158e-01 ,8.5252e-02 ,6.8440e-02 ,5.1875e-02 , & - &3.5448e-02 ,1.8978e-02 ,8.8762e-03 /) - kao(:, 2, 5,11) = (/ & - &1.3807e-01 ,1.2082e-01 ,1.0421e-01 ,8.7432e-02 ,7.0858e-02 ,5.4903e-02 , & - &3.7824e-02 ,2.0068e-02 ,1.1692e-02 /) - kao(:, 3, 5,11) = (/ & - &1.3721e-01 ,1.2013e-01 ,1.0360e-01 ,8.7259e-02 ,7.0575e-02 ,5.3560e-02 , & - &3.5670e-02 ,1.8870e-02 ,1.8216e-02 /) - kao(:, 4, 5,11) = (/ & - &1.2962e-01 ,1.1333e-01 ,9.6679e-02 ,8.1723e-02 ,6.6334e-02 ,5.1939e-02 , & - &3.3737e-02 ,2.0192e-02 ,2.7154e-02 /) - kao(:, 5, 5,11) = (/ & - &1.2340e-01 ,1.0852e-01 ,9.2540e-02 ,7.8313e-02 ,6.2622e-02 ,4.1413e-02 , & - &2.5923e-02 ,2.4326e-02 ,3.4052e-02 /) - kao(:, 1, 6,11) = (/ & - &2.8825e-01 ,2.5222e-01 ,2.1620e-01 ,1.8017e-01 ,1.4417e-01 ,1.0893e-01 , & - &7.3359e-02 ,3.7509e-02 ,5.6670e-03 /) - kao(:, 2, 6,11) = (/ & - &2.8768e-01 ,2.5188e-01 ,2.1600e-01 ,1.7993e-01 ,1.4497e-01 ,1.0976e-01 , & - &7.3838e-02 ,3.8599e-02 ,8.8428e-03 /) - kao(:, 3, 6,11) = (/ & - &2.8241e-01 ,2.4722e-01 ,2.1181e-01 ,1.7724e-01 ,1.4248e-01 ,1.0766e-01 , & - &7.3624e-02 ,3.9950e-02 ,1.3973e-02 /) - kao(:, 4, 6,11) = (/ & - &2.8627e-01 ,2.5067e-01 ,2.1487e-01 ,1.8056e-01 ,1.4619e-01 ,1.1172e-01 , & - &7.8306e-02 ,4.0986e-02 ,2.0403e-02 /) - kao(:, 5, 6,11) = (/ & - &2.7874e-01 ,2.4399e-01 ,2.0989e-01 ,1.7645e-01 ,1.4231e-01 ,1.0969e-01 , & - &7.6704e-02 ,4.0995e-02 ,2.4450e-02 /) - kao(:, 1, 7,11) = (/ & - &6.1169e-01 ,5.3575e-01 ,4.5923e-01 ,3.8252e-01 ,3.0616e-01 ,2.2929e-01 , & - &1.5383e-01 ,7.7531e-02 ,2.8956e-03 /) - kao(:, 2, 7,11) = (/ & - &6.1159e-01 ,5.3511e-01 ,4.5848e-01 ,3.8242e-01 ,3.0567e-01 ,2.3004e-01 , & - &1.5345e-01 ,7.7731e-02 ,6.2629e-03 /) - kao(:, 3, 7,11) = (/ & - &6.0642e-01 ,5.3036e-01 ,4.5410e-01 ,3.7880e-01 ,3.0308e-01 ,2.2893e-01 , & - &1.5450e-01 ,7.9546e-02 ,1.1879e-02 /) - kao(:, 4, 7,11) = (/ & - &6.2322e-01 ,5.4531e-01 ,4.6718e-01 ,3.8974e-01 ,3.1356e-01 ,2.3563e-01 , & - &1.5873e-01 ,8.1521e-02 ,1.3030e-02 /) - kao(:, 5, 7,11) = (/ & - &6.1773e-01 ,5.4019e-01 ,4.6283e-01 ,3.8859e-01 ,3.1161e-01 ,2.3601e-01 , & - &1.5998e-01 ,8.3125e-02 ,1.9458e-02 /) - kao(:, 1, 8,11) = (/ & - &1.4932e+00 ,1.3065e+00 ,1.1199e+00 ,9.3315e-01 ,7.4665e-01 ,5.5991e-01 , & - &3.7327e-01 ,1.8697e-01 ,1.1999e-05 /) - kao(:, 2, 8,11) = (/ & - &1.5196e+00 ,1.3312e+00 ,1.1397e+00 ,9.5010e-01 ,7.6026e-01 ,5.7020e-01 , & - &3.8013e-01 ,1.9174e-01 ,7.7042e-03 /) - kao(:, 3, 8,11) = (/ & - &1.5505e+00 ,1.3567e+00 ,1.1629e+00 ,9.6902e-01 ,7.7525e-01 ,5.8146e-01 , & - &3.8981e-01 ,1.9691e-01 ,1.2006e-02 /) - kao(:, 4, 8,11) = (/ & - &1.4878e+00 ,1.3018e+00 ,1.1160e+00 ,9.2984e-01 ,7.4341e-01 ,5.5771e-01 , & - &3.7622e-01 ,1.9146e-01 ,1.2696e-02 /) - kao(:, 5, 8,11) = (/ & - &1.4729e+00 ,1.2883e+00 ,1.1049e+00 ,9.2129e-01 ,7.3618e-01 ,5.5599e-01 , & - &3.7163e-01 ,1.8805e-01 ,1.8722e-02 /) - kao(:, 1, 9,11) = (/ & - &6.8904e+00 ,6.0266e+00 ,5.1680e+00 ,4.3068e+00 ,3.4452e+00 ,2.5839e+00 , & - &1.7234e+00 ,8.6092e-01 ,6.7224e-06 /) - kao(:, 2, 9,11) = (/ & - &7.0980e+00 ,6.2107e+00 ,5.3294e+00 ,4.4415e+00 ,3.5510e+00 ,2.6633e+00 , & - &1.7755e+00 ,8.8723e-01 ,1.2025e-05 /) - kao(:, 3, 9,11) = (/ & - &7.2688e+00 ,6.3564e+00 ,5.4482e+00 ,4.5401e+00 ,3.6343e+00 ,2.7243e+00 , & - &1.8161e+00 ,9.0754e-01 ,1.9985e-05 /) - kao(:, 4, 9,11) = (/ & - &7.1740e+00 ,6.2782e+00 ,5.3807e+00 ,4.4818e+00 ,3.5855e+00 ,2.6901e+00 , & - &1.7938e+00 ,8.9646e-01 ,3.0947e-05 /) - kao(:, 5, 9,11) = (/ & - &6.7468e+00 ,5.9097e+00 ,5.0601e+00 ,4.2188e+00 ,3.3754e+00 ,2.5313e+00 , & - &1.6873e+00 ,8.4597e-01 ,4.6476e-05 /) - kao(:, 1,10,11) = (/ & - &3.5457e+01 ,3.1027e+01 ,2.6582e+01 ,2.2175e+01 ,1.7740e+01 ,1.3297e+01 , & - &8.8648e+00 ,4.4349e+00 ,3.8551e-06 /) - kao(:, 2,10,11) = (/ & - &3.5857e+01 ,3.1366e+01 ,2.6891e+01 ,2.2421e+01 ,1.7929e+01 ,1.3446e+01 , & - &8.9645e+00 ,4.4822e+00 ,7.1785e-06 /) - kao(:, 3,10,11) = (/ & - &3.7065e+01 ,3.2447e+01 ,2.7799e+01 ,2.3166e+01 ,1.8532e+01 ,1.3906e+01 , & - &9.2664e+00 ,4.6331e+00 ,1.2630e-05 /) - kao(:, 4,10,11) = (/ & - &3.6718e+01 ,3.2113e+01 ,2.7539e+01 ,2.2938e+01 ,1.8366e+01 ,1.3764e+01 , & - &9.1841e+00 ,4.5916e+00 ,2.1179e-05 /) - kao(:, 5,10,11) = (/ & - &3.5010e+01 ,3.0613e+01 ,2.6257e+01 ,2.1870e+01 ,1.7497e+01 ,1.3129e+01 , & - &8.7481e+00 ,4.3808e+00 ,3.3504e-05 /) - kao(:, 1,11,11) = (/ & - &6.2218e+01 ,5.4427e+01 ,4.6646e+01 ,3.8874e+01 ,3.1110e+01 ,2.3334e+01 , & - &1.5561e+01 ,7.7776e+00 ,3.5875e-06 /) - kao(:, 2,11,11) = (/ & - &6.2105e+01 ,5.4407e+01 ,4.6579e+01 ,3.8839e+01 ,3.1033e+01 ,2.3318e+01 , & - &1.5536e+01 ,7.7679e+00 ,5.9066e-06 /) - kao(:, 3,11,11) = (/ & - &6.4816e+01 ,5.6715e+01 ,4.8615e+01 ,4.0513e+01 ,3.2442e+01 ,2.4317e+01 , & - &1.6205e+01 ,8.1056e+00 ,1.0776e-05 /) - kao(:, 4,11,11) = (/ & - &6.2787e+01 ,5.4987e+01 ,4.7112e+01 ,3.9241e+01 ,3.1378e+01 ,2.3555e+01 , & - &1.5697e+01 ,7.8485e+00 ,1.7304e-05 /) - kao(:, 5,11,11) = (/ & - &6.1876e+01 ,5.4130e+01 ,4.6407e+01 ,3.8627e+01 ,3.0933e+01 ,2.3204e+01 , & - &1.5469e+01 ,7.7346e+00 ,2.7512e-05 /) - kao(:, 1,12,11) = (/ & - &8.0103e+01 ,7.0095e+01 ,6.0103e+01 ,5.0066e+01 ,4.0052e+01 ,3.0040e+01 , & - &2.0026e+01 ,1.0013e+01 ,3.2505e-06 /) - kao(:, 2,12,11) = (/ & - &7.9090e+01 ,6.9204e+01 ,5.9318e+01 ,4.9432e+01 ,3.9544e+01 ,2.9659e+01 , & - &1.9773e+01 ,9.8860e+00 ,5.5034e-06 /) - kao(:, 3,12,11) = (/ & - &7.9848e+01 ,6.9859e+01 ,5.9882e+01 ,4.9902e+01 ,3.9894e+01 ,2.9946e+01 , & - &1.9960e+01 ,9.9805e+00 ,8.6063e-06 /) - kao(:, 4,12,11) = (/ & - &7.8661e+01 ,6.8779e+01 ,5.8977e+01 ,4.9159e+01 ,3.9293e+01 ,2.9497e+01 , & - &1.9663e+01 ,9.8183e+00 ,1.4131e-05 /) - kao(:, 5,12,11) = (/ & - &7.8792e+01 ,6.8975e+01 ,5.9124e+01 ,4.9246e+01 ,3.9445e+01 ,2.9569e+01 , & - &1.9707e+01 ,9.8563e+00 ,2.3305e-05 /) - kao(:, 1,13,11) = (/ & - &7.5314e+01 ,6.5898e+01 ,5.6507e+01 ,4.7072e+01 ,3.7657e+01 ,2.8254e+01 , & - &1.8828e+01 ,9.4159e+00 ,2.7819e-06 /) - kao(:, 2,13,11) = (/ & - &7.4029e+01 ,6.4852e+01 ,5.5523e+01 ,4.6247e+01 ,3.7031e+01 ,2.7774e+01 , & - &1.8528e+01 ,9.2576e+00 ,5.0908e-06 /) - kao(:, 3,13,11) = (/ & - &7.3797e+01 ,6.4573e+01 ,5.5347e+01 ,4.6143e+01 ,3.6917e+01 ,2.7689e+01 , & - &1.8458e+01 ,9.2250e+00 ,8.2936e-06 /) - kao(:, 4,13,11) = (/ & - &7.5507e+01 ,6.6112e+01 ,5.6628e+01 ,4.7225e+01 ,3.7779e+01 ,2.8348e+01 , & - &1.8877e+01 ,9.4449e+00 ,1.2487e-05 /) - kao(:, 5,13,11) = (/ & - &7.6962e+01 ,6.7290e+01 ,5.7729e+01 ,4.8107e+01 ,3.8486e+01 ,2.8863e+01 , & - &1.9221e+01 ,9.6284e+00 ,1.8751e-05 /) - kao(:, 1, 1,12) = (/ & - &1.1046e-03 ,3.3707e-03 ,5.0558e-03 ,8.2647e-03 ,9.1015e-03 ,1.0694e-02 , & - &1.8807e-02 ,2.2647e-02 ,1.8110e-02 /) - kao(:, 2, 1,12) = (/ & - &1.0969e-03 ,4.7708e-03 ,7.6740e-03 ,1.0546e-02 ,1.0900e-02 ,1.6801e-02 , & - &2.5799e-02 ,3.1294e-02 ,2.2312e-02 /) - kao(:, 3, 1,12) = (/ & - &1.0873e-03 ,6.1594e-03 ,1.0535e-02 ,1.2275e-02 ,1.5399e-02 ,2.5780e-02 , & - &3.4278e-02 ,4.1551e-02 ,3.1702e-02 /) - kao(:, 4, 1,12) = (/ & - &1.0681e-03 ,6.7407e-03 ,1.3124e-02 ,1.6579e-02 ,1.9835e-02 ,3.5596e-02 , & - &4.4369e-02 ,5.3472e-02 ,4.1109e-02 /) - kao(:, 5, 1,12) = (/ & - &1.0270e-03 ,8.1418e-03 ,1.5112e-02 ,2.0848e-02 ,2.8658e-02 ,4.6490e-02 , & - &5.6118e-02 ,6.7233e-02 ,5.7448e-02 /) - kao(:, 1, 2,12) = (/ & - &1.5646e-03 ,3.6954e-03 ,5.8279e-03 ,7.1796e-03 ,9.8217e-03 ,9.7524e-03 , & - &1.1081e-02 ,1.8489e-02 ,1.8167e-02 /) - kao(:, 2, 2,12) = (/ & - &1.5547e-03 ,3.8903e-03 ,7.0691e-03 ,1.0316e-02 ,1.1952e-02 ,1.3642e-02 , & - &1.6631e-02 ,2.5775e-02 ,2.2105e-02 /) - kao(:, 3, 2,12) = (/ & - &1.5005e-03 ,5.8120e-03 ,1.0164e-02 ,1.2828e-02 ,1.5616e-02 ,1.8084e-02 , & - &2.4815e-02 ,3.4836e-02 ,2.8922e-02 /) - kao(:, 4, 2,12) = (/ & - &1.4224e-03 ,7.6958e-03 ,1.3586e-02 ,1.5505e-02 ,1.9916e-02 ,2.3661e-02 , & - &3.6496e-02 ,4.5732e-02 ,3.8152e-02 /) - kao(:, 5, 2,12) = (/ & - &1.3736e-03 ,9.1086e-03 ,1.6016e-02 ,2.0127e-02 ,2.5470e-02 ,3.1020e-02 , & - &5.0141e-02 ,5.8654e-02 ,5.1074e-02 /) - kao(:, 1, 3,12) = (/ & - &1.0482e-02 ,8.9646e-03 ,6.8350e-03 ,8.2815e-03 ,8.8992e-03 ,1.0605e-02 , & - &1.0328e-02 ,1.1583e-02 ,1.6044e-02 /) - kao(:, 2, 3,12) = (/ & - &5.7078e-03 ,6.1160e-03 ,7.6830e-03 ,9.7377e-03 ,1.2964e-02 ,1.2587e-02 , & - &1.4124e-02 ,1.6978e-02 ,2.4120e-02 /) - kao(:, 3, 3,12) = (/ & - &3.9502e-03 ,6.0459e-03 ,1.0569e-02 ,1.4120e-02 ,1.6811e-02 ,1.6440e-02 , & - &1.9141e-02 ,2.2713e-02 ,3.1566e-02 /) - kao(:, 4, 3,12) = (/ & - &3.2701e-03 ,7.5815e-03 ,1.2592e-02 ,1.9220e-02 ,1.9128e-02 ,2.1966e-02 , & - &2.6084e-02 ,3.3096e-02 ,3.6118e-02 /) - kao(:, 5, 3,12) = (/ & - &2.7401e-03 ,7.8080e-03 ,1.5492e-02 ,2.3290e-02 ,2.4892e-02 ,2.8848e-02 , & - &3.4321e-02 ,4.6873e-02 ,4.7340e-02 /) - kao(:, 1, 4,12) = (/ & - &6.0672e-02 ,5.3090e-02 ,4.4556e-02 ,3.6202e-02 ,2.6483e-02 ,1.8181e-02 , & - &1.2199e-02 ,1.0993e-02 ,1.4969e-02 /) - kao(:, 2, 4,12) = (/ & - &4.3589e-02 ,3.8144e-02 ,3.0755e-02 ,2.3593e-02 ,1.9730e-02 ,1.5624e-02 , & - &1.3490e-02 ,1.5542e-02 ,2.0057e-02 /) - kao(:, 3, 4,12) = (/ & - &2.4695e-02 ,2.2865e-02 ,1.7074e-02 ,1.5816e-02 ,1.6661e-02 ,2.0463e-02 , & - &1.7348e-02 ,2.1210e-02 ,2.8829e-02 /) - kao(:, 4, 4,12) = (/ & - &1.4306e-02 ,1.8283e-02 ,1.4453e-02 ,1.9081e-02 ,2.2731e-02 ,2.4085e-02 , & - &2.3223e-02 ,2.7809e-02 ,4.1362e-02 /) - kao(:, 5, 4,12) = (/ & - &1.0713e-02 ,1.1979e-02 ,1.4158e-02 ,2.2119e-02 ,2.9428e-02 ,2.9426e-02 , & - &3.0795e-02 ,3.5958e-02 ,5.4444e-02 /) - kao(:, 1, 5,12) = (/ & - &1.5652e-01 ,1.3723e-01 ,1.1755e-01 ,9.8247e-02 ,7.8467e-02 ,5.9349e-02 , & - &3.9820e-02 ,1.8398e-02 ,1.1394e-02 /) - kao(:, 2, 5,12) = (/ & - &1.5350e-01 ,1.3431e-01 ,1.1514e-01 ,9.6381e-02 ,7.7667e-02 ,5.6368e-02 , & - &3.3743e-02 ,1.4780e-02 ,1.5913e-02 /) - kao(:, 3, 5,12) = (/ & - &1.3349e-01 ,1.1672e-01 ,9.9565e-02 ,8.1852e-02 ,6.1169e-02 ,4.3464e-02 , & - &2.9522e-02 ,1.7569e-02 ,2.3571e-02 /) - kao(:, 4, 5,12) = (/ & - &1.0423e-01 ,9.1271e-02 ,7.7253e-02 ,6.0811e-02 ,4.8046e-02 ,3.4464e-02 , & - &2.5349e-02 ,2.3626e-02 ,3.4271e-02 /) - kao(:, 5, 5,12) = (/ & - &6.1168e-02 ,5.3666e-02 ,4.5385e-02 ,3.6131e-02 ,3.2187e-02 ,3.6873e-02 , & - &3.0883e-02 ,3.2443e-02 ,4.3030e-02 /) - kao(:, 1, 6,12) = (/ & - &3.3296e-01 ,2.9114e-01 ,2.4975e-01 ,2.0812e-01 ,1.6650e-01 ,1.2577e-01 , & - &8.4465e-02 ,4.3210e-02 ,7.5744e-03 /) - kao(:, 2, 6,12) = (/ & - &3.2661e-01 ,2.8604e-01 ,2.4502e-01 ,2.0429e-01 ,1.6474e-01 ,1.2400e-01 , & - &8.4046e-02 ,4.3324e-02 ,1.2737e-02 /) - kao(:, 3, 6,12) = (/ & - &3.3274e-01 ,2.9155e-01 ,2.4958e-01 ,2.1022e-01 ,1.6841e-01 ,1.2817e-01 , & - &8.5832e-02 ,4.1156e-02 ,1.9272e-02 /) - kao(:, 4, 6,12) = (/ & - &3.2428e-01 ,2.8378e-01 ,2.4307e-01 ,2.0420e-01 ,1.6451e-01 ,1.2138e-01 , & - &7.6212e-02 ,3.3602e-02 ,2.1893e-02 /) - kao(:, 5, 6,12) = (/ & - &2.8830e-01 ,2.5208e-01 ,2.1788e-01 ,1.7562e-01 ,1.3634e-01 ,9.6797e-02 , & - &6.1659e-02 ,2.8996e-02 ,3.3943e-02 /) - kao(:, 1, 7,12) = (/ & - &7.1633e-01 ,6.2687e-01 ,5.3652e-01 ,4.4712e-01 ,3.5797e-01 ,2.6845e-01 , & - &1.7938e-01 ,9.0924e-02 ,9.7506e-03 /) - kao(:, 2, 7,12) = (/ & - &7.4602e-01 ,6.5233e-01 ,5.5949e-01 ,4.6595e-01 ,3.7278e-01 ,2.7940e-01 , & - &1.8898e-01 ,9.6146e-02 ,1.9089e-02 /) - kao(:, 3, 7,12) = (/ & - &7.5756e-01 ,6.6287e-01 ,5.6888e-01 ,4.7384e-01 ,3.7881e-01 ,2.8626e-01 , & - &1.9222e-01 ,9.8080e-02 ,1.5850e-02 /) - kao(:, 4, 7,12) = (/ & - &7.2210e-01 ,6.3187e-01 ,5.4195e-01 ,4.5134e-01 ,3.6428e-01 ,2.7503e-01 , & - &1.8532e-01 ,9.5998e-02 ,2.2744e-02 /) - kao(:, 5, 7,12) = (/ & - &7.1833e-01 ,6.2908e-01 ,5.3886e-01 ,4.4907e-01 ,3.6079e-01 ,2.7147e-01 , & - &1.8148e-01 ,9.1961e-02 ,3.2788e-02 /) - kao(:, 1, 8,12) = (/ & - &1.8651e+00 ,1.6319e+00 ,1.3988e+00 ,1.1656e+00 ,9.3248e-01 ,6.9936e-01 , & - &4.6627e-01 ,2.3315e-01 ,7.1174e-06 /) - kao(:, 2, 8,12) = (/ & - &1.9142e+00 ,1.6730e+00 ,1.4347e+00 ,1.1964e+00 ,9.5588e-01 ,7.1697e-01 , & - &4.7797e-01 ,2.4089e-01 ,1.3089e-05 /) - kao(:, 3, 8,12) = (/ & - &1.9338e+00 ,1.6922e+00 ,1.4504e+00 ,1.2080e+00 ,9.6694e-01 ,7.2522e-01 , & - &4.8350e-01 ,2.4403e-01 ,6.4382e-03 /) - kao(:, 4, 8,12) = (/ & - &1.9257e+00 ,1.6851e+00 ,1.4444e+00 ,1.2027e+00 ,9.6352e-01 ,7.2222e-01 , & - &4.8580e-01 ,2.4642e-01 ,2.0202e-02 /) - kao(:, 5, 8,12) = (/ & - &1.8578e+00 ,1.6228e+00 ,1.3921e+00 ,1.1585e+00 ,9.2745e-01 ,6.9620e-01 , & - &4.7147e-01 ,2.4294e-01 ,3.5578e-02 /) - kao(:, 1, 9,12) = (/ & - &8.9732e+00 ,7.8574e+00 ,6.7348e+00 ,5.6085e+00 ,4.4901e+00 ,3.3675e+00 , & - &2.2449e+00 ,1.1217e+00 ,5.5128e-06 /) - kao(:, 2, 9,12) = (/ & - &9.0176e+00 ,7.8899e+00 ,6.7555e+00 ,5.6293e+00 ,4.5061e+00 ,3.3798e+00 , & - &2.2531e+00 ,1.1272e+00 ,1.0749e-05 /) - kao(:, 3, 9,12) = (/ & - &9.1462e+00 ,8.0080e+00 ,6.8640e+00 ,5.7226e+00 ,4.5733e+00 ,3.4343e+00 , & - &2.2880e+00 ,1.1452e+00 ,1.7030e-05 /) - kao(:, 4, 9,12) = (/ & - &9.3997e+00 ,8.2308e+00 ,7.0500e+00 ,5.8749e+00 ,4.7035e+00 ,3.5295e+00 , & - &2.3500e+00 ,1.1750e+00 ,2.7289e-05 /) - kao(:, 5, 9,12) = (/ & - &9.4496e+00 ,8.2622e+00 ,7.0818e+00 ,5.9018e+00 ,4.7215e+00 ,3.5410e+00 , & - &2.3622e+00 ,1.1804e+00 ,4.0208e-05 /) - kao(:, 1,10,12) = (/ & - &4.7340e+01 ,4.1390e+01 ,3.5503e+01 ,2.9570e+01 ,2.3638e+01 ,1.7753e+01 , & - &1.1835e+01 ,5.9140e+00 ,4.0857e-06 /) - kao(:, 2,10,12) = (/ & - &4.7468e+01 ,4.1532e+01 ,3.5600e+01 ,2.9666e+01 ,2.3733e+01 ,1.7801e+01 , & - &1.1867e+01 ,5.9335e+00 ,7.3318e-06 /) - kao(:, 3,10,12) = (/ & - &4.7779e+01 ,4.1808e+01 ,3.5836e+01 ,2.9862e+01 ,2.3890e+01 ,1.7931e+01 , & - &1.1954e+01 ,5.9724e+00 ,1.2287e-05 /) - kao(:, 4,10,12) = (/ & - &5.0181e+01 ,4.3911e+01 ,3.7609e+01 ,3.1364e+01 ,2.5077e+01 ,1.8819e+01 , & - &1.2546e+01 ,6.2708e+00 ,2.0136e-05 /) - kao(:, 5,10,12) = (/ & - &5.0358e+01 ,4.4054e+01 ,3.7768e+01 ,3.1474e+01 ,2.5199e+01 ,1.8885e+01 , & - &1.2590e+01 ,6.2949e+00 ,3.0786e-05 /) - kao(:, 1,11,12) = (/ & - &8.8012e+01 ,7.7091e+01 ,6.6061e+01 ,5.5064e+01 ,4.4041e+01 ,3.3007e+01 , & - &2.2019e+01 ,1.1017e+01 ,3.6494e-06 /) - kao(:, 2,11,12) = (/ & - &8.9290e+01 ,7.8045e+01 ,6.6917e+01 ,5.5778e+01 ,4.4669e+01 ,3.3448e+01 , & - &2.2295e+01 ,1.1156e+01 ,6.7273e-06 /) - kao(:, 3,11,12) = (/ & - &8.6982e+01 ,7.6115e+01 ,6.5187e+01 ,5.4368e+01 ,4.3469e+01 ,3.2619e+01 , & - &2.1748e+01 ,1.0873e+01 ,1.1236e-05 /) - kao(:, 4,11,12) = (/ & - &8.9808e+01 ,7.8580e+01 ,6.7351e+01 ,5.6127e+01 ,4.4937e+01 ,3.3677e+01 , & - &2.2469e+01 ,1.1226e+01 ,1.9240e-05 /) - kao(:, 5,11,12) = (/ & - &9.0868e+01 ,7.9552e+01 ,6.8146e+01 ,5.6871e+01 ,4.5498e+01 ,3.4074e+01 , & - &2.2716e+01 ,1.1367e+01 ,2.9192e-05 /) - kao(:, 1,12,12) = (/ & - &1.1586e+02 ,1.0129e+02 ,8.6824e+01 ,7.2354e+01 ,5.7931e+01 ,4.3416e+01 , & - &2.8943e+01 ,1.4471e+01 ,2.9778e-06 /) - kao(:, 2,12,12) = (/ & - &1.1852e+02 ,1.0370e+02 ,8.8887e+01 ,7.4073e+01 ,5.9259e+01 ,4.4444e+01 , & - &2.9629e+01 ,1.4815e+01 ,6.0415e-06 /) - kao(:, 3,12,12) = (/ & - &1.1782e+02 ,1.0310e+02 ,8.8376e+01 ,7.3644e+01 ,5.8951e+01 ,4.4160e+01 , & - &2.9459e+01 ,1.4728e+01 ,1.0435e-05 /) - kao(:, 4,12,12) = (/ & - &1.1710e+02 ,1.0244e+02 ,8.7885e+01 ,7.3194e+01 ,5.8621e+01 ,4.3876e+01 , & - &2.9251e+01 ,1.4654e+01 ,1.8188e-05 /) - kao(:, 5,12,12) = (/ & - &1.1577e+02 ,1.0131e+02 ,8.6825e+01 ,7.2359e+01 ,5.7901e+01 ,4.3424e+01 , & - &2.8943e+01 ,1.4462e+01 ,2.8178e-05 /) - kao(:, 1,13,12) = (/ & - &1.1625e+02 ,1.0180e+02 ,8.7251e+01 ,7.2708e+01 ,5.8118e+01 ,4.3593e+01 , & - &2.9061e+01 ,1.4533e+01 ,2.6097e-06 /) - kao(:, 2,13,12) = (/ & - &1.1986e+02 ,1.0483e+02 ,8.9927e+01 ,7.4912e+01 ,5.9931e+01 ,4.4948e+01 , & - &2.9950e+01 ,1.4982e+01 ,4.5705e-06 /) - kao(:, 3,13,12) = (/ & - &1.1859e+02 ,1.0377e+02 ,8.8940e+01 ,7.4121e+01 ,5.9293e+01 ,4.4471e+01 , & - &2.9646e+01 ,1.4823e+01 ,9.6333e-06 /) - kao(:, 4,13,12) = (/ & - &1.1553e+02 ,1.0103e+02 ,8.6643e+01 ,7.2158e+01 ,5.7729e+01 ,4.3335e+01 , & - &2.8881e+01 ,1.4445e+01 ,1.6615e-05 /) - kao(:, 5,13,12) = (/ & - &1.1521e+02 ,1.0087e+02 ,8.6350e+01 ,7.1959e+01 ,5.7620e+01 ,4.3214e+01 , & - &2.8812e+01 ,1.4383e+01 ,2.5689e-05 /) - kao(:, 1, 1,13) = (/ & - &1.2352e-03 ,5.0775e-03 ,9.0568e-03 ,9.6608e-03 ,1.7051e-02 ,2.9171e-02 , & - &3.4997e-02 ,4.0847e-02 ,3.4367e-02 /) - kao(:, 2, 1,13) = (/ & - &1.2435e-03 ,6.8803e-03 ,1.1829e-02 ,1.3668e-02 ,2.8015e-02 ,4.0318e-02 , & - &4.8254e-02 ,5.5929e-02 ,5.6166e-02 /) - kao(:, 3, 1,13) = (/ & - &1.2378e-03 ,7.6901e-03 ,1.3370e-02 ,2.0872e-02 ,4.0011e-02 ,5.3853e-02 , & - &6.4341e-02 ,7.4163e-02 ,8.0135e-02 /) - kao(:, 4, 1,13) = (/ & - &1.2280e-03 ,1.0734e-02 ,1.6343e-02 ,3.0629e-02 ,5.6049e-02 ,6.9850e-02 , & - &8.3340e-02 ,9.5619e-02 ,1.1209e-01 /) - kao(:, 5, 1,13) = (/ & - &1.2088e-03 ,1.3761e-02 ,2.1254e-02 ,4.2402e-02 ,7.0900e-02 ,8.8313e-02 , & - &1.0523e-01 ,1.2032e-01 ,1.4179e-01 /) - kao(:, 1, 2,13) = (/ & - &1.7062e-03 ,5.0744e-03 ,8.6767e-03 ,1.3080e-02 ,1.1607e-02 ,1.7056e-02 , & - &2.8742e-02 ,3.5357e-02 ,2.3747e-02 /) - kao(:, 2, 2,13) = (/ & - &1.7222e-03 ,6.7515e-03 ,1.2374e-02 ,1.5331e-02 ,1.8393e-02 ,2.7370e-02 , & - &4.2648e-02 ,4.9678e-02 ,3.7912e-02 /) - kao(:, 3, 2,13) = (/ & - &1.7299e-03 ,8.6001e-03 ,1.6797e-02 ,2.0526e-02 ,2.6294e-02 ,4.1034e-02 , & - &5.7948e-02 ,6.7295e-02 ,5.4721e-02 /) - kao(:, 4, 2,13) = (/ & - &1.7668e-03 ,1.0879e-02 ,2.0064e-02 ,2.7385e-02 ,3.4476e-02 ,5.8386e-02 , & - &7.6246e-02 ,8.8358e-02 ,7.0573e-02 /) - kao(:, 5, 2,13) = (/ & - &1.7596e-03 ,1.1860e-02 ,2.3664e-02 ,3.3939e-02 ,4.8492e-02 ,7.9884e-02 , & - &9.7519e-02 ,1.1290e-01 ,9.7083e-02 /) - kao(:, 1, 3,13) = (/ & - &3.1651e-03 ,5.2961e-03 ,8.5469e-03 ,1.1513e-02 ,1.5558e-02 ,1.4881e-02 , & - &1.6424e-02 ,2.5024e-02 ,2.8147e-02 /) - kao(:, 2, 3,13) = (/ & - &3.3189e-03 ,8.3809e-03 ,1.1489e-02 ,1.6299e-02 ,2.2221e-02 ,2.2841e-02 , & - &2.5024e-02 ,3.8200e-02 ,3.8233e-02 /) - kao(:, 3, 3,13) = (/ & - &3.3701e-03 ,1.1923e-02 ,1.5036e-02 ,2.2373e-02 ,2.6383e-02 ,3.1900e-02 , & - &3.2997e-02 ,5.6522e-02 ,4.6578e-02 /) - kao(:, 4, 3,13) = (/ & - &3.3871e-03 ,1.2781e-02 ,1.7799e-02 ,2.9758e-02 ,3.5615e-02 ,4.1357e-02 , & - &4.8578e-02 ,7.5987e-02 ,6.6261e-02 /) - kao(:, 5, 3,13) = (/ & - &3.3797e-03 ,1.4220e-02 ,2.3964e-02 ,3.5644e-02 ,4.5626e-02 ,4.9180e-02 , & - &6.9386e-02 ,9.9109e-02 ,8.8310e-02 /) - kao(:, 1, 4,13) = (/ & - &1.0343e-02 ,9.0620e-03 ,1.2015e-02 ,1.1324e-02 ,1.3382e-02 ,1.5654e-02 , & - &1.8625e-02 ,1.7070e-02 ,2.1331e-02 /) - kao(:, 2, 4,13) = (/ & - &6.4226e-03 ,5.6266e-03 ,1.6045e-02 ,1.6336e-02 ,1.7909e-02 ,2.2857e-02 , & - &2.5406e-02 ,2.4740e-02 ,3.1419e-02 /) - kao(:, 3, 4,13) = (/ & - &6.5549e-03 ,5.7385e-03 ,1.8741e-02 ,2.0901e-02 ,2.5444e-02 ,3.1318e-02 , & - &3.5488e-02 ,3.2476e-02 ,4.5848e-02 /) - kao(:, 4, 4,13) = (/ & - &6.6407e-03 ,5.8164e-03 ,2.0962e-02 ,2.6844e-02 ,3.4892e-02 ,4.1403e-02 , & - &4.7653e-02 ,4.2426e-02 ,6.5116e-02 /) - kao(:, 5, 4,13) = (/ & - &6.8300e-03 ,1.2571e-02 ,2.5118e-02 ,3.2793e-02 ,4.7122e-02 ,5.5638e-02 , & - &5.7712e-02 ,6.2270e-02 ,8.9700e-02 /) - kao(:, 1, 5,13) = (/ & - &9.0149e-02 ,7.8756e-02 ,6.7503e-02 ,5.7299e-02 ,4.6607e-02 ,3.2042e-02 , & - &2.0392e-02 ,1.6128e-02 ,1.9894e-02 /) - kao(:, 2, 5,13) = (/ & - &4.8191e-02 ,4.2297e-02 ,3.6135e-02 ,3.5890e-02 ,2.5466e-02 ,2.2998e-02 , & - &2.3063e-02 ,2.5066e-02 ,2.8493e-02 /) - kao(:, 3, 5,13) = (/ & - &2.0878e-02 ,1.8444e-02 ,2.0162e-02 ,2.6175e-02 ,2.5330e-02 ,2.8034e-02 , & - &3.3888e-02 ,3.5693e-02 ,3.9583e-02 /) - kao(:, 4, 5,13) = (/ & - &1.2467e-02 ,1.0910e-02 ,2.2261e-02 ,3.0489e-02 ,3.2389e-02 ,3.6918e-02 , & - &4.6126e-02 ,4.7452e-02 ,5.4222e-02 /) - kao(:, 5, 5,13) = (/ & - &1.2730e-02 ,1.1204e-02 ,2.9691e-02 ,3.6357e-02 ,4.1593e-02 ,4.9722e-02 , & - &6.1593e-02 ,5.8372e-02 ,7.2216e-02 /) - kao(:, 1, 6,13) = (/ & - &3.3772e-01 ,2.9577e-01 ,2.5329e-01 ,2.1108e-01 ,1.6887e-01 ,1.2604e-01 , & - &7.8045e-02 ,3.5455e-02 ,1.6952e-02 /) - kao(:, 2, 6,13) = (/ & - &2.6913e-01 ,2.3492e-01 ,2.0161e-01 ,1.6802e-01 ,1.3597e-01 ,9.6507e-02 , & - &6.1842e-02 ,3.0282e-02 ,3.2161e-02 /) - kao(:, 3, 6,13) = (/ & - &1.8198e-01 ,1.5897e-01 ,1.3649e-01 ,1.1355e-01 ,1.0014e-01 ,6.6575e-02 , & - &4.2969e-02 ,3.1778e-02 ,5.1438e-02 /) - kao(:, 4, 6,13) = (/ & - &9.5916e-02 ,8.3628e-02 ,7.1947e-02 ,6.5931e-02 ,5.4714e-02 ,4.3955e-02 , & - &3.9042e-02 ,4.5021e-02 ,5.3865e-02 /) - kao(:, 5, 6,13) = (/ & - &3.8338e-02 ,3.3822e-02 ,2.8989e-02 ,4.7523e-02 ,4.4391e-02 ,4.9375e-02 , & - &5.3458e-02 ,6.4090e-02 ,6.5458e-02 /) - kao(:, 1, 7,13) = (/ & - &8.4065e-01 ,7.3491e-01 ,6.3155e-01 ,5.2581e-01 ,4.2110e-01 ,3.1579e-01 , & - &2.1053e-01 ,1.0597e-01 ,2.9312e-06 /) - kao(:, 2, 7,13) = (/ & - &8.3906e-01 ,7.3475e-01 ,6.2926e-01 ,5.2485e-01 ,4.1990e-01 ,3.1520e-01 , & - &2.1013e-01 ,9.8180e-02 ,5.1556e-06 /) - kao(:, 3, 7,13) = (/ & - &7.1003e-01 ,6.2128e-01 ,5.3203e-01 ,4.4338e-01 ,3.5504e-01 ,2.6905e-01 , & - &1.6926e-01 ,7.8231e-02 ,2.0966e-02 /) - kao(:, 4, 7,13) = (/ & - &5.6430e-01 ,4.9377e-01 ,4.2325e-01 ,3.5272e-01 ,2.8217e-01 ,2.1549e-01 , & - &1.3644e-01 ,6.7355e-02 ,4.1095e-02 /) - kao(:, 5, 7,13) = (/ & - &3.6362e-01 ,3.1751e-01 ,2.7269e-01 ,2.2725e-01 ,1.9431e-01 ,1.4468e-01 , & - &9.9409e-02 ,6.2076e-02 ,6.3795e-02 /) - kao(:, 1, 8,13) = (/ & - &2.2236e+00 ,1.9437e+00 ,1.6676e+00 ,1.3884e+00 ,1.1107e+00 ,8.3381e-01 , & - &5.5588e-01 ,2.7795e-01 ,1.5745e-06 /) - kao(:, 2, 8,13) = (/ & - &2.2078e+00 ,1.9318e+00 ,1.6572e+00 ,1.3798e+00 ,1.1048e+00 ,8.2853e-01 , & - &5.5239e-01 ,2.7779e-01 ,2.9445e-06 /) - kao(:, 3, 8,13) = (/ & - &2.2271e+00 ,1.9469e+00 ,1.6686e+00 ,1.3901e+00 ,1.1125e+00 ,8.3518e-01 , & - &5.5623e-01 ,2.8153e-01 ,5.1096e-06 /) - kao(:, 4, 8,13) = (/ & - &2.1637e+00 ,1.8932e+00 ,1.6227e+00 ,1.3534e+00 ,1.0818e+00 ,8.1139e-01 , & - &5.4287e-01 ,2.5697e-01 ,9.9333e-06 /) - kao(:, 5, 8,13) = (/ & - &1.8021e+00 ,1.5805e+00 ,1.3532e+00 ,1.1288e+00 ,9.0270e-01 ,6.7733e-01 , & - &4.5729e-01 ,2.1399e-01 ,3.0555e-05 /) - kao(:, 1, 9,13) = (/ & - &1.0795e+01 ,9.4461e+00 ,8.0967e+00 ,6.7526e+00 ,5.3928e+00 ,4.0485e+00 , & - &2.6990e+00 ,1.3503e+00 ,8.4365e-07 /) - kao(:, 2, 9,13) = (/ & - &1.1064e+01 ,9.6811e+00 ,8.2980e+00 ,6.9149e+00 ,5.5320e+00 ,4.1492e+00 , & - &2.7660e+00 ,1.3844e+00 ,1.6130e-06 /) - kao(:, 3, 9,13) = (/ & - &1.1399e+01 ,9.9733e+00 ,8.5488e+00 ,7.1204e+00 ,5.6991e+00 ,4.2710e+00 , & - &2.8497e+00 ,1.4241e+00 ,6.0805e-06 /) - kao(:, 4, 9,13) = (/ & - &1.1508e+01 ,1.0061e+01 ,8.6395e+00 ,7.1995e+00 ,5.7491e+00 ,4.3120e+00 , & - &2.8800e+00 ,1.4386e+00 ,1.4128e-05 /) - kao(:, 5, 9,13) = (/ & - &1.1400e+01 ,9.9831e+00 ,8.5576e+00 ,7.1312e+00 ,5.7049e+00 ,4.2787e+00 , & - &2.8526e+00 ,1.4263e+00 ,2.6902e-05 /) - kao(:, 1,10,13) = (/ & - &6.0229e+01 ,5.2742e+01 ,4.5172e+01 ,3.7644e+01 ,3.0138e+01 ,2.2585e+01 , & - &1.5057e+01 ,7.5286e+00 ,7.1488e-07 /) - kao(:, 2,10,13) = (/ & - &6.2236e+01 ,5.4452e+01 ,4.6675e+01 ,3.8896e+01 ,3.1118e+01 ,2.3338e+01 , & - &1.5559e+01 ,7.7794e+00 ,2.2353e-06 /) - kao(:, 3,10,13) = (/ & - &6.3127e+01 ,5.5205e+01 ,4.7321e+01 ,3.9431e+01 ,3.1516e+01 ,2.3656e+01 , & - &1.5745e+01 ,7.8865e+00 ,5.3891e-06 /) - kao(:, 4,10,13) = (/ & - &6.1110e+01 ,5.3475e+01 ,4.5823e+01 ,3.8155e+01 ,3.0566e+01 ,2.2893e+01 , & - &1.5262e+01 ,7.6312e+00 ,1.1169e-05 /) - kao(:, 5,10,13) = (/ & - &6.4796e+01 ,5.6740e+01 ,4.8597e+01 ,4.0457e+01 ,3.2404e+01 ,2.4299e+01 , & - &1.6199e+01 ,8.1078e+00 ,2.0550e-05 /) - kao(:, 1,11,13) = (/ & - &1.1504e+02 ,1.0058e+02 ,8.6129e+01 ,7.1842e+01 ,5.7476e+01 ,4.3140e+01 , & - &2.8738e+01 ,1.4357e+01 ,9.3132e-07 /) - kao(:, 2,11,13) = (/ & - &1.1792e+02 ,1.0317e+02 ,8.8507e+01 ,7.3697e+01 ,5.8960e+01 ,4.4221e+01 , & - &2.9502e+01 ,1.4740e+01 ,2.4724e-06 /) - kao(:, 3,11,13) = (/ & - &1.2218e+02 ,1.0691e+02 ,9.1705e+01 ,7.6362e+01 ,6.1091e+01 ,4.5817e+01 , & - &3.0544e+01 ,1.5272e+01 ,5.4659e-06 /) - kao(:, 4,11,13) = (/ & - &1.2095e+02 ,1.0583e+02 ,9.0715e+01 ,7.5596e+01 ,6.0430e+01 ,4.5404e+01 , & - &3.0213e+01 ,1.5120e+01 ,1.0930e-05 /) - kao(:, 5,11,13) = (/ & - &1.1751e+02 ,1.0271e+02 ,8.8136e+01 ,7.3302e+01 ,5.8706e+01 ,4.4021e+01 , & - &2.9378e+01 ,1.4677e+01 ,1.9680e-05 /) - kao(:, 1,12,13) = (/ & - &1.6045e+02 ,1.4037e+02 ,1.2031e+02 ,1.0025e+02 ,8.0142e+01 ,6.0153e+01 , & - &4.0104e+01 ,2.0052e+01 ,1.7476e-06 /) - kao(:, 2,12,13) = (/ & - &1.6342e+02 ,1.4301e+02 ,1.2246e+02 ,1.0215e+02 ,8.1640e+01 ,6.1227e+01 , & - &4.0821e+01 ,2.0431e+01 ,2.4757e-06 /) - kao(:, 3,12,13) = (/ & - &1.6723e+02 ,1.4633e+02 ,1.2542e+02 ,1.0452e+02 ,8.3616e+01 ,6.2709e+01 , & - &4.1810e+01 ,2.0904e+01 ,5.2593e-06 /) - kao(:, 4,12,13) = (/ & - &1.7014e+02 ,1.4884e+02 ,1.2747e+02 ,1.0623e+02 ,8.4980e+01 ,6.3783e+01 , & - &4.2524e+01 ,2.1245e+01 ,9.8363e-06 /) - kao(:, 5,12,13) = (/ & - &1.6634e+02 ,1.4563e+02 ,1.2476e+02 ,1.0397e+02 ,8.3150e+01 ,6.2327e+01 , & - &4.1610e+01 ,2.0792e+01 ,1.5825e-05 /) - kao(:, 1,13,13) = (/ & - &1.7420e+02 ,1.5232e+02 ,1.3056e+02 ,1.0880e+02 ,8.7095e+01 ,6.5324e+01 , & - &4.3550e+01 ,2.1773e+01 ,2.0359e-06 /) - kao(:, 2,13,13) = (/ & - &1.7505e+02 ,1.5318e+02 ,1.3125e+02 ,1.0942e+02 ,8.7528e+01 ,6.5649e+01 , & - &4.3765e+01 ,2.1882e+01 ,3.6885e-06 /) - kao(:, 3,13,13) = (/ & - &1.7705e+02 ,1.5491e+02 ,1.3279e+02 ,1.1065e+02 ,8.8524e+01 ,6.6391e+01 , & - &4.4262e+01 ,2.2130e+01 ,4.3611e-06 /) - kao(:, 4,13,13) = (/ & - &1.7817e+02 ,1.5590e+02 ,1.3363e+02 ,1.1135e+02 ,8.9083e+01 ,6.6758e+01 , & - &4.4540e+01 ,2.2253e+01 ,7.0150e-06 /) - kao(:, 5,13,13) = (/ & - &1.7584e+02 ,1.5385e+02 ,1.3199e+02 ,1.0999e+02 ,8.7917e+01 ,6.5939e+01 , & - &4.3996e+01 ,2.1972e+01 ,1.1356e-05 /) - kao(:, 1, 1,14) = (/ & - &1.3576e-03 ,5.9355e-03 ,1.2070e-02 ,3.4616e-02 ,5.3142e-02 ,6.5578e-02 , & - &7.6852e-02 ,8.4718e-02 ,1.0628e-01 /) - kao(:, 2, 1,14) = (/ & - &1.4884e-03 ,6.6850e-03 ,2.0385e-02 ,5.2397e-02 ,7.2846e-02 ,8.9954e-02 , & - &1.0527e-01 ,1.1545e-01 ,1.4569e-01 /) - kao(:, 3, 1,14) = (/ & - &1.6038e-03 ,1.0153e-02 ,3.3679e-02 ,7.2611e-02 ,9.6223e-02 ,1.1901e-01 , & - &1.3945e-01 ,1.5228e-01 ,1.9245e-01 /) - kao(:, 4, 1,14) = (/ & - &1.7044e-03 ,1.3918e-02 ,4.9229e-02 ,9.2925e-02 ,1.2323e-01 ,1.5253e-01 , & - &1.7914e-01 ,1.9539e-01 ,2.4647e-01 /) - kao(:, 5, 1,14) = (/ & - &1.8000e-03 ,1.6377e-02 ,6.7350e-02 ,1.1593e-01 ,1.5369e-01 ,1.9039e-01 , & - &2.2401e-01 ,2.4471e-01 ,3.0739e-01 /) - kao(:, 1, 2,14) = (/ & - &2.3036e-03 ,8.1410e-03 ,1.1112e-02 ,1.5744e-02 ,3.9389e-02 ,5.9885e-02 , & - &7.1149e-02 ,8.0027e-02 ,7.8847e-02 /) - kao(:, 2, 2,14) = (/ & - &2.5134e-03 ,1.3270e-02 ,1.6290e-02 ,2.9767e-02 ,5.8863e-02 ,8.3096e-02 , & - &9.8866e-02 ,1.1160e-01 ,1.1776e-01 /) - kao(:, 3, 2,14) = (/ & - &2.6930e-03 ,1.4292e-02 ,1.9903e-02 ,4.6191e-02 ,8.3472e-02 ,1.1096e-01 , & - &1.3216e-01 ,1.4974e-01 ,1.6719e-01 /) - kao(:, 4, 2,14) = (/ & - &2.7875e-03 ,1.4114e-02 ,2.4277e-02 ,6.6428e-02 ,1.1553e-01 ,1.4377e-01 , & - &1.7103e-01 ,1.9428e-01 ,2.3106e-01 /) - kao(:, 5, 2,14) = (/ & - &2.8719e-03 ,1.9476e-02 ,3.5900e-02 ,9.2156e-02 ,1.4592e-01 ,1.8154e-01 , & - &2.1576e-01 ,2.4502e-01 ,2.9183e-01 /) - kao(:, 1, 3,14) = (/ & - &5.1130e-03 ,4.4754e-03 ,1.7095e-02 ,1.4542e-02 ,2.0610e-02 ,2.6947e-02 , & - &5.0520e-02 ,6.8277e-02 ,4.1188e-02 /) - kao(:, 2, 3,14) = (/ & - &5.4209e-03 ,4.7463e-03 ,2.5747e-02 ,2.2058e-02 ,2.5589e-02 ,4.5664e-02 , & - &7.6140e-02 ,9.7102e-02 ,5.5959e-02 /) - kao(:, 3, 3,14) = (/ & - &5.7296e-03 ,5.0218e-03 ,2.3801e-02 ,3.0343e-02 ,3.8012e-02 ,6.9885e-02 , & - &1.1346e-01 ,1.3263e-01 ,8.0840e-02 /) - kao(:, 4, 3,14) = (/ & - &5.9993e-03 ,9.9078e-03 ,3.1169e-02 ,3.4849e-02 ,5.4434e-02 ,1.0180e-01 , & - &1.5168e-01 ,1.7523e-01 ,1.1385e-01 /) - kao(:, 5, 3,14) = (/ & - &6.2420e-03 ,1.8221e-02 ,3.8314e-02 ,4.8056e-02 ,8.0195e-02 ,1.4525e-01 , & - &1.9539e-01 ,2.2499e-01 ,1.6255e-01 /) - kao(:, 1, 4,14) = (/ & - &1.0992e-02 ,9.6146e-03 ,8.2555e-03 ,1.9598e-02 ,2.6210e-02 ,2.3069e-02 , & - &2.4334e-02 ,4.0918e-02 ,4.3847e-02 /) - kao(:, 2, 4,14) = (/ & - &1.1861e-02 ,1.0380e-02 ,8.8997e-03 ,3.1372e-02 ,3.1071e-02 ,3.3427e-02 , & - &3.7533e-02 ,6.6384e-02 ,5.4303e-02 /) - kao(:, 3, 4,14) = (/ & - &1.2630e-02 ,1.1058e-02 ,1.5158e-02 ,4.6362e-02 ,4.1015e-02 ,4.0980e-02 , & - &5.2909e-02 ,1.0322e-01 ,7.5185e-02 /) - kao(:, 4, 4,14) = (/ & - &1.3324e-02 ,1.1665e-02 ,2.8664e-02 ,4.2673e-02 ,5.2993e-02 ,5.8606e-02 , & - &7.8441e-02 ,1.5172e-01 ,9.8036e-02 /) - kao(:, 5, 4,14) = (/ & - &1.3148e-02 ,1.1477e-02 ,4.1837e-02 ,5.5479e-02 ,6.7238e-02 ,7.8671e-02 , & - &1.1999e-01 ,1.9993e-01 ,1.2716e-01 /) - kao(:, 1, 5,14) = (/ & - &2.2062e-02 ,1.9303e-02 ,1.6547e-02 ,1.3790e-02 ,1.9210e-02 ,3.4370e-02 , & - &2.6360e-02 ,2.4628e-02 ,2.1281e-02 /) - kao(:, 2, 5,14) = (/ & - &2.4016e-02 ,2.1018e-02 ,1.8036e-02 ,1.5017e-02 ,3.4207e-02 ,3.8549e-02 , & - &3.6828e-02 ,3.7924e-02 ,4.8887e-02 /) - kao(:, 3, 5,14) = (/ & - &2.4307e-02 ,2.1199e-02 ,1.8170e-02 ,2.0814e-02 ,5.1440e-02 ,4.8654e-02 , & - &5.0226e-02 ,5.5730e-02 ,8.3554e-02 /) - kao(:, 4, 5,14) = (/ & - &2.3589e-02 ,2.0645e-02 ,1.7700e-02 ,3.6957e-02 ,7.2673e-02 ,6.2587e-02 , & - &6.6284e-02 ,7.5553e-02 ,1.2501e-01 /) - kao(:, 5, 5,14) = (/ & - &2.3359e-02 ,2.0344e-02 ,1.7524e-02 ,5.3828e-02 ,7.8003e-02 ,7.9260e-02 , & - &8.5892e-02 ,1.2047e-01 ,1.2633e-01 /) - kao(:, 1, 6,14) = (/ & - &4.0073e-02 ,3.4956e-02 ,2.9962e-02 ,2.4964e-02 ,1.9975e-02 ,1.9358e-02 , & - &3.3916e-02 ,2.3741e-02 ,4.4372e-06 /) - kao(:, 2, 6,14) = (/ & - &4.0377e-02 ,3.5184e-02 ,3.0162e-02 ,2.5240e-02 ,2.0191e-02 ,3.6273e-02 , & - &4.6417e-02 ,3.4541e-02 ,7.2649e-06 /) - kao(:, 3, 6,14) = (/ & - &4.0665e-02 ,3.5540e-02 ,3.0502e-02 ,2.5425e-02 ,2.0338e-02 ,5.3239e-02 , & - &5.4545e-02 ,5.0382e-02 ,1.1617e-05 /) - kao(:, 4, 6,14) = (/ & - &4.0830e-02 ,3.5726e-02 ,3.0620e-02 ,2.5522e-02 ,4.1685e-02 ,7.6060e-02 , & - &6.8633e-02 ,6.7501e-02 ,4.8322e-02 /) - kao(:, 5, 6,14) = (/ & - &4.0974e-02 ,3.5852e-02 ,3.0742e-02 ,2.5614e-02 ,6.3799e-02 ,1.0670e-01 , & - &8.5712e-02 ,8.9786e-02 ,9.4019e-02 /) - kao(:, 1, 7,14) = (/ & - &3.5883e-01 ,3.1506e-01 ,2.6911e-01 ,2.2518e-01 ,1.7880e-01 ,1.3456e-01 , & - &8.9710e-02 ,5.4606e-02 ,2.4375e-06 /) - kao(:, 2, 7,14) = (/ & - &1.1133e-01 ,9.7402e-02 ,8.3516e-02 ,6.9576e-02 ,5.5665e-02 ,4.1750e-02 , & - &3.4893e-02 ,3.9977e-02 ,4.2861e-06 /) - kao(:, 3, 7,14) = (/ & - &7.4556e-02 ,6.5240e-02 ,5.5921e-02 ,4.6603e-02 ,3.7275e-02 ,2.7967e-02 , & - &5.4564e-02 ,5.0979e-02 ,7.1669e-06 /) - kao(:, 4, 7,14) = (/ & - &7.6453e-02 ,6.6897e-02 ,5.7506e-02 ,4.7791e-02 ,3.8237e-02 ,4.2981e-02 , & - &7.9842e-02 ,6.6791e-02 ,1.1410e-05 /) - kao(:, 5, 7,14) = (/ & - &7.6151e-02 ,6.6633e-02 ,5.7121e-02 ,4.7606e-02 ,3.8095e-02 ,6.8563e-02 , & - &1.1205e-01 ,9.1020e-02 ,1.8778e-05 /) - kao(:, 1, 8,14) = (/ & - &1.6212e+00 ,1.4215e+00 ,1.2160e+00 ,1.0153e+00 ,8.1222e-01 ,6.0796e-01 , & - &4.0531e-01 ,2.0267e-01 ,1.3659e-06 /) - kao(:, 2, 8,14) = (/ & - &1.0949e+00 ,9.5809e-01 ,8.2118e-01 ,6.8434e-01 ,5.4744e-01 ,4.1058e-01 , & - &2.7374e-01 ,1.3687e-01 ,2.5240e-06 /) - kao(:, 3, 8,14) = (/ & - &5.4276e-01 ,4.7782e-01 ,4.0969e-01 ,3.4354e-01 ,2.7305e-01 ,2.0349e-01 , & - &1.3658e-01 ,8.0855e-02 ,4.4900e-06 /) - kao(:, 4, 8,14) = (/ & - &1.6665e-01 ,1.4583e-01 ,1.2498e-01 ,1.0416e-01 ,8.3314e-02 ,6.2486e-02 , & - &4.1670e-02 ,8.3057e-02 ,7.7801e-06 /) - kao(:, 5, 8,14) = (/ & - &1.6956e-01 ,1.4835e-01 ,1.2718e-01 ,1.0598e-01 ,8.5407e-02 ,6.3592e-02 , & - &5.5348e-02 ,1.2090e-01 ,1.2725e-05 /) - kao(:, 1, 9,14) = (/ & - &1.1544e+01 ,1.0088e+01 ,8.6483e+00 ,7.2069e+00 ,5.7730e+00 ,4.3233e+00 , & - &2.8823e+00 ,1.4419e+00 ,7.6692e-07 /) - kao(:, 2, 9,14) = (/ & - &9.0308e+00 ,7.9019e+00 ,6.7729e+00 ,5.6441e+00 ,4.5156e+00 ,3.3865e+00 , & - &2.2577e+00 ,1.1268e+00 ,1.4786e-06 /) - kao(:, 3, 9,14) = (/ & - &6.2830e+00 ,5.4975e+00 ,4.7120e+00 ,3.9269e+00 ,3.1414e+00 ,2.3561e+00 , & - &1.5707e+00 ,7.8536e-01 ,2.7689e-06 /) - kao(:, 4, 9,14) = (/ & - &3.6304e+00 ,3.1764e+00 ,2.7089e+00 ,2.2550e+00 ,1.8152e+00 ,1.3614e+00 , & - &9.0300e-01 ,4.5381e-01 ,4.9167e-06 /) - kao(:, 5, 9,14) = (/ & - &1.4890e+00 ,1.3035e+00 ,1.1168e+00 ,9.3072e-01 ,7.4457e-01 ,5.5869e-01 , & - &3.7227e-01 ,1.8616e-01 ,8.2396e-06 /) - kao(:, 1,10,14) = (/ & - &7.2198e+01 ,6.3175e+01 ,5.4150e+01 ,4.5125e+01 ,3.6100e+01 ,2.7075e+01 , & - &1.8050e+01 ,9.0251e+00 ,4.5184e-07 /) - kao(:, 2,10,14) = (/ & - &6.4999e+01 ,5.6876e+01 ,4.8750e+01 ,4.0625e+01 ,3.2499e+01 ,2.4375e+01 , & - &1.6250e+01 ,8.1250e+00 ,9.0060e-07 /) - kao(:, 3,10,14) = (/ & - &5.3041e+01 ,4.6463e+01 ,3.9827e+01 ,3.3188e+01 ,2.6599e+01 ,1.9891e+01 , & - &1.3300e+01 ,6.6377e+00 ,1.7393e-06 /) - kao(:, 4,10,14) = (/ & - &4.2448e+01 ,3.7144e+01 ,3.1913e+01 ,2.6594e+01 ,2.1225e+01 ,1.5957e+01 , & - &1.0638e+01 ,5.3187e+00 ,3.1449e-06 /) - kao(:, 5,10,14) = (/ & - &2.5727e+01 ,2.2511e+01 ,1.9295e+01 ,1.6144e+01 ,1.2810e+01 ,9.6477e+00 , & - &6.4321e+00 ,3.2028e+00 ,5.3500e-06 /) - kao(:, 1,11,14) = (/ & - &1.4503e+02 ,1.2691e+02 ,1.0890e+02 ,9.0641e+01 ,7.2517e+01 ,5.4390e+01 , & - &3.6259e+01 ,1.8129e+01 ,3.6866e-07 /) - kao(:, 2,11,14) = (/ & - &1.4340e+02 ,1.2547e+02 ,1.0755e+02 ,8.9629e+01 ,7.1700e+01 ,5.3764e+01 , & - &3.5851e+01 ,1.7926e+01 ,7.4257e-07 /) - kao(:, 3,11,14) = (/ & - &1.2279e+02 ,1.0744e+02 ,9.2097e+01 ,7.6747e+01 ,6.1397e+01 ,4.6046e+01 , & - &3.0699e+01 ,1.5350e+01 ,1.4132e-06 /) - kao(:, 4,11,14) = (/ & - &1.0332e+02 ,9.0407e+01 ,7.7495e+01 ,6.4577e+01 ,5.1661e+01 ,3.8673e+01 , & - &2.5832e+01 ,1.2916e+01 ,2.5660e-06 /) - kao(:, 5,11,14) = (/ & - &8.4752e+01 ,7.4338e+01 ,6.3562e+01 ,5.3097e+01 ,4.2377e+01 ,3.1859e+01 , & - &2.1189e+01 ,1.0594e+01 ,4.3954e-06 /) - kao(:, 1,12,14) = (/ & - &2.1206e+02 ,1.8578e+02 ,1.5923e+02 ,1.3269e+02 ,1.0615e+02 ,7.9613e+01 , & - &5.3076e+01 ,2.6538e+01 ,2.9519e-07 /) - kao(:, 2,12,14) = (/ & - &2.1371e+02 ,1.8696e+02 ,1.6019e+02 ,1.3354e+02 ,1.0696e+02 ,8.0220e+01 , & - &5.3478e+01 ,2.6706e+01 ,5.9412e-07 /) - kao(:, 3,12,14) = (/ & - &1.9963e+02 ,1.7467e+02 ,1.4971e+02 ,1.2476e+02 ,9.9809e+01 ,7.4861e+01 , & - &4.9906e+01 ,2.4953e+01 ,1.1512e-06 /) - kao(:, 4,12,14) = (/ & - &1.7291e+02 ,1.5155e+02 ,1.2989e+02 ,1.0824e+02 ,8.6596e+01 ,6.4945e+01 , & - &4.3297e+01 ,2.1649e+01 ,2.0935e-06 /) - kao(:, 5,12,14) = (/ & - &1.4993e+02 ,1.3106e+02 ,1.1245e+02 ,9.3704e+01 ,7.4891e+01 ,5.6224e+01 , & - &3.7445e+01 ,1.8742e+01 ,5.3426e-06 /) - kao(:, 1,13,14) = (/ & - &2.3337e+02 ,2.0357e+02 ,1.7476e+02 ,1.4563e+02 ,1.1651e+02 ,8.7377e+01 , & - &5.8250e+01 ,2.9126e+01 ,2.3044e-07 /) - kao(:, 2,13,14) = (/ & - &2.3770e+02 ,2.0799e+02 ,1.7827e+02 ,1.4856e+02 ,1.1885e+02 ,8.9136e+01 , & - &5.9426e+01 ,2.9711e+01 ,4.7533e-07 /) - kao(:, 3,13,14) = (/ & - &2.3937e+02 ,2.0945e+02 ,1.7953e+02 ,1.4961e+02 ,1.1968e+02 ,8.9763e+01 , & - &5.9841e+01 ,2.9920e+01 ,1.2740e-06 /) - kao(:, 4,13,14) = (/ & - &2.1343e+02 ,1.8675e+02 ,1.6007e+02 ,1.3339e+02 ,1.0671e+02 ,8.0033e+01 , & - &5.3356e+01 ,2.6677e+01 ,3.7441e-06 /) - kao(:, 5,13,14) = (/ & - &1.8434e+02 ,1.6130e+02 ,1.3825e+02 ,1.1521e+02 ,9.2167e+01 ,6.9126e+01 , & - &4.6084e+01 ,2.3083e+01 ,8.0408e-06 /) - kao(:, 1, 1,15) = (/ & - &4.3757e-04 ,1.7661e-02 ,6.5219e-02 ,9.6736e-02 ,1.2696e-01 ,1.5472e-01 , & - &1.7677e-01 ,1.8124e-01 ,2.5391e-01 /) - kao(:, 2, 1,15) = (/ & - &4.7244e-04 ,2.2315e-02 ,8.7744e-02 ,1.3008e-01 ,1.7055e-01 ,2.0764e-01 , & - &2.3757e-01 ,2.4446e-01 ,3.4110e-01 /) - kao(:, 3, 1,15) = (/ & - &4.9936e-04 ,3.5467e-02 ,1.1452e-01 ,1.6964e-01 ,2.2220e-01 ,2.7019e-01 , & - &3.0873e-01 ,3.1867e-01 ,4.4441e-01 /) - kao(:, 4, 1,15) = (/ & - &5.2088e-04 ,5.0547e-02 ,1.4538e-01 ,2.1535e-01 ,2.8212e-01 ,3.4264e-01 , & - &3.9053e-01 ,4.0360e-01 ,5.6424e-01 /) - kao(:, 5, 1,15) = (/ & - &5.3484e-04 ,7.2405e-02 ,1.8030e-01 ,2.6712e-01 ,3.4967e-01 ,4.2472e-01 , & - &4.8331e-01 ,4.9868e-01 ,6.9933e-01 /) - kao(:, 1, 2,15) = (/ & - &5.8930e-04 ,5.2056e-04 ,3.8823e-02 ,9.4547e-02 ,1.2473e-01 ,1.5329e-01 , & - &1.7814e-01 ,1.9186e-01 ,2.4946e-01 /) - kao(:, 2, 2,15) = (/ & - &6.3170e-04 ,5.6011e-04 ,6.0488e-02 ,1.2953e-01 ,1.7093e-01 ,2.0982e-01 , & - &2.4359e-01 ,2.6142e-01 ,3.4185e-01 /) - kao(:, 3, 2,15) = (/ & - &6.6396e-04 ,1.3947e-02 ,9.3321e-02 ,1.7148e-01 ,2.2617e-01 ,2.7768e-01 , & - &3.2205e-01 ,3.4444e-01 ,4.5233e-01 /) - kao(:, 4, 2,15) = (/ & - &6.8779e-04 ,3.2900e-02 ,1.4029e-01 ,2.2027e-01 ,2.9047e-01 ,3.5662e-01 , & - &4.1356e-01 ,4.4128e-01 ,5.8094e-01 /) - kao(:, 5, 2,15) = (/ & - &7.0403e-04 ,3.1909e-02 ,1.8526e-01 ,2.7582e-01 ,3.6375e-01 ,4.4666e-01 , & - &5.1781e-01 ,5.5205e-01 ,7.2748e-01 /) - kao(:, 1, 3,15) = (/ & - &1.0314e-03 ,9.3537e-04 ,7.8009e-04 ,3.5190e-02 ,7.8660e-02 ,1.3993e-01 , & - &1.6539e-01 ,1.8481e-01 ,1.5700e-01 /) - kao(:, 2, 3,15) = (/ & - &1.1044e-03 ,9.7099e-04 ,3.0472e-03 ,6.2470e-02 ,1.3066e-01 ,1.9656e-01 , & - &2.3229e-01 ,2.5938e-01 ,2.6190e-01 /) - kao(:, 3, 3,15) = (/ & - &1.1610e-03 ,1.0227e-03 ,3.8685e-02 ,9.5707e-02 ,2.0189e-01 ,2.6560e-01 , & - &3.1379e-01 ,3.5039e-01 ,4.0559e-01 /) - kao(:, 4, 3,15) = (/ & - &1.1999e-03 ,1.0620e-03 ,6.9192e-02 ,1.4962e-01 ,2.7976e-01 ,3.4701e-01 , & - &4.1016e-01 ,4.5806e-01 ,5.5953e-01 /) - kao(:, 5, 3,15) = (/ & - &1.2331e-03 ,1.0899e-03 ,6.4034e-02 ,2.1379e-01 ,3.5531e-01 ,4.4075e-01 , & - &5.2094e-01 ,5.8205e-01 ,7.1061e-01 /) - kao(:, 1, 4,15) = (/ & - &1.8101e-03 ,1.5857e-03 ,1.3614e-03 ,1.1362e-03 ,2.5114e-02 ,5.7242e-02 , & - &1.1151e-01 ,1.6445e-01 ,5.0940e-02 /) - kao(:, 2, 4,15) = (/ & - &1.9417e-03 ,1.7009e-03 ,1.4618e-03 ,1.2222e-03 ,6.6639e-02 ,9.6622e-02 , & - &1.8463e-01 ,2.3787e-01 ,1.3472e-01 /) - kao(:, 3, 4,15) = (/ & - &2.0504e-03 ,1.7934e-03 ,1.5465e-03 ,1.2907e-03 ,6.6457e-02 ,1.6526e-01 , & - &2.8062e-01 ,3.2903e-01 ,1.3147e-01 /) - kao(:, 4, 4,15) = (/ & - &2.1280e-03 ,1.8660e-03 ,1.6076e-03 ,5.7880e-02 ,1.0798e-01 ,2.4822e-01 , & - &3.8266e-01 ,4.3856e-01 ,2.1657e-01 /) - kao(:, 5, 4,15) = (/ & - &3.4223e-03 ,3.1028e-03 ,2.6690e-03 ,1.0905e-01 ,1.5760e-01 ,3.4585e-01 , & - &4.9399e-01 ,5.6645e-01 ,3.1389e-01 /) - kao(:, 1, 5,15) = (/ & - &2.8907e-03 ,2.5398e-03 ,2.1780e-03 ,1.8164e-03 ,1.4541e-03 ,1.0940e-03 , & - &7.0483e-02 ,1.0515e-01 ,9.1867e-06 /) - kao(:, 2, 5,15) = (/ & - &3.1254e-03 ,2.7393e-03 ,2.3477e-03 ,1.9606e-03 ,1.5698e-03 ,3.9518e-02 , & - &7.4031e-02 ,1.7523e-01 ,1.5406e-05 /) - kao(:, 3, 5,15) = (/ & - &6.7235e-03 ,5.8882e-03 ,5.0497e-03 ,4.2126e-03 ,3.3747e-03 ,9.4974e-02 , & - &1.2240e-01 ,2.6835e-01 ,2.4302e-05 /) - kao(:, 4, 5,15) = (/ & - &1.0699e-02 ,9.3645e-03 ,8.0383e-03 ,6.6993e-03 ,5.3674e-03 ,1.6163e-01 , & - &2.1236e-01 ,3.9941e-01 ,3.6217e-05 /) - kao(:, 5, 5,15) = (/ & - &1.3717e-02 ,1.2003e-02 ,1.0303e-02 ,8.5901e-03 ,7.6360e-02 ,1.2908e-01 , & - &3.1926e-01 ,5.2644e-01 ,1.7649e-01 /) - kao(:, 1, 6,15) = (/ & - &8.1592e-03 ,7.4369e-03 ,6.3758e-03 ,5.3146e-03 ,4.2520e-03 ,3.1909e-03 , & - &2.1298e-03 ,5.0122e-02 ,5.2510e-06 /) - kao(:, 2, 6,15) = (/ & - &1.6119e-02 ,1.4482e-02 ,1.2421e-02 ,1.0082e-02 ,8.0668e-03 ,6.0513e-03 , & - &2.1472e-02 ,7.5343e-02 ,9.3553e-06 /) - kao(:, 3, 6,15) = (/ & - &2.2594e-02 ,1.9767e-02 ,1.6948e-02 ,1.4132e-02 ,1.1307e-02 ,8.4832e-03 , & - &8.7408e-02 ,1.3678e-01 ,1.5081e-05 /) - kao(:, 4, 6,15) = (/ & - &2.8287e-02 ,2.4765e-02 ,2.1227e-02 ,1.7693e-02 ,1.4154e-02 ,1.0619e-02 , & - &1.5774e-01 ,2.2631e-01 ,2.2824e-05 /) - kao(:, 5, 6,15) = (/ & - &3.3007e-02 ,2.8867e-02 ,2.4778e-02 ,2.0634e-02 ,1.6523e-02 ,1.2392e-02 , & - &2.0991e-01 ,3.3594e-01 ,3.3161e-05 /) - kao(:, 1, 7,15) = (/ & - &3.2923e-02 ,2.8801e-02 ,2.4671e-02 ,2.0232e-02 ,1.6462e-02 ,1.2339e-02 , & - &8.2302e-03 ,4.1175e-03 ,2.9069e-06 /) - kao(:, 2, 7,15) = (/ & - &4.4354e-02 ,3.8819e-02 ,3.3267e-02 ,2.7723e-02 ,2.2187e-02 ,1.6641e-02 , & - &1.1094e-02 ,4.4470e-02 ,5.3667e-06 /) - kao(:, 3, 7,15) = (/ & - &5.4986e-02 ,4.8115e-02 ,4.1243e-02 ,3.4364e-02 ,2.7498e-02 ,2.0642e-02 , & - &1.3901e-02 ,1.0510e-01 ,9.1519e-06 /) - kao(:, 4, 7,15) = (/ & - &6.4798e-02 ,5.6696e-02 ,4.8186e-02 ,4.0508e-02 ,3.2405e-02 ,2.4095e-02 , & - &1.6208e-02 ,1.7836e-01 ,1.4620e-05 /) - kao(:, 5, 7,15) = (/ & - &7.2855e-02 ,6.3755e-02 ,5.4641e-02 ,4.5546e-02 ,3.6442e-02 ,2.7544e-02 , & - &1.8370e-02 ,1.8524e-01 ,2.2125e-05 /) - kao(:, 1, 8,15) = (/ & - &9.4104e-02 ,8.2337e-02 ,7.0574e-02 ,5.8796e-02 ,4.7043e-02 ,3.5284e-02 , & - &2.3531e-02 ,1.1762e-02 ,1.5730e-06 /) - kao(:, 2, 8,15) = (/ & - &1.1684e-01 ,1.0226e-01 ,8.7581e-02 ,7.3021e-02 ,5.8384e-02 ,4.3796e-02 , & - &2.9205e-02 ,1.4602e-02 ,3.1057e-06 /) - kao(:, 3, 8,15) = (/ & - &1.3899e-01 ,1.2165e-01 ,1.0424e-01 ,8.6874e-02 ,6.9512e-02 ,5.2129e-02 , & - &3.4755e-02 ,1.7377e-02 ,5.5778e-06 /) - kao(:, 4, 8,15) = (/ & - &1.6026e-01 ,1.4023e-01 ,1.2021e-01 ,1.0019e-01 ,8.0158e-02 ,6.0094e-02 , & - &4.0057e-02 ,2.0043e-02 ,9.3711e-06 /) - kao(:, 5, 8,15) = (/ & - &1.7464e-01 ,1.5283e-01 ,1.3102e-01 ,1.0918e-01 ,8.7353e-02 ,6.5505e-02 , & - &4.3670e-02 ,2.1848e-02 ,1.4780e-05 /) - kao(:, 1, 9,15) = (/ & - &4.3914e-01 ,3.8426e-01 ,3.2523e-01 ,2.7101e-01 ,2.1679e-01 ,1.6466e-01 , & - &1.0980e-01 ,5.4190e-02 ,8.3394e-07 /) - kao(:, 2, 9,15) = (/ & - &5.3157e-01 ,4.6496e-01 ,3.9866e-01 ,3.3222e-01 ,2.6580e-01 ,1.9932e-01 , & - &1.3289e-01 ,6.6437e-02 ,1.7793e-06 /) - kao(:, 3, 9,15) = (/ & - &6.2792e-01 ,5.4930e-01 ,4.7092e-01 ,3.9242e-01 ,3.1384e-01 ,2.3543e-01 , & - &1.5698e-01 ,7.8487e-02 ,3.4095e-06 /) - kao(:, 4, 9,15) = (/ & - &6.9612e-01 ,6.0916e-01 ,5.2207e-01 ,4.4160e-01 ,3.4808e-01 ,2.6107e-01 , & - &1.7405e-01 ,8.7030e-02 ,6.0449e-06 /) - kao(:, 5, 9,15) = (/ & - &7.1518e-01 ,6.2568e-01 ,5.3633e-01 ,4.4688e-01 ,3.5754e-01 ,2.6806e-01 , & - &1.7876e-01 ,8.9378e-02 ,9.9175e-06 /) - kao(:, 1,10,15) = (/ & - &1.3796e+01 ,1.2071e+01 ,1.0346e+01 ,8.6223e+00 ,6.8983e+00 ,5.1733e+00 , & - &3.4490e+00 ,1.7245e+00 ,4.7027e-07 /) - kao(:, 2,10,15) = (/ & - &2.6233e+00 ,2.2954e+00 ,1.9673e+00 ,1.6395e+00 ,1.3116e+00 ,9.8356e-01 , & - &6.5573e-01 ,3.2783e-01 ,1.0735e-06 /) - kao(:, 3,10,15) = (/ & - &2.9028e+00 ,2.5398e+00 ,2.1774e+00 ,1.8145e+00 ,1.4515e+00 ,1.0885e+00 , & - &7.2570e-01 ,3.6294e-01 ,2.1946e-06 /) - kao(:, 4,10,15) = (/ & - &2.9628e+00 ,2.5919e+00 ,2.2220e+00 ,1.8518e+00 ,1.4813e+00 ,1.1109e+00 , & - &7.4065e-01 ,3.7038e-01 ,4.0439e-06 /) - kao(:, 5,10,15) = (/ & - &3.0421e+00 ,2.6615e+00 ,2.2818e+00 ,1.9012e+00 ,1.5210e+00 ,1.1408e+00 , & - &7.6043e-01 ,3.8023e-01 ,6.8742e-06 /) - kao(:, 1,11,15) = (/ & - &5.1563e+01 ,4.5117e+01 ,3.8674e+01 ,3.2227e+01 ,2.5782e+01 ,1.9336e+01 , & - &1.2891e+01 ,6.4453e+00 ,4.0707e-07 /) - kao(:, 2,11,15) = (/ & - &4.0297e+00 ,3.5262e+00 ,3.0227e+00 ,2.5187e+00 ,2.0150e+00 ,1.5474e+00 , & - &1.0073e+00 ,5.0377e-01 ,9.5505e-07 /) - kao(:, 3,11,15) = (/ & - &4.2638e+00 ,3.7317e+00 ,3.1981e+00 ,2.6654e+00 ,2.1321e+00 ,1.5993e+00 , & - &1.0662e+00 ,5.3312e-01 ,1.9370e-06 /) - kao(:, 4,11,15) = (/ & - &4.5225e+00 ,3.9566e+00 ,3.3892e+00 ,2.8266e+00 ,2.2603e+00 ,1.6955e+00 , & - &1.1303e+00 ,5.6504e-01 ,3.5823e-06 /) - kao(:, 5,11,15) = (/ & - &4.7336e+00 ,4.1418e+00 ,3.5502e+00 ,2.9582e+00 ,2.3669e+00 ,1.7755e+00 , & - &1.1834e+00 ,5.9176e-01 ,6.1298e-06 /) - kao(:, 1,12,15) = (/ & - &1.0350e+02 ,9.0564e+01 ,7.7625e+01 ,6.4688e+01 ,5.1750e+01 ,3.8814e+01 , & - &2.5874e+01 ,1.2937e+01 ,3.8485e-07 /) - kao(:, 2,12,15) = (/ & - &3.5400e+01 ,3.0974e+01 ,2.7218e+01 ,2.2126e+01 ,1.7700e+01 ,1.3275e+01 , & - &8.8500e+00 ,4.4247e+00 ,8.6295e-07 /) - kao(:, 3,12,15) = (/ & - &4.7917e+00 ,4.1902e+00 ,3.5927e+00 ,2.9945e+00 ,2.3939e+00 ,1.7963e+00 , & - &1.1970e+00 ,5.9908e-01 ,1.7414e-06 /) - kao(:, 4,12,15) = (/ & - &4.7749e+00 ,4.1779e+00 ,3.5811e+00 ,2.9844e+00 ,2.3876e+00 ,1.7905e+00 , & - &1.1938e+00 ,5.9689e-01 ,3.1576e-06 /) - kao(:, 5,12,15) = (/ & - &4.7755e+00 ,4.1774e+00 ,3.5815e+00 ,2.9845e+00 ,2.3876e+00 ,1.7910e+00 , & - &1.1938e+00 ,5.9711e-01 ,5.4455e-06 /) - kao(:, 1,13,15) = (/ & - &1.3564e+02 ,1.2035e+02 ,1.0244e+02 ,8.5373e+01 ,6.8293e+01 ,5.1221e+01 , & - &3.4147e+01 ,1.7074e+01 ,3.5301e-07 /) - kao(:, 2,13,15) = (/ & - &6.6923e+01 ,5.8556e+01 ,5.0190e+01 ,4.1824e+01 ,3.3458e+01 ,2.5094e+01 , & - &1.6730e+01 ,8.3652e+00 ,7.8175e-07 /) - kao(:, 3,13,15) = (/ & - &3.7003e+00 ,3.2381e+00 ,2.7755e+00 ,2.3126e+00 ,1.8500e+00 ,1.3876e+00 , & - &9.2513e-01 ,4.6258e-01 ,1.5659e-06 /) - kao(:, 4,13,15) = (/ & - &3.7328e+00 ,3.2655e+00 ,2.7985e+00 ,2.3334e+00 ,1.8661e+00 ,1.3995e+00 , & - &9.3310e-01 ,4.6647e-01 ,2.9454e-06 /) - kao(:, 5,13,15) = (/ & - &3.7209e+00 ,3.2581e+00 ,2.7929e+00 ,2.3278e+00 ,1.8618e+00 ,1.3966e+00 , & - &9.3071e-01 ,4.6580e-01 ,5.0591e-06 /) - kao(:, 1, 1,16) = (/ & - &3.4803e-04 ,3.1375e-04 ,9.0029e-02 ,1.3230e-01 ,1.7123e-01 ,2.0432e-01 , & - &2.2540e-01 ,2.1561e-01 ,3.4246e-01 /) - kao(:, 2, 1,16) = (/ & - &3.6711e-04 ,6.2185e-02 ,1.2251e-01 ,1.8007e-01 ,2.3310e-01 ,2.7812e-01 , & - &3.0698e-01 ,2.9374e-01 ,4.6619e-01 /) - kao(:, 3, 1,16) = (/ & - &3.8231e-04 ,8.1789e-02 ,1.6116e-01 ,2.3685e-01 ,3.0661e-01 ,3.6587e-01 , & - &4.0384e-01 ,3.8690e-01 ,6.1322e-01 /) - kao(:, 4, 1,16) = (/ & - &3.9398e-04 ,1.0451e-01 ,2.0587e-01 ,3.0259e-01 ,3.9179e-01 ,4.6767e-01 , & - &5.1634e-01 ,4.9462e-01 ,7.8358e-01 /) - kao(:, 5, 1,16) = (/ & - &4.0251e-04 ,1.3022e-01 ,2.5663e-01 ,3.7711e-01 ,4.8832e-01 ,5.8296e-01 , & - &6.4377e-01 ,6.1717e-01 ,9.7664e-01 /) - kao(:, 1, 2,16) = (/ & - &4.4386e-04 ,3.9528e-04 ,9.5606e-02 ,1.4144e-01 ,1.8490e-01 ,2.2388e-01 , & - &2.5317e-01 ,2.5424e-01 ,3.6979e-01 /) - kao(:, 2, 2,16) = (/ & - &4.6963e-04 ,4.2143e-04 ,1.3208e-01 ,1.9543e-01 ,2.5549e-01 ,3.0939e-01 , & - &3.5000e-01 ,3.5157e-01 ,5.1097e-01 /) - kao(:, 3, 2,16) = (/ & - &4.9052e-04 ,4.4450e-04 ,1.7597e-01 ,2.6040e-01 ,3.4044e-01 ,4.1226e-01 , & - &4.6651e-01 ,4.6873e-01 ,6.8087e-01 /) - kao(:, 4, 2,16) = (/ & - &5.0548e-04 ,4.6448e-04 ,2.2723e-01 ,3.3632e-01 ,4.3972e-01 ,5.3255e-01 , & - &6.0266e-01 ,6.0594e-01 ,8.7943e-01 /) - kao(:, 5, 2,16) = (/ & - &5.1704e-04 ,1.4434e-01 ,2.8579e-01 ,4.2309e-01 ,5.5324e-01 ,6.7011e-01 , & - &7.5842e-01 ,7.6291e-01 ,1.1065e+00 /) - kao(:, 1, 3,16) = (/ & - &7.4514e-04 ,6.5703e-04 ,5.6805e-04 ,1.3986e-01 ,1.8472e-01 ,2.2721e-01 , & - &2.6439e-01 ,2.8334e-01 ,3.6943e-01 /) - kao(:, 2, 3,16) = (/ & - &7.9344e-04 ,7.0163e-04 ,6.1002e-04 ,1.9810e-01 ,2.6159e-01 ,3.2183e-01 , & - &3.7436e-01 ,4.0145e-01 ,5.2319e-01 /) - kao(:, 3, 3,16) = (/ & - &8.3288e-04 ,7.4056e-04 ,6.4608e-04 ,2.6931e-01 ,3.5570e-01 ,4.3753e-01 , & - &5.0928e-01 ,5.4624e-01 ,7.1140e-01 /) - kao(:, 4, 3,16) = (/ & - &8.6418e-04 ,7.7079e-04 ,1.2130e-02 ,3.5401e-01 ,4.6743e-01 ,5.7518e-01 , & - &6.6923e-01 ,7.1819e-01 ,9.3487e-01 /) - kao(:, 5, 3,16) = (/ & - &8.8628e-04 ,7.9797e-04 ,3.0313e-01 ,4.5187e-01 ,5.9661e-01 ,7.3417e-01 , & - &8.5463e-01 ,9.1729e-01 ,1.1932e+00 /) - kao(:, 1, 4,16) = (/ & - &1.2636e-03 ,1.1057e-03 ,9.5136e-04 ,7.9620e-04 ,6.4188e-04 ,2.1791e-01 , & - &2.5758e-01 ,2.8791e-01 ,2.3364e-05 /) - kao(:, 2, 4,16) = (/ & - &1.3610e-03 ,1.1957e-03 ,1.0270e-03 ,8.6413e-04 ,7.0025e-04 ,3.1776e-01 , & - &3.7570e-01 ,4.1991e-01 ,3.8771e-05 /) - kao(:, 3, 4,16) = (/ & - &1.4417e-03 ,1.2662e-03 ,1.0946e-03 ,9.2411e-04 ,3.5694e-01 ,4.4267e-01 , & - &5.2346e-01 ,5.8520e-01 ,7.1388e-01 /) - kao(:, 4, 4,16) = (/ & - &1.5012e-03 ,1.3268e-03 ,1.1484e-03 ,9.7089e-04 ,4.7866e-01 ,5.9391e-01 , & - &7.0229e-01 ,7.8545e-01 ,9.5731e-01 /) - kao(:, 5, 4,16) = (/ & - &1.5493e-03 ,1.3712e-03 ,1.1941e-03 ,1.0165e-03 ,6.2163e-01 ,7.7110e-01 , & - &9.1212e-01 ,1.0202e+00 ,1.2432e+00 /) - kao(:, 1, 5,16) = (/ & - &1.9563e-03 ,1.7130e-03 ,1.4716e-03 ,1.2286e-03 ,9.8449e-04 ,7.4210e-04 , & - &5.0011e-04 ,2.7578e-01 ,1.4521e-05 /) - kao(:, 2, 5,16) = (/ & - &2.1251e-03 ,1.8616e-03 ,1.5991e-03 ,1.3382e-03 ,1.0747e-03 ,8.1191e-04 , & - &3.6392e-01 ,4.1523e-01 ,2.5317e-05 /) - kao(:, 3, 5,16) = (/ & - &2.2685e-03 ,1.9902e-03 ,1.7118e-03 ,1.4319e-03 ,1.1550e-03 ,8.7607e-04 , & - &5.2057e-01 ,5.9412e-01 ,4.1189e-05 /) - kao(:, 4, 5,16) = (/ & - &2.3834e-03 ,2.0939e-03 ,1.8039e-03 ,1.5145e-03 ,1.2237e-03 ,9.3428e-04 , & - &7.1378e-01 ,8.1462e-01 ,6.3394e-05 /) - kao(:, 5, 5,16) = (/ & - &2.4764e-03 ,2.1786e-03 ,1.8819e-03 ,1.5832e-03 ,1.2860e-03 ,7.9256e-01 , & - &9.4410e-01 ,1.0778e+00 ,9.2980e-05 /) - kao(:, 1, 6,16) = (/ & - &2.8061e-03 ,2.4583e-03 ,2.1085e-03 ,1.7622e-03 ,1.4067e-03 ,1.0576e-03 , & - &7.0829e-04 ,1.6992e-01 ,8.6758e-06 /) - kao(:, 2, 6,16) = (/ & - &3.0921e-03 ,2.7056e-03 ,2.3212e-03 ,1.9356e-03 ,1.5529e-03 ,1.1677e-03 , & - &7.8418e-04 ,3.9086e-01 ,1.5977e-05 /) - kao(:, 3, 6,16) = (/ & - &3.3322e-03 ,2.9180e-03 ,2.5057e-03 ,2.0938e-03 ,1.6795e-03 ,1.2657e-03 , & - &8.5374e-04 ,5.7620e-01 ,2.7234e-05 /) - kao(:, 4, 6,16) = (/ & - &3.5394e-03 ,3.0979e-03 ,2.6608e-03 ,2.2263e-03 ,1.7897e-03 ,1.3517e-03 , & - &9.1571e-04 ,8.0997e-01 ,4.3592e-05 /) - kao(:, 5, 6,16) = (/ & - &3.6973e-03 ,3.2450e-03 ,2.7879e-03 ,2.3342e-03 ,1.8813e-03 ,1.4280e-03 , & - &2.3591e-01 ,1.0936e+00 ,6.6108e-05 /) - kao(:, 1, 7,16) = (/ & - &4.1566e-03 ,3.6382e-03 ,3.1187e-03 ,2.5984e-03 ,2.0809e-03 ,1.5620e-03 , & - &1.0430e-03 ,5.2415e-04 ,5.0515e-06 /) - kao(:, 2, 7,16) = (/ & - &4.6397e-03 ,4.0602e-03 ,3.4821e-03 ,2.9026e-03 ,2.3244e-03 ,1.7452e-03 , & - &1.1674e-03 ,5.8830e-04 ,9.8982e-06 /) - kao(:, 3, 7,16) = (/ & - &5.0641e-03 ,4.4282e-03 ,3.8004e-03 ,3.1687e-03 ,2.5412e-03 ,1.9080e-03 , & - &1.2777e-03 ,6.4842e-04 ,1.7758e-05 /) - kao(:, 4, 7,16) = (/ & - &5.4224e-03 ,4.7462e-03 ,4.0771e-03 ,3.3992e-03 ,2.7272e-03 ,2.0505e-03 , & - &1.3779e-03 ,7.0354e-04 ,2.9670e-05 /) - kao(:, 5, 7,16) = (/ & - &5.7229e-03 ,5.0101e-03 ,4.3011e-03 ,3.5983e-03 ,2.8833e-03 ,2.1757e-03 , & - &1.4658e-03 ,6.1847e-01 ,4.6639e-05 /) - kao(:, 1, 8,16) = (/ & - &7.1654e-03 ,6.2688e-03 ,5.3745e-03 ,4.4778e-03 ,3.5800e-03 ,2.6883e-03 , & - &1.7931e-03 ,8.9706e-04 ,2.8888e-06 /) - kao(:, 2, 8,16) = (/ & - &8.1399e-03 ,7.1118e-03 ,6.0997e-03 ,5.0831e-03 ,4.0665e-03 ,3.0517e-03 , & - &2.0386e-03 ,1.0214e-03 ,6.0412e-06 /) - kao(:, 3, 8,16) = (/ & - &8.9800e-03 ,7.8609e-03 ,6.7393e-03 ,5.6216e-03 ,4.4978e-03 ,3.3745e-03 , & - &2.2551e-03 ,1.1328e-03 ,1.1454e-05 /) - kao(:, 4, 8,16) = (/ & - &9.7139e-03 ,8.5067e-03 ,7.2942e-03 ,6.0777e-03 ,4.8682e-03 ,3.6593e-03 , & - &2.4437e-03 ,1.2326e-03 ,2.0029e-05 /) - kao(:, 5, 8,16) = (/ & - &1.0337e-02 ,9.0473e-03 ,7.7560e-03 ,6.4703e-03 ,5.1860e-03 ,3.8948e-03 , & - &2.6072e-03 ,1.3207e-03 ,3.2759e-05 /) - kao(:, 1, 9,16) = (/ & - &2.3247e-02 ,2.0336e-02 ,1.7429e-02 ,1.4524e-02 ,1.1625e-02 ,8.7188e-03 , & - &5.8147e-03 ,2.9059e-03 ,1.6015e-06 /) - kao(:, 2, 9,16) = (/ & - &2.6840e-02 ,2.3482e-02 ,2.0132e-02 ,1.6770e-02 ,1.3422e-02 ,1.0063e-02 , & - &6.7117e-03 ,3.3577e-03 ,3.6050e-06 /) - kao(:, 3, 9,16) = (/ & - &3.0078e-02 ,2.6329e-02 ,2.2553e-02 ,1.8793e-02 ,1.5044e-02 ,1.1280e-02 , & - &7.5240e-03 ,3.7656e-03 ,7.2546e-06 /) - kao(:, 4, 9,16) = (/ & - &3.2925e-02 ,2.8810e-02 ,2.4697e-02 ,2.0586e-02 ,3.0583e-02 ,1.2361e-02 , & - &8.2421e-03 ,4.1354e-03 ,1.3329e-05 /) - kao(:, 5, 9,16) = (/ & - &3.5342e-02 ,3.0934e-02 ,2.6503e-02 ,2.2104e-02 ,1.7684e-02 ,1.3262e-02 , & - &8.8536e-03 ,4.4397e-03 ,2.2693e-05 /) - kao(:, 1,10,16) = (/ & - &8.4703e-02 ,7.4117e-02 ,6.3535e-02 ,5.2927e-02 ,4.2343e-02 ,3.1773e-02 , & - &2.1175e-02 ,1.0588e-02 ,9.2688e-07 /) - kao(:, 2,10,16) = (/ & - &9.9410e-02 ,8.7009e-02 ,7.4556e-02 ,6.2160e-02 ,4.9698e-02 ,3.7265e-02 , & - &2.4850e-02 ,1.2429e-02 ,2.2335e-06 /) - kao(:, 3,10,16) = (/ & - &1.1291e-01 ,9.8729e-02 ,8.4692e-02 ,7.0598e-02 ,5.6422e-02 ,4.2355e-02 , & - &2.8232e-02 ,1.4106e-02 ,4.7476e-06 /) - kao(:, 4,10,16) = (/ & - &1.2498e-01 ,1.0930e-01 ,9.3695e-02 ,7.8057e-02 ,6.2479e-02 ,4.6859e-02 , & - &3.1244e-02 ,1.5627e-02 ,9.1259e-06 /) - kao(:, 5,10,16) = (/ & - &1.3523e-01 ,1.1838e-01 ,1.0149e-01 ,8.4512e-02 ,6.7619e-02 ,5.0737e-02 , & - &3.3842e-02 ,1.6917e-02 ,1.6155e-05 /) - kao(:, 1,11,16) = (/ & - &1.1702e-01 ,1.0242e-01 ,8.7781e-02 ,7.3100e-02 ,5.8528e-02 ,4.3847e-02 , & - &2.9250e-02 ,1.4631e-02 ,8.3202e-07 /) - kao(:, 2,11,16) = (/ & - &1.3733e-01 ,1.2017e-01 ,1.0300e-01 ,8.5853e-02 ,6.8653e-02 ,5.1492e-02 , & - &3.4322e-02 ,1.7153e-02 ,2.0128e-06 /) - kao(:, 3,11,16) = (/ & - &1.5584e-01 ,1.3638e-01 ,1.1685e-01 ,9.7461e-02 ,7.7843e-02 ,5.8372e-02 , & - &3.8976e-02 ,1.9510e-02 ,4.3129e-06 /) - kao(:, 4,11,16) = (/ & - &1.7239e-01 ,1.5086e-01 ,1.2928e-01 ,1.0779e-01 ,8.6176e-02 ,6.4725e-02 , & - &4.3097e-02 ,2.1516e-02 ,8.3117e-06 /) - kao(:, 5,11,16) = (/ & - &1.8654e-01 ,1.6325e-01 ,1.3989e-01 ,1.1667e-01 ,9.3408e-02 ,7.0060e-02 , & - &4.6775e-02 ,2.3342e-02 ,1.4729e-05 /) - kao(:, 1,12,16) = (/ & - &1.1854e-01 ,1.0376e-01 ,8.8946e-02 ,7.4074e-02 ,5.9255e-02 ,4.4504e-02 , & - &2.9679e-02 ,1.4800e-02 ,7.4749e-07 /) - kao(:, 2,12,16) = (/ & - &1.3943e-01 ,1.2204e-01 ,1.0463e-01 ,8.7342e-02 ,6.9856e-02 ,5.2356e-02 , & - &3.4894e-02 ,1.7410e-02 ,1.8161e-06 /) - kao(:, 3,12,16) = (/ & - &1.5836e-01 ,1.3868e-01 ,1.1885e-01 ,9.9001e-02 ,7.9338e-02 ,5.9413e-02 , & - &3.9707e-02 ,1.9806e-02 ,3.8901e-06 /) - kao(:, 4,12,16) = (/ & - &1.7966e-01 ,1.5728e-01 ,1.3478e-01 ,1.1217e-01 ,8.9784e-02 ,6.7270e-02 , & - &4.4900e-02 ,2.2432e-02 ,7.2752e-06 /) - kao(:, 5,12,16) = (/ & - &2.0635e-01 ,1.8060e-01 ,1.5479e-01 ,1.2891e-01 ,1.0321e-01 ,7.7324e-02 , & - &5.1591e-02 ,2.5791e-02 ,1.2040e-05 /) - kao(:, 1,13,16) = (/ & - &2.1930e-01 ,8.1271e-02 ,6.9650e-02 ,5.7973e-02 ,4.6358e-02 ,3.4782e-02 , & - &2.3204e-02 ,1.1588e-02 ,6.6806e-07 /) - kao(:, 2,13,16) = (/ & - &1.1205e-01 ,9.8083e-02 ,8.4056e-02 ,7.0107e-02 ,5.6050e-02 ,4.2050e-02 , & - &2.7998e-02 ,1.4011e-02 ,1.5755e-06 /) - kao(:, 3,13,16) = (/ & - &1.3646e-01 ,1.1932e-01 ,1.0236e-01 ,8.5263e-02 ,6.8236e-02 ,5.1131e-02 , & - &3.4091e-02 ,1.7065e-02 ,3.1454e-06 /) - kao(:, 4,13,16) = (/ & - &1.5976e-01 ,1.3979e-01 ,1.1981e-01 ,9.9935e-02 ,7.9931e-02 ,5.9857e-02 , & - &3.9898e-02 ,1.9961e-02 ,5.5256e-06 /) - kao(:, 5,13,16) = (/ & - &1.7769e-01 ,1.5548e-01 ,1.3326e-01 ,1.1109e-01 ,8.8840e-02 ,6.6629e-02 , & - &4.4447e-02 ,2.2232e-02 ,9.1943e-06 /) - -! The array KAO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level below 100~ mb. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. The second index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The third index -! runs over the g-channel (1 to 16). - - kao_mco2( 1, :, 1) = (/ & - & 1.09539e-04 , 1.17067e-04 , 1.25113e-04 , 1.33712e-04 , 1.42902e-04 , & - & 1.52724e-04 , 1.63221e-04 , 1.74439e-04 , 1.86428e-04 , 1.99241e-04 , & - & 2.12934e-04 , 2.27569e-04 , 2.43210e-04 , 2.59926e-04 , 2.77790e-04 , & - & 2.96883e-04 , 3.17287e-04 , 3.39094e-04 , 3.62400e-04 /) - kao_mco2( 2, :, 1) = (/ & - & 1.25202e-04 , 1.34718e-04 , 1.44957e-04 , 1.55974e-04 , 1.67829e-04 , & - & 1.80585e-04 , 1.94311e-04 , 2.09079e-04 , 2.24971e-04 , 2.42069e-04 , & - & 2.60468e-04 , 2.80265e-04 , 3.01567e-04 , 3.24488e-04 , 3.49150e-04 , & - & 3.75688e-04 , 4.04242e-04 , 4.34966e-04 , 4.68026e-04 /) - kao_mco2( 3, :, 1) = (/ & - & 1.12112e-04 , 1.21090e-04 , 1.30786e-04 , 1.41259e-04 , 1.52571e-04 , & - & 1.64788e-04 , 1.77984e-04 , 1.92237e-04 , 2.07631e-04 , 2.24257e-04 , & - & 2.42215e-04 , 2.61611e-04 , 2.82560e-04 , 3.05187e-04 , 3.29625e-04 , & - & 3.56021e-04 , 3.84530e-04 , 4.15322e-04 , 4.48580e-04 /) - kao_mco2( 4, :, 1) = (/ & - & 9.74130e-05 , 1.05372e-04 , 1.13982e-04 , 1.23295e-04 , 1.33369e-04 , & - & 1.44265e-04 , 1.56053e-04 , 1.68803e-04 , 1.82595e-04 , 1.97514e-04 , & - & 2.13652e-04 , 2.31109e-04 , 2.49992e-04 , 2.70418e-04 , 2.92512e-04 , & - & 3.16412e-04 , 3.42265e-04 , 3.70230e-04 , 4.00479e-04 /) - kao_mco2( 5, :, 1) = (/ & - & 8.71018e-05 , 9.40759e-05 , 1.01608e-04 , 1.09744e-04 , 1.18531e-04 , & - & 1.28022e-04 , 1.38272e-04 , 1.49343e-04 , 1.61301e-04 , 1.74216e-04 , & - & 1.88166e-04 , 2.03232e-04 , 2.19504e-04 , 2.37079e-04 , 2.56062e-04 , & - & 2.76565e-04 , 2.98709e-04 , 3.22626e-04 , 3.48458e-04 /) - kao_mco2( 6, :, 1) = (/ & - & 7.55256e-05 , 8.17414e-05 , 8.84688e-05 , 9.57500e-05 , 1.03630e-04 , & - & 1.12159e-04 , 1.21390e-04 , 1.31381e-04 , 1.42193e-04 , 1.53896e-04 , & - & 1.66562e-04 , 1.80270e-04 , 1.95107e-04 , 2.11164e-04 , 2.28543e-04 , & - & 2.47353e-04 , 2.67710e-04 , 2.89743e-04 , 3.13589e-04 /) - kao_mco2( 7, :, 1) = (/ & - & 5.31515e-05 , 6.06869e-05 , 6.92907e-05 , 7.91143e-05 , 9.03306e-05 , & - & 1.03137e-04 , 1.17759e-04 , 1.34454e-04 , 1.53516e-04 , 1.75281e-04 , & - & 2.00131e-04 , 2.28504e-04 , 2.60900e-04 , 2.97888e-04 , 3.40121e-04 , & - & 3.88341e-04 , 4.43397e-04 , 5.06259e-04 , 5.78033e-04 /) - kao_mco2( 8, :, 1) = (/ & - & 2.52471e-04 , 2.96005e-04 , 3.47045e-04 , 4.06886e-04 , 4.77045e-04 , & - & 5.59302e-04 , 6.55742e-04 , 7.68811e-04 , 9.01377e-04 , 1.05680e-03 , & - & 1.23902e-03 , 1.45267e-03 , 1.70315e-03 , 1.99683e-03 , 2.34114e-03 , & - & 2.74482e-03 , 3.21811e-03 , 3.77300e-03 , 4.42358e-03 /) - kao_mco2( 9, :, 1) = (/ & - & 4.06711e-05 , 4.53161e-05 , 5.04917e-05 , 5.62583e-05 , 6.26836e-05 , & - & 6.98427e-05 , 7.78194e-05 , 8.67071e-05 , 9.66100e-05 , 1.07644e-04 , & - & 1.19938e-04 , 1.33636e-04 , 1.48898e-04 , 1.65904e-04 , 1.84852e-04 , & - & 2.05964e-04 , 2.29487e-04 , 2.55697e-04 , 2.84900e-04 /) - kao_mco2( 1, :, 2) = (/ & - & 2.01759e-04 , 2.15641e-04 , 2.30478e-04 , 2.46336e-04 , 2.63285e-04 , & - & 2.81400e-04 , 3.00761e-04 , 3.21455e-04 , 3.43573e-04 , 3.67212e-04 , & - & 3.92477e-04 , 4.19482e-04 , 4.48344e-04 , 4.79192e-04 , 5.12162e-04 , & - & 5.47401e-04 , 5.85064e-04 , 6.25319e-04 , 6.68343e-04 /) - kao_mco2( 2, :, 2) = (/ & - & 2.53461e-04 , 2.70916e-04 , 2.89574e-04 , 3.09516e-04 , 3.30832e-04 , & - & 3.53616e-04 , 3.77969e-04 , 4.03999e-04 , 4.31822e-04 , 4.61561e-04 , & - & 4.93348e-04 , 5.27324e-04 , 5.63640e-04 , 6.02457e-04 , 6.43948e-04 , & - & 6.88295e-04 , 7.35697e-04 , 7.86364e-04 , 8.40519e-04 /) - kao_mco2( 3, :, 2) = (/ & - & 2.58821e-04 , 2.76943e-04 , 2.96334e-04 , 3.17082e-04 , 3.39283e-04 , & - & 3.63038e-04 , 3.88457e-04 , 4.15655e-04 , 4.44758e-04 , 4.75899e-04 , & - & 5.09220e-04 , 5.44874e-04 , 5.83024e-04 , 6.23845e-04 , 6.67525e-04 , & - & 7.14263e-04 , 7.64273e-04 , 8.17785e-04 , 8.75043e-04 /) - kao_mco2( 4, :, 2) = (/ & - & 2.46588e-04 , 2.64630e-04 , 2.83993e-04 , 3.04771e-04 , 3.27071e-04 , & - & 3.51001e-04 , 3.76683e-04 , 4.04244e-04 , 4.33821e-04 , 4.65563e-04 , & - & 4.99627e-04 , 5.36183e-04 , 5.75414e-04 , 6.17515e-04 , 6.62697e-04 , & - & 7.11185e-04 , 7.63220e-04 , 8.19063e-04 , 8.78991e-04 /) - kao_mco2( 5, :, 2) = (/ & - & 2.19140e-04 , 2.36464e-04 , 2.55158e-04 , 2.75330e-04 , 2.97097e-04 , & - & 3.20585e-04 , 3.45929e-04 , 3.73277e-04 , 4.02787e-04 , 4.34630e-04 , & - & 4.68991e-04 , 5.06068e-04 , 5.46076e-04 , 5.89247e-04 , 6.35831e-04 , & - & 6.86097e-04 , 7.40338e-04 , 7.98867e-04 , 8.62022e-04 /) - kao_mco2( 6, :, 2) = (/ & - & 1.74073e-04 , 1.92221e-04 , 2.12260e-04 , 2.34388e-04 , 2.58824e-04 , & - & 2.85807e-04 , 3.15603e-04 , 3.48505e-04 , 3.84837e-04 , 4.24957e-04 , & - & 4.69260e-04 , 5.18181e-04 , 5.72202e-04 , 6.31855e-04 , 6.97727e-04 , & - & 7.70466e-04 , 8.50789e-04 , 9.39485e-04 , 1.03743e-03 /) - kao_mco2( 7, :, 2) = (/ & - & 1.74359e-04 , 1.99276e-04 , 2.27753e-04 , 2.60299e-04 , 2.97497e-04 , & - & 3.40010e-04 , 3.88599e-04 , 4.44130e-04 , 5.07598e-04 , 5.80135e-04 , & - & 6.63039e-04 , 7.57789e-04 , 8.66079e-04 , 9.89845e-04 , 1.13130e-03 , & - & 1.29296e-03 , 1.47773e-03 , 1.68890e-03 , 1.93025e-03 /) - kao_mco2( 8, :, 2) = (/ & - & 1.08215e-03 , 1.20760e-03 , 1.34759e-03 , 1.50382e-03 , 1.67815e-03 , & - & 1.87270e-03 , 2.08980e-03 , 2.33206e-03 , 2.60242e-03 , 2.90411e-03 , & - & 3.24078e-03 , 3.61648e-03 , 4.03573e-03 , 4.50359e-03 , 5.02568e-03 , & - & 5.60830e-03 , 6.25846e-03 , 6.98399e-03 , 7.79363e-03 /) - kao_mco2( 9, :, 2) = (/ & - & 1.04969e-04 , 1.20766e-04 , 1.38939e-04 , 1.59848e-04 , 1.83903e-04 , & - & 2.11578e-04 , 2.43418e-04 , 2.80049e-04 , 3.22193e-04 , 3.70678e-04 , & - & 4.26461e-04 , 4.90638e-04 , 5.64472e-04 , 6.49418e-04 , 7.47147e-04 , & - & 8.59583e-04 , 9.88940e-04 , 1.13776e-03 , 1.30898e-03 /) - kao_mco2( 1, :, 3) = (/ & - & 3.72106e-04 , 3.96252e-04 , 4.21966e-04 , 4.49347e-04 , 4.78506e-04 , & - & 5.09557e-04 , 5.42623e-04 , 5.77834e-04 , 6.15330e-04 , 6.55260e-04 , & - & 6.97781e-04 , 7.43060e-04 , 7.91278e-04 , 8.42626e-04 , 8.97304e-04 , & - & 9.55532e-04 , 1.01754e-03 , 1.08357e-03 , 1.15388e-03 /) - kao_mco2( 2, :, 3) = (/ & - & 4.20563e-04 , 4.46162e-04 , 4.73319e-04 , 5.02130e-04 , 5.32693e-04 , & - & 5.65118e-04 , 5.99516e-04 , 6.36007e-04 , 6.74720e-04 , 7.15789e-04 , & - & 7.59358e-04 , 8.05579e-04 , 8.54613e-04 , 9.06632e-04 , 9.61817e-04 , & - & 1.02036e-03 , 1.08247e-03 , 1.14836e-03 , 1.21826e-03 /) - kao_mco2( 3, :, 3) = (/ & - & 4.89664e-04 , 5.18321e-04 , 5.48654e-04 , 5.80764e-04 , 6.14752e-04 , & - & 6.50729e-04 , 6.88812e-04 , 7.29124e-04 , 7.71795e-04 , 8.16963e-04 , & - & 8.64774e-04 , 9.15384e-04 , 9.68955e-04 , 1.02566e-03 , 1.08569e-03 , & - & 1.14922e-03 , 1.21648e-03 , 1.28767e-03 , 1.36303e-03 /) - kao_mco2( 4, :, 3) = (/ & - & 4.61143e-04 , 4.92198e-04 , 5.25343e-04 , 5.60720e-04 , 5.98480e-04 , & - & 6.38783e-04 , 6.81799e-04 , 7.27713e-04 , 7.76718e-04 , 8.29023e-04 , & - & 8.84851e-04 , 9.44438e-04 , 1.00804e-03 , 1.07592e-03 , 1.14837e-03 , & - & 1.22571e-03 , 1.30825e-03 , 1.39635e-03 , 1.49038e-03 /) - kao_mco2( 5, :, 3) = (/ & - & 4.01988e-04 , 4.36672e-04 , 4.74349e-04 , 5.15278e-04 , 5.59737e-04 , & - & 6.08032e-04 , 6.60495e-04 , 7.17484e-04 , 7.79390e-04 , 8.46638e-04 , & - & 9.19688e-04 , 9.99041e-04 , 1.08524e-03 , 1.17888e-03 , 1.28059e-03 , & - & 1.39109e-03 , 1.51111e-03 , 1.64149e-03 , 1.78313e-03 /) - kao_mco2( 6, :, 3) = (/ & - & 3.35536e-04 , 3.74371e-04 , 4.17700e-04 , 4.66045e-04 , 5.19985e-04 , & - & 5.80169e-04 , 6.47318e-04 , 7.22238e-04 , 8.05831e-04 , 8.99098e-04 , & - & 1.00316e-03 , 1.11927e-03 , 1.24881e-03 , 1.39335e-03 , 1.55461e-03 , & - & 1.73455e-03 , 1.93530e-03 , 2.15930e-03 , 2.40921e-03 /) - kao_mco2( 7, :, 3) = (/ & - & 3.24677e-04 , 3.75160e-04 , 4.33491e-04 , 5.00893e-04 , 5.78774e-04 , & - & 6.68765e-04 , 7.72749e-04 , 8.92900e-04 , 1.03173e-03 , 1.19215e-03 , & - & 1.37751e-03 , 1.59170e-03 , 1.83918e-03 , 2.12515e-03 , 2.45558e-03 , & - & 2.83738e-03 , 3.27856e-03 , 3.78832e-03 , 4.37735e-03 /) - kao_mco2( 8, :, 3) = (/ & - & 2.24656e-03 , 2.45550e-03 , 2.68386e-03 , 2.93347e-03 , 3.20629e-03 , & - & 3.50448e-03 , 3.83041e-03 , 4.18665e-03 , 4.57602e-03 , 5.00160e-03 , & - & 5.46677e-03 , 5.97519e-03 , 6.53090e-03 , 7.13829e-03 , 7.80217e-03 , & - & 8.52780e-03 , 9.32091e-03 , 1.01878e-02 , 1.11353e-02 /) - kao_mco2( 9, :, 3) = (/ & - & 2.07746e-04 , 2.38909e-04 , 2.74746e-04 , 3.15959e-04 , 3.63355e-04 , & - & 4.17860e-04 , 4.80541e-04 , 5.52625e-04 , 6.35521e-04 , 7.30852e-04 , & - & 8.40484e-04 , 9.66561e-04 , 1.11155e-03 , 1.27829e-03 , 1.47004e-03 , & - & 1.69055e-03 , 1.94414e-03 , 2.23577e-03 , 2.57115e-03 /) - kao_mco2( 1, :, 4) = (/ & - & 7.26052e-04 , 7.62476e-04 , 8.00726e-04 , 8.40896e-04 , 8.83081e-04 , & - & 9.27382e-04 , 9.73905e-04 , 1.02276e-03 , 1.07407e-03 , 1.12795e-03 , & - & 1.18454e-03 , 1.24396e-03 , 1.30637e-03 , 1.37190e-03 , 1.44073e-03 , & - & 1.51300e-03 , 1.58890e-03 , 1.66861e-03 , 1.75232e-03 /) - kao_mco2( 2, :, 4) = (/ & - & 4.65815e-04 , 5.01167e-04 , 5.39203e-04 , 5.80126e-04 , 6.24154e-04 , & - & 6.71524e-04 , 7.22489e-04 , 7.77322e-04 , 8.36316e-04 , 8.99788e-04 , & - & 9.68077e-04 , 1.04155e-03 , 1.12060e-03 , 1.20564e-03 , 1.29714e-03 , & - & 1.39559e-03 , 1.50151e-03 , 1.61546e-03 , 1.73807e-03 /) - kao_mco2( 3, :, 4) = (/ & - & 3.56225e-04 , 3.93073e-04 , 4.33732e-04 , 4.78598e-04 , 5.28105e-04 , & - & 5.82732e-04 , 6.43010e-04 , 7.09524e-04 , 7.82918e-04 , 8.63903e-04 , & - & 9.53266e-04 , 1.05187e-03 , 1.16068e-03 , 1.28074e-03 , 1.41322e-03 , & - & 1.55941e-03 , 1.72071e-03 , 1.89870e-03 , 2.09511e-03 /) - kao_mco2( 4, :, 4) = (/ & - & 3.37845e-04 , 3.79675e-04 , 4.26684e-04 , 4.79514e-04 , 5.38884e-04 , & - & 6.05606e-04 , 6.80589e-04 , 7.64855e-04 , 8.59555e-04 , 9.65980e-04 , & - & 1.08558e-03 , 1.21999e-03 , 1.37105e-03 , 1.54080e-03 , 1.73157e-03 , & - & 1.94597e-03 , 2.18691e-03 , 2.45767e-03 , 2.76197e-03 /) - kao_mco2( 5, :, 4) = (/ & - & 3.52456e-04 , 4.02782e-04 , 4.60294e-04 , 5.26017e-04 , 6.01126e-04 , & - & 6.86958e-04 , 7.85046e-04 , 8.97140e-04 , 1.02524e-03 , 1.17163e-03 , & - & 1.33892e-03 , 1.53010e-03 , 1.74858e-03 , 1.99825e-03 , 2.28358e-03 , & - & 2.60964e-03 , 2.98226e-03 , 3.40809e-03 , 3.89471e-03 /) - kao_mco2( 6, :, 4) = (/ & - & 4.42884e-04 , 5.08187e-04 , 5.83119e-04 , 6.69100e-04 , 7.67758e-04 , & - & 8.80963e-04 , 1.01086e-03 , 1.15991e-03 , 1.33094e-03 , 1.52718e-03 , & - & 1.75237e-03 , 2.01075e-03 , 2.30724e-03 , 2.64744e-03 , 3.03780e-03 , & - & 3.48572e-03 , 3.99969e-03 , 4.58944e-03 , 5.26614e-03 /) - kao_mco2( 7, :, 4) = (/ & - & 8.09850e-04 , 9.09940e-04 , 1.02240e-03 , 1.14876e-03 , 1.29074e-03 , & - & 1.45026e-03 , 1.62950e-03 , 1.83089e-03 , 2.05718e-03 , 2.31143e-03 , & - & 2.59710e-03 , 2.91808e-03 , 3.27873e-03 , 3.68395e-03 , 4.13926e-03 , & - & 4.65083e-03 , 5.22564e-03 , 5.87148e-03 , 6.59715e-03 /) - kao_mco2( 8, :, 4) = (/ & - & 3.13265e-03 , 3.42454e-03 , 3.74362e-03 , 4.09243e-03 , 4.47375e-03 , & - & 4.89059e-03 , 5.34627e-03 , 5.84441e-03 , 6.38897e-03 , 6.98426e-03 , & - & 7.63502e-03 , 8.34642e-03 , 9.12409e-03 , 9.97423e-03 , 1.09036e-02 , & - & 1.19195e-02 , 1.30301e-02 , 1.42442e-02 , 1.55714e-02 /) - kao_mco2( 9, :, 4) = (/ & - & 5.71287e-04 , 6.51252e-04 , 7.42411e-04 , 8.46330e-04 , 9.64794e-04 , & - & 1.09984e-03 , 1.25379e-03 , 1.42929e-03 , 1.62935e-03 , 1.85742e-03 , & - & 2.11741e-03 , 2.41380e-03 , 2.75167e-03 , 3.13683e-03 , 3.57591e-03 , & - & 4.07645e-03 , 4.64705e-03 , 5.29751e-03 , 6.03903e-03 /) - kao_mco2( 1, :, 5) = (/ & - & 2.92395e-04 , 3.32719e-04 , 3.78604e-04 , 4.30818e-04 , 4.90232e-04 , & - & 5.57839e-04 , 6.34771e-04 , 7.22312e-04 , 8.21927e-04 , 9.35278e-04 , & - & 1.06426e-03 , 1.21104e-03 , 1.37805e-03 , 1.56810e-03 , 1.78435e-03 , & - & 2.03043e-03 , 2.31045e-03 , 2.62908e-03 , 2.99166e-03 /) - kao_mco2( 2, :, 5) = (/ & - & 3.13069e-04 , 3.61343e-04 , 4.17061e-04 , 4.81371e-04 , 5.55597e-04 , & - & 6.41269e-04 , 7.40151e-04 , 8.54280e-04 , 9.86008e-04 , 1.13805e-03 , & - & 1.31353e-03 , 1.51608e-03 , 1.74985e-03 , 2.01967e-03 , 2.33110e-03 , & - & 2.69055e-03 , 3.10543e-03 , 3.58427e-03 , 4.13696e-03 /) - kao_mco2( 3, :, 5) = (/ & - & 3.06937e-04 , 3.57841e-04 , 4.17187e-04 , 4.86375e-04 , 5.67038e-04 , & - & 6.61078e-04 , 7.70714e-04 , 8.98532e-04 , 1.04755e-03 , 1.22128e-03 , & - & 1.42382e-03 , 1.65996e-03 , 1.93525e-03 , 2.25620e-03 , 2.63038e-03 , & - & 3.06661e-03 , 3.57519e-03 , 4.16812e-03 , 4.85937e-03 /) - kao_mco2( 4, :, 5) = (/ & - & 4.06428e-04 , 4.72379e-04 , 5.49033e-04 , 6.38125e-04 , 7.41674e-04 , & - & 8.62026e-04 , 1.00191e-03 , 1.16449e-03 , 1.35345e-03 , 1.57308e-03 , & - & 1.82834e-03 , 2.12503e-03 , 2.46986e-03 , 2.87064e-03 , 3.33647e-03 , & - & 3.87788e-03 , 4.50715e-03 , 5.23852e-03 , 6.08858e-03 /) - kao_mco2( 5, :, 5) = (/ & - & 6.01967e-04 , 6.90414e-04 , 7.91856e-04 , 9.08204e-04 , 1.04165e-03 , & - & 1.19470e-03 , 1.37023e-03 , 1.57156e-03 , 1.80247e-03 , 2.06731e-03 , & - & 2.37106e-03 , 2.71944e-03 , 3.11901e-03 , 3.57729e-03 , 4.10290e-03 , & - & 4.70574e-03 , 5.39716e-03 , 6.19017e-03 , 7.09969e-03 /) - kao_mco2( 6, :, 5) = (/ & - & 1.11622e-03 , 1.25799e-03 , 1.41776e-03 , 1.59783e-03 , 1.80077e-03 , & - & 2.02947e-03 , 2.28723e-03 , 2.57773e-03 , 2.90512e-03 , 3.27408e-03 , & - & 3.68992e-03 , 4.15856e-03 , 4.68673e-03 , 5.28197e-03 , 5.95282e-03 , & - & 6.70887e-03 , 7.56094e-03 , 8.52123e-03 , 9.60348e-03 /) - kao_mco2( 7, :, 5) = (/ & - & 3.63860e-03 , 3.96164e-03 , 4.31337e-03 , 4.69632e-03 , 5.11327e-03 , & - & 5.56724e-03 , 6.06151e-03 , 6.59967e-03 , 7.18561e-03 , 7.82356e-03 , & - & 8.51816e-03 , 9.27443e-03 , 1.00978e-02 , 1.09943e-02 , 1.19705e-02 , & - & 1.30332e-02 , 1.41904e-02 , 1.54502e-02 , 1.68219e-02 /) - kao_mco2( 8, :, 5) = (/ & - & 5.96957e-03 , 6.53049e-03 , 7.14412e-03 , 7.81541e-03 , 8.54977e-03 , & - & 9.35314e-03 , 1.02320e-02 , 1.11934e-02 , 1.22452e-02 , 1.33958e-02 , & - & 1.46545e-02 , 1.60315e-02 , 1.75379e-02 , 1.91858e-02 , 2.09886e-02 , & - & 2.29608e-02 , 2.51182e-02 , 2.74784e-02 , 3.00604e-02 /) - kao_mco2( 9, :, 5) = (/ & - & 1.19381e-03 , 1.33882e-03 , 1.50143e-03 , 1.68379e-03 , 1.88831e-03 , & - & 2.11767e-03 , 2.37488e-03 , 2.66333e-03 , 2.98683e-03 , 3.34961e-03 , & - & 3.75646e-03 , 4.21272e-03 , 4.72440e-03 , 5.29823e-03 , 5.94176e-03 , & - & 6.66345e-03 , 7.47280e-03 , 8.38045e-03 , 9.39835e-03 /) - kao_mco2( 1, :, 6) = (/ & - & 4.12429e-04 , 4.84830e-04 , 5.69942e-04 , 6.69995e-04 , 7.87613e-04 , & - & 9.25878e-04 , 1.08842e-03 , 1.27949e-03 , 1.50410e-03 , 1.76814e-03 , & - & 2.07854e-03 , 2.44343e-03 , 2.87237e-03 , 3.37662e-03 , 3.96938e-03 , & - & 4.66621e-03 , 5.48536e-03 , 6.44831e-03 , 7.58031e-03 /) - kao_mco2( 2, :, 6) = (/ & - & 6.43498e-04 , 7.46132e-04 , 8.65134e-04 , 1.00312e-03 , 1.16311e-03 , & - & 1.34861e-03 , 1.56371e-03 , 1.81310e-03 , 2.10228e-03 , 2.43758e-03 , & - & 2.82635e-03 , 3.27714e-03 , 3.79981e-03 , 4.40586e-03 , 5.10855e-03 , & - & 5.92333e-03 , 6.86806e-03 , 7.96346e-03 , 9.23357e-03 /) - kao_mco2( 3, :, 6) = (/ & - & 1.11336e-03 , 1.26910e-03 , 1.44662e-03 , 1.64897e-03 , 1.87962e-03 , & - & 2.14254e-03 , 2.44224e-03 , 2.78385e-03 , 3.17325e-03 , 3.61712e-03 , & - & 4.12308e-03 , 4.69981e-03 , 5.35720e-03 , 6.10656e-03 , 6.96073e-03 , & - & 7.93439e-03 , 9.04424e-03 , 1.03093e-02 , 1.17514e-02 /) - kao_mco2( 4, :, 6) = (/ & - & 1.87991e-03 , 2.10276e-03 , 2.35202e-03 , 2.63082e-03 , 2.94268e-03 , & - & 3.29150e-03 , 3.68168e-03 , 4.11810e-03 , 4.60626e-03 , 5.15228e-03 , & - & 5.76303e-03 , 6.44617e-03 , 7.21030e-03 , 8.06500e-03 , 9.02102e-03 , & - & 1.00904e-02 , 1.12865e-02 , 1.26244e-02 , 1.41208e-02 /) - kao_mco2( 5, :, 6) = (/ & - & 3.65848e-03 , 4.01372e-03 , 4.40346e-03 , 4.83104e-03 , 5.30015e-03 , & - & 5.81480e-03 , 6.37943e-03 , 6.99888e-03 , 7.67849e-03 , 8.42408e-03 , & - & 9.24208e-03 , 1.01395e-02 , 1.11241e-02 , 1.22042e-02 , 1.33893e-02 , & - & 1.46894e-02 , 1.61158e-02 , 1.76806e-02 , 1.93975e-02 /) - kao_mco2( 6, :, 6) = (/ & - & 5.38476e-03 , 5.85088e-03 , 6.35735e-03 , 6.90765e-03 , 7.50560e-03 , & - & 8.15530e-03 , 8.86124e-03 , 9.62829e-03 , 1.04617e-02 , 1.13673e-02 , & - & 1.23513e-02 , 1.34205e-02 , 1.45822e-02 , 1.58445e-02 , 1.72160e-02 , & - & 1.87062e-02 , 2.03255e-02 , 2.20849e-02 , 2.39966e-02 /) - kao_mco2( 7, :, 6) = (/ & - & 6.27017e-03 , 6.84772e-03 , 7.47846e-03 , 8.16731e-03 , 8.91960e-03 , & - & 9.74118e-03 , 1.06384e-02 , 1.16183e-02 , 1.26885e-02 , 1.38573e-02 , & - & 1.51336e-02 , 1.65276e-02 , 1.80500e-02 , 1.97125e-02 , 2.15283e-02 , & - & 2.35112e-02 , 2.56769e-02 , 2.80420e-02 , 3.06249e-02 /) - kao_mco2( 8, :, 6) = (/ & - & 9.61932e-03 , 1.04802e-02 , 1.14182e-02 , 1.24401e-02 , 1.35534e-02 , & - & 1.47664e-02 , 1.60880e-02 , 1.75278e-02 , 1.90965e-02 , 2.08056e-02 , & - & 2.26677e-02 , 2.46964e-02 , 2.69066e-02 , 2.93147e-02 , 3.19383e-02 , & - & 3.47967e-02 , 3.79110e-02 , 4.13039e-02 , 4.50005e-02 /) - kao_mco2( 9, :, 6) = (/ & - & 2.37921e-03 , 2.64556e-03 , 2.94173e-03 , 3.27105e-03 , 3.63724e-03 , & - & 4.04442e-03 , 4.49718e-03 , 5.00064e-03 , 5.56045e-03 , 6.18293e-03 , & - & 6.87510e-03 , 7.64475e-03 , 8.50057e-03 , 9.45219e-03 , 1.05103e-02 , & - & 1.16870e-02 , 1.29953e-02 , 1.44501e-02 , 1.60677e-02 /) - kao_mco2( 1, :, 7) = (/ & - & 4.64970e-03 , 5.13188e-03 , 5.66406e-03 , 6.25144e-03 , 6.89972e-03 , & - & 7.61523e-03 , 8.40493e-03 , 9.27654e-03 , 1.02385e-02 , 1.13003e-02 , & - & 1.24721e-02 , 1.37655e-02 , 1.51930e-02 , 1.67685e-02 , 1.85075e-02 , & - & 2.04267e-02 , 2.25450e-02 , 2.48829e-02 , 2.74633e-02 /) - kao_mco2( 2, :, 7) = (/ & - & 6.37148e-03 , 6.96805e-03 , 7.62046e-03 , 8.33397e-03 , 9.11428e-03 , & - & 9.96765e-03 , 1.09009e-02 , 1.19216e-02 , 1.30378e-02 , 1.42585e-02 , & - & 1.55935e-02 , 1.70536e-02 , 1.86503e-02 , 2.03965e-02 , 2.23062e-02 , & - & 2.43948e-02 , 2.66789e-02 , 2.91768e-02 , 3.19086e-02 /) - kao_mco2( 3, :, 7) = (/ & - & 7.79364e-03 , 8.48097e-03 , 9.22892e-03 , 1.00428e-02 , 1.09285e-02 , & - & 1.18923e-02 , 1.29411e-02 , 1.40825e-02 , 1.53244e-02 , 1.66759e-02 , & - & 1.81466e-02 , 1.97470e-02 , 2.14885e-02 , 2.33836e-02 , 2.54458e-02 , & - & 2.76899e-02 , 3.01320e-02 , 3.27893e-02 , 3.56811e-02 /) - kao_mco2( 4, :, 7) = (/ & - & 8.70586e-03 , 9.48737e-03 , 1.03390e-02 , 1.12672e-02 , 1.22786e-02 , & - & 1.33808e-02 , 1.45820e-02 , 1.58910e-02 , 1.73175e-02 , 1.88721e-02 , & - & 2.05662e-02 , 2.24124e-02 , 2.44243e-02 , 2.66169e-02 , 2.90062e-02 , & - & 3.16101e-02 , 3.44477e-02 , 3.75400e-02 , 4.09099e-02 /) - kao_mco2( 5, :, 7) = (/ & - & 9.24510e-03 , 1.00865e-02 , 1.10045e-02 , 1.20061e-02 , 1.30988e-02 , & - & 1.42910e-02 , 1.55916e-02 , 1.70106e-02 , 1.85588e-02 , 2.02479e-02 , & - & 2.20908e-02 , 2.41013e-02 , 2.62948e-02 , 2.86880e-02 , 3.12990e-02 , & - & 3.41476e-02 , 3.72555e-02 , 4.06462e-02 , 4.43455e-02 /) - kao_mco2( 6, :, 7) = (/ & - & 1.09559e-02 , 1.19933e-02 , 1.31290e-02 , 1.43722e-02 , 1.57331e-02 , & - & 1.72229e-02 , 1.88537e-02 , 2.06390e-02 , 2.25933e-02 , 2.47327e-02 , & - & 2.70747e-02 , 2.96384e-02 , 3.24449e-02 , 3.55171e-02 , 3.88802e-02 , & - & 4.25619e-02 , 4.65921e-02 , 5.10039e-02 , 5.58335e-02 /) - kao_mco2( 7, :, 7) = (/ & - & 1.36116e-02 , 1.48659e-02 , 1.62357e-02 , 1.77318e-02 , 1.93657e-02 , & - & 2.11502e-02 , 2.30991e-02 , 2.52276e-02 , 2.75522e-02 , 3.00910e-02 , & - & 3.28638e-02 , 3.58921e-02 , 3.91995e-02 , 4.28116e-02 , 4.67565e-02 , & - & 5.10650e-02 , 5.57704e-02 , 6.09095e-02 , 6.65221e-02 /) - kao_mco2( 8, :, 7) = (/ & - & 1.51783e-02 , 1.64551e-02 , 1.78392e-02 , 1.93399e-02 , 2.09667e-02 , & - & 2.27304e-02 , 2.46424e-02 , 2.67153e-02 , 2.89626e-02 , 3.13988e-02 , & - & 3.40401e-02 , 3.69035e-02 , 4.00077e-02 , 4.33731e-02 , 4.70216e-02 , & - & 5.09770e-02 , 5.52651e-02 , 5.99139e-02 , 6.49538e-02 /) - kao_mco2( 9, :, 7) = (/ & - & 1.00072e-02 , 1.08638e-02 , 1.17937e-02 , 1.28032e-02 , 1.38991e-02 , & - & 1.50888e-02 , 1.63803e-02 , 1.77824e-02 , 1.93045e-02 , 2.09568e-02 , & - & 2.27507e-02 , 2.46980e-02 , 2.68120e-02 , 2.91070e-02 , 3.15984e-02 , & - & 3.43031e-02 , 3.72393e-02 , 4.04268e-02 , 4.38872e-02 /) - kao_mco2( 1, :, 8) = (/ & - & 1.59610e-02 , 1.74387e-02 , 1.90532e-02 , 2.08171e-02 , 2.27444e-02 , & - & 2.48501e-02 , 2.71508e-02 , 2.96645e-02 , 3.24109e-02 , 3.54115e-02 , & - & 3.86900e-02 , 4.22720e-02 , 4.61856e-02 , 5.04616e-02 , 5.51334e-02 , & - & 6.02378e-02 , 6.58147e-02 , 7.19079e-02 , 7.85653e-02 /) - kao_mco2( 2, :, 8) = (/ & - & 1.61961e-02 , 1.76986e-02 , 1.93405e-02 , 2.11348e-02 , 2.30955e-02 , & - & 2.52381e-02 , 2.75794e-02 , 3.01380e-02 , 3.29340e-02 , 3.59893e-02 , & - & 3.93280e-02 , 4.29766e-02 , 4.69636e-02 , 5.13204e-02 , 5.60815e-02 , & - & 6.12843e-02 , 6.69697e-02 , 7.31826e-02 , 7.99718e-02 /) - kao_mco2( 3, :, 8) = (/ & - & 1.72034e-02 , 1.88241e-02 , 2.05974e-02 , 2.25377e-02 , 2.46609e-02 , & - & 2.69841e-02 , 2.95261e-02 , 3.23076e-02 , 3.53511e-02 , 3.86813e-02 , & - & 4.23253e-02 , 4.63126e-02 , 5.06754e-02 , 5.54493e-02 , 6.06728e-02 , & - & 6.63885e-02 , 7.26426e-02 , 7.94859e-02 , 8.69738e-02 /) - kao_mco2( 4, :, 8) = (/ & - & 1.79777e-02 , 1.96517e-02 , 2.14815e-02 , 2.34817e-02 , 2.56682e-02 , & - & 2.80583e-02 , 3.06709e-02 , 3.35268e-02 , 3.66486e-02 , 4.00611e-02 , & - & 4.37914e-02 , 4.78690e-02 , 5.23262e-02 , 5.71985e-02 , 6.25245e-02 , & - & 6.83464e-02 , 7.47104e-02 , 8.16670e-02 , 8.92713e-02 /) - kao_mco2( 5, :, 8) = (/ & - & 2.02540e-02 , 2.21214e-02 , 2.41610e-02 , 2.63887e-02 , 2.88218e-02 , & - & 3.14792e-02 , 3.43816e-02 , 3.75516e-02 , 4.10139e-02 , 4.47954e-02 , & - & 4.89256e-02 , 5.34366e-02 , 5.83635e-02 , 6.37447e-02 , 6.96220e-02 , & - & 7.60413e-02 , 8.30523e-02 , 9.07098e-02 , 9.90734e-02 /) - kao_mco2( 6, :, 8) = (/ & - & 2.19009e-02 , 2.38517e-02 , 2.59762e-02 , 2.82899e-02 , 3.08097e-02 , & - & 3.35540e-02 , 3.65427e-02 , 3.97976e-02 , 4.33424e-02 , 4.72030e-02 , & - & 5.14074e-02 , 5.59863e-02 , 6.09731e-02 , 6.64040e-02 , 7.23187e-02 , & - & 7.87603e-02 , 8.57755e-02 , 9.34157e-02 , 1.01736e-01 /) - kao_mco2( 7, :, 8) = (/ & - & 2.52383e-02 , 2.73978e-02 , 2.97421e-02 , 3.22869e-02 , 3.50496e-02 , & - & 3.80486e-02 , 4.13042e-02 , 4.48383e-02 , 4.86749e-02 , 5.28397e-02 , & - & 5.73610e-02 , 6.22690e-02 , 6.75970e-02 , 7.33810e-02 , 7.96598e-02 , & - & 8.64758e-02 , 9.38751e-02 , 1.01907e-01 , 1.10627e-01 /) - kao_mco2( 8, :, 8) = (/ & - & 3.36506e-02 , 3.59288e-02 , 3.83613e-02 , 4.09584e-02 , 4.37313e-02 , & - & 4.66920e-02 , 4.98531e-02 , 5.32283e-02 , 5.68319e-02 , 6.06795e-02 , & - & 6.47876e-02 , 6.91739e-02 , 7.38570e-02 , 7.88573e-02 , 8.41960e-02 , & - & 8.98962e-02 , 9.59824e-02 , 1.02481e-01 , 1.09419e-01 /) - kao_mco2( 9, :, 8) = (/ & - & 2.15151e-02 , 2.34420e-02 , 2.55415e-02 , 2.78291e-02 , 3.03215e-02 , & - & 3.30372e-02 , 3.59961e-02 , 3.92200e-02 , 4.27326e-02 , 4.65598e-02 , & - & 5.07299e-02 , 5.52734e-02 , 6.02238e-02 , 6.56176e-02 , 7.14944e-02 , & - & 7.78977e-02 , 8.48744e-02 , 9.24759e-02 , 1.00758e-01 /) - kao_mco2( 1, :, 9) = (/ & - & 3.34296e-02 , 3.64437e-02 , 3.97294e-02 , 4.33114e-02 , 4.72164e-02 , & - & 5.14734e-02 , 5.61143e-02 , 6.11735e-02 , 6.66890e-02 , 7.27016e-02 , & - & 7.92564e-02 , 8.64022e-02 , 9.41922e-02 , 1.02685e-01 , 1.11943e-01 , & - & 1.22035e-01 , 1.33038e-01 , 1.45033e-01 , 1.58109e-01 /) - kao_mco2( 2, :, 9) = (/ & - & 3.73946e-02 , 4.07543e-02 , 4.44160e-02 , 4.84066e-02 , 5.27558e-02 , & - & 5.74958e-02 , 6.26616e-02 , 6.82915e-02 , 7.44273e-02 , 8.11144e-02 , & - & 8.84023e-02 , 9.63449e-02 , 1.05001e-01 , 1.14435e-01 , 1.24717e-01 , & - & 1.35922e-01 , 1.48135e-01 , 1.61444e-01 , 1.75949e-01 /) - kao_mco2( 3, :, 9) = (/ & - & 4.24539e-02 , 4.61192e-02 , 5.01010e-02 , 5.44265e-02 , 5.91255e-02 , & - & 6.42302e-02 , 6.97756e-02 , 7.57998e-02 , 8.23442e-02 , 8.94535e-02 , & - & 9.71766e-02 , 1.05566e-01 , 1.14681e-01 , 1.24582e-01 , 1.35338e-01 , & - & 1.47022e-01 , 1.59716e-01 , 1.73505e-01 , 1.88485e-01 /) - kao_mco2( 4, :, 9) = (/ & - & 5.30296e-02 , 5.73416e-02 , 6.20043e-02 , 6.70462e-02 , 7.24980e-02 , & - & 7.83931e-02 , 8.47676e-02 , 9.16604e-02 , 9.91137e-02 , 1.07173e-01 , & - & 1.15888e-01 , 1.25311e-01 , 1.35501e-01 , 1.46519e-01 , 1.58433e-01 , & - & 1.71316e-01 , 1.85246e-01 , 2.00309e-01 , 2.16597e-01 /) - kao_mco2( 5, :, 9) = (/ & - & 6.26111e-02 , 6.74018e-02 , 7.25591e-02 , 7.81111e-02 , 8.40878e-02 , & - & 9.05218e-02 , 9.74482e-02 , 1.04904e-01 , 1.12931e-01 , 1.21572e-01 , & - & 1.30875e-01 , 1.40889e-01 , 1.51669e-01 , 1.63274e-01 , 1.75767e-01 , & - & 1.89216e-01 , 2.03694e-01 , 2.19279e-01 , 2.36058e-01 /) - kao_mco2( 6, :, 9) = (/ & - & 7.59080e-02 , 8.13446e-02 , 8.71706e-02 , 9.34139e-02 , 1.00104e-01 , & - & 1.07274e-01 , 1.14957e-01 , 1.23190e-01 , 1.32013e-01 , 1.41468e-01 , & - & 1.51600e-01 , 1.62458e-01 , 1.74094e-01 , 1.86562e-01 , 1.99924e-01 , & - & 2.14243e-01 , 2.29587e-01 , 2.46031e-01 , 2.63652e-01 /) - kao_mco2( 7, :, 9) = (/ & - & 8.81942e-02 , 9.39942e-02 , 1.00176e-01 , 1.06763e-01 , 1.13784e-01 , & - & 1.21267e-01 , 1.29242e-01 , 1.37742e-01 , 1.46800e-01 , 1.56454e-01 , & - & 1.66743e-01 , 1.77708e-01 , 1.89395e-01 , 2.01850e-01 , 2.15124e-01 , & - & 2.29272e-01 , 2.44349e-01 , 2.60418e-01 , 2.77544e-01 /) - kao_mco2( 8, :, 9) = (/ & - & 6.28535e-02 , 6.69314e-02 , 7.12740e-02 , 7.58982e-02 , 8.08225e-02 , & - & 8.60662e-02 , 9.16502e-02 , 9.75965e-02 , 1.03929e-01 , 1.10671e-01 , & - & 1.17852e-01 , 1.25498e-01 , 1.33640e-01 , 1.42311e-01 , 1.51544e-01 , & - & 1.61376e-01 , 1.71846e-01 , 1.82996e-01 , 1.94868e-01 /) - kao_mco2( 9, :, 9) = (/ & - & 6.39196e-02 , 6.86702e-02 , 7.37738e-02 , 7.92568e-02 , 8.51473e-02 , & - & 9.14756e-02 , 9.82742e-02 , 1.05578e-01 , 1.13425e-01 , 1.21855e-01 , & - & 1.30911e-01 , 1.40641e-01 , 1.51093e-01 , 1.62323e-01 , 1.74387e-01 , & - & 1.87348e-01 , 2.01272e-01 , 2.16231e-01 , 2.32301e-01 /) - kao_mco2( 1, :,10) = (/ & - & 9.44086e-02 , 1.02788e-01 , 1.11911e-01 , 1.21844e-01 , 1.32659e-01 , & - & 1.44434e-01 , 1.57253e-01 , 1.71211e-01 , 1.86407e-01 , 2.02952e-01 , & - & 2.20966e-01 , 2.40578e-01 , 2.61932e-01 , 2.85180e-01 , 3.10492e-01 , & - & 3.38051e-01 , 3.68056e-01 , 4.00723e-01 , 4.36291e-01 /) - kao_mco2( 2, :,10) = (/ & - & 1.29528e-01 , 1.39646e-01 , 1.50554e-01 , 1.62315e-01 , 1.74994e-01 , & - & 1.88664e-01 , 2.03401e-01 , 2.19290e-01 , 2.36419e-01 , 2.54887e-01 , & - & 2.74798e-01 , 2.96263e-01 , 3.19406e-01 , 3.44356e-01 , 3.71255e-01 , & - & 4.00256e-01 , 4.31522e-01 , 4.65230e-01 , 5.01571e-01 /) - kao_mco2( 3, :,10) = (/ & - & 1.52325e-01 , 1.62991e-01 , 1.74404e-01 , 1.86616e-01 , 1.99684e-01 , & - & 2.13666e-01 , 2.28628e-01 , 2.44637e-01 , 2.61767e-01 , 2.80096e-01 , & - & 2.99710e-01 , 3.20696e-01 , 3.43152e-01 , 3.67181e-01 , 3.92892e-01 , & - & 4.20403e-01 , 4.49841e-01 , 4.81340e-01 , 5.15045e-01 /) - kao_mco2( 4, :,10) = (/ & - & 1.59763e-01 , 1.70378e-01 , 1.81698e-01 , 1.93770e-01 , 2.06644e-01 , & - & 2.20373e-01 , 2.35015e-01 , 2.50629e-01 , 2.67281e-01 , 2.85039e-01 , & - & 3.03977e-01 , 3.24174e-01 , 3.45712e-01 , 3.68681e-01 , 3.93176e-01 , & - & 4.19299e-01 , 4.47157e-01 , 4.76866e-01 , 5.08549e-01 /) - kao_mco2( 5, :,10) = (/ & - & 1.79202e-01 , 1.91125e-01 , 2.03840e-01 , 2.17402e-01 , 2.31866e-01 , & - & 2.47292e-01 , 2.63744e-01 , 2.81291e-01 , 3.00005e-01 , 3.19964e-01 , & - & 3.41251e-01 , 3.63955e-01 , 3.88169e-01 , 4.13994e-01 , 4.41537e-01 , & - & 4.70912e-01 , 5.02242e-01 , 5.35656e-01 , 5.71293e-01 /) - kao_mco2( 6, :,10) = (/ & - & 1.66628e-01 , 1.76984e-01 , 1.87984e-01 , 1.99668e-01 , 2.12078e-01 , & - & 2.25259e-01 , 2.39259e-01 , 2.54129e-01 , 2.69924e-01 , 2.86700e-01 , & - & 3.04519e-01 , 3.23446e-01 , 3.43549e-01 , 3.64901e-01 , 3.87580e-01 , & - & 4.11669e-01 , 4.37255e-01 , 4.64431e-01 , 4.93297e-01 /) - kao_mco2( 7, :,10) = (/ & - & 2.03980e-01 , 2.17141e-01 , 2.31152e-01 , 2.46067e-01 , 2.61945e-01 , & - & 2.78847e-01 , 2.96839e-01 , 3.15993e-01 , 3.36382e-01 , 3.58087e-01 , & - & 3.81193e-01 , 4.05789e-01 , 4.31972e-01 , 4.59845e-01 , 4.89517e-01 , & - & 5.21103e-01 , 5.54727e-01 , 5.90520e-01 , 6.28623e-01 /) - kao_mco2( 8, :,10) = (/ & - & 1.96161e-04 , 2.07177e-04 , 2.18812e-04 , 2.31101e-04 , 2.44079e-04 , & - & 2.57787e-04 , 2.72264e-04 , 2.87554e-04 , 3.03703e-04 , 3.20758e-04 , & - & 3.38772e-04 , 3.57797e-04 , 3.77891e-04 , 3.99113e-04 , 4.21527e-04 , & - & 4.45200e-04 , 4.70202e-04 , 4.96608e-04 , 5.24498e-04 /) - kao_mco2( 9, :,10) = (/ & - & 1.76275e-01 , 1.88091e-01 , 2.00699e-01 , 2.14152e-01 , 2.28507e-01 , & - & 2.43824e-01 , 2.60168e-01 , 2.77607e-01 , 2.96216e-01 , 3.16071e-01 , & - & 3.37258e-01 , 3.59865e-01 , 3.83987e-01 , 4.09726e-01 , 4.37190e-01 , & - & 4.66495e-01 , 4.97765e-01 , 5.31131e-01 , 5.66733e-01 /) - kao_mco2( 1, :,11) = (/ & - & 1.99797e-01 , 2.14154e-01 , 2.29543e-01 , 2.46038e-01 , 2.63718e-01 , & - & 2.82669e-01 , 3.02981e-01 , 3.24753e-01 , 3.48090e-01 , 3.73104e-01 , & - & 3.99915e-01 , 4.28652e-01 , 4.59455e-01 , 4.92471e-01 , 5.27859e-01 , & - & 5.65791e-01 , 6.06448e-01 , 6.50027e-01 , 6.96738e-01 /) - kao_mco2( 2, :,11) = (/ & - & 2.20638e-01 , 2.35685e-01 , 2.51759e-01 , 2.68929e-01 , 2.87271e-01 , & - & 3.06863e-01 , 3.27791e-01 , 3.50146e-01 , 3.74026e-01 , 3.99535e-01 , & - & 4.26784e-01 , 4.55891e-01 , 4.86983e-01 , 5.20195e-01 , 5.55673e-01 , & - & 5.93570e-01 , 6.34052e-01 , 6.77294e-01 , 7.23486e-01 /) - kao_mco2( 3, :,11) = (/ & - & 2.62988e-01 , 2.80924e-01 , 3.00085e-01 , 3.20552e-01 , 3.42414e-01 , & - & 3.65768e-01 , 3.90715e-01 , 4.17363e-01 , 4.45829e-01 , 4.76237e-01 , & - & 5.08718e-01 , 5.43414e-01 , 5.80477e-01 , 6.20068e-01 , 6.62359e-01 , & - & 7.07535e-01 , 7.55791e-01 , 8.07339e-01 , 8.62403e-01 /) - kao_mco2( 4, :,11) = (/ & - & 2.43674e-01 , 2.59946e-01 , 2.77304e-01 , 2.95821e-01 , 3.15575e-01 , & - & 3.36647e-01 , 3.59127e-01 , 3.83108e-01 , 4.08691e-01 , 4.35981e-01 , & - & 4.65094e-01 , 4.96152e-01 , 5.29282e-01 , 5.64626e-01 , 6.02329e-01 , & - & 6.42550e-01 , 6.85457e-01 , 7.31229e-01 , 7.80057e-01 /) - kao_mco2( 5, :,11) = (/ & - & 2.23323e-01 , 2.37553e-01 , 2.52689e-01 , 2.68791e-01 , 2.85918e-01 , & - & 3.04136e-01 , 3.23515e-01 , 3.44129e-01 , 3.66057e-01 , 3.89381e-01 , & - & 4.14192e-01 , 4.40584e-01 , 4.68657e-01 , 4.98520e-01 , 5.30285e-01 , & - & 5.64074e-01 , 6.00016e-01 , 6.38248e-01 , 6.78917e-01 /) - kao_mco2( 6, :,11) = (/ & - & 2.83716e-01 , 3.02622e-01 , 3.22788e-01 , 3.44298e-01 , 3.67241e-01 , & - & 3.91713e-01 , 4.17816e-01 , 4.45658e-01 , 4.75356e-01 , 5.07033e-01 , & - & 5.40820e-01 , 5.76859e-01 , 6.15300e-01 , 6.56302e-01 , 7.00037e-01 , & - & 7.46686e-01 , 7.96443e-01 , 8.49516e-01 , 9.06126e-01 /) - kao_mco2( 7, :,11) = (/ & - & 1.00497e-03 , 1.06500e-03 , 1.12863e-03 , 1.19606e-03 , 1.26751e-03 , & - & 1.34323e-03 , 1.42348e-03 , 1.50852e-03 , 1.59864e-03 , 1.69414e-03 , & - & 1.79535e-03 , 1.90261e-03 , 2.01628e-03 , 2.13673e-03 , 2.26438e-03 , & - & 2.39966e-03 , 2.54302e-03 , 2.69494e-03 , 2.85594e-03 /) - kao_mco2( 8, :,11) = (/ & - & 3.22623e-04 , 3.39937e-04 , 3.58181e-04 , 3.77404e-04 , 3.97658e-04 , & - & 4.19000e-04 , 4.41487e-04 , 4.65180e-04 , 4.90146e-04 , 5.16451e-04 , & - & 5.44167e-04 , 5.73372e-04 , 6.04143e-04 , 6.36567e-04 , 6.70730e-04 , & - & 7.06726e-04 , 7.44655e-04 , 7.84619e-04 , 8.26727e-04 /) - kao_mco2( 9, :,11) = (/ & - & 2.23872e-01 , 2.38360e-01 , 2.53786e-01 , 2.70210e-01 , 2.87697e-01 , & - & 3.06316e-01 , 3.26140e-01 , 3.47247e-01 , 3.69720e-01 , 3.93647e-01 , & - & 4.19122e-01 , 4.46246e-01 , 4.75126e-01 , 5.05874e-01 , 5.38613e-01 , & - & 5.73470e-01 , 6.10583e-01 , 6.50098e-01 , 6.92170e-01 /) - kao_mco2( 1, :,12) = (/ & - & 3.52418e-01 , 3.76085e-01 , 4.01341e-01 , 4.28293e-01 , 4.57055e-01 , & - & 4.87749e-01 , 5.20504e-01 , 5.55458e-01 , 5.92760e-01 , 6.32567e-01 , & - & 6.75047e-01 , 7.20380e-01 , 7.68757e-01 , 8.20383e-01 , 8.75476e-01 , & - & 9.34268e-01 , 9.97009e-01 , 1.06396e+00 , 1.13541e+00 /) - kao_mco2( 2, :,12) = (/ & - & 3.38812e-01 , 3.61001e-01 , 3.84645e-01 , 4.09836e-01 , 4.36678e-01 , & - & 4.65278e-01 , 4.95750e-01 , 5.28219e-01 , 5.62814e-01 , 5.99674e-01 , & - & 6.38949e-01 , 6.80796e-01 , 7.25384e-01 , 7.72892e-01 , 8.23511e-01 , & - & 8.77446e-01 , 9.34913e-01 , 9.96144e-01 , 1.06138e+00 /) - kao_mco2( 3, :,12) = (/ & - & 3.44644e-01 , 3.66671e-01 , 3.90105e-01 , 4.15038e-01 , 4.41564e-01 , & - & 4.69785e-01 , 4.99810e-01 , 5.31754e-01 , 5.65740e-01 , 6.01897e-01 , & - & 6.40366e-01 , 6.81293e-01 , 7.24836e-01 , 7.71162e-01 , 8.20448e-01 , & - & 8.72885e-01 , 9.28673e-01 , 9.88027e-01 , 1.05117e+00 /) - kao_mco2( 4, :,12) = (/ & - & 4.20358e-01 , 4.47809e-01 , 4.77053e-01 , 5.08207e-01 , 5.41395e-01 , & - & 5.76750e-01 , 6.14414e-01 , 6.54538e-01 , 6.97282e-01 , 7.42818e-01 , & - & 7.91327e-01 , 8.43004e-01 , 8.98056e-01 , 9.56703e-01 , 1.01918e+00 , & - & 1.08574e+00 , 1.15664e+00 , 1.23217e+00 , 1.31264e+00 /) - kao_mco2( 5, :,12) = (/ & - & 4.42756e-01 , 4.72000e-01 , 5.03174e-01 , 5.36408e-01 , 5.71837e-01 , & - & 6.09606e-01 , 6.49870e-01 , 6.92793e-01 , 7.38551e-01 , 7.87331e-01 , & - & 8.39333e-01 , 8.94770e-01 , 9.53868e-01 , 1.01687e+00 , 1.08403e+00 , & - & 1.15563e+00 , 1.23196e+00 , 1.31333e+00 , 1.40007e+00 /) - kao_mco2( 6, :,12) = (/ & - & 1.53662e-01 , 1.63104e-01 , 1.73126e-01 , 1.83764e-01 , 1.95055e-01 , & - & 2.07040e-01 , 2.19762e-01 , 2.33265e-01 , 2.47598e-01 , 2.62811e-01 , & - & 2.78960e-01 , 2.96100e-01 , 3.14294e-01 , 3.33606e-01 , 3.54104e-01 , & - & 3.75862e-01 , 3.98956e-01 , 4.23470e-01 , 4.49490e-01 /) - kao_mco2( 7, :,12) = (/ & - & 5.41472e-04 , 5.65116e-04 , 5.89793e-04 , 6.15547e-04 , 6.42426e-04 , & - & 6.70479e-04 , 6.99757e-04 , 7.30313e-04 , 7.62203e-04 , 7.95486e-04 , & - & 8.30223e-04 , 8.66476e-04 , 9.04312e-04 , 9.43801e-04 , 9.85013e-04 , & - & 1.02803e-03 , 1.07292e-03 , 1.11977e-03 , 1.16866e-03 /) - kao_mco2( 8, :,12) = (/ & - & 5.94251e-04 , 6.17650e-04 , 6.41969e-04 , 6.67246e-04 , 6.93518e-04 , & - & 7.20824e-04 , 7.49206e-04 , 7.78705e-04 , 8.09366e-04 , 8.41234e-04 , & - & 8.74356e-04 , 9.08783e-04 , 9.44566e-04 , 9.81757e-04 , 1.02041e-03 , & - & 1.06059e-03 , 1.10235e-03 , 1.14575e-03 , 1.19087e-03 /) - kao_mco2( 9, :,12) = (/ & - & 4.21683e-01 , 4.49025e-01 , 4.78140e-01 , 5.09142e-01 , 5.42155e-01 , & - & 5.77309e-01 , 6.14741e-01 , 6.54601e-01 , 6.97046e-01 , 7.42242e-01 , & - & 7.90369e-01 , 8.41617e-01 , 8.96188e-01 , 9.54297e-01 , 1.01617e+00 , & - & 1.08206e+00 , 1.15222e+00 , 1.22693e+00 , 1.30649e+00 /) - kao_mco2( 1, :,13) = (/ & - & 5.61805e-01 , 5.98988e-01 , 6.38631e-01 , 6.80898e-01 , 7.25962e-01 , & - & 7.74009e-01 , 8.25236e-01 , 8.79853e-01 , 9.38085e-01 , 1.00017e+00 , & - & 1.06637e+00 , 1.13694e+00 , 1.21219e+00 , 1.29242e+00 , 1.37795e+00 , & - & 1.46915e+00 , 1.56638e+00 , 1.67005e+00 , 1.78058e+00 /) - kao_mco2( 2, :,13) = (/ & - & 5.55938e-01 , 5.91800e-01 , 6.29976e-01 , 6.70615e-01 , 7.13876e-01 , & - & 7.59927e-01 , 8.08949e-01 , 8.61133e-01 , 9.16683e-01 , 9.75817e-01 , & - & 1.03877e+00 , 1.10577e+00 , 1.17711e+00 , 1.25304e+00 , 1.33387e+00 , & - & 1.41992e+00 , 1.51152e+00 , 1.60902e+00 , 1.71282e+00 /) - kao_mco2( 3, :,13) = (/ & - & 5.94615e-01 , 6.33277e-01 , 6.74453e-01 , 7.18307e-01 , 7.65012e-01 , & - & 8.14753e-01 , 8.67729e-01 , 9.24149e-01 , 9.84238e-01 , 1.04823e+00 , & - & 1.11639e+00 , 1.18898e+00 , 1.26629e+00 , 1.34862e+00 , 1.43631e+00 , & - & 1.52970e+00 , 1.62916e+00 , 1.73509e+00 , 1.84791e+00 /) - kao_mco2( 4, :,13) = (/ & - & 5.48973e-01 , 5.84145e-01 , 6.21570e-01 , 6.61394e-01 , 7.03768e-01 , & - & 7.48858e-01 , 7.96836e-01 , 8.47889e-01 , 9.02212e-01 , 9.60015e-01 , & - & 1.02152e+00 , 1.08697e+00 , 1.15661e+00 , 1.23071e+00 , 1.30956e+00 , & - & 1.39347e+00 , 1.48274e+00 , 1.57774e+00 , 1.67883e+00 /) - kao_mco2( 5, :,13) = (/ & - & 1.49742e-01 , 1.59049e-01 , 1.68934e-01 , 1.79434e-01 , 1.90586e-01 , & - & 2.02432e-01 , 2.15013e-01 , 2.28377e-01 , 2.42571e-01 , 2.57648e-01 , & - & 2.73661e-01 , 2.90670e-01 , 3.08736e-01 , 3.27925e-01 , 3.48307e-01 , & - & 3.69955e-01 , 3.92949e-01 , 4.17372e-01 , 4.43312e-01 /) - kao_mco2( 6, :,13) = (/ & - & 8.81777e-04 , 9.16690e-04 , 9.52985e-04 , 9.90718e-04 , 1.02994e-03 , & - & 1.07072e-03 , 1.11312e-03 , 1.15719e-03 , 1.20301e-03 , 1.25064e-03 , & - & 1.30016e-03 , 1.35163e-03 , 1.40515e-03 , 1.46079e-03 , 1.51862e-03 , & - & 1.57875e-03 , 1.64126e-03 , 1.70624e-03 , 1.77380e-03 /) - kao_mco2( 7, :,13) = (/ & - & 8.84366e-04 , 9.20446e-04 , 9.57999e-04 , 9.97083e-04 , 1.03776e-03 , & - & 1.08010e-03 , 1.12417e-03 , 1.17003e-03 , 1.21777e-03 , 1.26745e-03 , & - & 1.31916e-03 , 1.37298e-03 , 1.42899e-03 , 1.48729e-03 , 1.54797e-03 , & - & 1.61113e-03 , 1.67686e-03 , 1.74527e-03 , 1.81647e-03 /) - kao_mco2( 8, :,13) = (/ & - & 8.92597e-04 , 9.33069e-04 , 9.75377e-04 , 1.01960e-03 , 1.06583e-03 , & - & 1.11416e-03 , 1.16468e-03 , 1.21749e-03 , 1.27269e-03 , 1.33040e-03 , & - & 1.39073e-03 , 1.45378e-03 , 1.51970e-03 , 1.58861e-03 , 1.66064e-03 , & - & 1.73594e-03 , 1.81465e-03 , 1.89693e-03 , 1.98294e-03 /) - kao_mco2( 9, :,13) = (/ & - & 1.46280e-01 , 1.55378e-01 , 1.65043e-01 , 1.75308e-01 , 1.86212e-01 , & - & 1.97794e-01 , 2.10097e-01 , 2.23164e-01 , 2.37045e-01 , 2.51788e-01 , & - & 2.67449e-01 , 2.84084e-01 , 3.01754e-01 , 3.20522e-01 , 3.40458e-01 , & - & 3.61634e-01 , 3.84127e-01 , 4.08020e-01 , 4.33398e-01 /) - kao_mco2( 1, :,14) = (/ & - & 9.20236e-01 , 9.80010e-01 , 1.04367e+00 , 1.11146e+00 , 1.18366e+00 , & - & 1.26054e+00 , 1.34242e+00 , 1.42962e+00 , 1.52248e+00 , 1.62137e+00 , & - & 1.72669e+00 , 1.83885e+00 , 1.95829e+00 , 2.08549e+00 , 2.22096e+00 , & - & 2.36522e+00 , 2.51886e+00 , 2.68247e+00 , 2.85671e+00 /) - kao_mco2( 2, :,14) = (/ & - & 8.39823e-01 , 8.95471e-01 , 9.54806e-01 , 1.01807e+00 , 1.08553e+00 , & - & 1.15746e+00 , 1.23416e+00 , 1.31593e+00 , 1.40313e+00 , 1.49610e+00 , & - & 1.59523e+00 , 1.70094e+00 , 1.81364e+00 , 1.93382e+00 , 2.06195e+00 , & - & 2.19858e+00 , 2.34426e+00 , 2.49960e+00 , 2.66522e+00 /) - kao_mco2( 3, :,14) = (/ & - & 5.39252e-01 , 5.73971e-01 , 6.10925e-01 , 6.50259e-01 , 6.92125e-01 , & - & 7.36686e-01 , 7.84117e-01 , 8.34601e-01 , 8.88336e-01 , 9.45530e-01 , & - & 1.00641e+00 , 1.07120e+00 , 1.14017e+00 , 1.21358e+00 , 1.29171e+00 , & - & 1.37488e+00 , 1.46340e+00 , 1.55762e+00 , 1.65790e+00 /) - kao_mco2( 4, :,14) = (/ & - & 1.14837e-03 , 1.19701e-03 , 1.24770e-03 , 1.30055e-03 , 1.35563e-03 , & - & 1.41305e-03 , 1.47289e-03 , 1.53528e-03 , 1.60030e-03 , 1.66808e-03 , & - & 1.73873e-03 , 1.81237e-03 , 1.88913e-03 , 1.96914e-03 , 2.05254e-03 , & - & 2.13947e-03 , 2.23009e-03 , 2.32454e-03 , 2.42299e-03 /) - kao_mco2( 5, :,14) = (/ & - & 1.14611e-03 , 1.19424e-03 , 1.24440e-03 , 1.29666e-03 , 1.35111e-03 , & - & 1.40786e-03 , 1.46698e-03 , 1.52859e-03 , 1.59279e-03 , 1.65968e-03 , & - & 1.72938e-03 , 1.80201e-03 , 1.87769e-03 , 1.95655e-03 , 2.03872e-03 , & - & 2.12434e-03 , 2.21355e-03 , 2.30651e-03 , 2.40338e-03 /) - kao_mco2( 6, :,14) = (/ & - & 1.14203e-03 , 1.18930e-03 , 1.23852e-03 , 1.28979e-03 , 1.34317e-03 , & - & 1.39877e-03 , 1.45666e-03 , 1.51695e-03 , 1.57974e-03 , 1.64513e-03 , & - & 1.71322e-03 , 1.78413e-03 , 1.85798e-03 , 1.93488e-03 , 2.01497e-03 , & - & 2.09837e-03 , 2.18522e-03 , 2.27567e-03 , 2.36986e-03 /) - kao_mco2( 7, :,14) = (/ & - & 1.11217e-03 , 1.15727e-03 , 1.20421e-03 , 1.25305e-03 , 1.30386e-03 , & - & 1.35674e-03 , 1.41177e-03 , 1.46902e-03 , 1.52860e-03 , 1.59059e-03 , & - & 1.65510e-03 , 1.72222e-03 , 1.79207e-03 , 1.86475e-03 , 1.94037e-03 , & - & 2.01907e-03 , 2.10095e-03 , 2.18616e-03 , 2.27482e-03 /) - kao_mco2( 8, :,14) = (/ & - & 1.21596e-03 , 1.25817e-03 , 1.30183e-03 , 1.34702e-03 , 1.39377e-03 , & - & 1.44214e-03 , 1.49219e-03 , 1.54398e-03 , 1.59757e-03 , 1.65302e-03 , & - & 1.71039e-03 , 1.76975e-03 , 1.83117e-03 , 1.89473e-03 , 1.96049e-03 , & - & 2.02853e-03 , 2.09893e-03 , 2.17178e-03 , 2.24716e-03 /) - kao_mco2( 9, :,14) = (/ & - & 1.14611e-03 , 1.19424e-03 , 1.24440e-03 , 1.29666e-03 , 1.35111e-03 , & - & 1.40786e-03 , 1.46698e-03 , 1.52859e-03 , 1.59279e-03 , 1.65968e-03 , & - & 1.72938e-03 , 1.80201e-03 , 1.87769e-03 , 1.95655e-03 , 2.03872e-03 , & - & 2.12434e-03 , 2.21355e-03 , 2.30651e-03 , 2.40338e-03 /) - kao_mco2( 1, :,15) = (/ & - & 1.29470e+00 , 1.37848e+00 , 1.46768e+00 , 1.56266e+00 , 1.66378e+00 , & - & 1.77145e+00 , 1.88609e+00 , 2.00814e+00 , 2.13809e+00 , 2.27645e+00 , & - & 2.42376e+00 , 2.58061e+00 , 2.74761e+00 , 2.92541e+00 , 3.11472e+00 , & - & 3.31628e+00 , 3.53088e+00 , 3.75938e+00 , 4.00265e+00 /) - kao_mco2( 2, :,15) = (/ & - & 7.23701e-01 , 7.68508e-01 , 8.16089e-01 , 8.66616e-01 , 9.20272e-01 , & - & 9.77250e-01 , 1.03775e+00 , 1.10201e+00 , 1.17024e+00 , 1.24269e+00 , & - & 1.31963e+00 , 1.40133e+00 , 1.48809e+00 , 1.58023e+00 , 1.67807e+00 , & - & 1.78196e+00 , 1.89229e+00 , 2.00945e+00 , 2.13386e+00 /) - kao_mco2( 3, :,15) = (/ & - & 1.81684e-03 , 1.85424e-03 , 1.89241e-03 , 1.93137e-03 , 1.97114e-03 , & - & 2.01172e-03 , 2.05313e-03 , 2.09540e-03 , 2.13854e-03 , 2.18257e-03 , & - & 2.22750e-03 , 2.27336e-03 , 2.32016e-03 , 2.36793e-03 , 2.41668e-03 , & - & 2.46643e-03 , 2.51721e-03 , 2.56903e-03 , 2.62192e-03 /) - kao_mco2( 4, :,15) = (/ & - & 1.84644e-03 , 1.88437e-03 , 1.92309e-03 , 1.96260e-03 , 2.00293e-03 , & - & 2.04408e-03 , 2.08608e-03 , 2.12894e-03 , 2.17268e-03 , 2.21732e-03 , & - & 2.26288e-03 , 2.30938e-03 , 2.35683e-03 , 2.40525e-03 , 2.45467e-03 , & - & 2.50510e-03 , 2.55658e-03 , 2.60910e-03 , 2.66271e-03 /) - kao_mco2( 5, :,15) = (/ & - & 1.88579e-03 , 1.92454e-03 , 1.96408e-03 , 2.00443e-03 , 2.04561e-03 , & - & 2.08764e-03 , 2.13054e-03 , 2.17431e-03 , 2.21898e-03 , 2.26457e-03 , & - & 2.31110e-03 , 2.35858e-03 , 2.40704e-03 , 2.45650e-03 , 2.50697e-03 , & - & 2.55848e-03 , 2.61104e-03 , 2.66469e-03 , 2.71943e-03 /) - kao_mco2( 6, :,15) = (/ & - & 1.95322e-03 , 1.99316e-03 , 2.03391e-03 , 2.07549e-03 , 2.11793e-03 , & - & 2.16123e-03 , 2.20542e-03 , 2.25051e-03 , 2.29652e-03 , 2.34347e-03 , & - & 2.39139e-03 , 2.44028e-03 , 2.49017e-03 , 2.54109e-03 , 2.59304e-03 , & - & 2.64605e-03 , 2.70015e-03 , 2.75536e-03 , 2.81169e-03 /) - kao_mco2( 7, :,15) = (/ & - & 2.13640e-03 , 2.17976e-03 , 2.22400e-03 , 2.26914e-03 , 2.31520e-03 , & - & 2.36219e-03 , 2.41013e-03 , 2.45905e-03 , 2.50896e-03 , 2.55988e-03 , & - & 2.61184e-03 , 2.66485e-03 , 2.71893e-03 , 2.77412e-03 , 2.83042e-03 , & - & 2.88787e-03 , 2.94648e-03 , 3.00629e-03 , 3.06730e-03 /) - kao_mco2( 8, :,15) = (/ & - & 2.17014e-03 , 2.21411e-03 , 2.25897e-03 , 2.30474e-03 , 2.35143e-03 , & - & 2.39908e-03 , 2.44769e-03 , 2.49728e-03 , 2.54788e-03 , 2.59950e-03 , & - & 2.65217e-03 , 2.70591e-03 , 2.76073e-03 , 2.81667e-03 , 2.87374e-03 , & - & 2.93197e-03 , 2.99137e-03 , 3.05198e-03 , 3.11382e-03 /) - kao_mco2( 9, :,15) = (/ & - & 1.88579e-03 , 1.92454e-03 , 1.96408e-03 , 2.00443e-03 , 2.04561e-03 , & - & 2.08764e-03 , 2.13054e-03 , 2.17431e-03 , 2.21898e-03 , 2.26457e-03 , & - & 2.31110e-03 , 2.35858e-03 , 2.40704e-03 , 2.45650e-03 , 2.50697e-03 , & - & 2.55848e-03 , 2.61104e-03 , 2.66469e-03 , 2.71943e-03 /) - kao_mco2( 1, :,16) = (/ & - & 1.48989e+00 , 1.58377e+00 , 1.68356e+00 , 1.78964e+00 , 1.90241e+00 , & - & 2.02228e+00 , 2.14971e+00 , 2.28516e+00 , 2.42915e+00 , 2.58221e+00 , & - & 2.74492e+00 , 2.91788e+00 , 3.10174e+00 , 3.29718e+00 , 3.50494e+00 , & - & 3.72578e+00 , 3.96055e+00 , 4.21010e+00 , 4.47538e+00 /) - kao_mco2( 2, :,16) = (/ & - & 2.10609e-03 , 2.14759e-03 , 2.18992e-03 , 2.23307e-03 , 2.27708e-03 , & - & 2.32196e-03 , 2.36771e-03 , 2.41438e-03 , 2.46196e-03 , 2.51047e-03 , & - & 2.55995e-03 , 2.61040e-03 , 2.66184e-03 , 2.71430e-03 , 2.76779e-03 , & - & 2.82234e-03 , 2.87796e-03 , 2.93467e-03 , 2.99251e-03 /) - kao_mco2( 3, :,16) = (/ & - & 2.10609e-03 , 2.14759e-03 , 2.18992e-03 , 2.23307e-03 , 2.27708e-03 , & - & 2.32196e-03 , 2.36771e-03 , 2.41438e-03 , 2.46196e-03 , 2.51047e-03 , & - & 2.55995e-03 , 2.61040e-03 , 2.66184e-03 , 2.71430e-03 , 2.76779e-03 , & - & 2.82234e-03 , 2.87796e-03 , 2.93467e-03 , 2.99251e-03 /) - kao_mco2( 4, :,16) = (/ & - & 2.10609e-03 , 2.14759e-03 , 2.18992e-03 , 2.23307e-03 , 2.27708e-03 , & - & 2.32196e-03 , 2.36771e-03 , 2.41438e-03 , 2.46196e-03 , 2.51047e-03 , & - & 2.55995e-03 , 2.61040e-03 , 2.66184e-03 , 2.71430e-03 , 2.76779e-03 , & - & 2.82234e-03 , 2.87796e-03 , 2.93467e-03 , 2.99251e-03 /) - kao_mco2( 5, :,16) = (/ & - & 2.10609e-03 , 2.14759e-03 , 2.18992e-03 , 2.23307e-03 , 2.27708e-03 , & - & 2.32196e-03 , 2.36771e-03 , 2.41438e-03 , 2.46196e-03 , 2.51047e-03 , & - & 2.55995e-03 , 2.61040e-03 , 2.66184e-03 , 2.71430e-03 , 2.76779e-03 , & - & 2.82234e-03 , 2.87796e-03 , 2.93467e-03 , 2.99251e-03 /) - kao_mco2( 6, :,16) = (/ & - & 2.10609e-03 , 2.14759e-03 , 2.18992e-03 , 2.23307e-03 , 2.27708e-03 , & - & 2.32196e-03 , 2.36771e-03 , 2.41438e-03 , 2.46196e-03 , 2.51047e-03 , & - & 2.55995e-03 , 2.61040e-03 , 2.66184e-03 , 2.71430e-03 , 2.76779e-03 , & - & 2.82234e-03 , 2.87796e-03 , 2.93467e-03 , 2.99251e-03 /) - kao_mco2( 7, :,16) = (/ & - & 2.09970e-03 , 2.14101e-03 , 2.18312e-03 , 2.22606e-03 , 2.26985e-03 , & - & 2.31450e-03 , 2.36003e-03 , 2.40645e-03 , 2.45379e-03 , 2.50205e-03 , & - & 2.55127e-03 , 2.60146e-03 , 2.65263e-03 , 2.70481e-03 , 2.75801e-03 , & - & 2.81226e-03 , 2.86758e-03 , 2.92399e-03 , 2.98150e-03 /) - kao_mco2( 8, :,16) = (/ & - & 2.09970e-03 , 2.14101e-03 , 2.18312e-03 , 2.22606e-03 , 2.26985e-03 , & - & 2.31450e-03 , 2.36003e-03 , 2.40645e-03 , 2.45379e-03 , 2.50205e-03 , & - & 2.55127e-03 , 2.60146e-03 , 2.65263e-03 , 2.70481e-03 , 2.75801e-03 , & - & 2.81226e-03 , 2.86758e-03 , 2.92399e-03 , 2.98150e-03 /) - kao_mco2( 9, :,16) = (/ & - & 2.10609e-03 , 2.14759e-03 , 2.18992e-03 , 2.23307e-03 , 2.27708e-03 , & - & 2.32196e-03 , 2.36771e-03 , 2.41438e-03 , 2.46196e-03 , 2.51047e-03 , & - & 2.55995e-03 , 2.61040e-03 , 2.66184e-03 , 2.71430e-03 , 2.76779e-03 , & - & 2.82234e-03 , 2.87796e-03 , 2.93467e-03 , 2.99251e-03 /) - - kao_mco( 1, :, 1) = (/ & - & 4.58355e-01 , 4.47074e-01 , 4.36070e-01 , 4.25337e-01 , 4.14868e-01 , & - & 4.04657e-01 , 3.94697e-01 , 3.84982e-01 , 3.75506e-01 , 3.66264e-01 , & - & 3.57249e-01 , 3.48456e-01 , 3.39879e-01 , 3.31514e-01 , 3.23354e-01 , & - & 3.15395e-01 , 3.07632e-01 , 3.00061e-01 , 2.92675e-01 /) - kao_mco( 2, :, 1) = (/ & - & 7.03080e-01 , 6.84132e-01 , 6.65696e-01 , 6.47756e-01 , 6.30300e-01 , & - & 6.13314e-01 , 5.96786e-01 , 5.80703e-01 , 5.65053e-01 , 5.49826e-01 , & - & 5.35009e-01 , 5.20591e-01 , 5.06561e-01 , 4.92910e-01 , 4.79627e-01 , & - & 4.66701e-01 , 4.54124e-01 , 4.41886e-01 , 4.29978e-01 /) - kao_mco( 3, :, 1) = (/ & - & 8.53018e-01 , 8.29537e-01 , 8.06703e-01 , 7.84497e-01 , 7.62903e-01 , & - & 7.41903e-01 , 7.21481e-01 , 7.01621e-01 , 6.82307e-01 , 6.63526e-01 , & - & 6.45261e-01 , 6.27499e-01 , 6.10226e-01 , 5.93429e-01 , 5.77094e-01 , & - & 5.61208e-01 , 5.45760e-01 , 5.30737e-01 , 5.16128e-01 /) - kao_mco( 4, :, 1) = (/ & - & 9.58866e-01 , 9.31881e-01 , 9.05654e-01 , 8.80166e-01 , 8.55395e-01 , & - & 8.31321e-01 , 8.07925e-01 , 7.85187e-01 , 7.63089e-01 , 7.41613e-01 , & - & 7.20742e-01 , 7.00457e-01 , 6.80744e-01 , 6.61586e-01 , 6.42966e-01 , & - & 6.24871e-01 , 6.07285e-01 , 5.90194e-01 , 5.73584e-01 /) - kao_mco( 5, :, 1) = (/ & - & 1.07140e+00 , 1.04056e+00 , 1.01061e+00 , 9.81521e-01 , 9.53269e-01 , & - & 9.25829e-01 , 8.99180e-01 , 8.73297e-01 , 8.48160e-01 , 8.23746e-01 , & - & 8.00035e-01 , 7.77006e-01 , 7.54641e-01 , 7.32919e-01 , 7.11822e-01 , & - & 6.91333e-01 , 6.71433e-01 , 6.52106e-01 , 6.33336e-01 /) - kao_mco( 6, :, 1) = (/ & - & 1.21046e+00 , 1.17478e+00 , 1.14015e+00 , 1.10655e+00 , 1.07393e+00 , & - & 1.04228e+00 , 1.01156e+00 , 9.81740e-01 , 9.52803e-01 , 9.24720e-01 , & - & 8.97463e-01 , 8.71011e-01 , 8.45338e-01 , 8.20422e-01 , 7.96240e-01 , & - & 7.72771e-01 , 7.49993e-01 , 7.27887e-01 , 7.06433e-01 /) - kao_mco( 7, :, 1) = (/ & - & 1.57730e+00 , 1.52919e+00 , 1.48255e+00 , 1.43733e+00 , 1.39349e+00 , & - & 1.35099e+00 , 1.30978e+00 , 1.26983e+00 , 1.23110e+00 , 1.19355e+00 , & - & 1.15715e+00 , 1.12186e+00 , 1.08764e+00 , 1.05446e+00 , 1.02230e+00 , & - & 9.91121e-01 , 9.60890e-01 , 9.31583e-01 , 9.03169e-01 /) - kao_mco( 8, :, 1) = (/ & - & 2.43678e+00 , 2.36595e+00 , 2.29719e+00 , 2.23042e+00 , 2.16560e+00 , & - & 2.10266e+00 , 2.04154e+00 , 1.98221e+00 , 1.92460e+00 , 1.86866e+00 , & - & 1.81435e+00 , 1.76162e+00 , 1.71042e+00 , 1.66070e+00 , 1.61244e+00 , & - & 1.56557e+00 , 1.52007e+00 , 1.47589e+00 , 1.43300e+00 /) - kao_mco( 9, :, 1) = (/ & - & 9.66296e-01 , 9.39903e-01 , 9.14232e-01 , 8.89262e-01 , 8.64973e-01 , & - & 8.41348e-01 , 8.18369e-01 , 7.96017e-01 , 7.74275e-01 , 7.53128e-01 , & - & 7.32558e-01 , 7.12549e-01 , 6.93088e-01 , 6.74157e-01 , 6.55744e-01 , & - & 6.37834e-01 , 6.20413e-01 , 6.03468e-01 , 5.86985e-01 /) - kao_mco( 1, :, 2) = (/ & - & 1.15047e+00 , 1.12127e+00 , 1.09281e+00 , 1.06507e+00 , 1.03804e+00 , & - & 1.01169e+00 , 9.86010e-01 , 9.60983e-01 , 9.36591e-01 , 9.12818e-01 , & - & 8.89649e-01 , 8.67067e-01 , 8.45059e-01 , 8.23610e-01 , 8.02705e-01 , & - & 7.82330e-01 , 7.62473e-01 , 7.43119e-01 , 7.24257e-01 /) - kao_mco( 2, :, 2) = (/ & - & 1.43243e+00 , 1.39430e+00 , 1.35719e+00 , 1.32106e+00 , 1.28590e+00 , & - & 1.25167e+00 , 1.21836e+00 , 1.18593e+00 , 1.15436e+00 , 1.12364e+00 , & - & 1.09373e+00 , 1.06462e+00 , 1.03628e+00 , 1.00870e+00 , 9.81848e-01 , & - & 9.55714e-01 , 9.30275e-01 , 9.05514e-01 , 8.81412e-01 /) - kao_mco( 3, :, 2) = (/ & - & 1.61389e+00 , 1.56911e+00 , 1.52556e+00 , 1.48323e+00 , 1.44207e+00 , & - & 1.40205e+00 , 1.36314e+00 , 1.32531e+00 , 1.28854e+00 , 1.25278e+00 , & - & 1.21801e+00 , 1.18421e+00 , 1.15135e+00 , 1.11940e+00 , 1.08834e+00 , & - & 1.05814e+00 , 1.02877e+00 , 1.00022e+00 , 9.72466e-01 /) - kao_mco( 4, :, 2) = (/ & - & 1.78458e+00 , 1.73440e+00 , 1.68564e+00 , 1.63825e+00 , 1.59219e+00 , & - & 1.54742e+00 , 1.50391e+00 , 1.46163e+00 , 1.42053e+00 , 1.38059e+00 , & - & 1.34178e+00 , 1.30405e+00 , 1.26739e+00 , 1.23175e+00 , 1.19712e+00 , & - & 1.16346e+00 , 1.13075e+00 , 1.09896e+00 , 1.06806e+00 /) - kao_mco( 5, :, 2) = (/ & - & 1.92622e+00 , 1.87172e+00 , 1.81876e+00 , 1.76730e+00 , 1.71730e+00 , & - & 1.66871e+00 , 1.62150e+00 , 1.57562e+00 , 1.53104e+00 , 1.48772e+00 , & - & 1.44563e+00 , 1.40473e+00 , 1.36498e+00 , 1.32636e+00 , 1.28883e+00 , & - & 1.25237e+00 , 1.21693e+00 , 1.18250e+00 , 1.14905e+00 /) - kao_mco( 6, :, 2) = (/ & - & 2.23194e+00 , 2.16782e+00 , 2.10554e+00 , 2.04505e+00 , 1.98630e+00 , & - & 1.92924e+00 , 1.87381e+00 , 1.81998e+00 , 1.76770e+00 , 1.71691e+00 , & - & 1.66759e+00 , 1.61968e+00 , 1.57315e+00 , 1.52796e+00 , 1.48406e+00 , & - & 1.44143e+00 , 1.40002e+00 , 1.35980e+00 , 1.32073e+00 /) - kao_mco( 7, :, 2) = (/ & - & 2.64692e+00 , 2.57290e+00 , 2.50096e+00 , 2.43103e+00 , 2.36305e+00 , & - & 2.29697e+00 , 2.23275e+00 , 2.17031e+00 , 2.10963e+00 , 2.05064e+00 , & - & 1.99330e+00 , 1.93756e+00 , 1.88338e+00 , 1.83072e+00 , 1.77953e+00 , & - & 1.72977e+00 , 1.68140e+00 , 1.63438e+00 , 1.58868e+00 /) - kao_mco( 8, :, 2) = (/ & - & 2.86812e+00 , 2.80121e+00 , 2.73586e+00 , 2.67204e+00 , 2.60970e+00 , & - & 2.54882e+00 , 2.48936e+00 , 2.43129e+00 , 2.37457e+00 , 2.31917e+00 , & - & 2.26507e+00 , 2.21223e+00 , 2.16062e+00 , 2.11022e+00 , 2.06099e+00 , & - & 2.01291e+00 , 1.96595e+00 , 1.92009e+00 , 1.87529e+00 /) - kao_mco( 9, :, 2) = (/ & - & 1.25243e+00 , 1.22790e+00 , 1.20385e+00 , 1.18027e+00 , 1.15716e+00 , & - & 1.13449e+00 , 1.11227e+00 , 1.09049e+00 , 1.06913e+00 , 1.04819e+00 , & - & 1.02766e+00 , 1.00754e+00 , 9.87804e-01 , 9.68457e-01 , 9.49490e-01 , & - & 9.30894e-01 , 9.12662e-01 , 8.94787e-01 , 8.77263e-01 /) - kao_mco( 1, :, 3) = (/ & - & 2.55598e+00 , 2.48729e+00 , 2.42045e+00 , 2.35541e+00 , 2.29211e+00 , & - & 2.23052e+00 , 2.17058e+00 , 2.11225e+00 , 2.05549e+00 , 2.00025e+00 , & - & 1.94650e+00 , 1.89419e+00 , 1.84329e+00 , 1.79376e+00 , 1.74555e+00 , & - & 1.69865e+00 , 1.65300e+00 , 1.60858e+00 , 1.56535e+00 /) - kao_mco( 2, :, 3) = (/ & - & 2.93113e+00 , 2.85257e+00 , 2.77612e+00 , 2.70172e+00 , 2.62932e+00 , & - & 2.55885e+00 , 2.49028e+00 , 2.42354e+00 , 2.35859e+00 , 2.29538e+00 , & - & 2.23386e+00 , 2.17400e+00 , 2.11573e+00 , 2.05903e+00 , 2.00385e+00 , & - & 1.95015e+00 , 1.89788e+00 , 1.84702e+00 , 1.79752e+00 /) - kao_mco( 3, :, 3) = (/ & - & 3.26626e+00 , 3.18025e+00 , 3.09651e+00 , 3.01497e+00 , 2.93558e+00 , & - & 2.85828e+00 , 2.78302e+00 , 2.70973e+00 , 2.63838e+00 , 2.56891e+00 , & - & 2.50126e+00 , 2.43540e+00 , 2.37127e+00 , 2.30883e+00 , 2.24803e+00 , & - & 2.18883e+00 , 2.13120e+00 , 2.07508e+00 , 2.02044e+00 /) - kao_mco( 4, :, 3) = (/ & - & 3.65895e+00 , 3.56418e+00 , 3.47187e+00 , 3.38194e+00 , 3.29435e+00 , & - & 3.20903e+00 , 3.12591e+00 , 3.04495e+00 , 2.96608e+00 , 2.88926e+00 , & - & 2.81443e+00 , 2.74153e+00 , 2.67053e+00 , 2.60136e+00 , 2.53398e+00 , & - & 2.46835e+00 , 2.40442e+00 , 2.34214e+00 , 2.28148e+00 /) - kao_mco( 5, :, 3) = (/ & - & 4.13692e+00 , 4.03459e+00 , 3.93479e+00 , 3.83746e+00 , 3.74254e+00 , & - & 3.64997e+00 , 3.55968e+00 , 3.47163e+00 , 3.38576e+00 , 3.30201e+00 , & - & 3.22034e+00 , 3.14068e+00 , 3.06299e+00 , 2.98723e+00 , 2.91334e+00 , & - & 2.84128e+00 , 2.77100e+00 , 2.70246e+00 , 2.63561e+00 /) - kao_mco( 6, :, 3) = (/ & - & 4.42856e+00 , 4.32480e+00 , 4.22348e+00 , 4.12453e+00 , 4.02790e+00 , & - & 3.93353e+00 , 3.84137e+00 , 3.75137e+00 , 3.66348e+00 , 3.57765e+00 , & - & 3.49383e+00 , 3.41198e+00 , 3.33204e+00 , 3.25397e+00 , 3.17774e+00 , & - & 3.10329e+00 , 3.03058e+00 , 2.95958e+00 , 2.89024e+00 /) - kao_mco( 7, :, 3) = (/ & - & 4.31306e+00 , 4.21750e+00 , 4.12406e+00 , 4.03268e+00 , 3.94333e+00 , & - & 3.85596e+00 , 3.77053e+00 , 3.68699e+00 , 3.60530e+00 , 3.52542e+00 , & - & 3.44731e+00 , 3.37093e+00 , 3.29624e+00 , 3.22321e+00 , 3.15179e+00 , & - & 3.08196e+00 , 3.01368e+00 , 2.94691e+00 , 2.88161e+00 /) - kao_mco( 8, :, 3) = (/ & - & 4.38922e+00 , 4.32180e+00 , 4.25543e+00 , 4.19007e+00 , 4.12571e+00 , & - & 4.06234e+00 , 3.99995e+00 , 3.93851e+00 , 3.87802e+00 , 3.81846e+00 , & - & 3.75981e+00 , 3.70206e+00 , 3.64520e+00 , 3.58922e+00 , 3.53409e+00 , & - & 3.47981e+00 , 3.42636e+00 , 3.37374e+00 , 3.32192e+00 /) - kao_mco( 9, :, 3) = (/ & - & 1.56810e+00 , 1.54211e+00 , 1.51654e+00 , 1.49139e+00 , 1.46667e+00 , & - & 1.44235e+00 , 1.41844e+00 , 1.39492e+00 , 1.37179e+00 , 1.34905e+00 , & - & 1.32668e+00 , 1.30469e+00 , 1.28306e+00 , 1.26178e+00 , 1.24086e+00 , & - & 1.22029e+00 , 1.20006e+00 , 1.18016e+00 , 1.16059e+00 /) - kao_mco( 1, :, 4) = (/ & - & 6.58275e+00 , 6.43026e+00 , 6.28130e+00 , 6.13579e+00 , 5.99365e+00 , & - & 5.85481e+00 , 5.71918e+00 , 5.58669e+00 , 5.45727e+00 , 5.33085e+00 , & - & 5.20736e+00 , 5.08673e+00 , 4.96889e+00 , 4.85379e+00 , 4.74135e+00 , & - & 4.63151e+00 , 4.52422e+00 , 4.41942e+00 , 4.31704e+00 /) - kao_mco( 2, :, 4) = (/ & - & 6.59883e+00 , 6.45139e+00 , 6.30725e+00 , 6.16633e+00 , 6.02855e+00 , & - & 5.89386e+00 , 5.76217e+00 , 5.63342e+00 , 5.50756e+00 , 5.38450e+00 , & - & 5.26419e+00 , 5.14657e+00 , 5.03158e+00 , 4.91916e+00 , 4.80925e+00 , & - & 4.70180e+00 , 4.59675e+00 , 4.49404e+00 , 4.39363e+00 /) - kao_mco( 3, :, 4) = (/ & - & 6.58521e+00 , 6.44452e+00 , 6.30683e+00 , 6.17209e+00 , 6.04023e+00 , & - & 5.91118e+00 , 5.78489e+00 , 5.66130e+00 , 5.54034e+00 , 5.42198e+00 , & - & 5.30614e+00 , 5.19277e+00 , 5.08183e+00 , 4.97326e+00 , 4.86701e+00 , & - & 4.76303e+00 , 4.66127e+00 , 4.56168e+00 , 4.46422e+00 /) - kao_mco( 4, :, 4) = (/ & - & 6.33742e+00 , 6.20870e+00 , 6.08260e+00 , 5.95905e+00 , 5.83802e+00 , & - & 5.71945e+00 , 5.60328e+00 , 5.48947e+00 , 5.37798e+00 , 5.26875e+00 , & - & 5.16174e+00 , 5.05690e+00 , 4.95419e+00 , 4.85357e+00 , 4.75499e+00 , & - & 4.65841e+00 , 4.56379e+00 , 4.47110e+00 , 4.38029e+00 /) - kao_mco( 5, :, 4) = (/ & - & 5.99732e+00 , 5.88459e+00 , 5.77398e+00 , 5.66545e+00 , 5.55896e+00 , & - & 5.45447e+00 , 5.35194e+00 , 5.25134e+00 , 5.15263e+00 , 5.05578e+00 , & - & 4.96075e+00 , 4.86750e+00 , 4.77601e+00 , 4.68623e+00 , 4.59815e+00 , & - & 4.51171e+00 , 4.42691e+00 , 4.34370e+00 , 4.26205e+00 /) - kao_mco( 6, :, 4) = (/ & - & 5.74529e+00 , 5.65249e+00 , 5.56119e+00 , 5.47136e+00 , 5.38299e+00 , & - & 5.29604e+00 , 5.21049e+00 , 5.12633e+00 , 5.04353e+00 , 4.96206e+00 , & - & 4.88191e+00 , 4.80306e+00 , 4.72547e+00 , 4.64915e+00 , 4.57405e+00 , & - & 4.50017e+00 , 4.42748e+00 , 4.35596e+00 , 4.28560e+00 /) - kao_mco( 7, :, 4) = (/ & - & 5.87251e+00 , 5.79956e+00 , 5.72753e+00 , 5.65638e+00 , 5.58613e+00 , & - & 5.51674e+00 , 5.44822e+00 , 5.38054e+00 , 5.31371e+00 , 5.24771e+00 , & - & 5.18253e+00 , 5.11815e+00 , 5.05458e+00 , 4.99180e+00 , 4.92979e+00 , & - & 4.86856e+00 , 4.80809e+00 , 4.74837e+00 , 4.68939e+00 /) - kao_mco( 8, :, 4) = (/ & - & 5.68503e+00 , 5.62827e+00 , 5.57207e+00 , 5.51644e+00 , 5.46136e+00 , & - & 5.40684e+00 , 5.35285e+00 , 5.29941e+00 , 5.24650e+00 , 5.19412e+00 , & - & 5.14226e+00 , 5.09092e+00 , 5.04009e+00 , 4.98977e+00 , 4.93995e+00 , & - & 4.89063e+00 , 4.84180e+00 , 4.79346e+00 , 4.74560e+00 /) - kao_mco( 9, :, 4) = (/ & - & 2.69278e+00 , 2.65058e+00 , 2.60903e+00 , 2.56814e+00 , 2.52789e+00 , & - & 2.48827e+00 , 2.44927e+00 , 2.41088e+00 , 2.37310e+00 , 2.33590e+00 , & - & 2.29929e+00 , 2.26325e+00 , 2.22778e+00 , 2.19286e+00 , 2.15849e+00 , & - & 2.12466e+00 , 2.09136e+00 , 2.05859e+00 , 2.02632e+00 /) - kao_mco( 1, :, 5) = (/ & - & 9.12231e+00 , 9.00052e+00 , 8.88036e+00 , 8.76180e+00 , 8.64482e+00 , & - & 8.52941e+00 , 8.41553e+00 , 8.30318e+00 , 8.19233e+00 , 8.08295e+00 , & - & 7.97504e+00 , 7.86857e+00 , 7.76352e+00 , 7.65987e+00 , 7.55760e+00 , & - & 7.45671e+00 , 7.35715e+00 , 7.25893e+00 , 7.16202e+00 /) - kao_mco( 2, :, 5) = (/ & - & 8.37315e+00 , 8.27808e+00 , 8.18410e+00 , 8.09118e+00 , 7.99931e+00 , & - & 7.90849e+00 , 7.81871e+00 , 7.72994e+00 , 7.64217e+00 , 7.55541e+00 , & - & 7.46963e+00 , 7.38482e+00 , 7.30098e+00 , 7.21809e+00 , 7.13614e+00 , & - & 7.05512e+00 , 6.97502e+00 , 6.89582e+00 , 6.81753e+00 /) - kao_mco( 3, :, 5) = (/ & - & 8.14557e+00 , 8.06533e+00 , 7.98587e+00 , 7.90720e+00 , 7.82930e+00 , & - & 7.75217e+00 , 7.67580e+00 , 7.60018e+00 , 7.52530e+00 , 7.45117e+00 , & - & 7.37776e+00 , 7.30508e+00 , 7.23311e+00 , 7.16186e+00 , 7.09130e+00 , & - & 7.02144e+00 , 6.95227e+00 , 6.88378e+00 , 6.81596e+00 /) - kao_mco( 4, :, 5) = (/ & - & 8.18046e+00 , 8.11056e+00 , 8.04126e+00 , 7.97256e+00 , 7.90444e+00 , & - & 7.83690e+00 , 7.76994e+00 , 7.70355e+00 , 7.63773e+00 , 7.57247e+00 , & - & 7.50777e+00 , 7.44362e+00 , 7.38002e+00 , 7.31697e+00 , 7.25445e+00 , & - & 7.19247e+00 , 7.13101e+00 , 7.07008e+00 , 7.00968e+00 /) - kao_mco( 5, :, 5) = (/ & - & 8.30092e+00 , 8.23529e+00 , 8.17019e+00 , 8.10559e+00 , 8.04151e+00 , & - & 7.97794e+00 , 7.91487e+00 , 7.85230e+00 , 7.79022e+00 , 7.72863e+00 , & - & 7.66753e+00 , 7.60691e+00 , 7.54678e+00 , 7.48711e+00 , 7.42792e+00 , & - & 7.36920e+00 , 7.31094e+00 , 7.25314e+00 , 7.19580e+00 /) - kao_mco( 6, :, 5) = (/ & - & 8.30014e+00 , 8.24466e+00 , 8.18955e+00 , 8.13481e+00 , 8.08044e+00 , & - & 8.02642e+00 , 7.97277e+00 , 7.91948e+00 , 7.86655e+00 , 7.81396e+00 , & - & 7.76173e+00 , 7.70985e+00 , 7.65832e+00 , 7.60713e+00 , 7.55628e+00 , & - & 7.50577e+00 , 7.45560e+00 , 7.40577e+00 , 7.35627e+00 /) - kao_mco( 7, :, 5) = (/ & - & 7.95931e+00 , 7.93958e+00 , 7.91989e+00 , 7.90025e+00 , 7.88066e+00 , & - & 7.86112e+00 , 7.84163e+00 , 7.82219e+00 , 7.80279e+00 , 7.78344e+00 , & - & 7.76414e+00 , 7.74489e+00 , 7.72568e+00 , 7.70653e+00 , 7.68742e+00 , & - & 7.66836e+00 , 7.64934e+00 , 7.63038e+00 , 7.61146e+00 /) - kao_mco( 8, :, 5) = (/ & - & 9.32576e+00 , 9.31747e+00 , 9.30919e+00 , 9.30092e+00 , 9.29265e+00 , & - & 9.28439e+00 , 9.27613e+00 , 9.26789e+00 , 9.25965e+00 , 9.25142e+00 , & - & 9.24320e+00 , 9.23498e+00 , 9.22677e+00 , 9.21857e+00 , 9.21038e+00 , & - & 9.20219e+00 , 9.19401e+00 , 9.18584e+00 , 9.17767e+00 /) - kao_mco( 9, :, 5) = (/ & - & 4.13116e+00 , 4.08426e+00 , 4.03788e+00 , 3.99204e+00 , 3.94671e+00 , & - & 3.90190e+00 , 3.85760e+00 , 3.81380e+00 , 3.77049e+00 , 3.72768e+00 , & - & 3.68536e+00 , 3.64351e+00 , 3.60214e+00 , 3.56124e+00 , 3.52081e+00 , & - & 3.48083e+00 , 3.44131e+00 , 3.40224e+00 , 3.36361e+00 /) - kao_mco( 1, :, 6) = (/ & - & 1.21200e+01 , 1.21580e+01 , 1.21961e+01 , 1.22344e+01 , 1.22728e+01 , & - & 1.23113e+01 , 1.23499e+01 , 1.23886e+01 , 1.24275e+01 , 1.24664e+01 , & - & 1.25056e+01 , 1.25448e+01 , 1.25841e+01 , 1.26236e+01 , 1.26632e+01 , & - & 1.27029e+01 , 1.27428e+01 , 1.27827e+01 , 1.28228e+01 /) - kao_mco( 2, :, 6) = (/ & - & 1.25231e+01 , 1.25625e+01 , 1.26020e+01 , 1.26417e+01 , 1.26815e+01 , & - & 1.27214e+01 , 1.27614e+01 , 1.28015e+01 , 1.28418e+01 , 1.28822e+01 , & - & 1.29228e+01 , 1.29634e+01 , 1.30042e+01 , 1.30451e+01 , 1.30862e+01 , & - & 1.31274e+01 , 1.31687e+01 , 1.32101e+01 , 1.32517e+01 /) - kao_mco( 3, :, 6) = (/ & - & 1.27566e+01 , 1.27983e+01 , 1.28401e+01 , 1.28820e+01 , 1.29241e+01 , & - & 1.29663e+01 , 1.30087e+01 , 1.30512e+01 , 1.30938e+01 , 1.31366e+01 , & - & 1.31795e+01 , 1.32225e+01 , 1.32657e+01 , 1.33090e+01 , 1.33525e+01 , & - & 1.33961e+01 , 1.34399e+01 , 1.34838e+01 , 1.35278e+01 /) - kao_mco( 4, :, 6) = (/ & - & 1.27132e+01 , 1.27454e+01 , 1.27777e+01 , 1.28101e+01 , 1.28425e+01 , & - & 1.28750e+01 , 1.29077e+01 , 1.29403e+01 , 1.29731e+01 , 1.30060e+01 , & - & 1.30389e+01 , 1.30720e+01 , 1.31051e+01 , 1.31383e+01 , 1.31716e+01 , & - & 1.32049e+01 , 1.32384e+01 , 1.32719e+01 , 1.33055e+01 /) - kao_mco( 5, :, 6) = (/ & - & 1.33151e+01 , 1.33523e+01 , 1.33896e+01 , 1.34271e+01 , 1.34646e+01 , & - & 1.35022e+01 , 1.35400e+01 , 1.35779e+01 , 1.36158e+01 , 1.36539e+01 , & - & 1.36921e+01 , 1.37303e+01 , 1.37687e+01 , 1.38072e+01 , 1.38458e+01 , & - & 1.38846e+01 , 1.39234e+01 , 1.39623e+01 , 1.40013e+01 /) - kao_mco( 6, :, 6) = (/ & - & 1.41448e+01 , 1.41902e+01 , 1.42357e+01 , 1.42814e+01 , 1.43272e+01 , & - & 1.43732e+01 , 1.44194e+01 , 1.44656e+01 , 1.45121e+01 , 1.45586e+01 , & - & 1.46054e+01 , 1.46522e+01 , 1.46993e+01 , 1.47464e+01 , 1.47938e+01 , & - & 1.48413e+01 , 1.48889e+01 , 1.49367e+01 , 1.49846e+01 /) - kao_mco( 7, :, 6) = (/ & - & 1.56578e+01 , 1.56938e+01 , 1.57299e+01 , 1.57661e+01 , 1.58024e+01 , & - & 1.58388e+01 , 1.58752e+01 , 1.59117e+01 , 1.59484e+01 , 1.59851e+01 , & - & 1.60218e+01 , 1.60587e+01 , 1.60957e+01 , 1.61327e+01 , 1.61698e+01 , & - & 1.62070e+01 , 1.62443e+01 , 1.62817e+01 , 1.63192e+01 /) - kao_mco( 8, :, 6) = (/ & - & 1.73627e+01 , 1.74761e+01 , 1.75903e+01 , 1.77052e+01 , 1.78208e+01 , & - & 1.79373e+01 , 1.80544e+01 , 1.81724e+01 , 1.82911e+01 , 1.84106e+01 , & - & 1.85309e+01 , 1.86519e+01 , 1.87738e+01 , 1.88964e+01 , 1.90198e+01 , & - & 1.91441e+01 , 1.92692e+01 , 1.93950e+01 , 1.95217e+01 /) - kao_mco( 9, :, 6) = (/ & - & 7.16326e+00 , 7.12921e+00 , 7.09531e+00 , 7.06158e+00 , 7.02800e+00 , & - & 6.99459e+00 , 6.96133e+00 , 6.92824e+00 , 6.89530e+00 , 6.86252e+00 , & - & 6.82989e+00 , 6.79742e+00 , 6.76510e+00 , 6.73293e+00 , 6.70092e+00 , & - & 6.66906e+00 , 6.63736e+00 , 6.60580e+00 , 6.57439e+00 /) - kao_mco( 1, :, 7) = (/ & - & 2.09288e+01 , 2.10487e+01 , 2.11692e+01 , 2.12904e+01 , 2.14124e+01 , & - & 2.15350e+01 , 2.16583e+01 , 2.17823e+01 , 2.19070e+01 , 2.20325e+01 , & - & 2.21587e+01 , 2.22855e+01 , 2.24132e+01 , 2.25415e+01 , 2.26706e+01 , & - & 2.28004e+01 , 2.29310e+01 , 2.30623e+01 , 2.31943e+01 /) - kao_mco( 2, :, 7) = (/ & - & 2.08159e+01 , 2.09509e+01 , 2.10867e+01 , 2.12234e+01 , 2.13610e+01 , & - & 2.14994e+01 , 2.16388e+01 , 2.17791e+01 , 2.19202e+01 , 2.20623e+01 , & - & 2.22053e+01 , 2.23493e+01 , 2.24942e+01 , 2.26400e+01 , 2.27867e+01 , & - & 2.29345e+01 , 2.30831e+01 , 2.32328e+01 , 2.33834e+01 /) - kao_mco( 3, :, 7) = (/ & - & 2.10827e+01 , 2.12409e+01 , 2.14002e+01 , 2.15608e+01 , 2.17225e+01 , & - & 2.18855e+01 , 2.20497e+01 , 2.22151e+01 , 2.23818e+01 , 2.25497e+01 , & - & 2.27189e+01 , 2.28893e+01 , 2.30611e+01 , 2.32341e+01 , 2.34084e+01 , & - & 2.35840e+01 , 2.37609e+01 , 2.39392e+01 , 2.41188e+01 /) - kao_mco( 4, :, 7) = (/ & - & 2.13866e+01 , 2.15772e+01 , 2.17694e+01 , 2.19634e+01 , 2.21590e+01 , & - & 2.23565e+01 , 2.25556e+01 , 2.27566e+01 , 2.29594e+01 , 2.31639e+01 , & - & 2.33703e+01 , 2.35785e+01 , 2.37886e+01 , 2.40005e+01 , 2.42144e+01 , & - & 2.44301e+01 , 2.46477e+01 , 2.48673e+01 , 2.50889e+01 /) - kao_mco( 5, :, 7) = (/ & - & 1.93714e+01 , 1.95595e+01 , 1.97493e+01 , 1.99410e+01 , 2.01345e+01 , & - & 2.03300e+01 , 2.05273e+01 , 2.07265e+01 , 2.09277e+01 , 2.11308e+01 , & - & 2.13359e+01 , 2.15430e+01 , 2.17521e+01 , 2.19632e+01 , 2.21764e+01 , & - & 2.23917e+01 , 2.26090e+01 , 2.28284e+01 , 2.30500e+01 /) - kao_mco( 6, :, 7) = (/ & - & 1.70418e+01 , 1.72109e+01 , 1.73817e+01 , 1.75541e+01 , 1.77283e+01 , & - & 1.79041e+01 , 1.80818e+01 , 1.82612e+01 , 1.84423e+01 , 1.86253e+01 , & - & 1.88101e+01 , 1.89967e+01 , 1.91852e+01 , 1.93755e+01 , 1.95678e+01 , & - & 1.97619e+01 , 1.99580e+01 , 2.01560e+01 , 2.03560e+01 /) - kao_mco( 7, :, 7) = (/ & - & 1.31735e+01 , 1.32921e+01 , 1.34118e+01 , 1.35326e+01 , 1.36545e+01 , & - & 1.37775e+01 , 1.39015e+01 , 1.40267e+01 , 1.41531e+01 , 1.42805e+01 , & - & 1.44091e+01 , 1.45389e+01 , 1.46698e+01 , 1.48019e+01 , 1.49353e+01 , & - & 1.50698e+01 , 1.52055e+01 , 1.53424e+01 , 1.54806e+01 /) - kao_mco( 8, :, 7) = (/ & - & 4.97361e+00 , 4.96550e+00 , 4.95740e+00 , 4.94931e+00 , 4.94124e+00 , & - & 4.93318e+00 , 4.92513e+00 , 4.91709e+00 , 4.90907e+00 , 4.90106e+00 , & - & 4.89307e+00 , 4.88509e+00 , 4.87712e+00 , 4.86916e+00 , 4.86122e+00 , & - & 4.85329e+00 , 4.84537e+00 , 4.83747e+00 , 4.82958e+00 /) - kao_mco( 9, :, 7) = (/ & - & 1.76121e+01 , 1.75887e+01 , 1.75653e+01 , 1.75420e+01 , 1.75187e+01 , & - & 1.74955e+01 , 1.74722e+01 , 1.74490e+01 , 1.74259e+01 , 1.74027e+01 , & - & 1.73796e+01 , 1.73566e+01 , 1.73335e+01 , 1.73105e+01 , 1.72875e+01 , & - & 1.72646e+01 , 1.72416e+01 , 1.72188e+01 , 1.71959e+01 /) - kao_mco( 1, :, 8) = (/ & - & 5.99126e+00 , 6.08386e+00 , 6.17790e+00 , 6.27339e+00 , 6.37035e+00 , & - & 6.46881e+00 , 6.56880e+00 , 6.67033e+00 , 6.77343e+00 , 6.87812e+00 , & - & 6.98443e+00 , 7.09238e+00 , 7.20201e+00 , 7.31332e+00 , 7.42636e+00 , & - & 7.54115e+00 , 7.65771e+00 , 7.77607e+00 , 7.89626e+00 /) - kao_mco( 2, :, 8) = (/ & - & 4.71621e+00 , 4.78830e+00 , 4.86149e+00 , 4.93580e+00 , 5.01124e+00 , & - & 5.08784e+00 , 5.16561e+00 , 5.24456e+00 , 5.32473e+00 , 5.40612e+00 , & - & 5.48875e+00 , 5.57264e+00 , 5.65782e+00 , 5.74430e+00 , 5.83211e+00 , & - & 5.92125e+00 , 6.01176e+00 , 6.10365e+00 , 6.19694e+00 /) - kao_mco( 3, :, 8) = (/ & - & 2.77067e+00 , 2.81437e+00 , 2.85876e+00 , 2.90385e+00 , 2.94965e+00 , & - & 2.99617e+00 , 3.04343e+00 , 3.09143e+00 , 3.14019e+00 , 3.18972e+00 , & - & 3.24003e+00 , 3.29114e+00 , 3.34305e+00 , 3.39578e+00 , 3.44934e+00 , & - & 3.50374e+00 , 3.55901e+00 , 3.61514e+00 , 3.67216e+00 /) - kao_mco( 4, :, 8) = (/ & - & 1.22388e+00 , 1.24248e+00 , 1.26136e+00 , 1.28053e+00 , 1.29999e+00 , & - & 1.31974e+00 , 1.33979e+00 , 1.36015e+00 , 1.38082e+00 , 1.40181e+00 , & - & 1.42311e+00 , 1.44473e+00 , 1.46669e+00 , 1.48897e+00 , 1.51160e+00 , & - & 1.53457e+00 , 1.55789e+00 , 1.58156e+00 , 1.60559e+00 /) - kao_mco( 5, :, 8) = (/ & - & 1.41479e+00 , 1.43540e+00 , 1.45631e+00 , 1.47752e+00 , 1.49904e+00 , & - & 1.52088e+00 , 1.54303e+00 , 1.56550e+00 , 1.58831e+00 , 1.61144e+00 , & - & 1.63491e+00 , 1.65872e+00 , 1.68288e+00 , 1.70740e+00 , 1.73227e+00 , & - & 1.75750e+00 , 1.78310e+00 , 1.80907e+00 , 1.83542e+00 /) - kao_mco( 6, :, 8) = (/ & - & 1.43154e+00 , 1.46074e+00 , 1.49053e+00 , 1.52093e+00 , 1.55196e+00 , & - & 1.58361e+00 , 1.61591e+00 , 1.64887e+00 , 1.68250e+00 , 1.71682e+00 , & - & 1.75184e+00 , 1.78757e+00 , 1.82403e+00 , 1.86123e+00 , 1.89920e+00 , & - & 1.93793e+00 , 1.97746e+00 , 2.01779e+00 , 2.05895e+00 /) - kao_mco( 7, :, 8) = (/ & - & 2.49358e+00 , 2.56028e+00 , 2.62875e+00 , 2.69906e+00 , 2.77124e+00 , & - & 2.84536e+00 , 2.92146e+00 , 2.99960e+00 , 3.07982e+00 , 3.16219e+00 , & - & 3.24677e+00 , 3.33360e+00 , 3.42276e+00 , 3.51430e+00 , 3.60829e+00 , & - & 3.70480e+00 , 3.80388e+00 , 3.90562e+00 , 4.01007e+00 /) - kao_mco( 8, :, 8) = (/ & - & 4.32513e+00 , 4.39903e+00 , 4.47420e+00 , 4.55065e+00 , 4.62841e+00 , & - & 4.70750e+00 , 4.78794e+00 , 4.86975e+00 , 4.95296e+00 , 5.03759e+00 , & - & 5.12367e+00 , 5.21122e+00 , 5.30027e+00 , 5.39084e+00 , 5.48295e+00 , & - & 5.57664e+00 , 5.67193e+00 , 5.76885e+00 , 5.86743e+00 /) - kao_mco( 9, :, 8) = (/ & - & 3.35160e+01 , 3.36789e+01 , 3.38425e+01 , 3.40069e+01 , 3.41722e+01 , & - & 3.43382e+01 , 3.45050e+01 , 3.46727e+01 , 3.48412e+01 , 3.50105e+01 , & - & 3.51806e+01 , 3.53515e+01 , 3.55233e+01 , 3.56959e+01 , 3.58693e+01 , & - & 3.60436e+01 , 3.62187e+01 , 3.63947e+01 , 3.65715e+01 /) - kao_mco( 1, :, 9) = (/ & - & 8.68159e-01 , 9.13680e-01 , 9.61587e-01 , 1.01201e+00 , 1.06507e+00 , & - & 1.12091e+00 , 1.17969e+00 , 1.24154e+00 , 1.30664e+00 , 1.37515e+00 , & - & 1.44726e+00 , 1.52314e+00 , 1.60300e+00 , 1.68705e+00 , 1.77551e+00 , & - & 1.86861e+00 , 1.96658e+00 , 2.06970e+00 , 2.17822e+00 /) - kao_mco( 2, :, 9) = (/ & - & 9.04391e-01 , 9.49669e-01 , 9.97214e-01 , 1.04714e+00 , 1.09956e+00 , & - & 1.15461e+00 , 1.21242e+00 , 1.27312e+00 , 1.33685e+00 , 1.40378e+00 , & - & 1.47406e+00 , 1.54786e+00 , 1.62535e+00 , 1.70673e+00 , 1.79217e+00 , & - & 1.88190e+00 , 1.97611e+00 , 2.07505e+00 , 2.17893e+00 /) - kao_mco( 3, :, 9) = (/ & - & 9.67479e-01 , 1.01312e+00 , 1.06092e+00 , 1.11098e+00 , 1.16339e+00 , & - & 1.21828e+00 , 1.27576e+00 , 1.33595e+00 , 1.39898e+00 , 1.46499e+00 , & - & 1.53411e+00 , 1.60649e+00 , 1.68228e+00 , 1.76165e+00 , 1.84476e+00 , & - & 1.93180e+00 , 2.02294e+00 , 2.11839e+00 , 2.21833e+00 /) - kao_mco( 4, :, 9) = (/ & - & 1.05240e+00 , 1.09817e+00 , 1.14592e+00 , 1.19576e+00 , 1.24776e+00 , & - & 1.30202e+00 , 1.35864e+00 , 1.41772e+00 , 1.47937e+00 , 1.54371e+00 , & - & 1.61084e+00 , 1.68089e+00 , 1.75398e+00 , 1.83026e+00 , 1.90985e+00 , & - & 1.99290e+00 , 2.07957e+00 , 2.17000e+00 , 2.26437e+00 /) - kao_mco( 5, :, 9) = (/ & - & 1.25800e+00 , 1.30557e+00 , 1.35494e+00 , 1.40618e+00 , 1.45935e+00 , & - & 1.51454e+00 , 1.57181e+00 , 1.63125e+00 , 1.69293e+00 , 1.75695e+00 , & - & 1.82339e+00 , 1.89234e+00 , 1.96389e+00 , 2.03816e+00 , 2.11523e+00 , & - & 2.19522e+00 , 2.27823e+00 , 2.36438e+00 , 2.45378e+00 /) - kao_mco( 6, :, 9) = (/ & - & 1.76509e+00 , 1.80550e+00 , 1.84683e+00 , 1.88911e+00 , 1.93235e+00 , & - & 1.97658e+00 , 2.02183e+00 , 2.06811e+00 , 2.11546e+00 , 2.16388e+00 , & - & 2.21342e+00 , 2.26408e+00 , 2.31591e+00 , 2.36893e+00 , 2.42315e+00 , & - & 2.47862e+00 , 2.53536e+00 , 2.59340e+00 , 2.65277e+00 /) - kao_mco( 7, :, 9) = (/ & - & 2.03543e+00 , 2.05285e+00 , 2.07042e+00 , 2.08815e+00 , 2.10602e+00 , & - & 2.12405e+00 , 2.14223e+00 , 2.16057e+00 , 2.17907e+00 , 2.19772e+00 , & - & 2.21654e+00 , 2.23551e+00 , 2.25465e+00 , 2.27395e+00 , 2.29342e+00 , & - & 2.31305e+00 , 2.33285e+00 , 2.35282e+00 , 2.37296e+00 /) - kao_mco( 8, :, 9) = (/ & - & 3.18883e+00 , 3.20538e+00 , 3.22200e+00 , 3.23872e+00 , 3.25552e+00 , & - & 3.27241e+00 , 3.28939e+00 , 3.30645e+00 , 3.32360e+00 , 3.34085e+00 , & - & 3.35818e+00 , 3.37560e+00 , 3.39311e+00 , 3.41071e+00 , 3.42841e+00 , & - & 3.44619e+00 , 3.46407e+00 , 3.48204e+00 , 3.50011e+00 /) - kao_mco( 9, :, 9) = (/ & - & 3.97585e+00 , 3.96333e+00 , 3.95084e+00 , 3.93839e+00 , 3.92598e+00 , & - & 3.91361e+00 , 3.90128e+00 , 3.88899e+00 , 3.87674e+00 , 3.86452e+00 , & - & 3.85235e+00 , 3.84021e+00 , 3.82811e+00 , 3.81605e+00 , 3.80402e+00 , & - & 3.79204e+00 , 3.78009e+00 , 3.76818e+00 , 3.75631e+00 /) - kao_mco( 1, :,10) = (/ & - & 8.62646e-01 , 9.35164e-01 , 1.01378e+00 , 1.09900e+00 , 1.19139e+00 , & - & 1.29154e+00 , 1.40011e+00 , 1.51781e+00 , 1.64541e+00 , 1.78373e+00 , & - & 1.93367e+00 , 2.09623e+00 , 2.27245e+00 , 2.46348e+00 , 2.67057e+00 , & - & 2.89507e+00 , 3.13844e+00 , 3.40227e+00 , 3.68828e+00 /) - kao_mco( 2, :,10) = (/ & - & 8.04693e-01 , 8.72167e-01 , 9.45298e-01 , 1.02456e+00 , 1.11047e+00 , & - & 1.20358e+00 , 1.30450e+00 , 1.41389e+00 , 1.53244e+00 , 1.66094e+00 , & - & 1.80021e+00 , 1.95115e+00 , 2.11476e+00 , 2.29208e+00 , 2.48427e+00 , & - & 2.69258e+00 , 2.91835e+00 , 3.16305e+00 , 3.42827e+00 /) - kao_mco( 3, :,10) = (/ & - & 7.66566e-01 , 8.24651e-01 , 8.87137e-01 , 9.54358e-01 , 1.02667e+00 , & - & 1.10447e+00 , 1.18815e+00 , 1.27818e+00 , 1.37503e+00 , 1.47922e+00 , & - & 1.59131e+00 , 1.71189e+00 , 1.84160e+00 , 1.98114e+00 , 2.13126e+00 , & - & 2.29275e+00 , 2.46648e+00 , 2.65337e+00 , 2.85442e+00 /) - kao_mco( 4, :,10) = (/ & - & 5.40305e-01 , 5.77106e-01 , 6.16414e-01 , 6.58400e-01 , 7.03245e-01 , & - & 7.51145e-01 , 8.02307e-01 , 8.56954e-01 , 9.15323e-01 , 9.77668e-01 , & - & 1.04426e+00 , 1.11539e+00 , 1.19136e+00 , 1.27250e+00 , 1.35918e+00 , & - & 1.45175e+00 , 1.55064e+00 , 1.65625e+00 , 1.76906e+00 /) - kao_mco( 5, :,10) = (/ & - & 8.22474e-01 , 8.02911e-01 , 7.83814e-01 , 7.65171e-01 , 7.46971e-01 , & - & 7.29204e-01 , 7.11860e-01 , 6.94928e-01 , 6.78399e-01 , 6.62263e-01 , & - & 6.46511e-01 , 6.31133e-01 , 6.16122e-01 , 6.01467e-01 , 5.87161e-01 , & - & 5.73195e-01 , 5.59562e-01 , 5.46252e-01 , 5.33260e-01 /) - kao_mco( 6, :,10) = (/ & - & 1.28162e+00 , 1.25110e+00 , 1.22131e+00 , 1.19223e+00 , 1.16384e+00 , & - & 1.13613e+00 , 1.10908e+00 , 1.08267e+00 , 1.05689e+00 , 1.03173e+00 , & - & 1.00716e+00 , 9.83184e-01 , 9.59774e-01 , 9.36921e-01 , 9.14613e-01 , & - & 8.92836e-01 , 8.71577e-01 , 8.50825e-01 , 8.30567e-01 /) - kao_mco( 7, :,10) = (/ & - & 1.92679e+00 , 1.90551e+00 , 1.88446e+00 , 1.86365e+00 , 1.84307e+00 , & - & 1.82271e+00 , 1.80258e+00 , 1.78267e+00 , 1.76298e+00 , 1.74351e+00 , & - & 1.72425e+00 , 1.70520e+00 , 1.68637e+00 , 1.66774e+00 , 1.64932e+00 , & - & 1.63111e+00 , 1.61309e+00 , 1.59527e+00 , 1.57765e+00 /) - kao_mco( 8, :,10) = (/ & - & 4.66485e+00 , 4.60869e+00 , 4.55320e+00 , 4.49838e+00 , 4.44423e+00 , & - & 4.39072e+00 , 4.33786e+00 , 4.28563e+00 , 4.23404e+00 , 4.18306e+00 , & - & 4.13270e+00 , 4.08295e+00 , 4.03379e+00 , 3.98523e+00 , 3.93725e+00 , & - & 3.88985e+00 , 3.84301e+00 , 3.79675e+00 , 3.75104e+00 /) - kao_mco( 9, :,10) = (/ & - & 1.41505e+00 , 1.37820e+00 , 1.34232e+00 , 1.30736e+00 , 1.27332e+00 , & - & 1.24016e+00 , 1.20786e+00 , 1.17641e+00 , 1.14578e+00 , 1.11594e+00 , & - & 1.08688e+00 , 1.05858e+00 , 1.03101e+00 , 1.00416e+00 , 9.78015e-01 , & - & 9.52547e-01 , 9.27742e-01 , 9.03583e-01 , 8.80053e-01 /) - kao_mco( 1, :,11) = (/ & - & 3.40468e-03 , 4.05994e-03 , 4.84130e-03 , 5.77305e-03 , 6.88412e-03 , & - & 8.20902e-03 , 9.78890e-03 , 1.16728e-02 , 1.39194e-02 , 1.65983e-02 , & - & 1.97927e-02 , 2.36020e-02 , 2.81444e-02 , 3.35610e-02 , 4.00200e-02 , & - & 4.77222e-02 , 5.69067e-02 , 6.78588e-02 , 8.09187e-02 /) - kao_mco( 2, :,11) = (/ & - & 3.85021e-02 , 4.02208e-02 , 4.20162e-02 , 4.38918e-02 , 4.58512e-02 , & - & 4.78980e-02 , 5.00361e-02 , 5.22697e-02 , 5.46031e-02 , 5.70405e-02 , & - & 5.95868e-02 , 6.22468e-02 , 6.50254e-02 , 6.79282e-02 , 7.09605e-02 , & - & 7.41282e-02 , 7.74372e-02 , 8.08940e-02 , 8.45051e-02 /) - kao_mco( 3, :,11) = (/ & - & 5.24852e-01 , 5.10480e-01 , 4.96501e-01 , 4.82905e-01 , 4.69681e-01 , & - & 4.56820e-01 , 4.44310e-01 , 4.32143e-01 , 4.20310e-01 , 4.08800e-01 , & - & 3.97606e-01 , 3.86718e-01 , 3.76128e-01 , 3.65828e-01 , 3.55810e-01 , & - & 3.46067e-01 , 3.36590e-01 , 3.27373e-01 , 3.18409e-01 /) - kao_mco( 4, :,11) = (/ & - & 5.86290e-01 , 5.70241e-01 , 5.54632e-01 , 5.39450e-01 , 5.24683e-01 , & - & 5.10321e-01 , 4.96352e-01 , 4.82765e-01 , 4.69550e-01 , 4.56697e-01 , & - & 4.44196e-01 , 4.32036e-01 , 4.20210e-01 , 4.08708e-01 , 3.97520e-01 , & - & 3.86638e-01 , 3.76055e-01 , 3.65761e-01 , 3.55749e-01 /) - kao_mco( 5, :,11) = (/ & - & 1.66977e+00 , 1.61807e+00 , 1.56798e+00 , 1.51943e+00 , 1.47239e+00 , & - & 1.42681e+00 , 1.38264e+00 , 1.33983e+00 , 1.29835e+00 , 1.25815e+00 , & - & 1.21920e+00 , 1.18146e+00 , 1.14488e+00 , 1.10943e+00 , 1.07509e+00 , & - & 1.04180e+00 , 1.00955e+00 , 9.78295e-01 , 9.48008e-01 /) - kao_mco( 6, :,11) = (/ & - & 1.96627e+00 , 1.90948e+00 , 1.85432e+00 , 1.80076e+00 , 1.74875e+00 , & - & 1.69823e+00 , 1.64918e+00 , 1.60155e+00 , 1.55529e+00 , 1.51036e+00 , & - & 1.46674e+00 , 1.42437e+00 , 1.38323e+00 , 1.34328e+00 , 1.30448e+00 , & - & 1.26680e+00 , 1.23021e+00 , 1.19467e+00 , 1.16016e+00 /) - kao_mco( 7, :,11) = (/ & - & 1.67574e+00 , 1.63510e+00 , 1.59544e+00 , 1.55674e+00 , 1.51898e+00 , & - & 1.48213e+00 , 1.44618e+00 , 1.41111e+00 , 1.37688e+00 , 1.34348e+00 , & - & 1.31090e+00 , 1.27910e+00 , 1.24808e+00 , 1.21780e+00 , 1.18826e+00 , & - & 1.15944e+00 , 1.13132e+00 , 1.10388e+00 , 1.07710e+00 /) - kao_mco( 8, :,11) = (/ & - & 2.00764e+00 , 1.96233e+00 , 1.91803e+00 , 1.87474e+00 , 1.83242e+00 , & - & 1.79106e+00 , 1.75063e+00 , 1.71111e+00 , 1.67249e+00 , 1.63474e+00 , & - & 1.59784e+00 , 1.56177e+00 , 1.52652e+00 , 1.49206e+00 , 1.45838e+00 , & - & 1.42546e+00 , 1.39329e+00 , 1.36184e+00 , 1.33110e+00 /) - kao_mco( 9, :,11) = (/ & - & 1.83026e+00 , 1.77349e+00 , 1.71849e+00 , 1.66519e+00 , 1.61355e+00 , & - & 1.56350e+00 , 1.51501e+00 , 1.46803e+00 , 1.42250e+00 , 1.37838e+00 , & - & 1.33563e+00 , 1.29421e+00 , 1.25407e+00 , 1.21517e+00 , 1.17749e+00 , & - & 1.14097e+00 , 1.10558e+00 , 1.07129e+00 , 1.03807e+00 /) - kao_mco( 1, :,12) = (/ & - & 3.90309e-04 , 4.81310e-04 , 5.93528e-04 , 7.31909e-04 , 9.02554e-04 , & - & 1.11299e-03 , 1.37248e-03 , 1.69247e-03 , 2.08708e-03 , 2.57368e-03 , & - & 3.17374e-03 , 3.91370e-03 , 4.82617e-03 , 5.95140e-03 , 7.33897e-03 , & - & 9.05007e-03 , 1.11601e-02 , 1.37621e-02 , 1.69707e-02 /) - kao_mco( 2, :,12) = (/ & - & 9.80585e-02 , 9.77457e-02 , 9.74339e-02 , 9.71231e-02 , 9.68132e-02 , & - & 9.65044e-02 , 9.61965e-02 , 9.58897e-02 , 9.55838e-02 , 9.52789e-02 , & - & 9.49749e-02 , 9.46719e-02 , 9.43699e-02 , 9.40689e-02 , 9.37688e-02 , & - & 9.34697e-02 , 9.31715e-02 , 9.28743e-02 , 9.25780e-02 /) - kao_mco( 3, :,12) = (/ & - & 3.15258e-01 , 3.09936e-01 , 3.04704e-01 , 2.99560e-01 , 2.94503e-01 , & - & 2.89532e-01 , 2.84645e-01 , 2.79840e-01 , 2.75116e-01 , 2.70472e-01 , & - & 2.65906e-01 , 2.61417e-01 , 2.57004e-01 , 2.52666e-01 , 2.48401e-01 , & - & 2.44207e-01 , 2.40085e-01 , 2.36032e-01 , 2.32048e-01 /) - kao_mco( 4, :,12) = (/ & - & 9.74407e-01 , 9.46900e-01 , 9.20170e-01 , 8.94195e-01 , 8.68952e-01 , & - & 8.44422e-01 , 8.20585e-01 , 7.97421e-01 , 7.74910e-01 , 7.53035e-01 , & - & 7.31777e-01 , 7.11120e-01 , 6.91046e-01 , 6.71538e-01 , 6.52581e-01 , & - & 6.34159e-01 , 6.16257e-01 , 5.98861e-01 , 5.81956e-01 /) - kao_mco( 5, :,12) = (/ & - & 1.04234e+00 , 1.01364e+00 , 9.85726e-01 , 9.58581e-01 , 9.32184e-01 , & - & 9.06514e-01 , 8.81551e-01 , 8.57275e-01 , 8.33668e-01 , 8.10710e-01 , & - & 7.88385e-01 , 7.66675e-01 , 7.45563e-01 , 7.25032e-01 , 7.05066e-01 , & - & 6.85650e-01 , 6.66769e-01 , 6.48408e-01 , 6.30552e-01 /) - kao_mco( 6, :,12) = (/ & - & 1.79052e+00 , 1.73725e+00 , 1.68557e+00 , 1.63543e+00 , 1.58678e+00 , & - & 1.53957e+00 , 1.49377e+00 , 1.44933e+00 , 1.40622e+00 , 1.36439e+00 , & - & 1.32380e+00 , 1.28442e+00 , 1.24621e+00 , 1.20913e+00 , 1.17316e+00 , & - & 1.13826e+00 , 1.10440e+00 , 1.07155e+00 , 1.03967e+00 /) - kao_mco( 7, :,12) = (/ & - & 2.99551e+00 , 2.90366e+00 , 2.81462e+00 , 2.72831e+00 , 2.64464e+00 , & - & 2.56355e+00 , 2.48494e+00 , 2.40874e+00 , 2.33487e+00 , 2.26328e+00 , & - & 2.19387e+00 , 2.12660e+00 , 2.06139e+00 , 1.99818e+00 , 1.93690e+00 , & - & 1.87751e+00 , 1.81993e+00 , 1.76413e+00 , 1.71003e+00 /) - kao_mco( 8, :,12) = (/ & - & 2.89665e+00 , 2.81184e+00 , 2.72951e+00 , 2.64960e+00 , 2.57202e+00 , & - & 2.49672e+00 , 2.42362e+00 , 2.35266e+00 , 2.28378e+00 , 2.21692e+00 , & - & 2.15201e+00 , 2.08900e+00 , 2.02784e+00 , 1.96847e+00 , 1.91084e+00 , & - & 1.85489e+00 , 1.80059e+00 , 1.74787e+00 , 1.69669e+00 /) - kao_mco( 9, :,12) = (/ & - & 1.03145e+00 , 1.00335e+00 , 9.76014e-01 , 9.49426e-01 , 9.23561e-01 , & - & 8.98402e-01 , 8.73927e-01 , 8.50120e-01 , 8.26961e-01 , 8.04433e-01 , & - & 7.82518e-01 , 7.61201e-01 , 7.40464e-01 , 7.20293e-01 , 7.00670e-01 , & - & 6.81583e-01 , 6.63015e-01 , 6.44953e-01 , 6.27383e-01 /) - kao_mco( 1, :,13) = (/ & - & 5.27769e-04 , 6.65449e-04 , 8.39047e-04 , 1.05793e-03 , 1.33392e-03 , & - & 1.68190e-03 , 2.12066e-03 , 2.67388e-03 , 3.37143e-03 , 4.25094e-03 , & - & 5.35990e-03 , 6.75816e-03 , 8.52117e-03 , 1.07441e-02 , 1.35470e-02 , & - & 1.70810e-02 , 2.15370e-02 , 2.71554e-02 , 3.42395e-02 /) - kao_mco( 2, :,13) = (/ & - & 1.08329e-01 , 1.10179e-01 , 1.12060e-01 , 1.13974e-01 , 1.15920e-01 , & - & 1.17899e-01 , 1.19913e-01 , 1.21960e-01 , 1.24043e-01 , 1.26161e-01 , & - & 1.28316e-01 , 1.30507e-01 , 1.32735e-01 , 1.35002e-01 , 1.37307e-01 , & - & 1.39652e-01 , 1.42037e-01 , 1.44462e-01 , 1.46929e-01 /) - kao_mco( 3, :,13) = (/ & - & 1.95992e-01 , 1.94515e-01 , 1.93049e-01 , 1.91594e-01 , 1.90150e-01 , & - & 1.88717e-01 , 1.87294e-01 , 1.85882e-01 , 1.84481e-01 , 1.83091e-01 , & - & 1.81711e-01 , 1.80341e-01 , 1.78982e-01 , 1.77633e-01 , 1.76294e-01 , & - & 1.74965e-01 , 1.73646e-01 , 1.72337e-01 , 1.71038e-01 /) - kao_mco( 4, :,13) = (/ & - & 4.49766e-01 , 4.42749e-01 , 4.35841e-01 , 4.29042e-01 , 4.22348e-01 , & - & 4.15759e-01 , 4.09272e-01 , 4.02887e-01 , 3.96601e-01 , 3.90414e-01 , & - & 3.84323e-01 , 3.78327e-01 , 3.72424e-01 , 3.66614e-01 , 3.60894e-01 , & - & 3.55264e-01 , 3.49721e-01 , 3.44265e-01 , 3.38894e-01 /) - kao_mco( 5, :,13) = (/ & - & 1.07498e+00 , 1.04736e+00 , 1.02045e+00 , 9.94232e-01 , 9.68686e-01 , & - & 9.43797e-01 , 9.19547e-01 , 8.95920e-01 , 8.72900e-01 , 8.50471e-01 , & - & 8.28619e-01 , 8.07329e-01 , 7.86585e-01 , 7.66374e-01 , 7.46683e-01 , & - & 7.27498e-01 , 7.08805e-01 , 6.90593e-01 , 6.72849e-01 /) - kao_mco( 6, :,13) = (/ & - & 1.66569e+00 , 1.61740e+00 , 1.57052e+00 , 1.52500e+00 , 1.48080e+00 , & - & 1.43787e+00 , 1.39620e+00 , 1.35573e+00 , 1.31643e+00 , 1.27827e+00 , & - & 1.24122e+00 , 1.20524e+00 , 1.17031e+00 , 1.13638e+00 , 1.10344e+00 , & - & 1.07146e+00 , 1.04040e+00 , 1.01025e+00 , 9.80963e-01 /) - kao_mco( 7, :,13) = (/ & - & 1.52948e+00 , 1.48763e+00 , 1.44693e+00 , 1.40735e+00 , 1.36884e+00 , & - & 1.33139e+00 , 1.29497e+00 , 1.25954e+00 , 1.22508e+00 , 1.19156e+00 , & - & 1.15896e+00 , 1.12725e+00 , 1.09641e+00 , 1.06641e+00 , 1.03724e+00 , & - & 1.00886e+00 , 9.81259e-01 , 9.54412e-01 , 9.28301e-01 /) - kao_mco( 8, :,13) = (/ & - & 3.81027e+00 , 3.69422e+00 , 3.58170e+00 , 3.47261e+00 , 3.36684e+00 , & - & 3.26429e+00 , 3.16486e+00 , 3.06847e+00 , 2.97501e+00 , 2.88439e+00 , & - & 2.79654e+00 , 2.71136e+00 , 2.62878e+00 , 2.54871e+00 , 2.47108e+00 , & - & 2.39581e+00 , 2.32284e+00 , 2.25209e+00 , 2.18350e+00 /) - kao_mco( 9, :,13) = (/ & - & 1.12516e+00 , 1.09531e+00 , 1.06625e+00 , 1.03796e+00 , 1.01042e+00 , & - & 9.83616e-01 , 9.57520e-01 , 9.32117e-01 , 9.07387e-01 , 8.83314e-01 , & - & 8.59880e-01 , 8.37067e-01 , 8.14859e-01 , 7.93241e-01 , 7.72196e-01 , & - & 7.51709e-01 , 7.31766e-01 , 7.12352e-01 , 6.93454e-01 /) - kao_mco( 1, :,14) = (/ & - & 4.79165e-04 , 6.26966e-04 , 8.20356e-04 , 1.07340e-03 , 1.40450e-03 , & - & 1.83772e-03 , 2.40457e-03 , 3.14628e-03 , 4.11676e-03 , 5.38660e-03 , & - & 7.04813e-03 , 9.22216e-03 , 1.20668e-02 , 1.57889e-02 , 2.06590e-02 , & - & 2.70314e-02 , 3.53694e-02 , 4.62792e-02 , 6.05542e-02 /) - kao_mco( 2, :,14) = (/ & - & 4.75367e-04 , 6.21987e-04 , 8.13830e-04 , 1.06484e-03 , 1.39328e-03 , & - & 1.82302e-03 , 2.38530e-03 , 3.12101e-03 , 4.08365e-03 , 5.34318e-03 , & - & 6.99121e-03 , 9.14756e-03 , 1.19690e-02 , 1.56607e-02 , 2.04909e-02 , & - & 2.68111e-02 , 3.50806e-02 , 4.59007e-02 , 6.00580e-02 /) - kao_mco( 3, :,14) = (/ & - & 1.39594e-01 , 1.42407e-01 , 1.45276e-01 , 1.48202e-01 , 1.51188e-01 , & - & 1.54234e-01 , 1.57342e-01 , 1.60512e-01 , 1.63745e-01 , 1.67044e-01 , & - & 1.70410e-01 , 1.73843e-01 , 1.77345e-01 , 1.80918e-01 , 1.84563e-01 , & - & 1.88282e-01 , 1.92075e-01 , 1.95945e-01 , 1.99892e-01 /) - kao_mco( 4, :,14) = (/ & - & 2.73418e-01 , 2.71322e-01 , 2.69242e-01 , 2.67177e-01 , 2.65129e-01 , & - & 2.63096e-01 , 2.61079e-01 , 2.59077e-01 , 2.57091e-01 , 2.55120e-01 , & - & 2.53164e-01 , 2.51223e-01 , 2.49297e-01 , 2.47386e-01 , 2.45489e-01 , & - & 2.43607e-01 , 2.41739e-01 , 2.39886e-01 , 2.38047e-01 /) - kao_mco( 5, :,14) = (/ & - & 5.01880e-01 , 4.95066e-01 , 4.88344e-01 , 4.81713e-01 , 4.75173e-01 , & - & 4.68721e-01 , 4.62357e-01 , 4.56079e-01 , 4.49887e-01 , 4.43778e-01 , & - & 4.37753e-01 , 4.31809e-01 , 4.25946e-01 , 4.20163e-01 , 4.14458e-01 , & - & 4.08830e-01 , 4.03279e-01 , 3.97804e-01 , 3.92403e-01 /) - kao_mco( 6, :,14) = (/ & - & 9.46125e-01 , 9.29642e-01 , 9.13447e-01 , 8.97533e-01 , 8.81897e-01 , & - & 8.66533e-01 , 8.51437e-01 , 8.36603e-01 , 8.22029e-01 , 8.07708e-01 , & - & 7.93636e-01 , 7.79810e-01 , 7.66225e-01 , 7.52876e-01 , 7.39760e-01 , & - & 7.26872e-01 , 7.14209e-01 , 7.01766e-01 , 6.89540e-01 /) - kao_mco( 7, :,14) = (/ & - & 2.47697e+00 , 2.41183e+00 , 2.34840e+00 , 2.28664e+00 , 2.22650e+00 , & - & 2.16795e+00 , 2.11093e+00 , 2.05541e+00 , 2.00136e+00 , 1.94872e+00 , & - & 1.89747e+00 , 1.84757e+00 , 1.79898e+00 , 1.75167e+00 , 1.70560e+00 , & - & 1.66074e+00 , 1.61707e+00 , 1.57454e+00 , 1.53313e+00 /) - kao_mco( 8, :,14) = (/ & - & 2.19323e+00 , 2.13926e+00 , 2.08662e+00 , 2.03528e+00 , 1.98519e+00 , & - & 1.93635e+00 , 1.88870e+00 , 1.84222e+00 , 1.79689e+00 , 1.75268e+00 , & - & 1.70955e+00 , 1.66748e+00 , 1.62645e+00 , 1.58643e+00 , 1.54739e+00 , & - & 1.50932e+00 , 1.47218e+00 , 1.43595e+00 , 1.40062e+00 /) - kao_mco( 9, :,14) = (/ & - & 5.68351e-01 , 5.60360e-01 , 5.52481e-01 , 5.44712e-01 , 5.37053e-01 , & - & 5.29502e-01 , 5.22057e-01 , 5.14716e-01 , 5.07479e-01 , 5.00343e-01 , & - & 4.93308e-01 , 4.86372e-01 , 4.79533e-01 , 4.72790e-01 , 4.66142e-01 , & - & 4.59588e-01 , 4.53126e-01 , 4.46754e-01 , 4.40473e-01 /) - kao_mco( 1, :,15) = (/ & - & 7.87937e-04 , 1.01733e-03 , 1.31351e-03 , 1.69591e-03 , 2.18964e-03 , & - & 2.82712e-03 , 3.65018e-03 , 4.71286e-03 , 6.08493e-03 , 7.85644e-03 , & - & 1.01437e-02 , 1.30969e-02 , 1.69098e-02 , 2.18327e-02 , 2.81889e-02 , & - & 3.63956e-02 , 4.69915e-02 , 6.06722e-02 , 7.83357e-02 /) - kao_mco( 2, :,15) = (/ & - & 7.87937e-04 , 1.01733e-03 , 1.31351e-03 , 1.69591e-03 , 2.18964e-03 , & - & 2.82712e-03 , 3.65018e-03 , 4.71286e-03 , 6.08493e-03 , 7.85644e-03 , & - & 1.01437e-02 , 1.30969e-02 , 1.69098e-02 , 2.18327e-02 , 2.81889e-02 , & - & 3.63956e-02 , 4.69915e-02 , 6.06722e-02 , 7.83357e-02 /) - kao_mco( 3, :,15) = (/ & - & 1.97281e-01 , 2.00714e-01 , 2.04206e-01 , 2.07760e-01 , 2.11375e-01 , & - & 2.15053e-01 , 2.18795e-01 , 2.22603e-01 , 2.26476e-01 , 2.30417e-01 , & - & 2.34426e-01 , 2.38506e-01 , 2.42656e-01 , 2.46878e-01 , 2.51174e-01 , & - & 2.55545e-01 , 2.59992e-01 , 2.64516e-01 , 2.69119e-01 /) - kao_mco( 4, :,15) = (/ & - & 4.47509e-01 , 4.52222e-01 , 4.56985e-01 , 4.61799e-01 , 4.66663e-01 , & - & 4.71578e-01 , 4.76545e-01 , 4.81565e-01 , 4.86637e-01 , 4.91763e-01 , & - & 4.96942e-01 , 5.02177e-01 , 5.07466e-01 , 5.12811e-01 , 5.18213e-01 , & - & 5.23671e-01 , 5.29187e-01 , 5.34761e-01 , 5.40393e-01 /) - kao_mco( 5, :,15) = (/ & - & 1.02732e+00 , 1.02091e+00 , 1.01453e+00 , 1.00820e+00 , 1.00191e+00 , & - & 9.95660e-01 , 9.89447e-01 , 9.83273e-01 , 9.77137e-01 , 9.71039e-01 , & - & 9.64980e-01 , 9.58958e-01 , 9.52974e-01 , 9.47027e-01 , 9.41118e-01 , & - & 9.35245e-01 , 9.29409e-01 , 9.23609e-01 , 9.17846e-01 /) - kao_mco( 6, :,15) = (/ & - & 1.13766e+00 , 1.12944e+00 , 1.12128e+00 , 1.11318e+00 , 1.10514e+00 , & - & 1.09715e+00 , 1.08923e+00 , 1.08136e+00 , 1.07355e+00 , 1.06579e+00 , & - & 1.05809e+00 , 1.05045e+00 , 1.04286e+00 , 1.03532e+00 , 1.02784e+00 , & - & 1.02042e+00 , 1.01305e+00 , 1.00573e+00 , 9.98462e-01 /) - kao_mco( 7, :,15) = (/ & - & 1.13268e+00 , 1.12496e+00 , 1.11730e+00 , 1.10969e+00 , 1.10213e+00 , & - & 1.09462e+00 , 1.08717e+00 , 1.07976e+00 , 1.07241e+00 , 1.06510e+00 , & - & 1.05785e+00 , 1.05064e+00 , 1.04349e+00 , 1.03638e+00 , 1.02932e+00 , & - & 1.02231e+00 , 1.01535e+00 , 1.00843e+00 , 1.00156e+00 /) - kao_mco( 8, :,15) = (/ & - & 1.11982e+00 , 1.11343e+00 , 1.10707e+00 , 1.10075e+00 , 1.09447e+00 , & - & 1.08822e+00 , 1.08201e+00 , 1.07583e+00 , 1.06969e+00 , 1.06358e+00 , & - & 1.05751e+00 , 1.05147e+00 , 1.04547e+00 , 1.03950e+00 , 1.03356e+00 , & - & 1.02766e+00 , 1.02180e+00 , 1.01596e+00 , 1.01016e+00 /) - kao_mco( 9, :,15) = (/ & - & 1.03561e+00 , 1.02902e+00 , 1.02246e+00 , 1.01595e+00 , 1.00948e+00 , & - & 1.00305e+00 , 9.96667e-01 , 9.90320e-01 , 9.84013e-01 , 9.77747e-01 , & - & 9.71520e-01 , 9.65334e-01 , 9.59186e-01 , 9.53078e-01 , 9.47008e-01 , & - & 9.40978e-01 , 9.34985e-01 , 9.29031e-01 , 9.23115e-01 /) - kao_mco( 1, :,16) = (/ & - & 1.22217e-03 , 1.56836e-03 , 2.01261e-03 , 2.58271e-03 , 3.31429e-03 , & - & 4.25310e-03 , 5.45784e-03 , 7.00383e-03 , 8.98775e-03 , 1.15336e-02 , & - & 1.48007e-02 , 1.89931e-02 , 2.43731e-02 , 3.12771e-02 , 4.01367e-02 , & - & 5.15059e-02 , 6.60956e-02 , 8.48179e-02 , 1.08843e-01 /) - kao_mco( 2, :,16) = (/ & - & 1.22217e-03 , 1.56836e-03 , 2.01261e-03 , 2.58271e-03 , 3.31429e-03 , & - & 4.25310e-03 , 5.45784e-03 , 7.00383e-03 , 8.98775e-03 , 1.15336e-02 , & - & 1.48007e-02 , 1.89931e-02 , 2.43731e-02 , 3.12771e-02 , 4.01367e-02 , & - & 5.15059e-02 , 6.60956e-02 , 8.48179e-02 , 1.08843e-01 /) - kao_mco( 3, :,16) = (/ & - & 1.22217e-03 , 1.56836e-03 , 2.01261e-03 , 2.58271e-03 , 3.31429e-03 , & - & 4.25310e-03 , 5.45784e-03 , 7.00383e-03 , 8.98775e-03 , 1.15336e-02 , & - & 1.48007e-02 , 1.89931e-02 , 2.43731e-02 , 3.12771e-02 , 4.01367e-02 , & - & 5.15059e-02 , 6.60956e-02 , 8.48179e-02 , 1.08843e-01 /) - kao_mco( 4, :,16) = (/ & - & 1.01221e+00 , 1.01660e+00 , 1.02101e+00 , 1.02544e+00 , 1.02989e+00 , & - & 1.03436e+00 , 1.03884e+00 , 1.04335e+00 , 1.04788e+00 , 1.05243e+00 , & - & 1.05699e+00 , 1.06158e+00 , 1.06619e+00 , 1.07081e+00 , 1.07546e+00 , & - & 1.08012e+00 , 1.08481e+00 , 1.08952e+00 , 1.09425e+00 /) - kao_mco( 5, :,16) = (/ & - & 1.01221e+00 , 1.01660e+00 , 1.02101e+00 , 1.02544e+00 , 1.02989e+00 , & - & 1.03436e+00 , 1.03884e+00 , 1.04335e+00 , 1.04788e+00 , 1.05243e+00 , & - & 1.05699e+00 , 1.06158e+00 , 1.06619e+00 , 1.07081e+00 , 1.07546e+00 , & - & 1.08012e+00 , 1.08481e+00 , 1.08952e+00 , 1.09425e+00 /) - kao_mco( 6, :,16) = (/ & - & 1.01221e+00 , 1.01660e+00 , 1.02101e+00 , 1.02544e+00 , 1.02989e+00 , & - & 1.03436e+00 , 1.03884e+00 , 1.04335e+00 , 1.04788e+00 , 1.05243e+00 , & - & 1.05699e+00 , 1.06158e+00 , 1.06619e+00 , 1.07081e+00 , 1.07546e+00 , & - & 1.08012e+00 , 1.08481e+00 , 1.08952e+00 , 1.09425e+00 /) - kao_mco( 7, :,16) = (/ & - & 1.01221e+00 , 1.01660e+00 , 1.02101e+00 , 1.02544e+00 , 1.02989e+00 , & - & 1.03436e+00 , 1.03884e+00 , 1.04335e+00 , 1.04788e+00 , 1.05243e+00 , & - & 1.05699e+00 , 1.06158e+00 , 1.06619e+00 , 1.07081e+00 , 1.07546e+00 , & - & 1.08012e+00 , 1.08481e+00 , 1.08952e+00 , 1.09425e+00 /) - kao_mco( 8, :,16) = (/ & - & 1.01221e+00 , 1.01660e+00 , 1.02101e+00 , 1.02544e+00 , 1.02989e+00 , & - & 1.03436e+00 , 1.03884e+00 , 1.04335e+00 , 1.04788e+00 , 1.05243e+00 , & - & 1.05699e+00 , 1.06158e+00 , 1.06619e+00 , 1.07081e+00 , 1.07546e+00 , & - & 1.08012e+00 , 1.08481e+00 , 1.08952e+00 , 1.09425e+00 /) - kao_mco( 9, :,16) = (/ & - & 1.01221e+00 , 1.01660e+00 , 1.02101e+00 , 1.02544e+00 , 1.02989e+00 , & - & 1.03436e+00 , 1.03884e+00 , 1.04335e+00 , 1.04788e+00 , 1.05243e+00 , & - & 1.05699e+00 , 1.06158e+00 , 1.06619e+00 , 1.07081e+00 , 1.07546e+00 , & - & 1.08012e+00 , 1.08481e+00 , 1.08952e+00 , 1.09425e+00 /) - -! The array KBO_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level above 100~ mb. The first index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The second index -! runs over the g-channel (1 to 16). - - kbo_mo3(:, 1) = (/ & - & 1.07596e-02 , 1.12146e-02 , 1.16887e-02 , 1.21830e-02 , 1.26981e-02 , & - & 1.32350e-02 , 1.37946e-02 , 1.43779e-02 , 1.49858e-02 , 1.56194e-02 , & - & 1.62799e-02 , 1.69682e-02 , 1.76857e-02 , 1.84334e-02 , 1.92129e-02 , & - & 2.00252e-02 , 2.08719e-02 , 2.17544e-02 , 2.26743e-02 /) - kbo_mo3(:, 2) = (/ & - & 9.48276e-02 , 9.66591e-02 , 9.85260e-02 , 1.00429e-01 , 1.02369e-01 , & - & 1.04346e-01 , 1.06361e-01 , 1.08416e-01 , 1.10510e-01 , 1.12644e-01 , & - & 1.14820e-01 , 1.17037e-01 , 1.19298e-01 , 1.21602e-01 , 1.23951e-01 , & - & 1.26345e-01 , 1.28785e-01 , 1.31273e-01 , 1.33808e-01 /) - kbo_mo3(:, 3) = (/ & - & 3.54721e-01 , 3.55779e-01 , 3.56841e-01 , 3.57906e-01 , 3.58973e-01 , & - & 3.60044e-01 , 3.61119e-01 , 3.62196e-01 , 3.63277e-01 , 3.64360e-01 , & - & 3.65448e-01 , 3.66538e-01 , 3.67631e-01 , 3.68728e-01 , 3.69828e-01 , & - & 3.70932e-01 , 3.72038e-01 , 3.73148e-01 , 3.74262e-01 /) - kbo_mo3(:, 4) = (/ & - & 6.46454e-01 , 6.43823e-01 , 6.41202e-01 , 6.38593e-01 , 6.35994e-01 , & - & 6.33405e-01 , 6.30827e-01 , 6.28260e-01 , 6.25703e-01 , 6.23156e-01 , & - & 6.20620e-01 , 6.18094e-01 , 6.15578e-01 , 6.13073e-01 , 6.10578e-01 , & - & 6.08093e-01 , 6.05618e-01 , 6.03153e-01 , 6.00698e-01 /) - kbo_mo3(:, 5) = (/ & - & 9.29832e-01 , 9.22877e-01 , 9.15975e-01 , 9.09124e-01 , 9.02324e-01 , & - & 8.95576e-01 , 8.88877e-01 , 8.82229e-01 , 8.75631e-01 , 8.69082e-01 , & - & 8.62582e-01 , 8.56130e-01 , 8.49727e-01 , 8.43372e-01 , 8.37064e-01 , & - & 8.30803e-01 , 8.24589e-01 , 8.18422e-01 , 8.12301e-01 /) - kbo_mo3(:, 6) = (/ & - & 1.43531e+00 , 1.42616e+00 , 1.41706e+00 , 1.40802e+00 , 1.39903e+00 , & - & 1.39010e+00 , 1.38124e+00 , 1.37242e+00 , 1.36367e+00 , 1.35496e+00 , & - & 1.34632e+00 , 1.33773e+00 , 1.32919e+00 , 1.32071e+00 , 1.31229e+00 , & - & 1.30391e+00 , 1.29559e+00 , 1.28733e+00 , 1.27911e+00 /) - kbo_mo3(:, 7) = (/ & - & 2.68664e+00 , 2.67196e+00 , 2.65736e+00 , 2.64284e+00 , 2.62840e+00 , & - & 2.61404e+00 , 2.59975e+00 , 2.58555e+00 , 2.57142e+00 , 2.55737e+00 , & - & 2.54340e+00 , 2.52950e+00 , 2.51568e+00 , 2.50193e+00 , 2.48826e+00 , & - & 2.47466e+00 , 2.46114e+00 , 2.44769e+00 , 2.43432e+00 /) - kbo_mo3(:, 8) = (/ & - & 2.45343e+00 , 2.43442e+00 , 2.41556e+00 , 2.39684e+00 , 2.37827e+00 , & - & 2.35984e+00 , 2.34156e+00 , 2.32342e+00 , 2.30541e+00 , 2.28755e+00 , & - & 2.26983e+00 , 2.25224e+00 , 2.23479e+00 , 2.21747e+00 , 2.20029e+00 , & - & 2.18324e+00 , 2.16633e+00 , 2.14954e+00 , 2.13289e+00 /) - kbo_mo3(:, 9) = (/ & - & 1.55879e-01 , 1.55998e-01 , 1.56118e-01 , 1.56238e-01 , 1.56358e-01 , & - & 1.56478e-01 , 1.56599e-01 , 1.56719e-01 , 1.56840e-01 , 1.56960e-01 , & - & 1.57081e-01 , 1.57201e-01 , 1.57322e-01 , 1.57443e-01 , 1.57564e-01 , & - & 1.57685e-01 , 1.57806e-01 , 1.57928e-01 , 1.58049e-01 /) - kbo_mo3(:,10) = (/ & - & 8.75149e-03 , 8.88794e-03 , 9.02651e-03 , 9.16725e-03 , 9.31018e-03 , & - & 9.45534e-03 , 9.60276e-03 , 9.75248e-03 , 9.90454e-03 , 1.00590e-02 , & - & 1.02158e-02 , 1.03751e-02 , 1.05368e-02 , 1.07011e-02 , 1.08680e-02 , & - & 1.10374e-02 , 1.12095e-02 , 1.13843e-02 , 1.15618e-02 /) - kbo_mo3(:,11) = (/ & - & 8.83874e-03 , 8.97926e-03 , 9.12201e-03 , 9.26703e-03 , 9.41436e-03 , & - & 9.56403e-03 , 9.71608e-03 , 9.87055e-03 , 1.00275e-02 , 1.01869e-02 , & - & 1.03488e-02 , 1.05134e-02 , 1.06805e-02 , 1.08503e-02 , 1.10228e-02 , & - & 1.11980e-02 , 1.13761e-02 , 1.15569e-02 , 1.17407e-02 /) - kbo_mo3(:,12) = (/ & - & 9.59461e-03 , 9.70417e-03 , 9.81498e-03 , 9.92705e-03 , 1.00404e-02 , & - & 1.01550e-02 , 1.02710e-02 , 1.03883e-02 , 1.05069e-02 , 1.06269e-02 , & - & 1.07482e-02 , 1.08709e-02 , 1.09951e-02 , 1.11206e-02 , 1.12476e-02 , & - & 1.13760e-02 , 1.15059e-02 , 1.16373e-02 , 1.17702e-02 /) - kbo_mo3(:,13) = (/ & - & 1.13077e-02 , 1.14079e-02 , 1.15089e-02 , 1.16109e-02 , 1.17138e-02 , & - & 1.18176e-02 , 1.19223e-02 , 1.20279e-02 , 1.21344e-02 , 1.22419e-02 , & - & 1.23504e-02 , 1.24598e-02 , 1.25702e-02 , 1.26816e-02 , 1.27939e-02 , & - & 1.29073e-02 , 1.30216e-02 , 1.31370e-02 , 1.32534e-02 /) - kbo_mo3(:,14) = (/ & - & 6.74844e-03 , 6.82637e-03 , 6.90519e-03 , 6.98493e-03 , 7.06558e-03 , & - & 7.14717e-03 , 7.22970e-03 , 7.31318e-03 , 7.39762e-03 , 7.48304e-03 , & - & 7.56945e-03 , 7.65686e-03 , 7.74527e-03 , 7.83470e-03 , 7.92517e-03 , & - & 8.01668e-03 , 8.10925e-03 , 8.20289e-03 , 8.29761e-03 /) - kbo_mo3(:,15) = (/ & - & 7.94595e-03 , 8.00015e-03 , 8.05472e-03 , 8.10966e-03 , 8.16497e-03 , & - & 8.22067e-03 , 8.27674e-03 , 8.33320e-03 , 8.39004e-03 , 8.44727e-03 , & - & 8.50489e-03 , 8.56290e-03 , 8.62130e-03 , 8.68011e-03 , 8.73932e-03 , & - & 8.79893e-03 , 8.85895e-03 , 8.91937e-03 , 8.98021e-03 /) - kbo_mo3(:,16) = (/ & - & 1.85967e-03 , 1.86082e-03 , 1.86197e-03 , 1.86312e-03 , 1.86428e-03 , & - & 1.86543e-03 , 1.86658e-03 , 1.86774e-03 , 1.86889e-03 , 1.87005e-03 , & - & 1.87121e-03 , 1.87236e-03 , 1.87352e-03 , 1.87468e-03 , 1.87584e-03 , & - & 1.87700e-03 , 1.87816e-03 , 1.87932e-03 , 1.88049e-03 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &1.6586e-05 ,1.9995e-05 ,1.8582e-05 ,1.3988e-05 ,1.3650e-05 ,1.1079e-05 , & - &9.5855e-06 ,8.4062e-06 ,1.3558e-05 ,1.8620e-05 ,2.2652e-05 ,1.7883e-05 , & - &2.6241e-05 ,3.1171e-05 ,3.9386e-05 ,4.4415e-05 /) - forrefo(2,:) = (/ & - &2.0730e-05 ,2.3258e-05 ,2.1543e-05 ,1.5660e-05 ,9.7872e-06 ,8.1078e-06 , & - &7.0246e-06 ,6.0428e-06 ,4.8793e-06 ,4.4937e-06 ,4.7078e-06 ,4.6898e-06 , & - &6.9481e-06 ,8.6269e-06 ,3.1761e-06 ,3.1440e-06 /) - forrefo(3,:) = (/ & - &1.5737e-05 ,2.2501e-05 ,2.3520e-05 ,2.0288e-05 ,1.2083e-05 ,6.8256e-06 , & - &6.0637e-06 ,5.5434e-06 ,4.3888e-06 ,3.8435e-06 ,3.8477e-06 ,3.8314e-06 , & - &3.8251e-06 ,3.3637e-06 ,3.1950e-06 ,3.1440e-06 /) - forrefo(4,:) = (/ & - &1.1400e-05 ,7.9751e-06 ,8.8659e-06 ,1.5884e-05 ,1.9118e-05 ,1.9429e-05 , & - &2.0532e-05 ,2.2155e-05 ,2.3894e-05 ,2.2984e-05 ,2.3731e-05 ,2.4538e-05 , & - &2.6697e-05 ,1.9329e-05 ,3.3306e-06 ,3.2018e-06 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 9.62275e-03 , 8.29909e-03 , 7.15750e-03 , 6.17294e-03 , 5.32382e-03 , & - & 4.59150e-03 , 3.95991e-03 , 3.41520e-03 , 2.94542e-03 , 2.54026e-03 /) - selfrefo(:, 2) = (/ & - & 9.76664e-03 , 8.47783e-03 , 7.35910e-03 , 6.38799e-03 , 5.54504e-03 , & - & 4.81331e-03 , 4.17815e-03 , 3.62680e-03 , 3.14821e-03 , 2.73277e-03 /) - selfrefo(:, 3) = (/ & - & 9.53856e-03 , 8.23750e-03 , 7.11390e-03 , 6.14356e-03 , 5.30558e-03 , & - & 4.58190e-03 , 3.95693e-03 , 3.41720e-03 , 2.95109e-03 , 2.54856e-03 /) - selfrefo(:, 4) = (/ & - & 8.47621e-03 , 7.29518e-03 , 6.27870e-03 , 5.40385e-03 , 4.65091e-03 , & - & 4.00287e-03 , 3.44513e-03 , 2.96510e-03 , 2.55196e-03 , 2.19638e-03 /) - selfrefo(:, 5) = (/ & - & 6.71258e-03 , 5.95346e-03 , 5.28020e-03 , 4.68307e-03 , 4.15348e-03 , & - & 3.68377e-03 , 3.26718e-03 , 2.89770e-03 , 2.57000e-03 , 2.27937e-03 /) - selfrefo(:, 6) = (/ & - & 6.29140e-03 , 5.55557e-03 , 4.90580e-03 , 4.33203e-03 , 3.82536e-03 , & - & 3.37795e-03 , 2.98287e-03 , 2.63400e-03 , 2.32593e-03 , 2.05389e-03 /) - selfrefo(:, 7) = (/ & - & 6.00229e-03 , 5.28180e-03 , 4.64780e-03 , 4.08990e-03 , 3.59897e-03 , & - & 3.16696e-03 , 2.78682e-03 , 2.45230e-03 , 2.15794e-03 , 1.89891e-03 /) - selfrefo(:, 8) = (/ & - & 5.78892e-03 , 5.07191e-03 , 4.44370e-03 , 3.89330e-03 , 3.41108e-03 , & - & 2.98858e-03 , 2.61842e-03 , 2.29410e-03 , 2.00995e-03 , 1.76100e-03 /) - selfrefo(:, 9) = (/ & - & 4.96186e-03 , 4.56767e-03 , 4.20480e-03 , 3.87076e-03 , 3.56325e-03 , & - & 3.28017e-03 , 3.01959e-03 , 2.77970e-03 , 2.55887e-03 , 2.35559e-03 /) - selfrefo(:,10) = (/ & - & 4.56849e-03 , 4.35527e-03 , 4.15200e-03 , 3.95822e-03 , 3.77348e-03 , & - & 3.59736e-03 , 3.42946e-03 , 3.26940e-03 , 3.11681e-03 , 2.97134e-03 /) - selfrefo(:,11) = (/ & - & 4.47310e-03 , 4.32453e-03 , 4.18090e-03 , 4.04204e-03 , 3.90779e-03 , & - & 3.77799e-03 , 3.65251e-03 , 3.53120e-03 , 3.41392e-03 , 3.30053e-03 /) - selfrefo(:,12) = (/ & - & 4.46459e-03 , 4.24031e-03 , 4.02730e-03 , 3.82499e-03 , 3.63284e-03 , & - & 3.45035e-03 , 3.27702e-03 , 3.11240e-03 , 2.95605e-03 , 2.80755e-03 /) - selfrefo(:,13) = (/ & - & 4.43961e-03 , 4.35658e-03 , 4.27510e-03 , 4.19514e-03 , 4.11669e-03 , & - & 4.03969e-03 , 3.96414e-03 , 3.89000e-03 , 3.81725e-03 , 3.74585e-03 /) - selfrefo(:,14) = (/ & - & 4.40512e-03 , 4.41515e-03 , 4.42520e-03 , 4.43527e-03 , 4.44537e-03 , & - & 4.45549e-03 , 4.46563e-03 , 4.47580e-03 , 4.48599e-03 , 4.49620e-03 /) - selfrefo(:,15) = (/ & - & 3.21965e-03 , 3.42479e-03 , 3.64300e-03 , 3.87512e-03 , 4.12202e-03 , & - & 4.38466e-03 , 4.66403e-03 , 4.96120e-03 , 5.27731e-03 , 5.61355e-03 /) - selfrefo(:,16) = (/ & - & 3.11402e-03 , 3.35870e-03 , 3.62260e-03 , 3.90724e-03 , 4.21424e-03 , & - & 4.54536e-03 , 4.90250e-03 , 5.28770e-03 , 5.70317e-03 , 6.15128e-03 /) - - end subroutine lw_kgb13 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_14.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_14.F90 deleted file mode 100644 index 561095622..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_14.F90 +++ /dev/null @@ -1,2086 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb14 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg14, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level : P = 142.5940 mb, T = 215.70 K - fracrefao(:) = (/ & - & 1.9360e-01 , 1.7276e-01 , 1.4811e-01 , 1.2238e-01 , & - & 1.0242e-01 , 8.6830e-02 , 7.1890e-02 , 5.4030e-02 , & - & 3.5075e-02 , 3.8052e-03 , 3.1458e-03 , 2.4873e-03 , & - & 1.8182e-03 , 1.1563e-03 , 4.3251e-04 , 5.7744e-05 /) - -! Planck fraction mapping level : P = 4.758820mb, T = 250.85 K - fracrefbo(:) = (/ & - & 1.8599e-01 , 1.6646e-01 , 1.4264e-01 , 1.2231e-01 , & - & 1.0603e-01 , 9.2014e-02 , 7.5287e-02 , 5.6758e-02 , & - & 3.8386e-02 , 4.2139e-03 , 3.5399e-03 , 2.7381e-03 , & - & 1.9202e-03 , 1.2083e-03 , 4.5395e-04 , 6.2699e-05 /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kao(:, 1, 1) = (/ & - &3.5183e-01 ,3.7165e-01 ,3.9536e-01 ,4.2364e-01 ,4.5645e-01 /) - kao(:, 2, 1) = (/ & - &2.9958e-01 ,3.1568e-01 ,3.3580e-01 ,3.6030e-01 ,3.8890e-01 /) - kao(:, 3, 1) = (/ & - &2.5105e-01 ,2.6327e-01 ,2.7913e-01 ,2.9918e-01 ,3.2278e-01 /) - kao(:, 4, 1) = (/ & - &2.0894e-01 ,2.1786e-01 ,2.3000e-01 ,2.4588e-01 ,2.6517e-01 /) - kao(:, 5, 1) = (/ & - &1.7343e-01 ,1.7993e-01 ,1.8907e-01 ,2.0143e-01 ,2.1685e-01 /) - kao(:, 6, 1) = (/ & - &1.4374e-01 ,1.4829e-01 ,1.5503e-01 ,1.6436e-01 ,1.7642e-01 /) - kao(:, 7, 1) = (/ & - &1.1916e-01 ,1.2232e-01 ,1.2721e-01 ,1.3426e-01 ,1.4361e-01 /) - kao(:, 8, 1) = (/ & - &9.8898e-02 ,1.0120e-01 ,1.0467e-01 ,1.0982e-01 ,1.1705e-01 /) - kao(:, 9, 1) = (/ & - &8.2212e-02 ,8.3740e-02 ,8.6244e-02 ,9.0121e-02 ,9.5602e-02 /) - kao(:,10, 1) = (/ & - &6.8330e-02 ,6.9351e-02 ,7.1210e-02 ,7.4137e-02 ,7.8349e-02 /) - kao(:,11, 1) = (/ & - &5.6910e-02 ,5.7856e-02 ,5.9557e-02 ,6.2211e-02 ,6.6055e-02 /) - kao(:,12, 1) = (/ & - &4.7279e-02 ,4.8187e-02 ,4.9716e-02 ,5.2169e-02 ,5.5693e-02 /) - kao(:,13, 1) = (/ & - &3.9228e-02 ,4.0055e-02 ,4.1480e-02 ,4.3734e-02 ,4.6826e-02 /) - kao(:, 1, 2) = (/ & - &1.2827e+00 ,1.3853e+00 ,1.5108e+00 ,1.6643e+00 ,1.8505e+00 /) - kao(:, 2, 2) = (/ & - &1.1042e+00 ,1.1988e+00 ,1.3140e+00 ,1.4542e+00 ,1.6229e+00 /) - kao(:, 3, 2) = (/ & - &9.2790e-01 ,1.0121e+00 ,1.1133e+00 ,1.2349e+00 ,1.3807e+00 /) - kao(:, 4, 2) = (/ & - &7.7001e-01 ,8.4339e-01 ,9.3172e-01 ,1.0366e+00 ,1.1604e+00 /) - kao(:, 5, 2) = (/ & - &6.3550e-01 ,6.9915e-01 ,7.7552e-01 ,8.6518e-01 ,9.7050e-01 /) - kao(:, 6, 2) = (/ & - &5.2058e-01 ,5.7460e-01 ,6.3982e-01 ,7.1578e-01 ,8.0435e-01 /) - kao(:, 7, 2) = (/ & - &4.2451e-01 ,4.7028e-01 ,5.2464e-01 ,5.8830e-01 ,6.6179e-01 /) - kao(:, 8, 2) = (/ & - &3.4539e-01 ,3.8222e-01 ,4.2607e-01 ,4.7789e-01 ,5.3786e-01 /) - kao(:, 9, 2) = (/ & - &2.7941e-01 ,3.0849e-01 ,3.4320e-01 ,3.8420e-01 ,4.3240e-01 /) - kao(:,10, 2) = (/ & - &2.2666e-01 ,2.5024e-01 ,2.7777e-01 ,3.1051e-01 ,3.4934e-01 /) - kao(:,11, 2) = (/ & - &1.9193e-01 ,2.1218e-01 ,2.3589e-01 ,2.6422e-01 ,2.9804e-01 /) - kao(:,12, 2) = (/ & - &1.6216e-01 ,1.7954e-01 ,2.0015e-01 ,2.2464e-01 ,2.5376e-01 /) - kao(:,13, 2) = (/ & - &1.3654e-01 ,1.5163e-01 ,1.6956e-01 ,1.9071e-01 ,2.1617e-01 /) - kao(:, 1, 3) = (/ & - &5.3312e+00 ,5.9534e+00 ,6.6227e+00 ,7.3398e+00 ,8.1099e+00 /) - kao(:, 2, 3) = (/ & - &4.6807e+00 ,5.2433e+00 ,5.8458e+00 ,6.4988e+00 ,7.1971e+00 /) - kao(:, 3, 3) = (/ & - &3.9284e+00 ,4.4200e+00 ,4.9505e+00 ,5.5235e+00 ,6.1336e+00 /) - kao(:, 4, 3) = (/ & - &3.2160e+00 ,3.6333e+00 ,4.0896e+00 ,4.5842e+00 ,5.1138e+00 /) - kao(:, 5, 3) = (/ & - &2.5935e+00 ,2.9443e+00 ,3.3309e+00 ,3.7529e+00 ,4.2079e+00 /) - kao(:, 6, 3) = (/ & - &2.0555e+00 ,2.3468e+00 ,2.6695e+00 ,3.0246e+00 ,3.4114e+00 /) - kao(:, 7, 3) = (/ & - &1.6122e+00 ,1.8522e+00 ,2.1211e+00 ,2.4178e+00 ,2.7436e+00 /) - kao(:, 8, 3) = (/ & - &1.2572e+00 ,1.4549e+00 ,1.6787e+00 ,1.9278e+00 ,2.2011e+00 /) - kao(:, 9, 3) = (/ & - &9.7554e-01 ,1.1374e+00 ,1.3224e+00 ,1.5307e+00 ,1.7599e+00 /) - kao(:,10, 3) = (/ & - &7.6412e-01 ,8.9744e-01 ,1.0509e+00 ,1.2253e+00 ,1.4183e+00 /) - kao(:,11, 3) = (/ & - &6.4606e-01 ,7.6360e-01 ,8.9925e-01 ,1.0524e+00 ,1.2194e+00 /) - kao(:,12, 3) = (/ & - &5.4819e-01 ,6.5159e-01 ,7.6939e-01 ,8.9987e-01 ,1.0405e+00 /) - kao(:,13, 3) = (/ & - &4.6584e-01 ,5.5439e-01 ,6.5378e-01 ,7.6270e-01 ,8.8077e-01 /) - kao(:, 1, 4) = (/ & - &1.6140e+01 ,1.7514e+01 ,1.8771e+01 ,1.9886e+01 ,2.0829e+01 /) - kao(:, 2, 4) = (/ & - &1.4035e+01 ,1.5167e+01 ,1.6185e+01 ,1.7079e+01 ,1.7864e+01 /) - kao(:, 3, 4) = (/ & - &1.2090e+01 ,1.3039e+01 ,1.3889e+01 ,1.4653e+01 ,1.5339e+01 /) - kao(:, 4, 4) = (/ & - &1.0243e+01 ,1.1063e+01 ,1.1803e+01 ,1.2472e+01 ,1.3075e+01 /) - kao(:, 5, 4) = (/ & - &8.5658e+00 ,9.2747e+00 ,9.9250e+00 ,1.0511e+01 ,1.1040e+01 /) - kao(:, 6, 4) = (/ & - &7.0689e+00 ,7.6839e+00 ,8.2525e+00 ,8.7702e+00 ,9.2411e+00 /) - kao(:, 7, 4) = (/ & - &5.7728e+00 ,6.3036e+00 ,6.7993e+00 ,7.2580e+00 ,7.6760e+00 /) - kao(:, 8, 4) = (/ & - &4.6719e+00 ,5.1262e+00 ,5.5542e+00 ,5.9566e+00 ,6.3304e+00 /) - kao(:, 9, 4) = (/ & - &3.7449e+00 ,4.1314e+00 ,4.4992e+00 ,4.8512e+00 ,5.1834e+00 /) - kao(:,10, 4) = (/ & - &2.9983e+00 ,3.3274e+00 ,3.6424e+00 ,3.9480e+00 ,4.2418e+00 /) - kao(:,11, 4) = (/ & - &2.5136e+00 ,2.7891e+00 ,3.0545e+00 ,3.3182e+00 ,3.5747e+00 /) - kao(:,12, 4) = (/ & - &2.1004e+00 ,2.3314e+00 ,2.5605e+00 ,2.7929e+00 ,3.0174e+00 /) - kao(:,13, 4) = (/ & - &1.7524e+00 ,1.9492e+00 ,2.1512e+00 ,2.3564e+00 ,2.5478e+00 /) - kao(:, 1, 5) = (/ & - &3.4724e+01 ,3.5203e+01 ,3.5615e+01 ,3.5967e+01 ,3.6300e+01 /) - kao(:, 2, 5) = (/ & - &2.9704e+01 ,3.0154e+01 ,3.0541e+01 ,3.0880e+01 ,3.1155e+01 /) - kao(:, 3, 5) = (/ & - &2.5203e+01 ,2.5623e+01 ,2.5990e+01 ,2.6275e+01 ,2.6504e+01 /) - kao(:, 4, 5) = (/ & - &2.1552e+01 ,2.1924e+01 ,2.2232e+01 ,2.2450e+01 ,2.2639e+01 /) - kao(:, 5, 5) = (/ & - &1.8513e+01 ,1.8836e+01 ,1.9081e+01 ,1.9246e+01 ,1.9410e+01 /) - kao(:, 6, 5) = (/ & - &1.5765e+01 ,1.6046e+01 ,1.6242e+01 ,1.6370e+01 ,1.6509e+01 /) - kao(:, 7, 5) = (/ & - &1.3333e+01 ,1.3583e+01 ,1.3745e+01 ,1.3853e+01 ,1.3971e+01 /) - kao(:, 8, 5) = (/ & - &1.1230e+01 ,1.1452e+01 ,1.1589e+01 ,1.1683e+01 ,1.1782e+01 /) - kao(:, 9, 5) = (/ & - &9.4196e+00 ,9.6109e+00 ,9.7356e+00 ,9.8175e+00 ,9.8960e+00 /) - kao(:,10, 5) = (/ & - &7.8743e+00 ,8.0366e+00 ,8.1439e+00 ,8.2124e+00 ,8.2768e+00 /) - kao(:,11, 5) = (/ & - &6.6265e+00 ,6.7386e+00 ,6.8161e+00 ,6.8681e+00 ,6.9329e+00 /) - kao(:,12, 5) = (/ & - &5.5390e+00 ,5.6241e+00 ,5.6817e+00 ,5.7305e+00 ,5.8031e+00 /) - kao(:,13, 5) = (/ & - &4.6094e+00 ,4.6772e+00 ,4.7246e+00 ,4.7737e+00 ,4.8549e+00 /) - kao(:, 1, 6) = (/ & - &5.5082e+01 ,5.5287e+01 ,5.5714e+01 ,5.6227e+01 ,5.6768e+01 /) - kao(:, 2, 6) = (/ & - &4.8272e+01 ,4.8698e+01 ,4.9143e+01 ,4.9607e+01 ,5.0132e+01 /) - kao(:, 3, 6) = (/ & - &4.2021e+01 ,4.2370e+01 ,4.2729e+01 ,4.3163e+01 ,4.3674e+01 /) - kao(:, 4, 6) = (/ & - &3.6214e+01 ,3.6443e+01 ,3.6742e+01 ,3.7158e+01 ,3.7640e+01 /) - kao(:, 5, 6) = (/ & - &3.1082e+01 ,3.1249e+01 ,3.1507e+01 ,3.1893e+01 ,3.2320e+01 /) - kao(:, 6, 6) = (/ & - &2.6864e+01 ,2.6986e+01 ,2.7204e+01 ,2.7526e+01 ,2.7858e+01 /) - kao(:, 7, 6) = (/ & - &2.3146e+01 ,2.3231e+01 ,2.3407e+01 ,2.3654e+01 ,2.3926e+01 /) - kao(:, 8, 6) = (/ & - &1.9819e+01 ,1.9868e+01 ,1.9994e+01 ,2.0178e+01 ,2.0400e+01 /) - kao(:, 9, 6) = (/ & - &1.6892e+01 ,1.6913e+01 ,1.7001e+01 ,1.7132e+01 ,1.7310e+01 /) - kao(:,10, 6) = (/ & - &1.4365e+01 ,1.4367e+01 ,1.4429e+01 ,1.4521e+01 ,1.4660e+01 /) - kao(:,11, 6) = (/ & - &1.2162e+01 ,1.2177e+01 ,1.2223e+01 ,1.2309e+01 ,1.2439e+01 /) - kao(:,12, 6) = (/ & - &1.0257e+01 ,1.0260e+01 ,1.0295e+01 ,1.0375e+01 ,1.0502e+01 /) - kao(:,13, 6) = (/ & - &8.6109e+00 ,8.6045e+00 ,8.6391e+00 ,8.7159e+00 ,8.8472e+00 /) - kao(:, 1, 7) = (/ & - &9.6537e+01 ,9.5488e+01 ,9.4812e+01 ,9.4687e+01 ,9.5057e+01 /) - kao(:, 2, 7) = (/ & - &8.5306e+01 ,8.4772e+01 ,8.4928e+01 ,8.5670e+01 ,8.6805e+01 /) - kao(:, 3, 7) = (/ & - &7.4847e+01 ,7.4994e+01 ,7.5806e+01 ,7.7131e+01 ,7.8782e+01 /) - kao(:, 4, 7) = (/ & - &6.5341e+01 ,6.6016e+01 ,6.7305e+01 ,6.9026e+01 ,7.0761e+01 /) - kao(:, 5, 7) = (/ & - &5.6784e+01 ,5.7825e+01 ,5.9429e+01 ,6.1058e+01 ,6.2599e+01 /) - kao(:, 6, 7) = (/ & - &4.9097e+01 ,5.0352e+01 ,5.1865e+01 ,5.3258e+01 ,5.4642e+01 /) - kao(:, 7, 7) = (/ & - &4.2608e+01 ,4.3857e+01 ,4.5074e+01 ,4.6282e+01 ,4.7459e+01 /) - kao(:, 8, 7) = (/ & - &3.7209e+01 ,3.8259e+01 ,3.9241e+01 ,4.0246e+01 ,4.1244e+01 /) - kao(:, 9, 7) = (/ & - &3.2353e+01 ,3.3212e+01 ,3.4023e+01 ,3.4877e+01 ,3.5739e+01 /) - kao(:,10, 7) = (/ & - &2.7960e+01 ,2.8627e+01 ,2.9290e+01 ,3.0022e+01 ,3.0747e+01 /) - kao(:,11, 7) = (/ & - &2.4264e+01 ,2.4777e+01 ,2.5355e+01 ,2.5965e+01 ,2.6544e+01 /) - kao(:,12, 7) = (/ & - &2.0930e+01 ,2.1372e+01 ,2.1863e+01 ,2.2353e+01 ,2.2822e+01 /) - kao(:,13, 7) = (/ & - &1.7993e+01 ,1.8373e+01 ,1.8772e+01 ,1.9157e+01 ,1.9544e+01 /) - kao(:, 1, 8) = (/ & - &2.1856e+02 ,2.1566e+02 ,2.1284e+02 ,2.0997e+02 ,2.0718e+02 /) - kao(:, 2, 8) = (/ & - &2.0300e+02 ,2.0022e+02 ,1.9750e+02 ,1.9481e+02 ,1.9235e+02 /) - kao(:, 3, 8) = (/ & - &1.8584e+02 ,1.8317e+02 ,1.8063e+02 ,1.7831e+02 ,1.7621e+02 /) - kao(:, 4, 8) = (/ & - &1.6761e+02 ,1.6519e+02 ,1.6298e+02 ,1.6101e+02 ,1.5981e+02 /) - kao(:, 5, 8) = (/ & - &1.4928e+02 ,1.4711e+02 ,1.4522e+02 ,1.4425e+02 ,1.4420e+02 /) - kao(:, 6, 8) = (/ & - &1.3122e+02 ,1.2933e+02 ,1.2822e+02 ,1.2825e+02 ,1.2918e+02 /) - kao(:, 7, 8) = (/ & - &1.1410e+02 ,1.1264e+02 ,1.1239e+02 ,1.1324e+02 ,1.1505e+02 /) - kao(:, 8, 8) = (/ & - &9.8348e+01 ,9.7493e+01 ,9.7940e+01 ,9.9442e+01 ,1.0191e+02 /) - kao(:, 9, 8) = (/ & - &8.4647e+01 ,8.4268e+01 ,8.5204e+01 ,8.7179e+01 ,9.0023e+01 /) - kao(:,10, 8) = (/ & - &7.3021e+01 ,7.3118e+01 ,7.4447e+01 ,7.6754e+01 ,7.9414e+01 /) - kao(:,11, 8) = (/ & - &6.3300e+01 ,6.4312e+01 ,6.6319e+01 ,6.8546e+01 ,7.0686e+01 /) - kao(:,12, 8) = (/ & - &5.5501e+01 ,5.7093e+01 ,5.8983e+01 ,6.0787e+01 ,6.2564e+01 /) - kao(:,13, 8) = (/ & - &4.8706e+01 ,5.0287e+01 ,5.1813e+01 ,5.3328e+01 ,5.4791e+01 /) - kao(:, 1, 9) = (/ & - &5.5934e+02 ,5.5574e+02 ,5.5144e+02 ,5.4673e+02 ,5.4155e+02 /) - kao(:, 2, 9) = (/ & - &5.7946e+02 ,5.7510e+02 ,5.7015e+02 ,5.6485e+02 ,5.5885e+02 /) - kao(:, 3, 9) = (/ & - &5.9076e+02 ,5.8577e+02 ,5.8036e+02 ,5.7428e+02 ,5.6790e+02 /) - kao(:, 4, 9) = (/ & - &5.9122e+02 ,5.8578e+02 ,5.7964e+02 ,5.7332e+02 ,5.6635e+02 /) - kao(:, 5, 9) = (/ & - &5.8028e+02 ,5.7411e+02 ,5.6769e+02 ,5.6068e+02 ,5.5353e+02 /) - kao(:, 6, 9) = (/ & - &5.5962e+02 ,5.5294e+02 ,5.4600e+02 ,5.3888e+02 ,5.3142e+02 /) - kao(:, 7, 9) = (/ & - &5.2985e+02 ,5.2302e+02 ,5.1578e+02 ,5.0845e+02 ,5.0105e+02 /) - kao(:, 8, 9) = (/ & - &4.9277e+02 ,4.8554e+02 ,4.7838e+02 ,4.7112e+02 ,4.6381e+02 /) - kao(:, 9, 9) = (/ & - &4.5092e+02 ,4.4373e+02 ,4.3650e+02 ,4.2952e+02 ,4.2278e+02 /) - kao(:,10, 9) = (/ & - &4.0542e+02 ,3.9841e+02 ,3.9162e+02 ,3.8505e+02 ,3.7968e+02 /) - kao(:,11, 9) = (/ & - &3.5669e+02 ,3.5010e+02 ,3.4395e+02 ,3.3923e+02 ,3.3643e+02 /) - kao(:,12, 9) = (/ & - &3.0992e+02 ,3.0411e+02 ,2.9975e+02 ,2.9742e+02 ,2.9692e+02 /) - kao(:,13, 9) = (/ & - &2.6703e+02 ,2.6279e+02 ,2.6062e+02 ,2.6039e+02 ,2.6194e+02 /) - kao(:, 1,10) = (/ & - &9.5667e+02 ,9.5651e+02 ,9.5375e+02 ,9.4993e+02 ,9.4458e+02 /) - kao(:, 2,10) = (/ & - &1.0737e+03 ,1.0712e+03 ,1.0675e+03 ,1.0621e+03 ,1.0554e+03 /) - kao(:, 3,10) = (/ & - &1.1862e+03 ,1.1837e+03 ,1.1793e+03 ,1.1732e+03 ,1.1657e+03 /) - kao(:, 4,10) = (/ & - &1.2923e+03 ,1.2885e+03 ,1.2837e+03 ,1.2762e+03 ,1.2683e+03 /) - kao(:, 5,10) = (/ & - &1.3860e+03 ,1.3831e+03 ,1.3760e+03 ,1.3692e+03 ,1.3583e+03 /) - kao(:, 6,10) = (/ & - &1.4574e+03 ,1.4515e+03 ,1.4451e+03 ,1.4344e+03 ,1.4246e+03 /) - kao(:, 7,10) = (/ & - &1.5032e+03 ,1.4948e+03 ,1.4847e+03 ,1.4737e+03 ,1.4593e+03 /) - kao(:, 8,10) = (/ & - &1.5178e+03 ,1.5093e+03 ,1.4967e+03 ,1.4828e+03 ,1.4689e+03 /) - kao(:, 9,10) = (/ & - &1.5009e+03 ,1.4874e+03 ,1.4751e+03 ,1.4596e+03 ,1.4422e+03 /) - kao(:,10,10) = (/ & - &1.4526e+03 ,1.4382e+03 ,1.4207e+03 ,1.4042e+03 ,1.3871e+03 /) - kao(:,11,10) = (/ & - &1.3669e+03 ,1.3492e+03 ,1.3313e+03 ,1.3144e+03 ,1.2952e+03 /) - kao(:,12,10) = (/ & - &1.2561e+03 ,1.2377e+03 ,1.2201e+03 ,1.2021e+03 ,1.1826e+03 /) - kao(:,13,10) = (/ & - &1.1367e+03 ,1.1187e+03 ,1.1007e+03 ,1.0822e+03 ,1.0635e+03 /) - kao(:, 1,11) = (/ & - &1.0788e+03 ,1.0784e+03 ,1.0786e+03 ,1.0769e+03 ,1.0720e+03 /) - kao(:, 2,11) = (/ & - &1.2360e+03 ,1.2387e+03 ,1.2382e+03 ,1.2346e+03 ,1.2287e+03 /) - kao(:, 3,11) = (/ & - &1.4028e+03 ,1.4050e+03 ,1.4041e+03 ,1.4005e+03 ,1.3939e+03 /) - kao(:, 4,11) = (/ & - &1.5761e+03 ,1.5770e+03 ,1.5755e+03 ,1.5691e+03 ,1.5622e+03 /) - kao(:, 5,11) = (/ & - &1.7429e+03 ,1.7443e+03 ,1.7409e+03 ,1.7348e+03 ,1.7262e+03 /) - kao(:, 6,11) = (/ & - &1.9004e+03 ,1.9007e+03 ,1.8945e+03 ,1.8893e+03 ,1.8776e+03 /) - kao(:, 7,11) = (/ & - &2.0382e+03 ,2.0344e+03 ,2.0314e+03 ,2.0213e+03 ,2.0121e+03 /) - kao(:, 8,11) = (/ & - &2.1442e+03 ,2.1390e+03 ,2.1319e+03 ,2.1222e+03 ,2.1076e+03 /) - kao(:, 9,11) = (/ & - &2.2113e+03 ,2.2063e+03 ,2.1931e+03 ,2.1796e+03 ,2.1631e+03 /) - kao(:,10,11) = (/ & - &2.2360e+03 ,2.2231e+03 ,2.2114e+03 ,2.1930e+03 ,2.1737e+03 /) - kao(:,11,11) = (/ & - &2.2031e+03 ,2.1887e+03 ,2.1696e+03 ,2.1476e+03 ,2.1259e+03 /) - kao(:,12,11) = (/ & - &2.1236e+03 ,2.1030e+03 ,2.0791e+03 ,2.0554e+03 ,2.0303e+03 /) - kao(:,13,11) = (/ & - &1.9976e+03 ,1.9732e+03 ,1.9489e+03 ,1.9244e+03 ,1.8976e+03 /) - kao(:, 1,12) = (/ & - &1.1934e+03 ,1.1955e+03 ,1.1958e+03 ,1.1936e+03 ,1.1920e+03 /) - kao(:, 2,12) = (/ & - &1.3945e+03 ,1.3970e+03 ,1.3984e+03 ,1.3987e+03 ,1.3979e+03 /) - kao(:, 3,12) = (/ & - &1.6215e+03 ,1.6249e+03 ,1.6252e+03 ,1.6264e+03 ,1.6242e+03 /) - kao(:, 4,12) = (/ & - &1.8681e+03 ,1.8729e+03 ,1.8755e+03 ,1.8766e+03 ,1.8729e+03 /) - kao(:, 5,12) = (/ & - &2.1302e+03 ,2.1346e+03 ,2.1412e+03 ,2.1410e+03 ,2.1383e+03 /) - kao(:, 6,12) = (/ & - &2.4029e+03 ,2.4115e+03 ,2.4156e+03 ,2.4143e+03 ,2.4101e+03 /) - kao(:, 7,12) = (/ & - &2.6748e+03 ,2.6869e+03 ,2.6879e+03 ,2.6884e+03 ,2.6793e+03 /) - kao(:, 8,12) = (/ & - &2.9380e+03 ,2.9477e+03 ,2.9496e+03 ,2.9469e+03 ,2.9380e+03 /) - kao(:, 9,12) = (/ & - &3.1781e+03 ,3.1822e+03 ,3.1866e+03 ,3.1790e+03 ,3.1694e+03 /) - kao(:,10,12) = (/ & - &3.3770e+03 ,3.3808e+03 ,3.3765e+03 ,3.3686e+03 ,3.3530e+03 /) - kao(:,11,12) = (/ & - &3.5189e+03 ,3.5130e+03 ,3.5038e+03 ,3.4874e+03 ,3.4673e+03 /) - kao(:,12,12) = (/ & - &3.5908e+03 ,3.5789e+03 ,3.5609e+03 ,3.5388e+03 ,3.5103e+03 /) - kao(:,13,12) = (/ & - &3.5806e+03 ,3.5582e+03 ,3.5338e+03 ,3.5034e+03 ,3.4725e+03 /) - kao(:, 1,13) = (/ & - &1.2919e+03 ,1.2953e+03 ,1.2979e+03 ,1.2980e+03 ,1.2956e+03 /) - kao(:, 2,13) = (/ & - &1.5383e+03 ,1.5420e+03 ,1.5447e+03 ,1.5440e+03 ,1.5420e+03 /) - kao(:, 3,13) = (/ & - &1.8220e+03 ,1.8287e+03 ,1.8322e+03 ,1.8325e+03 ,1.8308e+03 /) - kao(:, 4,13) = (/ & - &2.1443e+03 ,2.1550e+03 ,2.1609e+03 ,2.1623e+03 ,2.1617e+03 /) - kao(:, 5,13) = (/ & - &2.5123e+03 ,2.5251e+03 ,2.5330e+03 ,2.5368e+03 ,2.5365e+03 /) - kao(:, 6,13) = (/ & - &2.9214e+03 ,2.9360e+03 ,2.9475e+03 ,2.9537e+03 ,2.9558e+03 /) - kao(:, 7,13) = (/ & - &3.3684e+03 ,3.3871e+03 ,3.4024e+03 ,3.4082e+03 ,3.4125e+03 /) - kao(:, 8,13) = (/ & - &3.8472e+03 ,3.8701e+03 ,3.8882e+03 ,3.8980e+03 ,3.9031e+03 /) - kao(:, 9,13) = (/ & - &4.3463e+03 ,4.3744e+03 ,4.3907e+03 ,4.4045e+03 ,4.4088e+03 /) - kao(:,10,13) = (/ & - &4.8548e+03 ,4.8861e+03 ,4.9050e+03 ,4.9166e+03 ,4.9195e+03 /) - kao(:,11,13) = (/ & - &5.3685e+03 ,5.3944e+03 ,5.4093e+03 ,5.4165e+03 ,5.4085e+03 /) - kao(:,12,13) = (/ & - &5.8390e+03 ,5.8545e+03 ,5.8642e+03 ,5.8596e+03 ,5.8502e+03 /) - kao(:,13,13) = (/ & - &6.2371e+03 ,6.2518e+03 ,6.2489e+03 ,6.2389e+03 ,6.2163e+03 /) - kao(:, 1,14) = (/ & - &1.3744e+03 ,1.3784e+03 ,1.3801e+03 ,1.3822e+03 ,1.3833e+03 /) - kao(:, 2,14) = (/ & - &1.6525e+03 ,1.6579e+03 ,1.6603e+03 ,1.6628e+03 ,1.6635e+03 /) - kao(:, 3,14) = (/ & - &1.9810e+03 ,1.9908e+03 ,1.9968e+03 ,2.0006e+03 ,2.0007e+03 /) - kao(:, 4,14) = (/ & - &2.3728e+03 ,2.3844e+03 ,2.3938e+03 ,2.4019e+03 ,2.4042e+03 /) - kao(:, 5,14) = (/ & - &2.8373e+03 ,2.8532e+03 ,2.8650e+03 ,2.8745e+03 ,2.8783e+03 /) - kao(:, 6,14) = (/ & - &3.3748e+03 ,3.3991e+03 ,3.4179e+03 ,3.4320e+03 ,3.4378e+03 /) - kao(:, 7,14) = (/ & - &3.9998e+03 ,4.0298e+03 ,4.0539e+03 ,4.0746e+03 ,4.0866e+03 /) - kao(:, 8,14) = (/ & - &4.7196e+03 ,4.7615e+03 ,4.7914e+03 ,4.8146e+03 ,4.8273e+03 /) - kao(:, 9,14) = (/ & - &5.5304e+03 ,5.5847e+03 ,5.6275e+03 ,5.6623e+03 ,5.6782e+03 /) - kao(:,10,14) = (/ & - &6.4513e+03 ,6.5110e+03 ,6.5637e+03 ,6.6030e+03 ,6.6279e+03 /) - kao(:,11,14) = (/ & - &7.5126e+03 ,7.5759e+03 ,7.6236e+03 ,7.6577e+03 ,7.6817e+03 /) - kao(:,12,14) = (/ & - &8.6584e+03 ,8.7304e+03 ,8.7796e+03 ,8.8102e+03 ,8.8235e+03 /) - kao(:,13,14) = (/ & - &9.8812e+03 ,9.9499e+03 ,9.9974e+03 ,1.0022e+04 ,1.0029e+04 /) - kao(:, 1,15) = (/ & - &1.4528e+03 ,1.4581e+03 ,1.4601e+03 ,1.4582e+03 ,1.4558e+03 /) - kao(:, 2,15) = (/ & - &1.7546e+03 ,1.7631e+03 ,1.7666e+03 ,1.7671e+03 ,1.7653e+03 /) - kao(:, 3,15) = (/ & - &2.1167e+03 ,2.1275e+03 ,2.1344e+03 ,2.1393e+03 ,2.1396e+03 /) - kao(:, 4,15) = (/ & - &2.5536e+03 ,2.5679e+03 ,2.5752e+03 ,2.5829e+03 ,2.5878e+03 /) - kao(:, 5,15) = (/ & - &3.0751e+03 ,3.0964e+03 ,3.1097e+03 ,3.1178e+03 ,3.1252e+03 /) - kao(:, 6,15) = (/ & - &3.6981e+03 ,3.7293e+03 ,3.7501e+03 ,3.7620e+03 ,3.7738e+03 /) - kao(:, 7,15) = (/ & - &4.4451e+03 ,4.4852e+03 ,4.5165e+03 ,4.5355e+03 ,4.5519e+03 /) - kao(:, 8,15) = (/ & - &5.3398e+03 ,5.3890e+03 ,5.4280e+03 ,5.4575e+03 ,5.4832e+03 /) - kao(:, 9,15) = (/ & - &6.4016e+03 ,6.4666e+03 ,6.5191e+03 ,6.5509e+03 ,6.5855e+03 /) - kao(:,10,15) = (/ & - &7.6539e+03 ,7.7451e+03 ,7.8138e+03 ,7.8602e+03 ,7.8961e+03 /) - kao(:,11,15) = (/ & - &9.1780e+03 ,9.2834e+03 ,9.3652e+03 ,9.4242e+03 ,9.4602e+03 /) - kao(:,12,15) = (/ & - &1.0986e+04 ,1.1091e+04 ,1.1175e+04 ,1.1241e+04 ,1.1280e+04 /) - kao(:,13,15) = (/ & - &1.3095e+04 ,1.3203e+04 ,1.3280e+04 ,1.3335e+04 ,1.3364e+04 /) - kao(:, 1,16) = (/ & - &1.4758e+03 ,1.4811e+03 ,1.4822e+03 ,1.4873e+03 ,1.4919e+03 /) - kao(:, 2,16) = (/ & - &1.7931e+03 ,1.7988e+03 ,1.8023e+03 ,1.8054e+03 ,1.8115e+03 /) - kao(:, 3,16) = (/ & - &2.1801e+03 ,2.1858e+03 ,2.1915e+03 ,2.1950e+03 ,2.1996e+03 /) - kao(:, 4,16) = (/ & - &2.6497e+03 ,2.6575e+03 ,2.6648e+03 ,2.6696e+03 ,2.6752e+03 /) - kao(:, 5,16) = (/ & - &3.2162e+03 ,3.2298e+03 ,3.2415e+03 ,3.2482e+03 ,3.2542e+03 /) - kao(:, 6,16) = (/ & - &3.8965e+03 ,3.9207e+03 ,3.9398e+03 ,3.9520e+03 ,3.9556e+03 /) - kao(:, 7,16) = (/ & - &4.7145e+03 ,4.7502e+03 ,4.7821e+03 ,4.8036e+03 ,4.8122e+03 /) - kao(:, 8,16) = (/ & - &5.7091e+03 ,5.7519e+03 ,5.7946e+03 ,5.8300e+03 ,5.8477e+03 /) - kao(:, 9,16) = (/ & - &6.9081e+03 ,6.9691e+03 ,7.0079e+03 ,7.0618e+03 ,7.0936e+03 /) - kao(:,10,16) = (/ & - &8.3531e+03 ,8.4377e+03 ,8.4862e+03 ,8.5388e+03 ,8.5857e+03 /) - kao(:,11,16) = (/ & - &1.0140e+04 ,1.0233e+04 ,1.0291e+04 ,1.0344e+04 ,1.0381e+04 /) - kao(:,12,16) = (/ & - &1.2278e+04 ,1.2376e+04 ,1.2452e+04 ,1.2503e+04 ,1.2519e+04 /) - kao(:,13,16) = (/ & - &1.4816e+04 ,1.4930e+04 ,1.5014e+04 ,1.5052e+04 ,1.5044e+04 /) - -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kbo(:,13, 1) = (/ & - &3.9228e-02 ,4.0055e-02 ,4.1480e-02 ,4.3734e-02 ,4.6826e-02 /) - kbo(:,14, 1) = (/ & - &3.2541e-02 ,3.3340e-02 ,3.4715e-02 ,3.6769e-02 ,3.9564e-02 /) - kbo(:,15, 1) = (/ & - &2.6969e-02 ,2.7753e-02 ,2.9038e-02 ,3.0896e-02 ,3.3356e-02 /) - kbo(:,16, 1) = (/ & - &2.2342e-02 ,2.3099e-02 ,2.4270e-02 ,2.5925e-02 ,2.8078e-02 /) - kbo(:,17, 1) = (/ & - &1.8513e-02 ,1.9222e-02 ,2.0267e-02 ,2.1721e-02 ,2.3597e-02 /) - kbo(:,18, 1) = (/ & - &1.5353e-02 ,1.5989e-02 ,1.6916e-02 ,1.8172e-02 ,1.9812e-02 /) - kbo(:,19, 1) = (/ & - &1.2730e-02 ,1.3292e-02 ,1.4104e-02 ,1.5198e-02 ,1.6633e-02 /) - kbo(:,20, 1) = (/ & - &1.0558e-02 ,1.1059e-02 ,1.1764e-02 ,1.2725e-02 ,1.3995e-02 /) - kbo(:,21, 1) = (/ & - &8.7555e-03 ,9.1943e-03 ,9.8141e-03 ,1.0663e-02 ,1.1783e-02 /) - kbo(:,22, 1) = (/ & - &7.2788e-03 ,7.6721e-03 ,8.2312e-03 ,8.9953e-03 ,1.0002e-02 /) - kbo(:,23, 1) = (/ & - &6.0534e-03 ,6.4084e-03 ,6.9154e-03 ,7.6052e-03 ,8.5112e-03 /) - kbo(:,24, 1) = (/ & - &5.0381e-03 ,5.3630e-03 ,5.8249e-03 ,6.4486e-03 ,7.2625e-03 /) - kbo(:,25, 1) = (/ & - &4.2012e-03 ,4.4994e-03 ,4.9231e-03 ,5.4862e-03 ,6.2185e-03 /) - kbo(:,26, 1) = (/ & - &3.5140e-03 ,3.7917e-03 ,4.1803e-03 ,4.6907e-03 ,5.3531e-03 /) - kbo(:,27, 1) = (/ & - &2.9461e-03 ,3.2058e-03 ,3.5595e-03 ,4.0238e-03 ,4.6243e-03 /) - kbo(:,28, 1) = (/ & - &2.4782e-03 ,2.7200e-03 ,3.0408e-03 ,3.4639e-03 ,4.0087e-03 /) - kbo(:,29, 1) = (/ & - &2.0935e-03 ,2.3161e-03 ,2.6092e-03 ,2.9949e-03 ,3.4943e-03 /) - kbo(:,30, 1) = (/ & - &1.7747e-03 ,1.9777e-03 ,2.2475e-03 ,2.5999e-03 ,3.0591e-03 /) - kbo(:,31, 1) = (/ & - &1.5106e-03 ,1.6973e-03 ,1.9445e-03 ,2.2691e-03 ,2.6924e-03 /) - kbo(:,32, 1) = (/ & - &1.2905e-03 ,1.4629e-03 ,1.6903e-03 ,1.9914e-03 ,2.3817e-03 /) - kbo(:,33, 1) = (/ & - &1.1070e-03 ,1.2664e-03 ,1.4773e-03 ,1.7562e-03 ,2.1183e-03 /) - kbo(:,34, 1) = (/ & - &9.4969e-04 ,1.0951e-03 ,1.2897e-03 ,1.5465e-03 ,1.8794e-03 /) - kbo(:,35, 1) = (/ & - &8.0650e-04 ,9.3657e-04 ,1.1113e-03 ,1.3423e-03 ,1.6411e-03 /) - kbo(:,36, 1) = (/ & - &6.7527e-04 ,7.8828e-04 ,9.4082e-04 ,1.1424e-03 ,1.4040e-03 /) - kbo(:,37, 1) = (/ & - &5.5374e-04 ,6.4781e-04 ,7.7522e-04 ,9.4463e-04 ,1.1654e-03 /) - kbo(:,38, 1) = (/ & - &4.5356e-04 ,5.3144e-04 ,6.3765e-04 ,7.7978e-04 ,9.6558e-04 /) - kbo(:,39, 1) = (/ & - &3.7155e-04 ,4.3614e-04 ,5.2472e-04 ,6.4387e-04 ,8.0047e-04 /) - kbo(:,40, 1) = (/ & - &2.9980e-04 ,3.5165e-04 ,4.2320e-04 ,5.2024e-04 ,6.4874e-04 /) - kbo(:,41, 1) = (/ & - &2.4145e-04 ,2.8281e-04 ,3.4028e-04 ,4.1898e-04 ,5.2376e-04 /) - kbo(:,42, 1) = (/ & - &1.9444e-04 ,2.2740e-04 ,2.7348e-04 ,3.3721e-04 ,4.2264e-04 /) - kbo(:,43, 1) = (/ & - &1.5533e-04 ,1.8108e-04 ,2.1726e-04 ,2.6787e-04 ,3.3649e-04 /) - kbo(:,44, 1) = (/ & - &1.2372e-04 ,1.4362e-04 ,1.7176e-04 ,2.1151e-04 ,2.6597e-04 /) - kbo(:,45, 1) = (/ & - &9.8615e-05 ,1.1395e-04 ,1.3575e-04 ,1.6686e-04 ,2.0989e-04 /) - kbo(:,46, 1) = (/ & - &7.8410e-05 ,9.0146e-05 ,1.0684e-04 ,1.3092e-04 ,1.6455e-04 /) - kbo(:,47, 1) = (/ & - &6.2111e-05 ,7.0925e-05 ,8.3491e-05 ,1.0171e-04 ,1.2752e-04 /) - kbo(:,48, 1) = (/ & - &4.9292e-05 ,5.5878e-05 ,6.5308e-05 ,7.9022e-05 ,9.8758e-05 /) - kbo(:,49, 1) = (/ & - &3.9189e-05 ,4.4083e-05 ,5.1134e-05 ,6.1433e-05 ,7.6433e-05 /) - kbo(:,50, 1) = (/ & - &3.1297e-05 ,3.4944e-05 ,4.0262e-05 ,4.8024e-05 ,5.9468e-05 /) - kbo(:,51, 1) = (/ & - &2.5040e-05 ,2.7793e-05 ,3.1794e-05 ,3.7665e-05 ,4.6363e-05 /) - kbo(:,52, 1) = (/ & - &2.0024e-05 ,2.2137e-05 ,2.5151e-05 ,2.9572e-05 ,3.6157e-05 /) - kbo(:,53, 1) = (/ & - &1.5989e-05 ,1.7662e-05 ,1.9908e-05 ,2.3247e-05 ,2.8202e-05 /) - kbo(:,54, 1) = (/ & - &1.2802e-05 ,1.4140e-05 ,1.5857e-05 ,1.8384e-05 ,2.2160e-05 /) - kbo(:,55, 1) = (/ & - &1.0251e-05 ,1.1335e-05 ,1.2664e-05 ,1.4589e-05 ,1.7471e-05 /) - kbo(:,56, 1) = (/ & - &8.1863e-06 ,9.0810e-06 ,1.0125e-05 ,1.1592e-05 ,1.3791e-05 /) - kbo(:,57, 1) = (/ & - &6.5183e-06 ,7.2717e-06 ,8.0938e-06 ,9.2169e-06 ,1.0895e-05 /) - kbo(:,58, 1) = (/ & - &5.1879e-06 ,5.8228e-06 ,6.4835e-06 ,7.3485e-06 ,8.6418e-06 /) - kbo(:,59, 1) = (/ & - &4.2168e-06 ,4.7498e-06 ,5.3015e-06 ,6.0144e-06 ,7.0853e-06 /) - kbo(:,13, 2) = (/ & - &1.3654e-01 ,1.5163e-01 ,1.6956e-01 ,1.9071e-01 ,2.1617e-01 /) - kbo(:,14, 2) = (/ & - &1.1559e-01 ,1.2885e-01 ,1.4454e-01 ,1.6328e-01 ,1.8606e-01 /) - kbo(:,15, 2) = (/ & - &9.7693e-02 ,1.0924e-01 ,1.2296e-01 ,1.3968e-01 ,1.6004e-01 /) - kbo(:,16, 2) = (/ & - &8.2470e-02 ,9.2497e-02 ,1.0461e-01 ,1.1951e-01 ,1.3759e-01 /) - kbo(:,17, 2) = (/ & - &6.9485e-02 ,7.8236e-02 ,8.9019e-02 ,1.0217e-01 ,1.1819e-01 /) - kbo(:,18, 2) = (/ & - &5.8434e-02 ,6.6177e-02 ,7.5740e-02 ,8.7380e-02 ,1.0143e-01 /) - kbo(:,19, 2) = (/ & - &4.9105e-02 ,5.5950e-02 ,6.4367e-02 ,7.4577e-02 ,8.6834e-02 /) - kbo(:,20, 2) = (/ & - &4.1358e-02 ,4.7392e-02 ,5.4755e-02 ,6.3671e-02 ,7.4385e-02 /) - kbo(:,21, 2) = (/ & - &3.4862e-02 ,4.0138e-02 ,4.6538e-02 ,5.4275e-02 ,6.3577e-02 /) - kbo(:,22, 2) = (/ & - &2.9678e-02 ,3.4317e-02 ,3.9913e-02 ,4.6700e-02 ,5.4863e-02 /) - kbo(:,23, 2) = (/ & - &2.5302e-02 ,2.9357e-02 ,3.4270e-02 ,4.0209e-02 ,4.7364e-02 /) - kbo(:,24, 2) = (/ & - &2.1615e-02 ,2.5159e-02 ,2.9473e-02 ,3.4693e-02 ,4.0992e-02 /) - kbo(:,25, 2) = (/ & - &1.8506e-02 ,2.1620e-02 ,2.5407e-02 ,3.0032e-02 ,3.5645e-02 /) - kbo(:,26, 2) = (/ & - &1.5911e-02 ,1.8663e-02 ,2.2016e-02 ,2.6153e-02 ,3.1176e-02 /) - kbo(:,27, 2) = (/ & - &1.3710e-02 ,1.6139e-02 ,1.9144e-02 ,2.2842e-02 ,2.7378e-02 /) - kbo(:,28, 2) = (/ & - &1.1834e-02 ,1.3997e-02 ,1.6695e-02 ,2.0027e-02 ,2.4111e-02 /) - kbo(:,29, 2) = (/ & - &1.0249e-02 ,1.2190e-02 ,1.4630e-02 ,1.7647e-02 ,2.1313e-02 /) - kbo(:,30, 2) = (/ & - &8.9036e-03 ,1.0661e-02 ,1.2868e-02 ,1.5600e-02 ,1.8888e-02 /) - kbo(:,31, 2) = (/ & - &7.7687e-03 ,9.3699e-03 ,1.1378e-02 ,1.3839e-02 ,1.6787e-02 /) - kbo(:,32, 2) = (/ & - &6.8140e-03 ,8.2759e-03 ,1.0101e-02 ,1.2319e-02 ,1.4958e-02 /) - kbo(:,33, 2) = (/ & - &6.0058e-03 ,7.3417e-03 ,8.9915e-03 ,1.0990e-02 ,1.3357e-02 /) - kbo(:,34, 2) = (/ & - &5.2812e-03 ,6.4864e-03 ,7.9715e-03 ,9.7608e-03 ,1.1880e-02 /) - kbo(:,35, 2) = (/ & - &4.5664e-03 ,5.6316e-03 ,6.9402e-03 ,8.5171e-03 ,1.0395e-02 /) - kbo(:,36, 2) = (/ & - &3.8650e-03 ,4.7853e-03 ,5.9182e-03 ,7.2844e-03 ,8.9146e-03 /) - kbo(:,37, 2) = (/ & - &3.1698e-03 ,3.9391e-03 ,4.8941e-03 ,6.0480e-03 ,7.4275e-03 /) - kbo(:,38, 2) = (/ & - &2.5939e-03 ,3.2378e-03 ,4.0393e-03 ,5.0137e-03 ,6.1786e-03 /) - kbo(:,39, 2) = (/ & - &2.1228e-03 ,2.6601e-03 ,3.3343e-03 ,4.1558e-03 ,5.1416e-03 /) - kbo(:,40, 2) = (/ & - &1.6967e-03 ,2.1355e-03 ,2.6888e-03 ,3.3677e-03 ,4.1883e-03 /) - kbo(:,41, 2) = (/ & - &1.3505e-03 ,1.7067e-03 ,2.1592e-03 ,2.7184e-03 ,3.3988e-03 /) - kbo(:,42, 2) = (/ & - &1.0736e-03 ,1.3626e-03 ,1.7319e-03 ,2.1915e-03 ,2.7553e-03 /) - kbo(:,43, 2) = (/ & - &8.4090e-04 ,1.0714e-03 ,1.3684e-03 ,1.7414e-03 ,2.2023e-03 /) - kbo(:,44, 2) = (/ & - &6.5390e-04 ,8.3586e-04 ,1.0728e-03 ,1.3727e-03 ,1.7466e-03 /) - kbo(:,45, 2) = (/ & - &5.0782e-04 ,6.5105e-04 ,8.3889e-04 ,1.0793e-03 ,1.3823e-03 /) - kbo(:,46, 2) = (/ & - &3.9179e-04 ,5.0302e-04 ,6.5132e-04 ,8.4212e-04 ,1.0854e-03 /) - kbo(:,47, 2) = (/ & - &2.9882e-04 ,3.8363e-04 ,4.9873e-04 ,6.4829e-04 ,8.4103e-04 /) - kbo(:,48, 2) = (/ & - &2.2778e-04 ,2.9209e-04 ,3.8081e-04 ,4.9759e-04 ,6.4942e-04 /) - kbo(:,49, 2) = (/ & - &1.7348e-04 ,2.2201e-04 ,2.8994e-04 ,3.8059e-04 ,4.9968e-04 /) - kbo(:,50, 2) = (/ & - &1.3291e-04 ,1.6970e-04 ,2.2169e-04 ,2.9250e-04 ,3.8590e-04 /) - kbo(:,51, 2) = (/ & - &1.0207e-04 ,1.2991e-04 ,1.6972e-04 ,2.2476e-04 ,2.9809e-04 /) - kbo(:,52, 2) = (/ & - &7.8428e-05 ,9.9370e-05 ,1.2969e-04 ,1.7236e-04 ,2.2955e-04 /) - kbo(:,53, 2) = (/ & - &6.0320e-05 ,7.5906e-05 ,9.8948e-05 ,1.3170e-04 ,1.7631e-04 /) - kbo(:,54, 2) = (/ & - &4.6701e-05 ,5.8457e-05 ,7.5987e-05 ,1.0130e-04 ,1.3626e-04 /) - kbo(:,55, 2) = (/ & - &3.6311e-05 ,4.5177e-05 ,5.8536e-05 ,7.8091e-05 ,1.0548e-04 /) - kbo(:,56, 2) = (/ & - &2.8265e-05 ,3.4933e-05 ,4.5042e-05 ,6.0092e-05 ,8.1465e-05 /) - kbo(:,57, 2) = (/ & - &2.2041e-05 ,2.7013e-05 ,3.4636e-05 ,4.6160e-05 ,6.2788e-05 /) - kbo(:,58, 2) = (/ & - &1.7267e-05 ,2.0998e-05 ,2.6754e-05 ,3.5587e-05 ,4.8495e-05 /) - kbo(:,59, 2) = (/ & - &1.3975e-05 ,1.7004e-05 ,2.1693e-05 ,2.8956e-05 ,3.9630e-05 /) - kbo(:,13, 3) = (/ & - &4.6584e-01 ,5.5439e-01 ,6.5378e-01 ,7.6270e-01 ,8.8077e-01 /) - kbo(:,14, 3) = (/ & - &4.0124e-01 ,4.7657e-01 ,5.6034e-01 ,6.5177e-01 ,7.5174e-01 /) - kbo(:,15, 3) = (/ & - &3.4513e-01 ,4.0912e-01 ,4.7944e-01 ,5.5671e-01 ,6.4124e-01 /) - kbo(:,16, 3) = (/ & - &2.9666e-01 ,3.5062e-01 ,4.0982e-01 ,4.7509e-01 ,5.4644e-01 /) - kbo(:,17, 3) = (/ & - &2.5400e-01 ,2.9955e-01 ,3.4952e-01 ,4.0464e-01 ,4.6504e-01 /) - kbo(:,18, 3) = (/ & - &2.1648e-01 ,2.5489e-01 ,2.9720e-01 ,3.4406e-01 ,3.9550e-01 /) - kbo(:,19, 3) = (/ & - &1.8385e-01 ,2.1623e-01 ,2.5204e-01 ,2.9205e-01 ,3.3599e-01 /) - kbo(:,20, 3) = (/ & - &1.5627e-01 ,1.8359e-01 ,2.1416e-01 ,2.4849e-01 ,2.8606e-01 /) - kbo(:,21, 3) = (/ & - &1.3276e-01 ,1.5592e-01 ,1.8216e-01 ,2.1168e-01 ,2.4388e-01 /) - kbo(:,22, 3) = (/ & - &1.1395e-01 ,1.3395e-01 ,1.5675e-01 ,1.8217e-01 ,2.0967e-01 /) - kbo(:,23, 3) = (/ & - &9.7815e-02 ,1.1526e-01 ,1.3514e-01 ,1.5691e-01 ,1.8033e-01 /) - kbo(:,24, 3) = (/ & - &8.4102e-02 ,9.9408e-02 ,1.1660e-01 ,1.3523e-01 ,1.5511e-01 /) - kbo(:,25, 3) = (/ & - &7.2584e-02 ,8.5921e-02 ,1.0065e-01 ,1.1653e-01 ,1.3347e-01 /) - kbo(:,26, 3) = (/ & - &6.2935e-02 ,7.4476e-02 ,8.7054e-02 ,1.0059e-01 ,1.1498e-01 /) - kbo(:,27, 3) = (/ & - &5.4628e-02 ,6.4547e-02 ,7.5255e-02 ,8.6846e-02 ,9.9043e-02 /) - kbo(:,28, 3) = (/ & - &4.7438e-02 ,5.5913e-02 ,6.5081e-02 ,7.4969e-02 ,8.5391e-02 /) - kbo(:,29, 3) = (/ & - &4.1247e-02 ,4.8483e-02 ,5.6377e-02 ,6.4788e-02 ,7.3775e-02 /) - kbo(:,30, 3) = (/ & - &3.5874e-02 ,4.2080e-02 ,4.8862e-02 ,5.6085e-02 ,6.3787e-02 /) - kbo(:,31, 3) = (/ & - &3.1224e-02 ,3.6582e-02 ,4.2396e-02 ,4.8680e-02 ,5.5240e-02 /) - kbo(:,32, 3) = (/ & - &2.7211e-02 ,3.1854e-02 ,3.6880e-02 ,4.2315e-02 ,4.7892e-02 /) - kbo(:,33, 3) = (/ & - &2.3744e-02 ,2.7755e-02 ,3.2147e-02 ,3.6823e-02 ,4.1518e-02 /) - kbo(:,34, 3) = (/ & - &2.0626e-02 ,2.4111e-02 ,2.7927e-02 ,3.1884e-02 ,3.5825e-02 /) - kbo(:,35, 3) = (/ & - &1.7661e-02 ,2.0671e-02 ,2.3952e-02 ,2.7283e-02 ,3.0580e-02 /) - kbo(:,36, 3) = (/ & - &1.4872e-02 ,1.7453e-02 ,2.0237e-02 ,2.3045e-02 ,2.5826e-02 /) - kbo(:,37, 3) = (/ & - &1.2231e-02 ,1.4407e-02 ,1.6754e-02 ,1.9119e-02 ,2.1470e-02 /) - kbo(:,38, 3) = (/ & - &1.0046e-02 ,1.1883e-02 ,1.3859e-02 ,1.5852e-02 ,1.7844e-02 /) - kbo(:,39, 3) = (/ & - &8.2562e-03 ,9.8067e-03 ,1.1470e-02 ,1.3152e-02 ,1.4841e-02 /) - kbo(:,40, 3) = (/ & - &6.6596e-03 ,7.9555e-03 ,9.3542e-03 ,1.0774e-02 ,1.2201e-02 /) - kbo(:,41, 3) = (/ & - &5.3569e-03 ,6.4354e-03 ,7.6095e-03 ,8.8054e-03 ,1.0012e-02 /) - kbo(:,42, 3) = (/ & - &4.3009e-03 ,5.1973e-03 ,6.1851e-03 ,7.1918e-03 ,8.2134e-03 /) - kbo(:,43, 3) = (/ & - &3.4093e-03 ,4.1490e-03 ,4.9732e-03 ,5.8239e-03 ,6.6848e-03 /) - kbo(:,44, 3) = (/ & - &2.6823e-03 ,3.2897e-03 ,3.9739e-03 ,4.6907e-03 ,5.4167e-03 /) - kbo(:,45, 3) = (/ & - &2.1046e-03 ,2.6003e-03 ,3.1662e-03 ,3.7704e-03 ,4.3820e-03 /) - kbo(:,46, 3) = (/ & - &1.6388e-03 ,2.0403e-03 ,2.5048e-03 ,3.0127e-03 ,3.5286e-03 /) - kbo(:,47, 3) = (/ & - &1.2595e-03 ,1.5807e-03 ,1.9580e-03 ,2.3819e-03 ,2.8168e-03 /) - kbo(:,48, 3) = (/ & - &9.6423e-04 ,1.2197e-03 ,1.5249e-03 ,1.8746e-03 ,2.2418e-03 /) - kbo(:,49, 3) = (/ & - &7.3527e-04 ,9.3718e-04 ,1.1821e-03 ,1.4684e-03 ,1.7777e-03 /) - kbo(:,50, 3) = (/ & - &5.6217e-04 ,7.2217e-04 ,9.1835e-04 ,1.1512e-03 ,1.4112e-03 /) - kbo(:,51, 3) = (/ & - &4.2967e-04 ,5.5583e-04 ,7.1300e-04 ,9.0190e-04 ,1.1184e-03 /) - kbo(:,52, 3) = (/ & - &3.2742e-04 ,4.2631e-04 ,5.5137e-04 ,7.0406e-04 ,8.8313e-04 /) - kbo(:,53, 3) = (/ & - &2.4868e-04 ,3.2582e-04 ,4.2465e-04 ,5.4760e-04 ,6.9409e-04 /) - kbo(:,54, 3) = (/ & - &1.8974e-04 ,2.5027e-04 ,3.2861e-04 ,4.2756e-04 ,5.4716e-04 /) - kbo(:,55, 3) = (/ & - &1.4494e-04 ,1.9239e-04 ,2.5442e-04 ,3.3395e-04 ,4.3136e-04 /) - kbo(:,56, 3) = (/ & - &1.1043e-04 ,1.4756e-04 ,1.9639e-04 ,2.5993e-04 ,3.3900e-04 /) - kbo(:,57, 3) = (/ & - &8.3928e-05 ,1.1287e-04 ,1.5113e-04 ,2.0155e-04 ,2.6555e-04 /) - kbo(:,58, 3) = (/ & - &6.4018e-05 ,8.6477e-05 ,1.1648e-04 ,1.5666e-04 ,2.0830e-04 /) - kbo(:,59, 3) = (/ & - &5.1497e-05 ,6.9896e-05 ,9.4663e-05 ,1.2810e-04 ,1.7150e-04 /) - kbo(:,13, 4) = (/ & - &1.7524e+00 ,1.9492e+00 ,2.1512e+00 ,2.3564e+00 ,2.5478e+00 /) - kbo(:,14, 4) = (/ & - &1.4772e+00 ,1.6494e+00 ,1.8280e+00 ,2.0044e+00 ,2.1600e+00 /) - kbo(:,15, 4) = (/ & - &1.2495e+00 ,1.4008e+00 ,1.5559e+00 ,1.6974e+00 ,1.8203e+00 /) - kbo(:,16, 4) = (/ & - &1.0605e+00 ,1.1902e+00 ,1.3172e+00 ,1.4293e+00 ,1.5280e+00 /) - kbo(:,17, 4) = (/ & - &8.9958e-01 ,1.0068e+00 ,1.1092e+00 ,1.1993e+00 ,1.2798e+00 /) - kbo(:,18, 4) = (/ & - &7.6135e-01 ,8.4970e-01 ,9.3198e-01 ,1.0052e+00 ,1.0709e+00 /) - kbo(:,19, 4) = (/ & - &6.4340e-01 ,7.1592e-01 ,7.8258e-01 ,8.4177e-01 ,8.9530e-01 /) - kbo(:,20, 4) = (/ & - &5.4418e-01 ,6.0357e-01 ,6.5718e-01 ,7.0498e-01 ,7.4918e-01 /) - kbo(:,21, 4) = (/ & - &4.5911e-01 ,5.0742e-01 ,5.5063e-01 ,5.8988e-01 ,6.2662e-01 /) - kbo(:,22, 4) = (/ & - &3.8906e-01 ,4.2787e-01 ,4.6285e-01 ,4.9521e-01 ,5.2615e-01 /) - kbo(:,23, 4) = (/ & - &3.2912e-01 ,3.6040e-01 ,3.8895e-01 ,4.1593e-01 ,4.4229e-01 /) - kbo(:,24, 4) = (/ & - &2.7830e-01 ,3.0371e-01 ,3.2729e-01 ,3.5001e-01 ,3.7213e-01 /) - kbo(:,25, 4) = (/ & - &2.3534e-01 ,2.5620e-01 ,2.7595e-01 ,2.9506e-01 ,3.1323e-01 /) - kbo(:,26, 4) = (/ & - &1.9937e-01 ,2.1667e-01 ,2.3330e-01 ,2.4915e-01 ,2.6395e-01 /) - kbo(:,27, 4) = (/ & - &1.6896e-01 ,1.8346e-01 ,1.9732e-01 ,2.1038e-01 ,2.2245e-01 /) - kbo(:,28, 4) = (/ & - &1.4324e-01 ,1.5539e-01 ,1.6686e-01 ,1.7760e-01 ,1.8754e-01 /) - kbo(:,29, 4) = (/ & - &1.2158e-01 ,1.3162e-01 ,1.4109e-01 ,1.4990e-01 ,1.5824e-01 /) - kbo(:,30, 4) = (/ & - &1.0319e-01 ,1.1149e-01 ,1.1927e-01 ,1.2651e-01 ,1.3374e-01 /) - kbo(:,31, 4) = (/ & - &8.7596e-02 ,9.4445e-02 ,1.0083e-01 ,1.0683e-01 ,1.1324e-01 /) - kbo(:,32, 4) = (/ & - &7.4371e-02 ,7.9986e-02 ,8.5218e-02 ,9.0404e-02 ,9.6151e-02 /) - kbo(:,33, 4) = (/ & - &6.3127e-02 ,6.7754e-02 ,7.2100e-02 ,7.6670e-02 ,8.1947e-02 /) - kbo(:,34, 4) = (/ & - &5.3448e-02 ,5.7257e-02 ,6.0976e-02 ,6.5117e-02 ,6.9920e-02 /) - kbo(:,35, 4) = (/ & - &4.4958e-02 ,4.8132e-02 ,5.1386e-02 ,5.5110e-02 ,5.9396e-02 /) - kbo(:,36, 4) = (/ & - &3.7535e-02 ,4.0225e-02 ,4.3084e-02 ,4.6370e-02 ,5.0142e-02 /) - kbo(:,37, 4) = (/ & - &3.1000e-02 ,3.3296e-02 ,3.5751e-02 ,3.8593e-02 ,4.1835e-02 /) - kbo(:,38, 4) = (/ & - &2.5584e-02 ,2.7542e-02 ,2.9661e-02 ,3.2102e-02 ,3.4896e-02 /) - kbo(:,39, 4) = (/ & - &2.1117e-02 ,2.2790e-02 ,2.4613e-02 ,2.6708e-02 ,2.9115e-02 /) - kbo(:,40, 4) = (/ & - &1.7285e-02 ,1.8708e-02 ,2.0253e-02 ,2.2025e-02 ,2.4072e-02 /) - kbo(:,41, 4) = (/ & - &1.4124e-02 ,1.5332e-02 ,1.6640e-02 ,1.8138e-02 ,1.9869e-02 /) - kbo(:,42, 4) = (/ & - &1.1535e-02 ,1.2562e-02 ,1.3665e-02 ,1.4929e-02 ,1.6393e-02 /) - kbo(:,43, 4) = (/ & - &9.3628e-03 ,1.0238e-02 ,1.1164e-02 ,1.2221e-02 ,1.3452e-02 /) - kbo(:,44, 4) = (/ & - &7.5734e-03 ,8.3195e-03 ,9.0965e-03 ,9.9764e-03 ,1.1001e-02 /) - kbo(:,45, 4) = (/ & - &6.1205e-03 ,6.7536e-03 ,7.4083e-03 ,8.1381e-03 ,8.9936e-03 /) - kbo(:,46, 4) = (/ & - &4.9262e-03 ,5.4662e-03 ,6.0165e-03 ,6.6206e-03 ,7.3272e-03 /) - kbo(:,47, 4) = (/ & - &3.9391e-03 ,4.3970e-03 ,4.8610e-03 ,5.3580e-03 ,5.9369e-03 /) - kbo(:,48, 4) = (/ & - &3.1403e-03 ,3.5287e-03 ,3.9210e-03 ,4.3323e-03 ,4.8039e-03 /) - kbo(:,49, 4) = (/ & - &2.4956e-03 ,2.8254e-03 ,3.1568e-03 ,3.4981e-03 ,3.8839e-03 /) - kbo(:,50, 4) = (/ & - &1.9828e-03 ,2.2636e-03 ,2.5424e-03 ,2.8288e-03 ,3.1441e-03 /) - kbo(:,51, 4) = (/ & - &1.5714e-03 ,1.8113e-03 ,2.0459e-03 ,2.2868e-03 ,2.5462e-03 /) - kbo(:,52, 4) = (/ & - &1.2395e-03 ,1.4453e-03 ,1.6428e-03 ,1.8457e-03 ,2.0598e-03 /) - kbo(:,53, 4) = (/ & - &9.7290e-04 ,1.1497e-03 ,1.3161e-03 ,1.4871e-03 ,1.6649e-03 /) - kbo(:,54, 4) = (/ & - &7.6445e-04 ,9.1516e-04 ,1.0560e-03 ,1.2000e-03 ,1.3484e-03 /) - kbo(:,55, 4) = (/ & - &5.9991e-04 ,7.2766e-04 ,8.4765e-04 ,9.6806e-04 ,1.0927e-03 /) - kbo(:,56, 4) = (/ & - &4.6862e-04 ,5.7638e-04 ,6.7857e-04 ,7.7940e-04 ,8.8453e-04 /) - kbo(:,57, 4) = (/ & - &3.6453e-04 ,4.5447e-04 ,5.4199e-04 ,6.2645e-04 ,7.1474e-04 /) - kbo(:,58, 4) = (/ & - &2.8389e-04 ,3.5818e-04 ,4.3272e-04 ,5.0377e-04 ,5.7789e-04 /) - kbo(:,59, 4) = (/ & - &2.3060e-04 ,2.9282e-04 ,3.5542e-04 ,4.1534e-04 ,4.7810e-04 /) - kbo(:,13, 5) = (/ & - &4.6094e+00 ,4.6772e+00 ,4.7246e+00 ,4.7737e+00 ,4.8549e+00 /) - kbo(:,14, 5) = (/ & - &3.8278e+00 ,3.8806e+00 ,3.9251e+00 ,3.9810e+00 ,4.0718e+00 /) - kbo(:,15, 5) = (/ & - &3.1722e+00 ,3.2168e+00 ,3.2634e+00 ,3.3308e+00 ,3.4210e+00 /) - kbo(:,16, 5) = (/ & - &2.6249e+00 ,2.6705e+00 ,2.7237e+00 ,2.7913e+00 ,2.8656e+00 /) - kbo(:,17, 5) = (/ & - &2.1764e+00 ,2.2249e+00 ,2.2741e+00 ,2.3304e+00 ,2.3919e+00 /) - kbo(:,18, 5) = (/ & - &1.8098e+00 ,1.8520e+00 ,1.8935e+00 ,1.9392e+00 ,1.9922e+00 /) - kbo(:,19, 5) = (/ & - &1.5044e+00 ,1.5380e+00 ,1.5723e+00 ,1.6122e+00 ,1.6588e+00 /) - kbo(:,20, 5) = (/ & - &1.2493e+00 ,1.2764e+00 ,1.3059e+00 ,1.3405e+00 ,1.3817e+00 /) - kbo(:,21, 5) = (/ & - &1.0373e+00 ,1.0597e+00 ,1.0855e+00 ,1.1148e+00 ,1.1513e+00 /) - kbo(:,22, 5) = (/ & - &8.6282e-01 ,8.8188e-01 ,9.0343e-01 ,9.2979e-01 ,9.6231e-01 /) - kbo(:,23, 5) = (/ & - &7.1704e-01 ,7.3333e-01 ,7.5232e-01 ,7.7633e-01 ,8.0551e-01 /) - kbo(:,24, 5) = (/ & - &5.9518e-01 ,6.0940e-01 ,6.2643e-01 ,6.4862e-01 ,6.7508e-01 /) - kbo(:,25, 5) = (/ & - &4.9422e-01 ,5.0656e-01 ,5.2248e-01 ,5.4283e-01 ,5.6739e-01 /) - kbo(:,26, 5) = (/ & - &4.1037e-01 ,4.2180e-01 ,4.3687e-01 ,4.5588e-01 ,4.7822e-01 /) - kbo(:,27, 5) = (/ & - &3.4124e-01 ,3.5223e-01 ,3.6648e-01 ,3.8368e-01 ,4.0379e-01 /) - kbo(:,28, 5) = (/ & - &2.8464e-01 ,2.9501e-01 ,3.0821e-01 ,3.2362e-01 ,3.4157e-01 /) - kbo(:,29, 5) = (/ & - &2.3808e-01 ,2.4801e-01 ,2.5984e-01 ,2.7366e-01 ,2.8965e-01 /) - kbo(:,30, 5) = (/ & - &1.9967e-01 ,2.0890e-01 ,2.1955e-01 ,2.3198e-01 ,2.4657e-01 /) - kbo(:,31, 5) = (/ & - &1.6792e-01 ,1.7624e-01 ,1.8593e-01 ,1.9729e-01 ,2.1071e-01 /) - kbo(:,32, 5) = (/ & - &1.4147e-01 ,1.4902e-01 ,1.5786e-01 ,1.6833e-01 ,1.8092e-01 /) - kbo(:,33, 5) = (/ & - &1.1942e-01 ,1.2630e-01 ,1.3442e-01 ,1.4414e-01 ,1.5600e-01 /) - kbo(:,34, 5) = (/ & - &1.0087e-01 ,1.0707e-01 ,1.1451e-01 ,1.2366e-01 ,1.3474e-01 /) - kbo(:,35, 5) = (/ & - &8.4860e-02 ,9.0419e-02 ,9.7193e-02 ,1.0562e-01 ,1.1587e-01 /) - kbo(:,36, 5) = (/ & - &7.0999e-02 ,7.5907e-02 ,8.1988e-02 ,8.9567e-02 ,9.8842e-02 /) - kbo(:,37, 5) = (/ & - &5.8886e-02 ,6.3102e-02 ,6.8391e-02 ,7.5008e-02 ,8.3160e-02 /) - kbo(:,38, 5) = (/ & - &4.8832e-02 ,5.2452e-02 ,5.7040e-02 ,6.2826e-02 ,7.0009e-02 /) - kbo(:,39, 5) = (/ & - &4.0501e-02 ,4.3616e-02 ,4.7608e-02 ,5.2697e-02 ,5.9016e-02 /) - kbo(:,40, 5) = (/ & - &3.3361e-02 ,3.5983e-02 ,3.9374e-02 ,4.3750e-02 ,4.9196e-02 /) - kbo(:,41, 5) = (/ & - &2.7445e-02 ,2.9649e-02 ,3.2516e-02 ,3.6256e-02 ,4.0930e-02 /) - kbo(:,42, 5) = (/ & - &2.2572e-02 ,2.4412e-02 ,2.6829e-02 ,3.0022e-02 ,3.4040e-02 /) - kbo(:,43, 5) = (/ & - &1.8476e-02 ,1.9991e-02 ,2.1997e-02 ,2.4673e-02 ,2.8080e-02 /) - kbo(:,44, 5) = (/ & - &1.5092e-02 ,1.6330e-02 ,1.7973e-02 ,2.0194e-02 ,2.3058e-02 /) - kbo(:,45, 5) = (/ & - &1.2321e-02 ,1.3334e-02 ,1.4674e-02 ,1.6507e-02 ,1.8911e-02 /) - kbo(:,46, 5) = (/ & - &1.0036e-02 ,1.0861e-02 ,1.1940e-02 ,1.3440e-02 ,1.5434e-02 /) - kbo(:,47, 5) = (/ & - &8.1439e-03 ,8.8117e-03 ,9.6681e-03 ,1.0871e-02 ,1.2500e-02 /) - kbo(:,48, 5) = (/ & - &6.6059e-03 ,7.1462e-03 ,7.8259e-03 ,8.7835e-03 ,1.0106e-02 /) - kbo(:,49, 5) = (/ & - &5.3548e-03 ,5.7913e-03 ,6.3343e-03 ,7.0935e-03 ,8.1581e-03 /) - kbo(:,50, 5) = (/ & - &4.3482e-03 ,4.7014e-03 ,5.1411e-03 ,5.7429e-03 ,6.6034e-03 /) - kbo(:,51, 5) = (/ & - &3.5331e-03 ,3.8185e-03 ,4.1765e-03 ,4.6543e-03 ,5.3466e-03 /) - kbo(:,52, 5) = (/ & - &2.8695e-03 ,3.1007e-03 ,3.3920e-03 ,3.7708e-03 ,4.3257e-03 /) - kbo(:,53, 5) = (/ & - &2.3291e-03 ,2.5165e-03 ,2.7524e-03 ,3.0532e-03 ,3.4935e-03 /) - kbo(:,54, 5) = (/ & - &1.8925e-03 ,2.0468e-03 ,2.2382e-03 ,2.4801e-03 ,2.8323e-03 /) - kbo(:,55, 5) = (/ & - &1.5385e-03 ,1.6657e-03 ,1.8210e-03 ,2.0171e-03 ,2.2988e-03 /) - kbo(:,56, 5) = (/ & - &1.2499e-03 ,1.3548e-03 ,1.4808e-03 ,1.6398e-03 ,1.8634e-03 /) - kbo(:,57, 5) = (/ & - &1.0138e-03 ,1.1010e-03 ,1.2032e-03 ,1.3320e-03 ,1.5093e-03 /) - kbo(:,58, 5) = (/ & - &8.2159e-04 ,8.9516e-04 ,9.7844e-04 ,1.0832e-03 ,1.2245e-03 /) - kbo(:,59, 5) = (/ & - &6.7629e-04 ,7.3875e-04 ,8.0921e-04 ,8.9812e-04 ,1.0190e-03 /) - kbo(:,13, 6) = (/ & - &8.6109e+00 ,8.6045e+00 ,8.6391e+00 ,8.7159e+00 ,8.8472e+00 /) - kbo(:,14, 6) = (/ & - &7.2012e+00 ,7.1992e+00 ,7.2347e+00 ,7.3193e+00 ,7.4652e+00 /) - kbo(:,15, 6) = (/ & - &6.0036e+00 ,6.0084e+00 ,6.0525e+00 ,6.1531e+00 ,6.3134e+00 /) - kbo(:,16, 6) = (/ & - &4.9860e+00 ,4.9990e+00 ,5.0571e+00 ,5.1776e+00 ,5.3476e+00 /) - kbo(:,17, 6) = (/ & - &4.1286e+00 ,4.1532e+00 ,4.2350e+00 ,4.3671e+00 ,4.5277e+00 /) - kbo(:,18, 6) = (/ & - &3.4143e+00 ,3.4596e+00 ,3.5560e+00 ,3.6799e+00 ,3.8169e+00 /) - kbo(:,19, 6) = (/ & - &2.8306e+00 ,2.8919e+00 ,2.9820e+00 ,3.0877e+00 ,3.2050e+00 /) - kbo(:,20, 6) = (/ & - &2.3552e+00 ,2.4158e+00 ,2.4951e+00 ,2.5846e+00 ,2.6876e+00 /) - kbo(:,21, 6) = (/ & - &1.9600e+00 ,2.0149e+00 ,2.0826e+00 ,2.1623e+00 ,2.2526e+00 /) - kbo(:,22, 6) = (/ & - &1.6326e+00 ,1.6825e+00 ,1.7432e+00 ,1.8140e+00 ,1.8956e+00 /) - kbo(:,23, 6) = (/ & - &1.3616e+00 ,1.4065e+00 ,1.4611e+00 ,1.5245e+00 ,1.5974e+00 /) - kbo(:,24, 6) = (/ & - &1.1379e+00 ,1.1784e+00 ,1.2266e+00 ,1.2828e+00 ,1.3489e+00 /) - kbo(:,25, 6) = (/ & - &9.5263e-01 ,9.8858e-01 ,1.0309e+00 ,1.0818e+00 ,1.1428e+00 /) - kbo(:,26, 6) = (/ & - &7.9793e-01 ,8.2975e-01 ,8.6871e-01 ,9.1620e-01 ,9.7213e-01 /) - kbo(:,27, 6) = (/ & - &6.6853e-01 ,6.9732e-01 ,7.3341e-01 ,7.7799e-01 ,8.3032e-01 /) - kbo(:,28, 6) = (/ & - &5.6032e-01 ,5.8734e-01 ,6.2174e-01 ,6.6339e-01 ,7.1179e-01 /) - kbo(:,29, 6) = (/ & - &4.7080e-01 ,4.9684e-01 ,5.2958e-01 ,5.6837e-01 ,6.1280e-01 /) - kbo(:,30, 6) = (/ & - &3.9732e-01 ,4.2229e-01 ,4.5298e-01 ,4.8884e-01 ,5.2914e-01 /) - kbo(:,31, 6) = (/ & - &3.3719e-01 ,3.6099e-01 ,3.8930e-01 ,4.2211e-01 ,4.5851e-01 /) - kbo(:,32, 6) = (/ & - &2.8780e-01 ,3.1000e-01 ,3.3607e-01 ,3.6581e-01 ,3.9865e-01 /) - kbo(:,33, 6) = (/ & - &2.4698e-01 ,2.6737e-01 ,2.9124e-01 ,3.1811e-01 ,3.4839e-01 /) - kbo(:,34, 6) = (/ & - &2.1208e-01 ,2.3079e-01 ,2.5250e-01 ,2.7695e-01 ,3.0517e-01 /) - kbo(:,35, 6) = (/ & - &1.8116e-01 ,1.9828e-01 ,2.1775e-01 ,2.3997e-01 ,2.6607e-01 /) - kbo(:,36, 6) = (/ & - &1.5361e-01 ,1.6893e-01 ,1.8633e-01 ,2.0647e-01 ,2.3023e-01 /) - kbo(:,37, 6) = (/ & - &1.2853e-01 ,1.4194e-01 ,1.5730e-01 ,1.7520e-01 ,1.9644e-01 /) - kbo(:,38, 6) = (/ & - &1.0750e-01 ,1.1924e-01 ,1.3275e-01 ,1.4862e-01 ,1.6766e-01 /) - kbo(:,39, 6) = (/ & - &8.9946e-02 ,1.0018e-01 ,1.1208e-01 ,1.2616e-01 ,1.4325e-01 /) - kbo(:,40, 6) = (/ & - &7.4468e-02 ,8.3253e-02 ,9.3534e-02 ,1.0578e-01 ,1.2083e-01 /) - kbo(:,41, 6) = (/ & - &6.1560e-02 ,6.9060e-02 ,7.7885e-02 ,8.8512e-02 ,1.0168e-01 /) - kbo(:,42, 6) = (/ & - &5.0884e-02 ,5.7270e-02 ,6.4836e-02 ,7.4017e-02 ,8.5530e-02 /) - kbo(:,43, 6) = (/ & - &4.1741e-02 ,4.7136e-02 ,5.3555e-02 ,6.1413e-02 ,7.1280e-02 /) - kbo(:,44, 6) = (/ & - &3.4114e-02 ,3.8637e-02 ,4.4075e-02 ,5.0720e-02 ,5.9134e-02 /) - kbo(:,45, 6) = (/ & - &2.7843e-02 ,3.1631e-02 ,3.6225e-02 ,4.1848e-02 ,4.9013e-02 /) - kbo(:,46, 6) = (/ & - &2.2624e-02 ,2.5773e-02 ,2.9633e-02 ,3.4369e-02 ,4.0405e-02 /) - kbo(:,47, 6) = (/ & - &1.8260e-02 ,2.0843e-02 ,2.4043e-02 ,2.7985e-02 ,3.3023e-02 /) - kbo(:,48, 6) = (/ & - &1.4711e-02 ,1.6820e-02 ,1.9466e-02 ,2.2727e-02 ,2.6914e-02 /) - kbo(:,49, 6) = (/ & - &1.1827e-02 ,1.3542e-02 ,1.5709e-02 ,1.8410e-02 ,2.1875e-02 /) - kbo(:,50, 6) = (/ & - &9.5219e-03 ,1.0923e-02 ,1.2699e-02 ,1.4938e-02 ,1.7808e-02 /) - kbo(:,51, 6) = (/ & - &7.6687e-03 ,8.8049e-03 ,1.0259e-02 ,1.2113e-02 ,1.4495e-02 /) - kbo(:,52, 6) = (/ & - &6.1732e-03 ,7.0853e-03 ,8.2719e-03 ,9.7966e-03 ,1.1770e-02 /) - kbo(:,53, 6) = (/ & - &4.9698e-03 ,5.6903e-03 ,6.6530e-03 ,7.9081e-03 ,9.5294e-03 /) - kbo(:,54, 6) = (/ & - &4.0149e-03 ,4.5833e-03 ,5.3685e-03 ,6.4021e-03 ,7.7450e-03 /) - kbo(:,55, 6) = (/ & - &3.2497e-03 ,3.6951e-03 ,4.3359e-03 ,5.1870e-03 ,6.3011e-03 /) - kbo(:,56, 6) = (/ & - &2.6325e-03 ,2.9773e-03 ,3.4964e-03 ,4.1937e-03 ,5.1170e-03 /) - kbo(:,57, 6) = (/ & - &2.1354e-03 ,2.3977e-03 ,2.8151e-03 ,3.3845e-03 ,4.1468e-03 /) - kbo(:,58, 6) = (/ & - &1.7364e-03 ,1.9358e-03 ,2.2698e-03 ,2.7348e-03 ,3.3639e-03 /) - kbo(:,59, 6) = (/ & - &1.4324e-03 ,1.6023e-03 ,1.8879e-03 ,2.2888e-03 ,2.8370e-03 /) - kbo(:,13, 7) = (/ & - &1.7993e+01 ,1.8373e+01 ,1.8772e+01 ,1.9157e+01 ,1.9544e+01 /) - kbo(:,14, 7) = (/ & - &1.5395e+01 ,1.5713e+01 ,1.6031e+01 ,1.6348e+01 ,1.6675e+01 /) - kbo(:,15, 7) = (/ & - &1.3087e+01 ,1.3328e+01 ,1.3586e+01 ,1.3851e+01 ,1.4166e+01 /) - kbo(:,16, 7) = (/ & - &1.1053e+01 ,1.1254e+01 ,1.1469e+01 ,1.1711e+01 ,1.2037e+01 /) - kbo(:,17, 7) = (/ & - &9.3076e+00 ,9.4744e+00 ,9.6627e+00 ,9.9088e+00 ,1.0257e+01 /) - kbo(:,18, 7) = (/ & - &7.8193e+00 ,7.9665e+00 ,8.1534e+00 ,8.4211e+00 ,8.7715e+00 /) - kbo(:,19, 7) = (/ & - &6.5448e+00 ,6.6861e+00 ,6.8916e+00 ,7.1741e+00 ,7.4962e+00 /) - kbo(:,20, 7) = (/ & - &5.4651e+00 ,5.6202e+00 ,5.8422e+00 ,6.1124e+00 ,6.3952e+00 /) - kbo(:,21, 7) = (/ & - &4.5716e+00 ,4.7392e+00 ,4.9589e+00 ,5.1951e+00 ,5.4343e+00 /) - kbo(:,22, 7) = (/ & - &3.8421e+00 ,4.0181e+00 ,4.2111e+00 ,4.4111e+00 ,4.6135e+00 /) - kbo(:,23, 7) = (/ & - &3.2420e+00 ,3.4014e+00 ,3.5676e+00 ,3.7366e+00 ,3.9163e+00 /) - kbo(:,24, 7) = (/ & - &2.7372e+00 ,2.8745e+00 ,3.0185e+00 ,3.1680e+00 ,3.3279e+00 /) - kbo(:,25, 7) = (/ & - &2.3109e+00 ,2.4310e+00 ,2.5564e+00 ,2.6909e+00 ,2.8371e+00 /) - kbo(:,26, 7) = (/ & - &1.9553e+00 ,2.0603e+00 ,2.1726e+00 ,2.2928e+00 ,2.4305e+00 /) - kbo(:,27, 7) = (/ & - &1.6578e+00 ,1.7514e+00 ,1.8510e+00 ,1.9617e+00 ,2.0943e+00 /) - kbo(:,28, 7) = (/ & - &1.4096e+00 ,1.4926e+00 ,1.5811e+00 ,1.6863e+00 ,1.8139e+00 /) - kbo(:,29, 7) = (/ & - &1.2014e+00 ,1.2743e+00 ,1.3570e+00 ,1.4576e+00 ,1.5798e+00 /) - kbo(:,30, 7) = (/ & - &1.0255e+00 ,1.0913e+00 ,1.1701e+00 ,1.2677e+00 ,1.3837e+00 /) - kbo(:,31, 7) = (/ & - &8.7693e-01 ,9.3909e-01 ,1.0166e+00 ,1.1099e+00 ,1.2195e+00 /) - kbo(:,32, 7) = (/ & - &7.5259e-01 ,8.1353e-01 ,8.8887e-01 ,9.7843e-01 ,1.0818e+00 /) - kbo(:,33, 7) = (/ & - &6.4947e-01 ,7.0941e-01 ,7.8262e-01 ,8.6809e-01 ,9.6577e-01 /) - kbo(:,34, 7) = (/ & - &5.6287e-01 ,6.2118e-01 ,6.9115e-01 ,7.7236e-01 ,8.6471e-01 /) - kbo(:,35, 7) = (/ & - &4.8662e-01 ,5.4191e-01 ,6.0756e-01 ,6.8389e-01 ,7.7035e-01 /) - kbo(:,36, 7) = (/ & - &4.1799e-01 ,4.6899e-01 ,5.2971e-01 ,6.0005e-01 ,6.8040e-01 /) - kbo(:,37, 7) = (/ & - &3.5425e-01 ,3.9998e-01 ,4.5446e-01 ,5.1797e-01 ,5.9123e-01 /) - kbo(:,38, 7) = (/ & - &3.0041e-01 ,3.4120e-01 ,3.9013e-01 ,4.4734e-01 ,5.1414e-01 /) - kbo(:,39, 7) = (/ & - &2.5510e-01 ,2.9152e-01 ,3.3528e-01 ,3.8698e-01 ,4.4801e-01 /) - kbo(:,40, 7) = (/ & - &2.1385e-01 ,2.4566e-01 ,2.8431e-01 ,3.3018e-01 ,3.8482e-01 /) - kbo(:,41, 7) = (/ & - &1.7890e-01 ,2.0671e-01 ,2.4058e-01 ,2.8118e-01 ,3.2987e-01 /) - kbo(:,42, 7) = (/ & - &1.4939e-01 ,1.7381e-01 ,2.0357e-01 ,2.3938e-01 ,2.8282e-01 /) - kbo(:,43, 7) = (/ & - &1.2354e-01 ,1.4458e-01 ,1.7057e-01 ,2.0193e-01 ,2.4014e-01 /) - kbo(:,44, 7) = (/ & - &1.0153e-01 ,1.1950e-01 ,1.4202e-01 ,1.6945e-01 ,2.0287e-01 /) - kbo(:,45, 7) = (/ & - &8.3299e-02 ,9.8554e-02 ,1.1794e-01 ,1.4189e-01 ,1.7119e-01 /) - kbo(:,46, 7) = (/ & - &6.7950e-02 ,8.0732e-02 ,9.7254e-02 ,1.1796e-01 ,1.4359e-01 /) - kbo(:,47, 7) = (/ & - &5.4969e-02 ,6.5444e-02 ,7.9285e-02 ,9.6924e-02 ,1.1901e-01 /) - kbo(:,48, 7) = (/ & - &4.4384e-02 ,5.2919e-02 ,6.4422e-02 ,7.9306e-02 ,9.8242e-02 /) - kbo(:,49, 7) = (/ & - &3.5781e-02 ,4.2676e-02 ,5.2185e-02 ,6.4673e-02 ,8.0797e-02 /) - kbo(:,50, 7) = (/ & - &2.8901e-02 ,3.4506e-02 ,4.2382e-02 ,5.2852e-02 ,6.6579e-02 /) - kbo(:,51, 7) = (/ & - &2.3369e-02 ,2.7878e-02 ,3.4389e-02 ,4.3175e-02 ,5.4833e-02 /) - kbo(:,52, 7) = (/ & - &1.8862e-02 ,2.2473e-02 ,2.7804e-02 ,3.5169e-02 ,4.5009e-02 /) - kbo(:,53, 7) = (/ & - &1.5202e-02 ,1.8063e-02 ,2.2412e-02 ,2.8532e-02 ,3.6823e-02 /) - kbo(:,54, 7) = (/ & - &1.2294e-02 ,1.4584e-02 ,1.8116e-02 ,2.3236e-02 ,3.0266e-02 /) - kbo(:,55, 7) = (/ & - &9.9456e-03 ,1.1792e-02 ,1.4659e-02 ,1.8922e-02 ,2.4874e-02 /) - kbo(:,56, 7) = (/ & - &8.0324e-03 ,9.5190e-03 ,1.1834e-02 ,1.5356e-02 ,2.0377e-02 /) - kbo(:,57, 7) = (/ & - &6.4764e-03 ,7.6756e-03 ,9.5255e-03 ,1.2420e-02 ,1.6628e-02 /) - kbo(:,58, 7) = (/ & - &5.2278e-03 ,6.1981e-03 ,7.6844e-03 ,1.0060e-02 ,1.3591e-02 /) - kbo(:,59, 7) = (/ & - &4.3384e-03 ,5.1762e-03 ,6.4759e-03 ,8.5723e-03 ,1.1730e-02 /) - kbo(:,13, 8) = (/ & - &4.8706e+01 ,5.0287e+01 ,5.1813e+01 ,5.3328e+01 ,5.4791e+01 /) - kbo(:,14, 8) = (/ & - &4.2745e+01 ,4.3995e+01 ,4.5243e+01 ,4.6475e+01 ,4.7668e+01 /) - kbo(:,15, 8) = (/ & - &3.7251e+01 ,3.8260e+01 ,3.9278e+01 ,4.0277e+01 ,4.1241e+01 /) - kbo(:,16, 8) = (/ & - &3.2307e+01 ,3.3121e+01 ,3.3949e+01 ,3.4768e+01 ,3.5567e+01 /) - kbo(:,17, 8) = (/ & - &2.7892e+01 ,2.8569e+01 ,2.9248e+01 ,2.9919e+01 ,3.0586e+01 /) - kbo(:,18, 8) = (/ & - &2.3896e+01 ,2.4456e+01 ,2.5013e+01 ,2.5581e+01 ,2.6214e+01 /) - kbo(:,19, 8) = (/ & - &2.0345e+01 ,2.0796e+01 ,2.1262e+01 ,2.1777e+01 ,2.2440e+01 /) - kbo(:,20, 8) = (/ & - &1.7240e+01 ,1.7611e+01 ,1.8026e+01 ,1.8548e+01 ,1.9267e+01 /) - kbo(:,21, 8) = (/ & - &1.4559e+01 ,1.4881e+01 ,1.5281e+01 ,1.5850e+01 ,1.6627e+01 /) - kbo(:,22, 8) = (/ & - &1.2297e+01 ,1.2604e+01 ,1.3048e+01 ,1.3680e+01 ,1.4474e+01 /) - kbo(:,23, 8) = (/ & - &1.0392e+01 ,1.0731e+01 ,1.1231e+01 ,1.1887e+01 ,1.2635e+01 /) - kbo(:,24, 8) = (/ & - &8.8024e+00 ,9.1906e+00 ,9.7265e+00 ,1.0368e+01 ,1.1047e+01 /) - kbo(:,25, 8) = (/ & - &7.4985e+00 ,7.9218e+00 ,8.4606e+00 ,9.0520e+00 ,9.6698e+00 /) - kbo(:,26, 8) = (/ & - &6.4322e+00 ,6.8736e+00 ,7.3794e+00 ,7.9154e+00 ,8.4712e+00 /) - kbo(:,27, 8) = (/ & - &5.5575e+00 ,5.9810e+00 ,6.4388e+00 ,6.9229e+00 ,7.4216e+00 /) - kbo(:,28, 8) = (/ & - &4.8206e+00 ,5.2066e+00 ,5.6224e+00 ,6.0597e+00 ,6.5182e+00 /) - kbo(:,29, 8) = (/ & - &4.1909e+00 ,4.5439e+00 ,4.9224e+00 ,5.3216e+00 ,5.7541e+00 /) - kbo(:,30, 8) = (/ & - &3.6537e+00 ,3.9765e+00 ,4.3215e+00 ,4.6952e+00 ,5.1087e+00 /) - kbo(:,31, 8) = (/ & - &3.1984e+00 ,3.4930e+00 ,3.8129e+00 ,4.1678e+00 ,4.5716e+00 /) - kbo(:,32, 8) = (/ & - &2.8116e+00 ,3.0829e+00 ,3.3853e+00 ,3.7289e+00 ,4.1280e+00 /) - kbo(:,33, 8) = (/ & - &2.4834e+00 ,2.7385e+00 ,3.0281e+00 ,3.3657e+00 ,3.7662e+00 /) - kbo(:,34, 8) = (/ & - &2.1985e+00 ,2.4407e+00 ,2.7219e+00 ,3.0561e+00 ,3.4576e+00 /) - kbo(:,35, 8) = (/ & - &1.9383e+00 ,2.1683e+00 ,2.4400e+00 ,2.7681e+00 ,3.1668e+00 /) - kbo(:,36, 8) = (/ & - &1.6974e+00 ,1.9136e+00 ,2.1729e+00 ,2.4903e+00 ,2.8775e+00 /) - kbo(:,37, 8) = (/ & - &1.4652e+00 ,1.6633e+00 ,1.9048e+00 ,2.2035e+00 ,2.5698e+00 /) - kbo(:,38, 8) = (/ & - &1.2656e+00 ,1.4474e+00 ,1.6717e+00 ,1.9523e+00 ,2.2987e+00 /) - kbo(:,39, 8) = (/ & - &1.0950e+00 ,1.2617e+00 ,1.4708e+00 ,1.7354e+00 ,2.0626e+00 /) - kbo(:,40, 8) = (/ & - &9.3521e-01 ,1.0851e+00 ,1.2754e+00 ,1.5183e+00 ,1.8212e+00 /) - kbo(:,41, 8) = (/ & - &7.9768e-01 ,9.3182e-01 ,1.1039e+00 ,1.3257e+00 ,1.6049e+00 /) - kbo(:,42, 8) = (/ & - &6.8000e-01 ,8.0060e-01 ,9.5561e-01 ,1.1575e+00 ,1.4146e+00 /) - kbo(:,43, 8) = (/ & - &5.7402e-01 ,6.8098e-01 ,8.1874e-01 ,9.9948e-01 ,1.2325e+00 /) - kbo(:,44, 8) = (/ & - &4.8186e-01 ,5.7592e-01 ,6.9798e-01 ,8.5786e-01 ,1.0670e+00 /) - kbo(:,45, 8) = (/ & - &4.0392e-01 ,4.8633e-01 ,5.9393e-01 ,7.3592e-01 ,9.2240e-01 /) - kbo(:,46, 8) = (/ & - &3.3669e-01 ,4.0818e-01 ,5.0211e-01 ,6.2723e-01 ,7.9252e-01 /) - kbo(:,47, 8) = (/ & - &2.7781e-01 ,3.3888e-01 ,4.1961e-01 ,5.2781e-01 ,6.7290e-01 /) - kbo(:,48, 8) = (/ & - &2.2877e-01 ,2.8059e-01 ,3.4952e-01 ,4.4268e-01 ,5.6946e-01 /) - kbo(:,49, 8) = (/ & - &1.8802e-01 ,2.3180e-01 ,2.9026e-01 ,3.7003e-01 ,4.7989e-01 /) - kbo(:,50, 8) = (/ & - &1.5486e-01 ,1.9224e-01 ,2.4194e-01 ,3.1045e-01 ,4.0570e-01 /) - kbo(:,51, 8) = (/ & - &1.2726e-01 ,1.5950e-01 ,2.0189e-01 ,2.6070e-01 ,3.4311e-01 /) - kbo(:,52, 8) = (/ & - &1.0409e-01 ,1.3185e-01 ,1.6823e-01 ,2.1834e-01 ,2.8934e-01 /) - kbo(:,53, 8) = (/ & - &8.4711e-02 ,1.0844e-01 ,1.3980e-01 ,1.8253e-01 ,2.4332e-01 /) - kbo(:,54, 8) = (/ & - &6.9167e-02 ,8.9444e-02 ,1.1665e-01 ,1.5372e-01 ,2.0609e-01 /) - kbo(:,55, 8) = (/ & - &5.6448e-02 ,7.3743e-02 ,9.7299e-02 ,1.2965e-01 ,1.7511e-01 /) - kbo(:,56, 8) = (/ & - &4.5936e-02 ,6.0554e-02 ,8.0824e-02 ,1.0896e-01 ,1.4860e-01 /) - kbo(:,57, 8) = (/ & - &3.7232e-02 ,4.9532e-02 ,6.6834e-02 ,9.1174e-02 ,1.2579e-01 /) - kbo(:,58, 8) = (/ & - &3.0170e-02 ,4.0563e-02 ,5.5307e-02 ,7.6347e-02 ,1.0664e-01 /) - kbo(:,59, 8) = (/ & - &2.5677e-02 ,3.5025e-02 ,4.8385e-02 ,6.7734e-02 ,9.6011e-02 /) - kbo(:,13, 9) = (/ & - &2.6703e+02 ,2.6279e+02 ,2.6062e+02 ,2.6039e+02 ,2.6194e+02 /) - kbo(:,14, 9) = (/ & - &2.2898e+02 ,2.2692e+02 ,2.2683e+02 ,2.2864e+02 ,2.3216e+02 /) - kbo(:,15, 9) = (/ & - &1.9675e+02 ,1.9661e+02 ,1.9840e+02 ,2.0200e+02 ,2.0726e+02 /) - kbo(:,16, 9) = (/ & - &1.6984e+02 ,1.7136e+02 ,1.7476e+02 ,1.7992e+02 ,1.8656e+02 /) - kbo(:,17, 9) = (/ & - &1.4758e+02 ,1.5050e+02 ,1.5527e+02 ,1.6140e+02 ,1.6749e+02 /) - kbo(:,18, 9) = (/ & - &1.2946e+02 ,1.3358e+02 ,1.3896e+02 ,1.4424e+02 ,1.4936e+02 /) - kbo(:,19, 9) = (/ & - &1.1448e+02 ,1.1916e+02 ,1.2382e+02 ,1.2832e+02 ,1.3257e+02 /) - kbo(:,20, 9) = (/ & - &1.0147e+02 ,1.0559e+02 ,1.0961e+02 ,1.1348e+02 ,1.1720e+02 /) - kbo(:,21, 9) = (/ & - &8.9412e+01 ,9.2958e+01 ,9.6430e+01 ,9.9808e+01 ,1.0309e+02 /) - kbo(:,22, 9) = (/ & - &7.8582e+01 ,8.1638e+01 ,8.4651e+01 ,8.7620e+01 ,9.0634e+01 /) - kbo(:,23, 9) = (/ & - &6.8855e+01 ,7.1486e+01 ,7.4134e+01 ,7.6820e+01 ,7.9730e+01 /) - kbo(:,24, 9) = (/ & - &6.0268e+01 ,6.2580e+01 ,6.4940e+01 ,6.7498e+01 ,7.0383e+01 /) - kbo(:,25, 9) = (/ & - &5.2817e+01 ,5.4857e+01 ,5.7070e+01 ,5.9583e+01 ,6.2456e+01 /) - kbo(:,26, 9) = (/ & - &4.6400e+01 ,4.8304e+01 ,5.0443e+01 ,5.2928e+01 ,5.5843e+01 /) - kbo(:,27, 9) = (/ & - &4.0882e+01 ,4.2740e+01 ,4.4869e+01 ,4.7387e+01 ,5.0354e+01 /) - kbo(:,28, 9) = (/ & - &3.6127e+01 ,3.8035e+01 ,4.0229e+01 ,4.2798e+01 ,4.5828e+01 /) - kbo(:,29, 9) = (/ & - &3.2099e+01 ,3.4067e+01 ,3.6357e+01 ,3.9031e+01 ,4.2139e+01 /) - kbo(:,30, 9) = (/ & - &2.8701e+01 ,3.0741e+01 ,3.3127e+01 ,3.5914e+01 ,3.9160e+01 /) - kbo(:,31, 9) = (/ & - &2.5860e+01 ,2.7970e+01 ,3.0458e+01 ,3.3377e+01 ,3.6776e+01 /) - kbo(:,32, 9) = (/ & - &2.3508e+01 ,2.5694e+01 ,2.8287e+01 ,3.1347e+01 ,3.4892e+01 /) - kbo(:,33, 9) = (/ & - &2.1570e+01 ,2.3849e+01 ,2.6553e+01 ,2.9752e+01 ,3.3419e+01 /) - kbo(:,34, 9) = (/ & - &1.9918e+01 ,2.2276e+01 ,2.5098e+01 ,2.8399e+01 ,3.2162e+01 /) - kbo(:,35, 9) = (/ & - &1.8364e+01 ,2.0767e+01 ,2.3651e+01 ,2.7001e+01 ,3.0813e+01 /) - kbo(:,36, 9) = (/ & - &1.6826e+01 ,1.9227e+01 ,2.2113e+01 ,2.5466e+01 ,2.9284e+01 /) - kbo(:,37, 9) = (/ & - &1.5183e+01 ,1.7515e+01 ,2.0322e+01 ,2.3610e+01 ,2.7381e+01 /) - kbo(:,38, 9) = (/ & - &1.3727e+01 ,1.5985e+01 ,1.8713e+01 ,2.1934e+01 ,2.5649e+01 /) - kbo(:,39, 9) = (/ & - &1.2450e+01 ,1.4635e+01 ,1.7282e+01 ,2.0444e+01 ,2.4108e+01 /) - kbo(:,40, 9) = (/ & - &1.1136e+01 ,1.3200e+01 ,1.5726e+01 ,1.8770e+01 ,2.2337e+01 /) - kbo(:,41, 9) = (/ & - &9.9523e+00 ,1.1888e+01 ,1.4289e+01 ,1.7214e+01 ,2.0673e+01 /) - kbo(:,42, 9) = (/ & - &8.8997e+00 ,1.0713e+01 ,1.2995e+01 ,1.5799e+01 ,1.9151e+01 /) - kbo(:,43, 9) = (/ & - &7.8779e+00 ,9.5542e+00 ,1.1690e+01 ,1.4348e+01 ,1.7554e+01 /) - kbo(:,44, 9) = (/ & - &6.9290e+00 ,8.4792e+00 ,1.0459e+01 ,1.2952e+01 ,1.5997e+01 /) - kbo(:,45, 9) = (/ & - &6.0796e+00 ,7.5168e+00 ,9.3520e+00 ,1.1681e+01 ,1.4566e+01 /) - kbo(:,46, 9) = (/ & - &5.2960e+00 ,6.6184e+00 ,8.3160e+00 ,1.0473e+01 ,1.3177e+01 /) - kbo(:,47, 9) = (/ & - &4.5500e+00 ,5.7498e+00 ,7.3069e+00 ,9.2819e+00 ,1.1781e+01 /) - kbo(:,48, 9) = (/ & - &3.8931e+00 ,4.9768e+00 ,6.3975e+00 ,8.2101e+00 ,1.0505e+01 /) - kbo(:,49, 9) = (/ & - &3.3134e+00 ,4.2874e+00 ,5.5792e+00 ,7.2463e+00 ,9.3480e+00 /) - kbo(:,50, 9) = (/ & - &2.8246e+00 ,3.7000e+00 ,4.8781e+00 ,6.4148e+00 ,8.3545e+00 /) - kbo(:,51, 9) = (/ & - &2.4042e+00 ,3.1908e+00 ,4.2622e+00 ,5.6755e+00 ,7.4755e+00 /) - kbo(:,52, 9) = (/ & - &2.0363e+00 ,2.7388e+00 ,3.7098e+00 ,5.0044e+00 ,6.6735e+00 /) - kbo(:,53, 9) = (/ & - &1.7163e+00 ,2.3398e+00 ,3.2134e+00 ,4.3950e+00 ,5.9331e+00 /) - kbo(:,54, 9) = (/ & - &1.4526e+00 ,2.0075e+00 ,2.7999e+00 ,3.8816e+00 ,5.3040e+00 /) - kbo(:,55, 9) = (/ & - &1.2300e+00 ,1.7228e+00 ,2.4419e+00 ,3.4323e+00 ,4.7483e+00 /) - kbo(:,56, 9) = (/ & - &1.0375e+00 ,1.4731e+00 ,2.1205e+00 ,3.0254e+00 ,4.2381e+00 /) - kbo(:,57, 9) = (/ & - &8.7139e-01 ,1.2530e+00 ,1.8332e+00 ,2.6576e+00 ,3.7724e+00 /) - kbo(:,58, 9) = (/ & - &7.3413e-01 ,1.0690e+00 ,1.5879e+00 ,2.3382e+00 ,3.3642e+00 /) - kbo(:,59, 9) = (/ & - &6.5989e-01 ,9.7719e-01 ,1.4752e+00 ,2.2003e+00 ,3.1955e+00 /) - kbo(:,13,10) = (/ & - &1.1367e+03 ,1.1187e+03 ,1.1007e+03 ,1.0822e+03 ,1.0635e+03 /) - kbo(:,14,10) = (/ & - &1.0074e+03 ,9.9018e+02 ,9.7308e+02 ,9.5574e+02 ,9.3889e+02 /) - kbo(:,15,10) = (/ & - &8.7706e+02 ,8.6124e+02 ,8.4557e+02 ,8.3018e+02 ,8.1545e+02 /) - kbo(:,16,10) = (/ & - &7.5406e+02 ,7.4004e+02 ,7.2614e+02 ,7.1298e+02 ,7.0106e+02 /) - kbo(:,17,10) = (/ & - &6.4217e+02 ,6.3016e+02 ,6.1851e+02 ,6.1057e+02 ,6.1770e+02 /) - kbo(:,18,10) = (/ & - &5.4317e+02 ,5.3308e+02 ,5.2858e+02 ,5.4063e+02 ,5.6728e+02 /) - kbo(:,19,10) = (/ & - &4.6024e+02 ,4.5629e+02 ,4.6936e+02 ,4.9569e+02 ,5.2404e+02 /) - kbo(:,20,10) = (/ & - &3.9833e+02 ,4.0962e+02 ,4.3282e+02 ,4.5686e+02 ,4.8096e+02 /) - kbo(:,21,10) = (/ & - &3.5836e+02 ,3.7926e+02 ,4.0031e+02 ,4.2094e+02 ,4.4134e+02 /) - kbo(:,22,10) = (/ & - &3.2968e+02 ,3.4978e+02 ,3.6939e+02 ,3.8833e+02 ,4.0603e+02 /) - kbo(:,23,10) = (/ & - &3.0114e+02 ,3.1980e+02 ,3.3812e+02 ,3.5559e+02 ,3.7182e+02 /) - kbo(:,24,10) = (/ & - &2.7330e+02 ,2.9068e+02 ,3.0752e+02 ,3.2347e+02 ,3.3875e+02 /) - kbo(:,25,10) = (/ & - &2.4688e+02 ,2.6295e+02 ,2.7833e+02 ,2.9325e+02 ,3.0804e+02 /) - kbo(:,26,10) = (/ & - &2.2243e+02 ,2.3718e+02 ,2.5149e+02 ,2.6591e+02 ,2.8021e+02 /) - kbo(:,27,10) = (/ & - &2.0056e+02 ,2.1372e+02 ,2.2739e+02 ,2.4128e+02 ,2.5540e+02 /) - kbo(:,28,10) = (/ & - &1.8160e+02 ,1.9338e+02 ,2.0609e+02 ,2.1959e+02 ,2.3363e+02 /) - kbo(:,29,10) = (/ & - &1.6537e+02 ,1.7620e+02 ,1.8800e+02 ,2.0075e+02 ,2.1484e+02 /) - kbo(:,30,10) = (/ & - &1.5182e+02 ,1.6163e+02 ,1.7256e+02 ,1.8487e+02 ,1.9853e+02 /) - kbo(:,31,10) = (/ & - &1.4022e+02 ,1.4937e+02 ,1.5973e+02 ,1.7160e+02 ,1.8530e+02 /) - kbo(:,32,10) = (/ & - &1.3043e+02 ,1.3908e+02 ,1.4919e+02 ,1.6089e+02 ,1.7519e+02 /) - kbo(:,33,10) = (/ & - &1.2206e+02 ,1.3058e+02 ,1.4055e+02 ,1.5267e+02 ,1.6777e+02 /) - kbo(:,34,10) = (/ & - &1.1470e+02 ,1.2330e+02 ,1.3342e+02 ,1.4627e+02 ,1.6240e+02 /) - kbo(:,35,10) = (/ & - &1.0771e+02 ,1.1657e+02 ,1.2696e+02 ,1.4044e+02 ,1.5769e+02 /) - kbo(:,36,10) = (/ & - &1.0083e+02 ,1.1016e+02 ,1.2074e+02 ,1.3465e+02 ,1.5261e+02 /) - kbo(:,37,10) = (/ & - &9.3496e+01 ,1.0322e+02 ,1.1406e+02 ,1.2781e+02 ,1.4573e+02 /) - kbo(:,38,10) = (/ & - &8.6889e+01 ,9.7016e+01 ,1.0824e+02 ,1.2185e+02 ,1.3969e+02 /) - kbo(:,39,10) = (/ & - &8.1021e+01 ,9.1487e+01 ,1.0329e+02 ,1.1682e+02 ,1.3445e+02 /) - kbo(:,40,10) = (/ & - &7.4776e+01 ,8.5570e+01 ,9.7630e+01 ,1.1098e+02 ,1.2786e+02 /) - kbo(:,41,10) = (/ & - &6.8905e+01 ,7.9963e+01 ,9.2277e+01 ,1.0563e+02 ,1.2163e+02 /) - kbo(:,42,10) = (/ & - &6.3556e+01 ,7.4784e+01 ,8.7205e+01 ,1.0072e+02 ,1.1596e+02 /) - kbo(:,43,10) = (/ & - &5.8129e+01 ,6.9316e+01 ,8.1730e+01 ,9.5263e+01 ,1.0987e+02 /) - kbo(:,44,10) = (/ & - &5.2913e+01 ,6.3890e+01 ,7.6248e+01 ,8.9686e+01 ,1.0397e+02 /) - kbo(:,45,10) = (/ & - &4.8208e+01 ,5.8780e+01 ,7.0988e+01 ,8.4262e+01 ,9.8407e+01 /) - kbo(:,46,10) = (/ & - &4.3761e+01 ,5.3798e+01 ,6.5649e+01 ,7.8725e+01 ,9.2702e+01 /) - kbo(:,47,10) = (/ & - &3.9326e+01 ,4.8763e+01 ,6.0030e+01 ,7.2829e+01 ,8.6540e+01 /) - kbo(:,48,10) = (/ & - &3.5364e+01 ,4.4166e+01 ,5.4802e+01 ,6.7118e+01 ,8.0555e+01 /) - kbo(:,49,10) = (/ & - &3.1766e+01 ,3.9895e+01 ,4.9874e+01 ,6.1599e+01 ,7.4720e+01 /) - kbo(:,50,10) = (/ & - &2.8694e+01 ,3.6225e+01 ,4.5586e+01 ,5.6696e+01 ,6.9417e+01 /) - kbo(:,51,10) = (/ & - &2.5920e+01 ,3.2954e+01 ,4.1705e+01 ,5.2192e+01 ,6.4368e+01 /) - kbo(:,52,10) = (/ & - &2.3265e+01 ,2.9945e+01 ,3.8066e+01 ,4.7953e+01 ,5.9548e+01 /) - kbo(:,53,10) = (/ & - &2.0700e+01 ,2.7205e+01 ,3.4731e+01 ,4.4004e+01 ,5.4983e+01 /) - kbo(:,54,10) = (/ & - &1.8407e+01 ,2.4804e+01 ,3.1883e+01 ,4.0571e+01 ,5.0997e+01 /) - kbo(:,55,10) = (/ & - &1.6304e+01 ,2.2551e+01 ,2.9350e+01 ,3.7469e+01 ,4.7350e+01 /) - kbo(:,56,10) = (/ & - &1.4323e+01 ,2.0360e+01 ,2.7019e+01 ,3.4608e+01 ,4.3950e+01 /) - kbo(:,57,10) = (/ & - &1.2463e+01 ,1.8241e+01 ,2.4765e+01 ,3.1934e+01 ,4.0687e+01 /) - kbo(:,58,10) = (/ & - &1.0795e+01 ,1.6294e+01 ,2.2666e+01 ,2.9555e+01 ,3.7776e+01 /) - kbo(:,59,10) = (/ & - &1.0106e+01 ,1.5507e+01 ,2.1812e+01 ,2.8629e+01 ,3.6645e+01 /) - kbo(:,13,11) = (/ & - &1.9976e+03 ,1.9732e+03 ,1.9489e+03 ,1.9244e+03 ,1.8976e+03 /) - kbo(:,14,11) = (/ & - &1.8361e+03 ,1.8109e+03 ,1.7859e+03 ,1.7607e+03 ,1.7342e+03 /) - kbo(:,15,11) = (/ & - &1.6588e+03 ,1.6335e+03 ,1.6090e+03 ,1.5838e+03 ,1.5592e+03 /) - kbo(:,16,11) = (/ & - &1.4709e+03 ,1.4475e+03 ,1.4246e+03 ,1.4016e+03 ,1.3798e+03 /) - kbo(:,17,11) = (/ & - &1.2816e+03 ,1.2604e+03 ,1.2396e+03 ,1.2204e+03 ,1.2023e+03 /) - kbo(:,18,11) = (/ & - &1.1028e+03 ,1.0839e+03 ,1.0668e+03 ,1.0513e+03 ,1.0382e+03 /) - kbo(:,19,11) = (/ & - &9.4023e+02 ,9.2525e+02 ,9.1156e+02 ,9.0352e+02 ,9.1240e+02 /) - kbo(:,20,11) = (/ & - &7.9708e+02 ,7.8540e+02 ,7.8133e+02 ,7.9678e+02 ,8.2988e+02 /) - kbo(:,21,11) = (/ & - &6.7587e+02 ,6.7233e+02 ,6.8973e+02 ,7.2606e+02 ,7.7277e+02 /) - kbo(:,22,11) = (/ & - &5.8284e+02 ,5.9841e+02 ,6.3319e+02 ,6.7525e+02 ,7.1925e+02 /) - kbo(:,23,11) = (/ & - &5.2309e+02 ,5.5425e+02 ,5.9038e+02 ,6.2826e+02 ,6.6879e+02 /) - kbo(:,24,11) = (/ & - &4.8568e+02 ,5.1820e+02 ,5.5078e+02 ,5.8566e+02 ,6.2252e+02 /) - kbo(:,25,11) = (/ & - &4.5215e+02 ,4.8337e+02 ,5.1498e+02 ,5.4697e+02 ,5.8166e+02 /) - kbo(:,26,11) = (/ & - &4.2013e+02 ,4.5049e+02 ,4.8168e+02 ,5.1282e+02 ,5.4620e+02 /) - kbo(:,27,11) = (/ & - &3.8959e+02 ,4.1991e+02 ,4.5056e+02 ,4.8229e+02 ,5.1534e+02 /) - kbo(:,28,11) = (/ & - &3.6165e+02 ,3.9145e+02 ,4.2248e+02 ,4.5510e+02 ,4.8890e+02 /) - kbo(:,29,11) = (/ & - &3.3655e+02 ,3.6613e+02 ,3.9802e+02 ,4.3186e+02 ,4.6748e+02 /) - kbo(:,30,11) = (/ & - &3.1395e+02 ,3.4455e+02 ,3.7776e+02 ,4.1303e+02 ,4.5043e+02 /) - kbo(:,31,11) = (/ & - &2.9496e+02 ,3.2692e+02 ,3.6155e+02 ,3.9895e+02 ,4.3848e+02 /) - kbo(:,32,11) = (/ & - &2.7981e+02 ,3.1316e+02 ,3.4973e+02 ,3.8935e+02 ,4.3105e+02 /) - kbo(:,33,11) = (/ & - &2.6816e+02 ,3.0318e+02 ,3.4211e+02 ,3.8404e+02 ,4.2836e+02 /) - kbo(:,34,11) = (/ & - &2.5884e+02 ,2.9576e+02 ,3.3707e+02 ,3.8116e+02 ,4.2770e+02 /) - kbo(:,35,11) = (/ & - &2.4952e+02 ,2.8807e+02 ,3.3125e+02 ,3.7732e+02 ,4.2524e+02 /) - kbo(:,36,11) = (/ & - &2.3943e+02 ,2.7867e+02 ,3.2325e+02 ,3.7058e+02 ,4.1944e+02 /) - kbo(:,37,11) = (/ & - &2.2613e+02 ,2.6501e+02 ,3.0984e+02 ,3.5803e+02 ,4.0758e+02 /) - kbo(:,38,11) = (/ & - &2.1436e+02 ,2.5281e+02 ,2.9747e+02 ,3.4610e+02 ,3.9628e+02 /) - kbo(:,39,11) = (/ & - &2.0421e+02 ,2.4224e+02 ,2.8638e+02 ,3.3523e+02 ,3.8565e+02 /) - kbo(:,40,11) = (/ & - &1.9196e+02 ,2.2865e+02 ,2.7155e+02 ,3.1991e+02 ,3.7045e+02 /) - kbo(:,41,11) = (/ & - &1.8048e+02 ,2.1574e+02 ,2.5717e+02 ,3.0447e+02 ,3.5504e+02 /) - kbo(:,42,11) = (/ & - &1.7002e+02 ,2.0375e+02 ,2.4381e+02 ,2.8960e+02 ,3.3999e+02 /) - kbo(:,43,11) = (/ & - &1.5882e+02 ,1.9068e+02 ,2.2888e+02 ,2.7297e+02 ,3.2243e+02 /) - kbo(:,44,11) = (/ & - &1.4807e+02 ,1.7774e+02 ,2.1381e+02 ,2.5595e+02 ,3.0384e+02 /) - kbo(:,45,11) = (/ & - &1.3832e+02 ,1.6584e+02 ,1.9975e+02 ,2.3997e+02 ,2.8600e+02 /) - kbo(:,46,11) = (/ & - &1.2854e+02 ,1.5423e+02 ,1.8595e+02 ,2.2400e+02 ,2.6785e+02 /) - kbo(:,47,11) = (/ & - &1.1798e+02 ,1.4267e+02 ,1.7172e+02 ,2.0717e+02 ,2.4874e+02 /) - kbo(:,48,11) = (/ & - &1.0754e+02 ,1.3197e+02 ,1.5865e+02 ,1.9157e+02 ,2.3076e+02 /) - kbo(:,49,11) = (/ & - &9.7426e+01 ,1.2165e+02 ,1.4680e+02 ,1.7709e+02 ,2.1383e+02 /) - kbo(:,50,11) = (/ & - &8.8058e+01 ,1.1199e+02 ,1.3670e+02 ,1.6456e+02 ,1.9880e+02 /) - kbo(:,51,11) = (/ & - &7.9382e+01 ,1.0270e+02 ,1.2731e+02 ,1.5331e+02 ,1.8527e+02 /) - kbo(:,52,11) = (/ & - &7.1270e+01 ,9.3720e+01 ,1.1802e+02 ,1.4309e+02 ,1.7263e+02 /) - kbo(:,53,11) = (/ & - &6.3724e+01 ,8.4883e+01 ,1.0881e+02 ,1.3358e+02 ,1.6088e+02 /) - kbo(:,54,11) = (/ & - &5.7330e+01 ,7.7159e+01 ,1.0045e+02 ,1.2510e+02 ,1.5088e+02 /) - kbo(:,55,11) = (/ & - &5.1611e+01 ,7.0208e+01 ,9.2617e+01 ,1.1701e+02 ,1.4209e+02 /) - kbo(:,56,11) = (/ & - &4.6383e+01 ,6.3679e+01 ,8.4927e+01 ,1.0898e+02 ,1.3380e+02 /) - kbo(:,57,11) = (/ & - &4.1604e+01 ,5.7613e+01 ,7.7613e+01 ,1.0100e+02 ,1.2575e+02 /) - kbo(:,58,11) = (/ & - &3.7495e+01 ,5.2208e+01 ,7.1056e+01 ,9.3655e+01 ,1.1815e+02 /) - kbo(:,59,11) = (/ & - &3.5885e+01 ,5.0106e+01 ,6.8487e+01 ,9.0651e+01 ,1.1506e+02 /) - kbo(:,13,12) = (/ & - &3.5806e+03 ,3.5582e+03 ,3.5338e+03 ,3.5034e+03 ,3.4725e+03 /) - kbo(:,14,12) = (/ & - &3.4862e+03 ,3.4597e+03 ,3.4292e+03 ,3.3949e+03 ,3.3614e+03 /) - kbo(:,15,12) = (/ & - &3.3163e+03 ,3.2855e+03 ,3.2498e+03 ,3.2159e+03 ,3.1795e+03 /) - kbo(:,16,12) = (/ & - &3.0905e+03 ,3.0565e+03 ,3.0217e+03 ,2.9883e+03 ,2.9514e+03 /) - kbo(:,17,12) = (/ & - &2.8252e+03 ,2.7909e+03 ,2.7597e+03 ,2.7275e+03 ,2.6935e+03 /) - kbo(:,18,12) = (/ & - &2.5391e+03 ,2.5095e+03 ,2.4810e+03 ,2.4508e+03 ,2.4233e+03 /) - kbo(:,19,12) = (/ & - &2.2475e+03 ,2.2231e+03 ,2.1980e+03 ,2.1744e+03 ,2.1532e+03 /) - kbo(:,20,12) = (/ & - &1.9592e+03 ,1.9385e+03 ,1.9191e+03 ,1.9031e+03 ,1.8880e+03 /) - kbo(:,21,12) = (/ & - &1.6882e+03 ,1.6730e+03 ,1.6603e+03 ,1.6503e+03 ,1.6513e+03 /) - kbo(:,22,12) = (/ & - &1.4424e+03 ,1.4327e+03 ,1.4274e+03 ,1.4386e+03 ,1.4720e+03 /) - kbo(:,23,12) = (/ & - &1.2274e+03 ,1.2245e+03 ,1.2417e+03 ,1.2835e+03 ,1.3444e+03 /) - kbo(:,24,12) = (/ & - &1.0462e+03 ,1.0639e+03 ,1.1088e+03 ,1.1752e+03 ,1.2597e+03 /) - kbo(:,25,12) = (/ & - &9.1114e+02 ,9.5200e+02 ,1.0177e+03 ,1.1057e+03 ,1.2094e+03 /) - kbo(:,26,12) = (/ & - &8.2003e+02 ,8.7985e+02 ,9.6324e+02 ,1.0645e+03 ,1.1739e+03 /) - kbo(:,27,12) = (/ & - &7.6267e+02 ,8.3792e+02 ,9.2956e+02 ,1.0323e+03 ,1.1455e+03 /) - kbo(:,28,12) = (/ & - &7.2963e+02 ,8.0994e+02 ,9.0250e+02 ,1.0075e+03 ,1.1258e+03 /) - kbo(:,29,12) = (/ & - &7.0594e+02 ,7.8863e+02 ,8.8342e+02 ,9.9282e+02 ,1.1166e+03 /) - kbo(:,30,12) = (/ & - &6.8865e+02 ,7.7319e+02 ,8.7237e+02 ,9.8744e+02 ,1.1171e+03 /) - kbo(:,31,12) = (/ & - &6.7685e+02 ,7.6521e+02 ,8.7052e+02 ,9.9144e+02 ,1.1267e+03 /) - kbo(:,32,12) = (/ & - &6.7111e+02 ,7.6562e+02 ,8.7695e+02 ,1.0037e+03 ,1.1434e+03 /) - kbo(:,33,12) = (/ & - &6.7259e+02 ,7.7346e+02 ,8.9020e+02 ,1.0220e+03 ,1.1658e+03 /) - kbo(:,34,12) = (/ & - &6.7713e+02 ,7.8296e+02 ,9.0470e+02 ,1.0405e+03 ,1.1875e+03 /) - kbo(:,35,12) = (/ & - &6.7665e+02 ,7.8599e+02 ,9.1053e+02 ,1.0483e+03 ,1.1976e+03 /) - kbo(:,36,12) = (/ & - &6.6854e+02 ,7.7898e+02 ,9.0439e+02 ,1.0428e+03 ,1.1928e+03 /) - kbo(:,37,12) = (/ & - &6.4709e+02 ,7.5625e+02 ,8.8001e+02 ,1.0171e+03 ,1.1660e+03 /) - kbo(:,38,12) = (/ & - &6.2682e+02 ,7.3409e+02 ,8.5611e+02 ,9.9182e+02 ,1.1392e+03 /) - kbo(:,39,12) = (/ & - &6.0784e+02 ,7.1328e+02 ,8.3356e+02 ,9.6784e+02 ,1.1136e+03 /) - kbo(:,40,12) = (/ & - &5.7971e+02 ,6.8247e+02 ,7.9953e+02 ,9.3053e+02 ,1.0739e+03 /) - kbo(:,41,12) = (/ & - &5.5088e+02 ,6.5173e+02 ,7.6511e+02 ,8.9294e+02 ,1.0334e+03 /) - kbo(:,42,12) = (/ & - &5.2250e+02 ,6.2258e+02 ,7.3222e+02 ,8.5651e+02 ,9.9385e+02 /) - kbo(:,43,12) = (/ & - &4.8933e+02 ,5.8876e+02 ,6.9433e+02 ,8.1420e+02 ,9.4769e+02 /) - kbo(:,44,12) = (/ & - &4.5428e+02 ,5.5295e+02 ,6.5546e+02 ,7.7054e+02 ,8.9971e+02 /) - kbo(:,45,12) = (/ & - &4.2007e+02 ,5.1771e+02 ,6.1870e+02 ,7.2869e+02 ,8.5325e+02 /) - kbo(:,46,12) = (/ & - &3.8522e+02 ,4.8086e+02 ,5.8089e+02 ,6.8626e+02 ,8.0577e+02 /) - kbo(:,47,12) = (/ & - &3.4877e+02 ,4.4033e+02 ,5.3933e+02 ,6.4157e+02 ,7.5519e+02 /) - kbo(:,48,12) = (/ & - &3.1493e+02 ,4.0108e+02 ,4.9823e+02 ,5.9910e+02 ,7.0691e+02 /) - kbo(:,49,12) = (/ & - &2.8364e+02 ,3.6388e+02 ,4.5779e+02 ,5.5756e+02 ,6.6121e+02 /) - kbo(:,50,12) = (/ & - &2.5678e+02 ,3.3121e+02 ,4.2060e+02 ,5.1905e+02 ,6.2075e+02 /) - kbo(:,51,12) = (/ & - &2.3307e+02 ,3.0175e+02 ,3.8585e+02 ,4.8220e+02 ,5.8283e+02 /) - kbo(:,52,12) = (/ & - &2.1162e+02 ,2.7441e+02 ,3.5299e+02 ,4.4577e+02 ,5.4547e+02 /) - kbo(:,53,12) = (/ & - &1.9234e+02 ,2.4923e+02 ,3.2216e+02 ,4.1019e+02 ,5.0837e+02 /) - kbo(:,54,12) = (/ & - &1.7628e+02 ,2.2813e+02 ,2.9582e+02 ,3.7887e+02 ,4.7480e+02 /) - kbo(:,55,12) = (/ & - &1.6140e+02 ,2.0966e+02 ,2.7210e+02 ,3.5029e+02 ,4.4296e+02 /) - kbo(:,56,12) = (/ & - &1.4678e+02 ,1.9288e+02 ,2.5016e+02 ,3.2346e+02 ,4.1177e+02 /) - kbo(:,57,12) = (/ & - &1.3255e+02 ,1.7758e+02 ,2.2997e+02 ,2.9828e+02 ,3.8188e+02 /) - kbo(:,58,12) = (/ & - &1.1943e+02 ,1.6353e+02 ,2.1228e+02 ,2.7566e+02 ,3.5477e+02 /) - kbo(:,59,12) = (/ & - &1.1423e+02 ,1.5792e+02 ,2.0564e+02 ,2.6702e+02 ,3.4426e+02 /) - kbo(:,13,13) = (/ & - &6.2371e+03 ,6.2518e+03 ,6.2489e+03 ,6.2389e+03 ,6.2163e+03 /) - kbo(:,14,13) = (/ & - &6.5479e+03 ,6.5460e+03 ,6.5322e+03 ,6.5131e+03 ,6.4799e+03 /) - kbo(:,15,13) = (/ & - &6.7275e+03 ,6.7134e+03 ,6.6981e+03 ,6.6679e+03 ,6.6340e+03 /) - kbo(:,16,13) = (/ & - &6.7706e+03 ,6.7549e+03 ,6.7279e+03 ,6.6968e+03 ,6.6585e+03 /) - kbo(:,17,13) = (/ & - &6.6836e+03 ,6.6601e+03 ,6.6362e+03 ,6.6043e+03 ,6.5760e+03 /) - kbo(:,18,13) = (/ & - &6.4651e+03 ,6.4504e+03 ,6.4295e+03 ,6.4100e+03 ,6.3855e+03 /) - kbo(:,19,13) = (/ & - &6.1476e+03 ,6.1374e+03 ,6.1314e+03 ,6.1247e+03 ,6.1206e+03 /) - kbo(:,20,13) = (/ & - &5.7657e+03 ,5.7701e+03 ,5.7793e+03 ,5.7885e+03 ,5.8038e+03 /) - kbo(:,21,13) = (/ & - &5.3372e+03 ,5.3657e+03 ,5.3946e+03 ,5.4291e+03 ,5.4659e+03 /) - kbo(:,22,13) = (/ & - &4.8964e+03 ,4.9428e+03 ,4.9998e+03 ,5.0621e+03 ,5.1258e+03 /) - kbo(:,23,13) = (/ & - &4.4608e+03 ,4.5344e+03 ,4.6177e+03 ,4.7044e+03 ,4.8008e+03 /) - kbo(:,24,13) = (/ & - &4.0572e+03 ,4.1535e+03 ,4.2613e+03 ,4.3798e+03 ,4.5026e+03 /) - kbo(:,25,13) = (/ & - &3.6891e+03 ,3.8125e+03 ,3.9482e+03 ,4.0905e+03 ,4.2411e+03 /) - kbo(:,26,13) = (/ & - &3.3690e+03 ,3.5206e+03 ,3.6781e+03 ,3.8529e+03 ,4.0416e+03 /) - kbo(:,27,13) = (/ & - &3.0960e+03 ,3.2709e+03 ,3.4667e+03 ,3.6805e+03 ,3.9027e+03 /) - kbo(:,28,13) = (/ & - &2.8685e+03 ,3.0838e+03 ,3.3203e+03 ,3.5644e+03 ,3.8131e+03 /) - kbo(:,29,13) = (/ & - &2.7079e+03 ,2.9620e+03 ,3.2275e+03 ,3.4951e+03 ,3.7635e+03 /) - kbo(:,30,13) = (/ & - &2.6061e+03 ,2.8858e+03 ,3.1752e+03 ,3.4611e+03 ,3.7451e+03 /) - kbo(:,31,13) = (/ & - &2.5477e+03 ,2.8507e+03 ,3.1575e+03 ,3.4577e+03 ,3.7506e+03 /) - kbo(:,32,13) = (/ & - &2.5270e+03 ,2.8474e+03 ,3.1664e+03 ,3.4757e+03 ,3.7742e+03 /) - kbo(:,33,13) = (/ & - &2.5348e+03 ,2.8669e+03 ,3.1934e+03 ,3.5095e+03 ,3.8093e+03 /) - kbo(:,34,13) = (/ & - &2.5519e+03 ,2.8931e+03 ,3.2251e+03 ,3.5432e+03 ,3.8451e+03 /) - kbo(:,35,13) = (/ & - &2.5512e+03 ,2.8985e+03 ,3.2338e+03 ,3.5558e+03 ,3.8584e+03 /) - kbo(:,36,13) = (/ & - &2.5221e+03 ,2.8745e+03 ,3.2143e+03 ,3.5395e+03 ,3.8450e+03 /) - kbo(:,37,13) = (/ & - &2.4460e+03 ,2.8025e+03 ,3.1490e+03 ,3.4791e+03 ,3.7899e+03 /) - kbo(:,38,13) = (/ & - &2.3708e+03 ,2.7313e+03 ,3.0831e+03 ,3.4179e+03 ,3.7342e+03 /) - kbo(:,39,13) = (/ & - &2.3003e+03 ,2.6642e+03 ,3.0201e+03 ,3.3586e+03 ,3.6803e+03 /) - kbo(:,40,13) = (/ & - &2.1969e+03 ,2.5616e+03 ,2.9219e+03 ,3.2671e+03 ,3.5954e+03 /) - kbo(:,41,13) = (/ & - &2.0924e+03 ,2.4560e+03 ,2.8204e+03 ,3.1716e+03 ,3.5055e+03 /) - kbo(:,42,13) = (/ & - &1.9915e+03 ,2.3511e+03 ,2.7188e+03 ,3.0759e+03 ,3.4151e+03 /) - kbo(:,43,13) = (/ & - &1.8747e+03 ,2.2279e+03 ,2.5969e+03 ,2.9589e+03 ,3.3053e+03 /) - kbo(:,44,13) = (/ & - &1.7544e+03 ,2.0986e+03 ,2.4653e+03 ,2.8326e+03 ,3.1860e+03 /) - kbo(:,45,13) = (/ & - &1.6386e+03 ,1.9731e+03 ,2.3348e+03 ,2.7048e+03 ,3.0644e+03 /) - kbo(:,46,13) = (/ & - &1.5205e+03 ,1.8444e+03 ,2.1974e+03 ,2.5688e+03 ,2.9332e+03 /) - kbo(:,47,13) = (/ & - &1.3958e+03 ,1.7058e+03 ,2.0486e+03 ,2.4160e+03 ,2.7851e+03 /) - kbo(:,48,13) = (/ & - &1.2783e+03 ,1.5734e+03 ,1.9036e+03 ,2.2627e+03 ,2.6347e+03 /) - kbo(:,49,13) = (/ & - &1.1678e+03 ,1.4470e+03 ,1.7643e+03 ,2.1130e+03 ,2.4832e+03 /) - kbo(:,50,13) = (/ & - &1.0712e+03 ,1.3344e+03 ,1.6384e+03 ,1.9762e+03 ,2.3408e+03 /) - kbo(:,51,13) = (/ & - &9.8353e+02 ,1.2311e+03 ,1.5209e+03 ,1.8472e+03 ,2.2032e+03 /) - kbo(:,52,13) = (/ & - &9.0254e+02 ,1.1339e+03 ,1.4093e+03 ,1.7232e+03 ,2.0693e+03 /) - kbo(:,53,13) = (/ & - &8.2760e+02 ,1.0429e+03 ,1.3025e+03 ,1.6032e+03 ,1.9381e+03 /) - kbo(:,54,13) = (/ & - &7.6424e+02 ,9.6451e+02 ,1.2096e+03 ,1.4971e+03 ,1.8216e+03 /) - kbo(:,55,13) = (/ & - &7.1080e+02 ,8.9446e+02 ,1.1253e+03 ,1.4000e+03 ,1.7133e+03 /) - kbo(:,56,13) = (/ & - &6.6381e+02 ,8.2901e+02 ,1.0458e+03 ,1.3069e+03 ,1.6083e+03 /) - kbo(:,57,13) = (/ & - &6.2290e+02 ,7.6867e+02 ,9.7122e+02 ,1.2178e+03 ,1.5070e+03 /) - kbo(:,58,13) = (/ & - &5.8709e+02 ,7.1760e+02 ,9.0453e+02 ,1.1378e+03 ,1.4149e+03 /) - kbo(:,59,13) = (/ & - &5.7268e+02 ,6.9849e+02 ,8.7854e+02 ,1.1067e+03 ,1.3783e+03 /) - kbo(:,13,14) = (/ & - &9.8812e+03 ,9.9499e+03 ,9.9974e+03 ,1.0022e+04 ,1.0029e+04 /) - kbo(:,14,14) = (/ & - &1.1156e+04 ,1.1216e+04 ,1.1254e+04 ,1.1270e+04 ,1.1265e+04 /) - kbo(:,15,14) = (/ & - &1.2449e+04 ,1.2496e+04 ,1.2517e+04 ,1.2519e+04 ,1.2490e+04 /) - kbo(:,16,14) = (/ & - &1.3700e+04 ,1.3729e+04 ,1.3741e+04 ,1.3718e+04 ,1.3680e+04 /) - kbo(:,17,14) = (/ & - &1.4861e+04 ,1.4895e+04 ,1.4882e+04 ,1.4853e+04 ,1.4786e+04 /) - kbo(:,18,14) = (/ & - &1.5910e+04 ,1.5917e+04 ,1.5910e+04 ,1.5867e+04 ,1.5794e+04 /) - kbo(:,19,14) = (/ & - &1.6801e+04 ,1.6817e+04 ,1.6802e+04 ,1.6758e+04 ,1.6676e+04 /) - kbo(:,20,14) = (/ & - &1.7524e+04 ,1.7556e+04 ,1.7546e+04 ,1.7509e+04 ,1.7437e+04 /) - kbo(:,21,14) = (/ & - &1.8096e+04 ,1.8141e+04 ,1.8145e+04 ,1.8122e+04 ,1.8064e+04 /) - kbo(:,22,14) = (/ & - &1.8520e+04 ,1.8595e+04 ,1.8633e+04 ,1.8624e+04 ,1.8566e+04 /) - kbo(:,23,14) = (/ & - &1.8825e+04 ,1.8946e+04 ,1.9018e+04 ,1.9030e+04 ,1.8984e+04 /) - kbo(:,24,14) = (/ & - &1.9042e+04 ,1.9220e+04 ,1.9316e+04 ,1.9349e+04 ,1.9324e+04 /) - kbo(:,25,14) = (/ & - &1.9210e+04 ,1.9418e+04 ,1.9542e+04 ,1.9606e+04 ,1.9602e+04 /) - kbo(:,26,14) = (/ & - &1.9338e+04 ,1.9577e+04 ,1.9740e+04 ,1.9821e+04 ,1.9828e+04 /) - kbo(:,27,14) = (/ & - &1.9451e+04 ,1.9723e+04 ,1.9903e+04 ,2.0002e+04 ,2.0015e+04 /) - kbo(:,28,14) = (/ & - &1.9563e+04 ,1.9853e+04 ,2.0047e+04 ,2.0156e+04 ,2.0162e+04 /) - kbo(:,29,14) = (/ & - &1.9675e+04 ,1.9975e+04 ,2.0176e+04 ,2.0280e+04 ,2.0284e+04 /) - kbo(:,30,14) = (/ & - &1.9781e+04 ,2.0092e+04 ,2.0291e+04 ,2.0384e+04 ,2.0380e+04 /) - kbo(:,31,14) = (/ & - &1.9898e+04 ,2.0205e+04 ,2.0389e+04 ,2.0467e+04 ,2.0456e+04 /) - kbo(:,32,14) = (/ & - &2.0014e+04 ,2.0306e+04 ,2.0476e+04 ,2.0543e+04 ,2.0514e+04 /) - kbo(:,33,14) = (/ & - &2.0125e+04 ,2.0400e+04 ,2.0544e+04 ,2.0600e+04 ,2.0558e+04 /) - kbo(:,34,14) = (/ & - &2.0217e+04 ,2.0476e+04 ,2.0611e+04 ,2.0645e+04 ,2.0591e+04 /) - kbo(:,35,14) = (/ & - &2.0276e+04 ,2.0526e+04 ,2.0654e+04 ,2.0682e+04 ,2.0620e+04 /) - kbo(:,36,14) = (/ & - &2.0294e+04 ,2.0553e+04 ,2.0682e+04 ,2.0712e+04 ,2.0656e+04 /) - kbo(:,37,14) = (/ & - &2.0260e+04 ,2.0540e+04 ,2.0692e+04 ,2.0741e+04 ,2.0704e+04 /) - kbo(:,38,14) = (/ & - &2.0217e+04 ,2.0522e+04 ,2.0695e+04 ,2.0763e+04 ,2.0734e+04 /) - kbo(:,39,14) = (/ & - &2.0167e+04 ,2.0500e+04 ,2.0691e+04 ,2.0777e+04 ,2.0762e+04 /) - kbo(:,40,14) = (/ & - &2.0068e+04 ,2.0438e+04 ,2.0666e+04 ,2.0778e+04 ,2.0786e+04 /) - kbo(:,41,14) = (/ & - &1.9949e+04 ,2.0361e+04 ,2.0631e+04 ,2.0768e+04 ,2.0804e+04 /) - kbo(:,42,14) = (/ & - &1.9819e+04 ,2.0274e+04 ,2.0579e+04 ,2.0750e+04 ,2.0814e+04 /) - kbo(:,43,14) = (/ & - &1.9645e+04 ,2.0149e+04 ,2.0503e+04 ,2.0721e+04 ,2.0814e+04 /) - kbo(:,44,14) = (/ & - &1.9429e+04 ,1.9994e+04 ,2.0396e+04 ,2.0663e+04 ,2.0798e+04 /) - kbo(:,45,14) = (/ & - &1.9189e+04 ,1.9824e+04 ,2.0285e+04 ,2.0595e+04 ,2.0770e+04 /) - kbo(:,46,14) = (/ & - &1.8912e+04 ,1.9621e+04 ,2.0139e+04 ,2.0501e+04 ,2.0722e+04 /) - kbo(:,47,14) = (/ & - &1.8574e+04 ,1.9355e+04 ,1.9947e+04 ,2.0373e+04 ,2.0652e+04 /) - kbo(:,48,14) = (/ & - &1.8199e+04 ,1.9060e+04 ,1.9733e+04 ,2.0223e+04 ,2.0560e+04 /) - kbo(:,49,14) = (/ & - &1.7788e+04 ,1.8737e+04 ,1.9487e+04 ,2.0042e+04 ,2.0440e+04 /) - kbo(:,50,14) = (/ & - &1.7372e+04 ,1.8402e+04 ,1.9222e+04 ,1.9853e+04 ,2.0312e+04 /) - kbo(:,51,14) = (/ & - &1.6932e+04 ,1.8048e+04 ,1.8944e+04 ,1.9653e+04 ,2.0163e+04 /) - kbo(:,52,14) = (/ & - &1.6460e+04 ,1.7668e+04 ,1.8640e+04 ,1.9416e+04 ,1.9992e+04 /) - kbo(:,53,14) = (/ & - &1.5959e+04 ,1.7252e+04 ,1.8310e+04 ,1.9147e+04 ,1.9806e+04 /) - kbo(:,54,14) = (/ & - &1.5461e+04 ,1.6846e+04 ,1.7980e+04 ,1.8888e+04 ,1.9606e+04 /) - kbo(:,55,14) = (/ & - &1.4966e+04 ,1.6424e+04 ,1.7640e+04 ,1.8623e+04 ,1.9399e+04 /) - kbo(:,56,14) = (/ & - &1.4452e+04 ,1.5984e+04 ,1.7276e+04 ,1.8327e+04 ,1.9166e+04 /) - kbo(:,57,14) = (/ & - &1.3910e+04 ,1.5518e+04 ,1.6891e+04 ,1.8015e+04 ,1.8917e+04 /) - kbo(:,58,14) = (/ & - &1.3384e+04 ,1.5053e+04 ,1.6496e+04 ,1.7699e+04 ,1.8667e+04 /) - kbo(:,59,14) = (/ & - &1.3166e+04 ,1.4859e+04 ,1.6332e+04 ,1.7567e+04 ,1.8563e+04 /) - kbo(:,13,15) = (/ & - &1.3095e+04 ,1.3203e+04 ,1.3280e+04 ,1.3335e+04 ,1.3364e+04 /) - kbo(:,14,15) = (/ & - &1.5533e+04 ,1.5637e+04 ,1.5702e+04 ,1.5732e+04 ,1.5730e+04 /) - kbo(:,15,15) = (/ & - &1.8283e+04 ,1.8379e+04 ,1.8421e+04 ,1.8416e+04 ,1.8371e+04 /) - kbo(:,16,15) = (/ & - &2.1357e+04 ,2.1409e+04 ,2.1406e+04 ,2.1356e+04 ,2.1240e+04 /) - kbo(:,17,15) = (/ & - &2.4722e+04 ,2.4699e+04 ,2.4632e+04 ,2.4482e+04 ,2.4282e+04 /) - kbo(:,18,15) = (/ & - &2.8315e+04 ,2.8214e+04 ,2.8019e+04 ,2.7755e+04 ,2.7441e+04 /) - kbo(:,19,15) = (/ & - &3.2071e+04 ,3.1837e+04 ,3.1501e+04 ,3.1092e+04 ,3.0622e+04 /) - kbo(:,20,15) = (/ & - &3.5875e+04 ,3.5466e+04 ,3.4981e+04 ,3.4394e+04 ,3.3745e+04 /) - kbo(:,21,15) = (/ & - &3.9627e+04 ,3.9030e+04 ,3.8357e+04 ,3.7580e+04 ,3.6746e+04 /) - kbo(:,22,15) = (/ & - &4.3205e+04 ,4.2400e+04 ,4.1478e+04 ,4.0494e+04 ,3.9468e+04 /) - kbo(:,23,15) = (/ & - &4.6532e+04 ,4.5460e+04 ,4.4309e+04 ,4.3126e+04 ,4.1899e+04 /) - kbo(:,24,15) = (/ & - &4.9513e+04 ,4.8176e+04 ,4.6831e+04 ,4.5435e+04 ,4.4005e+04 /) - kbo(:,25,15) = (/ & - &5.2106e+04 ,5.0560e+04 ,4.9001e+04 ,4.7400e+04 ,4.5767e+04 /) - kbo(:,26,15) = (/ & - &5.4289e+04 ,5.2537e+04 ,5.0767e+04 ,4.8979e+04 ,4.7180e+04 /) - kbo(:,27,15) = (/ & - &5.6074e+04 ,5.4129e+04 ,5.2176e+04 ,5.0219e+04 ,4.8292e+04 /) - kbo(:,28,15) = (/ & - &5.7491e+04 ,5.5358e+04 ,5.3246e+04 ,5.1171e+04 ,4.9128e+04 /) - kbo(:,29,15) = (/ & - &5.8538e+04 ,5.6261e+04 ,5.4015e+04 ,5.1836e+04 ,4.9710e+04 /) - kbo(:,30,15) = (/ & - &5.9277e+04 ,5.6882e+04 ,5.4538e+04 ,5.2280e+04 ,5.0075e+04 /) - kbo(:,31,15) = (/ & - &5.9738e+04 ,5.7244e+04 ,5.4845e+04 ,5.2509e+04 ,5.0252e+04 /) - kbo(:,32,15) = (/ & - &5.9975e+04 ,5.7405e+04 ,5.4958e+04 ,5.2573e+04 ,5.0275e+04 /) - kbo(:,33,15) = (/ & - &6.0007e+04 ,5.7410e+04 ,5.4914e+04 ,5.2499e+04 ,5.0167e+04 /) - kbo(:,34,15) = (/ & - &5.9998e+04 ,5.7359e+04 ,5.4840e+04 ,5.2398e+04 ,5.0041e+04 /) - kbo(:,35,15) = (/ & - &6.0132e+04 ,5.7462e+04 ,5.4907e+04 ,5.2438e+04 ,5.0062e+04 /) - kbo(:,36,15) = (/ & - &6.0467e+04 ,5.7764e+04 ,5.5174e+04 ,5.2679e+04 ,5.0279e+04 /) - kbo(:,37,15) = (/ & - &6.1171e+04 ,5.8407e+04 ,5.5781e+04 ,5.3245e+04 ,5.0803e+04 /) - kbo(:,38,15) = (/ & - &6.1845e+04 ,5.9045e+04 ,5.6369e+04 ,5.3796e+04 ,5.1321e+04 /) - kbo(:,39,15) = (/ & - &6.2474e+04 ,5.9622e+04 ,5.6925e+04 ,5.4319e+04 ,5.1811e+04 /) - kbo(:,40,15) = (/ & - &6.3380e+04 ,6.0485e+04 ,5.7724e+04 ,5.5082e+04 ,5.2540e+04 /) - kbo(:,41,15) = (/ & - &6.4308e+04 ,6.1360e+04 ,5.8546e+04 ,5.5868e+04 ,5.3286e+04 /) - kbo(:,42,15) = (/ & - &6.5214e+04 ,6.2221e+04 ,5.9366e+04 ,5.6643e+04 ,5.4029e+04 /) - kbo(:,43,15) = (/ & - &6.6280e+04 ,6.3259e+04 ,6.0335e+04 ,5.7567e+04 ,5.4915e+04 /) - kbo(:,44,15) = (/ & - &6.7443e+04 ,6.4360e+04 ,6.1383e+04 ,5.8557e+04 ,5.5857e+04 /) - kbo(:,45,15) = (/ & - &6.8616e+04 ,6.5461e+04 ,6.2445e+04 ,5.9557e+04 ,5.6818e+04 /) - kbo(:,46,15) = (/ & - &6.9855e+04 ,6.6628e+04 ,6.3578e+04 ,6.0631e+04 ,5.7835e+04 /) - kbo(:,47,15) = (/ & - &7.1240e+04 ,6.7969e+04 ,6.4839e+04 ,6.1843e+04 ,5.8987e+04 /) - kbo(:,48,15) = (/ & - &7.2637e+04 ,6.9326e+04 ,6.6121e+04 ,6.3073e+04 ,6.0145e+04 /) - kbo(:,49,15) = (/ & - &7.4017e+04 ,7.0688e+04 ,6.7429e+04 ,6.4324e+04 ,6.1340e+04 /) - kbo(:,50,15) = (/ & - &7.5349e+04 ,7.1972e+04 ,6.8674e+04 ,6.5502e+04 ,6.2467e+04 /) - kbo(:,51,15) = (/ & - &7.6637e+04 ,7.3219e+04 ,6.9913e+04 ,6.6663e+04 ,6.3587e+04 /) - kbo(:,52,15) = (/ & - &7.7955e+04 ,7.4483e+04 ,7.1122e+04 ,6.7846e+04 ,6.4721e+04 /) - kbo(:,53,15) = (/ & - &7.9280e+04 ,7.5753e+04 ,7.2364e+04 ,6.9053e+04 ,6.5858e+04 /) - kbo(:,54,15) = (/ & - &8.0495e+04 ,7.6933e+04 ,7.3504e+04 ,7.0171e+04 ,6.6914e+04 /) - kbo(:,55,15) = (/ & - &8.1662e+04 ,7.8089e+04 ,7.4612e+04 ,7.1233e+04 ,6.7959e+04 /) - kbo(:,56,15) = (/ & - &8.2843e+04 ,7.9230e+04 ,7.5715e+04 ,7.2316e+04 ,6.9008e+04 /) - kbo(:,57,15) = (/ & - &8.4005e+04 ,8.0398e+04 ,7.6842e+04 ,7.3404e+04 ,7.0077e+04 /) - kbo(:,58,15) = (/ & - &8.5078e+04 ,8.1502e+04 ,7.7919e+04 ,7.4439e+04 ,7.1083e+04 /) - kbo(:,59,15) = (/ & - &8.5505e+04 ,8.1958e+04 ,7.8361e+04 ,7.4870e+04 ,7.1482e+04 /) - kbo(:,13,16) = (/ & - &1.4816e+04 ,1.4930e+04 ,1.5014e+04 ,1.5052e+04 ,1.5044e+04 /) - kbo(:,14,16) = (/ & - &1.7836e+04 ,1.7951e+04 ,1.8019e+04 ,1.8017e+04 ,1.7984e+04 /) - kbo(:,15,16) = (/ & - &2.1381e+04 ,2.1462e+04 ,2.1481e+04 ,2.1430e+04 ,2.1342e+04 /) - kbo(:,16,16) = (/ & - &2.5477e+04 ,2.5475e+04 ,2.5403e+04 ,2.5275e+04 ,2.5089e+04 /) - kbo(:,17,16) = (/ & - &3.0124e+04 ,3.0002e+04 ,2.9773e+04 ,2.9519e+04 ,2.9186e+04 /) - kbo(:,18,16) = (/ & - &3.5286e+04 ,3.4965e+04 ,3.4530e+04 ,3.4092e+04 ,3.3540e+04 /) - kbo(:,19,16) = (/ & - &4.0852e+04 ,4.0241e+04 ,3.9575e+04 ,3.8871e+04 ,3.8057e+04 /) - kbo(:,20,16) = (/ & - &4.6699e+04 ,4.5739e+04 ,4.4741e+04 ,4.3700e+04 ,4.2576e+04 /) - kbo(:,21,16) = (/ & - &5.2654e+04 ,5.1275e+04 ,4.9864e+04 ,4.8428e+04 ,4.6961e+04 /) - kbo(:,22,16) = (/ & - &5.8403e+04 ,5.6551e+04 ,5.4684e+04 ,5.2822e+04 ,5.0976e+04 /) - kbo(:,23,16) = (/ & - &6.3816e+04 ,6.1463e+04 ,5.9121e+04 ,5.6821e+04 ,5.4590e+04 /) - kbo(:,24,16) = (/ & - &6.8713e+04 ,6.5863e+04 ,6.3058e+04 ,6.0345e+04 ,5.7751e+04 /) - kbo(:,25,16) = (/ & - &7.2989e+04 ,6.9656e+04 ,6.6424e+04 ,6.3329e+04 ,6.0404e+04 /) - kbo(:,26,16) = (/ & - &7.6570e+04 ,7.2775e+04 ,6.9149e+04 ,6.5716e+04 ,6.2522e+04 /) - kbo(:,27,16) = (/ & - &7.9459e+04 ,7.5274e+04 ,7.1313e+04 ,6.7589e+04 ,6.4169e+04 /) - kbo(:,28,16) = (/ & - &8.1683e+04 ,7.7174e+04 ,7.2947e+04 ,6.8995e+04 ,6.5376e+04 /) - kbo(:,29,16) = (/ & - &8.3285e+04 ,7.8510e+04 ,7.4071e+04 ,6.9957e+04 ,6.6188e+04 /) - kbo(:,30,16) = (/ & - &8.4346e+04 ,7.9371e+04 ,7.4777e+04 ,7.0557e+04 ,6.6673e+04 /) - kbo(:,31,16) = (/ & - &8.4928e+04 ,7.9835e+04 ,7.5096e+04 ,7.0806e+04 ,6.6861e+04 /) - kbo(:,32,16) = (/ & - &8.5101e+04 ,7.9916e+04 ,7.5117e+04 ,7.0792e+04 ,6.6791e+04 /) - kbo(:,33,16) = (/ & - &8.4949e+04 ,7.9717e+04 ,7.4898e+04 ,7.0557e+04 ,6.6529e+04 /) - kbo(:,34,16) = (/ & - &8.4743e+04 ,7.9470e+04 ,7.4656e+04 ,7.0309e+04 ,6.6256e+04 /) - kbo(:,35,16) = (/ & - &8.4858e+04 ,7.9542e+04 ,7.4709e+04 ,7.0325e+04 ,6.6240e+04 /) - kbo(:,36,16) = (/ & - &8.5440e+04 ,8.0039e+04 ,7.5130e+04 ,7.0697e+04 ,6.6564e+04 /) - kbo(:,37,16) = (/ & - &8.6760e+04 ,8.1217e+04 ,7.6179e+04 ,7.1644e+04 ,6.7431e+04 /) - kbo(:,38,16) = (/ & - &8.8049e+04 ,8.2388e+04 ,7.7214e+04 ,7.2579e+04 ,6.8294e+04 /) - kbo(:,39,16) = (/ & - &8.9280e+04 ,8.3525e+04 ,7.8218e+04 ,7.3474e+04 ,6.9111e+04 /) - kbo(:,40,16) = (/ & - &9.1121e+04 ,8.5172e+04 ,7.9710e+04 ,7.4807e+04 ,7.0344e+04 /) - kbo(:,41,16) = (/ & - &9.3033e+04 ,8.6893e+04 ,8.1281e+04 ,7.6203e+04 ,7.1626e+04 /) - kbo(:,42,16) = (/ & - &9.4965e+04 ,8.8622e+04 ,8.0415e+04 ,7.7606e+04 ,7.2910e+04 /) - kbo(:,43,16) = (/ & - &9.7303e+04 ,9.0720e+04 ,8.4775e+04 ,7.9330e+04 ,7.4454e+04 /) - kbo(:,44,16) = (/ & - &9.9859e+04 ,9.3029e+04 ,8.6867e+04 ,8.1230e+04 ,7.6153e+04 /) - kbo(:,45,16) = (/ & - &1.0249e+05 ,9.5410e+04 ,8.8999e+04 ,8.3177e+04 ,7.7890e+04 /) - kbo(:,46,16) = (/ & - &1.0536e+05 ,9.7993e+04 ,9.1330e+04 ,8.5316e+04 ,7.9796e+04 /) - kbo(:,47,16) = (/ & - &1.0871e+05 ,1.0095e+05 ,9.4014e+04 ,8.7743e+04 ,8.2024e+04 /) - kbo(:,48,16) = (/ & - &1.1228e+05 ,1.0405e+05 ,9.6823e+04 ,9.0264e+04 ,8.4322e+04 /) - kbo(:,49,16) = (/ & - &1.1602e+05 ,1.0727e+05 ,9.9709e+04 ,9.2873e+04 ,8.6711e+04 /) - kbo(:,50,16) = (/ & - &1.1975e+05 ,1.1051e+05 ,1.0253e+05 ,9.5425e+04 ,8.8999e+04 /) - kbo(:,51,16) = (/ & - &1.2354e+05 ,1.1380e+05 ,1.0536e+05 ,9.7987e+04 ,9.1299e+04 /) - kbo(:,52,16) = (/ & - &1.2745e+05 ,1.1723e+05 ,1.0833e+05 ,1.0062e+05 ,9.3694e+04 /) - kbo(:,53,16) = (/ & - &1.3160e+05 ,1.2088e+05 ,1.1148e+05 ,1.0337e+05 ,9.6183e+04 /) - kbo(:,54,16) = (/ & - &1.3555e+05 ,1.2436e+05 ,1.1452e+05 ,1.0598e+05 ,9.8537e+04 /) - kbo(:,55,16) = (/ & - &1.3946e+05 ,1.2781e+05 ,1.1754e+05 ,1.0859e+05 ,1.0085e+05 /) - kbo(:,56,16) = (/ & - &1.4362e+05 ,1.3143e+05 ,1.2072e+05 ,1.1136e+05 ,1.0326e+05 /) - kbo(:,57,16) = (/ & - &1.4797e+05 ,1.3519e+05 ,1.2403e+05 ,1.1423e+05 ,1.0573e+05 /) - kbo(:,58,16) = (/ & - &1.5241e+05 ,1.3886e+05 ,1.2729e+05 ,1.1707e+05 ,1.0818e+05 /) - kbo(:,59,16) = (/ & - &1.5431e+05 ,1.4041e+05 ,1.2862e+05 ,1.1825e+05 ,1.0919e+05 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &2.7075e-06 ,2.2609e-06 ,1.5633e-06 ,8.7484e-07 ,5.5470e-07 ,4.8456e-07 , & - &4.7463e-07 ,4.6154e-07 ,4.4425e-07 ,4.2960e-07 ,4.2626e-07 ,4.1715e-07 , & - &4.2607e-07 ,3.6616e-07 ,2.6366e-07 ,2.6029e-07 /) - forrefo(2,:) = (/ & - &2.6759e-06 ,2.2237e-06 ,1.4466e-06 ,9.3032e-07 ,6.4927e-07 ,5.4809e-07 , & - &4.9504e-07 ,4.6305e-07 ,4.4873e-07 ,4.2146e-07 ,4.2176e-07 ,4.2812e-07 , & - &4.0529e-07 ,4.0969e-07 ,2.9442e-07 ,2.6821e-07 /) - forrefo(3,:) = (/ & - &2.6608e-06 ,2.1140e-06 ,1.4838e-06 ,9.2083e-07 ,6.3350e-07 ,5.7195e-07 , & - &6.2253e-07 ,5.1783e-07 ,4.4749e-07 ,4.3261e-07 ,4.2553e-07 ,4.2175e-07 , & - &4.1085e-07 ,4.0358e-07 ,3.5340e-07 ,2.7191e-07 /) - forrefo(4,:) = (/ & - &2.6412e-06 ,1.9814e-06 ,1.2672e-06 ,8.1129e-07 ,7.1447e-07 ,7.5026e-07 , & - &7.4386e-07 ,7.2759e-07 ,7.3583e-07 ,7.6493e-07 ,8.8959e-07 ,7.5534e-07 , & - &5.3734e-07 ,4.5572e-07 ,4.1676e-07 ,3.6198e-07 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 4.67262e-03 , 3.95211e-03 , 3.34270e-03 , 2.82726e-03 , 2.39130e-03 , & - & 2.02256e-03 , 1.71069e-03 , 1.44690e-03 , 1.22379e-03 , 1.03508e-03 /) - selfrefo(:, 2) = (/ & - & 4.42593e-03 , 3.73338e-03 , 3.14920e-03 , 2.65643e-03 , 2.24076e-03 , & - & 1.89014e-03 , 1.59438e-03 , 1.34490e-03 , 1.13446e-03 , 9.56943e-04 /) - selfrefo(:, 3) = (/ & - & 3.96072e-03 , 3.33789e-03 , 2.81300e-03 , 2.37065e-03 , 1.99786e-03 , & - & 1.68369e-03 , 1.41893e-03 , 1.19580e-03 , 1.00776e-03 , 8.49286e-04 /) - selfrefo(:, 4) = (/ & - & 3.71833e-03 , 3.10030e-03 , 2.58500e-03 , 2.15535e-03 , 1.79711e-03 , & - & 1.49841e-03 , 1.24936e-03 , 1.04170e-03 , 8.68558e-04 , 7.24195e-04 /) - selfrefo(:, 5) = (/ & - & 3.55755e-03 , 2.95355e-03 , 2.45210e-03 , 2.03578e-03 , 1.69015e-03 , & - & 1.40320e-03 , 1.16497e-03 , 9.67180e-04 , 8.02973e-04 , 6.66646e-04 /) - selfrefo(:, 6) = (/ & - & 3.47601e-03 , 2.88628e-03 , 2.39660e-03 , 1.99000e-03 , 1.65238e-03 , & - & 1.37204e-03 , 1.13927e-03 , 9.45980e-04 , 7.85487e-04 , 6.52224e-04 /) - selfrefo(:, 7) = (/ & - & 3.44479e-03 , 2.86224e-03 , 2.37820e-03 , 1.97602e-03 , 1.64185e-03 , & - & 1.36420e-03 , 1.13350e-03 , 9.41810e-04 , 7.82539e-04 , 6.50204e-04 /) - selfrefo(:, 8) = (/ & - & 3.40154e-03 , 2.82953e-03 , 2.35370e-03 , 1.95789e-03 , 1.62864e-03 , & - & 1.35476e-03 , 1.12694e-03 , 9.37430e-04 , 7.79788e-04 , 6.48655e-04 /) - selfrefo(:, 9) = (/ & - & 3.39380e-03 , 2.82288e-03 , 2.34800e-03 , 1.95301e-03 , 1.62446e-03 , & - & 1.35119e-03 , 1.12389e-03 , 9.34820e-04 , 7.77560e-04 , 6.46755e-04 /) - selfrefo(:,10) = (/ & - & 3.37185e-03 , 2.80654e-03 , 2.33600e-03 , 1.94435e-03 , 1.61837e-03 , & - & 1.34704e-03 , 1.12120e-03 , 9.33220e-04 , 7.76759e-04 , 6.46530e-04 /) - selfrefo(:,11) = (/ & - & 3.37924e-03 , 2.81172e-03 , 2.33950e-03 , 1.94659e-03 , 1.61967e-03 , & - & 1.34765e-03 , 1.12132e-03 , 9.33000e-04 , 7.76306e-04 , 6.45930e-04 /) - selfrefo(:,12) = (/ & - & 3.39658e-03 , 2.82289e-03 , 2.34610e-03 , 1.94984e-03 , 1.62051e-03 , & - & 1.34680e-03 , 1.11933e-03 , 9.30270e-04 , 7.73146e-04 , 6.42561e-04 /) - selfrefo(:,13) = (/ & - & 3.36070e-03 , 2.79913e-03 , 2.33140e-03 , 1.94183e-03 , 1.61735e-03 , & - & 1.34709e-03 , 1.12199e-03 , 9.34510e-04 , 7.78354e-04 , 6.48292e-04 /) - selfrefo(:,14) = (/ & - & 3.40428e-03 , 2.81994e-03 , 2.33590e-03 , 1.93495e-03 , 1.60282e-03 , & - & 1.32770e-03 , 1.09980e-03 , 9.11020e-04 , 7.54645e-04 , 6.25111e-04 /) - selfrefo(:,15) = (/ & - & 3.27075e-03 , 2.70783e-03 , 2.24180e-03 , 1.85597e-03 , 1.53655e-03 , & - & 1.27210e-03 , 1.05317e-03 , 8.71910e-04 , 7.21849e-04 , 5.97615e-04 /) - selfrefo(:,16) = (/ & - & 3.23123e-03 , 2.67891e-03 , 2.22100e-03 , 1.84136e-03 , 1.52661e-03 , & - & 1.26567e-03 , 1.04932e-03 , 8.69960e-04 , 7.21256e-04 , 5.97970e-04 /) - - end subroutine lw_kgb14 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_15.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_15.F90 deleted file mode 100644 index 84336467b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_15.F90 +++ /dev/null @@ -1,4030 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb15 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg15, only : fracrefao, kao, kao_mn2, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level : P = 1053. mb, T = 294.2 K - fracrefao(:, 1) = (/ & - & 1.0689e-01 ,1.1563e-01 ,1.2447e-01 ,1.2921e-01 ,1.2840e-01 ,1.2113e-01 , & - & 1.0643e-01 ,8.4987e-02 ,6.0142e-02 ,6.6798e-03 ,5.5293e-03 ,4.3700e-03 , & - & 3.2061e-03 ,2.0476e-03 ,7.7366e-04 ,1.0897e-04 /) - fracrefao(:, 2) = (/ & - & 1.0782e-01 ,1.1637e-01 ,1.2290e-01 ,1.2911e-01 ,1.2841e-01 ,1.2113e-01 , & - & 1.0643e-01 ,8.4987e-02 ,6.0142e-02 ,6.6798e-03 ,5.5293e-03 ,4.3700e-03 , & - & 3.2061e-03 ,2.0476e-03 ,7.7366e-04 ,1.0897e-04 /) - fracrefao(:, 3) = (/ & - & 1.0858e-01 ,1.1860e-01 ,1.2237e-01 ,1.2665e-01 ,1.2841e-01 ,1.2111e-01 , & - & 1.0642e-01 ,8.4987e-02 ,6.0142e-02 ,6.6798e-03 ,5.5293e-03 ,4.3700e-03 , & - & 3.2061e-03 ,2.0476e-03 ,7.7366e-04 ,1.0897e-04 /) - fracrefao(:, 4) = (/ & - & 1.1022e-01 ,1.1965e-01 ,1.2334e-01 ,1.2383e-01 ,1.2761e-01 ,1.2109e-01 , & - & 1.0642e-01 ,8.4987e-02 ,6.0142e-02 ,6.6798e-03 ,5.5293e-03 ,4.3700e-03 , & - & 3.2061e-03 ,2.0476e-03 ,7.7366e-04 ,1.0897e-04 /) - fracrefao(:, 5) = (/ & - & 1.1342e-01 ,1.2069e-01 ,1.2360e-01 ,1.2447e-01 ,1.2340e-01 ,1.2020e-01 , & - & 1.0639e-01 ,8.4987e-02 ,6.0142e-02 ,6.6798e-03 ,5.5293e-03 ,4.3700e-03 , & - & 3.2061e-03 ,2.0476e-03 ,7.7366e-04 ,1.0897e-04 /) - fracrefao(:, 6) = (/ & - & 1.1771e-01 ,1.2280e-01 ,1.2177e-01 ,1.2672e-01 ,1.2398e-01 ,1.1787e-01 , & - & 1.0131e-01 ,8.4987e-02 ,6.0142e-02 ,6.6798e-03 ,5.5293e-03 ,4.3700e-03 , & - & 3.2061e-03 ,2.0476e-03 ,7.7366e-04 ,1.0897e-04 /) - fracrefao(:, 7) = (/ & - & 1.2320e-01 ,1.2491e-01 ,1.2001e-01 ,1.2936e-01 ,1.2653e-01 ,1.1929e-01 , & - & 9.8955e-02 ,7.4887e-02 ,6.0142e-02 ,6.6798e-03 ,5.5293e-03 ,4.3700e-03 , & - & 3.2061e-03 ,2.0476e-03 ,7.7366e-04 ,1.0897e-04 /) - fracrefao(:, 8) = (/ & - & 1.3105e-01 ,1.2563e-01 ,1.3055e-01 ,1.2854e-01 ,1.3402e-01 ,1.1571e-01 , & - & 9.4876e-02 ,6.0459e-02 ,5.6457e-02 ,6.6798e-03 ,5.5293e-03 ,4.3700e-03 , & - & 3.2061e-03 ,2.0476e-03 ,7.7366e-04 ,1.0897e-04 /) - fracrefao(:, 9) = (/ & - & 1.1375e-01 ,1.2090e-01 ,1.2348e-01 ,1.2458e-01 ,1.2406e-01 ,1.1921e-01 , & - & 1.0802e-01 ,8.6613e-02 ,5.8125e-02 ,6.2984e-03 ,5.2359e-03 ,4.0641e-03 , & - & 2.9379e-03 ,1.9001e-03 ,7.2646e-04 ,1.0553e-04 /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kao(:, 1, 1, 1) = (/ & - &3.4242e-02 ,1.7071e-01 ,2.6138e-01 ,3.1721e-01 ,3.2432e-01 ,2.6831e-01 , & - &2.0528e-01 ,1.1088e-01 ,5.8968e-01 /) - kao(:, 2, 1, 1) = (/ & - &3.3652e-02 ,1.6779e-01 ,2.5725e-01 ,3.0829e-01 ,3.1520e-01 ,2.6815e-01 , & - &2.0103e-01 ,1.1213e-01 ,5.6496e-01 /) - kao(:, 3, 1, 1) = (/ & - &3.2936e-02 ,1.6580e-01 ,2.5340e-01 ,3.0468e-01 ,3.0583e-01 ,2.6658e-01 , & - &1.9781e-01 ,1.1388e-01 ,5.5053e-01 /) - kao(:, 4, 1, 1) = (/ & - &3.2004e-02 ,1.6475e-01 ,2.5029e-01 ,3.0171e-01 ,3.0308e-01 ,2.6842e-01 , & - &1.9857e-01 ,1.1861e-01 ,5.4961e-01 /) - kao(:, 5, 1, 1) = (/ & - &3.0990e-02 ,1.6410e-01 ,2.4670e-01 ,2.9476e-01 ,3.0044e-01 ,2.7387e-01 , & - &1.9493e-01 ,1.2451e-01 ,5.3996e-01 /) - kao(:, 1, 2, 1) = (/ & - &3.0564e-02 ,1.4940e-01 ,2.2694e-01 ,2.6721e-01 ,2.6456e-01 ,2.1891e-01 , & - &1.6459e-01 ,9.1113e-02 ,4.6587e-01 /) - kao(:, 2, 2, 1) = (/ & - &2.9826e-02 ,1.4880e-01 ,2.2345e-01 ,2.6474e-01 ,2.5889e-01 ,2.2136e-01 , & - &1.6243e-01 ,9.1934e-02 ,4.6056e-01 /) - kao(:, 3, 2, 1) = (/ & - &2.9292e-02 ,1.4800e-01 ,2.2058e-01 ,2.6235e-01 ,2.5684e-01 ,2.2295e-01 , & - &1.6276e-01 ,9.5842e-02 ,4.5687e-01 /) - kao(:, 4, 2, 1) = (/ & - &2.8631e-02 ,1.4795e-01 ,2.1809e-01 ,2.5690e-01 ,2.5387e-01 ,2.2588e-01 , & - &1.6201e-01 ,9.9403e-02 ,4.5029e-01 /) - kao(:, 5, 2, 1) = (/ & - &2.7916e-02 ,1.4649e-01 ,2.1539e-01 ,2.5025e-01 ,2.5060e-01 ,2.2852e-01 , & - &1.6118e-01 ,1.0330e-01 ,4.4510e-01 /) - kao(:, 1, 3, 1) = (/ & - &2.7060e-02 ,1.3249e-01 ,1.9563e-01 ,2.2645e-01 ,2.1616e-01 ,1.7969e-01 , & - &1.3284e-01 ,7.4965e-02 ,3.7244e-01 /) - kao(:, 2, 3, 1) = (/ & - &2.6723e-02 ,1.3208e-01 ,1.9386e-01 ,2.2490e-01 ,2.1534e-01 ,1.8332e-01 , & - &1.3372e-01 ,7.6721e-02 ,3.7364e-01 /) - kao(:, 3, 3, 1) = (/ & - &2.6384e-02 ,1.3168e-01 ,1.9203e-01 ,2.2240e-01 ,2.1507e-01 ,1.8752e-01 , & - &1.3386e-01 ,7.9482e-02 ,3.7891e-01 /) - kao(:, 4, 3, 1) = (/ & - &2.5689e-02 ,1.3020e-01 ,1.8980e-01 ,2.1868e-01 ,2.1152e-01 ,1.8912e-01 , & - &1.3349e-01 ,8.2411e-02 ,3.7480e-01 /) - kao(:, 5, 3, 1) = (/ & - &2.4939e-02 ,1.2901e-01 ,1.8570e-01 ,2.1295e-01 ,2.0942e-01 ,1.8777e-01 , & - &1.3349e-01 ,8.5566e-02 ,3.6973e-01 /) - kao(:, 1, 4, 1) = (/ & - &2.4242e-02 ,1.1699e-01 ,1.6835e-01 ,1.9257e-01 ,1.7909e-01 ,1.4906e-01 , & - &1.0978e-01 ,6.3298e-02 ,3.0317e-01 /) - kao(:, 2, 4, 1) = (/ & - &2.3651e-02 ,1.1679e-01 ,1.6721e-01 ,1.9147e-01 ,1.7987e-01 ,1.5405e-01 , & - &1.1069e-01 ,6.4435e-02 ,3.0873e-01 /) - kao(:, 3, 4, 1) = (/ & - &2.2665e-02 ,1.1583e-01 ,1.6543e-01 ,1.8831e-01 ,1.8066e-01 ,1.5730e-01 , & - &1.1107e-01 ,6.6643e-02 ,3.1154e-01 /) - kao(:, 4, 4, 1) = (/ & - &2.1814e-02 ,1.1462e-01 ,1.6249e-01 ,1.8491e-01 ,1.7772e-01 ,1.5750e-01 , & - &1.1124e-01 ,6.9078e-02 ,3.1214e-01 /) - kao(:, 5, 4, 1) = (/ & - &2.1129e-02 ,1.1306e-01 ,1.5907e-01 ,1.7919e-01 ,1.7465e-01 ,1.5650e-01 , & - &1.1133e-01 ,7.1551e-02 ,3.0812e-01 /) - kao(:, 1, 5, 1) = (/ & - &2.0560e-02 ,1.0249e-01 ,1.4447e-01 ,1.6390e-01 ,1.4827e-01 ,1.2487e-01 , & - &9.0642e-02 ,5.3488e-02 ,2.4754e-01 /) - kao(:, 2, 5, 1) = (/ & - &1.9799e-02 ,1.0201e-01 ,1.4357e-01 ,1.6295e-01 ,1.5070e-01 ,1.2910e-01 , & - &9.1763e-02 ,5.4394e-02 ,2.5641e-01 /) - kao(:, 3, 5, 1) = (/ & - &1.9183e-02 ,1.0090e-01 ,1.4151e-01 ,1.5954e-01 ,1.5069e-01 ,1.3095e-01 , & - &9.2718e-02 ,5.6321e-02 ,2.5912e-01 /) - kao(:, 4, 5, 1) = (/ & - &1.8512e-02 ,9.9552e-02 ,1.3834e-01 ,1.5497e-01 ,1.4881e-01 ,1.3077e-01 , & - &9.3091e-02 ,5.8675e-02 ,2.5974e-01 /) - kao(:, 5, 5, 1) = (/ & - &1.7786e-02 ,9.7242e-02 ,1.3532e-01 ,1.5076e-01 ,1.4713e-01 ,1.3062e-01 , & - &9.3284e-02 ,6.0479e-02 ,2.5760e-01 /) - kao(:, 1, 6, 1) = (/ & - &1.7311e-02 ,8.8922e-02 ,1.2346e-01 ,1.3907e-01 ,1.2282e-01 ,1.0362e-01 , & - &7.4353e-02 ,4.4575e-02 ,2.0465e-01 /) - kao(:, 2, 6, 1) = (/ & - &1.6759e-02 ,8.7881e-02 ,1.2272e-01 ,1.3747e-01 ,1.2636e-01 ,1.0747e-01 , & - &7.5966e-02 ,4.6065e-02 ,2.1117e-01 /) - kao(:, 3, 6, 1) = (/ & - &1.6118e-02 ,8.6674e-02 ,1.1960e-01 ,1.3378e-01 ,1.2578e-01 ,1.0890e-01 , & - &7.7032e-02 ,4.7370e-02 ,2.1535e-01 /) - kao(:, 4, 6, 1) = (/ & - &1.5604e-02 ,8.5004e-02 ,1.1715e-01 ,1.3060e-01 ,1.2464e-01 ,1.0936e-01 , & - &7.8068e-02 ,4.9979e-02 ,2.1513e-01 /) - kao(:, 5, 6, 1) = (/ & - &1.5010e-02 ,8.2612e-02 ,1.1457e-01 ,1.2694e-01 ,1.2379e-01 ,1.0886e-01 , & - &7.8577e-02 ,5.1634e-02 ,2.1475e-01 /) - kao(:, 1, 7, 1) = (/ & - &1.4769e-02 ,7.6038e-02 ,1.0565e-01 ,1.1761e-01 ,1.0346e-01 ,8.6214e-02 , & - &6.1132e-02 ,3.6999e-02 ,1.7055e-01 /) - kao(:, 2, 7, 1) = (/ & - &1.4212e-02 ,7.5191e-02 ,1.0412e-01 ,1.1565e-01 ,1.0591e-01 ,8.9750e-02 , & - &6.2857e-02 ,3.8703e-02 ,1.7619e-01 /) - kao(:, 3, 7, 1) = (/ & - &1.3756e-02 ,7.4145e-02 ,1.0177e-01 ,1.1260e-01 ,1.0586e-01 ,9.1675e-02 , & - &6.4846e-02 ,4.0069e-02 ,1.8020e-01 /) - kao(:, 4, 7, 1) = (/ & - &1.3258e-02 ,7.2484e-02 ,9.9439e-02 ,1.0966e-01 ,1.0522e-01 ,9.2290e-02 , & - &6.5394e-02 ,4.2345e-02 ,1.8038e-01 /) - kao(:, 5, 7, 1) = (/ & - &1.2766e-02 ,7.0689e-02 ,9.6896e-02 ,1.0710e-01 ,1.0411e-01 ,9.1721e-02 , & - &6.6375e-02 ,4.4166e-02 ,1.8031e-01 /) - kao(:, 1, 8, 1) = (/ & - &1.2774e-02 ,6.5331e-02 ,9.0505e-02 ,1.0027e-01 ,8.8579e-02 ,7.2873e-02 , & - &5.1439e-02 ,3.0866e-02 ,1.4484e-01 /) - kao(:, 2, 8, 1) = (/ & - &1.2386e-02 ,6.4820e-02 ,8.9216e-02 ,9.8573e-02 ,9.0271e-02 ,7.6134e-02 , & - &5.3003e-02 ,3.2488e-02 ,1.4948e-01 /) - kao(:, 3, 8, 1) = (/ & - &1.1934e-02 ,6.3787e-02 ,8.6950e-02 ,9.5946e-02 ,9.0138e-02 ,7.8085e-02 , & - &5.5347e-02 ,3.4134e-02 ,1.5219e-01 /) - kao(:, 4, 8, 1) = (/ & - &1.1544e-02 ,6.2588e-02 ,8.5063e-02 ,9.3318e-02 ,8.9759e-02 ,7.8769e-02 , & - &5.5958e-02 ,3.6086e-02 ,1.5324e-01 /) - kao(:, 5, 8, 1) = (/ & - &1.1084e-02 ,6.0720e-02 ,8.2631e-02 ,9.1723e-02 ,8.9027e-02 ,7.8819e-02 , & - &5.6823e-02 ,3.7768e-02 ,1.5367e-01 /) - kao(:, 1, 9, 1) = (/ & - &1.1061e-02 ,5.5946e-02 ,7.7372e-02 ,8.4825e-02 ,7.4671e-02 ,6.0881e-02 , & - &4.3320e-02 ,2.5693e-02 ,1.2149e-01 /) - kao(:, 2, 9, 1) = (/ & - &1.0663e-02 ,5.5517e-02 ,7.6169e-02 ,8.3555e-02 ,7.6380e-02 ,6.3832e-02 , & - &4.4653e-02 ,2.7044e-02 ,1.2592e-01 /) - kao(:, 3, 9, 1) = (/ & - &1.0298e-02 ,5.4609e-02 ,7.4061e-02 ,8.1380e-02 ,7.6283e-02 ,6.5805e-02 , & - &4.6544e-02 ,2.8652e-02 ,1.2784e-01 /) - kao(:, 4, 9, 1) = (/ & - &9.9642e-03 ,5.3590e-02 ,7.2457e-02 ,7.9291e-02 ,7.6297e-02 ,6.6701e-02 , & - &4.7215e-02 ,3.0429e-02 ,1.2985e-01 /) - kao(:, 5, 9, 1) = (/ & - &9.5838e-03 ,5.1774e-02 ,7.0525e-02 ,7.7952e-02 ,7.5761e-02 ,6.7035e-02 , & - &4.8099e-02 ,3.1771e-02 ,1.2981e-01 /) - kao(:, 1,10, 1) = (/ & - &9.5065e-03 ,4.7743e-02 ,6.5906e-02 ,7.1569e-02 ,6.3088e-02 ,5.1008e-02 , & - &3.6270e-02 ,2.1647e-02 ,1.0151e-01 /) - kao(:, 2,10, 1) = (/ & - &9.1696e-03 ,4.7417e-02 ,6.4599e-02 ,7.0371e-02 ,6.4348e-02 ,5.3431e-02 , & - &3.7744e-02 ,2.2620e-02 ,1.0603e-01 /) - kao(:, 3,10, 1) = (/ & - &8.8668e-03 ,4.6740e-02 ,6.2818e-02 ,6.8749e-02 ,6.4307e-02 ,5.5442e-02 , & - &3.9323e-02 ,2.3889e-02 ,1.0716e-01 /) - kao(:, 4,10, 1) = (/ & - &8.5593e-03 ,4.5273e-02 ,6.1475e-02 ,6.7236e-02 ,6.4539e-02 ,5.6295e-02 , & - &4.0023e-02 ,2.5561e-02 ,1.0908e-01 /) - kao(:, 5,10, 1) = (/ & - &8.2765e-03 ,4.3918e-02 ,5.9902e-02 ,6.5936e-02 ,6.4146e-02 ,5.6753e-02 , & - &4.0609e-02 ,2.6739e-02 ,1.0938e-01 /) - kao(:, 1,11, 1) = (/ & - &8.0135e-03 ,4.0574e-02 ,5.5523e-02 ,5.9842e-02 ,5.3590e-02 ,4.3205e-02 , & - &3.0578e-02 ,1.8553e-02 ,8.6419e-02 /) - kao(:, 2,11, 1) = (/ & - &7.7438e-03 ,4.0051e-02 ,5.3954e-02 ,5.8561e-02 ,5.4366e-02 ,4.5533e-02 , & - &3.1980e-02 ,1.9368e-02 ,8.9461e-02 /) - kao(:, 3,11, 1) = (/ & - &7.4839e-03 ,3.9067e-02 ,5.2580e-02 ,5.7160e-02 ,5.4156e-02 ,4.6927e-02 , & - &3.3356e-02 ,2.0535e-02 ,9.0297e-02 /) - kao(:, 4,11, 1) = (/ & - &7.2468e-03 ,3.7809e-02 ,5.1257e-02 ,5.6080e-02 ,5.4294e-02 ,4.7574e-02 , & - &3.3980e-02 ,2.1720e-02 ,9.1828e-02 /) - kao(:, 5,11, 1) = (/ & - &6.9859e-03 ,3.6737e-02 ,5.0287e-02 ,5.5092e-02 ,5.3946e-02 ,4.8082e-02 , & - &3.4738e-02 ,2.2682e-02 ,9.1913e-02 /) - kao(:, 1,12, 1) = (/ & - &6.8723e-03 ,3.4461e-02 ,4.6618e-02 ,5.0325e-02 ,4.5843e-02 ,3.7154e-02 , & - &2.6350e-02 ,1.5945e-02 ,7.4796e-02 /) - kao(:, 2,12, 1) = (/ & - &6.6342e-03 ,3.3814e-02 ,4.5285e-02 ,4.9258e-02 ,4.6140e-02 ,3.8916e-02 , & - &2.7614e-02 ,1.6684e-02 ,7.6431e-02 /) - kao(:, 3,12, 1) = (/ & - &6.4256e-03 ,3.2718e-02 ,4.4302e-02 ,4.8163e-02 ,4.5963e-02 ,4.0038e-02 , & - &2.8672e-02 ,1.7798e-02 ,7.6864e-02 /) - kao(:, 4,12, 1) = (/ & - &6.1980e-03 ,3.1806e-02 ,4.3232e-02 ,4.7321e-02 ,4.6023e-02 ,4.0771e-02 , & - &2.9167e-02 ,1.8567e-02 ,7.7874e-02 /) - kao(:, 5,12, 1) = (/ & - &5.9663e-03 ,3.0964e-02 ,4.2379e-02 ,4.6375e-02 ,4.5692e-02 ,4.1306e-02 , & - &2.9920e-02 ,1.9375e-02 ,7.7903e-02 /) - kao(:, 1,13, 1) = (/ & - &6.1312e-03 ,2.9682e-02 ,3.9975e-02 ,4.3642e-02 ,4.0252e-02 ,3.3035e-02 , & - &2.3558e-02 ,1.4050e-02 ,6.6647e-02 /) - kao(:, 2,13, 1) = (/ & - &5.9440e-03 ,2.8920e-02 ,3.8788e-02 ,4.2829e-02 ,4.0420e-02 ,3.4105e-02 , & - &2.4570e-02 ,1.4699e-02 ,6.7206e-02 /) - kao(:, 3,13, 1) = (/ & - &5.7437e-03 ,2.7994e-02 ,3.7951e-02 ,4.1862e-02 ,4.0303e-02 ,3.5364e-02 , & - &2.5449e-02 ,1.5507e-02 ,6.7644e-02 /) - kao(:, 4,13, 1) = (/ & - &5.5406e-03 ,2.7263e-02 ,3.7056e-02 ,4.0900e-02 ,3.9818e-02 ,3.6193e-02 , & - &2.6077e-02 ,1.6255e-02 ,6.7402e-02 /) - kao(:, 5,13, 1) = (/ & - &5.3457e-03 ,2.6652e-02 ,3.6336e-02 ,3.9995e-02 ,3.9467e-02 ,3.6352e-02 , & - &2.6575e-02 ,1.6998e-02 ,6.7304e-02 /) - kao(:, 1, 1, 2) = (/ & - &4.1184e-02 ,2.7179e-01 ,3.3427e-01 ,3.7214e-01 ,4.0092e-01 ,3.9640e-01 , & - &3.3752e-01 ,3.1662e-01 ,7.0395e-01 /) - kao(:, 2, 1, 2) = (/ & - &3.9613e-02 ,2.5448e-01 ,3.1529e-01 ,3.6420e-01 ,3.9285e-01 ,3.8292e-01 , & - &3.4622e-01 ,3.3570e-01 ,7.0351e-01 /) - kao(:, 3, 1, 2) = (/ & - &3.8482e-02 ,2.4018e-01 ,3.0435e-01 ,3.6080e-01 ,3.8815e-01 ,3.7286e-01 , & - &3.5535e-01 ,3.5400e-01 ,6.9477e-01 /) - kao(:, 4, 1, 2) = (/ & - &3.7848e-02 ,2.2963e-01 ,2.9537e-01 ,3.6193e-01 ,3.8220e-01 ,3.7308e-01 , & - &3.6939e-01 ,3.6570e-01 ,6.8368e-01 /) - kao(:, 5, 1, 2) = (/ & - &3.7774e-02 ,2.2394e-01 ,2.9359e-01 ,3.5744e-01 ,3.7874e-01 ,3.6962e-01 , & - &3.8607e-01 ,3.7579e-01 ,6.9280e-01 /) - kao(:, 1, 2, 2) = (/ & - &3.5631e-02 ,2.2069e-01 ,2.7258e-01 ,3.1550e-01 ,3.3342e-01 ,3.2657e-01 , & - &2.8024e-01 ,2.7588e-01 ,5.9197e-01 /) - kao(:, 2, 2, 2) = (/ & - &3.4562e-02 ,2.0891e-01 ,2.6384e-01 ,3.1412e-01 ,3.2954e-01 ,3.2211e-01 , & - &2.9490e-01 ,2.9533e-01 ,5.8323e-01 /) - kao(:, 3, 2, 2) = (/ & - &3.3571e-02 ,1.9802e-01 ,2.5784e-01 ,3.1122e-01 ,3.2677e-01 ,3.1912e-01 , & - &3.0590e-01 ,3.0715e-01 ,5.7853e-01 /) - kao(:, 4, 2, 2) = (/ & - &3.2736e-02 ,1.9123e-01 ,2.5333e-01 ,3.0890e-01 ,3.2624e-01 ,3.1676e-01 , & - &3.1863e-01 ,3.1850e-01 ,5.8754e-01 /) - kao(:, 5, 2, 2) = (/ & - &3.2264e-02 ,1.8835e-01 ,2.5452e-01 ,3.0891e-01 ,3.2749e-01 ,3.1271e-01 , & - &3.2651e-01 ,3.2839e-01 ,5.9068e-01 /) - kao(:, 1, 3, 2) = (/ & - &3.1584e-02 ,1.8152e-01 ,2.2653e-01 ,2.6984e-01 ,2.8266e-01 ,2.7419e-01 , & - &2.3718e-01 ,2.3355e-01 ,4.9551e-01 /) - kao(:, 2, 3, 2) = (/ & - &3.0265e-02 ,1.7457e-01 ,2.2109e-01 ,2.6703e-01 ,2.7958e-01 ,2.7087e-01 , & - &2.4754e-01 ,2.5014e-01 ,4.9470e-01 /) - kao(:, 3, 3, 2) = (/ & - &2.9150e-02 ,1.6735e-01 ,2.1902e-01 ,2.6391e-01 ,2.7849e-01 ,2.6534e-01 , & - &2.5781e-01 ,2.6293e-01 ,4.9430e-01 /) - kao(:, 4, 3, 2) = (/ & - &2.8592e-02 ,1.6364e-01 ,2.1995e-01 ,2.6189e-01 ,2.7866e-01 ,2.6352e-01 , & - &2.7044e-01 ,2.7363e-01 ,4.9527e-01 /) - kao(:, 5, 3, 2) = (/ & - &2.8231e-02 ,1.6046e-01 ,2.1887e-01 ,2.6443e-01 ,2.7635e-01 ,2.6884e-01 , & - &2.7778e-01 ,2.8066e-01 ,4.9153e-01 /) - kao(:, 1, 4, 2) = (/ & - &2.7586e-02 ,1.5275e-01 ,1.9293e-01 ,2.2899e-01 ,2.4107e-01 ,2.3244e-01 , & - &2.0047e-01 ,1.9534e-01 ,4.2244e-01 /) - kao(:, 2, 4, 2) = (/ & - &2.6887e-02 ,1.4829e-01 ,1.9195e-01 ,2.2560e-01 ,2.3907e-01 ,2.2550e-01 , & - &2.1032e-01 ,2.1041e-01 ,4.2198e-01 /) - kao(:, 3, 4, 2) = (/ & - &2.6805e-02 ,1.4416e-01 ,1.9016e-01 ,2.2531e-01 ,2.3789e-01 ,2.2485e-01 , & - &2.1879e-01 ,2.2259e-01 ,4.1901e-01 /) - kao(:, 4, 4, 2) = (/ & - &2.6734e-02 ,1.4087e-01 ,1.9109e-01 ,2.2675e-01 ,2.3622e-01 ,2.2628e-01 , & - &2.2901e-01 ,2.3158e-01 ,4.1030e-01 /) - kao(:, 5, 4, 2) = (/ & - &2.6617e-02 ,1.3796e-01 ,1.9377e-01 ,2.2557e-01 ,2.3342e-01 ,2.2649e-01 , & - &2.3523e-01 ,2.3617e-01 ,4.1160e-01 /) - kao(:, 1, 5, 2) = (/ & - &2.5332e-02 ,1.2963e-01 ,1.6655e-01 ,1.9042e-01 ,2.0895e-01 ,1.9510e-01 , & - &1.6916e-01 ,1.6222e-01 ,3.6316e-01 /) - kao(:, 2, 5, 2) = (/ & - &2.5181e-02 ,1.2537e-01 ,1.6592e-01 ,1.8998e-01 ,2.0621e-01 ,1.9136e-01 , & - &1.7764e-01 ,1.7625e-01 ,3.5695e-01 /) - kao(:, 3, 5, 2) = (/ & - &2.4972e-02 ,1.2219e-01 ,1.6618e-01 ,1.9129e-01 ,2.0217e-01 ,1.9130e-01 , & - &1.8535e-01 ,1.8719e-01 ,3.4788e-01 /) - kao(:, 4, 5, 2) = (/ & - &2.4749e-02 ,1.2096e-01 ,1.6848e-01 ,1.9087e-01 ,1.9911e-01 ,1.9130e-01 , & - &1.9341e-01 ,1.9372e-01 ,3.4412e-01 /) - kao(:, 5, 5, 2) = (/ & - &2.4660e-02 ,1.2126e-01 ,1.7164e-01 ,1.8946e-01 ,1.9462e-01 ,1.9216e-01 , & - &1.9926e-01 ,1.9935e-01 ,3.3902e-01 /) - kao(:, 1, 6, 2) = (/ & - &2.3422e-02 ,1.0907e-01 ,1.4314e-01 ,1.6055e-01 ,1.7919e-01 ,1.6497e-01 , & - &1.4423e-01 ,1.3518e-01 ,3.0537e-01 /) - kao(:, 2, 6, 2) = (/ & - &2.3193e-02 ,1.0714e-01 ,1.4280e-01 ,1.6151e-01 ,1.7408e-01 ,1.6236e-01 , & - &1.4991e-01 ,1.4676e-01 ,2.9795e-01 /) - kao(:, 3, 6, 2) = (/ & - &2.2992e-02 ,1.0582e-01 ,1.4541e-01 ,1.6228e-01 ,1.7059e-01 ,1.6204e-01 , & - &1.5617e-01 ,1.5704e-01 ,2.9013e-01 /) - kao(:, 4, 6, 2) = (/ & - &2.2904e-02 ,1.0595e-01 ,1.4661e-01 ,1.6015e-01 ,1.6718e-01 ,1.6268e-01 , & - &1.6254e-01 ,1.6133e-01 ,2.8558e-01 /) - kao(:, 5, 6, 2) = (/ & - &2.3037e-02 ,1.0659e-01 ,1.4720e-01 ,1.5884e-01 ,1.6394e-01 ,1.6537e-01 , & - &1.6790e-01 ,1.6640e-01 ,2.8291e-01 /) - kao(:, 1, 7, 2) = (/ & - &2.1778e-02 ,9.4871e-02 ,1.2415e-01 ,1.3737e-01 ,1.5258e-01 ,1.4160e-01 , & - &1.2347e-01 ,1.1302e-01 ,2.5408e-01 /) - kao(:, 2, 7, 2) = (/ & - &2.1522e-02 ,9.3423e-02 ,1.2417e-01 ,1.3839e-01 ,1.4741e-01 ,1.4006e-01 , & - &1.2799e-01 ,1.2268e-01 ,2.4943e-01 /) - kao(:, 3, 7, 2) = (/ & - &2.1257e-02 ,9.3282e-02 ,1.2533e-01 ,1.3843e-01 ,1.4474e-01 ,1.3911e-01 , & - &1.3239e-01 ,1.3095e-01 ,2.4208e-01 /) - kao(:, 4, 7, 2) = (/ & - &2.0841e-02 ,9.3161e-02 ,1.2672e-01 ,1.3698e-01 ,1.4106e-01 ,1.4019e-01 , & - &1.3855e-01 ,1.3550e-01 ,2.3874e-01 /) - kao(:, 5, 7, 2) = (/ & - &2.0486e-02 ,9.4079e-02 ,1.2713e-01 ,1.3508e-01 ,1.3852e-01 ,1.4171e-01 , & - &1.4291e-01 ,1.3980e-01 ,2.3641e-01 /) - kao(:, 1, 8, 2) = (/ & - &2.0219e-02 ,8.3245e-02 ,1.0821e-01 ,1.1854e-01 ,1.3123e-01 ,1.2323e-01 , & - &1.0617e-01 ,9.4794e-02 ,2.1425e-01 /) - kao(:, 2, 8, 2) = (/ & - &1.9540e-02 ,8.2217e-02 ,1.0811e-01 ,1.1985e-01 ,1.2621e-01 ,1.2208e-01 , & - &1.0997e-01 ,1.0316e-01 ,2.0956e-01 /) - kao(:, 3, 8, 2) = (/ & - &1.9115e-02 ,8.1811e-02 ,1.0961e-01 ,1.1959e-01 ,1.2388e-01 ,1.2129e-01 , & - &1.1337e-01 ,1.1053e-01 ,2.0624e-01 /) - kao(:, 4, 8, 2) = (/ & - &1.8733e-02 ,8.1851e-02 ,1.1044e-01 ,1.1828e-01 ,1.2090e-01 ,1.2160e-01 , & - &1.1850e-01 ,1.1463e-01 ,2.0160e-01 /) - kao(:, 5, 8, 2) = (/ & - &1.8489e-02 ,8.3310e-02 ,1.0940e-01 ,1.1607e-01 ,1.1923e-01 ,1.2205e-01 , & - &1.2223e-01 ,1.1845e-01 ,2.0014e-01 /) - kao(:, 1, 9, 2) = (/ & - &1.7934e-02 ,7.2499e-02 ,9.3347e-02 ,1.0259e-01 ,1.1263e-01 ,1.0693e-01 , & - &9.0284e-02 ,7.9546e-02 ,1.8180e-01 /) - kao(:, 2, 9, 2) = (/ & - &1.7445e-02 ,7.1879e-02 ,9.3312e-02 ,1.0334e-01 ,1.0867e-01 ,1.0654e-01 , & - &9.3871e-02 ,8.7011e-02 ,1.7650e-01 /) - kao(:, 3, 9, 2) = (/ & - &1.7054e-02 ,7.1164e-02 ,9.4558e-02 ,1.0223e-01 ,1.0632e-01 ,1.0559e-01 , & - &9.7124e-02 ,9.3354e-02 ,1.7444e-01 /) - kao(:, 4, 9, 2) = (/ & - &1.6642e-02 ,7.2006e-02 ,9.4764e-02 ,1.0087e-01 ,1.0340e-01 ,1.0507e-01 , & - &1.0155e-01 ,9.7191e-02 ,1.7012e-01 /) - kao(:, 5, 9, 2) = (/ & - &1.6243e-02 ,7.2866e-02 ,9.2285e-02 ,9.9097e-02 ,1.0185e-01 ,1.0516e-01 , & - &1.0490e-01 ,1.0097e-01 ,1.7041e-01 /) - kao(:, 1,10, 2) = (/ & - &1.5979e-02 ,6.3035e-02 ,8.0318e-02 ,8.8320e-02 ,9.6214e-02 ,9.2269e-02 , & - &7.7109e-02 ,6.7263e-02 ,1.5451e-01 /) - kao(:, 2,10, 2) = (/ & - &1.5470e-02 ,6.2313e-02 ,8.0559e-02 ,8.8699e-02 ,9.3120e-02 ,9.2382e-02 , & - &7.9788e-02 ,7.3810e-02 ,1.5001e-01 /) - kao(:, 3,10, 2) = (/ & - &1.4968e-02 ,6.2321e-02 ,8.1515e-02 ,8.7265e-02 ,9.0898e-02 ,9.1273e-02 , & - &8.3098e-02 ,7.9462e-02 ,1.4837e-01 /) - kao(:, 4,10, 2) = (/ & - &1.4648e-02 ,6.3201e-02 ,8.0459e-02 ,8.6353e-02 ,8.8769e-02 ,9.0582e-02 , & - &8.6861e-02 ,8.2886e-02 ,1.4494e-01 /) - kao(:, 5,10, 2) = (/ & - &1.4327e-02 ,6.4058e-02 ,7.8092e-02 ,8.4556e-02 ,8.7537e-02 ,9.0662e-02 , & - &8.9892e-02 ,8.5887e-02 ,1.4505e-01 /) - kao(:, 1,11, 2) = (/ & - &1.3861e-02 ,5.4196e-02 ,6.8747e-02 ,7.5984e-02 ,8.0767e-02 ,7.9801e-02 , & - &6.6830e-02 ,5.9302e-02 ,1.2963e-01 /) - kao(:, 2,11, 2) = (/ & - &1.3347e-02 ,5.4113e-02 ,6.9722e-02 ,7.5263e-02 ,7.8466e-02 ,7.8575e-02 , & - &6.9140e-02 ,6.4556e-02 ,1.2675e-01 /) - kao(:, 3,11, 2) = (/ & - &1.3016e-02 ,5.4555e-02 ,6.9179e-02 ,7.4613e-02 ,7.7291e-02 ,7.7531e-02 , & - &7.2200e-02 ,6.9022e-02 ,1.2482e-01 /) - kao(:, 4,11, 2) = (/ & - &1.2671e-02 ,5.5408e-02 ,6.7230e-02 ,7.3198e-02 ,7.5526e-02 ,7.7122e-02 , & - &7.5177e-02 ,7.1296e-02 ,1.2336e-01 /) - kao(:, 5,11, 2) = (/ & - &1.2351e-02 ,5.6031e-02 ,6.5093e-02 ,7.1581e-02 ,7.4883e-02 ,7.6822e-02 , & - &7.7284e-02 ,7.3771e-02 ,1.2246e-01 /) - kao(:, 1,12, 2) = (/ & - &1.2126e-02 ,4.7285e-02 ,5.9933e-02 ,6.5129e-02 ,6.8290e-02 ,6.7884e-02 , & - &5.7878e-02 ,5.1782e-02 ,1.0839e-01 /) - kao(:, 2,12, 2) = (/ & - &1.1745e-02 ,4.7398e-02 ,5.9988e-02 ,6.4477e-02 ,6.6821e-02 ,6.6892e-02 , & - &6.0270e-02 ,5.6137e-02 ,1.0621e-01 /) - kao(:, 3,12, 2) = (/ & - &1.1385e-02 ,4.8238e-02 ,5.8218e-02 ,6.3614e-02 ,6.5819e-02 ,6.5904e-02 , & - &6.2567e-02 ,5.9036e-02 ,1.0557e-01 /) - kao(:, 4,12, 2) = (/ & - &1.1087e-02 ,4.8582e-02 ,5.6782e-02 ,6.2244e-02 ,6.4582e-02 ,6.5133e-02 , & - &6.4669e-02 ,6.1446e-02 ,1.0435e-01 /) - kao(:, 5,12, 2) = (/ & - &1.0909e-02 ,4.7898e-02 ,5.5031e-02 ,6.0882e-02 ,6.4057e-02 ,6.5202e-02 , & - &6.6350e-02 ,6.3114e-02 ,1.0415e-01 /) - kao(:, 1,13, 2) = (/ & - &1.1050e-02 ,4.2216e-02 ,5.3216e-02 ,5.6607e-02 ,5.8614e-02 ,5.8762e-02 , & - &5.1111e-02 ,4.5278e-02 ,9.1112e-02 /) - kao(:, 2,13, 2) = (/ & - &1.0650e-02 ,4.2640e-02 ,5.2374e-02 ,5.5676e-02 ,5.7428e-02 ,5.7903e-02 , & - &5.3022e-02 ,4.8756e-02 ,9.0299e-02 /) - kao(:, 3,13, 2) = (/ & - &1.0375e-02 ,4.2997e-02 ,5.0849e-02 ,5.4963e-02 ,5.6516e-02 ,5.6613e-02 , & - &5.4398e-02 ,5.1351e-02 ,8.9757e-02 /) - kao(:, 4,13, 2) = (/ & - &1.0186e-02 ,4.2550e-02 ,4.9650e-02 ,5.4126e-02 ,5.6087e-02 ,5.6100e-02 , & - &5.5740e-02 ,5.3111e-02 ,8.9898e-02 /) - kao(:, 5,13, 2) = (/ & - &9.9803e-03 ,4.1596e-02 ,4.8435e-02 ,5.3214e-02 ,5.5733e-02 ,5.6166e-02 , & - &5.6820e-02 ,5.4773e-02 ,8.9718e-02 /) - kao(:, 1, 1, 3) = (/ & - &1.0349e-01 ,2.2333e-01 ,4.3448e-01 ,4.7188e-01 ,4.9049e-01 ,5.6379e-01 , & - &6.8188e-01 ,5.5213e-01 ,8.7331e-01 /) - kao(:, 2, 1, 3) = (/ & - &9.8776e-02 ,2.3587e-01 ,4.2090e-01 ,4.7099e-01 ,4.8532e-01 ,5.6756e-01 , & - &6.8304e-01 ,5.3972e-01 ,8.6585e-01 /) - kao(:, 3, 1, 3) = (/ & - &9.4379e-02 ,2.4459e-01 ,4.0703e-01 ,4.4771e-01 ,4.8054e-01 ,5.8051e-01 , & - &6.8126e-01 ,5.2715e-01 ,8.6189e-01 /) - kao(:, 4, 1, 3) = (/ & - &8.9966e-02 ,2.4911e-01 ,4.0891e-01 ,4.3132e-01 ,4.8073e-01 ,5.8214e-01 , & - &6.7058e-01 ,5.2176e-01 ,8.6463e-01 /) - kao(:, 5, 1, 3) = (/ & - &8.6080e-02 ,2.4561e-01 ,4.0823e-01 ,4.3495e-01 ,4.8341e-01 ,5.8583e-01 , & - &6.6494e-01 ,5.1295e-01 ,8.6781e-01 /) - kao(:, 1, 2, 3) = (/ & - &9.1121e-02 ,2.7597e-01 ,3.6090e-01 ,3.8864e-01 ,4.2468e-01 ,5.0778e-01 , & - &6.0614e-01 ,4.7263e-01 ,7.5147e-01 /) - kao(:, 2, 2, 3) = (/ & - &8.6968e-02 ,2.8112e-01 ,3.5384e-01 ,3.7604e-01 ,4.2522e-01 ,5.1397e-01 , & - &5.9893e-01 ,4.6387e-01 ,7.5402e-01 /) - kao(:, 3, 2, 3) = (/ & - &8.3177e-02 ,2.8458e-01 ,3.4657e-01 ,3.6832e-01 ,4.2349e-01 ,5.1886e-01 , & - &5.9537e-01 ,4.5576e-01 ,7.6481e-01 /) - kao(:, 4, 2, 3) = (/ & - &7.9593e-02 ,2.8362e-01 ,3.4405e-01 ,3.6602e-01 ,4.2737e-01 ,5.2263e-01 , & - &5.9169e-01 ,4.4715e-01 ,7.7154e-01 /) - kao(:, 5, 2, 3) = (/ & - &7.6305e-02 ,2.7901e-01 ,3.3923e-01 ,3.6563e-01 ,4.2905e-01 ,5.2631e-01 , & - &5.9188e-01 ,4.4184e-01 ,7.8075e-01 /) - kao(:, 1, 3, 3) = (/ & - &8.1532e-02 ,2.6557e-01 ,3.0691e-01 ,3.2639e-01 ,3.6998e-01 ,4.4624e-01 , & - &5.2995e-01 ,4.1015e-01 ,6.5448e-01 /) - kao(:, 2, 3, 3) = (/ & - &7.8061e-02 ,2.5705e-01 ,3.0144e-01 ,3.1922e-01 ,3.7157e-01 ,4.5007e-01 , & - &5.2671e-01 ,4.0238e-01 ,6.6049e-01 /) - kao(:, 3, 3, 3) = (/ & - &7.4871e-02 ,2.4964e-01 ,2.9703e-01 ,3.1658e-01 ,3.7272e-01 ,4.5628e-01 , & - &5.2424e-01 ,3.9540e-01 ,6.6589e-01 /) - kao(:, 4, 3, 3) = (/ & - &7.1934e-02 ,2.4252e-01 ,2.8855e-01 ,3.1667e-01 ,3.7723e-01 ,4.6275e-01 , & - &5.1485e-01 ,3.8931e-01 ,6.7492e-01 /) - kao(:, 5, 3, 3) = (/ & - &6.9067e-02 ,2.3451e-01 ,2.8461e-01 ,3.1625e-01 ,3.8425e-01 ,4.6414e-01 , & - &5.0872e-01 ,3.8671e-01 ,6.9966e-01 /) - kao(:, 1, 4, 3) = (/ & - &7.4166e-02 ,2.1898e-01 ,2.6310e-01 ,2.7673e-01 ,3.2117e-01 ,3.8906e-01 , & - &4.5677e-01 ,3.5535e-01 ,5.6605e-01 /) - kao(:, 2, 4, 3) = (/ & - &7.1027e-02 ,2.1158e-01 ,2.5634e-01 ,2.7577e-01 ,3.2463e-01 ,3.9708e-01 , & - &4.5460e-01 ,3.5060e-01 ,5.7431e-01 /) - kao(:, 3, 4, 3) = (/ & - &6.8100e-02 ,2.0832e-01 ,2.5127e-01 ,2.7640e-01 ,3.2722e-01 ,4.0091e-01 , & - &4.5112e-01 ,3.4506e-01 ,5.8564e-01 /) - kao(:, 4, 4, 3) = (/ & - &6.5366e-02 ,2.0407e-01 ,2.4599e-01 ,2.7530e-01 ,3.3554e-01 ,4.0555e-01 , & - &4.3614e-01 ,3.4106e-01 ,6.0722e-01 /) - kao(:, 5, 4, 3) = (/ & - &6.2828e-02 ,2.0183e-01 ,2.4016e-01 ,2.8032e-01 ,3.4415e-01 ,4.1256e-01 , & - &4.2811e-01 ,3.3888e-01 ,6.2274e-01 /) - kao(:, 1, 5, 3) = (/ & - &6.8085e-02 ,1.8443e-01 ,2.2193e-01 ,2.4125e-01 ,2.7858e-01 ,3.3878e-01 , & - &3.9224e-01 ,3.0775e-01 ,4.8825e-01 /) - kao(:, 2, 5, 3) = (/ & - &6.5024e-02 ,1.8062e-01 ,2.1594e-01 ,2.3959e-01 ,2.8255e-01 ,3.4709e-01 , & - &3.8693e-01 ,3.0387e-01 ,4.9773e-01 /) - kao(:, 3, 5, 3) = (/ & - &6.2309e-02 ,1.7709e-01 ,2.1233e-01 ,2.4099e-01 ,2.9052e-01 ,3.5084e-01 , & - &3.7550e-01 ,2.9937e-01 ,5.1983e-01 /) - kao(:, 4, 5, 3) = (/ & - &6.0049e-02 ,1.7340e-01 ,2.0891e-01 ,2.4567e-01 ,2.9963e-01 ,3.5573e-01 , & - &3.6423e-01 ,2.9642e-01 ,5.3792e-01 /) - kao(:, 5, 5, 3) = (/ & - &5.7860e-02 ,1.7101e-01 ,2.0517e-01 ,2.5155e-01 ,3.0986e-01 ,3.5542e-01 , & - &3.5482e-01 ,2.9214e-01 ,5.5424e-01 /) - kao(:, 1, 6, 3) = (/ & - &6.1553e-02 ,1.6486e-01 ,1.8851e-01 ,2.1013e-01 ,2.4069e-01 ,2.9423e-01 , & - &3.2998e-01 ,2.6499e-01 ,4.1520e-01 /) - kao(:, 2, 6, 3) = (/ & - &5.8962e-02 ,1.6161e-01 ,1.8469e-01 ,2.1043e-01 ,2.4572e-01 ,3.0023e-01 , & - &3.2384e-01 ,2.6279e-01 ,4.2954e-01 /) - kao(:, 3, 6, 3) = (/ & - &5.6865e-02 ,1.5845e-01 ,1.8137e-01 ,2.1320e-01 ,2.5567e-01 ,3.0422e-01 , & - &3.1399e-01 ,2.5823e-01 ,4.4811e-01 /) - kao(:, 4, 6, 3) = (/ & - &5.4727e-02 ,1.5470e-01 ,1.8033e-01 ,2.2018e-01 ,2.6466e-01 ,3.0350e-01 , & - &3.0450e-01 ,2.5479e-01 ,4.6359e-01 /) - kao(:, 5, 6, 3) = (/ & - &5.2654e-02 ,1.5114e-01 ,1.8009e-01 ,2.2727e-01 ,2.7074e-01 ,3.0288e-01 , & - &2.9697e-01 ,2.5146e-01 ,4.7630e-01 /) - kao(:, 1, 7, 3) = (/ & - &5.4386e-02 ,1.4374e-01 ,1.6223e-01 ,1.8219e-01 ,2.0984e-01 ,2.5288e-01 , & - &2.7777e-01 ,2.2929e-01 ,3.5662e-01 /) - kao(:, 2, 7, 3) = (/ & - &5.2357e-02 ,1.4042e-01 ,1.5995e-01 ,1.8335e-01 ,2.1810e-01 ,2.5710e-01 , & - &2.7180e-01 ,2.2723e-01 ,3.7033e-01 /) - kao(:, 3, 7, 3) = (/ & - &5.0433e-02 ,1.3664e-01 ,1.5916e-01 ,1.8872e-01 ,2.2495e-01 ,2.5913e-01 , & - &2.6518e-01 ,2.2296e-01 ,3.8796e-01 /) - kao(:, 4, 7, 3) = (/ & - &4.8970e-02 ,1.3435e-01 ,1.5882e-01 ,1.9514e-01 ,2.3146e-01 ,2.5861e-01 , & - &2.5643e-01 ,2.1963e-01 ,4.0045e-01 /) - kao(:, 5, 7, 3) = (/ & - &4.7677e-02 ,1.3141e-01 ,1.5996e-01 ,2.0198e-01 ,2.3377e-01 ,2.5698e-01 , & - &2.5063e-01 ,2.1548e-01 ,4.0471e-01 /) - kao(:, 1, 8, 3) = (/ & - &4.9561e-02 ,1.2585e-01 ,1.4205e-01 ,1.6041e-01 ,1.8455e-01 ,2.1813e-01 , & - &2.3719e-01 ,1.9955e-01 ,3.0456e-01 /) - kao(:, 2, 8, 3) = (/ & - &4.7879e-02 ,1.2232e-01 ,1.4089e-01 ,1.6222e-01 ,1.9194e-01 ,2.2092e-01 , & - &2.3163e-01 ,1.9730e-01 ,3.1885e-01 /) - kao(:, 3, 8, 3) = (/ & - &4.6426e-02 ,1.1957e-01 ,1.4043e-01 ,1.6717e-01 ,1.9752e-01 ,2.2121e-01 , & - &2.2638e-01 ,1.9261e-01 ,3.3187e-01 /) - kao(:, 4, 8, 3) = (/ & - &4.5268e-02 ,1.1738e-01 ,1.4149e-01 ,1.7294e-01 ,2.0208e-01 ,2.2061e-01 , & - &2.1864e-01 ,1.8926e-01 ,3.4074e-01 /) - kao(:, 5, 8, 3) = (/ & - &4.3956e-02 ,1.1566e-01 ,1.4446e-01 ,1.7951e-01 ,2.0361e-01 ,2.1938e-01 , & - &2.1462e-01 ,1.8542e-01 ,3.4583e-01 /) - kao(:, 1, 9, 3) = (/ & - &4.5250e-02 ,1.0911e-01 ,1.2308e-01 ,1.4028e-01 ,1.6172e-01 ,1.8816e-01 , & - &2.0368e-01 ,1.7299e-01 ,2.5859e-01 /) - kao(:, 2, 9, 3) = (/ & - &4.3924e-02 ,1.0618e-01 ,1.2262e-01 ,1.4258e-01 ,1.6714e-01 ,1.8918e-01 , & - &1.9807e-01 ,1.7073e-01 ,2.7235e-01 /) - kao(:, 3, 9, 3) = (/ & - &4.2608e-02 ,1.0467e-01 ,1.2300e-01 ,1.4745e-01 ,1.7253e-01 ,1.8886e-01 , & - &1.9316e-01 ,1.6589e-01 ,2.8262e-01 /) - kao(:, 4, 9, 3) = (/ & - &4.1423e-02 ,1.0229e-01 ,1.2419e-01 ,1.5295e-01 ,1.7546e-01 ,1.8853e-01 , & - &1.8673e-01 ,1.6267e-01 ,2.8816e-01 /) - kao(:, 5, 9, 3) = (/ & - &4.0021e-02 ,1.0144e-01 ,1.2853e-01 ,1.5736e-01 ,1.7632e-01 ,1.8748e-01 , & - &1.8330e-01 ,1.5887e-01 ,2.9011e-01 /) - kao(:, 1,10, 3) = (/ & - &4.1171e-02 ,9.3658e-02 ,1.0622e-01 ,1.2188e-01 ,1.4076e-01 ,1.6261e-01 , & - &1.7423e-01 ,1.4922e-01 ,2.1862e-01 /) - kao(:, 2,10, 3) = (/ & - &3.9662e-02 ,9.1742e-02 ,1.0641e-01 ,1.2434e-01 ,1.4583e-01 ,1.6228e-01 , & - &1.6976e-01 ,1.4678e-01 ,2.3073e-01 /) - kao(:, 3,10, 3) = (/ & - &3.8151e-02 ,8.9581e-02 ,1.0765e-01 ,1.2937e-01 ,1.4971e-01 ,1.6177e-01 , & - &1.6479e-01 ,1.4256e-01 ,2.3771e-01 /) - kao(:, 4,10, 3) = (/ & - &3.6829e-02 ,8.8190e-02 ,1.0980e-01 ,1.3385e-01 ,1.5088e-01 ,1.6121e-01 , & - &1.5970e-01 ,1.3919e-01 ,2.4389e-01 /) - kao(:, 5,10, 3) = (/ & - &3.5799e-02 ,8.7081e-02 ,1.1397e-01 ,1.3613e-01 ,1.5068e-01 ,1.6032e-01 , & - &1.5668e-01 ,1.3612e-01 ,2.4347e-01 /) - kao(:, 1,11, 3) = (/ & - &3.5950e-02 ,7.9375e-02 ,9.2025e-02 ,1.0686e-01 ,1.2416e-01 ,1.3928e-01 , & - &1.4761e-01 ,1.2730e-01 ,1.9139e-01 /) - kao(:, 2,11, 3) = (/ & - &3.4807e-02 ,7.7447e-02 ,9.2655e-02 ,1.1006e-01 ,1.2736e-01 ,1.3892e-01 , & - &1.4381e-01 ,1.2426e-01 ,1.9723e-01 /) - kao(:, 3,11, 3) = (/ & - &3.3668e-02 ,7.6215e-02 ,9.4748e-02 ,1.1430e-01 ,1.2842e-01 ,1.3852e-01 , & - &1.3892e-01 ,1.2007e-01 ,2.0316e-01 /) - kao(:, 4,11, 3) = (/ & - &3.2675e-02 ,7.5405e-02 ,9.7335e-02 ,1.1502e-01 ,1.2820e-01 ,1.3796e-01 , & - &1.3569e-01 ,1.1793e-01 ,2.0391e-01 /) - kao(:, 5,11, 3) = (/ & - &3.1803e-02 ,7.5385e-02 ,1.0078e-01 ,1.1505e-01 ,1.2792e-01 ,1.3782e-01 , & - &1.3291e-01 ,1.1573e-01 ,2.0592e-01 /) - kao(:, 1,12, 3) = (/ & - &3.2107e-02 ,6.7817e-02 ,8.0190e-02 ,9.4418e-02 ,1.0883e-01 ,1.2016e-01 , & - &1.2478e-01 ,1.0916e-01 ,1.6437e-01 /) - kao(:, 2,12, 3) = (/ & - &3.0865e-02 ,6.6495e-02 ,8.1339e-02 ,9.7570e-02 ,1.0958e-01 ,1.1971e-01 , & - &1.2159e-01 ,1.0575e-01 ,1.6979e-01 /) - kao(:, 3,12, 3) = (/ & - &2.9814e-02 ,6.5982e-02 ,8.4322e-02 ,9.8160e-02 ,1.0983e-01 ,1.1899e-01 , & - &1.1775e-01 ,1.0260e-01 ,1.7251e-01 /) - kao(:, 4,12, 3) = (/ & - &2.8719e-02 ,6.6210e-02 ,8.5962e-02 ,9.8372e-02 ,1.0963e-01 ,1.1883e-01 , & - &1.1590e-01 ,1.0037e-01 ,1.7377e-01 /) - kao(:, 5,12, 3) = (/ & - &2.7641e-02 ,6.7001e-02 ,8.6676e-02 ,9.9268e-02 ,1.1059e-01 ,1.1880e-01 , & - &1.1301e-01 ,9.8900e-02 ,1.7602e-01 /) - kao(:, 1,13, 3) = (/ & - &2.9283e-02 ,6.0178e-02 ,7.1238e-02 ,8.4877e-02 ,9.5368e-02 ,1.0416e-01 , & - &1.0619e-01 ,9.4038e-02 ,1.4273e-01 /) - kao(:, 2,13, 3) = (/ & - &2.8137e-02 ,5.9367e-02 ,7.3469e-02 ,8.5617e-02 ,9.5728e-02 ,1.0364e-01 , & - &1.0343e-01 ,9.0972e-02 ,1.4741e-01 /) - kao(:, 3,13, 3) = (/ & - &2.7056e-02 ,5.9346e-02 ,7.4992e-02 ,8.5630e-02 ,9.5820e-02 ,1.0325e-01 , & - &1.0105e-01 ,8.7823e-02 ,1.4877e-01 /) - kao(:, 4,13, 3) = (/ & - &2.6017e-02 ,6.0117e-02 ,7.5313e-02 ,8.5867e-02 ,9.6184e-02 ,1.0321e-01 , & - &9.9567e-02 ,8.6122e-02 ,1.5028e-01 /) - kao(:, 5,13, 3) = (/ & - &2.5188e-02 ,6.1586e-02 ,7.5405e-02 ,8.7449e-02 ,9.7275e-02 ,1.0347e-01 , & - &9.7619e-02 ,8.4749e-02 ,1.5271e-01 /) - kao(:, 1, 1, 4) = (/ & - &2.0140e-01 ,2.2296e-01 ,3.8441e-01 ,7.9237e-01 ,8.6626e-01 ,8.2263e-01 , & - &7.4305e-01 ,7.5768e-01 ,1.5145e+00 /) - kao(:, 2, 1, 4) = (/ & - &1.9181e-01 ,2.1723e-01 ,4.1174e-01 ,7.7988e-01 ,8.4188e-01 ,7.8979e-01 , & - &7.0362e-01 ,7.1757e-01 ,1.4753e+00 /) - kao(:, 3, 1, 4) = (/ & - &1.8358e-01 ,2.1296e-01 ,4.3167e-01 ,7.6375e-01 ,8.2127e-01 ,7.5942e-01 , & - &6.7535e-01 ,6.8460e-01 ,1.4372e+00 /) - kao(:, 4, 1, 4) = (/ & - &1.7731e-01 ,2.0956e-01 ,4.3260e-01 ,7.5378e-01 ,8.0524e-01 ,7.2961e-01 , & - &6.5477e-01 ,6.4648e-01 ,1.3999e+00 /) - kao(:, 5, 1, 4) = (/ & - &1.7164e-01 ,2.1055e-01 ,4.2755e-01 ,7.3334e-01 ,7.8436e-01 ,7.1000e-01 , & - &6.4297e-01 ,6.0884e-01 ,1.3521e+00 /) - kao(:, 1, 2, 4) = (/ & - &1.7302e-01 ,2.0244e-01 ,5.3076e-01 ,6.9942e-01 ,7.3274e-01 ,6.9098e-01 , & - &6.5285e-01 ,6.3638e-01 ,1.2559e+00 /) - kao(:, 2, 2, 4) = (/ & - &1.6489e-01 ,1.9797e-01 ,5.4053e-01 ,6.8204e-01 ,7.0789e-01 ,6.6109e-01 , & - &6.3152e-01 ,6.0382e-01 ,1.2010e+00 /) - kao(:, 3, 2, 4) = (/ & - &1.5760e-01 ,1.9570e-01 ,5.4478e-01 ,6.6415e-01 ,6.8272e-01 ,6.3617e-01 , & - &6.0950e-01 ,5.7193e-01 ,1.1640e+00 /) - kao(:, 4, 2, 4) = (/ & - &1.5184e-01 ,1.9435e-01 ,5.4381e-01 ,6.4780e-01 ,6.6147e-01 ,6.1692e-01 , & - &5.8732e-01 ,5.4197e-01 ,1.1223e+00 /) - kao(:, 5, 2, 4) = (/ & - &1.4698e-01 ,1.9520e-01 ,5.4107e-01 ,6.3896e-01 ,6.4395e-01 ,6.0782e-01 , & - &5.7401e-01 ,5.1623e-01 ,1.0839e+00 /) - kao(:, 1, 3, 4) = (/ & - &1.5095e-01 ,2.3961e-01 ,5.3891e-01 ,5.9274e-01 ,6.0360e-01 ,5.9975e-01 , & - &5.7583e-01 ,5.3639e-01 ,1.0254e+00 /) - kao(:, 2, 3, 4) = (/ & - &1.4378e-01 ,2.4579e-01 ,5.2840e-01 ,5.8072e-01 ,5.8574e-01 ,5.7325e-01 , & - &5.5457e-01 ,5.1150e-01 ,9.9368e-01 /) - kao(:, 3, 3, 4) = (/ & - &1.3744e-01 ,2.5218e-01 ,5.1071e-01 ,5.6679e-01 ,5.6782e-01 ,5.5647e-01 , & - &5.3781e-01 ,4.7984e-01 ,9.5622e-01 /) - kao(:, 4, 3, 4) = (/ & - &1.3182e-01 ,2.5642e-01 ,4.9891e-01 ,5.5373e-01 ,5.5212e-01 ,5.4201e-01 , & - &5.2720e-01 ,4.5497e-01 ,9.3692e-01 /) - kao(:, 5, 3, 4) = (/ & - &1.2736e-01 ,2.6156e-01 ,4.9042e-01 ,5.4609e-01 ,5.4094e-01 ,5.2788e-01 , & - &5.2063e-01 ,4.2896e-01 ,9.1393e-01 /) - kao(:, 1, 4, 4) = (/ & - &1.3296e-01 ,3.0808e-01 ,4.5560e-01 ,5.0161e-01 ,5.1973e-01 ,5.1660e-01 , & - &5.1162e-01 ,4.5889e-01 ,8.7778e-01 /) - kao(:, 2, 4, 4) = (/ & - &1.2659e-01 ,3.1156e-01 ,4.4164e-01 ,4.8779e-01 ,5.0041e-01 ,4.9812e-01 , & - &4.9015e-01 ,4.3243e-01 ,8.4542e-01 /) - kao(:, 3, 4, 4) = (/ & - &1.2094e-01 ,3.1188e-01 ,4.3105e-01 ,4.7578e-01 ,4.8617e-01 ,4.8333e-01 , & - &4.7842e-01 ,4.0299e-01 ,8.1678e-01 /) - kao(:, 4, 4, 4) = (/ & - &1.1593e-01 ,3.1351e-01 ,4.2237e-01 ,4.6451e-01 ,4.7350e-01 ,4.7079e-01 , & - &4.7610e-01 ,3.7858e-01 ,7.9667e-01 /) - kao(:, 5, 4, 4) = (/ & - &1.1150e-01 ,3.1306e-01 ,4.1390e-01 ,4.5362e-01 ,4.6429e-01 ,4.6167e-01 , & - &4.7081e-01 ,3.5772e-01 ,7.7552e-01 /) - kao(:, 1, 5, 4) = (/ & - &1.1755e-01 ,3.2807e-01 ,3.8548e-01 ,4.2521e-01 ,4.4554e-01 ,4.5203e-01 , & - &4.4500e-01 ,3.9225e-01 ,7.4478e-01 /) - kao(:, 2, 5, 4) = (/ & - &1.1209e-01 ,3.1909e-01 ,3.7705e-01 ,4.1235e-01 ,4.2996e-01 ,4.3302e-01 , & - &4.3279e-01 ,3.6494e-01 ,7.1780e-01 /) - kao(:, 3, 5, 4) = (/ & - &1.0716e-01 ,3.1181e-01 ,3.6570e-01 ,3.9834e-01 ,4.1575e-01 ,4.2162e-01 , & - &4.2981e-01 ,3.4051e-01 ,6.9974e-01 /) - kao(:, 4, 5, 4) = (/ & - &1.0275e-01 ,3.0301e-01 ,3.5750e-01 ,3.8990e-01 ,4.0553e-01 ,4.1539e-01 , & - &4.2536e-01 ,3.1843e-01 ,6.8036e-01 /) - kao(:, 5, 5, 4) = (/ & - &9.8998e-02 ,2.9446e-01 ,3.5111e-01 ,3.8417e-01 ,3.9923e-01 ,4.1474e-01 , & - &4.2083e-01 ,3.0243e-01 ,6.6644e-01 /) - kao(:, 1, 6, 4) = (/ & - &1.0705e-01 ,2.7318e-01 ,3.3208e-01 ,3.6143e-01 ,3.8591e-01 ,3.9313e-01 , & - &3.9284e-01 ,3.3741e-01 ,6.4786e-01 /) - kao(:, 2, 6, 4) = (/ & - &1.0199e-01 ,2.6545e-01 ,3.2251e-01 ,3.5040e-01 ,3.7450e-01 ,3.7890e-01 , & - &3.8585e-01 ,3.0993e-01 ,6.2347e-01 /) - kao(:, 3, 6, 4) = (/ & - &9.7437e-02 ,2.5576e-01 ,3.1499e-01 ,3.4107e-01 ,3.6300e-01 ,3.7247e-01 , & - &3.8009e-01 ,2.8815e-01 ,6.0580e-01 /) - kao(:, 4, 6, 4) = (/ & - &9.3482e-02 ,2.4922e-01 ,3.0800e-01 ,3.3313e-01 ,3.5414e-01 ,3.7096e-01 , & - &3.7706e-01 ,2.7157e-01 ,5.9892e-01 /) - kao(:, 5, 6, 4) = (/ & - &9.0031e-02 ,2.4481e-01 ,3.0199e-01 ,3.2745e-01 ,3.5204e-01 ,3.7018e-01 , & - &3.6552e-01 ,2.5507e-01 ,5.9364e-01 /) - kao(:, 1, 7, 4) = (/ & - &1.0201e-01 ,2.3487e-01 ,2.8528e-01 ,3.1378e-01 ,3.3635e-01 ,3.4598e-01 , & - &3.4770e-01 ,2.9069e-01 ,5.6026e-01 /) - kao(:, 2, 7, 4) = (/ & - &9.7333e-02 ,2.2730e-01 ,2.7830e-01 ,3.0507e-01 ,3.2187e-01 ,3.3481e-01 , & - &3.4172e-01 ,2.6797e-01 ,5.4227e-01 /) - kao(:, 3, 7, 4) = (/ & - &9.3243e-02 ,2.2136e-01 ,2.6944e-01 ,2.9618e-01 ,3.1454e-01 ,3.2973e-01 , & - &3.3451e-01 ,2.4821e-01 ,5.2884e-01 /) - kao(:, 4, 7, 4) = (/ & - &8.9660e-02 ,2.1638e-01 ,2.6334e-01 ,2.9056e-01 ,3.1245e-01 ,3.2791e-01 , & - &3.2519e-01 ,2.3192e-01 ,5.2407e-01 /) - kao(:, 5, 7, 4) = (/ & - &8.6492e-02 ,2.1156e-01 ,2.5984e-01 ,2.8528e-01 ,3.1573e-01 ,3.2789e-01 , & - &3.1681e-01 ,2.1806e-01 ,5.2688e-01 /) - kao(:, 1, 8, 4) = (/ & - &1.0039e-01 ,2.1049e-01 ,2.5117e-01 ,2.7733e-01 ,2.9294e-01 ,3.0451e-01 , & - &3.0671e-01 ,2.5418e-01 ,4.9108e-01 /) - kao(:, 2, 8, 4) = (/ & - &9.6148e-02 ,2.0539e-01 ,2.4350e-01 ,2.6931e-01 ,2.8451e-01 ,2.9582e-01 , & - &3.0170e-01 ,2.3605e-01 ,4.7511e-01 /) - kao(:, 3, 8, 4) = (/ & - &9.2145e-02 ,2.0009e-01 ,2.3646e-01 ,2.6177e-01 ,2.7896e-01 ,2.9276e-01 , & - &2.9264e-01 ,2.1892e-01 ,4.6537e-01 /) - kao(:, 4, 8, 4) = (/ & - &8.8569e-02 ,1.9568e-01 ,2.3097e-01 ,2.5688e-01 ,2.7814e-01 ,2.9214e-01 , & - &2.8481e-01 ,2.0263e-01 ,4.6603e-01 /) - kao(:, 5, 8, 4) = (/ & - &8.5629e-02 ,1.9094e-01 ,2.2714e-01 ,2.5259e-01 ,2.7953e-01 ,2.8904e-01 , & - &2.7433e-01 ,1.9066e-01 ,4.6777e-01 /) - kao(:, 1, 9, 4) = (/ & - &9.8021e-02 ,1.9151e-01 ,2.2309e-01 ,2.4564e-01 ,2.5865e-01 ,2.6783e-01 , & - &2.6894e-01 ,2.2292e-01 ,4.2854e-01 /) - kao(:, 2, 9, 4) = (/ & - &9.3022e-02 ,1.8527e-01 ,2.1592e-01 ,2.3651e-01 ,2.5064e-01 ,2.6055e-01 , & - &2.6499e-01 ,2.0617e-01 ,4.1580e-01 /) - kao(:, 3, 9, 4) = (/ & - &8.8595e-02 ,1.8097e-01 ,2.1073e-01 ,2.3156e-01 ,2.4703e-01 ,2.5851e-01 , & - &2.5441e-01 ,1.9146e-01 ,4.1005e-01 /) - kao(:, 4, 9, 4) = (/ & - &8.4486e-02 ,1.7670e-01 ,2.0686e-01 ,2.2734e-01 ,2.4622e-01 ,2.5730e-01 , & - &2.4711e-01 ,1.7700e-01 ,4.1054e-01 /) - kao(:, 5, 9, 4) = (/ & - &8.1546e-02 ,1.7284e-01 ,2.0523e-01 ,2.2674e-01 ,2.4921e-01 ,2.5266e-01 , & - &2.3614e-01 ,1.6619e-01 ,4.1551e-01 /) - kao(:, 1,10, 4) = (/ & - &9.1049e-02 ,1.7362e-01 ,1.9833e-01 ,2.1764e-01 ,2.2798e-01 ,2.3471e-01 , & - &2.3646e-01 ,1.9422e-01 ,3.7343e-01 /) - kao(:, 2,10, 4) = (/ & - &8.6996e-02 ,1.6791e-01 ,1.9240e-01 ,2.1075e-01 ,2.2237e-01 ,2.2936e-01 , & - &2.3178e-01 ,1.7985e-01 ,3.6356e-01 /) - kao(:, 3,10, 4) = (/ & - &8.2800e-02 ,1.6395e-01 ,1.8777e-01 ,2.0552e-01 ,2.1940e-01 ,2.2862e-01 , & - &2.2169e-01 ,1.6614e-01 ,3.6046e-01 /) - kao(:, 4,10, 4) = (/ & - &7.8811e-02 ,1.5975e-01 ,1.8561e-01 ,2.0375e-01 ,2.1988e-01 ,2.2450e-01 , & - &2.1345e-01 ,1.5492e-01 ,3.6096e-01 /) - kao(:, 5,10, 4) = (/ & - &7.5529e-02 ,1.5650e-01 ,1.8353e-01 ,2.0505e-01 ,2.1950e-01 ,2.1739e-01 , & - &2.0454e-01 ,1.4507e-01 ,3.6055e-01 /) - kao(:, 1,11, 4) = (/ & - &7.7672e-02 ,1.5145e-01 ,1.7382e-01 ,1.8990e-01 ,1.9990e-01 ,2.0432e-01 , & - &2.0547e-01 ,1.6386e-01 ,3.1843e-01 /) - kao(:, 2,11, 4) = (/ & - &7.3723e-02 ,1.4611e-01 ,1.6807e-01 ,1.8489e-01 ,1.9610e-01 ,2.0254e-01 , & - &1.9720e-01 ,1.5217e-01 ,3.1488e-01 /) - kao(:, 3,11, 4) = (/ & - &7.0457e-02 ,1.4249e-01 ,1.6412e-01 ,1.8266e-01 ,1.9585e-01 ,1.9778e-01 , & - &1.8906e-01 ,1.4085e-01 ,3.1421e-01 /) - kao(:, 4,11, 4) = (/ & - &6.7094e-02 ,1.3863e-01 ,1.6386e-01 ,1.8321e-01 ,1.9415e-01 ,1.9186e-01 , & - &1.8023e-01 ,1.3105e-01 ,3.1088e-01 /) - kao(:, 5,11, 4) = (/ & - &6.4100e-02 ,1.3524e-01 ,1.6357e-01 ,1.8497e-01 ,1.9137e-01 ,1.8498e-01 , & - &1.7319e-01 ,1.2321e-01 ,3.0324e-01 /) - kao(:, 1,12, 4) = (/ & - &6.6765e-02 ,1.2994e-01 ,1.4944e-01 ,1.6445e-01 ,1.7587e-01 ,1.8101e-01 , & - &1.7769e-01 ,1.3984e-01 ,2.7673e-01 /) - kao(:, 2,12, 4) = (/ & - &6.3023e-02 ,1.2593e-01 ,1.4588e-01 ,1.6162e-01 ,1.7387e-01 ,1.7653e-01 , & - &1.6990e-01 ,1.2980e-01 ,2.7397e-01 /) - kao(:, 3,12, 4) = (/ & - &6.0078e-02 ,1.2173e-01 ,1.4433e-01 ,1.6136e-01 ,1.7141e-01 ,1.7100e-01 , & - &1.6190e-01 ,1.2017e-01 ,2.6912e-01 /) - kao(:, 4,12, 4) = (/ & - &5.7591e-02 ,1.1797e-01 ,1.4432e-01 ,1.6200e-01 ,1.6903e-01 ,1.6549e-01 , & - &1.5510e-01 ,1.1177e-01 ,2.6329e-01 /) - kao(:, 5,12, 4) = (/ & - &5.5506e-02 ,1.1583e-01 ,1.4556e-01 ,1.5779e-01 ,1.6302e-01 ,1.5857e-01 , & - &1.4926e-01 ,1.0509e-01 ,2.5258e-01 /) - kao(:, 1,13, 4) = (/ & - &5.9522e-02 ,1.1440e-01 ,1.3268e-01 ,1.4518e-01 ,1.5668e-01 ,1.6016e-01 , & - &1.5672e-01 ,1.2200e-01 ,2.4269e-01 /) - kao(:, 2,13, 4) = (/ & - &5.6603e-02 ,1.1049e-01 ,1.3023e-01 ,1.4451e-01 ,1.5437e-01 ,1.5452e-01 , & - &1.4924e-01 ,1.1346e-01 ,2.3750e-01 /) - kao(:, 3,13, 4) = (/ & - &5.4101e-02 ,1.0639e-01 ,1.2967e-01 ,1.4482e-01 ,1.5052e-01 ,1.4869e-01 , & - &1.4191e-01 ,1.0569e-01 ,2.3366e-01 /) - kao(:, 4,13, 4) = (/ & - &5.1959e-02 ,1.0421e-01 ,1.3053e-01 ,1.4062e-01 ,1.4577e-01 ,1.4358e-01 , & - &1.3605e-01 ,9.8273e-02 ,2.2442e-01 /) - kao(:, 5,13, 4) = (/ & - &4.9821e-02 ,1.0307e-01 ,1.3162e-01 ,1.3605e-01 ,1.4048e-01 ,1.3772e-01 , & - &1.3142e-01 ,9.2354e-02 ,2.1552e-01 /) - kao(:, 1, 1, 5) = (/ & - &4.4662e-01 ,4.5491e-01 ,4.6518e-01 ,4.8073e-01 ,9.6301e-01 ,1.0662e+00 , & - &9.6837e-01 ,6.1516e-01 ,1.5492e+00 /) - kao(:, 2, 1, 5) = (/ & - &4.3070e-01 ,4.3901e-01 ,4.4894e-01 ,4.8843e-01 ,9.7366e-01 ,1.0185e+00 , & - &9.1919e-01 ,5.9289e-01 ,1.4372e+00 /) - kao(:, 3, 1, 5) = (/ & - &4.1920e-01 ,4.2623e-01 ,4.3584e-01 ,5.1853e-01 ,9.4077e-01 ,9.6967e-01 , & - &8.7962e-01 ,5.7716e-01 ,1.3511e+00 /) - kao(:, 4, 1, 5) = (/ & - &4.1320e-01 ,4.1951e-01 ,4.2768e-01 ,5.3113e-01 ,8.9548e-01 ,9.3086e-01 , & - &8.2656e-01 ,5.7871e-01 ,1.2540e+00 /) - kao(:, 5, 1, 5) = (/ & - &4.1049e-01 ,4.1583e-01 ,4.2551e-01 ,5.4820e-01 ,8.6249e-01 ,8.9543e-01 , & - &7.7827e-01 ,5.9312e-01 ,1.1774e+00 /) - kao(:, 1, 2, 5) = (/ & - &3.7419e-01 ,3.9315e-01 ,4.1387e-01 ,7.3684e-01 ,9.3729e-01 ,9.5798e-01 , & - &8.1977e-01 ,5.4534e-01 ,1.3830e+00 /) - kao(:, 2, 2, 5) = (/ & - &3.6046e-01 ,3.7870e-01 ,3.9949e-01 ,7.5022e-01 ,8.9119e-01 ,9.0575e-01 , & - &7.6682e-01 ,5.2408e-01 ,1.3014e+00 /) - kao(:, 3, 2, 5) = (/ & - &3.5058e-01 ,3.6732e-01 ,3.9129e-01 ,7.6077e-01 ,8.5537e-01 ,8.6853e-01 , & - &7.2131e-01 ,5.2368e-01 ,1.1992e+00 /) - kao(:, 4, 2, 5) = (/ & - &3.4363e-01 ,3.5974e-01 ,3.8593e-01 ,7.6592e-01 ,8.1963e-01 ,8.3241e-01 , & - &6.8939e-01 ,5.2630e-01 ,1.1280e+00 /) - kao(:, 5, 2, 5) = (/ & - &3.4117e-01 ,3.5633e-01 ,3.8040e-01 ,7.4257e-01 ,7.9365e-01 ,7.8846e-01 , & - &6.5921e-01 ,5.2675e-01 ,1.0716e+00 /) - kao(:, 1, 3, 5) = (/ & - &3.1617e-01 ,3.4533e-01 ,4.9004e-01 ,8.0662e-01 ,8.6490e-01 ,8.2831e-01 , & - &6.9369e-01 ,4.9053e-01 ,1.2685e+00 /) - kao(:, 2, 3, 5) = (/ & - &3.0386e-01 ,3.3185e-01 ,4.9271e-01 ,7.6499e-01 ,8.1967e-01 ,7.8960e-01 , & - &6.4565e-01 ,4.7244e-01 ,1.1699e+00 /) - kao(:, 3, 3, 5) = (/ & - &2.9464e-01 ,3.2055e-01 ,5.0043e-01 ,7.2785e-01 ,7.8235e-01 ,7.5123e-01 , & - &6.1372e-01 ,4.7097e-01 ,1.0909e+00 /) - kao(:, 4, 3, 5) = (/ & - &2.8765e-01 ,3.1339e-01 ,5.0754e-01 ,6.9697e-01 ,7.5208e-01 ,7.1843e-01 , & - &5.8571e-01 ,4.6400e-01 ,1.0036e+00 /) - kao(:, 5, 3, 5) = (/ & - &2.8344e-01 ,3.0751e-01 ,5.1242e-01 ,6.6855e-01 ,7.1995e-01 ,6.9218e-01 , & - &5.7184e-01 ,4.7451e-01 ,9.2127e-01 /) - kao(:, 1, 4, 5) = (/ & - &2.6775e-01 ,3.0604e-01 ,6.4660e-01 ,7.3076e-01 ,7.6521e-01 ,7.2923e-01 , & - &5.8618e-01 ,4.3353e-01 ,1.1015e+00 /) - kao(:, 2, 4, 5) = (/ & - &2.5632e-01 ,2.9306e-01 ,6.2522e-01 ,6.9215e-01 ,7.2674e-01 ,6.8433e-01 , & - &5.5230e-01 ,4.1918e-01 ,1.0081e+00 /) - kao(:, 3, 4, 5) = (/ & - &2.4780e-01 ,2.8292e-01 ,5.9390e-01 ,6.5413e-01 ,6.8773e-01 ,6.5028e-01 , & - &5.2160e-01 ,4.1724e-01 ,9.3062e-01 /) - kao(:, 4, 4, 5) = (/ & - &2.4100e-01 ,2.7551e-01 ,5.7041e-01 ,6.2793e-01 ,6.5534e-01 ,6.2452e-01 , & - &5.0866e-01 ,4.1719e-01 ,8.4917e-01 /) - kao(:, 5, 4, 5) = (/ & - &2.3658e-01 ,2.6967e-01 ,5.4813e-01 ,6.0747e-01 ,6.2636e-01 ,5.9897e-01 , & - &4.9899e-01 ,4.2737e-01 ,7.8635e-01 /) - kao(:, 1, 5, 5) = (/ & - &2.2714e-01 ,3.0892e-01 ,5.8868e-01 ,6.5760e-01 ,6.7083e-01 ,6.2555e-01 , & - &5.1259e-01 ,3.8131e-01 ,9.5049e-01 /) - kao(:, 2, 5, 5) = (/ & - &2.1666e-01 ,3.0798e-01 ,5.5062e-01 ,6.2165e-01 ,6.2939e-01 ,5.9031e-01 , & - &4.8040e-01 ,3.7074e-01 ,8.6898e-01 /) - kao(:, 3, 5, 5) = (/ & - &2.0871e-01 ,3.0702e-01 ,5.2691e-01 ,5.8794e-01 ,5.9599e-01 ,5.6236e-01 , & - &4.6150e-01 ,3.6395e-01 ,7.8288e-01 /) - kao(:, 4, 5, 5) = (/ & - &2.0276e-01 ,3.0943e-01 ,5.0433e-01 ,5.5988e-01 ,5.6518e-01 ,5.3494e-01 , & - &4.4833e-01 ,3.6773e-01 ,7.2419e-01 /) - kao(:, 5, 5, 5) = (/ & - &1.9892e-01 ,3.1215e-01 ,4.8278e-01 ,5.3676e-01 ,5.4170e-01 ,5.0924e-01 , & - &4.4109e-01 ,3.7855e-01 ,6.8358e-01 /) - kao(:, 1, 6, 5) = (/ & - &1.9298e-01 ,3.8310e-01 ,5.2601e-01 ,5.8117e-01 ,5.8505e-01 ,5.4459e-01 , & - &4.4513e-01 ,3.3639e-01 ,8.1804e-01 /) - kao(:, 2, 6, 5) = (/ & - &1.8380e-01 ,3.7978e-01 ,4.9784e-01 ,5.4325e-01 ,5.4503e-01 ,5.1006e-01 , & - &4.1750e-01 ,3.2606e-01 ,7.4136e-01 /) - kao(:, 3, 6, 5) = (/ & - &1.7694e-01 ,3.8180e-01 ,4.7027e-01 ,5.1699e-01 ,5.1079e-01 ,4.8235e-01 , & - &4.0208e-01 ,3.2052e-01 ,6.7777e-01 /) - kao(:, 4, 6, 5) = (/ & - &1.7133e-01 ,3.7179e-01 ,4.4558e-01 ,4.8630e-01 ,4.9002e-01 ,4.5737e-01 , & - &3.9155e-01 ,3.2262e-01 ,6.2593e-01 /) - kao(:, 5, 6, 5) = (/ & - &1.6754e-01 ,3.5443e-01 ,4.2444e-01 ,4.6383e-01 ,4.6954e-01 ,4.4064e-01 , & - &3.8904e-01 ,3.3286e-01 ,5.7664e-01 /) - kao(:, 1, 7, 5) = (/ & - &1.6680e-01 ,3.8673e-01 ,4.6977e-01 ,5.0982e-01 ,5.0645e-01 ,4.7419e-01 , & - &3.9067e-01 ,2.9795e-01 ,7.1500e-01 /) - kao(:, 2, 7, 5) = (/ & - &1.5848e-01 ,3.6483e-01 ,4.3657e-01 ,4.7719e-01 ,4.7339e-01 ,4.4276e-01 , & - &3.6591e-01 ,2.8456e-01 ,6.4266e-01 /) - kao(:, 3, 7, 5) = (/ & - &1.5206e-01 ,3.4607e-01 ,4.1294e-01 ,4.4755e-01 ,4.4747e-01 ,4.1880e-01 , & - &3.5274e-01 ,2.8027e-01 ,5.8922e-01 /) - kao(:, 4, 7, 5) = (/ & - &1.4707e-01 ,3.2827e-01 ,3.9251e-01 ,4.2303e-01 ,4.2524e-01 ,3.9890e-01 , & - &3.4920e-01 ,2.8325e-01 ,5.4340e-01 /) - kao(:, 5, 7, 5) = (/ & - &1.4361e-01 ,3.1545e-01 ,3.7348e-01 ,4.0710e-01 ,4.0646e-01 ,3.8591e-01 , & - &3.3880e-01 ,2.9285e-01 ,5.0986e-01 /) - kao(:, 1, 8, 5) = (/ & - &1.4820e-01 ,3.5091e-01 ,4.2013e-01 ,4.5147e-01 ,4.5056e-01 ,4.1729e-01 , & - &3.4786e-01 ,2.6599e-01 ,6.3121e-01 /) - kao(:, 2, 8, 5) = (/ & - &1.4070e-01 ,3.2895e-01 ,3.9148e-01 ,4.1739e-01 ,4.1786e-01 ,3.8937e-01 , & - &3.2642e-01 ,2.5048e-01 ,5.6833e-01 /) - kao(:, 3, 8, 5) = (/ & - &1.3491e-01 ,3.1064e-01 ,3.6928e-01 ,3.9231e-01 ,3.9615e-01 ,3.7023e-01 , & - &3.1619e-01 ,2.4413e-01 ,5.2283e-01 /) - kao(:, 4, 8, 5) = (/ & - &1.3040e-01 ,2.9486e-01 ,3.4865e-01 ,3.7267e-01 ,3.7585e-01 ,3.5308e-01 , & - &3.1289e-01 ,2.4763e-01 ,4.8158e-01 /) - kao(:, 5, 8, 5) = (/ & - &1.2713e-01 ,2.8372e-01 ,3.3299e-01 ,3.5768e-01 ,3.6293e-01 ,3.4468e-01 , & - &2.9924e-01 ,2.5414e-01 ,4.5058e-01 /) - kao(:, 1, 9, 5) = (/ & - &1.3333e-01 ,3.1732e-01 ,3.7806e-01 ,3.9822e-01 ,3.9576e-01 ,3.6830e-01 , & - &3.0959e-01 ,2.3751e-01 ,5.5734e-01 /) - kao(:, 2, 9, 5) = (/ & - &1.2728e-01 ,2.9745e-01 ,3.4973e-01 ,3.7018e-01 ,3.6774e-01 ,3.4366e-01 , & - &2.8994e-01 ,2.2165e-01 ,5.0172e-01 /) - kao(:, 3, 9, 5) = (/ & - &1.2260e-01 ,2.7734e-01 ,3.2656e-01 ,3.4735e-01 ,3.4508e-01 ,3.2798e-01 , & - &2.8353e-01 ,2.1398e-01 ,4.5989e-01 /) - kao(:, 4, 9, 5) = (/ & - &1.1943e-01 ,2.6308e-01 ,3.0660e-01 ,3.2980e-01 ,3.3173e-01 ,3.1278e-01 , & - &2.7390e-01 ,2.1485e-01 ,4.2942e-01 /) - kao(:, 5, 9, 5) = (/ & - &1.1701e-01 ,2.4928e-01 ,2.9183e-01 ,3.1474e-01 ,3.2039e-01 ,3.0863e-01 , & - &2.6433e-01 ,2.1871e-01 ,3.9836e-01 /) - kao(:, 1,10, 5) = (/ & - &1.2488e-01 ,2.8649e-01 ,3.3436e-01 ,3.5060e-01 ,3.4715e-01 ,3.2381e-01 , & - &2.7352e-01 ,2.0897e-01 ,4.9029e-01 /) - kao(:, 2,10, 5) = (/ & - &1.1908e-01 ,2.6494e-01 ,3.0883e-01 ,3.2464e-01 ,3.2171e-01 ,3.0303e-01 , & - &2.5647e-01 ,1.9520e-01 ,4.4008e-01 /) - kao(:, 3,10, 5) = (/ & - &1.1556e-01 ,2.4763e-01 ,2.8674e-01 ,3.0514e-01 ,3.0302e-01 ,2.8868e-01 , & - &2.5222e-01 ,1.8782e-01 ,4.0842e-01 /) - kao(:, 4,10, 5) = (/ & - &1.1322e-01 ,2.3334e-01 ,2.7126e-01 ,2.8846e-01 ,2.9340e-01 ,2.7863e-01 , & - &2.4033e-01 ,1.8521e-01 ,3.8163e-01 /) - kao(:, 5,10, 5) = (/ & - &1.1126e-01 ,2.2285e-01 ,2.5915e-01 ,2.7811e-01 ,2.8680e-01 ,2.7376e-01 , & - &2.3030e-01 ,1.8823e-01 ,3.5861e-01 /) - kao(:, 1,11, 5) = (/ & - &1.2133e-01 ,2.4900e-01 ,2.8640e-01 ,2.9703e-01 ,2.9301e-01 ,2.7475e-01 , & - &2.3250e-01 ,1.7899e-01 ,4.0785e-01 /) - kao(:, 2,11, 5) = (/ & - &1.1707e-01 ,2.3382e-01 ,2.6584e-01 ,2.7776e-01 ,2.7455e-01 ,2.6096e-01 , & - &2.2631e-01 ,1.6847e-01 ,3.7573e-01 /) - kao(:, 3,11, 5) = (/ & - &1.1375e-01 ,2.1845e-01 ,2.5115e-01 ,2.6117e-01 ,2.6335e-01 ,2.5113e-01 , & - &2.1653e-01 ,1.6132e-01 ,3.4922e-01 /) - kao(:, 4,11, 5) = (/ & - &1.1166e-01 ,2.0864e-01 ,2.3761e-01 ,2.5163e-01 ,2.5840e-01 ,2.4419e-01 , & - &2.0592e-01 ,1.6130e-01 ,3.3156e-01 /) - kao(:, 5,11, 5) = (/ & - &1.1026e-01 ,2.0025e-01 ,2.2827e-01 ,2.4711e-01 ,2.5459e-01 ,2.3449e-01 , & - &1.9737e-01 ,1.6301e-01 ,3.1155e-01 /) - kao(:, 1,12, 5) = (/ & - &1.2068e-01 ,2.2498e-01 ,2.5241e-01 ,2.6093e-01 ,2.5316e-01 ,2.3830e-01 , & - &2.0580e-01 ,1.5434e-01 ,3.4650e-01 /) - kao(:, 2,12, 5) = (/ & - &1.1732e-01 ,2.1063e-01 ,2.3754e-01 ,2.4422e-01 ,2.4130e-01 ,2.2913e-01 , & - &1.9581e-01 ,1.4538e-01 ,3.2419e-01 /) - kao(:, 3,12, 5) = (/ & - &1.1291e-01 ,2.0050e-01 ,2.2356e-01 ,2.3528e-01 ,2.3734e-01 ,2.2099e-01 , & - &1.8732e-01 ,1.4169e-01 ,3.0809e-01 /) - kao(:, 4,12, 5) = (/ & - &1.0801e-01 ,1.9213e-01 ,2.1514e-01 ,2.2964e-01 ,2.3229e-01 ,2.1151e-01 , & - &1.7615e-01 ,1.4140e-01 ,2.8807e-01 /) - kao(:, 5,12, 5) = (/ & - &1.0409e-01 ,1.8478e-01 ,2.0856e-01 ,2.2937e-01 ,2.2388e-01 ,2.0038e-01 , & - &1.7052e-01 ,1.4327e-01 ,2.6150e-01 /) - kao(:, 1,13, 5) = (/ & - &1.1514e-01 ,2.0822e-01 ,2.3178e-01 ,2.3757e-01 ,2.2988e-01 ,2.1559e-01 , & - &1.8505e-01 ,1.3755e-01 ,3.0255e-01 /) - kao(:, 2,13, 5) = (/ & - &1.0856e-01 ,1.9378e-01 ,2.1572e-01 ,2.2466e-01 ,2.2140e-01 ,2.1071e-01 , & - &1.7476e-01 ,1.2903e-01 ,2.8912e-01 /) - kao(:, 3,13, 5) = (/ & - &1.0257e-01 ,1.8315e-01 ,2.0306e-01 ,2.1501e-01 ,2.1837e-01 ,1.9973e-01 , & - &1.6546e-01 ,1.2594e-01 ,2.7440e-01 /) - kao(:, 4,13, 5) = (/ & - &9.7502e-02 ,1.7382e-01 ,1.9450e-01 ,2.1448e-01 ,2.0917e-01 ,1.8735e-01 , & - &1.5671e-01 ,1.2605e-01 ,2.4875e-01 /) - kao(:, 5,13, 5) = (/ & - &9.4048e-02 ,1.6507e-01 ,1.8951e-01 ,2.1087e-01 ,1.9884e-01 ,1.7732e-01 , & - &1.5188e-01 ,1.2757e-01 ,2.1998e-01 /) - kao(:, 1, 1, 6) = (/ & - &1.2242e+00 ,1.1159e+00 ,1.0120e+00 ,9.1389e-01 ,8.1856e-01 ,1.1483e+00 , & - &9.8709e-01 ,9.2159e-01 ,4.7502e-01 /) - kao(:, 2, 1, 6) = (/ & - &1.1928e+00 ,1.0903e+00 ,9.9311e-01 ,9.0065e-01 ,8.3223e-01 ,1.1145e+00 , & - &9.5738e-01 ,9.2153e-01 ,6.9449e-01 /) - kao(:, 3, 1, 6) = (/ & - &1.1808e+00 ,1.0824e+00 ,9.8824e-01 ,8.9828e-01 ,8.9586e-01 ,1.0864e+00 , & - &9.3281e-01 ,9.2795e-01 ,8.4213e-01 /) - kao(:, 4, 1, 6) = (/ & - &1.1721e+00 ,1.0760e+00 ,9.8481e-01 ,8.9679e-01 ,9.5583e-01 ,1.0646e+00 , & - &9.4941e-01 ,9.2047e-01 ,8.5863e-01 /) - kao(:, 5, 1, 6) = (/ & - &1.1790e+00 ,1.0814e+00 ,9.8996e-01 ,8.9927e-01 ,1.0035e+00 ,1.0346e+00 , & - &9.5167e-01 ,9.2657e-01 ,7.2509e-01 /) - kao(:, 1, 2, 6) = (/ & - &1.0264e+00 ,9.4284e-01 ,8.6709e-01 ,7.9559e-01 ,1.1080e+00 ,1.0254e+00 , & - &9.2224e-01 ,8.7122e-01 ,1.0512e+00 /) - kao(:, 2, 2, 6) = (/ & - &1.0018e+00 ,9.2359e-01 ,8.5299e-01 ,7.8672e-01 ,1.0674e+00 ,9.8417e-01 , & - &8.9700e-01 ,8.6779e-01 ,9.4293e-01 /) - kao(:, 3, 2, 6) = (/ & - &9.8988e-01 ,9.1596e-01 ,8.4833e-01 ,7.8816e-01 ,1.0499e+00 ,9.5536e-01 , & - &8.7579e-01 ,8.5648e-01 ,8.1445e-01 /) - kao(:, 4, 2, 6) = (/ & - &9.8822e-01 ,9.1536e-01 ,8.4663e-01 ,7.9377e-01 ,1.0292e+00 ,9.3843e-01 , & - &8.7227e-01 ,8.6174e-01 ,7.0730e-01 /) - kao(:, 5, 2, 6) = (/ & - &9.8800e-01 ,9.1393e-01 ,8.4855e-01 ,8.2484e-01 ,1.0072e+00 ,9.4807e-01 , & - &8.8827e-01 ,8.7216e-01 ,5.9331e-01 /) - kao(:, 1, 3, 6) = (/ & - &8.6794e-01 ,8.0430e-01 ,7.5031e-01 ,8.9541e-01 ,1.0214e+00 ,9.4865e-01 , & - &8.5821e-01 ,7.9700e-01 ,8.7719e-01 /) - kao(:, 2, 3, 6) = (/ & - &8.4313e-01 ,7.8532e-01 ,7.3608e-01 ,9.3906e-01 ,9.7060e-01 ,9.0816e-01 , & - &8.3425e-01 ,7.9621e-01 ,7.6329e-01 /) - kao(:, 3, 3, 6) = (/ & - &8.3157e-01 ,7.7858e-01 ,7.3266e-01 ,9.5972e-01 ,9.4116e-01 ,8.8096e-01 , & - &8.0848e-01 ,7.9477e-01 ,6.5966e-01 /) - kao(:, 4, 3, 6) = (/ & - &8.2987e-01 ,7.7678e-01 ,7.3040e-01 ,9.3971e-01 ,9.0923e-01 ,8.7002e-01 , & - &8.0556e-01 ,8.1217e-01 ,6.0022e-01 /) - kao(:, 5, 3, 6) = (/ & - &8.2093e-01 ,7.6968e-01 ,7.2610e-01 ,9.2404e-01 ,8.9670e-01 ,8.5391e-01 , & - &7.9373e-01 ,8.1610e-01 ,5.3117e-01 /) - kao(:, 1, 4, 6) = (/ & - &7.3504e-01 ,6.8896e-01 ,6.5474e-01 ,9.5125e-01 ,9.3510e-01 ,8.8191e-01 , & - &7.8339e-01 ,7.2709e-01 ,7.9136e-01 /) - kao(:, 2, 4, 6) = (/ & - &7.1205e-01 ,6.7167e-01 ,6.7088e-01 ,9.0689e-01 ,8.7886e-01 ,8.4133e-01 , & - &7.6196e-01 ,7.2232e-01 ,6.9067e-01 /) - kao(:, 3, 4, 6) = (/ & - &7.0055e-01 ,6.6424e-01 ,7.0492e-01 ,8.8094e-01 ,8.5026e-01 ,8.0832e-01 , & - &7.4494e-01 ,7.3074e-01 ,6.1263e-01 /) - kao(:, 4, 4, 6) = (/ & - &6.9588e-01 ,6.6015e-01 ,7.3043e-01 ,8.5040e-01 ,8.2745e-01 ,7.8458e-01 , & - &7.3728e-01 ,7.3901e-01 ,5.3700e-01 /) - kao(:, 5, 4, 6) = (/ & - &6.8558e-01 ,6.5206e-01 ,7.5371e-01 ,8.2365e-01 ,8.2063e-01 ,7.6670e-01 , & - &7.3328e-01 ,7.4717e-01 ,4.4797e-01 /) - kao(:, 1, 5, 6) = (/ & - &6.2240e-01 ,5.9202e-01 ,7.9818e-01 ,8.6221e-01 ,8.4556e-01 ,7.9840e-01 , & - &7.0353e-01 ,6.4834e-01 ,7.3196e-01 /) - kao(:, 2, 5, 6) = (/ & - &6.0152e-01 ,5.7633e-01 ,8.0789e-01 ,8.1513e-01 ,8.0789e-01 ,7.5099e-01 , & - &6.7710e-01 ,6.4945e-01 ,6.3067e-01 /) - kao(:, 3, 5, 6) = (/ & - &5.8999e-01 ,5.6942e-01 ,7.6969e-01 ,7.8647e-01 ,7.7674e-01 ,7.1468e-01 , & - &6.6534e-01 ,6.5860e-01 ,5.4173e-01 /) - kao(:, 4, 5, 6) = (/ & - &5.8241e-01 ,5.6326e-01 ,7.5015e-01 ,7.6096e-01 ,7.5392e-01 ,6.9429e-01 , & - &6.6094e-01 ,6.6621e-01 ,4.4433e-01 /) - kao(:, 5, 5, 6) = (/ & - &5.7098e-01 ,5.5310e-01 ,7.2743e-01 ,7.3939e-01 ,7.3730e-01 ,6.8982e-01 , & - &6.6680e-01 ,6.6632e-01 ,3.5896e-01 /) - kao(:, 1, 6, 6) = (/ & - &5.2885e-01 ,5.1244e-01 ,7.5494e-01 ,7.8724e-01 ,7.7080e-01 ,7.0256e-01 , & - &6.2568e-01 ,5.6883e-01 ,6.4732e-01 /) - kao(:, 2, 6, 6) = (/ & - &5.0860e-01 ,4.9747e-01 ,7.1101e-01 ,7.4294e-01 ,7.2488e-01 ,6.6139e-01 , & - &6.0894e-01 ,5.7630e-01 ,5.5132e-01 /) - kao(:, 3, 6, 6) = (/ & - &4.9680e-01 ,4.8858e-01 ,6.8601e-01 ,7.0262e-01 ,6.9083e-01 ,6.2832e-01 , & - &5.9581e-01 ,5.8177e-01 ,4.5843e-01 /) - kao(:, 4, 6, 6) = (/ & - &4.8828e-01 ,4.9338e-01 ,6.6185e-01 ,6.8834e-01 ,6.6433e-01 ,6.1518e-01 , & - &5.9405e-01 ,5.8713e-01 ,3.7286e-01 /) - kao(:, 5, 6, 6) = (/ & - &4.7758e-01 ,5.0393e-01 ,6.4306e-01 ,6.6695e-01 ,6.4365e-01 ,6.0629e-01 , & - &5.9623e-01 ,5.8994e-01 ,3.0878e-01 /) - kao(:, 1, 7, 6) = (/ & - &4.5544e-01 ,5.1675e-01 ,6.9040e-01 ,7.2442e-01 ,6.9583e-01 ,6.2374e-01 , & - &5.5330e-01 ,4.9819e-01 ,5.7066e-01 /) - kao(:, 2, 7, 6) = (/ & - &4.3526e-01 ,5.2433e-01 ,6.5887e-01 ,6.7132e-01 ,6.4888e-01 ,5.8229e-01 , & - &5.3592e-01 ,5.0387e-01 ,4.7263e-01 /) - kao(:, 3, 7, 6) = (/ & - &4.2386e-01 ,5.3503e-01 ,6.2067e-01 ,6.3646e-01 ,6.0983e-01 ,5.5722e-01 , & - &5.2827e-01 ,5.1003e-01 ,3.8891e-01 /) - kao(:, 4, 7, 6) = (/ & - &4.1478e-01 ,5.3714e-01 ,5.9921e-01 ,6.0957e-01 ,5.8334e-01 ,5.4159e-01 , & - &5.2418e-01 ,5.1278e-01 ,3.1885e-01 /) - kao(:, 5, 7, 6) = (/ & - &4.0467e-01 ,5.2009e-01 ,5.7701e-01 ,5.8575e-01 ,5.6859e-01 ,5.4155e-01 , & - &5.3930e-01 ,5.1710e-01 ,2.6235e-01 /) - kao(:, 1, 8, 6) = (/ & - &4.0091e-01 ,5.6115e-01 ,6.4335e-01 ,6.5229e-01 ,6.2013e-01 ,5.5832e-01 , & - &4.9333e-01 ,4.3362e-01 ,5.1143e-01 /) - kao(:, 2, 8, 6) = (/ & - &3.8169e-01 ,5.2953e-01 ,5.9829e-01 ,6.0811e-01 ,5.7734e-01 ,5.1950e-01 , & - &4.7393e-01 ,4.3986e-01 ,4.2322e-01 /) - kao(:, 3, 8, 6) = (/ & - &3.7078e-01 ,5.0436e-01 ,5.6958e-01 ,5.7197e-01 ,5.3831e-01 ,4.9299e-01 , & - &4.6737e-01 ,4.4557e-01 ,3.4628e-01 /) - kao(:, 4, 8, 6) = (/ & - &3.6161e-01 ,4.8989e-01 ,5.4426e-01 ,5.4657e-01 ,5.1938e-01 ,4.8189e-01 , & - &4.6346e-01 ,4.4852e-01 ,2.8491e-01 /) - kao(:, 5, 8, 6) = (/ & - &3.5235e-01 ,4.6785e-01 ,5.2499e-01 ,5.2434e-01 ,5.0210e-01 ,4.7954e-01 , & - &4.8680e-01 ,4.5258e-01 ,2.3809e-01 /) - kao(:, 1, 9, 6) = (/ & - &3.5188e-01 ,5.0784e-01 ,5.8680e-01 ,5.8599e-01 ,5.5453e-01 ,4.9355e-01 , & - &4.3434e-01 ,3.7345e-01 ,4.5760e-01 /) - kao(:, 2, 9, 6) = (/ & - &3.3384e-01 ,4.7725e-01 ,5.4527e-01 ,5.4039e-01 ,5.1277e-01 ,4.6053e-01 , & - &4.1752e-01 ,3.8054e-01 ,3.7664e-01 /) - kao(:, 3, 9, 6) = (/ & - &3.2337e-01 ,4.6079e-01 ,5.0889e-01 ,5.0540e-01 ,4.8167e-01 ,4.3259e-01 , & - &4.1005e-01 ,3.8447e-01 ,3.0502e-01 /) - kao(:, 4, 9, 6) = (/ & - &3.1489e-01 ,4.4224e-01 ,4.8906e-01 ,4.8098e-01 ,4.5962e-01 ,4.2889e-01 , & - &4.1407e-01 ,3.8891e-01 ,2.4901e-01 /) - kao(:, 5, 9, 6) = (/ & - &3.0731e-01 ,4.2604e-01 ,4.6542e-01 ,4.6457e-01 ,4.4425e-01 ,4.2325e-01 , & - &4.3000e-01 ,3.9500e-01 ,2.1365e-01 /) - kao(:, 1,10, 6) = (/ & - &3.0872e-01 ,4.6438e-01 ,5.2605e-01 ,5.1940e-01 ,4.8758e-01 ,4.3435e-01 , & - &3.8048e-01 ,3.2415e-01 ,4.0329e-01 /) - kao(:, 2,10, 6) = (/ & - &2.9295e-01 ,4.4115e-01 ,4.8348e-01 ,4.7740e-01 ,4.4909e-01 ,4.0221e-01 , & - &3.6624e-01 ,3.2721e-01 ,3.3011e-01 /) - kao(:, 3,10, 6) = (/ & - &2.8328e-01 ,4.1772e-01 ,4.5515e-01 ,4.4741e-01 ,4.2330e-01 ,3.8012e-01 , & - &3.5851e-01 ,3.3085e-01 ,2.6425e-01 /) - kao(:, 4,10, 6) = (/ & - &2.7562e-01 ,4.0009e-01 ,4.2827e-01 ,4.2695e-01 ,4.0250e-01 ,3.7844e-01 , & - &3.6844e-01 ,3.3695e-01 ,2.1886e-01 /) - kao(:, 5,10, 6) = (/ & - &2.6849e-01 ,3.8403e-01 ,4.1066e-01 ,4.0861e-01 ,3.9231e-01 ,3.7926e-01 , & - &3.7696e-01 ,3.4332e-01 ,1.9262e-01 /) - kao(:, 1,11, 6) = (/ & - &2.6466e-01 ,4.1355e-01 ,4.4454e-01 ,4.4042e-01 ,4.1233e-01 ,3.6752e-01 , & - &3.2678e-01 ,2.7894e-01 ,3.2749e-01 /) - kao(:, 2,11, 6) = (/ & - &2.5291e-01 ,3.8781e-01 ,4.1430e-01 ,4.0659e-01 ,3.8277e-01 ,3.4153e-01 , & - &3.1495e-01 ,2.7988e-01 ,2.6257e-01 /) - kao(:, 3,11, 6) = (/ & - &2.4541e-01 ,3.7100e-01 ,3.8849e-01 ,3.8315e-01 ,3.6055e-01 ,3.3569e-01 , & - &3.1896e-01 ,2.8851e-01 ,2.1720e-01 /) - kao(:, 4,11, 6) = (/ & - &2.3761e-01 ,3.4992e-01 ,3.7138e-01 ,3.6645e-01 ,3.4895e-01 ,3.3415e-01 , & - &3.2576e-01 ,2.9375e-01 ,1.9101e-01 /) - kao(:, 5,11, 6) = (/ & - &2.3136e-01 ,3.3422e-01 ,3.5550e-01 ,3.5462e-01 ,3.4596e-01 ,3.4410e-01 , & - &3.3336e-01 ,3.0010e-01 ,1.7683e-01 /) - kao(:, 1,12, 6) = (/ & - &2.3099e-01 ,3.6467e-01 ,3.8654e-01 ,3.7740e-01 ,3.5454e-01 ,3.1341e-01 , & - &2.8207e-01 ,2.4141e-01 ,2.7098e-01 /) - kao(:, 2,12, 6) = (/ & - &2.2244e-01 ,3.4190e-01 ,3.5753e-01 ,3.5048e-01 ,3.3109e-01 ,2.9786e-01 , & - &2.7909e-01 ,2.4469e-01 ,2.1730e-01 /) - kao(:, 3,12, 6) = (/ & - &2.1694e-01 ,3.2183e-01 ,3.3982e-01 ,3.3193e-01 ,3.1521e-01 ,2.9823e-01 , & - &2.8101e-01 ,2.4988e-01 ,1.8539e-01 /) - kao(:, 4,12, 6) = (/ & - &2.1365e-01 ,3.0582e-01 ,3.2214e-01 ,3.1915e-01 ,3.0963e-01 ,3.0101e-01 , & - &2.9010e-01 ,2.5511e-01 ,1.7246e-01 /) - kao(:, 5,12, 6) = (/ & - &2.1126e-01 ,2.9440e-01 ,3.1065e-01 ,3.1395e-01 ,3.1604e-01 ,3.0993e-01 , & - &2.9537e-01 ,2.6162e-01 ,1.5291e-01 /) - kao(:, 1,13, 6) = (/ & - &2.2386e-01 ,3.3097e-01 ,3.4162e-01 ,3.3327e-01 ,3.1314e-01 ,2.7728e-01 , & - &2.5014e-01 ,2.1154e-01 ,2.3428e-01 /) - kao(:, 2,13, 6) = (/ & - &2.2040e-01 ,3.1261e-01 ,3.2237e-01 ,3.1373e-01 ,2.9682e-01 ,2.6651e-01 , & - &2.5032e-01 ,2.1702e-01 ,1.9039e-01 /) - kao(:, 3,13, 6) = (/ & - &2.1610e-01 ,2.9730e-01 ,3.0955e-01 ,3.0133e-01 ,2.8651e-01 ,2.7201e-01 , & - &2.5430e-01 ,2.2027e-01 ,1.6665e-01 /) - kao(:, 4,13, 6) = (/ & - &2.1312e-01 ,2.8629e-01 ,2.9748e-01 ,2.9400e-01 ,2.8967e-01 ,2.7599e-01 , & - &2.5853e-01 ,2.2523e-01 ,1.5373e-01 /) - kao(:, 5,13, 6) = (/ & - &2.0806e-01 ,2.7757e-01 ,2.8967e-01 ,2.9354e-01 ,2.9376e-01 ,2.8253e-01 , & - &2.6218e-01 ,2.3101e-01 ,1.3574e-01 /) - kao(:, 1, 1, 7) = (/ & - &3.5613e+00 ,3.1188e+00 ,2.6764e+00 ,2.2340e+00 ,1.7917e+00 ,1.6352e+00 , & - &1.8092e+00 ,1.6379e+00 ,2.7539e-02 /) - kao(:, 2, 1, 7) = (/ & - &3.4002e+00 ,2.9785e+00 ,2.5569e+00 ,2.1349e+00 ,1.7133e+00 ,1.7200e+00 , & - &1.7738e+00 ,1.6325e+00 ,3.6313e-02 /) - kao(:, 3, 1, 7) = (/ & - &3.2557e+00 ,2.8529e+00 ,2.4503e+00 ,2.0478e+00 ,1.6479e+00 ,1.7947e+00 , & - &1.7613e+00 ,1.6123e+00 ,7.9598e-02 /) - kao(:, 4, 1, 7) = (/ & - &3.1418e+00 ,2.7541e+00 ,2.3673e+00 ,1.9817e+00 ,1.6011e+00 ,1.8327e+00 , & - &1.7198e+00 ,1.6148e+00 ,2.1944e-01 /) - kao(:, 5, 1, 7) = (/ & - &3.1204e+00 ,2.7380e+00 ,2.3562e+00 ,1.9785e+00 ,1.6099e+00 ,1.8773e+00 , & - &1.7180e+00 ,1.6127e+00 ,2.9776e-01 /) - kao(:, 1, 2, 7) = (/ & - &2.9874e+00 ,2.6163e+00 ,2.2453e+00 ,1.8746e+00 ,1.5312e+00 ,1.8525e+00 , & - &1.7071e+00 ,1.5893e+00 ,5.1776e-01 /) - kao(:, 2, 2, 7) = (/ & - &2.8505e+00 ,2.4972e+00 ,2.1440e+00 ,1.7909e+00 ,1.5966e+00 ,1.8306e+00 , & - &1.6863e+00 ,1.5842e+00 ,4.3879e-01 /) - kao(:, 3, 2, 7) = (/ & - &2.7350e+00 ,2.3969e+00 ,2.0589e+00 ,1.7214e+00 ,1.6370e+00 ,1.7877e+00 , & - &1.6805e+00 ,1.5918e+00 ,4.1523e-01 /) - kao(:, 4, 2, 7) = (/ & - &2.6409e+00 ,2.3156e+00 ,1.9935e+00 ,1.6727e+00 ,1.6830e+00 ,1.7575e+00 , & - &1.6634e+00 ,1.5980e+00 ,2.9373e-01 /) - kao(:, 5, 2, 7) = (/ & - &2.5886e+00 ,2.2740e+00 ,1.9607e+00 ,1.6497e+00 ,1.7391e+00 ,1.7232e+00 , & - &1.6344e+00 ,1.6105e+00 ,1.8509e-01 /) - kao(:, 1, 3, 7) = (/ & - &2.5285e+00 ,2.2147e+00 ,1.9010e+00 ,1.5874e+00 ,1.8079e+00 ,1.7347e+00 , & - &1.6267e+00 ,1.5173e+00 ,4.9543e-01 /) - kao(:, 2, 3, 7) = (/ & - &2.4109e+00 ,2.1124e+00 ,1.8139e+00 ,1.5156e+00 ,1.7831e+00 ,1.7011e+00 , & - &1.6143e+00 ,1.5141e+00 ,4.4268e-01 /) - kao(:, 3, 3, 7) = (/ & - &2.3122e+00 ,2.0266e+00 ,1.7413e+00 ,1.4891e+00 ,1.7442e+00 ,1.6741e+00 , & - &1.6075e+00 ,1.5297e+00 ,3.4522e-01 /) - kao(:, 4, 3, 7) = (/ & - &2.2338e+00 ,1.9602e+00 ,1.6889e+00 ,1.5208e+00 ,1.7228e+00 ,1.6317e+00 , & - &1.5933e+00 ,1.5434e+00 ,2.1394e-01 /) - kao(:, 5, 3, 7) = (/ & - &2.1901e+00 ,1.9250e+00 ,1.6600e+00 ,1.5510e+00 ,1.6972e+00 ,1.6258e+00 , & - &1.5808e+00 ,1.5686e+00 ,1.5097e-01 /) - kao(:, 1, 4, 7) = (/ & - &2.1490e+00 ,1.8824e+00 ,1.6159e+00 ,1.5783e+00 ,1.6916e+00 ,1.6097e+00 , & - &1.5676e+00 ,1.4069e+00 ,5.0896e-01 /) - kao(:, 2, 4, 7) = (/ & - &2.0429e+00 ,1.7900e+00 ,1.5373e+00 ,1.6130e+00 ,1.6613e+00 ,1.5828e+00 , & - &1.5388e+00 ,1.4176e+00 ,3.7374e-01 /) - kao(:, 3, 4, 7) = (/ & - &1.9560e+00 ,1.7146e+00 ,1.4748e+00 ,1.6326e+00 ,1.6129e+00 ,1.5608e+00 , & - &1.5146e+00 ,1.4336e+00 ,2.6187e-01 /) - kao(:, 4, 4, 7) = (/ & - &1.8914e+00 ,1.6603e+00 ,1.4322e+00 ,1.6118e+00 ,1.5843e+00 ,1.5418e+00 , & - &1.4880e+00 ,1.4608e+00 ,1.8007e-01 /) - kao(:, 5, 4, 7) = (/ & - &1.8569e+00 ,1.6328e+00 ,1.4097e+00 ,1.6022e+00 ,1.5587e+00 ,1.5446e+00 , & - &1.4805e+00 ,1.4912e+00 ,1.1749e-01 /) - kao(:, 1, 5, 7) = (/ & - &1.8276e+00 ,1.6010e+00 ,1.3745e+00 ,1.6030e+00 ,1.5630e+00 ,1.5166e+00 , & - &1.4457e+00 ,1.2855e+00 ,4.3144e-01 /) - kao(:, 2, 5, 7) = (/ & - &1.7325e+00 ,1.5182e+00 ,1.3289e+00 ,1.5483e+00 ,1.5172e+00 ,1.4962e+00 , & - &1.4204e+00 ,1.2974e+00 ,3.2532e-01 /) - kao(:, 3, 5, 7) = (/ & - &1.6556e+00 ,1.4514e+00 ,1.3491e+00 ,1.5022e+00 ,1.4839e+00 ,1.4801e+00 , & - &1.3899e+00 ,1.3214e+00 ,2.2874e-01 /) - kao(:, 4, 5, 7) = (/ & - &1.6008e+00 ,1.4058e+00 ,1.3614e+00 ,1.4817e+00 ,1.4667e+00 ,1.4542e+00 , & - &1.3728e+00 ,1.3543e+00 ,1.4774e-01 /) - kao(:, 5, 5, 7) = (/ & - &1.5722e+00 ,1.3835e+00 ,1.3910e+00 ,1.4609e+00 ,1.4510e+00 ,1.4341e+00 , & - &1.3580e+00 ,1.3940e+00 ,9.9947e-02 /) - kao(:, 1, 6, 7) = (/ & - &1.5600e+00 ,1.3665e+00 ,1.3891e+00 ,1.4520e+00 ,1.4361e+00 ,1.4207e+00 , & - &1.3105e+00 ,1.1513e+00 ,3.8692e-01 /) - kao(:, 2, 6, 7) = (/ & - &1.4739e+00 ,1.2917e+00 ,1.3972e+00 ,1.4114e+00 ,1.4085e+00 ,1.3840e+00 , & - &1.2763e+00 ,1.1653e+00 ,2.7607e-01 /) - kao(:, 3, 6, 7) = (/ & - &1.4042e+00 ,1.2317e+00 ,1.3535e+00 ,1.3731e+00 ,1.3834e+00 ,1.3540e+00 , & - &1.2537e+00 ,1.1954e+00 ,1.8549e-01 /) - kao(:, 4, 6, 7) = (/ & - &1.3553e+00 ,1.1909e+00 ,1.3235e+00 ,1.3411e+00 ,1.3606e+00 ,1.3282e+00 , & - &1.2356e+00 ,1.2339e+00 ,1.3113e-01 /) - kao(:, 5, 6, 7) = (/ & - &1.3290e+00 ,1.1708e+00 ,1.3052e+00 ,1.3291e+00 ,1.3435e+00 ,1.3084e+00 , & - &1.2394e+00 ,1.2789e+00 ,8.5104e-02 /) - kao(:, 1, 7, 7) = (/ & - &1.3486e+00 ,1.1821e+00 ,1.3320e+00 ,1.3296e+00 ,1.3530e+00 ,1.2921e+00 , & - &1.1792e+00 ,1.0146e+00 ,3.3967e-01 /) - kao(:, 2, 7, 7) = (/ & - &1.2698e+00 ,1.1140e+00 ,1.2658e+00 ,1.2934e+00 ,1.3084e+00 ,1.2591e+00 , & - &1.1496e+00 ,1.0323e+00 ,2.4089e-01 /) - kao(:, 3, 7, 7) = (/ & - &1.2066e+00 ,1.0597e+00 ,1.2265e+00 ,1.2606e+00 ,1.2717e+00 ,1.2202e+00 , & - &1.1236e+00 ,1.0630e+00 ,1.6653e-01 /) - kao(:, 4, 7, 7) = (/ & - &1.1624e+00 ,1.0337e+00 ,1.1938e+00 ,1.2388e+00 ,1.2436e+00 ,1.1958e+00 , & - &1.1143e+00 ,1.1071e+00 ,1.1640e-01 /) - kao(:, 5, 7, 7) = (/ & - &1.1373e+00 ,1.0419e+00 ,1.1824e+00 ,1.2289e+00 ,1.2206e+00 ,1.1715e+00 , & - &1.1114e+00 ,1.1517e+00 ,7.1520e-02 /) - kao(:, 1, 8, 7) = (/ & - &1.1959e+00 ,1.0587e+00 ,1.2168e+00 ,1.2562e+00 ,1.2533e+00 ,1.1755e+00 , & - &1.0535e+00 ,8.9257e-01 ,2.9562e-01 /) - kao(:, 2, 8, 7) = (/ & - &1.1212e+00 ,1.0393e+00 ,1.1676e+00 ,1.2170e+00 ,1.2001e+00 ,1.1361e+00 , & - &1.0253e+00 ,9.0430e-01 ,2.1449e-01 /) - kao(:, 3, 8, 7) = (/ & - &1.0601e+00 ,1.0297e+00 ,1.1266e+00 ,1.1809e+00 ,1.1623e+00 ,1.1020e+00 , & - &1.0023e+00 ,9.3591e-01 ,1.5382e-01 /) - kao(:, 4, 8, 7) = (/ & - &1.0187e+00 ,1.0227e+00 ,1.0991e+00 ,1.1460e+00 ,1.1243e+00 ,1.0751e+00 , & - &9.9421e-01 ,9.7855e-01 ,1.0944e-01 /) - kao(:, 5, 8, 7) = (/ & - &9.9531e-01 ,1.0219e+00 ,1.0832e+00 ,1.1243e+00 ,1.1050e+00 ,1.0609e+00 , & - &9.9136e-01 ,1.0252e+00 ,7.0614e-02 /) - kao(:, 1, 9, 7) = (/ & - &1.0539e+00 ,1.0559e+00 ,1.1142e+00 ,1.1729e+00 ,1.1295e+00 ,1.0580e+00 , & - &9.3382e-01 ,7.7194e-01 ,2.7489e-01 /) - kao(:, 2, 9, 7) = (/ & - &9.8392e-01 ,1.0263e+00 ,1.0713e+00 ,1.1148e+00 ,1.0796e+00 ,1.0137e+00 , & - &9.0260e-01 ,7.8234e-01 ,1.9796e-01 /) - kao(:, 3, 9, 7) = (/ & - &9.2807e-01 ,9.7104e-01 ,1.0401e+00 ,1.0698e+00 ,1.0381e+00 ,9.8279e-01 , & - &8.8087e-01 ,8.1424e-01 ,1.4396e-01 /) - kao(:, 4, 9, 7) = (/ & - &8.9022e-01 ,9.3422e-01 ,1.0109e+00 ,1.0366e+00 ,1.0048e+00 ,9.5511e-01 , & - &8.7539e-01 ,8.5432e-01 ,1.0430e-01 /) - kao(:, 5, 9, 7) = (/ & - &8.6877e-01 ,9.2050e-01 ,1.0000e+00 ,1.0116e+00 ,9.8826e-01 ,9.4009e-01 , & - &8.7922e-01 ,9.0156e-01 ,6.8077e-02 /) - kao(:, 1,10, 7) = (/ & - &9.2527e-01 ,9.7705e-01 ,1.0325e+00 ,1.0578e+00 ,1.0149e+00 ,9.3478e-01 , & - &8.1724e-01 ,6.6415e-01 ,2.3891e-01 /) - kao(:, 2,10, 7) = (/ & - &8.6097e-01 ,9.1106e-01 ,9.9506e-01 ,1.0007e+00 ,9.6610e-01 ,8.9639e-01 , & - &7.8861e-01 ,6.7596e-01 ,1.7815e-01 /) - kao(:, 3,10, 7) = (/ & - &8.1181e-01 ,8.7070e-01 ,9.5033e-01 ,9.5476e-01 ,9.2168e-01 ,8.6431e-01 , & - &7.7032e-01 ,7.0318e-01 ,1.3199e-01 /) - kao(:, 4,10, 7) = (/ & - &7.7887e-01 ,8.4520e-01 ,9.2163e-01 ,9.1956e-01 ,8.9130e-01 ,8.3659e-01 , & - &7.6501e-01 ,7.4145e-01 ,9.1831e-02 /) - kao(:, 5,10, 7) = (/ & - &7.5933e-01 ,8.3227e-01 ,9.0273e-01 ,9.0188e-01 ,8.7623e-01 ,8.2773e-01 , & - &7.7824e-01 ,7.8260e-01 ,6.3171e-02 /) - kao(:, 1,11, 7) = (/ & - &7.8226e-01 ,8.4719e-01 ,9.2612e-01 ,9.1570e-01 ,8.7421e-01 ,8.0479e-01 , & - &6.9799e-01 ,5.7039e-01 ,1.8643e-01 /) - kao(:, 2,11, 7) = (/ & - &7.3229e-01 ,8.0376e-01 ,8.7472e-01 ,8.6879e-01 ,8.2958e-01 ,7.6891e-01 , & - &6.7602e-01 ,5.8714e-01 ,1.4000e-01 /) - kao(:, 3,11, 7) = (/ & - &6.9599e-01 ,7.7478e-01 ,8.4133e-01 ,8.3314e-01 ,7.9919e-01 ,7.4119e-01 , & - &6.6696e-01 ,6.1671e-01 ,1.0181e-01 /) - kao(:, 4,11, 7) = (/ & - &6.7489e-01 ,7.6185e-01 ,8.1367e-01 ,8.1128e-01 ,7.7952e-01 ,7.3228e-01 , & - &6.7358e-01 ,6.5125e-01 ,7.0225e-02 /) - kao(:, 5,11, 7) = (/ & - &6.5905e-01 ,7.5391e-01 ,7.9725e-01 ,7.9623e-01 ,7.7236e-01 ,7.3477e-01 , & - &6.9321e-01 ,6.9245e-01 ,4.7555e-02 /) - kao(:, 1,12, 7) = (/ & - &6.7862e-01 ,7.6075e-01 ,8.1212e-01 ,7.9974e-01 ,7.5616e-01 ,6.9320e-01 , & - &5.9851e-01 ,4.9309e-01 ,1.4949e-01 /) - kao(:, 2,12, 7) = (/ & - &6.3807e-01 ,7.3022e-01 ,7.7190e-01 ,7.6245e-01 ,7.2390e-01 ,6.6782e-01 , & - &5.8563e-01 ,5.1153e-01 ,1.1607e-01 /) - kao(:, 3,12, 7) = (/ & - &6.1294e-01 ,7.1220e-01 ,7.4125e-01 ,7.3342e-01 ,6.9810e-01 ,6.4969e-01 , & - &5.8866e-01 ,5.3877e-01 ,8.5989e-02 /) - kao(:, 4,12, 7) = (/ & - &5.9734e-01 ,7.0046e-01 ,7.2548e-01 ,7.1635e-01 ,6.8868e-01 ,6.5109e-01 , & - &5.9747e-01 ,5.7263e-01 ,5.7849e-02 /) - kao(:, 5,12, 7) = (/ & - &5.8148e-01 ,6.8644e-01 ,7.1487e-01 ,7.0660e-01 ,6.8790e-01 ,6.6368e-01 , & - &6.1903e-01 ,6.0994e-01 ,3.8734e-02 /) - kao(:, 1,13, 7) = (/ & - &6.1552e-01 ,7.1356e-01 ,7.3721e-01 ,7.1646e-01 ,6.7473e-01 ,6.1507e-01 , & - &5.2767e-01 ,4.3311e-01 ,1.2482e-01 /) - kao(:, 2,13, 7) = (/ & - &5.8292e-01 ,6.8409e-01 ,7.0235e-01 ,6.8503e-01 ,6.4503e-01 ,5.9514e-01 , & - &5.2204e-01 ,4.4742e-01 ,9.8236e-02 /) - kao(:, 3,13, 7) = (/ & - &5.6436e-01 ,6.6497e-01 ,6.8075e-01 ,6.6573e-01 ,6.3039e-01 ,5.8718e-01 , & - &5.2651e-01 ,4.7434e-01 ,7.2297e-02 /) - kao(:, 4,13, 7) = (/ & - &5.4811e-01 ,6.4832e-01 ,6.6742e-01 ,6.5348e-01 ,6.2977e-01 ,5.9747e-01 , & - &5.3863e-01 ,5.0502e-01 ,5.7494e-02 /) - kao(:, 5,13, 7) = (/ & - &5.3739e-01 ,6.3448e-01 ,6.5434e-01 ,6.4659e-01 ,6.3825e-01 ,6.0640e-01 , & - &5.6100e-01 ,5.4046e-01 ,3.2048e-02 /) - kao(:, 1, 1, 8) = (/ & - &1.1660e+01 ,1.0203e+01 ,8.7459e+00 ,7.2889e+00 ,5.8318e+00 ,4.3748e+00 , & - &3.7766e+00 ,3.7739e+00 ,2.3608e-03 /) - kao(:, 2, 1, 8) = (/ & - &1.1346e+01 ,9.9282e+00 ,8.5104e+00 ,7.0926e+00 ,5.6748e+00 ,4.2570e+00 , & - &3.8721e+00 ,3.9057e+00 ,3.1824e-03 /) - kao(:, 3, 1, 8) = (/ & - &1.1194e+01 ,9.7951e+00 ,8.3963e+00 ,6.9976e+00 ,5.5988e+00 ,4.2000e+00 , & - &3.9469e+00 ,4.0712e+00 ,4.2520e-03 /) - kao(:, 4, 1, 8) = (/ & - &1.1228e+01 ,9.8250e+00 ,8.4220e+00 ,7.0189e+00 ,5.6159e+00 ,4.2457e+00 , & - &4.0615e+00 ,4.2140e+00 ,1.1766e-02 /) - kao(:, 5, 1, 8) = (/ & - &1.1405e+01 ,9.9798e+00 ,8.5545e+00 ,7.1289e+00 ,5.7036e+00 ,4.3747e+00 , & - &4.1857e+00 ,4.3557e+00 ,1.5766e-01 /) - kao(:, 1, 2, 8) = (/ & - &9.6985e+00 ,8.4867e+00 ,7.2748e+00 ,6.0630e+00 ,4.8511e+00 ,3.9524e+00 , & - &3.9347e+00 ,3.7679e+00 ,7.6708e-02 /) - kao(:, 2, 2, 8) = (/ & - &9.4032e+00 ,8.2283e+00 ,7.0533e+00 ,5.8784e+00 ,4.7035e+00 ,3.9843e+00 , & - &4.0089e+00 ,3.9489e+00 ,9.1596e-02 /) - kao(:, 3, 2, 8) = (/ & - &9.2359e+00 ,8.0819e+00 ,6.9278e+00 ,5.7738e+00 ,4.6198e+00 ,4.0563e+00 , & - &4.1174e+00 ,4.1185e+00 ,7.3144e-02 /) - kao(:, 4, 2, 8) = (/ & - &9.2178e+00 ,8.0660e+00 ,6.9143e+00 ,5.7625e+00 ,4.6107e+00 ,4.1515e+00 , & - &4.2394e+00 ,4.2904e+00 ,1.1674e-01 /) - kao(:, 5, 2, 8) = (/ & - &9.3781e+00 ,8.2055e+00 ,7.0329e+00 ,5.8605e+00 ,4.6883e+00 ,4.2988e+00 , & - &4.3503e+00 ,4.4505e+00 ,1.2134e-01 /) - kao(:, 1, 3, 8) = (/ & - &8.1381e+00 ,7.1213e+00 ,6.1045e+00 ,5.0877e+00 ,4.0880e+00 ,4.0519e+00 , & - &3.8139e+00 ,3.6880e+00 ,8.7204e-02 /) - kao(:, 2, 3, 8) = (/ & - &7.8478e+00 ,6.8673e+00 ,5.8868e+00 ,4.9063e+00 ,4.0625e+00 ,4.0788e+00 , & - &3.9290e+00 ,3.8689e+00 ,6.5887e-02 /) - kao(:, 3, 3, 8) = (/ & - &7.6555e+00 ,6.6990e+00 ,5.7426e+00 ,4.7861e+00 ,4.0779e+00 ,4.1101e+00 , & - &4.0765e+00 ,4.0574e+00 ,7.1216e-02 /) - kao(:, 4, 3, 8) = (/ & - &7.5783e+00 ,6.6314e+00 ,5.6846e+00 ,4.7378e+00 ,4.1353e+00 ,4.1781e+00 , & - &4.2207e+00 ,4.2405e+00 ,8.4339e-02 /) - kao(:, 5, 3, 8) = (/ & - &7.6543e+00 ,6.6980e+00 ,5.7416e+00 ,4.7853e+00 ,4.2544e+00 ,4.2669e+00 , & - &4.4018e+00 ,4.4237e+00 ,7.8612e-02 /) - kao(:, 1, 4, 8) = (/ & - &6.8589e+00 ,6.0020e+00 ,5.1451e+00 ,4.2882e+00 ,3.9706e+00 ,3.8613e+00 , & - &3.5947e+00 ,3.5300e+00 ,6.1710e-02 /) - kao(:, 2, 4, 8) = (/ & - &6.5794e+00 ,5.7574e+00 ,4.9355e+00 ,4.1135e+00 ,3.9575e+00 ,3.8878e+00 , & - &3.7477e+00 ,3.7212e+00 ,6.0817e-02 /) - kao(:, 3, 4, 8) = (/ & - &6.3760e+00 ,5.5795e+00 ,4.7829e+00 ,3.9985e+00 ,3.9783e+00 ,3.9606e+00 , & - &3.9214e+00 ,3.9164e+00 ,6.3574e-02 /) - kao(:, 4, 4, 8) = (/ & - &6.2600e+00 ,5.4779e+00 ,4.6959e+00 ,4.0045e+00 ,4.0114e+00 ,4.0769e+00 , & - &4.1164e+00 ,4.1060e+00 ,7.8132e-02 /) - kao(:, 5, 4, 8) = (/ & - &6.2608e+00 ,5.4787e+00 ,4.6966e+00 ,4.0716e+00 ,4.0797e+00 ,4.1992e+00 , & - &4.3140e+00 ,4.3043e+00 ,7.5353e-02 /) - kao(:, 1, 5, 8) = (/ & - &5.7927e+00 ,5.0691e+00 ,4.3455e+00 ,3.8105e+00 ,3.8237e+00 ,3.5526e+00 , & - &3.3728e+00 ,3.3373e+00 ,4.9756e-02 /) - kao(:, 2, 5, 8) = (/ & - &5.5277e+00 ,4.8372e+00 ,4.1467e+00 ,3.7691e+00 ,3.7793e+00 ,3.6108e+00 , & - &3.5410e+00 ,3.5220e+00 ,4.2289e-02 /) - kao(:, 3, 5, 8) = (/ & - &5.3258e+00 ,4.6606e+00 ,3.9953e+00 ,3.7485e+00 ,3.7814e+00 ,3.7044e+00 , & - &3.7302e+00 ,3.7158e+00 ,4.7217e-02 /) - kao(:, 4, 5, 8) = (/ & - &5.1933e+00 ,4.5445e+00 ,3.8958e+00 ,3.7349e+00 ,3.8276e+00 ,3.8482e+00 , & - &3.9315e+00 ,3.9070e+00 ,5.2805e-02 /) - kao(:, 5, 5, 8) = (/ & - &5.1489e+00 ,4.5057e+00 ,3.8627e+00 ,3.7753e+00 ,3.9160e+00 ,4.0236e+00 , & - &4.1558e+00 ,4.1173e+00 ,7.3119e-02 /) - kao(:, 1, 6, 8) = (/ & - &4.9153e+00 ,4.3014e+00 ,3.6874e+00 ,3.6742e+00 ,3.4664e+00 ,3.2352e+00 , & - &3.1382e+00 ,3.1290e+00 ,5.3656e-02 /) - kao(:, 2, 6, 8) = (/ & - &4.6666e+00 ,4.0837e+00 ,3.5075e+00 ,3.5947e+00 ,3.4390e+00 ,3.3186e+00 , & - &3.2995e+00 ,3.2957e+00 ,3.0716e-02 /) - kao(:, 3, 6, 8) = (/ & - &4.4714e+00 ,3.9130e+00 ,3.4299e+00 ,3.5379e+00 ,3.4620e+00 ,3.4453e+00 , & - &3.4927e+00 ,3.4789e+00 ,2.2748e-02 /) - kao(:, 4, 6, 8) = (/ & - &4.3327e+00 ,3.7916e+00 ,3.3931e+00 ,3.5287e+00 ,3.5342e+00 ,3.5995e+00 , & - &3.6934e+00 ,3.6650e+00 ,4.0419e-02 /) - kao(:, 5, 6, 8) = (/ & - &4.2621e+00 ,3.7298e+00 ,3.3976e+00 ,3.5656e+00 ,3.6513e+00 ,3.7826e+00 , & - &3.9184e+00 ,3.8666e+00 ,1.0762e-01 /) - kao(:, 1, 7, 8) = (/ & - &4.2315e+00 ,3.7030e+00 ,3.3451e+00 ,3.3493e+00 ,3.1177e+00 ,2.9742e+00 , & - &2.9072e+00 ,2.9068e+00 ,5.8460e-02 /) - kao(:, 2, 7, 8) = (/ & - &3.9985e+00 ,3.4984e+00 ,3.2669e+00 ,3.2554e+00 ,3.1149e+00 ,3.0526e+00 , & - &3.0595e+00 ,3.0700e+00 ,2.7402e-02 /) - kao(:, 3, 7, 8) = (/ & - &3.8099e+00 ,3.3338e+00 ,3.2097e+00 ,3.2104e+00 ,3.1587e+00 ,3.1808e+00 , & - &3.2348e+00 ,3.2401e+00 ,1.9004e-02 /) - kao(:, 4, 7, 8) = (/ & - &3.6700e+00 ,3.2116e+00 ,3.1648e+00 ,3.2052e+00 ,3.2433e+00 ,3.3349e+00 , & - &3.4286e+00 ,3.4160e+00 ,4.2481e-02 /) - kao(:, 5, 7, 8) = (/ & - &3.5860e+00 ,3.1383e+00 ,3.1473e+00 ,3.2492e+00 ,3.3786e+00 ,3.5157e+00 , & - &3.6429e+00 ,3.6020e+00 ,1.5676e-01 /) - kao(:, 1, 8, 8) = (/ & - &3.7309e+00 ,3.2652e+00 ,3.2085e+00 ,3.0458e+00 ,2.8667e+00 ,2.7650e+00 , & - &2.6802e+00 ,2.6374e+00 ,6.7482e-02 /) - kao(:, 2, 8, 8) = (/ & - &3.5088e+00 ,3.0710e+00 ,3.0883e+00 ,2.9531e+00 ,2.8706e+00 ,2.8363e+00 , & - &2.8330e+00 ,2.8092e+00 ,3.1671e-02 /) - kao(:, 3, 8, 8) = (/ & - &3.3283e+00 ,2.9131e+00 ,2.9801e+00 ,2.9151e+00 ,2.9077e+00 ,2.9395e+00 , & - &2.9913e+00 ,2.9792e+00 ,1.9457e-02 /) - kao(:, 4, 8, 8) = (/ & - &3.1890e+00 ,2.7912e+00 ,2.9223e+00 ,2.9235e+00 ,2.9935e+00 ,3.0761e+00 , & - &3.1767e+00 ,3.1591e+00 ,4.5502e-02 /) - kao(:, 5, 8, 8) = (/ & - &3.0966e+00 ,2.7276e+00 ,2.9000e+00 ,2.9842e+00 ,3.1139e+00 ,3.2433e+00 , & - &3.3703e+00 ,3.3444e+00 ,1.7959e-01 /) - kao(:, 1, 9, 8) = (/ & - &3.2795e+00 ,2.8728e+00 ,2.9171e+00 ,2.7516e+00 ,2.6513e+00 ,2.5188e+00 , & - &2.4080e+00 ,2.3392e+00 ,6.9869e-02 /) - kao(:, 2, 9, 8) = (/ & - &3.0734e+00 ,2.7076e+00 ,2.7821e+00 ,2.6844e+00 ,2.6368e+00 ,2.5852e+00 , & - &2.5517e+00 ,2.5045e+00 ,4.1359e-02 /) - kao(:, 3, 9, 8) = (/ & - &2.9006e+00 ,2.6099e+00 ,2.6833e+00 ,2.6568e+00 ,2.6662e+00 ,2.6837e+00 , & - &2.7125e+00 ,2.6712e+00 ,2.1538e-02 /) - kao(:, 4, 9, 8) = (/ & - &2.7639e+00 ,2.5377e+00 ,2.6242e+00 ,2.6595e+00 ,2.7323e+00 ,2.8096e+00 , & - &2.8901e+00 ,2.8466e+00 ,5.4396e-02 /) - kao(:, 5, 9, 8) = (/ & - &2.6669e+00 ,2.4856e+00 ,2.6031e+00 ,2.7098e+00 ,2.8344e+00 ,2.9696e+00 , & - &3.0834e+00 ,3.0331e+00 ,2.0077e-01 /) - kao(:, 1,10, 8) = (/ & - &2.8722e+00 ,2.6105e+00 ,2.6085e+00 ,2.5091e+00 ,2.4056e+00 ,2.2547e+00 , & - &2.1348e+00 ,2.0413e+00 ,7.1950e-02 /) - kao(:, 2,10, 8) = (/ & - &2.6764e+00 ,2.5038e+00 ,2.4795e+00 ,2.4482e+00 ,2.3806e+00 ,2.3128e+00 , & - &2.2556e+00 ,2.1912e+00 ,3.7979e-02 /) - kao(:, 3,10, 8) = (/ & - &2.5139e+00 ,2.4083e+00 ,2.3949e+00 ,2.4105e+00 ,2.4135e+00 ,2.4077e+00 , & - &2.4119e+00 ,2.3558e+00 ,2.2438e-02 /) - kao(:, 4,10, 8) = (/ & - &2.3840e+00 ,2.3185e+00 ,2.3481e+00 ,2.4127e+00 ,2.4770e+00 ,2.5357e+00 , & - &2.5771e+00 ,2.5231e+00 ,7.0033e-02 /) - kao(:, 5,10, 8) = (/ & - &2.2922e+00 ,2.2525e+00 ,2.3358e+00 ,2.4514e+00 ,2.5719e+00 ,2.6836e+00 , & - &2.7691e+00 ,2.7055e+00 ,2.1431e-01 /) - kao(:, 1,11, 8) = (/ & - &2.4203e+00 ,2.3366e+00 ,2.2726e+00 ,2.2388e+00 ,2.1243e+00 ,2.0012e+00 , & - &1.8959e+00 ,1.8076e+00 ,5.5769e-02 /) - kao(:, 2,11, 8) = (/ & - &2.2551e+00 ,2.2021e+00 ,2.1879e+00 ,2.1841e+00 ,2.1218e+00 ,2.0691e+00 , & - &2.0223e+00 ,1.9543e+00 ,2.8668e-02 /) - kao(:, 3,11, 8) = (/ & - &2.1166e+00 ,2.0926e+00 ,2.1229e+00 ,2.1590e+00 ,2.1592e+00 ,2.1682e+00 , & - &2.1642e+00 ,2.1075e+00 ,3.1850e-02 /) - kao(:, 4,11, 8) = (/ & - &2.0122e+00 ,2.0159e+00 ,2.0901e+00 ,2.1693e+00 ,2.2337e+00 ,2.2891e+00 , & - &2.3331e+00 ,2.2748e+00 ,1.4071e-01 /) - kao(:, 5,11, 8) = (/ & - &1.9514e+00 ,1.9763e+00 ,2.0989e+00 ,2.2225e+00 ,2.3388e+00 ,2.4447e+00 , & - &2.5215e+00 ,2.4588e+00 ,2.8723e-01 /) - kao(:, 1,12, 8) = (/ & - &2.0683e+00 ,2.0370e+00 ,2.0375e+00 ,1.9798e+00 ,1.8792e+00 ,1.7675e+00 , & - &1.6700e+00 ,1.5868e+00 ,4.4568e-02 /) - kao(:, 2,12, 8) = (/ & - &1.9287e+00 ,1.9214e+00 ,1.9599e+00 ,1.9353e+00 ,1.8869e+00 ,1.8278e+00 , & - &1.7894e+00 ,1.7244e+00 ,2.3573e-02 /) - kao(:, 3,12, 8) = (/ & - &1.8200e+00 ,1.8347e+00 ,1.9076e+00 ,1.9217e+00 ,1.9295e+00 ,1.9250e+00 , & - &1.9263e+00 ,1.8738e+00 ,5.2475e-02 /) - kao(:, 4,12, 8) = (/ & - &1.7432e+00 ,1.7845e+00 ,1.8845e+00 ,1.9488e+00 ,2.0009e+00 ,2.0498e+00 , & - &2.0942e+00 ,2.0382e+00 ,1.8765e-01 /) - kao(:, 5,12, 8) = (/ & - &1.7053e+00 ,1.7760e+00 ,1.9065e+00 ,2.0215e+00 ,2.1153e+00 ,2.2054e+00 , & - &2.2781e+00 ,2.2210e+00 ,3.6587e-01 /) - kao(:, 1,13, 8) = (/ & - &1.8562e+00 ,1.8459e+00 ,1.8637e+00 ,1.7957e+00 ,1.6878e+00 ,1.5797e+00 , & - &1.4757e+00 ,1.3906e+00 ,3.6132e-02 /) - kao(:, 2,13, 8) = (/ & - &1.7399e+00 ,1.7611e+00 ,1.7971e+00 ,1.7529e+00 ,1.6955e+00 ,1.6354e+00 , & - &1.5829e+00 ,1.5250e+00 ,2.1418e-02 /) - kao(:, 3,13, 8) = (/ & - &1.6467e+00 ,1.6945e+00 ,1.7550e+00 ,1.7487e+00 ,1.7380e+00 ,1.7251e+00 , & - &1.7178e+00 ,1.6689e+00 ,6.4309e-02 /) - kao(:, 4,13, 8) = (/ & - &1.5930e+00 ,1.6654e+00 ,1.7520e+00 ,1.7797e+00 ,1.8113e+00 ,1.8460e+00 , & - &1.8831e+00 ,1.8288e+00 ,2.0946e-01 /) - kao(:, 5,13, 8) = (/ & - &1.5695e+00 ,1.6755e+00 ,1.7906e+00 ,1.8612e+00 ,1.9314e+00 ,2.0101e+00 , & - &2.0671e+00 ,2.0074e+00 ,3.8278e-01 /) - kao(:, 1, 1, 9) = (/ & - &4.3448e+02 ,3.8017e+02 ,3.2586e+02 ,2.7155e+02 ,2.1724e+02 ,1.6293e+02 , & - &1.0862e+02 ,5.5107e+01 ,2.7465e-03 /) - kao(:, 2, 1, 9) = (/ & - &5.8321e+02 ,5.1031e+02 ,4.3741e+02 ,3.6451e+02 ,2.9161e+02 ,2.1870e+02 , & - &1.4580e+02 ,7.3550e+01 ,3.5822e-03 /) - kao(:, 3, 1, 9) = (/ & - &7.6101e+02 ,6.6588e+02 ,5.7076e+02 ,4.7563e+02 ,3.8051e+02 ,2.8538e+02 , & - &1.9025e+02 ,9.5593e+01 ,5.6366e-03 /) - kao(:, 4, 1, 9) = (/ & - &9.6683e+02 ,8.4598e+02 ,7.2512e+02 ,6.0427e+02 ,4.8342e+02 ,3.6256e+02 , & - &2.4171e+02 ,1.2116e+02 ,6.3697e-02 /) - kao(:, 5, 1, 9) = (/ & - &1.1977e+03 ,1.0480e+03 ,8.9827e+02 ,7.4856e+02 ,5.9885e+02 ,4.4914e+02 , & - &2.9942e+02 ,1.4986e+02 ,2.8050e-01 /) - kao(:, 1, 2, 9) = (/ & - &3.3233e+02 ,2.9079e+02 ,2.4925e+02 ,2.0770e+02 ,1.6616e+02 ,1.2462e+02 , & - &8.3297e+01 ,4.3020e+01 ,1.2769e-02 /) - kao(:, 2, 2, 9) = (/ & - &4.5139e+02 ,3.9497e+02 ,3.3854e+02 ,2.8212e+02 ,2.2570e+02 ,1.6927e+02 , & - &1.1303e+02 ,5.7664e+01 ,6.8183e-02 /) - kao(:, 3, 2, 9) = (/ & - &5.9515e+02 ,5.2076e+02 ,4.4637e+02 ,3.7197e+02 ,2.9758e+02 ,2.2318e+02 , & - &1.4890e+02 ,7.5394e+01 ,1.7070e-01 /) - kao(:, 4, 2, 9) = (/ & - &7.6179e+02 ,6.6657e+02 ,5.7134e+02 ,4.7612e+02 ,3.8090e+02 ,2.8567e+02 , & - &1.9048e+02 ,9.5968e+01 ,4.9948e-01 /) - kao(:, 5, 2, 9) = (/ & - &9.5206e+02 ,8.3305e+02 ,7.1404e+02 ,5.9504e+02 ,4.7603e+02 ,3.5702e+02 , & - &2.3802e+02 ,1.1952e+02 ,1.1527e+00 /) - kao(:, 1, 3, 9) = (/ & - &2.3507e+02 ,2.0568e+02 ,1.7630e+02 ,1.4692e+02 ,1.1753e+02 ,8.8151e+01 , & - &5.9624e+01 ,3.1706e+01 ,5.0754e-02 /) - kao(:, 2, 3, 9) = (/ & - &3.2531e+02 ,2.8465e+02 ,2.4398e+02 ,2.0332e+02 ,1.6266e+02 ,1.2199e+02 , & - &8.2067e+01 ,4.2715e+01 ,9.9945e-02 /) - kao(:, 3, 3, 9) = (/ & - &4.3545e+02 ,3.8102e+02 ,3.2659e+02 ,2.7216e+02 ,2.1773e+02 ,1.6330e+02 , & - &1.0943e+02 ,5.6175e+01 ,4.3033e-01 /) - kao(:, 4, 3, 9) = (/ & - &5.6623e+02 ,4.9545e+02 ,4.2468e+02 ,3.5390e+02 ,2.8312e+02 ,2.1234e+02 , & - &1.4196e+02 ,7.2208e+01 ,1.0055e+00 /) - kao(:, 5, 3, 9) = (/ & - &7.1637e+02 ,6.2682e+02 ,5.3728e+02 ,4.4773e+02 ,3.5819e+02 ,2.6864e+02 , & - &1.7932e+02 ,9.0659e+01 ,1.5764e+00 /) - kao(:, 1, 4, 9) = (/ & - &1.6080e+02 ,1.4070e+02 ,1.2060e+02 ,1.0050e+02 ,8.0399e+01 ,6.0779e+01 , & - &4.1842e+01 ,2.3410e+01 ,9.5747e-02 /) - kao(:, 2, 4, 9) = (/ & - &2.2661e+02 ,1.9829e+02 ,1.6996e+02 ,1.4163e+02 ,1.1331e+02 ,8.5452e+01 , & - &5.8120e+01 ,3.1330e+01 ,8.2203e-01 /) - kao(:, 3, 4, 9) = (/ & - &3.0940e+02 ,2.7072e+02 ,2.3205e+02 ,1.9338e+02 ,1.5470e+02 ,1.1642e+02 , & - &7.8610e+01 ,4.1331e+01 ,1.4967e+00 /) - kao(:, 4, 4, 9) = (/ & - &4.0889e+02 ,3.5778e+02 ,3.0667e+02 ,2.5556e+02 ,2.0445e+02 ,1.5361e+02 , & - &1.0323e+02 ,5.3416e+01 ,2.0722e+00 /) - kao(:, 5, 4, 9) = (/ & - &5.2581e+02 ,4.6008e+02 ,3.9436e+02 ,3.2863e+02 ,2.6291e+02 ,1.9734e+02 , & - &1.3221e+02 ,6.7657e+01 ,2.6260e+00 /) - kao(:, 1, 5, 9) = (/ & - &1.0850e+02 ,9.4934e+01 ,8.1372e+01 ,6.7810e+01 ,5.4459e+01 ,4.1884e+01 , & - &2.9671e+01 ,1.7923e+01 ,1.1913e+00 /) - kao(:, 2, 5, 9) = (/ & - &1.5572e+02 ,1.3625e+02 ,1.1679e+02 ,9.7324e+01 ,7.8121e+01 ,5.9526e+01 , & - &4.1277e+01 ,2.3510e+01 ,1.9137e+00 /) - kao(:, 3, 5, 9) = (/ & - &2.1676e+02 ,1.8967e+02 ,1.6257e+02 ,1.3548e+02 ,1.0864e+02 ,8.2293e+01 , & - &5.6282e+01 ,3.0781e+01 ,2.5565e+00 /) - kao(:, 4, 5, 9) = (/ & - &2.9183e+02 ,2.5535e+02 ,2.1887e+02 ,1.8239e+02 ,1.4612e+02 ,1.1027e+02 , & - &7.4761e+01 ,3.9788e+01 ,3.1260e+00 /) - kao(:, 5, 5, 9) = (/ & - &3.8115e+02 ,3.3351e+02 ,2.8587e+02 ,2.3822e+02 ,1.9070e+02 ,1.4356e+02 , & - &9.6772e+01 ,5.0545e+01 ,3.5402e+00 /) - kao(:, 1, 6, 9) = (/ & - &7.1661e+01 ,6.2704e+01 ,5.3746e+01 ,4.4797e+01 ,3.6644e+01 ,2.8875e+01 , & - &2.1420e+01 ,1.4378e+01 ,2.0773e+00 /) - kao(:, 2, 6, 9) = (/ & - &1.0465e+02 ,9.1565e+01 ,7.8484e+01 ,6.5455e+01 ,5.3153e+01 ,4.1163e+01 , & - &2.9464e+01 ,1.8199e+01 ,2.7911e+00 /) - kao(:, 3, 6, 9) = (/ & - &1.4858e+02 ,1.3001e+02 ,1.1144e+02 ,9.2961e+01 ,7.5079e+01 ,5.7480e+01 , & - &4.0178e+01 ,2.3340e+01 ,3.3860e+00 /) - kao(:, 4, 6, 9) = (/ & - &2.0400e+02 ,1.7850e+02 ,1.5300e+02 ,1.2759e+02 ,1.0268e+02 ,7.8054e+01 , & - &5.3729e+01 ,2.9889e+01 ,3.8146e+00 /) - kao(:, 5, 6, 9) = (/ & - &2.7127e+02 ,2.3736e+02 ,2.0345e+02 ,1.6959e+02 ,1.3617e+02 ,1.0303e+02 , & - &7.0191e+01 ,3.7883e+01 ,4.1027e+00 /) - kao(:, 1, 7, 9) = (/ & - &4.7664e+01 ,4.1706e+01 ,3.5748e+01 ,3.0192e+01 ,2.5283e+01 ,2.0687e+01 , & - &1.6356e+01 ,1.2414e+01 ,2.7141e+00 /) - kao(:, 2, 7, 9) = (/ & - &7.0406e+01 ,6.1605e+01 ,5.2805e+01 ,4.4485e+01 ,3.6675e+01 ,2.9135e+01 , & - &2.1846e+01 ,1.4960e+01 ,3.3740e+00 /) - kao(:, 3, 7, 9) = (/ & - &1.0189e+02 ,8.9150e+01 ,7.6414e+01 ,6.4182e+01 ,5.2360e+01 ,4.0780e+01 , & - &2.9464e+01 ,1.8559e+01 ,3.8705e+00 /) - kao(:, 4, 7, 9) = (/ & - &1.4268e+02 ,1.2484e+02 ,1.0701e+02 ,8.9652e+01 ,7.2635e+01 ,5.5858e+01 , & - &3.9357e+01 ,2.3287e+01 ,4.2268e+00 /) - kao(:, 5, 7, 9) = (/ & - &1.9337e+02 ,1.6920e+02 ,1.4503e+02 ,1.2126e+02 ,9.7796e+01 ,7.4601e+01 , & - &5.1680e+01 ,2.9228e+01 ,4.3853e+00 /) - kao(:, 1, 8, 9) = (/ & - &3.2619e+01 ,2.8542e+01 ,2.4489e+01 ,2.1251e+01 ,1.8391e+01 ,1.5792e+01 , & - &1.3493e+01 ,1.1316e+01 ,3.0747e+00 /) - kao(:, 2, 8, 9) = (/ & - &4.8375e+01 ,4.2328e+01 ,3.6375e+01 ,3.1177e+01 ,2.6286e+01 ,2.1635e+01 , & - &1.7234e+01 ,1.3233e+01 ,3.6551e+00 /) - kao(:, 3, 8, 9) = (/ & - &7.1088e+01 ,6.2202e+01 ,5.3468e+01 ,4.5389e+01 ,3.7595e+01 ,3.0015e+01 , & - &2.2675e+01 ,1.5741e+01 ,4.0898e+00 /) - kao(:, 4, 8, 9) = (/ & - &1.0151e+02 ,8.8821e+01 ,7.6303e+01 ,6.4370e+01 ,5.2682e+01 ,4.1218e+01 , & - &2.9982e+01 ,1.9170e+01 ,4.3948e+00 /) - kao(:, 5, 8, 9) = (/ & - &1.4013e+02 ,1.2261e+02 ,1.0526e+02 ,8.8413e+01 ,7.1810e+01 ,5.5432e+01 , & - &3.9307e+01 ,2.3602e+01 ,4.4795e+00 /) - kao(:, 1, 9, 9) = (/ & - &2.2374e+01 ,1.9574e+01 ,1.7087e+01 ,1.5322e+01 ,1.3873e+01 ,1.2730e+01 , & - &1.1784e+01 ,1.0057e+01 ,3.2920e+00 /) - kao(:, 2, 9, 9) = (/ & - &3.3006e+01 ,2.8880e+01 ,2.5155e+01 ,2.2057e+01 ,1.9232e+01 ,1.6658e+01 , & - &1.4329e+01 ,1.1850e+01 ,3.8043e+00 /) - kao(:, 3, 9, 9) = (/ & - &4.8965e+01 ,4.2845e+01 ,3.7181e+01 ,3.2051e+01 ,2.7172e+01 ,2.2508e+01 , & - &1.8078e+01 ,1.3961e+01 ,4.2059e+00 /) - kao(:, 4, 9, 9) = (/ & - &7.1218e+01 ,6.2316e+01 ,5.3886e+01 ,4.5928e+01 ,3.8193e+01 ,3.0649e+01 , & - &2.3347e+01 ,1.6446e+01 ,4.4539e+00 /) - kao(:, 5, 9, 9) = (/ & - &1.0013e+02 ,8.7618e+01 ,7.5558e+01 ,6.3912e+01 ,5.2481e+01 ,4.1239e+01 , & - &3.0241e+01 ,1.9662e+01 ,4.4837e+00 /) - kao(:, 1,10, 9) = (/ & - &1.6016e+01 ,1.4014e+01 ,1.2654e+01 ,1.1832e+01 ,1.1333e+01 ,1.1079e+01 , & - &1.0430e+01 ,8.9198e+00 ,3.4165e+00 /) - kao(:, 2,10, 9) = (/ & - &2.3316e+01 ,2.0402e+01 ,1.8216e+01 ,1.6474e+01 ,1.5033e+01 ,1.3817e+01 , & - &1.2667e+01 ,1.0521e+01 ,3.8593e+00 /) - kao(:, 3,10, 9) = (/ & - &3.4676e+01 ,3.0345e+01 ,2.6796e+01 ,2.3607e+01 ,2.0669e+01 ,1.7940e+01 , & - &1.5414e+01 ,1.2426e+01 ,4.1980e+00 /) - kao(:, 4,10, 9) = (/ & - &5.1075e+01 ,4.4715e+01 ,3.9109e+01 ,3.3826e+01 ,2.8757e+01 ,2.3883e+01 , & - &1.9235e+01 ,1.4676e+01 ,4.3830e+00 /) - kao(:, 5,10, 9) = (/ & - &7.2971e+01 ,6.3894e+01 ,5.5508e+01 ,4.7426e+01 ,3.9536e+01 ,3.1844e+01 , & - &2.4374e+01 ,1.7279e+01 ,4.3810e+00 /) - kao(:, 1,11, 9) = (/ & - &1.3577e+01 ,1.1946e+01 ,1.1209e+01 ,1.0837e+01 ,1.0794e+01 ,1.0607e+01 , & - &9.9046e+00 ,8.4158e+00 ,3.5771e+00 /) - kao(:, 2,11, 9) = (/ & - &1.9792e+01 ,1.7445e+01 ,1.5940e+01 ,1.4785e+01 ,1.3920e+01 ,1.3199e+01 , & - &1.2097e+01 ,9.9522e+00 ,3.9185e+00 /) - kao(:, 3,11, 9) = (/ & - &2.9476e+01 ,2.5957e+01 ,2.3237e+01 ,2.0843e+01 ,1.8688e+01 ,1.6684e+01 , & - &1.4791e+01 ,1.1766e+01 ,4.1553e+00 /) - kao(:, 4,11, 9) = (/ & - &4.3413e+01 ,3.8176e+01 ,3.3695e+01 ,2.9502e+01 ,2.5515e+01 ,2.1698e+01 , & - &1.8077e+01 ,1.3908e+01 ,4.1942e+00 /) - kao(:, 5,11, 9) = (/ & - &6.2007e+01 ,5.4458e+01 ,4.7606e+01 ,4.1020e+01 ,3.4622e+01 ,2.8398e+01 , & - &2.2392e+01 ,1.6392e+01 ,4.1692e+00 /) - kao(:, 1,12, 9) = (/ & - &1.1680e+01 ,1.0479e+01 ,1.0122e+01 ,1.0167e+01 ,1.0289e+01 ,1.0072e+01 , & - &9.3417e+00 ,7.9079e+00 ,3.5200e+00 /) - kao(:, 2,12, 9) = (/ & - &1.7053e+01 ,1.5231e+01 ,1.4215e+01 ,1.3566e+01 ,1.3123e+01 ,1.2618e+01 , & - &1.1431e+01 ,9.3416e+00 ,3.7828e+00 /) - kao(:, 3,12, 9) = (/ & - &2.5404e+01 ,2.2573e+01 ,2.0511e+01 ,1.8777e+01 ,1.7216e+01 ,1.5812e+01 , & - &1.4031e+01 ,1.1064e+01 ,3.9374e+00 /) - kao(:, 4,12, 9) = (/ & - &3.7431e+01 ,3.3112e+01 ,2.9529e+01 ,2.6224e+01 ,2.3088e+01 ,2.0100e+01 , & - &1.7184e+01 ,1.3093e+01 ,3.9253e+00 /) - kao(:, 5,12, 9) = (/ & - &5.3474e+01 ,4.7145e+01 ,4.1510e+01 ,3.6119e+01 ,3.0908e+01 ,2.5843e+01 , & - &2.0970e+01 ,1.5444e+01 ,3.9004e+00 /) - kao(:, 1,13, 9) = (/ & - &1.0438e+01 ,9.5597e+00 ,9.5087e+00 ,9.7911e+00 ,9.8820e+00 ,9.5875e+00 , & - &8.8692e+00 ,7.4811e+00 ,3.3069e+00 /) - kao(:, 2,13, 9) = (/ & - &1.5260e+01 ,1.3818e+01 ,1.3178e+01 ,1.2874e+01 ,1.2679e+01 ,1.2091e+01 , & - &1.0875e+01 ,8.8312e+00 ,3.5228e+00 /) - kao(:, 3,13, 9) = (/ & - &2.2789e+01 ,2.0434e+01 ,1.8837e+01 ,1.7547e+01 ,1.6403e+01 ,1.5263e+01 , & - &1.3389e+01 ,1.0463e+01 ,3.6351e+00 /) - kao(:, 4,13, 9) = (/ & - &3.3586e+01 ,2.9891e+01 ,2.6912e+01 ,2.4218e+01 ,2.1653e+01 ,1.9218e+01 , & - &1.6457e+01 ,1.2402e+01 ,3.6180e+00 /) - kao(:, 5,13, 9) = (/ & - &4.7989e+01 ,4.2477e+01 ,3.7650e+01 ,3.3082e+01 ,2.8647e+01 ,2.4351e+01 , & - &2.0129e+01 ,1.4659e+01 ,3.6174e+00 /) - kao(:, 1, 1,10) = (/ & - &2.6405e+03 ,2.3104e+03 ,1.9803e+03 ,1.6503e+03 ,1.3202e+03 ,9.9017e+02 , & - &6.6011e+02 ,3.3006e+02 ,2.0071e-03 /) - kao(:, 2, 1,10) = (/ & - &3.3430e+03 ,2.9251e+03 ,2.5072e+03 ,2.0894e+03 ,1.6715e+03 ,1.2536e+03 , & - &8.3575e+02 ,4.1787e+02 ,3.1756e-03 /) - kao(:, 3, 1,10) = (/ & - &4.1007e+03 ,3.5881e+03 ,3.0756e+03 ,2.5630e+03 ,2.0504e+03 ,1.5378e+03 , & - &1.0252e+03 ,5.1259e+02 ,1.5257e-02 /) - kao(:, 4, 1,10) = (/ & - &4.9110e+03 ,4.2972e+03 ,3.6833e+03 ,3.0694e+03 ,2.4555e+03 ,1.8416e+03 , & - &1.2278e+03 ,6.1388e+02 ,1.9623e-01 /) - kao(:, 5, 1,10) = (/ & - &5.7642e+03 ,5.0437e+03 ,4.3232e+03 ,3.6026e+03 ,2.8821e+03 ,2.1616e+03 , & - &1.4411e+03 ,7.2053e+02 ,3.1630e-01 /) - kao(:, 1, 2,10) = (/ & - &2.0643e+03 ,1.8062e+03 ,1.5482e+03 ,1.2902e+03 ,1.0321e+03 ,7.7410e+02 , & - &5.1607e+02 ,2.5804e+02 ,7.9610e-02 /) - kao(:, 2, 2,10) = (/ & - &2.6419e+03 ,2.3117e+03 ,1.9815e+03 ,1.6512e+03 ,1.3210e+03 ,9.9073e+02 , & - &6.6049e+02 ,3.3024e+02 ,3.1756e-01 /) - kao(:, 3, 2,10) = (/ & - &3.2679e+03 ,2.8594e+03 ,2.4509e+03 ,2.0424e+03 ,1.6340e+03 ,1.2255e+03 , & - &8.1698e+02 ,4.0849e+02 ,1.6019e+00 /) - kao(:, 4, 2,10) = (/ & - &3.9535e+03 ,3.4593e+03 ,2.9652e+03 ,2.4710e+03 ,1.9768e+03 ,1.4826e+03 , & - &9.8838e+02 ,4.9419e+02 ,2.9545e+00 /) - kao(:, 5, 2,10) = (/ & - &4.6801e+03 ,4.0951e+03 ,3.5101e+03 ,2.9251e+03 ,2.3401e+03 ,1.7551e+03 , & - &1.1700e+03 ,5.8502e+02 ,4.1449e+00 /) - kao(:, 1, 3,10) = (/ & - &1.5076e+03 ,1.3191e+03 ,1.1307e+03 ,9.4224e+02 ,7.5379e+02 ,5.6534e+02 , & - &3.7689e+02 ,1.8845e+02 ,5.0945e-01 /) - kao(:, 2, 3,10) = (/ & - &1.9623e+03 ,1.7170e+03 ,1.4718e+03 ,1.2265e+03 ,9.8117e+02 ,7.3588e+02 , & - &4.9059e+02 ,2.4529e+02 ,2.4679e+00 /) - kao(:, 3, 3,10) = (/ & - &2.4731e+03 ,2.1640e+03 ,1.8549e+03 ,1.5457e+03 ,1.2366e+03 ,9.2743e+02 , & - &6.1829e+02 ,3.0914e+02 ,5.8082e+00 /) - kao(:, 4, 3,10) = (/ & - &3.0330e+03 ,2.6538e+03 ,2.2747e+03 ,1.8956e+03 ,1.5165e+03 ,1.1374e+03 , & - &7.5824e+02 ,3.7912e+02 ,6.6677e+00 /) - kao(:, 5, 3,10) = (/ & - &3.6345e+03 ,3.1802e+03 ,2.7259e+03 ,2.2715e+03 ,1.8172e+03 ,1.3629e+03 , & - &9.0862e+02 ,4.5431e+02 ,6.6949e+00 /) - kao(:, 1, 4,10) = (/ & - &1.0627e+03 ,9.2986e+02 ,7.9702e+02 ,6.6419e+02 ,5.3135e+02 ,3.9851e+02 , & - &2.6568e+02 ,1.3284e+02 ,8.6599e+00 /) - kao(:, 2, 4,10) = (/ & - &1.4166e+03 ,1.2395e+03 ,1.0624e+03 ,8.8537e+02 ,7.0829e+02 ,5.3122e+02 , & - &3.5415e+02 ,1.7707e+02 ,9.4746e+00 /) - kao(:, 3, 4,10) = (/ & - &1.8198e+03 ,1.5923e+03 ,1.3648e+03 ,1.1374e+03 ,9.0989e+02 ,6.8241e+02 , & - &4.5494e+02 ,2.2747e+02 ,9.4272e+00 /) - kao(:, 4, 4,10) = (/ & - &2.2704e+03 ,1.9866e+03 ,1.7028e+03 ,1.4190e+03 ,1.1352e+03 ,8.5140e+02 , & - &5.6760e+02 ,2.8380e+02 ,9.3833e+00 /) - kao(:, 5, 4,10) = (/ & - &2.7615e+03 ,2.4164e+03 ,2.0712e+03 ,1.7260e+03 ,1.3808e+03 ,1.0356e+03 , & - &6.9039e+02 ,3.4519e+02 ,9.3214e+00 /) - kao(:, 1, 5,10) = (/ & - &7.3556e+02 ,6.4362e+02 ,5.5167e+02 ,4.5973e+02 ,3.6778e+02 ,2.7584e+02 , & - &1.8389e+02 ,9.1946e+01 ,1.0345e+01 /) - kao(:, 2, 5,10) = (/ & - &1.0082e+03 ,8.8219e+02 ,7.5616e+02 ,6.3013e+02 ,5.0411e+02 ,3.7808e+02 , & - &2.5205e+02 ,1.2603e+02 ,1.0318e+01 /) - kao(:, 3, 5,10) = (/ & - &1.3203e+03 ,1.1552e+03 ,9.9020e+02 ,8.2516e+02 ,6.6013e+02 ,4.9510e+02 , & - &3.3007e+02 ,1.6503e+02 ,1.0269e+01 /) - kao(:, 4, 5,10) = (/ & - &1.6790e+03 ,1.4691e+03 ,1.2593e+03 ,1.0494e+03 ,8.3951e+02 ,6.2963e+02 , & - &4.1976e+02 ,2.0988e+02 ,1.0211e+01 /) - kao(:, 5, 5,10) = (/ & - &2.0720e+03 ,1.8130e+03 ,1.5540e+03 ,1.2950e+03 ,1.0360e+03 ,7.7699e+02 , & - &5.1799e+02 ,2.5900e+02 ,1.0128e+01 /) - kao(:, 1, 6,10) = (/ & - &4.9443e+02 ,4.3263e+02 ,3.7082e+02 ,3.0902e+02 ,2.4721e+02 ,1.8541e+02 , & - &1.2361e+02 ,6.1804e+01 ,1.1088e+01 /) - kao(:, 2, 6,10) = (/ & - &6.9842e+02 ,6.1111e+02 ,5.2381e+02 ,4.3651e+02 ,3.4921e+02 ,2.6191e+02 , & - &1.7460e+02 ,8.7302e+01 ,1.1041e+01 /) - kao(:, 3, 6,10) = (/ & - &9.3821e+02 ,8.2094e+02 ,7.0366e+02 ,5.8638e+02 ,4.6911e+02 ,3.5183e+02 , & - &2.3455e+02 ,1.1728e+02 ,1.0988e+01 /) - kao(:, 4, 6,10) = (/ & - &1.2155e+03 ,1.0636e+03 ,9.1165e+02 ,7.5971e+02 ,6.0777e+02 ,4.5582e+02 , & - &3.0388e+02 ,1.5194e+02 ,1.0913e+01 /) - kao(:, 5, 6,10) = (/ & - &1.5286e+03 ,1.3375e+03 ,1.1464e+03 ,9.5536e+02 ,7.6429e+02 ,5.7321e+02 , & - &3.8214e+02 ,1.9107e+02 ,1.0808e+01 /) - kao(:, 1, 7,10) = (/ & - &3.2977e+02 ,2.8854e+02 ,2.4732e+02 ,2.0610e+02 ,1.6488e+02 ,1.2366e+02 , & - &8.2441e+01 ,4.1221e+01 ,1.1566e+01 /) - kao(:, 2, 7,10) = (/ & - &4.8209e+02 ,4.2183e+02 ,3.6157e+02 ,3.0131e+02 ,2.4104e+02 ,1.8078e+02 , & - &1.2052e+02 ,6.0261e+01 ,1.1564e+01 /) - kao(:, 3, 7,10) = (/ & - &6.6530e+02 ,5.8214e+02 ,4.9898e+02 ,4.1581e+02 ,3.3265e+02 ,2.4949e+02 , & - &1.6632e+02 ,8.3163e+01 ,1.1535e+01 /) - kao(:, 4, 7,10) = (/ & - &8.8049e+02 ,7.7043e+02 ,6.6036e+02 ,5.5030e+02 ,4.4024e+02 ,3.3018e+02 , & - &2.2012e+02 ,1.1006e+02 ,1.1437e+01 /) - kao(:, 5, 7,10) = (/ & - &1.1278e+03 ,9.8684e+02 ,8.4586e+02 ,7.0488e+02 ,5.6391e+02 ,4.2293e+02 , & - &2.8195e+02 ,1.4098e+02 ,1.1316e+01 /) - kao(:, 1, 8,10) = (/ & - &2.2204e+02 ,1.9428e+02 ,1.6653e+02 ,1.3877e+02 ,1.1102e+02 ,8.3264e+01 , & - &5.5510e+01 ,3.0059e+01 ,1.1861e+01 /) - kao(:, 2, 8,10) = (/ & - &3.3638e+02 ,2.9433e+02 ,2.5228e+02 ,2.1024e+02 ,1.6819e+02 ,1.2614e+02 , & - &8.4095e+01 ,4.2076e+01 ,1.1785e+01 /) - kao(:, 3, 8,10) = (/ & - &4.7771e+02 ,4.1800e+02 ,3.5828e+02 ,2.9857e+02 ,2.3886e+02 ,1.7914e+02 , & - &1.1943e+02 ,5.9714e+01 ,1.1693e+01 /) - kao(:, 4, 8,10) = (/ & - &6.4744e+02 ,5.6651e+02 ,4.8558e+02 ,4.0465e+02 ,3.2372e+02 ,2.4279e+02 , & - &1.6186e+02 ,8.0931e+01 ,1.1572e+01 /) - kao(:, 5, 8,10) = (/ & - &8.4463e+02 ,7.3905e+02 ,6.3347e+02 ,5.2789e+02 ,4.2232e+02 ,3.1674e+02 , & - &2.1116e+02 ,1.0558e+02 ,1.1447e+01 /) - kao(:, 1, 9,10) = (/ & - &1.4633e+02 ,1.2804e+02 ,1.0975e+02 ,9.1455e+01 ,7.3164e+01 ,5.4873e+01 , & - &3.7228e+01 ,2.6999e+01 ,1.1829e+01 /) - kao(:, 2, 9,10) = (/ & - &2.2961e+02 ,2.0091e+02 ,1.7220e+02 ,1.4350e+02 ,1.1480e+02 ,8.6102e+01 , & - &5.7402e+01 ,3.3291e+01 ,1.1753e+01 /) - kao(:, 3, 9,10) = (/ & - &3.3705e+02 ,2.9492e+02 ,2.5279e+02 ,2.1066e+02 ,1.6852e+02 ,1.2639e+02 , & - &8.4263e+01 ,4.2726e+01 ,1.1656e+01 /) - kao(:, 4, 9,10) = (/ & - &4.6791e+02 ,4.0942e+02 ,3.5094e+02 ,2.9245e+02 ,2.3396e+02 ,1.7547e+02 , & - &1.1698e+02 ,5.8490e+01 ,1.1546e+01 /) - kao(:, 5, 9,10) = (/ & - &6.2380e+02 ,5.4582e+02 ,4.6785e+02 ,3.8987e+02 ,3.1190e+02 ,2.3392e+02 , & - &1.5595e+02 ,7.7975e+01 ,1.1440e+01 /) - kao(:, 1,10,10) = (/ & - &9.9121e+01 ,8.6731e+01 ,7.4340e+01 ,6.1950e+01 ,4.9560e+01 ,3.7719e+01 , & - &3.0913e+01 ,2.3571e+01 ,1.2025e+01 /) - kao(:, 2,10,10) = (/ & - &1.5969e+02 ,1.3973e+02 ,1.1977e+02 ,9.9804e+01 ,7.9844e+01 ,5.9883e+01 , & - &4.1267e+01 ,2.9611e+01 ,1.1959e+01 /) - kao(:, 3,10,10) = (/ & - &2.4182e+02 ,2.1160e+02 ,1.8137e+02 ,1.5114e+02 ,1.2091e+02 ,9.0684e+01 , & - &6.0456e+01 ,3.6780e+01 ,1.1864e+01 /) - kao(:, 4,10,10) = (/ & - &3.4325e+02 ,3.0034e+02 ,2.5744e+02 ,2.1453e+02 ,1.7163e+02 ,1.2872e+02 , & - &8.5813e+01 ,4.5301e+01 ,1.1768e+01 /) - kao(:, 5,10,10) = (/ & - &4.6649e+02 ,4.0818e+02 ,3.4987e+02 ,2.9156e+02 ,2.3325e+02 ,1.7493e+02 , & - &1.1662e+02 ,5.8448e+01 ,1.1666e+01 /) - kao(:, 1,11,10) = (/ & - &8.4453e+01 ,7.3896e+01 ,6.3339e+01 ,5.2783e+01 ,4.2282e+01 ,3.5008e+01 , & - &3.0468e+01 ,2.2795e+01 ,1.2480e+01 /) - kao(:, 2,11,10) = (/ & - &1.3606e+02 ,1.1905e+02 ,1.0204e+02 ,8.5035e+01 ,6.8028e+01 ,5.1171e+01 , & - &3.9405e+01 ,2.8346e+01 ,1.2418e+01 /) - kao(:, 3,11,10) = (/ & - &2.0562e+02 ,1.7991e+02 ,1.5421e+02 ,1.2851e+02 ,1.0281e+02 ,7.7106e+01 , & - &5.2236e+01 ,3.5283e+01 ,1.2333e+01 /) - kao(:, 4,11,10) = (/ & - &2.9197e+02 ,2.5547e+02 ,2.1898e+02 ,1.8248e+02 ,1.4598e+02 ,1.0949e+02 , & - &7.2992e+01 ,4.3383e+01 ,1.2243e+01 /) - kao(:, 5,11,10) = (/ & - &3.9645e+02 ,3.4690e+02 ,2.9734e+02 ,2.4778e+02 ,1.9823e+02 ,1.4867e+02 , & - &9.9113e+01 ,5.2639e+01 ,1.2132e+01 /) - kao(:, 1,12,10) = (/ & - &7.3008e+01 ,6.3882e+01 ,5.4756e+01 ,4.5630e+01 ,3.8097e+01 ,3.4292e+01 , & - &2.9157e+01 ,2.1820e+01 ,1.2784e+01 /) - kao(:, 2,12,10) = (/ & - &1.1777e+02 ,1.0304e+02 ,8.8324e+01 ,7.3604e+01 ,5.8883e+01 ,4.6283e+01 , & - &3.8218e+01 ,2.7110e+01 ,1.2693e+01 /) - kao(:, 3,12,10) = (/ & - &1.7754e+02 ,1.5535e+02 ,1.3316e+02 ,1.1096e+02 ,8.8771e+01 ,6.6578e+01 , & - &4.9180e+01 ,3.3603e+01 ,1.2566e+01 /) - kao(:, 4,12,10) = (/ & - &2.5172e+02 ,2.2026e+02 ,1.8879e+02 ,1.5733e+02 ,1.2586e+02 ,9.4396e+01 , & - &6.3855e+01 ,4.1285e+01 ,1.2431e+01 /) - kao(:, 5,12,10) = (/ & - &3.4203e+02 ,2.9928e+02 ,2.5652e+02 ,2.1377e+02 ,1.7102e+02 ,1.2826e+02 , & - &8.5508e+01 ,5.0087e+01 ,1.2252e+01 /) - kao(:, 1,13,10) = (/ & - &6.5744e+01 ,5.7526e+01 ,4.9308e+01 ,4.1412e+01 ,3.7107e+01 ,3.3686e+01 , & - &2.7959e+01 ,2.0954e+01 ,1.2543e+01 /) - kao(:, 2,13,10) = (/ & - &1.0592e+02 ,9.2679e+01 ,7.9440e+01 ,6.6200e+01 ,5.3492e+01 ,4.5296e+01 , & - &3.7012e+01 ,2.6073e+01 ,1.2385e+01 /) - kao(:, 3,13,10) = (/ & - &1.5952e+02 ,1.3958e+02 ,1.1964e+02 ,9.9699e+01 ,7.9759e+01 ,6.0961e+01 , & - &4.7985e+01 ,3.2430e+01 ,1.2250e+01 /) - kao(:, 4,13,10) = (/ & - &2.2626e+02 ,1.9798e+02 ,1.6969e+02 ,1.4141e+02 ,1.1313e+02 ,8.4848e+01 , & - &6.0965e+01 ,3.9929e+01 ,1.2100e+01 /) - kao(:, 5,13,10) = (/ & - &3.0736e+02 ,2.6894e+02 ,2.3052e+02 ,1.9210e+02 ,1.5368e+02 ,1.1526e+02 , & - &7.7678e+01 ,4.8494e+01 ,1.1980e+01 /) - kao(:, 1, 1,11) = (/ & - &3.9010e+03 ,3.4134e+03 ,2.9257e+03 ,2.4381e+03 ,1.9505e+03 ,1.4629e+03 , & - &9.7525e+02 ,4.8762e+02 ,2.5641e-03 /) - kao(:, 2, 1,11) = (/ & - &4.8941e+03 ,4.2823e+03 ,3.6706e+03 ,3.0588e+03 ,2.4471e+03 ,1.8353e+03 , & - &1.2235e+03 ,6.1176e+02 ,4.7147e-03 /) - kao(:, 3, 1,11) = (/ & - &6.0244e+03 ,5.2713e+03 ,4.5183e+03 ,3.7652e+03 ,3.0122e+03 ,2.2591e+03 , & - &1.5061e+03 ,7.5305e+02 ,1.8229e-02 /) - kao(:, 4, 1,11) = (/ & - &7.2726e+03 ,6.3635e+03 ,5.4544e+03 ,4.5454e+03 ,3.6363e+03 ,2.7272e+03 , & - &1.8181e+03 ,9.0907e+02 ,4.1403e-02 /) - kao(:, 5, 1,11) = (/ & - &8.6200e+03 ,7.5425e+03 ,6.4650e+03 ,5.3875e+03 ,4.3100e+03 ,3.2325e+03 , & - &2.1550e+03 ,1.0775e+03 ,7.0391e-01 /) - kao(:, 1, 2,11) = (/ & - &3.0926e+03 ,2.7060e+03 ,2.3194e+03 ,1.9329e+03 ,1.5463e+03 ,1.1597e+03 , & - &7.7315e+02 ,3.8657e+02 ,1.4758e-01 /) - kao(:, 2, 2,11) = (/ & - &3.9512e+03 ,3.4573e+03 ,2.9634e+03 ,2.4695e+03 ,1.9756e+03 ,1.4817e+03 , & - &9.8779e+02 ,4.9390e+02 ,7.5464e-01 /) - kao(:, 3, 2,11) = (/ & - &4.9225e+03 ,4.3072e+03 ,3.6919e+03 ,3.0766e+03 ,2.4613e+03 ,1.8460e+03 , & - &1.2306e+03 ,6.1532e+02 ,2.2469e+00 /) - kao(:, 4, 2,11) = (/ & - &6.0042e+03 ,5.2537e+03 ,4.5032e+03 ,3.7526e+03 ,3.0021e+03 ,2.2516e+03 , & - &1.5011e+03 ,7.5053e+02 ,4.5134e+00 /) - kao(:, 5, 2,11) = (/ & - &7.1983e+03 ,6.2985e+03 ,5.3987e+03 ,4.4989e+03 ,3.5991e+03 ,2.6994e+03 , & - &1.7996e+03 ,8.9979e+02 ,5.4294e+00 /) - kao(:, 1, 3,11) = (/ & - &2.3009e+03 ,2.0133e+03 ,1.7257e+03 ,1.4381e+03 ,1.1505e+03 ,8.6285e+02 , & - &5.7523e+02 ,2.8762e+02 ,4.0343e+00 /) - kao(:, 2, 3,11) = (/ & - &2.9916e+03 ,2.6177e+03 ,2.2437e+03 ,1.8698e+03 ,1.4958e+03 ,1.1219e+03 , & - &7.4790e+02 ,3.7395e+02 ,9.4960e+00 /) - kao(:, 3, 3,11) = (/ & - &3.7957e+03 ,3.3213e+03 ,2.8468e+03 ,2.3723e+03 ,1.8979e+03 ,1.4234e+03 , & - &9.4893e+02 ,4.7447e+02 ,9.8961e+00 /) - kao(:, 4, 3,11) = (/ & - &4.7090e+03 ,4.1204e+03 ,3.5318e+03 ,2.9432e+03 ,2.3545e+03 ,1.7659e+03 , & - &1.1773e+03 ,5.8863e+02 ,9.8448e+00 /) - kao(:, 5, 3,11) = (/ & - &5.7119e+03 ,4.9979e+03 ,4.2839e+03 ,3.5699e+03 ,2.8560e+03 ,2.1420e+03 , & - &1.4280e+03 ,7.1399e+02 ,9.5434e+00 /) - kao(:, 1, 4,11) = (/ & - &1.6459e+03 ,1.4402e+03 ,1.2345e+03 ,1.0287e+03 ,8.2297e+02 ,6.1723e+02 , & - &4.1148e+02 ,2.0574e+02 ,1.1261e+01 /) - kao(:, 2, 4,11) = (/ & - &2.1944e+03 ,1.9201e+03 ,1.6458e+03 ,1.3715e+03 ,1.0972e+03 ,8.2292e+02 , & - &5.4861e+02 ,2.7431e+02 ,1.1246e+01 /) - kao(:, 3, 4,11) = (/ & - &2.8415e+03 ,2.4863e+03 ,2.1311e+03 ,1.7759e+03 ,1.4207e+03 ,1.0656e+03 , & - &7.1037e+02 ,3.5519e+02 ,1.1203e+01 /) - kao(:, 4, 4,11) = (/ & - &3.5819e+03 ,3.1342e+03 ,2.6865e+03 ,2.2387e+03 ,1.7910e+03 ,1.3432e+03 , & - &8.9549e+02 ,4.4774e+02 ,1.1137e+01 /) - kao(:, 5, 4,11) = (/ & - &4.4164e+03 ,3.8643e+03 ,3.3123e+03 ,2.7602e+03 ,2.2082e+03 ,1.6561e+03 , & - &1.1041e+03 ,5.5205e+02 ,1.1062e+01 /) - kao(:, 1, 5,11) = (/ & - &1.1573e+03 ,1.0126e+03 ,8.6797e+02 ,7.2331e+02 ,5.7865e+02 ,4.3399e+02 , & - &2.8932e+02 ,1.4466e+02 ,1.2627e+01 /) - kao(:, 2, 5,11) = (/ & - &1.5804e+03 ,1.3829e+03 ,1.1853e+03 ,9.8775e+02 ,7.9020e+02 ,5.9265e+02 , & - &3.9510e+02 ,1.9755e+02 ,1.2599e+01 /) - kao(:, 3, 5,11) = (/ & - &2.0873e+03 ,1.8264e+03 ,1.5655e+03 ,1.3046e+03 ,1.0437e+03 ,7.8274e+02 , & - &5.2183e+02 ,2.6092e+02 ,1.2536e+01 /) - kao(:, 4, 5,11) = (/ & - &2.6827e+03 ,2.3473e+03 ,2.0120e+03 ,1.6767e+03 ,1.3413e+03 ,1.0060e+03 , & - &6.7067e+02 ,3.3534e+02 ,1.2467e+01 /) - kao(:, 5, 5,11) = (/ & - &3.3592e+03 ,2.9393e+03 ,2.5194e+03 ,2.0995e+03 ,1.6796e+03 ,1.2597e+03 , & - &8.3980e+02 ,4.1990e+02 ,1.2393e+01 /) - kao(:, 1, 6,11) = (/ & - &7.9180e+02 ,6.9282e+02 ,5.9385e+02 ,4.9487e+02 ,3.9590e+02 ,2.9692e+02 , & - &1.9795e+02 ,9.8975e+01 ,1.3948e+01 /) - kao(:, 2, 6,11) = (/ & - &1.1067e+03 ,9.6838e+02 ,8.3004e+02 ,6.9170e+02 ,5.5336e+02 ,4.1502e+02 , & - &2.7668e+02 ,1.3834e+02 ,1.3917e+01 /) - kao(:, 3, 6,11) = (/ & - &1.4976e+03 ,1.3104e+03 ,1.1232e+03 ,9.3600e+02 ,7.4880e+02 ,5.6160e+02 , & - &3.7440e+02 ,1.8720e+02 ,1.3860e+01 /) - kao(:, 4, 6,11) = (/ & - &1.9619e+03 ,1.7167e+03 ,1.4715e+03 ,1.2262e+03 ,9.8097e+02 ,7.3573e+02 , & - &4.9049e+02 ,2.4524e+02 ,1.3785e+01 /) - kao(:, 5, 6,11) = (/ & - &2.4991e+03 ,2.1867e+03 ,1.8743e+03 ,1.5619e+03 ,1.2496e+03 ,9.3716e+02 , & - &6.2477e+02 ,3.1239e+02 ,1.3707e+01 /) - kao(:, 1, 7,11) = (/ & - &5.3794e+02 ,4.7070e+02 ,4.0346e+02 ,3.3621e+02 ,2.6897e+02 ,2.0173e+02 , & - &1.3449e+02 ,6.7243e+01 ,1.5200e+01 /) - kao(:, 2, 7,11) = (/ & - &7.7168e+02 ,6.7522e+02 ,5.7876e+02 ,4.8230e+02 ,3.8584e+02 ,2.8938e+02 , & - &1.9292e+02 ,9.6460e+01 ,1.5161e+01 /) - kao(:, 3, 7,11) = (/ & - &1.0690e+03 ,9.3537e+02 ,8.0174e+02 ,6.6812e+02 ,5.3449e+02 ,4.0087e+02 , & - &2.6725e+02 ,1.3362e+02 ,1.5097e+01 /) - kao(:, 4, 7,11) = (/ & - &1.4303e+03 ,1.2515e+03 ,1.0727e+03 ,8.9396e+02 ,7.1516e+02 ,5.3637e+02 , & - &3.5758e+02 ,1.7879e+02 ,1.5017e+01 /) - kao(:, 5, 7,11) = (/ & - &1.8576e+03 ,1.6254e+03 ,1.3932e+03 ,1.1610e+03 ,9.2880e+02 ,6.9660e+02 , & - &4.6440e+02 ,2.3220e+02 ,1.4920e+01 /) - kao(:, 1, 8,11) = (/ & - &3.6857e+02 ,3.2250e+02 ,2.7643e+02 ,2.3036e+02 ,1.8428e+02 ,1.3821e+02 , & - &9.2143e+01 ,4.6072e+01 ,1.6297e+01 /) - kao(:, 2, 8,11) = (/ & - &5.4427e+02 ,4.7624e+02 ,4.0820e+02 ,3.4017e+02 ,2.7214e+02 ,2.0410e+02 , & - &1.3607e+02 ,6.8035e+01 ,1.6238e+01 /) - kao(:, 3, 8,11) = (/ & - &7.7191e+02 ,6.7542e+02 ,5.7893e+02 ,4.8244e+02 ,3.8595e+02 ,2.8947e+02 , & - &1.9298e+02 ,9.6489e+01 ,1.6155e+01 /) - kao(:, 4, 8,11) = (/ & - &1.0564e+03 ,9.2435e+02 ,7.9230e+02 ,6.6025e+02 ,5.2820e+02 ,3.9615e+02 , & - &2.6410e+02 ,1.3205e+02 ,1.6062e+01 /) - kao(:, 5, 8,11) = (/ & - &1.3972e+03 ,1.2225e+03 ,1.0479e+03 ,8.7322e+02 ,6.9858e+02 ,5.2393e+02 , & - &3.4929e+02 ,1.7465e+02 ,1.5943e+01 /) - kao(:, 1, 9,11) = (/ & - &2.4734e+02 ,2.1642e+02 ,1.8550e+02 ,1.5459e+02 ,1.2367e+02 ,9.2751e+01 , & - &6.1834e+01 ,3.4329e+01 ,1.7139e+01 /) - kao(:, 2, 9,11) = (/ & - &3.7646e+02 ,3.2941e+02 ,2.8235e+02 ,2.3529e+02 ,1.8823e+02 ,1.4117e+02 , & - &9.4116e+01 ,4.7119e+01 ,1.7064e+01 /) - kao(:, 3, 9,11) = (/ & - &5.4702e+02 ,4.7864e+02 ,4.1027e+02 ,3.4189e+02 ,2.7351e+02 ,2.0513e+02 , & - &1.3676e+02 ,6.8378e+01 ,1.6972e+01 /) - kao(:, 4, 9,11) = (/ & - &7.6564e+02 ,6.6994e+02 ,5.7423e+02 ,4.7853e+02 ,3.8282e+02 ,2.8712e+02 , & - &1.9141e+02 ,9.5706e+01 ,1.6856e+01 /) - kao(:, 5, 9,11) = (/ & - &1.0333e+03 ,9.0412e+02 ,7.7496e+02 ,6.4580e+02 ,5.1664e+02 ,3.8748e+02 , & - &2.5832e+02 ,1.2916e+02 ,1.6713e+01 /) - kao(:, 1,10,11) = (/ & - &1.6975e+02 ,1.4853e+02 ,1.2731e+02 ,1.0609e+02 ,8.4874e+01 ,6.3656e+01 , & - &4.3000e+01 ,3.1831e+01 ,1.7572e+01 /) - kao(:, 2,10,11) = (/ & - &2.6544e+02 ,2.3226e+02 ,1.9908e+02 ,1.6590e+02 ,1.3272e+02 ,9.9541e+01 , & - &6.6361e+01 ,3.9122e+01 ,1.7485e+01 /) - kao(:, 3,10,11) = (/ & - &3.9471e+02 ,3.4537e+02 ,2.9603e+02 ,2.4669e+02 ,1.9735e+02 ,1.4801e+02 , & - &9.8676e+01 ,5.0382e+01 ,1.7381e+01 /) - kao(:, 4,10,11) = (/ & - &5.6315e+02 ,4.9275e+02 ,4.2236e+02 ,3.5197e+02 ,2.8157e+02 ,2.1118e+02 , & - &1.4079e+02 ,7.0394e+01 ,1.7247e+01 /) - kao(:, 5,10,11) = (/ & - &7.7410e+02 ,6.7734e+02 ,5.8057e+02 ,4.8381e+02 ,3.8705e+02 ,2.9029e+02 , & - &1.9352e+02 ,9.6763e+01 ,1.7092e+01 /) - kao(:, 1,11,11) = (/ & - &1.4476e+02 ,1.2667e+02 ,1.0857e+02 ,9.0475e+01 ,7.2380e+01 ,5.4285e+01 , & - &4.0590e+01 ,3.2171e+01 ,1.7597e+01 /) - kao(:, 2,11,11) = (/ & - &2.2628e+02 ,1.9800e+02 ,1.6971e+02 ,1.4143e+02 ,1.1314e+02 ,8.4856e+01 , & - &5.6719e+01 ,3.9479e+01 ,1.7480e+01 /) - kao(:, 3,11,11) = (/ & - &3.3682e+02 ,2.9472e+02 ,2.5262e+02 ,2.1051e+02 ,1.6841e+02 ,1.2631e+02 , & - &8.4204e+01 ,4.8355e+01 ,1.7349e+01 /) - kao(:, 4,11,11) = (/ & - &4.8164e+02 ,4.2144e+02 ,3.6123e+02 ,3.0103e+02 ,2.4082e+02 ,1.8062e+02 , & - &1.2041e+02 ,6.1572e+01 ,1.7186e+01 /) - kao(:, 5,11,11) = (/ & - &6.6267e+02 ,5.7984e+02 ,4.9701e+02 ,4.1417e+02 ,3.3134e+02 ,2.4850e+02 , & - &1.6567e+02 ,8.2835e+01 ,1.7015e+01 /) - kao(:, 1,12,11) = (/ & - &1.2510e+02 ,1.0946e+02 ,9.3823e+01 ,7.8186e+01 ,6.2549e+01 ,4.8100e+01 , & - &4.0318e+01 ,3.2221e+01 ,1.7708e+01 /) - kao(:, 2,12,11) = (/ & - &1.9563e+02 ,1.7117e+02 ,1.4672e+02 ,1.2227e+02 ,9.7813e+01 ,7.3360e+01 , & - &5.2529e+01 ,3.9562e+01 ,1.7612e+01 /) - kao(:, 3,12,11) = (/ & - &2.9201e+02 ,2.5551e+02 ,2.1901e+02 ,1.8251e+02 ,1.4600e+02 ,1.0950e+02 , & - &7.3154e+01 ,4.8447e+01 ,1.7481e+01 /) - kao(:, 4,12,11) = (/ & - &4.1774e+02 ,3.6552e+02 ,3.1331e+02 ,2.6109e+02 ,2.0887e+02 ,1.5665e+02 , & - &1.0444e+02 ,5.8915e+01 ,1.7339e+01 /) - kao(:, 5,12,11) = (/ & - &5.7504e+02 ,5.0316e+02 ,4.3128e+02 ,3.5940e+02 ,2.8752e+02 ,2.1564e+02 , & - &1.4376e+02 ,7.3682e+01 ,1.7186e+01 /) - kao(:, 1,13,11) = (/ & - &1.1264e+02 ,9.8561e+01 ,8.4481e+01 ,7.0401e+01 ,5.6432e+01 ,4.7061e+01 , & - &4.0409e+01 ,3.2253e+01 ,1.8302e+01 /) - kao(:, 2,13,11) = (/ & - &1.7621e+02 ,1.5419e+02 ,1.3216e+02 ,1.1013e+02 ,8.8108e+01 ,6.6456e+01 , & - &5.2592e+01 ,3.9667e+01 ,1.8194e+01 /) - kao(:, 3,13,11) = (/ & - &2.6303e+02 ,2.3015e+02 ,1.9727e+02 ,1.6440e+02 ,1.3152e+02 ,9.8638e+01 , & - &6.8547e+01 ,4.8772e+01 ,1.8071e+01 /) - kao(:, 4,13,11) = (/ & - &3.7673e+02 ,3.2964e+02 ,2.8255e+02 ,2.3546e+02 ,1.8837e+02 ,1.4128e+02 , & - &9.4251e+01 ,5.9423e+01 ,1.7926e+01 /) - kao(:, 5,13,11) = (/ & - &5.1904e+02 ,4.5416e+02 ,3.8928e+02 ,3.2440e+02 ,2.5952e+02 ,1.9464e+02 , & - &1.2976e+02 ,7.1698e+01 ,1.7708e+01 /) - kao(:, 1, 1,12) = (/ & - &6.1566e+03 ,5.3871e+03 ,4.6175e+03 ,3.8479e+03 ,3.0783e+03 ,2.3087e+03 , & - &1.5392e+03 ,7.6958e+02 ,3.6622e-03 /) - kao(:, 2, 1,12) = (/ & - &7.8640e+03 ,6.8810e+03 ,5.8980e+03 ,4.9150e+03 ,3.9320e+03 ,2.9490e+03 , & - &1.9660e+03 ,9.8301e+02 ,3.6025e-03 /) - kao(:, 3, 1,12) = (/ & - &9.7949e+03 ,8.5705e+03 ,7.3462e+03 ,6.1218e+03 ,4.8974e+03 ,3.6731e+03 , & - &2.4487e+03 ,1.2244e+03 ,3.3010e-02 /) - kao(:, 4, 1,12) = (/ & - &1.1959e+04 ,1.0464e+04 ,8.9695e+03 ,7.4746e+03 ,5.9797e+03 ,4.4847e+03 , & - &2.9898e+03 ,1.4949e+03 ,6.0612e-02 /) - kao(:, 5, 1,12) = (/ & - &1.4386e+04 ,1.2588e+04 ,1.0790e+04 ,8.9913e+03 ,7.1931e+03 ,5.3948e+03 , & - &3.5965e+03 ,1.7983e+03 ,7.6915e-02 /) - kao(:, 1, 2,12) = (/ & - &5.0811e+03 ,4.4460e+03 ,3.8109e+03 ,3.1757e+03 ,2.5406e+03 ,1.9054e+03 , & - &1.2703e+03 ,6.3514e+02 ,2.7963e-01 /) - kao(:, 2, 2,12) = (/ & - &6.5891e+03 ,5.7655e+03 ,4.9418e+03 ,4.1182e+03 ,3.2946e+03 ,2.4709e+03 , & - &1.6473e+03 ,8.2364e+02 ,2.3002e+00 /) - kao(:, 3, 2,12) = (/ & - &8.3666e+03 ,7.3208e+03 ,6.2750e+03 ,5.2291e+03 ,4.1833e+03 ,3.1375e+03 , & - &2.0917e+03 ,1.0458e+03 ,4.9790e+00 /) - kao(:, 4, 2,12) = (/ & - &1.0356e+04 ,9.0616e+03 ,7.7671e+03 ,6.4726e+03 ,5.1781e+03 ,3.8836e+03 , & - &2.5890e+03 ,1.2945e+03 ,6.0169e+00 /) - kao(:, 5, 2,12) = (/ & - &1.2531e+04 ,1.0965e+04 ,9.3984e+03 ,7.8320e+03 ,6.2656e+03 ,4.6992e+03 , & - &3.1328e+03 ,1.5664e+03 ,6.8160e+00 /) - kao(:, 1, 3,12) = (/ & - &3.8913e+03 ,3.4049e+03 ,2.9185e+03 ,2.4321e+03 ,1.9457e+03 ,1.4593e+03 , & - &9.7284e+02 ,4.8642e+02 ,1.1253e+01 /) - kao(:, 2, 3,12) = (/ & - &5.1870e+03 ,4.5386e+03 ,3.8902e+03 ,3.2418e+03 ,2.5935e+03 ,1.9451e+03 , & - &1.2967e+03 ,6.4837e+02 ,1.1246e+01 /) - kao(:, 3, 3,12) = (/ & - &6.6906e+03 ,5.8543e+03 ,5.0180e+03 ,4.1816e+03 ,3.3453e+03 ,2.5090e+03 , & - &1.6727e+03 ,8.3633e+02 ,1.1235e+01 /) - kao(:, 4, 3,12) = (/ & - &8.4124e+03 ,7.3608e+03 ,6.3093e+03 ,5.2577e+03 ,4.2062e+03 ,3.1546e+03 , & - &2.1031e+03 ,1.0515e+03 ,1.1206e+01 /) - kao(:, 5, 3,12) = (/ & - &1.0381e+04 ,9.0837e+03 ,7.7860e+03 ,6.4883e+03 ,5.1907e+03 ,3.8930e+03 , & - &2.5953e+03 ,1.2977e+03 ,1.1154e+01 /) - kao(:, 1, 4,12) = (/ & - &2.8697e+03 ,2.5110e+03 ,2.1523e+03 ,1.7936e+03 ,1.4349e+03 ,1.0761e+03 , & - &7.1743e+02 ,3.5872e+02 ,1.3022e+01 /) - kao(:, 2, 4,12) = (/ & - &3.9101e+03 ,3.4213e+03 ,2.9326e+03 ,2.4438e+03 ,1.9551e+03 ,1.4663e+03 , & - &9.7753e+02 ,4.8877e+02 ,1.3025e+01 /) - kao(:, 3, 4,12) = (/ & - &5.1573e+03 ,4.5126e+03 ,3.8680e+03 ,3.2233e+03 ,2.5786e+03 ,1.9340e+03 , & - &1.2893e+03 ,6.4466e+02 ,1.3008e+01 /) - kao(:, 4, 4,12) = (/ & - &6.6403e+03 ,5.8103e+03 ,4.9802e+03 ,4.1502e+03 ,3.3201e+03 ,2.4901e+03 , & - &1.6601e+03 ,8.3004e+02 ,1.2981e+01 /) - kao(:, 5, 4,12) = (/ & - &8.3023e+03 ,7.2645e+03 ,6.2267e+03 ,5.1889e+03 ,4.1511e+03 ,3.1134e+03 , & - &2.0756e+03 ,1.0378e+03 ,1.2927e+01 /) - kao(:, 1, 5,12) = (/ & - &2.0574e+03 ,1.8002e+03 ,1.5431e+03 ,1.2859e+03 ,1.0287e+03 ,7.7153e+02 , & - &5.1435e+02 ,2.5718e+02 ,1.4941e+01 /) - kao(:, 2, 5,12) = (/ & - &2.8796e+03 ,2.5197e+03 ,2.1597e+03 ,1.7998e+03 ,1.4398e+03 ,1.0799e+03 , & - &7.1991e+02 ,3.5996e+02 ,1.4958e+01 /) - kao(:, 3, 5,12) = (/ & - &3.9044e+03 ,3.4163e+03 ,2.9283e+03 ,2.4402e+03 ,1.9522e+03 ,1.4641e+03 , & - &9.7610e+02 ,4.8805e+02 ,1.4965e+01 /) - kao(:, 4, 5,12) = (/ & - &5.1045e+03 ,4.4665e+03 ,3.8284e+03 ,3.1903e+03 ,2.5523e+03 ,1.9142e+03 , & - &1.2761e+03 ,6.3807e+02 ,1.4927e+01 /) - kao(:, 5, 5,12) = (/ & - &6.5127e+03 ,5.6986e+03 ,4.8846e+03 ,4.0705e+03 ,3.2564e+03 ,2.4423e+03 , & - &1.6282e+03 ,8.1409e+02 ,1.4857e+01 /) - kao(:, 1, 6,12) = (/ & - &1.4218e+03 ,1.2441e+03 ,1.0663e+03 ,8.8861e+02 ,7.1089e+02 ,5.3316e+02 , & - &3.5544e+02 ,1.7772e+02 ,1.7034e+01 /) - kao(:, 2, 6,12) = (/ & - &2.0585e+03 ,1.8012e+03 ,1.5439e+03 ,1.2865e+03 ,1.0292e+03 ,7.7193e+02 , & - &5.1462e+02 ,2.5731e+02 ,1.7052e+01 /) - kao(:, 3, 6,12) = (/ & - &2.8529e+03 ,2.4963e+03 ,2.1397e+03 ,1.7831e+03 ,1.4265e+03 ,1.0699e+03 , & - &7.1324e+02 ,3.5662e+02 ,1.7043e+01 /) - kao(:, 4, 6,12) = (/ & - &3.8237e+03 ,3.3458e+03 ,2.8678e+03 ,2.3898e+03 ,1.9119e+03 ,1.4339e+03 , & - &9.5593e+02 ,4.7797e+02 ,1.6999e+01 /) - kao(:, 5, 6,12) = (/ & - &4.9757e+03 ,4.3537e+03 ,3.7318e+03 ,3.1098e+03 ,2.4878e+03 ,1.8659e+03 , & - &1.2439e+03 ,6.2196e+02 ,1.6923e+01 /) - kao(:, 1, 7,12) = (/ & - &9.7219e+02 ,8.5066e+02 ,7.2914e+02 ,6.0761e+02 ,4.8609e+02 ,3.6457e+02 , & - &2.4305e+02 ,1.2152e+02 ,1.9204e+01 /) - kao(:, 2, 7,12) = (/ & - &1.4501e+03 ,1.2688e+03 ,1.0876e+03 ,9.0631e+02 ,7.2505e+02 ,5.4378e+02 , & - &3.6252e+02 ,1.8126e+02 ,1.9225e+01 /) - kao(:, 3, 7,12) = (/ & - &2.0671e+03 ,1.8087e+03 ,1.5503e+03 ,1.2919e+03 ,1.0335e+03 ,7.7515e+02 , & - &5.1676e+02 ,2.5838e+02 ,1.9209e+01 /) - kao(:, 4, 7,12) = (/ & - &2.8414e+03 ,2.4862e+03 ,2.1311e+03 ,1.7759e+03 ,1.4207e+03 ,1.0655e+03 , & - &7.1035e+02 ,3.5518e+02 ,1.9156e+01 /) - kao(:, 5, 7,12) = (/ & - &3.7638e+03 ,3.2933e+03 ,2.8228e+03 ,2.3524e+03 ,1.8819e+03 ,1.4114e+03 , & - &9.4094e+02 ,4.7047e+02 ,1.9066e+01 /) - kao(:, 1, 8,12) = (/ & - &6.6611e+02 ,5.8284e+02 ,4.9958e+02 ,4.1632e+02 ,3.3305e+02 ,2.4979e+02 , & - &1.6653e+02 ,8.3265e+01 ,2.1374e+01 /) - kao(:, 2, 8,12) = (/ & - &1.0262e+03 ,8.9794e+02 ,7.6966e+02 ,6.4139e+02 ,5.1311e+02 ,3.8483e+02 , & - &2.5656e+02 ,1.2828e+02 ,2.1403e+01 /) - kao(:, 3, 8,12) = (/ & - &1.5100e+03 ,1.3213e+03 ,1.1325e+03 ,9.4376e+02 ,7.5501e+02 ,5.6626e+02 , & - &3.7751e+02 ,1.8875e+02 ,2.1385e+01 /) - kao(:, 4, 8,12) = (/ & - &2.1206e+03 ,1.8555e+03 ,1.5904e+03 ,1.3254e+03 ,1.0603e+03 ,7.9522e+02 , & - &5.3015e+02 ,2.6507e+02 ,2.1320e+01 /) - kao(:, 5, 8,12) = (/ & - &2.8794e+03 ,2.5195e+03 ,2.1596e+03 ,1.7996e+03 ,1.4397e+03 ,1.0798e+03 , & - &7.1985e+02 ,3.5993e+02 ,2.1216e+01 /) - kao(:, 1, 9,12) = (/ & - &4.4380e+02 ,3.8832e+02 ,3.3285e+02 ,2.7737e+02 ,2.2190e+02 ,1.6642e+02 , & - &1.1095e+02 ,5.5475e+01 ,2.3490e+01 /) - kao(:, 2, 9,12) = (/ & - &7.0869e+02 ,6.2011e+02 ,5.3152e+02 ,4.4293e+02 ,3.5435e+02 ,2.6576e+02 , & - &1.7717e+02 ,8.8587e+01 ,2.3505e+01 /) - kao(:, 3, 9,12) = (/ & - &1.0731e+03 ,9.3894e+02 ,8.0481e+02 ,6.7067e+02 ,5.3654e+02 ,4.0240e+02 , & - &2.6827e+02 ,1.3414e+02 ,2.3465e+01 /) - kao(:, 4, 9,12) = (/ & - &1.5496e+03 ,1.3559e+03 ,1.1622e+03 ,9.6851e+02 ,7.7481e+02 ,5.8111e+02 , & - &3.8741e+02 ,1.9370e+02 ,2.3379e+01 /) - kao(:, 5, 9,12) = (/ & - &2.1497e+03 ,1.8810e+03 ,1.6123e+03 ,1.3436e+03 ,1.0749e+03 ,8.0615e+02 , & - &5.3743e+02 ,2.6872e+02 ,2.3258e+01 /) - kao(:, 1,10,12) = (/ & - &3.0213e+02 ,2.6436e+02 ,2.2659e+02 ,1.8883e+02 ,1.5106e+02 ,1.1330e+02 , & - &7.5532e+01 ,4.3106e+01 ,2.5395e+01 /) - kao(:, 2,10,12) = (/ & - &4.9804e+02 ,4.3578e+02 ,3.7353e+02 ,3.1127e+02 ,2.4902e+02 ,1.8676e+02 , & - &1.2451e+02 ,6.2505e+01 ,2.5385e+01 /) - kao(:, 3,10,12) = (/ & - &7.7418e+02 ,6.7741e+02 ,5.8063e+02 ,4.8386e+02 ,3.8709e+02 ,2.9032e+02 , & - &1.9354e+02 ,9.6773e+01 ,2.5325e+01 /) - kao(:, 4,10,12) = (/ & - &1.1469e+03 ,1.0035e+03 ,8.6015e+02 ,7.1679e+02 ,5.7343e+02 ,4.3007e+02 , & - &2.8671e+02 ,1.4336e+02 ,2.5217e+01 /) - kao(:, 5,10,12) = (/ & - &1.6217e+03 ,1.4190e+03 ,1.2162e+03 ,1.0135e+03 ,8.1083e+02 ,6.0812e+02 , & - &4.0541e+02 ,2.0271e+02 ,2.5082e+01 /) - kao(:, 1,11,12) = (/ & - &2.6097e+02 ,2.2835e+02 ,1.9573e+02 ,1.6311e+02 ,1.3048e+02 ,9.7863e+01 , & - &6.5361e+01 ,4.5364e+01 ,2.6989e+01 /) - kao(:, 2,11,12) = (/ & - &4.3087e+02 ,3.7701e+02 ,3.2315e+02 ,2.6929e+02 ,2.1543e+02 ,1.6158e+02 , & - &1.0772e+02 ,5.7754e+01 ,2.6926e+01 /) - kao(:, 3,11,12) = (/ & - &6.7272e+02 ,5.8863e+02 ,5.0454e+02 ,4.2045e+02 ,3.3636e+02 ,2.5227e+02 , & - &1.6818e+02 ,8.4156e+01 ,2.6813e+01 /) - kao(:, 4,11,12) = (/ & - &9.9607e+02 ,8.7156e+02 ,7.4705e+02 ,6.2254e+02 ,4.9803e+02 ,3.7353e+02 , & - &2.4902e+02 ,1.2451e+02 ,2.6666e+01 /) - kao(:, 5,11,12) = (/ & - &1.4127e+03 ,1.2361e+03 ,1.0595e+03 ,8.8291e+02 ,7.0633e+02 ,5.2975e+02 , & - &3.5316e+02 ,1.7658e+02 ,2.6473e+01 /) - kao(:, 1,12,12) = (/ & - &2.2830e+02 ,1.9976e+02 ,1.7123e+02 ,1.4269e+02 ,1.1415e+02 ,8.5613e+01 , & - &6.0099e+01 ,4.8249e+01 ,2.8107e+01 /) - kao(:, 2,12,12) = (/ & - &3.7815e+02 ,3.3089e+02 ,2.8362e+02 ,2.3635e+02 ,1.8908e+02 ,1.4181e+02 , & - &9.4540e+01 ,5.8332e+01 ,2.7966e+01 /) - kao(:, 3,12,12) = (/ & - &5.9040e+02 ,5.1660e+02 ,4.4280e+02 ,3.6900e+02 ,2.9520e+02 ,2.2140e+02 , & - &1.4760e+02 ,7.6746e+01 ,2.7793e+01 /) - kao(:, 4,12,12) = (/ & - &8.7660e+02 ,7.6702e+02 ,6.5745e+02 ,5.4787e+02 ,4.3830e+02 ,3.2873e+02 , & - &2.1915e+02 ,1.0959e+02 ,2.7580e+01 /) - kao(:, 5,12,12) = (/ & - &1.2432e+03 ,1.0878e+03 ,9.3242e+02 ,7.7702e+02 ,6.2161e+02 ,4.6621e+02 , & - &3.1081e+02 ,1.5540e+02 ,2.7330e+01 /) - kao(:, 1,13,12) = (/ & - &2.0770e+02 ,1.8173e+02 ,1.5577e+02 ,1.2981e+02 ,1.0385e+02 ,7.8129e+01 , & - &6.0586e+01 ,5.1072e+01 ,2.8383e+01 /) - kao(:, 2,13,12) = (/ & - &3.4420e+02 ,3.0118e+02 ,2.5815e+02 ,2.1513e+02 ,1.7210e+02 ,1.2908e+02 , & - &8.7185e+01 ,6.1802e+01 ,2.8222e+01 /) - kao(:, 3,13,12) = (/ & - &5.3871e+02 ,4.7137e+02 ,4.0403e+02 ,3.3670e+02 ,2.6936e+02 ,2.0202e+02 , & - &1.3468e+02 ,7.6219e+01 ,2.8010e+01 /) - kao(:, 4,13,12) = (/ & - &7.9982e+02 ,6.9985e+02 ,5.9987e+02 ,4.9989e+02 ,3.9991e+02 ,2.9994e+02 , & - &1.9996e+02 ,1.0196e+02 ,2.7782e+01 /) - kao(:, 5,13,12) = (/ & - &1.1353e+03 ,9.9341e+02 ,8.5150e+02 ,7.0958e+02 ,5.6767e+02 ,4.2575e+02 , & - &2.8384e+02 ,1.4192e+02 ,2.7521e+01 /) - kao(:, 1, 1,13) = (/ & - &1.0877e+04 ,9.5175e+03 ,8.1579e+03 ,6.7982e+03 ,5.4386e+03 ,4.0789e+03 , & - &2.7193e+03 ,1.3596e+03 ,2.7375e-03 /) - kao(:, 2, 1,13) = (/ & - &1.4140e+04 ,1.2372e+04 ,1.0605e+04 ,8.8373e+03 ,7.0699e+03 ,5.3024e+03 , & - &3.5349e+03 ,1.7675e+03 ,2.6515e-03 /) - kao(:, 3, 1,13) = (/ & - &1.7904e+04 ,1.5666e+04 ,1.3428e+04 ,1.1190e+04 ,8.9519e+03 ,6.7139e+03 , & - &4.4759e+03 ,2.2380e+03 ,3.8993e-02 /) - kao(:, 4, 1,13) = (/ & - &2.2059e+04 ,1.9302e+04 ,1.6544e+04 ,1.3787e+04 ,1.1029e+04 ,8.2721e+03 , & - &5.5147e+03 ,2.7574e+03 ,9.2576e-02 /) - kao(:, 5, 1,13) = (/ & - &2.6544e+04 ,2.3226e+04 ,1.9908e+04 ,1.6590e+04 ,1.3272e+04 ,9.9541e+03 , & - &6.6361e+03 ,3.3180e+03 ,1.0695e-01 /) - kao(:, 1, 2,13) = (/ & - &9.6500e+03 ,8.4437e+03 ,7.2375e+03 ,6.0312e+03 ,4.8250e+03 ,3.6187e+03 , & - &2.4125e+03 ,1.2062e+03 ,3.2200e-01 /) - kao(:, 2, 2,13) = (/ & - &1.2735e+04 ,1.1143e+04 ,9.5512e+03 ,7.9593e+03 ,6.3674e+03 ,4.7756e+03 , & - &3.1837e+03 ,1.5919e+03 ,5.1280e+00 /) - kao(:, 3, 2,13) = (/ & - &1.6244e+04 ,1.4213e+04 ,1.2183e+04 ,1.0152e+04 ,8.1218e+03 ,6.0913e+03 , & - &4.0609e+03 ,2.0304e+03 ,7.4252e+00 /) - kao(:, 4, 2,13) = (/ & - &2.0224e+04 ,1.7696e+04 ,1.5168e+04 ,1.2640e+04 ,1.0112e+04 ,7.5839e+03 , & - &5.0559e+03 ,2.5280e+03 ,7.7282e+00 /) - kao(:, 5, 2,13) = (/ & - &2.4645e+04 ,2.1565e+04 ,1.8484e+04 ,1.5403e+04 ,1.2323e+04 ,9.2420e+03 , & - &6.1614e+03 ,3.0807e+03 ,7.1576e+00 /) - kao(:, 1, 3,13) = (/ & - &7.8601e+03 ,6.8776e+03 ,5.8951e+03 ,4.9126e+03 ,3.9300e+03 ,2.9475e+03 , & - &1.9650e+03 ,9.8251e+02 ,1.2409e+01 /) - kao(:, 2, 3,13) = (/ & - &1.0573e+04 ,9.2512e+03 ,7.9296e+03 ,6.6080e+03 ,5.2864e+03 ,3.9648e+03 , & - &2.6432e+03 ,1.3216e+03 ,1.2422e+01 /) - kao(:, 3, 3,13) = (/ & - &1.3794e+04 ,1.2070e+04 ,1.0346e+04 ,8.6214e+03 ,6.8971e+03 ,5.1729e+03 , & - &3.4486e+03 ,1.7243e+03 ,1.2413e+01 /) - kao(:, 4, 3,13) = (/ & - &1.7502e+04 ,1.5315e+04 ,1.3127e+04 ,1.0939e+04 ,8.7512e+03 ,6.5634e+03 , & - &4.3756e+03 ,2.1878e+03 ,1.2394e+01 /) - kao(:, 5, 3,13) = (/ & - &2.1662e+04 ,1.8954e+04 ,1.6247e+04 ,1.3539e+04 ,1.0831e+04 ,8.1233e+03 , & - &5.4155e+03 ,2.7078e+03 ,1.2358e+01 /) - kao(:, 1, 4,13) = (/ & - &6.0906e+03 ,5.3293e+03 ,4.5680e+03 ,3.8067e+03 ,3.0453e+03 ,2.2840e+03 , & - &1.5227e+03 ,7.6133e+02 ,1.4627e+01 /) - kao(:, 2, 4,13) = (/ & - &8.4475e+03 ,7.3915e+03 ,6.3356e+03 ,5.2797e+03 ,4.2237e+03 ,3.1678e+03 , & - &2.1119e+03 ,1.0559e+03 ,1.4656e+01 /) - kao(:, 3, 4,13) = (/ & - &1.1299e+04 ,9.8868e+03 ,8.4744e+03 ,7.0620e+03 ,5.6496e+03 ,4.2372e+03 , & - &2.8248e+03 ,1.4124e+03 ,1.4666e+01 /) - kao(:, 4, 4,13) = (/ & - &1.4605e+04 ,1.2779e+04 ,1.0954e+04 ,9.1282e+03 ,7.3025e+03 ,5.4769e+03 , & - &3.6513e+03 ,1.8256e+03 ,1.4645e+01 /) - kao(:, 5, 4,13) = (/ & - &1.8360e+04 ,1.6065e+04 ,1.3770e+04 ,1.1475e+04 ,9.1801e+03 ,6.8851e+03 , & - &4.5900e+03 ,2.2950e+03 ,1.4604e+01 /) - kao(:, 1, 5,13) = (/ & - &4.6024e+03 ,4.0271e+03 ,3.4518e+03 ,2.8765e+03 ,2.3012e+03 ,1.7259e+03 , & - &1.1506e+03 ,5.7529e+02 ,1.7191e+01 /) - kao(:, 2, 5,13) = (/ & - &6.5855e+03 ,5.7623e+03 ,4.9391e+03 ,4.1159e+03 ,3.2927e+03 ,2.4695e+03 , & - &1.6464e+03 ,8.2318e+02 ,1.7235e+01 /) - kao(:, 3, 5,13) = (/ & - &8.9962e+03 ,7.8717e+03 ,6.7471e+03 ,5.6226e+03 ,4.4981e+03 ,3.3736e+03 , & - &2.2490e+03 ,1.1245e+03 ,1.7249e+01 /) - kao(:, 4, 5,13) = (/ & - &1.1873e+04 ,1.0388e+04 ,8.9044e+03 ,7.4203e+03 ,5.9363e+03 ,4.4522e+03 , & - &2.9681e+03 ,1.4841e+03 ,1.7236e+01 /) - kao(:, 5, 5,13) = (/ & - &1.5203e+04 ,1.3303e+04 ,1.1402e+04 ,9.5020e+03 ,7.6016e+03 ,5.7012e+03 , & - &3.8008e+03 ,1.9004e+03 ,1.7202e+01 /) - kao(:, 1, 6,13) = (/ & - &3.3402e+03 ,2.9227e+03 ,2.5052e+03 ,2.0876e+03 ,1.6701e+03 ,1.2526e+03 , & - &8.3506e+02 ,4.1753e+02 ,2.0086e+01 /) - kao(:, 2, 6,13) = (/ & - &4.9170e+03 ,4.3024e+03 ,3.6877e+03 ,3.0731e+03 ,2.4585e+03 ,1.8439e+03 , & - &1.2292e+03 ,6.1462e+02 ,2.0160e+01 /) - kao(:, 3, 6,13) = (/ & - &6.9136e+03 ,6.0494e+03 ,5.1852e+03 ,4.3210e+03 ,3.4568e+03 ,2.5926e+03 , & - &1.7284e+03 ,8.6420e+02 ,2.0194e+01 /) - kao(:, 4, 6,13) = (/ & - &9.3499e+03 ,8.1811e+03 ,7.0124e+03 ,5.8437e+03 ,4.6749e+03 ,3.5062e+03 , & - &2.3375e+03 ,1.1687e+03 ,2.0186e+01 /) - kao(:, 5, 6,13) = (/ & - &1.2234e+04 ,1.0705e+04 ,9.1755e+03 ,7.6462e+03 ,6.1170e+03 ,4.5877e+03 , & - &3.0585e+03 ,1.5292e+03 ,2.0149e+01 /) - kao(:, 1, 7,13) = (/ & - &2.3634e+03 ,2.0680e+03 ,1.7726e+03 ,1.4771e+03 ,1.1817e+03 ,8.8628e+02 , & - &5.9086e+02 ,2.9543e+02 ,2.3318e+01 /) - kao(:, 2, 7,13) = (/ & - &3.6109e+03 ,3.1596e+03 ,2.7082e+03 ,2.2568e+03 ,1.8055e+03 ,1.3541e+03 , & - &9.0273e+02 ,4.5136e+02 ,2.3426e+01 /) - kao(:, 3, 7,13) = (/ & - &5.2430e+03 ,4.5876e+03 ,3.9322e+03 ,3.2769e+03 ,2.6215e+03 ,1.9661e+03 , & - &1.3107e+03 ,6.5537e+02 ,2.3476e+01 /) - kao(:, 4, 7,13) = (/ & - &7.2754e+03 ,6.3660e+03 ,5.4565e+03 ,4.5471e+03 ,3.6377e+03 ,2.7283e+03 , & - &1.8188e+03 ,9.0942e+02 ,2.3476e+01 /) - kao(:, 5, 7,13) = (/ & - &9.7107e+03 ,8.4968e+03 ,7.2830e+03 ,6.0691e+03 ,4.8553e+03 ,3.6415e+03 , & - &2.4276e+03 ,1.2138e+03 ,2.3445e+01 /) - kao(:, 1, 8,13) = (/ & - &1.6675e+03 ,1.4591e+03 ,1.2506e+03 ,1.0422e+03 ,8.3375e+02 ,6.2531e+02 , & - &4.1687e+02 ,2.0844e+02 ,2.6870e+01 /) - kao(:, 2, 8,13) = (/ & - &2.6544e+03 ,2.3226e+03 ,1.9908e+03 ,1.6590e+03 ,1.3272e+03 ,9.9538e+02 , & - &6.6359e+02 ,3.3179e+02 ,2.6998e+01 /) - kao(:, 3, 8,13) = (/ & - &3.9767e+03 ,3.4797e+03 ,2.9826e+03 ,2.4855e+03 ,1.9884e+03 ,1.4913e+03 , & - &9.9419e+02 ,4.9709e+02 ,2.7066e+01 /) - kao(:, 4, 8,13) = (/ & - &5.6620e+03 ,4.9542e+03 ,4.2465e+03 ,3.5387e+03 ,2.8310e+03 ,2.1232e+03 , & - &1.4155e+03 ,7.0775e+02 ,2.7083e+01 /) - kao(:, 5, 8,13) = (/ & - &7.7334e+03 ,6.7667e+03 ,5.8000e+03 ,4.8334e+03 ,3.8667e+03 ,2.9000e+03 , & - &1.9333e+03 ,9.6667e+02 ,2.7049e+01 /) - kao(:, 1, 9,13) = (/ & - &1.1358e+03 ,9.9378e+02 ,8.5181e+02 ,7.0984e+02 ,5.6787e+02 ,4.2591e+02 , & - &2.8394e+02 ,1.4197e+02 ,3.0678e+01 /) - kao(:, 2, 9,13) = (/ & - &1.8861e+03 ,1.6503e+03 ,1.4146e+03 ,1.1788e+03 ,9.4305e+02 ,7.0729e+02 , & - &4.7153e+02 ,2.3576e+02 ,3.0840e+01 /) - kao(:, 3, 9,13) = (/ & - &2.9209e+03 ,2.5558e+03 ,2.1907e+03 ,1.8256e+03 ,1.4605e+03 ,1.0953e+03 , & - &7.3023e+02 ,3.6511e+02 ,3.0929e+01 /) - kao(:, 4, 9,13) = (/ & - &4.2847e+03 ,3.7491e+03 ,3.2135e+03 ,2.6779e+03 ,2.1424e+03 ,1.6068e+03 , & - &1.0712e+03 ,5.3559e+02 ,3.0953e+01 /) - kao(:, 5, 9,13) = (/ & - &6.0053e+03 ,5.2546e+03 ,4.5040e+03 ,3.7533e+03 ,3.0026e+03 ,2.2520e+03 , & - &1.5013e+03 ,7.5066e+02 ,3.0913e+01 /) - kao(:, 1,10,13) = (/ & - &7.8733e+02 ,6.8892e+02 ,5.9050e+02 ,4.9208e+02 ,3.9366e+02 ,2.9525e+02 , & - &1.9683e+02 ,9.8416e+01 ,3.4699e+01 /) - kao(:, 2,10,13) = (/ & - &1.3543e+03 ,1.1850e+03 ,1.0157e+03 ,8.4641e+02 ,6.7713e+02 ,5.0785e+02 , & - &3.3856e+02 ,1.6928e+02 ,3.4872e+01 /) - kao(:, 3,10,13) = (/ & - &2.1695e+03 ,1.8983e+03 ,1.6271e+03 ,1.3559e+03 ,1.0848e+03 ,8.1356e+02 , & - &5.4238e+02 ,2.7119e+02 ,3.4962e+01 /) - kao(:, 4,10,13) = (/ & - &3.2703e+03 ,2.8615e+03 ,2.4527e+03 ,2.0439e+03 ,1.6351e+03 ,1.2263e+03 , & - &8.1756e+02 ,4.0878e+02 ,3.4974e+01 /) - kao(:, 5,10,13) = (/ & - &4.6791e+03 ,4.0942e+03 ,3.5093e+03 ,2.9244e+03 ,2.3395e+03 ,1.7546e+03 , & - &1.1698e+03 ,5.8488e+02 ,3.4915e+01 /) - kao(:, 1,11,13) = (/ & - &7.0254e+02 ,6.1472e+02 ,5.2690e+02 ,4.3908e+02 ,3.5127e+02 ,2.6345e+02 , & - &1.7563e+02 ,8.8441e+01 ,3.8867e+01 /) - kao(:, 2,11,13) = (/ & - &1.2148e+03 ,1.0630e+03 ,9.1111e+02 ,7.5926e+02 ,6.0740e+02 ,4.5555e+02 , & - &3.0370e+02 ,1.5185e+02 ,3.8999e+01 /) - kao(:, 3,11,13) = (/ & - &1.9474e+03 ,1.7040e+03 ,1.4606e+03 ,1.2171e+03 ,9.7371e+02 ,7.3028e+02 , & - &4.8685e+02 ,2.4343e+02 ,3.9046e+01 /) - kao(:, 4,11,13) = (/ & - &2.9354e+03 ,2.5684e+03 ,2.2015e+03 ,1.8346e+03 ,1.4677e+03 ,1.1008e+03 , & - &7.3384e+02 ,3.6692e+02 ,3.9009e+01 /) - kao(:, 5,11,13) = (/ & - &4.2118e+03 ,3.6853e+03 ,3.1589e+03 ,2.6324e+03 ,2.1059e+03 ,1.5794e+03 , & - &1.0529e+03 ,5.2647e+02 ,3.8898e+01 /) - kao(:, 1,12,13) = (/ & - &6.3490e+02 ,5.5553e+02 ,4.7617e+02 ,3.9681e+02 ,3.1745e+02 ,2.3809e+02 , & - &1.5872e+02 ,8.3817e+01 ,4.2920e+01 /) - kao(:, 2,12,13) = (/ & - &1.0964e+03 ,9.5936e+02 ,8.2231e+02 ,6.8526e+02 ,5.4821e+02 ,4.1116e+02 , & - &2.7410e+02 ,1.3705e+02 ,4.3006e+01 /) - kao(:, 3,12,13) = (/ & - &1.7602e+03 ,1.5402e+03 ,1.3202e+03 ,1.1001e+03 ,8.8010e+02 ,6.6008e+02 , & - &4.4005e+02 ,2.2003e+02 ,4.2996e+01 /) - kao(:, 4,12,13) = (/ & - &2.6586e+03 ,2.3263e+03 ,1.9940e+03 ,1.6616e+03 ,1.3293e+03 ,9.9698e+02 , & - &6.6465e+02 ,3.3233e+02 ,4.2901e+01 /) - kao(:, 5,12,13) = (/ & - &3.8091e+03 ,3.3329e+03 ,2.8568e+03 ,2.3807e+03 ,1.9045e+03 ,1.4284e+03 , & - &9.5227e+02 ,4.7613e+02 ,4.2723e+01 /) - kao(:, 1,13,13) = (/ & - &5.9158e+02 ,5.1763e+02 ,4.4368e+02 ,3.6974e+02 ,2.9579e+02 ,2.2184e+02 , & - &1.4790e+02 ,8.4889e+01 ,4.6678e+01 /) - kao(:, 2,13,13) = (/ & - &1.0244e+03 ,8.9631e+02 ,7.6827e+02 ,6.4022e+02 ,5.1218e+02 ,3.8414e+02 , & - &2.5609e+02 ,1.2940e+02 ,4.6683e+01 /) - kao(:, 3,13,13) = (/ & - &1.6452e+03 ,1.4395e+03 ,1.2339e+03 ,1.0282e+03 ,8.2259e+02 ,6.1694e+02 , & - &4.1130e+02 ,2.0565e+02 ,4.6592e+01 /) - kao(:, 4,13,13) = (/ & - &2.4841e+03 ,2.1736e+03 ,1.8631e+03 ,1.5526e+03 ,1.2421e+03 ,9.3154e+02 , & - &6.2103e+02 ,3.1052e+02 ,4.6412e+01 /) - kao(:, 5,13,13) = (/ & - &3.5669e+03 ,3.1210e+03 ,2.6752e+03 ,2.2293e+03 ,1.7834e+03 ,1.3376e+03 , & - &8.9172e+02 ,4.4586e+02 ,4.6169e+01 /) - kao(:, 1, 1,14) = (/ & - &2.0814e+04 ,1.8212e+04 ,1.5610e+04 ,1.3008e+04 ,1.0407e+04 ,7.8051e+03 , & - &5.2034e+03 ,2.6017e+03 ,4.7014e-03 /) - kao(:, 2, 1,14) = (/ & - &2.6951e+04 ,2.3582e+04 ,2.0213e+04 ,1.6844e+04 ,1.3475e+04 ,1.0107e+04 , & - &6.7377e+03 ,3.3688e+03 ,6.0711e-03 /) - kao(:, 3, 1,14) = (/ & - &3.3875e+04 ,2.9641e+04 ,2.5406e+04 ,2.1172e+04 ,1.6938e+04 ,1.2703e+04 , & - &8.4688e+03 ,4.2344e+03 ,2.5176e-02 /) - kao(:, 4, 1,14) = (/ & - &4.1606e+04 ,3.6405e+04 ,3.1205e+04 ,2.6004e+04 ,2.0803e+04 ,1.5602e+04 , & - &1.0402e+04 ,5.2008e+03 ,1.0468e-01 /) - kao(:, 5, 1,14) = (/ & - &5.0069e+04 ,4.3810e+04 ,3.7551e+04 ,3.1293e+04 ,2.5034e+04 ,1.8776e+04 , & - &1.2517e+04 ,6.2586e+03 ,1.0717e-01 /) - kao(:, 1, 2,14) = (/ & - &1.9736e+04 ,1.7269e+04 ,1.4802e+04 ,1.2335e+04 ,9.8681e+03 ,7.4011e+03 , & - &4.9341e+03 ,2.4670e+03 ,1.4424e-01 /) - kao(:, 2, 2,14) = (/ & - &2.5938e+04 ,2.2696e+04 ,1.9454e+04 ,1.6211e+04 ,1.2969e+04 ,9.7268e+03 , & - &6.4845e+03 ,3.2423e+03 ,5.4893e+00 /) - kao(:, 3, 2,14) = (/ & - &3.3117e+04 ,2.8978e+04 ,2.4838e+04 ,2.0698e+04 ,1.6559e+04 ,1.2419e+04 , & - &8.2793e+03 ,4.1397e+03 ,6.5583e+00 /) - kao(:, 4, 2,14) = (/ & - &4.1192e+04 ,3.6043e+04 ,3.0894e+04 ,2.5745e+04 ,2.0596e+04 ,1.5447e+04 , & - &1.0298e+04 ,5.1490e+03 ,7.2955e+00 /) - kao(:, 5, 2,14) = (/ & - &5.0084e+04 ,4.3824e+04 ,3.7563e+04 ,3.1303e+04 ,2.5042e+04 ,1.8782e+04 , & - &1.2521e+04 ,6.2605e+03 ,4.5976e+00 /) - kao(:, 1, 3,14) = (/ & - &1.7352e+04 ,1.5183e+04 ,1.3014e+04 ,1.0845e+04 ,8.6759e+03 ,6.5069e+03 , & - &4.3379e+03 ,2.1690e+03 ,1.3353e+01 /) - kao(:, 2, 3,14) = (/ & - &2.3378e+04 ,2.0456e+04 ,1.7533e+04 ,1.4611e+04 ,1.1689e+04 ,8.7667e+03 , & - &5.8445e+03 ,2.9222e+03 ,1.3389e+01 /) - kao(:, 3, 3,14) = (/ & - &3.0448e+04 ,2.6642e+04 ,2.2836e+04 ,1.9030e+04 ,1.5224e+04 ,1.1418e+04 , & - &7.6119e+03 ,3.8060e+03 ,1.3397e+01 /) - kao(:, 4, 3,14) = (/ & - &3.8507e+04 ,3.3693e+04 ,2.8880e+04 ,2.4067e+04 ,1.9253e+04 ,1.4440e+04 , & - &9.6266e+03 ,4.8133e+03 ,1.3385e+01 /) - kao(:, 5, 3,14) = (/ & - &4.7469e+04 ,4.1535e+04 ,3.5602e+04 ,2.9668e+04 ,2.3734e+04 ,1.7801e+04 , & - &1.1867e+04 ,5.9336e+03 ,1.3346e+01 /) - kao(:, 1, 4,14) = (/ & - &1.4631e+04 ,1.2802e+04 ,1.0973e+04 ,9.1445e+03 ,7.3156e+03 ,5.4867e+03 , & - &3.6578e+03 ,1.8289e+03 ,1.5943e+01 /) - kao(:, 2, 4,14) = (/ & - &2.0262e+04 ,1.7729e+04 ,1.5197e+04 ,1.2664e+04 ,1.0131e+04 ,7.5983e+03 , & - &5.0655e+03 ,2.5328e+03 ,1.6007e+01 /) - kao(:, 3, 4,14) = (/ & - &2.6988e+04 ,2.3615e+04 ,2.0241e+04 ,1.6868e+04 ,1.3494e+04 ,1.0121e+04 , & - &6.7470e+03 ,3.3735e+03 ,1.6031e+01 /) - kao(:, 4, 4,14) = (/ & - &3.4853e+04 ,3.0497e+04 ,2.6140e+04 ,2.1783e+04 ,1.7427e+04 ,1.3070e+04 , & - &8.7133e+03 ,4.3567e+03 ,1.6028e+01 /) - kao(:, 5, 4,14) = (/ & - &4.3821e+04 ,3.8343e+04 ,3.2866e+04 ,2.7388e+04 ,2.1910e+04 ,1.6433e+04 , & - &1.0955e+04 ,5.4776e+03 ,1.6009e+01 /) - kao(:, 1, 5,14) = (/ & - &1.2010e+04 ,1.0509e+04 ,9.0077e+03 ,7.5064e+03 ,6.0051e+03 ,4.5038e+03 , & - &3.0026e+03 ,1.5013e+03 ,1.9009e+01 /) - kao(:, 2, 5,14) = (/ & - &1.7127e+04 ,1.4986e+04 ,1.2846e+04 ,1.0705e+04 ,8.5637e+03 ,6.4228e+03 , & - &4.2818e+03 ,2.1409e+03 ,1.9111e+01 /) - kao(:, 3, 5,14) = (/ & - &2.3449e+04 ,2.0517e+04 ,1.7586e+04 ,1.4655e+04 ,1.1724e+04 ,8.7932e+03 , & - &5.8621e+03 ,2.9311e+03 ,1.9171e+01 /) - kao(:, 4, 5,14) = (/ & - &3.0924e+04 ,2.7059e+04 ,2.3193e+04 ,1.9328e+04 ,1.5462e+04 ,1.1597e+04 , & - &7.7310e+03 ,3.8655e+03 ,1.9184e+01 /) - kao(:, 5, 5,14) = (/ & - &3.9495e+04 ,3.4558e+04 ,2.9621e+04 ,2.4684e+04 ,1.9748e+04 ,1.4811e+04 , & - &9.8738e+03 ,4.9369e+03 ,1.9172e+01 /) - kao(:, 1, 6,14) = (/ & - &9.4628e+03 ,8.2800e+03 ,7.0971e+03 ,5.9142e+03 ,4.7314e+03 ,3.5485e+03 , & - &2.3657e+03 ,1.1828e+03 ,2.2644e+01 /) - kao(:, 2, 6,14) = (/ & - &1.3981e+04 ,1.2233e+04 ,1.0486e+04 ,8.7381e+03 ,6.9905e+03 ,5.2429e+03 , & - &3.4952e+03 ,1.7476e+03 ,2.2781e+01 /) - kao(:, 3, 6,14) = (/ & - &1.9648e+04 ,1.7192e+04 ,1.4736e+04 ,1.2280e+04 ,9.8239e+03 ,7.3679e+03 , & - &4.9119e+03 ,2.4560e+03 ,2.2869e+01 /) - kao(:, 4, 6,14) = (/ & - &2.6483e+04 ,2.3173e+04 ,1.9862e+04 ,1.6552e+04 ,1.3242e+04 ,9.9312e+03 , & - &6.6208e+03 ,3.3104e+03 ,2.2915e+01 /) - kao(:, 5, 6,14) = (/ & - &3.4470e+04 ,3.0161e+04 ,2.5853e+04 ,2.1544e+04 ,1.7235e+04 ,1.2926e+04 , & - &8.6175e+03 ,4.3088e+03 ,2.2923e+01 /) - kao(:, 1, 7,14) = (/ & - &7.3078e+03 ,6.3943e+03 ,5.4808e+03 ,4.5673e+03 ,3.6539e+03 ,2.7404e+03 , & - &1.8269e+03 ,9.1346e+02 ,2.6896e+01 /) - kao(:, 2, 7,14) = (/ & - &1.1178e+04 ,9.7811e+03 ,8.3838e+03 ,6.9865e+03 ,5.5892e+03 ,4.1919e+03 , & - &2.7946e+03 ,1.3973e+03 ,2.7090e+01 /) - kao(:, 3, 7,14) = (/ & - &1.6168e+04 ,1.4147e+04 ,1.2126e+04 ,1.0105e+04 ,8.0839e+03 ,6.0629e+03 , & - &4.0420e+03 ,2.0210e+03 ,2.7221e+01 /) - kao(:, 4, 7,14) = (/ & - &2.2360e+04 ,1.9565e+04 ,1.6770e+04 ,1.3975e+04 ,1.1180e+04 ,8.3848e+03 , & - &5.5899e+03 ,2.7949e+03 ,2.7298e+01 /) - kao(:, 5, 7,14) = (/ & - &2.9827e+04 ,2.6099e+04 ,2.2370e+04 ,1.8642e+04 ,1.4913e+04 ,1.1185e+04 , & - &7.4567e+03 ,3.7283e+03 ,2.7315e+01 /) - kao(:, 1, 8,14) = (/ & - &5.5945e+03 ,4.8952e+03 ,4.1959e+03 ,3.4966e+03 ,2.7972e+03 ,2.0979e+03 , & - &1.3986e+03 ,6.9931e+02 ,3.1842e+01 /) - kao(:, 2, 8,14) = (/ & - &8.8907e+03 ,7.7794e+03 ,6.6680e+03 ,5.5567e+03 ,4.4454e+03 ,3.3340e+03 , & - &2.2227e+03 ,1.1113e+03 ,3.2101e+01 /) - kao(:, 3, 8,14) = (/ & - &1.3296e+04 ,1.1634e+04 ,9.9724e+03 ,8.3103e+03 ,6.6483e+03 ,4.9862e+03 , & - &3.3241e+03 ,1.6621e+03 ,3.2282e+01 /) - kao(:, 4, 8,14) = (/ & - &1.8955e+04 ,1.6586e+04 ,1.4216e+04 ,1.1847e+04 ,9.4776e+03 ,7.1082e+03 , & - &4.7388e+03 ,2.3694e+03 ,3.2388e+01 /) - kao(:, 5, 8,14) = (/ & - &2.5906e+04 ,2.2668e+04 ,1.9430e+04 ,1.6191e+04 ,1.2953e+04 ,9.7149e+03 , & - &6.4766e+03 ,3.2383e+03 ,3.2425e+01 /) - kao(:, 1, 9,14) = (/ & - &4.1067e+03 ,3.5934e+03 ,3.0800e+03 ,2.5667e+03 ,2.0533e+03 ,1.5400e+03 , & - &1.0267e+03 ,5.1334e+02 ,3.7521e+01 /) - kao(:, 2, 9,14) = (/ & - &6.8230e+03 ,5.9701e+03 ,5.1172e+03 ,4.2644e+03 ,3.4115e+03 ,2.5586e+03 , & - &1.7057e+03 ,8.5287e+02 ,3.7865e+01 /) - kao(:, 3, 9,14) = (/ & - &1.0614e+04 ,9.2875e+03 ,7.9607e+03 ,6.6339e+03 ,5.3071e+03 ,3.9804e+03 , & - &2.6536e+03 ,1.3268e+03 ,3.8104e+01 /) - kao(:, 4, 9,14) = (/ & - &1.5585e+04 ,1.3637e+04 ,1.1689e+04 ,9.7408e+03 ,7.7926e+03 ,5.8445e+03 , & - &3.8963e+03 ,1.9481e+03 ,3.8251e+01 /) - kao(:, 5, 9,14) = (/ & - &2.1772e+04 ,1.9051e+04 ,1.6329e+04 ,1.3608e+04 ,1.0886e+04 ,8.1646e+03 , & - &5.4430e+03 ,2.7215e+03 ,3.8308e+01 /) - kao(:, 1,10,14) = (/ & - &3.0498e+03 ,2.6686e+03 ,2.2874e+03 ,1.9061e+03 ,1.5249e+03 ,1.1437e+03 , & - &7.6245e+02 ,3.8122e+02 ,4.4006e+01 /) - kao(:, 2,10,14) = (/ & - &5.3046e+03 ,4.6415e+03 ,3.9785e+03 ,3.3154e+03 ,2.6523e+03 ,1.9892e+03 , & - &1.3261e+03 ,6.6307e+02 ,4.4440e+01 /) - kao(:, 3,10,14) = (/ & - &8.5201e+03 ,7.4551e+03 ,6.3901e+03 ,5.3250e+03 ,4.2600e+03 ,3.1950e+03 , & - &2.1300e+03 ,1.0650e+03 ,4.4746e+01 /) - kao(:, 4,10,14) = (/ & - &1.2818e+04 ,1.1216e+04 ,9.6138e+03 ,8.0115e+03 ,6.4092e+03 ,4.8069e+03 , & - &3.2046e+03 ,1.6023e+03 ,4.4928e+01 /) - kao(:, 5,10,14) = (/ & - &1.8340e+04 ,1.6048e+04 ,1.3755e+04 ,1.1463e+04 ,9.1701e+03 ,6.8776e+03 , & - &4.5851e+03 ,2.2925e+03 ,4.5005e+01 /) - kao(:, 1,11,14) = (/ & - &2.9434e+03 ,2.5755e+03 ,2.2076e+03 ,1.8396e+03 ,1.4717e+03 ,1.1038e+03 , & - &7.3585e+02 ,3.6793e+02 ,5.1570e+01 /) - kao(:, 2,11,14) = (/ & - &5.1056e+03 ,4.4674e+03 ,3.8292e+03 ,3.1910e+03 ,2.5528e+03 ,1.9146e+03 , & - &1.2764e+03 ,6.3819e+02 ,5.2012e+01 /) - kao(:, 3,11,14) = (/ & - &8.1976e+03 ,7.1728e+03 ,6.1481e+03 ,5.1234e+03 ,4.0987e+03 ,3.0741e+03 , & - &2.0494e+03 ,1.0247e+03 ,5.2312e+01 /) - kao(:, 4,11,14) = (/ & - &1.2377e+04 ,1.0830e+04 ,9.2826e+03 ,7.7355e+03 ,6.1884e+03 ,4.6413e+03 , & - &3.0942e+03 ,1.5471e+03 ,5.2478e+01 /) - kao(:, 5,11,14) = (/ & - &1.7764e+04 ,1.5544e+04 ,1.3323e+04 ,1.1103e+04 ,8.8820e+03 ,6.6616e+03 , & - &4.4410e+03 ,2.2205e+03 ,5.2507e+01 /) - kao(:, 1,12,14) = (/ & - &2.8315e+03 ,2.4776e+03 ,2.1237e+03 ,1.7697e+03 ,1.4158e+03 ,1.0618e+03 , & - &7.0789e+02 ,3.5394e+02 ,5.9960e+01 /) - kao(:, 2,12,14) = (/ & - &4.9224e+03 ,4.3071e+03 ,3.6918e+03 ,3.0765e+03 ,2.4612e+03 ,1.8459e+03 , & - &1.2306e+03 ,6.1530e+02 ,6.0405e+01 /) - kao(:, 3,12,14) = (/ & - &7.9376e+03 ,6.9454e+03 ,5.9532e+03 ,4.9610e+03 ,3.9688e+03 ,2.9766e+03 , & - &1.9844e+03 ,9.9220e+02 ,6.0667e+01 /) - kao(:, 4,12,14) = (/ & - &1.2004e+04 ,1.0504e+04 ,9.0032e+03 ,7.5027e+03 ,6.0021e+03 ,4.5016e+03 , & - &3.0011e+03 ,1.5005e+03 ,6.0769e+01 /) - kao(:, 5,12,14) = (/ & - &1.7211e+04 ,1.5059e+04 ,1.2908e+04 ,1.0757e+04 ,8.6054e+03 ,6.4541e+03 , & - &4.3027e+03 ,2.1514e+03 ,6.0741e+01 /) - kao(:, 1,13,14) = (/ & - &2.8060e+03 ,2.4552e+03 ,2.1045e+03 ,1.7537e+03 ,1.4030e+03 ,1.0522e+03 , & - &7.0149e+02 ,3.5075e+02 ,6.9076e+01 /) - kao(:, 2,13,14) = (/ & - &4.9007e+03 ,4.2881e+03 ,3.6756e+03 ,3.0630e+03 ,2.4504e+03 ,1.8378e+03 , & - &1.2252e+03 ,6.1260e+02 ,6.9478e+01 /) - kao(:, 3,13,14) = (/ & - &7.8921e+03 ,6.9056e+03 ,5.9191e+03 ,4.9326e+03 ,3.9460e+03 ,2.9595e+03 , & - &1.9730e+03 ,9.8652e+02 ,6.9694e+01 /) - kao(:, 4,13,14) = (/ & - &1.1933e+04 ,1.0441e+04 ,8.9495e+03 ,7.4579e+03 ,5.9663e+03 ,4.4748e+03 , & - &2.9832e+03 ,1.4916e+03 ,6.9728e+01 /) - kao(:, 5,13,14) = (/ & - &1.7152e+04 ,1.5008e+04 ,1.2864e+04 ,1.0720e+04 ,8.5759e+03 ,6.4320e+03 , & - &4.2880e+03 ,2.1440e+03 ,6.9601e+01 /) - kao(:, 1, 1,15) = (/ & - &3.5423e+04 ,3.0995e+04 ,2.6567e+04 ,2.2139e+04 ,1.7712e+04 ,1.3284e+04 , & - &8.8558e+03 ,4.4279e+03 ,7.1610e-03 /) - kao(:, 2, 1,15) = (/ & - &4.5820e+04 ,4.0093e+04 ,3.4365e+04 ,2.8638e+04 ,2.2910e+04 ,1.7183e+04 , & - &1.1455e+04 ,5.7276e+03 ,7.1091e-03 /) - kao(:, 3, 1,15) = (/ & - &5.7623e+04 ,5.0421e+04 ,4.3218e+04 ,3.6015e+04 ,2.8812e+04 ,2.1609e+04 , & - &1.4406e+04 ,7.2029e+03 ,7.8150e-03 /) - kao(:, 4, 1,15) = (/ & - &7.0726e+04 ,6.1885e+04 ,5.3044e+04 ,4.4204e+04 ,3.5363e+04 ,2.6522e+04 , & - &1.7681e+04 ,8.8407e+03 ,4.0966e-02 /) - kao(:, 5, 1,15) = (/ & - &8.4947e+04 ,7.4329e+04 ,6.3711e+04 ,5.3092e+04 ,4.2474e+04 ,3.1855e+04 , & - &2.1237e+04 ,1.0618e+04 ,1.7079e-01 /) - kao(:, 1, 2,15) = (/ & - &3.6296e+04 ,3.1759e+04 ,2.7222e+04 ,2.2685e+04 ,1.8148e+04 ,1.3611e+04 , & - &9.0740e+03 ,4.5370e+03 ,7.6264e-03 /) - kao(:, 2, 2,15) = (/ & - &4.7676e+04 ,4.1717e+04 ,3.5757e+04 ,2.9798e+04 ,2.3838e+04 ,1.7879e+04 , & - &1.1919e+04 ,5.9595e+03 ,7.8530e+00 /) - kao(:, 3, 2,15) = (/ & - &6.0722e+04 ,5.3132e+04 ,4.5542e+04 ,3.7951e+04 ,3.0361e+04 ,2.2771e+04 , & - &1.5181e+04 ,7.5903e+03 ,1.1682e+01 /) - kao(:, 4, 2,15) = (/ & - &7.5305e+04 ,6.5892e+04 ,5.6479e+04 ,4.7065e+04 ,3.7652e+04 ,2.8239e+04 , & - &1.8826e+04 ,9.4131e+03 ,7.5532e+00 /) - kao(:, 5, 2,15) = (/ & - &9.1241e+04 ,7.9835e+04 ,6.8430e+04 ,5.7025e+04 ,4.5620e+04 ,3.4215e+04 , & - &2.2810e+04 ,1.1405e+04 ,1.0957e+00 /) - kao(:, 1, 3,15) = (/ & - &3.4715e+04 ,3.0376e+04 ,2.6036e+04 ,2.1697e+04 ,1.7358e+04 ,1.3018e+04 , & - &8.6788e+03 ,4.3394e+03 ,1.4232e+01 /) - kao(:, 2, 3,15) = (/ & - &4.6613e+04 ,4.0787e+04 ,3.4960e+04 ,2.9133e+04 ,2.3307e+04 ,1.7480e+04 , & - &1.1653e+04 ,5.8267e+03 ,1.4235e+01 /) - kao(:, 3, 3,15) = (/ & - &6.0451e+04 ,5.2894e+04 ,4.5338e+04 ,3.7782e+04 ,3.0225e+04 ,2.2669e+04 , & - &1.5113e+04 ,7.5563e+03 ,1.4209e+01 /) - kao(:, 4, 3,15) = (/ & - &7.6104e+04 ,6.6591e+04 ,5.7078e+04 ,4.7565e+04 ,3.8052e+04 ,2.8539e+04 , & - &1.9026e+04 ,9.5130e+03 ,1.4121e+01 /) - kao(:, 5, 3,15) = (/ & - &9.3385e+04 ,8.1712e+04 ,7.0039e+04 ,5.8365e+04 ,4.6692e+04 ,3.5019e+04 , & - &2.3346e+04 ,1.1673e+04 ,1.4063e+01 /) - kao(:, 1, 4,15) = (/ & - &3.1974e+04 ,2.7977e+04 ,2.3981e+04 ,1.9984e+04 ,1.5987e+04 ,1.1990e+04 , & - &7.9936e+03 ,3.9968e+03 ,1.7130e+01 /) - kao(:, 2, 4,15) = (/ & - &4.4033e+04 ,3.8529e+04 ,3.3025e+04 ,2.7521e+04 ,2.2017e+04 ,1.6512e+04 , & - &1.1008e+04 ,5.5042e+03 ,1.7154e+01 /) - kao(:, 3, 4,15) = (/ & - &5.8299e+04 ,5.1012e+04 ,4.3725e+04 ,3.6437e+04 ,2.9150e+04 ,2.1862e+04 , & - &1.4575e+04 ,7.2874e+03 ,1.7147e+01 /) - kao(:, 4, 4,15) = (/ & - &7.4658e+04 ,6.5325e+04 ,5.5993e+04 ,4.6661e+04 ,3.7329e+04 ,2.7997e+04 , & - &1.8664e+04 ,9.3322e+03 ,1.7125e+01 /) - kao(:, 5, 4,15) = (/ & - &9.3061e+04 ,8.1428e+04 ,6.9796e+04 ,5.8163e+04 ,4.6530e+04 ,3.4898e+04 , & - &2.3265e+04 ,1.1633e+04 ,1.7053e+01 /) - kao(:, 1, 5,15) = (/ & - &2.8780e+04 ,2.5183e+04 ,2.1585e+04 ,1.7988e+04 ,1.4390e+04 ,1.0793e+04 , & - &7.1950e+03 ,3.5975e+03 ,2.0610e+01 /) - kao(:, 2, 5,15) = (/ & - &4.0696e+04 ,3.5609e+04 ,3.0522e+04 ,2.5435e+04 ,2.0348e+04 ,1.5261e+04 , & - &1.0174e+04 ,5.0871e+03 ,2.0673e+01 /) - kao(:, 3, 5,15) = (/ & - &5.5132e+04 ,4.8240e+04 ,4.1349e+04 ,3.4457e+04 ,2.7566e+04 ,2.0674e+04 , & - &1.3783e+04 ,6.8915e+03 ,2.0688e+01 /) - kao(:, 4, 5,15) = (/ & - &7.2202e+04 ,6.3177e+04 ,5.4152e+04 ,4.5126e+04 ,3.6101e+04 ,2.7076e+04 , & - &1.8051e+04 ,9.0253e+03 ,2.0678e+01 /) - kao(:, 5, 5,15) = (/ & - &9.1794e+04 ,8.0320e+04 ,6.8846e+04 ,5.7371e+04 ,4.5897e+04 ,3.4423e+04 , & - &2.2949e+04 ,1.1474e+04 ,2.0627e+01 /) - kao(:, 1, 6,15) = (/ & - &2.4928e+04 ,2.1812e+04 ,1.8696e+04 ,1.5580e+04 ,1.2464e+04 ,9.3479e+03 , & - &6.2319e+03 ,3.1160e+03 ,2.4743e+01 /) - kao(:, 2, 6,15) = (/ & - &3.6459e+04 ,3.1902e+04 ,2.7344e+04 ,2.2787e+04 ,1.8230e+04 ,1.3672e+04 , & - &9.1148e+03 ,4.5574e+03 ,2.4868e+01 /) - kao(:, 3, 6,15) = (/ & - &5.0921e+04 ,4.4556e+04 ,3.8191e+04 ,3.1826e+04 ,2.5461e+04 ,1.9095e+04 , & - &1.2730e+04 ,6.3651e+03 ,2.4935e+01 /) - kao(:, 4, 6,15) = (/ & - &6.8337e+04 ,5.9795e+04 ,5.1253e+04 ,4.2711e+04 ,3.4168e+04 ,2.5626e+04 , & - &1.7084e+04 ,8.5421e+03 ,2.4952e+01 /) - kao(:, 5, 6,15) = (/ & - &8.8665e+04 ,7.7582e+04 ,6.6499e+04 ,5.5416e+04 ,4.4333e+04 ,3.3249e+04 , & - &2.2166e+04 ,1.1083e+04 ,2.4917e+01 /) - kao(:, 1, 7,15) = (/ & - &2.1322e+04 ,1.8657e+04 ,1.5992e+04 ,1.3326e+04 ,1.0661e+04 ,7.9957e+03 , & - &5.3305e+03 ,2.6652e+03 ,2.9665e+01 /) - kao(:, 2, 7,15) = (/ & - &3.2413e+04 ,2.8361e+04 ,2.4310e+04 ,2.0258e+04 ,1.6206e+04 ,1.2155e+04 , & - &8.1031e+03 ,4.0516e+03 ,2.9861e+01 /) - kao(:, 3, 7,15) = (/ & - &4.6696e+04 ,4.0859e+04 ,3.5022e+04 ,2.9185e+04 ,2.3348e+04 ,1.7511e+04 , & - &1.1674e+04 ,5.8369e+03 ,3.0001e+01 /) - kao(:, 4, 7,15) = (/ & - &6.4261e+04 ,5.6228e+04 ,4.8195e+04 ,4.0163e+04 ,3.2130e+04 ,2.4098e+04 , & - &1.6065e+04 ,8.0325e+03 ,3.0074e+01 /) - kao(:, 5, 7,15) = (/ & - &8.5103e+04 ,7.4465e+04 ,6.3827e+04 ,5.3189e+04 ,4.2551e+04 ,3.1914e+04 , & - &2.1276e+04 ,1.0638e+04 ,3.0077e+01 /) - kao(:, 1, 8,15) = (/ & - &1.8276e+04 ,1.5991e+04 ,1.3707e+04 ,1.1422e+04 ,9.1380e+03 ,6.8535e+03 , & - &4.5690e+03 ,2.2845e+03 ,3.5525e+01 /) - kao(:, 2, 8,15) = (/ & - &2.8919e+04 ,2.5304e+04 ,2.1689e+04 ,1.8074e+04 ,1.4459e+04 ,1.0845e+04 , & - &7.2298e+03 ,3.6149e+03 ,3.5844e+01 /) - kao(:, 3, 8,15) = (/ & - &4.2999e+04 ,3.7624e+04 ,3.2249e+04 ,2.6874e+04 ,2.1500e+04 ,1.6125e+04 , & - &1.0750e+04 ,5.3749e+03 ,3.6058e+01 /) - kao(:, 4, 8,15) = (/ & - &6.0712e+04 ,5.3123e+04 ,4.5534e+04 ,3.7945e+04 ,3.0356e+04 ,2.2767e+04 , & - &1.5178e+04 ,7.5890e+03 ,3.6184e+01 /) - kao(:, 5, 8,15) = (/ & - &8.2146e+04 ,7.1878e+04 ,6.1610e+04 ,5.1341e+04 ,4.1073e+04 ,3.0805e+04 , & - &2.0537e+04 ,1.0268e+04 ,3.6243e+01 /) - kao(:, 1, 9,15) = (/ & - &1.5122e+04 ,1.3232e+04 ,1.1341e+04 ,9.4512e+03 ,7.5610e+03 ,5.6707e+03 , & - &3.7805e+03 ,1.8902e+03 ,4.2513e+01 /) - kao(:, 2, 9,15) = (/ & - &2.4972e+04 ,2.1851e+04 ,1.8729e+04 ,1.5608e+04 ,1.2486e+04 ,9.3646e+03 , & - &6.2431e+03 ,3.1215e+03 ,4.2950e+01 /) - kao(:, 3, 9,15) = (/ & - &3.8412e+04 ,3.3611e+04 ,2.8809e+04 ,2.4007e+04 ,1.9206e+04 ,1.4404e+04 , & - &9.6030e+03 ,4.8015e+03 ,4.3278e+01 /) - kao(:, 4, 9,15) = (/ & - &5.5843e+04 ,4.8863e+04 ,4.1882e+04 ,3.4902e+04 ,2.7921e+04 ,2.0941e+04 , & - &1.3961e+04 ,6.9804e+03 ,4.3480e+01 /) - kao(:, 5, 9,15) = (/ & - &7.7611e+04 ,6.7910e+04 ,5.8208e+04 ,4.8507e+04 ,3.8805e+04 ,2.9104e+04 , & - &1.9403e+04 ,9.7013e+03 ,4.3587e+01 /) - kao(:, 1,10,15) = (/ & - &1.2684e+04 ,1.1099e+04 ,9.5132e+03 ,7.9276e+03 ,6.3421e+03 ,4.7566e+03 , & - &3.1710e+03 ,1.5855e+03 ,5.0840e+01 /) - kao(:, 2,10,15) = (/ & - &2.1787e+04 ,1.9064e+04 ,1.6340e+04 ,1.3617e+04 ,1.0893e+04 ,8.1700e+03 , & - &5.4467e+03 ,2.7233e+03 ,5.1430e+01 /) - kao(:, 3,10,15) = (/ & - &3.4684e+04 ,3.0349e+04 ,2.6013e+04 ,2.1678e+04 ,1.7342e+04 ,1.3007e+04 , & - &8.6710e+03 ,4.3355e+03 ,5.1863e+01 /) - kao(:, 4,10,15) = (/ & - &5.1947e+04 ,4.5454e+04 ,3.8960e+04 ,3.2467e+04 ,2.5974e+04 ,1.9480e+04 , & - &1.2987e+04 ,6.4934e+03 ,5.2160e+01 /) - kao(:, 5,10,15) = (/ & - &7.3912e+04 ,6.4673e+04 ,5.5434e+04 ,4.6195e+04 ,3.6956e+04 ,2.7717e+04 , & - &1.8478e+04 ,9.2389e+03 ,5.2321e+01 /) - kao(:, 1,11,15) = (/ & - &1.3711e+04 ,1.1997e+04 ,1.0283e+04 ,8.5694e+03 ,6.8555e+03 ,5.1416e+03 , & - &3.4277e+03 ,1.7139e+03 ,6.1054e+01 /) - kao(:, 2,11,15) = (/ & - &2.3669e+04 ,2.0711e+04 ,1.7752e+04 ,1.4793e+04 ,1.1835e+04 ,8.8760e+03 , & - &5.9173e+03 ,2.9586e+03 ,6.1742e+01 /) - kao(:, 3,11,15) = (/ & - &3.7832e+04 ,3.3103e+04 ,2.8374e+04 ,2.3645e+04 ,1.8916e+04 ,1.4187e+04 , & - &9.4579e+03 ,4.7289e+03 ,6.2215e+01 /) - kao(:, 4,11,15) = (/ & - &5.6757e+04 ,4.9662e+04 ,4.2568e+04 ,3.5473e+04 ,2.8378e+04 ,2.1284e+04 , & - &1.4189e+04 ,7.0945e+03 ,6.2524e+01 /) - kao(:, 5,11,15) = (/ & - &8.0798e+04 ,7.0698e+04 ,6.0598e+04 ,5.0499e+04 ,4.0399e+04 ,3.0299e+04 , & - &2.0199e+04 ,1.0100e+04 ,6.2689e+01 /) - kao(:, 1,12,15) = (/ & - &1.4989e+04 ,1.3115e+04 ,1.1241e+04 ,9.3679e+03 ,7.4943e+03 ,5.6207e+03 , & - &3.7471e+03 ,1.8736e+03 ,7.3162e+01 /) - kao(:, 2,12,15) = (/ & - &2.5949e+04 ,2.2705e+04 ,1.9461e+04 ,1.6218e+04 ,1.2974e+04 ,9.7307e+03 , & - &6.4871e+03 ,3.2436e+03 ,7.3885e+01 /) - kao(:, 3,12,15) = (/ & - &4.1513e+04 ,3.6324e+04 ,3.1134e+04 ,2.5945e+04 ,2.0756e+04 ,1.5567e+04 , & - &1.0378e+04 ,5.1891e+03 ,7.4405e+01 /) - kao(:, 4,12,15) = (/ & - &6.2315e+04 ,5.4526e+04 ,4.6737e+04 ,3.8947e+04 ,3.1158e+04 ,2.3368e+04 , & - &1.5579e+04 ,7.7894e+03 ,7.4701e+01 /) - kao(:, 5,12,15) = (/ & - &8.8861e+04 ,7.7754e+04 ,6.6646e+04 ,5.5538e+04 ,4.4431e+04 ,3.3323e+04 , & - &2.2215e+04 ,1.1108e+04 ,7.4795e+01 /) - kao(:, 1,13,15) = (/ & - &1.6915e+04 ,1.4801e+04 ,1.2687e+04 ,1.0572e+04 ,8.4577e+03 ,6.3433e+03 , & - &4.2289e+03 ,2.1144e+03 ,8.7334e+01 /) - kao(:, 2,13,15) = (/ & - &2.9284e+04 ,2.5624e+04 ,2.1963e+04 ,1.8303e+04 ,1.4642e+04 ,1.0982e+04 , & - &7.3211e+03 ,3.6605e+03 ,8.8104e+01 /) - kao(:, 3,13,15) = (/ & - &4.6892e+04 ,4.1031e+04 ,3.5169e+04 ,2.9308e+04 ,2.3446e+04 ,1.7585e+04 , & - &1.1723e+04 ,5.8616e+03 ,8.8585e+01 /) - kao(:, 4,13,15) = (/ & - &7.0448e+04 ,6.1642e+04 ,5.2836e+04 ,4.4030e+04 ,3.5224e+04 ,2.6418e+04 , & - &1.7612e+04 ,8.8061e+03 ,8.8802e+01 /) - kao(:, 5,13,15) = (/ & - &1.0039e+05 ,8.7843e+04 ,7.5294e+04 ,6.2745e+04 ,5.0196e+04 ,3.7647e+04 , & - &2.5098e+04 ,1.2549e+04 ,8.8791e+01 /) - kao(:, 1, 1,16) = (/ & - &4.3683e+04 ,3.8223e+04 ,3.2762e+04 ,2.7302e+04 ,2.1842e+04 ,1.6381e+04 , & - &1.0921e+04 ,5.4604e+03 ,7.6073e-03 /) - kao(:, 2, 1,16) = (/ & - &5.6813e+04 ,4.9712e+04 ,4.2610e+04 ,3.5508e+04 ,2.8407e+04 ,2.1305e+04 , & - &1.4203e+04 ,7.1017e+03 ,7.6403e-03 /) - kao(:, 3, 1,16) = (/ & - &7.1746e+04 ,6.2777e+04 ,5.3809e+04 ,4.4841e+04 ,3.5873e+04 ,2.6905e+04 , & - &1.7936e+04 ,8.9682e+03 ,3.7278e-03 /) - kao(:, 4, 1,16) = (/ & - &8.8334e+04 ,7.7292e+04 ,6.6250e+04 ,5.5209e+04 ,4.4167e+04 ,3.3125e+04 , & - &2.2083e+04 ,1.1042e+04 ,3.7292e-03 /) - kao(:, 5, 1,16) = (/ & - &1.0639e+05 ,9.3091e+04 ,7.9793e+04 ,6.6494e+04 ,5.3195e+04 ,3.9896e+04 , & - &2.6598e+04 ,1.3299e+04 ,7.8826e-01 /) - kao(:, 1, 2,16) = (/ & - &4.6897e+04 ,4.1035e+04 ,3.5173e+04 ,2.9311e+04 ,2.3449e+04 ,1.7586e+04 , & - &1.1724e+04 ,5.8622e+03 ,8.2408e-03 /) - kao(:, 2, 2,16) = (/ & - &6.1887e+04 ,5.4151e+04 ,4.6415e+04 ,3.8679e+04 ,3.0943e+04 ,2.3208e+04 , & - &1.5472e+04 ,7.7359e+03 ,1.2063e+01 /) - kao(:, 3, 2,16) = (/ & - &7.9108e+04 ,6.9219e+04 ,5.9331e+04 ,4.9442e+04 ,3.9554e+04 ,2.9666e+04 , & - &1.9777e+04 ,9.8885e+03 ,1.1743e+01 /) - kao(:, 4, 2,16) = (/ & - &9.8415e+04 ,8.6113e+04 ,7.3811e+04 ,6.1509e+04 ,4.9207e+04 ,3.6906e+04 , & - &2.4604e+04 ,1.2302e+04 ,3.5693e-03 /) - kao(:, 5, 2,16) = (/ & - &1.1961e+05 ,1.0466e+05 ,8.9707e+04 ,7.4755e+04 ,5.9804e+04 ,4.4853e+04 , & - &2.9902e+04 ,1.4951e+04 ,5.8824e-01 /) - kao(:, 1, 3,16) = (/ & - &4.7187e+04 ,4.1289e+04 ,3.5390e+04 ,2.9492e+04 ,2.3594e+04 ,1.7695e+04 , & - &1.1797e+04 ,5.8984e+03 ,1.4554e+01 /) - kao(:, 2, 3,16) = (/ & - &6.3662e+04 ,5.5704e+04 ,4.7746e+04 ,3.9789e+04 ,3.1831e+04 ,2.3873e+04 , & - &1.5915e+04 ,7.9577e+03 ,1.4573e+01 /) - kao(:, 3, 3,16) = (/ & - &8.2931e+04 ,7.2565e+04 ,6.2198e+04 ,5.1832e+04 ,4.1465e+04 ,3.1099e+04 , & - &2.0733e+04 ,1.0366e+04 ,1.4578e+01 /) - kao(:, 4, 3,16) = (/ & - &1.0484e+05 ,9.1735e+04 ,7.8630e+04 ,6.5525e+04 ,5.2420e+04 ,3.9315e+04 , & - &2.6210e+04 ,1.3105e+04 ,1.4538e+01 /) - kao(:, 5, 3,16) = (/ & - &1.2920e+05 ,1.1305e+05 ,9.6898e+04 ,8.0748e+04 ,6.4599e+04 ,4.8449e+04 , & - &3.2299e+04 ,1.6150e+04 ,1.4475e+01 /) - kao(:, 1, 4,16) = (/ & - &4.6077e+04 ,4.0317e+04 ,3.4558e+04 ,2.8798e+04 ,2.3038e+04 ,1.7279e+04 , & - &1.1519e+04 ,5.7596e+03 ,1.7584e+01 /) - kao(:, 2, 4,16) = (/ & - &6.3824e+04 ,5.5846e+04 ,4.7868e+04 ,3.9890e+04 ,3.1912e+04 ,2.3934e+04 , & - &1.5956e+04 ,7.9779e+03 ,1.7639e+01 /) - kao(:, 3, 4,16) = (/ & - &8.4999e+04 ,7.4374e+04 ,6.3749e+04 ,5.3124e+04 ,4.2499e+04 ,3.1874e+04 , & - &2.1250e+04 ,1.0625e+04 ,1.7665e+01 /) - kao(:, 4, 4,16) = (/ & - &1.0949e+05 ,9.5804e+04 ,8.2118e+04 ,6.8432e+04 ,5.4745e+04 ,4.1059e+04 , & - &2.7373e+04 ,1.3686e+04 ,1.7655e+01 /) - kao(:, 5, 4,16) = (/ & - &1.3706e+05 ,1.1993e+05 ,1.0280e+05 ,8.5665e+04 ,6.8532e+04 ,5.1399e+04 , & - &3.4266e+04 ,1.7133e+04 ,1.7601e+01 /) - kao(:, 1, 5,16) = (/ & - &4.4408e+04 ,3.8857e+04 ,3.3306e+04 ,2.7755e+04 ,2.2204e+04 ,1.6653e+04 , & - &1.1102e+04 ,5.5509e+03 ,2.1257e+01 /) - kao(:, 2, 5,16) = (/ & - &6.3274e+04 ,5.5364e+04 ,4.7455e+04 ,3.9546e+04 ,3.1637e+04 ,2.3728e+04 , & - &1.5818e+04 ,7.9092e+03 ,2.1367e+01 /) - kao(:, 3, 5,16) = (/ & - &8.6266e+04 ,7.5483e+04 ,6.4700e+04 ,5.3916e+04 ,4.3133e+04 ,3.2350e+04 , & - &2.1567e+04 ,1.0783e+04 ,2.1428e+01 /) - kao(:, 4, 5,16) = (/ & - &1.1336e+05 ,9.9194e+04 ,8.5023e+04 ,7.0853e+04 ,5.6682e+04 ,4.2512e+04 , & - &2.8341e+04 ,1.4171e+04 ,2.1442e+01 /) - kao(:, 5, 5,16) = (/ & - &1.4437e+05 ,1.2632e+05 ,1.0827e+05 ,9.0229e+04 ,7.2183e+04 ,5.4137e+04 , & - &3.6091e+04 ,1.8046e+04 ,2.1411e+01 /) - kao(:, 1, 6,16) = (/ & - &4.1622e+04 ,3.6419e+04 ,3.1217e+04 ,2.6014e+04 ,2.0811e+04 ,1.5608e+04 , & - &1.0406e+04 ,5.2028e+03 ,2.5704e+01 /) - kao(:, 2, 6,16) = (/ & - &6.1272e+04 ,5.3613e+04 ,4.5954e+04 ,3.8295e+04 ,3.0636e+04 ,2.2977e+04 , & - &1.5318e+04 ,7.6590e+03 ,2.5880e+01 /) - kao(:, 3, 6,16) = (/ & - &8.5823e+04 ,7.5095e+04 ,6.4367e+04 ,5.3639e+04 ,4.2911e+04 ,3.2183e+04 , & - &2.1456e+04 ,1.0728e+04 ,2.5988e+01 /) - kao(:, 4, 6,16) = (/ & - &1.1534e+05 ,1.0092e+05 ,8.6501e+04 ,7.2084e+04 ,5.7667e+04 ,4.3251e+04 , & - &2.8834e+04 ,1.4417e+04 ,2.6050e+01 /) - kao(:, 5, 6,16) = (/ & - &1.4970e+05 ,1.3098e+05 ,1.1227e+05 ,9.3560e+04 ,7.4848e+04 ,5.6136e+04 , & - &3.7424e+04 ,1.8712e+04 ,2.6033e+01 /) - kao(:, 1, 7,16) = (/ & - &3.8762e+04 ,3.3917e+04 ,2.9071e+04 ,2.4226e+04 ,1.9381e+04 ,1.4536e+04 , & - &9.6904e+03 ,4.8452e+03 ,3.1098e+01 /) - kao(:, 2, 7,16) = (/ & - &5.9114e+04 ,5.1725e+04 ,4.4335e+04 ,3.6946e+04 ,2.9557e+04 ,2.2168e+04 , & - &1.4778e+04 ,7.3892e+03 ,3.1343e+01 /) - kao(:, 3, 7,16) = (/ & - &8.5273e+04 ,7.4614e+04 ,6.3955e+04 ,5.3296e+04 ,4.2636e+04 ,3.1977e+04 , & - &2.1318e+04 ,1.0659e+04 ,3.1509e+01 /) - kao(:, 4, 7,16) = (/ & - &1.1738e+05 ,1.0271e+05 ,8.8034e+04 ,7.3362e+04 ,5.8689e+04 ,4.4017e+04 , & - &2.9345e+04 ,1.4672e+04 ,3.1622e+01 /) - kao(:, 5, 7,16) = (/ & - &1.5542e+05 ,1.3599e+05 ,1.1657e+05 ,9.7138e+04 ,7.7710e+04 ,5.8283e+04 , & - &3.8855e+04 ,1.9427e+04 ,3.1655e+01 /) - kao(:, 1, 8,16) = (/ & - &3.6377e+04 ,3.1830e+04 ,2.7279e+04 ,2.2736e+04 ,1.8189e+04 ,1.3641e+04 , & - &9.0943e+03 ,4.5472e+03 ,3.7610e+01 /) - kao(:, 2, 8,16) = (/ & - &5.7649e+04 ,5.0443e+04 ,4.3237e+04 ,3.6031e+04 ,2.8825e+04 ,2.1619e+04 , & - &1.4412e+04 ,7.2062e+03 ,3.7934e+01 /) - kao(:, 3, 8,16) = (/ & - &8.5747e+04 ,7.5029e+04 ,6.4311e+04 ,5.3592e+04 ,4.2874e+04 ,3.2155e+04 , & - &2.1437e+04 ,1.0718e+04 ,3.8193e+01 /) - kao(:, 4, 8,16) = (/ & - &1.2106e+05 ,1.0593e+05 ,9.0796e+04 ,7.5663e+04 ,6.0531e+04 ,4.5398e+04 , & - &3.0265e+04 ,1.5133e+04 ,3.8356e+01 /) - kao(:, 5, 8,16) = (/ & - &1.6369e+05 ,1.4323e+05 ,1.2277e+05 ,1.0231e+05 ,8.1844e+04 ,6.1383e+04 , & - &4.0922e+04 ,2.0461e+04 ,3.8437e+01 /) - kao(:, 1, 9,16) = (/ & - &3.3210e+04 ,2.9058e+04 ,2.4907e+04 ,2.0756e+04 ,1.6605e+04 ,1.2454e+04 , & - &8.3024e+03 ,4.1512e+03 ,4.5425e+01 /) - kao(:, 2, 9,16) = (/ & - &5.4859e+04 ,4.8001e+04 ,4.1144e+04 ,3.4287e+04 ,2.7429e+04 ,2.0572e+04 , & - &1.3715e+04 ,6.8573e+03 ,4.5889e+01 /) - kao(:, 3, 9,16) = (/ & - &8.4365e+04 ,7.3820e+04 ,6.3274e+04 ,5.2728e+04 ,4.2183e+04 ,3.1637e+04 , & - &2.1091e+04 ,1.0546e+04 ,4.6246e+01 /) - kao(:, 4, 9,16) = (/ & - &1.2241e+05 ,1.0711e+05 ,9.1805e+04 ,7.6504e+04 ,6.1203e+04 ,4.5902e+04 , & - &3.0602e+04 ,1.5301e+04 ,4.6486e+01 /) - kao(:, 5, 9,16) = (/ & - &1.6922e+05 ,1.4806e+05 ,1.2691e+05 ,1.0576e+05 ,8.4608e+04 ,6.3456e+04 , & - &4.2304e+04 ,2.1152e+04 ,4.6625e+01 /) - kao(:, 1,10,16) = (/ & - &3.0979e+04 ,2.7106e+04 ,2.3234e+04 ,1.9362e+04 ,1.5489e+04 ,1.1617e+04 , & - &7.7447e+03 ,3.8723e+03 ,5.4886e+01 /) - kao(:, 2,10,16) = (/ & - &5.3196e+04 ,4.6547e+04 ,3.9897e+04 ,3.3248e+04 ,2.6598e+04 ,1.9948e+04 , & - &1.3299e+04 ,6.6495e+03 ,5.5476e+01 /) - kao(:, 3,10,16) = (/ & - &8.4341e+04 ,7.3798e+04 ,6.3256e+04 ,5.2713e+04 ,4.2170e+04 ,3.1628e+04 , & - &2.1085e+04 ,1.0332e+04 ,5.5974e+01 /) - kao(:, 4,10,16) = (/ & - &1.2535e+05 ,1.0968e+05 ,9.4014e+04 ,7.8345e+04 ,6.2676e+04 ,4.7007e+04 , & - &3.1338e+04 ,1.5669e+04 ,5.6279e+01 /) - kao(:, 5,10,16) = (/ & - &1.7674e+05 ,1.5464e+05 ,1.3255e+05 ,1.1046e+05 ,8.8368e+04 ,6.6276e+04 , & - &4.4184e+04 ,2.2092e+04 ,5.6482e+01 /) - kao(:, 1,11,16) = (/ & - &3.7488e+04 ,3.2802e+04 ,2.8116e+04 ,2.3430e+04 ,1.8744e+04 ,1.4058e+04 , & - &9.3718e+03 ,4.6859e+03 ,6.6623e+01 /) - kao(:, 2,11,16) = (/ & - &6.4180e+04 ,5.6158e+04 ,4.8135e+04 ,4.0112e+04 ,3.2090e+04 ,2.4067e+04 , & - &1.6045e+04 ,8.0224e+03 ,6.7308e+01 /) - kao(:, 3,11,16) = (/ & - &1.0143e+05 ,8.8753e+04 ,7.6074e+04 ,6.3395e+04 ,5.0716e+04 ,3.8037e+04 , & - &2.5358e+04 ,1.2679e+04 ,6.7849e+01 /) - kao(:, 4,11,16) = (/ & - &1.5034e+05 ,1.3155e+05 ,1.1275e+05 ,9.3961e+04 ,7.5169e+04 ,5.6376e+04 , & - &3.7584e+04 ,1.8792e+04 ,6.8179e+01 /) - kao(:, 5,11,16) = (/ & - &2.1140e+05 ,1.8498e+05 ,1.5855e+05 ,1.3213e+05 ,1.0570e+05 ,7.9275e+04 , & - &5.2850e+04 ,2.6425e+04 ,6.8333e+01 /) - kao(:, 1,12,16) = (/ & - &4.5641e+04 ,3.9936e+04 ,3.4231e+04 ,2.8526e+04 ,2.2821e+04 ,1.7116e+04 , & - &1.1410e+04 ,5.7052e+03 ,8.0729e+01 /) - kao(:, 2,12,16) = (/ & - &7.7843e+04 ,6.8113e+04 ,5.8382e+04 ,4.8652e+04 ,3.8922e+04 ,2.9191e+04 , & - &1.9461e+04 ,9.7304e+03 ,8.1511e+01 /) - kao(:, 3,12,16) = (/ & - &1.2264e+05 ,1.0731e+05 ,9.1979e+04 ,7.6649e+04 ,6.1320e+04 ,4.5990e+04 , & - &3.0660e+04 ,1.5330e+04 ,8.2042e+01 /) - kao(:, 4,12,16) = (/ & - &1.8173e+05 ,1.5901e+05 ,1.3629e+05 ,1.1358e+05 ,9.0863e+04 ,6.8147e+04 , & - &4.5431e+04 ,2.2716e+04 ,8.2374e+01 /) - kao(:, 5,12,16) = (/ & - &2.5615e+05 ,2.2413e+05 ,1.9211e+05 ,1.6009e+05 ,1.2807e+05 ,9.6056e+04 , & - &6.4037e+04 ,3.2019e+04 ,8.2428e+01 /) - kao(:, 1,13,16) = (/ & - &5.7163e+04 ,5.0018e+04 ,4.2872e+04 ,3.5727e+04 ,2.8582e+04 ,2.1436e+04 , & - &1.4291e+04 ,7.1455e+03 ,9.7539e+01 /) - kao(:, 2,13,16) = (/ & - &9.7458e+04 ,8.5276e+04 ,7.3094e+04 ,6.0911e+04 ,4.8729e+04 ,3.6547e+04 , & - &2.4365e+04 ,1.2182e+04 ,9.8425e+01 /) - kao(:, 3,13,16) = (/ & - &1.5404e+05 ,1.3479e+05 ,1.1553e+05 ,9.6277e+04 ,7.7021e+04 ,5.7766e+04 , & - &3.8511e+04 ,1.9255e+04 ,9.8903e+01 /) - kao(:, 4,13,16) = (/ & - &2.2887e+05 ,2.0026e+05 ,1.7165e+05 ,1.4304e+05 ,1.1444e+05 ,8.5827e+04 , & - &5.7218e+04 ,2.8609e+04 ,9.9135e+01 /) - kao(:, 5,13,16) = (/ & - &3.2310e+05 ,2.8271e+05 ,2.4232e+05 ,2.0194e+05 ,1.6155e+05 ,1.2116e+05 , & - &8.0775e+04 ,4.0387e+04 ,9.9042e+01 /) - -! The array KA_Mxx contains the absorption coefficient for -! a minor species at the 16 chosen g-values for a reference pressure -! level below 100~ mb. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. The second index refers to temperature -! in 7.2 degree increments. For instance, JT = 1 refers to a -! temperature of 188.0, JT = 2 refers to 195.2, etc. The third index -! runs over the g-channel (1 to 16). - - kao_mn2( 1, :, 1) = (/ & - & 3.24352e-08 , 3.39625e-08 , 3.55618e-08 , 3.72364e-08 , 3.89899e-08 , & - & 4.08259e-08 , 4.27484e-08 , 4.47614e-08 , 4.68692e-08 , 4.90763e-08 , & - & 5.13873e-08 , 5.38071e-08 , 5.63409e-08 , 5.89940e-08 , 6.17720e-08 , & - & 6.46808e-08 , 6.77266e-08 , 7.09158e-08 , 7.42553e-08 /) - kao_mn2( 2, :, 1) = (/ & - & 3.44203e-08 , 3.60254e-08 , 3.77053e-08 , 3.94636e-08 , 4.13038e-08 , & - & 4.32299e-08 , 4.52458e-08 , 4.73557e-08 , 4.95640e-08 , 5.18753e-08 , & - & 5.42943e-08 , 5.68262e-08 , 5.94761e-08 , 6.22496e-08 , 6.51524e-08 , & - & 6.81906e-08 , 7.13704e-08 , 7.46986e-08 , 7.81819e-08 /) - kao_mn2( 3, :, 1) = (/ & - & 3.44344e-08 , 3.61485e-08 , 3.79480e-08 , 3.98370e-08 , 4.18201e-08 , & - & 4.39019e-08 , 4.60873e-08 , 4.83815e-08 , 5.07899e-08 , 5.33182e-08 , & - & 5.59723e-08 , 5.87586e-08 , 6.16836e-08 , 6.47541e-08 , 6.79776e-08 , & - & 7.13614e-08 , 7.49138e-08 , 7.86429e-08 , 8.25577e-08 /) - kao_mn2( 4, :, 1) = (/ & - & 4.21102e-08 , 4.38921e-08 , 4.57493e-08 , 4.76852e-08 , 4.97029e-08 , & - & 5.18061e-08 , 5.39982e-08 , 5.62831e-08 , 5.86647e-08 , 6.11470e-08 , & - & 6.37344e-08 , 6.64313e-08 , 6.92422e-08 , 7.21722e-08 , 7.52261e-08 , & - & 7.84092e-08 , 8.17270e-08 , 8.51852e-08 , 8.87897e-08 /) - kao_mn2( 5, :, 1) = (/ & - & 4.78813e-08 , 5.01015e-08 , 5.24246e-08 , 5.48554e-08 , 5.73989e-08 , & - & 6.00603e-08 , 6.28452e-08 , 6.57592e-08 , 6.88083e-08 , 7.19987e-08 , & - & 7.53371e-08 , 7.88304e-08 , 8.24855e-08 , 8.63102e-08 , 9.03122e-08 , & - & 9.44997e-08 , 9.88815e-08 , 1.03466e-07 , 1.08264e-07 /) - kao_mn2( 6, :, 1) = (/ & - & 7.03115e-08 , 7.27877e-08 , 7.53511e-08 , 7.80048e-08 , 8.07519e-08 , & - & 8.35958e-08 , 8.65398e-08 , 8.95875e-08 , 9.27426e-08 , 9.60087e-08 , & - & 9.93899e-08 , 1.02890e-07 , 1.06514e-07 , 1.10265e-07 , 1.14148e-07 , & - & 1.18168e-07 , 1.22330e-07 , 1.26638e-07 , 1.31098e-07 /) - kao_mn2( 7, :, 1) = (/ & - & 8.86454e-08 , 9.20065e-08 , 9.54951e-08 , 9.91159e-08 , 1.02874e-07 , & - & 1.06775e-07 , 1.10823e-07 , 1.15025e-07 , 1.19387e-07 , 1.23913e-07 , & - & 1.28612e-07 , 1.33488e-07 , 1.38550e-07 , 1.43803e-07 , 1.49255e-07 , & - & 1.54915e-07 , 1.60788e-07 , 1.66885e-07 , 1.73213e-07 /) - kao_mn2( 8, :, 1) = (/ & - & 1.34118e-07 , 1.38267e-07 , 1.42545e-07 , 1.46955e-07 , 1.51502e-07 , & - & 1.56189e-07 , 1.61022e-07 , 1.66004e-07 , 1.71140e-07 , 1.76435e-07 , & - & 1.81893e-07 , 1.87521e-07 , 1.93323e-07 , 1.99304e-07 , 2.05470e-07 , & - & 2.11827e-07 , 2.18381e-07 , 2.25138e-07 , 2.32103e-07 /) - kao_mn2( 9, :, 1) = (/ & - & 5.08256e-08 , 5.30384e-08 , 5.53476e-08 , 5.77573e-08 , 6.02718e-08 , & - & 6.28959e-08 , 6.56342e-08 , 6.84917e-08 , 7.14737e-08 , 7.45854e-08 , & - & 7.78327e-08 , 8.12213e-08 , 8.47574e-08 , 8.84475e-08 , 9.22983e-08 , & - & 9.63167e-08 , 1.00510e-07 , 1.04886e-07 , 1.09452e-07 /) - kao_mn2( 1, :, 2) = (/ & - & 8.23958e-08 , 8.39092e-08 , 8.54504e-08 , 8.70200e-08 , 8.86183e-08 , & - & 9.02460e-08 , 9.19036e-08 , 9.35917e-08 , 9.53107e-08 , 9.70614e-08 , & - & 9.88442e-08 , 1.00660e-07 , 1.02509e-07 , 1.04391e-07 , 1.06309e-07 , & - & 1.08261e-07 , 1.10250e-07 , 1.12275e-07 , 1.14337e-07 /) - kao_mn2( 2, :, 2) = (/ & - & 8.52335e-08 , 8.69254e-08 , 8.86509e-08 , 9.04107e-08 , 9.22054e-08 , & - & 9.40357e-08 , 9.59024e-08 , 9.78061e-08 , 9.97476e-08 , 1.01728e-07 , & - & 1.03747e-07 , 1.05806e-07 , 1.07907e-07 , 1.10049e-07 , 1.12233e-07 , & - & 1.14461e-07 , 1.16733e-07 , 1.19050e-07 , 1.21414e-07 /) - kao_mn2( 3, :, 2) = (/ & - & 1.04608e-07 , 1.06067e-07 , 1.07546e-07 , 1.09046e-07 , 1.10567e-07 , & - & 1.12110e-07 , 1.13673e-07 , 1.15259e-07 , 1.16866e-07 , 1.18496e-07 , & - & 1.20149e-07 , 1.21825e-07 , 1.23524e-07 , 1.25247e-07 , 1.26994e-07 , & - & 1.28765e-07 , 1.30561e-07 , 1.32382e-07 , 1.34229e-07 /) - kao_mn2( 4, :, 2) = (/ & - & 1.17504e-07 , 1.18763e-07 , 1.20036e-07 , 1.21322e-07 , 1.22622e-07 , & - & 1.23936e-07 , 1.25265e-07 , 1.26607e-07 , 1.27964e-07 , 1.29335e-07 , & - & 1.30721e-07 , 1.32122e-07 , 1.33538e-07 , 1.34969e-07 , 1.36415e-07 , & - & 1.37877e-07 , 1.39354e-07 , 1.40848e-07 , 1.42357e-07 /) - kao_mn2( 5, :, 2) = (/ & - & 1.23552e-07 , 1.25200e-07 , 1.26870e-07 , 1.28562e-07 , 1.30277e-07 , & - & 1.32015e-07 , 1.33776e-07 , 1.35560e-07 , 1.37368e-07 , 1.39200e-07 , & - & 1.41057e-07 , 1.42938e-07 , 1.44845e-07 , 1.46777e-07 , 1.48735e-07 , & - & 1.50718e-07 , 1.52729e-07 , 1.54766e-07 , 1.56830e-07 /) - kao_mn2( 6, :, 2) = (/ & - & 1.29682e-07 , 1.32226e-07 , 1.34820e-07 , 1.37464e-07 , 1.40161e-07 , & - & 1.42910e-07 , 1.45713e-07 , 1.48571e-07 , 1.51486e-07 , 1.54457e-07 , & - & 1.57487e-07 , 1.60576e-07 , 1.63726e-07 , 1.66937e-07 , 1.70212e-07 , & - & 1.73551e-07 , 1.76955e-07 , 1.80426e-07 , 1.83965e-07 /) - kao_mn2( 7, :, 2) = (/ & - & 1.77416e-07 , 1.78627e-07 , 1.79846e-07 , 1.81073e-07 , 1.82309e-07 , & - & 1.83554e-07 , 1.84806e-07 , 1.86068e-07 , 1.87338e-07 , 1.88616e-07 , & - & 1.89904e-07 , 1.91200e-07 , 1.92505e-07 , 1.93819e-07 , 1.95142e-07 , & - & 1.96474e-07 , 1.97815e-07 , 1.99165e-07 , 2.00524e-07 /) - kao_mn2( 8, :, 2) = (/ & - & 2.20695e-07 , 2.20451e-07 , 2.20208e-07 , 2.19965e-07 , 2.19722e-07 , & - & 2.19480e-07 , 2.19238e-07 , 2.18996e-07 , 2.18754e-07 , 2.18513e-07 , & - & 2.18272e-07 , 2.18031e-07 , 2.17790e-07 , 2.17550e-07 , 2.17310e-07 , & - & 2.17070e-07 , 2.16831e-07 , 2.16591e-07 , 2.16352e-07 /) - kao_mn2( 9, :, 2) = (/ & - & 1.23015e-07 , 1.24808e-07 , 1.26626e-07 , 1.28471e-07 , 1.30343e-07 , & - & 1.32242e-07 , 1.34168e-07 , 1.36123e-07 , 1.38106e-07 , 1.40118e-07 , & - & 1.42160e-07 , 1.44231e-07 , 1.46332e-07 , 1.48464e-07 , 1.50627e-07 , & - & 1.52822e-07 , 1.55048e-07 , 1.57307e-07 , 1.59599e-07 /) - kao_mn2( 1, :, 3) = (/ & - & 1.87585e-07 , 1.89503e-07 , 1.91440e-07 , 1.93398e-07 , 1.95375e-07 , & - & 1.97372e-07 , 1.99390e-07 , 2.01429e-07 , 2.03488e-07 , 2.05568e-07 , & - & 2.07670e-07 , 2.09793e-07 , 2.11938e-07 , 2.14105e-07 , 2.16294e-07 , & - & 2.18505e-07 , 2.20739e-07 , 2.22996e-07 , 2.25275e-07 /) - kao_mn2( 2, :, 3) = (/ & - & 1.82585e-07 , 1.84249e-07 , 1.85929e-07 , 1.87624e-07 , 1.89335e-07 , & - & 1.91061e-07 , 1.92803e-07 , 1.94561e-07 , 1.96335e-07 , 1.98125e-07 , & - & 1.99932e-07 , 2.01755e-07 , 2.03594e-07 , 2.05451e-07 , 2.07324e-07 , & - & 2.09214e-07 , 2.11122e-07 , 2.13047e-07 , 2.14989e-07 /) - kao_mn2( 3, :, 3) = (/ & - & 1.64711e-07 , 1.67539e-07 , 1.70417e-07 , 1.73343e-07 , 1.76321e-07 , & - & 1.79349e-07 , 1.82429e-07 , 1.85562e-07 , 1.88749e-07 , 1.91990e-07 , & - & 1.95288e-07 , 1.98642e-07 , 2.02053e-07 , 2.05523e-07 , 2.09053e-07 , & - & 2.12643e-07 , 2.16295e-07 , 2.20010e-07 , 2.23788e-07 /) - kao_mn2( 4, :, 3) = (/ & - & 1.67494e-07 , 1.71011e-07 , 1.74601e-07 , 1.78267e-07 , 1.82009e-07 , & - & 1.85831e-07 , 1.89732e-07 , 1.93715e-07 , 1.97782e-07 , 2.01935e-07 , & - & 2.06174e-07 , 2.10503e-07 , 2.14922e-07 , 2.19434e-07 , 2.24041e-07 , & - & 2.28745e-07 , 2.33548e-07 , 2.38451e-07 , 2.43457e-07 /) - kao_mn2( 5, :, 3) = (/ & - & 1.97399e-07 , 2.00092e-07 , 2.02821e-07 , 2.05588e-07 , 2.08393e-07 , & - & 2.11236e-07 , 2.14118e-07 , 2.17039e-07 , 2.20000e-07 , 2.23001e-07 , & - & 2.26043e-07 , 2.29127e-07 , 2.32252e-07 , 2.35421e-07 , 2.38633e-07 , & - & 2.41888e-07 , 2.45188e-07 , 2.48533e-07 , 2.51923e-07 /) - kao_mn2( 6, :, 3) = (/ & - & 2.24021e-07 , 2.24970e-07 , 2.25923e-07 , 2.26880e-07 , 2.27840e-07 , & - & 2.28805e-07 , 2.29774e-07 , 2.30747e-07 , 2.31725e-07 , 2.32706e-07 , & - & 2.33692e-07 , 2.34681e-07 , 2.35675e-07 , 2.36673e-07 , 2.37675e-07 , & - & 2.38682e-07 , 2.39693e-07 , 2.40708e-07 , 2.41727e-07 /) - kao_mn2( 7, :, 3) = (/ & - & 1.98178e-07 , 2.00676e-07 , 2.03205e-07 , 2.05766e-07 , 2.08359e-07 , & - & 2.10986e-07 , 2.13645e-07 , 2.16337e-07 , 2.19064e-07 , 2.21825e-07 , & - & 2.24621e-07 , 2.27452e-07 , 2.30319e-07 , 2.33222e-07 , 2.36161e-07 , & - & 2.39138e-07 , 2.42152e-07 , 2.45204e-07 , 2.48294e-07 /) - kao_mn2( 8, :, 3) = (/ & - & 2.83042e-07 , 2.89941e-07 , 2.97009e-07 , 3.04250e-07 , 3.11666e-07 , & - & 3.19264e-07 , 3.27047e-07 , 3.35019e-07 , 3.43186e-07 , 3.51552e-07 , & - & 3.60122e-07 , 3.68901e-07 , 3.77893e-07 , 3.87105e-07 , 3.96542e-07 , & - & 4.06208e-07 , 4.16111e-07 , 4.26254e-07 , 4.36645e-07 /) - kao_mn2( 9, :, 3) = (/ & - & 1.98963e-07 , 2.01576e-07 , 2.04224e-07 , 2.06907e-07 , 2.09626e-07 , & - & 2.12379e-07 , 2.15169e-07 , 2.17996e-07 , 2.20860e-07 , 2.23761e-07 , & - & 2.26701e-07 , 2.29679e-07 , 2.32696e-07 , 2.35753e-07 , 2.38851e-07 , & - & 2.41988e-07 , 2.45167e-07 , 2.48388e-07 , 2.51651e-07 /) - kao_mn2( 1, :, 4) = (/ & - & 3.75434e-07 , 3.79581e-07 , 3.83775e-07 , 3.88014e-07 , 3.92301e-07 , & - & 3.96634e-07 , 4.01016e-07 , 4.05446e-07 , 4.09925e-07 , 4.14453e-07 , & - & 4.19032e-07 , 4.23661e-07 , 4.28341e-07 , 4.33073e-07 , 4.37857e-07 , & - & 4.42694e-07 , 4.47585e-07 , 4.52529e-07 , 4.57528e-07 /) - kao_mn2( 2, :, 4) = (/ & - & 3.76756e-07 , 3.80760e-07 , 3.84805e-07 , 3.88894e-07 , 3.93027e-07 , & - & 3.97203e-07 , 4.01423e-07 , 4.05689e-07 , 4.10000e-07 , 4.14356e-07 , & - & 4.18759e-07 , 4.23209e-07 , 4.27706e-07 , 4.32250e-07 , 4.36843e-07 , & - & 4.41485e-07 , 4.46176e-07 , 4.50917e-07 , 4.55708e-07 /) - kao_mn2( 3, :, 4) = (/ & - & 3.76258e-07 , 3.78929e-07 , 3.81619e-07 , 3.84329e-07 , 3.87057e-07 , & - & 3.89805e-07 , 3.92572e-07 , 3.95359e-07 , 3.98166e-07 , 4.00993e-07 , & - & 4.03839e-07 , 4.06706e-07 , 4.09594e-07 , 4.12502e-07 , 4.15430e-07 , & - & 4.18379e-07 , 4.21349e-07 , 4.24341e-07 , 4.27353e-07 /) - kao_mn2( 4, :, 4) = (/ & - & 3.17796e-07 , 3.22447e-07 , 3.27166e-07 , 3.31954e-07 , 3.36812e-07 , & - & 3.41742e-07 , 3.46743e-07 , 3.51818e-07 , 3.56967e-07 , 3.62191e-07 , & - & 3.67492e-07 , 3.72870e-07 , 3.78328e-07 , 3.83865e-07 , 3.89483e-07 , & - & 3.95183e-07 , 4.00967e-07 , 4.06835e-07 , 4.12789e-07 /) - kao_mn2( 5, :, 4) = (/ & - & 3.33793e-07 , 3.38941e-07 , 3.44169e-07 , 3.49478e-07 , 3.54868e-07 , & - & 3.60342e-07 , 3.65900e-07 , 3.71544e-07 , 3.77275e-07 , 3.83094e-07 , & - & 3.89003e-07 , 3.95003e-07 , 4.01096e-07 , 4.07283e-07 , 4.13565e-07 , & - & 4.19944e-07 , 4.26421e-07 , 4.32999e-07 , 4.39677e-07 /) - kao_mn2( 6, :, 4) = (/ & - & 3.60052e-07 , 3.66686e-07 , 3.73442e-07 , 3.80323e-07 , 3.87330e-07 , & - & 3.94466e-07 , 4.01734e-07 , 4.09136e-07 , 4.16674e-07 , 4.24351e-07 , & - & 4.32169e-07 , 4.40132e-07 , 4.48241e-07 , 4.56500e-07 , 4.64910e-07 , & - & 4.73476e-07 , 4.82200e-07 , 4.91084e-07 , 5.00132e-07 /) - kao_mn2( 7, :, 4) = (/ & - & 4.14713e-07 , 4.21885e-07 , 4.29181e-07 , 4.36603e-07 , 4.44153e-07 , & - & 4.51834e-07 , 4.59648e-07 , 4.67598e-07 , 4.75684e-07 , 4.83910e-07 , & - & 4.92279e-07 , 5.00793e-07 , 5.09453e-07 , 5.18264e-07 , 5.27226e-07 , & - & 5.36344e-07 , 5.45620e-07 , 5.55055e-07 , 5.64654e-07 /) - kao_mn2( 8, :, 4) = (/ & - & 4.15352e-07 , 4.24386e-07 , 4.33617e-07 , 4.43049e-07 , 4.52685e-07 , & - & 4.62532e-07 , 4.72592e-07 , 4.82872e-07 , 4.93374e-07 , 5.04106e-07 , & - & 5.15071e-07 , 5.26274e-07 , 5.37721e-07 , 5.49417e-07 , 5.61367e-07 , & - & 5.73577e-07 , 5.86053e-07 , 5.98800e-07 , 6.11825e-07 /) - kao_mn2( 9, :, 4) = (/ & - & 3.33820e-07 , 3.39144e-07 , 3.44553e-07 , 3.50048e-07 , 3.55631e-07 , & - & 3.61302e-07 , 3.67065e-07 , 3.72919e-07 , 3.78866e-07 , 3.84908e-07 , & - & 3.91047e-07 , 3.97284e-07 , 4.03620e-07 , 4.10057e-07 , 4.16597e-07 , & - & 4.23241e-07 , 4.29991e-07 , 4.36849e-07 , 4.43816e-07 /) - kao_mn2( 1, :, 5) = (/ & - & 6.99819e-07 , 7.04629e-07 , 7.09472e-07 , 7.14349e-07 , 7.19258e-07 , & - & 7.24202e-07 , 7.29180e-07 , 7.34192e-07 , 7.39238e-07 , 7.44319e-07 , & - & 7.49435e-07 , 7.54586e-07 , 7.59773e-07 , 7.64995e-07 , 7.70253e-07 , & - & 7.75547e-07 , 7.80877e-07 , 7.86245e-07 , 7.91649e-07 /) - kao_mn2( 2, :, 5) = (/ & - & 6.98257e-07 , 7.03182e-07 , 7.08143e-07 , 7.13138e-07 , 7.18169e-07 , & - & 7.23235e-07 , 7.28336e-07 , 7.33474e-07 , 7.38648e-07 , 7.43858e-07 , & - & 7.49106e-07 , 7.54390e-07 , 7.59711e-07 , 7.65071e-07 , 7.70467e-07 , & - & 7.75902e-07 , 7.81376e-07 , 7.86887e-07 , 7.92438e-07 /) - kao_mn2( 3, :, 5) = (/ & - & 6.98531e-07 , 7.03429e-07 , 7.08361e-07 , 7.13328e-07 , 7.18329e-07 , & - & 7.23365e-07 , 7.28437e-07 , 7.33545e-07 , 7.38688e-07 , 7.43867e-07 , & - & 7.49082e-07 , 7.54335e-07 , 7.59623e-07 , 7.64950e-07 , 7.70313e-07 , & - & 7.75714e-07 , 7.81153e-07 , 7.86630e-07 , 7.92145e-07 /) - kao_mn2( 4, :, 5) = (/ & - & 7.37210e-07 , 7.38869e-07 , 7.40532e-07 , 7.42198e-07 , 7.43868e-07 , & - & 7.45542e-07 , 7.47219e-07 , 7.48901e-07 , 7.50586e-07 , 7.52275e-07 , & - & 7.53967e-07 , 7.55664e-07 , 7.57364e-07 , 7.59068e-07 , 7.60777e-07 , & - & 7.62488e-07 , 7.64204e-07 , 7.65924e-07 , 7.67647e-07 /) - kao_mn2( 5, :, 5) = (/ & - & 6.07063e-07 , 6.12893e-07 , 6.18779e-07 , 6.24722e-07 , 6.30721e-07 , & - & 6.36778e-07 , 6.42893e-07 , 6.49067e-07 , 6.55301e-07 , 6.61594e-07 , & - & 6.67947e-07 , 6.74362e-07 , 6.80838e-07 , 6.87376e-07 , 6.93978e-07 , & - & 7.00642e-07 , 7.07371e-07 , 7.14164e-07 , 7.21022e-07 /) - kao_mn2( 6, :, 5) = (/ & - & 6.13354e-07 , 6.20147e-07 , 6.27016e-07 , 6.33961e-07 , 6.40983e-07 , & - & 6.48082e-07 , 6.55260e-07 , 6.62518e-07 , 6.69856e-07 , 6.77276e-07 , & - & 6.84777e-07 , 6.92362e-07 , 7.00030e-07 , 7.07784e-07 , 7.15624e-07 , & - & 7.23550e-07 , 7.31564e-07 , 7.39667e-07 , 7.47859e-07 /) - kao_mn2( 7, :, 5) = (/ & - & 6.86666e-07 , 6.92902e-07 , 6.99195e-07 , 7.05545e-07 , 7.11952e-07 , & - & 7.18418e-07 , 7.24943e-07 , 7.31526e-07 , 7.38170e-07 , 7.44874e-07 , & - & 7.51639e-07 , 7.58465e-07 , 7.65353e-07 , 7.72304e-07 , 7.79318e-07 , & - & 7.86395e-07 , 7.93537e-07 , 8.00744e-07 , 8.08016e-07 /) - kao_mn2( 8, :, 5) = (/ & - & 9.39664e-07 , 9.39765e-07 , 9.39866e-07 , 9.39966e-07 , 9.40067e-07 , & - & 9.40168e-07 , 9.40268e-07 , 9.40369e-07 , 9.40470e-07 , 9.40571e-07 , & - & 9.40671e-07 , 9.40772e-07 , 9.40873e-07 , 9.40974e-07 , 9.41074e-07 , & - & 9.41175e-07 , 9.41276e-07 , 9.41377e-07 , 9.41478e-07 /) - kao_mn2( 9, :, 5) = (/ & - & 6.02847e-07 , 6.09726e-07 , 6.16684e-07 , 6.23722e-07 , 6.30839e-07 , & - & 6.38038e-07 , 6.45320e-07 , 6.52684e-07 , 6.60132e-07 , 6.67665e-07 , & - & 6.75284e-07 , 6.82991e-07 , 6.90785e-07 , 6.98668e-07 , 7.06641e-07 , & - & 7.14705e-07 , 7.22861e-07 , 7.31110e-07 , 7.39453e-07 /) - kao_mn2( 1, :, 6) = (/ & - & 1.13692e-06 , 1.13231e-06 , 1.12772e-06 , 1.12315e-06 , 1.11859e-06 , & - & 1.11406e-06 , 1.10954e-06 , 1.10505e-06 , 1.10057e-06 , 1.09610e-06 , & - & 1.09166e-06 , 1.08724e-06 , 1.08283e-06 , 1.07844e-06 , 1.07407e-06 , & - & 1.06971e-06 , 1.06538e-06 , 1.06106e-06 , 1.05676e-06 /) - kao_mn2( 2, :, 6) = (/ & - & 1.13682e-06 , 1.13221e-06 , 1.12762e-06 , 1.12305e-06 , 1.11849e-06 , & - & 1.11396e-06 , 1.10944e-06 , 1.10495e-06 , 1.10047e-06 , 1.09600e-06 , & - & 1.09156e-06 , 1.08714e-06 , 1.08273e-06 , 1.07834e-06 , 1.07397e-06 , & - & 1.06961e-06 , 1.06528e-06 , 1.06096e-06 , 1.05666e-06 /) - kao_mn2( 3, :, 6) = (/ & - & 1.13642e-06 , 1.13181e-06 , 1.12722e-06 , 1.12265e-06 , 1.11809e-06 , & - & 1.11356e-06 , 1.10904e-06 , 1.10455e-06 , 1.10007e-06 , 1.09560e-06 , & - & 1.09116e-06 , 1.08674e-06 , 1.08233e-06 , 1.07794e-06 , 1.07357e-06 , & - & 1.06921e-06 , 1.06488e-06 , 1.06056e-06 , 1.05626e-06 /) - kao_mn2( 4, :, 6) = (/ & - & 1.13626e-06 , 1.13160e-06 , 1.12696e-06 , 1.12233e-06 , 1.11773e-06 , & - & 1.11314e-06 , 1.10858e-06 , 1.10403e-06 , 1.09950e-06 , 1.09498e-06 , & - & 1.09049e-06 , 1.08602e-06 , 1.08156e-06 , 1.07712e-06 , 1.07270e-06 , & - & 1.06830e-06 , 1.06392e-06 , 1.05955e-06 , 1.05520e-06 /) - kao_mn2( 5, :, 6) = (/ & - & 1.22429e-06 , 1.21163e-06 , 1.19909e-06 , 1.18669e-06 , 1.17441e-06 , & - & 1.16226e-06 , 1.15024e-06 , 1.13834e-06 , 1.12656e-06 , 1.11491e-06 , & - & 1.10338e-06 , 1.09196e-06 , 1.08067e-06 , 1.06949e-06 , 1.05842e-06 , & - & 1.04747e-06 , 1.03664e-06 , 1.02591e-06 , 1.01530e-06 /) - kao_mn2( 6, :, 6) = (/ & - & 1.02400e-06 , 1.02238e-06 , 1.02077e-06 , 1.01916e-06 , 1.01755e-06 , & - & 1.01594e-06 , 1.01433e-06 , 1.01273e-06 , 1.01113e-06 , 1.00953e-06 , & - & 1.00794e-06 , 1.00635e-06 , 1.00476e-06 , 1.00317e-06 , 1.00159e-06 , & - & 1.00000e-06 , 9.98425e-07 , 9.96848e-07 , 9.95273e-07 /) - kao_mn2( 7, :, 6) = (/ & - & 1.08594e-06 , 1.08185e-06 , 1.07778e-06 , 1.07373e-06 , 1.06969e-06 , & - & 1.06566e-06 , 1.06165e-06 , 1.05766e-06 , 1.05368e-06 , 1.04971e-06 , & - & 1.04576e-06 , 1.04183e-06 , 1.03791e-06 , 1.03400e-06 , 1.03011e-06 , & - & 1.02623e-06 , 1.02237e-06 , 1.01852e-06 , 1.01469e-06 /) - kao_mn2( 8, :, 6) = (/ & - & 1.25029e-06 , 1.22508e-06 , 1.20038e-06 , 1.17618e-06 , 1.15247e-06 , & - & 1.12924e-06 , 1.10647e-06 , 1.08416e-06 , 1.06231e-06 , 1.04089e-06 , & - & 1.01990e-06 , 9.99343e-07 , 9.79196e-07 , 9.59454e-07 , 9.40111e-07 , & - & 9.21158e-07 , 9.02587e-07 , 8.84390e-07 , 8.66560e-07 /) - kao_mn2( 9, :, 6) = (/ & - & 1.21299e-06 , 1.19953e-06 , 1.18622e-06 , 1.17305e-06 , 1.16003e-06 , & - & 1.14716e-06 , 1.13443e-06 , 1.12184e-06 , 1.10939e-06 , 1.09708e-06 , & - & 1.08491e-06 , 1.07287e-06 , 1.06096e-06 , 1.04919e-06 , 1.03755e-06 , & - & 1.02603e-06 , 1.01465e-06 , 1.00339e-06 , 9.92253e-07 /) - kao_mn2( 1, :, 7) = (/ & - & 1.53893e-06 , 1.51743e-06 , 1.49623e-06 , 1.47532e-06 , 1.45471e-06 , & - & 1.43438e-06 , 1.41434e-06 , 1.39458e-06 , 1.37509e-06 , 1.35588e-06 , & - & 1.33694e-06 , 1.31826e-06 , 1.29984e-06 , 1.28167e-06 , 1.26377e-06 , & - & 1.24611e-06 , 1.22870e-06 , 1.21153e-06 , 1.19460e-06 /) - kao_mn2( 2, :, 7) = (/ & - & 1.53809e-06 , 1.51665e-06 , 1.49552e-06 , 1.47467e-06 , 1.45412e-06 , & - & 1.43386e-06 , 1.41388e-06 , 1.39418e-06 , 1.37475e-06 , 1.35559e-06 , & - & 1.33670e-06 , 1.31807e-06 , 1.29970e-06 , 1.28159e-06 , 1.26373e-06 , & - & 1.24612e-06 , 1.22875e-06 , 1.21163e-06 , 1.19475e-06 /) - kao_mn2( 3, :, 7) = (/ & - & 1.53883e-06 , 1.51733e-06 , 1.49613e-06 , 1.47522e-06 , 1.45461e-06 , & - & 1.43428e-06 , 1.41424e-06 , 1.39448e-06 , 1.37499e-06 , 1.35578e-06 , & - & 1.33684e-06 , 1.31816e-06 , 1.29974e-06 , 1.28157e-06 , 1.26367e-06 , & - & 1.24601e-06 , 1.22860e-06 , 1.21143e-06 , 1.19450e-06 /) - kao_mn2( 4, :, 7) = (/ & - & 1.53789e-06 , 1.51645e-06 , 1.49532e-06 , 1.47448e-06 , 1.45393e-06 , & - & 1.43366e-06 , 1.41368e-06 , 1.39398e-06 , 1.37455e-06 , 1.35539e-06 , & - & 1.33650e-06 , 1.31787e-06 , 1.29950e-06 , 1.28139e-06 , 1.26353e-06 , & - & 1.24592e-06 , 1.22856e-06 , 1.21143e-06 , 1.19455e-06 /) - kao_mn2( 5, :, 7) = (/ & - & 1.54059e-06 , 1.51888e-06 , 1.49747e-06 , 1.47637e-06 , 1.45557e-06 , & - & 1.43505e-06 , 1.41483e-06 , 1.39489e-06 , 1.37523e-06 , 1.35585e-06 , & - & 1.33675e-06 , 1.31791e-06 , 1.29934e-06 , 1.28103e-06 , 1.26297e-06 , & - & 1.24517e-06 , 1.22763e-06 , 1.21033e-06 , 1.19327e-06 /) - kao_mn2( 6, :, 7) = (/ & - & 1.70605e-06 , 1.65759e-06 , 1.61052e-06 , 1.56478e-06 , 1.52034e-06 , & - & 1.47716e-06 , 1.43521e-06 , 1.39445e-06 , 1.35485e-06 , 1.31637e-06 , & - & 1.27898e-06 , 1.24266e-06 , 1.20737e-06 , 1.17308e-06 , 1.13976e-06 , & - & 1.10739e-06 , 1.07594e-06 , 1.04539e-06 , 1.01570e-06 /) - kao_mn2( 7, :, 7) = (/ & - & 1.39128e-06 , 1.36388e-06 , 1.33702e-06 , 1.31068e-06 , 1.28487e-06 , & - & 1.25956e-06 , 1.23475e-06 , 1.21044e-06 , 1.18659e-06 , 1.16322e-06 , & - & 1.14031e-06 , 1.11785e-06 , 1.09584e-06 , 1.07425e-06 , 1.05309e-06 , & - & 1.03235e-06 , 1.01202e-06 , 9.92088e-07 , 9.72548e-07 /) - kao_mn2( 8, :, 7) = (/ & - & 1.15676e-06 , 1.13709e-06 , 1.11775e-06 , 1.09874e-06 , 1.08005e-06 , & - & 1.06168e-06 , 1.04362e-06 , 1.02587e-06 , 1.00842e-06 , 9.91271e-07 , & - & 9.74411e-07 , 9.57838e-07 , 9.41547e-07 , 9.25532e-07 , 9.09791e-07 , & - & 8.94316e-07 , 8.79105e-07 , 8.64153e-07 , 8.49455e-07 /) - kao_mn2( 9, :, 7) = (/ & - & 1.53483e-06 , 1.51352e-06 , 1.49252e-06 , 1.47180e-06 , 1.45138e-06 , & - & 1.43123e-06 , 1.41137e-06 , 1.39178e-06 , 1.37246e-06 , 1.35341e-06 , & - & 1.33463e-06 , 1.31610e-06 , 1.29784e-06 , 1.27982e-06 , 1.26206e-06 , & - & 1.24454e-06 , 1.22727e-06 , 1.21024e-06 , 1.19344e-06 /) - kao_mn2( 1, :, 8) = (/ & - & 1.70380e-06 , 1.67470e-06 , 1.64609e-06 , 1.61796e-06 , 1.59032e-06 , & - & 1.56315e-06 , 1.53645e-06 , 1.51020e-06 , 1.48440e-06 , 1.45904e-06 , & - & 1.43411e-06 , 1.40961e-06 , 1.38553e-06 , 1.36186e-06 , 1.33859e-06 , & - & 1.31572e-06 , 1.29324e-06 , 1.27115e-06 , 1.24943e-06 /) - kao_mn2( 2, :, 8) = (/ & - & 1.70380e-06 , 1.67470e-06 , 1.64609e-06 , 1.61796e-06 , 1.59032e-06 , & - & 1.56315e-06 , 1.53645e-06 , 1.51020e-06 , 1.48440e-06 , 1.45904e-06 , & - & 1.43411e-06 , 1.40961e-06 , 1.38553e-06 , 1.36186e-06 , 1.33859e-06 , & - & 1.31572e-06 , 1.29324e-06 , 1.27115e-06 , 1.24943e-06 /) - kao_mn2( 3, :, 8) = (/ & - & 1.70380e-06 , 1.67470e-06 , 1.64609e-06 , 1.61796e-06 , 1.59032e-06 , & - & 1.56315e-06 , 1.53645e-06 , 1.51020e-06 , 1.48440e-06 , 1.45904e-06 , & - & 1.43411e-06 , 1.40961e-06 , 1.38553e-06 , 1.36186e-06 , 1.33859e-06 , & - & 1.31572e-06 , 1.29324e-06 , 1.27115e-06 , 1.24943e-06 /) - kao_mn2( 4, :, 8) = (/ & - & 1.70380e-06 , 1.67470e-06 , 1.64609e-06 , 1.61796e-06 , 1.59032e-06 , & - & 1.56315e-06 , 1.53645e-06 , 1.51020e-06 , 1.48440e-06 , 1.45904e-06 , & - & 1.43411e-06 , 1.40961e-06 , 1.38553e-06 , 1.36186e-06 , 1.33859e-06 , & - & 1.31572e-06 , 1.29324e-06 , 1.27115e-06 , 1.24943e-06 /) - kao_mn2( 5, :, 8) = (/ & - & 1.70380e-06 , 1.67470e-06 , 1.64609e-06 , 1.61796e-06 , 1.59032e-06 , & - & 1.56315e-06 , 1.53645e-06 , 1.51020e-06 , 1.48440e-06 , 1.45904e-06 , & - & 1.43411e-06 , 1.40961e-06 , 1.38553e-06 , 1.36186e-06 , 1.33859e-06 , & - & 1.31572e-06 , 1.29324e-06 , 1.27115e-06 , 1.24943e-06 /) - kao_mn2( 6, :, 8) = (/ & - & 1.70380e-06 , 1.67470e-06 , 1.64609e-06 , 1.61796e-06 , 1.59032e-06 , & - & 1.56315e-06 , 1.53645e-06 , 1.51020e-06 , 1.48440e-06 , 1.45904e-06 , & - & 1.43411e-06 , 1.40961e-06 , 1.38553e-06 , 1.36186e-06 , 1.33859e-06 , & - & 1.31572e-06 , 1.29324e-06 , 1.27115e-06 , 1.24943e-06 /) - kao_mn2( 7, :, 8) = (/ & - & 1.71827e-06 , 1.65481e-06 , 1.59370e-06 , 1.53484e-06 , 1.47816e-06 , & - & 1.42357e-06 , 1.37099e-06 , 1.32036e-06 , 1.27160e-06 , 1.22464e-06 , & - & 1.17941e-06 , 1.13585e-06 , 1.09390e-06 , 1.05350e-06 , 1.01459e-06 , & - & 9.77124e-07 , 9.41037e-07 , 9.06284e-07 , 8.72813e-07 /) - kao_mn2( 8, :, 8) = (/ & - & 1.77169e-06 , 1.62858e-06 , 1.49703e-06 , 1.37610e-06 , 1.26494e-06 , & - & 1.16276e-06 , 1.06883e-06 , 9.82495e-07 , 9.03131e-07 , 8.30177e-07 , & - & 7.63117e-07 , 7.01473e-07 , 6.44810e-07 , 5.92723e-07 , 5.44844e-07 , & - & 5.00832e-07 , 4.60376e-07 , 4.23187e-07 , 3.89003e-07 /) - kao_mn2( 9, :, 8) = (/ & - & 1.70025e-06 , 1.67042e-06 , 1.64110e-06 , 1.61231e-06 , 1.58401e-06 , & - & 1.55622e-06 , 1.52891e-06 , 1.50208e-06 , 1.47572e-06 , 1.44982e-06 , & - & 1.42438e-06 , 1.39939e-06 , 1.37483e-06 , 1.35071e-06 , 1.32700e-06 , & - & 1.30372e-06 , 1.28084e-06 , 1.25836e-06 , 1.23628e-06 /) - kao_mn2( 1, :, 9) = (/ & - & 1.74004e-06 , 1.70661e-06 , 1.67383e-06 , 1.64167e-06 , 1.61014e-06 , & - & 1.57921e-06 , 1.54887e-06 , 1.51912e-06 , 1.48994e-06 , 1.46132e-06 , & - & 1.43325e-06 , 1.40572e-06 , 1.37871e-06 , 1.35223e-06 , 1.32625e-06 , & - & 1.30078e-06 , 1.27579e-06 , 1.25128e-06 , 1.22725e-06 /) - kao_mn2( 2, :, 9) = (/ & - & 1.74004e-06 , 1.70661e-06 , 1.67383e-06 , 1.64167e-06 , 1.61014e-06 , & - & 1.57921e-06 , 1.54887e-06 , 1.51912e-06 , 1.48994e-06 , 1.46132e-06 , & - & 1.43325e-06 , 1.40572e-06 , 1.37871e-06 , 1.35223e-06 , 1.32625e-06 , & - & 1.30078e-06 , 1.27579e-06 , 1.25128e-06 , 1.22725e-06 /) - kao_mn2( 3, :, 9) = (/ & - & 1.74004e-06 , 1.70661e-06 , 1.67383e-06 , 1.64167e-06 , 1.61014e-06 , & - & 1.57921e-06 , 1.54887e-06 , 1.51912e-06 , 1.48994e-06 , 1.46132e-06 , & - & 1.43325e-06 , 1.40572e-06 , 1.37871e-06 , 1.35223e-06 , 1.32625e-06 , & - & 1.30078e-06 , 1.27579e-06 , 1.25128e-06 , 1.22725e-06 /) - kao_mn2( 4, :, 9) = (/ & - & 1.74004e-06 , 1.70661e-06 , 1.67383e-06 , 1.64167e-06 , 1.61014e-06 , & - & 1.57921e-06 , 1.54887e-06 , 1.51912e-06 , 1.48994e-06 , 1.46132e-06 , & - & 1.43325e-06 , 1.40572e-06 , 1.37871e-06 , 1.35223e-06 , 1.32625e-06 , & - & 1.30078e-06 , 1.27579e-06 , 1.25128e-06 , 1.22725e-06 /) - kao_mn2( 5, :, 9) = (/ & - & 1.74004e-06 , 1.70661e-06 , 1.67383e-06 , 1.64167e-06 , 1.61014e-06 , & - & 1.57921e-06 , 1.54887e-06 , 1.51912e-06 , 1.48994e-06 , 1.46132e-06 , & - & 1.43325e-06 , 1.40572e-06 , 1.37871e-06 , 1.35223e-06 , 1.32625e-06 , & - & 1.30078e-06 , 1.27579e-06 , 1.25128e-06 , 1.22725e-06 /) - kao_mn2( 6, :, 9) = (/ & - & 1.74004e-06 , 1.70661e-06 , 1.67383e-06 , 1.64167e-06 , 1.61014e-06 , & - & 1.57921e-06 , 1.54887e-06 , 1.51912e-06 , 1.48994e-06 , 1.46132e-06 , & - & 1.43325e-06 , 1.40572e-06 , 1.37871e-06 , 1.35223e-06 , 1.32625e-06 , & - & 1.30078e-06 , 1.27579e-06 , 1.25128e-06 , 1.22725e-06 /) - kao_mn2( 7, :, 9) = (/ & - & 1.74004e-06 , 1.70661e-06 , 1.67383e-06 , 1.64167e-06 , 1.61014e-06 , & - & 1.57921e-06 , 1.54887e-06 , 1.51912e-06 , 1.48994e-06 , 1.46132e-06 , & - & 1.43325e-06 , 1.40572e-06 , 1.37871e-06 , 1.35223e-06 , 1.32625e-06 , & - & 1.30078e-06 , 1.27579e-06 , 1.25128e-06 , 1.22725e-06 /) - kao_mn2( 8, :, 9) = (/ & - & 1.08654e-06 , 1.09039e-06 , 1.09425e-06 , 1.09812e-06 , 1.10201e-06 , & - & 1.10592e-06 , 1.10983e-06 , 1.11376e-06 , 1.11771e-06 , 1.12167e-06 , & - & 1.12564e-06 , 1.12962e-06 , 1.13363e-06 , 1.13764e-06 , 1.14167e-06 , & - & 1.14571e-06 , 1.14977e-06 , 1.15384e-06 , 1.15793e-06 /) - kao_mn2( 9, :, 9) = (/ & - & 1.74382e-06 , 1.71092e-06 , 1.67864e-06 , 1.64697e-06 , 1.61589e-06 , & - & 1.58541e-06 , 1.55549e-06 , 1.52615e-06 , 1.49735e-06 , 1.46910e-06 , & - & 1.44138e-06 , 1.41419e-06 , 1.38751e-06 , 1.36133e-06 , 1.33564e-06 , & - & 1.31045e-06 , 1.28572e-06 , 1.26146e-06 , 1.23766e-06 /) - kao_mn2( 1, :,10) = (/ & - & 1.73703e-06 , 1.70249e-06 , 1.66863e-06 , 1.63544e-06 , 1.60292e-06 , & - & 1.57104e-06 , 1.53980e-06 , 1.50917e-06 , 1.47916e-06 , 1.44974e-06 , & - & 1.42091e-06 , 1.39265e-06 , 1.36496e-06 , 1.33781e-06 , 1.31121e-06 , & - & 1.28513e-06 , 1.25957e-06 , 1.23452e-06 , 1.20997e-06 /) - kao_mn2( 2, :,10) = (/ & - & 1.73703e-06 , 1.70249e-06 , 1.66863e-06 , 1.63544e-06 , 1.60292e-06 , & - & 1.57104e-06 , 1.53980e-06 , 1.50917e-06 , 1.47916e-06 , 1.44974e-06 , & - & 1.42091e-06 , 1.39265e-06 , 1.36496e-06 , 1.33781e-06 , 1.31121e-06 , & - & 1.28513e-06 , 1.25957e-06 , 1.23452e-06 , 1.20997e-06 /) - kao_mn2( 3, :,10) = (/ & - & 1.73703e-06 , 1.70249e-06 , 1.66863e-06 , 1.63544e-06 , 1.60292e-06 , & - & 1.57104e-06 , 1.53980e-06 , 1.50917e-06 , 1.47916e-06 , 1.44974e-06 , & - & 1.42091e-06 , 1.39265e-06 , 1.36496e-06 , 1.33781e-06 , 1.31121e-06 , & - & 1.28513e-06 , 1.25957e-06 , 1.23452e-06 , 1.20997e-06 /) - kao_mn2( 4, :,10) = (/ & - & 1.73703e-06 , 1.70249e-06 , 1.66863e-06 , 1.63544e-06 , 1.60292e-06 , & - & 1.57104e-06 , 1.53980e-06 , 1.50917e-06 , 1.47916e-06 , 1.44974e-06 , & - & 1.42091e-06 , 1.39265e-06 , 1.36496e-06 , 1.33781e-06 , 1.31121e-06 , & - & 1.28513e-06 , 1.25957e-06 , 1.23452e-06 , 1.20997e-06 /) - kao_mn2( 5, :,10) = (/ & - & 1.73703e-06 , 1.70249e-06 , 1.66863e-06 , 1.63544e-06 , 1.60292e-06 , & - & 1.57104e-06 , 1.53980e-06 , 1.50917e-06 , 1.47916e-06 , 1.44974e-06 , & - & 1.42091e-06 , 1.39265e-06 , 1.36496e-06 , 1.33781e-06 , 1.31121e-06 , & - & 1.28513e-06 , 1.25957e-06 , 1.23452e-06 , 1.20997e-06 /) - kao_mn2( 6, :,10) = (/ & - & 1.73703e-06 , 1.70249e-06 , 1.66863e-06 , 1.63544e-06 , 1.60292e-06 , & - & 1.57104e-06 , 1.53980e-06 , 1.50917e-06 , 1.47916e-06 , 1.44974e-06 , & - & 1.42091e-06 , 1.39265e-06 , 1.36496e-06 , 1.33781e-06 , 1.31121e-06 , & - & 1.28513e-06 , 1.25957e-06 , 1.23452e-06 , 1.20997e-06 /) - kao_mn2( 7, :,10) = (/ & - & 1.73703e-06 , 1.70249e-06 , 1.66863e-06 , 1.63544e-06 , 1.60292e-06 , & - & 1.57104e-06 , 1.53980e-06 , 1.50917e-06 , 1.47916e-06 , 1.44974e-06 , & - & 1.42091e-06 , 1.39265e-06 , 1.36496e-06 , 1.33781e-06 , 1.31121e-06 , & - & 1.28513e-06 , 1.25957e-06 , 1.23452e-06 , 1.20997e-06 /) - kao_mn2( 8, :,10) = (/ & - & 1.73703e-06 , 1.70249e-06 , 1.66863e-06 , 1.63544e-06 , 1.60292e-06 , & - & 1.57104e-06 , 1.53980e-06 , 1.50917e-06 , 1.47916e-06 , 1.44974e-06 , & - & 1.42091e-06 , 1.39265e-06 , 1.36496e-06 , 1.33781e-06 , 1.31121e-06 , & - & 1.28513e-06 , 1.25957e-06 , 1.23452e-06 , 1.20997e-06 /) - kao_mn2( 9, :,10) = (/ & - & 1.82903e-06 , 1.78673e-06 , 1.74541e-06 , 1.70505e-06 , 1.66562e-06 , & - & 1.62710e-06 , 1.58947e-06 , 1.55271e-06 , 1.51680e-06 , 1.48172e-06 , & - & 1.44745e-06 , 1.41398e-06 , 1.38128e-06 , 1.34933e-06 , 1.31813e-06 , & - & 1.28765e-06 , 1.25787e-06 , 1.22878e-06 , 1.20036e-06 /) - kao_mn2( 1, :,11) = (/ & - & 1.73118e-06 , 1.69710e-06 , 1.66370e-06 , 1.63095e-06 , 1.59885e-06 , & - & 1.56737e-06 , 1.53652e-06 , 1.50628e-06 , 1.47663e-06 , 1.44756e-06 , & - & 1.41907e-06 , 1.39114e-06 , 1.36376e-06 , 1.33691e-06 , 1.31060e-06 , & - & 1.28480e-06 , 1.25951e-06 , 1.23472e-06 , 1.21041e-06 /) - kao_mn2( 2, :,11) = (/ & - & 1.73118e-06 , 1.69710e-06 , 1.66370e-06 , 1.63095e-06 , 1.59885e-06 , & - & 1.56737e-06 , 1.53652e-06 , 1.50628e-06 , 1.47663e-06 , 1.44756e-06 , & - & 1.41907e-06 , 1.39114e-06 , 1.36376e-06 , 1.33691e-06 , 1.31060e-06 , & - & 1.28480e-06 , 1.25951e-06 , 1.23472e-06 , 1.21041e-06 /) - kao_mn2( 3, :,11) = (/ & - & 1.73118e-06 , 1.69710e-06 , 1.66370e-06 , 1.63095e-06 , 1.59885e-06 , & - & 1.56737e-06 , 1.53652e-06 , 1.50628e-06 , 1.47663e-06 , 1.44756e-06 , & - & 1.41907e-06 , 1.39114e-06 , 1.36376e-06 , 1.33691e-06 , 1.31060e-06 , & - & 1.28480e-06 , 1.25951e-06 , 1.23472e-06 , 1.21041e-06 /) - kao_mn2( 4, :,11) = (/ & - & 1.73118e-06 , 1.69710e-06 , 1.66370e-06 , 1.63095e-06 , 1.59885e-06 , & - & 1.56737e-06 , 1.53652e-06 , 1.50628e-06 , 1.47663e-06 , 1.44756e-06 , & - & 1.41907e-06 , 1.39114e-06 , 1.36376e-06 , 1.33691e-06 , 1.31060e-06 , & - & 1.28480e-06 , 1.25951e-06 , 1.23472e-06 , 1.21041e-06 /) - kao_mn2( 5, :,11) = (/ & - & 1.73118e-06 , 1.69710e-06 , 1.66370e-06 , 1.63095e-06 , 1.59885e-06 , & - & 1.56737e-06 , 1.53652e-06 , 1.50628e-06 , 1.47663e-06 , 1.44756e-06 , & - & 1.41907e-06 , 1.39114e-06 , 1.36376e-06 , 1.33691e-06 , 1.31060e-06 , & - & 1.28480e-06 , 1.25951e-06 , 1.23472e-06 , 1.21041e-06 /) - kao_mn2( 6, :,11) = (/ & - & 1.73118e-06 , 1.69710e-06 , 1.66370e-06 , 1.63095e-06 , 1.59885e-06 , & - & 1.56737e-06 , 1.53652e-06 , 1.50628e-06 , 1.47663e-06 , 1.44756e-06 , & - & 1.41907e-06 , 1.39114e-06 , 1.36376e-06 , 1.33691e-06 , 1.31060e-06 , & - & 1.28480e-06 , 1.25951e-06 , 1.23472e-06 , 1.21041e-06 /) - kao_mn2( 7, :,11) = (/ & - & 1.73118e-06 , 1.69710e-06 , 1.66370e-06 , 1.63095e-06 , 1.59885e-06 , & - & 1.56737e-06 , 1.53652e-06 , 1.50628e-06 , 1.47663e-06 , 1.44756e-06 , & - & 1.41907e-06 , 1.39114e-06 , 1.36376e-06 , 1.33691e-06 , 1.31060e-06 , & - & 1.28480e-06 , 1.25951e-06 , 1.23472e-06 , 1.21041e-06 /) - kao_mn2( 8, :,11) = (/ & - & 1.73118e-06 , 1.69710e-06 , 1.66370e-06 , 1.63095e-06 , 1.59885e-06 , & - & 1.56737e-06 , 1.53652e-06 , 1.50628e-06 , 1.47663e-06 , 1.44756e-06 , & - & 1.41907e-06 , 1.39114e-06 , 1.36376e-06 , 1.33691e-06 , 1.31060e-06 , & - & 1.28480e-06 , 1.25951e-06 , 1.23472e-06 , 1.21041e-06 /) - kao_mn2( 9, :,11) = (/ & - & 1.81037e-06 , 1.76948e-06 , 1.72952e-06 , 1.69045e-06 , 1.65228e-06 , & - & 1.61496e-06 , 1.57848e-06 , 1.54283e-06 , 1.50799e-06 , 1.47393e-06 , & - & 1.44064e-06 , 1.40810e-06 , 1.37630e-06 , 1.34522e-06 , 1.31484e-06 , & - & 1.28514e-06 , 1.25611e-06 , 1.22774e-06 , 1.20002e-06 /) - kao_mn2( 1, :,12) = (/ & - & 1.73338e-06 , 1.69915e-06 , 1.66560e-06 , 1.63271e-06 , 1.60046e-06 , & - & 1.56886e-06 , 1.53788e-06 , 1.50751e-06 , 1.47774e-06 , 1.44856e-06 , & - & 1.41995e-06 , 1.39191e-06 , 1.36442e-06 , 1.33748e-06 , 1.31107e-06 , & - & 1.28518e-06 , 1.25980e-06 , 1.23492e-06 , 1.21053e-06 /) - kao_mn2( 2, :,12) = (/ & - & 1.73338e-06 , 1.69915e-06 , 1.66560e-06 , 1.63271e-06 , 1.60046e-06 , & - & 1.56886e-06 , 1.53788e-06 , 1.50751e-06 , 1.47774e-06 , 1.44856e-06 , & - & 1.41995e-06 , 1.39191e-06 , 1.36442e-06 , 1.33748e-06 , 1.31107e-06 , & - & 1.28518e-06 , 1.25980e-06 , 1.23492e-06 , 1.21053e-06 /) - kao_mn2( 3, :,12) = (/ & - & 1.73338e-06 , 1.69915e-06 , 1.66560e-06 , 1.63271e-06 , 1.60046e-06 , & - & 1.56886e-06 , 1.53788e-06 , 1.50751e-06 , 1.47774e-06 , 1.44856e-06 , & - & 1.41995e-06 , 1.39191e-06 , 1.36442e-06 , 1.33748e-06 , 1.31107e-06 , & - & 1.28518e-06 , 1.25980e-06 , 1.23492e-06 , 1.21053e-06 /) - kao_mn2( 4, :,12) = (/ & - & 1.73338e-06 , 1.69915e-06 , 1.66560e-06 , 1.63271e-06 , 1.60046e-06 , & - & 1.56886e-06 , 1.53788e-06 , 1.50751e-06 , 1.47774e-06 , 1.44856e-06 , & - & 1.41995e-06 , 1.39191e-06 , 1.36442e-06 , 1.33748e-06 , 1.31107e-06 , & - & 1.28518e-06 , 1.25980e-06 , 1.23492e-06 , 1.21053e-06 /) - kao_mn2( 5, :,12) = (/ & - & 1.73338e-06 , 1.69915e-06 , 1.66560e-06 , 1.63271e-06 , 1.60046e-06 , & - & 1.56886e-06 , 1.53788e-06 , 1.50751e-06 , 1.47774e-06 , 1.44856e-06 , & - & 1.41995e-06 , 1.39191e-06 , 1.36442e-06 , 1.33748e-06 , 1.31107e-06 , & - & 1.28518e-06 , 1.25980e-06 , 1.23492e-06 , 1.21053e-06 /) - kao_mn2( 6, :,12) = (/ & - & 1.73338e-06 , 1.69915e-06 , 1.66560e-06 , 1.63271e-06 , 1.60046e-06 , & - & 1.56886e-06 , 1.53788e-06 , 1.50751e-06 , 1.47774e-06 , 1.44856e-06 , & - & 1.41995e-06 , 1.39191e-06 , 1.36442e-06 , 1.33748e-06 , 1.31107e-06 , & - & 1.28518e-06 , 1.25980e-06 , 1.23492e-06 , 1.21053e-06 /) - kao_mn2( 7, :,12) = (/ & - & 1.73338e-06 , 1.69915e-06 , 1.66560e-06 , 1.63271e-06 , 1.60046e-06 , & - & 1.56886e-06 , 1.53788e-06 , 1.50751e-06 , 1.47774e-06 , 1.44856e-06 , & - & 1.41995e-06 , 1.39191e-06 , 1.36442e-06 , 1.33748e-06 , 1.31107e-06 , & - & 1.28518e-06 , 1.25980e-06 , 1.23492e-06 , 1.21053e-06 /) - kao_mn2( 8, :,12) = (/ & - & 1.73338e-06 , 1.69915e-06 , 1.66560e-06 , 1.63271e-06 , 1.60046e-06 , & - & 1.56886e-06 , 1.53788e-06 , 1.50751e-06 , 1.47774e-06 , 1.44856e-06 , & - & 1.41995e-06 , 1.39191e-06 , 1.36442e-06 , 1.33748e-06 , 1.31107e-06 , & - & 1.28518e-06 , 1.25980e-06 , 1.23492e-06 , 1.21053e-06 /) - kao_mn2( 9, :,12) = (/ & - & 2.04857e-06 , 1.98353e-06 , 1.92055e-06 , 1.85957e-06 , 1.80053e-06 , & - & 1.74336e-06 , 1.68800e-06 , 1.63441e-06 , 1.58251e-06 , 1.53227e-06 , & - & 1.48362e-06 , 1.43651e-06 , 1.39090e-06 , 1.34674e-06 , 1.30398e-06 , & - & 1.26257e-06 , 1.22249e-06 , 1.18367e-06 , 1.14609e-06 /) - kao_mn2( 1, :,13) = (/ & - & 1.73511e-06 , 1.70072e-06 , 1.66702e-06 , 1.63398e-06 , 1.60159e-06 , & - & 1.56985e-06 , 1.53874e-06 , 1.50824e-06 , 1.47835e-06 , 1.44905e-06 , & - & 1.42033e-06 , 1.39218e-06 , 1.36459e-06 , 1.33755e-06 , 1.31104e-06 , & - & 1.28505e-06 , 1.25958e-06 , 1.23462e-06 , 1.21015e-06 /) - kao_mn2( 2, :,13) = (/ & - & 1.73511e-06 , 1.70072e-06 , 1.66702e-06 , 1.63398e-06 , 1.60159e-06 , & - & 1.56985e-06 , 1.53874e-06 , 1.50824e-06 , 1.47835e-06 , 1.44905e-06 , & - & 1.42033e-06 , 1.39218e-06 , 1.36459e-06 , 1.33755e-06 , 1.31104e-06 , & - & 1.28505e-06 , 1.25958e-06 , 1.23462e-06 , 1.21015e-06 /) - kao_mn2( 3, :,13) = (/ & - & 1.73511e-06 , 1.70072e-06 , 1.66702e-06 , 1.63398e-06 , 1.60159e-06 , & - & 1.56985e-06 , 1.53874e-06 , 1.50824e-06 , 1.47835e-06 , 1.44905e-06 , & - & 1.42033e-06 , 1.39218e-06 , 1.36459e-06 , 1.33755e-06 , 1.31104e-06 , & - & 1.28505e-06 , 1.25958e-06 , 1.23462e-06 , 1.21015e-06 /) - kao_mn2( 4, :,13) = (/ & - & 1.73511e-06 , 1.70072e-06 , 1.66702e-06 , 1.63398e-06 , 1.60159e-06 , & - & 1.56985e-06 , 1.53874e-06 , 1.50824e-06 , 1.47835e-06 , 1.44905e-06 , & - & 1.42033e-06 , 1.39218e-06 , 1.36459e-06 , 1.33755e-06 , 1.31104e-06 , & - & 1.28505e-06 , 1.25958e-06 , 1.23462e-06 , 1.21015e-06 /) - kao_mn2( 5, :,13) = (/ & - & 1.73511e-06 , 1.70072e-06 , 1.66702e-06 , 1.63398e-06 , 1.60159e-06 , & - & 1.56985e-06 , 1.53874e-06 , 1.50824e-06 , 1.47835e-06 , 1.44905e-06 , & - & 1.42033e-06 , 1.39218e-06 , 1.36459e-06 , 1.33755e-06 , 1.31104e-06 , & - & 1.28505e-06 , 1.25958e-06 , 1.23462e-06 , 1.21015e-06 /) - kao_mn2( 6, :,13) = (/ & - & 1.73511e-06 , 1.70072e-06 , 1.66702e-06 , 1.63398e-06 , 1.60159e-06 , & - & 1.56985e-06 , 1.53874e-06 , 1.50824e-06 , 1.47835e-06 , 1.44905e-06 , & - & 1.42033e-06 , 1.39218e-06 , 1.36459e-06 , 1.33755e-06 , 1.31104e-06 , & - & 1.28505e-06 , 1.25958e-06 , 1.23462e-06 , 1.21015e-06 /) - kao_mn2( 7, :,13) = (/ & - & 1.73511e-06 , 1.70072e-06 , 1.66702e-06 , 1.63398e-06 , 1.60159e-06 , & - & 1.56985e-06 , 1.53874e-06 , 1.50824e-06 , 1.47835e-06 , 1.44905e-06 , & - & 1.42033e-06 , 1.39218e-06 , 1.36459e-06 , 1.33755e-06 , 1.31104e-06 , & - & 1.28505e-06 , 1.25958e-06 , 1.23462e-06 , 1.21015e-06 /) - kao_mn2( 8, :,13) = (/ & - & 1.73511e-06 , 1.70072e-06 , 1.66702e-06 , 1.63398e-06 , 1.60159e-06 , & - & 1.56985e-06 , 1.53874e-06 , 1.50824e-06 , 1.47835e-06 , 1.44905e-06 , & - & 1.42033e-06 , 1.39218e-06 , 1.36459e-06 , 1.33755e-06 , 1.31104e-06 , & - & 1.28505e-06 , 1.25958e-06 , 1.23462e-06 , 1.21015e-06 /) - kao_mn2( 9, :,13) = (/ & - & 2.13403e-06 , 2.05906e-06 , 1.98673e-06 , 1.91694e-06 , 1.84961e-06 , & - & 1.78463e-06 , 1.72194e-06 , 1.66145e-06 , 1.60309e-06 , 1.54678e-06 , & - & 1.49244e-06 , 1.44002e-06 , 1.38943e-06 , 1.34062e-06 , 1.29353e-06 , & - & 1.24809e-06 , 1.20425e-06 , 1.16195e-06 , 1.12113e-06 /) - kao_mn2( 1, :,14) = (/ & - & 1.73398e-06 , 1.69941e-06 , 1.66553e-06 , 1.63233e-06 , 1.59979e-06 , & - & 1.56790e-06 , 1.53664e-06 , 1.50601e-06 , 1.47598e-06 , 1.44656e-06 , & - & 1.41772e-06 , 1.38946e-06 , 1.36176e-06 , 1.33461e-06 , 1.30801e-06 , & - & 1.28193e-06 , 1.25637e-06 , 1.23133e-06 , 1.20678e-06 /) - kao_mn2( 2, :,14) = (/ & - & 1.73398e-06 , 1.69941e-06 , 1.66553e-06 , 1.63233e-06 , 1.59979e-06 , & - & 1.56790e-06 , 1.53664e-06 , 1.50601e-06 , 1.47598e-06 , 1.44656e-06 , & - & 1.41772e-06 , 1.38946e-06 , 1.36176e-06 , 1.33461e-06 , 1.30801e-06 , & - & 1.28193e-06 , 1.25637e-06 , 1.23133e-06 , 1.20678e-06 /) - kao_mn2( 3, :,14) = (/ & - & 1.73398e-06 , 1.69941e-06 , 1.66553e-06 , 1.63233e-06 , 1.59979e-06 , & - & 1.56790e-06 , 1.53664e-06 , 1.50601e-06 , 1.47598e-06 , 1.44656e-06 , & - & 1.41772e-06 , 1.38946e-06 , 1.36176e-06 , 1.33461e-06 , 1.30801e-06 , & - & 1.28193e-06 , 1.25637e-06 , 1.23133e-06 , 1.20678e-06 /) - kao_mn2( 4, :,14) = (/ & - & 1.73398e-06 , 1.69941e-06 , 1.66553e-06 , 1.63233e-06 , 1.59979e-06 , & - & 1.56790e-06 , 1.53664e-06 , 1.50601e-06 , 1.47598e-06 , 1.44656e-06 , & - & 1.41772e-06 , 1.38946e-06 , 1.36176e-06 , 1.33461e-06 , 1.30801e-06 , & - & 1.28193e-06 , 1.25637e-06 , 1.23133e-06 , 1.20678e-06 /) - kao_mn2( 5, :,14) = (/ & - & 1.73398e-06 , 1.69941e-06 , 1.66553e-06 , 1.63233e-06 , 1.59979e-06 , & - & 1.56790e-06 , 1.53664e-06 , 1.50601e-06 , 1.47598e-06 , 1.44656e-06 , & - & 1.41772e-06 , 1.38946e-06 , 1.36176e-06 , 1.33461e-06 , 1.30801e-06 , & - & 1.28193e-06 , 1.25637e-06 , 1.23133e-06 , 1.20678e-06 /) - kao_mn2( 6, :,14) = (/ & - & 1.73398e-06 , 1.69941e-06 , 1.66553e-06 , 1.63233e-06 , 1.59979e-06 , & - & 1.56790e-06 , 1.53664e-06 , 1.50601e-06 , 1.47598e-06 , 1.44656e-06 , & - & 1.41772e-06 , 1.38946e-06 , 1.36176e-06 , 1.33461e-06 , 1.30801e-06 , & - & 1.28193e-06 , 1.25637e-06 , 1.23133e-06 , 1.20678e-06 /) - kao_mn2( 7, :,14) = (/ & - & 1.73398e-06 , 1.69941e-06 , 1.66553e-06 , 1.63233e-06 , 1.59979e-06 , & - & 1.56790e-06 , 1.53664e-06 , 1.50601e-06 , 1.47598e-06 , 1.44656e-06 , & - & 1.41772e-06 , 1.38946e-06 , 1.36176e-06 , 1.33461e-06 , 1.30801e-06 , & - & 1.28193e-06 , 1.25637e-06 , 1.23133e-06 , 1.20678e-06 /) - kao_mn2( 8, :,14) = (/ & - & 1.73398e-06 , 1.69941e-06 , 1.66553e-06 , 1.63233e-06 , 1.59979e-06 , & - & 1.56790e-06 , 1.53664e-06 , 1.50601e-06 , 1.47598e-06 , 1.44656e-06 , & - & 1.41772e-06 , 1.38946e-06 , 1.36176e-06 , 1.33461e-06 , 1.30801e-06 , & - & 1.28193e-06 , 1.25637e-06 , 1.23133e-06 , 1.20678e-06 /) - kao_mn2( 9, :,14) = (/ & - & 1.83423e-06 , 1.79123e-06 , 1.74923e-06 , 1.70821e-06 , 1.66816e-06 , & - & 1.62904e-06 , 1.59085e-06 , 1.55354e-06 , 1.51712e-06 , 1.48154e-06 , & - & 1.44681e-06 , 1.41288e-06 , 1.37975e-06 , 1.34740e-06 , 1.31581e-06 , & - & 1.28496e-06 , 1.25483e-06 , 1.22540e-06 , 1.19667e-06 /) - kao_mn2( 1, :,15) = (/ & - & 1.73231e-06 , 1.69765e-06 , 1.66368e-06 , 1.63039e-06 , 1.59776e-06 , & - & 1.56579e-06 , 1.53445e-06 , 1.50375e-06 , 1.47366e-06 , 1.44417e-06 , & - & 1.41527e-06 , 1.38695e-06 , 1.35919e-06 , 1.33199e-06 , 1.30534e-06 , & - & 1.27922e-06 , 1.25362e-06 , 1.22853e-06 , 1.20395e-06 /) - kao_mn2( 2, :,15) = (/ & - & 1.73231e-06 , 1.69765e-06 , 1.66368e-06 , 1.63039e-06 , 1.59776e-06 , & - & 1.56579e-06 , 1.53445e-06 , 1.50375e-06 , 1.47366e-06 , 1.44417e-06 , & - & 1.41527e-06 , 1.38695e-06 , 1.35919e-06 , 1.33199e-06 , 1.30534e-06 , & - & 1.27922e-06 , 1.25362e-06 , 1.22853e-06 , 1.20395e-06 /) - kao_mn2( 3, :,15) = (/ & - & 1.73231e-06 , 1.69765e-06 , 1.66368e-06 , 1.63039e-06 , 1.59776e-06 , & - & 1.56579e-06 , 1.53445e-06 , 1.50375e-06 , 1.47366e-06 , 1.44417e-06 , & - & 1.41527e-06 , 1.38695e-06 , 1.35919e-06 , 1.33199e-06 , 1.30534e-06 , & - & 1.27922e-06 , 1.25362e-06 , 1.22853e-06 , 1.20395e-06 /) - kao_mn2( 4, :,15) = (/ & - & 1.73231e-06 , 1.69765e-06 , 1.66368e-06 , 1.63039e-06 , 1.59776e-06 , & - & 1.56579e-06 , 1.53445e-06 , 1.50375e-06 , 1.47366e-06 , 1.44417e-06 , & - & 1.41527e-06 , 1.38695e-06 , 1.35919e-06 , 1.33199e-06 , 1.30534e-06 , & - & 1.27922e-06 , 1.25362e-06 , 1.22853e-06 , 1.20395e-06 /) - kao_mn2( 5, :,15) = (/ & - & 1.73231e-06 , 1.69765e-06 , 1.66368e-06 , 1.63039e-06 , 1.59776e-06 , & - & 1.56579e-06 , 1.53445e-06 , 1.50375e-06 , 1.47366e-06 , 1.44417e-06 , & - & 1.41527e-06 , 1.38695e-06 , 1.35919e-06 , 1.33199e-06 , 1.30534e-06 , & - & 1.27922e-06 , 1.25362e-06 , 1.22853e-06 , 1.20395e-06 /) - kao_mn2( 6, :,15) = (/ & - & 1.73231e-06 , 1.69765e-06 , 1.66368e-06 , 1.63039e-06 , 1.59776e-06 , & - & 1.56579e-06 , 1.53445e-06 , 1.50375e-06 , 1.47366e-06 , 1.44417e-06 , & - & 1.41527e-06 , 1.38695e-06 , 1.35919e-06 , 1.33199e-06 , 1.30534e-06 , & - & 1.27922e-06 , 1.25362e-06 , 1.22853e-06 , 1.20395e-06 /) - kao_mn2( 7, :,15) = (/ & - & 1.73231e-06 , 1.69765e-06 , 1.66368e-06 , 1.63039e-06 , 1.59776e-06 , & - & 1.56579e-06 , 1.53445e-06 , 1.50375e-06 , 1.47366e-06 , 1.44417e-06 , & - & 1.41527e-06 , 1.38695e-06 , 1.35919e-06 , 1.33199e-06 , 1.30534e-06 , & - & 1.27922e-06 , 1.25362e-06 , 1.22853e-06 , 1.20395e-06 /) - kao_mn2( 8, :,15) = (/ & - & 1.73231e-06 , 1.69765e-06 , 1.66368e-06 , 1.63039e-06 , 1.59776e-06 , & - & 1.56579e-06 , 1.53445e-06 , 1.50375e-06 , 1.47366e-06 , 1.44417e-06 , & - & 1.41527e-06 , 1.38695e-06 , 1.35919e-06 , 1.33199e-06 , 1.30534e-06 , & - & 1.27922e-06 , 1.25362e-06 , 1.22853e-06 , 1.20395e-06 /) - kao_mn2( 9, :,15) = (/ & - & 1.71602e-06 , 1.68499e-06 , 1.65452e-06 , 1.62461e-06 , 1.59523e-06 , & - & 1.56639e-06 , 1.53807e-06 , 1.51026e-06 , 1.48295e-06 , 1.45614e-06 , & - & 1.42981e-06 , 1.40395e-06 , 1.37857e-06 , 1.35364e-06 , 1.32917e-06 , & - & 1.30513e-06 , 1.28153e-06 , 1.25836e-06 , 1.23561e-06 /) - kao_mn2( 1, :,16) = (/ & - & 1.73310e-06 , 1.69826e-06 , 1.66413e-06 , 1.63069e-06 , 1.59791e-06 , & - & 1.56580e-06 , 1.53433e-06 , 1.50349e-06 , 1.47328e-06 , 1.44367e-06 , & - & 1.41465e-06 , 1.38622e-06 , 1.35836e-06 , 1.33106e-06 , 1.30431e-06 , & - & 1.27810e-06 , 1.25241e-06 , 1.22724e-06 , 1.20257e-06 /) - kao_mn2( 2, :,16) = (/ & - & 1.73310e-06 , 1.69826e-06 , 1.66413e-06 , 1.63069e-06 , 1.59791e-06 , & - & 1.56580e-06 , 1.53433e-06 , 1.50349e-06 , 1.47328e-06 , 1.44367e-06 , & - & 1.41465e-06 , 1.38622e-06 , 1.35836e-06 , 1.33106e-06 , 1.30431e-06 , & - & 1.27810e-06 , 1.25241e-06 , 1.22724e-06 , 1.20257e-06 /) - kao_mn2( 3, :,16) = (/ & - & 1.73310e-06 , 1.69826e-06 , 1.66413e-06 , 1.63069e-06 , 1.59791e-06 , & - & 1.56580e-06 , 1.53433e-06 , 1.50349e-06 , 1.47328e-06 , 1.44367e-06 , & - & 1.41465e-06 , 1.38622e-06 , 1.35836e-06 , 1.33106e-06 , 1.30431e-06 , & - & 1.27810e-06 , 1.25241e-06 , 1.22724e-06 , 1.20257e-06 /) - kao_mn2( 4, :,16) = (/ & - & 1.73310e-06 , 1.69826e-06 , 1.66413e-06 , 1.63069e-06 , 1.59791e-06 , & - & 1.56580e-06 , 1.53433e-06 , 1.50349e-06 , 1.47328e-06 , 1.44367e-06 , & - & 1.41465e-06 , 1.38622e-06 , 1.35836e-06 , 1.33106e-06 , 1.30431e-06 , & - & 1.27810e-06 , 1.25241e-06 , 1.22724e-06 , 1.20257e-06 /) - kao_mn2( 5, :,16) = (/ & - & 1.73310e-06 , 1.69826e-06 , 1.66413e-06 , 1.63069e-06 , 1.59791e-06 , & - & 1.56580e-06 , 1.53433e-06 , 1.50349e-06 , 1.47328e-06 , 1.44367e-06 , & - & 1.41465e-06 , 1.38622e-06 , 1.35836e-06 , 1.33106e-06 , 1.30431e-06 , & - & 1.27810e-06 , 1.25241e-06 , 1.22724e-06 , 1.20257e-06 /) - kao_mn2( 6, :,16) = (/ & - & 1.73310e-06 , 1.69826e-06 , 1.66413e-06 , 1.63069e-06 , 1.59791e-06 , & - & 1.56580e-06 , 1.53433e-06 , 1.50349e-06 , 1.47328e-06 , 1.44367e-06 , & - & 1.41465e-06 , 1.38622e-06 , 1.35836e-06 , 1.33106e-06 , 1.30431e-06 , & - & 1.27810e-06 , 1.25241e-06 , 1.22724e-06 , 1.20257e-06 /) - kao_mn2( 7, :,16) = (/ & - & 1.73310e-06 , 1.69826e-06 , 1.66413e-06 , 1.63069e-06 , 1.59791e-06 , & - & 1.56580e-06 , 1.53433e-06 , 1.50349e-06 , 1.47328e-06 , 1.44367e-06 , & - & 1.41465e-06 , 1.38622e-06 , 1.35836e-06 , 1.33106e-06 , 1.30431e-06 , & - & 1.27810e-06 , 1.25241e-06 , 1.22724e-06 , 1.20257e-06 /) - kao_mn2( 8, :,16) = (/ & - & 1.73310e-06 , 1.69826e-06 , 1.66413e-06 , 1.63069e-06 , 1.59791e-06 , & - & 1.56580e-06 , 1.53433e-06 , 1.50349e-06 , 1.47328e-06 , 1.44367e-06 , & - & 1.41465e-06 , 1.38622e-06 , 1.35836e-06 , 1.33106e-06 , 1.30431e-06 , & - & 1.27810e-06 , 1.25241e-06 , 1.22724e-06 , 1.20257e-06 /) - kao_mn2( 9, :,16) = (/ & - & 1.79375e-06 , 1.75599e-06 , 1.71903e-06 , 1.68284e-06 , 1.64741e-06 , & - & 1.61273e-06 , 1.57878e-06 , 1.54554e-06 , 1.51301e-06 , 1.48116e-06 , & - & 1.44998e-06 , 1.41945e-06 , 1.38957e-06 , 1.36032e-06 , 1.33168e-06 , & - & 1.30365e-06 , 1.27620e-06 , 1.24934e-06 , 1.22304e-06 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &1.1755e-06 ,6.5398e-07 ,4.3915e-07 ,3.0753e-07 ,1.9677e-07 ,1.4362e-07 , & - &9.4598e-08 ,1.1848e-07 ,1.4280e-07 ,1.5821e-07 ,1.5816e-07 ,1.5769e-07 , & - &1.5844e-07 ,1.6016e-07 ,1.6232e-07 ,1.6320e-07 /) - forrefo(2,:) = (/ & - &1.0703e-06 ,6.2783e-07 ,4.7122e-07 ,2.6300e-07 ,1.8538e-07 ,1.5076e-07 , & - &1.9474e-07 ,2.9543e-07 ,2.0093e-07 ,1.5819e-07 ,1.5826e-07 ,1.5737e-07 , & - &1.5751e-07 ,1.5910e-07 ,1.6181e-07 ,1.6320e-07 /) - forrefo(3,:) = (/ & - &1.0470e-06 ,5.8184e-07 ,4.8218e-07 ,2.7771e-07 ,1.9036e-07 ,1.5737e-07 , & - &1.8633e-07 ,2.5754e-07 ,4.0647e-07 ,1.5839e-07 ,1.5914e-07 ,1.5788e-07 , & - &1.5731e-07 ,1.5836e-07 ,1.6103e-07 ,1.6320e-07 /) - forrefo(4,:) = (/ & - &1.3891e-06 ,5.4901e-07 ,2.8850e-07 ,1.9176e-07 ,1.4549e-07 ,1.3603e-07 , & - &1.7472e-07 ,2.9796e-07 ,3.2452e-07 ,2.5231e-07 ,2.8195e-07 ,1.5527e-07 , & - &1.5507e-07 ,1.5442e-07 ,1.5275e-07 ,1.6057e-07 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 1.73980e-03 , 1.41928e-03 , 1.15780e-03 , 9.44496e-04 , 7.70490e-04 , & - & 6.28541e-04 , 5.12744e-04 , 4.18280e-04 , 3.41219e-04 , 2.78356e-04 /) - selfrefo(:, 2) = (/ & - & 1.84082e-03 , 1.50228e-03 , 1.22600e-03 , 1.00053e-03 , 8.16525e-04 , & - & 6.66359e-04 , 5.43811e-04 , 4.43800e-04 , 3.62182e-04 , 2.95574e-04 /) - selfrefo(:, 3) = (/ & - & 1.92957e-03 , 1.57727e-03 , 1.28930e-03 , 1.05390e-03 , 8.61484e-04 , & - & 7.04197e-04 , 5.75627e-04 , 4.70530e-04 , 3.84622e-04 , 3.14399e-04 /) - selfrefo(:, 4) = (/ & - & 2.12958e-03 , 1.73572e-03 , 1.41470e-03 , 1.15305e-03 , 9.39798e-04 , & - & 7.65984e-04 , 6.24317e-04 , 5.08850e-04 , 4.14739e-04 , 3.38034e-04 /) - selfrefo(:, 5) = (/ & - & 2.30636e-03 , 1.88401e-03 , 1.53900e-03 , 1.25717e-03 , 1.02695e-03 , & - & 8.38891e-04 , 6.85270e-04 , 5.59780e-04 , 4.57270e-04 , 3.73533e-04 /) - selfrefo(:, 6) = (/ & - & 2.47824e-03 , 2.03278e-03 , 1.66740e-03 , 1.36769e-03 , 1.12185e-03 , & - & 9.20206e-04 , 7.54803e-04 , 6.19130e-04 , 5.07844e-04 , 4.16561e-04 /) - selfrefo(:, 7) = (/ & - & 2.54196e-03 , 2.10768e-03 , 1.74760e-03 , 1.44904e-03 , 1.20148e-03 , & - & 9.96215e-04 , 8.26019e-04 , 6.84900e-04 , 5.67890e-04 , 4.70870e-04 /) - selfrefo(:, 8) = (/ & - & 2.52650e-03 , 2.11773e-03 , 1.77510e-03 , 1.48790e-03 , 1.24717e-03 , & - & 1.04539e-03 , 8.76251e-04 , 7.34480e-04 , 6.15646e-04 , 5.16039e-04 /) - selfrefo(:, 9) = (/ & - & 2.82351e-03 , 2.34652e-03 , 1.95010e-03 , 1.62065e-03 , 1.34686e-03 , & - & 1.11933e-03 , 9.30232e-04 , 7.73080e-04 , 6.42477e-04 , 5.33939e-04 /) - selfrefo(:,10) = (/ & - & 2.98189e-03 , 2.46741e-03 , 2.04170e-03 , 1.68944e-03 , 1.39795e-03 , & - & 1.15676e-03 , 9.57176e-04 , 7.92030e-04 , 6.55377e-04 , 5.42302e-04 /) - selfrefo(:,11) = (/ & - & 2.98239e-03 , 2.46774e-03 , 2.04190e-03 , 1.68954e-03 , 1.39799e-03 , & - & 1.15675e-03 , 9.57137e-04 , 7.91970e-04 , 6.55305e-04 , 5.42224e-04 /) - selfrefo(:,12) = (/ & - & 2.97833e-03 , 2.46461e-03 , 2.03950e-03 , 1.68772e-03 , 1.39661e-03 , & - & 1.15571e-03 , 9.56370e-04 , 7.91410e-04 , 6.54903e-04 , 5.41942e-04 /) - selfrefo(:,13) = (/ & - & 2.97779e-03 , 2.46463e-03 , 2.03990e-03 , 1.68836e-03 , 1.39741e-03 , & - & 1.15659e-03 , 9.57278e-04 , 7.92310e-04 , 6.55771e-04 , 5.42762e-04 /) - selfrefo(:,14) = (/ & - & 2.98326e-03 , 2.46943e-03 , 2.04410e-03 , 1.69203e-03 , 1.40060e-03 , & - & 1.15936e-03 , 9.59673e-04 , 7.94380e-04 , 6.57557e-04 , 5.44301e-04 /) - selfrefo(:,15) = (/ & - & 2.99407e-03 , 2.47825e-03 , 2.05130e-03 , 1.69790e-03 , 1.40539e-03 , & - & 1.16327e-03 , 9.62862e-04 , 7.96980e-04 , 6.59676e-04 , 5.46028e-04 /) - selfrefo(:,16) = (/ & - & 3.00005e-03 , 2.48296e-03 , 2.05500e-03 , 1.70080e-03 , 1.40765e-03 , & - & 1.16503e-03 , 9.64224e-04 , 7.98030e-04 , 6.60481e-04 , 5.46641e-04 /) - - end subroutine lw_kgb15 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_16.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_16.F90 deleted file mode 100644 index 019d47b4d..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_16.F90 +++ /dev/null @@ -1,4820 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -! -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine lw_kgbnn -! ************************************************************************** -! RRTM Longwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original version: E. J. Mlawer, et al. -! Revision for GCMs: Michael J. Iacono; October, 2002 -! Revision for F90 formatting: Michael J. Iacono; June 2006 -! -! This file contains 16 subroutines that include the -! absorption coefficients and other data for each of the 16 longwave -! spectral bands used in RRTM. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_LW_INIT to reduce -! the total number of g-points from 256 to 140 for use in the GCM. -! ************************************************************************** - subroutine lw_kgb16 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrlw_kg16, only : fracrefao, fracrefbo, kao, kbo, selfrefo, forrefo - - implicit none - save - -! Planck fraction mapping level: P = 387.6100 mbar, T = 250.17 K - fracrefao(:, 1) = (/ & - & 1.1593e-01 ,2.3390e-01 ,1.9120e-01 ,1.3121e-01 ,1.0590e-01 ,8.4852e-02 , & - & 6.4168e-02 ,4.2537e-02 ,2.3220e-02 ,2.1767e-03 ,1.8203e-03 ,1.3724e-03 , & - & 9.5452e-04 ,5.5015e-04 ,1.9348e-04 ,2.7344e-05 /) - fracrefao(:, 2) = (/ & - & 2.8101e-01 ,1.9773e-01 ,1.4749e-01 ,1.1399e-01 ,8.8190e-02 ,7.0531e-02 , & - & 4.6356e-02 ,3.0774e-02 ,1.7332e-02 ,2.0054e-03 ,1.5950e-03 ,1.2760e-03 , & - & 9.5034e-04 ,5.4992e-04 ,1.9349e-04 ,2.7309e-05 /) - fracrefao(:, 3) = (/ & - & 2.9054e-01 ,2.1263e-01 ,1.4133e-01 ,1.1083e-01 ,8.5107e-02 ,6.5247e-02 , & - & 4.4542e-02 ,2.7205e-02 ,1.6495e-02 ,1.8453e-03 ,1.5222e-03 ,1.1884e-03 , & - & 8.1094e-04 ,4.9173e-04 ,1.9344e-04 ,2.7286e-05 /) - fracrefao(:, 4) = (/ & - & 2.9641e-01 ,2.1738e-01 ,1.4228e-01 ,1.0830e-01 ,8.2837e-02 ,6.1359e-02 , & - & 4.4683e-02 ,2.5027e-02 ,1.6057e-02 ,1.7558e-03 ,1.4193e-03 ,1.0970e-03 , & - & 7.8281e-04 ,4.3260e-04 ,1.4837e-04 ,2.2958e-05 /) - fracrefao(:, 5) = (/ & - & 2.9553e-01 ,2.2139e-01 ,1.4816e-01 ,1.0601e-01 ,8.0048e-02 ,6.0082e-02 , & - & 4.3952e-02 ,2.3788e-02 ,1.5734e-02 ,1.6586e-03 ,1.3434e-03 ,1.0281e-03 , & - & 7.0256e-04 ,4.2577e-04 ,1.2803e-04 ,1.3315e-05 /) - fracrefao(:, 6) = (/ & - & 2.9313e-01 ,2.2476e-01 ,1.5470e-01 ,1.0322e-01 ,7.8904e-02 ,5.8175e-02 , & - & 4.3097e-02 ,2.3618e-02 ,1.5385e-02 ,1.5942e-03 ,1.2702e-03 ,9.5566e-04 , & - & 6.5421e-04 ,4.0165e-04 ,1.2805e-04 ,1.3355e-05 /) - fracrefao(:, 7) = (/ & - & 2.9069e-01 ,2.2823e-01 ,1.5995e-01 ,1.0170e-01 ,7.7287e-02 ,5.6780e-02 , & - & 4.1752e-02 ,2.3899e-02 ,1.4937e-02 ,1.4916e-03 ,1.1909e-03 ,9.1307e-04 , & - & 6.3518e-04 ,3.9866e-04 ,1.2805e-04 ,1.3298e-05 /) - fracrefao(:, 8) = (/ & - & 2.8446e-01 ,2.2651e-01 ,1.7133e-01 ,1.0299e-01 ,7.4231e-02 ,5.6031e-02 , & - & 4.1368e-02 ,2.4318e-02 ,1.4135e-02 ,1.4216e-03 ,1.1465e-03 ,8.9800e-04 , & - & 6.3553e-04 ,3.9536e-04 ,1.2749e-04 ,1.3298e-05 /) - fracrefao(:, 9) = (/ & - & 2.0568e-01 ,2.5049e-01 ,2.0568e-01 ,1.1781e-01 ,7.5579e-02 ,5.8136e-02 , & - & 4.2397e-02 ,2.6544e-02 ,1.3067e-02 ,1.4061e-03 ,1.1455e-03 ,8.9408e-04 , & - & 6.3652e-04 ,3.9450e-04 ,1.2841e-04 ,1.3315e-05 /) - -! Planck fraction mapping level : P=95.58350 mb, T = 215.70 K - fracrefbo(:) = (/ & - & 1.8111e-01 ,2.2612e-01 ,1.6226e-01 ,1.1872e-01 ,9.9048e-02 ,8.0390e-02 , & - & 6.1648e-02 ,4.1704e-02 ,2.2976e-02 ,1.9263e-03 ,1.4694e-03 ,1.1498e-03 , & - & 7.9906e-04 ,4.8310e-04 ,1.6188e-04 ,2.2651e-05 /) - -! The array KAO contains absorption coefs for each of the 16 g-intervals -! for a range of pressure levels > ~100mb, temperatures, and ratios -! of water vapor to CO2. The first index in the array, JS, runs -! from 1 to 10, and corresponds to different gas column amount ratios, -! as expressed through the binary species parameter eta, defined as -! eta = gas1/(gas1 + (rat) * gas2), where rat is the -! ratio of the reference MLS column amount value of gas 1 -! to that of gas2. -! The 2nd index in the array, JT, which runs from 1 to 5, corresponds -! to different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature -! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the reference pressure level (e.g. JP = 1 is for a -! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kao(:, 1, 1, 1) = (/ & - &2.6621e-07 ,6.0791e-06 ,9.3282e-06 ,1.2208e-05 ,1.4897e-05 ,1.7596e-05 , & - &2.0729e-05 ,2.6390e-05 ,2.1078e-05 /) - kao(:, 2, 1, 1) = (/ & - &2.8927e-07 ,6.1043e-06 ,9.4020e-06 ,1.2345e-05 ,1.5126e-05 ,1.7938e-05 , & - &2.1210e-05 ,2.6769e-05 ,2.1943e-05 /) - kao(:, 3, 1, 1) = (/ & - &3.1534e-07 ,6.1325e-06 ,9.4674e-06 ,1.2459e-05 ,1.5335e-05 ,1.8250e-05 , & - &2.1635e-05 ,2.7290e-05 ,2.2718e-05 /) - kao(:, 4, 1, 1) = (/ & - &3.3330e-07 ,6.1474e-06 ,9.4677e-06 ,1.2509e-05 ,1.5444e-05 ,1.8455e-05 , & - &2.1960e-05 ,2.7695e-05 ,2.3390e-05 /) - kao(:, 5, 1, 1) = (/ & - &3.5345e-07 ,6.1735e-06 ,9.4652e-06 ,1.2538e-05 ,1.5529e-05 ,1.8608e-05 , & - &2.2197e-05 ,2.8038e-05 ,2.3906e-05 /) - kao(:, 1, 2, 1) = (/ & - &3.4774e-07 ,6.3116e-06 ,9.2039e-06 ,1.1662e-05 ,1.3842e-05 ,1.5878e-05 , & - &1.7925e-05 ,2.1213e-05 ,1.7372e-05 /) - kao(:, 2, 2, 1) = (/ & - &3.7649e-07 ,6.3618e-06 ,9.2771e-06 ,1.1777e-05 ,1.4038e-05 ,1.6170e-05 , & - &1.8345e-05 ,2.1716e-05 ,1.8135e-05 /) - kao(:, 3, 2, 1) = (/ & - &4.1206e-07 ,6.4231e-06 ,9.3322e-06 ,1.1891e-05 ,1.4202e-05 ,1.6428e-05 , & - &1.8750e-05 ,2.2212e-05 ,1.8847e-05 /) - kao(:, 4, 2, 1) = (/ & - &4.4004e-07 ,6.4581e-06 ,9.3579e-06 ,1.1962e-05 ,1.4316e-05 ,1.6601e-05 , & - &1.9025e-05 ,2.2633e-05 ,1.9458e-05 /) - kao(:, 5, 2, 1) = (/ & - &4.6078e-07 ,6.4755e-06 ,9.3704e-06 ,1.1973e-05 ,1.4371e-05 ,1.6702e-05 , & - &1.9215e-05 ,2.2953e-05 ,1.9948e-05 /) - kao(:, 1, 3, 1) = (/ & - &5.9817e-07 ,7.8428e-06 ,1.0496e-05 ,1.2549e-05 ,1.4230e-05 ,1.5565e-05 , & - &1.6588e-05 ,1.7671e-05 ,1.4245e-05 /) - kao(:, 2, 3, 1) = (/ & - &6.5182e-07 ,7.9343e-06 ,1.0585e-05 ,1.2668e-05 ,1.4392e-05 ,1.5789e-05 , & - &1.6949e-05 ,1.8125e-05 ,1.4996e-05 /) - kao(:, 3, 3, 1) = (/ & - &7.0221e-07 ,8.0226e-06 ,1.0677e-05 ,1.2755e-05 ,1.4518e-05 ,1.5973e-05 , & - &1.7236e-05 ,1.8551e-05 ,1.5656e-05 /) - kao(:, 4, 3, 1) = (/ & - &7.6366e-07 ,8.1339e-06 ,1.0778e-05 ,1.2848e-05 ,1.4645e-05 ,1.6156e-05 , & - &1.7457e-05 ,1.8931e-05 ,1.6271e-05 /) - kao(:, 5, 3, 1) = (/ & - &7.9889e-07 ,8.1643e-06 ,1.0808e-05 ,1.2886e-05 ,1.4686e-05 ,1.6241e-05 , & - &1.7601e-05 ,1.9193e-05 ,1.6837e-05 /) - kao(:, 1, 4, 1) = (/ & - &1.0320e-06 ,1.0378e-05 ,1.2935e-05 ,1.4632e-05 ,1.5802e-05 ,1.6452e-05 , & - &1.6586e-05 ,1.6155e-05 ,1.2287e-05 /) - kao(:, 2, 4, 1) = (/ & - &1.1305e-06 ,1.0573e-05 ,1.3130e-05 ,1.4798e-05 ,1.5980e-05 ,1.6653e-05 , & - &1.6853e-05 ,1.6526e-05 ,1.3070e-05 /) - kao(:, 3, 4, 1) = (/ & - &1.2198e-06 ,1.0772e-05 ,1.3274e-05 ,1.4971e-05 ,1.6111e-05 ,1.6834e-05 , & - &1.7084e-05 ,1.6873e-05 ,1.3795e-05 /) - kao(:, 4, 4, 1) = (/ & - &1.3096e-06 ,1.0937e-05 ,1.3422e-05 ,1.5096e-05 ,1.6233e-05 ,1.6971e-05 , & - &1.7284e-05 ,1.7149e-05 ,1.4420e-05 /) - kao(:, 5, 4, 1) = (/ & - &1.4155e-06 ,1.1094e-05 ,1.3596e-05 ,1.5273e-05 ,1.6388e-05 ,1.7112e-05 , & - &1.7471e-05 ,1.7381e-05 ,1.4960e-05 /) - kao(:, 1, 5, 1) = (/ & - &1.6279e-06 ,1.3142e-05 ,1.6056e-05 ,1.7394e-05 ,1.8017e-05 ,1.8011e-05 , & - &1.7308e-05 ,1.5625e-05 ,1.1008e-05 /) - kao(:, 2, 5, 1) = (/ & - &1.7835e-06 ,1.3457e-05 ,1.6348e-05 ,1.7668e-05 ,1.8277e-05 ,1.8261e-05 , & - &1.7567e-05 ,1.5970e-05 ,1.1698e-05 /) - kao(:, 3, 5, 1) = (/ & - &1.9402e-06 ,1.3791e-05 ,1.6620e-05 ,1.7922e-05 ,1.8515e-05 ,1.8474e-05 , & - &1.7802e-05 ,1.6252e-05 ,1.2372e-05 /) - kao(:, 4, 5, 1) = (/ & - &2.0835e-06 ,1.4086e-05 ,1.6875e-05 ,1.8160e-05 ,1.8703e-05 ,1.8665e-05 , & - &1.7992e-05 ,1.6486e-05 ,1.3071e-05 /) - kao(:, 5, 5, 1) = (/ & - &2.2582e-06 ,1.4511e-05 ,1.7205e-05 ,1.8422e-05 ,1.8984e-05 ,1.8898e-05 , & - &1.8217e-05 ,1.6724e-05 ,1.3787e-05 /) - kao(:, 1, 6, 1) = (/ & - &2.4034e-06 ,1.6823e-05 ,1.9391e-05 ,2.0723e-05 ,2.0772e-05 ,2.0043e-05 , & - &1.8498e-05 ,1.5704e-05 ,9.8836e-06 /) - kao(:, 2, 6, 1) = (/ & - &2.6386e-06 ,1.7226e-05 ,1.9692e-05 ,2.1124e-05 ,2.1126e-05 ,2.0392e-05 , & - &1.8810e-05 ,1.6034e-05 ,1.0751e-05 /) - kao(:, 3, 6, 1) = (/ & - &2.8660e-06 ,1.7674e-05 ,2.0029e-05 ,2.1524e-05 ,2.1484e-05 ,2.0719e-05 , & - &1.9071e-05 ,1.6298e-05 ,1.1450e-05 /) - kao(:, 4, 6, 1) = (/ & - &3.0844e-06 ,1.8072e-05 ,2.0407e-05 ,2.1899e-05 ,2.1788e-05 ,2.0987e-05 , & - &1.9304e-05 ,1.6540e-05 ,1.2182e-05 /) - kao(:, 5, 6, 1) = (/ & - &3.2920e-06 ,1.8533e-05 ,2.0800e-05 ,2.2106e-05 ,2.2044e-05 ,2.1223e-05 , & - &1.9506e-05 ,1.6741e-05 ,1.2836e-05 /) - kao(:, 1, 7, 1) = (/ & - &3.8221e-06 ,2.2204e-05 ,2.4808e-05 ,2.5531e-05 ,2.5616e-05 ,2.3917e-05 , & - &2.1120e-05 ,1.6870e-05 ,8.7171e-06 /) - kao(:, 2, 7, 1) = (/ & - &4.1828e-06 ,2.2870e-05 ,2.5558e-05 ,2.5953e-05 ,2.6151e-05 ,2.4347e-05 , & - &2.1524e-05 ,1.7202e-05 ,9.2028e-06 /) - kao(:, 3, 7, 1) = (/ & - &4.5497e-06 ,2.3564e-05 ,2.6164e-05 ,2.6493e-05 ,2.6591e-05 ,2.4767e-05 , & - &2.1899e-05 ,1.7498e-05 ,9.7937e-06 /) - kao(:, 4, 7, 1) = (/ & - &4.8742e-06 ,2.4270e-05 ,2.6708e-05 ,2.7099e-05 ,2.6759e-05 ,2.5177e-05 , & - &2.2242e-05 ,1.7759e-05 ,1.0449e-05 /) - kao(:, 5, 7, 1) = (/ & - &5.1866e-06 ,2.4962e-05 ,2.7348e-05 ,2.7664e-05 ,2.7129e-05 ,2.5537e-05 , & - &2.2515e-05 ,1.7998e-05 ,1.1128e-05 /) - kao(:, 1, 8, 1) = (/ & - &7.4211e-06 ,3.2998e-05 ,3.6610e-05 ,3.7073e-05 ,3.4983e-05 ,3.2511e-05 , & - &2.7821e-05 ,2.0603e-05 ,7.1809e-06 /) - kao(:, 2, 8, 1) = (/ & - &8.1099e-06 ,3.4342e-05 ,3.7801e-05 ,3.7976e-05 ,3.5797e-05 ,3.2823e-05 , & - &2.8347e-05 ,2.1030e-05 ,7.7735e-06 /) - kao(:, 3, 8, 1) = (/ & - &8.7992e-06 ,3.5880e-05 ,3.8837e-05 ,3.8975e-05 ,3.6756e-05 ,3.3300e-05 , & - &2.8882e-05 ,2.1428e-05 ,8.4180e-06 /) - kao(:, 4, 8, 1) = (/ & - &9.4486e-06 ,3.7431e-05 ,3.9883e-05 ,3.9775e-05 ,3.7762e-05 ,3.3901e-05 , & - &2.9403e-05 ,2.1792e-05 ,9.1057e-06 /) - kao(:, 5, 8, 1) = (/ & - &1.0041e-05 ,3.9014e-05 ,4.1019e-05 ,4.0539e-05 ,3.8447e-05 ,3.4543e-05 , & - &2.9823e-05 ,2.2110e-05 ,9.8280e-06 /) - kao(:, 1, 9, 1) = (/ & - &2.6945e-05 ,8.1804e-05 ,8.6984e-05 ,8.4462e-05 ,7.8660e-05 ,6.9398e-05 , & - &5.6216e-05 ,3.9134e-05 ,6.0831e-06 /) - kao(:, 2, 9, 1) = (/ & - &2.9562e-05 ,8.5456e-05 ,9.1284e-05 ,8.7620e-05 ,8.1311e-05 ,7.1570e-05 , & - &5.7999e-05 ,3.9483e-05 ,6.6855e-06 /) - kao(:, 3, 9, 1) = (/ & - &3.2110e-05 ,8.8183e-05 ,9.6256e-05 ,9.1033e-05 ,8.3882e-05 ,7.3603e-05 , & - &5.9334e-05 ,4.0067e-05 ,7.3573e-06 /) - kao(:, 4, 9, 1) = (/ & - &3.4494e-05 ,9.0981e-05 ,1.0082e-04 ,9.4837e-05 ,8.6631e-05 ,7.5471e-05 , & - &6.0778e-05 ,4.0870e-05 ,8.0874e-06 /) - kao(:, 5, 9, 1) = (/ & - &3.6729e-05 ,9.3406e-05 ,1.0411e-04 ,9.8963e-05 ,8.9287e-05 ,7.7185e-05 , & - &6.1987e-05 ,4.1723e-05 ,8.8598e-06 /) - kao(:, 1,10, 1) = (/ & - &1.1063e-04 ,2.0470e-04 ,2.2594e-04 ,2.2784e-04 ,2.0878e-04 ,1.7781e-04 , & - &1.3876e-04 ,9.0190e-05 ,6.6238e-06 /) - kao(:, 2,10, 1) = (/ & - &1.2128e-04 ,2.1612e-04 ,2.3657e-04 ,2.3782e-04 ,2.2024e-04 ,1.8545e-04 , & - &1.4406e-04 ,9.3147e-05 ,7.2888e-06 /) - kao(:, 3,10, 1) = (/ & - &1.3155e-04 ,2.2685e-04 ,2.4613e-04 ,2.4648e-04 ,2.3100e-04 ,1.9523e-04 , & - &1.4909e-04 ,9.5827e-05 ,7.7784e-06 /) - kao(:, 4,10, 1) = (/ & - &1.4108e-04 ,2.3656e-04 ,2.5475e-04 ,2.5395e-04 ,2.3879e-04 ,2.0427e-04 , & - &1.5511e-04 ,9.8368e-05 ,8.3069e-06 /) - kao(:, 5,10, 1) = (/ & - &1.4988e-04 ,2.4526e-04 ,2.6296e-04 ,2.6141e-04 ,2.4593e-04 ,2.1313e-04 , & - &1.6065e-04 ,1.0083e-04 ,8.9709e-06 /) - kao(:, 1,11, 1) = (/ & - &1.6397e-04 ,2.6056e-04 ,2.8031e-04 ,2.7866e-04 ,2.6081e-04 ,2.2383e-04 , & - &1.7351e-04 ,1.0962e-04 ,6.8264e-06 /) - kao(:, 2,11, 1) = (/ & - &1.7933e-04 ,2.7580e-04 ,2.9343e-04 ,2.9042e-04 ,2.7290e-04 ,2.3596e-04 , & - &1.8069e-04 ,1.1353e-04 ,7.5502e-06 /) - kao(:, 3,11, 1) = (/ & - &1.9324e-04 ,2.9031e-04 ,3.0629e-04 ,3.0108e-04 ,2.8182e-04 ,2.4730e-04 , & - &1.8878e-04 ,1.1713e-04 ,7.9027e-06 /) - kao(:, 4,11, 1) = (/ & - &2.0654e-04 ,3.0384e-04 ,3.1739e-04 ,3.1103e-04 ,2.9049e-04 ,2.5555e-04 , & - &1.9705e-04 ,1.2084e-04 ,8.5383e-06 /) - kao(:, 5,11, 1) = (/ & - &2.1856e-04 ,3.1574e-04 ,3.2801e-04 ,3.2141e-04 ,2.9895e-04 ,2.6285e-04 , & - &2.0518e-04 ,1.2441e-04 ,9.1615e-06 /) - kao(:, 1,12, 1) = (/ & - &1.7554e-04 ,2.6383e-04 ,2.7930e-04 ,2.7562e-04 ,2.5860e-04 ,2.2333e-04 , & - &1.7363e-04 ,1.0883e-04 ,5.7385e-06 /) - kao(:, 2,12, 1) = (/ & - &1.9241e-04 ,2.8007e-04 ,2.9311e-04 ,2.8776e-04 ,2.6852e-04 ,2.3492e-04 , & - &1.8150e-04 ,1.1266e-04 ,6.8723e-06 /) - kao(:, 3,12, 1) = (/ & - &2.0743e-04 ,2.9497e-04 ,3.0602e-04 ,2.9878e-04 ,2.7794e-04 ,2.4424e-04 , & - &1.8850e-04 ,1.1619e-04 ,7.4728e-06 /) - kao(:, 4,12, 1) = (/ & - &2.2033e-04 ,3.0884e-04 ,3.1746e-04 ,3.0874e-04 ,2.8629e-04 ,2.5127e-04 , & - &1.9681e-04 ,1.2004e-04 ,7.8331e-06 /) - kao(:, 5,12, 1) = (/ & - &2.3385e-04 ,3.2096e-04 ,3.2817e-04 ,3.1852e-04 ,2.9492e-04 ,2.5838e-04 , & - &2.0541e-04 ,1.2394e-04 ,8.4107e-06 /) - kao(:, 1,13, 1) = (/ & - &1.4984e-04 ,2.2462e-04 ,2.3735e-04 ,2.3350e-04 ,2.1852e-04 ,1.8858e-04 , & - &1.4655e-04 ,9.1919e-05 ,4.7944e-06 /) - kao(:, 2,13, 1) = (/ & - &1.6431e-04 ,2.3822e-04 ,2.4852e-04 ,2.4374e-04 ,2.2685e-04 ,1.9798e-04 , & - &1.5298e-04 ,9.5139e-05 ,5.7512e-06 /) - kao(:, 3,13, 1) = (/ & - &1.7714e-04 ,2.5149e-04 ,2.5950e-04 ,2.5249e-04 ,2.3438e-04 ,2.0591e-04 , & - &1.5891e-04 ,9.8151e-05 ,6.2816e-06 /) - kao(:, 4,13, 1) = (/ & - &1.8918e-04 ,2.6227e-04 ,2.6867e-04 ,2.6081e-04 ,2.4142e-04 ,2.1149e-04 , & - &1.6602e-04 ,1.0121e-04 ,6.5742e-06 /) - kao(:, 5,13, 1) = (/ & - &1.9984e-04 ,2.7202e-04 ,2.7776e-04 ,2.6884e-04 ,2.4875e-04 ,2.1766e-04 , & - &1.7300e-04 ,1.0449e-04 ,7.0482e-06 /) - kao(:, 1, 1, 2) = (/ & - &1.6519e-06 ,1.6500e-05 ,2.5026e-05 ,3.2759e-05 ,4.0208e-05 ,4.7995e-05 , & - &5.7218e-05 ,7.0450e-05 ,6.2071e-05 /) - kao(:, 2, 1, 2) = (/ & - &1.7427e-06 ,1.6766e-05 ,2.5514e-05 ,3.3509e-05 ,4.1226e-05 ,4.9256e-05 , & - &5.8782e-05 ,7.2775e-05 ,6.4227e-05 /) - kao(:, 3, 1, 2) = (/ & - &1.8342e-06 ,1.7039e-05 ,2.6012e-05 ,3.4217e-05 ,4.2214e-05 ,5.0504e-05 , & - &6.0325e-05 ,7.4727e-05 ,6.6376e-05 /) - kao(:, 4, 1, 2) = (/ & - &1.9060e-06 ,1.7243e-05 ,2.6493e-05 ,3.4981e-05 ,4.3216e-05 ,5.1749e-05 , & - &6.1747e-05 ,7.6716e-05 ,6.8482e-05 /) - kao(:, 5, 1, 2) = (/ & - &1.9873e-06 ,1.7462e-05 ,2.6980e-05 ,3.5686e-05 ,4.4149e-05 ,5.2919e-05 , & - &6.3181e-05 ,7.8643e-05 ,7.0600e-05 /) - kao(:, 1, 2, 2) = (/ & - &2.1537e-06 ,1.7686e-05 ,2.5477e-05 ,3.2084e-05 ,3.8037e-05 ,4.3791e-05 , & - &5.0118e-05 ,5.9749e-05 ,5.2659e-05 /) - kao(:, 2, 2, 2) = (/ & - &2.2967e-06 ,1.7950e-05 ,2.5979e-05 ,3.2808e-05 ,3.8966e-05 ,4.4991e-05 , & - &5.1587e-05 ,6.1578e-05 ,5.4559e-05 /) - kao(:, 3, 2, 2) = (/ & - &2.4223e-06 ,1.8241e-05 ,2.6472e-05 ,3.3476e-05 ,3.9818e-05 ,4.6056e-05 , & - &5.2876e-05 ,6.3201e-05 ,5.6392e-05 /) - kao(:, 4, 2, 2) = (/ & - &2.5452e-06 ,1.8478e-05 ,2.6920e-05 ,3.4112e-05 ,4.0714e-05 ,4.7174e-05 , & - &5.4253e-05 ,6.4831e-05 ,5.8337e-05 /) - kao(:, 5, 2, 2) = (/ & - &2.6442e-06 ,1.8696e-05 ,2.7330e-05 ,3.4790e-05 ,4.1641e-05 ,4.8326e-05 , & - &5.5567e-05 ,6.6400e-05 ,6.0213e-05 /) - kao(:, 1, 3, 2) = (/ & - &3.6781e-06 ,2.1946e-05 ,2.9916e-05 ,3.5559e-05 ,4.0089e-05 ,4.3735e-05 , & - &4.6884e-05 ,5.0541e-05 ,4.3984e-05 /) - kao(:, 2, 3, 2) = (/ & - &3.9348e-06 ,2.2135e-05 ,3.0461e-05 ,3.6306e-05 ,4.1005e-05 ,4.4863e-05 , & - &4.8174e-05 ,5.2207e-05 ,4.5557e-05 /) - kao(:, 3, 3, 2) = (/ & - &4.1798e-06 ,2.2403e-05 ,3.0963e-05 ,3.7011e-05 ,4.1865e-05 ,4.5861e-05 , & - &4.9330e-05 ,5.3612e-05 ,4.7151e-05 /) - kao(:, 4, 3, 2) = (/ & - &4.4176e-06 ,2.2879e-05 ,3.1514e-05 ,3.7717e-05 ,4.2706e-05 ,4.6836e-05 , & - &5.0501e-05 ,5.4941e-05 ,4.8733e-05 /) - kao(:, 5, 3, 2) = (/ & - &4.5930e-06 ,2.3205e-05 ,3.1822e-05 ,3.8274e-05 ,4.3472e-05 ,4.7803e-05 , & - &5.1670e-05 ,5.6326e-05 ,5.0305e-05 /) - kao(:, 1, 4, 2) = (/ & - &6.4358e-06 ,2.9282e-05 ,3.6943e-05 ,4.2596e-05 ,4.5632e-05 ,4.7319e-05 , & - &4.7633e-05 ,4.6727e-05 ,3.6481e-05 /) - kao(:, 2, 4, 2) = (/ & - &6.8669e-06 ,2.9817e-05 ,3.7275e-05 ,4.3436e-05 ,4.6592e-05 ,4.8428e-05 , & - &4.8930e-05 ,4.8153e-05 ,3.7877e-05 /) - kao(:, 3, 4, 2) = (/ & - &7.3364e-06 ,3.0199e-05 ,3.7809e-05 ,4.3827e-05 ,4.7553e-05 ,4.9496e-05 , & - &5.0112e-05 ,4.9423e-05 ,3.9242e-05 /) - kao(:, 4, 4, 2) = (/ & - &7.7623e-06 ,3.0806e-05 ,3.8513e-05 ,4.4137e-05 ,4.8467e-05 ,5.0544e-05 , & - &5.1178e-05 ,5.0627e-05 ,4.0689e-05 /) - kao(:, 5, 4, 2) = (/ & - &8.2042e-06 ,3.1502e-05 ,3.9409e-05 ,4.4849e-05 ,4.9430e-05 ,5.1580e-05 , & - &5.2292e-05 ,5.1835e-05 ,4.2152e-05 /) - kao(:, 1, 5, 2) = (/ & - &1.0402e-05 ,3.8540e-05 ,4.6318e-05 ,5.0020e-05 ,5.3672e-05 ,5.3150e-05 , & - &5.0796e-05 ,4.5989e-05 ,3.1155e-05 /) - kao(:, 2, 5, 2) = (/ & - &1.1085e-05 ,3.9241e-05 ,4.7238e-05 ,5.0920e-05 ,5.3596e-05 ,5.4294e-05 , & - &5.2010e-05 ,4.7261e-05 ,3.2691e-05 /) - kao(:, 3, 5, 2) = (/ & - &1.1793e-05 ,3.9912e-05 ,4.8110e-05 ,5.1979e-05 ,5.4361e-05 ,5.5470e-05 , & - &5.3221e-05 ,4.8498e-05 ,3.4229e-05 /) - kao(:, 4, 5, 2) = (/ & - &1.2505e-05 ,4.0706e-05 ,4.8865e-05 ,5.3127e-05 ,5.5321e-05 ,5.6646e-05 , & - &5.4402e-05 ,4.9696e-05 ,3.5620e-05 /) - kao(:, 5, 5, 2) = (/ & - &1.3238e-05 ,4.1575e-05 ,5.0157e-05 ,5.4552e-05 ,5.6339e-05 ,5.7036e-05 , & - &5.5608e-05 ,5.0863e-05 ,3.6859e-05 /) - kao(:, 1, 6, 2) = (/ & - &1.5685e-05 ,4.8160e-05 ,5.7576e-05 ,6.0816e-05 ,6.0795e-05 ,5.9888e-05 , & - &5.5641e-05 ,4.7076e-05 ,2.7125e-05 /) - kao(:, 2, 6, 2) = (/ & - &1.6746e-05 ,4.9438e-05 ,5.8728e-05 ,6.2091e-05 ,6.2171e-05 ,6.0759e-05 , & - &5.6976e-05 ,4.8239e-05 ,2.8411e-05 /) - kao(:, 3, 6, 2) = (/ & - &1.7756e-05 ,5.0622e-05 ,5.9836e-05 ,6.3203e-05 ,6.3569e-05 ,6.1458e-05 , & - &5.8288e-05 ,4.9429e-05 ,2.9823e-05 /) - kao(:, 4, 6, 2) = (/ & - &1.8829e-05 ,5.1859e-05 ,6.0806e-05 ,6.4509e-05 ,6.5119e-05 ,6.2540e-05 , & - &5.8809e-05 ,5.0652e-05 ,3.1085e-05 /) - kao(:, 5, 6, 2) = (/ & - &1.9856e-05 ,5.2975e-05 ,6.2034e-05 ,6.5989e-05 ,6.6522e-05 ,6.3894e-05 , & - &5.9538e-05 ,5.1853e-05 ,3.2453e-05 /) - kao(:, 1, 7, 2) = (/ & - &2.4856e-05 ,6.4218e-05 ,7.4055e-05 ,7.7980e-05 ,7.5911e-05 ,7.1057e-05 , & - &6.3849e-05 ,5.1579e-05 ,2.5153e-05 /) - kao(:, 2, 7, 2) = (/ & - &2.6608e-05 ,6.6305e-05 ,7.5730e-05 ,7.9533e-05 ,7.7616e-05 ,7.2887e-05 , & - &6.4610e-05 ,5.2907e-05 ,2.6881e-05 /) - kao(:, 3, 7, 2) = (/ & - &2.8288e-05 ,6.8291e-05 ,7.7618e-05 ,8.1185e-05 ,7.9322e-05 ,7.4738e-05 , & - &6.5685e-05 ,5.4242e-05 ,2.8455e-05 /) - kao(:, 4, 7, 2) = (/ & - &3.0045e-05 ,7.0265e-05 ,7.9536e-05 ,8.2799e-05 ,8.1209e-05 ,7.6305e-05 , & - &6.7186e-05 ,5.5601e-05 ,2.9886e-05 /) - kao(:, 5, 7, 2) = (/ & - &3.1755e-05 ,7.2003e-05 ,8.1183e-05 ,8.4367e-05 ,8.2925e-05 ,7.7935e-05 , & - &6.8892e-05 ,5.5914e-05 ,3.1298e-05 /) - kao(:, 1, 8, 2) = (/ & - &4.6308e-05 ,9.7055e-05 ,1.0843e-04 ,1.0990e-04 ,1.0798e-04 ,9.8279e-05 , & - &8.2910e-05 ,6.2908e-05 ,2.6615e-05 /) - kao(:, 2, 8, 2) = (/ & - &4.9990e-05 ,1.0048e-04 ,1.1189e-04 ,1.1329e-04 ,1.1038e-04 ,1.0108e-04 , & - &8.5246e-05 ,6.3800e-05 ,2.8720e-05 /) - kao(:, 3, 8, 2) = (/ & - &5.3406e-05 ,1.0353e-04 ,1.1536e-04 ,1.1646e-04 ,1.1270e-04 ,1.0316e-04 , & - &8.7419e-05 ,6.5105e-05 ,3.1055e-05 /) - kao(:, 4, 8, 2) = (/ & - &5.6634e-05 ,1.0658e-04 ,1.1884e-04 ,1.1968e-04 ,1.1489e-04 ,1.0536e-04 , & - &8.9223e-05 ,6.6739e-05 ,3.2877e-05 /) - kao(:, 5, 8, 2) = (/ & - &5.9979e-05 ,1.0942e-04 ,1.2217e-04 ,1.2302e-04 ,1.1760e-04 ,1.0763e-04 , & - &9.1750e-05 ,6.8524e-05 ,3.4517e-05 /) - kao(:, 1, 9, 2) = (/ & - &1.6574e-04 ,2.3675e-04 ,2.5425e-04 ,2.5367e-04 ,2.3792e-04 ,2.1003e-04 , & - &1.7177e-04 ,1.1936e-04 ,3.2512e-05 /) - kao(:, 2, 9, 2) = (/ & - &1.7873e-04 ,2.4657e-04 ,2.6302e-04 ,2.6299e-04 ,2.4679e-04 ,2.1704e-04 , & - &1.7629e-04 ,1.2297e-04 ,3.4956e-05 /) - kao(:, 3, 9, 2) = (/ & - &1.9203e-04 ,2.5827e-04 ,2.7104e-04 ,2.7133e-04 ,2.5463e-04 ,2.2408e-04 , & - &1.8102e-04 ,1.2579e-04 ,3.6986e-05 /) - kao(:, 4, 9, 2) = (/ & - &2.0457e-04 ,2.7047e-04 ,2.8009e-04 ,2.7979e-04 ,2.6236e-04 ,2.3082e-04 , & - &1.8610e-04 ,1.2867e-04 ,3.9201e-05 /) - kao(:, 5, 9, 2) = (/ & - &2.1654e-04 ,2.8311e-04 ,2.9060e-04 ,2.8789e-04 ,2.7019e-04 ,2.3757e-04 , & - &1.9128e-04 ,1.3157e-04 ,4.1162e-05 /) - kao(:, 1,10, 2) = (/ & - &6.9835e-04 ,7.7425e-04 ,7.4212e-04 ,6.8606e-04 ,6.1917e-04 ,5.3712e-04 , & - &4.2860e-04 ,2.7889e-04 ,3.4936e-05 /) - kao(:, 2,10, 2) = (/ & - &7.4976e-04 ,8.1587e-04 ,7.7895e-04 ,7.1764e-04 ,6.4311e-04 ,5.5763e-04 , & - &4.4404e-04 ,2.8872e-04 ,3.8434e-05 /) - kao(:, 3,10, 2) = (/ & - &8.0421e-04 ,8.6133e-04 ,8.1873e-04 ,7.5123e-04 ,6.6805e-04 ,5.7460e-04 , & - &4.5895e-04 ,2.9845e-04 ,4.2197e-05 /) - kao(:, 4,10, 2) = (/ & - &8.5541e-04 ,9.0651e-04 ,8.6169e-04 ,7.8842e-04 ,6.9649e-04 ,5.9375e-04 , & - &4.7283e-04 ,3.0790e-04 ,4.6109e-05 /) - kao(:, 5,10, 2) = (/ & - &9.0554e-04 ,9.5112e-04 ,9.0374e-04 ,8.2600e-04 ,7.2587e-04 ,6.1366e-04 , & - &4.8709e-04 ,3.1697e-04 ,4.9839e-05 /) - kao(:, 1,11, 2) = (/ & - &1.0573e-03 ,1.1046e-03 ,1.0331e-03 ,9.3641e-04 ,8.2149e-04 ,6.9220e-04 , & - &5.4269e-04 ,3.5137e-04 ,3.2311e-05 /) - kao(:, 2,11, 2) = (/ & - &1.1354e-03 ,1.1699e-03 ,1.0957e-03 ,9.8791e-04 ,8.6081e-04 ,7.2123e-04 , & - &5.6428e-04 ,3.6441e-04 ,3.5797e-05 /) - kao(:, 3,11, 2) = (/ & - &1.2157e-03 ,1.2370e-03 ,1.1565e-03 ,1.0415e-03 ,9.0546e-04 ,7.4993e-04 , & - &5.8345e-04 ,3.7768e-04 ,3.9564e-05 /) - kao(:, 4,11, 2) = (/ & - &1.2894e-03 ,1.3041e-03 ,1.2183e-03 ,1.0951e-03 ,9.4833e-04 ,7.8292e-04 , & - &6.0424e-04 ,3.8988e-04 ,4.3105e-05 /) - kao(:, 5,11, 2) = (/ & - &1.3602e-03 ,1.3714e-03 ,1.2775e-03 ,1.1464e-03 ,9.9122e-04 ,8.1361e-04 , & - &6.2375e-04 ,4.0138e-04 ,4.6502e-05 /) - kao(:, 1,12, 2) = (/ & - &1.1559e-03 ,1.1821e-03 ,1.1002e-03 ,9.8760e-04 ,8.5869e-04 ,7.1597e-04 , & - &5.5368e-04 ,3.5629e-04 ,2.8926e-05 /) - kao(:, 2,12, 2) = (/ & - &1.2387e-03 ,1.2530e-03 ,1.1642e-03 ,1.0435e-03 ,9.0422e-04 ,7.4802e-04 , & - &5.7617e-04 ,3.7052e-04 ,3.1589e-05 /) - kao(:, 3,12, 2) = (/ & - &1.3216e-03 ,1.3229e-03 ,1.2283e-03 ,1.1015e-03 ,9.5193e-04 ,7.8187e-04 , & - &5.9954e-04 ,3.8460e-04 ,3.4577e-05 /) - kao(:, 4,12, 2) = (/ & - &1.3983e-03 ,1.3942e-03 ,1.2931e-03 ,1.1587e-03 ,9.9709e-04 ,8.1633e-04 , & - &6.2085e-04 ,3.9719e-04 ,3.7982e-05 /) - kao(:, 5,12, 2) = (/ & - &1.4751e-03 ,1.4634e-03 ,1.3557e-03 ,1.2116e-03 ,1.0389e-03 ,8.4961e-04 , & - &6.4030e-04 ,4.0878e-04 ,4.0969e-05 /) - kao(:, 1,13, 2) = (/ & - &1.0038e-03 ,1.0239e-03 ,9.5244e-04 ,8.5524e-04 ,7.4348e-04 ,6.2001e-04 , & - &4.7929e-04 ,3.0767e-04 ,2.4695e-05 /) - kao(:, 2,13, 2) = (/ & - &1.0734e-03 ,1.0865e-03 ,1.0094e-03 ,9.0484e-04 ,7.8346e-04 ,6.4723e-04 , & - &4.9815e-04 ,3.1985e-04 ,2.6858e-05 /) - kao(:, 3,13, 2) = (/ & - &1.1391e-03 ,1.1434e-03 ,1.0621e-03 ,9.5239e-04 ,8.2130e-04 ,6.7579e-04 , & - &5.1796e-04 ,3.3140e-04 ,2.9385e-05 /) - kao(:, 4,13, 2) = (/ & - &1.2032e-03 ,1.2025e-03 ,1.1163e-03 ,9.9786e-04 ,8.5960e-04 ,7.0590e-04 , & - &5.3619e-04 ,3.4228e-04 ,3.2189e-05 /) - kao(:, 5,13, 2) = (/ & - &1.2690e-03 ,1.2617e-03 ,1.1676e-03 ,1.0418e-03 ,8.9504e-04 ,7.3293e-04 , & - &5.5106e-04 ,3.5176e-04 ,3.4791e-05 /) - kao(:, 1, 1, 3) = (/ & - &3.4054e-06 ,3.6169e-05 ,5.7781e-05 ,7.9702e-05 ,9.9450e-05 ,1.1908e-04 , & - &1.4021e-04 ,1.6904e-04 ,1.5965e-04 /) - kao(:, 2, 1, 3) = (/ & - &3.5406e-06 ,3.7213e-05 ,5.9148e-05 ,7.9930e-05 ,1.0281e-04 ,1.2326e-04 , & - &1.4516e-04 ,1.7473e-04 ,1.6518e-04 /) - kao(:, 3, 1, 3) = (/ & - &3.6962e-06 ,3.8392e-05 ,6.0628e-05 ,8.1614e-05 ,1.0332e-04 ,1.2805e-04 , & - &1.5083e-04 ,1.8127e-04 ,1.7179e-04 /) - kao(:, 4, 1, 3) = (/ & - &3.8150e-06 ,3.9649e-05 ,6.2587e-05 ,8.4276e-05 ,1.0580e-04 ,1.2950e-04 , & - &1.5730e-04 ,1.8884e-04 ,1.7648e-04 /) - kao(:, 5, 1, 3) = (/ & - &3.9425e-06 ,4.0895e-05 ,6.4628e-05 ,8.7067e-05 ,1.0971e-04 ,1.3287e-04 , & - &1.5979e-04 ,1.9707e-04 ,1.8056e-04 /) - kao(:, 1, 2, 3) = (/ & - &4.7659e-06 ,3.7672e-05 ,5.6772e-05 ,7.4964e-05 ,9.3354e-05 ,1.1163e-04 , & - &1.2805e-04 ,1.4897e-04 ,1.4118e-04 /) - kao(:, 2, 2, 3) = (/ & - &4.9285e-06 ,3.8459e-05 ,5.8331e-05 ,7.6310e-05 ,9.3490e-05 ,1.1292e-04 , & - &1.3218e-04 ,1.5402e-04 ,1.4609e-04 /) - kao(:, 3, 2, 3) = (/ & - &5.1241e-06 ,3.9569e-05 ,6.0060e-05 ,7.8269e-05 ,9.6361e-05 ,1.1403e-04 , & - &1.3730e-04 ,1.5986e-04 ,1.4966e-04 /) - kao(:, 4, 2, 3) = (/ & - &5.2863e-06 ,4.0536e-05 ,6.2133e-05 ,8.0760e-05 ,9.8821e-05 ,1.1724e-04 , & - &1.3737e-04 ,1.6656e-04 ,1.5208e-04 /) - kao(:, 5, 2, 3) = (/ & - &5.4310e-06 ,4.1540e-05 ,6.3967e-05 ,8.3433e-05 ,1.0178e-04 ,1.2080e-04 , & - &1.4142e-04 ,1.7063e-04 ,1.5631e-04 /) - kao(:, 1, 3, 3) = (/ & - &8.9186e-06 ,4.5407e-05 ,6.3526e-05 ,7.8550e-05 ,9.1618e-05 ,1.0496e-04 , & - &1.2158e-04 ,1.3284e-04 ,1.2340e-04 /) - kao(:, 2, 3, 3) = (/ & - &9.2443e-06 ,4.6508e-05 ,6.4784e-05 ,8.0506e-05 ,9.3613e-05 ,1.0642e-04 , & - &1.2005e-04 ,1.3711e-04 ,1.2632e-04 /) - kao(:, 3, 3, 3) = (/ & - &9.5550e-06 ,4.7677e-05 ,6.6548e-05 ,8.2736e-05 ,9.6188e-05 ,1.0877e-04 , & - &1.2156e-04 ,1.4196e-04 ,1.2696e-04 /) - kao(:, 4, 3, 3) = (/ & - &9.9051e-06 ,4.8778e-05 ,6.8112e-05 ,8.4988e-05 ,9.9246e-05 ,1.1223e-04 , & - &1.2463e-04 ,1.4159e-04 ,1.2947e-04 /) - kao(:, 5, 3, 3) = (/ & - &1.0162e-05 ,4.9942e-05 ,6.9999e-05 ,8.7421e-05 ,1.0238e-04 ,1.1576e-04 , & - &1.2839e-04 ,1.4461e-04 ,1.3351e-04 /) - kao(:, 1, 4, 3) = (/ & - &1.6753e-05 ,5.8237e-05 ,7.6272e-05 ,8.8204e-05 ,9.8762e-05 ,1.0698e-04 , & - &1.1349e-04 ,1.2379e-04 ,1.0697e-04 /) - kao(:, 2, 4, 3) = (/ & - &1.7441e-05 ,5.9610e-05 ,7.7972e-05 ,9.0358e-05 ,1.0097e-04 ,1.0919e-04 , & - &1.1491e-04 ,1.2294e-04 ,1.0628e-04 /) - kao(:, 3, 4, 3) = (/ & - &1.8082e-05 ,6.1175e-05 ,7.9988e-05 ,9.2267e-05 ,1.0332e-04 ,1.1211e-04 , & - &1.1776e-04 ,1.2346e-04 ,1.0729e-04 /) - kao(:, 4, 4, 3) = (/ & - &1.8658e-05 ,6.2685e-05 ,8.1816e-05 ,9.5481e-05 ,1.0615e-04 ,1.1496e-04 , & - &1.2097e-04 ,1.2608e-04 ,1.1024e-04 /) - kao(:, 5, 4, 3) = (/ & - &1.9340e-05 ,6.4673e-05 ,8.3970e-05 ,9.8481e-05 ,1.0873e-04 ,1.1832e-04 , & - &1.2499e-04 ,1.2979e-04 ,1.1362e-04 /) - kao(:, 1, 5, 3) = (/ & - &2.8523e-05 ,7.5471e-05 ,9.2112e-05 ,1.0383e-04 ,1.0948e-04 ,1.1290e-04 , & - &1.1403e-04 ,1.1277e-04 ,8.7972e-05 /) - kao(:, 2, 5, 3) = (/ & - &2.9775e-05 ,7.7638e-05 ,9.4306e-05 ,1.0580e-04 ,1.1226e-04 ,1.1540e-04 , & - &1.1664e-04 ,1.1378e-04 ,8.7781e-05 /) - kao(:, 3, 5, 3) = (/ & - &3.1032e-05 ,7.9995e-05 ,9.6878e-05 ,1.0807e-04 ,1.1530e-04 ,1.1833e-04 , & - &1.1968e-04 ,1.1643e-04 ,8.9738e-05 /) - kao(:, 4, 5, 3) = (/ & - &3.2122e-05 ,8.2389e-05 ,9.9387e-05 ,1.1070e-04 ,1.1849e-04 ,1.2073e-04 , & - &1.2266e-04 ,1.1931e-04 ,9.1761e-05 /) - kao(:, 5, 5, 3) = (/ & - &3.3412e-05 ,8.5294e-05 ,1.0214e-04 ,1.1395e-04 ,1.2220e-04 ,1.2513e-04 , & - &1.2589e-04 ,1.2317e-04 ,9.4332e-05 /) - kao(:, 1, 6, 3) = (/ & - &4.4933e-05 ,9.9737e-05 ,1.1255e-04 ,1.2118e-04 ,1.2554e-04 ,1.2364e-04 , & - &1.1791e-04 ,1.0852e-04 ,7.4135e-05 /) - kao(:, 2, 6, 3) = (/ & - &4.7071e-05 ,1.0236e-04 ,1.1567e-04 ,1.2397e-04 ,1.2766e-04 ,1.2658e-04 , & - &1.2060e-04 ,1.1056e-04 ,7.5435e-05 /) - kao(:, 3, 6, 3) = (/ & - &4.9151e-05 ,1.0514e-04 ,1.1921e-04 ,1.2711e-04 ,1.3040e-04 ,1.2992e-04 , & - &1.2331e-04 ,1.1371e-04 ,7.6849e-05 /) - kao(:, 4, 6, 3) = (/ & - &5.1024e-05 ,1.0807e-04 ,1.2306e-04 ,1.3034e-04 ,1.3370e-04 ,1.3344e-04 , & - &1.2682e-04 ,1.1612e-04 ,7.8630e-05 /) - kao(:, 5, 6, 3) = (/ & - &5.2854e-05 ,1.1144e-04 ,1.2670e-04 ,1.3361e-04 ,1.3751e-04 ,1.3677e-04 , & - &1.3113e-04 ,1.1903e-04 ,8.1063e-05 /) - kao(:, 1, 7, 3) = (/ & - &7.4131e-05 ,1.3771e-04 ,1.5135e-04 ,1.5339e-04 ,1.5199e-04 ,1.4542e-04 , & - &1.3212e-04 ,1.1157e-04 ,6.3305e-05 /) - kao(:, 2, 7, 3) = (/ & - &7.8122e-05 ,1.4080e-04 ,1.5542e-04 ,1.5789e-04 ,1.5525e-04 ,1.4808e-04 , & - &1.3571e-04 ,1.1400e-04 ,6.4305e-05 /) - kao(:, 3, 7, 3) = (/ & - &8.1792e-05 ,1.4429e-04 ,1.5980e-04 ,1.6259e-04 ,1.5930e-04 ,1.5173e-04 , & - &1.3906e-04 ,1.1682e-04 ,6.5778e-05 /) - kao(:, 4, 7, 3) = (/ & - &8.5102e-05 ,1.4854e-04 ,1.6447e-04 ,1.6719e-04 ,1.6365e-04 ,1.5623e-04 , & - &1.4249e-04 ,1.1910e-04 ,6.8216e-05 /) - kao(:, 5, 7, 3) = (/ & - &8.8343e-05 ,1.5302e-04 ,1.6961e-04 ,1.7246e-04 ,1.6859e-04 ,1.6045e-04 , & - &1.4567e-04 ,1.2333e-04 ,7.0812e-05 /) - kao(:, 1, 8, 3) = (/ & - &1.4407e-04 ,2.1929e-04 ,2.3408e-04 ,2.3175e-04 ,2.1747e-04 ,1.9684e-04 , & - &1.7181e-04 ,1.3227e-04 ,5.5189e-05 /) - kao(:, 2, 8, 3) = (/ & - &1.5218e-04 ,2.2535e-04 ,2.3947e-04 ,2.3742e-04 ,2.2354e-04 ,2.0175e-04 , & - &1.7481e-04 ,1.3567e-04 ,5.7508e-05 /) - kao(:, 3, 8, 3) = (/ & - &1.5981e-04 ,2.3168e-04 ,2.4529e-04 ,2.4373e-04 ,2.2990e-04 ,2.0756e-04 , & - &1.7860e-04 ,1.3869e-04 ,5.9914e-05 /) - kao(:, 4, 8, 3) = (/ & - &1.6710e-04 ,2.3880e-04 ,2.5211e-04 ,2.5020e-04 ,2.3684e-04 ,2.1373e-04 , & - &1.8326e-04 ,1.4183e-04 ,6.3164e-05 /) - kao(:, 5, 8, 3) = (/ & - &1.7380e-04 ,2.4599e-04 ,2.5929e-04 ,2.5766e-04 ,2.4400e-04 ,2.1994e-04 , & - &1.8763e-04 ,1.4519e-04 ,6.6105e-05 /) - kao(:, 1, 9, 3) = (/ & - &5.2627e-04 ,6.1534e-04 ,6.0941e-04 ,5.7646e-04 ,5.2415e-04 ,4.5407e-04 , & - &3.6135e-04 ,2.4279e-04 ,6.7993e-05 /) - kao(:, 2, 9, 3) = (/ & - &5.5864e-04 ,6.4193e-04 ,6.3124e-04 ,5.9396e-04 ,5.3793e-04 ,4.6535e-04 , & - &3.7115e-04 ,2.4862e-04 ,7.5217e-05 /) - kao(:, 3, 9, 3) = (/ & - &5.8842e-04 ,6.6676e-04 ,6.5277e-04 ,6.1271e-04 ,5.5239e-04 ,4.7636e-04 , & - &3.8150e-04 ,2.5543e-04 ,8.1799e-05 /) - kao(:, 4, 9, 3) = (/ & - &6.1785e-04 ,6.9166e-04 ,6.7437e-04 ,6.3091e-04 ,5.6815e-04 ,4.8941e-04 , & - &3.9213e-04 ,2.6284e-04 ,8.7598e-05 /) - kao(:, 5, 9, 3) = (/ & - &6.4520e-04 ,7.1602e-04 ,6.9663e-04 ,6.4913e-04 ,5.8418e-04 ,5.0317e-04 , & - &4.0334e-04 ,2.7060e-04 ,9.2801e-05 /) - kao(:, 1,10, 3) = (/ & - &2.1645e-03 ,2.1618e-03 ,2.0014e-03 ,1.7923e-03 ,1.5495e-03 ,1.2769e-03 , & - &9.6609e-04 ,6.0453e-04 ,1.0410e-04 /) - kao(:, 2,10, 3) = (/ & - &2.3095e-03 ,2.2836e-03 ,2.1017e-03 ,1.8749e-03 ,1.6151e-03 ,1.3240e-03 , & - &9.9711e-04 ,6.2160e-04 ,1.1408e-04 /) - kao(:, 3,10, 3) = (/ & - &2.4464e-03 ,2.3906e-03 ,2.1944e-03 ,1.9559e-03 ,1.6773e-03 ,1.3715e-03 , & - &1.0290e-03 ,6.3832e-04 ,1.2224e-04 /) - kao(:, 4,10, 3) = (/ & - &2.5757e-03 ,2.5009e-03 ,2.2880e-03 ,2.0317e-03 ,1.7417e-03 ,1.4189e-03 , & - &1.0630e-03 ,6.5627e-04 ,1.3004e-04 /) - kao(:, 5,10, 3) = (/ & - &2.6938e-03 ,2.6117e-03 ,2.3825e-03 ,2.1099e-03 ,1.8067e-03 ,1.4685e-03 , & - &1.0955e-03 ,6.7426e-04 ,1.3892e-04 /) - kao(:, 1,11, 3) = (/ & - &3.2925e-03 ,3.1585e-03 ,2.8624e-03 ,2.5152e-03 ,2.1339e-03 ,1.7245e-03 , & - &1.2749e-03 ,7.7353e-04 ,1.1570e-04 /) - kao(:, 2,11, 3) = (/ & - &3.4939e-03 ,3.3275e-03 ,2.9995e-03 ,2.6330e-03 ,2.2285e-03 ,1.7928e-03 , & - &1.3221e-03 ,7.9717e-04 ,1.2609e-04 /) - kao(:, 3,11, 3) = (/ & - &3.6814e-03 ,3.4852e-03 ,3.1333e-03 ,2.7438e-03 ,2.3219e-03 ,1.8667e-03 , & - &1.3711e-03 ,8.2069e-04 ,1.3849e-04 /) - kao(:, 4,11, 3) = (/ & - &3.8717e-03 ,3.6472e-03 ,3.2720e-03 ,2.8608e-03 ,2.4167e-03 ,1.9357e-03 , & - &1.4194e-03 ,8.4717e-04 ,1.4796e-04 /) - kao(:, 5,11, 3) = (/ & - &4.0507e-03 ,3.8076e-03 ,3.4109e-03 ,2.9754e-03 ,2.5103e-03 ,2.0111e-03 , & - &1.4691e-03 ,8.7324e-04 ,1.5498e-04 /) - kao(:, 1,12, 3) = (/ & - &3.6937e-03 ,3.5033e-03 ,3.1460e-03 ,2.7421e-03 ,2.3088e-03 ,1.8436e-03 , & - &1.3493e-03 ,8.0094e-04 ,1.1298e-04 /) - kao(:, 2,12, 3) = (/ & - &3.9154e-03 ,3.6887e-03 ,3.2999e-03 ,2.8717e-03 ,2.4149e-03 ,1.9245e-03 , & - &1.4017e-03 ,8.2771e-04 ,1.2419e-04 /) - kao(:, 3,12, 3) = (/ & - &4.1285e-03 ,3.8698e-03 ,3.4585e-03 ,3.0012e-03 ,2.5199e-03 ,2.0022e-03 , & - &1.4553e-03 ,8.5423e-04 ,1.3225e-04 /) - kao(:, 4,12, 3) = (/ & - &4.3384e-03 ,4.0509e-03 ,3.6103e-03 ,3.1297e-03 ,2.6243e-03 ,2.0861e-03 , & - &1.5110e-03 ,8.8306e-04 ,1.4212e-04 /) - kao(:, 5,12, 3) = (/ & - &4.5406e-03 ,4.2341e-03 ,3.7730e-03 ,3.2693e-03 ,2.7384e-03 ,2.1705e-03 , & - &1.5683e-03 ,9.1255e-04 ,1.5213e-04 /) - kao(:, 1,13, 3) = (/ & - &3.2602e-03 ,3.0914e-03 ,2.7797e-03 ,2.4220e-03 ,2.0389e-03 ,1.6288e-03 , & - &1.1889e-03 ,7.0223e-04 ,9.9450e-05 /) - kao(:, 2,13, 3) = (/ & - &3.4542e-03 ,3.2567e-03 ,2.9218e-03 ,2.5424e-03 ,2.1356e-03 ,1.7009e-03 , & - &1.2356e-03 ,7.2786e-04 ,1.0781e-04 /) - kao(:, 3,13, 3) = (/ & - &3.6454e-03 ,3.4269e-03 ,3.0649e-03 ,2.6592e-03 ,2.2314e-03 ,1.7744e-03 , & - &1.2855e-03 ,7.5225e-04 ,1.1667e-04 /) - kao(:, 4,13, 3) = (/ & - &3.8341e-03 ,3.5875e-03 ,3.2022e-03 ,2.7784e-03 ,2.3283e-03 ,1.8470e-03 , & - &1.3345e-03 ,7.7860e-04 ,1.2556e-04 /) - kao(:, 5,13, 3) = (/ & - &4.0097e-03 ,3.7448e-03 ,3.3397e-03 ,2.8965e-03 ,2.4238e-03 ,1.9205e-03 , & - &1.3873e-03 ,8.0728e-04 ,1.3156e-04 /) - kao(:, 1, 1, 4) = (/ & - &7.6190e-06 ,7.2707e-05 ,1.2159e-04 ,1.6797e-04 ,2.1749e-04 ,2.7232e-04 , & - &3.3756e-04 ,4.5000e-04 ,3.7863e-04 /) - kao(:, 2, 1, 4) = (/ & - &7.7938e-06 ,7.4481e-05 ,1.2500e-04 ,1.7416e-04 ,2.2412e-04 ,2.7984e-04 , & - &3.4630e-04 ,4.4903e-04 ,3.8823e-04 /) - kao(:, 3, 1, 4) = (/ & - &8.0028e-06 ,7.6115e-05 ,1.2829e-04 ,1.8057e-04 ,2.3237e-04 ,2.8607e-04 , & - &3.5506e-04 ,4.5741e-04 ,3.9983e-04 /) - kao(:, 4, 1, 4) = (/ & - &8.1270e-06 ,7.7997e-05 ,1.3160e-04 ,1.8544e-04 ,2.4027e-04 ,2.9656e-04 , & - &3.6016e-04 ,4.6576e-04 ,4.1176e-04 /) - kao(:, 5, 1, 4) = (/ & - &8.2916e-06 ,8.0436e-05 ,1.3585e-04 ,1.9127e-04 ,2.4691e-04 ,3.0708e-04 , & - &3.7489e-04 ,4.7422e-04 ,4.3091e-04 /) - kao(:, 1, 2, 4) = (/ & - &1.0434e-05 ,7.3238e-05 ,1.1625e-04 ,1.5526e-04 ,1.9383e-04 ,2.3419e-04 , & - &2.8405e-04 ,3.6155e-04 ,3.1532e-04 /) - kao(:, 2, 2, 4) = (/ & - &1.0681e-05 ,7.5036e-05 ,1.1854e-04 ,1.5997e-04 ,2.0074e-04 ,2.4144e-04 , & - &2.9129e-04 ,3.7038e-04 ,3.2501e-04 /) - kao(:, 3, 2, 4) = (/ & - &1.0988e-05 ,7.7182e-05 ,1.2126e-04 ,1.6374e-04 ,2.0655e-04 ,2.5052e-04 , & - &2.9566e-04 ,3.7520e-04 ,3.3554e-04 /) - kao(:, 4, 2, 4) = (/ & - &1.1243e-05 ,7.9396e-05 ,1.2452e-04 ,1.6827e-04 ,2.1213e-04 ,2.5807e-04 , & - &3.0951e-04 ,3.7973e-04 ,3.4985e-04 /) - kao(:, 5, 2, 4) = (/ & - &1.1433e-05 ,8.1733e-05 ,1.2847e-04 ,1.7400e-04 ,2.1976e-04 ,2.6675e-04 , & - &3.1873e-04 ,3.9060e-04 ,3.6531e-04 /) - kao(:, 1, 3, 4) = (/ & - &1.9121e-05 ,8.5930e-05 ,1.2401e-04 ,1.5771e-04 ,1.8803e-04 ,2.1587e-04 , & - &2.4191e-04 ,2.8659e-04 ,2.6000e-04 /) - kao(:, 2, 3, 4) = (/ & - &1.9555e-05 ,8.7968e-05 ,1.2724e-04 ,1.6033e-04 ,1.9279e-04 ,2.2305e-04 , & - &2.5217e-04 ,2.9281e-04 ,2.6982e-04 /) - kao(:, 3, 3, 4) = (/ & - &2.0014e-05 ,9.0319e-05 ,1.3030e-04 ,1.6432e-04 ,1.9658e-04 ,2.2814e-04 , & - &2.6130e-04 ,2.9767e-04 ,2.8111e-04 /) - kao(:, 4, 3, 4) = (/ & - &2.0629e-05 ,9.3145e-05 ,1.3414e-04 ,1.6939e-04 ,2.0212e-04 ,2.3402e-04 , & - &2.6796e-04 ,3.0992e-04 ,2.9328e-04 /) - kao(:, 5, 3, 4) = (/ & - &2.0980e-05 ,9.5719e-05 ,1.3796e-04 ,1.7464e-04 ,2.0857e-04 ,2.4205e-04 , & - &2.7670e-04 ,3.1994e-04 ,3.0523e-04 /) - kao(:, 1, 4, 4) = (/ & - &3.5480e-05 ,1.1130e-04 ,1.4459e-04 ,1.7323e-04 ,1.9468e-04 ,2.1444e-04 , & - &2.2966e-04 ,2.4128e-04 ,2.1617e-04 /) - kao(:, 2, 4, 4) = (/ & - &3.6323e-05 ,1.1358e-04 ,1.4824e-04 ,1.7664e-04 ,1.9952e-04 ,2.1840e-04 , & - &2.3716e-04 ,2.5075e-04 ,2.2864e-04 /) - kao(:, 3, 4, 4) = (/ & - &3.7216e-05 ,1.1624e-04 ,1.5219e-04 ,1.8108e-04 ,2.0484e-04 ,2.2378e-04 , & - &2.4107e-04 ,2.5972e-04 ,2.3687e-04 /) - kao(:, 4, 4, 4) = (/ & - &3.8132e-05 ,1.1926e-04 ,1.5631e-04 ,1.8514e-04 ,2.0992e-04 ,2.3030e-04 , & - &2.4787e-04 ,2.6623e-04 ,2.4575e-04 /) - kao(:, 5, 4, 4) = (/ & - &3.9332e-05 ,1.2292e-04 ,1.6148e-04 ,1.9104e-04 ,2.1696e-04 ,2.3764e-04 , & - &2.5623e-04 ,2.7468e-04 ,2.5520e-04 /) - kao(:, 1, 5, 4) = (/ & - &6.0558e-05 ,1.4537e-04 ,1.7679e-04 ,1.9677e-04 ,2.1242e-04 ,2.2290e-04 , & - &2.2712e-04 ,2.2468e-04 ,1.8402e-04 /) - kao(:, 2, 5, 4) = (/ & - &6.2024e-05 ,1.4763e-04 ,1.8049e-04 ,2.0169e-04 ,2.1740e-04 ,2.2816e-04 , & - &2.3141e-04 ,2.3210e-04 ,1.9363e-04 /) - kao(:, 3, 5, 4) = (/ & - &6.3560e-05 ,1.5048e-04 ,1.8446e-04 ,2.0674e-04 ,2.2245e-04 ,2.3297e-04 , & - &2.3732e-04 ,2.3625e-04 ,1.9953e-04 /) - kao(:, 4, 5, 4) = (/ & - &6.5197e-05 ,1.5389e-04 ,1.8956e-04 ,2.1242e-04 ,2.2805e-04 ,2.3893e-04 , & - &2.4394e-04 ,2.4242e-04 ,2.0731e-04 /) - kao(:, 5, 5, 4) = (/ & - &6.7408e-05 ,1.5860e-04 ,1.9588e-04 ,2.1916e-04 ,2.3481e-04 ,2.4604e-04 , & - &2.5157e-04 ,2.5058e-04 ,2.1479e-04 /) - kao(:, 1, 6, 4) = (/ & - &9.6086e-05 ,1.8511e-04 ,2.1787e-04 ,2.3286e-04 ,2.3898e-04 ,2.3907e-04 , & - &2.3360e-04 ,2.1667e-04 ,1.5583e-04 /) - kao(:, 2, 6, 4) = (/ & - &9.8537e-05 ,1.8825e-04 ,2.2157e-04 ,2.3776e-04 ,2.4456e-04 ,2.4422e-04 , & - &2.3850e-04 ,2.2088e-04 ,1.6156e-04 /) - kao(:, 3, 6, 4) = (/ & - &1.0106e-04 ,1.9192e-04 ,2.2599e-04 ,2.4309e-04 ,2.5072e-04 ,2.5018e-04 , & - &2.4346e-04 ,2.2608e-04 ,1.6736e-04 /) - kao(:, 4, 6, 4) = (/ & - &1.0368e-04 ,1.9610e-04 ,2.3144e-04 ,2.4948e-04 ,2.5710e-04 ,2.5653e-04 , & - &2.4933e-04 ,2.3314e-04 ,1.7404e-04 /) - kao(:, 5, 6, 4) = (/ & - &1.0646e-04 ,2.0089e-04 ,2.3770e-04 ,2.5701e-04 ,2.6421e-04 ,2.6433e-04 , & - &2.5582e-04 ,2.4028e-04 ,1.7876e-04 /) - kao(:, 1, 7, 4) = (/ & - &1.6042e-04 ,2.5585e-04 ,2.8519e-04 ,2.9642e-04 ,2.9350e-04 ,2.7913e-04 , & - &2.5601e-04 ,2.2211e-04 ,1.3626e-04 /) - kao(:, 2, 7, 4) = (/ & - &1.6465e-04 ,2.6056e-04 ,2.8988e-04 ,3.0133e-04 ,2.9907e-04 ,2.8588e-04 , & - &2.6187e-04 ,2.2729e-04 ,1.4135e-04 /) - kao(:, 3, 7, 4) = (/ & - &1.6901e-04 ,2.6578e-04 ,2.9572e-04 ,3.0741e-04 ,3.0551e-04 ,2.9184e-04 , & - &2.6817e-04 ,2.3205e-04 ,1.4656e-04 /) - kao(:, 4, 7, 4) = (/ & - &1.7367e-04 ,2.7110e-04 ,3.0239e-04 ,3.1497e-04 ,3.1315e-04 ,2.9895e-04 , & - &2.7506e-04 ,2.3781e-04 ,1.5059e-04 /) - kao(:, 5, 7, 4) = (/ & - &1.7865e-04 ,2.7756e-04 ,3.1008e-04 ,3.2315e-04 ,3.2186e-04 ,3.0753e-04 , & - &2.8375e-04 ,2.4404e-04 ,1.5550e-04 /) - kao(:, 1, 8, 4) = (/ & - &3.1654e-04 ,4.1629e-04 ,4.3839e-04 ,4.3773e-04 ,4.1826e-04 ,3.8213e-04 , & - &3.2793e-04 ,2.5576e-04 ,1.2647e-04 /) - kao(:, 2, 8, 4) = (/ & - &3.2537e-04 ,4.2537e-04 ,4.4661e-04 ,4.4494e-04 ,4.2500e-04 ,3.8879e-04 , & - &3.3490e-04 ,2.6206e-04 ,1.2938e-04 /) - kao(:, 3, 8, 4) = (/ & - &3.3408e-04 ,4.3504e-04 ,4.5626e-04 ,4.5382e-04 ,4.3360e-04 ,3.9751e-04 , & - &3.4272e-04 ,2.6854e-04 ,1.3239e-04 /) - kao(:, 4, 8, 4) = (/ & - &3.4318e-04 ,4.4480e-04 ,4.6645e-04 ,4.6411e-04 ,4.4358e-04 ,4.0695e-04 , & - &3.5185e-04 ,2.7598e-04 ,1.3521e-04 /) - kao(:, 5, 8, 4) = (/ & - &3.5364e-04 ,4.5591e-04 ,4.7748e-04 ,4.7551e-04 ,4.5523e-04 ,4.1803e-04 , & - &3.6238e-04 ,2.8454e-04 ,1.3901e-04 /) - kao(:, 1, 9, 4) = (/ & - &1.1778e-03 ,1.2542e-03 ,1.1993e-03 ,1.1088e-03 ,9.9621e-04 ,8.5814e-04 , & - &6.9027e-04 ,4.7338e-04 ,1.4222e-04 /) - kao(:, 2, 9, 4) = (/ & - &1.2148e-03 ,1.2865e-03 ,1.2285e-03 ,1.1318e-03 ,1.0140e-03 ,8.7230e-04 , & - &7.0194e-04 ,4.8264e-04 ,1.4691e-04 /) - kao(:, 3, 9, 4) = (/ & - &1.2493e-03 ,1.3197e-03 ,1.2603e-03 ,1.1590e-03 ,1.0363e-03 ,8.9016e-04 , & - &7.1481e-04 ,4.9330e-04 ,1.5194e-04 /) - kao(:, 4, 9, 4) = (/ & - &1.2842e-03 ,1.3516e-03 ,1.2898e-03 ,1.1881e-03 ,1.0607e-03 ,9.1030e-04 , & - &7.3056e-04 ,5.0488e-04 ,1.5874e-04 /) - kao(:, 5, 9, 4) = (/ & - &1.3233e-03 ,1.3878e-03 ,1.3225e-03 ,1.2203e-03 ,1.0882e-03 ,9.3354e-04 , & - &7.4949e-04 ,5.1819e-04 ,1.6715e-04 /) - kao(:, 1,10, 4) = (/ & - &4.9223e-03 ,4.6924e-03 ,4.2372e-03 ,3.7210e-03 ,3.1598e-03 ,2.5466e-03 , & - &1.8894e-03 ,1.1610e-03 ,2.5902e-04 /) - kao(:, 2,10, 4) = (/ & - &5.1019e-03 ,4.8420e-03 ,4.3700e-03 ,3.8242e-03 ,3.2382e-03 ,2.6075e-03 , & - &1.9274e-03 ,1.1773e-03 ,2.7993e-04 /) - kao(:, 3,10, 4) = (/ & - &5.2624e-03 ,4.9912e-03 ,4.4976e-03 ,3.9326e-03 ,3.3295e-03 ,2.6789e-03 , & - &1.9739e-03 ,1.2013e-03 ,2.9275e-04 /) - kao(:, 4,10, 4) = (/ & - &5.4202e-03 ,5.1325e-03 ,4.6211e-03 ,4.0415e-03 ,3.4179e-03 ,2.7474e-03 , & - &2.0231e-03 ,1.2303e-03 ,3.0514e-04 /) - kao(:, 5,10, 4) = (/ & - &5.5922e-03 ,5.2716e-03 ,4.7430e-03 ,4.1489e-03 ,3.5047e-03 ,2.8180e-03 , & - &2.0794e-03 ,1.2643e-03 ,3.1858e-04 /) - kao(:, 1,11, 4) = (/ & - &7.2623e-03 ,6.7979e-03 ,6.0744e-03 ,5.2843e-03 ,4.4298e-03 ,3.5303e-03 , & - &2.5670e-03 ,1.5127e-03 ,3.1480e-04 /) - kao(:, 2,11, 4) = (/ & - &7.5607e-03 ,7.0506e-03 ,6.2894e-03 ,5.4629e-03 ,4.5682e-03 ,3.6306e-03 , & - &2.6328e-03 ,1.5436e-03 ,3.2537e-04 /) - kao(:, 3,11, 4) = (/ & - &7.8471e-03 ,7.2956e-03 ,6.4988e-03 ,5.6385e-03 ,4.7125e-03 ,3.7379e-03 , & - &2.7029e-03 ,1.5776e-03 ,3.3231e-04 /) - kao(:, 4,11, 4) = (/ & - &8.1128e-03 ,7.5290e-03 ,6.7020e-03 ,5.8093e-03 ,4.8535e-03 ,3.8422e-03 , & - &2.7753e-03 ,1.6189e-03 ,3.4203e-04 /) - kao(:, 5,11, 4) = (/ & - &8.3759e-03 ,7.7545e-03 ,6.8899e-03 ,5.9710e-03 ,4.9875e-03 ,3.9509e-03 , & - &2.8575e-03 ,1.6684e-03 ,3.5725e-04 /) - kao(:, 1,12, 4) = (/ & - &8.0096e-03 ,7.4190e-03 ,6.5933e-03 ,5.7152e-03 ,4.7757e-03 ,3.7806e-03 , & - &2.7237e-03 ,1.5850e-03 ,3.0906e-04 /) - kao(:, 2,12, 4) = (/ & - &8.3245e-03 ,7.6924e-03 ,6.8377e-03 ,5.9147e-03 ,4.9319e-03 ,3.8997e-03 , & - &2.8053e-03 ,1.6213e-03 ,3.1505e-04 /) - kao(:, 3,12, 4) = (/ & - &8.6504e-03 ,7.9748e-03 ,7.0681e-03 ,6.1123e-03 ,5.0902e-03 ,4.0202e-03 , & - &2.8850e-03 ,1.6649e-03 ,3.2236e-04 /) - kao(:, 4,12, 4) = (/ & - &8.9354e-03 ,8.2303e-03 ,7.2913e-03 ,6.2946e-03 ,5.2436e-03 ,4.1358e-03 , & - &2.9697e-03 ,1.7144e-03 ,3.2906e-04 /) - kao(:, 5,12, 4) = (/ & - &9.2169e-03 ,8.4842e-03 ,7.5093e-03 ,6.4790e-03 ,5.3967e-03 ,4.2618e-03 , & - &3.0601e-03 ,1.7687e-03 ,3.3757e-04 /) - kao(:, 1,13, 4) = (/ & - &7.1631e-03 ,6.6319e-03 ,5.8920e-03 ,5.0960e-03 ,4.2500e-03 ,3.3594e-03 , & - &2.4169e-03 ,1.3985e-03 ,2.7237e-04 /) - kao(:, 2,13, 4) = (/ & - &7.4650e-03 ,6.8721e-03 ,6.1020e-03 ,5.2700e-03 ,4.3954e-03 ,3.4698e-03 , & - &2.4897e-03 ,1.4341e-03 ,2.7736e-04 /) - kao(:, 3,13, 4) = (/ & - &7.7609e-03 ,7.1282e-03 ,6.3106e-03 ,5.4462e-03 ,4.5330e-03 ,3.5736e-03 , & - &2.5636e-03 ,1.4770e-03 ,2.8124e-04 /) - kao(:, 4,13, 4) = (/ & - &8.0101e-03 ,7.3618e-03 ,6.5123e-03 ,5.6158e-03 ,4.6733e-03 ,3.6861e-03 , & - &2.6445e-03 ,1.5233e-03 ,2.8716e-04 /) - kao(:, 5,13, 4) = (/ & - &8.2606e-03 ,7.6008e-03 ,6.7314e-03 ,5.7990e-03 ,4.8288e-03 ,3.8083e-03 , & - &2.7261e-03 ,1.5712e-03 ,2.9686e-04 /) - kao(:, 1, 1, 5) = (/ & - &1.3739e-05 ,1.5137e-04 ,2.5878e-04 ,3.6225e-04 ,4.6522e-04 ,5.7109e-04 , & - &6.9199e-04 ,8.4168e-04 ,8.0480e-04 /) - kao(:, 2, 1, 5) = (/ & - &1.3888e-05 ,1.5627e-04 ,2.6885e-04 ,3.7698e-04 ,4.8125e-04 ,5.9114e-04 , & - &7.1164e-04 ,8.7936e-04 ,8.3421e-04 /) - kao(:, 3, 1, 5) = (/ & - &1.4142e-05 ,1.6264e-04 ,2.8096e-04 ,3.9281e-04 ,5.0319e-04 ,6.1580e-04 , & - &7.3800e-04 ,9.1340e-04 ,8.6788e-04 /) - kao(:, 4, 1, 5) = (/ & - &1.4278e-05 ,1.6909e-04 ,2.9347e-04 ,4.1125e-04 ,5.2641e-04 ,6.4515e-04 , & - &7.7492e-04 ,9.4989e-04 ,9.0996e-04 /) - kao(:, 5, 1, 5) = (/ & - &1.4494e-05 ,1.7605e-04 ,3.0657e-04 ,4.3067e-04 ,5.5274e-04 ,6.7670e-04 , & - &8.1211e-04 ,9.9682e-04 ,9.5292e-04 /) - kao(:, 1, 2, 5) = (/ & - &1.8692e-05 ,1.5213e-04 ,2.4704e-04 ,3.3748e-04 ,4.2434e-04 ,5.1189e-04 , & - &6.0610e-04 ,7.3668e-04 ,6.9411e-04 /) - kao(:, 2, 2, 5) = (/ & - &1.8918e-05 ,1.5679e-04 ,2.5663e-04 ,3.5044e-04 ,4.4175e-04 ,5.3243e-04 , & - &6.2710e-04 ,7.5567e-04 ,7.2022e-04 /) - kao(:, 3, 2, 5) = (/ & - &1.9322e-05 ,1.6205e-04 ,2.6764e-04 ,3.6642e-04 ,4.6108e-04 ,5.5570e-04 , & - &6.5662e-04 ,7.8535e-04 ,7.5176e-04 /) - kao(:, 4, 2, 5) = (/ & - &1.9585e-05 ,1.6765e-04 ,2.7850e-04 ,3.8286e-04 ,4.8359e-04 ,5.8272e-04 , & - &6.8652e-04 ,8.2260e-04 ,7.8717e-04 /) - kao(:, 5, 2, 5) = (/ & - &1.9818e-05 ,1.7339e-04 ,2.8992e-04 ,3.9889e-04 ,5.0485e-04 ,6.1010e-04 , & - &7.2141e-04 ,8.6363e-04 ,8.2436e-04 /) - kao(:, 1, 3, 5) = (/ & - &3.4262e-05 ,1.7533e-04 ,2.6113e-04 ,3.3571e-04 ,4.0540e-04 ,4.7229e-04 , & - &5.3818e-04 ,6.1661e-04 ,5.8845e-04 /) - kao(:, 2, 3, 5) = (/ & - &3.4716e-05 ,1.7923e-04 ,2.6899e-04 ,3.4836e-04 ,4.2096e-04 ,4.9023e-04 , & - &5.6025e-04 ,6.3703e-04 ,6.0869e-04 /) - kao(:, 3, 3, 5) = (/ & - &3.5292e-05 ,1.8347e-04 ,2.7811e-04 ,3.6147e-04 ,4.3915e-04 ,5.1242e-04 , & - &5.8378e-04 ,6.6557e-04 ,6.3564e-04 /) - kao(:, 4, 3, 5) = (/ & - &3.6120e-05 ,1.8884e-04 ,2.8797e-04 ,3.7545e-04 ,4.5740e-04 ,5.3560e-04 , & - &6.1221e-04 ,6.9822e-04 ,6.6452e-04 /) - kao(:, 5, 3, 5) = (/ & - &3.6636e-05 ,1.9428e-04 ,2.9738e-04 ,3.9013e-04 ,4.7606e-04 ,5.5790e-04 , & - &6.3990e-04 ,7.3219e-04 ,6.9591e-04 /) - kao(:, 1, 4, 5) = (/ & - &6.3937e-05 ,2.1416e-04 ,2.9895e-04 ,3.6305e-04 ,4.1697e-04 ,4.6136e-04 , & - &4.9950e-04 ,5.3752e-04 ,4.9755e-04 /) - kao(:, 2, 4, 5) = (/ & - &6.4891e-05 ,2.1788e-04 ,3.0564e-04 ,3.7373e-04 ,4.2957e-04 ,4.7819e-04 , & - &5.1730e-04 ,5.5769e-04 ,5.1340e-04 /) - kao(:, 3, 4, 5) = (/ & - &6.5931e-05 ,2.2256e-04 ,3.1273e-04 ,3.8551e-04 ,4.4411e-04 ,4.9569e-04 , & - &5.4027e-04 ,5.8134e-04 ,5.3558e-04 /) - kao(:, 4, 4, 5) = (/ & - &6.7204e-05 ,2.2716e-04 ,3.2137e-04 ,3.9776e-04 ,4.6059e-04 ,5.1431e-04 , & - &5.6246e-04 ,6.0834e-04 ,5.5897e-04 /) - kao(:, 5, 4, 5) = (/ & - &6.9088e-05 ,2.3323e-04 ,3.3076e-04 ,4.1010e-04 ,4.7742e-04 ,5.3504e-04 , & - &5.8525e-04 ,6.3600e-04 ,5.8418e-04 /) - kao(:, 1, 5, 5) = (/ & - &1.0861e-04 ,2.6518e-04 ,3.4675e-04 ,4.0531e-04 ,4.4642e-04 ,4.7448e-04 , & - &4.8963e-04 ,4.9041e-04 ,4.2330e-04 /) - kao(:, 2, 5, 5) = (/ & - &1.1058e-04 ,2.6952e-04 ,3.5268e-04 ,4.1375e-04 ,4.5888e-04 ,4.8791e-04 , & - &5.0614e-04 ,5.0767e-04 ,4.3569e-04 /) - kao(:, 3, 5, 5) = (/ & - &1.1255e-04 ,2.7465e-04 ,3.6022e-04 ,4.2322e-04 ,4.7137e-04 ,5.0379e-04 , & - &5.2287e-04 ,5.2860e-04 ,4.5259e-04 /) - kao(:, 4, 5, 5) = (/ & - &1.1490e-04 ,2.8064e-04 ,3.6839e-04 ,4.3377e-04 ,4.8454e-04 ,5.2116e-04 , & - &5.4180e-04 ,5.5017e-04 ,4.7054e-04 /) - kao(:, 5, 5, 5) = (/ & - &1.1845e-04 ,2.8778e-04 ,3.7745e-04 ,4.4611e-04 ,4.9985e-04 ,5.3937e-04 , & - &5.6277e-04 ,5.7154e-04 ,4.9105e-04 /) - kao(:, 1, 6, 5) = (/ & - &1.7235e-04 ,3.3181e-04 ,4.0736e-04 ,4.5766e-04 ,4.8926e-04 ,5.0113e-04 , & - &4.9597e-04 ,4.6976e-04 ,3.5862e-04 /) - kao(:, 2, 6, 5) = (/ & - &1.7547e-04 ,3.3667e-04 ,4.1414e-04 ,4.6509e-04 ,4.9861e-04 ,5.1384e-04 , & - &5.0976e-04 ,4.8537e-04 ,3.6976e-04 /) - kao(:, 3, 6, 5) = (/ & - &1.7903e-04 ,3.4304e-04 ,4.2198e-04 ,4.7494e-04 ,5.0792e-04 ,5.2713e-04 , & - &5.2630e-04 ,5.0120e-04 ,3.8272e-04 /) - kao(:, 4, 6, 5) = (/ & - &1.8326e-04 ,3.5076e-04 ,4.3097e-04 ,4.8545e-04 ,5.2030e-04 ,5.4158e-04 , & - &5.4362e-04 ,5.1767e-04 ,3.9660e-04 /) - kao(:, 5, 6, 5) = (/ & - &1.8798e-04 ,3.5938e-04 ,4.4150e-04 ,4.9742e-04 ,5.3429e-04 ,5.5639e-04 , & - &5.6101e-04 ,5.3674e-04 ,4.1415e-04 /) - kao(:, 1, 7, 5) = (/ & - &2.9155e-04 ,4.4941e-04 ,5.1334e-04 ,5.5160e-04 ,5.6796e-04 ,5.6534e-04 , & - &5.3624e-04 ,4.7508e-04 ,3.0367e-04 /) - kao(:, 2, 7, 5) = (/ & - &2.9728e-04 ,4.5662e-04 ,5.2104e-04 ,5.6062e-04 ,5.7827e-04 ,5.7448e-04 , & - &5.4737e-04 ,4.8748e-04 ,3.1275e-04 /) - kao(:, 3, 7, 5) = (/ & - &3.0362e-04 ,4.6646e-04 ,5.3089e-04 ,5.7148e-04 ,5.9016e-04 ,5.8669e-04 , & - &5.6081e-04 ,5.0270e-04 ,3.2221e-04 /) - kao(:, 4, 7, 5) = (/ & - &3.1074e-04 ,4.7852e-04 ,5.4299e-04 ,5.8375e-04 ,6.0313e-04 ,6.0067e-04 , & - &5.7534e-04 ,5.1934e-04 ,3.3373e-04 /) - kao(:, 5, 7, 5) = (/ & - &3.1895e-04 ,4.9180e-04 ,5.5670e-04 ,5.9847e-04 ,6.1763e-04 ,6.1617e-04 , & - &5.9045e-04 ,5.3590e-04 ,3.4594e-04 /) - kao(:, 1, 8, 5) = (/ & - &5.8477e-04 ,7.4431e-04 ,7.7278e-04 ,7.7426e-04 ,7.5736e-04 ,7.1816e-04 , & - &6.5106e-04 ,5.3737e-04 ,2.7725e-04 /) - kao(:, 2, 8, 5) = (/ & - &5.9470e-04 ,7.5491e-04 ,7.8490e-04 ,7.8595e-04 ,7.6803e-04 ,7.3022e-04 , & - &6.6291e-04 ,5.4897e-04 ,2.8497e-04 /) - kao(:, 3, 8, 5) = (/ & - &6.0851e-04 ,7.7097e-04 ,8.0204e-04 ,8.0136e-04 ,7.8218e-04 ,7.4418e-04 , & - &6.7668e-04 ,5.6182e-04 ,2.9265e-04 /) - kao(:, 4, 8, 5) = (/ & - &6.2426e-04 ,7.9122e-04 ,8.2299e-04 ,8.2167e-04 ,7.9967e-04 ,7.6040e-04 , & - &6.9192e-04 ,5.7414e-04 ,3.0175e-04 /) - kao(:, 5, 8, 5) = (/ & - &6.4049e-04 ,8.1349e-04 ,8.4675e-04 ,8.4414e-04 ,8.2107e-04 ,7.7949e-04 , & - &7.0895e-04 ,5.8878e-04 ,3.1239e-04 /) - kao(:, 1, 9, 5) = (/ & - &2.2196e-03 ,2.3078e-03 ,2.1925e-03 ,2.0227e-03 ,1.7963e-03 ,1.5336e-03 , & - &1.2354e-03 ,8.8457e-04 ,3.2582e-04 /) - kao(:, 2, 9, 5) = (/ & - &2.2570e-03 ,2.3473e-03 ,2.2277e-03 ,2.0540e-03 ,1.8274e-03 ,1.5588e-03 , & - &1.2524e-03 ,8.9724e-04 ,3.2676e-04 /) - kao(:, 3, 9, 5) = (/ & - &2.3089e-03 ,2.3978e-03 ,2.2707e-03 ,2.0928e-03 ,1.8651e-03 ,1.5919e-03 , & - &1.2779e-03 ,9.1370e-04 ,3.3500e-04 /) - kao(:, 4, 9, 5) = (/ & - &2.3733e-03 ,2.4602e-03 ,2.3315e-03 ,2.1419e-03 ,1.9119e-03 ,1.6319e-03 , & - &1.3090e-03 ,9.3384e-04 ,3.3899e-04 /) - kao(:, 5, 9, 5) = (/ & - &2.4406e-03 ,2.5271e-03 ,2.3986e-03 ,2.2033e-03 ,1.9655e-03 ,1.6770e-03 , & - &1.3445e-03 ,9.5837e-04 ,3.4762e-04 /) - kao(:, 1,10, 5) = (/ & - &9.4839e-03 ,8.9137e-03 ,7.9871e-03 ,6.9719e-03 ,5.8780e-03 ,4.7134e-03 , & - &3.4759e-03 ,2.1070e-03 ,4.8830e-04 /) - kao(:, 2,10, 5) = (/ & - &9.6557e-03 ,9.0801e-03 ,8.1340e-03 ,7.0972e-03 ,5.9780e-03 ,4.7945e-03 , & - &3.5398e-03 ,2.1454e-03 ,4.8857e-04 /) - kao(:, 3,10, 5) = (/ & - &9.8746e-03 ,9.2754e-03 ,8.2985e-03 ,7.2339e-03 ,6.1011e-03 ,4.8911e-03 , & - &3.6103e-03 ,2.1918e-03 ,5.0136e-04 /) - kao(:, 4,10, 5) = (/ & - &1.0155e-02 ,9.5179e-03 ,8.5070e-03 ,7.4122e-03 ,6.2501e-03 ,5.0174e-03 , & - &3.7003e-03 ,2.2452e-03 ,5.1609e-04 /) - kao(:, 5,10, 5) = (/ & - &1.0472e-02 ,9.8032e-03 ,8.7668e-03 ,7.6331e-03 ,6.4389e-03 ,5.1659e-03 , & - &3.8012e-03 ,2.3067e-03 ,5.2606e-04 /) - kao(:, 1,11, 5) = (/ & - &1.4268e-02 ,1.3170e-02 ,1.1684e-02 ,1.0078e-02 ,8.4022e-03 ,6.6241e-03 , & - &4.7723e-03 ,2.7954e-03 ,5.2361e-04 /) - kao(:, 2,11, 5) = (/ & - &1.4540e-02 ,1.3417e-02 ,1.1900e-02 ,1.0250e-02 ,8.5500e-03 ,6.7539e-03 , & - &4.8654e-03 ,2.8533e-03 ,5.3348e-04 /) - kao(:, 3,11, 5) = (/ & - &1.4880e-02 ,1.3732e-02 ,1.2163e-02 ,1.0481e-02 ,8.7324e-03 ,6.9009e-03 , & - &4.9833e-03 ,2.9218e-03 ,5.5883e-04 /) - kao(:, 4,11, 5) = (/ & - &1.5319e-02 ,1.4123e-02 ,1.2507e-02 ,1.0772e-02 ,8.9669e-03 ,7.0955e-03 , & - &5.1189e-03 ,2.9943e-03 ,5.8850e-04 /) - kao(:, 5,11, 5) = (/ & - &1.5835e-02 ,1.4577e-02 ,1.2919e-02 ,1.1125e-02 ,9.2533e-03 ,7.3128e-03 , & - &5.2667e-03 ,3.0792e-03 ,6.1073e-04 /) - kao(:, 1,12, 5) = (/ & - &1.5802e-02 ,1.4518e-02 ,1.2819e-02 ,1.1003e-02 ,9.1252e-03 ,7.1742e-03 , & - &5.1262e-03 ,2.9592e-03 ,5.0816e-04 /) - kao(:, 2,12, 5) = (/ & - &1.6146e-02 ,1.4810e-02 ,1.3074e-02 ,1.1225e-02 ,9.3090e-03 ,7.3135e-03 , & - &5.2412e-03 ,3.0249e-03 ,5.3398e-04 /) - kao(:, 3,12, 5) = (/ & - &1.6565e-02 ,1.5205e-02 ,1.3415e-02 ,1.1514e-02 ,9.5432e-03 ,7.5058e-03 , & - &5.3826e-03 ,3.1020e-03 ,5.6164e-04 /) - kao(:, 4,12, 5) = (/ & - &1.7128e-02 ,1.5682e-02 ,1.3836e-02 ,1.1883e-02 ,9.8516e-03 ,7.7437e-03 , & - &5.5313e-03 ,3.1868e-03 ,5.8823e-04 /) - kao(:, 5,12, 5) = (/ & - &1.7790e-02 ,1.6267e-02 ,1.4348e-02 ,1.2311e-02 ,1.0183e-02 ,7.9904e-03 , & - &5.7100e-03 ,3.2821e-03 ,6.0779e-04 /) - kao(:, 1,13, 5) = (/ & - &1.4021e-02 ,1.2885e-02 ,1.1370e-02 ,9.7666e-03 ,8.0956e-03 ,6.3531e-03 , & - &4.5485e-03 ,2.6326e-03 ,4.6002e-04 /) - kao(:, 2,13, 5) = (/ & - &1.4373e-02 ,1.3207e-02 ,1.1632e-02 ,9.9865e-03 ,8.2754e-03 ,6.5087e-03 , & - &4.6669e-03 ,2.6967e-03 ,4.8163e-04 /) - kao(:, 3,13, 5) = (/ & - &1.4774e-02 ,1.3588e-02 ,1.1994e-02 ,1.0306e-02 ,8.5450e-03 ,6.7168e-03 , & - &4.8089e-03 ,2.7710e-03 ,4.9996e-04 /) - kao(:, 4,13, 5) = (/ & - &1.5343e-02 ,1.4084e-02 ,1.2424e-02 ,1.0664e-02 ,8.8287e-03 ,6.9355e-03 , & - &4.9590e-03 ,2.8556e-03 ,5.2093e-04 /) - kao(:, 5,13, 5) = (/ & - &1.5979e-02 ,1.4619e-02 ,1.2888e-02 ,1.1066e-02 ,9.1632e-03 ,7.1872e-03 , & - &5.1400e-03 ,2.9489e-03 ,5.4238e-04 /) - kao(:, 1, 1, 6) = (/ & - &2.4381e-05 ,3.5965e-04 ,6.3963e-04 ,9.0999e-04 ,1.1781e-03 ,1.4492e-03 , & - &1.7469e-03 ,2.1949e-03 ,2.0167e-03 /) - kao(:, 2, 1, 6) = (/ & - &2.4551e-05 ,3.6820e-04 ,6.5359e-04 ,9.2911e-04 ,1.2030e-03 ,1.4796e-03 , & - &1.7884e-03 ,2.2546e-03 ,2.0633e-03 /) - kao(:, 3, 1, 6) = (/ & - &2.4844e-05 ,3.7777e-04 ,6.7015e-04 ,9.5166e-04 ,1.2316e-03 ,1.5153e-03 , & - &1.8326e-03 ,2.3125e-03 ,2.1171e-03 /) - kao(:, 4, 1, 6) = (/ & - &2.5013e-05 ,3.8840e-04 ,6.8929e-04 ,9.7743e-04 ,1.2638e-03 ,1.5559e-03 , & - &1.8833e-03 ,2.3873e-03 ,2.1814e-03 /) - kao(:, 5, 1, 6) = (/ & - &2.5349e-05 ,4.0094e-04 ,7.1137e-04 ,1.0079e-03 ,1.3021e-03 ,1.6023e-03 , & - &1.9431e-03 ,2.4704e-03 ,2.2554e-03 /) - kao(:, 1, 2, 6) = (/ & - &3.3532e-05 ,3.4195e-04 ,5.9227e-04 ,8.3115e-04 ,1.0659e-03 ,1.2984e-03 , & - &1.5375e-03 ,1.8307e-03 ,1.7555e-03 /) - kao(:, 2, 2, 6) = (/ & - &3.3884e-05 ,3.4950e-04 ,6.0496e-04 ,8.4827e-04 ,1.0865e-03 ,1.3240e-03 , & - &1.5683e-03 ,1.8747e-03 ,1.7936e-03 /) - kao(:, 3, 2, 6) = (/ & - &3.4432e-05 ,3.5837e-04 ,6.1975e-04 ,8.6913e-04 ,1.1113e-03 ,1.3536e-03 , & - &1.6021e-03 ,1.9222e-03 ,1.8373e-03 /) - kao(:, 4, 2, 6) = (/ & - &3.4886e-05 ,3.6829e-04 ,6.3662e-04 ,8.9220e-04 ,1.1391e-03 ,1.3857e-03 , & - &1.6406e-03 ,1.9755e-03 ,1.8873e-03 /) - kao(:, 5, 2, 6) = (/ & - &3.5279e-05 ,3.7968e-04 ,6.5599e-04 ,9.1909e-04 ,1.1730e-03 ,1.4257e-03 , & - &1.6862e-03 ,2.0365e-03 ,1.9484e-03 /) - kao(:, 1, 3, 6) = (/ & - &6.2269e-05 ,3.6578e-04 ,5.8707e-04 ,7.9355e-04 ,9.9285e-04 ,1.1848e-03 , & - &1.3757e-03 ,1.5822e-03 ,1.5104e-03 /) - kao(:, 2, 3, 6) = (/ & - &6.2987e-05 ,3.7248e-04 ,5.9883e-04 ,8.1016e-04 ,1.0136e-03 ,1.2090e-03 , & - &1.4023e-03 ,1.6140e-03 ,1.5440e-03 /) - kao(:, 3, 3, 6) = (/ & - &6.3830e-05 ,3.8077e-04 ,6.1238e-04 ,8.2947e-04 ,1.0380e-03 ,1.2373e-03 , & - &1.4338e-03 ,1.6476e-03 ,1.5800e-03 /) - kao(:, 4, 3, 6) = (/ & - &6.5057e-05 ,3.9038e-04 ,6.2908e-04 ,8.5186e-04 ,1.0655e-03 ,1.2690e-03 , & - &1.4686e-03 ,1.6847e-03 ,1.6204e-03 /) - kao(:, 5, 3, 6) = (/ & - &6.5891e-05 ,4.0010e-04 ,6.4778e-04 ,8.7680e-04 ,1.0962e-03 ,1.3060e-03 , & - &1.5104e-03 ,1.7307e-03 ,1.6697e-03 /) - kao(:, 1, 4, 6) = (/ & - &1.1763e-04 ,4.2852e-04 ,6.2857e-04 ,8.0251e-04 ,9.6160e-04 ,1.1103e-03 , & - &1.2549e-03 ,1.3952e-03 ,1.2948e-03 /) - kao(:, 2, 4, 6) = (/ & - &1.1903e-04 ,4.3548e-04 ,6.3935e-04 ,8.1698e-04 ,9.8074e-04 ,1.1338e-03 , & - &1.2810e-03 ,1.4231e-03 ,1.3227e-03 /) - kao(:, 3, 4, 6) = (/ & - &1.2084e-04 ,4.4304e-04 ,6.5330e-04 ,8.3469e-04 ,1.0028e-03 ,1.1604e-03 , & - &1.3104e-03 ,1.4544e-03 ,1.3535e-03 /) - kao(:, 4, 4, 6) = (/ & - &1.2295e-04 ,4.5274e-04 ,6.6888e-04 ,8.5565e-04 ,1.0277e-03 ,1.1905e-03 , & - &1.3437e-03 ,1.4894e-03 ,1.3881e-03 /) - kao(:, 5, 4, 6) = (/ & - &1.2576e-04 ,4.6369e-04 ,6.8705e-04 ,8.8171e-04 ,1.0587e-03 ,1.2251e-03 , & - &1.3822e-03 ,1.5303e-03 ,1.4309e-03 /) - kao(:, 1, 5, 6) = (/ & - &2.0248e-04 ,5.1976e-04 ,7.0294e-04 ,8.5252e-04 ,9.7761e-04 ,1.0816e-03 , & - &1.1680e-03 ,1.2476e-03 ,1.1044e-03 /) - kao(:, 2, 5, 6) = (/ & - &2.0493e-04 ,5.2640e-04 ,7.1432e-04 ,8.6690e-04 ,9.9395e-04 ,1.1019e-03 , & - &1.1914e-03 ,1.2719e-03 ,1.1285e-03 /) - kao(:, 3, 5, 6) = (/ & - &2.0806e-04 ,5.3477e-04 ,7.2739e-04 ,8.8542e-04 ,1.0148e-03 ,1.1250e-03 , & - &1.2182e-03 ,1.3005e-03 ,1.1542e-03 /) - kao(:, 4, 5, 6) = (/ & - &2.1205e-04 ,5.4496e-04 ,7.4280e-04 ,9.0607e-04 ,1.0399e-03 ,1.1525e-03 , & - &1.2484e-03 ,1.3331e-03 ,1.1843e-03 /) - kao(:, 5, 5, 6) = (/ & - &2.1768e-04 ,5.5787e-04 ,7.6255e-04 ,9.3016e-04 ,1.0697e-03 ,1.1863e-03 , & - &1.2845e-03 ,1.3711e-03 ,1.2208e-03 /) - kao(:, 1, 6, 6) = (/ & - &3.2402e-04 ,6.5065e-04 ,8.1276e-04 ,9.3175e-04 ,1.0254e-03 ,1.0960e-03 , & - &1.1336e-03 ,1.1359e-03 ,9.3926e-04 /) - kao(:, 2, 6, 6) = (/ & - &3.2839e-04 ,6.5803e-04 ,8.2121e-04 ,9.4691e-04 ,1.0426e-03 ,1.1132e-03 , & - &1.1537e-03 ,1.1594e-03 ,9.5631e-04 /) - kao(:, 3, 6, 6) = (/ & - &3.3397e-04 ,6.6749e-04 ,8.3425e-04 ,9.6403e-04 ,1.0654e-03 ,1.1356e-03 , & - &1.1768e-03 ,1.1847e-03 ,9.7614e-04 /) - kao(:, 4, 6, 6) = (/ & - &3.4074e-04 ,6.7873e-04 ,8.5077e-04 ,9.8417e-04 ,1.0893e-03 ,1.1622e-03 , & - &1.2041e-03 ,1.2139e-03 ,1.0001e-03 /) - kao(:, 5, 6, 6) = (/ & - &3.4865e-04 ,6.9287e-04 ,8.6902e-04 ,1.0071e-03 ,1.1162e-03 ,1.1933e-03 , & - &1.2370e-03 ,1.2465e-03 ,1.0295e-03 /) - kao(:, 1, 7, 6) = (/ & - &5.4679e-04 ,8.8419e-04 ,1.0272e-03 ,1.1131e-03 ,1.1586e-03 ,1.1796e-03 , & - &1.1677e-03 ,1.1006e-03 ,7.9375e-04 /) - kao(:, 2, 7, 6) = (/ & - &5.5453e-04 ,8.9535e-04 ,1.0406e-03 ,1.1278e-03 ,1.1758e-03 ,1.1986e-03 , & - &1.1860e-03 ,1.1193e-03 ,8.0863e-04 /) - kao(:, 3, 7, 6) = (/ & - &5.6482e-04 ,9.0803e-04 ,1.0560e-03 ,1.1451e-03 ,1.1955e-03 ,1.2220e-03 , & - &1.2089e-03 ,1.1408e-03 ,8.2565e-04 /) - kao(:, 4, 7, 6) = (/ & - &5.7672e-04 ,9.2334e-04 ,1.0748e-03 ,1.1654e-03 ,1.2195e-03 ,1.2479e-03 , & - &1.2361e-03 ,1.1655e-03 ,8.4564e-04 /) - kao(:, 5, 7, 6) = (/ & - &5.9187e-04 ,9.4280e-04 ,1.0968e-03 ,1.1862e-03 ,1.2479e-03 ,1.2773e-03 , & - &1.2677e-03 ,1.1958e-03 ,8.6975e-04 /) - kao(:, 1, 8, 6) = (/ & - &1.0890e-03 ,1.4212e-03 ,1.5274e-03 ,1.5635e-03 ,1.5408e-03 ,1.4729e-03 , & - &1.3514e-03 ,1.1730e-03 ,6.7724e-04 /) - kao(:, 2, 8, 6) = (/ & - &1.1074e-03 ,1.4404e-03 ,1.5493e-03 ,1.5864e-03 ,1.5647e-03 ,1.4941e-03 , & - &1.3720e-03 ,1.1894e-03 ,6.8838e-04 /) - kao(:, 3, 8, 6) = (/ & - &1.1299e-03 ,1.4626e-03 ,1.5727e-03 ,1.6115e-03 ,1.5892e-03 ,1.5170e-03 , & - &1.3954e-03 ,1.2114e-03 ,7.0024e-04 /) - kao(:, 4, 8, 6) = (/ & - &1.1562e-03 ,1.4908e-03 ,1.6005e-03 ,1.6404e-03 ,1.6196e-03 ,1.5467e-03 , & - &1.4229e-03 ,1.2388e-03 ,7.1485e-04 /) - kao(:, 5, 8, 6) = (/ & - &1.1885e-03 ,1.5267e-03 ,1.6357e-03 ,1.6752e-03 ,1.6528e-03 ,1.5764e-03 , & - &1.4553e-03 ,1.2696e-03 ,7.3183e-04 /) - kao(:, 1, 9, 6) = (/ & - &4.1665e-03 ,4.3468e-03 ,4.1293e-03 ,3.8165e-03 ,3.4449e-03 ,3.0107e-03 , & - &2.4884e-03 ,1.8186e-03 ,7.0770e-04 /) - kao(:, 2, 9, 6) = (/ & - &4.2379e-03 ,4.4019e-03 ,4.1804e-03 ,3.8702e-03 ,3.4962e-03 ,3.0618e-03 , & - &2.5301e-03 ,1.8480e-03 ,7.1084e-04 /) - kao(:, 3, 9, 6) = (/ & - &4.3206e-03 ,4.4730e-03 ,4.2494e-03 ,3.9358e-03 ,3.5562e-03 ,3.1108e-03 , & - &2.5726e-03 ,1.8787e-03 ,7.1447e-04 /) - kao(:, 4, 9, 6) = (/ & - &4.4148e-03 ,4.5672e-03 ,4.3360e-03 ,4.0233e-03 ,3.6279e-03 ,3.1667e-03 , & - &2.6211e-03 ,1.9152e-03 ,7.2547e-04 /) - kao(:, 5, 9, 6) = (/ & - &4.5366e-03 ,4.6880e-03 ,4.4475e-03 ,4.1247e-03 ,3.7148e-03 ,3.2357e-03 , & - &2.6777e-03 ,1.9564e-03 ,7.3351e-04 /) - kao(:, 1,10, 6) = (/ & - &1.8255e-02 ,1.7198e-02 ,1.5391e-02 ,1.3391e-02 ,1.1273e-02 ,9.0394e-03 , & - &6.6601e-03 ,4.0944e-03 ,9.8389e-04 /) - kao(:, 2,10, 6) = (/ & - &1.8579e-02 ,1.7439e-02 ,1.5601e-02 ,1.3577e-02 ,1.1427e-02 ,9.1759e-03 , & - &6.7580e-03 ,4.1605e-03 ,9.8485e-04 /) - kao(:, 3,10, 6) = (/ & - &1.8934e-02 ,1.7772e-02 ,1.5898e-02 ,1.3821e-02 ,1.1616e-02 ,9.3279e-03 , & - &6.8809e-03 ,4.2287e-03 ,9.8296e-04 /) - kao(:, 4,10, 6) = (/ & - &1.9364e-02 ,1.8152e-02 ,1.6246e-02 ,1.4125e-02 ,1.1868e-02 ,9.5176e-03 , & - &7.0263e-03 ,4.3137e-03 ,9.8595e-04 /) - kao(:, 5,10, 6) = (/ & - &1.9876e-02 ,1.8605e-02 ,1.6643e-02 ,1.4478e-02 ,1.2165e-02 ,9.7573e-03 , & - &7.2015e-03 ,4.4138e-03 ,9.9549e-04 /) - kao(:, 1,11, 6) = (/ & - &2.7906e-02 ,2.5779e-02 ,2.2845e-02 ,1.9689e-02 ,1.6356e-02 ,1.2926e-02 , & - &9.3112e-03 ,5.4266e-03 ,1.1493e-03 /) - kao(:, 2,11, 6) = (/ & - &2.8474e-02 ,2.6276e-02 ,2.3282e-02 ,2.0063e-02 ,1.6649e-02 ,1.3118e-02 , & - &9.4591e-03 ,5.5176e-03 ,1.1605e-03 /) - kao(:, 3,11, 6) = (/ & - &2.9161e-02 ,2.6826e-02 ,2.3755e-02 ,2.0435e-02 ,1.6944e-02 ,1.3356e-02 , & - &9.6281e-03 ,5.6370e-03 ,1.1658e-03 /) - kao(:, 4,11, 6) = (/ & - &2.9864e-02 ,2.7446e-02 ,2.4305e-02 ,2.0907e-02 ,1.7344e-02 ,1.3665e-02 , & - &9.8501e-03 ,5.7787e-03 ,1.1679e-03 /) - kao(:, 5,11, 6) = (/ & - &3.0716e-02 ,2.8218e-02 ,2.4989e-02 ,2.1484e-02 ,1.7837e-02 ,1.4047e-02 , & - &1.0137e-02 ,5.9391e-03 ,1.1749e-03 /) - kao(:, 1,12, 6) = (/ & - &3.1456e-02 ,2.8840e-02 ,2.5490e-02 ,2.1901e-02 ,1.8104e-02 ,1.4184e-02 , & - &1.0144e-02 ,5.8131e-03 ,1.1656e-03 /) - kao(:, 2,12, 6) = (/ & - &3.2212e-02 ,2.9507e-02 ,2.6048e-02 ,2.2347e-02 ,1.8450e-02 ,1.4457e-02 , & - &1.0325e-02 ,5.9330e-03 ,1.1607e-03 /) - kao(:, 3,12, 6) = (/ & - &3.2965e-02 ,3.0133e-02 ,2.6613e-02 ,2.2834e-02 ,1.8888e-02 ,1.4793e-02 , & - &1.0553e-02 ,6.0675e-03 ,1.1612e-03 /) - kao(:, 4,12, 6) = (/ & - &3.3903e-02 ,3.0999e-02 ,2.7365e-02 ,2.3453e-02 ,1.9368e-02 ,1.5160e-02 , & - &1.0832e-02 ,6.2310e-03 ,1.1792e-03 /) - kao(:, 5,12, 6) = (/ & - &3.4986e-02 ,3.1940e-02 ,2.8176e-02 ,2.4131e-02 ,1.9947e-02 ,1.5618e-02 , & - &1.1156e-02 ,6.4247e-03 ,1.2061e-03 /) - kao(:, 1,13, 6) = (/ & - &2.8494e-02 ,2.6140e-02 ,2.3086e-02 ,1.9829e-02 ,1.6410e-02 ,1.2869e-02 , & - &9.1750e-03 ,5.2477e-03 ,1.0839e-03 /) - kao(:, 2,13, 6) = (/ & - &2.9204e-02 ,2.6786e-02 ,2.3660e-02 ,2.0312e-02 ,1.6791e-02 ,1.3151e-02 , & - &9.3741e-03 ,5.3670e-03 ,1.0879e-03 /) - kao(:, 3,13, 6) = (/ & - &3.0028e-02 ,2.7500e-02 ,2.4267e-02 ,2.0802e-02 ,1.7182e-02 ,1.3458e-02 , & - &9.5924e-03 ,5.5018e-03 ,1.1043e-03 /) - kao(:, 4,13, 6) = (/ & - &3.0958e-02 ,2.8295e-02 ,2.4961e-02 ,2.1395e-02 ,1.7690e-02 ,1.3840e-02 , & - &9.8578e-03 ,5.6588e-03 ,1.1197e-03 /) - kao(:, 5,13, 6) = (/ & - &3.2042e-02 ,2.9250e-02 ,2.5779e-02 ,2.2082e-02 ,1.8250e-02 ,1.4290e-02 , & - &1.0177e-02 ,5.8420e-03 ,1.1367e-03 /) - kao(:, 1, 1, 7) = (/ & - &4.8330e-05 ,9.1748e-04 ,1.6343e-03 ,2.3037e-03 ,2.9566e-03 ,3.6315e-03 , & - &4.4475e-03 ,5.8406e-03 ,5.3151e-03 /) - kao(:, 2, 1, 7) = (/ & - &4.8596e-05 ,9.3271e-04 ,1.6606e-03 ,2.3393e-03 ,3.0027e-03 ,3.6916e-03 , & - &4.5243e-03 ,5.9244e-03 ,5.4196e-03 /) - kao(:, 3, 1, 7) = (/ & - &4.9220e-05 ,9.5049e-04 ,1.6928e-03 ,2.3820e-03 ,3.0582e-03 ,3.7632e-03 , & - &4.6161e-03 ,6.0368e-03 ,5.5387e-03 /) - kao(:, 4, 1, 7) = (/ & - &4.9714e-05 ,9.7063e-04 ,1.7276e-03 ,2.4311e-03 ,3.1220e-03 ,3.8430e-03 , & - &4.7205e-03 ,6.1613e-03 ,5.6708e-03 /) - kao(:, 5, 1, 7) = (/ & - &5.0550e-05 ,9.9274e-04 ,1.7651e-03 ,2.4850e-03 ,3.1923e-03 ,3.9328e-03 , & - &4.8316e-03 ,6.3027e-03 ,5.8156e-03 /) - kao(:, 1, 2, 7) = (/ & - &6.7697e-05 ,8.5995e-04 ,1.5004e-03 ,2.0933e-03 ,2.6519e-03 ,3.1963e-03 , & - &3.7792e-03 ,4.6863e-03 ,4.4711e-03 /) - kao(:, 2, 2, 7) = (/ & - &6.8123e-05 ,8.7528e-04 ,1.5266e-03 ,2.1301e-03 ,2.6961e-03 ,3.2484e-03 , & - &3.8450e-03 ,4.7682e-03 ,4.5579e-03 /) - kao(:, 3, 2, 7) = (/ & - &6.9098e-05 ,8.9351e-04 ,1.5568e-03 ,2.1723e-03 ,2.7472e-03 ,3.3096e-03 , & - &3.9205e-03 ,4.8697e-03 ,4.6570e-03 /) - kao(:, 4, 2, 7) = (/ & - &7.0075e-05 ,9.1426e-04 ,1.5908e-03 ,2.2183e-03 ,2.8071e-03 ,3.3815e-03 , & - &4.0084e-03 ,4.9811e-03 ,4.7715e-03 /) - kao(:, 5, 2, 7) = (/ & - &7.1192e-05 ,9.3706e-04 ,1.6283e-03 ,2.2693e-03 ,2.8718e-03 ,3.4625e-03 , & - &4.1070e-03 ,5.1037e-03 ,4.8979e-03 /) - kao(:, 1, 3, 7) = (/ & - &1.2733e-04 ,8.7624e-04 ,1.4506e-03 ,1.9805e-03 ,2.4757e-03 ,2.9317e-03 , & - &3.3558e-03 ,3.8170e-03 ,3.7686e-03 /) - kao(:, 2, 3, 7) = (/ & - &1.2826e-04 ,8.9276e-04 ,1.4769e-03 ,2.0153e-03 ,2.5174e-03 ,2.9784e-03 , & - &3.4075e-03 ,3.8801e-03 ,3.8344e-03 /) - kao(:, 3, 3, 7) = (/ & - &1.2973e-04 ,9.1170e-04 ,1.5076e-03 ,2.0539e-03 ,2.5651e-03 ,3.0352e-03 , & - &3.4680e-03 ,3.9525e-03 ,3.9125e-03 /) - kao(:, 4, 3, 7) = (/ & - &1.3225e-04 ,9.3418e-04 ,1.5436e-03 ,2.1000e-03 ,2.6202e-03 ,3.1002e-03 , & - &3.5421e-03 ,4.0383e-03 ,4.0057e-03 /) - kao(:, 5, 3, 7) = (/ & - &1.3440e-04 ,9.5794e-04 ,1.5825e-03 ,2.1509e-03 ,2.6822e-03 ,3.1720e-03 , & - &3.6252e-03 ,4.1370e-03 ,4.1108e-03 /) - kao(:, 1, 4, 7) = (/ & - &2.4414e-04 ,9.8791e-04 ,1.4797e-03 ,1.9337e-03 ,2.3609e-03 ,2.7541e-03 , & - &3.0988e-03 ,3.3862e-03 ,3.2303e-03 /) - kao(:, 2, 4, 7) = (/ & - &2.4513e-04 ,1.0039e-03 ,1.5070e-03 ,1.9692e-03 ,2.4021e-03 ,2.7995e-03 , & - &3.1468e-03 ,3.4333e-03 ,3.2790e-03 /) - kao(:, 3, 4, 7) = (/ & - &2.4808e-04 ,1.0229e-03 ,1.5373e-03 ,2.0098e-03 ,2.4481e-03 ,2.8491e-03 , & - &3.2030e-03 ,3.4903e-03 ,3.3384e-03 /) - kao(:, 4, 4, 7) = (/ & - &2.5202e-04 ,1.0447e-03 ,1.5721e-03 ,2.0572e-03 ,2.5035e-03 ,2.9093e-03 , & - &3.2672e-03 ,3.5611e-03 ,3.4115e-03 /) - kao(:, 5, 4, 7) = (/ & - &2.5833e-04 ,1.0719e-03 ,1.6144e-03 ,2.1102e-03 ,2.5658e-03 ,2.9793e-03 , & - &3.3418e-03 ,3.6423e-03 ,3.4938e-03 /) - kao(:, 1, 5, 7) = (/ & - &4.2770e-04 ,1.1830e-03 ,1.6220e-03 ,1.9840e-03 ,2.3123e-03 ,2.6214e-03 , & - &2.8956e-03 ,3.0934e-03 ,2.7805e-03 /) - kao(:, 2, 5, 7) = (/ & - &4.3162e-04 ,1.2016e-03 ,1.6476e-03 ,2.0183e-03 ,2.3523e-03 ,2.6652e-03 , & - &2.9419e-03 ,3.1389e-03 ,2.8192e-03 /) - kao(:, 3, 5, 7) = (/ & - &4.3693e-04 ,1.2232e-03 ,1.6764e-03 ,2.0550e-03 ,2.3985e-03 ,2.7158e-03 , & - &2.9926e-03 ,3.1918e-03 ,2.8694e-03 /) - kao(:, 4, 5, 7) = (/ & - &4.4235e-04 ,1.2462e-03 ,1.7099e-03 ,2.0981e-03 ,2.4518e-03 ,2.7746e-03 , & - &3.0533e-03 ,3.2519e-03 ,2.9306e-03 /) - kao(:, 5, 5, 7) = (/ & - &4.5257e-04 ,1.2739e-03 ,1.7526e-03 ,2.1524e-03 ,2.5133e-03 ,2.8432e-03 , & - &3.1246e-03 ,3.3219e-03 ,2.9994e-03 /) - kao(:, 1, 6, 7) = (/ & - &6.9917e-04 ,1.4510e-03 ,1.8508e-03 ,2.1612e-03 ,2.3969e-03 ,2.5820e-03 , & - &2.7369e-03 ,2.8411e-03 ,2.3809e-03 /) - kao(:, 2, 6, 7) = (/ & - &7.0685e-04 ,1.4737e-03 ,1.8819e-03 ,2.1948e-03 ,2.4365e-03 ,2.6262e-03 , & - &2.7822e-03 ,2.8845e-03 ,2.4163e-03 /) - kao(:, 3, 6, 7) = (/ & - &7.1685e-04 ,1.4992e-03 ,1.9139e-03 ,2.2300e-03 ,2.4777e-03 ,2.6750e-03 , & - &2.8324e-03 ,2.9331e-03 ,2.4594e-03 /) - kao(:, 4, 6, 7) = (/ & - &7.2831e-04 ,1.5276e-03 ,1.9491e-03 ,2.2715e-03 ,2.5262e-03 ,2.7293e-03 , & - &2.8927e-03 ,2.9913e-03 ,2.5109e-03 /) - kao(:, 5, 6, 7) = (/ & - &7.4174e-04 ,1.5586e-03 ,1.9900e-03 ,2.3214e-03 ,2.5825e-03 ,2.7929e-03 , & - &2.9629e-03 ,3.0587e-03 ,2.5688e-03 /) - kao(:, 1, 7, 7) = (/ & - &1.2039e-03 ,1.9587e-03 ,2.2962e-03 ,2.5331e-03 ,2.6974e-03 ,2.7733e-03 , & - &2.7634e-03 ,2.6777e-03 ,2.0245e-03 /) - kao(:, 2, 7, 7) = (/ & - &1.2204e-03 ,1.9874e-03 ,2.3314e-03 ,2.5722e-03 ,2.7404e-03 ,2.8207e-03 , & - &2.8122e-03 ,2.7221e-03 ,2.0503e-03 /) - kao(:, 3, 7, 7) = (/ & - &1.2400e-03 ,2.0184e-03 ,2.3716e-03 ,2.6156e-03 ,2.7851e-03 ,2.8685e-03 , & - &2.8623e-03 ,2.7709e-03 ,2.0844e-03 /) - kao(:, 4, 7, 7) = (/ & - &1.2633e-03 ,2.0537e-03 ,2.4164e-03 ,2.6645e-03 ,2.8368e-03 ,2.9213e-03 , & - &2.9184e-03 ,2.8302e-03 ,2.1246e-03 /) - kao(:, 5, 7, 7) = (/ & - &1.2880e-03 ,2.0946e-03 ,2.4660e-03 ,2.7241e-03 ,2.8956e-03 ,2.9852e-03 , & - &2.9850e-03 ,2.8977e-03 ,2.1717e-03 /) - kao(:, 1, 8, 7) = (/ & - &2.4360e-03 ,3.2317e-03 ,3.4336e-03 ,3.4928e-03 ,3.4872e-03 ,3.3872e-03 , & - &3.1811e-03 ,2.7989e-03 ,1.6994e-03 /) - kao(:, 2, 8, 7) = (/ & - &2.4784e-03 ,3.2772e-03 ,3.4707e-03 ,3.5477e-03 ,3.5429e-03 ,3.4442e-03 , & - &3.2393e-03 ,2.8503e-03 ,1.7216e-03 /) - kao(:, 3, 8, 7) = (/ & - &2.5215e-03 ,3.3205e-03 ,3.5181e-03 ,3.6097e-03 ,3.6079e-03 ,3.5043e-03 , & - &3.2957e-03 ,2.9015e-03 ,1.7516e-03 /) - kao(:, 4, 8, 7) = (/ & - &2.5734e-03 ,3.3690e-03 ,3.5815e-03 ,3.6774e-03 ,3.6742e-03 ,3.5696e-03 , & - &3.3583e-03 ,2.9597e-03 ,1.7852e-03 /) - kao(:, 5, 8, 7) = (/ & - &2.6287e-03 ,3.4209e-03 ,3.6564e-03 ,3.7526e-03 ,3.7488e-03 ,3.6496e-03 , & - &3.4322e-03 ,3.0257e-03 ,1.8234e-03 /) - kao(:, 1, 9, 7) = (/ & - &9.2016e-03 ,9.7823e-03 ,9.4145e-03 ,8.7411e-03 ,7.8879e-03 ,6.8736e-03 , & - &5.6569e-03 ,4.2025e-03 ,1.5538e-03 /) - kao(:, 2, 9, 7) = (/ & - &9.3962e-03 ,9.9769e-03 ,9.5905e-03 ,8.8876e-03 ,8.0147e-03 ,6.9737e-03 , & - &5.7408e-03 ,4.2797e-03 ,1.5748e-03 /) - kao(:, 3, 9, 7) = (/ & - &9.5905e-03 ,1.0169e-02 ,9.7567e-03 ,9.0284e-03 ,8.1348e-03 ,7.0770e-03 , & - &5.8473e-03 ,4.3619e-03 ,1.5893e-03 /) - kao(:, 4, 9, 7) = (/ & - &9.8163e-03 ,1.0370e-02 ,9.9309e-03 ,9.1820e-03 ,8.2703e-03 ,7.1825e-03 , & - &5.9588e-03 ,4.4477e-03 ,1.6087e-03 /) - kao(:, 5, 9, 7) = (/ & - &1.0054e-02 ,1.0584e-02 ,1.0131e-02 ,9.3626e-03 ,8.4298e-03 ,7.3350e-03 , & - &6.0835e-03 ,4.5437e-03 ,1.6313e-03 /) - kao(:, 1,10, 7) = (/ & - &3.9276e-02 ,3.6749e-02 ,3.3301e-02 ,2.9241e-02 ,2.4794e-02 ,2.0028e-02 , & - &1.4912e-02 ,9.3013e-03 ,2.0443e-03 /) - kao(:, 2,10, 7) = (/ & - &4.0105e-02 ,3.7556e-02 ,3.4005e-02 ,2.9863e-02 ,2.5353e-02 ,2.0438e-02 , & - &1.5180e-02 ,9.4819e-03 ,2.0242e-03 /) - kao(:, 3,10, 7) = (/ & - &4.0916e-02 ,3.8307e-02 ,3.4681e-02 ,3.0487e-02 ,2.5876e-02 ,2.0814e-02 , & - &1.5451e-02 ,9.6638e-03 ,2.0047e-03 /) - kao(:, 4,10, 7) = (/ & - &4.1894e-02 ,3.9199e-02 ,3.5443e-02 ,3.1118e-02 ,2.6390e-02 ,2.1233e-02 , & - &1.5746e-02 ,9.8447e-03 ,2.0155e-03 /) - kao(:, 5,10, 7) = (/ & - &4.2954e-02 ,4.0161e-02 ,3.6290e-02 ,3.1839e-02 ,2.6971e-02 ,2.1693e-02 , & - &1.6115e-02 ,1.0055e-02 ,2.0394e-03 /) - kao(:, 1,11, 7) = (/ & - &6.0955e-02 ,5.5737e-02 ,4.9723e-02 ,4.3019e-02 ,3.5876e-02 ,2.8379e-02 , & - &2.0432e-02 ,1.2085e-02 ,2.3716e-03 /) - kao(:, 2,11, 7) = (/ & - &6.2198e-02 ,5.6869e-02 ,5.0662e-02 ,4.3787e-02 ,3.6565e-02 ,2.8915e-02 , & - &2.0814e-02 ,1.2323e-02 ,2.3542e-03 /) - kao(:, 3,11, 7) = (/ & - &6.3419e-02 ,5.8024e-02 ,5.1697e-02 ,4.4702e-02 ,3.7324e-02 ,2.9465e-02 , & - &2.1204e-02 ,1.2555e-02 ,2.3313e-03 /) - kao(:, 4,11, 7) = (/ & - &6.4926e-02 ,5.9386e-02 ,5.2869e-02 ,4.5680e-02 ,3.8119e-02 ,3.0075e-02 , & - &2.1667e-02 ,1.2812e-02 ,2.3155e-03 /) - kao(:, 5,11, 7) = (/ & - &6.6635e-02 ,6.0864e-02 ,5.4124e-02 ,4.6774e-02 ,3.9011e-02 ,3.0829e-02 , & - &2.2206e-02 ,1.3119e-02 ,2.3251e-03 /) - kao(:, 1,12, 7) = (/ & - &6.9869e-02 ,6.3637e-02 ,5.6420e-02 ,4.8546e-02 ,4.0307e-02 ,3.1740e-02 , & - &2.2682e-02 ,1.3139e-02 ,2.4428e-03 /) - kao(:, 2,12, 7) = (/ & - &7.1577e-02 ,6.5133e-02 ,5.7685e-02 ,4.9634e-02 ,4.1244e-02 ,3.2466e-02 , & - &2.3165e-02 ,1.3402e-02 ,2.4417e-03 /) - kao(:, 3,12, 7) = (/ & - &7.3435e-02 ,6.6765e-02 ,5.9111e-02 ,5.0782e-02 ,4.2090e-02 ,3.3070e-02 , & - &2.3631e-02 ,1.3663e-02 ,2.4312e-03 /) - kao(:, 4,12, 7) = (/ & - &7.5274e-02 ,6.8406e-02 ,6.0539e-02 ,5.2024e-02 ,4.3158e-02 ,3.3897e-02 , & - &2.4213e-02 ,1.3961e-02 ,2.4213e-03 /) - kao(:, 5,12, 7) = (/ & - &7.7518e-02 ,7.0447e-02 ,6.2339e-02 ,5.3608e-02 ,4.4457e-02 ,3.4884e-02 , & - &2.4882e-02 ,1.4302e-02 ,2.4144e-03 /) - kao(:, 1,13, 7) = (/ & - &6.3971e-02 ,5.8270e-02 ,5.1535e-02 ,4.4263e-02 ,3.6709e-02 ,2.8872e-02 , & - &2.0629e-02 ,1.1917e-02 ,2.3953e-03 /) - kao(:, 2,13, 7) = (/ & - &6.5643e-02 ,5.9813e-02 ,5.2890e-02 ,4.5419e-02 ,3.7684e-02 ,2.9600e-02 , & - &2.1119e-02 ,1.2188e-02 ,2.4046e-03 /) - kao(:, 3,13, 7) = (/ & - &6.7472e-02 ,6.1457e-02 ,5.4341e-02 ,4.6654e-02 ,3.8721e-02 ,3.0402e-02 , & - &2.1696e-02 ,1.2486e-02 ,2.3922e-03 /) - kao(:, 4,13, 7) = (/ & - &6.9579e-02 ,6.3365e-02 ,5.6023e-02 ,4.8132e-02 ,3.9923e-02 ,3.1337e-02 , & - &2.2348e-02 ,1.2806e-02 ,2.3768e-03 /) - kao(:, 5,13, 7) = (/ & - &7.1993e-02 ,6.5596e-02 ,5.7974e-02 ,4.9776e-02 ,4.1204e-02 ,3.2317e-02 , & - &2.3035e-02 ,1.3183e-02 ,2.3765e-03 /) - kao(:, 1, 1, 8) = (/ & - &1.3552e-04 ,2.4322e-03 ,4.1951e-03 ,5.8754e-03 ,7.6297e-03 ,9.6149e-03 , & - &1.1994e-02 ,1.5380e-02 ,1.4856e-02 /) - kao(:, 2, 1, 8) = (/ & - &1.3805e-04 ,2.4459e-03 ,4.2175e-03 ,5.9121e-03 ,7.6823e-03 ,9.6825e-03 , & - &1.2072e-02 ,1.5469e-02 ,1.4971e-02 /) - kao(:, 3, 1, 8) = (/ & - &1.4131e-04 ,2.4661e-03 ,4.2478e-03 ,5.9602e-03 ,7.7525e-03 ,9.7747e-03 , & - &1.2179e-02 ,1.5577e-02 ,1.5128e-02 /) - kao(:, 4, 1, 8) = (/ & - &1.4377e-04 ,2.4912e-03 ,4.2859e-03 ,6.0170e-03 ,7.8373e-03 ,9.8887e-03 , & - &1.2314e-02 ,1.5728e-02 ,1.5316e-02 /) - kao(:, 5, 1, 8) = (/ & - &1.4692e-04 ,2.5205e-03 ,4.3310e-03 ,6.0836e-03 ,7.9343e-03 ,1.0019e-02 , & - &1.2473e-02 ,1.5904e-02 ,1.5528e-02 /) - kao(:, 1, 2, 8) = (/ & - &1.8928e-04 ,2.4121e-03 ,4.0623e-03 ,5.5541e-03 ,6.9898e-03 ,8.5008e-03 , & - &1.0323e-02 ,1.3028e-02 ,1.2924e-02 /) - kao(:, 2, 2, 8) = (/ & - &1.9267e-04 ,2.4360e-03 ,4.0898e-03 ,5.5901e-03 ,7.0384e-03 ,8.5652e-03 , & - &1.0405e-02 ,1.3116e-02 ,1.3041e-02 /) - kao(:, 3, 2, 8) = (/ & - &1.9724e-04 ,2.4656e-03 ,4.1277e-03 ,5.6355e-03 ,7.0999e-03 ,8.6497e-03 , & - &1.0515e-02 ,1.3234e-02 ,1.3193e-02 /) - kao(:, 4, 2, 8) = (/ & - &2.0128e-04 ,2.4981e-03 ,4.1715e-03 ,5.6919e-03 ,7.1715e-03 ,8.7477e-03 , & - &1.0645e-02 ,1.3388e-02 ,1.3368e-02 /) - kao(:, 5, 2, 8) = (/ & - &2.0477e-04 ,2.5328e-03 ,4.2216e-03 ,5.7557e-03 ,7.2538e-03 ,8.8556e-03 , & - &1.0788e-02 ,1.3565e-02 ,1.3563e-02 /) - kao(:, 1, 3, 8) = (/ & - &3.5927e-04 ,2.5910e-03 ,4.2037e-03 ,5.6032e-03 ,6.8389e-03 ,7.9673e-03 , & - &9.0787e-03 ,1.0659e-02 ,1.1075e-02 /) - kao(:, 2, 3, 8) = (/ & - &3.6570e-04 ,2.6231e-03 ,4.2518e-03 ,5.6510e-03 ,6.8860e-03 ,8.0235e-03 , & - &9.1475e-03 ,1.0746e-02 ,1.1185e-02 /) - kao(:, 3, 3, 8) = (/ & - &3.7255e-04 ,2.6596e-03 ,4.3088e-03 ,5.7121e-03 ,6.9479e-03 ,8.0889e-03 , & - &9.2308e-03 ,1.0860e-02 ,1.1321e-02 /) - kao(:, 4, 3, 8) = (/ & - &3.8155e-04 ,2.7037e-03 ,4.3688e-03 ,5.7837e-03 ,7.0219e-03 ,8.1712e-03 , & - &9.3303e-03 ,1.0993e-02 ,1.1473e-02 /) - kao(:, 5, 3, 8) = (/ & - &3.8777e-04 ,2.7514e-03 ,4.4348e-03 ,5.8612e-03 ,7.1061e-03 ,8.2670e-03 , & - &9.4452e-03 ,1.1141e-02 ,1.1658e-02 /) - kao(:, 1, 4, 8) = (/ & - &6.9620e-04 ,2.9029e-03 ,4.4649e-03 ,5.7896e-03 ,6.9152e-03 ,7.8788e-03 , & - &8.6335e-03 ,9.2668e-03 ,9.4651e-03 /) - kao(:, 2, 4, 8) = (/ & - &7.1019e-04 ,2.9517e-03 ,4.5263e-03 ,5.8664e-03 ,6.9912e-03 ,7.9468e-03 , & - &8.6984e-03 ,9.3401e-03 ,9.5623e-03 /) - kao(:, 3, 4, 8) = (/ & - &7.2359e-04 ,3.0044e-03 ,4.5979e-03 ,5.9489e-03 ,7.0830e-03 ,8.0315e-03 , & - &8.7768e-03 ,9.4291e-03 ,9.6859e-03 /) - kao(:, 4, 4, 8) = (/ & - &7.3828e-04 ,3.0619e-03 ,4.6789e-03 ,6.0379e-03 ,7.1842e-03 ,8.1322e-03 , & - &8.8743e-03 ,9.5317e-03 ,9.8248e-03 /) - kao(:, 5, 4, 8) = (/ & - &7.5535e-04 ,3.1266e-03 ,4.7671e-03 ,6.1369e-03 ,7.2972e-03 ,8.2469e-03 , & - &8.9884e-03 ,9.6595e-03 ,9.9955e-03 /) - kao(:, 1, 5, 8) = (/ & - &1.2367e-03 ,3.3787e-03 ,4.7869e-03 ,5.9863e-03 ,7.0094e-03 ,7.8065e-03 , & - &8.3893e-03 ,8.6393e-03 ,8.1050e-03 /) - kao(:, 2, 5, 8) = (/ & - &1.2606e-03 ,3.4408e-03 ,4.8727e-03 ,6.0829e-03 ,7.1090e-03 ,7.9083e-03 , & - &8.4736e-03 ,8.7084e-03 ,8.1896e-03 /) - kao(:, 3, 5, 8) = (/ & - &1.2858e-03 ,3.5058e-03 ,4.9695e-03 ,6.1896e-03 ,7.2184e-03 ,8.0235e-03 , & - &8.5795e-03 ,8.7948e-03 ,8.2945e-03 /) - kao(:, 4, 5, 8) = (/ & - &1.3144e-03 ,3.5781e-03 ,5.0734e-03 ,6.3066e-03 ,7.3381e-03 ,8.1502e-03 , & - &8.7050e-03 ,8.8972e-03 ,8.4098e-03 /) - kao(:, 5, 5, 8) = (/ & - &1.3469e-03 ,3.6641e-03 ,5.1833e-03 ,6.4362e-03 ,7.4701e-03 ,8.2878e-03 , & - &8.8414e-03 ,9.0166e-03 ,8.5483e-03 /) - kao(:, 1, 6, 8) = (/ & - &2.0401e-03 ,4.1601e-03 ,5.3408e-03 ,6.2948e-03 ,7.1082e-03 ,7.7648e-03 , & - &8.1607e-03 ,8.2016e-03 ,6.9653e-03 /) - kao(:, 2, 6, 8) = (/ & - &2.0844e-03 ,4.2423e-03 ,5.4455e-03 ,6.4160e-03 ,7.2313e-03 ,7.8855e-03 , & - &8.2759e-03 ,8.2810e-03 ,7.0331e-03 /) - kao(:, 3, 6, 8) = (/ & - &2.1282e-03 ,4.3237e-03 ,5.5575e-03 ,6.5512e-03 ,7.3708e-03 ,8.0202e-03 , & - &8.4033e-03 ,8.3806e-03 ,7.1162e-03 /) - kao(:, 4, 6, 8) = (/ & - &2.1756e-03 ,4.4109e-03 ,5.6792e-03 ,6.6960e-03 ,7.5224e-03 ,8.1665e-03 , & - &8.5397e-03 ,8.4981e-03 ,7.2093e-03 /) - kao(:, 5, 6, 8) = (/ & - &2.2255e-03 ,4.5091e-03 ,5.8068e-03 ,6.8485e-03 ,7.6856e-03 ,8.3228e-03 , & - &8.6864e-03 ,8.6279e-03 ,7.3203e-03 /) - kao(:, 1, 7, 8) = (/ & - &3.5433e-03 ,5.7288e-03 ,6.6788e-03 ,7.3197e-03 ,7.7679e-03 ,8.0638e-03 , & - &8.2036e-03 ,7.9558e-03 ,6.0055e-03 /) - kao(:, 2, 7, 8) = (/ & - &3.6269e-03 ,5.8458e-03 ,6.8139e-03 ,7.4674e-03 ,7.9220e-03 ,8.2152e-03 , & - &8.3417e-03 ,8.0664e-03 ,6.0619e-03 /) - kao(:, 3, 7, 8) = (/ & - &3.7095e-03 ,5.9702e-03 ,6.9487e-03 ,7.6264e-03 ,8.0952e-03 ,8.3842e-03 , & - &8.4920e-03 ,8.1889e-03 ,6.1273e-03 /) - kao(:, 4, 7, 8) = (/ & - &3.7971e-03 ,6.0972e-03 ,7.0950e-03 ,7.7981e-03 ,8.2789e-03 ,8.5668e-03 , & - &8.6571e-03 ,8.3173e-03 ,6.2019e-03 /) - kao(:, 5, 7, 8) = (/ & - &3.8894e-03 ,6.2311e-03 ,7.2602e-03 ,7.9756e-03 ,8.4749e-03 ,8.7608e-03 , & - &8.8292e-03 ,8.4586e-03 ,6.2926e-03 /) - kao(:, 1, 8, 8) = (/ & - &7.2384e-03 ,9.3960e-03 ,1.0099e-02 ,1.0331e-02 ,1.0208e-02 ,9.8199e-03 , & - &9.1852e-03 ,8.2577e-03 ,5.1301e-03 /) - kao(:, 2, 8, 8) = (/ & - &7.4182e-03 ,9.6243e-03 ,1.0349e-02 ,1.0556e-02 ,1.0419e-02 ,1.0021e-02 , & - &9.3680e-03 ,8.3968e-03 ,5.1752e-03 /) - kao(:, 3, 8, 8) = (/ & - &7.6043e-03 ,9.8546e-03 ,1.0598e-02 ,1.0777e-02 ,1.0633e-02 ,1.0249e-02 , & - &9.5676e-03 ,8.5508e-03 ,5.2269e-03 /) - kao(:, 4, 8, 8) = (/ & - &7.7980e-03 ,1.0094e-02 ,1.0836e-02 ,1.1012e-02 ,1.0870e-02 ,1.0482e-02 , & - &9.7866e-03 ,8.7162e-03 ,5.2872e-03 /) - kao(:, 5, 8, 8) = (/ & - &8.0005e-03 ,1.0352e-02 ,1.1093e-02 ,1.1272e-02 ,1.1127e-02 ,1.0726e-02 , & - &1.0012e-02 ,8.8875e-03 ,5.3638e-03 /) - kao(:, 1, 9, 8) = (/ & - &2.7897e-02 ,2.8473e-02 ,2.7594e-02 ,2.5806e-02 ,2.3354e-02 ,2.0346e-02 , & - &1.6782e-02 ,1.2341e-02 ,4.1787e-03 /) - kao(:, 2, 9, 8) = (/ & - &2.8638e-02 ,2.9187e-02 ,2.8303e-02 ,2.6475e-02 ,2.3949e-02 ,2.0857e-02 , & - &1.7181e-02 ,1.2602e-02 ,4.2128e-03 /) - kao(:, 3, 9, 8) = (/ & - &2.9413e-02 ,2.9901e-02 ,2.8994e-02 ,2.7143e-02 ,2.4571e-02 ,2.1381e-02 , & - &1.7560e-02 ,1.2888e-02 ,4.2655e-03 /) - kao(:, 4, 9, 8) = (/ & - &3.0228e-02 ,3.0665e-02 ,2.9734e-02 ,2.7828e-02 ,2.5188e-02 ,2.1923e-02 , & - &1.7970e-02 ,1.3183e-02 ,4.3190e-03 /) - kao(:, 5, 9, 8) = (/ & - &3.1084e-02 ,3.1463e-02 ,3.0494e-02 ,2.8550e-02 ,2.5844e-02 ,2.2478e-02 , & - &1.8412e-02 ,1.3496e-02 ,4.3806e-03 /) - kao(:, 1,10, 8) = (/ & - &1.1962e-01 ,1.0878e-01 ,9.8349e-02 ,8.6745e-02 ,7.3912e-02 ,5.9973e-02 , & - &4.4839e-02 ,2.7943e-02 ,4.7543e-03 /) - kao(:, 2,10, 8) = (/ & - &1.2315e-01 ,1.1182e-01 ,1.0110e-01 ,8.9175e-02 ,7.5937e-02 ,6.1630e-02 , & - &4.6110e-02 ,2.8679e-02 ,4.8196e-03 /) - kao(:, 3,10, 8) = (/ & - &1.2693e-01 ,1.1500e-01 ,1.0391e-01 ,9.1586e-02 ,7.7974e-02 ,6.3317e-02 , & - &4.7374e-02 ,2.9424e-02 ,4.8761e-03 /) - kao(:, 4,10, 8) = (/ & - &1.3084e-01 ,1.1837e-01 ,1.0689e-01 ,9.4192e-02 ,8.0184e-02 ,6.5076e-02 , & - &4.8672e-02 ,3.0173e-02 ,4.8766e-03 /) - kao(:, 5,10, 8) = (/ & - &1.3499e-01 ,1.2195e-01 ,1.1004e-01 ,9.6906e-02 ,8.2479e-02 ,6.6930e-02 , & - &4.9998e-02 ,3.0984e-02 ,4.9096e-03 /) - kao(:, 1,11, 8) = (/ & - &1.7854e-01 ,1.6015e-01 ,1.4269e-01 ,1.2418e-01 ,1.0441e-01 ,8.3289e-02 , & - &6.0955e-02 ,3.6472e-02 ,5.4769e-03 /) - kao(:, 2,11, 8) = (/ & - &1.8442e-01 ,1.6524e-01 ,1.4721e-01 ,1.2815e-01 ,1.0771e-01 ,8.5980e-02 , & - &6.2870e-02 ,3.7580e-02 ,5.4728e-03 /) - kao(:, 3,11, 8) = (/ & - &1.9077e-01 ,1.7071e-01 ,1.5197e-01 ,1.3224e-01 ,1.1114e-01 ,8.8708e-02 , & - &6.4824e-02 ,3.8654e-02 ,5.4615e-03 /) - kao(:, 4,11, 8) = (/ & - &1.9746e-01 ,1.7645e-01 ,1.5699e-01 ,1.3658e-01 ,1.1475e-01 ,9.1549e-02 , & - &6.6833e-02 ,3.9764e-02 ,5.4686e-03 /) - kao(:, 5,11, 8) = (/ & - &2.0452e-01 ,1.8255e-01 ,1.6232e-01 ,1.4114e-01 ,1.1852e-01 ,9.4452e-02 , & - &6.8909e-02 ,4.0947e-02 ,5.4706e-03 /) - kao(:, 1,12, 8) = (/ & - &2.0120e-01 ,1.7983e-01 ,1.5919e-01 ,1.3760e-01 ,1.1465e-01 ,9.0568e-02 , & - &6.5383e-02 ,3.8355e-02 ,5.7670e-03 /) - kao(:, 2,12, 8) = (/ & - &2.0757e-01 ,1.8546e-01 ,1.6435e-01 ,1.4209e-01 ,1.1843e-01 ,9.3538e-02 , & - &6.7515e-02 ,3.9583e-02 ,5.7182e-03 /) - kao(:, 3,12, 8) = (/ & - &2.1449e-01 ,1.9151e-01 ,1.6961e-01 ,1.4673e-01 ,1.2244e-01 ,9.6759e-02 , & - &6.9782e-02 ,4.0857e-02 ,5.7245e-03 /) - kao(:, 4,12, 8) = (/ & - &2.2222e-01 ,1.9817e-01 ,1.7542e-01 ,1.5173e-01 ,1.2653e-01 ,1.0003e-01 , & - &7.2145e-02 ,4.2184e-02 ,5.7102e-03 /) - kao(:, 5,12, 8) = (/ & - &2.3023e-01 ,2.0507e-01 ,1.8144e-01 ,1.5689e-01 ,1.3087e-01 ,1.0351e-01 , & - &7.4642e-02 ,4.3620e-02 ,5.7450e-03 /) - kao(:, 1,13, 8) = (/ & - &1.8448e-01 ,1.6553e-01 ,1.4649e-01 ,1.2620e-01 ,1.0471e-01 ,8.2340e-02 , & - &5.9042e-02 ,3.4367e-02 ,5.6219e-03 /) - kao(:, 2,13, 8) = (/ & - &1.9034e-01 ,1.7056e-01 ,1.5103e-01 ,1.3022e-01 ,1.0811e-01 ,8.5094e-02 , & - &6.1006e-02 ,3.5479e-02 ,5.5942e-03 /) - kao(:, 3,13, 8) = (/ & - &1.9658e-01 ,1.7595e-01 ,1.5589e-01 ,1.3452e-01 ,1.1170e-01 ,8.7865e-02 , & - &6.2984e-02 ,3.6599e-02 ,5.6072e-03 /) - kao(:, 4,13, 8) = (/ & - &2.0338e-01 ,1.8188e-01 ,1.6115e-01 ,1.3898e-01 ,1.1533e-01 ,9.0760e-02 , & - &6.5090e-02 ,3.7803e-02 ,5.6436e-03 /) - kao(:, 5,13, 8) = (/ & - &2.1087e-01 ,1.8825e-01 ,1.6661e-01 ,1.4369e-01 ,1.1939e-01 ,9.3967e-02 , & - &6.7400e-02 ,3.9148e-02 ,5.6745e-03 /) - kao(:, 1, 1, 9) = (/ & - &9.4421e-04 ,7.3440e-03 ,1.3185e-02 ,1.9434e-02 ,2.5910e-02 ,3.2531e-02 , & - &3.9377e-02 ,4.6620e-02 ,5.1571e-02 /) - kao(:, 2, 1, 9) = (/ & - &9.6482e-04 ,7.2909e-03 ,1.3109e-02 ,1.9331e-02 ,2.5776e-02 ,3.2360e-02 , & - &3.9164e-02 ,4.6323e-02 ,5.1303e-02 /) - kao(:, 3, 1, 9) = (/ & - &9.8476e-04 ,7.2409e-03 ,1.3044e-02 ,1.9248e-02 ,2.5665e-02 ,3.2216e-02 , & - &3.8981e-02 ,4.6102e-02 ,5.1082e-02 /) - kao(:, 4, 1, 9) = (/ & - &1.0020e-03 ,7.1999e-03 ,1.3010e-02 ,1.9215e-02 ,2.5618e-02 ,3.2137e-02 , & - &3.8862e-02 ,4.5932e-02 ,5.0990e-02 /) - kao(:, 5, 1, 9) = (/ & - &1.0184e-03 ,7.1770e-03 ,1.3015e-02 ,1.9243e-02 ,2.5654e-02 ,3.2165e-02 , & - &3.8858e-02 ,4.5863e-02 ,5.1066e-02 /) - kao(:, 1, 2, 9) = (/ & - &1.3462e-03 ,8.0869e-03 ,1.3393e-02 ,1.9013e-02 ,2.4987e-02 ,3.1278e-02 , & - &3.7900e-02 ,4.5296e-02 ,4.9469e-02 /) - kao(:, 2, 2, 9) = (/ & - &1.3803e-03 ,8.0241e-03 ,1.3304e-02 ,1.8903e-02 ,2.4859e-02 ,3.1123e-02 , & - &3.7707e-02 ,4.5049e-02 ,4.9230e-02 /) - kao(:, 3, 2, 9) = (/ & - &1.4130e-03 ,7.9636e-03 ,1.3235e-02 ,1.8828e-02 ,2.4777e-02 ,3.1019e-02 , & - &3.7558e-02 ,4.4839e-02 ,4.9085e-02 /) - kao(:, 4, 2, 9) = (/ & - &1.4417e-03 ,7.9144e-03 ,1.3198e-02 ,1.8807e-02 ,2.4768e-02 ,3.1006e-02 , & - &3.7513e-02 ,4.4699e-02 ,4.9090e-02 /) - kao(:, 5, 2, 9) = (/ & - &1.4672e-03 ,7.8840e-03 ,1.3197e-02 ,1.8844e-02 ,2.4841e-02 ,3.1094e-02 , & - &3.7591e-02 ,4.4701e-02 ,4.9253e-02 /) - kao(:, 1, 3, 9) = (/ & - &2.5556e-03 ,1.0082e-02 ,1.5320e-02 ,1.9920e-02 ,2.4710e-02 ,2.9907e-02 , & - &3.5684e-02 ,4.2430e-02 ,4.6609e-02 /) - kao(:, 2, 3, 9) = (/ & - &2.6284e-03 ,1.0047e-02 ,1.5209e-02 ,1.9796e-02 ,2.4582e-02 ,2.9765e-02 , & - &3.5524e-02 ,4.2220e-02 ,4.6433e-02 /) - kao(:, 3, 3, 9) = (/ & - &2.6960e-03 ,1.0006e-02 ,1.5105e-02 ,1.9696e-02 ,2.4496e-02 ,2.9686e-02 , & - &3.5446e-02 ,4.2085e-02 ,4.6365e-02 /) - kao(:, 4, 3, 9) = (/ & - &2.7589e-03 ,9.9586e-03 ,1.5035e-02 ,1.9644e-02 ,2.4475e-02 ,2.9692e-02 , & - &3.5469e-02 ,4.2071e-02 ,4.6440e-02 /) - kao(:, 5, 3, 9) = (/ & - &2.8129e-03 ,9.9196e-03 ,1.4994e-02 ,1.9639e-02 ,2.4519e-02 ,2.9788e-02 , & - &3.5597e-02 ,4.2188e-02 ,4.6642e-02 /) - kao(:, 1, 4, 9) = (/ & - &4.8937e-03 ,1.3203e-02 ,1.8921e-02 ,2.3296e-02 ,2.6924e-02 ,3.0282e-02 , & - &3.4096e-02 ,3.9071e-02 ,4.3251e-02 /) - kao(:, 2, 4, 9) = (/ & - &5.0488e-03 ,1.3226e-02 ,1.8867e-02 ,2.3170e-02 ,2.6777e-02 ,3.0147e-02 , & - &3.3963e-02 ,3.8948e-02 ,4.3159e-02 /) - kao(:, 3, 4, 9) = (/ & - &5.1910e-03 ,1.3248e-02 ,1.8795e-02 ,2.3060e-02 ,2.6655e-02 ,3.0063e-02 , & - &3.3903e-02 ,3.8899e-02 ,4.3165e-02 /) - kao(:, 4, 4, 9) = (/ & - &5.3207e-03 ,1.3268e-02 ,1.8730e-02 ,2.2981e-02 ,2.6589e-02 ,3.0040e-02 , & - &3.3930e-02 ,3.8970e-02 ,4.3287e-02 /) - kao(:, 5, 4, 9) = (/ & - &5.4422e-03 ,1.3287e-02 ,1.8693e-02 ,2.2945e-02 ,2.6576e-02 ,3.0081e-02 , & - &3.4041e-02 ,3.9135e-02 ,4.3512e-02 /) - kao(:, 1, 5, 9) = (/ & - &8.5307e-03 ,1.7183e-02 ,2.3465e-02 ,2.7970e-02 ,3.1130e-02 ,3.3358e-02 , & - &3.4774e-02 ,3.6613e-02 ,3.9589e-02 /) - kao(:, 2, 5, 9) = (/ & - &8.8245e-03 ,1.7347e-02 ,2.3508e-02 ,2.7937e-02 ,3.1047e-02 ,3.3237e-02 , & - &3.4670e-02 ,3.6530e-02 ,3.9570e-02 /) - kao(:, 3, 5, 9) = (/ & - &9.0927e-03 ,1.7496e-02 ,2.3535e-02 ,2.7881e-02 ,3.0966e-02 ,3.3147e-02 , & - &3.4603e-02 ,3.6513e-02 ,3.9628e-02 /) - kao(:, 4, 5, 9) = (/ & - &9.3371e-03 ,1.7632e-02 ,2.3559e-02 ,2.7829e-02 ,3.0920e-02 ,3.3100e-02 , & - &3.4594e-02 ,3.6581e-02 ,3.9792e-02 /) - kao(:, 5, 5, 9) = (/ & - &9.5713e-03 ,1.7760e-02 ,2.3602e-02 ,2.7816e-02 ,3.0915e-02 ,3.3109e-02 , & - &3.4648e-02 ,3.6731e-02 ,4.0039e-02 /) - kao(:, 1, 6, 9) = (/ & - &1.3837e-02 ,2.2346e-02 ,2.8803e-02 ,3.3403e-02 ,3.6375e-02 ,3.7770e-02 , & - &3.7769e-02 ,3.6158e-02 ,3.5736e-02 /) - kao(:, 2, 6, 9) = (/ & - &1.4345e-02 ,2.2684e-02 ,2.9062e-02 ,3.3523e-02 ,3.6415e-02 ,3.7748e-02 , & - &3.7698e-02 ,3.6127e-02 ,3.5788e-02 /) - kao(:, 3, 6, 9) = (/ & - &1.4814e-02 ,2.3025e-02 ,2.9297e-02 ,3.3616e-02 ,3.6414e-02 ,3.7728e-02 , & - &3.7657e-02 ,3.6132e-02 ,3.5900e-02 /) - kao(:, 4, 6, 9) = (/ & - &1.5241e-02 ,2.3333e-02 ,2.9502e-02 ,3.3707e-02 ,3.6417e-02 ,3.7743e-02 , & - &3.7671e-02 ,3.6177e-02 ,3.6086e-02 /) - kao(:, 5, 6, 9) = (/ & - &1.5643e-02 ,2.3601e-02 ,2.9688e-02 ,3.3808e-02 ,3.6468e-02 ,3.7791e-02 , & - &3.7729e-02 ,3.6273e-02 ,3.6334e-02 /) - kao(:, 1, 7, 9) = (/ & - &2.3687e-02 ,3.1230e-02 ,3.7445e-02 ,4.1636e-02 ,4.4049e-02 ,4.4684e-02 , & - &4.3161e-02 ,3.8835e-02 ,3.1866e-02 /) - kao(:, 2, 7, 9) = (/ & - &2.4610e-02 ,3.1967e-02 ,3.8037e-02 ,4.2097e-02 ,4.4354e-02 ,4.4855e-02 , & - &4.3236e-02 ,3.8850e-02 ,3.1969e-02 /) - kao(:, 3, 7, 9) = (/ & - &2.5467e-02 ,3.2639e-02 ,3.8612e-02 ,4.2519e-02 ,4.4609e-02 ,4.4967e-02 , & - &4.3302e-02 ,3.8885e-02 ,3.2129e-02 /) - kao(:, 4, 7, 9) = (/ & - &2.6267e-02 ,3.3238e-02 ,3.9137e-02 ,4.2894e-02 ,4.4845e-02 ,4.5082e-02 , & - &4.3395e-02 ,3.8965e-02 ,3.2326e-02 /) - kao(:, 5, 7, 9) = (/ & - &2.6995e-02 ,3.3786e-02 ,3.9598e-02 ,4.3239e-02 ,4.5071e-02 ,4.5249e-02 , & - &4.3527e-02 ,3.9067e-02 ,3.2557e-02 /) - kao(:, 1, 8, 9) = (/ & - &4.7920e-02 ,5.2366e-02 ,5.6749e-02 ,5.9168e-02 ,5.9712e-02 ,5.8092e-02 , & - &5.3946e-02 ,4.5783e-02 ,2.8113e-02 /) - kao(:, 2, 8, 9) = (/ & - &4.9884e-02 ,5.3965e-02 ,5.8166e-02 ,6.0347e-02 ,6.0665e-02 ,5.8786e-02 , & - &5.4351e-02 ,4.5985e-02 ,2.8254e-02 /) - kao(:, 3, 8, 9) = (/ & - &5.1719e-02 ,5.5478e-02 ,5.9448e-02 ,6.1483e-02 ,6.1565e-02 ,5.9384e-02 , & - &5.4686e-02 ,4.6159e-02 ,2.8435e-02 /) - kao(:, 4, 8, 9) = (/ & - &5.3394e-02 ,5.6807e-02 ,6.0645e-02 ,6.2509e-02 ,6.2363e-02 ,5.9916e-02 , & - &5.4999e-02 ,4.6361e-02 ,2.8611e-02 /) - kao(:, 5, 8, 9) = (/ & - &5.4964e-02 ,5.7985e-02 ,6.1688e-02 ,6.3442e-02 ,6.3043e-02 ,6.0445e-02 , & - &5.5342e-02 ,4.6592e-02 ,2.8833e-02 /) - kao(:, 1, 9, 9) = (/ & - &1.8387e-01 ,1.6808e-01 ,1.5799e-01 ,1.4671e-01 ,1.3366e-01 ,1.1828e-01 , & - &9.9590e-02 ,7.4670e-02 ,2.3960e-02 /) - kao(:, 2, 9, 9) = (/ & - &1.9171e-01 ,1.7460e-01 ,1.6351e-01 ,1.5144e-01 ,1.3758e-01 ,1.2130e-01 , & - &1.0166e-01 ,7.5740e-02 ,2.4137e-02 /) - kao(:, 3, 9, 9) = (/ & - &1.9894e-01 ,1.8065e-01 ,1.6862e-01 ,1.5587e-01 ,1.4113e-01 ,1.2411e-01 , & - &1.0364e-01 ,7.6719e-02 ,2.4294e-02 /) - kao(:, 4, 9, 9) = (/ & - &2.0563e-01 ,1.8623e-01 ,1.7319e-01 ,1.5976e-01 ,1.4435e-01 ,1.2672e-01 , & - &1.0542e-01 ,7.7598e-02 ,2.4446e-02 /) - kao(:, 5, 9, 9) = (/ & - &2.1200e-01 ,1.9152e-01 ,1.7746e-01 ,1.6330e-01 ,1.4720e-01 ,1.2898e-01 , & - &1.0699e-01 ,7.8411e-02 ,2.4664e-02 /) - kao(:, 1,10, 9) = (/ & - &7.9805e-01 ,7.0103e-01 ,6.0984e-01 ,5.2274e-01 ,4.3812e-01 ,3.5220e-01 , & - &2.6270e-01 ,1.6632e-01 ,1.8620e-02 /) - kao(:, 2,10, 9) = (/ & - &8.3214e-01 ,7.3068e-01 ,6.3476e-01 ,5.4295e-01 ,4.5426e-01 ,3.6461e-01 , & - &2.7128e-01 ,1.7099e-01 ,1.8699e-02 /) - kao(:, 3,10, 9) = (/ & - &8.6405e-01 ,7.5844e-01 ,6.5814e-01 ,5.6198e-01 ,4.6922e-01 ,3.7620e-01 , & - &2.7918e-01 ,1.7530e-01 ,1.8761e-02 /) - kao(:, 4,10, 9) = (/ & - &8.9399e-01 ,7.8448e-01 ,6.8005e-01 ,5.7978e-01 ,4.8302e-01 ,3.8668e-01 , & - &2.8631e-01 ,1.7930e-01 ,1.8825e-02 /) - kao(:, 5,10, 9) = (/ & - &9.2229e-01 ,8.0909e-01 ,7.0076e-01 ,5.9657e-01 ,4.9598e-01 ,3.9642e-01 , & - &2.9286e-01 ,1.8285e-01 ,1.8959e-02 /) - kao(:, 1,11, 9) = (/ & - &1.2376e+00 ,1.0851e+00 ,9.3781e-01 ,7.9479e-01 ,6.5536e-01 ,5.1636e-01 , & - &3.7350e-01 ,2.2328e-01 ,1.9046e-02 /) - kao(:, 2,11, 9) = (/ & - &1.2888e+00 ,1.1296e+00 ,9.7557e-01 ,8.2566e-01 ,6.7951e-01 ,5.3467e-01 , & - &3.8601e-01 ,2.3011e-01 ,1.9117e-02 /) - kao(:, 3,11, 9) = (/ & - &1.3372e+00 ,1.1719e+00 ,1.0114e+00 ,8.5500e-01 ,7.0234e-01 ,5.5187e-01 , & - &3.9765e-01 ,2.3639e-01 ,1.9165e-02 /) - kao(:, 4,11, 9) = (/ & - &1.3819e+00 ,1.2109e+00 ,1.0444e+00 ,8.8194e-01 ,7.2332e-01 ,5.6752e-01 , & - &4.0827e-01 ,2.4219e-01 ,1.9058e-02 /) - kao(:, 5,11, 9) = (/ & - &1.4259e+00 ,1.2494e+00 ,1.0769e+00 ,9.0854e-01 ,7.4408e-01 ,5.8286e-01 , & - &4.1859e-01 ,2.4748e-01 ,1.9067e-02 /) - kao(:, 1,12, 9) = (/ & - &1.4243e+00 ,1.2488e+00 ,1.0789e+00 ,9.1317e-01 ,7.5092e-01 ,5.8812e-01 , & - &4.2112e-01 ,2.4611e-01 ,1.9872e-02 /) - kao(:, 2,12, 9) = (/ & - &1.4836e+00 ,1.3004e+00 ,1.1224e+00 ,9.4876e-01 ,7.7876e-01 ,6.0917e-01 , & - &4.3528e-01 ,2.5376e-01 ,2.0064e-02 /) - kao(:, 3,12, 9) = (/ & - &1.5386e+00 ,1.3484e+00 ,1.1631e+00 ,9.8199e-01 ,8.0461e-01 ,6.2868e-01 , & - &4.4843e-01 ,2.6085e-01 ,2.0179e-02 /) - kao(:, 4,12, 9) = (/ & - &1.5909e+00 ,1.3940e+00 ,1.2017e+00 ,1.0136e+00 ,8.2931e-01 ,6.4713e-01 , & - &4.6088e-01 ,2.6745e-01 ,2.0157e-02 /) - kao(:, 5,12, 9) = (/ & - &1.6423e+00 ,1.4388e+00 ,1.2396e+00 ,1.0446e+00 ,8.5343e-01 ,6.6506e-01 , & - &4.7297e-01 ,2.7367e-01 ,2.0135e-02 /) - kao(:, 1,13, 9) = (/ & - &1.3090e+00 ,1.1487e+00 ,9.9498e-01 ,8.4529e-01 ,6.9751e-01 ,5.4690e-01 , & - &3.9201e-01 ,2.2831e-01 ,1.9648e-02 /) - kao(:, 2,13, 9) = (/ & - &1.3642e+00 ,1.1967e+00 ,1.0354e+00 ,8.7822e-01 ,7.2355e-01 ,5.6643e-01 , & - &4.0528e-01 ,2.3543e-01 ,1.9783e-02 /) - kao(:, 3,13, 9) = (/ & - &1.4156e+00 ,1.2415e+00 ,1.0731e+00 ,9.0892e-01 ,7.4783e-01 ,5.8491e-01 , & - &4.1788e-01 ,2.4217e-01 ,1.9878e-02 /) - kao(:, 4,13, 9) = (/ & - &1.4652e+00 ,1.2846e+00 ,1.1094e+00 ,9.3863e-01 ,7.7135e-01 ,6.0268e-01 , & - &4.2988e-01 ,2.4851e-01 ,1.9864e-02 /) - kao(:, 5,13, 9) = (/ & - &1.5126e+00 ,1.3260e+00 ,1.1446e+00 ,9.6741e-01 ,7.9378e-01 ,6.1968e-01 , & - &4.4123e-01 ,2.5440e-01 ,1.9877e-02 /) - kao(:, 1, 1,10) = (/ & - &3.3844e-03 ,1.5864e-02 ,3.0967e-02 ,4.5960e-02 ,6.0759e-02 ,7.5076e-02 , & - &8.8299e-02 ,9.7840e-02 ,1.2109e-01 /) - kao(:, 2, 1,10) = (/ & - &3.3774e-03 ,1.5840e-02 ,3.0916e-02 ,4.5912e-02 ,6.0698e-02 ,7.5010e-02 , & - &8.8211e-02 ,9.7731e-02 ,1.2099e-01 /) - kao(:, 3, 1,10) = (/ & - &3.3575e-03 ,1.5844e-02 ,3.0912e-02 ,4.5937e-02 ,6.0728e-02 ,7.5022e-02 , & - &8.8124e-02 ,9.7474e-02 ,1.2106e-01 /) - kao(:, 4, 1,10) = (/ & - &3.3333e-03 ,1.5824e-02 ,3.0829e-02 ,4.5838e-02 ,6.0646e-02 ,7.4990e-02 , & - &8.8084e-02 ,9.7173e-02 ,1.2089e-01 /) - kao(:, 5, 1,10) = (/ & - &3.3084e-03 ,1.5776e-02 ,3.0693e-02 ,4.5649e-02 ,6.0428e-02 ,7.4773e-02 , & - &8.7909e-02 ,9.6839e-02 ,1.2042e-01 /) - kao(:, 1, 2,10) = (/ & - &5.1392e-03 ,1.7464e-02 ,3.2432e-02 ,4.7915e-02 ,6.3487e-02 ,7.8847e-02 , & - &9.3621e-02 ,1.0600e-01 ,1.2635e-01 /) - kao(:, 2, 2,10) = (/ & - &5.1325e-03 ,1.7471e-02 ,3.2464e-02 ,4.7934e-02 ,6.3521e-02 ,7.8889e-02 , & - &9.3606e-02 ,1.0592e-01 ,1.2642e-01 /) - kao(:, 3, 2,10) = (/ & - &5.1157e-03 ,1.7466e-02 ,3.2343e-02 ,4.7787e-02 ,6.3340e-02 ,7.8722e-02 , & - &9.3575e-02 ,1.0588e-01 ,1.2605e-01 /) - kao(:, 4, 2,10) = (/ & - &5.0987e-03 ,1.7399e-02 ,3.2075e-02 ,4.7428e-02 ,6.2893e-02 ,7.8221e-02 , & - &9.3145e-02 ,1.0589e-01 ,1.2513e-01 /) - kao(:, 5, 2,10) = (/ & - &5.0781e-03 ,1.7287e-02 ,3.1803e-02 ,4.7068e-02 ,6.2420e-02 ,7.7655e-02 , & - &9.2528e-02 ,1.0558e-01 ,1.2418e-01 /) - kao(:, 1, 3,10) = (/ & - &1.0449e-02 ,2.2920e-02 ,3.5229e-02 ,4.9841e-02 ,6.5300e-02 ,8.0993e-02 , & - &9.6715e-02 ,1.1178e-01 ,1.2900e-01 /) - kao(:, 2, 3,10) = (/ & - &1.0475e-02 ,2.2840e-02 ,3.5278e-02 ,4.9881e-02 ,6.5245e-02 ,8.1037e-02 , & - &9.6863e-02 ,1.1212e-01 ,1.2899e-01 /) - kao(:, 3, 3,10) = (/ & - &1.0487e-02 ,2.2756e-02 ,3.5213e-02 ,4.9645e-02 ,6.4866e-02 ,8.0649e-02 , & - &9.6451e-02 ,1.1190e-01 ,1.2830e-01 /) - kao(:, 4, 3,10) = (/ & - &1.0493e-02 ,2.2711e-02 ,3.4996e-02 ,4.9204e-02 ,6.4312e-02 ,7.9994e-02 , & - &9.5693e-02 ,1.1109e-01 ,1.2723e-01 /) - kao(:, 5, 3,10) = (/ & - &1.0487e-02 ,2.2599e-02 ,3.4737e-02 ,4.8786e-02 ,6.3856e-02 ,7.9443e-02 , & - &9.5024e-02 ,1.1021e-01 ,1.2638e-01 /) - kao(:, 1, 4,10) = (/ & - &2.1474e-02 ,3.4011e-02 ,4.5615e-02 ,5.6742e-02 ,6.8329e-02 ,8.2791e-02 , & - &9.7759e-02 ,1.1367e-01 ,1.2934e-01 /) - kao(:, 2, 4,10) = (/ & - &2.1593e-02 ,3.3751e-02 ,4.5521e-02 ,5.6645e-02 ,6.8211e-02 ,8.2434e-02 , & - &9.7517e-02 ,1.1348e-01 ,1.2896e-01 /) - kao(:, 3, 4,10) = (/ & - &2.1694e-02 ,3.3429e-02 ,4.5406e-02 ,5.6399e-02 ,6.7862e-02 ,8.1741e-02 , & - &9.6866e-02 ,1.1284e-01 ,1.2803e-01 /) - kao(:, 4, 4,10) = (/ & - &2.1761e-02 ,3.3088e-02 ,4.5200e-02 ,5.5990e-02 ,6.7313e-02 ,8.0951e-02 , & - &9.6103e-02 ,1.1192e-01 ,1.2712e-01 /) - kao(:, 5, 4,10) = (/ & - &2.1871e-02 ,3.2779e-02 ,4.4802e-02 ,5.5607e-02 ,6.6864e-02 ,8.0377e-02 , & - &9.5554e-02 ,1.1124e-01 ,1.2647e-01 /) - kao(:, 1, 5,10) = (/ & - &3.9770e-02 ,5.1894e-02 ,6.3327e-02 ,7.2180e-02 ,8.0917e-02 ,8.8056e-02 , & - &9.8598e-02 ,1.1206e-01 ,1.2671e-01 /) - kao(:, 2, 5,10) = (/ & - &4.0140e-02 ,5.1409e-02 ,6.3212e-02 ,7.2060e-02 ,8.0506e-02 ,8.7647e-02 , & - &9.8026e-02 ,1.1163e-01 ,1.2617e-01 /) - kao(:, 3, 5,10) = (/ & - &4.0492e-02 ,5.0925e-02 ,6.2882e-02 ,7.1952e-02 ,8.0008e-02 ,8.6965e-02 , & - &9.7225e-02 ,1.1094e-01 ,1.2542e-01 /) - kao(:, 4, 5,10) = (/ & - &4.0826e-02 ,5.0532e-02 ,6.2408e-02 ,7.1612e-02 ,7.9337e-02 ,8.6238e-02 , & - &9.6327e-02 ,1.1019e-01 ,1.2470e-01 /) - kao(:, 5, 5,10) = (/ & - &4.1162e-02 ,5.0261e-02 ,6.1890e-02 ,7.0980e-02 ,7.8777e-02 ,8.5713e-02 , & - &9.5778e-02 ,1.0986e-01 ,1.2449e-01 /) - kao(:, 1, 6,10) = (/ & - &6.7916e-02 ,7.7649e-02 ,8.9172e-02 ,9.6900e-02 ,1.0149e-01 ,1.0503e-01 , & - &1.0523e-01 ,1.0994e-01 ,1.2156e-01 /) - kao(:, 2, 6,10) = (/ & - &6.8757e-02 ,7.7814e-02 ,8.8891e-02 ,9.7030e-02 ,1.0144e-01 ,1.0468e-01 , & - &1.0479e-01 ,1.0906e-01 ,1.2102e-01 /) - kao(:, 3, 6,10) = (/ & - &6.9572e-02 ,7.7629e-02 ,8.8407e-02 ,9.6716e-02 ,1.0124e-01 ,1.0403e-01 , & - &1.0408e-01 ,1.0810e-01 ,1.2040e-01 /) - kao(:, 4, 6,10) = (/ & - &7.0420e-02 ,7.7345e-02 ,8.8011e-02 ,9.6134e-02 ,1.0079e-01 ,1.0305e-01 , & - &1.0321e-01 ,1.0749e-01 ,1.2017e-01 /) - kao(:, 5, 6,10) = (/ & - &7.1176e-02 ,7.7213e-02 ,8.7761e-02 ,9.5353e-02 ,9.9879e-02 ,1.0215e-01 , & - &1.0265e-01 ,1.0733e-01 ,1.2038e-01 /) - kao(:, 1, 7,10) = (/ & - &1.2127e-01 ,1.2412e-01 ,1.3217e-01 ,1.3765e-01 ,1.3951e-01 ,1.3625e-01 , & - &1.2814e-01 ,1.1487e-01 ,1.1426e-01 /) - kao(:, 2, 7,10) = (/ & - &1.2309e-01 ,1.2453e-01 ,1.3252e-01 ,1.3798e-01 ,1.3976e-01 ,1.3644e-01 , & - &1.2796e-01 ,1.1426e-01 ,1.1391e-01 /) - kao(:, 3, 7,10) = (/ & - &1.2489e-01 ,1.2494e-01 ,1.3228e-01 ,1.3764e-01 ,1.3951e-01 ,1.3625e-01 , & - &1.2756e-01 ,1.1350e-01 ,1.1349e-01 /) - kao(:, 4, 7,10) = (/ & - &1.2680e-01 ,1.2557e-01 ,1.3198e-01 ,1.3739e-01 ,1.3886e-01 ,1.3552e-01 , & - &1.2649e-01 ,1.1282e-01 ,1.1362e-01 /) - kao(:, 5, 7,10) = (/ & - &1.2852e-01 ,1.2615e-01 ,1.3199e-01 ,1.3726e-01 ,1.3802e-01 ,1.3430e-01 , & - &1.2550e-01 ,1.1257e-01 ,1.1419e-01 /) - kao(:, 1, 8,10) = (/ & - &2.5214e-01 ,2.3134e-01 ,2.3152e-01 ,2.2506e-01 ,2.1543e-01 ,2.0242e-01 , & - &1.8079e-01 ,1.4566e-01 ,1.0565e-01 /) - kao(:, 2, 8,10) = (/ & - &2.5695e-01 ,2.3363e-01 ,2.3275e-01 ,2.2604e-01 ,2.1637e-01 ,2.0282e-01 , & - &1.8105e-01 ,1.4554e-01 ,1.0546e-01 /) - kao(:, 3, 8,10) = (/ & - &2.6176e-01 ,2.3588e-01 ,2.3395e-01 ,2.2621e-01 ,2.1636e-01 ,2.0257e-01 , & - &1.8076e-01 ,1.4513e-01 ,1.0533e-01 /) - kao(:, 4, 8,10) = (/ & - &2.6651e-01 ,2.3871e-01 ,2.3539e-01 ,2.2647e-01 ,2.1633e-01 ,2.0229e-01 , & - &1.8002e-01 ,1.4419e-01 ,1.0597e-01 /) - kao(:, 5, 8,10) = (/ & - &2.7042e-01 ,2.4131e-01 ,2.3677e-01 ,2.2700e-01 ,2.1683e-01 ,2.0167e-01 , & - &1.7891e-01 ,1.4342e-01 ,1.0666e-01 /) - kao(:, 1, 9,10) = (/ & - &9.7736e-01 ,8.5726e-01 ,7.4530e-01 ,6.6330e-01 ,5.7895e-01 ,4.8711e-01 , & - &3.8944e-01 ,2.7986e-01 ,9.6120e-02 /) - kao(:, 2, 9,10) = (/ & - &1.0005e+00 ,8.7740e-01 ,7.5935e-01 ,6.7173e-01 ,5.8495e-01 ,4.9078e-01 , & - &3.9206e-01 ,2.8024e-01 ,9.6028e-02 /) - kao(:, 3, 9,10) = (/ & - &1.0238e+00 ,8.9765e-01 ,7.7412e-01 ,6.7963e-01 ,5.9056e-01 ,4.9392e-01 , & - &3.9381e-01 ,2.7971e-01 ,9.6387e-02 /) - kao(:, 4, 9,10) = (/ & - &1.0459e+00 ,9.1704e-01 ,7.8954e-01 ,6.8917e-01 ,5.9755e-01 ,4.9657e-01 , & - &3.9497e-01 ,2.7927e-01 ,9.7373e-02 /) - kao(:, 5, 9,10) = (/ & - &1.0630e+00 ,9.3201e-01 ,8.0170e-01 ,6.9634e-01 ,6.0306e-01 ,4.9955e-01 , & - &3.9651e-01 ,2.7910e-01 ,9.7962e-02 /) - kao(:, 1,10,10) = (/ & - &4.2057e+00 ,3.6817e+00 ,3.1579e+00 ,2.6346e+00 ,2.1198e+00 ,1.6450e+00 , & - &1.1902e+00 ,7.0817e-01 ,7.8303e-02 /) - kao(:, 2,10,10) = (/ & - &4.3277e+00 ,3.7881e+00 ,3.2491e+00 ,2.7104e+00 ,2.1754e+00 ,1.6774e+00 , & - &1.2094e+00 ,7.1654e-01 ,7.8798e-02 /) - kao(:, 3,10,10) = (/ & - &4.4500e+00 ,3.8956e+00 ,3.3411e+00 ,2.7869e+00 ,2.2338e+00 ,1.7120e+00 , & - &1.2289e+00 ,7.2324e-01 ,7.8857e-02 /) - kao(:, 4,10,10) = (/ & - &4.5562e+00 ,3.9883e+00 ,3.4205e+00 ,2.8532e+00 ,2.2862e+00 ,1.7446e+00 , & - &1.2492e+00 ,7.3045e-01 ,7.9497e-02 /) - kao(:, 5,10,10) = (/ & - &4.6429e+00 ,4.0644e+00 ,3.4858e+00 ,2.9077e+00 ,2.3298e+00 ,1.7714e+00 , & - &1.2652e+00 ,7.3636e-01 ,7.8315e-02 /) - kao(:, 1,11,10) = (/ & - &6.3643e+00 ,5.5702e+00 ,4.7761e+00 ,3.9823e+00 ,3.1901e+00 ,2.4267e+00 , & - &1.7139e+00 ,9.8175e-01 ,5.2396e-02 /) - kao(:, 2,11,10) = (/ & - &6.5707e+00 ,5.7511e+00 ,4.9312e+00 ,4.1117e+00 ,3.2928e+00 ,2.4948e+00 , & - &1.7532e+00 ,9.9614e-01 ,5.2761e-02 /) - kao(:, 3,11,10) = (/ & - &6.7598e+00 ,5.9160e+00 ,5.0729e+00 ,4.2301e+00 ,3.3876e+00 ,2.5590e+00 , & - &1.7914e+00 ,1.0123e+00 ,5.3574e-02 /) - kao(:, 4,11,10) = (/ & - &6.9211e+00 ,6.0577e+00 ,5.1942e+00 ,4.3313e+00 ,3.4687e+00 ,2.6150e+00 , & - &1.8227e+00 ,1.0262e+00 ,5.6608e-02 /) - kao(:, 5,11,10) = (/ & - &7.0466e+00 ,6.1673e+00 ,5.2885e+00 ,4.4096e+00 ,3.5315e+00 ,2.6584e+00 , & - &1.8463e+00 ,1.0382e+00 ,5.6583e-02 /) - kao(:, 1,12,10) = (/ & - &7.1591e+00 ,6.2650e+00 ,5.3715e+00 ,4.4783e+00 ,3.5872e+00 ,2.7305e+00 , & - &1.9173e+00 ,1.0829e+00 ,5.4364e-02 /) - kao(:, 2,12,10) = (/ & - &7.3899e+00 ,6.4678e+00 ,5.5455e+00 ,4.6234e+00 ,3.7023e+00 ,2.8086e+00 , & - &1.9670e+00 ,1.1039e+00 ,5.3004e-02 /) - kao(:, 3,12,10) = (/ & - &7.5932e+00 ,6.6457e+00 ,5.6978e+00 ,4.7509e+00 ,3.8044e+00 ,2.8774e+00 , & - &2.0093e+00 ,1.1228e+00 ,5.1959e-02 /) - kao(:, 4,12,10) = (/ & - &7.7612e+00 ,6.7925e+00 ,5.8241e+00 ,4.8562e+00 ,3.8890e+00 ,2.9344e+00 , & - &2.0429e+00 ,1.1393e+00 ,5.3174e-02 /) - kao(:, 5,12,10) = (/ & - &7.8969e+00 ,6.9118e+00 ,5.9263e+00 ,4.9415e+00 ,3.9571e+00 ,2.9804e+00 , & - &2.0685e+00 ,1.1516e+00 ,5.1704e-02 /) - kao(:, 1,13,10) = (/ & - &6.4705e+00 ,5.6627e+00 ,4.8551e+00 ,4.0480e+00 ,3.2529e+00 ,2.5042e+00 , & - &1.7607e+00 ,9.9775e-01 ,5.2819e-02 /) - kao(:, 2,13,10) = (/ & - &6.6649e+00 ,5.8328e+00 ,5.0012e+00 ,4.1701e+00 ,3.3469e+00 ,2.5698e+00 , & - &1.8026e+00 ,1.0186e+00 ,5.2318e-02 /) - kao(:, 3,13,10) = (/ & - &6.8320e+00 ,5.9796e+00 ,5.1272e+00 ,4.2755e+00 ,3.4276e+00 ,2.6233e+00 , & - &1.8383e+00 ,1.0369e+00 ,5.1248e-02 /) - kao(:, 4,13,10) = (/ & - &6.9674e+00 ,6.0982e+00 ,5.2289e+00 ,4.3604e+00 ,3.4933e+00 ,2.6647e+00 , & - &1.8662e+00 ,1.0505e+00 ,5.2356e-02 /) - kao(:, 5,13,10) = (/ & - &7.0874e+00 ,6.2027e+00 ,5.3188e+00 ,4.4355e+00 ,3.5528e+00 ,2.7014e+00 , & - &1.8899e+00 ,1.0614e+00 ,5.1111e-02 /) - kao(:, 1, 1,11) = (/ & - &4.6742e-03 ,2.0279e-02 ,3.9426e-02 ,5.8543e-02 ,7.7272e-02 ,9.5241e-02 , & - &1.1148e-01 ,1.2235e-01 ,1.5408e-01 /) - kao(:, 2, 1,11) = (/ & - &4.6073e-03 ,2.0296e-02 ,3.9412e-02 ,5.8523e-02 ,7.7232e-02 ,9.5132e-02 , & - &1.1121e-01 ,1.2184e-01 ,1.5399e-01 /) - kao(:, 3, 1,11) = (/ & - &4.5565e-03 ,2.0227e-02 ,3.9298e-02 ,5.8356e-02 ,7.7038e-02 ,9.4961e-02 , & - &1.1109e-01 ,1.2151e-01 ,1.5359e-01 /) - kao(:, 4, 1,11) = (/ & - &4.5047e-03 ,2.0130e-02 ,3.9180e-02 ,5.8173e-02 ,7.6772e-02 ,9.4618e-02 , & - &1.1074e-01 ,1.2134e-01 ,1.5306e-01 /) - kao(:, 5, 1,11) = (/ & - &4.4540e-03 ,2.0027e-02 ,3.9084e-02 ,5.8025e-02 ,7.6535e-02 ,9.4251e-02 , & - &1.1025e-01 ,1.2116e-01 ,1.5260e-01 /) - kao(:, 1, 2,11) = (/ & - &7.4064e-03 ,2.2194e-02 ,4.1767e-02 ,6.1911e-02 ,8.1938e-02 ,1.0155e-01 , & - &1.2014e-01 ,1.3485e-01 ,1.6319e-01 /) - kao(:, 2, 2,11) = (/ & - &7.3108e-03 ,2.2143e-02 ,4.1684e-02 ,6.1877e-02 ,8.1902e-02 ,1.0152e-01 , & - &1.2013e-01 ,1.3472e-01 ,1.6312e-01 /) - kao(:, 3, 2,11) = (/ & - &7.2232e-03 ,2.2079e-02 ,4.1677e-02 ,6.1891e-02 ,8.1918e-02 ,1.0151e-01 , & - &1.1999e-01 ,1.3454e-01 ,1.6316e-01 /) - kao(:, 4, 2,11) = (/ & - &7.1304e-03 ,2.2033e-02 ,4.1736e-02 ,6.1998e-02 ,8.2035e-02 ,1.0158e-01 , & - &1.1988e-01 ,1.3411e-01 ,1.6341e-01 /) - kao(:, 5, 2,11) = (/ & - &7.0357e-03 ,2.1988e-02 ,4.1742e-02 ,6.2041e-02 ,8.2077e-02 ,1.0158e-01 , & - &1.1983e-01 ,1.3366e-01 ,1.6350e-01 /) - kao(:, 1, 3,11) = (/ & - &1.5774e-02 ,2.9169e-02 ,4.5962e-02 ,6.5827e-02 ,8.6496e-02 ,1.0742e-01 , & - &1.2791e-01 ,1.4653e-01 ,1.7156e-01 /) - kao(:, 2, 3,11) = (/ & - &1.5614e-02 ,2.8989e-02 ,4.5846e-02 ,6.5612e-02 ,8.6438e-02 ,1.0734e-01 , & - &1.2776e-01 ,1.4623e-01 ,1.7149e-01 /) - kao(:, 3, 3,11) = (/ & - &1.5422e-02 ,2.8825e-02 ,4.5777e-02 ,6.5531e-02 ,8.6532e-02 ,1.0747e-01 , & - &1.2790e-01 ,1.4632e-01 ,1.7170e-01 /) - kao(:, 4, 3,11) = (/ & - &1.5220e-02 ,2.8664e-02 ,4.5718e-02 ,6.5531e-02 ,8.6682e-02 ,1.0768e-01 , & - &1.2815e-01 ,1.4661e-01 ,1.7201e-01 /) - kao(:, 5, 3,11) = (/ & - &1.5041e-02 ,2.8491e-02 ,4.5554e-02 ,6.5387e-02 ,8.6561e-02 ,1.0758e-01 , & - &1.2814e-01 ,1.4679e-01 ,1.7174e-01 /) - kao(:, 1, 4,11) = (/ & - &3.3773e-02 ,4.4438e-02 ,5.9281e-02 ,7.3962e-02 ,9.2405e-02 ,1.1202e-01 , & - &1.3347e-01 ,1.5431e-01 ,1.7769e-01 /) - kao(:, 2, 4,11) = (/ & - &3.3523e-02 ,4.4307e-02 ,5.8961e-02 ,7.3730e-02 ,9.2117e-02 ,1.1213e-01 , & - &1.3369e-01 ,1.5450e-01 ,1.7797e-01 /) - kao(:, 3, 4,11) = (/ & - &3.3236e-02 ,4.4011e-02 ,5.8687e-02 ,7.3516e-02 ,9.1754e-02 ,1.1213e-01 , & - &1.3376e-01 ,1.5472e-01 ,1.7805e-01 /) - kao(:, 4, 4,11) = (/ & - &3.2927e-02 ,4.3662e-02 ,5.8418e-02 ,7.3212e-02 ,9.1231e-02 ,1.1190e-01 , & - &1.3353e-01 ,1.5459e-01 ,1.7761e-01 /) - kao(:, 5, 4,11) = (/ & - &3.2628e-02 ,4.3294e-02 ,5.8201e-02 ,7.2680e-02 ,9.0434e-02 ,1.1128e-01 , & - &1.3281e-01 ,1.5389e-01 ,1.7655e-01 /) - kao(:, 1, 5,11) = (/ & - &6.5323e-02 ,7.2628e-02 ,8.3508e-02 ,9.5963e-02 ,1.0655e-01 ,1.2020e-01 , & - &1.3782e-01 ,1.5923e-01 ,1.8200e-01 /) - kao(:, 2, 5,11) = (/ & - &6.5064e-02 ,7.2406e-02 ,8.3203e-02 ,9.5444e-02 ,1.0632e-01 ,1.1979e-01 , & - &1.3760e-01 ,1.5925e-01 ,1.8207e-01 /) - kao(:, 3, 5,11) = (/ & - &6.4756e-02 ,7.1969e-02 ,8.2862e-02 ,9.4908e-02 ,1.0590e-01 ,1.1930e-01 , & - &1.3724e-01 ,1.5904e-01 ,1.8162e-01 /) - kao(:, 4, 5,11) = (/ & - &6.4304e-02 ,7.1135e-02 ,8.2400e-02 ,9.4416e-02 ,1.0531e-01 ,1.1853e-01 , & - &1.3656e-01 ,1.5838e-01 ,1.8061e-01 /) - kao(:, 5, 5,11) = (/ & - &6.3847e-02 ,7.0072e-02 ,8.1806e-02 ,9.3969e-02 ,1.0427e-01 ,1.1735e-01 , & - &1.3557e-01 ,1.5724e-01 ,1.7920e-01 /) - kao(:, 1, 6,11) = (/ & - &1.1614e-01 ,1.1612e-01 ,1.2461e-01 ,1.3093e-01 ,1.3774e-01 ,1.4186e-01 , & - &1.4765e-01 ,1.6150e-01 ,1.8364e-01 /) - kao(:, 2, 6,11) = (/ & - &1.1619e-01 ,1.1550e-01 ,1.2387e-01 ,1.3036e-01 ,1.3714e-01 ,1.4135e-01 , & - &1.4700e-01 ,1.6131e-01 ,1.8335e-01 /) - kao(:, 3, 6,11) = (/ & - &1.1615e-01 ,1.1477e-01 ,1.2280e-01 ,1.2991e-01 ,1.3667e-01 ,1.4072e-01 , & - &1.4596e-01 ,1.6062e-01 ,1.8242e-01 /) - kao(:, 4, 6,11) = (/ & - &1.1574e-01 ,1.1387e-01 ,1.2156e-01 ,1.2938e-01 ,1.3597e-01 ,1.3977e-01 , & - &1.4470e-01 ,1.5943e-01 ,1.8095e-01 /) - kao(:, 5, 6,11) = (/ & - &1.1520e-01 ,1.1286e-01 ,1.2034e-01 ,1.2877e-01 ,1.3515e-01 ,1.3854e-01 , & - &1.4325e-01 ,1.5816e-01 ,1.7948e-01 /) - kao(:, 1, 7,11) = (/ & - &2.1510e-01 ,1.9619e-01 ,2.0174e-01 ,1.9935e-01 ,1.9475e-01 ,1.8847e-01 , & - &1.8001e-01 ,1.6816e-01 ,1.8086e-01 /) - kao(:, 2, 7,11) = (/ & - &2.1625e-01 ,1.9617e-01 ,2.0091e-01 ,1.9825e-01 ,1.9429e-01 ,1.8801e-01 , & - &1.7902e-01 ,1.6736e-01 ,1.8038e-01 /) - kao(:, 3, 7,11) = (/ & - &2.1700e-01 ,1.9569e-01 ,1.9979e-01 ,1.9686e-01 ,1.9372e-01 ,1.8767e-01 , & - &1.7767e-01 ,1.6608e-01 ,1.7932e-01 /) - kao(:, 4, 7,11) = (/ & - &2.1676e-01 ,1.9471e-01 ,1.9847e-01 ,1.9536e-01 ,1.9293e-01 ,1.8720e-01 , & - &1.7635e-01 ,1.6450e-01 ,1.7799e-01 /) - kao(:, 5, 7,11) = (/ & - &2.1625e-01 ,1.9358e-01 ,1.9672e-01 ,1.9373e-01 ,1.9213e-01 ,1.8631e-01 , & - &1.7483e-01 ,1.6262e-01 ,1.7662e-01 /) - kao(:, 1, 8,11) = (/ & - &4.6382e-01 ,4.0807e-01 ,3.7899e-01 ,3.5840e-01 ,3.2915e-01 ,2.9613e-01 , & - &2.5854e-01 ,2.1154e-01 ,1.7388e-01 /) - kao(:, 2, 8,11) = (/ & - &4.6803e-01 ,4.1204e-01 ,3.7966e-01 ,3.5758e-01 ,3.2785e-01 ,2.9605e-01 , & - &2.5875e-01 ,2.1026e-01 ,1.7332e-01 /) - kao(:, 3, 8,11) = (/ & - &4.7076e-01 ,4.1406e-01 ,3.7922e-01 ,3.5601e-01 ,3.2603e-01 ,2.9561e-01 , & - &2.5861e-01 ,2.0864e-01 ,1.7242e-01 /) - kao(:, 4, 8,11) = (/ & - &4.7155e-01 ,4.1450e-01 ,3.7727e-01 ,3.5413e-01 ,3.2392e-01 ,2.9447e-01 , & - &2.5827e-01 ,2.0694e-01 ,1.7120e-01 /) - kao(:, 5, 8,11) = (/ & - &4.7233e-01 ,4.1516e-01 ,3.7581e-01 ,3.5208e-01 ,3.2176e-01 ,2.9332e-01 , & - &2.5728e-01 ,2.0514e-01 ,1.7042e-01 /) - kao(:, 1, 9,11) = (/ & - &1.8678e+00 ,1.6362e+00 ,1.4048e+00 ,1.1793e+00 ,9.9438e-01 ,8.2136e-01 , & - &6.2834e-01 ,4.2034e-01 ,1.6334e-01 /) - kao(:, 2, 9,11) = (/ & - &1.8906e+00 ,1.6563e+00 ,1.4224e+00 ,1.1919e+00 ,9.9937e-01 ,8.2259e-01 , & - &6.2713e-01 ,4.2292e-01 ,1.6311e-01 /) - kao(:, 3, 9,11) = (/ & - &1.9044e+00 ,1.6682e+00 ,1.4321e+00 ,1.1983e+00 ,1.0002e+00 ,8.2124e-01 , & - &6.2419e-01 ,4.2359e-01 ,1.6249e-01 /) - kao(:, 4, 9,11) = (/ & - &1.9121e+00 ,1.6748e+00 ,1.4376e+00 ,1.2016e+00 ,9.9779e-01 ,8.1901e-01 , & - &6.2159e-01 ,4.2327e-01 ,1.6166e-01 /) - kao(:, 5, 9,11) = (/ & - &1.9224e+00 ,1.6839e+00 ,1.4454e+00 ,1.2078e+00 ,9.9866e-01 ,8.1827e-01 , & - &6.1893e-01 ,4.2245e-01 ,1.6163e-01 /) - kao(:, 1,10,11) = (/ & - &8.3490e+00 ,7.3068e+00 ,6.2652e+00 ,5.2233e+00 ,4.1816e+00 ,3.1407e+00 , & - &2.1527e+00 ,1.2369e+00 ,1.2697e-01 /) - kao(:, 2,10,11) = (/ & - &8.4604e+00 ,7.4045e+00 ,6.3492e+00 ,5.2936e+00 ,4.2378e+00 ,3.1825e+00 , & - &2.1701e+00 ,1.2392e+00 ,1.2746e-01 /) - kao(:, 3,10,11) = (/ & - &8.5299e+00 ,7.4655e+00 ,6.4008e+00 ,5.3364e+00 ,4.2721e+00 ,3.2084e+00 , & - &2.1800e+00 ,1.2385e+00 ,1.2876e-01 /) - kao(:, 4,10,11) = (/ & - &8.6037e+00 ,7.5302e+00 ,6.4564e+00 ,5.3827e+00 ,4.3093e+00 ,3.2362e+00 , & - &2.1902e+00 ,1.2373e+00 ,1.3016e-01 /) - kao(:, 5,10,11) = (/ & - &8.6811e+00 ,7.5976e+00 ,6.5142e+00 ,5.4315e+00 ,4.3481e+00 ,3.2657e+00 , & - &2.2039e+00 ,1.2408e+00 ,1.3327e-01 /) - kao(:, 1,11,11) = (/ & - &1.2908e+01 ,1.1296e+01 ,9.6842e+00 ,8.0726e+00 ,6.4609e+00 ,4.8491e+00 , & - &3.2606e+00 ,1.7969e+00 ,1.0870e-01 /) - kao(:, 2,11,11) = (/ & - &1.3081e+01 ,1.1447e+01 ,9.8136e+00 ,8.1796e+00 ,6.5463e+00 ,4.9136e+00 , & - &3.2978e+00 ,1.8090e+00 ,1.0807e-01 /) - kao(:, 3,11,11) = (/ & - &1.3247e+01 ,1.1593e+01 ,9.9386e+00 ,8.2843e+00 ,6.6304e+00 ,4.9764e+00 , & - &3.3344e+00 ,1.8186e+00 ,1.0723e-01 /) - kao(:, 4,11,11) = (/ & - &1.3412e+01 ,1.1737e+01 ,1.0062e+01 ,8.3876e+00 ,6.7133e+00 ,5.0389e+00 , & - &3.3728e+00 ,1.8302e+00 ,1.0582e-01 /) - kao(:, 5,11,11) = (/ & - &1.3565e+01 ,1.1871e+01 ,1.0177e+01 ,8.4837e+00 ,6.7902e+00 ,5.0972e+00 , & - &3.4088e+00 ,1.8416e+00 ,1.0800e-01 /) - kao(:, 1,12,11) = (/ & - &1.4642e+01 ,1.2812e+01 ,1.0983e+01 ,9.1554e+00 ,7.3265e+00 ,5.4974e+00 , & - &3.7020e+00 ,2.0284e+00 ,8.2662e-02 /) - kao(:, 2,12,11) = (/ & - &1.4885e+01 ,1.3026e+01 ,1.1167e+01 ,9.3078e+00 ,7.4487e+00 ,5.5898e+00 , & - &3.7559e+00 ,2.0497e+00 ,8.1390e-02 /) - kao(:, 3,12,11) = (/ & - &1.5119e+01 ,1.3231e+01 ,1.1343e+01 ,9.4543e+00 ,7.5661e+00 ,5.6785e+00 , & - &3.8088e+00 ,2.0698e+00 ,8.0357e-02 /) - kao(:, 4,12,11) = (/ & - &1.5358e+01 ,1.3440e+01 ,1.1522e+01 ,9.6047e+00 ,7.6867e+00 ,5.7694e+00 , & - &3.8642e+00 ,2.0905e+00 ,7.9812e-02 /) - kao(:, 5,12,11) = (/ & - &1.5578e+01 ,1.3633e+01 ,1.1688e+01 ,9.7428e+00 ,7.7978e+00 ,5.8532e+00 , & - &3.9171e+00 ,2.1122e+00 ,8.2952e-02 /) - kao(:, 1,13,11) = (/ & - &1.3181e+01 ,1.1536e+01 ,9.8891e+00 ,8.2428e+00 ,6.5963e+00 ,4.9547e+00 , & - &3.3878e+00 ,1.8779e+00 ,8.5930e-02 /) - kao(:, 2,13,11) = (/ & - &1.3431e+01 ,1.1753e+01 ,1.0076e+01 ,8.3993e+00 ,6.7218e+00 ,5.0463e+00 , & - &3.4400e+00 ,1.9003e+00 ,8.2789e-02 /) - kao(:, 3,13,11) = (/ & - &1.3694e+01 ,1.1985e+01 ,1.0274e+01 ,8.5642e+00 ,6.8544e+00 ,5.1452e+00 , & - &3.4940e+00 ,1.9250e+00 ,8.1321e-02 /) - kao(:, 4,13,11) = (/ & - &1.3957e+01 ,1.2214e+01 ,1.0471e+01 ,8.7279e+00 ,6.9861e+00 ,5.2450e+00 , & - &3.5504e+00 ,1.9524e+00 ,7.8953e-02 /) - kao(:, 5,13,11) = (/ & - &1.4201e+01 ,1.2428e+01 ,1.0655e+01 ,8.8819e+00 ,7.1097e+00 ,5.3381e+00 , & - &3.6055e+00 ,1.9785e+00 ,8.1036e-02 /) - kao(:, 1, 1,12) = (/ & - &6.5787e-03 ,2.6236e-02 ,5.1362e-02 ,7.6305e-02 ,1.0073e-01 ,1.2420e-01 , & - &1.4556e-01 ,1.6001e-01 ,2.0088e-01 /) - kao(:, 2, 1,12) = (/ & - &6.5355e-03 ,2.5963e-02 ,5.1031e-02 ,7.5853e-02 ,1.0014e-01 ,1.2346e-01 , & - &1.4463e-01 ,1.5894e-01 ,1.9973e-01 /) - kao(:, 3, 1,12) = (/ & - &6.4519e-03 ,2.5842e-02 ,5.0885e-02 ,7.5629e-02 ,9.9804e-02 ,1.2294e-01 , & - &1.4394e-01 ,1.5802e-01 ,1.9913e-01 /) - kao(:, 4, 1,12) = (/ & - &6.3508e-03 ,2.5827e-02 ,5.0889e-02 ,7.5643e-02 ,9.9816e-02 ,1.2289e-01 , & - &1.4367e-01 ,1.5727e-01 ,1.9918e-01 /) - kao(:, 5, 1,12) = (/ & - &6.2468e-03 ,2.5824e-02 ,5.0882e-02 ,7.5643e-02 ,9.9840e-02 ,1.2300e-01 , & - &1.4386e-01 ,1.5674e-01 ,1.9923e-01 /) - kao(:, 1, 2,12) = (/ & - &1.0416e-02 ,2.8932e-02 ,5.5152e-02 ,8.2023e-02 ,1.0846e-01 ,1.3404e-01 , & - &1.5780e-01 ,1.7629e-01 ,2.1619e-01 /) - kao(:, 2, 2,12) = (/ & - &1.0342e-02 ,2.8637e-02 ,5.4892e-02 ,8.1654e-02 ,1.0796e-01 ,1.3340e-01 , & - &1.5695e-01 ,1.7507e-01 ,2.1532e-01 /) - kao(:, 3, 2,12) = (/ & - &1.0224e-02 ,2.8457e-02 ,5.4759e-02 ,8.1469e-02 ,1.0772e-01 ,1.3310e-01 , & - &1.5656e-01 ,1.7435e-01 ,2.1487e-01 /) - kao(:, 4, 2,12) = (/ & - &1.0091e-02 ,2.8318e-02 ,5.4670e-02 ,8.1344e-02 ,1.0759e-01 ,1.3299e-01 , & - &1.5649e-01 ,1.7414e-01 ,2.1459e-01 /) - kao(:, 5, 2,12) = (/ & - &9.9570e-03 ,2.8146e-02 ,5.4539e-02 ,8.1138e-02 ,1.0736e-01 ,1.3278e-01 , & - &1.5638e-01 ,1.7422e-01 ,2.1411e-01 /) - kao(:, 1, 3,12) = (/ & - &2.2302e-02 ,3.7417e-02 ,6.1097e-02 ,8.8747e-02 ,1.1756e-01 ,1.4593e-01 , & - &1.7314e-01 ,1.9636e-01 ,2.3403e-01 /) - kao(:, 2, 3,12) = (/ & - &2.2117e-02 ,3.6950e-02 ,6.0557e-02 ,8.8385e-02 ,1.1711e-01 ,1.4537e-01 , & - &1.7254e-01 ,1.9566e-01 ,2.3319e-01 /) - kao(:, 3, 3,12) = (/ & - &2.1903e-02 ,3.6596e-02 ,6.0142e-02 ,8.8214e-02 ,1.1684e-01 ,1.4504e-01 , & - &1.7207e-01 ,1.9507e-01 ,2.3270e-01 /) - kao(:, 4, 3,12) = (/ & - &2.1706e-02 ,3.6379e-02 ,5.9779e-02 ,8.7937e-02 ,1.1644e-01 ,1.4454e-01 , & - &1.7162e-01 ,1.9475e-01 ,2.3180e-01 /) - kao(:, 5, 3,12) = (/ & - &2.1485e-02 ,3.6152e-02 ,5.9419e-02 ,8.7609e-02 ,1.1597e-01 ,1.4392e-01 , & - &1.7083e-01 ,1.9407e-01 ,2.3079e-01 /) - kao(:, 1, 4,12) = (/ & - &4.8787e-02 ,6.0363e-02 ,7.6958e-02 ,9.9608e-02 ,1.2651e-01 ,1.5698e-01 , & - &1.8722e-01 ,2.1554e-01 ,2.5046e-01 /) - kao(:, 2, 4,12) = (/ & - &4.8476e-02 ,5.9621e-02 ,7.6177e-02 ,9.8903e-02 ,1.2601e-01 ,1.5644e-01 , & - &1.8652e-01 ,2.1472e-01 ,2.4963e-01 /) - kao(:, 3, 4,12) = (/ & - &4.8022e-02 ,5.9054e-02 ,7.5570e-02 ,9.8295e-02 ,1.2578e-01 ,1.5620e-01 , & - &1.8618e-01 ,2.1420e-01 ,2.4913e-01 /) - kao(:, 4, 4,12) = (/ & - &4.7565e-02 ,5.8399e-02 ,7.5073e-02 ,9.7780e-02 ,1.2559e-01 ,1.5591e-01 , & - &1.8579e-01 ,2.1367e-01 ,2.4858e-01 /) - kao(:, 5, 4,12) = (/ & - &4.7078e-02 ,5.7702e-02 ,7.4506e-02 ,9.7303e-02 ,1.2546e-01 ,1.5568e-01 , & - &1.8546e-01 ,2.1318e-01 ,2.4815e-01 /) - kao(:, 1, 5,12) = (/ & - &9.7499e-02 ,9.8718e-02 ,1.1395e-01 ,1.2710e-01 ,1.4448e-01 ,1.6872e-01 , & - &1.9875e-01 ,2.3006e-01 ,2.6441e-01 /) - kao(:, 2, 5,12) = (/ & - &9.6942e-02 ,9.7852e-02 ,1.1233e-01 ,1.2606e-01 ,1.4347e-01 ,1.6785e-01 , & - &1.9829e-01 ,2.2956e-01 ,2.6367e-01 /) - kao(:, 3, 5,12) = (/ & - &9.6111e-02 ,9.7066e-02 ,1.1087e-01 ,1.2520e-01 ,1.4264e-01 ,1.6720e-01 , & - &1.9804e-01 ,2.2914e-01 ,2.6333e-01 /) - kao(:, 4, 5,12) = (/ & - &9.5331e-02 ,9.6285e-02 ,1.0984e-01 ,1.2440e-01 ,1.4205e-01 ,1.6680e-01 , & - &1.9797e-01 ,2.2895e-01 ,2.6319e-01 /) - kao(:, 5, 5,12) = (/ & - &9.4443e-02 ,9.5498e-02 ,1.0898e-01 ,1.2351e-01 ,1.4175e-01 ,1.6646e-01 , & - &1.9775e-01 ,2.2870e-01 ,2.6275e-01 /) - kao(:, 1, 6,12) = (/ & - &1.8140e-01 ,1.6408e-01 ,1.7552e-01 ,1.8196e-01 ,1.8674e-01 ,1.9489e-01 , & - &2.1183e-01 ,2.4078e-01 ,2.7512e-01 /) - kao(:, 2, 6,12) = (/ & - &1.8064e-01 ,1.6323e-01 ,1.7439e-01 ,1.7956e-01 ,1.8547e-01 ,1.9334e-01 , & - &2.1068e-01 ,2.4042e-01 ,2.7473e-01 /) - kao(:, 3, 6,12) = (/ & - &1.7939e-01 ,1.6216e-01 ,1.7344e-01 ,1.7751e-01 ,1.8404e-01 ,1.9207e-01 , & - &2.1020e-01 ,2.4067e-01 ,2.7502e-01 /) - kao(:, 4, 6,12) = (/ & - &1.7796e-01 ,1.6097e-01 ,1.7233e-01 ,1.7595e-01 ,1.8277e-01 ,1.9147e-01 , & - &2.0971e-01 ,2.4067e-01 ,2.7492e-01 /) - kao(:, 5, 6,12) = (/ & - &1.7632e-01 ,1.5943e-01 ,1.7056e-01 ,1.7456e-01 ,1.8167e-01 ,1.9081e-01 , & - &2.0890e-01 ,2.4019e-01 ,2.7421e-01 /) - kao(:, 1, 7,12) = (/ & - &3.5379e-01 ,3.1064e-01 ,2.9565e-01 ,2.8816e-01 ,2.7694e-01 ,2.6472e-01 , & - &2.4939e-01 ,2.5136e-01 ,2.8304e-01 /) - kao(:, 2, 7,12) = (/ & - &3.5306e-01 ,3.1059e-01 ,2.9503e-01 ,2.8682e-01 ,2.7447e-01 ,2.6248e-01 , & - &2.4787e-01 ,2.5077e-01 ,2.8333e-01 /) - kao(:, 3, 7,12) = (/ & - &3.5170e-01 ,3.1024e-01 ,2.9413e-01 ,2.8605e-01 ,2.7226e-01 ,2.6030e-01 , & - &2.4686e-01 ,2.5055e-01 ,2.8358e-01 /) - kao(:, 4, 7,12) = (/ & - &3.4988e-01 ,3.0935e-01 ,2.9228e-01 ,2.8440e-01 ,2.7034e-01 ,2.5822e-01 , & - &2.4645e-01 ,2.4996e-01 ,2.8315e-01 /) - kao(:, 5, 7,12) = (/ & - &3.4759e-01 ,3.0773e-01 ,2.8986e-01 ,2.8199e-01 ,2.6823e-01 ,2.5660e-01 , & - &2.4547e-01 ,2.4917e-01 ,2.8239e-01 /) - kao(:, 1, 8,12) = (/ & - &8.0496e-01 ,7.0527e-01 ,6.0910e-01 ,5.5199e-01 ,5.0022e-01 ,4.3776e-01 , & - &3.7465e-01 ,3.0063e-01 ,2.8877e-01 /) - kao(:, 2, 8,12) = (/ & - &8.0672e-01 ,7.0707e-01 ,6.1070e-01 ,5.5311e-01 ,5.0061e-01 ,4.3582e-01 , & - &3.7176e-01 ,2.9952e-01 ,2.8902e-01 /) - kao(:, 3, 8,12) = (/ & - &8.0691e-01 ,7.0823e-01 ,6.1191e-01 ,5.5364e-01 ,5.0004e-01 ,4.3422e-01 , & - &3.6951e-01 ,2.9892e-01 ,2.8876e-01 /) - kao(:, 4, 8,12) = (/ & - &8.0527e-01 ,7.0753e-01 ,6.1153e-01 ,5.5173e-01 ,4.9853e-01 ,4.3157e-01 , & - &3.6699e-01 ,2.9815e-01 ,2.8834e-01 /) - kao(:, 5, 8,12) = (/ & - &8.0219e-01 ,7.0523e-01 ,6.0964e-01 ,5.4776e-01 ,4.9536e-01 ,4.2816e-01 , & - &3.6486e-01 ,2.9693e-01 ,2.8675e-01 /) - kao(:, 1, 9,12) = (/ & - &3.4182e+00 ,2.9916e+00 ,2.5652e+00 ,2.1389e+00 ,1.7153e+00 ,1.3419e+00 , & - &1.0101e+00 ,6.4726e-01 ,2.8926e-01 /) - kao(:, 2, 9,12) = (/ & - &3.4411e+00 ,3.0119e+00 ,2.5830e+00 ,2.1544e+00 ,1.7278e+00 ,1.3490e+00 , & - &1.0168e+00 ,6.4570e-01 ,2.8901e-01 /) - kao(:, 3, 9,12) = (/ & - &3.4584e+00 ,3.0278e+00 ,2.5976e+00 ,2.1679e+00 ,1.7392e+00 ,1.3535e+00 , & - &1.0208e+00 ,6.4462e-01 ,2.8863e-01 /) - kao(:, 4, 9,12) = (/ & - &3.4643e+00 ,3.0337e+00 ,2.6033e+00 ,2.1735e+00 ,1.7445e+00 ,1.3538e+00 , & - &1.0204e+00 ,6.4174e-01 ,2.8774e-01 /) - kao(:, 5, 9,12) = (/ & - &3.4625e+00 ,3.0324e+00 ,2.6029e+00 ,2.1736e+00 ,1.7453e+00 ,1.3500e+00 , & - &1.0152e+00 ,6.3782e-01 ,2.8595e-01 /) - kao(:, 1,10,12) = (/ & - &1.6048e+01 ,1.4043e+01 ,1.2038e+01 ,1.0032e+01 ,8.0269e+00 ,6.0216e+00 , & - &4.0164e+00 ,2.1217e+00 ,2.8227e-01 /) - kao(:, 2,10,12) = (/ & - &1.6256e+01 ,1.4226e+01 ,1.2195e+01 ,1.0164e+01 ,8.1333e+00 ,6.1029e+00 , & - &4.0729e+00 ,2.1442e+00 ,2.8170e-01 /) - kao(:, 3,10,12) = (/ & - &1.6399e+01 ,1.4351e+01 ,1.2303e+01 ,1.0255e+01 ,8.2073e+00 ,6.1596e+00 , & - &4.1123e+00 ,2.1594e+00 ,2.8134e-01 /) - kao(:, 4,10,12) = (/ & - &1.6465e+01 ,1.4409e+01 ,1.2353e+01 ,1.0297e+01 ,8.2414e+00 ,6.1861e+00 , & - &4.1319e+00 ,2.1644e+00 ,2.8049e-01 /) - kao(:, 5,10,12) = (/ & - &1.6472e+01 ,1.4416e+01 ,1.2359e+01 ,1.0303e+01 ,8.2464e+00 ,6.1909e+00 , & - &4.1366e+00 ,2.1582e+00 ,2.7905e-01 /) - kao(:, 1,11,12) = (/ & - &2.6190e+01 ,2.2917e+01 ,1.9644e+01 ,1.6372e+01 ,1.3098e+01 ,9.8258e+00 , & - &6.5533e+00 ,3.3347e+00 ,2.0130e-01 /) - kao(:, 2,11,12) = (/ & - &2.6572e+01 ,2.3252e+01 ,1.9932e+01 ,1.6612e+01 ,1.3292e+01 ,9.9715e+00 , & - &6.6522e+00 ,3.3768e+00 ,2.0375e-01 /) - kao(:, 3,11,12) = (/ & - &2.6794e+01 ,2.3447e+01 ,2.0099e+01 ,1.6751e+01 ,1.3404e+01 ,1.0057e+01 , & - &6.7102e+00 ,3.4019e+00 ,2.0648e-01 /) - kao(:, 4,11,12) = (/ & - &2.6905e+01 ,2.3544e+01 ,2.0183e+01 ,1.6822e+01 ,1.3461e+01 ,1.0100e+01 , & - &6.7401e+00 ,3.4102e+00 ,2.0903e-01 /) - kao(:, 5,11,12) = (/ & - &2.6968e+01 ,2.3599e+01 ,2.0230e+01 ,1.6860e+01 ,1.3492e+01 ,1.0123e+01 , & - &6.7556e+00 ,3.4122e+00 ,2.1045e-01 /) - kao(:, 1,12,12) = (/ & - &3.1310e+01 ,2.7398e+01 ,2.3484e+01 ,1.9572e+01 ,1.5659e+01 ,1.1747e+01 , & - &7.8342e+00 ,3.9879e+00 ,1.6283e-01 /) - kao(:, 2,12,12) = (/ & - &3.1751e+01 ,2.7784e+01 ,2.3816e+01 ,1.9849e+01 ,1.5882e+01 ,1.1914e+01 , & - &7.9470e+00 ,4.0341e+00 ,1.6415e-01 /) - kao(:, 3,12,12) = (/ & - &3.2043e+01 ,2.8038e+01 ,2.4036e+01 ,2.0032e+01 ,1.6028e+01 ,1.2025e+01 , & - &8.0217e+00 ,4.0620e+00 ,1.6794e-01 /) - kao(:, 4,12,12) = (/ & - &3.2220e+01 ,2.8195e+01 ,2.4168e+01 ,2.0143e+01 ,1.6116e+01 ,1.2091e+01 , & - &8.0659e+00 ,4.0753e+00 ,1.6850e-01 /) - kao(:, 5,12,12) = (/ & - &3.2373e+01 ,2.8329e+01 ,2.4283e+01 ,2.0239e+01 ,1.6193e+01 ,1.2149e+01 , & - &8.1043e+00 ,4.0871e+00 ,1.6988e-01 /) - kao(:, 1,13,12) = (/ & - &2.9544e+01 ,2.5852e+01 ,2.2161e+01 ,1.8469e+01 ,1.4777e+01 ,1.1085e+01 , & - &7.3931e+00 ,3.8439e+00 ,1.2880e-01 /) - kao(:, 2,13,12) = (/ & - &2.9974e+01 ,2.6228e+01 ,2.2483e+01 ,1.8737e+01 ,1.4992e+01 ,1.1247e+01 , & - &7.5021e+00 ,3.8830e+00 ,1.3338e-01 /) - kao(:, 3,13,12) = (/ & - &3.0254e+01 ,2.6474e+01 ,2.2694e+01 ,1.8912e+01 ,1.5132e+01 ,1.1352e+01 , & - &7.5719e+00 ,3.9004e+00 ,1.3721e-01 /) - kao(:, 4,13,12) = (/ & - &3.0504e+01 ,2.6693e+01 ,2.2881e+01 ,1.9069e+01 ,1.5258e+01 ,1.1446e+01 , & - &7.6348e+00 ,3.9163e+00 ,1.3871e-01 /) - kao(:, 5,13,12) = (/ & - &3.0781e+01 ,2.6934e+01 ,2.3088e+01 ,1.9241e+01 ,1.5395e+01 ,1.1550e+01 , & - &7.7042e+00 ,3.9392e+00 ,1.4036e-01 /) - kao(:, 1, 1,13) = (/ & - &9.0088e-03 ,3.7171e-02 ,7.3185e-02 ,1.0841e-01 ,1.4222e-01 ,1.7328e-01 , & - &1.9823e-01 ,2.0424e-01 ,2.8396e-01 /) - kao(:, 2, 1,13) = (/ & - &8.8070e-03 ,3.7017e-02 ,7.2761e-02 ,1.0769e-01 ,1.4122e-01 ,1.7208e-01 , & - &1.9703e-01 ,2.0324e-01 ,2.8185e-01 /) - kao(:, 3, 1,13) = (/ & - &8.6641e-03 ,3.6729e-02 ,7.2126e-02 ,1.0675e-01 ,1.4002e-01 ,1.7072e-01 , & - &1.9555e-01 ,2.0207e-01 ,2.7936e-01 /) - kao(:, 4, 1,13) = (/ & - &8.5351e-03 ,3.6304e-02 ,7.1373e-02 ,1.0562e-01 ,1.3853e-01 ,1.6891e-01 , & - &1.9361e-01 ,2.0011e-01 ,2.7631e-01 /) - kao(:, 5, 1,13) = (/ & - &8.4180e-03 ,3.5892e-02 ,7.0613e-02 ,1.0456e-01 ,1.3716e-01 ,1.6725e-01 , & - &1.9159e-01 ,1.9822e-01 ,2.7366e-01 /) - kao(:, 1, 2,13) = (/ & - &1.4629e-02 ,4.1401e-02 ,8.1344e-02 ,1.2092e-01 ,1.5970e-01 ,1.9686e-01 , & - &2.3007e-01 ,2.4893e-01 ,3.1872e-01 /) - kao(:, 2, 2,13) = (/ & - &1.4347e-02 ,4.1149e-02 ,8.0754e-02 ,1.2000e-01 ,1.5844e-01 ,1.9525e-01 , & - &2.2811e-01 ,2.4701e-01 ,3.1592e-01 /) - kao(:, 3, 2,13) = (/ & - &1.4116e-02 ,4.0731e-02 ,7.9979e-02 ,1.1881e-01 ,1.5685e-01 ,1.9333e-01 , & - &2.2600e-01 ,2.4518e-01 ,3.1267e-01 /) - kao(:, 4, 2,13) = (/ & - &1.3916e-02 ,4.0235e-02 ,7.9131e-02 ,1.1757e-01 ,1.5518e-01 ,1.9122e-01 , & - &2.2354e-01 ,2.4260e-01 ,3.0926e-01 /) - kao(:, 5, 2,13) = (/ & - &1.3712e-02 ,3.9826e-02 ,7.8358e-02 ,1.1644e-01 ,1.5370e-01 ,1.8938e-01 , & - &2.2131e-01 ,2.4017e-01 ,3.0647e-01 /) - kao(:, 1, 3,13) = (/ & - &3.2046e-02 ,5.1387e-02 ,8.9167e-02 ,1.3251e-01 ,1.7557e-01 ,2.1798e-01 , & - &2.5867e-01 ,2.9276e-01 ,3.4967e-01 /) - kao(:, 2, 3,13) = (/ & - &3.1484e-02 ,5.0885e-02 ,8.8511e-02 ,1.3146e-01 ,1.7409e-01 ,2.1604e-01 , & - &2.5621e-01 ,2.8967e-01 ,3.4641e-01 /) - kao(:, 3, 3,13) = (/ & - &3.1011e-02 ,5.0194e-02 ,8.7651e-02 ,1.3011e-01 ,1.7226e-01 ,2.1375e-01 , & - &2.5357e-01 ,2.8697e-01 ,3.4255e-01 /) - kao(:, 4, 3,13) = (/ & - &3.0595e-02 ,4.9306e-02 ,8.6747e-02 ,1.2888e-01 ,1.7065e-01 ,2.1172e-01 , & - &2.5094e-01 ,2.8374e-01 ,3.3932e-01 /) - kao(:, 5, 3,13) = (/ & - &3.0114e-02 ,4.8480e-02 ,8.6058e-02 ,1.2788e-01 ,1.6935e-01 ,2.1010e-01 , & - &2.4901e-01 ,2.8126e-01 ,3.3697e-01 /) - kao(:, 1, 4,13) = (/ & - &7.1437e-02 ,7.9531e-02 ,1.0765e-01 ,1.4496e-01 ,1.9060e-01 ,2.3699e-01 , & - &2.8255e-01 ,3.2483e-01 ,3.7856e-01 /) - kao(:, 2, 4,13) = (/ & - &7.0222e-02 ,7.8795e-02 ,1.0643e-01 ,1.4338e-01 ,1.8881e-01 ,2.3460e-01 , & - &2.7960e-01 ,3.2131e-01 ,3.7439e-01 /) - kao(:, 3, 4,13) = (/ & - &6.9262e-02 ,7.7852e-02 ,1.0486e-01 ,1.4165e-01 ,1.8684e-01 ,2.3207e-01 , & - &2.7650e-01 ,3.1773e-01 ,3.7008e-01 /) - kao(:, 4, 4,13) = (/ & - &6.8383e-02 ,7.7009e-02 ,1.0310e-01 ,1.4004e-01 ,1.8506e-01 ,2.2994e-01 , & - &2.7397e-01 ,3.1473e-01 ,3.6682e-01 /) - kao(:, 5, 4,13) = (/ & - &6.7482e-02 ,7.6264e-02 ,1.0166e-01 ,1.3889e-01 ,1.8370e-01 ,2.2828e-01 , & - &2.7201e-01 ,3.1244e-01 ,3.6430e-01 /) - kao(:, 1, 5,13) = (/ & - &1.4624e-01 ,1.3361e-01 ,1.5693e-01 ,1.7752e-01 ,2.1095e-01 ,2.5537e-01 , & - &3.0486e-01 ,3.5270e-01 ,4.0651e-01 /) - kao(:, 2, 5,13) = (/ & - &1.4398e-01 ,1.3165e-01 ,1.5512e-01 ,1.7519e-01 ,2.0814e-01 ,2.5302e-01 , & - &3.0184e-01 ,3.4895e-01 ,4.0217e-01 /) - kao(:, 3, 5,13) = (/ & - &1.4207e-01 ,1.3000e-01 ,1.5346e-01 ,1.7248e-01 ,2.0524e-01 ,2.5056e-01 , & - &2.9880e-01 ,3.4528e-01 ,3.9789e-01 /) - kao(:, 4, 5,13) = (/ & - &1.4038e-01 ,1.2884e-01 ,1.5157e-01 ,1.6985e-01 ,2.0246e-01 ,2.4823e-01 , & - &2.9613e-01 ,3.4225e-01 ,3.9462e-01 /) - kao(:, 5, 5,13) = (/ & - &1.3874e-01 ,1.2784e-01 ,1.4941e-01 ,1.6780e-01 ,2.0033e-01 ,2.4657e-01 , & - &2.9417e-01 ,3.3986e-01 ,3.9218e-01 /) - kao(:, 1, 6,13) = (/ & - &2.8046e-01 ,2.4640e-01 ,2.4558e-01 ,2.5477e-01 ,2.6318e-01 ,2.8661e-01 , & - &3.2769e-01 ,3.7985e-01 ,4.3568e-01 /) - kao(:, 2, 6,13) = (/ & - &2.7643e-01 ,2.4318e-01 ,2.4273e-01 ,2.5156e-01 ,2.5913e-01 ,2.8275e-01 , & - &3.2478e-01 ,3.7621e-01 ,4.3126e-01 /) - kao(:, 3, 6,13) = (/ & - &2.7290e-01 ,2.4050e-01 ,2.4016e-01 ,2.4894e-01 ,2.5526e-01 ,2.7880e-01 , & - &3.2177e-01 ,3.7266e-01 ,4.2706e-01 /) - kao(:, 4, 6,13) = (/ & - &2.7013e-01 ,2.3869e-01 ,2.3760e-01 ,2.4573e-01 ,2.5166e-01 ,2.7510e-01 , & - &3.1929e-01 ,3.6982e-01 ,4.2412e-01 /) - kao(:, 5, 6,13) = (/ & - &2.6724e-01 ,2.3701e-01 ,2.3563e-01 ,2.4210e-01 ,2.4866e-01 ,2.7240e-01 , & - &3.1774e-01 ,3.6799e-01 ,4.2206e-01 /) - kao(:, 1, 7,13) = (/ & - &5.6688e-01 ,4.9674e-01 ,4.3519e-01 ,4.2029e-01 ,3.9894e-01 ,3.7594e-01 , & - &3.7424e-01 ,4.0700e-01 ,4.6486e-01 /) - kao(:, 2, 7,13) = (/ & - &5.6062e-01 ,4.9147e-01 ,4.2917e-01 ,4.1552e-01 ,3.9325e-01 ,3.7043e-01 , & - &3.6935e-01 ,4.0348e-01 ,4.6044e-01 /) - kao(:, 3, 7,13) = (/ & - &5.5419e-01 ,4.8620e-01 ,4.2405e-01 ,4.1052e-01 ,3.8832e-01 ,3.6566e-01 , & - &3.6433e-01 ,4.0051e-01 ,4.5715e-01 /) - kao(:, 4, 7,13) = (/ & - &5.4908e-01 ,4.8208e-01 ,4.2069e-01 ,4.0630e-01 ,3.8346e-01 ,3.6097e-01 , & - &3.5952e-01 ,3.9819e-01 ,4.5457e-01 /) - kao(:, 5, 7,13) = (/ & - &5.4429e-01 ,4.7829e-01 ,4.1793e-01 ,4.0260e-01 ,3.7854e-01 ,3.5674e-01 , & - &3.5560e-01 ,3.9638e-01 ,4.5240e-01 /) - kao(:, 1, 8,13) = (/ & - &1.3466e+00 ,1.1788e+00 ,1.0111e+00 ,8.5366e-01 ,7.5173e-01 ,6.5869e-01 , & - &5.4376e-01 ,4.6329e-01 ,4.8785e-01 /) - kao(:, 2, 8,13) = (/ & - &1.3340e+00 ,1.1680e+00 ,1.0021e+00 ,8.4354e-01 ,7.4161e-01 ,6.4846e-01 , & - &5.3530e-01 ,4.5751e-01 ,4.8487e-01 /) - kao(:, 3, 8,13) = (/ & - &1.3215e+00 ,1.1573e+00 ,9.9337e-01 ,8.3476e-01 ,7.3374e-01 ,6.3918e-01 , & - &5.2901e-01 ,4.5174e-01 ,4.8277e-01 /) - kao(:, 4, 8,13) = (/ & - &1.3130e+00 ,1.1502e+00 ,9.8764e-01 ,8.2958e-01 ,7.2734e-01 ,6.3251e-01 , & - &5.2258e-01 ,4.4677e-01 ,4.8075e-01 /) - kao(:, 5, 8,13) = (/ & - &1.3037e+00 ,1.1423e+00 ,9.8136e-01 ,8.2511e-01 ,7.2245e-01 ,6.2665e-01 , & - &5.1636e-01 ,4.4197e-01 ,4.7928e-01 /) - kao(:, 1, 9,13) = (/ & - &6.0221e+00 ,5.2697e+00 ,4.5174e+00 ,3.7653e+00 ,3.0129e+00 ,2.2622e+00 , & - &1.5952e+00 ,9.9726e-01 ,5.0671e-01 /) - kao(:, 2, 9,13) = (/ & - &5.9755e+00 ,5.2290e+00 ,4.4828e+00 ,3.7364e+00 ,2.9901e+00 ,2.2441e+00 , & - &1.5732e+00 ,9.8172e-01 ,5.0573e-01 /) - kao(:, 3, 9,13) = (/ & - &5.9358e+00 ,5.1947e+00 ,4.4536e+00 ,3.7125e+00 ,2.9715e+00 ,2.2305e+00 , & - &1.5561e+00 ,9.6836e-01 ,5.0514e-01 /) - kao(:, 4, 9,13) = (/ & - &5.9085e+00 ,5.1712e+00 ,4.4336e+00 ,3.6962e+00 ,2.9588e+00 ,2.2217e+00 , & - &1.5446e+00 ,9.5878e-01 ,5.0373e-01 /) - kao(:, 5, 9,13) = (/ & - &5.8741e+00 ,5.1412e+00 ,4.4082e+00 ,3.6753e+00 ,2.9426e+00 ,2.2110e+00 , & - &1.5366e+00 ,9.5070e-01 ,5.0223e-01 /) - kao(:, 1,10,13) = (/ & - &2.9983e+01 ,2.6236e+01 ,2.2488e+01 ,1.8741e+01 ,1.4994e+01 ,1.1246e+01 , & - &7.4983e+00 ,3.7584e+00 ,5.2065e-01 /) - kao(:, 2,10,13) = (/ & - &2.9796e+01 ,2.6072e+01 ,2.2348e+01 ,1.8624e+01 ,1.4900e+01 ,1.1176e+01 , & - &7.4520e+00 ,3.7308e+00 ,5.2186e-01 /) - kao(:, 3,10,13) = (/ & - &2.9702e+01 ,2.5989e+01 ,2.2278e+01 ,1.8566e+01 ,1.4854e+01 ,1.1142e+01 , & - &7.4298e+00 ,3.7183e+00 ,5.2236e-01 /) - kao(:, 4,10,13) = (/ & - &2.9648e+01 ,2.5942e+01 ,2.2238e+01 ,1.8533e+01 ,1.4828e+01 ,1.1123e+01 , & - &7.4177e+00 ,3.7128e+00 ,5.2097e-01 /) - kao(:, 5,10,13) = (/ & - &2.9599e+01 ,2.5901e+01 ,2.2202e+01 ,1.8502e+01 ,1.4804e+01 ,1.1105e+01 , & - &7.4063e+00 ,3.7092e+00 ,5.1987e-01 /) - kao(:, 1,11,13) = (/ & - &5.1290e+01 ,4.4882e+01 ,3.8471e+01 ,3.2058e+01 ,2.5646e+01 ,1.9236e+01 , & - &1.2824e+01 ,6.4141e+00 ,5.2983e-01 /) - kao(:, 2,11,13) = (/ & - &5.1244e+01 ,4.4838e+01 ,3.8434e+01 ,3.2028e+01 ,2.5623e+01 ,1.9219e+01 , & - &1.2814e+01 ,6.4089e+00 ,5.3215e-01 /) - kao(:, 3,11,13) = (/ & - &5.1318e+01 ,4.4905e+01 ,3.8491e+01 ,3.2076e+01 ,2.5662e+01 ,1.9248e+01 , & - &1.2833e+01 ,6.4196e+00 ,5.3209e-01 /) - kao(:, 4,11,13) = (/ & - &5.1488e+01 ,4.5053e+01 ,3.8617e+01 ,3.2182e+01 ,2.5747e+01 ,1.9312e+01 , & - &1.2877e+01 ,6.4422e+00 ,5.3137e-01 /) - kao(:, 5,11,13) = (/ & - &5.1544e+01 ,4.5101e+01 ,3.8659e+01 ,3.2218e+01 ,2.5776e+01 ,1.9335e+01 , & - &1.2893e+01 ,6.4519e+00 ,5.3038e-01 /) - kao(:, 1,12,13) = (/ & - &6.4625e+01 ,5.6547e+01 ,4.8469e+01 ,4.0391e+01 ,3.2315e+01 ,2.4238e+01 , & - &1.6158e+01 ,8.0814e+00 ,4.6363e-01 /) - kao(:, 2,12,13) = (/ & - &6.4981e+01 ,5.6858e+01 ,4.8737e+01 ,4.0614e+01 ,3.2493e+01 ,2.4371e+01 , & - &1.6249e+01 ,8.1265e+00 ,4.7141e-01 /) - kao(:, 3,12,13) = (/ & - &6.5489e+01 ,5.7301e+01 ,4.9118e+01 ,4.0933e+01 ,3.2747e+01 ,2.4562e+01 , & - &1.6376e+01 ,8.1908e+00 ,4.7318e-01 /) - kao(:, 4,12,13) = (/ & - &6.5927e+01 ,5.7688e+01 ,4.9446e+01 ,4.1208e+01 ,3.2967e+01 ,2.4727e+01 , & - &1.6488e+01 ,8.2475e+00 ,4.7664e-01 /) - kao(:, 5,12,13) = (/ & - &6.6087e+01 ,5.7823e+01 ,4.9566e+01 ,4.1306e+01 ,3.3048e+01 ,2.4787e+01 , & - &1.6528e+01 ,8.2690e+00 ,4.7820e-01 /) - kao(:, 1,13,13) = (/ & - &6.4615e+01 ,5.6540e+01 ,4.8462e+01 ,4.0385e+01 ,3.2309e+01 ,2.4232e+01 , & - &1.6156e+01 ,8.0805e+00 ,4.0088e-01 /) - kao(:, 2,13,13) = (/ & - &6.5417e+01 ,5.7241e+01 ,4.9064e+01 ,4.0887e+01 ,3.2711e+01 ,2.4534e+01 , & - &1.6357e+01 ,8.1804e+00 ,3.9953e-01 /) - kao(:, 3,13,13) = (/ & - &6.6282e+01 ,5.7998e+01 ,4.9715e+01 ,4.1430e+01 ,3.3145e+01 ,2.4860e+01 , & - &1.6576e+01 ,8.2909e+00 ,4.0385e-01 /) - kao(:, 4,13,13) = (/ & - &6.6847e+01 ,5.8491e+01 ,5.0137e+01 ,4.1781e+01 ,3.3427e+01 ,2.5072e+01 , & - &1.6717e+01 ,8.3627e+00 ,4.1064e-01 /) - kao(:, 5,13,13) = (/ & - &6.7163e+01 ,5.8769e+01 ,5.0375e+01 ,4.1983e+01 ,3.3587e+01 ,2.5193e+01 , & - &1.6798e+01 ,8.4033e+00 ,4.1414e-01 /) - kao(:, 1, 1,14) = (/ & - &1.2012e-02 ,4.7001e-02 ,9.2646e-02 ,1.3669e-01 ,1.7808e-01 ,2.1465e-01 , & - &2.4110e-01 ,2.4013e-01 ,3.5593e-01 /) - kao(:, 2, 1,14) = (/ & - &1.1787e-02 ,4.6471e-02 ,9.1548e-02 ,1.3506e-01 ,1.7598e-01 ,2.1215e-01 , & - &2.3833e-01 ,2.3702e-01 ,3.5168e-01 /) - kao(:, 3, 1,14) = (/ & - &1.1552e-02 ,4.6117e-02 ,9.0846e-02 ,1.3398e-01 ,1.7452e-01 ,2.1037e-01 , & - &2.3630e-01 ,2.3518e-01 ,3.4867e-01 /) - kao(:, 4, 1,14) = (/ & - &1.1308e-02 ,4.5919e-02 ,9.0260e-02 ,1.3312e-01 ,1.7345e-01 ,2.0914e-01 , & - &2.3511e-01 ,2.3456e-01 ,3.4647e-01 /) - kao(:, 5, 1,14) = (/ & - &1.1074e-02 ,4.5680e-02 ,8.9686e-02 ,1.3217e-01 ,1.7213e-01 ,2.0750e-01 , & - &2.3330e-01 ,2.3291e-01 ,3.4372e-01 /) - kao(:, 1, 2,14) = (/ & - &1.9894e-02 ,5.5751e-02 ,1.1015e-01 ,1.6336e-01 ,2.1450e-01 ,2.6180e-01 , & - &3.0044e-01 ,3.1221e-01 ,4.2855e-01 /) - kao(:, 2, 2,14) = (/ & - &1.9495e-02 ,5.5076e-02 ,1.0879e-01 ,1.6130e-01 ,2.1180e-01 ,2.5853e-01 , & - &2.9678e-01 ,3.0859e-01 ,4.2309e-01 /) - kao(:, 3, 2,14) = (/ & - &1.9117e-02 ,5.4639e-02 ,1.0781e-01 ,1.5983e-01 ,2.0983e-01 ,2.5605e-01 , & - &2.9379e-01 ,3.0533e-01 ,4.1905e-01 /) - kao(:, 4, 2,14) = (/ & - &1.8729e-02 ,5.4397e-02 ,1.0705e-01 ,1.5861e-01 ,2.0822e-01 ,2.5408e-01 , & - &2.9159e-01 ,3.0324e-01 ,4.1584e-01 /) - kao(:, 5, 2,14) = (/ & - &1.8354e-02 ,5.4135e-02 ,1.0645e-01 ,1.5762e-01 ,2.0683e-01 ,2.5235e-01 , & - &2.8960e-01 ,3.0120e-01 ,4.1280e-01 /) - kao(:, 1, 3,14) = (/ & - &4.4808e-02 ,6.8120e-02 ,1.3030e-01 ,1.9402e-01 ,2.5661e-01 ,3.1701e-01 , & - &3.7210e-01 ,4.0841e-01 ,5.1219e-01 /) - kao(:, 2, 3,14) = (/ & - &4.3894e-02 ,6.7026e-02 ,1.2859e-01 ,1.9144e-01 ,2.5317e-01 ,3.1271e-01 , & - &3.6711e-01 ,4.0328e-01 ,5.0524e-01 /) - kao(:, 3, 3,14) = (/ & - &4.3009e-02 ,6.6189e-02 ,1.2745e-01 ,1.8969e-01 ,2.5081e-01 ,3.0975e-01 , & - &3.6348e-01 ,3.9877e-01 ,5.0039e-01 /) - kao(:, 4, 3,14) = (/ & - &4.2131e-02 ,6.5604e-02 ,1.2666e-01 ,1.8820e-01 ,2.4871e-01 ,3.0709e-01 , & - &3.6038e-01 ,3.9547e-01 ,4.9608e-01 /) - kao(:, 5, 3,14) = (/ & - &4.1300e-02 ,6.4954e-02 ,1.2597e-01 ,1.8706e-01 ,2.4708e-01 ,3.0499e-01 , & - &3.5781e-01 ,3.9252e-01 ,4.9231e-01 /) - kao(:, 1, 4,14) = (/ & - &1.0301e-01 ,1.0024e-01 ,1.5513e-01 ,2.2660e-01 ,3.0051e-01 ,3.7330e-01 , & - &4.4331e-01 ,5.0277e-01 ,5.9886e-01 /) - kao(:, 2, 4,14) = (/ & - &1.0093e-01 ,9.7693e-02 ,1.5244e-01 ,2.2368e-01 ,2.9661e-01 ,3.6838e-01 , & - &4.3740e-01 ,4.9600e-01 ,5.9091e-01 /) - kao(:, 3, 4,14) = (/ & - &9.8888e-02 ,9.5814e-02 ,1.5056e-01 ,2.2160e-01 ,2.9368e-01 ,3.6475e-01 , & - &4.3305e-01 ,4.9087e-01 ,5.8504e-01 /) - kao(:, 4, 4,14) = (/ & - &9.6900e-02 ,9.4385e-02 ,1.4923e-01 ,2.1998e-01 ,2.9118e-01 ,3.6134e-01 , & - &4.2884e-01 ,4.8615e-01 ,5.7910e-01 /) - kao(:, 5, 4,14) = (/ & - &9.5071e-02 ,9.3054e-02 ,1.4811e-01 ,2.1854e-01 ,2.8905e-01 ,3.5852e-01 , & - &4.2539e-01 ,4.8206e-01 ,5.7407e-01 /) - kao(:, 1, 5,14) = (/ & - &2.1660e-01 ,1.9045e-01 ,2.0807e-01 ,2.6919e-01 ,3.4511e-01 ,4.2945e-01 , & - &5.1231e-01 ,5.8951e-01 ,6.8618e-01 /) - kao(:, 2, 5,14) = (/ & - &2.1241e-01 ,1.8672e-01 ,2.0475e-01 ,2.6424e-01 ,3.4065e-01 ,4.2384e-01 , & - &5.0554e-01 ,5.8155e-01 ,6.7701e-01 /) - kao(:, 3, 5,14) = (/ & - &2.0837e-01 ,1.8314e-01 ,2.0195e-01 ,2.6053e-01 ,3.3744e-01 ,4.1942e-01 , & - &5.0021e-01 ,5.7551e-01 ,6.6986e-01 /) - kao(:, 4, 5,14) = (/ & - &2.0430e-01 ,1.7971e-01 ,1.9948e-01 ,2.5756e-01 ,3.3465e-01 ,4.1558e-01 , & - &4.9517e-01 ,5.6937e-01 ,6.6243e-01 /) - kao(:, 5, 5,14) = (/ & - &2.0042e-01 ,1.7656e-01 ,1.9774e-01 ,2.5482e-01 ,3.3186e-01 ,4.1183e-01 , & - &4.9052e-01 ,5.6389e-01 ,6.5569e-01 /) - kao(:, 1, 6,14) = (/ & - &4.2427e-01 ,3.7203e-01 ,3.3320e-01 ,3.5686e-01 ,4.1154e-01 ,4.8492e-01 , & - &5.7932e-01 ,6.7077e-01 ,7.7255e-01 /) - kao(:, 2, 6,14) = (/ & - &4.1690e-01 ,3.6557e-01 ,3.2503e-01 ,3.5212e-01 ,4.0345e-01 ,4.7827e-01 , & - &5.7140e-01 ,6.6143e-01 ,7.6181e-01 /) - kao(:, 3, 6,14) = (/ & - &4.0958e-01 ,3.5909e-01 ,3.1787e-01 ,3.4706e-01 ,3.9704e-01 ,4.7318e-01 , & - &5.6463e-01 ,6.5338e-01 ,7.5243e-01 /) - kao(:, 4, 6,14) = (/ & - &4.0201e-01 ,3.5239e-01 ,3.1191e-01 ,3.4259e-01 ,3.9161e-01 ,4.6839e-01 , & - &5.5839e-01 ,6.4570e-01 ,7.4289e-01 /) - kao(:, 5, 6,14) = (/ & - &3.9475e-01 ,3.4591e-01 ,3.0639e-01 ,3.3917e-01 ,3.8642e-01 ,4.6363e-01 , & - &5.5236e-01 ,6.3841e-01 ,7.3426e-01 /) - kao(:, 1, 7,14) = (/ & - &8.8029e-01 ,7.7094e-01 ,6.6160e-01 ,5.8339e-01 ,5.7398e-01 ,5.9529e-01 , & - &6.4618e-01 ,7.4819e-01 ,8.5701e-01 /) - kao(:, 2, 7,14) = (/ & - &8.6525e-01 ,7.5771e-01 ,6.5024e-01 ,5.6937e-01 ,5.6534e-01 ,5.8297e-01 , & - &6.3577e-01 ,7.3677e-01 ,8.4377e-01 /) - kao(:, 3, 7,14) = (/ & - &8.5121e-01 ,7.4536e-01 ,6.3948e-01 ,5.5760e-01 ,5.5733e-01 ,5.7172e-01 , & - &6.2728e-01 ,7.2631e-01 ,8.3134e-01 /) - kao(:, 4, 7,14) = (/ & - &8.3673e-01 ,7.3261e-01 ,6.2850e-01 ,5.4720e-01 ,5.4987e-01 ,5.6219e-01 , & - &6.1953e-01 ,7.1698e-01 ,8.1995e-01 /) - kao(:, 5, 7,14) = (/ & - &8.2233e-01 ,7.1991e-01 ,6.1754e-01 ,5.3796e-01 ,5.4354e-01 ,5.5330e-01 , & - &6.1303e-01 ,7.0902e-01 ,8.1040e-01 /) - kao(:, 1, 8,14) = (/ & - &2.1633e+00 ,1.8933e+00 ,1.6233e+00 ,1.3534e+00 ,1.1037e+00 ,9.5036e-01 , & - &8.5982e-01 ,8.2829e-01 ,9.4205e-01 /) - kao(:, 2, 8,14) = (/ & - &2.1282e+00 ,1.8626e+00 ,1.5970e+00 ,1.3314e+00 ,1.0818e+00 ,9.3527e-01 , & - &8.4498e-01 ,8.1322e-01 ,9.2537e-01 /) - kao(:, 3, 8,14) = (/ & - &2.0953e+00 ,1.8337e+00 ,1.5723e+00 ,1.3107e+00 ,1.0621e+00 ,9.2114e-01 , & - &8.2743e-01 ,8.0051e-01 ,9.1039e-01 /) - kao(:, 4, 8,14) = (/ & - &2.0607e+00 ,1.8035e+00 ,1.5462e+00 ,1.2890e+00 ,1.0433e+00 ,9.0766e-01 , & - &8.1242e-01 ,7.8938e-01 ,8.9703e-01 /) - kao(:, 5, 8,14) = (/ & - &2.0272e+00 ,1.7741e+00 ,1.5210e+00 ,1.2680e+00 ,1.0246e+00 ,8.9475e-01 , & - &7.9856e-01 ,7.8051e-01 ,8.8639e-01 /) - kao(:, 1, 9,14) = (/ & - &1.0073e+01 ,8.8141e+00 ,7.5553e+00 ,6.2968e+00 ,5.0379e+00 ,3.7790e+00 , & - &2.5252e+00 ,1.5121e+00 ,1.0239e+00 /) - kao(:, 2, 9,14) = (/ & - &9.9292e+00 ,8.6881e+00 ,7.4471e+00 ,6.2062e+00 ,4.9656e+00 ,3.7249e+00 , & - &2.4866e+00 ,1.4902e+00 ,1.0036e+00 /) - kao(:, 3, 9,14) = (/ & - &9.7859e+00 ,8.5628e+00 ,7.3398e+00 ,6.1169e+00 ,4.8940e+00 ,3.6711e+00 , & - &2.4492e+00 ,1.4699e+00 ,9.8554e-01 /) - kao(:, 4, 9,14) = (/ & - &9.6386e+00 ,8.4340e+00 ,7.2293e+00 ,6.0249e+00 ,4.8203e+00 ,3.6156e+00 , & - &2.4114e+00 ,1.4506e+00 ,9.7113e-01 /) - kao(:, 5, 9,14) = (/ & - &9.4939e+00 ,8.3072e+00 ,7.1206e+00 ,5.9343e+00 ,4.7478e+00 ,3.5614e+00 , & - &2.3752e+00 ,1.4305e+00 ,9.6050e-01 /) - kao(:, 1,10,14) = (/ & - &5.2612e+01 ,4.6036e+01 ,3.9459e+01 ,3.2882e+01 ,2.6307e+01 ,1.9730e+01 , & - &1.3154e+01 ,6.5782e+00 ,1.1007e+00 /) - kao(:, 2,10,14) = (/ & - &5.2045e+01 ,4.5541e+01 ,3.9035e+01 ,3.2530e+01 ,2.6024e+01 ,1.9518e+01 , & - &1.3013e+01 ,6.5076e+00 ,1.0772e+00 /) - kao(:, 3,10,14) = (/ & - &5.1396e+01 ,4.4972e+01 ,3.8548e+01 ,3.2123e+01 ,2.5700e+01 ,1.9274e+01 , & - &1.2851e+01 ,6.4259e+00 ,1.0576e+00 /) - kao(:, 4,10,14) = (/ & - &5.0681e+01 ,4.4348e+01 ,3.8014e+01 ,3.1677e+01 ,2.5342e+01 ,1.9007e+01 , & - &1.2671e+01 ,6.3366e+00 ,1.0433e+00 /) - kao(:, 5,10,14) = (/ & - &4.9909e+01 ,4.3671e+01 ,3.7433e+01 ,3.1194e+01 ,2.4957e+01 ,1.8717e+01 , & - &1.2479e+01 ,6.2406e+00 ,1.0315e+00 /) - kao(:, 1,11,14) = (/ & - &9.5447e+01 ,8.3519e+01 ,7.1586e+01 ,5.9654e+01 ,4.7724e+01 ,3.5792e+01 , & - &2.3862e+01 ,1.1932e+01 ,1.1580e+00 /) - kao(:, 2,11,14) = (/ & - &9.4633e+01 ,8.2803e+01 ,7.0974e+01 ,5.9145e+01 ,4.7317e+01 ,3.5487e+01 , & - &2.3658e+01 ,1.1830e+01 ,1.1359e+00 /) - kao(:, 3,11,14) = (/ & - &9.3512e+01 ,8.1822e+01 ,7.0137e+01 ,5.8447e+01 ,4.6756e+01 ,3.5068e+01 , & - &2.3379e+01 ,1.1690e+01 ,1.1191e+00 /) - kao(:, 4,11,14) = (/ & - &9.1943e+01 ,8.0451e+01 ,6.8957e+01 ,5.7463e+01 ,4.5972e+01 ,3.4478e+01 , & - &2.2985e+01 ,1.1494e+01 ,1.1048e+00 /) - kao(:, 5,11,14) = (/ & - &9.0366e+01 ,7.9072e+01 ,6.7775e+01 ,5.6480e+01 ,4.5183e+01 ,3.3888e+01 , & - &2.2593e+01 ,1.1297e+01 ,1.0941e+00 /) - kao(:, 1,12,14) = (/ & - &1.2829e+02 ,1.1225e+02 ,9.6218e+01 ,8.0178e+01 ,6.4148e+01 ,4.8109e+01 , & - &3.2071e+01 ,1.6037e+01 ,1.2082e+00 /) - kao(:, 2,12,14) = (/ & - &1.2686e+02 ,1.1100e+02 ,9.5144e+01 ,7.9288e+01 ,6.3431e+01 ,4.7572e+01 , & - &3.1716e+01 ,1.5858e+01 ,1.1882e+00 /) - kao(:, 3,12,14) = (/ & - &1.2492e+02 ,1.0930e+02 ,9.3686e+01 ,7.8073e+01 ,6.2461e+01 ,4.6846e+01 , & - &3.1229e+01 ,1.5615e+01 ,1.1735e+00 /) - kao(:, 4,12,14) = (/ & - &1.2277e+02 ,1.0742e+02 ,9.2079e+01 ,7.6735e+01 ,6.1388e+01 ,4.6041e+01 , & - &3.0695e+01 ,1.5349e+01 ,1.1628e+00 /) - kao(:, 5,12,14) = (/ & - &1.2083e+02 ,1.0573e+02 ,9.0624e+01 ,7.5519e+01 ,6.0418e+01 ,4.5314e+01 , & - &3.0211e+01 ,1.5107e+01 ,1.1538e+00 /) - kao(:, 1,13,14) = (/ & - &1.3638e+02 ,1.1933e+02 ,1.0229e+02 ,8.5232e+01 ,6.8189e+01 ,5.1142e+01 , & - &3.4096e+01 ,1.7048e+01 ,1.2383e+00 /) - kao(:, 2,13,14) = (/ & - &1.3472e+02 ,1.1788e+02 ,1.0104e+02 ,8.4200e+01 ,6.7359e+01 ,5.0520e+01 , & - &3.3681e+01 ,1.6841e+01 ,1.2326e+00 /) - kao(:, 3,13,14) = (/ & - &1.3259e+02 ,1.1602e+02 ,9.9447e+01 ,8.2873e+01 ,6.6300e+01 ,4.9725e+01 , & - &3.3151e+01 ,1.6576e+01 ,1.2214e+00 /) - kao(:, 4,13,14) = (/ & - &1.3062e+02 ,1.1429e+02 ,9.7966e+01 ,8.1640e+01 ,6.5311e+01 ,4.8985e+01 , & - &3.2658e+01 ,1.6329e+01 ,1.2124e+00 /) - kao(:, 5,13,14) = (/ & - &1.2869e+02 ,1.1261e+02 ,9.6524e+01 ,8.0437e+01 ,6.4351e+01 ,4.8263e+01 , & - &3.2178e+01 ,1.6090e+01 ,1.2063e+00 /) - kao(:, 1, 1,15) = (/ & - &1.6224e-02 ,5.5981e-02 ,1.1058e-01 ,1.6311e-01 ,2.1224e-01 ,2.5534e-01 , & - &2.8563e-01 ,2.8102e-01 ,4.2449e-01 /) - kao(:, 2, 1,15) = (/ & - &1.5819e-02 ,5.4235e-02 ,1.0708e-01 ,1.5789e-01 ,2.0538e-01 ,2.4690e-01 , & - &2.7600e-01 ,2.7172e-01 ,4.1075e-01 /) - kao(:, 3, 1,15) = (/ & - &1.5437e-02 ,5.3030e-02 ,1.0453e-01 ,1.5410e-01 ,2.0034e-01 ,2.4064e-01 , & - &2.6869e-01 ,2.6394e-01 ,4.0067e-01 /) - kao(:, 4, 1,15) = (/ & - &1.5047e-02 ,5.2309e-02 ,1.0294e-01 ,1.5163e-01 ,1.9708e-01 ,2.3671e-01 , & - &2.6420e-01 ,2.5937e-01 ,3.9409e-01 /) - kao(:, 5, 1,15) = (/ & - &1.4670e-02 ,5.2264e-02 ,1.0263e-01 ,1.5109e-01 ,1.9635e-01 ,2.3592e-01 , & - &2.6369e-01 ,2.6037e-01 ,3.9232e-01 /) - kao(:, 1, 2,15) = (/ & - &2.7874e-02 ,6.8016e-02 ,1.3490e-01 ,2.0013e-01 ,2.6255e-01 ,3.1976e-01 , & - &3.6546e-01 ,3.7626e-01 ,5.2506e-01 /) - kao(:, 2, 2,15) = (/ & - &2.7188e-02 ,6.5949e-02 ,1.3068e-01 ,1.9379e-01 ,2.5414e-01 ,3.0936e-01 , & - &3.5322e-01 ,3.6307e-01 ,5.0826e-01 /) - kao(:, 3, 2,15) = (/ & - &2.6530e-02 ,6.4457e-02 ,1.2748e-01 ,1.8895e-01 ,2.4773e-01 ,3.0143e-01 , & - &3.4397e-01 ,3.5278e-01 ,4.9544e-01 /) - kao(:, 4, 2,15) = (/ & - &2.5866e-02 ,6.3478e-02 ,1.2538e-01 ,1.8573e-01 ,2.4341e-01 ,2.9608e-01 , & - &3.3770e-01 ,3.4604e-01 ,4.8658e-01 /) - kao(:, 5, 2,15) = (/ & - &2.5184e-02 ,6.3069e-02 ,1.2422e-01 ,1.8387e-01 ,2.4089e-01 ,2.9292e-01 , & - &3.3402e-01 ,3.4222e-01 ,4.8125e-01 /) - kao(:, 1, 3,15) = (/ & - &6.4680e-02 ,8.3094e-02 ,1.6505e-01 ,2.4624e-01 ,3.2572e-01 ,4.0189e-01 , & - &4.7033e-01 ,5.1238e-01 ,6.5139e-01 /) - kao(:, 2, 3,15) = (/ & - &6.3121e-02 ,8.0680e-02 ,1.6005e-01 ,2.3872e-01 ,3.1571e-01 ,3.8944e-01 , & - &4.5551e-01 ,4.9522e-01 ,6.3135e-01 /) - kao(:, 3, 3,15) = (/ & - &6.1563e-02 ,7.8867e-02 ,1.5612e-01 ,2.3258e-01 ,3.0746e-01 ,3.7914e-01 , & - &4.4323e-01 ,4.8117e-01 ,6.1483e-01 /) - kao(:, 4, 3,15) = (/ & - &6.0025e-02 ,7.7639e-02 ,1.5328e-01 ,2.2820e-01 ,3.0153e-01 ,3.7164e-01 , & - &4.3426e-01 ,4.7103e-01 ,6.0254e-01 /) - kao(:, 5, 3,15) = (/ & - &5.8411e-02 ,7.7256e-02 ,1.5120e-01 ,2.2490e-01 ,2.9704e-01 ,3.6599e-01 , & - &4.2759e-01 ,4.6376e-01 ,5.9316e-01 /) - kao(:, 1, 4,15) = (/ & - &1.5257e-01 ,1.3544e-01 ,2.0077e-01 ,3.0036e-01 ,3.9895e-01 ,4.9562e-01 , & - &5.8758e-01 ,6.6215e-01 ,7.9779e-01 /) - kao(:, 2, 4,15) = (/ & - &1.4896e-01 ,1.3204e-01 ,1.9507e-01 ,2.9140e-01 ,3.8695e-01 ,4.8067e-01 , & - &5.6978e-01 ,6.4163e-01 ,7.7379e-01 /) - kao(:, 3, 4,15) = (/ & - &1.4526e-01 ,1.2874e-01 ,1.9046e-01 ,2.8415e-01 ,3.7702e-01 ,4.6809e-01 , & - &5.5459e-01 ,6.2416e-01 ,7.5329e-01 /) - kao(:, 4, 4,15) = (/ & - &1.4150e-01 ,1.2551e-01 ,1.8699e-01 ,2.7869e-01 ,3.6960e-01 ,4.5869e-01 , & - &5.4325e-01 ,6.1092e-01 ,7.3794e-01 /) - kao(:, 5, 4,15) = (/ & - &1.3788e-01 ,1.2292e-01 ,1.8424e-01 ,2.7423e-01 ,3.6354e-01 ,4.5105e-01 , & - &5.3408e-01 ,6.0044e-01 ,7.2537e-01 /) - kao(:, 1, 5,15) = (/ & - &3.2844e-01 ,2.8856e-01 ,2.7979e-01 ,3.6340e-01 ,4.8359e-01 ,6.0259e-01 , & - &7.1867e-01 ,8.2355e-01 ,9.6702e-01 /) - kao(:, 2, 5,15) = (/ & - &3.2063e-01 ,2.8155e-01 ,2.6962e-01 ,3.5320e-01 ,4.6960e-01 ,5.8494e-01 , & - &6.9755e-01 ,7.9908e-01 ,9.3875e-01 /) - kao(:, 3, 5,15) = (/ & - &3.1261e-01 ,2.7434e-01 ,2.6034e-01 ,3.4461e-01 ,4.5775e-01 ,5.6986e-01 , & - &6.7919e-01 ,7.7764e-01 ,9.1375e-01 /) - kao(:, 4, 5,15) = (/ & - &3.0440e-01 ,2.6704e-01 ,2.5252e-01 ,3.3787e-01 ,4.4841e-01 ,5.5807e-01 , & - &6.6481e-01 ,7.6089e-01 ,8.9431e-01 /) - kao(:, 5, 5,15) = (/ & - &2.9686e-01 ,2.6035e-01 ,2.4591e-01 ,3.3225e-01 ,4.4072e-01 ,5.4821e-01 , & - &6.5299e-01 ,7.4709e-01 ,8.7822e-01 /) - kao(:, 1, 6,15) = (/ & - &6.6195e-01 ,5.8013e-01 ,4.9831e-01 ,4.9605e-01 ,5.8178e-01 ,7.2595e-01 , & - &8.6836e-01 ,1.0033e+00 ,1.1633e+00 /) - kao(:, 2, 6,15) = (/ & - &6.4501e-01 ,5.6519e-01 ,4.8535e-01 ,4.7586e-01 ,5.6606e-01 ,7.0584e-01 , & - &8.4395e-01 ,9.7492e-01 ,1.1306e+00 /) - kao(:, 3, 6,15) = (/ & - &6.2808e-01 ,5.5020e-01 ,4.7240e-01 ,4.5801e-01 ,5.5243e-01 ,6.8837e-01 , & - &8.2269e-01 ,9.4987e-01 ,1.1015e+00 /) - kao(:, 4, 6,15) = (/ & - &6.1101e-01 ,5.3520e-01 ,4.5941e-01 ,4.4278e-01 ,5.4121e-01 ,6.7408e-01 , & - &8.0538e-01 ,9.2955e-01 ,1.0781e+00 /) - kao(:, 5, 6,15) = (/ & - &5.9524e-01 ,5.2132e-01 ,4.4745e-01 ,4.2965e-01 ,5.3187e-01 ,6.6218e-01 , & - &7.9084e-01 ,9.1257e-01 ,1.0584e+00 /) - kao(:, 1, 7,15) = (/ & - &1.4144e+00 ,1.2384e+00 ,1.0623e+00 ,8.8626e-01 ,8.1737e-01 ,8.6950e-01 , & - &1.0395e+00 ,1.2069e+00 ,1.3892e+00 /) - kao(:, 2, 7,15) = (/ & - &1.3748e+00 ,1.2036e+00 ,1.0323e+00 ,8.6117e-01 ,7.8383e-01 ,8.4592e-01 , & - &1.0122e+00 ,1.1745e+00 ,1.3519e+00 /) - kao(:, 3, 7,15) = (/ & - &1.3356e+00 ,1.1692e+00 ,1.0028e+00 ,8.3643e-01 ,7.5357e-01 ,8.2575e-01 , & - &9.8798e-01 ,1.1461e+00 ,1.3189e+00 /) - kao(:, 4, 7,15) = (/ & - &1.2972e+00 ,1.1356e+00 ,9.7391e-01 ,8.1222e-01 ,7.2715e-01 ,8.0916e-01 , & - &9.6777e-01 ,1.1223e+00 ,1.2914e+00 /) - kao(:, 5, 7,15) = (/ & - &1.2621e+00 ,1.1049e+00 ,9.4752e-01 ,7.9014e-01 ,7.0399e-01 ,7.9481e-01 , & - &9.5022e-01 ,1.1017e+00 ,1.2675e+00 /) - kao(:, 1, 8,15) = (/ & - &3.5678e+00 ,3.1226e+00 ,2.6774e+00 ,2.2323e+00 ,1.7871e+00 ,1.4068e+00 , & - &1.2751e+00 ,1.4347e+00 ,1.6442e+00 /) - kao(:, 2, 8,15) = (/ & - &3.4620e+00 ,3.0298e+00 ,2.5977e+00 ,2.1657e+00 ,1.7337e+00 ,1.3525e+00 , & - &1.2330e+00 ,1.4002e+00 ,1.6038e+00 /) - kao(:, 3, 8,15) = (/ & - &3.3581e+00 ,2.9387e+00 ,2.5197e+00 ,2.1005e+00 ,1.6813e+00 ,1.3030e+00 , & - &1.1987e+00 ,1.3683e+00 ,1.5668e+00 /) - kao(:, 4, 8,15) = (/ & - &3.2581e+00 ,2.8514e+00 ,2.4446e+00 ,2.0378e+00 ,1.6310e+00 ,1.2580e+00 , & - &1.1700e+00 ,1.3407e+00 ,1.5349e+00 /) - kao(:, 5, 8,15) = (/ & - &3.1664e+00 ,2.7709e+00 ,2.3756e+00 ,1.9802e+00 ,1.5848e+00 ,1.2171e+00 , & - &1.1461e+00 ,1.3159e+00 ,1.5061e+00 /) - kao(:, 1, 9,15) = (/ & - &1.6997e+01 ,1.4874e+01 ,1.2750e+01 ,1.0625e+01 ,8.5017e+00 ,6.3777e+00 , & - &4.2536e+00 ,2.2902e+00 ,1.9313e+00 /) - kao(:, 2, 9,15) = (/ & - &1.6471e+01 ,1.4414e+01 ,1.2355e+01 ,1.0296e+01 ,8.2389e+00 ,6.1803e+00 , & - &4.1219e+00 ,2.1942e+00 ,1.8874e+00 /) - kao(:, 3, 9,15) = (/ & - &1.5959e+01 ,1.3964e+01 ,1.1970e+01 ,9.9759e+00 ,7.9817e+00 ,5.9872e+00 , & - &3.9932e+00 ,2.1070e+00 ,1.8460e+00 /) - kao(:, 4, 9,15) = (/ & - &1.5470e+01 ,1.3538e+01 ,1.1604e+01 ,9.6708e+00 ,7.7374e+00 ,5.8040e+00 , & - &3.8707e+00 ,2.0267e+00 ,1.8089e+00 /) - kao(:, 5, 9,15) = (/ & - &1.5020e+01 ,1.3143e+01 ,1.1265e+01 ,9.3885e+00 ,7.5114e+00 ,5.6345e+00 , & - &3.7577e+00 ,1.9548e+00 ,1.7742e+00 /) - kao(:, 1,10,15) = (/ & - &9.0636e+01 ,7.9307e+01 ,6.7977e+01 ,5.6649e+01 ,4.5320e+01 ,3.3991e+01 , & - &2.2662e+01 ,1.1334e+01 ,2.2438e+00 /) - kao(:, 2,10,15) = (/ & - &8.7565e+01 ,7.6621e+01 ,6.5675e+01 ,5.4728e+01 ,4.3786e+01 ,3.2842e+01 , & - &2.1895e+01 ,1.0950e+01 ,2.1955e+00 /) - kao(:, 3,10,15) = (/ & - &8.4686e+01 ,7.4100e+01 ,6.3516e+01 ,5.2929e+01 ,4.2345e+01 ,3.1759e+01 , & - &2.1174e+01 ,1.0590e+01 ,2.1489e+00 /) - kao(:, 4,10,15) = (/ & - &8.2038e+01 ,7.1783e+01 ,6.1529e+01 ,5.1276e+01 ,4.1020e+01 ,3.0766e+01 , & - &2.0512e+01 ,1.0258e+01 ,2.1057e+00 /) - kao(:, 5,10,15) = (/ & - &7.9656e+01 ,6.9701e+01 ,5.9744e+01 ,4.9787e+01 ,3.9829e+01 ,2.9874e+01 , & - &1.9917e+01 ,9.9593e+00 ,2.0648e+00 /) - kao(:, 1,11,15) = (/ & - &1.6605e+02 ,1.4529e+02 ,1.2455e+02 ,1.0378e+02 ,8.3029e+01 ,6.2280e+01 , & - &4.1517e+01 ,2.0760e+01 ,2.5530e+00 /) - kao(:, 2,11,15) = (/ & - &1.6006e+02 ,1.4006e+02 ,1.2005e+02 ,1.0004e+02 ,8.0031e+01 ,6.0027e+01 , & - &4.0019e+01 ,2.0011e+01 ,2.4994e+00 /) - kao(:, 3,11,15) = (/ & - &1.5475e+02 ,1.3539e+02 ,1.1606e+02 ,9.6709e+01 ,7.7371e+01 ,5.8029e+01 , & - &3.8687e+01 ,1.9345e+01 ,2.4484e+00 /) - kao(:, 4,11,15) = (/ & - &1.5058e+02 ,1.3176e+02 ,1.1294e+02 ,9.4118e+01 ,7.5292e+01 ,5.6471e+01 , & - &3.7649e+01 ,1.8825e+01 ,2.4006e+00 /) - kao(:, 5,11,15) = (/ & - &1.4680e+02 ,1.2845e+02 ,1.1009e+02 ,9.1748e+01 ,7.3399e+01 ,5.5050e+01 , & - &3.6700e+01 ,1.8351e+01 ,2.3540e+00 /) - kao(:, 1,12,15) = (/ & - &2.2602e+02 ,1.9778e+02 ,1.6953e+02 ,1.4127e+02 ,1.1301e+02 ,8.4757e+01 , & - &5.6507e+01 ,2.8257e+01 ,2.8716e+00 /) - kao(:, 2,12,15) = (/ & - &2.1869e+02 ,1.9135e+02 ,1.6402e+02 ,1.3669e+02 ,1.0935e+02 ,8.2013e+01 , & - &5.4674e+01 ,2.7339e+01 ,2.8132e+00 /) - kao(:, 3,12,15) = (/ & - &2.1253e+02 ,1.8597e+02 ,1.5940e+02 ,1.3282e+02 ,1.0626e+02 ,7.9692e+01 , & - &5.3134e+01 ,2.6567e+01 ,2.7573e+00 /) - kao(:, 4,12,15) = (/ & - &2.0725e+02 ,1.8134e+02 ,1.5543e+02 ,1.2952e+02 ,1.0362e+02 ,7.7720e+01 , & - &5.1811e+01 ,2.5907e+01 ,2.7022e+00 /) - kao(:, 5,12,15) = (/ & - &2.0216e+02 ,1.7690e+02 ,1.5162e+02 ,1.2635e+02 ,1.0108e+02 ,7.5810e+01 , & - &5.0540e+01 ,2.5271e+01 ,2.6508e+00 /) - kao(:, 1,13,15) = (/ & - &2.4880e+02 ,2.1770e+02 ,1.8661e+02 ,1.5550e+02 ,1.2440e+02 ,9.3305e+01 , & - &6.2205e+01 ,3.1105e+01 ,3.1971e+00 /) - kao(:, 2,13,15) = (/ & - &2.4131e+02 ,2.1114e+02 ,1.8097e+02 ,1.5081e+02 ,1.2065e+02 ,9.0483e+01 , & - &6.0327e+01 ,3.0165e+01 ,3.1338e+00 /) - kao(:, 3,13,15) = (/ & - &2.3499e+02 ,2.0562e+02 ,1.7624e+02 ,1.4687e+02 ,1.1750e+02 ,8.8123e+01 , & - &5.8749e+01 ,2.9377e+01 ,3.0697e+00 /) - kao(:, 4,13,15) = (/ & - &2.2900e+02 ,2.0038e+02 ,1.7175e+02 ,1.4313e+02 ,1.1451e+02 ,8.5878e+01 , & - &5.7253e+01 ,2.8627e+01 ,3.0070e+00 /) - kao(:, 5,13,15) = (/ & - &2.2306e+02 ,1.9518e+02 ,1.6729e+02 ,1.3941e+02 ,1.1152e+02 ,8.3649e+01 , & - &5.5766e+01 ,2.7883e+01 ,2.9481e+00 /) - kao(:, 1, 1,16) = (/ & - &1.9445e-02 ,6.3230e-02 ,1.2479e-01 ,1.8384e-01 ,2.3882e-01 ,2.8643e-01 , & - &3.1893e-01 ,3.1112e-01 ,4.7763e-01 /) - kao(:, 2, 1,16) = (/ & - &1.8835e-02 ,6.2634e-02 ,1.2363e-01 ,1.8213e-01 ,2.3659e-01 ,2.8379e-01 , & - &3.1600e-01 ,3.0828e-01 ,4.7319e-01 /) - kao(:, 3, 1,16) = (/ & - &1.8228e-02 ,6.1941e-02 ,1.2224e-01 ,1.8013e-01 ,2.3399e-01 ,2.8070e-01 , & - &3.1257e-01 ,3.0493e-01 ,4.6798e-01 /) - kao(:, 4, 1,16) = (/ & - &1.7647e-02 ,6.1170e-02 ,1.2073e-01 ,1.7790e-01 ,2.3107e-01 ,2.7723e-01 , & - &3.0877e-01 ,3.0124e-01 ,4.6215e-01 /) - kao(:, 5, 1,16) = (/ & - &1.7079e-02 ,6.0350e-02 ,1.1912e-01 ,1.7548e-01 ,2.2801e-01 ,2.7357e-01 , & - &3.0466e-01 ,2.9733e-01 ,4.5602e-01 /) - kao(:, 1, 2,16) = (/ & - &3.4634e-02 ,7.7044e-02 ,1.5273e-01 ,2.2632e-01 ,2.9575e-01 ,3.6021e-01 , & - &4.0997e-01 ,4.1812e-01 ,5.9296e-01 /) - kao(:, 2, 2,16) = (/ & - &3.3420e-02 ,7.6207e-02 ,1.5110e-01 ,2.2402e-01 ,2.9356e-01 ,3.5685e-01 , & - &4.0638e-01 ,4.1457e-01 ,5.8711e-01 /) - kao(:, 3, 2,16) = (/ & - &3.2246e-02 ,7.5373e-02 ,1.4946e-01 ,2.2157e-01 ,2.9037e-01 ,3.5299e-01 , & - &4.0204e-01 ,4.1028e-01 ,5.8073e-01 /) - kao(:, 4, 2,16) = (/ & - &3.1106e-02 ,7.4437e-02 ,1.4762e-01 ,2.1883e-01 ,2.8679e-01 ,3.4868e-01 , & - &3.9718e-01 ,4.0541e-01 ,5.7357e-01 /) - kao(:, 5, 2,16) = (/ & - &3.0021e-02 ,7.3426e-02 ,1.4561e-01 ,2.1587e-01 ,2.8293e-01 ,3.4400e-01 , & - &3.9193e-01 ,4.0015e-01 ,5.6584e-01 /) - kao(:, 1, 3,16) = (/ & - &8.3051e-02 ,9.4793e-02 ,1.8876e-01 ,2.8144e-01 ,3.7196e-01 ,4.5816e-01 , & - &5.3450e-01 ,5.7690e-01 ,7.4391e-01 /) - kao(:, 2, 3,16) = (/ & - &7.9830e-02 ,9.3082e-02 ,1.8538e-01 ,2.7644e-01 ,3.6534e-01 ,4.5017e-01 , & - &5.2550e-01 ,5.6808e-01 ,7.3067e-01 /) - kao(:, 3, 3,16) = (/ & - &7.6737e-02 ,9.1705e-02 ,1.8269e-01 ,2.7246e-01 ,3.6014e-01 ,4.4395e-01 , & - &5.1857e-01 ,5.6175e-01 ,7.2028e-01 /) - kao(:, 4, 3,16) = (/ & - &7.3809e-02 ,9.0497e-02 ,1.8026e-01 ,2.6888e-01 ,3.5554e-01 ,4.3839e-01 , & - &5.1223e-01 ,5.5508e-01 ,7.1107e-01 /) - kao(:, 5, 3,16) = (/ & - &7.1033e-02 ,8.9276e-02 ,1.7779e-01 ,2.6523e-01 ,3.5066e-01 ,4.3243e-01 , & - &5.0536e-01 ,5.4783e-01 ,7.0132e-01 /) - kao(:, 1, 4,16) = (/ & - &2.0125e-01 ,1.7779e-01 ,2.3399e-01 ,3.4997e-01 ,4.6464e-01 ,5.7674e-01 , & - &6.8253e-01 ,7.6508e-01 ,9.2928e-01 /) - kao(:, 2, 4,16) = (/ & - &1.9265e-01 ,1.7048e-01 ,2.2831e-01 ,3.4146e-01 ,4.5338e-01 ,5.6281e-01 , & - &6.6618e-01 ,7.4718e-01 ,9.0679e-01 /) - kao(:, 3, 4,16) = (/ & - &1.8456e-01 ,1.6365e-01 ,2.2378e-01 ,3.3476e-01 ,4.4451e-01 ,5.5182e-01 , & - &6.5330e-01 ,7.3313e-01 ,8.8901e-01 /) - kao(:, 4, 4,16) = (/ & - &1.7702e-01 ,1.5723e-01 ,2.1978e-01 ,3.2875e-01 ,4.3660e-01 ,5.4199e-01 , & - &6.4188e-01 ,7.2098e-01 ,8.7320e-01 /) - kao(:, 5, 4,16) = (/ & - &1.6997e-01 ,1.5116e-01 ,2.1600e-01 ,3.2314e-01 ,4.2913e-01 ,5.3288e-01 , & - &6.3120e-01 ,7.0945e-01 ,8.5826e-01 /) - kao(:, 1, 5,16) = (/ & - &4.4228e-01 ,3.8795e-01 ,3.3395e-01 ,4.3605e-01 ,5.8013e-01 ,7.2255e-01 , & - &8.6084e-01 ,9.8346e-01 ,1.1603e+00 /) - kao(:, 2, 5,16) = (/ & - &4.2199e-01 ,3.7056e-01 ,3.1956e-01 ,4.2215e-01 ,5.6164e-01 ,6.9945e-01 , & - &8.3347e-01 ,9.5217e-01 ,1.1233e+00 /) - kao(:, 3, 5,16) = (/ & - &4.0375e-01 ,3.5492e-01 ,3.0638e-01 ,4.1150e-01 ,5.4754e-01 ,6.8200e-01 , & - &8.1260e-01 ,9.2875e-01 ,1.0951e+00 /) - kao(:, 4, 5,16) = (/ & - &3.8716e-01 ,3.4051e-01 ,2.9411e-01 ,4.0247e-01 ,5.3546e-01 ,6.6706e-01 , & - &7.9494e-01 ,9.0883e-01 ,1.0709e+00 /) - kao(:, 5, 5,16) = (/ & - &3.7160e-01 ,3.2689e-01 ,2.8321e-01 ,3.9414e-01 ,5.2444e-01 ,6.5338e-01 , & - &7.7865e-01 ,8.9056e-01 ,1.0489e+00 /) - kao(:, 1, 6,16) = (/ & - &9.0506e-01 ,7.9284e-01 ,6.8068e-01 ,5.6916e-01 ,7.2503e-01 ,9.0468e-01 , & - &1.0813e+00 ,1.2473e+00 ,1.4500e+00 /) - kao(:, 2, 6,16) = (/ & - &8.6465e-01 ,7.5773e-01 ,6.5086e-01 ,5.4531e-01 ,6.9722e-01 ,8.6983e-01 , & - &1.0397e+00 ,1.1992e+00 ,1.3944e+00 /) - kao(:, 3, 6,16) = (/ & - &8.2825e-01 ,7.2598e-01 ,6.2379e-01 ,5.2549e-01 ,6.7605e-01 ,8.4340e-01 , & - &1.0082e+00 ,1.1629e+00 ,1.3521e+00 /) - kao(:, 4, 6,16) = (/ & - &7.9420e-01 ,6.9632e-01 ,5.9834e-01 ,5.1029e-01 ,6.5811e-01 ,8.2106e-01 , & - &9.8160e-01 ,1.1324e+00 ,1.3162e+00 /) - kao(:, 5, 6,16) = (/ & - &7.6215e-01 ,6.6829e-01 ,5.7431e-01 ,4.9359e-01 ,6.4194e-01 ,8.0089e-01 , & - &9.5749e-01 ,1.1049e+00 ,1.2839e+00 /) - kao(:, 1, 7,16) = (/ & - &1.9676e+00 ,1.7224e+00 ,1.4775e+00 ,1.2325e+00 ,9.8756e-01 ,1.1304e+00 , & - &1.3539e+00 ,1.5704e+00 ,1.8105e+00 /) - kao(:, 2, 7,16) = (/ & - &1.8838e+00 ,1.6493e+00 ,1.4147e+00 ,1.1804e+00 ,9.4604e-01 ,1.0806e+00 , & - &1.2942e+00 ,1.5011e+00 ,1.7307e+00 /) - kao(:, 3, 7,16) = (/ & - &1.8058e+00 ,1.5808e+00 ,1.3563e+00 ,1.1318e+00 ,9.0772e-01 ,1.0432e+00 , & - &1.2494e+00 ,1.4491e+00 ,1.6707e+00 /) - kao(:, 4, 7,16) = (/ & - &1.7320e+00 ,1.5166e+00 ,1.3008e+00 ,1.0854e+00 ,8.7621e-01 ,1.0114e+00 , & - &1.2114e+00 ,1.4051e+00 ,1.6197e+00 /) - kao(:, 5, 7,16) = (/ & - &1.6617e+00 ,1.4551e+00 ,1.2484e+00 ,1.0417e+00 ,8.4899e-01 ,9.8293e-01 , & - &1.1773e+00 ,1.3657e+00 ,1.5743e+00 /) - kao(:, 1, 8,16) = (/ & - &5.0769e+00 ,4.4432e+00 ,3.8096e+00 ,3.1755e+00 ,2.5417e+00 ,1.9082e+00 , & - &1.6892e+00 ,1.9659e+00 ,2.2550e+00 /) - kao(:, 2, 8,16) = (/ & - &4.8681e+00 ,4.2603e+00 ,3.6527e+00 ,3.0450e+00 ,2.4373e+00 ,1.8300e+00 , & - &1.6072e+00 ,1.8705e+00 ,2.1455e+00 /) - kao(:, 3, 8,16) = (/ & - &4.6692e+00 ,4.0861e+00 ,3.5032e+00 ,2.9205e+00 ,2.3378e+00 ,1.7550e+00 , & - &1.5446e+00 ,1.7976e+00 ,2.0621e+00 /) - kao(:, 4, 8,16) = (/ & - &4.4792e+00 ,3.9199e+00 ,3.3609e+00 ,2.8016e+00 ,2.2429e+00 ,1.6836e+00 , & - &1.4923e+00 ,1.7367e+00 ,1.9921e+00 /) - kao(:, 5, 8,16) = (/ & - &4.2972e+00 ,3.7609e+00 ,3.2243e+00 ,2.6879e+00 ,2.1517e+00 ,1.6153e+00 , & - &1.4455e+00 ,1.6824e+00 ,1.9297e+00 /) - kao(:, 1, 9,16) = (/ & - &2.4893e+01 ,2.1786e+01 ,1.8675e+01 ,1.5563e+01 ,1.2450e+01 ,9.3398e+00 , & - &6.2286e+00 ,3.1170e+00 ,2.8014e+00 /) - kao(:, 2, 9,16) = (/ & - &2.3897e+01 ,2.0912e+01 ,1.7925e+01 ,1.4937e+01 ,1.1951e+01 ,8.9651e+00 , & - &5.9788e+00 ,2.9923e+00 ,2.6581e+00 /) - kao(:, 3, 9,16) = (/ & - &2.2932e+01 ,2.0066e+01 ,1.7201e+01 ,1.4334e+01 ,1.1468e+01 ,8.6027e+00 , & - &5.7371e+00 ,2.8711e+00 ,2.5442e+00 /) - kao(:, 4, 9,16) = (/ & - &2.1999e+01 ,1.9250e+01 ,1.6501e+01 ,1.3753e+01 ,1.1001e+01 ,8.2533e+00 , & - &5.5038e+00 ,2.7545e+00 ,2.4493e+00 /) - kao(:, 5, 9,16) = (/ & - &2.1105e+01 ,1.8469e+01 ,1.5831e+01 ,1.3195e+01 ,1.0556e+01 ,7.9178e+00 , & - &5.2806e+00 ,2.6423e+00 ,2.3650e+00 /) - kao(:, 1,10,16) = (/ & - &1.3702e+02 ,1.1990e+02 ,1.0277e+02 ,8.5642e+01 ,6.8515e+01 ,5.1385e+01 , & - &3.4262e+01 ,1.7133e+01 ,3.4526e+00 /) - kao(:, 2,10,16) = (/ & - &1.3162e+02 ,1.1516e+02 ,9.8725e+01 ,8.2273e+01 ,6.5802e+01 ,4.9353e+01 , & - &3.2909e+01 ,1.6459e+01 ,3.2683e+00 /) - kao(:, 3,10,16) = (/ & - &1.2631e+02 ,1.1053e+02 ,9.4741e+01 ,7.8943e+01 ,6.3147e+01 ,4.7375e+01 , & - &3.1582e+01 ,1.5793e+01 ,3.1197e+00 /) - kao(:, 4,10,16) = (/ & - &1.2113e+02 ,1.0599e+02 ,9.0842e+01 ,7.5703e+01 ,6.0562e+01 ,4.5424e+01 , & - &3.0282e+01 ,1.5145e+01 ,2.9946e+00 /) - kao(:, 5,10,16) = (/ & - &1.1642e+02 ,1.0187e+02 ,8.7320e+01 ,7.2762e+01 ,5.8215e+01 ,4.3658e+01 , & - &2.9108e+01 ,1.4557e+01 ,2.8829e+00 /) - kao(:, 1,11,16) = (/ & - &2.5880e+02 ,2.2644e+02 ,1.9413e+02 ,1.6174e+02 ,1.2941e+02 ,9.7065e+01 , & - &6.4700e+01 ,3.2352e+01 ,4.1212e+00 /) - kao(:, 2,11,16) = (/ & - &2.4838e+02 ,2.1734e+02 ,1.8628e+02 ,1.5524e+02 ,1.2419e+02 ,9.3146e+01 , & - &6.2097e+01 ,3.1052e+01 ,3.9061e+00 /) - kao(:, 3,11,16) = (/ & - &2.3869e+02 ,2.0886e+02 ,1.7902e+02 ,1.4918e+02 ,1.1935e+02 ,8.9511e+01 , & - &5.9677e+01 ,2.9841e+01 ,3.7301e+00 /) - kao(:, 4,11,16) = (/ & - &2.2943e+02 ,2.0074e+02 ,1.7207e+02 ,1.4339e+02 ,1.1472e+02 ,8.6039e+01 , & - &5.7356e+01 ,2.8682e+01 ,3.5754e+00 /) - kao(:, 5,11,16) = (/ & - &2.2131e+02 ,1.9367e+02 ,1.6600e+02 ,1.3834e+02 ,1.1067e+02 ,8.3001e+01 , & - &5.5340e+01 ,2.7668e+01 ,3.4351e+00 /) - kao(:, 1,12,16) = (/ & - &3.6519e+02 ,3.1953e+02 ,2.7390e+02 ,2.2827e+02 ,1.8260e+02 ,1.3695e+02 , & - &9.1294e+01 ,4.5654e+01 ,4.8878e+00 /) - kao(:, 2,12,16) = (/ & - &3.5163e+02 ,3.0767e+02 ,2.6371e+02 ,2.1977e+02 ,1.7580e+02 ,1.3186e+02 , & - &8.7903e+01 ,4.3953e+01 ,4.5957e+00 /) - kao(:, 3,12,16) = (/ & - &3.3818e+02 ,2.9589e+02 ,2.5364e+02 ,2.1136e+02 ,1.6910e+02 ,1.2682e+02 , & - &8.4547e+01 ,4.2272e+01 ,4.4276e+00 /) - kao(:, 4,12,16) = (/ & - &3.2523e+02 ,2.8457e+02 ,2.4393e+02 ,2.0329e+02 ,1.6262e+02 ,1.2197e+02 , & - &8.1319e+01 ,4.0657e+01 ,4.2352e+00 /) - kao(:, 5,12,16) = (/ & - &3.1377e+02 ,2.7452e+02 ,2.3534e+02 ,1.9609e+02 ,1.5688e+02 ,1.1765e+02 , & - &7.8446e+01 ,3.9220e+01 ,4.0574e+00 /) - kao(:, 1,13,16) = (/ & - &4.1560e+02 ,3.6364e+02 ,3.1170e+02 ,2.5976e+02 ,2.0781e+02 ,1.5585e+02 , & - &1.0390e+02 ,5.1953e+01 ,5.7636e+00 /) - kao(:, 2,13,16) = (/ & - &3.9970e+02 ,3.4978e+02 ,2.9980e+02 ,2.4983e+02 ,1.9986e+02 ,1.4990e+02 , & - &9.9932e+01 ,4.9970e+01 ,5.4706e+00 /) - kao(:, 3,13,16) = (/ & - &3.8378e+02 ,3.3582e+02 ,2.8782e+02 ,2.3987e+02 ,1.9190e+02 ,1.4391e+02 , & - &9.5948e+01 ,4.7978e+01 ,5.2080e+00 /) - kao(:, 4,13,16) = (/ & - &3.6900e+02 ,3.2290e+02 ,2.7675e+02 ,2.3063e+02 ,1.8451e+02 ,1.3838e+02 , & - &9.2254e+01 ,4.6129e+01 ,4.9718e+00 /) - kao(:, 5,13,16) = (/ & - &3.5587e+02 ,3.1138e+02 ,2.6690e+02 ,2.2242e+02 ,1.7795e+02 ,1.3345e+02 , & - &8.8970e+01 ,4.4486e+01 ,4.7553e+00 /) - -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. - - kbo(:,13, 1) = (/ & - &6.6242e-04 ,6.9229e-04 ,7.2125e-04 ,7.5111e-04 ,7.7882e-04 /) - kbo(:,14, 1) = (/ & - &5.7148e-04 ,6.0011e-04 ,6.2434e-04 ,6.4765e-04 ,6.6822e-04 /) - kbo(:,15, 1) = (/ & - &5.0245e-04 ,5.2495e-04 ,5.4519e-04 ,5.6261e-04 ,5.8004e-04 /) - kbo(:,16, 1) = (/ & - &4.4219e-04 ,4.6335e-04 ,4.7782e-04 ,4.9293e-04 ,5.0687e-04 /) - kbo(:,17, 1) = (/ & - &3.9452e-04 ,4.1172e-04 ,4.2558e-04 ,4.3834e-04 ,4.5031e-04 /) - kbo(:,18, 1) = (/ & - &3.5502e-04 ,3.7021e-04 ,3.8062e-04 ,3.9326e-04 ,4.0413e-04 /) - kbo(:,19, 1) = (/ & - &3.1835e-04 ,3.3204e-04 ,3.4438e-04 ,3.5308e-04 ,3.6251e-04 /) - kbo(:,20, 1) = (/ & - &2.7685e-04 ,2.8739e-04 ,2.9799e-04 ,3.0565e-04 ,3.1346e-04 /) - kbo(:,21, 1) = (/ & - &2.3803e-04 ,2.4613e-04 ,2.5507e-04 ,2.6118e-04 ,2.6805e-04 /) - kbo(:,22, 1) = (/ & - &2.0518e-04 ,2.1064e-04 ,2.1799e-04 ,2.2345e-04 ,2.2945e-04 /) - kbo(:,23, 1) = (/ & - &1.7609e-04 ,1.8136e-04 ,1.8691e-04 ,1.9179e-04 ,1.9680e-04 /) - kbo(:,24, 1) = (/ & - &1.5133e-04 ,1.5582e-04 ,1.6020e-04 ,1.6517e-04 ,1.6912e-04 /) - kbo(:,25, 1) = (/ & - &1.3023e-04 ,1.3355e-04 ,1.3826e-04 ,1.4195e-04 ,1.4464e-04 /) - kbo(:,26, 1) = (/ & - &1.1153e-04 ,1.1437e-04 ,1.1820e-04 ,1.2126e-04 ,1.2331e-04 /) - kbo(:,27, 1) = (/ & - &9.5262e-05 ,9.8055e-05 ,1.0080e-04 ,1.0342e-04 ,1.0508e-04 /) - kbo(:,28, 1) = (/ & - &8.1680e-05 ,8.3691e-05 ,8.6133e-05 ,8.8128e-05 ,8.9712e-05 /) - kbo(:,29, 1) = (/ & - &7.0309e-05 ,7.1883e-05 ,7.3686e-05 ,7.5287e-05 ,7.6689e-05 /) - kbo(:,30, 1) = (/ & - &6.0539e-05 ,6.1910e-05 ,6.3188e-05 ,6.4488e-05 ,6.6886e-05 /) - kbo(:,31, 1) = (/ & - &5.2744e-05 ,5.3514e-05 ,5.4453e-05 ,5.5692e-05 ,5.7687e-05 /) - kbo(:,32, 1) = (/ & - &4.5908e-05 ,4.6319e-05 ,4.7373e-05 ,4.8133e-05 ,4.9705e-05 /) - kbo(:,33, 1) = (/ & - &3.9867e-05 ,4.0547e-05 ,4.1159e-05 ,4.1892e-05 ,4.3045e-05 /) - kbo(:,34, 1) = (/ & - &3.4676e-05 ,3.5573e-05 ,3.6016e-05 ,3.7022e-05 ,3.7402e-05 /) - kbo(:,35, 1) = (/ & - &3.0380e-05 ,3.1177e-05 ,3.1680e-05 ,3.2397e-05 ,3.2578e-05 /) - kbo(:,36, 1) = (/ & - &2.6710e-05 ,2.7409e-05 ,2.7919e-05 ,2.8397e-05 ,2.8592e-05 /) - kbo(:,37, 1) = (/ & - &2.2468e-05 ,2.3018e-05 ,2.3378e-05 ,2.3912e-05 ,2.4011e-05 /) - kbo(:,38, 1) = (/ & - &1.8961e-05 ,1.9311e-05 ,1.9590e-05 ,2.0060e-05 ,2.0183e-05 /) - kbo(:,39, 1) = (/ & - &1.6038e-05 ,1.6240e-05 ,1.6497e-05 ,1.6653e-05 ,1.7067e-05 /) - kbo(:,40, 1) = (/ & - &1.3126e-05 ,1.3247e-05 ,1.3457e-05 ,1.3586e-05 ,1.3950e-05 /) - kbo(:,41, 1) = (/ & - &1.0642e-05 ,1.0779e-05 ,1.0904e-05 ,1.1060e-05 ,1.1348e-05 /) - kbo(:,42, 1) = (/ & - &8.5931e-06 ,8.7256e-06 ,8.8249e-06 ,8.9763e-06 ,9.1997e-06 /) - kbo(:,43, 1) = (/ & - &6.8315e-06 ,7.0003e-06 ,7.0825e-06 ,7.1921e-06 ,7.3080e-06 /) - kbo(:,44, 1) = (/ & - &5.4113e-06 ,5.5622e-06 ,5.6277e-06 ,5.7357e-06 ,5.8407e-06 /) - kbo(:,45, 1) = (/ & - &4.2868e-06 ,4.4145e-06 ,4.4700e-06 ,4.5509e-06 ,4.6597e-06 /) - kbo(:,46, 1) = (/ & - &3.3813e-06 ,3.5001e-06 ,3.5350e-06 ,3.6083e-06 ,3.6919e-06 /) - kbo(:,47, 1) = (/ & - &2.6664e-06 ,2.7723e-06 ,2.7972e-06 ,2.8533e-06 ,2.9267e-06 /) - kbo(:,48, 1) = (/ & - &2.0946e-06 ,2.1711e-06 ,2.2048e-06 ,2.2465e-06 ,2.3102e-06 /) - kbo(:,49, 1) = (/ & - &1.6333e-06 ,1.6996e-06 ,1.7388e-06 ,1.7611e-06 ,1.8115e-06 /) - kbo(:,50, 1) = (/ & - &1.2781e-06 ,1.3328e-06 ,1.3698e-06 ,1.3938e-06 ,1.4265e-06 /) - kbo(:,51, 1) = (/ & - &1.0076e-06 ,1.0460e-06 ,1.0807e-06 ,1.1011e-06 ,1.1257e-06 /) - kbo(:,52, 1) = (/ & - &7.9394e-07 ,8.1840e-07 ,8.4881e-07 ,8.6654e-07 ,8.8734e-07 /) - kbo(:,53, 1) = (/ & - &6.1785e-07 ,6.3992e-07 ,6.6144e-07 ,6.7843e-07 ,6.9618e-07 /) - kbo(:,54, 1) = (/ & - &4.8490e-07 ,5.0506e-07 ,5.1952e-07 ,5.3413e-07 ,5.4905e-07 /) - kbo(:,55, 1) = (/ & - &3.8198e-07 ,3.9926e-07 ,4.1207e-07 ,4.2268e-07 ,4.3489e-07 /) - kbo(:,56, 1) = (/ & - &3.0062e-07 ,3.1357e-07 ,3.2461e-07 ,3.3313e-07 ,3.4390e-07 /) - kbo(:,57, 1) = (/ & - &2.3579e-07 ,2.4608e-07 ,2.5500e-07 ,2.6288e-07 ,2.7145e-07 /) - kbo(:,58, 1) = (/ & - &1.8530e-07 ,1.9293e-07 ,2.0021e-07 ,2.0804e-07 ,2.1510e-07 /) - kbo(:,59, 1) = (/ & - &1.4951e-07 ,1.5512e-07 ,1.6259e-07 ,1.6844e-07 ,1.7451e-07 /) - kbo(:,13, 2) = (/ & - &2.8194e-03 ,3.0121e-03 ,3.1846e-03 ,3.3490e-03 ,3.5100e-03 /) - kbo(:,14, 2) = (/ & - &2.4827e-03 ,2.6492e-03 ,2.7938e-03 ,2.9346e-03 ,3.0538e-03 /) - kbo(:,15, 2) = (/ & - &2.2064e-03 ,2.3375e-03 ,2.4556e-03 ,2.5697e-03 ,2.6626e-03 /) - kbo(:,16, 2) = (/ & - &1.9378e-03 ,2.0444e-03 ,2.1458e-03 ,2.2321e-03 ,2.3069e-03 /) - kbo(:,17, 2) = (/ & - &1.7072e-03 ,1.7953e-03 ,1.8810e-03 ,1.9513e-03 ,2.0122e-03 /) - kbo(:,18, 2) = (/ & - &1.5182e-03 ,1.5881e-03 ,1.6604e-03 ,1.7175e-03 ,1.7691e-03 /) - kbo(:,19, 2) = (/ & - &1.3604e-03 ,1.4237e-03 ,1.4711e-03 ,1.5216e-03 ,1.5631e-03 /) - kbo(:,20, 2) = (/ & - &1.1858e-03 ,1.2290e-03 ,1.2712e-03 ,1.3090e-03 ,1.3421e-03 /) - kbo(:,21, 2) = (/ & - &1.0189e-03 ,1.0547e-03 ,1.0885e-03 ,1.1186e-03 ,1.1432e-03 /) - kbo(:,22, 2) = (/ & - &8.7055e-04 ,9.0481e-04 ,9.2821e-04 ,9.5252e-04 ,9.7075e-04 /) - kbo(:,23, 2) = (/ & - &7.4675e-04 ,7.7099e-04 ,7.9133e-04 ,8.0933e-04 ,8.2551e-04 /) - kbo(:,24, 2) = (/ & - &6.4034e-04 ,6.5905e-04 ,6.7517e-04 ,6.8951e-04 ,7.0349e-04 /) - kbo(:,25, 2) = (/ & - &5.4635e-04 ,5.6117e-04 ,5.7460e-04 ,5.8668e-04 ,5.9880e-04 /) - kbo(:,26, 2) = (/ & - &4.6328e-04 ,4.7565e-04 ,4.8724e-04 ,4.9802e-04 ,5.0785e-04 /) - kbo(:,27, 2) = (/ & - &3.9145e-04 ,4.0138e-04 ,4.1206e-04 ,4.2067e-04 ,4.2970e-04 /) - kbo(:,28, 2) = (/ & - &3.2965e-04 ,3.3905e-04 ,3.4755e-04 ,3.5536e-04 ,3.6345e-04 /) - kbo(:,29, 2) = (/ & - &2.7722e-04 ,2.8535e-04 ,2.9237e-04 ,2.9947e-04 ,3.0668e-04 /) - kbo(:,30, 2) = (/ & - &2.3378e-04 ,2.4040e-04 ,2.4667e-04 ,2.5278e-04 ,2.6270e-04 /) - kbo(:,31, 2) = (/ & - &1.9661e-04 ,2.0207e-04 ,2.0803e-04 ,2.1348e-04 ,2.2186e-04 /) - kbo(:,32, 2) = (/ & - &1.6562e-04 ,1.7146e-04 ,1.7695e-04 ,1.8193e-04 ,1.8929e-04 /) - kbo(:,33, 2) = (/ & - &1.4107e-04 ,1.4666e-04 ,1.5183e-04 ,1.5594e-04 ,1.6243e-04 /) - kbo(:,34, 2) = (/ & - &1.2158e-04 ,1.2598e-04 ,1.3011e-04 ,1.3588e-04 ,1.4023e-04 /) - kbo(:,35, 2) = (/ & - &1.0453e-04 ,1.0824e-04 ,1.1246e-04 ,1.1806e-04 ,1.2280e-04 /) - kbo(:,36, 2) = (/ & - &9.0281e-05 ,9.3775e-05 ,9.7901e-05 ,1.0364e-04 ,1.0744e-04 /) - kbo(:,37, 2) = (/ & - &7.5786e-05 ,7.8742e-05 ,8.2503e-05 ,8.7040e-05 ,8.9489e-05 /) - kbo(:,38, 2) = (/ & - &6.3149e-05 ,6.6113e-05 ,6.8833e-05 ,7.2371e-05 ,7.4496e-05 /) - kbo(:,39, 2) = (/ & - &5.2982e-05 ,5.5381e-05 ,5.7239e-05 ,5.9241e-05 ,6.1954e-05 /) - kbo(:,40, 2) = (/ & - &4.3111e-05 ,4.5156e-05 ,4.6617e-05 ,4.8324e-05 ,5.0544e-05 /) - kbo(:,41, 2) = (/ & - &3.4957e-05 ,3.6661e-05 ,3.7913e-05 ,3.9243e-05 ,4.1170e-05 /) - kbo(:,42, 2) = (/ & - &2.8335e-05 ,2.9735e-05 ,3.0788e-05 ,3.1864e-05 ,3.3563e-05 /) - kbo(:,43, 2) = (/ & - &2.2801e-05 ,2.3962e-05 ,2.4808e-05 ,2.5685e-05 ,2.6685e-05 /) - kbo(:,44, 2) = (/ & - &1.8216e-05 ,1.9207e-05 ,1.9940e-05 ,2.0623e-05 ,2.1468e-05 /) - kbo(:,45, 2) = (/ & - &1.4497e-05 ,1.5369e-05 ,1.6010e-05 ,1.6560e-05 ,1.7214e-05 /) - kbo(:,46, 2) = (/ & - &1.1546e-05 ,1.2283e-05 ,1.2829e-05 ,1.3281e-05 ,1.3789e-05 /) - kbo(:,47, 2) = (/ & - &9.1407e-06 ,9.7102e-06 ,1.0256e-05 ,1.0642e-05 ,1.1044e-05 /) - kbo(:,48, 2) = (/ & - &7.2582e-06 ,7.7178e-06 ,8.1771e-06 ,8.5159e-06 ,8.8287e-06 /) - kbo(:,49, 2) = (/ & - &5.7413e-06 ,6.0895e-06 ,6.4724e-06 ,6.7948e-06 ,7.0423e-06 /) - kbo(:,50, 2) = (/ & - &4.5645e-06 ,4.8219e-06 ,5.1398e-06 ,5.4019e-06 ,5.6251e-06 /) - kbo(:,51, 2) = (/ & - &3.6347e-06 ,3.8345e-06 ,4.0925e-06 ,4.2999e-06 ,4.4976e-06 /) - kbo(:,52, 2) = (/ & - &2.8914e-06 ,3.0394e-06 ,3.2506e-06 ,3.4210e-06 ,3.5835e-06 /) - kbo(:,53, 2) = (/ & - &2.2827e-06 ,2.4183e-06 ,2.5753e-06 ,2.7165e-06 ,2.8435e-06 /) - kbo(:,54, 2) = (/ & - &1.8109e-06 ,1.9319e-06 ,2.0517e-06 ,2.1771e-06 ,2.2825e-06 /) - kbo(:,55, 2) = (/ & - &1.4459e-06 ,1.5442e-06 ,1.6423e-06 ,1.7466e-06 ,1.8412e-06 /) - kbo(:,56, 2) = (/ & - &1.1487e-06 ,1.2318e-06 ,1.3168e-06 ,1.4029e-06 ,1.4853e-06 /) - kbo(:,57, 2) = (/ & - &9.1432e-07 ,9.8206e-07 ,1.0551e-06 ,1.1262e-06 ,1.1922e-06 /) - kbo(:,58, 2) = (/ & - &7.2392e-07 ,7.8435e-07 ,8.4467e-07 ,9.0516e-07 ,9.5596e-07 /) - kbo(:,59, 2) = (/ & - &5.9300e-07 ,6.4245e-07 ,6.9378e-07 ,7.4259e-07 ,7.8676e-07 /) - kbo(:,13, 3) = (/ & - &8.5247e-03 ,8.9273e-03 ,9.3494e-03 ,9.7833e-03 ,1.0198e-02 /) - kbo(:,14, 3) = (/ & - &7.6220e-03 ,7.9465e-03 ,8.3037e-03 ,8.6680e-03 ,9.0184e-03 /) - kbo(:,15, 3) = (/ & - &6.7313e-03 ,7.0250e-03 ,7.3390e-03 ,7.6496e-03 ,7.9523e-03 /) - kbo(:,16, 3) = (/ & - &5.8626e-03 ,6.1324e-03 ,6.4081e-03 ,6.6680e-03 ,6.9239e-03 /) - kbo(:,17, 3) = (/ & - &5.1190e-03 ,5.3847e-03 ,5.6114e-03 ,5.8394e-03 ,6.0319e-03 /) - kbo(:,18, 3) = (/ & - &4.4937e-03 ,4.7329e-03 ,4.9304e-03 ,5.1178e-03 ,5.2582e-03 /) - kbo(:,19, 3) = (/ & - &3.9714e-03 ,4.1523e-03 ,4.3393e-03 ,4.4847e-03 ,4.6081e-03 /) - kbo(:,20, 3) = (/ & - &3.4227e-03 ,3.5888e-03 ,3.7323e-03 ,3.8457e-03 ,3.9571e-03 /) - kbo(:,21, 3) = (/ & - &2.9355e-03 ,3.0688e-03 ,3.1813e-03 ,3.2800e-03 ,3.3665e-03 /) - kbo(:,22, 3) = (/ & - &2.5131e-03 ,2.6136e-03 ,2.7075e-03 ,2.7888e-03 ,2.8576e-03 /) - kbo(:,23, 3) = (/ & - &2.1439e-03 ,2.2229e-03 ,2.3069e-03 ,2.3691e-03 ,2.4314e-03 /) - kbo(:,24, 3) = (/ & - &1.8279e-03 ,1.8995e-03 ,1.9649e-03 ,2.0190e-03 ,2.0668e-03 /) - kbo(:,25, 3) = (/ & - &1.5582e-03 ,1.6177e-03 ,1.6674e-03 ,1.7146e-03 ,1.7550e-03 /) - kbo(:,26, 3) = (/ & - &1.3272e-03 ,1.3717e-03 ,1.4140e-03 ,1.4536e-03 ,1.4858e-03 /) - kbo(:,27, 3) = (/ & - &1.1230e-03 ,1.1594e-03 ,1.1953e-03 ,1.2264e-03 ,1.2540e-03 /) - kbo(:,28, 3) = (/ & - &9.4753e-04 ,9.7763e-04 ,1.0074e-03 ,1.0308e-03 ,1.0536e-03 /) - kbo(:,29, 3) = (/ & - &7.9502e-04 ,8.1974e-04 ,8.4372e-04 ,8.6478e-04 ,8.8308e-04 /) - kbo(:,30, 3) = (/ & - &6.6596e-04 ,6.8697e-04 ,7.0803e-04 ,7.2439e-04 ,7.5784e-04 /) - kbo(:,31, 3) = (/ & - &5.5745e-04 ,5.7516e-04 ,5.9220e-04 ,6.0512e-04 ,6.3289e-04 /) - kbo(:,32, 3) = (/ & - &4.6662e-04 ,4.8150e-04 ,4.9505e-04 ,5.0361e-04 ,5.2756e-04 /) - kbo(:,33, 3) = (/ & - &3.9094e-04 ,4.0255e-04 ,4.1211e-04 ,4.1938e-04 ,4.4050e-04 /) - kbo(:,34, 3) = (/ & - &3.2769e-04 ,3.3699e-04 ,3.4471e-04 ,3.6275e-04 ,3.6949e-04 /) - kbo(:,35, 3) = (/ & - &2.7475e-04 ,2.8204e-04 ,2.8828e-04 ,3.0332e-04 ,3.0836e-04 /) - kbo(:,36, 3) = (/ & - &2.2983e-04 ,2.3568e-04 ,2.4113e-04 ,2.5319e-04 ,2.5736e-04 /) - kbo(:,37, 3) = (/ & - &1.8895e-04 ,1.9397e-04 ,1.9807e-04 ,2.0882e-04 ,2.1275e-04 /) - kbo(:,38, 3) = (/ & - &1.5549e-04 ,1.5951e-04 ,1.6323e-04 ,1.7252e-04 ,1.7561e-04 /) - kbo(:,39, 3) = (/ & - &1.2765e-04 ,1.3102e-04 ,1.3443e-04 ,1.3776e-04 ,1.4478e-04 /) - kbo(:,40, 3) = (/ & - &1.0414e-04 ,1.0697e-04 ,1.0972e-04 ,1.1251e-04 ,1.1839e-04 /) - kbo(:,41, 3) = (/ & - &8.4861e-05 ,8.7037e-05 ,8.9345e-05 ,9.1552e-05 ,9.6450e-05 /) - kbo(:,42, 3) = (/ & - &6.9029e-05 ,7.0620e-05 ,7.2608e-05 ,7.4362e-05 ,7.8451e-05 /) - kbo(:,43, 3) = (/ & - &5.5731e-05 ,5.6934e-05 ,5.8627e-05 ,6.0036e-05 ,6.1419e-05 /) - kbo(:,44, 3) = (/ & - &4.4750e-05 ,4.5795e-05 ,4.7066e-05 ,4.8320e-05 ,4.9340e-05 /) - kbo(:,45, 3) = (/ & - &3.5902e-05 ,3.6793e-05 ,3.7710e-05 ,3.8772e-05 ,3.9634e-05 /) - kbo(:,46, 3) = (/ & - &2.8669e-05 ,2.9406e-05 ,3.0158e-05 ,3.1055e-05 ,3.1783e-05 /) - kbo(:,47, 3) = (/ & - &2.2957e-05 ,2.3586e-05 ,2.4179e-05 ,2.4875e-05 ,2.5463e-05 /) - kbo(:,48, 3) = (/ & - &1.8322e-05 ,1.8764e-05 ,1.9281e-05 ,1.9846e-05 ,2.0330e-05 /) - kbo(:,49, 3) = (/ & - &1.4581e-05 ,1.4948e-05 ,1.5326e-05 ,1.5796e-05 ,1.6188e-05 /) - kbo(:,50, 3) = (/ & - &1.1658e-05 ,1.1996e-05 ,1.2253e-05 ,1.2626e-05 ,1.2988e-05 /) - kbo(:,51, 3) = (/ & - &9.3098e-06 ,9.6196e-06 ,9.8320e-06 ,1.0134e-05 ,1.0431e-05 /) - kbo(:,52, 3) = (/ & - &7.3883e-06 ,7.7108e-06 ,7.8752e-06 ,8.1035e-06 ,8.3459e-06 /) - kbo(:,53, 3) = (/ & - &5.8592e-06 ,6.1249e-06 ,6.2920e-06 ,6.4688e-06 ,6.6480e-06 /) - kbo(:,54, 3) = (/ & - &4.7059e-06 ,4.9088e-06 ,5.0922e-06 ,5.2219e-06 ,5.3713e-06 /) - kbo(:,55, 3) = (/ & - &3.7899e-06 ,3.9660e-06 ,4.1365e-06 ,4.2472e-06 ,4.3644e-06 /) - kbo(:,56, 3) = (/ & - &3.0554e-06 ,3.2100e-06 ,3.3483e-06 ,3.4494e-06 ,3.5457e-06 /) - kbo(:,57, 3) = (/ & - &2.4489e-06 ,2.5923e-06 ,2.7014e-06 ,2.7985e-06 ,2.8823e-06 /) - kbo(:,58, 3) = (/ & - &1.9694e-06 ,2.0948e-06 ,2.1872e-06 ,2.2740e-06 ,2.3512e-06 /) - kbo(:,59, 3) = (/ & - &1.6303e-06 ,1.7449e-06 ,1.8268e-06 ,1.9070e-06 ,1.9708e-06 /) - kbo(:,13, 4) = (/ & - &1.8047e-02 ,1.8718e-02 ,1.9333e-02 ,1.9945e-02 ,2.0619e-02 /) - kbo(:,14, 4) = (/ & - &1.6432e-02 ,1.7100e-02 ,1.7741e-02 ,1.8401e-02 ,1.9089e-02 /) - kbo(:,15, 4) = (/ & - &1.4807e-02 ,1.5451e-02 ,1.6100e-02 ,1.6750e-02 ,1.7413e-02 /) - kbo(:,16, 4) = (/ & - &1.3139e-02 ,1.3704e-02 ,1.4262e-02 ,1.4904e-02 ,1.5552e-02 /) - kbo(:,17, 4) = (/ & - &1.1663e-02 ,1.2130e-02 ,1.2669e-02 ,1.3218e-02 ,1.3830e-02 /) - kbo(:,18, 4) = (/ & - &1.0329e-02 ,1.0751e-02 ,1.1271e-02 ,1.1798e-02 ,1.2374e-02 /) - kbo(:,19, 4) = (/ & - &9.2112e-03 ,9.6353e-03 ,1.0130e-02 ,1.0649e-02 ,1.1157e-02 /) - kbo(:,20, 4) = (/ & - &8.0574e-03 ,8.4807e-03 ,8.9054e-03 ,9.3587e-03 ,9.7992e-03 /) - kbo(:,21, 4) = (/ & - &7.0019e-03 ,7.3853e-03 ,7.7827e-03 ,8.1758e-03 ,8.5421e-03 /) - kbo(:,22, 4) = (/ & - &6.0893e-03 ,6.4266e-03 ,6.7752e-03 ,7.1040e-03 ,7.4095e-03 /) - kbo(:,23, 4) = (/ & - &5.2966e-03 ,5.5992e-03 ,5.8988e-03 ,6.1748e-03 ,6.4166e-03 /) - kbo(:,24, 4) = (/ & - &4.6174e-03 ,4.8835e-03 ,5.1353e-03 ,5.3661e-03 ,5.5632e-03 /) - kbo(:,25, 4) = (/ & - &4.0173e-03 ,4.2433e-03 ,4.4670e-03 ,4.6521e-03 ,4.8258e-03 /) - kbo(:,26, 4) = (/ & - &3.4865e-03 ,3.6826e-03 ,3.8670e-03 ,4.0200e-03 ,4.1614e-03 /) - kbo(:,27, 4) = (/ & - &3.0102e-03 ,3.1785e-03 ,3.3303e-03 ,3.4548e-03 ,3.5736e-03 /) - kbo(:,28, 4) = (/ & - &2.5902e-03 ,2.7336e-03 ,2.8553e-03 ,2.9588e-03 ,3.0603e-03 /) - kbo(:,29, 4) = (/ & - &2.2148e-03 ,2.3314e-03 ,2.4216e-03 ,2.5098e-03 ,2.5968e-03 /) - kbo(:,30, 4) = (/ & - &1.8884e-03 ,1.9733e-03 ,2.0479e-03 ,2.1223e-03 ,2.2826e-03 /) - kbo(:,31, 4) = (/ & - &1.5995e-03 ,1.6617e-03 ,1.7230e-03 ,1.7883e-03 ,1.9307e-03 /) - kbo(:,32, 4) = (/ & - &1.3496e-03 ,1.3999e-03 ,1.4538e-03 ,1.5096e-03 ,1.6319e-03 /) - kbo(:,33, 4) = (/ & - &1.1363e-03 ,1.1813e-03 ,1.2287e-03 ,1.2753e-03 ,1.3874e-03 /) - kbo(:,34, 4) = (/ & - &9.6663e-04 ,1.0050e-03 ,1.0440e-03 ,1.1401e-03 ,1.1914e-03 /) - kbo(:,35, 4) = (/ & - &8.2252e-04 ,8.5291e-04 ,8.9255e-04 ,9.7906e-04 ,1.0213e-03 /) - kbo(:,36, 4) = (/ & - &6.9843e-04 ,7.2671e-04 ,7.6052e-04 ,8.3992e-04 ,8.7893e-04 /) - kbo(:,37, 4) = (/ & - &5.7973e-04 ,6.0624e-04 ,6.3703e-04 ,7.0532e-04 ,7.4046e-04 /) - kbo(:,38, 4) = (/ & - &4.8124e-04 ,5.0463e-04 ,5.3059e-04 ,5.8984e-04 ,6.2161e-04 /) - kbo(:,39, 4) = (/ & - &3.9797e-04 ,4.2007e-04 ,4.4141e-04 ,4.6508e-04 ,5.2126e-04 /) - kbo(:,40, 4) = (/ & - &3.2587e-04 ,3.4475e-04 ,3.6264e-04 ,3.8270e-04 ,4.3106e-04 /) - kbo(:,41, 4) = (/ & - &2.6592e-04 ,2.8134e-04 ,2.9669e-04 ,3.1406e-04 ,3.5481e-04 /) - kbo(:,42, 4) = (/ & - &2.1654e-04 ,2.2933e-04 ,2.4233e-04 ,2.5702e-04 ,2.9186e-04 /) - kbo(:,43, 4) = (/ & - &1.7468e-04 ,1.8487e-04 ,1.9562e-04 ,2.0857e-04 ,2.2203e-04 /) - kbo(:,44, 4) = (/ & - &1.3990e-04 ,1.4813e-04 ,1.5725e-04 ,1.6786e-04 ,1.7935e-04 /) - kbo(:,45, 4) = (/ & - &1.1147e-04 ,1.1816e-04 ,1.2590e-04 ,1.3456e-04 ,1.4433e-04 /) - kbo(:,46, 4) = (/ & - &8.8593e-05 ,9.4029e-05 ,1.0037e-04 ,1.0744e-04 ,1.1598e-04 /) - kbo(:,47, 4) = (/ & - &7.0072e-05 ,7.4712e-05 ,7.9919e-05 ,8.5900e-05 ,9.3033e-05 /) - kbo(:,48, 4) = (/ & - &5.5180e-05 ,5.9132e-05 ,6.3502e-05 ,6.8198e-05 ,7.4266e-05 /) - kbo(:,49, 4) = (/ & - &4.3109e-05 ,4.6388e-05 ,5.0075e-05 ,5.3912e-05 ,5.8896e-05 /) - kbo(:,50, 4) = (/ & - &3.4049e-05 ,3.6756e-05 ,3.9830e-05 ,4.3128e-05 ,4.7184e-05 /) - kbo(:,51, 4) = (/ & - &2.7005e-05 ,2.9148e-05 ,3.1674e-05 ,3.4539e-05 ,3.7748e-05 /) - kbo(:,52, 4) = (/ & - &2.1299e-05 ,2.3058e-05 ,2.5114e-05 ,2.7488e-05 ,3.0113e-05 /) - kbo(:,53, 4) = (/ & - &1.6705e-05 ,1.8140e-05 ,1.9875e-05 ,2.1784e-05 ,2.3982e-05 /) - kbo(:,54, 4) = (/ & - &1.3350e-05 ,1.4560e-05 ,1.5930e-05 ,1.7502e-05 ,1.9341e-05 /) - kbo(:,55, 4) = (/ & - &1.0773e-05 ,1.1749e-05 ,1.2886e-05 ,1.4153e-05 ,1.5702e-05 /) - kbo(:,56, 4) = (/ & - &8.6460e-06 ,9.4510e-06 ,1.0398e-05 ,1.1452e-05 ,1.2706e-05 /) - kbo(:,57, 4) = (/ & - &6.9096e-06 ,7.6015e-06 ,8.3864e-06 ,9.2473e-06 ,1.0265e-05 /) - kbo(:,58, 4) = (/ & - &5.5254e-06 ,6.1387e-06 ,6.7789e-06 ,7.4818e-06 ,8.3075e-06 /) - kbo(:,59, 4) = (/ & - &4.6551e-06 ,5.1865e-06 ,5.7401e-06 ,6.3194e-06 ,7.0521e-06 /) - kbo(:,13, 5) = (/ & - &3.4718e-02 ,3.5594e-02 ,3.6803e-02 ,3.8083e-02 ,3.9520e-02 /) - kbo(:,14, 5) = (/ & - &3.2238e-02 ,3.3220e-02 ,3.4363e-02 ,3.5532e-02 ,3.6904e-02 /) - kbo(:,15, 5) = (/ & - &3.0600e-02 ,3.1610e-02 ,3.2771e-02 ,3.3966e-02 ,3.5285e-02 /) - kbo(:,16, 5) = (/ & - &2.8159e-02 ,2.9168e-02 ,3.0264e-02 ,3.1396e-02 ,3.2647e-02 /) - kbo(:,17, 5) = (/ & - &2.5788e-02 ,2.6724e-02 ,2.7768e-02 ,2.8866e-02 ,3.0013e-02 /) - kbo(:,18, 5) = (/ & - &2.3487e-02 ,2.4520e-02 ,2.5499e-02 ,2.6557e-02 ,2.7740e-02 /) - kbo(:,19, 5) = (/ & - &2.1508e-02 ,2.2551e-02 ,2.3562e-02 ,2.4611e-02 ,2.5770e-02 /) - kbo(:,20, 5) = (/ & - &1.9153e-02 ,2.0099e-02 ,2.1123e-02 ,2.2234e-02 ,2.3370e-02 /) - kbo(:,21, 5) = (/ & - &1.6910e-02 ,1.7820e-02 ,1.8821e-02 ,1.9939e-02 ,2.1019e-02 /) - kbo(:,22, 5) = (/ & - &1.4892e-02 ,1.5824e-02 ,1.6836e-02 ,1.7897e-02 ,1.8973e-02 /) - kbo(:,23, 5) = (/ & - &1.3201e-02 ,1.4110e-02 ,1.5066e-02 ,1.6122e-02 ,1.7163e-02 /) - kbo(:,24, 5) = (/ & - &1.1786e-02 ,1.2643e-02 ,1.3592e-02 ,1.4574e-02 ,1.5604e-02 /) - kbo(:,25, 5) = (/ & - &1.0551e-02 ,1.1376e-02 ,1.2278e-02 ,1.3228e-02 ,1.4135e-02 /) - kbo(:,26, 5) = (/ & - &9.4341e-03 ,1.0259e-02 ,1.1075e-02 ,1.1949e-02 ,1.2760e-02 /) - kbo(:,27, 5) = (/ & - &8.4286e-03 ,9.1773e-03 ,9.9233e-03 ,1.0676e-02 ,1.1418e-02 /) - kbo(:,28, 5) = (/ & - &7.5098e-03 ,8.1852e-03 ,8.8662e-03 ,9.5190e-03 ,1.0161e-02 /) - kbo(:,29, 5) = (/ & - &6.6339e-03 ,7.2146e-03 ,7.8111e-03 ,8.3875e-03 ,8.9339e-03 /) - kbo(:,30, 5) = (/ & - &5.8318e-03 ,6.3504e-03 ,6.8644e-03 ,7.3656e-03 ,8.2854e-03 /) - kbo(:,31, 5) = (/ & - &5.0938e-03 ,5.5450e-03 ,5.9883e-03 ,6.4048e-03 ,7.2251e-03 /) - kbo(:,32, 5) = (/ & - &4.4534e-03 ,4.8436e-03 ,5.2343e-03 ,5.5836e-03 ,6.3649e-03 /) - kbo(:,33, 5) = (/ & - &3.8952e-03 ,4.2551e-03 ,4.5701e-03 ,4.9101e-03 ,5.6667e-03 /) - kbo(:,34, 5) = (/ & - &3.4434e-03 ,3.7546e-03 ,4.0585e-03 ,4.7206e-03 ,5.1136e-03 /) - kbo(:,35, 5) = (/ & - &3.0323e-03 ,3.3194e-03 ,3.6005e-03 ,4.2419e-03 ,4.6276e-03 /) - kbo(:,36, 5) = (/ & - &2.6713e-03 ,2.9283e-03 ,3.2072e-03 ,3.8119e-03 ,4.2091e-03 /) - kbo(:,37, 5) = (/ & - &2.2748e-03 ,2.5138e-03 ,2.7697e-03 ,3.3361e-03 ,3.7192e-03 /) - kbo(:,38, 5) = (/ & - &1.9294e-03 ,2.1456e-03 ,2.3858e-03 ,2.9205e-03 ,3.2883e-03 /) - kbo(:,39, 5) = (/ & - &1.6394e-03 ,1.8308e-03 ,2.0616e-03 ,2.3311e-03 ,2.9179e-03 /) - kbo(:,40, 5) = (/ & - &1.3611e-03 ,1.5347e-03 ,1.7447e-03 ,1.9909e-03 ,2.5336e-03 /) - kbo(:,41, 5) = (/ & - &1.1258e-03 ,1.2811e-03 ,1.4710e-03 ,1.6948e-03 ,2.1957e-03 /) - kbo(:,42, 5) = (/ & - &9.3054e-04 ,1.0685e-03 ,1.2380e-03 ,1.4417e-03 ,1.8992e-03 /) - kbo(:,43, 5) = (/ & - &7.5595e-04 ,8.7758e-04 ,1.0267e-03 ,1.2093e-03 ,1.4383e-03 /) - kbo(:,44, 5) = (/ & - &6.0708e-04 ,7.1329e-04 ,8.4285e-04 ,1.0050e-03 ,1.2098e-03 /) - kbo(:,45, 5) = (/ & - &4.8565e-04 ,5.7704e-04 ,6.8980e-04 ,8.3254e-04 ,1.0112e-03 /) - kbo(:,46, 5) = (/ & - &3.8568e-04 ,4.6292e-04 ,5.6071e-04 ,6.8523e-04 ,8.4055e-04 /) - kbo(:,47, 5) = (/ & - &3.0303e-04 ,3.6775e-04 ,4.5081e-04 ,5.5621e-04 ,6.9040e-04 /) - kbo(:,48, 5) = (/ & - &2.3629e-04 ,2.9047e-04 ,3.6009e-04 ,4.4971e-04 ,5.6449e-04 /) - kbo(:,49, 5) = (/ & - &1.8277e-04 ,2.2768e-04 ,2.8500e-04 ,3.5988e-04 ,4.5780e-04 /) - kbo(:,50, 5) = (/ & - &1.4236e-04 ,1.7948e-04 ,2.2683e-04 ,2.8959e-04 ,3.7278e-04 /) - kbo(:,51, 5) = (/ & - &1.1105e-04 ,1.4188e-04 ,1.8087e-04 ,2.3323e-04 ,3.0421e-04 /) - kbo(:,52, 5) = (/ & - &8.5949e-05 ,1.1090e-04 ,1.4310e-04 ,1.8669e-04 ,2.4668e-04 /) - kbo(:,53, 5) = (/ & - &6.6010e-05 ,8.6189e-05 ,1.1254e-04 ,1.4823e-04 ,1.9832e-04 /) - kbo(:,54, 5) = (/ & - &5.1508e-05 ,6.7802e-05 ,8.9425e-05 ,1.1908e-04 ,1.6117e-04 /) - kbo(:,55, 5) = (/ & - &4.0450e-05 ,5.3662e-05 ,7.1436e-05 ,9.6039e-05 ,1.3135e-04 /) - kbo(:,56, 5) = (/ & - &3.1739e-05 ,4.2180e-05 ,5.6735e-05 ,7.6991e-05 ,1.0631e-04 /) - kbo(:,57, 5) = (/ & - &2.4823e-05 ,3.2939e-05 ,4.4784e-05 ,6.1322e-05 ,8.5682e-05 /) - kbo(:,58, 5) = (/ & - &1.9514e-05 ,2.5849e-05 ,3.5397e-05 ,4.8867e-05 ,6.9076e-05 /) - kbo(:,59, 5) = (/ & - &1.6536e-05 ,2.1873e-05 ,3.0188e-05 ,4.2152e-05 ,6.0090e-05 /) - kbo(:,13, 6) = (/ & - &7.0936e-02 ,7.2599e-02 ,7.4412e-02 ,7.6631e-02 ,7.9197e-02 /) - kbo(:,14, 6) = (/ & - &6.5108e-02 ,6.6883e-02 ,6.8861e-02 ,7.1194e-02 ,7.3890e-02 /) - kbo(:,15, 6) = (/ & - &6.1844e-02 ,6.3875e-02 ,6.5914e-02 ,6.8440e-02 ,7.1135e-02 /) - kbo(:,16, 6) = (/ & - &5.8757e-02 ,6.1061e-02 ,6.3588e-02 ,6.6243e-02 ,6.9218e-02 /) - kbo(:,17, 6) = (/ & - &5.6075e-02 ,5.8373e-02 ,6.0818e-02 ,6.3696e-02 ,6.6956e-02 /) - kbo(:,18, 6) = (/ & - &5.3195e-02 ,5.5446e-02 ,5.8088e-02 ,6.0906e-02 ,6.3907e-02 /) - kbo(:,19, 6) = (/ & - &5.0738e-02 ,5.2979e-02 ,5.5433e-02 ,5.8280e-02 ,6.1280e-02 /) - kbo(:,20, 6) = (/ & - &4.6694e-02 ,4.8984e-02 ,5.1371e-02 ,5.4034e-02 ,5.7035e-02 /) - kbo(:,21, 6) = (/ & - &4.2499e-02 ,4.4760e-02 ,4.7087e-02 ,4.9709e-02 ,5.2664e-02 /) - kbo(:,22, 6) = (/ & - &3.8535e-02 ,4.0776e-02 ,4.3118e-02 ,4.5805e-02 ,4.8711e-02 /) - kbo(:,23, 6) = (/ & - &3.4990e-02 ,3.7200e-02 ,3.9611e-02 ,4.2290e-02 ,4.5266e-02 /) - kbo(:,24, 6) = (/ & - &3.1926e-02 ,3.4161e-02 ,3.6618e-02 ,3.9305e-02 ,4.2288e-02 /) - kbo(:,25, 6) = (/ & - &2.9165e-02 ,3.1418e-02 ,3.3868e-02 ,3.6528e-02 ,3.9610e-02 /) - kbo(:,26, 6) = (/ & - &2.6632e-02 ,2.8869e-02 ,3.1334e-02 ,3.4138e-02 ,3.7332e-02 /) - kbo(:,27, 6) = (/ & - &2.4229e-02 ,2.6481e-02 ,2.9027e-02 ,3.1970e-02 ,3.5096e-02 /) - kbo(:,28, 6) = (/ & - &2.2118e-02 ,2.4355e-02 ,2.6986e-02 ,2.9969e-02 ,3.3170e-02 /) - kbo(:,29, 6) = (/ & - &2.0075e-02 ,2.2435e-02 ,2.5083e-02 ,2.8074e-02 ,3.1267e-02 /) - kbo(:,30, 6) = (/ & - &1.8356e-02 ,2.0732e-02 ,2.3448e-02 ,2.6423e-02 ,3.0839e-02 /) - kbo(:,31, 6) = (/ & - &1.6821e-02 ,1.9252e-02 ,2.1963e-02 ,2.5007e-02 ,2.9517e-02 /) - kbo(:,32, 6) = (/ & - &1.5646e-02 ,1.8065e-02 ,2.0807e-02 ,2.3917e-02 ,2.8359e-02 /) - kbo(:,33, 6) = (/ & - &1.4697e-02 ,1.7147e-02 ,1.9949e-02 ,2.3040e-02 ,2.7566e-02 /) - kbo(:,34, 6) = (/ & - &1.3988e-02 ,1.6488e-02 ,1.9318e-02 ,2.3681e-02 ,2.7159e-02 /) - kbo(:,35, 6) = (/ & - &1.3271e-02 ,1.5781e-02 ,1.8680e-02 ,2.3148e-02 ,2.6620e-02 /) - kbo(:,36, 6) = (/ & - &1.2443e-02 ,1.5030e-02 ,1.7973e-02 ,2.2405e-02 ,2.5873e-02 /) - kbo(:,37, 6) = (/ & - &1.1274e-02 ,1.3767e-02 ,1.6642e-02 ,2.1024e-02 ,2.4462e-02 /) - kbo(:,38, 6) = (/ & - &1.0206e-02 ,1.2636e-02 ,1.5395e-02 ,1.9741e-02 ,2.3148e-02 /) - kbo(:,39, 6) = (/ & - &9.2481e-03 ,1.1600e-02 ,1.4300e-02 ,1.7327e-02 ,2.1951e-02 /) - kbo(:,40, 6) = (/ & - &8.1267e-03 ,1.0335e-02 ,1.2898e-02 ,1.5836e-02 ,2.0384e-02 /) - kbo(:,41, 6) = (/ & - &7.0946e-03 ,9.1506e-03 ,1.1587e-02 ,1.4430e-02 ,1.8862e-02 /) - kbo(:,42, 6) = (/ & - &6.1743e-03 ,8.0792e-03 ,1.0417e-02 ,1.3119e-02 ,1.7424e-02 /) - kbo(:,43, 6) = (/ & - &5.2531e-03 ,6.9901e-03 ,9.1605e-03 ,1.1697e-02 ,1.4583e-02 /) - kbo(:,44, 6) = (/ & - &4.3985e-03 ,5.9665e-03 ,7.9494e-03 ,1.0327e-02 ,1.3038e-02 /) - kbo(:,45, 6) = (/ & - &3.6636e-03 ,5.0581e-03 ,6.8612e-03 ,9.0504e-03 ,1.1599e-02 /) - kbo(:,46, 6) = (/ & - &3.0066e-03 ,4.2365e-03 ,5.8498e-03 ,7.8432e-03 ,1.0214e-02 /) - kbo(:,47, 6) = (/ & - &2.4125e-03 ,3.4783e-03 ,4.8978e-03 ,6.6863e-03 ,8.8516e-03 /) - kbo(:,48, 6) = (/ & - &1.9141e-03 ,2.8190e-03 ,4.0533e-03 ,5.6391e-03 ,7.5940e-03 /) - kbo(:,49, 6) = (/ & - &1.4995e-03 ,2.2582e-03 ,3.3183e-03 ,4.7078e-03 ,6.4551e-03 /) - kbo(:,50, 6) = (/ & - &1.1787e-03 ,1.8162e-03 ,2.7290e-03 ,3.9486e-03 ,5.5105e-03 /) - kbo(:,51, 6) = (/ & - &9.2536e-04 ,1.4546e-03 ,2.2372e-03 ,3.3051e-03 ,4.6909e-03 /) - kbo(:,52, 6) = (/ & - &7.1718e-04 ,1.1533e-03 ,1.8133e-03 ,2.7360e-03 ,3.9584e-03 /) - kbo(:,53, 6) = (/ & - &5.4913e-04 ,9.0136e-04 ,1.4515e-03 ,2.2390e-03 ,3.3052e-03 /) - kbo(:,54, 6) = (/ & - &4.2639e-04 ,7.1524e-04 ,1.1781e-03 ,1.8604e-03 ,2.8043e-03 /) - kbo(:,55, 6) = (/ & - &3.3211e-04 ,5.6986e-04 ,9.6021e-04 ,1.5541e-03 ,2.3898e-03 /) - kbo(:,56, 6) = (/ & - &2.5572e-04 ,4.4925e-04 ,7.7580e-04 ,1.2883e-03 ,2.0250e-03 /) - kbo(:,57, 6) = (/ & - &1.9517e-04 ,3.4994e-04 ,6.2105e-04 ,1.0576e-03 ,1.7032e-03 /) - kbo(:,58, 6) = (/ & - &1.4935e-04 ,2.7300e-04 ,4.9776e-04 ,8.6979e-04 ,1.4384e-03 /) - kbo(:,59, 6) = (/ & - &1.2881e-04 ,2.4100e-04 ,4.4942e-04 ,8.0211e-04 ,1.3455e-03 /) - kbo(:,13, 7) = (/ & - &1.5834e-01 ,1.6249e-01 ,1.6718e-01 ,1.7299e-01 ,1.7881e-01 /) - kbo(:,14, 7) = (/ & - &1.4697e-01 ,1.5136e-01 ,1.5631e-01 ,1.6088e-01 ,1.6631e-01 /) - kbo(:,15, 7) = (/ & - &1.4037e-01 ,1.4484e-01 ,1.4966e-01 ,1.5465e-01 ,1.6040e-01 /) - kbo(:,16, 7) = (/ & - &1.3335e-01 ,1.3799e-01 ,1.4282e-01 ,1.4817e-01 ,1.5433e-01 /) - kbo(:,17, 7) = (/ & - &1.2994e-01 ,1.3481e-01 ,1.4043e-01 ,1.4652e-01 ,1.5312e-01 /) - kbo(:,18, 7) = (/ & - &1.2814e-01 ,1.3395e-01 ,1.4042e-01 ,1.4789e-01 ,1.5627e-01 /) - kbo(:,19, 7) = (/ & - &1.2710e-01 ,1.3361e-01 ,1.4139e-01 ,1.4985e-01 ,1.5917e-01 /) - kbo(:,20, 7) = (/ & - &1.2151e-01 ,1.2844e-01 ,1.3635e-01 ,1.4526e-01 ,1.5485e-01 /) - kbo(:,21, 7) = (/ & - &1.1463e-01 ,1.2176e-01 ,1.2980e-01 ,1.3882e-01 ,1.4834e-01 /) - kbo(:,22, 7) = (/ & - &1.0733e-01 ,1.1471e-01 ,1.2303e-01 ,1.3189e-01 ,1.4224e-01 /) - kbo(:,23, 7) = (/ & - &1.0056e-01 ,1.0811e-01 ,1.1675e-01 ,1.2597e-01 ,1.3621e-01 /) - kbo(:,24, 7) = (/ & - &9.4505e-02 ,1.0259e-01 ,1.1127e-01 ,1.2075e-01 ,1.3101e-01 /) - kbo(:,25, 7) = (/ & - &8.9426e-02 ,9.7409e-02 ,1.0620e-01 ,1.1605e-01 ,1.2683e-01 /) - kbo(:,26, 7) = (/ & - &8.4533e-02 ,9.2442e-02 ,1.0164e-01 ,1.1173e-01 ,1.2271e-01 /) - kbo(:,27, 7) = (/ & - &7.9749e-02 ,8.8003e-02 ,9.7311e-02 ,1.0746e-01 ,1.1871e-01 /) - kbo(:,28, 7) = (/ & - &7.5483e-02 ,8.3936e-02 ,9.3313e-02 ,1.0378e-01 ,1.1507e-01 /) - kbo(:,29, 7) = (/ & - &7.1103e-02 ,7.9904e-02 ,8.9739e-02 ,1.0032e-01 ,1.1148e-01 /) - kbo(:,30, 7) = (/ & - &6.7483e-02 ,7.6590e-02 ,8.6589e-02 ,9.7210e-02 ,1.1098e-01 /) - kbo(:,31, 7) = (/ & - &6.4404e-02 ,7.3695e-02 ,8.3853e-02 ,9.4939e-02 ,1.0916e-01 /) - kbo(:,32, 7) = (/ & - &6.2132e-02 ,7.1593e-02 ,8.2197e-02 ,9.3726e-02 ,1.0838e-01 /) - kbo(:,33, 7) = (/ & - &6.0812e-02 ,7.0660e-02 ,8.1722e-02 ,9.3787e-02 ,1.0875e-01 /) - kbo(:,34, 7) = (/ & - &6.0340e-02 ,7.0788e-02 ,8.2210e-02 ,9.6618e-02 ,1.0965e-01 /) - kbo(:,35, 7) = (/ & - &5.9655e-02 ,7.0346e-02 ,8.1926e-02 ,9.6670e-02 ,1.0999e-01 /) - kbo(:,36, 7) = (/ & - &5.8475e-02 ,6.9222e-02 ,8.1005e-02 ,9.6061e-02 ,1.0964e-01 /) - kbo(:,37, 7) = (/ & - &5.5330e-02 ,6.5969e-02 ,7.7716e-02 ,9.2736e-02 ,1.0626e-01 /) - kbo(:,38, 7) = (/ & - &5.2353e-02 ,6.2872e-02 ,7.4519e-02 ,8.9400e-02 ,1.0278e-01 /) - kbo(:,39, 7) = (/ & - &4.9669e-02 ,5.9933e-02 ,7.1439e-02 ,8.4019e-02 ,9.9553e-02 /) - kbo(:,40, 7) = (/ & - &4.5810e-02 ,5.5845e-02 ,6.7001e-02 ,7.9231e-02 ,9.4558e-02 /) - kbo(:,41, 7) = (/ & - &4.2118e-02 ,5.1782e-02 ,6.2542e-02 ,7.4429e-02 ,8.9527e-02 /) - kbo(:,42, 7) = (/ & - &3.8602e-02 ,4.7947e-02 ,5.8290e-02 ,6.9790e-02 ,8.4691e-02 /) - kbo(:,43, 7) = (/ & - &3.4683e-02 ,4.3605e-02 ,5.3513e-02 ,6.4549e-02 ,7.6612e-02 /) - kbo(:,44, 7) = (/ & - &3.0820e-02 ,3.9228e-02 ,4.8707e-02 ,5.9113e-02 ,7.0667e-02 /) - kbo(:,45, 7) = (/ & - &2.7206e-02 ,3.5088e-02 ,4.4017e-02 ,5.3958e-02 ,6.4971e-02 /) - kbo(:,46, 7) = (/ & - &2.3728e-02 ,3.1004e-02 ,3.9410e-02 ,4.8844e-02 ,5.9195e-02 /) - kbo(:,47, 7) = (/ & - &2.0318e-02 ,2.6968e-02 ,3.4803e-02 ,4.3672e-02 ,5.3514e-02 /) - kbo(:,48, 7) = (/ & - &1.7221e-02 ,2.3270e-02 ,3.0475e-02 ,3.8751e-02 ,4.8067e-02 /) - kbo(:,49, 7) = (/ & - &1.4371e-02 ,1.9831e-02 ,2.6371e-02 ,3.4011e-02 ,4.2706e-02 /) - kbo(:,50, 7) = (/ & - &1.2067e-02 ,1.6953e-02 ,2.2948e-02 ,3.0025e-02 ,3.8163e-02 /) - kbo(:,51, 7) = (/ & - &1.0081e-02 ,1.4494e-02 ,1.9976e-02 ,2.6511e-02 ,3.4117e-02 /) - kbo(:,52, 7) = (/ & - &8.3102e-03 ,1.2227e-02 ,1.7157e-02 ,2.3198e-02 ,3.0263e-02 /) - kbo(:,53, 7) = (/ & - &6.7300e-03 ,1.0157e-02 ,1.4580e-02 ,2.0030e-02 ,2.6549e-02 /) - kbo(:,54, 7) = (/ & - &5.5699e-03 ,8.6183e-03 ,1.2632e-02 ,1.7641e-02 ,2.3782e-02 /) - kbo(:,55, 7) = (/ & - &4.6424e-03 ,7.3686e-03 ,1.1048e-02 ,1.5705e-02 ,2.1480e-02 /) - kbo(:,56, 7) = (/ & - &3.8360e-03 ,6.2508e-03 ,9.5901e-03 ,1.3914e-02 ,1.9327e-02 /) - kbo(:,57, 7) = (/ & - &3.1377e-03 ,5.2589e-03 ,8.2647e-03 ,1.2235e-02 ,1.7290e-02 /) - kbo(:,58, 7) = (/ & - &2.5678e-03 ,4.4320e-03 ,7.1403e-03 ,1.0793e-02 ,1.5530e-02 /) - kbo(:,59, 7) = (/ & - &2.3969e-03 ,4.2221e-03 ,6.8990e-03 ,1.0531e-02 ,1.5294e-02 /) - kbo(:,13, 8) = (/ & - &4.5374e-01 ,4.6892e-01 ,4.8468e-01 ,5.0059e-01 ,5.1827e-01 /) - kbo(:,14, 8) = (/ & - &4.3219e-01 ,4.4586e-01 ,4.6019e-01 ,4.7608e-01 ,4.9298e-01 /) - kbo(:,15, 8) = (/ & - &4.0920e-01 ,4.2277e-01 ,4.3751e-01 ,4.5370e-01 ,4.7139e-01 /) - kbo(:,16, 8) = (/ & - &3.8774e-01 ,3.9959e-01 ,4.1438e-01 ,4.3100e-01 ,4.4920e-01 /) - kbo(:,17, 8) = (/ & - &3.7675e-01 ,3.9034e-01 ,4.0535e-01 ,4.2142e-01 ,4.3931e-01 /) - kbo(:,18, 8) = (/ & - &3.7210e-01 ,3.8690e-01 ,4.0196e-01 ,4.1888e-01 ,4.3633e-01 /) - kbo(:,19, 8) = (/ & - &3.8004e-01 ,3.9604e-01 ,4.1156e-01 ,4.2942e-01 ,4.4872e-01 /) - kbo(:,20, 8) = (/ & - &3.8032e-01 ,3.9826e-01 ,4.1629e-01 ,4.3599e-01 ,4.5653e-01 /) - kbo(:,21, 8) = (/ & - &3.7841e-01 ,3.9929e-01 ,4.1819e-01 ,4.3972e-01 ,4.6162e-01 /) - kbo(:,22, 8) = (/ & - &3.7504e-01 ,3.9852e-01 ,4.2087e-01 ,4.4494e-01 ,4.6985e-01 /) - kbo(:,23, 8) = (/ & - &3.7298e-01 ,3.9721e-01 ,4.2335e-01 ,4.5127e-01 ,4.7949e-01 /) - kbo(:,24, 8) = (/ & - &3.7096e-01 ,3.9820e-01 ,4.2817e-01 ,4.5927e-01 ,4.9128e-01 /) - kbo(:,25, 8) = (/ & - &3.6772e-01 ,3.9818e-01 ,4.3145e-01 ,4.6548e-01 ,5.0188e-01 /) - kbo(:,26, 8) = (/ & - &3.6515e-01 ,3.9789e-01 ,4.3248e-01 ,4.6959e-01 ,5.0716e-01 /) - kbo(:,27, 8) = (/ & - &3.5912e-01 ,3.9421e-01 ,4.3089e-01 ,4.6934e-01 ,5.0871e-01 /) - kbo(:,28, 8) = (/ & - &3.5260e-01 ,3.8990e-01 ,4.2842e-01 ,4.6770e-01 ,5.0872e-01 /) - kbo(:,29, 8) = (/ & - &3.4566e-01 ,3.8302e-01 ,4.2135e-01 ,4.6236e-01 ,5.0539e-01 /) - kbo(:,30, 8) = (/ & - &3.3909e-01 ,3.7648e-01 ,4.1601e-01 ,4.5869e-01 ,5.0690e-01 /) - kbo(:,31, 8) = (/ & - &3.3097e-01 ,3.6927e-01 ,4.1020e-01 ,4.5248e-01 ,5.0201e-01 /) - kbo(:,32, 8) = (/ & - &3.2677e-01 ,3.6552e-01 ,4.0712e-01 ,4.4947e-01 ,4.9828e-01 /) - kbo(:,33, 8) = (/ & - &3.2437e-01 ,3.6324e-01 ,4.0445e-01 ,4.4744e-01 ,4.9526e-01 /) - kbo(:,34, 8) = (/ & - &3.2478e-01 ,3.6385e-01 ,4.0433e-01 ,4.5266e-01 ,4.9618e-01 /) - kbo(:,35, 8) = (/ & - &3.2335e-01 ,3.6225e-01 ,4.0283e-01 ,4.5093e-01 ,4.9595e-01 /) - kbo(:,36, 8) = (/ & - &3.1952e-01 ,3.5913e-01 ,4.0020e-01 ,4.4926e-01 ,4.9354e-01 /) - kbo(:,37, 8) = (/ & - &3.0545e-01 ,3.4531e-01 ,3.8604e-01 ,4.3520e-01 ,4.7874e-01 /) - kbo(:,38, 8) = (/ & - &2.9161e-01 ,3.3033e-01 ,3.7111e-01 ,4.1959e-01 ,4.6334e-01 /) - kbo(:,39, 8) = (/ & - &2.7728e-01 ,3.1579e-01 ,3.5591e-01 ,3.9884e-01 ,4.4658e-01 /) - kbo(:,40, 8) = (/ & - &2.6059e-01 ,2.9767e-01 ,3.3670e-01 ,3.7917e-01 ,4.2621e-01 /) - kbo(:,41, 8) = (/ & - &2.4427e-01 ,2.7974e-01 ,3.1821e-01 ,3.5868e-01 ,4.0499e-01 /) - kbo(:,42, 8) = (/ & - &2.2818e-01 ,2.6203e-01 ,2.9920e-01 ,3.3811e-01 ,3.8330e-01 /) - kbo(:,43, 8) = (/ & - &2.1001e-01 ,2.4274e-01 ,2.7765e-01 ,3.1477e-01 ,3.5346e-01 /) - kbo(:,44, 8) = (/ & - &1.9124e-01 ,2.2202e-01 ,2.5515e-01 ,2.8981e-01 ,3.2699e-01 /) - kbo(:,45, 8) = (/ & - &1.7260e-01 ,2.0229e-01 ,2.3352e-01 ,2.6561e-01 ,2.9973e-01 /) - kbo(:,46, 8) = (/ & - &1.5463e-01 ,1.8250e-01 ,2.1175e-01 ,2.4206e-01 ,2.7362e-01 /) - kbo(:,47, 8) = (/ & - &1.3753e-01 ,1.6353e-01 ,1.9105e-01 ,2.1973e-01 ,2.4911e-01 /) - kbo(:,48, 8) = (/ & - &1.2102e-01 ,1.4531e-01 ,1.7086e-01 ,1.9744e-01 ,2.2473e-01 /) - kbo(:,49, 8) = (/ & - &1.0521e-01 ,1.2719e-01 ,1.5065e-01 ,1.7507e-01 ,1.9976e-01 /) - kbo(:,50, 8) = (/ & - &9.2290e-02 ,1.1288e-01 ,1.3468e-01 ,1.5758e-01 ,1.8102e-01 /) - kbo(:,51, 8) = (/ & - &8.1396e-02 ,1.0065e-01 ,1.2103e-01 ,1.4278e-01 ,1.6472e-01 /) - kbo(:,52, 8) = (/ & - &7.1108e-02 ,8.8827e-02 ,1.0785e-01 ,1.2780e-01 ,1.4857e-01 /) - kbo(:,53, 8) = (/ & - &6.0985e-02 ,7.7296e-02 ,9.4909e-02 ,1.1304e-01 ,1.3292e-01 /) - kbo(:,54, 8) = (/ & - &5.4165e-02 ,6.9879e-02 ,8.6686e-02 ,1.0438e-01 ,1.2336e-01 /) - kbo(:,55, 8) = (/ & - &4.9072e-02 ,6.4377e-02 ,8.0975e-02 ,9.8517e-02 ,1.1715e-01 /) - kbo(:,56, 8) = (/ & - &4.4131e-02 ,5.9064e-02 ,7.5254e-02 ,9.2618e-02 ,1.1083e-01 /) - kbo(:,57, 8) = (/ & - &3.9404e-02 ,5.3744e-02 ,6.9648e-02 ,8.6728e-02 ,1.0474e-01 /) - kbo(:,58, 8) = (/ & - &3.5245e-02 ,4.9278e-02 ,6.4917e-02 ,8.1857e-02 ,9.9966e-02 /) - kbo(:,59, 8) = (/ & - &3.5641e-02 ,5.0530e-02 ,6.7256e-02 ,8.5600e-02 ,1.0518e-01 /) - kbo(:,13, 9) = (/ & - &3.0582e+00 ,3.1802e+00 ,3.2924e+00 ,3.3999e+00 ,3.5039e+00 /) - kbo(:,14, 9) = (/ & - &2.7741e+00 ,2.8902e+00 ,2.9983e+00 ,3.1018e+00 ,3.1995e+00 /) - kbo(:,15, 9) = (/ & - &2.5019e+00 ,2.6118e+00 ,2.7174e+00 ,2.8165e+00 ,2.9092e+00 /) - kbo(:,16, 9) = (/ & - &2.2794e+00 ,2.3785e+00 ,2.4700e+00 ,2.5601e+00 ,2.6476e+00 /) - kbo(:,17, 9) = (/ & - &2.1431e+00 ,2.2237e+00 ,2.2973e+00 ,2.3689e+00 ,2.4470e+00 /) - kbo(:,18, 9) = (/ & - &2.1112e+00 ,2.1931e+00 ,2.2642e+00 ,2.3350e+00 ,2.3995e+00 /) - kbo(:,19, 9) = (/ & - &2.1192e+00 ,2.1960e+00 ,2.2679e+00 ,2.3312e+00 ,2.3985e+00 /) - kbo(:,20, 9) = (/ & - &2.0719e+00 ,2.1504e+00 ,2.2204e+00 ,2.2883e+00 ,2.3541e+00 /) - kbo(:,21, 9) = (/ & - &2.0023e+00 ,2.0787e+00 ,2.1566e+00 ,2.2279e+00 ,2.2981e+00 /) - kbo(:,22, 9) = (/ & - &1.9677e+00 ,2.0354e+00 ,2.1023e+00 ,2.1820e+00 ,2.2522e+00 /) - kbo(:,23, 9) = (/ & - &1.9509e+00 ,2.0289e+00 ,2.0929e+00 ,2.1547e+00 ,2.2177e+00 /) - kbo(:,24, 9) = (/ & - &1.9605e+00 ,2.0316e+00 ,2.0945e+00 ,2.1537e+00 ,2.2147e+00 /) - kbo(:,25, 9) = (/ & - &1.9774e+00 ,2.0460e+00 ,2.1037e+00 ,2.1656e+00 ,2.2237e+00 /) - kbo(:,26, 9) = (/ & - &1.9746e+00 ,2.0494e+00 ,2.1183e+00 ,2.1793e+00 ,2.2462e+00 /) - kbo(:,27, 9) = (/ & - &1.9769e+00 ,2.0480e+00 ,2.1184e+00 ,2.1915e+00 ,2.2594e+00 /) - kbo(:,28, 9) = (/ & - &1.9705e+00 ,2.0478e+00 ,2.1273e+00 ,2.2021e+00 ,2.2684e+00 /) - kbo(:,29, 9) = (/ & - &1.9428e+00 ,2.0233e+00 ,2.1092e+00 ,2.1834e+00 ,2.2523e+00 /) - kbo(:,30, 9) = (/ & - &1.9054e+00 ,1.9928e+00 ,2.0804e+00 ,2.1559e+00 ,2.2456e+00 /) - kbo(:,31, 9) = (/ & - &1.8578e+00 ,1.9522e+00 ,2.0363e+00 ,2.1176e+00 ,2.2067e+00 /) - kbo(:,32, 9) = (/ & - &1.8167e+00 ,1.9163e+00 ,1.9986e+00 ,2.0826e+00 ,2.1707e+00 /) - kbo(:,33, 9) = (/ & - &1.7835e+00 ,1.8773e+00 ,1.9713e+00 ,2.0531e+00 ,2.1415e+00 /) - kbo(:,34, 9) = (/ & - &1.7699e+00 ,1.8654e+00 ,1.9579e+00 ,2.0589e+00 ,2.1344e+00 /) - kbo(:,35, 9) = (/ & - &1.7588e+00 ,1.8543e+00 ,1.9464e+00 ,2.0494e+00 ,2.1255e+00 /) - kbo(:,36, 9) = (/ & - &1.7548e+00 ,1.8549e+00 ,1.9407e+00 ,2.0440e+00 ,2.1280e+00 /) - kbo(:,37, 9) = (/ & - &1.7109e+00 ,1.8072e+00 ,1.9003e+00 ,1.9969e+00 ,2.0787e+00 /) - kbo(:,38, 9) = (/ & - &1.6587e+00 ,1.7570e+00 ,1.8515e+00 ,1.9517e+00 ,2.0362e+00 /) - kbo(:,39, 9) = (/ & - &1.5996e+00 ,1.6993e+00 ,1.7940e+00 ,1.8844e+00 ,1.9872e+00 /) - kbo(:,40, 9) = (/ & - &1.5318e+00 ,1.6341e+00 ,1.7309e+00 ,1.8212e+00 ,1.9247e+00 /) - kbo(:,41, 9) = (/ & - &1.4675e+00 ,1.5693e+00 ,1.6630e+00 ,1.7538e+00 ,1.8608e+00 /) - kbo(:,42, 9) = (/ & - &1.4053e+00 ,1.5014e+00 ,1.5957e+00 ,1.6862e+00 ,1.7957e+00 /) - kbo(:,43, 9) = (/ & - &1.3266e+00 ,1.4241e+00 ,1.5193e+00 ,1.6083e+00 ,1.7037e+00 /) - kbo(:,44, 9) = (/ & - &1.2422e+00 ,1.3405e+00 ,1.4375e+00 ,1.5296e+00 ,1.6219e+00 /) - kbo(:,45, 9) = (/ & - &1.1571e+00 ,1.2540e+00 ,1.3469e+00 ,1.4395e+00 ,1.5427e+00 /) - kbo(:,46, 9) = (/ & - &1.0762e+00 ,1.1688e+00 ,1.2622e+00 ,1.3587e+00 ,1.4621e+00 /) - kbo(:,47, 9) = (/ & - &9.9321e-01 ,1.0861e+00 ,1.1791e+00 ,1.2774e+00 ,1.3779e+00 /) - kbo(:,48, 9) = (/ & - &9.0640e-01 ,1.0035e+00 ,1.0964e+00 ,1.1955e+00 ,1.2984e+00 /) - kbo(:,49, 9) = (/ & - &8.2476e-01 ,9.1593e-01 ,1.0111e+00 ,1.1148e+00 ,1.2202e+00 /) - kbo(:,50, 9) = (/ & - &7.5762e-01 ,8.4984e-01 ,9.4454e-01 ,1.0468e+00 ,1.1530e+00 /) - kbo(:,51, 9) = (/ & - &6.9972e-01 ,7.8939e-01 ,8.8551e-01 ,9.8599e-01 ,1.0894e+00 /) - kbo(:,52, 9) = (/ & - &6.4292e-01 ,7.3062e-01 ,8.2745e-01 ,9.2620e-01 ,1.0265e+00 /) - kbo(:,53, 9) = (/ & - &5.8631e-01 ,6.7367e-01 ,7.6794e-01 ,8.6557e-01 ,9.6191e-01 /) - kbo(:,54, 9) = (/ & - &5.4766e-01 ,6.3312e-01 ,7.2658e-01 ,8.2340e-01 ,9.1820e-01 /) - kbo(:,55, 9) = (/ & - &5.1893e-01 ,6.0477e-01 ,6.9346e-01 ,7.9003e-01 ,8.8552e-01 /) - kbo(:,56, 9) = (/ & - &4.9077e-01 ,5.7504e-01 ,6.6139e-01 ,7.5822e-01 ,8.5232e-01 /) - kbo(:,57, 9) = (/ & - &4.6294e-01 ,5.4644e-01 ,6.3217e-01 ,7.2497e-01 ,8.2095e-01 /) - kbo(:,58, 9) = (/ & - &4.3872e-01 ,5.2209e-01 ,6.0717e-01 ,6.9576e-01 ,7.9255e-01 /) - kbo(:,59, 9) = (/ & - &4.5355e-01 ,5.4099e-01 ,6.2851e-01 ,7.1405e-01 ,8.0552e-01 /) - kbo(:,13,10) = (/ & - &1.4982e+01 ,1.5495e+01 ,1.5954e+01 ,1.6348e+01 ,1.6704e+01 /) - kbo(:,14,10) = (/ & - &1.3335e+01 ,1.3739e+01 ,1.4075e+01 ,1.4394e+01 ,1.4701e+01 /) - kbo(:,15,10) = (/ & - &1.2249e+01 ,1.2466e+01 ,1.2680e+01 ,1.2851e+01 ,1.2999e+01 /) - kbo(:,16,10) = (/ & - &1.1258e+01 ,1.1509e+01 ,1.1735e+01 ,1.1863e+01 ,1.1992e+01 /) - kbo(:,17,10) = (/ & - &9.6399e+00 ,9.9316e+00 ,1.0198e+01 ,1.0495e+01 ,1.0685e+01 /) - kbo(:,18,10) = (/ & - &8.3200e+00 ,8.3604e+00 ,8.4791e+00 ,8.5483e+00 ,8.6485e+00 /) - kbo(:,19,10) = (/ & - &8.1074e+00 ,8.1199e+00 ,8.1734e+00 ,8.2725e+00 ,8.2532e+00 /) - kbo(:,20,10) = (/ & - &8.0251e+00 ,8.0270e+00 ,8.1639e+00 ,8.2375e+00 ,8.2230e+00 /) - kbo(:,21,10) = (/ & - &7.9993e+00 ,8.0934e+00 ,8.2060e+00 ,8.1449e+00 ,8.1878e+00 /) - kbo(:,22,10) = (/ & - &7.7052e+00 ,7.8023e+00 ,8.0192e+00 ,8.0278e+00 ,8.0411e+00 /) - kbo(:,23,10) = (/ & - &7.2443e+00 ,7.3880e+00 ,7.6036e+00 ,7.7289e+00 ,7.8141e+00 /) - kbo(:,24,10) = (/ & - &6.8599e+00 ,6.9432e+00 ,7.2334e+00 ,7.4508e+00 ,7.5685e+00 /) - kbo(:,25,10) = (/ & - &6.7077e+00 ,6.7570e+00 ,7.0253e+00 ,7.1690e+00 ,7.3506e+00 /) - kbo(:,26,10) = (/ & - &6.7805e+00 ,6.7972e+00 ,6.9739e+00 ,6.9966e+00 ,7.1457e+00 /) - kbo(:,27,10) = (/ & - &6.6456e+00 ,6.8298e+00 ,6.9537e+00 ,6.8703e+00 ,6.9847e+00 /) - kbo(:,28,10) = (/ & - &6.6227e+00 ,6.7740e+00 ,6.7717e+00 ,6.7969e+00 ,6.8834e+00 /) - kbo(:,29,10) = (/ & - &6.5026e+00 ,6.7130e+00 ,6.6983e+00 ,6.7888e+00 ,6.9842e+00 /) - kbo(:,30,10) = (/ & - &6.4613e+00 ,6.7438e+00 ,6.7406e+00 ,6.8001e+00 ,7.0628e+00 /) - kbo(:,31,10) = (/ & - &6.4453e+00 ,6.5818e+00 ,6.6914e+00 ,6.8343e+00 ,7.1118e+00 /) - kbo(:,32,10) = (/ & - &6.4750e+00 ,6.5165e+00 ,6.6931e+00 ,6.9311e+00 ,7.2907e+00 /) - kbo(:,33,10) = (/ & - &6.3852e+00 ,6.5174e+00 ,6.6687e+00 ,7.0429e+00 ,7.4921e+00 /) - kbo(:,34,10) = (/ & - &6.2937e+00 ,6.5395e+00 ,6.7522e+00 ,7.1615e+00 ,7.5856e+00 /) - kbo(:,35,10) = (/ & - &6.2760e+00 ,6.5561e+00 ,6.8772e+00 ,7.3182e+00 ,7.7508e+00 /) - kbo(:,36,10) = (/ & - &6.2498e+00 ,6.5146e+00 ,6.9721e+00 ,7.4134e+00 ,7.7777e+00 /) - kbo(:,37,10) = (/ & - &6.0875e+00 ,6.4490e+00 ,6.8813e+00 ,7.4029e+00 ,7.7937e+00 /) - kbo(:,38,10) = (/ & - &5.9776e+00 ,6.3534e+00 ,6.8337e+00 ,7.2840e+00 ,7.6800e+00 /) - kbo(:,39,10) = (/ & - &5.9369e+00 ,6.2769e+00 ,6.7228e+00 ,7.1879e+00 ,7.5772e+00 /) - kbo(:,40,10) = (/ & - &5.8199e+00 ,6.1346e+00 ,6.5569e+00 ,7.0308e+00 ,7.5139e+00 /) - kbo(:,41,10) = (/ & - &5.6637e+00 ,5.9953e+00 ,6.3928e+00 ,6.8959e+00 ,7.3899e+00 /) - kbo(:,42,10) = (/ & - &5.4578e+00 ,5.8740e+00 ,6.2837e+00 ,6.7615e+00 ,7.2182e+00 /) - kbo(:,43,10) = (/ & - &5.2432e+00 ,5.6884e+00 ,6.0915e+00 ,6.5892e+00 ,7.0176e+00 /) - kbo(:,44,10) = (/ & - &5.0352e+00 ,5.5134e+00 ,5.9765e+00 ,6.3927e+00 ,6.8192e+00 /) - kbo(:,45,10) = (/ & - &4.8185e+00 ,5.3066e+00 ,5.8216e+00 ,6.2708e+00 ,6.5394e+00 /) - kbo(:,46,10) = (/ & - &4.5458e+00 ,5.0700e+00 ,5.5601e+00 ,5.9708e+00 ,6.3061e+00 /) - kbo(:,47,10) = (/ & - &4.3290e+00 ,4.8090e+00 ,5.3177e+00 ,5.7187e+00 ,6.0493e+00 /) - kbo(:,48,10) = (/ & - &4.1252e+00 ,4.6210e+00 ,5.0031e+00 ,5.3950e+00 ,5.6779e+00 /) - kbo(:,49,10) = (/ & - &3.8776e+00 ,4.3638e+00 ,4.7491e+00 ,5.0119e+00 ,5.3209e+00 /) - kbo(:,50,10) = (/ & - &3.6432e+00 ,4.1171e+00 ,4.5036e+00 ,4.8339e+00 ,5.0310e+00 /) - kbo(:,51,10) = (/ & - &3.4528e+00 ,3.8987e+00 ,4.2685e+00 ,4.6158e+00 ,4.8586e+00 /) - kbo(:,52,10) = (/ & - &3.2373e+00 ,3.6786e+00 ,4.0057e+00 ,4.3579e+00 ,4.6615e+00 /) - kbo(:,53,10) = (/ & - &3.0066e+00 ,3.4261e+00 ,3.7660e+00 ,4.0904e+00 ,4.4162e+00 /) - kbo(:,54,10) = (/ & - &2.8305e+00 ,3.2571e+00 ,3.6215e+00 ,3.9208e+00 ,4.2651e+00 /) - kbo(:,55,10) = (/ & - &2.6852e+00 ,3.0952e+00 ,3.4961e+00 ,3.7995e+00 ,4.1315e+00 /) - kbo(:,56,10) = (/ & - &2.5024e+00 ,2.9749e+00 ,3.3840e+00 ,3.6764e+00 ,4.0215e+00 /) - kbo(:,57,10) = (/ & - &2.3413e+00 ,2.8251e+00 ,3.2333e+00 ,3.5901e+00 ,3.8695e+00 /) - kbo(:,58,10) = (/ & - &2.2399e+00 ,2.6684e+00 ,3.1055e+00 ,3.4841e+00 ,3.7568e+00 /) - kbo(:,59,10) = (/ & - &2.3106e+00 ,2.6842e+00 ,3.0911e+00 ,3.5243e+00 ,3.8718e+00 /) - kbo(:,13,11) = (/ & - &3.1114e+01 ,3.1701e+01 ,3.2323e+01 ,3.2943e+01 ,3.3516e+01 /) - kbo(:,14,11) = (/ & - &2.7715e+01 ,2.8303e+01 ,2.8933e+01 ,2.9548e+01 ,3.0169e+01 /) - kbo(:,15,11) = (/ & - &2.4338e+01 ,2.4986e+01 ,2.5617e+01 ,2.6312e+01 ,2.7005e+01 /) - kbo(:,16,11) = (/ & - &2.1212e+01 ,2.1803e+01 ,2.2432e+01 ,2.3085e+01 ,2.3696e+01 /) - kbo(:,17,11) = (/ & - &1.8965e+01 ,1.9451e+01 ,1.9925e+01 ,2.0308e+01 ,2.0718e+01 /) - kbo(:,18,11) = (/ & - &1.6301e+01 ,1.6846e+01 ,1.7358e+01 ,1.7884e+01 ,1.8436e+01 /) - kbo(:,19,11) = (/ & - &1.3305e+01 ,1.3592e+01 ,1.3869e+01 ,1.4251e+01 ,1.4704e+01 /) - kbo(:,20,11) = (/ & - &1.2734e+01 ,1.2816e+01 ,1.2643e+01 ,1.2573e+01 ,1.2686e+01 /) - kbo(:,21,11) = (/ & - &1.2657e+01 ,1.2589e+01 ,1.2354e+01 ,1.2271e+01 ,1.2114e+01 /) - kbo(:,22,11) = (/ & - &1.2492e+01 ,1.2455e+01 ,1.2170e+01 ,1.1916e+01 ,1.1871e+01 /) - kbo(:,23,11) = (/ & - &1.2437e+01 ,1.2266e+01 ,1.2152e+01 ,1.1923e+01 ,1.2016e+01 /) - kbo(:,24,11) = (/ & - &1.2312e+01 ,1.2409e+01 ,1.2179e+01 ,1.1958e+01 ,1.2034e+01 /) - kbo(:,25,11) = (/ & - &1.1905e+01 ,1.2160e+01 ,1.2010e+01 ,1.2119e+01 ,1.2127e+01 /) - kbo(:,26,11) = (/ & - &1.1398e+01 ,1.1792e+01 ,1.1851e+01 ,1.2073e+01 ,1.2295e+01 /) - kbo(:,27,11) = (/ & - &1.1115e+01 ,1.1534e+01 ,1.1738e+01 ,1.2206e+01 ,1.2469e+01 /) - kbo(:,28,11) = (/ & - &1.0833e+01 ,1.1382e+01 ,1.1757e+01 ,1.2168e+01 ,1.2751e+01 /) - kbo(:,29,11) = (/ & - &1.0849e+01 ,1.1242e+01 ,1.1765e+01 ,1.2112e+01 ,1.2581e+01 /) - kbo(:,30,11) = (/ & - &1.0908e+01 ,1.1219e+01 ,1.1698e+01 ,1.2283e+01 ,1.2675e+01 /) - kbo(:,31,11) = (/ & - &1.1065e+01 ,1.1480e+01 ,1.1755e+01 ,1.2188e+01 ,1.2848e+01 /) - kbo(:,32,11) = (/ & - &1.1087e+01 ,1.1591e+01 ,1.1912e+01 ,1.2336e+01 ,1.2746e+01 /) - kbo(:,33,11) = (/ & - &1.1325e+01 ,1.1662e+01 ,1.2022e+01 ,1.2470e+01 ,1.2619e+01 /) - kbo(:,34,11) = (/ & - &1.1533e+01 ,1.1754e+01 ,1.2155e+01 ,1.2455e+01 ,1.2615e+01 /) - kbo(:,35,11) = (/ & - &1.1659e+01 ,1.1966e+01 ,1.2184e+01 ,1.2500e+01 ,1.2545e+01 /) - kbo(:,36,11) = (/ & - &1.1755e+01 ,1.2074e+01 ,1.2225e+01 ,1.2599e+01 ,1.2813e+01 /) - kbo(:,37,11) = (/ & - &1.1716e+01 ,1.1980e+01 ,1.2067e+01 ,1.2383e+01 ,1.2671e+01 /) - kbo(:,38,11) = (/ & - &1.1652e+01 ,1.1821e+01 ,1.1815e+01 ,1.2298e+01 ,1.2561e+01 /) - kbo(:,39,11) = (/ & - &1.1437e+01 ,1.1591e+01 ,1.1776e+01 ,1.2140e+01 ,1.2306e+01 /) - kbo(:,40,11) = (/ & - &1.1267e+01 ,1.1380e+01 ,1.1567e+01 ,1.1899e+01 ,1.1967e+01 /) - kbo(:,41,11) = (/ & - &1.0928e+01 ,1.1128e+01 ,1.1355e+01 ,1.1698e+01 ,1.1735e+01 /) - kbo(:,42,11) = (/ & - &1.0609e+01 ,1.0842e+01 ,1.1168e+01 ,1.1452e+01 ,1.1524e+01 /) - kbo(:,43,11) = (/ & - &1.0251e+01 ,1.0481e+01 ,1.0835e+01 ,1.1143e+01 ,1.1300e+01 /) - kbo(:,44,11) = (/ & - &9.7650e+00 ,1.0106e+01 ,1.0340e+01 ,1.0725e+01 ,1.0899e+01 /) - kbo(:,45,11) = (/ & - &9.2584e+00 ,9.6204e+00 ,9.9580e+00 ,1.0325e+01 ,1.0626e+01 /) - kbo(:,46,11) = (/ & - &8.9377e+00 ,9.1742e+00 ,9.5458e+00 ,9.9839e+00 ,1.0197e+01 /) - kbo(:,47,11) = (/ & - &8.5371e+00 ,8.7965e+00 ,9.0763e+00 ,9.5717e+00 ,9.9938e+00 /) - kbo(:,48,11) = (/ & - &7.9850e+00 ,8.3229e+00 ,8.7471e+00 ,9.1748e+00 ,9.6663e+00 /) - kbo(:,49,11) = (/ & - &7.4325e+00 ,7.8561e+00 ,8.3257e+00 ,8.9344e+00 ,9.3488e+00 /) - kbo(:,50,11) = (/ & - &6.9934e+00 ,7.5330e+00 ,7.9938e+00 ,8.5231e+00 ,9.1226e+00 /) - kbo(:,51,11) = (/ & - &6.6292e+00 ,7.1581e+00 ,7.7030e+00 ,8.1971e+00 ,8.9077e+00 /) - kbo(:,52,11) = (/ & - &6.2107e+00 ,6.7791e+00 ,7.3981e+00 ,7.9369e+00 ,8.8177e+00 /) - kbo(:,53,11) = (/ & - &5.7771e+00 ,6.3836e+00 ,7.0431e+00 ,7.8871e+00 ,8.9292e+00 /) - kbo(:,54,11) = (/ & - &5.5085e+00 ,6.1058e+00 ,6.7091e+00 ,7.6421e+00 ,8.6682e+00 /) - kbo(:,55,11) = (/ & - &5.3542e+00 ,5.9311e+00 ,6.5099e+00 ,7.2327e+00 ,8.2463e+00 /) - kbo(:,56,11) = (/ & - &5.2013e+00 ,5.6998e+00 ,6.2622e+00 ,6.8978e+00 ,7.7861e+00 /) - kbo(:,57,11) = (/ & - &4.9844e+00 ,5.4898e+00 ,6.0972e+00 ,6.6262e+00 ,7.3665e+00 /) - kbo(:,58,11) = (/ & - &4.7470e+00 ,5.3695e+00 ,5.9047e+00 ,6.4509e+00 ,7.0483e+00 /) - kbo(:,59,11) = (/ & - &4.7734e+00 ,5.4744e+00 ,6.0332e+00 ,6.5609e+00 ,7.0505e+00 /) - kbo(:,13,12) = (/ & - &6.9738e+01 ,7.0752e+01 ,7.1414e+01 ,7.2004e+01 ,7.2657e+01 /) - kbo(:,14,12) = (/ & - &6.4422e+01 ,6.5346e+01 ,6.6191e+01 ,6.7103e+01 ,6.7985e+01 /) - kbo(:,15,12) = (/ & - &5.8702e+01 ,5.9763e+01 ,6.0895e+01 ,6.1978e+01 ,6.3157e+01 /) - kbo(:,16,12) = (/ & - &5.3091e+01 ,5.4316e+01 ,5.5558e+01 ,5.6938e+01 ,5.8399e+01 /) - kbo(:,17,12) = (/ & - &4.7175e+01 ,4.8634e+01 ,5.0234e+01 ,5.1992e+01 ,5.3803e+01 /) - kbo(:,18,12) = (/ & - &4.1145e+01 ,4.2755e+01 ,4.4548e+01 ,4.6436e+01 ,4.8468e+01 /) - kbo(:,19,12) = (/ & - &3.4889e+01 ,3.6512e+01 ,3.8406e+01 ,4.0570e+01 ,4.2997e+01 /) - kbo(:,20,12) = (/ & - &2.8470e+01 ,3.0112e+01 ,3.2281e+01 ,3.4662e+01 ,3.7243e+01 /) - kbo(:,21,12) = (/ & - &2.3947e+01 ,2.5322e+01 ,2.7206e+01 ,2.9369e+01 ,3.2034e+01 /) - kbo(:,22,12) = (/ & - &2.2071e+01 ,2.2771e+01 ,2.4136e+01 ,2.6151e+01 ,2.8304e+01 /) - kbo(:,23,12) = (/ & - &2.1437e+01 ,2.2028e+01 ,2.2789e+01 ,2.3769e+01 ,2.5664e+01 /) - kbo(:,24,12) = (/ & - &2.1104e+01 ,2.1623e+01 ,2.2496e+01 ,2.3486e+01 ,2.4592e+01 /) - kbo(:,25,12) = (/ & - &2.1238e+01 ,2.1868e+01 ,2.2645e+01 ,2.3461e+01 ,2.4762e+01 /) - kbo(:,26,12) = (/ & - &2.1604e+01 ,2.2258e+01 ,2.3294e+01 ,2.4121e+01 ,2.5265e+01 /) - kbo(:,27,12) = (/ & - &2.2115e+01 ,2.2777e+01 ,2.3909e+01 ,2.4766e+01 ,2.5867e+01 /) - kbo(:,28,12) = (/ & - &2.2448e+01 ,2.3238e+01 ,2.4298e+01 ,2.5624e+01 ,2.6343e+01 /) - kbo(:,29,12) = (/ & - &2.2577e+01 ,2.3289e+01 ,2.4323e+01 ,2.5634e+01 ,2.6765e+01 /) - kbo(:,30,12) = (/ & - &2.2578e+01 ,2.3315e+01 ,2.4386e+01 ,2.5500e+01 ,2.6908e+01 /) - kbo(:,31,12) = (/ & - &2.2201e+01 ,2.3259e+01 ,2.4131e+01 ,2.5149e+01 ,2.6545e+01 /) - kbo(:,32,12) = (/ & - &2.2079e+01 ,2.2922e+01 ,2.4111e+01 ,2.5430e+01 ,2.6527e+01 /) - kbo(:,33,12) = (/ & - &2.2095e+01 ,2.2961e+01 ,2.4279e+01 ,2.5414e+01 ,2.7005e+01 /) - kbo(:,34,12) = (/ & - &2.2319e+01 ,2.3341e+01 ,2.4447e+01 ,2.6277e+01 ,2.7940e+01 /) - kbo(:,35,12) = (/ & - &2.2552e+01 ,2.3701e+01 ,2.5211e+01 ,2.6844e+01 ,2.9224e+01 /) - kbo(:,36,12) = (/ & - &2.3085e+01 ,2.4181e+01 ,2.5665e+01 ,2.7600e+01 ,3.0387e+01 /) - kbo(:,37,12) = (/ & - &2.2925e+01 ,2.4128e+01 ,2.5553e+01 ,2.7616e+01 ,3.1077e+01 /) - kbo(:,38,12) = (/ & - &2.2707e+01 ,2.3887e+01 ,2.5581e+01 ,2.8109e+01 ,3.1584e+01 /) - kbo(:,39,12) = (/ & - &2.2511e+01 ,2.3842e+01 ,2.5754e+01 ,2.8880e+01 ,3.2658e+01 /) - kbo(:,40,12) = (/ & - &2.1948e+01 ,2.3291e+01 ,2.5416e+01 ,2.8638e+01 ,3.2604e+01 /) - kbo(:,41,12) = (/ & - &2.1476e+01 ,2.2682e+01 ,2.5024e+01 ,2.8295e+01 ,3.2225e+01 /) - kbo(:,42,12) = (/ & - &2.0874e+01 ,2.2077e+01 ,2.4841e+01 ,2.8049e+01 ,3.2070e+01 /) - kbo(:,43,12) = (/ & - &2.0317e+01 ,2.1501e+01 ,2.4302e+01 ,2.7503e+01 ,3.1532e+01 /) - kbo(:,44,12) = (/ & - &1.9539e+01 ,2.0870e+01 ,2.3855e+01 ,2.7092e+01 ,3.1110e+01 /) - kbo(:,45,12) = (/ & - &1.8830e+01 ,2.0599e+01 ,2.3570e+01 ,2.6837e+01 ,3.0566e+01 /) - kbo(:,46,12) = (/ & - &1.8029e+01 ,2.0375e+01 ,2.3363e+01 ,2.6419e+01 ,3.0085e+01 /) - kbo(:,47,12) = (/ & - &1.7365e+01 ,1.9999e+01 ,2.2921e+01 ,2.5901e+01 ,2.9166e+01 /) - kbo(:,48,12) = (/ & - &1.7043e+01 ,1.9606e+01 ,2.2433e+01 ,2.5542e+01 ,2.8495e+01 /) - kbo(:,49,12) = (/ & - &1.6912e+01 ,1.9487e+01 ,2.2139e+01 ,2.5022e+01 ,2.8110e+01 /) - kbo(:,50,12) = (/ & - &1.6517e+01 ,1.8987e+01 ,2.1585e+01 ,2.4422e+01 ,2.7428e+01 /) - kbo(:,51,12) = (/ & - &1.5891e+01 ,1.8550e+01 ,2.1056e+01 ,2.3767e+01 ,2.6461e+01 /) - kbo(:,52,12) = (/ & - &1.5362e+01 ,1.8085e+01 ,2.0538e+01 ,2.3135e+01 ,2.5477e+01 /) - kbo(:,53,12) = (/ & - &1.4979e+01 ,1.7596e+01 ,2.0169e+01 ,2.2304e+01 ,2.4351e+01 /) - kbo(:,54,12) = (/ & - &1.4292e+01 ,1.6762e+01 ,1.9386e+01 ,2.1407e+01 ,2.3360e+01 /) - kbo(:,55,12) = (/ & - &1.3424e+01 ,1.5675e+01 ,1.8295e+01 ,2.0550e+01 ,2.2398e+01 /) - kbo(:,56,12) = (/ & - &1.2558e+01 ,1.4702e+01 ,1.7198e+01 ,1.9642e+01 ,2.1560e+01 /) - kbo(:,57,12) = (/ & - &1.1789e+01 ,1.3891e+01 ,1.6101e+01 ,1.8574e+01 ,2.0696e+01 /) - kbo(:,58,12) = (/ & - &1.0944e+01 ,1.2980e+01 ,1.5007e+01 ,1.7361e+01 ,1.9688e+01 /) - kbo(:,59,12) = (/ & - &1.0805e+01 ,1.1957e+01 ,1.3692e+01 ,1.5846e+01 ,1.8110e+01 /) - kbo(:,13,13) = (/ & - &1.5252e+02 ,1.5442e+02 ,1.5646e+02 ,1.5779e+02 ,1.5854e+02 /) - kbo(:,14,13) = (/ & - &1.5029e+02 ,1.5315e+02 ,1.5552e+02 ,1.5711e+02 ,1.5813e+02 /) - kbo(:,15,13) = (/ & - &1.4712e+02 ,1.5063e+02 ,1.5294e+02 ,1.5483e+02 ,1.5630e+02 /) - kbo(:,16,13) = (/ & - &1.4282e+02 ,1.4612e+02 ,1.4898e+02 ,1.5141e+02 ,1.5352e+02 /) - kbo(:,17,13) = (/ & - &1.3686e+02 ,1.4066e+02 ,1.4417e+02 ,1.4736e+02 ,1.5020e+02 /) - kbo(:,18,13) = (/ & - &1.3031e+02 ,1.3486e+02 ,1.3910e+02 ,1.4308e+02 ,1.4669e+02 /) - kbo(:,19,13) = (/ & - &1.2305e+02 ,1.2878e+02 ,1.3410e+02 ,1.3882e+02 ,1.4318e+02 /) - kbo(:,20,13) = (/ & - &1.1539e+02 ,1.2206e+02 ,1.2838e+02 ,1.3444e+02 ,1.4010e+02 /) - kbo(:,21,13) = (/ & - &1.0694e+02 ,1.1477e+02 ,1.2233e+02 ,1.2972e+02 ,1.3638e+02 /) - kbo(:,22,13) = (/ & - &9.8072e+01 ,1.0767e+02 ,1.1673e+02 ,1.2508e+02 ,1.3303e+02 /) - kbo(:,23,13) = (/ & - &8.9638e+01 ,1.0003e+02 ,1.1035e+02 ,1.2081e+02 ,1.2954e+02 /) - kbo(:,24,13) = (/ & - &8.2450e+01 ,9.3359e+01 ,1.0421e+02 ,1.1509e+02 ,1.2544e+02 /) - kbo(:,25,13) = (/ & - &7.6879e+01 ,8.7792e+01 ,9.9290e+01 ,1.1048e+02 ,1.2100e+02 /) - kbo(:,26,13) = (/ & - &7.3470e+01 ,8.4233e+01 ,9.5225e+01 ,1.0688e+02 ,1.1752e+02 /) - kbo(:,27,13) = (/ & - &7.1984e+01 ,8.2203e+01 ,9.3044e+01 ,1.0438e+02 ,1.1537e+02 /) - kbo(:,28,13) = (/ & - &7.1683e+01 ,8.1066e+01 ,9.2180e+01 ,1.0291e+02 ,1.1419e+02 /) - kbo(:,29,13) = (/ & - &7.3240e+01 ,8.2713e+01 ,9.3261e+01 ,1.0420e+02 ,1.1497e+02 /) - kbo(:,30,13) = (/ & - &7.5656e+01 ,8.5740e+01 ,9.5155e+01 ,1.0607e+02 ,1.1653e+02 /) - kbo(:,31,13) = (/ & - &7.9639e+01 ,8.9485e+01 ,9.9623e+01 ,1.0965e+02 ,1.1967e+02 /) - kbo(:,32,13) = (/ & - &8.5052e+01 ,9.4635e+01 ,1.0433e+02 ,1.1321e+02 ,1.2287e+02 /) - kbo(:,33,13) = (/ & - &9.0468e+01 ,1.0058e+02 ,1.0969e+02 ,1.1864e+02 ,1.2671e+02 /) - kbo(:,34,13) = (/ & - &9.5615e+01 ,1.0581e+02 ,1.1476e+02 ,1.2258e+02 ,1.3070e+02 /) - kbo(:,35,13) = (/ & - &9.9168e+01 ,1.0972e+02 ,1.1933e+02 ,1.2712e+02 ,1.3373e+02 /) - kbo(:,36,13) = (/ & - &1.0086e+02 ,1.1164e+02 ,1.2168e+02 ,1.3014e+02 ,1.3667e+02 /) - kbo(:,37,13) = (/ & - &1.0047e+02 ,1.1211e+02 ,1.2253e+02 ,1.3099e+02 ,1.3706e+02 /) - kbo(:,38,13) = (/ & - &1.0049e+02 ,1.1250e+02 ,1.2313e+02 ,1.3108e+02 ,1.3732e+02 /) - kbo(:,39,13) = (/ & - &1.0115e+02 ,1.1295e+02 ,1.2350e+02 ,1.3105e+02 ,1.3768e+02 /) - kbo(:,40,13) = (/ & - &9.9765e+01 ,1.1141e+02 ,1.2196e+02 ,1.2992e+02 ,1.3631e+02 /) - kbo(:,41,13) = (/ & - &9.8221e+01 ,1.1003e+02 ,1.2037e+02 ,1.2825e+02 ,1.3487e+02 /) - kbo(:,42,13) = (/ & - &9.7048e+01 ,1.0845e+02 ,1.1823e+02 ,1.2668e+02 ,1.3349e+02 /) - kbo(:,43,13) = (/ & - &9.4582e+01 ,1.0608e+02 ,1.1575e+02 ,1.2424e+02 ,1.3118e+02 /) - kbo(:,44,13) = (/ & - &9.2428e+01 ,1.0325e+02 ,1.1298e+02 ,1.2159e+02 ,1.2888e+02 /) - kbo(:,45,13) = (/ & - &9.0012e+01 ,1.0014e+02 ,1.0975e+02 ,1.1855e+02 ,1.2634e+02 /) - kbo(:,46,13) = (/ & - &8.6912e+01 ,9.6825e+01 ,1.0618e+02 ,1.1559e+02 ,1.2362e+02 /) - kbo(:,47,13) = (/ & - &8.3243e+01 ,9.2791e+01 ,1.0216e+02 ,1.1173e+02 ,1.2014e+02 /) - kbo(:,48,13) = (/ & - &7.9277e+01 ,8.8596e+01 ,9.7998e+01 ,1.0757e+02 ,1.1661e+02 /) - kbo(:,49,13) = (/ & - &7.5292e+01 ,8.4192e+01 ,9.3715e+01 ,1.0350e+02 ,1.1301e+02 /) - kbo(:,50,13) = (/ & - &7.1230e+01 ,8.0247e+01 ,8.9698e+01 ,9.9552e+01 ,1.0903e+02 /) - kbo(:,51,13) = (/ & - &6.7476e+01 ,7.6410e+01 ,8.5492e+01 ,9.5376e+01 ,1.0529e+02 /) - kbo(:,52,13) = (/ & - &6.3984e+01 ,7.2323e+01 ,8.1379e+01 ,9.1669e+01 ,1.0161e+02 /) - kbo(:,53,13) = (/ & - &6.0507e+01 ,6.8710e+01 ,7.7291e+01 ,8.7376e+01 ,9.7642e+01 /) - kbo(:,54,13) = (/ & - &5.7140e+01 ,6.5369e+01 ,7.3636e+01 ,8.3548e+01 ,9.3708e+01 /) - kbo(:,55,13) = (/ & - &5.3812e+01 ,6.2020e+01 ,7.0040e+01 ,7.9975e+01 ,8.9949e+01 /) - kbo(:,56,13) = (/ & - &5.0680e+01 ,5.8469e+01 ,6.6837e+01 ,7.6130e+01 ,8.6168e+01 /) - kbo(:,57,13) = (/ & - &4.7704e+01 ,5.5283e+01 ,6.3212e+01 ,7.2482e+01 ,8.2593e+01 /) - kbo(:,58,13) = (/ & - &4.4831e+01 ,5.2037e+01 ,6.0082e+01 ,6.9516e+01 ,7.9098e+01 /) - kbo(:,59,13) = (/ & - &4.1993e+01 ,5.0276e+01 ,5.8426e+01 ,6.7849e+01 ,7.7045e+01 /) - kbo(:,13,14) = (/ & - &3.2192e+02 ,3.1800e+02 ,3.1299e+02 ,3.0833e+02 ,3.0378e+02 /) - kbo(:,14,14) = (/ & - &3.3616e+02 ,3.3204e+02 ,3.2756e+02 ,3.2328e+02 ,3.1928e+02 /) - kbo(:,15,14) = (/ & - &3.4851e+02 ,3.4454e+02 ,3.4128e+02 ,3.3796e+02 ,3.3453e+02 /) - kbo(:,16,14) = (/ & - &3.5910e+02 ,3.5703e+02 ,3.5472e+02 ,3.5212e+02 ,3.4919e+02 /) - kbo(:,17,14) = (/ & - &3.6944e+02 ,3.6874e+02 ,3.6739e+02 ,3.6541e+02 ,3.6285e+02 /) - kbo(:,18,14) = (/ & - &3.7860e+02 ,3.7918e+02 ,3.7877e+02 ,3.7733e+02 ,3.7491e+02 /) - kbo(:,19,14) = (/ & - &3.8633e+02 ,3.8813e+02 ,3.8858e+02 ,3.8768e+02 ,3.8541e+02 /) - kbo(:,20,14) = (/ & - &3.9291e+02 ,3.9591e+02 ,3.9708e+02 ,3.9648e+02 ,3.9435e+02 /) - kbo(:,21,14) = (/ & - &3.9871e+02 ,4.0263e+02 ,4.0428e+02 ,4.0401e+02 ,4.0199e+02 /) - kbo(:,22,14) = (/ & - &4.0411e+02 ,4.0861e+02 ,4.1054e+02 ,4.1035e+02 ,4.0818e+02 /) - kbo(:,23,14) = (/ & - &4.0907e+02 ,4.1390e+02 ,4.1591e+02 ,4.1564e+02 ,4.1319e+02 /) - kbo(:,24,14) = (/ & - &4.1361e+02 ,4.1846e+02 ,4.2039e+02 ,4.1994e+02 ,4.1722e+02 /) - kbo(:,25,14) = (/ & - &4.1735e+02 ,4.2250e+02 ,4.2427e+02 ,4.2345e+02 ,4.2038e+02 /) - kbo(:,26,14) = (/ & - &4.2023e+02 ,4.2561e+02 ,4.2741e+02 ,4.2618e+02 ,4.2275e+02 /) - kbo(:,27,14) = (/ & - &4.2191e+02 ,4.2794e+02 ,4.2966e+02 ,4.2833e+02 ,4.2447e+02 /) - kbo(:,28,14) = (/ & - &4.2376e+02 ,4.3047e+02 ,4.3157e+02 ,4.2984e+02 ,4.2560e+02 /) - kbo(:,29,14) = (/ & - &4.2494e+02 ,4.3173e+02 ,4.3312e+02 ,4.3087e+02 ,4.2623e+02 /) - kbo(:,30,14) = (/ & - &4.2606e+02 ,4.3133e+02 ,4.3417e+02 ,4.3157e+02 ,4.2642e+02 /) - kbo(:,31,14) = (/ & - &4.2650e+02 ,4.3107e+02 ,4.3305e+02 ,4.3172e+02 ,4.2612e+02 /) - kbo(:,32,14) = (/ & - &4.2471e+02 ,4.2957e+02 ,4.3084e+02 ,4.2984e+02 ,4.2547e+02 /) - kbo(:,33,14) = (/ & - &4.2258e+02 ,4.2628e+02 ,4.2740e+02 ,4.2572e+02 ,4.2270e+02 /) - kbo(:,34,14) = (/ & - &4.1904e+02 ,4.2166e+02 ,4.2281e+02 ,4.2119e+02 ,4.1745e+02 /) - kbo(:,35,14) = (/ & - &4.1547e+02 ,4.1665e+02 ,4.1587e+02 ,4.1430e+02 ,4.1140e+02 /) - kbo(:,36,14) = (/ & - &4.1132e+02 ,4.1218e+02 ,4.1072e+02 ,4.0729e+02 ,4.0326e+02 /) - kbo(:,37,14) = (/ & - &4.1025e+02 ,4.1006e+02 ,4.0857e+02 ,4.0548e+02 ,4.0090e+02 /) - kbo(:,38,14) = (/ & - &4.0864e+02 ,4.0868e+02 ,4.0686e+02 ,4.0372e+02 ,3.9921e+02 /) - kbo(:,39,14) = (/ & - &4.0644e+02 ,4.0717e+02 ,4.0510e+02 ,4.0183e+02 ,3.9677e+02 /) - kbo(:,40,14) = (/ & - &4.0674e+02 ,4.0768e+02 ,4.0593e+02 ,4.0263e+02 ,3.9822e+02 /) - kbo(:,41,14) = (/ & - &4.0619e+02 ,4.0758e+02 ,4.0668e+02 ,4.0411e+02 ,4.0014e+02 /) - kbo(:,42,14) = (/ & - &4.0516e+02 ,4.0769e+02 ,4.0744e+02 ,4.0512e+02 ,4.0147e+02 /) - kbo(:,43,14) = (/ & - &4.0427e+02 ,4.0784e+02 ,4.0882e+02 ,4.0743e+02 ,4.0425e+02 /) - kbo(:,44,14) = (/ & - &4.0222e+02 ,4.0791e+02 ,4.0985e+02 ,4.0932e+02 ,4.0671e+02 /) - kbo(:,45,14) = (/ & - &4.0049e+02 ,4.0766e+02 ,4.1090e+02 ,4.1120e+02 ,4.0941e+02 /) - kbo(:,46,14) = (/ & - &3.9818e+02 ,4.0642e+02 ,4.1148e+02 ,4.1248e+02 ,4.1163e+02 /) - kbo(:,47,14) = (/ & - &3.9380e+02 ,4.0435e+02 ,4.1138e+02 ,4.1374e+02 ,4.1407e+02 /) - kbo(:,48,14) = (/ & - &3.8928e+02 ,4.0188e+02 ,4.1084e+02 ,4.1473e+02 ,4.1611e+02 /) - kbo(:,49,14) = (/ & - &3.8359e+02 ,3.9878e+02 ,4.0957e+02 ,4.1507e+02 ,4.1710e+02 /) - kbo(:,50,14) = (/ & - &3.7809e+02 ,3.9485e+02 ,4.0769e+02 ,4.1481e+02 ,4.1835e+02 /) - kbo(:,51,14) = (/ & - &3.7168e+02 ,3.9024e+02 ,4.0538e+02 ,4.1442e+02 ,4.1907e+02 /) - kbo(:,52,14) = (/ & - &3.6416e+02 ,3.8544e+02 ,4.0242e+02 ,4.1266e+02 ,4.1894e+02 /) - kbo(:,53,14) = (/ & - &3.5526e+02 ,3.7935e+02 ,3.9858e+02 ,4.1114e+02 ,4.1870e+02 /) - kbo(:,54,14) = (/ & - &3.4652e+02 ,3.7311e+02 ,3.9451e+02 ,4.0902e+02 ,4.1841e+02 /) - kbo(:,55,14) = (/ & - &3.3749e+02 ,3.6678e+02 ,3.9033e+02 ,4.0637e+02 ,4.1776e+02 /) - kbo(:,56,14) = (/ & - &3.2816e+02 ,3.6010e+02 ,3.8512e+02 ,4.0357e+02 ,4.1651e+02 /) - kbo(:,57,14) = (/ & - &3.1792e+02 ,3.5199e+02 ,3.7987e+02 ,4.0009e+02 ,4.1450e+02 /) - kbo(:,58,14) = (/ & - &3.0792e+02 ,3.4419e+02 ,3.7396e+02 ,3.9574e+02 ,4.1235e+02 /) - kbo(:,59,14) = (/ & - &3.0450e+02 ,3.4137e+02 ,3.7215e+02 ,3.9490e+02 ,4.1294e+02 /) - kbo(:,13,15) = (/ & - &5.8728e+02 ,5.6960e+02 ,5.5469e+02 ,5.4056e+02 ,5.2654e+02 /) - kbo(:,14,15) = (/ & - &6.4066e+02 ,6.2243e+02 ,6.0593e+02 ,5.8946e+02 ,5.7294e+02 /) - kbo(:,15,15) = (/ & - &6.9682e+02 ,6.7763e+02 ,6.5849e+02 ,6.3897e+02 ,6.1931e+02 /) - kbo(:,16,15) = (/ & - &7.5471e+02 ,7.3292e+02 ,7.1026e+02 ,6.8716e+02 ,6.6402e+02 /) - kbo(:,17,15) = (/ & - &8.1231e+02 ,7.8651e+02 ,7.5977e+02 ,7.3284e+02 ,7.0637e+02 /) - kbo(:,18,15) = (/ & - &8.6774e+02 ,8.3725e+02 ,8.0641e+02 ,7.7597e+02 ,7.4653e+02 /) - kbo(:,19,15) = (/ & - &9.1989e+02 ,8.8492e+02 ,8.5007e+02 ,8.1594e+02 ,7.8315e+02 /) - kbo(:,20,15) = (/ & - &9.6712e+02 ,9.2752e+02 ,8.8885e+02 ,8.5117e+02 ,8.1509e+02 /) - kbo(:,21,15) = (/ & - &1.0088e+03 ,9.6497e+02 ,9.2264e+02 ,8.8175e+02 ,8.4261e+02 /) - kbo(:,22,15) = (/ & - &1.0418e+03 ,9.9399e+02 ,9.4844e+02 ,9.0461e+02 ,8.6306e+02 /) - kbo(:,23,15) = (/ & - &1.0679e+03 ,1.0170e+03 ,9.6858e+02 ,9.2246e+02 ,8.7882e+02 /) - kbo(:,24,15) = (/ & - &1.0878e+03 ,1.0343e+03 ,9.8346e+02 ,9.3530e+02 ,8.9008e+02 /) - kbo(:,25,15) = (/ & - &1.1017e+03 ,1.0460e+03 ,9.9332e+02 ,9.4368e+02 ,8.9722e+02 /) - kbo(:,26,15) = (/ & - &1.1097e+03 ,1.0523e+03 ,9.9837e+02 ,9.4761e+02 ,9.0024e+02 /) - kbo(:,27,15) = (/ & - &1.1134e+03 ,1.0547e+03 ,9.9983e+02 ,9.4851e+02 ,9.0041e+02 /) - kbo(:,28,15) = (/ & - &1.1133e+03 ,1.0539e+03 ,9.9848e+02 ,9.4685e+02 ,8.9828e+02 /) - kbo(:,29,15) = (/ & - &1.1100e+03 ,1.0502e+03 ,9.9454e+02 ,9.4272e+02 ,8.9398e+02 /) - kbo(:,30,15) = (/ & - &1.1040e+03 ,1.0443e+03 ,9.8865e+02 ,9.3687e+02 ,8.8821e+02 /) - kbo(:,31,15) = (/ & - &1.0960e+03 ,1.0364e+03 ,9.8114e+02 ,9.2948e+02 ,8.8105e+02 /) - kbo(:,32,15) = (/ & - &1.0862e+03 ,1.0270e+03 ,9.7213e+02 ,9.2091e+02 ,8.7298e+02 /) - kbo(:,33,15) = (/ & - &1.0752e+03 ,1.0167e+03 ,9.6230e+02 ,9.1136e+02 ,8.6427e+02 /) - kbo(:,34,15) = (/ & - &1.0653e+03 ,1.0075e+03 ,9.5353e+02 ,9.0314e+02 ,8.5654e+02 /) - kbo(:,35,15) = (/ & - &1.0607e+03 ,1.0031e+03 ,9.4921e+02 ,8.9900e+02 ,8.5273e+02 /) - kbo(:,36,15) = (/ & - &1.0620e+03 ,1.0042e+03 ,9.5018e+02 ,8.9983e+02 ,8.5343e+02 /) - kbo(:,37,15) = (/ & - &1.0721e+03 ,1.0134e+03 ,9.5885e+02 ,9.0773e+02 ,8.6067e+02 /) - kbo(:,38,15) = (/ & - &1.0824e+03 ,1.0229e+03 ,9.6769e+02 ,9.1592e+02 ,8.6811e+02 /) - kbo(:,39,15) = (/ & - &1.0926e+03 ,1.0322e+03 ,9.7633e+02 ,9.2388e+02 ,8.7544e+02 /) - kbo(:,40,15) = (/ & - &1.1061e+03 ,1.0474e+03 ,9.9047e+02 ,9.3721e+02 ,8.8756e+02 /) - kbo(:,41,15) = (/ & - &1.1226e+03 ,1.0637e+03 ,1.0055e+03 ,9.5118e+02 ,9.0046e+02 /) - kbo(:,42,15) = (/ & - &1.1394e+03 ,1.0801e+03 ,1.0206e+03 ,9.6537e+02 ,9.1362e+02 /) - kbo(:,43,15) = (/ & - &1.1611e+03 ,1.1003e+03 ,1.0393e+03 ,9.8274e+02 ,9.2982e+02 /) - kbo(:,44,15) = (/ & - &1.1862e+03 ,1.1226e+03 ,1.0598e+03 ,1.0018e+03 ,9.4776e+02 /) - kbo(:,45,15) = (/ & - &1.2106e+03 ,1.1455e+03 ,1.0808e+03 ,1.0212e+03 ,9.6597e+02 /) - kbo(:,46,15) = (/ & - &1.2373e+03 ,1.1703e+03 ,1.1039e+03 ,1.0424e+03 ,9.8575e+02 /) - kbo(:,47,15) = (/ & - &1.2689e+03 ,1.1988e+03 ,1.1303e+03 ,1.0668e+03 ,1.0082e+03 /) - kbo(:,48,15) = (/ & - &1.2999e+03 ,1.2281e+03 ,1.1575e+03 ,1.0920e+03 ,1.0314e+03 /) - kbo(:,49,15) = (/ & - &1.3314e+03 ,1.2580e+03 ,1.1855e+03 ,1.1179e+03 ,1.0553e+03 /) - kbo(:,50,15) = (/ & - &1.3612e+03 ,1.2867e+03 ,1.2124e+03 ,1.1430e+03 ,1.0785e+03 /) - kbo(:,51,15) = (/ & - &1.3905e+03 ,1.3151e+03 ,1.2392e+03 ,1.1679e+03 ,1.1016e+03 /) - kbo(:,52,15) = (/ & - &1.4202e+03 ,1.3438e+03 ,1.2667e+03 ,1.1935e+03 ,1.1254e+03 /) - kbo(:,53,15) = (/ & - &1.4513e+03 ,1.3727e+03 ,1.2946e+03 ,1.2198e+03 ,1.1498e+03 /) - kbo(:,54,15) = (/ & - &1.4800e+03 ,1.3995e+03 ,1.3206e+03 ,1.2445e+03 ,1.1728e+03 /) - kbo(:,55,15) = (/ & - &1.5077e+03 ,1.4256e+03 ,1.3457e+03 ,1.2685e+03 ,1.1953e+03 /) - kbo(:,56,15) = (/ & - &1.5346e+03 ,1.4518e+03 ,1.3711e+03 ,1.2930e+03 ,1.2182e+03 /) - kbo(:,57,15) = (/ & - &1.5614e+03 ,1.4781e+03 ,1.3967e+03 ,1.3177e+03 ,1.2417e+03 /) - kbo(:,58,15) = (/ & - &1.5868e+03 ,1.5034e+03 ,1.4212e+03 ,1.3415e+03 ,1.2645e+03 /) - kbo(:,59,15) = (/ & - &1.5970e+03 ,1.5135e+03 ,1.4312e+03 ,1.3511e+03 ,1.2737e+03 /) - kbo(:,13,16) = (/ & - &9.8102e+02 ,9.4348e+02 ,9.0592e+02 ,8.7102e+02 ,8.4003e+02 /) - kbo(:,14,16) = (/ & - &1.1017e+03 ,1.0558e+03 ,1.0119e+03 ,9.7251e+02 ,9.3606e+02 /) - kbo(:,15,16) = (/ & - &1.2294e+03 ,1.1733e+03 ,1.1221e+03 ,1.0765e+03 ,1.0331e+03 /) - kbo(:,16,16) = (/ & - &1.3605e+03 ,1.2927e+03 ,1.2335e+03 ,1.1795e+03 ,1.1282e+03 /) - kbo(:,17,16) = (/ & - &1.4907e+03 ,1.4118e+03 ,1.3426e+03 ,1.2786e+03 ,1.2181e+03 /) - kbo(:,18,16) = (/ & - &1.6164e+03 ,1.5261e+03 ,1.4460e+03 ,1.3720e+03 ,1.3020e+03 /) - kbo(:,19,16) = (/ & - &1.7353e+03 ,1.6329e+03 ,1.5412e+03 ,1.4568e+03 ,1.3777e+03 /) - kbo(:,20,16) = (/ & - &1.8432e+03 ,1.7287e+03 ,1.6256e+03 ,1.5311e+03 ,1.4432e+03 /) - kbo(:,21,16) = (/ & - &1.9386e+03 ,1.8123e+03 ,1.6986e+03 ,1.5948e+03 ,1.4993e+03 /) - kbo(:,22,16) = (/ & - &2.0105e+03 ,1.8749e+03 ,1.7520e+03 ,1.6411e+03 ,1.5395e+03 /) - kbo(:,23,16) = (/ & - &2.0682e+03 ,1.9239e+03 ,1.7938e+03 ,1.6758e+03 ,1.5698e+03 /) - kbo(:,24,16) = (/ & - &2.1097e+03 ,1.9590e+03 ,1.8231e+03 ,1.7013e+03 ,1.5912e+03 /) - kbo(:,25,16) = (/ & - &2.1366e+03 ,1.9806e+03 ,1.8412e+03 ,1.7160e+03 ,1.6035e+03 /) - kbo(:,26,16) = (/ & - &2.1483e+03 ,1.9894e+03 ,1.8477e+03 ,1.7210e+03 ,1.6077e+03 /) - kbo(:,27,16) = (/ & - &2.1499e+03 ,1.9893e+03 ,1.8466e+03 ,1.7191e+03 ,1.6062e+03 /) - kbo(:,28,16) = (/ & - &2.1427e+03 ,1.9818e+03 ,1.8393e+03 ,1.7119e+03 ,1.6006e+03 /) - kbo(:,29,16) = (/ & - &2.1277e+03 ,1.9675e+03 ,1.8260e+03 ,1.6998e+03 ,1.5909e+03 /) - kbo(:,30,16) = (/ & - &2.1075e+03 ,1.9489e+03 ,1.8089e+03 ,1.6842e+03 ,1.5788e+03 /) - kbo(:,31,16) = (/ & - &2.0822e+03 ,1.9262e+03 ,1.7881e+03 ,1.6663e+03 ,1.5639e+03 /) - kbo(:,32,16) = (/ & - &2.0533e+03 ,1.9005e+03 ,1.7649e+03 ,1.6467e+03 ,1.5469e+03 /) - kbo(:,33,16) = (/ & - &2.0222e+03 ,1.8726e+03 ,1.7400e+03 ,1.6262e+03 ,1.5282e+03 /) - kbo(:,34,16) = (/ & - &1.9951e+03 ,1.8486e+03 ,1.7187e+03 ,1.6087e+03 ,1.5123e+03 /) - kbo(:,35,16) = (/ & - &1.9819e+03 ,1.8366e+03 ,1.7081e+03 ,1.6001e+03 ,1.5043e+03 /) - kbo(:,36,16) = (/ & - &1.9843e+03 ,1.8387e+03 ,1.7099e+03 ,1.6017e+03 ,1.5056e+03 /) - kbo(:,37,16) = (/ & - &2.0096e+03 ,1.8607e+03 ,1.7293e+03 ,1.6180e+03 ,1.5204e+03 /) - kbo(:,38,16) = (/ & - &2.0360e+03 ,1.8842e+03 ,1.7495e+03 ,1.6347e+03 ,1.5358e+03 /) - kbo(:,39,16) = (/ & - &2.0619e+03 ,1.9070e+03 ,1.7697e+03 ,1.6516e+03 ,1.5509e+03 /) - kbo(:,40,16) = (/ & - &2.1060e+03 ,1.9450e+03 ,1.8033e+03 ,1.6798e+03 ,1.5761e+03 /) - kbo(:,41,16) = (/ & - &2.1534e+03 ,1.9860e+03 ,1.8395e+03 ,1.7107e+03 ,1.6027e+03 /) - kbo(:,42,16) = (/ & - &2.2020e+03 ,2.0285e+03 ,1.8771e+03 ,1.7432e+03 ,1.6297e+03 /) - kbo(:,43,16) = (/ & - &2.2623e+03 ,2.0820e+03 ,1.9234e+03 ,1.7841e+03 ,1.6639e+03 /) - kbo(:,44,16) = (/ & - &2.3303e+03 ,2.1416e+03 ,1.9758e+03 ,1.8302e+03 ,1.7027e+03 /) - kbo(:,45,16) = (/ & - &2.4015e+03 ,2.2036e+03 ,2.0305e+03 ,1.8787e+03 ,1.7442e+03 /) - kbo(:,46,16) = (/ & - &2.4806e+03 ,2.2729e+03 ,2.0910e+03 ,1.9319e+03 ,1.7910e+03 /) - kbo(:,47,16) = (/ & - &2.5738e+03 ,2.3537e+03 ,2.1621e+03 ,1.9939e+03 ,1.8463e+03 /) - kbo(:,48,16) = (/ & - &2.6744e+03 ,2.4391e+03 ,2.2368e+03 ,2.0594e+03 ,1.9042e+03 /) - kbo(:,49,16) = (/ & - &2.7827e+03 ,2.5294e+03 ,2.3154e+03 ,2.1283e+03 ,1.9646e+03 /) - kbo(:,50,16) = (/ & - &2.8923e+03 ,2.6199e+03 ,2.3931e+03 ,2.1963e+03 ,2.0240e+03 /) - kbo(:,51,16) = (/ & - &3.0068e+03 ,2.7139e+03 ,2.4725e+03 ,2.2657e+03 ,2.0848e+03 /) - kbo(:,52,16) = (/ & - &3.1290e+03 ,2.8143e+03 ,2.5557e+03 ,2.3381e+03 ,2.1483e+03 /) - kbo(:,53,16) = (/ & - &3.2592e+03 ,2.9226e+03 ,2.6451e+03 ,2.4144e+03 ,2.2150e+03 /) - kbo(:,54,16) = (/ & - &3.3865e+03 ,3.0292e+03 ,2.7322e+03 ,2.4877e+03 ,2.2788e+03 /) - kbo(:,55,16) = (/ & - &3.5154e+03 ,3.1374e+03 ,2.8210e+03 ,2.5614e+03 ,2.3429e+03 /) - kbo(:,56,16) = (/ & - &3.6521e+03 ,3.2511e+03 ,2.9159e+03 ,2.6395e+03 ,2.4095e+03 /) - kbo(:,57,16) = (/ & - &3.7974e+03 ,3.3719e+03 ,3.0171e+03 ,2.7223e+03 ,2.4795e+03 /) - kbo(:,58,16) = (/ & - &3.9425e+03 ,3.4927e+03 ,3.1186e+03 ,2.8056e+03 ,2.5484e+03 /) - kbo(:,59,16) = (/ & - &4.0032e+03 ,3.5431e+03 ,3.1604e+03 ,2.8404e+03 ,2.5772e+03 /) - -! The array FORREFO contains the coefficient of the water vapor -! foreign-continuum (including the energy term). The first -! index refers to reference temperature (296,260,224,260) and -! pressure (970,475,219,3 mbar) levels. The second index -! runs over the g-channel (1 to 16). - - forrefo(1,:) = (/ & - &5.1629e-06 ,7.7578e-06 ,1.9043e-05 ,1.4802e-04 ,2.2980e-04 ,2.8057e-04 , & - &3.2824e-04 ,3.4913e-04 ,3.6515e-04 ,3.8271e-04 ,3.7499e-04 ,3.6966e-04 , & - &3.7424e-04 ,3.8884e-04 ,3.7117e-04 ,4.3710e-04 /) - forrefo(2,:) = (/ & - &5.0804e-06 ,1.3466e-05 ,7.2606e-05 ,1.6940e-04 ,2.1022e-04 ,2.5900e-04 , & - &2.9106e-04 ,3.2261e-04 ,3.2066e-04 ,3.5421e-04 ,3.7128e-04 ,3.8144e-04 , & - &3.7854e-04 ,3.8347e-04 ,3.8921e-04 ,3.7339e-04 /) - forrefo(3,:) = (/ & - &5.4797e-05 ,1.0026e-04 ,1.2422e-04 ,1.6386e-04 ,1.8378e-04 ,1.9616e-04 , & - &2.0711e-04 ,2.2492e-04 ,2.5240e-04 ,2.6187e-04 ,2.6058e-04 ,2.4892e-04 , & - &2.6526e-04 ,3.2105e-04 ,3.6903e-04 ,3.7213e-04 /) - forrefo(4,:) = (/ & - &4.2782e-05 ,1.4775e-04 ,1.4588e-04 ,1.6964e-04 ,1.6667e-04 ,1.7192e-04 , & - &1.9057e-04 ,2.0180e-04 ,2.1177e-04 ,2.2326e-04 ,2.3801e-04 ,2.9308e-04 , & - &3.1130e-04 ,3.1829e-04 ,3.5035e-04 ,3.7782e-04 /) - -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 1.27793e-03 , 1.05944e-03 , 8.78300e-04 , 7.28133e-04 , 6.03641e-04 , & - & 5.00434e-04 , 4.14873e-04 , 3.43940e-04 , 2.85135e-04 , 2.36384e-04 /) - selfrefo(:, 2) = (/ & - & 1.42785e-03 , 1.17602e-03 , 9.68600e-04 , 7.97765e-04 , 6.57060e-04 , & - & 5.41172e-04 , 4.45724e-04 , 3.67110e-04 , 3.02361e-04 , 2.49033e-04 /) - selfrefo(:, 3) = (/ & - & 2.94095e-03 , 2.27102e-03 , 1.75370e-03 , 1.35422e-03 , 1.04574e-03 , & - & 8.07525e-04 , 6.23577e-04 , 4.81530e-04 , 3.71841e-04 , 2.87138e-04 /) - selfrefo(:, 4) = (/ & - & 3.94894e-03 , 3.48184e-03 , 3.07000e-03 , 2.70687e-03 , 2.38669e-03 , & - & 2.10439e-03 , 1.85547e-03 , 1.63600e-03 , 1.44249e-03 , 1.27187e-03 /) - selfrefo(:, 5) = (/ & - & 4.19971e-03 , 3.86333e-03 , 3.55390e-03 , 3.26925e-03 , 3.00740e-03 , & - & 2.76652e-03 , 2.54494e-03 , 2.34110e-03 , 2.15359e-03 , 1.98110e-03 /) - selfrefo(:, 6) = (/ & - & 4.95922e-03 , 4.57134e-03 , 4.21380e-03 , 3.88422e-03 , 3.58042e-03 , & - & 3.30038e-03 , 3.04225e-03 , 2.80430e-03 , 2.58496e-03 , 2.38278e-03 /) - selfrefo(:, 7) = (/ & - & 5.27379e-03 , 4.91005e-03 , 4.57140e-03 , 4.25611e-03 , 3.96256e-03 , & - & 3.68925e-03 , 3.43480e-03 , 3.19790e-03 , 2.97734e-03 , 2.77199e-03 /) - selfrefo(:, 8) = (/ & - & 5.75341e-03 , 5.31533e-03 , 4.91060e-03 , 4.53669e-03 , 4.19126e-03 , & - & 3.87212e-03 , 3.57729e-03 , 3.30490e-03 , 3.05325e-03 , 2.82077e-03 /) - selfrefo(:, 9) = (/ & - & 5.49849e-03 , 5.14295e-03 , 4.81040e-03 , 4.49935e-03 , 4.20842e-03 , & - & 3.93629e-03 , 3.68177e-03 , 3.44370e-03 , 3.22102e-03 , 3.01275e-03 /) - selfrefo(:,10) = (/ & - & 6.04962e-03 , 5.60945e-03 , 5.20130e-03 , 4.82285e-03 , 4.47194e-03 , & - & 4.14656e-03 , 3.84485e-03 , 3.56510e-03 , 3.30570e-03 , 3.06518e-03 /) - selfrefo(:,11) = (/ & - & 6.40108e-03 , 5.87551e-03 , 5.39310e-03 , 4.95029e-03 , 4.54385e-03 , & - & 4.17077e-03 , 3.82833e-03 , 3.51400e-03 , 3.22548e-03 , 2.96065e-03 /) - selfrefo(:,12) = (/ & - & 6.77938e-03 , 6.15713e-03 , 5.59200e-03 , 5.07874e-03 , 4.61259e-03 , & - & 4.18922e-03 , 3.80472e-03 , 3.45550e-03 , 3.13834e-03 , 2.85029e-03 /) - selfrefo(:,13) = (/ & - & 6.90020e-03 , 6.26766e-03 , 5.69310e-03 , 5.17121e-03 , 4.69717e-03 , & - & 4.26658e-03 , 3.87546e-03 , 3.52020e-03 , 3.19750e-03 , 2.90439e-03 /) - selfrefo(:,14) = (/ & - & 6.92759e-03 , 6.32882e-03 , 5.78180e-03 , 5.28206e-03 , 4.82552e-03 , & - & 4.40843e-03 , 4.02740e-03 , 3.67930e-03 , 3.36129e-03 , 3.07076e-03 /) - selfrefo(:,15) = (/ & - & 7.54539e-03 , 6.81161e-03 , 6.14920e-03 , 5.55120e-03 , 5.01136e-03 , & - & 4.52402e-03 , 4.08407e-03 , 3.68690e-03 , 3.32836e-03 , 3.00468e-03 /) - selfrefo(:,16) = (/ & - & 7.62039e-03 , 7.10834e-03 , 6.63070e-03 , 6.18515e-03 , 5.76955e-03 , & - & 5.38186e-03 , 5.02023e-03 , 4.68290e-03 , 4.36823e-03 , 4.07471e-03 /) - - end subroutine lw_kgb16 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_rad.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_rad.F90 deleted file mode 100644 index 26d208feb..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_rad.F90 +++ /dev/null @@ -1,621 +0,0 @@ -module rrtmg_lw_rad - -! use cloud_condensate_inhomogeneity, only: & -! initialize_inhomogeneity, release_inhomogeneity - use rrtmg_lw_cldprmc, only : cldprmc - use rrtmg_lw_setcoef, only : setcoef, setcoef_free - use rrtmg_lw_taumol, only : taumol - use rrtmg_lw_rtrnmc, only : rtrnmc - - use iso_fortran_env, only : error_unit ! for debugging - - implicit none - -contains - - ! ----------------------------------------------------------------------------- - subroutine rrtmg_lw( & - ncol, nlay, psize, dudTs, & - play, plev, tlay, tlev, tsfc, emis, & - h2ovmr, o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, & - cfc11vmr, cfc12vmr, cfc22vmr, ccl4vmr, & - cldf, ciwp, clwp, rei, rel, iceflglw, liqflglw, & - tauaer, zm, alat, dyofyr, cloudLM, cloudMH, clearCounts, & - uflx, dflx, uflxc, dflxc, duflx_dTs, duflxc_dTs, & - band_output, olrb, dolrb_dTs) - ! ----------------------------------------------------------------------------- - ! - ! This program is the driver subroutine for RRTMG_LW, the AER LW radiation - ! model for application to GCMs, that has been adapted from RRTM_LW for - ! improved efficiency. - ! - ! NOTE: all layering in RRTMG is ordered from surface to toa. - ! - ! NOTE: The call to RRTMG_LW_INI should be moved to the GCM initialization - ! area, since this has to be called only once. - ! - ! This routine: - ! a) calls GENERATE_STOCHASTIC_CLOUDS to generate subcolumn binary - ! clouds for McICA (Monte Carlo Independent Column Approximation, - ! Pincus et al., JC, 2003) treatment of cloudy radiative transfer; - ! b) calls CLDPRMC to set cloud optical depth for McICA based - ! on input cloud physical properties; - ! c) calls SETCOEF to calculate various quantities needed for - ! the radiative transfer algorithm; - ! d) calls TAUMOL to calculate gaseous optical depths for each - ! of the 16 spectral bands; - ! e) calls RTRNMC (for both clear and cloudy profiles) to perform the - ! radiative transfer calculation; - ! f) passes the necessary fluxes back to GCM. - ! - ! Random number generation is by KISSVEC. - ! - ! Cloud fraction and cloud physical properties are input and cloud optical - ! properties are calculated by cldprmc based on iceflglw and liqflglw. - ! Ice particle size provided must be appropriately defined for the ice - ! parameterization selected. - ! - ! Aerosol optical depth is input directly by layer and spectral band - ! as band average optical depth at mid-point of each spectral band. - ! RRTMG_LW currently treats only aerosol absorption; scattering - ! capability is not presently available. - ! - ! The optional calculation of the change in upward flux as a function - ! of surface temperature is controlled by input flag dudTs. This can be - ! utilized to approximate adjustments to the upward flux profile caused - ! only by a change in surface temperature between full radiation calls. - ! This feature uses the pre-calculated derivative of the Planck function - ! with respect to surface temperature: - ! (dudTs false) Normal forward calculation; - ! (dudTs true ) Normal forward calculation with optional calculation - ! of the change in upward flux as a function of surface temperature - ! for total-sky and clear-sky flux. Flux partial derivatives are - ! provided in arrays duflx_dTs and duflxc_dTs respectively. - ! If dudTs false, DO NOT use any d_dTs, as values will be undefined. - ! - ! ------- Modifications ------- - ! - ! This version of RRTMG_LW has been modified from RRTM_LW to use a reduced - ! set of g-points for application to GCMs. - ! - !-- Original version (derived from RRTM_LW), reduction of g-points, other - ! revisions for use with GCMs. - ! 1999: M. J. Iacono, AER, Inc. - !-- Adapted for use with NCAR/CAM. - ! May 2004: M. J. Iacono, AER, Inc. - !-- Revised to add McICA capability. - ! Nov 2005: M. J. Iacono, AER, Inc. - !-- Conversion to F90 formatting for consistency with rrtmg_sw. - ! Feb 2007: M. J. Iacono, AER, Inc. - !-- Modifications to formatting to use assumed-shape arrays. - ! Aug 2007: M. J. Iacono, AER, Inc. - !-- Modified to add longwave aerosol absorption. - ! Apr 2008: M. J. Iacono, AER, Inc. - !-- Added capability to calculate derivative of upward flux wrt surface temperature. - ! Nov 2009: M. J. Iacono, E. J. Mlawer, AER, Inc. - !-- Added capability to run on GPU - ! Aug 2012: David Berthiaume, AER, Inc. - !-- Added alat and dyofyr to echo cloud-overlap scheme in RRTMGPU_SW - ! Dec 2013: Matt Thompson, NASA/GMAO - !-- Added numCPUs to allow for multple CPUs per GPU. - ! Jan 2014: Matt Thompson, NASA/GMAO - !-- Added new routine rtrnzero to help speed up zeroing on CPUs. - ! Mar 2014: Matt Thompson, NASA/GMAO - !-- Added band 10 OLR and d/dT for water vapor channel simulation - ! Mar 2019: Peter Norris, NASA/GMAO - !-- Major cleanup, re-org, and de-GPU - ! Apr 2020: Peter Norris, NASA/GMAO - ! ----------------------------------------------------------------------------- - - use parrrtm, only: nbndlw - - ! ----- Input ----- - - ! dimensions - integer, intent(in) :: ncol ! Number of horizontal columns - integer, intent(in) :: nlay ! Number of model layers - integer, intent(in) :: psize ! column partitioning size - - ! for requesting upwards flux derivatives wrt Tsurf - logical, intent(in) :: dudTs - - ! column characterization - real, intent(in) :: play (ncol,nlay) ! Layer pressures [hPa] - real, intent(in) :: plev (ncol,0:nlay) ! Interface pressures [hPa] - real, intent(in) :: tlay (ncol,nlay) ! Layer temperatures [K] - real, intent(in) :: tlev (ncol,0:nlay) ! Interface temperatures [K] - - ! surface characterization - real, intent(in) :: tsfc (ncol) ! Surface temperature [K] - real, intent(in) :: emis (ncol,nbndlw) ! Surface emissivity - - ! column gaseous properties - ! Note: All volume mixing ratios are in dimensionless units of mole fraction - ! obtained by scaling mass mixing ratio (g/g) with the appropriate molecular - ! weights (g/mol). The mole fraction is with respect to *dry air*. - real, intent(in) :: h2ovmr (ncol,nlay) ! H2O volume mixing ratio - real, intent(in) :: o3vmr (ncol,nlay) ! O3 volume mixing ratio - real, intent(in) :: co2vmr (ncol,nlay) ! CO2 volume mixing ratio - real, intent(in) :: ch4vmr (ncol,nlay) ! Methane volume mixing ratio - real, intent(in) :: n2ovmr (ncol,nlay) ! Nitrous oxide vol mixing ratio - real, intent(in) :: o2vmr (ncol,nlay) ! Oxygen volume mixing ratio - real, intent(in) :: cfc11vmr (ncol,nlay) ! CFC11 volume mixing ratio - real, intent(in) :: cfc12vmr (ncol,nlay) ! CFC12 volume mixing ratio - real, intent(in) :: cfc22vmr (ncol,nlay) ! CFC22 volume mixing ratio - real, intent(in) :: ccl4vmr (ncol,nlay) ! CCL4 volume mixing ratio - - ! cloud physical properties - real, intent(in) :: cldf (ncol,nlay) ! Cloud fraction - real, intent(in) :: ciwp (ncol,nlay) ! In-cloud ice water path [g/m2] - real, intent(in) :: clwp (ncol,nlay) ! In-cloud liquid water path [g/m2] - real, intent(in) :: rei (ncol,nlay) ! Cloud ice crystal effective size [um] - real, intent(in) :: rel (ncol,nlay) ! Cloud droplet effective radius [um] - - ! -- NOTE: specific definition of rei depends on setting of iceflglw ------- - ! iceflglw = 0: ice effective radius, r_ec, (Ebert and Curry, 1992), - ! r_ec must be >= 10.0 microns - ! iceflglw = 1: ice effective radius, r_ec, (Ebert and Curry, 1992), - ! r_ec range is limited to 13.0 to 130.0 microns - ! iceflglw = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996) - ! r_k range is limited to 5.0 to 131.0 microns - ! iceflglw = 3: generalized effective size, dge, (Fu, 1996), - ! dge range is limited to 5.0 to 140.0 microns - ! [dge = 1.0315 * r_ec] - ! -------------------------------------------------------------------------- - - ! flags for conversion of physical to optical cloud properties - integer, intent(in) :: iceflglw ! for ice crystals - integer, intent(in) :: liqflglw ! for liquid droplets - - ! Aerosol optical depth at mid-point of LW spectral bands - real, intent(in) :: tauaer (ncol,nlay,nbndlw) - - ! for cloud overlap calculations - real, intent(in) :: zm (ncol,nlay) ! Heights of level midpoints - real, intent(in) :: alat (ncol) ! Latitude of column - integer, intent(in) :: dyofyr ! Day of the year - - ! pressure super-layer interface levels for cloud fractions - integer, intent(in) :: cloudLM ! Low-mid - integer, intent(in) :: cloudMH ! Mid-high - - ! ----- Output ----- - - ! subcolumn clear counts for Tot|High|Mid|Low super-layers - integer, intent(out) :: clearCounts(ncol,4) - - real, intent(out) :: uflx (ncol,nlay+1) ! Total sky LW upward flux [W/m2] - real, intent(out) :: dflx (ncol,nlay+1) ! Total sky LW downward flux [W/m2] - real, intent(out) :: uflxc (ncol,nlay+1) ! Clear sky LW upward flux [W/m2] - real, intent(out) :: dflxc (ncol,nlay+1) ! Clear sky LW downward flux [W/m2] - - ! change in upward longwave flux wrt surface temperature [W/m2/K] - real, intent(out) :: duflx_dTs (ncol,nlay+1) ! total sky - real, intent(out) :: duflxc_dTs (ncol,nlay+1) ! clear sky - - ! ----- band OLRs ----- - - ! which band OLRs to calculate? - logical, intent(in) :: band_output (nbndlw) - - ! band OLRs and d/dTs - real, intent(out) :: olrb (nbndlw,ncol) ! [W/m2] - real, intent(out) :: dolrb_dTs (nbndlw,ncol) ! [W/m2/K] - - ! ----- Locals ----- - integer :: n, nparts - - ! ---------------------------------- - ! ASSERTs to catch unphysical inputs - ! ---------------------------------- - if (any(play < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(play):', minval(play) - error stop 'negative values in input: play' - end if - if (any(plev < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(plev):', minval(plev) - error stop 'negative values in input: plev' - end if - if (any(tlay < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(tlay):', minval(tlay) - error stop 'negative values in input: tlay' - end if - if (any(tlev < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(tlev):', minval(tlev) - error stop 'negative values in input: tlev' - end if - if (any(tsfc < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(tsfc):', minval(tsfc) - error stop 'negative values in input: tsfc' - end if - if (any(h2ovmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(h2ovmr):', minval(h2ovmr) - error stop 'negative values in input: h2ovmr' - end if - if (any(o3vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(o3vmr):', minval(o3vmr) - error stop 'negative values in input: o3vmr' - end if - if (any(co2vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(co2vmr):', minval(co2vmr) - error stop 'negative values in input: co2vmr' - end if - if (any(ch4vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(ch4vmr):', minval(ch4vmr) - error stop 'negative values in input: ch4vmr' - end if - if (any(n2ovmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(n2ovmr):', minval(n2ovmr) - error stop 'negative values in input: n2ovmr' - end if - if (any(o2vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(o2vmr):', minval(o2vmr) - error stop 'negative values in input: o2vmr' - end if - if (any(cfc11vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(cfc11vmr):', minval(cfc11vmr) - error stop 'negative values in input: cfc11vmr' - end if - if (any(cfc12vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(cfc12vmr):', minval(cfc12vmr) - error stop 'negative values in input: cfc12vmr' - end if - if (any(cfc22vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(cfc22vmr):', minval(cfc22vmr) - error stop 'negative values in input: cfc22vmr' - end if - if (any(ccl4vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(ccl4vmr):', minval(ccl4vmr) - error stop 'negative values in input: ccl4vmr' - end if - if (any(emis < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(emis):', minval(emis) - error stop 'negative values in input: emis' - end if - if (any(cldf < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(cldf):', minval(cldf) - error stop 'negative values in input: cldf' - end if - if (any(ciwp < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(ciwp):', minval(ciwp) - error stop 'negative values in input: ciwp' - end if - if (any(clwp < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(clwp):', minval(clwp) - error stop 'negative values in input: clwp' - end if - if (any(rei < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(rei):', minval(rei) - error stop 'negative values in input: rei' - end if - if (any(rel < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(rel):', minval(rel) - error stop 'negative values in input: rel' - end if - if (any(tauaer < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(tauaer):', minval(tauaer) - error stop 'negative values in input: tauaer' - end if - - ! Call model and data initialization, compute lookup tables, perform - ! In a GCM this call should be placed in the model initialization - ! area, since this has to be called only once. - ! call rrtmg_lw_ini() - -! ! Set up condensate inhomogeneity tables. -! ! Done in Radiation GC MAPL Initialize now since LW and SW both have same inhomogeneity. -! call initialize_inhomogeneity(1) - - ! --------------------------------- - ! partition columns for performance - ! --------------------------------- - nparts = ceiling(real(ncol)/real(psize)) - - do n = 0,nparts-1 - - call rrtmg_lw_part (nparts, ncol, & - n * psize + 1, min(psize, ncol - n * psize), & - nlay, dudTs, play, plev, tlay, tlev, tsfc, emis, & - h2ovmr, o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, & - cfc11vmr, cfc12vmr, cfc22vmr, ccl4vmr, & - cldf, ciwp, clwp, rei, rel, iceflglw, liqflglw, & - tauaer, zm, alat, dyofyr, cloudLM, cloudMH, clearCounts, & - uflx, dflx, uflxc, dflxc, duflx_dTs, duflxc_dTs, & - band_output, olrb, dolrb_dTs) - - end do - -! ! release condensate inhomogeneity resources -! call release_inhomogeneity - - end subroutine rrtmg_lw - - - ! ------------------------------------------------------------------ - subroutine rrtmg_lw_part( & - nparts, ncol, colstart, pncol, nlay, dudTs, & - play, plev, tlay, tlev, tsfc, emis, & - h2ovmr, o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, & - cfc11vmr, cfc12vmr, cfc22vmr, ccl4vmr, & - cldf, ciwp, clwp, rei, rel, iceflglw, liqflglw, & - tauaer, zm, alat, dyofyr, cloudLM, cloudMH, clearCounts, & - uflx, dflx, uflxc, dflxc, duflx_dTs, duflxc_dTs, & - band_output, olrb, dolrb_dTs) - ! ------------------------------------------------------------------ - - use parrrtm, only : nbndlw, ngptlw - use cloud_subcol_gen, only: & - generate_stochastic_clouds, clearCounts_threeBand - - ! ----- Input ----- - - ! dimensions etc. - integer, intent(in) :: nparts ! Number of partitions - integer, intent(in) :: ncol ! Number of horizontal columns - integer, intent(in) :: pncol ! Number of columns in this partition - integer, intent(in) :: colstart ! Starting column of this partition - integer, intent(in) :: nlay ! Number of model layers - logical, intent(in) :: dudTs ! true adds d/dTs derivs - - ! column characterization - real, intent(in) :: play (ncol,nlay) ! Layer pressures [hPa] - real, intent(in) :: plev (ncol,0:nlay) ! Interface pressures [hPa] - real, intent(in) :: tlay (ncol,nlay) ! Layer temperatures [K] - real, intent(in) :: tlev (ncol,0:nlay) ! Interface temperatures [K] - - ! surface characterization - real, intent(in) :: tsfc (ncol) ! Surface temperature [K] - real, intent(in) :: emis (ncol,nbndlw) ! Surface emissivity - - ! column gaseous properties - real, intent(in) :: h2ovmr (ncol,nlay) ! H2O volume mixing ratio - real, intent(in) :: o3vmr (ncol,nlay) ! O3 volume mixing ratio - real, intent(in) :: co2vmr (ncol,nlay) ! CO2 volume mixing ratio - real, intent(in) :: ch4vmr (ncol,nlay) ! Methane volume mixing ratio - real, intent(in) :: n2ovmr (ncol,nlay) ! Nitrous oxide vol mixing ratio - real, intent(in) :: o2vmr (ncol,nlay) ! Oxygen volume mixing ratio - real, intent(in) :: cfc11vmr (ncol,nlay) ! CFC11 volume mixing ratio - real, intent(in) :: cfc12vmr (ncol,nlay) ! CFC12 volume mixing ratio - real, intent(in) :: cfc22vmr (ncol,nlay) ! CFC22 volume mixing ratio - real, intent(in) :: ccl4vmr (ncol,nlay) ! CCL4 volume mixing ratio - - ! cloud physical properties - real, intent(in) :: cldf (ncol,nlay) ! Cloud fraction - real, intent(in) :: ciwp (ncol,nlay) ! In-cloud ice water path [g/m2] - real, intent(in) :: clwp (ncol,nlay) ! In-cloud liquid water path [g/m2] - real, intent(in) :: rei (ncol,nlay) ! Cloud ice crystal effective size [um] - real, intent(in) :: rel (ncol,nlay) ! Cloud droplet effective radius [um] - - ! flags for conversion of physical to optical cloud properties - integer, intent(in) :: iceflglw ! For ice crystals - integer, intent(in) :: liqflglw ! For liquid droplets - - ! Aerosol optical depth at mid-point of LW spectral bands - real, intent(in) :: tauaer (ncol,nlay,nbndlw) - - ! for cloud overlap calculations - real, intent(in) :: zm (ncol,nlay) ! Heights of level midpoints - real, intent(in) :: alat (ncol) ! Latitude of column - integer, intent(in) :: dyofyr ! Day of the year - - ! pressure super-layer interface levels for cloud fractions - integer, intent(in) :: cloudLM ! Low-mid - integer, intent(in) :: cloudMH ! Mid-high - - ! ----- Output ----- - - ! subcolumn clear counts for Tot|High|Mid|Low super-layers - integer, intent(out) :: clearCounts(ncol,4) - - real, intent(out) :: uflx (ncol,nlay+1) ! Total sky LW upward flux [W/m2] - real, intent(out) :: dflx (ncol,nlay+1) ! Total sky LW downward flux [W/m2] - real, intent(out) :: uflxc (ncol,nlay+1) ! Clear sky LW upward flux [W/m2] - real, intent(out) :: dflxc (ncol,nlay+1) ! Clear sky LW downward flux [W/m2] - - ! change in upward longwave flux wrt surface temperature [W/m2/K] - real, intent(out) :: duflx_dTs (ncol,nlay+1) ! total sky - real, intent(out) :: duflxc_dTs (ncol,nlay+1) ! clear sky - - ! ----- band OLRs ----- - - ! which band OLRs to calculate? - logical, intent(in) :: band_output (nbndlw) - - ! band OLRs and d/dTs - real, intent(out) :: olrb (nbndlw,ncol) ! [W/m2] - real, intent(out) :: dolrb_dTs (nbndlw,ncol) ! [W/m2/K] - - ! local partitioned variables ... - ! =============================== - - ! general - real :: p_zm (nlay,pncol) ! mid-layer heights [m] - real :: p_alat (pncol) ! latitudes - real :: p_play (nlay,pncol) ! layer pressures [hPa] - real :: p_tlay (nlay,pncol) ! layer temperatures [K] - real :: p_plev (0:nlay,pncol) ! level (interface) pressures [hPa] - real :: p_tlev (0:nlay,pncol) ! level (interface) temperatures [K] - real :: p_tsfc (pncol) ! surface temperature [K] - real :: p_emis (nbndlw,pncol) ! lw surface emissivity - - ! molecular volume mixing ratios - real, dimension (nlay,pncol) :: & - p_h2ovmr, p_o3vmr, p_co2vmr, p_ch4vmr, p_n2ovmr, p_o2vmr, p_covmr, & - p_cfc11vmr, p_cfc12vmr, p_cfc22vmr, p_ccl4vmr - - ! cloud input profiles - real :: p_cldf (nlay,pncol) ! Cloud fraction - real :: p_ciwp (nlay,pncol) ! In-cloud ice water path [g/m2] - real :: p_clwp (nlay,pncol) ! In-cloud liquid water path [g/m2] - real :: p_rei (nlay,pncol) ! Cloud ice particle effective size [um] - real :: p_rel (nlay,pncol) ! Cloud water drop effective radius [um] - - ! Aerosol optical depth at mid-point of LW spectral bands - real :: p_tauaer (nlay,nbndlw,pncol) - - ! gas optical depths and Planck fractions - real :: taug (nlay,ngptlw,pncol) ! gas + aerosol optical depth - real :: pfracs (nlay,ngptlw,pncol) ! Planck fractions - - ! mcica generated clouds - logical :: cldymc (nlay,ngptlw,pncol) ! cloudy or not? - real :: ciwpmc (nlay,ngptlw,pncol) ! cloud ice water path [g/m2] - real :: clwpmc (nlay,ngptlw,pncol) ! cloud liq water path [g/m2] - real :: taucmc (nlay,ngptlw,pncol) ! cloud optical depth - integer :: p_clearCounts (4,pncol) ! for super-layer cld fractions - - ! cloudy for ANY subcol/gpoint of column? - logical :: cloudy (nlay,pncol) - - ! spectrally summed fluxes and upward flux derivatives wrt Tsurf - real :: totuflux (0:nlay,pncol) ! upward longwave flux [W/m2] - real :: totdflux (0:nlay,pncol) ! downward longwave flux [W/m2] - real :: totuclfl (0:nlay,pncol) ! clrsky upward lw flux [W/m2] - real :: totdclfl (0:nlay,pncol) ! clrsky downward lw flux [W/m2] - real :: dtotuflux_dTs (0:nlay,pncol) ! d/d(Tsurf) [W/m2/K] - real :: dtotuclfl_dTs (0:nlay,pncol) ! d/d(Tsurf) [W/m2/K] - - ! band OLRs and d/dTs - real :: p_olrb (nbndlw,pncol) ! [W/m2] - real :: p_dolrb_dTs (nbndlw,pncol) ! [W/m2/K] - - ! keep at one (handle to unused special treatment of band 16 - ! when it is set to 16 (see rrtmg_lw_setcoef() for details)) - integer, parameter :: istart = 1 - - ! indices - integer :: ilev, ilay, ibnd, n - - ! copy partition and reorder for speed - p_alat = alat (colstart:(colstart+pncol-1)) - p_tsfc = tsfc (colstart:(colstart+pncol-1)) - do ilay = 1,nlay - p_zm (ilay,:) = zm (colstart:(colstart+pncol-1),ilay) - p_play (ilay,:) = play (colstart:(colstart+pncol-1),ilay) - p_tlay (ilay,:) = tlay (colstart:(colstart+pncol-1),ilay) - p_cldf (ilay,:) = cldf (colstart:(colstart+pncol-1),ilay) - p_ciwp (ilay,:) = ciwp (colstart:(colstart+pncol-1),ilay) - p_clwp (ilay,:) = clwp (colstart:(colstart+pncol-1),ilay) - p_rei (ilay,:) = rei (colstart:(colstart+pncol-1),ilay) - p_rel (ilay,:) = rel (colstart:(colstart+pncol-1),ilay) - p_h2ovmr (ilay,:) = h2ovmr (colstart:(colstart+pncol-1),ilay) - p_o3vmr (ilay,:) = o3vmr (colstart:(colstart+pncol-1),ilay) - p_co2vmr (ilay,:) = co2vmr (colstart:(colstart+pncol-1),ilay) - p_ch4vmr (ilay,:) = ch4vmr (colstart:(colstart+pncol-1),ilay) - p_n2ovmr (ilay,:) = n2ovmr (colstart:(colstart+pncol-1),ilay) - p_o2vmr (ilay,:) = o2vmr (colstart:(colstart+pncol-1),ilay) - p_covmr (ilay,:) = 0. -! pmn: consider adding CO absorption since it is calculable !!!!!!!!!!!!! -! pmn: i.e., pass through from RRTMG_LW - p_cfc11vmr (ilay,:) = cfc11vmr (colstart:(colstart+pncol-1),ilay) - p_cfc12vmr (ilay,:) = cfc12vmr (colstart:(colstart+pncol-1),ilay) - p_cfc22vmr (ilay,:) = cfc22vmr (colstart:(colstart+pncol-1),ilay) - p_ccl4vmr (ilay,:) = ccl4vmr (colstart:(colstart+pncol-1),ilay) - end do - do ilev = 0,nlay - p_plev (ilev,:) = plev (colstart:(colstart+pncol-1),ilev) - p_tlev (ilev,:) = tlev (colstart:(colstart+pncol-1),ilev) - end do - do ibnd = 1,nbndlw - p_emis (ibnd,:) = emis (colstart:(colstart+pncol-1),ibnd) - do ilay = 1,nlay - p_tauaer (ilay,ibnd,:) = tauaer (colstart:(colstart+pncol-1),ilay,ibnd) - end do - end do - - ! Generate stochastic subcolumns of cloud physical properties - - call generate_stochastic_clouds( & - pncol, pncol, ngptlw, nlay, & - p_zm, p_alat, dyofyr, & - p_play, p_cldf, p_ciwp, p_clwp, 1.e-20, & - cldymc, ciwpmc, clwpmc, & - seed_order=[1,2,3,4]) - - ! for super-layer cloud fractions - - call clearCounts_threeBand( & - pncol, pncol, ngptlw, nlay, cloudLM, cloudMH, cldymc, & - p_clearCounts) - do n = 1,4 - clearCounts (colstart:(colstart+pncol-1),n) = p_clearCounts(n,:) - end do - - ! cloud physical to physical properties - - call cldprmc (pncol, nlay, & - cldymc, ciwpmc, clwpmc, p_rei, p_rel, & - iceflglw, liqflglw, taucmc, cloudy) - - ! Calculate information needed by the radiative transfer routine - ! that is specific to this atmosphere, especially some of the - ! coefficients and indices needed to compute the optical depths - ! by interpolating data from stored reference atmospheres. - - call setcoef (pncol, nlay, istart, dudTs, & - p_play, p_tlay, p_plev, p_tlev, p_tsfc, p_emis, & - p_h2ovmr, p_o3vmr, p_co2vmr, p_ch4vmr, p_n2ovmr, p_o2vmr, p_covmr, & - p_cfc11vmr, p_cfc12vmr, p_cfc22vmr, p_ccl4vmr) - - ! Calculate the gaseous optical depths and Planck fractions for - ! each longwave spectral band. Also adds in aerosol optical depths. - - call taumol (pncol, nlay, p_play, p_tauaer, taug, pfracs) - - ! Call the radiative transfer routine - - call rtrnmc (pncol, nlay, dudTs, & - p_emis, taug, pfracs, cloudy, taucmc, & - totuflux, totdflux, totuclfl, totdclfl, & - dtotuflux_dTs, dtotuclfl_dTs, & - band_output, p_olrb, p_dolrb_dTs) - - ! copy the partitioned fluxes back - do ilev = 0,nlay - uflx (colstart:(colstart+pncol-1),ilev+1) = totuflux(ilev,:) - dflx (colstart:(colstart+pncol-1),ilev+1) = totdflux(ilev,:) - uflxc (colstart:(colstart+pncol-1),ilev+1) = totuclfl(ilev,:) - dflxc (colstart:(colstart+pncol-1),ilev+1) = totdclfl(ilev,:) - if (dudTs) then - duflx_dTs (colstart:(colstart+pncol-1),ilev+1) = dtotuflux_dTs(ilev,:) - duflxc_dTs(colstart:(colstart+pncol-1),ilev+1) = dtotuclfl_dTs(ilev,:) - end if - end do - - ! band OLRs - do ibnd = 1,nbndlw - if (band_output(ibnd)) then - olrb(ibnd,colstart:(colstart+pncol-1)) = p_olrb(ibnd,:) - if (dudTs) & - dolrb_dTs(ibnd,colstart:(colstart+pncol-1)) = p_dolrb_dTs(ibnd,:) - end if - end do - - ! free internal state of setcoef - call setcoef_free - - end subroutine rrtmg_lw_part - -end module rrtmg_lw_rad diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_rtrnmc.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_rtrnmc.F90 deleted file mode 100644 index fc031017c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_rtrnmc.F90 +++ /dev/null @@ -1,392 +0,0 @@ -module rrtmg_lw_rtrnmc - -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! --------- Modules ---------- - - use parrrtm, only : nbndlw, ngptlw - use rrlw_tbl, only: bpade, tblint, tau_tbl, exp_tbl, tfn_tbl - use rrtmg_lw_setcoef, only : & - pwvcm, planklay, planklev, plankbnd, dplankbnd_dTs - use rrlw_con, only: fluxfac - use rrlw_wvn, only: ngb, delwave - - implicit none - -contains - - !----------------------------------------------------- - subroutine rtrnmc (ncol, nlay, dudTs, & - semiss, taug, pfracs, cloudy, taucmc, & - totuflux, totdflux, totuclfl, totdclfl, & - dtotuflux_dTs, dtotuclfl_dTs, & - band_output, olrb, dolrb_dTs) - !----------------------------------------------------- - ! - ! Original version: E. J. Mlawer, et al. RRTM_V3.0 - ! Revision for GCMs: Michael J. Iacono; October, 2002 - ! Revision for F90: Michael J. Iacono; June, 2006 - ! Revision for dFdT option: M. J. Iacono and E. J. Mlawer, Nov 2009 - ! - ! This program calculates the upward fluxes and downward fluxes - ! for an arbitrary clear or cloudy atmosphere. The input is the - ! atmospheric profile, all Planck function information, and the - ! McICA cloud mask. A variable diffusivity angle (secdiff) - ! is used for the angle integration. Bands 2-3 and 5-9 use a - ! value for SECDIFF that varies from 1.50 to 1.80 as a function - ! of the column water vapor, and other bands use a value of 1.66. - ! The Gaussian weight appropriate to this angle (wtdiff=0.5) is - ! applied here. Note that use of the emissivity angle for the - ! flux integration can cause errors of 1 to 4 W/m2 within cloudy - ! layers. Clouds are treated with the McICA stochastic approach. - ! - ! Also provides the optional capability to calculate the deriv- - ! ative of upward flux respect to surface temperature using the - ! pre-tabulated derivative of the Planck function with respect - ! to temperature integrated over each spectral band. - ! - ! PMN 2021/06 This version depends explicity on binary subcolumn - ! clouds i.e., cldfmc in {0,1}. Thus, no clear / cloudy portion - ! breakdown is needed and the optical cloudiness of a subcolumn - ! / g-point gridcell is totally specified by taucmc = 0. or > 0. - !------------------------------------------------------- - - integer, intent(in) :: ncol ! number of columns - integer, intent(in) :: nlay ! number of layers - logical, intent(in) :: dudTs ! do d(upflux)/d(Tsurf) calcs - - real, intent(in) :: semiss ( nbndlw,ncol) ! surface emissivity - real, intent(in) :: taug (nlay,ngptlw,ncol) ! gas optical depth - real, intent(in) :: pfracs (nlay,ngptlw,ncol) ! Planck fractions - logical, intent(in) :: cloudy (nlay, ncol) ! cloudy for ANY g-point - real, intent(in) :: taucmc (nlay,ngptlw,ncol) ! cloud optical thickness - - ! spectrally summed fluxes and upward flux derivatives wrt Tsurf - real, intent(out) :: totuflux (0:nlay,ncol) ! upward longwave flux [W/m2] - real, intent(out) :: totdflux (0:nlay,ncol) ! downward longwave flux [W/m2] - real, intent(out) :: totuclfl (0:nlay,ncol) ! clrsky upward lw flux [W/m2] - real, intent(out) :: totdclfl (0:nlay,ncol) ! clrsky downward lw flux [W/m2] - real, intent(out) :: dtotuflux_dTs (0:nlay,ncol) ! d/d(Tsurf) [W/m2/K] - real, intent(out) :: dtotuclfl_dTs (0:nlay,ncol) ! d/d(Tsurf) [W/m2/K] - - ! which band OLRs to calculate? - logical, intent(in) :: band_output (nbndlw) - - ! band OLRs and d/dTs - real, intent(out) :: olrb (nbndlw,ncol) ! [W/m2] - real, intent(out) :: dolrb_dTs (nbndlw,ncol) ! [W/m2/K] - - ! ----- Local ----- - - real :: agas(nlay) ! gas absorptivity - real :: atot(nlay) ! mixed gas plus cloud absorptivity - real :: bbugas(nlay) ! gas Planck function for upward rt - real :: bbutot(nlay) ! gas and cloud Planck function for upward rt - - real :: secdiff ! diffusivity angle - real :: odepth ! gas optical depth - real :: odcld ! cloud optical depth - real :: odtot ! optical depth of gas and cloud - real :: tfacgas ! gas pade factor, used for planck fn - real :: tfactot ! gas and cloud pade factor, used for planck fn - real :: bbdgas ! gas planck function for downward rt - real :: gassrc ! source radiance due to gas only - real :: bbdtot ! gas and cloud planck function for downward rt - real :: tblind ! real lookup table index - real :: radld ! downward radiance - real :: radclrd ! downward radiance for clear column - real :: radlu ! upward radiance - real :: radclru ! upward radiance for clear column - real :: rad0 ! surface emitted radiance - real :: reflect ! surface reflectance - - real :: plfrac, blay, dplankup, dplankdn - real :: sumfac, deluflux, deluderiv - - ! derivatives with respect to surface temperature - real :: d_rad0_dTs, d_radlu_dTs, d_radclru_dTs - - integer :: icol ! column index - integer :: lev ! level index - integer :: ig ! g-point index - integer :: ibnd ! band index - integer :: ittot, itgas ! lookup table indices - - ! flags when clear-/total-sky downward streams diverge - logical :: down_streams_diverge - - ! This weight corresponds to the standard sec(diffusivity angle) of 1.66. - real, parameter :: wtdiff = 0.5 ! weight for radiance to flux conversion - - ! diffusivity factors - real, parameter, dimension(16) :: a0 = & - [1.66 , 1.55 , 1.58 , 1.66 , & - 1.54 , 1.454, 1.89 , 1.33 , & - 1.668, 1.66 , 1.66 , 1.66 , & - 1.66 , 1.66 , 1.66 , 1.66 ] - real, parameter, dimension(16) :: a1 = & - [0.00 , 0.25 , 0.22 , 0.00 , & - 0.13 , 0.446,-0.10 , 0.40 , & - -0.006, 0.00 , 0.00 , 0.00 , & - 0.00 , 0.00 , 0.00 , 0.00 ] - real, parameter, dimension(16) :: a2 = & - [0.00 ,-12.0 ,-11.7 , 0.00 , & - -0.72 ,-0.243, 0.19 ,-0.062, & - 0.414, 0.00 , 0.00 , 0.00 , & - 0.00 , 0.00 , 0.00 , 0.00 ] - - ! zero spectral sum accumulators - totuflux = 0. - totdflux = 0. - totuclfl = 0. - totdclfl = 0. - if (dudTs) then - dtotuflux_dTs = 0. - dtotuclfl_dTs = 0. - end if - - ! zero band output accumulators - if (any(band_output)) then - olrb = 0. - if (dudTs) dolrb_dTs = 0. - end if - - ! main loop - ! g-points are "monochromatic" in CKD - do icol = 1,ncol - do ig = 1,ngptlw - - ibnd = ngb(ig) - - ! factor for accumulating fluxes across g-points - sumfac = wtdiff * delwave(ibnd) * fluxfac - - ! Reset diffusivity angle for Bands 2-3 and 5-9 to vary (between 1.50 - ! and 1.80) as a function of total column water vapor. The function - ! has been defined to minimize flux and cooling rate errors in these - ! bands over a wide range of precipitable water values. - - if (ibnd == 1 .or. ibnd == 4 .or. ibnd >= 10) then - secdiff = 1.66 - else - secdiff = a0(ibnd) + a1(ibnd) * exp(a2(ibnd)*pwvcm(icol)) - if (secdiff > 1.80) then - secdiff = 1.80 - else if (secdiff < 1.50) then - secdiff = 1.50 - end if - endif - - ! TOA downward LW is zero - ! and column starts "clear" - radld = 0.; radclrd = 0. - - ! see below ... this flag is set false at the top of every SUB-column - ! (g-point) of the current gridcolumn, but becomes true at the first - ! layer (going down) in which ANY of the sub-columns is cloudy. - down_streams_diverge = .false. - - ! Downward radiative transfer loop - do lev = nlay,1,-1 - - plfrac = pfracs(lev,ig,icol) - blay = planklay(ibnd,lev,icol) - dplankup = planklev(ibnd,lev, icol) - blay - dplankdn = planklev(ibnd,lev-1,icol) - blay - - odepth = secdiff * taug(lev,ig,icol) - if (odepth < 0.) odepth = 0. - - ! --------------------------------------------------- - ! Table lookup for efficiency based on optical depth: - ! --------------------------------------------------- - ! Optical depth, tau, is converted to a discretized - ! table index, itau in [0:ntbl], by - ! tblind = tau / (bpade + tau) - ! itau = tblint * tblind + 0.5 - ! where bpade = 1/(pade constant), - ! tblint = float(ntbl), - ! and [0:ntbl] is the dimension of the tables. - ! - ! The three look-up-tables (LUTs) are: - ! (1) tau_tbl = Optical depth LUT. - ! Internally - ! tau_tbl(itau) = bpade * chi/(1-chi) - ! where chi = itau / tblint. - ! As such, tau_tbl(itau) is a discretized - ! version of tau consistent with itau. Since - ! it is this descretized tau that is used for - ! the other two table generations (see below) - ! it is important to use this descretized tau - ! externally (rather than the original tau), - ! for consistency. - ! - ! (2) exp_tbl = Exponential LUT for transmittance. - ! Internally = exp(-tau_tbl(itau)). - ! - ! (3) tfn_tbl = Tau transition function LUT. - ! (i.e. the transition of the Planck function - ! from that for the mean layer temperature to - ! that for the layer boundary temperature as - ! a function of optical depth. The "linear in - ! tau" method is used to make the table.) - ! Internally also a function of tau_tbl(itau). - ! --------------------------------------------------- - - ! gas only - tblind = odepth / (bpade + odepth) - itgas = tblint * tblind + 0.5 - agas(lev) = 1. - exp_tbl(itgas) - tfacgas = tfn_tbl(itgas) - bbdgas = plfrac * (blay + tfacgas * dplankdn) - bbugas(lev) = plfrac * (blay + tfacgas * dplankup) - - ! Update of LW, rad, through a layer of transmissivity T: - ! rad -> rad * T + bbd * (1-T) = rad + (bbd - rad) * A - ! where bbd is effective Planck func and A = 1-T. - - if (taucmc(lev,ig,icol) <= 0.) then - - ! through a clear layer, so gas only - radld = radld + (bbdgas - radld) * agas(lev) - - else - - ! through a cloudy layer, so mixed gas plus cloud ... - ! REMEMBER: binary clouds, no clear/cloudy portion - - odcld = secdiff * taucmc(lev,ig,icol) - - ! since cloud optical depth must be added in, we should - ! add it to the *discretized* gas optical depth, since - ! the latter is what is actually used to generate the - ! exp_tbl and tfn_tbl table values above. - odepth = tau_tbl(itgas) - odtot = odepth + odcld - - tblind = odtot / (bpade + odtot) - ittot = tblint * tblind + 0.5 - atot(lev) = 1. - exp_tbl(ittot) - tfactot = tfn_tbl(ittot) - bbdtot = plfrac * (blay + tfactot * dplankdn) - bbutot(lev) = plfrac * (blay + tfactot * dplankup) - - radld = radld + (bbdtot - radld) * atot(lev) - - endif - - ! spectrally integrate downward flux (total-sky) - totdflux(lev-1,icol) = totdflux(lev-1,icol) + sumfac * radld - - ! total-sky and clear-sky fluxes (for downward, totdflux and - ! totdclfl, respectively) are spectrally integrated across - ! all gpoints (subcolumns). Therefore, the downward total- - ! and clear-sky flux streams will be the same at the TOA and - ! working down through completely clear layers. But once a - ! layer is reached which is cloudy in at least one subcolumn, - ! the two streams diverge for that layer and all layers below. - - if (.not. down_streams_diverge) then - if (cloudy(lev,icol)) down_streams_diverge = .true. - end if - if (down_streams_diverge) then - radclrd = radclrd + (bbdgas - radclrd) * agas(lev) - else - radclrd = radld - endif - - ! spectrally integrate downward flux (clear-sky) - totdclfl(lev-1,icol) = totdclfl(lev-1,icol) + sumfac * radclrd - - enddo ! downward loop - - ! Include the contribution of spectrally varying longwave emissivity - ! and reflection from the surface to the upward radiative transfer. - ! Note: Spectral and Lambertian reflection are identical for the - ! diffusivity angle flux integration used here. - ! Note: The emissivity is applied to plankbnd and dplankbnd_dTs when - ! they are defined in subroutine setcoef. - - ! surface emission - rad0 = pfracs(1,ig,icol) * plankbnd(ibnd,icol) - if (dudTs) d_rad0_dTs = pfracs(1,ig,icol) * dplankbnd_dTs(ibnd,icol) - - ! Add in specular reflection of surface downward radiance - reflect = 1. - semiss(ibnd,icol) - radlu = rad0 + reflect * radld - radclru = rad0 + reflect * radclrd - totuflux(0,icol) = totuflux(0,icol) + sumfac * radlu - totuclfl(0,icol) = totuclfl(0,icol) + sumfac * radclru - if (dudTs) then - d_radlu_dTs = d_rad0_dTs - d_radclru_dTs = d_rad0_dTs - dtotuflux_dTs(0,icol) = dtotuflux_dTs(0,icol) + sumfac * d_radlu_dTs - dtotuclfl_dTs(0,icol) = dtotuclfl_dTs(0,icol) + sumfac * d_radclru_dTs - endif - - ! Upward radiative transfer loop - do lev = 1,nlay - - if (taucmc(lev,ig,icol) <= 0.) then - - ! clear subcolumn layer - radlu = radlu + (bbugas(lev) - radlu) * agas(lev) - if (dudTs) d_radlu_dTs = d_radlu_dTs - d_radlu_dTs * agas(lev) - - else - - ! cloudy subcolumn layer - radlu = radlu + (bbutot(lev) - radlu) * atot(lev) - if (dudTs) d_radlu_dTs = d_radlu_dTs - d_radlu_dTs * atot(lev) - - endif - - ! spectrally integrate upward flux (total-sky) - deluflux = sumfac * radlu - totuflux(lev,icol) = totuflux(lev,icol) + deluflux - - ! If downward streams diverged, then upward streams must also - ! because surface reflected flux is different for each stream. - - if (down_streams_diverge) then - radclru = radclru + (bbugas(lev) - radclru) * agas(lev) - else - radclru = radlu - endif - - ! spectrally integrate upward flux (clear-sky) - totuclfl(lev,icol) = totuclfl(lev,icol) + sumfac * radclru - - if (dudTs) then - if (down_streams_diverge) then - d_radclru_dTs = d_radclru_dTs - d_radclru_dTs * agas(lev) - else - d_radclru_dTs = d_radlu_dTs - endif - deluderiv = sumfac * d_radlu_dTs - dtotuflux_dTs(lev,icol) = dtotuflux_dTs(lev,icol) + deluderiv - dtotuclfl_dTs(lev,icol) = dtotuclfl_dTs(lev,icol) + sumfac * d_radclru_dTs - endif - - enddo ! layer - - ! OLR band output (we are at TOA) - if (band_output(ibnd)) then - olrb(ibnd,icol) = olrb(ibnd,icol) + deluflux - if (dudTs) dolrb_dTs(ibnd,icol) = dolrb_dTs(ibnd,icol) + deluderiv - end if - - end do ! g-point - end do ! column - - end subroutine rtrnmc - -end module rrtmg_lw_rtrnmc diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_setcoef.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_setcoef.F90 deleted file mode 100644 index 56bb3204c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_setcoef.F90 +++ /dev/null @@ -1,2220 +0,0 @@ -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -module rrtmg_lw_setcoef - - use parrrtm, only : nbndlw - use rrlw_wvn, only : totplnk, totplk16, totplnkderiv, totplk16deriv - use rrlw_con, only : grav, avogad - use rrlw_ref - - use iso_fortran_env, only : error_unit - - implicit none - - ! lower / upper atmosphere separator (see code) - integer, allocatable :: laytrop (:) - - ! molecular concentrations (scaled molecules per cm^2) - real, allocatable, dimension (:,:) :: & - colh2o, colco2, colo3, coln2o, colch4, colo2, colco, colbrd, & - colcfc11, colcfc12, colcfc22, colccl4 - - real, allocatable :: coldry (:,:) ! dry air column density [molec/cm^2] - real, allocatable :: pwvcm (:) ! precipitable water vapor [cm] - - ! Planck functions and interpolation factors for continuum, - ! minor absorber, and (ln p, T, & binary species) CKD tables - real, allocatable, dimension (:,:,:) :: planklev, planklay - real, allocatable, dimension (:,:) :: & - plankbnd, dplankbnd_dTs, & - forfac, forfrac, selffac, selffrac, & - scaleminor, scaleminorn2, minorfrac - integer, allocatable, dimension (:,:) :: & - jp, jt, jt1, indfor, indself, indminor - real, allocatable, dimension (:,:) :: & - rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, & - rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4_1, & - rat_n2oco2, rat_n2oco2_1, rat_o3co2, rat_o3co2_1 - real, allocatable, dimension(:,:) :: & - fac00, fac01, fac10, fac11 - -contains - - !---------------------------------------------------------------------------- - subroutine setcoef ( & - ncol, nlay, istart, dudTs, & - pavel, tavel, pz, tz, tbound, semiss, & - h2ovmr, o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, covmr, & - cfc11vmr, cfc12vmr, cfc22vmr, ccl4vmr) - - !---------------------------------------------------------------------------- - ! - ! For a given atmosphere, calculate the indices and fractions related to - ! pressure and temperature interpolations. Also calculate the values of - ! the integrated Planck functions for each band at the level and layer - ! temperatures. - - integer, intent(in) :: ncol ! number of gridcolumns - integer, intent(in) :: nlay ! number of layers - integer, intent(in) :: istart ! see code - logical, intent(in) :: dudTs ! Planck derivative option flag - - real, intent(in) :: pavel (nlay,ncol) ! layer pressures [hPa] - real, intent(in) :: tavel (nlay,ncol) ! layer temperatures [K] - real, intent(in) :: pz (0:nlay,ncol) ! level (interface) pressure [hPa] - real, intent(in) :: tz (0:nlay,ncol) ! level (interface) temperatures [K] - real, intent(in) :: tbound (ncol) ! surface temperature [K] - real, intent(in) :: semiss (nbndlw,ncol) ! surface emissivity - - ! volume mixing ratios (moles per mole of dry air) - real, intent(in), dimension (nlay,ncol) :: & - h2ovmr, o3vmr, co2vmr, ch4vmr, n2ovmr, o2vmr, covmr, & - cfc11vmr, cfc12vmr, cfc22vmr, ccl4vmr - - real, parameter :: amd = 28.9660 ! Effective molecular weight of dry air (g/mol) - real, parameter :: amw = 18.0160 ! Molecular weight of water vapor (g/mol) - real, parameter :: stpfac = 296. / 1013. - - ! broadening gas column density [molec/cm^2] - real :: wbroad (nlay,ncol) - - integer :: icol, lay, iband - integer :: indbound, indlev0, indlay, indlev, jp1 - real :: tbndfrac, t0frac, tlayfrac, tlevfrac - real :: dbdtlev, dbdtlay - real :: plog, fp, ft, ft1, water, scalefac, factor, compfp - real :: amm, amttl, wvttl, wvsh, summol, btemp, wv, lcoldry - logical :: upper_atmosphere_found - - ! allocate or reallocate as necessary - if (allocated (laytrop)) then - if (size(laytrop) /= ncol) then - deallocate (coldry ) - deallocate (pwvcm ) - deallocate (laytrop ) - deallocate (colh2o ) - deallocate (colco2 ) - deallocate (colo3 ) - deallocate (coln2o ) - deallocate (colch4 ) - deallocate (colo2 ) - deallocate (colco ) - deallocate (colbrd ) - deallocate (colcfc11 ) - deallocate (colcfc12 ) - deallocate (colcfc22 ) - deallocate (colccl4 ) - deallocate (plankbnd ) - deallocate (dplankbnd_dTs) - deallocate (planklev ) - deallocate (planklay ) - deallocate (jp ) - deallocate (jt ) - deallocate (jt1 ) - deallocate (forfac ) - deallocate (indfor ) - deallocate (forfrac ) - deallocate (selffac ) - deallocate (indself ) - deallocate (selffrac ) - deallocate (scaleminor ) - deallocate (scaleminorn2 ) - deallocate (indminor ) - deallocate (minorfrac ) - deallocate (rat_h2oco2 ) - deallocate (rat_h2oco2_1 ) - deallocate (rat_h2oo3 ) - deallocate (rat_h2oo3_1 ) - deallocate (rat_h2on2o ) - deallocate (rat_h2on2o_1 ) - deallocate (rat_h2och4 ) - deallocate (rat_h2och4_1 ) - deallocate (rat_n2oco2 ) - deallocate (rat_n2oco2_1 ) - deallocate (rat_o3co2 ) - deallocate (rat_o3co2_1 ) - deallocate (fac00 ) - deallocate (fac01 ) - deallocate (fac10 ) - deallocate (fac11 ) - end if - end if - if (.not. allocated (laytrop)) then - allocate (coldry (nlay,ncol)) - allocate (pwvcm (ncol)) - allocate (laytrop (ncol)) - allocate (colh2o (nlay,ncol)) - allocate (colco2 (nlay,ncol)) - allocate (colo3 (nlay,ncol)) - allocate (coln2o (nlay,ncol)) - allocate (colch4 (nlay,ncol)) - allocate (colo2 (nlay,ncol)) - allocate (colco (nlay,ncol)) - allocate (colbrd (nlay,ncol)) - allocate (colcfc11 (nlay,ncol)) - allocate (colcfc12 (nlay,ncol)) - allocate (colcfc22 (nlay,ncol)) - allocate (colccl4 (nlay,ncol)) - allocate (plankbnd (nbndlw, ncol)) - allocate (dplankbnd_dTs (nbndlw, ncol)) - allocate (planklev (nbndlw,0:nlay,ncol)) - allocate (planklay (nbndlw, nlay,ncol)) - allocate (jp (nlay,ncol)) - allocate (jt (nlay,ncol)) - allocate (jt1 (nlay,ncol)) - allocate (forfac (nlay,ncol)) - allocate (indfor (nlay,ncol)) - allocate (forfrac (nlay,ncol)) - allocate (selffac (nlay,ncol)) - allocate (indself (nlay,ncol)) - allocate (selffrac (nlay,ncol)) - allocate (scaleminor (nlay,ncol)) - allocate (scaleminorn2 (nlay,ncol)) - allocate (indminor (nlay,ncol)) - allocate (minorfrac (nlay,ncol)) - allocate (rat_h2oco2 (nlay,ncol)) - allocate (rat_h2oco2_1 (nlay,ncol)) - allocate (rat_h2oo3 (nlay,ncol)) - allocate (rat_h2oo3_1 (nlay,ncol)) - allocate (rat_h2on2o (nlay,ncol)) - allocate (rat_h2on2o_1 (nlay,ncol)) - allocate (rat_h2och4 (nlay,ncol)) - allocate (rat_h2och4_1 (nlay,ncol)) - allocate (rat_n2oco2 (nlay,ncol)) - allocate (rat_n2oco2_1 (nlay,ncol)) - allocate (rat_o3co2 (nlay,ncol)) - allocate (rat_o3co2_1 (nlay,ncol)) - allocate (fac00 (nlay,ncol)) - allocate (fac01 (nlay,ncol)) - allocate (fac10 (nlay,ncol)) - allocate (fac11 (nlay,ncol)) - end if - - ! (re-)initialize as necessary - ! (if not done below for all entries) - - ! set coldry, wbroad, and pwvcm - - do icol = 1,ncol - - do lay = 1, nlay - - ! molecular weight of moist air in g/mol: - ! amm = [(\sum_i n_i a_i) + n_w a_w] / [(\sum_i n_i) + n_w], - ! where i is a dry air species, n_i and a_i are its number of - ! moles (in a volume of air) nand molecular weight, and similarly - ! n_w and a_w (== amw) for water molecules. In the same way, - ! amd = [\sum_i n_i a_i] / n_d, where n_d == [\sum_i n_i], - ! so, - ! amm = [n_d amd + n_w amw] / [n_d + n_w] - ! = [amd + h2ovmr amw] / [1 + h2ovmr] - ! since h2ovmr = n_w / n_d. - ! Finally, since h2ovmr ~ 1%, on average, at sea-level, less above, - ! a good *approximation* is - ! amm \approx [1 - h2ovmr] * amd + h2ovmr * amw. - - amm = (1. - h2ovmr(lay,icol)) * amd + h2ovmr(lay,icol) * amw - - ! coldry = layer molecules of dry air per cm^2: - ! -dp/g = rho*dz, where -dp = 100*(pz(k-1)-pz(k)) since pz in [hPa]. - ! So 1e3*(pz(k-1)-pz(k))/(1e2*grav) = (g moist air)/cm^2. This /amm - ! is (moles moist air)/cm^2, and *avogad is (molecules moist air)/cm^2. - ! Finally number of dry air (non-water) molecules per cm^2 should be - ! this times n_d / (n_d + n_w) = 1 / (1 + h2ovmr). - - coldry(lay,icol) = (pz(lay-1,icol)-pz(lay,icol)) * 1.e3 * avogad / & - (1.e2 * grav * amm * (1. + h2ovmr(lay,icol))) - - end do - - ! calculate precipitable water vapor, and - ! calculate n2 column density (for broadening) - - amttl = 0. - wvttl = 0. - do lay = 1,nlay - - ! pmn: summol appears to be used as a proxy for the sum of - ! non-n2 dry air mole fractions. In fact it also contains - ! the non-radiatively active Argon, about 1% by volume. - ! pmn: Does this need to be corrected? - summol = co2vmr(lay,icol) + o3vmr(lay,icol) & - + n2ovmr(lay,icol) + ch4vmr(lay,icol) + o2vmr(lay,icol) - ! wbroad is ~ number of n2 molecules per cm^2 in layer - wbroad(lay,icol) = coldry(lay,icol) * (1. - summol) - - ! btemp is number of h2o molecules per cm^2 in layer - ! so wvttl accumulates column h2o molecules per cm^2 - ! and amttl the total column molecules per cm^2 - btemp = h2ovmr(lay,icol) * coldry(lay,icol) - amttl = amttl + coldry(lay,icol) + btemp - wvttl = wvttl + btemp - - enddo - - ! column specic humidity [grams water vapor / grams moist air] - ! pmn: almost. Really needs amm not amd in denominator. - wvsh = (amw * wvttl) / (amd * amttl) - - ! precipitable water vapor [grams water / cm^2], or, - ! since 1 cm^3 of liquid water ~ 1 gram, it is also the - ! precipitable water vapor in [cm]. - pwvcm(icol) = wvsh * (1.e3 * pz(0,icol)) / (1.e2 * grav) - - enddo - - ! main loop over column - do icol = 1,ncol - - ! tbound indexing within Planck table - indbound = tbound(icol) - 159. - if (indbound < 1) then - indbound = 1 - elseif (indbound > 180) then - indbound = 180 - endif - tbndfrac = tbound(icol) - 159. - float(indbound) - - ! tz(lev==0) indexing within Planck table - indlev0 = tz(0,icol) - 159. - if (indlev0 < 1) then - indlev0 = 1 - elseif (indlev0 > 180) then - indlev0 = 180 - endif - t0frac = tz(0,icol) - 159. - float(indlev0) - - ! laytrop is highest layer with pavel > ~95.6 hPa (details below) - upper_atmosphere_found = .false. - laytrop(icol) = 0 - - ! layer loop (bottom up) - do lay = 1,nlay - - lcoldry = coldry(lay,icol) ! dry air molec / cm^2 - wv = h2ovmr(lay,icol) * lcoldry ! water vapor molec / cm^2 - - ! layer temperature indexing within Planck table - indlay = tavel(lay,icol) - 159. - if (indlay < 1) then - indlay = 1 - elseif (indlay > 180) then - indlay = 180 - endif - tlayfrac = tavel(lay,icol) - 159. - float(indlay) - - ! level (interface) temperature indexing within Planck table - indlev = tz(lay,icol) - 159. - if (indlev < 1) then - indlev = 1 - elseif (indlev > 180) then - indlev = 180 - endif - tlevfrac = tz(lay,icol) - 159. - float(indlev) - - ! Calculate the integrated Planck functions for each band at the - ! surface, level, and layer temperatures. - - ! spectral band loop - do iband = 1,15 - - ! interpolate Planck functions to boundary & level zero temperatures - if (lay.eq.1) then - dbdtlev = totplnk(indbound+1,iband) - totplnk(indbound,iband) - plankbnd(iband,icol) = semiss(iband,icol) * & - (totplnk(indbound,iband) + tbndfrac * dbdtlev) - dbdtlev = totplnk(indlev0+1,iband)-totplnk(indlev0,iband) - planklev(iband,0,icol) = totplnk(indlev0,iband) + t0frac * dbdtlev - if (dudTs) then - dbdtlev = totplnkderiv(indbound+1,iband) - totplnkderiv(indbound,iband) - dplankbnd_dTs(iband,icol) = semiss(iband,icol) * & - (totplnkderiv(indbound,iband) + tbndfrac * dbdtlev) - endif - endif - - ! interpolate Planck functions to layer & level temperatures - dbdtlev = totplnk(indlev+1,iband) - totplnk(indlev,iband) - planklev(iband,lay,icol) = totplnk(indlev,iband) + tlevfrac * dbdtlev - dbdtlay = totplnk(indlay+1,iband) - totplnk(indlay,iband) - planklay(iband,lay,icol) = totplnk(indlay,iband) + tlayfrac * dbdtlay - - enddo - - ! For band 16, if radiative transfer will be performed on just - ! this band, use integrated Planck values up to 3250 cm-1. - ! If radiative transfer will be performed across all 16 bands, - ! then include in the integrated Planck values for this band - ! contributions from 2600 cm-1 to infinity. - iband = 16 - if (istart == 16) then - if (lay == 1) then - dbdtlev = totplk16(indbound+1) - totplk16(indbound) - plankbnd(iband,icol) = semiss(iband,icol) * & - (totplk16(indbound) + tbndfrac * dbdtlev) -! pmn: 2021-05-05 -! istart==16 has not been used so far. Just as well, because the following -! line was in error by using totplnk instead of totplk16 - dbdtlev = totplk16(indlev0+1) - totplk16(indlev0) - planklev(iband,0,icol) = totplk16(indlev0) + t0frac * dbdtlev - if (dudTs) then - dbdtlev = totplk16deriv(indbound+1) - totplk16deriv(indbound) - dplankbnd_dTs(iband,icol) = semiss(iband,icol) * & - (totplk16deriv(indbound) + tbndfrac * dbdtlev) - endif - endif - dbdtlev = totplk16(indlev+1) - totplk16(indlev) - planklev(iband,lay,icol) = totplk16(indlev) + tlevfrac * dbdtlev - dbdtlay = totplk16(indlay+1) - totplk16(indlay) - planklay(iband,lay,icol) = totplk16(indlay) + tlayfrac * dbdtlay - else - if (lay == 1) then - dbdtlev = totplnk(indbound+1,iband) - totplnk(indbound,iband) - plankbnd(iband,icol) = semiss(iband,icol) * & - (totplnk(indbound,iband) + tbndfrac * dbdtlev) - dbdtlev = totplnk(indlev0+1,iband) - totplnk(indlev0,iband) - planklev(iband,0,icol) = totplnk(indlev0,iband) + t0frac * dbdtlev - if (dudTs) then - dbdtlev = totplnkderiv(indbound+1,iband) - totplnkderiv(indbound,iband) - dplankbnd_dTs(iband,icol) = semiss(iband,icol) * & - (totplnkderiv(indbound,iband) + tbndfrac * dbdtlev) - endif - endif - dbdtlev = totplnk(indlev+1,iband) - totplnk(indlev,iband) - planklev(iband,lay,icol) = totplnk(indlev,iband) + tlevfrac * dbdtlev - dbdtlay = totplnk(indlay+1,iband) - totplnk(indlay,iband) - planklay(iband,lay,icol) = totplnk(indlay,iband) + tlayfrac * dbdtlay - endif - - ! Find the two reference pressures on either side of the - ! layer pressure. Store them in JP and JP1. Store in FP the - ! fraction of the difference (in ln(pressure)) between these - ! two values that the layer pressure lies. - - plog = alog(pavel(lay,icol)) - jp(lay,icol) = int(36. - 5*(plog+0.04)) - if (jp(lay,icol) < 1) then - jp(lay,icol) = 1 - elseif (jp(lay,icol) > 58) then - jp(lay,icol) = 58 - endif - jp1 = jp(lay,icol) + 1 - fp = 5. *(preflog(jp(lay,icol)) - plog) - - ! Determine, for each reference pressure (JP and JP1), which - ! reference temperature (these are different for each - ! reference pressure) is nearest the layer temperature but does - ! not exceed it. Store these indices in JT and JT1, resp. - ! Store in FT (resp. FT1) the fraction of the way between JT - ! (JT1) and the next highest reference temperature that the - ! layer temperature falls. - - jt(lay,icol) = int(3. + (tavel(lay,icol)-tref(jp(lay,icol)))/15.) - if (jt(lay,icol) < 1) then - jt(lay,icol) = 1 - elseif (jt(lay,icol) > 4) then - jt(lay,icol) = 4 - endif - ft = ((tavel(lay,icol)-tref(jp(lay,icol)))/15.) - float(jt(lay,icol)-3) - - jt1(lay,icol) = int(3. + (tavel(lay,icol)-tref(jp1))/15.) - if (jt1(lay,icol) < 1) then - jt1(lay,icol) = 1 - elseif (jt1(lay,icol) > 4) then - jt1(lay,icol) = 4 - endif - ft1 = ((tavel(lay,icol)-tref(jp1))/15.) - float(jt1(lay,icol)-3) - - ! intermediates needed for selffac and forfac - water = wv / lcoldry ! same as h2ovmr - scalefac = pavel(lay,icol) * stpfac / tavel(lay,icol) ! normalized p/T scalefac - - ! If the pressure is less than ~100mb, perform a different - ! set of species interpolations. - - ! lower atmosphere - if (plog > 4.56) then - - if (upper_atmosphere_found) then - ! upper atmosphere has already been found, so should never - ! be here in the lower atmosphere again unless there is a - ! non-monotonically-decreasing pressure with height. This - ! will mess up current laytrop method, so die. - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'icol, lay, plog:', icol, lay, plog - error stop 'RRTMG LW pressure misordering' - end if - - ! laytrop counts the layers with pavel > exp(4.56) ~ 95.6 hPa. - ! But pavel is strictly decreasing with height in model atmosphere. - ! So pavel(lay <= laytrop) > ~95.6 hPa and pavel(lay > laytrop) <= ~95.6 hPa - laytrop(icol) = laytrop(icol) + 1 - - ! factors needed for water vapor foreign-continuum - forfac(lay,icol) = scalefac/(1.+water) - factor = (332.-tavel(lay,icol))/36. - indfor(lay,icol) = min(2,max(1,int(factor))) - forfrac(lay,icol) = factor - float(indfor(lay,icol)) - - ! factors needed to separately include the water vapor - ! self-continuum in the calc'n of absorption coefficient - selffac(lay,icol) = water * forfac(lay,icol) - factor = (tavel(lay,icol)-188.)/7.2 - indself(lay,icol) = min(9,max(1,int(factor)-7)) - selffrac(lay,icol) = factor - float(indself(lay,icol)+7) - - ! factors needed to separately include the minor gases - ! in the calculation of absorption coefficient - scaleminor(lay,icol) = pavel(lay,icol)/tavel(lay,icol) - scaleminorn2(lay,icol) = (pavel(lay,icol)/tavel(lay,icol)) & - * (wbroad(lay,icol)/(lcoldry+wv)) - factor = (tavel(lay,icol)-180.8)/7.2 - indminor(lay,icol) = min(18,max(1,int(factor))) - minorfrac(lay,icol) = factor - float(indminor(lay,icol)) - - ! Setup reference ratio to be used in calculation of binary - ! species parameter in lower atmosphere. - rat_h2oco2 (lay,icol) = chi_mls(1,jp(lay,icol) ) / chi_mls(2,jp(lay,icol) ) - rat_h2oco2_1(lay,icol) = chi_mls(1,jp(lay,icol)+1) / chi_mls(2,jp(lay,icol)+1) - - rat_h2oo3 (lay,icol) = chi_mls(1,jp(lay,icol) ) / chi_mls(3,jp(lay,icol) ) - rat_h2oo3_1 (lay,icol) = chi_mls(1,jp(lay,icol)+1) / chi_mls(3,jp(lay,icol)+1) - - rat_h2on2o (lay,icol) = chi_mls(1,jp(lay,icol) ) / chi_mls(4,jp(lay,icol) ) - rat_h2on2o_1(lay,icol) = chi_mls(1,jp(lay,icol)+1) / chi_mls(4,jp(lay,icol)+1) - - rat_h2och4 (lay,icol) = chi_mls(1,jp(lay,icol) ) / chi_mls(6,jp(lay,icol) ) - rat_h2och4_1(lay,icol) = chi_mls(1,jp(lay,icol)+1) / chi_mls(6,jp(lay,icol)+1) - - rat_n2oco2 (lay,icol) = chi_mls(4,jp(lay,icol) ) / chi_mls(2,jp(lay,icol) ) - rat_n2oco2_1(lay,icol) = chi_mls(4,jp(lay,icol)+1) / chi_mls(2,jp(lay,icol)+1) - - else - - ! upper atmosphere (above laytrop) - upper_atmosphere_found = .true. - - ! factors needed for water vapor foreign-continuum - forfac(lay,icol) = scalefac/(1.+water) - factor = (tavel(lay,icol)-188.)/36. - indfor(lay,icol) = 3 - forfrac(lay,icol) = factor - 1. - - ! Initialize selffac in upper atmosphere - ! - ! In the old code this was set as: - ! selffac(lay,icol) = water * forfac(lay,icol) - ! - ! However, selffac is never used outside of this routine in the - ! upper atmosphere. So to save operations we just set to zero. - ! Tests confirm that this is zero-diff to actually filling the - ! array with the product above in both optimized and debug runs. - ! The only reason it needs to be set at all (since it's never used) - ! is because of the scaling below by colh2o outside of the lower/ - ! upper atmosphere branch. If this scaling encoanuters an unitialized - ! selffac when compiled in debug mode it will give a FP exception. - selffac(lay,icol) = 0. - - ! factors needed to separately include the minor gases - ! in the calculation of absorption coefficient - scaleminor(lay,icol) = pavel(lay,icol)/tavel(lay,icol) - scaleminorn2(lay,icol) = (pavel(lay,icol)/tavel(lay,icol)) & - * (wbroad(lay,icol)/(lcoldry+wv)) - factor = (tavel(lay,icol)-180.8)/7.2 - indminor(lay,icol) = min(18,max(1,int(factor))) - minorfrac(lay,icol) = factor - float(indminor(lay,icol)) - - ! Setup reference ratio to be used in calculation of binary - ! species parameter in upper atmosphere. - rat_h2oco2 (lay,icol) = chi_mls(1,jp(lay,icol) ) / chi_mls(2,jp(lay,icol) ) - rat_h2oco2_1(lay,icol) = chi_mls(1,jp(lay,icol)+1) / chi_mls(2,jp(lay,icol)+1) - - rat_o3co2 (lay,icol) = chi_mls(3,jp(lay,icol) ) / chi_mls(2,jp(lay,icol) ) - rat_o3co2_1 (lay,icol) = chi_mls(3,jp(lay,icol)+1) / chi_mls(2,jp(lay,icol)+1) - - end if - - ! Calculate needed column amounts. - colh2o (lay,icol) = 1.e-20 * h2ovmr (lay,icol) * lcoldry - colco2 (lay,icol) = 1.e-20 * co2vmr (lay,icol) * lcoldry - colo3 (lay,icol) = 1.e-20 * o3vmr (lay,icol) * lcoldry - coln2o (lay,icol) = 1.e-20 * n2ovmr (lay,icol) * lcoldry - colch4 (lay,icol) = 1.e-20 * ch4vmr (lay,icol) * lcoldry - colo2 (lay,icol) = 1.e-20 * o2vmr (lay,icol) * lcoldry - colco (lay,icol) = 1.e-20 * covmr (lay,icol) * lcoldry - colcfc11(lay,icol) = 1.e-20 * cfc11vmr(lay,icol) * lcoldry - colcfc12(lay,icol) = 1.e-20 * cfc12vmr(lay,icol) * lcoldry - colcfc22(lay,icol) = 1.e-20 * cfc22vmr(lay,icol) * lcoldry - colccl4 (lay,icol) = 1.e-20 * ccl4vmr (lay,icol) * lcoldry - colbrd (lay,icol) = 1.e-20 * wbroad (lay,icol) - - ! require some minor absorbers to be non-zero - if (colco2(lay,icol) == 0.) colco2(lay,icol) = 1.e-32 * lcoldry - if (colo3 (lay,icol) == 0.) colo3 (lay,icol) = 1.e-32 * lcoldry - if (coln2o(lay,icol) == 0.) coln2o(lay,icol) = 1.e-32 * lcoldry - if (colch4(lay,icol) == 0.) colch4(lay,icol) = 1.e-32 * lcoldry - if (colco (lay,icol) == 0.) colco (lay,icol) = 1.e-32 * lcoldry - - ! We have now isolated the layer ln pressure and temperature, - ! between two reference pressures and two reference temperatures - ! (for each reference pressure). We multiply the pressure - ! fraction FP with the appropriate temperature fractions to get - ! the factors that will be needed for the interpolation that yields - ! the optical depths (performed in routines TAUGBn for band n). - compfp = 1. - fp - fac10(lay,icol) = compfp * ft - fac00(lay,icol) = compfp * (1. - ft) - fac11(lay,icol) = fp * ft1 - fac01(lay,icol) = fp * (1. - ft1) - - ! rescale selffac and forfac for use in taumol - selffac(lay,icol) = colh2o(lay,icol) * selffac(lay,icol) - forfac (lay,icol) = colh2o(lay,icol) * forfac (lay,icol) - - enddo ! layer - end do ! column - - end subroutine setcoef - - - ! Deallocate module level allocatables when no longer needed. - ! Do this after only when rrtmg_lw() is done. It is not necessary - ! to do this between partitions because setcoef() handles reallocation - ! if the size of a partition changes. - subroutine setcoef_free - if (allocated (laytrop)) then - deallocate (coldry ) - deallocate (pwvcm ) - deallocate (laytrop ) - deallocate (colh2o ) - deallocate (colco2 ) - deallocate (colo3 ) - deallocate (coln2o ) - deallocate (colch4 ) - deallocate (colo2 ) - deallocate (colco ) - deallocate (colbrd ) - deallocate (colcfc11 ) - deallocate (colcfc12 ) - deallocate (colcfc22 ) - deallocate (colccl4 ) - deallocate (plankbnd ) - deallocate (dplankbnd_dTs) - deallocate (planklev ) - deallocate (planklay ) - deallocate (jp ) - deallocate (jt ) - deallocate (jt1 ) - deallocate (forfac ) - deallocate (indfor ) - deallocate (forfrac ) - deallocate (selffac ) - deallocate (indself ) - deallocate (selffrac ) - deallocate (scaleminor ) - deallocate (scaleminorn2 ) - deallocate (indminor ) - deallocate (minorfrac ) - deallocate (rat_h2oco2 ) - deallocate (rat_h2oco2_1 ) - deallocate (rat_h2oo3 ) - deallocate (rat_h2oo3_1 ) - deallocate (rat_h2on2o ) - deallocate (rat_h2on2o_1 ) - deallocate (rat_h2och4 ) - deallocate (rat_h2och4_1 ) - deallocate (rat_n2oco2 ) - deallocate (rat_n2oco2_1 ) - deallocate (rat_o3co2 ) - deallocate (rat_o3co2_1 ) - deallocate (fac00 ) - deallocate (fac01 ) - deallocate (fac10 ) - deallocate (fac11 ) - end if - end subroutine setcoef_free - - -!*************************************************************************** - subroutine lwatmref -!*************************************************************************** - - save - -! These pressures are chosen such that the ln of the first pressure -! has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and -! each subsequent ln(pressure) differs from the previous one by 0.2. - - pref(:) = (/ & - 1.05363e+03 ,8.62642e+02 ,7.06272e+02 ,5.78246e+02 ,4.73428e+02 , & - 3.87610e+02 ,3.17348e+02 ,2.59823e+02 ,2.12725e+02 ,1.74164e+02 , & - 1.42594e+02 ,1.16746e+02 ,9.55835e+01 ,7.82571e+01 ,6.40715e+01 , & - 5.24573e+01 ,4.29484e+01 ,3.51632e+01 ,2.87892e+01 ,2.35706e+01 , & - 1.92980e+01 ,1.57998e+01 ,1.29358e+01 ,1.05910e+01 ,8.67114e+00 , & - 7.09933e+00 ,5.81244e+00 ,4.75882e+00 ,3.89619e+00 ,3.18993e+00 , & - 2.61170e+00 ,2.13828e+00 ,1.75067e+00 ,1.43333e+00 ,1.17351e+00 , & - 9.60789e-01 ,7.86628e-01 ,6.44036e-01 ,5.27292e-01 ,4.31710e-01 , & - 3.53455e-01 ,2.89384e-01 ,2.36928e-01 ,1.93980e-01 ,1.58817e-01 , & - 1.30029e-01 ,1.06458e-01 ,8.71608e-02 ,7.13612e-02 ,5.84256e-02 , & - 4.78349e-02 ,3.91639e-02 ,3.20647e-02 ,2.62523e-02 ,2.14936e-02 , & - 1.75975e-02 ,1.44076e-02 ,1.17959e-02 ,9.65769e-03 /) - - preflog(:) = (/ & - 6.9600e+00 , 6.7600e+00 , 6.5600e+00 , 6.3600e+00 , 6.1600e+00 , & - 5.9600e+00 , 5.7600e+00 , 5.5600e+00 , 5.3600e+00 , 5.1600e+00 , & - 4.9600e+00 , 4.7600e+00 , 4.5600e+00 , 4.3600e+00 , 4.1600e+00 , & - 3.9600e+00 , 3.7600e+00 , 3.5600e+00 , 3.3600e+00 , 3.1600e+00 , & - 2.9600e+00 , 2.7600e+00 , 2.5600e+00 , 2.3600e+00 , 2.1600e+00 , & - 1.9600e+00 , 1.7600e+00 , 1.5600e+00 , 1.3600e+00 , 1.1600e+00 , & - 9.6000e-01 , 7.6000e-01 , 5.6000e-01 , 3.6000e-01 , 1.6000e-01 , & - -4.0000e-02 ,-2.4000e-01 ,-4.4000e-01 ,-6.4000e-01 ,-8.4000e-01 , & - -1.0400e+00 ,-1.2400e+00 ,-1.4400e+00 ,-1.6400e+00 ,-1.8400e+00 , & - -2.0400e+00 ,-2.2400e+00 ,-2.4400e+00 ,-2.6400e+00 ,-2.8400e+00 , & - -3.0400e+00 ,-3.2400e+00 ,-3.4400e+00 ,-3.6400e+00 ,-3.8400e+00 , & - -4.0400e+00 ,-4.2400e+00 ,-4.4400e+00 ,-4.6400e+00 /) - -! These are the temperatures associated with the respective -! pressures for the mls standard atmosphere. - - tref(:) = (/ & - 2.9420e+02 , 2.8799e+02 , 2.7894e+02 , 2.6925e+02 , 2.5983e+02 , & - 2.5017e+02 , 2.4077e+02 , 2.3179e+02 , 2.2306e+02 , 2.1578e+02 , & - 2.1570e+02 , 2.1570e+02 , 2.1570e+02 , 2.1706e+02 , 2.1858e+02 , & - 2.2018e+02 , 2.2174e+02 , 2.2328e+02 , 2.2479e+02 , 2.2655e+02 , & - 2.2834e+02 , 2.3113e+02 , 2.3401e+02 , 2.3703e+02 , 2.4022e+02 , & - 2.4371e+02 , 2.4726e+02 , 2.5085e+02 , 2.5457e+02 , 2.5832e+02 , & - 2.6216e+02 , 2.6606e+02 , 2.6999e+02 , 2.7340e+02 , 2.7536e+02 , & - 2.7568e+02 , 2.7372e+02 , 2.7163e+02 , 2.6955e+02 , 2.6593e+02 , & - 2.6211e+02 , 2.5828e+02 , 2.5360e+02 , 2.4854e+02 , 2.4348e+02 , & - 2.3809e+02 , 2.3206e+02 , 2.2603e+02 , 2.2000e+02 , 2.1435e+02 , & - 2.0887e+02 , 2.0340e+02 , 1.9792e+02 , 1.9290e+02 , 1.8809e+02 , & - 1.8329e+02 , 1.7849e+02 , 1.7394e+02 , 1.7212e+02 /) - - chi_mls(1,1:12) = (/ & - 1.8760e-02 , 1.2223e-02 , 5.8909e-03 , 2.7675e-03 , 1.4065e-03 , & - 7.5970e-04 , 3.8876e-04 , 1.6542e-04 , 3.7190e-05 , 7.4765e-06 , & - 4.3082e-06 , 3.3319e-06 /) - chi_mls(1,13:59) = (/ & - 3.2039e-06 , 3.1619e-06 , 3.2524e-06 , 3.4226e-06 , 3.6288e-06 , & - 3.9148e-06 , 4.1488e-06 , 4.3081e-06 , 4.4420e-06 , 4.5778e-06 , & - 4.7087e-06 , 4.7943e-06 , 4.8697e-06 , 4.9260e-06 , 4.9669e-06 , & - 4.9963e-06 , 5.0527e-06 , 5.1266e-06 , 5.2503e-06 , 5.3571e-06 , & - 5.4509e-06 , 5.4830e-06 , 5.5000e-06 , 5.5000e-06 , 5.4536e-06 , & - 5.4047e-06 , 5.3558e-06 , 5.2533e-06 , 5.1436e-06 , 5.0340e-06 , & - 4.8766e-06 , 4.6979e-06 , 4.5191e-06 , 4.3360e-06 , 4.1442e-06 , & - 3.9523e-06 , 3.7605e-06 , 3.5722e-06 , 3.3855e-06 , 3.1988e-06 , & - 3.0121e-06 , 2.8262e-06 , 2.6407e-06 , 2.4552e-06 , 2.2696e-06 , & - 4.3360e-06 , 4.1442e-06 /) - chi_mls(2,1:12) = (/ & - 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , & - 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , & - 3.5500e-04 , 3.5500e-04 /) - chi_mls(2,13:59) = (/ & - 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , & - 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , & - 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , & - 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , & - 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , & - 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , & - 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , & - 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , 3.5500e-04 , & - 3.5500e-04 , 3.5471e-04 , 3.5427e-04 , 3.5384e-04 , 3.5340e-04 , & - 3.5500e-04 , 3.5500e-04 /) - chi_mls(3,1:12) = (/ & - 3.0170e-08 , 3.4725e-08 , 4.2477e-08 , 5.2759e-08 , 6.6944e-08 , & - 8.7130e-08 , 1.1391e-07 , 1.5677e-07 , 2.1788e-07 , 3.2443e-07 , & - 4.6594e-07 , 5.6806e-07 /) - chi_mls(3,13:59) = (/ & - 6.9607e-07 , 1.1186e-06 , 1.7618e-06 , 2.3269e-06 , 2.9577e-06 , & - 3.6593e-06 , 4.5950e-06 , 5.3189e-06 , 5.9618e-06 , 6.5113e-06 , & - 7.0635e-06 , 7.6917e-06 , 8.2577e-06 , 8.7082e-06 , 8.8325e-06 , & - 8.7149e-06 , 8.0943e-06 , 7.3307e-06 , 6.3101e-06 , 5.3672e-06 , & - 4.4829e-06 , 3.8391e-06 , 3.2827e-06 , 2.8235e-06 , 2.4906e-06 , & - 2.1645e-06 , 1.8385e-06 , 1.6618e-06 , 1.5052e-06 , 1.3485e-06 , & - 1.1972e-06 , 1.0482e-06 , 8.9926e-07 , 7.6343e-07 , 6.5381e-07 , & - 5.4419e-07 , 4.3456e-07 , 3.6421e-07 , 3.1194e-07 , 2.5967e-07 , & - 2.0740e-07 , 1.9146e-07 , 1.9364e-07 , 1.9582e-07 , 1.9800e-07 , & - 7.6343e-07 , 6.5381e-07 /) - chi_mls(4,1:12) = (/ & - 3.2000e-07 , 3.2000e-07 , 3.2000e-07 , 3.2000e-07 , 3.2000e-07 , & - 3.1965e-07 , 3.1532e-07 , 3.0383e-07 , 2.9422e-07 , 2.8495e-07 , & - 2.7671e-07 , 2.6471e-07 /) - chi_mls(4,13:59) = (/ & - 2.4285e-07 , 2.0955e-07 , 1.7195e-07 , 1.3749e-07 , 1.1332e-07 , & - 1.0035e-07 , 9.1281e-08 , 8.5463e-08 , 8.0363e-08 , 7.3372e-08 , & - 6.5975e-08 , 5.6039e-08 , 4.7090e-08 , 3.9977e-08 , 3.2979e-08 , & - 2.6064e-08 , 2.1066e-08 , 1.6592e-08 , 1.3017e-08 , 1.0090e-08 , & - 7.6249e-09 , 6.1159e-09 , 4.6672e-09 , 3.2857e-09 , 2.8484e-09 , & - 2.4620e-09 , 2.0756e-09 , 1.8551e-09 , 1.6568e-09 , 1.4584e-09 , & - 1.3195e-09 , 1.2072e-09 , 1.0948e-09 , 9.9780e-10 , 9.3126e-10 , & - 8.6472e-10 , 7.9818e-10 , 7.5138e-10 , 7.1367e-10 , 6.7596e-10 , & - 6.3825e-10 , 6.0981e-10 , 5.8600e-10 , 5.6218e-10 , 5.3837e-10 , & - 9.9780e-10 , 9.3126e-10 /) - chi_mls(5,1:12) = (/ & - 1.5000e-07 , 1.4306e-07 , 1.3474e-07 , 1.3061e-07 , 1.2793e-07 , & - 1.2038e-07 , 1.0798e-07 , 9.4238e-08 , 7.9488e-08 , 6.1386e-08 , & - 4.5563e-08 , 3.3475e-08 /) - chi_mls(5,13:59) = (/ & - 2.5118e-08 , 1.8671e-08 , 1.4349e-08 , 1.2501e-08 , 1.2407e-08 , & - 1.3472e-08 , 1.4900e-08 , 1.6079e-08 , 1.7156e-08 , 1.8616e-08 , & - 2.0106e-08 , 2.1654e-08 , 2.3096e-08 , 2.4340e-08 , 2.5643e-08 , & - 2.6990e-08 , 2.8456e-08 , 2.9854e-08 , 3.0943e-08 , 3.2023e-08 , & - 3.3101e-08 , 3.4260e-08 , 3.5360e-08 , 3.6397e-08 , 3.7310e-08 , & - 3.8217e-08 , 3.9123e-08 , 4.1303e-08 , 4.3652e-08 , 4.6002e-08 , & - 5.0289e-08 , 5.5446e-08 , 6.0603e-08 , 6.8946e-08 , 8.3652e-08 , & - 9.8357e-08 , 1.1306e-07 , 1.4766e-07 , 1.9142e-07 , 2.3518e-07 , & - 2.7894e-07 , 3.5001e-07 , 4.3469e-07 , 5.1938e-07 , 6.0407e-07 , & - 6.8946e-08 , 8.3652e-08 /) - chi_mls(6,1:12) = (/ & - 1.7000e-06 , 1.7000e-06 , 1.6999e-06 , 1.6904e-06 , 1.6671e-06 , & - 1.6351e-06 , 1.6098e-06 , 1.5590e-06 , 1.5120e-06 , 1.4741e-06 , & - 1.4385e-06 , 1.4002e-06 /) - chi_mls(6,13:59) = (/ & - 1.3573e-06 , 1.3130e-06 , 1.2512e-06 , 1.1668e-06 , 1.0553e-06 , & - 9.3281e-07 , 8.1217e-07 , 7.5239e-07 , 7.0728e-07 , 6.6722e-07 , & - 6.2733e-07 , 5.8604e-07 , 5.4769e-07 , 5.1480e-07 , 4.8206e-07 , & - 4.4943e-07 , 4.1702e-07 , 3.8460e-07 , 3.5200e-07 , 3.1926e-07 , & - 2.8646e-07 , 2.5498e-07 , 2.2474e-07 , 1.9588e-07 , 1.8295e-07 , & - 1.7089e-07 , 1.5882e-07 , 1.5536e-07 , 1.5304e-07 , 1.5072e-07 , & - 1.5000e-07 , 1.5000e-07 , 1.5000e-07 , 1.5000e-07 , 1.5000e-07 , & - 1.5000e-07 , 1.5000e-07 , 1.5000e-07 , 1.5000e-07 , 1.5000e-07 , & - 1.5000e-07 , 1.5000e-07 , 1.5000e-07 , 1.5000e-07 , 1.5000e-07 , & - 1.5000e-07 , 1.5000e-07 /) - chi_mls(7,1:12) = (/ & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 /) - chi_mls(7,13:59) = (/ & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 , 0.2090 , 0.2090 , 0.2090 , & - 0.2090 , 0.2090 /) - - end subroutine lwatmref - -!*************************************************************************** - subroutine lwavplank -!*************************************************************************** - - save - - totplnk(1:50, 1) = (/ & - 0.14783e-05 ,0.15006e-05 ,0.15230e-05 ,0.15455e-05 ,0.15681e-05 , & - 0.15908e-05 ,0.16136e-05 ,0.16365e-05 ,0.16595e-05 ,0.16826e-05 , & - 0.17059e-05 ,0.17292e-05 ,0.17526e-05 ,0.17762e-05 ,0.17998e-05 , & - 0.18235e-05 ,0.18473e-05 ,0.18712e-05 ,0.18953e-05 ,0.19194e-05 , & - 0.19435e-05 ,0.19678e-05 ,0.19922e-05 ,0.20166e-05 ,0.20412e-05 , & - 0.20658e-05 ,0.20905e-05 ,0.21153e-05 ,0.21402e-05 ,0.21652e-05 , & - 0.21902e-05 ,0.22154e-05 ,0.22406e-05 ,0.22659e-05 ,0.22912e-05 , & - 0.23167e-05 ,0.23422e-05 ,0.23678e-05 ,0.23934e-05 ,0.24192e-05 , & - 0.24450e-05 ,0.24709e-05 ,0.24968e-05 ,0.25229e-05 ,0.25490e-05 , & - 0.25751e-05 ,0.26014e-05 ,0.26277e-05 ,0.26540e-05 ,0.26805e-05 /) - totplnk(51:100, 1) = (/ & - 0.27070e-05 ,0.27335e-05 ,0.27602e-05 ,0.27869e-05 ,0.28136e-05 , & - 0.28404e-05 ,0.28673e-05 ,0.28943e-05 ,0.29213e-05 ,0.29483e-05 , & - 0.29754e-05 ,0.30026e-05 ,0.30298e-05 ,0.30571e-05 ,0.30845e-05 , & - 0.31119e-05 ,0.31393e-05 ,0.31669e-05 ,0.31944e-05 ,0.32220e-05 , & - 0.32497e-05 ,0.32774e-05 ,0.33052e-05 ,0.33330e-05 ,0.33609e-05 , & - 0.33888e-05 ,0.34168e-05 ,0.34448e-05 ,0.34729e-05 ,0.35010e-05 , & - 0.35292e-05 ,0.35574e-05 ,0.35857e-05 ,0.36140e-05 ,0.36424e-05 , & - 0.36708e-05 ,0.36992e-05 ,0.37277e-05 ,0.37563e-05 ,0.37848e-05 , & - 0.38135e-05 ,0.38421e-05 ,0.38708e-05 ,0.38996e-05 ,0.39284e-05 , & - 0.39572e-05 ,0.39861e-05 ,0.40150e-05 ,0.40440e-05 ,0.40730e-05 /) - totplnk(101:150, 1) = (/ & - 0.41020e-05 ,0.41311e-05 ,0.41602e-05 ,0.41893e-05 ,0.42185e-05 , & - 0.42477e-05 ,0.42770e-05 ,0.43063e-05 ,0.43356e-05 ,0.43650e-05 , & - 0.43944e-05 ,0.44238e-05 ,0.44533e-05 ,0.44828e-05 ,0.45124e-05 , & - 0.45419e-05 ,0.45715e-05 ,0.46012e-05 ,0.46309e-05 ,0.46606e-05 , & - 0.46903e-05 ,0.47201e-05 ,0.47499e-05 ,0.47797e-05 ,0.48096e-05 , & - 0.48395e-05 ,0.48695e-05 ,0.48994e-05 ,0.49294e-05 ,0.49594e-05 , & - 0.49895e-05 ,0.50196e-05 ,0.50497e-05 ,0.50798e-05 ,0.51100e-05 , & - 0.51402e-05 ,0.51704e-05 ,0.52007e-05 ,0.52309e-05 ,0.52612e-05 , & - 0.52916e-05 ,0.53219e-05 ,0.53523e-05 ,0.53827e-05 ,0.54132e-05 , & - 0.54436e-05 ,0.54741e-05 ,0.55047e-05 ,0.55352e-05 ,0.55658e-05 /) - totplnk(151:181, 1) = (/ & - 0.55964e-05 ,0.56270e-05 ,0.56576e-05 ,0.56883e-05 ,0.57190e-05 , & - 0.57497e-05 ,0.57804e-05 ,0.58112e-05 ,0.58420e-05 ,0.58728e-05 , & - 0.59036e-05 ,0.59345e-05 ,0.59653e-05 ,0.59962e-05 ,0.60272e-05 , & - 0.60581e-05 ,0.60891e-05 ,0.61201e-05 ,0.61511e-05 ,0.61821e-05 , & - 0.62131e-05 ,0.62442e-05 ,0.62753e-05 ,0.63064e-05 ,0.63376e-05 , & - 0.63687e-05 ,0.63998e-05 ,0.64310e-05 ,0.64622e-05 ,0.64935e-05 , & - 0.65247e-05 /) - totplnk(1:50, 2) = (/ & - 0.20262e-05 ,0.20757e-05 ,0.21257e-05 ,0.21763e-05 ,0.22276e-05 , & - 0.22794e-05 ,0.23319e-05 ,0.23849e-05 ,0.24386e-05 ,0.24928e-05 , & - 0.25477e-05 ,0.26031e-05 ,0.26591e-05 ,0.27157e-05 ,0.27728e-05 , & - 0.28306e-05 ,0.28889e-05 ,0.29478e-05 ,0.30073e-05 ,0.30673e-05 , & - 0.31279e-05 ,0.31890e-05 ,0.32507e-05 ,0.33129e-05 ,0.33757e-05 , & - 0.34391e-05 ,0.35029e-05 ,0.35674e-05 ,0.36323e-05 ,0.36978e-05 , & - 0.37638e-05 ,0.38304e-05 ,0.38974e-05 ,0.39650e-05 ,0.40331e-05 , & - 0.41017e-05 ,0.41708e-05 ,0.42405e-05 ,0.43106e-05 ,0.43812e-05 , & - 0.44524e-05 ,0.45240e-05 ,0.45961e-05 ,0.46687e-05 ,0.47418e-05 , & - 0.48153e-05 ,0.48894e-05 ,0.49639e-05 ,0.50389e-05 ,0.51143e-05 /) - totplnk(51:100, 2) = (/ & - 0.51902e-05 ,0.52666e-05 ,0.53434e-05 ,0.54207e-05 ,0.54985e-05 , & - 0.55767e-05 ,0.56553e-05 ,0.57343e-05 ,0.58139e-05 ,0.58938e-05 , & - 0.59742e-05 ,0.60550e-05 ,0.61362e-05 ,0.62179e-05 ,0.63000e-05 , & - 0.63825e-05 ,0.64654e-05 ,0.65487e-05 ,0.66324e-05 ,0.67166e-05 , & - 0.68011e-05 ,0.68860e-05 ,0.69714e-05 ,0.70571e-05 ,0.71432e-05 , & - 0.72297e-05 ,0.73166e-05 ,0.74039e-05 ,0.74915e-05 ,0.75796e-05 , & - 0.76680e-05 ,0.77567e-05 ,0.78459e-05 ,0.79354e-05 ,0.80252e-05 , & - 0.81155e-05 ,0.82061e-05 ,0.82970e-05 ,0.83883e-05 ,0.84799e-05 , & - 0.85719e-05 ,0.86643e-05 ,0.87569e-05 ,0.88499e-05 ,0.89433e-05 , & - 0.90370e-05 ,0.91310e-05 ,0.92254e-05 ,0.93200e-05 ,0.94150e-05 /) - totplnk(101:150, 2) = (/ & - 0.95104e-05 ,0.96060e-05 ,0.97020e-05 ,0.97982e-05 ,0.98948e-05 , & - 0.99917e-05 ,0.10089e-04 ,0.10186e-04 ,0.10284e-04 ,0.10382e-04 , & - 0.10481e-04 ,0.10580e-04 ,0.10679e-04 ,0.10778e-04 ,0.10877e-04 , & - 0.10977e-04 ,0.11077e-04 ,0.11178e-04 ,0.11279e-04 ,0.11380e-04 , & - 0.11481e-04 ,0.11583e-04 ,0.11684e-04 ,0.11786e-04 ,0.11889e-04 , & - 0.11992e-04 ,0.12094e-04 ,0.12198e-04 ,0.12301e-04 ,0.12405e-04 , & - 0.12509e-04 ,0.12613e-04 ,0.12717e-04 ,0.12822e-04 ,0.12927e-04 , & - 0.13032e-04 ,0.13138e-04 ,0.13244e-04 ,0.13349e-04 ,0.13456e-04 , & - 0.13562e-04 ,0.13669e-04 ,0.13776e-04 ,0.13883e-04 ,0.13990e-04 , & - 0.14098e-04 ,0.14206e-04 ,0.14314e-04 ,0.14422e-04 ,0.14531e-04 /) - totplnk(151:181, 2) = (/ & - 0.14639e-04 ,0.14748e-04 ,0.14857e-04 ,0.14967e-04 ,0.15076e-04 , & - 0.15186e-04 ,0.15296e-04 ,0.15407e-04 ,0.15517e-04 ,0.15628e-04 , & - 0.15739e-04 ,0.15850e-04 ,0.15961e-04 ,0.16072e-04 ,0.16184e-04 , & - 0.16296e-04 ,0.16408e-04 ,0.16521e-04 ,0.16633e-04 ,0.16746e-04 , & - 0.16859e-04 ,0.16972e-04 ,0.17085e-04 ,0.17198e-04 ,0.17312e-04 , & - 0.17426e-04 ,0.17540e-04 ,0.17654e-04 ,0.17769e-04 ,0.17883e-04 , & - 0.17998e-04 /) - totplnk(1:50, 3) = (/ & - 1.34822e-06 ,1.39134e-06 ,1.43530e-06 ,1.48010e-06 ,1.52574e-06 , & - 1.57222e-06 ,1.61956e-06 ,1.66774e-06 ,1.71678e-06 ,1.76666e-06 , & - 1.81741e-06 ,1.86901e-06 ,1.92147e-06 ,1.97479e-06 ,2.02898e-06 , & - 2.08402e-06 ,2.13993e-06 ,2.19671e-06 ,2.25435e-06 ,2.31285e-06 , & - 2.37222e-06 ,2.43246e-06 ,2.49356e-06 ,2.55553e-06 ,2.61837e-06 , & - 2.68207e-06 ,2.74664e-06 ,2.81207e-06 ,2.87837e-06 ,2.94554e-06 , & - 3.01356e-06 ,3.08245e-06 ,3.15221e-06 ,3.22282e-06 ,3.29429e-06 , & - 3.36662e-06 ,3.43982e-06 ,3.51386e-06 ,3.58876e-06 ,3.66451e-06 , & - 3.74112e-06 ,3.81857e-06 ,3.89688e-06 ,3.97602e-06 ,4.05601e-06 , & - 4.13685e-06 ,4.21852e-06 ,4.30104e-06 ,4.38438e-06 ,4.46857e-06 /) - totplnk(51:100, 3) = (/ & - 4.55358e-06 ,4.63943e-06 ,4.72610e-06 ,4.81359e-06 ,4.90191e-06 , & - 4.99105e-06 ,5.08100e-06 ,5.17176e-06 ,5.26335e-06 ,5.35573e-06 , & - 5.44892e-06 ,5.54292e-06 ,5.63772e-06 ,5.73331e-06 ,5.82970e-06 , & - 5.92688e-06 ,6.02485e-06 ,6.12360e-06 ,6.22314e-06 ,6.32346e-06 , & - 6.42455e-06 ,6.52641e-06 ,6.62906e-06 ,6.73247e-06 ,6.83664e-06 , & - 6.94156e-06 ,7.04725e-06 ,7.15370e-06 ,7.26089e-06 ,7.36883e-06 , & - 7.47752e-06 ,7.58695e-06 ,7.69712e-06 ,7.80801e-06 ,7.91965e-06 , & - 8.03201e-06 ,8.14510e-06 ,8.25891e-06 ,8.37343e-06 ,8.48867e-06 , & - 8.60463e-06 ,8.72128e-06 ,8.83865e-06 ,8.95672e-06 ,9.07548e-06 , & - 9.19495e-06 ,9.31510e-06 ,9.43594e-06 ,9.55745e-06 ,9.67966e-06 /) - totplnk(101:150, 3) = (/ & - 9.80254e-06 ,9.92609e-06 ,1.00503e-05 ,1.01752e-05 ,1.03008e-05 , & - 1.04270e-05 ,1.05539e-05 ,1.06814e-05 ,1.08096e-05 ,1.09384e-05 , & - 1.10679e-05 ,1.11980e-05 ,1.13288e-05 ,1.14601e-05 ,1.15922e-05 , & - 1.17248e-05 ,1.18581e-05 ,1.19920e-05 ,1.21265e-05 ,1.22616e-05 , & - 1.23973e-05 ,1.25337e-05 ,1.26706e-05 ,1.28081e-05 ,1.29463e-05 , & - 1.30850e-05 ,1.32243e-05 ,1.33642e-05 ,1.35047e-05 ,1.36458e-05 , & - 1.37875e-05 ,1.39297e-05 ,1.40725e-05 ,1.42159e-05 ,1.43598e-05 , & - 1.45044e-05 ,1.46494e-05 ,1.47950e-05 ,1.49412e-05 ,1.50879e-05 , & - 1.52352e-05 ,1.53830e-05 ,1.55314e-05 ,1.56803e-05 ,1.58297e-05 , & - 1.59797e-05 ,1.61302e-05 ,1.62812e-05 ,1.64327e-05 ,1.65848e-05 /) - totplnk(151:181, 3) = (/ & - 1.67374e-05 ,1.68904e-05 ,1.70441e-05 ,1.71982e-05 ,1.73528e-05 , & - 1.75079e-05 ,1.76635e-05 ,1.78197e-05 ,1.79763e-05 ,1.81334e-05 , & - 1.82910e-05 ,1.84491e-05 ,1.86076e-05 ,1.87667e-05 ,1.89262e-05 , & - 1.90862e-05 ,1.92467e-05 ,1.94076e-05 ,1.95690e-05 ,1.97309e-05 , & - 1.98932e-05 ,2.00560e-05 ,2.02193e-05 ,2.03830e-05 ,2.05472e-05 , & - 2.07118e-05 ,2.08768e-05 ,2.10423e-05 ,2.12083e-05 ,2.13747e-05 , & - 2.15414e-05 /) - totplnk(1:50, 4) = (/ & - 8.90528e-07 ,9.24222e-07 ,9.58757e-07 ,9.94141e-07 ,1.03038e-06 , & - 1.06748e-06 ,1.10545e-06 ,1.14430e-06 ,1.18403e-06 ,1.22465e-06 , & - 1.26618e-06 ,1.30860e-06 ,1.35193e-06 ,1.39619e-06 ,1.44136e-06 , & - 1.48746e-06 ,1.53449e-06 ,1.58246e-06 ,1.63138e-06 ,1.68124e-06 , & - 1.73206e-06 ,1.78383e-06 ,1.83657e-06 ,1.89028e-06 ,1.94495e-06 , & - 2.00060e-06 ,2.05724e-06 ,2.11485e-06 ,2.17344e-06 ,2.23303e-06 , & - 2.29361e-06 ,2.35519e-06 ,2.41777e-06 ,2.48134e-06 ,2.54592e-06 , & - 2.61151e-06 ,2.67810e-06 ,2.74571e-06 ,2.81433e-06 ,2.88396e-06 , & - 2.95461e-06 ,3.02628e-06 ,3.09896e-06 ,3.17267e-06 ,3.24741e-06 , & - 3.32316e-06 ,3.39994e-06 ,3.47774e-06 ,3.55657e-06 ,3.63642e-06 /) - totplnk(51:100, 4) = (/ & - 3.71731e-06 ,3.79922e-06 ,3.88216e-06 ,3.96612e-06 ,4.05112e-06 , & - 4.13714e-06 ,4.22419e-06 ,4.31227e-06 ,4.40137e-06 ,4.49151e-06 , & - 4.58266e-06 ,4.67485e-06 ,4.76806e-06 ,4.86229e-06 ,4.95754e-06 , & - 5.05383e-06 ,5.15113e-06 ,5.24946e-06 ,5.34879e-06 ,5.44916e-06 , & - 5.55053e-06 ,5.65292e-06 ,5.75632e-06 ,5.86073e-06 ,5.96616e-06 , & - 6.07260e-06 ,6.18003e-06 ,6.28848e-06 ,6.39794e-06 ,6.50838e-06 , & - 6.61983e-06 ,6.73229e-06 ,6.84573e-06 ,6.96016e-06 ,7.07559e-06 , & - 7.19200e-06 ,7.30940e-06 ,7.42779e-06 ,7.54715e-06 ,7.66749e-06 , & - 7.78882e-06 ,7.91110e-06 ,8.03436e-06 ,8.15859e-06 ,8.28379e-06 , & - 8.40994e-06 ,8.53706e-06 ,8.66515e-06 ,8.79418e-06 ,8.92416e-06 /) - totplnk(101:150, 4) = (/ & - 9.05510e-06 ,9.18697e-06 ,9.31979e-06 ,9.45356e-06 ,9.58826e-06 , & - 9.72389e-06 ,9.86046e-06 ,9.99793e-06 ,1.01364e-05 ,1.02757e-05 , & - 1.04159e-05 ,1.05571e-05 ,1.06992e-05 ,1.08422e-05 ,1.09861e-05 , & - 1.11309e-05 ,1.12766e-05 ,1.14232e-05 ,1.15707e-05 ,1.17190e-05 , & - 1.18683e-05 ,1.20184e-05 ,1.21695e-05 ,1.23214e-05 ,1.24741e-05 , & - 1.26277e-05 ,1.27822e-05 ,1.29376e-05 ,1.30939e-05 ,1.32509e-05 , & - 1.34088e-05 ,1.35676e-05 ,1.37273e-05 ,1.38877e-05 ,1.40490e-05 , & - 1.42112e-05 ,1.43742e-05 ,1.45380e-05 ,1.47026e-05 ,1.48680e-05 , & - 1.50343e-05 ,1.52014e-05 ,1.53692e-05 ,1.55379e-05 ,1.57074e-05 , & - 1.58778e-05 ,1.60488e-05 ,1.62207e-05 ,1.63934e-05 ,1.65669e-05 /) - totplnk(151:181, 4) = (/ & - 1.67411e-05 ,1.69162e-05 ,1.70920e-05 ,1.72685e-05 ,1.74459e-05 , & - 1.76240e-05 ,1.78029e-05 ,1.79825e-05 ,1.81629e-05 ,1.83440e-05 , & - 1.85259e-05 ,1.87086e-05 ,1.88919e-05 ,1.90760e-05 ,1.92609e-05 , & - 1.94465e-05 ,1.96327e-05 ,1.98199e-05 ,2.00076e-05 ,2.01961e-05 , & - 2.03853e-05 ,2.05752e-05 ,2.07658e-05 ,2.09571e-05 ,2.11491e-05 , & - 2.13418e-05 ,2.15352e-05 ,2.17294e-05 ,2.19241e-05 ,2.21196e-05 , & - 2.23158e-05 /) - totplnk(1:50, 5) = (/ & - 5.70230e-07 ,5.94788e-07 ,6.20085e-07 ,6.46130e-07 ,6.72936e-07 , & - 7.00512e-07 ,7.28869e-07 ,7.58019e-07 ,7.87971e-07 ,8.18734e-07 , & - 8.50320e-07 ,8.82738e-07 ,9.15999e-07 ,9.50110e-07 ,9.85084e-07 , & - 1.02093e-06 ,1.05765e-06 ,1.09527e-06 ,1.13378e-06 ,1.17320e-06 , & - 1.21353e-06 ,1.25479e-06 ,1.29698e-06 ,1.34011e-06 ,1.38419e-06 , & - 1.42923e-06 ,1.47523e-06 ,1.52221e-06 ,1.57016e-06 ,1.61910e-06 , & - 1.66904e-06 ,1.71997e-06 ,1.77192e-06 ,1.82488e-06 ,1.87886e-06 , & - 1.93387e-06 ,1.98991e-06 ,2.04699e-06 ,2.10512e-06 ,2.16430e-06 , & - 2.22454e-06 ,2.28584e-06 ,2.34821e-06 ,2.41166e-06 ,2.47618e-06 , & - 2.54178e-06 ,2.60847e-06 ,2.67626e-06 ,2.74514e-06 ,2.81512e-06 /) - totplnk(51:100, 5) = (/ & - 2.88621e-06 ,2.95841e-06 ,3.03172e-06 ,3.10615e-06 ,3.18170e-06 , & - 3.25838e-06 ,3.33618e-06 ,3.41511e-06 ,3.49518e-06 ,3.57639e-06 , & - 3.65873e-06 ,3.74221e-06 ,3.82684e-06 ,3.91262e-06 ,3.99955e-06 , & - 4.08763e-06 ,4.17686e-06 ,4.26725e-06 ,4.35880e-06 ,4.45150e-06 , & - 4.54537e-06 ,4.64039e-06 ,4.73659e-06 ,4.83394e-06 ,4.93246e-06 , & - 5.03215e-06 ,5.13301e-06 ,5.23504e-06 ,5.33823e-06 ,5.44260e-06 , & - 5.54814e-06 ,5.65484e-06 ,5.76272e-06 ,5.87177e-06 ,5.98199e-06 , & - 6.09339e-06 ,6.20596e-06 ,6.31969e-06 ,6.43460e-06 ,6.55068e-06 , & - 6.66793e-06 ,6.78636e-06 ,6.90595e-06 ,7.02670e-06 ,7.14863e-06 , & - 7.27173e-06 ,7.39599e-06 ,7.52142e-06 ,7.64802e-06 ,7.77577e-06 /) - totplnk(101:150, 5) = (/ & - 7.90469e-06 ,8.03477e-06 ,8.16601e-06 ,8.29841e-06 ,8.43198e-06 , & - 8.56669e-06 ,8.70256e-06 ,8.83957e-06 ,8.97775e-06 ,9.11706e-06 , & - 9.25753e-06 ,9.39915e-06 ,9.54190e-06 ,9.68580e-06 ,9.83085e-06 , & - 9.97704e-06 ,1.01243e-05 ,1.02728e-05 ,1.04224e-05 ,1.05731e-05 , & - 1.07249e-05 ,1.08779e-05 ,1.10320e-05 ,1.11872e-05 ,1.13435e-05 , & - 1.15009e-05 ,1.16595e-05 ,1.18191e-05 ,1.19799e-05 ,1.21418e-05 , & - 1.23048e-05 ,1.24688e-05 ,1.26340e-05 ,1.28003e-05 ,1.29676e-05 , & - 1.31361e-05 ,1.33056e-05 ,1.34762e-05 ,1.36479e-05 ,1.38207e-05 , & - 1.39945e-05 ,1.41694e-05 ,1.43454e-05 ,1.45225e-05 ,1.47006e-05 , & - 1.48797e-05 ,1.50600e-05 ,1.52413e-05 ,1.54236e-05 ,1.56070e-05 /) - totplnk(151:181, 5) = (/ & - 1.57914e-05 ,1.59768e-05 ,1.61633e-05 ,1.63509e-05 ,1.65394e-05 , & - 1.67290e-05 ,1.69197e-05 ,1.71113e-05 ,1.73040e-05 ,1.74976e-05 , & - 1.76923e-05 ,1.78880e-05 ,1.80847e-05 ,1.82824e-05 ,1.84811e-05 , & - 1.86808e-05 ,1.88814e-05 ,1.90831e-05 ,1.92857e-05 ,1.94894e-05 , & - 1.96940e-05 ,1.98996e-05 ,2.01061e-05 ,2.03136e-05 ,2.05221e-05 , & - 2.07316e-05 ,2.09420e-05 ,2.11533e-05 ,2.13657e-05 ,2.15789e-05 , & - 2.17931e-05 /) - totplnk(1:50, 6) = (/ & - 2.73493e-07 ,2.87408e-07 ,3.01848e-07 ,3.16825e-07 ,3.32352e-07 , & - 3.48439e-07 ,3.65100e-07 ,3.82346e-07 ,4.00189e-07 ,4.18641e-07 , & - 4.37715e-07 ,4.57422e-07 ,4.77774e-07 ,4.98784e-07 ,5.20464e-07 , & - 5.42824e-07 ,5.65879e-07 ,5.89638e-07 ,6.14115e-07 ,6.39320e-07 , & - 6.65266e-07 ,6.91965e-07 ,7.19427e-07 ,7.47666e-07 ,7.76691e-07 , & - 8.06516e-07 ,8.37151e-07 ,8.68607e-07 ,9.00896e-07 ,9.34029e-07 , & - 9.68018e-07 ,1.00287e-06 ,1.03860e-06 ,1.07522e-06 ,1.11274e-06 , & - 1.15117e-06 ,1.19052e-06 ,1.23079e-06 ,1.27201e-06 ,1.31418e-06 , & - 1.35731e-06 ,1.40141e-06 ,1.44650e-06 ,1.49257e-06 ,1.53965e-06 , & - 1.58773e-06 ,1.63684e-06 ,1.68697e-06 ,1.73815e-06 ,1.79037e-06 /) - totplnk(51:100, 6) = (/ & - 1.84365e-06 ,1.89799e-06 ,1.95341e-06 ,2.00991e-06 ,2.06750e-06 , & - 2.12619e-06 ,2.18599e-06 ,2.24691e-06 ,2.30895e-06 ,2.37212e-06 , & - 2.43643e-06 ,2.50189e-06 ,2.56851e-06 ,2.63628e-06 ,2.70523e-06 , & - 2.77536e-06 ,2.84666e-06 ,2.91916e-06 ,2.99286e-06 ,3.06776e-06 , & - 3.14387e-06 ,3.22120e-06 ,3.29975e-06 ,3.37953e-06 ,3.46054e-06 , & - 3.54280e-06 ,3.62630e-06 ,3.71105e-06 ,3.79707e-06 ,3.88434e-06 , & - 3.97288e-06 ,4.06270e-06 ,4.15380e-06 ,4.24617e-06 ,4.33984e-06 , & - 4.43479e-06 ,4.53104e-06 ,4.62860e-06 ,4.72746e-06 ,4.82763e-06 , & - 4.92911e-06 ,5.03191e-06 ,5.13603e-06 ,5.24147e-06 ,5.34824e-06 , & - 5.45634e-06 ,5.56578e-06 ,5.67656e-06 ,5.78867e-06 ,5.90213e-06 /) - totplnk(101:150, 6) = (/ & - 6.01694e-06 ,6.13309e-06 ,6.25060e-06 ,6.36947e-06 ,6.48968e-06 , & - 6.61126e-06 ,6.73420e-06 ,6.85850e-06 ,6.98417e-06 ,7.11120e-06 , & - 7.23961e-06 ,7.36938e-06 ,7.50053e-06 ,7.63305e-06 ,7.76694e-06 , & - 7.90221e-06 ,8.03887e-06 ,8.17690e-06 ,8.31632e-06 ,8.45710e-06 , & - 8.59928e-06 ,8.74282e-06 ,8.88776e-06 ,9.03409e-06 ,9.18179e-06 , & - 9.33088e-06 ,9.48136e-06 ,9.63323e-06 ,9.78648e-06 ,9.94111e-06 , & - 1.00971e-05 ,1.02545e-05 ,1.04133e-05 ,1.05735e-05 ,1.07351e-05 , & - 1.08980e-05 ,1.10624e-05 ,1.12281e-05 ,1.13952e-05 ,1.15637e-05 , & - 1.17335e-05 ,1.19048e-05 ,1.20774e-05 ,1.22514e-05 ,1.24268e-05 , & - 1.26036e-05 ,1.27817e-05 ,1.29612e-05 ,1.31421e-05 ,1.33244e-05 /) - totplnk(151:181, 6) = (/ & - 1.35080e-05 ,1.36930e-05 ,1.38794e-05 ,1.40672e-05 ,1.42563e-05 , & - 1.44468e-05 ,1.46386e-05 ,1.48318e-05 ,1.50264e-05 ,1.52223e-05 , & - 1.54196e-05 ,1.56182e-05 ,1.58182e-05 ,1.60196e-05 ,1.62223e-05 , & - 1.64263e-05 ,1.66317e-05 ,1.68384e-05 ,1.70465e-05 ,1.72559e-05 , & - 1.74666e-05 ,1.76787e-05 ,1.78921e-05 ,1.81069e-05 ,1.83230e-05 , & - 1.85404e-05 ,1.87591e-05 ,1.89791e-05 ,1.92005e-05 ,1.94232e-05 , & - 1.96471e-05 /) - totplnk(1:50, 7) = (/ & - 1.25349e-07 ,1.32735e-07 ,1.40458e-07 ,1.48527e-07 ,1.56954e-07 , & - 1.65748e-07 ,1.74920e-07 ,1.84481e-07 ,1.94443e-07 ,2.04814e-07 , & - 2.15608e-07 ,2.26835e-07 ,2.38507e-07 ,2.50634e-07 ,2.63229e-07 , & - 2.76301e-07 ,2.89864e-07 ,3.03930e-07 ,3.18508e-07 ,3.33612e-07 , & - 3.49253e-07 ,3.65443e-07 ,3.82195e-07 ,3.99519e-07 ,4.17428e-07 , & - 4.35934e-07 ,4.55050e-07 ,4.74785e-07 ,4.95155e-07 ,5.16170e-07 , & - 5.37844e-07 ,5.60186e-07 ,5.83211e-07 ,6.06929e-07 ,6.31355e-07 , & - 6.56498e-07 ,6.82373e-07 ,7.08990e-07 ,7.36362e-07 ,7.64501e-07 , & - 7.93420e-07 ,8.23130e-07 ,8.53643e-07 ,8.84971e-07 ,9.17128e-07 , & - 9.50123e-07 ,9.83969e-07 ,1.01868e-06 ,1.05426e-06 ,1.09073e-06 /) - totplnk(51:100, 7) = (/ & - 1.12810e-06 ,1.16638e-06 ,1.20558e-06 ,1.24572e-06 ,1.28680e-06 , & - 1.32883e-06 ,1.37183e-06 ,1.41581e-06 ,1.46078e-06 ,1.50675e-06 , & - 1.55374e-06 ,1.60174e-06 ,1.65078e-06 ,1.70087e-06 ,1.75200e-06 , & - 1.80421e-06 ,1.85749e-06 ,1.91186e-06 ,1.96732e-06 ,2.02389e-06 , & - 2.08159e-06 ,2.14040e-06 ,2.20035e-06 ,2.26146e-06 ,2.32372e-06 , & - 2.38714e-06 ,2.45174e-06 ,2.51753e-06 ,2.58451e-06 ,2.65270e-06 , & - 2.72210e-06 ,2.79272e-06 ,2.86457e-06 ,2.93767e-06 ,3.01201e-06 , & - 3.08761e-06 ,3.16448e-06 ,3.24261e-06 ,3.32204e-06 ,3.40275e-06 , & - 3.48476e-06 ,3.56808e-06 ,3.65271e-06 ,3.73866e-06 ,3.82595e-06 , & - 3.91456e-06 ,4.00453e-06 ,4.09584e-06 ,4.18851e-06 ,4.28254e-06 /) - totplnk(101:150, 7) = (/ & - 4.37796e-06 ,4.47475e-06 ,4.57293e-06 ,4.67249e-06 ,4.77346e-06 , & - 4.87583e-06 ,4.97961e-06 ,5.08481e-06 ,5.19143e-06 ,5.29948e-06 , & - 5.40896e-06 ,5.51989e-06 ,5.63226e-06 ,5.74608e-06 ,5.86136e-06 , & - 5.97810e-06 ,6.09631e-06 ,6.21597e-06 ,6.33713e-06 ,6.45976e-06 , & - 6.58388e-06 ,6.70950e-06 ,6.83661e-06 ,6.96521e-06 ,7.09531e-06 , & - 7.22692e-06 ,7.36005e-06 ,7.49468e-06 ,7.63084e-06 ,7.76851e-06 , & - 7.90773e-06 ,8.04846e-06 ,8.19072e-06 ,8.33452e-06 ,8.47985e-06 , & - 8.62674e-06 ,8.77517e-06 ,8.92514e-06 ,9.07666e-06 ,9.22975e-06 , & - 9.38437e-06 ,9.54057e-06 ,9.69832e-06 ,9.85762e-06 ,1.00185e-05 , & - 1.01810e-05 ,1.03450e-05 ,1.05106e-05 ,1.06777e-05 ,1.08465e-05 /) - totplnk(151:181, 7) = (/ & - 1.10168e-05 ,1.11887e-05 ,1.13621e-05 ,1.15372e-05 ,1.17138e-05 , & - 1.18920e-05 ,1.20718e-05 ,1.22532e-05 ,1.24362e-05 ,1.26207e-05 , & - 1.28069e-05 ,1.29946e-05 ,1.31839e-05 ,1.33749e-05 ,1.35674e-05 , & - 1.37615e-05 ,1.39572e-05 ,1.41544e-05 ,1.43533e-05 ,1.45538e-05 , & - 1.47558e-05 ,1.49595e-05 ,1.51647e-05 ,1.53716e-05 ,1.55800e-05 , & - 1.57900e-05 ,1.60017e-05 ,1.62149e-05 ,1.64296e-05 ,1.66460e-05 , & - 1.68640e-05 /) - totplnk(1:50, 8) = (/ & - 6.74445e-08 ,7.18176e-08 ,7.64153e-08 ,8.12456e-08 ,8.63170e-08 , & - 9.16378e-08 ,9.72168e-08 ,1.03063e-07 ,1.09184e-07 ,1.15591e-07 , & - 1.22292e-07 ,1.29296e-07 ,1.36613e-07 ,1.44253e-07 ,1.52226e-07 , & - 1.60540e-07 ,1.69207e-07 ,1.78236e-07 ,1.87637e-07 ,1.97421e-07 , & - 2.07599e-07 ,2.18181e-07 ,2.29177e-07 ,2.40598e-07 ,2.52456e-07 , & - 2.64761e-07 ,2.77523e-07 ,2.90755e-07 ,3.04468e-07 ,3.18673e-07 , & - 3.33381e-07 ,3.48603e-07 ,3.64352e-07 ,3.80638e-07 ,3.97474e-07 , & - 4.14871e-07 ,4.32841e-07 ,4.51395e-07 ,4.70547e-07 ,4.90306e-07 , & - 5.10687e-07 ,5.31699e-07 ,5.53357e-07 ,5.75670e-07 ,5.98652e-07 , & - 6.22315e-07 ,6.46672e-07 ,6.71731e-07 ,6.97511e-07 ,7.24018e-07 /) - totplnk(51:100, 8) = (/ & - 7.51266e-07 ,7.79269e-07 ,8.08038e-07 ,8.37584e-07 ,8.67922e-07 , & - 8.99061e-07 ,9.31016e-07 ,9.63797e-07 ,9.97417e-07 ,1.03189e-06 , & - 1.06722e-06 ,1.10343e-06 ,1.14053e-06 ,1.17853e-06 ,1.21743e-06 , & - 1.25726e-06 ,1.29803e-06 ,1.33974e-06 ,1.38241e-06 ,1.42606e-06 , & - 1.47068e-06 ,1.51630e-06 ,1.56293e-06 ,1.61056e-06 ,1.65924e-06 , & - 1.70894e-06 ,1.75971e-06 ,1.81153e-06 ,1.86443e-06 ,1.91841e-06 , & - 1.97350e-06 ,2.02968e-06 ,2.08699e-06 ,2.14543e-06 ,2.20500e-06 , & - 2.26573e-06 ,2.32762e-06 ,2.39068e-06 ,2.45492e-06 ,2.52036e-06 , & - 2.58700e-06 ,2.65485e-06 ,2.72393e-06 ,2.79424e-06 ,2.86580e-06 , & - 2.93861e-06 ,3.01269e-06 ,3.08803e-06 ,3.16467e-06 ,3.24259e-06 /) - totplnk(101:150, 8) = (/ & - 3.32181e-06 ,3.40235e-06 ,3.48420e-06 ,3.56739e-06 ,3.65192e-06 , & - 3.73779e-06 ,3.82502e-06 ,3.91362e-06 ,4.00359e-06 ,4.09494e-06 , & - 4.18768e-06 ,4.28182e-06 ,4.37737e-06 ,4.47434e-06 ,4.57273e-06 , & - 4.67254e-06 ,4.77380e-06 ,4.87651e-06 ,4.98067e-06 ,5.08630e-06 , & - 5.19339e-06 ,5.30196e-06 ,5.41201e-06 ,5.52356e-06 ,5.63660e-06 , & - 5.75116e-06 ,5.86722e-06 ,5.98479e-06 ,6.10390e-06 ,6.22453e-06 , & - 6.34669e-06 ,6.47042e-06 ,6.59569e-06 ,6.72252e-06 ,6.85090e-06 , & - 6.98085e-06 ,7.11238e-06 ,7.24549e-06 ,7.38019e-06 ,7.51646e-06 , & - 7.65434e-06 ,7.79382e-06 ,7.93490e-06 ,8.07760e-06 ,8.22192e-06 , & - 8.36784e-06 ,8.51540e-06 ,8.66459e-06 ,8.81542e-06 ,8.96786e-06 /) - totplnk(151:181, 8) = (/ & - 9.12197e-06 ,9.27772e-06 ,9.43513e-06 ,9.59419e-06 ,9.75490e-06 , & - 9.91728e-06 ,1.00813e-05 ,1.02471e-05 ,1.04144e-05 ,1.05835e-05 , & - 1.07543e-05 ,1.09267e-05 ,1.11008e-05 ,1.12766e-05 ,1.14541e-05 , & - 1.16333e-05 ,1.18142e-05 ,1.19969e-05 ,1.21812e-05 ,1.23672e-05 , & - 1.25549e-05 ,1.27443e-05 ,1.29355e-05 ,1.31284e-05 ,1.33229e-05 , & - 1.35193e-05 ,1.37173e-05 ,1.39170e-05 ,1.41185e-05 ,1.43217e-05 , & - 1.45267e-05 /) - totplnk(1:50, 9) = (/ & - 2.61522e-08 ,2.80613e-08 ,3.00838e-08 ,3.22250e-08 ,3.44899e-08 , & - 3.68841e-08 ,3.94129e-08 ,4.20820e-08 ,4.48973e-08 ,4.78646e-08 , & - 5.09901e-08 ,5.42799e-08 ,5.77405e-08 ,6.13784e-08 ,6.52001e-08 , & - 6.92126e-08 ,7.34227e-08 ,7.78375e-08 ,8.24643e-08 ,8.73103e-08 , & - 9.23832e-08 ,9.76905e-08 ,1.03240e-07 ,1.09039e-07 ,1.15097e-07 , & - 1.21421e-07 ,1.28020e-07 ,1.34902e-07 ,1.42075e-07 ,1.49548e-07 , & - 1.57331e-07 ,1.65432e-07 ,1.73860e-07 ,1.82624e-07 ,1.91734e-07 , & - 2.01198e-07 ,2.11028e-07 ,2.21231e-07 ,2.31818e-07 ,2.42799e-07 , & - 2.54184e-07 ,2.65983e-07 ,2.78205e-07 ,2.90862e-07 ,3.03963e-07 , & - 3.17519e-07 ,3.31541e-07 ,3.46039e-07 ,3.61024e-07 ,3.76507e-07 /) - totplnk(51:100, 9) = (/ & - 3.92498e-07 ,4.09008e-07 ,4.26050e-07 ,4.43633e-07 ,4.61769e-07 , & - 4.80469e-07 ,4.99744e-07 ,5.19606e-07 ,5.40067e-07 ,5.61136e-07 , & - 5.82828e-07 ,6.05152e-07 ,6.28120e-07 ,6.51745e-07 ,6.76038e-07 , & - 7.01010e-07 ,7.26674e-07 ,7.53041e-07 ,7.80124e-07 ,8.07933e-07 , & - 8.36482e-07 ,8.65781e-07 ,8.95845e-07 ,9.26683e-07 ,9.58308e-07 , & - 9.90732e-07 ,1.02397e-06 ,1.05803e-06 ,1.09292e-06 ,1.12866e-06 , & - 1.16526e-06 ,1.20274e-06 ,1.24109e-06 ,1.28034e-06 ,1.32050e-06 , & - 1.36158e-06 ,1.40359e-06 ,1.44655e-06 ,1.49046e-06 ,1.53534e-06 , & - 1.58120e-06 ,1.62805e-06 ,1.67591e-06 ,1.72478e-06 ,1.77468e-06 , & - 1.82561e-06 ,1.87760e-06 ,1.93066e-06 ,1.98479e-06 ,2.04000e-06 /) - totplnk(101:150, 9) = (/ & - 2.09631e-06 ,2.15373e-06 ,2.21228e-06 ,2.27196e-06 ,2.33278e-06 , & - 2.39475e-06 ,2.45790e-06 ,2.52222e-06 ,2.58773e-06 ,2.65445e-06 , & - 2.72238e-06 ,2.79152e-06 ,2.86191e-06 ,2.93354e-06 ,3.00643e-06 , & - 3.08058e-06 ,3.15601e-06 ,3.23273e-06 ,3.31075e-06 ,3.39009e-06 , & - 3.47074e-06 ,3.55272e-06 ,3.63605e-06 ,3.72072e-06 ,3.80676e-06 , & - 3.89417e-06 ,3.98297e-06 ,4.07315e-06 ,4.16474e-06 ,4.25774e-06 , & - 4.35217e-06 ,4.44802e-06 ,4.54532e-06 ,4.64406e-06 ,4.74428e-06 , & - 4.84595e-06 ,4.94911e-06 ,5.05376e-06 ,5.15990e-06 ,5.26755e-06 , & - 5.37671e-06 ,5.48741e-06 ,5.59963e-06 ,5.71340e-06 ,5.82871e-06 , & - 5.94559e-06 ,6.06403e-06 ,6.18404e-06 ,6.30565e-06 ,6.42885e-06 /) - totplnk(151:181, 9) = (/ & - 6.55364e-06 ,6.68004e-06 ,6.80806e-06 ,6.93771e-06 ,7.06898e-06 , & - 7.20190e-06 ,7.33646e-06 ,7.47267e-06 ,7.61056e-06 ,7.75010e-06 , & - 7.89133e-06 ,8.03423e-06 ,8.17884e-06 ,8.32514e-06 ,8.47314e-06 , & - 8.62284e-06 ,8.77427e-06 ,8.92743e-06 ,9.08231e-06 ,9.23893e-06 , & - 9.39729e-06 ,9.55741e-06 ,9.71927e-06 ,9.88291e-06 ,1.00483e-05 , & - 1.02155e-05 ,1.03844e-05 ,1.05552e-05 ,1.07277e-05 ,1.09020e-05 , & - 1.10781e-05 /) - totplnk(1:50,10) = (/ & - 8.89300e-09 ,9.63263e-09 ,1.04235e-08 ,1.12685e-08 ,1.21703e-08 , & - 1.31321e-08 ,1.41570e-08 ,1.52482e-08 ,1.64090e-08 ,1.76428e-08 , & - 1.89533e-08 ,2.03441e-08 ,2.18190e-08 ,2.33820e-08 ,2.50370e-08 , & - 2.67884e-08 ,2.86402e-08 ,3.05969e-08 ,3.26632e-08 ,3.48436e-08 , & - 3.71429e-08 ,3.95660e-08 ,4.21179e-08 ,4.48040e-08 ,4.76294e-08 , & - 5.05996e-08 ,5.37201e-08 ,5.69966e-08 ,6.04349e-08 ,6.40411e-08 , & - 6.78211e-08 ,7.17812e-08 ,7.59276e-08 ,8.02670e-08 ,8.48059e-08 , & - 8.95508e-08 ,9.45090e-08 ,9.96873e-08 ,1.05093e-07 ,1.10733e-07 , & - 1.16614e-07 ,1.22745e-07 ,1.29133e-07 ,1.35786e-07 ,1.42711e-07 , & - 1.49916e-07 ,1.57410e-07 ,1.65202e-07 ,1.73298e-07 ,1.81709e-07 /) - totplnk(51:100,10) = (/ & - 1.90441e-07 ,1.99505e-07 ,2.08908e-07 ,2.18660e-07 ,2.28770e-07 , & - 2.39247e-07 ,2.50101e-07 ,2.61340e-07 ,2.72974e-07 ,2.85013e-07 , & - 2.97467e-07 ,3.10345e-07 ,3.23657e-07 ,3.37413e-07 ,3.51623e-07 , & - 3.66298e-07 ,3.81448e-07 ,3.97082e-07 ,4.13212e-07 ,4.29848e-07 , & - 4.47000e-07 ,4.64680e-07 ,4.82898e-07 ,5.01664e-07 ,5.20991e-07 , & - 5.40888e-07 ,5.61369e-07 ,5.82440e-07 ,6.04118e-07 ,6.26410e-07 , & - 6.49329e-07 ,6.72887e-07 ,6.97095e-07 ,7.21964e-07 ,7.47506e-07 , & - 7.73732e-07 ,8.00655e-07 ,8.28287e-07 ,8.56635e-07 ,8.85717e-07 , & - 9.15542e-07 ,9.46122e-07 ,9.77469e-07 ,1.00960e-06 ,1.04251e-06 , & - 1.07623e-06 ,1.11077e-06 ,1.14613e-06 ,1.18233e-06 ,1.21939e-06 /) - totplnk(101:150,10) = (/ & - 1.25730e-06 ,1.29610e-06 ,1.33578e-06 ,1.37636e-06 ,1.41785e-06 , & - 1.46027e-06 ,1.50362e-06 ,1.54792e-06 ,1.59319e-06 ,1.63942e-06 , & - 1.68665e-06 ,1.73487e-06 ,1.78410e-06 ,1.83435e-06 ,1.88564e-06 , & - 1.93797e-06 ,1.99136e-06 ,2.04582e-06 ,2.10137e-06 ,2.15801e-06 , & - 2.21576e-06 ,2.27463e-06 ,2.33462e-06 ,2.39577e-06 ,2.45806e-06 , & - 2.52153e-06 ,2.58617e-06 ,2.65201e-06 ,2.71905e-06 ,2.78730e-06 , & - 2.85678e-06 ,2.92749e-06 ,2.99946e-06 ,3.07269e-06 ,3.14720e-06 , & - 3.22299e-06 ,3.30007e-06 ,3.37847e-06 ,3.45818e-06 ,3.53923e-06 , & - 3.62161e-06 ,3.70535e-06 ,3.79046e-06 ,3.87695e-06 ,3.96481e-06 , & - 4.05409e-06 ,4.14477e-06 ,4.23687e-06 ,4.33040e-06 ,4.42538e-06 /) - totplnk(151:181,10) = (/ & - 4.52180e-06 ,4.61969e-06 ,4.71905e-06 ,4.81991e-06 ,4.92226e-06 , & - 5.02611e-06 ,5.13148e-06 ,5.23839e-06 ,5.34681e-06 ,5.45681e-06 , & - 5.56835e-06 ,5.68146e-06 ,5.79614e-06 ,5.91242e-06 ,6.03030e-06 , & - 6.14978e-06 ,6.27088e-06 ,6.39360e-06 ,6.51798e-06 ,6.64398e-06 , & - 6.77165e-06 ,6.90099e-06 ,7.03198e-06 ,7.16468e-06 ,7.29906e-06 , & - 7.43514e-06 ,7.57294e-06 ,7.71244e-06 ,7.85369e-06 ,7.99666e-06 , & - 8.14138e-06 /) - totplnk(1:50,11) = (/ & - 2.53767e-09 ,2.77242e-09 ,3.02564e-09 ,3.29851e-09 ,3.59228e-09 , & - 3.90825e-09 ,4.24777e-09 ,4.61227e-09 ,5.00322e-09 ,5.42219e-09 , & - 5.87080e-09 ,6.35072e-09 ,6.86370e-09 ,7.41159e-09 ,7.99628e-09 , & - 8.61974e-09 ,9.28404e-09 ,9.99130e-09 ,1.07437e-08 ,1.15436e-08 , & - 1.23933e-08 ,1.32953e-08 ,1.42522e-08 ,1.52665e-08 ,1.63410e-08 , & - 1.74786e-08 ,1.86820e-08 ,1.99542e-08 ,2.12985e-08 ,2.27179e-08 , & - 2.42158e-08 ,2.57954e-08 ,2.74604e-08 ,2.92141e-08 ,3.10604e-08 , & - 3.30029e-08 ,3.50457e-08 ,3.71925e-08 ,3.94476e-08 ,4.18149e-08 , & - 4.42991e-08 ,4.69043e-08 ,4.96352e-08 ,5.24961e-08 ,5.54921e-08 , & - 5.86277e-08 ,6.19081e-08 ,6.53381e-08 ,6.89231e-08 ,7.26681e-08 /) - totplnk(51:100,11) = (/ & - 7.65788e-08 ,8.06604e-08 ,8.49187e-08 ,8.93591e-08 ,9.39879e-08 , & - 9.88106e-08 ,1.03834e-07 ,1.09063e-07 ,1.14504e-07 ,1.20165e-07 , & - 1.26051e-07 ,1.32169e-07 ,1.38525e-07 ,1.45128e-07 ,1.51982e-07 , & - 1.59096e-07 ,1.66477e-07 ,1.74132e-07 ,1.82068e-07 ,1.90292e-07 , & - 1.98813e-07 ,2.07638e-07 ,2.16775e-07 ,2.26231e-07 ,2.36015e-07 , & - 2.46135e-07 ,2.56599e-07 ,2.67415e-07 ,2.78592e-07 ,2.90137e-07 , & - 3.02061e-07 ,3.14371e-07 ,3.27077e-07 ,3.40186e-07 ,3.53710e-07 , & - 3.67655e-07 ,3.82031e-07 ,3.96848e-07 ,4.12116e-07 ,4.27842e-07 , & - 4.44039e-07 ,4.60713e-07 ,4.77876e-07 ,4.95537e-07 ,5.13706e-07 , & - 5.32392e-07 ,5.51608e-07 ,5.71360e-07 ,5.91662e-07 ,6.12521e-07 /) - totplnk(101:150,11) = (/ & - 6.33950e-07 ,6.55958e-07 ,6.78556e-07 ,7.01753e-07 ,7.25562e-07 , & - 7.49992e-07 ,7.75055e-07 ,8.00760e-07 ,8.27120e-07 ,8.54145e-07 , & - 8.81845e-07 ,9.10233e-07 ,9.39318e-07 ,9.69113e-07 ,9.99627e-07 , & - 1.03087e-06 ,1.06286e-06 ,1.09561e-06 ,1.12912e-06 ,1.16340e-06 , & - 1.19848e-06 ,1.23435e-06 ,1.27104e-06 ,1.30855e-06 ,1.34690e-06 , & - 1.38609e-06 ,1.42614e-06 ,1.46706e-06 ,1.50886e-06 ,1.55155e-06 , & - 1.59515e-06 ,1.63967e-06 ,1.68512e-06 ,1.73150e-06 ,1.77884e-06 , & - 1.82715e-06 ,1.87643e-06 ,1.92670e-06 ,1.97797e-06 ,2.03026e-06 , & - 2.08356e-06 ,2.13791e-06 ,2.19330e-06 ,2.24975e-06 ,2.30728e-06 , & - 2.36589e-06 ,2.42560e-06 ,2.48641e-06 ,2.54835e-06 ,2.61142e-06 /) - totplnk(151:181,11) = (/ & - 2.67563e-06 ,2.74100e-06 ,2.80754e-06 ,2.87526e-06 ,2.94417e-06 , & - 3.01429e-06 ,3.08562e-06 ,3.15819e-06 ,3.23199e-06 ,3.30704e-06 , & - 3.38336e-06 ,3.46096e-06 ,3.53984e-06 ,3.62002e-06 ,3.70151e-06 , & - 3.78433e-06 ,3.86848e-06 ,3.95399e-06 ,4.04084e-06 ,4.12907e-06 , & - 4.21868e-06 ,4.30968e-06 ,4.40209e-06 ,4.49592e-06 ,4.59117e-06 , & - 4.68786e-06 ,4.78600e-06 ,4.88561e-06 ,4.98669e-06 ,5.08926e-06 , & - 5.19332e-06 /) - totplnk(1:50,12) = (/ & - 2.73921e-10 ,3.04500e-10 ,3.38056e-10 ,3.74835e-10 ,4.15099e-10 , & - 4.59126e-10 ,5.07214e-10 ,5.59679e-10 ,6.16857e-10 ,6.79103e-10 , & - 7.46796e-10 ,8.20335e-10 ,9.00144e-10 ,9.86671e-10 ,1.08039e-09 , & - 1.18180e-09 ,1.29142e-09 ,1.40982e-09 ,1.53757e-09 ,1.67529e-09 , & - 1.82363e-09 ,1.98327e-09 ,2.15492e-09 ,2.33932e-09 ,2.53726e-09 , & - 2.74957e-09 ,2.97710e-09 ,3.22075e-09 ,3.48145e-09 ,3.76020e-09 , & - 4.05801e-09 ,4.37595e-09 ,4.71513e-09 ,5.07672e-09 ,5.46193e-09 , & - 5.87201e-09 ,6.30827e-09 ,6.77205e-09 ,7.26480e-09 ,7.78794e-09 , & - 8.34304e-09 ,8.93163e-09 ,9.55537e-09 ,1.02159e-08 ,1.09151e-08 , & - 1.16547e-08 ,1.24365e-08 ,1.32625e-08 ,1.41348e-08 ,1.50554e-08 /) - totplnk(51:100,12) = (/ & - 1.60264e-08 ,1.70500e-08 ,1.81285e-08 ,1.92642e-08 ,2.04596e-08 , & - 2.17171e-08 ,2.30394e-08 ,2.44289e-08 ,2.58885e-08 ,2.74209e-08 , & - 2.90290e-08 ,3.07157e-08 ,3.24841e-08 ,3.43371e-08 ,3.62782e-08 , & - 3.83103e-08 ,4.04371e-08 ,4.26617e-08 ,4.49878e-08 ,4.74190e-08 , & - 4.99589e-08 ,5.26113e-08 ,5.53801e-08 ,5.82692e-08 ,6.12826e-08 , & - 6.44245e-08 ,6.76991e-08 ,7.11105e-08 ,7.46634e-08 ,7.83621e-08 , & - 8.22112e-08 ,8.62154e-08 ,9.03795e-08 ,9.47081e-08 ,9.92066e-08 , & - 1.03879e-07 ,1.08732e-07 ,1.13770e-07 ,1.18998e-07 ,1.24422e-07 , & - 1.30048e-07 ,1.35880e-07 ,1.41924e-07 ,1.48187e-07 ,1.54675e-07 , & - 1.61392e-07 ,1.68346e-07 ,1.75543e-07 ,1.82988e-07 ,1.90688e-07 /) - totplnk(101:150,12) = (/ & - 1.98650e-07 ,2.06880e-07 ,2.15385e-07 ,2.24172e-07 ,2.33247e-07 , & - 2.42617e-07 ,2.52289e-07 ,2.62272e-07 ,2.72571e-07 ,2.83193e-07 , & - 2.94147e-07 ,3.05440e-07 ,3.17080e-07 ,3.29074e-07 ,3.41430e-07 , & - 3.54155e-07 ,3.67259e-07 ,3.80747e-07 ,3.94631e-07 ,4.08916e-07 , & - 4.23611e-07 ,4.38725e-07 ,4.54267e-07 ,4.70245e-07 ,4.86666e-07 , & - 5.03541e-07 ,5.20879e-07 ,5.38687e-07 ,5.56975e-07 ,5.75751e-07 , & - 5.95026e-07 ,6.14808e-07 ,6.35107e-07 ,6.55932e-07 ,6.77293e-07 , & - 6.99197e-07 ,7.21656e-07 ,7.44681e-07 ,7.68278e-07 ,7.92460e-07 , & - 8.17235e-07 ,8.42614e-07 ,8.68606e-07 ,8.95223e-07 ,9.22473e-07 , & - 9.50366e-07 ,9.78915e-07 ,1.00813e-06 ,1.03802e-06 ,1.06859e-06 /) - totplnk(151:181,12) = (/ & - 1.09986e-06 ,1.13184e-06 ,1.16453e-06 ,1.19796e-06 ,1.23212e-06 , & - 1.26703e-06 ,1.30270e-06 ,1.33915e-06 ,1.37637e-06 ,1.41440e-06 , & - 1.45322e-06 ,1.49286e-06 ,1.53333e-06 ,1.57464e-06 ,1.61679e-06 , & - 1.65981e-06 ,1.70370e-06 ,1.74847e-06 ,1.79414e-06 ,1.84071e-06 , & - 1.88821e-06 ,1.93663e-06 ,1.98599e-06 ,2.03631e-06 ,2.08759e-06 , & - 2.13985e-06 ,2.19310e-06 ,2.24734e-06 ,2.30260e-06 ,2.35888e-06 , & - 2.41619e-06 /) - totplnk(1:50,13) = (/ & - 4.53634e-11 ,5.11435e-11 ,5.75754e-11 ,6.47222e-11 ,7.26531e-11 , & - 8.14420e-11 ,9.11690e-11 ,1.01921e-10 ,1.13790e-10 ,1.26877e-10 , & - 1.41288e-10 ,1.57140e-10 ,1.74555e-10 ,1.93665e-10 ,2.14613e-10 , & - 2.37548e-10 ,2.62633e-10 ,2.90039e-10 ,3.19948e-10 ,3.52558e-10 , & - 3.88073e-10 ,4.26716e-10 ,4.68719e-10 ,5.14331e-10 ,5.63815e-10 , & - 6.17448e-10 ,6.75526e-10 ,7.38358e-10 ,8.06277e-10 ,8.79625e-10 , & - 9.58770e-10 ,1.04410e-09 ,1.13602e-09 ,1.23495e-09 ,1.34135e-09 , & - 1.45568e-09 ,1.57845e-09 ,1.71017e-09 ,1.85139e-09 ,2.00268e-09 , & - 2.16464e-09 ,2.33789e-09 ,2.52309e-09 ,2.72093e-09 ,2.93212e-09 , & - 3.15740e-09 ,3.39757e-09 ,3.65341e-09 ,3.92579e-09 ,4.21559e-09 /) - totplnk(51:100,13) = (/ & - 4.52372e-09 ,4.85115e-09 ,5.19886e-09 ,5.56788e-09 ,5.95928e-09 , & - 6.37419e-09 ,6.81375e-09 ,7.27917e-09 ,7.77168e-09 ,8.29256e-09 , & - 8.84317e-09 ,9.42487e-09 ,1.00391e-08 ,1.06873e-08 ,1.13710e-08 , & - 1.20919e-08 ,1.28515e-08 ,1.36514e-08 ,1.44935e-08 ,1.53796e-08 , & - 1.63114e-08 ,1.72909e-08 ,1.83201e-08 ,1.94008e-08 ,2.05354e-08 , & - 2.17258e-08 ,2.29742e-08 ,2.42830e-08 ,2.56545e-08 ,2.70910e-08 , & - 2.85950e-08 ,3.01689e-08 ,3.18155e-08 ,3.35373e-08 ,3.53372e-08 , & - 3.72177e-08 ,3.91818e-08 ,4.12325e-08 ,4.33727e-08 ,4.56056e-08 , & - 4.79342e-08 ,5.03617e-08 ,5.28915e-08 ,5.55270e-08 ,5.82715e-08 , & - 6.11286e-08 ,6.41019e-08 ,6.71951e-08 ,7.04119e-08 ,7.37560e-08 /) - totplnk(101:150,13) = (/ & - 7.72315e-08 ,8.08424e-08 ,8.45927e-08 ,8.84866e-08 ,9.25281e-08 , & - 9.67218e-08 ,1.01072e-07 ,1.05583e-07 ,1.10260e-07 ,1.15107e-07 , & - 1.20128e-07 ,1.25330e-07 ,1.30716e-07 ,1.36291e-07 ,1.42061e-07 , & - 1.48031e-07 ,1.54206e-07 ,1.60592e-07 ,1.67192e-07 ,1.74015e-07 , & - 1.81064e-07 ,1.88345e-07 ,1.95865e-07 ,2.03628e-07 ,2.11643e-07 , & - 2.19912e-07 ,2.28443e-07 ,2.37244e-07 ,2.46318e-07 ,2.55673e-07 , & - 2.65316e-07 ,2.75252e-07 ,2.85489e-07 ,2.96033e-07 ,3.06891e-07 , & - 3.18070e-07 ,3.29576e-07 ,3.41417e-07 ,3.53600e-07 ,3.66133e-07 , & - 3.79021e-07 ,3.92274e-07 ,4.05897e-07 ,4.19899e-07 ,4.34288e-07 , & - 4.49071e-07 ,4.64255e-07 ,4.79850e-07 ,4.95863e-07 ,5.12300e-07 /) - totplnk(151:181,13) = (/ & - 5.29172e-07 ,5.46486e-07 ,5.64250e-07 ,5.82473e-07 ,6.01164e-07 , & - 6.20329e-07 ,6.39979e-07 ,6.60122e-07 ,6.80767e-07 ,7.01922e-07 , & - 7.23596e-07 ,7.45800e-07 ,7.68539e-07 ,7.91826e-07 ,8.15669e-07 , & - 8.40076e-07 ,8.65058e-07 ,8.90623e-07 ,9.16783e-07 ,9.43544e-07 , & - 9.70917e-07 ,9.98912e-07 ,1.02754e-06 ,1.05681e-06 ,1.08673e-06 , & - 1.11731e-06 ,1.14856e-06 ,1.18050e-06 ,1.21312e-06 ,1.24645e-06 , & - 1.28049e-06 /) - totplnk(1:50,14) = (/ & - 1.40113e-11 ,1.59358e-11 ,1.80960e-11 ,2.05171e-11 ,2.32266e-11 , & - 2.62546e-11 ,2.96335e-11 ,3.33990e-11 ,3.75896e-11 ,4.22469e-11 , & - 4.74164e-11 ,5.31466e-11 ,5.94905e-11 ,6.65054e-11 ,7.42522e-11 , & - 8.27975e-11 ,9.22122e-11 ,1.02573e-10 ,1.13961e-10 ,1.26466e-10 , & - 1.40181e-10 ,1.55206e-10 ,1.71651e-10 ,1.89630e-10 ,2.09265e-10 , & - 2.30689e-10 ,2.54040e-10 ,2.79467e-10 ,3.07128e-10 ,3.37190e-10 , & - 3.69833e-10 ,4.05243e-10 ,4.43623e-10 ,4.85183e-10 ,5.30149e-10 , & - 5.78755e-10 ,6.31255e-10 ,6.87910e-10 ,7.49002e-10 ,8.14824e-10 , & - 8.85687e-10 ,9.61914e-10 ,1.04385e-09 ,1.13186e-09 ,1.22631e-09 , & - 1.32761e-09 ,1.43617e-09 ,1.55243e-09 ,1.67686e-09 ,1.80992e-09 /) - totplnk(51:100,14) = (/ & - 1.95212e-09 ,2.10399e-09 ,2.26607e-09 ,2.43895e-09 ,2.62321e-09 , & - 2.81949e-09 ,3.02844e-09 ,3.25073e-09 ,3.48707e-09 ,3.73820e-09 , & - 4.00490e-09 ,4.28794e-09 ,4.58819e-09 ,4.90647e-09 ,5.24371e-09 , & - 5.60081e-09 ,5.97875e-09 ,6.37854e-09 ,6.80120e-09 ,7.24782e-09 , & - 7.71950e-09 ,8.21740e-09 ,8.74271e-09 ,9.29666e-09 ,9.88054e-09 , & - 1.04956e-08 ,1.11434e-08 ,1.18251e-08 ,1.25422e-08 ,1.32964e-08 , & - 1.40890e-08 ,1.49217e-08 ,1.57961e-08 ,1.67140e-08 ,1.76771e-08 , & - 1.86870e-08 ,1.97458e-08 ,2.08553e-08 ,2.20175e-08 ,2.32342e-08 , & - 2.45077e-08 ,2.58401e-08 ,2.72334e-08 ,2.86900e-08 ,3.02122e-08 , & - 3.18021e-08 ,3.34624e-08 ,3.51954e-08 ,3.70037e-08 ,3.88899e-08 /) - totplnk(101:150,14) = (/ & - 4.08568e-08 ,4.29068e-08 ,4.50429e-08 ,4.72678e-08 ,4.95847e-08 , & - 5.19963e-08 ,5.45058e-08 ,5.71161e-08 ,5.98309e-08 ,6.26529e-08 , & - 6.55857e-08 ,6.86327e-08 ,7.17971e-08 ,7.50829e-08 ,7.84933e-08 , & - 8.20323e-08 ,8.57035e-08 ,8.95105e-08 ,9.34579e-08 ,9.75488e-08 , & - 1.01788e-07 ,1.06179e-07 ,1.10727e-07 ,1.15434e-07 ,1.20307e-07 , & - 1.25350e-07 ,1.30566e-07 ,1.35961e-07 ,1.41539e-07 ,1.47304e-07 , & - 1.53263e-07 ,1.59419e-07 ,1.65778e-07 ,1.72345e-07 ,1.79124e-07 , & - 1.86122e-07 ,1.93343e-07 ,2.00792e-07 ,2.08476e-07 ,2.16400e-07 , & - 2.24568e-07 ,2.32988e-07 ,2.41666e-07 ,2.50605e-07 ,2.59813e-07 , & - 2.69297e-07 ,2.79060e-07 ,2.89111e-07 ,2.99455e-07 ,3.10099e-07 /) - totplnk(151:181,14) = (/ & - 3.21049e-07 ,3.32311e-07 ,3.43893e-07 ,3.55801e-07 ,3.68041e-07 , & - 3.80621e-07 ,3.93547e-07 ,4.06826e-07 ,4.20465e-07 ,4.34473e-07 , & - 4.48856e-07 ,4.63620e-07 ,4.78774e-07 ,4.94325e-07 ,5.10280e-07 , & - 5.26648e-07 ,5.43436e-07 ,5.60652e-07 ,5.78302e-07 ,5.96397e-07 , & - 6.14943e-07 ,6.33949e-07 ,6.53421e-07 ,6.73370e-07 ,6.93803e-07 , & - 7.14731e-07 ,7.36157e-07 ,7.58095e-07 ,7.80549e-07 ,8.03533e-07 , & - 8.27050e-07 /) - totplnk(1:50,15) = (/ & - 3.90483e-12 ,4.47999e-12 ,5.13122e-12 ,5.86739e-12 ,6.69829e-12 , & - 7.63467e-12 ,8.68833e-12 ,9.87221e-12 ,1.12005e-11 ,1.26885e-11 , & - 1.43534e-11 ,1.62134e-11 ,1.82888e-11 ,2.06012e-11 ,2.31745e-11 , & - 2.60343e-11 ,2.92087e-11 ,3.27277e-11 ,3.66242e-11 ,4.09334e-11 , & - 4.56935e-11 ,5.09455e-11 ,5.67338e-11 ,6.31057e-11 ,7.01127e-11 , & - 7.78096e-11 ,8.62554e-11 ,9.55130e-11 ,1.05651e-10 ,1.16740e-10 , & - 1.28858e-10 ,1.42089e-10 ,1.56519e-10 ,1.72243e-10 ,1.89361e-10 , & - 2.07978e-10 ,2.28209e-10 ,2.50173e-10 ,2.73999e-10 ,2.99820e-10 , & - 3.27782e-10 ,3.58034e-10 ,3.90739e-10 ,4.26067e-10 ,4.64196e-10 , & - 5.05317e-10 ,5.49631e-10 ,5.97347e-10 ,6.48689e-10 ,7.03891e-10 /) - totplnk(51:100,15) = (/ & - 7.63201e-10 ,8.26876e-10 ,8.95192e-10 ,9.68430e-10 ,1.04690e-09 , & - 1.13091e-09 ,1.22079e-09 ,1.31689e-09 ,1.41957e-09 ,1.52922e-09 , & - 1.64623e-09 ,1.77101e-09 ,1.90401e-09 ,2.04567e-09 ,2.19647e-09 , & - 2.35690e-09 ,2.52749e-09 ,2.70875e-09 ,2.90127e-09 ,3.10560e-09 , & - 3.32238e-09 ,3.55222e-09 ,3.79578e-09 ,4.05375e-09 ,4.32682e-09 , & - 4.61574e-09 ,4.92128e-09 ,5.24420e-09 ,5.58536e-09 ,5.94558e-09 , & - 6.32575e-09 ,6.72678e-09 ,7.14964e-09 ,7.59526e-09 ,8.06470e-09 , & - 8.55897e-09 ,9.07916e-09 ,9.62638e-09 ,1.02018e-08 ,1.08066e-08 , & - 1.14420e-08 ,1.21092e-08 ,1.28097e-08 ,1.35446e-08 ,1.43155e-08 , & - 1.51237e-08 ,1.59708e-08 ,1.68581e-08 ,1.77873e-08 ,1.87599e-08 /) - totplnk(101:150,15) = (/ & - 1.97777e-08 ,2.08423e-08 ,2.19555e-08 ,2.31190e-08 ,2.43348e-08 , & - 2.56045e-08 ,2.69302e-08 ,2.83140e-08 ,2.97578e-08 ,3.12636e-08 , & - 3.28337e-08 ,3.44702e-08 ,3.61755e-08 ,3.79516e-08 ,3.98012e-08 , & - 4.17265e-08 ,4.37300e-08 ,4.58143e-08 ,4.79819e-08 ,5.02355e-08 , & - 5.25777e-08 ,5.50114e-08 ,5.75393e-08 ,6.01644e-08 ,6.28896e-08 , & - 6.57177e-08 ,6.86521e-08 ,7.16959e-08 ,7.48520e-08 ,7.81239e-08 , & - 8.15148e-08 ,8.50282e-08 ,8.86675e-08 ,9.24362e-08 ,9.63380e-08 , & - 1.00376e-07 ,1.04555e-07 ,1.08878e-07 ,1.13349e-07 ,1.17972e-07 , & - 1.22751e-07 ,1.27690e-07 ,1.32793e-07 ,1.38064e-07 ,1.43508e-07 , & - 1.49129e-07 ,1.54931e-07 ,1.60920e-07 ,1.67099e-07 ,1.73473e-07 /) - totplnk(151:181,15) = (/ & - 1.80046e-07 ,1.86825e-07 ,1.93812e-07 ,2.01014e-07 ,2.08436e-07 , & - 2.16082e-07 ,2.23957e-07 ,2.32067e-07 ,2.40418e-07 ,2.49013e-07 , & - 2.57860e-07 ,2.66963e-07 ,2.76328e-07 ,2.85961e-07 ,2.95868e-07 , & - 3.06053e-07 ,3.16524e-07 ,3.27286e-07 ,3.38345e-07 ,3.49707e-07 , & - 3.61379e-07 ,3.73367e-07 ,3.85676e-07 ,3.98315e-07 ,4.11287e-07 , & - 4.24602e-07 ,4.38265e-07 ,4.52283e-07 ,4.66662e-07 ,4.81410e-07 , & - 4.96535e-07 /) - totplnk(1:50,16) = (/ & - 0.28639e-12 ,0.33349e-12 ,0.38764e-12 ,0.44977e-12 ,0.52093e-12 , & - 0.60231e-12 ,0.69522e-12 ,0.80111e-12 ,0.92163e-12 ,0.10586e-11 , & - 0.12139e-11 ,0.13899e-11 ,0.15890e-11 ,0.18138e-11 ,0.20674e-11 , & - 0.23531e-11 ,0.26744e-11 ,0.30352e-11 ,0.34401e-11 ,0.38936e-11 , & - 0.44011e-11 ,0.49681e-11 ,0.56010e-11 ,0.63065e-11 ,0.70919e-11 , & - 0.79654e-11 ,0.89357e-11 ,0.10012e-10 ,0.11205e-10 ,0.12526e-10 , & - 0.13986e-10 ,0.15600e-10 ,0.17380e-10 ,0.19342e-10 ,0.21503e-10 , & - 0.23881e-10 ,0.26494e-10 ,0.29362e-10 ,0.32509e-10 ,0.35958e-10 , & - 0.39733e-10 ,0.43863e-10 ,0.48376e-10 ,0.53303e-10 ,0.58679e-10 , & - 0.64539e-10 ,0.70920e-10 ,0.77864e-10 ,0.85413e-10 ,0.93615e-10 /) - totplnk(51:100,16) = (/ & - 0.10252e-09 ,0.11217e-09 ,0.12264e-09 ,0.13397e-09 ,0.14624e-09 , & - 0.15950e-09 ,0.17383e-09 ,0.18930e-09 ,0.20599e-09 ,0.22399e-09 , & - 0.24339e-09 ,0.26427e-09 ,0.28674e-09 ,0.31090e-09 ,0.33686e-09 , & - 0.36474e-09 ,0.39466e-09 ,0.42676e-09 ,0.46115e-09 ,0.49800e-09 , & - 0.53744e-09 ,0.57964e-09 ,0.62476e-09 ,0.67298e-09 ,0.72448e-09 , & - 0.77945e-09 ,0.83809e-09 ,0.90062e-09 ,0.96725e-09 ,0.10382e-08 , & - 0.11138e-08 ,0.11941e-08 ,0.12796e-08 ,0.13704e-08 ,0.14669e-08 , & - 0.15694e-08 ,0.16781e-08 ,0.17934e-08 ,0.19157e-08 ,0.20453e-08 , & - 0.21825e-08 ,0.23278e-08 ,0.24815e-08 ,0.26442e-08 ,0.28161e-08 , & - 0.29978e-08 ,0.31898e-08 ,0.33925e-08 ,0.36064e-08 ,0.38321e-08 /) - totplnk(101:150,16) = (/ & - 0.40700e-08 ,0.43209e-08 ,0.45852e-08 ,0.48636e-08 ,0.51567e-08 , & - 0.54652e-08 ,0.57897e-08 ,0.61310e-08 ,0.64897e-08 ,0.68667e-08 , & - 0.72626e-08 ,0.76784e-08 ,0.81148e-08 ,0.85727e-08 ,0.90530e-08 , & - 0.95566e-08 ,0.10084e-07 ,0.10638e-07 ,0.11217e-07 ,0.11824e-07 , & - 0.12458e-07 ,0.13123e-07 ,0.13818e-07 ,0.14545e-07 ,0.15305e-07 , & - 0.16099e-07 ,0.16928e-07 ,0.17795e-07 ,0.18699e-07 ,0.19643e-07 , & - 0.20629e-07 ,0.21656e-07 ,0.22728e-07 ,0.23845e-07 ,0.25010e-07 , & - 0.26223e-07 ,0.27487e-07 ,0.28804e-07 ,0.30174e-07 ,0.31600e-07 , & - 0.33084e-07 ,0.34628e-07 ,0.36233e-07 ,0.37902e-07 ,0.39637e-07 , & - 0.41440e-07 ,0.43313e-07 ,0.45259e-07 ,0.47279e-07 ,0.49376e-07 /) - totplnk(151:181,16) = (/ & - 0.51552e-07 ,0.53810e-07 ,0.56153e-07 ,0.58583e-07 ,0.61102e-07 , & - 0.63713e-07 ,0.66420e-07 ,0.69224e-07 ,0.72129e-07 ,0.75138e-07 , & - 0.78254e-07 ,0.81479e-07 ,0.84818e-07 ,0.88272e-07 ,0.91846e-07 , & - 0.95543e-07 ,0.99366e-07 ,0.10332e-06 ,0.10740e-06 ,0.11163e-06 , & - 0.11599e-06 ,0.12050e-06 ,0.12515e-06 ,0.12996e-06 ,0.13493e-06 , & - 0.14005e-06 ,0.14534e-06 ,0.15080e-06 ,0.15643e-06 ,0.16224e-06 , & - 0.16823e-06 /) - totplk16(1:50) = (/ & - 0.28481e-12 ,0.33159e-12 ,0.38535e-12 ,0.44701e-12 ,0.51763e-12 , & - 0.59836e-12 ,0.69049e-12 ,0.79549e-12 ,0.91493e-12 ,0.10506e-11 , & - 0.12045e-11 ,0.13788e-11 ,0.15758e-11 ,0.17984e-11 ,0.20493e-11 , & - 0.23317e-11 ,0.26494e-11 ,0.30060e-11 ,0.34060e-11 ,0.38539e-11 , & - 0.43548e-11 ,0.49144e-11 ,0.55387e-11 ,0.62344e-11 ,0.70086e-11 , & - 0.78692e-11 ,0.88248e-11 ,0.98846e-11 ,0.11059e-10 ,0.12358e-10 , & - 0.13794e-10 ,0.15379e-10 ,0.17128e-10 ,0.19055e-10 ,0.21176e-10 , & - 0.23508e-10 ,0.26070e-10 ,0.28881e-10 ,0.31963e-10 ,0.35339e-10 , & - 0.39034e-10 ,0.43073e-10 ,0.47484e-10 ,0.52299e-10 ,0.57548e-10 , & - 0.63267e-10 ,0.69491e-10 ,0.76261e-10 ,0.83616e-10 ,0.91603e-10 /) - totplk16(51:100) = (/ & - 0.10027e-09 ,0.10966e-09 ,0.11983e-09 ,0.13084e-09 ,0.14275e-09 , & - 0.15562e-09 ,0.16951e-09 ,0.18451e-09 ,0.20068e-09 ,0.21810e-09 , & - 0.23686e-09 ,0.25704e-09 ,0.27875e-09 ,0.30207e-09 ,0.32712e-09 , & - 0.35400e-09 ,0.38282e-09 ,0.41372e-09 ,0.44681e-09 ,0.48223e-09 , & - 0.52013e-09 ,0.56064e-09 ,0.60392e-09 ,0.65015e-09 ,0.69948e-09 , & - 0.75209e-09 ,0.80818e-09 ,0.86794e-09 ,0.93157e-09 ,0.99929e-09 , & - 0.10713e-08 ,0.11479e-08 ,0.12293e-08 ,0.13157e-08 ,0.14074e-08 , & - 0.15047e-08 ,0.16079e-08 ,0.17172e-08 ,0.18330e-08 ,0.19557e-08 , & - 0.20855e-08 ,0.22228e-08 ,0.23680e-08 ,0.25214e-08 ,0.26835e-08 , & - 0.28546e-08 ,0.30352e-08 ,0.32257e-08 ,0.34266e-08 ,0.36384e-08 /) - totplk16(101:150) = (/ & - 0.38615e-08 ,0.40965e-08 ,0.43438e-08 ,0.46041e-08 ,0.48779e-08 , & - 0.51658e-08 ,0.54683e-08 ,0.57862e-08 ,0.61200e-08 ,0.64705e-08 , & - 0.68382e-08 ,0.72240e-08 ,0.76285e-08 ,0.80526e-08 ,0.84969e-08 , & - 0.89624e-08 ,0.94498e-08 ,0.99599e-08 ,0.10494e-07 ,0.11052e-07 , & - 0.11636e-07 ,0.12246e-07 ,0.12884e-07 ,0.13551e-07 ,0.14246e-07 , & - 0.14973e-07 ,0.15731e-07 ,0.16522e-07 ,0.17347e-07 ,0.18207e-07 , & - 0.19103e-07 ,0.20037e-07 ,0.21011e-07 ,0.22024e-07 ,0.23079e-07 , & - 0.24177e-07 ,0.25320e-07 ,0.26508e-07 ,0.27744e-07 ,0.29029e-07 , & - 0.30365e-07 ,0.31753e-07 ,0.33194e-07 ,0.34691e-07 ,0.36246e-07 , & - 0.37859e-07 ,0.39533e-07 ,0.41270e-07 ,0.43071e-07 ,0.44939e-07 /) - totplk16(151:181) = (/ & - 0.46875e-07 ,0.48882e-07 ,0.50961e-07 ,0.53115e-07 ,0.55345e-07 , & - 0.57655e-07 ,0.60046e-07 ,0.62520e-07 ,0.65080e-07 ,0.67728e-07 , & - 0.70466e-07 ,0.73298e-07 ,0.76225e-07 ,0.79251e-07 ,0.82377e-07 , & - 0.85606e-07 ,0.88942e-07 ,0.92386e-07 ,0.95942e-07 ,0.99612e-07 , & - 0.10340e-06 ,0.10731e-06 ,0.11134e-06 ,0.11550e-06 ,0.11979e-06 , & - 0.12421e-06 ,0.12876e-06 ,0.13346e-06 ,0.13830e-06 ,0.14328e-06 , & - 0.14841e-06 /) - - end subroutine lwavplank - -!*************************************************************************** - subroutine lwavplankderiv -!*************************************************************************** - - save - - totplnkderiv(1:50, 1) = (/ & - 2.22125e-08 ,2.23245e-08 ,2.24355e-08 ,2.25435e-08 ,2.26560e-08 , & - 2.27620e-08 ,2.28690e-08 ,2.29760e-08 ,2.30775e-08 ,2.31800e-08 , & - 2.32825e-08 ,2.33825e-08 ,2.34820e-08 ,2.35795e-08 ,2.36760e-08 , & - 2.37710e-08 ,2.38655e-08 ,2.39595e-08 ,2.40530e-08 ,2.41485e-08 , & - 2.42395e-08 ,2.43300e-08 ,2.44155e-08 ,2.45085e-08 ,2.45905e-08 , & - 2.46735e-08 ,2.47565e-08 ,2.48465e-08 ,2.49315e-08 ,2.50100e-08 , & - 2.50905e-08 ,2.51705e-08 ,2.52490e-08 ,2.53260e-08 ,2.54075e-08 , & - 2.54785e-08 ,2.55555e-08 ,2.56340e-08 ,2.57050e-08 ,2.57820e-08 , & - 2.58525e-08 ,2.59205e-08 ,2.59945e-08 ,2.60680e-08 ,2.61375e-08 , & - 2.61980e-08 ,2.62745e-08 ,2.63335e-08 ,2.63995e-08 ,2.64710e-08 /) - totplnkderiv(51:100, 1) = (/ & - 2.65300e-08 ,2.66005e-08 ,2.66685e-08 ,2.67310e-08 ,2.67915e-08 , & - 2.68540e-08 ,2.69065e-08 ,2.69730e-08 ,2.70270e-08 ,2.70690e-08 , & - 2.71420e-08 ,2.71985e-08 ,2.72560e-08 ,2.73180e-08 ,2.73760e-08 , & - 2.74285e-08 ,2.74840e-08 ,2.75290e-08 ,2.75950e-08 ,2.76360e-08 , & - 2.76975e-08 ,2.77475e-08 ,2.78080e-08 ,2.78375e-08 ,2.79120e-08 , & - 2.79510e-08 ,2.79955e-08 ,2.80625e-08 ,2.80920e-08 ,2.81570e-08 , & - 2.81990e-08 ,2.82330e-08 ,2.82830e-08 ,2.83365e-08 ,2.83740e-08 , & - 2.84295e-08 ,2.84910e-08 ,2.85275e-08 ,2.85525e-08 ,2.86085e-08 , & - 2.86535e-08 ,2.86945e-08 ,2.87355e-08 ,2.87695e-08 ,2.88105e-08 , & - 2.88585e-08 ,2.88945e-08 ,2.89425e-08 ,2.89580e-08 ,2.90265e-08 /) - totplnkderiv(101:150, 1) = (/ & - 2.90445e-08 ,2.90905e-08 ,2.91425e-08 ,2.91560e-08 ,2.91970e-08 , & - 2.91905e-08 ,2.92880e-08 ,2.92950e-08 ,2.93630e-08 ,2.93995e-08 , & - 2.94425e-08 ,2.94635e-08 ,2.94770e-08 ,2.95290e-08 ,2.95585e-08 , & - 2.95815e-08 ,2.95995e-08 ,2.96745e-08 ,2.96725e-08 ,2.97040e-08 , & - 2.97750e-08 ,2.97905e-08 ,2.98175e-08 ,2.98355e-08 ,2.98705e-08 , & - 2.99040e-08 ,2.99680e-08 ,2.99860e-08 ,3.00270e-08 ,3.00200e-08 , & - 3.00770e-08 ,3.00795e-08 ,3.01065e-08 ,3.01795e-08 ,3.01815e-08 , & - 3.02025e-08 ,3.02360e-08 ,3.02360e-08 ,3.03090e-08 ,3.03155e-08 , & - 3.03725e-08 ,3.03635e-08 ,3.04270e-08 ,3.04610e-08 ,3.04635e-08 , & - 3.04610e-08 ,3.05180e-08 ,3.05430e-08 ,3.05290e-08 ,3.05885e-08 /) - totplnkderiv(151:181, 1) = (/ & - 3.05750e-08 ,3.05775e-08 ,3.06795e-08 ,3.07025e-08 ,3.07365e-08 , & - 3.07435e-08 ,3.07525e-08 ,3.07680e-08 ,3.08115e-08 ,3.07930e-08 , & - 3.08155e-08 ,3.08660e-08 ,3.08865e-08 ,3.08390e-08 ,3.09340e-08 , & - 3.09685e-08 ,3.09340e-08 ,3.09820e-08 ,3.10365e-08 ,3.10705e-08 , & - 3.10750e-08 ,3.10475e-08 ,3.11685e-08 ,3.11455e-08 ,3.11500e-08 , & - 3.11775e-08 ,3.11890e-08 ,3.12045e-08 ,3.12185e-08 ,3.12415e-08 , & - 3.12590e-08 /) - totplnkderiv(1:50, 2) = (/ & - 4.91150e-08 ,4.97290e-08 ,5.03415e-08 ,5.09460e-08 ,5.15550e-08 , & - 5.21540e-08 ,5.27575e-08 ,5.33500e-08 ,5.39500e-08 ,5.45445e-08 , & - 5.51290e-08 ,5.57235e-08 ,5.62955e-08 ,5.68800e-08 ,5.74620e-08 , & - 5.80425e-08 ,5.86145e-08 ,5.91810e-08 ,5.97435e-08 ,6.03075e-08 , & - 6.08625e-08 ,6.14135e-08 ,6.19775e-08 ,6.25185e-08 ,6.30675e-08 , & - 6.36145e-08 ,6.41535e-08 ,6.46920e-08 ,6.52265e-08 ,6.57470e-08 , & - 6.62815e-08 ,6.68000e-08 ,6.73320e-08 ,6.78550e-08 ,6.83530e-08 , & - 6.88760e-08 ,6.93735e-08 ,6.98790e-08 ,7.03950e-08 ,7.08810e-08 , & - 7.13815e-08 ,7.18795e-08 ,7.23415e-08 ,7.28505e-08 ,7.33285e-08 , & - 7.38075e-08 ,7.42675e-08 ,7.47605e-08 ,7.52380e-08 ,7.57020e-08 /) - totplnkderiv(51:100, 2) = (/ & - 7.61495e-08 ,7.65955e-08 ,7.70565e-08 ,7.75185e-08 ,7.79735e-08 , & - 7.83915e-08 ,7.88625e-08 ,7.93215e-08 ,7.97425e-08 ,8.02195e-08 , & - 8.05905e-08 ,8.10335e-08 ,8.14770e-08 ,8.19025e-08 ,8.22955e-08 , & - 8.27115e-08 ,8.31165e-08 ,8.35645e-08 ,8.39440e-08 ,8.43785e-08 , & - 8.47380e-08 ,8.51495e-08 ,8.55405e-08 ,8.59720e-08 ,8.63135e-08 , & - 8.67065e-08 ,8.70930e-08 ,8.74545e-08 ,8.78780e-08 ,8.82160e-08 , & - 8.85625e-08 ,8.89850e-08 ,8.93395e-08 ,8.97080e-08 ,9.00675e-08 , & - 9.04085e-08 ,9.07360e-08 ,9.11315e-08 ,9.13815e-08 ,9.18320e-08 , & - 9.21500e-08 ,9.24725e-08 ,9.28640e-08 ,9.31955e-08 ,9.35185e-08 , & - 9.38645e-08 ,9.41780e-08 ,9.45465e-08 ,9.48470e-08 ,9.51375e-08 /) - totplnkderiv(101:150, 2) = (/ & - 9.55245e-08 ,9.57925e-08 ,9.61195e-08 ,9.64750e-08 ,9.68110e-08 , & - 9.71715e-08 ,9.74150e-08 ,9.77250e-08 ,9.79600e-08 ,9.82600e-08 , & - 9.85300e-08 ,9.88400e-08 ,9.91600e-08 ,9.95350e-08 ,9.97500e-08 , & - 1.00090e-07 ,1.00370e-07 ,1.00555e-07 ,1.00935e-07 ,1.01275e-07 , & - 1.01400e-07 ,1.01790e-07 ,1.01945e-07 ,1.02225e-07 ,1.02585e-07 , & - 1.02895e-07 ,1.03010e-07 ,1.03285e-07 ,1.03540e-07 ,1.03890e-07 , & - 1.04015e-07 ,1.04420e-07 ,1.04640e-07 ,1.04810e-07 ,1.05090e-07 , & - 1.05385e-07 ,1.05600e-07 ,1.05965e-07 ,1.06050e-07 ,1.06385e-07 , & - 1.06390e-07 ,1.06795e-07 ,1.06975e-07 ,1.07240e-07 ,1.07435e-07 , & - 1.07815e-07 ,1.07960e-07 ,1.08010e-07 ,1.08535e-07 ,1.08670e-07 /) - totplnkderiv(151:181, 2) = (/ & - 1.08855e-07 ,1.09210e-07 ,1.09195e-07 ,1.09510e-07 ,1.09665e-07 , & - 1.09885e-07 ,1.10130e-07 ,1.10440e-07 ,1.10640e-07 ,1.10760e-07 , & - 1.11125e-07 ,1.11195e-07 ,1.11345e-07 ,1.11710e-07 ,1.11765e-07 , & - 1.11960e-07 ,1.12225e-07 ,1.12460e-07 ,1.12595e-07 ,1.12730e-07 , & - 1.12880e-07 ,1.13295e-07 ,1.13215e-07 ,1.13505e-07 ,1.13665e-07 , & - 1.13870e-07 ,1.14025e-07 ,1.14325e-07 ,1.14495e-07 ,1.14605e-07 , & - 1.14905e-07 /) - totplnkderiv(1:50, 3) = (/ & - 4.27040e-08 ,4.35430e-08 ,4.43810e-08 ,4.52210e-08 ,4.60630e-08 , & - 4.69135e-08 ,4.77585e-08 ,4.86135e-08 ,4.94585e-08 ,5.03230e-08 , & - 5.11740e-08 ,5.20250e-08 ,5.28940e-08 ,5.37465e-08 ,5.46175e-08 , & - 5.54700e-08 ,5.63430e-08 ,5.72085e-08 ,5.80735e-08 ,5.89430e-08 , & - 5.98015e-08 ,6.06680e-08 ,6.15380e-08 ,6.24130e-08 ,6.32755e-08 , & - 6.41340e-08 ,6.50060e-08 ,6.58690e-08 ,6.67315e-08 ,6.76025e-08 , & - 6.84585e-08 ,6.93205e-08 ,7.01845e-08 ,7.10485e-08 ,7.19160e-08 , & - 7.27695e-08 ,7.36145e-08 ,7.44840e-08 ,7.53405e-08 ,7.61770e-08 , & - 7.70295e-08 ,7.78745e-08 ,7.87350e-08 ,7.95740e-08 ,8.04150e-08 , & - 8.12565e-08 ,8.20885e-08 ,8.29455e-08 ,8.37830e-08 ,8.46035e-08 /) - totplnkderiv(51:100, 3) = (/ & - 8.54315e-08 ,8.62770e-08 ,8.70975e-08 ,8.79140e-08 ,8.87190e-08 , & - 8.95625e-08 ,9.03625e-08 ,9.11795e-08 ,9.19930e-08 ,9.27685e-08 , & - 9.36095e-08 ,9.43785e-08 ,9.52375e-08 ,9.59905e-08 ,9.67680e-08 , & - 9.75840e-08 ,9.83755e-08 ,9.91710e-08 ,9.99445e-08 ,1.00706e-07 , & - 1.01477e-07 ,1.02255e-07 ,1.03021e-07 ,1.03776e-07 ,1.04544e-07 , & - 1.05338e-07 ,1.06082e-07 ,1.06843e-07 ,1.07543e-07 ,1.08298e-07 , & - 1.09103e-07 ,1.09812e-07 ,1.10536e-07 ,1.11268e-07 ,1.12027e-07 , & - 1.12727e-07 ,1.13464e-07 ,1.14183e-07 ,1.15037e-07 ,1.15615e-07 , & - 1.16329e-07 ,1.17057e-07 ,1.17734e-07 ,1.18448e-07 ,1.19149e-07 , & - 1.19835e-07 ,1.20512e-07 ,1.21127e-07 ,1.21895e-07 ,1.22581e-07 /) - totplnkderiv(101:150, 3) = (/ & - 1.23227e-07 ,1.23928e-07 ,1.24560e-07 ,1.25220e-07 ,1.25895e-07 , & - 1.26565e-07 ,1.27125e-07 ,1.27855e-07 ,1.28490e-07 ,1.29195e-07 , & - 1.29790e-07 ,1.30470e-07 ,1.31070e-07 ,1.31690e-07 ,1.32375e-07 , & - 1.32960e-07 ,1.33570e-07 ,1.34230e-07 ,1.34840e-07 ,1.35315e-07 , & - 1.35990e-07 ,1.36555e-07 ,1.37265e-07 ,1.37945e-07 ,1.38425e-07 , & - 1.38950e-07 ,1.39640e-07 ,1.40220e-07 ,1.40775e-07 ,1.41400e-07 , & - 1.42020e-07 ,1.42500e-07 ,1.43085e-07 ,1.43680e-07 ,1.44255e-07 , & - 1.44855e-07 ,1.45385e-07 ,1.45890e-07 ,1.46430e-07 ,1.46920e-07 , & - 1.47715e-07 ,1.48090e-07 ,1.48695e-07 ,1.49165e-07 ,1.49715e-07 , & - 1.50130e-07 ,1.50720e-07 ,1.51330e-07 ,1.51725e-07 ,1.52350e-07 /) - totplnkderiv(151:181, 3) = (/ & - 1.52965e-07 ,1.53305e-07 ,1.53915e-07 ,1.54280e-07 ,1.54950e-07 , & - 1.55370e-07 ,1.55850e-07 ,1.56260e-07 ,1.56825e-07 ,1.57470e-07 , & - 1.57760e-07 ,1.58295e-07 ,1.58780e-07 ,1.59470e-07 ,1.59940e-07 , & - 1.60325e-07 ,1.60825e-07 ,1.61100e-07 ,1.61605e-07 ,1.62045e-07 , & - 1.62670e-07 ,1.63020e-07 ,1.63625e-07 ,1.63900e-07 ,1.64420e-07 , & - 1.64705e-07 ,1.65430e-07 ,1.65610e-07 ,1.66220e-07 ,1.66585e-07 , & - 1.66965e-07 /) - totplnkderiv(1:50, 4) = (/ & - 3.32829e-08 ,3.41160e-08 ,3.49626e-08 ,3.58068e-08 ,3.66765e-08 , & - 3.75320e-08 ,3.84095e-08 ,3.92920e-08 ,4.01830e-08 ,4.10715e-08 , & - 4.19735e-08 ,4.28835e-08 ,4.37915e-08 ,4.47205e-08 ,4.56410e-08 , & - 4.65770e-08 ,4.75090e-08 ,4.84530e-08 ,4.93975e-08 ,5.03470e-08 , & - 5.13000e-08 ,5.22560e-08 ,5.32310e-08 ,5.41865e-08 ,5.51655e-08 , & - 5.61590e-08 ,5.71120e-08 ,5.81075e-08 ,5.91060e-08 ,6.00895e-08 , & - 6.10750e-08 ,6.20740e-08 ,6.30790e-08 ,6.40765e-08 ,6.50940e-08 , & - 6.60895e-08 ,6.71230e-08 ,6.81200e-08 ,6.91260e-08 ,7.01485e-08 , & - 7.11625e-08 ,7.21870e-08 ,7.32010e-08 ,7.42080e-08 ,7.52285e-08 , & - 7.62930e-08 ,7.73040e-08 ,7.83185e-08 ,7.93410e-08 ,8.03560e-08 /) - totplnkderiv(51:100, 4) = (/ & - 8.14115e-08 ,8.24200e-08 ,8.34555e-08 ,8.45100e-08 ,8.55265e-08 , & - 8.65205e-08 ,8.75615e-08 ,8.85870e-08 ,8.96175e-08 ,9.07015e-08 , & - 9.16475e-08 ,9.27525e-08 ,9.37055e-08 ,9.47375e-08 ,9.57995e-08 , & - 9.67635e-08 ,9.77980e-08 ,9.87735e-08 ,9.98485e-08 ,1.00904e-07 , & - 1.01900e-07 ,1.02876e-07 ,1.03905e-07 ,1.04964e-07 ,1.05956e-07 , & - 1.06870e-07 ,1.07952e-07 ,1.08944e-07 ,1.10003e-07 ,1.10965e-07 , & - 1.11952e-07 ,1.12927e-07 ,1.13951e-07 ,1.14942e-07 ,1.15920e-07 , & - 1.16968e-07 ,1.17877e-07 ,1.18930e-07 ,1.19862e-07 ,1.20817e-07 , & - 1.21817e-07 ,1.22791e-07 ,1.23727e-07 ,1.24751e-07 ,1.25697e-07 , & - 1.26634e-07 ,1.27593e-07 ,1.28585e-07 ,1.29484e-07 ,1.30485e-07 /) - totplnkderiv(101:150, 4) = (/ & - 1.31363e-07 ,1.32391e-07 ,1.33228e-07 ,1.34155e-07 ,1.35160e-07 , & - 1.36092e-07 ,1.37070e-07 ,1.37966e-07 ,1.38865e-07 ,1.39740e-07 , & - 1.40770e-07 ,1.41620e-07 ,1.42605e-07 ,1.43465e-07 ,1.44240e-07 , & - 1.45305e-07 ,1.46220e-07 ,1.47070e-07 ,1.47935e-07 ,1.48890e-07 , & - 1.49905e-07 ,1.50640e-07 ,1.51435e-07 ,1.52335e-07 ,1.53235e-07 , & - 1.54045e-07 ,1.54895e-07 ,1.55785e-07 ,1.56870e-07 ,1.57360e-07 , & - 1.58395e-07 ,1.59185e-07 ,1.60060e-07 ,1.60955e-07 ,1.61770e-07 , & - 1.62445e-07 ,1.63415e-07 ,1.64170e-07 ,1.65125e-07 ,1.65995e-07 , & - 1.66545e-07 ,1.67580e-07 ,1.68295e-07 ,1.69130e-07 ,1.69935e-07 , & - 1.70800e-07 ,1.71610e-07 ,1.72365e-07 ,1.73215e-07 ,1.73770e-07 /) - totplnkderiv(151:181, 4) = (/ & - 1.74590e-07 ,1.75525e-07 ,1.76095e-07 ,1.77125e-07 ,1.77745e-07 , & - 1.78580e-07 ,1.79315e-07 ,1.80045e-07 ,1.80695e-07 ,1.81580e-07 , & - 1.82360e-07 ,1.83205e-07 ,1.84055e-07 ,1.84315e-07 ,1.85225e-07 , & - 1.85865e-07 ,1.86660e-07 ,1.87445e-07 ,1.88350e-07 ,1.88930e-07 , & - 1.89420e-07 ,1.90275e-07 ,1.90630e-07 ,1.91650e-07 ,1.92485e-07 , & - 1.93285e-07 ,1.93695e-07 ,1.94595e-07 ,1.94895e-07 ,1.95960e-07 , & - 1.96525e-07 /) - totplnkderiv(1:50, 5) = (/ & - 2.41948e-08 ,2.49273e-08 ,2.56705e-08 ,2.64263e-08 ,2.71899e-08 , & - 2.79687e-08 ,2.87531e-08 ,2.95520e-08 ,3.03567e-08 ,3.11763e-08 , & - 3.20014e-08 ,3.28390e-08 ,3.36865e-08 ,3.45395e-08 ,3.54083e-08 , & - 3.62810e-08 ,3.71705e-08 ,3.80585e-08 ,3.89650e-08 ,3.98750e-08 , & - 4.07955e-08 ,4.17255e-08 ,4.26635e-08 ,4.36095e-08 ,4.45605e-08 , & - 4.55190e-08 ,4.64910e-08 ,4.74670e-08 ,4.84480e-08 ,4.94430e-08 , & - 5.04460e-08 ,5.14440e-08 ,5.24500e-08 ,5.34835e-08 ,5.44965e-08 , & - 5.55325e-08 ,5.65650e-08 ,5.76050e-08 ,5.86615e-08 ,5.97175e-08 , & - 6.07750e-08 ,6.18400e-08 ,6.29095e-08 ,6.39950e-08 ,6.50665e-08 , & - 6.61405e-08 ,6.72290e-08 ,6.82800e-08 ,6.94445e-08 ,7.05460e-08 /) - totplnkderiv(51:100, 5) = (/ & - 7.16400e-08 ,7.27475e-08 ,7.38790e-08 ,7.49845e-08 ,7.61270e-08 , & - 7.72375e-08 ,7.83770e-08 ,7.95045e-08 ,8.06315e-08 ,8.17715e-08 , & - 8.29275e-08 ,8.40555e-08 ,8.52110e-08 ,8.63565e-08 ,8.75045e-08 , & - 8.86735e-08 ,8.98150e-08 ,9.09970e-08 ,9.21295e-08 ,9.32730e-08 , & - 9.44605e-08 ,9.56170e-08 ,9.67885e-08 ,9.79275e-08 ,9.91190e-08 , & - 1.00278e-07 ,1.01436e-07 ,1.02625e-07 ,1.03792e-07 ,1.04989e-07 , & - 1.06111e-07 ,1.07320e-07 ,1.08505e-07 ,1.09626e-07 ,1.10812e-07 , & - 1.11948e-07 ,1.13162e-07 ,1.14289e-07 ,1.15474e-07 ,1.16661e-07 , & - 1.17827e-07 ,1.19023e-07 ,1.20167e-07 ,1.21356e-07 ,1.22499e-07 , & - 1.23653e-07 ,1.24876e-07 ,1.25983e-07 ,1.27175e-07 ,1.28325e-07 /) - totplnkderiv(101:150, 5) = (/ & - 1.29517e-07 ,1.30685e-07 ,1.31840e-07 ,1.33013e-07 ,1.34160e-07 , & - 1.35297e-07 ,1.36461e-07 ,1.37630e-07 ,1.38771e-07 ,1.39913e-07 , & - 1.41053e-07 ,1.42218e-07 ,1.43345e-07 ,1.44460e-07 ,1.45692e-07 , & - 1.46697e-07 ,1.47905e-07 ,1.49010e-07 ,1.50210e-07 ,1.51285e-07 , & - 1.52380e-07 ,1.53555e-07 ,1.54655e-07 ,1.55805e-07 ,1.56850e-07 , & - 1.58055e-07 ,1.59115e-07 ,1.60185e-07 ,1.61255e-07 ,1.62465e-07 , & - 1.63575e-07 ,1.64675e-07 ,1.65760e-07 ,1.66765e-07 ,1.67945e-07 , & - 1.69070e-07 ,1.70045e-07 ,1.71145e-07 ,1.72260e-07 ,1.73290e-07 , & - 1.74470e-07 ,1.75490e-07 ,1.76515e-07 ,1.77555e-07 ,1.78660e-07 , & - 1.79670e-07 ,1.80705e-07 ,1.81895e-07 ,1.82745e-07 ,1.83950e-07 /) - totplnkderiv(151:181, 5) = (/ & - 1.84955e-07 ,1.85940e-07 ,1.87080e-07 ,1.88010e-07 ,1.89145e-07 , & - 1.90130e-07 ,1.91110e-07 ,1.92130e-07 ,1.93205e-07 ,1.94230e-07 , & - 1.95045e-07 ,1.96070e-07 ,1.97155e-07 ,1.98210e-07 ,1.99080e-07 , & - 2.00280e-07 ,2.01135e-07 ,2.02150e-07 ,2.03110e-07 ,2.04135e-07 , & - 2.05110e-07 ,2.06055e-07 ,2.07120e-07 ,2.08075e-07 ,2.08975e-07 , & - 2.09950e-07 ,2.10870e-07 ,2.11830e-07 ,2.12960e-07 ,2.13725e-07 , & - 2.14765e-07 /) - totplnkderiv(1:50, 6) = (/ & - 1.36567e-08 ,1.41766e-08 ,1.47079e-08 ,1.52499e-08 ,1.58075e-08 , & - 1.63727e-08 ,1.69528e-08 ,1.75429e-08 ,1.81477e-08 ,1.87631e-08 , & - 1.93907e-08 ,2.00297e-08 ,2.06808e-08 ,2.13432e-08 ,2.20183e-08 , & - 2.27076e-08 ,2.34064e-08 ,2.41181e-08 ,2.48400e-08 ,2.55750e-08 , & - 2.63231e-08 ,2.70790e-08 ,2.78502e-08 ,2.86326e-08 ,2.94259e-08 , & - 3.02287e-08 ,3.10451e-08 ,3.18752e-08 ,3.27108e-08 ,3.35612e-08 , & - 3.44198e-08 ,3.52930e-08 ,3.61785e-08 ,3.70690e-08 ,3.79725e-08 , & - 3.88845e-08 ,3.98120e-08 ,4.07505e-08 ,4.16965e-08 ,4.26515e-08 , & - 4.36190e-08 ,4.45925e-08 ,4.55760e-08 ,4.65735e-08 ,4.75835e-08 , & - 4.85970e-08 ,4.96255e-08 ,5.06975e-08 ,5.16950e-08 ,5.27530e-08 /) - totplnkderiv(51:100, 6) = (/ & - 5.38130e-08 ,5.48860e-08 ,5.59715e-08 ,5.70465e-08 ,5.81385e-08 , & - 5.92525e-08 ,6.03565e-08 ,6.14815e-08 ,6.26175e-08 ,6.37475e-08 , & - 6.48855e-08 ,6.60340e-08 ,6.71980e-08 ,6.83645e-08 ,6.95430e-08 , & - 7.07145e-08 ,7.19015e-08 ,7.30995e-08 ,7.43140e-08 ,7.55095e-08 , & - 7.67115e-08 ,7.79485e-08 ,7.91735e-08 ,8.03925e-08 ,8.16385e-08 , & - 8.28775e-08 ,8.41235e-08 ,8.53775e-08 ,8.66405e-08 ,8.78940e-08 , & - 8.91805e-08 ,9.04515e-08 ,9.17290e-08 ,9.30230e-08 ,9.43145e-08 , & - 9.56200e-08 ,9.69160e-08 ,9.82140e-08 ,9.95285e-08 ,1.00829e-07 , & - 1.02145e-07 ,1.03478e-07 ,1.04787e-07 ,1.06095e-07 ,1.07439e-07 , & - 1.08785e-07 ,1.10078e-07 ,1.11466e-07 ,1.12795e-07 ,1.14133e-07 /) - totplnkderiv(101:150, 6) = (/ & - 1.15479e-07 ,1.16825e-07 ,1.18191e-07 ,1.19540e-07 ,1.20908e-07 , & - 1.22257e-07 ,1.23634e-07 ,1.24992e-07 ,1.26345e-07 ,1.27740e-07 , & - 1.29098e-07 ,1.30447e-07 ,1.31831e-07 ,1.33250e-07 ,1.34591e-07 , & - 1.36011e-07 ,1.37315e-07 ,1.38721e-07 ,1.40103e-07 ,1.41504e-07 , & - 1.42882e-07 ,1.44259e-07 ,1.45674e-07 ,1.46997e-07 ,1.48412e-07 , & - 1.49794e-07 ,1.51167e-07 ,1.52577e-07 ,1.53941e-07 ,1.55369e-07 , & - 1.56725e-07 ,1.58125e-07 ,1.59460e-07 ,1.60895e-07 ,1.62260e-07 , & - 1.63610e-07 ,1.65085e-07 ,1.66410e-07 ,1.67805e-07 ,1.69185e-07 , & - 1.70570e-07 ,1.71915e-07 ,1.73375e-07 ,1.74775e-07 ,1.76090e-07 , & - 1.77485e-07 ,1.78905e-07 ,1.80190e-07 ,1.81610e-07 ,1.82960e-07 /) - totplnkderiv(151:181, 6) = (/ & - 1.84330e-07 ,1.85750e-07 ,1.87060e-07 ,1.88470e-07 ,1.89835e-07 , & - 1.91250e-07 ,1.92565e-07 ,1.93925e-07 ,1.95220e-07 ,1.96620e-07 , & - 1.98095e-07 ,1.99330e-07 ,2.00680e-07 ,2.02090e-07 ,2.03360e-07 , & - 2.04775e-07 ,2.06080e-07 ,2.07440e-07 ,2.08820e-07 ,2.10095e-07 , & - 2.11445e-07 ,2.12785e-07 ,2.14050e-07 ,2.15375e-07 ,2.16825e-07 , & - 2.18080e-07 ,2.19345e-07 ,2.20710e-07 ,2.21980e-07 ,2.23425e-07 , & - 2.24645e-07 /) - totplnkderiv(1:50, 7) = (/ & - 7.22270e-09 ,7.55350e-09 ,7.89480e-09 ,8.24725e-09 ,8.60780e-09 , & - 8.98215e-09 ,9.36430e-09 ,9.76035e-09 ,1.01652e-08 ,1.05816e-08 , & - 1.10081e-08 ,1.14480e-08 ,1.18981e-08 ,1.23600e-08 ,1.28337e-08 , & - 1.33172e-08 ,1.38139e-08 ,1.43208e-08 ,1.48413e-08 ,1.53702e-08 , & - 1.59142e-08 ,1.64704e-08 ,1.70354e-08 ,1.76178e-08 ,1.82065e-08 , & - 1.88083e-08 ,1.94237e-08 ,2.00528e-08 ,2.06913e-08 ,2.13413e-08 , & - 2.20058e-08 ,2.26814e-08 ,2.33686e-08 ,2.40729e-08 ,2.47812e-08 , & - 2.55099e-08 ,2.62449e-08 ,2.69966e-08 ,2.77569e-08 ,2.85269e-08 , & - 2.93144e-08 ,3.01108e-08 ,3.09243e-08 ,3.17433e-08 ,3.25756e-08 , & - 3.34262e-08 ,3.42738e-08 ,3.51480e-08 ,3.60285e-08 ,3.69160e-08 /) - totplnkderiv(51:100, 7) = (/ & - 3.78235e-08 ,3.87390e-08 ,3.96635e-08 ,4.06095e-08 ,4.15600e-08 , & - 4.25180e-08 ,4.34895e-08 ,4.44800e-08 ,4.54715e-08 ,4.64750e-08 , & - 4.74905e-08 ,4.85210e-08 ,4.95685e-08 ,5.06135e-08 ,5.16725e-08 , & - 5.27480e-08 ,5.38265e-08 ,5.49170e-08 ,5.60120e-08 ,5.71275e-08 , & - 5.82610e-08 ,5.93775e-08 ,6.05245e-08 ,6.17025e-08 ,6.28355e-08 , & - 6.40135e-08 ,6.52015e-08 ,6.63865e-08 ,6.75790e-08 ,6.88120e-08 , & - 7.00070e-08 ,7.12335e-08 ,7.24720e-08 ,7.37340e-08 ,7.49775e-08 , & - 7.62415e-08 ,7.75185e-08 ,7.87915e-08 ,8.00875e-08 ,8.13630e-08 , & - 8.26710e-08 ,8.39645e-08 ,8.53060e-08 ,8.66305e-08 ,8.79915e-08 , & - 8.93080e-08 ,9.06560e-08 ,9.19860e-08 ,9.33550e-08 ,9.47305e-08 /) - totplnkderiv(101:150, 7) = (/ & - 9.61180e-08 ,9.74500e-08 ,9.88850e-08 ,1.00263e-07 ,1.01688e-07 , & - 1.03105e-07 ,1.04489e-07 ,1.05906e-07 ,1.07345e-07 ,1.08771e-07 , & - 1.10220e-07 ,1.11713e-07 ,1.13098e-07 ,1.14515e-07 ,1.16019e-07 , & - 1.17479e-07 ,1.18969e-07 ,1.20412e-07 ,1.21852e-07 ,1.23387e-07 , & - 1.24851e-07 ,1.26319e-07 ,1.27811e-07 ,1.29396e-07 ,1.30901e-07 , & - 1.32358e-07 ,1.33900e-07 ,1.35405e-07 ,1.36931e-07 ,1.38443e-07 , & - 1.39985e-07 ,1.41481e-07 ,1.43072e-07 ,1.44587e-07 ,1.46133e-07 , & - 1.47698e-07 ,1.49203e-07 ,1.50712e-07 ,1.52363e-07 ,1.53795e-07 , & - 1.55383e-07 ,1.56961e-07 ,1.58498e-07 ,1.60117e-07 ,1.61745e-07 , & - 1.63190e-07 ,1.64790e-07 ,1.66370e-07 ,1.67975e-07 ,1.69555e-07 /) - totplnkderiv(151:181, 7) = (/ & - 1.71060e-07 ,1.72635e-07 ,1.74345e-07 ,1.75925e-07 ,1.77395e-07 , & - 1.78960e-07 ,1.80620e-07 ,1.82180e-07 ,1.83840e-07 ,1.85340e-07 , & - 1.86940e-07 ,1.88550e-07 ,1.90095e-07 ,1.91670e-07 ,1.93385e-07 , & - 1.94895e-07 ,1.96500e-07 ,1.98090e-07 ,1.99585e-07 ,2.01280e-07 , & - 2.02950e-07 ,2.04455e-07 ,2.06075e-07 ,2.07635e-07 ,2.09095e-07 , & - 2.10865e-07 ,2.12575e-07 ,2.14050e-07 ,2.15630e-07 ,2.17060e-07 , & - 2.18715e-07 /) - totplnkderiv(1:50, 8) = (/ & - 4.26397e-09 ,4.48470e-09 ,4.71299e-09 ,4.94968e-09 ,5.19542e-09 , & - 5.44847e-09 ,5.71195e-09 ,5.98305e-09 ,6.26215e-09 ,6.55290e-09 , & - 6.85190e-09 ,7.15950e-09 ,7.47745e-09 ,7.80525e-09 ,8.14190e-09 , & - 8.48915e-09 ,8.84680e-09 ,9.21305e-09 ,9.59105e-09 ,9.98130e-09 , & - 1.03781e-08 ,1.07863e-08 ,1.12094e-08 ,1.16371e-08 ,1.20802e-08 , & - 1.25327e-08 ,1.29958e-08 ,1.34709e-08 ,1.39592e-08 ,1.44568e-08 , & - 1.49662e-08 ,1.54828e-08 ,1.60186e-08 ,1.65612e-08 ,1.71181e-08 , & - 1.76822e-08 ,1.82591e-08 ,1.88487e-08 ,1.94520e-08 ,2.00691e-08 , & - 2.06955e-08 ,2.13353e-08 ,2.19819e-08 ,2.26479e-08 ,2.33234e-08 , & - 2.40058e-08 ,2.47135e-08 ,2.54203e-08 ,2.61414e-08 ,2.68778e-08 /) - totplnkderiv(51:100, 8) = (/ & - 2.76265e-08 ,2.83825e-08 ,2.91632e-08 ,2.99398e-08 ,3.07389e-08 , & - 3.15444e-08 ,3.23686e-08 ,3.31994e-08 ,3.40487e-08 ,3.49020e-08 , & - 3.57715e-08 ,3.66515e-08 ,3.75465e-08 ,3.84520e-08 ,3.93675e-08 , & - 4.02985e-08 ,4.12415e-08 ,4.21965e-08 ,4.31630e-08 ,4.41360e-08 , & - 4.51220e-08 ,4.61235e-08 ,4.71440e-08 ,4.81515e-08 ,4.91905e-08 , & - 5.02395e-08 ,5.12885e-08 ,5.23735e-08 ,5.34460e-08 ,5.45245e-08 , & - 5.56375e-08 ,5.67540e-08 ,5.78780e-08 ,5.90065e-08 ,6.01520e-08 , & - 6.13000e-08 ,6.24720e-08 ,6.36530e-08 ,6.48500e-08 ,6.60500e-08 , & - 6.72435e-08 ,6.84735e-08 ,6.97025e-08 ,7.09530e-08 ,7.21695e-08 , & - 7.34270e-08 ,7.47295e-08 ,7.59915e-08 ,7.72685e-08 ,7.85925e-08 /) - totplnkderiv(101:150, 8) = (/ & - 7.98855e-08 ,8.12205e-08 ,8.25120e-08 ,8.38565e-08 ,8.52005e-08 , & - 8.65570e-08 ,8.79075e-08 ,8.92920e-08 ,9.06535e-08 ,9.20455e-08 , & - 9.34230e-08 ,9.48355e-08 ,9.62720e-08 ,9.76890e-08 ,9.90755e-08 , & - 1.00528e-07 ,1.01982e-07 ,1.03436e-07 ,1.04919e-07 ,1.06368e-07 , & - 1.07811e-07 ,1.09326e-07 ,1.10836e-07 ,1.12286e-07 ,1.13803e-07 , & - 1.15326e-07 ,1.16809e-07 ,1.18348e-07 ,1.19876e-07 ,1.21413e-07 , & - 1.22922e-07 ,1.24524e-07 ,1.26049e-07 ,1.27573e-07 ,1.29155e-07 , & - 1.30708e-07 ,1.32327e-07 ,1.33958e-07 ,1.35480e-07 ,1.37081e-07 , & - 1.38716e-07 ,1.40326e-07 ,1.41872e-07 ,1.43468e-07 ,1.45092e-07 , & - 1.46806e-07 ,1.48329e-07 ,1.49922e-07 ,1.51668e-07 ,1.53241e-07 /) - totplnkderiv(151:181, 8) = (/ & - 1.54996e-07 ,1.56561e-07 ,1.58197e-07 ,1.59884e-07 ,1.61576e-07 , & - 1.63200e-07 ,1.64885e-07 ,1.66630e-07 ,1.68275e-07 ,1.69935e-07 , & - 1.71650e-07 ,1.73245e-07 ,1.75045e-07 ,1.76710e-07 ,1.78330e-07 , & - 1.79995e-07 ,1.81735e-07 ,1.83470e-07 ,1.85200e-07 ,1.86890e-07 , & - 1.88595e-07 ,1.90300e-07 ,1.91995e-07 ,1.93715e-07 ,1.95495e-07 , & - 1.97130e-07 ,1.98795e-07 ,2.00680e-07 ,2.02365e-07 ,2.04090e-07 , & - 2.05830e-07 /) - totplnkderiv(1:50, 9) = (/ & - 1.85410e-09 ,1.96515e-09 ,2.08117e-09 ,2.20227e-09 ,2.32861e-09 , & - 2.46066e-09 ,2.59812e-09 ,2.74153e-09 ,2.89058e-09 ,3.04567e-09 , & - 3.20674e-09 ,3.37442e-09 ,3.54854e-09 ,3.72892e-09 ,3.91630e-09 , & - 4.11013e-09 ,4.31150e-09 ,4.52011e-09 ,4.73541e-09 ,4.95870e-09 , & - 5.18913e-09 ,5.42752e-09 ,5.67340e-09 ,5.92810e-09 ,6.18995e-09 , & - 6.46055e-09 ,6.73905e-09 ,7.02620e-09 ,7.32260e-09 ,7.62700e-09 , & - 7.94050e-09 ,8.26370e-09 ,8.59515e-09 ,8.93570e-09 ,9.28535e-09 , & - 9.64575e-09 ,1.00154e-08 ,1.03944e-08 ,1.07839e-08 ,1.11832e-08 , & - 1.15909e-08 ,1.20085e-08 ,1.24399e-08 ,1.28792e-08 ,1.33280e-08 , & - 1.37892e-08 ,1.42573e-08 ,1.47408e-08 ,1.52345e-08 ,1.57371e-08 /) - totplnkderiv(51:100, 9) = (/ & - 1.62496e-08 ,1.67756e-08 ,1.73101e-08 ,1.78596e-08 ,1.84161e-08 , & - 1.89869e-08 ,1.95681e-08 ,2.01632e-08 ,2.07626e-08 ,2.13800e-08 , & - 2.20064e-08 ,2.26453e-08 ,2.32970e-08 ,2.39595e-08 ,2.46340e-08 , & - 2.53152e-08 ,2.60158e-08 ,2.67235e-08 ,2.74471e-08 ,2.81776e-08 , & - 2.89233e-08 ,2.96822e-08 ,3.04488e-08 ,3.12298e-08 ,3.20273e-08 , & - 3.28304e-08 ,3.36455e-08 ,3.44765e-08 ,3.53195e-08 ,3.61705e-08 , & - 3.70385e-08 ,3.79155e-08 ,3.88065e-08 ,3.97055e-08 ,4.06210e-08 , & - 4.15490e-08 ,4.24825e-08 ,4.34355e-08 ,4.43920e-08 ,4.53705e-08 , & - 4.63560e-08 ,4.73565e-08 ,4.83655e-08 ,4.93815e-08 ,5.04180e-08 , & - 5.14655e-08 ,5.25175e-08 ,5.35865e-08 ,5.46720e-08 ,5.57670e-08 /) - totplnkderiv(101:150, 9) = (/ & - 5.68640e-08 ,5.79825e-08 ,5.91140e-08 ,6.02515e-08 ,6.13985e-08 , & - 6.25525e-08 ,6.37420e-08 ,6.49220e-08 ,6.61145e-08 ,6.73185e-08 , & - 6.85520e-08 ,6.97760e-08 ,7.10050e-08 ,7.22650e-08 ,7.35315e-08 , & - 7.48035e-08 ,7.60745e-08 ,7.73740e-08 ,7.86870e-08 ,7.99845e-08 , & - 8.13325e-08 ,8.26615e-08 ,8.40010e-08 ,8.53640e-08 ,8.67235e-08 , & - 8.80960e-08 ,8.95055e-08 ,9.08945e-08 ,9.23045e-08 ,9.37100e-08 , & - 9.51555e-08 ,9.65630e-08 ,9.80235e-08 ,9.94920e-08 ,1.00966e-07 , & - 1.02434e-07 ,1.03898e-07 ,1.05386e-07 ,1.06905e-07 ,1.08418e-07 , & - 1.09926e-07 ,1.11454e-07 ,1.13010e-07 ,1.14546e-07 ,1.16106e-07 , & - 1.17652e-07 ,1.19264e-07 ,1.20817e-07 ,1.22395e-07 ,1.24024e-07 /) - totplnkderiv(151:181, 9) = (/ & - 1.25585e-07 ,1.27213e-07 ,1.28817e-07 ,1.30472e-07 ,1.32088e-07 , & - 1.33752e-07 ,1.35367e-07 ,1.37018e-07 ,1.38698e-07 ,1.40394e-07 , & - 1.42026e-07 ,1.43796e-07 ,1.45438e-07 ,1.47175e-07 ,1.48866e-07 , & - 1.50576e-07 ,1.52281e-07 ,1.54018e-07 ,1.55796e-07 ,1.57515e-07 , & - 1.59225e-07 ,1.60989e-07 ,1.62754e-07 ,1.64532e-07 ,1.66285e-07 , & - 1.68070e-07 ,1.69870e-07 ,1.71625e-07 ,1.73440e-07 ,1.75275e-07 , & - 1.77040e-07 /) - totplnkderiv(1:50,10) = (/ & - 7.14917e-10 ,7.64833e-10 ,8.17460e-10 ,8.72980e-10 ,9.31380e-10 , & - 9.92940e-10 ,1.05746e-09 ,1.12555e-09 ,1.19684e-09 ,1.27162e-09 , & - 1.35001e-09 ,1.43229e-09 ,1.51815e-09 ,1.60831e-09 ,1.70271e-09 , & - 1.80088e-09 ,1.90365e-09 ,2.01075e-09 ,2.12261e-09 ,2.23924e-09 , & - 2.36057e-09 ,2.48681e-09 ,2.61814e-09 ,2.75506e-09 ,2.89692e-09 , & - 3.04423e-09 ,3.19758e-09 ,3.35681e-09 ,3.52113e-09 ,3.69280e-09 , & - 3.86919e-09 ,4.05205e-09 ,4.24184e-09 ,4.43877e-09 ,4.64134e-09 , & - 4.85088e-09 ,5.06670e-09 ,5.29143e-09 ,5.52205e-09 ,5.75980e-09 , & - 6.00550e-09 ,6.25840e-09 ,6.51855e-09 ,6.78800e-09 ,7.06435e-09 , & - 7.34935e-09 ,7.64220e-09 ,7.94470e-09 ,8.25340e-09 ,8.57030e-09 /) - totplnkderiv(51:100,10) = (/ & - 8.89680e-09 ,9.23255e-09 ,9.57770e-09 ,9.93045e-09 ,1.02932e-08 , & - 1.06649e-08 ,1.10443e-08 ,1.14348e-08 ,1.18350e-08 ,1.22463e-08 , & - 1.26679e-08 ,1.30949e-08 ,1.35358e-08 ,1.39824e-08 ,1.44425e-08 , & - 1.49126e-08 ,1.53884e-08 ,1.58826e-08 ,1.63808e-08 ,1.68974e-08 , & - 1.74159e-08 ,1.79447e-08 ,1.84886e-08 ,1.90456e-08 ,1.96124e-08 , & - 2.01863e-08 ,2.07737e-08 ,2.13720e-08 ,2.19837e-08 ,2.26044e-08 , & - 2.32396e-08 ,2.38856e-08 ,2.45344e-08 ,2.52055e-08 ,2.58791e-08 , & - 2.65706e-08 ,2.72758e-08 ,2.79852e-08 ,2.87201e-08 ,2.94518e-08 , & - 3.02063e-08 ,3.09651e-08 ,3.17357e-08 ,3.25235e-08 ,3.33215e-08 , & - 3.41285e-08 ,3.49485e-08 ,3.57925e-08 ,3.66330e-08 ,3.74765e-08 /) - totplnkderiv(101:150,10) = (/ & - 3.83675e-08 ,3.92390e-08 ,4.01330e-08 ,4.10340e-08 ,4.19585e-08 , & - 4.28815e-08 ,4.38210e-08 ,4.47770e-08 ,4.57575e-08 ,4.67325e-08 , & - 4.77170e-08 ,4.87205e-08 ,4.97410e-08 ,5.07620e-08 ,5.18180e-08 , & - 5.28540e-08 ,5.39260e-08 ,5.50035e-08 ,5.60885e-08 ,5.71900e-08 , & - 5.82940e-08 ,5.94380e-08 ,6.05690e-08 ,6.17185e-08 ,6.28860e-08 , & - 6.40670e-08 ,6.52300e-08 ,6.64225e-08 ,6.76485e-08 ,6.88715e-08 , & - 7.00750e-08 ,7.13760e-08 ,7.25910e-08 ,7.38860e-08 ,7.51290e-08 , & - 7.64420e-08 ,7.77550e-08 ,7.90725e-08 ,8.03825e-08 ,8.17330e-08 , & - 8.30810e-08 ,8.44330e-08 ,8.57720e-08 ,8.72115e-08 ,8.85800e-08 , & - 8.99945e-08 ,9.13905e-08 ,9.28345e-08 ,9.42665e-08 ,9.56765e-08 /) - totplnkderiv(151:181,10) = (/ & - 9.72000e-08 ,9.86780e-08 ,1.00105e-07 ,1.01616e-07 ,1.03078e-07 , & - 1.04610e-07 ,1.06154e-07 ,1.07639e-07 ,1.09242e-07 ,1.10804e-07 , & - 1.12384e-07 ,1.13871e-07 ,1.15478e-07 ,1.17066e-07 ,1.18703e-07 , & - 1.20294e-07 ,1.21930e-07 ,1.23543e-07 ,1.25169e-07 ,1.26806e-07 , & - 1.28503e-07 ,1.30233e-07 ,1.31834e-07 ,1.33596e-07 ,1.35283e-07 , & - 1.36947e-07 ,1.38594e-07 ,1.40362e-07 ,1.42131e-07 ,1.43823e-07 , & - 1.45592e-07 /) - totplnkderiv(1:50,11) = (/ & - 2.25919e-10 ,2.43810e-10 ,2.62866e-10 ,2.83125e-10 ,3.04676e-10 , & - 3.27536e-10 ,3.51796e-10 ,3.77498e-10 ,4.04714e-10 ,4.33528e-10 , & - 4.64000e-10 ,4.96185e-10 ,5.30165e-10 ,5.65999e-10 ,6.03749e-10 , & - 6.43579e-10 ,6.85479e-10 ,7.29517e-10 ,7.75810e-10 ,8.24440e-10 , & - 8.75520e-10 ,9.29065e-10 ,9.85175e-10 ,1.04405e-09 ,1.10562e-09 , & - 1.17005e-09 ,1.23742e-09 ,1.30780e-09 ,1.38141e-09 ,1.45809e-09 , & - 1.53825e-09 ,1.62177e-09 ,1.70884e-09 ,1.79942e-09 ,1.89390e-09 , & - 1.99205e-09 ,2.09429e-09 ,2.20030e-09 ,2.31077e-09 ,2.42510e-09 , & - 2.54410e-09 ,2.66754e-09 ,2.79529e-09 ,2.92777e-09 ,3.06498e-09 , & - 3.20691e-09 ,3.35450e-09 ,3.50653e-09 ,3.66427e-09 ,3.82723e-09 /) - totplnkderiv(51:100,11) = (/ & - 3.99549e-09 ,4.16911e-09 ,4.34892e-09 ,4.53415e-09 ,4.72504e-09 , & - 4.92197e-09 ,5.12525e-09 ,5.33485e-09 ,5.55085e-09 ,5.77275e-09 , & - 6.00105e-09 ,6.23650e-09 ,6.47855e-09 ,6.72735e-09 ,6.98325e-09 , & - 7.24695e-09 ,7.51730e-09 ,7.79480e-09 ,8.07975e-09 ,8.37170e-09 , & - 8.67195e-09 ,8.98050e-09 ,9.29575e-09 ,9.61950e-09 ,9.95150e-09 , & - 1.02912e-08 ,1.06397e-08 ,1.09964e-08 ,1.13611e-08 ,1.17348e-08 , & - 1.21158e-08 ,1.25072e-08 ,1.29079e-08 ,1.33159e-08 ,1.37342e-08 , & - 1.41599e-08 ,1.45966e-08 ,1.50438e-08 ,1.54964e-08 ,1.59605e-08 , & - 1.64337e-08 ,1.69189e-08 ,1.74134e-08 ,1.79136e-08 ,1.84272e-08 , & - 1.89502e-08 ,1.94845e-08 ,2.00248e-08 ,2.05788e-08 ,2.11455e-08 /) - totplnkderiv(101:150,11) = (/ & - 2.17159e-08 ,2.23036e-08 ,2.28983e-08 ,2.35033e-08 ,2.41204e-08 , & - 2.47485e-08 ,2.53860e-08 ,2.60331e-08 ,2.66891e-08 ,2.73644e-08 , & - 2.80440e-08 ,2.87361e-08 ,2.94412e-08 ,3.01560e-08 ,3.08805e-08 , & - 3.16195e-08 ,3.23690e-08 ,3.31285e-08 ,3.39015e-08 ,3.46820e-08 , & - 3.54770e-08 ,3.62805e-08 ,3.70960e-08 ,3.79295e-08 ,3.87715e-08 , & - 3.96185e-08 ,4.04860e-08 ,4.13600e-08 ,4.22500e-08 ,4.31490e-08 , & - 4.40610e-08 ,4.49810e-08 ,4.59205e-08 ,4.68650e-08 ,4.78260e-08 , & - 4.87970e-08 ,4.97790e-08 ,5.07645e-08 ,5.17730e-08 ,5.27960e-08 , & - 5.38285e-08 ,5.48650e-08 ,5.59205e-08 ,5.69960e-08 ,5.80690e-08 , & - 5.91570e-08 ,6.02640e-08 ,6.13750e-08 ,6.25015e-08 ,6.36475e-08 /) - totplnkderiv(151:181,11) = (/ & - 6.47950e-08 ,6.59510e-08 ,6.71345e-08 ,6.83175e-08 ,6.95250e-08 , & - 7.07325e-08 ,7.19490e-08 ,7.31880e-08 ,7.44315e-08 ,7.56880e-08 , & - 7.69500e-08 ,7.82495e-08 ,7.95330e-08 ,8.08450e-08 ,8.21535e-08 , & - 8.34860e-08 ,8.48330e-08 ,8.61795e-08 ,8.75480e-08 ,8.89235e-08 , & - 9.03060e-08 ,9.17045e-08 ,9.31140e-08 ,9.45240e-08 ,9.59720e-08 , & - 9.74140e-08 ,9.88825e-08 ,1.00347e-07 ,1.01825e-07 ,1.03305e-07 , & - 1.04826e-07 /) - totplnkderiv(1:50,12) = (/ & - 2.91689e-11 ,3.20300e-11 ,3.51272e-11 ,3.84803e-11 ,4.21014e-11 , & - 4.60107e-11 ,5.02265e-11 ,5.47685e-11 ,5.96564e-11 ,6.49111e-11 , & - 7.05522e-11 ,7.66060e-11 ,8.30974e-11 ,9.00441e-11 ,9.74820e-11 , & - 1.05435e-10 ,1.13925e-10 ,1.22981e-10 ,1.32640e-10 ,1.42933e-10 , & - 1.53882e-10 ,1.65527e-10 ,1.77903e-10 ,1.91054e-10 ,2.05001e-10 , & - 2.19779e-10 ,2.35448e-10 ,2.52042e-10 ,2.69565e-10 ,2.88128e-10 , & - 3.07714e-10 ,3.28370e-10 ,3.50238e-10 ,3.73235e-10 ,3.97433e-10 , & - 4.22964e-10 ,4.49822e-10 ,4.78042e-10 ,5.07721e-10 ,5.38915e-10 , & - 5.71610e-10 ,6.05916e-10 ,6.41896e-10 ,6.79600e-10 ,7.19110e-10 , & - 7.60455e-10 ,8.03625e-10 ,8.48870e-10 ,8.96080e-10 ,9.45490e-10 /) - totplnkderiv(51:100,12) = (/ & - 9.96930e-10 ,1.05071e-09 ,1.10679e-09 ,1.16521e-09 ,1.22617e-09 , & - 1.28945e-09 ,1.35554e-09 ,1.42427e-09 ,1.49574e-09 ,1.56984e-09 , & - 1.64695e-09 ,1.72715e-09 ,1.81034e-09 ,1.89656e-09 ,1.98613e-09 , & - 2.07898e-09 ,2.17515e-09 ,2.27498e-09 ,2.37826e-09 ,2.48517e-09 , & - 2.59566e-09 ,2.71004e-09 ,2.82834e-09 ,2.95078e-09 ,3.07686e-09 , & - 3.20739e-09 ,3.34232e-09 ,3.48162e-09 ,3.62515e-09 ,3.77337e-09 , & - 3.92614e-09 ,4.08317e-09 ,4.24567e-09 ,4.41272e-09 ,4.58524e-09 , & - 4.76245e-09 ,4.94450e-09 ,5.13235e-09 ,5.32535e-09 ,5.52415e-09 , & - 5.72770e-09 ,5.93815e-09 ,6.15315e-09 ,6.37525e-09 ,6.60175e-09 , & - 6.83485e-09 ,7.07490e-09 ,7.32060e-09 ,7.57225e-09 ,7.83035e-09 /) - totplnkderiv(101:150,12) = (/ & - 8.09580e-09 ,8.36620e-09 ,8.64410e-09 ,8.93110e-09 ,9.22170e-09 , & - 9.52055e-09 ,9.82595e-09 ,1.01399e-08 ,1.04613e-08 ,1.07878e-08 , & - 1.11223e-08 ,1.14667e-08 ,1.18152e-08 ,1.21748e-08 ,1.25410e-08 , & - 1.29147e-08 ,1.32948e-08 ,1.36858e-08 ,1.40827e-08 ,1.44908e-08 , & - 1.49040e-08 ,1.53284e-08 ,1.57610e-08 ,1.61995e-08 ,1.66483e-08 , & - 1.71068e-08 ,1.75714e-08 ,1.80464e-08 ,1.85337e-08 ,1.90249e-08 , & - 1.95309e-08 ,2.00407e-08 ,2.05333e-08 ,2.10929e-08 ,2.16346e-08 , & - 2.21829e-08 ,2.27402e-08 ,2.33112e-08 ,2.38922e-08 ,2.44802e-08 , & - 2.50762e-08 ,2.56896e-08 ,2.63057e-08 ,2.69318e-08 ,2.75705e-08 , & - 2.82216e-08 ,2.88787e-08 ,2.95505e-08 ,3.02335e-08 ,3.09215e-08 /) - totplnkderiv(151:181,12) = (/ & - 3.16235e-08 ,3.23350e-08 ,3.30590e-08 ,3.37960e-08 ,3.45395e-08 , & - 3.52955e-08 ,3.60615e-08 ,3.68350e-08 ,3.76265e-08 ,3.84255e-08 , & - 3.92400e-08 ,4.00485e-08 ,4.08940e-08 ,4.17310e-08 ,4.25860e-08 , & - 4.34585e-08 ,4.43270e-08 ,4.52220e-08 ,4.61225e-08 ,4.70345e-08 , & - 4.79560e-08 ,4.89000e-08 ,4.98445e-08 ,5.07985e-08 ,5.17705e-08 , & - 5.27575e-08 ,5.37420e-08 ,5.47495e-08 ,5.57725e-08 ,5.68105e-08 , & - 5.78395e-08 /) - totplnkderiv(1:50,13) = (/ & - 5.47482e-12 ,6.09637e-12 ,6.77874e-12 ,7.52703e-12 ,8.34784e-12 , & - 9.24486e-12 ,1.02246e-11 ,1.12956e-11 ,1.24615e-11 ,1.37321e-11 , & - 1.51131e-11 ,1.66129e-11 ,1.82416e-11 ,2.00072e-11 ,2.19187e-11 , & - 2.39828e-11 ,2.62171e-11 ,2.86290e-11 ,3.12283e-11 ,3.40276e-11 , & - 3.70433e-11 ,4.02847e-11 ,4.37738e-11 ,4.75070e-11 ,5.15119e-11 , & - 5.58120e-11 ,6.04059e-11 ,6.53208e-11 ,7.05774e-11 ,7.61935e-11 , & - 8.21832e-11 ,8.85570e-11 ,9.53575e-11 ,1.02592e-10 ,1.10298e-10 , & - 1.18470e-10 ,1.27161e-10 ,1.36381e-10 ,1.46161e-10 ,1.56529e-10 , & - 1.67521e-10 ,1.79142e-10 ,1.91423e-10 ,2.04405e-10 ,2.18123e-10 , & - 2.32608e-10 ,2.47889e-10 ,2.63994e-10 ,2.80978e-10 ,2.98843e-10 /) - totplnkderiv(51:100,13) = (/ & - 3.17659e-10 ,3.37423e-10 ,3.58206e-10 ,3.80090e-10 ,4.02996e-10 , & - 4.27065e-10 ,4.52298e-10 ,4.78781e-10 ,5.06493e-10 ,5.35576e-10 , & - 5.65942e-10 ,5.97761e-10 ,6.31007e-10 ,6.65740e-10 ,7.02095e-10 , & - 7.39945e-10 ,7.79575e-10 ,8.20845e-10 ,8.63870e-10 ,9.08680e-10 , & - 9.55385e-10 ,1.00416e-09 ,1.05464e-09 ,1.10737e-09 ,1.16225e-09 , & - 1.21918e-09 ,1.27827e-09 ,1.33988e-09 ,1.40370e-09 ,1.46994e-09 , & - 1.53850e-09 ,1.60993e-09 ,1.68382e-09 ,1.76039e-09 ,1.83997e-09 , & - 1.92182e-09 ,2.00686e-09 ,2.09511e-09 ,2.18620e-09 ,2.28034e-09 , & - 2.37753e-09 ,2.47805e-09 ,2.58193e-09 ,2.68935e-09 ,2.80064e-09 , & - 2.91493e-09 ,3.03271e-09 ,3.15474e-09 ,3.27987e-09 ,3.40936e-09 /) - totplnkderiv(101:150,13) = (/ & - 3.54277e-09 ,3.68019e-09 ,3.82173e-09 ,3.96703e-09 ,4.11746e-09 , & - 4.27104e-09 ,4.43020e-09 ,4.59395e-09 ,4.76060e-09 ,4.93430e-09 , & - 5.11085e-09 ,5.29280e-09 ,5.48055e-09 ,5.67300e-09 ,5.86950e-09 , & - 6.07160e-09 ,6.28015e-09 ,6.49295e-09 ,6.71195e-09 ,6.93455e-09 , & - 7.16470e-09 ,7.39985e-09 ,7.64120e-09 ,7.88885e-09 ,8.13910e-09 , & - 8.39930e-09 ,8.66535e-09 ,8.93600e-09 ,9.21445e-09 ,9.49865e-09 , & - 9.78845e-09 ,1.00856e-08 ,1.04361e-08 ,1.07018e-08 ,1.10164e-08 , & - 1.13438e-08 ,1.16748e-08 ,1.20133e-08 ,1.23575e-08 ,1.27117e-08 , & - 1.30708e-08 ,1.34383e-08 ,1.38138e-08 ,1.41985e-08 ,1.45859e-08 , & - 1.49846e-08 ,1.53879e-08 ,1.58042e-08 ,1.62239e-08 ,1.66529e-08 /) - totplnkderiv(151:181,13) = (/ & - 1.70954e-08 ,1.75422e-08 ,1.79943e-08 ,1.84537e-08 ,1.89280e-08 , & - 1.94078e-08 ,1.98997e-08 ,2.03948e-08 ,2.08956e-08 ,2.14169e-08 , & - 2.19330e-08 ,2.24773e-08 ,2.30085e-08 ,2.35676e-08 ,2.41237e-08 , & - 2.46919e-08 ,2.52720e-08 ,2.58575e-08 ,2.64578e-08 ,2.70675e-08 , & - 2.76878e-08 ,2.83034e-08 ,2.89430e-08 ,2.95980e-08 ,3.02480e-08 , & - 3.09105e-08 ,3.15980e-08 ,3.22865e-08 ,3.29755e-08 ,3.36775e-08 , & - 3.43990e-08 /) - totplnkderiv(1:50,14) = (/ & - 1.81489e-12 ,2.03846e-12 ,2.28659e-12 ,2.56071e-12 ,2.86352e-12 , & - 3.19789e-12 ,3.56668e-12 ,3.97211e-12 ,4.41711e-12 ,4.90616e-12 , & - 5.44153e-12 ,6.02790e-12 ,6.67001e-12 ,7.37018e-12 ,8.13433e-12 , & - 8.96872e-12 ,9.87526e-12 ,1.08601e-11 ,1.19328e-11 ,1.30938e-11 , & - 1.43548e-11 ,1.57182e-11 ,1.71916e-11 ,1.87875e-11 ,2.05091e-11 , & - 2.23652e-11 ,2.43627e-11 ,2.65190e-11 ,2.88354e-11 ,3.13224e-11 , & - 3.39926e-11 ,3.68664e-11 ,3.99372e-11 ,4.32309e-11 ,4.67496e-11 , & - 5.05182e-11 ,5.45350e-11 ,5.88268e-11 ,6.34126e-11 ,6.82878e-11 , & - 7.34973e-11 ,7.90201e-11 ,8.49075e-11 ,9.11725e-11 ,9.78235e-11 , & - 1.04856e-10 ,1.12342e-10 ,1.20278e-10 ,1.28680e-10 ,1.37560e-10 /) - totplnkderiv(51:100,14) = (/ & - 1.46953e-10 ,1.56900e-10 ,1.67401e-10 ,1.78498e-10 ,1.90161e-10 , & - 2.02523e-10 ,2.15535e-10 ,2.29239e-10 ,2.43665e-10 ,2.58799e-10 , & - 2.74767e-10 ,2.91522e-10 ,3.09141e-10 ,3.27625e-10 ,3.47011e-10 , & - 3.67419e-10 ,3.88720e-10 ,4.11066e-10 ,4.34522e-10 ,4.59002e-10 , & - 4.84657e-10 ,5.11391e-10 ,5.39524e-10 ,5.68709e-10 ,5.99240e-10 , & - 6.31295e-10 ,6.64520e-10 ,6.99200e-10 ,7.35525e-10 ,7.73135e-10 , & - 8.12440e-10 ,8.53275e-10 ,8.95930e-10 ,9.40165e-10 ,9.86260e-10 , & - 1.03423e-09 ,1.08385e-09 ,1.13567e-09 ,1.18916e-09 ,1.24469e-09 , & - 1.30262e-09 ,1.36268e-09 ,1.42479e-09 ,1.48904e-09 ,1.55557e-09 , & - 1.62478e-09 ,1.69642e-09 ,1.77023e-09 ,1.84696e-09 ,1.92646e-09 /) - totplnkderiv(101:150,14) = (/ & - 2.00831e-09 ,2.09299e-09 ,2.18007e-09 ,2.27093e-09 ,2.36398e-09 , & - 2.46020e-09 ,2.55985e-09 ,2.66230e-09 ,2.76795e-09 ,2.87667e-09 , & - 2.98971e-09 ,3.10539e-09 ,3.22462e-09 ,3.34779e-09 ,3.47403e-09 , & - 3.60419e-09 ,3.73905e-09 ,3.87658e-09 ,4.01844e-09 ,4.16535e-09 , & - 4.31470e-09 ,4.46880e-09 ,4.62765e-09 ,4.78970e-09 ,4.95735e-09 , & - 5.12890e-09 ,5.30430e-09 ,5.48595e-09 ,5.67010e-09 ,5.86145e-09 , & - 6.05740e-09 ,6.25725e-09 ,6.46205e-09 ,6.67130e-09 ,6.88885e-09 , & - 7.10845e-09 ,7.33450e-09 ,7.56700e-09 ,7.80440e-09 ,8.04465e-09 , & - 8.29340e-09 ,8.54820e-09 ,8.80790e-09 ,9.07195e-09 ,9.34605e-09 , & - 9.62005e-09 ,9.90685e-09 ,1.01939e-08 ,1.04938e-08 ,1.07957e-08 /) - totplnkderiv(151:181,14) = (/ & - 1.11059e-08 ,1.14208e-08 ,1.17447e-08 ,1.20717e-08 ,1.24088e-08 , & - 1.27490e-08 ,1.31020e-08 ,1.34601e-08 ,1.38231e-08 ,1.41966e-08 , & - 1.45767e-08 ,1.49570e-08 ,1.53503e-08 ,1.57496e-08 ,1.61663e-08 , & - 1.65784e-08 ,1.70027e-08 ,1.74290e-08 ,1.78730e-08 ,1.83235e-08 , & - 1.87810e-08 ,1.92418e-08 ,1.97121e-08 ,2.01899e-08 ,2.05787e-08 , & - 2.11784e-08 ,2.16824e-08 ,2.21931e-08 ,2.27235e-08 ,2.32526e-08 , & - 2.37850e-08 /) - totplnkderiv(1:50,15) = (/ & - 5.39905e-13 ,6.11835e-13 ,6.92224e-13 ,7.81886e-13 ,8.81851e-13 , & - 9.93072e-13 ,1.11659e-12 ,1.25364e-12 ,1.40562e-12 ,1.57359e-12 , & - 1.75937e-12 ,1.96449e-12 ,2.19026e-12 ,2.43892e-12 ,2.71249e-12 , & - 3.01233e-12 ,3.34163e-12 ,3.70251e-12 ,4.09728e-12 ,4.52885e-12 , & - 4.99939e-12 ,5.51242e-12 ,6.07256e-12 ,6.68167e-12 ,7.34274e-12 , & - 8.06178e-12 ,8.84185e-12 ,9.68684e-12 ,1.06020e-11 ,1.15909e-11 , & - 1.26610e-11 ,1.38158e-11 ,1.50620e-11 ,1.64047e-11 ,1.78508e-11 , & - 1.94055e-11 ,2.10805e-11 ,2.28753e-11 ,2.48000e-11 ,2.68699e-11 , & - 2.90824e-11 ,3.14526e-11 ,3.39882e-11 ,3.67020e-11 ,3.95914e-11 , & - 4.26870e-11 ,4.59824e-11 ,4.94926e-11 ,5.32302e-11 ,5.72117e-11 /) - totplnkderiv(51:100,15) = (/ & - 6.14475e-11 ,6.59483e-11 ,7.07393e-11 ,7.57999e-11 ,8.11980e-11 , & - 8.68920e-11 ,9.29390e-11 ,9.93335e-11 ,1.06101e-10 ,1.13263e-10 , & - 1.20827e-10 ,1.28819e-10 ,1.37255e-10 ,1.46163e-10 ,1.55547e-10 , & - 1.65428e-10 ,1.75837e-10 ,1.86816e-10 ,1.98337e-10 ,2.10476e-10 , & - 2.23218e-10 ,2.36600e-10 ,2.50651e-10 ,2.65425e-10 ,2.80895e-10 , & - 2.97102e-10 ,3.14100e-10 ,3.31919e-10 ,3.50568e-10 ,3.70064e-10 , & - 3.90464e-10 ,4.11813e-10 ,4.34111e-10 ,4.57421e-10 ,4.81717e-10 , & - 5.07039e-10 ,5.33569e-10 ,5.61137e-10 ,5.89975e-10 ,6.19980e-10 , & - 6.51170e-10 ,6.83650e-10 ,7.17520e-10 ,7.52735e-10 ,7.89390e-10 , & - 8.27355e-10 ,8.66945e-10 ,9.08020e-10 ,9.50665e-10 ,9.95055e-10 /) - totplnkderiv(101:150,15) = (/ & - 1.04101e-09 ,1.08864e-09 ,1.13823e-09 ,1.18923e-09 ,1.24257e-09 , & - 1.29741e-09 ,1.35442e-09 ,1.41347e-09 ,1.47447e-09 ,1.53767e-09 , & - 1.60322e-09 ,1.67063e-09 ,1.74033e-09 ,1.81256e-09 ,1.88704e-09 , & - 1.96404e-09 ,2.04329e-09 ,2.12531e-09 ,2.21032e-09 ,2.29757e-09 , & - 2.38739e-09 ,2.48075e-09 ,2.57628e-09 ,2.67481e-09 ,2.77627e-09 , & - 2.88100e-09 ,2.98862e-09 ,3.09946e-09 ,3.21390e-09 ,3.33105e-09 , & - 3.45185e-09 ,3.57599e-09 ,3.70370e-09 ,3.83512e-09 ,3.96909e-09 , & - 4.10872e-09 ,4.25070e-09 ,4.39605e-09 ,4.54670e-09 ,4.70015e-09 , & - 4.85850e-09 ,5.02050e-09 ,5.18655e-09 ,5.35815e-09 ,5.53180e-09 , & - 5.71225e-09 ,5.89495e-09 ,6.08260e-09 ,6.27485e-09 ,6.47345e-09 /) - totplnkderiv(151:181,15) = (/ & - 6.67520e-09 ,6.88310e-09 ,7.09400e-09 ,7.31140e-09 ,7.53350e-09 , & - 7.76040e-09 ,7.99215e-09 ,8.22850e-09 ,8.47235e-09 ,8.71975e-09 , & - 8.97360e-09 ,9.23365e-09 ,9.49950e-09 ,9.76965e-09 ,1.00441e-08 , & - 1.03270e-08 ,1.06158e-08 ,1.09112e-08 ,1.12111e-08 ,1.15172e-08 , & - 1.18263e-08 ,1.21475e-08 ,1.24735e-08 ,1.28027e-08 ,1.32023e-08 , & - 1.34877e-08 ,1.38399e-08 ,1.42000e-08 ,1.45625e-08 ,1.49339e-08 , & - 1.53156e-08 /) - totplnkderiv(1:50,16) = (/ & - 4.38799e-14 ,5.04835e-14 ,5.79773e-14 ,6.64627e-14 ,7.60706e-14 , & - 8.69213e-14 ,9.91554e-14 ,1.12932e-13 ,1.28419e-13 ,1.45809e-13 , & - 1.65298e-13 ,1.87109e-13 ,2.11503e-13 ,2.38724e-13 ,2.69058e-13 , & - 3.02878e-13 ,3.40423e-13 ,3.82128e-13 ,4.28390e-13 ,4.79625e-13 , & - 5.36292e-13 ,5.98933e-13 ,6.68066e-13 ,7.44216e-13 ,8.28159e-13 , & - 9.20431e-13 ,1.02180e-12 ,1.13307e-12 ,1.25504e-12 ,1.38863e-12 , & - 1.53481e-12 ,1.69447e-12 ,1.86896e-12 ,2.05903e-12 ,2.26637e-12 , & - 2.49193e-12 ,2.73736e-12 ,3.00416e-12 ,3.29393e-12 ,3.60781e-12 , & - 3.94805e-12 ,4.31675e-12 ,4.71543e-12 ,5.14627e-12 ,5.61226e-12 , & - 6.11456e-12 ,6.65585e-12 ,7.23969e-12 ,7.86811e-12 ,8.54456e-12 /) - totplnkderiv(51:100,16) = (/ & - 9.27075e-12 ,1.00516e-11 ,1.08898e-11 ,1.17884e-11 ,1.27514e-11 , & - 1.37839e-11 ,1.48893e-11 ,1.60716e-11 ,1.73333e-11 ,1.86849e-11 , & - 2.01237e-11 ,2.16610e-11 ,2.33001e-11 ,2.50440e-11 ,2.69035e-11 , & - 2.88827e-11 ,3.09881e-11 ,3.32234e-11 ,3.55981e-11 ,3.81193e-11 , & - 4.07946e-11 ,4.36376e-11 ,4.66485e-11 ,4.98318e-11 ,5.32080e-11 , & - 5.67754e-11 ,6.05524e-11 ,6.45450e-11 ,6.87639e-11 ,7.32160e-11 , & - 7.79170e-11 ,8.28780e-11 ,8.81045e-11 ,9.36200e-11 ,9.94280e-11 , & - 1.05545e-10 ,1.11982e-10 ,1.18752e-10 ,1.25866e-10 ,1.33350e-10 , & - 1.41210e-10 ,1.49469e-10 ,1.58143e-10 ,1.67233e-10 ,1.76760e-10 , & - 1.86758e-10 ,1.97236e-10 ,2.08227e-10 ,2.19723e-10 ,2.31737e-10 /) - totplnkderiv(101:150,16) = (/ & - 2.44329e-10 ,2.57503e-10 ,2.71267e-10 ,2.85647e-10 ,3.00706e-10 , & - 3.16391e-10 ,3.32807e-10 ,3.49887e-10 ,3.67748e-10 ,3.86369e-10 , & - 4.05746e-10 ,4.25984e-10 ,4.47060e-10 ,4.68993e-10 ,4.91860e-10 , & - 5.15601e-10 ,5.40365e-10 ,5.66085e-10 ,5.92855e-10 ,6.20640e-10 , & - 6.49605e-10 ,6.79585e-10 ,7.10710e-10 ,7.43145e-10 ,7.76805e-10 , & - 8.11625e-10 ,8.47800e-10 ,8.85300e-10 ,9.24220e-10 ,9.64550e-10 , & - 1.00623e-09 ,1.04957e-09 ,1.09429e-09 ,1.14079e-09 ,1.18882e-09 , & - 1.23848e-09 ,1.28986e-09 ,1.34301e-09 ,1.39796e-09 ,1.45493e-09 , & - 1.51372e-09 ,1.57440e-09 ,1.63702e-09 ,1.70173e-09 ,1.76874e-09 , & - 1.83753e-09 ,1.90898e-09 ,1.98250e-09 ,2.05836e-09 ,2.13646e-09 /) - totplnkderiv(151:181,16) = (/ & - 2.21710e-09 ,2.30027e-09 ,2.38591e-09 ,2.47432e-09 ,2.56503e-09 , & - 2.65878e-09 ,2.75516e-09 ,2.85432e-09 ,2.95688e-09 ,3.06201e-09 , & - 3.17023e-09 ,3.28153e-09 ,3.39604e-09 ,3.51391e-09 ,3.63517e-09 , & - 3.75955e-09 ,3.88756e-09 ,4.01880e-09 ,4.15405e-09 ,4.29255e-09 , & - 4.43535e-09 ,4.58145e-09 ,4.73165e-09 ,4.88560e-09 ,5.04390e-09 , & - 5.20630e-09 ,5.37255e-09 ,5.54355e-09 ,5.71915e-09 ,5.89855e-09 , & - 6.08280e-09 /) - totplk16deriv(1:50) = (/ & - 4.35811e-14 ,5.01270e-14 ,5.75531e-14 ,6.59588e-14 ,7.54735e-14 , & - 8.62147e-14 ,9.83225e-14 ,1.11951e-13 ,1.27266e-13 ,1.44456e-13 , & - 1.63715e-13 ,1.85257e-13 ,2.09343e-13 ,2.36209e-13 ,2.66136e-13 , & - 2.99486e-13 ,3.36493e-13 ,3.77582e-13 ,4.23146e-13 ,4.73578e-13 , & - 5.29332e-13 ,5.90936e-13 ,6.58891e-13 ,7.33710e-13 ,8.16135e-13 , & - 9.06705e-13 ,1.00614e-12 ,1.11524e-12 ,1.23477e-12 ,1.36561e-12 , & - 1.50871e-12 ,1.66488e-12 ,1.83552e-12 ,2.02123e-12 ,2.22375e-12 , & - 2.44389e-12 ,2.68329e-12 ,2.94338e-12 ,3.22570e-12 ,3.53129e-12 , & - 3.86236e-12 ,4.22086e-12 ,4.60827e-12 ,5.02666e-12 ,5.47890e-12 , & - 5.96595e-12 ,6.49057e-12 ,7.05592e-12 ,7.66401e-12 ,8.31821e-12 /) - totplk16deriv(51:100) = (/ & - 9.01998e-12 ,9.77390e-12 ,1.05826e-11 ,1.14491e-11 ,1.23769e-11 , & - 1.33709e-11 ,1.44341e-11 ,1.55706e-11 ,1.67821e-11 ,1.80793e-11 , & - 1.94586e-11 ,2.09316e-11 ,2.25007e-11 ,2.41685e-11 ,2.59454e-11 , & - 2.78356e-11 ,2.98440e-11 ,3.19744e-11 ,3.42355e-11 ,3.66340e-11 , & - 3.91772e-11 ,4.18773e-11 ,4.47339e-11 ,4.77509e-11 ,5.09490e-11 , & - 5.43240e-11 ,5.78943e-11 ,6.16648e-11 ,6.56445e-11 ,6.98412e-11 , & - 7.42680e-11 ,7.89335e-11 ,8.38450e-11 ,8.90220e-11 ,9.44695e-11 , & - 1.00197e-10 ,1.06221e-10 ,1.12550e-10 ,1.19193e-10 ,1.26175e-10 , & - 1.33498e-10 ,1.41188e-10 ,1.49251e-10 ,1.57693e-10 ,1.66530e-10 , & - 1.75798e-10 ,1.85495e-10 ,1.95661e-10 ,2.06275e-10 ,2.17357e-10 /) - totplk16deriv(101:150) = (/ & - 2.28959e-10 ,2.41085e-10 ,2.53739e-10 ,2.66944e-10 ,2.80755e-10 , & - 2.95121e-10 ,3.10141e-10 ,3.25748e-10 ,3.42057e-10 ,3.59026e-10 , & - 3.76668e-10 ,3.95066e-10 ,4.14211e-10 ,4.34111e-10 ,4.54818e-10 , & - 4.76295e-10 ,4.98681e-10 ,5.21884e-10 ,5.46000e-10 ,5.71015e-10 , & - 5.97065e-10 ,6.23965e-10 ,6.51865e-10 ,6.80905e-10 ,7.11005e-10 , & - 7.42100e-10 ,7.74350e-10 ,8.07745e-10 ,8.42355e-10 ,8.78185e-10 , & - 9.15130e-10 ,9.53520e-10 ,9.93075e-10 ,1.03415e-09 ,1.07649e-09 , & - 1.12021e-09 ,1.16539e-09 ,1.21207e-09 ,1.26025e-09 ,1.31014e-09 , & - 1.36156e-09 ,1.41453e-09 ,1.46909e-09 ,1.52540e-09 ,1.58368e-09 , & - 1.64334e-09 ,1.70527e-09 ,1.76888e-09 ,1.83442e-09 ,1.90182e-09 /) - totplk16deriv(151:181) = (/ & - 1.97128e-09 ,2.04281e-09 ,2.11635e-09 ,2.19219e-09 ,2.26979e-09 , & - 2.34989e-09 ,2.43219e-09 ,2.51660e-09 ,2.60396e-09 ,2.69317e-09 , & - 2.78501e-09 ,2.87927e-09 ,2.97600e-09 ,3.07548e-09 ,3.17772e-09 , & - 3.28235e-09 ,3.38982e-09 ,3.49985e-09 ,3.61307e-09 ,3.72883e-09 , & - 3.84805e-09 ,3.96975e-09 ,4.09465e-09 ,4.22240e-09 ,4.35370e-09 , & - 4.48800e-09 ,4.62535e-09 ,4.76640e-09 ,4.91110e-09 ,5.05850e-09 , & - 5.20965e-09 /) - - end subroutine lwavplankderiv - -end module rrtmg_lw_setcoef diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_taumol.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_taumol.F90 deleted file mode 100644 index b4d5b3e17..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_taumol.F90 +++ /dev/null @@ -1,3149 +0,0 @@ -module rrtmg_lw_taumol - -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - - use parrrtm, only : nbndlw, ngptlw - use rrlw_wvn, only : nspa, nspb, ngb - use rrlw_con, only : oneminus - use rrtmg_lw_setcoef - - implicit none - -! ******************************************************************************* -! * * -! * Optical depths developed for the * -! * * -! * RAPID RADIATIVE TRANSFER MODEL (RRTM) * -! * * -! * * -! * ATMOSPHERIC AND ENVIRONMENTAL RESEARCH, INC. * -! * 131 HARTWELL AVENUE * -! * LEXINGTON, MA 02421 * -! * * -! * * -! * ELI J. MLAWER * -! * JENNIFER DELAMERE * -! * STEVEN J. TAUBMAN * -! * SHEPARD A. CLOUGH * -! * * -! * * -! * * -! * * -! * email: mlawer@aer.com * -! * email: jdelamer@aer.com * -! * * -! * The authors wish to acknowledge the contributions of the * -! * following people: Karen Cady-Pereira, Patrick D. Brown, * -! * Michael J. Iacono, Ronald E. Farren, Luke Chen, Robert Bergstrom. * -! * * -! ******************************************************************************* -! * * -! * Revision for g-point reduction: Michael J. Iacono, AER, Inc. * -! * * -! ******************************************************************************* -! * TAUMOL * -! * * -! * This file contains the subroutines TAUGBn (where n goes from * -! * 1 to 16). TAUGBn calculates the optical depths and Planck fractions * -! * per g-value and layer for band n. * -! * * -! * Output: optical depths (unitless) * -! * fractions needed to compute Planck functions at every layer * -! * and g-value * -! * * -! * COMMON /TAUGCOM/ taug(MXLAY,MG) * -! * COMMON /PLANKG/ pfracs(MXLAY,MG) * -! * * -! * Input * -! * * -! * COMMON /FEATURES/ NG(NBANDS),NSPA(NBANDS),NSPB(NBANDS) * -! * COMMON /PRECISE/ oneminus * -! * COMMON /PROFILE/ nlay,PAVEL(MXLAY),TAVEL(MXLAY), * -! * & PZ(0:MXLAY),TZ(0:MXLAY) * -! * COMMON /PROFDATA/ LAYTROP, * -! * & COLH2O(MXLAY),COLCO2(MXLAY),COLO3(MXLAY), * -! * & COLN2O(MXLAY),colco(MXLAY),COLCH4(MXLAY), * -! * & COLO2(MXLAY) * -! * COMMON /INTFAC/ fac00(icol,MXLAY),fac01(icol,MXLAY), * -! * & FAC10(MXLAY),fac11(icol,MXLAY) * -! * COMMON /INTIND/ JP(MXLAY),JT(MXLAY),JT1(MXLAY) * -! * COMMON /SELF/ SELFFAC(MXLAY), SELFFRAC(MXLAY), INDSELF(MXLAY) * -! * * -! * Description: * -! * NG(IBAND) - number of g-values in band IBAND * -! * NSPA(IBAND) - for the lower atmosphere, the number of reference * -! * atmospheres that are stored for band IBAND per * -! * pressure level and temperature. Each of these * -! * atmospheres has different relative amounts of the * -! * key species for the band (i.e. different binary * -! * species parameters). * -! * NSPB(IBAND) - same for upper atmosphere * -! * oneminus - since problems are caused in some cases by interpolation * -! * parameters equal to or greater than 1, for these cases * -! * these parameters are set to this value, slightly < 1. * -! * PAVEL - layer pressures (mb) * -! * TAVEL - layer temperatures (degrees K) * -! * PZ - level pressures (mb) * -! * TZ - level temperatures (degrees K) * -! * LAYTROP - layer at which switch is made from one combination of * -! * key species to another * -! * COLH2O, COLCO2, COLO3, COLN2O, COLCH4 - column amounts of water * -! * vapor,carbon dioxide, ozone, nitrous ozide, methane, * -! * respectively (molecules/cm**2) * -! * FACij(LAY) - for layer LAY, these are factors that are needed to * -! * compute the interpolation factors that multiply the * -! * appropriate reference k-values. A value of 0 (1) for * -! * i,j indicates that the corresponding factor multiplies * -! * reference k-value for the lower (higher) of the two * -! * appropriate temperatures, and altitudes, respectively. * -! * JP - the index of the lower (in altitude) of the two appropriate * -! * reference pressure levels needed for interpolation * -! * JT, JT1 - the indices of the lower of the two appropriate reference * -! * temperatures needed for interpolation (for pressure * -! * levels JP and JP+1, respectively) * -! * SELFFAC - scale factor needed for water vapor self-continuum, equals * -! * (water vapor density)/(atmospheric density at 296K and * -! * 1013 mb) * -! * SELFFRAC - factor needed for temperature interpolation of reference * -! * water vapor self-continuum data * -! * INDSELF - index of the lower of the two appropriate reference * -! * temperatures needed for the self-continuum interpolation * -! * FORFAC - scale factor needed for water vapor foreign-continuum. * -! * FORFRAC - factor needed for temperature interpolation of reference * -! * water vapor foreign-continuum data * -! * INDFOR - index of the lower of the two appropriate reference * -! * temperatures needed for the foreign-continuum interpolation * -! * * -! * Data input * -! * COMMON /Kn/ KA(NSPA(n),5,13,MG), KB(NSPB(n),5,13:59,MG), SELFREF(10,MG),* -! * FORREF(4,MG), KA_M'MGAS', KB_M'MGAS' * -! * (note: n is the band number,'MGAS' is the species name of the minor * -! * gas) * -! * * -! * Description: * -! * KA - k-values for low reference atmospheres (key-species only) * -! * (units: cm**2/molecule) * -! * KB - k-values for high reference atmospheres (key-species only) * -! * (units: cm**2/molecule) * -! * KA_M'MGAS' - k-values for low reference atmosphere minor species * -! * (units: cm**2/molecule) * -! * KB_M'MGAS' - k-values for high reference atmosphere minor species * -! * (units: cm**2/molecule) * -! * SELFREF - k-values for water vapor self-continuum for reference * -! * atmospheres (used below LAYTROP) * -! * (units: cm**2/molecule) * -! * FORREF - k-values for water vapor foreign-continuum for reference * -! * atmospheres (used below/above LAYTROP) * -! * (units: cm**2/molecule) * -! * * -! * DIMENSION ABSA(65*NSPA(n),MG), ABSB(235*NSPB(n),MG) * -! * EQUIVALENCE (KA,ABSA),(KB,ABSB) * -! * * -!******************************************************************************** - -contains - - !-------------------------------------------------------- - subroutine taumol (ncol, nlay, pavel, taua, taug, pfracs) - !-------------------------------------------------------- - - integer, intent(in) :: ncol ! number of columns - integer, intent(in) :: nlay ! number of layers - real, intent(in) :: pavel (nlay,ncol) ! layer pressures [hPa] - real, intent(in) :: taua (nlay,nbndlw,ncol) ! aerosol optical depths - real, intent(out) :: taug (nlay,ngptlw,ncol) ! gas optical depths - real, intent(out) :: pfracs (nlay,ngptlw,ncol) ! Planck fractions - - ! Calculate gaseous optical depth and Planck fractions - ! for each spectral band - call taugb1 (ncol, nlay, taug, pfracs, pavel) - call taugb2 (ncol, nlay, taug, pfracs, pavel) - call taugb3 (ncol, nlay, taug, pfracs) - call taugb4 (ncol, nlay, taug, pfracs) - call taugb5 (ncol, nlay, taug, pfracs) - call taugb6 (ncol, nlay, taug, pfracs) - call taugb7 (ncol, nlay, taug, pfracs) - call taugb8 (ncol, nlay, taug, pfracs) - call taugb9 (ncol, nlay, taug, pfracs) - call taugb10 (ncol, nlay, taug, pfracs) - call taugb11 (ncol, nlay, taug, pfracs) - call taugb12 (ncol, nlay, taug, pfracs) - call taugb13 (ncol, nlay, taug, pfracs) - call taugb14 (ncol, nlay, taug, pfracs) - call taugb15 (ncol, nlay, taug, pfracs) - call taugb16 (ncol, nlay, taug, pfracs) - - ! add the aerosol optical depths to the gas optical depths - call addAerosols (ncol, nlay, taua, taug) - - end subroutine taumol - - - !-------------------------------------------------- - subroutine taugb1 (ncol, nlay, taug, pfracs, pavel) - !-------------------------------------------------- - - ! Written by Eli J. Mlawer, Atmospheric & Environmental Research. - ! Revised by Michael J. Iacono, Atmospheric & Environmental Research. - ! - ! band 1: 10-350 cm-1 (low key - h2o; low minor - n2) - ! (high key - h2o; high minor - n2) - ! - ! note: previous versions of rrtm band 1: - ! 10-250 cm-1 (low - h2o; high - h2o) - - ! Compute the optical depth by interpolating in ln(pressure) and - ! temperature. Below laytrop, the water vapor self-continuum and - ! foreign continuum is interpolated (in temperature) separately. - - use rrlw_kg01 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - real, intent(in) :: pavel(nlay,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, indm, ig - real :: pp, corradj, scalen2, tauself, taufor, taun2 - - ! Minor gas mapping levels: - ! lower - n2, p = 142.5490 mb, t = 215.70 K - ! upper - n2, p = 142.5490 mb, t = 215.70 K - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(1) + 1 - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(1) + 1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - indm = indminor(lay,icol) - pp = pavel(lay,icol) - corradj = 1. - if (pp .lt. 250.) then - corradj = 1. - 0.15 * (250. - pp) / 154.4 - endif - scalen2 = colbrd(lay,icol) * scaleminorn2(lay,icol) - - do ig = 1,ng1 - tauself = selffac(lay,icol) * (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - taun2 = scalen2 * (ka_mn2(indm,ig) + & - minorfrac(lay,icol) * (ka_mn2(indm+1,ig) - ka_mn2(indm,ig))) - taug(lay,ig,icol) = corradj * (colh2o(lay,icol) * & - (fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) & - + tauself + taufor + taun2) - pfracs(lay,ig,icol) = fracrefa(ig) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(1) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(1) + 1 - indf = indfor(lay,icol) - indm = indminor(lay,icol) - pp = pavel(lay,icol) - corradj = 1. - 0.15 * (pp / 95.6) - scalen2 = colbrd(lay,icol) * scaleminorn2(lay,icol) - - do ig = 1,ng1 - taufor = forfac(lay,icol) * (forref(indf,ig) + & - forfrac(lay,icol) * (forref(indf+1,ig) - forref(indf,ig))) - taun2 = scalen2 * (kb_mn2(indm,ig) + & - minorfrac(lay,icol) * (kb_mn2(indm+1,ig) - kb_mn2(indm,ig))) - taug(lay,ig,icol) = corradj * (colh2o(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) & - + taufor + taun2) - pfracs(lay,ig,icol) = fracrefb(ig) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb1 - - - !-------------------------------------------------- - subroutine taugb2 (ncol, nlay, taug, pfracs, pavel) - !-------------------------------------------------- - ! - ! band 2: 350-500 cm-1 (low key - h2o; high key - h2o) - ! - ! note: previous version of rrtm band 2: - ! 250 - 500 cm-1 (low - h2o; high - h2o) - - ! Compute the optical depth by interpolating in ln(pressure) and - ! temperature. Below laytrop, the water vapor self-continuum and - ! foreign continuum is interpolated (in temperature) separately. - - use parrrtm, only : ngs1 - use rrlw_kg02 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - real, intent(in) :: pavel(nlay,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, ig - real :: pp, corradj, tauself, taufor - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(2) + 1 - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(2) + 1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - pp = pavel(lay,icol) - corradj = 1. - .05 * (pp - 100.) / 900. - - do ig = 1,ng2 - tauself = selffac(lay,icol) * (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - taug(lay,ngs1+ig,icol) = corradj * (colh2o(lay,icol) * & - (fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) & - + tauself + taufor) - pfracs(lay,ngs1+ig,icol) = fracrefa(ig) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(2) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(2) + 1 - indf = indfor(lay,icol) - - do ig = 1,ng2 - taufor = forfac(lay,icol) * (forref(indf,ig) + & - forfrac(lay,icol) * (forref(indf+1,ig) - forref(indf,ig))) - taug(lay,ngs1+ig,icol) = colh2o(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) & - + taufor - pfracs(lay,ngs1+ig,icol) = fracrefb(ig) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb2 - - - !------------------------------------------- - subroutine taugb3 (ncol, nlay, taug, pfracs) - !------------------------------------------- - ! - ! band 3: 500-630 cm-1 (low key - h2o,co2; low minor - n2o) - ! (high key - h2o,co2; high minor - n2o) - - ! Compute the optical depth by interpolating in ln(pressure) and - ! temperature, and appropriate species. Below laytrop, the water vapor - ! self-continuum and foreign continuum is interpolated (in temperature) - ! separately. - - use parrrtm, only : ngs2 - use rrlw_ref, only : chi_mls - use rrlw_kg03 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, indm, ig - integer :: js, js1, jmn2o, jpl - real :: speccomb, specparm, specmult, fs - real :: speccomb1, specparm1, specmult1, fs1 - real :: speccomb_mn2o, specparm_mn2o, specmult_mn2o, & - fmn2o, fmn2omf, chi_n2o, ratn2o, adjfac, adjcoln2o - real :: speccomb_planck, specparm_planck, specmult_planck, fpl - real :: p, p4, fk0, fk1, fk2 - real :: fac000, fac100, fac200, fac010, fac110, fac210 - real :: fac001, fac101, fac201, fac011, fac111, fac211 - real :: tauself, taufor, n2om1, n2om2, absn2o - real :: refrat_planck_a, refrat_planck_b, refrat_m_a, refrat_m_b - real :: tau_major, tau_major1 - -! pref(:) = (/ & -! 1.05363e+03 ,8.62642e+02 ,7.06272e+02 ,5.78246e+02 ,4.73428e+02 , & -! 3.87610e+02 ,3.17348e+02 ,2.59823e+02 ,2.12725e+02 ,1.74164e+02 , & -! 1.42594e+02 ,1.16746e+02 ,9.55835e+01 ,7.82571e+01 ,6.40715e+01 , & -! 5.24573e+01 ,4.29484e+01 ,3.51632e+01 ,2.87892e+01 ,2.35706e+01 , & -! 1.92980e+01 ,1.57998e+01 ,1.29358e+01 ,1.05910e+01 ,8.67114e+00 , & -! 7.09933e+00 ,5.81244e+00 ,4.75882e+00 ,3.89619e+00 ,3.18993e+00 , & -! 2.61170e+00 ,2.13828e+00 ,1.75067e+00 ,1.43333e+00 ,1.17351e+00 , & -! 9.60789e-01 ,7.86628e-01 ,6.44036e-01 ,5.27292e-01 ,4.31710e-01 , & -! 3.53455e-01 ,2.89384e-01 ,2.36928e-01 ,1.93980e-01 ,1.58817e-01 , & -! 1.30029e-01 ,1.06458e-01 ,8.71608e-02 ,7.13612e-02 ,5.84256e-02 , & -! 4.78349e-02 ,3.91639e-02 ,3.20647e-02 ,2.62523e-02 ,2.14936e-02 , & -! 1.75975e-02 ,1.44076e-02 ,1.17959e-02 ,9.65769e-03 /) - - ! Minor gas mapping levels: - ! lower - n2o, p = 706.272 mb, t = 278.94 K - ! upper - n2o, p = 95.58 mb, t = 215.7 K - - ! Calculate reference ratio to be used in calculation of Planck - ! fraction in lower/upper atmosphere. - - ! P = 212.725 mb (level 9) - refrat_planck_a = chi_mls(1,9)/chi_mls(2,9) - - ! P = 706.270 mb (level 3) - refrat_m_a = chi_mls(1,3)/chi_mls(2,3) - - ! P = 95.58 mb - refrat_planck_b = chi_mls(1,13)/chi_mls(2,13) - refrat_m_b = refrat_planck_b - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - speccomb = colh2o(lay,icol) + rat_h2oco2(lay,icol)*colco2(lay,icol) - specparm = colh2o(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 8. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colh2o(lay,icol) + rat_h2oco2_1(lay,icol)*colco2(lay,icol) - specparm1 = colh2o(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 8. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - speccomb_mn2o = colh2o(lay,icol) + refrat_m_a*colco2(lay,icol) - specparm_mn2o = colh2o(lay,icol)/speccomb_mn2o - if (specparm_mn2o .ge. oneminus) specparm_mn2o = oneminus - specmult_mn2o = 8. *specparm_mn2o - jmn2o = 1 + int(specmult_mn2o) - fmn2o = mod(specmult_mn2o,1.0 ) - fmn2omf = minorfrac(lay,icol)*fmn2o -! In atmospheres where the amount of N2O is too great to be considered -! a minor species, adjust the column amount of N2O by an empirical factor -! to obtain the proper contribution. - chi_n2o = coln2o(lay,icol)/coldry(lay,icol) - ratn2o = 1.e20 *chi_n2o/chi_mls(4,jp(lay,icol)+1) - if (ratn2o .gt. 1.5 ) then - adjfac = 0.5 +(ratn2o-0.5 )**0.65 - adjcoln2o = adjfac*chi_mls(4,jp(lay,icol)+1)*coldry(lay,icol)*1.e-20 - else - adjcoln2o = coln2o(lay,icol) - endif - - speccomb_planck = colh2o(lay,icol)+refrat_planck_a*colco2(lay,icol) - specparm_planck = colh2o(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 8. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(3) + js - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(3) + js1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - indm = indminor(lay,icol) - - if (specparm .lt. 0.125 ) then - p = fs - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else if (specparm .gt. 0.875 ) then - p = -fs - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - endif - if (specparm1 .lt. 0.125 ) then - p = fs1 - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else if (specparm1 .gt. 0.875 ) then - p = -fs1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - endif - - do ig = 1,ng3 - tauself = selffac(lay,icol)* (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - n2om1 = ka_mn2o(jmn2o,indm,ig) + fmn2o * & - (ka_mn2o(jmn2o+1,indm,ig) - ka_mn2o(jmn2o,indm,ig)) - n2om2 = ka_mn2o(jmn2o,indm+1,ig) + fmn2o * & - (ka_mn2o(jmn2o+1,indm+1,ig) - ka_mn2o(jmn2o,indm+1,ig)) - absn2o = n2om1 + minorfrac(lay,icol) * (n2om2 - n2om1) - - if (specparm .lt. 0.125 ) then - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac200 * absa(ind0+2, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac210 * absa(ind0+11,ig)) - else if (specparm .gt. 0.875 ) then - tau_major = speccomb * & - (fac200 * absa(ind0-1, ig) + & - fac100 * absa(ind0, ig) + & - fac000 * absa(ind0+1, ig) + & - fac210 * absa(ind0+8, ig) + & - fac110 * absa(ind0+9, ig) + & - fac010 * absa(ind0+10,ig)) - else - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig)) - endif - - if (specparm1 .lt. 0.125 ) then - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac201 * absa(ind1+2, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig) + & - fac211 * absa(ind1+11,ig)) - else if (specparm1 .gt. 0.875 ) then - tau_major1 = speccomb1 * & - (fac201 * absa(ind1-1, ig) + & - fac101 * absa(ind1, ig) + & - fac001 * absa(ind1+1, ig) + & - fac211 * absa(ind1+8, ig) + & - fac111 * absa(ind1+9, ig) + & - fac011 * absa(ind1+10,ig)) - else - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) - endif - - taug(lay,ngs2+ig,icol) = tau_major + tau_major1 & - + tauself + taufor + adjcoln2o * absn2o - pfracs(lay,ngs2+ig,icol) = fracrefa(ig,jpl) + fpl * & - (fracrefa(ig,jpl+1)-fracrefa(ig,jpl)) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - speccomb = colh2o(lay,icol) + rat_h2oco2(lay,icol)*colco2(lay,icol) - specparm = colh2o(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 4. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colh2o(lay,icol) + rat_h2oco2_1(lay,icol)*colco2(lay,icol) - specparm1 = colh2o(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 4. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - - speccomb_mn2o = colh2o(lay,icol) + refrat_m_b*colco2(lay,icol) - specparm_mn2o = colh2o(lay,icol)/speccomb_mn2o - if (specparm_mn2o .ge. oneminus) specparm_mn2o = oneminus - specmult_mn2o = 4. *specparm_mn2o - jmn2o = 1 + int(specmult_mn2o) - fmn2o = mod(specmult_mn2o,1.0 ) - fmn2omf = minorfrac(lay,icol)*fmn2o -! In atmospheres where the amount of N2O is too great to be considered -! a minor species, adjust the column amount of N2O by an empirical factor -! to obtain the proper contribution. - chi_n2o = coln2o(lay,icol)/coldry(lay,icol) - ratn2o = 1.e20*chi_n2o/chi_mls(4,jp(lay,icol)+1) - if (ratn2o .gt. 1.5 ) then - adjfac = 0.5 +(ratn2o-0.5 )**0.65 - adjcoln2o = adjfac*chi_mls(4,jp(lay,icol)+1)*coldry(lay,icol)*1.e-20 - else - adjcoln2o = coln2o(lay,icol) - endif - - speccomb_planck = colh2o(lay,icol)+refrat_planck_b*colco2(lay,icol) - specparm_planck = colh2o(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 4. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(3) + js - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(3) + js1 - indf = indfor(lay,icol) - indm = indminor(lay,icol) - - do ig = 1,ng3 - taufor = forfac(lay,icol) * (forref(indf,ig) + & - forfrac(lay,icol) * (forref(indf+1,ig) - forref(indf,ig))) - n2om1 = kb_mn2o(jmn2o,indm,ig) + fmn2o * & - (kb_mn2o(jmn2o+1,indm,ig)-kb_mn2o(jmn2o,indm,ig)) - n2om2 = kb_mn2o(jmn2o,indm+1,ig) + fmn2o * & - (kb_mn2o(jmn2o+1,indm+1,ig)-kb_mn2o(jmn2o,indm+1,ig)) - absn2o = n2om1 + minorfrac(lay,icol) * (n2om2 - n2om1) - taug(lay,ngs2+ig,icol) = & - speccomb * & - (fac000 * absb(ind0, ig) + & - fac100 * absb(ind0+1,ig) + & - fac010 * absb(ind0+5,ig) + & - fac110 * absb(ind0+6,ig)) & - + speccomb1 * & - (fac001 * absb(ind1, ig) + & - fac101 * absb(ind1+1,ig) + & - fac011 * absb(ind1+5,ig) + & - fac111 * absb(ind1+6,ig)) & - + taufor + adjcoln2o * absn2o - pfracs(lay,ngs2+ig,icol) = fracrefb(ig,jpl) + fpl * & - (fracrefb(ig,jpl+1)-fracrefb(ig,jpl)) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb3 - - - !------------------------------------------- - subroutine taugb4 (ncol, nlay, taug, pfracs) - !------------------------------------------- - ! - ! band 4: 630-700 cm-1 (low key - h2o,co2; high key - o3,co2) - - ! Compute the optical depth by interpolating in ln(pressure) and - ! temperature, and appropriate species. Below laytrop, the water - ! vapor self-continuum and foreign continuum is interpolated (in temperature) - ! separately. - - use parrrtm, only : ngs3 - use rrlw_ref, only : chi_mls - use rrlw_kg04 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, ig - integer :: js, js1, jpl - real :: speccomb, specparm, specmult, fs - real :: speccomb1, specparm1, specmult1, fs1 - real :: speccomb_planck, specparm_planck, specmult_planck, fpl - real :: p, p4, fk0, fk1, fk2 - real :: fac000, fac100, fac200, fac010, fac110, fac210 - real :: fac001, fac101, fac201, fac011, fac111, fac211 - real :: tauself, taufor - real :: refrat_planck_a, refrat_planck_b - real :: tau_major, tau_major1 - - ! Calculate reference ratio to be used in calculation of Planck - ! fraction in lower/upper atmosphere. - - ! P = 142.5940 mb - refrat_planck_a = chi_mls(1,11)/chi_mls(2,11) - - ! P = 95.58350 mb - refrat_planck_b = chi_mls(3,13)/chi_mls(2,13) - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - speccomb = colh2o(lay,icol) + rat_h2oco2(lay,icol)*colco2(lay,icol) - specparm = colh2o(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 8. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colh2o(lay,icol) + rat_h2oco2_1(lay,icol)*colco2(lay,icol) - specparm1 = colh2o(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 8. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - speccomb_planck = colh2o(lay,icol)+refrat_planck_a*colco2(lay,icol) - specparm_planck = colh2o(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 8. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(4) + js - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(4) + js1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - - if (specparm .lt. 0.125 ) then - p = fs - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else if (specparm .gt. 0.875 ) then - p = -fs - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - endif - - if (specparm1 .lt. 0.125 ) then - p = fs1 - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else if (specparm1 .gt. 0.875 ) then - p = -fs1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - endif - - do ig = 1,ng4 - tauself = selffac(lay,icol)* (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - - if (specparm .lt. 0.125 ) then - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac200 * absa(ind0+2, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac210 * absa(ind0+11,ig)) - else if (specparm .gt. 0.875 ) then - tau_major = speccomb * & - (fac200 * absa(ind0-1, ig) + & - fac100 * absa(ind0, ig) + & - fac000 * absa(ind0+1, ig) + & - fac210 * absa(ind0+8, ig) + & - fac110 * absa(ind0+9, ig) + & - fac010 * absa(ind0+10,ig)) - else - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig)) - endif - - if (specparm1 .lt. 0.125 ) then - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac201 * absa(ind1+2, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig) + & - fac211 * absa(ind1+11,ig)) - else if (specparm1 .gt. 0.875 ) then - tau_major1 = speccomb1 * & - (fac201 * absa(ind1-1, ig) + & - fac101 * absa(ind1, ig) + & - fac001 * absa(ind1+1, ig) + & - fac211 * absa(ind1+8, ig) + & - fac111 * absa(ind1+9, ig) + & - fac011 * absa(ind1+10,ig)) - else - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) - endif - - taug(lay,ngs3+ig,icol) = & - tau_major + tau_major1 + tauself + taufor - pfracs(lay,ngs3+ig,icol) = fracrefa(ig,jpl) + fpl * & - (fracrefa(ig,jpl+1)-fracrefa(ig,jpl)) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - speccomb = colo3(lay,icol) + rat_o3co2(lay,icol)*colco2(lay,icol) - specparm = colo3(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 4. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colo3(lay,icol) + rat_o3co2_1(lay,icol)*colco2(lay,icol) - specparm1 = colo3(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 4. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - - speccomb_planck = colo3(lay,icol)+refrat_planck_b*colco2(lay,icol) - specparm_planck = colo3(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 4. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(4) + js - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(4) + js1 - - do ig = 1,ng4 - taug(lay,ngs3+ig,icol) = & - speccomb * & - (fac000 * absb(ind0, ig) + & - fac100 * absb(ind0+1,ig) + & - fac010 * absb(ind0+5,ig) + & - fac110 * absb(ind0+6,ig)) & - + speccomb1 * & - (fac001 * absb(ind1, ig) + & - fac101 * absb(ind1+1,ig) + & - fac011 * absb(ind1+5,ig) + & - fac111 * absb(ind1+6,ig)) - pfracs(lay,ngs3+ig,icol) = fracrefb(ig,jpl) + fpl * & - (fracrefb(ig,jpl+1)-fracrefb(ig,jpl)) - enddo - -! Empirical modification to code to improve stratospheric cooling rates -! for co2. Revised to apply weighting for g-point reduction in this band. - - taug(lay,ngs3+8,icol)=taug(lay,ngs3+8,icol)*0.92 - taug(lay,ngs3+9,icol)=taug(lay,ngs3+9,icol)*0.88 - taug(lay,ngs3+10,icol)=taug(lay,ngs3+10,icol)*1.07 - taug(lay,ngs3+11,icol)=taug(lay,ngs3+11,icol)*1.1 - taug(lay,ngs3+12,icol)=taug(lay,ngs3+12,icol)*0.99 - taug(lay,ngs3+13,icol)=taug(lay,ngs3+13,icol)*0.88 - taug(lay,ngs3+14,icol)=taug(lay,ngs3+14,icol)*0.943 - - end do ! upper layers - - end do ! column - - end subroutine taugb4 - - - !------------------------------------------- - subroutine taugb5 (ncol, nlay, taug, pfracs) - !------------------------------------------- - ! - ! band 5: 700-820 cm-1 (low key - h2o,co2; low minor - o3, ccl4) - ! (high key - o3,co2) - - ! Compute the optical depth by interpolating in ln(pressure) and - ! temperature, and appropriate species. Below laytrop, the - ! water vapor self-continuum and foreign continuum is - ! interpolated (in temperature) separately. - - use parrrtm, only : ngs4 - use rrlw_ref, only : chi_mls - use rrlw_kg05 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, indm, ig - integer :: js, js1, jmo3, jpl - real :: speccomb, specparm, specmult, fs - real :: speccomb1, specparm1, specmult1, fs1 - real :: speccomb_mo3, specparm_mo3, specmult_mo3, fmo3 - real :: speccomb_planck, specparm_planck, specmult_planck, fpl - real :: p, p4, fk0, fk1, fk2 - real :: fac000, fac100, fac200, fac010, fac110, fac210 - real :: fac001, fac101, fac201, fac011, fac111, fac211 - real :: tauself, taufor, o3m1, o3m2, abso3 - real :: refrat_planck_a, refrat_planck_b, refrat_m_a - real :: tau_major, tau_major1 - - ! Minor gas mapping levels: - ! lower - o3, p = 317.34 mb, t = 240.77 K - ! lower - ccl4 - - ! Calculate reference ratio to be used in calculation of Planck - ! fraction in lower/upper atmosphere. - - ! P = 473.420 mb - refrat_planck_a = chi_mls(1,5)/chi_mls(2,5) - - ! P = 317.3480 - refrat_m_a = chi_mls(1,7)/chi_mls(2,7) - - ! P = 0.2369 mb - refrat_planck_b = chi_mls(3,43)/chi_mls(2,43) - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - speccomb = colh2o(lay,icol) + rat_h2oco2(lay,icol)*colco2(lay,icol) - specparm = colh2o(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 8. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colh2o(lay,icol) + rat_h2oco2_1(lay,icol)*colco2(lay,icol) - specparm1 = colh2o(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 8. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - speccomb_mo3 = colh2o(lay,icol) + refrat_m_a*colco2(lay,icol) - specparm_mo3 = colh2o(lay,icol)/speccomb_mo3 - if (specparm_mo3 .ge. oneminus) specparm_mo3 = oneminus - specmult_mo3 = 8. *specparm_mo3 - jmo3 = 1 + int(specmult_mo3) - fmo3 = mod(specmult_mo3,1.0 ) - - speccomb_planck = colh2o(lay,icol)+refrat_planck_a*colco2(lay,icol) - specparm_planck = colh2o(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 8. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(5) + js - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(5) + js1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - indm = indminor(lay,icol) - - if (specparm .lt. 0.125 ) then - p = fs - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else if (specparm .gt. 0.875 ) then - p = -fs - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - endif - - if (specparm1 .lt. 0.125 ) then - p = fs1 - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else if (specparm1 .gt. 0.875 ) then - p = -fs1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - endif - - do ig = 1,ng5 - tauself = selffac(lay,icol) * (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - o3m1 = ka_mo3(jmo3,indm,ig) + fmo3 * & - (ka_mo3(jmo3+1,indm,ig)-ka_mo3(jmo3,indm,ig)) - o3m2 = ka_mo3(jmo3,indm+1,ig) + fmo3 * & - (ka_mo3(jmo3+1,indm+1,ig)-ka_mo3(jmo3,indm+1,ig)) - abso3 = o3m1 + minorfrac(lay,icol)*(o3m2-o3m1) - - if (specparm .lt. 0.125 ) then - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac200 * absa(ind0+2, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac210 * absa(ind0+11,ig)) - else if (specparm .gt. 0.875 ) then - tau_major = speccomb * & - (fac200 * absa(ind0-1, ig) + & - fac100 * absa(ind0, ig) + & - fac000 * absa(ind0+1, ig) + & - fac210 * absa(ind0+8, ig) + & - fac110 * absa(ind0+9, ig) + & - fac010 * absa(ind0+10,ig)) - else - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig)) - endif - - if (specparm1 .lt. 0.125 ) then - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac201 * absa(ind1+2, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig) + & - fac211 * absa(ind1+11,ig)) - else if (specparm1 .gt. 0.875 ) then - tau_major1 = speccomb1 * & - (fac201 * absa(ind1-1, ig) + & - fac101 * absa(ind1, ig) + & - fac001 * absa(ind1+1, ig) + & - fac211 * absa(ind1+8, ig) + & - fac111 * absa(ind1+9, ig) + & - fac011 * absa(ind1+10,ig)) - else - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) - endif - - taug(lay,ngs4+ig,icol) = & - tau_major + tau_major1 + tauself + taufor & - + abso3 * colo3(lay,icol) & - + colccl4(lay,icol) * ccl4(ig) - pfracs(lay,ngs4+ig,icol) = fracrefa(ig,jpl) + fpl * & - (fracrefa(ig,jpl+1)-fracrefa(ig,jpl)) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - speccomb = colo3(lay,icol) + rat_o3co2(lay,icol)*colco2(lay,icol) - specparm = colo3(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 4. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colo3(lay,icol) + rat_o3co2_1(lay,icol)*colco2(lay,icol) - specparm1 = colo3(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 4. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - - speccomb_planck = colo3(lay,icol)+refrat_planck_b*colco2(lay,icol) - specparm_planck = colo3(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 4. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(5) + js - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(5) + js1 - - do ig = 1,ng5 - taug(lay,ngs4+ig,icol) = & - speccomb * & - (fac000 * absb(ind0, ig) + & - fac100 * absb(ind0+1,ig) + & - fac010 * absb(ind0+5,ig) + & - fac110 * absb(ind0+6,ig)) & - + speccomb1 * & - (fac001 * absb(ind1, ig) + & - fac101 * absb(ind1+1,ig) + & - fac011 * absb(ind1+5,ig) + & - fac111 * absb(ind1+6,ig)) & - + colccl4(lay,icol) * ccl4(ig) - pfracs(lay,ngs4+ig,icol) = fracrefb(ig,jpl) + fpl * & - (fracrefb(ig,jpl+1)-fracrefb(ig,jpl)) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb5 - - - !------------------------------------------- - subroutine taugb6 (ncol, nlay, taug, pfracs) - !------------------------------------------- - ! - ! band 6: 820-980 cm-1 (low key - h2o; low minor - co2) - ! (high key - nothing; high minor - cfc11, cfc12) - - ! Compute the optical depth by interpolating in ln(pressure) and - ! temperature. The water vapor self-continuum and foreign continuum - ! is interpolated (in temperature) separately. - - use parrrtm, only : ngs5 - use rrlw_ref, only : chi_mls - use rrlw_kg06 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, indm, ig - real :: chi_co2, ratco2, adjfac, adjcolco2 - real :: tauself, taufor, absco2 - - ! Minor gas mapping levels: - ! lower - co2, p = 706.2720 mb, t = 294.2 K - ! upper - cfc11, cfc12 - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - -! In atmospheres where the amount of CO2 is too great to be considered -! a minor species, adjust the column amount of CO2 by an empirical factor -! to obtain the proper contribution. - chi_co2 = colco2(lay,icol)/(coldry(lay,icol)) - ratco2 = 1.e20 *chi_co2/chi_mls(2,jp(lay,icol)+1) - if (ratco2 .gt. 3.0 ) then - adjfac = 2.0 +(ratco2-2.0 )**0.77 - adjcolco2 = adjfac*chi_mls(2,jp(lay,icol)+1)*coldry(lay,icol)*1.e-20 - else - adjcolco2 = colco2(lay,icol) - endif - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(6) + 1 - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(6) + 1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - indm = indminor(lay,icol) - - do ig = 1,ng6 - tauself = selffac(lay,icol) * (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - absco2 = (ka_mco2(indm,ig) + minorfrac(lay,icol) * & - (ka_mco2(indm+1,ig) - ka_mco2(indm,ig))) - taug(lay,ngs5+ig,icol) = colh2o(lay,icol) * & - (fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) & - + tauself + taufor & - + adjcolco2 * absco2 & - + colcfc11(lay,icol) * cfc11adj(ig) & - + colcfc12(lay,icol) * cfc12(ig) - pfracs(lay,ngs5+ig,icol) = fracrefa(ig) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - do ig = 1,ng6 - taug(lay,ngs5+ig,icol) = 0.0 & - + colcfc11(lay,icol) * cfc11adj(ig) & - + colcfc12(lay,icol) * cfc12(ig) - pfracs(lay,ngs5+ig,icol) = fracrefa(ig) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb6 - - - !------------------------------------------- - subroutine taugb7 (ncol, nlay, taug, pfracs) - !------------------------------------------- - ! - ! band 7: 980-1080 cm-1 (low key - h2o,o3; low minor - co2) - ! (high key - o3; high minor - co2) - - ! Compute the optical depth by interpolating in ln(pressure), - ! temperature, and appropriate species. Below laytrop, the water - ! vapor self-continuum and foreign continuum is interpolated - ! (in temperature) separately. - - use parrrtm, only : ngs6 - use rrlw_ref, only : chi_mls - use rrlw_kg07 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, indm, ig - integer :: js, js1, jmco2, jpl - real :: speccomb, specparm, specmult, fs - real :: speccomb1, specparm1, specmult1, fs1 - real :: speccomb_mco2, specparm_mco2, specmult_mco2, fmco2 - real :: speccomb_planck, specparm_planck, specmult_planck, fpl - real :: p, p4, fk0, fk1, fk2 - real :: fac000, fac100, fac200, fac010, fac110, fac210 - real :: fac001, fac101, fac201, fac011, fac111, fac211 - real :: tauself, taufor, co2m1, co2m2, absco2 - real :: chi_co2, ratco2, adjfac, adjcolco2 - real :: refrat_planck_a, refrat_m_a - real :: tau_major, tau_major1 - - ! Minor gas mapping levels: - ! lower - co2, p = 706.2620 mb, t = 278.94 K - ! upper - co2, p = 12.9350 mb, t = 234.01 K - - ! Calculate reference ratio to be used in calculation of Planck - ! fraction in lower atmosphere. - - ! P = 706.2620 mb - refrat_planck_a = chi_mls(1,3)/chi_mls(3,3) - - ! P = 706.2720 mb - refrat_m_a = refrat_planck_a - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - speccomb = colh2o(lay,icol) + rat_h2oo3(lay,icol)*colo3(lay,icol) - specparm = colh2o(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 8. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colh2o(lay,icol) + rat_h2oo3_1(lay,icol)*colo3(lay,icol) - specparm1 = colh2o(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 8. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - speccomb_mco2 = colh2o(lay,icol) + refrat_m_a*colo3(lay,icol) - specparm_mco2 = colh2o(lay,icol)/speccomb_mco2 - if (specparm_mco2 .ge. oneminus) specparm_mco2 = oneminus - specmult_mco2 = 8. *specparm_mco2 - - jmco2 = 1 + int(specmult_mco2) - fmco2 = mod(specmult_mco2,1.0 ) - -! In atmospheres where the amount of CO2 is too great to be considered -! a minor species, adjust the column amount of CO2 by an empirical factor -! to obtain the proper contribution. - chi_co2 = colco2(lay,icol)/(coldry(lay,icol)) - ratco2 = 1.e20*chi_co2/chi_mls(2,jp(lay,icol)+1) - if (ratco2 .gt. 3.0 ) then - adjfac = 3.0 +(ratco2-3.0 )**0.79 - adjcolco2 = adjfac*chi_mls(2,jp(lay,icol)+1)*coldry(lay,icol)*1.e-20 - else - adjcolco2 = colco2(lay,icol) - endif - - speccomb_planck = colh2o(lay,icol)+refrat_planck_a*colo3(lay,icol) - specparm_planck = colh2o(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 8. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(7) + js - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(7) + js1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - indm = indminor(lay,icol) - - if (specparm .lt. 0.125 ) then - p = fs - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else if (specparm .gt. 0.875 ) then - p = -fs - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - endif - if (specparm1 .lt. 0.125 ) then - p = fs1 - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else if (specparm1 .gt. 0.875 ) then - p = -fs1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - endif - - do ig = 1,ng7 - tauself = selffac(lay,icol)* (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - co2m1 = ka_mco2(jmco2,indm,ig) + fmco2 * & - (ka_mco2(jmco2+1,indm,ig) - ka_mco2(jmco2,indm,ig)) - co2m2 = ka_mco2(jmco2,indm+1,ig) + fmco2 * & - (ka_mco2(jmco2+1,indm+1,ig) - ka_mco2(jmco2,indm+1,ig)) - absco2 = co2m1 + minorfrac(lay,icol) * (co2m2 - co2m1) - - if (specparm .lt. 0.125 ) then - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac200 * absa(ind0+2, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac210 * absa(ind0+11,ig)) - else if (specparm .gt. 0.875 ) then - tau_major = speccomb * & - (fac200 * absa(ind0-1, ig) + & - fac100 * absa(ind0, ig) + & - fac000 * absa(ind0+1, ig) + & - fac210 * absa(ind0+8, ig) + & - fac110 * absa(ind0+9, ig) + & - fac010 * absa(ind0+10,ig)) - else - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig)) - endif - - if (specparm1 .lt. 0.125 ) then - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac201 * absa(ind1+2, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig) + & - fac211 * absa(ind1+11,ig)) - else if (specparm1 .gt. 0.875 ) then - tau_major1 = speccomb1 * & - (fac201 * absa(ind1-1, ig) + & - fac101 * absa(ind1, ig) + & - fac001 * absa(ind1+1, ig) + & - fac211 * absa(ind1+8, ig) + & - fac111 * absa(ind1+9, ig) + & - fac011 * absa(ind1+10,ig)) - else - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) - endif - - taug(lay,ngs6+ig,icol) = & - tau_major + tau_major1 + tauself + taufor & - + adjcolco2 * absco2 - pfracs(lay,ngs6+ig,icol) = fracrefa(ig,jpl) + fpl * & - (fracrefa(ig,jpl+1)-fracrefa(ig,jpl)) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - -! In atmospheres where the amount of CO2 is too great to be considered -! a minor species, adjust the column amount of CO2 by an empirical factor -! to obtain the proper contribution. - chi_co2 = colco2(lay,icol)/(coldry(lay,icol)) - ratco2 = 1.e20*chi_co2/chi_mls(2,jp(lay,icol)+1) - if (ratco2 .gt. 3.0 ) then - adjfac = 2.0 +(ratco2-2.0 )**0.79 - adjcolco2 = adjfac*chi_mls(2,jp(lay,icol)+1)*coldry(lay,icol)*1.e-20 - else - adjcolco2 = colco2(lay,icol) - endif - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(7) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(7) + 1 - indm = indminor(lay,icol) - - do ig = 1,ng7 - absco2 = kb_mco2(indm,ig) + minorfrac(lay,icol) * & - (kb_mco2(indm+1,ig) - kb_mco2(indm,ig)) - taug(lay,ngs6+ig,icol) = colo3(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) & - + adjcolco2 * absco2 - pfracs(lay,ngs6+ig,icol) = fracrefb(ig) - enddo - -! Empirical modification to code to improve stratospheric cooling rates -! for o3. Revised to apply weighting for g-point reduction in this band. - - taug(lay,ngs6+6,icol)=taug(lay,ngs6+6,icol)*0.92 - taug(lay,ngs6+7,icol)=taug(lay,ngs6+7,icol)*0.88 - taug(lay,ngs6+8,icol)=taug(lay,ngs6+8,icol)*1.07 - taug(lay,ngs6+9,icol)=taug(lay,ngs6+9,icol)*1.1 - taug(lay,ngs6+10,icol)=taug(lay,ngs6+10,icol)*0.99 - taug(lay,ngs6+11,icol)=taug(lay,ngs6+11,icol)*0.855 - - end do ! upper layers - - end do ! column - - end subroutine taugb7 - - - !------------------------------------------- - subroutine taugb8 (ncol, nlay, taug, pfracs) - !------------------------------------------- - ! - ! band 8: 1080-1180 cm-1 (low key - h2o; low minor - co2,o3,n2o) - ! (high key - o3; high minor - co2, n2o) - - ! Compute the optical depth by interpolating in ln(pressure) and - ! temperature, and appropriate species. Below laytrop, the water vapor - ! self-continuum and foreign continuum is interpolated (in temperature) - ! separately. - - use parrrtm, only : ngs7 - use rrlw_ref, only : chi_mls - use rrlw_kg08 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, indm, ig - real :: tauself, taufor, absco2, abso3, absn2o - real :: chi_co2, ratco2, adjfac, adjcolco2 - - ! Minor gas mapping levels: - ! lower - co2, p = 1053.63 mb, t = 294.2 K - ! lower - o3, p = 317.348 mb, t = 240.77 K - ! lower - n2o, p = 706.2720 mb, t = 278.94 K - ! lower - cfc12,cfc11 - ! upper - co2, p = 35.1632 mb, t = 223.28 K - ! upper - n2o, p = 8.716e-2 mb, t = 226.03 K - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - -! In atmospheres where the amount of CO2 is too great to be considered -! a minor species, adjust the column amount of CO2 by an empirical factor -! to obtain the proper contribution. - chi_co2 = colco2(lay,icol)/(coldry(lay,icol)) - ratco2 = 1.e20 *chi_co2/chi_mls(2,jp(lay,icol)+1) - if (ratco2 .gt. 3.0 ) then - adjfac = 2.0 +(ratco2-2.0 )**0.65 - adjcolco2 = adjfac*chi_mls(2,jp(lay,icol)+1)*coldry(lay,icol)*1.e-20 - else - adjcolco2 = colco2(lay,icol) - endif - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(8) + 1 - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(8) + 1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - indm = indminor(lay,icol) - - do ig = 1,ng8 - tauself = selffac(lay,icol) * (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - absco2 = (ka_mco2(indm,ig) + minorfrac(lay,icol) * & - (ka_mco2(indm+1,ig) - ka_mco2(indm,ig))) - abso3 = (ka_mo3(indm,ig) + minorfrac(lay,icol) * & - (ka_mo3(indm+1,ig) - ka_mo3(indm,ig))) - absn2o = (ka_mn2o(indm,ig) + minorfrac(lay,icol) * & - (ka_mn2o(indm+1,ig) - ka_mn2o(indm,ig))) - taug(lay,ngs7+ig,icol) = colh2o(lay,icol) * & - (fac00(lay,icol) * absa(ind0,ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1,ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) & - + tauself + taufor & - + adjcolco2 * absco2 & - + colo3(lay,icol) * abso3 & - + coln2o(lay,icol) * absn2o & - + colcfc12(lay,icol) * cfc12(ig) & - + colcfc22(lay,icol) * cfc22adj(ig) - pfracs(lay,ngs7+ig,icol) = fracrefa(ig) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - -! In atmospheres where the amount of CO2 is too great to be considered -! a minor species, adjust the column amount of CO2 by an empirical factor -! to obtain the proper contribution. - chi_co2 = colco2(lay,icol)/coldry(lay,icol) - ratco2 = 1.e20 *chi_co2/chi_mls(2,jp(lay,icol)+1) - if (ratco2 .gt. 3.0 ) then - adjfac = 2.0 +(ratco2-2.0 )**0.65 - adjcolco2 = adjfac*chi_mls(2,jp(lay,icol)+1) * coldry(lay,icol)*1.e-20 - else - adjcolco2 = colco2(lay,icol) - endif - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(8) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(8) + 1 - indm = indminor(lay,icol) - - do ig = 1,ng8 - absco2 = (kb_mco2(indm,ig) + minorfrac(lay,icol) * & - (kb_mco2(indm+1,ig) - kb_mco2(indm,ig))) - absn2o = (kb_mn2o(indm,ig) + minorfrac(lay,icol) * & - (kb_mn2o(indm+1,ig) - kb_mn2o(indm,ig))) - taug(lay,ngs7+ig,icol) = colo3(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) & - + adjcolco2 * absco2 & - + coln2o(lay,icol) * absn2o & - + colcfc12(lay,icol) * cfc12(ig) & - + colcfc22(lay,icol) * cfc22adj(ig) - pfracs(lay,ngs7+ig,icol) = fracrefb(ig) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb8 - - - !------------------------------------------- - subroutine taugb9 (ncol, nlay, taug, pfracs) - !------------------------------------------- - ! - ! band 9: 1180-1390 cm-1 (low key - h2o,ch4; low minor - n2o) - ! (high key - ch4; high minor - n2o) - - ! Compute the optical depth by interpolating in ln(pressure), - ! temperature, and appropriate species. Below laytrop, the water - ! vapor self-continuum and foreign continuum is interpolated - ! (in temperature) separately. - - use parrrtm, only : ngs8 - use rrlw_ref, only : chi_mls - use rrlw_kg09 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, indm, ig - integer :: js, js1, jmn2o, jpl - real :: speccomb, specparm, specmult, fs - real :: speccomb1, specparm1, specmult1, fs1 - real :: speccomb_mn2o, specparm_mn2o, specmult_mn2o, fmn2o - real :: speccomb_planck, specparm_planck, specmult_planck, fpl - real :: p, p4, fk0, fk1, fk2 - real :: fac000, fac100, fac200, fac010, fac110, fac210 - real :: fac001, fac101, fac201, fac011, fac111, fac211 - real :: tauself, taufor, n2om1, n2om2, absn2o - real :: chi_n2o, ratn2o, adjfac, adjcoln2o - real :: refrat_planck_a, refrat_m_a - real :: tau_major, tau_major1 - - ! Minor gas mapping levels: - ! lower - n2o, p = 706.272 mb, t = 278.94 K - ! upper - n2o, p = 95.58 mb, t = 215.7 K - - ! Calculate reference ratio to be used in calculation of Planck - ! fraction in lower atmosphere. - - ! P = 212 mb - refrat_planck_a = chi_mls(1,9)/chi_mls(6,9) - - ! P = 706.272 mb - refrat_m_a = chi_mls(1,3)/chi_mls(6,3) - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - speccomb = colh2o(lay,icol) + rat_h2och4(lay,icol)*colch4(lay,icol) - specparm = colh2o(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 8. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colh2o(lay,icol) + rat_h2och4_1(lay,icol)*colch4(lay,icol) - specparm1 = colh2o(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 8. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - speccomb_mn2o = colh2o(lay,icol) + refrat_m_a*colch4(lay,icol) - specparm_mn2o = colh2o(lay,icol)/speccomb_mn2o - if (specparm_mn2o .ge. oneminus) specparm_mn2o = oneminus - specmult_mn2o = 8. *specparm_mn2o - jmn2o = 1 + int(specmult_mn2o) - fmn2o = mod(specmult_mn2o,1.0 ) - -! In atmospheres where the amount of N2O is too great to be considered -! a minor species, adjust the column amount of N2O by an empirical factor -! to obtain the proper contribution. - chi_n2o = coln2o(lay,icol)/(coldry(lay,icol)) - ratn2o = 1.e20 *chi_n2o/chi_mls(4,jp(lay,icol)+1) - if (ratn2o .gt. 1.5 ) then - adjfac = 0.5 +(ratn2o-0.5 )**0.65 - adjcoln2o = adjfac*chi_mls(4,jp(lay,icol)+1)*coldry(lay,icol)*1.e-20 - else - adjcoln2o = coln2o(lay,icol) - endif - - speccomb_planck = colh2o(lay,icol)+refrat_planck_a*colch4(lay,icol) - specparm_planck = colh2o(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 8. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(9) + js - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(9) + js1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - indm = indminor(lay,icol) - - if (specparm .lt. 0.125 ) then - p = fs - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else if (specparm .gt. 0.875 ) then - p = -fs - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - endif - - if (specparm1 .lt. 0.125 ) then - p = fs1 - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else if (specparm1 .gt. 0.875 ) then - p = -fs1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - endif - - do ig = 1,ng9 - tauself = selffac(lay,icol)* (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - n2om1 = ka_mn2o(jmn2o,indm,ig) + fmn2o * & - (ka_mn2o(jmn2o+1,indm,ig) - ka_mn2o(jmn2o,indm,ig)) - n2om2 = ka_mn2o(jmn2o,indm+1,ig) + fmn2o * & - (ka_mn2o(jmn2o+1,indm+1,ig) - ka_mn2o(jmn2o,indm+1,ig)) - absn2o = n2om1 + minorfrac(lay,icol) * (n2om2 - n2om1) - - if (specparm .lt. 0.125 ) then - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac200 * absa(ind0+2, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac210 * absa(ind0+11,ig)) - else if (specparm .gt. 0.875 ) then - tau_major = speccomb * & - (fac200 * absa(ind0-1, ig) + & - fac100 * absa(ind0, ig) + & - fac000 * absa(ind0+1, ig) + & - fac210 * absa(ind0+8, ig) + & - fac110 * absa(ind0+9, ig) + & - fac010 * absa(ind0+10,ig)) - else - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig)) - endif - - if (specparm1 .lt. 0.125 ) then - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac201 * absa(ind1+2, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig) + & - fac211 * absa(ind1+11,ig)) - else if (specparm1 .gt. 0.875 ) then - tau_major1 = speccomb1 * & - (fac201 * absa(ind1-1, ig) + & - fac101 * absa(ind1, ig) + & - fac001 * absa(ind1+1, ig) + & - fac211 * absa(ind1+8, ig) + & - fac111 * absa(ind1+9, ig) + & - fac011 * absa(ind1+10,ig)) - else - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) - endif - - taug(lay,ngs8+ig,icol) = & - tau_major + tau_major1 + tauself + taufor & - + adjcoln2o * absn2o - pfracs(lay,ngs8+ig,icol) = fracrefa(ig,jpl) + fpl * & - (fracrefa(ig,jpl+1)-fracrefa(ig,jpl)) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - -! In atmospheres where the amount of N2O is too great to be considered -! a minor species, adjust the column amount of N2O by an empirical factor -! to obtain the proper contribution. - chi_n2o = coln2o(lay,icol)/(coldry(lay,icol)) - ratn2o = 1.e20 *chi_n2o/chi_mls(4,jp(lay,icol)+1) - if (ratn2o .gt. 1.5 ) then - adjfac = 0.5 +(ratn2o-0.5 )**0.65 - adjcoln2o = adjfac*chi_mls(4,jp(lay,icol)+1)*coldry(lay,icol)*1.e-20 - else - adjcoln2o = coln2o(lay,icol) - endif - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(9) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(9) + 1 - indm = indminor(lay,icol) - - do ig = 1,ng9 - absn2o = kb_mn2o(indm,ig) + minorfrac(lay,icol) * & - (kb_mn2o(indm+1,ig) - kb_mn2o(indm,ig)) - taug(lay,ngs8+ig,icol) = colch4(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) & - + adjcoln2o * absn2o - pfracs(lay,ngs8+ig,icol) = fracrefb(ig) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb9 - - - !-------------------------------------------- - subroutine taugb10 (ncol, nlay, taug, pfracs) - !-------------------------------------------- - ! - ! band 10: 1390-1480 cm-1 (low key - h2o; high key - h2o) - - ! Compute the optical depth by interpolating in ln(pressure) and - ! temperature. Below laytrop, the water vapor self-continuum and - ! foreign continuum is interpolated (in temperature) separately. - - use parrrtm, only : ngs9 - use rrlw_kg10 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, ig - real :: tauself, taufor - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(10) + 1 - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(10) + 1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - - do ig = 1,ng10 - tauself = selffac(lay,icol) * (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - taug(lay,ngs9+ig,icol) = colh2o(lay,icol) * & - (fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) & - + tauself + taufor - pfracs(lay,ngs9+ig,icol) = fracrefa(ig) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(10) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(10) + 1 - indf = indfor(lay,icol) - - do ig = 1,ng10 - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - taug(lay,ngs9+ig,icol) = colh2o(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) & - + taufor - pfracs(lay,ngs9+ig,icol) = fracrefb(ig) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb10 - - - !-------------------------------------------- - subroutine taugb11 (ncol, nlay, taug, pfracs) - !-------------------------------------------- - ! - ! band 11: 1480-1800 cm-1 (low - h2o; low minor - o2) - ! (high key - h2o; high minor - o2) - - ! Compute the optical depth by interpolating in ln(pressure) and - ! temperature. Below laytrop, the water vapor self-continuum and - ! foreign continuum is interpolated (in temperature) separately. - - use parrrtm, only : ngs10 - use rrlw_kg11 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, indm, ig - real :: scaleo2, tauself, taufor, tauo2 - - ! Minor gas mapping levels: - ! lower - o2, p = 706.2720 mb, t = 278.94 K - ! upper - o2, p = 4.758820 mb, t = 250.85 K - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(11) + 1 - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(11) + 1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - indm = indminor(lay,icol) - scaleo2 = colo2(lay,icol)*scaleminor(lay,icol) - do ig = 1,ng11 - tauself = selffac(lay,icol) * (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - tauo2 = scaleo2 * (ka_mo2(indm,ig) + minorfrac(lay,icol) * & - (ka_mo2(indm+1,ig) - ka_mo2(indm,ig))) - taug(lay,ngs10+ig,icol) = colh2o(lay,icol) * & - (fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) & - + tauself + taufor + tauo2 - pfracs(lay,ngs10+ig,icol) = fracrefa(ig) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(11) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(11) + 1 - indf = indfor(lay,icol) - indm = indminor(lay,icol) - scaleo2 = colo2(lay,icol)*scaleminor(lay,icol) - do ig = 1,ng11 - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - tauo2 = scaleo2 * (kb_mo2(indm,ig) + minorfrac(lay,icol) * & - (kb_mo2(indm+1,ig) - kb_mo2(indm,ig))) - taug(lay,ngs10+ig,icol) = colh2o(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) & - + taufor + tauo2 - pfracs(lay,ngs10+ig,icol) = fracrefb(ig) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb11 - - - !-------------------------------------------- - subroutine taugb12 (ncol, nlay, taug, pfracs) - !-------------------------------------------- - ! - ! band 12: 1800-2080 cm-1 (low - h2o,co2; high - nothing) - - ! Compute the optical depth by interpolating in ln(pressure), - ! temperature, and appropriate species. Below laytrop, the water - ! vapor self-continuum adn foreign continuum is interpolated - ! (in temperature) separately. - - use parrrtm, only : ngs11 - use rrlw_ref, only : chi_mls - use rrlw_kg12 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, ig - integer :: js, js1, jpl - real :: speccomb, specparm, specmult, fs - real :: speccomb1, specparm1, specmult1, fs1 - real :: speccomb_planck, specparm_planck, specmult_planck, fpl - real :: p, p4, fk0, fk1, fk2 - real :: fac000, fac100, fac200, fac010, fac110, fac210 - real :: fac001, fac101, fac201, fac011, fac111, fac211 - real :: tauself, taufor - real :: refrat_planck_a - real :: tau_major, tau_major1 - - ! Calculate reference ratio to be used in calculation of Planck - ! fraction in lower atmosphere. - - ! P = 174.164 mb - refrat_planck_a = chi_mls(1,10)/chi_mls(2,10) - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - speccomb = colh2o(lay,icol) + rat_h2oco2(lay,icol)*colco2(lay,icol) - specparm = colh2o(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 8. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colh2o(lay,icol) + rat_h2oco2_1(lay,icol)*colco2(lay,icol) - specparm1 = colh2o(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 8. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - speccomb_planck = colh2o(lay,icol)+refrat_planck_a*colco2(lay,icol) - specparm_planck = colh2o(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 8. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(12) + js - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(12) + js1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - - if (specparm .lt. 0.125 ) then - p = fs - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else if (specparm .gt. 0.875 ) then - p = -fs - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - endif - - if (specparm1 .lt. 0.125 ) then - p = fs1 - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else if (specparm1 .gt. 0.875 ) then - p = -fs1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - endif - - do ig = 1,ng12 - tauself = selffac(lay,icol) * (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - - if (specparm .lt. 0.125 ) then - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac200 * absa(ind0+2, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac210 * absa(ind0+11,ig)) - else if (specparm .gt. 0.875 ) then - tau_major = speccomb * & - (fac200 * absa(ind0-1, ig) + & - fac100 * absa(ind0, ig) + & - fac000 * absa(ind0+1, ig) + & - fac210 * absa(ind0+8, ig) + & - fac110 * absa(ind0+9, ig) + & - fac010 * absa(ind0+10,ig)) - else - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig)) - endif - - if (specparm1 .lt. 0.125 ) then - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac201 * absa(ind1+2, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig) + & - fac211 * absa(ind1+11,ig)) - else if (specparm1 .gt. 0.875 ) then - tau_major1 = speccomb1 * & - (fac201 * absa(ind1-1, ig) + & - fac101 * absa(ind1, ig) + & - fac001 * absa(ind1+1, ig) + & - fac211 * absa(ind1+8, ig) + & - fac111 * absa(ind1+9, ig) + & - fac011 * absa(ind1+10,ig)) - else - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) - endif - - taug(lay,ngs11+ig,icol) = & - tau_major + tau_major1 + tauself + taufor - pfracs(lay,ngs11+ig,icol) = fracrefa(ig,jpl) + fpl * & - (fracrefa(ig,jpl+1)-fracrefa(ig,jpl)) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - do ig = 1,ng12 - taug(lay,ngs11+ig,icol) = 0.0 - pfracs(lay,ngs11+ig,icol) = 0.0 - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb12 - - - !-------------------------------------------- - subroutine taugb13 (ncol, nlay, taug, pfracs) - !-------------------------------------------- - ! - ! band 13: 2080-2250 cm-1 (low key - h2o,n2o; high minor - o3 minor) - - ! Compute the optical depth by interpolating in ln(pressure), - ! temperature, and appropriate species. Below laytrop, the water - ! vapor self-continuum and foreign continuum is interpolated - ! (in temperature) separately. - - use parrrtm, only : ngs12 - use rrlw_ref, only : chi_mls - use rrlw_kg13 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, indm, ig - integer :: js, js1, jmco2, jmco, jpl - real :: speccomb, specparm, specmult, fs - real :: speccomb1, specparm1, specmult1, fs1 - real :: speccomb_mco2, specparm_mco2, specmult_mco2, fmco2 - real :: speccomb_mco, specparm_mco, specmult_mco, fmco - real :: speccomb_planck, specparm_planck, specmult_planck, fpl - real :: p, p4, fk0, fk1, fk2 - real :: fac000, fac100, fac200, fac010, fac110, fac210 - real :: fac001, fac101, fac201, fac011, fac111, fac211 - real :: tauself, taufor, co2m1, co2m2, absco2 - real :: com1, com2, absco, abso3 - real :: chi_co2, ratco2, adjfac, adjcolco2 - real :: refrat_planck_a, refrat_m_a, refrat_m_a3 - real :: tau_major, tau_major1 - - ! Minor gas mapping levels : - ! lower - co2, p = 1053.63 mb, t = 294.2 K - ! lower - co, p = 706 mb, t = 278.94 K - ! upper - o3, p = 95.5835 mb, t = 215.7 K - - ! Calculate reference ratio to be used in calculation of Planck - ! fraction in lower atmosphere. - - ! P = 473.420 mb (Level 5) - refrat_planck_a = chi_mls(1,5)/chi_mls(4,5) - - ! P = 1053. (Level 1) - refrat_m_a = chi_mls(1,1)/chi_mls(4,1) - - ! P = 706. (Level 3) - refrat_m_a3 = chi_mls(1,3)/chi_mls(4,3) - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - speccomb = colh2o(lay,icol) + rat_h2on2o(lay,icol)*coln2o(lay,icol) - specparm = colh2o(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 8. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colh2o(lay,icol) + rat_h2on2o_1(lay,icol)*coln2o(lay,icol) - specparm1 = colh2o(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 8. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - speccomb_mco2 = colh2o(lay,icol) + refrat_m_a*coln2o(lay,icol) - specparm_mco2 = colh2o(lay,icol)/speccomb_mco2 - if (specparm_mco2 .ge. oneminus) specparm_mco2 = oneminus - specmult_mco2 = 8. *specparm_mco2 - jmco2 = 1 + int(specmult_mco2) - fmco2 = mod(specmult_mco2,1.0 ) - -! In atmospheres where the amount of CO2 is too great to be considered -! a minor species, adjust the column amount of CO2 by an empirical factor -! to obtain the proper contribution. - chi_co2 = colco2(lay,icol)/(coldry(lay,icol)) - ratco2 = 1.e20 *chi_co2/3.55e-4 - if (ratco2 .gt. 3.0 ) then - adjfac = 2.0 +(ratco2-2.0 )**0.68 - adjcolco2 = adjfac*3.55e-4*coldry(lay,icol)*1.e-20 - else - adjcolco2 = colco2(lay,icol) - endif - - speccomb_mco = colh2o(lay,icol) + refrat_m_a3*coln2o(lay,icol) - specparm_mco = colh2o(lay,icol)/speccomb_mco - if (specparm_mco .ge. oneminus) specparm_mco = oneminus - specmult_mco = 8. *specparm_mco - jmco = 1 + int(specmult_mco) - fmco = mod(specmult_mco,1.0 ) - - speccomb_planck = colh2o(lay,icol)+refrat_planck_a*coln2o(lay,icol) - specparm_planck = colh2o(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 8. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(13) + js - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(13) + js1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - indm = indminor(lay,icol) - - if (specparm .lt. 0.125 ) then - p = fs - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else if (specparm .gt. 0.875 ) then - p = -fs - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - endif - - if (specparm1 .lt. 0.125 ) then - p = fs1 - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else if (specparm1 .gt. 0.875 ) then - p = -fs1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - endif - - do ig = 1,ng13 - tauself = selffac(lay,icol) * (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - co2m1 = ka_mco2(jmco2,indm,ig) + fmco2 * & - (ka_mco2(jmco2+1,indm,ig) - ka_mco2(jmco2,indm,ig)) - co2m2 = ka_mco2(jmco2,indm+1,ig) + fmco2 * & - (ka_mco2(jmco2+1,indm+1,ig) - ka_mco2(jmco2,indm+1,ig)) - absco2 = co2m1 + minorfrac(lay,icol) * (co2m2 - co2m1) - com1 = ka_mco(jmco,indm,ig) + fmco * & - (ka_mco(jmco+1,indm,ig) - ka_mco(jmco,indm,ig)) - com2 = ka_mco(jmco,indm+1,ig) + fmco * & - (ka_mco(jmco+1,indm+1,ig) - ka_mco(jmco,indm+1,ig)) - absco = com1 + minorfrac(lay,icol) * (com2 - com1) - - if (specparm .lt. 0.125 ) then - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac200 * absa(ind0+2, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac210 * absa(ind0+11,ig)) - else if (specparm .gt. 0.875 ) then - tau_major = speccomb * & - (fac200 * absa(ind0-1, ig) + & - fac100 * absa(ind0, ig) + & - fac000 * absa(ind0+1, ig) + & - fac210 * absa(ind0+8, ig) + & - fac110 * absa(ind0+9, ig) + & - fac010 * absa(ind0+10,ig)) - else - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig)) - endif - - if (specparm1 .lt. 0.125 ) then - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac201 * absa(ind1+2, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig) + & - fac211 * absa(ind1+11,ig)) - else if (specparm1 .gt. 0.875 ) then - tau_major1 = speccomb1 * & - (fac201 * absa(ind1-1, ig) + & - fac101 * absa(ind1, ig) + & - fac001 * absa(ind1+1, ig) + & - fac211 * absa(ind1+8, ig) + & - fac111 * absa(ind1+9, ig) + & - fac011 * absa(ind1+10,ig)) - else - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) - endif - - taug(lay,ngs12+ig,icol) = & - tau_major + tau_major1 + tauself + taufor & - + adjcolco2 * absco2 & - + colco(lay,icol) * absco - pfracs(lay,ngs12+ig,icol) = fracrefa(ig,jpl) + fpl * & - (fracrefa(ig,jpl+1)-fracrefa(ig,jpl)) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - indm = indminor(lay,icol) - do ig = 1,ng13 - abso3 = kb_mo3(indm,ig) + minorfrac(lay,icol) * & - (kb_mo3(indm+1,ig) - kb_mo3(indm,ig)) - taug(lay,ngs12+ig,icol) = colo3(lay,icol) * abso3 - pfracs(lay,ngs12+ig,icol) = fracrefb(ig) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb13 - - - !--------------------------------------------- - subroutine taugb14 (ncol, nlay , taug, pfracs) - !--------------------------------------------- - ! - ! band 14: 2250-2380 cm-1 (low - co2; high - co2) - - ! Compute the optical depth by interpolating in ln(pressure) and - ! temperature. Below laytrop, the water vapor self-continuum - ! and foreign continuum is interpolated (in temperature) separately. - - use parrrtm, only : ngs13 - use rrlw_kg14 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, ig - real :: tauself, taufor - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(14) + 1 - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(14) + 1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - do ig = 1,ng14 - tauself = selffac(lay,icol) * (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - taug(lay,ngs13+ig,icol) = colco2(lay,icol) * & - (fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) & - + tauself + taufor - pfracs(lay,ngs13+ig,icol) = fracrefa(ig) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(14) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(14) + 1 - do ig = 1,ng14 - taug(lay,ngs13+ig,icol) = colco2(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) - pfracs(lay,ngs13+ig,icol) = fracrefb(ig) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb14 - - - !-------------------------------------------- - subroutine taugb15 (ncol, nlay, taug, pfracs) - !-------------------------------------------- - ! - ! band 15: 2380-2600 cm-1 (low - n2o,co2; low minor - n2) - ! (high - nothing) - - ! Compute the optical depth by interpolating in ln(pressure), - ! temperature, and appropriate species. Below laytrop, the water - ! vapor self-continuum and foreign continuum is interpolated - ! (in temperature) separately. - - use parrrtm, only : ngs14 - use rrlw_ref, only : chi_mls - use rrlw_kg15 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, indm, ig - integer :: js, js1, jmn2, jpl - real :: speccomb, specparm, specmult, fs - real :: speccomb1, specparm1, specmult1, fs1 - real :: speccomb_mn2, specparm_mn2, specmult_mn2, fmn2 - real :: speccomb_planck, specparm_planck, specmult_planck, fpl - real :: p, p4, fk0, fk1, fk2 - real :: fac000, fac100, fac200, fac010, fac110, fac210 - real :: fac001, fac101, fac201, fac011, fac111, fac211 - real :: scalen2, tauself, taufor, n2m1, n2m2, taun2 - real :: refrat_planck_a, refrat_m_a - real :: tau_major, tau_major1 - - ! Minor gas mapping levels: - ! Lower - Nitrogen Continuum, P = 1053., T = 294. - - ! Calculate reference ratio to be used in calculation of Planck - ! fraction in lower atmosphere. - - ! P = 1053. mb (Level 1) - refrat_planck_a = chi_mls(4,1)/chi_mls(2,1) - refrat_m_a = refrat_planck_a - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - speccomb = coln2o(lay,icol) + rat_n2oco2(lay,icol)*colco2(lay,icol) - specparm = coln2o(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 8. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = coln2o(lay,icol) + rat_n2oco2_1(lay,icol)*colco2(lay,icol) - specparm1 = coln2o(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 8. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - speccomb_mn2 = coln2o(lay,icol) + refrat_m_a*colco2(lay,icol) - specparm_mn2 = coln2o(lay,icol)/speccomb_mn2 - if (specparm_mn2 .ge. oneminus) specparm_mn2 = oneminus - specmult_mn2 = 8. *specparm_mn2 - jmn2 = 1 + int(specmult_mn2) - fmn2 = mod(specmult_mn2,1.0 ) - - speccomb_planck = coln2o(lay,icol)+refrat_planck_a*colco2(lay,icol) - specparm_planck = coln2o(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 8. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(15) + js - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(15) + js1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - indm = indminor(lay,icol) - - scalen2 = colbrd(lay,icol)*scaleminor(lay,icol) - - if (specparm .lt. 0.125 ) then - p = fs - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else if (specparm .gt. 0.875 ) then - p = -fs - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - endif - if (specparm1 .lt. 0.125 ) then - p = fs1 - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else if (specparm1 .gt. 0.875 ) then - p = -fs1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - endif - - do ig = 1,ng15 - tauself = selffac(lay,icol)* (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - n2m1 = ka_mn2(jmn2,indm,ig) + fmn2 * & - (ka_mn2(jmn2+1,indm,ig) - ka_mn2(jmn2,indm,ig)) - n2m2 = ka_mn2(jmn2,indm+1,ig) + fmn2 * & - (ka_mn2(jmn2+1,indm+1,ig) - ka_mn2(jmn2,indm+1,ig)) - taun2 = scalen2 * (n2m1 + minorfrac(lay,icol) * (n2m2 - n2m1)) - - if (specparm .lt. 0.125 ) then - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac200 * absa(ind0+2, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac210 * absa(ind0+11,ig)) - else if (specparm .gt. 0.875 ) then - tau_major = speccomb * & - (fac200 * absa(ind0-1, ig) + & - fac100 * absa(ind0, ig) + & - fac000 * absa(ind0+1, ig) + & - fac210 * absa(ind0+8, ig) + & - fac110 * absa(ind0+9, ig) + & - fac010 * absa(ind0+10,ig)) - else - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig)) - endif - - if (specparm1 .lt. 0.125 ) then - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac201 * absa(ind1+2, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig) + & - fac211 * absa(ind1+11,ig)) - else if (specparm1 .gt. 0.875 ) then - tau_major1 = speccomb1 * & - (fac201 * absa(ind1-1, ig) + & - fac101 * absa(ind1, ig) + & - fac001 * absa(ind1+1, ig) + & - fac211 * absa(ind1+8, ig) + & - fac111 * absa(ind1+9, ig) + & - fac011 * absa(ind1+10,ig)) - else - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) - endif - - taug(lay,ngs14+ig,icol) = & - tau_major + tau_major1 + tauself + taufor + taun2 - pfracs(lay,ngs14+ig,icol) = fracrefa(ig,jpl) + fpl * & - (fracrefa(ig,jpl+1)-fracrefa(ig,jpl)) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - do ig = 1,ng15 - taug(lay,ngs14+ig,icol) = 0.0 - pfracs(lay,ngs14+ig,icol) = 0.0 - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb15 - - - !-------------------------------------------- - subroutine taugb16 (ncol, nlay, taug, pfracs) - !-------------------------------------------- - ! - ! band 16: 2600-3250 cm-1 (low key- h2o,ch4; high key - ch4) - - ! Compute the optical depth by interpolating in ln(pressure), - ! temperature,and appropriate species. Below laytrop, the water - ! vapor self-continuum and foreign continuum is interpolated - ! (in temperature) separately. - - use parrrtm, only : ngs15 - use rrlw_ref, only : chi_mls - use rrlw_kg16 - - integer, intent(in) :: ncol, nlay - real, intent(inout) :: taug(nlay,ngptlw,ncol) - real, intent(inout) :: pfracs(nlay,ngptlw,ncol) - - integer :: icol, lay, ind0, ind1, inds, indf, ig - integer :: js, js1, jpl - real :: speccomb, specparm, specmult, fs - real :: speccomb1, specparm1, specmult1, fs1 - real :: speccomb_planck, specparm_planck, specmult_planck, fpl - real :: p, p4, fk0, fk1, fk2 - real :: fac000, fac100, fac200, fac010, fac110, fac210 - real :: fac001, fac101, fac201, fac011, fac111, fac211 - real :: tauself, taufor - real :: refrat_planck_a - real :: tau_major, tau_major1 - - ! Calculate reference ratio to be used in calculation of Planck - ! fraction in lower atmosphere. - - ! P = 387. mb (Level 6) - refrat_planck_a = chi_mls(1,6)/chi_mls(6,6) - - do icol = 1,ncol - - ! lower atmosphere - do lay = 1,laytrop(icol) - - speccomb = colh2o(lay,icol) + rat_h2och4(lay,icol)*colch4(lay,icol) - specparm = colh2o(lay,icol)/speccomb - if (specparm .ge. oneminus) specparm = oneminus - specmult = 8. *(specparm) - js = 1 + int(specmult) - fs = mod(specmult,1.0 ) - - speccomb1 = colh2o(lay,icol) + rat_h2och4_1(lay,icol)*colch4(lay,icol) - specparm1 = colh2o(lay,icol)/speccomb1 - if (specparm1 .ge. oneminus) specparm1 = oneminus - specmult1 = 8. *(specparm1) - js1 = 1 + int(specmult1) - fs1 = mod(specmult1,1.0 ) - - speccomb_planck = colh2o(lay,icol)+refrat_planck_a*colch4(lay,icol) - specparm_planck = colh2o(lay,icol)/speccomb_planck - if (specparm_planck .ge. oneminus) specparm_planck=oneminus - specmult_planck = 8. *specparm_planck - jpl= 1 + int(specmult_planck) - fpl = mod(specmult_planck,1.0 ) - - ind0 = ((jp(lay,icol)-1)*5+(jt(lay,icol)-1))*nspa(16) + js - ind1 = (jp(lay,icol)*5+(jt1(lay,icol)-1))*nspa(16) + js1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - - if (specparm .lt. 0.125 ) then - p = fs - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else if (specparm .gt. 0.875 ) then - p = -fs - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac000 = fk0*fac00(lay,icol) - fac100 = fk1*fac00(lay,icol) - fac200 = fk2*fac00(lay,icol) - fac010 = fk0*fac10(lay,icol) - fac110 = fk1*fac10(lay,icol) - fac210 = fk2*fac10(lay,icol) - else - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - endif - - if (specparm1 .lt. 0.125 ) then - p = fs1 - 1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else if (specparm1 .gt. 0.875 ) then - p = -fs1 - p4 = p**4 - fk0 = p4 - fk1 = 1 - p - 2.0 *p4 - fk2 = p + p4 - fac001 = fk0*fac01(lay,icol) - fac101 = fk1*fac01(lay,icol) - fac201 = fk2*fac01(lay,icol) - fac011 = fk0*fac11(lay,icol) - fac111 = fk1*fac11(lay,icol) - fac211 = fk2*fac11(lay,icol) - else - fac001 = (1. - fs1) * fac01(lay,icol) - fac011 = (1. - fs1) * fac11(lay,icol) - fac101 = fs1 * fac01(lay,icol) - fac111 = fs1 * fac11(lay,icol) - endif - - do ig = 1,ng16 - tauself = selffac(lay,icol)* (selfref(inds,ig) + selffrac(lay,icol) * & - (selfref(inds+1,ig) - selfref(inds,ig))) - taufor = forfac(lay,icol) * (forref(indf,ig) + forfrac(lay,icol) * & - (forref(indf+1,ig) - forref(indf,ig))) - - if (specparm .lt. 0.125 ) then - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac200 * absa(ind0+2, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac210 * absa(ind0+11,ig)) - else if (specparm .gt. 0.875 ) then - tau_major = speccomb * & - (fac200 * absa(ind0-1, ig) + & - fac100 * absa(ind0, ig) + & - fac000 * absa(ind0+1, ig) + & - fac210 * absa(ind0+8, ig) + & - fac110 * absa(ind0+9, ig) + & - fac010 * absa(ind0+10,ig)) - else - tau_major = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig)) - endif - - if (specparm1 .lt. 0.125) then - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac201 * absa(ind1+2, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig) + & - fac211 * absa(ind1+11,ig)) - else if (specparm1 .gt. 0.875) then - tau_major1 = speccomb1 * & - (fac201 * absa(ind1-1, ig) + & - fac101 * absa(ind1, ig) + & - fac001 * absa(ind1+1, ig) + & - fac211 * absa(ind1+8, ig) + & - fac111 * absa(ind1+9, ig) + & - fac011 * absa(ind1+10,ig)) - else - tau_major1 = speccomb1 * & - (fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) - endif - - taug(lay,ngs15+ig,icol) = & - tau_major + tau_major1 + tauself + taufor - pfracs(lay,ngs15+ig,icol) = fracrefa(ig,jpl) + fpl * & - (fracrefa(ig,jpl+1)-fracrefa(ig,jpl)) - enddo - - end do ! lower layers - - ! upper atmosphere - do lay = laytrop(icol)+1, nlay - - ind0 = ((jp(lay,icol)-13)*5+(jt(lay,icol)-1))*nspb(16) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(16) + 1 - do ig = 1,ng16 - taug(lay,ngs15+ig,icol) = colch4(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) - pfracs(lay,ngs15+ig,icol) = fracrefb(ig) - enddo - - end do ! upper layers - - end do ! column - - end subroutine taugb16 - - - ! --------------------------------------------- - subroutine addAerosols (ncol, nlay, taua, taug) - ! --------------------------------------------- - - integer, intent(in) :: ncol, nlay - real, intent(in) :: taua(nlay,nbndlw,ncol) - real, intent(inout) :: taug(nlay,ngptlw,ncol) - - integer :: icol, lay, ig, ibnd - - do icol = 1,ncol - do ig = 1,ngptlw - ibnd = ngb(ig) - taug(:,ig,icol) = taug(:,ig,icol) + taua(:,ibnd,icol) - end do - end do - - end subroutine addAerosols - -end module rrtmg_lw_taumol - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/irrad.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/irrad.F90 deleted file mode 100644 index 8901297d2..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/irrad.F90 +++ /dev/null @@ -1,3051 +0,0 @@ -! $Id$ - -module irradmod - -#ifdef _CUDA - use cudafor - use MAPL_ConstantsMod, only: MAPL_GRAV -#else - use gettau, only: getirtau -#endif - - implicit none - -#ifndef _CUDA - private - public :: irrad -#else - ! Device inputs - ! ------------- - - real , allocatable, dimension(:,: ), device :: ple_dev - real , allocatable, dimension(:,: ), device :: ta_dev - real , allocatable, dimension(:,: ), device :: wa_dev - real , allocatable, dimension(:,: ), device :: oa_dev - real , allocatable, dimension(: ), device :: tb_dev - real , allocatable, dimension(:,: ), device :: n2o_dev - real , allocatable, dimension(:,: ), device :: ch4_dev - real , allocatable, dimension(:,: ), device :: cfc11_dev - real , allocatable, dimension(:,: ), device :: cfc12_dev - real , allocatable, dimension(:,: ), device :: cfc22_dev - real , allocatable, dimension(:,: ), device :: fs_dev - real , allocatable, dimension(:,: ), device :: tg_dev - real , allocatable, dimension(:,:,: ), device :: eg_dev - real , allocatable, dimension(:,: ), device :: tv_dev - real , allocatable, dimension(:,:,: ), device :: ev_dev - real , allocatable, dimension(:,:,: ), device :: rv_dev - real , allocatable, dimension(:,:,: ), device :: cwc_dev - real , allocatable, dimension(:,: ), device :: fcld_dev - real , allocatable, dimension(:,:,: ), device :: reff_dev - real , allocatable, dimension(:,:,: ), device :: taua_dev - real , allocatable, dimension(:,:,: ), device :: ssaa_dev - real , allocatable, dimension(:,:,: ), device :: asya_dev - - ! Constant arrays in device memory - ! -------------------------------- - - real , allocatable, dimension(:,: ), device :: c1, c2, c3 - real , allocatable, dimension(:,: ), device :: oo1, oo2, oo3 - real , allocatable, dimension(:,: ), device :: h11, h12, h13 - real , allocatable, dimension(:,: ), device :: h21, h22, h23 - real , allocatable, dimension(:,: ), device :: h81, h82, h83 - - ! Device outputs - ! -------------- - - real , allocatable, dimension(:,: ), device :: flxu_dev - real , allocatable, dimension(:,: ), device :: flxau_dev - real , allocatable, dimension(:,: ), device :: flcu_dev - real , allocatable, dimension(:,: ), device :: flau_dev - - real , allocatable, dimension(:,: ), device :: flxd_dev - real , allocatable, dimension(:,: ), device :: flxad_dev - real , allocatable, dimension(:,: ), device :: flcd_dev - real , allocatable, dimension(:,: ), device :: flad_dev - - real , allocatable, dimension(:,: ), device :: dfdts_dev - real , allocatable, dimension(: ), device :: sfcem_dev - real , allocatable, dimension(:,:,: ), device :: taudiag_dev - - ! Constant memory - ! --------------- - - real , dimension(9 ), constant :: xkw - real , dimension(9 ), constant :: xke - integer, dimension(9 ), constant :: mw - real , dimension(9 ), constant :: aw - real , dimension(9 ), constant :: bw - real , dimension(9 ), constant :: pm - real , dimension(6, 9), constant :: fkw - real , dimension(6, 3), constant :: gkw - real , dimension(3,10), constant :: aib_ir - real , dimension(4,10), constant :: awb_ir - real , dimension(4,10), constant :: aiw_ir - real , dimension(4,10), constant :: aww_ir - real , dimension(4,10), constant :: aig_ir - real , dimension(4,10), constant :: awg_ir - real , dimension(6,10), constant :: cb - real , dimension(5,10), constant :: dcb - real , constant :: w11 - real , constant :: w12 - real , constant :: w13 - real , constant :: p11 - real , constant :: p12 - real , constant :: p13 - real , constant :: dwe - real , constant :: dpe -#endif - - ! Parameters - ! ---------- - - integer, parameter, public :: nx = 26 - integer, parameter, public :: no = 21 - integer, parameter, public :: nc = 30 - integer, parameter, public :: nh = 31 - -contains - - -!********************** August 2004***************************** - -! $Id$ - -#ifdef _CUDA - attributes(global) subroutine irrad (m,np,co2,trace,ns,na,nb,ict,icb) -#else - subroutine irrad (m,np,ple_dev,ta_dev,wa_dev,oa_dev,tb_dev,co2,& - trace,n2o_dev,ch4_dev,cfc11_dev,cfc12_dev,cfc22_dev,& - cwc_dev,fcld_dev,ict,icb,reff_dev,& - ns,fs_dev,tg_dev,eg_dev,tv_dev,ev_dev,rv_dev,& - na,nb,taua_dev,ssaa_dev,asya_dev,& - flxu_dev,flcu_dev,flau_dev,flxau_dev,& - flxd_dev,flcd_dev,flad_dev,flxad_dev,& - dfdts_dev,sfcem_dev,taudiag_dev) -#endif - - -!********************************************************************* -! -! -! THE EQUATION NUMBERS noted in this code follows the latest -! version (May 2003) of the NASA Tech. Memo. (2001), which can -! be accessed at ftp://climate.gsfc.nasa.gov/pub/chou/clirad_lw/ -! -! -!********************************************************************* -! CHANGE IN NOVEMBER 2011 -! -! Code rewritten to pass in the full taua, ssaa, and asya arrays -! in echo of the old, original irrad.f. This is done to allow for -! RRTMG aerosol work to be done similarly in the GC. -! -! Move to use the new getirtau routine in gettau -! -! CHANGE IN SEPTEMBER 2010 -! -! (1) Code relooped to have one, main loop over the soundings, many -! arrays reduced in dimensionality, some to scalars. -! (2) Instead of calling to external aerosol Mie code, efficiency and -! asymmetry tables are now passed in. -! (3) In order to save space for GPU execution, all exponential tables -! are now packed into one as-large-as-needed table with the packing -! controlled by a SELECT CASE in the band loop. -! -! CHANGE IN AUGUST 2004 -! -! (1) A layer was added above ple(1) to account for the downward -! radiation from above. -! -! CHANGE IN SEPTEMBER 2003 -! -! Calculations of the effective radius of cloud particles were -! conducted outside this subroutine "irrad". -! -! The logical parameter "vege" was deleted, and subsequent changes -! were made to the the subroutine "sfcflux" -! -! CHANGE IN MAY 2003 -! -! The effective size of ice particles was changed to the -! effective radius of cloud particles, and the definition of the -! effective radius followed that given in Chou, Lee and Yang -! (JGR, 2002). The reff is no longer an input parameter. -! -! CHANGE IN DECEMBER 2002 -! -! Do-loop 1500 was created inside the do-loop 1000 to compute -! the upward and downward emission of a layer -! -! CHANGE IN JULY 2002 -! -! The effective Planck functions of a layer were separately -! computed for the upward and downward emission (bu and bd). -! For a optically thick cloud layer, the upward emission was -! at the cloud top temperature, and the downward emission was -! at the cloud base temperature. -! -! CHANGES PRIOR TO JULY 2002: -! -! Subroutines for planck functions -! Subroutines for cloud overlapping -! Eliminate "rflx" and "rflc". Fold the flux calculations in -! Band 10 to that of the other bands. -! Return the calculations when ibn=10 and trace=.false. -! The number of aerosol types is allowed to be more than one. -! Include sub-grid surface variability and vegetation canopy. -! Include the CKD continuum absorption coefficient as an option. -! -!******************************************************************** -! -! -! Ice and liquid cloud particles are allowed to co-exist in each of the -! np layers. -! -! The maximum-random assumption is applied for cloud overlapping. -! Clouds are grouped into high, middle, and low clouds separated -! by the level indices ict and icb. Within each of the three groups, -! clouds are assumed maximally overlapped. Clouds among the three -! groups are assumed randomly overlapped. The indices ict and icb -! correspond approximately to the 400 mb and 700 mb levels. -! -! Various types of aerosols are allowed to be in any of the np layers. -! Aerosol optical properties can be specified as functions of height -! and spectral band. -! -! The surface can be divided into a number of sub-regions either with or -! without vegetation cover. Reflectivity and emissivity can be -! specified for each sub-region. -! -! There are options for computing fluxes: -! -! Transmission functions in the co2, o3, and the -! three water vapor bands with strong absorption are computed using -! table look-up. cooling rates are computed accurately from the -! surface up to 0.01 mb. -! -! If trace = .true., absorption due to n2o, ch4, cfcs, and the -! two minor co2 bands in the window region is included. -! Otherwise, absorption in those minor bands is neglected. -! -! If overcast=.true. (i.e., compiled with -DOVERCAST), the layer cloud -! cover is either 0 or 1. -! If overcast=.false. (not compiled with -DOVERCAST), the cloud cover -! can be anywhere between 0 and 1. -! Computation is faster for the .true. option than the .false. option. -! -! If aerosol = .true., aerosols are included in calculating transmission -! functions. Otherwise, aerosols are not included. -! -! -! The IR spectrum is divided into nine bands: -! -! band wavenumber (/cm) absorber -! -! 1 0 - 340 h2o -! 2 340 - 540 h2o -! 3 540 - 800 h2o,cont,co2 -! 4 800 - 980 h2o,cont -! co2,f11,f12,f22 -! 5 980 - 1100 h2o,cont,o3 -! co2,f11 -! 6 1100 - 1215 h2o,cont -! n2o,ch4,f12,f22 -! 7 1215 - 1380 h2o,cont -! n2o,ch4 -! 8 1380 - 1900 h2o -! 9 1900 - 3000 h2o -! -! In addition, a narrow band in the 17 micrometer region (Band 10) is added -! to compute flux reduction due to n2o -! -! 10 540 - 620 h2o,cont,co2,n2o -! -! Band 3 (540-800/cm) is further divided into 3 sub-bands : -! -! subband wavenumber (/cm) -! -! 3a 540 - 620 -! 3b 620 - 720 -! 3c 720 - 800 -! -!---- Input parameters units size -! (NOTE: _dev suffix is left off of arrays here -! for clarity's sake. _dev is needed to prevent -! GPU nameclash) -! -! number of soundings (m) -- 1 -! number of atmospheric layers (np) -- 1 -! level pressure (pl) Pa m*(np+1) -! layer temperature (ta) k m*np -! layer specific humidity (wa) g/g m*np -! layer ozone mixing ratio by mass (oa) g/g m*np -! surface air temperature (tb) k m -! co2 mixing ratio by volume (co2) pppv 1 -! option (trace) (see explanation above) -- 1 -! n2o mixing ratio by volume (n2o) pppv 1 -! ch4 mixing ratio by volume (ch4) pppv 1 -! cfc11 mixing ratio by volume (cfc11) pppv 1 -! cfc12 mixing ratio by volume (cfc12) pppv 1 -! cfc22 mixing ratio by volume (cfc22) pppv 1 -! number of sub-grid surface types (ns) -- m -! fractional cover of sub-grid regions (fs) fraction m*ns -! land or ocean surface temperature (tg) k m*ns -! land or ocean surface emissivity (eg) fraction m*ns*9 -! vegetation temperature (tv) k m*ns -! vegetation emissivity (ev) fraction m*ns*9 -! vegetation reflectivity (rv) fraction m*ns*9 -! cloud water mixing ratio (cwc) kg/kg m*np*3 -! index 1 for ice particles -! index 2 for liquid drops -! index 3 for rain drops -! index 4 for snow -! cloud amount (fcld) fraction m*np -! level index separating high and middle -- 1 -! clouds (ict) -! level index separating middle and low -- 1 -! clouds (icb) -! effective size of cloud particles (reff) micron m*np*3 -! index 1 for ice -! index 2 for water drops -! index 3 rain (not used in this code) -! index 4 snow -! number of bands (na) n/d 1 -! aerosol optical thickness (taua) n/d m*np*nb -! aerosol single scattering albedo (ssaa) n/d m*np*nb -! aerosol asymmetry factor (asya) n/d m*np*nb -! -!---- output parameters -! -! upwelling flux, all-sky (flxu) fraction m*(np+1) -! upwelling flux, all-sky no aerosol (flxau) fraction m*(np+1) -! upwelling flux, clear-sky (flcu) fraction m*(np+1) -! upwelling flux, clear-sky no aerosol (flau) fraction m*(np+1) -! downwelling flux, all-sky (flxd) fraction m*(np+1) -! downwelling flux, all-sky no aerosol (flxad) fraction m*(np+1) -! downwelling flux, clear-sky (flcd) fraction m*(np+1) -! downwelling flux, clear-sky no aerosol (flad) fraction m*(np+1) -! sensitivity of net downward flux -! to surface temperature (dfdts) fraction/k m*(np+1) -! emission by the surface (sfcem) fraction m -! -! Data used in table look-up for transmittance calculations: -! (contained in irradconstants.F90) -! -! c1 , c2, c3: for co2 (band 3) -! oo1,oo2,oo3: for o3 (band 5) -! h11,h12,h13: for h2o (band 1) -! h21,h22,h23: for h2o (band 2) -! h81,h82,h83: for h2o (band 8) -! -! Notes: -! -! (1) Scattering is parameterized for clouds and aerosols. -! (2) Diffuse cloud and aerosol transmissions are computed -! from exp(-1.66*tau). -! (3) If there are no clouds, flx=flc. -! (4) ple(1) is the pressure at the top of the model atmosphere, -! and ple(np+1) is the surface pressure. -! (5) Downward flux is positive and upward flux is negative. -! (6) sfcem and dfdts are negative because upward flux is defined as negative. -! (7) For questions and coding errors, please contact Ming-Dah Chou, -! Code 913, NASA/Goddard Space Flight Center, Greenbelt, MD 20771. -! Phone: 301-614-6192, Fax: 301-614-6307, -! e-mail: ming-dah.chou-1@nasa.gov -! -!*************************************************************************** - -#ifndef _CUDA - use rad_constants, only: & - aib_ir, awb_ir, & - aiw_ir, aww_ir, & - aig_ir, awg_ir - use irrad_constants, only: & - xkw, xke, mw, aw, bw, pm, & - fkw, gkw, cb, dcb, & - w11, w12, w13, p11, p12, & - p13, dwe, dpe, & - c1, c2, c3, & - oo1, oo2, oo3, & - h11, h12, h13, & - h21, h22, h23, & - h81, h82, h83 -#endif - - implicit none - -!---- input parameters ------ - -#ifdef _CUDA - integer, value :: m,np,na,ns,ict,icb,nb - logical, value :: trace - real, value :: co2 -#else - integer :: m,np,na,ns,ict,icb,nb - logical :: trace - real :: co2 - - real :: ple_dev(m,np+1),ta_dev(m,np),wa_dev(m,np),oa_dev(m,np),tb_dev(m) - real :: n2o_dev(m,np),ch4_dev(m,np),cfc11_dev(m,np),cfc12_dev(m,np),cfc22_dev(m,np) - real :: fs_dev(m,ns),tg_dev(m,ns),eg_dev(m,ns,10) - real :: tv_dev(m,ns),ev_dev(m,ns,10),rv_dev(m,ns,10) - real :: cwc_dev(m,np,4),fcld_dev(m,np) - real :: reff_dev(m,np,4) - - real :: taua_dev(m,np,nb) - real :: ssaa_dev(m,np,nb) - real :: asya_dev(m,np,nb) - -!---- output parameters ------ - - real :: flxu_dev(m,np+1),flxau_dev(m,np+1),flcu_dev(m,np+1),flau_dev(m,np+1) - real :: flxd_dev(m,np+1),flxad_dev(m,np+1),flcd_dev(m,np+1),flad_dev(m,np+1) - real :: dfdts_dev(m,np+1),sfcem_dev(m) - real :: taudiag_dev(m,np,10) -#endif - -!GPU These are needed to allocate space for temporary local arrays on the GPU. -!GPU On the CPU this ifndef converts them to np and ns, respectively. - -#ifndef GPU_MAXLEVS -#define GPU_MAXLEVS np -#endif - -#ifndef MAXNS -#define MAXNS ns -#endif - -!---- temporary arrays ----- - - real :: pa(0:GPU_MAXLEVS),dt(0:GPU_MAXLEVS) - real :: x1,x2,x3 - real :: dh2o(0:GPU_MAXLEVS),dcont(0:GPU_MAXLEVS),dco2(0:GPU_MAXLEVS),do3(0:GPU_MAXLEVS) - real :: dn2o(0:GPU_MAXLEVS),dch4(0:GPU_MAXLEVS) - real :: df11(0:GPU_MAXLEVS),df12(0:GPU_MAXLEVS),df22(0:GPU_MAXLEVS) - real :: th2o(6),tcon(3),tco2(6) - real :: tn2o(4),tch4(4),tcom(6) - real :: tf11,tf12,tf22 - real :: blayer(0:GPU_MAXLEVS+1),blevel(0:GPU_MAXLEVS+1) -!+++PRC - real :: dd(0:GPU_MAXLEVS+1),du(0:GPU_MAXLEVS+1) -!---PRC - real :: cd(0:GPU_MAXLEVS+1),cu(0:GPU_MAXLEVS+1) - real :: bd(0:GPU_MAXLEVS+1),bu(0:GPU_MAXLEVS+1) - real :: ad(0:GPU_MAXLEVS+1),au(0:GPU_MAXLEVS+1) - real :: bs,dbs,rflxs - real :: dp(0:GPU_MAXLEVS) - real :: taant - real :: trant,tranal - real :: transfc(0:GPU_MAXLEVS+1),transfca(0:GPU_MAXLEVS+1),trantcr(0:GPU_MAXLEVS+1),trantca(0:GPU_MAXLEVS+1) - real :: flau(0:GPU_MAXLEVS+1),flad(0:GPU_MAXLEVS+1) - real :: flcu(0:GPU_MAXLEVS+1),flcd(0:GPU_MAXLEVS+1) - real :: flxu(0:GPU_MAXLEVS+1),flxd(0:GPU_MAXLEVS+1) - real :: flxau(0:GPU_MAXLEVS+1),flxad(0:GPU_MAXLEVS+1) - real :: taerlyr(0:GPU_MAXLEVS) - -!mjs -#ifndef OVERCAST - integer :: ncld(3) - integer :: icx(0:GPU_MAXLEVS) -#endif - real :: enn(0:GPU_MAXLEVS) -!mjs - - integer :: idx, rc - - real :: cldhi,cldmd,cldlw,tcldlyr(0:GPU_MAXLEVS),fclr,fclr_above - - integer :: i,j,k,l,ip,iw,ibn,ik,iq,isb,k1,k2,ne - real :: x,xx,yy,p1,a1,b1,fk1,a2,b2,fk2 - real :: w1,ff - - logical :: oznbnd,co2bnd,h2otable,conbnd,n2obnd - logical :: ch4bnd,combnd,f11bnd,f12bnd,f22bnd,b10bnd - logical :: do_aerosol - -!---- Temp arrays and variables for consolidation of tables - integer, parameter :: max_num_tables = 17 - real :: exptbl(0:GPU_MAXLEVS,max_num_tables) - type :: band_table - integer :: start - integer :: end - end type band_table - type(band_table) :: h2oexp - type(band_table) :: conexp - type(band_table) :: co2exp - type(band_table) :: n2oexp - type(band_table) :: ch4exp - type(band_table) :: comexp - type(band_table) :: f11exp - type(band_table) :: f12exp - type(band_table) :: f22exp - -!---- Variables for new getirtau routine - real :: dp_pa(GPU_MAXLEVS) - real :: taudiaglyr(GPU_MAXLEVS,4) - real :: fcld_col(GPU_MAXLEVS) - real :: reff_col(GPU_MAXLEVS,4) - real :: cwc_col(GPU_MAXLEVS,4) - -!-----compute layer pressure (pa) and layer temperature minus 250K (dt) - -#ifdef _CUDA - i = (blockidx%x - 1) * blockdim%x + threadidx%x - - RUN_LOOP: if (i <= m) then -#else - RUN_LOOP: do i=1,m -#endif - do k=1,np - pa(k) = 0.5*(ple_dev(i,k+1)+ple_dev(i,k))*0.01 - dp(k) = (ple_dev(i,k+1)-ple_dev(i,k))*0.01 - dp_pa(k) = (ple_dev(i,k+1)-ple_dev(i,k)) ! dp in Pascals for getirtau - dt(k) = ta_dev(i,k)-250.0 - -!-----compute layer absorber amount - -! dh2o : water vapor amount (g/cm**2) -! dcont: scaled water vapor amount for continuum absorption -! (g/cm**2) -! dco2 : co2 amount (cm-atm)stp -! do3 : o3 amount (cm-atm)stp -! dn2o : n2o amount (cm-atm)stp -! dch4 : ch4 amount (cm-atm)stp -! df11 : cfc11 amount (cm-atm)stp -! df12 : cfc12 amount (cm-atm)stp -! df22 : cfc22 amount (cm-atm)stp -! the factor 1.02 is equal to 1000/980 -! factors 789 and 476 are for unit conversion -! the factor 0.001618 is equal to 1.02/(.622*1013.25) -! the factor 6.081 is equal to 1800/296 - - dh2o(k) = 1.02*wa_dev (i,k)*dp(k) - do3 (k) = 476.*oa_dev (i,k)*dp(k) - dco2(k) = 789.*co2 *dp(k) - dch4(k) = 789.*ch4_dev (i,k)*dp(k) - dn2o(k) = 789.*n2o_dev (i,k)*dp(k) - df11(k) = 789.*cfc11_dev(i,k)*dp(k) - df12(k) = 789.*cfc12_dev(i,k)*dp(k) - df22(k) = 789.*cfc22_dev(i,k)*dp(k) - - dh2o(k) = max(dh2o(k),1.e-10) - do3 (k) = max(do3 (k),1.e-6) - dco2(k) = max(dco2(k),1.e-4) - -!-----compute scaled water vapor amount for h2o continuum absorption -! following eq. (4.21). - - xx=pa(k)*0.001618*wa_dev(i,k)*wa_dev(i,k)*dp(k) - dcont(k) = xx*exp(1800./ta_dev(i,k)-6.081) - -!-----Fill the reff, cwc, and fcld for the column - - fcld_col(k) = fcld_dev(i,k) - do l = 1, 4 - reff_col(k,l) = reff_dev(i,k,l) - cwc_col(k,l) = cwc_dev(i,k,l) - end do - - end do - -!-----A layer is added above the top of the model atmosphere. -! Index "0" is the layer above the top of the atmosphere. - - dp (0) = max(ple_dev(i,1)*0.01,0.005) - pa (0) = 0.5*dp(0) - dt (0) = ta_dev(i,1)-250.0 - - dh2o(0) = 1.02*wa_dev (i,1)*dp(0) - do3 (0) = 476.*oa_dev (i,1)*dp(0) - dco2(0) = 789.*co2 *dp(0) - dch4(0) = 789.*ch4_dev (i,1)*dp(0) - dn2o(0) = 789.*n2o_dev (i,1)*dp(0) - df11(0) = 789.*cfc11_dev(i,1)*dp(0) - df12(0) = 789.*cfc12_dev(i,1)*dp(0) - df22(0) = 789.*cfc22_dev(i,1)*dp(0) - - dh2o(0) = max(dh2o(0),1.e-10) - do3 (0) = max(do3(0),1.e-6) - dco2(0) = max(dco2(0),1.e-4) - - xx=pa(0)*0.001618*wa_dev(i,1)*wa_dev(i,1)*dp(0) - dcont(0) = xx*exp(1800./ta_dev(i,1)-6.081) - -!-----the surface (np+1) is treated as a layer filled with black clouds. -! transfc is the transmittance between the surface and a pressure -! level. -! trantcr is the clear-sky transmittance between the surface and a -! pressure level. - - sfcem_dev(i) =0.0 - transfc(np+1)=1.0 - transfca(np+1)=1.0 - trantcr(np+1)=1.0 - trantca(np+1)=1.0 - -!-----initialize fluxes - - do k=1,np+1 - flxu_dev(i,k) = 0.0 - flxau_dev(i,k) = 0.0 - flcu_dev(i,k) = 0.0 - flau_dev(i,k) = 0.0 - - flxd_dev(i,k) = 0.0 - flxad_dev(i,k) = 0.0 - flcd_dev(i,k) = 0.0 - flad_dev(i,k) = 0.0 - - dfdts_dev(i,k) = 0.0 - end do - - do k=1,np - do l=1,10 - taudiag_dev(i,k,l) = 0.0 - end do - end do - -!-----integration over spectral bands - - BAND_LOOP: do ibn=1,10 - - if (ibn == 10 .and. .not. trace) return - -!-----if h2otable, compute h2o (line) transmittance using table look-up. -! if conbnd, compute h2o (continuum) transmittance in bands 2-7. -! if co2bnd, compute co2 transmittance in band 3. -! if oznbnd, compute o3 transmittance in band 5. -! if n2obnd, compute n2o transmittance in bands 6 and 7. -! if ch4bnd, compute ch4 transmittance in bands 6 and 7. -! if combnd, compute co2-minor transmittance in bands 4 and 5. -! if f11bnd, compute cfc11 transmittance in bands 4 and 5. -! if f12bnd, compute cfc12 transmittance in bands 4 and 6. -! if f22bnd, compute cfc22 transmittance in bands 4 and 6. -! if b10bnd, compute flux reduction due to n2o in band 10. - - h2otable=ibn == 1 .or. ibn == 2 .or. ibn == 8 - conbnd =ibn >= 2 .and. ibn <= 7 - co2bnd =ibn == 3 - oznbnd =ibn == 5 - n2obnd =ibn == 6 .or. ibn == 7 - ch4bnd =ibn == 6 .or. ibn == 7 - combnd =ibn == 4 .or. ibn == 5 - f11bnd =ibn == 4 .or. ibn == 5 - f12bnd =ibn == 4 .or. ibn == 6 - f22bnd =ibn == 4 .or. ibn == 6 - b10bnd =ibn == 10 - - do_aerosol = na > 0 - - exptbl = 0 - -!-----Control packing of the new exponential tables by band - - select case (ibn) - case (2) - conexp%start = 1 - conexp%end = 1 - case (3) - h2oexp%start = 1 - h2oexp%end = 6 - conexp%start = 7 - conexp%end = 9 - case (4) - h2oexp%start = 1 - h2oexp%end = 6 - conexp%start = 7 - conexp%end = 7 - comexp%start = 8 - comexp%end = 13 - f11exp%start = 14 - f11exp%end = 14 - f12exp%start = 15 - f12exp%end = 15 - f22exp%start = 16 - f22exp%end = 16 - case (5) - h2oexp%start = 1 - h2oexp%end = 6 - conexp%start = 7 - conexp%end = 7 - comexp%start = 8 - comexp%end = 13 - f11exp%start = 14 - f11exp%end = 14 - case (6) - h2oexp%start = 1 - h2oexp%end = 6 - conexp%start = 7 - conexp%end = 7 - n2oexp%start = 8 - n2oexp%end = 11 - ch4exp%start = 12 - ch4exp%end = 15 - f12exp%start = 16 - f12exp%end = 16 - f22exp%start = 17 - f22exp%end = 17 - case (7) - h2oexp%start = 1 - h2oexp%end = 6 - conexp%start = 7 - conexp%end = 7 - n2oexp%start = 8 - n2oexp%end = 11 - ch4exp%start = 12 - ch4exp%end = 15 - case (9) - h2oexp%start = 1 - h2oexp%end = 6 - case (10) - h2oexp%start = 1 - h2oexp%end = 5 - conexp%start = 6 - conexp%end = 6 - co2exp%start = 7 - co2exp%end = 12 - n2oexp%start = 13 - n2oexp%end = 14 - end select - -!-----blayer is the spectrally integrated planck flux of the mean layer -! temperature derived from eq. (3.11) -! The fitting for the planck flux is valid for the range 160-345 K. - - do k=1,np - call planck(ibn,cb,ta_dev(i,k),blayer(k)) - end do - -!-----Index "0" is the layer above the top of the atmosphere. - - blayer(0)=blayer(1) - blevel(0)=blayer(1) - -!-----Surface emission and reflectivity. See Section 9. -! bs and dbs include the effect of surface emissivity. - - call sfcflux (ibn,m,i,cb,dcb,ns,fs_dev,tg_dev,eg_dev,tv_dev,ev_dev,rv_dev,& - bs,dbs,rflxs) - - blayer(np+1)=bs - -!------interpolate Planck function at model levels (linear in p) - - do k=2,np - blevel(k)=(blayer(k-1)*dp(k)+blayer(k)*dp(k-1))/& - (dp(k-1)+dp(k)) - end do - -!-----Extrapolate blevel(1) from blayer(2) and blayer(1) - - blevel(1)=blayer(1)+(blayer(1)-blayer(2))*dp(1)/& - (dp(1)+dp(2)) - blevel(0)=blevel(1) - -!-----If the surface air temperature tb is known, compute blevel(np+1) - - call planck(ibn,cb,tb_dev(i),blevel(np+1)) - -!-----if not, extrapolate blevel(np+1) from blayer(np-1) and blayer(np) - -! blevel(np+1)=blayer(np)+(blayer(np)-blayer(np-1))& -! *dp(np)/(dp(np)+dp(np-1)) - -!-----Compute cloud optical thickness following Eqs. (6.4a,b) and (6.7) -! NOTE: dp_pa is only dims(1:np) as the 0'th level isn't needed in getirtau. -! Plus, the pressures in getirtau *MUST* be in Pascals. -! Slots for reff, hydrometeors and tauall are as follows: -! 1 Cloud Ice -! 2 Cloud Liquid -! 3 Falling Liquid (Rain) -! 4 Falling Ice (Snow) - - - call getirtau(ibn,np,dp_pa,fcld_col,reff_col,cwc_col,& - taudiaglyr,tcldlyr,enn) - -! The getirtau call returns results for a single band and column. Thus -! we need to transfer the taudiag for that band/column to the overall array. - - do k=1,np - taudiag_dev(i,k,ibn) = taudiag_dev(i,k,ibn) + & - taudiaglyr(k,1) + taudiaglyr(k,2) + taudiaglyr(k,3) + taudiaglyr(k,4) - end do - -!MAT-- icx and ncld only used when overcast=.false. -!mjs -#ifndef OVERCAST - do k=0,np - icx(k) = k - end do - - call mkicx(np,ict,icb,enn,icx,ncld) -!mjs -#endif - -!-----Compute optical thickness, single-scattering albedo and asymmetry -! factor for a mixture of "na" aerosol types. Eqs. (7.1)-(7.3) - - AERO_IF: if (do_aerosol) then - taerlyr(0)=1.0 - - do k=1,np - -!-----taerlyr is the aerosol diffuse transmittance - - taerlyr(k)=1.0 - if (taua_dev(i,k,ibn) > 0.001) then - if (ssaa_dev(i,k,ibn) > 0.001) then - asya_dev(i,k,ibn)=asya_dev(i,k,ibn)/ssaa_dev(i,k,ibn) - ssaa_dev(i,k,ibn)=ssaa_dev(i,k,ibn)/taua_dev(i,k,ibn) - -!-----Parameterization of aerosol scattering following Eqs. (6.11) -! and (6.12). - - ff=.5+(.3739+(0.0076+0.1185*asya_dev(i,k,ibn))*asya_dev(i,k,ibn))*asya_dev(i,k,ibn) - taua_dev(i,k,ibn)=taua_dev(i,k,ibn)*(1.-ssaa_dev(i,k,ibn)*ff) - end if - taerlyr(k)=exp(-1.66*taua_dev(i,k,ibn)) - end if - end do - end if AERO_IF - -!-----Compute the exponential terms (Eq. 8.21) at each layer due to -! water vapor line absorption when k-distribution is used - - if (.not. h2otable .and. .not. b10bnd) then - call h2oexps(ibn,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,exptbl(:,h2oexp%start:h2oexp%end)) - end if - -!-----compute the exponential terms (Eq. 4.24) at each layer due to -! water vapor continuum absorption. -! ne is the number of terms used in each band to compute water -! vapor continuum transmittance (Table 9). - - ne=0 - if (conbnd) then - ne=1 - if (ibn == 3) ne=3 - call conexps(ibn,np,dcont,xke,exptbl(:,conexp%start:conexp%end)) - end if - -!***** for trace gases ***** - - TRACE1: if (trace) then - -!-----compute the exponential terms at each layer due to n2o absorption - - if (n2obnd) then - call n2oexps(ibn,np,dn2o,pa,dt,exptbl(:,n2oexp%start:n2oexp%end)) - end if - -!-----compute the exponential terms at each layer due to ch4 absorption - - if (ch4bnd) then - call ch4exps(ibn,np,dch4,pa,dt,exptbl(:,ch4exp%start:ch4exp%end)) - end if - -!-----Compute the exponential terms due to co2 minor absorption - - if (combnd) then - call comexps(ibn,np,dco2,dt,exptbl(:,comexp%start:comexp%end)) - end if - -!-----Compute the exponential terms due to cfc11 absorption. -! The values of the parameters are given in Table 7. - - if (f11bnd) then - a1 = 1.26610e-3 - b1 = 3.55940e-6 - fk1 = 1.89736e+1 - a2 = 8.19370e-4 - b2 = 4.67810e-6 - fk2 = 1.01487e+1 - call cfcexps(ibn,np,a1,b1,fk1,a2,b2,fk2,df11,dt,& - exptbl(:,f11exp%start)) - end if - -!-----Compute the exponential terms due to cfc12 absorption. - - if (f12bnd) then - a1 = 8.77370e-4 - b1 =-5.88440e-6 - fk1 = 1.58104e+1 - a2 = 8.62000e-4 - b2 =-4.22500e-6 - fk2 = 3.70107e+1 - call cfcexps(ibn,np,a1,b1,fk1,a2,b2,fk2,df12,dt,& - exptbl(:,f12exp%start)) - end if - -!-----Compute the exponential terms due to cfc22 absorption. - - if (f22bnd) then - a1 = 9.65130e-4 - b1 = 1.31280e-5 - fk1 = 6.18536e+0 - a2 =-3.00010e-5 - b2 = 5.25010e-7 - fk2 = 3.27912e+1 - call cfcexps(ibn,np,a1,b1,fk1,a2,b2,fk2,df22,dt,& - exptbl(:,f22exp%start)) - end if - -!-----Compute the exponential terms at each layer in band 10 due to -! h2o line and continuum, co2, and n2o absorption - - if (b10bnd) then - call b10exps(np,dh2o,dcont,dco2,dn2o,pa,dt, & - exptbl(:,h2oexp%start:h2oexp%end),& - exptbl(:,conexp%start ),& - exptbl(:,co2exp%start:co2exp%end),& - exptbl(:,n2oexp%start:n2oexp%end)) - end if - end if TRACE1 - -!-----blayer(np+1) includes the effect of surface emissivity. - - bu(0)=0.0 ! ALT: this was undefined, check with Max if 0.0 is good value - bd(0)=blayer(1) - bu(np+1)=blayer(np+1) - au(0)=0.0 ! ALT: this was undefined, check with Max if 0.0 is good value - ad(0)=blayer(1) - au(np+1)=blayer(np+1) - cu(0)=0.0 ! ALT: this was undefined, check with Max if 0.0 is good value - cd(0)=blayer(1) - cu(np+1)=blayer(np+1) -!+++PRC - du(0)=0.0 ! ALT: this was undefined, check with Max if 0.0 is good value - dd(0)=blayer(1) - du(np+1)=blayer(np+1) -!---PRC - -!-----do-loop 1500 is for computing upward (bu) and downward (bd) -! emission of a layer following Eqs. (8.17), (8.18), (8.19). -! Here, trant is the transmittance of the layer k2-1. - - LOOP_1500: do k2=1,np+1 - -!-----for h2o line transmission - - if (.not. h2otable) then - th2o=1.0 - end if - -!-----for h2o continuum transmission - - tcon=1.0 - - x1=0.0 - x2=0.0 - x3=0.0 - taant=1.0 - trant=1.0 - - if (h2otable) then - -!-----Compute water vapor transmittance using table look-up. -! The following values are taken from Table 8. - -!bdc -! w1=-8.0 -! p1=-2.0 -! dwe=0.3 -! dpe=0.2 - - if (ibn == 1) then - call tablup(nx,nh,dh2o(k2-1),pa(k2-1),dt(k2-1),x1,x2,x3, & - w11,p11,dwe,dpe,h11,h12,h13,trant) - end if - if (ibn == 2) then - call tablup(nx,nh,dh2o(k2-1),pa(k2-1),dt(k2-1),x1,x2,x3, & - w11,p11,dwe,dpe,h21,h22,h23,trant) - end if - if (ibn == 8) then - call tablup(nx,nh,dh2o(k2-1),pa(k2-1),dt(k2-1),x1,x2,x3, & - w11,p11,dwe,dpe,h81,h82,h83,trant) - end if -!bdc -!-----for water vapor continuum absorption - - if (conbnd) then - tcon(1)=tcon(1)*exptbl(k2-1,conexp%start) ! Only the first exp - trant=trant*tcon(1) - end if - else - -!-----compute water vapor transmittance using k-distribution - - if (.not. b10bnd) then - call h2okdis(ibn,np,k2-1,fkw,gkw,ne,& - exptbl(:,h2oexp%start:h2oexp%end), & - exptbl(:,conexp%start:conexp%end), & - th2o,tcon,trant) - end if - end if - - if (co2bnd) then - -!-----Compute co2 transmittance using table look-up method. -! The following values are taken from Table 8. - -! w1=-4.0 -! p1=-2.0 -! dwe=0.3 -! dpe=0.2 - - call tablup(nx,nc,dco2(k2-1),pa(k2-1),dt(k2-1),x1,x2,x3, & - w12,p12,dwe,dpe,c1,c2,c3,trant) - end if - -!-----Always use table look-up to compute o3 transmittance. -! The following values are taken from Table 8. - - if (oznbnd) then -! w1=-6.0 -! p1=-2.0 -! dwe=0.3 -! dpe=0.2 - call tablup(nx,no,do3(k2-1),pa(k2-1),dt(k2-1),x1,x2,x3, & - w13,p13,dwe,dpe,oo1,oo2,oo3,trant) - end if - -!-----include aerosol effect - - taant = trant - - if (do_aerosol) then - trant=trant*taerlyr(k2-1) - end if - -!-----Compute upward (bu) and downward (bd) emission of the layer k2-1 -! following Eqs.(8.17) and (8.18). -! The effect of clouds on the transmission of a layer is taken -! into account, following Eq. (8.19). -! trant is the total transmittance of the layer k2-1. - - xx=(1.-enn(k2-1))*trant - yy=min(0.9999,xx) - yy=max(0.00001,yy) - xx=(blevel(k2-1)-blevel(k2))/alog(yy) - bd(k2-1)=(blevel(k2)-blevel(k2-1)*yy)/(1.0-yy)-xx - bu(k2-1)=(blevel(k2-1)+blevel(k2))-bd(k2-1) - - if(do_aerosol) then - xx=(1.-enn(k2-1))*taant - yy=min(0.9999,xx) - yy=max(0.00001,yy) - xx=(blevel(k2-1)-blevel(k2))/alog(yy) - dd(k2-1)=(blevel(k2)-blevel(k2-1)*yy)/(1.0-yy)-xx - du(k2-1)=(blevel(k2-1)+blevel(k2))-dd(k2-1) - else - dd(k2-1)=bd(k2-1) - du(k2-1)=bu(k2-1) - end if - - xx=trant - yy=min(0.9999,xx) - yy=max(0.00001,yy) - xx=(blevel(k2-1)-blevel(k2))/alog(yy) - cd(k2-1)=(blevel(k2)-blevel(k2-1)*yy)/(1.0-yy)-xx - cu(k2-1)=(blevel(k2-1)+blevel(k2))-cd(k2-1) - - if(do_aerosol) then - xx=taant - yy=min(0.9999,xx) - yy=max(0.00001,yy) - xx=(blevel(k2-1)-blevel(k2))/alog(yy) - ad(k2-1)=(blevel(k2)-blevel(k2-1)*yy)/(1.0-yy)-xx - au(k2-1)=(blevel(k2-1)+blevel(k2))-ad(k2-1) - else - ad(k2-1)=cd(k2-1) - au(k2-1)=cu(k2-1) - end if - end do LOOP_1500 - -!-----initialize fluxes - - flxu = 0.0 - flxd = 0.0 - flxau = 0.0 - flxad = 0.0 - flcu = 0.0 - flcd = 0.0 - flau = 0.0 - flad = 0.0 - -!-----Compute upward and downward fluxes for each spectral band, ibn. - - LOOP_2000: do k1=0,np - -!-----initialization -! -! cldlw, cldmd, and cldhi are the equivalent black-cloud fractions -! of low, middle, and high troposphere. -! tranal is the aerosol transmission function - - cldlw = 0.0 - cldmd = 0.0 - cldhi = 0.0 - tranal= 1.0 - -!-----for h2o line transmission - - if (.not. h2otable) then - th2o=1.0 - end if - -!-----for h2o continuum transmission - - tcon=1.0 - -!***** for trace gases ***** - - TRACE2: if (trace) then - -!-----for n2o transmission using k-distribution method. - - if (n2obnd) then - tn2o=1.0 - end if - -!-----for ch4 transmission using k-distribution method. - - if (ch4bnd) then - tch4=1.0 - end if - -!-----for co2-minor transmission using k-distribution method. - - if (combnd) then - tcom=1.0 - end if - -!-----for cfc-11 transmission using k-distribution method. - - if (f11bnd) then - tf11=1.0 - end if - -!-----for cfc-12 transmission using k-distribution method. - - if (f12bnd) then - tf12=1.0 - end if - -!-----for cfc-22 transmission when using k-distribution method. - - if (f22bnd) then - tf22=1.0 - end if - -!-----for the transmission in band 10 using k-distribution method. - - if (b10bnd) then - th2o=1.0 - - tco2=1.0 - - tcon(1)=1.0 - - tn2o=1.0 - end if - - end if TRACE2 - -!***** end trace gases ***** - - x1=0.0 - x2=0.0 - x3=0.0 - -!-----do-loop 3000 are for computing (a) transmittance, trant, -! and (b) clear line-of-sight, fclr(k2), between levels k1 and k2. - - fclr_above = 1.0 - -!MAT--Beginning of original 3000 loop - LOOP_3000_4000: do k2=k1+1,np+1 - - taant=1.0 - trant=1.0 - fclr =1.0 - - if (h2otable) then - -!-----Compute water vapor transmittance using table look-up. -! The following values are taken from Table 8. - -! w1=-8.0 -! p1=-2.0 -! dwe=0.3 -! dpe=0.2 - - if (ibn == 1) then - call tablup(nx,nh,dh2o(k2-1),pa(k2-1),dt(k2-1),x1,x2,x3, & - w11,p11,dwe,dpe,h11,h12,h13,trant) - end if - if (ibn == 2) then - call tablup(nx,nh,dh2o(k2-1),pa(k2-1),dt(k2-1),x1,x2,x3, & - w11,p11,dwe,dpe,h21,h22,h23,trant) - end if - if (ibn == 8) then - call tablup(nx,nh,dh2o(k2-1),pa(k2-1),dt(k2-1),x1,x2,x3, & - w11,p11,dwe,dpe,h81,h82,h83,trant) - end if - - if (conbnd) then - tcon(1)=tcon(1)*exptbl(k2-1,conexp%start) ! Only the first exp - trant=trant*tcon(1) - end if - else - -!-----compute water vapor transmittance using k-distribution - - if (.not. b10bnd) then - call h2okdis(ibn,np,k2-1,fkw,gkw,ne,& - exptbl(:,h2oexp%start:h2oexp%end), & - exptbl(:,conexp%start:conexp%end), & - th2o,tcon,trant) - end if - end if - - if (co2bnd) then - -!-----Compute co2 transmittance using table look-up method. -! The following values are taken from Table 8. - -! w1=-4.0 -! p1=-2.0 -! dwe=0.3 -! dpe=0.2 - - call tablup(nx,nc,dco2(k2-1),pa(k2-1),dt(k2-1),x1,x2,x3, & - w12,p12,dwe,dpe,c1,c2,c3,trant) - end if - -!-----Always use table look-up to compute o3 transmittance. -! The following values are taken from Table 8. - - if (oznbnd) then -! w1=-6.0 -! p1=-2.0 -! dwe=0.3 -! dpe=0.2 - call tablup(nx,no,do3(k2-1),pa(k2-1),dt(k2-1),x1,x2,x3, & - w13,p13,dwe,dpe,oo1,oo2,oo3,trant) - end if - -!***** for trace gases ***** - - TRACE3: if (trace) then - -!-----compute n2o transmittance using k-distribution method - - if (n2obnd) then - call n2okdis(ibn,np,k2-1,exptbl(:,n2oexp%start:n2oexp%end),tn2o,trant) - end if - -!-----compute ch4 transmittance using k-distribution method - - if (ch4bnd) then - call ch4kdis(ibn,np,k2-1,exptbl(:,ch4exp%start:ch4exp%end),tch4,trant) - end if - -!-----compute co2-minor transmittance using k-distribution method - - if (combnd) then - call comkdis(ibn,np,k2-1,exptbl(:,comexp%start:comexp%end),tcom,trant) - end if - -!-----compute cfc11 transmittance using k-distribution method - - if (f11bnd) then - call cfckdis(np,k2-1,exptbl(:,f11exp%start),tf11,trant) - end if - -!-----compute cfc12 transmittance using k-distribution method - - if (f12bnd) then - call cfckdis(np,k2-1,exptbl(:,f12exp%start),tf12,trant) - end if - -!-----compute cfc22 transmittance using k-distribution method - - if (f22bnd) then - call cfckdis(np,k2-1,exptbl(:,f22exp%start),tf22,trant) - end if - -!-----Compute transmittance in band 10 using k-distribution method. -! For band 10, trant is the change in transmittance due to n2o -! absorption. - - if (b10bnd) then - call b10kdis(np,k2-1,& - exptbl(:,h2oexp%start:h2oexp%end),& - exptbl(:,conexp%start ),& - exptbl(:,co2exp%start:co2exp%end),& - exptbl(:,n2oexp%start:n2oexp%end),& - th2o,tcon,tco2,tn2o,trant) - end if - end if TRACE3 - -!***** end trace gases ***** - -!-----include aerosol effect - - taant=trant - - if (do_aerosol) then - tranal=tranal*taerlyr(k2-1) - trant=trant *tranal - end if - -!***** cloud overlapping ***** -!mjs -#ifndef OVERCAST - if (enn(k2-1) >= 0.001) then - call cldovlp (np,k1,k2,ict,icb,icx,ncld,enn,tcldlyr,cldhi,cldmd,cldlw) - end if - - fclr=(1.0-cldhi)*(1.0-cldmd)*(1.0-cldlw) -#else - fclr=fclr_above*tcldlyr(k2-1) -#endif -!mjs -!MAT--End of original 3000 loop - -!-----do-loop 4000 is for computing upward and downward fluxes -! for each spectral band -! flau, flad: clear-sky aerosol-free upward and downward fluxes -! flcu, flcd: clear-sky upward and downward fluxes -! flxu, flxd: all-sky upward and downward fluxes -!+++ PRC -! flxau, flxad: all-sky aerosol-free upward and downward fluxes -!--- PRC - -!MAT--Beginning of original 4000 loop - -!-----The first terms on the rhs of Eqs. (8.15) and (8.16) - - if (k2 == k1+1 .and. ibn /= 10) then - flau (k1) = flau (k1) - au(k1) - flad (k2) = flad (k2) + ad(k1) - flcu (k1) = flcu (k1) - cu(k1) - flcd (k2) = flcd (k2) + cd(k1) - flxu (k1) = flxu (k1) - bu(k1) - flxd (k2) = flxd (k2) + bd(k1) - flxau(k1) = flxau(k1) - du(k1) - flxad(k2) = flxad(k2) + dd(k1) - end if - -!-----The summation terms on the rhs of Eqs. (8.15) and (8.16). -! Also see Eqs. (5.4) and (5.5) for Band 10. - - xx=trant*(bu(k2-1)-bu(k2)) - flxu(k1)=flxu(k1)+xx*fclr - - if(do_aerosol) then - xx = taant*(du(k2-1)-du(k2)) - end if - flxau(k1)=flxau(k1)+xx*fclr - - xx=trant*(cu(k2-1)-cu(k2)) - flcu(k1)=flcu(k1)+xx - - if(do_aerosol) then - xx = taant*(au(k2-1)-au(k2)) - end if - flau(k1)=flau(k1)+xx - - if (k1 == 0) then !mjs bd(-1) is not defined - xx=-trant*bd(k1) - else - xx= trant*(bd(k1-1)-bd(k1)) - end if - flxd(k2)=flxd(k2)+xx*fclr - - if(do_aerosol) then - if (k1 == 0) then !mjs bd(-1) is not defined - xx=-taant*dd(k1) - else - xx= taant*(dd(k1-1)-dd(k1)) - end if - end if - flxad(k2)=flxad(k2)+xx*fclr - - if (k1 == 0) then !mjs bd(-1) is not defined - xx=-trant*cd(k1) - else - xx= trant*(cd(k1-1)-cd(k1)) - end if - flcd(k2)=flcd(k2)+xx - - if(do_aerosol) then - if (k1 == 0) then !mjs bd(-1) is not defined - xx=-taant*ad(k1) - else - xx= taant*(ad(k1-1)-ad(k1)) - end if - end if - flad(k2)=flad(k2)+xx -!MAT--End of original 4000 loop - - fclr_above = fclr - - end do LOOP_3000_4000 - -!-----Here, fclr and trant are, respectively, the clear line-of-sight -! and the transmittance between k1 and the surface. - - trantca (k1) = taant - trantcr (k1) = trant - transfc (k1) = trant*fclr - transfca(k1) = taant*fclr - -!-----compute the partial derivative of fluxes with respect to -! surface temperature (Eq. 3.12). -! Note: upward flux is negative, and so is dfdts. - - if (k1 > 0)then - dfdts_dev(i,k1) =dfdts_dev(i,k1)-dbs*transfc(k1) - end if - end do LOOP_2000 - -!-----For surface emission. - - if (.not. b10bnd) then - -!-----Note: blayer(np+1) and dbs include the surface emissivity -! effect. Both dfdts and sfcem are negative quantities. - - flau(np+1) = -blayer(np+1) - flcu(np+1) = -blayer(np+1) - flxu(np+1) = -blayer(np+1) - flxau(np+1) = -blayer(np+1) - sfcem_dev(i) = sfcem_dev(i)-blayer(np+1) - dfdts_dev(i,np+1)= dfdts_dev(i,np+1)-dbs - -!-----Add the flux reflected by the surface. (Second term on the -! rhs of Eq. 8.16). rflxs is the surface reflectivity. - - do k=1,np+1 - flau (k) = flau (k)-flad (np+1)*trantca (k)*rflxs - flcu (k) = flcu (k)-flcd (np+1)*trantcr (k)*rflxs - flxu (k) = flxu (k)-flxd (np+1)*transfc (k)*rflxs - flxau(k) = flxau(k)-flxad(np+1)*transfca(k)*rflxs - end do - end if - -!-----Summation of fluxes over spectral bands - - do k=1,np+1 - flau_dev (i,k) = flau_dev (i,k) + flau (k) - flcu_dev (i,k) = flcu_dev (i,k) + flcu (k) - flxu_dev (i,k) = flxu_dev (i,k) + flxu (k) - flxau_dev(i,k) = flxau_dev(i,k) + flxau(k) - - flad_dev (i,k) = flad_dev (i,k) + flad (k) - flcd_dev (i,k) = flcd_dev (i,k) + flcd (k) - flxd_dev (i,k) = flxd_dev (i,k) + flxd (k) - flxad_dev(i,k) = flxad_dev(i,k) + flxad(k) - end do - - end do BAND_LOOP -#ifndef _CUDA - end do RUN_LOOP -#else - end if RUN_LOOP -#endif - - end subroutine irrad - -!*********************************************************************** -#ifdef _CUDA - attributes(device) subroutine planck(ibn,cb,t,xlayer) -#else - subroutine planck(ibn,cb,t,xlayer) -#endif -!*********************************************************************** -! -!-----Compute spectrally integrated Planck flux -! - implicit none - - integer :: ibn ! spectral band index - real :: cb(6,10) ! Planck table coefficients - real :: t ! temperature (K) - real :: xlayer ! planck flux (w/m2) - - xlayer=t*(t*(t*(t*(t*cb(6,ibn)+cb(5,ibn)) & - +cb(4,ibn))+cb(3,ibn))+cb(2,ibn))+cb(1,ibn) - - end subroutine planck - - -!*********************************************************************** -#ifdef _CUDA - attributes(device) subroutine plancd(ibn,dcb,t,dbdt) -#else - subroutine plancd(ibn,dcb,t,dbdt) -#endif -!*********************************************************************** -! -!-----Compute the derivative of Planck flux wrt temperature -! - implicit none - - integer :: ibn ! spectral band index - real :: dcb(5,10) ! Planck function derivative coefficients - real :: t ! temperature (K) - real :: dbdt ! derivative of Planck flux wrt temperature - - dbdt=t*(t*(t*(t*dcb(5,ibn)+dcb(4,ibn)) & - +dcb(3,ibn))+dcb(2,ibn))+dcb(1,ibn) - - end subroutine plancd - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine h2oexps(ib,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) -#else - subroutine h2oexps(ib,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) -#endif -!********************************************************************** -! Compute exponentials for water vapor line absorption -! in individual layers using Eqs. (8.21) and (8.22). -! -!---- input parameters -! spectral band (ib) -! number of layers (np) -! layer water vapor amount for line absorption (dh2o) -! layer pressure (pa) -! layer temperature minus 250K (dt) -! absorption coefficients for the first k-distribution -! function due to h2o line absorption (xkw) -! coefficients for the temperature and pressure scaling (aw,bw,pm) -! ratios between neighboring absorption coefficients for -! h2o line absorption (mw) -! -!---- output parameters -! 6 exponentials for each layer (h2oexp) -!********************************************************************** - implicit none - - integer :: ib,np,ik,k - -!---- input parameters ------ - - real :: dh2o(0:),pa(0:),dt(0:) - -!---- output parameters ----- - - real :: h2oexp(0:,:) - -!---- static data ----- - - integer :: mw(9) - real :: xkw(9),aw(9),bw(9),pm(9) - -!---- temporary arrays ----- - - real :: xh - -!********************************************************************** -! note that the 3 sub-bands in band 3 use the same set of xkw, aw, -! and bw, therefore, h2oexp for these sub-bands are identical. -!********************************************************************** - - do k=0,np - -!-----xh is the scaled water vapor amount for line absorption -! computed from Eq. (4.4). - - xh = dh2o(k)*(pa(k)/500.)**pm(ib) & - * ( 1.+(aw(ib)+bw(ib)* dt(k))*dt(k) ) - -!-----h2oexp is the water vapor transmittance of the layer k -! due to line absorption - - h2oexp(k,1) = exp(-xh*xkw(ib)) - -!-----compute transmittances from Eq. (8.22) - - do ik=2,6 - if (mw(ib) == 6) then - xh = h2oexp(k,ik-1)*h2oexp(k,ik-1) - h2oexp(k,ik) = xh*xh*xh - elseif (mw(ib) == 8) then - xh = h2oexp(k,ik-1)*h2oexp(k,ik-1) - xh = xh*xh - h2oexp(k,ik) = xh*xh - elseif (mw(ib) == 9) then - xh=h2oexp(k,ik-1)*h2oexp(k,ik-1)*h2oexp(k,ik-1) - h2oexp(k,ik) = xh*xh*xh - else - xh = h2oexp(k,ik-1)*h2oexp(k,ik-1) - xh = xh*xh - xh = xh*xh - h2oexp(k,ik) = xh*xh - end if - end do - end do - - end subroutine h2oexps - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine conexps(ib,np,dcont,xke,conexp) -#else - subroutine conexps(ib,np,dcont,xke,conexp) -#endif -!********************************************************************** -! compute exponentials for continuum absorption in individual layers. -! -!---- input parameters -! spectral band (ib) -! number of layers (np) -! layer scaled water vapor amount for continuum absorption (dcont) -! absorption coefficients for the first k-distribution function -! due to water vapor continuum absorption (xke) -! -!---- output parameters -! 1 or 3 exponentials for each layer (conexp) -!********************************************************************** - implicit none - - integer :: ib,np,k - -!---- input parameters ------ - - real :: dcont(0:) - -!---- updated parameters ----- - - real :: conexp(0:,:) - -!---- static data ----- - - real :: xke(9) - -!**************************************************************** - - do k=0,np - - conexp(k,1) = exp(-dcont(k)*xke(ib)) - -!-----The absorption coefficients for sub-bands 3b and 3a are, respectively, -! two and four times the absorption coefficient for sub-band 3c (Table 9). -! Note that conexp(3) is for sub-band 3a. - - if (ib == 3) then - conexp(k,2) = conexp(k,1) *conexp(k,1) - conexp(k,3) = conexp(k,2) *conexp(k,2) - end if - - end do - - end subroutine conexps - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine n2oexps(ib,np,dn2o,pa,dt,n2oexp) -#else - subroutine n2oexps(ib,np,dn2o,pa,dt,n2oexp) -#endif -!********************************************************************** -! Compute n2o exponentials for individual layers -! -!---- input parameters -! spectral band (ib) -! number of layers (np) -! layer n2o amount (dn2o) -! layer pressure (pa) -! layer temperature minus 250K (dt) -! -!---- output parameters -! 2 or 4 exponentials for each layer (n2oexp) -!********************************************************************** - implicit none - - integer :: ib,k,np - -!---- input parameters ----- - - real :: dn2o(0:),pa(0:),dt(0:) - -!---- output parameters ----- - - real :: n2oexp(0:,:) - -!---- temporary arrays ----- - - real :: xc,xc1,xc2 - -!-----Scaling and absorption data are given in Table 5. -! Transmittances are computed using Eqs. (8.21) and (8.22). - - do k=0,np - -!-----four exponential by powers of 21 for band 6. - - if (ib == 6) then - - xc=dn2o(k)*(1.+(1.9297e-3+4.3750e-6*dt(k))*dt(k)) - n2oexp(k,1)=exp(-xc*6.31582e-2) - - xc=n2oexp(k,1)*n2oexp(k,1)*n2oexp(k,1) - xc1=xc*xc - xc2=xc1*xc1 - n2oexp(k,2)=xc*xc1*xc2 - -!-----four exponential by powers of 8 for band 7 - - else - - xc=dn2o(k)*(pa(k)/500.0)**0.48 & - *(1.+(1.3804e-3+7.4838e-6*dt(k))*dt(k)) - n2oexp(k,1)=exp(-xc*5.35779e-2) - - xc=n2oexp(k,1)*n2oexp(k,1) - xc=xc*xc - n2oexp(k,2)=xc*xc - xc=n2oexp(k,2)*n2oexp(k,2) - xc=xc*xc - n2oexp(k,3)=xc*xc - xc=n2oexp(k,3)*n2oexp(k,3) - xc=xc*xc - n2oexp(k,4)=xc*xc - end if - - end do - - end subroutine n2oexps - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine ch4exps(ib,np,dch4,pa,dt,ch4exp) -#else - subroutine ch4exps(ib,np,dch4,pa,dt,ch4exp) -#endif -!********************************************************************** -! Compute ch4 exponentials for individual layers -! -!---- input parameters -! spectral band (ib) -! number of layers (np) -! layer ch4 amount (dch4) -! layer pressure (pa) -! layer temperature minus 250K (dt) -! -!---- output parameters -! 1 or 4 exponentials for each layer (ch4exp) -!********************************************************************** - implicit none - - integer :: ib,np,k - -!---- input parameters ----- - - real :: dch4(0:),pa(0:),dt(0:) - -!---- output parameters ----- - - real :: ch4exp(0:,:) - -!---- temporary arrays ----- - - real :: xc - -!***** Scaling and absorption data are given in Table 5 ***** - - do k=0,np - -!-----four exponentials for band 6 - - if (ib == 6) then - - xc=dch4(k)*(1.+(1.7007e-2+1.5826e-4*dt(k))*dt(k)) - ch4exp(k,1)=exp(-xc*5.80708e-3) - -!-----four exponentials by powers of 12 for band 7 - - else - - xc=dch4(k)*(pa(k)/500.0)**0.65 & - *(1.+(5.9590e-4-2.2931e-6*dt(k))*dt(k)) - ch4exp(k,1)=exp(-xc*6.29247e-2) - - xc=ch4exp(k,1)*ch4exp(k,1)*ch4exp(k,1) - xc=xc*xc - ch4exp(k,2)=xc*xc - - xc=ch4exp(k,2)*ch4exp(k,2)*ch4exp(k,2) - xc=xc*xc - ch4exp(k,3)=xc*xc - - xc=ch4exp(k,3)*ch4exp(k,3)*ch4exp(k,3) - xc=xc*xc - ch4exp(k,4)=xc*xc - - end if - - end do - - end subroutine ch4exps - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine comexps(ib,np,dcom,dt,comexp) -#else - subroutine comexps(ib,np,dcom,dt,comexp) -#endif -!********************************************************************** -! Compute co2-minor exponentials for individual layers using -! Eqs. (8.21) and (8.22). -! -!---- input parameters -! spectral band (ib) -! number of layers (np) -! layer co2 amount (dcom) -! layer temperature minus 250K (dt) -! -!---- output parameters -! 6 exponentials for each layer (comexp) -!********************************************************************** - implicit none - - integer :: ib,ik,np,k - -!---- input parameters ----- - - real :: dcom(0:),dt(0:) - -!---- output parameters ----- - - real :: comexp(0:,:) - -!---- temporary arrays ----- - - real :: xc - -!***** Scaling and absorpton data are given in Table 6 ***** - - do k=0,np - - if (ib == 4) then - xc=dcom(k)*(1.+(3.5775e-2+4.0447e-4*dt(k))*dt(k)) - end if - - if (ib == 5) then - xc=dcom(k)*(1.+(3.4268e-2+3.7401e-4*dt(k))*dt(k)) - end if - - comexp(k,1)=exp(-xc*1.922e-7) - - do ik=2,6 - xc=comexp(k,ik-1)*comexp(k,ik-1) - xc=xc*xc - comexp(k,ik)=xc*comexp(k,ik-1) - end do - - end do - - end subroutine comexps - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine cfcexps(ib,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp) -#else - subroutine cfcexps(ib,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp) -#endif -!********************************************************************** -! compute cfc(-11, -12, -22) exponentials for individual layers. -! -!---- input parameters -! spectral band (ib) -! number of layers (np) -! parameters for computing the scaled cfc amounts -! for temperature scaling (a1,b1,a2,b2) -! the absorption coefficients for the -! first k-distribution function due to cfcs (fk1,fk2) -! layer cfc amounts (dcfc) -! layer temperature minus 250K (dt) -! -!---- output parameters -! 1 exponential for each layer (cfcexp) -!********************************************************************** - implicit none - - integer :: ib,np,k - -!---- input parameters ----- - - real :: dcfc(0:),dt(0:) - -!---- output parameters ----- - - real :: cfcexp(0:) - -!---- static data ----- - - real :: a1,b1,fk1,a2,b2,fk2 - -!---- temporary arrays ----- - - real :: xf - -!********************************************************************** - - do k=0,np - -!-----compute the scaled cfc amount (xf) and exponential (cfcexp) - - if (ib == 4) then - xf=dcfc(k)*(1.+(a1+b1*dt(k))*dt(k)) - cfcexp(k)=exp(-xf*fk1) - else - xf=dcfc(k)*(1.+(a2+b2*dt(k))*dt(k)) - cfcexp(k)=exp(-xf*fk2) - end if - - end do - - end subroutine cfcexps - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine b10exps(np,dh2o,dcont,dco2,dn2o,pa,dt, & - h2oexp,conexp,co2exp,n2oexp) -#else - subroutine b10exps(np,dh2o,dcont,dco2,dn2o,pa,dt, & - h2oexp,conexp,co2exp,n2oexp) -#endif -!********************************************************************** -! Compute band3a exponentials for individual layers -! -!---- input parameters -! number of layers (np) -! layer h2o amount for line absorption (dh2o) -! layer h2o amount for continuum absorption (dcont) -! layer co2 amount (dco2) -! layer n2o amount (dn2o) -! layer pressure (pa) -! layer temperature minus 250K (dt) -! -!---- output parameters -! -! exponentials for each layer (h2oexp,conexp,co2exp,n2oexp) -!********************************************************************** - implicit none - - integer :: np,k - -!---- input parameters ----- - - real :: dh2o(0:),dcont(0:),dn2o(0:) - real :: dco2(0:),pa(0:),dt(0:) - -!---- output parameters ----- - - real :: h2oexp(0:,:),conexp(0:),co2exp(0:,:),n2oexp(0:,:) - -!---- temporary arrays ----- - - real :: xx,xx1,xx2,xx3 - -!********************************************************************** - - do k=0,np - -!-----Compute scaled h2o-line amount for Band 10 (Eq. 4.4 and Table 3). - - xx=dh2o(k)*(pa(k)/500.0) & - *(1.+(0.0149+6.20e-5*dt(k))*dt(k)) - -!-----six exponentials by powers of 8 - - h2oexp(k,1)=exp(-xx*0.10624) - - xx=h2oexp(k,1)*h2oexp(k,1) - xx=xx*xx - h2oexp(k,2)=xx*xx - - xx=h2oexp(k,2)*h2oexp(k,2) - xx=xx*xx - h2oexp(k,3)=xx*xx - - xx=h2oexp(k,3)*h2oexp(k,3) - xx=xx*xx - h2oexp(k,4)=xx*xx - - xx=h2oexp(k,4)*h2oexp(k,4) - xx=xx*xx - h2oexp(k,5)=xx*xx - -!-----one exponential of h2o continuum for sub-band 3a (Table 9). - - conexp(k)=exp(-dcont(k)*109.0) - -!-----Scaled co2 amount for the Band 10 (Eq. 4.4, Tables 3 and 6). - - xx=dco2(k)*(pa(k)/300.0)**0.5 & - *(1.+(0.0179+1.02e-4*dt(k))*dt(k)) - -!-----six exponentials by powers of 8 - - co2exp(k,1)=exp(-xx*2.656e-5) - - xx=co2exp(k,1)*co2exp(k,1) - xx=xx*xx - co2exp(k,2)=xx*xx - - xx=co2exp(k,2)*co2exp(k,2) - xx=xx*xx - co2exp(k,3)=xx*xx - - xx=co2exp(k,3)*co2exp(k,3) - xx=xx*xx - co2exp(k,4)=xx*xx - - xx=co2exp(k,4)*co2exp(k,4) - xx=xx*xx - co2exp(k,5)=xx*xx - - xx=co2exp(k,5)*co2exp(k,5) - xx=xx*xx - co2exp(k,6)=xx*xx - -!-----Compute the scaled n2o amount for Band 10 (Table 5). - - xx=dn2o(k)*(1.+(1.4476e-3+3.6656e-6*dt(k))*dt(k)) - -!-----Two exponentials by powers of 58 - - n2oexp(k,1)=exp(-xx*0.25238) - - xx=n2oexp(k,1)*n2oexp(k,1) - xx1=xx*xx - xx1=xx1*xx1 - xx2=xx1*xx1 - xx3=xx2*xx2 - n2oexp(k,2)=xx*xx1*xx2*xx3 - - end do - - end subroutine b10exps - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine tablup(nx,nh,dw,p,dt,s1,s2,s3,w1,p1, & - dwe,dpe,coef1,coef2,coef3,tran) -#else - subroutine tablup(nx,nh,dw,p,dt,s1,s2,s3,w1,p1, & - dwe,dpe,coef1,coef2,coef3,tran) -#endif -!********************************************************************** -! Compute water vapor, co2 and o3 transmittances between level -! k1 and and level k2 for m soundings, using table look-up. -! -! Calculations follow Eq. (4.16). -! -!---- input --------------------- -! -! number of pressure intervals in the table (nx) -! number of absorber amount intervals in the table (nh) -! layer absorber amount (dw) -! layer pressure in mb (p) -! deviation of layer temperature from 250K (dt) -! first value of absorber amount (log10) in the table (w1) -! first value of pressure (log10) in the table (p1) -! size of the interval of absorber amount (log10) in the table (dwe) -! size of the interval of pressure (log10) in the table (dpe) -! pre-computed coefficients (coef1, coef2, and coef3) -! -!---- updated --------------------- -! -! column integrated absorber amount (s1) -! absorber-weighted column pressure (s2) -! absorber-weighted column temperature (s3) -! transmittance (tran) -! -! Note: Units of s1 are g/cm**2 for water vapor and -! (cm-atm)stp for co2 and o3. -! -!********************************************************************** - implicit none - - integer :: nx,nh - -!---- input parameters ----- - - real :: w1,p1,dwe,dpe - real :: dw,p,dt - real :: coef1(nx,nh),coef2(nx,nh),coef3(nx,nh) - -!---- update parameter ----- - - real :: s1,s2,s3,tran - -!---- temporary variables ----- - - real :: we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2 - real :: x1,x2,x3,xx, x1c - integer :: iw,ip - -!-----Compute effective pressure (x2) and temperature (x3) following -! Eqs. (8.28) and (8.29) - - s1=s1+dw - s2=s2+p*dw - s3=s3+dt*dw - - x1=s1 - x1c=1.0/s1 - x2=s2*x1c - x3=s3*x1c - -!-----normalize we and pe - -! we=(log10(x1)-w1)/dwe -! pe=(log10(x2)-p1)/dpe - we=(log10(x1)-w1)*dwe - pe=(log10(x2)-p1)*dpe - -!-----restrict the magnitudes of the normalized we and pe. - - we=min(we,float(nh-1)) - pe=min(pe,float(nx-1)) - -!-----assign iw and ip and compute the distance of we and pe -! from iw and ip. - - iw=int(we+1.0) - iw=min(iw,nh-1) - iw=max(iw, 2) - fw=we-float(iw-1) - - ip=int(pe+1.0) - ip=min(ip,nx-1) - ip=max(ip, 1) - fp=pe-float(ip-1) - -!-----linear interpolation in pressure - -! pa = coef1(ip,iw-1)*(1.-fp)+coef1(ip+1,iw-1)*fp -! pb = coef1(ip, iw)*(1.-fp)+coef1(ip+1, iw)*fp -! pc = coef1(ip,iw+1)*(1.-fp)+coef1(ip+1,iw+1)*fp - pa = coef1(ip,iw-1)+(coef1(ip+1,iw-1)-coef1(ip,iw-1))*fp - pb = coef1(ip, iw)+(coef1(ip+1, iw)-coef1(ip, iw))*fp - pc = coef1(ip,iw+1)+(coef1(ip+1,iw+1)-coef1(ip,iw+1))*fp - -!-----quadratic interpolation in absorber amount for coef1 - -! ax = (-pa*(1.-fw)+pc*(1.+fw)) *fw*0.5 + pb*(1.-fw*fw) - ax = ( (pc+pa)*fw + (pc-pa) ) *fw*0.5 + pb*(1.-fw*fw) - -!-----linear interpolation in absorber amount for coef2 and coef3 - -! ba = coef2(ip, iw)*(1.-fp)+coef2(ip+1, iw)*fp -! bb = coef2(ip,iw+1)*(1.-fp)+coef2(ip+1,iw+1)*fp -! t1 = ba*(1.-fw) + bb*fw - ba = coef2(ip, iw)+(coef2(ip+1, iw)-coef2(ip, iw))*fp - bb = coef2(ip,iw+1)+(coef2(ip+1,iw+1)-coef2(ip,iw+1))*fp - t1 = ba+(bb-ba)*fw - -! ca = coef3(ip, iw)*(1.-fp)+coef3(ip+1, iw)*fp -! cb = coef3(ip,iw+1)*(1.-fp)+coef3(ip+1,iw+1)*fp -! t2 = ca*(1.-fw) + cb*fw - ca = coef3(ip, iw)+(coef3(ip+1, iw)-coef3(ip, iw))*fp - cb = coef3(ip,iw+1)+(coef3(ip+1,iw+1)-coef3(ip,iw+1))*fp - t2 = ca + (cb-ca)*fw - -!-----update the total transmittance between levels k1 and k2 - - xx=(ax + (t1+t2*x3) * x3) - xx= min(xx,0.9999999) - xx= max(xx,0.0000001) - tran= tran*xx - - end subroutine tablup - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine h2okdis(ib,np,k,fkw,gkw,ne,h2oexp,conexp, & - th2o,tcon,tran) -#else - subroutine h2okdis(ib,np,k,fkw,gkw,ne,h2oexp,conexp, & - th2o,tcon,tran) -#endif -!********************************************************************** -! compute water vapor transmittance between levels k1 and k2 for -! m soundings, using the k-distribution method. -! -!---- input parameters -! spectral band (ib) -! number of levels (np) -! current level (k) -! planck-weighted k-distribution function due to -! h2o line absorption (fkw) -! planck-weighted k-distribution function due to -! h2o continuum absorption (gkw) -! number of terms used in each band to compute water vapor -! continuum transmittance (ne) -! exponentials for line absorption (h2oexp) -! exponentials for continuum absorption (conexp) -! -!---- updated parameters -! transmittance between levels k1 and k2 due to -! water vapor line absorption (th2o) -! transmittance between levels k1 and k2 due to -! water vapor continuum absorption (tcon) -! total transmittance (tran) -! -!********************************************************************** - implicit none - -!---- input parameters ------ - - integer :: ib,ne,np,k - real :: h2oexp(0:,:),conexp(0:,:) - real :: fkw(6,9),gkw(6,3) - -!---- updated parameters ----- - - real :: th2o(6),tcon(3),tran - -!---- temporary arrays ----- - - real :: trnth2o - integer :: i - -!-----tco2 are the six exp factors between levels k1 and k2 -! tran is the updated total transmittance between levels k1 and k2 - -!-----th2o is the 6 exp factors between levels k1 and k2 due to -! h2o line absorption. - -!-----tcon is the 3 exp factors between levels k1 and k2 due to -! h2o continuum absorption. - -!-----trnth2o is the total transmittance between levels k1 and k2 due -! to both line and continuum absorption. - -!-----Compute th2o following Eq. (8.23). - - th2o(1) = th2o(1)*h2oexp(k,1) - th2o(2) = th2o(2)*h2oexp(k,2) - th2o(3) = th2o(3)*h2oexp(k,3) - th2o(4) = th2o(4)*h2oexp(k,4) - th2o(5) = th2o(5)*h2oexp(k,5) - th2o(6) = th2o(6)*h2oexp(k,6) - - if (ne == 0) then - -!-----Compute trnh2o following Eq. (8.25). fkw is given in Table 4. - - trnth2o =(fkw(1,ib)*th2o(1) & - + fkw(2,ib)*th2o(2) & - + fkw(3,ib)*th2o(3) & - + fkw(4,ib)*th2o(4) & - + fkw(5,ib)*th2o(5) & - + fkw(6,ib)*th2o(6)) - - - tran = tran*trnth2o - - elseif (ne == 1) then - -!-----Compute trnh2o following Eqs. (8.25) and (4.27). - - tcon(1) = tcon(1)*conexp(k,1) - - trnth2o =(fkw(1,ib)*th2o(1) & - + fkw(2,ib)*th2o(2) & - + fkw(3,ib)*th2o(3) & - + fkw(4,ib)*th2o(4) & - + fkw(5,ib)*th2o(5) & - + fkw(6,ib)*th2o(6))*tcon(1) - - tran = tran*trnth2o - - else - -!-----For band 3. This band is divided into 3 subbands. - - tcon(1)= tcon(1)*conexp(k,1) - tcon(2)= tcon(2)*conexp(k,2) - tcon(3)= tcon(3)*conexp(k,3) - -!-----Compute trnh2o following Eqs. (4.29) and (8.25). - - trnth2o = ( gkw(1,1)*th2o(1) & - + gkw(2,1)*th2o(2) & - + gkw(3,1)*th2o(3) & - + gkw(4,1)*th2o(4) & - + gkw(5,1)*th2o(5) & - + gkw(6,1)*th2o(6) ) * tcon(1) & - + ( gkw(1,2)*th2o(1) & - + gkw(2,2)*th2o(2) & - + gkw(3,2)*th2o(3) & - + gkw(4,2)*th2o(4) & - + gkw(5,2)*th2o(5) & - + gkw(6,2)*th2o(6) ) * tcon(2) & - + ( gkw(1,3)*th2o(1) & - + gkw(2,3)*th2o(2) & - + gkw(3,3)*th2o(3) & - + gkw(4,3)*th2o(4) & - + gkw(5,3)*th2o(5) & - + gkw(6,3)*th2o(6) ) * tcon(3) - - tran = tran*trnth2o - - end if - - end subroutine h2okdis - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine n2okdis(ib,np,k,n2oexp,tn2o,tran) -#else - subroutine n2okdis(ib,np,k,n2oexp,tn2o,tran) -#endif -!********************************************************************** -! compute n2o transmittances between levels k1 and k2 for -! m soundings, using the k-distribution method with linear -! pressure scaling. -! -!---- input parameters -! spectral band (ib) -! number of levels (np) -! current level (k) -! exponentials for n2o absorption (n2oexp) -! -!---- updated parameters -! transmittance between levels k1 and k2 due to n2o absorption -! for the various values of the absorption coefficient (tn2o) -! total transmittance (tran) -! -!********************************************************************** - implicit none - integer :: ib,np,k - -!---- input parameters ----- - - real :: n2oexp(0:,:) - -!---- updated parameters ----- - - real :: tn2o(4),tran - -!---- temporary arrays ----- - - real :: xc - -!-----tn2o is computed from Eq. (8.23). -! xc is the total n2o transmittance computed from (8.25) -! The k-distribution functions are given in Table 5. - -!-----band 6 - - if (ib == 6) then - - tn2o(1)=tn2o(1)*n2oexp(k,1) - xc= 0.940414*tn2o(1) - - tn2o(2)=tn2o(2)*n2oexp(k,2) - xc=xc+0.059586*tn2o(2) - -!-----band 7 - - else - - tn2o(1)=tn2o(1)*n2oexp(k,1) - xc= 0.561961*tn2o(1) - - tn2o(2)=tn2o(2)*n2oexp(k,2) - xc=xc+0.138707*tn2o(2) - - tn2o(3)=tn2o(3)*n2oexp(k,3) - xc=xc+0.240670*tn2o(3) - - tn2o(4)=tn2o(4)*n2oexp(k,4) - xc=xc+0.058662*tn2o(4) - - end if - - tran=tran*xc - - end subroutine n2okdis - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine ch4kdis(ib,np,k,ch4exp,tch4,tran) -#else - subroutine ch4kdis(ib,np,k,ch4exp,tch4,tran) -#endif -!********************************************************************** -! compute ch4 transmittances between levels k1 and k2 for -! m soundings, using the k-distribution method with -! linear pressure scaling. -! -!---- input parameters -! spectral band (ib) -! number of levels (np) -! current level (k) -! exponentials for ch4 absorption (ch4exp) -! -!---- updated parameters -! transmittance between levels k1 and k2 due to ch4 absorption -! for the various values of the absorption coefficient (tch4) -! total transmittance (tran) -! -!********************************************************************** - implicit none - integer :: ib,np,k - -!---- input parameters ----- - - real :: ch4exp(0:,:) - -!---- updated parameters ----- - - real :: tch4(4),tran - -!---- temporary arrays ----- - - real :: xc - -!-----tch4 is computed from Eq. (8.23). -! xc is the total ch4 transmittance computed from (8.25) -! The k-distribution functions are given in Table 5. - -!-----band 6 - - if (ib == 6) then - - tch4(1)=tch4(1)*ch4exp(k,1) - xc= tch4(1) - -!-----band 7 - - else - - tch4(1)=tch4(1)*ch4exp(k,1) - xc= 0.610650*tch4(1) - - tch4(2)=tch4(2)*ch4exp(k,2) - xc=xc+0.280212*tch4(2) - - tch4(3)=tch4(3)*ch4exp(k,3) - xc=xc+0.107349*tch4(3) - - tch4(4)=tch4(4)*ch4exp(k,4) - xc=xc+0.001789*tch4(4) - - end if - - tran=tran*xc - - end subroutine ch4kdis - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine comkdis(ib,np,k,comexp,tcom,tran) -#else - subroutine comkdis(ib,np,k,comexp,tcom,tran) -#endif -!********************************************************************** -! compute co2-minor transmittances between levels k1 and k2 -! for m soundings, using the k-distribution method -! with linear pressure scaling. -! -!---- input parameters -! spectral band (ib) -! number of levels (np) -! current level (k) -! exponentials for co2-minor absorption (comexp) -! -!---- updated parameters -! transmittance between levels k1 and k2 due to co2-minor absorption -! for the various values of the absorption coefficient (tcom) -! total transmittance (tran) -! -!********************************************************************** - implicit none - integer :: ib,np,k - -!---- input parameters ----- - - real :: comexp(0:,:) - -!---- updated parameters ----- - - real :: tcom(6),tran - -!---- temporary arrays ----- - - real :: xc - -!-----tcom is computed from Eq. (8.23). -! xc is the total co2 transmittance computed from (8.25) -! The k-distribution functions are given in Table 6. - -!-----band 4 - - if (ib == 4) then - - tcom(1)=tcom(1)*comexp(k,1) - xc= 0.12159*tcom(1) - tcom(2)=tcom(2)*comexp(k,2) - xc=xc+0.24359*tcom(2) - tcom(3)=tcom(3)*comexp(k,3) - xc=xc+0.24981*tcom(3) - tcom(4)=tcom(4)*comexp(k,4) - xc=xc+0.26427*tcom(4) - tcom(5)=tcom(5)*comexp(k,5) - xc=xc+0.07807*tcom(5) - tcom(6)=tcom(6)*comexp(k,6) - xc=xc+0.04267*tcom(6) - -!-----band 5 - - else - - tcom(1)=tcom(1)*comexp(k,1) - xc= 0.06869*tcom(1) - tcom(2)=tcom(2)*comexp(k,2) - xc=xc+0.14795*tcom(2) - tcom(3)=tcom(3)*comexp(k,3) - xc=xc+0.19512*tcom(3) - tcom(4)=tcom(4)*comexp(k,4) - xc=xc+0.33446*tcom(4) - tcom(5)=tcom(5)*comexp(k,5) - xc=xc+0.17199*tcom(5) - tcom(6)=tcom(6)*comexp(k,6) - xc=xc+0.08179*tcom(6) - - end if - - tran=tran*xc - - end subroutine comkdis - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine cfckdis(np,k,cfcexp,tcfc,tran) -#else - subroutine cfckdis(np,k,cfcexp,tcfc,tran) -#endif -!********************************************************************** -! compute cfc-(11,12,22) transmittances between levels k1 and k2 -! for m soundings, using the k-distribution method with -! linear pressure scaling. -! -!---- input parameters -! number of levels (np) -! current level (k) -! exponentials for cfc absorption (cfcexp) -! -!---- updated parameters -! transmittance between levels k1 and k2 due to cfc absorption -! for the various values of the absorption coefficient (tcfc) -! total transmittance (tran) -! -!********************************************************************** - implicit none - -!---- input parameters ----- - - integer :: k, np - real :: cfcexp(0:) - -!---- updated parameters ----- - - real :: tcfc,tran - -!-----tcfc is the exp factors between levels k1 and k2. - - tcfc=tcfc*cfcexp(k) - tran=tran*tcfc - - end subroutine cfckdis - - -!********************************************************************** -#ifdef _CUDA - attributes(device) subroutine b10kdis(np,k,h2oexp,conexp,co2exp,n2oexp, & - th2o,tcon,tco2,tn2o,tran) -#else - subroutine b10kdis(np,k,h2oexp,conexp,co2exp,n2oexp, & - th2o,tcon,tco2,tn2o,tran) -#endif -!********************************************************************** -! -! compute h2o (line and continuum),co2,n2o transmittances between -! levels k1 and k2 for m soundings, using the k-distribution -! method with linear pressure scaling. -! -!---- input parameters -! number of levels (np) -! current level (k) -! exponentials for h2o line absorption (h2oexp) -! exponentials for h2o continuum absorption (conexp) -! exponentials for co2 absorption (co2exp) -! exponentials for n2o absorption (n2oexp) -! -!---- updated parameters -! transmittance between levels k1 and k2 due to h2o line absorption -! for the various values of the absorption coefficient (th2o) -! transmittance between levels k1 and k2 due to h2o continuum -! absorption for the various values of the absorption -! coefficient (tcon) -! transmittance between levels k1 and k2 due to co2 absorption -! for the various values of the absorption coefficient (tco2) -! transmittance between levels k1 and k2 due to n2o absorption -! for the various values of the absorption coefficient (tn2o) -! total transmittance (tran) -! -!********************************************************************** - implicit none - - integer :: np,k - -!---- input parameters ----- - - real :: h2oexp(0:,:),conexp(0:),co2exp(0:,:), & - n2oexp(0:,:) - -!---- updated parameters ----- - - real :: th2o(6),tcon(3),tco2(6),tn2o(4), & - tran - -!---- temporary arrays ----- - - real :: xx - -!-----For h2o line. The k-distribution functions are given in Table 4. - - th2o(1)=th2o(1)*h2oexp(k,1) - xx= 0.3153*th2o(1) - - th2o(2)=th2o(2)*h2oexp(k,2) - xx=xx+0.4604*th2o(2) - - th2o(3)=th2o(3)*h2oexp(k,3) - xx=xx+0.1326*th2o(3) - - th2o(4)=th2o(4)*h2oexp(k,4) - xx=xx+0.0798*th2o(4) - - th2o(5)=th2o(5)*h2oexp(k,5) - xx=xx+0.0119*th2o(5) - - tran=xx - -!-----For h2o continuum. Note that conexp(k,3) is for subband 3a. - - tcon(1)=tcon(1)*conexp(k) - tran=tran*tcon(1) - -!-----For co2 (Table 6) - - tco2(1)=tco2(1)*co2exp(k,1) - xx= 0.2673*tco2(1) - - tco2(2)=tco2(2)*co2exp(k,2) - xx=xx+ 0.2201*tco2(2) - - tco2(3)=tco2(3)*co2exp(k,3) - xx=xx+ 0.2106*tco2(3) - - tco2(4)=tco2(4)*co2exp(k,4) - xx=xx+ 0.2409*tco2(4) - - tco2(5)=tco2(5)*co2exp(k,5) - xx=xx+ 0.0196*tco2(5) - - tco2(6)=tco2(6)*co2exp(k,6) - xx=xx+ 0.0415*tco2(6) - - tran=tran*xx - -!-----For n2o (Table 5) - - tn2o(1)=tn2o(1)*n2oexp(k,1) - xx= 0.970831*tn2o(1) - - tn2o(2)=tn2o(2)*n2oexp(k,2) - xx=xx+0.029169*tn2o(2) - - tran=tran*(xx-1.0) - - end subroutine b10kdis - - -!mjs - -#ifndef OVERCAST -!*********************************************************************** -#ifdef _CUDA - attributes(device) subroutine cldovlp (np,k1,k2,ict,icb,icx,ncld,enn,ett, & - cldhi,cldmd,cldlw) -#else - subroutine cldovlp (np,k1,k2,ict,icb,icx,ncld,enn,ett, & - cldhi,cldmd,cldlw) -#endif -!*********************************************************************** -! -! update the effective superlayer cloud fractions between levels k1 -! and k2 following Eqs.(6.18)-(6.21). This assumes that the input -! are the fractions between k1 and k2-1. -! -! input parameters -! -! m: number of soundings -! np: number of layers -! k1: index for top level -! k2: index for bottom level -! ict: the level separating high and middle clouds -! icb: the level separating middle and low clouds -! icx: indeces sorted by enn in the three superlayers -! enn: effective fractional cloud cover of a layer -! ett: transmittance of a cloud layer -! -! update paremeters -! -! cldhi: Effective high-level cloudiness -! cldmd: Effective middle-level cloudiness -! cldlw: Effective low-level cloudiness -! -! -!*********************************************************************** - - implicit none - - integer, intent(IN ) :: np,k1,k2,ict,icb,icx(0:),ncld(3) - real, intent(IN ) :: enn(0:), ett(0:) - - real, intent(INOUT) :: cldhi,cldmd,cldlw - - integer :: i,j,k,km,kx - - km=k2-1 - - if (km < ict ) then ! do high clouds - - kx=ncld(1) - - if(kx==1 .or. cldhi==0.) then - cldhi = enn(km) - else - cldhi = 0.0 - if(kx/=0) then - do k=ict-kx,ict-1 - j=icx(k) - if(j>=k1 .and. j<=km) cldhi=enn(j)+ett(j)*cldhi - end do - end if - end if - - elseif(km >= ict .and. km < icb) then ! do middle clouds - - kx=ncld(2) - - if(kx==1 .or. cldmd==0.) then - cldmd = enn(km) - else - cldmd = 0.0 - if(kx/=0) then - do k=icb-kx,icb-1 - j=icx(k) - if(j>=k1 .and. j<=km) cldmd=enn(j)+ett(j)*cldmd - end do - end if - end if - - else ! do low clouds - - kx=ncld(3) - - if(kx==1 .or. cldlw==0.) then - cldlw = enn(km) - else - cldlw = 0.0 - if(kx/=0) then - do k=np+1-kx,np - j=icx(k) - if(j>=k1 .and. j<=km) cldlw=enn(j)+ett(j)*cldlw - end do - end if - end if - - end if - - end subroutine cldovlp -#endif -!mjs - -!*********************************************************************** -#ifdef _CUDA - attributes(device) subroutine sfcflux (ibn,m,i,cb,dcb,ns,fs,tg,eg,tv,ev,rv,bs,dbs,rflxs) -#else - subroutine sfcflux (ibn,m,i,cb,dcb,ns,fs,tg,eg,tv,ev,rv,bs,dbs,rflxs) -#endif -!*********************************************************************** -! Compute emission and reflection by an homogeneous/inhomogeneous -! surface with vegetation cover. -! -!-----Input parameters -! index for the spectral band (ibn) -! number of soundings (m) -! current sounding (i) -! number of sub-grid box (ns) -! fractional cover of sub-grid box (fs) -! sub-grid ground temperature (tg) -! sub-grid ground emissivity (eg) -! sub-grid vegetation temperature (tv) -! sub-grid vegetation emissivity (ev) -! sub-grid vegetation reflectivity (rv) -! -!-----Output parameters Unit -! Emission by the surface (ground+vegetation) (bs) W/m^2 -! Derivative of bs rwt to temperature (dbs) W/m^2 -! Reflection by the surface (rflxs) W/m^2 -! -!********************************************************************** - implicit none - -!---- input parameters ----- - integer :: ibn,ns,m,i - real :: cb(6,10) - real :: dcb(5,10) - real :: fs(m,ns),tg(m,ns),eg(m,ns,10) - real :: tv(m,ns),ev(m,ns,10),rv(m,ns,10) - -!---- output parameters ----- - real :: bs,dbs,rflxs - -!---- temporary arrays ----- - integer :: j - real :: bg(MAXNS),bv(MAXNS),dbg(MAXNS),dbv(MAXNS) - real :: xx,yy,zz - -!*************************************************************** - -!-----compute planck flux and the derivative wrt to temperature -! c.f. eqs. (3.11) and (3.12). - - do j=1,ns - call planck(ibn,cb,tg(i,j),bg(j)) - call planck(ibn,cb,tv(i,j),bv(j)) - call plancd(ibn,dcb,tg(i,j),dbg(j)) - call plancd(ibn,dcb,tv(i,j),dbv(j)) - end do - -!----- - - if (fs(i,1) > 0.9999) then - if (ev(i,1,ibn) < 0.0001 .and. rv(i,1,ibn) < 0.0001) then - -!-----for homogeneous surface without vegetation -! following Eqs. (9.4), (9.5), and (3.13) - - bs =eg(i,1,ibn)*bg(1) - dbs=eg(i,1,ibn)*dbg(1) - rflxs=1.0-eg(i,1,ibn) - else - -!-----With vegetation -! following Eqs. (9.1), (9.3), and (9.13) - - xx=ev(i,1,ibn)*bv(1) - yy=1.0-ev(i,1,ibn)-rv(i,1,ibn) - zz=1.0-eg(i,1,ibn) - bs=yy*(eg(i,1,ibn)*bg(1)+zz*xx)+xx - - xx=ev(i,1,ibn)*dbv(1) - dbs=yy*(eg(i,1,ibn)*dbg(1)+zz*xx)+xx - - rflxs=rv(i,1,ibn)+zz*yy*yy/(1.0-rv(i,1,ibn)*zz) - end if - else - -!-----for nonhomogeneous surface - - bs=0.0 - dbs=0.0 - rflxs=0.0 - - if (ev(i,1,ibn) < 0.0001 .and. rv(i,1,ibn) < 0.0001) then - -!-----No vegetation, following Eqs. (9.9), (9.10), and (9.13) - - do j=1,ns - bs=bs+fs(i,j)*eg(i,j,ibn)*bg(j) - dbs=dbs+fs(i,j)*eg(i,j,ibn)*dbg(j) - rflxs=rflxs+fs(i,j)*(1.0-eg(i,j,ibn)) - end do - else - -!-----With vegetation, following Eqs. (9.6), (9.7), and (9.13) - - do j=1,ns - xx=ev(i,j,ibn)*bv(j) - yy=1.0-ev(i,j,ibn)-rv(i,j,ibn) - zz=1.0-eg(i,j,ibn) - bs=bs+fs(i,j)*(yy*(eg(i,j,ibn)*bg(j)+zz*xx)+xx) - - xx=ev(i,j,ibn)*dbv(j) - dbs=dbs+fs(i,j)*(yy*(eg(i,j,ibn)*dbg(j)+zz*xx)+xx) - - rflxs=rflxs+fs(i,j)*(rv(i,j,ibn)+zz*yy*yy & - /(1.0-rv(i,j,ibn)*zz)) - end do - end if - end if - - end subroutine sfcflux - -!mjs - -#ifndef OVERCAST - -!*********************************************************************** -#ifdef _CUDA - attributes(device) subroutine mkicx(np,ict,icb,enn,icx,ncld) -#else - subroutine mkicx(np,ict,icb,enn,icx,ncld) -#endif -!*********************************************************************** - - implicit none - - integer, intent(IN ) :: np, ict, icb - real, intent(IN ) :: enn(0:) - integer, intent(INOUT) :: icx(0:) - integer, intent( OUT) :: ncld(3) - - call sortit(enn( 0:ict-1),icx( 0:ict-1),ncld(1), 0, ict-1) - call sortit(enn(ict:icb-1),icx(ict:icb-1),ncld(2),ict, icb-1) - call sortit(enn(icb:np ),icx(icb: np),ncld(3),icb, np) - - end subroutine mkicx - -!*********************************************************************** -#ifdef _CUDA - attributes(device) subroutine SORTIT(ENN,LST,NC,ibg,iend) -#else - subroutine SORTIT(ENN,LST,NC,ibg,iend) -#endif -!*********************************************************************** - - implicit none - - integer, intent( OUT) :: NC - integer, intent(IN ) :: IBG, IEND - real, intent(IN ) :: ENN(IBG:IEND) - integer, intent(INOUT) :: LST(IBG:IEND) - - integer :: L, LL, I - real :: ENO - - if(ENN(IBG)>0) then - NC=1 - else - NC=0 - end if - - do L=IBG+1,IEND - ENO = ENN(LST(L)) - - if(ENO>0) NC=NC+1 - - LL=LST(L) - I=L-1 - do while(I>IBG-1) - if (ENN(LST(I))<=ENO) exit - LST(I+1)=LST(I) - I=I-1 - end do - LST(I+1)=LL - end do - - end subroutine SORTIT -#endif -!mjs - -! GPU Due to limitations of CUDA Fortran, we cannot call device subroutines -! external to the file containing the global subroutine. So we replicate -! the interface for the tau routine here. - -#ifdef _CUDA -!------------------------------------------------------------------------------ -!BOP -! !ROUTINE: getirtau -! -! !INTERFACE: - attributes(device) subroutine getirtau(ib,nlevs,dp,fcld,reff,hydromets,& - taudiag,tcldlyr,enn) - - implicit none - -! !INPUT PARAMETERS: - integer, intent(IN ) :: ib ! Band number - integer, intent(IN ) :: nlevs ! Number of levels - real, intent(IN ) :: dp(:) ! Delta pressure in Pa - real, intent(IN ) :: fcld(:) ! Cloud fraction (used sometimes) - real, intent(IN ) :: reff(:,:) ! Effective radius (microns) - real, intent(IN ) :: hydromets(:,:) ! Hydrometeors (kg/kg) - -! !OUTPUT PARAMETERS: - real, intent(OUT) :: taudiag( :,:) ! Optical depth for beam radiation - real, intent(OUT) :: tcldlyr(0: ) ! Flux transmissivity? - real, intent(OUT) :: enn(0: ) ! Flux transmissivity of a cloud layer? - -! !DESCRIPTION: -! Compute in-cloud or grid mean optical depths for infrared wavelengths -! Slots for reff, hydrometeors and tauall are as follows: -! 1 Cloud Ice -! 2 Cloud Liquid -! 3 Falling Liquid (Rain) -! 4 Falling Ice (Snow) -! -! In the below calculations, the constants used in the tau calculation are in -! m$^2$ g$^{-1}$ and m$^2$ g$^{-1}$ $\mu$m. Thus, we must convert the kg contained in the -! pressure (Pa = kg m$^{-1}$ s$^{-2}$) to grams. -! -! !REVISION HISTORY: -! 2011.11.18 MAT moved to Radiation_Shared and revised arg list, units -! -!EOP -!------------------------------------------------------------------------------ -!BOC - integer :: k - real :: taucld1,taucld2,taucld3,taucld4 - real :: g1,g2,g3,g4,gg - real :: w1,w2,w3,w4,ww - real :: ff,tauc - - real :: reff_snow - -#include "getirtau.code" - - end subroutine getirtau -#endif - -end module irradmod diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/irradconstants.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/irradconstants.F90 deleted file mode 100644 index 76b344b42..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/irradconstants.F90 +++ /dev/null @@ -1,2434 +0,0 @@ -! $Id$ - -module irrad_constants - -implicit none -save - -!********************************************************************* -! THE EQUATION NUMBERS noted in this code follows the latest ! -! version (May 2003) of the NASA Tech. Memo. (2001), which can ! -! be accessed at ftp://climate.gsfc.nasa.gov/pub/chou/clirad_lw/ ! -!********************************************************************* - -!-----xkw is the absorption coefficient for the first k-distribution -! interval due to water vapor line absorption (Table 4) -! Units are cm**2/g - - real, dimension(9) :: xkw = & - [29.55,4.167e-1,1.328e-2,5.250e-4,5.25e-4, 9.369e-3, 4.719e-2, 1.320e-0, 5.250e-4] - -!-----xke is the absorption coefficient for the first k-distribution -! function due to water vapor continuum absorption (Table 9). -! Units are cm**2/g - -!-----Roberts et al's continuum k data - -! real, dimension(9) :: xke = & -! [0.00,339.00,27.40,15.8,9.40,7.75,7.70,0.0,0.0] - -!-----CKD (Version 2.3) continuum k data - - real, dimension(9) :: xke = & - [0.0,271.,25.00,16.8,8.31,6.52,12.7,0.0,0.0] - -!-----mw is the ratio between neighboring absorption coefficients -! for water vapor line absorption (Table 4). - - integer, dimension(9) :: mw = [6,6,8,6,6,8,9,6,16] - -!-----aw and bw (Table 3) are the coefficients for temperature scaling -! for water vapor in Eq. (4.2). - - real, dimension(9) :: aw = & - [ 0.0021, 0.0140, 0.0167, 0.0302, & - 0.0307, 0.0195, 0.0152, 0.0008, 0.0096 ] - real, dimension(9) :: bw = & - [ -1.01e-5, 5.57e-5, 8.54e-5, 2.96e-4, & - 2.86e-4, 1.108e-4, 7.608e-5, -3.52e-6, 1.64e-5] - -!-----pm is the pressure-scaling parameter for water vapor absorption -! Eq. (4.1) and Table 3. - - real, dimension(9) :: pm = [ 1.0, 1.0, 1.0, 1.0, 1.0, 0.77, 0.5, 1.0, 1.0 ] - -!-----fkw is the planck-weighted k-distribution function due to h2o -! line absorption (Table 4). -! The k-distribution function for Band 3, fkw(*,3), -! is not used (see the parameter gkw below). - - real, dimension(6,9) :: fkw = reshape([ & - 0.2747,0.2717,0.2752,0.1177,0.0352,0.0255, & - 0.1521,0.3974,0.1778,0.1826,0.0374,0.0527, & - 1.0000,1.0000,1.0000,1.0000,1.0000,1.0000, & - 0.4654,0.2991,0.1343,0.0646,0.0226,0.0140, & - 0.5543,0.2723,0.1131,0.0443,0.0160,0.0000, & - 0.5955,0.2693,0.0953,0.0335,0.0064,0.0000, & - 0.1958,0.3469,0.3147,0.1013,0.0365,0.0048, & - 0.0740,0.1636,0.4174,0.1783,0.1101,0.0566, & - 0.1437,0.2197,0.3185,0.2351,0.0647,0.0183],[6,9]) - -!-----gkw is the planck-weighted k-distribution function due to h2o -! line absorption in the 3 subbands (800-720,620-720,540-620 /cm) -! of band 3 (Table 10). Note that the order of the sub-bands -! is reversed. - - real, dimension(6,3) :: gkw = reshape([ & - 0.1782,0.0593,0.0215,0.0068,0.0022,0.0000,& - 0.0923,0.1675,0.0923,0.0187,0.0178,0.0000,& - 0.0000,0.1083,0.1581,0.0455,0.0274,0.0041],[6,3]) - -!bdc - real :: w11 = -8.0 - real :: w12 = -4.0 - real :: w13 = -6.0 - real :: p11 = -2.0 - real :: p12 = -2.0 - real :: p13 = -2.0 - real :: dwe = 3.33333 - real :: dpe = 5.0 -!bdc - -!MATMAT Move the planck (cb) and plancd (dcb) data arrays into here. - -!-----the following coefficients are given in Table 2 for computing -! spectrally integrated planck fluxes using Eq. (3.11) - - real, dimension(6,10) :: cb = reshape([ & - 5.3443e+0, -2.0617e-1, 2.5333e-3, & - -6.8633e-6, 1.0115e-8, -6.2672e-12, & - 2.7148e+1, -5.4038e-1, 2.9501e-3, & - 2.7228e-7, -9.3384e-9, 9.9677e-12, & - -3.4860e+1, 1.1132e+0, -1.3006e-2, & - 6.4955e-5, -1.1815e-7, 8.0424e-11, & - -6.0513e+1, 1.4087e+0, -1.2077e-2, & - 4.4050e-5, -5.6735e-8, 2.5660e-11, & - -2.6689e+1, 5.2828e-1, -3.4453e-3, & - 6.0715e-6, 1.2523e-8, -2.1550e-11, & - -6.7274e+0, 4.2256e-2, 1.0441e-3, & - -1.2917e-5, 4.7396e-8, -4.4855e-11, & - 1.8786e+1, -5.8359e-1, 6.9674e-3, & - -3.9391e-5, 1.0120e-7, -8.2301e-11, & - 1.0344e+2, -2.5134e+0, 2.3748e-2, & - -1.0692e-4, 2.1841e-7, -1.3704e-10, & - -1.0482e+1, 3.8213e-1, -5.2267e-3, & - 3.4412e-5, -1.1075e-7, 1.4092e-10, & - 1.6769e+0, 6.5397e-2, -1.8125e-3, & - 1.2912e-5, -2.6715e-8, 1.9792e-11],[6,10]) - -!-----Coefficients for computing the derivative of Planck function -! with respect to temperature (Eq. 3.12). -! dcb(1)=1*cb(2), dcb(2)=2*cb(3), dcb(3)=3*cb(4) ... etc - - real, dimension(5,10) :: dcb = reshape([ & - -2.0617E-01, 5.0666E-03,-2.0590E-05, 4.0460E-08,-3.1336E-11, & - -5.4038E-01, 5.9002E-03, 8.1684E-07,-3.7354E-08, 4.9839E-11, & - 1.1132E+00,-2.6012E-02, 1.9486E-04,-4.7260E-07, 4.0212E-10, & - 1.4087E+00,-2.4154E-02, 1.3215E-04,-2.2694E-07, 1.2830E-10, & - 5.2828E-01,-6.8906E-03, 1.8215E-05, 5.0092E-08,-1.0775E-10, & - 4.2256E-02, 2.0882E-03,-3.8751E-05, 1.8958E-07,-2.2428E-10, & - -5.8359E-01, 1.3935E-02,-1.1817E-04, 4.0480E-07,-4.1150E-10, & - -2.5134E+00, 4.7496E-02,-3.2076E-04, 8.7364E-07,-6.8520E-10, & - 3.8213E-01,-1.0453E-02, 1.0324E-04,-4.4300E-07, 7.0460E-10, & - 6.5397E-02,-3.6250E-03, 3.8736E-05,-1.0686E-07, 9.8960E-11],[5,10]) - -!-----include tables used in the table look-up for co2 (band 3), -! o3 (band 5), and h2o (bands 1, 2, and 8) transmission functions. -! "co2.tran4" is the co2 transmission table applicable to a large -! range of co2 amount (up to 100 times of the present-time value). - -! Data used in table look-up for transmittance calculations: -! -! c1 , c2, c3: for co2 (band 3) -! oo1,oo2,oo3: for o3 (band 5) -! h11,h12,h13: for h2o (band 1) -! h21,h22,h23: for h2o (band 2) -! h81,h82,h83: for h2o (band 8) - - real, dimension(26,30) :: c1 = reshape([ & - 0.99985647, 0.99985647, 0.99985671, 0.99985629, 0.99985641, & - 0.99985617, 0.99985600, 0.99985582, 0.99985498, 0.99985462, & - 0.99985212, 0.99985027, 0.99984729, 0.99984348, 0.99983788, & - 0.99983227, 0.99982637, 0.99982101, 0.99981648, 0.99981302, & - 0.99981070, 0.99980962, 0.99980921, 0.99980992, 0.99980998, & - 0.99980712, 0.99976432, 0.99976432, 0.99976432, 0.99976349, & - 0.99976403, 0.99976331, 0.99976230, 0.99976122, 0.99975908, & - 0.99975640, 0.99975210, 0.99974507, 0.99973530, 0.99972272, & - 0.99970680, 0.99968958, 0.99967217, 0.99965781, 0.99964571, & - 0.99963689, 0.99962878, 0.99962330, 0.99961692, 0.99961102, & - 0.99960178, 0.99958581, 0.99963892, 0.99963868, 0.99963838, & - 0.99963838, 0.99963748, 0.99963629, 0.99963462, 0.99963123, & - 0.99962622, 0.99961889, 0.99960798, 0.99959022, 0.99956691, & - 0.99953479, 0.99949580, 0.99945217, 0.99940813, 0.99936712, & - 0.99933147, 0.99930489, 0.99928439, 0.99926400, 0.99924570, & - 0.99922198, 0.99920201, 0.99919039, 0.99948031, 0.99947977, & - 0.99947912, 0.99947798, 0.99947661, 0.99947429, 0.99947017, & - 0.99946368, 0.99945402, 0.99943668, 0.99941242, 0.99937689, & - 0.99932659, 0.99926043, 0.99917668, 0.99907941, 0.99897701, & - 0.99887502, 0.99878597, 0.99870700, 0.99864298, 0.99858999, & - 0.99854898, 0.99852699, 0.99852800, 0.99854302, 0.99927652, & - 0.99927580, 0.99927449, 0.99927282, 0.99926913, 0.99926388, & - 0.99925607, 0.99924308, 0.99922228, 0.99919188, 0.99914628, & - 0.99907988, 0.99898797, 0.99886698, 0.99871200, 0.99852598, & - 0.99831802, 0.99809802, 0.99787998, 0.99768901, 0.99752903, & - 0.99741602, 0.99734801, 0.99732202, 0.99729002, 0.99724799, & - 0.99899602, 0.99899501, 0.99899203, 0.99898797, 0.99898303, & - 0.99897301, 0.99895698, 0.99893397, 0.99889803, 0.99884301, & - 0.99876302, 0.99865198, 0.99849701, 0.99829400, 0.99803603, & - 0.99772000, 0.99734300, 0.99692702, 0.99649400, 0.99608499, & - 0.99573100, 0.99547201, 0.99527103, 0.99510902, 0.99498200, & - 0.99486500, 0.99860001, 0.99859601, 0.99859202, 0.99858499, & - 0.99857402, 0.99855602, 0.99852800, 0.99848598, 0.99842203, & - 0.99832898, 0.99819702, 0.99801201, 0.99776399, 0.99744201, & - 0.99703097, 0.99652398, 0.99592501, 0.99523401, 0.99448699, & - 0.99373102, 0.99301797, 0.99236798, 0.99182302, 0.99140203, & - 0.99102801, 0.99071401, 0.99804801, 0.99804401, 0.99803501, & - 0.99802202, 0.99800003, 0.99796802, 0.99791902, 0.99784499, & - 0.99773699, 0.99757999, 0.99736100, 0.99706602, 0.99667102, & - 0.99615997, 0.99552703, 0.99475902, 0.99385202, 0.99281400, & - 0.99166602, 0.99039900, 0.98905998, 0.98776001, 0.98655999, & - 0.98550999, 0.98461998, 0.98379999, 0.99732202, 0.99731201, & - 0.99729699, 0.99727303, 0.99723399, 0.99717802, 0.99709100, & - 0.99696398, 0.99677801, 0.99651998, 0.99616700, 0.99569201, & - 0.99507397, 0.99429500, 0.99333203, 0.99218899, 0.99086499, & - 0.98935997, 0.98762000, 0.98566997, 0.98354000, 0.98124999, & - 0.97895002, 0.97672999, 0.97465998, 0.97279000, 0.99640399, & - 0.99638498, 0.99635702, 0.99631298, 0.99624503, 0.99614400, & - 0.99599499, 0.99577999, 0.99547797, 0.99506402, 0.99450397, & - 0.99377203, 0.99283201, 0.99166000, 0.99023402, 0.98856002, & - 0.98659998, 0.98435003, 0.98181999, 0.97895002, 0.97570997, & - 0.97210997, 0.96814001, 0.96399999, 0.95982999, 0.95585001, & - 0.99526399, 0.99523097, 0.99518001, 0.99510002, 0.99498397, & - 0.99480897, 0.99456000, 0.99421299, 0.99373603, 0.99309200, & - 0.99225003, 0.99115402, 0.98977000, 0.98806000, 0.98597997, & - 0.98348999, 0.98057997, 0.97728002, 0.97352999, 0.96930999, & - 0.96449000, 0.95902997, 0.95284998, 0.94602001, 0.93866003, & - 0.93112999, 0.99384302, 0.99378198, 0.99369103, 0.99355298, & - 0.99335301, 0.99306899, 0.99267203, 0.99212801, 0.99140298, & - 0.99044400, 0.98920000, 0.98762000, 0.98563999, 0.98316997, & - 0.98013997, 0.97653997, 0.97229999, 0.96740997, 0.96183002, & - 0.95548999, 0.94837999, 0.94033003, 0.93124998, 0.92101002, & - 0.90968001, 0.89749998, 0.99204999, 0.99194402, 0.99178600, & - 0.99155599, 0.99123502, 0.99078500, 0.99017102, 0.98935997, & - 0.98829001, 0.98689002, 0.98510998, 0.98286003, 0.98001999, & - 0.97649997, 0.97223002, 0.96708000, 0.96098000, 0.95381999, & - 0.94558001, 0.93621999, 0.92576003, 0.91415000, 0.90130001, & - 0.88709998, 0.87140000, 0.85460001, 0.98979002, 0.98961002, & - 0.98935002, 0.98898000, 0.98847997, 0.98778999, 0.98688000, & - 0.98569000, 0.98413998, 0.98215997, 0.97961998, 0.97640002, & - 0.97241002, 0.96748000, 0.96145999, 0.95420998, 0.94555002, & - 0.93539000, 0.92363000, 0.91029000, 0.89539999, 0.87919998, & - 0.86170000, 0.84310001, 0.82340002, 0.80320001, 0.98694998, & - 0.98664999, 0.98623002, 0.98566002, 0.98488998, 0.98387998, & - 0.98255002, 0.98083001, 0.97863001, 0.97579002, 0.97220999, & - 0.96771997, 0.96213001, 0.95525998, 0.94686002, 0.93677002, & - 0.92479002, 0.91082001, 0.89480001, 0.87669998, 0.85680002, & - 0.83529997, 0.81290001, 0.79020000, 0.76770002, 0.74660003, & - 0.98334998, 0.98286998, 0.98223001, 0.98136997, 0.98023999, & - 0.97876000, 0.97685999, 0.97442001, 0.97127002, 0.96730000, & - 0.96231002, 0.95604998, 0.94830000, 0.93878001, 0.92727000, & - 0.91352999, 0.89740002, 0.87889999, 0.85799998, 0.83490002, & - 0.81000000, 0.78380001, 0.75740004, 0.73189998, 0.70860004, & - 0.68869996, 0.97878999, 0.97807002, 0.97711003, 0.97584999, & - 0.97421998, 0.97211999, 0.96941000, 0.96595001, 0.96156001, & - 0.95603001, 0.94909000, 0.94045001, 0.92980999, 0.91687000, & - 0.90142000, 0.88330001, 0.86240000, 0.83889997, 0.81309998, & - 0.78549999, 0.75660002, 0.72749996, 0.69920003, 0.67299998, & - 0.64999998, 0.63100004, 0.97307003, 0.97200000, 0.97060001, & - 0.96880001, 0.96648002, 0.96350002, 0.95969999, 0.95486999, & - 0.94875997, 0.94110000, 0.93155003, 0.91979003, 0.90546000, & - 0.88830000, 0.86820000, 0.84509999, 0.81919998, 0.79100001, & - 0.76100004, 0.73019999, 0.69949996, 0.66990000, 0.64199996, & - 0.61619997, 0.59290004, 0.57249999, 0.96592999, 0.96439999, & - 0.96243000, 0.95986998, 0.95659000, 0.95240998, 0.94709998, & - 0.94040000, 0.93197000, 0.92149001, 0.90856999, 0.89289999, & - 0.87409997, 0.85220003, 0.82700002, 0.79900002, 0.76859999, & - 0.73660004, 0.70420003, 0.67240000, 0.64199996, 0.61339998, & - 0.58640003, 0.56060004, 0.53610003, 0.51320004, 0.95722002, & - 0.95503998, 0.95222998, 0.94862998, 0.94404000, 0.93821001, & - 0.93085998, 0.92163002, 0.91017997, 0.89609998, 0.87910002, & - 0.85879999, 0.83510000, 0.80820000, 0.77820003, 0.74599999, & - 0.71249998, 0.67879999, 0.64590001, 0.61469996, 0.58529997, & - 0.55720001, 0.53020000, 0.50400001, 0.47860003, 0.45450002, & - 0.94660002, 0.94352001, 0.93957001, 0.93452001, 0.92815000, & - 0.92009002, 0.91001999, 0.89760000, 0.88230002, 0.86399996, & - 0.84219998, 0.81700003, 0.78850001, 0.75699997, 0.72350001, & - 0.68879998, 0.65419996, 0.62049997, 0.58840001, 0.55779999, & - 0.52829999, 0.49980003, 0.47240001, 0.44610000, 0.42110002, & - 0.39810002, 0.93366003, 0.92931998, 0.92379999, 0.91681999, & - 0.90802002, 0.89709997, 0.88360000, 0.86720002, 0.84749997, & - 0.82449996, 0.79790002, 0.76800001, 0.73549998, 0.70099998, & - 0.66569996, 0.63049996, 0.59630001, 0.56330001, 0.53139997, & - 0.50029999, 0.47020000, 0.44129997, 0.41399997, 0.38880002, & - 0.36610001, 0.34649998, 0.91777998, 0.91175002, 0.90411001, & - 0.89459997, 0.88270003, 0.86820000, 0.85060000, 0.82969999, & - 0.80540001, 0.77759999, 0.74669999, 0.71340001, 0.67850000, & - 0.64300001, 0.60769999, 0.57319999, 0.53950000, 0.50629997, & - 0.47380000, 0.44220001, 0.41200000, 0.38360000, 0.35780001, & - 0.33530003, 0.31639999, 0.30119997, 0.89819998, 0.88989997, & - 0.87959999, 0.86680001, 0.85119998, 0.83249998, 0.81040001, & - 0.78499997, 0.75620002, 0.72459996, 0.69080001, 0.65579998, & - 0.62049997, 0.58550000, 0.55089998, 0.51660001, 0.48259997, & - 0.44900000, 0.41619998, 0.38489997, 0.35570002, 0.32929999, & - 0.30650002, 0.28740001, 0.27200001, 0.25950003, 0.87419999, & - 0.86300004, 0.84930003, 0.83270001, 0.81290001, 0.78970003, & - 0.76319999, 0.73370004, 0.70159996, 0.66769999, 0.63300002, & - 0.59810001, 0.56340003, 0.52890003, 0.49430001, 0.45969999, & - 0.42549998, 0.39209998, 0.36030000, 0.33069998, 0.30400002, & - 0.28070003, 0.26069999, 0.24390000, 0.22960001, 0.21740001, & - 0.84500003, 0.83039999, 0.81270003, 0.79189998, 0.76770002, & - 0.74039996, 0.71029997, 0.67799997, 0.64429998, 0.61000001, & - 0.57570004, 0.54139996, 0.50699997, 0.47219998, 0.43739998, & - 0.40289998, 0.36940002, 0.33749998, 0.30809999, 0.28149998, & - 0.25800002, 0.23710001, 0.21850002, 0.20179999, 0.18690002, & - 0.17379999, 0.81029999, 0.79159999, 0.76980001, 0.74479997, & - 0.71679997, 0.68630004, 0.65400004, 0.62070000, 0.58710003, & - 0.55340004, 0.51950002, 0.48519999, 0.45050001, 0.41560000, & - 0.38110000, 0.34780002, 0.31629997, 0.28729999, 0.26109999, & - 0.23760003, 0.21609998, 0.19620001, 0.17750001, 0.16009998, & - 0.14429998, 0.13029999, 0.76989996, 0.74710000, 0.72140002, & - 0.69290000, 0.66219997, 0.63010001, 0.59740001, 0.56439996, & - 0.53130001, 0.49769998, 0.46359998, 0.42909998, 0.39450002, & - 0.36040002, 0.32749999, 0.29650003, 0.26810002, 0.24229997, & - 0.21880001, 0.19690001, 0.17610002, 0.15619999, 0.13739997, & - 0.11979997, 0.10380000, 0.08950001, 0.72440004, 0.69790000, & - 0.66909999, 0.63839996, 0.60670000, 0.57459998, 0.54229999, & - 0.50960004, 0.47640002, 0.44250000, 0.40829998, 0.37410003, & - 0.34060001, 0.30849999, 0.27840000, 0.25070000, 0.22520000, & - 0.20150000, 0.17909998, 0.15759999, 0.13709998, 0.11769998, & - 0.09950000, 0.08260000, 0.06739998, 0.05400002, 0.67490000, & - 0.64579999, 0.61539996, 0.58410001, 0.55250001, 0.52069998, & - 0.48839998, 0.45539999, 0.42189997, 0.38810003, 0.35450000, & - 0.32190001, 0.29079998, 0.26169997, 0.23479998, 0.20959997, & - 0.18580002, 0.16280001, 0.14080000, 0.11989999, 0.10020000, & - 0.08200002, 0.06540000, 0.05049998, 0.03740001, 0.02640003],[26,30]) - - real, dimension(26,30) :: c2 = reshape([ & - -0.1841E-06, -0.1831E-06, -0.1831E-06, -0.1808E-06, -0.1827E-06, & - -0.1798E-06, -0.1784E-06, -0.1760E-06, -0.1717E-06, -0.1607E-06, & - -0.1531E-06, -0.1340E-06, -0.1163E-06, -0.8581E-07, -0.8246E-07, & - -0.7004E-07, -0.6526E-07, -0.6477E-07, -0.7906E-07, -0.7762E-07, & - -0.1010E-06, -0.1258E-06, -0.1434E-06, -0.1529E-06, -0.1453E-06, & - -0.1257E-06, -0.4666E-06, -0.4642E-06, -0.4623E-06, -0.4642E-06, & - -0.4608E-06, -0.4580E-06, -0.4551E-06, -0.4451E-06, -0.4327E-06, & - -0.4160E-06, -0.3864E-06, -0.3478E-06, -0.3048E-06, -0.2557E-06, & - -0.2070E-06, -0.1592E-06, -0.1282E-06, -0.1243E-06, -0.1291E-06, & - -0.1319E-06, -0.1533E-06, -0.1605E-06, -0.1676E-06, -0.2005E-06, & - -0.2529E-06, -0.2495E-06, -0.1050E-05, -0.1048E-05, -0.1048E-05, & - -0.1045E-05, -0.1042E-05, -0.1033E-05, -0.1023E-05, -0.1004E-05, & - -0.9759E-06, -0.9320E-06, -0.8804E-06, -0.8189E-06, -0.7186E-06, & - -0.6103E-06, -0.4895E-06, -0.3936E-06, -0.3076E-06, -0.2536E-06, & - -0.2430E-06, -0.2315E-06, -0.2347E-06, -0.2581E-06, -0.2699E-06, & - -0.2861E-06, -0.1807E-06, -0.1334E-06, -0.2069E-05, -0.2067E-05, & - -0.2065E-05, -0.2058E-05, -0.2053E-05, -0.2039E-05, -0.2019E-05, & - -0.1989E-05, -0.1943E-05, -0.1872E-05, -0.1776E-05, -0.1653E-05, & - -0.1495E-05, -0.1305E-05, -0.1106E-05, -0.9145E-06, -0.7454E-06, & - -0.6173E-06, -0.5145E-06, -0.4780E-06, -0.4535E-06, -0.4286E-06, & - -0.2859E-06, -0.1652E-06, -0.1109E-06, -0.8414E-07, -0.3601E-05, & - -0.3596E-05, -0.3589E-05, -0.3581E-05, -0.3565E-05, -0.3544E-05, & - -0.3507E-05, -0.3457E-05, -0.3391E-05, -0.3281E-05, -0.3131E-05, & - -0.2944E-05, -0.2726E-05, -0.2472E-05, -0.2216E-05, -0.1958E-05, & - -0.1685E-05, -0.1495E-05, -0.1327E-05, -0.1187E-05, -0.1029E-05, & - -0.8321E-06, -0.7542E-06, -0.6334E-06, -0.4469E-06, -0.1698E-06, & - -0.5805E-05, -0.5797E-05, -0.5789E-05, -0.5776E-05, -0.5745E-05, & - -0.5709E-05, -0.5651E-05, -0.5574E-05, -0.5454E-05, -0.5286E-05, & - -0.5082E-05, -0.4852E-05, -0.4588E-05, -0.4334E-05, -0.4077E-05, & - -0.3850E-05, -0.3600E-05, -0.3353E-05, -0.3103E-05, -0.2750E-05, & - -0.2530E-05, -0.2392E-05, -0.2273E-05, -0.1965E-05, -0.1885E-05, & - -0.1346E-05, -0.8863E-05, -0.8851E-05, -0.8833E-05, -0.8801E-05, & - -0.8758E-05, -0.8696E-05, -0.8608E-05, -0.8470E-05, -0.8297E-05, & - -0.8097E-05, -0.7849E-05, -0.7603E-05, -0.7396E-05, -0.7233E-05, & - -0.7150E-05, -0.7093E-05, -0.7071E-05, -0.6919E-05, -0.6710E-05, & - -0.6545E-05, -0.6335E-05, -0.6163E-05, -0.5898E-05, -0.5437E-05, & - -0.4590E-05, -0.3692E-05, -0.1291E-04, -0.1289E-04, -0.1286E-04, & - -0.1281E-04, -0.1273E-04, -0.1264E-04, -0.1250E-04, -0.1230E-04, & - -0.1209E-04, -0.1187E-04, -0.1164E-04, -0.1150E-04, -0.1152E-04, & - -0.1167E-04, -0.1202E-04, -0.1252E-04, -0.1292E-04, -0.1337E-04, & - -0.1371E-04, -0.1393E-04, -0.1381E-04, -0.1358E-04, -0.1292E-04, & - -0.1182E-04, -0.1043E-04, -0.8625E-05, -0.1806E-04, -0.1802E-04, & - -0.1797E-04, -0.1789E-04, -0.1778E-04, -0.1763E-04, -0.1744E-04, & - -0.1721E-04, -0.1697E-04, -0.1677E-04, -0.1669E-04, -0.1682E-04, & - -0.1725E-04, -0.1806E-04, -0.1920E-04, -0.2066E-04, -0.2250E-04, & - -0.2418E-04, -0.2561E-04, -0.2645E-04, -0.2681E-04, -0.2646E-04, & - -0.2538E-04, -0.2344E-04, -0.2057E-04, -0.1750E-04, -0.2460E-04, & - -0.2454E-04, -0.2446E-04, -0.2433E-04, -0.2417E-04, -0.2395E-04, & - -0.2370E-04, -0.2344E-04, -0.2322E-04, -0.2320E-04, -0.2340E-04, & - -0.2400E-04, -0.2514E-04, -0.2679E-04, -0.2938E-04, -0.3271E-04, & - -0.3665E-04, -0.4049E-04, -0.4405E-04, -0.4652E-04, -0.4777E-04, & - -0.4792E-04, -0.4649E-04, -0.4384E-04, -0.3951E-04, -0.3483E-04, & - -0.3317E-04, -0.3307E-04, -0.3292E-04, -0.3273E-04, -0.3250E-04, & - -0.3220E-04, -0.3189E-04, -0.3168E-04, -0.3163E-04, -0.3190E-04, & - -0.3261E-04, -0.3390E-04, -0.3599E-04, -0.3933E-04, -0.4380E-04, & - -0.4951E-04, -0.5623E-04, -0.6354E-04, -0.7051E-04, -0.7657E-04, & - -0.8083E-04, -0.8284E-04, -0.8261E-04, -0.7982E-04, -0.7466E-04, & - -0.6843E-04, -0.4452E-04, -0.4435E-04, -0.4412E-04, -0.4382E-04, & - -0.4347E-04, -0.4311E-04, -0.4289E-04, -0.4286E-04, -0.4318E-04, & - -0.4402E-04, -0.4546E-04, -0.4799E-04, -0.5172E-04, -0.5705E-04, & - -0.6390E-04, -0.7268E-04, -0.8295E-04, -0.9455E-04, -0.1070E-03, & - -0.1190E-03, -0.1296E-03, -0.1369E-03, -0.1405E-03, -0.1398E-03, & - -0.1356E-03, -0.1305E-03, -0.5944E-04, -0.5916E-04, -0.5880E-04, & - -0.5840E-04, -0.5801E-04, -0.5777E-04, -0.5777E-04, -0.5815E-04, & - -0.5910E-04, -0.6081E-04, -0.6380E-04, -0.6807E-04, -0.7403E-04, & - -0.8194E-04, -0.9209E-04, -0.1045E-03, -0.1195E-03, -0.1367E-03, & - -0.1560E-03, -0.1766E-03, -0.1966E-03, -0.2138E-03, -0.2259E-03, & - -0.2321E-03, -0.2341E-03, -0.2362E-03, -0.7884E-04, -0.7842E-04, & - -0.7795E-04, -0.7755E-04, -0.7729E-04, -0.7732E-04, -0.7787E-04, & - -0.7898E-04, -0.8111E-04, -0.8441E-04, -0.8932E-04, -0.9596E-04, & - -0.1051E-03, -0.1165E-03, -0.1310E-03, -0.1487E-03, -0.1696E-03, & - -0.1942E-03, -0.2217E-03, -0.2520E-03, -0.2836E-03, -0.3141E-03, & - -0.3407E-03, -0.3616E-03, -0.3783E-03, -0.3971E-03, -0.1036E-03, & - -0.1031E-03, -0.1027E-03, -0.1024E-03, -0.1025E-03, -0.1032E-03, & - -0.1045E-03, -0.1070E-03, -0.1108E-03, -0.1162E-03, -0.1237E-03, & - -0.1338E-03, -0.1469E-03, -0.1637E-03, -0.1843E-03, -0.2092E-03, & - -0.2385E-03, -0.2717E-03, -0.3090E-03, -0.3499E-03, -0.3937E-03, & - -0.4393E-03, -0.4845E-03, -0.5274E-03, -0.5688E-03, -0.6127E-03, & - -0.1346E-03, -0.1342E-03, -0.1340E-03, -0.1342E-03, -0.1349E-03, & - -0.1365E-03, -0.1392E-03, -0.1434E-03, -0.1493E-03, -0.1576E-03, & - -0.1687E-03, -0.1833E-03, -0.2023E-03, -0.2259E-03, -0.2554E-03, & - -0.2899E-03, -0.3298E-03, -0.3744E-03, -0.4228E-03, -0.4751E-03, & - -0.5313E-03, -0.5917E-03, -0.6561E-03, -0.7239E-03, -0.7935E-03, & - -0.8621E-03, -0.1727E-03, -0.1725E-03, -0.1728E-03, -0.1737E-03, & - -0.1755E-03, -0.1784E-03, -0.1828E-03, -0.1892E-03, -0.1982E-03, & - -0.2102E-03, -0.2262E-03, -0.2471E-03, -0.2735E-03, -0.3068E-03, & - -0.3468E-03, -0.3936E-03, -0.4465E-03, -0.5042E-03, -0.5657E-03, & - -0.6307E-03, -0.6995E-03, -0.7731E-03, -0.8524E-03, -0.9363E-03, & - -0.1021E-02, -0.1101E-02, -0.2186E-03, -0.2189E-03, -0.2199E-03, & - -0.2217E-03, -0.2249E-03, -0.2295E-03, -0.2365E-03, -0.2460E-03, & - -0.2588E-03, -0.2760E-03, -0.2984E-03, -0.3275E-03, -0.3637E-03, & - -0.4082E-03, -0.4611E-03, -0.5215E-03, -0.5887E-03, -0.6609E-03, & - -0.7371E-03, -0.8160E-03, -0.8972E-03, -0.9796E-03, -0.1062E-02, & - -0.1142E-02, -0.1219E-02, -0.1297E-02, -0.2728E-03, -0.2739E-03, & - -0.2759E-03, -0.2791E-03, -0.2842E-03, -0.2914E-03, -0.3015E-03, & - -0.3152E-03, -0.3333E-03, -0.3571E-03, -0.3880E-03, -0.4268E-03, & - -0.4746E-03, -0.5318E-03, -0.5982E-03, -0.6729E-03, -0.7546E-03, & - -0.8416E-03, -0.9322E-03, -0.1024E-02, -0.1113E-02, -0.1195E-02, & - -0.1266E-02, -0.1328E-02, -0.1388E-02, -0.1452E-02, -0.3364E-03, & - -0.3386E-03, -0.3419E-03, -0.3473E-03, -0.3549E-03, -0.3653E-03, & - -0.3797E-03, -0.3985E-03, -0.4237E-03, -0.4558E-03, -0.4964E-03, & - -0.5466E-03, -0.6067E-03, -0.6769E-03, -0.7568E-03, -0.8454E-03, & - -0.9408E-03, -0.1041E-02, -0.1142E-02, -0.1240E-02, -0.1327E-02, & - -0.1399E-02, -0.1456E-02, -0.1499E-02, -0.1535E-02, -0.1570E-02, & - -0.4102E-03, -0.4138E-03, -0.4194E-03, -0.4272E-03, -0.4380E-03, & - -0.4527E-03, -0.4723E-03, -0.4981E-03, -0.5312E-03, -0.5730E-03, & - -0.6244E-03, -0.6862E-03, -0.7586E-03, -0.8415E-03, -0.9340E-03, & - -0.1035E-02, -0.1141E-02, -0.1249E-02, -0.1352E-02, -0.1443E-02, & - -0.1520E-02, -0.1579E-02, -0.1621E-02, -0.1645E-02, -0.1653E-02, & - -0.1647E-02, -0.4948E-03, -0.5003E-03, -0.5081E-03, -0.5191E-03, & - -0.5340E-03, -0.5541E-03, -0.5803E-03, -0.6139E-03, -0.6562E-03, & - -0.7082E-03, -0.7705E-03, -0.8439E-03, -0.9281E-03, -0.1023E-02, & - -0.1126E-02, -0.1235E-02, -0.1345E-02, -0.1448E-02, -0.1541E-02, & - -0.1619E-02, -0.1681E-02, -0.1725E-02, -0.1748E-02, -0.1748E-02, & - -0.1726E-02, -0.1688E-02, -0.5890E-03, -0.5968E-03, -0.6078E-03, & - -0.6227E-03, -0.6428E-03, -0.6689E-03, -0.7026E-03, -0.7448E-03, & - -0.7968E-03, -0.8591E-03, -0.9325E-03, -0.1017E-02, -0.1112E-02, & - -0.1216E-02, -0.1324E-02, -0.1432E-02, -0.1533E-02, -0.1622E-02, & - -0.1697E-02, -0.1757E-02, -0.1800E-02, -0.1822E-02, -0.1823E-02, & - -0.1804E-02, -0.1768E-02, -0.1727E-02, -0.6900E-03, -0.7007E-03, & - -0.7156E-03, -0.7354E-03, -0.7613E-03, -0.7947E-03, -0.8365E-03, & - -0.8878E-03, -0.9496E-03, -0.1022E-02, -0.1107E-02, -0.1201E-02, & - -0.1304E-02, -0.1410E-02, -0.1514E-02, -0.1608E-02, -0.1691E-02, & - -0.1760E-02, -0.1813E-02, -0.1849E-02, -0.1867E-02, -0.1867E-02, & - -0.1854E-02, -0.1834E-02, -0.1813E-02, -0.1797E-02, -0.7930E-03, & - -0.8076E-03, -0.8270E-03, -0.8526E-03, -0.8854E-03, -0.9265E-03, & - -0.9772E-03, -0.1038E-02, -0.1110E-02, -0.1194E-02, -0.1288E-02, & - -0.1389E-02, -0.1491E-02, -0.1588E-02, -0.1676E-02, -0.1751E-02, & - -0.1813E-02, -0.1857E-02, -0.1883E-02, -0.1892E-02, -0.1887E-02, & - -0.1877E-02, -0.1868E-02, -0.1867E-02, -0.1874E-02, -0.1887E-02, & - -0.8921E-03, -0.9113E-03, -0.9365E-03, -0.9688E-03, -0.1009E-02, & - -0.1060E-02, -0.1120E-02, -0.1193E-02, -0.1276E-02, -0.1368E-02, & - -0.1466E-02, -0.1563E-02, -0.1653E-02, -0.1733E-02, -0.1801E-02, & - -0.1854E-02, -0.1889E-02, -0.1906E-02, -0.1906E-02, -0.1896E-02, & - -0.1884E-02, -0.1879E-02, -0.1886E-02, -0.1903E-02, -0.1925E-02, & - -0.1947E-02, -0.9823E-03, -0.1007E-02, -0.1040E-02, -0.1081E-02, & - -0.1131E-02, -0.1192E-02, -0.1265E-02, -0.1348E-02, -0.1439E-02, & - -0.1533E-02, -0.1623E-02, -0.1706E-02, -0.1777E-02, -0.1837E-02, & - -0.1881E-02, -0.1907E-02, -0.1916E-02, -0.1911E-02, -0.1898E-02, & - -0.1886E-02, -0.1881E-02, -0.1886E-02, -0.1899E-02, -0.1914E-02, & - -0.1927E-02, -0.1935E-02, -0.1063E-02, -0.1096E-02, -0.1137E-02, & - -0.1189E-02, -0.1252E-02, -0.1326E-02, -0.1409E-02, -0.1499E-02, & - -0.1588E-02, -0.1671E-02, -0.1746E-02, -0.1809E-02, -0.1860E-02, & - -0.1894E-02, -0.1911E-02, -0.1913E-02, -0.1904E-02, -0.1892E-02, & - -0.1882E-02, -0.1878E-02, -0.1879E-02, -0.1879E-02, -0.1876E-02, & - -0.1866E-02, -0.1851E-02, -0.1833E-02, -0.1138E-02, -0.1181E-02, & - -0.1235E-02, -0.1300E-02, -0.1376E-02, -0.1460E-02, -0.1547E-02, & - -0.1631E-02, -0.1708E-02, -0.1775E-02, -0.1831E-02, -0.1872E-02, & - -0.1896E-02, -0.1904E-02, -0.1900E-02, -0.1888E-02, -0.1877E-02, & - -0.1870E-02, -0.1866E-02, -0.1861E-02, -0.1849E-02, -0.1825E-02, & - -0.1790E-02, -0.1746E-02, -0.1697E-02, -0.1647E-02, -0.1214E-02, & - -0.1271E-02, -0.1339E-02, -0.1417E-02, -0.1502E-02, -0.1586E-02, & - -0.1665E-02, -0.1735E-02, -0.1796E-02, -0.1843E-02, -0.1875E-02, & - -0.1890E-02, -0.1891E-02, -0.1881E-02, -0.1867E-02, -0.1857E-02, & - -0.1850E-02, -0.1844E-02, -0.1832E-02, -0.1807E-02, -0.1764E-02, & - -0.1706E-02, -0.1636E-02, -0.1558E-02, -0.1478E-02, -0.1401E-02],[26,30]) - - real, dimension(26,30) :: c3 = reshape([ & - 0.5821E-10, 0.5821E-10, 0.2910E-10, 0.1019E-09, 0.4366E-10, & - 0.8731E-10, 0.5821E-10, -0.1455E-10, 0.0000E+00, -0.1164E-09, & - 0.1019E-09, -0.1455E-10, -0.1455E-09, -0.2037E-09, -0.1601E-09, & - -0.2328E-09, -0.1746E-09, -0.5821E-10, 0.2910E-10, 0.8731E-10, & - 0.8731E-10, -0.8731E-10, -0.1892E-09, -0.3638E-09, -0.6257E-09, & - -0.1222E-08, 0.5821E-10, 0.5821E-10, 0.5821E-10, 0.1601E-09, & - -0.1455E-10, 0.0000E+00, 0.8731E-10, 0.4366E-10, 0.1455E-10, & - -0.7276E-10, -0.2037E-09, -0.1892E-09, -0.2765E-09, -0.4220E-09, & - -0.3492E-09, -0.3347E-09, -0.2037E-09, -0.2328E-09, 0.1455E-10, & - -0.7276E-10, 0.1310E-09, 0.2910E-10, -0.2474E-09, -0.9313E-09, & - -0.1382E-08, -0.1164E-09, -0.3201E-09, -0.3347E-09, -0.3201E-09, & - -0.4075E-09, -0.4075E-09, -0.3492E-09, -0.4366E-09, -0.3929E-09, & - -0.3638E-09, -0.5530E-09, -0.8004E-09, -0.8295E-09, -0.9750E-09, & - -0.1091E-08, -0.1019E-08, -0.9750E-09, -0.8149E-09, -0.6985E-09, & - -0.2765E-09, -0.2328E-09, -0.2474E-09, 0.7276E-10, 0.1892E-09, & - 0.1703E-08, 0.2095E-08, 0.2285E-08, -0.1804E-08, -0.1746E-08, & - -0.1732E-08, -0.1746E-08, -0.1804E-08, -0.1892E-08, -0.1935E-08, & - -0.2081E-08, -0.2299E-08, -0.2270E-08, -0.2387E-08, -0.2547E-08, & - -0.2794E-08, -0.2896E-08, -0.2634E-08, -0.2314E-08, -0.2095E-08, & - -0.1368E-08, -0.1426E-08, -0.6403E-09, -0.2619E-09, 0.1281E-08, & - 0.2561E-08, 0.2081E-08, 0.1863E-08, 0.2037E-09, -0.4336E-08, & - -0.4366E-08, -0.4307E-08, -0.4366E-08, -0.4293E-08, -0.4322E-08, & - -0.4555E-08, -0.4700E-08, -0.4744E-08, -0.5093E-08, -0.5326E-08, & - -0.5544E-08, -0.5413E-08, -0.5821E-08, -0.5632E-08, -0.5166E-08, & - -0.4889E-08, -0.4351E-08, -0.2576E-08, -0.1455E-08, 0.8295E-09, & - 0.1222E-08, 0.4366E-09, -0.1251E-08, -0.1834E-08, 0.5675E-09, & - -0.7829E-08, -0.7858E-08, -0.7843E-08, -0.7960E-08, -0.8178E-08, & - -0.8367E-08, -0.8455E-08, -0.8804E-08, -0.9284E-08, -0.9517E-08, & - -0.9764E-08, -0.1014E-07, -0.1048E-07, -0.1052E-07, -0.1065E-07, & - -0.1052E-07, -0.9517E-08, -0.8993E-08, -0.5923E-08, -0.3827E-08, & - -0.1979E-08, -0.1935E-08, -0.1499E-08, -0.1208E-08, -0.2125E-08, & - -0.5239E-08, -0.1278E-07, -0.1262E-07, -0.1270E-07, -0.1294E-07, & - -0.1301E-07, -0.1318E-07, -0.1356E-07, -0.1417E-07, -0.1445E-07, & - -0.1502E-07, -0.1576E-07, -0.1605E-07, -0.1625E-07, -0.1687E-07, & - -0.1746E-07, -0.1726E-07, -0.1759E-07, -0.1579E-07, -0.1429E-07, & - -0.1270E-07, -0.1141E-07, -0.8004E-08, -0.4336E-08, -0.6883E-08, & - -0.6985E-08, -0.9211E-08, -0.1847E-07, -0.1866E-07, -0.1882E-07, & - -0.1898E-07, -0.1915E-07, -0.1962E-07, -0.2024E-07, -0.2068E-07, & - -0.2141E-07, -0.2219E-07, -0.2256E-07, -0.2341E-07, -0.2344E-07, & - -0.2353E-07, -0.2542E-07, -0.2605E-07, -0.2740E-07, -0.2916E-07, & - -0.3159E-07, -0.3014E-07, -0.2621E-07, -0.2258E-07, -0.1740E-07, & - -0.1608E-07, -0.1634E-07, -0.1483E-07, -0.2827E-07, -0.2849E-07, & - -0.2862E-07, -0.2899E-07, -0.2938E-07, -0.3024E-07, -0.3079E-07, & - -0.3143E-07, -0.3162E-07, -0.3171E-07, -0.3180E-07, -0.3156E-07, & - -0.3105E-07, -0.3193E-07, -0.3206E-07, -0.3532E-07, -0.4147E-07, & - -0.4904E-07, -0.5441E-07, -0.5594E-07, -0.5799E-07, -0.5428E-07, & - -0.5233E-07, -0.4559E-07, -0.4128E-07, -0.3981E-07, -0.4495E-07, & - -0.4524E-07, -0.4571E-07, -0.4594E-07, -0.4664E-07, -0.4708E-07, & - -0.4758E-07, -0.4777E-07, -0.4761E-07, -0.4712E-07, -0.4616E-07, & - -0.4547E-07, -0.4304E-07, -0.4254E-07, -0.4390E-07, -0.4949E-07, & - -0.5774E-07, -0.7010E-07, -0.8367E-07, -0.9677E-07, -0.1060E-06, & - -0.1085E-06, -0.1055E-06, -0.1047E-06, -0.9924E-07, -0.9641E-07, & - -0.7126E-07, -0.7176E-07, -0.7225E-07, -0.7267E-07, -0.7365E-07, & - -0.7359E-07, -0.7352E-07, -0.7336E-07, -0.7248E-07, -0.7123E-07, & - -0.7026E-07, -0.6749E-07, -0.6608E-07, -0.6685E-07, -0.6956E-07, & - -0.7229E-07, -0.7909E-07, -0.9623E-07, -0.1161E-06, -0.1422E-06, & - -0.1621E-06, -0.1835E-06, -0.1940E-06, -0.2040E-06, -0.1938E-06, & - -0.1717E-06, -0.1071E-06, -0.1077E-06, -0.1082E-06, -0.1088E-06, & - -0.1090E-06, -0.1087E-06, -0.1078E-06, -0.1070E-06, -0.1065E-06, & - -0.1042E-06, -0.1031E-06, -0.1034E-06, -0.1057E-06, -0.1072E-06, & - -0.1093E-06, -0.1133E-06, -0.1199E-06, -0.1332E-06, -0.1526E-06, & - -0.1823E-06, -0.2281E-06, -0.2716E-06, -0.3113E-06, -0.3312E-06, & - -0.3275E-06, -0.2796E-06, -0.1524E-06, -0.1531E-06, -0.1535E-06, & - -0.1536E-06, -0.1539E-06, -0.1534E-06, -0.1520E-06, -0.1517E-06, & - -0.1501E-06, -0.1493E-06, -0.1520E-06, -0.1550E-06, -0.1587E-06, & - -0.1638E-06, -0.1729E-06, -0.1799E-06, -0.1877E-06, -0.1928E-06, & - -0.2060E-06, -0.2296E-06, -0.2793E-06, -0.3446E-06, -0.4161E-06, & - -0.4624E-06, -0.4556E-06, -0.3800E-06, -0.2160E-06, -0.2166E-06, & - -0.2171E-06, -0.2164E-06, -0.2158E-06, -0.2152E-06, -0.2139E-06, & - -0.2134E-06, -0.2140E-06, -0.2156E-06, -0.2181E-06, -0.2230E-06, & - -0.2308E-06, -0.2427E-06, -0.2573E-06, -0.2725E-06, -0.2859E-06, & - -0.2977E-06, -0.3007E-06, -0.3094E-06, -0.3335E-06, -0.3889E-06, & - -0.4620E-06, -0.5198E-06, -0.5046E-06, -0.3762E-06, -0.3014E-06, & - -0.3018E-06, -0.3021E-06, -0.3002E-06, -0.2992E-06, -0.2978E-06, & - -0.2964E-06, -0.2967E-06, -0.2981E-06, -0.2999E-06, -0.3037E-06, & - -0.3130E-06, -0.3235E-06, -0.3421E-06, -0.3612E-06, -0.3881E-06, & - -0.4137E-06, -0.4371E-06, -0.4450E-06, -0.4399E-06, -0.4277E-06, & - -0.4203E-06, -0.4316E-06, -0.4326E-06, -0.3633E-06, -0.1936E-06, & - -0.4097E-06, -0.4090E-06, -0.4084E-06, -0.4055E-06, -0.4033E-06, & - -0.4008E-06, -0.3997E-06, -0.3991E-06, -0.3994E-06, -0.4027E-06, & - -0.4109E-06, -0.4219E-06, -0.4373E-06, -0.4600E-06, -0.4904E-06, & - -0.5249E-06, -0.5649E-06, -0.5992E-06, -0.6182E-06, -0.6008E-06, & - -0.5429E-06, -0.4394E-06, -0.3031E-06, -0.1452E-06, 0.2484E-07, & - 0.1920E-06, -0.5349E-06, -0.5327E-06, -0.5302E-06, -0.5260E-06, & - -0.5230E-06, -0.5207E-06, -0.5185E-06, -0.5164E-06, -0.5201E-06, & - -0.5243E-06, -0.5354E-06, -0.5469E-06, -0.5687E-06, -0.5946E-06, & - -0.6342E-06, -0.6763E-06, -0.7218E-06, -0.7586E-06, -0.7683E-06, & - -0.7239E-06, -0.5970E-06, -0.3716E-06, -0.5438E-07, 0.3003E-06, & - 0.6195E-06, 0.8335E-06, -0.6718E-06, -0.6670E-06, -0.6615E-06, & - -0.6571E-06, -0.6537E-06, -0.6509E-06, -0.6493E-06, -0.6510E-06, & - -0.6549E-06, -0.6616E-06, -0.6740E-06, -0.6922E-06, -0.7156E-06, & - -0.7472E-06, -0.7834E-06, -0.8227E-06, -0.8516E-06, -0.8580E-06, & - -0.8170E-06, -0.7014E-06, -0.4872E-06, -0.1677E-06, 0.2572E-06, & - 0.7455E-06, 0.1249E-05, 0.1691E-05, -0.8125E-06, -0.8088E-06, & - -0.8059E-06, -0.8022E-06, -0.7976E-06, -0.7968E-06, -0.7943E-06, & - -0.7979E-06, -0.8009E-06, -0.8125E-06, -0.8241E-06, -0.8448E-06, & - -0.8684E-06, -0.8958E-06, -0.9175E-06, -0.9279E-06, -0.9022E-06, & - -0.8238E-06, -0.6754E-06, -0.4562E-06, -0.1775E-06, 0.1622E-06, & - 0.5773E-06, 0.1102E-05, 0.1731E-05, 0.2415E-05, -0.9755E-06, & - -0.9714E-06, -0.9668E-06, -0.9624E-06, -0.9601E-06, -0.9584E-06, & - -0.9568E-06, -0.9575E-06, -0.9627E-06, -0.9691E-06, -0.9810E-06, & - -0.9937E-06, -0.1007E-05, -0.1009E-05, -0.9869E-06, -0.9205E-06, & - -0.7905E-06, -0.5811E-06, -0.3122E-06, -0.7778E-08, 0.3028E-06, & - 0.6327E-06, 0.1008E-05, 0.1470E-05, 0.2053E-05, 0.2767E-05, & - -0.1157E-05, -0.1151E-05, -0.1146E-05, -0.1139E-05, -0.1135E-05, & - -0.1128E-05, -0.1127E-05, -0.1123E-05, -0.1125E-05, -0.1126E-05, & - -0.1126E-05, -0.1118E-05, -0.1094E-05, -0.1032E-05, -0.9164E-06, & - -0.7228E-06, -0.4531E-06, -0.1298E-06, 0.2234E-06, 0.5785E-06, & - 0.9323E-06, 0.1275E-05, 0.1609E-05, 0.1957E-05, 0.2358E-05, & - 0.2823E-05, -0.1339E-05, -0.1333E-05, -0.1325E-05, -0.1315E-05, & - -0.1305E-05, -0.1297E-05, -0.1288E-05, -0.1279E-05, -0.1266E-05, & - -0.1251E-05, -0.1221E-05, -0.1166E-05, -0.1062E-05, -0.8919E-06, & - -0.6386E-06, -0.3109E-06, 0.6917E-07, 0.4702E-06, 0.8828E-06, & - 0.1291E-05, 0.1680E-05, 0.2018E-05, 0.2290E-05, 0.2474E-05, & - 0.2569E-05, 0.2551E-05, -0.1492E-05, -0.1483E-05, -0.1468E-05, & - -0.1456E-05, -0.1440E-05, -0.1425E-05, -0.1405E-05, -0.1382E-05, & - -0.1348E-05, -0.1294E-05, -0.1200E-05, -0.1054E-05, -0.8273E-06, & - -0.5224E-06, -0.1544E-06, 0.2583E-06, 0.7009E-06, 0.1162E-05, & - 0.1632E-05, 0.2072E-05, 0.2452E-05, 0.2716E-05, 0.2817E-05, & - 0.2691E-05, 0.2342E-05, 0.1839E-05, -0.1563E-05, -0.1548E-05, & - -0.1530E-05, -0.1512E-05, -0.1490E-05, -0.1461E-05, -0.1425E-05, & - -0.1374E-05, -0.1292E-05, -0.1163E-05, -0.9678E-06, -0.6926E-06, & - -0.3485E-06, 0.5218E-07, 0.4798E-06, 0.9390E-06, 0.1416E-05, & - 0.1905E-05, 0.2373E-05, 0.2783E-05, 0.3063E-05, 0.3137E-05, & - 0.2940E-05, 0.2484E-05, 0.1883E-05, 0.1314E-05, -0.1485E-05, & - -0.1467E-05, -0.1448E-05, -0.1420E-05, -0.1389E-05, -0.1342E-05, & - -0.1275E-05, -0.1166E-05, -0.1005E-05, -0.7639E-06, -0.4500E-06, & - -0.7180E-07, 0.3463E-06, 0.7886E-06, 0.1252E-05, 0.1726E-05, & - 0.2194E-05, 0.2632E-05, 0.3002E-05, 0.3247E-05, 0.3299E-05, & - 0.3136E-05, 0.2803E-05, 0.2414E-05, 0.2103E-05, 0.1960E-05, & - -0.1210E-05, -0.1192E-05, -0.1168E-05, -0.1137E-05, -0.1087E-05, & - -0.1009E-05, -0.8809E-06, -0.6893E-06, -0.4166E-06, -0.7395E-07, & - 0.3236E-06, 0.7515E-06, 0.1206E-05, 0.1672E-05, 0.2137E-05, & - 0.2579E-05, 0.2963E-05, 0.3247E-05, 0.3384E-05, 0.3358E-05, & - 0.3219E-05, 0.3078E-05, 0.3061E-05, 0.3232E-05, 0.3570E-05, & - 0.4003E-05, -0.7280E-06, -0.7159E-06, -0.6907E-06, -0.6483E-06, & - -0.5646E-06, -0.4283E-06, -0.2158E-06, 0.7339E-07, 0.4279E-06, & - 0.8279E-06, 0.1256E-05, 0.1709E-05, 0.2173E-05, 0.2626E-05, & - 0.3043E-05, 0.3376E-05, 0.3578E-05, 0.3609E-05, 0.3499E-05, & - 0.3364E-05, 0.3369E-05, 0.3649E-05, 0.4235E-05, 0.5050E-05, & - 0.5973E-05, 0.6909E-05, -0.1107E-06, -0.1032E-06, -0.7148E-07, & - 0.6679E-08, 0.1475E-06, 0.3666E-06, 0.6597E-06, 0.1013E-05, & - 0.1401E-05, 0.1819E-05, 0.2259E-05, 0.2703E-05, 0.3132E-05, & - 0.3513E-05, 0.3796E-05, 0.3931E-05, 0.3900E-05, 0.3772E-05, & - 0.3697E-05, 0.3847E-05, 0.4332E-05, 0.5152E-05, 0.6225E-05, & - 0.7455E-05, 0.8752E-05, 0.1004E-04, 0.5369E-06, 0.5571E-06, & - 0.6242E-06, 0.7652E-06, 0.9852E-06, 0.1272E-05, 0.1610E-05, & - 0.1982E-05, 0.2379E-05, 0.2795E-05, 0.3206E-05, 0.3593E-05, & - 0.3919E-05, 0.4138E-05, 0.4211E-05, 0.4161E-05, 0.4094E-05, & - 0.4166E-05, 0.4517E-05, 0.5194E-05, 0.6152E-05, 0.7315E-05, & - 0.8615E-05, 0.9997E-05, 0.1140E-04, 0.1273E-04, 0.1154E-05, & - 0.1217E-05, 0.1357E-05, 0.1574E-05, 0.1853E-05, 0.2171E-05, & - 0.2524E-05, 0.2896E-05, 0.3278E-05, 0.3647E-05, 0.3978E-05, & - 0.4232E-05, 0.4370E-05, 0.4379E-05, 0.4332E-05, 0.4369E-05, & - 0.4642E-05, 0.5232E-05, 0.6117E-05, 0.7206E-05, 0.8413E-05, & - 0.9675E-05, 0.1095E-04, 0.1217E-04, 0.1328E-04, 0.1423E-04],[26,30]) - - real, dimension(26,21) :: oo1 = reshape([ & - 0.99999344, 0.99999344, 0.99999344, 0.99999344, 0.99999344, & - 0.99999344, 0.99999344, 0.99999344, 0.99999344, 0.99999344, & - 0.99999356, 0.99999368, 0.99999368, 0.99999368, 0.99999410, & - 0.99999434, 0.99999434, 0.99999464, 0.99999464, 0.99999487, & - 0.99999487, 0.99999541, 0.99999595, 0.99999630, 0.99999648, & - 0.99999672, 0.99998689, 0.99998689, 0.99998689, 0.99998689, & - 0.99998689, 0.99998689, 0.99998689, 0.99998689, 0.99998689, & - 0.99998689, 0.99998701, 0.99998701, 0.99998701, 0.99998713, & - 0.99998724, 0.99998778, 0.99998778, 0.99998808, 0.99998820, & - 0.99998832, 0.99998873, 0.99998873, 0.99998885, 0.99998873, & - 0.99998897, 0.99998909, 0.99997336, 0.99997348, 0.99997348, & - 0.99997348, 0.99997348, 0.99997348, 0.99997348, 0.99997348, & - 0.99997360, 0.99997360, 0.99997360, 0.99997377, 0.99997389, & - 0.99997389, 0.99997455, 0.99997467, 0.99997479, 0.99997497, & - 0.99997509, 0.99997520, 0.99997509, 0.99997497, 0.99997479, & - 0.99997401, 0.99997377, 0.99997377, 0.99994606, 0.99994606, & - 0.99994606, 0.99994606, 0.99994606, 0.99994606, 0.99994630, & - 0.99994630, 0.99994630, 0.99994630, 0.99994630, 0.99994630, & - 0.99994695, 0.99994725, 0.99994725, 0.99994761, 0.99994791, & - 0.99994791, 0.99994779, 0.99994791, 0.99994779, 0.99994737, & - 0.99994725, 0.99994725, 0.99994749, 0.99994695, 0.99989170, & - 0.99989170, 0.99989170, 0.99989200, 0.99989200, 0.99989200, & - 0.99989200, 0.99989229, 0.99989229, 0.99989259, 0.99989289, & - 0.99989259, 0.99989289, 0.99989289, 0.99989331, 0.99989331, & - 0.99989331, 0.99989331, 0.99989331, 0.99989331, 0.99989349, & - 0.99989349, 0.99989331, 0.99989349, 0.99989331, 0.99989349, & - 0.99978632, 0.99978632, 0.99978632, 0.99978632, 0.99978638, & - 0.99978638, 0.99978638, 0.99978650, 0.99978650, 0.99978650, & - 0.99978679, 0.99978709, 0.99978721, 0.99978679, 0.99978632, & - 0.99978602, 0.99978608, 0.99978518, 0.99978518, 0.99978459, & - 0.99978501, 0.99978501, 0.99978518, 0.99978501, 0.99978501, & - 0.99978518, 0.99957907, 0.99957907, 0.99957907, 0.99957907, & - 0.99957907, 0.99957931, 0.99957931, 0.99957931, 0.99957961, & - 0.99957931, 0.99957907, 0.99957848, 0.99957782, 0.99957597, & - 0.99957472, 0.99957269, 0.99957120, 0.99957031, 0.99956989, & - 0.99956900, 0.99956918, 0.99956882, 0.99956882, 0.99956959, & - 0.99956989, 0.99956989, 0.99918377, 0.99918377, 0.99918377, & - 0.99918377, 0.99918377, 0.99918377, 0.99918360, 0.99918288, & - 0.99918252, 0.99918163, 0.99917960, 0.99917740, 0.99917412, & - 0.99916971, 0.99916393, 0.99915779, 0.99915212, 0.99914658, & - 0.99914283, 0.99913990, 0.99913877, 0.99913770, 0.99913692, & - 0.99913663, 0.99913692, 0.99913692, 0.99844402, 0.99844402, & - 0.99844402, 0.99844402, 0.99844402, 0.99844301, 0.99844301, & - 0.99844098, 0.99843901, 0.99843597, 0.99843001, 0.99842203, & - 0.99840999, 0.99839503, 0.99837703, 0.99835497, 0.99833500, & - 0.99831802, 0.99830401, 0.99829400, 0.99828798, 0.99828303, & - 0.99827999, 0.99827701, 0.99827600, 0.99827498, 0.99712098, & - 0.99712098, 0.99712098, 0.99711901, 0.99711901, 0.99711698, & - 0.99711502, 0.99711001, 0.99710202, 0.99709100, 0.99707502, & - 0.99704897, 0.99701297, 0.99696702, 0.99690801, 0.99684399, & - 0.99677801, 0.99671799, 0.99667197, 0.99663699, 0.99661303, & - 0.99659699, 0.99658602, 0.99658000, 0.99657297, 0.99657100, & - 0.99489498, 0.99489498, 0.99489301, 0.99489301, 0.99488801, & - 0.99488401, 0.99487501, 0.99486202, 0.99484003, 0.99480897, & - 0.99475998, 0.99468797, 0.99458599, 0.99444997, 0.99427801, & - 0.99408400, 0.99388403, 0.99370098, 0.99355298, 0.99344099, & - 0.99335998, 0.99330199, 0.99326497, 0.99324101, 0.99322498, & - 0.99321902, 0.99144602, 0.99144298, 0.99143898, 0.99143499, & - 0.99142599, 0.99141300, 0.99138802, 0.99135500, 0.99130303, & - 0.99122101, 0.99109501, 0.99090999, 0.99064600, 0.99028301, & - 0.98982000, 0.98929000, 0.98873001, 0.98821002, 0.98776001, & - 0.98741001, 0.98715001, 0.98697001, 0.98685002, 0.98676997, & - 0.98672003, 0.98668998, 0.98655999, 0.98654997, 0.98654997, & - 0.98653001, 0.98650998, 0.98648000, 0.98642999, 0.98635000, & - 0.98623002, 0.98604000, 0.98575002, 0.98532999, 0.98471999, & - 0.98387003, 0.98277998, 0.98148000, 0.98005998, 0.97867000, & - 0.97741997, 0.97643000, 0.97566003, 0.97510999, 0.97474003, & - 0.97447002, 0.97431999, 0.97421002, 0.98008001, 0.98006999, & - 0.98005998, 0.98003000, 0.97999001, 0.97992003, 0.97982001, & - 0.97965997, 0.97940999, 0.97902000, 0.97843999, 0.97758001, & - 0.97632003, 0.97457999, 0.97232002, 0.96954000, 0.96639001, & - 0.96313000, 0.96007001, 0.95743001, 0.95530999, 0.95372999, & - 0.95260000, 0.95185000, 0.95137000, 0.95106000, 0.97165000, & - 0.97162998, 0.97158998, 0.97153997, 0.97148001, 0.97135001, & - 0.97114998, 0.97083998, 0.97038001, 0.96965003, 0.96855003, & - 0.96693999, 0.96464998, 0.96148002, 0.95731997, 0.95212001, & - 0.94606000, 0.93948001, 0.93285000, 0.92672002, 0.92153001, & - 0.91742998, 0.91441000, 0.91232002, 0.91095001, 0.91009998, & - 0.96043998, 0.96042001, 0.96035999, 0.96026999, 0.96011001, & - 0.95989001, 0.95954001, 0.95898998, 0.95815003, 0.95684999, & - 0.95494002, 0.95213997, 0.94819999, 0.94284999, 0.93585998, & - 0.92719001, 0.91689998, 0.90534002, 0.89310002, 0.88099998, & - 0.87000000, 0.86080003, 0.85360003, 0.84850001, 0.84500003, & - 0.84280002, 0.94527000, 0.94520003, 0.94509000, 0.94493997, & - 0.94467002, 0.94428003, 0.94363999, 0.94266999, 0.94119000, & - 0.93896997, 0.93572998, 0.93109000, 0.92467999, 0.91613001, & - 0.90521002, 0.89170003, 0.87580001, 0.85769999, 0.83819997, & - 0.81809998, 0.79869998, 0.78139997, 0.76719999, 0.75660002, & - 0.74909997, 0.74430001, 0.92462999, 0.92449999, 0.92431998, & - 0.92404002, 0.92356998, 0.92286998, 0.92176998, 0.92009997, & - 0.91755998, 0.91386002, 0.90853000, 0.90110999, 0.89109999, & - 0.87809998, 0.86180001, 0.84200001, 0.81889999, 0.79310000, & - 0.76520002, 0.73660004, 0.70819998, 0.68220001, 0.65990001, & - 0.64230001, 0.62979996, 0.62180001, 0.89709997, 0.89690000, & - 0.89660001, 0.89609998, 0.89530003, 0.89410001, 0.89219999, & - 0.88929999, 0.88510001, 0.87910002, 0.87070000, 0.85930002, & - 0.84430003, 0.82520002, 0.80190003, 0.77420002, 0.74280000, & - 0.70840001, 0.67250001, 0.63620001, 0.60109997, 0.56920004, & - 0.54190004, 0.52030003, 0.50510001, 0.49519998, 0.86180001, & - 0.86140001, 0.86080003, 0.85990000, 0.85860002, 0.85640001, & - 0.85329998, 0.84860003, 0.84189999, 0.83249998, 0.81970000, & - 0.80290002, 0.78139997, 0.75489998, 0.72290003, 0.68620002, & - 0.64559996, 0.60290003, 0.56000000, 0.51880002, 0.48110002, & - 0.44809997, 0.42119998, 0.40090001, 0.38679999, 0.37800002, & - 0.81800002, 0.81739998, 0.81639999, 0.81480002, 0.81250000, & - 0.80890000, 0.80379999, 0.79640001, 0.78610003, 0.77200001, & - 0.75380003, 0.73019999, 0.70070004, 0.66520000, 0.62380004, & - 0.57780004, 0.52869999, 0.47930002, 0.43199998, 0.38880002, & - 0.35140002, 0.32080001, 0.29699999, 0.27980000, 0.26789999, & - 0.25999999],[26,21]) - - real, dimension(26,21) :: oo2 = reshape([ & - 0.6531E-10, 0.6193E-10, 0.5658E-10, 0.4814E-10, 0.3482E-10, & - 0.1388E-10, -0.1889E-10, -0.6983E-10, -0.1481E-09, -0.2661E-09, & - -0.4394E-09, -0.6829E-09, -0.1004E-08, -0.1387E-08, -0.1788E-08, & - -0.2141E-08, -0.2400E-08, -0.2557E-08, -0.2630E-08, -0.2651E-08, & - -0.2654E-08, -0.2653E-08, -0.2653E-08, -0.2653E-08, -0.2653E-08, & - -0.2652E-08, 0.5926E-10, 0.5262E-10, 0.4212E-10, 0.2552E-10, & - -0.6492E-12, -0.4180E-10, -0.1062E-09, -0.2063E-09, -0.3601E-09, & - -0.5923E-09, -0.9330E-09, -0.1412E-08, -0.2043E-08, -0.2798E-08, & - -0.3588E-08, -0.4286E-08, -0.4796E-08, -0.5106E-08, -0.5249E-08, & - -0.5291E-08, -0.5296E-08, -0.5295E-08, -0.5294E-08, -0.5294E-08, & - -0.5293E-08, -0.5292E-08, -0.1646E-09, -0.1774E-09, -0.1977E-09, & - -0.2298E-09, -0.2805E-09, -0.3601E-09, -0.4847E-09, -0.6785E-09, & - -0.9762E-09, -0.1426E-08, -0.2086E-08, -0.3014E-08, -0.4239E-08, & - -0.5706E-08, -0.7244E-08, -0.8603E-08, -0.9599E-08, -0.1020E-07, & - -0.1048E-07, -0.1056E-07, -0.1057E-07, -0.1057E-07, -0.1057E-07, & - -0.1056E-07, -0.1056E-07, -0.1056E-07, -0.1454E-08, -0.1478E-08, & - -0.1516E-08, -0.1576E-08, -0.1671E-08, -0.1820E-08, -0.2053E-08, & - -0.2416E-08, -0.2973E-08, -0.3816E-08, -0.5054E-08, -0.6799E-08, & - -0.9104E-08, -0.1187E-07, -0.1479E-07, -0.1737E-07, -0.1927E-07, & - -0.2043E-07, -0.2096E-07, -0.2110E-07, -0.2111E-07, -0.2110E-07, & - -0.2109E-07, -0.2109E-07, -0.2108E-07, -0.2108E-07, -0.7376E-08, & - -0.7416E-08, -0.7481E-08, -0.7579E-08, -0.7740E-08, -0.7993E-08, & - -0.8389E-08, -0.9000E-08, -0.1014E-07, -0.1159E-07, -0.1373E-07, & - -0.1675E-07, -0.2075E-07, -0.2564E-07, -0.3083E-07, -0.3548E-07, & - -0.3892E-07, -0.4103E-07, -0.4198E-07, -0.4221E-07, -0.4219E-07, & - -0.4215E-07, -0.4212E-07, -0.4210E-07, -0.4209E-07, -0.4208E-07, & - -0.2968E-07, -0.2985E-07, -0.2995E-07, -0.3009E-07, -0.3032E-07, & - -0.3068E-07, -0.3140E-07, -0.3243E-07, -0.3421E-07, -0.3654E-07, & - -0.3971E-07, -0.4450E-07, -0.5096E-07, -0.5866E-07, -0.6671E-07, & - -0.7410E-07, -0.7954E-07, -0.8293E-07, -0.8440E-07, -0.8462E-07, & - -0.8445E-07, -0.8430E-07, -0.8420E-07, -0.8413E-07, -0.8409E-07, & - -0.8406E-07, -0.1071E-06, -0.1071E-06, -0.1072E-06, -0.1074E-06, & - -0.1076E-06, -0.1081E-06, -0.1089E-06, -0.1100E-06, -0.1121E-06, & - -0.1143E-06, -0.1178E-06, -0.1235E-06, -0.1307E-06, -0.1398E-06, & - -0.1497E-06, -0.1590E-06, -0.1661E-06, -0.1697E-06, -0.1710E-06, & - -0.1705E-06, -0.1696E-06, -0.1690E-06, -0.1686E-06, -0.1684E-06, & - -0.1682E-06, -0.1681E-06, -0.3584E-06, -0.3584E-06, -0.3583E-06, & - -0.3581E-06, -0.3582E-06, -0.3580E-06, -0.3577E-06, -0.3574E-06, & - -0.3569E-06, -0.3559E-06, -0.3546E-06, -0.3538E-06, -0.3520E-06, & - -0.3516E-06, -0.3519E-06, -0.3537E-06, -0.3540E-06, -0.3531E-06, & - -0.3513E-06, -0.3466E-06, -0.3428E-06, -0.3403E-06, -0.3388E-06, & - -0.3379E-06, -0.3373E-06, -0.3369E-06, -0.1125E-05, -0.1124E-05, & - -0.1123E-05, -0.1122E-05, -0.1120E-05, -0.1117E-05, -0.1112E-05, & - -0.1104E-05, -0.1092E-05, -0.1074E-05, -0.1049E-05, -0.1014E-05, & - -0.9671E-06, -0.9148E-06, -0.8607E-06, -0.8142E-06, -0.7780E-06, & - -0.7531E-06, -0.7326E-06, -0.7155E-06, -0.7013E-06, -0.6919E-06, & - -0.6858E-06, -0.6820E-06, -0.6797E-06, -0.6784E-06, -0.3289E-05, & - -0.3287E-05, -0.3283E-05, -0.3278E-05, -0.3270E-05, -0.3257E-05, & - -0.3236E-05, -0.3205E-05, -0.3156E-05, -0.3083E-05, -0.2976E-05, & - -0.2827E-05, -0.2630E-05, -0.2398E-05, -0.2154E-05, -0.1935E-05, & - -0.1763E-05, -0.1645E-05, -0.1562E-05, -0.1501E-05, -0.1458E-05, & - -0.1427E-05, -0.1406E-05, -0.1393E-05, -0.1383E-05, -0.1378E-05, & - -0.8760E-05, -0.8753E-05, -0.8744E-05, -0.8729E-05, -0.8704E-05, & - -0.8667E-05, -0.8607E-05, -0.8516E-05, -0.8375E-05, -0.8159E-05, & - -0.7847E-05, -0.7407E-05, -0.6825E-05, -0.6122E-05, -0.5364E-05, & - -0.4658E-05, -0.4092E-05, -0.3690E-05, -0.3416E-05, -0.3223E-05, & - -0.3084E-05, -0.2991E-05, -0.2928E-05, -0.2889E-05, -0.2862E-05, & - -0.2843E-05, -0.2070E-04, -0.2069E-04, -0.2067E-04, -0.2063E-04, & - -0.2058E-04, -0.2049E-04, -0.2035E-04, -0.2014E-04, -0.1981E-04, & - -0.1932E-04, -0.1860E-04, -0.1759E-04, -0.1624E-04, -0.1459E-04, & - -0.1276E-04, -0.1099E-04, -0.9512E-05, -0.8411E-05, -0.7637E-05, & - -0.7079E-05, -0.6678E-05, -0.6399E-05, -0.6206E-05, -0.6080E-05, & - -0.5993E-05, -0.5944E-05, -0.4259E-04, -0.4256E-04, -0.4252E-04, & - -0.4245E-04, -0.4235E-04, -0.4218E-04, -0.4192E-04, -0.4151E-04, & - -0.4090E-04, -0.3998E-04, -0.3864E-04, -0.3676E-04, -0.3429E-04, & - -0.3125E-04, -0.2785E-04, -0.2444E-04, -0.2142E-04, -0.1902E-04, & - -0.1719E-04, -0.1581E-04, -0.1476E-04, -0.1398E-04, -0.1344E-04, & - -0.1307E-04, -0.1283E-04, -0.1269E-04, -0.7691E-04, -0.7686E-04, & - -0.7679E-04, -0.7667E-04, -0.7649E-04, -0.7620E-04, -0.7576E-04, & - -0.7508E-04, -0.7405E-04, -0.7253E-04, -0.7038E-04, -0.6744E-04, & - -0.6369E-04, -0.5923E-04, -0.5435E-04, -0.4948E-04, -0.4502E-04, & - -0.4118E-04, -0.3795E-04, -0.3517E-04, -0.3284E-04, -0.3099E-04, & - -0.2961E-04, -0.2861E-04, -0.2795E-04, -0.2759E-04, -0.1264E-03, & - -0.1264E-03, -0.1262E-03, -0.1260E-03, -0.1257E-03, -0.1253E-03, & - -0.1245E-03, -0.1234E-03, -0.1218E-03, -0.1194E-03, -0.1162E-03, & - -0.1120E-03, -0.1069E-03, -0.1013E-03, -0.9573E-04, -0.9067E-04, & - -0.8640E-04, -0.8276E-04, -0.7926E-04, -0.7553E-04, -0.7173E-04, & - -0.6824E-04, -0.6533E-04, -0.6310E-04, -0.6158E-04, -0.6078E-04, & - -0.1957E-03, -0.1956E-03, -0.1953E-03, -0.1950E-03, -0.1945E-03, & - -0.1937E-03, -0.1925E-03, -0.1907E-03, -0.1881E-03, -0.1845E-03, & - -0.1798E-03, -0.1742E-03, -0.1680E-03, -0.1620E-03, -0.1570E-03, & - -0.1538E-03, -0.1525E-03, -0.1525E-03, -0.1524E-03, -0.1510E-03, & - -0.1481E-03, -0.1441E-03, -0.1399E-03, -0.1363E-03, -0.1338E-03, & - -0.1326E-03, -0.2895E-03, -0.2893E-03, -0.2889E-03, -0.2883E-03, & - -0.2874E-03, -0.2860E-03, -0.2840E-03, -0.2811E-03, -0.2770E-03, & - -0.2718E-03, -0.2654E-03, -0.2585E-03, -0.2520E-03, -0.2473E-03, & - -0.2455E-03, -0.2474E-03, -0.2526E-03, -0.2601E-03, -0.2680E-03, & - -0.2746E-03, -0.2786E-03, -0.2795E-03, -0.2780E-03, -0.2758E-03, & - -0.2743E-03, -0.2742E-03, -0.4107E-03, -0.4103E-03, -0.4096E-03, & - -0.4086E-03, -0.4070E-03, -0.4047E-03, -0.4013E-03, -0.3966E-03, & - -0.3906E-03, -0.3833E-03, -0.3754E-03, -0.3683E-03, -0.3635E-03, & - -0.3631E-03, -0.3682E-03, -0.3793E-03, -0.3955E-03, -0.4147E-03, & - -0.4344E-03, -0.4528E-03, -0.4688E-03, -0.4814E-03, -0.4904E-03, & - -0.4969E-03, -0.5030E-03, -0.5088E-03, -0.5588E-03, -0.5580E-03, & - -0.5567E-03, -0.5549E-03, -0.5521E-03, -0.5481E-03, -0.5427E-03, & - -0.5355E-03, -0.5269E-03, -0.5176E-03, -0.5091E-03, -0.5034E-03, & - -0.5029E-03, -0.5098E-03, -0.5253E-03, -0.5495E-03, -0.5805E-03, & - -0.6149E-03, -0.6486E-03, -0.6789E-03, -0.7052E-03, -0.7282E-03, & - -0.7488E-03, -0.7681E-03, -0.7863E-03, -0.8013E-03, -0.7300E-03, & - -0.7285E-03, -0.7263E-03, -0.7229E-03, -0.7181E-03, -0.7115E-03, & - -0.7029E-03, -0.6924E-03, -0.6810E-03, -0.6701E-03, -0.6621E-03, & - -0.6594E-03, -0.6647E-03, -0.6800E-03, -0.7065E-03, -0.7439E-03, & - -0.7897E-03, -0.8384E-03, -0.8838E-03, -0.9214E-03, -0.9506E-03, & - -0.9739E-03, -0.9953E-03, -0.1017E-02, -0.1038E-02, -0.1054E-02, & - -0.9199E-03, -0.9171E-03, -0.9130E-03, -0.9071E-03, -0.8990E-03, & - -0.8885E-03, -0.8756E-03, -0.8613E-03, -0.8471E-03, -0.8354E-03, & - -0.8286E-03, -0.8290E-03, -0.8390E-03, -0.8603E-03, -0.8938E-03, & - -0.9383E-03, -0.9899E-03, -0.1042E-02, -0.1089E-02, -0.1124E-02, & - -0.1148E-02, -0.1163E-02, -0.1175E-02, -0.1186E-02, -0.1196E-02, & - -0.1202E-02],[26,21]) - - real, dimension(26,21) :: oo3 = reshape([ & - -0.2438E-10, -0.2436E-10, -0.2433E-10, -0.2428E-10, -0.2419E-10, & - -0.2406E-10, -0.2385E-10, -0.2353E-10, -0.2304E-10, -0.2232E-10, & - -0.2127E-10, -0.1985E-10, -0.1807E-10, -0.1610E-10, -0.1429E-10, & - -0.1295E-10, -0.1220E-10, -0.1189E-10, -0.1188E-10, -0.1193E-10, & - -0.1195E-10, -0.1195E-10, -0.1195E-10, -0.1195E-10, -0.1195E-10, & - -0.1194E-10, -0.4826E-10, -0.4822E-10, -0.4815E-10, -0.4805E-10, & - -0.4788E-10, -0.4762E-10, -0.4722E-10, -0.4659E-10, -0.4564E-10, & - -0.4421E-10, -0.4216E-10, -0.3937E-10, -0.3587E-10, -0.3200E-10, & - -0.2843E-10, -0.2581E-10, -0.2432E-10, -0.2372E-10, -0.2369E-10, & - -0.2380E-10, -0.2384E-10, -0.2384E-10, -0.2384E-10, -0.2384E-10, & - -0.2383E-10, -0.2383E-10, -0.9474E-10, -0.9466E-10, -0.9453E-10, & - -0.9433E-10, -0.9401E-10, -0.9351E-10, -0.9273E-10, -0.9153E-10, & - -0.8969E-10, -0.8695E-10, -0.8300E-10, -0.7761E-10, -0.7085E-10, & - -0.6337E-10, -0.5645E-10, -0.5136E-10, -0.4845E-10, -0.4729E-10, & - -0.4725E-10, -0.4748E-10, -0.4755E-10, -0.4756E-10, -0.4756E-10, & - -0.4756E-10, -0.4755E-10, -0.4754E-10, -0.1828E-09, -0.1827E-09, & - -0.1825E-09, -0.1821E-09, -0.1815E-09, -0.1806E-09, -0.1791E-09, & - -0.1769E-09, -0.1735E-09, -0.1684E-09, -0.1611E-09, -0.1511E-09, & - -0.1385E-09, -0.1245E-09, -0.1115E-09, -0.1019E-09, -0.9640E-10, & - -0.9421E-10, -0.9417E-10, -0.9465E-10, -0.9482E-10, -0.9485E-10, & - -0.9485E-10, -0.9485E-10, -0.9484E-10, -0.9482E-10, -0.3406E-09, & - -0.3404E-09, -0.3400E-09, -0.3394E-09, -0.3385E-09, -0.3370E-09, & - -0.3348E-09, -0.3313E-09, -0.3224E-09, -0.3141E-09, -0.3019E-09, & - -0.2855E-09, -0.2648E-09, -0.2408E-09, -0.2181E-09, -0.2011E-09, & - -0.1912E-09, -0.1873E-09, -0.1875E-09, -0.1886E-09, -0.1890E-09, & - -0.1891E-09, -0.1891E-09, -0.1891E-09, -0.1891E-09, -0.1891E-09, & - -0.6223E-09, -0.6220E-09, -0.6215E-09, -0.6206E-09, -0.6192E-09, & - -0.6170E-09, -0.6121E-09, -0.6054E-09, -0.5933E-09, -0.5765E-09, & - -0.5597E-09, -0.5313E-09, -0.4958E-09, -0.4533E-09, -0.4200E-09, & - -0.3916E-09, -0.3771E-09, -0.3713E-09, -0.3725E-09, -0.3751E-09, & - -0.3761E-09, -0.3765E-09, -0.3767E-09, -0.3768E-09, -0.3768E-09, & - -0.3768E-09, -0.1008E-08, -0.1008E-08, -0.1007E-08, -0.1008E-08, & - -0.1006E-08, -0.1004E-08, -0.9974E-09, -0.9899E-09, -0.9756E-09, & - -0.9606E-09, -0.9431E-09, -0.9251E-09, -0.8900E-09, -0.8405E-09, & - -0.7916E-09, -0.7585E-09, -0.7392E-09, -0.7317E-09, -0.7365E-09, & - -0.7436E-09, -0.7469E-09, -0.7483E-09, -0.7492E-09, -0.7497E-09, & - -0.7499E-09, -0.7499E-09, -0.1412E-08, -0.1414E-08, -0.1415E-08, & - -0.1416E-08, -0.1417E-08, -0.1417E-08, -0.1422E-08, -0.1430E-08, & - -0.1428E-08, -0.1434E-08, -0.1450E-08, -0.1470E-08, -0.1473E-08, & - -0.1464E-08, -0.1460E-08, -0.1439E-08, -0.1420E-08, -0.1437E-08, & - -0.1445E-08, -0.1466E-08, -0.1476E-08, -0.1481E-08, -0.1485E-08, & - -0.1487E-08, -0.1489E-08, -0.1489E-08, -0.1244E-08, -0.1247E-08, & - -0.1253E-08, -0.1261E-08, -0.1273E-08, -0.1297E-08, -0.1326E-08, & - -0.1375E-08, -0.1446E-08, -0.1551E-08, -0.1694E-08, -0.1898E-08, & - -0.2112E-08, -0.2337E-08, -0.2542E-08, -0.2648E-08, -0.2702E-08, & - -0.2764E-08, -0.2814E-08, -0.2872E-08, -0.2892E-08, -0.2908E-08, & - -0.2924E-08, -0.2933E-08, -0.2939E-08, -0.2941E-08, 0.8485E-09, & - 0.8360E-09, 0.8143E-09, 0.7860E-09, 0.7404E-09, 0.6738E-09, & - 0.5603E-09, 0.3874E-09, 0.1156E-09, -0.2663E-09, -0.7913E-09, & - -0.1519E-08, -0.2399E-08, -0.3341E-08, -0.4168E-08, -0.4747E-08, & - -0.5049E-08, -0.5243E-08, -0.5384E-08, -0.5508E-08, -0.5603E-08, & - -0.5660E-08, -0.5671E-08, -0.5710E-08, -0.5741E-08, -0.5752E-08, & - 0.6343E-08, 0.6312E-08, 0.6269E-08, 0.6188E-08, 0.6068E-08, & - 0.5895E-08, 0.5604E-08, 0.5171E-08, 0.4499E-08, 0.3515E-08, & - 0.2144E-08, 0.2914E-09, -0.2002E-08, -0.4467E-08, -0.6703E-08, & - -0.8301E-08, -0.9214E-08, -0.9691E-08, -0.1008E-07, -0.1038E-07, & - -0.1060E-07, -0.1075E-07, -0.1084E-07, -0.1089E-07, -0.1100E-07, & - -0.1104E-07, 0.1201E-07, 0.1194E-07, 0.1186E-07, 0.1171E-07, & - 0.1148E-07, 0.1113E-07, 0.1061E-07, 0.9807E-08, 0.8469E-08, & - 0.6549E-08, 0.3990E-08, 0.5675E-09, -0.3646E-08, -0.8154E-08, & - -0.1215E-07, -0.1499E-07, -0.1659E-07, -0.1751E-07, -0.1816E-07, & - -0.1891E-07, -0.1942E-07, -0.1980E-07, -0.2009E-07, -0.2037E-07, & - -0.2066E-07, -0.2069E-07, 0.2838E-08, 0.2753E-08, 0.2604E-08, & - 0.2389E-08, 0.2021E-08, 0.1466E-08, 0.6106E-09, -0.7345E-09, & - -0.2720E-08, -0.5479E-08, -0.9282E-08, -0.1405E-07, -0.1931E-07, & - -0.2436E-07, -0.2821E-07, -0.3024E-07, -0.3101E-07, -0.3122E-07, & - -0.3179E-07, -0.3279E-07, -0.3393E-07, -0.3472E-07, -0.3549E-07, & - -0.3616E-07, -0.3660E-07, -0.3661E-07, -0.4024E-07, -0.4040E-07, & - -0.4067E-07, -0.4109E-07, -0.4165E-07, -0.4265E-07, -0.4398E-07, & - -0.4604E-07, -0.4904E-07, -0.5312E-07, -0.5810E-07, -0.6359E-07, & - -0.6852E-07, -0.7128E-07, -0.7073E-07, -0.6702E-07, -0.6162E-07, & - -0.5693E-07, -0.5453E-07, -0.5420E-07, -0.5508E-07, -0.5626E-07, & - -0.5773E-07, -0.5907E-07, -0.6002E-07, -0.6012E-07, -0.1257E-06, & - -0.1260E-06, -0.1264E-06, -0.1271E-06, -0.1281E-06, -0.1298E-06, & - -0.1321E-06, -0.1356E-06, -0.1401E-06, -0.1460E-06, -0.1525E-06, & - -0.1584E-06, -0.1618E-06, -0.1604E-06, -0.1530E-06, -0.1399E-06, & - -0.1235E-06, -0.1076E-06, -0.9500E-07, -0.8711E-07, -0.8290E-07, & - -0.8149E-07, -0.8208E-07, -0.8351E-07, -0.8431E-07, -0.8399E-07, & - -0.2566E-06, -0.2571E-06, -0.2579E-06, -0.2591E-06, -0.2609E-06, & - -0.2636E-06, -0.2676E-06, -0.2731E-06, -0.2801E-06, -0.2883E-06, & - -0.2965E-06, -0.3020E-06, -0.3021E-06, -0.2945E-06, -0.2791E-06, & - -0.2564E-06, -0.2287E-06, -0.1981E-06, -0.1679E-06, -0.1403E-06, & - -0.1182E-06, -0.1027E-06, -0.9394E-07, -0.8925E-07, -0.8556E-07, & - -0.8183E-07, -0.4298E-06, -0.4307E-06, -0.4321E-06, -0.4344E-06, & - -0.4375E-06, -0.4423E-06, -0.4490E-06, -0.4577E-06, -0.4681E-06, & - -0.4787E-06, -0.4869E-06, -0.4893E-06, -0.4828E-06, -0.4666E-06, & - -0.4426E-06, -0.4117E-06, -0.3755E-06, -0.3324E-06, -0.2819E-06, & - -0.2248E-06, -0.1657E-06, -0.1136E-06, -0.7270E-07, -0.4122E-07, & - -0.1674E-07, 0.1930E-08, -0.6184E-06, -0.6202E-06, -0.6229E-06, & - -0.6267E-06, -0.6323E-06, -0.6402E-06, -0.6507E-06, -0.6632E-06, & - -0.6761E-06, -0.6863E-06, -0.6894E-06, -0.6821E-06, -0.6634E-06, & - -0.6357E-06, -0.6027E-06, -0.5669E-06, -0.5274E-06, -0.4785E-06, & - -0.4109E-06, -0.3221E-06, -0.2170E-06, -0.1071E-06, -0.3947E-08, & - 0.8779E-07, 0.1638E-06, 0.2167E-06, -0.7657E-06, -0.7687E-06, & - -0.7732E-06, -0.7797E-06, -0.7887E-06, -0.8005E-06, -0.8145E-06, & - -0.8284E-06, -0.8387E-06, -0.8399E-06, -0.8281E-06, -0.8021E-06, & - -0.7643E-06, -0.7187E-06, -0.6707E-06, -0.6239E-06, -0.5790E-06, & - -0.5280E-06, -0.4555E-06, -0.3459E-06, -0.1997E-06, -0.2991E-07, & - 0.1456E-06, 0.3143E-06, 0.4525E-06, 0.5434E-06, -0.8153E-06, & - -0.8204E-06, -0.8277E-06, -0.8378E-06, -0.8508E-06, -0.8658E-06, & - -0.8801E-06, -0.8894E-06, -0.8879E-06, -0.8703E-06, -0.8350E-06, & - -0.7834E-06, -0.7177E-06, -0.6419E-06, -0.5591E-06, -0.4748E-06, & - -0.3947E-06, -0.3174E-06, -0.2283E-06, -0.1066E-06, 0.6227E-07, & - 0.2743E-06, 0.5083E-06, 0.7281E-06, 0.8949E-06, 0.9990E-06, & - -0.7552E-06, -0.7636E-06, -0.7752E-06, -0.7901E-06, -0.8067E-06, & - -0.8222E-06, -0.8311E-06, -0.8267E-06, -0.8040E-06, -0.7602E-06, & - -0.6956E-06, -0.6105E-06, -0.5054E-06, -0.3795E-06, -0.2328E-06, & - -0.7013E-07, 0.1003E-06, 0.2672E-06, 0.4283E-06, 0.5938E-06, & - 0.7847E-06, 0.1017E-05, 0.1270E-05, 0.1500E-05, 0.1669E-05, & - 0.1787E-05],[26,21]) - - real, dimension(26,31) :: h11 = reshape([ & - 0.99993843, 0.99993837, 0.99993825, 0.99993813, 0.99993789, & - 0.99993753, 0.99993700, 0.99993622, 0.99993503, 0.99993336, & - 0.99993110, 0.99992824, 0.99992472, 0.99992090, 0.99991709, & - 0.99991363, 0.99991077, 0.99990851, 0.99990678, 0.99990559, & - 0.99990469, 0.99990410, 0.99990374, 0.99990344, 0.99990326, & - 0.99990320, 0.99990183, 0.99990171, 0.99990153, 0.99990118, & - 0.99990070, 0.99989992, 0.99989867, 0.99989682, 0.99989408, & - 0.99989021, 0.99988490, 0.99987793, 0.99986941, 0.99985969, & - 0.99984968, 0.99984020, 0.99983180, 0.99982500, 0.99981970, & - 0.99981570, 0.99981278, 0.99981070, 0.99980932, 0.99980831, & - 0.99980772, 0.99980718, 0.99985260, 0.99985230, 0.99985188, & - 0.99985123, 0.99985009, 0.99984848, 0.99984592, 0.99984211, & - 0.99983650, 0.99982840, 0.99981719, 0.99980247, 0.99978399, & - 0.99976218, 0.99973857, 0.99971467, 0.99969262, 0.99967349, & - 0.99965781, 0.99964547, 0.99963617, 0.99962938, 0.99962449, & - 0.99962109, 0.99961871, 0.99961710, 0.99979079, 0.99979031, & - 0.99978942, 0.99978811, 0.99978602, 0.99978292, 0.99977797, & - 0.99977070, 0.99975997, 0.99974459, 0.99972337, 0.99969512, & - 0.99965900, 0.99961531, 0.99956548, 0.99951237, 0.99945968, & - 0.99941093, 0.99936831, 0.99933308, 0.99930513, 0.99928379, & - 0.99926788, 0.99925637, 0.99924821, 0.99924242, 0.99971771, & - 0.99971670, 0.99971509, 0.99971271, 0.99970889, 0.99970299, & - 0.99969423, 0.99968100, 0.99966192, 0.99963468, 0.99959719, & - 0.99954712, 0.99948251, 0.99940270, 0.99930853, 0.99920303, & - 0.99909151, 0.99897999, 0.99887598, 0.99878299, 0.99870503, & - 0.99864298, 0.99859399, 0.99855798, 0.99853098, 0.99851102, & - 0.99963379, 0.99963200, 0.99962920, 0.99962479, 0.99961799, & - 0.99960762, 0.99959219, 0.99956948, 0.99953687, 0.99949121, & - 0.99942869, 0.99934530, 0.99923742, 0.99910218, 0.99893898, & - 0.99874902, 0.99853700, 0.99831200, 0.99808502, 0.99786699, & - 0.99766999, 0.99750000, 0.99736100, 0.99725199, 0.99716800, & - 0.99710602, 0.99953848, 0.99953520, 0.99953020, 0.99952239, & - 0.99951053, 0.99949282, 0.99946660, 0.99942881, 0.99937540, & - 0.99930137, 0.99920130, 0.99906880, 0.99889702, 0.99868101, & - 0.99841601, 0.99809903, 0.99773198, 0.99732101, 0.99687898, & - 0.99642301, 0.99597800, 0.99556601, 0.99520397, 0.99489999, & - 0.99465698, 0.99446702, 0.99942899, 0.99942321, 0.99941432, & - 0.99940068, 0.99938041, 0.99935049, 0.99930722, 0.99924588, & - 0.99916059, 0.99904430, 0.99888903, 0.99868500, 0.99842298, & - 0.99809098, 0.99768001, 0.99717999, 0.99658400, 0.99589097, & - 0.99510998, 0.99425799, 0.99336702, 0.99247700, 0.99163198, & - 0.99087203, 0.99022102, 0.98969001, 0.99930018, 0.99928987, & - 0.99927431, 0.99925101, 0.99921662, 0.99916708, 0.99909681, & - 0.99899900, 0.99886602, 0.99868703, 0.99845201, 0.99814498, & - 0.99775398, 0.99725902, 0.99664098, 0.99588197, 0.99496001, & - 0.99386197, 0.99257898, 0.99111998, 0.98951000, 0.98780000, & - 0.98606002, 0.98436999, 0.98281002, 0.98144001, 0.99914461, & - 0.99912637, 0.99909937, 0.99905968, 0.99900270, 0.99892199, & - 0.99880999, 0.99865800, 0.99845397, 0.99818403, 0.99783301, & - 0.99738002, 0.99680400, 0.99607700, 0.99516898, 0.99404502, & - 0.99266702, 0.99099803, 0.98900002, 0.98667002, 0.98399001, & - 0.98100001, 0.97779000, 0.97447002, 0.97118002, 0.96805000, & - 0.99895102, 0.99892002, 0.99887401, 0.99880803, 0.99871498, & - 0.99858701, 0.99841303, 0.99818099, 0.99787402, 0.99747300, & - 0.99695599, 0.99629498, 0.99545598, 0.99440002, 0.99308002, & - 0.99144298, 0.98943001, 0.98695999, 0.98398000, 0.98041999, & - 0.97622001, 0.97140002, 0.96600002, 0.96012998, 0.95393997, & - 0.94762999, 0.99870503, 0.99865198, 0.99857497, 0.99846900, & - 0.99832201, 0.99812400, 0.99786001, 0.99751103, 0.99705601, & - 0.99646801, 0.99571502, 0.99475700, 0.99354500, 0.99202299, & - 0.99012297, 0.98776001, 0.98484999, 0.98128998, 0.97693998, & - 0.97170001, 0.96543998, 0.95810002, 0.94963002, 0.94006002, & - 0.92948997, 0.91812998, 0.99838799, 0.99830002, 0.99817699, & - 0.99800998, 0.99778402, 0.99748403, 0.99708802, 0.99657297, & - 0.99590701, 0.99505299, 0.99396503, 0.99258602, 0.99084800, & - 0.98866999, 0.98594999, 0.98258001, 0.97842997, 0.97333002, & - 0.96711999, 0.95960999, 0.95059001, 0.93984997, 0.92720997, & - 0.91254002, 0.89579999, 0.87730002, 0.99797899, 0.99783802, & - 0.99764699, 0.99738997, 0.99704897, 0.99660099, 0.99601799, & - 0.99526602, 0.99430102, 0.99307102, 0.99150997, 0.98953998, & - 0.98706001, 0.98395997, 0.98009998, 0.97533000, 0.96945000, & - 0.96227002, 0.95353001, 0.94295001, 0.93019998, 0.91491997, & - 0.89670002, 0.87540001, 0.85070002, 0.82290000, 0.99745202, & - 0.99723297, 0.99694097, 0.99655402, 0.99604702, 0.99538797, & - 0.99453998, 0.99345201, 0.99206603, 0.99030602, 0.98808002, & - 0.98527998, 0.98176998, 0.97737998, 0.97194999, 0.96524000, & - 0.95703000, 0.94700998, 0.93484998, 0.92012000, 0.90235001, & - 0.88110000, 0.85580003, 0.82609999, 0.79189998, 0.75319999, & - 0.99677002, 0.99643701, 0.99599802, 0.99542397, 0.99468100, & - 0.99372399, 0.99250001, 0.99094099, 0.98896003, 0.98645997, & - 0.98329997, 0.97934997, 0.97439998, 0.96825999, 0.96066999, & - 0.95135999, 0.93998998, 0.92614001, 0.90934002, 0.88900000, & - 0.86470002, 0.83570004, 0.80170000, 0.76240003, 0.71759999, & - 0.66789997, 0.99587703, 0.99537897, 0.99473000, 0.99389100, & - 0.99281400, 0.99143797, 0.98969001, 0.98746002, 0.98465002, & - 0.98111999, 0.97667003, 0.97112000, 0.96423000, 0.95570999, & - 0.94523001, 0.93241000, 0.91676998, 0.89779997, 0.87479997, & - 0.84740001, 0.81480002, 0.77670002, 0.73269999, 0.68299997, & - 0.62800002, 0.56879997, 0.99469399, 0.99396098, 0.99301600, & - 0.99180400, 0.99025702, 0.98829001, 0.98580003, 0.98264998, & - 0.97869003, 0.97372001, 0.96750998, 0.95981002, 0.95029002, & - 0.93857002, 0.92421001, 0.90667999, 0.88540000, 0.85969996, & - 0.82900000, 0.79280001, 0.75059998, 0.70239997, 0.64840001, & - 0.58930004, 0.52639997, 0.46160001, 0.99311298, 0.99204701, & - 0.99068397, 0.98895001, 0.98673999, 0.98395002, 0.98041999, & - 0.97599000, 0.97044003, 0.96353000, 0.95494002, 0.94433999, & - 0.93129998, 0.91531003, 0.89579999, 0.87199998, 0.84350002, & - 0.80949998, 0.76960003, 0.72360003, 0.67129999, 0.61350000, & - 0.55110002, 0.48589998, 0.41970003, 0.35450000, 0.99097902, & - 0.98944002, 0.98749000, 0.98501998, 0.98189002, 0.97794998, & - 0.97299999, 0.96682000, 0.95911002, 0.94957000, 0.93779999, & - 0.92332000, 0.90557003, 0.88389999, 0.85769999, 0.82620001, & - 0.78890002, 0.74540001, 0.69550002, 0.63960004, 0.57840002, & - 0.51349998, 0.44669998, 0.38020003, 0.31559998, 0.25370002, & - 0.98807001, 0.98588002, 0.98311001, 0.97961003, 0.97521001, & - 0.96968001, 0.96279001, 0.95423001, 0.94363999, 0.93058997, & - 0.91453999, 0.89490002, 0.87099999, 0.84210002, 0.80760002, & - 0.76700002, 0.71990001, 0.66649997, 0.60720003, 0.54330003, & - 0.47659999, 0.40910000, 0.34280002, 0.27920002, 0.21899998, & - 0.16280001, 0.98409998, 0.98098999, 0.97707999, 0.97215003, & - 0.96600002, 0.95832998, 0.94881999, 0.93708003, 0.92260998, & - 0.90486002, 0.88319999, 0.85680002, 0.82520002, 0.78759998, & - 0.74360001, 0.69309998, 0.63639998, 0.57420003, 0.50819999, & - 0.44029999, 0.37279999, 0.30750000, 0.24529999, 0.18699998, & - 0.13370001, 0.08740002, 0.97864997, 0.97425997, 0.96877003, & - 0.96191001, 0.95337999, 0.94283003, 0.92980999, 0.91380000, & - 0.89419997, 0.87029999, 0.84130001, 0.80680001, 0.76600003, & - 0.71869999, 0.66490000, 0.60510004, 0.54060000, 0.47310001, & - 0.40490001, 0.33800000, 0.27389997, 0.21340001, 0.15750003, & - 0.10769999, 0.06610000, 0.03479999, 0.97114998, 0.96502000, & - 0.95738000, 0.94791001, 0.93620998, 0.92179000, 0.90407002, & - 0.88239998, 0.85609996, 0.82449996, 0.78689998, 0.74290001, & - 0.69220001, 0.63530004, 0.57290000, 0.50650001, 0.43820000, & - 0.37029999, 0.30440003, 0.24190003, 0.18339998, 0.13040000, & - 0.08469999, 0.04830003, 0.02280003, 0.00809997, 0.96086001, & - 0.95236999, 0.94186002, 0.92887998, 0.91292000, 0.89330000, & - 0.86949998, 0.84060001, 0.80610001, 0.76530004, 0.71799999, & - 0.66420001, 0.60440004, 0.53970003, 0.47200000, 0.40359998, & - 0.33639997, 0.27200001, 0.21130002, 0.15530002, 0.10570002, & - 0.06449997, 0.03369999, 0.01400000, 0.00400001, 0.00059998, & - 0.94682997, 0.93515998, 0.92079002, 0.90311998, 0.88150001, & - 0.85530001, 0.82370001, 0.78610003, 0.74220002, 0.69159997, & - 0.63470000, 0.57220000, 0.50580001, 0.43750000, 0.36940002, & - 0.30350000, 0.24080002, 0.18220001, 0.12910002, 0.08350003, & - 0.04740000, 0.02219999, 0.00779998, 0.00169998, 0.00010002, & - 0.00000000, 0.92777002, 0.91184998, 0.89230001, 0.86849999, & - 0.83969998, 0.80519998, 0.76459998, 0.71730000, 0.66359997, & - 0.60380000, 0.53909999, 0.47149998, 0.40310001, 0.33590001, & - 0.27139997, 0.21069998, 0.15460002, 0.10500002, 0.06389999, & - 0.03320003, 0.01370001, 0.00389999, 0.00050002, 0.00000000, & - 0.00000000, 0.00000000, 0.90200001, 0.88040000, 0.85420001, & - 0.82270002, 0.78530002, 0.74140000, 0.69089997, 0.63400000, & - 0.57169998, 0.50529999, 0.43699998, 0.36900002, 0.30299997, & - 0.24040002, 0.18180001, 0.12870002, 0.08310002, 0.04710001, & - 0.02200001, 0.00770003, 0.00169998, 0.00010002, 0.00000000, & - 0.00000000, 0.00000000, 0.00000000, 0.86739999, 0.83859998, & - 0.80430001, 0.76370001, 0.71650004, 0.66280001, 0.60310000, & - 0.53859997, 0.47100002, 0.40259999, 0.33550000, 0.27109998, & - 0.21039999, 0.15439999, 0.10479999, 0.06370002, 0.03310001, & - 0.01359999, 0.00389999, 0.00050002, 0.00000000, 0.00000000, & - 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.82169998, & - 0.78429997, 0.74049997, 0.69000000, 0.63330001, 0.57099998, & - 0.50479996, 0.43660003, 0.36860001, 0.30269998, 0.24010003, & - 0.18159997, 0.12860000, 0.08300000, 0.04699999, 0.02200001, & - 0.00770003, 0.00169998, 0.00010002, 0.00000000, 0.00000000, & - 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, & - 0.76270002, 0.71560001, 0.66200000, 0.60240000, 0.53799999, & - 0.47049999, 0.40219998, 0.33510000, 0.27079999, 0.21020001, & - 0.15420002, 0.10460001, 0.06360000, 0.03299999, 0.01359999, & - 0.00389999, 0.00050002, 0.00000000, 0.00000000, 0.00000000, & - 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, & - 0.00000000],[26,31]) - - real, dimension(26,31) :: h12 = reshape([ & - -0.2021E-06, -0.2017E-06, -0.2011E-06, -0.2001E-06, -0.1987E-06, & - -0.1964E-06, -0.1932E-06, -0.1885E-06, -0.1822E-06, -0.1742E-06, & - -0.1647E-06, -0.1548E-06, -0.1461E-06, -0.1402E-06, -0.1378E-06, & - -0.1383E-06, -0.1405E-06, -0.1431E-06, -0.1454E-06, -0.1472E-06, & - -0.1487E-06, -0.1496E-06, -0.1503E-06, -0.1508E-06, -0.1511E-06, & - -0.1513E-06, -0.3628E-06, -0.3620E-06, -0.3609E-06, -0.3592E-06, & - -0.3565E-06, -0.3526E-06, -0.3467E-06, -0.3385E-06, -0.3274E-06, & - -0.3134E-06, -0.2974E-06, -0.2808E-06, -0.2663E-06, -0.2569E-06, & - -0.2542E-06, -0.2577E-06, -0.2649E-06, -0.2731E-06, -0.2805E-06, & - -0.2866E-06, -0.2912E-06, -0.2947E-06, -0.2971E-06, -0.2989E-06, & - -0.3001E-06, -0.3009E-06, -0.5891E-06, -0.5878E-06, -0.5859E-06, & - -0.5829E-06, -0.5784E-06, -0.5717E-06, -0.5623E-06, -0.5493E-06, & - -0.5325E-06, -0.5121E-06, -0.4900E-06, -0.4683E-06, -0.4512E-06, & - -0.4428E-06, -0.4461E-06, -0.4608E-06, -0.4829E-06, -0.5072E-06, & - -0.5296E-06, -0.5485E-06, -0.5636E-06, -0.5749E-06, -0.5832E-06, & - -0.5892E-06, -0.5934E-06, -0.5966E-06, -0.8735E-06, -0.8713E-06, & - -0.8680E-06, -0.8631E-06, -0.8557E-06, -0.8451E-06, -0.8306E-06, & - -0.8114E-06, -0.7881E-06, -0.7619E-06, -0.7358E-06, -0.7142E-06, & - -0.7027E-06, -0.7076E-06, -0.7333E-06, -0.7793E-06, -0.8398E-06, & - -0.9057E-06, -0.9685E-06, -0.1024E-05, -0.1069E-05, -0.1105E-05, & - -0.1131E-05, -0.1151E-05, -0.1166E-05, -0.1176E-05, -0.1204E-05, & - -0.1201E-05, -0.1195E-05, -0.1187E-05, -0.1175E-05, -0.1158E-05, & - -0.1136E-05, -0.1109E-05, -0.1079E-05, -0.1048E-05, -0.1022E-05, & - -0.1008E-05, -0.1014E-05, -0.1051E-05, -0.1125E-05, -0.1237E-05, & - -0.1379E-05, -0.1537E-05, -0.1695E-05, -0.1842E-05, -0.1969E-05, & - -0.2074E-05, -0.2154E-05, -0.2216E-05, -0.2263E-05, -0.2299E-05, & - -0.1579E-05, -0.1572E-05, -0.1563E-05, -0.1549E-05, -0.1530E-05, & - -0.1504E-05, -0.1472E-05, -0.1436E-05, -0.1398E-05, -0.1364E-05, & - -0.1344E-05, -0.1347E-05, -0.1387E-05, -0.1478E-05, -0.1630E-05, & - -0.1850E-05, -0.2132E-05, -0.2460E-05, -0.2812E-05, -0.3160E-05, & - -0.3483E-05, -0.3763E-05, -0.3992E-05, -0.4175E-05, -0.4319E-05, & - -0.4430E-05, -0.2002E-05, -0.1991E-05, -0.1975E-05, -0.1953E-05, & - -0.1923E-05, -0.1886E-05, -0.1842E-05, -0.1796E-05, -0.1754E-05, & - -0.1725E-05, -0.1721E-05, -0.1758E-05, -0.1851E-05, -0.2019E-05, & - -0.2281E-05, -0.2652E-05, -0.3138E-05, -0.3733E-05, -0.4412E-05, & - -0.5136E-05, -0.5858E-05, -0.6531E-05, -0.7122E-05, -0.7619E-05, & - -0.8028E-05, -0.8352E-05, -0.2494E-05, -0.2476E-05, -0.2450E-05, & - -0.2415E-05, -0.2372E-05, -0.2322E-05, -0.2269E-05, -0.2219E-05, & - -0.2184E-05, -0.2177E-05, -0.2212E-05, -0.2306E-05, -0.2478E-05, & - -0.2752E-05, -0.3159E-05, -0.3728E-05, -0.4487E-05, -0.5449E-05, & - -0.6606E-05, -0.7922E-05, -0.9334E-05, -0.1076E-04, -0.1211E-04, & - -0.1333E-04, -0.1438E-04, -0.1526E-04, -0.3093E-05, -0.3063E-05, & - -0.3024E-05, -0.2975E-05, -0.2919E-05, -0.2861E-05, -0.2807E-05, & - -0.2770E-05, -0.2763E-05, -0.2801E-05, -0.2901E-05, -0.3083E-05, & - -0.3373E-05, -0.3802E-05, -0.4410E-05, -0.5244E-05, -0.6353E-05, & - -0.7786E-05, -0.9573E-05, -0.1171E-04, -0.1416E-04, -0.1682E-04, & - -0.1954E-04, -0.2217E-04, -0.2460E-04, -0.2674E-04, -0.3852E-05, & - -0.3808E-05, -0.3755E-05, -0.3694E-05, -0.3631E-05, -0.3576E-05, & - -0.3539E-05, -0.3535E-05, -0.3581E-05, -0.3694E-05, -0.3896E-05, & - -0.4214E-05, -0.4682E-05, -0.5343E-05, -0.6246E-05, -0.7451E-05, & - -0.9026E-05, -0.1106E-04, -0.1363E-04, -0.1682E-04, -0.2067E-04, & - -0.2509E-04, -0.2995E-04, -0.3497E-04, -0.3991E-04, -0.4454E-04, & - -0.4835E-05, -0.4776E-05, -0.4711E-05, -0.4645E-05, -0.4587E-05, & - -0.4552E-05, -0.4553E-05, -0.4609E-05, -0.4739E-05, -0.4969E-05, & - -0.5327E-05, -0.5851E-05, -0.6588E-05, -0.7594E-05, -0.8933E-05, & - -0.1067E-04, -0.1290E-04, -0.1574E-04, -0.1932E-04, -0.2381E-04, & - -0.2936E-04, -0.3605E-04, -0.4380E-04, -0.5238E-04, -0.6138E-04, & - -0.7042E-04, -0.6082E-05, -0.6011E-05, -0.5941E-05, -0.5882E-05, & - -0.5848E-05, -0.5856E-05, -0.5925E-05, -0.6077E-05, -0.6341E-05, & - -0.6748E-05, -0.7342E-05, -0.8175E-05, -0.9311E-05, -0.1082E-04, & - -0.1280E-04, -0.1532E-04, -0.1851E-04, -0.2249E-04, -0.2743E-04, & - -0.3355E-04, -0.4113E-04, -0.5049E-04, -0.6183E-04, -0.7513E-04, & - -0.9005E-04, -0.1062E-03, -0.7591E-05, -0.7516E-05, -0.7455E-05, & - -0.7425E-05, -0.7442E-05, -0.7529E-05, -0.7710E-05, -0.8016E-05, & - -0.8484E-05, -0.9161E-05, -0.1011E-04, -0.1140E-04, -0.1311E-04, & - -0.1536E-04, -0.1826E-04, -0.2193E-04, -0.2650E-04, -0.3212E-04, & - -0.3897E-04, -0.4729E-04, -0.5750E-04, -0.7012E-04, -0.8577E-04, & - -0.1049E-03, -0.1278E-03, -0.1540E-03, -0.9332E-05, -0.9272E-05, & - -0.9248E-05, -0.9279E-05, -0.9391E-05, -0.9609E-05, -0.9968E-05, & - -0.1051E-04, -0.1128E-04, -0.1236E-04, -0.1382E-04, -0.1577E-04, & - -0.1834E-04, -0.2166E-04, -0.2589E-04, -0.3119E-04, -0.3772E-04, & - -0.4564E-04, -0.5520E-04, -0.6673E-04, -0.8072E-04, -0.9787E-04, & - -0.1191E-03, -0.1455E-03, -0.1778E-03, -0.2163E-03, -0.1128E-04, & - -0.1127E-04, -0.1132E-04, -0.1147E-04, -0.1173E-04, -0.1216E-04, & - -0.1278E-04, -0.1367E-04, -0.1490E-04, -0.1655E-04, -0.1875E-04, & - -0.2166E-04, -0.2544E-04, -0.3028E-04, -0.3639E-04, -0.4395E-04, & - -0.5319E-04, -0.6438E-04, -0.7787E-04, -0.9417E-04, -0.1139E-03, & - -0.1378E-03, -0.1668E-03, -0.2021E-03, -0.2447E-03, -0.2951E-03, & - -0.1347E-04, -0.1355E-04, -0.1373E-04, -0.1406E-04, -0.1455E-04, & - -0.1528E-04, -0.1629E-04, -0.1768E-04, -0.1955E-04, -0.2203E-04, & - -0.2530E-04, -0.2955E-04, -0.3502E-04, -0.4195E-04, -0.5059E-04, & - -0.6126E-04, -0.7431E-04, -0.9019E-04, -0.1094E-03, -0.1327E-03, & - -0.1606E-03, -0.1939E-03, -0.2333E-03, -0.2790E-03, -0.3313E-03, & - -0.3899E-03, -0.1596E-04, -0.1620E-04, -0.1659E-04, -0.1717E-04, & - -0.1801E-04, -0.1916E-04, -0.2073E-04, -0.2283E-04, -0.2561E-04, & - -0.2927E-04, -0.3403E-04, -0.4014E-04, -0.4789E-04, -0.5761E-04, & - -0.6970E-04, -0.8466E-04, -0.1031E-03, -0.1256E-03, -0.1529E-03, & - -0.1858E-03, -0.2246E-03, -0.2695E-03, -0.3203E-03, -0.3757E-03, & - -0.4342E-03, -0.4948E-03, -0.1890E-04, -0.1936E-04, -0.2004E-04, & - -0.2100E-04, -0.2232E-04, -0.2408E-04, -0.2644E-04, -0.2955E-04, & - -0.3364E-04, -0.3894E-04, -0.4573E-04, -0.5434E-04, -0.6515E-04, & - -0.7867E-04, -0.9552E-04, -0.1164E-03, -0.1422E-03, -0.1737E-03, & - -0.2117E-03, -0.2564E-03, -0.3076E-03, -0.3641E-03, -0.4237E-03, & - -0.4839E-03, -0.5424E-03, -0.5983E-03, -0.2241E-04, -0.2321E-04, & - -0.2431E-04, -0.2580E-04, -0.2779E-04, -0.3043E-04, -0.3392E-04, & - -0.3849E-04, -0.4438E-04, -0.5192E-04, -0.6145E-04, -0.7343E-04, & - -0.8846E-04, -0.1072E-03, -0.1307E-03, -0.1596E-03, -0.1951E-03, & - -0.2378E-03, -0.2880E-03, -0.3449E-03, -0.4067E-03, -0.4703E-03, & - -0.5324E-03, -0.5902E-03, -0.6416E-03, -0.6846E-03, -0.2672E-04, & - -0.2797E-04, -0.2966E-04, -0.3191E-04, -0.3489E-04, -0.3880E-04, & - -0.4390E-04, -0.5046E-04, -0.5881E-04, -0.6936E-04, -0.8264E-04, & - -0.9931E-04, -0.1202E-03, -0.1462E-03, -0.1784E-03, -0.2177E-03, & - -0.2648E-03, -0.3196E-03, -0.3809E-03, -0.4463E-03, -0.5121E-03, & - -0.5750E-03, -0.6318E-03, -0.6794E-03, -0.7146E-03, -0.7332E-03, & - -0.3208E-04, -0.3399E-04, -0.3653E-04, -0.3989E-04, -0.4428E-04, & - -0.4997E-04, -0.5727E-04, -0.6653E-04, -0.7822E-04, -0.9294E-04, & - -0.1114E-03, -0.1346E-03, -0.1635E-03, -0.1990E-03, -0.2422E-03, & - -0.2933E-03, -0.3519E-03, -0.4163E-03, -0.4834E-03, -0.5495E-03, & - -0.6110E-03, -0.6648E-03, -0.7075E-03, -0.7344E-03, -0.7399E-03, & - -0.7182E-03, -0.3884E-04, -0.4171E-04, -0.4549E-04, -0.5042E-04, & - -0.5678E-04, -0.6488E-04, -0.7516E-04, -0.8813E-04, -0.1045E-03, & - -0.1250E-03, -0.1507E-03, -0.1826E-03, -0.2217E-03, -0.2687E-03, & - -0.3237E-03, -0.3855E-03, -0.4518E-03, -0.5191E-03, -0.5836E-03, & - -0.6420E-03, -0.6909E-03, -0.7264E-03, -0.7429E-03, -0.7341E-03, & - -0.6932E-03, -0.6142E-03, -0.4747E-04, -0.5172E-04, -0.5724E-04, & - -0.6432E-04, -0.7333E-04, -0.8474E-04, -0.9916E-04, -0.1173E-03, & - -0.1401E-03, -0.1686E-03, -0.2039E-03, -0.2467E-03, -0.2975E-03, & - -0.3559E-03, -0.4203E-03, -0.4874E-03, -0.5537E-03, -0.6154E-03, & - -0.6692E-03, -0.7116E-03, -0.7378E-03, -0.7419E-03, -0.7168E-03, & - -0.6557E-03, -0.5551E-03, -0.4209E-03, -0.5854E-04, -0.6471E-04, & - -0.7259E-04, -0.8261E-04, -0.9530E-04, -0.1113E-03, -0.1315E-03, & - -0.1569E-03, -0.1884E-03, -0.2271E-03, -0.2737E-03, -0.3283E-03, & - -0.3897E-03, -0.4558E-03, -0.5227E-03, -0.5870E-03, -0.6449E-03, & - -0.6931E-03, -0.7275E-03, -0.7427E-03, -0.7321E-03, -0.6889E-03, & - -0.6071E-03, -0.4874E-03, -0.3432E-03, -0.2014E-03, -0.7272E-04, & - -0.8150E-04, -0.9265E-04, -0.1068E-03, -0.1246E-03, -0.1471E-03, & - -0.1752E-03, -0.2100E-03, -0.2523E-03, -0.3027E-03, -0.3607E-03, & - -0.4246E-03, -0.4913E-03, -0.5572E-03, -0.6184E-03, -0.6718E-03, & - -0.7133E-03, -0.7384E-03, -0.7408E-03, -0.7139E-03, -0.6509E-03, & - -0.5488E-03, -0.4139E-03, -0.2674E-03, -0.1398E-03, -0.5530E-04, & - -0.9092E-04, -0.1034E-03, -0.1191E-03, -0.1389E-03, -0.1639E-03, & - -0.1950E-03, -0.2333E-03, -0.2794E-03, -0.3335E-03, -0.3944E-03, & - -0.4599E-03, -0.5264E-03, -0.5902E-03, -0.6476E-03, -0.6953E-03, & - -0.7290E-03, -0.7432E-03, -0.7313E-03, -0.6865E-03, -0.6031E-03, & - -0.4825E-03, -0.3382E-03, -0.1976E-03, -0.9059E-04, -0.3010E-04, & - -0.6418E-05, -0.1146E-03, -0.1321E-03, -0.1543E-03, -0.1820E-03, & - -0.2164E-03, -0.2583E-03, -0.3082E-03, -0.3656E-03, -0.4289E-03, & - -0.4951E-03, -0.5604E-03, -0.6211E-03, -0.6740E-03, -0.7150E-03, & - -0.7395E-03, -0.7411E-03, -0.7133E-03, -0.6492E-03, -0.5459E-03, & - -0.4104E-03, -0.2641E-03, -0.1375E-03, -0.5410E-04, -0.1455E-04, & - -0.2229E-05, -0.1439E-06, -0.1458E-03, -0.1705E-03, -0.2013E-03, & - -0.2391E-03, -0.2848E-03, -0.3384E-03, -0.3988E-03, -0.4637E-03, & - -0.5296E-03, -0.5928E-03, -0.6497E-03, -0.6970E-03, -0.7302E-03, & - -0.7439E-03, -0.7315E-03, -0.6859E-03, -0.6018E-03, -0.4805E-03, & - -0.3360E-03, -0.1957E-03, -0.8936E-04, -0.2951E-04, -0.6215E-05, & - -0.5986E-06, 0.0000E+00, 0.0000E+00, -0.1877E-03, -0.2217E-03, & - -0.2633E-03, -0.3127E-03, -0.3697E-03, -0.4326E-03, -0.4982E-03, & - -0.5629E-03, -0.6231E-03, -0.6755E-03, -0.7161E-03, -0.7402E-03, & - -0.7415E-03, -0.7133E-03, -0.6487E-03, -0.5450E-03, -0.4092E-03, & - -0.2629E-03, -0.1365E-03, -0.5358E-04, -0.1436E-04, -0.2174E-05, & - -0.1343E-06, 0.0000E+00, 0.0000E+00, 0.0000E+00, -0.2435E-03, & - -0.2889E-03, -0.3421E-03, -0.4021E-03, -0.4665E-03, -0.5319E-03, & - -0.5947E-03, -0.6512E-03, -0.6980E-03, -0.7309E-03, -0.7443E-03, & - -0.7316E-03, -0.6858E-03, -0.6015E-03, -0.4799E-03, -0.3353E-03, & - -0.1951E-03, -0.8897E-04, -0.2935E-04, -0.6176E-05, -0.5966E-06, & - 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, & - -0.3159E-03, -0.3726E-03, -0.4350E-03, -0.5002E-03, -0.5646E-03, & - -0.6244E-03, -0.6764E-03, -0.7167E-03, -0.7406E-03, -0.7417E-03, & - -0.7133E-03, -0.6486E-03, -0.5447E-03, -0.4089E-03, -0.2625E-03, & - -0.1363E-03, -0.5345E-04, -0.1432E-04, -0.2173E-05, -0.1347E-06, & - 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, & - 0.0000E+00],[26,31]) - - real, dimension(26,31) :: h13 = reshape([ & - 0.5907E-09, 0.5894E-09, 0.5872E-09, 0.5838E-09, 0.5785E-09, & - 0.5713E-09, 0.5612E-09, 0.5477E-09, 0.5334E-09, 0.5179E-09, & - 0.5073E-09, 0.5078E-09, 0.5236E-09, 0.5531E-09, 0.5891E-09, & - 0.6217E-09, 0.6457E-09, 0.6607E-09, 0.6693E-09, 0.6750E-09, & - 0.6777E-09, 0.6798E-09, 0.6809E-09, 0.6812E-09, 0.6815E-09, & - 0.6817E-09, 0.8541E-09, 0.8519E-09, 0.8484E-09, 0.8426E-09, & - 0.8338E-09, 0.8263E-09, 0.8116E-09, 0.8000E-09, 0.7859E-09, & - 0.7789E-09, 0.7906E-09, 0.8244E-09, 0.8873E-09, 0.9757E-09, & - 0.1074E-08, 0.1165E-08, 0.1235E-08, 0.1282E-08, 0.1312E-08, & - 0.1332E-08, 0.1344E-08, 0.1350E-08, 0.1356E-08, 0.1356E-08, & - 0.1358E-08, 0.1359E-08, 0.1095E-08, 0.1092E-08, 0.1087E-08, & - 0.1081E-08, 0.1071E-08, 0.1060E-08, 0.1048E-08, 0.1039E-08, & - 0.1043E-08, 0.1071E-08, 0.1134E-08, 0.1255E-08, 0.1426E-08, & - 0.1644E-08, 0.1885E-08, 0.2116E-08, 0.2303E-08, 0.2441E-08, & - 0.2538E-08, 0.2602E-08, 0.2643E-08, 0.2667E-08, 0.2683E-08, & - 0.2693E-08, 0.2698E-08, 0.2702E-08, 0.1272E-08, 0.1267E-08, & - 0.1259E-08, 0.1249E-08, 0.1239E-08, 0.1226E-08, 0.1222E-08, & - 0.1234E-08, 0.1279E-08, 0.1382E-08, 0.1560E-08, 0.1826E-08, & - 0.2193E-08, 0.2650E-08, 0.3167E-08, 0.3685E-08, 0.4149E-08, & - 0.4522E-08, 0.4802E-08, 0.5003E-08, 0.5138E-08, 0.5226E-08, & - 0.5287E-08, 0.5328E-08, 0.5355E-08, 0.5374E-08, 0.1297E-08, & - 0.1289E-08, 0.1279E-08, 0.1267E-08, 0.1256E-08, 0.1252E-08, & - 0.1270E-08, 0.1331E-08, 0.1460E-08, 0.1690E-08, 0.2046E-08, & - 0.2550E-08, 0.3230E-08, 0.4074E-08, 0.5051E-08, 0.6101E-08, & - 0.7120E-08, 0.8027E-08, 0.8778E-08, 0.9367E-08, 0.9798E-08, & - 0.1010E-07, 0.1030E-07, 0.1045E-07, 0.1054E-07, 0.1061E-07, & - 0.1105E-08, 0.1093E-08, 0.1077E-08, 0.1062E-08, 0.1057E-08, & - 0.1076E-08, 0.1141E-08, 0.1295E-08, 0.1560E-08, 0.1979E-08, & - 0.2589E-08, 0.3438E-08, 0.4555E-08, 0.5957E-08, 0.7631E-08, & - 0.9523E-08, 0.1152E-07, 0.1348E-07, 0.1528E-07, 0.1684E-07, & - 0.1809E-07, 0.1903E-07, 0.1971E-07, 0.2021E-07, 0.2056E-07, & - 0.2079E-07, 0.6788E-09, 0.6601E-09, 0.6413E-09, 0.6313E-09, & - 0.6480E-09, 0.7149E-09, 0.8732E-09, 0.1160E-08, 0.1618E-08, & - 0.2297E-08, 0.3254E-08, 0.4532E-08, 0.6200E-08, 0.8314E-08, & - 0.1092E-07, 0.1400E-07, 0.1749E-07, 0.2122E-07, 0.2501E-07, & - 0.2863E-07, 0.3185E-07, 0.3455E-07, 0.3665E-07, 0.3826E-07, & - 0.3942E-07, 0.4022E-07, -0.5585E-10, -0.7831E-10, -0.9334E-10, & - -0.8241E-10, -0.1793E-10, 0.1379E-09, 0.4336E-09, 0.9178E-09, & - 0.1657E-08, 0.2704E-08, 0.4107E-08, 0.5949E-08, 0.8298E-08, & - 0.1128E-07, 0.1500E-07, 0.1959E-07, 0.2508E-07, 0.3139E-07, & - 0.3836E-07, 0.4566E-07, 0.5285E-07, 0.5951E-07, 0.6528E-07, & - 0.6994E-07, 0.7349E-07, 0.7610E-07, -0.1147E-08, -0.1167E-08, & - -0.1161E-08, -0.1094E-08, -0.9278E-09, -0.6043E-09, -0.6548E-10, & - 0.7535E-09, 0.1912E-08, 0.3466E-08, 0.5481E-08, 0.8041E-08, & - 0.1126E-07, 0.1528E-07, 0.2032E-07, 0.2668E-07, 0.3462E-07, & - 0.4435E-07, 0.5578E-07, 0.6865E-07, 0.8249E-07, 0.9658E-07, & - 0.1100E-06, 0.1218E-06, 0.1315E-06, 0.1392E-06, -0.2746E-08, & - -0.2732E-08, -0.2644E-08, -0.2436E-08, -0.2051E-08, -0.1417E-08, & - -0.4774E-09, 0.8301E-09, 0.2569E-08, 0.4794E-08, 0.7602E-08, & - 0.1110E-07, 0.1544E-07, 0.2087E-07, 0.2769E-07, 0.3629E-07, & - 0.4718E-07, 0.6095E-07, 0.7806E-07, 0.9861E-07, 0.1222E-06, & - 0.1479E-06, 0.1744E-06, 0.1997E-06, 0.2226E-06, 0.2428E-06, & - -0.5001E-08, -0.4864E-08, -0.4588E-08, -0.4100E-08, -0.3337E-08, & - -0.2241E-08, -0.7556E-09, 0.1184E-08, 0.3654E-08, 0.6746E-08, & - 0.1059E-07, 0.1534E-07, 0.2130E-07, 0.2874E-07, 0.3810E-07, & - 0.4982E-07, 0.6452E-07, 0.8319E-07, 0.1069E-06, 0.1368E-06, & - 0.1730E-06, 0.2146E-06, 0.2599E-06, 0.3069E-06, 0.3537E-06, & - 0.3992E-06, -0.7715E-08, -0.7334E-08, -0.6709E-08, -0.5786E-08, & - -0.4514E-08, -0.2830E-08, -0.6577E-09, 0.2082E-08, 0.5509E-08, & - 0.9739E-08, 0.1501E-07, 0.2157E-07, 0.2978E-07, 0.4002E-07, & - 0.5279E-07, 0.6876E-07, 0.8874E-07, 0.1139E-06, 0.1456E-06, & - 0.1856E-06, 0.2351E-06, 0.2951E-06, 0.3650E-06, 0.4428E-06, & - 0.5266E-06, 0.6149E-06, -0.1037E-07, -0.9581E-08, -0.8474E-08, & - -0.6992E-08, -0.5067E-08, -0.2627E-08, 0.4377E-09, 0.4253E-08, & - 0.8964E-08, 0.1481E-07, 0.2210E-07, 0.3116E-07, 0.4239E-07, & - 0.5631E-07, 0.7361E-07, 0.9523E-07, 0.1222E-06, 0.1557E-06, & - 0.1970E-06, 0.2479E-06, 0.3111E-06, 0.3903E-06, 0.4887E-06, & - 0.6064E-06, 0.7407E-06, 0.8893E-06, -0.1227E-07, -0.1097E-07, & - -0.9263E-08, -0.7083E-08, -0.4328E-08, -0.8950E-09, 0.3359E-08, & - 0.8646E-08, 0.1518E-07, 0.2331E-07, 0.3334E-07, 0.4570E-07, & - 0.6096E-07, 0.7981E-07, 0.1032E-06, 0.1321E-06, 0.1675E-06, & - 0.2107E-06, 0.2631E-06, 0.3274E-06, 0.4078E-06, 0.5101E-06, & - 0.6398E-06, 0.8015E-06, 0.9958E-06, 0.1220E-05, -0.1287E-07, & - -0.1094E-07, -0.8489E-08, -0.5405E-08, -0.1545E-08, 0.3231E-08, & - 0.9159E-08, 0.1650E-07, 0.2560E-07, 0.3679E-07, 0.5055E-07, & - 0.6747E-07, 0.8829E-07, 0.1139E-06, 0.1450E-06, 0.1825E-06, & - 0.2276E-06, 0.2819E-06, 0.3485E-06, 0.4315E-06, 0.5366E-06, & - 0.6693E-06, 0.8358E-06, 0.1043E-05, 0.1296E-05, 0.1599E-05, & - -0.1175E-07, -0.8999E-08, -0.5553E-08, -0.1259E-08, 0.4100E-08, & - 0.1075E-07, 0.1901E-07, 0.2920E-07, 0.4178E-07, 0.5726E-07, & - 0.7629E-07, 0.9961E-07, 0.1280E-06, 0.1621E-06, 0.2026E-06, & - 0.2505E-06, 0.3076E-06, 0.3773E-06, 0.4642E-06, 0.5739E-06, & - 0.7117E-06, 0.8830E-06, 0.1095E-05, 0.1351E-05, 0.1657E-05, & - 0.2015E-05, -0.8517E-08, -0.4669E-08, 0.1203E-09, 0.6099E-08, & - 0.1354E-07, 0.2278E-07, 0.3422E-07, 0.4834E-07, 0.6574E-07, & - 0.8716E-07, 0.1134E-06, 0.1451E-06, 0.1830E-06, 0.2275E-06, & - 0.2798E-06, 0.3420E-06, 0.4174E-06, 0.5107E-06, 0.6268E-06, & - 0.7710E-06, 0.9495E-06, 0.1168E-05, 0.1429E-05, 0.1733E-05, & - 0.2077E-05, 0.2453E-05, -0.2920E-08, 0.2391E-08, 0.9035E-08, & - 0.1732E-07, 0.2762E-07, 0.4037E-07, 0.5616E-07, 0.7564E-07, & - 0.9958E-07, 0.1289E-06, 0.1642E-06, 0.2061E-06, 0.2555E-06, & - 0.3136E-06, 0.3832E-06, 0.4677E-06, 0.5714E-06, 0.6982E-06, & - 0.8526E-06, 0.1040E-05, 0.1266E-05, 0.1532E-05, 0.1836E-05, & - 0.2168E-05, 0.2512E-05, 0.2853E-05, 0.4786E-08, 0.1215E-07, & - 0.2135E-07, 0.3276E-07, 0.4690E-07, 0.6439E-07, 0.8598E-07, & - 0.1125E-06, 0.1449E-06, 0.1837E-06, 0.2298E-06, 0.2843E-06, & - 0.3493E-06, 0.4280E-06, 0.5242E-06, 0.6416E-06, 0.7837E-06, & - 0.9542E-06, 0.1157E-05, 0.1394E-05, 0.1667E-05, 0.1968E-05, & - 0.2286E-05, 0.2598E-05, 0.2893E-05, 0.3173E-05, 0.1407E-07, & - 0.2424E-07, 0.3689E-07, 0.5256E-07, 0.7190E-07, 0.9576E-07, & - 0.1251E-06, 0.1606E-06, 0.2031E-06, 0.2534E-06, 0.3133E-06, & - 0.3855E-06, 0.4740E-06, 0.5829E-06, 0.7159E-06, 0.8760E-06, & - 0.1067E-05, 0.1290E-05, 0.1545E-05, 0.1829E-05, 0.2132E-05, & - 0.2435E-05, 0.2716E-05, 0.2968E-05, 0.3216E-05, 0.3488E-05, & - 0.2476E-07, 0.3877E-07, 0.5610E-07, 0.7756E-07, 0.1040E-06, & - 0.1363E-06, 0.1752E-06, 0.2216E-06, 0.2766E-06, 0.3424E-06, & - 0.4225E-06, 0.5213E-06, 0.6431E-06, 0.7917E-06, 0.9706E-06, & - 0.1183E-05, 0.1428E-05, 0.1703E-05, 0.2002E-05, 0.2309E-05, & - 0.2600E-05, 0.2859E-05, 0.3088E-05, 0.3316E-05, 0.3562E-05, & - 0.3792E-05, 0.3781E-07, 0.5711E-07, 0.8097E-07, 0.1103E-06, & - 0.1459E-06, 0.1886E-06, 0.2392E-06, 0.2992E-06, 0.3718E-06, & - 0.4609E-06, 0.5709E-06, 0.7060E-06, 0.8701E-06, 0.1067E-05, & - 0.1299E-05, 0.1565E-05, 0.1859E-05, 0.2170E-05, 0.2478E-05, & - 0.2759E-05, 0.3001E-05, 0.3222E-05, 0.3444E-05, 0.3662E-05, & - 0.3811E-05, 0.3800E-05, 0.5633E-07, 0.8295E-07, 0.1155E-06, & - 0.1547E-06, 0.2014E-06, 0.2567E-06, 0.3228E-06, 0.4031E-06, & - 0.5022E-06, 0.6245E-06, 0.7739E-06, 0.9544E-06, 0.1169E-05, & - 0.1419E-05, 0.1701E-05, 0.2010E-05, 0.2327E-05, 0.2628E-05, & - 0.2897E-05, 0.3131E-05, 0.3354E-05, 0.3572E-05, 0.3748E-05, & - 0.3801E-05, 0.3644E-05, 0.3210E-05, 0.8578E-07, 0.1218E-06, & - 0.1649E-06, 0.2159E-06, 0.2764E-06, 0.3494E-06, 0.4389E-06, & - 0.5493E-06, 0.6849E-06, 0.8495E-06, 0.1047E-05, 0.1280E-05, & - 0.1547E-05, 0.1844E-05, 0.2159E-05, 0.2472E-05, 0.2760E-05, & - 0.3013E-05, 0.3245E-05, 0.3472E-05, 0.3679E-05, 0.3797E-05, & - 0.3740E-05, 0.3433E-05, 0.2841E-05, 0.2002E-05, 0.1322E-06, & - 0.1793E-06, 0.2350E-06, 0.3016E-06, 0.3824E-06, 0.4821E-06, & - 0.6049E-06, 0.7549E-06, 0.9360E-06, 0.1151E-05, 0.1401E-05, & - 0.1684E-05, 0.1992E-05, 0.2310E-05, 0.2612E-05, 0.2882E-05, & - 0.3122E-05, 0.3352E-05, 0.3578E-05, 0.3755E-05, 0.3796E-05, & - 0.3615E-05, 0.3157E-05, 0.2422E-05, 0.1524E-05, 0.7234E-06, & - 0.2013E-06, 0.2621E-06, 0.3353E-06, 0.4251E-06, 0.5359E-06, & - 0.6719E-06, 0.8370E-06, 0.1035E-05, 0.1268E-05, 0.1536E-05, & - 0.1833E-05, 0.2148E-05, 0.2460E-05, 0.2747E-05, 0.2998E-05, & - 0.3229E-05, 0.3458E-05, 0.3669E-05, 0.3789E-05, 0.3730E-05, & - 0.3414E-05, 0.2811E-05, 0.1966E-05, 0.1081E-05, 0.4276E-06, & - 0.1068E-06, 0.3006E-06, 0.3812E-06, 0.4806E-06, 0.6033E-06, & - 0.7532E-06, 0.9343E-06, 0.1150E-05, 0.1400E-05, 0.1683E-05, & - 0.1991E-05, 0.2308E-05, 0.2609E-05, 0.2877E-05, 0.3113E-05, & - 0.3341E-05, 0.3564E-05, 0.3739E-05, 0.3780E-05, 0.3598E-05, & - 0.3138E-05, 0.2399E-05, 0.1500E-05, 0.7064E-06, 0.2256E-06, & - 0.3960E-07, 0.2646E-08, 0.4409E-06, 0.5508E-06, 0.6858E-06, & - 0.8499E-06, 0.1047E-05, 0.1280E-05, 0.1547E-05, 0.1843E-05, & - 0.2157E-05, 0.2468E-05, 0.2753E-05, 0.3002E-05, 0.3230E-05, & - 0.3455E-05, 0.3661E-05, 0.3777E-05, 0.3715E-05, 0.3397E-05, & - 0.2792E-05, 0.1948E-05, 0.1067E-05, 0.4185E-06, 0.1030E-06, & - 0.1082E-07, 0.0000E+00, 0.0000E+00, 0.6343E-06, 0.7824E-06, & - 0.9617E-06, 0.1175E-05, 0.1424E-05, 0.1705E-05, 0.2012E-05, & - 0.2327E-05, 0.2625E-05, 0.2891E-05, 0.3125E-05, 0.3349E-05, & - 0.3569E-05, 0.3739E-05, 0.3775E-05, 0.3589E-05, 0.3126E-05, & - 0.2386E-05, 0.1489E-05, 0.6994E-06, 0.2222E-06, 0.3850E-07, & - 0.2456E-08, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.8896E-06, & - 0.1085E-05, 0.1315E-05, 0.1579E-05, 0.1873E-05, 0.2184E-05, & - 0.2493E-05, 0.2774E-05, 0.3020E-05, 0.3245E-05, 0.3467E-05, & - 0.3670E-05, 0.3782E-05, 0.3715E-05, 0.3393E-05, 0.2786E-05, & - 0.1942E-05, 0.1062E-05, 0.4160E-06, 0.1022E-06, 0.1075E-07, & - 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, & - 0.1216E-05, 0.1462E-05, 0.1741E-05, 0.2044E-05, 0.2356E-05, & - 0.2651E-05, 0.2913E-05, 0.3143E-05, 0.3364E-05, 0.3580E-05, & - 0.3748E-05, 0.3780E-05, 0.3591E-05, 0.3125E-05, 0.2384E-05, & - 0.1487E-05, 0.6977E-06, 0.2216E-06, 0.3843E-07, 0.2459E-08, & - 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, & - 0.0000E+00],[26,31]) - - real, dimension(26,31) :: h21 = reshape([ & - 0.99999607, 0.99999607, 0.99999607, 0.99999607, 0.99999607, & - 0.99999607, 0.99999607, 0.99999607, 0.99999607, 0.99999607, & - 0.99999607, 0.99999607, 0.99999607, 0.99999607, 0.99999607, & - 0.99999791, 0.99999756, 0.99999714, 0.99999672, 0.99999636, & - 0.99999619, 0.99999607, 0.99999601, 0.99999601, 0.99999601, & - 0.99999601, 0.99999237, 0.99999237, 0.99999237, 0.99999237, & - 0.99999237, 0.99999237, 0.99999237, 0.99999237, 0.99999237, & - 0.99999237, 0.99999237, 0.99999237, 0.99999231, 0.99999231, & - 0.99999225, 0.99999589, 0.99999511, 0.99999428, 0.99999344, & - 0.99999279, 0.99999237, 0.99999213, 0.99999207, 0.99999207, & - 0.99999207, 0.99999207, 0.99998546, 0.99998546, 0.99998546, & - 0.99998546, 0.99998546, 0.99998546, 0.99998546, 0.99998540, & - 0.99998540, 0.99998540, 0.99998534, 0.99998528, 0.99998522, & - 0.99998510, 0.99998498, 0.99999183, 0.99999028, 0.99998862, & - 0.99998701, 0.99998569, 0.99998480, 0.99998438, 0.99998420, & - 0.99998420, 0.99998420, 0.99998420, 0.99997294, 0.99997294, & - 0.99997294, 0.99997294, 0.99997294, 0.99997288, 0.99997288, & - 0.99997282, 0.99997276, 0.99997264, 0.99997252, 0.99997234, & - 0.99997205, 0.99997163, 0.99997115, 0.99998391, 0.99998081, & - 0.99997741, 0.99997419, 0.99997163, 0.99996990, 0.99996895, & - 0.99996859, 0.99996853, 0.99996847, 0.99996847, 0.99995142, & - 0.99995142, 0.99995142, 0.99995142, 0.99995136, 0.99995130, & - 0.99995124, 0.99995112, 0.99995089, 0.99995059, 0.99995011, & - 0.99994951, 0.99994856, 0.99994737, 0.99994600, 0.99996853, & - 0.99996233, 0.99995553, 0.99994916, 0.99994397, 0.99994045, & - 0.99993849, 0.99993771, 0.99993742, 0.99993724, 0.99993718, & - 0.99991685, 0.99991679, 0.99991679, 0.99991673, 0.99991661, & - 0.99991649, 0.99991626, 0.99991590, 0.99991536, 0.99991453, & - 0.99991328, 0.99991143, 0.99990892, 0.99990571, 0.99990171, & - 0.99993920, 0.99992681, 0.99991333, 0.99990064, 0.99989033, & - 0.99988312, 0.99987900, 0.99987692, 0.99987602, 0.99987543, & - 0.99987501, 0.99986511, 0.99986511, 0.99986500, 0.99986482, & - 0.99986458, 0.99986428, 0.99986368, 0.99986279, 0.99986148, & - 0.99985939, 0.99985629, 0.99985188, 0.99984580, 0.99983770, & - 0.99982780, 0.99988472, 0.99986011, 0.99983358, 0.99980861, & - 0.99978799, 0.99977320, 0.99976391, 0.99975860, 0.99975550, & - 0.99975342, 0.99975210, 0.99979371, 0.99979353, 0.99979341, & - 0.99979299, 0.99979252, 0.99979180, 0.99979049, 0.99978858, & - 0.99978572, 0.99978119, 0.99977452, 0.99976480, 0.99975121, & - 0.99973333, 0.99971092, 0.99978709, 0.99973929, 0.99968803, & - 0.99963921, 0.99959832, 0.99956751, 0.99954629, 0.99953198, & - 0.99952233, 0.99951530, 0.99951041, 0.99970162, 0.99970138, & - 0.99970102, 0.99970031, 0.99969929, 0.99969780, 0.99969530, & - 0.99969149, 0.99968570, 0.99967682, 0.99966347, 0.99964428, & - 0.99961728, 0.99958128, 0.99953562, 0.99961978, 0.99953061, & - 0.99943441, 0.99934143, 0.99926043, 0.99919540, 0.99914569, & - 0.99910772, 0.99907869, 0.99905682, 0.99904078, 0.99958909, & - 0.99958861, 0.99958777, 0.99958658, 0.99958479, 0.99958187, & - 0.99957728, 0.99957019, 0.99955928, 0.99954277, 0.99951839, & - 0.99948311, 0.99943388, 0.99936771, 0.99928278, 0.99934620, & - 0.99918979, 0.99901879, 0.99884701, 0.99868900, 0.99855101, & - 0.99843502, 0.99833697, 0.99825698, 0.99819201, 0.99814302, & - 0.99945778, 0.99945688, 0.99945557, 0.99945343, 0.99945003, & - 0.99944460, 0.99943632, 0.99942350, 0.99940401, 0.99937469, & - 0.99933177, 0.99927050, 0.99918568, 0.99907219, 0.99892598, & - 0.99892199, 0.99866599, 0.99837899, 0.99807602, 0.99777400, & - 0.99748802, 0.99722600, 0.99698901, 0.99678302, 0.99660802, & - 0.99646801, 0.99931037, 0.99930882, 0.99930632, 0.99930239, & - 0.99929619, 0.99928659, 0.99927181, 0.99924922, 0.99921501, & - 0.99916458, 0.99909180, 0.99899000, 0.99884999, 0.99866599, & - 0.99842799, 0.99830103, 0.99790198, 0.99744099, 0.99692601, & - 0.99637598, 0.99581498, 0.99526101, 0.99473202, 0.99424398, & - 0.99381101, 0.99344200, 0.99914628, 0.99914342, 0.99913889, & - 0.99913180, 0.99912071, 0.99910372, 0.99907762, 0.99903822, & - 0.99897999, 0.99889499, 0.99877602, 0.99861199, 0.99839199, & - 0.99810302, 0.99773300, 0.99742401, 0.99681997, 0.99609798, & - 0.99525797, 0.99431503, 0.99329299, 0.99221897, 0.99113101, & - 0.99007100, 0.98908001, 0.98819000, 0.99895900, 0.99895400, & - 0.99894601, 0.99893302, 0.99891400, 0.99888301, 0.99883801, & - 0.99877101, 0.99867398, 0.99853599, 0.99834698, 0.99809098, & - 0.99775398, 0.99731499, 0.99675500, 0.99619502, 0.99528998, & - 0.99418801, 0.99287403, 0.99134803, 0.98961997, 0.98771000, & - 0.98566002, 0.98356003, 0.98148000, 0.97952002, 0.99873799, & - 0.99872798, 0.99871302, 0.99869001, 0.99865502, 0.99860299, & - 0.99852502, 0.99841398, 0.99825603, 0.99804002, 0.99774700, & - 0.99735999, 0.99685299, 0.99620003, 0.99536800, 0.99445999, & - 0.99312103, 0.99147803, 0.98948997, 0.98714000, 0.98439002, & - 0.98123002, 0.97770000, 0.97387999, 0.96991003, 0.96597999, & - 0.99846601, 0.99844801, 0.99842101, 0.99838102, 0.99831998, & - 0.99822998, 0.99810201, 0.99792302, 0.99767601, 0.99734300, & - 0.99690098, 0.99632198, 0.99557197, 0.99461198, 0.99339402, & - 0.99199599, 0.99004799, 0.98764998, 0.98474002, 0.98122001, & - 0.97702003, 0.97209001, 0.96640998, 0.96004999, 0.95317000, & - 0.94600999, 0.99813002, 0.99809802, 0.99805099, 0.99798000, & - 0.99787700, 0.99773002, 0.99752498, 0.99724299, 0.99686497, & - 0.99636298, 0.99570400, 0.99484903, 0.99375200, 0.99235398, & - 0.99058902, 0.98851001, 0.98571002, 0.98227000, 0.97804999, & - 0.97290999, 0.96671999, 0.95936000, 0.95076001, 0.94090003, & - 0.92992002, 0.91812003, 0.99771398, 0.99765801, 0.99757600, & - 0.99745703, 0.99728799, 0.99705303, 0.99673301, 0.99630302, & - 0.99573302, 0.99498600, 0.99401599, 0.99276900, 0.99117702, & - 0.98916000, 0.98662001, 0.98360002, 0.97961998, 0.97469997, & - 0.96867001, 0.96131998, 0.95245999, 0.94187999, 0.92943001, & - 0.91503000, 0.89880002, 0.88099998, 0.99719697, 0.99710101, & - 0.99696302, 0.99676800, 0.99650002, 0.99613500, 0.99564600, & - 0.99500000, 0.99415499, 0.99305803, 0.99164802, 0.98984998, & - 0.98755997, 0.98466998, 0.98104000, 0.97671002, 0.97105998, & - 0.96410000, 0.95559001, 0.94528997, 0.93291998, 0.91820002, & - 0.90092003, 0.88099998, 0.85839999, 0.83359998, 0.99655598, & - 0.99639499, 0.99617100, 0.99586397, 0.99544799, 0.99489301, & - 0.99416101, 0.99320602, 0.99196899, 0.99037802, 0.98834997, & - 0.98576999, 0.98250002, 0.97839999, 0.97325999, 0.96710002, & - 0.95915002, 0.94941998, 0.93761998, 0.92346001, 0.90660000, & - 0.88679999, 0.86370003, 0.83740002, 0.80799997, 0.77569997, & - 0.99575800, 0.99549901, 0.99514598, 0.99467200, 0.99404198, & - 0.99321300, 0.99213398, 0.99074000, 0.98895001, 0.98667002, & - 0.98377001, 0.98009998, 0.97548002, 0.96969002, 0.96249002, & - 0.95378000, 0.94278002, 0.92940998, 0.91336000, 0.89429998, & - 0.87199998, 0.84609997, 0.81659997, 0.78350002, 0.74689996, & - 0.70669997, 0.99475598, 0.99435198, 0.99381000, 0.99309403, & - 0.99215603, 0.99093801, 0.98936999, 0.98736000, 0.98479998, & - 0.98154002, 0.97742999, 0.97224998, 0.96575999, 0.95769000, & - 0.94773000, 0.93559003, 0.92061001, 0.90263999, 0.88139999, & - 0.85650003, 0.82780004, 0.79530001, 0.75889999, 0.71869999, & - 0.67420000, 0.62529999, 0.99348903, 0.99287099, 0.99205798, & - 0.99099600, 0.98961997, 0.98785001, 0.98559999, 0.98272002, & - 0.97907001, 0.97447002, 0.96868002, 0.96144003, 0.95244002, & - 0.94133997, 0.92778003, 0.91112000, 0.89120001, 0.86769998, & - 0.84029996, 0.80879998, 0.77329999, 0.73379999, 0.69000000, & - 0.64170003, 0.58850002, 0.53049999, 0.99186200, 0.99093699, & - 0.98974001, 0.98817998, 0.98619002, 0.98365998, 0.98043001, & - 0.97635001, 0.97119999, 0.96473998, 0.95666999, 0.94667000, & - 0.93436003, 0.91935998, 0.90125000, 0.87900001, 0.85320002, & - 0.82330000, 0.78920001, 0.75080001, 0.70819998, 0.66090000, & - 0.60870004, 0.55149996, 0.48979998, 0.42449999, 0.98973000, & - 0.98837000, 0.98662001, 0.98438001, 0.98153001, 0.97790998, & - 0.97333997, 0.96758002, 0.96038002, 0.95141000, 0.94032001, & - 0.92672002, 0.91018999, 0.89029998, 0.86680001, 0.83780003, & - 0.80550003, 0.76880002, 0.72770000, 0.68190002, 0.63119996, & - 0.57529998, 0.51440001, 0.44950002, 0.38200003, 0.31419998, & - 0.98688000, 0.98491001, 0.98238999, 0.97918999, 0.97513002, & - 0.97000998, 0.96359003, 0.95555997, 0.94559997, 0.93333000, & - 0.91833997, 0.90020001, 0.87849998, 0.85290003, 0.82319999, & - 0.78680003, 0.74759996, 0.70379996, 0.65499997, 0.60100001, & - 0.54159999, 0.47740000, 0.40990001, 0.34100002, 0.27329999, & - 0.20969999, 0.98303002, 0.98019999, 0.97659999, 0.97206002, & - 0.96634001, 0.95916998, 0.95025003, 0.93919998, 0.92565000, & - 0.90916002, 0.88929999, 0.86570001, 0.83810002, 0.80620003, & - 0.77010000, 0.72549999, 0.67900002, 0.62720001, 0.56999999, & - 0.50740004, 0.44059998, 0.37129998, 0.30190003, 0.23540002, & - 0.17479998, 0.12269998, 0.97777998, 0.97373998, 0.96866000, & - 0.96227002, 0.95428002, 0.94437003, 0.93216002, 0.91722000, & - 0.89910001, 0.87750000, 0.85189998, 0.82220000, 0.78820002, & - 0.74989998, 0.70730001, 0.65300000, 0.59829998, 0.53810000, & - 0.47280002, 0.40399998, 0.33380002, 0.26490003, 0.20060003, & - 0.14380002, 0.09700000, 0.06089997, 0.97059000, 0.96490002, & - 0.95776999, 0.94888997, 0.93791002, 0.92440999, 0.90798998, & - 0.88819999, 0.86470002, 0.83710003, 0.80530000, 0.76919997, & - 0.72870004, 0.68369997, 0.63400000, 0.56830001, 0.50520003, & - 0.43769997, 0.36760002, 0.29729998, 0.23000002, 0.16890001, & - 0.11680001, 0.07550001, 0.04500002, 0.02420002, 0.96077001, & - 0.95283002, 0.94296998, 0.93080997, 0.91593999, 0.89789999, & - 0.87639999, 0.85089999, 0.82130003, 0.78729999, 0.74909997, & - 0.70640004, 0.65910000, 0.60679996, 0.54960001, 0.47140002, & - 0.40219998, 0.33149999, 0.26220000, 0.19730002, 0.14029998, & - 0.09340000, 0.05760002, 0.03240001, 0.01620001, 0.00660002, & - 0.94742000, 0.93649000, 0.92306000, 0.90671003, 0.88700002, & - 0.86360002, 0.83609998, 0.80439997, 0.76830000, 0.72790003, & - 0.68299997, 0.63330001, 0.57850003, 0.51899999, 0.45560002, & - 0.36650002, 0.29600000, 0.22839999, 0.16700000, 0.11479998, & - 0.07340002, 0.04310000, 0.02270001, 0.01029998, 0.00349998, & - 0.00040001],[26,31]) - - real, dimension(26,31) :: h22 = reshape([ & - -0.5622E-07, -0.5622E-07, -0.5622E-07, -0.5623E-07, -0.5623E-07, & - -0.5624E-07, -0.5626E-07, -0.5628E-07, -0.5630E-07, -0.5636E-07, & - -0.5645E-07, -0.5658E-07, -0.5677E-07, -0.5703E-07, -0.5736E-07, & - -0.3122E-07, -0.3547E-07, -0.4064E-07, -0.4629E-07, -0.5164E-07, & - -0.5584E-07, -0.5833E-07, -0.5929E-07, -0.5950E-07, -0.5953E-07, & - -0.5954E-07, -0.1071E-06, -0.1071E-06, -0.1071E-06, -0.1071E-06, & - -0.1071E-06, -0.1072E-06, -0.1072E-06, -0.1073E-06, -0.1074E-06, & - -0.1076E-06, -0.1079E-06, -0.1083E-06, -0.1090E-06, -0.1098E-06, & - -0.1109E-06, -0.6175E-07, -0.7029E-07, -0.8066E-07, -0.9195E-07, & - -0.1026E-06, -0.1110E-06, -0.1160E-06, -0.1180E-06, -0.1185E-06, & - -0.1187E-06, -0.1187E-06, -0.1983E-06, -0.1983E-06, -0.1983E-06, & - -0.1984E-06, -0.1985E-06, -0.1986E-06, -0.1987E-06, -0.1990E-06, & - -0.1994E-06, -0.2000E-06, -0.2009E-06, -0.2023E-06, -0.2043E-06, & - -0.2071E-06, -0.2106E-06, -0.1214E-06, -0.1386E-06, -0.1593E-06, & - -0.1819E-06, -0.2031E-06, -0.2198E-06, -0.2300E-06, -0.2344E-06, & - -0.2358E-06, -0.2363E-06, -0.2366E-06, -0.3533E-06, -0.3534E-06, & - -0.3535E-06, -0.3536E-06, -0.3538E-06, -0.3541E-06, -0.3545E-06, & - -0.3553E-06, -0.3564E-06, -0.3582E-06, -0.3610E-06, -0.3650E-06, & - -0.3709E-06, -0.3788E-06, -0.3890E-06, -0.2361E-06, -0.2709E-06, & - -0.3124E-06, -0.3572E-06, -0.3994E-06, -0.4329E-06, -0.4540E-06, & - -0.4638E-06, -0.4678E-06, -0.4697E-06, -0.4709E-06, -0.5991E-06, & - -0.5992E-06, -0.5994E-06, -0.5997E-06, -0.6002E-06, -0.6010E-06, & - -0.6022E-06, -0.6042E-06, -0.6072E-06, -0.6119E-06, -0.6190E-06, & - -0.6295E-06, -0.6448E-06, -0.6657E-06, -0.6928E-06, -0.4518E-06, & - -0.5218E-06, -0.6049E-06, -0.6936E-06, -0.7771E-06, -0.8444E-06, & - -0.8885E-06, -0.9118E-06, -0.9235E-06, -0.9304E-06, -0.9349E-06, & - -0.9592E-06, -0.9594E-06, -0.9599E-06, -0.9606E-06, -0.9618E-06, & - -0.9636E-06, -0.9665E-06, -0.9710E-06, -0.9779E-06, -0.9888E-06, & - -0.1005E-05, -0.1030E-05, -0.1066E-05, -0.1116E-05, -0.1181E-05, & - -0.8438E-06, -0.9840E-06, -0.1148E-05, -0.1323E-05, -0.1488E-05, & - -0.1623E-05, -0.1718E-05, -0.1775E-05, -0.1810E-05, -0.1833E-05, & - -0.1849E-05, -0.1444E-05, -0.1445E-05, -0.1446E-05, -0.1447E-05, & - -0.1450E-05, -0.1453E-05, -0.1460E-05, -0.1469E-05, -0.1484E-05, & - -0.1507E-05, -0.1541E-05, -0.1593E-05, -0.1669E-05, -0.1776E-05, & - -0.1917E-05, -0.1524E-05, -0.1799E-05, -0.2118E-05, -0.2456E-05, & - -0.2776E-05, -0.3049E-05, -0.3256E-05, -0.3401E-05, -0.3503E-05, & - -0.3578E-05, -0.3632E-05, -0.2049E-05, -0.2050E-05, -0.2052E-05, & - -0.2055E-05, -0.2059E-05, -0.2067E-05, -0.2078E-05, -0.2096E-05, & - -0.2124E-05, -0.2168E-05, -0.2235E-05, -0.2334E-05, -0.2480E-05, & - -0.2687E-05, -0.2965E-05, -0.2643E-05, -0.3156E-05, -0.3751E-05, & - -0.4385E-05, -0.5001E-05, -0.5551E-05, -0.6010E-05, -0.6375E-05, & - -0.6664E-05, -0.6889E-05, -0.7058E-05, -0.2764E-05, -0.2766E-05, & - -0.2769E-05, -0.2775E-05, -0.2783E-05, -0.2796E-05, -0.2817E-05, & - -0.2849E-05, -0.2900E-05, -0.2978E-05, -0.3096E-05, -0.3273E-05, & - -0.3532E-05, -0.3898E-05, -0.4396E-05, -0.4380E-05, -0.5272E-05, & - -0.6314E-05, -0.7453E-05, -0.8610E-05, -0.9714E-05, -0.1072E-04, & - -0.1160E-04, -0.1236E-04, -0.1299E-04, -0.1350E-04, -0.3577E-05, & - -0.3580E-05, -0.3586E-05, -0.3596E-05, -0.3611E-05, -0.3634E-05, & - -0.3671E-05, -0.3728E-05, -0.3817E-05, -0.3952E-05, -0.4155E-05, & - -0.4455E-05, -0.4887E-05, -0.5493E-05, -0.6315E-05, -0.6922E-05, & - -0.8357E-05, -0.1006E-04, -0.1200E-04, -0.1411E-04, -0.1627E-04, & - -0.1838E-04, -0.2039E-04, -0.2223E-04, -0.2384E-04, -0.2521E-04, & - -0.4469E-05, -0.4476E-05, -0.4487E-05, -0.4504E-05, -0.4531E-05, & - -0.4572E-05, -0.4637E-05, -0.4738E-05, -0.4891E-05, -0.5122E-05, & - -0.5463E-05, -0.5955E-05, -0.6650E-05, -0.7607E-05, -0.8891E-05, & - -0.1042E-04, -0.1260E-04, -0.1526E-04, -0.1843E-04, -0.2209E-04, & - -0.2609E-04, -0.3026E-04, -0.3444E-04, -0.3849E-04, -0.4227E-04, & - -0.4564E-04, -0.5467E-05, -0.5479E-05, -0.5499E-05, -0.5529E-05, & - -0.5577E-05, -0.5652E-05, -0.5767E-05, -0.5942E-05, -0.6205E-05, & - -0.6592E-05, -0.7150E-05, -0.7935E-05, -0.9017E-05, -0.1048E-04, & - -0.1242E-04, -0.1504E-04, -0.1827E-04, -0.2232E-04, -0.2731E-04, & - -0.3328E-04, -0.4015E-04, -0.4772E-04, -0.5575E-04, -0.6396E-04, & - -0.7201E-04, -0.7958E-04, -0.6654E-05, -0.6677E-05, -0.6712E-05, & - -0.6768E-05, -0.6855E-05, -0.6987E-05, -0.7188E-05, -0.7490E-05, & - -0.7931E-05, -0.8565E-05, -0.9453E-05, -0.1067E-04, -0.1232E-04, & - -0.1450E-04, -0.1736E-04, -0.2125E-04, -0.2598E-04, -0.3196E-04, & - -0.3943E-04, -0.4860E-04, -0.5955E-04, -0.7223E-04, -0.8641E-04, & - -0.1017E-03, -0.1174E-03, -0.1329E-03, -0.8137E-05, -0.8179E-05, & - -0.8244E-05, -0.8345E-05, -0.8499E-05, -0.8733E-05, -0.9080E-05, & - -0.9586E-05, -0.1031E-04, -0.1132E-04, -0.1269E-04, -0.1455E-04, & - -0.1701E-04, -0.2024E-04, -0.2442E-04, -0.2987E-04, -0.3667E-04, & - -0.4525E-04, -0.5606E-04, -0.6954E-04, -0.8603E-04, -0.1057E-03, & - -0.1287E-03, -0.1545E-03, -0.1825E-03, -0.2114E-03, -0.1002E-04, & - -0.1009E-04, -0.1021E-04, -0.1039E-04, -0.1066E-04, -0.1107E-04, & - -0.1165E-04, -0.1247E-04, -0.1362E-04, -0.1518E-04, -0.1728E-04, & - -0.2007E-04, -0.2372E-04, -0.2845E-04, -0.3454E-04, -0.4200E-04, & - -0.5169E-04, -0.6394E-04, -0.7936E-04, -0.9861E-04, -0.1223E-03, & - -0.1512E-03, -0.1856E-03, -0.2257E-03, -0.2710E-03, -0.3200E-03, & - -0.1237E-04, -0.1251E-04, -0.1272E-04, -0.1304E-04, -0.1351E-04, & - -0.1418E-04, -0.1513E-04, -0.1644E-04, -0.1821E-04, -0.2060E-04, & - -0.2375E-04, -0.2788E-04, -0.3325E-04, -0.4014E-04, -0.4892E-04, & - -0.5923E-04, -0.7312E-04, -0.9058E-04, -0.1123E-03, -0.1393E-03, & - -0.1724E-03, -0.2128E-03, -0.2615E-03, -0.3192E-03, -0.3861E-03, & - -0.4611E-03, -0.1528E-04, -0.1553E-04, -0.1591E-04, -0.1645E-04, & - -0.1723E-04, -0.1832E-04, -0.1981E-04, -0.2184E-04, -0.2454E-04, & - -0.2811E-04, -0.3279E-04, -0.3885E-04, -0.4664E-04, -0.5658E-04, & - -0.6916E-04, -0.8383E-04, -0.1037E-03, -0.1284E-03, -0.1588E-03, & - -0.1961E-03, -0.2413E-03, -0.2961E-03, -0.3618E-03, -0.4399E-03, & - -0.5313E-03, -0.6353E-03, -0.1884E-04, -0.1928E-04, -0.1992E-04, & - -0.2082E-04, -0.2207E-04, -0.2378E-04, -0.2609E-04, -0.2916E-04, & - -0.3320E-04, -0.3848E-04, -0.4531E-04, -0.5409E-04, -0.6528E-04, & - -0.7947E-04, -0.9735E-04, -0.1186E-03, -0.1467E-03, -0.1812E-03, & - -0.2231E-03, -0.2738E-03, -0.3346E-03, -0.4070E-03, -0.4928E-03, & - -0.5933E-03, -0.7095E-03, -0.8409E-03, -0.2310E-04, -0.2384E-04, & - -0.2489E-04, -0.2633E-04, -0.2829E-04, -0.3092E-04, -0.3441E-04, & - -0.3898E-04, -0.4493E-04, -0.5261E-04, -0.6246E-04, -0.7503E-04, & - -0.9095E-04, -0.1110E-03, -0.1362E-03, -0.1670E-03, -0.2060E-03, & - -0.2533E-03, -0.3101E-03, -0.3778E-03, -0.4578E-03, -0.5514E-03, & - -0.6594E-03, -0.7824E-03, -0.9203E-03, -0.1072E-02, -0.2809E-04, & - -0.2930E-04, -0.3097E-04, -0.3322E-04, -0.3621E-04, -0.4017E-04, & - -0.4534E-04, -0.5205E-04, -0.6068E-04, -0.7173E-04, -0.8579E-04, & - -0.1036E-03, -0.1260E-03, -0.1541E-03, -0.1891E-03, -0.2328E-03, & - -0.2857E-03, -0.3493E-03, -0.4247E-03, -0.5132E-03, -0.6155E-03, & - -0.7320E-03, -0.8621E-03, -0.1005E-02, -0.1158E-02, -0.1324E-02, & - -0.3396E-04, -0.3588E-04, -0.3845E-04, -0.4187E-04, -0.4636E-04, & - -0.5221E-04, -0.5978E-04, -0.6948E-04, -0.8186E-04, -0.9758E-04, & - -0.1175E-03, -0.1425E-03, -0.1737E-03, -0.2125E-03, -0.2602E-03, & - -0.3204E-03, -0.3907E-03, -0.4740E-03, -0.5713E-03, -0.6831E-03, & - -0.8087E-03, -0.9467E-03, -0.1095E-02, -0.1251E-02, -0.1417E-02, & - -0.1592E-02, -0.4098E-04, -0.4393E-04, -0.4782E-04, -0.5292E-04, & - -0.5954E-04, -0.6806E-04, -0.7897E-04, -0.9285E-04, -0.1104E-03, & - -0.1326E-03, -0.1604E-03, -0.1951E-03, -0.2381E-03, -0.2907E-03, & - -0.3545E-03, -0.4347E-03, -0.5257E-03, -0.6315E-03, -0.7522E-03, & - -0.8868E-03, -0.1033E-02, -0.1187E-02, -0.1349E-02, -0.1516E-02, & - -0.1691E-02, -0.1871E-02, -0.4960E-04, -0.5403E-04, -0.5982E-04, & - -0.6730E-04, -0.7690E-04, -0.8916E-04, -0.1047E-03, -0.1244E-03, & - -0.1491E-03, -0.1801E-03, -0.2186E-03, -0.2660E-03, -0.3238E-03, & - -0.3936E-03, -0.4768E-03, -0.5802E-03, -0.6940E-03, -0.8228E-03, & - -0.9651E-03, -0.1118E-02, -0.1279E-02, -0.1446E-02, -0.1618E-02, & - -0.1794E-02, -0.1968E-02, -0.2127E-02, -0.6058E-04, -0.6714E-04, & - -0.7558E-04, -0.8640E-04, -0.1002E-03, -0.1176E-03, -0.1396E-03, & - -0.1672E-03, -0.2016E-03, -0.2442E-03, -0.2964E-03, -0.3598E-03, & - -0.4359E-03, -0.5261E-03, -0.6310E-03, -0.7595E-03, -0.8954E-03, & - -0.1044E-02, -0.1202E-02, -0.1368E-02, -0.1540E-02, -0.1717E-02, & - -0.1894E-02, -0.2060E-02, -0.2200E-02, -0.2297E-02, -0.7506E-04, & - -0.8458E-04, -0.9674E-04, -0.1122E-03, -0.1317E-03, -0.1562E-03, & - -0.1870E-03, -0.2251E-03, -0.2722E-03, -0.3296E-03, -0.3990E-03, & - -0.4817E-03, -0.5789E-03, -0.6912E-03, -0.8179E-03, -0.9703E-03, & - -0.1124E-02, -0.1286E-02, -0.1456E-02, -0.1632E-02, -0.1811E-02, & - -0.1985E-02, -0.2140E-02, -0.2257E-02, -0.2320E-02, -0.2312E-02, & - -0.9451E-04, -0.1082E-03, -0.1254E-03, -0.1472E-03, -0.1746E-03, & - -0.2087E-03, -0.2510E-03, -0.3028E-03, -0.3658E-03, -0.4415E-03, & - -0.5311E-03, -0.6355E-03, -0.7549E-03, -0.8880E-03, -0.1032E-02, & - -0.1205E-02, -0.1371E-02, -0.1544E-02, -0.1721E-02, -0.1899E-02, & - -0.2065E-02, -0.2203E-02, -0.2293E-02, -0.2318E-02, -0.2263E-02, & - -0.2123E-02, -0.1207E-03, -0.1400E-03, -0.1644E-03, -0.1948E-03, & - -0.2326E-03, -0.2793E-03, -0.3363E-03, -0.4051E-03, -0.4873E-03, & - -0.5840E-03, -0.6957E-03, -0.8218E-03, -0.9607E-03, -0.1109E-02, & - -0.1265E-02, -0.1457E-02, -0.1632E-02, -0.1810E-02, -0.1983E-02, & - -0.2136E-02, -0.2251E-02, -0.2307E-02, -0.2290E-02, -0.2186E-02, & - -0.1998E-02, -0.1738E-02, -0.1558E-03, -0.1829E-03, -0.2167E-03, & - -0.2585E-03, -0.3099E-03, -0.3724E-03, -0.4475E-03, -0.5365E-03, & - -0.6404E-03, -0.7591E-03, -0.8916E-03, -0.1035E-02, -0.1188E-02, & - -0.1346E-02, -0.1508E-02, -0.1720E-02, -0.1897E-02, -0.2061E-02, & - -0.2196E-02, -0.2282E-02, -0.2301E-02, -0.2237E-02, -0.2085E-02, & - -0.1853E-02, -0.1563E-02, -0.1247E-02, -0.2026E-03, -0.2401E-03, & - -0.2863E-03, -0.3428E-03, -0.4111E-03, -0.4928E-03, -0.5888E-03, & - -0.6998E-03, -0.8253E-03, -0.9636E-03, -0.1112E-02, -0.1267E-02, & - -0.1427E-02, -0.1591E-02, -0.1757E-02, -0.1980E-02, -0.2131E-02, & - -0.2243E-02, -0.2296E-02, -0.2273E-02, -0.2163E-02, -0.1965E-02, & - -0.1696E-02, -0.1386E-02, -0.1068E-02, -0.7744E-03, -0.2648E-03, & - -0.3157E-03, -0.3777E-03, -0.4523E-03, -0.5407E-03, -0.6440E-03, & - -0.7621E-03, -0.8940E-03, -0.1037E-02, -0.1189E-02, -0.1346E-02, & - -0.1508E-02, -0.1674E-02, -0.1837E-02, -0.1989E-02, -0.2191E-02, & - -0.2275E-02, -0.2291E-02, -0.2224E-02, -0.2067E-02, -0.1828E-02, & - -0.1532E-02, -0.1212E-02, -0.9021E-03, -0.6300E-03, -0.4117E-03, & - -0.3468E-03, -0.4147E-03, -0.4959E-03, -0.5915E-03, -0.7020E-03, & - -0.8270E-03, -0.9647E-03, -0.1112E-02, -0.1267E-02, -0.1427E-02, & - -0.1590E-02, -0.1755E-02, -0.1914E-02, -0.2054E-02, -0.2159E-02, & - -0.2290E-02, -0.2265E-02, -0.2152E-02, -0.1952E-02, -0.1679E-02, & - -0.1365E-02, -0.1044E-02, -0.7506E-03, -0.5050E-03, -0.3174E-03, & - -0.1850E-03],[26,31]) - - real, dimension(26,31) :: h23 = reshape([ & - -0.2195E-09, -0.2195E-09, -0.2196E-09, -0.2196E-09, -0.2197E-09, & - -0.2198E-09, -0.2200E-09, -0.2204E-09, -0.2207E-09, -0.2214E-09, & - -0.2225E-09, -0.2241E-09, -0.2262E-09, -0.2288E-09, -0.2321E-09, & - -0.1376E-09, -0.1482E-09, -0.1630E-09, -0.1827E-09, -0.2058E-09, & - -0.2274E-09, -0.2426E-09, -0.2496E-09, -0.2515E-09, -0.2520E-09, & - -0.2522E-09, -0.4031E-09, -0.4032E-09, -0.4033E-09, -0.4034E-09, & - -0.4037E-09, -0.4040E-09, -0.4045E-09, -0.4052E-09, -0.4061E-09, & - -0.4080E-09, -0.4104E-09, -0.4142E-09, -0.4191E-09, -0.4265E-09, & - -0.4350E-09, -0.2699E-09, -0.2910E-09, -0.3213E-09, -0.3607E-09, & - -0.4066E-09, -0.4498E-09, -0.4805E-09, -0.4954E-09, -0.5001E-09, & - -0.5016E-09, -0.5025E-09, -0.7043E-09, -0.7046E-09, -0.7048E-09, & - -0.7050E-09, -0.7054E-09, -0.7061E-09, -0.7071E-09, -0.7088E-09, & - -0.7117E-09, -0.7156E-09, -0.7217E-09, -0.7312E-09, -0.7441E-09, & - -0.7627E-09, -0.7861E-09, -0.5220E-09, -0.5667E-09, -0.6266E-09, & - -0.7057E-09, -0.7967E-09, -0.8814E-09, -0.9447E-09, -0.9780E-09, & - -0.9904E-09, -0.9963E-09, -0.9997E-09, -0.1153E-08, -0.1153E-08, & - -0.1154E-08, -0.1154E-08, -0.1155E-08, -0.1156E-08, -0.1159E-08, & - -0.1162E-08, -0.1169E-08, -0.1178E-08, -0.1192E-08, -0.1214E-08, & - -0.1244E-08, -0.1289E-08, -0.1347E-08, -0.9897E-09, -0.1081E-08, & - -0.1201E-08, -0.1359E-08, -0.1539E-08, -0.1708E-08, -0.1841E-08, & - -0.1915E-08, -0.1951E-08, -0.1971E-08, -0.1983E-08, -0.1737E-08, & - -0.1738E-08, -0.1739E-08, -0.1740E-08, -0.1741E-08, -0.1744E-08, & - -0.1748E-08, -0.1755E-08, -0.1767E-08, -0.1784E-08, -0.1811E-08, & - -0.1854E-08, -0.1916E-08, -0.2011E-08, -0.2144E-08, -0.1819E-08, & - -0.2005E-08, -0.2248E-08, -0.2552E-08, -0.2904E-08, -0.3247E-08, & - -0.3519E-08, -0.3697E-08, -0.3800E-08, -0.3867E-08, -0.3912E-08, & - -0.2395E-08, -0.2395E-08, -0.2396E-08, -0.2398E-08, -0.2401E-08, & - -0.2405E-08, -0.2411E-08, -0.2422E-08, -0.2439E-08, -0.2466E-08, & - -0.2509E-08, -0.2578E-08, -0.2687E-08, -0.2861E-08, -0.3120E-08, & - -0.3186E-08, -0.3554E-08, -0.4030E-08, -0.4615E-08, -0.5293E-08, & - -0.5972E-08, -0.6565E-08, -0.6991E-08, -0.7288E-08, -0.7500E-08, & - -0.7650E-08, -0.3020E-08, -0.3021E-08, -0.3022E-08, -0.3024E-08, & - -0.3027E-08, -0.3032E-08, -0.3040E-08, -0.3053E-08, -0.3074E-08, & - -0.3105E-08, -0.3155E-08, -0.3250E-08, -0.3407E-08, -0.3673E-08, & - -0.4107E-08, -0.5224E-08, -0.5902E-08, -0.6770E-08, -0.7854E-08, & - -0.9116E-08, -0.1045E-07, -0.1172E-07, -0.1279E-07, -0.1362E-07, & - -0.1427E-07, -0.1474E-07, -0.3549E-08, -0.3550E-08, -0.3551E-08, & - -0.3552E-08, -0.3553E-08, -0.3556E-08, -0.3561E-08, -0.3572E-08, & - -0.3588E-08, -0.3617E-08, -0.3668E-08, -0.3765E-08, -0.3947E-08, & - -0.4288E-08, -0.4892E-08, -0.7896E-08, -0.8925E-08, -0.1033E-07, & - -0.1218E-07, -0.1447E-07, -0.1707E-07, -0.1979E-07, -0.2231E-07, & - -0.2452E-07, -0.2634E-07, -0.2777E-07, -0.4034E-08, -0.4035E-08, & - -0.4036E-08, -0.4037E-08, -0.4039E-08, -0.4040E-08, -0.4046E-08, & - -0.4052E-08, -0.4062E-08, -0.4087E-08, -0.4138E-08, -0.4238E-08, & - -0.4432E-08, -0.4812E-08, -0.5511E-08, -0.1090E-07, -0.1209E-07, & - -0.1392E-07, -0.1670E-07, -0.2058E-07, -0.2545E-07, -0.3095E-07, & - -0.3653E-07, -0.4184E-07, -0.4656E-07, -0.5055E-07, -0.4421E-08, & - -0.4423E-08, -0.4425E-08, -0.4428E-08, -0.4431E-08, -0.4444E-08, & - -0.4455E-08, -0.4474E-08, -0.4510E-08, -0.4563E-08, -0.4650E-08, & - -0.4809E-08, -0.5059E-08, -0.5475E-08, -0.6164E-08, -0.1349E-07, & - -0.1448E-07, -0.1640E-07, -0.2008E-07, -0.2608E-07, -0.3440E-07, & - -0.4443E-07, -0.5541E-07, -0.6663E-07, -0.7753E-07, -0.8745E-07, & - -0.4736E-08, -0.4740E-08, -0.4746E-08, -0.4756E-08, -0.4775E-08, & - -0.4800E-08, -0.4839E-08, -0.4898E-08, -0.4983E-08, -0.5110E-08, & - -0.5296E-08, -0.5553E-08, -0.5896E-08, -0.6365E-08, -0.7054E-08, & - -0.1443E-07, -0.1536E-07, -0.1768E-07, -0.2241E-07, -0.3053E-07, & - -0.4259E-07, -0.5821E-07, -0.7688E-07, -0.9770E-07, -0.1196E-06, & - -0.1414E-06, -0.5681E-08, -0.5692E-08, -0.5710E-08, -0.5741E-08, & - -0.5784E-08, -0.5848E-08, -0.5941E-08, -0.6082E-08, -0.6261E-08, & - -0.6492E-08, -0.6785E-08, -0.7132E-08, -0.7538E-08, -0.8052E-08, & - -0.8811E-08, -0.1374E-07, -0.1565E-07, -0.1932E-07, -0.2516E-07, & - -0.3418E-07, -0.4822E-07, -0.6868E-07, -0.9614E-07, -0.1299E-06, & - -0.1683E-06, -0.2095E-06, -0.8289E-08, -0.8314E-08, -0.8354E-08, & - -0.8418E-08, -0.8506E-08, -0.8640E-08, -0.8815E-08, -0.9046E-08, & - -0.9324E-08, -0.9643E-08, -0.9991E-08, -0.1035E-07, -0.1079E-07, & - -0.1142E-07, -0.1240E-07, -0.1386E-07, -0.1763E-07, -0.2229E-07, & - -0.2796E-07, -0.3619E-07, -0.5004E-07, -0.7282E-07, -0.1069E-06, & - -0.1533E-06, -0.2113E-06, -0.2790E-06, -0.1287E-07, -0.1292E-07, & - -0.1300E-07, -0.1310E-07, -0.1326E-07, -0.1346E-07, -0.1371E-07, & - -0.1400E-07, -0.1430E-07, -0.1461E-07, -0.1494E-07, -0.1538E-07, & - -0.1606E-07, -0.1711E-07, -0.1862E-07, -0.1673E-07, -0.2088E-07, & - -0.2508E-07, -0.3015E-07, -0.3766E-07, -0.5061E-07, -0.7208E-07, & - -0.1065E-06, -0.1584E-06, -0.2309E-06, -0.3241E-06, -0.1873E-07, & - -0.1882E-07, -0.1894E-07, -0.1910E-07, -0.1931E-07, -0.1957E-07, & - -0.1983E-07, -0.2009E-07, -0.2036E-07, -0.2069E-07, -0.2122E-07, & - -0.2211E-07, -0.2346E-07, -0.2533E-07, -0.2773E-07, -0.2237E-07, & - -0.2564E-07, -0.2940E-07, -0.3506E-07, -0.4313E-07, -0.5485E-07, & - -0.7176E-07, -0.9866E-07, -0.1425E-06, -0.2119E-06, -0.3135E-06, & - -0.2523E-07, -0.2536E-07, -0.2554E-07, -0.2575E-07, -0.2600E-07, & - -0.2627E-07, -0.2652E-07, -0.2683E-07, -0.2725E-07, -0.2796E-07, & - -0.2911E-07, -0.3079E-07, -0.3305E-07, -0.3597E-07, -0.3957E-07, & - -0.3248E-07, -0.3635E-07, -0.4200E-07, -0.4958E-07, -0.5817E-07, & - -0.6687E-07, -0.7562E-07, -0.8740E-07, -0.1093E-06, -0.1518E-06, & - -0.2269E-06, -0.3223E-07, -0.3242E-07, -0.3265E-07, -0.3293E-07, & - -0.3324E-07, -0.3357E-07, -0.3400E-07, -0.3463E-07, -0.3561E-07, & - -0.3702E-07, -0.3895E-07, -0.4142E-07, -0.4459E-07, -0.4862E-07, & - -0.5371E-07, -0.5050E-07, -0.5791E-07, -0.6717E-07, -0.7627E-07, & - -0.8299E-07, -0.8483E-07, -0.8110E-07, -0.7192E-07, -0.5972E-07, & - -0.5200E-07, -0.5896E-07, -0.3902E-07, -0.3927E-07, -0.3958E-07, & - -0.3998E-07, -0.4048E-07, -0.4114E-07, -0.4207E-07, -0.4334E-07, & - -0.4505E-07, -0.4717E-07, -0.4979E-07, -0.5303E-07, -0.5720E-07, & - -0.6259E-07, -0.6939E-07, -0.7743E-07, -0.8907E-07, -0.1002E-06, & - -0.1070E-06, -0.1072E-06, -0.9896E-07, -0.7934E-07, -0.4304E-07, & - 0.1426E-07, 0.9274E-07, 0.1875E-06, -0.4409E-07, -0.4449E-07, & - -0.4502E-07, -0.4572E-07, -0.4666E-07, -0.4793E-07, -0.4955E-07, & - -0.5153E-07, -0.5384E-07, -0.5662E-07, -0.6002E-07, -0.6437E-07, & - -0.6999E-07, -0.7708E-07, -0.8564E-07, -0.1097E-06, -0.1213E-06, & - -0.1286E-06, -0.1289E-06, -0.1195E-06, -0.9646E-07, -0.5365E-07, & - 0.1982E-07, 0.1347E-06, 0.2973E-06, 0.4996E-06, -0.4699E-07, & - -0.4767E-07, -0.4859E-07, -0.4980E-07, -0.5137E-07, -0.5330E-07, & - -0.5554E-07, -0.5811E-07, -0.6111E-07, -0.6484E-07, -0.6964E-07, & - -0.7566E-07, -0.8300E-07, -0.9150E-07, -0.1006E-06, -0.1369E-06, & - -0.1418E-06, -0.1402E-06, -0.1286E-06, -0.1031E-06, -0.5557E-07, & - 0.2483E-07, 0.1525E-06, 0.3364E-06, 0.5714E-06, 0.8299E-06, & - -0.4782E-07, -0.4889E-07, -0.5030E-07, -0.5211E-07, -0.5428E-07, & - -0.5676E-07, -0.5966E-07, -0.6305E-07, -0.6731E-07, -0.7271E-07, & - -0.7935E-07, -0.8703E-07, -0.9536E-07, -0.1035E-06, -0.1100E-06, & - -0.1463E-06, -0.1397E-06, -0.1216E-06, -0.8843E-07, -0.3275E-07, & - 0.5765E-07, 0.1959E-06, 0.3873E-06, 0.6209E-06, 0.8687E-06, & - 0.1115E-05, -0.4705E-07, -0.4857E-07, -0.5053E-07, -0.5287E-07, & - -0.5558E-07, -0.5873E-07, -0.6261E-07, -0.6749E-07, -0.7355E-07, & - -0.8079E-07, -0.8887E-07, -0.9700E-07, -0.1039E-06, -0.1079E-06, & - -0.1066E-06, -0.1268E-06, -0.1000E-06, -0.5487E-07, 0.1492E-07, & - 0.1215E-06, 0.2752E-06, 0.4731E-06, 0.6947E-06, 0.9169E-06, & - 0.1152E-05, 0.1467E-05, -0.4657E-07, -0.4860E-07, -0.5104E-07, & - -0.5390E-07, -0.5730E-07, -0.6152E-07, -0.6688E-07, -0.7346E-07, & - -0.8112E-07, -0.8928E-07, -0.9699E-07, -0.1025E-06, -0.1036E-06, & - -0.9742E-07, -0.8018E-07, -0.6424E-07, -0.4427E-08, 0.8418E-07, & - 0.2118E-06, 0.3835E-06, 0.5870E-06, 0.7954E-06, 0.1000E-05, & - 0.1243E-05, 0.1621E-05, 0.2236E-05, -0.4885E-07, -0.5132E-07, & - -0.5427E-07, -0.5782E-07, -0.6228E-07, -0.6783E-07, -0.7454E-07, & - -0.8208E-07, -0.8978E-07, -0.9634E-07, -0.9967E-07, -0.9718E-07, & - -0.8526E-07, -0.5928E-07, -0.1228E-07, 0.5941E-07, 0.1713E-06, & - 0.3246E-06, 0.5155E-06, 0.7220E-06, 0.9188E-06, 0.1123E-05, & - 0.1409E-05, 0.1883E-05, 0.2634E-05, 0.3672E-05, -0.5550E-07, & - -0.5847E-07, -0.6204E-07, -0.6650E-07, -0.7197E-07, -0.7834E-07, & - -0.8521E-07, -0.9173E-07, -0.9616E-07, -0.9625E-07, -0.8883E-07, & - -0.6973E-07, -0.3316E-07, 0.2892E-07, 0.1263E-06, 0.2742E-06, & - 0.4536E-06, 0.6610E-06, 0.8665E-06, 0.1062E-05, 0.1291E-05, & - 0.1652E-05, 0.2253E-05, 0.3145E-05, 0.4310E-05, 0.5668E-05, & - -0.6619E-07, -0.6968E-07, -0.7388E-07, -0.7892E-07, -0.8455E-07, & - -0.9023E-07, -0.9470E-07, -0.9603E-07, -0.9157E-07, -0.7776E-07, & - -0.4988E-07, -0.5265E-09, 0.7909E-07, 0.1998E-06, 0.3678E-06, & - 0.5924E-06, 0.8086E-06, 0.1013E-05, 0.1220E-05, 0.1504E-05, & - 0.1971E-05, 0.2711E-05, 0.3739E-05, 0.5011E-05, 0.6418E-05, & - 0.7772E-05, -0.7656E-07, -0.8037E-07, -0.8477E-07, -0.8940E-07, & - -0.9347E-07, -0.9530E-07, -0.9275E-07, -0.8264E-07, -0.6114E-07, & - -0.2242E-07, 0.4156E-07, 0.1413E-06, 0.2865E-06, 0.4789E-06, & - 0.7022E-06, 0.9445E-06, 0.1153E-05, 0.1394E-05, 0.1765E-05, & - 0.2367E-05, 0.3251E-05, 0.4402E-05, 0.5744E-05, 0.7136E-05, & - 0.8347E-05, 0.9094E-05, -0.8027E-07, -0.8400E-07, -0.8760E-07, & - -0.8980E-07, -0.8867E-07, -0.8162E-07, -0.6525E-07, -0.3505E-07, & - 0.1622E-07, 0.9745E-07, 0.2197E-06, 0.3895E-06, 0.6013E-06, & - 0.8298E-06, 0.1049E-05, 0.1286E-05, 0.1588E-05, 0.2073E-05, & - 0.2825E-05, 0.3854E-05, 0.5115E-05, 0.6498E-05, 0.7812E-05, & - 0.8785E-05, 0.9162E-05, 0.8827E-05, -0.7261E-07, -0.7521E-07, & - -0.7545E-07, -0.7119E-07, -0.5945E-07, -0.3634E-07, 0.3686E-08, & - 0.6878E-07, 0.1694E-06, 0.3152E-06, 0.5081E-06, 0.7321E-06, & - 0.9580E-06, 0.1172E-05, 0.1411E-05, 0.1819E-05, 0.2437E-05, & - 0.3337E-05, 0.4498E-05, 0.5842E-05, 0.7221E-05, 0.8392E-05, & - 0.9067E-05, 0.9048E-05, 0.8319E-05, 0.7041E-05, -0.4983E-07, & - -0.4830E-07, -0.4099E-07, -0.2452E-07, 0.5512E-08, 0.5638E-07, & - 0.1371E-06, 0.2586E-06, 0.4277E-06, 0.6388E-06, 0.8667E-06, & - 0.1085E-05, 0.1303E-05, 0.1583E-05, 0.2015E-05, 0.2867E-05, & - 0.3905E-05, 0.5175E-05, 0.6563E-05, 0.7875E-05, 0.8825E-05, & - 0.9154E-05, 0.8746E-05, 0.7686E-05, 0.6209E-05, 0.4638E-05, & - -0.1101E-07, -0.7562E-09, 0.2046E-07, 0.5823E-07, 0.1209E-06, & - 0.2189E-06, 0.3623E-06, 0.5530E-06, 0.7751E-06, 0.9992E-06, & - 0.1212E-05, 0.1449E-05, 0.1792E-05, 0.2329E-05, 0.3099E-05, & - 0.4527E-05, 0.5874E-05, 0.7255E-05, 0.8422E-05, 0.9082E-05, & - 0.9032E-05, 0.8261E-05, 0.6940E-05, 0.5368E-05, 0.3844E-05, & - 0.2539E-05],[26,31]) - - real, dimension(26,31) :: h81 = reshape([ & - 0.99998659, 0.99998659, 0.99998659, 0.99998659, 0.99998659, & - 0.99998659, 0.99998659, 0.99998659, 0.99998659, 0.99998659, & - 0.99998659, 0.99998659, 0.99998653, 0.99998653, 0.99998653, & - 0.99998647, 0.99998647, 0.99998647, 0.99998641, 0.99998641, & - 0.99998641, 0.99998635, 0.99998635, 0.99998635, 0.99998635, & - 0.99998635, 0.99997360, 0.99997360, 0.99997360, 0.99997360, & - 0.99997360, 0.99997360, 0.99997360, 0.99997360, 0.99997360, & - 0.99997360, 0.99997354, 0.99997354, 0.99997348, 0.99997348, & - 0.99997336, 0.99997330, 0.99997318, 0.99997312, 0.99997300, & - 0.99997294, 0.99997288, 0.99997288, 0.99997282, 0.99997282, & - 0.99997282, 0.99997282, 0.99994862, 0.99994862, 0.99994862, & - 0.99994862, 0.99994862, 0.99994862, 0.99994862, 0.99994856, & - 0.99994856, 0.99994850, 0.99994850, 0.99994838, 0.99994826, & - 0.99994808, 0.99994785, 0.99994755, 0.99994719, 0.99994683, & - 0.99994648, 0.99994624, 0.99994606, 0.99994594, 0.99994588, & - 0.99994582, 0.99994582, 0.99994576, 0.99990171, 0.99990171, & - 0.99990171, 0.99990171, 0.99990165, 0.99990165, 0.99990165, & - 0.99990159, 0.99990153, 0.99990141, 0.99990124, 0.99990094, & - 0.99990052, 0.99989992, 0.99989909, 0.99989808, 0.99989688, & - 0.99989569, 0.99989462, 0.99989372, 0.99989301, 0.99989259, & - 0.99989229, 0.99989212, 0.99989200, 0.99989188, 0.99981678, & - 0.99981678, 0.99981678, 0.99981678, 0.99981672, 0.99981672, & - 0.99981660, 0.99981642, 0.99981618, 0.99981582, 0.99981529, & - 0.99981439, 0.99981320, 0.99981129, 0.99980879, 0.99980563, & - 0.99980187, 0.99979800, 0.99979430, 0.99979132, 0.99978900, & - 0.99978727, 0.99978608, 0.99978542, 0.99978489, 0.99978459, & - 0.99967158, 0.99967158, 0.99967152, 0.99967140, 0.99967128, & - 0.99967122, 0.99967092, 0.99967051, 0.99966979, 0.99966878, & - 0.99966723, 0.99966472, 0.99966109, 0.99965578, 0.99964851, & - 0.99963909, 0.99962789, 0.99961591, 0.99960452, 0.99959481, & - 0.99958712, 0.99958128, 0.99957722, 0.99957442, 0.99957252, & - 0.99957132, 0.99944150, 0.99944139, 0.99944133, 0.99944109, & - 0.99944091, 0.99944037, 0.99943972, 0.99943858, 0.99943691, & - 0.99943417, 0.99942988, 0.99942350, 0.99941391, 0.99939990, & - 0.99938041, 0.99935490, 0.99932390, 0.99928999, 0.99925661, & - 0.99922693, 0.99920273, 0.99918407, 0.99917048, 0.99916071, & - 0.99915391, 0.99914938, 0.99910933, 0.99910921, 0.99910891, & - 0.99910849, 0.99910778, 0.99910682, 0.99910510, 0.99910247, & - 0.99909842, 0.99909198, 0.99908209, 0.99906689, 0.99904412, & - 0.99901080, 0.99896401, 0.99890202, 0.99882400, 0.99873698, & - 0.99864697, 0.99856299, 0.99849200, 0.99843502, 0.99839097, & - 0.99835902, 0.99833602, 0.99831998, 0.99867302, 0.99867302, & - 0.99867201, 0.99867100, 0.99866998, 0.99866802, 0.99866402, & - 0.99865901, 0.99865001, 0.99863601, 0.99861503, 0.99858302, & - 0.99853402, 0.99846399, 0.99836302, 0.99822801, 0.99805701, & - 0.99785602, 0.99763900, 0.99742502, 0.99723101, 0.99706697, & - 0.99693698, 0.99683702, 0.99676299, 0.99670899, 0.99814397, & - 0.99814397, 0.99814302, 0.99814099, 0.99813801, 0.99813402, & - 0.99812698, 0.99811602, 0.99809903, 0.99807203, 0.99803102, & - 0.99796802, 0.99787498, 0.99773800, 0.99754399, 0.99728203, & - 0.99694502, 0.99653602, 0.99607199, 0.99558598, 0.99511403, & - 0.99468601, 0.99432403, 0.99403203, 0.99380499, 0.99363601, & - 0.99753898, 0.99753797, 0.99753499, 0.99753201, 0.99752700, & - 0.99751902, 0.99750602, 0.99748600, 0.99745399, 0.99740499, & - 0.99732900, 0.99721497, 0.99704498, 0.99680001, 0.99645603, & - 0.99599099, 0.99538797, 0.99464101, 0.99376297, 0.99278802, & - 0.99177098, 0.99077803, 0.98987001, 0.98908001, 0.98843998, & - 0.98794001, 0.99686199, 0.99686003, 0.99685597, 0.99685001, & - 0.99684101, 0.99682599, 0.99680197, 0.99676597, 0.99670798, & - 0.99662101, 0.99648702, 0.99628800, 0.99599600, 0.99558002, & - 0.99500400, 0.99423301, 0.99323398, 0.99198103, 0.99046898, & - 0.98872000, 0.98677999, 0.98474997, 0.98273998, 0.98084998, & - 0.97920001, 0.97781998, 0.99610198, 0.99609798, 0.99609101, & - 0.99607998, 0.99606299, 0.99603701, 0.99599499, 0.99592900, & - 0.99582899, 0.99567503, 0.99544603, 0.99510801, 0.99462402, & - 0.99394703, 0.99302697, 0.99181002, 0.99023998, 0.98825997, & - 0.98584002, 0.98295999, 0.97962999, 0.97593999, 0.97201002, & - 0.96805000, 0.96427000, 0.96087998, 0.99523401, 0.99522603, & - 0.99521297, 0.99519402, 0.99516302, 0.99511498, 0.99504000, & - 0.99492502, 0.99475002, 0.99448699, 0.99409997, 0.99354398, & - 0.99276501, 0.99169999, 0.99027801, 0.98842001, 0.98604000, & - 0.98306000, 0.97937000, 0.97491002, 0.96961999, 0.96350998, & - 0.95668000, 0.94933999, 0.94182003, 0.93456000, 0.99421698, & - 0.99420297, 0.99418002, 0.99414498, 0.99408901, 0.99400300, & - 0.99387002, 0.99366802, 0.99336600, 0.99292302, 0.99228698, & - 0.99139601, 0.99017602, 0.98853999, 0.98640001, 0.98364002, & - 0.98013997, 0.97574002, 0.97031999, 0.96368998, 0.95573002, & - 0.94633001, 0.93548000, 0.92330998, 0.91018999, 0.89670002, & - 0.99299300, 0.99296701, 0.99292499, 0.99286002, 0.99276000, & - 0.99260598, 0.99237198, 0.99202400, 0.99151403, 0.99078500, & - 0.98977000, 0.98838001, 0.98651999, 0.98408002, 0.98092002, & - 0.97689003, 0.97182000, 0.96548998, 0.95766997, 0.94812000, & - 0.93658000, 0.92282999, 0.90671998, 0.88830000, 0.86769998, & - 0.84560001, 0.99147898, 0.99142998, 0.99135399, 0.99123698, & - 0.99105698, 0.99078500, 0.99038202, 0.98979002, 0.98896003, & - 0.98780000, 0.98620999, 0.98409998, 0.98133999, 0.97776002, & - 0.97319001, 0.96740001, 0.96016002, 0.95117003, 0.94010001, & - 0.92662001, 0.91036999, 0.89100003, 0.86830002, 0.84219998, & - 0.81260002, 0.78020000, 0.98958999, 0.98949999, 0.98935997, & - 0.98914999, 0.98882997, 0.98835999, 0.98768002, 0.98672003, & - 0.98540002, 0.98360002, 0.98120999, 0.97807997, 0.97403997, & - 0.96888000, 0.96234000, 0.95414001, 0.94391000, 0.93129998, & - 0.91588002, 0.89719999, 0.87500000, 0.84860003, 0.81800002, & - 0.78270000, 0.74300003, 0.69920003, 0.98721999, 0.98706001, & - 0.98681003, 0.98644000, 0.98588997, 0.98510998, 0.98400998, & - 0.98249000, 0.98044997, 0.97773999, 0.97421998, 0.96967000, & - 0.96386999, 0.95652002, 0.94727999, 0.93575001, 0.92149997, & - 0.90407002, 0.88300002, 0.85780001, 0.82800001, 0.79330003, & - 0.75330001, 0.70809996, 0.65770000, 0.60299999, 0.98430002, & - 0.98400998, 0.98356998, 0.98293000, 0.98202002, 0.98075998, & - 0.97903001, 0.97671002, 0.97364998, 0.96968001, 0.96458000, & - 0.95806998, 0.94984001, 0.93949002, 0.92657000, 0.91060001, & - 0.89100003, 0.86739999, 0.83920002, 0.80599999, 0.76730001, & - 0.72299999, 0.67299998, 0.61759996, 0.55750000, 0.49400002, & - 0.98071998, 0.98021001, 0.97947001, 0.97842002, 0.97696000, & - 0.97499001, 0.97236001, 0.96890998, 0.96445000, 0.95872998, & - 0.95146000, 0.94226003, 0.93071002, 0.91631001, 0.89850003, & - 0.87680000, 0.85049999, 0.81910002, 0.78230000, 0.73969996, & - 0.69110000, 0.63670003, 0.57720000, 0.51330000, 0.44660002, & - 0.37910002, 0.97639000, 0.97552001, 0.97430998, 0.97263998, & - 0.97039002, 0.96741998, 0.96354002, 0.95854002, 0.95213997, & - 0.94401997, 0.93378001, 0.92093998, 0.90495998, 0.88529998, & - 0.86119998, 0.83219999, 0.79769999, 0.75720000, 0.71060002, & - 0.65779996, 0.59930003, 0.53600001, 0.46920002, 0.40079999, & - 0.33310002, 0.26889998, 0.97115999, 0.96976000, 0.96784997, & - 0.96529001, 0.96192998, 0.95757002, 0.95196998, 0.94483000, & - 0.93579000, 0.92440999, 0.91017002, 0.89249998, 0.87080002, & - 0.84439999, 0.81260002, 0.77490002, 0.73089999, 0.68040001, & - 0.62360001, 0.56130004, 0.49479997, 0.42580003, 0.35659999, & - 0.29000002, 0.22860003, 0.17460001, 0.96480000, 0.96262002, & - 0.95972002, 0.95592999, 0.95104003, 0.94476998, 0.93681002, & - 0.92675000, 0.91412002, 0.89840001, 0.87889999, 0.85510004, & - 0.82620001, 0.79159999, 0.75080001, 0.70330000, 0.64919996, & - 0.58880001, 0.52320004, 0.45410001, 0.38370001, 0.31470001, & - 0.25010002, 0.19239998, 0.14319998, 0.10280001, 0.95695001, & - 0.95367002, 0.94941002, 0.94392002, 0.93691999, 0.92804998, & - 0.91688001, 0.90289998, 0.88550001, 0.86409998, 0.83810002, & - 0.80659997, 0.76910001, 0.72510004, 0.67429996, 0.61689997, & - 0.55350000, 0.48530000, 0.41450000, 0.34369999, 0.27590001, & - 0.21410000, 0.16049999, 0.11619997, 0.08090001, 0.05379999, & - 0.94713998, 0.94234002, 0.93620002, 0.92839003, 0.91851997, & - 0.90613002, 0.89069998, 0.87160003, 0.84810001, 0.81959999, & - 0.78549999, 0.74510002, 0.69790000, 0.64390004, 0.58350003, & - 0.51750004, 0.44760001, 0.37610000, 0.30589998, 0.24030000, & - 0.18210000, 0.13300002, 0.09350002, 0.06300002, 0.04030001, & - 0.02429998, 0.93469000, 0.92781997, 0.91912001, 0.90815997, & - 0.89440000, 0.87739998, 0.85640001, 0.83069998, 0.79970002, & - 0.76279998, 0.71930003, 0.66909999, 0.61199999, 0.54890001, & - 0.48089999, 0.40990001, 0.33870000, 0.27029997, 0.20789999, & - 0.15390003, 0.10949999, 0.07470000, 0.04850000, 0.02980000, & - 0.01719999, 0.00929999, 0.91873002, 0.90903997, 0.89690000, & - 0.88169998, 0.86290002, 0.83990002, 0.81190002, 0.77829999, & - 0.73850000, 0.69190001, 0.63859999, 0.57870001, 0.51320004, & - 0.44379997, 0.37250000, 0.30239999, 0.23670000, 0.17830002, & - 0.12900001, 0.08950001, 0.05919999, 0.03710002, 0.02179998, & - 0.01200002, 0.00620002, 0.00300002, 0.89810002, 0.88459998, & - 0.86790001, 0.84720004, 0.82200003, 0.79159999, 0.75520003, & - 0.71239996, 0.66280001, 0.60650003, 0.54409999, 0.47680002, & - 0.40640002, 0.33560002, 0.26760000, 0.20539999, 0.15149999, & - 0.10720003, 0.07239997, 0.04640001, 0.02800000, 0.01580000, & - 0.00840002, 0.00410002, 0.00190002, 0.00080001, 0.87129998, & - 0.85290003, 0.83020002, 0.80269998, 0.76969999, 0.73049998, & - 0.68470001, 0.63209999, 0.57309997, 0.50839996, 0.43970001, & - 0.36919999, 0.29970002, 0.23449999, 0.17650002, 0.12750000, & - 0.08810002, 0.05790001, 0.03590000, 0.02090001, 0.01130003, & - 0.00580001, 0.00269997, 0.00120002, 0.00040001, 0.00010002, & - 0.83679998, 0.81200004, 0.78210002, 0.74629998, 0.70420003, & - 0.65540004, 0.59990001, 0.53839999, 0.47189999, 0.40249997, & - 0.33249998, 0.26520002, 0.20359999, 0.15009999, 0.10610002, & - 0.07150000, 0.04570001, 0.02740002, 0.01539999, 0.00800002, & - 0.00389999, 0.00169998, 0.00070000, 0.00019997, 0.00000000, & - 0.00000000],[26,31]) - - real, dimension(26,31) :: h82 = reshape([ & - -0.5685E-08, -0.5684E-08, -0.5682E-08, -0.5680E-08, -0.5675E-08, & - -0.5671E-08, -0.5665E-08, -0.5652E-08, -0.5629E-08, -0.5597E-08, & - -0.5538E-08, -0.5476E-08, -0.5362E-08, -0.5210E-08, -0.5045E-08, & - -0.4850E-08, -0.4673E-08, -0.4532E-08, -0.4448E-08, -0.4403E-08, & - -0.4379E-08, -0.4366E-08, -0.4359E-08, -0.4354E-08, -0.4352E-08, & - -0.4351E-08, -0.1331E-07, -0.1331E-07, -0.1330E-07, -0.1329E-07, & - -0.1328E-07, -0.1326E-07, -0.1322E-07, -0.1318E-07, -0.1310E-07, & - -0.1300E-07, -0.1280E-07, -0.1257E-07, -0.1223E-07, -0.1172E-07, & - -0.1113E-07, -0.1045E-07, -0.9862E-08, -0.9395E-08, -0.9085E-08, & - -0.8896E-08, -0.8801E-08, -0.8749E-08, -0.8720E-08, -0.8703E-08, & - -0.8693E-08, -0.8688E-08, -0.3249E-07, -0.3248E-07, -0.3247E-07, & - -0.3243E-07, -0.3239E-07, -0.3234E-07, -0.3224E-07, -0.3210E-07, & - -0.3186E-07, -0.3148E-07, -0.3089E-07, -0.3008E-07, -0.2895E-07, & - -0.2731E-07, -0.2540E-07, -0.2334E-07, -0.2135E-07, -0.1978E-07, & - -0.1877E-07, -0.1818E-07, -0.1782E-07, -0.1761E-07, -0.1749E-07, & - -0.1742E-07, -0.1738E-07, -0.1736E-07, -0.8137E-07, -0.8133E-07, & - -0.8129E-07, -0.8121E-07, -0.8110E-07, -0.8091E-07, -0.8063E-07, & - -0.8018E-07, -0.7948E-07, -0.7838E-07, -0.7667E-07, -0.7418E-07, & - -0.7071E-07, -0.6598E-07, -0.6008E-07, -0.5367E-07, -0.4753E-07, & - -0.4272E-07, -0.3946E-07, -0.3751E-07, -0.3642E-07, -0.3578E-07, & - -0.3527E-07, -0.3499E-07, -0.3483E-07, -0.3473E-07, -0.2048E-06, & - -0.2047E-06, -0.2046E-06, -0.2044E-06, -0.2040E-06, -0.2035E-06, & - -0.2027E-06, -0.2014E-06, -0.1995E-06, -0.1964E-06, -0.1917E-06, & - -0.1848E-06, -0.1748E-06, -0.1615E-06, -0.1449E-06, -0.1265E-06, & - -0.1087E-06, -0.9442E-07, -0.8472E-07, -0.7880E-07, -0.7536E-07, & - -0.7322E-07, -0.7175E-07, -0.7074E-07, -0.7006E-07, -0.6966E-07, & - -0.4973E-06, -0.4971E-06, -0.4968E-06, -0.4963E-06, -0.4954E-06, & - -0.4941E-06, -0.4921E-06, -0.4888E-06, -0.4837E-06, -0.4759E-06, & - -0.4642E-06, -0.4468E-06, -0.4219E-06, -0.3880E-06, -0.3457E-06, & - -0.2980E-06, -0.2512E-06, -0.2124E-06, -0.1852E-06, -0.1683E-06, & - -0.1581E-06, -0.1517E-06, -0.1473E-06, -0.1441E-06, -0.1423E-06, & - -0.1405E-06, -0.1118E-05, -0.1117E-05, -0.1117E-05, -0.1115E-05, & - -0.1114E-05, -0.1111E-05, -0.1106E-05, -0.1099E-05, -0.1088E-05, & - -0.1071E-05, -0.1045E-05, -0.1006E-05, -0.9516E-06, -0.8769E-06, & - -0.7826E-06, -0.6750E-06, -0.5671E-06, -0.4747E-06, -0.4074E-06, & - -0.3640E-06, -0.3366E-06, -0.3189E-06, -0.3062E-06, -0.2971E-06, & - -0.2905E-06, -0.2857E-06, -0.2246E-05, -0.2245E-05, -0.2244E-05, & - -0.2242E-05, -0.2238E-05, -0.2232E-05, -0.2223E-05, -0.2210E-05, & - -0.2188E-05, -0.2155E-05, -0.2106E-05, -0.2032E-05, -0.1928E-05, & - -0.1787E-05, -0.1609E-05, -0.1406E-05, -0.1199E-05, -0.1017E-05, & - -0.8791E-06, -0.7852E-06, -0.7227E-06, -0.6785E-06, -0.6451E-06, & - -0.6195E-06, -0.6008E-06, -0.5867E-06, -0.3982E-05, -0.3981E-05, & - -0.3978E-05, -0.3974E-05, -0.3968E-05, -0.3958E-05, -0.3942E-05, & - -0.3918E-05, -0.3880E-05, -0.3822E-05, -0.3736E-05, -0.3611E-05, & - -0.3436E-05, -0.3204E-05, -0.2920E-05, -0.2601E-05, -0.2281E-05, & - -0.2003E-05, -0.1789E-05, -0.1640E-05, -0.1532E-05, -0.1446E-05, & - -0.1372E-05, -0.1309E-05, -0.1258E-05, -0.1218E-05, -0.6290E-05, & - -0.6287E-05, -0.6283E-05, -0.6276E-05, -0.6265E-05, -0.6247E-05, & - -0.6220E-05, -0.6179E-05, -0.6115E-05, -0.6019E-05, -0.5878E-05, & - -0.5679E-05, -0.5409E-05, -0.5066E-05, -0.4665E-05, -0.4239E-05, & - -0.3842E-05, -0.3524E-05, -0.3314E-05, -0.3191E-05, -0.3106E-05, & - -0.3014E-05, -0.2902E-05, -0.2780E-05, -0.2663E-05, -0.2563E-05, & - -0.9040E-05, -0.9035E-05, -0.9027E-05, -0.9015E-05, -0.8996E-05, & - -0.8966E-05, -0.8920E-05, -0.8849E-05, -0.8743E-05, -0.8586E-05, & - -0.8363E-05, -0.8058E-05, -0.7666E-05, -0.7197E-05, -0.6691E-05, & - -0.6201E-05, -0.5804E-05, -0.5567E-05, -0.5521E-05, -0.5634E-05, & - -0.5810E-05, -0.5933E-05, -0.5936E-05, -0.5823E-05, -0.5638E-05, & - -0.5435E-05, -0.1215E-04, -0.1215E-04, -0.1213E-04, -0.1211E-04, & - -0.1208E-04, -0.1202E-04, -0.1194E-04, -0.1182E-04, -0.1165E-04, & - -0.1139E-04, -0.1104E-04, -0.1059E-04, -0.1005E-04, -0.9451E-05, & - -0.8868E-05, -0.8389E-05, -0.8110E-05, -0.8108E-05, -0.8425E-05, & - -0.9046E-05, -0.9862E-05, -0.1069E-04, -0.1133E-04, -0.1165E-04, & - -0.1165E-04, -0.1144E-04, -0.1567E-04, -0.1565E-04, -0.1563E-04, & - -0.1559E-04, -0.1553E-04, -0.1544E-04, -0.1530E-04, -0.1509E-04, & - -0.1480E-04, -0.1439E-04, -0.1387E-04, -0.1324E-04, -0.1254E-04, & - -0.1185E-04, -0.1127E-04, -0.1091E-04, -0.1088E-04, -0.1127E-04, & - -0.1215E-04, -0.1355E-04, -0.1540E-04, -0.1755E-04, -0.1971E-04, & - -0.2152E-04, -0.2270E-04, -0.2321E-04, -0.1970E-04, -0.1967E-04, & - -0.1963E-04, -0.1956E-04, -0.1945E-04, -0.1929E-04, -0.1905E-04, & - -0.1871E-04, -0.1824E-04, -0.1764E-04, -0.1692E-04, -0.1612E-04, & - -0.1533E-04, -0.1465E-04, -0.1422E-04, -0.1413E-04, -0.1452E-04, & - -0.1547E-04, -0.1711E-04, -0.1953E-04, -0.2279E-04, -0.2683E-04, & - -0.3143E-04, -0.3616E-04, -0.4044E-04, -0.4379E-04, -0.2449E-04, & - -0.2444E-04, -0.2436E-04, -0.2423E-04, -0.2404E-04, -0.2377E-04, & - -0.2337E-04, -0.2284E-04, -0.2216E-04, -0.2134E-04, -0.2044E-04, & - -0.1956E-04, -0.1880E-04, -0.1831E-04, -0.1820E-04, -0.1859E-04, & - -0.1961E-04, -0.2138E-04, -0.2407E-04, -0.2786E-04, -0.3292E-04, & - -0.3936E-04, -0.4715E-04, -0.5604E-04, -0.6554E-04, -0.7487E-04, & - -0.3046E-04, -0.3036E-04, -0.3021E-04, -0.2999E-04, -0.2966E-04, & - -0.2921E-04, -0.2860E-04, -0.2782E-04, -0.2691E-04, -0.2591E-04, & - -0.2493E-04, -0.2411E-04, -0.2358E-04, -0.2346E-04, -0.2389E-04, & - -0.2500E-04, -0.2696E-04, -0.2996E-04, -0.3421E-04, -0.3995E-04, & - -0.4738E-04, -0.5675E-04, -0.6833E-04, -0.8230E-04, -0.9855E-04, & - -0.1163E-03, -0.3798E-04, -0.3780E-04, -0.3754E-04, -0.3716E-04, & - -0.3663E-04, -0.3593E-04, -0.3505E-04, -0.3403E-04, -0.3293E-04, & - -0.3188E-04, -0.3101E-04, -0.3046E-04, -0.3038E-04, -0.3088E-04, & - -0.3213E-04, -0.3432E-04, -0.3768E-04, -0.4251E-04, -0.4905E-04, & - -0.5752E-04, -0.6817E-04, -0.8137E-04, -0.9759E-04, -0.1173E-03, & - -0.1407E-03, -0.1670E-03, -0.4725E-04, -0.4694E-04, -0.4649E-04, & - -0.4588E-04, -0.4508E-04, -0.4409E-04, -0.4296E-04, -0.4177E-04, & - -0.4067E-04, -0.3978E-04, -0.3926E-04, -0.3925E-04, -0.3988E-04, & - -0.4132E-04, -0.4380E-04, -0.4761E-04, -0.5311E-04, -0.6059E-04, & - -0.7032E-04, -0.8256E-04, -0.9765E-04, -0.1160E-03, -0.1379E-03, & - -0.1635E-03, -0.1928E-03, -0.2250E-03, -0.5831E-04, -0.5779E-04, & - -0.5709E-04, -0.5618E-04, -0.5508E-04, -0.5385E-04, -0.5259E-04, & - -0.5145E-04, -0.5057E-04, -0.5011E-04, -0.5020E-04, -0.5098E-04, & - -0.5264E-04, -0.5545E-04, -0.5975E-04, -0.6595E-04, -0.7444E-04, & - -0.8563E-04, -0.9985E-04, -0.1174E-03, -0.1384E-03, -0.1630E-03, & - -0.1907E-03, -0.2211E-03, -0.2534E-03, -0.2876E-03, -0.7123E-04, & - -0.7042E-04, -0.6940E-04, -0.6818E-04, -0.6686E-04, -0.6555E-04, & - -0.6439E-04, -0.6354E-04, -0.6314E-04, -0.6334E-04, -0.6429E-04, & - -0.6619E-04, -0.6934E-04, -0.7410E-04, -0.8092E-04, -0.9030E-04, & - -0.1028E-03, -0.1190E-03, -0.1394E-03, -0.1638E-03, -0.1918E-03, & - -0.2223E-03, -0.2542E-03, -0.2868E-03, -0.3197E-03, -0.3535E-03, & - -0.8605E-04, -0.8491E-04, -0.8359E-04, -0.8218E-04, -0.8082E-04, & - -0.7965E-04, -0.7884E-04, -0.7853E-04, -0.7885E-04, -0.7998E-04, & - -0.8213E-04, -0.8562E-04, -0.9083E-04, -0.9820E-04, -0.1083E-03, & - -0.1219E-03, -0.1397E-03, -0.1623E-03, -0.1897E-03, -0.2211E-03, & - -0.2551E-03, -0.2899E-03, -0.3239E-03, -0.3567E-03, -0.3890E-03, & - -0.4215E-03, -0.1028E-03, -0.1013E-03, -0.9986E-04, -0.9847E-04, & - -0.9732E-04, -0.9656E-04, -0.9635E-04, -0.9681E-04, -0.9813E-04, & - -0.1006E-03, -0.1044E-03, -0.1100E-03, -0.1179E-03, -0.1288E-03, & - -0.1433E-03, -0.1624E-03, -0.1865E-03, -0.2156E-03, -0.2491E-03, & - -0.2854E-03, -0.3226E-03, -0.3589E-03, -0.3935E-03, -0.4260E-03, & - -0.4563E-03, -0.4826E-03, -0.1212E-03, -0.1196E-03, -0.1182E-03, & - -0.1171E-03, -0.1165E-03, -0.1163E-03, -0.1170E-03, -0.1185E-03, & - -0.1212E-03, -0.1253E-03, -0.1314E-03, -0.1399E-03, -0.1515E-03, & - -0.1670E-03, -0.1873E-03, -0.2126E-03, -0.2427E-03, -0.2767E-03, & - -0.3132E-03, -0.3507E-03, -0.3876E-03, -0.4230E-03, -0.4559E-03, & - -0.4844E-03, -0.5040E-03, -0.5082E-03, -0.1413E-03, -0.1399E-03, & - -0.1388E-03, -0.1382E-03, -0.1382E-03, -0.1390E-03, -0.1407E-03, & - -0.1437E-03, -0.1482E-03, -0.1547E-03, -0.1637E-03, -0.1761E-03, & - -0.1927E-03, -0.2140E-03, -0.2402E-03, -0.2708E-03, -0.3047E-03, & - -0.3403E-03, -0.3763E-03, -0.4116E-03, -0.4452E-03, -0.4755E-03, & - -0.4991E-03, -0.5097E-03, -0.4998E-03, -0.4649E-03, -0.1635E-03, & - -0.1625E-03, -0.1620E-03, -0.1621E-03, -0.1630E-03, -0.1649E-03, & - -0.1681E-03, -0.1729E-03, -0.1799E-03, -0.1895E-03, -0.2027E-03, & - -0.2202E-03, -0.2424E-03, -0.2692E-03, -0.2997E-03, -0.3327E-03, & - -0.3667E-03, -0.4006E-03, -0.4332E-03, -0.4633E-03, -0.4883E-03, & - -0.5031E-03, -0.5009E-03, -0.4750E-03, -0.4249E-03, -0.3564E-03, & - -0.1884E-03, -0.1879E-03, -0.1882E-03, -0.1892E-03, -0.1913E-03, & - -0.1947E-03, -0.1998E-03, -0.2072E-03, -0.2175E-03, -0.2315E-03, & - -0.2498E-03, -0.2726E-03, -0.2994E-03, -0.3293E-03, -0.3607E-03, & - -0.3926E-03, -0.4237E-03, -0.4530E-03, -0.4786E-03, -0.4966E-03, & - -0.5005E-03, -0.4834E-03, -0.4414E-03, -0.3779E-03, -0.3025E-03, & - -0.2264E-03, -0.2160E-03, -0.2163E-03, -0.2175E-03, -0.2197E-03, & - -0.2234E-03, -0.2288E-03, -0.2366E-03, -0.2475E-03, -0.2622E-03, & - -0.2811E-03, -0.3042E-03, -0.3306E-03, -0.3591E-03, -0.3886E-03, & - -0.4178E-03, -0.4458E-03, -0.4712E-03, -0.4912E-03, -0.5005E-03, & - -0.4921E-03, -0.4598E-03, -0.4036E-03, -0.3306E-03, -0.2522E-03, & - -0.1794E-03, -0.1188E-03, -0.2461E-03, -0.2474E-03, -0.2498E-03, & - -0.2535E-03, -0.2593E-03, -0.2675E-03, -0.2790E-03, -0.2942E-03, & - -0.3135E-03, -0.3363E-03, -0.3617E-03, -0.3885E-03, -0.4155E-03, & - -0.4417E-03, -0.4662E-03, -0.4871E-03, -0.5003E-03, -0.4995E-03, & - -0.4775E-03, -0.4309E-03, -0.3633E-03, -0.2849E-03, -0.2077E-03, & - -0.1409E-03, -0.8860E-04, -0.5128E-04, -0.2778E-03, -0.2803E-03, & - -0.2843E-03, -0.2902E-03, -0.2989E-03, -0.3109E-03, -0.3265E-03, & - -0.3457E-03, -0.3678E-03, -0.3917E-03, -0.4163E-03, -0.4404E-03, & - -0.4634E-03, -0.4840E-03, -0.4994E-03, -0.5045E-03, -0.4921E-03, & - -0.4563E-03, -0.3970E-03, -0.3215E-03, -0.2416E-03, -0.1687E-03, & - -0.1093E-03, -0.6540E-04, -0.3575E-04, -0.1758E-04, -0.3098E-03, & - -0.3140E-03, -0.3203E-03, -0.3293E-03, -0.3417E-03, -0.3575E-03, & - -0.3763E-03, -0.3973E-03, -0.4193E-03, -0.4413E-03, -0.4625E-03, & - -0.4820E-03, -0.4982E-03, -0.5073E-03, -0.5028E-03, -0.4777E-03, & - -0.4286E-03, -0.3592E-03, -0.2794E-03, -0.2016E-03, -0.1349E-03, & - -0.8356E-04, -0.4754E-04, -0.2449E-04, -0.1122E-04, -0.4431E-05, & - -0.3411E-03, -0.3478E-03, -0.3573E-03, -0.3700E-03, -0.3857E-03, & - -0.4039E-03, -0.4235E-03, -0.4434E-03, -0.4627E-03, -0.4809E-03, & - -0.4969E-03, -0.5082E-03, -0.5096E-03, -0.4944E-03, -0.4563E-03, & - -0.3954E-03, -0.3188E-03, -0.2383E-03, -0.1652E-03, -0.1061E-03, & - -0.6278E-04, -0.3388E-04, -0.1642E-04, -0.6948E-05, -0.2506E-05, & - -0.7275E-06],[26,31]) - - real, dimension(26,31) :: h83 = reshape([ & - 0.2169E-10, 0.2168E-10, 0.2167E-10, 0.2166E-10, 0.2163E-10, & - 0.2155E-10, 0.2157E-10, 0.2153E-10, 0.2121E-10, 0.2109E-10, & - 0.2067E-10, 0.2041E-10, 0.1976E-10, 0.1880E-10, 0.1804E-10, & - 0.1717E-10, 0.1653E-10, 0.1593E-10, 0.1566E-10, 0.1551E-10, & - 0.1542E-10, 0.1536E-10, 0.1531E-10, 0.1529E-10, 0.1527E-10, & - 0.1525E-10, 0.5237E-10, 0.5242E-10, 0.5238E-10, 0.5229E-10, & - 0.5209E-10, 0.5188E-10, 0.5178E-10, 0.5151E-10, 0.5076E-10, & - 0.5017E-10, 0.4903E-10, 0.4771E-10, 0.4551E-10, 0.4271E-10, & - 0.3983E-10, 0.3723E-10, 0.3436E-10, 0.3276E-10, 0.3219E-10, & - 0.3147E-10, 0.3111E-10, 0.3086E-10, 0.3070E-10, 0.3060E-10, & - 0.3053E-10, 0.3048E-10, 0.1296E-09, 0.1295E-09, 0.1294E-09, & - 0.1294E-09, 0.1291E-09, 0.1288E-09, 0.1283E-09, 0.1273E-09, & - 0.1257E-09, 0.1235E-09, 0.1200E-09, 0.1149E-09, 0.1086E-09, & - 0.9966E-10, 0.9045E-10, 0.8093E-10, 0.7431E-10, 0.6896E-10, & - 0.6635E-10, 0.6419E-10, 0.6345E-10, 0.6248E-10, 0.6184E-10, & - 0.6142E-10, 0.6115E-10, 0.6097E-10, 0.3204E-09, 0.3201E-09, & - 0.3198E-09, 0.3193E-09, 0.3186E-09, 0.3175E-09, 0.3162E-09, & - 0.3136E-09, 0.3091E-09, 0.3021E-09, 0.2917E-09, 0.2782E-09, & - 0.2601E-09, 0.2352E-09, 0.2080E-09, 0.1817E-09, 0.1605E-09, & - 0.1476E-09, 0.1400E-09, 0.1356E-09, 0.1310E-09, 0.1288E-09, & - 0.1257E-09, 0.1241E-09, 0.1230E-09, 0.1223E-09, 0.7665E-09, & - 0.7662E-09, 0.7656E-09, 0.7644E-09, 0.7626E-09, 0.7599E-09, & - 0.7558E-09, 0.7488E-09, 0.7379E-09, 0.7217E-09, 0.6965E-09, & - 0.6614E-09, 0.6126E-09, 0.5497E-09, 0.4786E-09, 0.4100E-09, & - 0.3548E-09, 0.3190E-09, 0.2999E-09, 0.2860E-09, 0.2742E-09, & - 0.2664E-09, 0.2578E-09, 0.2535E-09, 0.2492E-09, 0.2466E-09, & - 0.1691E-08, 0.1690E-08, 0.1688E-08, 0.1686E-08, 0.1682E-08, & - 0.1675E-08, 0.1665E-08, 0.1649E-08, 0.1623E-08, 0.1585E-08, & - 0.1532E-08, 0.1451E-08, 0.1345E-08, 0.1205E-08, 0.1046E-08, & - 0.8932E-09, 0.7723E-09, 0.6944E-09, 0.6513E-09, 0.6178E-09, & - 0.5902E-09, 0.5637E-09, 0.5451E-09, 0.5259E-09, 0.5149E-09, & - 0.5021E-09, 0.3222E-08, 0.3220E-08, 0.3217E-08, 0.3213E-08, & - 0.3203E-08, 0.3190E-08, 0.3169E-08, 0.3142E-08, 0.3097E-08, & - 0.3028E-08, 0.2925E-08, 0.2778E-08, 0.2583E-08, 0.2334E-08, & - 0.2052E-08, 0.1791E-08, 0.1595E-08, 0.1474E-08, 0.1406E-08, & - 0.1353E-08, 0.1289E-08, 0.1222E-08, 0.1159E-08, 0.1107E-08, & - 0.1068E-08, 0.1032E-08, 0.5110E-08, 0.5106E-08, 0.5104E-08, & - 0.5092E-08, 0.5078E-08, 0.5059E-08, 0.5027E-08, 0.4980E-08, & - 0.4904E-08, 0.4796E-08, 0.4632E-08, 0.4401E-08, 0.4112E-08, & - 0.3765E-08, 0.3413E-08, 0.3126E-08, 0.2966E-08, 0.2935E-08, & - 0.2953E-08, 0.2934E-08, 0.2826E-08, 0.2680E-08, 0.2526E-08, & - 0.2383E-08, 0.2268E-08, 0.2195E-08, 0.6779E-08, 0.6776E-08, & - 0.6767E-08, 0.6753E-08, 0.6730E-08, 0.6699E-08, 0.6645E-08, & - 0.6559E-08, 0.6453E-08, 0.6285E-08, 0.6054E-08, 0.5736E-08, & - 0.5365E-08, 0.4993E-08, 0.4704E-08, 0.4634E-08, 0.4849E-08, & - 0.5300E-08, 0.5789E-08, 0.6095E-08, 0.6103E-08, 0.5899E-08, & - 0.5585E-08, 0.5243E-08, 0.4932E-08, 0.4688E-08, 0.7681E-08, & - 0.7673E-08, 0.7661E-08, 0.7640E-08, 0.7606E-08, 0.7551E-08, & - 0.7472E-08, 0.7346E-08, 0.7168E-08, 0.6910E-08, 0.6590E-08, & - 0.6189E-08, 0.5796E-08, 0.5532E-08, 0.5565E-08, 0.6095E-08, & - 0.7169E-08, 0.8697E-08, 0.1037E-07, 0.1174E-07, 0.1250E-07, & - 0.1262E-07, 0.1225E-07, 0.1161E-07, 0.1089E-07, 0.1027E-07, & - 0.7378E-08, 0.7362E-08, 0.7337E-08, 0.7302E-08, 0.7246E-08, & - 0.7154E-08, 0.7017E-08, 0.6813E-08, 0.6534E-08, 0.6178E-08, & - 0.5746E-08, 0.5315E-08, 0.5031E-08, 0.5148E-08, 0.5887E-08, & - 0.7497E-08, 0.1003E-07, 0.1336E-07, 0.1709E-07, 0.2067E-07, & - 0.2355E-07, 0.2527E-07, 0.2576E-07, 0.2523E-07, 0.2408E-07, & - 0.2279E-07, 0.5836E-08, 0.5808E-08, 0.5764E-08, 0.5696E-08, & - 0.5592E-08, 0.5435E-08, 0.5212E-08, 0.4884E-08, 0.4458E-08, & - 0.3945E-08, 0.3436E-08, 0.3087E-08, 0.3182E-08, 0.4055E-08, & - 0.5981E-08, 0.9170E-08, 0.1366E-07, 0.1946E-07, 0.2623E-07, & - 0.3346E-07, 0.4041E-07, 0.4621E-07, 0.5017E-07, 0.5188E-07, & - 0.5156E-07, 0.4999E-07, 0.3191E-08, 0.3138E-08, 0.3051E-08, & - 0.2917E-08, 0.2735E-08, 0.2452E-08, 0.2059E-08, 0.1533E-08, & - 0.8932E-09, 0.2436E-09, -0.2251E-09, -0.2518E-09, 0.5970E-09, & - 0.2650E-08, 0.6202E-08, 0.1136E-07, 0.1825E-07, 0.2707E-07, & - 0.3777E-07, 0.5014E-07, 0.6347E-07, 0.7678E-07, 0.8855E-07, & - 0.9757E-07, 0.1028E-06, 0.1046E-06, -0.1491E-08, -0.1595E-08, & - -0.1752E-08, -0.1984E-08, -0.2325E-08, -0.2802E-08, -0.3443E-08, & - -0.4209E-08, -0.5026E-08, -0.5632E-08, -0.5703E-08, -0.4806E-08, & - -0.2547E-08, 0.1326E-08, 0.6998E-08, 0.1453E-07, 0.2419E-07, & - 0.3637E-07, 0.5159E-07, 0.7024E-07, 0.9217E-07, 0.1165E-06, & - 0.1417E-06, 0.1657E-06, 0.1859E-06, 0.2009E-06, -0.1022E-07, & - -0.1041E-07, -0.1068E-07, -0.1108E-07, -0.1162E-07, -0.1235E-07, & - -0.1321E-07, -0.1409E-07, -0.1469E-07, -0.1464E-07, -0.1344E-07, & - -0.1071E-07, -0.6172E-08, 0.2019E-09, 0.8493E-08, 0.1892E-07, & - 0.3186E-07, 0.4800E-07, 0.6823E-07, 0.9377E-07, 0.1256E-06, & - 0.1640E-06, 0.2078E-06, 0.2553E-06, 0.3028E-06, 0.3460E-06, & - -0.2359E-07, -0.2390E-07, -0.2436E-07, -0.2497E-07, -0.2576E-07, & - -0.2668E-07, -0.2754E-07, -0.2801E-07, -0.2765E-07, -0.2596E-07, & - -0.2256E-07, -0.1731E-07, -0.1017E-07, -0.1124E-08, 0.1002E-07, & - 0.2369E-07, 0.4068E-07, 0.6187E-07, 0.8864E-07, 0.1226E-06, & - 0.1658E-06, 0.2199E-06, 0.2858E-06, 0.3629E-06, 0.4476E-06, & - 0.5335E-06, -0.3957E-07, -0.4010E-07, -0.4081E-07, -0.4171E-07, & - -0.4268E-07, -0.4353E-07, -0.4389E-07, -0.4320E-07, -0.4103E-07, & - -0.3707E-07, -0.3120E-07, -0.2346E-07, -0.1388E-07, -0.2234E-08, & - 0.1184E-07, 0.2909E-07, 0.5064E-07, 0.7806E-07, 0.1134E-06, & - 0.1592E-06, 0.2175E-06, 0.2904E-06, 0.3802E-06, 0.4878E-06, & - 0.6124E-06, 0.7478E-06, -0.5553E-07, -0.5636E-07, -0.5740E-07, & - -0.5849E-07, -0.5938E-07, -0.5962E-07, -0.5869E-07, -0.5614E-07, & - -0.5169E-07, -0.4527E-07, -0.3690E-07, -0.2659E-07, -0.1430E-07, & - 0.2827E-09, 0.1780E-07, 0.3922E-07, 0.6618E-07, 0.1008E-06, & - 0.1461E-06, 0.2056E-06, 0.2824E-06, 0.3783E-06, 0.4946E-06, & - 0.6323E-06, 0.7932E-06, 0.9767E-06, -0.6927E-07, -0.7045E-07, & - -0.7165E-07, -0.7254E-07, -0.7262E-07, -0.7134E-07, -0.6825E-07, & - -0.6312E-07, -0.5585E-07, -0.4651E-07, -0.3520E-07, -0.2184E-07, & - -0.6118E-08, 0.1247E-07, 0.3483E-07, 0.6232E-07, 0.9684E-07, & - 0.1404E-06, 0.1960E-06, 0.2678E-06, 0.3607E-06, 0.4787E-06, & - 0.6226E-06, 0.7923E-06, 0.9879E-06, 0.1216E-05, -0.7849E-07, & - -0.7972E-07, -0.8046E-07, -0.8017E-07, -0.7827E-07, -0.7435E-07, & - -0.6819E-07, -0.5976E-07, -0.4913E-07, -0.3644E-07, -0.2164E-07, & - -0.4261E-08, 0.1624E-07, 0.4102E-07, 0.7122E-07, 0.1083E-06, & - 0.1536E-06, 0.2089E-06, 0.2761E-06, 0.3584E-06, 0.4614E-06, & - 0.5925E-06, 0.7572E-06, 0.9575E-06, 0.1194E-05, 0.1469E-05, & - -0.8139E-07, -0.8178E-07, -0.8082E-07, -0.7802E-07, -0.7297E-07, & - -0.6551E-07, -0.5570E-07, -0.4369E-07, -0.2954E-07, -0.1296E-07, & - 0.6510E-08, 0.2975E-07, 0.5791E-07, 0.9228E-07, 0.1341E-06, & - 0.1847E-06, 0.2450E-06, 0.3153E-06, 0.3962E-06, 0.4892E-06, & - 0.6004E-06, 0.7377E-06, 0.9137E-06, 0.1139E-05, 0.1417E-05, & - 0.1735E-05, -0.7853E-07, -0.7677E-07, -0.7289E-07, -0.6662E-07, & - -0.5786E-07, -0.4676E-07, -0.3343E-07, -0.1775E-07, 0.6372E-09, & - 0.2250E-07, 0.4895E-07, 0.8112E-07, 0.1205E-06, 0.1682E-06, & - 0.2259E-06, 0.2943E-06, 0.3730E-06, 0.4613E-06, 0.5583E-06, & - 0.6651E-06, 0.7880E-06, 0.9389E-06, 0.1133E-05, 0.1381E-05, & - 0.1673E-05, 0.1977E-05, -0.7368E-07, -0.6876E-07, -0.6141E-07, & - -0.5153E-07, -0.3930E-07, -0.2475E-07, -0.7592E-08, 0.1280E-07, & - 0.3738E-07, 0.6722E-07, 0.1037E-06, 0.1484E-06, 0.2025E-06, & - 0.2676E-06, 0.3446E-06, 0.4336E-06, 0.5328E-06, 0.6416E-06, & - 0.7580E-06, 0.8859E-06, 0.1034E-05, 0.1216E-05, 0.1438E-05, & - 0.1687E-05, 0.1929E-05, 0.2121E-05, -0.7220E-07, -0.6381E-07, & - -0.5294E-07, -0.3961E-07, -0.2373E-07, -0.4876E-08, 0.1778E-07, & - 0.4534E-07, 0.7896E-07, 0.1202E-06, 0.1702E-06, 0.2308E-06, & - 0.3032E-06, 0.3885E-06, 0.4866E-06, 0.5970E-06, 0.7184E-06, & - 0.8506E-06, 0.9957E-06, 0.1160E-05, 0.1349E-05, 0.1560E-05, & - 0.1772E-05, 0.1952E-05, 0.2064E-05, 0.2103E-05, -0.7780E-07, & - -0.6583E-07, -0.5134E-07, -0.3387E-07, -0.1295E-07, 0.1235E-07, & - 0.4322E-07, 0.8106E-07, 0.1272E-06, 0.1831E-06, 0.2502E-06, & - 0.3296E-06, 0.4225E-06, 0.5286E-06, 0.6486E-06, 0.7815E-06, & - 0.9291E-06, 0.1095E-05, 0.1282E-05, 0.1488E-05, 0.1698E-05, & - 0.1879E-05, 0.1994E-05, 0.2029E-05, 0.1997E-05, 0.1902E-05, & - -0.9091E-07, -0.7486E-07, -0.5552E-07, -0.3219E-07, -0.3728E-08, & - 0.3092E-07, 0.7330E-07, 0.1246E-06, 0.1867E-06, 0.2605E-06, & - 0.3472E-06, 0.4475E-06, 0.5619E-06, 0.6904E-06, 0.8343E-06, & - 0.9959E-06, 0.1180E-05, 0.1387E-05, 0.1607E-05, 0.1814E-05, & - 0.1965E-05, 0.2025E-05, 0.1994E-05, 0.1890E-05, 0.1725E-05, & - 0.1495E-05, -0.1038E-06, -0.8229E-07, -0.5609E-07, -0.2426E-07, & - 0.1465E-07, 0.6192E-07, 0.1190E-06, 0.1874E-06, 0.2682E-06, & - 0.3627E-06, 0.4710E-06, 0.5942E-06, 0.7322E-06, 0.8871E-06, & - 0.1063E-05, 0.1263E-05, 0.1484E-05, 0.1708E-05, 0.1898E-05, & - 0.2010E-05, 0.2021E-05, 0.1940E-05, 0.1779E-05, 0.1552E-05, & - 0.1267E-05, 0.9541E-06, -0.9929E-07, -0.7017E-07, -0.3464E-07, & - 0.8700E-08, 0.6114E-07, 0.1243E-06, 0.1993E-06, 0.2873E-06, & - 0.3895E-06, 0.5062E-06, 0.6379E-06, 0.7859E-06, 0.9528E-06, & - 0.1142E-05, 0.1356E-05, 0.1583E-05, 0.1798E-05, 0.1956E-05, & - 0.2020E-05, 0.1984E-05, 0.1857E-05, 0.1650E-05, 0.1375E-05, & - 0.1062E-05, 0.7464E-06, 0.4681E-06, -0.5422E-07, -0.1497E-07, & - 0.3275E-07, 0.9027E-07, 0.1590E-06, 0.2400E-06, 0.3348E-06, & - 0.4433E-06, 0.5672E-06, 0.7064E-06, 0.8633E-06, 0.1041E-05, & - 0.1243E-05, 0.1466E-05, 0.1690E-05, 0.1880E-05, 0.1992E-05, & - 0.2003E-05, 0.1919E-05, 0.1748E-05, 0.1500E-05, 0.1194E-05, & - 0.8711E-06, 0.5728E-06, 0.3312E-06, 0.1672E-06, 0.5379E-07, & - 0.1051E-06, 0.1669E-06, 0.2400E-06, 0.3257E-06, 0.4247E-06, & - 0.5376E-06, 0.6651E-06, 0.8091E-06, 0.9725E-06, 0.1159E-05, & - 0.1369E-05, 0.1592E-05, 0.1800E-05, 0.1951E-05, 0.2009E-05, & - 0.1968E-05, 0.1836E-05, 0.1623E-05, 0.1338E-05, 0.1015E-05, & - 0.6981E-06, 0.4273E-06, 0.2280E-06, 0.1066E-06, 0.4496E-07, & - 0.2350E-06, 0.2990E-06, 0.3745E-06, 0.4623E-06, 0.5622E-06, & - 0.6755E-06, 0.8030E-06, 0.9477E-06, 0.1114E-05, 0.1304E-05, & - 0.1514E-05, 0.1726E-05, 0.1904E-05, 0.2004E-05, 0.2005E-05, & - 0.1914E-05, 0.1736E-05, 0.1483E-05, 0.1171E-05, 0.8445E-06, & - 0.5467E-06, 0.3103E-06, 0.1539E-06, 0.6762E-07, 0.2718E-07, & - 0.9859E-08],[26,31]) - -end module irrad_constants diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/CMakeLists.txt deleted file mode 100644 index bf2d54960..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/CMakeLists.txt +++ /dev/null @@ -1,47 +0,0 @@ -esma_set_this () - -set (srcs - actsim/lidar_simulator.F90 - actsim/lmd_ipsl_stats.F90 - llnl/cosp_radar.F90 - llnl/llnl_stats.F90 - llnl/pf_to_mr.f - llnl/prec_scops.f - quickbeam/array_lib.f90 - quickbeam/atmos_lib.f90 - quickbeam/dsd.f90 - quickbeam/format_input.f90 - quickbeam/gases.f90 - quickbeam/load_hydrometeor_classes.f90 -# quickbeam/load_mie_table.f90 - quickbeam/math_lib.f90 - quickbeam/mrgrnk.f90 - quickbeam/optics_lib.f90 - quickbeam/radar_simulator.f90 - quickbeam/radar_simulator_types.f90 - quickbeam/zeff.f90 - MISR_simulator.f -# congvec.f - cosp.F90 - cosp_constants.F90 - cosp_isccp_simulator.F90 - cosp_lidar.F90 - cosp_misr_simulator.F90 - cosp_modis_simulator.F90 - cosp_simulator.F90 - cosp_stats.F90 - cosp_types.F90 - cosp_utils.F90 - geos5_cosp_const.F90 - geos5_read.f90 - icarus.f - isccp_cloud_types.f - modis_simulator.F90 - scops.f - GEOS_SatsimGridComp.F90 - ) - -esma_add_library (${this} - SRCS ${srcs} - DEPENDENCIES GEOS_Shared MAPL GEOS_RadiationShared) - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/GEOS_SatsimGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/GEOS_SatsimGridComp.F90 deleted file mode 100644 index 81ed54cca..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/GEOS_SatsimGridComp.F90 +++ /dev/null @@ -1,5005 +0,0 @@ - -! VERIFY_ and RETURN_ macros for error handling. -! test may 7 -#include "MAPL_Generic.h" -#undef RTTOV - -module GEOS_SatsimGridCompMod - -!BOP -! !MODULE: GEOS_Satsim -- A Module to drive satellite simulators using grid mean cloud parameters - -! !DESCRIPTION: -! -! {\tt GEOS\_MoistGridCompMod} implements mosit processes in GEOS-5. These -! include all processes that involve phase changes in the atmosphere, such -! as large-scale condensation, convective clouds, and all rain and cloud -! formation. It's state consists of water vapor, various types of condensate, -! and fractions of various cloud types. -! -! -! !USES: -#define USE_MAPL_UNDEF - - use ESMF - use MAPL - use GEOS_UtilsMod - - use gettau - - use MOD_COSP_TYPES - use MOD_COSP, only: COSP -! use MOD_COSP_Modis_Simulator, only: cosp_modis - use MOD_COSP_Modis_Simulator - - implicit none - private - -! !PUBLIC MEMBER FUNCTIONS: - - public SetServices - -! Private State - TYPE SatSim_State - PRIVATE - - integer :: nmask_vars ! number of masked variables - character(len=ESMF_MAXSTR), pointer :: export_name(:) => null() - character(len=ESMF_MAXSTR), pointer :: mask_name(:) => null() - character(len=ESMF_MAXSTR), pointer :: newvar_name(:) => null() - logical, pointer :: newvar(:) => null() - - END TYPE SatSim_State - -! Hook for ESMF -! ------------- - - TYPE SatSim_Wrap - TYPE(SatSim_State), pointer :: PTR => null() - END TYPE SatSim_Wrap - -!EOP - -contains - -!BOP -! !IROUTINE: SetServices -- Sets ESMF services for this component - -! !INTERFACE: - subroutine SetServices ( GC, RC ) - -! !ARGUMENTS: - type(ESMF_GridComp), intent(INOUT) :: GC ! gridded component - integer, optional :: RC ! return code - -! !DESCRIPTION: {\tt GEOS\_MoistGridCompMod} uses the default Initialize and Finalize -! services, but registers its own Run method. - -!EOP - -!============================================================================= -! -! ErrLog Variables - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - character(len=ESMF_MAXSTR) :: COMP_NAME - -! Local derived type aliases - - type (MAPL_MetaComp ), pointer :: STATE - type (ESMF_Config ) :: CF - - integer :: DIMS(3) - -! Local derived type aliases -! -------------------------- - type (SatSim_State), pointer :: self => null() ! internal, that is - type (SatSim_wrap) :: wrap - - integer :: nLines,nCols,m,vindex - character(len=ESMF_MAXSTR) :: tmpname - character(len=ESMF_MAXSTR) :: long_name - character(len=ESMF_MAXSTR) :: units - integer :: mapl_dims,vlocation - integer, pointer :: ungridded_dims(:) => null() - character(len=ESMF_MAXSTR) :: exportName(1) - type(MAPL_VarSpec), pointer :: ExportSpec(:) => null() - logical :: found - -!============================================================================= - -! Begin... - -! Get my name and set-up traceback handle -! --------------------------------------- - - Iam = 'SetServices' - call ESMF_GridCompGet( GC, NAME=COMP_NAME, RC=STATUS ) - VERIFY_(STATUS) - Iam = trim(COMP_NAME) // Iam - -! Wrap internal state for storing in GC; rename legacyState -! ------------------------------------- - allocate ( self, stat=STATUS ) - VERIFY_(STATUS) - wrap%ptr => self - -! Set the Run entry point -! ----------------------- - - call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_RUN, Run, & - RC=STATUS) - VERIFY_(STATUS) - - -! Get the configuration from the component -!----------------------------------------- - - call ESMF_GridCompGet( GC, CONFIG = CF, RC=STATUS ) - VERIFY_(STATUS) - -!BOS -! !IMPORT STATE: - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='T', & - LONG_NAME ='air_temperature', & - UNITS ='K', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='QV', & - LONG_NAME ='specific_humidity', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='FCLD', & - LONG_NAME ='cloud_area_fraction', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME='RL', & - LONG_NAME ='liquid_cloud_particle_effective_radius', & - UNITS ='m', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME='RI', & - LONG_NAME ='ice_phase_cloud_particle_effective_radius', & - UNITS ='m', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME='RS', & - LONG_NAME ='snow_particle_effective_radius', & - UNITS ='m', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME='RR', & - LONG_NAME ='rain_cloud_particle_effective_radius', & - UNITS ='m', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='PLE', & - LONG_NAME ='Edge_pressures', & - UNITS ='Pa', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='ZLE', & - LONG_NAME ='Edge_heights', & - UNITS ='m', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='QLLS', & - LONG_NAME ='mass_fraction_of_large_scale_cloud_liquid_water', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='QLCN', & - LONG_NAME ='mass_fraction_of_convective_cloud_liquid_water', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='QILS', & - LONG_NAME ='mass_fraction_of_large_scale_cloud_ice_water', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='QICN', & - LONG_NAME ='mass_fraction_of_convective_cloud_ice_water', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='QRTOT', & - LONG_NAME ='mass_fraction_of_falling_rain', & - UNITS ='kg kg-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='QSTOT', & - LONG_NAME ='mass_fraction_of_falling_snow', & - UNITS ='kg kg-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='TS', & - LONG_NAME ='skin_temperature' , & - UNITS ='K', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='MCOSZ', & - LONG_NAME = 'mean_cosine_of_the_solar_zenith_angle', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='FRLAND', & - LONG_NAME = 'fraction_of_land', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME ='FROCEAN', & - LONG_NAME = 'fraction_of_ocean', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - - -! !EXPORT STATE: - - -!! Fractions in 49 ISCCP Cloud categories -!! 9 super categories -!/////////////////////////////////////////// -! 0. | . | . | . c -! 1 | . | . | . l -! 180. .|...VII...|..VIII...|....IX.... o -! 2 | . | . | . u -! 310. .|.........|.........|.......... d -! 3 | . | . | . -! 440. --------------------------------- t -! 4 | . | . | . o -! 560. .|....IV...|....V....|....VI.... p -! 5 | . | . | . -! 680. --------------------------------- p -! 6 | oa . ob | . | . r -! 800. .|....I....|...II....|...III.... e -! 7 | ua . ub | . | . s -! sfc | . | . | . s -! ==================================== -! 0. x 1.3 3.6 9.4 23. 60. -> -! 1 2 3 4 5 6 7 -! optical depth increasing -> -! -! 9 Supercategories: -! I=cumulus(Cu), II=stratocumulus(StCu), III=stratus(St) -! IV=altocumulus(ACu), V=altostratus(ASt), VI=nimbostratus(NSt) -! VII=cirrus(Ci), VIII=cirrostratus(CiSt), IX=Deep convection(Cb) -! -! Supercategories further subvided into high/over(O),{middle(M)}, or -! low/under(U) and thin (A) and thick (B) -! -! In addition 7 categories of subvisual clouds (Sub) defined by -! P_top with Sub_1 above 180 hPa ... etc -! -! In ISCCP simulator 7x7 frequency for these types is arranged thus: -! -! fq_isccp( itau(1-7),ipres(1-7) ) -! -! So frequencies for 7 subvisible cloud types are: -! -! fq_isccp( 1 , 1 ) = subvis above 180. -! fq_isccp( 1 , 2 ) = subvis between 180. and 310. -! etc. .. -! - - -! -! 4 Cumulus (CU) subcategories -! fq_isccp(2:3,6:7) -!------------------------------------------------- -! fq_isccp(2,7) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CU_UA', & - LONG_NAME ='isccp_fraction_of_thin_lower_cumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(3,7) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CU_UB', & - LONG_NAME ='isccp_fraction_of_thick_lower_cumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(2,6) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CU_OA', & - LONG_NAME ='isccp_fraction_of_thin_higher_cumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(3,6) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CU_OB', & - LONG_NAME ='isccp_fraction_of_thick_higher_cumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! 4 Stratocumulus STCU subcategories -! fq_isccp(4:5,6:7) -!------------------------------------------------- -! fq_isccp(4,7) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_STCU_UA', & - LONG_NAME ='isccp_fraction_of_thin_lower_stratocumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(5,7) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_STCU_UB', & - LONG_NAME ='isccp_fraction_of_thick_lower_stratocumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(4,6) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_STCU_OA', & - LONG_NAME ='isccp_fraction_of_thin_higher_stratocumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(5,6) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_STCU_OB', & - LONG_NAME ='isccp_fraction_of_thick_higher_stratocumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - -! 4 Stratus ST subcategories -! fq_isccp(6:7,6:7) -!------------------------------------------------- -! fq_isccp(6,7) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_ST_UA', & - LONG_NAME ='isccp_fraction_of_thin_lower_stratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(7,7) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_ST_UB', & - LONG_NAME ='isccp_fraction_of_thick_lower_stratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(6,6) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_ST_OA', & - LONG_NAME ='isccp_fraction_of_thin_higher_stratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(7,6) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_ST_OB', & - LONG_NAME ='isccp_fraction_of_thick_higher_stratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! 4 Altocumulus ACU subcategories -! fq_isccp(2:3,4:5) -!------------------------------------------------- -! fq_isccp(2,5) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_ACU_UA', & - LONG_NAME ='isccp_fraction_of_thin_lower_altocumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(3,5) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_ACU_UB', & - LONG_NAME ='isccp_fraction_of_thick_lower_altocumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(2,4) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_ACU_OA', & - LONG_NAME ='isccp_fraction_of_thin_higher_altocumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(3,4) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_ACU_OB', & - LONG_NAME ='isccp_fraction_of_thick_higher_altocumulus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - -! 4 Altostratus AST subcategories -! fq_isccp(4:5,4:5) -!------------------------------------------------- -! fq_isccp(4,5) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_AST_UA', & - LONG_NAME ='isccp_fraction_of_thin_lower_altostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(5,5) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_AST_UB', & - LONG_NAME ='isccp_fraction_of_thick_lower_altostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(4,4) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_AST_OA', & - LONG_NAME ='isccp_fraction_of_thin_higher_altostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(5,4) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_AST_OB', & - LONG_NAME ='isccp_fraction_of_thick_higher_altostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - -! 4 Nimbostratus NST subcategories -! fq_isccp(6:7,4:5) -!------------------------------------------------- -! fq_isccp(6,5) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_NST_UA', & - LONG_NAME ='isccp_fraction_of_thin_lower_nimbostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(7,5) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_NST_UB', & - LONG_NAME ='isccp_fraction_of_thick_lower_nimbostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(6,4) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_NST_OA', & - LONG_NAME ='isccp_fraction_of_thin_higher_nimbostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(7,4) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_NST_OB', & - LONG_NAME ='isccp_fraction_of_thick_higher_nimbostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - -! 6 Cirrus Ci subcategories -! fq_isccp(2:3,1:3) -!------------------------------------------------- -! fq_isccp(2,3) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CI_UA', & - LONG_NAME ='isccp_fraction_of_thin_lower_cirrus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(3,3) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CI_UB', & - LONG_NAME ='isccp_fraction_of_thick_lower_cirrus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(2,2) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CI_MA', & - LONG_NAME ='isccp_fraction_of_thin_middle_cirrus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(3,2) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CI_MB', & - LONG_NAME ='isccp_fraction_of_thick_middle_cirrus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(2,1) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CI_OA', & - LONG_NAME ='isccp_fraction_of_thin_higher_cirrus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(3,1) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CI_OB', & - LONG_NAME ='isccp_fraction_of_thick_higher_cirrus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - -! 6 Cirrostratus CIST subcategories -! fq_isccp(4:5,1:3) -!------------------------------------------------- -! fq_isccp(4,3) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CIST_UA', & - LONG_NAME ='isccp_fraction_of_thin_lower_cirrostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(5,3) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CIST_UB', & - LONG_NAME ='isccp_fraction_of_thick_lower_cirrostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(4,2) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CIST_MA', & - LONG_NAME ='isccp_fraction_of_thin_middle_cirrostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(5,2) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CIST_MB', & - LONG_NAME ='isccp_fraction_of_thick_middle_cirrostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(4,1) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CIST_OA', & - LONG_NAME ='isccp_fraction_of_thin_higher_cirrostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(5,1) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CIST_OB', & - LONG_NAME ='isccp_fraction_of_thick_higher_cirrostratus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - -! 6 Cumulonimbus CB subcategories -! fq_isccp(6:7,1:3) -!------------------------------------------------- -! fq_isccp(6,3) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CB_UA', & - LONG_NAME ='isccp_fraction_of_thin_lower_cumulonimbus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(7,3) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CB_UB', & - LONG_NAME ='isccp_fraction_of_thick_lower_cumulonimbus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(6,2) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CB_MA', & - LONG_NAME ='isccp_fraction_of_thin_middle_cumulonimbus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(7,2) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CB_MB', & - LONG_NAME ='isccp_fraction_of_thick_middle_cumulonimbus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(6,1) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CB_OA', & - LONG_NAME ='isccp_fraction_of_thin_higher_cumulonimbus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(7,1) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_CB_OB', & - LONG_NAME ='isccp_fraction_of_thick_higher_cumulonimbus', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - -! 7 subvisible/subdetection (SUBV) subcategories -! fq_isccp(1,1:7) -!------------------------------------------------- -! fq_isccp(1,1) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_SUBV1' , & - LONG_NAME ='isccp_fraction_of_subvisible_cloud_0_180_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(1,2) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_SUBV2' , & - LONG_NAME ='isccp_fraction_of_subvisible_cloud_180_310_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(1,3) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_SUBV3' , & - LONG_NAME ='isccp_fraction_of_subvisible_cloud_310_440_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(1,4) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_SUBV4' , & - LONG_NAME ='isccp_fraction_of_subvisible_cloud_440_560_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(1,5) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_SUBV5' , & - LONG_NAME ='isccp_fraction_of_subvisible_cloud_560_680_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(1,6) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_SUBV6' , & - LONG_NAME ='isccp_fraction_of_subvisible_cloud_680_800_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(1,7) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP_SUBV7' , & - LONG_NAME ='isccp_fraction_of_subvisible_cloud_800_SFC_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! 7 exports fields corresponding to pressure bands, with 7 thickess -! classes in each -- this is to partially comply with CFMIP data specs -! fq_isccp(:,1:7) -!------------------------------------------------- -! fq_isccp(:,1) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLISCCP1' , & - LONG_NAME ='isccp_cloud_area_fraction_0_180_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,2) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLISCCP2' , & - LONG_NAME ='isccp_cloud_area_fraction_180_310_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,3) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLISCCP3' , & - LONG_NAME ='isccp_cloud_area_fraction_310_440_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,4) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLISCCP4' , & - LONG_NAME ='isccp_cloud_area_fraction_440_560_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,5) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLISCCP5' , & - LONG_NAME ='isccp_cloud_area_fraction_560_680_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,6) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLISCCP6' , & - LONG_NAME ='isccp_cloud_area_fraction_680_800_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,7) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLISCCP7' , & - LONG_NAME ='isccp_cloud_area_fraction_800_SFC_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! The next 7 exports (ISCCP[1-7]) are deprecated -! fq_isccp(:,1) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP1' , & - LONG_NAME ='isccp_cloud_area_fraction_0_180_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,2) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP2' , & - LONG_NAME ='isccp_cloud_area_fraction_180_310_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,3) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP3' , & - LONG_NAME ='isccp_cloud_area_fraction_310_440_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,4) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP4' , & - LONG_NAME ='isccp_cloud_area_fraction_440_560_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,5) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP5' , & - LONG_NAME ='isccp_cloud_area_fraction_560_680_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,6) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP6' , & - LONG_NAME ='isccp_cloud_area_fraction_680_800_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! fq_isccp(:,7) - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ISCCP7' , & - LONG_NAME ='isccp_cloud_area_fraction_800_SFC_hPa', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ 7 /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - -! Other ISCCP ouputs -!--------------------------------------------------- - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLTISCCP' , & - LONG_NAME ='isccp_cloud_area_fraction', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! same as CLTISCCP, deprecated in favor of CFMIP short name - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='TCLISCCP' , & - LONG_NAME ='isccp_cloud_area_fraction', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='PCTISCCP' , & - LONG_NAME ='isccp_air_pressure_at_cloud_top', & - UNITS ='Pa', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! same as PCTISCCP, deprecated in favor of CFMIP short name - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CTPISCCP' , & - LONG_NAME ='isccp_air_pressure_at_cloud_top', & - UNITS ='Pa', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='ALBISCCP' , & - LONG_NAME ='isccp_cloud_albedo', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='TBISCCP' , & - LONG_NAME ='isccp_mean_all_sky_10.5_micron_brightness_temp', & - UNITS ='K', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! cloud fraction diagnostics from SCOPS - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='SGFCLD' , & - LONG_NAME ='summed_subgrid_cloud_fraction_from_scops', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - -! lidar_simulator output - not used by CFMIP -! MAPL_VLocationCenter is a guess - afe -! --------------------------------------------- - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='LIDARPMOL', & - LONG_NAME ='calipso_molecular_attenuated_backscatter_signal_power', & - UNITS ='m-1 sr-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='LIDARPTOT', & - LONG_NAME ='calipso_total_attenuated_backscatter_signal_power', & - UNITS ='m-1 sr-1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='LIDARTAUTOT', & - LONG_NAME ='calipso_optical_thickess_integrated_from_top_to_level_z', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='RADARZETOT', & - LONG_NAME ='cloudsat_total_reflectivity', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLCALIPSO', & - LONG_NAME ='calipso_total_cloud_fraction', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLLCALIPSO' , & - LONG_NAME ='calipso_low_level_cloud_fraction', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLMCALIPSO' , & - LONG_NAME ='calipso_mid_level_cloud_fraction', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLHCALIPSO' , & - LONG_NAME ='calipso_high_level_cloud_fraction', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLTCALIPSO' , & - LONG_NAME ='calipso_total_cloud_fraction', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='PARASOLREFL0' , & - LONG_NAME ='parasol_reflectance', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ PARASOL_NREFL /), & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='PARASOLREFL1' , & - LONG_NAME ='parasol_reflectance_1', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='PARASOLREFL2' , & - LONG_NAME ='parasol_reflectance_2', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='PARASOLREFL3' , & - LONG_NAME ='parasol_reflectance_3', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='PARASOLREFL4' , & - LONG_NAME ='parasol_reflectance_4', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='PARASOLREFL5' , & - LONG_NAME ='parasol_reflectance_5', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='RADARLTCC' , & - LONG_NAME ='cloudsat_calipso_total_cloud_amount', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLCALIPSO2' , & - LONG_NAME ='calipso_no_cloudsat_cloud_fraction', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_01' , & - LONG_NAME ='calipso_scattering_ratio_cfad_01', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_02' , & - LONG_NAME ='calipso_scattering_ratio_cfad_02', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_03' , & - LONG_NAME ='calipso_scattering_ratio_cfad_03', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_04' , & - LONG_NAME ='calipso_scattering_ratio_cfad_04', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_05' , & - LONG_NAME ='calipso_scattering_ratio_cfad_05', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_06' , & - LONG_NAME ='calipso_scattering_ratio_cfad_06', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_07' , & - LONG_NAME ='calipso_scattering_ratio_cfad_07', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_08' , & - LONG_NAME ='calipso_scattering_ratio_cfad_08', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_09' , & - LONG_NAME ='calipso_scattering_ratio_cfad_09', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_10' , & - LONG_NAME ='calipso_scattering_ratio_cfad_10', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_11' , & - LONG_NAME ='calipso_scattering_ratio_cfad_11', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_12' , & - LONG_NAME ='calipso_scattering_ratio_cfad_12', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_13' , & - LONG_NAME ='calipso_scattering_ratio_cfad_13', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_14' , & - LONG_NAME ='calipso_scattering_ratio_cfad_14', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CFADLIDARSR532_15' , & - LONG_NAME ='calipso_scattering_ratio_cfad_15', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - -! Radar simulator exports -! - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD01' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD02' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD03' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD04' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD05' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD06' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD07' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD08' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD09' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD10' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD11' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD12' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD13' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD14' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='CLOUDSATCFAD15' , & - LONG_NAME ='cloudsat_radar_reflectivity_cfad', & - UNITS ='1', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) - -! -! MODIS simulator output -!-------------------------------------------------------------------- - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDFRCTTL' , & - LONG_NAME ='modis_cloud_fraction_total_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDFRCWTR' , & - LONG_NAME ='modis_cloud_fraction_water_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! the following is deprecated, use MDSCLDFRCWTR - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDFRCH2O' , & - LONG_NAME ='modis_cloud_fraction_water_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDFRCICE' , & - LONG_NAME ='modis_cloud_fraction_ice_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDFRCHI' , & - LONG_NAME ='modis_cloud_fraction_high_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDFRCMID' , & - LONG_NAME ='modis_cloud_fraction_mid_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDFRCLO' , & - LONG_NAME ='modis_cloud_fraction_low_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSOPTHCKTTL' , & - LONG_NAME ='modis_optical_thickness_total_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSOPTHCKWTR' , & - LONG_NAME ='modis_optical_thickness_water_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! the following is deprecated, use MDSOPTHCKWTR - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSOPTHCKH2O' , & - LONG_NAME ='modis_optical_thickness_water_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSOPTHCKICE' , & - LONG_NAME ='modis_optical_thickness_ice_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSOPTHCKTTLLG' , & - LONG_NAME ='modis_optical_thickness_total_logmean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSOPTHCKWTRLG' , & - LONG_NAME ='modis_optical_thickness_water_logmean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! the following is deprecated, use MDSOPTHCKWTRLG - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSOPTHCKH2OLG' , & - LONG_NAME ='modis_optical_thickness_water_logmean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSOPTHCKICELG' , & - LONG_NAME ='modis_optical_thickness_ice_logmean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDSZWTR' , & - LONG_NAME ='modis_cloud_particle_size_water_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! the following is deprecated, use MDSCLDSZWTR - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDSZH20' , & - LONG_NAME ='modis_cloud_particle_size_water_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDSZICE' , & - LONG_NAME ='modis_cloud_particle_size_ice_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSCLDTOPPS' , & - LONG_NAME ='modis_cloud_top_pressure_total_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSWTRPATH' , & - LONG_NAME ='modis_liquid_water_path_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - -! the following is deprecated, use MDSWTRPATH - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSH2OPATH' , & - LONG_NAME ='modis_liquid_water_path_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSICEPATH' , & - LONG_NAME ='modis_ice_water_path_mean', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST11' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_1_1', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST12' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_1_2', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST13' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_1_3', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST14' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_1_4', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST15' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_1_5', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST16' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_1_6', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST17' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_1_7', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST21' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_2_1', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST22' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_2_2', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST23' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_2_3', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST24' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_2_4', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST25' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_2_5', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST26' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_2_6', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST27' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_2_7', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST31' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_3_1', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST32' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_3_2', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST33' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_3_3', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST34' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_3_4', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST35' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_3_5', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST36' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_3_6', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST37' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_3_7', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST41' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_4_1', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST42' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_4_2', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST43' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_4_3', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST44' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_4_4', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST45' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_4_5', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST46' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_4_6', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST47' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_4_7', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST51' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_5_1', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST52' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_5_2', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST53' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_5_3', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST54' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_5_4', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST55' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_5_5', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST56' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_5_6', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST57' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_5_7', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST61' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_6_1', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST62' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_6_2', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST63' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_6_3', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST64' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_6_4', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST65' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_6_5', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST66' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_6_6', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST67' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_6_7', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST71' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_7_1', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST72' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_7_2', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST73' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_7_3', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST74' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_7_4', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST75' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_7_5', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST76' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_7_6', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MDSTAUPRSHIST77' , & - LONG_NAME ='modis_tau_pressure_histogram_bin_7_7', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - - - - - - - - -! -! MISR simulator output -!-------------------------------------------------------------------- - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRMNCLDTP' , & - LONG_NAME ='MISR_mead_cloud_top_height', & - UNITS ='m', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRCLDAREA' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP0' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP250' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP750' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP1250' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP1750', & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP2250', & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP2750', & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP3500', & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP4500', & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP6000' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP8000' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP10000' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP12000' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP14000' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP16000' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRLYRTP18000' , & - LONG_NAME ='MISR_layer_top', & - UNITS ='1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ0' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ250' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ750' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ1250' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ1750', & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ2250', & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ2750', & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ3500', & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ4500', & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ6000' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ8000' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ10000' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ12000' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ14000' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ16000' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME ='MISRFQ18000' , & - LONG_NAME ='MISR_cloud_area', & - UNITS ='1', & - UNGRIDDED_DIMS = (/ 7 /), & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'SATORB', & - LONG_NAME = 'Satellite_orbits', & - UNITS = 'days' , & - DIMS = MAPL_DimsHorzOnly , & - DATATYPE = MAPL_BundleItem , & - RC = STATUS ) - VERIFY_(STATUS) -!EOS -! -! Set the Profiling timers -! ------------------------ - - call MAPL_TimerAdd(GC,name="DRIVER" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC,name="-MISC" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC,name="-COSP" ,RC=STATUS) - VERIFY_(STATUS) - -! parse resource file for masks - CF = ESMF_ConfigCreate(rc=status) - VERIFY_(STATUS) - inquire(file='SatSim.rc',exist=found) - if (found) then - call ESMF_ConfigLoadFile ( CF,'SatSim.rc',rc=status) - VERIFY_(STATUS) - call ESMF_ConfigGetDim(CF, nLines,nCols, LABEL='Masked_Exports::',RC=STATUS) - if (status== ESMF_SUCCESS) then - self%nmask_vars = nLines - allocate(self%export_name(nLines),self%mask_name(nLines),self%newvar_name(nLines),self%newvar(nLines),stat=status) - VERIFY_(STATUS) - call ESMF_ConfigFindLabel(CF, 'Masked_Exports::',__RC__) - VERIFY_(STATUS) - do m=1,nLines - call ESMF_ConfigNextLine(CF,RC=STATUS) - VERIFY_(STATUS) - call ESMF_ConfigGetAttribute(CF,self%export_name(m),RC=STATUS) - VERIFY_(STATUS) - call ESMF_ConfigGetAttribute(CF,self%mask_name(m),RC=STATUS) - VERIFY_(STATUS) - call ESMF_ConfigGetAttribute(CF,tmpname,RC=STATUS) - if (status == ESMF_SUCCESS) then - self%newvar_name(m)=tmpname - self%newvar(m)=.true. - else - self%newvar_name(m)=self%export_name(m) - self%newvar(m)=.false. - end if - end do - end if - else - self%nmask_vars = 0 - end if - if (MAPL_AM_I_Root()) then - write(*,*)'Parsing of satsim.rc' - do m=1,self%nmask_vars - write(*,*)m,self%newvar(m) - write(*,*)trim(self%export_name(m)),' ',trim(self%mask_name(m)),' ',trim(self%newvar_name(m)) - end do - end if - - call MAPL_GetObjectFromGC ( GC, STATE, RC=STATUS) - VERIFY_(STATUS) - - do m=1,self%nmask_vars - if (self%newvar(m)) then - call MAPL_Get(STATE,ExportSpec=ExportSpec,RC=STATUS) - VERIFY_(STATUS) - vindex = MAPL_VarSpecGetIndex(ExportSpec,self%export_name(m),RC=STATUS) - VERIFY_(STATUS) - call MAPL_VarSpecGet(ExportSpec(vindex),LONG_NAME=long_name, & - UNITS=units,Dims=MAPL_dims,VLocation=VLocation,ungridded_dims=Ungridded_dims,RC=STATUS) - VERIFY_(STATUS) - if (associated(Ungridded_dims)) then - call MAPL_AddExportSpec(GC, & - SHORT_NAME =self%newvar_name(m) , & - LONG_NAME =long_name, & - UNITS =units, & - UNGRIDDED_DIMS = Ungridded_dims, & - DIMS = MAPL_dims, & - VLOCATION = VLocation, RC=STATUS ) - VERIFY_(STATUS) - nullify(ungridded_dims) - else - call MAPL_AddExportSpec(GC, & - SHORT_NAME =self%newvar_name(m) , & - LONG_NAME =long_name, & - UNITS =units, & - DIMS = MAPL_dims, & - VLOCATION = VLocation, RC=STATUS ) - VERIFY_(STATUS) - end if - exportName(1) = self%newvar_name(m) - call MAPL_DoNotDeferExport(GC,exportName,RC=STATUS) - VERIFY_(STATUS) - end if - call MAPL_DoNotDeferExport(GC,self%export_name,RC=STATUS) - VERIFY_(STATUS) - end do - -! Store internal state in GC -! -------------------------- - call ESMF_UserCompSetInternalState ( GC, 'SatSim_State', wrap, STATUS ) - VERIFY_(STATUS) - -! Set generic init and final methods -! ---------------------------------- - - call MAPL_GenericSetServices ( GC, RC=STATUS) - VERIFY_(STATUS) - - RETURN_(ESMF_SUCCESS) - - end subroutine SetServices - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -!BOP -! !IROUTINE: RUN -- Run method for the SATSIM component - -! !INTERFACE: - subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC ) - -! !ARGUMENTS: - type(ESMF_GridComp), intent(inout) :: GC ! Gridded component - type(ESMF_State), intent(inout) :: IMPORT ! Import state - type(ESMF_State), intent(inout) :: EXPORT ! Export state - type(ESMF_Clock), intent(inout) :: CLOCK ! The clock - integer, optional, intent( out) :: RC ! Error code: - -! !DESCRIPTION: This version uses the MAPL\_GenericSetServices. This function sets -! the Initialize and Finalize services, as well as allocating - -!EOP - - -! ErrLog Variables - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - character(len=ESMF_MAXSTR) :: COMP_NAME - -! Local derived type aliases - - type (MAPL_MetaComp), pointer :: STATE - type (ESMF_Config ) :: CF - type (ESMF_State ) :: INTERNAL - type (ESMF_Alarm) :: ALARM - -! Local variables - - integer :: IM,JM,LM - real, pointer, dimension(:,:) :: LONS - real, pointer, dimension(:,:) :: LATS - - -! pointers for Export outputs - -! ISCCP/Icarus - -!CU family - real, pointer, dimension(:,:) :: ISCCP_CU_OA, ISCCP_CU_OB - real, pointer, dimension(:,:) :: ISCCP_CU_UA, ISCCP_CU_UB - -!STCU family - real, pointer, dimension(:,:) :: ISCCP_STCU_OA,ISCCP_STCU_OB - real, pointer, dimension(:,:) :: ISCCP_STCU_UA,ISCCP_STCU_UB - -!ST family - real, pointer, dimension(:,:) :: ISCCP_ST_OA, ISCCP_ST_OB - real, pointer, dimension(:,:) :: ISCCP_ST_UA, ISCCP_ST_UB - -!ACU family - real, pointer, dimension(:,:) :: ISCCP_ACU_OA, ISCCP_ACU_OB - real, pointer, dimension(:,:) :: ISCCP_ACU_UA, ISCCP_ACU_UB - -!AST family - real, pointer, dimension(:,:) :: ISCCP_AST_OA, ISCCP_AST_OB - real, pointer, dimension(:,:) :: ISCCP_AST_UA, ISCCP_AST_UB - -!NST family - real, pointer, dimension(:,:) :: ISCCP_NST_OA, ISCCP_NST_OB - real, pointer, dimension(:,:) :: ISCCP_NST_UA, ISCCP_NST_UB - -!CI family - real, pointer, dimension(:,:) :: ISCCP_CI_OA, ISCCP_CI_OB - real, pointer, dimension(:,:) :: ISCCP_CI_MA, ISCCP_CI_MB - real, pointer, dimension(:,:) :: ISCCP_CI_UA, ISCCP_CI_UB - -!CIST family - real, pointer, dimension(:,:) :: ISCCP_CIST_OA, ISCCP_CIST_OB - real, pointer, dimension(:,:) :: ISCCP_CIST_MA, ISCCP_CIST_MB - real, pointer, dimension(:,:) :: ISCCP_CIST_UA, ISCCP_CIST_UB - -!Cb family - real, pointer, dimension(:,:) :: ISCCP_CB_OA, ISCCP_CB_OB - real, pointer, dimension(:,:) :: ISCCP_CB_MA, ISCCP_CB_MB - real, pointer, dimension(:,:) :: ISCCP_CB_UA, ISCCP_CB_UB - -!SubVisible Family - real, pointer, dimension(:,:) :: ISCCP_SUBV1, ISCCP_SUBV2 - real, pointer, dimension(:,:) :: ISCCP_SUBV3, ISCCP_SUBV4 - real, pointer, dimension(:,:) :: ISCCP_SUBV5, ISCCP_SUBV6 - real, pointer, dimension(:,:) :: ISCCP_SUBV7 - -! "stacked" fields (im*jm*7) - real, pointer, dimension(:,:,:) :: CLISCCP1, CLISCCP2 - real, pointer, dimension(:,:,:) :: CLISCCP3, CLISCCP4 - real, pointer, dimension(:,:,:) :: CLISCCP5, CLISCCP6 - real, pointer, dimension(:,:,:) :: CLISCCP7 - -! "stacked" fields (im*jm*7) - real, pointer, dimension(:,:,:) :: ISCCP1, ISCCP2 - real, pointer, dimension(:,:,:) :: ISCCP3, ISCCP4 - real, pointer, dimension(:,:,:) :: ISCCP5, ISCCP6 - real, pointer, dimension(:,:,:) :: ISCCP7 - -!other 2Ds - real, pointer, dimension(:,:) :: TCLISCCP, CLTISCCP - real, pointer, dimension(:,:) :: CTPISCCP, PCTISCCP - real, pointer, dimension(:,:) :: ALBISCCP - real, pointer, dimension(:,:) :: TBISCCP - - -! LIDAR/Calipso exports - - real, pointer, dimension(:,:) :: RADARLTCC - real, pointer, dimension(:,:) :: CLLCALIPSO - real, pointer, dimension(:,:) :: CLMCALIPSO - real, pointer, dimension(:,:) :: CLHCALIPSO - real, pointer, dimension(:,:) :: CLTCALIPSO - - real, pointer, dimension(:,:,:) :: PARASOLREFL0 - real, pointer, dimension(:,:) :: PARASOLREFL1 - real, pointer, dimension(:,:) :: PARASOLREFL2 - real, pointer, dimension(:,:) :: PARASOLREFL3 - real, pointer, dimension(:,:) :: PARASOLREFL4 - real, pointer, dimension(:,:) :: PARASOLREFL5 - - real, pointer, dimension(:,:,:) :: SGFCLD - real, pointer, dimension(:,:,:) :: LIDARPMOL, LIDARPTOT - real, pointer, dimension(:,:,:) :: LIDARTAUTOT - real, pointer, dimension(:,:,:) :: RADARZETOT - real, pointer, dimension(:,:,:) :: CLCALIPSO2 - real, pointer, dimension(:,:,:) :: CLCALIPSO - - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_01 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_02 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_03 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_04 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_05 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_06 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_07 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_08 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_09 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_10 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_11 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_12 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_13 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_14 - real, pointer, dimension(:,:,:) :: CFADLIDARSR532_15 - -! Radar/cloudsat exports - - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD01 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD02 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD03 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD04 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD05 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD06 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD07 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD08 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD09 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD10 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD11 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD12 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD13 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD14 - real, pointer, dimension(:,:,:) :: CLOUDSATCFAD15 - -! MODIS simulator exports - - real, pointer, dimension(:,:) :: MDSCLDFRCTTL - real, pointer, dimension(:,:) :: MDSCLDFRCWTR - real, pointer, dimension(:,:) :: MDSCLDFRCH2O - real, pointer, dimension(:,:) :: MDSCLDFRCICE - real, pointer, dimension(:,:) :: MDSCLDFRCHI - real, pointer, dimension(:,:) :: MDSCLDFRCMID - real, pointer, dimension(:,:) :: MDSCLDFRCLO - real, pointer, dimension(:,:) :: MDSOPTHCKTTL - real, pointer, dimension(:,:) :: MDSOPTHCKWTR - real, pointer, dimension(:,:) :: MDSOPTHCKH2O - real, pointer, dimension(:,:) :: MDSOPTHCKICE - real, pointer, dimension(:,:) :: MDSOPTHCKTTLLG - real, pointer, dimension(:,:) :: MDSOPTHCKWTRLG - real, pointer, dimension(:,:) :: MDSOPTHCKH2OLG - real, pointer, dimension(:,:) :: MDSOPTHCKICELG - real, pointer, dimension(:,:) :: MDSCLDSZWTR - real, pointer, dimension(:,:) :: MDSCLDSZH20 - real, pointer, dimension(:,:) :: MDSCLDSZICE - real, pointer, dimension(:,:) :: MDSCLDTOPPS - real, pointer, dimension(:,:) :: MDSWTRPATH - real, pointer, dimension(:,:) :: MDSH2OPATH - real, pointer, dimension(:,:) :: MDSICEPATH - - real, pointer, dimension(:,:) :: MDSTAUPRSHIST11 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST12 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST13 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST14 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST15 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST16 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST17 - - real, pointer, dimension(:,:) :: MDSTAUPRSHIST21 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST22 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST23 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST24 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST25 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST26 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST27 - - real, pointer, dimension(:,:) :: MDSTAUPRSHIST31 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST32 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST33 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST34 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST35 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST36 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST37 - - real, pointer, dimension(:,:) :: MDSTAUPRSHIST41 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST42 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST43 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST44 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST45 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST46 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST47 - - real, pointer, dimension(:,:) :: MDSTAUPRSHIST51 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST52 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST53 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST54 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST55 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST56 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST57 - - real, pointer, dimension(:,:) :: MDSTAUPRSHIST61 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST62 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST63 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST64 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST65 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST66 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST67 - - real, pointer, dimension(:,:) :: MDSTAUPRSHIST71 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST72 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST73 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST74 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST75 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST76 - real, pointer, dimension(:,:) :: MDSTAUPRSHIST77 - - - - - - - - - -! MISR simulator exports - - real, pointer, dimension(:,:) :: MISRMNCLDTP - real, pointer, dimension(:,:) :: MISRCLDAREA - real, pointer, dimension(:,:) :: MISRLYRTP0 - real, pointer, dimension(:,:) :: MISRLYRTP250 - real, pointer, dimension(:,:) :: MISRLYRTP750 - real, pointer, dimension(:,:) :: MISRLYRTP1250 - real, pointer, dimension(:,:) :: MISRLYRTP1750 - real, pointer, dimension(:,:) :: MISRLYRTP2250 - real, pointer, dimension(:,:) :: MISRLYRTP2750 - real, pointer, dimension(:,:) :: MISRLYRTP3500 - real, pointer, dimension(:,:) :: MISRLYRTP4500 - real, pointer, dimension(:,:) :: MISRLYRTP6000 - real, pointer, dimension(:,:) :: MISRLYRTP8000 - real, pointer, dimension(:,:) :: MISRLYRTP10000 - real, pointer, dimension(:,:) :: MISRLYRTP12000 - real, pointer, dimension(:,:) :: MISRLYRTP14000 - real, pointer, dimension(:,:) :: MISRLYRTP16000 - real, pointer, dimension(:,:) :: MISRLYRTP18000 - real, pointer, dimension(:,:,:) :: MISRFQ0 - real, pointer, dimension(:,:,:) :: MISRFQ250 - real, pointer, dimension(:,:,:) :: MISRFQ750 - real, pointer, dimension(:,:,:) :: MISRFQ1250 - real, pointer, dimension(:,:,:) :: MISRFQ1750 - real, pointer, dimension(:,:,:) :: MISRFQ2250 - real, pointer, dimension(:,:,:) :: MISRFQ2750 - real, pointer, dimension(:,:,:) :: MISRFQ3500 - real, pointer, dimension(:,:,:) :: MISRFQ4500 - real, pointer, dimension(:,:,:) :: MISRFQ6000 - real, pointer, dimension(:,:,:) :: MISRFQ8000 - real, pointer, dimension(:,:,:) :: MISRFQ10000 - real, pointer, dimension(:,:,:) :: MISRFQ12000 - real, pointer, dimension(:,:,:) :: MISRFQ14000 - real, pointer, dimension(:,:,:) :: MISRFQ16000 - real, pointer, dimension(:,:,:) :: MISRFQ18000 - -!============================================================================= - -! Begin... - -! Get my name and set-up traceback handle -! --------------------------------------- - - Iam = 'Run' - call ESMF_GridCompGet( GC, NAME=COMP_NAME, RC=STATUS ) - VERIFY_(STATUS) - Iam = trim(COMP_NAME) // Iam - - -! Get my internal MAPL_Generic state -!----------------------------------- - - call MAPL_GetObjectFromGC ( GC, STATE, RC=STATUS) - VERIFY_(STATUS) - - -! Get parameters from generic state. -!----------------------------------- - - call MAPL_Get( STATE, IM=IM, JM=JM, LM=LM, & - CF = CF, & - LONS = LONS, & - LATS = LATS, & - INTERNAL_ESMF_STATE=INTERNAL, & - RUNALARM = ALARM, & - RC=STATUS ) - VERIFY_(STATUS) - - if( .not. ESMF_AlarmIsRinging( ALARM)) then - RETURN_(ESMF_SUCCESS) - end if - - call MAPL_TimerOn(STATE,"DRIVER") - - call SIM_DRIVER(IM,JM,LM, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOff(STATE,"DRIVER") - - RETURN_(ESMF_SUCCESS) - - contains - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - subroutine SIM_DRIVER(IM,JM,LM, RC) - integer, intent(IN ) :: IM, JM, LM - integer, optional, intent(OUT) :: RC - - -! Locals - - character(len=ESMF_MAXSTR) :: IAm - character(len=ESMF_MAXSTR) :: NAME - integer :: STATUS - -! Import arrays - -! These are the gen-u-ine import arrays in GEOS-5 dimensions -! PLE and ZLE are indexed 0:LM - real, pointer, dimension(:,:,:) :: T, PLE, QV, FCLD, ZLE - real, pointer, dimension(:,:,:) :: RDFL, RDFI, QLLS, QILS, QLCN, QICN - real, pointer, dimension(:,:,:) :: RDFR, RDFS - real, pointer, dimension(:,:,:) :: QRTOT, QSTOT - real, dimension(IM,JM,LM) :: QLTOT, QITOT - real, pointer, dimension(:,:) :: MCOSZ,FRLAND,TS,FROCEAN - -! These are the same, in logical 2 dimensions for icarus's sake - real, dimension(IM*JM,0:LM) :: ZLE2D - real, dimension(IM*JM) :: MCOSZCOSP,FRLANDCOSP,TSCOSP,FROCEANCOSP - -! These are the same, converted to upside-down and 2d - real, dimension(IM*JM,LM) :: TCOSP, PLOCOSP, QVCOSP, FCLDCOSP - real, dimension(IM*JM,LM) :: RDFLCOSP, RDFICOSP, QLLSCOSP, QILSCOSP, QLCNCOSP, QICNCOSP - real, dimension(IM*JM,LM) :: QLTOTCOSP, QITOTCOSP - real, dimension(IM*JM,LM) :: QRTOTCOSP, QSTOTCOSP - real, dimension(IM*JM,LM) :: RDFRCOSP, RDFSCOSP - real, dimension(IM*JM,0:LM) :: PLECOSP, PLE2DTOA0INV, ZLECOSP - -! Local variables needed for all simulators -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - real, dimension(IM,JM,LM) :: PLO, RH, QST - real, dimension(IM*JM,LM) :: RHCOSP - integer :: Npoints - real, dimension(:,:,:),target,allocatable :: frac_out - !real, dimension(:,:,:),target,allocatable :: frac_outinv - real, dimension(IM*JM,LM) :: frac_ls - integer :: isccp_overlap - logical :: DEBUG_GC - integer :: i,j,k,l,icb,ict - integer :: scops_debug = 0 - integer :: idebug = 0 - integer :: idebugcol = 0 - real,dimension(:,:),pointer :: column_frac_out - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - -! The follwing assignments are for variables needed for COSP -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - integer :: melt_lay ! melting layer model off=0, on=1 - integer :: Naero ! Number of aerosol species - integer :: surface_radar ! surface=1,spaceborne=0 - ! Time [days] - need to do something about this - afe - double precision :: time=1.D0 - double precision :: time_bands(2,1)=1.D0 - - -! COSP types - - type(cosp_config) :: cfg ! Configuration options - type(cosp_gridbox) :: gbx ! Gridbox information. Input for COSP - type(cosp_subgrid) :: sgx ! Subgrid outputs - type(cosp_sgradar) :: sgradar ! Output from radar simulator - type(cosp_sghydro) :: sghydro ! Input to radar simulator - type(cosp_sglidar) :: sglidar ! Output from lidar simulator - type(cosp_isccp) :: isccp ! Output from ISCCP simulator - type(cosp_vgrid) :: vgrid ! Information on vertical grid of stats - type(cosp_radarstats) :: stradar ! Summary statistics from radar simulator - type(cosp_lidarstats) :: stlidar ! Summary statistics from lidar simulator - type(cosp_modis) :: modis ! Output from MODIS simulator - type(cosp_misr) :: misr ! Output from MISR simulator - -! RRTOV paramters needed only by COSP, otherwise unused -! ------------------------------------------------------- - - integer :: Npoints_it - logical :: use_precipitation_fluxes,use_reff - integer :: Plat - integer :: Sat - integer :: Inst - integer :: Nchan - integer :: Ichan(0) - real :: SurfEm(0) - real :: ZenAng - real :: co2,ch4,n2o,co -! - - -! The follwing definitions are for variables needed for COSP and isccp/icarus -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - real :: CCA(IM,JM,LM) ! convective clouds fraction, goes into scops - real :: CCACOSP(IM*JM,LM) ! convective clouds fraction, goes into scops - real :: DTAU_S(IM,JM,LM) - real :: dtau_sCOSP(IM*JM,LM) - real, dimension(IM,JM,LM,4) :: CWC, REFF - real, dimension(IM,JM,LM,4) :: tausw,taulw - real, dimension( LM,4) :: dumtaubeam - real, dimension( LM ) :: dumasycl - real, dimension( 0:LM ) :: dumtcldlyr - real, dimension( 0:LM ) :: dumenn - real :: taucir - real, dimension(IM,JM,LM,10) :: TAUDIAG - real :: sunlit(IM*JM) - real, dimension(IM,JM,LM) :: DELP, TAUSWICE, TAUSWLIQ, EMISS - real, dimension(IM*JM,LM) :: EMISS2D, EMISSCOSP - real :: isccp_emsfc_lw - integer :: isccp_top_height - integer :: isccp_top_height_direction - -! icarus/isccp outputs - real, dimension(IM*JM ) :: ISCCP_totalcldarea - real, dimension(IM*JM ) :: ISCCP_meanptop - real, dimension(IM*JM,7,7 ) :: fq_isccp - real, dimension(IM,JM,7,7 ) :: fq_isccp3D - real, dimension(IM*JM ) :: ISCCP_meanalbedocld - real, dimension(IM*JM ) :: ISCCP_meanallskybrighttemp - - -! variables for lidar simulator -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - real, dimension(IM*JM,LM ) :: lidar_pmol - real, dimension(:,:,:), allocatable :: lidar_beta_tot,lidar_tau_tot - real, dimension(IM*JM,PARASOL_NREFL) :: REFL - - -! variables for lidar and radar simulators -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - real, dimension(IM*JM,LM) :: ZLOCOSP - real, dimension(IM*JM,LM) :: ZLO2D - real :: K2 - integer :: use_mie_tables ! use a precomputed lookup table? yes=1,no=0,2=use first - ! column everywhere - integer :: use_gas_abs ! include gaseous absorption? yes=1,no=0 - integer :: do_ray ! calculate/output Rayleigh refl=1, not=0 - integer :: Nprmts_max_hydro ! Max number of parameters for hydrometeor size distributions - integer :: Nprmts_max_aero ! Max number of parameters for aerosol size distributions - real :: radar_freq - integer :: lidar_ice_type !Ice particle shape in lidar calculations - ! (0=ice-spheres;1=ice-non-spherical) - - - -! radar and lidar simulator output -- the admittedly confusing lidar_ and radar_ -! suffixes indicate the cosp return structures that the variables are copied out of - real, dimension(:,:,:), allocatable :: radar_ze_tot - real, dimension(:,:,:), allocatable :: radar_ze_tot_tmp - logical, dimension(:,:,:), allocatable :: radar_ze_tot_mask - integer, dimension(IM*JM,LM) :: ncvalid - real, dimension(IM*JM,LM) :: radar_ze_tot_max - real, dimension(IM*JM,LM) :: radar_ze_tot_mean - - real, dimension (IM*JM,dBZe_bins,LM) :: radar_cfad_ze - real, dimension(IM*JM,LM) :: radar_lidar_only_freq_cloud - real,dimension(IM*JM) :: radar_lidar_tcc - real,dimension(IM*JM) :: land_mask - - real, dimension(IM*JM,SR_BINS,LM) :: lidar_cfad_sr ! CFAD of scattering ratio - real, dimension(IM*JM,LM) :: lidar_lidarcld ! 3D "lidar" cloud fraction - real, dimension(IM*JM,LIDAR_NCAT) :: lidar_cldlayer ! low, mid, high-level lidar cloud cover - real, dimension(IM*JM,PARASOL_NREFL) :: lidar_parasolrefl ! mean parasol reflectance - - real, dimension(IM*JM,7,MISR_N_CTH) :: fq_MISR - real, dimension(IM*JM,MISR_N_CTH) :: MISR_dist_model_layertops - real, dimension(IM*JM):: MISR_meanztop - real, dimension(IM*JM):: MISR_cldarea - - real, dimension(IM*JM):: MODIS_Cloud_Fraction_Total_Mean - real, dimension(IM*JM):: MODIS_Cloud_Fraction_Water_Mean - real, dimension(IM*JM):: MODIS_Cloud_Fraction_Ice_Mean - real, dimension(IM*JM):: MODIS_Cloud_Fraction_High_Mean - real, dimension(IM*JM):: MODIS_Cloud_Fraction_Mid_Mean - real, dimension(IM*JM):: MODIS_Cloud_Fraction_Low_Mean - real, dimension(IM*JM):: MODIS_Optical_Thickness_Total_Mean - real, dimension(IM*JM):: MODIS_Optical_Thickness_Water_Mean - real, dimension(IM*JM):: MODIS_Optical_Thickness_Ice_Mean - real, dimension(IM*JM):: MODIS_Optical_Thickness_Total_LogMean - real, dimension(IM*JM):: MODIS_Optical_Thickness_Water_LogMean - real, dimension(IM*JM):: MODIS_Optical_Thickness_Ice_LogMean - real, dimension(IM*JM):: MODIS_Cloud_Particle_Size_Water_Mean - real, dimension(IM*JM):: MODIS_Cloud_Particle_Size_Ice_Mean - real, dimension(IM*JM):: MODIS_Cloud_Top_Pressure_Total_Mean - real, dimension(IM*JM):: MODIS_Liquid_Water_Path_Mean - real, dimension(IM*JM):: MODIS_Ice_Water_Path_Mean - real, dimension(IM*JM,7,7):: MODIS_Optical_Thickness_vs_Cloud_Top_Pressure - - - integer :: BEGSEG, ENDSEG - - type(SatSim_state), pointer :: self => null() - type(SatSim_Wrap) :: wrap - integer :: mapl_dims, vindex - integer, pointer :: ungridded_dims(:) - type(MAPL_VarSpec), pointer :: ExportSpec(:) - real, pointer, dimension(:,:) :: ptr2d, ptr2d_new - real, pointer, dimension(:,:) :: ptr_mask - real, pointer, dimension(:,:,:) :: ptr3d, ptr3d_new - type(ESMF_FieldBundle) :: bundle - type (MAPL_MetaComp), pointer :: MAPL - - - integer :: use_satsim, use_satsim_isccp, use_satsim_modis, use_satsim_lidar, use_satsim_radar, use_satsim_misr - integer :: ncolumns - - character(len=ESMF_MAXSTR) :: GRIDNAME - character(len=5) :: imchar - character(len=2) :: dateline - integer :: imsize,nn - -! Begin... -!---------- - Iam = trim(COMP_NAME) // 'Sim_Driver' - DEBUG_GC=.FALSE. - - - -! Get my MAPL_Generic state -!-------------------------- - - call MAPL_GetObjectFromGC ( GC, MAPL, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM,LABEL="USE_SATSIM:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM_ISCCP,LABEL="USE_SATSIM_ISCCP:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM_MODIS,LABEL="USE_SATSIM_MODIS:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM_RADAR,LABEL="USE_SATSIM_RADAR:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM_LIDAR,LABEL="USE_SATSIM_LIDAR:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,USE_SATSIM_MISR,LABEL="USE_SATSIM_MISR:",default=0, RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetResource(MAPL,GRIDNAME,'AGCM_GRIDNAME:', RC=STATUS) - VERIFY_(STATUS) - GRIDNAME = AdjustL(GRIDNAME) - nn = len_trim(GRIDNAME) - dateline = GRIDNAME(nn-1:nn) - imchar = GRIDNAME(3:index(GRIDNAME,'x')-1) - read(imchar,*) imsize - if(dateline.eq.'CF') imsize = imsize*4 - associate (default_Ncolumns => MIN(30,MAX(1,INT(4*5760*4/imsize))) ) - call MAPL_GetResource(MAPL,Ncolumns,LABEL="SATSIM_NCOLUMNS:",default=default_Ncolumns, RC=STATUS) - VERIFY_(STATUS) - end associate - - call MAPL_GetResource(MAPL,Npoints_it,LABEL="SATSIM_POINTS_PER_ITERATION:",default=-999, RC=STATUS) - VERIFY_(STATUS) - - allocate( frac_out(IM*JM,NCOLUMNS,LM), __STAT__) - !allocate( frac_outinv(IM*JM,NCOLUMNS,LM), __STAT__) - allocate( lidar_beta_tot(IM*JM,NCOLUMNS,LM), __STAT__) - allocate( lidar_tau_tot(IM*JM,NCOLUMNS,LM), __STAT__) - allocate( radar_ze_tot(IM*JM,NCOLUMNS,LM), __STAT__) - allocate( radar_ze_tot_tmp(IM*JM,NCOLUMNS,LM), __STAT__) - allocate(radar_ze_tot_mask(IM*JM,NCOLUMNS,LM), __STAT__) - - -! Pointers to imports -!-------------------- - call MAPL_GetPointer(IMPORT, PLE, 'PLE' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, ZLE, 'ZLE' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, T, 'T' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QV, 'QV' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, RDFL, 'RL' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, RDFI, 'RI' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, RDFR, 'RR' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, RDFS, 'RS' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, FCLD, 'FCLD' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QLLS, 'QLLS', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QILS, 'QILS', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QLCN, 'QLCN', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QICN, 'QICN', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QRTOT , 'QRTOT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QSTOT , 'QSTOT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, MCOSZ, 'MCOSZ', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, FRLAND,'FRLAND', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, FROCEAN,'FROCEAN', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, TS ,'TS', RC=STATUS); VERIFY_(STATUS) - -! Pointers to Exports -!-------------------- - -! ISCCP/Icarus - - call MAPL_GetPointer(EXPORT, ISCCP_CU_OA, 'ISCCP_CU_OA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CU_UA, 'ISCCP_CU_UA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CU_OB, 'ISCCP_CU_OB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CU_UB, 'ISCCP_CU_UB' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP_STCU_OA, 'ISCCP_STCU_OA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_STCU_UA, 'ISCCP_STCU_UA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_STCU_OB, 'ISCCP_STCU_OB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_STCU_UB, 'ISCCP_STCU_UB' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP_ST_OA, 'ISCCP_ST_OA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_ST_UA, 'ISCCP_ST_UA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_ST_OB, 'ISCCP_ST_OB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_ST_UB, 'ISCCP_ST_UB' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP_ACU_OA, 'ISCCP_ACU_OA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_ACU_UA, 'ISCCP_ACU_UA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_ACU_OB, 'ISCCP_ACU_OB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_ACU_UB, 'ISCCP_ACU_UB' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP_AST_OA, 'ISCCP_AST_OA' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP_AST_UA, 'ISCCP_AST_UA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_AST_OB, 'ISCCP_AST_OB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_AST_UB, 'ISCCP_AST_UB' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP_NST_OA, 'ISCCP_NST_OA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_NST_UA, 'ISCCP_NST_UA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_NST_OB, 'ISCCP_NST_OB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_NST_UB, 'ISCCP_NST_UB' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP_CI_OA, 'ISCCP_CI_OA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CI_MA, 'ISCCP_CI_MA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CI_UA, 'ISCCP_CI_UA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CI_OB, 'ISCCP_CI_OB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CI_MB, 'ISCCP_CI_MB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CI_UB, 'ISCCP_CI_UB' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP_CIST_OA, 'ISCCP_CIST_OA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CIST_MA, 'ISCCP_CIST_MA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CIST_UA, 'ISCCP_CIST_UA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CIST_OB, 'ISCCP_CIST_OB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CIST_MB, 'ISCCP_CIST_MB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CIST_UB, 'ISCCP_CIST_UB' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP_CB_OA, 'ISCCP_CB_OA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CB_MA, 'ISCCP_CB_MA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CB_UA, 'ISCCP_CB_UA' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CB_OB, 'ISCCP_CB_OB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CB_MB, 'ISCCP_CB_MB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_CB_UB, 'ISCCP_CB_UB' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP_SUBV1, 'ISCCP_SUBV1' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_SUBV2, 'ISCCP_SUBV2' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_SUBV3, 'ISCCP_SUBV3' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_SUBV4, 'ISCCP_SUBV4' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_SUBV5, 'ISCCP_SUBV5' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_SUBV6, 'ISCCP_SUBV6' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP_SUBV7, 'ISCCP_SUBV7' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, CLISCCP1, 'CLISCCP1' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLISCCP2, 'CLISCCP2' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLISCCP3, 'CLISCCP3' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLISCCP4, 'CLISCCP4' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLISCCP5, 'CLISCCP5' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLISCCP6, 'CLISCCP6' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLISCCP7, 'CLISCCP7' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, ISCCP1, 'ISCCP1' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP2, 'ISCCP2' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP3, 'ISCCP3' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP4, 'ISCCP4' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP5, 'ISCCP5' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP6, 'ISCCP6' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISCCP7, 'ISCCP7' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, TCLISCCP, 'TCLISCCP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLTISCCP, 'CLTISCCP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PCTISCCP, 'PCTISCCP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CTPISCCP, 'CTPISCCP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ALBISCCP, 'ALBISCCP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TBISCCP, 'TBISCCP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SGFCLD, 'SGFCLD' , RC=STATUS); VERIFY_(STATUS) - -! LIDAR/CALIPSO - - call MAPL_GetPointer(EXPORT, RADARLTCC, 'RADARLTCC' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLCALIPSO2, 'CLCALIPSO2' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LIDARPMOL, 'LIDARPMOL' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LIDARPTOT, 'LIDARPTOT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LIDARTAUTOT, 'LIDARTAUTOT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, RADARZETOT, 'RADARZETOT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLCALIPSO, 'CLCALIPSO' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLLCALIPSO, 'CLLCALIPSO' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLMCALIPSO, 'CLMCALIPSO' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLHCALIPSO, 'CLHCALIPSO' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLTCALIPSO, 'CLTCALIPSO' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PARASOLREFL0, 'PARASOLREFL0' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PARASOLREFL1, 'PARASOLREFL1' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PARASOLREFL2, 'PARASOLREFL2' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PARASOLREFL3, 'PARASOLREFL3' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PARASOLREFL4, 'PARASOLREFL4' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PARASOLREFL5, 'PARASOLREFL5' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_01,'CFADLIDARSR532_01' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_02,'CFADLIDARSR532_02' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_03,'CFADLIDARSR532_03' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_04,'CFADLIDARSR532_04' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_05,'CFADLIDARSR532_05' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_06,'CFADLIDARSR532_06' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_07,'CFADLIDARSR532_07' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_08,'CFADLIDARSR532_08' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_09,'CFADLIDARSR532_09' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_10,'CFADLIDARSR532_10' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_11,'CFADLIDARSR532_11' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_12,'CFADLIDARSR532_12' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_13,'CFADLIDARSR532_13' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_14,'CFADLIDARSR532_14' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CFADLIDARSR532_15,'CFADLIDARSR532_15' , RC=STATUS); VERIFY_(STATUS) - -! RADAR/Cloudsat - - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD01,'CLOUDSATCFAD01' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD02,'CLOUDSATCFAD02' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD03,'CLOUDSATCFAD03' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD04,'CLOUDSATCFAD04' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD05,'CLOUDSATCFAD05' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD06,'CLOUDSATCFAD06' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD07,'CLOUDSATCFAD07' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD08,'CLOUDSATCFAD08' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD09,'CLOUDSATCFAD09' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD10,'CLOUDSATCFAD10' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD11,'CLOUDSATCFAD11' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD12,'CLOUDSATCFAD12' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD13,'CLOUDSATCFAD13' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD14,'CLOUDSATCFAD14' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLOUDSATCFAD15,'CLOUDSATCFAD15' , RC=STATUS); VERIFY_(STATUS) - -! MODIS - - call MAPL_GetPointer(EXPORT, MDSCLDFRCTTL,'MDSCLDFRCTTL' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSCLDFRCWTR,'MDSCLDFRCWTR' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSCLDFRCH2O,'MDSCLDFRCH2O' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSCLDFRCICE,'MDSCLDFRCICE' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSCLDFRCHI,'MDSCLDFRCHI' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSCLDFRCMID,'MDSCLDFRCMID' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSCLDFRCLO,'MDSCLDFRCLO' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSOPTHCKTTL,'MDSOPTHCKTTL' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSOPTHCKWTR,'MDSOPTHCKWTR' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSOPTHCKH2O,'MDSOPTHCKH2O' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSOPTHCKICE,'MDSOPTHCKICE' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSOPTHCKTTLLG,'MDSOPTHCKTTLLG' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSOPTHCKWTRLG,'MDSOPTHCKWTRLG' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSOPTHCKH2OLG,'MDSOPTHCKH2OLG' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSOPTHCKICELG,'MDSOPTHCKICELG' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSCLDSZWTR,'MDSCLDSZWTR' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSCLDSZH20,'MDSCLDSZH20' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSCLDSZICE,'MDSCLDSZICE' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSCLDTOPPS,'MDSCLDTOPPS' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSWTRPATH,'MDSWTRPATH' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSH2OPATH,'MDSH2OPATH' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSICEPATH,'MDSICEPATH' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST11,'MDSTAUPRSHIST11' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST12,'MDSTAUPRSHIST12' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST13,'MDSTAUPRSHIST13' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST14,'MDSTAUPRSHIST14' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST15,'MDSTAUPRSHIST15' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST16,'MDSTAUPRSHIST16' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST17,'MDSTAUPRSHIST17' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST21,'MDSTAUPRSHIST21' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST22,'MDSTAUPRSHIST22' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST23,'MDSTAUPRSHIST23' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST24,'MDSTAUPRSHIST24' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST25,'MDSTAUPRSHIST25' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST26,'MDSTAUPRSHIST26' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST27,'MDSTAUPRSHIST27' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST31,'MDSTAUPRSHIST31' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST32,'MDSTAUPRSHIST32' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST33,'MDSTAUPRSHIST33' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST34,'MDSTAUPRSHIST34' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST35,'MDSTAUPRSHIST35' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST36,'MDSTAUPRSHIST36' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST37,'MDSTAUPRSHIST37' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST41,'MDSTAUPRSHIST41' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST42,'MDSTAUPRSHIST42' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST43,'MDSTAUPRSHIST43' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST44,'MDSTAUPRSHIST44' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST45,'MDSTAUPRSHIST45' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST46,'MDSTAUPRSHIST46' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST47,'MDSTAUPRSHIST47' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST51,'MDSTAUPRSHIST51' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST52,'MDSTAUPRSHIST52' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST53,'MDSTAUPRSHIST53' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST54,'MDSTAUPRSHIST54' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST55,'MDSTAUPRSHIST55' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST56,'MDSTAUPRSHIST56' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST57,'MDSTAUPRSHIST57' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST61,'MDSTAUPRSHIST61' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST62,'MDSTAUPRSHIST62' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST63,'MDSTAUPRSHIST63' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST64,'MDSTAUPRSHIST64' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST65,'MDSTAUPRSHIST65' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST66,'MDSTAUPRSHIST66' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST67,'MDSTAUPRSHIST67' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST71,'MDSTAUPRSHIST71' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST72,'MDSTAUPRSHIST72' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST73,'MDSTAUPRSHIST73' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST74,'MDSTAUPRSHIST74' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST75,'MDSTAUPRSHIST75' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST76,'MDSTAUPRSHIST76' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MDSTAUPRSHIST77,'MDSTAUPRSHIST77' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, MISRMNCLDTP,'MISRMNCLDTP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRCLDAREA,'MISRCLDAREA' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, MISRLYRTP0,'MISRLYRTP0' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP250,'MISRLYRTP250' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP750,'MISRLYRTP750' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP1250,'MISRLYRTP1250' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP1750,'MISRLYRTP1750' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP2250,'MISRLYRTP2250' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP2750,'MISRLYRTP2750' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP3500,'MISRLYRTP3500' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP4500,'MISRLYRTP4500' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP6000,'MISRLYRTP6000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP8000,'MISRLYRTP8000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP10000,'MISRLYRTP10000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP12000,'MISRLYRTP12000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP14000,'MISRLYRTP14000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP16000,'MISRLYRTP16000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRLYRTP18000,'MISRLYRTP18000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ0,'MISRFQ0' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ250,'MISRFQ250' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ750,'MISRFQ750' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ1250,'MISRFQ1250' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ1750,'MISRFQ1750' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ2250,'MISRFQ2250' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ2750,'MISRFQ2750' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ3500,'MISRFQ3500' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ4500,'MISRFQ4500' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ6000,'MISRFQ6000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ8000,'MISRFQ8000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ10000,'MISRFQ10000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ12000,'MISRFQ12000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ14000,'MISRFQ14000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ16000,'MISRFQ16000' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, MISRFQ18000,'MISRFQ18000' , RC=STATUS); VERIFY_(STATUS) - - - -! The follwing assignments are for variables needed for COSP and isccp/icarus -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - ISCCP_TOP_HEIGHT=1 ! 1 = adjust top height using both a computed - ISCCP_TOP_HEIGHT_DIRECTION=2 ! direction for finding atmosphere pressure level - isccp_emsfc_lw=0.999 - sunlit = 0.0 - ICB=58 - ICT=48 - -! anything that needs to be calculated in 3D is done so, to -! be converted to 2D and inverted later -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1 - - PLO = 0.5*( PLE(:,:,1:LM)+PLE(:,:,0:lm-1)) - -! The following are convective terms, which we don't want now - CCA = 0.0 - - QLTOT = QLLS + QLCN - QITOT = QILS + QICN - -! the following is in lieu of -! where(FCLD.gt.0.) -! to avoid stupid high cwc, which makes for stupid high dtau_s, which -! crashes icarus - where(FCLD.gt.0.01) - cwc(:,:,:,1) = MAX( QITOT/FCLD , 1.0e-12 ) - cwc(:,:,:,2) = MAX( QLTOT/FCLD , 1.0e-12 ) - cwc(:,:,:,3) = MAX( QRTOT/FCLD , 1.0e-12 ) - cwc(:,:,:,4) = MAX( QSTOT/FCLD , 1.0e-12 ) - elsewhere - cwc(:,:,:,1) = 0. - cwc(:,:,:,2) = 0. - cwc(:,:,:,3) = 0. - cwc(:,:,:,4) = 0. - endwhere - -! delp in Pascals, reff in microns - - reff(:,:,:,1) = RDFI *1.e6 - reff(:,:,:,2) = RDFL *1.e6 - reff(:,:,:,3) = RDFR *1.e6 - reff(:,:,:,4) = RDFS *1.e6 - - DELP = PLE(:,:,1:LM) - PLE(:,:,0:lm-1) - - - do i = 1, im - do j = 1, jm - - ! NOTE: mcosz is being passed in but not used since we aren't doing cloud scaling - ! as the 0's at the end of inputs determine. If scaling is needed, mcosz might - ! be the wrong cosine to use (i.e., not the mean). Also, dummies will need to - ! be replaced if needed. - call getvistau(lm,mcosz(i,j),delp(i,j,:),FCLD(i,j,:),reff(i,j,:,:),cwc(i,j,:,:),0,0,& - dumtaubeam(:,:),tausw(i,j,:,:),dumasycl(:)) - - ! IR Taus: Here we calculate band 4 only. Again, dummies for unneeded arrays. - call getirtau(4,lm,delp(i,j,:),FCLD(i,j,:),reff(i,j,:,:),cwc(i,j,:,:),& - taulw(i,j,:,:),dumtcldlyr(:),dumenn(:)) - - do k = 1, lm - - ! NOTE: If you wish to include both falling rain and falling snow to - ! DTAU_S and EMISS, use the lines below with all four - ! tausw and taulw returns - - ! VIS - ! --- - - !DTAU_S(i,j,k) = tausw(i,j,k,1)+tausw(i,j,k,2)+tausw(i,j,k,3)+tausw(i,j,k,4) - DTAU_S(i,j,k) = tausw(i,j,k,1)+tausw(i,j,k,2) - - ! IR - ! -- - - !taucir = taulw(i,j,k,1) + taulw(i,j,k,2) + taulw(i,j,k,3) + taulw(i,j,k,4) - taucir = taulw(i,j,k,1) + taulw(i,j,k,2) - - EMISS(i,j,k) = 1 - EXP( -1.0 * taucir ) - - end do - - end do - end do - -! The follwing assignments are for variables needed for all simulators -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - NPOINTS = IM*JM - ISCCP_OVERLAP =3 ! overlap type: 1=max, 2=rand, 3=max/rand - ! used by SCOPS, COSP and icarus - - -! The follwing assignments are for variables needed for COSP -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - Naero=1 ! Number of aerosol species (Not used) - if (Npoints_it == -999) Npoints_it=NPOINTS ! Number of gridpoints processed in one iteration (probably not used) - use_precipitation_fluxes=.false. - use_reff=.true. - SURFACE_RADAR=0 ! surface=1, spaceborne=0 - melt_lay=0 ! melting layer model off=0, on=1 - time=0 ! Time since start of run [days] - something should be done about this - -! Switches in cfg need to be toggled to make things run right - -! remember these are integers so + is logical or, not and - - if ( USE_SATSIM + USE_SATSIM_ISCCP + USE_SATSIM_MODIS > 0 ) then ! isccp needed for modis - cfg%Lisccp_sim = .true. - else - cfg%Lisccp_sim = .false. - endif - - if ( USE_SATSIM + USE_SATSIM_MODIS > 0 ) then - cfg%Lmodis_sim= .true. - else - cfg%Lmodis_sim= .false. - endif - - if ( USE_SATSIM + USE_SATSIM_RADAR > 0 ) then - cfg%Lradar_sim= .true. - else - cfg%Lradar_sim= .false. - endif - - if ( USE_SATSIM + USE_SATSIM_LIDAR > 0 ) then - cfg%Llidar_sim = .true. - cfg%LCFADLIDARSR532 = .true. - else - cfg%Llidar_sim = .false. - cfg%LCFADLIDARSR532 = .false. - endif - - if ( USE_SATSIM + USE_SATSIM_MISR > 0 ) then - cfg%Lmisr_sim= .true. - else - cfg%Lmisr_sim= .false. - endif - - if ( USE_SATSIM /= 0 .or. ( USE_SATSIM_LIDAR + USE_SATSIM_RADAR .eq. 2 ) ) then - cfg%Lstats= .true. - else - cfg%Lstats= .false. - endif - -! RRTOV paramters (not used) - plat=0 - sat=0 - inst=0 - nchan=0 - ZenAng=0.0 - Ichan=0 - surfem=0.0 - co2=0.0 - ch4=0.0 - n2o=0.0 - co=0.0 - - - -! The follwing assignments are for variables needed for COSP and lidar_simulator -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - lidar_ice_type=0 ! Ice particle shape in lidar calculations (0=ice-spheres ; 1=ice-non-spherical) - -! The follwing assignments are for variables needed for COSP and radar_simulator -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - Nprmts_max_aero=1 ! Max number of parameters for aerosol size distributions (Not used) - Nprmts_max_hydro=12 ! Max number of parameters for hydrometeor size distributions - RADAR_FREQ=94.0 ! CloudSat radar frequency (GHz) - k2=-1. ! |K|^2, -1=use frequency dependent default - do_ray=0 ! calculate/output Rayleigh refl=1, not=0 - use_gas_abs=1 ! include gaseous absorption? yes=1,no=0 - use_mie_tables=0 ! use a precomputed lookup table? yes=1,no=0 - QST = GEOS_QSAT( T , PLO/100. ) - RH = ( QV / QST ) * 100.0 ! rel. humidity (in percent) - land_mask=0.0 ! needed for stats -- should be changed [0 - Ocean, 1 - Land] - - RHCOSP = reshape( RH(:,:,LM:1:-1) , (/ IM*JM , LM /) ) - PLOCOSP = reshape( PLO(:,:,LM:1:-1), (/ IM*JM , LM /) ) - QVCOSP = reshape( QV(:,:,LM:1:-1), (/ IM*JM , LM /) ) - CCACOSP = reshape( CCA(:,:,LM:1:-1), (/ IM*JM , LM /) ) - DTAU_SCOSP = reshape( DTAU_S(:,:,LM:1:-1), (/ IM*JM , LM /) ) - TCOSP = reshape( T(:,:,LM:1:-1), (/ IM*JM , LM /) ) - EMISSCOSP = reshape( EMISS(:,:,LM:1:-1), (/ IM*JM , LM /) ) - FCLDCOSP = reshape( FCLD(:,:,LM:1:-1), (/ IM*JM , LM /) ) - RDFLCOSP = reshape( RDFL(:,:,LM:1:-1), (/ IM*JM , LM /) ) - RDFICOSP = reshape( RDFI(:,:,LM:1:-1), (/ IM*JM , LM /) ) - RDFRCOSP = reshape( RDFR(:,:,LM:1:-1), (/ IM*JM , LM /) ) - RDFSCOSP = reshape( RDFS(:,:,LM:1:-1), (/ IM*JM , LM /) ) - QLTOTCOSP = reshape( QLTOT(:,:,LM:1:-1), (/ IM*JM , LM /) ) - QITOTCOSP = reshape( QITOT(:,:,LM:1:-1), (/ IM*JM , LM /) ) - QRTOTCOSP = reshape( QRTOT(:,:,LM:1:-1), (/ IM*JM , LM /) ) - QSTOTCOSP = reshape( QSTOT(:,:,LM:1:-1), (/ IM*JM , LM /) ) - QLCNCOSP = reshape( QLCN(:,:,LM:1:-1), (/ IM*JM , LM /) ) - QICNCOSP = reshape( QICN(:,:,LM:1:-1), (/ IM*JM , LM /) ) - PLECOSP = reshape( PLE(:,:,LM:0:-1), (/ IM*JM , LM+1 /) ) - ZLECOSP = ZLE2D(:,LM:0:-1) - MCOSZCOSP = reshape( MCOSZ , (/ IM*JM /) ) - FRLANDCOSP = reshape( FRLAND , (/ IM*JM /) ) - FROCEANCOSP = reshape( FROCEAN , (/ IM*JM /) ) - TSCOSP = reshape( TS , (/ IM*JM /) ) - - ZLE2D = reshape( ZLE, (/ IM*JM , LM+1 /) ) - zlo2d = 0.5*( zle2d(:,0:LM-1)+zle2d(:,1:lm)) - ZLOCOSP = ZLO2D(:,LM:1:-1) - - - where ( MCOSZCOSP > 0.0 ) SUNLIT = 1.0 - where ( FROCEANCOSP < 0.5 ) LAND_MASK = 1.0 - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -! zero out exports - ISCCP_totalcldarea = 0.0 - ISCCP_meanptop = 0.0 - ISCCP_meanalbedocld= 0.0 - ISCCP_meanallskybrighttemp= 0.0 - frac_out = 0.0 - fq_isccp = 0.0 - lidar_lidarcld = 0.0 - lidar_cldlayer = 0.0 - lidar_parasolrefl = 0.0 - lidar_cfad_sr = 0.0 - radar_lidar_tcc = 0.0 - radar_lidar_only_freq_cloud = 0.0 - radar_cfad_ze = 0.0 - radar_ze_tot = 0.0 - - lidar_pmol=0.0 - REFL=0.0 - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - - call construct_cosp_gridbox( time & - , time_bands & - , radar_freq & - , surface_radar & - , use_mie_tables & - , use_gas_abs & - , do_ray & - , melt_lay & - , k2 & - , Npoints & - , LM & - , Ncolumns & - , N_HYDRO & - , Nprmts_max_hydro & - , Naero & - , Nprmts_max_aero & - , Npoints_it & - , lidar_ice_type & - , isccp_top_height & - , isccp_top_height_direction & - , isccp_overlap & - , isccp_emsfc_lw & - , use_precipitation_fluxes & - , use_reff & - , plat & - , sat & - , inst & - , nchan & - , ZenAng & - , Ichan & - , surfem & - , co2 & - , ch4 & - , n2o & - , co & - , gbx ) - - call construct_cosp_subgrid(Npoints, Ncolumns, LM, sgx) - if (cfg%Lisccp_sim) call construct_cosp_isccp(cfg,Npoints,Ncolumns,LM,isccp) - !call construct_cosp_sghydro(Npoints,Ncolumns,LM,N_hydro,sghydro) - if (cfg%Lradar_sim) call construct_cosp_sgradar(cfg,Npoints,Ncolumns,LM,N_hydro,sgradar) - if (cfg%Llidar_sim) call construct_cosp_sglidar(cfg,Npoints,Ncolumns,LM,N_hydro,PARASOL_NREFL,sglidar) - if (cfg%Lmodis_sim) call construct_cosp_modis(cfg, Npoints, modis ) - if (cfg%Lmisr_sim ) call construct_cosp_misr(cfg, Npoints, misr ) - - ! vgrid is use for lidar and radar simulation stats, but only if the stats are on - ! a different grid from the model. So mostly dummy params get passed` - call construct_cosp_vgrid(gbx,0,.false.,.false.,vgrid) - - if (cfg%Lradar_sim) call construct_cosp_radarstats(cfg,Npoints,Ncolumns,LM,N_hydro,stradar) - if (cfg%Llidar_sim) call construct_cosp_lidarstats(cfg,Npoints,Ncolumns,LM,N_hydro,PARASOL_NREFL,stlidar) - - BEGSEG = 1 - ENDSEG = NPOINTS - - gbx%T = TCOSP(BEGSEG:ENDSEG,:) - gbx%SH = QVCOSP(BEGSEG:ENDSEG,:) - gbx%Q = RHCOSP(BEGSEG:ENDSEG,:) - gbx%CCA = CCACOSP(BEGSEG:ENDSEG,:) - gbx%TCA = FCLDCOSP(BEGSEG:ENDSEG,:) -! in cosp_types, gbx%ph is supposed to be half pressure levels, with the bottom as surface -! pressure -- see psfc in cosp_test - gbx%ph = PLECOSP(BEGSEG:ENDSEG,1:LM) - gbx%p = PLOCOSP(BEGSEG:ENDSEG,:) - gbx%psfc = PLECOSP(BEGSEG:ENDSEG,0) ! surface pressure - gbx%dtau_s = dtau_sCOSP(BEGSEG:ENDSEG,:) - gbx%dtau_c = 0. - gbx%dem_s = emissCOSP(BEGSEG:ENDSEG,:) - gbx%dem_c = 0. - gbx%sunlit=sunlit(BEGSEG:ENDSEG) - gbx%land=LAND_MASK(BEGSEG:ENDSEG) - gbx%skt = TSCOSP(BEGSEG:ENDSEG) - gbx%mr_hydro(:,:,I_LSCLIQ) = QLTOTCOSP(BEGSEG:ENDSEG,:) - gbx%mr_hydro(:,:,I_LSCICE) = QITOTCOSP(BEGSEG:ENDSEG,:) - gbx%mr_hydro(:,:,I_LSRAIN) = QRTOTCOSP(BEGSEG:ENDSEG,:) - gbx%mr_hydro(:,:,I_LSSNOW) = QSTOTCOSP(BEGSEG:ENDSEG,:) - gbx%mr_hydro(:,:,I_CVCLIQ) = 0.0 - gbx%mr_hydro(:,:,I_CVCICE) = 0.0 - gbx%reff(:,:,I_LSCLIQ) = RDFLCOSP(BEGSEG:ENDSEG,:) - gbx%reff(:,:,I_LSCICE) = RDFICOSP(BEGSEG:ENDSEG,:) - gbx%reff(:,:,I_LSRAIN) = RDFRCOSP(BEGSEG:ENDSEG,:) - gbx%reff(:,:,I_LSSNOW) = RDFSCOSP(BEGSEG:ENDSEG,:) - gbx%zlev = ZLOCOSP(BEGSEG:ENDSEG,:) - gbx%zlev_half = ZLECOSP(BEGSEG:ENDSEG,1:LM) - - - where (gbx%mr_hydro < 0.0) gbx%mr_hydro=0.0 - -if ( MAPL_Am_I_Root() .and. DEBUG_GC ) then - - write(*,*) 'ncolumns: ', ncolumns - write(*,*) 'lm: ', lm - write(*,*) 'npoints: ', npoints - write(*,*) 'npoints_it: ', npoints_it - - !write(*,*) 'FCLD: ', FCLD - - !write(*,*) 'gbx%dtau_s: ', gbx%dtau_s - !write(*,*) 'gbx%dem_s: ', gbx%dem_s - - !write(*,*) 'gbx%tca: ', gbx%tca - !write(*,*) 'sgx%frac_out: ', sgx%frac_out - -endif - - - call MAPL_TimerOn(STATE,"-COSP") - - call COSP(isccp_overlap,Ncolumns,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,stradar,stlidar) - - call MAPL_TimerOff(STATE,"-COSP") - -! Dims of sgx%frac_out (Npoints,Ncolumns,Nlevels) - if ( associated( SGFCLD ) ) then - sgfcld = reshape( & - sum( sgx%frac_out(:,:,lm:1:-1) , 2) & - , (/ IM, JM, LM /) ) & - / (1.*NCOLUMNS) - endif - - -! more outputs are available in the structures -- the current ones are those -! needed for CFMIP - - if ( USE_SATSIM_LIDAR + USE_SATSIM > 0 ) then - - lidar_parasolrefl(BEGSEG:ENDSEG,:)=stlidar%parasolrefl - lidar_cldlayer(BEGSEG:ENDSEG,:)=stlidar%cldlayer - lidar_lidarcld(BEGSEG:ENDSEG,:)=stlidar%lidarcld - lidar_cfad_sr(BEGSEG:ENDSEG,:,:)=stlidar%cfad_sr - -! used for diagnostics - lidar_pmol(BEGSEG:ENDSEG,:) = sglidar%beta_mol - lidar_beta_tot(BEGSEG:ENDSEG,:,:) = sglidar%beta_tot - lidar_tau_tot(BEGSEG:ENDSEG,:,:) = sglidar%tau_tot - - endif - - if ( USE_SATSIM_RADAR + USE_SATSIM > 0 ) then - radar_ze_tot(BEGSEG:ENDSEG,:,:) = sgradar%ze_tot - radar_lidar_only_freq_cloud(BEGSEG:ENDSEG,:)=stradar%lidar_only_freq_cloud - radar_lidar_tcc(BEGSEG:ENDSEG)=stradar%radar_lidar_tcc - radar_cfad_ze(BEGSEG:ENDSEG,:,:)=stradar%cfad_ze - endif - - - if ( USE_SATSIM + USE_SATSIM_ISCCP > 0 ) then -! cosp reverses the pressure levls of the isccp matrix for some reason - fq_isccp(BEGSEG:ENDSEG,:,:) = isccp%fq_isccp(:,:,7:1:-1) - ISCCP_totalcldarea(BEGSEG:ENDSEG) = isccp%totalcldarea - ISCCP_meanptop(BEGSEG:ENDSEG) = isccp%meanptop - ISCCP_meanalbedocld(BEGSEG:ENDSEG) = isccp%meanalbedocld - ISCCP_meanallskybrighttemp(BEGSEG:ENDSEG) = isccp%meantb - fq_isccp3D=reshape( fq_isccp, (/ IM, JM, 7 , 7 /) ) - -#ifdef USE_MAPL_UNDEF - - where (fq_isccp3D < -10.0) fq_isccp3D=MAPL_UNDEF - where (fq_isccp3D > 10.0) fq_isccp3D=MAPL_UNDEF - where (ISCCP_totalcldarea < 0.0) ISCCP_totalcldarea=MAPL_UNDEF - where (ISCCP_totalcldarea > 1.0) ISCCP_totalcldarea=MAPL_UNDEF - where (ISCCP_meanptop .le. 0.0 ) ISCCP_meanptop=MAPL_UNDEF - where (ISCCP_meanalbedocld < 0.0) ISCCP_meanalbedocld=MAPL_UNDEF - where (ISCCP_meanalbedocld > 1.0) ISCCP_meanalbedocld=MAPL_UNDEF - where (ISCCP_meanallskybrighttemp < 0.0) ISCCP_meanallskybrighttemp=MAPL_UNDEF - -#endif - - endif ! ( USE_SATSIM + USE_SATSIM_ISCCP > 0 ) - - if ( USE_SATSIM_MISR + USE_SATSIM > 0 ) then - MISR_meanztop(BEGSEG:ENDSEG) = misr%MISR_meanztop - fq_MISR(BEGSEG:ENDSEG,:,:) = misr%fq_MISR - MISR_cldarea(BEGSEG:ENDSEG) = misr%MISR_cldarea - MISR_dist_model_layertops(BEGSEG:ENDSEG,:) = misr%MISR_dist_model_layertops - endif - - if ( USE_SATSIM_MODIS + USE_SATSIM > 0 ) then - MODIS_Cloud_Fraction_Total_Mean(BEGSEG:ENDSEG) = modis%Cloud_Fraction_Total_Mean - MODIS_Cloud_Fraction_Water_Mean(BEGSEG:ENDSEG) = modis%Cloud_Fraction_Water_Mean - MODIS_Cloud_Fraction_Ice_Mean(BEGSEG:ENDSEG) = modis%Cloud_Fraction_Ice_Mean - MODIS_Cloud_Fraction_High_Mean(BEGSEG:ENDSEG) = modis%Cloud_Fraction_High_Mean - MODIS_Cloud_Fraction_Mid_Mean(BEGSEG:ENDSEG) = modis%Cloud_Fraction_Mid_Mean - MODIS_Cloud_Fraction_Low_Mean(BEGSEG:ENDSEG) = modis%Cloud_Fraction_Low_Mean - MODIS_Optical_Thickness_Total_Mean(BEGSEG:ENDSEG) = modis%Optical_Thickness_Total_Mean - MODIS_Optical_Thickness_Water_Mean(BEGSEG:ENDSEG) = modis%Optical_Thickness_Water_Mean - MODIS_Optical_Thickness_Ice_Mean(BEGSEG:ENDSEG) = modis%Optical_Thickness_Ice_Mean - MODIS_Optical_Thickness_Total_LogMean(BEGSEG:ENDSEG) = modis%Optical_Thickness_Total_LogMean - MODIS_Optical_Thickness_Water_LogMean(BEGSEG:ENDSEG) = modis%Optical_Thickness_Water_LogMean - MODIS_Optical_Thickness_Ice_LogMean(BEGSEG:ENDSEG) = modis%Optical_Thickness_Ice_LogMean - MODIS_Cloud_Particle_Size_Water_Mean(BEGSEG:ENDSEG) = modis%Cloud_Particle_Size_Water_Mean - MODIS_Cloud_Particle_Size_Ice_Mean(BEGSEG:ENDSEG) = modis%Cloud_Particle_Size_Ice_Mean - MODIS_Cloud_Top_Pressure_Total_Mean(BEGSEG:ENDSEG) = modis%Cloud_Top_Pressure_Total_Mean - MODIS_Liquid_Water_Path_Mean(BEGSEG:ENDSEG) = modis%Liquid_Water_Path_Mean - MODIS_Ice_Water_Path_Mean(BEGSEG:ENDSEG) = modis%Ice_Water_Path_Mean - MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(BEGSEG:ENDSEG,:,:) = modis%Optical_Thickness_vs_Cloud_Top_Pressure - endif - -#ifdef USE_MAPL_UNDEF - - if ( USE_SATSIM_MODIS + USE_SATSIM > 0 ) then -! setting to undef since 0 implies no clouds - where (MODIS_Optical_Thickness_Total_Mean .le. 0.0 ) MODIS_Optical_Thickness_Total_Mean = MAPL_UNDEF - where (modis_Optical_Thickness_Water_Mean .le. 0.0 ) modis_Optical_Thickness_Water_Mean = MAPL_UNDEF - where (modis_Optical_Thickness_Ice_Mean .le. 0.0 ) modis_Optical_Thickness_Ice_Mean = MAPL_UNDEF - where (modis_Optical_Thickness_Total_LogMean .le. 0.0 ) modis_Optical_Thickness_Total_LogMean = MAPL_UNDEF - where (modis_Optical_Thickness_Water_LogMean .le. 0.0 ) modis_Optical_Thickness_Water_LogMean = MAPL_UNDEF - where (modis_Optical_Thickness_Ice_LogMean .le. 0.0 ) modis_Optical_Thickness_Ice_LogMean = MAPL_UNDEF - where (modis_Cloud_Particle_Size_Water_Mean .le. 0.0 ) modis_Cloud_Particle_Size_Water_Mean = MAPL_UNDEF - where (modis_Cloud_Particle_Size_Ice_Mean .le. 0.0 ) modis_Cloud_Particle_Size_Ice_Mean = MAPL_UNDEF - - where (MODIS_Cloud_Fraction_Total_Mean == R_UNDEF ) MODIS_Cloud_Fraction_Total_Mean = MAPL_UNDEF - where (MODIS_Cloud_Fraction_Water_Mean == R_UNDEF ) MODIS_Cloud_Fraction_Water_Mean = MAPL_UNDEF - where (MODIS_Cloud_Fraction_Ice_Mean == R_UNDEF ) MODIS_Cloud_Fraction_Ice_Mean = MAPL_UNDEF - where (MODIS_Cloud_Fraction_High_Mean == R_UNDEF ) MODIS_Cloud_Fraction_High_Mean = MAPL_UNDEF - where (MODIS_Cloud_Fraction_Mid_Mean == R_UNDEF ) MODIS_Cloud_Fraction_Mid_Mean = MAPL_UNDEF - where (MODIS_Cloud_Fraction_Low_Mean == R_UNDEF ) MODIS_Cloud_Fraction_Low_Mean = MAPL_UNDEF - where (MODIS_Optical_Thickness_Total_Mean == R_UNDEF ) MODIS_Optical_Thickness_Total_Mean = MAPL_UNDEF - where (MODIS_Optical_Thickness_Water_Mean == R_UNDEF ) MODIS_Optical_Thickness_Water_Mean = MAPL_UNDEF - where (MODIS_Optical_Thickness_Ice_Mean == R_UNDEF ) MODIS_Optical_Thickness_Ice_Mean = MAPL_UNDEF - where (MODIS_Optical_Thickness_Total_LogMean == R_UNDEF ) MODIS_Optical_Thickness_Total_LogMean = MAPL_UNDEF - where (MODIS_Optical_Thickness_Water_LogMean == R_UNDEF ) MODIS_Optical_Thickness_Water_LogMean = MAPL_UNDEF - where (MODIS_Optical_Thickness_Ice_LogMean == R_UNDEF ) MODIS_Optical_Thickness_Ice_LogMean = MAPL_UNDEF - where (MODIS_Cloud_Particle_Size_Water_Mean == R_UNDEF ) MODIS_Cloud_Particle_Size_Water_Mean = MAPL_UNDEF - where (MODIS_Cloud_Particle_Size_Ice_Mean == R_UNDEF ) MODIS_Cloud_Particle_Size_Ice_Mean = MAPL_UNDEF - where (MODIS_Cloud_Top_Pressure_Total_Mean == R_UNDEF ) MODIS_Cloud_Top_Pressure_Total_Mean = MAPL_UNDEF - where (MODIS_Cloud_Top_Pressure_Total_Mean .le. 0.0 ) MODIS_Cloud_Top_Pressure_Total_Mean = MAPL_UNDEF - where (MODIS_Liquid_Water_Path_Mean == R_UNDEF ) MODIS_Liquid_Water_Path_Mean = MAPL_UNDEF - where (MODIS_Ice_Water_Path_Mean == R_UNDEF ) MODIS_Ice_Water_Path_Mean = MAPL_UNDEF - where (MODIS_Optical_Thickness_vs_Cloud_Top_Pressure == R_UNDEF ) MODIS_Optical_Thickness_vs_Cloud_Top_Pressure = MAPL_UNDEF - endif - - if ( USE_SATSIM_LIDAR + USE_SATSIM > 0 ) then - where (lidar_cfad_sr == R_UNDEF) lidar_cfad_sr = MAPL_UNDEF - where (lidar_lidarcld .gt. 1.0 ) lidar_lidarcld = MAPL_UNDEF - where (lidar_lidarcld .lt. 0.0 ) lidar_lidarcld = MAPL_UNDEF - where (lidar_cldlayer == R_UNDEF) lidar_cldlayer = MAPL_UNDEF - where (lidar_parasolrefl == R_UNDEF) lidar_parasolrefl = MAPL_UNDEF - endif - - if ( USE_SATSIM_RADAR + USE_SATSIM > 0 ) then - where (radar_ze_tot == R_UNDEF) radar_ze_tot = MAPL_UNDEF - where ( radar_lidar_only_freq_cloud == R_UNDEF) radar_lidar_only_freq_cloud = MAPL_UNDEF - where ( radar_lidar_tcc == R_UNDEF) radar_lidar_tcc = MAPL_UNDEF - where ( radar_cfad_ze == R_UNDEF) radar_cfad_ze = MAPL_UNDEF - endif - - if ( USE_SATSIM_MISR + USE_SATSIM > 0 ) then - where (MISR_meanztop == R_UNDEF ) MISR_meanztop = MAPL_UNDEF - where (MISR_meanztop .le. 0.0 ) MISR_meanztop = MAPL_UNDEF - where (fq_MISR == R_UNDEF ) fq_MISR = MAPL_UNDEF - where (MISR_cldarea == R_UNDEF ) MISR_cldarea = MAPL_UNDEF - where (MISR_dist_model_layertops == R_UNDEF ) MISR_dist_model_layertops = MAPL_UNDEF - endif -#endif - - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -! ISCCP exports -!------------------------------------------------- -!------------------------------------------------- - - -! 4 Cumulus (CU) subcategories -! fq_isccp3D(2:3,6:7) -!------------------------------------------------- - - if (associated(ISCCP_CU_OA)) then - ISCCP_CU_OA = fq_isccp3D(:,:,2,6) - endif - - if (associated(ISCCP_CU_OB)) then - ISCCP_CU_OB = fq_isccp3D(:,:,3,6) - endif - - if (associated(ISCCP_CU_UA)) then - ISCCP_CU_UA = fq_isccp3D(:,:,2,7) - endif - - if (associated(ISCCP_CU_UB)) then - ISCCP_CU_UB = fq_isccp3D(:,:,3,7) - endif - - -! 4 Stratocumulus STCU subcategories -! ISCCP_isccp3D(4:5,6:7) -!------------------------------------------------- - - if (associated(ISCCP_STCU_OA)) then - ISCCP_STCU_OA = fq_isccp3D(:,:,4,6) - endif - - if (associated(ISCCP_STCU_OB)) then - ISCCP_STCU_OB = fq_isccp3D(:,:,5,6) - endif - - if (associated(ISCCP_STCU_UA)) then - ISCCP_STCU_UA = fq_isccp3D(:,:,4,7) - endif - - if (associated(ISCCP_STCU_UB)) then - ISCCP_STCU_UB = fq_isccp3D(:,:,5,7) - endif - -! 4 Stratus ST subcategories -! fq_isccp3D(6:7,6:7) -!------------------------------------------------- - - if (associated(ISCCP_ST_OA)) then - ISCCP_ST_OA = fq_isccp3D(:,:,6,6) - endif - - if (associated(ISCCP_ST_OB)) then - ISCCP_ST_OB = fq_isccp3D(:,:,7,6) - endif - - if (associated(ISCCP_ST_UA)) then - ISCCP_ST_UA = fq_isccp3D(:,:,6,7) - endif - - if (associated(ISCCP_ST_UB)) then - ISCCP_ST_UB = fq_isccp3D(:,:,7,7) - endif - -! 4 Altocumulus ACU subcategories -! fq_isccp3D(2:3,4:5) -!------------------------------------------------- - - if (associated(ISCCP_ACU_OA)) then - ISCCP_ACU_OA = fq_isccp3D(:,:,2,4) - endif - - if (associated(ISCCP_ACU_OB)) then - ISCCP_ACU_OB = fq_isccp3D(:,:,3,4) - endif - - if (associated(ISCCP_ACU_UA)) then - ISCCP_ACU_UA = fq_isccp3D(:,:,2,5) - endif - - if (associated(ISCCP_ACU_UB)) then - ISCCP_ACU_UB = fq_isccp3D(:,:,3,5) - endif - -! 4 Altostratus AST subcategories -! fq_isccp3D(4:5,4:5) -!------------------------------------------------- - - if (associated(ISCCP_AST_OA)) then - ISCCP_AST_OA = fq_isccp3D(:,:,4,4) - endif - - if (associated(ISCCP_AST_OB)) then - ISCCP_AST_OB = fq_isccp3D(:,:,5,4) - endif - - if (associated(ISCCP_AST_UA)) then - ISCCP_AST_UA = fq_isccp3D(:,:,4,5) - endif - - if (associated(ISCCP_AST_UB)) then - ISCCP_AST_UB = fq_isccp3D(:,:,5,5) - endif - -! 4 Nimbostratus NST subcategories -! fq_isccp3D(6:7,4:5) -!------------------------------------------------- - - if (associated(ISCCP_NST_OA)) then - ISCCP_NST_OA = fq_isccp3D(:,:,6,4) - endif - - if (associated(ISCCP_NST_OB)) then - ISCCP_NST_OB = fq_isccp3D(:,:,7,4) - endif - - if (associated(ISCCP_NST_UA)) then - ISCCP_NST_UA = fq_isccp3D(:,:,6,5) - endif - - if (associated(ISCCP_NST_UB)) then - ISCCP_NST_UB = fq_isccp3D(:,:,7,5) - endif - -! 6 Cirrus CI subcategories -! fq_isccp3D(2:3,1:3) -!------------------------------------------------- - - if (associated(ISCCP_CI_OA)) then - ISCCP_CI_OA = fq_isccp3D(:,:,2,1) - endif - - if (associated(ISCCP_CI_OB)) then - ISCCP_CI_OB = fq_isccp3D(:,:,3,1) - endif - - if (associated(ISCCP_CI_MA)) then - ISCCP_CI_MA = fq_isccp3D(:,:,2,2) - endif - - if (associated(ISCCP_CI_MB)) then - ISCCP_CI_MB = fq_isccp3D(:,:,3,2) - endif - - if (associated(ISCCP_CI_UA)) then - ISCCP_CI_UA = fq_isccp3D(:,:,2,3) - endif - - if (associated(ISCCP_CI_UB)) then - ISCCP_CI_UB = fq_isccp3D(:,:,3,3) - endif - -! 6 Cirrostratus CIST subcategories -! fq_isccp3D(4:5,1:3) -!------------------------------------------------- - - if (associated(ISCCP_CIST_OA)) then - ISCCP_CIST_OA = fq_isccp3D(:,:,4,1) - endif - - if (associated(ISCCP_CIST_OB)) then - ISCCP_CIST_OB = fq_isccp3D(:,:,5,1) - endif - - if (associated(ISCCP_CIST_MA)) then - ISCCP_CIST_MA = fq_isccp3D(:,:,4,2) - endif - - if (associated(ISCCP_CIST_MB)) then - ISCCP_CIST_MB = fq_isccp3D(:,:,5,2) - endif - - if (associated(ISCCP_CIST_UA)) then - ISCCP_CIST_UA = fq_isccp3D(:,:,4,3) - endif - - if (associated(ISCCP_CIST_UB)) then - ISCCP_CIST_UB = fq_isccp3D(:,:,5,3) - endif - -! 6 Cumulonimbus CB subcategories -! fq_isccp3D(6:7,1:3) -!------------------------------------------------- - - if (associated(ISCCP_CB_OA)) then - ISCCP_CB_OA = fq_isccp3D(:,:,6,1) - endif - - if (associated(ISCCP_CB_OB)) then - ISCCP_CB_OB = fq_isccp3D(:,:,7,1) - endif - - if (associated(ISCCP_CB_MA)) then - ISCCP_CB_MA = fq_isccp3D(:,:,6,2) - endif - - if (associated(ISCCP_CB_MB)) then - ISCCP_CB_MB = fq_isccp3D(:,:,7,2) - endif - - if (associated(ISCCP_CB_UA)) then - ISCCP_CB_UA = fq_isccp3D(:,:,6,3) - endif - - if (associated(ISCCP_CB_UB)) then - ISCCP_CB_UB = fq_isccp3D(:,:,7,3) - endif - -! 7 Subvisible/Subdetection (SUBV) subcategories -! ISCCP_isccp3D(1,1:7) -!------------------------------------------------- - - if (associated(ISCCP_SUBV1)) then - ISCCP_SUBV1 = fq_isccp3D(:,:,1,1) - endif - - if (associated(ISCCP_SUBV2)) then - ISCCP_SUBV2 = fq_isccp3D(:,:,1,2) - endif - - if (associated(ISCCP_SUBV3)) then - ISCCP_SUBV3 = fq_isccp3D(:,:,1,3) - endif - - if (associated(ISCCP_SUBV4)) then - ISCCP_SUBV4 = fq_isccp3D(:,:,1,4) - endif - - if (associated(ISCCP_SUBV5)) then - ISCCP_SUBV5 = fq_isccp3D(:,:,1,5) - endif - - if (associated(ISCCP_SUBV6)) then - ISCCP_SUBV6 = fq_isccp3D(:,:,1,6) - endif - - if (associated(ISCCP_SUBV7)) then - ISCCP_SUBV7 = fq_isccp3D(:,:,1,7) - endif - - -! 7 pressure levels of all thicknesses -! ISCCP_isccp3D(:,:,:,1:7) -!------------------------------------------------- - - if (associated(CLISCCP1)) then - CLISCCP1 = fq_isccp3D(:,:,:,1) - endif - - if (associated(CLISCCP2)) then - CLISCCP2 = fq_isccp3D(:,:,:,2) - endif - - if (associated(CLISCCP3)) then - CLISCCP3 = fq_isccp3D(:,:,:,3) - endif - - if (associated(CLISCCP4)) then - CLISCCP4 = fq_isccp3D(:,:,:,4) - endif - - if (associated(CLISCCP5)) then - CLISCCP5 = fq_isccp3D(:,:,:,5) - endif - - if (associated(CLISCCP6)) then - CLISCCP6 = fq_isccp3D(:,:,:,6) - endif - - if (associated(CLISCCP7)) then - CLISCCP7 = fq_isccp3D(:,:,:,7) - endif - - - - if (associated(ISCCP1)) then - ISCCP1 = fq_isccp3D(:,:,:,1) - endif - - if (associated(ISCCP2)) then - ISCCP2 = fq_isccp3D(:,:,:,2) - endif - - if (associated(ISCCP3)) then - ISCCP3 = fq_isccp3D(:,:,:,3) - endif - - if (associated(ISCCP4)) then - ISCCP4 = fq_isccp3D(:,:,:,4) - endif - - if (associated(ISCCP5)) then - ISCCP5 = fq_isccp3D(:,:,:,5) - endif - - if (associated(ISCCP6)) then - ISCCP6 = fq_isccp3D(:,:,:,6) - endif - - if (associated(ISCCP7)) then - ISCCP7 = fq_isccp3D(:,:,:,7) - endif - - - if (associated(CLTISCCP)) then - CLTISCCP = reshape ( ISCCP_totalcldarea, (/ IM , JM /) ) - endif - - if (associated(TCLISCCP)) then - TCLISCCP = reshape ( ISCCP_totalcldarea, (/ IM , JM /) ) - endif - - if (associated(PCTISCCP)) then - PCTISCCP = reshape ( ISCCP_meanptop, (/ IM , JM /) ) - endif - - if (associated(CTPISCCP)) then - CTPISCCP = reshape ( ISCCP_meanptop, (/ IM , JM /) ) - endif - - if (associated(ALBISCCP)) then - ALBISCCP = reshape ( ISCCP_meanalbedocld, (/ IM , JM /) ) - endif - - if (associated(TBISCCP)) then - TBISCCP = reshape ( ISCCP_meanallskybrighttemp, (/ IM , JM /) ) - endif - - -! CALIPSO/lidar exports -!------------------------------------------------- -!------------------------------------------------- - - if (associated(CLCALIPSO)) then - CLCALIPSO = reshape( lidar_lidarcld(:,LM:1:-1), (/IM , JM , LM /) ) - endif - - if (associated(CLLCALIPSO)) then - CLLCALIPSO = reshape( lidar_cldlayer(:,1), (/IM , JM /) ) ! low - endif - - if (associated(CLMCALIPSO)) then - CLMCALIPSO = reshape( lidar_cldlayer(:,2), (/IM , JM /) ) ! middle - endif - - if (associated(CLHCALIPSO)) then - CLHCALIPSO = reshape( lidar_cldlayer(:,3), (/IM , JM /) ) ! high - endif - - if (associated(CLTCALIPSO)) then - CLTCALIPSO = reshape( lidar_cldlayer(:,4), (/IM , JM /) ) ! total - endif - - if (associated(PARASOLREFL0)) then - PARASOLREFL0 = reshape( lidar_parasolrefl, (/IM , JM, PARASOL_NREFL /) ) - endif - - if (associated(PARASOLREFL1)) then - PARASOLREFL1 = reshape( lidar_parasolrefl(:,1), (/IM , JM /) ) - endif - - if (associated(PARASOLREFL2)) then - PARASOLREFL2 = reshape( lidar_parasolrefl(:,2), (/IM , JM /) ) - endif - - if (associated(PARASOLREFL3)) then - PARASOLREFL3 = reshape( lidar_parasolrefl(:,3), (/IM , JM /) ) - endif - - if (associated(PARASOLREFL4)) then - PARASOLREFL4 = reshape( lidar_parasolrefl(:,4), (/IM , JM /) ) - endif - - if (associated(PARASOLREFL5)) then - PARASOLREFL5 = reshape( lidar_parasolrefl(:,5), (/IM , JM /) ) - endif - - if (associated(CFADLIDARSR532_01)) then - CFADLIDARSR532_01 = reshape( lidar_cfad_sr(:,1,LM:1:-1) , (/IM , JM , LM /) ) - endif - - if (associated(CFADLIDARSR532_02)) then - CFADLIDARSR532_02 = reshape( lidar_cfad_sr(:,2,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_03)) then - CFADLIDARSR532_03 = reshape( lidar_cfad_sr(:,3,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_04)) then - CFADLIDARSR532_04 = reshape( lidar_cfad_sr(:,4,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_05)) then - CFADLIDARSR532_05= reshape( lidar_cfad_sr (:,5,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_06)) then - CFADLIDARSR532_06 = reshape( lidar_cfad_sr (:,6,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_07)) then - CFADLIDARSR532_07 = reshape( lidar_cfad_sr(:,7,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_08)) then - CFADLIDARSR532_08 = reshape( lidar_cfad_sr (:,8,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_09)) then - CFADLIDARSR532_09 = reshape( lidar_cfad_sr(:,9,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_10)) then - CFADLIDARSR532_10 = reshape( lidar_cfad_sr(:,10,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_11)) then - CFADLIDARSR532_11 = reshape( lidar_cfad_sr(:,11,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_12)) then - CFADLIDARSR532_12 = reshape( lidar_cfad_sr(:,12,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_13)) then - CFADLIDARSR532_13 = reshape( lidar_cfad_sr(:,13,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_14)) then - CFADLIDARSR532_14 = reshape( lidar_cfad_sr(:,14,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CFADLIDARSR532_15)) then - CFADLIDARSR532_15 = reshape( lidar_cfad_sr(:,15,LM:1:-1) , (/IM , JM , LM /) ) - endif - - if (associated(LIDARPMOL)) then - LIDARPMOL = reshape( lidar_pmol(:,LM:1:-1), (/IM , JM , LM /) ) - endif - - if (associated(LIDARPTOT)) then - LIDARPTOT =reshape( sum( lidar_beta_tot(:,:,LM:1:-1) , 2 )/(1.*NCOLumns) , (/IM , JM , LM /) ) - endif - - if (associated(LIDARTAUTOT)) then - LIDARTAUTOT =reshape( sum( lidar_tau_tot(:,:,LM:1:-1) , 2 )/(1.*NCOLumns) , (/IM , JM , LM /) ) - endif - - - -! CLOUDSAT/radar exports -!------------------------------------------------- -!------------------------------------------------- - -#define SATSIMTEMP -#ifdef SATSIMTEMP - if (associated(RADARZETOT)) then - radar_ze_tot_mask = (radar_ze_tot /= MAPL_UNDEF) ! mask out undefined columns - ncvalid = count(radar_ze_tot_mask, dim=2) ! number of defined columns - radar_ze_tot_max = maxval(radar_ze_tot,dim=2,mask=radar_ze_tot_mask) ! maximum among columns - radar_ze_tot_tmp = spread(radar_ze_tot_max,dim=2,ncopies=NCOLUMNS) ! max copied to all columns - where (radar_ze_tot_mask) & - radar_ze_tot_tmp = 10.0**((radar_ze_tot-radar_ze_tot_tmp)/10.0) ! convert to rel reflectivity - where (ncvalid > 0) - radar_ze_tot_mean = & - sum(radar_ze_tot_tmp,dim=2,mask=radar_ze_tot_mask)/real(ncvalid) ! mean rel reflectivity - radar_ze_tot_mean = radar_ze_tot_max + 10.0*log10(radar_ze_tot_mean) ! convert back to dBZ - elsewhere - radar_ze_tot_mean = MAPL_UNDEF - end where - RADARZETOT=reshape(radar_ze_tot_mean(:,LM:1:-1),(/IM,JM,LM/)) - end if - !if (associated(RADARZETOT)) then - ! radar_ze_tot_mask = (radar_ze_tot .ne. MAPL_UNDEF) - ! ncvalid = count( radar_ze_tot_mask, 2 ) - ! where (ncvalid > 0) - ! radar_ze_tot_max = maxval( radar_ze_tot, 2, radar_ze_tot_mask ) - ! radar_ze_tot_mean = radar_ze_tot_max + 10.0*log10( sum( 10.0**((radar_ze_tot - spread(radar_ze_tot_max, 2, NCOLUMNS))/10.0), 2, radar_ze_tot_mask ) / ncvalid ) - ! elsewhere - ! radar_ze_tot_mean = MAPL_UNDEF - ! end where - ! RADARZETOT=reshape( radar_ze_tot_mean(:,LM:1:-1), (/IM , JM , LM /) ) - !end if -#else - if (associated(RADARZETOT)) then - RADARZETOT=reshape( sum( radar_ze_tot(:,:,LM:1:-1) , 2 )/(1.*NCOLumns) , (/IM , JM , LM /) ) - endif -#endif ! SATSIMTEMP - - - if (associated(RADARLTCC)) then - RADARLTCC= reshape( radar_lidar_tcc, (/IM , JM /) ) - endif - - if (associated(CLCALIPSO2)) then - CLCALIPSO2= reshape( radar_lidar_only_freq_cloud(:,LM:1:-1), (/IM , JM , LM /) ) - endif - - if (associated(CLOUDSATCFAD01)) then - CLOUDSATCFAD01 = reshape( radar_cfad_ze(:,1,LM:1:-1) , (/IM , JM , LM /) ) - endif - - if (associated(CLOUDSATCFAD02)) then - CLOUDSATCFAD02 = reshape( radar_cfad_ze(:,2,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD03)) then - CLOUDSATCFAD03 = reshape( radar_cfad_ze(:,3,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD04)) then - CLOUDSATCFAD04 = reshape( radar_cfad_ze(:,4,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD05)) then - CLOUDSATCFAD05= reshape( radar_cfad_ze (:,5,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD06)) then - CLOUDSATCFAD06 = reshape( radar_cfad_ze (:,6,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD07)) then - CLOUDSATCFAD07 = reshape( radar_cfad_ze(:,7,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD08)) then - CLOUDSATCFAD08 = reshape( radar_cfad_ze (:,8,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD09)) then - CLOUDSATCFAD09 = reshape( radar_cfad_ze(:,9,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD10)) then - CLOUDSATCFAD10 = reshape( radar_cfad_ze(:,10,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD11)) then - CLOUDSATCFAD11 = reshape( radar_cfad_ze(:,11,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD12)) then - CLOUDSATCFAD12 = reshape( radar_cfad_ze(:,12,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD13)) then - CLOUDSATCFAD13 = reshape( radar_cfad_ze(:,13,LM:1:-1) , (/IM , JM , LM /) ) - endif - - if (associated(CLOUDSATCFAD14)) then - CLOUDSATCFAD14 = reshape( radar_cfad_ze(:,14,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - if (associated(CLOUDSATCFAD15)) then - CLOUDSATCFAD15 = reshape( radar_cfad_ze(:,15,LM:1:-1) , (/IM , JM , LM /) ) - endif - - - -! MODIS exports -- currently available only from COSP - - if (associated(MDSCLDFRCTTL)) then - MDSCLDFRCTTL = reshape( MODIS_Cloud_Fraction_Total_Mean, (/IM , JM /) ) - endif - - if (associated(MDSCLDFRCWTR)) then - MDSCLDFRCWTR = reshape( MODIS_Cloud_Fraction_Water_Mean, (/IM , JM /) ) - endif - - if (associated(MDSCLDFRCH2O)) then - MDSCLDFRCH2O = reshape( MODIS_Cloud_Fraction_Water_Mean, (/IM , JM /) ) - endif - - if (associated(MDSCLDFRCICE)) then - MDSCLDFRCICE = reshape( MODIS_Cloud_Fraction_Ice_Mean, (/IM , JM /) ) - endif - - if (associated(MDSCLDFRCHI)) then - MDSCLDFRCHI = reshape( MODIS_Cloud_Fraction_High_Mean, (/IM , JM /) ) - endif - - if (associated(MDSCLDFRCMID)) then - MDSCLDFRCMID = reshape( MODIS_Cloud_Fraction_Mid_Mean, (/IM , JM /) ) - endif - - if (associated(MDSCLDFRCLO)) then - MDSCLDFRCLO = reshape( MODIS_Cloud_Fraction_Low_Mean, (/IM , JM /) ) - endif - - if (associated(MDSOPTHCKTTL)) then - MDSOPTHCKTTL = reshape( MODIS_Optical_Thickness_Total_Mean, (/IM , JM /) ) - endif - - if (associated(MDSOPTHCKWTR)) then - MDSOPTHCKWTR = reshape( MODIS_Optical_Thickness_Water_Mean, (/IM , JM /) ) - endif - - if (associated(MDSOPTHCKH2O)) then - MDSOPTHCKH2O = reshape( MODIS_Optical_Thickness_Water_Mean, (/IM , JM /) ) - endif - - if (associated(MDSOPTHCKICE)) then - MDSOPTHCKICE = reshape( MODIS_Optical_Thickness_Ice_Mean, (/IM , JM /) ) - endif - - if (associated(MDSOPTHCKTTLLG)) then - MDSOPTHCKTTLLG = reshape( MODIS_Optical_Thickness_Total_LogMean, (/IM , JM /) ) - endif - - if (associated(MDSOPTHCKWTRLG)) then - MDSOPTHCKWTRLG = reshape( MODIS_Optical_Thickness_Water_LogMean, (/IM , JM /) ) - endif - - if (associated(MDSOPTHCKH2OLG)) then - MDSOPTHCKH2OLG = reshape( MODIS_Optical_Thickness_Water_LogMean, (/IM , JM /) ) - endif - - if (associated(MDSOPTHCKICELG)) then - MDSOPTHCKICELG = reshape( MODIS_Optical_Thickness_Ice_LogMean, (/IM , JM /) ) - endif - - if (associated(MDSCLDSZWTR)) then - MDSCLDSZWTR = reshape( MODIS_Cloud_Particle_Size_Water_Mean, (/IM , JM /) ) - endif - - if (associated(MDSCLDSZH20)) then - MDSCLDSZH20 = reshape( MODIS_Cloud_Particle_Size_Water_Mean, (/IM , JM /) ) - endif - - if (associated(MDSCLDSZICE)) then - MDSCLDSZICE = reshape( MODIS_Cloud_Particle_Size_Ice_Mean, (/IM , JM /) ) - endif - - if (associated(MDSCLDTOPPS)) then - MDSCLDTOPPS = reshape( MODIS_Cloud_Top_Pressure_Total_Mean, (/IM , JM /) ) - endif - - if (associated(MDSWTRPATH)) then - MDSWTRPATH = reshape( MODIS_Liquid_Water_Path_Mean, (/IM , JM /) ) - endif - - if (associated(MDSH2OPATH)) then - MDSH2OPATH = reshape( MODIS_Liquid_Water_Path_Mean, (/IM , JM /) ) - endif - - if (associated(MDSICEPATH)) then - MDSICEPATH = reshape( MODIS_Ice_Water_Path_Mean, (/IM , JM /) ) - endif - - if (associated(MDSTAUPRSHIST11)) then - MDSTAUPRSHIST11 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,1,1),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST12)) then - MDSTAUPRSHIST12 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,1,2),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST13)) then - MDSTAUPRSHIST13 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,1,3),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST14)) then - MDSTAUPRSHIST14 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,1,4),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST15)) then - MDSTAUPRSHIST15 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,1,5),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST16)) then - MDSTAUPRSHIST16 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,1,6),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST17)) then - MDSTAUPRSHIST17 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,1,7),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST21)) then - MDSTAUPRSHIST21 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,2,1),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST22)) then - MDSTAUPRSHIST22 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,2,2),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST23)) then - MDSTAUPRSHIST23 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,2,3),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST24)) then - MDSTAUPRSHIST24 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,2,4),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST25)) then - MDSTAUPRSHIST25 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,2,5),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST26)) then - MDSTAUPRSHIST26 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,2,6),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST27)) then - MDSTAUPRSHIST27 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,2,7),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST31)) then - MDSTAUPRSHIST31 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,3,1),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST32)) then - MDSTAUPRSHIST32 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,3,2),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST33)) then - MDSTAUPRSHIST33 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,3,3),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST34)) then - MDSTAUPRSHIST34 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,3,4),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST35)) then - MDSTAUPRSHIST35 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,3,5),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST36)) then - MDSTAUPRSHIST36 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,3,6),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST37)) then - MDSTAUPRSHIST37 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,3,7),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST41)) then - MDSTAUPRSHIST41 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,4,1),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST42)) then - MDSTAUPRSHIST42 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,4,2),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST43)) then - MDSTAUPRSHIST43 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,4,3),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST44)) then - MDSTAUPRSHIST44 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,4,4),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST45)) then - MDSTAUPRSHIST45 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,4,5),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST46)) then - MDSTAUPRSHIST46 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,4,6),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST47)) then - MDSTAUPRSHIST47 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,4,7),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST51)) then - MDSTAUPRSHIST51 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,5,1),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST52)) then - MDSTAUPRSHIST52 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,5,2),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST53)) then - MDSTAUPRSHIST53 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,5,3),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST54)) then - MDSTAUPRSHIST54 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,5,4),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST55)) then - MDSTAUPRSHIST55 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,5,5),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST56)) then - MDSTAUPRSHIST56 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,5,6),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST57)) then - MDSTAUPRSHIST57 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,5,7),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST61)) then - MDSTAUPRSHIST61 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,6,1),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST62)) then - MDSTAUPRSHIST62 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,6,2),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST63)) then - MDSTAUPRSHIST63 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,6,3),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST64)) then - MDSTAUPRSHIST64 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,6,4),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST65)) then - MDSTAUPRSHIST65 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,6,5),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST66)) then - MDSTAUPRSHIST66 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,6,6),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST67)) then - MDSTAUPRSHIST67 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,6,7),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST71)) then - MDSTAUPRSHIST71 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,7,1),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST72)) then - MDSTAUPRSHIST72 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,7,2),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST73)) then - MDSTAUPRSHIST73 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,7,3),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST74)) then - MDSTAUPRSHIST74 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,7,4),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST75)) then - MDSTAUPRSHIST75 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,7,5),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST76)) then - MDSTAUPRSHIST76 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,7,6),(/IM , JM /)) - endif - - if (associated(MDSTAUPRSHIST77)) then - MDSTAUPRSHIST77 = reshape( MODIS_Optical_Thickness_vs_Cloud_Top_Pressure(:,7,7),(/IM , JM /)) - endif - - if (associated(MISRMNCLDTP)) then - MISRMNCLDTP = reshape( MISR_meanztop, (/IM , JM /) ) - endif - - if (associated(MISRCLDAREA)) then - MISRCLDAREA = reshape( MISR_cldarea, (/IM , JM /) ) - endif - - if (associated(MISRLYRTP0)) then - MISRLYRTP0 = reshape( MISR_dist_model_layertops(:,1), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP250)) then - MISRLYRTP250 = reshape( MISR_dist_model_layertops(:,2), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP750)) then - MISRLYRTP750 = reshape( MISR_dist_model_layertops(:,3), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP1250)) then - MISRLYRTP1250 = reshape( MISR_dist_model_layertops(:,4), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP1750)) then - MISRLYRTP1750 = reshape( MISR_dist_model_layertops(:,5), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP2250)) then - MISRLYRTP2250 = reshape( MISR_dist_model_layertops(:,6), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP2750)) then - MISRLYRTP2750 = reshape( MISR_dist_model_layertops(:,7), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP3500)) then - MISRLYRTP3500 = reshape( MISR_dist_model_layertops(:,8), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP4500)) then - MISRLYRTP4500 = reshape( MISR_dist_model_layertops(:,9), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP6000)) then - MISRLYRTP6000 = reshape( MISR_dist_model_layertops(:,10), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP8000)) then - MISRLYRTP8000 = reshape( MISR_dist_model_layertops(:,11), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP10000)) then - MISRLYRTP10000 = reshape( MISR_dist_model_layertops(:,12), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP12000)) then - MISRLYRTP12000 = reshape( MISR_dist_model_layertops(:,13), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP14000)) then - MISRLYRTP14000 = reshape( MISR_dist_model_layertops(:,14), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP16000)) then - MISRLYRTP16000 = reshape( MISR_dist_model_layertops(:,15), (/IM , JM /) ) - endif - - if (associated(MISRLYRTP18000)) then - MISRLYRTP18000 = reshape( MISR_dist_model_layertops(:,16), (/IM , JM /) ) - endif - - - if (associated(MISRFQ0)) then - MISRFQ0 = reshape( fq_MISR(:,:,1), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ250)) then - MISRFQ250 = reshape( fq_MISR(:,:,2), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ750)) then - MISRFQ750 = reshape( fq_MISR(:,:,3), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ1250)) then - MISRFQ1250 = reshape( fq_MISR(:,:,4), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ1750)) then - MISRFQ1750 = reshape( fq_MISR(:,:,5), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ2250)) then - MISRFQ2250 = reshape( fq_MISR(:,:,6), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ2750)) then - MISRFQ2750 = reshape( fq_MISR(:,:,7), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ3500)) then - MISRFQ3500 = reshape( fq_MISR(:,:,8), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ4500)) then - MISRFQ4500 = reshape( fq_MISR(:,:,9), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ6000)) then - MISRFQ6000 = reshape( fq_MISR(:,:,10), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ8000)) then - MISRFQ8000 = reshape( fq_MISR(:,:,11), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ10000)) then - MISRFQ10000 = reshape( fq_MISR(:,:,12), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ12000)) then - MISRFQ12000 = reshape( fq_MISR(:,:,13), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ14000)) then - MISRFQ14000 = reshape( fq_MISR(:,:,14), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ16000)) then - MISRFQ16000 = reshape( fq_MISR(:,:,15), (/IM , JM , 7 /) ) - endif - - if (associated(MISRFQ18000)) then - MISRFQ18000 = reshape( fq_MISR(:,:,16), (/IM , JM , 7 /) ) - endif - - call ESMF_UserCompGetInternalState(gc, 'SatSim_State', WRAP, STATUS) - VERIFY_(STATUS) - self => wrap%ptr - - if (self%nmask_vars > 0) then - ! get orb bundle - call ESMF_StateGet(IMPORT,'SATORB',BUNDLE,RC=STATUS) - VERIFY_(STATUS) - call MAPL_Get(STATE,ExportSpec=ExportSpec,RC=STATUS) - VERIFY_(STATUS) - do i=1,self%nmask_vars - vindex = MAPL_VarSpecGetIndex(ExportSpec,self%export_name(i),RC=STATUS) - VERIFY_(STATUS) - call MAPL_VarSpecGet(ExportSpec(vindex),Dims=MAPL_dims,ungridded_dims=Ungridded_dims,RC=STATUS) - VERIFY_(STATUS) - ! mask from bundle - call ESMFL_BundleGetPointerToData(BUNDLE,self%mask_name(i),ptr_mask,rc=status) - VERIFY_(STATUS) - if (self%newvar(i)) then - - ! determine what dimension pointer we need - if (MAPL_dims == MAPL_DimsHorzOnly .and. (.not.associated(ungridded_dims))) then - call MAPL_GetPointer(EXPORT, ptr2d_new,self%newvar_name(i), RC=STATUS) - VERIFY_(STATUS) - if (associated(ptr2d_new)) then - call MAPL_GetPointer(EXPORT,ptr2d,self%export_name(i),RC=STATUS) - VERIFY_(STATUS) - ptr2d_new=ptr2d - where(ptr_mask == MAPL_UNDEF) - ptr2d_new = MAPL_UNDEF - end where - nullify(ptr2d_new) - nullify(ptr2d) - end if - end if - if (MAPL_dims == MAPL_DimsHorzOnly .and. associated(ungridded_dims)) then - call MAPL_GetPointer(EXPORT, ptr3d_new,self%newvar_name(i), RC=STATUS) - VERIFY_(STATUS) - if (associated(ptr3d_new)) then - call MAPL_GetPointer(EXPORT,ptr3d,self%export_name(i),RC=STATUS) - VERIFY_(STATUS) - ptr3d_new=ptr3d - do j=1,ungridded_dims(1) - where(ptr_mask == MAPL_UNDEF) - ptr3d_new(:,:,j) = MAPL_UNDEF - end where - nullify(ptr3d_new) - nullify(ptr3d) - end do - end if - end if - if (MAPL_dims == MAPL_DimsHorzVert) then - call MAPL_GetPointer(EXPORT, ptr3d_new,self%newvar_name(i), RC=STATUS) - VERIFY_(STATUS) - if (associated(ptr3d_new)) then - call MAPL_GetPointer(EXPORT,ptr3d,self%export_name(i),RC=STATUS) - VERIFY_(STATUS) - ptr3d_new=ptr3d - do j=1,lm - where(ptr_mask == MAPL_UNDEF) - ptr3d_new(:,:,j) = MAPL_UNDEF - end where - end do - nullify(ptr3d_new) - nullify(ptr3d) - end if - end if - - else - ! determine what dimension pointer we need - if (MAPL_dims == MAPL_DimsHorzOnly .and. (.not.associated(ungridded_dims))) then - call MAPL_GetPointer(EXPORT, ptr2d,self%newvar_name(i), RC=STATUS) - VERIFY_(STATUS) - if (associated(ptr2d)) then - where(ptr_mask == MAPL_UNDEF) - ptr2d = MAPL_UNDEF - end where - nullify(ptr2d) - end if - end if - if (MAPL_dims == MAPL_DimsHorzOnly .and. associated(ungridded_dims)) then - call MAPL_GetPointer(EXPORT, ptr3d,self%newvar_name(i), RC=STATUS) - VERIFY_(STATUS) - if (associated(ptr3d)) then - do j=1,ungridded_dims(1) - where(ptr_mask == MAPL_UNDEF) - ptr3d(:,:,j) = MAPL_UNDEF - end where - end do - nullify(ptr3d) - end if - end if - if (MAPL_dims == MAPL_DimsHorzVert) then - call MAPL_GetPointer(EXPORT, ptr3d,self%newvar_name(i), RC=STATUS) - VERIFY_(STATUS) - if (associated(ptr3d)) then - do j=1,lm - where(ptr_mask == MAPL_UNDEF) - ptr3d(:,:,j) = MAPL_UNDEF - end where - end do - nullify(ptr3d) - end if - end if - - end if - - nullify(ptr_mask) - - end do - end if - - ! deallocate stuff - !----------------- - deallocate( frac_out, __STAT__) - !deallocate( frac_outinv, __STAT__) - deallocate( lidar_beta_tot, __STAT__) - deallocate( lidar_tau_tot, __STAT__) - deallocate( radar_ze_tot, __STAT__) - deallocate( radar_ze_tot_tmp, __STAT__) - deallocate(radar_ze_tot_mask, __STAT__) - - call FREE_COSP_GRIDBOX(gbx) - call FREE_COSP_SUBGRID(sgx) - if (cfg%Lisccp_sim) call FREE_COSP_ISCCP(isccp) - !call FREE_COSP_SGHYDRO(sghydro) - if (cfg%Lradar_sim) call FREE_COSP_SGRADAR(sgradar) - if (cfg%Llidar_sim) call FREE_COSP_SGLIDAR(sglidar) - call FREE_COSP_VGRID(vgrid) - if (cfg%Llidar_sim) call FREE_COSP_LIDARSTATS(stlidar) - if (cfg%Lradar_sim) call FREE_COSP_RADARSTATS(stradar) - if (cfg%Lmodis_sim) call FREE_COSP_MODIS(modis) - if (cfg%Lmisr_sim ) call FREE_COSP_MISR(misr) - - RETURN_(ESMF_SUCCESS) - - end subroutine SIM_DRIVER - - end subroutine RUN - - -end module GEOS_SatsimGridCompMod - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/MISR_simulator.f b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/MISR_simulator.f deleted file mode 100644 index aa4342bad..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/MISR_simulator.f +++ /dev/null @@ -1,473 +0,0 @@ -! -! Copyright (c) 2009, Roger Marchand, version 1.2 -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list of -! conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the University of Washington nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, -! BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT -! SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -! - - SUBROUTINE MISR_simulator( - & npoints, - & nlev, - & ncol, - & sunlit, - & zfull, - & at, - & dtau_s, - & dtau_c, - & frac_out, - & missing_value, - & fq_MISR_TAU_v_CTH, - & dist_model_layertops, - & MISR_mean_ztop, - & MISR_cldarea - & ) - - - implicit none - integer n_MISR_CTH - parameter(n_MISR_CTH=16) - -! ----- -! Input -! ----- - - INTEGER npoints ! if ncol ==1, the number of model points in the horizontal grid - ! else the number of GCM grid points - - INTEGER nlev ! number of model vertical levels - - INTEGER ncol ! number of model sub columns - ! (must already be generated in via scops and passed to this - ! routine via the variable frac_out ) - - INTEGER sunlit(npoints) ! 1 for day points, 0 for night time - - REAL zfull(npoints,nlev) ! height (in meters) of full model levels (i.e. midpoints) - ! zfull(npoints,1) is top level of model - ! zfull(npoints,nlev) is bottom level of model (closest point to surface) - - REAL at(npoints,nlev) ! temperature in each model level (K) - - REAL dtau_s(npoints,nlev) ! visible wavelength cloud optical depth ... for "stratiform" condensate - ! NOTE: this the cloud optical depth of only the - ! the model cell (i,j) - - REAL dtau_c(npoints,nlev) ! visible wavelength cloud optical depth ... for "convective" condensate - ! NOTE: this the cloud optical depth of only the - ! the model cell (i,j) - - REAL frac_out(npoints,ncol,nlev) ! NOTE: only need if columns>1 ... subgrid scheme in use. - - REAL missing_value - -! ------ -! Outputs -! ------ - - REAL fq_MISR_TAU_v_CTH(npoints,7,n_MISR_CTH) - REAL dist_model_layertops(npoints,n_MISR_CTH) - REAL MISR_cldarea(npoints) ! fractional area coverged by clouds - REAL MISR_mean_ztop(npoints) ! mean cloud top hieght(m) MISR would observe - ! NOTE: == 0 if area ==0 - - -! ------ -! Working variables -! ------ - - REAL tau(npoints,ncol) ! total column optical depth ... - - INTEGER j,ilev,ilev2,ibox,k - INTEGER itau - - LOGICAL box_cloudy(npoints,ncol) - - real isccp_taumin - real boxarea - real tauchk - REAL box_MISR_ztop(npoints,ncol) ! cloud top hieght(m) MISR would observe - - integer thres_crossed_MISR - integer loop,iMISR_ztop - - real dtau, cloud_dtau, MISR_penetration_height,ztest - - real MISR_CTH_boundaries(n_MISR_CTH+1) - - DATA MISR_CTH_boundaries / -99, 0, 0.5, 1, 1.5, 2, 2.5, 3, - c 4, 5, 7, 9, 11, 13, 15, 17, 99 / - - DATA isccp_taumin / 0.3 / - - tauchk = -1.*log(0.9999999) - - ! - ! For each GCM cell or horizontal model grid point ... - ! - do j=1,npoints - - ! - ! estimate distribution of Model layer tops - ! - dist_model_layertops(j,:)=0 - - do ilev=1,nlev - - ! define location of "layer top" - if(ilev.eq.1 .or. ilev.eq.nlev) then - ztest=zfull(j,ilev) - else - ztest=0.5*(zfull(j,ilev)+zfull(j,ilev-1)) - endif - - ! find MISR layer that contains this level - ! note, the first MISR level is "no height" level - iMISR_ztop=2 - do loop=2,n_MISR_CTH - - if ( ztest .gt. - & 1000*MISR_CTH_boundaries(loop+1) ) then - - iMISR_ztop=loop+1 - endif - enddo - - dist_model_layertops(j,iMISR_ztop)= - & dist_model_layertops(j,iMISR_ztop)+1 - enddo - - - ! - ! compute total cloud optical depth for each column - ! - do ibox=1,ncol - - ! Initialize tau to zero in each subcolum - tau(j,ibox)=0. - box_cloudy(j,ibox)=.false. - box_MISR_ztop(j,ibox)=0 - - ! initialize threshold detection for each sub column - thres_crossed_MISR=0; - - do ilev=1,nlev - - dtau=0 - - if (frac_out(j,ibox,ilev).eq.1) then - dtau = dtau_s(j,ilev) - endif - - if (frac_out(j,ibox,ilev).eq.2) then - dtau = dtau_c(j,ilev) - end if - - tau(j,ibox)=tau(j,ibox)+ dtau - - - ! NOW for MISR .. - ! if there a cloud ... start the counter ... store this height - if(thres_crossed_MISR .eq. 0 .and. dtau .gt. 0.) then - - ! first encountered a "cloud" - thres_crossed_MISR=1 - cloud_dtau=0 - endif - - if( thres_crossed_MISR .lt. 99 .and. - & thres_crossed_MISR .gt. 0 ) then - - if( dtau .eq. 0.) then - - ! we have come to the end of the current cloud - ! layer without yet selecting a CTH boundary. - ! ... restart cloud tau counter - cloud_dtau=0 - else - ! add current optical depth to count for - ! the current cloud layer - cloud_dtau=cloud_dtau+dtau - endif - - ! if the cloud is continuous but optically thin (< 1) - ! from above the current layer cloud top to the current level - ! then MISR will like see a top below the top of the current - ! layer - if( dtau.gt.0 .and. (cloud_dtau-dtau) .lt. 1) then - - if(dtau .lt. 1 .or. ilev.eq.1 .or. ilev.eq.nlev) then - - ! MISR will likely penetrate to some point - ! within this layer ... the middle - MISR_penetration_height=zfull(j,ilev) - - else - ! take the OD = 1.0 level into this layer - MISR_penetration_height= - & 0.5*(zfull(j,ilev)+zfull(j,ilev-1)) - - & 0.5*(zfull(j,ilev-1)-zfull(j,ilev+1)) - & /dtau - endif - - box_MISR_ztop(j,ibox)=MISR_penetration_height - - endif - - ! check for a distinctive water layer - if(dtau .gt. 1 .and. at(j,ilev).gt.273 ) then - - ! must be a water cloud ... - ! take this as CTH level - thres_crossed_MISR=99 - endif - - ! if the total column optical depth is "large" than - ! MISR can't seen anything else ... set current point as CTH level - if(tau(j,ibox) .gt. 5) then - - thres_crossed_MISR=99 - endif - - endif ! MISR CTH booundary not set - - enddo !ilev - loop over vertical levesl - - ! written by roj 5/2006 - ! check to see if there was a cloud for which we didn't - ! set a MISR cloud top boundary - if( thres_crossed_MISR .eq. 1) then - - ! if the cloud has a total optical depth of greater - ! than ~ 0.5 MISR will still likely pick up this cloud - ! with a height near the true cloud top - ! otherwise there should be no CTH - if( tau(j,ibox) .gt. 0.5) then - - ! keep MISR detected CTH - - elseif(tau(j,ibox) .gt. 0.2) then - - ! MISR may detect but wont likley have a good height - box_MISR_ztop(j,ibox)=-1 - - else - ! MISR not likely to even detect. - ! so set as not cloudy - box_MISR_ztop(j,ibox)=0 - - endif - - endif - - enddo ! loop of subcolumns - enddo ! loop of gridpoints - - - ! - ! Modify MISR CTH for satellite spatial / pattern matcher effects - ! - ! Code in this region added by roj 5/2006 to account - ! for spatial effect of the MISR pattern matcher. - ! Basically, if a column is found between two neighbors - ! at the same CTH, and that column has no hieght or - ! a lower CTH, THEN misr will tend to but place the - ! odd column at the same height as it neighbors. - ! - ! This setup assumes the columns represent a about a 1 to 4 km scale - ! it will need to be modified significantly, otherwise - if(ncol.eq.1) then - - ! adjust based on neightboring points ... i.e. only 2D grid was input - do j=2,npoints-1 - - if(box_MISR_ztop(j-1,1).gt.0 .and. - & box_MISR_ztop(j+1,1).gt.0 ) then - - if( abs( box_MISR_ztop(j-1,1) - - & box_MISR_ztop(j+1,1) ) .lt. 500 - & .and. - & box_MISR_ztop(j,1) .lt. - & box_MISR_ztop(j+1,1) ) then - - box_MISR_ztop(j,1) = - & box_MISR_ztop(j+1,1) - endif - - endif - enddo - else - - ! adjust based on neighboring subcolumns .... - do ibox=2,ncol-1 - - if(box_MISR_ztop(1,ibox-1).gt.0 .and. - & box_MISR_ztop(1,ibox+1).gt.0 ) then - - if( abs( box_MISR_ztop(1,ibox-1) - - & box_MISR_ztop(1,ibox+1) ) .lt. 500 - & .and. - & box_MISR_ztop(1,ibox) .lt. - & box_MISR_ztop(1,ibox+1) ) then - - box_MISR_ztop(1,ibox) = - & box_MISR_ztop(1,ibox+1) - endif - - endif - enddo - - endif - - ! - ! DETERMINE CLOUD TYPE FREQUENCIES - ! - ! Now that ztop and tau have been determined, - ! determine amount of each cloud type - boxarea=1./real(ncol) - do j=1,npoints - - ! reset frequencies -- modified loop structure, roj 5/2006 - do ilev=1,7 ! "tau loop" - do ilev2=1,n_MISR_CTH - fq_MISR_TAU_v_CTH(j,ilev,ilev2)=0. - enddo - enddo - - MISR_cldarea(j)=0. - MISR_mean_ztop(j)=0. - - do ibox=1,ncol - - if (tau(j,ibox) .gt. (tauchk)) then - box_cloudy(j,ibox)=.true. - endif - - itau = 0 - - if (box_cloudy(j,ibox)) then - - !determine optical depth category - if (tau(j,ibox) .lt. isccp_taumin) then - itau=1 - else if (tau(j,ibox) .ge. isccp_taumin - & .and. tau(j,ibox) .lt. 1.3) then - itau=2 - else if (tau(j,ibox) .ge. 1.3 - & .and. tau(j,ibox) .lt. 3.6) then - itau=3 - else if (tau(j,ibox) .ge. 3.6 - & .and. tau(j,ibox) .lt. 9.4) then - itau=4 - else if (tau(j,ibox) .ge. 9.4 - & .and. tau(j,ibox) .lt. 23.) then - itau=5 - else if (tau(j,ibox) .ge. 23. - & .and. tau(j,ibox) .lt. 60.) then - itau=6 - else if (tau(j,ibox) .ge. 60.) then - itau=7 - endif - - endif - - ! update MISR histograms and summary metrics - roj 5/2005 - if (sunlit(j).eq.1) then - - !if cloudy added by roj 5/2005 - if( box_MISR_ztop(j,ibox).eq.0) then - - ! no cloud detected - iMISR_ztop=0 - - elseif( box_MISR_ztop(j,ibox).eq.-1) then - - ! cloud can be detected but too thin to get CTH - iMISR_ztop=1 - - fq_MISR_TAU_v_CTH(j,itau,iMISR_ztop)= - & fq_MISR_TAU_v_CTH(j,itau,iMISR_ztop) + boxarea - - else - - ! - ! determine index for MISR bin set - ! - - iMISR_ztop=2 - - do loop=2,n_MISR_CTH - - if ( box_MISR_ztop(j,ibox) .gt. - & 1000*MISR_CTH_boundaries(loop+1) ) then - - iMISR_ztop=loop+1 - - endif - enddo - - if(box_cloudy(j,ibox)) then - - ! there is an isccp clouds so itau(j) is defined - fq_MISR_TAU_v_CTH(j,itau,iMISR_ztop)= - & fq_MISR_TAU_v_CTH(j,itau,iMISR_ztop) + boxarea - - else - ! MISR CTH resolution is trying to fill in a - ! broken cloud scene where there is no condensate. - ! The MISR CTH-1D-OD product will only put in a cloud - ! if the MISR cloud mask indicates cloud. - ! therefore we will not include this column in the histogram - ! in reality aerosoal and 3D effects or bright surfaces - ! could fool the MISR cloud mask - - ! the alternative is to count as very thin cloud ?? -! fq_MISR_TAU_v_CTH(1,iMISR_ztop)= -! & fq_MISR_TAU_v_CTH(1,iMISR_ztop) + boxarea - endif - - - MISR_mean_ztop(j)=MISR_mean_ztop(j)+ - & box_MISR_ztop(j,ibox)*boxarea - - MISR_cldarea(j)=MISR_cldarea(j) + boxarea - - endif - else - ! Set to issing data. A. Bodas - 14/05/2010 - do loop=1,n_MISR_CTH - do k=1,7 - fq_MISR_TAU_v_CTH(j,k,loop) = missing_value - enddo - dist_model_layertops(j,loop) = missing_value - enddo - MISR_cldarea(j) = missing_value - MISR_mean_ztop(npoints) = missing_value - - endif ! is sunlight ? - - enddo ! ibox - loop over subcolumns - - if( MISR_cldarea(j) .gt. 0.) then - MISR_mean_ztop(j)= MISR_mean_ztop(j) / MISR_cldarea(j) ! roj 5/2006 - endif - - enddo ! loop over grid points - - return - end diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/Met_Office_license.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/Met_Office_license.txt deleted file mode 100644 index 6d6c29585..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/Met_Office_license.txt +++ /dev/null @@ -1,79 +0,0 @@ -Software Licence Agreement - -A. Met Office of FitzRoy Road, Exeter EX1 3PB is the Licensor - -1. Licence. - -The Met Office grants you a non-exclusive, non-transferable Licence to use -the Cloud Simulator software ("the Software") accompanying this License. - -2. General Restrictions. - -The Software includes source code, object code, scripts, user interface, -know-how, copyrighted material, trade secrets and other proprietary materials -that are protected by copyright and other laws and international treaty -provisions. You may not let, lease, sublicense, distribute, copy, reproduce, -assign, share, sell, electronically transfer the Software over a network to -another computer or otherwise transfer the right to use it without the -express permission of the Met Office. - -3. Purpose. - -The Software is provided to you solely for research on Earth observation and -cloud feedback purposes and must not be used commercially. - -4. Ownership. - -The ownership of and title to the Software and any supporting documentation -shall remain at all times with the copyright British Crown, the Met Office -or its licensor. The Software and documentation are provided to you to allow -you to exercise your rights under this Licence, which is granted to you. - -5. Duration. - -This licence will remain in effect until terminated. - -6. Termination. - -You may terminate this license at any time by returning the Software and -related documentation to the Met Office. This License will terminate -immediately without notice from us if you fail to comply with any of the -provisions of this License or you are given notice that the license has -terminated. Upon termination you must return the Software and any related -documentation. - -7. Disclaimer of Warranty - -THE MET OFFICE DISCLAIMS ALL WARRANTIES, REPRESENTATIONS AND PROMISES, -INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF SATISFACTORY QUALITY -AND FIT FOR THE PURPOSE. NEITHER DOES THE MET OFFICE MAKE ANY REPRESENTATIONS -AS TO COMPATABILITY WITH YOUR OPERATING SYSTEMS AND PLATFORMS. - -In no event does the Met Office warrant that the Software or related -documentation will satisfy your requirements, that the Software and -documentation will be without errors or defects or that the operation of the -Software will be uninterrupted. - -IN NO EVENT WILL THE MET OFFICE BE LIABLE FOR ANY OTHER DAMAGES, INCLUDING -BUT NOT LIMITED TO DAMAGES FOR LOSS OF PROFITS DATA OR USE OF THE SOFTWARE OR -FOR ANY INDIRECT, INCIDENTAL OR CONSEQUENTIAL DAMAGES, EVEN IF THE MET OFFICE -HAS BEEN SPECIFICALLY ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. - -8. Upgrades. - -The Met Office reserves the right from time to time to make changes and -upgrades to the Software which on request will be provided to you under the -same terms set out herein. - -9. Entire Agreement. - -This License constitutes the entire agreement between us with respect to your -rights or warranties for using the Software and related documentation. If any -provision of this agreement is determined to be invalid or unenforceable the -remaining provisions shall continue in full force. - -10. Governing Law. - -This Agreement is governed by and construed in accordance with the Laws of -England and Wales. - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/actsim/lidar_simulator.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/actsim/lidar_simulator.F90 deleted file mode 100644 index a9b73727b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/actsim/lidar_simulator.F90 +++ /dev/null @@ -1,553 +0,0 @@ -! Copyright (c) 2009, Centre National de la Recherche Scientifique -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the LMD/IPSL/CNRS/UPMC nor the names of its -! contributors may be used to endorse or promote products derived from this software without -! specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - - SUBROUTINE lidar_simulator(npoints,nlev,npart,nrefl & - , undef & - , pres, presf, temp & - , q_lsliq, q_lsice, q_cvliq, q_cvice & - , ls_radliq, ls_radice, cv_radliq, cv_radice & - , frac_out, ice_type & - , pmol, pnorm, tautot, refl ) -! -!--------------------------------------------------------------------------------- -! Purpose: To compute lidar signal from model-simulated profiles of cloud water -! and cloud fraction in each sub-column of each model gridbox. -! -! References: -! Chepfer H., S. Bony, D. Winker, M. Chiriaco, J.-L. Dufresne, G. Seze (2008), -! Use of CALIPSO lidar observations to evaluate the cloudiness simulated by a -! climate model, Geophys. Res. Lett., 35, L15704, doi:10.1029/2008GL034207. -! -! Previous references: -! Chiriaco et al, MWR, 2006; Chepfer et al., MWR, 2007 -! -! Contacts: Helene Chepfer (chepfer@lmd.polytechnique.fr), Sandrine Bony (bony@lmd.jussieu.fr) -! -! May 2007: ActSim code of M. Chiriaco and H. Chepfer rewritten by S. Bony -! -! May 2008, H. Chepfer: -! - Units of pressure inputs: Pa -! - Non Spherical particles : LS Ice NS coefficients, CONV Ice NS coefficients -! - New input: ice_type (0=ice-spheres ; 1=ice-non-spherical) -! -! June 2008, A. Bodas-Salcedo: -! - Ported to Fortran 90 and optimisation changes -! -! August 2008, J-L Dufresne: -! - Optimisation changes (sum instructions suppressed) -! -! October 2008, S. Bony, H. Chepfer and J-L. Dufresne : -! - Interface with COSP v2.0: -! cloud fraction removed from inputs -! in-cloud condensed water now in input (instead of grid-averaged value) -! depolarisation diagnostic removed -! parasol (polder) reflectances (for 5 different solar zenith angles) added -! -! December 2008, S. Bony, H. Chepfer and J-L. Dufresne : -! - Modification of the integration of the lidar equation. -! - change the cloud detection threshold -! -! April 2008, A. Bodas-Salcedo: -! - Bug fix in computation of pmol and pnorm of upper layer -! -! April 2008, J-L. Dufresne -! - Bug fix in computation of pmol and pnorm, thanks to Masaki Satoh: a factor 2 -! was missing. This affects the ATB values but not the cloud fraction. -! -!--------------------------------------------------------------------------------- -! -! Inputs: -! npoints : number of horizontal points -! nlev : number of vertical levels -! npart: numberb of cloud meteors (stratiform_liq, stratiform_ice, conv_liq, conv_ice). -! Currently npart must be 4 -! nrefl: number of solar zenith angles for parasol reflectances -! pres : pressure in the middle of atmospheric layers (full levels): Pa -! presf: pressure in the interface of atmospheric layers (half levels): Pa -! presf(..,1) : surface pressure ; presf(..,nlev+1)= TOA pressure -! temp : temperature of atmospheric layers: K -! q_lsliq: LS sub-column liquid water mixing ratio (kg/kg) -! q_lsice: LS sub-column ice water mixing ratio (kg/kg) -! q_cvliq: CONV sub-column liquid water mixing ratio (kg/kg) -! q_cvice: CONV sub-column ice water mixing ratio (kg/kg) -! ls_radliq: effective radius of LS liquid particles (meters) -! ls_radice: effective radius of LS ice particles (meters) -! cv_radliq: effective radius of CONV liquid particles (meters) -! cv_radice: effective radius of CONV ice particles (meters) -! frac_out : cloud cover in each sub-column of the gridbox (output from scops) -! ice_type : ice particle shape hypothesis (ice_type=0 for spheres, ice_type=1 -! for non spherical particles) -! -! Outputs: -! pmol : molecular attenuated backscatter lidar signal power (m^-1.sr^-1) -! pnorm: total attenuated backscatter lidar signal power (m^-1.sr^-1) -! tautot: optical thickess integrated from top to level z -! refl : parasol(polder) reflectance -! -! Version 1.0 (June 2007) -! Version 1.1 (May 2008) -! Version 1.2 (June 2008) -! Version 2.0 (October 2008) -! Version 2.1 (December 2008) -!--------------------------------------------------------------------------------- - - IMPLICIT NONE - REAL :: SRsat - PARAMETER (SRsat = 0.01) ! threshold full attenuation - - LOGICAL ok_parasol - PARAMETER (ok_parasol=.true.) ! set to .true. if you want to activate parasol reflectances - - INTEGER i, k - - INTEGER INDX_LSLIQ,INDX_LSICE,INDX_CVLIQ,INDX_CVICE - PARAMETER (INDX_LSLIQ=1,INDX_LSICE=2,INDX_CVLIQ=3,INDX_CVICE=4) -! inputs: - INTEGER npoints,nlev,npart,ice_type - INTEGER nrefl - real undef ! undefined value - REAL pres(npoints,nlev) ! pressure full levels - REAL presf(npoints,nlev+1) ! pressure half levels - REAL temp(npoints,nlev) - REAL q_lsliq(npoints,nlev), q_lsice(npoints,nlev) - REAL q_cvliq(npoints,nlev), q_cvice(npoints,nlev) - REAL ls_radliq(npoints,nlev), ls_radice(npoints,nlev) - REAL cv_radliq(npoints,nlev), cv_radice(npoints,nlev) - REAL frac_out(npoints,nlev) - -! outputs (for each subcolumn): - - REAL pmol(npoints,nlev) ! molecular backscatter signal power (m^-1.sr^-1) - REAL pnorm(npoints,nlev) ! total lidar backscatter signal power (m^-1.sr^-1) - REAL tautot(npoints,nlev)! optical thickess integrated from top - REAL refl(npoints,nrefl)! parasol reflectance ! parasol - -! actsim variables: - - REAL km, rdiffm, Qscat, Cmol - PARAMETER (Cmol = 6.2446e-32) ! depends on wavelength - PARAMETER (km = 1.38e-23) ! Boltzmann constant (J/K) - - PARAMETER (rdiffm = 0.7) ! multiple scattering correction parameter - PARAMETER (Qscat = 2.0) ! particle scattering efficiency at 532 nm - - REAL rholiq, rhoice - PARAMETER (rholiq=1.0e+03) ! liquid water (kg/m3) - PARAMETER (rhoice=0.5e+03) ! ice (kg/m3) - - REAL pi, rhopart(npart) - REAL polpart(npart,5) ! polynomial coefficients derived for spherical and non spherical - ! particules - -! grid-box variables: - REAL rad_part(npoints,nlev,npart) - REAL rhoair(npoints,nlev), zheight(npoints,nlev+1) - REAL beta_mol(npoints,nlev), alpha_mol(npoints,nlev) - REAL kp_part(npoints,nlev,npart) - -! sub-column variables: - REAL frac_sub(npoints,nlev) - REAL qpart(npoints,nlev,npart) ! mixing ratio particles in each subcolumn - REAL alpha_part(npoints,nlev,npart) - REAL tau_mol_lay(npoints) ! temporary variable, moL. opt. thickness of layer k - REAL tau_mol(npoints,nlev) ! optical thickness between TOA and bottom of layer k - REAL tau_part(npoints,nlev,npart) - REAL betatot(npoints,nlev) - REAL tautot_lay(npoints) ! temporary variable, total opt. thickness of layer k -! Optical thickness from TOA to surface for Parasol - REAL tautot_S_liq(npoints),tautot_S_ice(npoints) ! for liq and ice clouds - - -!------------------------------------------------------------ -!---- 1. Preliminary definitions and calculations : -!------------------------------------------------------------ - - if ( npart .ne. 4 ) then - print *,'Error in lidar_simulator, npart should be 4, not',npart - stop - endif - - pi = dacos(-1.D0) - -! Polynomial coefficients for spherical liq/ice particles derived from Mie theory. -! Polynomial coefficients for non spherical particles derived from a composite of -! Ray-tracing theory for large particles (e.g. Noel et al., Appl. Opt., 2001) -! and FDTD theory for very small particles (Yang et al., JQSRT, 2003). - -! We repeat the same coefficients for LS and CONV cloud to make code more readable -!* LS Liquid water coefficients: - polpart(INDX_LSLIQ,1) = 2.6980e-8 - polpart(INDX_LSLIQ,2) = -3.7701e-6 - polpart(INDX_LSLIQ,3) = 1.6594e-4 - polpart(INDX_LSLIQ,4) = -0.0024 - polpart(INDX_LSLIQ,5) = 0.0626 -!* LS Ice coefficients: - if (ice_type.eq.0) then - polpart(INDX_LSICE,1) = -1.0176e-8 - polpart(INDX_LSICE,2) = 1.7615e-6 - polpart(INDX_LSICE,3) = -1.0480e-4 - polpart(INDX_LSICE,4) = 0.0019 - polpart(INDX_LSICE,5) = 0.0460 - endif -!* LS Ice NS coefficients: - if (ice_type.eq.1) then - polpart(INDX_LSICE,1) = 1.3615e-8 - polpart(INDX_LSICE,2) = -2.04206e-6 - polpart(INDX_LSICE,3) = 7.51799e-5 - polpart(INDX_LSICE,4) = 0.00078213 - polpart(INDX_LSICE,5) = 0.0182131 - endif -!* CONV Liquid water coefficients: - polpart(INDX_CVLIQ,1) = 2.6980e-8 - polpart(INDX_CVLIQ,2) = -3.7701e-6 - polpart(INDX_CVLIQ,3) = 1.6594e-4 - polpart(INDX_CVLIQ,4) = -0.0024 - polpart(INDX_CVLIQ,5) = 0.0626 -!* CONV Ice coefficients: - if (ice_type.eq.0) then - polpart(INDX_CVICE,1) = -1.0176e-8 - polpart(INDX_CVICE,2) = 1.7615e-6 - polpart(INDX_CVICE,3) = -1.0480e-4 - polpart(INDX_CVICE,4) = 0.0019 - polpart(INDX_CVICE,5) = 0.0460 - endif - if (ice_type.eq.1) then - polpart(INDX_CVICE,1) = 1.3615e-8 - polpart(INDX_CVICE,2) = -2.04206e-6 - polpart(INDX_CVICE,3) = 7.51799e-5 - polpart(INDX_CVICE,4) = 0.00078213 - polpart(INDX_CVICE,5) = 0.0182131 - endif - -! density: -!* clear-sky air: - rhoair = pres/(287.04*temp) - -!* liquid/ice particules: - rhopart(INDX_LSLIQ) = rholiq - rhopart(INDX_LSICE) = rhoice - rhopart(INDX_CVLIQ) = rholiq - rhopart(INDX_CVICE) = rhoice - -! effective radius particles: - rad_part(:,:,INDX_LSLIQ) = ls_radliq(:,:) - rad_part(:,:,INDX_LSICE) = ls_radice(:,:) - rad_part(:,:,INDX_CVLIQ) = cv_radliq(:,:) - rad_part(:,:,INDX_CVICE) = cv_radice(:,:) - rad_part(:,:,:)=MAX(rad_part(:,:,:),0.) - rad_part(:,:,:)=MIN(rad_part(:,:,:),70.0e-6) - -! altitude at half pressure levels: - zheight(:,1) = 0.0 - do k = 2, nlev+1 - zheight(:,k) = zheight(:,k-1) & - -(presf(:,k)-presf(:,k-1))/(rhoair(:,k-1)*9.81) - enddo - -! cloud fraction (0 or 1) in each sub-column: -! (if frac_out=1or2 -> frac_sub=1; if frac_out=0 -> frac_sub=0) - frac_sub = MIN( frac_out, 1.0 ) - -!------------------------------------------------------------ -!---- 2. Molecular alpha and beta: -!------------------------------------------------------------ - - beta_mol = pres/km/temp * Cmol - alpha_mol = 8.0*pi/3.0 * beta_mol - -!------------------------------------------------------------ -!---- 3. Particles alpha and beta: -!------------------------------------------------------------ - -! polynomes kp_lidar derived from Mie theory: - do i = 1, npart - where ( rad_part(:,:,i).gt.0.0) - kp_part(:,:,i) = & - polpart(i,1)*(rad_part(:,:,i)*1e6)**4 & - + polpart(i,2)*(rad_part(:,:,i)*1e6)**3 & - + polpart(i,3)*(rad_part(:,:,i)*1e6)**2 & - + polpart(i,4)*(rad_part(:,:,i)*1e6) & - + polpart(i,5) - elsewhere - kp_part(:,:,i) = 0. - endwhere - enddo - -! mixing ratio particules in each subcolumn: - qpart(:,:,INDX_LSLIQ) = q_lsliq(:,:) ! oct08 - qpart(:,:,INDX_LSICE) = q_lsice(:,:) ! oct08 - qpart(:,:,INDX_CVLIQ) = q_cvliq(:,:) ! oct08 - qpart(:,:,INDX_CVICE) = q_cvice(:,:) ! oct08 - -! alpha of particles in each subcolumn: - do i = 1, npart - where ( rad_part(:,:,i).gt.0.0) - alpha_part(:,:,i) = 3.0/4.0 * Qscat & - * rhoair(:,:) * qpart(:,:,i) & - / (rhopart(i) * rad_part(:,:,i) ) - elsewhere - alpha_part(:,:,i) = 0. - endwhere - enddo - -!------------------------------------------------------------ -!---- 4. Backscatter signal: -!------------------------------------------------------------ - -! optical thickness (molecular): -! opt. thick of each layer - tau_mol(:,1:nlev) = alpha_mol(:,1:nlev) & - & *(zheight(:,2:nlev+1)-zheight(:,1:nlev)) -! opt. thick from TOA - DO k = nlev-1, 1, -1 - tau_mol(:,k) = tau_mol(:,k) + tau_mol(:,k+1) - ENDDO - -! optical thickness (particles): - - tau_part = rdiffm * alpha_part - DO i = 1, npart -! opt. thick of each layer - tau_part(:,:,i) = tau_part(:,:,i) & - & * (zheight(:,2:nlev+1)-zheight(:,1:nlev) ) -! opt. thick from TOA - DO k = nlev-1, 1, -1 - tau_part(:,k,i) = tau_part(:,k,i) + tau_part(:,k+1,i) - ENDDO - ENDDO - -! molecular signal: -! Upper layer - pmol(:,nlev) = beta_mol(:,nlev) / (2.*tau_mol(:,nlev)) & - & * (1.-exp(-2.0*tau_mol(:,nlev))) -! Other layers - DO k= nlev-1, 1, -1 - tau_mol_lay(:) = tau_mol(:,k)-tau_mol(:,k+1) ! opt. thick. of layer k - WHERE (tau_mol_lay(:).GT.0.) - pmol(:,k) = beta_mol(:,k) * EXP(-2.0*tau_mol(:,k+1)) / (2.*tau_mol_lay(:)) & - & * (1.-exp(-2.0*tau_mol_lay(:))) - ELSEWHERE -! This must never happend, but just in case, to avoid div. by 0 - pmol(:,k) = beta_mol(:,k) * EXP(-2.0*tau_mol(:,k+1)) - END WHERE - END DO -! -! Total signal (molecular + particules): -! -! For performance reason on vector computers, the 2 following lines should not be used -! and should be replace by the later one. -! betatot(:,:) = beta_mol(:,:) + sum(kp_part*alpha_part,dim=3) -! tautot(:,:) = tau_mol(:,:) + sum(tau_part,dim=3) - betatot(:,:) = beta_mol(:,:) - tautot(:,:) = tau_mol(:,:) - DO i = 1, npart - betatot(:,:) = betatot(:,:) + kp_part(:,:,i)*alpha_part(:,:,i) - tautot(:,:) = tautot(:,:) + tau_part(:,:,i) - ENDDO ! i -! -! Upper layer - pnorm(:,nlev) = betatot(:,nlev) / (2.*tautot(:,nlev)) & - & * (1.-exp(-2.0*tautot(:,nlev))) -! Other layers - DO k= nlev-1, 1, -1 - tautot_lay(:) = tautot(:,k)-tautot(:,k+1) ! optical thickness of layer k - WHERE (tautot_lay(:).GT.0.) - pnorm(:,k) = betatot(:,k) * EXP(-2.0*tautot(:,k+1)) / (2.*tautot_lay(:)) & -!correc pnorm(:,k) = betatot(:,k) * EXP(-2.0*tautot(:,k+1)) & ! correc Satoh -!correc & / (2.0*tautot_lay(:)) & ! correc Satoh - & * (1.-EXP(-2.0*tautot_lay(:))) - ELSEWHERE -! This must never happend, but just in case, to avoid div. by 0 - pnorm(:,k) = betatot(:,k) * EXP(-2.0*tautot(:,k+1)) - END WHERE - END DO - -!-------- End computation Lidar -------------------------- - -!--------------------------------------------------------- -! Parasol/Polder module -! -! Purpose : Compute reflectance for one particular viewing direction -! and 5 solar zenith angles (calculation valid only over ocean) -! --------------------------------------------------------- - -! initialization: - refl(:,:) = 0.0 - -! activate parasol calculations: - if (ok_parasol) then - -! Optical thickness from TOA to surface - tautot_S_liq = 0. - tautot_S_ice = 0. - tautot_S_liq(:) = tautot_S_liq(:) & - + tau_part(:,1,1) + tau_part(:,1,3) - tautot_S_ice(:) = tautot_S_ice(:) & - + tau_part(:,1,2) + tau_part(:,1,4) - - call parasol(npoints,nrefl,undef & - ,tautot_S_liq,tautot_S_ice & - ,refl) - - endif ! ok_parasol - - END SUBROUTINE lidar_simulator -! -!--------------------------------------------------------------------------------- -! - SUBROUTINE parasol(npoints,nrefl,undef & - ,tautot_S_liq,tautot_S_ice & - ,refl) -!--------------------------------------------------------------------------------- -! Purpose: To compute Parasol reflectance signal from model-simulated profiles -! of cloud water and cloud fraction in each sub-column of each model -! gridbox. -! -! -! December 2008, S. Bony, H. Chepfer and J-L. Dufresne : -! - optimization for vectorization -! -! Version 2.0 (October 2008) -! Version 2.1 (December 2008) -!--------------------------------------------------------------------------------- - - IMPLICIT NONE - -! inputs - INTEGER npoints ! Number of horizontal gridpoints - INTEGER nrefl ! Number of angles for which the reflectance - ! is computed. Can not be greater then ntetas - REAL undef ! Undefined value. Currently not used - REAL tautot_S_liq(npoints) ! liquid water cloud optical thickness, - ! integrated from TOA to surface - REAL tautot_S_ice(npoints) ! same for ice water clouds only -! outputs - REAL refl(npoints,nrefl) ! Parasol reflectances -! -! Local variables - REAL tautot_S(npoints) ! cloud optical thickness, from TOA to surface - REAL frac_taucol_liq(npoints), frac_taucol_ice(npoints) - - REAL pi -! look up table variables: - INTEGER ny, it - INTEGER ntetas, nbtau ! number of angle and of optical thickness - ! of the look-up table - PARAMETER (ntetas=5, nbtau=7) - REAL aa(ntetas,nbtau-1), ab(ntetas,nbtau-1) - REAL ba(ntetas,nbtau-1), bb(ntetas,nbtau-1) - REAL tetas(ntetas),tau(nbtau) - REAL r_norm(ntetas) - REAL rlumA(ntetas,nbtau), rlumB(ntetas,nbtau) - REAL rlumA_mod(npoints,5), rlumB_mod(npoints,5) - - DATA tau /0., 1., 5., 10., 20., 50., 100./ - DATA tetas /0., 20., 40., 60., 80./ - -! Look-up table for spherical liquid particles: - DATA (rlumA(1,ny),ny=1,nbtau) /0.03, 0.090886, 0.283965, & - 0.480587, 0.695235, 0.908229, 1.0 / - DATA (rlumA(2,ny),ny=1,nbtau) /0.03, 0.072185, 0.252596, & - 0.436401, 0.631352, 0.823924, 0.909013 / - DATA (rlumA(3,ny),ny=1,nbtau) /0.03, 0.058410, 0.224707, & - 0.367451, 0.509180, 0.648152, 0.709554 / - DATA (rlumA(4,ny),ny=1,nbtau) /0.03, 0.052498, 0.175844, & - 0.252916, 0.326551, 0.398581, 0.430405 / - DATA (rlumA(5,ny),ny=1,nbtau) /0.03, 0.034730, 0.064488, & - 0.081667, 0.098215, 0.114411, 0.121567 / - -! Look-up table for ice particles: - DATA (rlumB(1,ny),ny=1,nbtau) /0.03, 0.092170, 0.311941, & - 0.511298, 0.712079 , 0.898243 , 0.976646 / - DATA (rlumB(2,ny),ny=1,nbtau) /0.03, 0.087082, 0.304293, & - 0.490879, 0.673565, 0.842026, 0.912966 / - DATA (rlumB(3,ny),ny=1,nbtau) /0.03, 0.083325, 0.285193, & - 0.430266, 0.563747, 0.685773, 0.737154 / - DATA (rlumB(4,ny),ny=1,nbtau) /0.03, 0.084935, 0.233450, & - 0.312280, 0.382376, 0.446371, 0.473317 / - DATA (rlumB(5,ny),ny=1,nbtau) /0.03, 0.054157, 0.089911, & - 0.107854, 0.124127, 0.139004, 0.145269 / - -!-------------------------------------------------------------------------------- -! Lum_norm=f(tetaS,tau_cloud) derived from adding-doubling calculations -! valid ONLY ABOVE OCEAN (albedo_sfce=5%) -! valid only in one viewing direction (theta_v=30�, phi_s-phi_v=320�) -! based on adding-doubling radiative transfer computation -! for tau values (0 to 100) and for tetas values (0 to 80) -! for 2 scattering phase functions: liquid spherical, ice non spherical - - IF ( nrefl.GT. ntetas ) THEN - PRINT *,'Error in lidar_simulator, nrefl should be less then ',ntetas,' not',nrefl - STOP - ENDIF - - rlumA_mod=0 - rlumB_mod=0 -! - pi = ACOS(-1.0) - r_norm(:)=1./ COS(pi/180.*tetas(:)) -! - tautot_S_liq(:)=MAX(tautot_S_liq(:),tau(1)) - tautot_S_ice(:)=MAX(tautot_S_ice(:),tau(1)) - tautot_S(:) = tautot_S_ice(:) + tautot_S_liq(:) -! -! relative fraction of the opt. thick due to liquid or ice clouds - WHERE (tautot_S(:) .GT. 0.) - frac_taucol_liq(:) = tautot_S_liq(:) / tautot_S(:) - frac_taucol_ice(:) = tautot_S_ice(:) / tautot_S(:) - ELSEWHERE - frac_taucol_liq(:) = 1. - frac_taucol_ice(:) = 0. - END WHERE - tautot_S(:)=MIN(tautot_S(:),tau(nbtau)) -! -! Linear interpolation : - - DO ny=1,nbtau-1 -! microphysics A (liquid clouds) - aA(:,ny) = (rlumA(:,ny+1)-rlumA(:,ny))/(tau(ny+1)-tau(ny)) - bA(:,ny) = rlumA(:,ny) - aA(:,ny)*tau(ny) -! microphysics B (ice clouds) - aB(:,ny) = (rlumB(:,ny+1)-rlumB(:,ny))/(tau(ny+1)-tau(ny)) - bB(:,ny) = rlumB(:,ny) - aB(:,ny)*tau(ny) - ENDDO -! - DO it=1,ntetas - DO ny=1,nbtau-1 - WHERE (tautot_S(:).GE.tau(ny).AND.tautot_S(:).LE.tau(ny+1)) - rlumA_mod(:,it) = aA(it,ny)*tautot_S(:) + bA(it,ny) - rlumB_mod(:,it) = aB(it,ny)*tautot_S(:) + bB(it,ny) - END WHERE - END DO - END DO -! - DO it=1,ntetas - refl(:,it) = frac_taucol_liq(:) * rlumA_mod(:,it) & - + frac_taucol_ice(:) * rlumB_mod(:,it) -! normalized radiance -> reflectance: - refl(:,it) = refl(:,it) * r_norm(it) - ENDDO - - RETURN - END SUBROUTINE parasol diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/actsim/lmd_ipsl_stats.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/actsim/lmd_ipsl_stats.F90 deleted file mode 100644 index fb19c050d..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/actsim/lmd_ipsl_stats.F90 +++ /dev/null @@ -1,440 +0,0 @@ -! Copyright (c) 2009, Centre National de la Recherche Scientifique -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the LMD/IPSL/CNRS/UPMC nor the names of its -! contributors may be used to endorse or promote products derived from this software without -! specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - - -!------------------------------------------------------------------------------------ -! Authors: Sandrine Bony and Helene Chepfer (LMD/IPSL, CNRS, UPMC, France). -!------------------------------------------------------------------------------------ -MODULE MOD_LMD_IPSL_STATS - USE MOD_LLNL_STATS - IMPLICIT NONE - -CONTAINS - SUBROUTINE diag_lidar(npoints,ncol,llm,max_bin,nrefl & - ,pnorm,pmol,refl,land,pplay,undef,ok_lidar_cfad & - ,cfad2,srbval & - ,ncat,lidarcld,cldlayer,parasolrefl) -! -! ----------------------------------------------------------------------------------- -! Lidar outputs : -! -! Diagnose cloud fraction (3D cloud fraction + low/middle/high/total cloud fraction -! from the lidar signals (ATB and molecular ATB) computed from model outputs -! + -! Compute CFADs of lidar scattering ratio SR and of depolarization index -! -! Authors: Sandrine Bony and Helene Chepfer (LMD/IPSL, CNRS, UPMC, France). -! -! December 2008, S. Bony, H. Chepfer and J-L. Dufresne : -! - change of the cloud detection threshold S_cld from 3 to 5, for better -! with both day and night observations. The optical thinest clouds are missed. -! - remove of the detection of the first fully attenuated layer encountered from above. -! December 2008, A. Bodas-Salcedo: -! - Dimensions of pmol reduced to (npoints,llm) -! August 2009, A. Bodas-Salcedo: -! - Warning message regarding PARASOL being valid only over ocean deleted. -! February 2010, A. Bodas-Salcedo: -! - Undef passed into cosp_cfad_sr -! June 2010, T. Yokohata, T. Nishimura and K. Ogochi -! Optimisation of COSP_CFAD_SR -! -! Version 1.0 (June 2007) -! Version 1.1 (May 2008) -! Version 1.2 (June 2008) -! Version 2.0 (October 2008) -! Version 2.1 (December 2008) -! c------------------------------------------------------------------------------------ - -! c inputs : - integer npoints - integer ncol - integer llm - integer max_bin ! nb of bins for SR CFADs - integer ncat ! nb of cloud layer types (low,mid,high,total) - integer nrefl ! nb of solar zenith angles for parasol reflectances - - real undef ! undefined value - real pnorm(npoints,ncol,llm) ! lidar ATB - real pmol(npoints,llm) ! molecular ATB - real land(npoints) ! Landmask [0 - Ocean, 1 - Land] - real pplay(npoints,llm) ! pressure on model levels (Pa) - logical ok_lidar_cfad ! true if lidar CFAD diagnostics need to be computed - real refl(npoints,ncol,nrefl) ! subgrid parasol reflectance ! parasol - -! c outputs : - real lidarcld(npoints,llm) ! 3D "lidar" cloud fraction - real cldlayer(npoints,ncat) ! "lidar" cloud fraction (low, mid, high, total) - real cfad2(npoints,max_bin,llm) ! CFADs of SR - real srbval(max_bin) ! SR bins in CFADs - real parasolrefl(npoints,nrefl)! grid-averaged parasol reflectance - -! c threshold for cloud detection : - real S_clr - parameter (S_clr = 1.2) - real S_cld -! parameter (S_cld = 3.0) ! Previous thresold for cloud detection - parameter (S_cld = 5.0) ! New (dec 2008) thresold for cloud detection - real S_att - parameter (S_att = 0.01) - -! c local variables : - integer ic,k - real x3d(npoints,ncol,llm) - real x3d_c(npoints,llm),pnorm_c(npoints,llm) - real xmax -! -! c ------------------------------------------------------- -! c 0- Initializations -! c ------------------------------------------------------- -! - -! Should be modified in future version - xmax=undef-1.0 - -! c ------------------------------------------------------- -! c 1- Lidar scattering ratio : -! c ------------------------------------------------------- -! -! where ((pnorm.lt.xmax) .and. (pmol.lt.xmax) .and. (pmol.gt. 0.0 )) -! x3d = pnorm/pmol -! elsewhere -! x3d = undef -! end where -! A.B-S: pmol reduced to 2D (npoints,llm) (Dec 08) - do ic = 1, ncol - pnorm_c = pnorm(:,ic,:) - where ((pnorm_c.lt.xmax) .and. (pmol.lt.xmax) .and. (pmol.gt. 0.0 )) - x3d_c = pnorm_c/pmol - elsewhere - x3d_c = undef - end where - x3d(:,ic,:) = x3d_c - enddo - -! c ------------------------------------------------------- -! c 2- Diagnose cloud fractions (3D, low, middle, high, total) -! c from subgrid-scale lidar scattering ratios : -! c ------------------------------------------------------- - - CALL COSP_CLDFRAC(npoints,ncol,llm,ncat, & - x3d,pplay, S_att,S_cld,undef,lidarcld, & - cldlayer) - -! c ------------------------------------------------------- -! c 3- CFADs -! c ------------------------------------------------------- - if (ok_lidar_cfad) then -! -! c CFADs of subgrid-scale lidar scattering ratios : -! c ------------------------------------------------------- - CALL COSP_CFAD_SR(npoints,ncol,llm,max_bin,undef, & - x3d, & - S_att,S_clr,xmax,cfad2,srbval) - - endif ! ok_lidar_cfad -! c ------------------------------------------------------- - -! c ------------------------------------------------------- -! c 4- Compute grid-box averaged Parasol reflectances -! c ------------------------------------------------------- - - parasolrefl(:,:) = 0.0 - - do k = 1, nrefl - do ic = 1, ncol - parasolrefl(:,k) = parasolrefl(:,k) + refl(:,ic,k) - enddo - enddo - - do k = 1, nrefl - parasolrefl(:,k) = parasolrefl(:,k) / float(ncol) -! if land=1 -> parasolrefl=undef -! if land=0 -> parasolrefl=parasolrefl - parasolrefl(:,k) = parasolrefl(:,k) * MAX(1.0-land(:),0.0) & - + (1.0 - MAX(1.0-land(:),0.0))*undef - enddo - - RETURN - END SUBROUTINE diag_lidar - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!-------------------- FUNCTION COSP_CFAD_SR ------------------------ -! Author: Sandrine Bony (LMD/IPSL, CNRS, Paris) -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE COSP_CFAD_SR(Npoints,Ncolumns,Nlevels,Nbins,undef, & - x,S_att,S_clr,xmax,cfad,srbval) - IMPLICIT NONE - -!--- Input arguments -! Npoints: Number of horizontal points -! Ncolumns: Number of subcolumns -! Nlevels: Number of levels -! Nbins: Number of x axis bins -! xmax: maximum value allowed for x -! S_att: Threshold for full attenuation -! S_clr: Threshold for clear-sky layer -! -!--- Input-Outout arguments -! x: variable to process (Npoints,Ncolumns,Nlevels), mofified where saturation occurs -! -! -- Output arguments -! srbval : values of the histogram bins -! cfad: 2D histogram on each horizontal point - -! Input arguments - integer Npoints,Ncolumns,Nlevels,Nbins - real xmax,S_att,S_clr,undef -! Input-output arguments - real x(Npoints,Ncolumns,Nlevels) -! Output : - real cfad(Npoints,Nbins,Nlevels) - real srbval(Nbins) -! Local variables - integer i, j, k, ib - real srbval_ext(0:Nbins) - -! c ------------------------------------------------------- -! c 0- Initializations -! c ------------------------------------------------------- - if ( Nbins .lt. 6) return - - srbval(1) = S_att - srbval(2) = S_clr - srbval(3) = 3.0 - srbval(4) = 5.0 - srbval(5) = 7.0 - srbval(6) = 10.0 - do i = 7, MIN(10,Nbins) - srbval(i) = srbval(i-1) + 5.0 - enddo - DO i = 11, MIN(13,Nbins) - srbval(i) = srbval(i-1) + 10.0 - enddo - srbval(MIN(14,Nbins)) = 80.0 - srbval(Nbins) = xmax - cfad(:,:,:) = 0.0 - - srbval_ext(1:Nbins) = srbval - srbval_ext(0) = -1.0 -! c ------------------------------------------------------- -! c c- Compute CFAD -! c ------------------------------------------------------- - - do j = 1, Nlevels - do ib = 1, Nbins - do k = 1, Ncolumns - do i = 1, Npoints - if (x(i,k,j) /= undef) then - if ((x(i,k,j).gt.srbval_ext(ib-1)).and.(x(i,k,j).le.srbval_ext(ib))) & - cfad(i,ib,j) = cfad(i,ib,j) + 1.0 - else - cfad(i,ib,j) = undef - endif - enddo - enddo - enddo - enddo - - where (cfad .ne. undef) cfad = cfad / float(Ncolumns) - -! c ------------------------------------------------------- - RETURN - END SUBROUTINE COSP_CFAD_SR - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!-------------------- SUBROUTINE COSP_CLDFRAC ------------------- -! c Purpose: Cloud fraction diagnosed from lidar measurements -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE COSP_CLDFRAC(Npoints,Ncolumns,Nlevels,Ncat, & - x,pplay,S_att,S_cld,undef,lidarcld, & - cldlayer) - IMPLICIT NONE -! Input arguments - integer Npoints,Ncolumns,Nlevels,Ncat - real x(Npoints,Ncolumns,Nlevels) - real pplay(Npoints,Nlevels) - real S_att,S_cld - real undef -! Output : - real lidarcld(Npoints,Nlevels) ! 3D cloud fraction - real cldlayer(Npoints,Ncat) ! low, middle, high, total cloud fractions -! Local variables - integer ip, k, iz, ic - real p1 - real cldy(Npoints,Ncolumns,Nlevels) - real srok(Npoints,Ncolumns,Nlevels) - real cldlay(Npoints,Ncolumns,Ncat) - real nsublay(Npoints,Ncolumns,Ncat), nsublayer(Npoints,Ncat) - real nsub(Npoints,Nlevels) -#ifdef SYS_SX - real cldlay1(Npoints,Ncolumns) - real cldlay2(Npoints,Ncolumns) - real cldlay3(Npoints,Ncolumns) - real nsublay1(Npoints,Ncolumns) - real nsublay2(Npoints,Ncolumns) - real nsublay3(Npoints,Ncolumns) -#endif - -! --------------------------------------------------------------- -! 1- initialization -! --------------------------------------------------------------- - - if ( Ncat .ne. 4 ) then - print *,'Error in lmd_ipsl_stats.cosp_cldfrac, Ncat must be 4, not',Ncat - stop - endif - - lidarcld = 0.0 - nsub = 0.0 - cldlay = 0.0 - nsublay = 0.0 - -! --------------------------------------------------------------- -! 2- Cloud detection -! --------------------------------------------------------------- - - do k = 1, Nlevels - -! cloud detection at subgrid-scale: - where ( (x(:,:,k).gt.S_cld) .and. (x(:,:,k).ne. undef) ) - cldy(:,:,k)=1.0 - elsewhere - cldy(:,:,k)=0.0 - endwhere - -! number of usefull sub-columns: - where ( (x(:,:,k).gt.S_att) .and. (x(:,:,k).ne. undef) ) - srok(:,:,k)=1.0 - elsewhere - srok(:,:,k)=0.0 - endwhere - - enddo ! k - -! --------------------------------------------------------------- -! 3- grid-box 3D cloud fraction and layered cloud fractions (ISCCP pressure -! categories) : -! --------------------------------------------------------------- - lidarcld = 0.0 - nsub = 0.0 -#ifdef SYS_SX -!! XXX: Use cldlay[1-3] and nsublay[1-3] to avoid bank-conflicts. - cldlay1 = 0.0 - cldlay2 = 0.0 - cldlay3 = 0.0 - cldlay(:,:,4) = 0.0 !! XXX: Ncat == 4 - nsublay1 = 0.0 - nsublay2 = 0.0 - nsublay3 = 0.0 - nsublay(:,:,4) = 0.0 - do k = Nlevels, 1, -1 - do ic = 1, Ncolumns - do ip = 1, Npoints - p1 = pplay(ip,k) - - if ( p1.gt.0. .and. p1.lt.(440.*100.)) then ! high clouds - cldlay3(ip,ic) = MAX(cldlay3(ip,ic), cldy(ip,ic,k)) - nsublay3(ip,ic) = MAX(nsublay3(ip,ic), srok(ip,ic,k)) - else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid clouds - cldlay2(ip,ic) = MAX(cldlay2(ip,ic), cldy(ip,ic,k)) - nsublay2(ip,ic) = MAX(nsublay2(ip,ic), srok(ip,ic,k)) - else - cldlay1(ip,ic) = MAX(cldlay1(ip,ic), cldy(ip,ic,k)) - nsublay1(ip,ic) = MAX(nsublay1(ip,ic), srok(ip,ic,k)) - endif - - cldlay(ip,ic,4) = MAX(cldlay(ip,ic,4), cldy(ip,ic,k)) - lidarcld(ip,k)=lidarcld(ip,k) + cldy(ip,ic,k) - nsublay(ip,ic,4) = MAX(nsublay(ip,ic,4),srok(ip,ic,k)) - nsub(ip,k)=nsub(ip,k) + srok(ip,ic,k) - enddo - enddo - enddo - cldlay(:,:,1) = cldlay1 - cldlay(:,:,2) = cldlay2 - cldlay(:,:,3) = cldlay3 - nsublay(:,:,1) = nsublay1 - nsublay(:,:,2) = nsublay2 - nsublay(:,:,3) = nsublay3 -#else - cldlay = 0.0 - nsublay = 0.0 - do k = Nlevels, 1, -1 - do ic = 1, Ncolumns - do ip = 1, Npoints - - iz=1 - p1 = pplay(ip,k) - if ( p1.gt.0. .and. p1.lt.(440.*100.)) then ! high clouds - iz=3 - else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid clouds - iz=2 - endif - - cldlay(ip,ic,iz) = MAX(cldlay(ip,ic,iz),cldy(ip,ic,k)) - cldlay(ip,ic,4) = MAX(cldlay(ip,ic,4),cldy(ip,ic,k)) - lidarcld(ip,k)=lidarcld(ip,k) + cldy(ip,ic,k) - - nsublay(ip,ic,iz) = MAX(nsublay(ip,ic,iz),srok(ip,ic,k)) - nsublay(ip,ic,4) = MAX(nsublay(ip,ic,4),srok(ip,ic,k)) - nsub(ip,k)=nsub(ip,k) + srok(ip,ic,k) - - enddo - enddo - enddo -#endif - -! -- grid-box 3D cloud fraction - - where ( nsub(:,:).gt.0.0 ) - lidarcld(:,:) = lidarcld(:,:)/nsub(:,:) - elsewhere - lidarcld(:,:) = undef - endwhere - -! -- layered cloud fractions - - cldlayer = 0.0 - nsublayer = 0.0 - - do iz = 1, Ncat - do ic = 1, Ncolumns - - cldlayer(:,iz)=cldlayer(:,iz) + cldlay(:,ic,iz) - nsublayer(:,iz)=nsublayer(:,iz) + nsublay(:,ic,iz) - - enddo - enddo - where ( nsublayer(:,:).gt.0.0 ) - cldlayer(:,:) = cldlayer(:,:)/nsublayer(:,:) - elsewhere - cldlayer(:,:) = undef - endwhere - - RETURN - END SUBROUTINE COSP_CLDFRAC -! --------------------------------------------------------------- - -END MODULE MOD_LMD_IPSL_STATS diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/COSP_table_1D b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/COSP_table_1D deleted file mode 100644 index 10b8856d4..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/COSP_table_1D +++ /dev/null @@ -1,3459 +0,0 @@ -table_id: Table 1D -modeling_realm: atmos - -frequency: subhr - -cmor_version: 2.5.0 ! minimum version of CMOR that can read this table -cf_version: 1.4 ! version of CF that output conforms to -project_id: CMIP5 ! project id -table_date: 30 November 2010 ! date this table was constructed - -missing_value: 1.e20 ! value used to indicate a missing value - ! in arrays output by netCDF as 32-bit IEEE - ! floating-point numbers (float or real) - -baseURL: http://cmip-pcmdi.llnl.gov/CMIP5/dataLocation -product: output - -required_global_attributes: creation_date tracking_id forcing model_id parent_experiment_id parent_experiment_rip branch_time contact institute_id ! space separated required global attribute - -forcings: N/A Nat Ant GHG SD SI SA TO SO Oz LU Sl Vl SS Ds BC MD OC AA - -expt_id_ok: '10- or 30-year run initialized in year XXXX' 'decadalXXXX' -expt_id_ok: 'volcano-free hindcast initialized in year XXXX' 'noVolcXXXX' -expt_id_ok: 'prediction with 2010 volcano' 'volcIn2010' -expt_id_ok: 'pre-industrial control' 'piControl' -expt_id_ok: 'historical' 'historical' -expt_id_ok: 'historical extension' 'historicalExt' -expt_id_ok: 'mid-Holocene' 'midHolocene' -expt_id_ok: 'last glacial maximum' 'lgm' -expt_id_ok: 'last millennium' 'past1000' -expt_id_ok: 'RCP4.5' 'rcp45' -expt_id_ok: 'RCP8.5' 'rcp85' -expt_id_ok: 'RCP2.6' 'rcp26' -expt_id_ok: 'RCP6' 'rcp60' -expt_id_ok: 'ESM pre-industrial control' 'esmControl' -expt_id_ok: 'ESM historical' 'esmHistorical' -expt_id_ok: 'ESM RCP8.5' 'esmrcp85' -expt_id_ok: 'ESM fixed climate 1' 'esmFixClim1' -expt_id_ok: 'ESM fixed climate 2' 'esmFixClim2' -expt_id_ok: 'ESM feedback 1' 'esmFdbk1' -expt_id_ok: 'ESM feedback 2' 'esmFdbk2' -expt_id_ok: '1 percent per year CO2' '1pctCO2' -expt_id_ok: 'abrupt 4XCO2' 'abrupt4xCO2' -expt_id_ok: 'natural-only' 'historicalNat' -expt_id_ok: 'GHG-only' 'historicalGHG' -expt_id_ok: 'AMIP' 'amip' -expt_id_ok: '2030 time-slice' 'sst2030' -expt_id_ok: 'control SST climatology' 'sstClim' -expt_id_ok: 'CO2 forcing' 'sstClim4xCO2' -expt_id_ok: 'all aerosol forcing' 'sstClimAerosol' -expt_id_ok: 'sulfate aerosol forcing' 'sstClimSulfate' -expt_id_ok: '4xCO2 AMIP' 'amip4xCO2' -expt_id_ok: 'AMIP plus patterned anomaly' 'amipFuture' -expt_id_ok: 'aqua planet control' 'aquaControl' -expt_id_ok: '4xCO2 aqua planet' 'aqua4xCO2' -expt_id_ok: 'aqua planet plus 4K anomaly' 'aqua4K' -expt_id_ok: 'AMIP plus 4K anomaly' 'amip4K' - - -approx_interval: 0.125000 ! approximate spacing between successive time - ! samples (in units of the output time - ! coordinate. - -generic_levels: alevel alevhalf - - -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -! COSP-axis, not used by CMIP5 in this table. -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!============ -axis_entry: tau -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: cloud_optical_depth -units: 1 -long_name: cloud optical depth -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: tau -stored_direction: increasing -tolerance: 0.001 - -type: double -requested: 0.15 0.8 2.45 6.5 16.2 41.5 100. ! space-separated list of requested coordinates -! requested_bounds: 0.0 0.3 0.3 1.3 1.3 3.6 3.6 9.4 9.4 23.0 23.0 60.0 60.0 100000. ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - -!============ -axis_entry: plev7 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -axis: Z ! X, Y, Z, T (default: undeclared) -positive: down ! up or down (default: undeclared) -long_name: pressure -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: plev -stored_direction: decreasing -tolerance: 0.001 - -type: double -! requested_bounds: 100000. 80000. 80000. 68000. 68000. 56000. 56000. 44000. 44000. 31000. 31000. 18000. 18000. 0. ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - -! -!============ -axis_entry: column -!============ -! -! ignored: cell_bounds -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: column -units: 1 -long_name: column -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: column -valid_min: 0. -!---------------------------------- - -!============ -axis_entry: cth16 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: altitude -units: m -axis: Z ! X, Y, Z, T (default: undeclared) -positive: up ! up or down (default: undeclared) -long_name: altitude -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: cth -stored_direction: increasing -tolerance: 0.001 - -type: double -! requested_bounds: -99000 0 0 500 500 1000 1000 1500 1500 2000 2000 2500 2500 3000 3000 4000 4000 5000 5000 7000 7000 9000 9000 11000 11000 13000 13000 15000 15000 17000 17000 99000 ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - -! -!============ -axis_entry: channel -!============ -! -! ignored: cell_bounds -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: channel -units: 1 -long_name: RTTOV channel of satellite instrument -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: channel -valid_min: 0. -!---------------------------------- - - -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -! Axis missing. -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- - -!============ -axis_entry: alevel -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -axis: Z ! X, Y, Z, T (default: undeclared) -long_name: atmospheric model level -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: lev -stored_direction: increasing -type: double -must_have_bounds: yes -index_only: ok -!---------------------------------- -! - - -!============ -axis_entry: alevhalf -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -axis: Z ! X, Y, Z, T (default: undeclared) -positive: up ! up or down (default: undeclared) -long_name: atmospheric model half-level -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: lev -type: double -must_have_bounds: no -index_only: ok -!---------------------------------- -! - -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -! END OF Axis missing. -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- - - -!============ -axis_entry: longitude -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: longitude -units: degrees_east -axis: X ! X, Y, Z, T (default: undeclared) -long_name: longitude -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: lon -valid_min: 0.0 -valid_max: 360.0 -stored_direction: increasing -type: double -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: latitude -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: latitude -units: degrees_north -axis: Y ! X, Y, Z, T (default: undeclared) -long_name: latitude -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: lat -valid_min: -90.0 -valid_max: 90.0 -stored_direction: increasing -type: double -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: p220 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -axis: Z ! X, Y, Z, T (default: undeclared) -positive: down ! up or down (default: undeclared) -long_name: pressure -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: plev -stored_direction: decreasing -type: double -value: 22000. ! of scalar (singleton) dimension -bounds_values: 44000. 0.0 ! of scalar (singleton) dimension bounds -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: p560 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -axis: Z ! X, Y, Z, T (default: undeclared) -positive: down ! up or down (default: undeclared) -long_name: pressure -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: plev -stored_direction: decreasing -type: double -value: 56000. ! of scalar (singleton) dimension -bounds_values: 68000. 44000. ! of scalar (singleton) dimension bounds -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: p840 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -axis: Z ! X, Y, Z, T (default: undeclared) -positive: down ! up or down (default: undeclared) -long_name: pressure -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: plev -stored_direction: decreasing -type: double -value: 84000. ! of scalar (singleton) dimension -bounds_values: 100000. 68000. ! of scalar (singleton) dimension bounds -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: alt40 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: altitude -units: m -axis: Z ! X, Y, Z, T (default: undeclared) -positive: up ! up or down (default: undeclared) -long_name: altitude -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: alt40 -stored_direction: increasing -tolerance: 0.001 -type: double -!requested: 240. 720. 1200. 1680. 2160. 2640. 3120. 3600. 4080. 4560. 5040. 5520. 6000. 6480. 6960. 7440. 7920. 8400. 8880. 9360. 9840. 10320. 10800. 11280. 11760. 12240. 12720. 13200. 13680. 14160. 14640. 15120. 15600. 16080. 16560. 17040. 17520. 18000. 18480. 18960. ! space-separated list of requested coordinates -!requested_bounds: 0. 480. 480. 960. 960. 1440. 1440. 1920. 1920. 2400. 2400. 2880. 2880. 3360. 3360. 3840. 3840. 4320. 4320. 4800. 4800. 5280. 5280. 5760. 5760. 6240. 6240. 6720. 6720. 7200. 7200. 7680. 7680. 8160. 8160. 8640. 8640. 9120. 9120. 9600. 9600. 10080. 10080. 10560. 10560. 11040. 11040. 11520. 11520. 12000. 12000. 12480. 12480. 12960. 12960. 13440. 13440. 13920. 13920. 14400. 14400. 14880. 14880. 15360. 15360. 15840. 15840. 16320. 16320. 16800. 16800. 17280. 17280. 17760. 17760. 18240. 18240. 18720. 18720. 19200. ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: time -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: time -units: days since ? -axis: T ! X, Y, Z, T (default: undeclared) -long_name: time -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: time -stored_direction: increasing -type: double -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: time1 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: time -units: days since ? -axis: T ! X, Y, Z, T (default: undeclared) -long_name: time -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: time -stored_direction: increasing -type: double -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: height2m -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: height -units: m -axis: Z ! X, Y, Z, T (default: undeclared) -positive: up ! up or down (default: undeclared) -long_name: height -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: height -valid_min: 1.0 -valid_max: 10.0 -stored_direction: increasing -type: double -value: 2. ! of scalar (singleton) dimension -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: height10m -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: height -units: m -axis: Z ! X, Y, Z, T (default: undeclared) -positive: up ! up or down (default: undeclared) -long_name: height -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: height -valid_min: 1.0 -valid_max: 30.0 -stored_direction: increasing -type: double -value: 10. ! of scalar (singleton) dimension -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: scatratio -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: backscattering_ratio -units: 1 -long_name: lidar backscattering ratio -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: scatratio -stored_direction: increasing -tolerance: 0.001 -type: double -requested: 0.005 0.605 2.1 4. 6. 8.5 12.5 17.5 22.5 27.5 35. 45. 55. 70. 50040. ! space-separated list of requested coordinates -requested_bounds: 0. 0.01 0.01 1.2 1.2 3. 3. 5. 5. 7. 7. 10. 10. 15. 15. 20. 20. 25. 25. 30. 30. 40. 40. 50. 50. 60. 60. 80. 80. 100000. ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: dbze -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: equivalent_reflectivity_factor -units: dBZ -long_name: CloudSat simulator equivalent radar reflectivity factor -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: dbze -stored_direction: increasing -tolerance: 0.001 -type: double -requested: -47.5 -42.5 -37.5 -32.5 -27.5 -22.5 -17.5 -12.5 -7.5 -2.5 2.5 7.5 12.5 17.5 22.5 ! space-separated list of requested coordinates -requested_bounds: -50. -45. -45. -40. -40. -35. -35. -30. -30. -25. -25. -20. -20. -15. -15. -10. -10. -5. -5. 0. 0. 5. 5. 10. 10. 15. 15. 20. 20. 25. ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: sza5 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: solar_zenith_angle -units: degree -long_name: solar zenith angle -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: sza -stored_direction: increasing -tolerance: 0.001 -type: double -requested: 0. 20. 40. 60. 80. ! space-separated list of requested coordinates -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: location -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -units: 1 -long_name: location index -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: loc -stored_direction: increasing -type: integer -must_have_bounds: no -index_only: ok -must_call_cmor_grid: yes - -!---------------------------------- -! - -!============ -axis_entry: smooth_level -!============ -! -! This coordinate is a hybrid height coordinate with units of meters (m). -! It increases upward. -! The values of a(k)*ztop, which appear in the formula below, should be stored as smooth_level. -! Note that in the netCDF file the variable will be named "lev", not smooth_level. -! -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_sleve_coordinate -units: m -axis: Z -positive: up -long_name: atmosphere smooth level vertical (SLEVE) coordinate -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: increasing -valid_min: -200. -valid_max: 800000. -formula: z = a*ztop + b1*zsurf1 + b2*zsurf2 -z_factors: a: a b1: b1 b2: b2 ztop: ztop zsurf1: zsurf1 zsurf2: zsurf2 -z_bounds_factors: a: a_bnds b1: b1_bnds b2: b2_bnds ztop: ztop zsurf1: zsurf1 zsurf2: zsurf2 -!---------------------------------- -! -!============ -axis_entry: natural_log_pressure -!============ -! -!This coordinate is dimensionless and varies from near 0 at the surface and increases upward. -! The values of lev(k), which appears in the formula below, should be stored as natural_log_pressure. -! Note that in the netCDF file the variable will be named "lev", not natural_log_pressure. -! -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_ln_pressure_coordinate -axis: Z -long_name: atmosphere natural log pressure coordinate -positive: down -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: decreasing -valid_min: -1. -valid_max: 20. -formula: p = p0 * exp(-lev) -z_factors: p0: p0 lev: lev -z_bounds_factors: p0: p0 lev: lev_bnds -!---------------------------------- -! -!============ -axis_entry: standard_sigma -!============ -! -! This coordinate is dimensionless and varies from 0 at the model top to 1.0 at the surface. -! The values of sigma(k), which appears in the formula below, should be stored as standard_sigma. -! Note that in the netCDF file the variable will be named "lev", not standard_sigma. -! -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_sigma_coordinate -axis: Z -positive: down -long_name: sigma coordinate -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: decreasing -valid_min: 0.0 -valid_max: 1.0 -formula: p = ptop + sigma*(ps - ptop) -z_factors: ptop: ptop sigma: lev ps: ps -z_bounds_factors: ptop: ptop sigma: lev_bnds ps: ps -!---------------------------------- -! -! -!============ -axis_entry: standard_hybrid_sigma -!============ -! -! This coordinate is dimensionless and varies from a small value at the model top to 1.0 at the surface. -! The values of a+ b, which appear in the formula below, should be stored as standard_hybrid_sigma. -! Note that in the netCDF file the variable will be named "lev", not standard_hybrid_sigma. -! -!--------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_hybrid_sigma_pressure_coordinate -units: 1 -axis: Z -positive: down -long_name: hybrid sigma pressure coordinate -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: decreasing -valid_min: 0.0 -valid_max: 1.0 -formula: p = a*p0 + b*ps -z_factors: p0: p0 a: a b: b ps: ps -z_bounds_factors: p0: p0 a: a_bnds b: b_bnds ps: ps -!---------------------------------- -! -! -!============ -axis_entry: alternate_hybrid_sigma -!============ -! -! This coordinate is dimensionless and varies from a small value at the model top to 1.0 at the surface. -! The values of ap/p0 + b, which appear in the formula below, should be stored as alternate_hybrid_sigma. -! Note that in the netCDF file the variable will be named "lev", not alternate_hybrid_sigma. -! -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_hybrid_sigma_pressure_coordinate -units: 1 -axis: Z -positive: down -long_name: hybrid sigma pressure coordinate -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: decreasing -valid_min: 0.0 -valid_max: 1.0 -formula: p = ap + b*ps -z_factors: ap: ap b: b ps: ps -z_bounds_factors: ap: ap_bnds b: b_bnds ps: ps -!---------------------------------- -! -! -!============ -axis_entry: hybrid_height -!============ -! -! This coordinate has dimension of meters (m) and increases upward. -! The values of a which appear in the formula below, should be stored as hybrid_height. -! Note that in the netCDF file the variable will be named "lev", not hybrid_height. -! -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_hybrid_height_coordinate -units: m -axis: Z -positive: up -long_name: hybrid height coordinate -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: increasing -valid_min: 0.0 -formula: z = a + b*orog -z_factors: a: lev b: b orog: orog -z_bounds_factors: a: lev_bnds b: b_bnds orog: orog -!---------------------------------- -! -! *************************************************************** -! -! Vertical coordinate formula terms: -! -! *************************************************************** -! -! -!============ -variable_entry: orog -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_altitude -units: m -long_name: Surface Altitude -comment: height above the geoid; as defined here, ""the geoid"" is a surface of constant geopotential that, if the ocean were at rest, would coincide with mean sea level. Under this definition, the geoid changes as the mean volume of the ocean changes (e.g., due to glacial melt, or global warming of the ocean). Report here the height above the present-day geoid. Over ocean, report as 0.0 -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude -out_name: orog -type: real -valid_min: -700 -valid_max: 1.00E+04 -!---------------------------------- -! -! -!============ -variable_entry: p0 -!============ -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: reference pressure -units: Pa -!---------------------------------- -! -! -!============ -variable_entry: ptop -!============ -! -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: pressure at top of model -units: Pa -!---------------------------------- -! -! -! -!============ -variable_entry: a -!============ -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: a(k) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: b -!============ -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: b(k) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: a_bnds -!============ -! -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: a(k+1/2) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: b_bnds -!============ -! -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: b(k+1/2) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: ap -!============ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: ap(k) -units: Pa -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: ap_bnds -!============ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: ap(k+1/2) -units: Pa -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: ztop -!============ -! -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: height of top of model -units: m -!---------------------------------- -! -! -! - -!============ -variable_entry: clcalipso -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -long_name: CALIPSO Cloud Area Fraction -comment: (40 height levels) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location alt40 time1 -out_name: clcalipso -type: real -!---------------------------------- -! - -!============ -variable_entry: clcalipso2 -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -long_name: CALIPSO Cloud Fraction Undetected by CloudSat -comment: (40 height levels) Clouds detected by CALIPSO but below the detectability threshold of CloudSat -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location alt40 time1 -out_name: clcalipso2 -type: real -!---------------------------------- -! - -!============ -variable_entry: cfadDbze94 -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: histogram_of_equivalent_reflectivity_factor_over_height_above_reference_ellipsoid -units: 1 -cell_methods: time: point -long_name: CloudSat Radar Reflectivity CFAD -comment: CFADs (Cloud Frequency Altitude Diagrams) are joint height - radar reflectivity (or lidar scattering ratio) distributions (40 levelsx15 bins) . -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location alt40 dbze time1 -out_name: cfadDbze94 -type: real -!---------------------------------- -! - -!============ -variable_entry: cfadLidarsr532 -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: histogram_of_backscattering_ratio_over_height_above_reference_ellipsoid -units: 1 -cell_methods: time: point -long_name: CALIPSO Scattering Ratio CFAD -comment: CFADs (Cloud Frequency Altitude Diagrams) are joint height - radar reflectivity (or lidar scattering ratio) distributions (40 levelsx15 bins) . -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location alt40 scatratio time1 -out_name: cfadLidarsr532 -type: real -!---------------------------------- -! - -!============ -variable_entry: parasolRefl -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_bidirectional_reflectance -units: 1 -cell_methods: time: point -long_name: PARASOL Reflectance -comment: Simulated reflectance from PARASOL as seen at the top of the atmosphere for 5 solar zenith angles. Valid only over ocean and for one viewing direction (viewing zenith angle of 30 degrees and relative azimuth angle 320 degrees). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location sza5 time1 -out_name: parasolRefl -type: real -!---------------------------------- -! - -!============ -variable_entry: cltcalipso -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -cell_methods: time: point -long_name: CALIPSO Total Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: cltcalipso -type: real -!---------------------------------- -! - -!============ -variable_entry: cllcalipso -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -long_name: CALIPSO Low Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 p840 -out_name: cllcalipso -type: real -!---------------------------------- -! - -!============ -variable_entry: clmcalipso -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -long_name: CALIPSO Mid Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 p560 -out_name: clmcalipso -type: real -!---------------------------------- -! - -!============ -variable_entry: clhcalipso -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -long_name: CALIPSO High Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 p220 -out_name: clhcalipso -type: real -!---------------------------------- -! - -!============ -variable_entry: longitude -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: longitude -units: degrees_east -cell_methods: time: point -long_name: Longitude -comment: is a function of time. Note that the CF convention and CMOR2 require that this field will be included in each file that contains a variable that is a function of the ""location"" dimension, so there is no need to save this field by itself. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: lon -type: real -valid_min: 0.0 -valid_max: 360.0 -!---------------------------------- -! - -!============ -variable_entry: latitude -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: latitude -units: degrees_north -cell_methods: time: point -long_name: Latitude -comment: the above comment also applies to latitude. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: lat -type: real -valid_min: -90.0 -valid_max: 90.0 -!---------------------------------- -! - -!============ -variable_entry: toffset -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: time -units: day -long_name: Offset Time -comment: "this ""offset time"" should be added to the value stored in the ""time dimension"" to get the actual time. This actual time is the time (UTC) of the corresponding point in the satellite orbit used to extract the model data." -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: toffset -type: real -!---------------------------------- -! - -!============ -variable_entry: tas -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_temperature -units: K -cell_methods: time: point -cell_measures: area: areacella -long_name: Near-Surface Air Temperature -comment: near-surface (usually, 2 meter) air temperature. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height2m -out_name: tas -type: real -!---------------------------------- -! - -!============ -variable_entry: ts -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_temperature -units: K -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Temperature -comment: ""skin"" temperature (i.e., SST for open ocean) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: ts -type: real -!---------------------------------- -! - -!============ -variable_entry: psl -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_sea_level -units: Pa -cell_methods: time: point -cell_measures: area: areacella -long_name: Sea Level Pressure -comment: not, in general, the same as surface pressure -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: psl -type: real -!---------------------------------- -! - -!============ -variable_entry: ps -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_air_pressure -units: Pa -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Air Pressure -comment: not, in general, the same as mean sea-level pressure -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: ps -type: real -!---------------------------------- -! - -!============ -variable_entry: uas -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: eastward_wind -units: m s-1 -cell_methods: time: point -long_name: Eastward Near-Surface Wind -comment: near-surface (usually, 10 meters) eastward component of wind. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height10m -out_name: uas -type: real -!---------------------------------- -! - -!============ -variable_entry: vas -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: northward_wind -units: m s-1 -cell_methods: time: point -long_name: Northward Near-Surface Wind -comment: near-surface (usually, 10 meters) northward component of wind. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height10m -out_name: vas -type: real -!---------------------------------- -! - -!============ -variable_entry: sfcWind -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: wind_speed -units: m s-1 -cell_methods: time: point -long_name: Near-Surface Wind Speed -comment: near-surface (usually, 10 meters) wind speed. This is the mean of the speed, not the speed computed from the mean u and v components of wind -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height10m -out_name: sfcWind -type: real -!---------------------------------- -! - -!============ -variable_entry: hurs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: relative_humidity -units: % -cell_methods: time: point -cell_measures: area: areacella -long_name: Near-Surface Relative Humidity -comment: near-surface (usually, 2meters) relative humidity expressed as a percentage. This is the relative humidity with respect to liquid water for T> 0 C, and with respect to ice for T<0 C. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height2m -out_name: hurs -type: real -!---------------------------------- -! - -!============ -variable_entry: huss -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: specific_humidity -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Near-Surface Specific Humidity -comment: near-surface (usually, 2 meters) specific humidity. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height2m -out_name: huss -type: real -!---------------------------------- -! - -!============ -variable_entry: pr -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: precipitation_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Precipitation -comment: at surface; includes both liquid and solid phases from all types of clouds (both large-scale and convective) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: pr -type: real -!---------------------------------- -! - -!============ -variable_entry: prsn -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: snowfall_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Snowfall Flux -comment: at surface; includes precipitation of all forms of water in the solid phase -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: prsn -type: real -!---------------------------------- -! - -!============ -variable_entry: prc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_precipitation_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Precipitation -comment: at surface; includes both liquid and solid phases. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: prc -type: real -!---------------------------------- -! - -!============ -variable_entry: evspsbl -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: water_evaporation_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Evaporation -comment: at surface; flux of water into the atmosphere due to conversion of both liquid and solid phases to vapor (from underlying surface and vegetation) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: evspsbl -type: real -!---------------------------------- -! - -!============ -variable_entry: sbl -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_snow_and_ice_sublimation_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Snow and Ice Sublimation Flux -comment: The snow and ice sublimation flux is the loss of snow and ice mass from the surface resulting from their conversion to water vapor that enters the atmosphere. This differs from sbl appearing in table Limon in that the flux is averaged over the entire grid cell, not just the land portion. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: sbl -type: real -!---------------------------------- -! - -!============ -variable_entry: tauu -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downward_eastward_stress -units: Pa -cell_methods: time: point -long_name: Surface Downward Eastward Wind Stress -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tauu -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: tauv -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downward_northward_stress -units: Pa -cell_methods: time: point -long_name: Surface Downward Northward Wind Stress -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tauv -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: hfls -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upward_latent_heat_flux -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Upward Latent Heat Flux -comment: includes both evaporation and sublimation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: hfls -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: hfss -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upward_sensible_heat_flux -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Upward Sensible Heat Flux -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: hfss -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rlds -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downwelling_longwave_flux_in_air -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Downwelling Longwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rlds -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: rlus -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upwelling_longwave_flux_in_air -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Upwelling Longwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rlus -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rsds -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downwelling_shortwave_flux_in_air -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Downwelling Shortwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsds -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: rsus -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upwelling_shortwave_flux_in_air -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Upwelling Shortwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsus -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rsdscs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downwelling_shortwave_flux_in_air_assuming_clear_sky -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Downwelling Clear-Sky Shortwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsdscs -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: rsuscs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upwelling_shortwave_flux_in_air_assuming_clear_sky -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Upwelling Clear-Sky Shortwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsuscs -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rldscs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downwelling_longwave_flux_in_air_assuming_clear_sky -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Downwelling Clear-Sky Longwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rldscs -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: rsdt -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_incoming_shortwave_flux -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: TOA Incident Shortwave Radiation -comment: incident shortwave at the top of the atmosphere -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsdt -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: rsut -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_outgoing_shortwave_flux -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: TOA Outgoing Shortwave Radiation -comment: at the top of the atmosphere -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsut -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rlut -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_outgoing_longwave_flux -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: TOA Outgoing Longwave Radiation -comment: at the top of the atmosphere (to be compared with satellite measurements) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rlut -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rlutcs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_outgoing_longwave_flux_assuming_clear_sky -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: TOA Outgoing Clear-Sky Longwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rlutcs -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rsutcs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_outgoing_shortwave_flux_assuming_clear_sky -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: TOA Outgoing Clear-Sky Shortwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsutcs -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: prw -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_water_vapor_content -units: kg m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Water Vapor Path -comment: vertically integrated through the atmospheric column -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: prw -type: real -!---------------------------------- -! - -!============ -variable_entry: clt -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -cell_methods: time: point -cell_measures: area: areacella -long_name: Total Cloud Fraction -comment: for the whole atmospheric column, as seen from the surface or the top of the atmosphere. Include both large-scale and convective cloud. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: clt -type: real -!---------------------------------- -! - -!============ -variable_entry: clwvi -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_cloud_condensed_water_content -units: kg m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Condensed Water Path -comment: calculate mass of condensed (liquid + ice) water in the column divided by the area of the column (not just the area of the cloudy portion of the column). Include precipitating hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: clwvi -type: real -!---------------------------------- -! - -!============ -variable_entry: clivi -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_cloud_ice_content -units: kg m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Ice Water Path -comment: calculate mass of ice water in the column divided by the area of the column (not just the area of the cloudy portion of the column). Include precipitating frozen hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: clivi -type: real -!---------------------------------- -! - -!============ -variable_entry: rtmt -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: net_downward_radiative_flux_at_top_of_atmosphere_model -units: W m-2 -cell_methods: time: point -cell_measures: area: areacella -long_name: Net Downward Flux at Top of Model -comment: i.e., at the top of that portion of the atmosphere where dynamics are explicitly treated by the model. Report only if this differs from the net downward radiative flux at the top of the atmosphere. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rtmt -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: ccb -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_convective_cloud_base -units: Pa -cell_methods: time: point -cell_measures: area: areacella -long_name: Air Pressure at Convective Cloud Base -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: ccb -type: real -!---------------------------------- -! - -!============ -variable_entry: cct -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_convective_cloud_top -units: Pa -cell_methods: time: point -cell_measures: area: areacella -long_name: Air Pressure at Convective Cloud Top -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: cct -type: real -!---------------------------------- -! - -!============ -variable_entry: ci -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convection_time_fraction -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Fraction of Time Convection Occurs -comment: Fraction of time that convection occurs in the grid cell . -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: ci -type: real -!---------------------------------- -! - -!============ -variable_entry: sci -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: shallow_convection_time_fraction -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Fraction of Time Shallow Convection Occurs -comment: Fraction of time that shallow convection occurs in the grid cell. ( For models with a distinct shallow convection scheme only) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: sci -type: real -!---------------------------------- -! - -!============ -variable_entry: fco2antt -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: tendency_of_atmosphere_mass_content_of_carbon_dioxide_expressed_as_carbon_due_to_anthropogenic_emission -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Carbon Mass Flux into Atmosphere Due to All Anthropogenic Emissions of CO2 -comment: This is requested only for the emission-driven coupled carbon climate model runs. Do not include natural fire sources, but include all anthropogenic sources, including fossil fuel use, cement production, agricultural burning, and sources associated with anthropogenic land use change excluding forest regrowth. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: fco2antt -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: fco2fos -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: tendency_of_atmosphere_mass_content_of_carbon_dioxide_expressed_as_carbon_due_to_emission_from_fossil_fuel_combustion -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Carbon Mass Flux into Atmosphere Due to Fossil Fuel Emissions of CO2 -comment: This is requested only for the emission-driven coupled carbon climate model runs. Report the prescribed anthropogenic CO2 flux from fossil fuel use, including cement production, and flaring (but not from land-use changes, agricultural burning, forest regrowth, etc.) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: fco2fos -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: fco2nat -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upward_mass_flux_of_carbon_dioxide_expressed_as_carbon_due_to_emission_from_natural_sources -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Surface Carbon Mass Flux into the Atmosphere Due to Natural Sources -comment: Report from all simulations (both emission-driven and concentration-driven) performed by models with fully interactive and responsive carbon cycles. This is what the atmosphere sees (on its own grid). This field should be equivalent to the combined natural fluxes of carbon (requested in the L_mon and O_mon tables) that account for natural exchanges between the atmosphere and land or ocean reservoirs (i.e., ""net ecosystem biospheric productivity"", for land, and ""air to sea CO2 flux"", for ocean.) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: fco2nat -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: cltc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_cloud_area_fraction -units: % -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Cloud Fraction -comment: for the whole atmospheric column, as seen from the surface or the top of the atmosphere. Include only convective cloud. Besides the quantities from the Amon table, this is the only other 2-D field in this table. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: cltc -type: real -valid_min: 0.0 -valid_max: 100.0 -!---------------------------------- -! - -!============ -variable_entry: zfull -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: height_above_reference_ellipsoid -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Altitude of Model Full-Levels -comment: This is actual height above mean sea level, not geopotential height -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: zfull -type: real -!---------------------------------- -! - -!============ -variable_entry: zhalf -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: height_above_reference_ellipsoid -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Altitude of Model Half-Levels -comment: This is actual height above mean sea level, not geopotential height. This is actual height above mean sea level, not geopotential height. Include both the top of the model atmosphere and surface levels. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevhalf time1 -out_name: zhalf -type: real -!---------------------------------- -! - -!============ -variable_entry: pfull -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -cell_methods: time: point -cell_measures: area: areacella -long_name: Pressure at Model Full-Levels -comment: provide this field for models in which the pressure can't be calculated from the vertical coordinate information stored already for each variable. Thus, the pressures are needed for height or theta-coordinate models, for example, but not sigma- or eta-coordinate models. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: pfull -type: real -!---------------------------------- -! - -!============ -variable_entry: phalf -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -cell_methods: time: point -cell_measures: area: areacella -long_name: Pressure at Model Half-Levels -comment: provide this field for models in which the pressure can't be calculated from the vertical coordinate information stored already for each variable. Thus, the pressures are needed for height or theta-coordinate models, for example, but not sigma- or eta-coordinate models. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevhalf time1 -out_name: phalf -type: real -!---------------------------------- -! - -!============ -variable_entry: ta -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_temperature -units: K -cell_methods: time: point -cell_measures: area: areacella -long_name: Air Temperature -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: ta -type: real -!---------------------------------- -! - -!============ -variable_entry: h2o -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: mass_fraction_of_water_in_air -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Mass Fraction of Water -comment: include all phases of water -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: h2o -type: real -!---------------------------------- -! - -!============ -variable_entry: clws -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: mass_fraction_of_stratiform_cloud_liquid_water_in_air -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Mass Fraction of Stratiform Cloud Liquid Water -comment: Calculate as the mass of stratiform cloud liquid water in the grid cell divided by the mass of air (including the water in all phases) in the grid cell. Include precipitating hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: clws -type: real -!---------------------------------- -! - -!============ -variable_entry: clis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: mass_fraction_of_stratiform_cloud_ice_in_air -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Mass Fraction of Stratiform Cloud Ice -comment: Calculate as the mass of stratiform cloud ice in the grid cell divided by the mass of air (including the water in all phases) in the grid cell. Include precipitating hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: clis -type: real -!---------------------------------- -! - -!============ -variable_entry: clwc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: mass_fraction_of_convective_cloud_liquid_water_in_air -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Mass Fraction of Convective Cloud Liquid Water -comment: Calculate as the mass of convective cloud liquid water in the grid cell divided by the mass of air (including the water in all phases) in the grid cell. Include precipitating hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: clwc -type: real -!---------------------------------- -! - -!============ -variable_entry: clic -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: mass_fraction_of_convective_cloud_ice_in_air -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Mass Fraction of Convective Cloud Ice -comment: Calculate as the mass of convective cloud ice in the grid cell divided by the mass of air (including the water in all phases) in the grid cell. Include precipitating hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: clic -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclws -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_stratiform_cloud_liquid_water_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Stratiform Cloud Liquid Water -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffclws -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_stratiform_cloud_ice_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Stratiform Cloud Ice -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffclis -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclwc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_convective_cloud_liquid_water_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Convective Cloud Liquid Water -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffclwc -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclic -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_convective_cloud_ice_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Convective Cloud Ice -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffclic -type: real -!---------------------------------- -! - -!============ -variable_entry: grpllsprof -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: large_scale_graupel_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Graupel Flux -comment: report on model half-levels -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: grpllsprof -type: real -!---------------------------------- -! - -!============ -variable_entry: prcprof -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_rainfall_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Rainfall Flux -comment: report on model half-levels -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: prcprof -type: real -!---------------------------------- -! - -!============ -variable_entry: prlsprof -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: large_scale_rainfall_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Rainfall Flux -comment: report on model half-levels -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: prlsprof -type: real -!---------------------------------- -! - -!============ -variable_entry: prsnc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_snowfall_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Snowfall Flux -comment: report on model half-levels -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: prsnc -type: real -!---------------------------------- -! - -!============ -variable_entry: prlsns -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: large_scale_snowfall_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Snowfall Flux -comment: report on model half-levels -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: prlsns -type: real -!---------------------------------- -! - -!============ -variable_entry: reffgrpls -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_stratiform_cloud_graupel_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Stratiform Graupel -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffgrpls -type: real -!---------------------------------- -! - -!============ -variable_entry: reffrainc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_convective_cloud_rain_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Convective Rainfall -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffrainc -type: real -!---------------------------------- -! - -!============ -variable_entry: reffrains -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_stratiform_cloud_rain_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Stratiform Rainfall -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffrains -type: real -!---------------------------------- -! - -!============ -variable_entry: reffsnowc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_convective_cloud_snow_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Convective Snowfall -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffsnowc -type: real -!---------------------------------- -! - -!============ -variable_entry: reffsnows -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_stratiform_cloud_snow_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Stratiform Snowfall -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffsnows -type: real -!---------------------------------- -! - -!============ -variable_entry: dtaus -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_stratiform_cloud -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Cloud Optical Depth -comment: This is the in-cloud optical depth obtained by considering only the cloudy portion of the grid cell. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: dtaus -type: real -!---------------------------------- -! - -!============ -variable_entry: dtauc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_convective_cloud -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Cloud Optical Depth -comment: This is the in-cloud optical depth obtained by considering only the cloudy portion of the grid cell -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: dtauc -type: real -!---------------------------------- -! - -!============ -variable_entry: dems -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: stratiform_cloud_longwave_emissivity -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Cloud Emissivity -comment: This is the in-cloud emissivity obtained by considering only the cloudy portion of the grid cell. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: dems -type: real -!---------------------------------- -! - -!============ -variable_entry: demc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_cloud_longwave_emissivity -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Cloud Emissivity -comment: This is the in-cloud emissivity obtained by considering only the cloudy portion of the grid cell. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: demc -type: real -!---------------------------------- -! - -!============ -variable_entry: clc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Cloud Area Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: clc -type: real -!---------------------------------- -! - -!============ -variable_entry: cls -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: stratiform_cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Cloud Area Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: cls -type: real -!---------------------------------- -! - -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -! COSP-only variables, not requested by CMIP5 in this table. Some of them have been copied -! from other tables: -! cfDa: cltisccp,albisccp,pctisccp -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- - - -!============ -variable_entry: clisccp -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: ISSCP Cloud Area Fraction -comment: 7 levels x 7 tau -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location tau plev7 time1 -out_name: clisccp -type: real -!---------------------------------- -! - -!============ -variable_entry: cltisccp -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -long_name: ISSCP Total Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: cltisccp -type: real -!---------------------------------- -! - -!============ -variable_entry: albisccp -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_albedo -units: 1 -long_name: ISSCP Mean Cloud Albedo -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: albisccp -type: real -!---------------------------------- -! - -!============ -variable_entry: pctisccp -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_cloud_top -units: Pa -long_name: ISSCP Mean Cloud Top Pressure -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: pctisccp -type: real -!---------------------------------- -! - -!============ -variable_entry: cltlidarradar -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -long_name: Lidar and Radar Total Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: cltlidarradar -type: real -!---------------------------------- -! - -!============ -variable_entry: tauisccp -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: Mean Optical Depth as Calculated by the ISCCP Simulator -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: tauisccp -type: real -!---------------------------------- -! - -! -!============ -variable_entry: boxptopisccp -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_cloud_top -units: Pa -long_name: Cloud Top Pressure in Each Column as Calculated by the ISCCP Simulator -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: location column time1 -!---------------------------------- -! - - -! -!============ -variable_entry: boxtauisccp -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: Optical Depth in Each Column as Calculated by the ISCCP Simulator -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: location column time1 -!---------------------------------- -! - -! -!============ -variable_entry: meantbisccp -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: toa_brightness_temperature -units: K -long_name: Mean all-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: location time1 -!---------------------------------- -! -! -! -!============ -variable_entry: meantbclrisccp -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: toa_brightness_temperature_assuming_clear_sky -units: K -long_name: Mean clear-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: location time1 -!---------------------------------- -! -! - -!============ -variable_entry: lidarBetaMol532 -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: volume_attenuated_backwards_scattering_function_in_air_assuming_no_aerosol_or_cloud -units: m-1 sr-1 -long_name: Lidar Molecular Backscatter (532 nm) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: location alevel time1 -!---------------------------------- -! - -! -!============ -variable_entry: dbze94 -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: equivalent_reflectivity_factor -units: 1 -long_name: CloudSat Radar Reflectivity -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: location column alevel time1 -!---------------------------------- - -!============ -variable_entry: atb532 -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: volume_attenuated_backwards_scattering_function_in_air -units: m-1 sr-1 -long_name: Lidar Attenuated Total Backscatter (532 nm) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: location column alevel time1 -!---------------------------------- -! - -! -!============ -variable_entry: fracout -!============ -! -! Variable attributes: -!---------------------------------- -units: 1 -long_name: Subcolumn output from SCOPS -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: location column alevel time1 -!---------------------------------- -! - -! -!============ -variable_entry: clMISR -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: Cloud Fraction as Calculated by the MISR Simulator -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: location cth16 tau time1 -valid_min: 0.0 -valid_max: 100.0001 -ok_min_mean_abs: 0.001 -ok_max_mean_abs: 90.0 -!---------------------------------- - - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!MODIS outputs -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -!============ -variable_entry: cltmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -long_name: MODIS Total Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: cltmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: clwmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -long_name: MODIS Liquid Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: clwmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: climodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -long_name: MODIS Ice Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: climodis -type: real -!---------------------------------- -! - -!============ -variable_entry: clhmodis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: MODIS High Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: clhmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: clmmodis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: MODIS Mid Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: clmmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: cllmodis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: MODIS Low Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: cllmodis -type: real -!---------------------------------- -! - - -!============ -variable_entry: tautmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Total Cloud Optical Thickness -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: tautmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tauwmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Liquid Cloud Optical Thickness -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: tauwmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tauimodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Ice Cloud Optical Thickness -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: tauimodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tautlogmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Total Cloud Optical Thickness (Log10 Mean) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: tautlogmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tauwlogmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Liquid Cloud Optical Thickness (Log10 Mean) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: tauwlogmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tauilogmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Ice Cloud Optical Thickness (Log10 Mean) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: tauilogmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclwmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_cloud_liquid_particle -units: m -long_name: MODIS Liquid Cloud Particle Size -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: reffclwmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclimodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_cloud_liquid_particle -units: m -long_name: MODIS Ice Cloud Particle Size -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: reffclimodis -type: real -!---------------------------------- -! - -!============ -variable_entry: pctmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_cloud_top -units: Pa -long_name: MODIS Cloud Top Pressure -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: pctmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: lwpmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_cloud_liquid_water_content -units: kg m-2 -long_name: MODIS Cloud Liquid Water Path -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: lwpmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: iwpmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_cloud_ice_water_content -units: kg m-2 -long_name: MODIS Cloud Ice Water Path -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location time1 -out_name: iwpmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: clmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: MODIS Cloud Area Fraction -comment: 7 levels x 7 tau -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: location tau plev7 time1 -out_name: clmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tbrttov -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: toa_brightness_temperature -units: K -long_name: Mean clear-sky brightness temperature as calculated by RTTOV -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: location channel time1 -!---------------------------------- -! diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/COSP_table_2D b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/COSP_table_2D deleted file mode 100644 index 53e45a4ad..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/COSP_table_2D +++ /dev/null @@ -1,3410 +0,0 @@ -table_id: Table 2D -modeling_realm: atmos - -frequency: subhr - -cmor_version: 2.0 ! version of CMOR that can read this table -cf_version: 1.4 ! version of CF that output conforms to -project_id: CMIP5 ! project id -table_date: 02 April 2010 ! date this table was constructed - -missing_value: 1.e20 ! value used to indicate a missing value - ! in arrays output by netCDF as 32-bit IEEE - ! floating-point numbers (float or real) - -baseURL: http://cmip-pcmdi.llnl.gov/CMIP5/dataLocation -product: output - -required_global_attributes: creation_date tracking_id forcing model_id parent_experiment_id branch_time contact ! space separated required global attribute - -forcings: N/A Nat Ant GHG SD SI SA TO SO Oz LU Sl Vl SS Ds BC MD OC AA - -expt_id_ok: '10- or 30-year run initialized in year XXXX' 'decadalXXXX' -expt_id_ok: 'volcano-free hindcasts XXXX' 'noVolcXXXX' -expt_id_ok: 'prediction with 2010 volcano' 'volcIn2010' -expt_id_ok: 'pre-industrial control' 'piControl' -expt_id_ok: 'Historical' 'historical' -expt_id_ok: 'mid-Holocene' 'midHolocene' -expt_id_ok: 'last glacial maximum' 'lgm' -expt_id_ok: 'last millennium' 'past1000' -expt_id_ok: 'RCP4.5' 'rcp45' -expt_id_ok: 'RCP8.5' 'rcp85' -expt_id_ok: 'RCP2.6' 'rcp26' -expt_id_ok: 'RCP6' 'rcp60' -expt_id_ok: 'ESM pre-industrial control' 'esmControl' -expt_id_ok: 'ESM historical' 'esmHistorical' -expt_id_ok: 'ESM RCP8.5' 'esmrcp85' -expt_id_ok: 'ESM fixed climate 1' 'esmFixClim1' -expt_id_ok: 'ESM fixed climate 2' 'esmFixClim2' -expt_id_ok: 'ESM feedback 1' 'esmFdbk1' -expt_id_ok: 'ESM feedback 2' 'esmFdbk2' -expt_id_ok: '1 percent per year CO2' '1pctCO2' -expt_id_ok: 'abrupt 4XCO2' 'abrupt4xCO2' -expt_id_ok: 'natural-only' 'historicalNat' -expt_id_ok: 'GHG-only' 'historicalGHG' -expt_id_ok: 'anthropogenic-only' 'historicalAnt' -expt_id_ok: 'anthropogenic sulfate aerosol direct effect only' 'historicalSD' -expt_id_ok: 'anthropogenic sulfate aerosol indirect effect only' 'historicalSI' -expt_id_ok: 'anthropogenic sulfate aerosol only' 'historicalSA' -expt_id_ok: 'tropospheric ozone only' 'historicalTO' -expt_id_ok: 'stratospheric ozone' 'historicalSO' -expt_id_ok: 'ozone only' 'historicalOz' -expt_id_ok: 'land-use change only' 'historicalLU' -expt_id_ok: 'solar irradiance only' 'historicalSl' -expt_id_ok: 'volcanic aerosol only' 'historicalVl' -expt_id_ok: 'sea salt only' 'historicalSS' -expt_id_ok: 'dust' 'historicalDs' -expt_id_ok: 'black carbon only' 'historicalBC' -expt_id_ok: 'mineral dust only' 'historicalMD' -expt_id_ok: 'organic carbon only' 'historicalOC' -expt_id_ok: 'anthropogenic aerosols only' 'historicalAA' -expt_id_ok: 'AMIP' 'amip' -expt_id_ok: '2030 time-slice' 'sst2030' -expt_id_ok: 'control SST climatology' 'sstClim' -expt_id_ok: 'CO2 forcing' 'sstClim4xCO2' -expt_id_ok: 'all aerosol forcing' 'sstClimAerosol' -expt_id_ok: 'sulfate aerosol forcing' 'sstClimSulfate' -expt_id_ok: '4xCO2 AMIP' 'amip4xCO2' -expt_id_ok: 'AMIP plus patterned anomaly' 'amipFuture' -expt_id_ok: 'aqua planet control' 'aquaControl' -expt_id_ok: '4xCO2 aqua planet' 'aqua4xCO2' -expt_id_ok: 'aqua planet plus 4K anomaly' 'aqua4K' -expt_id_ok: 'AMIP plus 4K anomaly' 'amip4K' - - -approx_interval: 0.125000 ! approximate spacing between successive time - ! samples (in units of the output time - ! coordinate. - -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -! COSP-axis, not used by CMIP5 in this table. -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!============ -axis_entry: tau -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: cloud_optical_depth -units: 1 -long_name: cloud optical depth -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: tau -stored_direction: increasing -tolerance: 0.001 - -type: double -requested: 0.15 0.8 2.45 6.5 16.2 41.5 100. ! space-separated list of requested coordinates -! requested_bounds: 0.0 0.3 0.3 1.3 1.3 3.6 3.6 9.4 9.4 23.0 23.0 60.0 60.0 100000. ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - -!============ -axis_entry: plev7 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -axis: Z ! X, Y, Z, T (default: undeclared) -positive: down ! up or down (default: undeclared) -long_name: pressure -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: plev -stored_direction: decreasing -tolerance: 0.001 - -type: double -! requested_bounds: 100000. 80000. 80000. 68000. 68000. 56000. 56000. 44000. 44000. 31000. 31000. 18000. 18000. 0. ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - -! -!============ -axis_entry: column -!============ -! -! ignored: cell_bounds -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: column -units: 1 -long_name: column -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: column -valid_min: 0. -!---------------------------------- - -!============ -axis_entry: cth16 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: altitude -units: m -axis: Z ! X, Y, Z, T (default: undeclared) -positive: up ! up or down (default: undeclared) -long_name: altitude -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: cth -stored_direction: increasing -tolerance: 0.001 - -type: double -! requested_bounds: -99000 0 0 500 500 1000 1000 1500 1500 2000 2000 2500 2500 3000 3000 4000 4000 5000 5000 7000 7000 9000 9000 11000 11000 13000 13000 15000 15000 17000 17000 99000 ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - -! -!============ -axis_entry: channel -!============ -! -! ignored: cell_bounds -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: channel -units: 1 -long_name: RTTOV channel of satellite instrument -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: channel -valid_min: 0. -!---------------------------------- - - -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -! Axis missing. -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- - -!============ -axis_entry: sza5 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: solar_zenith_angle -units: degree -long_name: solar zenith angle -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: sza -stored_direction: increasing -tolerance: 0.001 - -type: double -requested: 0. 20. 40. 60. 80. ! space-separated list of requested coordinates -must_have_bounds: no -!---------------------------------- -! - -!============ -axis_entry: alevel -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -axis: Z ! X, Y, Z, T (default: undeclared) -long_name: atmospheric model level -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: lev -stored_direction: increasing -type: double -must_have_bounds: yes -index_only: ok -!---------------------------------- -! - - -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -! END OF Axis missing. -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- - - - -!============ -axis_entry: longitude -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: longitude -units: degrees_east -axis: X ! X, Y, Z, T (default: undeclared) -long_name: longitude -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: lon -valid_min: 0 -valid_max: 360 -stored_direction: increasing -type: double -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: latitude -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: latitude -units: degrees_north -axis: Y ! X, Y, Z, T (default: undeclared) -long_name: latitude -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: lat -valid_min: -90 -valid_max: 90 -stored_direction: increasing -type: double -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: p220 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -axis: Z ! X, Y, Z, T (default: undeclared) -positive: down ! up or down (default: undeclared) -long_name: pressure -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: plev -stored_direction: decreasing -type: double -value: 22000. ! of scalar (singleton) dimension -bounds_values: 44000. 0. ! of scalar (singleton) dimension bounds -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: p560 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -axis: Z ! X, Y, Z, T (default: undeclared) -positive: down ! up or down (default: undeclared) -long_name: pressure -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: plev -stored_direction: decreasing -type: double -value: 56000. ! of scalar (singleton) dimension -bounds_values: 68000. 44000. ! of scalar (singleton) dimension bounds -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: p840 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -axis: Z ! X, Y, Z, T (default: undeclared) -positive: down ! up or down (default: undeclared) -long_name: pressure -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: plev -stored_direction: decreasing -type: double -value: 84000. ! of scalar (singleton) dimension -bounds_values: 100000. 680. ! of scalar (singleton) dimension bounds -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: alevhalf -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -axis: Z ! X, Y, Z, T (default: undeclared) -positive: up ! up or down (default: undeclared) -long_name: atmospheric model half-level -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: lev -type: double -must_have_bounds: no -index_only: ok -!---------------------------------- -! - - -!============ -axis_entry: alt40 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: altitude -units: m -axis: Z ! X, Y, Z, T (default: undeclared) -positive: up ! up or down (default: undeclared) -long_name: altitude -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: alt40 -stored_direction: increasing -tolerance: 0.001 - -type: double -!requested: 240. 720. 1200. 1680. 2160. 2640. 3120. 3600. 4080. 4560. 5040. 5520. 6000. 6480. 6960. 7440. 7920. 8400. 8880. 9360. 9840. 10320. 10800. 11280. 11760. 12240. 12720. 13200. 13680. 14160. 14640. 15120. 15600. 16080. 16560. 17040. 17520. 18000. 18480. 18960. ! space-separated list of requested coordinates -!requested_bounds: . 0. 480. 480. 960. 960. 1440. 1440. 1920. 1920. 2400. 2400. 2880. 2880. 3360. 3360. 3840. 3840. 4320. 4320. 4800. 4800. 5280. 5280. 5760. 5760. 6240. 6240. 6720. 6720. 7200. 7200. 7680. 7680. 8160. 8160. 8640. 8640. 9120. 9120. 9600. 9600. 10080. 10080. 10560. 10560. 11040. 11040. 11520. 11520. 12000. 12000. 12480. 12480. 12960. 12960. 13440. 13440. 13920. 13920. 14400. 14400. 14880. 14880. 15360. 15360. 15840. 15840. 16320. 16320. 16800. 16800. 17280. 17280. 17760. 17760. 18240. 18240. 18720. . 18720. 19200. ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: time -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: time -units: days since ? -axis: T ! X, Y, Z, T (default: undeclared) -long_name: time -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: time -stored_direction: increasing -type: double -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: time1 -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: time -units: days since ? -axis: T ! X, Y, Z, T (default: undeclared) -long_name: time -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: time -stored_direction: increasing -type: double -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: height2m -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: height -units: m -axis: Z ! X, Y, Z, T (default: undeclared) -positive: up ! up or down (default: undeclared) -long_name: height -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: height -valid_min: 1 -valid_max: 10 -stored_direction: increasing -type: double -value: 2. ! of scalar (singleton) dimension -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: height10m -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: height -units: m -axis: Z ! X, Y, Z, T (default: undeclared) -positive: up ! up or down (default: undeclared) -long_name: height -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: height -valid_min: 1 -valid_max: 30 -stored_direction: increasing -type: double -value: 10. ! of scalar (singleton) dimension -must_have_bounds: no -!---------------------------------- -! - - -!============ -axis_entry: scatratio -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: backscattering_ratio -units: 1 -long_name: lidar backscattering ratio -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: scatratio -stored_direction: increasing -tolerance: 0.001 - -type: double -! requested_bounds: 0.01 1.2 3 5 7 10 15 20 25 30 40 50 60 80 999 1009 ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - - -!============ -axis_entry: dbze -!============ -!---------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: equivalent_reflectivity_factor -units: dBZ -long_name: CloudSat simulator equivalent radar reflectivity factor -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: dbze -stored_direction: increasing -tolerance: 0.001 - -type: double -requested: -47.5 -42.5 -37.5 -32.5 -27.5 -22.5 -17.5 -12.5 -7.5 -2.5 2.5 7.5 12.5 17.5 22.5 ! space-separated list of requested coordinates -!requested_bounds: -50 -45 -40 -35 -30 -25 -20 -15 -10 -5 0 5 10 15 20 25 ! space-separated list of requested coordinate bounds -must_have_bounds: yes -!---------------------------------- -! - -!============ -axis_entry: smooth_level -!============ -! -! This coordinate is a hybrid height coordinate with units of meters (m). -! It increases upward. -! The values of a(k)*ztop, which appear in the formula below, should be stored as smooth_level. -! Note that in the netCDF file the variable will be named "lev", not smooth_level. -! -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_sleve_coordinate -units: m -axis: Z -positive: up -long_name: atmosphere smooth level vertical (SLEVE) coordinate -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: increasing -valid_min: -200. -valid_max: 800000. -formula: z(n,k,j,i) = a(k)*ztop + b1(k)*zsurf1(n,j,i) + b2(k)*zsurf2(n,j,i) -z_factors: a: a b1: b1 b2: b2 ztop: ztop zsurf1: zsurf1 zsurf2: zsurf2 -z_bounds_factors: a: a_bnds b1: b1_bnds b2: b2_bnds ztop: ztop zsurf1: zsurf1 zsurf2: zsurf2 -!---------------------------------- -! -!============ -axis_entry: natural_log_pressure -!============ -! -!This coordinate is dimensionless and varies from near 0 at the surface and increases upward. -! The values of lev(k), which appears in the formula below, should be stored as natural_log_pressure. -! Note that in the netCDF file the variable will be named "lev", not natural_log_pressure. -! -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_ln_pressure_coordinate -axis: Z -long_name: atmosphere natural log pressure coordinate -positive: down -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: decreasing -valid_min: -1. -valid_max: 20. -formula: p(k) = p0 * exp(-lev(k)) -z_factors: p0: p0 lev: lev -z_bounds_factors: p0: p0 lev: lev_bnds -!---------------------------------- -! -!============ -axis_entry: standard_sigma -!============ -! -! This coordinate is dimensionless and varies from 0 at the model top to 1.0 at the surface. -! The values of sigma(k), which appears in the formula below, should be stored as standard_sigma. -! Note that in the netCDF file the variable will be named "lev", not standard_sigma. -! -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_sigma_coordinate -axis: Z -positive: down -long_name: sigma coordinate -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: decreasing -valid_min: 0.0 -valid_max: 1.0 -formula: p(n,k,j,i) = ptop + sigma(k)*(ps(n,j,i) - ptop) -z_factors: ptop: ptop sigma: lev ps: ps -z_bounds_factors: ptop: ptop sigma: lev_bnds ps: ps -!---------------------------------- -! -! -!============ -axis_entry: standard_hybrid_sigma -!============ -! -! This coordinate is dimensionless and varies from a small value at the model top to 1.0 at the surface. -! The values of a(k)+ b(k), which appear in the formula below, should be stored as standard_hybrid_sigma. -! Note that in the netCDF file the variable will be named "lev", not standard_hybrid_sigma. -! -!--------------------------------- -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_hybrid_sigma_pressure_coordinate -units: 1 -axis: Z -positive: down -long_name: hybrid sigma pressure coordinate -!---------------------------------- -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: decreasing -valid_min: 0.0 -valid_max: 1.0 -formula: p(n,k,j,i) = a(k)*p0 + b(k)*ps(n,j,i) -z_factors: p0: p0 a: a b: b ps: ps -z_bounds_factors: p0: p0 a: a_bnds b: b_bnds ps: ps -!---------------------------------- -! -! -!============ -axis_entry: alternate_hybrid_sigma -!============ -! -! This coordinate is dimensionless and varies from a small value at the model top to 1.0 at the surface. -! The values of ap(k)/p0 + b(k), which appear in the formula below, should be stored as alternate_hybrid_sigma. -! Note that in the netCDF file the variable will be named "lev", not alternate_hybrid_sigma. -! -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_hybrid_sigma_pressure_coordinate -units: 1 -axis: Z -positive: down -long_name: hybrid sigma pressure coordinate -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: decreasing -valid_min: 0.0 -valid_max: 1.0 -formula: p(n,k,j,i) = ap(k) + b(k)*ps(n,j,i) -z_factors: ap: ap b: b ps: ps -z_bounds_factors: ap: ap_bnds b: b_bnds ps: ps -!---------------------------------- -! -! -!============ -axis_entry: hybrid_height -!============ -! -! This coordinate has dimension of meters (m) and increases upward. -! The values of a(k) which appear in the formula below, should be stored as hybrid_height. -! Note that in the netCDF file the variable will be named "lev", not hybrid_height. -! -!------------ -! -! Axis attributes: -!---------------------------------- -standard_name: atmosphere_hybrid_height_coordinate -units: m -axis: Z -positive: up -long_name: hybrid height coordinate -!---------------------------------- -! -! Additional axis information: -!---------------------------------- -out_name: lev -must_have_bounds: yes -stored_direction: increasing -valid_min: 0.0 -formula: z(k,j,i) = a(k) + b(k)*orog(j,i) -z_factors: a: lev b: b orog: orog -z_bounds_factors: a: lev_bnds b: b_bnds orog: orog -!---------------------------------- -! -! *************************************************************** -! -! Vertical coordinate formula terms: -! -! *************************************************************** -! -! -!============ -variable_entry: orog -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_altitude -units: m -long_name: Surface Altitude -comment: height above the geoid; as defined here, ""the geoid"" is a surface of constant geopotential that, if the ocean were at rest, would coincide with mean sea level. Under this definition, the geoid changes as the mean volume of the ocean changes (e.g., due to glacial melt, or global warming of the ocean). Report here the height above the present-day geoid. Over ocean, report as 0.0 -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude -out_name: orog -type: real -valid_min: -700 -valid_max: 1.00E+04 -!---------------------------------- -! -! -!============ -variable_entry: p0 -!============ -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: reference pressure -units: Pa -!---------------------------------- -! -! -!============ -variable_entry: ptop -!============ -! -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: pressure at top of model -units: Pa -!---------------------------------- -! -! -! -!============ -variable_entry: a -!============ -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: a(k) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: b -!============ -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: b(k) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: a_bnds -!============ -! -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: a(k+1/2) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: b_bnds -!============ -! -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: b(k+1/2) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: ap -!============ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: ap(k) -units: Pa -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: ap_bnds -!============ -! -! Variable attributes: -!---------------------------------- -long_name: vertical coordinate formula term: ap(k+1/2) -units: Pa -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: alevel -type: double -!---------------------------------- -! -! -!============ -variable_entry: ztop -!============ -! -!------------ -! -! Variable attributes: -!---------------------------------- -long_name: height of top of model -units: m -!---------------------------------- -! -! -! - -!============ -variable_entry: clcalipso -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -long_name: CALIPSO Cloud Area Fraction -comment: (40 height levels) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alt40 time1 -out_name: clcalipso -type: real -!---------------------------------- -! - -!============ -variable_entry: clcalipso2 -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -long_name: CALIPSO Cloud Fraction Undetected by CloudSat -comment: (40 height levels) Clouds detected by CALIPSO but below the detectability threshold of CloudSat -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alt40 time1 -out_name: clcalipso2 -type: real -!---------------------------------- -! - -!============ -variable_entry: cfadDbze94 -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: histogram_of_equivalent_reflectivity_factor_over_height_above_reference_ellipsoid -units: 1 -cell_methods: time: point -long_name: CloudSat Radar Reflectivity CFAD -comment: CFADs (Cloud Frequency Altitude Diagrams) are joint height - radar reflectivity (or lidar scattering ratio) distributions (40 levelsx15 bins) . -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alt40 dbze time1 -out_name: cfadDbze94 -type: real -!---------------------------------- -! - -!============ -variable_entry: cfadLidarsr532 -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: histogram_of_backscattering_ratio_over_height_above_reference_ellipsoid -units: 1 -cell_methods: time: point -long_name: CALIPSO Scattering Ratio CFAD -comment: CFADs (Cloud Frequency Altitude Diagrams) are joint height - radar reflectivity (or lidar scattering ratio) distributions (40 levelsx15 bins) . -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alt40 scatratio time1 -out_name: cfadLidarsr532 -type: real -!---------------------------------- -! - -!============ -variable_entry: parasolRefl -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_bidirectional_reflectance -units: 1 -cell_methods: time: point -long_name: PARASOL Reflectance -comment: Simulated reflectance from PARASOL as seen at the top of the atmosphere for 5 solar zenith angles. Valid only over ocean and for one viewing direction (viewing zenith angle of 30 degrees and relative azimuth angle 320 degrees). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude sza5 time1 -out_name: parasolRefl -type: real -!---------------------------------- -! - -!============ -variable_entry: cltcalipso -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -cell_methods: time: point -long_name: CALIPSO Total Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: cltcalipso -type: real -!---------------------------------- -! - -!============ -variable_entry: cllcalipso -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -long_name: CALIPSO Low Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 p840 -out_name: cllcalipso -type: real -!---------------------------------- -! - -!============ -variable_entry: clmcalipso -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -long_name: CALIPSO Mid Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 p560 -out_name: clmcalipso -type: real -!---------------------------------- -! - -!============ -variable_entry: clhcalipso -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -cell_methods: time: point -long_name: CALIPSO High Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 p220 -out_name: clhcalipso -type: real -!---------------------------------- -! - -!============ -variable_entry: lon -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: longitude -units: degrees_east -cell_methods: time: point -long_name: Longitude -comment: function of time -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: lon -type: real -!---------------------------------- -! - -!============ -variable_entry: lat -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: latitude -units: degrees_north -cell_methods: time: point -long_name: Latitude -comment: function of time -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: lat -type: real -!---------------------------------- -! - -!============ -variable_entry: toffset -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: time -units: day -long_name: Offset Time -comment: "this ""offset time"" should be added to the value stored in the ""time dimension"" to get the actual time. This actual time is the time (UTC) of the corresponding point in the satellite orbit used to extract the model data." -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: toffset -type: real -!---------------------------------- -! - -!============ -variable_entry: tas -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_temperature -units: K -cell_methods: time: point -cell_measures: area: areacello volume: volcello -long_name: Near-Surface Air Temperature -comment: near-surface (usually, 2 meter) air temperature. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height2m -out_name: tas -type: real -!---------------------------------- -! - -!============ -variable_entry: ts -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_temperature -units: K -cell_methods: time: point -cell_measures: area: areacello volume: volcello -long_name: Surface Temperature -comment: ""skin"" temperature (i.e., SST for open ocean) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: ts -type: real -!---------------------------------- -! - -!============ -variable_entry: tasmin -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_temperature -units: K -cell_methods: time: minimum within days time: point over days -long_name: Daily Minimum Near-Surface Air Temperature -comment: monthly mean of the daily-minimum near-surface (usually, 2 meter) air temperature. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height2m -out_name: tasmin -type: real -!---------------------------------- -! - -!============ -variable_entry: tasmax -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_temperature -units: K -cell_methods: time: maximum within days time: point over days -long_name: Daily Maximum Near-Surface Air Temperature -comment: monthly mean of the daily-maximum near-surface (usually, 2 meter) air temperature. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height2m -out_name: tasmax -type: real -!---------------------------------- -! - -!============ -variable_entry: psl -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_sea_level -units: Pa -cell_methods: time: point -long_name: Sea Level Pressure -comment: not, in general, the same as surface pressure -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: psl -type: real -!---------------------------------- -! - -!============ -variable_entry: ps -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_air_pressure -units: Pa -cell_methods: time: point -long_name: Surface Air Pressure -comment: not, in general, the same as mean sea-level pressure -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: ps -type: real -!---------------------------------- -! - -!============ -variable_entry: uas -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: eastward_wind -units: m s-1 -cell_methods: time: point -long_name: Eastward Near-Surface Wind Speed -comment: near-surface (usually, 10 meters) eastward component of wind. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height10m -out_name: uas -type: real -!---------------------------------- -! - -!============ -variable_entry: vas -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: northward_wind -units: m s-1 -cell_methods: time: point -long_name: Northward Near-Surface Wind Speed -comment: near-surface (usually, 10 meters) northward component of wind. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height10m -out_name: vas -type: real -!---------------------------------- -! - -!============ -variable_entry: sfcWind -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: wind_speed -units: m s-1 -cell_methods: time: point -long_name: Near-Surface Wind Speed -comment: near-surface (usually, 10 meters) wind speed. This is the mean of the speed, not the speed computed from the mean u and v components of wind -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height10m -out_name: sfcWind -type: real -!---------------------------------- -! - -!============ -variable_entry: hurs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: relative_humidity -units: % -cell_methods: time: point -long_name: Near-Surface Relative Humidity -comment: near-surface (usually, 2meters) relative humidity expressed as a percentage. This is the relative humidity with respect to liquid water for T> 0 C, and with respect to ice for T<0 C. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height2m -out_name: hurs -type: real -!---------------------------------- -! - -!============ -variable_entry: huss -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: specific_humidity -units: 1 -cell_methods: time: point -long_name: Near-Surface Specific Humidity -comment: near-surface (usually, 2 meters) specific humidity. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 height2m -out_name: huss -type: real -!---------------------------------- -! - -!============ -variable_entry: pr -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: precipitation_flux -units: kg m-2 s-1 -cell_methods: time: point -long_name: Precipitation -comment: at surface; includes both liquid and solid phases from all types of clouds (both large-scale and convective) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: pr -type: real -!---------------------------------- -! - -!============ -variable_entry: prsn -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: snowfall_flux -units: kg m-2 s-1 -cell_methods: time: point -long_name: Snowfall Flux -comment: at surface; includes precipitation of all forms of water in the solid phase -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: prsn -type: real -!---------------------------------- -! - -!============ -variable_entry: prc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_precipitation_flux -units: kg m-2 s-1 -cell_methods: time: point -long_name: Convective Precipitation -comment: at surface; includes both liquid and solid phases. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: prc -type: real -!---------------------------------- -! - -!============ -variable_entry: evspsbl -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: water_evaporation_flux -units: kg m-2 s-1 -cell_methods: time: point -long_name: Evaporation -comment: at surface; flux of water into the atmosphere due to conversion of both liquid and solid phases to vapor (from underlying surface and vegetation) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: evspsbl -type: real -!---------------------------------- -! - -!============ -variable_entry: sbl -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: water_sublimation_flux -units: kg m-2 s-1 -cell_methods: time: point -long_name: Surface Snow and Ice Sublimation Flux -comment: The snow and ice sublimation flux is the loss of snow and ice mass from the surface resulting from their conversion to water vapor that enters the atmosphere. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: sbl -type: real -!---------------------------------- -! - -!============ -variable_entry: tauu -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downward_eastward_stress -units: Pa -cell_methods: time: point -long_name: Surface Downward Eastward Wind Stress -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tauu -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: tauv -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downward_northward_stress -units: Pa -cell_methods: time: point -long_name: Surface Downward Northward Wind Stress -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tauv -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: hfls -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upward_latent_heat_flux -units: W m-2 -cell_methods: time: point -long_name: Surface Upward Latent Heat Flux -comment: includes both evaporation and sublimation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: hfls -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: hfss -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upward_sensible_heat_flux -units: W m-2 -cell_methods: time: point -long_name: Surface Upward Sensible Heat Flux -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: hfss -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rlds -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downwelling_longwave_flux_in_air -units: W m-2 -cell_methods: time: point -long_name: Surface Downwelling Longwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rlds -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: rlus -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upwelling_longwave_flux_in_air -units: W m-2 -cell_methods: time: point -long_name: Surface Upwelling Longwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rlus -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rsds -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downwelling_shortwave_flux_in_air -units: W m-2 -cell_methods: time: point -long_name: Surface Downwelling Shortwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsds -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: rsus -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upwelling_shortwave_flux_in_air -units: W m-2 -cell_methods: time: point -long_name: Surface Upwelling Shortwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsus -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rsdscs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downwelling_shortwave_flux_in_air_assuming_clear_sky -units: W m-2 -cell_methods: time: point -long_name: Surface Downwelling Clear-Sky Shortwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsdscs -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: rsuscs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_upwelling_shortwave_flux_in_air_assuming_clear_sky -units: W m-2 -cell_methods: time: point -long_name: Surface Upwelling Clear-Sky Shortwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsuscs -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rldscs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: surface_downwelling_longwave_flux_in_air_assuming_clear_sky -units: W m-2 -cell_methods: time: point -long_name: Surface Downwelling Clear-Sky Longwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rldscs -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: rsdt -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_incoming_shortwave_flux -units: W m-2 -cell_methods: time: point -long_name: TOA Incident Shortwave Radiation -comment: incident shortwave at the top of the atmosphere -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsdt -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: rsut -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_outgoing_shortwave_flux -units: W m-2 -cell_methods: time: point -long_name: TOA Outgoing Shortwave Radiation -comment: at the top of the atmosphere -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsut -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rlut -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_outgoing_longwave_flux -units: W m-2 -cell_methods: time: point -long_name: TOA Outgoing Longwave Radiation -comment: at the top of the atmosphere (to be compared with satellite measurements) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rlut -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rlutcs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_outgoing_longwave_flux_assuming_clear_sky -units: W m-2 -cell_methods: time: point -long_name: TOA Outgoing Clear-Sky Longwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rlutcs -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: rsutcs -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: toa_outgoing_shortwave_flux_assuming_clear_sky -units: W m-2 -cell_methods: time: point -long_name: TOA Outgoing Clear-Sky Shortwave Radiation -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rsutcs -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: prw -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_water_vapor_content -units: kg m-2 -cell_methods: time: point -long_name: Water Vapor Path -comment: vertically integrated through the atmospheric column -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: prw -type: real -!---------------------------------- -! - -!============ -variable_entry: clt -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -cell_methods: time: point -long_name: Total Cloud Fraction -comment: for the whole atmospheric column, as seen from the surface or the top of the atmosphere. Include both large-scale and convective cloud. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: clt -type: real -!---------------------------------- -! - -!============ -variable_entry: clwvi -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_cloud_condensed_water_content -units: kg m-2 -cell_methods: time: point -long_name: Condensed Water Path -comment: calculate mass of condensed (liquid + ice) water in the column divided by the area of the column (not just the area of the cloudy portion of the column). Include precipitating hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: clwvi -type: real -!---------------------------------- -! - -!============ -variable_entry: clivi -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_cloud_ice_content -units: kg m-2 -cell_methods: time: point -long_name: Ice Water Path -comment: calculate mass of ice water in the column divided by the area of the column (not just the area of the cloudy portion of the column). Include precipitating frozen hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: clivi -type: real -!---------------------------------- -! - -!============ -variable_entry: rtmt -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: net_downward_radiative_flux_at_top_of_atmosphere_model -units: W m-2 -cell_methods: time: point -long_name: Net Downward Flux at Top of Model -comment: i.e., at the top of that portion of the atmosphere where dynamics are explicitly treated by the model. Report only if this differs from the net downward radiative flux at the top of the atmosphere. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: rtmt -type: real -positive: down -!---------------------------------- -! - -!============ -variable_entry: ccb -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_convective_cloud_base -units: Pa -cell_methods: time: point -long_name: Air Pressure at Convective Cloud Base -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: ccb -type: real -!---------------------------------- -! - -!============ -variable_entry: cct -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_convective_cloud_top -units: Pa -cell_methods: time: point -long_name: Air Pressure at Convective Cloud Top -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: cct -type: real -!---------------------------------- -! - -!============ -variable_entry: ci -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -units: 1 -cell_methods: time: point -long_name: Fraction of Time Convection Occurs -comment: Fraction of time that convection occurs in the grid cell . -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: ci -type: real -!---------------------------------- -! - -!============ -variable_entry: sci -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -units: 1 -cell_methods: time: point -long_name: Fraction of Time Shallow Convection Occurs -comment: Fraction of time that shallow convection occurs in the grid cell. ( For models with a distinct shallow convection scheme only) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: sci -type: real -!---------------------------------- -! - -!============ -variable_entry: fco2antt -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -units: kg m-2 s-1 -cell_methods: time: point -long_name: Carbon Mass Flux into Atmosphere Due to All Anthropogenic Emissions of CO2 -comment: This is requested only for the emission-driven coupled carbon climate model runs. Do not include natural fire sources, but include all anthropogenic sources, including fossil fuel use, cement production, agricultural burning, and sources associated with anthropogenic land use change excluding forest regrowth. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: fco2antt -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: fco2fos -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -units: kg m-2 s-1 -cell_methods: time: point -long_name: Carbon Mass Flux into Atmosphere Due to Fossil Fuel Emissions of CO2 -comment: This is requested only for the emission-driven coupled carbon climate model runs. Report the prescribed anthropogenic CO2 flux from fossil fuel use, including cement production, and flaring (but not from land-use changes, agricultural burning, forest regrowth, etc.) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: fco2fos -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: fco2nat -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -units: kg m-2 s-1 -cell_methods: time: point -long_name: Surface Carbon Mass Flux into the Atmosphere Due to Natural Sources -comment: Report from all simulations (both emission-driven and concentration-driven) performed by models with fully interactive and responsive carbon cycles. This is what the atmosphere sees (on its own grid). This field should be equivalent to the combined natural fluxes of carbon (requested in the L_mon and O_mon tables) that account for natural exchanges between the atmosphere and land or ocean reservoirs (i.e., ""net ecosystem biospheric productivity"", for land, and ""air to sea CO2 flux"", for ocean.) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: fco2nat -type: real -positive: up -!---------------------------------- -! - -!============ -variable_entry: cltc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_cloud_area_fraction -units: % -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Cloud Fraction -comment: for the whole atmospheric column, as seen from the surface or the top of the atmosphere. Include only convective cloud. Besides the quantities from the Amon table, this is the only other 2-D field in this table. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: cltc -type: real -valid_min: 0 -valid_max: 100 -!---------------------------------- -! - -!============ -variable_entry: zfull -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: height_above_reference_ellipsoid -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Altitude of Model Full-Levels -comment: This is actual height above mean sea level, not geopotential height -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: zfull -type: real -!---------------------------------- -! - -!============ -variable_entry: zhalf -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: height_above_reference_ellipsoid -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Altitude of Model Half-Levels -comment: This is actual height above mean sea level, not geopotential height. This is actual height above mean sea level, not geopotential height. Include both the top of the model atmosphere and surface levels. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevhalf time1 -out_name: zhalf -type: real -!---------------------------------- -! - -!============ -variable_entry: pfull -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -cell_methods: time: point -cell_measures: area: areacella -long_name: Pressure at Model Full-Levels -comment: provide this field for models in which the pressure can't be calculated from the vertical coordinate information stored already for each variable. Thus, the pressures are needed for height or theta-coordinate models, for example, but not sigma- or eta-coordinate models. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: pfull -type: real -!---------------------------------- -! - -!============ -variable_entry: phalf -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure -units: Pa -cell_methods: time: point -cell_measures: area: areacella -long_name: Pressure at Model Half-Levels -comment: provide this field for models in which the pressure can't be calculated from the vertical coordinate information stored already for each variable. Thus, the pressures are needed for height or theta-coordinate models, for example, but not sigma- or eta-coordinate models. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevhalf time1 -out_name: phalf -type: real -!---------------------------------- -! - -!============ -variable_entry: ta -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_temperature -units: K -cell_methods: time: point -cell_measures: area: areacella -long_name: Air Temperature -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: ta -type: real -!---------------------------------- -! - -!============ -variable_entry: h2o -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: mass_fraction_of_water_in_air -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Mass Fraction of Water -comment: include all phases of water -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: h2o -type: real -!---------------------------------- -! - -!============ -variable_entry: clws -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: mass_fraction_of_stratiform_cloud_liquid_water_in_air -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Mass Fraction of Stratiform Cloud Liquid Water -comment: Calculate as the mass of stratiform cloud liquid water in the grid cell divided by the mass of air (including the water in all phases) in the grid cell. Include precipitating hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: clws -type: real -!---------------------------------- -! - -!============ -variable_entry: clis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: mass_fraction_of_stratiform_cloud_ice_in_air -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Mass Fraction of Stratiform Cloud Ice -comment: Calculate as the mass of stratiform cloud ice in the grid cell divided by the mass of air (including the water in all phases) in the grid cell. Include precipitating hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: clis -type: real -!---------------------------------- -! - -!============ -variable_entry: clis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: mass_fraction_of_convective_cloud_liquid_water_in_air -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Mass Fraction of Convective Cloud Liquid Water -comment: Calculate as the mass of convective cloud liquid water in the grid cell divided by the mass of air (including the water in all phases) in the grid cell. Include precipitating hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: clwc -type: real -!---------------------------------- -! - -!============ -variable_entry: clic -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: mass_fraction_of_convective_cloud_ice_in_air -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Mass Fraction of Convective Cloud Ice -comment: Calculate as the mass of convective cloud ice in the grid cell divided by the mass of air (including the water in all phases) in the grid cell. Include precipitating hydrometeors ONLY if the precipitating hydrometeor affects the calculation of radiative transfer in model. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: clic -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclws -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_stratiform_cloud_liquid_water_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Stratiform Cloud Liquid Water -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffclws -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_stratiform_cloud_ice_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Stratiform Cloud Ice -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffclis -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclwc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_convective_cloud_liquid_water_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Convective Cloud Liquid Water -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffclwc -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclic -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_convective_cloud_ice_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Convective Cloud Ice -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffclic -type: real -!---------------------------------- -! - -!============ -variable_entry: grpllsprof -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: large_scale_graupel_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Graupel Flux -comment: report on model half-levels -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: grpllsprof -type: real -!---------------------------------- -! - -!============ -variable_entry: prcprof -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_rainfall_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Rainfall Flux -comment: report on model half-levels -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: prcprof -type: real -!---------------------------------- -! - -!============ -variable_entry: prlsprof -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: large_scale_rainfall_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Rainfall Flux -comment: report on model half-levels -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: prlsprof -type: real -!---------------------------------- -! - -!============ -variable_entry: prsnc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_snowfall_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Snowfall Flux -comment: report on model half-levels -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: prsnc -type: real -!---------------------------------- -! - -!============ -variable_entry: prlsns -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: large_scale_snowfall_flux -units: kg m-2 s-1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Snowfall Flux -comment: report on model half-levels -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: prlsns -type: real -!---------------------------------- -! - -!============ -variable_entry: reffgrpls -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_stratiform_cloud_graupel_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Stratiform Graupel -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffgrpls -type: real -!---------------------------------- -! - -!============ -variable_entry: reffrainc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_convective_cloud_rain_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Convective Rainfall -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffrainc -type: real -!---------------------------------- -! - -!============ -variable_entry: reffrains -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_stratiform_cloud_rain_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Stratiform Rainfall -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffrains -type: real -!---------------------------------- -! - -!============ -variable_entry: reffsnowc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_convective_cloud_snow_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Convective Snowfall -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffsnowc -type: real -!---------------------------------- -! - -!============ -variable_entry: reffsnows -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_stratiform_cloud_snow_particle -units: m -cell_methods: time: point -cell_measures: area: areacella -long_name: Hydrometeor Effective Radius of Stratiform Snowfall -comment: This is defined as the in-cloud ratio of the third moment over the second moment of the particle size distribution (obtained by considering only the cloudy portion of the grid cell). -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: reffsnows -type: real -!---------------------------------- -! - -!============ -variable_entry: dtaus -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_stratiform_cloud -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Cloud Optical Depth -comment: This is the in-cloud optical depth obtained by considering only the cloudy portion of the grid cell. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: dtaus -type: real -!---------------------------------- -! - -!============ -variable_entry: dtauc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_convective_cloud -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Cloud Optical Depth -comment: This is the in-cloud optical depth obtained by considering only the cloudy portion of the grid cell -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: dtauc -type: real -!---------------------------------- -! - -!============ -variable_entry: dems -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: stratiform_cloud_longwave_emissivity -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Stratiform Cloud Emissivity -comment: This is the in-cloud emissivity obtained by considering only the cloudy portion of the grid cell. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: dems -type: real -!---------------------------------- -! - -!============ -variable_entry: demc -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: convective_cloud_longwave_emissivity -units: 1 -cell_methods: time: point -cell_measures: area: areacella -long_name: Convective Cloud Emissivity -comment: This is the in-cloud emissivity obtained by considering only the cloudy portion of the grid cell. -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -out_name: demc -type: real -!---------------------------------- -! - -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -! COSP-only variables, not requested by CMIP5 in this table. Some of them have been copied -! from other tables: -! cfDa: cltisccp,albisccp,pctisccp -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- -!---------------------------------------------------------------------------------------- - - -!============ -variable_entry: clisccp -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: ISSCP Cloud Area Fraction -comment: 7 levels x 7 tau -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude tau plev7 time1 -out_name: clisccp -type: real -!---------------------------------- -! - -!============ -variable_entry: cltisccp -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -long_name: ISSCP Total Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: cltisccp -type: real -!---------------------------------- -! - -!============ -variable_entry: albisccp -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_albedo -units: 1 -long_name: ISSCP Mean Cloud Albedo -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: albisccp -type: real -!---------------------------------- -! - -!============ -variable_entry: pctisccp -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_cloud_top -units: Pa -long_name: ISSCP Mean Cloud Top Pressure -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: pctisccp -type: real -!---------------------------------- -! - -!============ -variable_entry: cltlidarradar -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -long_name: Lidar and Radar Total Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: cltlidarradar -type: real -!---------------------------------- -! - -!============ -variable_entry: tauisccp -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: Mean Optical Depth as Calculated by the ISCCP Simulator -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tauisccp -type: real -!---------------------------------- -! - -! -!============ -variable_entry: boxptopisccp -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_cloud_top -units: Pa -long_name: Cloud Top Pressure in Each Column as Calculated by the ISCCP Simulator -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude column time1 -!---------------------------------- -! - - -! -!============ -variable_entry: boxtauisccp -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: Optical Depth in Each Column as Calculated by the ISCCP Simulator -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude column time1 -!---------------------------------- -! - -! -!============ -variable_entry: meantbisccp -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: toa_brightness_temperature -units: K -long_name: Mean all-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -!---------------------------------- -! -! -! -!============ -variable_entry: meantbclrisccp -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: toa_brightness_temperature_assuming_clear_sky -units: K -long_name: Mean clear-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -!---------------------------------- -! -! - -!============ -variable_entry: lidarBetaMol532 -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: volume_attenuated_backwards_scattering_function_in_air_assuming_no_aerosol_or_cloud -units: m-1 sr-1 -long_name: Lidar Molecular Backscatter (532 nm) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude alevel time1 -!---------------------------------- -! - -! -!============ -variable_entry: dbze94 -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: equivalent_reflectivity_factor -units: 1 -long_name: CloudSat Radar Reflectivity -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude column alevel time1 -!---------------------------------- - -!============ -variable_entry: atb532 -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: volume_attenuated_backwards_scattering_function_in_air -units: m-1 sr-1 -long_name: Lidar Attenuated Total Backscatter (532 nm) -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude column alevel time1 -!---------------------------------- -! - -! -!============ -variable_entry: fracout -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: frac_out -units: 1 -long_name: Subcolumn output from SCOPS -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude column alevel time1 -!---------------------------------- -! - -! -!============ -variable_entry: clMISR -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: Cloud Fraction as Calculated by the MISR Simulator -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude cth16 tau time1 -valid_min: 0.0 -valid_max: 100.0001 -ok_min_mean_abs: 0.001 -ok_max_mean_abs: 90.0 -!---------------------------------- - - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!MODIS outputs -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -!============ -variable_entry: cltmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -long_name: MODIS Total Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: cltmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: clwmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -long_name: MODIS Liquid Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: clwmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: climodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction -units: % -long_name: MODIS Ice Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: climodis -type: real -!---------------------------------- -! - -!============ -variable_entry: clhmodis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: MODIS High Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: clhmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: clmmodis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: MODIS Mid Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: clmmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: cllmodis -!============ -modeling_realm: atmos -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: MODIS Low Level Cloud Fraction -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: cllmodis -type: real -!---------------------------------- -! - - -!============ -variable_entry: tautmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Total Cloud Optical Thickness -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tautmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tauwmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Liquid Cloud Optical Thickness -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tauwmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tauimodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Ice Cloud Optical Thickness -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tauimodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tautlogmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Total Cloud Optical Thickness (Log10 Mean) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tautlogmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tauwlogmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Liquid Cloud Optical Thickness (Log10 Mean) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tauwlogmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tauilogmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_optical_thickness_due_to_cloud -units: 1 -long_name: MODIS Ice Cloud Optical Thickness (Log10 Mean) -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: tauilogmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclwmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_cloud_liquid_particle -units: m -long_name: MODIS Liquid Cloud Particle Size -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: reffclwmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: reffclimodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: effective_radius_of_cloud_liquid_particle -units: m -long_name: MODIS Ice Cloud Particle Size -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: reffclimodis -type: real -!---------------------------------- -! - -!============ -variable_entry: pctmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: air_pressure_at_cloud_top -units: Pa -long_name: MODIS Cloud Top Pressure -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: pctmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: lwpmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_cloud_liquid_water_content -units: kg m-2 -long_name: MODIS Cloud Liquid Water Path -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: lwpmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: iwpmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: atmosphere_cloud_ice_water_content -units: kg m-2 -long_name: MODIS Cloud Ice Water Path -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude time1 -out_name: iwpmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: clmodis -!============ -modeling_realm: atmos - -!---------------------------------- -! Variable attributes: -!---------------------------------- -standard_name: cloud_area_fraction_in_atmosphere_layer -units: % -long_name: MODIS Cloud Area Fraction -comment: 7 levels x 7 tau -!---------------------------------- -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude tau plev7 time1 -out_name: clmodis -type: real -!---------------------------------- -! - -!============ -variable_entry: tbrttov -!============ -! -! Variable attributes: -!---------------------------------- -standard_name: toa_brightness_temperature -units: K -long_name: Mean clear-sky brightness temperature as calculated by RTTOV -!---------------------------------- -! -! Additional variable information: -!---------------------------------- -dimensions: longitude latitude channel time1 -!---------------------------------- -! diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/cosp_output_cmor_nl.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/cosp_output_cmor_nl.txt deleted file mode 100644 index ac3c3356c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/cosp_output_cmor_nl.txt +++ /dev/null @@ -1,15 +0,0 @@ -&CMOR - INPATH = './cmor', - OUTPATH = './outputs', - EXPERIMENT_ID = 'Global forecast model', - INSTITUTION = 'Met Office (Exeter, Devon, EX1 3PB, UK)', - SOURCE = 'MetUM N320L50 vn6.1', - CALENDAR = 'none', - REALIZATION = 1, - CONTACT = 'alejandro.bodas@metoffice.gov.uk', - HISTORY = 'history', - COMMENT = 'comment', - REFERENCES = 'references', - TABLE = 'COSP_table_2D', - MAXTSTEPS = 1000 -/ diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/congvec.f b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/congvec.f deleted file mode 100644 index f8c80194e..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/congvec.f +++ /dev/null @@ -1,54 +0,0 @@ - -! *****************************COPYRIGHT**************************** -! (c) British Crown Copyright 2009, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the -! following conditions are met: -! -! * Redistributions of source code must retain the above -! copyright notice, this list of conditions and the following -! disclaimer. -! * Redistributions in binary form must reproduce the above -! copyright notice, this list of conditions and the following -! disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its -! contributors may be used to endorse or promote products -! derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -! OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -! LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -! THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE -! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -! -! *****************************COPYRIGHT******************************* -! *****************************COPYRIGHT******************************* - - do irand = 1, npoints - ! Marsaglia CONG algorithm - seed(irand)=69069*seed(irand)+1234567 - ! mod 32 bit overflow - seed(irand)=mod(seed(irand),2**30) - ran(irand)=seed(irand)*0.931322574615479E-09 - enddo - - ! convert to range 0-1 (32 bit only) - overflow_32=i2_16*i2_16 - if ( overflow_32 .le. huge32 ) then - do irand = 1, npoints - ran(irand)=ran(irand)+1 - ran(irand)=(ran(irand))-int(ran(irand)) - enddo - endif - - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp.F90 deleted file mode 100644 index 99d15508c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp.F90 +++ /dev/null @@ -1,578 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -#include "cosp_defs.h" -MODULE MOD_COSP - USE MOD_COSP_TYPES - USE MOD_COSP_SIMULATOR - USE MOD_COSP_MODIS_SIMULATOR - IMPLICIT NONE - -CONTAINS - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!--------------------- SUBROUTINE COSP --------------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -#ifdef RTTOV -SUBROUTINE COSP(overlap,Ncolumns,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar) -#else -SUBROUTINE COSP(overlap,Ncolumns,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,stradar,stlidar) -#endif - ! Arguments - integer,intent(in) :: overlap ! overlap type in SCOPS: 1=max, 2=rand, 3=max/rand - integer,intent(in) :: Ncolumns - type(cosp_config),intent(in) :: cfg ! Configuration options - type(cosp_vgrid),intent(in) :: vgrid ! Information on vertical grid of stats - type(cosp_gridbox),intent(inout) :: gbx - type(cosp_subgrid),intent(inout) :: sgx ! Subgrid info - type(cosp_sgradar),intent(inout) :: sgradar ! Output from radar simulator - type(cosp_sglidar),intent(inout) :: sglidar ! Output from lidar simulator - type(cosp_isccp),intent(inout) :: isccp ! Output from ISCCP simulator - type(cosp_misr),intent(inout) :: misr ! Output from MISR simulator - type(cosp_modis),intent(inout) :: modis ! Output from MODIS simulator -#ifdef RTTOV - type(cosp_rttov),intent(inout) :: rttov ! Output from RTTOV -#endif - type(cosp_radarstats),intent(inout) :: stradar ! Summary statistics from radar simulator - type(cosp_lidarstats),intent(inout) :: stlidar ! Summary statistics from lidar simulator - - ! Local variables - integer :: Npoints ! Number of gridpoints - integer :: Nlevels ! Number of levels - integer :: Nhydro ! Number of hydrometeors - integer :: Niter ! Number of calls to cosp_simulator - integer :: i_first,i_last ! First and last gridbox to be processed in each iteration - integer :: i,Ni - integer,dimension(2) :: ix,iy - logical :: reff_zero - real :: maxp,minp - integer,dimension(:),allocatable :: & ! Dimensions nPoints - seed ! It is recommended that the seed is set to a different value for each model - ! gridbox it is called on, as it is possible that the choice of the same - ! seed value every time may introduce some statistical bias in the results, - ! particularly for low values of NCOL. - ! Types used in one iteration - type(cosp_gridbox) :: gbx_it - type(cosp_subgrid) :: sgx_it - type(cosp_vgrid) :: vgrid_it - type(cosp_sgradar) :: sgradar_it - type(cosp_sglidar) :: sglidar_it - type(cosp_isccp) :: isccp_it - type(cosp_modis) :: modis_it - type(cosp_misr) :: misr_it -#ifdef RTTOV - type(cosp_rttov) :: rttov_it -#endif - type(cosp_radarstats) :: stradar_it - type(cosp_lidarstats) :: stlidar_it - - !++++++++++ Dimensions ++++++++++++ - Npoints = gbx%Npoints - Nlevels = gbx%Nlevels - Nhydro = gbx%Nhydro - -!++++++++++ Apply sanity checks to inputs ++++++++++ - call cosp_check_input('longitude',gbx%longitude,min_val=0.0,max_val=360.0) - call cosp_check_input('latitude',gbx%latitude,min_val=-90.0,max_val=90.0) - call cosp_check_input('dlev',gbx%dlev,min_val=0.0) - call cosp_check_input('p',gbx%p,min_val=0.0) - call cosp_check_input('ph',gbx%ph,min_val=0.0) - call cosp_check_input('T',gbx%T,min_val=0.0) - call cosp_check_input('q',gbx%q,min_val=0.0) - call cosp_check_input('sh',gbx%sh,min_val=0.0) - call cosp_check_input('dtau_s',gbx%dtau_s,min_val=0.0) - call cosp_check_input('dtau_c',gbx%dtau_c,min_val=0.0) - call cosp_check_input('dem_s',gbx%dem_s,min_val=0.0,max_val=1.0) - call cosp_check_input('dem_c',gbx%dem_c,min_val=0.0,max_val=1.0) - ! Point information (Npoints) - call cosp_check_input('land',gbx%land,min_val=0.0,max_val=1.0) - call cosp_check_input('psfc',gbx%psfc,min_val=0.0) - call cosp_check_input('sunlit',gbx%sunlit,min_val=0.0,max_val=1.0) - call cosp_check_input('skt',gbx%skt,min_val=0.0) - ! TOTAL and CONV cloud fraction for SCOPS - call cosp_check_input('tca',gbx%tca,min_val=0.0,max_val=1.0) - call cosp_check_input('cca',gbx%cca,min_val=0.0,max_val=1.0) - ! Precipitation fluxes on model levels - call cosp_check_input('rain_ls',gbx%rain_ls,min_val=0.0) - call cosp_check_input('rain_cv',gbx%rain_cv,min_val=0.0) - call cosp_check_input('snow_ls',gbx%snow_ls,min_val=0.0) - call cosp_check_input('snow_cv',gbx%snow_cv,min_val=0.0) - call cosp_check_input('grpl_ls',gbx%grpl_ls,min_val=0.0) - ! Hydrometeors concentration and distribution parameters - call cosp_check_input('mr_hydro',gbx%mr_hydro,min_val=0.0) - ! Effective radius [m]. (Npoints,Nlevels,Nhydro) - call cosp_check_input('Reff',gbx%Reff,min_val=0.0) - reff_zero=.true. - if (any(gbx%Reff > 1.e-8)) then - reff_zero=.false. - ! reff_zero == .false. - ! and gbx%use_reff == .true. Reff use in radar and lidar - ! and reff_zero == .false. Reff use in lidar and set to 0 for radar - endif - if ((.not. gbx%use_reff) .and. (reff_zero)) then ! No Reff in radar. Default in lidar - gbx%Reff = DEFAULT_LIDAR_REFF - print *, '---------- COSP WARNING ------------' - print *, '' - print *, 'Using default Reff in lidar simulations' - print *, '' - print *, '----------------------------------' - endif - - ! Aerosols concentration and distribution parameters - call cosp_check_input('conc_aero',gbx%conc_aero,min_val=0.0) - ! Checks for CRM mode - if (Ncolumns == 1) then - if (gbx%use_precipitation_fluxes) then - print *, '---------- COSP ERROR ------------' - print *, '' - print *, 'Use of precipitation fluxes not supported in CRM mode (Ncolumns=1)' - print *, '' - print *, '----------------------------------' - stop - endif - if ((maxval(gbx%dtau_c) > 0.0).or.(maxval(gbx%dem_c) > 0.0)) then - print *, '---------- COSP ERROR ------------' - print *, '' - print *, ' dtau_c > 0.0 or dem_c > 0.0. In CRM mode (Ncolumns=1), ' - print *, ' the optical depth (emmisivity) of all clouds must be ' - print *, ' passed through dtau_s (dem_s)' - print *, '' - print *, '----------------------------------' - stop - endif - endif - - ! We base the seed in the decimal part of the surface pressure. - allocate(seed(Npoints)) - seed = int(gbx%psfc) ! This is to avoid division by zero when Npoints = 1 - ! Roj Oct/2008 ... Note: seed value of 0 caused me some problems + I want to - ! randomize for each call to COSP even when Npoints ==1 - minp = minval(gbx%psfc) - maxp = maxval(gbx%psfc) - if (Npoints .gt. 1) seed=int((gbx%psfc-minp)/(maxp-minp)*100000) + 1 - ! Below it's how it was done in the original implementation of the ISCCP simulator. - ! The one above is better for offline data, when you may have packed data - ! that subsamples the decimal fraction of the surface pressure. -! if (Npoints .gt. 1) seed=(gbx%psfc-int(gbx%psfc))*1000000 - - - if (gbx%Npoints_it >= gbx%Npoints) then ! One iteration gbx%Npoints -#ifdef RTTOV - call cosp_iter(overlap,seed,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar) -#else - call cosp_iter(overlap,seed,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,stradar,stlidar) -#endif - else ! Several iterations to save memory - Niter = gbx%Npoints/gbx%Npoints_it ! Integer division - if (Niter*gbx%Npoints_it < gbx%Npoints) Niter = Niter + 1 - do i=1,Niter - i_first = (i-1)*gbx%Npoints_it + 1 - i_last = i_first + gbx%Npoints_it - 1 - i_last = min(i_last,gbx%Npoints) - Ni = i_last - i_first + 1 - if (i == 1) then - ! Allocate types for all but last iteration - call construct_cosp_gridbox(gbx%time,gbx%time_bnds,gbx%radar_freq,gbx%surface_radar,gbx%use_mie_tables, & - gbx%use_gas_abs,gbx%do_ray,gbx%melt_lay,gbx%k2,Ni,Nlevels, & - Ncolumns,N_HYDRO,gbx%Nprmts_max_hydro, & - gbx%Naero,gbx%Nprmts_max_aero,Ni,gbx%lidar_ice_type,gbx%isccp_top_height, & - gbx%isccp_top_height_direction,gbx%isccp_overlap,gbx%isccp_emsfc_lw, & - gbx%use_precipitation_fluxes,gbx%use_reff, & - gbx%plat,gbx%sat,gbx%inst,gbx%nchan,gbx%ZenAng, & - gbx%Ichan(1:gbx%nchan),gbx%surfem(1:gbx%nchan), & - gbx%co2,gbx%ch4,gbx%n2o,gbx%co, & - gbx_it) - - ! vgrid is use for lidar and radar simulation stats, but only if the stats are on - ! a different grid from the model. So mostly dummy params get passed` - call construct_cosp_vgrid(gbx_it,0,.false.,.false.,vgrid_it) - - call construct_cosp_subgrid(Ni, Ncolumns, Nlevels, sgx_it) - if (cfg%Lradar_sim) call construct_cosp_sgradar(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,sgradar_it) - if (cfg%Llidar_sim) call construct_cosp_sglidar(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,PARASOL_NREFL,sglidar_it) - if (cfg%Lisccp_sim) call construct_cosp_isccp(cfg,Ni,Ncolumns,Nlevels,isccp_it) - if (cfg%Lmodis_sim) call construct_cosp_modis(cfg, Ni, modis_it) - if (cfg%Lmisr_sim ) call construct_cosp_misr(cfg,Ni,misr_it) -#ifdef RTTOV - if (cfg%Lradar_sim) call construct_cosp_rttov(Ni,gbx%nchan,rttov_it) -#endif - ! MAT These are constructed as they are in the Satsim GC - if (cfg%Lradar_sim) call construct_cosp_radarstats(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,stradar_it) - if (cfg%Llidar_sim) call construct_cosp_lidarstats(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,PARASOL_NREFL,stlidar_it) - elseif (i == Niter) then ! last iteration - call free_cosp_gridbox(gbx_it,.true.) - call free_cosp_subgrid(sgx_it) - call free_cosp_vgrid(vgrid_it) - if (cfg%Lradar_sim) call free_cosp_sgradar(sgradar_it) - if (cfg%Llidar_sim) call free_cosp_sglidar(sglidar_it) - if (cfg%Lisccp_sim) call free_cosp_isccp(isccp_it) - if (cfg%Lmodis_sim) call free_cosp_modis(modis_it) - if (cfg%Lmisr_sim ) call free_cosp_misr(misr_it) -#ifdef RTTOV - if (cfg%Lrttov_sim) call free_cosp_rttov(rttov_it) -#endif - if (cfg%Lradar_sim) call free_cosp_radarstats(stradar_it) - if (cfg%Llidar_sim) call free_cosp_lidarstats(stlidar_it) - ! Allocate types for iterations - call construct_cosp_gridbox(gbx%time,gbx%time_bnds,gbx%radar_freq,gbx%surface_radar,gbx%use_mie_tables, & - gbx%use_gas_abs,gbx%do_ray,gbx%melt_lay,gbx%k2,Ni,Nlevels, & - Ncolumns,N_HYDRO,gbx%Nprmts_max_hydro, & - gbx%Naero,gbx%Nprmts_max_aero,Ni,gbx%lidar_ice_type,gbx%isccp_top_height, & - gbx%isccp_top_height_direction,gbx%isccp_overlap,gbx%isccp_emsfc_lw, & - gbx%use_precipitation_fluxes,gbx%use_reff, & - gbx%plat,gbx%sat,gbx%inst,gbx%nchan,gbx%ZenAng, & - gbx%Ichan(1:gbx%nchan),gbx%surfem(1:gbx%nchan), & - gbx%co2,gbx%ch4,gbx%n2o,gbx%co, & - gbx_it) - ! --- Copy arrays without Npoints as dimension --- - gbx_it%dist_prmts_hydro = gbx%dist_prmts_hydro - gbx_it%dist_type_aero = gbx_it%dist_type_aero - - ! vgrid is use for lidar and radar simulation stats, but only if the stats are on - ! a different grid from the model. So mostly dummy params get passed` - call construct_cosp_vgrid(gbx_it,0,.false.,.false.,vgrid_it) - - call construct_cosp_subgrid(Ni, Ncolumns, Nlevels, sgx_it) - if (cfg%Lradar_sim) call construct_cosp_sgradar(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,sgradar_it) - if (cfg%Llidar_sim) call construct_cosp_sglidar(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,PARASOL_NREFL,sglidar_it) - if (cfg%Lisccp_sim) call construct_cosp_isccp(cfg,Ni,Ncolumns,Nlevels,isccp_it) - if (cfg%Lmodis_sim) call construct_cosp_modis(cfg,Ni, modis_it) - if (cfg%Lmisr_sim ) call construct_cosp_misr(cfg,Ni,misr_it) -#ifdef RTTOV - if (cfg%Lrttov_sim) call construct_cosp_rttov(Ni,gbx%nchan,rttov_it) -#endif - ! MAT These are constructed as they are in the Satsim GC - if (cfg%Lradar_sim) call construct_cosp_radarstats(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,stradar_it) - if (cfg%Llidar_sim) call construct_cosp_lidarstats(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,PARASOL_NREFL,stlidar_it) - endif - ! --- Copy sections of arrays with Npoints as dimension --- - ix=(/i_first,i_last/) - iy=(/1,Ni/) - call cosp_gridbox_cpsection(ix,iy,gbx,gbx_it) - ! These serve as initialisation of *_it types - call cosp_subgrid_cpsection(ix,iy,sgx,sgx_it) - if (cfg%Lradar_sim) call cosp_sgradar_cpsection(ix,iy,sgradar,sgradar_it) - if (cfg%Llidar_sim) call cosp_sglidar_cpsection(ix,iy,sglidar,sglidar_it) - if (cfg%Lisccp_sim) call cosp_isccp_cpsection(ix,iy,isccp,isccp_it) - if (cfg%Lmodis_sim) call cosp_modis_cpsection(ix,iy,modis,modis_it) - if (cfg%Lmisr_sim) call cosp_misr_cpsection(ix,iy,misr,misr_it) -#ifdef RTTOV - if (cfg%Lrttov_sim) call cosp_rttov_cpsection(ix,iy,rttov,rttov_it) -#endif - if (cfg%Lradar_sim) call cosp_radarstats_cpsection(ix,iy,stradar,stradar_it) - if (cfg%Llidar_sim) call cosp_lidarstats_cpsection(ix,iy,stlidar,stlidar_it) -! print *,'---------ix: ',ix -#ifdef RTTOV - call cosp_iter(overlap,seed(ix(1):ix(2)),cfg,vgrid_it,gbx_it,sgx_it,sgradar_it, & - sglidar_it,isccp_it,misr_it,modis_it,rttov_it,stradar_it,stlidar_it) -#else - call cosp_iter(overlap,seed(ix(1):ix(2)),cfg,vgrid_it,gbx_it,sgx_it,sgradar_it, & - sglidar_it,isccp_it,misr_it,modis_it,stradar_it,stlidar_it) -#endif - ! --- Copy results to output structures --- - ix=(/1,Ni/) - iy=(/i_first,i_last/) - call cosp_subgrid_cpsection(ix,iy,sgx_it,sgx) - if (cfg%Lradar_sim) call cosp_sgradar_cpsection(ix,iy,sgradar_it,sgradar) - if (cfg%Llidar_sim) call cosp_sglidar_cpsection(ix,iy,sglidar_it,sglidar) - if (cfg%Lisccp_sim) call cosp_isccp_cpsection(ix,iy,isccp_it,isccp) - if (cfg%Lmodis_sim) call cosp_modis_cpsection(ix,iy,modis_it,modis) - if (cfg%Lmisr_sim) call cosp_misr_cpsection(ix,iy,misr_it,misr) -#ifdef RTTOV - if (cfg%Lrttov_sim) call cosp_rttov_cpsection(ix,iy,rttov_it,rttov) -#endif - if (cfg%Lradar_sim) call cosp_radarstats_cpsection(ix,iy,stradar_it,stradar) - if (cfg%Llidar_sim) call cosp_lidarstats_cpsection(ix,iy,stlidar_it,stlidar) - enddo - ! Deallocate types - call free_cosp_gridbox(gbx_it,.true.) - call free_cosp_subgrid(sgx_it) - call free_cosp_vgrid(vgrid_it) - if (cfg%Lradar_sim) call free_cosp_sgradar(sgradar_it) - if (cfg%Llidar_sim) call free_cosp_sglidar(sglidar_it) - if (cfg%Lisccp_sim) call free_cosp_isccp(isccp_it) - if (cfg%Lmodis_sim) call free_cosp_modis(modis_it) - if (cfg%Lmisr_sim ) call free_cosp_misr(misr_it) -#ifdef RTTOV - if (cfg%Lrttov_sim) call free_cosp_rttov(rttov_it) -#endif - if (cfg%Lradar_sim) call free_cosp_radarstats(stradar_it) - if (cfg%Lradar_sim) call free_cosp_lidarstats(stlidar_it) - endif - deallocate(seed) - - -END SUBROUTINE COSP - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!--------------------- SUBROUTINE COSP_ITER ---------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -#ifdef RTTOV -SUBROUTINE COSP_ITER(overlap,seed,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar) -#else -SUBROUTINE COSP_ITER(overlap,seed,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,stradar,stlidar) -#endif - ! Arguments - integer,intent(in) :: overlap ! overlap type in SCOPS: 1=max, 2=rand, 3=max/rand - integer,dimension(:),intent(in) :: seed - type(cosp_config),intent(in) :: cfg ! Configuration options - type(cosp_vgrid),intent(in) :: vgrid ! Information on vertical grid of stats - type(cosp_gridbox),intent(inout) :: gbx - type(cosp_subgrid),intent(inout) :: sgx ! Subgrid info - type(cosp_sgradar),intent(inout) :: sgradar ! Output from radar simulator - type(cosp_sglidar),intent(inout) :: sglidar ! Output from lidar simulator - type(cosp_isccp),intent(inout) :: isccp ! Output from ISCCP simulator - type(cosp_misr),intent(inout) :: misr ! Output from MISR simulator - type(cosp_modis),intent(inout) :: modis ! Output from MODIS simulator -#ifdef RTTOV - type(cosp_rttov),intent(inout) :: rttov ! Output from RTTOV -#endif - type(cosp_radarstats),intent(inout) :: stradar ! Summary statistics from radar simulator - type(cosp_lidarstats),intent(inout) :: stlidar ! Summary statistics from lidar simulator - - ! Local variables - integer :: Npoints ! Number of gridpoints - integer :: Ncolumns ! Number of subcolumns - integer :: Nlevels ! Number of levels - integer :: Nhydro ! Number of hydrometeors - integer :: i,j,k - integer :: I_HYDRO - real,dimension(:,:),pointer :: column_frac_out ! Array with one column of frac_out - integer :: scops_debug=0 ! set to non-zero value to print out inputs for debugging in SCOPS - real,dimension(:, :),allocatable :: cca_scops,ls_p_rate,cv_p_rate, & - tca_scops ! Cloud cover in each model level (HORIZONTAL gridbox fraction) of total cloud. - ! Levels are from TOA to SURFACE. (nPoints, nLev) - real,dimension(:,:),allocatable :: frac_ls,prec_ls,frac_cv,prec_cv ! Cloud/Precipitation fraction in each model level - ! Levels are from SURFACE to TOA - real,dimension(:,:),allocatable :: rho ! (Npoints, Nlevels). Atmospheric density - type(cosp_sghydro) :: sghydro ! Subgrid info for hydrometeors en each iteration - - - !++++++++++ Dimensions ++++++++++++ - Npoints = gbx%Npoints - Ncolumns = gbx%Ncolumns - Nlevels = gbx%Nlevels - Nhydro = gbx%Nhydro - - !++++++++++ Climate/NWP mode ++++++++++ - if (Ncolumns > 1) then - !++++++++++ Subgrid sampling ++++++++++ - ! Allocate arrays before calling SCOPS - allocate(frac_ls(Npoints,Nlevels),frac_cv(Npoints,Nlevels),prec_ls(Npoints,Nlevels),prec_cv(Npoints,Nlevels)) - allocate(tca_scops(Npoints,Nlevels),cca_scops(Npoints,Nlevels), & - ls_p_rate(Npoints,Nlevels),cv_p_rate(Npoints,Nlevels)) - ! Initialize to zero - frac_ls=0.0 - prec_ls=0.0 - frac_cv=0.0 - prec_cv=0.0 - ! Cloud fractions for SCOPS from TOA to SFC - tca_scops = gbx%tca(:,Nlevels:1:-1) - cca_scops = gbx%cca(:,Nlevels:1:-1) - - ! Call to SCOPS - ! strat and conv arrays are passed with levels from TOA to SURFACE. - call scops(Npoints,Nlevels,Ncolumns,seed,tca_scops,cca_scops,overlap,sgx%frac_out,scops_debug) - - ! temporarily use prec_ls/cv to transfer information about precipitation flux into prec_scops - if(gbx%use_precipitation_fluxes) then - ls_p_rate(:,Nlevels:1:-1)=gbx%rain_ls(:,1:Nlevels)+gbx%snow_ls(:,1:Nlevels)+gbx%grpl_ls(:,1:Nlevels) - cv_p_rate(:,Nlevels:1:-1)=gbx%rain_cv(:,1:Nlevels)+gbx%snow_cv(:,1:Nlevels) - else - ls_p_rate(:,Nlevels:1:-1)=gbx%mr_hydro(:,1:Nlevels,I_LSRAIN)+ & - gbx%mr_hydro(:,1:Nlevels,I_LSSNOW)+ & - gbx%mr_hydro(:,1:Nlevels,I_LSGRPL) - cv_p_rate(:,Nlevels:1:-1)=gbx%mr_hydro(:,1:Nlevels,I_CVRAIN)+ & - gbx%mr_hydro(:,1:Nlevels,I_CVSNOW) - endif - - call prec_scops(Npoints,Nlevels,Ncolumns,ls_p_rate,cv_p_rate,sgx%frac_out,sgx%prec_frac) - - ! Precipitation fraction - do j=1,Npoints,1 - do k=1,Nlevels,1 - do i=1,Ncolumns,1 - if (sgx%frac_out (j,i,Nlevels+1-k) == I_LSC) frac_ls(j,k)=frac_ls(j,k)+1. - if (sgx%frac_out (j,i,Nlevels+1-k) == I_CVC) frac_cv(j,k)=frac_cv(j,k)+1. - if (sgx%prec_frac(j,i,Nlevels+1-k) .eq. 1) prec_ls(j,k)=prec_ls(j,k)+1. - if (sgx%prec_frac(j,i,Nlevels+1-k) .eq. 2) prec_cv(j,k)=prec_cv(j,k)+1. - if (sgx%prec_frac(j,i,Nlevels+1-k) .eq. 3) then - prec_cv(j,k)=prec_cv(j,k)+1. - prec_ls(j,k)=prec_ls(j,k)+1. - endif - enddo !i - frac_ls(j,k)=frac_ls(j,k)/Ncolumns - frac_cv(j,k)=frac_cv(j,k)/Ncolumns - prec_ls(j,k)=prec_ls(j,k)/Ncolumns - prec_cv(j,k)=prec_cv(j,k)/Ncolumns - enddo !k - enddo !j - - ! Levels from SURFACE to TOA. - if (Npoints*Ncolumns*Nlevels < 10000) then - sgx%frac_out(1:Npoints,:,1:Nlevels) = sgx%frac_out(1:Npoints,:,Nlevels:1:-1) - sgx%prec_frac(1:Npoints,:,1:Nlevels) = sgx%prec_frac(1:Npoints,:,Nlevels:1:-1) - else - ! This is done within a loop (unvectorized) over nPoints to save memory - do j=1,Npoints - sgx%frac_out(j,:,1:Nlevels) = sgx%frac_out(j,:,Nlevels:1:-1) - sgx%prec_frac(j,:,1:Nlevels) = sgx%prec_frac(j,:,Nlevels:1:-1) - enddo - endif - - ! Deallocate arrays that will no longer be used - deallocate(tca_scops,cca_scops,ls_p_rate,cv_p_rate) - - ! Populate the subgrid arrays - call construct_cosp_sghydro(Npoints,Ncolumns,Nlevels,Nhydro,sghydro) - do k=1,Ncolumns - !--------- Mixing ratios for clouds and Reff for Clouds and precip ------- - column_frac_out => sgx%frac_out(:,k,:) - where (column_frac_out == I_LSC) !+++++++++++ LS clouds ++++++++ - sghydro%mr_hydro(:,k,:,I_LSCLIQ) = gbx%mr_hydro(:,:,I_LSCLIQ) - sghydro%mr_hydro(:,k,:,I_LSCICE) = gbx%mr_hydro(:,:,I_LSCICE) - - sghydro%Reff(:,k,:,I_LSCLIQ) = gbx%Reff(:,:,I_LSCLIQ) - sghydro%Reff(:,k,:,I_LSCICE) = gbx%Reff(:,:,I_LSCICE) - sghydro%Reff(:,k,:,I_LSRAIN) = gbx%Reff(:,:,I_LSRAIN) - sghydro%Reff(:,k,:,I_LSSNOW) = gbx%Reff(:,:,I_LSSNOW) - sghydro%Reff(:,k,:,I_LSGRPL) = gbx%Reff(:,:,I_LSGRPL) - elsewhere (column_frac_out == I_CVC) !+++++++++++ CONV clouds ++++++++ - sghydro%mr_hydro(:,k,:,I_CVCLIQ) = gbx%mr_hydro(:,:,I_CVCLIQ) - sghydro%mr_hydro(:,k,:,I_CVCICE) = gbx%mr_hydro(:,:,I_CVCICE) - - sghydro%Reff(:,k,:,I_CVCLIQ) = gbx%Reff(:,:,I_CVCLIQ) - sghydro%Reff(:,k,:,I_CVCICE) = gbx%Reff(:,:,I_CVCICE) - sghydro%Reff(:,k,:,I_CVRAIN) = gbx%Reff(:,:,I_CVRAIN) - sghydro%Reff(:,k,:,I_CVSNOW) = gbx%Reff(:,:,I_CVSNOW) - end where - !--------- Precip ------- - if (.not. gbx%use_precipitation_fluxes) then - where (column_frac_out == I_LSC) !+++++++++++ LS Precipitation ++++++++ - sghydro%mr_hydro(:,k,:,I_LSRAIN) = gbx%mr_hydro(:,:,I_LSRAIN) - sghydro%mr_hydro(:,k,:,I_LSSNOW) = gbx%mr_hydro(:,:,I_LSSNOW) - sghydro%mr_hydro(:,k,:,I_LSGRPL) = gbx%mr_hydro(:,:,I_LSGRPL) - elsewhere (column_frac_out == I_CVC) !+++++++++++ CONV Precipitation ++++++++ - sghydro%mr_hydro(:,k,:,I_CVRAIN) = gbx%mr_hydro(:,:,I_CVRAIN) - sghydro%mr_hydro(:,k,:,I_CVSNOW) = gbx%mr_hydro(:,:,I_CVSNOW) - end where - endif - enddo - ! convert the mixing ratio and precipitation flux from gridbox mean to the fraction-based values - do k=1,Nlevels - do j=1,Npoints - !--------- Clouds ------- - if (frac_ls(j,k) .ne. 0.) then - sghydro%mr_hydro(j,:,k,I_LSCLIQ) = sghydro%mr_hydro(j,:,k,I_LSCLIQ)/frac_ls(j,k) - sghydro%mr_hydro(j,:,k,I_LSCICE) = sghydro%mr_hydro(j,:,k,I_LSCICE)/frac_ls(j,k) - endif - if (frac_cv(j,k) .ne. 0.) then - sghydro%mr_hydro(j,:,k,I_CVCLIQ) = sghydro%mr_hydro(j,:,k,I_CVCLIQ)/frac_cv(j,k) - sghydro%mr_hydro(j,:,k,I_CVCICE) = sghydro%mr_hydro(j,:,k,I_CVCICE)/frac_cv(j,k) - endif - !--------- Precip ------- - if (gbx%use_precipitation_fluxes) then - if (prec_ls(j,k) .ne. 0.) then - gbx%rain_ls(j,k) = gbx%rain_ls(j,k)/prec_ls(j,k) - gbx%snow_ls(j,k) = gbx%snow_ls(j,k)/prec_ls(j,k) - gbx%grpl_ls(j,k) = gbx%grpl_ls(j,k)/prec_ls(j,k) - endif - if (prec_cv(j,k) .ne. 0.) then - gbx%rain_cv(j,k) = gbx%rain_cv(j,k)/prec_cv(j,k) - gbx%snow_cv(j,k) = gbx%snow_cv(j,k)/prec_cv(j,k) - endif - else - if (prec_ls(j,k) .ne. 0.) then - sghydro%mr_hydro(j,:,k,I_LSRAIN) = sghydro%mr_hydro(j,:,k,I_LSRAIN)/prec_ls(j,k) - sghydro%mr_hydro(j,:,k,I_LSSNOW) = sghydro%mr_hydro(j,:,k,I_LSSNOW)/prec_ls(j,k) - sghydro%mr_hydro(j,:,k,I_LSGRPL) = sghydro%mr_hydro(j,:,k,I_LSGRPL)/prec_ls(j,k) - endif - if (prec_cv(j,k) .ne. 0.) then - sghydro%mr_hydro(j,:,k,I_CVRAIN) = sghydro%mr_hydro(j,:,k,I_CVRAIN)/prec_cv(j,k) - sghydro%mr_hydro(j,:,k,I_CVSNOW) = sghydro%mr_hydro(j,:,k,I_CVSNOW)/prec_cv(j,k) - endif - endif - enddo !k - enddo !j - deallocate(frac_ls,prec_ls,frac_cv,prec_cv) - - if (gbx%use_precipitation_fluxes) then - ! Density - allocate(rho(Npoints,Nlevels)) - I_HYDRO = I_LSRAIN - call cosp_precip_mxratio(Npoints,Nlevels,Ncolumns,gbx%p,gbx%T,sgx%prec_frac,1., & - n_ax(I_HYDRO),n_bx(I_HYDRO),alpha_x(I_HYDRO),c_x(I_HYDRO),d_x(I_HYDRO), & - g_x(I_HYDRO),a_x(I_HYDRO),b_x(I_HYDRO), & - gamma_1(I_HYDRO),gamma_2(I_HYDRO),gamma_3(I_HYDRO),gamma_4(I_HYDRO), & - gbx%rain_ls,sghydro%mr_hydro(:,:,:,I_HYDRO),sghydro%Reff(:,:,:,I_HYDRO)) - I_HYDRO = I_LSSNOW - call cosp_precip_mxratio(Npoints,Nlevels,Ncolumns,gbx%p,gbx%T,sgx%prec_frac,1., & - n_ax(I_HYDRO),n_bx(I_HYDRO),alpha_x(I_HYDRO),c_x(I_HYDRO),d_x(I_HYDRO), & - g_x(I_HYDRO),a_x(I_HYDRO),b_x(I_HYDRO), & - gamma_1(I_HYDRO),gamma_2(I_HYDRO),gamma_3(I_HYDRO),gamma_4(I_HYDRO), & - gbx%snow_ls,sghydro%mr_hydro(:,:,:,I_HYDRO),sghydro%Reff(:,:,:,I_HYDRO)) - I_HYDRO = I_CVRAIN - call cosp_precip_mxratio(Npoints,Nlevels,Ncolumns,gbx%p,gbx%T,sgx%prec_frac,2., & - n_ax(I_HYDRO),n_bx(I_HYDRO),alpha_x(I_HYDRO),c_x(I_HYDRO),d_x(I_HYDRO), & - g_x(I_HYDRO),a_x(I_HYDRO),b_x(I_HYDRO), & - gamma_1(I_HYDRO),gamma_2(I_HYDRO),gamma_3(I_HYDRO),gamma_4(I_HYDRO), & - gbx%rain_cv,sghydro%mr_hydro(:,:,:,I_HYDRO),sghydro%Reff(:,:,:,I_HYDRO)) - I_HYDRO = I_CVSNOW - call cosp_precip_mxratio(Npoints,Nlevels,Ncolumns,gbx%p,gbx%T,sgx%prec_frac,2., & - n_ax(I_HYDRO),n_bx(I_HYDRO),alpha_x(I_HYDRO),c_x(I_HYDRO),d_x(I_HYDRO), & - g_x(I_HYDRO),a_x(I_HYDRO),b_x(I_HYDRO), & - gamma_1(I_HYDRO),gamma_2(I_HYDRO),gamma_3(I_HYDRO),gamma_4(I_HYDRO), & - gbx%snow_cv,sghydro%mr_hydro(:,:,:,I_HYDRO),sghydro%Reff(:,:,:,I_HYDRO)) - I_HYDRO = I_LSGRPL - call cosp_precip_mxratio(Npoints,Nlevels,Ncolumns,gbx%p,gbx%T,sgx%prec_frac,1., & - n_ax(I_HYDRO),n_bx(I_HYDRO),alpha_x(I_HYDRO),c_x(I_HYDRO),d_x(I_HYDRO), & - g_x(I_HYDRO),a_x(I_HYDRO),b_x(I_HYDRO), & - gamma_1(I_HYDRO),gamma_2(I_HYDRO),gamma_3(I_HYDRO),gamma_4(I_HYDRO), & - gbx%grpl_ls,sghydro%mr_hydro(:,:,:,I_HYDRO),sghydro%Reff(:,:,:,I_HYDRO)) - if(allocated(rho)) deallocate(rho) - endif - !++++++++++ CRM mode ++++++++++ - else - call construct_cosp_sghydro(Npoints,Ncolumns,Nlevels,Nhydro,sghydro) - sghydro%mr_hydro(:,1,:,:) = gbx%mr_hydro - sghydro%Reff(:,1,:,:) = gbx%Reff - !--------- Clouds ------- - where ((gbx%dtau_s > 0.0)) - sgx%frac_out(:,1,:) = 1 ! Subgrid cloud array. Dimensions (Npoints,Ncolumns,Nlevels) - endwhere - endif ! Ncolumns > 1 - - !++++++++++ Simulator ++++++++++ -#ifdef RTTOV - call cosp_simulator(gbx,sgx,sghydro,cfg,vgrid,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar) -#else - call cosp_simulator(gbx,sgx,sghydro,cfg,vgrid,sgradar,sglidar,isccp,misr,modis,stradar,stlidar) -#endif - - ! Deallocate subgrid arrays - call free_cosp_sghydro(sghydro) -END SUBROUTINE COSP_ITER - -END MODULE MOD_COSP diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_constants.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_constants.F90 deleted file mode 100644 index 035ac2ca4..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_constants.F90 +++ /dev/null @@ -1,173 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -! -! History: -! Jul 2007 - A. Bodas-Salcedo - Initial version -! Jul 2008 - A. Bodas-Salcedo - Added definitions of ISCCP axes -! Oct 2008 - H. Chepfer - Added PARASOL_NREFL -! -! - -MODULE MOD_COSP_CONSTANTS - IMPLICIT NONE - - character(len=32) :: COSP_VERSION='COSP v1.3.1' - - ! Indices to address arrays of LS and CONV hydrometeors - integer,parameter :: I_LSCLIQ = 1 - integer,parameter :: I_LSCICE = 2 - integer,parameter :: I_LSRAIN = 3 - integer,parameter :: I_LSSNOW = 4 - integer,parameter :: I_CVCLIQ = 5 - integer,parameter :: I_CVCICE = 6 - integer,parameter :: I_CVRAIN = 7 - integer,parameter :: I_CVSNOW = 8 - integer,parameter :: I_LSGRPL = 9 - - ! Missing value - real,parameter :: R_UNDEF = -1.0E30 - ! Number of possible output variables - integer,parameter :: N_OUT_LIST = 44 - ! Value for forward model result from a level that is under the ground - real,parameter :: R_GROUND = -1.0E20 - - ! Stratiform and convective clouds in frac_out - integer, parameter :: I_LSC = 1, & ! Large-scale clouds - I_CVC = 2 ! Convective clouds - !--- Radar constants - ! CFAD constants - integer,parameter :: DBZE_BINS = 15 ! Number of dBZe bins in histogram (cfad) - real,parameter :: DBZE_MIN = -100.0 ! Minimum value for radar reflectivity - real,parameter :: DBZE_MAX = 80.0 ! Maximum value for radar reflectivity - real,parameter :: CFAD_ZE_MIN = -50.0 ! Lower value of the first CFAD Ze bin - real,parameter :: CFAD_ZE_WIDTH = 5.0 ! Bin width (dBZe) - - - !--- Lidar constants - ! CFAD constants - integer,parameter :: SR_BINS = 15 - integer,parameter :: DPOL_BINS = 6 - real,parameter :: LIDAR_UNDEF = 999.999 - ! Other constants - integer,parameter :: LIDAR_NCAT = 4 - integer,parameter :: PARASOL_NREFL = 5 ! parasol - real,parameter,dimension(PARASOL_NREFL) :: PARASOL_SZA = (/0.0, 20.0, 40.0, 60.0, 80.0/) - real,parameter :: DEFAULT_LIDAR_REFF = 30.0e-6 ! Default lidar effective radius - - !--- MISR constants - integer,parameter :: MISR_N_CTH = 16 - - !--- RTTOV constants - integer,parameter :: RTTOV_MAX_CHANNELS = 20 - - ! ISCCP tau-Pc axes - real,parameter,dimension(7) :: ISCCP_TAU = (/0.15, 0.80, 2.45, 6.5, 16.2, 41.5, 100.0/) - real,parameter,dimension(2,7) :: ISCCP_TAU_BNDS = reshape(source=(/0.0,0.3,0.3,1.30,1.30,3.6,3.6,9.4, & - 9.4,23.0,23.0,60.0,60.0,100000.0/), shape=(/2,7/)) -! real,parameter,dimension(7) :: ISCCP_PC = (/9000., 24500., 37500., 50000., 62000., 74000., 90000./) -! real,parameter,dimension(2,7) :: ISCCP_PC_BNDS = reshape(source=(/0.0,18000.0,18000.0,31000.0,31000.0, & -! 44000.0,44000.0,56000.0,56000.0,68000.0,68000.0,80000.0,80000.0,100000.0/), shape=(/2,7/)) - - real,parameter,dimension(7) :: ISCCP_PC = (/90000., 74000., 62000., 50000., 37500., 24500., 9000./) - real,parameter,dimension(2,7) :: ISCCP_PC_BNDS = reshape(source=(/100000.0,80000.0,80000.0,68000.0,68000.0,56000.0 & - ,56000.0,44000.0,44000.0,31000.0,31000.0,18000.0,18000.0,0.0/), shape=(/2,7/)) - - real,parameter,dimension(MISR_N_CTH) :: MISR_CTH = 1000.0*(/ 0., 0.25, 0.75, 1.25, 1.75, 2.25, 2.75, 3.5, & - 4.5, 6., 8., 10., 12., 14.5, 16., 18./) - real,parameter,dimension(2,MISR_N_CTH) :: MISR_CTH_BNDS = 1000.0*reshape(source=(/ & - -99.0, 0.0, 0.0, 0.5, 0.5, 1.0, 1.0, 1.5, & - 1.5, 2.0, 2.0, 2.5, 2.5, 3.0, 3.0, 4.0, & - 4.0, 5.0, 5.0, 7.0, 7.0, 9.0, 9.0, 11.0, & - 11.0, 13.0, 13.0, 15.0, 15.0, 17.0, 17.0, 99.0/), & - shape=(/2,MISR_N_CTH/)) - - ! Table hclass for quickbeam - integer,parameter :: N_HYDRO = 9 - real :: HCLASS_TYPE(N_HYDRO),HCLASS_COL(N_HYDRO),HCLASS_PHASE(N_HYDRO), & - HCLASS_CP(N_HYDRO),HCLASS_DMIN(N_HYDRO),HCLASS_DMAX(N_HYDRO) - real :: HCLASS_APM(N_HYDRO),HCLASS_BPM(N_HYDRO),HCLASS_RHO(N_HYDRO), & - HCLASS_P1(N_HYDRO),HCLASS_P2(N_HYDRO),HCLASS_P3(N_HYDRO) - real,dimension(N_HYDRO) :: N_ax,N_bx,alpha_x,c_x,d_x,g_x,a_x,b_x,gamma_1,gamma_2,gamma_3,gamma_4 - - ! HCLASS_CP is not used in the version of Quickbeam included in COSP -! LSL LSI LSR LSS CVL CVI CVR CVS LSG - data HCLASS_TYPE/ 5, 1, 2, 2, 5, 1, 2, 2, 2/ - data HCLASS_COL/ 1, 2, 3, 4, 5, 6, 7, 8, 9/ - data HCLASS_PHASE/ 0, 1, 0, 1, 0, 1, 0, 1, 1/ - data HCLASS_CP/ 0, 0, 0, 0, 0, 0, 0, 0, 0/ - data HCLASS_DMIN/ -1, -1, -1, -1, -1, -1, -1, -1, -1/ - data HCLASS_DMAX/ -1, -1, -1, -1, -1, -1, -1, -1, -1/ - data HCLASS_APM/ 524, 110.8, 524, -1, 524, 110.8, 524, -1, -1/ - data HCLASS_BPM/ 3, 2.91, 3, -1, 3, 2.91, 3, -1, -1/ - data HCLASS_RHO/ -1, -1, -1, 100, -1, -1, -1, 100, 400/ - data HCLASS_P1/ -1, -1, 8.e6, 3.e6, -1, -1, 8.e6, 3.e6, 4.e6/ - data HCLASS_P2/ 6, 40, -1, -1, 6, 40, -1, -1, -1/ - data HCLASS_P3/ 0.3, 2, -1, -1, 0.3, 2, -1, -1, -1/ - - ! Microphysical settings for the precipitation flux to mixing ratio conversion -! LSL LSI LSR LSS CVL CVI CVR CVS LSG - data N_ax/ -1., -1., 8.e6, 3.e6, -1., -1., 8.e6, 3.e6, 4.e6/ - data N_bx/ -1., -1., 0.0, 0.0, -1., -1., 0.0, 0.0, 0.0/ - data alpha_x/ -1., -1., 0.0, 0.0, -1., -1., 0.0, 0.0, 0.0/ - data c_x/ -1., -1., 842.0, 4.84, -1., -1., 842.0, 4.84, 94.5/ - data d_x/ -1., -1., 0.8, 0.25, -1., -1., 0.8, 0.25, 0.5/ - data g_x/ -1., -1., 0.5, 0.5, -1., -1., 0.5, 0.5, 0.5/ - data a_x/ -1., -1., 524.0, 52.36, -1., -1., 524.0, 52.36, 209.44/ - data b_x/ -1., -1., 3.0, 3.0, -1., -1., 3.0, 3.0, 3.0/ - data gamma_1/ -1., -1., 17.83725, 8.284701, -1., -1., 17.83725, 8.284701, 11.63230/ - data gamma_2/ -1., -1., 6.0, 6.0, -1., -1., 6.0, 6.0, 6.0/ - data gamma_3/ -1., -1., 2.0, 2.0, -1., -1., 2.0, 2.0, 2.0/ - data gamma_4/ -1., -1., 6.0, 6.0, -1., -1., 6.0, 6.0, 6.0/ - -! ! LSL LSI LSR LSS CVL CVI CVR CVS LSG -! data HCLASS_TYPE/ 1, 1, 1, -1, 1, 1, 1, 1, -1/ -! data HCLASS_COL/ 1, 2, 3, 4, 5, 6, 7, 8, 9/ -! data HCLASS_PHASE/ 0, 1, 0, 1, 0, 1, 0, 1, 1/ -! data HCLASS_CP/ 0, 0, 0, 0, 0, 0, 0, 0, 0/ -! data HCLASS_DMIN/ -1, -1, -1, -1, -1, -1, -1, -1, -1/ -! data HCLASS_DMAX/ -1, -1, -1, -1, -1, -1, -1, -1, -1/ -! data HCLASS_APM/ -1, 0.0444, -1, 0.0444, -1, 0.0444, -1, 0.0444, 261.8/ -! data HCLASS_BPM/ -1, 2.1, -1, 2.1, -1, 2.1, -1, 2.1, 3/ -! data HCLASS_RHO/ 1000, -1, 1000, -1, 1000, -1, 1000, -1, -1/ -! data HCLASS_P1/ -1, -1, -1, -1, -1, -1, -1, -1, -1/ -! data HCLASS_P2/ 10, 40, 1000, 120, 10, 40, 1000, 120, 1000/ -! data HCLASS_P3/ 3, 1, 1, 1, 3, 1, 1, 1, 3.5/ -! -! ! Microphysical settings for the precipitation flux to mixing ratio conversion -! ! LSL LSI LSR LSS CVL CVI CVR CVS LSG -! data N_ax/ -1., -1., 26.2, -1., -1., -1., 26.2, 4.e6, -1./ -! data N_bx/ -1., -1., 1.57, -1., -1., -1., 1.57, 0.0, -1./ -! data alpha_x/ -1., -1., 0.0, -1., -1., -1., 0.0, 0.0, -1./ -! data c_x/ -1., -1., 386.8, -1., -1., -1., 386.8, 14.3, -1./ -! data d_x/ -1., -1., 0.67, -1., -1., -1., 0.67, 0.416, -1./ -! data g_x/ -1., -1., 0.4, -1., -1., -1., 0.4, 0.4, -1./ -! data a_x/ -1., -1., 523.6, -1., -1., -1., 523.6, 0.0444, -1./ -! data b_x/ -1., -1., 3.0, -1., -1., -1., 3.0, 2.1, -1./ -! data gamma_1/ -1., -1., 14.78119, -1., -1., -1., 14.78119, 3.382827, -1./ -! data gamma_2/ -1., -1., 6.0, -1., -1., -1., 6.0, 2.197659, -1./ -! data gamma_3/ -1., -1., 2.0, -1., -1., -1., 2.0, 2.0, -1./ -! data gamma_4/ -1., -1., 6.0, -1., -1., -1., 6.0, 6.0, -1./ - -END MODULE MOD_COSP_CONSTANTS diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_defs.h b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_defs.h deleted file mode 100644 index 25cccd036..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_defs.h +++ /dev/null @@ -1,27 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -!#define USE_CMOR1 use_cmor1 -!#define RTTOV rttov -!#define SYS_SX sys_sx diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_isccp_simulator.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_isccp_simulator.F90 deleted file mode 100644 index c22886e37..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_isccp_simulator.F90 +++ /dev/null @@ -1,94 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -MODULE MOD_COSP_ISCCP_SIMULATOR - USE MOD_COSP_CONSTANTS - USE MOD_COSP_TYPES - IMPLICIT NONE - -CONTAINS - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!-------------- SUBROUTINE COSP_ISCCP_SIMULATOR ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_ISCCP_SIMULATOR(gbx,sgx,y) - - ! Arguments - type(cosp_gridbox),intent(in) :: gbx ! Gridbox info - type(cosp_subgrid),intent(in) :: sgx ! Subgridbox info - type(cosp_isccp),intent(inout) :: y ! ISCCP simulator output - - ! Local variables - integer :: Nlevels,Npoints - real :: pfull(gbx%Npoints, gbx%Nlevels) - real :: phalf(gbx%Npoints, gbx%Nlevels + 1) - real :: qv(gbx%Npoints, gbx%Nlevels) - real :: cc(gbx%Npoints, gbx%Nlevels) - real :: conv(gbx%Npoints, gbx%Nlevels) - real :: dtau_s(gbx%Npoints, gbx%Nlevels) - real :: dtau_c(gbx%Npoints, gbx%Nlevels) - real :: at(gbx%Npoints, gbx%Nlevels) - real :: dem_s(gbx%Npoints, gbx%Nlevels) - real :: dem_c(gbx%Npoints, gbx%Nlevels) - real :: frac_out(gbx%Npoints, gbx%Ncolumns, gbx%Nlevels) - integer :: sunlit(gbx%Npoints) - - Nlevels = gbx%Nlevels - Npoints = gbx%Npoints - ! Flip inputs. Levels from TOA to surface - pfull = gbx%p(:,Nlevels:1:-1) - phalf(:,1) = 0.0 ! Top level - phalf(:,2:Nlevels+1) = gbx%ph(:,Nlevels:1:-1) - qv = gbx%sh(:,Nlevels:1:-1) - cc = 0.999999*gbx%tca(:,Nlevels:1:-1) - conv = 0.999999*gbx%cca(:,Nlevels:1:-1) - dtau_s = gbx%dtau_s(:,Nlevels:1:-1) - dtau_c = gbx%dtau_c(:,Nlevels:1:-1) - at = gbx%T(:,Nlevels:1:-1) - dem_s = gbx%dem_s(:,Nlevels:1:-1) - dem_c = gbx%dem_c(:,Nlevels:1:-1) - frac_out(1:Npoints,:,1:Nlevels) = sgx%frac_out(1:Npoints,:,Nlevels:1:-1) - sunlit = int(gbx%sunlit) - call icarus(0,0,gbx%npoints,sunlit,gbx%nlevels,gbx%ncolumns, & - pfull,phalf,qv,cc,conv,dtau_s,dtau_c, & - gbx%isccp_top_height,gbx%isccp_top_height_direction, & - gbx%isccp_overlap,frac_out, & - gbx%skt,gbx%isccp_emsfc_lw,at,dem_s,dem_c,y%fq_isccp,y%totalcldarea, & - y%meanptop,y%meantaucld,y%meanalbedocld, & - y%meantb,y%meantbclr,y%boxtau,y%boxptop) - - ! Flip outputs. Levels from surface to TOA - ! --- (npoints,tau=7,pressure=7) - y%fq_isccp(:,:,:) = y%fq_isccp(:,:,7:1:-1) - - - ! Check if there is any value slightly greater than 1 - where ((y%totalcldarea > 1.0-1.e-5) .and. (y%totalcldarea < 1.0+1.e-5)) - y%totalcldarea = 1.0 - endwhere - -END SUBROUTINE COSP_ISCCP_SIMULATOR - -END MODULE MOD_COSP_ISCCP_SIMULATOR diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_lidar.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_lidar.F90 deleted file mode 100644 index 4790a863d..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_lidar.F90 +++ /dev/null @@ -1,84 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -! -! History: -! Jul 2007 - A. Bodas-Salcedo - Initial version -! Oct 2008 - S. Bony - Instructions "Call for large-scale cloud" removed -> sgx%frac_out is used instead. -! Call lidar_simulator changed (lsca, gbx%cca and depol removed; -! frac_out changed in sgx%frac_out) -! -! -MODULE MOD_COSP_LIDAR - USE MOD_COSP_CONSTANTS - USE MOD_COSP_TYPES - IMPLICIT NONE - -CONTAINS - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------- SUBROUTINE COSP_LIDAR ------------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_LIDAR(gbx,sgx,sghydro,y) - - ! Arguments - type(cosp_gridbox),intent(in) :: gbx ! Gridbox info - type(cosp_subgrid),intent(in) :: sgx ! Subgrid info - type(cosp_sghydro),intent(in) :: sghydro ! Subgrid info for hydrometeors - type(cosp_sglidar),intent(inout) :: y ! Subgrid output - - ! Local variables - integer :: i - real :: presf(sgx%Npoints, sgx%Nlevels + 1) - real,dimension(sgx%Npoints, sgx%Nlevels) :: lsca,mr_ll,mr_li,mr_cl,mr_ci - real,dimension(sgx%Npoints, sgx%Nlevels) :: beta_tot,tau_tot - real,dimension(sgx%Npoints, PARASOL_NREFL) :: refle - - - presf(:,1:sgx%Nlevels) = gbx%ph - presf(:,sgx%Nlevels + 1) = 0.0 - lsca = gbx%tca-gbx%cca - do i=1,sgx%Ncolumns - ! Temporary arrays for simulator call - mr_ll(:,:) = sghydro%mr_hydro(:,i,:,I_LSCLIQ) - mr_li(:,:) = sghydro%mr_hydro(:,i,:,I_LSCICE) - mr_cl(:,:) = sghydro%mr_hydro(:,i,:,I_CVCLIQ) - mr_ci(:,:) = sghydro%mr_hydro(:,i,:,I_CVCICE) - call lidar_simulator(sgx%Npoints, sgx%Nlevels, 4 & - , PARASOL_NREFL, LIDAR_UNDEF & - , gbx%p, presf, gbx%T & - , mr_ll, mr_li, mr_cl, mr_ci & - , gbx%Reff(:,:,I_LSCLIQ), gbx%Reff(:,:,I_LSCICE), gbx%Reff(:,:,I_CVCLIQ), gbx%Reff(:,:,I_CVCICE) & - , sgx%frac_out, gbx%lidar_ice_type, y%beta_mol, beta_tot, tau_tot & - , refle ) ! reflectance - - y%beta_tot(:,i,:) = beta_tot(:,:) - y%tau_tot(:,i,:) = tau_tot(:,:) - y%refl(:,i,:) = refle(:,:) - enddo - -END SUBROUTINE COSP_LIDAR - -END MODULE MOD_COSP_LIDAR diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_misr_simulator.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_misr_simulator.F90 deleted file mode 100644 index 6a9378fb6..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_misr_simulator.F90 +++ /dev/null @@ -1,78 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -! -! History: -! Nov 2008 - A. Bodas-Salcedo - Initial version -! -! - -MODULE MOD_COSP_MISR_SIMULATOR - USE MOD_COSP_CONSTANTS - USE MOD_COSP_TYPES - IMPLICIT NONE - -CONTAINS - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!-------------- SUBROUTINE COSP_MISR_SIMULATOR ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_MISR_SIMULATOR(gbx,sgx,y) - - ! Arguments - type(cosp_gridbox),intent(in) :: gbx ! Gridbox info - type(cosp_subgrid),intent(in) :: sgx ! Subgridbox info - type(cosp_misr),intent(inout) :: y ! MISR simulator output - - ! Local variables - integer :: Nlevels,Npoints - real :: dtau_s(gbx%Npoints, gbx%Nlevels) - real :: dtau_c(gbx%Npoints, gbx%Nlevels) - real :: at(gbx%Npoints, gbx%Nlevels) - real :: frac_out(gbx%Npoints, gbx%Ncolumns, gbx%Nlevels) - integer :: sunlit(gbx%Npoints) - - real :: zfull(gbx%Npoints, gbx%Nlevels) ! height (in meters) of full model levels (i.e. midpoints) - ! zfull(npoints,1) is top level of model - ! zfull(npoints,nlev) is bottom level of model - - - Nlevels = gbx%Nlevels - Npoints = gbx%Npoints - ! Levels from TOA to surface - zfull = gbx%zlev(:,Nlevels:1:-1) - at = gbx%T(:,Nlevels:1:-1) - dtau_s = gbx%dtau_s(:,Nlevels:1:-1) - dtau_c = gbx%dtau_c(:,Nlevels:1:-1) - frac_out(1:Npoints,:,1:Nlevels) = sgx%frac_out(1:Npoints,:,Nlevels:1:-1) - sunlit = int(gbx%sunlit) - - call MISR_simulator(gbx%npoints,gbx%nlevels,gbx%ncolumns,& - sunlit,zfull,at,dtau_s,dtau_c,frac_out, R_UNDEF, & - y%fq_MISR,y%MISR_dist_model_layertops,y%MISR_meanztop,y%MISR_cldarea) - -END SUBROUTINE COSP_MISR_SIMULATOR - -END MODULE MOD_COSP_MISR_SIMULATOR diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_modis_simulator.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_modis_simulator.F90 deleted file mode 100644 index 390d124ea..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_modis_simulator.F90 +++ /dev/null @@ -1,427 +0,0 @@ -! (c) 2009, Regents of the Unversity of Colorado -! Author: Robert Pincus, Cooperative Institute for Research in the Environmental Sciences -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -! - -! -! History: -! May 2009 - Robert Pincus - Initial version -! Dec 2009 - Robert Pincus - Tiny revisions -! -MODULE MOD_COSP_Modis_Simulator - USE MOD_COSP_CONSTANTS - USE MOD_COSP_TYPES - use mod_modis_sim, numModisTauBins => numTauHistogramBins, & - numModisPressureBins => numPressureHistogramBins, & - MODIS_TAU => nominalTauHistogramCenters, & - MODIS_TAU_BNDS => nominalTauHistogramBoundaries, & - MODIS_PC => nominalPressureHistogramCenters, & - MODIS_PC_BNDS => nominalPressureHistogramBoundaries - implicit none - !------------------------------------------------------------------------------------------------ - ! Public type - ! - ! Summary statistics from MODIS retrievals - type COSP_MODIS - ! Dimensions - integer :: Npoints ! Number of gridpoints - - ! - ! Grid means; dimension nPoints - ! - real, dimension(:), pointer :: & - Cloud_Fraction_Total_Mean, Cloud_Fraction_Water_Mean, Cloud_Fraction_Ice_Mean, & - Cloud_Fraction_High_Mean, Cloud_Fraction_Mid_Mean, Cloud_Fraction_Low_Mean, & - Optical_Thickness_Total_Mean, Optical_Thickness_Water_Mean, Optical_Thickness_Ice_Mean, & - Optical_Thickness_Total_LogMean, Optical_Thickness_Water_LogMean, Optical_Thickness_Ice_LogMean, & - Cloud_Particle_Size_Water_Mean, Cloud_Particle_Size_Ice_Mean, & - Cloud_Top_Pressure_Total_Mean, & - Liquid_Water_Path_Mean, Ice_Water_Path_Mean - ! - ! Also need the ISCCP-type optical thickness/cloud top pressure histogram - ! - real, dimension(:, :, :), pointer :: Optical_Thickness_vs_Cloud_Top_Pressure - end type COSP_MODIS - -contains - !------------------------------------------------------------------------------------------------ - subroutine COSP_Modis_Simulator(gridBox, subCols, subcolHydro, isccpSim, modisSim) - ! Arguments - type(cosp_gridbox), intent(in ) :: gridBox ! Gridbox info - type(cosp_subgrid), intent(in ) :: subCols ! subCol indicators of convective/stratiform - type(cosp_sghydro), intent(in ) :: subcolHydro ! subcol hydrometeor contens - type(cosp_isccp), intent(in ) :: isccpSim ! ISCCP simulator output - type(cosp_modis), intent( out) :: modisSim ! MODIS simulator subcol output - - ! ------------------------------------------------------------ - ! Local variables - ! Leave space only for sunlit points - - integer :: nPoints, nSubCols, nLevels, nSunlit, i - - ! Grid-mean quanties; dimensions nPoints, nLevels - real, & - dimension(count(gridBox%sunlit(:) > 0), gridBox%nLevels) :: & - temperature, pressureLayers - real, & - dimension(count(gridBox%sunlit(:) > 0), gridBox%nLevels + 1) :: & - pressureLevels - - ! Subcol quantities, dimension nPoints, nSubCols, nLevels - real, & - dimension(count(gridBox%sunlit(:) > 0), subCols%nColumns, gridBox%nLevels) :: & - opticalThickness, cloudWater, cloudIce, waterSize, iceSize - - ! Vertically-integrated subcol quantities; dimensions nPoints, nSubcols - integer, & - dimension(count(gridBox%sunlit(:) > 0), subCols%nColumns) :: & - retrievedPhase - real, & - dimension(count(gridBox%sunlit(:) > 0), subCols%nColumns) :: & - isccpTau, isccpCloudTopPressure, retrievedCloudTopPressure, retrievedTau, retrievedSize - - ! Vertically-integrated results - real, dimension(count(gridBox%sunlit(:) > 0)) :: & - cfTotal, cfLiquid, cfIce, & - cfHigh, cfMid, cfLow, & - meanTauTotal, meanTauLiquid, meanTauIce, & - meanLogTauTotal, meanLogTauLiquid, meanLogTauIce , & - meanSizeLiquid, meanSizeIce, & - meanCloudTopPressure, & - meanLiquidWaterPath, meanIceWaterPath - - real, dimension(count(gridBox%sunlit(:) > 0), numModisTauBins, numModisPressureBins) :: & - jointHistogram - - integer, dimension(count(gridBox%sunlit(:) > 0)) :: sunlit - integer, dimension(count(gridBox%sunlit(:) <= 0)) :: notSunlit - ! ------------------------------------------------------------ - - ! - ! Are there any sunlit points? - ! - nSunlit = count(gridBox%sunlit(:) > 0) - if(nSunlit > 0) then - nLevels = gridBox%Nlevels - nPoints = gridBox%Npoints - nSubCols = subCols%Ncolumns - ! - ! This is a vector index indicating which points are sunlit - ! - sunlit(:) = pack((/ (i, i = 1, nPoints ) /), mask = gridBox%sunlit(:) > 0) - notSunlit(:) = pack((/ (i, i = 1, nPoints ) /), mask = .not. gridBox%sunlit(:) > 0) - - ! - ! Copy needed quantities, reversing vertical order and removing points with no sunlight - ! - pressureLevels(:, 1) = 0.0 ! Top of model, following ISCCP sim - temperature(:, :) = gridBox%T (sunlit(:), nLevels:1:-1) - pressureLayers(:, :) = gridBox%p (sunlit(:), nLevels:1:-1) - pressureLevels(:, 2:) = gridBox%ph(sunlit(:), nLevels:1:-1) - - ! - ! Subcolumn properties - first stratiform cloud... - ! - where(subCols%frac_out(sunlit(:), :, :) == I_LSC) - opticalThickness(:, :, :) = & - spread(gridBox%dtau_s (sunlit(:), :), dim = 2, nCopies = nSubCols) - cloudWater(:, :, :) = subcolHydro%mr_hydro(sunlit(:), :, :, I_LSCLIQ) - waterSize (:, :, :) = subcolHydro%reff (sunlit(:), :, :, I_LSCLIQ) - cloudIce (:, :, :) = subcolHydro%mr_hydro(sunlit(:), :, :, I_LSCICE) - iceSize (:, :, :) = subcolHydro%reff (sunlit(:), :, :, I_LSCICE) - elsewhere - opticalThickness(:, :, :) = 0. - cloudWater (:, :, :) = 0. - cloudIce (:, :, :) = 0. - waterSize (:, :, :) = 0. - iceSize (:, :, :) = 0. - end where - ! - ! .. then add convective cloud - ! - where(subCols%frac_out(sunlit(:), :, :) == I_CVC) - opticalThickness(:, :, :) = & - spread(gridBox%dtau_c( sunlit(:), :), dim = 2, nCopies = nSubCols) - cloudWater(:, :, :) = subcolHydro%mr_hydro(sunlit(:), :, :, I_CVCLIQ) - waterSize (:, :, :) = subcolHydro%reff (sunlit(:), :, :, I_CVCLIQ) - cloudIce (:, :, :) = subcolHydro%mr_hydro(sunlit(:), :, :, I_CVCICE) - iceSize (:, :, :) = subcolHydro%reff (sunlit(:), :, :, I_CVCICE) - end where - ! - ! Reverse vertical order - ! - opticalThickness(:, :, :) = opticalThickness(:, :, nLevels:1:-1) - cloudWater (:, :, :) = cloudWater (:, :, nLevels:1:-1) - waterSize (:, :, :) = waterSize (:, :, nLevels:1:-1) - cloudIce (:, :, :) = cloudIce (:, :, nLevels:1:-1) - iceSize (:, :, :) = iceSize (:, :, nLevels:1:-1) - - isccpTau(:, :) = isccpSim%boxtau (sunlit(:), :) - isccpCloudTopPressure(:, :) = isccpSim%boxptop(sunlit(:), :) - - do i = 1, nSunlit - call modis_L2_simulator(temperature(i, :), pressureLayers(i, :), pressureLevels(i, :), & - opticalThickness(i, :, :), cloudWater(i, :, :), cloudIce(i, :, :), & - waterSize(i, :, :), iceSize(i, :, :), & - isccpTau(i, :), isccpCloudTopPressure(i, :), & - retrievedPhase(i, :), retrievedCloudTopPressure(i, :), & - retrievedTau(i, :), retrievedSize(i, :)) - end do - call modis_L3_simulator(retrievedPhase, & - retrievedCloudTopPressure, & - retrievedTau, retrievedSize, & - cfTotal, cfLiquid, cfIce, & - cfHigh, cfMid, cfLow, & - meanTauTotal, meanTauLiquid, meanTauIce, & - meanLogTauTotal, meanLogTauLiquid, meanLogTauIce, & - meanSizeLiquid, meanSizeIce, & - meanCloudTopPressure, & - meanLiquidWaterPath, meanIceWaterPath, & - jointHistogram) - ! - ! Copy results into COSP structure - ! - modisSim%Cloud_Fraction_Total_Mean(sunlit(:)) = cfTotal(:) - modisSim%Cloud_Fraction_Water_Mean(sunlit(:)) = cfLiquid - modisSim%Cloud_Fraction_Ice_Mean (sunlit(:)) = cfIce - - modisSim%Cloud_Fraction_High_Mean(sunlit(:)) = cfHigh - modisSim%Cloud_Fraction_Mid_Mean (sunlit(:)) = cfMid - modisSim%Cloud_Fraction_Low_Mean (sunlit(:)) = cfLow - - modisSim%Optical_Thickness_Total_Mean(sunlit(:)) = meanTauTotal - modisSim%Optical_Thickness_Water_Mean(sunlit(:)) = meanTauLiquid - modisSim%Optical_Thickness_Ice_Mean (sunlit(:)) = meanTauIce - - modisSim%Optical_Thickness_Total_LogMean(sunlit(:)) = meanLogTauTotal - modisSim%Optical_Thickness_Water_LogMean(sunlit(:)) = meanLogTauLiquid - modisSim%Optical_Thickness_Ice_LogMean (sunlit(:)) = meanLogTauIce - - modisSim%Cloud_Particle_Size_Water_Mean(sunlit(:)) = meanSizeLiquid - modisSim%Cloud_Particle_Size_Ice_Mean (sunlit(:)) = meanSizeIce - - modisSim%Cloud_Top_Pressure_Total_Mean(sunlit(:)) = meanCloudTopPressure - - modisSim%Liquid_Water_Path_Mean(sunlit(:)) = meanLiquidWaterPath - modisSim%Ice_Water_Path_Mean (sunlit(:)) = meanIceWaterPath - - modisSim%Optical_Thickness_vs_Cloud_Top_Pressure(sunlit(:), 2:numModisTauBins+1, :) = jointHistogram(:, :, :) - ! - ! Reorder pressure bins in joint histogram to go from surface to TOA - ! - modisSim%Optical_Thickness_vs_Cloud_Top_Pressure(:,:,:) = & - modisSim%Optical_Thickness_vs_Cloud_Top_Pressure(:, :, numModisPressureBins:1:-1) - if(nSunlit < nPoints) then - ! - ! Where it's night and we haven't done the retrievals the values are undefined - ! - modisSim%Cloud_Fraction_Total_Mean(notSunlit(:)) = R_UNDEF - modisSim%Cloud_Fraction_Water_Mean(notSunlit(:)) = R_UNDEF - modisSim%Cloud_Fraction_Ice_Mean (notSunlit(:)) = R_UNDEF - - modisSim%Cloud_Fraction_High_Mean(notSunlit(:)) = R_UNDEF - modisSim%Cloud_Fraction_Mid_Mean (notSunlit(:)) = R_UNDEF - modisSim%Cloud_Fraction_Low_Mean (notSunlit(:)) = R_UNDEF - - modisSim%Optical_Thickness_Total_Mean(notSunlit(:)) = R_UNDEF - modisSim%Optical_Thickness_Water_Mean(notSunlit(:)) = R_UNDEF - modisSim%Optical_Thickness_Ice_Mean (notSunlit(:)) = R_UNDEF - - modisSim%Optical_Thickness_Total_LogMean(notSunlit(:)) = R_UNDEF - modisSim%Optical_Thickness_Water_LogMean(notSunlit(:)) = R_UNDEF - modisSim%Optical_Thickness_Ice_LogMean (notSunlit(:)) = R_UNDEF - - modisSim%Cloud_Particle_Size_Water_Mean(notSunlit(:)) = R_UNDEF - modisSim%Cloud_Particle_Size_Ice_Mean (notSunlit(:)) = R_UNDEF - - modisSim%Cloud_Top_Pressure_Total_Mean(notSunlit(:)) = R_UNDEF - - modisSim%Liquid_Water_Path_Mean(notSunlit(:)) = R_UNDEF - modisSim%Ice_Water_Path_Mean (notSunlit(:)) = R_UNDEF - - modisSim%Optical_Thickness_vs_Cloud_Top_Pressure(notSunlit(:), :, :) = R_UNDEF - end if - else - ! - ! It's nightime everywhere - everything is undefined - ! - modisSim%Cloud_Fraction_Total_Mean(:) = R_UNDEF - modisSim%Cloud_Fraction_Water_Mean(:) = R_UNDEF - modisSim%Cloud_Fraction_Ice_Mean (:) = R_UNDEF - - modisSim%Cloud_Fraction_High_Mean(:) = R_UNDEF - modisSim%Cloud_Fraction_Mid_Mean (:) = R_UNDEF - modisSim%Cloud_Fraction_Low_Mean (:) = R_UNDEF - - modisSim%Optical_Thickness_Total_Mean(:) = R_UNDEF - modisSim%Optical_Thickness_Water_Mean(:) = R_UNDEF - modisSim%Optical_Thickness_Ice_Mean (:) = R_UNDEF - - modisSim%Optical_Thickness_Total_LogMean(:) = R_UNDEF - modisSim%Optical_Thickness_Water_LogMean(:) = R_UNDEF - modisSim%Optical_Thickness_Ice_LogMean (:) = R_UNDEF - - modisSim%Cloud_Particle_Size_Water_Mean(:) = R_UNDEF - modisSim%Cloud_Particle_Size_Ice_Mean (:) = R_UNDEF - - modisSim%Cloud_Top_Pressure_Total_Mean(:) = R_UNDEF - - modisSim%Liquid_Water_Path_Mean(:) = R_UNDEF - modisSim%Ice_Water_Path_Mean (:) = R_UNDEF - - modisSim%Optical_Thickness_vs_Cloud_Top_Pressure(:, :, :) = R_UNDEF - end if - - end subroutine COSP_Modis_Simulator - !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - !------------- SUBROUTINE CONSTRUCT_COSP_MODIS ------------------ - !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_MODIS(cfg, nPoints, x) - type(cosp_config), intent(in) :: cfg ! Configuration options - integer, intent(in) :: Npoints ! Number of sampled points - type(cosp_MODIS), intent(out) :: x - ! - ! Allocate minumum storage if simulator not used - ! - if (cfg%LMODIS_sim) then - x%nPoints = nPoints - else - x%Npoints = 1 - endif - - ! --- Allocate arrays --- - allocate(x%Cloud_Fraction_Total_Mean(x%nPoints)) - allocate(x%Cloud_Fraction_Water_Mean(x%nPoints)) - allocate(x%Cloud_Fraction_Ice_Mean(x%nPoints)) - - allocate(x%Cloud_Fraction_High_Mean(x%nPoints)) - allocate(x%Cloud_Fraction_Mid_Mean(x%nPoints)) - allocate(x%Cloud_Fraction_Low_Mean(x%nPoints)) - - allocate(x%Optical_Thickness_Total_Mean(x%nPoints)) - allocate(x%Optical_Thickness_Water_Mean(x%nPoints)) - allocate(x%Optical_Thickness_Ice_Mean(x%nPoints)) - - allocate(x%Optical_Thickness_Total_LogMean(x%nPoints)) - allocate(x%Optical_Thickness_Water_LogMean(x%nPoints)) - allocate(x%Optical_Thickness_Ice_LogMean(x%nPoints)) - - allocate(x%Cloud_Particle_Size_Water_Mean(x%nPoints)) - allocate(x%Cloud_Particle_Size_Ice_Mean(x%nPoints)) - - allocate(x%Cloud_Top_Pressure_Total_Mean(x%nPoints)) - - allocate(x%Liquid_Water_Path_Mean(x%nPoints)) - allocate(x%Ice_Water_Path_Mean(x%nPoints)) - - allocate(x%Optical_Thickness_vs_Cloud_Top_Pressure(nPoints, numModisTauBins+1, numModisPressureBins)) - x%Optical_Thickness_vs_Cloud_Top_Pressure(:, :, :) = R_UNDEF - END SUBROUTINE CONSTRUCT_COSP_MODIS - - !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - !------------- SUBROUTINE FREE_COSP_MODIS ----------------------- - !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_MODIS(x) - type(cosp_MODIS),intent(inout) :: x - ! - ! Free space used by cosp_modis variable. - ! - - if(associated(x%Cloud_Fraction_Total_Mean)) deallocate(x%Cloud_Fraction_Total_Mean) - if(associated(x%Cloud_Fraction_Water_Mean)) deallocate(x%Cloud_Fraction_Water_Mean) - if(associated(x%Cloud_Fraction_Ice_Mean )) deallocate(x%Cloud_Fraction_Ice_Mean) - - if(associated(x%Cloud_Fraction_High_Mean)) deallocate(x%Cloud_Fraction_High_Mean) - if(associated(x%Cloud_Fraction_Mid_Mean )) deallocate(x%Cloud_Fraction_Mid_Mean) - if(associated(x%Cloud_Fraction_Low_Mean )) deallocate(x%Cloud_Fraction_Low_Mean) - - if(associated(x%Optical_Thickness_Total_Mean)) deallocate(x%Optical_Thickness_Total_Mean) - if(associated(x%Optical_Thickness_Water_Mean)) deallocate(x%Optical_Thickness_Water_Mean) - if(associated(x%Optical_Thickness_Ice_Mean )) deallocate(x%Optical_Thickness_Ice_Mean) - - if(associated(x%Optical_Thickness_Total_LogMean)) deallocate(x%Optical_Thickness_Total_LogMean) - if(associated(x%Optical_Thickness_Water_LogMean)) deallocate(x%Optical_Thickness_Water_LogMean) - if(associated(x%Optical_Thickness_Ice_LogMean )) deallocate(x%Optical_Thickness_Ice_LogMean) - - if(associated(x%Cloud_Particle_Size_Water_Mean)) deallocate(x%Cloud_Particle_Size_Water_Mean) - if(associated(x%Cloud_Particle_Size_Ice_Mean )) deallocate(x%Cloud_Particle_Size_Ice_Mean) - - if(associated(x%Cloud_Top_Pressure_Total_Mean )) deallocate(x%Cloud_Top_Pressure_Total_Mean ) - - if(associated(x%Liquid_Water_Path_Mean)) deallocate(x%Liquid_Water_Path_Mean ) - if(associated(x%Ice_Water_Path_Mean )) deallocate(x%Ice_Water_Path_Mean ) - - if(associated(x%Optical_Thickness_vs_Cloud_Top_Pressure)) deallocate(x%Optical_Thickness_vs_Cloud_Top_Pressure ) - END SUBROUTINE FREE_COSP_MODIS - ! ----------------------------------------------------- - - !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - !------------- SUBROUTINE COSP_MODIS_CPSECTION ----------------- - !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE COSP_MODIS_CPSECTION(ix, iy, orig, copy) - integer, dimension(2), intent(in) :: ix, iy - type(cosp_modis), intent(in ) :: orig - type(cosp_modis), intent( out) :: copy - ! - ! Copy a set of grid points from one cosp_modis variable to another. - ! Should test to be sure ix and iy refer to the same number of grid points - ! - integer :: orig_start, orig_end, copy_start, copy_end - - orig_start = ix(1); orig_end = ix(2) - copy_start = iy(1); copy_end = iy(2) - - copy%Cloud_Fraction_Total_Mean(copy_start:copy_end) = orig%Cloud_Fraction_Total_Mean(orig_start:orig_end) - copy%Cloud_Fraction_Water_Mean(copy_start:copy_end) = orig%Cloud_Fraction_Water_Mean(orig_start:orig_end) - copy%Cloud_Fraction_Ice_Mean (copy_start:copy_end) = orig%Cloud_Fraction_Ice_Mean (orig_start:orig_end) - - copy%Cloud_Fraction_High_Mean(copy_start:copy_end) = orig%Cloud_Fraction_High_Mean(orig_start:orig_end) - copy%Cloud_Fraction_Mid_Mean (copy_start:copy_end) = orig%Cloud_Fraction_Mid_Mean (orig_start:orig_end) - copy%Cloud_Fraction_Low_Mean (copy_start:copy_end) = orig%Cloud_Fraction_Low_Mean (orig_start:orig_end) - - copy%Optical_Thickness_Total_Mean(copy_start:copy_end) = orig%Optical_Thickness_Total_Mean(orig_start:orig_end) - copy%Optical_Thickness_Water_Mean(copy_start:copy_end) = orig%Optical_Thickness_Water_Mean(orig_start:orig_end) - copy%Optical_Thickness_Ice_Mean (copy_start:copy_end) = orig%Optical_Thickness_Ice_Mean (orig_start:orig_end) - - copy%Optical_Thickness_Total_LogMean(copy_start:copy_end) = & - orig%Optical_Thickness_Total_LogMean(orig_start:orig_end) - copy%Optical_Thickness_Water_LogMean(copy_start:copy_end) = & - orig%Optical_Thickness_Water_LogMean(orig_start:orig_end) - copy%Optical_Thickness_Ice_LogMean (copy_start:copy_end) = & - orig%Optical_Thickness_Ice_LogMean (orig_start:orig_end) - - copy%Cloud_Particle_Size_Water_Mean(copy_start:copy_end) = orig%Cloud_Particle_Size_Water_Mean(orig_start:orig_end) - copy%Cloud_Particle_Size_Ice_Mean (copy_start:copy_end) = orig%Cloud_Particle_Size_Ice_Mean (orig_start:orig_end) - - copy%Cloud_Top_Pressure_Total_Mean(copy_start:copy_end) = orig%Cloud_Top_Pressure_Total_Mean(orig_start:orig_end) - - copy%Liquid_Water_Path_Mean(copy_start:copy_end) = orig%Liquid_Water_Path_Mean(orig_start:orig_end) - copy%Ice_Water_Path_Mean (copy_start:copy_end) = orig%Ice_Water_Path_Mean (orig_start:orig_end) - - copy%Optical_Thickness_vs_Cloud_Top_Pressure(copy_start:copy_end, :, :) = & - orig%Optical_Thickness_vs_Cloud_Top_Pressure(orig_start:orig_end, :, :) - END SUBROUTINE COSP_MODIS_CPSECTION - ! ----------------------------------------------------- - -END MODULE MOD_COSP_Modis_Simulator diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_simulator.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_simulator.F90 deleted file mode 100644 index 17338a0fd..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_simulator.F90 +++ /dev/null @@ -1,220 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -! -! History: -! Jul 2007 - A. Bodas-Salcedo - Initial version -! -! - -#include "cosp_defs.h" -MODULE MOD_COSP_SIMULATOR - USE MOD_COSP_TYPES - USE MOD_COSP_RADAR - USE MOD_COSP_LIDAR - USE MOD_COSP_ISCCP_SIMULATOR - USE MOD_COSP_MODIS_SIMULATOR - USE MOD_COSP_MISR_SIMULATOR -#ifdef RTTOV - USE MOD_COSP_RTTOV_SIMULATOR -#endif - USE MOD_COSP_STATS - IMPLICIT NONE - -CONTAINS - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!--------------------- SUBROUTINE COSP_SIMULATOR ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -#ifdef RTTOV -SUBROUTINE COSP_SIMULATOR(gbx,sgx,sghydro,cfg,vgrid,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar) -#else -SUBROUTINE COSP_SIMULATOR(gbx,sgx,sghydro,cfg,vgrid,sgradar,sglidar,isccp,misr,modis,stradar,stlidar) -#endif - - ! Arguments - type(cosp_gridbox),intent(in) :: gbx ! Grid-box inputs - type(cosp_subgrid),intent(in) :: sgx ! Subgrid inputs - type(cosp_sghydro),intent(in) :: sghydro ! Subgrid info for hydrometeors - type(cosp_config),intent(in) :: cfg ! Configuration options - type(cosp_vgrid),intent(in) :: vgrid ! Information on vertical grid of stats - type(cosp_sgradar),intent(inout) :: sgradar ! Output from radar simulator - type(cosp_sglidar),intent(inout) :: sglidar ! Output from lidar simulator - type(cosp_isccp),intent(inout) :: isccp ! Output from ISCCP simulator - type(cosp_misr),intent(inout) :: misr ! Output from MISR simulator - type(cosp_modis),intent(inout) :: modis ! Output from MODIS simulator -#ifdef RTTOV - type(cosp_rttov),intent(inout) :: rttov ! Output from RTTOV -#endif - type(cosp_radarstats),intent(inout) :: stradar ! Summary statistics from radar simulator - type(cosp_lidarstats),intent(inout) :: stlidar ! Summary statistics from lidar simulator - ! Local variables - integer :: i,j,k - logical :: inconsistent - ! Timing variables - integer :: t0,t1,count_rate,count_max - - inconsistent=.false. -! do k=1,gbx%Nhydro -! do j=1,gbx%Nlevels -! do i=1,gbx%Npoints -! if ((gbx%mr_hydro(i,j,k)>0.0).and.(gbx%Reff(i,j,k)<=0.0)) inconsistent=.true. -! enddo -! enddo -! enddo - if (inconsistent) print *, '%%%% COSP_SIMULATOR: inconsistency in mr_hydro and Reff' - - !+++++++++ Radar model ++++++++++ - if (cfg%Lradar_sim) then - !call system_clock(t0,count_rate,count_max) - call cosp_radar(gbx,sgx,sghydro,sgradar) - !call system_clock(t1,count_rate,count_max) - !print *, '%%%%%% Radar:', (t1-t0)*1.0/count_rate, ' s' - endif - - !+++++++++ Lidar model ++++++++++ - if (cfg%Llidar_sim) then - !call system_clock(t0,count_rate,count_max) - call cosp_lidar(gbx,sgx,sghydro,sglidar) - !call system_clock(t1,count_rate,count_max) - !print *, '%%%%%% Lidar:', (t1-t0)*1.0/count_rate, ' s' - endif - - !+++++++++ ISCCP simulator ++++++++++ - if (cfg%Lisccp_sim) then - !call system_clock(t0,count_rate,count_max) - call cosp_isccp_simulator(gbx,sgx,isccp) - !call system_clock(t1,count_rate,count_max) - !print *, '%%%%%% ISCCP:', (t1-t0)*1.0/count_rate, ' s' - endif - - !+++++++++ MISR simulator ++++++++++ - if (cfg%Lmisr_sim) then - !call system_clock(t0,count_rate,count_max) - call cosp_misr_simulator(gbx,sgx,misr) - !call system_clock(t1,count_rate,count_max) - !print *, '%%%%%% MISR:', (t1-t0)*1.0/count_rate, ' s' - endif - - !+++++++++ MODIS simulator ++++++++++ - if (cfg%Lmodis_sim) then - !call system_clock(t0,count_rate,count_max) - call cosp_modis_simulator(gbx,sgx,sghydro,isccp, modis) - !call system_clock(t1,count_rate,count_max) - !print *, '%%%%%% MODIS:', (t1-t0)*1.0/count_rate, ' s' - endif - - !+++++++++ RTTOV ++++++++++ -#ifdef RTTOV - if (cfg%Lrttov_sim) then - !call system_clock(t0,count_rate,count_max) - call cosp_rttov_simulator(gbx,rttov) - !call system_clock(t1,count_rate,count_max) - !print *, '%%%%%% RTTOV:', (t1-t0)*1.0/count_rate, ' s' - endif -#endif - - - !+++++++++++ Summary statistics +++++++++++ - if (cfg%Lstats) then - !call system_clock(t0,count_rate,count_max) - call cosp_stats(gbx,sgx,cfg,sgradar,sglidar,vgrid,stradar,stlidar) - !call system_clock(t1,count_rate,count_max) - !print *, '%%%%%% Stats:', (t1-t0)*1.0/count_rate, ' s' - endif - - !+++++++++++ Change of units after computation of statistics +++++++++++ - ! This avoids using UDUNITS in CMOR - -! if (cfg%Latb532) then -! where((sglidar%beta_tot > 0.0) .and. (sglidar%beta_tot /= R_UNDEF)) -! sglidar%beta_tot = log10(sglidar%beta_tot) -! elsewhere -! sglidar%beta_tot = R_UNDEF -! end where -! endif - - ! Cloud fractions from 1 to % - if (cfg%Lclcalipso) then - where(stlidar%lidarcld /= R_UNDEF) stlidar%lidarcld = stlidar%lidarcld*100.0 - endif - if (cfg%Lcltcalipso.OR.cfg%Lcllcalipso.OR.cfg%Lclmcalipso.OR.cfg%Lclhcalipso) then - where(stlidar%cldlayer /= R_UNDEF) stlidar%cldlayer = stlidar%cldlayer*100.0 - endif - if (cfg%Lclcalipso2) then - where(stradar%lidar_only_freq_cloud /= R_UNDEF) stradar%lidar_only_freq_cloud = stradar%lidar_only_freq_cloud*100.0 - endif - - if (cfg%Lcltisccp) then - where(isccp%totalcldarea /= R_UNDEF) isccp%totalcldarea = isccp%totalcldarea*100.0 - endif - if (cfg%Lclisccp) then - where(isccp%fq_isccp /= R_UNDEF) isccp%fq_isccp = isccp%fq_isccp*100.0 - endif - - if (cfg%LclMISR) then - where(misr%fq_MISR /= R_UNDEF) misr%fq_MISR = misr%fq_MISR*100.0 - endif - - if (cfg%Lcltlidarradar) then - where(stradar%radar_lidar_tcc /= R_UNDEF) stradar%radar_lidar_tcc = stradar%radar_lidar_tcc*100.0 - endif - - if (cfg%Lclmodis) then - where(modis%Optical_Thickness_vs_Cloud_Top_Pressure /= R_UNDEF) modis%Optical_Thickness_vs_Cloud_Top_Pressure = & - modis%Optical_Thickness_vs_Cloud_Top_Pressure*100.0 - endif - if (cfg%Lcltmodis) then - where(modis%Cloud_Fraction_Total_Mean /= R_UNDEF) modis%Cloud_Fraction_Total_Mean = modis%Cloud_Fraction_Total_Mean*100.0 - endif - if (cfg%Lclwmodis) then - where(modis%Cloud_Fraction_Water_Mean /= R_UNDEF) modis%Cloud_Fraction_Water_Mean = modis%Cloud_Fraction_Water_Mean*100.0 - endif - if (cfg%Lclimodis) then - where(modis%Cloud_Fraction_Ice_Mean /= R_UNDEF) modis%Cloud_Fraction_Ice_Mean = modis%Cloud_Fraction_Ice_Mean*100.0 - endif - - if (cfg%Lclhmodis) then - where(modis%Cloud_Fraction_High_Mean /= R_UNDEF) modis%Cloud_Fraction_High_Mean = modis%Cloud_Fraction_High_Mean*100.0 - endif - if (cfg%Lclmmodis) then - where(modis%Cloud_Fraction_Mid_Mean /= R_UNDEF) modis%Cloud_Fraction_Mid_Mean = modis%Cloud_Fraction_Mid_Mean*100.0 - endif - if (cfg%Lcllmodis) then - where(modis%Cloud_Fraction_Low_Mean /= R_UNDEF) modis%Cloud_Fraction_Low_Mean = modis%Cloud_Fraction_Low_Mean*100.0 - endif - - ! Change pressure from hPa to Pa. - if (cfg%Lboxptopisccp) then - where(isccp%boxptop /= R_UNDEF) isccp%boxptop = isccp%boxptop*100.0 - endif - if (cfg%Lpctisccp) then - where(isccp%meanptop /= R_UNDEF) isccp%meanptop = isccp%meanptop*100.0 - endif - - -END SUBROUTINE COSP_SIMULATOR - -END MODULE MOD_COSP_SIMULATOR diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_stats.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_stats.F90 deleted file mode 100644 index 3c768f626..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_stats.F90 +++ /dev/null @@ -1,326 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -! -! History: -! Jul 2007 - A. Bodas-Salcedo - Initial version -! Jul 2008 - A. Bodas-Salcedo - Added capability of producing outputs in standard grid -! Oct 2008 - J.-L. Dufresne - Bug fixed. Assignment of Npoints,Nlevels,Nhydro,Ncolumns in COSP_STATS -! Oct 2008 - H. Chepfer - Added PARASOL reflectance arguments -! Jun 2010 - T. Yokohata, T. Nishimura and K. Ogochi - Added NEC SXs optimisations -! -! -#include "cosp_defs.h" -MODULE MOD_COSP_STATS - USE MOD_COSP_CONSTANTS - USE MOD_COSP_TYPES - USE MOD_LLNL_STATS - USE MOD_LMD_IPSL_STATS - IMPLICIT NONE - -CONTAINS - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------- SUBROUTINE COSP_STATS ------------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_STATS(gbx,sgx,cfg,sgradar,sglidar,vgrid,stradar,stlidar) - - ! Input arguments - type(cosp_gridbox),intent(in) :: gbx - type(cosp_subgrid),intent(in) :: sgx - type(cosp_config),intent(in) :: cfg - type(cosp_sgradar),intent(in) :: sgradar - type(cosp_sglidar),intent(in) :: sglidar - type(cosp_vgrid),intent(in) :: vgrid - ! Output arguments - type(cosp_radarstats),intent(inout) :: stradar ! Summary statistics for radar - type(cosp_lidarstats),intent(inout) :: stlidar ! Summary statistics for lidar - - ! Local variables - integer :: Npoints !# of grid points - integer :: Nlevels !# of levels - integer :: Nhydro !# of hydrometeors - integer :: Ncolumns !# of columns - integer :: Nlr - logical :: ok_lidar_cfad = .false. - real,dimension(:,:,:),allocatable :: Ze_out,betatot_out,betamol_in,betamol_out,ph_in,ph_out - real,dimension(:,:),allocatable :: ph_c,betamol_c - - Npoints = gbx%Npoints - Nlevels = gbx%Nlevels - Nhydro = gbx%Nhydro - Ncolumns = gbx%Ncolumns - Nlr = vgrid%Nlvgrid - - if (cfg%LcfadLidarsr532) ok_lidar_cfad=.true. - - if (vgrid%use_vgrid) then ! Statistics in a different vertical grid - allocate(Ze_out(Npoints,Ncolumns,Nlr),betatot_out(Npoints,Ncolumns,Nlr), & - betamol_in(Npoints,1,Nlevels),betamol_out(Npoints,1,Nlr),betamol_c(Npoints,Nlr), & - ph_in(Npoints,1,Nlevels),ph_out(Npoints,1,Nlr),ph_c(Npoints,Nlr)) - Ze_out = 0.0 - betatot_out = 0.0 - betamol_out= 0.0 - betamol_c = 0.0 - ph_in(:,1,:) = gbx%ph(:,:) - ph_out = 0.0 - ph_c = 0.0 - !++++++++++++ Radar CFAD ++++++++++++++++ - if (cfg%Lradar_sim) then - call cosp_change_vertical_grid(Npoints,Ncolumns,Nlevels,gbx%zlev,gbx%zlev_half,sgradar%Ze_tot, & - Nlr,vgrid%zl,vgrid%zu,Ze_out,log_units=.true.) - stradar%cfad_ze = cosp_cfad(Npoints,Ncolumns,Nlr,DBZE_BINS,Ze_out, & - DBZE_MIN,DBZE_MAX,CFAD_ZE_MIN,CFAD_ZE_WIDTH) - endif - !++++++++++++ Lidar CFAD ++++++++++++++++ - if (cfg%Llidar_sim) then - betamol_in(:,1,:) = sglidar%beta_mol(:,:) - call cosp_change_vertical_grid(Npoints,1,Nlevels,gbx%zlev,gbx%zlev_half,betamol_in, & - Nlr,vgrid%zl,vgrid%zu,betamol_out) - call cosp_change_vertical_grid(Npoints,Ncolumns,Nlevels,gbx%zlev,gbx%zlev_half,sglidar%beta_tot, & - Nlr,vgrid%zl,vgrid%zu,betatot_out) - call cosp_change_vertical_grid(Npoints,1,Nlevels,gbx%zlev,gbx%zlev_half,ph_in, & - Nlr,vgrid%zl,vgrid%zu,ph_out) - ph_c(:,:) = ph_out(:,1,:) - betamol_c(:,:) = betamol_out(:,1,:) - ! Stats from lidar_stat_summary - call diag_lidar(Npoints,Ncolumns,Nlr,SR_BINS,PARASOL_NREFL & - ,betatot_out,betamol_c,sglidar%refl,gbx%land,ph_c & - ,LIDAR_UNDEF,ok_lidar_cfad & - ,stlidar%cfad_sr,stlidar%srbval & - ,LIDAR_NCAT,stlidar%lidarcld,stlidar%cldlayer,stlidar%parasolrefl) - endif - !++++++++++++ Lidar-only cloud amount and lidar&radar total cloud mount ++++++++++++++++ - if (cfg%Lradar_sim.and.cfg%Llidar_sim) call cosp_lidar_only_cloud(Npoints,Ncolumns,Nlr, & - betatot_out,betamol_c,Ze_out, & - stradar%lidar_only_freq_cloud,stradar%radar_lidar_tcc) - ! Deallocate arrays at coarse resolution - deallocate(Ze_out,betatot_out,betamol_in,betamol_out,betamol_c,ph_in,ph_out,ph_c) - else ! Statistics in model levels - !++++++++++++ Radar CFAD ++++++++++++++++ - if (cfg%Lradar_sim) stradar%cfad_ze = cosp_cfad(Npoints,Ncolumns,Nlr,DBZE_BINS,sgradar%Ze_tot, & - DBZE_MIN,DBZE_MAX,CFAD_ZE_MIN,CFAD_ZE_WIDTH) - !++++++++++++ Lidar CFAD ++++++++++++++++ - ! Stats from lidar_stat_summary - if (cfg%Llidar_sim) call diag_lidar(Npoints,Ncolumns,Nlr,SR_BINS,PARASOL_NREFL & - ,sglidar%beta_tot,sglidar%beta_mol,sglidar%refl,gbx%land,gbx%ph & - ,LIDAR_UNDEF,ok_lidar_cfad & - ,stlidar%cfad_sr,stlidar%srbval & - ,LIDAR_NCAT,stlidar%lidarcld,stlidar%cldlayer,stlidar%parasolrefl) - !++++++++++++ Lidar-only cloud amount and lidar&radar total cloud mount ++++++++++++++++ - if (cfg%Lradar_sim.and.cfg%Llidar_sim) call cosp_lidar_only_cloud(Npoints,Ncolumns,Nlr, & - sglidar%beta_tot,sglidar%beta_mol,sgradar%Ze_tot, & - stradar%lidar_only_freq_cloud,stradar%radar_lidar_tcc) - endif - ! Replace undef - where (stlidar%cfad_sr == LIDAR_UNDEF) stlidar%cfad_sr = R_UNDEF - where (stlidar%lidarcld == LIDAR_UNDEF) stlidar%lidarcld = R_UNDEF - where (stlidar%cldlayer == LIDAR_UNDEF) stlidar%cldlayer = R_UNDEF - where (stlidar%parasolrefl == LIDAR_UNDEF) stlidar%parasolrefl = R_UNDEF - -END SUBROUTINE COSP_STATS - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!---------- SUBROUTINE COSP_CHANGE_VERTICAL_GRID ---------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_CHANGE_VERTICAL_GRID(Npoints,Ncolumns,Nlevels,zfull,zhalf,y,M,zl,zu,r,log_units) - implicit none - ! Input arguments - integer,intent(in) :: Npoints !# of grid points - integer,intent(in) :: Nlevels !# of levels - integer,intent(in) :: Ncolumns !# of columns - real,dimension(Npoints,Nlevels),intent(in) :: zfull ! Height at model levels [m] (Bottom of model layer) - real,dimension(Npoints,Nlevels),intent(in) :: zhalf ! Height at half model levels [m] (Bottom of model layer) - real,dimension(Npoints,Ncolumns,Nlevels),intent(in) :: y ! Variable to be changed to a different grid - integer,intent(in) :: M !# levels in the new grid - real,dimension(M),intent(in) :: zl ! Lower boundary of new levels [m] - real,dimension(M),intent(in) :: zu ! Upper boundary of new levels [m] - logical,optional,intent(in) :: log_units ! log units, need to convert to linear units - ! Output - real,dimension(Npoints,Ncolumns,M),intent(out) :: r ! Variable on new grid - - ! Local variables - integer :: i,j,k - logical :: lunits -#ifdef SYS_SX - integer :: l - real,dimension(Npoints) :: ws,sumwyp - real,dimension(Npoints,Nlevels) :: xl,xu - real,dimension(Npoints,Nlevels) :: w - real,dimension(Npoints,Ncolumns,Nlevels) :: yp -#else - real :: ws - real,dimension(Nlevels) :: xl,xu ! Lower and upper boundaries of model grid - real,dimension(M) :: dz ! Layer depth - real,dimension(Nlevels,M) :: w ! Weights to do the mean at each point - real,dimension(Ncolumns,Nlevels) :: yp ! Variable to be changed to a different grid. - ! Local copy at a particular point. - ! This allows for change of units. -#endif - - lunits=.false. - if (present(log_units)) lunits=log_units - -#ifdef SYS_SX - r(:,:,:) = R_GROUND - ! Vertical grid at that point - xl(:,:) = zhalf(:,:) - xu(:,1:Nlevels-1) = xl(:,2:Nlevels) - xu(:,Nlevels) = zfull(:,Nlevels) + zfull(:,Nlevels) - zhalf(:,Nlevels) ! Top level symmetric - yp(:,:,:) = y(:,:,:) ! Temporary variable to regrid - ! Check for dBZ and change if necessary - if (lunits) then - where (y /= R_UNDEF) - yp = 10.0**(y/10.0) - elsewhere - yp = 0.0 - end where - endif - do k=1,M - ! Find weights - w(:,:) = 0.0 - do j=1,Nlevels - do i=1,Npoints - if ((xl(i,j) < zl(k)).and.(xu(i,j) > zl(k)).and.(xu(i,j) <= zu(k))) then - !xl(j)-----------------xu(j) - ! zl(k)------------------------------zu(k) - w(i,j) = xu(i,j) - zl(k) - else if ((xl(i,j) >= zl(k)).and.(xu(i,j) <= zu(k))) then - ! xl(j)-----------------xu(j) - ! zl(k)------------------------------zu(k) - w(i,j) = xu(i,j) - xl(i,j) - else if ((xl(i,j) >= zl(k)).and.(xl(i,j) < zu(k)).and.(xu(i,j) >= zu(k))) then - ! xl(j)-----------------xu(j) - ! zl(k)------------------------------zu(k) - w(i,j) = zu(k) - xl(i,j) - else if ((xl(i,j) <= zl(k)).and.(xu(i,j) >= zu(k))) then - ! xl(j)---------------------------xu(j) - ! zl(k)--------------zu(k) - w(i,j) = zu(k) - zl(k) - endif - enddo - enddo - ! Do the weighted mean - do j=1,Ncolumns - ws (:) = 0.0 - sumwyp(:) = 0.0 - do l=1,Nlevels - do i=1,Npoints - if (zu(k) > zhalf(i,1)) then ! Level above model bottom level - ws (i) = ws (i) + w(i,l) - sumwyp(i) = sumwyp(i) + w(i,l)*yp(i,j,l) - endif - enddo - enddo - do i=1,Npoints - if (zu(k) > zhalf(i,1)) then ! Level above model bottom level - if (ws(i) > 0.0) r(i,j,k) = sumwyp(i)/ws(i) - endif - enddo - enddo - enddo - ! Check for dBZ and change if necessary - if (lunits) then - do k=1,M - do j=1,Ncolumns - do i=1,Npoints - if (zu(k) > zhalf(i,1)) then ! Level above model bottom level - if (r(i,j,k) <= 0.0) then - r(i,j,k) = R_UNDEF - else - r(i,j,k) = 10.0*log10(r(i,j,k)) - endif - endif - enddo - enddo - enddo - endif -#else - r = R_UNDEF - do i=1,Npoints - ! Vertical grid at that point - xl = zhalf(i,:) - xu(1:Nlevels-1) = xl(2:Nlevels) - xu(Nlevels) = zfull(i,Nlevels) + zfull(i,Nlevels) - zhalf(i,Nlevels) ! Top level symmetric - dz = zu - zl - yp = y(i,:,:) ! Temporary variable to regrid - ! Find weights - w = 0.0 - do k=1,M - do j=1,Nlevels - if ((xl(j) < zl(k)).and.(xu(j) > zl(k)).and.(xu(j) <= zu(k))) then - !xl(j)-----------------xu(j) - ! zl(k)------------------------------zu(k) - w(j,k) = xu(j) - zl(k) - else if ((xl(j) >= zl(k)).and.(xu(j) <= zu(k))) then - ! xl(j)-----------------xu(j) - ! zl(k)------------------------------zu(k) - w(j,k) = xu(j) - xl(j) - else if ((xl(j) >= zl(k)).and.(xl(j) < zu(k)).and.(xu(j) >= zu(k))) then - ! xl(j)-----------------xu(j) - ! zl(k)------------------------------zu(k) - w(j,k) = zu(k) - xl(j) - else if ((xl(j) <= zl(k)).and.(xu(j) >= zu(k))) then - ! xl(j)---------------------------xu(j) - ! zl(k)--------------zu(k) - w(j,k) = dz(j) - endif - enddo - enddo - ! Check for dBZ and change if necessary - if (lunits) then - where (yp /= R_UNDEF) - yp = 10.0**(yp/10.0) - elsewhere - yp = 0.0 - end where - endif - ! Do the weighted mean - do j=1,Ncolumns - do k=1,M - if (zu(k) <= zhalf(i,1)) then ! Level below model bottom level - r(i,j,k) = R_GROUND - else - ws = sum(w(:,k)) - if ((ws > 0.0).and.(r(i,j,k) /= R_GROUND)) r(i,j,k) = sum(w(:,k)*yp(j,:))/ws - ! Check for dBZ and change if necessary - if ((lunits).and.(r(i,j,k) /= R_GROUND)) then - if (r(i,j,k) <= 0.0) then - r(i,j,k) = R_UNDEF - else - r(i,j,k) = 10.0*log10(r(i,j,k)) - endif - endif - endif - enddo - enddo - enddo -#endif - - - -END SUBROUTINE COSP_CHANGE_VERTICAL_GRID - -END MODULE MOD_COSP_STATS diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_types.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_types.F90 deleted file mode 100644 index acf688bea..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_types.F90 +++ /dev/null @@ -1,1697 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -! -! History: -! Jul 2007 - A. Bodas-Salcedo - Initial version -! Feb 2008 - R. Marchand - Added Quickbeam types and initialisation -! Oct 2008 - H. Chepfer - Added PARASOL reflectance diagnostic -! Nov 2008 - R. Marchand - Added MISR diagnostics -! Nov 2008 - V. John - Added RTTOV diagnostics -! -! -MODULE MOD_COSP_TYPES - USE MOD_COSP_CONSTANTS - USE MOD_COSP_UTILS - - use radar_simulator_types, only: class_param, mie, nd, mt_nd, dmax, dmin, mt_ttl, mt_tti, cnt_liq, cnt_ice ! added by roj Feb 2008 - - IMPLICIT NONE - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!----------------------- DERIVED TYPES ---------------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - - ! Configuration choices (simulators, variables) - TYPE COSP_CONFIG - logical :: & - Lradar_sim = .false. ,& - Llidar_sim = .false. ,& - Lisccp_sim = .false. ,& - Lmodis_sim = .false. ,& - Lmisr_sim = .false. ,& - Lrttov_sim = .false. ,& - Lstats = .false. ,& - Lwrite_output = .false. ,& - Lalbisccp = .false. ,& - Latb532 = .false. ,& - Lboxptopisccp = .false. ,& - Lboxtauisccp = .false. ,& - LcfadDbze94 = .false. ,& - LcfadLidarsr532 = .false. ,& - Lclcalipso2 = .false. ,& - Lclcalipso = .false. ,& - Lclhcalipso = .false. ,& - Lclisccp = .false. ,& - Lcllcalipso = .false. ,& - Lclmcalipso = .false. ,& - Lcltcalipso = .false. ,& - Lcltlidarradar = .false. ,& - Lpctisccp = .false. ,& - Ldbze94 = .false. ,& - Ltauisccp = .false. ,& - Lcltisccp = .false. ,& - Ltoffset = .false. ,& - LparasolRefl = .false. ,& - LclMISR = .false. ,& - Lmeantbisccp = .false. ,& - Lmeantbclrisccp = .false. ,& - Lfracout = .false. ,& - LlidarBetaMol532 = .false. ,& - Ltbrttov = .false. ,& - Lcltmodis = .false. ,& - Lclwmodis = .false. ,& - Lclimodis = .false. ,& - Lclhmodis = .false. ,& - Lclmmodis = .false. ,& - Lcllmodis = .false. ,& - Ltautmodis = .false. ,& - Ltauwmodis = .false. ,& - Ltauimodis = .false. ,& - Ltautlogmodis = .false. ,& - Ltauwlogmodis = .false. ,& - Ltauilogmodis = .false. ,& - Lreffclwmodis = .false. ,& - Lreffclimodis = .false. ,& - Lpctmodis = .false. ,& - Llwpmodis = .false. ,& - Liwpmodis = .false. ,& - Lclmodis = .false. - - character(len=32) :: out_list(N_OUT_LIST) - END TYPE COSP_CONFIG - - ! Outputs from RTTOV - TYPE COSP_RTTOV - ! Dimensions - integer :: Npoints ! Number of gridpoints - integer :: Nchan ! Number of channels - - ! Brightness temperatures (Npoints,Nchan) - real,pointer :: tbs(:,:) - - END TYPE COSP_RTTOV - - ! Outputs from MISR simulator - TYPE COSP_MISR - ! Dimensions - integer :: Npoints ! Number of gridpoints - integer :: Ntau ! Number of tau intervals - integer :: Nlevels ! Number of cth levels - - ! --- (npoints,ntau,nlevels) - ! the fraction of the model grid box covered by each of the MISR cloud types - real,pointer :: fq_MISR(:,:,:) - - ! --- (npoints) - real,pointer :: MISR_meanztop(:), MISR_cldarea(:) - ! --- (npoints,nlevels) - real,pointer :: MISR_dist_model_layertops(:,:) - END TYPE COSP_MISR - - ! Outputs from ISCCP simulator - TYPE COSP_ISCCP - ! Dimensions - integer :: Npoints ! Number of gridpoints - integer :: Ncolumns ! Number of columns - integer :: Nlevels ! Number of levels - - - ! --- (npoints,tau=7,pressure=7) - ! the fraction of the model grid box covered by each of the 49 ISCCP D level cloud types - real,pointer :: fq_isccp(:,:,:) - - ! --- (npoints) --- - ! The fraction of model grid box columns with cloud somewhere in them. - ! This should equal the sum over all entries of fq_isccp - real,pointer :: totalcldarea(:) - ! mean all-sky 10.5 micron brightness temperature - real,pointer :: meantb(:) - ! mean clear-sky 10.5 micron brightness temperature - real,pointer :: meantbclr(:) - - ! The following three means are averages over the cloudy areas only. If no - ! clouds are in grid box all three quantities should equal zero. - - ! mean cloud top pressure (mb) - linear averaging in cloud top pressure. - real,pointer :: meanptop(:) - ! mean optical thickness linear averaging in albedo performed. - real,pointer :: meantaucld(:) - ! mean cloud albedo. linear averaging in albedo performed - real,pointer :: meanalbedocld(:) - - !--- (npoints,ncol) --- - ! optical thickness in each column - real,pointer :: boxtau(:,:) - ! cloud top pressure (mb) in each column - real,pointer :: boxptop(:,:) - END TYPE COSP_ISCCP - - ! Summary statistics from radar - TYPE COSP_VGRID - logical :: use_vgrid ! Logical flag that indicates change of grid - logical :: csat_vgrid ! Flag for Cloudsat grid - integer :: Npoints ! Number of sampled points - integer :: Ncolumns ! Number of subgrid columns - integer :: Nlevels ! Number of model levels - integer :: Nlvgrid ! Number of levels of new grid - ! Array with dimensions (Nlvgrid) - real, dimension(:), pointer :: z,zl,zu ! Height and lower and upper boundaries of new levels - ! Array with dimensions (Nlevels) - real, dimension(:), pointer :: mz,mzl,mzu ! Height and lower and upper boundaries of model levels - END TYPE COSP_VGRID - - ! Output data from lidar code - TYPE COSP_SGLIDAR - ! Dimensions - integer :: Npoints ! Number of gridpoints - integer :: Ncolumns ! Number of columns - integer :: Nlevels ! Number of levels - integer :: Nhydro ! Number of hydrometeors - integer :: Nrefl ! Number of parasol reflectances - ! Arrays with dimensions (Npoints,Nlevels) - real,dimension(:,:),pointer :: beta_mol ! Molecular backscatter - ! Arrays with dimensions (Npoints,Ncolumns,Nlevels) - real,dimension(:,:,:),pointer :: beta_tot ! Total backscattered signal - real,dimension(:,:,:),pointer :: tau_tot ! Optical thickness integrated from top to level z - ! Arrays with dimensions (Npoints,Ncolumns,Nrefl) - real,dimension(:,:,:),pointer :: refl ! parasol reflectances - END TYPE COSP_SGLIDAR - - ! Output data from radar code - TYPE COSP_SGRADAR - ! Dimensions - integer :: Npoints ! Number of gridpoints - integer :: Ncolumns ! Number of columns - integer :: Nlevels ! Number of levels - integer :: Nhydro ! Number of hydrometeors - ! output vertical levels: spaceborne radar -> from TOA to SURFACE - ! Arrays with dimensions (Npoints,Nlevels) - real,dimension(:,:),pointer :: att_gas ! 2-way attenuation by gases [dBZ] - ! Arrays with dimensions (Npoints,Ncolumns,Nlevels) - real,dimension(:,:,:),pointer :: Ze_tot ! Effective reflectivity factor [dBZ] - - END TYPE COSP_SGRADAR - - - ! Summary statistics from radar - TYPE COSP_RADARSTATS - integer :: Npoints ! Number of sampled points - integer :: Ncolumns ! Number of subgrid columns - integer :: Nlevels ! Number of model levels - integer :: Nhydro ! Number of hydrometeors - ! Array with dimensions (Npoints,dBZe_bins,Nlevels) - real, dimension(:,:,:), pointer :: cfad_ze ! Ze CFAD - ! Array with dimensions (Npoints) - real,dimension(:),pointer :: radar_lidar_tcc ! Radar&lidar total cloud amount, grid-box scale - ! Arrays with dimensions (Npoints,Nlevels) - real, dimension(:,:),pointer :: lidar_only_freq_cloud - END TYPE COSP_RADARSTATS - - ! Summary statistics from lidar - TYPE COSP_LIDARSTATS - integer :: Npoints ! Number of sampled points - integer :: Ncolumns ! Number of subgrid columns - integer :: Nlevels ! Number of model levels - integer :: Nhydro ! Number of hydrometeors - integer :: Nrefl ! Number of parasol reflectances - - ! Arrays with dimensions (SR_BINS) - real, dimension(:),pointer :: srbval ! SR bins in cfad_sr - ! Arrays with dimensions (Npoints,SR_BINS,Nlevels) - real, dimension(:,:,:),pointer :: cfad_sr ! CFAD of scattering ratio - ! Arrays with dimensions (Npoints,Nlevels) - real, dimension(:,:),pointer :: lidarcld ! 3D "lidar" cloud fraction - ! Arrays with dimensions (Npoints,LIDAR_NCAT) - real, dimension(:,:),pointer :: cldlayer ! low, mid, high-level, total lidar cloud cover - ! Arrays with dimensions (Npoints,PARASOL_NREFL) - real, dimension(:,:),pointer :: parasolrefl ! mean parasol reflectance - - END TYPE COSP_LIDARSTATS - - - ! Input data for simulator. Subgrid scale. - ! Input data from SURFACE to TOA - TYPE COSP_SUBGRID - ! Dimensions - integer :: Npoints ! Number of gridpoints - integer :: Ncolumns ! Number of columns - integer :: Nlevels ! Number of levels - integer :: Nhydro ! Number of hydrometeors - - real,dimension(:,:,:),pointer :: prec_frac ! Subgrid precip array. Dimensions (Npoints,Ncolumns,Nlevels) - real,dimension(:,:,:),pointer :: frac_out ! Subgrid cloud array. Dimensions (Npoints,Ncolumns,Nlevels) - END TYPE COSP_SUBGRID - - ! Input data for simulator at Subgrid scale. - ! Used on a reduced number of points - TYPE COSP_SGHYDRO - ! Dimensions - integer :: Npoints ! Number of gridpoints - integer :: Ncolumns ! Number of columns - integer :: Nlevels ! Number of levels - integer :: Nhydro ! Number of hydrometeors - real,dimension(:,:,:,:),pointer :: mr_hydro ! Mixing ratio of each hydrometeor - ! (Npoints,Ncolumns,Nlevels,Nhydro) [kg/kg] - real,dimension(:,:,:,:),pointer :: Reff ! Effective Radius of each hydrometeor - ! (Reff==0 means use default size) - ! (Npoints,Ncolumns,Nlevels,Nhydro) [m] - END TYPE COSP_SGHYDRO - - ! Input data for simulator. Gridbox scale. - TYPE COSP_GRIDBOX - ! Scalars and dimensions - integer :: Npoints ! Number of gridpoints - integer :: Nlevels ! Number of levels - integer :: Ncolumns ! Number of columns - integer :: Nhydro ! Number of hydrometeors - integer :: Nprmts_max_hydro ! Max number of parameters for hydrometeor size distributions - integer :: Naero ! Number of aerosol species - integer :: Nprmts_max_aero ! Max number of parameters for aerosol size distributions - integer :: Npoints_it ! Max number of gridpoints to be processed in one iteration - - ! Time [days] - double precision :: time - double precision :: time_bnds(2) - - ! Radar ancillary info - real :: radar_freq, & ! Radar frequency [GHz] - k2 ! |K|^2, -1=use frequency dependent default - integer :: surface_radar, & ! surface=1, spaceborne=0 - use_mie_tables, & ! use a precomputed loopup table? yes=1,no=0 - use_gas_abs, & ! include gaseous absorption? yes=1,no=0 - do_ray, & ! calculate/output Rayleigh refl=1, not=0 - melt_lay ! melting layer model off=0, on=1 - - ! structures used by radar simulator that need to be set only ONCE per radar configuration (e.g. freq, pointing direction) ... added by roj Feb 2008 - type(class_param) :: hp ! structure used by radar simulator to store Ze and N scaling constants and other information - type(mie):: mt ! structure used by radar simulator to store mie LUT information - integer :: nsizes ! number of discrete drop sizes (um) used to represent the distribution - real*8, dimension(:), pointer :: D ! array of discrete drop sizes (um) used to represent the distribution - real*8, dimension(:), pointer :: mt_ttl, mt_tti ! array of temperatures used with Ze_scaling (also build into mie LUT) - - ! Lidar - integer :: lidar_ice_type !ice particle shape hypothesis in lidar calculations - !(ice_type=0 for spheres, ice_type=1 for non spherical particles) - - ! Radar - logical :: use_precipitation_fluxes ! True if precipitation fluxes are input to the algorithm - logical :: use_reff ! True if Reff is to be used by radar - - ! Geolocation (Npoints) - real,dimension(:),pointer :: toffset ! Time offset of esch point from the value in time - real,dimension(:),pointer :: longitude ! longitude [degrees East] - real,dimension(:),pointer :: latitude ! latitude [deg North] - ! Gridbox information (Npoints,Nlevels) - real,dimension(:,:),pointer :: zlev ! Height of model levels [m] - real,dimension(:,:),pointer :: zlev_half ! Height at half model levels [m] (Bottom of model layer) - real,dimension(:,:),pointer :: dlev ! Depth of model levels [m] - real,dimension(:,:),pointer :: p ! Pressure at full model levels [Pa] - real,dimension(:,:),pointer :: ph ! Pressure at half model levels [Pa] - real,dimension(:,:),pointer :: T ! Temperature at model levels [K] - real,dimension(:,:),pointer :: q ! Relative humidity to water (%) - real,dimension(:,:),pointer :: sh ! Specific humidity to water [kg/kg] - real,dimension(:,:),pointer :: dtau_s ! mean 0.67 micron optical depth of stratiform - ! clouds in each model level - ! NOTE: this the cloud optical depth of only the - ! cloudy part of the grid box, it is not weighted - ! with the 0 cloud optical depth of the clear - ! part of the grid box - real,dimension(:,:),pointer :: dtau_c ! mean 0.67 micron optical depth of convective - ! clouds in each model level. Same note applies as in dtau_s. - real,dimension(:,:),pointer :: dem_s ! 10.5 micron longwave emissivity of stratiform - ! clouds in each model level. Same note applies as in dtau_s. - real,dimension(:,:),pointer :: dem_c ! 10.5 micron longwave emissivity of convective - ! clouds in each model level. Same note applies as in dtau_s. - real,dimension(:,:),pointer :: mr_ozone ! Ozone mass mixing ratio [kg/kg] - - ! Point information (Npoints) - real,dimension(:),pointer :: land !Landmask [0 - Ocean, 1 - Land] - real,dimension(:),pointer :: psfc !Surface pressure [Pa] - real,dimension(:),pointer :: sunlit ! (npoints) 1 for day points, 0 for nightime - real,dimension(:),pointer :: skt ! Skin temperature (K) - real,dimension(:),pointer :: sfc_height ! Surface height [m] - real,dimension(:),pointer :: u_wind ! eastward wind [m s-1] - real,dimension(:),pointer :: v_wind ! northward wind [m s-1] - - ! TOTAL and CONV cloud fraction for SCOPS - real,dimension(:,:),pointer :: tca ! Total cloud fraction - real,dimension(:,:),pointer :: cca ! Convective cloud fraction - ! Precipitation fluxes on model levels - real,dimension(:,:),pointer :: rain_ls ! large-scale precipitation flux of rain [kg/m2.s] - real,dimension(:,:),pointer :: rain_cv ! convective precipitation flux of rain [kg/m2.s] - real,dimension(:,:),pointer :: snow_ls ! large-scale precipitation flux of snow [kg/m2.s] - real,dimension(:,:),pointer :: snow_cv ! convective precipitation flux of snow [kg/m2.s] - real,dimension(:,:),pointer :: grpl_ls ! large-scale precipitation flux of graupel [kg/m2.s] - ! Hydrometeors concentration and distribution parameters -! real,dimension(:,:,:),pointer :: fr_hydro ! Fraction of the gridbox occupied by each hydrometeor (Npoints,Nlevels,Nhydro) - real,dimension(:,:,:),pointer :: mr_hydro ! Mixing ratio of each hydrometeor (Npoints,Nlevels,Nhydro) [kg/kg] - real,dimension(:,:),pointer :: dist_prmts_hydro !Distributional parameters for hydrometeors (Nprmts_max_hydro,Nhydro) - ! Effective radius [m]. (Npoints,Nlevels,Nhydro) - real,dimension(:,:,:),pointer :: Reff - ! Aerosols concentration and distribution parameters - real,dimension(:,:,:),pointer :: conc_aero ! Aerosol concentration for each species (Npoints,Nlevels,Naero) - integer,dimension(:),pointer :: dist_type_aero ! Particle size distribution type for each aerosol species (Naero) - real,dimension(:,:,:,:),pointer :: dist_prmts_aero ! Distributional parameters for aerosols - ! (Npoints,Nlevels,Nprmts_max_aero,Naero) - ! ISCCP simulator inputs - integer :: isccp_top_height ! 1 = adjust top height using both a computed - ! infrared brightness temperature and the visible - ! optical depth to adjust cloud top pressure. Note - ! that this calculation is most appropriate to compare - ! to ISCCP data during sunlit hours. - ! 2 = do not adjust top height, that is cloud top - ! pressure is the actual cloud top pressure - ! in the model - ! 3 = adjust top height using only the computed - ! infrared brightness temperature. Note that this - ! calculation is most appropriate to compare to ISCCP - ! IR only algortihm (i.e. you can compare to nighttime - ! ISCCP data with this option) - integer :: isccp_top_height_direction ! direction for finding atmosphere pressure level - ! with interpolated temperature equal to the radiance - ! determined cloud-top temperature - ! 1 = find the *lowest* altitude (highest pressure) level - ! with interpolated temperature equal to the radiance - ! determined cloud-top temperature - ! 2 = find the *highest* altitude (lowest pressure) level - ! with interpolated temperature equal to the radiance - ! determined cloud-top temperature - ! ONLY APPLICABLE IF top_height EQUALS 1 or 3 - ! 1 = default setting, and matches all versions of - ! ISCCP simulator with versions numbers 3.5.1 and lower - ! 2 = experimental setting - integer :: isccp_overlap ! overlap type (1=max, 2=rand, 3=max/rand) - real :: isccp_emsfc_lw ! 10.5 micron emissivity of surface (fraction) - - ! RTTOV inputs/options - integer :: plat ! satellite platform - integer :: sat ! satellite - integer :: inst ! instrument - integer :: Nchan ! Number of channels to be computed - integer, dimension(:), pointer :: Ichan ! Channel numbers - real, dimension(:), pointer :: Surfem ! Surface emissivity - real :: ZenAng ! Satellite Zenith Angles - real :: co2,ch4,n2o,co ! Mixing ratios of trace gases - - END TYPE COSP_GRIDBOX - -CONTAINS - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE CONSTRUCT_COSP_RTTOV ------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_RTTOV(Npoints,Nchan,x) - integer,intent(in) :: Npoints ! Number of sampled points - integer,intent(in) :: Nchan ! Number of channels - type(cosp_rttov),intent(out) :: x - - ! Dimensions - x%Npoints = Npoints - x%Nchan = Nchan - - ! --- Allocate arrays --- - allocate(x%tbs(Npoints, Nchan)) - ! --- Initialise to zero --- - x%tbs = 0.0 - END SUBROUTINE CONSTRUCT_COSP_RTTOV - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE FREE_COSP_RTTOV ------------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_RTTOV(x) - type(cosp_rttov),intent(inout) :: x - - ! --- Deallocate arrays --- - deallocate(x%tbs) - END SUBROUTINE FREE_COSP_RTTOV - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE CONSTRUCT_COSP_MISR ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_MISR(cfg,Npoints,x) - type(cosp_config),intent(in) :: cfg ! Configuration options - integer,intent(in) :: Npoints ! Number of gridpoints - type(cosp_misr),intent(out) :: x - ! Local variables - integer :: i,j,k - - - ! Allocate minumum storage if simulator not used - if (cfg%Lmisr_sim) then - i = Npoints - j = 7 - k = MISR_N_CTH - else - i = 1 - j = 1 - k = 1 - endif - - ! Dimensions - x%Npoints = i - x%Ntau = j - x%Nlevels = k - - ! allocate space for MISR simulator outputs ... - allocate(x%fq_MISR(i,j,k), x%MISR_meanztop(i),x%MISR_cldarea(i), x%MISR_dist_model_layertops(i,k)) - x%fq_MISR = 0.0 - x%MISR_meanztop = 0.0 - x%MISR_cldarea = 0.0 - x%MISR_dist_model_layertops = 0.0 - - END SUBROUTINE CONSTRUCT_COSP_MISR -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE FREE_COSP_MISR ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_MISR(x) - type(cosp_misr),intent(inout) :: x - deallocate(x%fq_MISR, x%MISR_meanztop,x%MISR_cldarea, x%MISR_dist_model_layertops) - - END SUBROUTINE FREE_COSP_MISR - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE CONSTRUCT_COSP_ISCCP ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_ISCCP(cfg,Npoints,Ncolumns,Nlevels,x) - type(cosp_config),intent(in) :: cfg ! Configuration options - integer,intent(in) :: Npoints ! Number of sampled points - integer,intent(in) :: Ncolumns ! Number of subgrid columns - integer,intent(in) :: Nlevels ! Number of model levels - type(cosp_isccp),intent(out) :: x - ! Local variables - integer :: i,j,k - - ! Allocate minumum storage if simulator not used - if (cfg%Lisccp_sim) then - i = Npoints - j = Ncolumns - k = Nlevels - else - i = 1 - j = 1 - k = 1 - endif - - ! Dimensions - x%Npoints = i - x%Ncolumns = j - x%Nlevels = k - - ! --- Allocate arrays --- - allocate(x%fq_isccp(i,7,7), x%totalcldarea(i), & - x%meanptop(i), x%meantaucld(i), & - x%meantb(i), x%meantbclr(i), & - x%boxtau(i,j), x%boxptop(i,j), & - x%meanalbedocld(i)) - ! --- Initialise to zero --- - x%fq_isccp = 0.0 - x%totalcldarea = 0.0 - x%meanptop = 0.0 - x%meantaucld = 0.0 - x%meantb = 0.0 - x%meantbclr = 0.0 - x%boxtau = 0.0 - x%boxptop = 0.0 - x%meanalbedocld= 0.0 - END SUBROUTINE CONSTRUCT_COSP_ISCCP - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE FREE_COSP_ISCCP ----------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_ISCCP(x) - type(cosp_isccp),intent(inout) :: x - - deallocate(x%fq_isccp, x%totalcldarea, & - x%meanptop, x%meantaucld, x%meantb, x%meantbclr, & - x%boxtau, x%boxptop, x%meanalbedocld) - END SUBROUTINE FREE_COSP_ISCCP - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE CONSTRUCT_COSP_VGRID ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_VGRID(gbx,Nlvgrid,use_vgrid,cloudsat,x) - type(cosp_gridbox),intent(in) :: gbx ! Gridbox information - integer,intent(in) :: Nlvgrid ! Number of new levels - logical,intent(in) :: use_vgrid! Logical flag that controls the output on a different grid - logical,intent(in) :: cloudsat ! TRUE if a CloudSat like grid (480m) is requested - type(cosp_vgrid),intent(out) :: x - - ! Local variables - integer :: i - real :: zstep - - x%use_vgrid = use_vgrid - x%csat_vgrid = cloudsat - - ! Dimensions - x%Npoints = gbx%Npoints - x%Ncolumns = gbx%Ncolumns - x%Nlevels = gbx%Nlevels - - ! --- Allocate arrays --- - if (use_vgrid) then - x%Nlvgrid = Nlvgrid - else - x%Nlvgrid = gbx%Nlevels - endif - allocate(x%z(x%Nlvgrid),x%zl(x%Nlvgrid),x%zu(x%Nlvgrid)) - allocate(x%mz(x%Nlevels),x%mzl(x%Nlevels),x%mzu(x%Nlevels)) - - ! --- Model vertical levels --- - ! Use height levels of first model gridbox - x%mz = gbx%zlev(1,:) - x%mzl = gbx%zlev_half(1,:) - x%mzu(1:x%Nlevels-1) = gbx%zlev_half(1,2:x%Nlevels) - x%mzu(x%Nlevels) = gbx%zlev(1,x%Nlevels) + (gbx%zlev(1,x%Nlevels) - x%mzl(x%Nlevels)) - - if (use_vgrid) then - ! --- Initialise to zero --- - x%z = 0.0 - x%zl = 0.0 - x%zu = 0.0 - if (cloudsat) then ! --- CloudSat grid requested --- - zstep = 480.0 - else - ! Other grid requested. Constant vertical spacing with top at 20 km - zstep = 20000.0/x%Nlvgrid - endif - do i=1,x%Nlvgrid - x%zl(i) = (i-1)*zstep - x%zu(i) = i*zstep - enddo - x%z = (x%zl + x%zu)/2.0 - else - x%z = x%mz - x%zl = x%mzl - x%zu = x%mzu - endif - - END SUBROUTINE CONSTRUCT_COSP_VGRID - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------ SUBROUTINE FREE_COSP_VGRID ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_VGRID(x) - type(cosp_vgrid),intent(inout) :: x - - deallocate(x%z, x%zl, x%zu, x%mz, x%mzl, x%mzu) - END SUBROUTINE FREE_COSP_VGRID - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE CONSTRUCT_COSP_SGLIDAR ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_SGLIDAR(cfg,Npoints,Ncolumns,Nlevels,Nhydro,Nrefl,x) - type(cosp_config),intent(in) :: cfg ! Configuration options - integer,intent(in) :: Npoints ! Number of sampled points - integer,intent(in) :: Ncolumns ! Number of subgrid columns - integer,intent(in) :: Nlevels ! Number of model levels - integer,intent(in) :: Nhydro ! Number of hydrometeors - integer,intent(in) :: Nrefl ! Number of parasol reflectances ! parasol - type(cosp_sglidar),intent(out) :: x - ! Local variables - integer :: i,j,k,l,m - - ! Allocate minumum storage if simulator not used - if (cfg%Llidar_sim) then - i = Npoints - j = Ncolumns - k = Nlevels - l = Nhydro - m = Nrefl - else - i = 1 - j = 1 - k = 1 - l = 1 - m = 1 - endif - - ! Dimensions - x%Npoints = i - x%Ncolumns = j - x%Nlevels = k - x%Nhydro = l - x%Nrefl = m - - ! --- Allocate arrays --- - allocate(x%beta_mol(i,k), x%beta_tot(i,j,k), & - x%tau_tot(i,j,k),x%refl(i,j,m)) - ! --- Initialise to zero --- - x%beta_mol = 0.0 - x%beta_tot = 0.0 - x%tau_tot = 0.0 - x%refl = 0.0 ! parasol - END SUBROUTINE CONSTRUCT_COSP_SGLIDAR - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------ SUBROUTINE FREE_COSP_SGLIDAR ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_SGLIDAR(x) - type(cosp_sglidar),intent(inout) :: x - - deallocate(x%beta_mol, x%beta_tot, x%tau_tot, x%refl) - END SUBROUTINE FREE_COSP_SGLIDAR - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE CONSTRUCT_COSP_SGRADAR ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_SGRADAR(cfg,Npoints,Ncolumns,Nlevels,Nhydro,x) - type(cosp_config),intent(in) :: cfg ! Configuration options - integer,intent(in) :: Npoints ! Number of sampled points - integer,intent(in) :: Ncolumns ! Number of subgrid columns - integer,intent(in) :: Nlevels ! Number of model levels - integer,intent(in) :: Nhydro ! Number of hydrometeors - type(cosp_sgradar),intent(out) :: x - ! Local variables - integer :: i,j,k,l - - if (cfg%Lradar_sim) then - i = Npoints - j = Ncolumns - k = Nlevels - l = Nhydro - else ! Allocate minumum storage if simulator not used - i = 1 - j = 1 - k = 1 - l = 1 - endif - - ! Dimensions - x%Npoints = i - x%Ncolumns = j - x%Nlevels = k - x%Nhydro = l - - ! --- Allocate arrays --- - allocate(x%att_gas(i,k), x%Ze_tot(i,j,k)) - ! --- Initialise to zero --- - x%att_gas = 0.0 - x%Ze_tot = 0.0 - ! The following line give a compilation error on the Met Office NEC -! call zero_real(x%Z_hydro, x%att_hydro) -! f90: error(666): cosp_types.f90, line nnn: -! Actual argument corresponding to dummy -! argument of ELEMENTAL subroutine -! "zero_real" with INTENET(OUT) attribute -! is not array. - END SUBROUTINE CONSTRUCT_COSP_SGRADAR - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------ SUBROUTINE FREE_COSP_SGRADAR ---------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_SGRADAR(x) - type(cosp_sgradar),intent(inout) :: x - - deallocate(x%att_gas, x%Ze_tot) - END SUBROUTINE FREE_COSP_SGRADAR - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!----------- SUBROUTINE CONSTRUCT_COSP_RADARSTATS --------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_RADARSTATS(cfg,Npoints,Ncolumns,Nlevels,Nhydro,x) - type(cosp_config),intent(in) :: cfg ! Configuration options - integer,intent(in) :: Npoints ! Number of sampled points - integer,intent(in) :: Ncolumns ! Number of subgrid columns - integer,intent(in) :: Nlevels ! Number of model levels - integer,intent(in) :: Nhydro ! Number of hydrometeors - type(cosp_radarstats),intent(out) :: x - ! Local variables - integer :: i,j,k,l - - ! Allocate minumum storage if simulator not used - if (cfg%Lradar_sim) then - i = Npoints - j = Ncolumns - k = Nlevels - l = Nhydro - else - i = 1 - j = 1 - k = 1 - l = 1 - endif - - ! Dimensions - x%Npoints = i - x%Ncolumns = j - x%Nlevels = k - x%Nhydro = l - - ! --- Allocate arrays --- - allocate(x%cfad_ze(i,DBZE_BINS,k),x%lidar_only_freq_cloud(i,k)) - allocate(x%radar_lidar_tcc(i)) - ! --- Initialise to zero --- - x%cfad_ze = 0.0 - x%lidar_only_freq_cloud = 0.0 - x%radar_lidar_tcc = 0.0 - END SUBROUTINE CONSTRUCT_COSP_RADARSTATS - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------ SUBROUTINE FREE_COSP_RADARSTATS ------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_RADARSTATS(x) - type(cosp_radarstats),intent(inout) :: x - - deallocate(x%cfad_ze,x%lidar_only_freq_cloud,x%radar_lidar_tcc) - END SUBROUTINE FREE_COSP_RADARSTATS - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!----------- SUBROUTINE CONSTRUCT_COSP_LIDARSTATS --------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_LIDARSTATS(cfg,Npoints,Ncolumns,Nlevels,Nhydro,Nrefl,x) - type(cosp_config),intent(in) :: cfg ! Configuration options - integer,intent(in) :: Npoints ! Number of sampled points - integer,intent(in) :: Ncolumns ! Number of subgrid columns - integer,intent(in) :: Nlevels ! Number of model levels - integer,intent(in) :: Nhydro ! Number of hydrometeors - integer,intent(in) :: Nrefl ! Number of parasol reflectance - type(cosp_lidarstats),intent(out) :: x - ! Local variables - integer :: i,j,k,l,m - - ! Allocate minumum storage if simulator not used - if (cfg%Llidar_sim) then - i = Npoints - j = Ncolumns - k = Nlevels - l = Nhydro - m = Nrefl - else - i = 1 - j = 1 - k = 1 - l = 1 - m = 1 - endif - - ! Dimensions - x%Npoints = i - x%Ncolumns = j - x%Nlevels = k - x%Nhydro = l - x%Nrefl = m - - ! --- Allocate arrays --- - allocate(x%srbval(SR_BINS),x%cfad_sr(i,SR_BINS,k), & - x%lidarcld(i,k), x%cldlayer(i,LIDAR_NCAT), x%parasolrefl(i,m)) - ! --- Initialise to zero --- - x%srbval = 0.0 - x%cfad_sr = 0.0 - x%lidarcld = 0.0 - x%cldlayer = 0.0 - x%parasolrefl = 0.0 - END SUBROUTINE CONSTRUCT_COSP_LIDARSTATS - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------ SUBROUTINE FREE_COSP_LIDARSTATS ------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_LIDARSTATS(x) - type(cosp_lidarstats),intent(inout) :: x - - deallocate(x%srbval, x%cfad_sr, x%lidarcld, x%cldlayer, x%parasolrefl) - END SUBROUTINE FREE_COSP_LIDARSTATS - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE CONSTRUCT_COSP_SUBGRID ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_SUBGRID(Npoints,Ncolumns,Nlevels,y) - integer,intent(in) :: Npoints, & ! Number of gridpoints - Ncolumns, & ! Number of columns - Nlevels ! Number of levels - type(cosp_subgrid),intent(out) :: y - - ! Dimensions - y%Npoints = Npoints - y%Ncolumns = Ncolumns - y%Nlevels = Nlevels - - ! --- Allocate arrays --- - allocate(y%frac_out(Npoints,Ncolumns,Nlevels)) - if (Ncolumns > 1) then - allocate(y%prec_frac(Npoints,Ncolumns,Nlevels)) - else ! CRM mode, not needed - allocate(y%prec_frac(1,1,1)) - endif - ! --- Initialise to zero --- - y%prec_frac = 0.0 - y%frac_out = 0.0 - ! The following line gives a compilation error on the Met Office NEC -! call zero_real(y%mr_hydro) -! f90: error(666): cosp_types.f90, line nnn: -! Actual argument corresponding to dummy -! argument of ELEMENTAL subroutine -! "zero_real" with INTENET(OUT) attribute -! is not array. - - END SUBROUTINE CONSTRUCT_COSP_SUBGRID - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE FREE_COSP_SUBGRID ----------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_SUBGRID(y) - type(cosp_subgrid),intent(inout) :: y - - ! --- Deallocate arrays --- - deallocate(y%prec_frac, y%frac_out) - - END SUBROUTINE FREE_COSP_SUBGRID - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE CONSTRUCT_COSP_SGHYDRO ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_SGHYDRO(Npoints,Ncolumns,Nlevels,Nhydro,y) - integer,intent(in) :: Npoints, & ! Number of gridpoints - Ncolumns, & ! Number of columns - Nhydro, & ! Number of hydrometeors - Nlevels ! Number of levels - type(cosp_sghydro),intent(out) :: y - - ! Dimensions - y%Npoints = Npoints - y%Ncolumns = Ncolumns - y%Nlevels = Nlevels - y%Nhydro = Nhydro - - ! --- Allocate arrays --- - allocate(y%mr_hydro(Npoints,Ncolumns,Nlevels,Nhydro), & - y%Reff(Npoints,Ncolumns,Nlevels,Nhydro)) - ! --- Initialise to zero --- - y%mr_hydro = 0.0 - y%Reff = 0.0 - - END SUBROUTINE CONSTRUCT_COSP_SGHYDRO - - !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE FREE_COSP_SGHYDRO ----------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_SGHYDRO(y) - type(cosp_sghydro),intent(inout) :: y - - ! --- Deallocate arrays --- - deallocate(y%mr_hydro, y%Reff) - - END SUBROUTINE FREE_COSP_SGHYDRO - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE CONSTRUCT_COSP_GRIDBOX ------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE CONSTRUCT_COSP_GRIDBOX(time,time_bnds,radar_freq,surface_radar,use_mie_tables,use_gas_abs,do_ray,melt_lay,k2, & - Npoints,Nlevels,Ncolumns,Nhydro,Nprmts_max_hydro,Naero,Nprmts_max_aero,Npoints_it, & - lidar_ice_type,isccp_top_height,isccp_top_height_direction,isccp_overlap,isccp_emsfc_lw, & - use_precipitation_fluxes,use_reff, & - ! RTTOV inputs - Plat,Sat,Inst,Nchan,ZenAng,Ichan,SurfEm,co2,ch4,n2o,co,& - y) - double precision,intent(in) :: time ! Time since start of run [days] - double precision,intent(in) :: time_bnds(2) ! Time boundaries - real,intent(in) :: radar_freq, & ! Radar frequency [GHz] - k2 ! |K|^2, -1=use frequency dependent default - integer,intent(in) :: & - surface_radar, & ! surface=1,spaceborne=0 - use_mie_tables, & ! use a precomputed lookup table? yes=1,no=0,2=use first column everywhere - use_gas_abs, & ! include gaseous absorption? yes=1,no=0 - do_ray, & ! calculate/output Rayleigh refl=1, not=0 - melt_lay ! melting layer model off=0, on=1 - integer,intent(in) :: Npoints ! Number of gridpoints - integer,intent(in) :: Nlevels ! Number of levels - integer,intent(in) :: Ncolumns ! Number of columns - integer,intent(in) :: Nhydro ! Number of hydrometeors - integer,intent(in) :: Nprmts_max_hydro ! Max number of parameters for hydrometeor size distributions - integer,intent(in) :: Naero ! Number of aerosol species - integer,intent(in) :: Nprmts_max_aero ! Max number of parameters for aerosol size distributions - integer,intent(in) :: Npoints_it ! Number of gridpoints processed in one iteration - integer,intent(in) :: lidar_ice_type ! Ice particle shape in lidar calculations (0=ice-spheres ; 1=ice-non-spherical) - integer,intent(in) :: isccp_top_height - integer,intent(in) :: isccp_top_height_direction - integer,intent(in) :: isccp_overlap - real,intent(in) :: isccp_emsfc_lw - logical,intent(in) :: use_precipitation_fluxes,use_reff - integer,intent(in) :: Plat - integer,intent(in) :: Sat - integer,intent(in) :: Inst - integer,intent(in) :: Nchan - integer,intent(in) :: Ichan(Nchan) - real,intent(in) :: SurfEm(Nchan) - real,intent(in) :: ZenAng - real,intent(in) :: co2,ch4,n2o,co - type(cosp_gridbox),intent(out) :: y - - - ! local variables - integer i, cnt_ice, cnt_liq - real*8 :: delt, deltp - - ! Dimensions and scalars - y%radar_freq = radar_freq - y%surface_radar = surface_radar - y%use_mie_tables = use_mie_tables - y%use_gas_abs = use_gas_abs - y%do_ray = do_ray - y%melt_lay = melt_lay - y%k2 = k2 - y%Npoints = Npoints - y%Nlevels = Nlevels - y%Ncolumns = Ncolumns - y%Nhydro = Nhydro - y%Nprmts_max_hydro = Nprmts_max_hydro - y%Naero = Naero - y%Nprmts_max_aero = Nprmts_max_aero - y%Npoints_it = Npoints_it - y%lidar_ice_type = lidar_ice_type - y%isccp_top_height = isccp_top_height - y%isccp_top_height_direction = isccp_top_height_direction - y%isccp_overlap = isccp_overlap - y%isccp_emsfc_lw = isccp_emsfc_lw - y%use_precipitation_fluxes = use_precipitation_fluxes - y%use_reff = use_reff - - y%time = time - y%time_bnds = time_bnds - - ! RTTOV parameters - y%Plat = Plat - y%Sat = Sat - y%Inst = Inst - y%Nchan = Nchan - y%ZenAng = ZenAng - y%co2 = co2 - y%ch4 = ch4 - y%n2o = n2o - y%co = co - - ! --- Allocate arrays --- - ! Gridbox information (Npoints,Nlevels) - allocate(y%zlev(Npoints,Nlevels), y%zlev_half(Npoints,Nlevels), y%dlev(Npoints,Nlevels), & - y%p(Npoints,Nlevels), y%ph(Npoints,Nlevels), y%T(Npoints,Nlevels), & - y%q(Npoints,Nlevels), y%sh(Npoints,Nlevels), & - y%dtau_s(Npoints,Nlevels), y%dtau_c(Npoints,Nlevels), & - y%dem_s(Npoints,Nlevels), y%dem_c(Npoints,Nlevels), & - y%tca(Npoints,Nlevels), y%cca(Npoints,Nlevels), & - y%rain_ls(Npoints,Nlevels), y%rain_cv(Npoints,Nlevels), y%grpl_ls(Npoints,Nlevels), & - y%snow_ls(Npoints,Nlevels), y%snow_cv(Npoints,Nlevels),y%mr_ozone(Npoints,Nlevels)) - - - ! Surface information and geolocation (Npoints) - allocate(y%toffset(Npoints), y%longitude(Npoints),y%latitude(Npoints),y%psfc(Npoints), y%land(Npoints), & - y%sunlit(Npoints),y%skt(Npoints),y%sfc_height(Npoints),y%u_wind(Npoints),y%v_wind(Npoints)) - ! Hydrometeors concentration and distribution parameters - allocate(y%mr_hydro(Npoints,Nlevels,Nhydro), & - y%dist_prmts_hydro(Nprmts_max_hydro,Nhydro), & - y%Reff(Npoints,Nlevels,Nhydro)) - ! Aerosols concentration and distribution parameters - allocate(y%conc_aero(Npoints,Nlevels,Naero), y%dist_type_aero(Naero), & - y%dist_prmts_aero(Npoints,Nlevels,Nprmts_max_aero,Naero)) - - ! RTTOV channels and sfc. emissivity - allocate(y%ichan(Nchan),y%surfem(Nchan)) - - ! RTTOV parameters - y%ichan = ichan - y%surfem = surfem - - ! --- Initialise to zero --- - y%zlev = 0.0 - y%zlev_half = 0.0 - y%dlev = 0.0 - y%p = 0.0 - y%ph = 0.0 - y%T = 0.0 - y%q = 0.0 - y%sh = 0.0 - y%dtau_s = 0.0 - y%dtau_c = 0.0 - y%dem_s = 0.0 - y%dem_c = 0.0 - y%tca = 0.0 - y%cca = 0.0 - y%rain_ls = 0.0 - y%rain_cv = 0.0 - y%grpl_ls = 0.0 - y%snow_ls = 0.0 - y%snow_cv = 0.0 - y%Reff = 0.0 - y%mr_ozone = 0.0 - y%u_wind = 0.0 - y%v_wind = 0.0 - - - ! (Npoints) -! call zero_real(y%psfc, y%land) - y%toffset = 0.0 - y%longitude = 0.0 - y%latitude = 0.0 - y%psfc = 0.0 - y%land = 0.0 - y%sunlit = 0.0 - y%skt = 0.0 - y%sfc_height = 0.0 - ! (Npoints,Nlevels,Nhydro) -! y%fr_hydro = 0.0 - y%mr_hydro = 0.0 - ! Others - y%dist_prmts_hydro = 0.0 ! (Nprmts_max_hydro,Nhydro) - y%conc_aero = 0.0 ! (Npoints,Nlevels,Naero) - y%dist_type_aero = 0 ! (Naero) - y%dist_prmts_aero = 0.0 ! (Npoints,Nlevels,Nprmts_max_aero,Naero) - - y%hp%p1 = 0.0 - y%hp%p2 = 0.0 - y%hp%p3 = 0.0 - y%hp%dmin = 0.0 - y%hp%dmax = 0.0 - y%hp%apm = 0.0 - y%hp%bpm = 0.0 - y%hp%rho = 0.0 - y%hp%dtype = 0 - y%hp%col = 0 - y%hp%cp = 0 - y%hp%phase = 0 - y%hp%scaled = .false. - y%hp%z_flag = .false. - y%hp%Ze_scaled = 0.0 - y%hp%Zr_scaled = 0.0 - y%hp%kr_scaled = 0.0 - y%hp%fc = 0.0 - y%hp%rho_eff = 0.0 - y%hp%ifc = 0 - y%hp%idd = 0 - y%mt%freq = 0.0 - y%mt%tt = 0.0 - y%mt%f = 0.0 - y%mt%D = 0.0 - y%mt%qext = 0.0 - y%mt%qbsca = 0.0 - y%mt%phase = 0 - - - ! --- Initialize the distributional parameters for hydrometeors - y%dist_prmts_hydro( 1,:) = HCLASS_TYPE(:) - y%dist_prmts_hydro( 2,:) = HCLASS_COL(:) - y%dist_prmts_hydro( 3,:) = HCLASS_PHASE(:) - y%dist_prmts_hydro( 4,:) = HCLASS_CP(:) - y%dist_prmts_hydro( 5,:) = HCLASS_DMIN(:) - y%dist_prmts_hydro( 6,:) = HCLASS_DMAX(:) - y%dist_prmts_hydro( 7,:) = HCLASS_APM(:) - y%dist_prmts_hydro( 8,:) = HCLASS_BPM(:) - y%dist_prmts_hydro( 9,:) = HCLASS_RHO(:) - y%dist_prmts_hydro(10,:) = HCLASS_P1(:) - y%dist_prmts_hydro(11,:) = HCLASS_P2(:) - y%dist_prmts_hydro(12,:) = HCLASS_P3(:) - - ! the following code added by roj to initialize structures used by radar simulator, Feb 2008 - call load_hydrometeor_classes(y%Nprmts_max_hydro,y%dist_prmts_hydro(:,:),y%hp,y%Nhydro) - - ! load mie tables ? - if (y%use_mie_tables == 1) then - print *, '%%% COSP: Mie tables option for Quickbem not supported' - stop -! ! ----- Mie tables ---- -! mie_table_name='mie_table.dat' -! call load_mie_table(mie_table_name,y%mt) -! -! ! :: D specified by table ... not must match that used when mie LUT generated! -! y%nsizes = mt_nd -! allocate(y%D(y%nsizes)) -! y%D = y%mt%D - - else - ! otherwise we still need to initialize temperature arrays for Ze scaling (which is only done when not using mie table) - - cnt_ice=19 - cnt_liq=20 -! if (.not.(allocated(mt_ttl).and.allocated(mt_tti))) then -! allocate(mt_ttl(cnt_liq),mt_tti(cnt_ice)) ! note needed as this is global array ... -! ! which should be changed in the future -! endif - - do i=1,cnt_ice - mt_tti(i)=(i-1)*5-90 - enddo - - do i=1,cnt_liq - mt_ttl(i)=(i-1)*5 - 60 - enddo - - allocate(y%mt_ttl(cnt_liq),y%mt_tti(cnt_ice)) - - y%mt_ttl = mt_ttl - y%mt_tti = mt_tti - -! !------ OLD code in v0.1 --------------------------- -! allocate(mt_ttl(2),mt_tti(2)) -! allocate(y%mt_ttl(2),y%mt_tti(2)) -! mt_ttl = 0.0 -! mt_tti = 0.0 -! y%mt_ttl = mt_ttl -! y%mt_tti = mt_tti -! !--------------------------------------------------- - - ! :: D created on a log-linear scale - y%nsizes = nd - delt = (log(dmax)-log(dmin))/(y%nsizes-1) - deltp = exp(delt) - allocate(y%D(y%nsizes)) - y%D(1) = dmin - do i=2,y%nsizes - y%D(i) = y%D(i-1)*deltp - enddo - - endif - - -END SUBROUTINE CONSTRUCT_COSP_GRIDBOX - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE FREE_COSP_GRIDBOX ----------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE FREE_COSP_GRIDBOX(y,dglobal) - type(cosp_gridbox),intent(inout) :: y - logical,intent(in),optional :: dglobal - - ! --- Free arrays --- - deallocate(y%D,y%mt_ttl,y%mt_tti) ! added by roj Feb 2008 -! if (.not.present(dglobal)) deallocate(mt_ttl,mt_tti) - -! deallocate(y%hp%p1,y%hp%p2,y%hp%p3,y%hp%dmin,y%hp%dmax,y%hp%apm,y%hp%bpm,y%hp%rho, & -! y%hp%dtype,y%hp%col,y%hp%cp,y%hp%phase,y%hp%scaled, & -! y%hp%z_flag,y%hp%Ze_scaled,y%hp%Zr_scaled,y%hp%kr_scaled, & -! y%hp%fc, y%hp%rho_eff, y%hp%ifc, y%hp%idd) -! deallocate(y%mt%freq, y%mt%tt, y%mt%f, y%mt%D, y%mt%qext, y%mt%qbsca, y%mt%phase) - - deallocate(y%zlev, y%zlev_half, y%dlev, y%p, y%ph, y%T, y%q, & - y%sh, y%dtau_s, y%dtau_c, y%dem_s, y%dem_c, & - y%toffset, y%longitude,y%latitude,y%psfc, y%land, y%tca, y%cca, & - y%mr_hydro, y%dist_prmts_hydro, & - y%conc_aero, y%dist_type_aero, y%dist_prmts_aero, & - y%rain_ls, y%rain_cv, y%snow_ls, y%snow_cv, y%grpl_ls, & - y%sunlit, y%skt, y%sfc_height, y%Reff,y%ichan,y%surfem, & - y%mr_ozone,y%u_wind,y%v_wind) - - END SUBROUTINE FREE_COSP_GRIDBOX - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_GRIDBOX_CPHP ---------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_GRIDBOX_CPHP(x,y) - type(cosp_gridbox),intent(in) :: x - type(cosp_gridbox),intent(inout) :: y - - integer :: i,j,k,sz(3) - double precision :: tny - - tny = tiny(tny) - y%hp%p1 = x%hp%p1 - y%hp%p2 = x%hp%p2 - y%hp%p3 = x%hp%p3 - y%hp%dmin = x%hp%dmin - y%hp%dmax = x%hp%dmax - y%hp%apm = x%hp%apm - y%hp%bpm = x%hp%bpm - y%hp%rho = x%hp%rho - y%hp%dtype = x%hp%dtype - y%hp%col = x%hp%col - y%hp%cp = x%hp%cp - y%hp%phase = x%hp%phase - - y%hp%fc = x%hp%fc - y%hp%rho_eff = x%hp%rho_eff - y%hp%ifc = x%hp%ifc - y%hp%idd = x%hp%idd - sz = shape(x%hp%z_flag) - do k=1,sz(3) - do j=1,sz(2) - do i=1,sz(1) - if (x%hp%scaled(i,k)) y%hp%scaled(i,k) = .true. - if (x%hp%z_flag(i,j,k)) y%hp%z_flag(i,j,k) = .true. - if (abs(x%hp%Ze_scaled(i,j,k)) > tny) y%hp%Ze_scaled(i,j,k) = x%hp%Ze_scaled(i,j,k) - if (abs(x%hp%Zr_scaled(i,j,k)) > tny) y%hp%Zr_scaled(i,j,k) = x%hp%Zr_scaled(i,j,k) - if (abs(x%hp%kr_scaled(i,j,k)) > tny) y%hp%kr_scaled(i,j,k) = x%hp%kr_scaled(i,j,k) - enddo - enddo - enddo - -END SUBROUTINE COSP_GRIDBOX_CPHP - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_GRIDBOX_CPSECTION ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_GRIDBOX_CPSECTION(ix,iy,x,y) - integer,intent(in),dimension(2) :: ix,iy - type(cosp_gridbox),intent(in) :: x - type(cosp_gridbox),intent(inout) :: y - - ! --- Copy arrays without Npoints as dimension --- - y%dist_prmts_hydro = x%dist_prmts_hydro - y%dist_type_aero = x%dist_type_aero - y%D = x%D - y%mt_ttl = x%mt_ttl - y%mt_tti = x%mt_tti - - -! call cosp_gridbox_cphp(x,y) - - ! 1D - y%longitude(iy(1):iy(2)) = x%longitude(ix(1):ix(2)) - y%latitude(iy(1):iy(2)) = x%latitude(ix(1):ix(2)) - y%psfc(iy(1):iy(2)) = x%psfc(ix(1):ix(2)) - y%land(iy(1):iy(2)) = x%land(ix(1):ix(2)) - y%sunlit(iy(1):iy(2)) = x%sunlit(ix(1):ix(2)) - y%skt(iy(1):iy(2)) = x%skt(ix(1):ix(2)) - y%sfc_height(iy(1):iy(2)) = x%sfc_height(ix(1):ix(2)) - y%u_wind(iy(1):iy(2)) = x%u_wind(ix(1):ix(2)) - y%v_wind(iy(1):iy(2)) = x%v_wind(ix(1):ix(2)) - ! 2D - y%zlev(iy(1):iy(2),:) = x%zlev(ix(1):ix(2),:) - y%zlev_half(iy(1):iy(2),:) = x%zlev_half(ix(1):ix(2),:) - y%dlev(iy(1):iy(2),:) = x%dlev(ix(1):ix(2),:) - y%p(iy(1):iy(2),:) = x%p(ix(1):ix(2),:) - y%ph(iy(1):iy(2),:) = x%ph(ix(1):ix(2),:) - y%T(iy(1):iy(2),:) = x%T(ix(1):ix(2),:) - y%q(iy(1):iy(2),:) = x%q(ix(1):ix(2),:) - y%sh(iy(1):iy(2),:) = x%sh(ix(1):ix(2),:) - y%dtau_s(iy(1):iy(2),:) = x%dtau_s(ix(1):ix(2),:) - y%dtau_c(iy(1):iy(2),:) = x%dtau_c(ix(1):ix(2),:) - y%dem_s(iy(1):iy(2),:) = x%dem_s(ix(1):ix(2),:) - y%dem_c(iy(1):iy(2),:) = x%dem_c(ix(1):ix(2),:) - y%tca(iy(1):iy(2),:) = x%tca(ix(1):ix(2),:) - y%cca(iy(1):iy(2),:) = x%cca(ix(1):ix(2),:) - y%rain_ls(iy(1):iy(2),:) = x%rain_ls(ix(1):ix(2),:) - y%rain_cv(iy(1):iy(2),:) = x%rain_cv(ix(1):ix(2),:) - y%grpl_ls(iy(1):iy(2),:) = x%grpl_ls(ix(1):ix(2),:) - y%snow_ls(iy(1):iy(2),:) = x%snow_ls(ix(1):ix(2),:) - y%snow_cv(iy(1):iy(2),:) = x%snow_cv(ix(1):ix(2),:) - y%mr_ozone(iy(1):iy(2),:) = x%mr_ozone(ix(1):ix(2),:) - ! 3D - y%Reff(iy(1):iy(2),:,:) = x%Reff(ix(1):ix(2),:,:) - y%conc_aero(iy(1):iy(2),:,:) = x%conc_aero(ix(1):ix(2),:,:) - y%mr_hydro(iy(1):iy(2),:,:) = x%mr_hydro(ix(1):ix(2),:,:) - ! 4D - y%dist_prmts_aero(iy(1):iy(2),:,:,:) = x%dist_prmts_aero(ix(1):ix(2),:,:,:) - -END SUBROUTINE COSP_GRIDBOX_CPSECTION - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_SUBGRID_CPSECTION ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_SUBGRID_CPSECTION(ix,iy,x,y) - integer,intent(in),dimension(2) :: ix,iy - type(cosp_subgrid),intent(in) :: x - type(cosp_subgrid),intent(inout) :: y - - y%prec_frac(iy(1):iy(2),:,:) = x%prec_frac(ix(1):ix(2),:,:) - y%frac_out(iy(1):iy(2),:,:) = x%frac_out(ix(1):ix(2),:,:) -END SUBROUTINE COSP_SUBGRID_CPSECTION - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_SGRADAR_CPSECTION ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_SGRADAR_CPSECTION(ix,iy,x,y) - integer,intent(in),dimension(2) :: ix,iy - type(cosp_sgradar),intent(in) :: x - type(cosp_sgradar),intent(inout) :: y - - y%att_gas(iy(1):iy(2),:) = x%att_gas(ix(1):ix(2),:) - y%Ze_tot(iy(1):iy(2),:,:) = x%Ze_tot(ix(1):ix(2),:,:) -END SUBROUTINE COSP_SGRADAR_CPSECTION - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_SGLIDAR_CPSECTION ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_SGLIDAR_CPSECTION(ix,iy,x,y) - integer,intent(in),dimension(2) :: ix,iy - type(cosp_sglidar),intent(in) :: x - type(cosp_sglidar),intent(inout) :: y - - y%beta_mol(iy(1):iy(2),:) = x%beta_mol(ix(1):ix(2),:) - y%beta_tot(iy(1):iy(2),:,:) = x%beta_tot(ix(1):ix(2),:,:) - y%tau_tot(iy(1):iy(2),:,:) = x%tau_tot(ix(1):ix(2),:,:) - y%refl(iy(1):iy(2),:,:) = x%refl(ix(1):ix(2),:,:) -END SUBROUTINE COSP_SGLIDAR_CPSECTION - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_ISCCP_CPSECTION ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_ISCCP_CPSECTION(ix,iy,x,y) - integer,intent(in),dimension(2) :: ix,iy - type(cosp_isccp),intent(in) :: x - type(cosp_isccp),intent(inout) :: y - - y%fq_isccp(iy(1):iy(2),:,:) = x%fq_isccp(ix(1):ix(2),:,:) - y%totalcldarea(iy(1):iy(2)) = x%totalcldarea(ix(1):ix(2)) - y%meantb(iy(1):iy(2)) = x%meantb(ix(1):ix(2)) - y%meantbclr(iy(1):iy(2)) = x%meantbclr(ix(1):ix(2)) - y%meanptop(iy(1):iy(2)) = x%meanptop(ix(1):ix(2)) - y%meantaucld(iy(1):iy(2)) = x%meantaucld(ix(1):ix(2)) - y%meanalbedocld(iy(1):iy(2)) = x%meanalbedocld(ix(1):ix(2)) - y%boxtau(iy(1):iy(2),:) = x%boxtau(ix(1):ix(2),:) - y%boxptop(iy(1):iy(2),:) = x%boxptop(ix(1):ix(2),:) -END SUBROUTINE COSP_ISCCP_CPSECTION - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_MISR_CPSECTION ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_MISR_CPSECTION(ix,iy,x,y) - integer,intent(in),dimension(2) :: ix,iy - type(cosp_misr),intent(in) :: x - type(cosp_misr),intent(inout) :: y - - y%fq_MISR(iy(1):iy(2),:,:) = x%fq_MISR(ix(1):ix(2),:,:) - y%MISR_meanztop(iy(1):iy(2)) = x%MISR_meanztop(ix(1):ix(2)) - y%MISR_cldarea(iy(1):iy(2)) = x%MISR_cldarea(ix(1):ix(2)) - y%MISR_dist_model_layertops(iy(1):iy(2),:) = x%MISR_dist_model_layertops(ix(1):ix(2),:) -END SUBROUTINE COSP_MISR_CPSECTION - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_RTTOV_CPSECTION ------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_RTTOV_CPSECTION(ix,iy,x,y) - integer,intent(in),dimension(2) :: ix,iy - type(cosp_rttov),intent(in) :: x - type(cosp_rttov),intent(inout) :: y - - y%tbs(iy(1):iy(2),:) = x%tbs(ix(1):ix(2),:) -END SUBROUTINE COSP_RTTOV_CPSECTION - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_RADARSTATS_CPSECTION -------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_RADARSTATS_CPSECTION(ix,iy,x,y) - integer,intent(in),dimension(2) :: ix,iy - type(cosp_radarstats),intent(in) :: x - type(cosp_radarstats),intent(inout) :: y - - y%cfad_ze(iy(1):iy(2),:,:) = x%cfad_ze(ix(1):ix(2),:,:) - y%radar_lidar_tcc(iy(1):iy(2)) = x%radar_lidar_tcc(ix(1):ix(2)) - y%lidar_only_freq_cloud(iy(1):iy(2),:) = x%lidar_only_freq_cloud(ix(1):ix(2),:) -END SUBROUTINE COSP_RADARSTATS_CPSECTION - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_LIDARSTATS_CPSECTION -------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_LIDARSTATS_CPSECTION(ix,iy,x,y) - integer,intent(in),dimension(2) :: ix,iy - type(cosp_lidarstats),intent(in) :: x - type(cosp_lidarstats),intent(inout) :: y - - y%srbval = x%srbval - y%cfad_sr(iy(1):iy(2),:,:) = x%cfad_sr(ix(1):ix(2),:,:) - y%lidarcld(iy(1):iy(2),:) = x%lidarcld(ix(1):ix(2),:) - y%cldlayer(iy(1):iy(2),:) = x%cldlayer(ix(1):ix(2),:) - y%parasolrefl(iy(1):iy(2),:) = x%parasolrefl(ix(1):ix(2),:) -END SUBROUTINE COSP_LIDARSTATS_CPSECTION -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- PRINT SUBROUTINES -------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_GRIDBOX_PRINT(x) - type(cosp_gridbox),intent(in) :: x - - print *, '%%%%----- Information on COSP_GRIDBOX ------' - ! Scalars and dimensions - print *, x%Npoints - print *, x%Nlevels - print *, x%Ncolumns - print *, x%Nhydro - print *, x%Nprmts_max_hydro - print *, x%Naero - print *, x%Nprmts_max_aero - print *, x%Npoints_it - - ! Time [days] - print *, x%time - - ! Radar ancillary info - print *, x%radar_freq, & - x%k2 - print *, x%surface_radar, & - x%use_mie_tables, & - x%use_gas_abs, & - x%do_ray, & - x%melt_lay - -! print *, 'shape(x%): ',shape(x%) - -! type(class_param) :: hp ! structure used by radar simulator to store Ze and N scaling constants and other information -! type(mie):: mt ! structure used by radar simulator to store mie LUT information - print *, x%nsizes - print *, 'shape(x%D): ',shape(x%D) - print *, 'shape(x%mt_ttl): ',shape(x%mt_ttl) - print *, 'shape(x%mt_tti): ',shape(x%mt_tti) - - ! Lidar - print *, x%lidar_ice_type - - ! Radar - print *, x%use_precipitation_fluxes - print *, x%use_reff - - ! Geolocation (Npoints) - print *, 'shape(x%longitude): ',shape(x%longitude) - print *, 'shape(x%latitude): ',shape(x%latitude) - ! Gridbox information (Npoints,Nlevels) - print *, 'shape(x%zlev): ',shape(x%zlev) - print *, 'shape(x%zlev_half): ',shape(x%zlev_half) - print *, 'shape(x%dlev): ',shape(x%dlev) - print *, 'shape(x%p): ',shape(x%p) - print *, 'shape(x%ph): ',shape(x%ph) - print *, 'shape(x%T): ',shape(x%T) - print *, 'shape(x%q): ',shape(x%q) - print *, 'shape(x%sh): ',shape(x%sh) - print *, 'shape(x%dtau_s): ',shape(x%dtau_s) - print *, 'shape(x%dtau_c): ',shape(x%dtau_c) - print *, 'shape(x%dem_s): ',shape(x%dem_s) - print *, 'shape(x%dem_c): ',shape(x%dem_c) - print *, 'shape(x%mr_ozone): ',shape(x%mr_ozone) - - ! Point information (Npoints) - print *, 'shape(x%land): ',shape(x%land) - print *, 'shape(x%psfc): ',shape(x%psfc) - print *, 'shape(x%sunlit): ',shape(x%sunlit) - print *, 'shape(x%skt): ',shape(x%skt) - print *, 'shape(x%sfc_height): ',shape(x%sfc_height) - print *, 'shape(x%u_wind): ',shape(x%u_wind) - print *, 'shape(x%v_wind): ',shape(x%v_wind) - - ! TOTAL and CONV cloud fraction for SCOPS - print *, 'shape(x%tca): ',shape(x%tca) - print *, 'shape(x%cca): ',shape(x%cca) - ! Precipitation fluxes on model levels - print *, 'shape(x%rain_ls): ',shape(x%rain_ls) - print *, 'shape(x%rain_cv): ',shape(x%rain_cv) - print *, 'shape(x%snow_ls): ',shape(x%snow_ls) - print *, 'shape(x%snow_cv): ',shape(x%snow_cv) - print *, 'shape(x%grpl_ls): ',shape(x%grpl_ls) - ! Hydrometeors concentration and distribution parameters - print *, 'shape(x%mr_hydro): ',shape(x%mr_hydro) - print *, 'shape(x%dist_prmts_hydro): ',shape(x%dist_prmts_hydro) - ! Effective radius [m]. (Npoints,Nlevels,Nhydro) - print *, 'shape(x%Reff): ',shape(x%Reff) - ! Aerosols concentration and distribution parameters - print *, 'shape(x%conc_aero): ',shape(x%conc_aero) - print *, 'shape(x%dist_type_aero): ',shape(x%dist_type_aero) - print *, 'shape(x%dist_prmts_aero): ',shape(x%dist_prmts_aero) - ! ISCCP simulator inputs - print *, x%isccp_top_height - print *, x%isccp_top_height_direction - print *, x%isccp_overlap - print *, x%isccp_emsfc_lw - - ! RTTOV inputs/options - print *, x%plat - print *, x%sat - print *, x%inst - print *, x%Nchan - print *, 'shape(x%Ichan): ',x%Ichan - print *, 'shape(x%Surfem): ',x%Surfem - print *, x%ZenAng - print *, x%co2,x%ch4,x%n2o,x%co - -END SUBROUTINE COSP_GRIDBOX_PRINT - -SUBROUTINE COSP_MISR_PRINT(x) - type(cosp_misr),intent(in) :: x - - print *, '%%%%----- Information on COSP_MISR ------' - - ! Dimensions - print *, x%Npoints - print *, x%Ntau - print *, x%Nlevels - - ! --- (npoints,ntau,nlevels) - ! the fraction of the model grid box covered by each of the MISR cloud types - print *, 'shape(x%fq_MISR): ',shape(x%fq_MISR) - - ! --- (npoints) - print *, 'shape(x%MISR_meanztop): ',shape(x%MISR_meanztop) - print *, 'shape(x%MISR_cldarea): ',shape(x%MISR_cldarea) - ! --- (npoints,nlevels) - print *, 'shape(x%MISR_dist_model_layertops): ',shape(x%MISR_dist_model_layertops) - -END SUBROUTINE COSP_MISR_PRINT - -SUBROUTINE COSP_ISCCP_PRINT(x) - type(cosp_isccp),intent(in) :: x - - print *, x%Npoints - print *, x%Ncolumns - print *, x%Nlevels - - print *, '%%%%----- Information on COSP_ISCCP ------' - - print *, 'shape(x%fq_isccp): ',shape(x%fq_isccp) - print *, 'shape(x%totalcldarea): ',shape(x%totalcldarea) - print *, 'shape(x%meantb): ',shape(x%meantb) - print *, 'shape(x%meantbclr): ',shape(x%meantbclr) - - print *, 'shape(x%meanptop): ',shape(x%meanptop) - print *, 'shape(x%meantaucld): ',shape(x%meantaucld) - print *, 'shape(x%meanalbedocld): ',shape(x%meanalbedocld) - print *, 'shape(x%boxtau): ',shape(x%boxtau) - print *, 'shape(x%boxptop): ',shape(x%boxptop) -END SUBROUTINE COSP_ISCCP_PRINT - -SUBROUTINE COSP_VGRID_PRINT(x) - type(cosp_vgrid),intent(in) :: x - - print *, '%%%%----- Information on COSP_VGRID ------' - print *, x%use_vgrid - print *, x%csat_vgrid - print *, x%Npoints - print *, x%Ncolumns - print *, x%Nlevels - print *, x%Nlvgrid - ! Array with dimensions (Nlvgrid) - print *, 'shape(x%z): ',shape(x%z) - print *, 'shape(x%zl): ',shape(x%zl) - print *, 'shape(x%zu): ',shape(x%zu) - ! Array with dimensions (Nlevels) - print *, 'shape(x%mz): ',shape(x%mz) - print *, 'shape(x%mzl): ',shape(x%mzl) - print *, 'shape(x%mzu): ',shape(x%mzu) -END SUBROUTINE COSP_VGRID_PRINT - -SUBROUTINE COSP_SGLIDAR_PRINT(x) - type(cosp_sglidar),intent(in) :: x - - print *, '%%%%----- Information on COSP_SGLIDAR ------' - ! Dimensions - print *, x%Npoints - print *, x%Ncolumns - print *, x%Nlevels - print *, x%Nhydro - print *, x%Nrefl - ! Arrays with dimensions (Npoints,Nlevels) - print *, 'shape(x%beta_mol): ',shape(x%beta_mol) - ! Arrays with dimensions (Npoints,Ncolumns,Nlevels) - print *, 'shape(x%beta_tot): ',shape(x%beta_tot) - print *, 'shape(x%tau_tot): ',shape(x%tau_tot) - ! Arrays with dimensions (Npoints,Ncolumns,Nrefl) - print *, 'shape(x%refl): ',shape(x%refl) -END SUBROUTINE COSP_SGLIDAR_PRINT - -SUBROUTINE COSP_SGRADAR_PRINT(x) - type(cosp_sgradar),intent(in) :: x - - print *, '%%%%----- Information on COSP_SGRADAR ------' - print *, x%Npoints - print *, x%Ncolumns - print *, x%Nlevels - print *, x%Nhydro - ! output vertical levels: spaceborne radar -> from TOA to SURFACE - ! Arrays with dimensions (Npoints,Nlevels) - print *, 'shape(x%att_gas): ', shape(x%att_gas) - ! Arrays with dimensions (Npoints,Ncolumns,Nlevels) - print *, 'shape(x%Ze_tot): ', shape(x%Ze_tot) -END SUBROUTINE COSP_SGRADAR_PRINT - -SUBROUTINE COSP_RADARSTATS_PRINT(x) - type(cosp_radarstats),intent(in) :: x - - print *, '%%%%----- Information on COSP_SGRADAR ------' - print *, x%Npoints - print *, x%Ncolumns - print *, x%Nlevels - print *, x%Nhydro - print *, 'shape(x%cfad_ze): ',shape(x%cfad_ze) - print *, 'shape(x%radar_lidar_tcc): ',shape(x%radar_lidar_tcc) - print *, 'shape(x%lidar_only_freq_cloud): ',shape(x%lidar_only_freq_cloud) -END SUBROUTINE COSP_RADARSTATS_PRINT - -SUBROUTINE COSP_LIDARSTATS_PRINT(x) - type(cosp_lidarstats),intent(in) :: x - - print *, '%%%%----- Information on COSP_SGLIDAR ------' - print *, x%Npoints - print *, x%Ncolumns - print *, x%Nlevels - print *, x%Nhydro - print *, x%Nrefl - - ! Arrays with dimensions (SR_BINS) - print *, 'shape(x%srbval): ',shape(x%srbval) - ! Arrays with dimensions (Npoints,SR_BINS,Nlevels) - print *, 'shape(x%cfad_sr): ',shape(x%cfad_sr) - ! Arrays with dimensions (Npoints,Nlevels) - print *, 'shape(x%lidarcld): ',shape(x%lidarcld) - ! Arrays with dimensions (Npoints,LIDAR_NCAT) - print *, 'shape(x%cldlayer): ',shape(x%cldlayer) - ! Arrays with dimensions (Npoints,PARASOL_NREFL) - print *, 'shape(x%parasolrefl): ',shape(x%parasolrefl) -END SUBROUTINE COSP_LIDARSTATS_PRINT - -SUBROUTINE COSP_SUBGRID_PRINT(x) - type(cosp_subgrid),intent(in) :: x - - print *, '%%%%----- Information on COSP_SUBGRID ------' - print *, x%Npoints - print *, x%Ncolumns - print *, x%Nlevels - print *, x%Nhydro - - print *, 'shape(x%prec_frac): ',shape(x%prec_frac) - print *, 'shape(x%frac_out): ',shape(x%frac_out) -END SUBROUTINE COSP_SUBGRID_PRINT - -SUBROUTINE COSP_SGHYDRO_PRINT(x) - type(cosp_sghydro),intent(in) :: x - - print *, '%%%%----- Information on COSP_SGHYDRO ------' - print *, x%Npoints - print *, x%Ncolumns - print *, x%Nlevels - print *, x%Nhydro - - print *, 'shape(x%mr_hydro): ',shape(x%mr_hydro) - print *, 'shape(x%Reff): ',shape(x%Reff) -END SUBROUTINE COSP_SGHYDRO_PRINT - -END MODULE MOD_COSP_TYPES diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_utils.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_utils.F90 deleted file mode 100644 index edcdd1e19..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_utils.F90 +++ /dev/null @@ -1,342 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -! -! History: -! Jul 2007 - A. Bodas-Salcedo - Initial version -! - -MODULE MOD_COSP_UTILS - USE MOD_COSP_CONSTANTS - IMPLICIT NONE - - INTERFACE Z_TO_DBZ - MODULE PROCEDURE Z_TO_DBZ_2D,Z_TO_DBZ_3D,Z_TO_DBZ_4D - END INTERFACE - - INTERFACE COSP_CHECK_INPUT - MODULE PROCEDURE COSP_CHECK_INPUT_1D,COSP_CHECK_INPUT_2D,COSP_CHECK_INPUT_3D - END INTERFACE -CONTAINS - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------- SUBROUTINE COSP_PRECIP_MXRATIO -------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_PRECIP_MXRATIO(Npoints,Nlevels,Ncolumns,p,T,prec_frac,prec_type, & - n_ax,n_bx,alpha_x,c_x,d_x,g_x,a_x,b_x,gamma1,gamma2,gamma3,gamma4, & - flux,mxratio,reff) - - ! Input arguments, (IN) - integer,intent(in) :: Npoints,Nlevels,Ncolumns - real,intent(in),dimension(Npoints,Nlevels) :: p,T,flux - real,intent(in),dimension(Npoints,Ncolumns,Nlevels) :: prec_frac - real,intent(in) :: n_ax,n_bx,alpha_x,c_x,d_x,g_x,a_x,b_x,gamma1,gamma2,gamma3,gamma4,prec_type - ! Input arguments, (OUT) - real,intent(out),dimension(Npoints,Ncolumns,Nlevels) :: mxratio - real,intent(inout),dimension(Npoints,Ncolumns,Nlevels) :: reff - ! Local variables - integer :: i,j,k - real :: sigma,one_over_xip1,xi,rho0,rho,lambda_x,gamma_4_3_2,delta - - mxratio = 0.0 - - if (n_ax >= 0.0) then ! N_ax is used to control which hydrometeors need to be computed - xi = d_x/(alpha_x + b_x - n_bx + 1.0) - rho0 = 1.29 - sigma = (gamma2/(gamma1*c_x))*(n_ax*a_x*gamma2)**xi - one_over_xip1 = 1.0/(xi + 1.0) - gamma_4_3_2 = 0.5*gamma4/gamma3 - delta = (alpha_x + b_x + d_x - n_bx + 1.0) - - do k=1,Nlevels - do j=1,Ncolumns - do i=1,Npoints - if ((prec_frac(i,j,k)==prec_type).or.(prec_frac(i,j,k)==3.)) then - rho = p(i,k)/(287.05*T(i,k)) - mxratio(i,j,k)=(flux(i,k)*((rho/rho0)**g_x)*sigma)**one_over_xip1 - mxratio(i,j,k)=mxratio(i,j,k)/rho - ! Compute effective radius - if ((reff(i,j,k) <= 0.0).and.(flux(i,k) /= 0.0)) then - lambda_x = (a_x*c_x*((rho0/rho)**g_x)*n_ax*gamma1/flux(i,k))**(1./delta) - reff(i,j,k) = gamma_4_3_2/lambda_x - endif - endif - enddo - enddo - enddo - endif -END SUBROUTINE COSP_PRECIP_MXRATIO - - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------- SUBROUTINE ZERO_INT ------------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -ELEMENTAL SUBROUTINE ZERO_INT(x,y01,y02,y03,y04,y05,y06,y07,y08,y09,y10, & - y11,y12,y13,y14,y15,y16,y17,y18,y19,y20, & - y21,y22,y23,y24,y25,y26,y27,y28,y29,y30) - - integer,intent(inout) :: x - integer,intent(inout),optional :: y01,y02,y03,y04,y05,y06,y07,y08,y09,y10, & - y11,y12,y13,y14,y15,y16,y17,y18,y19,y20, & - y21,y22,y23,y24,y25,y26,y27,y28,y29,y30 - x = 0 - if (present(y01)) y01 = 0 - if (present(y02)) y02 = 0 - if (present(y03)) y03 = 0 - if (present(y04)) y04 = 0 - if (present(y05)) y05 = 0 - if (present(y06)) y06 = 0 - if (present(y07)) y07 = 0 - if (present(y08)) y08 = 0 - if (present(y09)) y09 = 0 - if (present(y10)) y10 = 0 - if (present(y11)) y11 = 0 - if (present(y12)) y12 = 0 - if (present(y13)) y13 = 0 - if (present(y14)) y14 = 0 - if (present(y15)) y15 = 0 - if (present(y16)) y16 = 0 - if (present(y17)) y17 = 0 - if (present(y18)) y18 = 0 - if (present(y19)) y19 = 0 - if (present(y20)) y20 = 0 - if (present(y21)) y21 = 0 - if (present(y22)) y22 = 0 - if (present(y23)) y23 = 0 - if (present(y24)) y24 = 0 - if (present(y25)) y25 = 0 - if (present(y26)) y26 = 0 - if (present(y27)) y27 = 0 - if (present(y28)) y28 = 0 - if (present(y29)) y29 = 0 - if (present(y30)) y30 = 0 -END SUBROUTINE ZERO_INT - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------- SUBROUTINE ZERO_REAL ------------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -ELEMENTAL SUBROUTINE ZERO_REAL(x,y01,y02,y03,y04,y05,y06,y07,y08,y09,y10, & - y11,y12,y13,y14,y15,y16,y17,y18,y19,y20, & - y21,y22,y23,y24,y25,y26,y27,y28,y29,y30) - - real,intent(inout) :: x - real,intent(inout),optional :: y01,y02,y03,y04,y05,y06,y07,y08,y09,y10, & - y11,y12,y13,y14,y15,y16,y17,y18,y19,y20, & - y21,y22,y23,y24,y25,y26,y27,y28,y29,y30 - x = 0.0 - if (present(y01)) y01 = 0.0 - if (present(y02)) y02 = 0.0 - if (present(y03)) y03 = 0.0 - if (present(y04)) y04 = 0.0 - if (present(y05)) y05 = 0.0 - if (present(y06)) y06 = 0.0 - if (present(y07)) y07 = 0.0 - if (present(y08)) y08 = 0.0 - if (present(y09)) y09 = 0.0 - if (present(y10)) y10 = 0.0 - if (present(y11)) y11 = 0.0 - if (present(y12)) y12 = 0.0 - if (present(y13)) y13 = 0.0 - if (present(y14)) y14 = 0.0 - if (present(y15)) y15 = 0.0 - if (present(y16)) y16 = 0.0 - if (present(y17)) y17 = 0.0 - if (present(y18)) y18 = 0.0 - if (present(y19)) y19 = 0.0 - if (present(y20)) y20 = 0.0 - if (present(y21)) y21 = 0.0 - if (present(y22)) y22 = 0.0 - if (present(y23)) y23 = 0.0 - if (present(y24)) y24 = 0.0 - if (present(y25)) y25 = 0.0 - if (present(y26)) y26 = 0.0 - if (present(y27)) y27 = 0.0 - if (present(y28)) y28 = 0.0 - if (present(y29)) y29 = 0.0 - if (present(y30)) y30 = 0.0 -END SUBROUTINE ZERO_REAL - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!--------------------- SUBROUTINE Z_TO_DBZ_2D -------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE Z_TO_DBZ_2D(mdi,z) - real,intent(in) :: mdi - real,dimension(:,:),intent(inout) :: z - ! Reflectivity Z: - ! Input in [m3] - ! Output in dBZ, with Z in [mm6 m-3] - - ! 1.e18 to convert from [m3] to [mm6 m-3] - z = 1.e18*z - where (z > 1.0e-6) ! Limit to -60 dBZ - z = 10.0*log10(z) - elsewhere - z = mdi - end where - END SUBROUTINE Z_TO_DBZ_2D -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!--------------------- SUBROUTINE Z_TO_DBZ_3D -------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE Z_TO_DBZ_3D(mdi,z) - real,intent(in) :: mdi - real,dimension(:,:,:),intent(inout) :: z - ! Reflectivity Z: - ! Input in [m3] - ! Output in dBZ, with Z in [mm6 m-3] - - ! 1.e18 to convert from [m3] to [mm6 m-3] - z = 1.e18*z - where (z > 1.0e-6) ! Limit to -60 dBZ - z = 10.0*log10(z) - elsewhere - z = mdi - end where - END SUBROUTINE Z_TO_DBZ_3D -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!--------------------- SUBROUTINE Z_TO_DBZ_4D -------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE Z_TO_DBZ_4D(mdi,z) - real,intent(in) :: mdi - real,dimension(:,:,:,:),intent(inout) :: z - ! Reflectivity Z: - ! Input in [m3] - ! Output in dBZ, with Z in [mm6 m-3] - - ! 1.e18 to convert from [m3] to [mm6 m-3] - z = 1.e18*z - where (z > 1.0e-6) ! Limit to -60 dBZ - z = 10.0*log10(z) - elsewhere - z = mdi - end where - END SUBROUTINE Z_TO_DBZ_4D - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!----------------- SUBROUTINES COSP_CHECK_INPUT_1D --------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE COSP_CHECK_INPUT_1D(vname,x,min_val,max_val) - character(len=*) :: vname - real,intent(inout) :: x(:) - real,intent(in),optional :: min_val,max_val - logical :: l_min,l_max - character(len=128) :: pro_name='COSP_CHECK_INPUT_1D' - - l_min=.false. - l_max=.false. - - if (present(min_val)) then -! if (x < min_val) x = min_val - if (any(x < min_val)) then - l_min = .true. - where (x < min_val) - x = min_val - end where - endif - endif - if (present(max_val)) then -! if (x > max_val) x = max_val - if (any(x > max_val)) then - l_max = .true. - where (x > max_val) - x = max_val - end where - endif - endif - - if (l_min) print *,'----- WARNING: '//trim(pro_name)//': minimum value of '//trim(vname)//' set to: ',min_val - if (l_max) print *,'----- WARNING: '//trim(pro_name)//': maximum value of '//trim(vname)//' set to: ',max_val - END SUBROUTINE COSP_CHECK_INPUT_1D -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!----------------- SUBROUTINES COSP_CHECK_INPUT_2D --------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE COSP_CHECK_INPUT_2D(vname,x,min_val,max_val) - character(len=*) :: vname - real,intent(inout) :: x(:,:) - real,intent(in),optional :: min_val,max_val - logical :: l_min,l_max - character(len=128) :: pro_name='COSP_CHECK_INPUT_2D' - - l_min=.false. - l_max=.false. - - if (present(min_val)) then -! if (x < min_val) x = min_val - if (any(x < min_val)) then - l_min = .true. - where (x < min_val) - x = min_val - end where - endif - endif - if (present(max_val)) then -! if (x > max_val) x = max_val - if (any(x > max_val)) then - l_max = .true. - where (x > max_val) - x = max_val - end where - endif - endif - - if (l_min) print *,'----- WARNING: '//trim(pro_name)//': minimum value of '//trim(vname)//' set to: ',min_val - if (l_max) print *,'----- WARNING: '//trim(pro_name)//': maximum value of '//trim(vname)//' set to: ',max_val - END SUBROUTINE COSP_CHECK_INPUT_2D -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!----------------- SUBROUTINES COSP_CHECK_INPUT_3D --------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE COSP_CHECK_INPUT_3D(vname,x,min_val,max_val) - character(len=*) :: vname - real,intent(inout) :: x(:,:,:) - real,intent(in),optional :: min_val,max_val - logical :: l_min,l_max - character(len=128) :: pro_name='COSP_CHECK_INPUT_3D' - - l_min=.false. - l_max=.false. - - if (present(min_val)) then -! if (x < min_val) x = min_val - if (any(x < min_val)) then - l_min = .true. - where (x < min_val) - x = min_val - end where - endif - endif - if (present(max_val)) then -! if (x > max_val) x = max_val - if (any(x > max_val)) then - l_max = .true. - where (x > max_val) - x = max_val - end where - endif - endif - - !if (l_min) print *,'----- WARNING: '//trim(pro_name)//': minimum value of '//trim(vname)//' set to: ',min_val - !if (l_max) print *,'----- WARNING: '//trim(pro_name)//': maximum value of '//trim(vname)//' set to: ',max_val - END SUBROUTINE COSP_CHECK_INPUT_3D - - -END MODULE MOD_COSP_UTILS diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/geos5_cosp_const.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/geos5_cosp_const.F90 deleted file mode 100644 index 09d3d11e0..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/geos5_cosp_const.F90 +++ /dev/null @@ -1,12 +0,0 @@ -! -! constants needed for geos5 implemenation of cosp - -MODULE MOD_GEOS5_COSP_CONST - IMPLICIT NONE - - !integer,parameter :: ncolumns = 30 -! integer,parameter :: ncolumns = 20 -! integer,parameter :: N_HYDRO_LS= 2 - integer,parameter :: N_HYDRO_LS= 4 - -END MODULE MOD_GEOS5_COSP_CONST diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/geos5_read.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/geos5_read.f90 deleted file mode 100644 index caa620e81..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/geos5_read.f90 +++ /dev/null @@ -1,68 +0,0 @@ -MODULE MOD_GEOS_IO - - USE netcdf - - IMPLICIT NONE - INCLUDE 'netcdf.inc' - - -contains -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!----------------- SUBROUTINE NC_READ_INPUT_FILE ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - SUBROUTINE NC_READ_INPUT_FILE(fname,Npnts,Nl,Nhydro,lon,lat,p,ph,z,zh,T,qv,rh,tca,cca, & - mr_lsliq,mr_lsice,mr_ccliq,mr_ccice,fl_lsrain,fl_lssnow,fl_ccrain,fl_ccsnow,Reff, & - dtau_s,dtau_c,dem_s,dem_c,skt,landmask,emsfc_lw,mode,Nlon,Nlat) - - !USE netcdf - - !IMPLICIT NONE - - - - !INCLUDE 'netcdf.inc' - - !Arguments - character(len=512),intent(in) :: fname ! File name - integer,intent(in) :: Npnts,Nl,Nhydro - real,dimension(Npnts),intent(out) :: lon,lat - real,dimension(Npnts,Nl),target,intent(out) :: p,ph,z,zh,T,qv,rh,tca,cca, & - mr_lsliq,mr_lsice,mr_ccliq,mr_ccice,fl_lsrain,fl_lssnow,fl_ccrain,fl_ccsnow, & - dtau_s,dtau_c,dem_s,dem_c - real,dimension(Npnts,Nl,Nhydro),intent(out) :: Reff - real,dimension(Npnts),intent(out) :: skt,landmask - real,intent(out) :: emsfc_lw - integer,intent(out) :: mode,Nlon,Nlat - - !Local variables - integer :: Npoints,Nlevels,i,j,k - character(len=128) :: vname - integer,parameter :: NMAX_DIM=5 - integer :: vrank,vdimid(NMAX_DIM) - character(len=MAXNCNAM) :: dimname(NMAX_DIM) - integer :: ncid,vid,ndims,nvars,ngatts,recdim,dimsize(NMAX_DIM) - integer :: errst - logical :: Llat,Llon,Lpoint - integer :: Na,Nb,Nc,Nd,Ne - real,dimension(Npnts) :: ll - integer,dimension(:),allocatable :: plon,plat - real,allocatable :: x1(:),x2(:,:),x3(:,:,:),x4(:,:,:,:),x5(:,:,:,:,:) ! Temporary arrays - - - - - ! Open file - errst = nf90_open(fname, nf90_nowrite, ncid) - - ! Get information about dimensions. Curtain mode or lat/lon mode? - Llat =.false. - Llon =.false. - Lpoint=.false. - errst = nf90_inquire(ncid, ndims, nvars, ngatts, recdim) - - - - ! Close file - call ncclos(ncid,errst) - END SUBROUTINE NC_READ_INPUT_FILE -end MODULE MOD_GEOS_IO diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/icarus.f b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/icarus.f deleted file mode 100644 index affb4c527..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/icarus.f +++ /dev/null @@ -1,1273 +0,0 @@ - SUBROUTINE ICARUS( - & debug, - & debugcol, - & npoints, - & sunlit, - & nlev, - & ncol, - & pfull, - & phalf, - & qv, - & cc, - & conv, - & dtau_s, - & dtau_c, - & top_height, - & top_height_direction, - & overlap, - & frac_out, - & skt, - & emsfc_lw, - & at, - & dem_s, - & dem_c, - & fq_isccp, - & totalcldarea, - & meanptop, - & meantaucld, - & meanalbedocld, - & meantb, - & meantbclr, - & boxtau, - & boxptop - &) - -!$Id$ - -! *****************************COPYRIGHT**************************** -! (c) 2009, Lawrence Livermore National Security Limited Liability -! Corporation. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the -! following conditions are met: -! -! * Redistributions of source code must retain the above -! copyright notice, this list of conditions and the following -! disclaimer. -! * Redistributions in binary form must reproduce the above -! copyright notice, this list of conditions and the following -! disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Lawrence Livermore National Security -! Limited Liability Corporation nor the names of its -! contributors may be used to endorse or promote products -! derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -! OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -! LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -! THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE -! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -! -! *****************************COPYRIGHT******************************* -! *****************************COPYRIGHT******************************* -! *****************************COPYRIGHT******************************* -! *****************************COPYRIGHT******************************* - - implicit none - -! NOTE: the maximum number of levels and columns is set by -! the following parameter statement - - INTEGER ncolprint - -! ----- -! Input -! ----- - - INTEGER npoints ! number of model points in the horizontal - INTEGER nlev ! number of model levels in column - INTEGER ncol ! number of subcolumns - - INTEGER sunlit(npoints) ! 1 for day points, 0 for night time - - REAL pfull(npoints,nlev) - ! pressure of full model levels (Pascals) - ! pfull(npoints,1) is top level of model - ! pfull(npoints,nlev) is bot of model - - REAL phalf(npoints,nlev+1) - ! pressure of half model levels (Pascals) - ! phalf(npoints,1) is top of model - ! phalf(npoints,nlev+1) is the surface pressure - - REAL qv(npoints,nlev) - ! water vapor specific humidity (kg vapor/ kg air) - ! on full model levels - - REAL cc(npoints,nlev) - ! input cloud cover in each model level (fraction) - ! NOTE: This is the HORIZONTAL area of each - ! grid box covered by clouds - - REAL conv(npoints,nlev) - ! input convective cloud cover in each model - ! level (fraction) - ! NOTE: This is the HORIZONTAL area of each - ! grid box covered by convective clouds - - REAL dtau_s(npoints,nlev) - ! mean 0.67 micron optical depth of stratiform - ! clouds in each model level - ! NOTE: this the cloud optical depth of only the - ! cloudy part of the grid box, it is not weighted - ! with the 0 cloud optical depth of the clear - ! part of the grid box - - REAL dtau_c(npoints,nlev) - ! mean 0.67 micron optical depth of convective - ! clouds in each - ! model level. Same note applies as in dtau_s. - - INTEGER overlap ! overlap type - ! 1=max - ! 2=rand - ! 3=max/rand - - INTEGER top_height ! 1 = adjust top height using both a computed - ! infrared brightness temperature and the visible - ! optical depth to adjust cloud top pressure. Note - ! that this calculation is most appropriate to compare - ! to ISCCP data during sunlit hours. - ! 2 = do not adjust top height, that is cloud top - ! pressure is the actual cloud top pressure - ! in the model - ! 3 = adjust top height using only the computed - ! infrared brightness temperature. Note that this - ! calculation is most appropriate to compare to ISCCP - ! IR only algortihm (i.e. you can compare to nighttime - ! ISCCP data with this option) - - INTEGER top_height_direction ! direction for finding atmosphere pressure level - ! with interpolated temperature equal to the radiance - ! determined cloud-top temperature - ! - ! 1 = find the *lowest* altitude (highest pressure) level - ! with interpolated temperature equal to the radiance - ! determined cloud-top temperature - ! - ! 2 = find the *highest* altitude (lowest pressure) level - ! with interpolated temperature equal to the radiance - ! determined cloud-top temperature - ! - ! ONLY APPLICABLE IF top_height EQUALS 1 or 3 - ! ! - ! 1 = old setting: matches all versions of - ! ISCCP simulator with versions numbers 3.5.1 and lower - ! - ! 2 = default setting: for version numbers 4.0 and higher -! -! The following input variables are used only if top_height = 1 or top_height = 3 -! - REAL skt(npoints) ! skin Temperature (K) - REAL emsfc_lw ! 10.5 micron emissivity of surface (fraction) - REAL at(npoints,nlev) ! temperature in each model level (K) - REAL dem_s(npoints,nlev) ! 10.5 micron longwave emissivity of stratiform - ! clouds in each - ! model level. Same note applies as in dtau_s. - REAL dem_c(npoints,nlev) ! 10.5 micron longwave emissivity of convective - ! clouds in each - ! model level. Same note applies as in dtau_s. - - REAL frac_out(npoints,ncol,nlev) ! boxes gridbox divided up into - ! Equivalent of BOX in original version, but - ! indexed by column then row, rather than - ! by row then column - - - -! ------ -! Output -! ------ - - REAL fq_isccp(npoints,7,7) ! the fraction of the model grid box covered by - ! each of the 49 ISCCP D level cloud types - - REAL totalcldarea(npoints) ! the fraction of model grid box columns - ! with cloud somewhere in them. NOTE: This diagnostic - ! does not count model clouds with tau < isccp_taumin - ! Thus this diagnostic does not equal the sum over all entries of fq_isccp. - ! However, this diagnostic does equal the sum over entries of fq_isccp with - ! itau = 2:7 (omitting itau = 1) - - - ! The following three means are averages only over the cloudy areas with tau > isccp_taumin. - ! If no clouds with tau > isccp_taumin are in grid box all three quantities should equal zero. - - REAL meanptop(npoints) ! mean cloud top pressure (mb) - linear averaging - ! in cloud top pressure. - - REAL meantaucld(npoints) ! mean optical thickness - ! linear averaging in albedo performed. - - real meanalbedocld(npoints) ! mean cloud albedo - ! linear averaging in albedo performed - - real meantb(npoints) ! mean all-sky 10.5 micron brightness temperature - - real meantbclr(npoints) ! mean clear-sky 10.5 micron brightness temperature - - REAL boxtau(npoints,ncol) ! optical thickness in each column - - REAL boxptop(npoints,ncol) ! cloud top pressure (mb) in each column - - -! -! ------ -! Working variables added when program updated to mimic Mark Webb's PV-Wave code -! ------ - - REAL dem(npoints,ncol),bb(npoints) ! working variables for 10.5 micron longwave - ! emissivity in part of - ! gridbox under consideration - - REAL ptrop(npoints) - REAL attrop(npoints) - REAL attropmin (npoints) - REAL atmax(npoints) - REAL btcmin(npoints) - REAL transmax(npoints) - - INTEGER i,j,ilev,ibox,itrop(npoints) - INTEGER ipres(npoints) - INTEGER itau(npoints),ilev2 - INTEGER acc(nlev,ncol) - INTEGER match(npoints,nlev-1) - INTEGER nmatch(npoints) - INTEGER levmatch(npoints,ncol) - - !variables needed for water vapor continuum absorption - real fluxtop_clrsky(npoints),trans_layers_above_clrsky(npoints) - real taumin(npoints) - real dem_wv(npoints,nlev), wtmair, wtmh20, Navo, grav, pstd, t0 - real press(npoints), dpress(npoints), atmden(npoints) - real rvh20(npoints), wk(npoints), rhoave(npoints) - real rh20s(npoints), rfrgn(npoints) - real tmpexp(npoints),tauwv(npoints) - - character*1 cchar(6),cchar_realtops(6) - integer icycle - REAL tau(npoints,ncol) - LOGICAL box_cloudy(npoints,ncol) - REAL tb(npoints,ncol) - REAL ptop(npoints,ncol) - REAL emcld(npoints,ncol) - REAL fluxtop(npoints,ncol) - REAL trans_layers_above(npoints,ncol) - real isccp_taumin,fluxtopinit(npoints),tauir(npoints) - REAL albedocld(npoints,ncol) - real boxarea - integer debug ! set to non-zero value to print out inputs - ! with step debug - integer debugcol ! set to non-zero value to print out column - ! decomposition with step debugcol - integer rangevec(npoints),rangeerror - - integer index1(npoints),num1,jj,k1,k2 - real rec2p13,tauchk,logp,logp1,logp2,atd - real output_missing_value - - character*10 ftn09 - - DATA isccp_taumin / 0.3 / - DATA output_missing_value / -1.E+30 / - DATA cchar / ' ','-','1','+','I','+'/ - DATA cchar_realtops / ' ',' ','1','1','I','I'/ - -! ------ End duplicate definitions common to wrapper routine - - tauchk = -1.*log(0.9999999) - rec2p13=1./2.13 - - ncolprint=0 - - if ( debug.ne.0 ) then - j=1 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write(6,'(a10)') 'debug=' - write(6,'(8I10)') debug - write(6,'(a10)') 'debugcol=' - write(6,'(8I10)') debugcol - write(6,'(a10)') 'npoints=' - write(6,'(8I10)') npoints - write(6,'(a10)') 'nlev=' - write(6,'(8I10)') nlev - write(6,'(a10)') 'ncol=' - write(6,'(8I10)') ncol - write(6,'(a11)') 'top_height=' - write(6,'(8I10)') top_height - write(6,'(a21)') 'top_height_direction=' - write(6,'(8I10)') top_height_direction - write(6,'(a10)') 'overlap=' - write(6,'(8I10)') overlap - write(6,'(a10)') 'emsfc_lw=' - write(6,'(8f10.2)') emsfc_lw - do j=1,npoints,debug - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write(6,'(a10)') 'sunlit=' - write(6,'(8I10)') sunlit(j) - write(6,'(a10)') 'pfull=' - write(6,'(8f10.2)') (pfull(j,i),i=1,nlev) - write(6,'(a10)') 'phalf=' - write(6,'(8f10.2)') (phalf(j,i),i=1,nlev+1) - write(6,'(a10)') 'qv=' - write(6,'(8f10.3)') (qv(j,i),i=1,nlev) - write(6,'(a10)') 'cc=' - write(6,'(8f10.3)') (cc(j,i),i=1,nlev) - write(6,'(a10)') 'conv=' - write(6,'(8f10.2)') (conv(j,i),i=1,nlev) - write(6,'(a10)') 'dtau_s=' - write(6,'(8g12.5)') (dtau_s(j,i),i=1,nlev) - write(6,'(a10)') 'dtau_c=' - write(6,'(8f10.2)') (dtau_c(j,i),i=1,nlev) - write(6,'(a10)') 'skt=' - write(6,'(8f10.2)') skt(j) - write(6,'(a10)') 'at=' - write(6,'(8f10.2)') (at(j,i),i=1,nlev) - write(6,'(a10)') 'dem_s=' - write(6,'(8f10.3)') (dem_s(j,i),i=1,nlev) - write(6,'(a10)') 'dem_c=' - write(6,'(8f10.3)') (dem_c(j,i),i=1,nlev) - enddo - endif - -! ---------------------------------------------------! - - if (ncolprint.ne.0) then - do j=1,npoints,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - enddo - endif - - if (top_height .eq. 1 .or. top_height .eq. 3) then - - do j=1,npoints - ptrop(j)=5000. - attropmin(j) = 400. - atmax(j) = 0. - attrop(j) = 120. - itrop(j) = 1 - enddo - - do 12 ilev=1,nlev - do j=1,npoints - if (pfull(j,ilev) .lt. 40000. .and. - & pfull(j,ilev) .gt. 5000. .and. - & at(j,ilev) .lt. attropmin(j)) then - ptrop(j) = pfull(j,ilev) - attropmin(j) = at(j,ilev) - attrop(j) = attropmin(j) - itrop(j)=ilev - end if - enddo -12 continue - - do 13 ilev=1,nlev - do j=1,npoints - if (at(j,ilev) .gt. atmax(j) .and. - & ilev .ge. itrop(j)) atmax(j)=at(j,ilev) - enddo -13 continue - - end if - - - if (top_height .eq. 1 .or. top_height .eq. 3) then - do j=1,npoints - meantb(j) = 0. - meantbclr(j) = 0. - end do - else - do j=1,npoints - meantb(j) = output_missing_value - meantbclr(j) = output_missing_value - end do - end if - -! -----------------------------------------------------! - -! ---------------------------------------------------! - - do ilev=1,nlev - do j=1,npoints - - rangevec(j)=0 - - if (cc(j,ilev) .lt. 0. .or. cc(j,ilev) .gt. 1.) then -! error = cloud fraction less than zero -! error = cloud fraction greater than 1 - rangevec(j)=rangevec(j)+1 - endif - - if (conv(j,ilev) .lt. 0. .or. conv(j,ilev) .gt. 1.) then -! ' error = convective cloud fraction less than zero' -! ' error = convective cloud fraction greater than 1' - rangevec(j)=rangevec(j)+2 - endif - - if (dtau_s(j,ilev) .lt. 0.) then -! ' error = stratiform cloud opt. depth less than zero' - rangevec(j)=rangevec(j)+4 - endif - - if (dtau_c(j,ilev) .lt. 0.) then -! ' error = convective cloud opt. depth less than zero' - rangevec(j)=rangevec(j)+8 - endif - - if (dem_s(j,ilev) .lt. 0. .or. dem_s(j,ilev) .gt. 1.) then -! ' error = stratiform cloud emissivity less than zero' -! ' error = stratiform cloud emissivity greater than 1' - rangevec(j)=rangevec(j)+16 - endif - - if (dem_c(j,ilev) .lt. 0. .or. dem_c(j,ilev) .gt. 1.) then -! ' error = convective cloud emissivity less than zero' -! ' error = convective cloud emissivity greater than 1' - rangevec(j)=rangevec(j)+32 - endif - enddo - - rangeerror=0 - do j=1,npoints - rangeerror=rangeerror+rangevec(j) - enddo - - if (rangeerror.ne.0) then - write (6,*) 'Input variable out of range' - write (6,*) 'rangevec:' - write (6,*) rangevec - flush(6) - STOP - endif - enddo - -! -! ---------------------------------------------------! - - -! -! ---------------------------------------------------! -! COMPUTE CLOUD OPTICAL DEPTH FOR EACH COLUMN and -! put into vector tau - - !initialize tau and albedocld to zero - do 15 ibox=1,ncol - do j=1,npoints - tau(j,ibox)=0. - albedocld(j,ibox)=0. - boxtau(j,ibox)=output_missing_value - boxptop(j,ibox)=output_missing_value - box_cloudy(j,ibox)=.false. - enddo -15 continue - - !compute total cloud optical depth for each column - do ilev=1,nlev - !increment tau for each of the boxes - do ibox=1,ncol - do j=1,npoints - if (frac_out(j,ibox,ilev).eq.1) then - tau(j,ibox)=tau(j,ibox) - & + dtau_s(j,ilev) - endif - if (frac_out(j,ibox,ilev).eq.2) then - tau(j,ibox)=tau(j,ibox) - & + dtau_c(j,ilev) - end if - enddo - enddo ! ibox - enddo ! ilev - if (ncolprint.ne.0) then - - do j=1,npoints ,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write(6,'(i2,1X,8(f7.2,1X))') - & ilev, - & (tau(j,ibox),ibox=1,ncolprint) - enddo - endif -! -! ---------------------------------------------------! - - - -! -! ---------------------------------------------------! -! COMPUTE INFRARED BRIGHTNESS TEMPERUATRES -! AND CLOUD TOP TEMPERATURE SATELLITE SHOULD SEE -! -! again this is only done if top_height = 1 or 3 -! -! fluxtop is the 10.5 micron radiance at the top of the -! atmosphere -! trans_layers_above is the total transmissivity in the layers -! above the current layer -! fluxtop_clrsky(j) and trans_layers_above_clrsky(j) are the clear -! sky versions of these quantities. - - if (top_height .eq. 1 .or. top_height .eq. 3) then - - - !---------------------------------------------------------------------- - ! - ! DO CLEAR SKY RADIANCE CALCULATION FIRST - ! - !compute water vapor continuum emissivity - !this treatment follows Schwarkzopf and Ramasamy - !JGR 1999,vol 104, pages 9467-9499. - !the emissivity is calculated at a wavenumber of 955 cm-1, - !or 10.47 microns - wtmair = 28.9644 - wtmh20 = 18.01534 - Navo = 6.023E+23 - grav = 9.806650E+02 - pstd = 1.013250E+06 - t0 = 296. - if (ncolprint .ne. 0) - & write(6,*) 'ilev pw (kg/m2) tauwv(j) dem_wv' - do 125 ilev=1,nlev - do j=1,npoints - !press and dpress are dyne/cm2 = Pascals *10 - press(j) = pfull(j,ilev)*10. - dpress(j) = (phalf(j,ilev+1)-phalf(j,ilev))*10 - !atmden = g/cm2 = kg/m2 / 10 - atmden(j) = dpress(j)/grav - rvh20(j) = qv(j,ilev)*wtmair/wtmh20 - wk(j) = rvh20(j)*Navo*atmden(j)/wtmair - rhoave(j) = (press(j)/pstd)*(t0/at(j,ilev)) - rh20s(j) = rvh20(j)*rhoave(j) - rfrgn(j) = rhoave(j)-rh20s(j) - tmpexp(j) = exp(-0.02*(at(j,ilev)-t0)) - tauwv(j) = wk(j)*1.e-20*( - & (0.0224697*rh20s(j)*tmpexp(j)) + - & (3.41817e-7*rfrgn(j)) )*0.98 - dem_wv(j,ilev) = 1. - exp( -1. * tauwv(j)) - enddo - if (ncolprint .ne. 0) then - do j=1,npoints ,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write(6,'(i2,1X,3(f8.3,3X))') ilev, - & qv(j,ilev)*(phalf(j,ilev+1)-phalf(j,ilev))/(grav/100.), - & tauwv(j),dem_wv(j,ilev) - enddo - endif -125 continue - - !initialize variables - do j=1,npoints - fluxtop_clrsky(j) = 0. - trans_layers_above_clrsky(j)=1. - enddo - - do ilev=1,nlev - do j=1,npoints - - ! Black body emission at temperature of the layer - - bb(j)=1 / ( exp(1307.27/at(j,ilev)) - 1. ) - !bb(j)= 5.67e-8*at(j,ilev)**4 - - ! increase TOA flux by flux emitted from layer - ! times total transmittance in layers above - - fluxtop_clrsky(j) = fluxtop_clrsky(j) - & + dem_wv(j,ilev)*bb(j)*trans_layers_above_clrsky(j) - - ! update trans_layers_above with transmissivity - ! from this layer for next time around loop - - trans_layers_above_clrsky(j)= - & trans_layers_above_clrsky(j)*(1.-dem_wv(j,ilev)) - - - enddo - if (ncolprint.ne.0) then - do j=1,npoints ,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write (6,'(a)') 'ilev:' - write (6,'(I2)') ilev - - write (6,'(a)') - & 'emiss_layer,100.*bb(j),100.*f,total_trans:' - write (6,'(4(f7.2,1X))') dem_wv(j,ilev),100.*bb(j), - & 100.*fluxtop_clrsky(j),trans_layers_above_clrsky(j) - enddo - endif - - enddo !loop over level - - do j=1,npoints - !add in surface emission - bb(j)=1/( exp(1307.27/skt(j)) - 1. ) - !bb(j)=5.67e-8*skt(j)**4 - - fluxtop_clrsky(j) = fluxtop_clrsky(j) + emsfc_lw * bb(j) - & * trans_layers_above_clrsky(j) - - !clear sky brightness temperature - meantbclr(j) = 1307.27/(log(1.+(1./fluxtop_clrsky(j)))) - - enddo - - if (ncolprint.ne.0) then - do j=1,npoints ,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write (6,'(a)') 'id:' - write (6,'(a)') 'surface' - - write (6,'(a)') 'emsfc,100.*bb(j),100.*f,total_trans:' - write (6,'(5(f7.2,1X))') emsfc_lw,100.*bb(j), - & 100.*fluxtop_clrsky(j), - & trans_layers_above_clrsky(j), meantbclr(j) - enddo - endif - - - ! - ! END OF CLEAR SKY CALCULATION - ! - !---------------------------------------------------------------- - - - - if (ncolprint.ne.0) then - - do j=1,npoints ,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write (6,'(a)') 'ts:' - write (6,'(8f7.2)') (skt(j),ibox=1,ncolprint) - - write (6,'(a)') 'ta_rev:' - write (6,'(8f7.2)') - & ((at(j,ilev2),ibox=1,ncolprint),ilev2=1,nlev) - - enddo - endif - !loop over columns - do ibox=1,ncol - do j=1,npoints - fluxtop(j,ibox)=0. - trans_layers_above(j,ibox)=1. - enddo - enddo - - do ilev=1,nlev - do j=1,npoints - ! Black body emission at temperature of the layer - - bb(j)=1 / ( exp(1307.27/at(j,ilev)) - 1. ) - !bb(j)= 5.67e-8*at(j,ilev)**4 - enddo - - do ibox=1,ncol - do j=1,npoints - - ! emissivity for point in this layer - if (frac_out(j,ibox,ilev).eq.1) then - dem(j,ibox)= 1. - - & ( (1. - dem_wv(j,ilev)) * (1. - dem_s(j,ilev)) ) - else if (frac_out(j,ibox,ilev).eq.2) then - dem(j,ibox)= 1. - - & ( (1. - dem_wv(j,ilev)) * (1. - dem_c(j,ilev)) ) - else - dem(j,ibox)= dem_wv(j,ilev) - end if - - - ! increase TOA flux by flux emitted from layer - ! times total transmittance in layers above - - fluxtop(j,ibox) = fluxtop(j,ibox) - & + dem(j,ibox) * bb(j) - & * trans_layers_above(j,ibox) - - ! update trans_layers_above with transmissivity - ! from this layer for next time around loop - - trans_layers_above(j,ibox)= - & trans_layers_above(j,ibox)*(1.-dem(j,ibox)) - - enddo ! j - enddo ! ibox - - if (ncolprint.ne.0) then - do j=1,npoints,1000 - write (6,'(a)') 'ilev:' - write (6,'(I2)') ilev - - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write (6,'(a)') 'emiss_layer:' - write (6,'(8f7.2)') (dem(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') '100.*bb(j):' - write (6,'(8f7.2)') (100.*bb(j),ibox=1,ncolprint) - - write (6,'(a)') '100.*f:' - write (6,'(8f7.2)') - & (100.*fluxtop(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'total_trans:' - write (6,'(8f7.2)') - & (trans_layers_above(j,ibox),ibox=1,ncolprint) - enddo - endif - - enddo ! ilev - - - do j=1,npoints - !add in surface emission - bb(j)=1/( exp(1307.27/skt(j)) - 1. ) - !bb(j)=5.67e-8*skt(j)**4 - end do - - do ibox=1,ncol - do j=1,npoints - - !add in surface emission - - fluxtop(j,ibox) = fluxtop(j,ibox) - & + emsfc_lw * bb(j) - & * trans_layers_above(j,ibox) - - end do - end do - - !calculate mean infrared brightness temperature - do ibox=1,ncol - do j=1,npoints - meantb(j) = meantb(j)+1307.27/(log(1.+(1./fluxtop(j,ibox)))) - end do - end do - do j=1, npoints - meantb(j) = meantb(j) / real(ncol) - end do - - if (ncolprint.ne.0) then - - do j=1,npoints ,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write (6,'(a)') 'id:' - write (6,'(a)') 'surface' - - write (6,'(a)') 'emiss_layer:' - write (6,'(8f7.2)') (dem(1,ibox),ibox=1,ncolprint) - - write (6,'(a)') '100.*bb(j):' - write (6,'(8f7.2)') (100.*bb(j),ibox=1,ncolprint) - - write (6,'(a)') '100.*f:' - write (6,'(8f7.2)') (100.*fluxtop(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'meantb(j):' - write (6,'(8f7.2)') (meantb(j),ibox=1,ncolprint) - - end do - endif - - !now that you have the top of atmosphere radiance account - !for ISCCP procedures to determine cloud top temperature - - !account for partially transmitting cloud recompute flux - !ISCCP would see assuming a single layer cloud - !note choice here of 2.13, as it is primarily ice - !clouds which have partial emissivity and need the - !adjustment performed in this section - ! - !If it turns out that the cloud brightness temperature - !is greater than 260K, then the liquid cloud conversion - !factor of 2.56 is used. - ! - !Note that this is discussed on pages 85-87 of - !the ISCCP D level documentation (Rossow et al. 1996) - - do j=1,npoints - !compute minimum brightness temperature and optical depth - btcmin(j) = 1. / ( exp(1307.27/(attrop(j)-5.)) - 1. ) - enddo - do ibox=1,ncol - do j=1,npoints - if( fluxtop_clrsky(j)-btcmin(j) .ne. 0.0 ) then - transmax(j) = (fluxtop(j,ibox) -btcmin(j)) - & /(fluxtop_clrsky(j)-btcmin(j)) - else - transmax(j) = 1.0 - endif - !note that the initial setting of tauir(j) is needed so that - !tauir(j) has a realistic value should the next if block be - !bypassed - tauir(j) = tau(j,ibox) * rec2p13 - taumin(j) = -1. * log(max(min(transmax(j),0.9999999),0.001)) - - enddo - - if (top_height .eq. 1) then - do j=1,npoints - if (transmax(j) .gt. 0.001 .and. - & transmax(j) .le. 0.9999999) then - fluxtopinit(j) = fluxtop(j,ibox) - tauir(j) = tau(j,ibox) *rec2p13 - endif - enddo - do icycle=1,2 - do j=1,npoints - if (tau(j,ibox) .gt. (tauchk )) then - if (transmax(j) .gt. 0.001 .and. - & transmax(j) .le. 0.9999999) then - emcld(j,ibox) = 1. - exp(-1. * tauir(j) ) - fluxtop(j,ibox) = fluxtopinit(j) - - & ((1.-emcld(j,ibox))*fluxtop_clrsky(j)) - fluxtop(j,ibox)=max(1.E-06, - & (fluxtop(j,ibox)/emcld(j,ibox))) - tb(j,ibox)= 1307.27 - & / (log(1. + (1./fluxtop(j,ibox)))) - if (tb(j,ibox) .gt. 260.) then - tauir(j) = tau(j,ibox) / 2.56 - end if - end if - end if - enddo - enddo - - endif - - do j=1,npoints - if (tau(j,ibox) .gt. (tauchk )) then - !cloudy box - !NOTE: tb is the cloud-top temperature not infrared brightness temperature - !at this point in the code - tb(j,ibox)= 1307.27/ (log(1. + (1./fluxtop(j,ibox)))) - if (top_height.eq.1.and.tauir(j).lt.taumin(j)) then - tb(j,ibox) = attrop(j) - 5. - tau(j,ibox) = 2.13*taumin(j) - end if - else - !clear sky brightness temperature - tb(j,ibox) = meantbclr(j) - end if - enddo ! j - enddo ! ibox - - if (ncolprint.ne.0) then - - do j=1,npoints,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - - write (6,'(a)') 'attrop:' - write (6,'(8f7.2)') (attrop(j)) - - write (6,'(a)') 'btcmin:' - write (6,'(8f7.2)') (btcmin(j)) - - write (6,'(a)') 'fluxtop_clrsky*100:' - write (6,'(8f7.2)') - & (100.*fluxtop_clrsky(j)) - - write (6,'(a)') '100.*f_adj:' - write (6,'(8f7.2)') (100.*fluxtop(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'transmax:' - write (6,'(8f7.2)') (transmax(ibox),ibox=1,ncolprint) - - write (6,'(a)') 'tau:' - write (6,'(8f7.2)') (tau(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'emcld:' - write (6,'(8f7.2)') (emcld(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'total_trans:' - write (6,'(8f7.2)') - & (trans_layers_above(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'total_emiss:' - write (6,'(8f7.2)') - & (1.0-trans_layers_above(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'total_trans:' - write (6,'(8f7.2)') - & (trans_layers_above(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'ppout:' - write (6,'(8f7.2)') (tb(j,ibox),ibox=1,ncolprint) - enddo ! j - endif - - end if - -! ---------------------------------------------------! - -! -! ---------------------------------------------------! -! DETERMINE CLOUD TOP PRESSURE -! -! again the 2 methods differ according to whether -! or not you use the physical cloud top pressure (top_height = 2) -! or the radiatively determined cloud top pressure (top_height = 1 or 3) -! - - !compute cloud top pressure - do 30 ibox=1,ncol - !segregate according to optical thickness - if (top_height .eq. 1 .or. top_height .eq. 3) then - !find level whose temperature - !most closely matches brightness temperature - do j=1,npoints - nmatch(j)=0 - enddo - do 29 k1=1,nlev-1 - if (top_height_direction .eq. 2) then - ilev = nlev - k1 - else - ilev = k1 - end if - !cdir nodep - do j=1,npoints - if (ilev .ge. itrop(j)) then - if ((at(j,ilev) .ge. tb(j,ibox) .and. - & at(j,ilev+1) .le. tb(j,ibox)) .or. - & (at(j,ilev) .le. tb(j,ibox) .and. - & at(j,ilev+1) .ge. tb(j,ibox))) then - nmatch(j)=nmatch(j)+1 - match(j,nmatch(j))=ilev - end if - end if - enddo -29 continue - - do j=1,npoints - if (nmatch(j) .ge. 1) then - k1 = match(j,nmatch(j)) - k2 = k1 + 1 - logp1 = log(pfull(j,k1)) - logp2 = log(pfull(j,k2)) - atd = max(tauchk,abs(at(j,k2) - at(j,k1))) - logp=logp1+(logp2-logp1)*abs(tb(j,ibox)-at(j,k1))/atd - ptop(j,ibox) = exp(logp) - if(abs(pfull(j,k1)-ptop(j,ibox)) .lt. - & abs(pfull(j,k2)-ptop(j,ibox))) then - levmatch(j,ibox)=k1 - else - levmatch(j,ibox)=k2 - end if - else - if (tb(j,ibox) .le. attrop(j)) then - ptop(j,ibox)=ptrop(j) - levmatch(j,ibox)=itrop(j) - end if - if (tb(j,ibox) .ge. atmax(j)) then - ptop(j,ibox)=pfull(j,nlev) - levmatch(j,ibox)=nlev - end if - end if - enddo ! j - - else ! if (top_height .eq. 1 .or. top_height .eq. 3) - - do j=1,npoints - ptop(j,ibox)=0. - enddo - do ilev=1,nlev - do j=1,npoints - if ((ptop(j,ibox) .eq. 0. ) - & .and.(frac_out(j,ibox,ilev) .ne. 0)) then - ptop(j,ibox)=phalf(j,ilev) - levmatch(j,ibox)=ilev - end if - end do - end do - end if - - do j=1,npoints - if (tau(j,ibox) .le. (tauchk )) then - ptop(j,ibox)=0. - levmatch(j,ibox)=0 - endif - enddo - -30 continue - -! -! -! ---------------------------------------------------! - - -! -! ---------------------------------------------------! -! DETERMINE ISCCP CLOUD TYPE FREQUENCIES -! -! Now that ptop and tau have been determined, -! determine amount of each of the 49 ISCCP cloud -! types -! -! Also compute grid box mean cloud top pressure and -! optical thickness. The mean cloud top pressure and -! optical thickness are averages over the cloudy -! area only. The mean cloud top pressure is a linear -! average of the cloud top pressures. The mean cloud -! optical thickness is computed by converting optical -! thickness to an albedo, averaging in albedo units, -! then converting the average albedo back to a mean -! optical thickness. -! - - !compute isccp frequencies - - !reset frequencies - do 38 ilev=1,7 - do 38 ilev2=1,7 - do j=1,npoints ! - if (sunlit(j).eq.1 .or. top_height .eq. 3) then - fq_isccp(j,ilev,ilev2)= 0. - else - fq_isccp(j,ilev,ilev2)= output_missing_value - end if - enddo -38 continue - - !reset variables need for averaging cloud properties - do j=1,npoints - if (sunlit(j).eq.1 .or. top_height .eq. 3) then - totalcldarea(j) = 0. - meanalbedocld(j) = 0. - meanptop(j) = 0. - meantaucld(j) = 0. - else - totalcldarea(j) = output_missing_value - meanalbedocld(j) = output_missing_value - meanptop(j) = output_missing_value - meantaucld(j) = output_missing_value - end if - enddo ! j - - boxarea = 1./real(ncol) - - do 39 ibox=1,ncol - do j=1,npoints - - if (tau(j,ibox) .gt. (tauchk ) - & .and. ptop(j,ibox) .gt. 0.) then - box_cloudy(j,ibox)=.true. - endif - - if (box_cloudy(j,ibox)) then - - if (sunlit(j).eq.1 .or. top_height .eq. 3) then - - boxtau(j,ibox) = tau(j,ibox) - - if (tau(j,ibox) .ge. isccp_taumin) then - totalcldarea(j) = totalcldarea(j) + boxarea - - !convert optical thickness to albedo - albedocld(j,ibox) - & = (tau(j,ibox)**0.895)/((tau(j,ibox)**0.895)+6.82) - - !contribute to averaging - meanalbedocld(j) = meanalbedocld(j) - & +albedocld(j,ibox)*boxarea - - end if - - endif - - endif - - if (sunlit(j).eq.1 .or. top_height .eq. 3) then - - if (box_cloudy(j,ibox)) then - - !convert ptop to millibars - ptop(j,ibox)=ptop(j,ibox) / 100. - - !save for output cloud top pressure and optical thickness - boxptop(j,ibox) = ptop(j,ibox) - - if (tau(j,ibox) .ge. isccp_taumin) then - meanptop(j) = meanptop(j) + ptop(j,ibox)*boxarea - end if - - !reset itau(j), ipres(j) - itau(j) = 0 - ipres(j) = 0 - - !determine optical depth category - if (tau(j,ibox) .lt. isccp_taumin) then - itau(j)=1 - else if (tau(j,ibox) .ge. isccp_taumin - & - & .and. tau(j,ibox) .lt. 1.3) then - itau(j)=2 - else if (tau(j,ibox) .ge. 1.3 - & .and. tau(j,ibox) .lt. 3.6) then - itau(j)=3 - else if (tau(j,ibox) .ge. 3.6 - & .and. tau(j,ibox) .lt. 9.4) then - itau(j)=4 - else if (tau(j,ibox) .ge. 9.4 - & .and. tau(j,ibox) .lt. 23.) then - itau(j)=5 - else if (tau(j,ibox) .ge. 23. - & .and. tau(j,ibox) .lt. 60.) then - itau(j)=6 - else if (tau(j,ibox) .ge. 60.) then - itau(j)=7 - end if - - !determine cloud top pressure category - if ( ptop(j,ibox) .gt. 0. - & .and.ptop(j,ibox) .lt. 180.) then - ipres(j)=1 - else if(ptop(j,ibox) .ge. 180. - & .and.ptop(j,ibox) .lt. 310.) then - ipres(j)=2 - else if(ptop(j,ibox) .ge. 310. - & .and.ptop(j,ibox) .lt. 440.) then - ipres(j)=3 - else if(ptop(j,ibox) .ge. 440. - & .and.ptop(j,ibox) .lt. 560.) then - ipres(j)=4 - else if(ptop(j,ibox) .ge. 560. - & .and.ptop(j,ibox) .lt. 680.) then - ipres(j)=5 - else if(ptop(j,ibox) .ge. 680. - & .and.ptop(j,ibox) .lt. 800.) then - ipres(j)=6 - else if(ptop(j,ibox) .ge. 800.) then - ipres(j)=7 - end if - - !update frequencies - if(ipres(j) .gt. 0.and.itau(j) .gt. 0) then - fq_isccp(j,itau(j),ipres(j))= - & fq_isccp(j,itau(j),ipres(j))+ boxarea - end if - - end if - - end if - - enddo ! j -39 continue - - !compute mean cloud properties - do j=1,npoints - if (totalcldarea(j) .gt. 0.) then - ! code above guarantees that totalcldarea > 0 - ! only if sunlit .eq. 1 .or. top_height = 3 - ! and applies only to clouds with tau > isccp_taumin - meanptop(j) = meanptop(j) / totalcldarea(j) - meanalbedocld(j) = meanalbedocld(j) / totalcldarea(j) - meantaucld(j) = (6.82/((1./meanalbedocld(j))-1.))**(1./0.895) - else - ! this code is necessary so that in the case that totalcldarea = 0., - ! that these variables, which are in-cloud averages, are set to missing - ! note that totalcldarea will be 0. if all the clouds in the grid box have - ! tau < isccp_taumin - meanptop(j) = output_missing_value - meanalbedocld(j) = output_missing_value - meantaucld(j) = output_missing_value - end if - enddo ! j -! -! ---------------------------------------------------! - -! ---------------------------------------------------! -! OPTIONAL PRINTOUT OF DATA TO CHECK PROGRAM -! - if (debugcol.ne.0) then -! - do j=1,npoints,debugcol - - !produce character output - do ilev=1,nlev - do ibox=1,ncol - acc(ilev,ibox)=0 - enddo - enddo - - do ilev=1,nlev - do ibox=1,ncol - acc(ilev,ibox)=frac_out(j,ibox,ilev)*2 - if (levmatch(j,ibox) .eq. ilev) - & acc(ilev,ibox)=acc(ilev,ibox)+1 - enddo - enddo - - !print test - - write(ftn09,11) j -11 format('ftn09.',i4.4) - open(9, FILE=ftn09, FORM='FORMATTED') - - write(9,'(a1)') ' ' - write(9,'(10i5)') - & (ilev,ilev=5,nlev,5) - write(9,'(a1)') ' ' - - do ibox=1,ncol - write(9,'(40(a1),1x,40(a1))') - & (cchar_realtops(acc(ilev,ibox)+1),ilev=1,nlev) - & ,(cchar(acc(ilev,ibox)+1),ilev=1,nlev) - end do - close(9) - - if (ncolprint.ne.0) then - write(6,'(a1)') ' ' - write(6,'(a2,1X,5(a7,1X),a50)') - & 'ilev', - & 'pfull','at', - & 'cc*100','dem_s','dtau_s', - & 'cchar' - -! do 4012 ilev=1,nlev -! write(6,'(60i2)') (box(i,ilev),i=1,ncolprint) -! write(6,'(i2,1X,5(f7.2,1X),50(a1))') -! & ilev, -! & pfull(j,ilev)/100.,at(j,ilev), -! & cc(j,ilev)*100.0,dem_s(j,ilev),dtau_s(j,ilev) -! & ,(cchar(acc(ilev,ibox)+1),ibox=1,ncolprint) -!4012 continue - write (6,'(a)') 'skt(j):' - write (6,'(8f7.2)') skt(j) - - write (6,'(8I7)') (ibox,ibox=1,ncolprint) - - write (6,'(a)') 'tau:' - write (6,'(8f7.2)') (tau(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'tb:' - write (6,'(8f7.2)') (tb(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'ptop:' - write (6,'(8f7.2)') (ptop(j,ibox),ibox=1,ncolprint) - endif - - enddo - - end if - - return - end - - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/isccp_cloud_types.f b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/isccp_cloud_types.f deleted file mode 100644 index 9e18dc1a7..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/isccp_cloud_types.f +++ /dev/null @@ -1,345 +0,0 @@ - SUBROUTINE ISCCP_CLOUD_TYPES( - & debug, - & debugcol, - & npoints, - & sunlit, - & nlev, - & ncol, - & seed, - & pfull, - & phalf, - & qv, - & cc, - & conv, - & dtau_s, - & dtau_c, - & top_height, - & top_height_direction, - & overlap, - & frac_out, - & skt, - & emsfc_lw, - & at, - & dem_s, - & dem_c, - & fq_isccp, - & totalcldarea, - & meanptop, - & meantaucld, - & meanalbedocld, - & meantb, - & meantbclr, - & boxtau, - & boxptop - &) - -!$Id$ - -! *****************************COPYRIGHT**************************** -! (c) British Crown Copyright 2009, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the -! following conditions are met: -! -! * Redistributions of source code must retain the above -! copyright notice, this list of conditions and the following -! disclaimer. -! * Redistributions in binary form must reproduce the above -! copyright notice, this list of conditions and the following -! disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its -! contributors may be used to endorse or promote products -! derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -! OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -! LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -! THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE -! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -! -! *****************************COPYRIGHT******************************* -! *****************************COPYRIGHT******************************* -! *****************************COPYRIGHT******************************* - - implicit none - -! NOTE: the maximum number of levels and columns is set by -! the following parameter statement - - INTEGER ncolprint - -! ----- -! Input -! ----- - - INTEGER npoints ! number of model points in the horizontal - INTEGER nlev ! number of model levels in column - INTEGER ncol ! number of subcolumns - - INTEGER sunlit(npoints) ! 1 for day points, 0 for night time - - INTEGER seed(npoints) - ! seed values for marsaglia random number generator - ! It is recommended that the seed is set - ! to a different value for each model - ! gridbox it is called on, as it is - ! possible that the choice of the same - ! seed value every time may introduce some - ! statistical bias in the results, particularly - ! for low values of NCOL. - - REAL pfull(npoints,nlev) - ! pressure of full model levels (Pascals) - ! pfull(npoints,1) is top level of model - ! pfull(npoints,nlev) is bot of model - - REAL phalf(npoints,nlev+1) - ! pressure of half model levels (Pascals) - ! phalf(npoints,1) is top of model - ! phalf(npoints,nlev+1) is the surface pressure - - REAL qv(npoints,nlev) - ! water vapor specific humidity (kg vapor/ kg air) - ! on full model levels - - REAL cc(npoints,nlev) - ! input cloud cover in each model level (fraction) - ! NOTE: This is the HORIZONTAL area of each - ! grid box covered by clouds - - REAL conv(npoints,nlev) - ! input convective cloud cover in each model - ! level (fraction) - ! NOTE: This is the HORIZONTAL area of each - ! grid box covered by convective clouds - - REAL dtau_s(npoints,nlev) - ! mean 0.67 micron optical depth of stratiform - ! clouds in each model level - ! NOTE: this the cloud optical depth of only the - ! cloudy part of the grid box, it is not weighted - ! with the 0 cloud optical depth of the clear - ! part of the grid box - - REAL dtau_c(npoints,nlev) - ! mean 0.67 micron optical depth of convective - ! clouds in each - ! model level. Same note applies as in dtau_s. - - INTEGER overlap ! overlap type - ! 1=max - ! 2=rand - ! 3=max/rand - - INTEGER top_height ! 1 = adjust top height using both a computed - ! infrared brightness temperature and the visible - ! optical depth to adjust cloud top pressure. Note - ! that this calculation is most appropriate to compare - ! to ISCCP data during sunlit hours. - ! 2 = do not adjust top height, that is cloud top - ! pressure is the actual cloud top pressure - ! in the model - ! 3 = adjust top height using only the computed - ! infrared brightness temperature. Note that this - ! calculation is most appropriate to compare to ISCCP - ! IR only algortihm (i.e. you can compare to nighttime - ! ISCCP data with this option) - - INTEGER top_height_direction ! direction for finding atmosphere pressure level - ! with interpolated temperature equal to the radiance - ! determined cloud-top temperature - ! - ! 1 = find the *lowest* altitude (highest pressure) level - ! with interpolated temperature equal to the radiance - ! determined cloud-top temperature - ! - ! 2 = find the *highest* altitude (lowest pressure) level - ! with interpolated temperature equal to the radiance - ! determined cloud-top temperature - ! - ! ONLY APPLICABLE IF top_height EQUALS 1 or 3 - ! - ! 1 = old setting: matches all versions of - ! ISCCP simulator with versions numbers 3.5.1 and lower - ! - ! 2 = default setting: for version numbers 4.0 and higher -! -! The following input variables are used only if top_height = 1 or top_height = 3 -! - REAL skt(npoints) ! skin Temperature (K) - REAL emsfc_lw ! 10.5 micron emissivity of surface (fraction) - REAL at(npoints,nlev) ! temperature in each model level (K) - REAL dem_s(npoints,nlev) ! 10.5 micron longwave emissivity of stratiform - ! clouds in each - ! model level. Same note applies as in dtau_s. - REAL dem_c(npoints,nlev) ! 10.5 micron longwave emissivity of convective - ! clouds in each - ! model level. Same note applies as in dtau_s. - - REAL frac_out(npoints,ncol,nlev) ! boxes gridbox divided up into - ! Equivalent of BOX in original version, but - ! indexed by column then row, rather than - ! by row then column - - - -! ------ -! Output -! ------ - - REAL fq_isccp(npoints,7,7) ! the fraction of the model grid box covered by - ! each of the 49 ISCCP D level cloud types - - REAL totalcldarea(npoints) ! the fraction of model grid box columns - ! with cloud somewhere in them. NOTE: This diagnostic - ! does not count model clouds with tau < isccp_taumin - ! Thus this diagnostic does not equal the sum over all entries of fq_isccp. - ! However, this diagnostic does equal the sum over entries of fq_isccp with - ! itau = 2:7 (omitting itau = 1) - - - ! The following three means are averages only over the cloudy areas with tau > isccp_taumin. - ! If no clouds with tau > isccp_taumin are in grid box all three quantities should equal zero. - - REAL meanptop(npoints) ! mean cloud top pressure (mb) - linear averaging - ! in cloud top pressure. - - REAL meantaucld(npoints) ! mean optical thickness - ! linear averaging in albedo performed. - - real meanalbedocld(npoints) ! mean cloud albedo - ! linear averaging in albedo performed - - real meantb(npoints) ! mean all-sky 10.5 micron brightness temperature - - real meantbclr(npoints) ! mean clear-sky 10.5 micron brightness temperature - - REAL boxtau(npoints,ncol) ! optical thickness in each column - - REAL boxptop(npoints,ncol) ! cloud top pressure (mb) in each column - - -! -! ------ -! Working variables added when program updated to mimic Mark Webb's PV-Wave code -! ------ - - REAL dem(npoints,ncol),bb(npoints) ! working variables for 10.5 micron longwave - ! emissivity in part of - ! gridbox under consideration - - REAL ptrop(npoints) - REAL attrop(npoints) - REAL attropmin (npoints) - REAL atmax(npoints) - REAL atmin(npoints) - REAL btcmin(npoints) - REAL transmax(npoints) - - INTEGER i,j,ilev,ibox,itrop(npoints) - INTEGER ipres(npoints) - INTEGER itau(npoints),ilev2 - INTEGER acc(nlev,ncol) - INTEGER match(npoints,nlev-1) - INTEGER nmatch(npoints) - INTEGER levmatch(npoints,ncol) - - !variables needed for water vapor continuum absorption - real fluxtop_clrsky(npoints),trans_layers_above_clrsky(npoints) - real taumin(npoints) - real dem_wv(npoints,nlev), wtmair, wtmh20, Navo, grav, pstd, t0 - real press(npoints), dpress(npoints), atmden(npoints) - real rvh20(npoints), wk(npoints), rhoave(npoints) - real rh20s(npoints), rfrgn(npoints) - real tmpexp(npoints),tauwv(npoints) - - character*1 cchar(6),cchar_realtops(6) - integer icycle - REAL tau(npoints,ncol) - LOGICAL box_cloudy(npoints,ncol) - REAL tb(npoints,ncol) - REAL ptop(npoints,ncol) - REAL emcld(npoints,ncol) - REAL fluxtop(npoints,ncol) - REAL trans_layers_above(npoints,ncol) - real isccp_taumin,fluxtopinit(npoints),tauir(npoints) - REAL albedocld(npoints,ncol) - real boxarea - integer debug ! set to non-zero value to print out inputs - ! with step debug - integer debugcol ! set to non-zero value to print out column - ! decomposition with step debugcol - integer rangevec(npoints),rangeerror - - integer index1(npoints),num1,jj,k1,k2 - real rec2p13,tauchk,logp,logp1,logp2,atd - - character*10 ftn09 - - DATA isccp_taumin / 0.3 / - DATA cchar / ' ','-','1','+','I','+'/ - DATA cchar_realtops / ' ',' ','1','1','I','I'/ - -! ------ End duplicate definitions common to wrapper routine - - ncolprint=0 - - CALL SCOPS( - & npoints, - & nlev, - & ncol, - & seed, - & cc, - & conv, - & overlap, - & frac_out, - & ncolprint - &) - - CALL ICARUS( - & debug, - & debugcol, - & npoints, - & sunlit, - & nlev, - & ncol, - & pfull, - & phalf, - & qv, - & cc, - & conv, - & dtau_s, - & dtau_c, - & top_height, - & top_height_direction, - & overlap, - & frac_out, - & skt, - & emsfc_lw, - & at, - & dem_s, - & dem_c, - & fq_isccp, - & totalcldarea, - & meanptop, - & meantaucld, - & meanalbedocld, - & meantb, - & meantbclr, - & boxtau, - & boxptop - &) - - return - end - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/cosp_radar.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/cosp_radar.F90 deleted file mode 100644 index 9b6736500..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/cosp_radar.F90 +++ /dev/null @@ -1,201 +0,0 @@ -! (c) British Crown Copyright 2008, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -MODULE MOD_COSP_RADAR - USE MOD_COSP_CONSTANTS - USE MOD_COSP_TYPES - USE MOD_COSP_UTILS - use radar_simulator_types - use array_lib - use atmos_lib - use format_input - IMPLICIT NONE - - INTERFACE - subroutine radar_simulator(freq,k2,do_ray,use_gas_abs,use_mie_table,mt, & - nhclass,hp,nprof,ngate,nsizes,D,hgt_matrix,hm_matrix,re_matrix,p_matrix,t_matrix, & - rh_matrix,Ze_non,Ze_ray,h_atten_to_vol,g_atten_to_vol,dBZe, & - g_to_vol_in,g_to_vol_out) - - use m_mrgrnk - use array_lib - use math_lib - use optics_lib - use radar_simulator_types - implicit none - ! ----- INPUTS ----- - type(mie), intent(in) :: mt - type(class_param) :: hp - real*8, intent(in) :: freq,k2 - integer, intent(in) :: do_ray,use_gas_abs,use_mie_table, & - nhclass,nprof,ngate,nsizes - real*8, dimension(nsizes), intent(in) :: D - real*8, dimension(nprof,ngate), intent(in) :: hgt_matrix, p_matrix, & - t_matrix,rh_matrix - real*8, dimension(nhclass,nprof,ngate), intent(in) :: hm_matrix - real*8, dimension(nhclass,nprof,ngate), intent(inout) :: re_matrix - ! ----- OUTPUTS ----- - real*8, dimension(nprof,ngate), intent(out) :: Ze_non,Ze_ray, & - g_atten_to_vol,dBZe,h_atten_to_vol - ! ----- OPTIONAL ----- - real*8, optional, dimension(ngate,nprof) :: & - g_to_vol_in,g_to_vol_out - end subroutine radar_simulator - END INTERFACE - -CONTAINS - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------------- SUBROUTINE COSP_RADAR ------------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_RADAR(gbx,sgx,sghydro,z) - IMPLICIT NONE - - ! Arguments - type(cosp_gridbox),intent(in) :: gbx ! Gridbox info - type(cosp_subgrid),intent(in) :: sgx ! Subgrid info - type(cosp_sghydro),intent(in) :: sghydro ! Subgrid info for hydrometeors - type(cosp_sgradar),intent(inout) :: z ! Output from simulator, subgrid - - ! Local variables - real*8 :: & - freq, & ! radar frequency (GHz) - k2 ! |K|^2, -1=use frequency dependent default - - real*8, dimension(:,:), allocatable :: & - g_to_vol ! integrated atten due to gases, r>v (dB) - - real*8, dimension(:,:), allocatable :: & - Ze_non, & ! radar reflectivity withOUT attenuation (dBZ) - Ze_ray, & ! Rayleigh reflectivity (dBZ) - h_atten_to_vol, & ! attenuation by hydromets, radar to vol (dB) - g_atten_to_vol, & ! gaseous atteunation, radar to vol (dB) - dBZe, & ! effective radar reflectivity factor (dBZ) - hgt_matrix, & ! height of hydrometeors (km) - t_matrix, & !temperature (k) - p_matrix, & !pressure (hPa) - rh_matrix !relative humidity (%) - - real*8, dimension(:,:,:), allocatable :: & - hm_matrix, & ! hydrometeor mixing ratio (g kg^-1) - re_matrix - - integer, parameter :: one = 1 - logical :: hgt_reversed - integer :: pr,i - -! ----- main program settings ------ - - freq = gbx%radar_freq - k2 = gbx%k2 - - ! - ! note: intitialization section that was here has been relocated to SUBROUTINE CONSTRUCT_COSP_GRIDBOX by roj, Feb 2008 - ! - mt_ttl=gbx%mt_ttl ! these variables really should be moved into the mt structure rather than kept as global arrays. - mt_tti=gbx%mt_tti - - ! Inputs to Quickbeam - allocate(hgt_matrix(gbx%Npoints,gbx%Nlevels),p_matrix(gbx%Npoints,gbx%Nlevels), & - t_matrix(gbx%Npoints,gbx%Nlevels),rh_matrix(gbx%Npoints,gbx%Nlevels)) - allocate(hm_matrix(gbx%Nhydro,gbx%Npoints,gbx%Nlevels)) - allocate(re_matrix(gbx%Nhydro,gbx%Npoints,gbx%Nlevels)) - - ! Outputs from Quickbeam - allocate(Ze_non(gbx%Npoints,gbx%Nlevels)) - allocate(Ze_ray(gbx%Npoints,gbx%Nlevels)) - allocate(h_atten_to_vol(gbx%Npoints,gbx%Nlevels)) - allocate(g_atten_to_vol(gbx%Npoints,gbx%Nlevels)) - allocate(dBZe(gbx%Npoints,gbx%Nlevels)) - - ! Optional argument. It is computed and returned in the first call to - ! radar_simulator, and passed as input in the rest - allocate(g_to_vol(gbx%Nlevels,gbx%Npoints)) - - p_matrix = gbx%p/100.0 ! From Pa to hPa - hgt_matrix = gbx%zlev/1000.0 ! From m to km - t_matrix = gbx%T-273.15 ! From K to C - rh_matrix = gbx%q - re_matrix = 0.0 - - ! Quickbeam assumes the first row is closest to the radar - call order_data(hgt_matrix,hm_matrix,p_matrix,t_matrix, & - rh_matrix,gbx%surface_radar,hgt_reversed) - - ! ----- loop over subcolumns ----- - do pr=1,sgx%Ncolumns - ! atmospheric profiles are the same within the same gridbox - ! only hydrometeor profiles will be different - if (hgt_reversed) then - do i=1,gbx%Nhydro - hm_matrix(i,:,:) = sghydro%mr_hydro(:,pr,gbx%Nlevels:1:-1,i)*1000.0 ! Units from kg/kg to g/kg - if (gbx%use_reff) then - re_matrix(i,:,:) = sghydro%Reff(:,pr,gbx%Nlevels:1:-1,i)*1.e6 ! Units from m to micron - endif - enddo - else - do i=1,gbx%Nhydro - hm_matrix(i,:,:) = sghydro%mr_hydro(:,pr,:,i)*1000.0 ! Units from kg/kg to g/kg - if (gbx%use_reff) then - re_matrix(i,:,:) = sghydro%Reff(:,pr,:,i)*1.e6 ! Units from m to micron - endif - enddo - endif - - ! ----- call radar simulator ----- - if (pr == 1) then ! Compute gaseous attenuation for all profiles - call radar_simulator(freq,k2,gbx%do_ray,gbx%use_gas_abs,gbx%use_mie_tables,gbx%mt, & ! v0.2: mt changed to gbx%mt, roj - gbx%Nhydro,gbx%hp,gbx%Npoints,gbx%Nlevels,gbx%nsizes,gbx%D, & ! v0.2: hp->gbx%hp, D->gbx%d, nsizes->gbx%nsizes, roj - hgt_matrix,hm_matrix,re_matrix,p_matrix,t_matrix,rh_matrix, & - Ze_non,Ze_ray,h_atten_to_vol,g_atten_to_vol,dBZe,g_to_vol_out=g_to_vol) - else ! Use gaseous atteunuation for pr = 1 - call radar_simulator(freq,k2,gbx%do_ray,gbx%use_gas_abs,gbx%use_mie_tables,gbx%mt, & - gbx%Nhydro,gbx%hp,gbx%Npoints,gbx%Nlevels,gbx%nsizes,gbx%D, & - hgt_matrix,hm_matrix,re_matrix,p_matrix,t_matrix,rh_matrix, & - Ze_non,Ze_ray,h_atten_to_vol,g_atten_to_vol,dBZe,g_to_vol_in=g_to_vol) - endif - ! ----- BEGIN output section ----- - ! spaceborne radar : from TOA to SURFACE - if (gbx%surface_radar == 1) then - z%Ze_tot(:,pr,:)=dBZe(:,:) - else if (gbx%surface_radar == 0) then ! Spaceborne - z%Ze_tot(:,pr,:)=dBZe(:,gbx%Nlevels:1:-1) - endif - - enddo !pr - - ! Change undefined value to one defined in COSP - where (z%Ze_tot == -999.0) z%Ze_tot = R_UNDEF - - deallocate(hgt_matrix,p_matrix,t_matrix,rh_matrix) - deallocate(hm_matrix,re_matrix, & - Ze_non,Ze_ray,h_atten_to_vol,g_atten_to_vol,dBZe) - deallocate(g_to_vol) - - ! deallocate(mt_ttl,mt_tti) !v0.2: roj feb 2008 can not be done here, - !these variables now part of gbx structure and dealocated later - -END SUBROUTINE COSP_RADAR - -END MODULE MOD_COSP_RADAR diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/llnl_stats.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/llnl_stats.F90 deleted file mode 100644 index 96881a99f..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/llnl_stats.F90 +++ /dev/null @@ -1,135 +0,0 @@ -! (c) 2008, Lawrence Livermore National Security Limited Liability Corporation. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Lawrence Livermore National Security Limited Liability Corporation -! nor the names of its contributors may be used to endorse or promote products derived from -! this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -MODULE MOD_LLNL_STATS - USE MOD_COSP_CONSTANTS - IMPLICIT NONE - -CONTAINS - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!-------------------- FUNCTION COSP_CFAD ------------------------ -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -FUNCTION COSP_CFAD(Npoints,Ncolumns,Nlevels,Nbins,x,xmin,xmax,bmin,bwidth) - ! Input arguments - integer,intent(in) :: Npoints,Ncolumns,Nlevels,Nbins - real,dimension(Npoints,Ncolumns,Nlevels),intent(in) :: x - real,intent(in) :: xmin,xmax - real,intent(in) :: bmin,bwidth - - real,dimension(Npoints,Nbins,Nlevels) :: cosp_cfad - ! Local variables - integer :: i, j, k - integer :: ibin - - !--- Input arguments - ! Npoints: Number of horizontal points - ! Ncolumns: Number of subcolumns - ! Nlevels: Number of levels - ! Nbins: Number of x axis bins - ! x: variable to process (Npoints,Ncolumns,Nlevels) - ! xmin: minimum value allowed for x - ! xmax: minimum value allowed for x - ! bmin: mimumum value of first bin - ! bwidth: bin width - ! - ! Output: 2D histogram on each horizontal point (Npoints,Nbins,Nlevels) - - cosp_cfad = 0.0 - ! bwidth intervals in the range [bmin,bmax=bmin+Nbins*hwidth] - ! Valid x values smaller than bmin and larger than bmax are set - ! into the smallest bin and largest bin, respectively. - do j = 1, Nlevels, 1 - do k = 1, Ncolumns, 1 - do i = 1, Npoints, 1 - if (x(i,k,j) == R_GROUND) then - cosp_cfad(i,:,j) = R_UNDEF - elseif ((x(i,k,j) >= xmin) .and. (x(i,k,j) <= xmax)) then - ibin = ceiling((x(i,k,j) - bmin)/bwidth) - if (ibin > Nbins) ibin = Nbins - if (ibin < 1) ibin = 1 - cosp_cfad(i,ibin,j) = cosp_cfad(i,ibin,j) + 1.0 - end if - enddo !i - enddo !k - enddo !j - where ((cosp_cfad /= R_UNDEF).and.(cosp_cfad /= 0.0)) cosp_cfad = cosp_cfad / Ncolumns -END FUNCTION COSP_CFAD - -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!------------- SUBROUTINE COSP_LIDAR_ONLY_CLOUD ----------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -SUBROUTINE COSP_LIDAR_ONLY_CLOUD(Npoints,Ncolumns,Nlevels,beta_tot,beta_mol,Ze_tot,lidar_only_freq_cloud,tcc) - ! Input arguments - integer,intent(in) :: Npoints,Ncolumns,Nlevels - real,dimension(Npoints,Nlevels),intent(in) :: beta_mol ! Molecular backscatter - real,dimension(Npoints,Ncolumns,Nlevels),intent(in) :: beta_tot ! Total backscattered signal - real,dimension(Npoints,Ncolumns,Nlevels),intent(in) :: Ze_tot ! Radar reflectivity - ! Output arguments - real,dimension(Npoints,Nlevels),intent(out) :: lidar_only_freq_cloud - real,dimension(Npoints),intent(out) :: tcc - - ! local variables - real :: sc_ratio - real :: s_cld, s_att -! parameter (S_cld = 3.0) ! Previous thresold for cloud detection - parameter (S_cld = 5.0) ! New (dec 2008) thresold for cloud detection - parameter (s_att = 0.01) - integer :: flag_sat !first saturated level encountered from top - integer :: flag_cld !cloudy column - integer :: pr,i,j - - lidar_only_freq_cloud = 0.0 - tcc = 0.0 - do pr=1,Npoints - do i=1,Ncolumns - flag_sat = 0 - flag_cld = 0 - do j=Nlevels,1,-1 !top->surf - sc_ratio = beta_tot(pr,i,j)/beta_mol(pr,j) -! if ((pr == 1).and.(j==8)) print *, pr,i,j,sc_ratio,Ze_tot(pr,i,j) - if ((sc_ratio .le. s_att) .and. (flag_sat .eq. 0)) flag_sat = j - if (Ze_tot(pr,i,j) .lt. -30.) then !radar can't detect cloud - if ( (sc_ratio .gt. s_cld) .or. (flag_sat .eq. j) ) then !lidar sense cloud -! if ((pr == 1).and.(j==8)) print *, 'L' - lidar_only_freq_cloud(pr,j)=lidar_only_freq_cloud(pr,j)+1. !top->surf - flag_cld=1 - endif - else !radar sense cloud (z%Ze_tot(pr,i,j) .ge. -30.) -! if ((pr == 1).and.(j==8)) print *, 'R' - flag_cld=1 - endif - enddo !levels - if (flag_cld .eq. 1) tcc(pr)=tcc(pr)+1. - enddo !columns -! if (tcc(pr) > Ncolumns) then -! print *, 'tcc(',pr,'): ', tcc(pr) -! tcc(pr) = Ncolumns -! endif - enddo !points - lidar_only_freq_cloud=lidar_only_freq_cloud/Ncolumns - tcc=tcc/Ncolumns - -END SUBROUTINE COSP_LIDAR_ONLY_CLOUD -END MODULE MOD_LLNL_STATS \ No newline at end of file diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/pf_to_mr.f b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/pf_to_mr.f deleted file mode 100644 index e5cd6b8b4..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/pf_to_mr.f +++ /dev/null @@ -1,128 +0,0 @@ -! (c) 2008, Lawrence Livermore National Security Limited Liability Corporation. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Lawrence Livermore National Security Limited Liability Corporation -! nor the names of its contributors may be used to endorse or promote products derived from -! this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - - subroutine pf_to_mr(npoints,nlev,ncol,rain_ls,snow_ls,grpl_ls, - & rain_cv,snow_cv,prec_frac, - & p,t,mx_rain_ls,mx_snow_ls,mx_grpl_ls, - & mx_rain_cv,mx_snow_cv) - - - implicit none - - INTEGER npoints ! number of model points in the horizontal - INTEGER nlev ! number of model levels in column - INTEGER ncol ! number of subcolumns - - INTEGER j,ilev,ibox - - REAL rain_ls(npoints,nlev),snow_ls(npoints,nlev) ! large-scale precip. flux - REAL grpl_ls(npoints,nlev) - REAL rain_cv(npoints,nlev),snow_cv(npoints,nlev) ! convective precip. flux - - REAL prec_frac(npoints,ncol,nlev) ! 0 -> clear sky - ! 1 -> LS precipitation - ! 2 -> CONV precipitation - ! 3 -> both - REAL mx_rain_ls(npoints,ncol,nlev),mx_snow_ls(npoints,ncol,nlev) - REAL mx_grpl_ls(npoints,ncol,nlev) - REAL mx_rain_cv(npoints,ncol,nlev),mx_snow_cv(npoints,ncol,nlev) - REAL p(npoints,nlev),t(npoints,nlev) - REAL ar,as,ag,br,bs,bg,nr,ns,ng,rho0,rhor,rhos,rhog,rho - REAL term1r,term1s,term1g,term2r,term2s,term2g,term3 - REAL term4r_ls,term4s_ls,term4g_ls,term4r_cv,term4s_cv - REAL term1x2r,term1x2s,term1x2g,t123r,t123s,t123g - - ! method from Khairoutdinov and Randall (2003 JAS) - - ! --- List of constants from Appendix B - ! Constant in fall speed formula - ar=842. - as=4.84 - ag=94.5 - ! Exponent in fall speed formula - br=0.8 - bs=0.25 - bg=0.5 - ! Intercept parameter - nr=8.*1000.*1000. - ns=3.*1000.*1000. - ng=4.*1000.*1000. - ! Densities for air and hydrometeors - rho0=1.29 - rhor=1000. - rhos=100. - rhog=400. - ! Term 1 of Eq. (A19). - term1r=ar*17.8379/6. - term1s=as*8.28508/6. - term1g=ag*11.6317/6. - ! Term 2 of Eq. (A19). - term2r=(3.14159265*rhor*nr)**(-br/4.) - term2s=(3.14159265*rhos*ns)**(-bs/4.) - term2g=(3.14159265*rhog*ng)**(-bg/4.) - - term1x2r=term1r*term2r - term1x2s=term1s*term2s - term1x2g=term1g*term2g - do ilev=1,nlev - do j=1,npoints - rho=p(j,ilev)/(287.05*t(j,ilev)) - term3=(rho0/rho)**0.5 - ! Term 4 of Eq. (A19). - t123r=term1x2r*term3 - t123s=term1x2s*term3 - t123g=term1x2g*term3 - term4r_ls=rain_ls(j,ilev)/(t123r) - term4s_ls=snow_ls(j,ilev)/(t123s) - term4g_ls=grpl_ls(j,ilev)/(t123g) - term4r_cv=rain_cv(j,ilev)/(t123r) - term4s_cv=snow_cv(j,ilev)/(t123s) - do ibox=1,ncol - mx_rain_ls(j,ibox,ilev)=0. - mx_snow_ls(j,ibox,ilev)=0. - mx_grpl_ls(j,ibox,ilev)=0. - mx_rain_cv(j,ibox,ilev)=0. - mx_snow_cv(j,ibox,ilev)=0. - if ((prec_frac(j,ibox,ilev) .eq. 1.) .or. - & (prec_frac(j,ibox,ilev) .eq. 3.)) then - mx_rain_ls(j,ibox,ilev)= - & (term4r_ls**(1./(1.+br/4.)))/rho - mx_snow_ls(j,ibox,ilev)= - & (term4s_ls**(1./(1.+bs/4.)))/rho - mx_grpl_ls(j,ibox,ilev)= - & (term4g_ls**(1./(1.+bg/4.)))/rho - endif - if ((prec_frac(j,ibox,ilev) .eq. 2.) .or. - & (prec_frac(j,ibox,ilev) .eq. 3.)) then - mx_rain_cv(j,ibox,ilev)= - & (term4r_cv**(1./(1.+br/4.)))/rho - mx_snow_cv(j,ibox,ilev)= - & (term4s_cv**(1./(1.+bs/4.)))/rho - endif - enddo ! loop over ncol - enddo ! loop over npoints - enddo ! loop over nlev - - end - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/prec_scops.f b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/prec_scops.f deleted file mode 100644 index 134e7c02b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/prec_scops.f +++ /dev/null @@ -1,268 +0,0 @@ -! (c) 2008, Lawrence Livermore National Security Limited Liability Corporation. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Lawrence Livermore National Security Limited Liability Corporation -! nor the names of its contributors may be used to endorse or promote products derived from -! this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - - subroutine prec_scops(npoints,nlev,ncol,ls_p_rate,cv_p_rate, - & frac_out,prec_frac) - - - implicit none - - INTEGER npoints ! number of model points in the horizontal - INTEGER nlev ! number of model levels in column - INTEGER ncol ! number of subcolumns - - INTEGER i,j,ilev,ibox,cv_col - - REAL ls_p_rate(npoints,nlev),cv_p_rate(npoints,nlev) - - REAL frac_out(npoints,ncol,nlev) ! boxes gridbox divided up into - ! Equivalent of BOX in original version, but - ! indexed by column then row, rather than - ! by row then column - !TOA to SURFACE!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - REAL prec_frac(npoints,ncol,nlev) ! 0 -> clear sky - ! 1 -> LS precipitation - ! 2 -> CONV precipitation - ! 3 -> both - !TOA to SURFACE!!!!!!!!!!!!!!!!!! - - INTEGER flag_ls, flag_cv - INTEGER frac_out_ls(npoints,ncol),frac_out_cv(npoints,ncol) !flag variables for - ! stratiform cloud and convective cloud in the vertical column - - cv_col = 0.05*ncol - if (cv_col .eq. 0) cv_col=1 - - do ilev=1,nlev - do ibox=1,ncol - do j=1,npoints - prec_frac(j,ibox,ilev) = 0 - enddo - enddo - enddo - - do j=1,npoints - do ibox=1,ncol - frac_out_ls(j,ibox)=0 - frac_out_cv(j,ibox)=0 - flag_ls=0 - flag_cv=0 - do ilev=1,nlev - if (frac_out(j,ibox,ilev) .eq. 1) then - flag_ls=1 - endif - if (frac_out(j,ibox,ilev) .eq. 2) then - flag_cv=1 - endif - enddo !loop over nlev - if (flag_ls .eq. 1) then - frac_out_ls(j,ibox)=1 - endif - if (flag_cv .eq. 1) then - frac_out_cv(j,ibox)=1 - endif - enddo ! loop over ncol - enddo ! loop over npoints - -! initialize the top layer - do j=1,npoints - flag_ls=0 - flag_cv=0 - - if (ls_p_rate(j,1) .gt. 0.) then - do ibox=1,ncol ! possibility ONE - if (frac_out(j,ibox,1) .eq. 1) then - prec_frac(j,ibox,1) = 1 - flag_ls=1 - endif - enddo ! loop over ncol - if (flag_ls .eq. 0) then ! possibility THREE - do ibox=1,ncol - if (frac_out(j,ibox,2) .eq. 1) then - prec_frac(j,ibox,1) = 1 - flag_ls=1 - endif - enddo ! loop over ncol - endif - if (flag_ls .eq. 0) then ! possibility Four - do ibox=1,ncol - if (frac_out_ls(j,ibox) .eq. 1) then - prec_frac(j,ibox,1) = 1 - flag_ls=1 - endif - enddo ! loop over ncol - endif - if (flag_ls .eq. 0) then ! possibility Five - do ibox=1,ncol - ! prec_frac(j,1:ncol,1) = 1 - prec_frac(j,ibox,1) = 1 - enddo ! loop over ncol - endif - endif - ! There is large scale precipitation - - if (cv_p_rate(j,1) .gt. 0.) then - do ibox=1,ncol ! possibility ONE - if (frac_out(j,ibox,1) .eq. 2) then - if (prec_frac(j,ibox,1) .eq. 0) then - prec_frac(j,ibox,1) = 2 - else - prec_frac(j,ibox,1) = 3 - endif - flag_cv=1 - endif - enddo ! loop over ncol - if (flag_cv .eq. 0) then ! possibility THREE - do ibox=1,ncol - if (frac_out(j,ibox,2) .eq. 2) then - if (prec_frac(j,ibox,1) .eq. 0) then - prec_frac(j,ibox,1) = 2 - else - prec_frac(j,ibox,1) = 3 - endif - flag_cv=1 - endif - enddo ! loop over ncol - endif - if (flag_cv .eq. 0) then ! possibility Four - do ibox=1,ncol - if (frac_out_cv(j,ibox) .eq. 1) then - if (prec_frac(j,ibox,1) .eq. 0) then - prec_frac(j,ibox,1) = 2 - else - prec_frac(j,ibox,1) = 3 - endif - flag_cv=1 - endif - enddo ! loop over ncol - endif - if (flag_cv .eq. 0) then ! possibility Five - do ibox=1,cv_col - if (prec_frac(j,ibox,1) .eq. 0) then - prec_frac(j,ibox,1) = 2 - else - prec_frac(j,ibox,1) = 3 - endif - enddo !loop over cv_col - endif - endif - ! There is convective precipitation - - enddo ! loop over npoints -! end of initializing the top layer - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -! working on the levels from top to surface - do ilev=2,nlev - do j=1,npoints - flag_ls=0 - flag_cv=0 - - if (ls_p_rate(j,ilev) .gt. 0.) then - do ibox=1,ncol ! possibility ONE&TWO - if ((frac_out(j,ibox,ilev) .eq. 1) .or. - & ((prec_frac(j,ibox,ilev-1) .eq. 1) - & .or. (prec_frac(j,ibox,ilev-1) .eq. 3))) then - prec_frac(j,ibox,ilev) = 1 - flag_ls=1 - endif - enddo ! loop over ncol - if ((flag_ls .eq. 0) .and. (ilev .lt. nlev)) then ! possibility THREE - do ibox=1,ncol - if (frac_out(j,ibox,ilev+1) .eq. 1) then - prec_frac(j,ibox,ilev) = 1 - flag_ls=1 - endif - enddo ! loop over ncol - endif - if (flag_ls .eq. 0) then ! possibility Four - do ibox=1,ncol - if (frac_out_ls(j,ibox) .eq. 1) then - prec_frac(j,ibox,ilev) = 1 - flag_ls=1 - endif - enddo ! loop over ncol - endif - if (flag_ls .eq. 0) then ! possibility Five - do ibox=1,ncol -! prec_frac(j,1:ncol,ilev) = 1 - prec_frac(j,ibox,ilev) = 1 - enddo ! loop over ncol - endif - endif ! There is large scale precipitation - - if (cv_p_rate(j,ilev) .gt. 0.) then - do ibox=1,ncol ! possibility ONE&TWO - if ((frac_out(j,ibox,ilev) .eq. 2) .or. - & ((prec_frac(j,ibox,ilev-1) .eq. 2) - & .or. (prec_frac(j,ibox,ilev-1) .eq. 3))) then - if (prec_frac(j,ibox,ilev) .eq. 0) then - prec_frac(j,ibox,ilev) = 2 - else - prec_frac(j,ibox,ilev) = 3 - endif - flag_cv=1 - endif - enddo ! loop over ncol - if ((flag_cv .eq. 0) .and. (ilev .lt. nlev)) then ! possibility THREE - do ibox=1,ncol - if (frac_out(j,ibox,ilev+1) .eq. 2) then - if (prec_frac(j,ibox,ilev) .eq. 0) then - prec_frac(j,ibox,ilev) = 2 - else - prec_frac(j,ibox,ilev) = 3 - endif - flag_cv=1 - endif - enddo ! loop over ncol - endif - if (flag_cv .eq. 0) then ! possibility Four - do ibox=1,ncol - if (frac_out_cv(j,ibox) .eq. 1) then - if (prec_frac(j,ibox,ilev) .eq. 0) then - prec_frac(j,ibox,ilev) = 2 - else - prec_frac(j,ibox,ilev) = 3 - endif - flag_cv=1 - endif - enddo ! loop over ncol - endif - if (flag_cv .eq. 0) then ! possibility Five - do ibox=1,cv_col - if (prec_frac(j,ibox,ilev) .eq. 0) then - prec_frac(j,ibox,ilev) = 2 - else - prec_frac(j,ibox,ilev) = 3 - endif - enddo !loop over cv_col - endif - endif ! There is convective precipitation - - enddo ! loop over npoints - enddo ! loop over nlev - - end - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/mcai.data b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/mcai.data deleted file mode 100644 index 08387001c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/mcai.data +++ /dev/null @@ -1,120 +0,0 @@ - data ((caib(1,i,j),j=1,11),i=1,9)/ - 1 .000,0.068,0.140,0.216,0.298,0.385,0.481,0.586,0.705,0.840,1.000, - 2 .000,0.052,0.106,0.166,0.230,0.302,0.383,0.478,0.595,0.752,1.000, - 3 .000,0.038,0.078,0.120,0.166,0.218,0.276,0.346,0.438,0.582,1.000, - 4 .000,0.030,0.060,0.092,0.126,0.164,0.206,0.255,0.322,0.442,1.000, - 5 .000,0.025,0.051,0.078,0.106,0.136,0.170,0.209,0.266,0.462,1.000, - 6 .000,0.023,0.046,0.070,0.095,0.122,0.150,0.187,0.278,0.577,1.000, - 7 .000,0.022,0.043,0.066,0.089,0.114,0.141,0.187,0.354,0.603,1.000, - 8 .000,0.021,0.042,0.063,0.086,0.108,0.135,0.214,0.349,0.565,1.000, - 9 .000,0.021,0.041,0.062,0.083,0.105,0.134,0.202,0.302,0.479,1.000/ - data ((caib(2,i,j),j=1,11),i=1,9)/ - 1 .000,0.088,0.179,0.272,0.367,0.465,0.566,0.669,0.776,0.886,1.000, - 2 .000,0.079,0.161,0.247,0.337,0.431,0.531,0.637,0.749,0.870,1.000, - 3 .000,0.065,0.134,0.207,0.286,0.372,0.466,0.572,0.692,0.831,1.000, - 4 .000,0.049,0.102,0.158,0.221,0.290,0.370,0.465,0.583,0.745,1.000, - 5 .000,0.037,0.076,0.118,0.165,0.217,0.278,0.354,0.459,0.638,1.000, - 6 .000,0.030,0.061,0.094,0.130,0.171,0.221,0.286,0.398,0.631,1.000, - 7 .000,0.026,0.052,0.081,0.111,0.146,0.189,0.259,0.407,0.643,1.000, - 8 .000,0.023,0.047,0.072,0.098,0.129,0.170,0.250,0.387,0.598,1.000, - 9 .000,0.022,0.044,0.066,0.090,0.118,0.156,0.224,0.328,0.508,1.000/ - data ((caib(3,i,j),j=1,11),i=1,9)/ - 1 .000,0.094,0.189,0.285,0.383,0.482,0.582,0.685,0.788,0.894,1.000, - 2 .000,0.088,0.178,0.271,0.366,0.465,0.565,0.669,0.776,0.886,1.000, - 3 .000,0.079,0.161,0.247,0.337,0.431,0.531,0.637,0.750,0.870,1.000, - 4 .000,0.066,0.134,0.209,0.289,0.375,0.470,0.577,0.697,0.835,1.000, - 5 .000,0.050,0.104,0.163,0.227,0.300,0.383,0.483,0.606,0.770,1.000, - 6 .000,0.038,0.080,0.125,0.175,0.233,0.302,0.391,0.518,0.710,1.000, - 7 .000,0.031,0.064,0.100,0.141,0.188,0.249,0.336,0.476,0.689,1.000, - 8 .000,0.026,0.054,0.084,0.118,0.158,0.213,0.298,0.433,0.638,1.000, - 9 .000,0.023,0.048,0.074,0.102,0.136,0.182,0.254,0.360,0.542,1.000/ - data ((caib(4,i,j),j=1,11),i=1,9)/ - 1 .000,0.096,0.193,0.290,0.389,0.488,0.589,0.690,0.792,0.896,1.000, - 2 .000,0.092,0.186,0.281,0.378,0.477,0.578,0.680,0.785,0.891,1.000, - 3 .000,0.086,0.174,0.264,0.358,0.455,0.556,0.660,0.769,0.882,1.000, - 4 .000,0.074,0.153,0.235,0.323,0.416,0.514,0.622,0.737,0.862,1.000, - 5 .000,0.061,0.126,0.195,0.271,0.355,0.449,0.555,0.678,0.823,1.000, - 6 .000,0.047,0.098,0.153,0.215,0.286,0.370,0.471,0.600,0.770,1.000, - 7 .000,0.037,0.077,0.120,0.170,0.230,0.303,0.401,0.537,0.729,1.000, - 8 .000,0.030,0.062,0.098,0.138,0.187,0.252,0.343,0.476,0.673,1.000, - 9 .000,0.026,0.053,0.082,0.114,0.154,0.207,0.282,0.391,0.574,1.000/ - data ((caib(5,i,j),j=1,11),i=1,9)/ - 1 .000,0.097,0.194,0.293,0.392,0.492,0.592,0.693,0.794,0.897,1.000, - 2 .000,0.094,0.190,0.286,0.384,0.483,0.584,0.686,0.789,0.894,1.000, - 3 .000,0.090,0.181,0.274,0.370,0.468,0.569,0.672,0.778,0.887,1.000, - 4 .000,0.081,0.165,0.252,0.343,0.439,0.539,0.645,0.757,0.874,1.000, - 5 .000,0.069,0.142,0.218,0.302,0.392,0.490,0.598,0.717,0.850,1.000, - 6 .000,0.054,0.114,0.178,0.250,0.330,0.422,0.529,0.656,0.810,1.000, - 7 .000,0.042,0.090,0.141,0.200,0.269,0.351,0.455,0.589,0.764,1.000, - 8 .000,0.034,0.070,0.112,0.159,0.217,0.289,0.384,0.515,0.703,1.000, - 9 .000,0.028,0.058,0.090,0.128,0.174,0.231,0.309,0.420,0.602,1.000/ - data ((caib(6,i,j),j=1,11),i=1,9)/ - 1 .000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, - 2 .000,0.096,0.193,0.290,0.389,0.488,0.588,0.690,0.792,0.895,1.000, - 3 .000,0.092,0.186,0.281,0.378,0.477,0.577,0.680,0.784,0.891,1.000, - 4 .000,0.086,0.174,0.264,0.358,0.455,0.556,0.661,0.769,0.882,1.000, - 5 .000,0.075,0.154,0.237,0.325,0.419,0.518,0.626,0.741,0.865,1.000, - 6 .000,0.062,0.129,0.201,0.279,0.366,0.462,0.571,0.694,0.836,1.000, - 7 .000,0.049,0.102,0.162,0.229,0.305,0.394,0.501,0.631,0.793,1.000, - 8 .000,0.038,0.080,0.127,0.182,0.245,0.323,0.422,0.550,0.730,1.000, - 9 .000,0.030,0.064,0.100,0.142,0.192,0.254,0.334,0.448,0.627,1.000/ - data ((caib(7,i,j),j=1,11),i=1,9)/ - 1 .000,0.098,0.198,0.296,0.396,0.496,0.596,0.696,0.797,0.898,1.000, - 2 .000,0.097,0.194,0.293,0.392,0.491,0.591,0.693,0.794,0.897,1.000, - 3 .000,0.094,0.190,0.286,0.384,0.483,0.583,0.686,0.789,0.894,1.000, - 4 .000,0.089,0.180,0.274,0.369,0.467,0.568,0.672,0.778,0.887,1.000, - 5 .000,0.081,0.165,0.252,0.344,0.440,0.541,0.646,0.758,0.875,1.000, - 6 .000,0.069,0.142,0.221,0.306,0.397,0.496,0.604,0.722,0.854,1.000, - 7 .000,0.056,0.116,0.182,0.256,0.338,0.432,0.540,0.666,0.816,1.000, - 8 .000,0.043,0.090,0.143,0.203,0.273,0.355,0.455,0.583,0.754,1.000, - 9 .000,0.034,0.070,0.111,0.157,0.210,0.276,0.359,0.474,0.650,1.000/ - data ((caib(8,i,j),j=1,11),i=1,9)/ - 1 .000,0.099,0.198,0.298,0.398,0.497,0.598,0.698,0.798,0.899,1.000, - 2 .000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, - 3 .000,0.096,0.193,0.290,0.390,0.489,0.589,0.690,0.793,0.896,1.000, - 4 .000,0.093,0.186,0.282,0.379,0.478,0.578,0.681,0.786,0.892,1.000, - 5 .000,0.086,0.175,0.266,0.361,0.458,0.558,0.663,0.771,0.883,1.000, - 6 .000,0.076,0.156,0.240,0.330,0.423,0.523,0.630,0.744,0.867,1.000, - 7 .000,0.063,0.130,0.203,0.282,0.369,0.465,0.572,0.694,0.834,1.000, - 8 .000,0.049,0.102,0.161,0.226,0.299,0.385,0.486,0.611,0.774,1.000, - 9 .000,0.038,0.078,0.122,0.172,0.229,0.297,0.382,0.498,0.672,1.000/ - data ((caib(9,i,j),j=1,11),i=1,9)/ - 1 .000,0.099,0.199,0.298,0.398,0.498,0.598,0.699,0.799,0.899,1.000, - 2 .000,0.099,0.198,0.298,0.398,0.497,0.598,0.698,0.798,0.899,1.000, - 3 .000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, - 4 .000,0.096,0.193,0.290,0.389,0.488,0.588,0.690,0.792,0.895,1.000, - 5 .000,0.092,0.185,0.280,0.376,0.474,0.575,0.678,0.782,0.890,1.000, - 6 .000,0.084,0.170,0.259,0.351,0.447,0.547,0.652,0.762,0.878,1.000, - 7 .000,0.071,0.146,0.224,0.308,0.398,0.494,0.601,0.718,0.850,1.000, - 8 .000,0.056,0.114,0.178,0.248,0.325,0.412,0.514,0.638,0.793,1.000, - 9 .000,0.042,0.086,0.134,0.186,0.246,0.318,0.405,0.521,0.691,1.000/ - data ((caib(10,i,j),j=1,11),i=1,9)/ - 1 .000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, - 2 .000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, - 3 .000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, - 4 .000,0.100,0.199,0.298,0.398,0.498,0.598,0.698,0.798,0.899,1.000, - 5 .000,0.098,0.196,0.294,0.392,0.491,0.590,0.691,0.793,0.896,1.000, - 6 .000,0.092,0.185,0.278,0.374,0.470,0.570,0.671,0.777,0.886,1.000, - 7 .000,0.081,0.162,0.246,0.333,0.424,0.521,0.625,0.738,0.862,1.000, - 8 .000,0.063,0.128,0.196,0.270,0.349,0.438,0.540,0.661,0.809,1.000, - 9 .000,0.046,0.094,0.146,0.202,0.264,0.337,0.426,0.542,0.710,1.000/ - data ((caib(11,i,j),j=1,11),i=1,9)/ - 1 .000,0.101,0.202,0.302,0.402,0.502,0.602,0.702,0.802,0.901,1.000, - 2 .000,0.102,0.202,0.303,0.404,0.504,0.604,0.703,0.802,0.902,1.000, - 3 .000,0.102,0.205,0.306,0.406,0.506,0.606,0.706,0.804,0.902,1.000, - 4 .000,0.104,0.207,0.309,0.410,0.510,0.609,0.707,0.805,0.902,1.000, - 5 .000,0.106,0.208,0.309,0.409,0.508,0.606,0.705,0.803,0.902,1.000, - 6 .000,0.102,0.202,0.298,0.395,0.493,0.590,0.690,0.790,0.894,1.000, - 7 .000,0.091,0.179,0.267,0.357,0.449,0.545,0.647,0.755,0.872,1.000, - 8 .000,0.073,0.142,0.214,0.290,0.372,0.462,0.563,0.681,0.822,1.000, - 9 .000,0.053,0.104,0.158,0.217,0.281,0.356,0.446,0.562,0.726,1.000/ - data ((caif(i,j),j=1,11),i=1,9)/ - 1 .000,0.099,0.198,0.297,0.397,0.496,0.597,0.697,0.798,0.899,1.000, - 2 .000,0.098,0.196,0.294,0.394,0.494,0.594,0.694,0.796,0.898,1.000, - 3 .000,0.096,0.192,0.290,0.388,0.487,0.587,0.689,0.792,0.895,1.000, - 4 .000,0.092,0.185,0.280,0.376,0.476,0.576,0.678,0.783,0.890,1.000, - 5 .000,0.085,0.173,0.263,0.357,0.454,0.555,0.659,0.768,0.881,1.000, - 6 .000,0.076,0.154,0.237,0.324,0.418,0.517,0.624,0.738,0.864,1.000, - 7 .000,0.063,0.131,0.203,0.281,0.366,0.461,0.567,0.688,0.830,1.000, - 8 .000,0.052,0.107,0.166,0.232,0.305,0.389,0.488,0.610,0.770,1.000, - 9 .000,0.043,0.088,0.136,0.189,0.248,0.317,0.400,0.510,0.675,1.000/ diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/modis_simulator.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/modis_simulator.F90 deleted file mode 100644 index 229855bab..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/modis_simulator.F90 +++ /dev/null @@ -1,1015 +0,0 @@ -! (c) 2009-2010, Regents of the Unversity of Colorado -! Author: Robert Pincus, Cooperative Institute for Research in the Environmental Sciences -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without modification, are permitted -! provided that the following conditions are met: -! -! * Redistributions of source code must retain the above copyright notice, this list -! of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright notice, this list -! of conditions and the following disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its contributors may be used -! to endorse or promote products derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -! - -! -! History: -! May 2009 - Robert Pincus - Initial version -! June 2009 - Steve Platnick and Robert Pincus - Simple radiative transfer for size retrievals -! August 2009 - Robert Pincus - Consistency and bug fixes suggested by Rick Hemler (GFDL) -! November 2009 - Robert Pincus - Bux fixes and speed-ups after experience with Rick Hemler using AM2 (GFDL) -! January 2010 - Robert Pincus - Added high, middle, low cloud fractions -! - -! -! Notes on using the MODIS simulator: -! *) You may provide either layer-by-layer values of optical thickness at 0.67 and 2.1 microns, or -! optical thickness at 0.67 microns and ice- and liquid-water contents (in consistent units of -! your choosing) -! *) Required input also includes the optical thickness and cloud top pressure -! derived from the ISCCP simulator run with parameter top_height = 1. -! *) Cloud particle sizes are specified as radii, measured in meters, though within the module we -! use units of microns. Where particle sizes are outside the bounds used in the MODIS retrieval -! libraries (parameters re_water_min, re_ice_min, etc.) the simulator returns missing values (re_fill) - -! -! When error conditions are encountered this code calls the function complain_and_die, supplied at the -! bottom of this module. Users probably want to replace this with something more graceful. -! -module mod_modis_sim - USE MOD_COSP_TYPES, only: R_UNDEF - implicit none - ! ------------------------------ - ! Algorithmic parameters - ! - - real, parameter :: ice_density = 0.93 ! liquid density is 1. - ! - ! Retrieval parameters - ! - real, parameter :: min_OpticalThickness = 0.3, & ! Minimum detectable optical thickness - CO2Slicing_PressureLimit = 700. * 100., & ! Cloud with higher pressures use thermal methods, units Pa - CO2Slicing_TauLimit = 1., & ! How deep into the cloud does CO2 slicing see? - phase_TauLimit = 1., & ! How deep into the cloud does the phase detection see? - size_TauLimit = 2., & ! Depth of the re retreivals - phaseDiscrimination_Threshold = 0.7 ! What fraction of total extincton needs to be - ! in a single category to make phase discrim. work? - real, parameter :: re_fill= -999. - integer, parameter :: phaseIsNone = 0, phaseIsLiquid = 1, phaseIsIce = 2, phaseIsUndetermined = 3 - - logical, parameter :: useSimpleReScheme = .false. - ! - ! These are the limits of the libraries for the MODIS collection 5 algorithms - ! They are also the limits used in the fits for g and w0 - ! - real, parameter :: re_water_min= 4., re_water_max= 30., re_ice_min= 5., re_ice_max= 90. - integer, parameter :: num_trial_res = 15 ! increase to make the linear pseudo-retrieval of size more accurate - logical, parameter :: use_two_re_iterations = .false. ! do two retrieval iterations? - - ! - ! Precompute near-IR optical params vs size for retrieval scheme - ! - integer, private :: i - real, dimension(num_trial_res), parameter :: & - trial_re_w = re_water_min + (re_water_max - re_water_min)/(num_trial_res-1) * (/ (i - 1, i = 1, num_trial_res) /), & - trial_re_i = re_ice_min + (re_ice_max - re_ice_min) /(num_trial_res-1) * (/ (i - 1, i = 1, num_trial_res) /) - - ! Can't initialze these during compilation, but do in before looping columns in retrievals - real, dimension(num_trial_res) :: g_w, g_i, w0_w, w0_i - ! ------------------------------ - ! Bin boundaries for the joint optical thickness/cloud top pressure histogram - ! - integer, parameter :: numTauHistogramBins = 6, numPressureHistogramBins = 7 - - real, private :: dummy_real - real, dimension(numTauHistogramBins + 1), parameter :: & - tauHistogramBoundaries = (/ min_OpticalThickness, 1.3, 3.6, 9.4, 23., 60., huge(dummy_real) /) - real, dimension(numPressureHistogramBins + 1), parameter :: & ! Units Pa - pressureHistogramBoundaries = (/ 0., 18000., 31000., 44000., 56000., 68000., 80000., huge(dummy_real) /) - real, parameter :: highCloudPressureLimit = 440. * 100., lowCloudPressureLimit = 680. * 100. - ! - ! For output - nominal bin centers and bin boundaries. On output pressure bins are highest to lowest. - ! - integer, private :: k, l - real, parameter, dimension(2, numTauHistogramBins) :: & - nominalTauHistogramBoundaries = & - reshape(source = (/ tauHistogramBoundaries(1), & - ((tauHistogramBoundaries(k), l = 1, 2), k = 2, numTauHistogramBins), & - 100000. /), & - shape = (/2, numTauHistogramBins /) ) - real, parameter, dimension(numTauHistogramBins) :: & - nominalTauHistogramCenters = (nominalTauHistogramBoundaries(1, :) + & - nominalTauHistogramBoundaries(2, :) ) / 2. - - real, parameter, dimension(2, numPressureHistogramBins) :: & - nominalPressureHistogramBoundaries = & - reshape(source = (/ 100000., & - ((pressureHistogramBoundaries(k), l = 1, 2), k = numPressureHistogramBins, 2, -1), & - 0. /), & - shape = (/2, numPressureHistogramBins /) ) - real, parameter, dimension(numPressureHistogramBins) :: & - nominalPressureHistogramCenters = (nominalPressureHistogramBoundaries(1, :) + & - nominalPressureHistogramBoundaries(2, :) ) / 2. - ! ------------------------------ - ! There are two ways to call the MODIS simulator: - ! 1) Provide total optical thickness and liquid/ice water content and we'll partition tau in - ! subroutine modis_L2_simulator_oneTau, or - ! 2) Provide ice and liquid optical depths in each layer - ! - interface modis_L2_simulator - module procedure modis_L2_simulator_oneTau, modis_L2_simulator_twoTaus - end interface -contains - !------------------------------------------------------------------------------------------------ - ! MODIS simulator using specified liquid and ice optical thickness in each layer - ! - ! Note: this simulator operates on all points; to match MODIS itself night-time - ! points should be excluded - ! - ! Note: the simulator requires as input the optical thickness and cloud top pressure - ! derived from the ISCCP simulator run with parameter top_height = 1. - ! If cloud top pressure is higher than about 700 mb, MODIS can't use CO2 slicing - ! and reverts to a thermal algorithm much like ISCCP's. Rather than replicate that - ! alogrithm in this simulator we simply report the values from the ISCCP simulator. - ! - subroutine modis_L2_simulator_twoTaus( & - temp, pressureLayers, pressureLevels, & - liquid_opticalThickness, ice_opticalThickness, & - waterSize, iceSize, & - isccpTau, isccpCloudTopPressure, & - retrievedPhase, retrievedCloudTopPressure, retrievedTau, retrievedSize) - - ! Grid-mean quantities at layer centers, starting at the model top - ! dimension nLayers - real, dimension(:), intent(in ) :: temp, & ! Temperature, K - pressureLayers, & ! Pressure, Pa - pressureLevels ! Pressure at layer edges, Pa (dimension nLayers + 1) - ! Sub-column quantities - ! dimension nSubcols, nLayers - real, dimension(:, :), intent(in ) :: liquid_opticalThickness, & ! Layer optical thickness @ 0.67 microns due to liquid - ice_opticalThickness ! ditto, due to ice - real, dimension(:, :), intent(in ) :: waterSize, & ! Cloud drop effective radius, microns - iceSize ! Cloud ice effective radius, microns - - ! Cloud properties retrieved from ISCCP using top_height = 1 - ! dimension nSubcols - real, dimension(:), intent(in ) :: isccpTau, & ! Column-integrated optical thickness - isccpCloudTopPressure ! ISCCP-retrieved cloud top pressure (Pa) - - ! Properties retrieved by MODIS - ! dimension nSubcols - integer, dimension(:), intent(out) :: retrievedPhase ! liquid/ice/other - integer, defined in module header - real, dimension(:), intent(out) :: retrievedCloudTopPressure, & ! units of pressureLayers - retrievedTau, & ! unitless - retrievedSize ! microns - ! --------------------------------------------------- - ! Local variables - logical, dimension(size(retrievedTau)) :: cloudMask - real, dimension(size(waterSize, 1), size(waterSize, 2)) :: tauLiquidFraction, tauTotal - real :: integratedLiquidFraction - integer :: i, nSubcols, nLevels - - ! --------------------------------------------------- - nSubcols = size(liquid_opticalThickness, 1) - nLevels = size(liquid_opticalThickness, 2) - - ! - ! Initial error checks - ! - if(any((/ size(ice_opticalThickness, 1), size(waterSize, 1), size(iceSize, 1), & - size(isccpTau), size(isccpCloudTopPressure), & - size(retrievedPhase), size(retrievedCloudTopPressure), & - size(retrievedTau), size(retrievedSize) /) /= nSubcols )) & - call complain_and_die("Differing number of subcolumns in one or more arrays") - - if(any((/ size(ice_opticalThickness, 2), size(waterSize, 2), size(iceSize, 2), & - size(temp), size(pressureLayers), size(pressureLevels)-1 /) /= nLevels )) & - call complain_and_die("Differing number of levels in one or more arrays") - - - if(any( (/ any(temp <= 0.), any(pressureLayers <= 0.), & - any(liquid_opticalThickness < 0.), & - any(ice_opticalThickness < 0.), & - any(waterSize < 0.), any(iceSize < 0.) /) )) & - call complain_and_die("Input values out of bounds") - - ! --------------------------------------------------- - ! - ! Compute the total optical thickness and the proportion due to liquid in each cell - ! - where(liquid_opticalThickness(:, :) + ice_opticalThickness(:, :) > 0.) - tauLiquidFraction(:, :) = liquid_opticalThickness(:, :)/(liquid_opticalThickness(:, :) + ice_opticalThickness(:, :)) - elsewhere - tauLiquidFraction(:, :) = 0. - end where - tauTotal(:, :) = liquid_opticalThickness(:, :) + ice_opticalThickness(:, :) - - ! - ! Optical depth retrieval - ! This is simply a sum over the optical thickness in each layer - ! It should agree with the ISCCP values after min values have been excluded - ! - retrievedTau(:) = sum(tauTotal(:, :), dim = 2) - - ! - ! Cloud detection - does optical thickness exceed detection threshold? - ! - cloudMask = retrievedTau(:) >= min_OpticalThickness - - ! - ! Initialize initial estimates for size retrievals - ! - if(any(cloudMask) .and. .not. useSimpleReScheme) then - g_w(:) = get_g_nir( phaseIsLiquid, trial_re_w(:)) - w0_w(:) = get_ssa_nir(phaseIsLiquid, trial_re_w(:)) - g_i(:) = get_g_nir( phaseIsIce, trial_re_i(:)) - w0_i(:) = get_ssa_nir(phaseIsIce, trial_re_i(:)) - end if - - do i = 1, nSubCols - if(cloudMask(i)) then - ! - ! Cloud top pressure determination - ! MODIS uses CO2 slicing for clouds with tops above about 700 mb and thermal methods for clouds - ! lower than that. - ! For CO2 slicing we report the optical-depth weighted pressure, integrating to a specified - ! optical depth - ! This assumes linear variation in p between levels. Linear in ln(p) is probably better, - ! though we'd need to deal with the lowest pressure gracefully. - ! - retrievedCloudTopPressure(i) = cloud_top_pressure((/ 0., tauTotal(i, :) /), & - pressureLevels, & - CO2Slicing_TauLimit) - - - ! - ! Phase determination - determine fraction of total tau that's liquid - ! When ice and water contribute about equally to the extinction we can't tell - ! what the phase is - ! - integratedLiquidFraction = weight_by_extinction(tauTotal(i, :), & - tauLiquidFraction(i, :), & - phase_TauLimit) - if(integratedLiquidFraction >= phaseDiscrimination_Threshold) then - retrievedPhase(i) = phaseIsLiquid - else if (integratedLiquidFraction <= 1.- phaseDiscrimination_Threshold) then - retrievedPhase(i) = phaseIsIce - else - retrievedPhase(i) = phaseIsUndetermined - end if - - ! - ! Size determination - ! - if(useSimpleReScheme) then - ! This is the extinction-weighted size considering only the phase we've chosen - ! - if(retrievedPhase(i) == phaseIsIce) then - retrievedSize(i) = weight_by_extinction(ice_opticalThickness(i, :), & - iceSize(i, :), & - (1. - integratedLiquidFraction) * size_TauLimit) - - else if(retrievedPhase(i) == phaseIsLiquid) then - retrievedSize(i) = weight_by_extinction(liquid_opticalThickness(i, :), & - waterSize(i, :), & - integratedLiquidFraction * size_TauLimit) - - else - retrievedSize(i) = 0. - end if - else - retrievedSize(i) = 1.0e-06*retrieve_re(retrievedPhase(i), retrievedTau(i), & - obs_Refl_nir = compute_nir_reflectance(liquid_opticalThickness(i, :), waterSize(i, :)*1.0e6, & - ice_opticalThickness(i, :), iceSize(i, :)*1.0e6)) - end if - else - ! - ! Values when we don't think there's a cloud. - ! - retrievedCloudTopPressure(i) = R_UNDEF - retrievedPhase(i) = phaseIsNone - retrievedSize(i) = R_UNDEF - retrievedTau(i) = R_UNDEF - end if - end do - where((retrievedSize(:) < 0.).and.(retrievedSize(:) /= R_UNDEF)) retrievedSize(:) = 1.0e-06*re_fill - - ! We use the ISCCP-derived CTP for low clouds, since the ISCCP simulator ICARUS - ! mimics what MODIS does to first order. - ! Of course, ISCCP cloud top pressures are in mb. - ! - where(cloudMask(:) .and. retrievedCloudTopPressure(:) > CO2Slicing_PressureLimit) & - retrievedCloudTopPressure(:) = isccpCloudTopPressure * 100. - - end subroutine modis_L2_simulator_twoTaus - !------------------------------------------------------------------------------------------------ - ! - ! MODIS simulator: provide a single optical thickness and the cloud ice and liquid contents; - ! we'll partition this into ice and liquid optical thickness and call the full MODIS simulator - ! - subroutine modis_L2_simulator_oneTau( & - temp, pressureLayers, pressureLevels, & - opticalThickness, cloudWater, cloudIce, & - waterSize, iceSize, & - isccpTau, isccpCloudTopPressure, & - retrievedPhase, retrievedCloudTopPressure, retrievedTau, retrievedSize) - ! Grid-mean quantities at layer centers, - ! dimension nLayers - real, dimension(:), intent(in ) :: temp, & ! Temperature, K - pressureLayers, & ! Pressure, Pa - pressureLevels ! Pressure at layer edges, Pa (dimension nLayers + 1) - ! Sub-column quantities - ! dimension nLayers, nSubcols - real, dimension(:, :), intent(in ) :: opticalThickness, & ! Layer optical thickness @ 0.67 microns - cloudWater, & ! Cloud water content, arbitrary units - cloudIce ! Cloud water content, same units as cloudWater - real, dimension(:, :), intent(in ) :: waterSize, & ! Cloud drop effective radius, microns - iceSize ! Cloud ice effective radius, microns - - ! Cloud properties retrieved from ISCCP using top_height = 1 - ! dimension nSubcols - - real, dimension(:), intent(in ) :: isccpTau, & ! Column-integrated optical thickness - isccpCloudTopPressure ! ISCCP-retrieved cloud top pressure (Pa) - - ! Properties retrieved by MODIS - ! dimension nSubcols - integer, dimension(:), intent(out) :: retrievedPhase ! liquid/ice/other - integer - real, dimension(:), intent(out) :: retrievedCloudTopPressure, & ! units of pressureLayers - retrievedTau, & ! unitless - retrievedSize ! microns (or whatever units - ! waterSize and iceSize are supplied in) - ! --------------------------------------------------- - ! Local variables - real, dimension(size(opticalThickness, 1), size(opticalThickness, 2)) :: & - liquid_opticalThickness, ice_opticalThickness, tauLiquidFraction - - ! --------------------------------------------------- - - where(cloudIce(:, :) <= 0.) - tauLiquidFraction(:, :) = 1. - elsewhere - where (cloudWater(:, :) <= 0.) - tauLiquidFraction(:, :) = 0. - elsewhere - ! - ! Geometic optics limit - tau as LWP/re (proportional to LWC/re) - ! - tauLiquidFraction(:, :) = (cloudWater(:, :)/waterSize(:, :)) / & - (cloudWater(:, :)/waterSize(:, :) + cloudIce(:, :)/(ice_density * iceSize(:, :)) ) - end where - end where - liquid_opticalThickness(:, :) = tauLiquidFraction(:, :) * opticalThickness(:, :) - ice_opticalThickness (:, :) = opticalThickness(:, :) - liquid_opticalThickness(:, :) - - call modis_L2_simulator_twoTaus(temp, pressureLayers, pressureLevels, & - liquid_opticalThickness, ice_opticalThickness, & - waterSize, iceSize, & - isccpTau, isccpCloudTopPressure, & - retrievedPhase, retrievedCloudTopPressure, retrievedTau, retrievedSize) - - end subroutine modis_L2_simulator_oneTau - !------------------------------------------------------------------------------------------------ - subroutine modis_L3_simulator(phase, cloud_top_pressure, optical_thickness, particle_size, & - Cloud_Fraction_Total_Mean, Cloud_Fraction_Water_Mean, Cloud_Fraction_Ice_Mean, & - Cloud_Fraction_High_Mean, Cloud_Fraction_Mid_Mean, Cloud_Fraction_Low_Mean, & - Optical_Thickness_Total_Mean, Optical_Thickness_Water_Mean, Optical_Thickness_Ice_Mean, & - Optical_Thickness_Total_MeanLog10, Optical_Thickness_Water_MeanLog10, Optical_Thickness_Ice_MeanLog10, & - Cloud_Particle_Size_Water_Mean, Cloud_Particle_Size_Ice_Mean, & - Cloud_Top_Pressure_Total_Mean, & - Liquid_Water_Path_Mean, Ice_Water_Path_Mean, & - Optical_Thickness_vs_Cloud_Top_Pressure) - ! - ! Inputs; dimension nPoints, nSubcols - ! - integer, dimension(:, :), intent(in) :: phase - real, dimension(:, :), intent(in) :: cloud_top_pressure, optical_thickness, particle_size - ! - ! Outputs; dimension nPoints - ! - real, dimension(:), intent(out) :: & - Cloud_Fraction_Total_Mean, Cloud_Fraction_Water_Mean, Cloud_Fraction_Ice_Mean, & - Cloud_Fraction_High_Mean, Cloud_Fraction_Mid_Mean, Cloud_Fraction_Low_Mean, & - Optical_Thickness_Total_Mean, Optical_Thickness_Water_Mean, Optical_Thickness_Ice_Mean, & - Optical_Thickness_Total_MeanLog10, Optical_Thickness_Water_MeanLog10, Optical_Thickness_Ice_MeanLog10, & - Cloud_Particle_Size_Water_Mean, Cloud_Particle_Size_Ice_Mean, & - Cloud_Top_Pressure_Total_Mean, & - Liquid_Water_Path_Mean, Ice_Water_Path_Mean - ! tau/ctp histogram; dimensions nPoints, numTauHistogramBins , numPressureHistogramBins - real, dimension(:, :, :), intent(out) :: Optical_Thickness_vs_Cloud_Top_Pressure - ! --------------------------- - ! Local variables - ! - real, parameter :: LWP_conversion = 2./3. * 1000. ! MKS units - integer :: i, j - integer :: nPoints, nSubcols - logical, dimension(size(phase, 1), size(phase, 2)) :: & - cloudMask, waterCloudMask, iceCloudMask, validRetrievalMask - logical, dimension(size(phase, 1), size(phase, 2), numTauHistogramBins ) :: tauMask - logical, dimension(size(phase, 1), size(phase, 2), numPressureHistogramBins) :: pressureMask - ! --------------------------- - - nPoints = size(phase, 1) - nSubcols = size(phase, 2) - ! - ! Array conformance checks - ! - if(any( (/ size(cloud_top_pressure, 1), size(optical_thickness, 1), size(particle_size, 1), & - size(Cloud_Fraction_Total_Mean), size(Cloud_Fraction_Water_Mean), size(Cloud_Fraction_Ice_Mean), & - size(Cloud_Fraction_High_Mean), size(Cloud_Fraction_Mid_Mean), size(Cloud_Fraction_Low_Mean), & - size(Optical_Thickness_Total_Mean), size(Optical_Thickness_Water_Mean), size(Optical_Thickness_Ice_Mean), & - size(Optical_Thickness_Total_MeanLog10), size(Optical_Thickness_Water_MeanLog10), & - size(Optical_Thickness_Ice_MeanLog10), size(Cloud_Particle_Size_Water_Mean), & - size(Cloud_Particle_Size_Ice_Mean), size(Cloud_Top_Pressure_Total_Mean), & - size(Liquid_Water_Path_Mean), size(Ice_Water_Path_Mean) /) /= nPoints)) & - call complain_and_die("Some L3 arrays have wrong number of grid points") - if(any( (/ size(cloud_top_pressure, 2), size(optical_thickness, 2), size(particle_size, 2) /) /= nSubcols)) & - call complain_and_die("Some L3 arrays have wrong number of subcolumns") - - - ! - ! Include only those pixels with successful retrievals in the statistics - ! - validRetrievalMask(:, :) = particle_size(:, :) > 0. - cloudMask = phase(:, :) /= phaseIsNone .and. validRetrievalMask(:, :) - waterCloudMask = phase(:, :) == phaseIsLiquid .and. validRetrievalMask(:, :) - iceCloudMask = phase(:, :) == phaseIsIce .and. validRetrievalMask(:, :) - ! - ! Use these as pixel counts at first - ! - Cloud_Fraction_Total_Mean(:) = real(count(cloudMask, dim = 2)) - Cloud_Fraction_Water_Mean(:) = real(count(waterCloudMask, dim = 2)) - Cloud_Fraction_Ice_Mean(:) = real(count(iceCloudMask, dim = 2)) - - Cloud_Fraction_High_Mean(:) = real(count(cloudMask .and. cloud_top_pressure <= highCloudPressureLimit, dim = 2)) - Cloud_Fraction_Low_Mean(:) = real(count(cloudMask .and. cloud_top_pressure > lowCloudPressureLimit, dim = 2)) - Cloud_Fraction_Mid_Mean(:) = Cloud_Fraction_Total_Mean(:) - Cloud_Fraction_High_Mean(:) - Cloud_Fraction_Low_Mean(:) - - ! - ! Don't want to divide by 0, even though the sums will be 0 where the pixel counts are 0. - ! - where (Cloud_Fraction_Total_Mean == 0) Cloud_Fraction_Total_Mean = -1. - where (Cloud_Fraction_Water_Mean == 0) Cloud_Fraction_Water_Mean = -1. - where (Cloud_Fraction_Ice_Mean == 0) Cloud_Fraction_Ice_Mean = -1. - - Optical_Thickness_Total_Mean = sum(optical_thickness, mask = cloudMask, dim = 2) / Cloud_Fraction_Total_Mean(:) - Optical_Thickness_Water_Mean = sum(optical_thickness, mask = waterCloudMask, dim = 2) / Cloud_Fraction_Water_Mean(:) - Optical_Thickness_Ice_Mean = sum(optical_thickness, mask = iceCloudMask, dim = 2) / Cloud_Fraction_Ice_Mean(:) - - ! We take the absolute value of optical thickness here to satisfy compilers that complains when we - ! evaluate the logarithm of a negative number, even though it's not included in the sum. - Optical_Thickness_Total_MeanLog10 = sum(log10(abs(optical_thickness)), mask = cloudMask, dim = 2) / Cloud_Fraction_Total_Mean(:) - Optical_Thickness_Water_MeanLog10 = sum(log10(abs(optical_thickness)), mask = waterCloudMask, dim = 2) / Cloud_Fraction_Water_Mean(:) - Optical_Thickness_Ice_MeanLog10 = sum(log10(abs(optical_thickness)), mask = iceCloudMask, dim = 2) / Cloud_Fraction_Ice_Mean(:) - - Cloud_Particle_Size_Water_Mean = sum(particle_size, mask = waterCloudMask, dim = 2) / Cloud_Fraction_Water_Mean(:) - Cloud_Particle_Size_Ice_Mean = sum(particle_size, mask = iceCloudMask, dim = 2) / Cloud_Fraction_Ice_Mean(:) - - Cloud_Top_Pressure_Total_Mean = sum(cloud_top_pressure, mask = cloudMask, dim = 2) / max(1, count(cloudMask, dim = 2)) - - Liquid_Water_Path_Mean = LWP_conversion & - * sum(particle_size * optical_thickness, mask = waterCloudMask, dim = 2) & - / Cloud_Fraction_Water_Mean(:) - Ice_Water_Path_Mean = LWP_conversion * ice_density & - * sum(particle_size * optical_thickness, mask = iceCloudMask, dim = 2) & - / Cloud_Fraction_Ice_Mean(:) - - ! - ! Normalize pixel counts to fraction - ! The first three cloud fractions have been set to -1 in cloud-free areas, so set those places to 0. - ! - Cloud_Fraction_Total_Mean(:) = max(0., Cloud_Fraction_Total_Mean(:)/nSubcols) - Cloud_Fraction_Water_Mean(:) = max(0., Cloud_Fraction_Water_Mean(:)/nSubcols) - Cloud_Fraction_Ice_Mean(:) = max(0., Cloud_Fraction_Ice_Mean(:) /nSubcols) - - Cloud_Fraction_High_Mean(:) = Cloud_Fraction_High_Mean(:) /nSubcols - Cloud_Fraction_Mid_Mean(:) = Cloud_Fraction_Mid_Mean(:) /nSubcols - Cloud_Fraction_Low_Mean(:) = Cloud_Fraction_Low_Mean(:) /nSubcols - - ! ---- - ! Joint histogram - ! - do i = 1, numTauHistogramBins - where(cloudMask(:, :)) - tauMask(:, :, i) = optical_thickness(:, :) >= tauHistogramBoundaries(i) .and. & - optical_thickness(:, :) < tauHistogramBoundaries(i+1) - elsewhere - tauMask(:, :, i) = .false. - end where - end do - - do i = 1, numPressureHistogramBins - where(cloudMask(:, :)) - pressureMask(:, :, i) = cloud_top_pressure(:, :) >= pressureHistogramBoundaries(i) .and. & - cloud_top_pressure(:, :) < pressureHistogramBoundaries(i+1) - elsewhere - pressureMask(:, :, i) = .false. - end where - end do - - do i = 1, numPressureHistogramBins - do j = 1, numTauHistogramBins - Optical_Thickness_vs_Cloud_Top_Pressure(:, j, i) = & - real(count(tauMask(:, :, j) .and. pressureMask(:, :, i), dim = 2)) / real(nSubcols) - end do - end do - - end subroutine modis_L3_simulator - !------------------------------------------------------------------------------------------------ - function cloud_top_pressure(tauIncrement, pressure, tauLimit) - real, dimension(:), intent(in) :: tauIncrement, pressure - real, intent(in) :: tauLimit - real :: cloud_top_pressure - ! - ! Find the extinction-weighted pressure. Assume that pressure varies linearly between - ! layers and use the trapezoidal rule. - ! - - real :: deltaX, totalTau, totalProduct - integer :: i - - totalTau = 0.; totalProduct = 0. - do i = 2, size(tauIncrement) - if(totalTau + tauIncrement(i) > tauLimit) then - deltaX = tauLimit - totalTau - totalTau = totalTau + deltaX - ! - ! Result for trapezoidal rule when you take less than a full step - ! tauIncrement is a layer-integrated value - ! - totalProduct = totalProduct & - + pressure(i-1) * deltaX & - + (pressure(i) - pressure(i-1)) * deltaX**2/(2. * tauIncrement(i)) - else - totalTau = totalTau + tauIncrement(i) - totalProduct = totalProduct + tauIncrement(i) * (pressure(i) + pressure(i-1)) / 2. - end if - if(totalTau >= tauLimit) exit - end do - cloud_top_pressure = totalProduct/totalTau - end function cloud_top_pressure - !------------------------------------------------------------------------------------------------ - function weight_by_extinction(tauIncrement, f, tauLimit) - real, dimension(:), intent(in) :: tauIncrement, f - real, intent(in) :: tauLimit - real :: weight_by_extinction - ! - ! Find the extinction-weighted value of f(tau), assuming constant f within each layer - ! - - real :: deltaX, totalTau, totalProduct - integer :: i - - totalTau = 0.; totalProduct = 0. - do i = 1, size(tauIncrement) - if(totalTau + tauIncrement(i) > tauLimit) then - deltaX = tauLimit - totalTau - totalTau = totalTau + deltaX - totalProduct = totalProduct + deltaX * f(i) - else - totalTau = totalTau + tauIncrement(i) - totalProduct = totalProduct + tauIncrement(i) * f(i) - end if - if(totalTau >= tauLimit) exit - end do - weight_by_extinction = totalProduct/totalTau - end function weight_by_extinction - !------------------------------------------------------------------------------------------------ - pure function compute_nir_reflectance(water_tau, water_size, ice_tau, ice_size) - real, dimension(:), intent(in) :: water_tau, water_size, ice_tau, ice_size - real :: compute_nir_reflectance - - real, dimension(size(water_tau)) :: water_g, water_w0, ice_g, ice_w0, & - tau, g, w0 - !---------------------------------------- - water_g(:) = get_g_nir( phaseIsLiquid, water_size) - water_w0(:) = get_ssa_nir(phaseIsLiquid, water_size) - ice_g(:) = get_g_nir( phaseIsIce, ice_size) - ice_w0(:) = get_ssa_nir(phaseIsIce, ice_size) - ! - ! Combine ice and water optical properties - ! - g(:) = 0; w0(:) = 0. - tau(:) = ice_tau(:) + water_tau(:) - where (tau(:) > 0) - g(:) = (water_tau(:) * water_g(:) + ice_tau(:) * ice_g(:) ) / & - tau(:) - w0(:) = (water_tau(:) * water_g(:) * water_w0(:) + ice_tau(:) * ice_g(:) * ice_w0(:)) / & - (g(:) * tau(:)) - end where - - compute_nir_reflectance = compute_toa_reflectace(tau, g, w0) - end function compute_nir_reflectance - !------------------------------------------------------------------------------------------------ - ! Retreivals - !------------------------------------------------------------------------------------------------ - elemental function retrieve_re (phase, tau, obs_Refl_nir) - integer, intent(in) :: phase - real, intent(in) :: tau, obs_Refl_nir - real :: retrieve_re - ! - ! Finds the re that produces the minimum mis-match between predicted and observed reflectance in - ! MODIS band 7 (near IR) - ! Uses - ! fits for asymmetry parameter g(re) and single scattering albedo w0(re) based on MODIS tables - ! two-stream for layer reflectance and transmittance as a function of optical thickness tau, g, and w0 - ! adding-doubling for total reflectance - ! - ! - ! - ! Local variables - ! - real, parameter :: min_distance_to_boundary = 0.01 - real :: re_min, re_max, delta_re - integer :: i - - real, dimension(num_trial_res) :: trial_re, g, w0, predicted_Refl_nir - ! -------------------------- - - if(any(phase == (/ phaseIsLiquid, phaseIsUndetermined, phaseIsIce /))) then - if (phase == phaseIsLiquid .OR. phase == phaseIsUndetermined) then - re_min = re_water_min - re_max = re_water_max - trial_re(:) = trial_re_w - g(:) = g_w(:) - w0(:) = w0_w(:) - else - re_min = re_ice_min - re_max = re_ice_max - trial_re(:) = trial_re_i - g(:) = g_i(:) - w0(:) = w0_i(:) - end if - ! - ! 1st attempt at index: w/coarse re resolution - ! - predicted_Refl_nir(:) = two_stream_reflectance(tau, g(:), w0(:)) - retrieve_re = interpolate_to_min(trial_re(:), predicted_Refl_nir(:), obs_Refl_nir) - ! - ! If first retrieval works, can try 2nd iteration using greater re resolution - ! - if(use_two_re_iterations .and. retrieve_re > 0.) then - re_min = retrieve_re - delta_re - re_max = retrieve_re + delta_re - delta_re = (re_max - re_min)/real(num_trial_res-1) - - trial_re(:) = re_min + delta_re * (/ (i - 1, i = 1, num_trial_res) /) - g(:) = get_g_nir( phase, trial_re(:)) - w0(:) = get_ssa_nir(phase, trial_re(:)) - predicted_Refl_nir(:) = two_stream_reflectance(tau, g(:), w0(:)) - retrieve_re = interpolate_to_min(trial_re(:), predicted_Refl_nir(:), obs_Refl_nir) - end if - else - retrieve_re = re_fill - end if - - end function retrieve_re - ! -------------------------------------------- - pure function interpolate_to_min(x, y, yobs) - real, dimension(:), intent(in) :: x, y - real, intent(in) :: yobs - real :: interpolate_to_min - ! - ! Given a set of values of y as y(x), find the value of x that minimizes abs(y - yobs) - ! y must be monotonic in x - ! - real, dimension(size(x)) :: diff - integer :: nPoints, minDiffLoc, lowerBound, upperBound - ! --------------------------------- - nPoints = size(y) - diff(:) = y(:) - yobs - minDiffLoc = minloc(abs(diff), dim = 1) - - if(minDiffLoc == 1) then - lowerBound = minDiffLoc - upperBound = minDiffLoc + 1 - else if(minDiffLoc == nPoints) then - lowerBound = minDiffLoc - 1 - upperBound = minDiffLoc - else - if(diff(minDiffLoc-1) * diff(minDiffLoc) < 0) then - lowerBound = minDiffLoc-1 - upperBound = minDiffLoc - else - lowerBound = minDiffLoc - upperBound = minDiffLoc + 1 - end if - end if - - if(diff(lowerBound) * diff(upperBound) < 0) then - ! - ! Interpolate the root position linearly if we bracket the root - ! - interpolate_to_min = x(upperBound) - & - diff(upperBound) * (x(upperBound) - x(lowerBound)) / (diff(upperBound) - diff(lowerBound)) - else - interpolate_to_min = re_fill - end if - - - end function interpolate_to_min - ! -------------------------------------------- - ! Optical properties - ! -------------------------------------------- - elemental function get_g_nir (phase, re) - ! - ! Polynomial fit for asummetry parameter g in MODIS band 7 (near IR) as a function - ! of size for ice and water - ! Fits from Steve Platnick - ! - - integer, intent(in) :: phase - real, intent(in) :: re - real :: get_g_nir - - real, dimension(3), parameter :: ice_coefficients = (/ 0.7432, 4.5563e-3, -2.8697e-5 /), & - small_water_coefficients = (/ 0.8027, -1.0496e-2, 1.7071e-3 /), & - big_water_coefficients = (/ 0.7931, 5.3087e-3, -7.4995e-5 /) - - ! approx. fits from MODIS Collection 5 LUT scattering calculations - if(phase == phaseIsLiquid) then - if(re < 8.) then - get_g_nir = fit_to_quadratic(re, small_water_coefficients) - if(re < re_water_min) get_g_nir = fit_to_quadratic(re_water_min, small_water_coefficients) - else - get_g_nir = fit_to_quadratic(re, big_water_coefficients) - if(re > re_water_max) get_g_nir = fit_to_quadratic(re_water_max, big_water_coefficients) - end if - else - get_g_nir = fit_to_quadratic(re, ice_coefficients) - if(re < re_ice_min) get_g_nir = fit_to_quadratic(re_ice_min, ice_coefficients) - if(re > re_ice_max) get_g_nir = fit_to_quadratic(re_ice_max, ice_coefficients) - end if - - end function get_g_nir - - ! -------------------------------------------- - elemental function get_ssa_nir (phase, re) - integer, intent(in) :: phase - real, intent(in) :: re - real :: get_ssa_nir - ! - ! Polynomial fit for single scattering albedo in MODIS band 7 (near IR) as a function - ! of size for ice and water - ! Fits from Steve Platnick - ! - - real, dimension(4), parameter :: ice_coefficients = (/ 0.9994, -4.5199e-3, 3.9370e-5, -1.5235e-7 /) - real, dimension(3), parameter :: water_coefficients = (/ 1.0008, -2.5626e-3, 1.6024e-5 /) - - ! approx. fits from MODIS Collection 5 LUT scattering calculations - if(phase == phaseIsLiquid) then - get_ssa_nir = fit_to_quadratic(re, water_coefficients) - if(re < re_water_min) get_ssa_nir = fit_to_quadratic(re_water_min, water_coefficients) - if(re > re_water_max) get_ssa_nir = fit_to_quadratic(re_water_max, water_coefficients) - else - get_ssa_nir = fit_to_cubic(re, ice_coefficients) - if(re < re_ice_min) get_ssa_nir = fit_to_cubic(re_ice_min, ice_coefficients) - if(re > re_ice_max) get_ssa_nir = fit_to_cubic(re_ice_max, ice_coefficients) - end if - - end function get_ssa_nir - ! -------------------------------------------- - pure function fit_to_cubic(x, coefficients) - real, intent(in) :: x - real, dimension(:), intent(in) :: coefficients - real :: fit_to_cubic - - - fit_to_cubic = coefficients(1) + x * (coefficients(2) + x * (coefficients(3) + x * coefficients(4))) - end function fit_to_cubic - ! -------------------------------------------- - pure function fit_to_quadratic(x, coefficients) - real, intent(in) :: x - real, dimension(:), intent(in) :: coefficients - real :: fit_to_quadratic - - - fit_to_quadratic = coefficients(1) + x * (coefficients(2) + x * (coefficients(3))) - end function fit_to_quadratic - ! -------------------------------------------- - ! Radiative transfer - ! -------------------------------------------- - pure function compute_toa_reflectace(tau, g, w0) - real, dimension(:), intent(in) :: tau, g, w0 - real :: compute_toa_reflectace - - logical, dimension(size(tau)) :: cloudMask - integer, dimension(count(tau(:) > 0)) :: cloudIndicies - real, dimension(count(tau(:) > 0)) :: Refl, Trans - real :: Refl_tot, Trans_tot - integer :: i - ! --------------------------------------- - ! - ! This wrapper reports reflectance only and strips out non-cloudy elements from the calculation - ! - cloudMask = tau(:) > 0. - cloudIndicies = pack((/ (i, i = 1, size(tau)) /), mask = cloudMask) - do i = 1, size(cloudIndicies) - call two_stream(tau(cloudIndicies(i)), g(cloudIndicies(i)), w0(cloudIndicies(i)), Refl(i), Trans(i)) - end do - - call adding_doubling(Refl(:), Trans(:), Refl_tot, Trans_tot) - - compute_toa_reflectace = Refl_tot - - end function compute_toa_reflectace - ! -------------------------------------------- - pure subroutine two_stream(tauint, gint, w0int, ref, tra) - real, intent(in) :: tauint, gint, w0int - real, intent(out) :: ref, tra - ! - ! Compute reflectance in a single layer using the two stream approximation - ! The code itself is from Lazaros Oreopoulos via Steve Platnick - ! - ! ------------------------ - ! Local variables - ! for delta Eddington code - ! xmu, gamma3, and gamma4 only used for collimated beam approximation (i.e., beam=1) - integer, parameter :: beam = 2 - real, parameter :: xmu = 0.866, minConservativeW0 = 0.9999999 - real :: tau, w0, g, f, gamma1, gamma2, gamma3, gamma4, & - rh, a1, a2, rk, r1, r2, r3, r4, r5, t1, t2, t3, t4, t5, beta, e1, e2, ef1, ef2, den, th - ! - ! Compute reflectance and transmittance in a single layer using the two stream approximation - ! The code itself is from Lazaros Oreopoulos via Steve Platnick - ! - f = gint**2 - tau = (1 - w0int * f) * tauint - w0 = (1 - f) * w0int / (1 - w0int * f) - g = (gint - f) / (1 - f) - - ! delta-Eddington (Joseph et al. 1976) - gamma1 = (7 - w0* (4 + 3 * g)) / 4.0 - gamma2 = -(1 - w0* (4 - 3 * g)) / 4.0 - gamma3 = (2 - 3*g*xmu) / 4.0 - gamma4 = 1 - gamma3 - - if (w0int > minConservativeW0) then - ! Conservative scattering - if (beam == 1) then - rh = (gamma1*tau+(gamma3-gamma1*xmu)*(1-exp(-tau/xmu))) - ref = rh / (1 + gamma1 * tau) - tra = 1 - ref - else if(beam == 2) then - ref = gamma1*tau/(1 + gamma1*tau) - tra = 1 - ref - endif - else - ! Non-conservative scattering - a1 = gamma1 * gamma4 + gamma2 * gamma3 - a2 = gamma1 * gamma3 + gamma2 * gamma4 - - rk = sqrt(gamma1**2 - gamma2**2) - - r1 = (1 - rk * xmu) * (a2 + rk * gamma3) - r2 = (1 + rk * xmu) * (a2 - rk * gamma3) - r3 = 2 * rk *(gamma3 - a2 * xmu) - r4 = (1 - (rk * xmu)**2) * (rk + gamma1) - r5 = (1 - (rk * xmu)**2) * (rk - gamma1) - - t1 = (1 + rk * xmu) * (a1 + rk * gamma4) - t2 = (1 - rk * xmu) * (a1 - rk * gamma4) - t3 = 2 * rk * (gamma4 + a1 * xmu) - t4 = r4 - t5 = r5 - - beta = -r5 / r4 - - e1 = min(rk * tau, 500.) - e2 = min(tau / xmu, 500.) - - if (beam == 1) then - den = r4 * exp(e1) + r5 * exp(-e1) - ref = w0*(r1*exp(e1)-r2*exp(-e1)-r3*exp(-e2))/den - den = t4 * exp(e1) + t5 * exp(-e1) - th = exp(-e2) - tra = th-th*w0*(t1*exp(e1)-t2*exp(-e1)-t3*exp(e2))/den - elseif (beam == 2) then - ef1 = exp(-e1) - ef2 = exp(-2*e1) - ref = (gamma2*(1-ef2))/((rk+gamma1)*(1-beta*ef2)) - tra = (2*rk*ef1)/((rk+gamma1)*(1-beta*ef2)) - endif - end if - end subroutine two_stream - ! -------------------------------------------------- - elemental function two_stream_reflectance(tauint, gint, w0int) - real, intent(in) :: tauint, gint, w0int - real :: two_stream_reflectance - ! - ! Compute reflectance in a single layer using the two stream approximation - ! The code itself is from Lazaros Oreopoulos via Steve Platnick - ! - ! ------------------------ - ! Local variables - ! for delta Eddington code - ! xmu, gamma3, and gamma4 only used for collimated beam approximation (i.e., beam=1) - integer, parameter :: beam = 2 - real, parameter :: xmu = 0.866, minConservativeW0 = 0.9999999 - real :: tau, w0, g, f, gamma1, gamma2, gamma3, gamma4, & - rh, a1, a2, rk, r1, r2, r3, r4, r5, t1, t2, t3, t4, t5, beta, e1, e2, ef1, ef2, den - ! ------------------------ - - - f = gint**2 - tau = (1 - w0int * f) * tauint - w0 = (1 - f) * w0int / (1 - w0int * f) - g = (gint - f) / (1 - f) - - ! delta-Eddington (Joseph et al. 1976) - gamma1 = (7 - w0* (4 + 3 * g)) / 4.0 - gamma2 = -(1 - w0* (4 - 3 * g)) / 4.0 - gamma3 = (2 - 3*g*xmu) / 4.0 - gamma4 = 1 - gamma3 - - if (w0int > minConservativeW0) then - ! Conservative scattering - if (beam == 1) then - rh = (gamma1*tau+(gamma3-gamma1*xmu)*(1-exp(-tau/xmu))) - two_stream_reflectance = rh / (1 + gamma1 * tau) - elseif (beam == 2) then - two_stream_reflectance = gamma1*tau/(1 + gamma1*tau) - endif - - else ! - - ! Non-conservative scattering - a1 = gamma1 * gamma4 + gamma2 * gamma3 - a2 = gamma1 * gamma3 + gamma2 * gamma4 - - rk = sqrt(gamma1**2 - gamma2**2) - - r1 = (1 - rk * xmu) * (a2 + rk * gamma3) - r2 = (1 + rk * xmu) * (a2 - rk * gamma3) - r3 = 2 * rk *(gamma3 - a2 * xmu) - r4 = (1 - (rk * xmu)**2) * (rk + gamma1) - r5 = (1 - (rk * xmu)**2) * (rk - gamma1) - - t1 = (1 + rk * xmu) * (a1 + rk * gamma4) - t2 = (1 - rk * xmu) * (a1 - rk * gamma4) - t3 = 2 * rk * (gamma4 + a1 * xmu) - t4 = r4 - t5 = r5 - - beta = -r5 / r4 - - e1 = min(rk * tau, 500.) - e2 = min(tau / xmu, 500.) - - if (beam == 1) then - den = r4 * exp(e1) + r5 * exp(-e1) - two_stream_reflectance = w0*(r1*exp(e1)-r2*exp(-e1)-r3*exp(-e2))/den - elseif (beam == 2) then - ef1 = exp(-e1) - ef2 = exp(-2*e1) - two_stream_reflectance = (gamma2*(1-ef2))/((rk+gamma1)*(1-beta*ef2)) - endif - - end if - end function two_stream_reflectance - ! -------------------------------------------- - pure subroutine adding_doubling (Refl, Tran, Refl_tot, Tran_tot) - real, dimension(:), intent(in) :: Refl, Tran - real, intent(out) :: Refl_tot, Tran_tot - ! - ! Use adding/doubling formulas to compute total reflectance and transmittance from layer values - ! - - integer :: i - real, dimension(size(Refl)) :: Refl_cumulative, Tran_cumulative - - Refl_cumulative(1) = Refl(1); Tran_cumulative(1) = Tran(1) - - do i=2, size(Refl) - ! place (add) previous combined layer(s) reflectance on top of layer i, w/black surface (or ignoring surface): - Refl_cumulative(i) = Refl_cumulative(i-1) + Refl(i)*(Tran_cumulative(i-1)**2)/(1 - Refl_cumulative(i-1) * Refl(i)) - Tran_cumulative(i) = (Tran_cumulative(i-1)*Tran(i)) / (1 - Refl_cumulative(i-1) * Refl(i)) - end do - - Refl_tot = Refl_cumulative(size(Refl)) - Tran_tot = Tran_cumulative(size(Refl)) - - end subroutine adding_doubling - ! -------------------------------------------------- - subroutine complain_and_die(message) - character(len = *), intent(in) :: message - - write(6, *) "Failure in MODIS simulator" - write(6, *) trim(message) - stop - end subroutine complain_and_die - !------------------------------------------------------------------------------------------------ -end module mod_modis_sim \ No newline at end of file diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/README b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/README deleted file mode 100644 index c85190bab..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/README +++ /dev/null @@ -1,23 +0,0 @@ -Copyright (c) 2006, J.M. Haynes -All rights reserved. - -Redistribution and use in source and binary forms, with or without modification, are permitted -provided that the following conditions are met: - - * Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. - * Redistributions in binary form must reproduce the above copyright notice, - this list of conditions and the following disclaimer in the documentation - and/or other materials provided with the distribution. - * Neither the name of the Colorado State University nor the names of its contributors - may be used to endorse or promote products derived from this software without - specific prior written permission. - -THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR -IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND -FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR -CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT -OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/array_lib.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/array_lib.f90 deleted file mode 100644 index 7b4fbe6a1..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/array_lib.f90 +++ /dev/null @@ -1,165 +0,0 @@ -! ARRAY_LIB: Array procedures for F90 -! Compiled/Modified: -! 07/01/06 John Haynes (haynes@atmos.colostate.edu) -! -! infind (function) -! lin_interpolate (function) - - module array_lib - implicit none - - contains - -! ---------------------------------------------------------------------------- -! function INFIND -! ---------------------------------------------------------------------------- - function infind(list,val,sort,dist) - use m_mrgrnk - implicit none -! -! Purpose: -! Finds the index of an array that is closest to a value, plus the -! difference between the value found and the value specified -! -! Inputs: -! [list] an array of sequential values -! [val] a value to locate -! Optional input: -! [sort] set to 1 if [list] is in unknown/non-sequential order -! -! Returns: -! index of [list] that is closest to [val] -! -! Optional output: -! [dist] set to variable containing [list([result])] - [val] -! -! Requires: -! mrgrnk library -! -! Created: -! 10/16/03 John Haynes (haynes@atmos.colostate.edu) -! Modified: -! 01/31/06 IDL to Fortran 90 - -! ----- INPUTS ----- - real*8, dimension(:), intent(in) :: list - real*8, intent(in) :: val - integer, intent(in), optional :: sort - -! ----- OUTPUTS ----- - integer*4 :: infind - real*8, intent(out), optional :: dist - -! ----- INTERNAL ----- - real*8, dimension(size(list)) :: lists - integer*4 :: nlist, result, tmp(1), sort_list - integer*4, dimension(size(list)) :: mask, idx - - if (present(sort)) then - sort_list = sort - else - sort_list = 0 - endif - - nlist = size(list) - if (sort_list == 1) then - call mrgrnk(list,idx) - lists = list(idx) - else - lists = list - endif - - if (val >= lists(nlist)) then - result = nlist - else if (val <= lists(1)) then - result = 1 - else - mask(:) = 0 - where (lists < val) mask = 1 - tmp = minloc(mask,1) - if (abs(lists(tmp(1)-1)-val) < abs(lists(tmp(1))-val)) then - result = tmp(1) - 1 - else - result = tmp(1) - endif - endif - if (present(dist)) dist = lists(result)-val - if (sort_list == 1) then - infind = idx(result) - else - infind = result - endif - - end function infind - -! ---------------------------------------------------------------------------- -! function LIN_INTERPOLATE -! ---------------------------------------------------------------------------- - subroutine lin_interpolate(yarr,xarr,yyarr,xxarr,tol) - use m_mrgrnk - implicit none -! -! Purpose: -! linearly interpolate a set of y2 values given a set of y1,x1,x2 -! -! Inputs: -! [yarr] an array of y1 values -! [xarr] an array of x1 values -! [xxarr] an array of x2 values -! [tol] maximum distance for a match -! -! Output: -! [yyarr] interpolated array of y2 values -! -! Requires: -! mrgrnk library -! -! Created: -! 06/07/06 John Haynes (haynes@atmos.colostate.edu) - -! ----- INPUTS ----- - real*8, dimension(:), intent(in) :: yarr, xarr, xxarr - real*8, intent(in) :: tol - -! ----- OUTPUTS ----- - real*8, dimension(size(xxarr)), intent(out) :: yyarr - -! ----- INTERNAL ----- - real*8, dimension(size(xarr)) :: ysort, xsort - integer*4, dimension(size(xarr)) :: ist - integer*4 :: nx, nxx, i, iloc - real*8 :: d, m - - nx = size(xarr) - nxx = size(xxarr) - -! // xsort, ysort are sorted versions of xarr, yarr - call mrgrnk(xarr,ist) - ysort = yarr(ist) - xsort = xarr(ist) - - do i=1,nxx - iloc = infind(xsort,xxarr(i),dist=d) - if (d > tol) then - print *, 'interpolation error' - stop - endif - if (iloc == nx) then -! :: set to the last value - yyarr(i) = ysort(nx) - else -! :: is there another closeby value? - if (abs(xxarr(i)-xsort(iloc+1)) < 2*tol) then -! :: yes, do a linear interpolation - m = (ysort(iloc+1)-ysort(iloc))/(xsort(iloc+1)-xsort(iloc)) - yyarr(i) = ysort(iloc) + m*(xxarr(i)-xsort(iloc)) - else -! :: no, set to the only nearby value - yyarr(i) = ysort(iloc) - endif - endif - enddo - - end subroutine lin_interpolate - - end module array_lib diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/atmos_lib.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/atmos_lib.f90 deleted file mode 100644 index ca38b104b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/atmos_lib.f90 +++ /dev/null @@ -1,135 +0,0 @@ -! ATMOS_LIB: Atmospheric science procedures for F90 -! Compiled/Modified: -! 07/01/06 John Haynes (haynes@atmos.colostate.edu) -! -! mcclatchey (subroutine) - - module atmos_lib - implicit none - - contains - -! ---------------------------------------------------------------------------- -! subroutine MCCLATCHEY -! ---------------------------------------------------------------------------- - subroutine mcclatchey(stype,hgt,prs,tk,rh) - implicit none -! -! Purpose: -! returns a standard atmospheric profile -! -! Input: -! [stype] type of profile to return -! 1 = mid-latitude summer -! 2 = mid-latitude winter -! 3 = tropical -! -! Outputs: -! [hgt] height (m) -! [prs] pressure (hPa) -! [tk] temperature (K) -! [rh] relative humidity (%) -! -! Created: -! 06/01/2006 John Haynes (haynes@atmos.colostate.edu) - -! ----- INPUTS ----- - integer, intent(in) :: & - stype - - integer, parameter :: ndat = 33 - -! ----- OUTPUTS ----- - real*8, intent(out), dimension(ndat) :: & - hgt, & ! height (m) - prs, & ! pressure (hPa) - tk, & ! temperature (K) - rh ! relative humidity (%) - - hgt = (/0.00000,1000.00,2000.00,3000.00,4000.00,5000.00, & - 6000.00,7000.00,8000.00,9000.00,10000.0,11000.0, & - 12000.0,13000.0,14000.0,15000.0,16000.0,17000.0, & - 18000.0,19000.0,20000.0,21000.0,22000.0,23000.0, & - 24000.0,25000.0,30000.0,35000.0,40000.0,45000.0, & - 50000.0,70000.0,100000./) - - select case(stype) - - case(1) -! // mid-latitide summer - prs = (/1013.00, 902.000, 802.000, 710.000, 628.000, 554.000, & - 487.000, 426.000, 372.000, 324.000, 281.000, 243.000, & - 209.000, 179.000, 153.000, 130.000, 111.000, 95.0000, & - 81.2000, 69.5000, 59.5000, 51.0000, 43.7000, 37.6000, & - 32.2000, 27.7000, 13.2000, 6.52000, 3.33000, 1.76000, & - 0.951000,0.0671000,0.000300000/) - - tk = (/294.000, 290.000, 285.000, 279.000, 273.000, 267.000, & - 261.000, 255.000, 248.000, 242.000, 235.000, 229.000, & - 222.000, 216.000, 216.000, 216.000, 216.000, 216.000, & - 216.000, 217.000, 218.000, 219.000, 220.000, 222.000, & - 223.000, 224.000, 234.000, 245.000, 258.000, 270.000, & - 276.000, 218.000, 210.000/) - - rh = (/74.8384, 63.4602, 55.0485, 45.4953, 39.3805, 31.7965, & - 30.3958, 29.5966, 30.1626, 29.3624, 30.3334, 19.0768, & - 11.0450, 6.61278, 3.67379, 2.79209, 2.35123, 2.05732, & - 1.83690, 1.59930, 1.30655, 1.31890, 1.17620,0.994076, & - 0.988566,0.989143,0.188288,0.0205613,0.00271164,0.000488798, & - 0.000107066,0.000406489,7.68645e-06/) - - case(2) -! // mid-latitude winter - prs = (/1018.00, 897.300, 789.700, 693.800, 608.100, 531.300, & - 462.700, 401.600, 347.300, 299.200, 256.800, 219.900, & - 188.200, 161.000, 137.800, 117.800, 100.700, 86.1000, & - 73.5000, 62.8000, 53.7000, 45.8000, 39.1000, 33.4000, & - 28.6000, 24.3000, 11.1000, 5.18000, 2.53000, 1.29000, & - 0.682000,0.0467000,0.000300000/) - - tk = (/272.200, 268.700, 265.200, 261.700, 255.700, 249.700, & - 243.700, 237.700, 231.700, 225.700, 219.700, 219.200, & - 218.700, 218.200, 217.700, 217.200, 216.700, 216.200, & - 215.700, 215.200, 215.200, 215.200, 215.200, 215.200, & - 215.200, 215.200, 217.400, 227.800, 243.200, 258.500, & - 265.700, 230.700, 210.200/) - - rh = (/76.6175, 70.1686, 65.2478, 56.6267, 49.8755, 47.1765, & - 44.0477, 31.0565, 23.0244, 19.6510, 17.8987, 17.4376, & - 16.0621, 5.10608, 3.00679, 2.42293, 2.16406, 2.00901, & - 1.90374, 1.98072, 1.81902, 2.06155, 2.06154, 2.18280, & - 2.42531,2.70824,1.12105,0.108119,0.00944200,0.00115201, & - 0.000221094,0.000101946,7.49350e-06/) - - case(3) -! // tropical - prs = (/1013.00, 904.000, 805.000, 715.000, 633.000, 559.000, & - 492.000, 432.000, 378.000, 329.000, 286.000, 247.000, & - 213.000, 182.000, 156.000, 132.000, 111.000, 93.7000, & - 78.9000, 66.6000, 56.5000, 48.0000, 40.9000, 35.0000, & - 30.0000, 25.7000, 12.2000, 6.00000, 3.05000, 1.59000, & - 0.854000,0.0579000,0.000300000/) - - tk = (/300.000, 294.000, 288.000, 284.000, 277.000, 270.000, & - 264.000, 257.000, 250.000, 244.000, 237.000, 230.000, & - 224.000, 217.000, 210.000, 204.000, 197.000, 195.000, & - 199.000, 203.000, 207.000, 211.000, 215.000, 217.000, & - 219.000, 221.000, 232.000, 243.000, 254.000, 265.000, & - 270.000, 219.000, 210.000/) - - rh = (/71.4334, 69.4097, 71.4488, 46.7724, 34.7129, 38.3820, & - 33.7214, 32.0122, 30.2607, 24.5059, 19.5321, 13.2966, & - 8.85795, 5.87496, 7.68644, 12.8879, 29.4976, 34.9351, & - 17.1606, 9.53422, 5.10154, 3.45407, 2.11168, 1.76247, & - 1.55162,1.37966,0.229799,0.0245943,0.00373686,0.000702138, & - 0.000162076,0.000362055,7.68645e-06/) - - case default - print *, 'Must enter a profile type' - stop - - end select - - end subroutine mcclatchey - - end module atmos_lib \ No newline at end of file diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/dsd.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/dsd.f90 deleted file mode 100644 index d1aee127b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/dsd.f90 +++ /dev/null @@ -1,359 +0,0 @@ - subroutine dsd(Q,Re,D,N,nsizes,dtype,rho_a,tc, & - dmin,dmax,apm,bpm,rho_c,p1,p2,p3,fc,scaled) - use array_lib - use math_lib - implicit none - -! Purpose: -! Create a discrete drop size distribution -! Part of QuickBeam v1.03 by John Haynes -! http://reef.atmos.colostate.edu/haynes/radarsim -! -! Inputs: -! [Q] hydrometeor mixing ratio (g/kg) -! [Re] Optional Effective Radius (microns). 0 = use default. -! [D] discrete drop sizes (um) -! [nsizes] number of elements of [D] -! [dtype] distribution type -! [rho_a] ambient air density (kg m^-3) -! [tc] temperature (C) -! [dmin] minimum size cutoff (um) -! [dmax] maximum size cutoff (um) -! [rho_c] alternate constant density (kg m^-3) -! [p1],[p2],[p3] distribution parameters -! -! Input/Output: -! [fc] scaling factor for the distribution -! [scaled] has this hydrometeor type been scaled? -! [apm] a parameter for mass (kg m^[-bpm]) -! [bmp] b params for mass -! -! Outputs: -! [N] discrete concentrations (cm^-3 um^-1) -! or, for monodisperse, a constant (1/cm^3) -! -! Requires: -! function infind -! -! Created: -! 11/28/05 John Haynes (haynes@atmos.colostate.edu) -! Modified: -! 01/31/06 Port from IDL to Fortran 90 -! 07/07/06 Rewritten for variable DSD's -! 10/02/06 Rewritten using scaling factors (Roger Marchand and JMH) - -! ----- INPUTS ----- - - integer, intent(in) :: nsizes - integer, intent(in) :: dtype - real*8, intent(in) :: Q,D(nsizes),rho_a,tc,dmin,dmax, & - rho_c,p1,p2,p3 - -! ----- INPUT/OUTPUT ----- - - real*8, intent(inout) :: fc(nsizes),apm,bpm,Re - logical, intent(inout) :: scaled - -! ----- OUTPUTS ----- - - real*8, intent(out) :: N(nsizes) - -! ----- INTERNAL ----- - - real*8 :: & - N0,D0,vu,np,dm,ld, & ! gamma, exponential variables - dmin_mm,dmax_mm,ahp,bhp, & ! power law variables - rg,log_sigma_g, & ! lognormal variables - rho_e ! particle density (kg m^-3) - - real*8 :: tmp1, tmp2 - real*8 :: pi - - integer k,lidx,uidx - - pi = acos(-1.0) - -! // if density is constant, store equivalent values for apm and bpm - if ((rho_c > 0) .and. (apm < 0)) then - apm = (pi/6)*rho_c - bpm = 3. - endif - - select case(dtype) - -! ---------------------------------------------------------! -! // modified gamma ! -! ---------------------------------------------------------! -! :: N0 = total number concentration (m^-3) -! :: np = fixed number concentration (kg^-1) -! :: D0 = characteristic diameter (um) -! :: dm = mean diameter (um) -! :: vu = distribution width parameter - - case(1) - if (abs(p1+1) < 1E-8) then - -! // D0, vu are given - vu = p3 - - if(Re.le.0) then - dm = p2 - D0 = gamma(vu)/gamma(vu+1)*dm - else - D0 = 2.0*Re*gamma(vu+2)/gamma(vu+3) - endif - - if (scaled .eqv. .false.) then - - fc = ( & - ((D*1E-6)**(vu-1)*exp(-1*D/D0)) / & - (apm*((D0*1E-6)**(vu+bpm))*gamma(vu+bpm)) & - ) * 1E-12 - scaled = .true. - - endif - - N = fc*rho_a*(Q*1E-3) - - elseif (abs(p2+1) < 1E-8) then - -! // N0, vu are given - np = p1 - vu = p3 - tmp1 = (Q*1E-3)**(1./bpm) - - if (scaled .eqv. .false.) then - - fc = (D*1E-6 / (gamma(vu)/(apm*np*gamma(vu+bpm)))** & - (1./bpm))**vu - - scaled = .true. - - endif - - N = ( & - (rho_a*np*fc*(D*1E-6)**(-1.))/(gamma(vu)*tmp1**vu) * & - exp(-1.*fc**(1./vu)/tmp1) & - ) * 1E-12 - - else - -! // vu isn't given - print *, 'Error: Must specify a value for vu' - stop - - endif - -! ---------------------------------------------------------! -! // exponential ! -! ---------------------------------------------------------! -! :: N0 = intercept parameter (m^-4) -! :: ld = slope parameter (um) - - case(2) - if (abs(p1+1) > 1E-8) then - -! // N0 has been specified, determine ld - N0 = p1 - - if(Re>0) then - - ! if Re is set and No is set than the distribution is fully defined. - ! so we assume Re and No have already been chosen consistant with - ! the water content, Q. - - ! print *,'using Re pass ...' - - ld = 1.5/Re ! units 1/um - - N = ( & - N0*exp(-1*ld*D) & - ) * 1E-12 - - else - - tmp1 = 1./(1.+bpm) - - if (scaled .eqv. .false.) then - fc = ((apm*gamma(1.+bpm)*N0)**tmp1)*(D*1E-6) - scaled = .true. - - endif - - N = ( & - N0*exp(-1.*fc*(1./(rho_a*Q*1E-3))**tmp1) & - ) * 1E-12 - - endif - - elseif (abs(p2+1) > 1E-8) then - -! // ld has been specified, determine N0 - ld = p2 - - if (scaled .eqv. .false.) then - - fc = (ld*1E6)**(1.+bpm)/(apm*gamma(1+bpm))* & - exp(-1.*(ld*1E6)*(D*1E-6))*1E-12 - scaled = .true. - - endif - - N = fc*rho_a*(Q*1E-3) - - else - -! // ld will be determined from temperature, then N0 follows - ld = 1220*10.**(-0.0245*tc)*1E-6 - N0 = ((ld*1E6)**(1+bpm)*Q*1E-3*rho_a)/(apm*gamma(1+bpm)) - - N = ( & - N0*exp(-1*ld*D) & - ) * 1E-12 - - endif - -! ---------------------------------------------------------! -! // power law ! -! ---------------------------------------------------------! -! :: ahp = Ar parameter (m^-4 mm^-bhp) -! :: bhp = br parameter -! :: dmin_mm = lower bound (mm) -! :: dmax_mm = upper bound (mm) - - case(3) - -! :: br parameter - if (abs(p1+2) < 1E-8) then -! :: if p1=-2, bhp is parameterized according to Ryan (2000), -! :: applicatable to cirrus clouds - if (tc < -30) then - bhp = -1.75+0.09*((tc+273)-243.16) - elseif ((tc >= -30) .and. (tc < -9)) then - bhp = -3.25-0.06*((tc+273)-265.66) - else - bhp = -2.15 - endif - elseif (abs(p1+3) < 1E-8) then -! :: if p1=-3, bhp is parameterized according to Ryan (2000), -! :: applicable to frontal clouds - if (tc < -35) then - bhp = -1.75+0.09*((tc+273)-243.16) - elseif ((tc >= -35) .and. (tc < -17.5)) then - bhp = -2.65+0.09*((tc+273)-255.66) - elseif ((tc >= -17.5) .and. (tc < -9)) then - bhp = -3.25-0.06*((tc+273)-265.66) - else - bhp = -2.15 - endif - else -! :: otherwise the specified value is used - bhp = p1 - endif - -! :: Ar parameter - dmin_mm = dmin*1E-3 - dmax_mm = dmax*1E-3 - -! :: commented lines are original method with constant density - ! rc = 500. ! (kg/m^3) - ! tmp1 = 6*rho_a*(bhp+4) - ! tmp2 = pi*rc*(dmax_mm**(bhp+4))*(1-(dmin_mm/dmax_mm)**(bhp+4)) - ! ahp = (Q*1E-3)*1E12*tmp1/tmp2 - -! :: new method is more consistent with the rest of the distributions -! :: and allows density to vary with particle size - tmp1 = rho_a*(Q*1E-3)*(bhp+bpm+1) - tmp2 = apm*(dmax_mm**bhp*dmax**(bpm+1)-dmin_mm**bhp*dmin**(bpm+1)) - ahp = tmp1/tmp2 * 1E24 - ! ahp = tmp1/tmp2 - - lidx = infind(D,dmin) - uidx = infind(D,dmax) - do k=lidx,uidx - - N(k) = ( & - ahp*(D(k)*1E-3)**bhp & - ) * 1E-12 - - enddo - - ! print *,'test=',ahp,bhp,ahp/(rho_a*Q),D(100),N(100),bpm,dmin_mm,dmax_mm - -! ---------------------------------------------------------! -! // monodisperse ! -! ---------------------------------------------------------! -! :: D0 = particle diameter (um) - - case(4) - - if (scaled .eqv. .false.) then - - D0 = p1 - rho_e = (6/pi)*apm*(D0*1E-6)**(bpm-3) - fc(1) = (6./(pi*D0**3*rho_e))*1E12 - scaled = .true. - - endif - - N(1) = fc(1)*rho_a*(Q*1E-3) - -! ---------------------------------------------------------! -! // lognormal ! -! ---------------------------------------------------------! -! :: N0 = total number concentration (m^-3) -! :: np = fixed number concentration (kg^-1) -! :: rg = mean radius (um) -! :: log_sigma_g = ln(geometric standard deviation) - - case(5) - if (abs(p1+1) < 1E-8) then - -! // rg, log_sigma_g are given - log_sigma_g = p3 - tmp2 = (bpm*log_sigma_g)**2. - if(Re.le.0) then - rg = p2 - else - rg =Re*exp(-2.5*(log_sigma_g**2)) - endif - - if (scaled .eqv. .false.) then - - fc = 0.5 * ( & - (1./((2.*rg*1E-6)**(bpm)*apm*(2.*pi)**(0.5) * & - log_sigma_g*D*0.5*1E-6)) * & - exp(-0.5*((log(0.5*D/rg)/log_sigma_g)**2.+tmp2)) & - ) * 1E-12 - scaled = .true. - - endif - - N = fc*rho_a*(Q*1E-3) - - elseif (abs(p2+1) < 1E-8) then - -! // N0, log_sigma_g are given - Np = p1 - log_sigma_g = p3 - N0 = np*rho_a - tmp1 = (rho_a*(Q*1E-3))/(2.**bpm*apm*N0) - tmp2 = exp(0.5*bpm**2.*(log_sigma_g))**2. - rg = ((tmp1/tmp2)**(1/bpm))*1E6 - - N = 0.5*( & - N0 / ((2.*pi)**(0.5)*log_sigma_g*D*0.5*1E-6) * & - exp((-0.5*(log(0.5*D/rg)/log_sigma_g)**2.)) & - ) * 1E-12 - - else - -! // vu isn't given - print *, 'Error: Must specify a value for sigma_g' - stop - - endif - - end select - - end subroutine dsd diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/format_input.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/format_input.f90 deleted file mode 100644 index 93bebef53..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/format_input.f90 +++ /dev/null @@ -1,132 +0,0 @@ -! FORMAT_INPUT: Procedures to prepare data for input to the simulator -! Compiled/Modified: -! 08/28/2006 John Haynes (haynes@atmos.colostate.edu) -! -! irreg_to_grid (subroutine) -! order_data (subroutine) - - module format_input - - contains - -! ---------------------------------------------------------------------------- -! SUBROUTINE IRREG_TO_GRID -! ---------------------------------------------------------------------------- - subroutine irreg_to_grid(hgt_matrix,t_matrix,p_matrix,rh_matrix, & - env_hgt_matrix,env_t_matrix,env_p_matrix,env_rh_matrix) - use array_lib - implicit none - -! Purpose: -! Linearly interpolate sounding-level data to the hydrometeor-level -! resolution -! -! Inputs: -! [hgt_matrix] hydrometeor-level heights -! [env_hgt_matrix] sounding-level heights -! [env_t_matrix] sounding-level temperatures -! [env_p_matrix] sounding-level pressures -! [env_rh_matrix] sounding-level relative humidities -! -! Outputs: -! [t_matrix] hydrometeor-level temperatures -! [p_matrix] hydrometeor-level pressures -! [rh_matrix] hydrometeor-level relative humidities -! -! Created: -! 08/28/2006 John Haynes (haynes@atmos.colostate.edu) - -! ----- INPUTS ----- - real*8, dimension(:,:), intent(in) :: & - hgt_matrix,env_hgt_matrix,env_t_matrix,env_p_matrix,env_rh_matrix - -! ----- OUTPUTS ----- - real*8, dimension(:,:), intent(out) :: & - t_matrix,p_matrix,rh_matrix - -! ----- INTERNAL ----- - integer :: nprof, i - integer,parameter :: KR8 = selected_real_kind(15,300) - - nprof = size(hgt_matrix,1) - do i=1,nprof - call lin_interpolate(env_t_matrix(i,:),env_hgt_matrix(i,:), & - t_matrix(i,:),hgt_matrix(i,:),1000._KR8) - call lin_interpolate(env_p_matrix(i,:),env_hgt_matrix(i,:), & - p_matrix(i,:),hgt_matrix(i,:),1000._KR8) - call lin_interpolate(env_rh_matrix(i,:),env_hgt_matrix(i,:), & - rh_matrix(i,:),hgt_matrix(i,:),1000._KR8) - enddo - - end subroutine irreg_to_grid - -! ---------------------------------------------------------------------------- -! SUBROUTINE ORDER_DATA -! ---------------------------------------------------------------------------- - subroutine order_data(hgt_matrix,hm_matrix,p_matrix,t_matrix, & - rh_matrix,sfc_radar,hgt_reversed) - implicit none - -! Purpose: -! Ensure that input data is in top-down order/bottom-up order, -! for space-based/surface based radars, respectively -! -! Inputs: -! [hgt_matrix] heights -! [hm_matrix] mixing ratios -! [t_matrix] temperatures -! [p_matrix] pressures -! [rh_matrix] relative humidities -! [sfc_radar] 1=surface radar, 0=spaceborne -! -! Outputs: -! [hgt_matrix],[hm_matrix],[p_matrix,[t_matrix],[rh_matrix] in proper -! order for input to the radar simulator routine -! [hgt_reversed] T=heights were reordered,F=heights were not reordered -! -! Note: -! The order for all profiles is assumed to the same as the first profile. -! -! Created: -! 08/28/2006 John Haynes (haynes@atmos.colostate.edu) - -! ----- INPUTS ----- - integer, intent(in) :: sfc_radar - -! ----- OUTPUTS ----- - real*8, dimension(:,:), intent(inout) :: & - hgt_matrix,p_matrix,t_matrix,rh_matrix - real*8, dimension(:,:,:), intent(inout) :: & - hm_matrix - logical, intent(out) :: hgt_reversed - -! ----- INTERNAL ----- - integer :: ngate - logical :: hgt_descending - - - ngate = size(hgt_matrix,2) - hgt_descending = hgt_matrix(1,1) > hgt_matrix(1,ngate) - -! :: surface: heights must be ascending -! :: space-based: heights must be descending - if ( & - (sfc_radar == 1 .and. hgt_descending) .or. & - (sfc_radar == 0 .and. (.not. hgt_descending)) & - ) & - then - - hgt_matrix(:,:) = hgt_matrix(:,ngate:1:-1) - hm_matrix(:,:,:) = hm_matrix(:,:,ngate:1:-1) - p_matrix(:,:) = p_matrix(:,ngate:1:-1) - t_matrix(:,:) = t_matrix(:,ngate:1:-1) - rh_matrix(:,:) = rh_matrix(:,ngate:1:-1) - - hgt_reversed = .true. - else - hgt_reversed = .false. - endif - - end subroutine order_data - - end module format_input diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/gases.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/gases.f90 deleted file mode 100644 index fd9622688..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/gases.f90 +++ /dev/null @@ -1,182 +0,0 @@ - function gases(PRES_mb,T,RH,f) - implicit none - -! Purpose: -! Compute 2-way gaseous attenuation through a volume in microwave -! -! Inputs: -! [PRES_mb] pressure (mb) (hPa) -! [T] temperature (K) -! [RH] relative humidity (%) -! [f] frequency (GHz), < 300 GHz -! -! Returns: -! 2-way gaseous attenuation (dB/km) -! -! Reference: -! Uses method of Liebe (1985) -! -! Created: -! 12/09/05 John Haynes (haynes@atmos.colostate.edu) -! Modified: -! 01/31/06 Port from IDL to Fortran 90 - - integer, parameter :: & - nbands_o2 = 48 ,& - nbands_h2o = 30 - real*8, intent(in) :: PRES_mb, T, RH, f - real*8 :: gases, th, e, p, sumo, gm0, a0, ap, term1, term2, term3, & - bf, be, term4, npp - real*8, dimension(nbands_o2) :: v0, a1, a2, a3, a4, a5, a6 - real*8, dimension(nbands_h2o) :: v1, b1, b2, b3 - integer :: i - -! // table1 parameters v0, a1, a2, a3, a4, a5, a6 - data v0/49.4523790,49.9622570,50.4742380,50.9877480,51.5033500, & - 52.0214090,52.5423930,53.0669060,53.5957480,54.1299999,54.6711570, & - 55.2213650,55.7838000,56.2647770,56.3378700,56.9681000,57.6124810, & - 58.3238740,58.4465890,59.1642040,59.5909820,60.3060570,60.4347750, & - 61.1505580,61.8001520,62.4112120,62.4862530,62.9979740,63.5685150, & - 64.1277640,64.6789000,65.2240670,65.7647690,66.3020880,66.8368270, & - 67.3695950,67.9008620,68.4310010,68.9603060,69.4890210,70.0173420, & - 118.7503410,368.4983500,424.7631200,487.2493700,715.3931500, & - 773.8387300, 834.1453300/ - data a1/0.0000001,0.0000003,0.0000009,0.0000025,0.0000061,0.0000141, & - 0.0000310,0.0000641,0.0001247,0.0002280,0.0003918,0.0006316,0.0009535, & - 0.0005489,0.0013440,0.0017630,0.0000213,0.0000239,0.0000146,0.0000240, & - 0.0000211,0.0000212,0.0000246,0.0000250,0.0000230,0.0000193,0.0000152, & - 0.0000150,0.0000109,0.0007335,0.0004635,0.0002748,0.0001530,0.0000801, & - 0.0000395,0.0000183,0.0000080,0.0000033,0.0000013,0.0000005,0.0000002, & - 0.0000094,0.0000679,0.0006380,0.0002350,0.0000996,0.0006710,0.0001800/ - data a2/11.8300000,10.7200000,9.6900000,8.8900000,7.7400000,6.8400000, & - 6.0000000,5.2200000,4.4800000,3.8100000,3.1900000,2.6200000,2.1150000, & - 0.0100000,1.6550000,1.2550000,0.9100000,0.6210000,0.0790000,0.3860000, & - 0.2070000,0.2070000,0.3860000,0.6210000,0.9100000,1.2550000,0.0780000, & - 1.6600000,2.1100000,2.6200000,3.1900000,3.8100000,4.4800000,5.2200000, & - 6.0000000,6.8400000,7.7400000,8.6900000,9.6900000,10.7200000,11.8300000, & - 0.0000000,0.0200000,0.0110000,0.0110000,0.0890000,0.0790000,0.0790000/ - data a3/0.0083000,0.0085000,0.0086000,0.0087000,0.0089000,0.0092000, & - 0.0094000,0.0097000,0.0100000,0.0102000,0.0105000,0.0107900,0.0111000, & - 0.0164600,0.0114400,0.0118100,0.0122100,0.0126600,0.0144900,0.0131900, & - 0.0136000,0.0138200,0.0129700,0.0124800,0.0120700,0.0117100,0.0146800, & - 0.0113900,0.0110800,0.0107800,0.0105000,0.0102000,0.0100000,0.0097000, & - 0.0094000,0.0092000,0.0089000,0.0087000,0.0086000,0.0085000,0.0084000, & - 0.0159200,0.0192000,0.0191600,0.0192000,0.0181000,0.0181000,0.0181000/ - data a4/0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, & - 0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, & - 0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, & - 0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, & - 0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, & - 0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, & - 0.0000000,0.6000000,0.6000000,0.6000000,0.6000000,0.6000000,0.6000000/ - data a5/0.0056000,0.0056000,0.0056000,0.0055000,0.0056000,0.0055000, & - 0.0057000,0.0053000,0.0054000,0.0048000,0.0048000,0.0041700,0.0037500, & - 0.0077400,0.0029700,0.0021200,0.0009400,-0.0005500,0.0059700,-0.0024400, & - 0.0034400,-0.0041300,0.0013200,-0.0003600,-0.0015900,-0.0026600, & - -0.0047700,-0.0033400,-0.0041700,-0.0044800,-0.0051000,-0.0051000, & - -0.0057000,-0.0055000,-0.0059000,-0.0056000,-0.0058000,-0.0057000, & - -0.0056000,-0.0056000,-0.0056000,-0.0004400,0.0000000,0.0000000, & - 0.0000000,0.0000000,0.0000000,0.0000000/ - data a6/1.7000000,1.7000000,1.7000000,1.7000000,1.8000000,1.8000000,& - 1.8000000,1.9000000,1.8000000,2.0000000,1.9000000,2.1000000,2.1000000, & - 0.9000000,2.3000000,2.5000000,3.7000000,-3.1000000,0.8000000,0.1000000, & - 0.5000000,0.7000000,-1.0000000,5.8000000,2.9000000,2.3000000,0.9000000, & - 2.2000000,2.0000000,2.0000000,1.8000000,1.9000000,1.8000000,1.8000000, & - 1.7000000,1.8000000,1.7000000,1.7000000,1.7000000,1.7000000,1.7000000, & - 0.9000000,1.0000000,1.0000000,1.0000000,1.0000000,1.0000000,1.0000000/ - -! // table2 parameters v1, b1, b2, b3 - data v1/22.2350800,67.8139600,119.9959400,183.3101170,321.2256440, & - 325.1529190,336.1870000,380.1973720,390.1345080,437.3466670,439.1508120, & - 443.0182950,448.0010750,470.8889740,474.6891270,488.4911330,503.5685320, & - 504.4826920,556.9360020,620.7008070,658.0065000,752.0332270,841.0735950, & - 859.8650000,899.4070000,902.5550000,906.2055240,916.1715820,970.3150220, & - 987.9267640/ - data b1/0.1090000,0.0011000,0.0007000,2.3000000,0.0464000,1.5400000, & - 0.0010000,11.9000000,0.0044000,0.0637000,0.9210000,0.1940000,10.6000000, & - 0.3300000,1.2800000,0.2530000,0.0374000,0.0125000,510.0000000,5.0900000, & - 0.2740000,250.0000000,0.0130000,0.1330000,0.0550000,0.0380000,0.1830000, & - 8.5600000,9.1600000,138.0000000/ - data b2/2.1430000,8.7300000,8.3470000,0.6530000,6.1560000,1.5150000, & - 9.8020000,1.0180000,7.3180000,5.0150000,3.5610000,5.0150000,1.3700000, & - 3.5610000,2.3420000,2.8140000,6.6930000,6.6930000,0.1140000,2.1500000, & - 7.7670000,0.3360000,8.1130000,7.9890000,7.8450000,8.3600000,5.0390000, & - 1.3690000,1.8420000,0.1780000/ - data b3/0.0278400,0.0276000,0.0270000,0.0283500,0.0214000,0.0270000, & - 0.0265000,0.0276000,0.0190000,0.0137000,0.0164000,0.0144000,0.0238000, & - 0.0182000,0.0198000,0.0249000,0.0115000,0.0119000,0.0300000,0.0223000, & - 0.0300000,0.0286000,0.0141000,0.0286000,0.0286000,0.0264000,0.0234000, & - 0.0253000,0.0240000,0.0286000/ - -! // conversions - th = 300./T ! unitless - e = (RH*th**5)/(41.45*10**(9.834*th-10)) ! kPa - p = PRES_mb/10.-e ! kPa - -! // term1 - sumo = 0. - do i=1,nbands_o2 - sumo = sumo + fpp_o2(p,th,e,a3(i),a4(i),a5(i),a6(i),f,v0(i)) & - * s_o2(p,th,a1(i),a2(i)) - enddo - term1 = sumo - -! // term2 - gm0 = 5.6E-3*(p+1.1*e)*th**(0.8) - a0 = 3.07E-4 - ap = 1.4*(1-1.2*f**(1.5)*1E-5)*1E-10 - term2 = (2*a0*(gm0*(1+(f/gm0)**2)*(1+(f/60.)**2))**(-1) + ap*p*th**(2.5)) & - * f*p*th**2 - -! // term3 - sumo = 0. - do i=1,nbands_h2o - sumo = sumo + fpp_h2o(p,th,e,b3(i),f,v1(i)) & - * s_h2o(th,e,b1(i),b2(i)) - enddo - term3 = sumo - -! // term4 - bf = 1.4E-6 - be = 5.41E-5 - term4 = (bf*p+be*e*th**3)*f*e*th**(2.5) - -! // summation and result - npp = term1 + term2 + term3 + term4 - gases = 0.182*f*npp - -! ----- SUB FUNCTIONS ----- - - contains - - function fpp_o2(p,th,e,a3,a4,a5,a6,f,v0) - real*8 :: fpp_o2,p,th,e,a3,a4,a5,a6,f,v0 - real*8 :: gm, delt, x, y - gm = a3*(p*th**(0.8-a4)+1.1*e*th) - delt = a5*p*th**(a6) - x = (v0-f)**2+gm**2 - y = (v0+f)**2+gm**2 - fpp_o2 = ((1./x)+(1./y))*(gm*f/v0) - (delt*f/v0)*(((v0-f)/(x))-((v0+f)/(x))) - end function fpp_o2 - - function fpp_h2o(p,th,e,b3,f,v0) - real*8 :: fpp_h2o,p,th,e,b3,f,v0 - real*8 :: gm, delt, x, y - gm = b3*(p*th**(0.8)+4.8*e*th) - delt = 0. - x = (v0-f)**2+gm**2 - y = (v0+f)**2+gm**2 - fpp_h2o = ((1./x)+(1./y))*(gm*f/v0) - (delt*f/v0)*(((v0-f)/(x))-((v0+f)/(x))) - end function fpp_h2o - - function s_o2(p,th,a1,a2) - real*8 :: s_o2,p,th,a1,a2 - s_o2 = a1*p*th**(3)*exp(a2*(1-th)) - end function s_o2 - - function s_h2o(th,e,b1,b2) - real*8 :: s_h2o,th,e,b1,b2 - s_h2o = b1*e*th**(3.5)*exp(b2*(1-th)) - end function s_h2o - - end function gases \ No newline at end of file diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/load_hydrometeor_classes.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/load_hydrometeor_classes.f90 deleted file mode 100644 index 22d82fc73..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/load_hydrometeor_classes.f90 +++ /dev/null @@ -1,54 +0,0 @@ - subroutine load_hydrometeor_classes(Nprmts_max,dist_prmts_hydro,hp,nhclass) - use radar_simulator_types - implicit none - -! Purpose: -! Loads the hydrometeor classes to be used in calculations -! Part of QuickBeam v1.03 by John Haynes -! http://reef.atmos.colostate.edu/haynes/radarsim -! -! Inputs: -! [dist_prmts_hydro] from data in hydrometeor class input -! -! Outputs: -! [hp] structure that define hydrometeor types -! -! Modified: -! 08/23/2006 placed into subroutine form (Roger Marchand) - -! ----- INPUT ----- - integer, intent(in) :: nhclass,Nprmts_max - real,dimension(Nprmts_max,nhclass), intent(in) :: dist_prmts_hydro -! ----- OUTPUTS ----- - type(class_param), intent(out) :: hp - -! ----- INTERNAL ----- - integer :: i - - hp%rho(:) = -1 - - do i = 1,nhclass,1 - hp%dtype(i) = dist_prmts_hydro(1,i) - hp%col(i) = dist_prmts_hydro(2,i) - hp%phase(i) = dist_prmts_hydro(3,i) - hp%cp(i) = dist_prmts_hydro(4,i) - hp%dmin(i) = dist_prmts_hydro(5,i) - hp%dmax(i) = dist_prmts_hydro(6,i) - hp%apm(i) = dist_prmts_hydro(7,i) - hp%bpm(i) = dist_prmts_hydro(8,i) - hp%rho(i) = dist_prmts_hydro(9,i) - hp%p1(i) = dist_prmts_hydro(10,i) - hp%p2(i) = dist_prmts_hydro(11,i) - hp%p3(i) = dist_prmts_hydro(12,i) - enddo - -! // setup scaling arrays - hp%fc = -999. - hp%scaled = .false. - hp%z_flag = .false. - hp%rho_eff = -999. - hp%ifc = -9 - hp%idd = -9 - - - end subroutine load_hydrometeor_classes diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/load_mie_table.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/load_mie_table.f90 deleted file mode 100644 index e21b61f05..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/load_mie_table.f90 +++ /dev/null @@ -1,69 +0,0 @@ - subroutine load_mie_table(mie_table_name,mt) - use radar_simulator_types - implicit none - -! Purpose: -! Loads the Mie table data -! Part of Quickbeam v1.03 -! http://reef.atmos.colostate.edu/haynes/radarsim -! -! Inputs: -! [mie_table_name] Mie table input file -! -! Outputs: -! [mt] structure of Mie table data -! -! Created from Quickbeam v1.02 08/24/2006 by Roger Marchand - -! ----- INPUT ----- - character*200, intent(in) :: mie_table_name - -! ----- OUTPUT ----- - type(mie), intent(out) :: mt - -! ----- INTERNAL ----- - integer :: i - - integer*4 :: dummy_in(4) - - open(51,file=mie_table_name,action='read') - - read(51,*) dummy_in - - if(dummy_in(1).ne. mt_nfreq .or. & - dummy_in(2).ne. mt_ntt .or. & - dummy_in(3).ne. mt_nf .or. & - dummy_in(4).ne. mt_nd) then - - print *,'Mie file is of size :',dummy_in(:) - print *,' expected a size of:',mt_nfreq, mt_ntt,mt_nf,mt_nf - print *,' change paramters in radar_simulator_types.f90 ?? ' - stop - endif - - read(51,*) mt%freq - read(51,*) mt%tt - read(51,*) mt%f - read(51,*) mt%phase - read(51,*) mt%D - read(51,*) mt%qext - read(51,*) mt%qbsca - - close(51) - -! // create arrays of liquid/ice temperature - cnt_liq = 0 - cnt_ice = 0 - do i=1,mt_ntt - if (mt%phase(i) == 0) cnt_liq = cnt_liq + 1 - if (mt%phase(i) == 1) cnt_ice = cnt_ice + 1 - enddo - allocate(mt_ttl(cnt_liq),mt_tti(cnt_ice)) - do i=1,cnt_liq - mt_ttl(i) = mt%tt(i) - enddo - do i=1,cnt_ice - mt_tti(i) = mt%tt(cnt_liq+i) - enddo - - end subroutine load_mie_table \ No newline at end of file diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/math_lib.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/math_lib.f90 deleted file mode 100644 index 817672124..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/math_lib.f90 +++ /dev/null @@ -1,395 +0,0 @@ -! MATH_LIB: Mathematics procedures for F90 -! Compiled/Modified: -! 07/01/06 John Haynes (haynes@atmos.colostate.edu) -! -! gamma (function) -! path_integral (function) -! avint (subroutine) - - module math_lib - implicit none - - contains - -! ---------------------------------------------------------------------------- -! function GAMMA -! ---------------------------------------------------------------------------- - function gamma(x) - implicit none -! -! Purpose: -! Returns the gamma function -! -! Input: -! [x] value to compute gamma function of -! -! Returns: -! gamma(x) -! -! Coded: -! 02/02/06 John Haynes (haynes@atmos.colostate.edu) -! (original code of unknown origin) - -! ----- INPUTS ----- - real*8, intent(in) :: x - -! ----- OUTPUTS ----- - real*8 :: gamma - -! ----- INTERNAL ----- - real*8 :: pi,ga,z,r,gr - real*8 :: g(26) - integer :: k,m1,m - - pi = acos(-1.) - if (x ==int(x)) then - if (x > 0.0) then - ga=1.0 - m1=x-1 - do k=2,m1 - ga=ga*k - enddo - else - ga=1.0+300 - endif - else - if (abs(x) > 1.0) then - z=abs(x) - m=int(z) - r=1.0 - do k=1,m - r=r*(z-k) - enddo - z=z-m - else - z=x - endif - data g/1.0,0.5772156649015329, & - -0.6558780715202538, -0.420026350340952d-1, & - 0.1665386113822915,-.421977345555443d-1, & - -.96219715278770d-2, .72189432466630d-2, & - -.11651675918591d-2, -.2152416741149d-3, & - .1280502823882d-3, -.201348547807d-4, & - -.12504934821d-5, .11330272320d-5, & - -.2056338417d-6, .61160950d-8, & - .50020075d-8, -.11812746d-8, & - .1043427d-9, .77823d-11, & - -.36968d-11, .51d-12, & - -.206d-13, -.54d-14, .14d-14, .1d-15/ - gr=g(26) - do k=25,1,-1 - gr=gr*z+g(k) - enddo - ga=1.0/(gr*z) - if (abs(x) > 1.0) then - ga=ga*r - if (x < 0.0) ga=-pi/(x*ga*sin(pi*x)) - endif - endif - gamma = ga - return - end function gamma - -! ---------------------------------------------------------------------------- -! function PATH_INTEGRAL -! ---------------------------------------------------------------------------- - function path_integral(f,s,i1,i2) - use m_mrgrnk - use array_lib - implicit none -! -! Purpose: -! evalues the integral (f ds) between f(index=i1) and f(index=i2) -! using the AVINT procedure -! -! Inputs: -! [f] functional values -! [s] abscissa values -! [i1] index of lower limit -! [i2] index of upper limit -! -! Returns: -! result of path integral -! -! Notes: -! [s] may be in forward or reverse numerical order -! -! Requires: -! mrgrnk package -! -! Created: -! 02/02/06 John Haynes (haynes@atmos.colostate.edu) - -! ----- INPUTS ----- - real*8, intent(in), dimension(:) :: f,s - integer, intent(in) :: i1, i2 - -! ---- OUTPUTS ----- - real*8 :: path_integral - -! ----- INTERNAL ----- - real*8 :: sumo, deltah, val - integer*4 :: nelm, j - integer*4, dimension(i2-i1+1) :: idx - real*8, dimension(i2-i1+1) :: f_rev, s_rev - - nelm = i2-i1+1 - if (nelm > 3) then - call mrgrnk(s(i1:i2),idx) - s_rev = s(idx) - f_rev = f(idx) - call avint(f_rev(i1:i2),s_rev(i1:i2),(i2-i1+1), & - s_rev(i1),s_rev(i2), val) - path_integral = val - else - sumo = 0. - do j=i1,i2 - deltah = abs(s(i1+1)-s(i1)) - sumo = sumo + f(j)*deltah - enddo - path_integral = sumo - endif - ! print *, sumo - - return - end function path_integral - -! ---------------------------------------------------------------------------- -! subroutine AVINT -! ---------------------------------------------------------------------------- - subroutine avint ( ftab, xtab, ntab, a_in, b_in, result ) - implicit none -! -! Purpose: -! estimate the integral of unevenly spaced data -! -! Inputs: -! [ftab] functional values -! [xtab] abscissa values -! [ntab] number of elements of [ftab] and [xtab] -! [a] lower limit of integration -! [b] upper limit of integration -! -! Outputs: -! [result] approximate value of integral -! -! Reference: -! From SLATEC libraries, in public domain -! -!*********************************************************************** -! -! AVINT estimates the integral of unevenly spaced data. -! -! Discussion: -! -! The method uses overlapping parabolas and smoothing. -! -! Modified: -! -! 30 October 2000 -! 4 January 2008, A. Bodas-Salcedo. Error control for XTAB taken out of -! loop to allow vectorization. -! -! Reference: -! -! Philip Davis and Philip Rabinowitz, -! Methods of Numerical Integration, -! Blaisdell Publishing, 1967. -! -! P E Hennion, -! Algorithm 77, -! Interpolation, Differentiation and Integration, -! Communications of the Association for Computing Machinery, -! Volume 5, page 96, 1962. -! -! Parameters: -! -! Input, real ( kind = 8 ) FTAB(NTAB), the function values, -! FTAB(I) = F(XTAB(I)). -! -! Input, real ( kind = 8 ) XTAB(NTAB), the abscissas at which the -! function values are given. The XTAB's must be distinct -! and in ascending order. -! -! Input, integer NTAB, the number of entries in FTAB and -! XTAB. NTAB must be at least 3. -! -! Input, real ( kind = 8 ) A, the lower limit of integration. A should -! be, but need not be, near one endpoint of the interval -! (X(1), X(NTAB)). -! -! Input, real ( kind = 8 ) B, the upper limit of integration. B should -! be, but need not be, near one endpoint of the interval -! (X(1), X(NTAB)). -! -! Output, real ( kind = 8 ) RESULT, the approximate value of the integral. - - integer, intent(in) :: ntab - - integer,parameter :: KR8 = selected_real_kind(15,300) - real ( kind = KR8 ), intent(in) :: a_in - real ( kind = KR8 ) a - real ( kind = KR8 ) atemp - real ( kind = KR8 ), intent(in) :: b_in - real ( kind = KR8 ) b - real ( kind = KR8 ) btemp - real ( kind = KR8 ) ca - real ( kind = KR8 ) cb - real ( kind = KR8 ) cc - real ( kind = KR8 ) ctemp - real ( kind = KR8 ), intent(in) :: ftab(ntab) - integer i - integer ihi - integer ilo - integer ind - real ( kind = KR8 ), intent(out) :: result - real ( kind = KR8 ) sum1 - real ( kind = KR8 ) syl - real ( kind = KR8 ) term1 - real ( kind = KR8 ) term2 - real ( kind = KR8 ) term3 - real ( kind = KR8 ) x1 - real ( kind = KR8 ) x2 - real ( kind = KR8 ) x3 - real ( kind = KR8 ), intent(in) :: xtab(ntab) - logical lerror - - lerror = .false. - a = a_in - b = b_in - - if ( ntab < 3 ) then - write ( *, '(a)' ) ' ' - write ( *, '(a)' ) 'AVINT - Fatal error!' - write ( *, '(a,i6)' ) ' NTAB is less than 3. NTAB = ', ntab - stop - end if - - do i = 2, ntab - if ( xtab(i) <= xtab(i-1) ) then - lerror = .true. - exit - end if - end do - - if (lerror) then - write ( *, '(a)' ) ' ' - write ( *, '(a)' ) 'AVINT - Fatal error!' - write ( *, '(a)' ) ' XTAB(I) is not greater than XTAB(I-1).' - write ( *, '(a,i6)' ) ' Here, I = ', i - write ( *, '(a,g14.6)' ) ' XTAB(I-1) = ', xtab(i-1) - write ( *, '(a,g14.6)' ) ' XTAB(I) = ', xtab(i) - stop - end if - - result = 0.0D+00 - - if ( a == b ) then - write ( *, '(a)' ) ' ' - write ( *, '(a)' ) 'AVINT - Warning!' - write ( *, '(a)' ) ' A = B, integral=0.' - return - end if -! -! If B < A, temporarily switch A and B, and store sign. -! - if ( b < a ) then - syl = b - b = a - a = syl - ind = -1 - else - syl = a - ind = 1 - end if -! -! Bracket A and B between XTAB(ILO) and XTAB(IHI). -! - ilo = 1 - ihi = ntab - - do i = 1, ntab - if ( a <= xtab(i) ) then - exit - end if - ilo = ilo + 1 - end do - - ilo = max ( 2, ilo ) - ilo = min ( ilo, ntab - 1 ) - - do i = 1, ntab - if ( xtab(i) <= b ) then - exit - end if - ihi = ihi - 1 - end do - - ihi = min ( ihi, ntab - 1 ) - ihi = max ( ilo, ihi - 1 ) -! -! Carry out approximate integration from XTAB(ILO) to XTAB(IHI). -! - sum1 = 0.0D+00 - - do i = ilo, ihi - - x1 = xtab(i-1) - x2 = xtab(i) - x3 = xtab(i+1) - - term1 = ftab(i-1) / ( ( x1 - x2 ) * ( x1 - x3 ) ) - term2 = ftab(i) / ( ( x2 - x1 ) * ( x2 - x3 ) ) - term3 = ftab(i+1) / ( ( x3 - x1 ) * ( x3 - x2 ) ) - - atemp = term1 + term2 + term3 - - btemp = - ( x2 + x3 ) * term1 & - - ( x1 + x3 ) * term2 & - - ( x1 + x2 ) * term3 - - ctemp = x2 * x3 * term1 + x1 * x3 * term2 + x1 * x2 * term3 - - if ( i <= ilo ) then - ca = atemp - cb = btemp - cc = ctemp - else - ca = 0.5D+00 * ( atemp + ca ) - cb = 0.5D+00 * ( btemp + cb ) - cc = 0.5D+00 * ( ctemp + cc ) - end if - - sum1 = sum1 & - + ca * ( x2**3 - syl**3 ) / 3.0D+00 & - + cb * 0.5D+00 * ( x2**2 - syl**2 ) & - + cc * ( x2 - syl ) - - ca = atemp - cb = btemp - cc = ctemp - - syl = x2 - - end do - - result = sum1 & - + ca * ( b**3 - syl**3 ) / 3.0D+00 & - + cb * 0.5D+00 * ( b**2 - syl**2 ) & - + cc * ( b - syl ) -! -! Restore original values of A and B, reverse sign of integral -! because of earlier switch. -! - if ( ind /= 1 ) then - ind = 1 - syl = b - b = a - a = syl - result = -result - end if - - return - end subroutine avint - - end module math_lib \ No newline at end of file diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/mrgrnk.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/mrgrnk.f90 deleted file mode 100644 index 2df2f6098..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/mrgrnk.f90 +++ /dev/null @@ -1,609 +0,0 @@ -Module m_mrgrnk -Integer, Parameter :: kdp = selected_real_kind(15) -public :: mrgrnk -private :: kdp -private :: R_mrgrnk, I_mrgrnk, D_mrgrnk -interface mrgrnk - module procedure D_mrgrnk, R_mrgrnk, I_mrgrnk -end interface mrgrnk -contains - -Subroutine D_mrgrnk (XDONT, IRNGT) -! __________________________________________________________ -! MRGRNK = Merge-sort ranking of an array -! For performance reasons, the first 2 passes are taken -! out of the standard loop, and use dedicated coding. -! __________________________________________________________ -! __________________________________________________________ - Real (kind=kdp), Dimension (:), Intent (In) :: XDONT - Integer*4, Dimension (:), Intent (Out) :: IRNGT -! __________________________________________________________ - Real (kind=kdp) :: XVALA, XVALB -! - Integer, Dimension (SIZE(IRNGT)) :: JWRKT - Integer :: LMTNA, LMTNC, IRNG1, IRNG2 - Integer :: NVAL, IIND, IWRKD, IWRK, IWRKF, JINDA, IINDA, IINDB -! - NVAL = Min (SIZE(XDONT), SIZE(IRNGT)) - Select Case (NVAL) - Case (:0) - Return - Case (1) - IRNGT (1) = 1 - Return - Case Default - Continue - End Select -! -! Fill-in the index array, creating ordered couples -! - Do IIND = 2, NVAL, 2 - If (XDONT(IIND-1) <= XDONT(IIND)) Then - IRNGT (IIND-1) = IIND - 1 - IRNGT (IIND) = IIND - Else - IRNGT (IIND-1) = IIND - IRNGT (IIND) = IIND - 1 - End If - End Do - If (Modulo(NVAL, 2) /= 0) Then - IRNGT (NVAL) = NVAL - End If -! -! We will now have ordered subsets A - B - A - B - ... -! and merge A and B couples into C - C - ... -! - LMTNA = 2 - LMTNC = 4 -! -! First iteration. The length of the ordered subsets goes from 2 to 4 -! - Do - If (NVAL <= 2) Exit -! -! Loop on merges of A and B into C -! - Do IWRKD = 0, NVAL - 1, 4 - If ((IWRKD+4) > NVAL) Then - If ((IWRKD+2) >= NVAL) Exit -! -! 1 2 3 -! - If (XDONT(IRNGT(IWRKD+2)) <= XDONT(IRNGT(IWRKD+3))) Exit -! -! 1 3 2 -! - If (XDONT(IRNGT(IWRKD+1)) <= XDONT(IRNGT(IWRKD+3))) Then - IRNG2 = IRNGT (IWRKD+2) - IRNGT (IWRKD+2) = IRNGT (IWRKD+3) - IRNGT (IWRKD+3) = IRNG2 -! -! 3 1 2 -! - Else - IRNG1 = IRNGT (IWRKD+1) - IRNGT (IWRKD+1) = IRNGT (IWRKD+3) - IRNGT (IWRKD+3) = IRNGT (IWRKD+2) - IRNGT (IWRKD+2) = IRNG1 - End If - Exit - End If -! -! 1 2 3 4 -! - If (XDONT(IRNGT(IWRKD+2)) <= XDONT(IRNGT(IWRKD+3))) Cycle -! -! 1 3 x x -! - If (XDONT(IRNGT(IWRKD+1)) <= XDONT(IRNGT(IWRKD+3))) Then - IRNG2 = IRNGT (IWRKD+2) - IRNGT (IWRKD+2) = IRNGT (IWRKD+3) - If (XDONT(IRNG2) <= XDONT(IRNGT(IWRKD+4))) Then -! 1 3 2 4 - IRNGT (IWRKD+3) = IRNG2 - Else -! 1 3 4 2 - IRNGT (IWRKD+3) = IRNGT (IWRKD+4) - IRNGT (IWRKD+4) = IRNG2 - End If -! -! 3 x x x -! - Else - IRNG1 = IRNGT (IWRKD+1) - IRNG2 = IRNGT (IWRKD+2) - IRNGT (IWRKD+1) = IRNGT (IWRKD+3) - If (XDONT(IRNG1) <= XDONT(IRNGT(IWRKD+4))) Then - IRNGT (IWRKD+2) = IRNG1 - If (XDONT(IRNG2) <= XDONT(IRNGT(IWRKD+4))) Then -! 3 1 2 4 - IRNGT (IWRKD+3) = IRNG2 - Else -! 3 1 4 2 - IRNGT (IWRKD+3) = IRNGT (IWRKD+4) - IRNGT (IWRKD+4) = IRNG2 - End If - Else -! 3 4 1 2 - IRNGT (IWRKD+2) = IRNGT (IWRKD+4) - IRNGT (IWRKD+3) = IRNG1 - IRNGT (IWRKD+4) = IRNG2 - End If - End If - End Do -! -! The Cs become As and Bs -! - LMTNA = 4 - Exit - End Do -! -! Iteration loop. Each time, the length of the ordered subsets -! is doubled. -! - Do - If (LMTNA >= NVAL) Exit - IWRKF = 0 - LMTNC = 2 * LMTNC -! -! Loop on merges of A and B into C -! - Do - IWRK = IWRKF - IWRKD = IWRKF + 1 - JINDA = IWRKF + LMTNA - IWRKF = IWRKF + LMTNC - If (IWRKF >= NVAL) Then - If (JINDA >= NVAL) Exit - IWRKF = NVAL - End If - IINDA = 1 - IINDB = JINDA + 1 -! -! Shortcut for the case when the max of A is smaller -! than the min of B. This line may be activated when the -! initial set is already close to sorted. -! -! IF (XDONT(IRNGT(JINDA)) <= XDONT(IRNGT(IINDB))) CYCLE -! -! One steps in the C subset, that we build in the final rank array -! -! Make a copy of the rank array for the merge iteration -! - JWRKT (1:LMTNA) = IRNGT (IWRKD:JINDA) -! - XVALA = XDONT (JWRKT(IINDA)) - XVALB = XDONT (IRNGT(IINDB)) -! - Do - IWRK = IWRK + 1 -! -! We still have unprocessed values in both A and B -! - If (XVALA > XVALB) Then - IRNGT (IWRK) = IRNGT (IINDB) - IINDB = IINDB + 1 - If (IINDB > IWRKF) Then -! Only A still with unprocessed values - IRNGT (IWRK+1:IWRKF) = JWRKT (IINDA:LMTNA) - Exit - End If - XVALB = XDONT (IRNGT(IINDB)) - Else - IRNGT (IWRK) = JWRKT (IINDA) - IINDA = IINDA + 1 - If (IINDA > LMTNA) Exit! Only B still with unprocessed values - XVALA = XDONT (JWRKT(IINDA)) - End If -! - End Do - End Do -! -! The Cs become As and Bs -! - LMTNA = 2 * LMTNA - End Do -! - Return -! -End Subroutine D_mrgrnk - -Subroutine R_mrgrnk (XDONT, IRNGT) -! __________________________________________________________ -! MRGRNK = Merge-sort ranking of an array -! For performance reasons, the first 2 passes are taken -! out of the standard loop, and use dedicated coding. -! __________________________________________________________ -! _________________________________________________________ - Real, Dimension (:), Intent (In) :: XDONT - Integer*4, Dimension (:), Intent (Out) :: IRNGT -! __________________________________________________________ - Real :: XVALA, XVALB -! - Integer, Dimension (SIZE(IRNGT)) :: JWRKT - Integer :: LMTNA, LMTNC, IRNG1, IRNG2 - Integer :: NVAL, IIND, IWRKD, IWRK, IWRKF, JINDA, IINDA, IINDB -! - NVAL = Min (SIZE(XDONT), SIZE(IRNGT)) - Select Case (NVAL) - Case (:0) - Return - Case (1) - IRNGT (1) = 1 - Return - Case Default - Continue - End Select -! -! Fill-in the index array, creating ordered couples -! - Do IIND = 2, NVAL, 2 - If (XDONT(IIND-1) <= XDONT(IIND)) Then - IRNGT (IIND-1) = IIND - 1 - IRNGT (IIND) = IIND - Else - IRNGT (IIND-1) = IIND - IRNGT (IIND) = IIND - 1 - End If - End Do - If (Modulo(NVAL, 2) /= 0) Then - IRNGT (NVAL) = NVAL - End If -! -! We will now have ordered subsets A - B - A - B - ... -! and merge A and B couples into C - C - ... -! - LMTNA = 2 - LMTNC = 4 -! -! First iteration. The length of the ordered subsets goes from 2 to 4 -! - Do - If (NVAL <= 2) Exit -! -! Loop on merges of A and B into C -! - Do IWRKD = 0, NVAL - 1, 4 - If ((IWRKD+4) > NVAL) Then - If ((IWRKD+2) >= NVAL) Exit -! -! 1 2 3 -! - If (XDONT(IRNGT(IWRKD+2)) <= XDONT(IRNGT(IWRKD+3))) Exit -! -! 1 3 2 -! - If (XDONT(IRNGT(IWRKD+1)) <= XDONT(IRNGT(IWRKD+3))) Then - IRNG2 = IRNGT (IWRKD+2) - IRNGT (IWRKD+2) = IRNGT (IWRKD+3) - IRNGT (IWRKD+3) = IRNG2 -! -! 3 1 2 -! - Else - IRNG1 = IRNGT (IWRKD+1) - IRNGT (IWRKD+1) = IRNGT (IWRKD+3) - IRNGT (IWRKD+3) = IRNGT (IWRKD+2) - IRNGT (IWRKD+2) = IRNG1 - End If - Exit - End If -! -! 1 2 3 4 -! - If (XDONT(IRNGT(IWRKD+2)) <= XDONT(IRNGT(IWRKD+3))) Cycle -! -! 1 3 x x -! - If (XDONT(IRNGT(IWRKD+1)) <= XDONT(IRNGT(IWRKD+3))) Then - IRNG2 = IRNGT (IWRKD+2) - IRNGT (IWRKD+2) = IRNGT (IWRKD+3) - If (XDONT(IRNG2) <= XDONT(IRNGT(IWRKD+4))) Then -! 1 3 2 4 - IRNGT (IWRKD+3) = IRNG2 - Else -! 1 3 4 2 - IRNGT (IWRKD+3) = IRNGT (IWRKD+4) - IRNGT (IWRKD+4) = IRNG2 - End If -! -! 3 x x x -! - Else - IRNG1 = IRNGT (IWRKD+1) - IRNG2 = IRNGT (IWRKD+2) - IRNGT (IWRKD+1) = IRNGT (IWRKD+3) - If (XDONT(IRNG1) <= XDONT(IRNGT(IWRKD+4))) Then - IRNGT (IWRKD+2) = IRNG1 - If (XDONT(IRNG2) <= XDONT(IRNGT(IWRKD+4))) Then -! 3 1 2 4 - IRNGT (IWRKD+3) = IRNG2 - Else -! 3 1 4 2 - IRNGT (IWRKD+3) = IRNGT (IWRKD+4) - IRNGT (IWRKD+4) = IRNG2 - End If - Else -! 3 4 1 2 - IRNGT (IWRKD+2) = IRNGT (IWRKD+4) - IRNGT (IWRKD+3) = IRNG1 - IRNGT (IWRKD+4) = IRNG2 - End If - End If - End Do -! -! The Cs become As and Bs -! - LMTNA = 4 - Exit - End Do -! -! Iteration loop. Each time, the length of the ordered subsets -! is doubled. -! - Do - If (LMTNA >= NVAL) Exit - IWRKF = 0 - LMTNC = 2 * LMTNC -! -! Loop on merges of A and B into C -! - Do - IWRK = IWRKF - IWRKD = IWRKF + 1 - JINDA = IWRKF + LMTNA - IWRKF = IWRKF + LMTNC - If (IWRKF >= NVAL) Then - If (JINDA >= NVAL) Exit - IWRKF = NVAL - End If - IINDA = 1 - IINDB = JINDA + 1 -! -! Shortcut for the case when the max of A is smaller -! than the min of B. This line may be activated when the -! initial set is already close to sorted. -! -! IF (XDONT(IRNGT(JINDA)) <= XDONT(IRNGT(IINDB))) CYCLE -! -! One steps in the C subset, that we build in the final rank array -! -! Make a copy of the rank array for the merge iteration -! - JWRKT (1:LMTNA) = IRNGT (IWRKD:JINDA) -! - XVALA = XDONT (JWRKT(IINDA)) - XVALB = XDONT (IRNGT(IINDB)) -! - Do - IWRK = IWRK + 1 -! -! We still have unprocessed values in both A and B -! - If (XVALA > XVALB) Then - IRNGT (IWRK) = IRNGT (IINDB) - IINDB = IINDB + 1 - If (IINDB > IWRKF) Then -! Only A still with unprocessed values - IRNGT (IWRK+1:IWRKF) = JWRKT (IINDA:LMTNA) - Exit - End If - XVALB = XDONT (IRNGT(IINDB)) - Else - IRNGT (IWRK) = JWRKT (IINDA) - IINDA = IINDA + 1 - If (IINDA > LMTNA) Exit! Only B still with unprocessed values - XVALA = XDONT (JWRKT(IINDA)) - End If -! - End Do - End Do -! -! The Cs become As and Bs -! - LMTNA = 2 * LMTNA - End Do -! - Return -! -End Subroutine R_mrgrnk -Subroutine I_mrgrnk (XDONT, IRNGT) -! __________________________________________________________ -! MRGRNK = Merge-sort ranking of an array -! For performance reasons, the first 2 passes are taken -! out of the standard loop, and use dedicated coding. -! __________________________________________________________ -! __________________________________________________________ - Integer, Dimension (:), Intent (In) :: XDONT - Integer*4, Dimension (:), Intent (Out) :: IRNGT -! __________________________________________________________ - Integer :: XVALA, XVALB -! - Integer, Dimension (SIZE(IRNGT)) :: JWRKT - Integer :: LMTNA, LMTNC, IRNG1, IRNG2 - Integer :: NVAL, IIND, IWRKD, IWRK, IWRKF, JINDA, IINDA, IINDB -! - NVAL = Min (SIZE(XDONT), SIZE(IRNGT)) - Select Case (NVAL) - Case (:0) - Return - Case (1) - IRNGT (1) = 1 - Return - Case Default - Continue - End Select -! -! Fill-in the index array, creating ordered couples -! - Do IIND = 2, NVAL, 2 - If (XDONT(IIND-1) <= XDONT(IIND)) Then - IRNGT (IIND-1) = IIND - 1 - IRNGT (IIND) = IIND - Else - IRNGT (IIND-1) = IIND - IRNGT (IIND) = IIND - 1 - End If - End Do - If (Modulo(NVAL, 2) /= 0) Then - IRNGT (NVAL) = NVAL - End If -! -! We will now have ordered subsets A - B - A - B - ... -! and merge A and B couples into C - C - ... -! - LMTNA = 2 - LMTNC = 4 -! -! First iteration. The length of the ordered subsets goes from 2 to 4 -! - Do - If (NVAL <= 2) Exit -! -! Loop on merges of A and B into C -! - Do IWRKD = 0, NVAL - 1, 4 - If ((IWRKD+4) > NVAL) Then - If ((IWRKD+2) >= NVAL) Exit -! -! 1 2 3 -! - If (XDONT(IRNGT(IWRKD+2)) <= XDONT(IRNGT(IWRKD+3))) Exit -! -! 1 3 2 -! - If (XDONT(IRNGT(IWRKD+1)) <= XDONT(IRNGT(IWRKD+3))) Then - IRNG2 = IRNGT (IWRKD+2) - IRNGT (IWRKD+2) = IRNGT (IWRKD+3) - IRNGT (IWRKD+3) = IRNG2 -! -! 3 1 2 -! - Else - IRNG1 = IRNGT (IWRKD+1) - IRNGT (IWRKD+1) = IRNGT (IWRKD+3) - IRNGT (IWRKD+3) = IRNGT (IWRKD+2) - IRNGT (IWRKD+2) = IRNG1 - End If - Exit - End If -! -! 1 2 3 4 -! - If (XDONT(IRNGT(IWRKD+2)) <= XDONT(IRNGT(IWRKD+3))) Cycle -! -! 1 3 x x -! - If (XDONT(IRNGT(IWRKD+1)) <= XDONT(IRNGT(IWRKD+3))) Then - IRNG2 = IRNGT (IWRKD+2) - IRNGT (IWRKD+2) = IRNGT (IWRKD+3) - If (XDONT(IRNG2) <= XDONT(IRNGT(IWRKD+4))) Then -! 1 3 2 4 - IRNGT (IWRKD+3) = IRNG2 - Else -! 1 3 4 2 - IRNGT (IWRKD+3) = IRNGT (IWRKD+4) - IRNGT (IWRKD+4) = IRNG2 - End If -! -! 3 x x x -! - Else - IRNG1 = IRNGT (IWRKD+1) - IRNG2 = IRNGT (IWRKD+2) - IRNGT (IWRKD+1) = IRNGT (IWRKD+3) - If (XDONT(IRNG1) <= XDONT(IRNGT(IWRKD+4))) Then - IRNGT (IWRKD+2) = IRNG1 - If (XDONT(IRNG2) <= XDONT(IRNGT(IWRKD+4))) Then -! 3 1 2 4 - IRNGT (IWRKD+3) = IRNG2 - Else -! 3 1 4 2 - IRNGT (IWRKD+3) = IRNGT (IWRKD+4) - IRNGT (IWRKD+4) = IRNG2 - End If - Else -! 3 4 1 2 - IRNGT (IWRKD+2) = IRNGT (IWRKD+4) - IRNGT (IWRKD+3) = IRNG1 - IRNGT (IWRKD+4) = IRNG2 - End If - End If - End Do -! -! The Cs become As and Bs -! - LMTNA = 4 - Exit - End Do -! -! Iteration loop. Each time, the length of the ordered subsets -! is doubled. -! - Do - If (LMTNA >= NVAL) Exit - IWRKF = 0 - LMTNC = 2 * LMTNC -! -! Loop on merges of A and B into C -! - Do - IWRK = IWRKF - IWRKD = IWRKF + 1 - JINDA = IWRKF + LMTNA - IWRKF = IWRKF + LMTNC - If (IWRKF >= NVAL) Then - If (JINDA >= NVAL) Exit - IWRKF = NVAL - End If - IINDA = 1 - IINDB = JINDA + 1 -! -! Shortcut for the case when the max of A is smaller -! than the min of B. This line may be activated when the -! initial set is already close to sorted. -! -! IF (XDONT(IRNGT(JINDA)) <= XDONT(IRNGT(IINDB))) CYCLE -! -! One steps in the C subset, that we build in the final rank array -! -! Make a copy of the rank array for the merge iteration -! - JWRKT (1:LMTNA) = IRNGT (IWRKD:JINDA) -! - XVALA = XDONT (JWRKT(IINDA)) - XVALB = XDONT (IRNGT(IINDB)) -! - Do - IWRK = IWRK + 1 -! -! We still have unprocessed values in both A and B -! - If (XVALA > XVALB) Then - IRNGT (IWRK) = IRNGT (IINDB) - IINDB = IINDB + 1 - If (IINDB > IWRKF) Then -! Only A still with unprocessed values - IRNGT (IWRK+1:IWRKF) = JWRKT (IINDA:LMTNA) - Exit - End If - XVALB = XDONT (IRNGT(IINDB)) - Else - IRNGT (IWRK) = JWRKT (IINDA) - IINDA = IINDA + 1 - If (IINDA > LMTNA) Exit! Only B still with unprocessed values - XVALA = XDONT (JWRKT(IINDA)) - End If -! - End Do - End Do -! -! The Cs become As and Bs -! - LMTNA = 2 * LMTNA - End Do -! - Return -! -End Subroutine I_mrgrnk -end module m_mrgrnk diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/optics_lib.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/optics_lib.f90 deleted file mode 100644 index de837b9ff..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/optics_lib.f90 +++ /dev/null @@ -1,747 +0,0 @@ -! OPTICS_LIB: Optical proecures for for F90 -! Compiled/Modified: -! 07/01/06 John Haynes (haynes@atmos.colostate.edu) -! -! m_wat (subroutine) -! m_ice (subroutine) -! mie_int (subroutine) - - module optics_lib - implicit none - - contains - -! ---------------------------------------------------------------------------- -! subroutine M_WAT -! ---------------------------------------------------------------------------- - subroutine m_wat(freq, t, n_r, n_i) - implicit none -! -! Purpose: -! compute complex index of refraction of liquid water -! -! Inputs: -! [freq] frequency (GHz) -! [t] temperature (C) -! -! Outputs: -! [n_r] real part index of refraction -! [n_i] imaginary part index of refraction -! -! Reference: -! Based on the work of Ray (1972) -! -! Coded: -! 03/22/05 John Haynes (haynes@atmos.colostate.edu) - -! ----- INPUTS ----- - real*8, intent(in) :: freq,t - -! ----- OUTPUTS ----- - real*8, intent(out) :: n_r, n_i - -! ----- INTERNAL ----- - real*8 ld,es,ei,a,ls,sg,tm1,cos1,sin1 - real*8 e_r,e_i - real*8 pi - complex*16 e_comp, sq - - ld = 100.*2.99792458E8/(freq*1E9) - es = 78.54*(1-(4.579E-3*(t-25.)+1.19E-5*(t-25.)**2 & - -2.8E-8*(t-25.)**3)) - ei = 5.27137+0.021647*t-0.00131198*t**2 - a = -(16.8129/(t+273.))+0.0609265 - ls = 0.00033836*exp(2513.98/(t+273.)) - sg = 12.5664E8 - - tm1 = (ls/ld)**(1-a) - pi = acos(-1.D0) - cos1 = cos(0.5*a*pi) - sin1 = sin(0.5*a*pi) - - e_r = ei + (((es-ei)*(1.+tm1*sin1))/(1.+2*tm1*sin1+tm1**2)) - e_i = (((es-ei)*tm1*cos1)/(1.+2*tm1*sin1+tm1**2)) & - +((sg*ld)/1.885E11) - - e_comp = dcmplx(e_r,e_i) - sq = sqrt(e_comp) - - n_r = real(sq) - n_i = aimag(sq) - - return - end subroutine m_wat - -! ---------------------------------------------------------------------------- -! subroutine M_ICE -! ---------------------------------------------------------------------------- - subroutine m_ice(freq,t,n_r,n_i) - implicit none -! -! Purpose: -! compute complex index of refraction of ice -! -! Inputs: -! [freq] frequency (GHz) -! [t] temperature (C) -! -! Outputs: -! [n_r] real part index of refraction -! [n_i] imaginary part index of refraction -! -! Reference: -! Fortran 90 port from IDL of REFICE by Stephen G. Warren -! -! Modified: -! 05/31/05 John Haynes (haynes@atmos.colostate.edu) - -! ----- INPUTS ----- - real*8, intent(in) :: freq, t - -! ----- OUTPUTS ----- - real*8, intent(out) :: n_r,n_i - -! Parameters: - integer*2 :: i,lt1,lt2,nwl,nwlt - parameter(nwl=468,nwlt=62) - - real*8 :: alam,cutice,pi,t1,t2,tk,wlmax,wlmin, & - x,x1,x2,y,y1,y2,ylo,yhi - - real*8 :: & - tabim(nwl),tabimt(nwlt,4),tabre(nwl),tabret(nwlt,4),temref(4), & - wl(nwl),wlt(nwlt) - -! Defines wavelength dependent complex index of refraction for ice. -! Allowable wavelength range extends from 0.045 microns to 8.6 meter -! temperature dependence only considered beyond 167 microns. -! -! interpolation is done n_r vs. log(xlam) -! n_r vs. t -! log(n_i) vs. log(xlam) -! log(n_i) vs. t -! -! Stephen G. Warren - 1983 -! Dept. of Atmospheric Sciences -! University of Washington -! Seattle, Wa 98195 -! -! Based on -! -! Warren,S.G.,1984. -! Optical constants of ice from the ultraviolet to the microwave. -! Applied Optics,23,1206-1225 -! -! Reference temperatures are -1.0,-5.0,-20.0, and -60.0 deg C - - data temref/272.16,268.16,253.16,213.16/ - - data wlmin,wlmax/0.045,8.6e6/ - data cutice/167.0/ - - data (wl(i),i=1,114)/ & - 0.4430e-01,0.4510e-01,0.4590e-01,0.4680e-01,0.4770e-01,0.4860e-01, & - 0.4960e-01,0.5060e-01,0.5170e-01,0.5280e-01,0.5390e-01,0.5510e-01, & - 0.5640e-01,0.5770e-01,0.5900e-01,0.6050e-01,0.6200e-01,0.6360e-01, & - 0.6530e-01,0.6700e-01,0.6890e-01,0.7080e-01,0.7290e-01,0.7380e-01, & - 0.7510e-01,0.7750e-01,0.8000e-01,0.8270e-01,0.8550e-01,0.8860e-01, & - 0.9180e-01,0.9300e-01,0.9540e-01,0.9920e-01,0.1033e+00,0.1078e+00, & - 0.1100e+00,0.1127e+00,0.1140e+00,0.1181e+00,0.1210e+00,0.1240e+00, & - 0.1272e+00,0.1295e+00,0.1305e+00,0.1319e+00,0.1333e+00,0.1348e+00, & - 0.1362e+00,0.1370e+00,0.1378e+00,0.1387e+00,0.1393e+00,0.1409e+00, & - 0.1425e+00,0.1435e+00,0.1442e+00,0.1450e+00,0.1459e+00,0.1468e+00, & - 0.1476e+00,0.1480e+00,0.1485e+00,0.1494e+00,0.1512e+00,0.1531e+00, & - 0.1540e+00,0.1550e+00,0.1569e+00,0.1580e+00,0.1589e+00,0.1610e+00, & - 0.1625e+00,0.1648e+00,0.1669e+00,0.1692e+00,0.1713e+00,0.1737e+00, & - 0.1757e+00,0.1779e+00,0.1802e+00,0.1809e+00,0.1821e+00,0.1833e+00, & - 0.1843e+00,0.1850e+00,0.1860e+00,0.1870e+00,0.1880e+00,0.1890e+00, & - 0.1900e+00,0.1910e+00,0.1930e+00,0.1950e+00,0.2100e+00,0.2500e+00, & - 0.3000e+00,0.3500e+00,0.4000e+00,0.4100e+00,0.4200e+00,0.4300e+00, & - 0.4400e+00,0.4500e+00,0.4600e+00,0.4700e+00,0.4800e+00,0.4900e+00, & - 0.5000e+00,0.5100e+00,0.5200e+00,0.5300e+00,0.5400e+00,0.5500e+00/ - data (wl(i),i=115,228)/ & - 0.5600e+00,0.5700e+00,0.5800e+00,0.5900e+00,0.6000e+00,0.6100e+00, & - 0.6200e+00,0.6300e+00,0.6400e+00,0.6500e+00,0.6600e+00,0.6700e+00, & - 0.6800e+00,0.6900e+00,0.7000e+00,0.7100e+00,0.7200e+00,0.7300e+00, & - 0.7400e+00,0.7500e+00,0.7600e+00,0.7700e+00,0.7800e+00,0.7900e+00, & - 0.8000e+00,0.8100e+00,0.8200e+00,0.8300e+00,0.8400e+00,0.8500e+00, & - 0.8600e+00,0.8700e+00,0.8800e+00,0.8900e+00,0.9000e+00,0.9100e+00, & - 0.9200e+00,0.9300e+00,0.9400e+00,0.9500e+00,0.9600e+00,0.9700e+00, & - 0.9800e+00,0.9900e+00,0.1000e+01,0.1010e+01,0.1020e+01,0.1030e+01, & - 0.1040e+01,0.1050e+01,0.1060e+01,0.1070e+01,0.1080e+01,0.1090e+01, & - 0.1100e+01,0.1110e+01,0.1120e+01,0.1130e+01,0.1140e+01,0.1150e+01, & - 0.1160e+01,0.1170e+01,0.1180e+01,0.1190e+01,0.1200e+01,0.1210e+01, & - 0.1220e+01,0.1230e+01,0.1240e+01,0.1250e+01,0.1260e+01,0.1270e+01, & - 0.1280e+01,0.1290e+01,0.1300e+01,0.1310e+01,0.1320e+01,0.1330e+01, & - 0.1340e+01,0.1350e+01,0.1360e+01,0.1370e+01,0.1380e+01,0.1390e+01, & - 0.1400e+01,0.1410e+01,0.1420e+01,0.1430e+01,0.1440e+01,0.1449e+01, & - 0.1460e+01,0.1471e+01,0.1481e+01,0.1493e+01,0.1504e+01,0.1515e+01, & - 0.1527e+01,0.1538e+01,0.1563e+01,0.1587e+01,0.1613e+01,0.1650e+01, & - 0.1680e+01,0.1700e+01,0.1730e+01,0.1760e+01,0.1800e+01,0.1830e+01, & - 0.1840e+01,0.1850e+01,0.1855e+01,0.1860e+01,0.1870e+01,0.1890e+01/ - data (wl(i),i=229,342)/ & - 0.1905e+01,0.1923e+01,0.1942e+01,0.1961e+01,0.1980e+01,0.2000e+01, & - 0.2020e+01,0.2041e+01,0.2062e+01,0.2083e+01,0.2105e+01,0.2130e+01, & - 0.2150e+01,0.2170e+01,0.2190e+01,0.2220e+01,0.2240e+01,0.2245e+01, & - 0.2250e+01,0.2260e+01,0.2270e+01,0.2290e+01,0.2310e+01,0.2330e+01, & - 0.2350e+01,0.2370e+01,0.2390e+01,0.2410e+01,0.2430e+01,0.2460e+01, & - 0.2500e+01,0.2520e+01,0.2550e+01,0.2565e+01,0.2580e+01,0.2590e+01, & - 0.2600e+01,0.2620e+01,0.2675e+01,0.2725e+01,0.2778e+01,0.2817e+01, & - 0.2833e+01,0.2849e+01,0.2865e+01,0.2882e+01,0.2899e+01,0.2915e+01, & - 0.2933e+01,0.2950e+01,0.2967e+01,0.2985e+01,0.3003e+01,0.3021e+01, & - 0.3040e+01,0.3058e+01,0.3077e+01,0.3096e+01,0.3115e+01,0.3135e+01, & - 0.3155e+01,0.3175e+01,0.3195e+01,0.3215e+01,0.3236e+01,0.3257e+01, & - 0.3279e+01,0.3300e+01,0.3322e+01,0.3345e+01,0.3367e+01,0.3390e+01, & - 0.3413e+01,0.3436e+01,0.3460e+01,0.3484e+01,0.3509e+01,0.3534e+01, & - 0.3559e+01,0.3624e+01,0.3732e+01,0.3775e+01,0.3847e+01,0.3969e+01, & - 0.4099e+01,0.4239e+01,0.4348e+01,0.4387e+01,0.4444e+01,0.4505e+01, & - 0.4547e+01,0.4560e+01,0.4580e+01,0.4719e+01,0.4904e+01,0.5000e+01, & - 0.5100e+01,0.5200e+01,0.5263e+01,0.5400e+01,0.5556e+01,0.5714e+01, & - 0.5747e+01,0.5780e+01,0.5814e+01,0.5848e+01,0.5882e+01,0.6061e+01, & - 0.6135e+01,0.6250e+01,0.6289e+01,0.6329e+01,0.6369e+01,0.6410e+01/ - data (wl(i),i=343,456)/ & - 0.6452e+01,0.6494e+01,0.6579e+01,0.6667e+01,0.6757e+01,0.6897e+01, & - 0.7042e+01,0.7143e+01,0.7246e+01,0.7353e+01,0.7463e+01,0.7576e+01, & - 0.7692e+01,0.7812e+01,0.7937e+01,0.8065e+01,0.8197e+01,0.8333e+01, & - 0.8475e+01,0.8696e+01,0.8929e+01,0.9091e+01,0.9259e+01,0.9524e+01, & - 0.9804e+01,0.1000e+02,0.1020e+02,0.1031e+02,0.1042e+02,0.1053e+02, & - 0.1064e+02,0.1075e+02,0.1087e+02,0.1100e+02,0.1111e+02,0.1136e+02, & - 0.1163e+02,0.1190e+02,0.1220e+02,0.1250e+02,0.1282e+02,0.1299e+02, & - 0.1316e+02,0.1333e+02,0.1351e+02,0.1370e+02,0.1389e+02,0.1408e+02, & - 0.1429e+02,0.1471e+02,0.1515e+02,0.1538e+02,0.1563e+02,0.1613e+02, & - 0.1639e+02,0.1667e+02,0.1695e+02,0.1724e+02,0.1818e+02,0.1887e+02, & - 0.1923e+02,0.1961e+02,0.2000e+02,0.2041e+02,0.2083e+02,0.2222e+02, & - 0.2260e+02,0.2305e+02,0.2360e+02,0.2460e+02,0.2500e+02,0.2600e+02, & - 0.2857e+02,0.3100e+02,0.3333e+02,0.3448e+02,0.3564e+02,0.3700e+02, & - 0.3824e+02,0.3960e+02,0.4114e+02,0.4276e+02,0.4358e+02,0.4458e+02, & - 0.4550e+02,0.4615e+02,0.4671e+02,0.4736e+02,0.4800e+02,0.4878e+02, & - 0.5003e+02,0.5128e+02,0.5275e+02,0.5350e+02,0.5424e+02,0.5500e+02, & - 0.5574e+02,0.5640e+02,0.5700e+02,0.5746e+02,0.5840e+02,0.5929e+02, & - 0.6000e+02,0.6100e+02,0.6125e+02,0.6250e+02,0.6378e+02,0.6467e+02, & - 0.6558e+02,0.6655e+02,0.6760e+02,0.6900e+02,0.7053e+02,0.7300e+02/ - data (wl(i),i=457,468)/ & - 0.7500e+02,0.7629e+02,0.8000e+02,0.8297e+02,0.8500e+02,0.8680e+02, & - 0.9080e+02,0.9517e+02,0.1000e+03,0.1200e+03,0.1500e+03,0.1670e+03/ - data wlt/ & - 0.1670e+03,0.1778e+03,0.1884e+03, & - 0.1995e+03,0.2113e+03,0.2239e+03,0.2371e+03,0.2512e+03,0.2661e+03, & - 0.2818e+03,0.2985e+03,0.3162e+03,0.3548e+03,0.3981e+03,0.4467e+03, & - 0.5012e+03,0.5623e+03,0.6310e+03,0.7943e+03,0.1000e+04,0.1259e+04, & - 0.2500e+04,0.5000e+04,0.1000e+05,0.2000e+05,0.3200e+05,0.3500e+05, & - 0.4000e+05,0.4500e+05,0.5000e+05,0.6000e+05,0.7000e+05,0.9000e+05, & - 0.1110e+06,0.1200e+06,0.1300e+06,0.1400e+06,0.1500e+06,0.1600e+06, & - 0.1700e+06,0.1800e+06,0.2000e+06,0.2500e+06,0.2900e+06,0.3200e+06, & - 0.3500e+06,0.3800e+06,0.4000e+06,0.4500e+06,0.5000e+06,0.6000e+06, & - 0.6400e+06,0.6800e+06,0.7200e+06,0.7600e+06,0.8000e+06,0.8400e+06, & - 0.9000e+06,0.1000e+07,0.2000e+07,0.5000e+07,0.8600e+07/ - data (tabre(i),i=1,114)/ & - 0.83441, 0.83676, 0.83729, 0.83771, 0.83827, 0.84038, & - 0.84719, 0.85522, 0.86047, 0.86248, 0.86157, 0.86093, & - 0.86419, 0.86916, 0.87764, 0.89296, 0.91041, 0.93089, & - 0.95373, 0.98188, 1.02334, 1.06735, 1.11197, 1.13134, & - 1.15747, 1.20045, 1.23840, 1.27325, 1.32157, 1.38958, & - 1.41644, 1.40906, 1.40063, 1.40169, 1.40934, 1.40221, & - 1.39240, 1.38424, 1.38075, 1.38186, 1.39634, 1.40918, & - 1.40256, 1.38013, 1.36303, 1.34144, 1.32377, 1.30605, & - 1.29054, 1.28890, 1.28931, 1.30190, 1.32025, 1.36302, & - 1.41872, 1.45834, 1.49028, 1.52128, 1.55376, 1.57782, & - 1.59636, 1.60652, 1.61172, 1.61919, 1.62522, 1.63404, & - 1.63689, 1.63833, 1.63720, 1.63233, 1.62222, 1.58269, & - 1.55635, 1.52453, 1.50320, 1.48498, 1.47226, 1.45991, & - 1.45115, 1.44272, 1.43498, 1.43280, 1.42924, 1.42602, & - 1.42323, 1.42143, 1.41897, 1.41660, 1.41434, 1.41216, & - 1.41006, 1.40805, 1.40423, 1.40067, 1.38004, 1.35085, & - 1.33394, 1.32492, 1.31940, 1.31854, 1.31775, 1.31702, & - 1.31633, 1.31569, 1.31509, 1.31452, 1.31399, 1.31349, & - 1.31302, 1.31257, 1.31215, 1.31175, 1.31136, 1.31099/ - data (tabre(i),i=115,228)/ & - 1.31064, 1.31031, 1.30999, 1.30968, 1.30938, 1.30909, & - 1.30882, 1.30855, 1.30829, 1.30804, 1.30780, 1.30756, & - 1.30733, 1.30710, 1.30688, 1.30667, 1.30646, 1.30625, & - 1.30605, 1.30585, 1.30566, 1.30547, 1.30528, 1.30509, & - 1.30491, 1.30473, 1.30455, 1.30437, 1.30419, 1.30402, & - 1.30385, 1.30367, 1.30350, 1.30333, 1.30316, 1.30299, & - 1.30283, 1.30266, 1.30249, 1.30232, 1.30216, 1.30199, & - 1.30182, 1.30166, 1.30149, 1.30132, 1.30116, 1.30099, & - 1.30082, 1.30065, 1.30048, 1.30031, 1.30014, 1.29997, & - 1.29979, 1.29962, 1.29945, 1.29927, 1.29909, 1.29891, & - 1.29873, 1.29855, 1.29837, 1.29818, 1.29800, 1.29781, & - 1.29762, 1.29743, 1.29724, 1.29705, 1.29686, 1.29666, & - 1.29646, 1.29626, 1.29605, 1.29584, 1.29563, 1.29542, & - 1.29521, 1.29499, 1.29476, 1.29453, 1.29430, 1.29406, & - 1.29381, 1.29355, 1.29327, 1.29299, 1.29272, 1.29252, & - 1.29228, 1.29205, 1.29186, 1.29167, 1.29150, 1.29130, & - 1.29106, 1.29083, 1.29025, 1.28962, 1.28891, 1.28784, & - 1.28689, 1.28623, 1.28521, 1.28413, 1.28261, 1.28137, & - 1.28093, 1.28047, 1.28022, 1.27998, 1.27948, 1.27849/ - data (tabre(i),i=229,342)/ & - 1.27774, 1.27691, 1.27610, 1.27535, 1.27471, 1.27404, & - 1.27329, 1.27240, 1.27139, 1.27029, 1.26901, 1.26736, & - 1.26591, 1.26441, 1.26284, 1.26036, 1.25860, 1.25815, & - 1.25768, 1.25675, 1.25579, 1.25383, 1.25179, 1.24967, & - 1.24745, 1.24512, 1.24266, 1.24004, 1.23725, 1.23270, & - 1.22583, 1.22198, 1.21548, 1.21184, 1.20790, 1.20507, & - 1.20209, 1.19566, 1.17411, 1.14734, 1.10766, 1.06739, & - 1.04762, 1.02650, 1.00357, 0.98197, 0.96503, 0.95962, & - 0.97269, 0.99172, 1.00668, 1.02186, 1.04270, 1.07597, & - 1.12954, 1.21267, 1.32509, 1.42599, 1.49656, 1.55095, & - 1.59988, 1.63631, 1.65024, 1.64278, 1.62691, 1.61284, & - 1.59245, 1.57329, 1.55770, 1.54129, 1.52654, 1.51139, & - 1.49725, 1.48453, 1.47209, 1.46125, 1.45132, 1.44215, & - 1.43366, 1.41553, 1.39417, 1.38732, 1.37735, 1.36448, & - 1.35414, 1.34456, 1.33882, 1.33807, 1.33847, 1.34053, & - 1.34287, 1.34418, 1.34634, 1.34422, 1.33453, 1.32897, & - 1.32333, 1.31800, 1.31432, 1.30623, 1.29722, 1.28898, & - 1.28730, 1.28603, 1.28509, 1.28535, 1.28813, 1.30156, & - 1.30901, 1.31720, 1.31893, 1.32039, 1.32201, 1.32239/ - data (tabre(i),i=343,456)/ & - 1.32149, 1.32036, 1.31814, 1.31705, 1.31807, 1.31953, & - 1.31933, 1.31896, 1.31909, 1.31796, 1.31631, 1.31542, & - 1.31540, 1.31552, 1.31455, 1.31193, 1.30677, 1.29934, & - 1.29253, 1.28389, 1.27401, 1.26724, 1.25990, 1.24510, & - 1.22241, 1.19913, 1.17150, 1.15528, 1.13700, 1.11808, & - 1.10134, 1.09083, 1.08734, 1.09254, 1.10654, 1.14779, & - 1.20202, 1.25825, 1.32305, 1.38574, 1.44478, 1.47170, & - 1.49619, 1.51652, 1.53328, 1.54900, 1.56276, 1.57317, & - 1.58028, 1.57918, 1.56672, 1.55869, 1.55081, 1.53807, & - 1.53296, 1.53220, 1.53340, 1.53289, 1.51705, 1.50097, & - 1.49681, 1.49928, 1.50153, 1.49856, 1.49053, 1.46070, & - 1.45182, 1.44223, 1.43158, 1.41385, 1.40676, 1.38955, & - 1.34894, 1.31039, 1.26420, 1.23656, 1.21663, 1.20233, & - 1.19640, 1.19969, 1.20860, 1.22173, 1.24166, 1.28175, & - 1.32784, 1.38657, 1.46486, 1.55323, 1.60379, 1.61877, & - 1.62963, 1.65712, 1.69810, 1.72065, 1.74865, 1.76736, & - 1.76476, 1.75011, 1.72327, 1.68490, 1.62398, 1.59596, & - 1.58514, 1.59917, 1.61405, 1.66625, 1.70663, 1.73713, & - 1.76860, 1.80343, 1.83296, 1.85682, 1.87411, 1.89110/ - data (tabre(i),i=457,468)/ & - 1.89918, 1.90432, 1.90329, 1.88744, 1.87499, 1.86702, & - 1.85361, 1.84250, 1.83225, 1.81914, 1.82268, 1.82961/ - data (tabret(i,1),i=1,nwlt)/ & - 1.82961, 1.83258, 1.83149, & - 1.82748, 1.82224, 1.81718, 1.81204, 1.80704, 1.80250, & - 1.79834, 1.79482, 1.79214, 1.78843, 1.78601, 1.78434, & - 1.78322, 1.78248, 1.78201, 1.78170, 1.78160, 1.78190, & - 1.78300, 1.78430, 1.78520, 1.78620, 1.78660, 1.78680, & - 1.78690, 1.78700, 1.78700, 1.78710, 1.78710, 1.78720, & - 1.78720, 1.78720, 1.78720, 1.78720, 1.78720, 1.78720, & - 1.78720, 1.78720, 1.78720, 1.78720, 1.78720, 1.78720, & - 1.78720, 1.78720, 1.78720, 1.78720, 1.78720, 1.78720, & - 1.78720, 1.78720, 1.78720, 1.78720, 1.78720, 1.78720, & - 1.78720, 1.78720, 1.78720, 1.78720, 1.78800/ - data (tabret(i,2),i=1,nwlt)/ & - 1.82961, 1.83258, 1.83149, 1.82748, & - 1.82224, 1.81718, 1.81204, 1.80704, 1.80250, 1.79834, & - 1.79482, 1.79214, 1.78843, 1.78601, 1.78434, 1.78322, & - 1.78248, 1.78201, 1.78170, 1.78160, 1.78190, 1.78300, & - 1.78430, 1.78520, 1.78610, 1.78630, 1.78640, 1.78650, & - 1.78650, 1.78650, 1.78650, 1.78650, 1.78650, 1.78650, & - 1.78650, 1.78650, 1.78650, 1.78650, 1.78650, 1.78650, & - 1.78650, 1.78650, 1.78650, 1.78650, 1.78650, 1.78650, & - 1.78650, 1.78650, 1.78650, 1.78650, 1.78650, 1.78650, & - 1.78650, 1.78650, 1.78650, 1.78650, 1.78650, 1.78650, & - 1.78650, 1.78650, 1.78650, 1.78720/ - data(tabret(i,3),i=1,nwlt)/ & - 1.82961, 1.83258, 1.83149, 1.82748, 1.82224, & - 1.81718, 1.81204, 1.80704, 1.80250, 1.79834, 1.79482, & - 1.79214, 1.78843, 1.78601, 1.78434, 1.78322, 1.78248, & - 1.78201, 1.78160, 1.78140, 1.78160, 1.78220, 1.78310, & - 1.78380, 1.78390, 1.78400, 1.78400, 1.78400, 1.78400, & - 1.78400, 1.78390, 1.78380, 1.78370, 1.78370, 1.78370, & - 1.78370, 1.78370, 1.78370, 1.78370, 1.78370, 1.78370, & - 1.78370, 1.78370, 1.78370, 1.78370, 1.78370, 1.78370, & - 1.78370, 1.78370, 1.78370, 1.78370, 1.78370, 1.78370, & - 1.78370, 1.78370, 1.78370, 1.78370, 1.78370, 1.78370, & - 1.78370, 1.78400, 1.78450/ - data (tabret(i,4),i=1,nwlt)/ & - 1.82961, 1.83258, 1.83149, 1.82748, 1.82224, 1.81718, & - 1.81204, 1.80704, 1.80250, 1.79834, 1.79482, 1.79214, & - 1.78843, 1.78601, 1.78434, 1.78322, 1.78248, 1.78201, & - 1.78150, 1.78070, 1.78010, 1.77890, 1.77790, 1.77730, & - 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, & - 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, & - 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, & - 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, & - 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, & - 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, 1.77720, & - 1.77720, 1.77800/ - data(tabim(i),i=1,114)/ & - 0.1640e+00,0.1730e+00,0.1830e+00,0.1950e+00,0.2080e+00,0.2230e+00, & - 0.2400e+00,0.2500e+00,0.2590e+00,0.2680e+00,0.2790e+00,0.2970e+00, & - 0.3190e+00,0.3400e+00,0.3660e+00,0.3920e+00,0.4160e+00,0.4400e+00, & - 0.4640e+00,0.4920e+00,0.5170e+00,0.5280e+00,0.5330e+00,0.5340e+00, & - 0.5310e+00,0.5240e+00,0.5100e+00,0.5000e+00,0.4990e+00,0.4680e+00, & - 0.3800e+00,0.3600e+00,0.3390e+00,0.3180e+00,0.2910e+00,0.2510e+00, & - 0.2440e+00,0.2390e+00,0.2390e+00,0.2440e+00,0.2470e+00,0.2240e+00, & - 0.1950e+00,0.1740e+00,0.1720e+00,0.1800e+00,0.1940e+00,0.2130e+00, & - 0.2430e+00,0.2710e+00,0.2890e+00,0.3340e+00,0.3440e+00,0.3820e+00, & - 0.4010e+00,0.4065e+00,0.4050e+00,0.3890e+00,0.3770e+00,0.3450e+00, & - 0.3320e+00,0.3150e+00,0.2980e+00,0.2740e+00,0.2280e+00,0.1980e+00, & - 0.1720e+00,0.1560e+00,0.1100e+00,0.8300e-01,0.5800e-01,0.2200e-01, & - 0.1000e-01,0.3000e-02,0.1000e-02,0.3000e-03,0.1000e-03,0.3000e-04, & - 0.1000e-04,0.3000e-05,0.1000e-05,0.7000e-06,0.4000e-06,0.2000e-06, & - 0.1000e-06,0.6377e-07,0.3750e-07,0.2800e-07,0.2400e-07,0.2200e-07, & - 0.1900e-07,0.1750e-07,0.1640e-07,0.1590e-07,0.1325e-07,0.8623e-08, & - 0.5504e-08,0.3765e-08,0.2710e-08,0.2510e-08,0.2260e-08,0.2080e-08, & - 0.1910e-08,0.1540e-08,0.1530e-08,0.1550e-08,0.1640e-08,0.1780e-08, & - 0.1910e-08,0.2140e-08,0.2260e-08,0.2540e-08,0.2930e-08,0.3110e-08/ - data(tabim(i),i=115,228)/ & - 0.3290e-08,0.3520e-08,0.4040e-08,0.4880e-08,0.5730e-08,0.6890e-08, & - 0.8580e-08,0.1040e-07,0.1220e-07,0.1430e-07,0.1660e-07,0.1890e-07, & - 0.2090e-07,0.2400e-07,0.2900e-07,0.3440e-07,0.4030e-07,0.4300e-07, & - 0.4920e-07,0.5870e-07,0.7080e-07,0.8580e-07,0.1020e-06,0.1180e-06, & - 0.1340e-06,0.1400e-06,0.1430e-06,0.1450e-06,0.1510e-06,0.1830e-06, & - 0.2150e-06,0.2650e-06,0.3350e-06,0.3920e-06,0.4200e-06,0.4440e-06, & - 0.4740e-06,0.5110e-06,0.5530e-06,0.6020e-06,0.7550e-06,0.9260e-06, & - 0.1120e-05,0.1330e-05,0.1620e-05,0.2000e-05,0.2250e-05,0.2330e-05, & - 0.2330e-05,0.2170e-05,0.1960e-05,0.1810e-05,0.1740e-05,0.1730e-05, & - 0.1700e-05,0.1760e-05,0.1820e-05,0.2040e-05,0.2250e-05,0.2290e-05, & - 0.3040e-05,0.3840e-05,0.4770e-05,0.5760e-05,0.6710e-05,0.8660e-05, & - 0.1020e-04,0.1130e-04,0.1220e-04,0.1290e-04,0.1320e-04,0.1350e-04, & - 0.1330e-04,0.1320e-04,0.1320e-04,0.1310e-04,0.1320e-04,0.1320e-04, & - 0.1340e-04,0.1390e-04,0.1420e-04,0.1480e-04,0.1580e-04,0.1740e-04, & - 0.1980e-04,0.2500e-04,0.5400e-04,0.1040e-03,0.2030e-03,0.2708e-03, & - 0.3511e-03,0.4299e-03,0.5181e-03,0.5855e-03,0.5899e-03,0.5635e-03, & - 0.5480e-03,0.5266e-03,0.4394e-03,0.3701e-03,0.3372e-03,0.2410e-03, & - 0.1890e-03,0.1660e-03,0.1450e-03,0.1280e-03,0.1030e-03,0.8600e-04, & - 0.8220e-04,0.8030e-04,0.8500e-04,0.9900e-04,0.1500e-03,0.2950e-03/ - data(tabim(i),i=229,342)/ & - 0.4687e-03,0.7615e-03,0.1010e-02,0.1313e-02,0.1539e-02,0.1588e-02, & - 0.1540e-02,0.1412e-02,0.1244e-02,0.1068e-02,0.8414e-03,0.5650e-03, & - 0.4320e-03,0.3500e-03,0.2870e-03,0.2210e-03,0.2030e-03,0.2010e-03, & - 0.2030e-03,0.2140e-03,0.2320e-03,0.2890e-03,0.3810e-03,0.4620e-03, & - 0.5480e-03,0.6180e-03,0.6800e-03,0.7300e-03,0.7820e-03,0.8480e-03, & - 0.9250e-03,0.9200e-03,0.8920e-03,0.8700e-03,0.8900e-03,0.9300e-03, & - 0.1010e-02,0.1350e-02,0.3420e-02,0.7920e-02,0.2000e-01,0.3800e-01, & - 0.5200e-01,0.6800e-01,0.9230e-01,0.1270e+00,0.1690e+00,0.2210e+00, & - 0.2760e+00,0.3120e+00,0.3470e+00,0.3880e+00,0.4380e+00,0.4930e+00, & - 0.5540e+00,0.6120e+00,0.6250e+00,0.5930e+00,0.5390e+00,0.4910e+00, & - 0.4380e+00,0.3720e+00,0.3000e+00,0.2380e+00,0.1930e+00,0.1580e+00, & - 0.1210e+00,0.1030e+00,0.8360e-01,0.6680e-01,0.5400e-01,0.4220e-01, & - 0.3420e-01,0.2740e-01,0.2200e-01,0.1860e-01,0.1520e-01,0.1260e-01, & - 0.1060e-01,0.8020e-02,0.6850e-02,0.6600e-02,0.6960e-02,0.9160e-02, & - 0.1110e-01,0.1450e-01,0.2000e-01,0.2300e-01,0.2600e-01,0.2900e-01, & - 0.2930e-01,0.3000e-01,0.2850e-01,0.1730e-01,0.1290e-01,0.1200e-01, & - 0.1250e-01,0.1340e-01,0.1400e-01,0.1750e-01,0.2400e-01,0.3500e-01, & - 0.3800e-01,0.4200e-01,0.4600e-01,0.5200e-01,0.5700e-01,0.6900e-01, & - 0.7000e-01,0.6700e-01,0.6500e-01,0.6400e-01,0.6200e-01,0.5900e-01/ - data(tabim(i),i=343,456)/ & - 0.5700e-01,0.5600e-01,0.5500e-01,0.5700e-01,0.5800e-01,0.5700e-01, & - 0.5500e-01,0.5500e-01,0.5400e-01,0.5200e-01,0.5200e-01,0.5200e-01, & - 0.5200e-01,0.5000e-01,0.4700e-01,0.4300e-01,0.3900e-01,0.3700e-01, & - 0.3900e-01,0.4000e-01,0.4200e-01,0.4400e-01,0.4500e-01,0.4600e-01, & - 0.4700e-01,0.5100e-01,0.6500e-01,0.7500e-01,0.8800e-01,0.1080e+00, & - 0.1340e+00,0.1680e+00,0.2040e+00,0.2480e+00,0.2800e+00,0.3410e+00, & - 0.3790e+00,0.4090e+00,0.4220e+00,0.4220e+00,0.4030e+00,0.3890e+00, & - 0.3740e+00,0.3540e+00,0.3350e+00,0.3150e+00,0.2940e+00,0.2710e+00, & - 0.2460e+00,0.1980e+00,0.1640e+00,0.1520e+00,0.1420e+00,0.1280e+00, & - 0.1250e+00,0.1230e+00,0.1160e+00,0.1070e+00,0.7900e-01,0.7200e-01, & - 0.7600e-01,0.7500e-01,0.6700e-01,0.5500e-01,0.4500e-01,0.2900e-01, & - 0.2750e-01,0.2700e-01,0.2730e-01,0.2890e-01,0.3000e-01,0.3400e-01, & - 0.5300e-01,0.7550e-01,0.1060e+00,0.1350e+00,0.1761e+00,0.2229e+00, & - 0.2746e+00,0.3280e+00,0.3906e+00,0.4642e+00,0.5247e+00,0.5731e+00, & - 0.6362e+00,0.6839e+00,0.7091e+00,0.6790e+00,0.6250e+00,0.5654e+00, & - 0.5433e+00,0.5292e+00,0.5070e+00,0.4883e+00,0.4707e+00,0.4203e+00, & - 0.3771e+00,0.3376e+00,0.3056e+00,0.2835e+00,0.3170e+00,0.3517e+00, & - 0.3902e+00,0.4509e+00,0.4671e+00,0.4779e+00,0.4890e+00,0.4899e+00, & - 0.4873e+00,0.4766e+00,0.4508e+00,0.4193e+00,0.3880e+00,0.3433e+00/ - data(tabim(i),i=457,468)/ & - 0.3118e+00,0.2935e+00,0.2350e+00,0.1981e+00,0.1865e+00,0.1771e+00, & - 0.1620e+00,0.1490e+00,0.1390e+00,0.1200e+00,0.9620e-01,0.8300e-01/ - data(tabimt(i,1),i=1,nwlt)/ & - 0.8300e-01,0.6900e-01,0.5700e-01, & - 0.4560e-01,0.3790e-01,0.3140e-01,0.2620e-01,0.2240e-01,0.1960e-01, & - 0.1760e-01,0.1665e-01,0.1620e-01,0.1550e-01,0.1470e-01,0.1390e-01, & - 0.1320e-01,0.1250e-01,0.1180e-01,0.1060e-01,0.9540e-02,0.8560e-02, & - 0.6210e-02,0.4490e-02,0.3240e-02,0.2340e-02,0.1880e-02,0.1740e-02, & - 0.1500e-02,0.1320e-02,0.1160e-02,0.8800e-03,0.6950e-03,0.4640e-03, & - 0.3400e-03,0.3110e-03,0.2940e-03,0.2790e-03,0.2700e-03,0.2640e-03, & - 0.2580e-03,0.2520e-03,0.2490e-03,0.2540e-03,0.2640e-03,0.2740e-03, & - 0.2890e-03,0.3050e-03,0.3150e-03,0.3460e-03,0.3820e-03,0.4620e-03, & - 0.5000e-03,0.5500e-03,0.5950e-03,0.6470e-03,0.6920e-03,0.7420e-03, & - 0.8200e-03,0.9700e-03,0.1950e-02,0.5780e-02,0.9700e-02/ - data(tabimt(i,2),i=1,nwlt)/ & - 0.8300e-01,0.6900e-01,0.5700e-01,0.4560e-01, & - 0.3790e-01,0.3140e-01,0.2620e-01,0.2240e-01,0.1960e-01,0.1760e-01, & - 0.1665e-01,0.1600e-01,0.1500e-01,0.1400e-01,0.1310e-01,0.1230e-01, & - 0.1150e-01,0.1080e-01,0.9460e-02,0.8290e-02,0.7270e-02,0.4910e-02, & - 0.3300e-02,0.2220e-02,0.1490e-02,0.1140e-02,0.1060e-02,0.9480e-03, & - 0.8500e-03,0.7660e-03,0.6300e-03,0.5200e-03,0.3840e-03,0.2960e-03, & - 0.2700e-03,0.2520e-03,0.2440e-03,0.2360e-03,0.2300e-03,0.2280e-03, & - 0.2250e-03,0.2200e-03,0.2160e-03,0.2170e-03,0.2200e-03,0.2250e-03, & - 0.2320e-03,0.2390e-03,0.2600e-03,0.2860e-03,0.3560e-03,0.3830e-03, & - 0.4150e-03,0.4450e-03,0.4760e-03,0.5080e-03,0.5400e-03,0.5860e-03, & - 0.6780e-03,0.1280e-02,0.3550e-02,0.5600e-02/ - data(tabimt(i,3),i=1,nwlt)/ & - 0.8300e-01,0.6900e-01,0.5700e-01,0.4560e-01,0.3790e-01, & - 0.3140e-01,0.2620e-01,0.2190e-01,0.1880e-01,0.1660e-01,0.1540e-01, & - 0.1470e-01,0.1350e-01,0.1250e-01,0.1150e-01,0.1060e-01,0.9770e-02, & - 0.9010e-02,0.7660e-02,0.6520e-02,0.5540e-02,0.3420e-02,0.2100e-02, & - 0.1290e-02,0.7930e-03,0.5700e-03,0.5350e-03,0.4820e-03,0.4380e-03, & - 0.4080e-03,0.3500e-03,0.3200e-03,0.2550e-03,0.2120e-03,0.2000e-03, & - 0.1860e-03,0.1750e-03,0.1660e-03,0.1560e-03,0.1490e-03,0.1440e-03, & - 0.1350e-03,0.1210e-03,0.1160e-03,0.1160e-03,0.1170e-03,0.1200e-03, & - 0.1230e-03,0.1320e-03,0.1440e-03,0.1680e-03,0.1800e-03,0.1900e-03, & - 0.2090e-03,0.2160e-03,0.2290e-03,0.2400e-03,0.2600e-03,0.2920e-03, & - 0.6100e-03,0.1020e-02,0.1810e-02/ - data(tabimt(i,4),i=1,nwlt)/ & - 0.8300e-01,0.6900e-01,0.5700e-01,0.4450e-01,0.3550e-01,0.2910e-01, & - 0.2440e-01,0.1970e-01,0.1670e-01,0.1400e-01,0.1235e-01,0.1080e-01, & - 0.8900e-02,0.7340e-02,0.6400e-02,0.5600e-02,0.5000e-02,0.4520e-02, & - 0.3680e-02,0.2990e-02,0.2490e-02,0.1550e-02,0.9610e-03,0.5950e-03, & - 0.3690e-03,0.2670e-03,0.2510e-03,0.2290e-03,0.2110e-03,0.1960e-03, & - 0.1730e-03,0.1550e-03,0.1310e-03,0.1130e-03,0.1060e-03,0.9900e-04, & - 0.9300e-04,0.8730e-04,0.8300e-04,0.7870e-04,0.7500e-04,0.6830e-04, & - 0.5600e-04,0.4960e-04,0.4550e-04,0.4210e-04,0.3910e-04,0.3760e-04, & - 0.3400e-04,0.3100e-04,0.2640e-04,0.2510e-04,0.2430e-04,0.2390e-04, & - 0.2370e-04,0.2380e-04,0.2400e-04,0.2460e-04,0.2660e-04,0.4450e-04, & - 0.8700e-04,0.1320e-03/ - - pi = acos(-1.0) - n_r=0.0 - n_i=0.0 - -! // convert frequency to wavelength (um) - alam=3E5/freq - if((alam < wlmin) .or. (alam > wlmax)) then - print *, 'm_ice: wavelength out of bounds' - stop - endif - -! // convert temperature to K - tk = t + 273.16 - - if (alam < cutice) then - -! // region from 0.045 microns to 167.0 microns - no temperature depend - do i=2,nwl - if(alam < wl(i)) continue - enddo - x1=log(wl(i-1)) - x2=log(wl(i)) - y1=tabre(i-1) - y2=tabre(i) - x=log(alam) - y=((x-x1)*(y2-y1)/(x2-x1))+y1 - n_r=y - y1=log(abs(tabim(i-1))) - y2=log(abs(tabim(i))) - y=((x-x1)*(y2-y1)/(x2-x1))+y1 - n_i=exp(y) - - else - -! // region from 167.0 microns to 8.6 meters - temperature dependence - if(tk > temref(1)) tk=temref(1) - if(tk < temref(4)) tk=temref(4) - do 11 i=2,4 - if(tk.ge.temref(i)) go to 12 - 11 continue - 12 lt1=i - lt2=i-1 - do 13 i=2,nwlt - if(alam.le.wlt(i)) go to 14 - 13 continue - 14 x1=log(wlt(i-1)) - x2=log(wlt(i)) - y1=tabret(i-1,lt1) - y2=tabret(i,lt1) - x=log(alam) - ylo=((x-x1)*(y2-y1)/(x2-x1))+y1 - y1=tabret(i-1,lt2) - y2=tabret(i,lt2) - yhi=((x-x1)*(y2-y1)/(x2-x1))+y1 - t1=temref(lt1) - t2=temref(lt2) - y=((tk-t1)*(yhi-ylo)/(t2-t1))+ylo - n_r=y - y1=log(abs(tabimt(i-1,lt1))) - y2=log(abs(tabimt(i,lt1))) - ylo=((x-x1)*(y2-y1)/(x2-x1))+y1 - y1=log(abs(tabimt(i-1,lt2))) - y2=log(abs(tabimt(i,lt2))) - yhi=((x-x1)*(y2-y1)/(x2-x1))+y1 - y=((tk-t1)*(yhi-ylo)/(t2-t1))+ylo - n_i=exp(y) - - endif - - end subroutine m_ice - -! ---------------------------------------------------------------------------- -! subroutine MIEINT -! ---------------------------------------------------------------------------- -! -! General purpose Mie scattering routine for single particles -! Author: R Grainger 1990 -! History: -! G Thomas, March 2005: Added calculation of Phase function and -! code to ensure correct calculation of backscatter coeficient -! Options/Extend_Source -! - Subroutine MieInt(Dx, SCm, Inp, Dqv, Dqxt, Dqsc, Dbsc, Dg, Xs1, Xs2, DPh, Error) - - Integer * 2 Imaxx - Parameter (Imaxx = 12000) - Real * 4 RIMax ! largest real part of refractive index - Parameter (RIMax = 2.5) - Real * 4 IRIMax ! largest imaginary part of refractive index - Parameter (IRIMax = -2) - Integer * 2 Itermax - Parameter (Itermax = 12000 * 2.5) - ! must be large enough to cope with the - ! largest possible nmx = x * abs(scm) + 15 - ! or nmx = Dx + 4.05*Dx**(1./3.) + 2.0 - Integer * 2 Imaxnp - Parameter (Imaxnp = 10000) ! Change this as required -! INPUT - Real * 8 Dx - Complex * 16 SCm - Integer * 4 Inp - Real * 8 Dqv(Inp) -! OUTPUT - Complex * 16 Xs1(InP) - Complex * 16 Xs2(InP) - Real * 8 Dqxt - Real * 8 Dqsc - Real * 8 Dg - Real * 8 Dbsc - Real * 8 DPh(InP) - Integer * 4 Error -! LOCAL - Integer * 2 I - Integer * 2 NStop - Integer * 2 NmX - Integer * 4 N ! N*N > 32767 ie N > 181 - Integer * 4 Inp2 - Real * 8 Chi,Chi0,Chi1 - Real * 8 APsi,APsi0,APsi1 - Real * 8 Pi0(Imaxnp) - Real * 8 Pi1(Imaxnp) - Real * 8 Taun(Imaxnp) - Real * 8 Psi,Psi0,Psi1 - Complex * 8 Ir - Complex * 16 Cm - Complex * 16 A,ANM1,APB - Complex * 16 B,BNM1,AMB - Complex * 16 D(Itermax) - Complex * 16 Sp(Imaxnp) - Complex * 16 Sm(Imaxnp) - Complex * 16 Xi,Xi0,Xi1 - Complex * 16 Y -! ACCELERATOR VARIABLES - Integer * 2 Tnp1 - Integer * 2 Tnm1 - Real * 8 Dn - Real * 8 Rnx - Real * 8 S(Imaxnp) - Real * 8 T(Imaxnp) - Real * 8 Turbo - Real * 8 A2 - Complex * 16 A1 - - If ((Dx.Gt.Imaxx) .Or. (InP.Gt.ImaxNP)) Then - Error = 1 - Return - EndIf - Cm = SCm - Ir = 1 / Cm - Y = Dx * Cm - If (Dx.Lt.0.02) Then - NStop = 2 - Else - If (Dx.Le.8.0) Then - NStop = Dx + 4.00*Dx**(1./3.) + 2.0 - Else - If (Dx.Lt. 4200.0) Then - NStop = Dx + 4.05*Dx**(1./3.) + 2.0 - Else - NStop = Dx + 4.00*Dx**(1./3.) + 2.0 - End If - End If - End If - NmX = Max(Real(NStop),Real(Abs(Y))) + 15. - If (Nmx .gt. Itermax) then - Error = 1 - Return - End If - Inp2 = Inp+1 - D(NmX) = Dcmplx(0,0) - Do N = Nmx-1,1,-1 - A1 = (N+1) / Y - D(N) = A1 - 1/(A1+D(N+1)) - End Do - Do I =1,Inp2 - Sm(I) = Dcmplx(0,0) - Sp(I) = Dcmplx(0,0) - Pi0(I) = 0 - Pi1(I) = 1 - End Do - Psi0 = Cos(Dx) - Psi1 = Sin(Dx) - Chi0 =-Sin(Dx) - Chi1 = Cos(Dx) - APsi0 = Psi0 - APsi1 = Psi1 - Xi0 = Dcmplx(APsi0,Chi0) - Xi1 = Dcmplx(APsi1,Chi1) - Dg = 0 - Dqsc = 0 - Dqxt = 0 - Tnp1 = 1 - Do N = 1,Nstop - DN = N - Tnp1 = Tnp1 + 2 - Tnm1 = Tnp1 - 2 - A2 = Tnp1 / (DN*(DN+1D0)) - Turbo = (DN+1D0) / DN - Rnx = DN/Dx - Psi = Dble(Tnm1)*Psi1/Dx - Psi0 - APsi = Psi - Chi = Tnm1*Chi1/Dx - Chi0 - Xi = Dcmplx(APsi,Chi) - A = ((D(N)*Ir+Rnx)*APsi-APsi1) / ((D(N)*Ir+Rnx)* Xi- Xi1) - B = ((D(N)*Cm+Rnx)*APsi-APsi1) / ((D(N)*Cm+Rnx)* Xi- Xi1) - Dqxt = Tnp1 * Dble(A + B) + Dqxt - Dqsc = Tnp1 * (A*Conjg(A) + B*Conjg(B)) + Dqsc - If (N.Gt.1) then - Dg = Dg + (dN*dN - 1) * Dble(ANM1*Conjg(A) + BNM1 * Conjg(B)) / dN + TNM1 * Dble(ANM1*Conjg(BNM1)) / (dN*dN - dN) - End If - Anm1 = A - Bnm1 = B - APB = A2 * (A + B) - AMB = A2 * (A - B) - Do I = 1,Inp2 - If (I.GT.Inp) Then - S(I) = -Pi1(I) - Else - S(I) = Dqv(I) * Pi1(I) - End If - T(I) = S(I) - Pi0(I) - Taun(I) = N*T(I) - Pi0(I) - Sp(I) = APB * (Pi1(I) + Taun(I)) + Sp(I) - Sm(I) = AMB * (Pi1(I) - Taun(I)) + Sm(I) - Pi0(I) = Pi1(I) - Pi1(I) = S(I) + T(I)*Turbo - End Do - Psi0 = Psi1 - Psi1 = Psi - Apsi1 = Psi1 - Chi0 = Chi1 - Chi1 = Chi - Xi1 = Dcmplx(APsi1,Chi1) - End Do - If (Dg .GT.0) Dg = 2 * Dg / Dqsc - Dqsc = 2 * Dqsc / Dx**2 - Dqxt = 2 * Dqxt / Dx**2 - Do I = 1,Inp - Xs1(I) = (Sp(I)+Sm(I)) / 2 - Xs2(I) = (Sp(I)-Sm(I)) / 2 - Dph(I) = 2 * Dble(Xs1(I)*Conjg(Xs1(I)) + Xs2(I)*Conjg(Xs2(I))) / (Dx**2 * Dqsc) - End Do - Dbsc = 4 * Abs(( (Sp(Inp2)+Sm(Inp2))/2 )**2) / Dx**2 - Error = 0 - Return - End subroutine MieInt - - end module optics_lib \ No newline at end of file diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/radar_simulator.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/radar_simulator.f90 deleted file mode 100644 index 7fd3fcc3c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/radar_simulator.f90 +++ /dev/null @@ -1,510 +0,0 @@ - subroutine radar_simulator(freq,k2,do_ray,use_gas_abs,use_mie_table,mt, & - nhclass,hp,nprof,ngate,nsizes,D,hgt_matrix,hm_matrix,re_matrix,p_matrix,t_matrix, & - rh_matrix,Ze_non,Ze_ray,h_atten_to_vol,g_atten_to_vol,dBZe, & - g_to_vol_in,g_to_vol_out) - -! rh_matrix,Ze_non,Ze_ray,kr_matrix,g_atten_to_vol,dBZe) - - use m_mrgrnk - use array_lib - use math_lib - use optics_lib - use radar_simulator_types - implicit none - -! Purpose: -! Simulates a vertical profile of radar reflectivity -! Part of QuickBeam v1.04 by John Haynes & Roger Marchand -! -! Inputs: -! [freq] radar frequency (GHz), can be anything unless -! use_mie_table=1, in which case one of 94,35,13.8,9.6,3 -! [k2] |K|^2, the dielectric constant, set to -1 to use the -! frequency dependent default -! [do_ray] 1=do Rayleigh calcs, 0=not -! [use_gas_abs] 1=do gaseous abs calcs, 0=not, -! 2=use same as first profile (undocumented) -! [use_mie_table] 1=use Mie tables, 0=not -! [mt] Mie look up table -! [nhclass] number of hydrometeor types -! [hp] structure that defines hydrometeor types -! [nprof] number of hydrometeor profiles -! [ngate] number of vertical layers -! [nsizes] number of discrete particles in [D] -! [D] array of discrete particles (um) -! -! (The following 5 arrays must be in order from closest to the radar -! to farthest...) -! [hgt_matrix] height of hydrometeors (km) -! [hm_matrix] table of hydrometeor mixing rations (g/kg) -! [re_matrix] OPTIONAL table of hydrometeor effective radii (microns) -! [p_matrix] pressure profile (hPa) -! [t_matrix] temperature profile (C) -! [rh_matrix] relative humidity profile (%) -! -! Outputs: -! [Ze_non] radar reflectivity without attenuation (dBZ) -! [Ze_ray] Rayleigh reflectivity (dBZ) -! [h_atten_to_vol] attenuation by hydromets, radar to vol (dB) -! [g_atten_to_vol] gaseous atteunation, radar to vol (dB) -! [dBZe] effective radar reflectivity factor (dBZ) -! -! Optional: -! [g_to_vol_in] integrated atten due to gases, r>v (dB). -! If present then is used as gaseous absorption, independently of the -! value in use_gas_abs -! [g_to_vol_out] integrated atten due to gases, r>v (dB). -! If present then gaseous absorption for each profile is returned here. -! -! Created: -! 11/28/2005 John Haynes (haynes@atmos.colostate.edu) -! Modified: -! 09/2006 placed into subroutine form, scaling factors (Roger Marchand,JMH) -! 08/2007 added equivalent volume spheres, Z and N scalling most distrubtion types (Roger Marchand) -! 01/2008 'Do while' to determine if hydrometeor(s) present in volume -! changed for vectorization purposes (A. Bodas-Salcedo) - -! ----- INPUTS ----- - type(mie), intent(in) :: mt - type(class_param), intent(inout) :: hp - real*8, intent(in) :: freq,k2 - integer, intent(in) :: do_ray,use_gas_abs,use_mie_table, & - nhclass,nprof,ngate,nsizes - real*8, dimension(nsizes), intent(in) :: D - real*8, dimension(nprof,ngate), intent(in) :: hgt_matrix, p_matrix, & - t_matrix,rh_matrix - real*8, dimension(nhclass,nprof,ngate), intent(in) :: hm_matrix - real*8, dimension(nhclass,nprof,ngate), intent(inout) :: re_matrix - -! ----- OUTPUTS ----- - real*8, dimension(nprof,ngate), intent(out) :: Ze_non,Ze_ray, & - g_atten_to_vol,dBZe,h_atten_to_vol - -! ----- OPTIONAL ----- - real*8, optional, dimension(ngate,nprof) :: & - g_to_vol_in,g_to_vol_out ! integrated atten due to gases, r>v (dB). This allows to output and then input - ! the same gaseous absorption in different calls. Optional to allow compatibility - ! with original version. A. Bodas April 2008. - -! real*8, dimension(nprof,ngate) :: kr_matrix - -! ----- INTERNAL ----- - integer :: & - phase, & ! 0=liquid, 1=ice - ns ! number of discrete drop sizes - - integer*4, dimension(ngate) :: & - hydro ! 1=hydrometeor in vol, 0=none - real*8 :: & - rho_a, & ! air density (kg m^-3) - gases ! function: 2-way gas atten (dB/km) - - real*8, dimension(:), allocatable :: & - Di, Deq, & ! discrete drop sizes (um) - Ni, Ntemp, & ! discrete concentrations (cm^-3 um^-1) - rhoi ! discrete densities (kg m^-3) - - real*8, dimension(ngate) :: & - z_vol, & ! effective reflectivity factor (mm^6/m^3) - z_ray, & ! reflectivity factor, Rayleigh only (mm^6/m^3) - kr_vol, & ! attenuation coefficient hydro (dB/km) - g_vol, & ! attenuation coefficient gases (dB/km) - a_to_vol, & ! integrated atten due to hydometeors, r>v (dB) - g_to_vol ! integrated atten due to gases, r>v (dB) - - - integer,parameter :: KR8 = selected_real_kind(15,300) - real*8, parameter :: xx = -1.0_KR8 - real*8, dimension(:), allocatable :: xxa - real*8 :: kr, ze, zr, pi, scale_factor, Re, ld, tmp1, apm,bpm - integer*4 :: tp, i, j, k, pr, itt, iff - - real*8 bin_length,step,base,step_list(25),base_list(25) - integer*4 iRe_type,n,max_bin - - logical :: g_to_vol_in_present, g_to_vol_out_present - - ! Logicals to avoid calling present within the loops - g_to_vol_in_present = present(g_to_vol_in) - g_to_vol_out_present = present(g_to_vol_out) - - ! set up Re bins for z_scalling - bin_length=50; - max_bin=25 - - step_list(1)=1 - base_list(1)=75 - do j=2,max_bin - step_list(j)=3*(j-1); - if(step_list(j)>bin_length) then - step_list(j)=bin_length; - endif - base_list(j)=base_list(j-1)+floor(bin_length/step_list(j-1)); - enddo - - - pi = acos(-1.0) - if (use_mie_table == 1) iff = infind(mt%freq,freq,sort=1) - - - ! // loop over each profile (nprof) - do pr=1,nprof -! ----- calculations for each volume ----- - z_vol(:) = 0 - z_ray(:) = 0 - kr_vol(:) = 0 - hydro(:) = 0 - -! // loop over eacho range gate (ngate) - do k=1,ngate - -! :: determine if hydrometeor(s) present in volume - hydro(k) = 0 - do j=1,nhclass ! Do while changed for vectorization purposes (A. B-S) - if ((hm_matrix(j,pr,k) > 1E-12) .and. (hp%dtype(j) > 0)) then - hydro(k) = 1 - exit - endif - enddo - - if (hydro(k) == 1) then -! :: if there is hydrometeor in the volume - - rho_a = (p_matrix(pr,k)*100.)/(287*(t_matrix(pr,k)+273.15)) - -! :: loop over hydrometeor type - do tp=1,nhclass - - if (hm_matrix(tp,pr,k) <= 1E-12) cycle - - phase = hp%phase(tp) - if(phase==0) then - itt = infind(mt_ttl,t_matrix(pr,k)) - else - itt = infind(mt_tti,t_matrix(pr,k)) - endif - - ! calculate Re if we have an exponential distribution with fixed No ... precipitation type particle - if( hp%dtype(tp)==2 .and. abs(hp%p2(tp)+1) < 1E-8) then - - apm=hp%apm(tp) - bpm=hp%bpm(tp) - - if ((hp%rho(tp) > 0) .and. (apm < 0)) then - apm = (pi/6)*hp%rho(tp) - bpm = 3. - endif - - tmp1 = 1./(1.+bpm) - ld = ((apm*gamma(1.+bpm)*hp%p1(tp))/(rho_a*hm_matrix(tp,pr,k)*1E-3))**tmp1 - - Re = 1.5E6/ld - - re_matrix(tp,pr,k) = Re; - - endif - - if(re_matrix(tp,pr,k).eq.0) then - - iRe_type=1 - Re=0 - else - iRe_type=1 - Re=re_matrix(tp,pr,k) - - n=floor(Re/bin_length) - if(n==0) then - if(Re<25) then - step=0.5 - base=0 - else - step=1 - base=25 - endif - else - if(n>max_bin) then - n=max_bin - endif - - step=step_list(n) - base=base_list(n) - endif - - iRe_type=floor(Re/step) - - if(iRe_type.lt.1) then - iRe_type=1 - endif - - Re=step*(iRe_type+0.5) - iRe_type=iRe_type+base-floor(n*bin_length/step) - - ! make sure iRe_type is within bounds - if(iRe_type.ge.nRe_types) then - - ! print *, tp, re_matrix(tp,pr,k), Re, iRe_type - - ! no scaling allowed - Re=re_matrix(tp,pr,k) - - iRe_type=nRe_types - hp%z_flag(tp,itt,iRe_type)=.false. - hp%scaled(tp,iRe_type)=.false. - endif - endif - - ! use Ze_scaled, Zr_scaled, and kr_scaled ... if know them - ! if not we will calculate Ze, Zr, and Kr from the distribution parameters - if( .not. hp%z_flag(tp,itt,iRe_type) ) then - -! :: create a distribution of hydrometeors within volume - select case(hp%dtype(tp)) - case(4) - ns = 1 - allocate(Di(ns),Ni(ns),rhoi(ns),xxa(ns),Deq(ns)) - if (use_mie_table == 1) allocate(mt_qext(ns),mt_qbsca(ns),Ntemp(ns)) - Di = hp%p1(tp) - Ni = 0. - case default - ns = nsizes - allocate(Di(ns),Ni(ns),rhoi(ns),xxa(ns),Deq(ns)) - if (use_mie_table == 1) allocate(mt_qext(ns),mt_qbsca(ns),Ntemp(ns)) - Di = D - Ni = 0. - end select - -! :: create a DSD (using scaling factor if applicable) -! hp%scaled(tp,iRe_type)=.false. ! turn off N scaling - - call dsd(hm_matrix(tp,pr,k),Re,Di,Ni,ns,hp%dtype(tp),rho_a, & - t_matrix(pr,k),hp%dmin(tp),hp%dmax(tp),hp%apm(tp),hp%bpm(tp), & - hp%rho(tp),hp%p1(tp),hp%p2(tp),hp%p3(tp),hp%fc(tp,1:ns,iRe_type), & - hp%scaled(tp,iRe_type)) - -! :: calculate particle density - ! if ((hp%rho_eff(tp,1,iRe_type) < 0) .and. (phase == 1)) then - if (phase == 1) then - if (hp%rho(tp) < 0) then - - ! MG Mie approach - adjust density of sphere with D = D_characteristic to match particle density - ! hp%rho_eff(tp,1:ns,iRe_type) = (6/pi)*hp%apm(tp)*(Di*1E-6)**(hp%bpm(tp)-3) !MG Mie approach - - ! as the particle size gets small it is possible that the mass to size relationship of - ! (given by power law in hclass.data) can produce impossible results - ! where the mass is larger than a solid sphere of ice. - ! This loop ensures that no ice particle can have more mass/density larger than an ice sphere. - ! do i=1,ns - ! if(hp%rho_eff(tp,i,iRe_type) > 917 ) then - ! hp%rho_eff(tp,i,iRe_type) = 917 - !endif - !enddo - - ! alternative is to use equivalent volume spheres. - hp%rho_eff(tp,1:ns,iRe_type) = 917 ! solid ice == equivalent volume approach - Deq = ( ( 6/pi*hp%apm(tp)/917 ) ** (1.0/3.0) ) * & - ( (Di*1E-6) ** (hp%bpm(tp)/3.0) ) * 1E6 ! Di now really Deq in microns. - - else - - ! hp%rho_eff(tp,1:ns,iRe_type) = hp%rho(tp) !MG Mie approach - - ! Equivalent volume sphere (solid ice rho_ice=917 kg/m^3). - hp%rho_eff(tp,1:ns,iRe_type) = 917 - Deq=Di * ((hp%rho(tp)/917)**(1.0/3.0)) - - endif - - ! if using equivalent volume spheres - if (use_mie_table == 1) then - - Ntemp=Ni - - ! Find N(Di) from N(Deq) which we know - do i=1,ns - j=infind(Deq,Di(i)) - Ni(i)=Ntemp(j) - enddo - else - ! just use Deq and D variable input to mie code - Di=Deq; - endif - - endif - rhoi = hp%rho_eff(tp,1:ns,iRe_type) - -! :: calculate effective reflectivity factor of volume - if (use_mie_table == 1) then - - if ((hp%dtype(tp) == 4) .and. (hp%idd(tp) < 0)) then - hp%idd(tp) = infind(mt%D,Di(1)) - endif - - if (phase == 0) then - - ! itt = infind(mt_ttl,t_matrix(pr,k)) - select case(hp%dtype(tp)) - case(4) - mt_qext(1) = mt%qext(hp%idd(tp),itt,1,iff) - mt_qbsca(1) = mt%qbsca(hp%idd(tp),itt,1,iff) - case default - mt_qext = mt%qext(:,itt,1,iff) - mt_qbsca = mt%qbsca(:,itt,1,iff) - end select - - call zeff(freq,Di,Ni,ns,k2,mt_ttl(itt),0,do_ray, & - ze,zr,kr,mt_qext,mt_qbsca,xx) - - else - - ! itt = infind(mt_tti,t_matrix(pr,k)) - select case(hp%dtype(tp)) - case(4) - if (hp%ifc(tp,1,iRe_type) < 0) then - hp%ifc(tp,1,iRe_type) = infind(mt%f,rhoi(1)/917.) - endif - mt_qext(1) = & - mt%qext(hp%idd(tp),itt+cnt_liq,hp%ifc(tp,1,iRe_type),iff) - mt_qbsca(1) = & - mt%qbsca(hp%idd(tp),itt+cnt_liq,hp%ifc(tp,1,iRe_type),iff) - case default - do i=1,ns - if (hp%ifc(tp,i,iRe_type) < 0) then - hp%ifc(tp,i,iRe_type) = infind(mt%f,rhoi(i)/917.) - endif - mt_qext(i) = mt%qext(i,itt+cnt_liq,hp%ifc(tp,i,iRe_type),iff) - mt_qbsca(i) = mt%qbsca(i,itt+cnt_liq,hp%ifc(tp,i,iRe_type),iff) - enddo - end select - - call zeff(freq,Di,Ni,ns,k2,mt_tti(itt),1,do_ray, & - ze,zr,kr,mt_qext,mt_qbsca,xx) - - endif - - else - - xxa = -9.9 - call zeff(freq,Di,Ni,ns,k2,t_matrix(pr,k),phase,do_ray, & - ze,zr,kr,xxa,xxa,rhoi) - - - endif ! end of use mie table - - ! xxa = -9.9 - !call zeff(freq,Di,Ni,ns,k2,t_matrix(pr,k),phase,do_ray, & - ! ze2,zr,kr2,xxa,xxa,rhoi) - - ! if(abs(ze2-ze)/ze2 > 0.1) then - ! if(abs(kr2-kr)/kr2 > 0.1) then - - ! write(*,*) pr,k,tp,ze2,ze2-ze,abs(ze2-ze)/ze2,itt+cnt_liq,iff - ! write(*,*) pr,k,tp,ze2,kr2,kr2-kr,abs(kr2-kr)/kr2 - ! stop - - !endif - - deallocate(Di,Ni,rhoi,xxa,Deq) - if (use_mie_table == 1) deallocate(mt_qext,mt_qbsca,Ntemp) - - else ! can use z scaling - - if( hp%dtype(tp)==2 .and. abs(hp%p2(tp)+1) < 1E-8 ) then - - ze = hp%Ze_scaled(tp,itt,iRe_type) - zr = hp%Zr_scaled(tp,itt,iRe_type) - kr = hp%kr_scaled(tp,itt,iRe_type) - - else - scale_factor=rho_a*hm_matrix(tp,pr,k) - - zr = hp%Zr_scaled(tp,itt,iRe_type) * scale_factor - ze = hp%Ze_scaled(tp,itt,iRe_type) * scale_factor - kr = hp%kr_scaled(tp,itt,iRe_type) * scale_factor - endif - - endif ! end z_scaling - - ! kr=0 - - kr_vol(k) = kr_vol(k) + kr - z_vol(k) = z_vol(k) + ze - z_ray(k) = z_ray(k) + zr - - ! construct Ze_scaled, Zr_scaled, and kr_scaled ... if we can - if( .not. hp%z_flag(tp,itt,iRe_type) .and. 1.eq.1 ) then - - if( ( (hp%dtype(tp)==1 .or. hp%dtype(tp)==5 .or. hp%dtype(tp)==2) .and. abs(hp%p1(tp)+1) < 1E-8 ) .or. & - ( hp%dtype(tp)==3 .or. hp%dtype(tp)==4 ) & - ) then - - scale_factor=rho_a*hm_matrix(tp,pr,k) - - hp%Ze_scaled(tp,itt,iRe_type) = ze/ scale_factor - hp%Zr_scaled(tp,itt,iRe_type) = zr/ scale_factor - hp%kr_scaled(tp,itt,iRe_type) = kr/ scale_factor - - hp%z_flag(tp,itt,iRe_type)=.True. - - elseif( hp%dtype(tp)==2 .and. abs(hp%p2(tp)+1) < 1E-8 ) then - - hp%Ze_scaled(tp,itt,iRe_type) = ze - hp%Zr_scaled(tp,itt,iRe_type) = zr - hp%kr_scaled(tp,itt,iRe_type) = kr - - hp%z_flag(tp,itt,iRe_type)=.True. - endif - - endif - - enddo ! end loop of tp (hydrometeor type) - - else -! :: volume is hydrometeor-free - - kr_vol(k) = 0 - z_vol(k) = -999 - z_ray(k) = -999 - - endif - -! :: attenuation due to hydrometeors between radar and volume - a_to_vol(k) = 2*path_integral(kr_vol,hgt_matrix(pr,:),1,k-1) - -! :: attenuation due to gaseous absorption between radar and volume - if (g_to_vol_in_present) then - g_to_vol(k) = g_to_vol_in(k,pr) - else - if ( (use_gas_abs == 1) .or. ((use_gas_abs == 2) .and. (pr == 1)) ) then - g_vol(k) = gases(p_matrix(pr,k),t_matrix(pr,k)+273.15, & - rh_matrix(pr,k),freq) - g_to_vol(k) = path_integral(g_vol,hgt_matrix(pr,:),1,k-1) - elseif (use_gas_abs == 0) then - g_to_vol(k) = 0 - endif - endif - -! kr_matrix(pr,:)=kr_vol - -! :: store results in matrix for return to calling program - h_atten_to_vol(pr,k)=a_to_vol(k) - g_atten_to_vol(pr,k)=g_to_vol(k) - if ((do_ray == 1) .and. (z_ray(k) > 0)) then - Ze_ray(pr,k) = 10*log10(z_ray(k)) - else - Ze_ray(pr,k) = -999 - endif - if (z_vol(k) > 0) then - dBZe(pr,k) = 10*log10(z_vol(k))-a_to_vol(k)-g_to_vol(k) - Ze_non(pr,k) = 10*log10(z_vol(k)) - else - dBZe(pr,k) = -999 - Ze_non(pr,k) = -999 - endif - - enddo ! end loop of k (range gate) - ! Output array with gaseous absorption - if (g_to_vol_out_present) g_to_vol_out(:,pr) = g_to_vol - enddo ! end loop over pr (profile) - - end subroutine radar_simulator - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/radar_simulator_types.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/radar_simulator_types.f90 deleted file mode 100644 index fa743b204..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/radar_simulator_types.f90 +++ /dev/null @@ -1,55 +0,0 @@ - module radar_simulator_types - -! Collection of common variables and types -! Part of QuickBeam v1.03 by John Haynes -! http://reef.atmos.colostate.edu/haynes/radarsim - - integer, parameter :: & - maxhclass = 20 ,& ! max number of hydrometeor classes - nd = 85 ,& ! number of discrete particles - nRe_types = 250 ! number or Re size bins allowed in N and Z_scaled look up table - - real*8, parameter :: & - dmin = 0.1 ,& ! min size of discrete particle - dmax = 10000. ! max size of discrete particle - - integer, parameter :: & - mt_nfreq = 5 , & - mt_ntt = 39 , & ! num temperatures in table - mt_nf = 14 , & ! number of ice fractions in table - mt_nd = 85 ! num discrete mode-p drop sizes in table - - -! ---- hydrometeor class type ----- - - type class_param - real*8, dimension(maxhclass) :: p1,p2,p3,dmin,dmax,apm,bpm,rho - integer, dimension(maxhclass) :: dtype,col,cp,phase - logical, dimension(maxhclass,nRe_types) :: scaled - logical, dimension(maxhclass,mt_ntt,nRe_types) :: z_flag - real*8, dimension(maxhclass,mt_ntt,nRe_types) :: Ze_scaled,Zr_scaled,kr_scaled - real*8, dimension(maxhclass,nd,nRe_types) :: fc, rho_eff - integer, dimension(maxhclass,nd,nRe_types) :: ifc - integer, dimension(maxhclass) :: idd - end type class_param - -! ----- mie table structure ----- - - type mie - real*8 :: freq(mt_nfreq), tt(mt_ntt), f(mt_nf), D(mt_nd) - real*8, dimension(mt_nd,mt_ntt,mt_nf,mt_nfreq) :: qext, qbsca - integer :: phase(mt_ntt) - end type mie - - real*8, dimension(:), allocatable :: & - mt_qext, mt_qbsca ! extincion/backscatter efficiency - - real*8 :: & - mt_ttl(20), & ! liquid temperatures (C) - mt_tti(19) ! ice temperatures (C) - - integer*4 :: & - cnt_liq, & ! liquid temperature count - cnt_ice ! ice temperature count - - end module radar_simulator_types diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/zeff.f90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/zeff.f90 deleted file mode 100644 index 23690cb22..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/zeff.f90 +++ /dev/null @@ -1,161 +0,0 @@ - subroutine zeff(freq,D,N,nsizes,k2,tt,ice,xr,z_eff,z_ray,kr,qe,qs,rho_e) - use math_lib - use optics_lib - implicit none - -! Purpose: -! Simulates radar return of a volume given DSD of spheres -! Part of QuickBeam v1.03 by John Haynes -! http://reef.atmos.colostate.edu/haynes/radarsim -! -! Inputs: -! [freq] radar frequency (GHz) -! [D] discrete drop sizes (um) -! [N] discrete concentrations (cm^-3 um^-1) -! [nsizes] number of discrete drop sizes -! [k2] |K|^2, -1=use frequency dependent default -! [tt] hydrometeor temperature (C) -! [ice] indicates volume consists of ice -! [xr] perform Rayleigh calculations? -! [qe] if using a mie table, these contain ext/sca ... -! [qs] ... efficiencies; otherwise set to -1 -! [rho_e] medium effective density (kg m^-3) (-1 = pure) -! -! Outputs: -! [z_eff] unattenuated effective reflectivity factor (mm^6/m^3) -! [z_ray] reflectivity factor, Rayleigh only (mm^6/m^3) -! [kr] attenuation coefficient (db km^-1) -! -! Created: -! 11/28/05 John Haynes (haynes@atmos.colostate.edu) - -! ----- INPUTS ----- - integer, intent(in) :: ice, xr - integer, intent(in) :: nsizes - real*8, intent(in) :: freq,D(nsizes),N(nsizes),tt,qe(nsizes), & - qs(nsizes), rho_e(nsizes) - real*8, intent(inout) :: k2 - -! ----- OUTPUTS ----- - real*8, intent(out) :: z_eff,z_ray,kr - -! ----- INTERNAL ----- - integer :: & - correct_for_rho ! correct for density flag - real*8, dimension(nsizes) :: & - D0, & ! D in (m) - N0, & ! N in m^-3 m^-1 - sizep, & ! size parameter - qext, & ! extinction efficiency - qbsca, & ! backscatter efficiency - rho_ice, & ! bulk density ice (kg m^-3) - f ! ice fraction - real*8 :: & - wl, & ! wavelength (m) - cr ! kr(dB/km) = cr * kr(1/km) - complex*16 :: & - m ! complex index of refraction of bulk form - complex*16, dimension(nsizes) :: & - m0 ! complex index of refraction - - integer*4 :: i,one - real*8 :: pi - real*8 :: eta_sum, eta_mie, const, z0_eff, z0_ray, k_sum, & - n_r, n_i, dqv(1), dqsc, dg, dph(1) - integer*4 :: err - complex*16 :: Xs1(1), Xs2(1) - - one=1 - pi = acos(-1.0) - rho_ice(:) = 917 - z0_ray = 0.0 - -! // conversions - D0 = d*1E-6 ! m - N0 = n*1E12 ! 1/(m^3 m) - wl = 2.99792458/(freq*10) ! m - -! // dielectric constant |k^2| defaults - if (k2 < 0) then - k2 = 0.933 - if (abs(94.-freq) < 3.) k2=0.75 - if (abs(35.-freq) < 3.) k2=0.88 - if (abs(13.8-freq) < 3.) k2=0.925 - endif - - if (qe(1) < -9) then - -! // get the refractive index of the bulk hydrometeors - if (ice == 0) then - call m_wat(freq,tt,n_r,n_i) - else - call m_ice(freq,tt,n_r,n_i) - endif - m = cmplx(n_r,-n_i) - m0(:) = m - - correct_for_rho = 0 - if ((ice == 1) .and. (minval(rho_e) >= 0)) correct_for_rho = 1 - -! :: correct refractive index for ice density if needed - if (correct_for_rho == 1) then - f = rho_e/rho_ice - m0 = ((2+m0**2+2*f*(m0**2-1))/(2+m0**2+f*(1-m0**2)))**(0.5) - endif - -! :: Mie calculations - sizep = (pi*D0)/wl - dqv(1) = 0. - do i=1,nsizes - call mieint(sizep(i), m0(i), one, dqv, qext(i), dqsc, qbsca(i), & - dg, xs1, xs2, dph, err) - end do - - else -! // Mie table used - - qext = qe - qbsca = qs - - endif - -! // eta_mie = 0.25*sum[qbsca*pi*D^2*N(D)*deltaD] -! <--------- eta_sum ---------> -! // z0_eff = (wl^4/!pi^5)*(1./k2)*eta_mie - eta_sum = 0. - if (size(D0) == 1) then - eta_sum = qbsca(1)*(n(1)*1E6)*D0(1)**2 - else - call avint(qbsca*N0*D0**2,D0,nsizes,D0(1),D0(size(D0,1)),eta_sum) - endif - - eta_mie = eta_sum*0.25*pi - const = (wl**4/pi**5)*(1./k2) - z0_eff = const*eta_mie - -! // kr = 0.25*cr*sum[qext*pi*D^2*N(D)*deltaD] -! <---------- k_sum ---------> - k_sum = 0. - if (size(D0) == 1) then - k_sum = qext(1)*(n(1)*1E6)*D0(1)**2 - else - call avint(qext*N0*D0**2,D0,nsizes,D0(1),D0(size(D0,1)),k_sum) - endif - cr = 10./log(10.) - kr = k_sum*0.25*pi*(1000.*cr) - -! // z_ray = sum[D^6*N(D)*deltaD] - if (xr == 1) then - z0_ray = 0. - if (size(D0) == 1) then - z0_ray = (n(1)*1E6)*D0(1)**6 - else - call avint(N0*D0**6,D0,nsizes,D0(1),D0(size(D0)),z0_ray) - endif - endif - -! // convert to mm^6/m^3 - z_eff = z0_eff*1E18 ! 10.*alog10(z0_eff*1E18) - z_ray = z0_ray*1E18 ! 10.*alog10(z0_ray*1E18) - - end subroutine zeff diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/scops.f b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/scops.f deleted file mode 100644 index 8ad0b2b09..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/scops.f +++ /dev/null @@ -1,335 +0,0 @@ - subroutine scops(npoints,nlev,ncol,seed,cc,conv, - & overlap,frac_out,ncolprint) - - -! *****************************COPYRIGHT**************************** -! (c) British Crown Copyright 2009, the Met Office. -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the -! following conditions are met: -! -! * Redistributions of source code must retain the above -! copyright notice, this list of conditions and the following -! disclaimer. -! * Redistributions in binary form must reproduce the above -! copyright notice, this list of conditions and the following -! disclaimer in the documentation and/or other materials -! provided with the distribution. -! * Neither the name of the Met Office nor the names of its -! contributors may be used to endorse or promote products -! derived from this software without specific prior written -! permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT -! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR -! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT -! OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, -! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT -! LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -! THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE -! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -! -! *****************************COPYRIGHT******************************* -! *****************************COPYRIGHT******************************* -! *****************************COPYRIGHT******************************* - - implicit none - - INTEGER npoints ! number of model points in the horizontal - INTEGER nlev ! number of model levels in column - INTEGER ncol ! number of subcolumns - - - INTEGER overlap ! overlap type - ! 1=max - ! 2=rand - ! 3=max/rand - REAL cc(npoints,nlev) - ! input cloud cover in each model level (fraction) - ! NOTE: This is the HORIZONTAL area of each - ! grid box covered by clouds - - REAL conv(npoints,nlev) - ! input convective cloud cover in each model - ! level (fraction) - ! NOTE: This is the HORIZONTAL area of each - ! grid box covered by convective clouds - - INTEGER i,j,ilev,ibox,ncolprint,ilev2 - - REAL frac_out(npoints,ncol,nlev) ! boxes gridbox divided up into - ! Equivalent of BOX in original version, but - ! indexed by column then row, rather than - ! by row then column - - - INTEGER seed(npoints) - ! seed values for marsaglia random number generator - ! It is recommended that the seed is set - ! to a different value for each model - ! gridbox it is called on, as it is - ! possible that the choice of the same - ! seed value every time may introduce some - ! statistical bias in the results, particularly - ! for low values of NCOL. - - REAL tca(npoints,0:nlev) ! total cloud cover in each model level (fraction) - ! with extra layer of zeroes on top - ! in this version this just contains the values input - ! from cc but with an extra level - - REAL threshold(npoints,ncol) ! pointer to position in gridbox - REAL maxocc(npoints,ncol) ! Flag for max overlapped conv cld - REAL maxosc(npoints,ncol) ! Flag for max overlapped strat cld - - REAL boxpos(npoints,ncol) ! ordered pointer to position in gridbox - - REAL threshold_min(npoints,ncol) ! minimum value to define range in with new threshold - ! is chosen - - REAL ran(npoints) ! vector of random numbers - - INTEGER irand,i2_16,huge32,overflow_32 ! variables for RNG - PARAMETER(huge32=2147483647) - i2_16=65536 - - do ibox=1,ncol - do j=1,npoints - boxpos(j,ibox)=(ibox-.5)/ncol - enddo - enddo - -! ---------------------------------------------------! -! Initialise working variables -! ---------------------------------------------------! - -! Initialised frac_out to zero - - do ilev=1,nlev - do ibox=1,ncol - do j=1,npoints - frac_out(j,ibox,ilev)=0.0 - enddo - enddo - enddo - -! assign 2d tca array using 1d input array cc - - do j=1,npoints - tca(j,0)=0 - enddo - - do ilev=1,nlev - do j=1,npoints - tca(j,ilev)=cc(j,ilev) - enddo - enddo - - if (ncolprint.ne.0) then - write (6,'(a)') 'frac_out_pp_rev:' - do j=1,npoints,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write (6,'(8f5.2)') - & ((frac_out(j,ibox,ilev),ibox=1,ncolprint),ilev=1,nlev) - - enddo - write (6,'(a)') 'ncol:' - write (6,'(I3)') ncol - endif - if (ncolprint.ne.0) then - write (6,'(a)') 'last_frac_pp:' - do j=1,npoints,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write (6,'(8f5.2)') (tca(j,0)) - enddo - endif - -! ---------------------------------------------------! -! ALLOCATE CLOUD INTO BOXES, FOR NCOLUMNS, NLEVELS -! frac_out is the array that contains the information -! where 0 is no cloud, 1 is a stratiform cloud and 2 is a -! convective cloud - - !loop over vertical levels - DO 200 ilev = 1,nlev - -! Initialise threshold - - IF (ilev.eq.1) then - ! If max overlap - IF (overlap.eq.1) then - ! select pixels spread evenly - ! across the gridbox - DO ibox=1,ncol - do j=1,npoints - threshold(j,ibox)=boxpos(j,ibox) - enddo - enddo - ELSE - DO ibox=1,ncol - include 'congvec.f' - ! select random pixels from the non-convective - ! part the gridbox ( some will be converted into - ! convective pixels below ) - do j=1,npoints - threshold(j,ibox)= - & conv(j,ilev)+(1-conv(j,ilev))*ran(j) - enddo - enddo - ENDIF - IF (ncolprint.ne.0) then - write (6,'(a)') 'threshold_nsf2:' - do j=1,npoints,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write (6,'(8f5.2)') (threshold(j,ibox),ibox=1,ncolprint) - enddo - ENDIF - ENDIF - - IF (ncolprint.ne.0) then - write (6,'(a)') 'ilev:' - write (6,'(I2)') ilev - ENDIF - - DO ibox=1,ncol - - ! All versions - do j=1,npoints - if (boxpos(j,ibox).le.conv(j,ilev)) then - maxocc(j,ibox) = 1 - else - maxocc(j,ibox) = 0 - end if - enddo - - ! Max overlap - if (overlap.eq.1) then - do j=1,npoints - threshold_min(j,ibox)=conv(j,ilev) - maxosc(j,ibox)=1 - enddo - endif - - ! Random overlap - if (overlap.eq.2) then - do j=1,npoints - threshold_min(j,ibox)=conv(j,ilev) - maxosc(j,ibox)=0 - enddo - endif - - ! Max/Random overlap - if (overlap.eq.3) then - do j=1,npoints - threshold_min(j,ibox)=max(conv(j,ilev), - & min(tca(j,ilev-1),tca(j,ilev))) - if (threshold(j,ibox) - & .lt.min(tca(j,ilev-1),tca(j,ilev)) - & .and.(threshold(j,ibox).gt.conv(j,ilev))) then - maxosc(j,ibox)= 1 - else - maxosc(j,ibox)= 0 - end if - enddo - endif - - ! Reset threshold - - include 'congvec.f' - - do j=1,npoints - threshold(j,ibox)= - !if max overlapped conv cloud - & maxocc(j,ibox) * ( - & boxpos(j,ibox) - & ) + - !else - & (1-maxocc(j,ibox)) * ( - !if max overlapped strat cloud - & (maxosc(j,ibox)) * ( - !threshold=boxpos - & threshold(j,ibox) - & ) + - !else - & (1-maxosc(j,ibox)) * ( - !threshold_min=random[thrmin,1] - & threshold_min(j,ibox)+ - & (1-threshold_min(j,ibox))*ran(j) - & ) - & ) - enddo - - ENDDO ! ibox - -! Fill frac_out with 1's where tca is greater than the threshold - - DO ibox=1,ncol - do j=1,npoints - if (tca(j,ilev).gt.threshold(j,ibox)) then - frac_out(j,ibox,ilev)=1 - else - frac_out(j,ibox,ilev)=0 - end if - enddo - ENDDO - -! Code to partition boxes into startiform and convective parts -! goes here - - DO ibox=1,ncol - do j=1,npoints - if (threshold(j,ibox).le.conv(j,ilev)) then - ! = 2 IF threshold le conv(j) - frac_out(j,ibox,ilev) = 2 - else - ! = the same IF NOT threshold le conv(j) - frac_out(j,ibox,ilev) = frac_out(j,ibox,ilev) - end if - enddo - ENDDO - -! Set last_frac to tca at this level, so as to be tca -! from last level next time round - - if (ncolprint.ne.0) then - - do j=1,npoints ,1000 - write(6,'(a10)') 'j=' - write(6,'(8I10)') j - write (6,'(a)') 'last_frac:' - write (6,'(8f5.2)') (tca(j,ilev-1)) - - write (6,'(a)') 'conv:' - write (6,'(8f5.2)') (conv(j,ilev),ibox=1,ncolprint) - - write (6,'(a)') 'max_overlap_cc:' - write (6,'(8f5.2)') (maxocc(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'max_overlap_sc:' - write (6,'(8f5.2)') (maxosc(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'threshold_min_nsf2:' - write (6,'(8f5.2)') (threshold_min(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'threshold_nsf2:' - write (6,'(8f5.2)') (threshold(j,ibox),ibox=1,ncolprint) - - write (6,'(a)') 'frac_out_pp_rev:' - write (6,'(8f5.2)') - & ((frac_out(j,ibox,ilev2),ibox=1,ncolprint),ilev2=1,nlev) - enddo - endif - -200 CONTINUE !loop over nlev - - - end - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/CMakeLists.txt deleted file mode 100644 index b04af6d43..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/CMakeLists.txt +++ /dev/null @@ -1,16 +0,0 @@ -esma_set_this() - -set (srcs - soradconstants.F90 - sorad.F90 - GEOS_SolarGridComp.F90 - ) - -esma_add_library (${this} - SRCS ${srcs} - SUBDIRS RRTMG - DEPENDENCIES MAPL GEOS_Shared GEOS_RadiationShared RRTMG_SW RRTMG_SW_mods RRTMGP) - -if(MKL_FOUND) - target_compile_definitions(${this} PRIVATE HAVE_MKL) -endif () diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/GEOS_SolarGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/GEOS_SolarGridComp.F90 deleted file mode 100644 index 3ec3bf427..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/GEOS_SolarGridComp.F90 +++ /dev/null @@ -1,5292 +0,0 @@ -! $Id$ - -#include "MAPL_Generic.h" - -module GEOS_SolarGridCompMod - -!============================================================================= -!BOP - -! !MODULE: GEOS_SolarGridCompMod -- Computes solar radiation fluxes in a cloudy atmosphere - -! /* -! !DESCRIPTION: -! -! {\tt GEOS\_SolarGridCompMod} is an ESMF/MAPL gridded component that performs -! a broadband calculation of shortwave radiative fluxes for use as a -! solar radiation parameterization in atmospheric models on a sphere. \newline -! -! {\em Scientific Basis:} The radiative transfer calculation is based on M-D Chou shortwave -! parameterization. The basic reference for the scheme is: -! Chou and Suarez 1999: A Solar Radiation Parameterization for Atmospheric Studies, -! NASA-TM-1999-104606, Vol 15. An updated version of this report can be -! found in SolarDoc.pdf in this directory. \newline -! -! The parameterization treats direct and diffuse fluxes of solar -! radiation in eight spectral bands: -! \begin{verbatim} -! in the uv region : -! index 1 for the 0.225-0.285 micron band -! index 2 for the 0.175-0.225;0.285-0.300 micron band -! index 3 for the 0.300-0.325 micron band -! index 4 for the 0.325-0.4 micron band -! in the par region : -! index 5 for the 0.4-0.690 micron band -! in the infrared region : -! index 6 for the 0.690-1.220 micron band -! index 7 for the 1.220-2.270 micron band -! index 8 for the 2.270-3.850 micron band -! \end{verbatim} -! It includes gaseous absorption due to water vapor, ozone, CO$_2$, and -! molecular oxygen and the effects of molecular scattering, -! as well as multiple scattering due to clouds and aerosols. -! -! It allows clouds to occur in any layer and -! horizontal cloud cover fractions must be specified -! for all layers; clear layers -! simply have a fraction of zero. Vertically, the layers are -! assumed to be filled by cloud. To simplify the treatment of -! cloud effects, the model layers, -! are grouped into three super layers. Effective cloud properties are then -! parameterized by assuming that clouds are maximally overlapped within the super layers -! and randomly overlapped between the super layers. The -! optical properties of cloud particles depend on the liquid, ice, and rain mixing ratios, -! as well as on spatially dependent effective radii for the three species. -! These are all inputs to the component. \newline -! -! The parameterization can include the effects of an arbitrary -! number of aerosol species. -! Aerosol optical thickness, single-scattering albedo, and asymmetry -! factor must be determined as functions of height and spectral band -! for each species. \newline -! -! -! {\em Code Implementation:} \newline -! -! {\tt GEOS\_SolarGridCompMod} is an encapsulation of Chou's plug-compatible -! SORAD Fortran routine in a MAPL/ESMF gridded component (GC). -! It follows the standard rules for an ESMF/MAPL GCs. -! It operates on the ESMF grid that appears in the -! gridded component. This grid must -! be present in the GC and properly initialized before Initialize -! is called. The only restrictions on the grid are that it be 3-dimensional -! with two horizontal and one vertical dimension and -! with only the horizontal dimensions decomposed. The vertical dimension -! is also assumed to the the thrid dimension of the Fortran arrays and -! is indexed from the top down. No particular vertical coordinate is assumed, -! rather the 3-dimensional field of air pressure at the layer interfaces is -! a required Import. \newline -! -! This module contains only SetServices and Run methods. -! The Initialize and Finalize methods -! being defaulted to the MAPL\_Generic versions. -! The SetServices method is the only public -! entity. There are no public types or data. \newline -! -! The contents of the Import, Export, and Internal States are explicitly -! described in SetServices and in tables in this documentation. -! All quantities in these states are in either ESMF Fields or Bundles, -! and all share a common grid---the ESMF grid in the gridded component -! at the time Initialize (MAPL\_GenericInitialize, in this case) was called. -! All outputs appearing in the Export state are optional and are -! filled only if they have been allocated. All filled Exports are valid -! for the time interval on the GC's clock when the run method is invoked. -! Imports can be from either an instantaneous or a time-averaged state of the -! atmosphere. All Imports are read-only; none are Friendly. -! Most imports are simple ESMF Fields containing 2- or -! 3-dimensional quantities, such as temperature and humidity, needed in -! the flux calculation. Non-cloud aerosol amounts are the exception; they -! appear in an ESMF Bundle. \newline -! -! The net (+ve downward) fluxes on the Export state are defined at the layer -! interfaces, which are indexed from the top of the atmosphere (L=0) -! to the surface. Incident fluxes -! at the surface also appear in the Export state; these are separated -! into direct (beam) and diffuse fluxes for three spectral bands -! (uv, par, nir), as defined in the table above. \newline -! -! The full transfer calculation is done infrequently and -! its results kept in the Internal state. -! The frequency of full calculations is controlled -! by an alarm whose interval can be set -! from a value in the configuration and whose origin is taken as the -! beginning of the run. -! For the full calculations, solar fluxes are computed based on -! mean zenith angles averaged over sun positions for a -! given period (the long interval, which can be specified in -! the configuration) beyond the -! current time on the input clock. On every call to the Run method, -! whatever the state of the alarm that controls the full calculation, -! the sun's position -! is updated to the mean position for the clock's current interval -! and fluxes are updated based on normalized fluxes computed during -! the previous full transfer calculation, but using -! the TOA insolation for the current time on the clock. Because of this -! intermittent scheme, checkpoint-restart sequences are seamless -! only when interrupted at the time of the full calculation.\newline -! -! The calculation relies in MAPL's Astronomy layer, which in turn -! assumes that the ESMF grid can be queried for latitude and longitude -! coordinates. \newline -! -! {\em Configuration:} \newline -! -! Like all MAPL GCs, {\tt GEOS\_SolarGridCompMod} assumes that the configuration -! in the ESMF GC is open and treats it as an environment from which it can -! {\em at any time} read control information. It uses MAPL rules for scanning this -! configuration. -!\begin{verbatim} -! -!VARIABLE DESCRIPTION UNITS DEFAULT NOTES -! -!RUN_DT: Short time interval (seconds) none -!DT: Long time interval (seconds) RUN_DT -!AVGR: Averaging interval (seconds) DT -!PRS_LOW_MID_CLOUDS: Interface pressure (Pa) 70000. -! between the low and -! middle cloud layers -!PRS_MID_HIGH_CLOUDS: Interface pressure (Pa) 40000. -! between the high and -! middle cloud layers -!SOLAR_CONSTANT: (W m-2) none Use -1 for time-dependent values -!CO2: CO2 concentration (ppmv) none Use -1 for time-dependent values -! -!\end{verbatim} -! -! -! !BUGS: -! -!\end{verbatim} -!\begin{itemize} -! \item Aerosol properties for each aerosol in the Bundle are obtained by -! calling a global method (Get\_AeroOptProp) that must recognize -! the aerosol by its Field name in the Bundle. This is a placeholder -! for a scheme in which each Field carries with it a method for computing -! its aerosol's optical properties. -! -! \item The grid must have two horizontal dimensions and they must be the inner dimensions -! of Fortran arrays. -! -! \item The load-balancing relies on the grid describing a sphere. Everything -! works for non-spherical grids but the load-balancing should be disabled -! and this can be done only by going into the code. -!\end{itemize} -! \begin{verbatim} -! -! */ - -! !USES: - - use ESMF - use MAPL - - ! for RRTMGP - use mo_gas_optics_rrtmgp, only: ty_gas_optics_rrtmgp - -#ifdef _CUDA - use cudafor - ! NOTE: USE renames are used below to prevent name clashes with - ! CUDA copies to the GPU. - use sorad_constants, only: & - ZK_UV_CONST=>ZK_UV, WK_UV_CONST=>WK_UV, RY_UV_CONST=>RY_UV, & - XK_IR_CONST=>XK_IR, RY_IR_CONST=>RY_IR, & - COA_CONST=>COA, CAH_CONST=>CAH - use rad_constants, only: & - AIB_UV_CONST=>AIB_UV, AWB_UV_CONST=>AWB_UV, ARB_UV_CONST=>ARB_UV, & - AIG_UV_CONST=>AIG_UV, AWG_UV_CONST=>AWG_UV, ARG_UV_CONST=>ARG_UV, & - AIB_NIR_CONST=>AIB_NIR, AWB_NIR_CONST=>AWB_NIR, ARB_NIR_CONST=>ARB_NIR, & - AIA_NIR_CONST=>AIA_NIR, AWA_NIR_CONST=>AWA_NIR, ARA_NIR_CONST=>ARA_NIR, & - AIG_NIR_CONST=>AIG_NIR, AWG_NIR_CONST=>AWG_NIR, ARG_NIR_CONST=>ARG_NIR, & - CAIB_CONST=>CAIB, CAIF_CONST=>CAIF - use soradmod, only: & - ! Subroutines - SORAD, & - ! Device Inputs - COSZ_DEV, PL_DEV, TA_DEV, WA_DEV, OA_DEV, CWC_DEV, FCLD_DEV, REFF_DEV, & - RSUVBM_DEV, RSUVDF_DEV, RSIRBM_DEV, RSIRDF_DEV, & - ! Aerosol inputs - TAUA_DEV, SSAA_DEV, ASYA_DEV, & - ! Constants in Global Memory - COA, CAH, CAIB, CAIF, & - ! Device Outputs - FLX_DEV, FLC_DEV, FLXU_DEV, FLCU_DEV, & - FDIRUV_DEV, FDIFUV_DEV, FDIRPAR_DEV, FDIFPAR_DEV, FDIRIR_DEV, FDIFIR_DEV, & - FLX_SFC_BAND_DEV, & - ! Constants - ZK_UV, WK_UV, RY_UV, AIB_UV, AWB_UV, ARB_UV, & - AIG_UV, AWG_UV, ARG_UV, XK_IR, RY_IR, AIB_NIR, & - AWB_NIR, ARB_NIR, AIA_NIR, AWA_NIR, ARA_NIR, AIG_NIR, & - AWG_NIR, ARG_NIR, HK_UV, HK_IR - -#else - use soradmod, only: SORAD -#endif - use sorad_constants, only : HK_IR_OLD, HK_UV_OLD - use gettau, only: getvistau - - use rrtmg_sw_rad - use rrtmg_sw_init, only: rrtmg_sw_ini - use parrrsw, only: ngptsw - - implicit none - private - -! !PUBLIC MEMBER FUNCTIONS: - - public SetServices - -! !GLOBAL PARAMETERS - INTEGER, PARAMETER :: NB_CHOU_UV = 5 ! Number of UV bands - INTEGER, PARAMETER :: NB_CHOU_NIR = 3 ! Number of near-IR bands - INTEGER, PARAMETER :: NB_CHOU = NB_CHOU_UV + NB_CHOU_NIR ! Total number of bands - INTEGER, PARAMETER :: NB_RRTMG = 14 - INTEGER, PARAMETER :: NB_RRTMGP = 14 - -#define PACKIT 1 -#define UNPACKIT 2 - -!EOP - - ! RRTMGP internal state - ! This will be attached to the Gridded Component - ! used to provide efficient initialization - type ty_RRTMGP_state - private - logical :: initialized = .false. - type (ty_gas_optics_rrtmgp) :: k_dist - end type ty_RRTMGP_state - - ! wrapper to access RRTMGP internal state - type ty_RRTMGP_wrap - type (ty_RRTMGP_state), pointer :: ptr => null() - end type ty_RRTMGP_wrap - -contains - -!BOP - -! !IROUTINE: SetServices -- Sets ESMF services for this component - -! !INTERFACE: - - subroutine SetServices ( GC, RC ) - -! !ARGUMENTS: - - type(ESMF_GridComp), intent(INOUT) :: GC ! gridded component - integer, optional :: RC ! return code - -! !DESCRIPTION: This version uses the MAPL\_GenericSetServices. This function sets -! the Initialize and Finalize services, as well as allocating -! our instance of a MAPL\_MetaComp and putting it in the -! gridded component (GC). Here we only need to register the Run method with ESMF and -! register the state variable specifications with MAPL. \newline -! - -!EOP - -!============================================================================= - -! ErrLog Variables - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - character(len=ESMF_MAXSTR) :: COMP_NAME - -! Local derived type aliases - - type (ESMF_Config ) :: CF - -! Locals - - integer :: RUN_DT - integer :: MY_STEP - integer :: ACCUMINT - real :: DT - - logical :: USE_RRTMGP, USE_RRTMG, USE_CHOU - real :: RFLAG - integer :: NUM_BANDS_SOLAR - - type (ty_RRTMGP_state), pointer :: rrtmgp_state => null() - type (ty_RRTMGP_wrap) :: wrap - -!============================================================================= - -! Begin... - -! Get my name and set-up traceback handle -! --------------------------------------- - - call ESMF_GridCompGet(GC, NAME=COMP_NAME, __RC__) - Iam = trim(COMP_NAME) // 'SetServices' - - ! save pointer to the wrapped RRTMGP internal state in the GC - allocate(rrtmgp_state, __STAT__) - wrap%ptr => rrtmgp_state - call ESMF_UserCompSetInternalState(GC, 'RRTMGP_state', wrap, status) - VERIFY_(status) - -! Get the configuration -! --------------------- - - call ESMF_GridCompGet(GC, CONFIG=CF, __RC__) - -! Get the intervals; "heartbeat" must exist -! ----------------------------------------- - - call ESMF_ConfigGetAttribute(CF, DT, Label="RUN_DT:", __RC__) - RUN_DT = nint(DT) - -! Refresh interval defaults to heartbeat. -! --------------------------------------- - - call ESMF_ConfigGetAttribute(CF, DT, Label=trim(COMP_NAME)//"_DT:", default=DT, __RC__) - MY_STEP = nint(DT) - -! Averaging interval defaults to refresh interval. -!------------------------------------------------- - - call ESMF_ConfigGetAttribute(CF, DT, Label=trim(COMP_NAME)//'Avrg:', default=DT, __RC__) - ACCUMINT = nint(DT) - -! Decide which radiation to use -! RRTMGP dominates RRTMG dominates Chou-Suarez -! Chou-Suarez is the default if nothing else asked for in Resource file -! Needed in SetServices because we Export a per-band flux and the -! number of bands differs between codes. -!---------------------------------------------------------------------- - - USE_RRTMGP = .false. - USE_RRTMG = .false. - USE_CHOU = .false. - call ESMF_ConfigGetAttribute(CF, RFLAG, LABEL='USE_RRTMGP_SORAD:', DEFAULT=0., __RC__) - USE_RRTMGP = RFLAG /= 0.0 - if (.not. USE_RRTMGP) then - call ESMF_ConfigGetAttribute(CF, RFLAG, LABEL='USE_RRTMG_SORAD:', DEFAULT=0., __RC__) - USE_RRTMG = RFLAG /= 0.0 - USE_CHOU = .not.USE_RRTMG - end if - - ! Set number of solar bands - if (USE_RRTMGP) then - NUM_BANDS_SOLAR = NB_RRTMGP - else if (USE_RRTMG) then - NUM_BANDS_SOLAR = NB_RRTMG - else - NUM_BANDS_SOLAR = NB_CHOU - end if - -! Set the state variable specs. -! ----------------------------- - -!BOS - -! !IMPORT STATE: - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'air_pressure', & - UNITS = 'Pa', & - SHORT_NAME = 'PLE', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'surface_skin_temperature', & - UNITS = 'K', & - SHORT_NAME = 'TS', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'methane_concentration', & - UNITS = 'pppv', & - SHORT_NAME = 'CH4', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'nitrous_oxide_concentration', & - UNITS = 'pppv', & - SHORT_NAME = 'N2O', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'air_temperature', & - UNITS = 'K', & - SHORT_NAME = 'T', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'specific_humidity', & - UNITS = 'kg kg-1', & - SHORT_NAME = 'QV', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'mass_fraction_of_cloud_liquid_water_in_air', & - UNITS = 'kg kg-1', & - SHORT_NAME = 'QL', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'mass_fraction_of_cloud_ice_in_air', & - UNITS = 'kg kg-1', & - SHORT_NAME = 'QI', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'mass_fraction_of_rain_water_in_air', & - UNITS = 'kg kg-1', & - SHORT_NAME = 'QR', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'mass_fraction_of_snow_in_air', & - UNITS = 'kg kg-1', & - SHORT_NAME = 'QS', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'effective_radius_of_cloud_liquid_water_particles', & - UNITS = 'm', & - SHORT_NAME = 'RL', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'effective_radius_of_cloud_ice_particles', & - UNITS = 'm', & - SHORT_NAME = 'RI', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'effective_radius_of_rain_particles', & - UNITS = 'm', & - SHORT_NAME = 'RR', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'effective_radius_of_snow_particles', & - UNITS = 'm', & - SHORT_NAME = 'RS', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'odd-oxygen_volume_mixing_ratio', & - UNITS = 'mol mol-1', & - SHORT_NAME = 'OX', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'cloud_area_fraction', & - UNITS = '1', & - SHORT_NAME = 'FCLD', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - AVERAGING_INTERVAL = ACCUMINT, & - REFRESH_INTERVAL = MY_STEP, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'aerosols', & - UNITS = 'kg kg-1', & - SHORT_NAME = 'AERO', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, & - DATATYPE = MAPL_StateItem, & - RESTART = MAPL_RestartSkip, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'surface_albedo_for_visible_beam', & - UNITS = '1', & - SHORT_NAME = 'ALBVR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'surface_albedo_for_visible_diffuse', & - UNITS = '1', & - SHORT_NAME = 'ALBVF', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'surface_albedo_for_near_infrared_beam', & - UNITS = '1', & - SHORT_NAME = 'ALBNR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddImportSpec(GC, & - LONG_NAME = 'surface_albedo_for_near_infrared_diffuse', & - UNITS = '1', & - SHORT_NAME = 'ALBNF', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddImportSpec(GC, & - SHORT_NAME = 'PREF', & - LONG_NAME = 'reference_air_pressure', & - UNITS = 'Pa', & - DIMS = MAPL_DimsVertOnly, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - -! Solar does not have a "real" state. We keep an internal variable -! for each variable produced by solar during the compute steps. -! Versions of these, weighted by the appropriate TOA insolation, -! are returned at each time step. - -! !INTERNAL STATE: - - call MAPL_AddInternalSpec(GC, & - LONG_NAME ='normalized_net_downward_shortwave_flux_in_air', & - UNITS ='1', & - SHORT_NAME ='FSWN', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME ='normalized_net_downward_shortwave_flux_in_air_assuming_clear_sky',& - UNITS ='1', & - SHORT_NAME ='FSCN', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME ='normalized_upward_shortwave_flux_in_air', & - UNITS ='1', & - SHORT_NAME ='FSWUN', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME ='normalized_upward_shortwave_flux_in_air_assuming_clear_sky',& - UNITS ='1', & - SHORT_NAME ='FSCUN', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME = 'normalized_net_surface_downward_shortwave_flux_per_band_in_air',& - UNITS = '1', & - SHORT_NAME = 'FSWBANDN', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ NUM_BANDS_SOLAR /), & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_ultraviolet_beam_flux', & - UNITS = '1', & - SHORT_NAME = 'DRUVRN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_ultraviolet_diffuse_flux',& - UNITS = '1', & - SHORT_NAME = 'DFUVRN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_par_beam_flux', & - UNITS = '1', & - SHORT_NAME = 'DRPARN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_par_diffuse_flux', & - UNITS = '1', & - SHORT_NAME = 'DFPARN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_nearinfrared_beam_flux', & - UNITS = '1', & - SHORT_NAME = 'DRNIRN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_nearinfrared_diffuse_flux',& - UNITS = '1', & - SHORT_NAME = 'DFNIRN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME ='normalized_net_downward_shortwave_flux_in_air_assuming_no_aerosol',& - UNITS ='1', & - SHORT_NAME ='FSWNAN', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME ='normalized_net_downward_shortwave_flux_in_air_assuming_clear_sky_and_no_aerosol',& - UNITS ='1', & - SHORT_NAME ='FSCNAN', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME ='normalized_upward_shortwave_flux_in_air_assuming_no_aerosol',& - UNITS ='1', & - SHORT_NAME ='FSWUNAN', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME ='normalized_upward_shortwave_flux_in_air_assuming_clear_sky_and_no_aerosol',& - UNITS ='1', & - SHORT_NAME ='FSCUNAN', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddInternalSpec(GC, & - LONG_NAME = 'normalized_net_surface_downward_shortwave_flux_per_band_in_air_assuming_no_aerosol',& - UNITS = '1', & - SHORT_NAME = 'FSWBANDNAN', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ NUM_BANDS_SOLAR /), & - VLOCATION = MAPL_VLocationNone, __RC__) - - -! !EXPORT STATE: - - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='net_downward_shortwave_flux_in_air', & - UNITS ='W m-2', & - SHORT_NAME ='FSW', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='net_downward_shortwave_flux_in_air_assuming_clear_sky', & - UNITS ='W m-2', & - SHORT_NAME ='FSC', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='net_downward_shortwave_flux_in_air_assuming_no_aerosol', & - UNITS ='W m-2', & - SHORT_NAME ='FSWNA', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='net_downward_shortwave_flux_in_air_assuming_clear_sky_and_no_aerosol',& - UNITS ='W m-2', & - SHORT_NAME ='FSCNA', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='downward_shortwave_flux_in_air', & - UNITS ='W m-2', & - SHORT_NAME ='FSWD', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='downward_shortwave_flux_in_air_assuming_clear_sky', & - UNITS ='W m-2', & - SHORT_NAME ='FSCD', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='downward_shortwave_flux_in_air_assuming_no_aerosol', & - UNITS ='W m-2', & - SHORT_NAME ='FSWDNA', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='downward_shortwave_flux_in_air_assuming_clear_sky_and_no_aerosol',& - UNITS ='W m-2', & - SHORT_NAME ='FSCDNA', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='upward_shortwave_flux_in_air', & - UNITS ='W m-2', & - SHORT_NAME ='FSWU', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='upward_shortwave_flux_in_air_assuming_clear_sky', & - UNITS ='W m-2', & - SHORT_NAME ='FSCU', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='upward_shortwave_flux_in_air_assuming_no_aerosol', & - UNITS ='W m-2', & - SHORT_NAME ='FSWUNA', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME ='upward_shortwave_flux_in_air_assuming_clear_sky_and_no_aerosol',& - UNITS ='W m-2', & - SHORT_NAME ='FSCUNA', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'net_surface_downward_shortwave_flux_per_band_in_air',& - UNITS = 'W m-2', & - SHORT_NAME = 'FSWBAND', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ NUM_BANDS_SOLAR /), & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'net_surface_downward_shortwave_flux_per_band_in_air_assuming_no_aerosol',& - UNITS = 'W m-2', & - SHORT_NAME = 'FSWBANDNA', & - DIMS = MAPL_DimsHorzOnly, & - UNGRIDDED_DIMS = (/ NUM_BANDS_SOLAR /), & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_ultraviolet_beam_flux', & - UNITS = '1', & - SHORT_NAME = 'DRUVRN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_ultraviolet_diffuse_flux',& - UNITS = '1', & - SHORT_NAME = 'DFUVRN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_par_beam_flux', & - UNITS = '1', & - SHORT_NAME = 'DRPARN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_par_diffuse_flux', & - UNITS = '1', & - SHORT_NAME = 'DFPARN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_nearinfrared_beam_flux', & - UNITS = '1', & - SHORT_NAME = 'DRNIRN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'normalized_surface_downwelling_nearinfrared_diffuse_flux',& - UNITS = '1', & - SHORT_NAME = 'DFNIRN', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_downwelling_ultraviolet_beam_normal_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'DRNUVR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_downwelling_par_beam_normal_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'DRNPAR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_downwelling_nearinfrared_beam_normal_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'DRNNIR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_downwelling_ultraviolet_beam_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'DRUVR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_downwelling_ultraviolet_diffuse_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'DFUVR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_downwelling_par_beam_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'DRPAR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_downwelling_par_diffuse_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'DFPAR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_downwelling_nearinfrared_beam_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'DRNIR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_downwelling_nearinfrared_diffuse_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'DFNIR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'cloud_area_fraction', & - UNITS = '1' , & - SHORT_NAME = 'FCLD', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'cloud_area_fraction_for_low_clouds', & - UNITS = '1' , & - SHORT_NAME = 'CLDLO', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'cloud_area_fraction_for_middle_clouds', & - UNITS = '1' , & - SHORT_NAME = 'CLDMD', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'cloud_area_fraction_for_high_clouds', & - UNITS = '1' , & - SHORT_NAME = 'CLDHI', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'total_cloud_area_fraction', & - UNITS = '1' , & - SHORT_NAME = 'CLDTT', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - -! Note: the four CLDxxSW diagnostics below represent super-layer cloud -! fractions based on the subcolumn cloud generation called in RRTMG SW. -! They are sunlit only fields and generated only at the SW REFRESH frequency, -! NOT at the heartbeat. As such, they are useful for diagnostic comparisons -! with with the full CLDxx set above. But they should NOT be used to subsample -! fields that are produced on the model heartbeat (e.g. subsampling for cloud -! presence). Note, also, that when comparing CLDxxSW with CLDxx, it is better -! to subsample both with COSZSW >= cmin, (e.g., 0.25). This COSZSW is a -! REFRESH-frequency version of MCOSZ and, as such, is most appropriate for -! subsampling REFRESH-frequency fields like CLDxxSW. Of course, you can also -! subsample CLDxx with COSZSW since CLDxx are global. By sampling both -! CLDxxSW and CLDxx with COSZSW you get a fair apples-to-apples comparison -! between the two. - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDTTSW', & - LONG_NAME = 'total_cloud_area_fraction_rrtmg_sw_REFRESH', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDHISW', & - LONG_NAME = 'high-level_cloud_area_fraction_rrtmg_sw_REFRESH', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDMDSW', & - LONG_NAME = 'mid-level_cloud_area_fraction_rrtmg_sw_REFRESH', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDLOSW', & - LONG_NAME = 'low-level_cloud_area_fraction_rrtmg_sw_REFRESH', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - -! Note: the four CLDxxSWHB diagnostics below represent super-layer cloud -! fractions based on essentially the same subcolumn cloud generation used -! by RRTMG SW but called from within the SOLAR UPDATE at the HEARTBEAT. -! They are GLOBAL (not just sunlit) fields and generated on the heartbeat. -! But because subcolumn cloud generation is EXPENSIVE, asking for any of -! these exports will DOUBLE the cost of running the SOLAR GC. As such, -! they are for SPECIAL VALIDATION PURPOSES ONLY. No cost is incurred if -! they are not exported. Note, also, that they are NOT EXACTLY heartbeat -! versions of CLDxxSW, since they sample the heartbeat cloud fractions -! not the less frequent snapshots used at REFRESH-frequency, and also since -! the generation inside UPDATE is on non-flipped vertical fields. This latter -! difference should be statistically insignificant. A re-coding to use vert- -! ically flipped fields as per RRTMG SW is possible but will be slightly -! slower, and was deemed not necessary since the first cloud fraction -! frequency difference will likely dominate. - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDTTSWHB', & - LONG_NAME = 'total_cloud_area_fraction_rrtmg_sw_HEARTBEAT', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDHISWHB', & - LONG_NAME = 'high-level_cloud_area_fraction_rrtmg_sw_HEARTBEAT', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDMDSWHB', & - LONG_NAME = 'mid-level_cloud_area_fraction_rrtmg_sw_HEARTBEAT', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDLOSWHB', & - LONG_NAME = 'low-level_cloud_area_fraction_rrtmg_sw_HEARTBEAT', & - UNITS = '1', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__ ) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_of_low_clouds', & - UNITS = '1' , & - SHORT_NAME = 'TAULO', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_of_middle_clouds', & - UNITS = '1' , & - SHORT_NAME = 'TAUMD', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_of_high_clouds', & - UNITS = '1' , & - SHORT_NAME = 'TAUHI', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_of_all_clouds__deprecated', & - UNITS = '1' , & - SHORT_NAME = 'TAUTT', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_of_all_clouds__improved', & - UNITS = '1' , & - SHORT_NAME = 'TAUTTX', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_for_ice_clouds', & - UNITS = '1' , & - SHORT_NAME = 'TAUCLI', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_for_liquid_clouds', & - UNITS = '1' , & - SHORT_NAME = 'TAUCLW', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_for_falling_rain', & - UNITS = '1' , & - SHORT_NAME = 'TAUCLR', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_for_falling_snow', & - UNITS = '1' , & - SHORT_NAME = 'TAUCLS', & - DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, __RC__) - -! Note: The following four TAUxxPAR are REFRESH-frequency fields. As such, all -! the important provisos given in the comment on CLDxxSW above apply to these -! fields as well. Please read those provisos. - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_of_low_clouds_RRTMG_PAR_REFRESH', & - UNITS = '1' , & - SHORT_NAME = 'TAULOPAR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_of_middle_clouds_RRTMG_PAR_REFRESH', & - UNITS = '1' , & - SHORT_NAME = 'TAUMDPAR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_of_high_clouds_RRTMG_PAR_REFRESH', & - UNITS = '1' , & - SHORT_NAME = 'TAUHIPAR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'in_cloud_optical_thickness_of_all_clouds_RRTMG_PAR_REFRESH', & - UNITS = '1' , & - SHORT_NAME = 'TAUTTPAR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_net_downward_shortwave_flux_assuming_clear_sky',& - UNITS = 'W m-2', & - SHORT_NAME = 'RSCS', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_net_downward_shortwave_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'RSRS', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_net_downward_shortwave_flux_assuming_clear_sky_and_no_aerosol',& - UNITS = 'W m-2', & - SHORT_NAME = 'RSCSNA', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_net_downward_shortwave_flux_assuming_no_aerosol',& - UNITS = 'W m-2', & - SHORT_NAME = 'RSRSNA', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_incoming_shortwave_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'SLRSF', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_incoming_shortwave_flux_assuming_clear_sky', & - UNITS = 'W m-2', & - SHORT_NAME = 'SLRSFC', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_incoming_shortwave_flux_assuming_clean_sky', & - UNITS = 'W m-2', & - SHORT_NAME = 'SLRSFNA', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_incoming_shortwave_flux_assuming_clear_clean_sky',& - UNITS = 'W m-2', & - SHORT_NAME = 'SLRSFCNA', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_outgoing_shortwave_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'SLRSUF', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_outgoing_shortwave_flux_assuming_clear_sky', & - UNITS = 'W m-2', & - SHORT_NAME = 'SLRSUFC', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_outgoing_shortwave_flux_assuming_clean_sky', & - UNITS = 'W m-2', & - SHORT_NAME = 'SLRSUFNA', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_outgoing_shortwave_flux_assuming_clear_clean_sky',& - UNITS = 'W m-2', & - SHORT_NAME = 'SLRSUFCNA', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) -!END CAR - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'toa_outgoing_shortwave_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'OSR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'toa_outgoing_shortwave_flux_assuming_clear_sky', & - UNITS = 'W m-2', & - SHORT_NAME = 'OSRCLR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'toa_outgoing_shortwave_flux_no_aerosol', & - UNITS = 'W m-2', & - SHORT_NAME = 'OSRNA', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'toa_outgoing_shortwave_flux_no_aerosol__clear_sky', & - UNITS = 'W m-2', & - SHORT_NAME = 'OSRCNA', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) -!END CAR - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'toa_net_downward_shortwave_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'RSR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'toa_net_downward_shortwave_flux_assuming_clear_sky', & - UNITS = 'W m-2', & - SHORT_NAME = 'RSC', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'toa_net_downward_shortwave_flux_assuming_no_aerosol', & - UNITS = 'W m-2', & - SHORT_NAME = 'RSRNA', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'toa_net_downward_shortwave_flux_assuming_clear_sky_and_no_aerosol',& - UNITS = 'W m-2', & - SHORT_NAME = 'RSCNA', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'toa_incoming_shortwave_flux', & - UNITS = 'W m-2', & - SHORT_NAME = 'SLRTP', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_albedo', & - UNITS = '1', & - SHORT_NAME = 'ALBEDO', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_albedo_for_visible_beam', & - UNITS = '1', & - SHORT_NAME = 'ALBVR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_albedo_for_visible_diffuse', & - UNITS = '1', & - SHORT_NAME = 'ALBVF', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_albedo_for_near_infrared_beam', & - UNITS = '1', & - SHORT_NAME = 'ALBNR', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_albedo_for_near_infrared_diffuse', & - UNITS = '1', & - SHORT_NAME = 'ALBNF', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'cosine_of_the_solar_zenith_angle', & - UNITS = '1', & - SHORT_NAME = 'COSZ', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'mean_cosine_of_the_solar_zenith_angle', & - UNITS = '1', & - SHORT_NAME = 'MCOSZ', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - LONG_NAME = 'cosine_of_the_solar_zenith_angle_of_Solar_REFRESH', & - UNITS = '1', & - SHORT_NAME = 'COSZSW', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDTMP', & - LONG_NAME = 'cloud_top_temperature', & - UNITS = 'K', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - - call MAPL_AddExportSpec(GC, & - SHORT_NAME = 'CLDPRS', & - LONG_NAME = 'cloud_top_pressure', & - UNITS = 'Pa', & - DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, __RC__) - -!EOS - -! Set the Profiling timers -! ------------------------ - - call MAPL_TimerAdd(GC, name="PRELIMS" , __RC__) - call MAPL_TimerAdd(GC, name="REFRESH" , __RC__) - call MAPL_TimerAdd(GC, name="-AEROSOLS" , __RC__) - call MAPL_TimerAdd(GC, name="-SORAD" , __RC__) - call MAPL_TimerAdd(GC, name="--SORAD_RUN" , __RC__) - call MAPL_TimerAdd(GC, name="--SORAD_DATA" , __RC__) - call MAPL_TimerAdd(GC, name="---SORAD_DATA_DEVICE" , __RC__) - call MAPL_TimerAdd(GC, name="---SORAD_DATA_CONST" , __RC__) - call MAPL_TimerAdd(GC, name="--SORAD_ALLOC" , __RC__) - call MAPL_TimerAdd(GC, name="--SORAD_DEALLOC" , __RC__) - call MAPL_TimerAdd(GC, name="-RRTMG" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMG_RUN" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMG_INIT" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMG_FLIP" , __RC__) - - call MAPL_TimerAdd(GC, name="-RRTMGP" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_SETUP_1" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_SETUP_2" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_SETUP_3" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_IO_1" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_IO_2" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_CLOUD_OPTICS" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_AEROSOL_SETUP" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_SUBSET" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_MCICA" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_GAS_OPTICS" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_RT" , __RC__) - call MAPL_TimerAdd(GC, name="--RRTMGP_POST" , __RC__) - - call MAPL_TimerAdd(GC, name="-BALANCE" , __RC__) - call MAPL_TimerAdd(GC, name="--CREATE" , __RC__) - call MAPL_TimerAdd(GC, name="--DISTRIBUTE" , __RC__) - call MAPL_TimerAdd(GC, name="--RETRIEVE" , __RC__) - call MAPL_TimerAdd(GC, name="--DESTROY" , __RC__) - call MAPL_TimerAdd(GC, name="-MISC" , __RC__) - call MAPL_TimerAdd(GC, name="UPDATE" , __RC__) - -! Set Run method and use generic init and final methods -! ----------------------------------------------------- - - call MAPL_GridCompSetEntryPoint (GC, ESMF_METHOD_RUN, Run, __RC__) - call MAPL_GenericSetServices (GC, __RC__) - - RETURN_(ESMF_SUCCESS) - end subroutine SetServices - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -!BOP - -! !IROUTINE: RUN -- Run method for the SOLAR component - -! !INTERFACE: - - subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC ) - -! !ARGUMENTS: - - type(ESMF_GridComp), intent(inout) :: GC ! Gridded component - type(ESMF_State), intent(inout) :: IMPORT ! Import state - type(ESMF_State), intent(inout) :: EXPORT ! Export state - type(ESMF_Clock), intent(inout) :: CLOCK ! The clock - integer, optional, intent( out) :: RC ! Error code: -! /* -! !DESCRIPTION: Each time the Run method is called it fills all Exports for -! which an allocated pointer is available. Exports are filled from the -! normalized fluxes kept in the Internal state and the position of the Sun -! for the current interval in the Clock. If MAPL's RunAlarm is ringing, it -! also refreshes the normalized fluxes kept in the internal state by doing -! a full transfer calculation valid for solar positions over a ``future -! interval'' extending to the next anticipated ringing of the RunAlarm. -! Whether this is done before or after the Exports are updated and the -! exact definition of the ``future interval'' is controlled by a flag in -! the configuration. \newline -! -! A simple load balancing scheme is used that evens work between antipodal -! processors. \newline -! \newline -! */ - -! !BUGS: -! -!\end{verbatim} -! -! \begin{itemize} -! \item Deciding on the correct behavior for intermitent calls can be tricky. -! -! \item Load-balancing communication needs to be upgraded to most up-to-date -! ESMF machine model. -! \end{itemize} -! -! \begin{verbatim} -! - -!EOP - - -! ErrLog Variables - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - character(len=ESMF_MAXSTR) :: COMP_NAME - -! Local derived type aliases - - type (MAPL_MetaComp), pointer :: MAPL - type (ESMF_Grid ) :: ESMFGRID - type (ESMF_Config ) :: CF - - type (ty_RRTMGP_state), pointer :: rrtmgp_state => null() - type (ty_RRTMGP_wrap) :: wrap - -! Local variables - - type (ESMF_Alarm) :: ALARM - type (ESMF_State) :: INTERNAL - type (ESMF_Time) :: currentTime - type (ESMF_TimeInterval) :: intDT - integer :: IM, JM, LM - type (MAPL_SunOrbit) :: ORBIT - type (MAPL_VarSpec), pointer :: ImportSpec(:) => null() - type (MAPL_VarSpec), pointer :: ExportSpec(:) => null() - type (MAPL_VarSpec), pointer :: InternalSpec(:) => null() - real, pointer, dimension(:,:) :: LONS - real, pointer, dimension(:,:) :: LATS - - real, pointer, dimension(:,:,:) :: FSWNA, FSWUNA, FSWDNA - real, pointer, dimension(:,:,:) :: FSCNA, FSCUNA, FSCDNA - real, pointer, dimension(:,:,:) :: FSWBANDNA - - real, pointer, dimension(:,: ) :: RSRNA, RSRSNA, OSRNA, SLRSFNA, SLRSUFNA - real, pointer, dimension(:,: ) :: RSCNA, RSCSNA, OSRCNA, SLRSFCNA, SLRSUFCNA - - real, pointer, dimension(:,: ) :: DFUVRN, DRUVRN - real, pointer, dimension(:,: ) :: DFPARN, DRPARN - real, pointer, dimension(:,: ) :: DFNIRN, DRNIRN - real, pointer, dimension(:,: ) :: DFUVR, DRUVR - real, pointer, dimension(:,: ) :: DFPAR, DRPAR - real, pointer, dimension(:,: ) :: DFNIR, DRNIR - - type (ESMF_State) :: AERO - character(len=ESMF_MAXSTR) :: AS_FIELD_NAME - integer :: AS_STATUS - real, pointer, dimension(:,:,:) :: AS_PTR_3D - real, pointer, dimension(:,:,:) :: AS_PTR_PLE - real, pointer, dimension(:,:,:) :: AS_PTR_T - real, pointer, dimension(:,:,:) :: AS_PTR_Q - real, allocatable, dimension(:,:,:) :: AS_ARR_RH - real, allocatable, dimension(:,:,:) :: AS_ARR_PL - - real, allocatable, dimension(:,:,:,:) :: AEROSOL_EXT - real, allocatable, dimension(:,:,:,:) :: AEROSOL_SSA - real, allocatable, dimension(:,:,:,:) :: AEROSOL_ASY - - integer :: band - logical :: implements_aerosol_optics - logical :: USE_RRTMGP, USE_RRTMGP_IRRAD - logical :: USE_RRTMG , USE_RRTMG_IRRAD - logical :: USE_CHOU , USE_CHOU_IRRAD - real :: RFLAG - integer :: NUM_BANDS_SOLAR, NUM_BANDS, TOTAL_RAD_BANDS - - integer, parameter :: BANDS_SOLAR_OFFSET = 0 - - integer, parameter :: NB_CHOU = 8 ! Num bands in SORAD calcs for Chou - integer, parameter :: NB_RRTMG = 14 ! Num bands in SORAD calcs for RRTMG - integer, parameter :: NB_RRTMGP = 14 ! Num bands in SORAD calcs for RRTMGP - - integer, parameter :: NB_CHOU_IRRAD = 10 ! Num bands in IRRAD calcs for Chou - integer, parameter :: NB_RRTMG_IRRAD = 16 ! Num bands in IRRAD calcs for RRTMG - integer, parameter :: NB_RRTMGP_IRRAD = 16 ! Num bands in IRRAD calcs for RRTMGP - - integer :: CalledLast - integer :: LCLDMH - integer :: LCLDLM - integer :: K - integer :: YY, DOY - real :: CO2 - real :: PRS_LOW_MID - real :: PRS_MID_HIGH - real :: SC, HK(8), HK_IR_TEMP(3,10), HK_UV_TEMP(5), MG, SB - integer :: SUNFLAG - real, pointer, dimension(:) :: PREF - - logical :: REFRESH_FLUXES - logical :: UPDATE_FIRST - - real, external :: getco2 - character(len=ESMF_MAXSTR) :: MSGSTRING - - real, save :: CO2_0, SC_0, MG_0, SB_0 - data CO2_0 /0.0/, SC_0/0.0/, MG_0/0.0/, SB_0/0.0/ - - logical :: LoadBalance - character(len=ESMF_MAXSTR) :: DYCORE - integer :: SOLAR_LOAD_BALANCE - integer :: SolarBalanceHandle - - character(len=ESMF_MAXPATHLEN) :: SolCycFileName - logical :: USE_NRLSSI2 - logical :: PersistSolar - -!============================================================================= - -! Begin... - -! Get the target components name and set-up traceback handle. -! ----------------------------------------------------------- - - call ESMF_GridCompGet (GC, name=COMP_NAME, GRID=ESMFGRID, __RC__ ) - Iam = trim(COMP_NAME) // "Run" - -! Get my internal MAPL_Generic state -!----------------------------------- - - call MAPL_GetObjectFromGC (GC, MAPL, __RC__) - - call MAPL_TimerOn (MAPL,"TOTAL" ,__RC__) - call MAPL_TimerOn (MAPL,"PRELIMS",__RC__) - -! Get parameters from generic state. -!----------------------------------- - - call MAPL_Get(MAPL, & - IM = IM, & - JM = JM, & - LM = LM, & - CF = CF, & - LONS = LONS, & - LATS = LATS, & - RUNALARM = ALARM, & - ORBIT = ORBIT, & - INTERNALspec = InternalSpec, & - IMPORTspec = ImportSpec, & - EXPORTspec = ExportSpec, & - INTERNAL_ESMF_STATE = INTERNAL, __RC__) - -! Get parameters from configuration -!---------------------------------- - - call MAPL_GetResource (MAPL, PRS_LOW_MID, 'PRS_LOW_MID_CLOUDS:' , DEFAULT=70000., __RC__) - call MAPL_GetResource (MAPL, PRS_MID_HIGH, 'PRS_MID_HIGH_CLOUDS:', DEFAULT=40000., __RC__) - call MAPL_GetResource (MAPL, CO2, 'CO2:', __RC__) - call MAPL_GetResource (MAPL, SC, 'SOLAR_CONSTANT:', __RC__) - call MAPL_GetResource (MAPL, SUNFLAG, 'SUN_FLAG:', DEFAULT=0, __RC__) - -! Should we load balance solar radiation? -! For the single-column model, we always use the -! DATMO DYCORE. If this is our DYCORE, turn off -! load balancing. -!--------------------------------------------- - - call MAPL_GetResource (MAPL, DYCORE, 'DYCORE:', __RC__) - call MAPL_GetResource (MAPL, SOLAR_LOAD_BALANCE, 'SOLAR_LOAD_BALANCE:', DEFAULT=1, __RC__) - - if (adjustl(DYCORE)=="DATMO" .OR. SOLAR_LOAD_BALANCE==0) then - LoadBalance = .FALSE. - else - LoadBalance = .TRUE. - end if - -! Use time-varying co2 -!--------------------- - - call ESMF_ClockGet(CLOCK, currTIME=CURRENTTIME, __RC__) - call ESMF_TimeGet (CURRENTTIME, YY=YY, DayOfYear=DOY, __RC__) - - if(CO2<0.0) then - CO2 = GETCO2(YY,DOY) - write(MSGSTRING,'(A,I4,A,I3,A,e12.5)') & - "Updated CO2 in solar for year/day ", YY, "/", DOY, " is ", CO2 - if( MAPL_AM_I_ROOT() ) then - if( CO2_0.ne.CO2 ) then - CO2_0 = CO2 - print * - print *, trim(msgstring) - print * - endif - endif - call ESMF_LogWrite(MSGSTRING, ESMF_LOGMSG_INFO, __RC__) - end if - -! Decide which radiation to use -! RRTMGP dominates RRTMG dominates Chou-Suarez -! Chou-Suarez is the default if nothing else asked for in Resource file -! These USE_ flags are shared globally by contained SORADCORE() and Update_Flx() -!---------------------------------------------------------------------- - - ! first for SORAD - USE_RRTMGP = .false. - USE_RRTMG = .false. - USE_CHOU = .false. - call MAPL_GetResource( MAPL, RFLAG ,'USE_RRTMGP_SORAD:', DEFAULT=0.0, __RC__) - USE_RRTMGP = RFLAG /= 0.0 - if (.not. USE_RRTMGP) then - call MAPL_GetResource( MAPL, RFLAG ,'USE_RRTMG_SORAD:', DEFAULT=0.0, __RC__) - USE_RRTMG = RFLAG /= 0.0 - USE_CHOU = .not.USE_RRTMG - end if - - ! then IRRAD - USE_RRTMGP_IRRAD = .false. - USE_RRTMG_IRRAD = .false. - USE_CHOU_IRRAD = .false. - call MAPL_GetResource( MAPL, RFLAG ,'USE_RRTMGP_IRRAD:', DEFAULT=0.0, __RC__) - USE_RRTMGP_IRRAD = RFLAG /= 0.0 - if (.not. USE_RRTMGP_IRRAD) then - call MAPL_GetResource( MAPL, RFLAG ,'USE_RRTMG_IRRAD:', DEFAULT=0.0, __RC__) - USE_RRTMG_IRRAD = RFLAG /= 0.0 - USE_CHOU_IRRAD = .not.USE_RRTMG_IRRAD - end if - - ! Set number of solar bands - if (USE_RRTMGP) then - NUM_BANDS_SOLAR = NB_RRTMGP - else if (USE_RRTMG) then - NUM_BANDS_SOLAR = NB_RRTMG - else - NUM_BANDS_SOLAR = NB_CHOU - end if - -! Test to see if AGCM.rc is set up correctly for the Radiation selected -!---------------------------------------------------------------------- - - call MAPL_GetResource (MAPL, NUM_BANDS ,'NUM_BANDS:', __RC__) - - TOTAL_RAD_BANDS = NUM_BANDS_SOLAR - if (USE_RRTMGP_IRRAD) then - TOTAL_RAD_BANDS = TOTAL_RAD_BANDS + NB_RRTMGP_IRRAD - else if (USE_RRTMG_IRRAD) then - TOTAL_RAD_BANDS = TOTAL_RAD_BANDS + NB_RRTMG_IRRAD - else - TOTAL_RAD_BANDS = TOTAL_RAD_BANDS + NB_CHOU_IRRAD - end if - - if (NUM_BANDS /= TOTAL_RAD_BANDS) then - if (MAPL_am_I_Root()) then - write (*,*) "NUM_BANDS is not set up correctly for the radiation combination selected:" - write (*,*) " SORAD RRTMG: ", USE_RRTMGP , USE_RRTMG , USE_CHOU - write (*,*) " IRRAD RRTMG: ", USE_RRTMGP_IRRAD, USE_RRTMG_IRRAD, USE_CHOU_IRRAD - write (*,*) "Please check that your optics tables and NUM_BANDS are correct." - end if - _ASSERT(.FALSE.,'Total number of radiatiuon bands is inconsistent!') - end if - -! Decide how to do solar forcing -!------------------------------- - - call MAPL_GetResource (MAPL, SolCycFileName, "SOLAR_CYCLE_FILE_NAME:", DEFAULT='/dev/null', __RC__) - - if(SolCycFileName /= '/dev/null') THEN - - call MAPL_GetResource( MAPL, USE_NRLSSI2, "USE_NRLSSI2:", DEFAULT=.TRUE., __RC__) - - if (USE_NRLSSI2) then - _ASSERT(USE_RRTMG .or. USE_RRTMGP, 'only RRTMG[P] can use NRLSSI2 currently') - - call MAPL_GetResource (MAPL, PersistSolar, "PERSIST_SOLAR:", DEFAULT=.TRUE., __RC__) - call MAPL_SunGetSolarConstant (CLOCK, trim(SolCycFileName), & - SC, MG, SB, PersistSolar=PersistSolar, __RC__) - - !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - ! write(MSGSTRING,'(A,I4,A,I3,A,F8.3,A,F8.6,A,F9.4)') & ! - ! "Solar Constants for year/day ", YY, "/", DOY, " are SC: ", SC, " MG: ", MG, " SB: ", SB ! - ! if( MAPL_AM_I_ROOT() ) then ! - ! if( SC_0.ne.SC ) then ! - ! SC_0 = SC ! - ! MG_0 = MG ! - ! SB_0 = SB ! - ! print * ! - ! print *, trim(msgstring) ! - ! print * ! - ! endif ! - ! endif ! - ! call ESMF_LogWrite (MSGSTRING, ESMF_LOGMSG_INFO, __RC__) ! - !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - else - call MAPL_SunGetSolarConstant (CLOCK, trim(SolCycFileName), SC, HK=HK, __RC__) - - HK_UV_TEMP = HK(:5) - - do K=1,3 - HK_IR_TEMP(K,:)=HK_IR_OLD(K,:)*(HK(5+K)/sum(HK_IR_OLD(K,:))) - end do - end if - else if(SC<0.0) then - call MAPL_SunGetSolarConstant (CURRENTTIME, SC, HK, __RC__) - - HK_UV_TEMP = HK(:5) - - do K=1,3 - HK_IR_TEMP(K,:)=HK_IR_OLD(K,:)*(HK(5+K)/sum(HK_IR_OLD(K,:))) - end do - - write(MSGSTRING,'(A,I4,A,I3,A,e12.5)') & - "Updated Solar Constant for year/day ", YY, "/", DOY, " is ", SC - if( MAPL_AM_I_ROOT() ) then - if( SC_0.ne.SC ) then - SC_0 = SC - print * - print *, trim(msgstring) - print * - endif - endif - call ESMF_LogWrite (MSGSTRING, ESMF_LOGMSG_INFO, __RC__) - else - HK_UV_TEMP = HK_UV_OLD - HK_IR_TEMP = HK_IR_OLD - end if - - -! We use the reference pressures to separate high, middle, and low clouds. -!------------------------------------------------------------------------- - - call MAPL_GetPointer(IMPORT, PREF, 'PREF', __RC__) - -! Determine the model level separating high-middle and low-middle clouds -!----------------------------------------------------------------------- - - _ASSERT(PRS_MID_HIGH > PREF(1) , 'mid-high pressure band boundary too high!') - _ASSERT(PRS_LOW_MID > PRS_MID_HIGH, 'pressure band misordering!') - _ASSERT(PRS_LOW_MID < PREF(LM) , 'low-mid pressure band boundary too low!') - - ! find mid-high interface level - k = 1 - do while ( PREF(k) < PRS_MID_HIGH ) - k=k+1 - end do - LCLDMH = k - ! Guaranteed that LCLDMH > 1 (by first ASSERT above) - ! and that PREF(LCLDMH) >= PRS_MID_HIGH (by while loop) - - ! find low-mid interface level - do while ( PREF(k) < PRS_LOW_MID ) - k=k+1 - end do - LCLDLM = k - ! Guaranteed that LCLDLM <= LM (by third assert above) - ! and that PREF(LCLDLM) >= PRS_LOW_MID (by while loop) - - ! But it's still possible that LCLDLM == LCLDMH if the - ! interface pressures are too close. We now ASSERT to - ! prevent this. - _ASSERT(LCLDMH < LCLDLM, 'PRS_LOW_MID and PRS_MID_HIGH are too close!') - - ! now we have 1 < LCLDMH < LCLDLM <= LM and can use: - ! layers [1, LCLDMH-1] are in high pressure band - ! layers [LCLDMH, LCLDLM-1] are in mid pressure band - ! layers [LCLDLM, LM ] are in low pressure band - - call MAPL_TimerOff(MAPL,"PRELIMS",__RC__) - -! Determine calling sequence -! This getresource is a kludge for now and needs to be fixed -! in the spec, because GC needs this info to -! know when to set the alarm, last or first step of interval -! right now it is always the last, which is only correct for called_last=1. -!--------------------------- - - call MAPL_TimerOn (MAPL,"UPDATE",__RC__) - - call MAPL_GetResource (MAPL, CalledLast, 'CALLED_LAST:', default=1, __RC__) - UPDATE_FIRST = CalledLast /= 0 - -! Update the Sun position and weigh the export variables -! -------------------------------------------------------- - - if (UPDATE_FIRST) then - call UPDATE_EXPORT (IM,JM,LM,__RC__) - end if - - call MAPL_TimerOff (MAPL,"UPDATE",__RC__) - -! If its time, refresh the internal state -! --------------------------------------- - - REFRESH_FLUXES = ESMF_AlarmIsRinging (ALARM, __RC__) - - REFRESH: if ( REFRESH_FLUXES ) then - call MAPL_TimerOn (MAPL,"REFRESH",__RC__) - - call ESMF_AlarmRingerOff (ALARM, __RC__) - call ESMF_ClockGet (CLOCK, currTIME=CURRENTTIME, __RC__) - - ! Set offset INTDT from current time for beginning of refresh period. - if (UPDATE_FIRST) then - ! The update is already done, so the refresh interval should start one - ! timestep beyond current time so it is constent with the NEXT update. - call ESMF_ClockGet(CLOCK, timeSTEP=INTDT, __RC__) - else - ! The update will occur after the refresh, so both update and refresh - ! periods should begin at the current time. - call ESMF_TimeIntervalSet(INTDT, s=0, __RC__) - end if - -! Get optical properties of radiatively active aerosols. -! ------------------------------------------------------ - - call MAPL_TimerOn (MAPL,"-AEROSOLS", __RC__) - - call ESMF_StateGet(IMPORT, 'AERO', AERO, __RC__) - - call ESMF_AttributeGet(AERO, name='implements_aerosol_optics_method', & - value=implements_aerosol_optics, __RC__) - - RADIATIVELY_ACTIVE_AEROSOLS: if (implements_aerosol_optics) then - - ! set RH for aerosol optics - call ESMF_AttributeGet(AERO, name='relative_humidity_for_aerosol_optics', & - value=AS_FIELD_NAME, __RC__) - - if (AS_FIELD_NAME /= '') then - call MAPL_GetPointer(IMPORT, AS_PTR_PLE, 'PLE', __RC__) - call MAPL_GetPointer(IMPORT, AS_PTR_Q, 'QV', __RC__) - call MAPL_GetPointer(IMPORT, AS_PTR_T, 'T', __RC__) - - allocate(AS_ARR_RH(IM,JM,LM), AS_ARR_PL(IM,JM,LM), __STAT__) - AS_ARR_PL = 0.5*(AS_PTR_PLE(:,:,1:LM) + AS_PTR_PLE(:,:,0:LM-1)) - AS_ARR_RH = AS_PTR_Q / MAPL_EQSAT(AS_PTR_T, PL=AS_ARR_PL) - - call MAPL_GetPointer(AERO, AS_PTR_3D, trim(AS_FIELD_NAME), __RC__) - AS_PTR_3D = AS_ARR_RH - - deallocate(AS_ARR_RH, AS_ARR_PL, __STAT__) - end if - - ! set PLE for aerosol optics - call ESMF_AttributeGet(AERO, name='air_pressure_for_aerosol_optics', & - value=AS_FIELD_NAME, __RC__) - - if (AS_FIELD_NAME /= '') then - call MAPL_GetPointer(IMPORT, AS_PTR_PLE, 'PLE', __RC__) - call MAPL_GetPointer(AERO, AS_PTR_3D, trim(AS_FIELD_NAME), __RC__) - AS_PTR_3D = AS_PTR_PLE - end if - - ! allocate memory for total aerosol ext, ssa and asy at all solar bands - allocate(AEROSOL_EXT(IM,JM,LM,NUM_BANDS_SOLAR), & - AEROSOL_SSA(IM,JM,LM,NUM_BANDS_SOLAR), & - AEROSOL_ASY(IM,JM,LM,NUM_BANDS_SOLAR), __STAT__) - - AEROSOL_EXT = 0. - AEROSOL_SSA = 0. - AEROSOL_ASY = 0. - - ! compute aerosol optics at all solar bands - SOLAR_BANDS: do band = 1, NUM_BANDS_SOLAR - call ESMF_AttributeSet(AERO, name='band_for_aerosol_optics', & - value=(BANDS_SOLAR_OFFSET+band), __RC__) - - ! execute the aero provider's optics method - call ESMF_MethodExecute(AERO, label="run_aerosol_optics", userRC=AS_STATUS, RC=STATUS) - VERIFY_(AS_STATUS) - VERIFY_(STATUS) - - ! EXT from AERO_PROVIDER - call ESMF_AttributeGet(AERO, name='extinction_in_air_due_to_ambient_aerosol', & - value=AS_FIELD_NAME, __RC__) - if (AS_FIELD_NAME /= '') then - call MAPL_GetPointer(AERO, AS_PTR_3D, trim(AS_FIELD_NAME), __RC__) - if (associated(AS_PTR_3D)) AEROSOL_EXT(:,:,:,band) = AS_PTR_3D - end if - - ! SSA from AERO_PROVIDER - call ESMF_AttributeGet(AERO, name='single_scattering_albedo_of_ambient_aerosol', & - value=AS_FIELD_NAME, __RC__) - if (AS_FIELD_NAME /= '') then - call MAPL_GetPointer(AERO, AS_PTR_3D, trim(AS_FIELD_NAME), __RC__) - if (associated(AS_PTR_3D)) AEROSOL_SSA(:,:,:,band) = AS_PTR_3D - end if - - ! ASY from AERO_PROVIDER - call ESMF_AttributeGet(AERO, name='asymmetry_parameter_of_ambient_aerosol', & - value=AS_FIELD_NAME, __RC__) - if (AS_FIELD_NAME /= '') then - call MAPL_GetPointer(AERO, AS_PTR_3D, trim(AS_FIELD_NAME), __RC__) - if (associated(AS_PTR_3D)) AEROSOL_ASY(:,:,:,band) = AS_PTR_3D - end if - end do SOLAR_BANDS - - end if RADIATIVELY_ACTIVE_AEROSOLS - - call MAPL_TimerOff(MAPL,"-AEROSOLS", __RC__) - -! No-aerosol calculations if requested. -!-------------------------------------- - - call MAPL_GetPointer(EXPORT, FSWNA, 'FSWNA', __RC__) - call MAPL_GetPointer(EXPORT, FSCNA, 'FSCNA', __RC__) - call MAPL_GetPointer(EXPORT, FSWUNA, 'FSWUNA', __RC__) - call MAPL_GetPointer(EXPORT, FSCUNA, 'FSCUNA', __RC__) - call MAPL_GetPointer(EXPORT, FSWDNA, 'FSWDNA', __RC__) - call MAPL_GetPointer(EXPORT, FSCDNA, 'FSCDNA', __RC__) - call MAPL_GetPointer(EXPORT, FSWBANDNA, 'FSWBANDNA', __RC__) - - call MAPL_GetPointer(EXPORT, RSRSNA, 'RSRSNA', __RC__) - call MAPL_GetPointer(EXPORT, RSCSNA, 'RSCSNA', __RC__) - call MAPL_GetPointer(EXPORT, RSRNA, 'RSRNA', __RC__) - call MAPL_GetPointer(EXPORT, RSCNA, 'RSCNA', __RC__) - call MAPL_GetPointer(EXPORT, OSRNA, 'OSRNA', __RC__) - call MAPL_GetPointer(EXPORT, OSRCNA, 'OSRCNA', __RC__) - call MAPL_GetPointer(EXPORT, SLRSFNA, 'SLRSFNA', __RC__) - call MAPL_GetPointer(EXPORT, SLRSFCNA, 'SLRSFCNA', __RC__) - call MAPL_GetPointer(EXPORT, SLRSUFNA, 'SLRSUFNA', __RC__) - call MAPL_GetPointer(EXPORT, SLRSUFCNA, 'SLRSUFCNA', __RC__) - - if( associated(FSWNA) .or. associated(FSCNA) .or. & - associated(FSWDNA) .or. associated(FSCDNA) .or. & - associated(FSWUNA) .or. associated(FSCUNA) .or. & - associated(FSWBANDNA) .or. & - associated(RSRNA) .or. associated(RSCNA) .or. & - associated(RSRSNA) .or. associated(RSCSNA) .or. & - associated(OSRNA) .or. associated(OSRCNA) .or. & - associated(SLRSFNA) .or. associated(SLRSFCNA) .or. & - associated(SLRSUFNA) .or. associated(SLRSUFCNA) & - ) then - call SORADCORE(IM,JM,LM, & - NO_AERO = .true., & - CURRTIME = CURRENTTIME+INTDT, & - LoadBalance = LoadBalance, & - __RC__) - else - ! no aerosol exports not requested, so set no aerosol - ! normalized internals to zero. - call MAPL_GetPointer(INTERNAL, FSWNA, 'FSWNAN', __RC__) - call MAPL_GetPointer(INTERNAL, FSWUNA, 'FSWUNAN', __RC__) - call MAPL_GetPointer(INTERNAL, FSCNA, 'FSCNAN', __RC__) - call MAPL_GetPointer(INTERNAL, FSCUNA, 'FSCUNAN', __RC__) - call MAPL_GetPointer(INTERNAL, FSWBANDNA, 'FSWBANDNAN', __RC__) - FSWNA = 0.0 - FSCNA = 0.0 - FSWUNA = 0.0 - FSCUNA = 0.0 - FSWBANDNA = 0.0 - end if - -! Regular with-aerosol calculations -! --------------------------------- - - call SORADCORE(IM,JM,LM, & - NO_AERO = .false., & - CURRTIME = CURRENTTIME+INTDT,& - LoadBalance = LoadBalance, & - __RC__) - - ! Clean up aerosol optical properties. - - if (implements_aerosol_optics) then - deallocate(AEROSOL_EXT, __STAT__) - deallocate(AEROSOL_SSA, __STAT__) - deallocate(AEROSOL_ASY, __STAT__) - end if - - ! Export normalized internals if requested. - - call MAPL_GetPointer(INTERNAL, DRUVRN, 'DRUVRN', __RC__) - call MAPL_GetPointer(INTERNAL, DFUVRN, 'DFUVRN', __RC__) - call MAPL_GetPointer(INTERNAL, DRPARN, 'DRPARN', __RC__) - call MAPL_GetPointer(INTERNAL, DFPARN, 'DFPARN', __RC__) - call MAPL_GetPointer(INTERNAL, DRNIRN, 'DRNIRN', __RC__) - call MAPL_GetPointer(INTERNAL, DFNIRN, 'DFNIRN', __RC__) - - call MAPL_GetPointer(EXPORT , DRUVR, 'DRUVRN', __RC__) - call MAPL_GetPointer(EXPORT , DFUVR, 'DFUVRN', __RC__) - call MAPL_GetPointer(EXPORT , DRPAR, 'DRPARN', __RC__) - call MAPL_GetPointer(EXPORT , DFPAR, 'DFPARN', __RC__) - call MAPL_GetPointer(EXPORT , DRNIR, 'DRNIRN', __RC__) - call MAPL_GetPointer(EXPORT , DFNIR, 'DFNIRN', __RC__) - - if (associated(DRUVR)) DRUVR = DRUVRN - if (associated(DFUVR)) DFUVR = DFUVRN - if (associated(DRPAR)) DRPAR = DRPARN - if (associated(DFPAR)) DFPAR = DFPARN - if (associated(DRNIR)) DRNIR = DRNIRN - if (associated(DFNIR)) DFNIR = DFNIRN - - call MAPL_TimerOff(MAPL,"REFRESH",__RC__) - endif REFRESH - - -! Update the Sun position and weigh the export variables -! -------------------------------------------------------- - - if (.not.UPDATE_FIRST) then - call MAPL_TimerOn (MAPL,"UPDATE",__RC__) - call UPDATE_EXPORT (IM,JM,LM, __RC__) - call MAPL_TimerOff (MAPL,"UPDATE",__RC__) - end if - -! All done -!--------- - - call MAPL_TimerOff (MAPL,"TOTAL",__RC__) - RETURN_(ESMF_SUCCESS) - - contains - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - - subroutine SORADCORE(IM,JM,LM,NO_AERO,CURRTIME,LoadBalance,RC) - - ! RRTMGP module uses - use mo_rte_kind, only: wp - use mo_gas_concentrations, only: ty_gas_concs - use mo_cloud_optics, only: ty_cloud_optics - use mo_cloud_sampling, only: draw_samples, & - sampled_mask_max_ran, sampled_mask_exp_ran - use mo_optical_props, only: ty_optical_props, & - ty_optical_props_arry, ty_optical_props_1scl, & - ty_optical_props_2str, ty_optical_props_nstr - use mo_fluxes_byband, only: ty_fluxes_byband - use mo_rte_sw, only: rte_sw - use mo_load_coefficients, only: load_and_init - use mo_load_cloud_coefficients, only: load_cld_lutcoeff, load_cld_padecoeff - - ! Type of MKL VSL Basic RNGs - ! (1) Mersenne Twister types - ! brng = VSL_BRNG_MT19937 - ! Alternatives are VSL_BRNG_SFMT19937, maybe VSL_BRNG_MT2203? - ! (2) Counter based PRNGs (CBPRNGs) - ! brng = VSL_BRNG_PHILOX4X32X10 ! 10-round Philox 4x32 counter, 2x32 key - ! Alternatives are VSL_BRNG_ARS5 ! faster if AES-NI instructions hardware supported - ! -#ifdef HAVE_MKL - use MKL_VSL_TYPE - use mo_rng_mklvsl_plus, only: ty_rng_mklvsl_plus -#endif - - integer, intent(IN ) :: IM, JM, LM - logical, intent(IN ) :: NO_AERO - type (ESMF_Time), intent(IN ) :: CURRTIME - logical, intent(IN ) :: LoadBalance - integer, optional, intent(OUT) :: RC - -! Locals - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - - type (ESMF_TimeInterval) :: TINT - type (ESMF_DELayout) :: LAYOUT - type (ESMF_Array) :: ARRAY - type (ESMF_FieldBundle) :: BUNDLE - type (ESMF_Field) :: FIELD - - type (ESMF_VM) :: VM - integer :: COMM - - real, dimension(IM,JM) :: ZTH, SLR - logical, dimension(IM,JM) :: daytime - - ! super-layer RRTMG cloud fraction exports - real, pointer, dimension(:,:) :: CLDTTSW - real, pointer, dimension(:,:) :: CLDHISW - real, pointer, dimension(:,:) :: CLDMDSW - real, pointer, dimension(:,:) :: CLDLOSW - - ! super-layer RRTMG PAR optical thickness exports - real, pointer, dimension(:,:) :: TAUTTPAR - real, pointer, dimension(:,:) :: TAUHIPAR - real, pointer, dimension(:,:) :: TAUMDPAR - real, pointer, dimension(:,:) :: TAULOPAR - - ! cosine solar zenith angle used by REFRESH - real, pointer, dimension(:,:) :: COSZSW - -! DAYTIME ONLY COPY OF VARIABLES - - real, pointer, dimension(: ) :: ALBNR,ALBNF,ALBVR,ALBVF,ZT,SLR1D, & - UVRR,UVRF,PARR,PARF,NIRR,NIRF,Ig1D,Jg1D, & - CLDTS,CLDHS,CLDMS,CLDLS, & - TAUTP,TAUHP,TAUMP,TAULP - real, pointer, dimension(:,:,:) :: FCLD,TAUI,TAUW,CLIN,RRL,RRI,RQI,RQL,RQR - real, pointer, dimension(:,:,:) :: DP, PLL - real, pointer, dimension(:,:,:) :: RAERO - real, pointer, dimension(:,:) :: T, Q, OX, PLE, CL, QL, QI, QR, QS, & - RL, RI, RR, RS, FSW, FSC, FSWA, FSCA - real, pointer, dimension(:,:) :: ALBIMP, ALBINT - - real, pointer, dimension(:,:) :: FSWU ! Flux shortwave up all-sky - real, pointer, dimension(:,:) :: FSCU ! Flux shortwave up clear-sky - real, pointer, dimension(:,:) :: FSWUA ! Flux shortwave up all-sky no aerosol - real, pointer, dimension(:,:) :: FSCUA ! Flux shortwave up clear-sky no aerosol - real, pointer, dimension(:,:) :: FSWBAND ! Flux shortwave surface per band - real, pointer, dimension(:,:) :: FSWBANDA ! Flux shortwave surface per band no aerosol - - integer :: ICEFLGSW ! Flag for ice particle specification - integer :: LIQFLGSW ! Flag for liquid droplet specification - - real, pointer, dimension(: ) :: ALAT - real, pointer, dimension(: ) :: TS - real, pointer, dimension(:,:) :: CH4, N2O - real, allocatable, dimension(:,:) :: SWUFLXR, SWDFLXR, SWUFLXCR, SWDFLXCR - - real, allocatable, dimension(:,:) :: TLEV, TLEV_R, PLE_R - real, allocatable, dimension(:,:) :: FCLD_R, CLIQWP, CICEWP, RELIQ, REICE - - real, allocatable, dimension(:,:,:) :: TAUAER, SSAAER, ASMAER - real, allocatable, dimension(:,:) :: DPR, PL_R, T_R, Q_R, O2_R, O3_R, ZL_R - real, allocatable, dimension(:,:) :: CO2_R, CH4_R - integer, allocatable, dimension(:,:) :: CLEARCOUNTS - real, allocatable, dimension(:,:) :: SWUFLX, SWDFLX, SWUFLXC, SWDFLXC - real, allocatable, dimension(:) :: NIRR_R, NIRF_R, PARR_R, PARF_R, UVRR_R, UVRF_R - - ! pmn: should we update these? - real, parameter :: O2 = 0.2090029E+00 ! preexisting - real, parameter :: N2 = 0.7906400E+00 ! approx from rrtmgp input file - real, parameter :: CO = 0.0 ! currently zero - - real :: ADJES, DIST - integer :: DYOFYR - integer :: NCOL - integer :: RPART, IAER, NORMFLX - - real :: X - - integer :: ISOLVAR - real, dimension(2) :: INDSOLVAR - real, dimension(nb_rrtmg) :: BNDSOLVAR - real :: SOLCYCFRAC - - ! variables for RRTMGP code - ! ------------------------- - - ! conversion factor (see below) - real(wp), parameter :: cwp_fac = real(1000./MAPL_GRAV,kind=wp) - - ! solar inputs: (ncol) and (nbnd,ncol) - real(wp), dimension(:), allocatable :: tsi, mu0 - real(wp), dimension(:,:), allocatable :: sfc_alb_dir, sfc_alb_dif - - ! per g-point toa flux (ncols_subset,ngpt) [W/m2 NORMAL to solar beam] - real(wp), dimension(:,:), allocatable :: toa_flux - - ! input arrays: dimensions (ncol,nlay[+1]) [Pa,K] - real(wp), dimension(:,:), allocatable :: p_lay, t_lay, dp_wp - real(wp), dimension(:,:), allocatable :: p_lev - - ! fluxes that we actually need - ! NB: fluxes_byand makes available fluxes%[bnd_]flux_[up|dn|net|dn_dir->"dir"]. - real(wp), dimension(:), allocatable :: flux_dn_top - real(wp), dimension(:,:), allocatable, target :: flux_up_clrsky, flux_net_clrsky - real(wp), dimension(:,:), allocatable, target :: flux_up_allsky, flux_net_allsky - real(wp), dimension(:,:,:), allocatable, target :: bnd_flux_dn_allsky, bnd_flux_net_allsky, bnd_flux_dir_allsky - - ! derived types for interacting with RRTMGP - ! (cloud_optics generates cloud_props from loaded - ! coefficients and cloud physical properties) - type(ty_gas_optics_rrtmgp), pointer :: k_dist - type(ty_gas_concs) :: gas_concs, gas_concs_subset - type(ty_cloud_optics) :: cloud_optics - type(ty_fluxes_byband) :: fluxes_clrsky, fluxes_allsky - - ! The band-space (ncol,nlay,nbnd) aerosol and in-cloud optical properties - ! Polymorphic with dynamic type (#streams) defined later - class(ty_optical_props_arry), allocatable :: & - cloud_props, cloud_props_subset, & - aer_props, aer_props_subset - - ! The g-point cloud optical properties used for mcICA - class(ty_optical_props_arry), allocatable :: cloud_props_gpt - - ! The g-point optical properties used in RT calculations - ! Polymorphic with dynamic type (#streams) defined later - class(ty_optical_props_arry), allocatable :: optical_props - - ! RRTMGP locals - logical :: top_at_1, partial_block, need_aer_optical_props - integer :: nbnd, ngpt, nmom, icergh - integer :: ib, b, nBlocks, colS, colE, ncols_subset, & - partial_blockSize, icol, isub - character(len=ESMF_MAXPATHLEN) :: k_dist_file, cloud_optics_file - character(len=ESMF_MAXSTR) :: error_msg - character(len=128) :: cloud_optics_type, cloud_overlap_type - type (ESMF_Time) :: ReferenceTime - type (ESMF_TimeInterval) :: RefreshInterval - - ! for global gcolumn index seeding of PRNGs - integer :: iBeg, iEnd, jBeg, jEnd - integer :: IM_World, JM_World, Gdims(3) - integer, dimension(IM,JM) :: Ig, Jg - - ! gridcolum presence of liq and ice clouds (ncol,nlay) - real(wp), dimension(:,:), allocatable :: clwp, ciwp - - ! a column random number generator -#ifdef HAVE_MKL - type(ty_rng_mklvsl_plus) :: rng -#endif - integer, dimension(:), allocatable :: seeds - - ! uniform random numbers need by mcICA (ngpt,nlay,cols) - real(wp), dimension(:,:,:), allocatable :: urand - - ! Cloud mask from overlap scheme (cols,nlay,ngpt) - logical, dimension(:,:,:), allocatable :: cld_mask - - ! TEMP ... see below - real(wp) :: press_ref_min, ptop - real(wp) :: temp_ref_min, tmin - real(wp), parameter :: ptop_increase_OK_fraction = 0.01_wp - real(wp), parameter :: tmin_increase_OK_Kelvin = 10.0_wp - - ! block size for column processing - ! set for efficiency from resource file - integer :: rrtmgp_blockSize - -! For Aerosol - integer :: in, idx, ibb, i - real, pointer, dimension(:,:,:) :: qaero, taua, ssaa, asya - - real, pointer, dimension(:,:,:) :: BUFIMP_AEROSOL_EXT => null() - real, pointer, dimension(:,:,:) :: BUFIMP_AEROSOL_SSA => null() - real, pointer, dimension(:,:,:) :: BUFIMP_AEROSOL_ASY => null() - real, allocatable, dimension(:,:,:) :: BUF_AEROSOL - -! Decorrelation length - real :: AM1, AM2, AM3, AM4, AMR - - ! CPU Topology information for RRTMGPU - ! ------------------------------------ - integer :: CoresPerNode - - character(len=ESMF_MAXSTR) :: NAME - - integer :: dims - integer :: NumVars - integer :: L, L1, LN, J, J1, JN, NA, K - integer :: NumLit, Num2do - - real, pointer :: QQ3(:,:,:), RR3(:,:,:), ptr3(:,:,:) - real, pointer :: ptr2(:,:), RH(:,:), PL(:,:), O3(:,:), PLTMP(:,:) - - character(len=ESMF_MAXSTR), allocatable :: NamesInp(:), NamesOut(:) - type (ESMF_FieldBundle) :: AEROBUNDLE - integer, allocatable :: SlicesInp(:),SlicesOut(:) - real, target, allocatable :: BufInp(:),BufOut(:) - integer :: NumMax, NumInp, NumOut, HorzDims(2), BufLen - -! helper for testing RRTMGP error status on return; -! allows line number reporting cf. original call method -#define TEST_(A) error_msg = A; if (trim(error_msg)/="") then; _ASSERT(.false.,"RRTMGP Error: "//trim(error_msg)); endif - -! Begin... -!---------- - - IAm = trim(COMP_NAME)//"Soradcore" - call MAPL_TimerOn(MAPL,"-MISC") - -! Get the average insolation for the next interval -!------------------------------------------------- - - call ESMF_AlarmGet(ALARM, RINGINTERVAL=TINT, __RC__) - call MAPL_SunGetInsolation( & - LONS, LATS, & - ORBIT, ZTH, SLR, & - INTV = TINT, & - currTime = currTime, & - TIME = SUNFLAG, & - DIST = DIST, & - __RC__) - - ! convert SLR to an ABSOLUTE downward flux [W/m2] for normalization purposes later - ! (SLR from MAPL_SunGetInsolation() already contains the DIST and ZTH effects) - SLR = SLR * SC - - ! prepare global gridcolumn indicies needed by random number generators - - ! get indicies of local rectangular grid - call MAPL_GridGet(ESMFGRID, globalCellCountPerDim=Gdims, __RC__) - IM_World = Gdims(1); JM_World = Gdims(2) - call MAPL_GridGetInterior (ESMFGRID,iBeg,iEnd,jBeg,jEnd) - do J=1,JM - do I=1,IM - Ig(I,J) = iBeg + I - 1 - Jg(I,J) = jBeg + J - 1 - end do - end do - - ! cosine solar zenith angle used by REFRESH - call MAPL_GetPointer(EXPORT, COSZSW, 'COSZSW', __RC__) - - ! super-layer RRTMG cloud fraction exports - call MAPL_GetPointer(EXPORT, CLDTTSW, 'CLDTTSW', __RC__) - call MAPL_GetPointer(EXPORT, CLDHISW, 'CLDHISW', __RC__) - call MAPL_GetPointer(EXPORT, CLDMDSW, 'CLDMDSW', __RC__) - call MAPL_GetPointer(EXPORT, CLDLOSW, 'CLDLOSW', __RC__) - - ! super-layer RRTMG PAR optical thickness exports - call MAPL_GetPointer(EXPORT, TAUTTPAR, 'TAUTTPAR', __RC__) - call MAPL_GetPointer(EXPORT, TAUHIPAR, 'TAUHIPAR', __RC__) - call MAPL_GetPointer(EXPORT, TAUMDPAR, 'TAUMDPAR', __RC__) - call MAPL_GetPointer(EXPORT, TAULOPAR, 'TAULOPAR', __RC__) - - call MAPL_TimerOff(MAPL,"-MISC") - -! Load balancing by packing the lit points and sharing work with night regions -!------------------------------------------------------------------------------ - - call MAPL_TimerOn(MAPL,"-BALANCE") - -! Identify lit soundings with the daytime mask -!---------------------------------------------- - - if (LoadBalance) then - daytime = ZTH > 0. - NumLit = count(daytime) - -! The load balancer does not work if there are no lit points. This is only -! important model-wise with the single-column model. Note we must protect -! ZTH since in solar, we divide by ZTH and, thus, we will get a divide-by- -! zero if not protected. -!-------------------------------------------------------------------------- - - else - ZTH = max(.0001,ZTH) - daytime = .true. - NumLit = size(ZTH) - end if - - ! write out the cosine solar zenith angle actually used by REFRESH - if (associated(COSZSW)) COSZSW = ZTH - -! Create a balancing strategy. This is a collective call on the communicator -! of the current VM. The original, unbalanced local work consists of (OrgLen) -! NumLit soundings, which may be zero. The local work after implementing the -! strategy consists of (BalLen) Num2do soundings, which is generally non-zero. -! The data movement to implement this strategy will occur when MAPL_BalanceWork -! is called to "distribute" excess work to less busy processors and later to -! "retrieve" that work to its home processor. Because the data balancing will be -! done "in place", the in-out buffer must be large enough to accomodate the data -! held at each stage (pass) of the balancing. This can be larger than the max of -! the initial and final sizes; so the required size is passed back in BufLen. -!------------------------------------------------------------------------------------ - - call ESMF_VMGetCurrent(VM, __RC__) - call ESMF_VMGet(VM, mpiCommunicator=COMM, __RC__) - - call MAPL_TimerOn(MAPL,"--CREATE") - - call MAPL_BalanceCreate( & - OrgLen=NumLit, Comm=COMM, Handle=SolarBalanceHandle, & - BalLen=Num2do, BufLen=NumMax, __RC__) - - call MAPL_TimerOff(MAPL,"--CREATE") - -! The number of input and output variables to the calculations. -! The input number is five greater than the IMPORTS because the -! component needs the LATS, SLR and ZTH from MAPL and the global -! gridcolumn indicies Ig and Jg. The outputs are the INTERNAL -! variables being refreshed plus four cloud fraction diagnostics -! (CLDTTSW, CLDHISW, CLDMDSW, CLDLOSW) & four optical thickness -! diagnostics (TAUTTPAR, TAUHIPAR, TAUMDPAR, TAULOPAR). -!-------------------------------------------------------------- - - NumInp = size(ImportSpec) + 5 - NumOut = size(InternalSpec) + 8 - - allocate(SlicesInp(NumInp), NamesInp(NumInp), & - SlicesOut(NumOut), NamesOut(NumOut), __STAT__) - - HorzDims = (/IM,JM/) - -! Count the 2D slices in the input variables and calculate -! the required length of the 1D input buffer (BufInp). -!---------------------------------------------------------- - - BufLen = 0 - - INPUT_VARS_1: do k=1,NumInp - - if (k < NumInp-4) then - call MAPL_VarSpecGet(ImportSpec(k), & - DIMS=dims, SHORT_NAME=NamesInp(k), __RC__) - else - dims = MAPL_DIMSHORZONLY - if (k == NumInp-4) then - NamesInp(k) = "Ig" - else if (k == NumInp-3) then - NamesInp(k) = "Jg" - else if (k == NumInp-2) then - NamesInp(k) = "LATS" - else if (k == NumInp-1) then - NamesInp(k) = "SLR" - else - NamesInp(k) = "ZTH" - end if - end if - - if (dims == MAPL_DIMSVERTONLY) then - - ! Skip PREF - SlicesInp(k) = 0 - - else - -! If Import is the aerosol bundle, we need to set NA and the list -! of aerosol names. Note that we are assuming all aerosol species -! are dimensions by LM levels. This will be asserted later. -!----------------------------------------------------------------- - - - if (NamesInp(k)=="AERO") then - - ! Aerosol input - - if (NO_AERO) then - ! This is a no aerosol call done for "clean" diagnostics - NA = 0 - else - if (implements_aerosol_optics) then - NA = 3 - else - NA = 0 - end if - end if - - SlicesInp(k) = LM*NA*NUM_BANDS_SOLAR - - else - - ! Non-aerosol input - - select case(dims) - - case(MAPL_DIMSHORZVERT) - ! We currently assume this case is 3D - call ESMFL_StateGetPointerToData(IMPORT, ptr3, NamesInp(k), __RC__) - SlicesInp(k) = size(ptr3,3) - - case(MAPL_DIMSHORZONLY) - SlicesInp(k) = 1 - - case default - _ASSERT(.false.,'unknown dims for SOLAR import') - - end select - - end if - end if - - BufLen = BufLen + NumMax*SlicesInp(k) - - enddo INPUT_VARS_1 - -! Allocate the buffer that will hold all balanced variables. The "inner" -! dimension of its 2D representation must be NumMax. -!------------------------------------------------------------------------ - - allocate(BufInp(BufLen),__STAT__) - BufInp = MAPL_UNDEF - -! Loop over imports, packing into the buffer that will be -! load balanced and used in the solar calculations. -!--------------------------------------------------------- - - LN = 0 - INPUT_VARS_2: do k=1,NumInp - L1 = LN + 1 - - if (SlicesInp(k) > 0) then ! Skip PREF - - if (NamesInp(k)=="AERO") then - - _ASSERT(size(AEROSOL_EXT,3)==LM,'mal-dimensioned AEROSOL_EXT') - _ASSERT(size(AEROSOL_SSA,3)==LM,'mal-dimensioned AEROSOL_SSA') - _ASSERT(size(AEROSOL_ASY,3)==LM,'mal-dimensioned AEROSOL_ASY') - - allocate(BUF_AEROSOL(size(AEROSOL_EXT,1), & - size(AEROSOL_EXT,2), & - size(AEROSOL_EXT,3)), __STAT__) - - ! pack extinctions - BUF_AEROSOL = MAPL_UNDEF - do j=1,NUM_BANDS_SOLAR - BUF_AEROSOL = AEROSOL_EXT(:,:,:,j) - call ReOrder(BufInp(L1 + (j-1)*LM*NumMax),BUF_AEROSOL,daytime,NumMax,& - HorzDims,LM,PACKIT) - end do - LN = L1 + NumMax*LM*NUM_BANDS_SOLAR - 1 - ptr3(1:NumMax,1:LM,1:NUM_BANDS_SOLAR) => BufInp(L1:LN) - BUFIMP_AEROSOL_EXT => ptr3(1:Num2do,:,:) - - ! pack single scattering albedos - L1 = LN + 1 - BUF_AEROSOL = MAPL_UNDEF - do j=1,NUM_BANDS_SOLAR - BUF_AEROSOL = AEROSOL_SSA(:,:,:,j) - call ReOrder(BufInp(L1 + (j-1)*LM*NumMax),BUF_AEROSOL,daytime,NumMax,& - HorzDims,LM,PACKIT) - end do - LN = L1 + NumMax*LM*NUM_BANDS_SOLAR - 1 - ptr3(1:NumMax,1:LM,1:NUM_BANDS_SOLAR) => BufInp(L1:LN) - BUFIMP_AEROSOL_SSA => ptr3(1:Num2do,:,:) - - ! pack asymmetry factors - L1 = LN + 1 - BUF_AEROSOL = MAPL_UNDEF - do j=1,NUM_BANDS_SOLAR - BUF_AEROSOL = AEROSOL_ASY(:,:,:,j) - call ReOrder(BufInp(L1 + (j-1)*LM*NumMax),BUF_AEROSOL,daytime,NumMax,& - HorzDims,LM,PACKIT) - end do - LN = L1 + NumMax*LM*NUM_BANDS_SOLAR - 1 - ptr3(1:NumMax,1:LM,1:NUM_BANDS_SOLAR) => BufInp(L1:LN) - BUFIMP_AEROSOL_ASY => ptr3(1:Num2do,:,:) - - deallocate(BUF_AEROSOL, __STAT__) - - else ! Non-aerosol imports. - - if (SlicesInp(k) /= 1) then - - ! pack 3D imports - call ESMFL_StateGetPointerToData(IMPORT, ptr3, NamesInp(k), __RC__) - call ReOrder(BufInp(L1),ptr3,daytime,NumMax,HorzDims,size(ptr3,3),PACKIT) - - LN = L1 + NumMax*size(ptr3,3) - 1 - - else ! case(MAPL_DIMSHORZONLY) - - ! pack auxilliary variables - if (NamesInp(k) == 'Ig') then - call ReOrder(BufInp(L1),real(Ig),daytime,NumMax,HorzDims,1,PACKIT) - else if (NamesInp(k) == 'Jg') then - call ReOrder(BufInp(L1),real(Jg),daytime,NumMax,HorzDims,1,PACKIT) - else if (NamesInp(k) == 'LATS') then - call ReOrder(BufInp(L1),LATS, daytime,NumMax,HorzDims,1,PACKIT) - else if (NamesInp(k) == 'SLR') then - call ReOrder(BufInp(L1),SLR, daytime,NumMax,HorzDims,1,PACKIT) - else if (NamesInp(k) == 'ZTH') then - call ReOrder(BufInp(L1),ZTH, daytime,NumMax,HorzDims,1,PACKIT) - else - ! pack 2D imports - call ESMFL_StateGetPointerToData(IMPORT, ptr2, NamesInp(k), __RC__) - call ReOrder(BufInp(L1),ptr2, daytime,NumMax,HorzDims,1,PACKIT) - end if - - LN = L1 + NumMax - 1 - - end if - - ! Handles for the working input (Import) variables. - ! These use Fortran 2003 syntax for reshaping a 1D - ! vector into a higher rank array. - !-------------------------------------------------- - - ptr2(1:NumMax,1:SlicesInp(k)) => BufInp(L1:LN) - - select case(NamesInp(k)) - case('PLE') - PLE => ptr2(1:Num2do,:) - case('TS') - TS => ptr2(1:Num2do,1) - case('CH4') - CH4 => ptr2(1:Num2do,:) - case('N2O') - N2O => ptr2(1:Num2do,:) - case('T') - T => ptr2(1:Num2do,:) - case('QV') - Q => ptr2(1:Num2do,:) - case('OX') - OX => ptr2(1:Num2do,:) - case('FCLD') - CL => ptr2(1:Num2do,:) - case('QL') - QL => ptr2(1:Num2do,:) - case('QI') - QI => ptr2(1:Num2do,:) - case('QR') - QR => ptr2(1:Num2do,:) - case('QS') - QS => ptr2(1:Num2do,:) - case('RL') - RL => ptr2(1:Num2do,:) - case('RI') - RI => ptr2(1:Num2do,:) - case('RR') - RR => ptr2(1:Num2do,:) - case('RS') - RS => ptr2(1:Num2do,:) - case('ALBVR') - ALBVR => ptr2(1:Num2do,1) - case('ALBVF') - ALBVF => ptr2(1:Num2do,1) - case('ALBNR') - ALBNR => ptr2(1:Num2do,1) - case('ALBNF') - ALBNF => ptr2(1:Num2do,1) - case('Ig') - Ig1D => ptr2(1:Num2do,1) - case('Jg') - Jg1D => ptr2(1:Num2do,1) - case('LATS') - ALAT => ptr2(1:Num2do,1) - case('SLR') - SLR1D => ptr2(1:Num2do,1) - case('ZTH') - ZT => ptr2(1:Num2do,1) - end select - - end if ! AERO vs non AERO input - - end if ! skip PREF - - enddo INPUT_VARS_2 - -! Load balance the inputs -!------------------------ - - call MAPL_TimerOn(MAPL,"--DISTRIBUTE") - - call MAPL_BalanceWork(BufInp, NumMax, Direction=MAPL_Distribute, Handle=SolarBalanceHandle, __RC__) - - call MAPL_TimerOff(MAPL,"--DISTRIBUTE") - -! Count the slices of internals, which will hold the intent(OUT) results of the -! calculations. In Solar calculations there are no INOUT variables. -!------------------------------------------------------------------------------ - - OUTPUT_VARS_1: do k=1,NumOut - - if (k < NumOut-7) then - ! internal outputs - call MAPL_VarSpecGet(InternalSpec(k), & - DIMS=dims, SHORT_NAME=NamesOut(k), __RC__) - else - ! cloud fraction outputs - dims = MAPL_DIMSHORZONLY - if (k == NumOut-7) then - NamesOut(k) = "CLDTTSW" - else if (k == NumOut-6) then - NamesOut(k) = "CLDHISW" - else if (k == NumOut-5) then - NamesOut(k) = "CLDMDSW" - else if (k == NumOut-4) then - NamesOut(k) = "CLDLOSW" - else if (k == NumOut-3) then - NamesOut(k) = "TAUTTPAR" - else if (k == NumOut-2) then - NamesOut(k) = "TAUHIPAR" - else if (k == NumOut-1) then - NamesOut(k) = "TAUMDPAR" - else - NamesOut(k) = "TAULOPAR" - end if - end if - - ! Exclude unused internals - if ( NO_AERO .and. & - ( 'FSWN' == NamesOut(k) .or. 'FSCN' == NamesOut(k) .or. & - 'FSWUN' == NamesOut(k) .or. 'FSCUN' == NamesOut(k) .or. & - 'FSWBANDN' == NamesOut(k) ) & - .or. & - .not.NO_AERO .and. & - ( 'FSWNAN' == NamesOut(k) .or. 'FSCNAN' == NamesOut(k) .or. & - 'FSWUNAN' == NamesOut(k) .or. 'FSCUNAN' == NamesOut(k) .or. & - 'FSWBANDNAN' == NamesOut(k) ) & - ) then - - SlicesOut(k) = 0 - cycle - end if - - if (dims == MAPL_DIMSHORZVERT .or. & - NamesOut(k) == 'FSWBANDN' .or. & - NamesOut(k) == 'FSWBANDNAN') then - - call ESMFL_StateGetPointerToData(INTERNAL, ptr3, NamesOut(k), __RC__) - SlicesOut(k) = size(ptr3,3) - - else if (dims == MAPL_DIMSHORZONLY) then - - SlicesOut(k) = 1 - - else - - _ASSERT(.false.,'unknown dims for SOLAR input') - - end if - - enddo OUTPUT_VARS_1 - -! Allocate the output buffer with enough space to hold both the -! balanced and unbalanced data associated with the local PE. -!-------------------------------------------------------------- - - allocate(BufOut(NumMax*sum(SlicesOut)),__STAT__) - -! Handles for the working output variables. -! These have an inner dimension of the balanced work. -!----------------------------------------------------- - - L1 = 1 - OUTPUT_VARS_2: do k=1,NumOut - if (SlicesOut(k) == 0) cycle - - LN = L1 + SlicesOut(k)*NumMax - 1 - ptr2(1:NumMax,1:SlicesOut(k)) => BufOut(L1:LN) - L1 = LN + 1 - - select case(NamesOut(k)) - case('FSWN') - FSW => ptr2(1:Num2do,:) - case('FSCN') - FSC => ptr2(1:Num2do,:) - case('FSWUN') - FSWU => ptr2(1:Num2do,:) - case('FSCUN') - FSCU => ptr2(1:Num2do,:) - case('FSWBANDN') - FSWBAND => ptr2(1:Num2do,:) - case('DRUVRN') - UVRR => ptr2(1:Num2do,1) - case('DFUVRN') - UVRF => ptr2(1:Num2do,1) - case('DRPARN') - PARR => ptr2(1:Num2do,1) - case('DFPARN') - PARF => ptr2(1:Num2do,1) - case('DRNIRN') - NIRR => ptr2(1:Num2do,1) - case('DFNIRN') - NIRF => ptr2(1:Num2do,1) - case('FSWNAN') - FSWA => ptr2(1:Num2do,:) - case('FSCNAN') - FSCA => ptr2(1:Num2do,:) - case('FSWUNAN') - FSWUA => ptr2(1:Num2do,:) - case('FSCUNAN') - FSCUA => ptr2(1:Num2do,:) - case('FSWBANDNAN') - FSWBANDA => ptr2(1:Num2do,:) - case('CLDTTSW') - CLDTS => ptr2(1:Num2do,1) - case('CLDHISW') - CLDHS => ptr2(1:Num2do,1) - case('CLDMDSW') - CLDMS => ptr2(1:Num2do,1) - case('CLDLOSW') - CLDLS => ptr2(1:Num2do,1) - case('TAUTTPAR') - TAUTP => ptr2(1:Num2do,1) - case('TAUHIPAR') - TAUHP => ptr2(1:Num2do,1) - case('TAUMDPAR') - TAUMP => ptr2(1:Num2do,1) - case('TAULOPAR') - TAULP => ptr2(1:Num2do,1) - end select - - enddo OUTPUT_VARS_2 - - call MAPL_TimerOff(MAPL,"-BALANCE") - -! Do shortwave calculations on a list of soundings -!------------------------------------------------- -!------------------------------------------------- - - call MAPL_TimerOn(MAPL,"-MISC") - - ! Point to correct outputs - ! ------------------------ - - if(NO_AERO) then - FSW => FSWA - FSC => FSCA - FSWU => FSWUA - FSCU => FSCUA - FSWBAND => FSWBANDA - end if - - ! Prepare auxilliary variables - ! ---------------------------- - - allocate(RH (size(Q,1),size(Q,2)),__STAT__) - allocate(PL (size(Q,1),size(Q,2)),__STAT__) - allocate(PLTMP (size(PLE,1),size(PLE,2)),__STAT__) - - PL = 0.5*(PLE(:,:UBOUND(PLE,2)-1)+PLE(:,LBOUND(PLE,2)+1:)) - RH = Q/MAPL_EQSAT(T,PL=PL) - PLTMP = PLE * 0.01 ! hPa version for shrtwave - - ! Water amounts and effective radii are in arrays indexed by species - !------------------------------------------------------------------- - - allocate(QQ3 (size(Q,1),size(Q,2),4),__STAT__) - allocate(RR3 (size(Q,1),size(Q,2),4),__STAT__) - - QQ3(:,:,1) = QI - QQ3(:,:,2) = QL - QQ3(:,:,3) = QR - QQ3(:,:,4) = QS - RR3(:,:,1) = RI*1.e6 ! microns - RR3(:,:,2) = RL*1.e6 - RR3(:,:,3) = RR*1.e6 - RR3(:,:,4) = RS*1.e6 - - ! Convert odd oxygen, which is the model prognostic, to ozone - !------------------------------------------------------------ - - allocate(O3 (size(Q,1),size(Q,2)),__STAT__) - - O3 = OX - WHERE(PL < 100.) - O3 = O3 * EXP(-1.5*(LOG10(PL)-2.)**2) - ENDWHERE - - ! SORAD expects non-negative ozone fraction by MASS - !-------------------------------------------------- - - O3 = O3 * (MAPL_O3MW / MAPL_AIRMW) - O3 = MAX(O3, 0.00) - - ! ------------------ - ! Begin aerosol code - ! ------------------ - - ! Allocate per-band aerosol arrays for shortwave code - ! --------------------------------------------------- - - allocate(TAUA(size(Q,1),size(Q,2),NUM_BANDS_SOLAR),__STAT__) - allocate(SSAA(size(Q,1),size(Q,2),NUM_BANDS_SOLAR),__STAT__) - allocate(ASYA(size(Q,1),size(Q,2),NUM_BANDS_SOLAR),__STAT__) - - ! Zero out aerosol arrays. If NA == 0, these zeroes are then used inside the code. - ! -------------------------------------------------------------------------------- - - TAUA = 0.0 - SSAA = 0.0 - ASYA = 0.0 - - ! If we have aerosols, load them - ! ------------------------------ - - if (NA > 0) then - TAUA = BUFIMP_AEROSOL_EXT - SSAA = BUFIMP_AEROSOL_SSA - ASYA = BUFIMP_AEROSOL_ASY - end if - - call MAPL_TimerOff(MAPL,"-MISC") - - ! Call the requested Shortwave scheme - ! ----------------------------------- - - SCHEME: if (USE_CHOU) then - call shrtwave( & - PLTMP, T, Q, O3, CO2, ZT, & - QQ3, RR3, CL, & - LCLDMH,LCLDLM, & - ALBVR, ALBVF, ALBNR, ALBNF, & - TAUA,SSAA,ASYA, & - - FSW ,FSC , & - NIRR,NIRF,PARR,PARF,UVRR,UVRF, & - FSWU,FSCU, & - FSWBAND, & - __RC__ ) - - else if (USE_RRTMGP) then - - call MAPL_TimerOn(MAPL,"-RRTMGP",__RC__) - - ! number of columns after load balancing - ncol = size(Q,1) - - call MAPL_TimerOn(MAPL, name="--RRTMGP_SETUP_1", __RC__) - - ! absorbing gas names - error_msg = gas_concs%init([character(3) :: & - 'h2o','co2','o3','n2o','co','ch4','o2','n2']) - TEST_(error_msg) - - ! load gas concentrations (volume mixing ratios) - ! "constant" gases - TEST_(gas_concs%set_vmr('n2' , real(N2 ,kind=wp))) - TEST_(gas_concs%set_vmr('o2' , real(O2 ,kind=wp))) - TEST_(gas_concs%set_vmr('co2', real(CO2,kind=wp))) - TEST_(gas_concs%set_vmr('co' , real(CO ,kind=wp))) - ! variable gases - ! (ozone converted from mass mixing ratio, water vapor from specific humidity) - TEST_(gas_concs%set_vmr('ch4', real(CH4 ,kind=wp))) - TEST_(gas_concs%set_vmr('n2o', real(N2O ,kind=wp))) - TEST_(gas_concs%set_vmr('o3' , real(O3 *(MAPL_AIRMW/MAPL_O3MW ),kind=wp))) - TEST_(gas_concs%set_vmr('h2o', real(Q/(1.-Q)*(MAPL_AIRMW/MAPL_H2OMW),kind=wp))) - - call MAPL_TimerOff(MAPL, name="--RRTMGP_SETUP_1", __RC__) - - call MAPL_TimerOn(MAPL, name="--RRTMGP_IO_1", __RC__) - - ! access RRTMGP internal state from the GC - call ESMF_UserCompGetInternalState(GC, 'RRTMGP_state', wrap, status) - VERIFY_(status) - rrtmgp_state => wrap%ptr - - ! initialize k-distribution if not already done - call MAPL_GetResource( & - MAPL, k_dist_file, "RRTMGP_DATA_SW:", & - DEFAULT='rrtmgp-data-sw.nc',__RC__) - if (.not. rrtmgp_state%initialized) then - ! gas_concs needed only to access required gas names - call load_and_init( & - rrtmgp_state%k_dist, trim(k_dist_file), gas_concs) - if (.not. rrtmgp_state%k_dist%source_is_external()) then - TEST_('RRTMGP-SW: does not seem to be SW') - endif - rrtmgp_state%initialized = .true. - endif - - ! access by shorter name - k_dist => rrtmgp_state%k_dist - - call MAPL_TimerOff(MAPL, name="--RRTMGP_IO_1", __RC__) - - call MAPL_TimerOn(MAPL, name="--RRTMGP_SETUP_2", __RC__) - - ! adjust sun for current faculae and sunspots (tsi scaling done later) - ! for the moment we are requiring MG and SB indicies from the NRLSSI2 file - _ASSERT(SolCycFileName /= '/dev/null' .and. USE_NRLSSI2, 'RRTMGP-SW: MG and SB not available') - error_msg = k_dist%set_solar_variability(real(MG,kind=wp),real(SB,kind=wp)) - TEST_(error_msg) - - ! spectral dimensions - ngpt = k_dist%get_ngpt() - nbnd = k_dist%get_nband() - _ASSERT(nbnd == NB_RRTMGP, 'RRTMGP-SW: expected different number of bands') - - ! note: use k_dist%get_band_lims_wavenumber() - ! to access band limits. - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! pmn: check if same bands as RRTMG --- need code solution to make more flexible !!!! - ! from RRTMG: - ! wavenum1(:) = (/2600., 3250., 4000., 4650., 5150., 6150., 7700., 8050.,12850.,16000.,22650.,29000.,38000., 820./) - ! wavenum2(:) = (/3250., 4000., 4650., 5150., 6150., 7700., 8050., 12850.,16000.,22650.,29000.,38000.,50000., 2600./) - ! from RRTMGP: - ! write(*,*) 'band_lims_wvn(2,nbnd):', k_dist%get_band_lims_wavenumber() - ! output reordered as above - ! 820., 2680., 3250., 4000., 4650., 5150., 6150., 7700., 8050., 12850., 16000., 22650., 29000., 38000. - ! 2680., 3250., 4000., 4650., 5150., 6150., 7700., 8050., 12850., 16000., 22650., 29000., 38000., 50000. - ! clearly there are some differences ... so aerosol tables were redone - ! mainly band 14 becomes band 1, plus small change in wavenumber upper limit of that band only - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - ! allocate input arrays - allocate(tsi(ncol), mu0(ncol), __STAT__) - allocate(sfc_alb_dir(nbnd,ncol), sfc_alb_dif(nbnd,ncol), __STAT__) - allocate(p_lay(ncol,LM), t_lay(ncol,LM), p_lev(ncol,LM+1), dp_wp(ncol,LM), __STAT__) - - ! load input arrays ... - - ! solar inputs: - ! 1. cosine of solar zenith angle, mu0 - ! Note: this ZT, ultimately from ZTH of MAPL_SunGetInsolation(), - ! is not just a simple-minded time-mean of cos(sza) over the - ! REFRESH interval, but a flux-weighted time-mean of cos(sza). - mu0 = real(ZT, kind=wp) - ! 2. total solar irradiance, tsi, NORMAL to solar beam [W/m2] - ! NB: the naive approach would be to use a scalar, tsi = SC * DIST. - ! But tsi is ultimately multiplied by mu0 in the radiative transfer, - ! to yield a vertical flux, and then should be equal to the actual - ! vertical solar flux at the TOA, namely SLR1D. We must therefore - ! use SLR1D/mu0. This is not the same as SC * DIST, not only because - ! of time co-variation of sza and DIST, but also because of the more - ! nuanced definition of ZTH in item 1 above. - ! Note: mu0 cannot be zero since running for daytime columns only. - tsi = real(SLR1D, kind=wp) / mu0 - ! 3. surface albedos - ! NIR bands (1-9: 820-12850 cm-1, 0.778-12.195 microns) - do ib=1,9 - sfc_alb_dir(ib,:) = real(ALBNR, kind=wp) - sfc_alb_dif(ib,:) = real(ALBNF, kind=wp) - enddo - ! UV/visible bands (11-14: 16000-50000 cm-1, 0.200-0.625 micron) - do ib=11,14 - sfc_alb_dir(ib,:) = real(ALBVR, kind=wp) - sfc_alb_dif(ib,:) = real(ALBVF, kind=wp) - enddo - ! Transition band (10, 12850-16000 cm-1, 0.625-0.778 micron) - ! Take average, dmlee - sfc_alb_dir(10,:) = real((ALBVR+ALBNR)/2., kind=wp) - sfc_alb_dif(10,:) = real((ALBVF+ALBNF)/2., kind=wp) - - ! basic profiles - p_lay = real(PL , kind=wp) - t_lay = real(T , kind=wp) - p_lev = real(PLE, kind=wp) - - ! RRTMGP's rte_sw takes a vertical ordering flag - ! (no need to flip columns as with RRTMG) - top_at_1 = p_lay(1, 1) < p_lay(1, LM) - _ASSERT(top_at_1, 'unexpected vertical ordering') - - ! layer pressure thicknesses used for cloud water path calculations - ! (better to do before any KLUGE to top pressure) - dp_wp = p_lev(:,2:LM+1) - p_lev(:,1:LM) - - ! pmn: pressure KLUGE - ! Because currently k_dist%press_ref_min ~ 1.005 > GEOS-5 ptop of 1.0 Pa. - ! Find better solution, perhaps getting AER to add a higher top. - press_ref_min = k_dist%get_press_min() - ptop = minval(p_lev(:,1)) - if (press_ref_min > ptop) then - ! allow a small increase of ptop - if (press_ref_min - ptop <= ptop * ptop_increase_OK_fraction) then - where (p_lev(:,1) < press_ref_min) p_lev(:,1) = press_ref_min - ! make sure no pressure ordering issues were created - _ASSERT(all(p_lev(:,1) < p_lay(:,1)), 'pressure kluge causes misordering') - else - write(*,*) ' A ', ptop_increase_OK_fraction, & - ' fractional increase of ptop was insufficient' - write(*,*) ' RRTMGP, GEOS-5 top (Pa)', press_ref_min, ptop - TEST_('Model top too high for RRTMGP') - endif - endif - - ! pmn: temperature KLUGE - ! Currently k_dist%temp_ref_min = 160K but GEOS-5 has a global minimum - ! temperature below this occasionally (< 1% of time). (The lowest temp - ! seen is so far 151K). Consequently we will limit min(t_lay) to 160K. - ! Find better solution, perhaps getting AER to produce a table with a - ! lower minimum temperature. - temp_ref_min = k_dist%get_temp_min() - tmin = minval(t_lay) - if (temp_ref_min > tmin) then - ! allow a small increase of tmin - if (temp_ref_min - tmin <= tmin_increase_OK_Kelvin) then - where (t_lay < temp_ref_min) t_lay = temp_ref_min - else - write(*,*) ' A ', tmin_increase_OK_Kelvin, & - 'K increase of tmin was insufficient' - write(*,*) ' RRTMGP, GEOS-5 t_min (K)', temp_ref_min, tmin - TEST_('Found excessively cold model temperature for RRTMGP') - endif - endif - - ! allocation of output arrays - allocate(flux_up_clrsky (ncol,LM+1), flux_net_clrsky(ncol,LM+1), __STAT__) - allocate(flux_up_allsky (ncol,LM+1), flux_net_allsky(ncol,LM+1), __STAT__) - allocate(bnd_flux_dn_allsky (ncol,LM+1,nbnd), & - bnd_flux_net_allsky(ncol,LM+1,nbnd), & - bnd_flux_dir_allsky(ncol,LM+1,nbnd), __STAT__) - - ! ===================================================================================== - ! IMPORTANT: Specify the type (#streams) of the SW RT calculations in optical_props - ! ===================================================================================== - ! While the aerosol system currently provides two-stream properties, as do the cloud - ! optics files, we may choose any number of streams for the actual RT calculations by - ! the appropriate instantiation of optical_props here. The increment() statements below - ! implicitly convert all component optical properties to this number of streams. - ! Everything else in the code should adapt polymorphically without modification. - ! Options are: 1scl (no scattering), 2str (2-stream), or nstr (n-stream). - ! For nstr, must also specify the number of phase function moments (nmom) below. - ! ===================================================================================== - - ! instantiate optical_props with desired streams - allocate(ty_optical_props_2str::optical_props,__STAT__) - nmom = 2 ! Used only if nstr, in which case must be >= 2 - - ! initialize spectral discretiz'n and gpt mapping of optical_props - TEST_(optical_props%init(k_dist)) - - call MAPL_TimerOff(MAPL, name="--RRTMGP_SETUP_2", __RC__) - - ! get cloud optical properties (band-only) - ! pmn: some of this should be done only once per run ... TBD - - call MAPL_TimerOn(MAPL, name="--RRTMGP_IO_2", __RC__) - - ! load and init cloud_optics from file - ! (gets appropriate coefficients needed to calculate - ! cloud optical properties from cloud physical properties) - call MAPL_GetResource( & - MAPL, cloud_optics_file, "RRTMGP_CLOUD_OPTICS_COEFFS_SW:", & - DEFAULT='rrtmgp-cloud-optics-coeffs-sw.nc', __RC__) - call MAPL_GetResource( & - MAPL, cloud_optics_type, "RRTMGP_CLOUD_OPTICS_TYPE_SW:", & - DEFAULT='LUT', __RC__) - if (trim(cloud_optics_type)=='LUT') then - call load_cld_lutcoeff (cloud_optics, cloud_optics_file) - elseif (trim(cloud_optics_type)=='PADE') then - call load_cld_padecoeff(cloud_optics, cloud_optics_file) - else - TEST_('unknown cloud_optics_type: '//trim(cloud_optics_file)) - end if - - call MAPL_TimerOff(MAPL, name="--RRTMGP_IO_2", __RC__) - - ! ice surface roughness category for Yang (2013) ice optics - ! icergh: 1 = none, 2 = medium, 3 = high - call MAPL_GetResource( & - MAPL, icergh, "RRTMGP_ICE_ROUGHNESS_SW:", & - DEFAULT=2, __RC__) - TEST_(cloud_optics%set_ice_roughness(icergh)) - - call MAPL_TimerOn(MAPL,"--RRTMGP_SETUP_3",__RC__) - - ! cloud optics file is currently two-stream - ! increment() will handle appropriate stream conversions - allocate(ty_optical_props_2str::cloud_props,__STAT__) - select type (cloud_props) - class is (ty_optical_props_2str) - ! band-only initialization - TEST_(cloud_props%alloc_2str(ncol, LM, k_dist%get_band_lims_wavenumber())) - ! allocate a subset for blocking use - allocate(ty_optical_props_2str::cloud_props_subset,__STAT__) - ! allocate a gpt version for cloud sampling - allocate(ty_optical_props_2str::cloud_props_gpt,__STAT__) - class default - TEST_('cloud_props hardwired 2-stream for now') - end select - - call MAPL_TimerOff(MAPL,"--RRTMGP_SETUP_3",__RC__) - - call MAPL_TimerOn(MAPL,"--RRTMGP_CLOUD_OPTICS",__RC__) - - ! make band in-cloud optical properties from cloud_optics - allocate(clwp(ncol,LM), ciwp(ncol,LM),__STAT__) - clwp = real(QQ3(:,:,2),kind=wp) * dp_wp * cwp_fac ! in-cloud [g/m2] - ciwp = real(QQ3(:,:,1),kind=wp) * dp_wp * cwp_fac ! in-cloud [g/m2] - error_msg = cloud_optics%cloud_optics( & - clwp, ciwp, & - real(RR3(:,:,2),kind=wp), real(RR3(:,:,1),kind=wp), & - cloud_props) - TEST_(error_msg) - deallocate(clwp, ciwp, __STAT__) - - call MAPL_TimerOff(MAPL,"--RRTMGP_CLOUD_OPTICS",__RC__) - - ! note: have made cloud_props for all ncol columns - ! and will subset below into blocks ... we can also - ! look at option of making cloud_props for each block - ! as its needed ... same for aer_props - - ! read desired cloud overlap type - call MAPL_GetResource( & - MAPL, cloud_overlap_type, "RRTMGP_CLOUD_OVERLAP_TYPE_SW:", & - DEFAULT='MAX_RAN_OVERLAP', __RC__) - - call MAPL_TimerOn(MAPL,"--RRTMGP_MCICA",__RC__) - - ! =============================================================================== - ! Random number setup: - ! =============================================================================== - ! We will use the Philox4x32-10 or ARS5 BRNGs from MKL VSL. - ! Both are keyed families of counter-based PRNGs with a large period 2^130 - ! and a minimal state space (unlike the large Mersenne Twister state). - ! Philox4x32-10 has a 64-bit key and a 128-bit counter and is very fast on GPUs. - ! ARS5 has a 128-bit key and a 128-bit counter and is superfast on CPUs for - ! which AES-NI instructions are hardware implemented. - ! The SEEDING STRATEGY we will follow is to use a unique key for the gricolumn - ! location and the simulation time. This gives a repeatable set of random numbers - ! that remains the same for the members of an ensemble. If a different set is - ! required for ensemble members, then the model state, such as the fractional - ! part of the surface pressure, should be incorporated into the key. - ! To get a different set of random numbers for the LW, for example, either a - ! key change or a counter advance will be needed. - ! - ! Time Component of key: - ! ~~~~~~~~~~~~~~~~~~~~~~ - ! 1. No need to update more frequently than once per SW refresh. - ! 2. should reference the number of such intervals since a fixed time, so - ! that agnostic to stop/restart schedule. - ! - ! Space component of key: - ! ~~~~~~~~~~~~~~~~~~~~~~~ - ! 1. should be based on some globally unique index for a gridcolumn, so that - ! each gridcolumn is independent and so it is agnostic to runs with varying - ! decompositions among processors. - ! 2. 2^32 = 4,294,967,296 or about 2.1475e9 positives, which can represent - ! globe at over 1/180th degree resolution, so plenty for forseeable - ! future. - ! - ! Philox seeding: - ! ~~~~~~~~~~~~~~~ - ! 1. a scalar 32-bit seed sets the lower bits of the key k. - ! 2. a vector of 32-bit seeds of length N is used as follows: - ! (a) N = 0: k = c = 0; - ! (b) N in {1,2}: seeds(1(:2)) set lower (and upper) words of key - ! (c) N > 2: ditto plus seeds(3:min(N,6)) set counter c, - ! starting from lowest word and working up. - ! - ! Estimate of maximum LW random numbers needed per gridcolumn: - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! For the current clouds, with homogeneous optical properies in the cloudy part - ! of each layer, only one random number per layer and gpt is needed. So estimate - ! LM * ngpt <~ 132 * 256 = 33,792 < 2^16 = 65,536 - ! =============================================================================== - - allocate(seeds(3),__STAT__) ! 2-word key plus word1 of counter - - ! seed(1), the column part (word1) of key is set later - - ! get time part (word2) of key - call ESMF_TimeSet (ReferenceTime, yy=2000, mm=1, dd=1, __RC__) - call ESMF_AlarmGet(ALARM, RINGINTERVAL=RefreshInterval, __RC__) - seeds(2) = int((CurrTime - ReferenceTime) / RefreshInterval) - - ! for SW start at counter=65,536 - seeds(3) = 65536 - - call MAPL_TimerOff(MAPL,"--RRTMGP_MCICA",__RC__) - - ! get aerosol optical properties - need_aer_optical_props = (.not. NO_AERO .and. implements_aerosol_optics) - if (need_aer_optical_props) then - - call MAPL_TimerOn(MAPL,"--RRTMGP_AEROSOL_SETUP",__RC__) - - ! aerosol optics system is currently two-stream - ! increment() will handle appropriate stream conversions - allocate(ty_optical_props_2str::aer_props,__STAT__) - select type (aer_props) - class is (ty_optical_props_2str) - - ! band-only initialization - TEST_(aer_props%alloc_2str(ncol, LM, k_dist%get_band_lims_wavenumber())) - - ! load un-normalized optical properties from aerosol system - aer_props%tau = real(TAUA,kind=wp) - aer_props%ssa = real(SSAA,kind=wp) - aer_props%g = real(ASYA,kind=wp) - - ! renormalize - where (aer_props%tau > 0._wp .and. aer_props%ssa > 0._wp) - aer_props%g = aer_props%g / aer_props%ssa - aer_props%ssa = aer_props%ssa / aer_props%tau - elsewhere - aer_props%tau = 0._wp - aer_props%ssa = 0._wp - aer_props%g = 0._wp - end where - - ! allocate a subset for blocking use - allocate(ty_optical_props_2str::aer_props_subset,__STAT__) - - class default - TEST_('aer_props hardwired 2-stream for now') - - end select - - call MAPL_TimerOff(MAPL,"--RRTMGP_AEROSOL_SETUP",__RC__) - - end if - - !--------------------------------------------------! - ! Loop over subsets (blocks) of blockSize columns ! - ! - choose rrtmgp_blockSize for efficiency ! - ! - one possible partial block is done at the end ! - !--------------------------------------------------! - - call MAPL_GetResource( MAPL, & - rrtmgp_blockSize, "RRTMGP_SW_BLOCKSIZE:", DEFAULT=4, __RC__) - _ASSERT(rrtmgp_blockSize >= 1, 'bad RRTMGP_SW_BLOCKSIZE') - - ! for random numbers, for efficiency, reserve the maximum possible - ! subset of columns (rrtmgp_blockSize) since column index is last - allocate(urand(ngpt,LM,rrtmgp_blocksize), __STAT__) - - ! number of full blocks by integer division - nBlocks = ncol/rrtmgp_blockSize - - ! allocate intermediate arrays for full blocks - if (nBlocks > 0) then - - call MAPL_TimerOn(MAPL,"--RRTMGP_SUBSET",__RC__) - - ! block size until possible final partial block - ncols_subset = rrtmgp_blockSize - - ! allocate subset for block - select type (optical_props) - class is (ty_optical_props_1scl) - TEST_(optical_props%alloc_1scl( ncols_subset, LM)) - class is (ty_optical_props_2str) - TEST_(optical_props%alloc_2str( ncols_subset, LM)) - class is (ty_optical_props_nstr) - TEST_(optical_props%alloc_nstr(nmom, ncols_subset, LM)) - end select - - if (allocated(toa_flux)) then - deallocate(toa_flux, __STAT__) - endif - allocate(toa_flux(ncols_subset, ngpt), __STAT__) - - if (allocated(cld_mask)) then - deallocate(cld_mask, __STAT__) - endif - allocate(cld_mask(ncols_subset, LM, ngpt), __STAT__) - - call MAPL_TimerOff(MAPL,"--RRTMGP_SUBSET",__RC__) - - end if - - ! add final partial block if necessary - partial_block = mod(ncol, rrtmgp_blockSize) /= 0 - if (partial_block) then - partial_blockSize = ncol - nBlocks * rrtmgp_blockSize - nBlocks = nBlocks + 1 - endif - - ! loop over all blocks - do b = 1, nBlocks - - call MAPL_TimerOn(MAPL,"--RRTMGP_SUBSET",__RC__) - - ! only the final block can be partial - if (b == nBlocks .and. partial_block) then - ncols_subset = partial_blockSize - - select type (optical_props) - class is (ty_optical_props_1scl) - TEST_(optical_props%alloc_1scl( ncols_subset, LM)) - class is (ty_optical_props_2str) - TEST_(optical_props%alloc_2str( ncols_subset, LM)) - class is (ty_optical_props_nstr) - TEST_(optical_props%alloc_nstr(nmom, ncols_subset, LM)) - end select - - if (allocated(toa_flux)) then - deallocate(toa_flux, __STAT__) - endif - allocate(toa_flux(ncols_subset, ngpt), __STAT__) - - if (allocated(cld_mask)) then - deallocate(cld_mask, __STAT__) - endif - allocate(cld_mask(ncols_subset, LM, ngpt), __STAT__) - - endif - - ! prepare block - colS = (b-1) * rrtmgp_blockSize + 1 - colE = colS + ncols_subset - 1 - TEST_(gas_concs%get_subset(colS, ncols_subset, gas_concs_subset)) - - ! get column subset of aerosol and in-cloud cloud optical props - if (need_aer_optical_props) then - TEST_(aer_props%get_subset(colS, ncols_subset, aer_props_subset)) - end if - TEST_(cloud_props%get_subset(colS, ncols_subset, cloud_props_subset)) - - call MAPL_TimerOff(MAPL,"--RRTMGP_SUBSET",__RC__) - - call MAPL_TimerOn(MAPL,"--RRTMGP_MCICA",__RC__) - - ! generate McICA random numbers for subset - ! Note: really only needed where cloud fraction > 0 (speedup?) - ! Also, perhaps later this can be parallelized? -#ifdef HAVE_MKL - do isub = 1, ncols_subset - ! local 1d column index - icol = colS + isub - 1 - ! initialize the Philox PRNG - ! set word1 of key based on GLOBAL location - ! 32-bits can hold all forseeable resolutions - seeds(1) = nint(Jg1D(icol)) * IM_World + nint(Ig1D(icol)) - ! instantiate a random number stream for the column - call rng%init(VSL_BRNG_PHILOX4X32X10,seeds) - ! draw the random numbers for the column - urand(:,:,isub) = reshape(rng%get_random(ngpt*LM),(/ngpt,LM/)) - ! free the rng - call rng%end() - end do -#endif - - ! cloud sampling to gpoints - select case (cloud_overlap_type) - case ("MAX_RAN_OVERLAP") - error_msg = sampled_mask_max_ran( & - urand(:,:,1:ncols_subset), real(CL(colS:colE,:),kind=wp), cld_mask) - TEST_(error_msg) - case ("EXP_RAN_OVERLAP") - TEST_('EXP_RAN_OVERLAP not yet implemented') - !TEST_(sampled_mask_exp_ran()) - case default - TEST_('RRTMGP_LW: unknown cloud overlap') - end select - - ! draw McICA optical property samples (band->gpt) - select type (cloud_props_gpt) - class is (ty_optical_props_2str) - TEST_(cloud_props_gpt%alloc_2str(ncols_subset, LM, k_dist)) - class default - TEST_('cloud_props_gpt hardwired 2-stream for now') - end select - TEST_(draw_samples(cld_mask, cloud_props_subset, cloud_props_gpt)) - - call MAPL_TimerOff(MAPL,"--RRTMGP_MCICA",__RC__) - - call MAPL_TimerOn(MAPL,"--RRTMGP_GAS_OPTICS",__RC__) - - ! gas optics, including source functions - error_msg = k_dist%gas_optics( & - p_lay(colS:colE,:), p_lev(colS:colE,:), t_lay(colS:colE,:), & - gas_concs_subset, optical_props, toa_flux) - TEST_(error_msg) - - call MAPL_TimerOff(MAPL,"--RRTMGP_GAS_OPTICS",__RC__) - - call MAPL_TimerOn(MAPL,"--RRTMGP_RT",__RC__) - - ! scale to our tsi - ! (both toa_flux and tsi are NORMAL to solar beam, [W/m2]) - toa_flux = toa_flux * spread(tsi(colS:colE)/sum(toa_flux,dim=2), 2, ngpt) - - ! add in aerosol optical properties if requested and available - if (need_aer_optical_props) then - TEST_(aer_props_subset%increment(optical_props)) - end if - - ! clear-sky radiative transfer - fluxes_clrsky%flux_up => flux_up_clrsky(colS:colE,:) - fluxes_clrsky%flux_net => flux_net_clrsky(colS:colE,:) - error_msg = rte_sw( & - optical_props, top_at_1, mu0(colS:colE), toa_flux, & - sfc_alb_dir(:,colS:colE), sfc_alb_dif(:,colS:colE), & - fluxes_clrsky) - TEST_(error_msg) - - ! add in cloud optical properties - TEST_(cloud_props_gpt%increment(optical_props)) - - ! all-sky radiative transfer - fluxes_allsky%flux_up => flux_up_allsky(colS:colE,:) - fluxes_allsky%flux_net => flux_net_allsky(colS:colE,:) - fluxes_allsky%bnd_flux_dn => bnd_flux_dn_allsky(colS:colE,:,:) - fluxes_allsky%bnd_flux_dn_dir => bnd_flux_dir_allsky(colS:colE,:,:) - fluxes_allsky%bnd_flux_net => bnd_flux_net_allsky(colS:colE,:,:) - error_msg = rte_sw( & - optical_props, top_at_1, mu0(colS:colE), toa_flux, & - sfc_alb_dir(:,colS:colE), sfc_alb_dif(:,colS:colE), & - fluxes_allsky) - TEST_(error_msg) - - call MAPL_TimerOff(MAPL,"--RRTMGP_RT",__RC__) - - end do ! loop over blocks - - call MAPL_TimerOn(MAPL,"--RRTMGP_POST",__RC__) - - ! normalize by incoming solar radiation - allocate(flux_dn_top(ncol), __STAT__) - flux_dn_top(:) = real(max(SLR1D, 1e-7), kind=wp) - do k = 1, LM+1 - flux_up_clrsky (:,k) = flux_up_clrsky (:,k) / flux_dn_top(:) - flux_net_clrsky(:,k) = flux_net_clrsky(:,k) / flux_dn_top(:) - end do - do k = 1, LM+1 - flux_up_allsky (:,k) = flux_up_allsky (:,k) / flux_dn_top(:) - flux_net_allsky(:,k) = flux_net_allsky(:,k) / flux_dn_top(:) - end do - do ib = 1, nbnd - do k = 1, LM+1 - bnd_flux_dn_allsky (:,k,ib) = bnd_flux_dn_allsky (:,k,ib) / flux_dn_top(:) - bnd_flux_net_allsky(:,k,ib) = bnd_flux_net_allsky(:,k,ib) / flux_dn_top(:) - bnd_flux_dir_allsky(:,k,ib) = bnd_flux_dir_allsky(:,k,ib) / flux_dn_top(:) - end do - end do - deallocate(flux_dn_top, __STAT__) - - ! load output arrays - ! clear-sky fluxes - FSCU = real(flux_up_clrsky) - FSC = real(flux_net_clrsky) - ! all-sky fluxes - FSWU = real(flux_up_allsky) - FSW = real(flux_net_allsky) - ! surface net flux per band - do ib = 1, nbnd - FSWBAND(:,ib) = real(bnd_flux_net_allsky(:,LM+1,ib)) - end do - ! surface direct and diffuse downward in super-bands - ! for *diffuse* downward must subtract direct (downward) from total downward - ! NIR bands (1-9: 820-12850 cm-1, 0.778-12.195 microns) - NIRR(:) = 0.; NIRF(:) = 0. - do ib=1,9 - NIRR(:) = NIRR(:) + real(bnd_flux_dir_allsky(:,LM+1,ib)) - NIRF(:) = NIRF(:) + real(bnd_flux_dn_allsky (:,LM+1,ib) - bnd_flux_dir_allsky(:,LM+1,ib)) - end do - ! PAR bands (11-12: 16000-29000 cm-1, 0.345-0.625 micron) - PARR(:) = 0.; PARF(:) = 0. - do ib=11,12 - PARR(:) = PARR(:) + real(bnd_flux_dir_allsky(:,LM+1,ib)) - PARF(:) = PARF(:) + real(bnd_flux_dn_allsky (:,LM+1,ib) - bnd_flux_dir_allsky(:,LM+1,ib)) - enddo - ! UVR bands (13-14: 29000-50000 cm-1, 0.200-0.345 micron) - UVRR(:) = 0.; UVRF(:) = 0. - do ib=13,14 - UVRR(:) = UVRR(:) + real(bnd_flux_dir_allsky(:,LM+1,ib)) - UVRF(:) = UVRF(:) + real(bnd_flux_dn_allsky (:,LM+1,ib) - bnd_flux_dir_allsky(:,LM+1,ib)) - enddo - ! Transition band (10, 12850-16000 cm-1, 0.625-0.778 micron) - ! split half-and-half to PAR and NIR - NIRR(:) = NIRR(:) + 0.5 * real(bnd_flux_dir_allsky(:,LM+1,10)) - PARR(:) = PARR(:) + 0.5 * real(bnd_flux_dir_allsky(:,LM+1,10)) - NIRF(:) = NIRF(:) + 0.5 * real(bnd_flux_dn_allsky (:,LM+1,10) - bnd_flux_dir_allsky(:,LM+1,10)) - PARF(:) = PARF(:) + 0.5 * real(bnd_flux_dn_allsky (:,LM+1,10) - bnd_flux_dir_allsky(:,LM+1,10)) - - ! clean up - call optical_props%finalize() - if (need_aer_optical_props) then - call aer_props_subset%finalize() - call aer_props%finalize() - end if - call cloud_props_gpt%finalize() - call cloud_props_subset%finalize() - deallocate(seeds,__STAT__) - deallocate(urand, __STAT__) - deallocate(cld_mask, __STAT__) - call cloud_props%finalize() - call cloud_optics%finalize() - deallocate(flux_up_clrsky, flux_net_clrsky, __STAT__) - deallocate(flux_up_allsky, flux_net_allsky, __STAT__) - deallocate(bnd_flux_dn_allsky, bnd_flux_net_allsky, bnd_flux_dir_allsky, __STAT__) - deallocate(p_lay, t_lay, p_lev, dp_wp, __STAT__) - deallocate(tsi, mu0, sfc_alb_dir, sfc_alb_dif, toa_flux, __STAT__) - - call MAPL_TimerOff(MAPL,"--RRTMGP_POST",__RC__) - - call MAPL_TimerOff(MAPL,"-RRTMGP",__RC__) - - else if (USE_RRTMG) then - - call MAPL_TimerOn(MAPL,"-RRTMG") - - NCOL = size(Q,1) - - ! reversed (flipped) vertical dimension arrays and other RRTMG arrays - ! ------------------------------------------------------------------- - - ! interface (between layer) variables - allocate(TLEV (size(Q,1),size(Q,2)+1),__STAT__) - allocate(TLEV_R(size(Q,1),size(Q,2)+1),__STAT__) - allocate(PLE_R (size(Q,1),size(Q,2)+1),__STAT__) - ! cloud physical properties - allocate(FCLD_R(size(Q,1),size(Q,2)),__STAT__) - allocate(CLIQWP(size(Q,1),size(Q,2)),__STAT__) - allocate(CICEWP(size(Q,1),size(Q,2)),__STAT__) - allocate(RELIQ (size(Q,1),size(Q,2)),__STAT__) - allocate(REICE (size(Q,1),size(Q,2)),__STAT__) - ! aerosol optical properties - allocate(TAUAER(size(Q,1),size(Q,2),NB_RRTMG),__STAT__) - allocate(SSAAER(size(Q,1),size(Q,2),NB_RRTMG),__STAT__) - allocate(ASMAER(size(Q,1),size(Q,2),NB_RRTMG),__STAT__) - ! layer variables - allocate(DPR (size(Q,1),size(Q,2)),__STAT__) - allocate(PL_R (size(Q,1),size(Q,2)),__STAT__) - allocate(ZL_R (size(Q,1),size(Q,2)),__STAT__) - allocate(T_R (size(Q,1),size(Q,2)),__STAT__) - allocate(Q_R (size(Q,1),size(Q,2)),__STAT__) - allocate(O2_R (size(Q,1),size(Q,2)),__STAT__) - allocate(O3_R (size(Q,1),size(Q,2)),__STAT__) - allocate(CO2_R (size(Q,1),size(Q,2)),__STAT__) - allocate(CH4_R (size(Q,1),size(Q,2)),__STAT__) - ! super-layer cloud fractions - allocate(CLEARCOUNTS (size(Q,1),4),__STAT__) - ! output fluxes - allocate(SWUFLX (size(Q,1),size(Q,2)+1),__STAT__) - allocate(SWDFLX (size(Q,1),size(Q,2)+1),__STAT__) - allocate(SWUFLXC(size(Q,1),size(Q,2)+1),__STAT__) - allocate(SWDFLXC(size(Q,1),size(Q,2)+1),__STAT__) - ! un-flipped outputs - allocate(SWUFLXR (size(Q,1),size(Q,2)+1),__STAT__) - allocate(SWDFLXR (size(Q,1),size(Q,2)+1),__STAT__) - allocate(SWUFLXCR(size(Q,1),size(Q,2)+1),__STAT__) - allocate(SWDFLXCR(size(Q,1),size(Q,2)+1),__STAT__) - ! surface broadband fluxes - allocate(NIRR_R (size(Q,1)),__STAT__) - allocate(NIRF_R (size(Q,1)),__STAT__) - allocate(PARR_R (size(Q,1)),__STAT__) - allocate(PARF_R (size(Q,1)),__STAT__) - allocate(UVRR_R (size(Q,1)),__STAT__) - allocate(UVRF_R (size(Q,1)),__STAT__) - - ! Set flags related to cloud properties (see RRTMG_SW) - ! ---------------------------------------------------- - - ICEFLGSW = 3 - LIQFLGSW = 1 - - ! Get number of cores per node for RRTMG GPU - ! ------------------------------------------ - - ! Reuse the COMM from above - CoresPerNode = MAPL_CoresPerNodeGet(COMM, RC=STATUS) - - ! Normalize aerosol inputs - ! ------------------------ - - if (NA > 0) then - where (TAUA > 0.0 .and. SSAA > 0.0 ) - ASYA = ASYA/SSAA - SSAA = SSAA/TAUA - elsewhere - TAUA = 0.0 - SSAA = 0.0 - ASYA = 0.0 - end where - end if - - ! Flip in vertical, Convert units, and interpolate T, etc. - ! -------------------------------------------------------- - ! RRTMG index convention is that indices increase from bottom to top - - call MAPL_TimerOn (MAPL,"--RRTMG_FLIP") - - DPR(:,1:LM) = (PLE(:,2:LM+1)-PLE(:,1:LM)) - - ! cloud water paths converted from g/g to g/m^2 - CICEWP(:,1:LM) = (1.02*100*DPR(:,LM:1:-1))*QQ3(:,LM:1:-1,1) - CLIQWP(:,1:LM) = (1.02*100*DPR(:,LM:1:-1))*QQ3(:,LM:1:-1,2) - - ! cloud effective radii with limits imposed as assumed by RRTMG - REICE (:,1:LM) = RR3(:,LM:1:-1,1) - RELIQ (:,1:LM) = RR3(:,LM:1:-1,2) - - IF (ICEFLGSW == 0) THEN - WHERE (REICE < 10.) REICE = 10. - WHERE (REICE > 30.) REICE = 30. - ELSE IF (ICEFLGSW == 1) THEN - WHERE (REICE < 13.) REICE = 13. - WHERE (REICE > 130.) REICE = 130. - ELSE IF (ICEFLGSW == 2) THEN - WHERE (REICE < 5.) REICE = 5. - WHERE (REICE > 131.) REICE = 131. - ELSE IF (ICEFLGSW == 3) THEN - WHERE (REICE < 5.) REICE = 5. - WHERE (REICE > 140.) REICE = 140. - ELSE IF (ICEFLGSW == 4) THEN - REICE(:,:) = REICE(:,:)*2. - WHERE (REICE < 1.) REICE = 1. - WHERE (REICE > 200.) REICE = 200. - END IF - - IF (LIQFLGSW == 0) THEN - WHERE (RELIQ < 10.) RELIQ = 10. - WHERE (RELIQ > 30.) RELIQ = 30. - ELSE IF (LIQFLGSW == 1) THEN - WHERE (RELIQ < 2.5) RELIQ = 2.5 - WHERE (RELIQ > 60.) RELIQ = 60. - END IF - - ! regular (non-flipped) interface temperatures - TLEV(:,2:LM)=(T(:,1:LM-1)* DPR(:,2:LM) + T(:,2:LM) * DPR(:,1:LM-1)) & - /(DPR(:,1:LM-1) + DPR(:,2:LM)) - TLEV(:,LM+1) = TS(:) - TLEV(:, 1) = TLEV(:,2) - - ! flip in vertical ... - - PLE_R (:,1:LM+1) = PLE (:,LM+1:1:-1) / 100. ! hPa - TLEV_R(:,1:LM+1) = TLEV(:,LM+1:1:-1) - - PL_R (:,1:LM ) = PL (:,LM:1:-1) / 100. ! hPa - T_R (:,1:LM ) = T (:,LM:1:-1) - - ! Specific humidity is converted to Volume Mixing Ratio - Q_R (:,1:LM ) = Q (:,LM:1:-1) / (1.-Q(:,LM:1:-1)) * (MAPL_AIRMW/MAPL_H2OMW) - - ! Ozone is converted Mass Mixing Ratio to Volume Mixing Ratio - O3_R (:,1:LM ) = O3 (:,LM:1:-1) * (MAPL_AIRMW/MAPL_O3MW) - - ! chemistry and cloud fraction - ! (cloud water paths and effective radii flipped already) - CH4_R (:,1:LM ) = CH4(:,LM:1:-1) - CO2_R (:,1:LM ) = CO2 - O2_R (:,1:LM ) = O2 - FCLD_R(:,1:LM ) = CL (:,LM:1:-1) - - ! Adjustment for Earth/Sun distance, from MAPL_SunGetInsolation - ADJES = DIST - - ! Layer mid-point heights relative to zero at index 1 - ZL_R(:,1) = 0. - do k=2,LM - ! dz = RT/g x dp/p - ! Note: This is correct even though its different from LW. - ! Its because SW uses LE[V]_R 1:LM+1 while LW uses 0:LM. - ZL_R(:,k) = ZL_R(:,k-1) + MAPL_RGAS*TLEV_R(:,k)/MAPL_GRAV*(PL_R(:,k-1)-PL_R(:,k))/PLE_R(:,k) - enddo - - ! aerosols - TAUAER(:,1:LM,:) = TAUA(:,LM:1:-1,:) - SSAAER(:,1:LM,:) = SSAA(:,LM:1:-1,:) - ASMAER(:,1:LM,:) = ASYA(:,LM:1:-1,:) - - call MAPL_TimerOff(MAPL,"--RRTMG_FLIP") - call MAPL_TimerOn (MAPL,"--RRTMG_INIT") - - ! initialize RRTMG SW - call RRTMG_SW_INI - - call MAPL_TimerOff(MAPL,"--RRTMG_INIT") - call MAPL_TimerOn (MAPL,"--RRTMG_RUN") - - ! partition size for columns (profiles) used to improve efficiency - call MAPL_GetResource( MAPL, RPART, 'RRTMGSW_PARTITION_SIZE:', DEFAULT=0, __RC__) - - ! various RRTMG configuration options ... - - IAER = 10 ! Per AER: - ! 0: Turns off aerosols - ! 10: Enables aerosols - - NORMFLX = 1 ! 0: Do not normalize fluxes - ! 1: Normalize fluxes - - DYOFYR = DOY ! Day of year - - call MAPL_GetResource( MAPL, ISOLVAR ,'ISOLVAR:', DEFAULT=0, __RC__) - - ! ISOLVAR: - ! Flag for solar variability method - ! -1 = (when scon .eq. 0.0): No solar variability - ! and no solar cycle (Kurucz solar irradiance - ! of 1368.22 Wm-2 only); - ! (when scon .ne. 0.0): Kurucz solar irradiance - ! scaled to scon and solar variability defined - ! (optional) by setting non-zero scale factors - ! for each band in bndsolvar - ! 0 = (when SCON .eq. 0.0): No solar variability - ! and no solar cycle (NRLSSI2 solar constant of - ! 1360.85 Wm-2 for the 100-50000 cm-1 spectral - ! range only), with facular and sunspot effects - ! fixed to the mean of Solar Cycles 13-24; - ! (when SCON .ne. 0.0): No solar variability - ! and no solar cycle (NRLSSI2 solar constant of - ! 1360.85 Wm-2 for the 100-50000 cm-1 spectral - ! range only), is scaled to SCON - ! 1 = Solar variability (using NRLSSI2 solar - ! model) with solar cycle contribution - ! determined by fraction of solar cycle - ! with facular and sunspot variations - ! fixed to their mean variations over the - ! average of Solar Cycles 13-24; - ! two amplitude scale factors allow - ! facular and sunspot adjustments from - ! mean solar cycle as defined by indsolvar - ! 2 = Solar variability (using NRLSSI2 solar - ! model) over solar cycle determined by - ! direct specification of Mg (facular) - ! and SB (sunspot) indices provided - ! in indsolvar (scon = 0.0 only) - ! 3 = (when scon .eq. 0.0): No solar variability - ! and no solar cycle (NRLSSI2 solar irradiance - ! of 1360.85 Wm-2 only); - ! (when scon .ne. 0.0): NRLSSI2 solar irradiance - ! scaled to scon and solar variability defined - ! (optional) by setting non-zero scale factors - ! for each band in bndsolvar - - if (ISOLVAR == 1) then - if (MAPL_AM_I_ROOT()) then - write (*,*) "ERROR in RRTMG_SW" - write (*,*) "ISOLVAR==1 is currently unsupported as we have no" - write (*,*) "way of correctly setting solcycfrac." - end if - _ASSERT(.FALSE.,'RRTMG SW: ISOLVAR==1 currently unsupported') - end if - - ! INDSOLVAR = Facular and sunspot amplitude - ! scale factors (isolvar=1), or - ! Mg and SB indices (isolvar=2) - ! Dimensions: (2) - - if (ISOLVAR == 2) then - - ! Solar indices from our file - INDSOLVAR(1) = MG - INDSOLVAR(2) = SB - - else - - call MAPL_GetResource( MAPL, INDSOLVAR(1) ,'INDSOLVAR_1:', DEFAULT=1.0, __RC__) - call MAPL_GetResource( MAPL, INDSOLVAR(2) ,'INDSOLVAR_2:', DEFAULT=1.0, __RC__) - - end if - - - BNDSOLVAR = 1.0 ! Solar variability scale factors - ! for each shortwave band - ! Dimensions: (nbndsw=14) - - ! SOLCYCFRAC: Fraction of averaged 11-year solar cycle (0-1) - ! at current time (isolvar=1) - ! 0.0 represents the first day of year 1 - ! 1.0 represents the last day of year 11 - - ! MAT: Note while we don't currently use SOLCYCFRAC, we set it to something - ! to avoid an optional variable on GPUs - - call MAPL_GetResource( MAPL, SOLCYCFRAC ,'SOLCYCFRAC:', DEFAULT=1.0, __RC__) - - ! call RRTMG SW - ! ------------- - - call RRTMG_SW ( & - RPART, NCOL, LM, & - SC, ADJES, ZT, ISOLVAR, & - PL_R, PLE_R, T_R, & - Q_R, O3_R, CO2_R, CH4_R, O2_R, & - ICEFLGSW, LIQFLGSW, & - FCLD_R, CICEWP, CLIQWP, REICE, RELIQ, & - DYOFYR, ZL_R, ALAT, & - IAER, TAUAER, SSAAER, ASMAER, & - ALBVR, ALBVF, ALBNR, ALBNF, & - LM-LCLDLM+1, LM-LCLDMH+1, NORMFLX, & - CLEARCOUNTS, SWUFLX, SWDFLX, SWUFLXC, SWDFLXC, & - NIRR_R, NIRF_R, PARR_R, PARF_R, UVRR_R, UVRF_R,& - TAUTP, TAUHP, TAUMP, TAULP, & - BNDSOLVAR, INDSOLVAR, SOLCYCFRAC) - - call MAPL_TimerOff(MAPL,"--RRTMG_RUN") - call MAPL_TimerOn (MAPL,"--RRTMG_FLIP") - - ! unflip the outputs in the vertical - ! ---------------------------------- - - SWUFLXR (:,1:LM+1) = SWUFLX (:,LM+1:1:-1) - SWDFLXR (:,1:LM+1) = SWDFLX (:,LM+1:1:-1) - SWUFLXCR(:,1:LM+1) = SWUFLXC(:,LM+1:1:-1) - SWDFLXCR(:,1:LM+1) = SWDFLXC(:,LM+1:1:-1) - - call MAPL_TimerOff(MAPL,"--RRTMG_FLIP") - - ! required outputs - ! ---------------- - - ! convert super-layer clearCounts to cloud fractions - CLDTS(:) = 1. - CLEARCOUNTS(:,1)/float(NGPTSW) - CLDHS(:) = 1. - CLEARCOUNTS(:,2)/float(NGPTSW) - CLDMS(:) = 1. - CLEARCOUNTS(:,3)/float(NGPTSW) - CLDLS(:) = 1. - CLEARCOUNTS(:,4)/float(NGPTSW) - - FSW = SWDFLXR - SWUFLXR - FSC = SWDFLXCR - SWUFLXCR - FSWU = SWUFLXR - FSCU = SWUFLXCR - - ! MAT Just set the FSWBAND to MAPL_UNDEF. More work will - ! be needed if this is to be extracted from RRTMG as - ! it does not seem to be an output - - FSWBAND = MAPL_UNDEF - - NIRR(:) = NIRR_R(:) - NIRF(:) = NIRF_R(:) - PARR(:) = PARR_R(:) - PARF(:) = PARF_R(:) - UVRR(:) = UVRR_R(:) - UVRF(:) = UVRF_R(:) - - ! Deallocate the working inputs - !------------------------------ - deallocate(TLEV ,__STAT__) - deallocate(TLEV_R,__STAT__) - deallocate(PLE_R ,__STAT__) - deallocate(FCLD_R,__STAT__) - deallocate(CLIQWP,__STAT__) - deallocate(CICEWP,__STAT__) - deallocate(RELIQ ,__STAT__) - deallocate(REICE ,__STAT__) - - deallocate(TAUAER,__STAT__) - deallocate(SSAAER,__STAT__) - deallocate(ASMAER,__STAT__) - deallocate(DPR ,__STAT__) - deallocate(PL_R ,__STAT__) - deallocate(ZL_R ,__STAT__) - deallocate(T_R ,__STAT__) - deallocate(Q_R ,__STAT__) - deallocate(O2_R ,__STAT__) - deallocate(O3_R ,__STAT__) - deallocate(CO2_R ,__STAT__) - deallocate(CH4_R ,__STAT__) - - deallocate(CLEARCOUNTS ,__STAT__) - - deallocate(SWUFLX ,__STAT__) - deallocate(SWDFLX ,__STAT__) - deallocate(SWUFLXC,__STAT__) - deallocate(SWDFLXC,__STAT__) - - deallocate(SWUFLXR ,__STAT__) - deallocate(SWDFLXR ,__STAT__) - deallocate(SWUFLXCR,__STAT__) - deallocate(SWDFLXCR,__STAT__) - - deallocate(NIRR_R,__STAT__) - deallocate(NIRF_R,__STAT__) - deallocate(PARR_R,__STAT__) - deallocate(PARF_R,__STAT__) - deallocate(UVRR_R,__STAT__) - deallocate(UVRF_R,__STAT__) - - call MAPL_TimerOff(MAPL,"-RRTMG") - - else - - _ASSERT(.FALSE.,'unknown SW radiation scheme!') - - end if SCHEME - - ! Deallocate the working inputs - !------------------------------ - - deallocate (PL, RH, PLTMP) - deallocate (QQ3, RR3) - deallocate (O3) - deallocate (TAUA, SSAA, ASYA) - -! Complete load balancing by retrieving work done remotely -!--------------------------------------------------------- - - call MAPL_TimerOn(MAPL,"-BALANCE") - - call MAPL_TimerOn(MAPL,"--RETRIEVE") - - call MAPL_BalanceWork(BufOut, NumMax, Direction=MAPL_Retrieve, Handle=SolarBalanceHandle, __RC__) - - call MAPL_TimerOff(MAPL,"--RETRIEVE") - -! Unpack the results. ReOrder fills masked (night) locations with zero. -!---------------------------------------------------------------------- - - L1 = 1 - OUTPUT_VARS_3: do k=1,NumOut - if (SlicesOut(k) == 0) cycle - - if (SlicesOut(k) > 1) then - ! internal 3D outputs - call ESMFL_StateGetPointerToData(INTERNAL, ptr3, NamesOut(k), __RC__) - call ReOrder(BufOut(L1),ptr3,daytime,NumMax,HorzDims,size(ptr3,3),UNPACKIT) - else if (k < NumOut-7) then - ! internal 2D outputs - call ESMFL_StateGetPointerToData(INTERNAL, ptr2, NamesOut(k), __RC__) - call ReOrder(BufOut(L1),ptr2,daytime,NumMax,HorzDims,1,UNPACKIT) - else - ! cloud fraction outputs (2D) - if (NamesOut(k) == "CLDTTSW") then - if (associated(CLDTTSW)) then - call ReOrder(BufOut(L1),CLDTTSW,daytime,NumMax,HorzDims,1,UNPACKIT) - WHERE (.not.daytime) CLDTTSW = MAPL_UNDEF - end if - else if (NamesOut(k) == "CLDHISW") then - if (associated(CLDHISW)) then - call ReOrder(BufOut(L1),CLDHISW,daytime,NumMax,HorzDims,1,UNPACKIT) - WHERE (.not.daytime) CLDHISW = MAPL_UNDEF - end if - else if (NamesOut(k) == "CLDMDSW") then - if (associated(CLDMDSW)) then - call ReOrder(BufOut(L1),CLDMDSW,daytime,NumMax,HorzDims,1,UNPACKIT) - WHERE (.not.daytime) CLDMDSW = MAPL_UNDEF - end if - else if (NamesOut(k) == "CLDLOSW") then - if (associated(CLDLOSW)) then - call ReOrder(BufOut(L1),CLDLOSW,daytime,NumMax,HorzDims,1,UNPACKIT) - WHERE (.not.daytime) CLDLOSW = MAPL_UNDEF - end if - else if (NamesOut(k) == "TAUTTPAR") then - if (associated(TAUTTPAR)) then - call ReOrder(BufOut(L1),TAUTTPAR,daytime,NumMax,HorzDims,1,UNPACKIT) - WHERE (.not.daytime) TAUTTPAR = MAPL_UNDEF - end if - else if (NamesOut(k) == "TAUHIPAR") then - if (associated(TAUHIPAR)) then - call ReOrder(BufOut(L1),TAUHIPAR,daytime,NumMax,HorzDims,1,UNPACKIT) - WHERE (.not.daytime) TAUHIPAR = MAPL_UNDEF - end if - else if (NamesOut(k) == "TAUMDPAR") then - if (associated(TAUMDPAR)) then - call ReOrder(BufOut(L1),TAUMDPAR,daytime,NumMax,HorzDims,1,UNPACKIT) - WHERE (.not.daytime) TAUMDPAR = MAPL_UNDEF - end if - else if (NamesOut(k) == "TAULOPAR") then - if (associated(TAULOPAR)) then - call ReOrder(BufOut(L1),TAULOPAR,daytime,NumMax,HorzDims,1,UNPACKIT) - WHERE (.not.daytime) TAULOPAR = MAPL_UNDEF - end if - end if - end if - - L1 = L1 + NumMax*SlicesOut(k) - - enddo OUTPUT_VARS_3 ! Over all output variables - -! These are the contiguous versions of the working inputs and internals -!---------------------------------------------------------------------- - - deallocate(BufInp,BufOut,SlicesInp,SlicesOut,NamesInp,NamesOut,__STAT__) - - call MAPL_TimerOn(MAPL,"--DESTROY") - - call MAPL_BalanceDestroy(Handle=SolarBalanceHandle, __RC__) - - call MAPL_TimerOff(MAPL,"--DESTROY") - - call MAPL_TimerOff(MAPL,"-BALANCE") - -! All done -!----------- - - RETURN_(ESMF_SUCCESS) - end subroutine SORADCORE - - - - subroutine SHRTWAVE(PLTMP,TA,WA,OA,CO2,COSZ , & - CWC,REFF,FCLD,ICT,ICB , & - RGBUV,RGFUV,RGBIR,RGFIR, & - TAUA,SSAA,ASYA, & - - FLX, FLC , & - FDIRIR, FDIFIR , & - FDIRPAR,FDIFPAR , & - FDIRUV, FDIFUV , & - FLXU, FLCU , & - FLXBAND, & - - RC ) - - -! Inlineable cover for the f77 version of SORAD. -! This cover works on a 1D run of soundings. - - real, dimension(:,: ), intent(IN ) :: PLTMP,TA, WA, OA, FCLD - real, dimension(:,:,: ), intent(IN ) :: CWC, REFF - real, intent(IN ) :: CO2 - integer, intent(IN ) :: ICT, ICB - real, dimension(: ), intent(IN ) :: COSZ, RGBUV, RGFUV, RGBIR, RGFIR - real, dimension(:,:,: ), intent(IN ) :: TAUA, SSAA, ASYA - - - real, dimension(:,: ), intent(OUT) :: FLX, FLC - real, dimension(:,: ), intent(OUT) :: FLXU, FLCU - real, dimension(: ), intent(OUT) :: FDIRIR, FDIFIR - real, dimension(: ), intent(OUT) :: FDIRPAR,FDIFPAR - real, dimension(: ), intent(OUT) :: FDIRUV, FDIFUV - real, dimension(:,: ), intent(OUT) :: FLXBAND - - integer, optional, intent(OUT) :: RC - -! Locals -!------- - - integer :: IRUN, LN - - INTEGER :: IDX,I,J,K,IN,IB,L - INTEGER :: STATUS - -#ifdef _CUDA - ! CUDA Fortran gridding - type(dim3) :: Grid, Block - integer :: blocksize -#endif - -! Begin -!------ - - call MAPL_TimerOn(MAPL,"-MISC") - - IRUN = SIZE(TA,1) - LN = SIZE(TA,2) - - call MAPL_TimerOff(MAPL,"-MISC") - - call MAPL_TimerOn(MAPL,"-SORAD") - -#ifdef _CUDA - - call MAPL_GetResource(MAPL,BLOCKSIZE,'BLOCKSIZE:',DEFAULT=128,RC=STATUS) - VERIFY_(STATUS) - - ! Set up the CUDA Model variables - Block = dim3(blocksize,1,1) - Grid = dim3(ceiling(real(IRUN)/real(blocksize)),1,1) - - _ASSERT(LN <= GPU_MAXLEVS,'needs informative message') ! If this is tripped, ESMA_arch.mk must - ! be edited. - - call MAPL_TimerOn(MAPL,"--SORAD_ALLOC",RC=STATUS) - VERIFY_(STATUS) - - ! ---------------------- - ! Allocate device arrays - ! ---------------------- - - ! Inputs - ! ------ - - ALLOCATE(COSZ_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(PL_DEV(IRUN,LN+1), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(TA_DEV(IRUN,LN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(WA_DEV(IRUN,LN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(OA_DEV(IRUN,LN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(CWC_DEV(IRUN,LN,4), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(FCLD_DEV(IRUN,LN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(REFF_DEV(IRUN,LN,4), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(RSUVBM_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(RSUVDF_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(RSIRBM_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(RSIRDF_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - - ! Constant Tables in Device Memory - ! -------------------------------- - - ! GPU These are in device memory because they are accessed randomly - ! Constant memory is best for values that are broadcast to all - ! threads. Plus, being in global means caching could occur. - - ALLOCATE(COA(62,101), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(CAH(43,37), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(CAIB(11,9,11), STAT=STATUS) - VERIFY_(STATUS) - ALLOCATE(CAIF(9,11), STAT=STATUS) - VERIFY_(STATUS) - - ! Aerosol Inputs - ! -------------- - - ALLOCATE(TAUA_DEV(IRUN,LN,NB_CHOU), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(SSAA_DEV(IRUN,LN,NB_CHOU), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(ASYA_DEV(IRUN,LN,NB_CHOU), STAT = STATUS) - VERIFY_(STATUS) - - ! Outputs - ! ------- - - ALLOCATE(FLX_DEV(IRUN,LN+1), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(FLC_DEV(IRUN,LN+1), STAT = STATUS) - VERIFY_(STATUS) - allocate(FLXU_DEV(IRUN,LN+1), stat = STATUS) - VERIFY_(STATUS) - allocate(FLCU_DEV(IRUN,LN+1), stat = STATUS) - VERIFY_(STATUS) - ALLOCATE(FDIRUV_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(FDIFUV_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(FDIRPAR_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(FDIFPAR_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(FDIRIR_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(FDIFIR_DEV(IRUN), STAT = STATUS) - VERIFY_(STATUS) - ALLOCATE(FLX_SFC_BAND_DEV(IRUN,NB_CHOU), STAT = STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOff(MAPL,"--SORAD_ALLOC",RC=STATUS) - VERIFY_(STATUS) - - ! Copy host inputs to device - ! -------------------------- - - call MAPL_TimerOn(MAPL,"--SORAD_DATA",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"---SORAD_DATA_DEVICE",RC=STATUS) - VERIFY_(STATUS) - - ! Inputs - ! ------ - - STATUS = cudaMemcpy(COSZ_DEV,COSZ,IRUN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(PL_DEV,PLTMP,IRUN*(LN+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(TA_DEV,TA,IRUN*LN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(WA_DEV,WA,IRUN*LN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(OA_DEV,OA,IRUN*LN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(CWC_DEV,CWC,IRUN*LN*4) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FCLD_DEV,FCLD,IRUN*LN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(REFF_DEV,REFF,IRUN*LN*4) - VERIFY_(STATUS) - STATUS = cudaMemcpy(RSUVBM_DEV,RGBUV,IRUN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(RSUVDF_DEV,RGFUV,IRUN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(RSIRBM_DEV,RGBIR,IRUN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(RSIRDF_DEV,RGFIR,IRUN) - VERIFY_(STATUS) - - ! Aerosol Inputs - ! -------------- - - STATUS = cudaMemcpy(TAUA_DEV,TAUA,IRUN*LN*NB_CHOU) - VERIFY_(STATUS) - STATUS = cudaMemcpy(SSAA_DEV,SSAA,IRUN*LN*NB_CHOU) - VERIFY_(STATUS) - STATUS = cudaMemcpy(ASYA_DEV,ASYA,IRUN*LN*NB_CHOU) - VERIFY_(STATUS) - - ! Constant Tables in Device Memory - ! -------------------------------- - - COA = COA_CONST - CAH = CAH_CONST - CAIB = CAIB_CONST - CAIF = CAIF_CONST - - call MAPL_TimerOff(MAPL,"---SORAD_DATA_DEVICE",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"---SORAD_DATA_CONST",RC=STATUS) - VERIFY_(STATUS) - - ! Load constants in constant memory - ! --------------------------------- - - HK_UV=HK_UV_TEMP - HK_IR=HK_IR_TEMP - - ZK_UV=ZK_UV_CONST - WK_UV=WK_UV_CONST - RY_UV=RY_UV_CONST - AIB_UV=AIB_UV_CONST - AWB_UV=AWB_UV_CONST - ARB_UV=ARB_UV_CONST - AIG_UV=AIG_UV_CONST - AWG_UV=AWG_UV_CONST - ARG_UV=ARG_UV_CONST - - XK_IR=XK_IR_CONST - RY_IR=RY_IR_CONST - AIB_NIR=AIB_NIR_CONST - AWB_NIR=AWB_NIR_CONST - ARB_NIR=ARB_NIR_CONST - AIA_NIR=AIA_NIR_CONST - AWA_NIR=AWA_NIR_CONST - ARA_NIR=ARA_NIR_CONST - AIG_NIR=AIG_NIR_CONST - AWG_NIR=AWG_NIR_CONST - ARG_NIR=ARG_NIR_CONST - - call MAPL_TimerOff(MAPL,"---SORAD_DATA_CONST",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOff(MAPL,"--SORAD_DATA",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"--SORAD_RUN",RC=STATUS) - VERIFY_(STATUS) - - call sorad<<>>(IRUN,LN,NB_CHOU,CO2,ICT,ICB) - STATUS = cudaGetLastError() - if (STATUS /= 0) then - write (*,*) "Error code from SORAD kernel call: ", STATUS - write (*,*) "Kernel Call failed: ", cudaGetErrorString(STATUS) - _ASSERT(.FALSE.,'needs informative message') - end if - - call MAPL_TimerOff(MAPL,"--SORAD_RUN",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"--SORAD_DATA",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"---SORAD_DATA_DEVICE",RC=STATUS) - VERIFY_(STATUS) - - STATUS = cudaMemcpy(FLX,FLX_DEV,IRUN*(LN+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FLC,FLC_DEV,IRUN*(LN+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FLXU,FLXU_DEV,IRUN*(LN+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FLCU,FLCU_DEV,IRUN*(LN+1)) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FDIRUV,FDIRUV_DEV,IRUN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FDIFUV,FDIFUV_DEV,IRUN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FDIRPAR,FDIRPAR_DEV,IRUN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FDIFPAR,FDIFPAR_DEV,IRUN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FDIRIR,FDIRIR_DEV,IRUN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FDIFIR,FDIFIR_DEV,IRUN) - VERIFY_(STATUS) - STATUS = cudaMemcpy(FLXBAND,FLX_SFC_BAND_DEV,IRUN*NB_CHOU) - VERIFY_(STATUS) - - call MAPL_TimerOff(MAPL,"---SORAD_DATA_DEVICE",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOff(MAPL,"--SORAD_DATA",RC=STATUS) - VERIFY_(STATUS) - - call MAPL_TimerOn(MAPL,"--SORAD_DEALLOC",RC=STATUS) - VERIFY_(STATUS) - - ! ------------------------ - ! Deallocate device arrays - ! ------------------------ - - ! Inputs - ! ------ - - DEALLOCATE(COSZ_DEV) - DEALLOCATE(PL_DEV) - DEALLOCATE(TA_DEV) - DEALLOCATE(WA_DEV) - DEALLOCATE(OA_DEV) - DEALLOCATE(CWC_DEV) - DEALLOCATE(FCLD_DEV) - DEALLOCATE(REFF_DEV) - DEALLOCATE(RSUVBM_DEV) - DEALLOCATE(RSUVDF_DEV) - DEALLOCATE(RSIRBM_DEV) - DEALLOCATE(RSIRDF_DEV) - - ! Aerosol inputs - ! -------------- - - DEALLOCATE(TAUA_DEV) - DEALLOCATE(SSAA_DEV) - DEALLOCATE(ASYA_DEV) - - ! Constant tables in device memory - ! -------------------------------- - - DEALLOCATE(COA) - DEALLOCATE(CAH) - DEALLOCATE(CAIB) - DEALLOCATE(CAIF) - - ! Outputs - ! ------- - - DEALLOCATE(FLX_DEV) - DEALLOCATE(FLC_DEV) - DEALLOCATE(FLXU_DEV) - DEALLOCATE(FLCU_DEV) - DEALLOCATE(FDIRUV_DEV) - DEALLOCATE(FDIFUV_DEV) - DEALLOCATE(FDIRPAR_DEV) - DEALLOCATE(FDIFPAR_DEV) - DEALLOCATE(FDIRIR_DEV) - DEALLOCATE(FDIFIR_DEV) - DEALLOCATE(FLX_SFC_BAND_DEV) - - call MAPL_TimerOff(MAPL,"--SORAD_DEALLOC",RC=STATUS) - VERIFY_(STATUS) - -#else - - call MAPL_TimerOn(MAPL,"--SORAD_RUN",RC=STATUS) - VERIFY_(STATUS) - call SORAD (IRUN,LN,NB_CHOU,COSZ,PLTMP,TA,WA,OA,CO2, & - CWC,FCLD,ICT,ICB,REFF,HK_UV_TEMP, HK_IR_TEMP, & - TAUA,SSAA,ASYA, & - RGBUV,RGFUV, RGBIR, RGFIR, & - FLX,FLC,FDIRUV,FDIFUV,FDIRPAR,FDIFPAR,FDIRIR,FDIFIR, & - FLXU,FLCU, & - FLXBAND ) - call MAPL_TimerOff(MAPL,"--SORAD_RUN",RC=STATUS) - VERIFY_(STATUS) - -#endif - - call MAPL_TimerOff(MAPL,"-SORAD") - - RETURN_(ESMF_SUCCESS) - - end subroutine SHRTWAVE - -!========================================================== - - subroutine UPDATE_EXPORT(IM,JM,LM, RC) - integer, intent(IN ) :: IM, JM, LM - integer, optional, intent(OUT) :: RC - -! Locals - - character(len=ESMF_MAXSTR) :: IAm - integer :: STATUS - - real, dimension(IM,JM) :: ZTH, SLR, ALB, CLD, SLN, ZTHN - - real, pointer, dimension(:,: ) :: ALBEXP, ALBIMP - - real, pointer, dimension(:,:,:) :: FSW, FSC - real, pointer, dimension(:,:,:) :: FSWN, FSCN - real, pointer, dimension(:,:,:) :: FSWNA, FSCNA - real, pointer, dimension(:,:,:) :: FSWNAN, FSCNAN - - real, pointer, dimension(:,:,:) :: FSWU, FSCU - real, pointer, dimension(:,:,:) :: FSWUN, FSCUN - real, pointer, dimension(:,:,:) :: FSWUNA, FSCUNA - real, pointer, dimension(:,:,:) :: FSWUNAN, FSCUNAN - - real, pointer, dimension(:,:,:) :: FSWD, FSCD - real, pointer, dimension(:,:,:) :: FSWDNA, FSCDNA - - real, pointer, dimension(:,:,:) :: FSWBAND - real, pointer, dimension(:,:,:) :: FSWBANDN - real, pointer, dimension(:,:,:) :: FSWBANDNA - real, pointer, dimension(:,:,:) :: FSWBANDNAN - - real, pointer, dimension(:,: ) :: DFUVR, DRUVR - real, pointer, dimension(:,: ) :: DFPAR, DRPAR - real, pointer, dimension(:,: ) :: DFNIR, DRNIR - real, pointer, dimension(:,: ) :: DRNUVR, DRNPAR, DRNNIR - real, pointer, dimension(:,: ) :: SLRTP, RSR, RSC - real, pointer, dimension(:,: ) :: SLRSF, RSCS, RSRS, SLRSFC - real, pointer, dimension(:,: ) :: SLRSFNA, SLRSFCNA - real, pointer, dimension(:,: ) :: SLRSUF, SLRSUFNA - real, pointer, dimension(:,: ) :: SLRSUFC, SLRSUFCNA - real, pointer, dimension(:,: ) :: RSRNA, RSCNA - real, pointer, dimension(:,: ) :: RSCSNA, RSRSNA - real, pointer, dimension(:,: ) :: OSR, OSRCLR - real, pointer, dimension(:,: ) :: OSRNA, OSRCNA - real, pointer, dimension(:,: ) :: DFUVRN, DRUVRN - real, pointer, dimension(:,: ) :: DFPARN, DRPARN - real, pointer, dimension(:,: ) :: DFNIRN, DRNIRN - real, pointer, dimension(:,: ) :: ALBEDO - real, pointer, dimension(:,: ) :: COSZ, MCOSZ - - real, pointer, dimension(:,:,:) :: FCLD,CLIN,RH - real, pointer, dimension(:,:,:) :: DP, PL, PLL, AERO, T, Q, RAERO - real, pointer, dimension(:,:,:) :: RRL,RRI,RRR,RRS - real, pointer, dimension(:,:,:) :: RQL,RQI,RQR,RQS - real, pointer, dimension(:,:,:,:) :: TAUCLD, HYDROMETS, REFF - real, pointer, dimension(:,:,:) :: TAUI,TAUW,TAUR,TAUS - - ! for efficiency - real, allocatable, dimension(:,:) :: aCLDL,aCLDM,aCLDH - real, allocatable, dimension(:,:) :: aTAUL,aTAUM,aTAUH - real, allocatable, dimension(:,:) :: aCLDT - - real, dimension(LM ) :: DUM1D - real, dimension(LM,4) :: DUM2D - - real, pointer, dimension(:,:) :: TDUST,TSALT,TSO4,TBC,TOC - real, pointer, dimension(:,:) :: CLDH,CLDM,CLDL,CLDT, & - TAUH,TAUM,TAUL,TAUT,TAUTX, & - CLDTMP,CLDPRS - - ! super-layer RRTMG cloud fraction exports on heartbeat - real, pointer, dimension(:,:) :: CLDTTSWHB - real, pointer, dimension(:,:) :: CLDHISWHB - real, pointer, dimension(:,:) :: CLDMDSWHB - real, pointer, dimension(:,:) :: CLDLOSWHB - - ! locals supporting CLD??SWHB - integer :: rpart, pncol, ncld - real :: plmid(LM), tlev(LM-1), cfac(LM) - integer, allocatable, dimension(:) :: icld, jcld - real, allocatable, dimension(:) :: alat - real, allocatable, dimension(:,:) :: zmid, play, cldfrac, ciwp, clwp - logical, allocatable, dimension(:,:,:) :: cldymcl - real, allocatable, dimension(:,:,:) :: ciwpmcl, clwpmcl - integer, allocatable, dimension(:,:) :: clearCounts - - type (ESMF_FieldBundle) :: BUNDLE - type (ESMF_Field) :: FIELD - type (ESMF_TimeInterval) :: DELT - character(len=ESMF_MAXSTR) :: NAME - - integer :: L, I, J, N, NA, IB - real :: TAUCRIT - real :: FAC - integer :: idx - integer,external:: GetAeroIndex - - Iam = trim(COMP_NAME)//"SolarUpdateExport" - - call ESMF_ClockGet(CLOCK, TIMESTEP=DELT, currTIME=CURRENTTIME, __RC__) - - call MAPL_SunGetInsolation(LONS, LATS, & - ORBIT, ZTH, SLR, & - INTV = DELT, & - CLOCK = CLOCK, & - TIME = SUNFLAG, & - ZTHN = ZTHN, & - __RC__ ) - - ZTH = max(ZTH,0.0) - SLR = SLR * SC - - where(ZTH>0.0) - SLN = (SLR/ZTH) - else where - SLN = 0.0 - end where - - call MAPL_GetPointer(INTERNAL, FSWN, 'FSWN', __RC__) - call MAPL_GetPointer(INTERNAL, FSCN, 'FSCN', __RC__) - call MAPL_GetPointer(INTERNAL, FSWNAN, 'FSWNAN', __RC__) - call MAPL_GetPointer(INTERNAL, FSCNAN, 'FSCNAN', __RC__) - call MAPL_GetPointer(INTERNAL, FSWUN, 'FSWUN', __RC__) - call MAPL_GetPointer(INTERNAL, FSCUN, 'FSCUN', __RC__) - call MAPL_GetPointer(INTERNAL, FSWUNAN, 'FSWUNAN', __RC__) - call MAPL_GetPointer(INTERNAL, FSCUNAN, 'FSCUNAN', __RC__) - call MAPL_GetPointer(INTERNAL, FSWBANDN, 'FSWBANDN', __RC__) - call MAPL_GetPointer(INTERNAL, FSWBANDNAN, 'FSWBANDNAN', __RC__) - - call MAPL_GetPointer(INTERNAL, DRUVRN, 'DRUVRN', __RC__) - call MAPL_GetPointer(INTERNAL, DFUVRN, 'DFUVRN', __RC__) - call MAPL_GetPointer(INTERNAL, DRPARN, 'DRPARN', __RC__) - call MAPL_GetPointer(INTERNAL, DFPARN, 'DFPARN', __RC__) - call MAPL_GetPointer(INTERNAL, DRNIRN, 'DRNIRN', __RC__) - call MAPL_GetPointer(INTERNAL, DFNIRN, 'DFNIRN', __RC__) - - call MAPL_GetPointer(EXPORT , FSW, 'FSW', __RC__) - call MAPL_GetPointer(EXPORT , FSC, 'FSC', __RC__) - call MAPL_GetPointer(EXPORT , FSWNA, 'FSWNA', __RC__) - call MAPL_GetPointer(EXPORT , FSCNA, 'FSCNA', __RC__) - call MAPL_GetPointer(EXPORT , FSWD, 'FSWD', __RC__) - call MAPL_GetPointer(EXPORT , FSCD, 'FSCD', __RC__) - call MAPL_GetPointer(EXPORT , FSWDNA, 'FSWDNA', __RC__) - call MAPL_GetPointer(EXPORT , FSCDNA, 'FSCDNA', __RC__) - call MAPL_GetPointer(EXPORT , FSWU, 'FSWU', __RC__) - call MAPL_GetPointer(EXPORT , FSCU, 'FSCU', __RC__) - call MAPL_GetPointer(EXPORT , FSWUNA, 'FSWUNA', __RC__) - call MAPL_GetPointer(EXPORT , FSCUNA, 'FSCUNA', __RC__) - call MAPL_GetPointer(EXPORT , FSWBAND, 'FSWBAND', __RC__) - call MAPL_GetPointer(EXPORT , FSWBANDNA, 'FSWBANDNA', __RC__) - - call MAPL_GetPointer(EXPORT , DRUVR, 'DRUVR', __RC__) - call MAPL_GetPointer(EXPORT , DFUVR, 'DFUVR', __RC__) - call MAPL_GetPointer(EXPORT , DRPAR, 'DRPAR', __RC__) - call MAPL_GetPointer(EXPORT , DFPAR, 'DFPAR', __RC__) - call MAPL_GetPointer(EXPORT , DRNIR, 'DRNIR', __RC__) - call MAPL_GetPointer(EXPORT , DFNIR, 'DFNIR', __RC__) - call MAPL_GetPointer(EXPORT , RSR, 'RSR', __RC__) - call MAPL_GetPointer(EXPORT , RSC, 'RSC', __RC__) - call MAPL_GetPointer(EXPORT , RSRNA, 'RSRNA', __RC__) - call MAPL_GetPointer(EXPORT , RSCNA, 'RSCNA', __RC__) - call MAPL_GetPointer(EXPORT , SLRTP, 'SLRTP', __RC__) - call MAPL_GetPointer(EXPORT , RSCS, 'RSCS', __RC__) - call MAPL_GetPointer(EXPORT , RSRS, 'RSRS', __RC__) - call MAPL_GetPointer(EXPORT , RSCSNA, 'RSCSNA', __RC__) - call MAPL_GetPointer(EXPORT , RSRSNA, 'RSRSNA', __RC__) - call MAPL_GetPointer(EXPORT , SLRSF, 'SLRSF', __RC__) - call MAPL_GetPointer(EXPORT , SLRSFC, 'SLRSFC', __RC__) - call MAPL_GetPointer(EXPORT , SLRSFNA, 'SLRSFNA', __RC__) - call MAPL_GetPointer(EXPORT , SLRSFCNA, 'SLRSFCNA', __RC__) - call MAPL_GetPointer(EXPORT , SLRSUF, 'SLRSUF', __RC__) - call MAPL_GetPointer(EXPORT , SLRSUFC, 'SLRSUFC', __RC__) - call MAPL_GetPointer(EXPORT , SLRSUFNA, 'SLRSUFNA', __RC__) - call MAPL_GetPointer(EXPORT , SLRSUFCNA, 'SLRSUFCNA', __RC__) - call MAPL_GetPointer(EXPORT , OSR, 'OSR', __RC__) - call MAPL_GetPointer(EXPORT , OSRCLR, 'OSRCLR', __RC__) - call MAPL_GetPointer(EXPORT , OSRNA, 'OSRNA', __RC__) - call MAPL_GetPointer(EXPORT , OSRCNA, 'OSRCNA', __RC__) - call MAPL_GetPointer(EXPORT , ALBEDO, 'ALBEDO', __RC__) - call MAPL_GetPointer(EXPORT , COSZ, 'COSZ', __RC__) - call MAPL_GetPointer(EXPORT , MCOSZ, 'MCOSZ', __RC__) - call MAPL_GetPointer(EXPORT , DRNUVR, 'DRNUVR', __RC__) - call MAPL_GetPointer(EXPORT , DRNPAR, 'DRNPAR', __RC__) - call MAPL_GetPointer(EXPORT , DRNNIR, 'DRNNIR', __RC__) - - call MAPL_GetPointer(IMPORT , CLIN, 'FCLD', __RC__) - call MAPL_GetPointer(IMPORT , PLL, 'PLE', __RC__) - call MAPL_GetPointer(IMPORT , RRI, 'RI', __RC__) - call MAPL_GetPointer(IMPORT , RRL, 'RL', __RC__) - call MAPL_GetPointer(IMPORT , RRR, 'RR', __RC__) - call MAPL_GetPointer(IMPORT , RRS, 'RS', __RC__) - call MAPL_GetPointer(IMPORT , RQI, 'QI', __RC__) - call MAPL_GetPointer(IMPORT , RQL, 'QL', __RC__) - call MAPL_GetPointer(IMPORT , RQR, 'QR', __RC__) - call MAPL_GetPointer(IMPORT , RQS, 'QS', __RC__) - call MAPL_GetPointer(IMPORT , T, 'T', __RC__) - call MAPL_GetPointer(IMPORT , Q, 'QV', __RC__) - - call MAPL_GetPointer(EXPORT , FCLD, 'FCLD', __RC__) - call MAPL_GetPointer(EXPORT , TAUI, 'TAUCLI', __RC__) - call MAPL_GetPointer(EXPORT , TAUW, 'TAUCLW', __RC__) - call MAPL_GetPointer(EXPORT , TAUR, 'TAUCLR', __RC__) - call MAPL_GetPointer(EXPORT , TAUS, 'TAUCLS', __RC__) - call MAPL_GetPointer(EXPORT , CLDL, 'CLDLO', __RC__) - call MAPL_GetPointer(EXPORT , CLDM, 'CLDMD', __RC__) - call MAPL_GetPointer(EXPORT , CLDH, 'CLDHI', __RC__) - call MAPL_GetPointer(EXPORT , CLDT, 'CLDTT', __RC__) - call MAPL_GetPointer(EXPORT , TAUL, 'TAULO', __RC__) - call MAPL_GetPointer(EXPORT , TAUM, 'TAUMD', __RC__) - call MAPL_GetPointer(EXPORT , TAUH, 'TAUHI', __RC__) - call MAPL_GetPointer(EXPORT , TAUT, 'TAUTT', __RC__) - call MAPL_GetPointer(EXPORT , TAUTX, 'TAUTTX', __RC__) - call MAPL_GetPointer(EXPORT , CLDTMP, 'CLDTMP', __RC__) - call MAPL_GetPointer(EXPORT , CLDPRS, 'CLDPRS', __RC__) - - call MAPL_GetPointer(EXPORT , CLDLOSWHB, 'CLDLOSWHB', __RC__) - call MAPL_GetPointer(EXPORT , CLDMDSWHB, 'CLDMDSWHB', __RC__) - call MAPL_GetPointer(EXPORT , CLDHISWHB, 'CLDHISWHB', __RC__) - call MAPL_GetPointer(EXPORT , CLDTTSWHB, 'CLDTTSWHB', __RC__) - - if (associated(FCLD)) FCLD = CLIN - - if (associated(CLDH) .or. associated(CLDT) .or. associated(TAUTX)) then - allocate(aCLDH(IM,JM),__STAT__) - aCLDH = 0. - do l=1,LCLDMH-1 - aCLDH = max(aCLDH,CLIN(:,:,L)) - end do - if (associated(CLDH)) CLDH = aCLDH - end if - - if (associated(CLDM) .or. associated(CLDT) .or. associated(TAUTX)) then - allocate(aCLDM(IM,JM),__STAT__) - aCLDM = 0. - do l=LCLDMH,LCLDLM-1 - aCLDM = max(aCLDM,CLIN(:,:,L)) - end do - if (associated(CLDM)) CLDM = aCLDM - end if - - if (associated(CLDL) .or. associated(CLDT) .or. associated(TAUTX)) then - allocate(aCLDL(IM,JM),__STAT__) - aCLDL = 0. - do l=LCLDLM,LM - aCLDL = max(aCLDL,CLIN(:,:,L)) - end do - if (associated(CLDL)) CLDL = aCLDL - end if - - if (associated(CLDT) .or. associated(TAUTX)) then - allocate(aCLDT(IM,JM),__STAT__) - aCLDT = 1. - (1-aCLDH)*(1-aCLDM)*(1-aCLDL) - if (associated(CLDT)) CLDT = aCLDT - end if - - ! CLD??SWHB: - ! Special heartbeat versions of RRTMG generated cloud fractions ... - ! These are expensive because they require a call to the cloud generator, - ! which normally is only done inside the IRRAD and SOLAR REFRESHes (and - ! for the SOLAR case only on the sunlit portion of the globe). We provide - ! these here as a means of validation, but they should not be regularly - ! exported since they will slow down SOLAR considerably, and since the - ! equivalent REFRESH-generated versions (without the "HB" suffix), which - ! are updated only at the REFRESH frequency (~hourly), should be fine in - ! most cases (especially for longer term averages). - ! NB: Filled on all globe unlike the RESFRESH version CLD??SW. - - if (associated(CLDLOSWHB) .or. associated(CLDMDSWHB) .or. & - associated(CLDHISWHB) .or. associated(CLDTTSWHB)) then - - ! default to clear columns which do not need subcolumn generation - if (associated(CLDLOSWHB)) CLDLOSWHB = 0. - if (associated(CLDMDSWHB)) CLDMDSWHB = 0. - if (associated(CLDHISWHB)) CLDHISWHB = 0. - if (associated(CLDTTSWHB)) CLDTTSWHB = 0. - - ! partition size pncol for cloudy columns to conserve memory & improve efficiency - call MAPL_GetResource(MAPL,rpart,'RRTMGSW_PARTITION_SIZE:',DEFAULT=0,__RC__) - if (rpart > 0) then - pncol = rpart - else - pncol = 2 - end if - - ! space for partition: - ! The partition stores up cloudy gridcolumns to process in batch - allocate(icld ( pncol),__STAT__) - allocate(jcld ( pncol),__STAT__) - allocate(zmid (LM, pncol),__STAT__) - allocate(alat ( pncol),__STAT__) - allocate(play (LM, pncol),__STAT__) - allocate(cldfrac(LM, pncol),__STAT__) - allocate(ciwp (LM, pncol),__STAT__) - allocate(clwp (LM, pncol),__STAT__) - allocate(cldymcl(LM,ngptsw,pncol),__STAT__) - allocate(ciwpmcl(LM,ngptsw,pncol),__STAT__) - allocate(clwpmcl(LM,ngptsw,pncol),__STAT__) - allocate(clearCounts(4, pncol),__STAT__) - - ! start with empty partition - ncld = 0 - -! after this test ... make sure DOY used consistently by refresh and update in model -! I guess its only now being used in update, but was its use in refresh really consistent? -! this may be a non-zero-diff bug fix later ... co2 by DOY = hb but DOY for RRTMG should be for REFRESH style time - - ! loop over domain - do j = 1,JM - do i = 1,IM - - ! load up cloudy columns to partition - if (any(CLIN(i,j,:) > 0.)) then - - ! cloudy column - ncld = ncld + 1 - icld (ncld) = i - jcld (ncld) = j - alat (ncld) = LATS(i,j) - - ! Note: unlike RRTMG we do not reverse the levels. This is a - ! technicality and will not alter the POPULATION stats of the - ! generation and saves time (see notes under cloud_subcol_gen). - ! If an exact replication of RRTMGSW is required, can reverse - ! vertical ordering here ... but an exact replication will - ! also require saving the exact cldfrac used by the REFRESH - ! into the internal state for use here as well. - - plmid = 0.5 * (PLL(i,j,0:LM-1) + PLL(i,j,1:LM)) - play (:,ncld) = plmid / 100. ! hPa - cldfrac(:,ncld) = CLIN(i,j,:) - - ! cloud water paths converted from g/g to g/m^2 - cfac = 1.02 * 100 * (PLL(i,j,1:LM)-PLL(i,j,0:LM-1)) - ciwp(:,ncld) = cfac * RQI(i,j,:) - clwp(:,ncld) = cfac * RQL(i,j,:) - - ! interior interface temperatures - ! * "0-based" but extema at 0 and LM not needed for zmid; - ! * RRTMG call code uses layer delP (DPR) but any multiple - ! of it, specifically cfac, is equivalent. - - tlev = (T(i,j,1:LM-1) * cfac(2:LM) + T(i,j,2:LM) * cfac(1:LM-1)) & - / ( cfac(2:LM) + cfac(1:LM-1)) - - ! Calculate the LAYER (mid-point) heights. - ! The interlayer distances are needed for the calculations - ! of inter-layer correlation for cloud overlapping. Only - ! *relative* distances matter, so wolog set zmid(LM) = 0. - zmid(LM,ncld) = 0. - do k = LM-1, 1, -1 - ! dz ~ RT/g x dp/p by hysrostatic eqn and ideal gas eqn. - ! The jump from LAYER k+1 to k is centered on LEVEL k - ! since the LEVEL indices are zero-based - zmid(k,ncld) = zmid(k+1,ncld) + MAPL_RGAS * tlev(k) / MAPL_GRAV & - * (plmid(k+1) - plmid(k)) / PLL(i,j,k) - end do - - end if ! cloudy column - - ! nothing to process yet? - if (ncld == 0) cycle - - ! process the partition if its full or if its partially - ! full but there are no more gridcolumns left. - - if (ncld == pncol .or. i == IM .and. j == JM) then - - ! McICA subcolumn generation - call generate_stochastic_clouds( & - pncol, ncld, ngptsw, LM, & - zmid, alat, doy, & - play, cldfrac, ciwp, clwp, 1.e-20, & - cldymcl, ciwpmcl, clwpmcl, & - seed_order=[4,3,2,1]) - - ! for super-layer cloud fractions - call clearCounts_threeBand( & - pncol, ncld, ngptsw, LM, LCLDLM, LCLDMH, cldymcl, & - clearCounts) - - ! convert super-layer clearCounts to cloud fractions - if (associated(CLDTTSWHB)) then - do n = 1,ncld - CLDTTSWHB(icld(n),jcld(n)) = 1. - clearCounts(1,n)/float(ngptsw) - end do - end if - if (associated(CLDHISWHB)) then - do n = 1,ncld - CLDHISWHB(icld(n),jcld(n)) = 1. - clearCounts(2,n)/float(ngptsw) - end do - end if - if (associated(CLDMDSWHB)) then - do n = 1,ncld - CLDMDSWHB(icld(n),jcld(n)) = 1. - clearCounts(3,n)/float(ngptsw) - end do - end if - if (associated(CLDLOSWHB)) then - do n = 1,ncld - CLDLOSWHB(icld(n),jcld(n)) = 1. - clearCounts(4,n)/float(ngptsw) - end do - end if - - ! restart partition - ncld = 0 - - end if ! process partition - - end do ! i - end do ! j - - ! clean up - deallocate(icld,jcld,__STAT__) - deallocate(zmid,alat,play,cldfrac,ciwp,clwp,__STAT__) - deallocate(cldymcl,ciwpmcl,clwpmcl,__STAT__) - deallocate(clearCounts,__STAT__) - - end if ! CLD??SWHB - - if (associated(TAUI) .or. associated(TAUW) .or. associated(TAUR) .or. associated(TAUS).or. & - associated(TAUL) .or. associated(TAUM) .or. associated(TAUH) .or. & - associated(TAUT) .or. associated(TAUTX) .or. & - associated(CLDTMP) .or. associated(CLDPRS)) then - - allocate( TAUCLD(IM,JM,LM,4), __STAT__) - allocate(HYDROMETS(IM,JM,LM,4), __STAT__) - allocate( REFF(IM,JM,LM,4), __STAT__) - allocate( DP(IM,JM,LM ), __STAT__) - - DP = PLL(:,:,1:LM)-PLL(:,:,0:LM-1) - - ! In REFF, HYDROMETS, and TAUCLD, the final index is as follows: - ! 1 Cloud Ice - ! 2 Cloud Liquid - ! 3 Falling Liquid (Rain) - ! 4 Falling Ice (Rain) - - REFF(:,:,:,1) = RRI * 1.e6 ! REFF must be in microns - REFF(:,:,:,2) = RRL * 1.e6 - REFF(:,:,:,3) = RRR * 1.e6 - REFF(:,:,:,4) = RRS * 1.e6 - - HYDROMETS(:,:,:,1) = RQI - HYDROMETS(:,:,:,2) = RQL - HYDROMETS(:,:,:,3) = RQR - HYDROMETS(:,:,:,4) = RQS - - TAUCLD = 0. - - ! Due to the generic use of this routine, it currently works on one column at a time, - ! thus the need for the array sections below. - - ! NOTE: Dummy arrays are passed into outputs 1 and 3 because these are currently only - ! used in sorad.F90. - - DO I = 1,IM - DO J = 1,JM - CALL GETVISTAU( & - LM,ZTH(I,J),DP(I,J,:),& - CLIN(I,J,:),REFF(I,J,:,:),HYDROMETS(I,J,:,:),& - LCLDMH,LCLDLM,& - DUM2D(:,:),TAUCLD(I,J,:,:),DUM1D(:)) - END DO - END DO - - if (associated(TAUI)) TAUI = TAUCLD(:,:,:,1) - if (associated(TAUW)) TAUW = TAUCLD(:,:,:,2) - if (associated(TAUR)) TAUR = TAUCLD(:,:,:,3) - if (associated(TAUS)) TAUS = TAUCLD(:,:,:,4) - - ! use the total hydrometor optical thickness for the general opticl thicknesses below - TAUCLD(:,:,:,1) = TAUCLD(:,:,:,1) + TAUCLD(:,:,:,2) + TAUCLD(:,:,:,3) + TAUCLD(:,:,:,4) - - ! TAU[HML] are correct because GETVISTAU produces in-cloud optical thicknesses for - ! 'effective clouds' extended-out and diluted to the maximum cloud fraction in each - ! pressure super-layers [LMH]. - - if (associated(TAUH) .or. associated(TAUT) .or. associated(TAUTX)) then - allocate(aTAUH(IM,JM),__STAT__) - aTAUH = 0. - do l=1,LCLDMH-1 - aTAUH = aTAUH + TAUCLD(:,:,L,1) - end do - if (associated(TAUH)) TAUH = aTAUH - end if - - if (associated(TAUM) .or. associated(TAUT) .or. associated(TAUTX)) then - allocate(aTAUM(IM,JM),__STAT__) - aTAUM = 0. - do l=LCLDMH,LCLDLM-1 - aTAUM = aTAUM + TAUCLD(:,:,L,1) - end do - if (associated(TAUM)) TAUM = aTAUM - end if - - if (associated(TAUL) .or. associated(TAUT) .or. associated(TAUTX)) then - allocate(aTAUL(IM,JM),__STAT__) - aTAUL = 0. - do l=LCLDLM,LM - aTAUL = aTAUL + TAUCLD(:,:,L,1) - end do - if (associated(TAUL)) TAUL = aTAUL - end if - - ! TAUT however is broken because the three super-layers are randomly overlapped - ! and with different effective cloud fractions. It has been broken but used for - ! a long time. It should be considered deprecated. TAUTX below is an improved - ! version. - - if (associated(TAUT)) TAUT = aTAUH + aTAUM + aTAUL - - ! As noted above, one cannot simply add TAUL, TAUM and TAUH to get a column - ! in-cloud optical thickness, because the actual column value depends on the - ! overlap of these bands. This overlap is here assumed random. We can express - ! the approximate column in-cloud optical thickness in terms of the sum over - ! the 2**3 - 1 combinations with some cloud in at least one of the 3 bands, - ! each with their respective fractions. For random overlap, CLDL*CLDM*CLDH of - ! the gridcolumn would have a column TAU of TAUL+TAUM+TAUH, CLDL*CLDM*(1-CLDH) - ! would have a column TAU of TAUL+TAUM, etc. Then, for an in-cloud column TAU, - ! the sum of the 7 must be normalized by the random column cloud fraction - ! CLDT = 1 – (1-CLDL)*(1-CLDM)*(1-CLDH). - ! Not surprisingly this gives - ! TAUTX = (TAUL*CLDL + TAUM*CLDM + TAUH*CLDH) / CLDT, - ! because we assume we can linearly average optical thickness among the comb- - ! inations. This assumption is questionable, since cloud radiative properties - ! are non-linear in optical thickness. This is why TAUTX is approximate. But - ! its the best we SIMPLY can do. - - if (associated(TAUTX)) then - TAUTX = 0. - where (aCLDT > 0.) TAUTX = (aTAUL*aCLDL + aTAUM*aCLDM + aTAUH*aCLDH) / CLDT - end if - - if (allocated(aTAUH)) deallocate(aTAUH,__STAT__) - if (allocated(aTAUM)) deallocate(aTAUM,__STAT__) - if (allocated(aTAUL)) deallocate(aTAUL,__STAT__) - - if (associated(CLDTMP) .or. associated(CLDPRS)) then - call MAPL_GetResource(MAPL,TAUCRIT,'TAUCRIT:',DEFAULT=0.10,__RC__) - - if (associated(CLDTMP)) CLDTMP = MAPL_UNDEF - if (associated(CLDPRS)) CLDPRS = MAPL_UNDEF - - do L=LM,1,-1 - if (associated(CLDTMP)) then - where (TAUCLD(:,:,L,1) > TAUCRIT) CLDTMP = T(:,:,L) - end if - if (associated(CLDPRS)) then - where (TAUCLD(:,:,L,1) > TAUCRIT) CLDPRS = PLL(:,:,L-1) - end if - end do - end if - - deallocate(TAUCLD ) - deallocate(HYDROMETS) - deallocate(REFF ) - deallocate(DP ) - - end if - - if (allocated(aCLDH)) deallocate(aCLDH,__STAT__) - if (allocated(aCLDM)) deallocate(aCLDM,__STAT__) - if (allocated(aCLDL)) deallocate(aCLDL,__STAT__) - if (allocated(aCLDT)) deallocate(aCLDT,__STAT__) - -! Fill Albedos -!------------- - - FAC = 1. - -! Visible/UV diffuse - - call MAPL_GetPointer(EXPORT, ALBEXP, 'ALBVF', __RC__) - if(associated(ALBEXP)) then - call MAPL_GetPointer(IMPORT, ALBIMP, 'ALBVF', __RC__) - where(SLR>0) - ALBEXP = ALBIMP * FAC - elsewhere - ALBEXP = MAPL_UNDEF - end where - end if - -! Visible/UV direct - - call MAPL_GetPointer(EXPORT, ALBEXP, 'ALBVR', __RC__) - if(associated(ALBEXP)) then - call MAPL_GetPointer(IMPORT, ALBIMP, 'ALBVR', __RC__) - where(SLR>0) - ALBEXP = ALBIMP * FAC - elsewhere - ALBEXP = MAPL_UNDEF - end where - end if - -! NIR diffuse - - call MAPL_GetPointer(EXPORT, ALBEXP, 'ALBNF', __RC__) - if(associated(ALBEXP)) then - call MAPL_GetPointer(IMPORT, ALBIMP, 'ALBNF', __RC__) - where(SLR>0) - ALBEXP = ALBIMP * FAC - elsewhere - ALBEXP = MAPL_UNDEF - end where - end if - -! NIR direct - - call MAPL_GetPointer(EXPORT, ALBEXP, 'ALBNR', __RC__) - if(associated(ALBEXP)) then - call MAPL_GetPointer(IMPORT, ALBIMP, 'ALBNR', __RC__) - where(SLR>0) - ALBEXP = ALBIMP * FAC - elsewhere - ALBEXP = MAPL_UNDEF - end where - end if - -! Total surface albedo -!--------------------- - - ALB = DRUVRN+DFUVRN+DRPARN+DFPARN+DRNIRN+DFNIRN - where(SLR>0.0 .and. ALB>0.0) - ALB = min( max(1.0 - FSWN(:,:,LM)/ALB,.01), 0.9 ) - elsewhere - ALB = MAPL_UNDEF - end where - - if(associated(ALBEDO)) ALBEDO = ALB - -! Fill incident fluxes -!--------------------- - - if(associated( SLRTP)) SLRTP = SLR - if(associated( DRUVR)) DRUVR = DRUVRN*SLR - if(associated( DFUVR)) DFUVR = DFUVRN*SLR - if(associated( DRPAR)) DRPAR = DRPARN*SLR - if(associated( DFPAR)) DFPAR = DFPARN*SLR - if(associated( DRNIR)) DRNIR = DRNIRN*SLR - if(associated( DFNIR)) DFNIR = DFNIRN*SLR - if(associated(DRNUVR)) DRNUVR = DRUVRN*SLN - if(associated(DRNPAR)) DRNPAR = DRPARN*SLN - if(associated(DRNNIR)) DRNNIR = DRNIRN*SLN - - if(associated( SLRSF)) SLRSF = (DRUVRN+DFUVRN+DRPARN+DFPARN+DRNIRN+DFNIRN)*SLR - - if(associated(SLRSFC)) then - where(ALB /= MAPL_UNDEF) - SLRSFC = (FSCN(:,:,LM)*SLR)/(1.-ALB) - elsewhere - SLRSFC = 0.0 - end where - end if - - if(associated(SLRSFNA)) then - where(ALB /= MAPL_UNDEF) - SLRSFNA = (FSWNAN(:,:,LM)*SLR)/(1.-ALB) - elsewhere - SLRSFNA = 0.0 - end where - end if - - if(associated(SLRSFCNA)) then - where(ALB /= MAPL_UNDEF) - SLRSFCNA = (FSCNAN(:,:,LM)*SLR)/(1.-ALB) - elsewhere - SLRSFCNA = 0.0 - end where - end if - - if(associated( SLRSUF)) SLRSUF = ALB*(DRUVRN+DFUVRN+DRPARN+DFPARN+DRNIRN+DFNIRN)*SLR - - if(associated( SLRSUFC)) then - where(ALB /= MAPL_UNDEF) - SLRSUFC = ALB*(FSCN(:,:,LM)/(1.-ALB))*SLR - elsewhere - SLRSUFC = 0.0 - end where - end if - - if(associated( SLRSUFNA)) then - where(ALB /= MAPL_UNDEF) - SLRSUFNA = ALB*(FSWNAN(:,:,LM)/(1.-ALB))*SLR - elsewhere - SLRSUFNA = 0.0 - end where - end if - - if(associated(SLRSUFCNA)) then - where(ALB /= MAPL_UNDEF) - SLRSUFCNA = ALB*(FSCNAN(:,:,LM)/(1.-ALB))*SLR - elsewhere - SLRSUFCNA = 0.0 - end where - end if - - -! Fill 3D FLuxes -!--------------- - - DO L=0,LM - ! Fill Export Net Fluxes from Internal - ! ------------------------------------ - if(associated(FSW )) FSW (:,:,L) = FSWN (:,:,L)*SLR - if(associated(FSC )) FSC (:,:,L) = FSCN (:,:,L)*SLR - if(associated(FSWNA)) FSWNA(:,:,L) = FSWNAN(:,:,L)*SLR - if(associated(FSCNA)) FSCNA(:,:,L) = FSCNAN(:,:,L)*SLR - - ! Fill Export Up Fluxes from Internal - ! ----------------------------------- - if(associated(FSWU )) FSWU (:,:,L) = FSWUN (:,:,L)*SLR - if(associated(FSCU )) FSCU (:,:,L) = FSCUN (:,:,L)*SLR - if(associated(FSWUNA)) FSWUNA(:,:,L) = FSWUNAN(:,:,L)*SLR - if(associated(FSCUNA)) FSCUNA(:,:,L) = FSCUNAN(:,:,L)*SLR - - ! Fill Export Down Fluxes from (Net + Up) Internal - ! ------------------------------------------------ - if(associated(FSWD )) FSWD (:,:,L) = (FSWN (:,:,L) + FSWUN (:,:,L))*SLR - if(associated(FSCD )) FSCD (:,:,L) = (FSCN (:,:,L) + FSCUN (:,:,L))*SLR - if(associated(FSWDNA)) FSWDNA(:,:,L) = (FSWNAN(:,:,L) + FSWUNAN(:,:,L))*SLR - if(associated(FSCDNA)) FSCDNA(:,:,L) = (FSCNAN(:,:,L) + FSCUNAN(:,:,L))*SLR - end do - -! Fill 3D per-band Fluxes -! ----------------------- - - do IB = 1, NUM_BANDS_SOLAR - if(associated(FSWBAND )) FSWBAND (:,:,IB) = FSWBANDN (:,:,IB)*SLR - if(associated(FSWBANDNA)) FSWBANDNA(:,:,IB) = FSWBANDNAN(:,:,IB)*SLR - end do - -! Fill 2D Fluxes -!--------------- - - if(associated( RSR)) RSR = FSWN(:,:, 0) *SLR - if(associated( RSC)) RSC = FSCN(:,:, 0) *SLR - if(associated( RSRNA)) RSRNA = FSWNAN(:,:, 0) *SLR - if(associated( RSCNA)) RSCNA = FSCNAN(:,:, 0) *SLR - if(associated( RSRS)) RSRS = FSWN(:,:,LM) *SLR - if(associated( RSCS)) RSCS = FSCN(:,:,LM) *SLR - if(associated(RSRSNA)) RSRSNA = FSWNAN(:,:,LM) *SLR - if(associated(RSCSNA)) RSCSNA = FSCNAN(:,:,LM) *SLR - if(associated( OSR)) OSR = (1.- FSWN(:,:, 0))*SLR - if(associated(OSRCLR)) OSRCLR = (1.- FSCN(:,:, 0))*SLR - if(associated( OSRNA)) OSRNA = (1.-FSWNAN(:,:, 0))*SLR - if(associated(OSRCNA)) OSRCNA = (1.-FSCNAN(:,:, 0))*SLR - -! Solar zenith angles: mean for time step and at end of time step. -! Note SLR should not be used after this point!! -!----------------------------------------------------------------- - - if(associated( MCOSZ)) MCOSZ = ZTH - if(associated( COSZ)) COSZ = ZTHN - - RETURN_(ESMF_SUCCESS) - end subroutine UPDATE_EXPORT - - - end subroutine RUN - -subroutine PackLoc(A,B,MSK,LENA,LENB,MASKIT) - - implicit none - - real, intent(IN ) :: A(LENA) - real, intent( OUT) :: B(LENB) - integer, intent(IN ) :: LENA, LENB - logical, intent(IN ) :: MSK(LENA), MASKIT - - integer :: I, M - - if (MASKIT) then - M = 1 - do I = 1,LENA - if (MSK(I)) then - B(M) = A(I) - M = M+1 - if (M>LENB) exit - end if - end do - else - if (LENA /= LENB) stop - B = A - end if - -end subroutine PackLoc - -subroutine UnPackLoc(A,B,MSK,F,LENA,LENB,MASKIT) - - implicit none - - real, intent(IN ) :: A(LENA), F - real, intent( OUT) :: B(LENB) - integer, intent(IN ) :: LENA, LENB - logical, intent(IN ) :: MSK(LENB), MASKIT - - integer :: I, M - - if(MASKIT) then - M = 1 - do I = 1,LENB - if (MSK(I)) then - if (M>LENA) then - B(I) = F - else - B(I) = A(M) - end if - M = M+1 - else - B(I) = F - end if - end do - else - if (LENA /= LENB) stop - B = A - end if - -end subroutine UnPackLoc - -end module GEOS_SolarGridCompMod - -subroutine ReOrder(Packed, UnPacked, MSK, Pdim, Udim, LM, DIR) - integer, intent(IN ) :: Pdim, Udim(2), LM, DIR - real, intent(INOUT) :: Packed(Pdim,*) - real, intent(INOUT) :: UnPacked(Udim(1),Udim(2),*) - logical, intent(IN ) :: MSK(Udim(1),Udim(2)) - - integer :: I, J, L, M - - do L = 1,LM - M = 1 - do J = 1,Udim(2) - do I = 1,Udim(1) - if (MSK(I,J)) then - if(DIR==PACKIT) then - Packed(M,L) = UnPacked(I,J,L) - else - Unpacked(I,J,L) = Packed(M,L) - end if - M = M+1 - else - if(DIR/=PACKIT) then - UnPacked(I,J,L) = 0 - end if - end if - end do - end do - end do - -end subroutine ReOrder diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/CMakeLists.txt deleted file mode 100644 index 08f2d10ba..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/CMakeLists.txt +++ /dev/null @@ -1 +0,0 @@ -add_subdirectory(rrtmg_sw) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/CMakeLists.txt deleted file mode 100644 index d2cb176e2..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/CMakeLists.txt +++ /dev/null @@ -1 +0,0 @@ -add_subdirectory (gcm_model) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/README b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/README deleted file mode 100644 index cd4c948a0..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/README +++ /dev/null @@ -1,246 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ -!------------------------------------------------------------------------ - - RRTMG_SW: Shortwave Radiative Transfer Model for GCMs - Atmospheric and Environmental Research, Inc., - 131 Hartwell Avenue, Lexington, MA 02421 - - Original version: Eli. J. Mlawer, J. S. Delamere, et al. (AER) - Revision for GCMs: Michael J. Iacono (AER) - - Contact: Michael J. Iacono (E-mail: miacono@aer.com) - - Web Site: www.rtweb.aer.com - - References (RRTMG_SW/RRTM_SW): - Iacono, M.J., J.S. Delamere, E.J. Mlawer, M.W. Shephard, - S.A. Clough, and W.D. Collins, Radiative forcing by long- - lived greenhouse gases: Calculations with the AER radiative - transfer models, J. Geophys. Res., 113, D13103, doi: - 10.1029/2008JD009944, 2008. - - Clough, S.A., M.W. Shephard, E.J. Mlawer, J.S. Delamere, - M.J. Iacono, K. Cady-Pereira, S. Boukabara, and P.D. Brown, - Atmospheric radiative transfer modeling: a summary of the - AER codes, J. Quant. Spectrosc. Radiat. Transfer, 91, - 233-244, 2005. - - Reference (McICA): - Pincus, R., H. W. Barker, and J.-J. Morcrette, A fast, flexible, - approximation technique for computing radiative transfer in - inhomogeneous cloud fields, J. Geophys. Res., 108(D13), 4376, - doi:10.1029/2002JD003322, 2003. -****************************************************************************** - -This package contains the source code and sample makefiles necessary to run the -latest version of RRTMG_SW, a correlated k-distribution shortwave radiative transfer -model developed at AER, Inc. for application to GCMs. This version of RRTMG_SW -utilizes a two-stream radiative transfer method as implemented at ECMWF. This -code has also been modified to utilize FORTRAN90 coding features. Two modes of -operation are possible. RRTMG_SW can be run in stand-alone mode using the -input files and source modules described below, or it can be attached to an -atmospheric general circulation model as a callable subroutine. - -The version of RRTMG_SW provided here utilizes a reduced complement of 112 -g-points, which is half of the 224 g-points used in the standard RRTM_SW, and -a two-stream method for radiative transfer. Additional minor changes have been -made to enhance computational performance. Total fluxes are accurate to within -1-2 W/m2 relative to the standard RRTM_SW (using DISORT) in clear sky and in the -presence of aerosols and within 6 W/m2 in overcast sky. RRTM_SW with DISORT is -itself accurate to within 2 W/m2 of the data-validated multiple scattering -model, CHARTS. Absorption coefficient data can be read in from original -source statements or from a netCDF file as selected in the makefile. - -This model can also utilize McICA, the Monte-Carlo Independent Column -Approximation, to represent sub-grid scale cloud variability such as cloud -fraction and cloud overlap. If the McICA option is selected to model a cloudy -profile in column mode, then the model will run stochastically, and the output -fluxes and heating rates will be an average over 200 samples. Without McICA, -RRTMG_SW is limited to clear sky or overcast cloud conditions. - - -*********************** -RRTMG_SW column version -*********************** - -DOCUMENTATION: - The following text files (some in /column_model/doc directory) provide information - on using and running RRTMG_SW: - - README : Basic code package information (this file) - release_notes.txt : Code archive update information - rrtmg_sw_instructions.txt : Input instructions for files INPUT_RRTM, IN_CLD_RRTM - and IN_AER_RRTM - - -SOURCE CODE: - The following source files (in /column_model/src directory) must be used to run - RRTMG_SW in stand-alone mode as a column model: - - rrtmg_sw.1col.f90 : Main module - rrtmg_sw_cldprop.f90 : Calculation of cloud optical properties - rrtmg_sw_cldprmc.f90 : Calculation of cloud optical properties (McICA) - rrtmg_sw_init.f90 : RRTMG_SW initialization routine; reduces g-intervals - from 224 to 112 - rrtmg_sw_k_g.f90 : Absorption coefficient data file - rrtmg_sw_read_nc.f90 : Alternate absorption coefficient data netCDF input - rrtmg_sw_reftra.f90 : Calculation of two-stream reflectivities and - transmissivities - rrtmg_sw_setcoef.f90 : Set up routine - rrtmg_sw_spcvrt.f90 : Top subroutine for two-stream model - rrtmg_sw_spcvmc.f90 : Top subroutine for two-stream model (McICA) - rrtmg_sw_taumol.f90 : Calculation of optical depths and Planck fractions for - each spectral band - rrtmg_sw_vrtqdr.f90 : Two-stream vertical quadrature - mcica_random_numbers.f90 : Random number generator for McICA - mcica_subcol_gen_sw.1col.f90 : Sub-column generator for McICA - rrtatm.f : Process user-defined input data files - extra.f : Process input data files - util_**.f : Utilities (available for multiple platforms) - - - The following module files (in /column_model/modules directory) must be used to run - RRTMG_SW in stand-alone mode as a column model (these must be compiled before the - source code files): - - parkind.f90 : real and integer kind type parameters - parrrsw.f90 : main configuration parameters - rrsw_aer.f90 : aerosol property coefficients - rrsw_cld.f90 : cloud property coefficients - rrsw_con.f90 : constants - rrsw_kg**.f90 : absorption coefficient arrays for 16 spectral bands - rrsw_ncpar.f90 : parameters for netCDF input data option - rrsw_ref.f90 : reference atmosphere data arrays - rrsw_tbl.f90 : exponential lookup table arrays - rrsw_vsn.f90 : version number information - rrsw_wvn.f90 : spectral band and g-interval array information - - -INPUT DATA: - The following file (in directory /column_model/data) is the netCDF file - containing absorption coefficient and other input data for the model. - The file is used if netCDF input is selected in the makefile. - - rrtmg_sw.nc : Optional netCDF input data file - - -MAKEFILES: - The following files (in directory /column_model/build/makefiles) can be used to compile - RRTMG_SW in stand-alone mode as a column model on various platforms. Link one of - these into the /column_model/build directory to compile. - - make_rrtmg_sw_sgi : Sample makefile for SGI - make_rrtmg_sw_sun : Sample makefile for SUN - make_rrtmg_sw_linux_pgi : Sample makefile for LINUX (PGI compiler) - make_rrtmg_sw_aix_xlf90 : Sample makefile for AIX (XLF90 compiler) - make_rrtmg_sw_OS_X_g95 : Sample makefile for OS_X (G95 compiler) - make_rrtmg_sw_OS_X_ibm_xl : Sample makefile for OS_X (IBM XL compiler) - - -SAMPLE INPUT/OUTPUT: - Several sample input (and output) files are included in the /runs_std_atm directory. - Note that user-defined profiles may be used for as many as 200 layers. - - INPUT_RRTM : Required input file for (clear sky) atmospheric - specification - IN_CLD_RRTM : Required input file for cloud specification if clouds - are present - IN_AER_RRTM : Required input file for aerosol specification if aerosols - are present - OUTPUT_RRTM : Main output file for atmospheric fluxes and heating rates - input_rrtm.MLS-clr : Sample 51 layer mid-latitude summer standard atmosphere - input_rrtm.MLS-cld-imca0 : Sample 51 layer mid-latitude summer standard atmosphere - with cloud flag turn on (without McICA) - input_rrtm.MLS-cld-imca1 : Sample 51 layer mid-latitude summer standard atmosphere - with cloud flag turn on (with McICA) - input_rrtm.MLS-clr-aer12 : Sample 51 layer mid-latitude summer standard atmosphere - with aerosol flag set - input_rrtm.MLW-clr : Sample 51 layer mid-latitude winter standard atmosphere - input_rrtm.SAW-clr : Sample 51 layer sub-arctic winter standard atmosphere - input_rrtm.TROP-clr : Sample 51 layer tropical standard atmosphere - in_cld_rrtm-cld5 : Sample cloud input file - in_aer_rrtm-aer12 : Sample aerosol input file - - - -********************* -RRTMG_SW: GCM version -********************* - -DOCUMENTATION: - README : Basic code package information (this file) - - -SOURCE CODE: - The following source files (in /gcm_model/src directory) must be used to run - RRTMG_SW as a callable subroutine: - NOTE: Only one of rrtmg_sw_k_g.f90 or rrtmg_sw_read_nc.f90 is required. - - rrtmg_sw_rad.f90 : RRTMG_SW main module (with McICA) - rrtmg_sw_rad.nomcica.f90 : Optional RRTMG_SW main module (without McICA only) - rrtmg_sw_cldprop.f90 : Calculation of cloud optical properties - rrtmg_sw_cldprmc.f90 : Calculation of cloud optical properties (McICA) - rrtmg_sw_init.f90 : RRTMG_SW initialization routine; reduces g-intervals - from 224 to 112; (This has to run only once and should - be installed in the GCM initialization section) - rrtmg_sw_k_g.f90 : Absorption coefficient data file - rrtmg_sw_read_nc.f90 : Alternate absorption coefficient data netCDF input - rrtmg_sw_reftra.f90 : Calculation of two-stream reflectivities and - transmissivities - rrtmg_sw_setcoef.f90 : Set up routine - rrtmg_sw_spcvrt.f90 : Top subroutine for two-stream model - rrtmg_sw_spcvmc.f90 : Top subroutine for two-stream model (McICA) - rrtmg_sw_taumol.f90 : Calculation of optical depths and Planck fractions for - each spectral band - rrtmg_sw_vrtqdr.f90 : Two-stream vertical quadrature - mcica_random_numbers.f90 : Random number generator for McICA - mcica_subcol_gen_sw.f90 : Sub-column generator for McICA - - The following module files (in /gcm_model/modules directory) must be used to run - RRTMG_SW as a callable subroutine (these must be compiled before the source code - files): - - parkind.f90 : real and integer kind type parameters - parrrsw.f90 : main configuration parameters - rrsw_aer.f90 : aerosol property coefficients - rrsw_cld.f90 : cloud property coefficients - rrsw_con.f90 : constants - rrsw_kg**.f90 : absorption coefficient arrays for 16 spectral bands - rrsw_ncpar.f90 : parameters for netCDF input data option - rrsw_ref.f90 : reference atmosphere data arrays - rrsw_tbl.f90 : exponential lookup table arrays - rrsw_vsn.f90 : version number information - rrsw_wvn.f90 : spectral band and g-interval array information - - -INPUT DATA: - The following file (in directory /gcm_model/data) is the netCDF file - containing absorption coefficient and other input data for the model. - The file is used if source file rrtmg_sw_read_nc.f90 is used in place - of rrtmg_sw_k_g.f90 (only one or the other is required). - - rrtmg_sw.nc : Optional netCDF input data file - - -Notes regarding GCM version: - - 1) The module rrtmg_sw_init.f90 is the initialization routine that has to be - called only once. The call to this subroutine should be moved to the - initialization section of the host model if RRTMG_SW is called by a GCM or SCM. - - 2) The number of model layers and the number of columns to be looped over should - be passed into RRTMG_SW through the subroutine call along with the other model - profile arrays. - - 3) To utilize McICA, the sub-column generator (mcica_subcol_gen_sw.f90) must be - implemented in the GCM so that it is called just before RRTMG. - If McICA is utilized, this will run only a single statistical sample per - model grid box. There are two options for the random number generator used - with McICA, which is selected with the variable irnd in mcica_subcol_gen_sw.f90. - When using McICA, the main RRTMG_SW module is rrtmg_sw_rad.f90. If McICA is not - used, then the main module is rrtmg_sw_rad.nomcica.f90, though cloud specification - is limited to overcast clouds. - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/CMakeLists.txt deleted file mode 100644 index e5dae8089..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/CMakeLists.txt +++ /dev/null @@ -1,2 +0,0 @@ -add_subdirectory (modules) -add_subdirectory (src) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/CMakeLists.txt deleted file mode 100644 index d4efad3fa..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/CMakeLists.txt +++ /dev/null @@ -1,15 +0,0 @@ -# Non-default name -esma_set_this(OVERRIDE RRTMG_SW_mods) - -set (srcs - parrrsw.F90 rrsw_aer.F90 rrsw_cld.F90 rrsw_con.F90 - rrsw_kg16.F90 rrsw_kg17.F90 rrsw_kg18.F90 rrsw_kg19.F90 - rrsw_kg20.F90 rrsw_kg21.F90 rrsw_kg22.F90 rrsw_kg23.F90 - rrsw_kg24.F90 rrsw_kg25.F90 rrsw_kg26.F90 rrsw_kg27.F90 - rrsw_kg28.F90 rrsw_kg29.F90 rrsw_ref.F90 rrsw_tbl.F90 - rrsw_vsn.F90 rrsw_wvn.F90 - ) - -esma_add_library (${this} SRCS ${srcs} - DEPENDENCIES GEOS_Shared MAPL) - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/parrrsw.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/parrrsw.F90 deleted file mode 100644 index d44456109..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/parrrsw.F90 +++ /dev/null @@ -1,115 +0,0 @@ - - module parrrsw - - !use parkind ,only : im => kind , rb => kind - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_sw main parameters -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -! mg : integer: number of original g-intervals per spectral band -! nbndsw : integer: number of spectral bands -! naerec : integer: number of aerosols (iaer=6, ecmwf aerosol option) -! ngptsw : integer: total number of reduced g-intervals for rrtmg_lw -! ngNN : integer: number of reduced g-intervals per spectral band -! ngsNN : integer: cumulative number of g-intervals per band -!------------------------------------------------------------------ - - integer , parameter :: mg = 16 !jpg - integer , parameter :: nbndsw = 14 !jpsw, ksw - integer , parameter :: naerec = 6 !jpaer - integer , parameter :: nstr = 2 -! Use for 112 g-point model - integer , parameter :: ngptsw = 112 !jpgpt -! Use for 224 g-point model -! integer , parameter :: ngptsw = 224 !jpgpt - -! may need to rename these - from v2.6 - integer , parameter :: jpband = 29 - integer , parameter :: jpb1 = 16 !istart - integer , parameter :: jpb2 = 29 !iend - - integer , parameter :: jmcmu = 32 - integer , parameter :: jmumu = 32 - integer , parameter :: jmphi = 3 - integer , parameter :: jmxang = 4 - integer , parameter :: jmxstr = 16 -! ^ - -! Use for 112 g-point model - integer , parameter :: ng16 = 6 - integer , parameter :: ng17 = 12 - integer , parameter :: ng18 = 8 - integer , parameter :: ng19 = 8 - integer , parameter :: ng20 = 10 - integer , parameter :: ng21 = 10 - integer , parameter :: ng22 = 2 - integer , parameter :: ng23 = 10 - integer , parameter :: ng24 = 8 - integer , parameter :: ng25 = 6 - integer , parameter :: ng26 = 6 - integer , parameter :: ng27 = 8 - integer , parameter :: ng28 = 6 - integer , parameter :: ng29 = 12 - - integer , parameter :: ngs16 = 6 - integer , parameter :: ngs17 = 18 - integer , parameter :: ngs18 = 26 - integer , parameter :: ngs19 = 34 - integer , parameter :: ngs20 = 44 - integer , parameter :: ngs21 = 54 - integer , parameter :: ngs22 = 56 - integer , parameter :: ngs23 = 66 - integer , parameter :: ngs24 = 74 - integer , parameter :: ngs25 = 80 - integer , parameter :: ngs26 = 86 - integer , parameter :: ngs27 = 94 - integer , parameter :: ngs28 = 100 - integer , parameter :: ngs29 = 112 - -! Use for 224 g-point model -! integer , parameter :: ng16 = 16 -! integer , parameter :: ng17 = 16 -! integer , parameter :: ng18 = 16 -! integer , parameter :: ng19 = 16 -! integer , parameter :: ng20 = 16 -! integer , parameter :: ng21 = 16 -! integer , parameter :: ng22 = 16 -! integer , parameter :: ng23 = 16 -! integer , parameter :: ng24 = 16 -! integer , parameter :: ng25 = 16 -! integer , parameter :: ng26 = 16 -! integer , parameter :: ng27 = 16 -! integer , parameter :: ng28 = 16 -! integer , parameter :: ng29 = 16 - -! integer , parameter :: ngs16 = 16 -! integer , parameter :: ngs17 = 32 -! integer , parameter :: ngs18 = 48 -! integer , parameter :: ngs19 = 64 -! integer , parameter :: ngs20 = 80 -! integer , parameter :: ngs21 = 96 -! integer , parameter :: ngs22 = 112 -! integer , parameter :: ngs23 = 128 -! integer , parameter :: ngs24 = 144 -! integer , parameter :: ngs25 = 160 -! integer , parameter :: ngs26 = 176 -! integer , parameter :: ngs27 = 192 -! integer , parameter :: ngs28 = 208 -! integer , parameter :: ngs29 = 224 - -! Source function solar constant - real , parameter :: rrsw_scon = 1.36822e+03 ! W/m2 - - end module parrrsw - - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_aer.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_aer.F90 deleted file mode 100644 index e450c4335..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_aer.F90 +++ /dev/null @@ -1,60 +0,0 @@ - module rrsw_aer - - !use parkind, only : im => kind , rb => kind - use parrrsw, only : nbndsw, naerec - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_sw aerosol optical properties -! -! Data derived from six ECMWF aerosol types and defined for -! the rrtmg_sw spectral intervals -! -! Initial: J.-J. Morcrette, ECMWF, mar2003 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ -! -!-- The six ECMWF aerosol types are respectively: -! -! 1/ continental average 2/ maritime -! 3/ desert 4/ urban -! 5/ volcanic active 6/ stratospheric background -! -! computed from Hess and Koepke (con, mar, des, urb) -! from Bonnel et al. (vol, str) -! -! rrtmg_sw 14 spectral intervals (microns): -! 3.846 - 3.077 -! 3.077 - 2.500 -! 2.500 - 2.150 -! 2.150 - 1.942 -! 1.942 - 1.626 -! 1.626 - 1.299 -! 1.299 - 1.242 -! 1.242 - 0.7782 -! 0.7782- 0.6250 -! 0.6250- 0.4415 -! 0.4415- 0.3448 -! 0.3448- 0.2632 -! 0.2632- 0.2000 -! 12.195 - 3.846 -! -!------------------------------------------------------------------ -! -! name type purpose -! ----- : ---- : ---------------------------------------------- -! rsrtaua : real : ratio of average optical thickness in -! spectral band to that at 0.55 micron -! rsrpiza : real : average single scattering albedo (unitless) -! rsrasya : real : average asymmetry parameter (unitless) -!------------------------------------------------------------------ - - real :: rsrtaua(nbndsw,naerec) - real :: rsrpiza(nbndsw,naerec) - real :: rsrasya(nbndsw,naerec) - - end module rrsw_aer - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_cld.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_cld.F90 deleted file mode 100644 index 395818a03..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_cld.F90 +++ /dev/null @@ -1,47 +0,0 @@ - module rrsw_cld - - !use parkind, only : im => kind , rb => kind - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_sw cloud property coefficients -! -! Initial: J.-J. Morcrette, ECMWF, oct1999 -! Revised: J. Delamere/MJIacono, AER, aug2005 -! Revised: MJIacono, AER, nov2005 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ -! -! name type purpose -! ----- : ---- : ---------------------------------------------- -! xxxliq1 : real : optical properties (extinction coefficient, single -! scattering albedo, assymetry factor) from -! Hu & Stamnes, j. clim., 6, 728-742, 1993. -! xxxice2 : real : optical properties (extinction coefficient, single -! scattering albedo, assymetry factor) from streamer v3.0, -! Key, streamer user's guide, cooperative institude -! for meteorological studies, 95 pp., 2001. -! xxxice3 : real : optical properties (extinction coefficient, single -! scattering albedo, assymetry factor) from -! Fu, j. clim., 9, 1996. -! xxxice4 : real : optical properties (extinction coefficient, single -! scattering albedo, assymetry factor) from -! P. Yang's group -! xbari : real : optical property coefficients for five spectral -! intervals (2857-4000, 4000-5263, 5263-7692, 7692-14285, -! and 14285-40000 wavenumbers) following -! Ebert and Curry, jgr, 97, 3831-3836, 1992. -!------------------------------------------------------------------ - - real :: extliq1(58,16:29), ssaliq1(58,16:29), asyliq1(58,16:29) - real :: extice2(43,16:29), ssaice2(43,16:29), asyice2(43,16:29) - real :: extice3(46,16:29), ssaice3(46,16:29), asyice3(46,16:29) - real :: fdlice3(46,16:29) - real :: extice4(200,16:29), ssaice4(200,16:29), asyice4(200,16:29) - real :: abari(5),bbari(5),cbari(5),dbari(5),ebari(5),fbari(5) - - end module rrsw_cld - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_con.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_con.F90 deleted file mode 100644 index 8d0707f5c..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_con.F90 +++ /dev/null @@ -1,37 +0,0 @@ -module rrsw_con - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_sw constants - -! Initial version: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -! grav : real : acceleration of gravity -! planck : real : planck constant -! boltz : real : boltzmann constant -! clight : real : speed of light -! avogad : real : avogadro constant -! alosmt : real : loschmidt constant -! gascon : real : molar gas constant -! radcn1 : real : first radiation constant -! radcn2 : real : second radiation constant -! sbcnst : real : stefan-boltzmann constant -!------------------------------------------------------------------ - - real, parameter :: pi = 3.14159265358979323846d0 - real, parameter :: oneminus = 1. - 1.e-06 - - real :: grav - real :: planck, boltz, clight - real :: avogad, alosmt, gascon - real :: radcn1, radcn2 - real :: sbcnst - -end module rrsw_con - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg16.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg16.F90 deleted file mode 100644 index b0d40dafe..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg16.F90 +++ /dev/null @@ -1,76 +0,0 @@ - module rrsw_kg16 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng16 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 16 -! band 16: 2600-3250 cm-1 (low - h2o,ch4; high - ch4) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -! selfrefo: real -! forrefo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -!----------------------------------------------------------------- - - integer, parameter :: no16 = 16 - - real :: kao(9,5,13,no16) - real :: kbo(5,13:59,no16) - real :: selfrefo(10,no16), forrefo(3,no16) - real :: sfluxrefo(no16) - real :: irradnceo(no16) - real :: facbrghto(no16),snsptdrko(no16) - - real :: rayl - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 16 -! band 16: 2600-3250 cm-1 (low - h2o,ch4; high - ch4) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! absa : real -! absb : real -! selfref : real -! forref : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -!----------------------------------------------------------------- - - real :: ka(9,5,13,ng16) , absa(585,ng16) - real :: kb(5,13:59,ng16), absb(235,ng16) - real :: selfref(10,ng16), forref(3,ng16) - real :: sfluxref(ng16) - real :: irradnce(ng16) - real :: facbrght(ng16),snsptdrk(ng16) - - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - end module rrsw_kg16 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg17.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg17.F90 deleted file mode 100644 index 672742c82..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg17.F90 +++ /dev/null @@ -1,76 +0,0 @@ - module rrsw_kg17 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng17 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 17 -! band 17: 3250-4000 cm-1 (low - h2o,co2; high - h2o,co2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -! selfrefo: real -! forrefo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -!----------------------------------------------------------------- - - integer, parameter :: no17 = 16 - - real :: kao(9,5,13,no17) - real :: kbo(5,5,13:59,no17) - real :: selfrefo(10,no17), forrefo(4,no17) - real :: sfluxrefo(no17,5) - real :: irradnceo(no17,5) - real :: facbrghto(no17,5),snsptdrko(no17,5) - - real :: rayl - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 17 -! band 17: 3250-4000 cm-1 (low - h2o,co2; high - h2o,co2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! absa : real -! absb : real -! selfref : real -! forref : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -!----------------------------------------------------------------- - - real :: ka(9,5,13,ng17) , absa(585,ng17) - real :: kb(5,5,13:59,ng17), absb(1175,ng17) - real :: selfref(10,ng17), forref(4,ng17) - real :: sfluxref(ng17,5) - real :: irradnce(ng17,5) - real :: facbrght(ng17,5),snsptdrk(ng17,5) - - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1)) - - end module rrsw_kg17 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg18.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg18.F90 deleted file mode 100644 index 6581af5bb..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg18.F90 +++ /dev/null @@ -1,76 +0,0 @@ - module rrsw_kg18 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng18 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 18 -! band 18: 4000-4650 cm-1 (low - h2o,ch4; high - ch4) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -! selfrefo: real -! forrefo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -!----------------------------------------------------------------- - - integer, parameter :: no18 = 16 - - real :: kao(9,5,13,no18) - real :: kbo(5,13:59,no18) - real :: selfrefo(10,no18), forrefo(3,no18) - real :: sfluxrefo(no18,9) - real :: irradnceo(no18,9) - real :: facbrghto(no18,9),snsptdrko(no18,9) - - real :: rayl - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 18 -! band 18: 4000-4650 cm-1 (low - h2o,ch4; high - ch4) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! absa : real -! absb : real -! selfref : real -! forref : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -!----------------------------------------------------------------- - - real :: ka(9,5,13,ng18), absa(585,ng18) - real :: kb(5,13:59,ng18), absb(235,ng18) - real :: selfref(10,ng18), forref(3,ng18) - real :: sfluxref(ng18,9) - real :: irradnce(ng18,9) - real :: facbrght(ng18,9),snsptdrk(ng18,9) - - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - end module rrsw_kg18 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg19.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg19.F90 deleted file mode 100644 index 37e476c32..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg19.F90 +++ /dev/null @@ -1,76 +0,0 @@ - module rrsw_kg19 - - !use parkind ,only : im => kind , rb => kind_rb - use parrrsw, only : ng19 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 19 -! band 19: 4650-5150 cm-1 (low - h2o,co2; high - co2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -! selfrefo: real -! forrefo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -!----------------------------------------------------------------- - - integer, parameter :: no19 = 16 - - real :: kao(9,5,13,no19) - real :: kbo(5,13:59,no19) - real :: selfrefo(10,no19), forrefo(3,no19) - real :: sfluxrefo(no19,9) - real :: irradnceo(no19,9) - real :: facbrghto(no19,9),snsptdrko(no19,9) - - real :: rayl - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 19 -! band 19: 4650-5150 cm-1 (low - h2o,co2; high - co2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! absa : real -! absb : real -! selfref : real -! forref : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -!----------------------------------------------------------------- - - real :: ka(9,5,13,ng19), absa(585,ng19) - real :: kb(5,13:59,ng19), absb(235,ng19) - real :: selfref(10,ng19), forref(3,ng19) - real :: sfluxref(ng19,9) - real :: irradnce(ng19,9) - real :: facbrght(ng19,9),snsptdrk(ng19,9) - - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - end module rrsw_kg19 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg20.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg20.F90 deleted file mode 100644 index 564424939..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg20.F90 +++ /dev/null @@ -1,80 +0,0 @@ - module rrsw_kg20 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng20 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 20 -! band 20: 5150-6150 cm-1 (low - h2o; high - h2o) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -! selfrefo: real -! forrefo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -! absch4o : real -!----------------------------------------------------------------- - - integer, parameter :: no20 = 16 - - real :: kao(5,13,no20) - real :: kbo(5,13:59,no20) - real :: selfrefo(10,no20), forrefo(4,no20) - real :: sfluxrefo(no20) - real :: irradnceo(no20) - real :: facbrghto(no20),snsptdrko(no20) - real :: absch4o(no20) - - real :: rayl - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 20 -! band 20: 5150-6150 cm-1 (low - h2o; high - h2o) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! absa : real -! absb : real -! selfref : real -! forref : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -! absch4 : real -!----------------------------------------------------------------- - - real :: ka(5,13,ng20), absa(65,ng20) - real :: kb(5,13:59,ng20), absb(235,ng20) - real :: selfref(10,ng20), forref(4,ng20) - real :: sfluxref(ng20) - real :: irradnce(ng20) - real :: facbrght(ng20),snsptdrk(ng20) - real :: absch4(ng20) - - equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - end module rrsw_kg20 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg21.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg21.F90 deleted file mode 100644 index 8cf9fd88b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg21.F90 +++ /dev/null @@ -1,76 +0,0 @@ - module rrsw_kg21 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng21 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 21 -! band 21: 6150-7700 cm-1 (low - h2o,co2; high - h2o,co2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -! selfrefo: real -! forrefo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -!----------------------------------------------------------------- - - integer, parameter :: no21 = 16 - - real :: kao(9,5,13,no21) - real :: kbo(5,5,13:59,no21) - real :: selfrefo(10,no21), forrefo(4,no21) - real :: sfluxrefo(no21,9) - real :: irradnceo(no21,9) - real :: facbrghto(no21,9),snsptdrko(no21,9) - - real :: rayl - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 21 -! band 21: 6150-7700 cm-1 (low - h2o,co2; high - h2o,co2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! absa : real -! absb : real -! selfref : real -! forref : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -!----------------------------------------------------------------- - - real :: ka(9,5,13,ng21), absa(585,ng21) - real :: kb(5,5,13:59,ng21), absb(1175,ng21) - real :: selfref(10,ng21), forref(4,ng21) - real :: sfluxref(ng21,9) - real :: irradnce(ng21,9) - real :: facbrght(ng21,9),snsptdrk(ng21,9) - - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1)) - - end module rrsw_kg21 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg22.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg22.F90 deleted file mode 100644 index a211cc168..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg22.F90 +++ /dev/null @@ -1,76 +0,0 @@ - module rrsw_kg22 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng22 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 22 -! band 22: 7700-8050 cm-1 (low - h2o,o2; high - o2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -! selfrefo: real -! forrefo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -!----------------------------------------------------------------- - - integer, parameter :: no22 = 16 - - real :: kao(9,5,13,no22) - real :: kbo(5,13:59,no22) - real :: selfrefo(10,no22), forrefo(3,no22) - real :: sfluxrefo(no22,9) - real :: irradnceo(no22,9) - real :: facbrghto(no22,9),snsptdrko(no22,9) - - real :: rayl - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 22 -! band 22: 7700-8050 cm-1 (low - h2o,o2; high - o2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! absa : real -! absb : real -! selfref : real -! forref : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -!----------------------------------------------------------------- - - real :: ka(9,5,13,ng22), absa(585,ng22) - real :: kb(5,13:59,ng22), absb(235,ng22) - real :: selfref(10,ng22), forref(3,ng22) - real :: sfluxref(ng22,9) - real :: irradnce(ng22,9) - real :: facbrght(ng22,9),snsptdrk(ng22,9) - - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - end module rrsw_kg22 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg23.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg23.F90 deleted file mode 100644 index baf5c3d4e..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg23.F90 +++ /dev/null @@ -1,73 +0,0 @@ - module rrsw_kg23 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng23 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 23 -! band 23: 8050-12850 cm-1 (low - h2o; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -! selfrefo: real -! forrefo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -!----------------------------------------------------------------- - - integer, parameter :: no23 = 16 - - real :: kao(5,13,no23) - real :: selfrefo(10,no23), forrefo(3,no23) - real :: sfluxrefo(no23) - real :: irradnceo(no23) - real :: facbrghto(no23),snsptdrko(no23) - real :: raylo(no23) - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 23 -! band 23: 8050-12850 cm-1 (low - h2o; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! absa : real -! absb : real -! selfref : real -! forref : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -!----------------------------------------------------------------- - - real :: ka(5,13,ng23), absa(65,ng23) - real :: selfref(10,ng23), forref(3,ng23) - real :: sfluxref(ng23), rayl(ng23) - real :: irradnce(ng23) - real :: facbrght(ng23),snsptdrk(ng23) - - equivalence (ka(1,1,1),absa(1,1)) - - end module rrsw_kg23 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg24.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg24.F90 deleted file mode 100644 index 66644bbdb..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg24.F90 +++ /dev/null @@ -1,86 +0,0 @@ - module rrsw_kg24 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng24 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 24 -! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -! selfrefo: real -! forrefo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -! abso3ao : real -! abso3bo : real -! raylao : real -! raylbo : real -!----------------------------------------------------------------- - - integer, parameter :: no24 = 16 - - real :: kao(9,5,13,no24) - real :: kbo(5,13:59,no24) - real :: selfrefo(10,no24), forrefo(3,no24) - real :: sfluxrefo(no24,9) - real :: irradnceo(no24,9) - real :: facbrghto(no24,9),snsptdrko(no24,9) - real :: abso3ao(no24), abso3bo(no24) - real :: raylao(no24,9), raylbo(no24) - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 24 -! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! absa : real -! absb : real -! selfref : real -! forref : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -! abso3a : real -! abso3b : real -! rayla : real -! raylb : real -!----------------------------------------------------------------- - - real :: ka(9,5,13,ng24), absa(585,ng24) - real :: kb(5,13:59,ng24), absb(235,ng24) - real :: selfref(10,ng24), forref(3,ng24) - real :: sfluxref(ng24,9) - real :: irradnce(ng24,9) - real :: facbrght(ng24,9),snsptdrk(ng24,9) - real :: abso3a(ng24), abso3b(ng24) - real :: rayla(ng24,9), raylb(ng24) - - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - end module rrsw_kg24 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg25.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg25.F90 deleted file mode 100644 index e9a09b1f2..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg25.F90 +++ /dev/null @@ -1,73 +0,0 @@ - module rrsw_kg25 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng25 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 25 -! band 25: 16000-22650 cm-1 (low - h2o; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -! abso3ao : real -! abso3bo : real -! raylo : real -!----------------------------------------------------------------- - - integer, parameter :: no25 = 16 - - real :: kao(5,13,no25) - real :: sfluxrefo(no25) - real :: irradnceo(no25) - real :: facbrghto(no25),snsptdrko(no25) - real :: abso3ao(no25), abso3bo(no25) - real :: raylo(no25) - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 25 -! band 25: 16000-22650 cm-1 (low - h2o; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! absa : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -! abso3a : real -! abso3b : real -! rayl : real -!----------------------------------------------------------------- - - real :: ka(5,13,ng25), absa(65,ng25) - real :: sfluxref(ng25) - real :: irradnce(ng25) - real :: facbrght(ng25),snsptdrk(ng25) - real :: abso3a(ng25), abso3b(ng25) - real :: rayl(ng25) - - equivalence (ka(1,1,1),absa(1,1)) - - end module rrsw_kg25 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg26.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg26.F90 deleted file mode 100644 index cad07a6a4..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg26.F90 +++ /dev/null @@ -1,60 +0,0 @@ - module rrsw_kg26 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng26 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 26 -! band 26: 22650-29000 cm-1 (low - nothing; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -! raylo : real -!----------------------------------------------------------------- - - integer, parameter :: no26 = 16 - - real :: sfluxrefo(no26) - real :: irradnceo(no26) - real :: facbrghto(no26),snsptdrko(no26) - real :: raylo(no26) - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 26 -! band 26: 22650-29000 cm-1 (low - nothing; high - nothing) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -! rayl : real -!----------------------------------------------------------------- - - real :: sfluxref(ng26) - real :: irradnce(ng26) - real :: facbrght(ng26),snsptdrk(ng26) - real :: rayl(ng26) - - end module rrsw_kg26 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg27.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg27.F90 deleted file mode 100644 index da44bbf19..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg27.F90 +++ /dev/null @@ -1,72 +0,0 @@ - module rrsw_kg27 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng27 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 27 -! band 27: 29000-38000 cm-1 (low - o3; high - o3) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -! raylo : real -!----------------------------------------------------------------- - - integer, parameter :: no27 = 16 - - real :: kao(5,13,no27) - real :: kbo(5,13:59,no27) - real :: sfluxrefo(no27) - real :: irradnceo(no27) - real :: facbrghto(no27),snsptdrko(no27) - real :: raylo(no27) - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 27 -! band 27: 29000-38000 cm-1 (low - o3; high - o3) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! absa : real -! absb : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -! rayl : real -!----------------------------------------------------------------- - - real :: ka(5,13,ng27), absa(65,ng27) - real :: kb(5,13:59,ng27), absb(235,ng27) - real :: sfluxref(ng27) - real :: irradnce(ng27) - real :: facbrght(ng27),snsptdrk(ng27) - real :: rayl(ng27) - - equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - end module rrsw_kg27 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg28.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg28.F90 deleted file mode 100644 index 5a824f7a1..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg28.F90 +++ /dev/null @@ -1,68 +0,0 @@ - module rrsw_kg28 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng28 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 28 -! band 28: 38000-50000 cm-1 (low - o3, o2; high - o3, o2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -!----------------------------------------------------------------- - - integer, parameter :: no28 = 16 - - real :: kao(9,5,13,no28) - real :: kbo(5,5,13:59,no28) - real :: sfluxrefo(no28,5) - real :: irradnceo(no28,5) - real :: facbrghto(no28,5),snsptdrko(no28,5) - - real :: rayl - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 28 -! band 28: 38000-50000 cm-1 (low - o3, o2; high - o3, o2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -!----------------------------------------------------------------- - - real :: ka(9,5,13,ng28), absa(585,ng28) - real :: kb(5,5,13:59,ng28), absb(1175,ng28) - real :: sfluxref(ng28,5) - real :: irradnce(ng28,5) - real :: facbrght(ng28,5),snsptdrk(ng28,5) - - equivalence (ka(1,1,1,1),absa(1,1)), (kb(1,1,13,1),absb(1,1)) - - end module rrsw_kg28 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg29.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg29.F90 deleted file mode 100644 index bd4c95ab1..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg29.F90 +++ /dev/null @@ -1,80 +0,0 @@ - module rrsw_kg29 - - !use parkind ,only : im => kind , rb => kind - use parrrsw, only : ng29 - - implicit none - save - -!----------------------------------------------------------------- -! rrtmg_sw ORIGINAL abs. coefficients for interval 29 -! band 29: 820-2600 cm-1 (low - h2o; high - co2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! kao : real -! kbo : real -! selfrefo: real -! forrefo : real -!sfluxrefo: real -!irradnceo: real -!facbrghto: real -!snsptdrko: real -! absh2oo : real -! absco2o : real -!----------------------------------------------------------------- - - integer, parameter :: no29 = 16 - - real :: kao(5,13,no29) - real :: kbo(5,13:59,no29) - real :: selfrefo(10,no29), forrefo(4,no29) - real :: sfluxrefo(no29) - real :: irradnceo(no29) - real :: facbrghto(no29),snsptdrko(no29) - real :: absh2oo(no29), absco2o(no29) - - real :: rayl - -!----------------------------------------------------------------- -! rrtmg_sw COMBINED abs. coefficients for interval 29 -! band 29: 820-2600 cm-1 (low - h2o; high - co2) -! -! Initial version: JJMorcrette, ECMWF, oct1999 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -! Revised: MJIacono, AER, nov2015, solar variability -!----------------------------------------------------------------- -! -! name type purpose -! ---- : ---- : --------------------------------------------- -! ka : real -! kb : real -! selfref : real -! forref : real -! sfluxref: real -! irradnce: real -! facbrght: real -! snsptdrk: real -! absh2o : real -! absco2 : real -!----------------------------------------------------------------- - - real :: ka(5,13,ng29), absa(65,ng29) - real :: kb(5,13:59,ng29), absb(235,ng29) - real :: selfref(10,ng29), forref(4,ng29) - real :: sfluxref(ng29) - real :: irradnce(ng29) - real :: facbrght(ng29),snsptdrk(ng29) - real :: absh2o(ng29), absco2(ng29) - - equivalence (ka(1,1,1),absa(1,1)), (kb(1,13,1),absb(1,1)) - - end module rrsw_kg29 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_ref.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_ref.F90 deleted file mode 100644 index a8757a9f1..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_ref.F90 +++ /dev/null @@ -1,28 +0,0 @@ - module rrsw_ref - - !use parkind, only : im => kind , rb => kind - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_sw reference atmosphere -! Based on standard mid-latitude summer profile -! -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jun2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -! pref : real : Reference pressure levels -! preflog: real : Reference pressure levels, ln(pref) -! tref : real : Reference temperature levels for MLS profile -!------------------------------------------------------------------ - - real , dimension(59) :: pref - real , dimension(59) :: preflog - real , dimension(59) :: tref - - end module rrsw_ref diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_tbl.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_tbl.F90 deleted file mode 100644 index d59bee05b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_tbl.F90 +++ /dev/null @@ -1,41 +0,0 @@ - module rrsw_tbl - - !use parkind, only : im => kind , rb => kind - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_sw lookup table arrays - -! Initial version: MJIacono, AER, may2007 -! Revised: MJIacono, AER, aug2007 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -! ntbl : integer: Lookup table dimension -! tblint : real : Lookup table conversion factor -! tau_tbl: real : Clear-sky optical depth -! exp_tbl: real : Exponential lookup table for transmittance -! od_lo : real : Value of tau below which expansion is used -! : in place of lookup table -! pade : real : Pade approximation constant -! bpade : real : Inverse of Pade constant -!------------------------------------------------------------------ - - integer, parameter :: ntbl = 10000 - - real, parameter :: tblint = 10000.0 - - real, parameter :: od_lo = 0.06 - - real :: tau_tbl - real, dimension(0:ntbl) :: exp_tbl - - real, parameter :: pade = 0.278 - real :: bpade - - end module rrsw_tbl - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_vsn.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_vsn.F90 deleted file mode 100644 index 37f16e2b0..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_vsn.F90 +++ /dev/null @@ -1,56 +0,0 @@ - module rrsw_vsn - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_sw version information - -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -!hnamrtm :character: -!hnamini :character: -!hnamcld :character: -!hnamclc :character: -!hnamrft :character: -!hnamspv :character: -!hnamspc :character: -!hnamset :character: -!hnamtau :character: -!hnamvqd :character: -!hnamatm :character: -!hnamutl :character: -!hnamext :character: -!hnamkg :character: -! -! hvrrtm :character: -! hvrini :character: -! hvrcld :character: -! hvrclc :character: -! hvrrft :character: -! hvrspv :character: -! hvrspc :character: -! hvrset :character: -! hvrtau :character: -! hvrvqd :character: -! hvratm :character: -! hvrutl :character: -! hvrext :character: -! hvrkg :character: -!------------------------------------------------------------------ - - character*18 hvrrtm,hvrini,hvrcld,hvrclc,hvrrft,hvrspv, & - hvrspc,hvrset,hvrtau,hvrvqd,hvratm,hvrutl,hvrext - character*20 hnamrtm,hnamini,hnamcld,hnamclc,hnamrft,hnamspv, & - hnamspc,hnamset,hnamtau,hnamvqd,hnamatm,hnamutl,hnamext - - character*18 hvrkg - character*20 hnamkg - - end module rrsw_vsn - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_wvn.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_wvn.F90 deleted file mode 100644 index 887197b17..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_wvn.F90 +++ /dev/null @@ -1,57 +0,0 @@ - module rrsw_wvn - - !use parkind, only : im => kind , rb => kind - use parrrsw, only : nbndsw, mg, ngptsw, jpb1, jpb2 - - implicit none - save - -!------------------------------------------------------------------ -! rrtmg_sw spectral information - -! Initial version: JJMorcrette, ECMWF, jul1998 -! Revised: MJIacono, AER, jul2006 -! Revised: MJIacono, AER, aug2008 -!------------------------------------------------------------------ - -! name type purpose -! ----- : ---- : ---------------------------------------------- -! ng : integer: Number of original g-intervals in each spectral band -! nspa : integer: -! nspb : integer: -!wavenum1: real : Spectral band lower boundary in wavenumbers -!wavenum2: real : Spectral band upper boundary in wavenumbers -! delwave: real : Spectral band width in wavenumbers -! -! ngc : integer: The number of new g-intervals in each band -! ngs : integer: The cumulative sum of new g-intervals for each band -! ngm : integer: The index of each new g-interval relative to the -! original 16 g-intervals in each band -! ngn : integer: The number of original g-intervals that are -! combined to make each new g-intervals in each band -! ngb : integer: The band index for each new g-interval -! wt : real : RRTM weights for the original 16 g-intervals -! rwgt : real : Weights for combining original 16 g-intervals -! (224 total) into reduced set of g-intervals -! (112 total) -!------------------------------------------------------------------ - - integer :: ng(jpb1:jpb2) - integer :: nspa(jpb1:jpb2) - integer :: nspb(jpb1:jpb2) - - real :: wavenum1(jpb1:jpb2) - real :: wavenum2(jpb1:jpb2) - real :: delwave(jpb1:jpb2) - integer :: icxa(jpb1:jpb2) - - integer :: ngc(nbndsw) - integer :: ngs(nbndsw) - integer :: ngn(ngptsw) - integer :: ngb(ngptsw) - integer :: ngm(nbndsw*mg) - - real :: wt(mg) - real :: rwgt(nbndsw*mg) - - end module rrsw_wvn diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/CMakeLists.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/CMakeLists.txt deleted file mode 100644 index 5bff0e6f1..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/CMakeLists.txt +++ /dev/null @@ -1,45 +0,0 @@ -# Non default name -esma_set_this (OVERRIDE RRTMG_SW) -set (srcs - NRLSSI2.F90 - rrtmg_sw_init.F90 - rrtmg_sw_cldprmc.F90 - rrtmg_sw_setcoef.F90 - rrtmg_sw_taumol.F90 - rrtmg_sw_spcvmc.F90 - rrtmg_sw_rad.F90 - ) - -set (k_g_srcs - rrtmg_sw_k_g_16.F90 - rrtmg_sw_k_g_17.F90 - rrtmg_sw_k_g_18.F90 - rrtmg_sw_k_g_19.F90 - rrtmg_sw_k_g_20.F90 - rrtmg_sw_k_g_21.F90 - rrtmg_sw_k_g_22.F90 - rrtmg_sw_k_g_23.F90 - rrtmg_sw_k_g_24.F90 - rrtmg_sw_k_g_25.F90 - rrtmg_sw_k_g_26.F90 - rrtmg_sw_k_g_27.F90 - rrtmg_sw_k_g_28.F90 - rrtmg_sw_k_g_29.F90 - ) - -# MAT With GCC -O1 -g with these files causes an issue. But disabling var tracking -# seems to make compilation bearable on release -foreach (file ${k_g_srcs}) - if (CMAKE_BUILD_TYPE MATCHES Release OR CMAKE_BUILD_TYPE MATCHES Aggressive) - if ("${CMAKE_Fortran_COMPILER_ID}" MATCHES "GNU") - set_source_files_properties( ${file} PROPERTIES COMPILE_FLAGS "-O1 -fno-var-tracking") - else () - set_source_files_properties( ${file} PROPERTIES COMPILE_FLAGS "-O1") - endif () - endif () -endforeach () - -esma_add_library (${this} SRCS ${srcs} ${k_g_srcs} - DEPENDENCIES GEOS_Shared MAPL RRTMG_SW_mods GEOS_RadiationShared esmf NetCDF::NetCDF_Fortran) - - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/NRLSSI2.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/NRLSSI2.F90 deleted file mode 100644 index 37b559c77..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/NRLSSI2.F90 +++ /dev/null @@ -1,334 +0,0 @@ -module NRLSSI2 - - ! ----------------------------------------------------------------- - ! Explanation of the NRLSSI2 model of solar irradiance in RRTMG SW: - ! ----------------------------------------------------------------- - ! The Sun has an approximately 11-year magnetic cycle. Faculae brightening - ! is measured by the Bremen Mg II index. Sunspot dimming is measured by the - ! SPOT67 index. Both have different wavelength signatures than the dominant - ! quiet sun. - ! The RRTMG_SW NRLSSI2 model averages over 12 of these solar cycles - ! (cycles 13-24, late 1800’s to near present) to come up with an 11-year - ! “average solar cycle”. This is the idealized 11-year solar cycle (call - ! it “AvgCyc11”) used in RRTMG_SW. - ! The spectral solar irradiance, SSI(𝜆,t), and its spectral integral, - ! TSI(t), a.k.a. the Solar “Constant”, are defined for the mean Sun-Earth - ! distance of 1AU. The spectral and time dependence are assumed independent: - ! SSI(𝜆,t) = SVAR_I * Irradnce(𝜆) + - ! SVAR_F(t) * Facbrght(𝜆) + - ! SVAR_S(t) * Snsptdrk(𝜆) - ! The spectral terms are valid for the time mean of AvgCyc11 (denoted <>), - ! and are hardcoded into RRTMG_SW. The time-dependent SVAR_(t) terms are - ! used to scale these spectral responses to model solar variability. The - ! spectral terms integrated over 𝜆 are: - ! Iint = 1360.37, Fint = 0.996047, Sint = -0.511590 [in Wm-2] - ! These sum to = 1360.85 Wm-2, the NRLSSI2 mean solar constant, cf. - ! the Kurucz value (1368.22 Wm-2). - ! The SVAR_F/S are modeled as linear functions of the Mg and SB indices, - ! and must have a = 1. SVAR_I is 1 for AvgCyc11. This gives the - ! correct . - ! ----------------------------------------------------------------- - - use iso_fortran_env, only : error_unit - - implicit none - - ! state is saved outside of scope - save - - ! all fields and methods hidden unless declared public below - private - - ! Mean quiet sun, facular brightening, and sunspot dimming contributions to TSI - ! for NRLSSI2, 100-50000 cm-1 (spectrally integrated from hi-res values after - ! mapping to g-point space). Mean is time-average over Solar cycles 13-24. - ! ----------------------------------------------------------------------------- - - real, parameter :: Iint = 1360.37 ! mean quiet sun TSI contribution - real, parameter :: Fint = 0.996047 ! mean facular brightening TSI contribn - real, parameter :: Sint = -0.511590 ! mean sunspot dimming TSI contribution - - ! "Average 11-year solar cycle" of Mg and SB indices developed from - ! Solar cycles 13-24. There are 132 (11*12) mid-month values (elements - ! 2-132) and identical cycle start/end values (elements 1 and 134). - ! ----------------------------------------------------------------- - - ! number of array elements - integer, parameter :: nsolfrac = 134 - - ! Facular index from NRLSSI2 Mg "Bremen" index - real, parameter :: mgavgcyc (nsolfrac) = (/ & - & 0.150737, 0.150746, 0.150733, 0.150718, 0.150725, 0.150762, & - & 0.150828, 0.150918, 0.151017, 0.151113, 0.151201, 0.151292, & - & 0.151403, 0.151557, 0.151766, 0.152023, 0.152322, 0.152646, & - & 0.152969, 0.153277, 0.153579, 0.153899, 0.154252, 0.154651, & - & 0.155104, 0.155608, 0.156144, 0.156681, 0.157178, 0.157605, & - & 0.157971, 0.158320, 0.158702, 0.159133, 0.159583, 0.160018, & - & 0.160408, 0.160725, 0.160960, 0.161131, 0.161280, 0.161454, & - & 0.161701, 0.162034, 0.162411, 0.162801, 0.163186, 0.163545, & - & 0.163844, 0.164029, 0.164054, 0.163910, 0.163621, 0.163239, & - & 0.162842, 0.162525, 0.162344, 0.162275, 0.162288, 0.162369, & - & 0.162500, 0.162671, 0.162878, 0.163091, 0.163251, 0.163320, & - & 0.163287, 0.163153, 0.162927, 0.162630, 0.162328, 0.162083, & - & 0.161906, 0.161766, 0.161622, 0.161458, 0.161266, 0.161014, & - & 0.160666, 0.160213, 0.159690, 0.159190, 0.158831, 0.158664, & - & 0.158634, 0.158605, 0.158460, 0.158152, 0.157691, 0.157152, & - & 0.156631, 0.156180, 0.155827, 0.155575, 0.155406, 0.155280, & - & 0.155145, 0.154972, 0.154762, 0.154554, 0.154388, 0.154267, & - & 0.154152, 0.154002, 0.153800, 0.153567, 0.153348, 0.153175, & - & 0.153044, 0.152923, 0.152793, 0.152652, 0.152510, 0.152384, & - & 0.152282, 0.152194, 0.152099, 0.151980, 0.151844, 0.151706, & - & 0.151585, 0.151496, 0.151437, 0.151390, 0.151347, 0.151295, & - & 0.151220, 0.151115, 0.150993, 0.150883, 0.150802, 0.150752, & - & 0.150729, 0.150737/) - - ! Sunspot index from NRLSSI2 SB "SPOT67" index - real, parameter :: sbavgcyc (nsolfrac) = (/ & - & 50.3550, 44.1322, 52.0179, 59.2231, 66.3702, 71.7545, & - & 76.8671, 83.4723, 91.1574, 98.4915, 105.3173, 115.1791, & - & 130.9432, 155.0483, 186.5379, 221.5456, 256.9212, 291.5276, & - & 325.2953, 356.4789, 387.2470, 422.8557, 466.1698, 521.5139, & - & 593.2833, 676.6234, 763.6930, 849.1200, 928.4259, 994.9705, & - & 1044.2605, 1087.5703, 1145.0623, 1224.3491, 1320.6497, 1413.0979, & - & 1472.1591, 1485.7531, 1464.1610, 1439.1617, 1446.2449, 1496.4323, & - & 1577.8394, 1669.5933, 1753.0408, 1821.9296, 1873.2789, 1906.5240, & - & 1920.4482, 1904.6881, 1861.8397, 1802.7661, 1734.0215, 1665.0562, & - & 1608.8999, 1584.8208, 1594.0162, 1616.1486, 1646.6031, 1687.1962, & - & 1736.4778, 1787.2419, 1824.9084, 1835.5236, 1810.2161, 1768.6124, & - & 1745.1085, 1748.7762, 1756.1239, 1738.9929, 1700.0656, 1658.2209, & - & 1629.2925, 1620.9709, 1622.5157, 1623.4703, 1612.3083, 1577.3031, & - & 1516.7953, 1430.0403, 1331.5112, 1255.5171, 1226.7653, 1241.4419, & - & 1264.6549, 1255.5559, 1203.0286, 1120.2747, 1025.5101, 935.4602, & - & 855.0434, 781.0189, 718.0328, 678.5850, 670.4219, 684.1906, & - & 697.0376, 694.8083, 674.1456, 638.8199, 602.3454, 577.6292, & - & 565.6213, 553.7846, 531.7452, 503.9732, 476.9708, 452.4296, & - & 426.2826, 394.6636, 360.1086, 324.9731, 297.2957, 286.1536, & - & 287.4195, 288.9029, 282.7594, 267.7211, 246.6594, 224.7318, & - & 209.2318, 204.5217, 204.1653, 200.0440, 191.0689, 175.7699, & - & 153.9869, 128.4389, 103.8445, 85.6083, 73.6264, 64.4393, & - & 56.5779, 50.3550/) - - ! Fractional interval length of mgavgcyc and sbavgcyc and its half - real, parameter :: intrvl_len = 1.0 / (nsolfrac-2) - real, parameter :: intrvl_len_hf = 0.5 * intrvl_len - - ! Specification of linear dependence of SVAR_F/S on the Mg and SB indices - ! ----------------------------------------------------------------------- - ! SVAR_F = (Mg - Mg_0) / (Mg_avg - Mg_0), where Mg_avg = , and - ! SVAR_S = (SB - SB_0) / (SB_avg - SB_0), where SB_avg = , where - ! <> is the time average over AvgCyc11 (i.e., over the 132 inner values - ! of the respective mgavgcyc or sbavgcyc). Clearly, e.g., = 1. - - ! means over AvgCyc11 - real, parameter :: Mg_avg = 0.1567652 ! NRLSSI2 Mg "Bremen" index - real, parameter :: SB_avg = 909.71260 ! NRLSSI2 SB "SPOT67" index - - ! offsets where SVAR is zero - real, parameter :: Mg_0 = 0.14959542 ! facular Mg offset - real, parameter :: SB_0 = 0.00066696 ! sunspot SB offset - - ! initialization status used to avoid repeating once-only calculations - ! -------------------------------------------------------------------- - logical :: NRLSSI2_initialized = .false. - - ! and related variables - integer :: isolvar_old = -999 - real :: indsolvar_old(2) = -999. - - ! module level saved variables for isolvar==1 case (calculated only once) - ! ------------------------------------------------------------------------ - real :: isolvar_1_mean_svar_f - real :: isolvar_1_mean_svar_s - - ! public interface - ! ---------------- - public :: initialize_NRLSSI2 - public :: adjust_solcyc_amplitudes - public :: interpolate_indices - public :: Iint, Fint, Sint - public :: Mg_avg, Mg_0 - public :: SB_avg, SB_0 - public :: isolvar_1_mean_svar_f - public :: isolvar_1_mean_svar_s - -contains - - ! Initialization (once-only calculations). - ! Should be called each time, but will only do calculations as necessary, - ! that is, when either its never been called or the argument list changes. - - subroutine initialize_NRLSSI2 (isolvar, indsolvar_opt) - - integer, intent(in) :: isolvar - real, intent(in), optional :: indsolvar_opt (2) - - real :: indsolvar (2) - real :: solcycfr, indsolvar_scl (2) - real :: iscl1_mean, iscl1_Mg_mean - real :: iscl2_mean, iscl2_SB_mean - logical :: rerun, scl1, scl2 - integer :: n - - ! actualize optional arguments - if (present(indsolvar_opt)) then - indsolvar = indsolvar_opt - else - indsolvar = 1. - endif - - ! decide if need to rerun initialization - rerun = (.not. NRLSSI2_initialized) - if (.not. rerun) rerun = (isolvar .ne. isolvar_old) - if (.not. rerun) rerun = (.not. all(indsolvar == indsolvar_old)) - if (rerun) then - - ! means needed for isolvar == 1 - if (isolvar == 1) then - - ! no scaling defaults - isolvar_1_mean_svar_f = 1. - isolvar_1_mean_svar_s = 1. - - scl1 = (indsolvar(1) .ne. 1.) - scl2 = (indsolvar(2) .ne. 1.) - if (scl1 .or. scl2) then - - ! mean over a cycle - if (scl1) iscl1_mean = (1. + indsolvar(1)) / 2. - if (scl2) iscl2_mean = (1. + indsolvar(2)) / 2. - - ! mean over a cycle - iscl1_Mg_mean = 0. - iscl2_SB_mean = 0. - solcycfr = intrvl_len_hf - do n = 2,nsolfrac-1 - call adjust_solcyc_amplitudes(solcycfr, indsolvar, indsolvar_scl) - if (scl1) iscl1_Mg_mean = iscl1_Mg_mean + indsolvar_scl(1) * mgavgcyc(n) - if (scl2) iscl2_SB_mean = iscl2_SB_mean + indsolvar_scl(2) * sbavgcyc(n) - solcycfr = solcycfr + intrvl_len - enddo - if (scl1) iscl1_Mg_mean = iscl1_Mg_mean / (nsolfrac-2) - if (scl2) iscl2_SB_mean = iscl2_SB_mean / (nsolfrac-2) - - ! means with indsolvar scaling - if (scl1) isolvar_1_mean_svar_f = (iscl1_Mg_mean - iscl1_mean * Mg_0) / (Mg_avg - Mg_0) - if (scl2) isolvar_1_mean_svar_s = (iscl2_SB_mean - iscl2_mean * SB_0) / (SB_avg - SB_0) - - end if - - end if - - ! "once-only" calculations done - isolvar_old = isolvar - indsolvar_old = indsolvar - NRLSSI2_initialized = .true. - - end if - - end subroutine initialize_NRLSSI2 - - - ! Adjust amplitude scaling of mean solar cycle to be unity at - ! solar minimum (solcycfrac_min), to be the requested indsolvar - ! at solar maximum (solcycfrac_max), and to vary linearly with - ! solcycfrac between those values. - - subroutine adjust_solcyc_amplitudes( & - solcycfr, indsolvar, indsolvar_scl) - - real, intent(in) :: solcycfr ! position inn cycle [0,1] - - ! see subroutine comment - ! 1=faculae scaling, 2=sunspot scaling - real, intent(in) :: indsolvar (2) - real, intent(out) :: indsolvar_scl (2) - - ! timing of minima and maxima within solar cycle - real, parameter :: solcycfrac_min = 0.0189 ! Solar cycle frac at solar minimum - real, parameter :: solcycfrac_max = 0.3750 ! Solar cycle frac at solar maximum - real, parameter :: fracdiff_min2max = solcycfrac_max - solcycfrac_min - real, parameter :: fracdiff_max2min = 1. - fracdiff_min2max - - real :: wgt - - if (solcycfr >= 0. .and. solcycfr < solcycfrac_min) then - wgt = (solcycfr+1.-solcycfrac_max) / fracdiff_max2min - indsolvar_scl(1) = indsolvar(1) + wgt * (1.-indsolvar(1)) - indsolvar_scl(2) = indsolvar(2) + wgt * (1.-indsolvar(2)) - elseif (solcycfr >= solcycfrac_min .and. solcycfr <= solcycfrac_max) then - wgt = (solcycfr-solcycfrac_min) / fracdiff_min2max - indsolvar_scl(1) = 1. + wgt * (indsolvar(1)-1.) - indsolvar_scl(2) = 1. + wgt * (indsolvar(2)-1.) - elseif (solcycfr > solcycfrac_max .and. solcycfr <= 1.) then - wgt = (solcycfr-solcycfrac_max) / fracdiff_max2min - indsolvar_scl(1) = indsolvar(1) + wgt * (1.-indsolvar(1)) - indsolvar_scl(2) = indsolvar(2) + wgt * (1.-indsolvar(2)) - else - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'RRTMG_SW: solcycfr must be in [0,1]' - endif - - end subroutine adjust_solcyc_amplitudes - - - ! Evaluate Mg and SB indices from mean solar cycle AvgCyc11 - ! at solcycfr in [0,1]. - - subroutine interpolate_indices (solcycfr, Mg, SB) - - real, intent(in) :: solcycfr ! position inn cycle [0,1] - real, intent(out) :: Mg, SB ! faculae and sunspot indices - - integer :: sfid - real :: fraclo, frachi, intfrac - - if (solcycfr > 0. .and. solcycfr < 1.) then - - if (solcycfr <= intrvl_len_hf) then - - ! Initial half interval - sfid = 1 - fraclo = 0. - frachi = intrvl_len_hf - - elseif (solcycfr > intrvl_len_hf .and. solcycfr < 1. - intrvl_len_hf) then - - ! Intervening whole intervals - sfid = floor((solcycfr-intrvl_len_hf) * (nsolfrac-2)) + 2 - fraclo = (sfid-2) * intrvl_len + intrvl_len_hf - frachi = fraclo + intrvl_len - - elseif (solcycfr >= 1. - intrvl_len_hf) then - - ! Final half interval - sfid = (nsolfrac-2) + 1 - fraclo = 1. - intrvl_len_hf - frachi = 1. - - endif - - ! interpolate to Mg and SB at solcycfr - intfrac = (solcycfr - fraclo) / (frachi - fraclo) - Mg = mgavgcyc(sfid) + intfrac * (mgavgcyc(sfid+1) - mgavgcyc(sfid)) - SB = sbavgcyc(sfid) + intfrac * (sbavgcyc(sfid+1) - sbavgcyc(sfid)) - - elseif (solcycfr == 0.) then - - Mg = mgavgcyc(1) - SB = sbavgcyc(1) - - elseif (solcycfr == 1.) then - - Mg = mgavgcyc(nsolfrac) - SB = sbavgcyc(nsolfrac) - - else - - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'RRTMG_SW: solcycfr must be in [0,1]' - - endif - - end subroutine interpolate_indices - -end module NRLSSI2 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_cldprmc.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_cldprmc.F90 deleted file mode 100644 index 5a64ee597..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_cldprmc.F90 +++ /dev/null @@ -1,354 +0,0 @@ -!?pmn Check to ensure all calculated quantities are within physical limits. -!?pmn use of cldmin needs improving - -! space saving function-like macros for linear interpolation -! of a 2D-varaible in first and second arguments as follows ... -#define LIN2_ARG1(VAR,I,J,FINT) (VAR(I,J) + FINT * (VAR(I+1,J)-VAR(I,J))) -#define LIN2_ARG2(VAR,I,J,FINT) (VAR(I,J) + FINT * (VAR(I,J+1)-VAR(I,J))) - -module rrtmg_sw_cldprmc - -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - - ! ------- Modules ------- - - use parrrsw, only : ngptsw - use rrsw_cld, only : extliq1, ssaliq1, asyliq1, & - extice2, ssaice2, asyice2, & - extice3, ssaice3, asyice3, fdlice3, & - extice4, ssaice4, asyice4, & - abari, bbari, cbari, dbari, ebari, fbari - use rrsw_wvn, only : ngb, icxa - - implicit none - -contains - - ! ---------------------------------------------------------------------- - subroutine cldprmc_sw(pncol, ncol, nlay, iceflag, liqflag, & - cldymc, ciwpmc, clwpmc, reicmc, relqmc, & - taormc, taucmc, ssacmc, asmcmc) - ! ---------------------------------------------------------------------- - - ! Compute the cloud optical properties for each cloudy layer - ! and g-point interval for use by the McICA method. - ! Note: Only liqflag=1/iceflag=1,2,3 are available; - ! (Hu & Stamnes, Ebert and Curry, Key, and Fu) are implemented. - - ! ------- Input ------- - - integer, intent(in) :: pncol ! Dimensioned num of gridcols - integer, intent(in) :: ncol ! Actual number of gridcols - integer, intent(in) :: nlay ! number of layers - integer, intent(in) :: iceflag ! see definitions - integer, intent(in) :: liqflag ! see definitions - - logical, intent(in) :: cldymc (nlay,ngptsw,pncol) ! cloudy or not? [mcica] - real, intent(in) :: ciwpmc (nlay,ngptsw,pncol) ! cloud ice water path [mcica] [g/m2] - real, intent(in) :: clwpmc (nlay,ngptsw,pncol) ! cloud liq water path [mcica] [g/m2] - real, intent(in) :: relqmc (nlay,pncol) ! cloud liq ptle eff radius [um] - real, intent(in) :: reicmc (nlay,pncol) ! cloud ice ptle eff radius [um] - - ! Specific definition of reicmc depends on iceflag: - ! iceflag = 1: ice effective radius, r_ec, (Ebert and Curry, 1992), - ! r_ec range is limited to 13. to 130. um; - ! iceflag = 2: ice effective radius, r_k, (Key, Streamer Ref. Manual, 1996), - ! r_k range is limited to 5. to 131. um; - ! iceflag = 3: generalized effective size, dge, (Fu, 1996), - ! dge range is limited to 5. to 140. um [dge = 1.0315 * r_ec]. - - ! ------- Output ------- - - real, intent(out) :: taucmc (nlay,ngptsw,pncol) ! cloud opt depth (delta scaled) - real, intent(out) :: ssacmc (nlay,ngptsw,pncol) ! single scat albedo (delta scaled) - real, intent(out) :: asmcmc (nlay,ngptsw,pncol) ! asymmetry param (delta scaled) - real, intent(out) :: taormc (nlay,ngptsw,pncol) ! cloud opt depth (non-delta scaled) - - ! ------- Local ------- - - real, parameter :: epsg = 1.e-06 ! small number cf 1. for gice limit - real, parameter :: cldmin = 1.e-20 ! minimum value for cloud quantities - - integer :: ib, lay, istr, ig, icol - - ! table lookup parameters - integer :: index - real :: factor, fint - - ! intermediates - real :: radliq, radice - real :: tauiceorig, scatice, ssaice, tauice - real :: tauliqorig, scatliq, ssaliq, tauliq - real :: fdelta - - real, dimension (nlay,ngptsw,pncol) :: & - extcoice, gice, ssacoice, forwice, & - extcoliq, gliq, ssacoliq, forwliq - - ! Notes by PMN: - ! The optical properties per unit ice (liquid) amount (e.g., extcoice) - ! are currently per band only but are redundantly re-calculated for - ! each g-point in the band that has non-zero mcica ice (liquid) amount. - ! This is inefficient if two or more band g-points have ice (liquid). - ! I have resisted the urge to remove this inefficiency because a future - ! improvement may well McICA-generate an ice (liquid) effective radius - ! that covaries with the condensate amount. In this more general case, - ! extcoice, etc., will vary with g-point within a band. - - ! --------------------------------------------------------- - ! Calculation of absorption coefficients due to ice clouds. - ! --------------------------------------------------------- - - if (iceflag == 1) then - - ! Note: This option uses Ebert and Curry approach for all particle sizes - ! similar to CAM3 implementation, though this is somewhat unjustified for - ! large ice particles - - do icol = 1,ncol - do ig = 1,ngptsw - ib = icxa(ngb(ig)) - do lay = 1,nlay - if (cldymc(lay,ig,icol)) then - - if (ciwpmc(lay,ig,icol) == 0.) then - extcoice(lay,ig,icol) = 0. - ssacoice(lay,ig,icol) = 0. - gice (lay,ig,icol) = 0. - forwice (lay,ig,icol) = 0. - else - radice = reicmc(lay,icol) - extcoice(lay,ig,icol) = abari(ib) + bbari(ib) / radice - ssacoice(lay,ig,icol) = 1. - cbari(ib) - dbari(ib) * radice - gice (lay,ig,icol) = ebari(ib) + fbari(ib) * radice - ! Ensure gice within physical limits for large particles - ! pmn: this was slighly changed to make continuous with radice - gice(lay,ig,icol) = min(gice(lay,ig,icol),1.-epsg) - forwice (lay,ig,icol) = gice(lay,ig,icol) * gice(lay,ig,icol) - endif - - endif ! cloud present - enddo ! layers - enddo ! g-points - enddo ! columns - - elseif (iceflag == 2) then - - ! Ice particle effective radius is limited to 5.0 to 131.0 um. - - do icol = 1,ncol - do ig = 1,ngptsw - ib = ngb(ig) - do lay = 1,nlay - if (cldymc(lay,ig,icol)) then - - if (ciwpmc(lay,ig,icol) == 0.) then - extcoice(lay,ig,icol) = 0. - ssacoice(lay,ig,icol) = 0. - gice (lay,ig,icol) = 0. - forwice (lay,ig,icol) = 0. - else - radice = reicmc(lay,icol) - factor = (radice - 2.) / 3. - index = int(factor) - if (index == 43) index = 42 - fint = factor - float(index) - extcoice(lay,ig,icol) = LIN2_ARG1(extice2,index,ib,fint) - ssacoice(lay,ig,icol) = LIN2_ARG1(ssaice2,index,ib,fint) - gice (lay,ig,icol) = LIN2_ARG1(asyice2,index,ib,fint) - forwice (lay,ig,icol) = gice(lay,ig,icol) * gice(lay,ig,icol) - endif - - endif ! cloud present - enddo ! layers - enddo ! g-points - enddo ! columns - - elseif (iceflag == 3) then - - ! Ice particle generalized effective size is limited to 5. to 140. um. - - do icol = 1,ncol - do ig = 1,ngptsw - ib = ngb(ig) - do lay = 1,nlay - if (cldymc(lay,ig,icol)) then - - if (ciwpmc(lay,ig,icol) == 0.) then - extcoice(lay,ig,icol) = 0. - ssacoice(lay,ig,icol) = 0. - gice (lay,ig,icol) = 0. - forwice (lay,ig,icol) = 0. - else - radice = reicmc(lay,icol) - factor = (radice - 2.) / 3. - index = int(factor) - if (index == 46) index = 45 - fint = factor - float(index) - extcoice(lay,ig,icol) = LIN2_ARG1(extice3,index,ib,fint) - ssacoice(lay,ig,icol) = LIN2_ARG1(ssaice3,index,ib,fint) - gice (lay,ig,icol) = LIN2_ARG1(asyice3,index,ib,fint) - fdelta = LIN2_ARG1(fdlice3,index,ib,fint) - forwice (lay,ig,icol) = fdelta + 0.5 / ssacoice(lay,ig,icol) - ! See Fu 1996 p. 2067 - if (forwice(lay,ig,icol) > gice(lay,ig,icol)) & - forwice(lay,ig,icol) = gice(lay,ig,icol) - endif - - endif ! cloud present - enddo ! layers - enddo ! g-points - enddo ! columns - - elseif (iceflag == 4) then - - ! ice particle effective diameter is limited to 1. to 200. um. - - do icol = 1,ncol - do ig = 1,ngptsw - ib = ngb(ig) - do lay = 1,nlay - if (cldymc(lay,ig,icol)) then - - if (ciwpmc(lay,ig,icol) == 0.) then - extcoice(lay,ig,icol) = 0. - ssacoice(lay,ig,icol) = 0. - gice (lay,ig,icol) = 0. - forwice (lay,ig,icol) = 0. - else - radice = reicmc(lay,icol) - factor = radice - index = int(factor) - fint = factor - float(index) - extcoice(lay,ig,icol) = LIN2_ARG1(extice4,index,ib,fint) - ssacoice(lay,ig,icol) = LIN2_ARG1(ssaice4,index,ib,fint) - gice (lay,ig,icol) = LIN2_ARG1(asyice4,index,ib,fint) - forwice (lay,ig,icol) = gice(lay,ig,icol) * gice(lay,ig,icol) - endif - - endif ! cloud present - enddo ! layers - enddo ! g-points - enddo ! columns - - endif ! ice options - - ! ----------------------------------------------------------- - ! Calculation of absorption coefficients due to water clouds. - ! ----------------------------------------------------------- - - if (liqflag == 1) then - - do icol = 1,ncol - do ig = 1,ngptsw - ib = ngb(ig) - do lay = 1,nlay - if (cldymc(lay,ig,icol)) then - - if (clwpmc(lay,ig,icol) == 0.) then - extcoliq(lay,ig,icol) = 0. - ssacoliq(lay,ig,icol) = 0. - gliq (lay,ig,icol) = 0. - forwliq (lay,ig,icol) = 0. - else - radliq = relqmc(lay,icol) - index = int(radliq - 1.5) - if (index == 0) index = 1 - if (index == 58) index = 57 - fint = radliq - 1.5 - float(index) - extcoliq(lay,ig,icol) = LIN2_ARG1(extliq1,index,ib,fint) - ssacoliq(lay,ig,icol) = LIN2_ARG1(ssaliq1,index,ib,fint) - if (fint < 0. .and. ssacoliq(lay,ig,icol) > 1.) & - ssacoliq(lay,ig,icol) = ssaliq1(index,ib) - gliq (lay,ig,icol) = LIN2_ARG1(asyliq1,index,ib,fint) - forwliq (lay,ig,icol) = gliq(lay,ig,icol) * gliq(lay,ig,icol) - endif - - endif ! cloud present - enddo ! layers - enddo ! g-points - enddo ! columns - - endif ! liquid options - - ! -------------------------------------------------------------------- - ! Perform delta-scaling and Combine ice and liquid optical properties. - ! -------------------------------------------------------------------- - - do icol = 1,ncol - do ig = 1,ngptsw - do lay = 1,nlay - if (cldymc(lay,ig,icol)) then - - tauliqorig = clwpmc(lay,ig,icol) * extcoliq(lay,ig,icol) - tauiceorig = ciwpmc(lay,ig,icol) * extcoice(lay,ig,icol) - taormc(lay,ig,icol) = tauliqorig + tauiceorig - - ssaliq = ssacoliq(lay,ig,icol) * (1. - forwliq(lay,ig,icol)) & - / (1. - forwliq(lay,ig,icol) * ssacoliq(lay,ig,icol)) - ssaice = ssacoice(lay,ig,icol) * (1. - forwice(lay,ig,icol)) & - / (1. - forwice(lay,ig,icol) * ssacoice(lay,ig,icol)) - tauliq = (1. - forwliq(lay,ig,icol) * ssacoliq(lay,ig,icol)) * tauliqorig - tauice = (1. - forwice(lay,ig,icol) * ssacoice(lay,ig,icol)) * tauiceorig - - scatliq = ssaliq * tauliq - scatice = ssaice * tauice - taucmc(lay,ig,icol) = tauliq + tauice - - ! Ensure non-zero taucmc and scatice -!? pmn because of normalization below? -!? pmn cldmin use below is klugy ... find a better way when can go NZD. -!? this usage gives ssacmc = cldmin/cldmin = 1 for no cloud - if (taucmc(lay,ig,icol) == 0.) taucmc(lay,ig,icol) = cldmin - if (scatice == 0.) scatice = cldmin - - ssacmc(lay,ig,icol) = (scatliq + scatice) / taucmc(lay,ig,icol) - - if (iceflag == 3) then - ! In accordance with the 1996 Fu paper, equation A.3, - ! the moments for ice were calculated depending on whether using spheres - ! or hexagonal ice crystals. - ! Set asymetry parameter to first moment (istr=1) - istr = 1 - asmcmc(lay,ig,icol) = (1./(scatliq+scatice)) * & - (scatliq * (gliq(lay,ig,icol)**istr - forwliq(lay,ig,icol)) & - / (1. - forwliq(lay,ig,icol)) + & - scatice * ((gice(lay,ig,icol)-forwice(lay,ig,icol)) & - / (1. - forwice(lay,ig,icol)))**istr) - - else - ! This code is the standard method for delta-m scaling. - ! Set asymetry parameter to first moment (istr=1) - istr = 1 - asmcmc(lay,ig,icol) = & - (scatliq * (gliq(lay,ig,icol)**istr - forwliq(lay,ig,icol)) & - / (1. - forwliq(lay,ig,icol)) + & - scatice * (gice(lay,ig,icol)**istr - forwice(lay,ig,icol)) & - / (1. - forwice(lay,ig,icol))) & - / (scatliq + scatice) - endif - - else ! not cldymc(lay,ig,icol) - - taormc(lay,ig,icol) = 0. - taucmc(lay,ig,icol) = 0. - ssacmc(lay,ig,icol) = 1. - asmcmc(lay,ig,icol) = 0. - - endif ! cloud present - enddo ! layers - enddo ! g-points - enddo ! columns - - end subroutine cldprmc_sw - -end module rrtmg_sw_cldprmc - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_init.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_init.F90 deleted file mode 100644 index df659645b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_init.F90 +++ /dev/null @@ -1,5212 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - - module rrtmg_sw_init - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ------- Modules ------- - !use parkind, only : im => kind , rb => kind - use rrsw_wvn - use rrtmg_sw_setcoef, only: swatmref - - implicit none - - public rrtmg_sw_ini - - contains - -! ************************************************************************** - subroutine rrtmg_sw_ini -! ************************************************************************** -! -! Original version: Michael J. Iacono; February, 2004 -! Revision for F90 formatting: M. J. Iacono, July, 2006 -! -! This subroutine performs calculations necessary for the initialization -! of the shortwave model. Lookup tables are computed for use in the SW -! radiative transfer, and input absorption coefficient data for each -! spectral band are reduced from 224 g-point intervals to 112. -! ************************************************************************** - - use parrrsw, only : mg, nbndsw, ngptsw - use rrsw_tbl, only: ntbl, tblint, pade, bpade, tau_tbl, exp_tbl - use rrsw_vsn, only: hvrini, hnamini - -! ------- Local ------- - - integer :: ibnd, igc, ig, ind, ipr - integer :: igcsm, iprsm - integer :: itr - - real :: wtsum, wtsm(mg) - real :: tfn - - real, parameter :: expeps = 1.e-20 ! Smallest value for exponential table - -! ------- Definitions ------- -! Arrays for 10000-point look-up tables: -! TAU_TBL Clear-sky optical depth -! EXP_TBL Exponential lookup table for transmittance -! PADE Pade approximation constant (= 0.278) -! BPADE Inverse of the Pade approximation constant -! - - hvrini = '$Revision$' - -! Initialize model data - call swdatinit - call swcmbdat ! g-point interval reduction data - call swaerpr ! aerosol optical properties - call swcldpr ! cloud optical properties - call swatmref ! reference MLS profile - call sw_kgb16 ! molecular absorption coefficients - call sw_kgb17 - call sw_kgb18 - call sw_kgb19 - call sw_kgb20 - call sw_kgb21 - call sw_kgb22 - call sw_kgb23 - call sw_kgb24 - call sw_kgb25 - call sw_kgb26 - call sw_kgb27 - call sw_kgb28 - call sw_kgb29 - -! Define exponential lookup tables for transmittance. Tau is -! computed as a function of the tau transition function, and transmittance -! is calculated as a function of tau. All tables are computed at intervals -! of 0.0001. The inverse of the constant used in the Pade approximation to -! the tau transition function is set to bpade. - - exp_tbl(0) = 1.0 - exp_tbl(ntbl) = expeps - bpade = 1.0 / pade - do itr = 1, ntbl-1 - tfn = float(itr) / float(ntbl) - tau_tbl = bpade * tfn / (1. - tfn) - exp_tbl(itr) = exp(-tau_tbl) - if (exp_tbl(itr) .le. expeps) exp_tbl(itr) = expeps - enddo - -! Perform g-point reduction from 16 per band (224 total points) to -! a band dependent number (112 total points) for all absorption -! coefficient input data and Planck fraction input data. -! Compute relative weighting for new g-point combinations. - - igcsm = 0 - do ibnd = 1,nbndsw - iprsm = 0 - if (ngc(ibnd).lt.mg) then - do igc = 1,ngc(ibnd) - igcsm = igcsm + 1 - wtsum = 0. - do ipr = 1, ngn(igcsm) - iprsm = iprsm + 1 - wtsum = wtsum + wt(iprsm) - enddo - wtsm(igc) = wtsum - enddo - do ig = 1, ng(ibnd+15) - ind = (ibnd-1)*mg + ig - rwgt(ind) = wt(ig)/wtsm(ngm(ind)) - enddo - else - do ig = 1, ng(ibnd+15) - igcsm = igcsm + 1 - ind = (ibnd-1)*mg + ig - rwgt(ind) = 1.0 - enddo - endif - enddo - -! Reduce g-points for absorption coefficient data in each LW spectral band. - - call cmbgb16s - call cmbgb17 - call cmbgb18 - call cmbgb19 - call cmbgb20 - call cmbgb21 - call cmbgb22 - call cmbgb23 - call cmbgb24 - call cmbgb25 - call cmbgb26 - call cmbgb27 - call cmbgb28 - call cmbgb29 - - end subroutine rrtmg_sw_ini - -!*************************************************************************** - subroutine swdatinit -!*************************************************************************** - -! --------- Modules ---------- - - use rrsw_con, only: grav, planck, boltz, & - clight, avogad, alosmt, gascon, radcn1, radcn2, & - sbcnst - use rrsw_vsn - - save - -! Shortwave spectral band limits (wavenumbers) - wavenum1(:) = (/2600., 3250., 4000., 4650., 5150., 6150., 7700., & - 8050.,12850.,16000.,22650.,29000.,38000., 820./) - wavenum2(:) = (/3250., 4000., 4650., 5150., 6150., 7700., 8050., & - 12850.,16000.,22650.,29000.,38000.,50000., 2600./) - delwave(:) = (/ 650., 750., 650., 500., 1000., 1550., 350., & - 4800., 3150., 6650., 6350., 9000.,12000., 1780./) - - - icxa(:) = (/ 5 ,5 ,4 ,4 ,3 ,3 ,2 ,2 ,1 ,1 ,1 ,1 ,1 ,5/) -! Spectral band information - ng(:) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16/) - nspa(:) = (/9,9,9,9,1,9,9,1,9,1,0,1,9,1/) - nspb(:) = (/1,5,1,1,1,5,1,0,1,0,0,1,5,1/) - -! Fundamental physical constants from NIST 2002 - - grav = 9.8066 ! Acceleration of gravity - ! (m s-2) - planck = 6.62606876e-27 ! Planck constant - ! (ergs s; g cm2 s-1) - boltz = 1.3806503e-16 ! Boltzmann constant - ! (ergs K-1; g cm2 s-2 K-1) - clight = 2.99792458e+10 ! Speed of light in a vacuum - ! (cm s-1) - avogad = 6.02214199e+23 ! Avogadro constant - ! (mol-1) - alosmt = 2.6867775e+19 ! Loschmidt constant - ! (cm-3) - gascon = 8.31447200e+07 ! Molar gas constant - ! (ergs mol-1 K-1) - radcn1 = 1.191042772e-12 ! First radiation constant - ! (W cm2 sr-1) - radcn2 = 1.4387752 ! Second radiation constant - ! (cm K) - sbcnst = 5.670400e-04 ! Stefan-Boltzmann constant - ! (W cm-2 K-4) -! -! units are generally cgs -! -! The first and second radiation constants are taken from NIST. -! They were previously obtained from the relations: -! radcn1 = 2.*planck*clight*clight*1.e-07 -! radcn2 = planck*clight/boltz - - end subroutine swdatinit - -!*************************************************************************** - subroutine swcmbdat -!*************************************************************************** - - save - -! ------- Definitions ------- -! Arrays for the g-point reduction from 224 to 112 for the 16 LW bands: -! This mapping from 224 to 112 points has been carefully selected to -! minimize the effect on the resulting fluxes and cooling rates, and -! caution should be used if the mapping is modified. The full 224 -! g-point set can be restored with ngpt=224, ngc=16*16, ngn=224*1., etc. -! ngpt The total number of new g-points -! ngc The number of new g-points in each band -! ngs The cumulative sum of new g-points for each band -! ngm The index of each new g-point relative to the original -! 16 g-points for each band. -! ngn The number of original g-points that are combined to make -! each new g-point in each band. -! ngb The band index for each new g-point. -! wt RRTM weights for 16 g-points. - -! Use this set for 112 quadrature point (g-point) model -! ------- Data statements ------- - ngc(:) = (/ 6,12, 8, 8,10,10, 2,10, 8, 6, 6, 8, 6,12 /) - ngs(:) = (/ 6,18,26,34,44,54,56,66,74,80,86,94,100,112 /) - ngm(:) = (/ 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, & ! band 16 - 1,2,3,4,5,6,6,7,8,8,9,10,10,11,12,12, & ! band 17 - 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, & ! band 18 - 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, & ! band 19 - 1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, & ! band 20 - 1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, & ! band 21 - 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, & ! band 22 - 1,1,2,2,3,4,5,6,7,8,9,9,10,10,10,10, & ! band 23 - 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, & ! band 24 - 1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, & ! band 25 - 1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, & ! band 26 - 1,2,3,4,5,6,7,7,7,7,8,8,8,8,8,8, & ! band 27 - 1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, & ! band 28 - 1,2,3,4,5,5,6,6,7,7,8,8,9,10,11,12 /) ! band 29 - ngn(:) = (/ 2,2,2,2,4,4, & ! band 16 - 1,1,1,1,1,2,1,2,1,2,1,2, & ! band 17 - 1,1,1,1,2,2,4,4, & ! band 18 - 1,1,1,1,2,2,4,4, & ! band 19 - 1,1,1,1,1,1,1,1,2,6, & ! band 20 - 1,1,1,1,1,1,1,1,2,6, & ! band 21 - 8,8, & ! band 22 - 2,2,1,1,1,1,1,1,2,4, & ! band 23 - 2,2,2,2,2,2,2,2, & ! band 24 - 1,1,2,2,4,6, & ! band 25 - 1,1,2,2,4,6, & ! band 26 - 1,1,1,1,1,1,4,6, & ! band 27 - 1,1,2,2,4,6, & ! band 28 - 1,1,1,1,2,2,2,2,1,1,1,1 /) ! band 29 - ngb(:) = (/ 16,16,16,16,16,16, & ! band 16 - 17,17,17,17,17,17,17,17,17,17,17,17, & ! band 17 - 18,18,18,18,18,18,18,18, & ! band 18 - 19,19,19,19,19,19,19,19, & ! band 19 - 20,20,20,20,20,20,20,20,20,20, & ! band 20 - 21,21,21,21,21,21,21,21,21,21, & ! band 21 - 22,22, & ! band 22 - 23,23,23,23,23,23,23,23,23,23, & ! band 23 - 24,24,24,24,24,24,24,24, & ! band 24 - 25,25,25,25,25,25, & ! band 25 - 26,26,26,26,26,26, & ! band 26 - 27,27,27,27,27,27,27,27, & ! band 27 - 28,28,28,28,28,28, & ! band 28 - 29,29,29,29,29,29,29,29,29,29,29,29 /) ! band 29 - -! Use this set for full 224 quadrature point (g-point) model -! ------- Data statements ------- -! ngc(:) = (/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16 /) -! ngs(:) = (/ 16,32,48,64,80,96,112,128,144,160,176,192,208,224 /) -! ngm(:) = (/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 16 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 17 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 18 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 19 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 20 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 21 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 22 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 23 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 24 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 25 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 26 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 27 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, & ! band 28 -! 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /) ! band 29 -! ngn(:) = (/ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 16 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 17 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 18 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 19 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 20 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 21 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 22 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 23 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 24 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 25 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 26 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 27 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, & ! band 28 -! 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 /) ! band 29 -! ngb(:) = (/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, & ! band 16 -! 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, & ! band 17 -! 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18, & ! band 18 -! 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, & ! band 19 -! 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, & ! band 20 -! 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, & ! band 21 -! 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, & ! band 22 -! 23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, & ! band 23 -! 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, & ! band 24 -! 25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25, & ! band 25 -! 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, & ! band 26 -! 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, & ! band 27 -! 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, & ! band 28 -! 29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29 /) ! band 29 - - - wt(:) = (/ 0.1527534276, 0.1491729617, 0.1420961469, & - 0.1316886544, 0.1181945205, 0.1019300893, & - 0.0832767040, 0.0626720116, 0.0424925000, & - 0.0046269894, 0.0038279891, 0.0030260086, & - 0.0022199750, 0.0014140010, 0.0005330000, & - 0.0000750000 /) - - end subroutine swcmbdat - -!*************************************************************************** - subroutine swaerpr -!*************************************************************************** - -! Purpose: Define spectral aerosol properties for six ECMWF aerosol types -! as used in the ECMWF IFS model (see module rrsw_aer.F90 for details) -! -! Original: Defined for rrtmg_sw 14 spectral bands, JJMorcrette, ECMWF Feb 2003 -! Revision: Reformatted for consistency with rrtmg_lw, MJIacono, AER, Jul 2006 - - use rrsw_aer, only : rsrtaua, rsrpiza, rsrasya - - save - - rsrtaua( 1, :) = (/ & - 0.10849, 0.66699, 0.65255, 0.11600, 0.06529, 0.04468/) - rsrtaua( 2, :) = (/ & - 0.10849, 0.66699, 0.65255, 0.11600, 0.06529, 0.04468/) - rsrtaua( 3, :) = (/ & - 0.20543, 0.84642, 0.84958, 0.21673, 0.28270, 0.10915/) - rsrtaua( 4, :) = (/ & - 0.20543, 0.84642, 0.84958, 0.21673, 0.28270, 0.10915/) - rsrtaua( 5, :) = (/ & - 0.20543, 0.84642, 0.84958, 0.21673, 0.28270, 0.10915/) - rsrtaua( 6, :) = (/ & - 0.20543, 0.84642, 0.84958, 0.21673, 0.28270, 0.10915/) - rsrtaua( 7, :) = (/ & - 0.20543, 0.84642, 0.84958, 0.21673, 0.28270, 0.10915/) - rsrtaua( 8, :) = (/ & - 0.52838, 0.93285, 0.93449, 0.53078, 0.67148, 0.46608/) - rsrtaua( 9, :) = (/ & - 0.52838, 0.93285, 0.93449, 0.53078, 0.67148, 0.46608/) - rsrtaua(10, :) = (/ & - 1.69446, 1.11855, 1.09212, 1.72145, 1.03858, 1.12044/) - rsrtaua(11, :) = (/ & - 1.69446, 1.11855, 1.09212, 1.72145, 1.03858, 1.12044/) - rsrtaua(12, :) = (/ & - 1.69446, 1.11855, 1.09212, 1.72145, 1.03858, 1.12044/) - rsrtaua(13, :) = (/ & - 1.69446, 1.11855, 1.09212, 1.72145, 1.03858, 1.12044/) - rsrtaua(14, :) = (/ & - 0.10849, 0.66699, 0.65255, 0.11600, 0.06529, 0.04468/) - - rsrpiza( 1, :) = (/ & - .5230504, .7868518, .8531531, .4048149, .8748231, .2355667/) - rsrpiza( 2, :) = (/ & - .5230504, .7868518, .8531531, .4048149, .8748231, .2355667/) - rsrpiza( 3, :) = (/ & - .8287144, .9949396, .9279543, .6765051, .9467578, .9955938/) - rsrpiza( 4, :) = (/ & - .8287144, .9949396, .9279543, .6765051, .9467578, .9955938/) - rsrpiza( 5, :) = (/ & - .8287144, .9949396, .9279543, .6765051, .9467578, .9955938/) - rsrpiza( 6, :) = (/ & - .8287144, .9949396, .9279543, .6765051, .9467578, .9955938/) - rsrpiza( 7, :) = (/ & - .8287144, .9949396, .9279543, .6765051, .9467578, .9955938/) - rsrpiza( 8, :) = (/ & - .8970131, .9984940, .9245594, .7768385, .9532763, .9999999/) - rsrpiza( 9, :) = (/ & - .8970131, .9984940, .9245594, .7768385, .9532763, .9999999/) - rsrpiza(10, :) = (/ & - .9148907, .9956173, .7504584, .8131335, .9401905, .9999999/) - rsrpiza(11, :) = (/ & - .9148907, .9956173, .7504584, .8131335, .9401905, .9999999/) - rsrpiza(12, :) = (/ & - .9148907, .9956173, .7504584, .8131335, .9401905, .9999999/) - rsrpiza(13, :) = (/ & - .9148907, .9956173, .7504584, .8131335, .9401905, .9999999/) - rsrpiza(14, :) = (/ & - .5230504, .7868518, .8531531, .4048149, .8748231, .2355667/) - - rsrasya( 1, :) = (/ & - 0.700610, 0.818871, 0.702399, 0.689886, .4629866, .1907639/) - rsrasya( 2, :) = (/ & - 0.700610, 0.818871, 0.702399, 0.689886, .4629866, .1907639/) - rsrasya( 3, :) = (/ & - 0.636342, 0.802467, 0.691305, 0.627497, .6105750, .4760794/) - rsrasya( 4, :) = (/ & - 0.636342, 0.802467, 0.691305, 0.627497, .6105750, .4760794/) - rsrasya( 5, :) = (/ & - 0.636342, 0.802467, 0.691305, 0.627497, .6105750, .4760794/) - rsrasya( 6, :) = (/ & - 0.636342, 0.802467, 0.691305, 0.627497, .6105750, .4760794/) - rsrasya( 7, :) = (/ & - 0.636342, 0.802467, 0.691305, 0.627497, .6105750, .4760794/) - rsrasya( 8, :) = (/ & - 0.668431, 0.788530, 0.698682, 0.657422, .6735182, .6519706/) - rsrasya( 9, :) = (/ & - 0.668431, 0.788530, 0.698682, 0.657422, .6735182, .6519706/) - rsrasya(10, :) = (/ & - 0.729019, 0.803129, 0.784592, 0.712208, .7008249, .7270548/) - rsrasya(11, :) = (/ & - 0.729019, 0.803129, 0.784592, 0.712208, .7008249, .7270548/) - rsrasya(12, :) = (/ & - 0.729019, 0.803129, 0.784592, 0.712208, .7008249, .7270548/) - rsrasya(13, :) = (/ & - 0.729019, 0.803129, 0.784592, 0.712208, .7008249, .7270548/) - rsrasya(14, :) = (/ & - 0.700610, 0.818871, 0.702399, 0.689886, .4629866, .1907639/) - - end subroutine swaerpr - -!*************************************************************************** - subroutine cmbgb16s -!*************************************************************************** -! -! Original version: MJIacono; July 1998 -! Revision for RRTM_SW: MJIacono; November 2002 -! Revision for RRTMG_SW: MJIacono; December 2003 -! Revision for F90 reformatting: MJIacono; July 2006 -! -! The subroutines CMBGB16->CMBGB29 input the absorption coefficient -! data for each band, which are defined for 16 g-points and 14 spectral -! bands. The data are combined with appropriate weighting following the -! g-point mapping arrays specified in RRTMG_SW_INIT. Solar source -! Function data in array SFLUXREF are combined without weighting. All -! g-point reduced data are put into new arrays for use in RRTMG_SW. -! -! band 16: 2600-3250 cm-1 (low key- h2o,ch4; high key - ch4) -! -!----------------------------------------------------------------------- - - use rrsw_kg16, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, absb, kb, selfref, forref, sfluxref, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf, sumsv1, sumsv2, sumsv3 - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(1) - sumk = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(1) - sumk = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(1) - sumk = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,3 - iprsm = 0 - do igc = 1,ngc(1) - sumk = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(1) - sumf = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(igc) - iprsm = iprsm + 1 - sumf = sumf + sfluxrefo(iprsm) - sumsv1 = sumsv1 + irradnceo(iprsm) - sumsv2 = sumsv2 + facbrghto(iprsm) - sumsv3 = sumsv3 + snsptdrko(iprsm) - enddo - sfluxref(igc) = sumf - irradnce(igc) = sumsv1 - facbrght(igc) = sumsv2 - snsptdrk(igc) = sumsv3 - enddo - - end subroutine cmbgb16s - -!*************************************************************************** - subroutine cmbgb17 -!*************************************************************************** -! -! band 17: 3250-4000 cm-1 (low - h2o,co2; high - h2o,co2) -!----------------------------------------------------------------------- - - use rrsw_kg17, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, absb, kb, selfref, forref, sfluxref, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf, sumsv1, sumsv2, sumsv3 - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(2) - sumk = 0. - do ipr = 1, ngn(ngs(1)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+16) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jn = 1,5 - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(2) - sumk = 0. - do ipr = 1, ngn(ngs(1)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+16) - enddo - kb(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(2) - sumk = 0. - do ipr = 1, ngn(ngs(1)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+16) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(2) - sumk = 0. - do ipr = 1, ngn(ngs(1)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+16) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,5 - iprsm = 0 - do igc = 1,ngc(2) - sumf = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(1)+igc) - iprsm = iprsm + 1 - sumf = sumf + sfluxrefo(iprsm,jp) - sumsv1 = sumsv1 + irradnceo(iprsm,jp) - sumsv2 = sumsv2 + facbrghto(iprsm,jp) - sumsv3 = sumsv3 + snsptdrko(iprsm,jp) - enddo - sfluxref(igc,jp) = sumf - irradnce(igc,jp) = sumsv1 - facbrght(igc,jp) = sumsv2 - snsptdrk(igc,jp) = sumsv3 - enddo - enddo - - end subroutine cmbgb17 - -!*************************************************************************** - subroutine cmbgb18 -!*************************************************************************** -! -! band 18: 4000-4650 cm-1 (low - h2o,ch4; high - ch4) -!----------------------------------------------------------------------- - - use rrsw_kg18, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, absb, kb, selfref, forref, sfluxref, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf, sumsv1, sumsv2, sumsv3 - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(3) - sumk = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+32) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(3) - sumk = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+32) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(3) - sumk = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+32) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,3 - iprsm = 0 - do igc = 1,ngc(3) - sumk = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+32) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(3) - sumf = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(2)+igc) - iprsm = iprsm + 1 - sumf = sumf + sfluxrefo(iprsm,jp) - sumsv1 = sumsv1 + irradnceo(iprsm,jp) - sumsv2 = sumsv2 + facbrghto(iprsm,jp) - sumsv3 = sumsv3 + snsptdrko(iprsm,jp) - enddo - sfluxref(igc,jp) = sumf - irradnce(igc,jp) = sumsv1 - facbrght(igc,jp) = sumsv2 - snsptdrk(igc,jp) = sumsv3 - enddo - enddo - - end subroutine cmbgb18 - -!*************************************************************************** - subroutine cmbgb19 -!*************************************************************************** -! -! band 19: 4650-5150 cm-1 (low - h2o,co2; high - co2) -!----------------------------------------------------------------------- - - use rrsw_kg19, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, absb, kb, selfref, forref, sfluxref, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf, sumsv1, sumsv2, sumsv3 - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(4) - sumk = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+48) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(4) - sumk = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+48) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(4) - sumk = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+48) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,3 - iprsm = 0 - do igc = 1,ngc(4) - sumk = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+48) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(4) - sumf = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(3)+igc) - iprsm = iprsm + 1 - sumf = sumf + sfluxrefo(iprsm,jp) - sumsv1 = sumsv1 + irradnceo(iprsm,jp) - sumsv2 = sumsv2 + facbrghto(iprsm,jp) - sumsv3 = sumsv3 + snsptdrko(iprsm,jp) - enddo - sfluxref(igc,jp) = sumf - irradnce(igc,jp) = sumsv1 - facbrght(igc,jp) = sumsv2 - snsptdrk(igc,jp) = sumsv3 - enddo - enddo - - end subroutine cmbgb19 - -!*************************************************************************** - subroutine cmbgb20 -!*************************************************************************** -! -! band 20: 5150-6150 cm-1 (low - h2o; high - h2o) -!----------------------------------------------------------------------- - - use rrsw_kg20, only : kao, kbo, selfrefo, forrefo, sfluxrefo, absch4o, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, absb, kb, selfref, forref, sfluxref, absch4, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumf1, sumf2, sumsv1, sumsv2, sumsv3 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(5) - sumk = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+64) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(5) - sumk = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+64) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(5) - sumk = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+64) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(5) - sumk = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+64) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(5) - sumf1 = 0. - sumf2 = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(4)+igc) - iprsm = iprsm + 1 - sumf1 = sumf1 + sfluxrefo(iprsm) - sumf2 = sumf2 + absch4o(iprsm)*rwgt(iprsm+64) - sumsv1 = sumsv1 + irradnceo(iprsm) - sumsv2 = sumsv2 + facbrghto(iprsm) - sumsv3 = sumsv3 + snsptdrko(iprsm) - enddo - sfluxref(igc) = sumf1 - absch4(igc) = sumf2 - irradnce(igc) = sumsv1 - facbrght(igc) = sumsv2 - snsptdrk(igc) = sumsv3 - enddo - - end subroutine cmbgb20 - -!*************************************************************************** - subroutine cmbgb21 -!*************************************************************************** -! -! band 21: 6150-7700 cm-1 (low - h2o,co2; high - h2o,co2) -!----------------------------------------------------------------------- - - use rrsw_kg21, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, absb, kb, selfref, forref, sfluxref, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf, sumsv1, sumsv2, sumsv3 - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(6) - sumk = 0. - do ipr = 1, ngn(ngs(5)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+80) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jn = 1,5 - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(6) - sumk = 0. - do ipr = 1, ngn(ngs(5)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+80) - enddo - kb(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(6) - sumk = 0. - do ipr = 1, ngn(ngs(5)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+80) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(6) - sumk = 0. - do ipr = 1, ngn(ngs(5)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+80) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(6) - sumf = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(5)+igc) - iprsm = iprsm + 1 - sumf = sumf + sfluxrefo(iprsm,jp) - sumsv1 = sumsv1 + irradnceo(iprsm,jp) - sumsv2 = sumsv2 + facbrghto(iprsm,jp) - sumsv3 = sumsv3 + snsptdrko(iprsm,jp) - enddo - sfluxref(igc,jp) = sumf - irradnce(igc,jp) = sumsv1 - facbrght(igc,jp) = sumsv2 - snsptdrk(igc,jp) = sumsv3 - enddo - enddo - - end subroutine cmbgb21 - -!*************************************************************************** - subroutine cmbgb22 -!*************************************************************************** -! -! band 22: 7700-8050 cm-1 (low - h2o,o2; high - o2) -!----------------------------------------------------------------------- - - use rrsw_kg22, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, absb, kb, selfref, forref, sfluxref, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf, sumsv1, sumsv2, sumsv3 - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(7) - sumk = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+96) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(7) - sumk = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+96) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(7) - sumk = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+96) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,3 - iprsm = 0 - do igc = 1,ngc(7) - sumk = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+96) - enddo - forref(jt,igc) = sumk - enddo - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(7) - sumf = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(6)+igc) - iprsm = iprsm + 1 - sumf = sumf + sfluxrefo(iprsm,jp) - sumsv1 = sumsv1 + irradnceo(iprsm,jp) - sumsv2 = sumsv2 + facbrghto(iprsm,jp) - sumsv3 = sumsv3 + snsptdrko(iprsm,jp) - enddo - sfluxref(igc,jp) = sumf - irradnce(igc,jp) = sumsv1 - facbrght(igc,jp) = sumsv2 - snsptdrk(igc,jp) = sumsv3 - enddo - enddo - - end subroutine cmbgb22 - -!*************************************************************************** - subroutine cmbgb23 -!*************************************************************************** -! -! band 23: 8050-12850 cm-1 (low - h2o; high - nothing) -!----------------------------------------------------------------------- - - use rrsw_kg23, only : kao, selfrefo, forrefo, sfluxrefo, raylo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, selfref, forref, sfluxref, rayl, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumf1, sumf2, sumsv1, sumsv2, sumsv3 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(8) - sumk = 0. - do ipr = 1, ngn(ngs(7)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+112) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(8) - sumk = 0. - do ipr = 1, ngn(ngs(7)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+112) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,3 - iprsm = 0 - do igc = 1,ngc(8) - sumk = 0. - do ipr = 1, ngn(ngs(7)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+112) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(8) - sumf1 = 0. - sumf2 = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(7)+igc) - iprsm = iprsm + 1 - sumf1 = sumf1 + sfluxrefo(iprsm) - sumf2 = sumf2 + raylo(iprsm)*rwgt(iprsm+112) - sumsv1 = sumsv1 + irradnceo(iprsm) - sumsv2 = sumsv2 + facbrghto(iprsm) - sumsv3 = sumsv3 + snsptdrko(iprsm) - enddo - sfluxref(igc) = sumf1 - rayl(igc) = sumf2 - irradnce(igc) = sumsv1 - facbrght(igc) = sumsv2 - snsptdrk(igc) = sumsv3 - enddo - - end subroutine cmbgb23 - -!*************************************************************************** - subroutine cmbgb24 -!*************************************************************************** -! -! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2) -!----------------------------------------------------------------------- - - use rrsw_kg24, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - abso3ao, abso3bo, raylao, raylbo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, absb, kb, selfref, forref, sfluxref, & - abso3a, abso3b, rayla, raylb, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf1, sumf2, sumf3, sumsv1, sumsv2, sumsv3 - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(9) - sumk = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+128) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(9) - sumk = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+128) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(9) - sumk = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+128) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,3 - iprsm = 0 - do igc = 1,ngc(9) - sumk = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+128) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(9) - sumf1 = 0. - sumf2 = 0. - sumf3 = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumf1 = sumf1 + raylbo(iprsm)*rwgt(iprsm+128) - sumf2 = sumf2 + abso3ao(iprsm)*rwgt(iprsm+128) - sumf3 = sumf3 + abso3bo(iprsm)*rwgt(iprsm+128) - enddo - raylb(igc) = sumf1 - abso3a(igc) = sumf2 - abso3b(igc) = sumf3 - enddo - - do jp = 1,9 - iprsm = 0 - do igc = 1,ngc(9) - sumf1 = 0. - sumf2 = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(8)+igc) - iprsm = iprsm + 1 - sumf1 = sumf1 + sfluxrefo(iprsm,jp) - sumf2 = sumf2 + raylao(iprsm,jp)*rwgt(iprsm+128) - sumsv1 = sumsv1 + irradnceo(iprsm,jp) - sumsv2 = sumsv2 + facbrghto(iprsm,jp) - sumsv3 = sumsv3 + snsptdrko(iprsm,jp) - enddo - sfluxref(igc,jp) = sumf1 - rayla(igc,jp) = sumf2 - irradnce(igc,jp) = sumsv1 - facbrght(igc,jp) = sumsv2 - snsptdrk(igc,jp) = sumsv3 - enddo - enddo - - end subroutine cmbgb24 - -!*************************************************************************** - subroutine cmbgb25 -!*************************************************************************** -! -! band 25: 16000-22650 cm-1 (low - h2o; high - nothing) -!----------------------------------------------------------------------- - - use rrsw_kg25, only : kao, sfluxrefo, & - abso3ao, abso3bo, raylo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, sfluxref, & - abso3a, abso3b, rayl, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumf1, sumf2, sumf3, sumf4, sumsv1, sumsv2, sumsv3 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(10) - sumk = 0. - do ipr = 1, ngn(ngs(9)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+144) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(10) - sumf1 = 0. - sumf2 = 0. - sumf3 = 0. - sumf4 = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(9)+igc) - iprsm = iprsm + 1 - sumf1 = sumf1 + sfluxrefo(iprsm) - sumf2 = sumf2 + abso3ao(iprsm)*rwgt(iprsm+144) - sumf3 = sumf3 + abso3bo(iprsm)*rwgt(iprsm+144) - sumf4 = sumf4 + raylo(iprsm)*rwgt(iprsm+144) - sumsv1 = sumsv1 + irradnceo(iprsm) - sumsv2 = sumsv2 + facbrghto(iprsm) - sumsv3 = sumsv3 + snsptdrko(iprsm) - enddo - sfluxref(igc) = sumf1 - abso3a(igc) = sumf2 - abso3b(igc) = sumf3 - rayl(igc) = sumf4 - irradnce(igc) = sumsv1 - facbrght(igc) = sumsv2 - snsptdrk(igc) = sumsv3 - enddo - - end subroutine cmbgb25 - -!*************************************************************************** - subroutine cmbgb26 -!*************************************************************************** -! -! band 26: 22650-29000 cm-1 (low - nothing; high - nothing) -!----------------------------------------------------------------------- - - use rrsw_kg26, only : sfluxrefo, raylo, & - irradnceo, facbrghto, snsptdrko, & - sfluxref, rayl, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: igc, ipr, iprsm - real :: sumf1, sumf2, sumsv1, sumsv2, sumsv3 - - - iprsm = 0 - do igc = 1,ngc(11) - sumf1 = 0. - sumf2 = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(10)+igc) - iprsm = iprsm + 1 - sumf1 = sumf1 + raylo(iprsm)*rwgt(iprsm+160) - sumf2 = sumf2 + sfluxrefo(iprsm) - sumsv1 = sumsv1 + irradnceo(iprsm) - sumsv2 = sumsv2 + facbrghto(iprsm) - sumsv3 = sumsv3 + snsptdrko(iprsm) - enddo - rayl(igc) = sumf1 - sfluxref(igc) = sumf2 - irradnce(igc) = sumsv1 - facbrght(igc) = sumsv2 - snsptdrk(igc) = sumsv3 - enddo - - end subroutine cmbgb26 - -!*************************************************************************** - subroutine cmbgb27 -!*************************************************************************** -! -! band 27: 29000-38000 cm-1 (low - o3; high - o3) -!----------------------------------------------------------------------- - - use rrsw_kg27, only : kao, kbo, sfluxrefo, raylo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, absb, kb, sfluxref, rayl, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumf1, sumf2, sumsv1, sumsv2, sumsv3 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(12) - sumk = 0. - do ipr = 1, ngn(ngs(11)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+176) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(12) - sumk = 0. - do ipr = 1, ngn(ngs(11)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+176) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(12) - sumf1 = 0. - sumf2 = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(11)+igc) - iprsm = iprsm + 1 - sumf1 = sumf1 + sfluxrefo(iprsm) - sumf2 = sumf2 + raylo(iprsm)*rwgt(iprsm+176) - sumsv1 = sumsv1 + irradnceo(iprsm) - sumsv2 = sumsv2 + facbrghto(iprsm) - sumsv3 = sumsv3 + snsptdrko(iprsm) - enddo - sfluxref(igc) = sumf1 - rayl(igc) = sumf2 - irradnce(igc) = sumsv1 - facbrght(igc) = sumsv2 - snsptdrk(igc) = sumsv3 - enddo - - end subroutine cmbgb27 - -!*************************************************************************** - subroutine cmbgb28 -!*************************************************************************** -! -! band 28: 38000-50000 cm-1 (low - o3,o2; high - o3,o2) -!----------------------------------------------------------------------- - - use rrsw_kg28, only : kao, kbo, sfluxrefo, & - irradnceo, facbrghto, snsptdrko, & - absa, ka, absb, kb, sfluxref, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jn, jt, jp, igc, ipr, iprsm - real :: sumk, sumf, sumsv1, sumsv2, sumsv3 - - - do jn = 1,9 - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(13) - sumk = 0. - do ipr = 1, ngn(ngs(12)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jn,jt,jp,iprsm)*rwgt(iprsm+192) - enddo - ka(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jn = 1,5 - do jt = 1,5 - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(13) - sumk = 0. - do ipr = 1, ngn(ngs(12)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jn,jt,jp,iprsm)*rwgt(iprsm+192) - enddo - kb(jn,jt,jp,igc) = sumk - enddo - enddo - enddo - enddo - - do jp = 1,5 - iprsm = 0 - do igc = 1,ngc(13) - sumf = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(12)+igc) - iprsm = iprsm + 1 - sumf = sumf + sfluxrefo(iprsm,jp) - sumsv1 = sumsv1 + irradnceo(iprsm,jp) - sumsv2 = sumsv2 + facbrghto(iprsm,jp) - sumsv3 = sumsv3 + snsptdrko(iprsm,jp) - enddo - sfluxref(igc,jp) = sumf - irradnce(igc,jp) = sumsv1 - facbrght(igc,jp) = sumsv2 - snsptdrk(igc,jp) = sumsv3 - enddo - enddo - - end subroutine cmbgb28 - -!*************************************************************************** - subroutine cmbgb29 -!*************************************************************************** -! -! band 29: 820-2600 cm-1 (low - h2o; high - co2) -!----------------------------------------------------------------------- - - use rrsw_kg29, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - irradnceo, facbrghto, snsptdrko, & - absh2oo, absco2o, & - absa, ka, absb, kb, selfref, forref, sfluxref, & - absh2o, absco2, & - irradnce, facbrght, snsptdrk - -! ------- Local ------- - integer :: jt, jp, igc, ipr, iprsm - real :: sumk, sumf1, sumf2, sumf3, sumsv1, sumsv2, sumsv3 - - - do jt = 1,5 - do jp = 1,13 - iprsm = 0 - do igc = 1,ngc(14) - sumk = 0. - do ipr = 1, ngn(ngs(13)+igc) - iprsm = iprsm + 1 - sumk = sumk + kao(jt,jp,iprsm)*rwgt(iprsm+208) - enddo - ka(jt,jp,igc) = sumk - enddo - enddo - do jp = 13,59 - iprsm = 0 - do igc = 1,ngc(14) - sumk = 0. - do ipr = 1, ngn(ngs(13)+igc) - iprsm = iprsm + 1 - sumk = sumk + kbo(jt,jp,iprsm)*rwgt(iprsm+208) - enddo - kb(jt,jp,igc) = sumk - enddo - enddo - enddo - - do jt = 1,10 - iprsm = 0 - do igc = 1,ngc(14) - sumk = 0. - do ipr = 1, ngn(ngs(13)+igc) - iprsm = iprsm + 1 - sumk = sumk + selfrefo(jt,iprsm)*rwgt(iprsm+208) - enddo - selfref(jt,igc) = sumk - enddo - enddo - - do jt = 1,4 - iprsm = 0 - do igc = 1,ngc(14) - sumk = 0. - do ipr = 1, ngn(ngs(13)+igc) - iprsm = iprsm + 1 - sumk = sumk + forrefo(jt,iprsm)*rwgt(iprsm+208) - enddo - forref(jt,igc) = sumk - enddo - enddo - - iprsm = 0 - do igc = 1,ngc(14) - sumf1 = 0. - sumf2 = 0. - sumf3 = 0. - sumsv1 = 0. - sumsv2 = 0. - sumsv3 = 0. - do ipr = 1, ngn(ngs(13)+igc) - iprsm = iprsm + 1 - sumf1 = sumf1 + sfluxrefo(iprsm) - sumf2 = sumf2 + absco2o(iprsm)*rwgt(iprsm+208) - sumf3 = sumf3 + absh2oo(iprsm)*rwgt(iprsm+208) - sumsv1 = sumsv1 + irradnceo(iprsm) - sumsv2 = sumsv2 + facbrghto(iprsm) - sumsv3 = sumsv3 + snsptdrko(iprsm) - enddo - sfluxref(igc) = sumf1 - absco2(igc) = sumf2 - absh2o(igc) = sumf3 - irradnce(igc) = sumsv1 - facbrght(igc) = sumsv2 - snsptdrk(igc) = sumsv3 - enddo - - end subroutine cmbgb29 - -!*********************************************************************** - subroutine swcldpr -!*********************************************************************** - -! Purpose: Define cloud extinction coefficient, single scattering albedo -! and asymmetry parameter data. -! - -! ------- Modules ------- - - use rrsw_cld, only : extliq1, ssaliq1, asyliq1, & - extice2, ssaice2, asyice2, & - extice3, ssaice3, asyice3, fdlice3, & - extice4, ssaice4, asyice4, & - abari, bbari, cbari, dbari, ebari, fbari - - save - -!----------------------------------------------------------------------- -! -! Explanation of the method for each value of INFLAG. A value of -! 0 for INFLAG do not distingish being liquid and ice clouds. -! INFLAG = 2 does distinguish between liquid and ice clouds, and -! requires further user input to specify the method to be used to -! compute the aborption due to each. -! INFLAG = 0: For each cloudy layer, the cloud fraction, the cloud optical -! depth, the cloud single-scattering albedo, and the -! moments of the phase function (0:NSTREAM). Note -! that these values are delta-m scaled within this -! subroutine. - -! INFLAG = 2: For each cloudy layer, the cloud fraction, cloud -! water path (g/m2), and cloud ice fraction are input. -! ICEFLAG = 2: The ice effective radius (microns) is input and the -! optical properties due to ice clouds are computed from -! the optical properties stored in the RT code, STREAMER v3.0 -! (Reference: Key. J., Streamer User's Guide, Cooperative -! Institute for Meteorological Satellite Studies, 2001, 96 pp.). -! Valid range of values for re are between 5.0 and -! 131.0 micron. -! This version uses Ebert and Curry, JGR, (1992) method for -! ice particles larger than 131.0 microns. -! ICEFLAG = 3: The ice generalized effective size (dge) is input -! and the optical depths, single-scattering albedo, -! and phase function moments are calculated as in -! Q. Fu, J. Climate, (1996). Q. Fu provided high resolution -! tables which were appropriately averaged for the -! bands in RRTM_SW. Linear interpolation is used to -! get the coefficients from the stored tables. -! Valid range of values for dge are between 5.0 and -! 140.0 micron. -! This version uses Ebert and Curry, JGR, (1992) method for -! ice particles larger than 140.0 microns. -! LIQFLAG = 1: The water droplet effective radius (microns) is input -! and the optical depths due to water clouds are computed -! as in Hu and Stamnes, J., Clim., 6, 728-742, (1993) with -! modified coefficients derived from Mie scattering calculations. -! The values for absorption coefficients appropriate for -! the spectral bands in RRTM/RRTMG have been obtained for a -! range of effective radii by an averaging procedure -! based on the work of J. Pinto (private communication). -! Linear interpolation is used to get the absorption -! coefficients for the input effective radius. -! -! ------------------------------------------------------------------ - -! Everything below is for INFLAG = 2. - -! Coefficients for Ebert and Curry method - abari(:) = (/ & - & 3.448e-03,3.448e-03,3.448e-03,3.448e-03,3.448e-03 /) - bbari(:) = (/ & - & 2.431e+00,2.431e+00,2.431e+00,2.431e+00,2.431e+00 /) - cbari(:) = (/ & - & 1.000e-05,1.100e-04,1.240e-02,3.779e-02,4.666e-01 /) - dbari(:) = (/ & - & 0.000e+00,1.405e-05,6.867e-04,1.284e-03,2.050e-05 /) - ebari(:) = (/ & - & 7.661e-01,7.730e-01,7.865e-01,8.172e-01,9.595e-01 /) - fbari(:) = (/ & - & 5.851e-04,5.665e-04,7.204e-04,7.463e-04,1.076e-04 /) - -! LIQFLAG==1 extinction coefficients, single scattering albedos, and asymmetry parameters -! Derived from on Mie scattering computations; based on Hu & Stamnes coefficients -! BAND 16 - extliq1(:, 16) = (/ & - & 9.004493E-01,6.366723E-01,4.542354E-01,3.468253E-01,2.816431E-01,& - & 2.383415E-01,2.070854E-01,1.831854E-01,1.642115E-01,1.487539E-01,& - & 1.359169E-01,1.250900E-01,1.158354E-01,1.078400E-01,1.008646E-01,& - & 9.472307E-02,8.928000E-02,8.442308E-02,8.005924E-02,7.612231E-02,& - & 7.255153E-02,6.929539E-02,6.631769E-02,6.358153E-02,6.106231E-02,& - & 5.873077E-02,5.656924E-02,5.455769E-02,5.267846E-02,5.091923E-02,& - & 4.926692E-02,4.771154E-02,4.623923E-02,4.484385E-02,4.351539E-02,& - & 4.224615E-02,4.103385E-02,3.986538E-02,3.874077E-02,3.765462E-02,& - & 3.660077E-02,3.557384E-02,3.457615E-02,3.360308E-02,3.265000E-02,& - & 3.171770E-02,3.080538E-02,2.990846E-02,2.903000E-02,2.816461E-02,& - & 2.731539E-02,2.648231E-02,2.566308E-02,2.485923E-02,2.407000E-02,& - & 2.329615E-02,2.253769E-02,2.179615E-02 /) -! BAND 17 - extliq1(:, 17) = (/ & - & 6.741200e-01,5.390739e-01,4.198767e-01,3.332553e-01,2.735633e-01,& - & 2.317727e-01,2.012760e-01,1.780400e-01,1.596927e-01,1.447980e-01,& - & 1.324480e-01,1.220347e-01,1.131327e-01,1.054313e-01,9.870534e-02,& - & 9.278200e-02,8.752599e-02,8.282933e-02,7.860600e-02,7.479133e-02,& - & 7.132800e-02,6.816733e-02,6.527401e-02,6.261266e-02,6.015934e-02,& - & 5.788867e-02,5.578134e-02,5.381667e-02,5.198133e-02,5.026067e-02,& - & 4.864466e-02,4.712267e-02,4.568066e-02,4.431200e-02,4.300867e-02,& - & 4.176600e-02,4.057400e-02,3.942534e-02,3.832066e-02,3.725068e-02,& - & 3.621400e-02,3.520533e-02,3.422333e-02,3.326400e-02,3.232467e-02,& - & 3.140535e-02,3.050400e-02,2.962000e-02,2.875267e-02,2.789800e-02,& - & 2.705934e-02,2.623667e-02,2.542667e-02,2.463200e-02,2.385267e-02,& - & 2.308667e-02,2.233667e-02,2.160067e-02 /) -! BAND 18 - extliq1(:, 18) = (/ & - & 9.250861e-01,6.245692e-01,4.347038e-01,3.320208e-01,2.714869e-01,& - & 2.309516e-01,2.012592e-01,1.783315e-01,1.600369e-01,1.451000e-01,& - & 1.326838e-01,1.222069e-01,1.132554e-01,1.055146e-01,9.876000e-02,& - & 9.281386e-02,8.754000e-02,8.283078e-02,7.860077e-02,7.477769e-02,& - & 7.130847e-02,6.814461e-02,6.524615e-02,6.258462e-02,6.012847e-02,& - & 5.785462e-02,5.574231e-02,5.378000e-02,5.194461e-02,5.022462e-02,& - & 4.860846e-02,4.708462e-02,4.564154e-02,4.427462e-02,4.297231e-02,& - & 4.172769e-02,4.053693e-02,3.939000e-02,3.828462e-02,3.721692e-02,& - & 3.618000e-02,3.517077e-02,3.418923e-02,3.323077e-02,3.229154e-02,& - & 3.137154e-02,3.047154e-02,2.959077e-02,2.872308e-02,2.786846e-02,& - & 2.703077e-02,2.620923e-02,2.540077e-02,2.460615e-02,2.382693e-02,& - & 2.306231e-02,2.231231e-02,2.157923e-02 /) -! BAND 19 - extliq1(:, 19) = (/ & - & 9.298960e-01,5.776460e-01,4.083450e-01,3.211160e-01,2.666390e-01,& - & 2.281990e-01,1.993250e-01,1.768080e-01,1.587810e-01,1.440390e-01,& - & 1.317720e-01,1.214150e-01,1.125540e-01,1.048890e-01,9.819600e-02,& - & 9.230201e-02,8.706900e-02,8.239698e-02,7.819500e-02,7.439899e-02,& - & 7.095300e-02,6.780700e-02,6.492900e-02,6.228600e-02,5.984600e-02,& - & 5.758599e-02,5.549099e-02,5.353801e-02,5.171400e-02,5.000500e-02,& - & 4.840000e-02,4.688500e-02,4.545100e-02,4.409300e-02,4.279700e-02,& - & 4.156100e-02,4.037700e-02,3.923800e-02,3.813800e-02,3.707600e-02,& - & 3.604500e-02,3.504300e-02,3.406500e-02,3.310800e-02,3.217700e-02,& - & 3.126600e-02,3.036800e-02,2.948900e-02,2.862400e-02,2.777500e-02,& - & 2.694200e-02,2.612300e-02,2.531700e-02,2.452800e-02,2.375100e-02,& - & 2.299100e-02,2.224300e-02,2.151201e-02 /) -! BAND 20 - extliq1(:, 20) = (/ & - & 8.780964e-01,5.407031e-01,3.961100e-01,3.166645e-01,2.640455e-01,& - & 2.261070e-01,1.974820e-01,1.751775e-01,1.573415e-01,1.427725e-01,& - & 1.306535e-01,1.204195e-01,1.116650e-01,1.040915e-01,9.747550e-02,& - & 9.164800e-02,8.647649e-02,8.185501e-02,7.770200e-02,7.394749e-02,& - & 7.053800e-02,6.742700e-02,6.457999e-02,6.196149e-02,5.954450e-02,& - & 5.730650e-02,5.522949e-02,5.329450e-02,5.148500e-02,4.979000e-02,& - & 4.819600e-02,4.669301e-02,4.527050e-02,4.391899e-02,4.263500e-02,& - & 4.140500e-02,4.022850e-02,3.909500e-02,3.800199e-02,3.694600e-02,& - & 3.592000e-02,3.492250e-02,3.395050e-02,3.300150e-02,3.207250e-02,& - & 3.116250e-02,3.027100e-02,2.939500e-02,2.853500e-02,2.768900e-02,& - & 2.686000e-02,2.604350e-02,2.524150e-02,2.445350e-02,2.368049e-02,& - & 2.292150e-02,2.217800e-02,2.144800e-02 /) -! BAND 21 - extliq1(:, 21) = (/ & - & 7.937480e-01,5.123036e-01,3.858181e-01,3.099622e-01,2.586829e-01,& - & 2.217587e-01,1.939755e-01,1.723397e-01,1.550258e-01,1.408600e-01,& - & 1.290545e-01,1.190661e-01,1.105039e-01,1.030848e-01,9.659387e-02,& - & 9.086775e-02,8.577807e-02,8.122452e-02,7.712711e-02,7.342193e-02,& - & 7.005387e-02,6.697840e-02,6.416000e-02,6.156903e-02,5.917484e-02,& - & 5.695807e-02,5.489968e-02,5.298097e-02,5.118806e-02,4.950645e-02,& - & 4.792710e-02,4.643581e-02,4.502484e-02,4.368547e-02,4.241001e-02,& - & 4.118936e-02,4.002193e-02,3.889711e-02,3.781322e-02,3.676387e-02,& - & 3.574549e-02,3.475548e-02,3.379033e-02,3.284678e-02,3.192420e-02,& - & 3.102032e-02,3.013484e-02,2.926258e-02,2.840839e-02,2.756742e-02,& - & 2.674258e-02,2.593064e-02,2.513258e-02,2.435000e-02,2.358064e-02,& - & 2.282581e-02,2.208548e-02,2.135936e-02 /) -! BAND 22 - extliq1(:, 22) = (/ & - & 7.533129e-01,5.033129e-01,3.811271e-01,3.062757e-01,2.558729e-01,& - & 2.196828e-01,1.924372e-01,1.711714e-01,1.541086e-01,1.401114e-01,& - & 1.284257e-01,1.185200e-01,1.100243e-01,1.026529e-01,9.620142e-02,& - & 9.050714e-02,8.544428e-02,8.091714e-02,7.684000e-02,7.315429e-02,& - & 6.980143e-02,6.673999e-02,6.394000e-02,6.136000e-02,5.897715e-02,& - & 5.677000e-02,5.472285e-02,5.281286e-02,5.102858e-02,4.935429e-02,& - & 4.778000e-02,4.629714e-02,4.489142e-02,4.355857e-02,4.228715e-02,& - & 4.107285e-02,3.990857e-02,3.879000e-02,3.770999e-02,3.666429e-02,& - & 3.565000e-02,3.466286e-02,3.370143e-02,3.276143e-02,3.184143e-02,& - & 3.094000e-02,3.005714e-02,2.919000e-02,2.833714e-02,2.750000e-02,& - & 2.667714e-02,2.586714e-02,2.507143e-02,2.429143e-02,2.352428e-02,& - & 2.277143e-02,2.203429e-02,2.130857e-02 /) -! BAND 23 - extliq1(:, 23) = (/ & - & 7.079894e-01,4.878198e-01,3.719852e-01,3.001873e-01,2.514795e-01,& - & 2.163013e-01,1.897100e-01,1.689033e-01,1.521793e-01,1.384449e-01,& - & 1.269666e-01,1.172326e-01,1.088745e-01,1.016224e-01,9.527085e-02,& - & 8.966240e-02,8.467543e-02,8.021144e-02,7.619344e-02,7.255676e-02,& - & 6.924996e-02,6.623030e-02,6.346261e-02,6.091499e-02,5.856325e-02,& - & 5.638385e-02,5.435930e-02,5.247156e-02,5.070699e-02,4.905230e-02,& - & 4.749499e-02,4.602611e-02,4.463581e-02,4.331543e-02,4.205647e-02,& - & 4.085241e-02,3.969978e-02,3.859033e-02,3.751877e-02,3.648168e-02,& - & 3.547468e-02,3.449553e-02,3.354072e-02,3.260732e-02,3.169438e-02,& - & 3.079969e-02,2.992146e-02,2.905875e-02,2.821201e-02,2.737873e-02,& - & 2.656052e-02,2.575586e-02,2.496511e-02,2.418783e-02,2.342500e-02,& - & 2.267646e-02,2.194177e-02,2.122146e-02 /) -! BAND 24 - extliq1(:, 24) = (/ & - & 6.850164e-01,4.762468e-01,3.642001e-01,2.946012e-01,2.472001e-01,& - & 2.128588e-01,1.868537e-01,1.664893e-01,1.501142e-01,1.366620e-01,& - & 1.254147e-01,1.158721e-01,1.076732e-01,1.005530e-01,9.431306e-02,& - & 8.879891e-02,8.389232e-02,7.949714e-02,7.553857e-02,7.195474e-02,& - & 6.869413e-02,6.571444e-02,6.298286e-02,6.046779e-02,5.814474e-02,& - & 5.599141e-02,5.399114e-02,5.212443e-02,5.037870e-02,4.874321e-02,& - & 4.720219e-02,4.574813e-02,4.437160e-02,4.306460e-02,4.181810e-02,& - & 4.062603e-02,3.948252e-02,3.838256e-02,3.732049e-02,3.629192e-02,& - & 3.529301e-02,3.432190e-02,3.337412e-02,3.244842e-02,3.154175e-02,& - & 3.065253e-02,2.978063e-02,2.892367e-02,2.808221e-02,2.725478e-02,& - & 2.644174e-02,2.564175e-02,2.485508e-02,2.408303e-02,2.332365e-02,& - & 2.257890e-02,2.184824e-02,2.113224e-02 /) -! BAND 25 - extliq1(:, 25) = (/ & - & 6.673017e-01,4.664520e-01,3.579398e-01,2.902234e-01,2.439904e-01,& - & 2.104149e-01,1.849277e-01,1.649234e-01,1.488087e-01,1.355515e-01,& - & 1.244562e-01,1.150329e-01,1.069321e-01,9.989310e-02,9.372070e-02,& - & 8.826450e-02,8.340622e-02,7.905378e-02,7.513109e-02,7.157859e-02,& - & 6.834588e-02,6.539114e-02,6.268150e-02,6.018621e-02,5.788098e-02,& - & 5.574351e-02,5.375699e-02,5.190412e-02,5.017099e-02,4.854497e-02,& - & 4.701490e-02,4.557030e-02,4.420249e-02,4.290304e-02,4.166427e-02,& - & 4.047820e-02,3.934232e-02,3.824778e-02,3.719236e-02,3.616931e-02,& - & 3.517597e-02,3.420856e-02,3.326566e-02,3.234346e-02,3.144122e-02,& - & 3.055684e-02,2.968798e-02,2.883519e-02,2.799635e-02,2.717228e-02,& - & 2.636182e-02,2.556424e-02,2.478114e-02,2.401086e-02,2.325657e-02,& - & 2.251506e-02,2.178594e-02,2.107301e-02 /) -! BAND 26 - extliq1(:, 26) = (/ & - & 6.552414e-01,4.599454e-01,3.538626e-01,2.873547e-01,2.418033e-01,& - & 2.086660e-01,1.834885e-01,1.637142e-01,1.477767e-01,1.346583e-01,& - & 1.236734e-01,1.143412e-01,1.063148e-01,9.933905e-02,9.322026e-02,& - & 8.780979e-02,8.299230e-02,7.867554e-02,7.478450e-02,7.126053e-02,& - & 6.805276e-02,6.512143e-02,6.243211e-02,5.995541e-02,5.766712e-02,& - & 5.554484e-02,5.357246e-02,5.173222e-02,5.001069e-02,4.839505e-02,& - & 4.687471e-02,4.543861e-02,4.407857e-02,4.278577e-02,4.155331e-02,& - & 4.037322e-02,3.924302e-02,3.815376e-02,3.710172e-02,3.608296e-02,& - & 3.509330e-02,3.412980e-02,3.319009e-02,3.227106e-02,3.137157e-02,& - & 3.048950e-02,2.962365e-02,2.877297e-02,2.793726e-02,2.711500e-02,& - & 2.630666e-02,2.551206e-02,2.473052e-02,2.396287e-02,2.320861e-02,& - & 2.246810e-02,2.174162e-02,2.102927e-02 /) -! BAND 27 - extliq1(:, 27) = (/ & - & 6.430901e-01,4.532134e-01,3.496132e-01,2.844655e-01,2.397347e-01,& - & 2.071236e-01,1.822976e-01,1.627640e-01,1.469961e-01,1.340006e-01,& - & 1.231069e-01,1.138441e-01,1.058706e-01,9.893678e-02,9.285166e-02,& - & 8.746871e-02,8.267411e-02,7.837656e-02,7.450257e-02,7.099318e-02,& - & 6.779929e-02,6.487987e-02,6.220168e-02,5.973530e-02,5.745636e-02,& - & 5.534344e-02,5.337986e-02,5.154797e-02,4.983404e-02,4.822582e-02,& - & 4.671228e-02,4.528321e-02,4.392997e-02,4.264325e-02,4.141647e-02,& - & 4.024259e-02,3.911767e-02,3.803309e-02,3.698782e-02,3.597140e-02,& - & 3.498774e-02,3.402852e-02,3.309340e-02,3.217818e-02,3.128292e-02,& - & 3.040486e-02,2.954230e-02,2.869545e-02,2.786261e-02,2.704372e-02,& - & 2.623813e-02,2.544668e-02,2.466788e-02,2.390313e-02,2.315136e-02,& - & 2.241391e-02,2.168921e-02,2.097903e-02 /) -! BAND 28 - extliq1(:, 28) = (/ & - & 6.367074e-01,4.495768e-01,3.471263e-01,2.826149e-01,2.382868e-01,& - & 2.059640e-01,1.813562e-01,1.619881e-01,1.463436e-01,1.334402e-01,& - & 1.226166e-01,1.134096e-01,1.054829e-01,9.858838e-02,9.253790e-02,& - & 8.718582e-02,8.241830e-02,7.814482e-02,7.429212e-02,7.080165e-02,& - & 6.762385e-02,6.471838e-02,6.205388e-02,5.959726e-02,5.732871e-02,& - & 5.522402e-02,5.326793e-02,5.144230e-02,4.973440e-02,4.813188e-02,& - & 4.662283e-02,4.519798e-02,4.384833e-02,4.256541e-02,4.134253e-02,& - & 4.017136e-02,3.904911e-02,3.796779e-02,3.692364e-02,3.591182e-02,& - & 3.492930e-02,3.397230e-02,3.303920e-02,3.212572e-02,3.123278e-02,& - & 3.035519e-02,2.949493e-02,2.864985e-02,2.781840e-02,2.700197e-02,& - & 2.619682e-02,2.540674e-02,2.462966e-02,2.386613e-02,2.311602e-02,& - & 2.237846e-02,2.165660e-02,2.094756e-02 /) -! BAND 29 - extliq1(:, 29) = (/ & - & 4.298416e-01,4.391639e-01,3.975030e-01,3.443028e-01,2.957345e-01,& - & 2.556461e-01,2.234755e-01,1.976636e-01,1.767428e-01,1.595611e-01,& - & 1.452636e-01,1.332156e-01,1.229481e-01,1.141059e-01,1.064208e-01,& - & 9.968527e-02,9.373833e-02,8.845221e-02,8.372112e-02,7.946667e-02,& - & 7.561807e-02,7.212029e-02,6.893166e-02,6.600944e-02,6.332277e-02,& - & 6.084277e-02,5.854721e-02,5.641361e-02,5.442639e-02,5.256750e-02,& - & 5.082499e-02,4.918556e-02,4.763694e-02,4.617222e-02,4.477861e-02,& - & 4.344861e-02,4.217999e-02,4.096111e-02,3.978638e-02,3.865361e-02,& - & 3.755473e-02,3.649028e-02,3.545361e-02,3.444361e-02,3.345666e-02,& - & 3.249167e-02,3.154722e-02,3.062083e-02,2.971250e-02,2.882083e-02,& - & 2.794611e-02,2.708778e-02,2.624500e-02,2.541750e-02,2.460528e-02,& - & 2.381194e-02,2.303250e-02,2.226833e-02 /) -! BAND 16 - ssaliq1(:, 16) = (/ & - & 8.362119e-01,8.098460e-01,7.762291e-01,7.486042e-01,7.294172e-01,& - & 7.161000e-01,7.060656e-01,6.978387e-01,6.907193e-01,6.843551e-01,& - & 6.785668e-01,6.732450e-01,6.683191e-01,6.637264e-01,6.594307e-01,& - & 6.554033e-01,6.516115e-01,6.480295e-01,6.446429e-01,6.414306e-01,& - & 6.383783e-01,6.354750e-01,6.327068e-01,6.300665e-01,6.275376e-01,& - & 6.251245e-01,6.228136e-01,6.205944e-01,6.184720e-01,6.164330e-01,& - & 6.144742e-01,6.125962e-01,6.108004e-01,6.090740e-01,6.074200e-01,& - & 6.058381e-01,6.043209e-01,6.028681e-01,6.014836e-01,6.001626e-01,& - & 5.988957e-01,5.976864e-01,5.965390e-01,5.954379e-01,5.943972e-01,& - & 5.934019e-01,5.924624e-01,5.915579e-01,5.907025e-01,5.898913e-01,& - & 5.891213e-01,5.883815e-01,5.876851e-01,5.870158e-01,5.863868e-01,& - & 5.857821e-01,5.852111e-01,5.846579e-01 /) -! BAND 17 - ssaliq1(:, 17) = (/ & - & 6.995459e-01,7.158012e-01,7.076001e-01,6.927244e-01,6.786434e-01,& - & 6.673545e-01,6.585859e-01,6.516314e-01,6.459010e-01,6.410225e-01,& - & 6.367574e-01,6.329554e-01,6.295119e-01,6.263595e-01,6.234462e-01,& - & 6.207274e-01,6.181755e-01,6.157678e-01,6.134880e-01,6.113173e-01,& - & 6.092495e-01,6.072689e-01,6.053717e-01,6.035507e-01,6.018001e-01,& - & 6.001134e-01,5.984951e-01,5.969294e-01,5.954256e-01,5.939698e-01,& - & 5.925716e-01,5.912265e-01,5.899270e-01,5.886771e-01,5.874746e-01,& - & 5.863185e-01,5.852077e-01,5.841460e-01,5.831249e-01,5.821474e-01,& - & 5.812078e-01,5.803173e-01,5.794616e-01,5.786443e-01,5.778617e-01,& - & 5.771236e-01,5.764191e-01,5.757400e-01,5.750971e-01,5.744842e-01,& - & 5.739012e-01,5.733482e-01,5.728175e-01,5.723214e-01,5.718383e-01,& - & 5.713827e-01,5.709471e-01,5.705330e-01 /) -! BAND 18 - ssaliq1(:, 18) = (/ & - & 9.929711e-01,9.896942e-01,9.852408e-01,9.806820e-01,9.764512e-01,& - & 9.725375e-01,9.688677e-01,9.653832e-01,9.620552e-01,9.588522e-01,& - & 9.557475e-01,9.527265e-01,9.497731e-01,9.468756e-01,9.440270e-01,& - & 9.412230e-01,9.384592e-01,9.357287e-01,9.330369e-01,9.303778e-01,& - & 9.277502e-01,9.251546e-01,9.225907e-01,9.200553e-01,9.175521e-01,& - & 9.150773e-01,9.126352e-01,9.102260e-01,9.078485e-01,9.055057e-01,& - & 9.031978e-01,9.009306e-01,8.987010e-01,8.965177e-01,8.943774e-01,& - & 8.922869e-01,8.902430e-01,8.882551e-01,8.863182e-01,8.844373e-01,& - & 8.826143e-01,8.808499e-01,8.791413e-01,8.774940e-01,8.759019e-01,& - & 8.743650e-01,8.728941e-01,8.714712e-01,8.701065e-01,8.688008e-01,& - & 8.675409e-01,8.663295e-01,8.651714e-01,8.640637e-01,8.629943e-01,& - & 8.619762e-01,8.609995e-01,8.600581e-01 /) -! BAND 19 - ssaliq1(:, 19) = (/ & - & 9.910612e-01,9.854226e-01,9.795008e-01,9.742920e-01,9.695996e-01,& - & 9.652274e-01,9.610648e-01,9.570521e-01,9.531397e-01,9.493086e-01,& - & 9.455413e-01,9.418362e-01,9.381902e-01,9.346016e-01,9.310718e-01,& - & 9.275957e-01,9.241757e-01,9.208038e-01,9.174802e-01,9.142058e-01,& - & 9.109753e-01,9.077895e-01,9.046433e-01,9.015409e-01,8.984784e-01,& - & 8.954572e-01,8.924748e-01,8.895367e-01,8.866395e-01,8.837864e-01,& - & 8.809819e-01,8.782267e-01,8.755231e-01,8.728712e-01,8.702802e-01,& - & 8.677443e-01,8.652733e-01,8.628678e-01,8.605300e-01,8.582593e-01,& - & 8.560596e-01,8.539352e-01,8.518782e-01,8.498915e-01,8.479790e-01,& - & 8.461384e-01,8.443645e-01,8.426613e-01,8.410229e-01,8.394495e-01,& - & 8.379428e-01,8.364967e-01,8.351117e-01,8.337820e-01,8.325091e-01,& - & 8.312874e-01,8.301169e-01,8.289985e-01 /) -! BAND 20 - ssaliq1(:, 20) = (/ & - & 9.969802e-01,9.950445e-01,9.931448e-01,9.914272e-01,9.898652e-01,& - & 9.884250e-01,9.870637e-01,9.857482e-01,9.844558e-01,9.831755e-01,& - & 9.819068e-01,9.806477e-01,9.794000e-01,9.781666e-01,9.769461e-01,& - & 9.757386e-01,9.745459e-01,9.733650e-01,9.721953e-01,9.710398e-01,& - & 9.698936e-01,9.687583e-01,9.676334e-01,9.665192e-01,9.654132e-01,& - & 9.643208e-01,9.632374e-01,9.621625e-01,9.611003e-01,9.600518e-01,& - & 9.590144e-01,9.579922e-01,9.569864e-01,9.559948e-01,9.550239e-01,& - & 9.540698e-01,9.531382e-01,9.522280e-01,9.513409e-01,9.504772e-01,& - & 9.496360e-01,9.488220e-01,9.480327e-01,9.472693e-01,9.465333e-01,& - & 9.458211e-01,9.451344e-01,9.444732e-01,9.438372e-01,9.432268e-01,& - & 9.426391e-01,9.420757e-01,9.415308e-01,9.410102e-01,9.405115e-01,& - & 9.400326e-01,9.395716e-01,9.391313e-01 /) -! BAND 21 - ssaliq1(:, 21) = (/ & - & 9.980034e-01,9.968572e-01,9.958696e-01,9.949747e-01,9.941241e-01,& - & 9.933043e-01,9.924971e-01,9.916978e-01,9.909023e-01,9.901046e-01,& - & 9.893087e-01,9.885146e-01,9.877195e-01,9.869283e-01,9.861379e-01,& - & 9.853523e-01,9.845715e-01,9.837945e-01,9.830217e-01,9.822567e-01,& - & 9.814935e-01,9.807356e-01,9.799815e-01,9.792332e-01,9.784845e-01,& - & 9.777424e-01,9.770042e-01,9.762695e-01,9.755416e-01,9.748152e-01,& - & 9.740974e-01,9.733873e-01,9.726813e-01,9.719861e-01,9.713010e-01,& - & 9.706262e-01,9.699647e-01,9.693144e-01,9.686794e-01,9.680596e-01,& - & 9.674540e-01,9.668657e-01,9.662926e-01,9.657390e-01,9.652019e-01,& - & 9.646820e-01,9.641784e-01,9.636945e-01,9.632260e-01,9.627743e-01,& - & 9.623418e-01,9.619227e-01,9.615194e-01,9.611341e-01,9.607629e-01,& - & 9.604057e-01,9.600622e-01,9.597322e-01 /) -! BAND 22 - ssaliq1(:, 22) = (/ & - & 9.988219e-01,9.981767e-01,9.976168e-01,9.971066e-01,9.966195e-01,& - & 9.961566e-01,9.956995e-01,9.952481e-01,9.947982e-01,9.943495e-01,& - & 9.938955e-01,9.934368e-01,9.929825e-01,9.925239e-01,9.920653e-01,& - & 9.916096e-01,9.911552e-01,9.907067e-01,9.902594e-01,9.898178e-01,& - & 9.893791e-01,9.889453e-01,9.885122e-01,9.880837e-01,9.876567e-01,& - & 9.872331e-01,9.868121e-01,9.863938e-01,9.859790e-01,9.855650e-01,& - & 9.851548e-01,9.847491e-01,9.843496e-01,9.839521e-01,9.835606e-01,& - & 9.831771e-01,9.827975e-01,9.824292e-01,9.820653e-01,9.817124e-01,& - & 9.813644e-01,9.810291e-01,9.807020e-01,9.803864e-01,9.800782e-01,& - & 9.797821e-01,9.794958e-01,9.792179e-01,9.789509e-01,9.786940e-01,& - & 9.784460e-01,9.782090e-01,9.779789e-01,9.777553e-01,9.775425e-01,& - & 9.773387e-01,9.771420e-01,9.769529e-01 /) -! BAND 23 - ssaliq1(:, 23) = (/ & - & 9.998902e-01,9.998395e-01,9.997915e-01,9.997442e-01,9.997016e-01,& - & 9.996600e-01,9.996200e-01,9.995806e-01,9.995411e-01,9.995005e-01,& - & 9.994589e-01,9.994178e-01,9.993766e-01,9.993359e-01,9.992948e-01,& - & 9.992533e-01,9.992120e-01,9.991723e-01,9.991313e-01,9.990906e-01,& - & 9.990510e-01,9.990113e-01,9.989716e-01,9.989323e-01,9.988923e-01,& - & 9.988532e-01,9.988140e-01,9.987761e-01,9.987373e-01,9.986989e-01,& - & 9.986597e-01,9.986239e-01,9.985861e-01,9.985485e-01,9.985123e-01,& - & 9.984762e-01,9.984415e-01,9.984065e-01,9.983722e-01,9.983398e-01,& - & 9.983078e-01,9.982758e-01,9.982461e-01,9.982157e-01,9.981872e-01,& - & 9.981595e-01,9.981324e-01,9.981068e-01,9.980811e-01,9.980580e-01,& - & 9.980344e-01,9.980111e-01,9.979908e-01,9.979690e-01,9.979492e-01,& - & 9.979316e-01,9.979116e-01,9.978948e-01 /) -! BAND 24 - ssaliq1(:, 24) = (/ & - & 9.999978e-01,9.999948e-01,9.999915e-01,9.999905e-01,9.999896e-01,& - & 9.999887e-01,9.999888e-01,9.999888e-01,9.999870e-01,9.999854e-01,& - & 9.999855e-01,9.999856e-01,9.999839e-01,9.999834e-01,9.999829e-01,& - & 9.999809e-01,9.999816e-01,9.999793e-01,9.999782e-01,9.999779e-01,& - & 9.999772e-01,9.999764e-01,9.999756e-01,9.999744e-01,9.999744e-01,& - & 9.999736e-01,9.999729e-01,9.999716e-01,9.999706e-01,9.999692e-01,& - & 9.999690e-01,9.999675e-01,9.999673e-01,9.999660e-01,9.999654e-01,& - & 9.999647e-01,9.999647e-01,9.999625e-01,9.999620e-01,9.999614e-01,& - & 9.999613e-01,9.999607e-01,9.999604e-01,9.999594e-01,9.999589e-01,& - & 9.999586e-01,9.999567e-01,9.999550e-01,9.999557e-01,9.999542e-01,& - & 9.999546e-01,9.999539e-01,9.999536e-01,9.999526e-01,9.999523e-01,& - & 9.999508e-01,9.999534e-01,9.999507e-01 /) -! BAND 25 - ssaliq1(:, 25) = (/ & - & 1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,& - & 1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,& - & 1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,& - & 1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,9.999995e-01,& - & 9.999995e-01,9.999990e-01,9.999991e-01,9.999991e-01,9.999990e-01,& - & 9.999989e-01,9.999988e-01,9.999988e-01,9.999986e-01,9.999988e-01,& - & 9.999986e-01,9.999987e-01,9.999986e-01,9.999985e-01,9.999985e-01,& - & 9.999985e-01,9.999985e-01,9.999983e-01,9.999983e-01,9.999981e-01,& - & 9.999981e-01,9.999986e-01,9.999985e-01,9.999983e-01,9.999984e-01,& - & 9.999982e-01,9.999983e-01,9.999982e-01,9.999980e-01,9.999981e-01,& - & 9.999978e-01,9.999979e-01,9.999985e-01,9.999985e-01,9.999983e-01,& - & 9.999983e-01,9.999983e-01,9.999983e-01 /) -! BAND 26 - ssaliq1(:, 26) = (/ & - & 1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,& - & 1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,& - & 1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,& - & 1.000000e+00,1.000000e+00,1.000000e+00,1.000000e+00,9.999991e-01,& - & 9.999990e-01,9.999992e-01,9.999995e-01,9.999986e-01,9.999994e-01,& - & 9.999985e-01,9.999980e-01,9.999984e-01,9.999983e-01,9.999979e-01,& - & 9.999969e-01,9.999977e-01,9.999971e-01,9.999969e-01,9.999969e-01,& - & 9.999965e-01,9.999970e-01,9.999985e-01,9.999973e-01,9.999961e-01,& - & 9.999968e-01,9.999952e-01,9.999970e-01,9.999974e-01,9.999965e-01,& - & 9.999969e-01,9.999970e-01,9.999970e-01,9.999960e-01,9.999923e-01,& - & 9.999958e-01,9.999937e-01,9.999960e-01,9.999953e-01,9.999946e-01,& - & 9.999946e-01,9.999957e-01,9.999951e-01 /) -! BAND 27 - ssaliq1(:, 27) = (/ & - & 1.000000e+00,1.000000e+00,9.999983e-01,9.999979e-01,9.999965e-01,& - & 9.999949e-01,9.999948e-01,9.999918e-01,9.999917e-01,9.999923e-01,& - & 9.999908e-01,9.999889e-01,9.999902e-01,9.999895e-01,9.999881e-01,& - & 9.999882e-01,9.999876e-01,9.999866e-01,9.999866e-01,9.999858e-01,& - & 9.999860e-01,9.999852e-01,9.999836e-01,9.999831e-01,9.999818e-01,& - & 9.999808e-01,9.999816e-01,9.999800e-01,9.999783e-01,9.999780e-01,& - & 9.999763e-01,9.999746e-01,9.999731e-01,9.999713e-01,9.999762e-01,& - & 9.999740e-01,9.999670e-01,9.999703e-01,9.999687e-01,9.999666e-01,& - & 9.999683e-01,9.999667e-01,9.999611e-01,9.999635e-01,9.999600e-01,& - & 9.999635e-01,9.999594e-01,9.999601e-01,9.999586e-01,9.999559e-01,& - & 9.999569e-01,9.999558e-01,9.999523e-01,9.999535e-01,9.999529e-01,& - & 9.999553e-01,9.999495e-01,9.999490e-01 /) -! BAND 28 - ssaliq1(:, 28) = (/ & - & 9.999920e-01,9.999873e-01,9.999855e-01,9.999832e-01,9.999807e-01,& - & 9.999778e-01,9.999754e-01,9.999721e-01,9.999692e-01,9.999651e-01,& - & 9.999621e-01,9.999607e-01,9.999567e-01,9.999546e-01,9.999521e-01,& - & 9.999491e-01,9.999457e-01,9.999439e-01,9.999403e-01,9.999374e-01,& - & 9.999353e-01,9.999315e-01,9.999282e-01,9.999244e-01,9.999234e-01,& - & 9.999189e-01,9.999130e-01,9.999117e-01,9.999073e-01,9.999020e-01,& - & 9.998993e-01,9.998987e-01,9.998922e-01,9.998893e-01,9.998869e-01,& - & 9.998805e-01,9.998778e-01,9.998751e-01,9.998708e-01,9.998676e-01,& - & 9.998624e-01,9.998642e-01,9.998582e-01,9.998547e-01,9.998546e-01,& - & 9.998477e-01,9.998487e-01,9.998466e-01,9.998403e-01,9.998412e-01,& - & 9.998406e-01,9.998342e-01,9.998326e-01,9.998333e-01,9.998328e-01,& - & 9.998290e-01,9.998276e-01,9.998249e-01 /) -! BAND 29 - ssaliq1(:, 29) = (/ & - & 8.383753e-01,8.461471e-01,8.373325e-01,8.212889e-01,8.023834e-01,& - & 7.829501e-01,7.641777e-01,7.466000e-01,7.304023e-01,7.155998e-01,& - & 7.021259e-01,6.898840e-01,6.787615e-01,6.686479e-01,6.594414e-01,& - & 6.510417e-01,6.433668e-01,6.363335e-01,6.298788e-01,6.239398e-01,& - & 6.184633e-01,6.134055e-01,6.087228e-01,6.043786e-01,6.003439e-01,& - & 5.965910e-01,5.930917e-01,5.898280e-01,5.867798e-01,5.839264e-01,& - & 5.812576e-01,5.787592e-01,5.764163e-01,5.742189e-01,5.721598e-01,& - & 5.702286e-01,5.684182e-01,5.667176e-01,5.651237e-01,5.636253e-01,& - & 5.622228e-01,5.609074e-01,5.596713e-01,5.585089e-01,5.574223e-01,& - & 5.564002e-01,5.554411e-01,5.545397e-01,5.536914e-01,5.528967e-01,& - & 5.521495e-01,5.514457e-01,5.507818e-01,5.501623e-01,5.495750e-01,& - & 5.490192e-01,5.484980e-01,5.480046e-01 /) -! BAND 16 - asyliq1(:, 16) = (/ & - & 8.038165e-01,8.014154e-01,7.942381e-01,7.970521e-01,8.086621e-01,& - & 8.233392e-01,8.374127e-01,8.495742e-01,8.596945e-01,8.680497e-01,& - & 8.750005e-01,8.808589e-01,8.858749e-01,8.902403e-01,8.940939e-01,& - & 8.975379e-01,9.006450e-01,9.034741e-01,9.060659e-01,9.084561e-01,& - & 9.106675e-01,9.127198e-01,9.146332e-01,9.164194e-01,9.180970e-01,& - & 9.196658e-01,9.211421e-01,9.225352e-01,9.238443e-01,9.250841e-01,& - & 9.262541e-01,9.273620e-01,9.284081e-01,9.294002e-01,9.303395e-01,& - & 9.312285e-01,9.320715e-01,9.328716e-01,9.336271e-01,9.343427e-01,& - & 9.350219e-01,9.356647e-01,9.362728e-01,9.368495e-01,9.373956e-01,& - & 9.379113e-01,9.383987e-01,9.388608e-01,9.392986e-01,9.397132e-01,& - & 9.401063e-01,9.404776e-01,9.408299e-01,9.411641e-01,9.414800e-01,& - & 9.417787e-01,9.420633e-01,9.423364e-01 /) -! BAND 17 - asyliq1(:, 17) = (/ & - & 8.941000e-01,9.054049e-01,9.049510e-01,9.027216e-01,9.021636e-01,& - & 9.037878e-01,9.069852e-01,9.109817e-01,9.152013e-01,9.193040e-01,& - & 9.231177e-01,9.265712e-01,9.296606e-01,9.324048e-01,9.348419e-01,& - & 9.370131e-01,9.389529e-01,9.406954e-01,9.422727e-01,9.437088e-01,& - & 9.450221e-01,9.462308e-01,9.473488e-01,9.483830e-01,9.493492e-01,& - & 9.502541e-01,9.510999e-01,9.518971e-01,9.526455e-01,9.533554e-01,& - & 9.540249e-01,9.546571e-01,9.552551e-01,9.558258e-01,9.563603e-01,& - & 9.568713e-01,9.573569e-01,9.578141e-01,9.582485e-01,9.586604e-01,& - & 9.590525e-01,9.594218e-01,9.597710e-01,9.601052e-01,9.604181e-01,& - & 9.607159e-01,9.609979e-01,9.612655e-01,9.615184e-01,9.617564e-01,& - & 9.619860e-01,9.622009e-01,9.624031e-01,9.625957e-01,9.627792e-01,& - & 9.629530e-01,9.631171e-01,9.632746e-01 /) -! BAND 18 - asyliq1(:, 18) = (/ & - & 8.574638e-01,8.351383e-01,8.142977e-01,8.083068e-01,8.129284e-01,& - & 8.215827e-01,8.307238e-01,8.389963e-01,8.460481e-01,8.519273e-01,& - & 8.568153e-01,8.609116e-01,8.643892e-01,8.673941e-01,8.700248e-01,& - & 8.723707e-01,8.744902e-01,8.764240e-01,8.782057e-01,8.798593e-01,& - & 8.814063e-01,8.828573e-01,8.842261e-01,8.855196e-01,8.867497e-01,& - & 8.879164e-01,8.890316e-01,8.900941e-01,8.911118e-01,8.920832e-01,& - & 8.930156e-01,8.939091e-01,8.947663e-01,8.955888e-01,8.963786e-01,& - & 8.971350e-01,8.978617e-01,8.985590e-01,8.992243e-01,8.998631e-01,& - & 9.004753e-01,9.010602e-01,9.016192e-01,9.021542e-01,9.026644e-01,& - & 9.031535e-01,9.036194e-01,9.040656e-01,9.044894e-01,9.048933e-01,& - & 9.052789e-01,9.056481e-01,9.060004e-01,9.063343e-01,9.066544e-01,& - & 9.069604e-01,9.072512e-01,9.075290e-01 /) -! BAND 19 - asyliq1(:, 19) = (/ & - & 8.349569e-01,8.034579e-01,7.932136e-01,8.010156e-01,8.137083e-01,& - & 8.255339e-01,8.351938e-01,8.428286e-01,8.488944e-01,8.538187e-01,& - & 8.579255e-01,8.614473e-01,8.645338e-01,8.672908e-01,8.697947e-01,& - & 8.720843e-01,8.742015e-01,8.761718e-01,8.780160e-01,8.797479e-01,& - & 8.813810e-01,8.829250e-01,8.843907e-01,8.857822e-01,8.871059e-01,& - & 8.883724e-01,8.895810e-01,8.907384e-01,8.918456e-01,8.929083e-01,& - & 8.939284e-01,8.949060e-01,8.958463e-01,8.967486e-01,8.976129e-01,& - & 8.984463e-01,8.992439e-01,9.000094e-01,9.007438e-01,9.014496e-01,& - & 9.021235e-01,9.027699e-01,9.033859e-01,9.039772e-01,9.045419e-01,& - & 9.050819e-01,9.055975e-01,9.060907e-01,9.065607e-01,9.070093e-01,& - & 9.074389e-01,9.078475e-01,9.082388e-01,9.086117e-01,9.089678e-01,& - & 9.093081e-01,9.096307e-01,9.099410e-01 /) -! BAND 20 - asyliq1(:, 20) = (/ & - & 8.109692e-01,7.846657e-01,7.881928e-01,8.009509e-01,8.131208e-01,& - & 8.230400e-01,8.309448e-01,8.372920e-01,8.424837e-01,8.468166e-01,& - & 8.504947e-01,8.536642e-01,8.564256e-01,8.588513e-01,8.610011e-01,& - & 8.629122e-01,8.646262e-01,8.661720e-01,8.675752e-01,8.688582e-01,& - & 8.700379e-01,8.711300e-01,8.721485e-01,8.731027e-01,8.740010e-01,& - & 8.748499e-01,8.756564e-01,8.764239e-01,8.771542e-01,8.778523e-01,& - & 8.785211e-01,8.791601e-01,8.797725e-01,8.803589e-01,8.809173e-01,& - & 8.814552e-01,8.819705e-01,8.824611e-01,8.829311e-01,8.833791e-01,& - & 8.838078e-01,8.842148e-01,8.846044e-01,8.849756e-01,8.853291e-01,& - & 8.856645e-01,8.859841e-01,8.862904e-01,8.865801e-01,8.868551e-01,& - & 8.871182e-01,8.873673e-01,8.876059e-01,8.878307e-01,8.880462e-01,& - & 8.882501e-01,8.884453e-01,8.886339e-01 /) -! BAND 21 - asyliq1(:, 21) = (/ & - & 7.838510e-01,7.803151e-01,7.980477e-01,8.144160e-01,8.261784e-01,& - & 8.344240e-01,8.404278e-01,8.450391e-01,8.487593e-01,8.518741e-01,& - & 8.545484e-01,8.568890e-01,8.589560e-01,8.607983e-01,8.624504e-01,& - & 8.639408e-01,8.652945e-01,8.665301e-01,8.676634e-01,8.687121e-01,& - & 8.696855e-01,8.705933e-01,8.714448e-01,8.722454e-01,8.730014e-01,& - & 8.737180e-01,8.743982e-01,8.750436e-01,8.756598e-01,8.762481e-01,& - & 8.768089e-01,8.773427e-01,8.778532e-01,8.783434e-01,8.788089e-01,& - & 8.792530e-01,8.796784e-01,8.800845e-01,8.804716e-01,8.808411e-01,& - & 8.811923e-01,8.815276e-01,8.818472e-01,8.821504e-01,8.824408e-01,& - & 8.827155e-01,8.829777e-01,8.832269e-01,8.834631e-01,8.836892e-01,& - & 8.839034e-01,8.841075e-01,8.843021e-01,8.844866e-01,8.846631e-01,& - & 8.848304e-01,8.849910e-01,8.851425e-01 /) -! BAND 22 - asyliq1(:, 22) = (/ & - & 7.760783e-01,7.890215e-01,8.090192e-01,8.230252e-01,8.321369e-01,& - & 8.384258e-01,8.431529e-01,8.469558e-01,8.501499e-01,8.528899e-01,& - & 8.552899e-01,8.573956e-01,8.592570e-01,8.609098e-01,8.623897e-01,& - & 8.637169e-01,8.649184e-01,8.660097e-01,8.670096e-01,8.679338e-01,& - & 8.687896e-01,8.695880e-01,8.703365e-01,8.710422e-01,8.717092e-01,& - & 8.723378e-01,8.729363e-01,8.735063e-01,8.740475e-01,8.745661e-01,& - & 8.750560e-01,8.755275e-01,8.759731e-01,8.764000e-01,8.768071e-01,& - & 8.771942e-01,8.775628e-01,8.779126e-01,8.782483e-01,8.785626e-01,& - & 8.788610e-01,8.791482e-01,8.794180e-01,8.796765e-01,8.799207e-01,& - & 8.801522e-01,8.803707e-01,8.805777e-01,8.807749e-01,8.809605e-01,& - & 8.811362e-01,8.813047e-01,8.814647e-01,8.816131e-01,8.817588e-01,& - & 8.818930e-01,8.820230e-01,8.821445e-01 /) -! BAND 23 - asyliq1(:, 23) = (/ & - & 7.847907e-01,8.099917e-01,8.257428e-01,8.350423e-01,8.411971e-01,& - & 8.457241e-01,8.493010e-01,8.522565e-01,8.547660e-01,8.569311e-01,& - & 8.588181e-01,8.604729e-01,8.619296e-01,8.632208e-01,8.643725e-01,& - & 8.654050e-01,8.663363e-01,8.671835e-01,8.679590e-01,8.686707e-01,& - & 8.693308e-01,8.699433e-01,8.705147e-01,8.710490e-01,8.715497e-01,& - & 8.720219e-01,8.724669e-01,8.728849e-01,8.732806e-01,8.736550e-01,& - & 8.740099e-01,8.743435e-01,8.746601e-01,8.749610e-01,8.752449e-01,& - & 8.755143e-01,8.757688e-01,8.760095e-01,8.762375e-01,8.764532e-01,& - & 8.766579e-01,8.768506e-01,8.770323e-01,8.772049e-01,8.773690e-01,& - & 8.775226e-01,8.776679e-01,8.778062e-01,8.779360e-01,8.780587e-01,& - & 8.781747e-01,8.782852e-01,8.783892e-01,8.784891e-01,8.785824e-01,& - & 8.786705e-01,8.787546e-01,8.788336e-01 /) -! BAND 24 - asyliq1(:, 24) = (/ & - & 8.054324e-01,8.266282e-01,8.378075e-01,8.449848e-01,8.502166e-01,& - & 8.542268e-01,8.573477e-01,8.598022e-01,8.617689e-01,8.633859e-01,& - & 8.647536e-01,8.659354e-01,8.669807e-01,8.679143e-01,8.687577e-01,& - & 8.695222e-01,8.702207e-01,8.708591e-01,8.714446e-01,8.719836e-01,& - & 8.724812e-01,8.729426e-01,8.733689e-01,8.737665e-01,8.741373e-01,& - & 8.744834e-01,8.748070e-01,8.751131e-01,8.754011e-01,8.756676e-01,& - & 8.759219e-01,8.761599e-01,8.763857e-01,8.765984e-01,8.767999e-01,& - & 8.769889e-01,8.771669e-01,8.773373e-01,8.774969e-01,8.776469e-01,& - & 8.777894e-01,8.779237e-01,8.780505e-01,8.781703e-01,8.782820e-01,& - & 8.783886e-01,8.784894e-01,8.785844e-01,8.786736e-01,8.787584e-01,& - & 8.788379e-01,8.789130e-01,8.789849e-01,8.790506e-01,8.791141e-01,& - & 8.791750e-01,8.792324e-01,8.792867e-01 /) -! BAND 25 - asyliq1(:, 25) = (/ & - & 8.249534e-01,8.391988e-01,8.474107e-01,8.526860e-01,8.563983e-01,& - & 8.592389e-01,8.615144e-01,8.633790e-01,8.649325e-01,8.662504e-01,& - & 8.673841e-01,8.683741e-01,8.692495e-01,8.700309e-01,8.707328e-01,& - & 8.713650e-01,8.719432e-01,8.724676e-01,8.729498e-01,8.733922e-01,& - & 8.737981e-01,8.741745e-01,8.745225e-01,8.748467e-01,8.751512e-01,& - & 8.754315e-01,8.756962e-01,8.759450e-01,8.761774e-01,8.763945e-01,& - & 8.766021e-01,8.767970e-01,8.769803e-01,8.771511e-01,8.773151e-01,& - & 8.774689e-01,8.776147e-01,8.777533e-01,8.778831e-01,8.780050e-01,& - & 8.781197e-01,8.782301e-01,8.783323e-01,8.784312e-01,8.785222e-01,& - & 8.786096e-01,8.786916e-01,8.787688e-01,8.788411e-01,8.789122e-01,& - & 8.789762e-01,8.790373e-01,8.790954e-01,8.791514e-01,8.792018e-01,& - & 8.792517e-01,8.792990e-01,8.793429e-01 /) -! BAND 26 - asyliq1(:, 26) = (/ & - & 8.323091e-01,8.429776e-01,8.498123e-01,8.546929e-01,8.584295e-01,& - & 8.613489e-01,8.636324e-01,8.654303e-01,8.668675e-01,8.680404e-01,& - & 8.690174e-01,8.698495e-01,8.705666e-01,8.711961e-01,8.717556e-01,& - & 8.722546e-01,8.727063e-01,8.731170e-01,8.734933e-01,8.738382e-01,& - & 8.741590e-01,8.744525e-01,8.747295e-01,8.749843e-01,8.752210e-01,& - & 8.754437e-01,8.756524e-01,8.758472e-01,8.760288e-01,8.762030e-01,& - & 8.763603e-01,8.765122e-01,8.766539e-01,8.767894e-01,8.769130e-01,& - & 8.770310e-01,8.771422e-01,8.772437e-01,8.773419e-01,8.774355e-01,& - & 8.775221e-01,8.776047e-01,8.776802e-01,8.777539e-01,8.778216e-01,& - & 8.778859e-01,8.779473e-01,8.780031e-01,8.780562e-01,8.781097e-01,& - & 8.781570e-01,8.782021e-01,8.782463e-01,8.782845e-01,8.783235e-01,& - & 8.783610e-01,8.783953e-01,8.784273e-01 /) -! BAND 27 - asyliq1(:, 27) = (/ & - & 8.396448e-01,8.480172e-01,8.535934e-01,8.574145e-01,8.600835e-01,& - & 8.620347e-01,8.635500e-01,8.648003e-01,8.658758e-01,8.668248e-01,& - & 8.676697e-01,8.684220e-01,8.690893e-01,8.696807e-01,8.702046e-01,& - & 8.706676e-01,8.710798e-01,8.714478e-01,8.717778e-01,8.720747e-01,& - & 8.723431e-01,8.725889e-01,8.728144e-01,8.730201e-01,8.732129e-01,& - & 8.733907e-01,8.735541e-01,8.737100e-01,8.738533e-01,8.739882e-01,& - & 8.741164e-01,8.742362e-01,8.743485e-01,8.744530e-01,8.745512e-01,& - & 8.746471e-01,8.747373e-01,8.748186e-01,8.748973e-01,8.749732e-01,& - & 8.750443e-01,8.751105e-01,8.751747e-01,8.752344e-01,8.752902e-01,& - & 8.753412e-01,8.753917e-01,8.754393e-01,8.754843e-01,8.755282e-01,& - & 8.755662e-01,8.756039e-01,8.756408e-01,8.756722e-01,8.757072e-01,& - & 8.757352e-01,8.757653e-01,8.757932e-01 /) -! BAND 28 - asyliq1(:, 28) = (/ & - & 8.374590e-01,8.465669e-01,8.518701e-01,8.547627e-01,8.565745e-01,& - & 8.579065e-01,8.589717e-01,8.598632e-01,8.606363e-01,8.613268e-01,& - & 8.619560e-01,8.625340e-01,8.630689e-01,8.635601e-01,8.640084e-01,& - & 8.644180e-01,8.647885e-01,8.651220e-01,8.654218e-01,8.656908e-01,& - & 8.659294e-01,8.661422e-01,8.663334e-01,8.665037e-01,8.666543e-01,& - & 8.667913e-01,8.669156e-01,8.670242e-01,8.671249e-01,8.672161e-01,& - & 8.672993e-01,8.673733e-01,8.674457e-01,8.675103e-01,8.675713e-01,& - & 8.676267e-01,8.676798e-01,8.677286e-01,8.677745e-01,8.678178e-01,& - & 8.678601e-01,8.678986e-01,8.679351e-01,8.679693e-01,8.680013e-01,& - & 8.680334e-01,8.680624e-01,8.680915e-01,8.681178e-01,8.681428e-01,& - & 8.681654e-01,8.681899e-01,8.682103e-01,8.682317e-01,8.682498e-01,& - & 8.682677e-01,8.682861e-01,8.683041e-01 /) -! BAND 29 - asyliq1(:, 29) = (/ & - & 7.877069e-01,8.244281e-01,8.367971e-01,8.409074e-01,8.429859e-01,& - & 8.454386e-01,8.489350e-01,8.534141e-01,8.585814e-01,8.641267e-01,& - & 8.697999e-01,8.754223e-01,8.808785e-01,8.860944e-01,8.910354e-01,& - & 8.956837e-01,9.000392e-01,9.041091e-01,9.079071e-01,9.114479e-01,& - & 9.147462e-01,9.178234e-01,9.206903e-01,9.233663e-01,9.258668e-01,& - & 9.282006e-01,9.303847e-01,9.324288e-01,9.343418e-01,9.361356e-01,& - & 9.378176e-01,9.393939e-01,9.408736e-01,9.422622e-01,9.435670e-01,& - & 9.447900e-01,9.459395e-01,9.470199e-01,9.480335e-01,9.489852e-01,& - & 9.498782e-01,9.507168e-01,9.515044e-01,9.522470e-01,9.529409e-01,& - & 9.535946e-01,9.542071e-01,9.547838e-01,9.553256e-01,9.558351e-01,& - & 9.563139e-01,9.567660e-01,9.571915e-01,9.575901e-01,9.579685e-01,& - & 9.583239e-01,9.586602e-01,9.589766e-01 /) - - -! Spherical Ice Particle Parameterization -! extinction units (ext coef/iwc): [(m^-1)/(g m^-3)] - extice2(:, 16) = (/ & -! band 16 - & 4.101824e-01,2.435514e-01,1.713697e-01,1.314865e-01,1.063406e-01,& - & 8.910701e-02,7.659480e-02,6.711784e-02,5.970353e-02,5.375249e-02,& - & 4.887577e-02,4.481025e-02,4.137171e-02,3.842744e-02,3.587948e-02,& - & 3.365396e-02,3.169419e-02,2.995593e-02,2.840419e-02,2.701091e-02,& - & 2.575336e-02,2.461293e-02,2.357423e-02,2.262443e-02,2.175276e-02,& - & 2.095012e-02,2.020875e-02,1.952199e-02,1.888412e-02,1.829018e-02,& - & 1.773586e-02,1.721738e-02,1.673144e-02,1.627510e-02,1.584579e-02,& - & 1.544122e-02,1.505934e-02,1.469833e-02,1.435654e-02,1.403251e-02,& - & 1.372492e-02,1.343255e-02,1.315433e-02 /) - extice2(:, 17) = (/ & -! band 17 - & 3.836650e-01,2.304055e-01,1.637265e-01,1.266681e-01,1.031602e-01,& - & 8.695191e-02,7.511544e-02,6.610009e-02,5.900909e-02,5.328833e-02,& - & 4.857728e-02,4.463133e-02,4.127880e-02,3.839567e-02,3.589013e-02,& - & 3.369280e-02,3.175027e-02,3.002079e-02,2.847121e-02,2.707493e-02,& - & 2.581031e-02,2.465962e-02,2.360815e-02,2.264363e-02,2.175571e-02,& - & 2.093563e-02,2.017592e-02,1.947015e-02,1.881278e-02,1.819901e-02,& - & 1.762463e-02,1.708598e-02,1.657982e-02,1.610330e-02,1.565390e-02,& - & 1.522937e-02,1.482768e-02,1.444706e-02,1.408588e-02,1.374270e-02,& - & 1.341619e-02,1.310517e-02,1.280857e-02 /) - extice2(:, 18) = (/ & -! band 18 - & 4.152673e-01,2.436816e-01,1.702243e-01,1.299704e-01,1.047528e-01,& - & 8.756039e-02,7.513327e-02,6.575690e-02,5.844616e-02,5.259609e-02,& - & 4.781531e-02,4.383980e-02,4.048517e-02,3.761891e-02,3.514342e-02,& - & 3.298525e-02,3.108814e-02,2.940825e-02,2.791096e-02,2.656858e-02,& - & 2.535869e-02,2.426297e-02,2.326627e-02,2.235602e-02,2.152164e-02,& - & 2.075420e-02,2.004613e-02,1.939091e-02,1.878296e-02,1.821744e-02,& - & 1.769015e-02,1.719741e-02,1.673600e-02,1.630308e-02,1.589615e-02,& - & 1.551298e-02,1.515159e-02,1.481021e-02,1.448726e-02,1.418131e-02,& - & 1.389109e-02,1.361544e-02,1.335330e-02 /) - extice2(:, 19) = (/ & -! band 19 - & 3.873250e-01,2.331609e-01,1.655002e-01,1.277753e-01,1.038247e-01,& - & 8.731780e-02,7.527638e-02,6.611873e-02,5.892850e-02,5.313885e-02,& - & 4.838068e-02,4.440356e-02,4.103167e-02,3.813804e-02,3.562870e-02,& - & 3.343269e-02,3.149539e-02,2.977414e-02,2.823510e-02,2.685112e-02,& - & 2.560015e-02,2.446411e-02,2.342805e-02,2.247948e-02,2.160789e-02,& - & 2.080438e-02,2.006139e-02,1.937238e-02,1.873177e-02,1.813469e-02,& - & 1.757689e-02,1.705468e-02,1.656479e-02,1.610435e-02,1.567081e-02,& - & 1.526192e-02,1.487565e-02,1.451020e-02,1.416396e-02,1.383546e-02,& - & 1.352339e-02,1.322657e-02,1.294392e-02 /) - extice2(:, 20) = (/ & -! band 20 - & 3.784280e-01,2.291396e-01,1.632551e-01,1.263775e-01,1.028944e-01,& - & 8.666975e-02,7.480952e-02,6.577335e-02,5.866714e-02,5.293694e-02,& - & 4.822153e-02,4.427547e-02,4.092626e-02,3.804918e-02,3.555184e-02,& - & 3.336440e-02,3.143307e-02,2.971577e-02,2.817912e-02,2.679632e-02,& - & 2.554558e-02,2.440903e-02,2.337187e-02,2.242173e-02,2.154821e-02,& - & 2.074249e-02,1.999706e-02,1.930546e-02,1.866212e-02,1.806221e-02,& - & 1.750152e-02,1.697637e-02,1.648352e-02,1.602010e-02,1.558358e-02,& - & 1.517172e-02,1.478250e-02,1.441413e-02,1.406498e-02,1.373362e-02,& - & 1.341872e-02,1.311911e-02,1.283371e-02 /) - extice2(:, 21) = (/ & -! band 21 - & 3.719909e-01,2.259490e-01,1.613144e-01,1.250648e-01,1.019462e-01,& - & 8.595358e-02,7.425064e-02,6.532618e-02,5.830218e-02,5.263421e-02,& - & 4.796697e-02,4.405891e-02,4.074013e-02,3.788776e-02,3.541071e-02,& - & 3.324008e-02,3.132280e-02,2.961733e-02,2.809071e-02,2.671645e-02,& - & 2.547302e-02,2.434276e-02,2.331102e-02,2.236558e-02,2.149614e-02,& - & 2.069397e-02,1.995163e-02,1.926272e-02,1.862174e-02,1.802389e-02,& - & 1.746500e-02,1.694142e-02,1.644994e-02,1.598772e-02,1.555225e-02,& - & 1.514129e-02,1.475286e-02,1.438515e-02,1.403659e-02,1.370572e-02,& - & 1.339124e-02,1.309197e-02,1.280685e-02 /) - extice2(:, 22) = (/ & -! band 22 - & 3.713158e-01,2.253816e-01,1.608461e-01,1.246718e-01,1.016109e-01,& - & 8.566332e-02,7.399666e-02,6.510199e-02,5.810290e-02,5.245608e-02,& - & 4.780702e-02,4.391478e-02,4.060989e-02,3.776982e-02,3.530374e-02,& - & 3.314296e-02,3.123458e-02,2.953719e-02,2.801794e-02,2.665043e-02,& - & 2.541321e-02,2.428868e-02,2.326224e-02,2.232173e-02,2.145688e-02,& - & 2.065899e-02,1.992067e-02,1.923552e-02,1.859808e-02,1.800356e-02,& - & 1.744782e-02,1.692721e-02,1.643855e-02,1.597900e-02,1.554606e-02,& - & 1.513751e-02,1.475137e-02,1.438586e-02,1.403938e-02,1.371050e-02,& - & 1.339793e-02,1.310050e-02,1.281713e-02 /) - extice2(:, 23) = (/ & -! band 23 - & 3.605883e-01,2.204388e-01,1.580431e-01,1.229033e-01,1.004203e-01,& - & 8.482616e-02,7.338941e-02,6.465105e-02,5.776176e-02,5.219398e-02,& - & 4.760288e-02,4.375369e-02,4.048111e-02,3.766539e-02,3.521771e-02,& - & 3.307079e-02,3.117277e-02,2.948303e-02,2.796929e-02,2.660560e-02,& - & 2.537086e-02,2.424772e-02,2.322182e-02,2.228114e-02,2.141556e-02,& - & 2.061649e-02,1.987661e-02,1.918962e-02,1.855009e-02,1.795330e-02,& - & 1.739514e-02,1.687199e-02,1.638069e-02,1.591845e-02,1.548276e-02,& - & 1.507143e-02,1.468249e-02,1.431416e-02,1.396486e-02,1.363318e-02,& - & 1.331781e-02,1.301759e-02,1.273147e-02 /) - extice2(:, 24) = (/ & -! band 24 - & 3.527890e-01,2.168469e-01,1.560090e-01,1.216216e-01,9.955787e-02,& - & 8.421942e-02,7.294827e-02,6.432192e-02,5.751081e-02,5.199888e-02,& - & 4.744835e-02,4.362899e-02,4.037847e-02,3.757910e-02,3.514351e-02,& - & 3.300546e-02,3.111382e-02,2.942853e-02,2.791775e-02,2.655584e-02,& - & 2.532195e-02,2.419892e-02,2.317255e-02,2.223092e-02,2.136402e-02,& - & 2.056334e-02,1.982160e-02,1.913258e-02,1.849087e-02,1.789178e-02,& - & 1.733124e-02,1.680565e-02,1.631187e-02,1.584711e-02,1.540889e-02,& - & 1.499502e-02,1.460354e-02,1.423269e-02,1.388088e-02,1.354670e-02,& - & 1.322887e-02,1.292620e-02,1.263767e-02 /) - extice2(:, 25) = (/ & -! band 25 - & 3.477874e-01,2.143515e-01,1.544887e-01,1.205942e-01,9.881779e-02,& - & 8.366261e-02,7.251586e-02,6.397790e-02,5.723183e-02,5.176908e-02,& - & 4.725658e-02,4.346715e-02,4.024055e-02,3.746055e-02,3.504080e-02,& - & 3.291583e-02,3.103507e-02,2.935891e-02,2.785582e-02,2.650042e-02,& - & 2.527206e-02,2.415376e-02,2.313142e-02,2.219326e-02,2.132934e-02,& - & 2.053122e-02,1.979169e-02,1.910456e-02,1.846448e-02,1.786680e-02,& - & 1.730745e-02,1.678289e-02,1.628998e-02,1.582595e-02,1.538835e-02,& - & 1.497499e-02,1.458393e-02,1.421341e-02,1.386187e-02,1.352788e-02,& - & 1.321019e-02,1.290762e-02,1.261913e-02 /) - extice2(:, 26) = (/ & -! band 26 - & 3.453721e-01,2.130744e-01,1.536698e-01,1.200140e-01,9.838078e-02,& - & 8.331940e-02,7.223803e-02,6.374775e-02,5.703770e-02,5.160290e-02,& - & 4.711259e-02,4.334110e-02,4.012923e-02,3.736150e-02,3.495208e-02,& - & 3.283589e-02,3.096267e-02,2.929302e-02,2.779560e-02,2.644517e-02,& - & 2.522119e-02,2.410677e-02,2.308788e-02,2.215281e-02,2.129165e-02,& - & 2.049602e-02,1.975874e-02,1.907365e-02,1.843542e-02,1.783943e-02,& - & 1.728162e-02,1.675847e-02,1.626685e-02,1.580401e-02,1.536750e-02,& - & 1.495515e-02,1.456502e-02,1.419537e-02,1.384463e-02,1.351139e-02,& - & 1.319438e-02,1.289246e-02,1.260456e-02 /) - extice2(:, 27) = (/ & -! band 27 - & 3.417883e-01,2.113379e-01,1.526395e-01,1.193347e-01,9.790253e-02,& - & 8.296715e-02,7.196979e-02,6.353806e-02,5.687024e-02,5.146670e-02,& - & 4.700001e-02,4.324667e-02,4.004894e-02,3.729233e-02,3.489172e-02,& - & 3.278257e-02,3.091499e-02,2.924987e-02,2.775609e-02,2.640859e-02,& - & 2.518695e-02,2.407439e-02,2.305697e-02,2.212303e-02,2.126273e-02,& - & 2.046774e-02,1.973090e-02,1.904610e-02,1.840801e-02,1.781204e-02,& - & 1.725417e-02,1.673086e-02,1.623902e-02,1.577590e-02,1.533906e-02,& - & 1.492634e-02,1.453580e-02,1.416571e-02,1.381450e-02,1.348078e-02,& - & 1.316327e-02,1.286082e-02,1.257240e-02 /) - extice2(:, 28) = (/ & -! band 28 - & 3.416111e-01,2.114124e-01,1.527734e-01,1.194809e-01,9.804612e-02,& - & 8.310287e-02,7.209595e-02,6.365442e-02,5.697710e-02,5.156460e-02,& - & 4.708957e-02,4.332850e-02,4.012361e-02,3.736037e-02,3.495364e-02,& - & 3.283879e-02,3.096593e-02,2.929589e-02,2.779751e-02,2.644571e-02,& - & 2.522004e-02,2.410369e-02,2.308271e-02,2.214542e-02,2.128195e-02,& - & 2.048396e-02,1.974429e-02,1.905679e-02,1.841614e-02,1.781774e-02,& - & 1.725754e-02,1.673203e-02,1.623807e-02,1.577293e-02,1.533416e-02,& - & 1.491958e-02,1.452727e-02,1.415547e-02,1.380262e-02,1.346732e-02,& - & 1.314830e-02,1.284439e-02,1.255456e-02 /) - extice2(:, 29) = (/ & -! band 29 - & 4.196611e-01,2.493642e-01,1.761261e-01,1.357197e-01,1.102161e-01,& - & 9.269376e-02,7.992985e-02,7.022538e-02,6.260168e-02,5.645603e-02,& - & 5.139732e-02,4.716088e-02,4.356133e-02,4.046498e-02,3.777303e-02,& - & 3.541094e-02,3.332137e-02,3.145954e-02,2.978998e-02,2.828419e-02,& - & 2.691905e-02,2.567559e-02,2.453811e-02,2.349350e-02,2.253072e-02,& - & 2.164042e-02,2.081464e-02,2.004652e-02,1.933015e-02,1.866041e-02,& - & 1.803283e-02,1.744348e-02,1.688894e-02,1.636616e-02,1.587244e-02,& - & 1.540539e-02,1.496287e-02,1.454295e-02,1.414392e-02,1.376423e-02,& - & 1.340247e-02,1.305739e-02,1.272784e-02 /) - -! single-scattering albedo: unitless - ssaice2(:, 16) = (/ & -! band 16 - & 6.630615e-01,6.451169e-01,6.333696e-01,6.246927e-01,6.178420e-01,& - & 6.121976e-01,6.074069e-01,6.032505e-01,5.995830e-01,5.963030e-01,& - & 5.933372e-01,5.906311e-01,5.881427e-01,5.858395e-01,5.836955e-01,& - & 5.816896e-01,5.798046e-01,5.780264e-01,5.763429e-01,5.747441e-01,& - & 5.732213e-01,5.717672e-01,5.703754e-01,5.690403e-01,5.677571e-01,& - & 5.665215e-01,5.653297e-01,5.641782e-01,5.630643e-01,5.619850e-01,& - & 5.609381e-01,5.599214e-01,5.589328e-01,5.579707e-01,5.570333e-01,& - & 5.561193e-01,5.552272e-01,5.543558e-01,5.535041e-01,5.526708e-01,& - & 5.518551e-01,5.510561e-01,5.502729e-01 /) - ssaice2(:, 17) = (/ & -! band 17 - & 7.689749e-01,7.398171e-01,7.205819e-01,7.065690e-01,6.956928e-01,& - & 6.868989e-01,6.795813e-01,6.733606e-01,6.679838e-01,6.632742e-01,& - & 6.591036e-01,6.553766e-01,6.520197e-01,6.489757e-01,6.461991e-01,& - & 6.436531e-01,6.413075e-01,6.391375e-01,6.371221e-01,6.352438e-01,& - & 6.334876e-01,6.318406e-01,6.302918e-01,6.288315e-01,6.274512e-01,& - & 6.261436e-01,6.249022e-01,6.237211e-01,6.225953e-01,6.215201e-01,& - & 6.204914e-01,6.195055e-01,6.185592e-01,6.176492e-01,6.167730e-01,& - & 6.159280e-01,6.151120e-01,6.143228e-01,6.135587e-01,6.128177e-01,& - & 6.120984e-01,6.113993e-01,6.107189e-01 /) - ssaice2(:, 18) = (/ & -! band 18 - & 9.956167e-01,9.814770e-01,9.716104e-01,9.639746e-01,9.577179e-01,& - & 9.524010e-01,9.477672e-01,9.436527e-01,9.399467e-01,9.365708e-01,& - & 9.334672e-01,9.305921e-01,9.279118e-01,9.253993e-01,9.230330e-01,& - & 9.207954e-01,9.186719e-01,9.166501e-01,9.147199e-01,9.128722e-01,& - & 9.110997e-01,9.093956e-01,9.077544e-01,9.061708e-01,9.046406e-01,& - & 9.031598e-01,9.017248e-01,9.003326e-01,8.989804e-01,8.976655e-01,& - & 8.963857e-01,8.951389e-01,8.939233e-01,8.927370e-01,8.915785e-01,& - & 8.904464e-01,8.893392e-01,8.882559e-01,8.871951e-01,8.861559e-01,& - & 8.851373e-01,8.841383e-01,8.831581e-01 /) - ssaice2(:, 19) = (/ & -! band 19 - & 9.723177e-01,9.452119e-01,9.267592e-01,9.127393e-01,9.014238e-01,& - & 8.919334e-01,8.837584e-01,8.765773e-01,8.701736e-01,8.643950e-01,& - & 8.591299e-01,8.542942e-01,8.498230e-01,8.456651e-01,8.417794e-01,& - & 8.381324e-01,8.346964e-01,8.314484e-01,8.283687e-01,8.254408e-01,& - & 8.226505e-01,8.199854e-01,8.174348e-01,8.149891e-01,8.126403e-01,& - & 8.103808e-01,8.082041e-01,8.061044e-01,8.040765e-01,8.021156e-01,& - & 8.002174e-01,7.983781e-01,7.965941e-01,7.948622e-01,7.931795e-01,& - & 7.915432e-01,7.899508e-01,7.884002e-01,7.868891e-01,7.854156e-01,& - & 7.839779e-01,7.825742e-01,7.812031e-01 /) - ssaice2(:, 20) = (/ & -! band 20 - & 9.933294e-01,9.860917e-01,9.811564e-01,9.774008e-01,9.743652e-01,& - & 9.718155e-01,9.696159e-01,9.676810e-01,9.659531e-01,9.643915e-01,& - & 9.629667e-01,9.616561e-01,9.604426e-01,9.593125e-01,9.582548e-01,& - & 9.572607e-01,9.563227e-01,9.554347e-01,9.545915e-01,9.537888e-01,& - & 9.530226e-01,9.522898e-01,9.515874e-01,9.509130e-01,9.502643e-01,& - & 9.496394e-01,9.490366e-01,9.484542e-01,9.478910e-01,9.473456e-01,& - & 9.468169e-01,9.463039e-01,9.458056e-01,9.453212e-01,9.448499e-01,& - & 9.443910e-01,9.439438e-01,9.435077e-01,9.430821e-01,9.426666e-01,& - & 9.422607e-01,9.418638e-01,9.414756e-01 /) - ssaice2(:, 21) = (/ & -! band 21 - & 9.900787e-01,9.828880e-01,9.779258e-01,9.741173e-01,9.710184e-01,& - & 9.684012e-01,9.661332e-01,9.641301e-01,9.623352e-01,9.607083e-01,& - & 9.592198e-01,9.578474e-01,9.565739e-01,9.553856e-01,9.542715e-01,& - & 9.532226e-01,9.522314e-01,9.512919e-01,9.503986e-01,9.495472e-01,& - & 9.487337e-01,9.479549e-01,9.472077e-01,9.464897e-01,9.457985e-01,& - & 9.451322e-01,9.444890e-01,9.438673e-01,9.432656e-01,9.426826e-01,& - & 9.421173e-01,9.415684e-01,9.410351e-01,9.405164e-01,9.400115e-01,& - & 9.395198e-01,9.390404e-01,9.385728e-01,9.381164e-01,9.376707e-01,& - & 9.372350e-01,9.368091e-01,9.363923e-01 /) - ssaice2(:, 22) = (/ & -! band 22 - & 9.986793e-01,9.985239e-01,9.983911e-01,9.982715e-01,9.981606e-01,& - & 9.980562e-01,9.979567e-01,9.978613e-01,9.977691e-01,9.976798e-01,& - & 9.975929e-01,9.975081e-01,9.974251e-01,9.973438e-01,9.972640e-01,& - & 9.971855e-01,9.971083e-01,9.970322e-01,9.969571e-01,9.968830e-01,& - & 9.968099e-01,9.967375e-01,9.966660e-01,9.965951e-01,9.965250e-01,& - & 9.964555e-01,9.963867e-01,9.963185e-01,9.962508e-01,9.961836e-01,& - & 9.961170e-01,9.960508e-01,9.959851e-01,9.959198e-01,9.958550e-01,& - & 9.957906e-01,9.957266e-01,9.956629e-01,9.955997e-01,9.955367e-01,& - & 9.954742e-01,9.954119e-01,9.953500e-01 /) - ssaice2(:, 23) = (/ & -! band 23 - & 9.997944e-01,9.997791e-01,9.997664e-01,9.997547e-01,9.997436e-01,& - & 9.997327e-01,9.997219e-01,9.997110e-01,9.996999e-01,9.996886e-01,& - & 9.996771e-01,9.996653e-01,9.996533e-01,9.996409e-01,9.996282e-01,& - & 9.996152e-01,9.996019e-01,9.995883e-01,9.995743e-01,9.995599e-01,& - & 9.995453e-01,9.995302e-01,9.995149e-01,9.994992e-01,9.994831e-01,& - & 9.994667e-01,9.994500e-01,9.994329e-01,9.994154e-01,9.993976e-01,& - & 9.993795e-01,9.993610e-01,9.993422e-01,9.993230e-01,9.993035e-01,& - & 9.992837e-01,9.992635e-01,9.992429e-01,9.992221e-01,9.992008e-01,& - & 9.991793e-01,9.991574e-01,9.991352e-01 /) - ssaice2(:, 24) = (/ & -! band 24 - & 9.999949e-01,9.999947e-01,9.999943e-01,9.999939e-01,9.999934e-01,& - & 9.999927e-01,9.999920e-01,9.999913e-01,9.999904e-01,9.999895e-01,& - & 9.999885e-01,9.999874e-01,9.999863e-01,9.999851e-01,9.999838e-01,& - & 9.999824e-01,9.999810e-01,9.999795e-01,9.999780e-01,9.999764e-01,& - & 9.999747e-01,9.999729e-01,9.999711e-01,9.999692e-01,9.999673e-01,& - & 9.999653e-01,9.999632e-01,9.999611e-01,9.999589e-01,9.999566e-01,& - & 9.999543e-01,9.999519e-01,9.999495e-01,9.999470e-01,9.999444e-01,& - & 9.999418e-01,9.999392e-01,9.999364e-01,9.999336e-01,9.999308e-01,& - & 9.999279e-01,9.999249e-01,9.999219e-01 /) - ssaice2(:, 25) = (/ & -! band 25 - & 9.999997e-01,9.999997e-01,9.999997e-01,9.999996e-01,9.999996e-01,& - & 9.999995e-01,9.999994e-01,9.999993e-01,9.999993e-01,9.999992e-01,& - & 9.999991e-01,9.999989e-01,9.999988e-01,9.999987e-01,9.999986e-01,& - & 9.999984e-01,9.999983e-01,9.999981e-01,9.999980e-01,9.999978e-01,& - & 9.999976e-01,9.999974e-01,9.999972e-01,9.999971e-01,9.999969e-01,& - & 9.999966e-01,9.999964e-01,9.999962e-01,9.999960e-01,9.999957e-01,& - & 9.999955e-01,9.999953e-01,9.999950e-01,9.999947e-01,9.999945e-01,& - & 9.999942e-01,9.999939e-01,9.999936e-01,9.999934e-01,9.999931e-01,& - & 9.999928e-01,9.999925e-01,9.999921e-01 /) - ssaice2(:, 26) = (/ & -! band 26 - & 9.999997e-01,9.999996e-01,9.999996e-01,9.999995e-01,9.999994e-01,& - & 9.999993e-01,9.999992e-01,9.999991e-01,9.999990e-01,9.999989e-01,& - & 9.999987e-01,9.999986e-01,9.999984e-01,9.999982e-01,9.999980e-01,& - & 9.999978e-01,9.999976e-01,9.999974e-01,9.999972e-01,9.999970e-01,& - & 9.999967e-01,9.999965e-01,9.999962e-01,9.999959e-01,9.999956e-01,& - & 9.999954e-01,9.999951e-01,9.999947e-01,9.999944e-01,9.999941e-01,& - & 9.999938e-01,9.999934e-01,9.999931e-01,9.999927e-01,9.999923e-01,& - & 9.999920e-01,9.999916e-01,9.999912e-01,9.999908e-01,9.999904e-01,& - & 9.999899e-01,9.999895e-01,9.999891e-01 /) - ssaice2(:, 27) = (/ & -! band 27 - & 9.999987e-01,9.999987e-01,9.999985e-01,9.999984e-01,9.999982e-01,& - & 9.999980e-01,9.999978e-01,9.999976e-01,9.999973e-01,9.999970e-01,& - & 9.999967e-01,9.999964e-01,9.999960e-01,9.999956e-01,9.999952e-01,& - & 9.999948e-01,9.999944e-01,9.999939e-01,9.999934e-01,9.999929e-01,& - & 9.999924e-01,9.999918e-01,9.999913e-01,9.999907e-01,9.999901e-01,& - & 9.999894e-01,9.999888e-01,9.999881e-01,9.999874e-01,9.999867e-01,& - & 9.999860e-01,9.999853e-01,9.999845e-01,9.999837e-01,9.999829e-01,& - & 9.999821e-01,9.999813e-01,9.999804e-01,9.999796e-01,9.999787e-01,& - & 9.999778e-01,9.999768e-01,9.999759e-01 /) - ssaice2(:, 28) = (/ & -! band 28 - & 9.999989e-01,9.999989e-01,9.999987e-01,9.999986e-01,9.999984e-01,& - & 9.999982e-01,9.999980e-01,9.999978e-01,9.999975e-01,9.999972e-01,& - & 9.999969e-01,9.999966e-01,9.999962e-01,9.999958e-01,9.999954e-01,& - & 9.999950e-01,9.999945e-01,9.999941e-01,9.999936e-01,9.999931e-01,& - & 9.999925e-01,9.999920e-01,9.999914e-01,9.999908e-01,9.999902e-01,& - & 9.999896e-01,9.999889e-01,9.999883e-01,9.999876e-01,9.999869e-01,& - & 9.999861e-01,9.999854e-01,9.999846e-01,9.999838e-01,9.999830e-01,& - & 9.999822e-01,9.999814e-01,9.999805e-01,9.999796e-01,9.999787e-01,& - & 9.999778e-01,9.999769e-01,9.999759e-01 /) - ssaice2(:, 29) = (/ & -! band 29 - & 7.042143e-01,6.691161e-01,6.463240e-01,6.296590e-01,6.166381e-01,& - & 6.060183e-01,5.970908e-01,5.894144e-01,5.826968e-01,5.767343e-01,& - & 5.713804e-01,5.665256e-01,5.620867e-01,5.579987e-01,5.542101e-01,& - & 5.506794e-01,5.473727e-01,5.442620e-01,5.413239e-01,5.385389e-01,& - & 5.358901e-01,5.333633e-01,5.309460e-01,5.286277e-01,5.263988e-01,& - & 5.242512e-01,5.221777e-01,5.201719e-01,5.182280e-01,5.163410e-01,& - & 5.145062e-01,5.127197e-01,5.109776e-01,5.092766e-01,5.076137e-01,& - & 5.059860e-01,5.043911e-01,5.028266e-01,5.012904e-01,4.997805e-01,& - & 4.982951e-01,4.968326e-01,4.953913e-01 /) - -! asymmetry factor: unitless - asyice2(:, 16) = (/ & -! band 16 - & 7.946655e-01,8.547685e-01,8.806016e-01,8.949880e-01,9.041676e-01,& - & 9.105399e-01,9.152249e-01,9.188160e-01,9.216573e-01,9.239620e-01,& - & 9.258695e-01,9.274745e-01,9.288441e-01,9.300267e-01,9.310584e-01,& - & 9.319665e-01,9.327721e-01,9.334918e-01,9.341387e-01,9.347236e-01,& - & 9.352551e-01,9.357402e-01,9.361850e-01,9.365942e-01,9.369722e-01,& - & 9.373225e-01,9.376481e-01,9.379516e-01,9.382352e-01,9.385010e-01,& - & 9.387505e-01,9.389854e-01,9.392070e-01,9.394163e-01,9.396145e-01,& - & 9.398024e-01,9.399809e-01,9.401508e-01,9.403126e-01,9.404670e-01,& - & 9.406144e-01,9.407555e-01,9.408906e-01 /) - asyice2(:, 17) = (/ & -! band 17 - & 9.078091e-01,9.195850e-01,9.267250e-01,9.317083e-01,9.354632e-01,& - & 9.384323e-01,9.408597e-01,9.428935e-01,9.446301e-01,9.461351e-01,& - & 9.474555e-01,9.486259e-01,9.496722e-01,9.506146e-01,9.514688e-01,& - & 9.522476e-01,9.529612e-01,9.536181e-01,9.542251e-01,9.547883e-01,& - & 9.553124e-01,9.558019e-01,9.562601e-01,9.566904e-01,9.570953e-01,& - & 9.574773e-01,9.578385e-01,9.581806e-01,9.585054e-01,9.588142e-01,& - & 9.591083e-01,9.593888e-01,9.596569e-01,9.599135e-01,9.601593e-01,& - & 9.603952e-01,9.606219e-01,9.608399e-01,9.610499e-01,9.612523e-01,& - & 9.614477e-01,9.616365e-01,9.618192e-01 /) - asyice2(:, 18) = (/ & -! band 18 - & 8.322045e-01,8.528693e-01,8.648167e-01,8.729163e-01,8.789054e-01,& - & 8.835845e-01,8.873819e-01,8.905511e-01,8.932532e-01,8.955965e-01,& - & 8.976567e-01,8.994887e-01,9.011334e-01,9.026221e-01,9.039791e-01,& - & 9.052237e-01,9.063715e-01,9.074349e-01,9.084245e-01,9.093489e-01,& - & 9.102154e-01,9.110303e-01,9.117987e-01,9.125253e-01,9.132140e-01,& - & 9.138682e-01,9.144910e-01,9.150850e-01,9.156524e-01,9.161955e-01,& - & 9.167160e-01,9.172157e-01,9.176959e-01,9.181581e-01,9.186034e-01,& - & 9.190330e-01,9.194478e-01,9.198488e-01,9.202368e-01,9.206126e-01,& - & 9.209768e-01,9.213301e-01,9.216731e-01 /) - asyice2(:, 19) = (/ & -! band 19 - & 8.116560e-01,8.488278e-01,8.674331e-01,8.788148e-01,8.865810e-01,& - & 8.922595e-01,8.966149e-01,9.000747e-01,9.028980e-01,9.052513e-01,& - & 9.072468e-01,9.089632e-01,9.104574e-01,9.117713e-01,9.129371e-01,& - & 9.139793e-01,9.149174e-01,9.157668e-01,9.165400e-01,9.172473e-01,& - & 9.178970e-01,9.184962e-01,9.190508e-01,9.195658e-01,9.200455e-01,& - & 9.204935e-01,9.209130e-01,9.213067e-01,9.216771e-01,9.220262e-01,& - & 9.223560e-01,9.226680e-01,9.229636e-01,9.232443e-01,9.235112e-01,& - & 9.237652e-01,9.240074e-01,9.242385e-01,9.244594e-01,9.246708e-01,& - & 9.248733e-01,9.250674e-01,9.252536e-01 /) - asyice2(:, 20) = (/ & -! band 20 - & 8.047113e-01,8.402864e-01,8.570332e-01,8.668455e-01,8.733206e-01,& - & 8.779272e-01,8.813796e-01,8.840676e-01,8.862225e-01,8.879904e-01,& - & 8.894682e-01,8.907228e-01,8.918019e-01,8.927404e-01,8.935645e-01,& - & 8.942943e-01,8.949452e-01,8.955296e-01,8.960574e-01,8.965366e-01,& - & 8.969736e-01,8.973740e-01,8.977422e-01,8.980820e-01,8.983966e-01,& - & 8.986889e-01,8.989611e-01,8.992153e-01,8.994533e-01,8.996766e-01,& - & 8.998865e-01,9.000843e-01,9.002709e-01,9.004474e-01,9.006146e-01,& - & 9.007731e-01,9.009237e-01,9.010670e-01,9.012034e-01,9.013336e-01,& - & 9.014579e-01,9.015767e-01,9.016904e-01 /) - asyice2(:, 21) = (/ & -! band 21 - & 8.179122e-01,8.480726e-01,8.621945e-01,8.704354e-01,8.758555e-01,& - & 8.797007e-01,8.825750e-01,8.848078e-01,8.865939e-01,8.880564e-01,& - & 8.892765e-01,8.903105e-01,8.911982e-01,8.919689e-01,8.926446e-01,& - & 8.932419e-01,8.937738e-01,8.942506e-01,8.946806e-01,8.950702e-01,& - & 8.954251e-01,8.957497e-01,8.960477e-01,8.963223e-01,8.965762e-01,& - & 8.968116e-01,8.970306e-01,8.972347e-01,8.974255e-01,8.976042e-01,& - & 8.977720e-01,8.979298e-01,8.980784e-01,8.982188e-01,8.983515e-01,& - & 8.984771e-01,8.985963e-01,8.987095e-01,8.988171e-01,8.989195e-01,& - & 8.990172e-01,8.991104e-01,8.991994e-01 /) - asyice2(:, 22) = (/ & -! band 22 - & 8.169789e-01,8.455024e-01,8.586925e-01,8.663283e-01,8.713217e-01,& - & 8.748488e-01,8.774765e-01,8.795122e-01,8.811370e-01,8.824649e-01,& - & 8.835711e-01,8.845073e-01,8.853103e-01,8.860068e-01,8.866170e-01,& - & 8.871560e-01,8.876358e-01,8.880658e-01,8.884533e-01,8.888044e-01,& - & 8.891242e-01,8.894166e-01,8.896851e-01,8.899324e-01,8.901612e-01,& - & 8.903733e-01,8.905706e-01,8.907545e-01,8.909265e-01,8.910876e-01,& - & 8.912388e-01,8.913812e-01,8.915153e-01,8.916419e-01,8.917617e-01,& - & 8.918752e-01,8.919829e-01,8.920851e-01,8.921824e-01,8.922751e-01,& - & 8.923635e-01,8.924478e-01,8.925284e-01 /) - asyice2(:, 23) = (/ & -! band 23 - & 8.387642e-01,8.569979e-01,8.658630e-01,8.711825e-01,8.747605e-01,& - & 8.773472e-01,8.793129e-01,8.808621e-01,8.821179e-01,8.831583e-01,& - & 8.840361e-01,8.847875e-01,8.854388e-01,8.860094e-01,8.865138e-01,& - & 8.869634e-01,8.873668e-01,8.877310e-01,8.880617e-01,8.883635e-01,& - & 8.886401e-01,8.888947e-01,8.891298e-01,8.893477e-01,8.895504e-01,& - & 8.897393e-01,8.899159e-01,8.900815e-01,8.902370e-01,8.903833e-01,& - & 8.905214e-01,8.906518e-01,8.907753e-01,8.908924e-01,8.910036e-01,& - & 8.911094e-01,8.912101e-01,8.913062e-01,8.913979e-01,8.914856e-01,& - & 8.915695e-01,8.916498e-01,8.917269e-01 /) - asyice2(:, 24) = (/ & -! band 24 - & 8.522208e-01,8.648132e-01,8.711224e-01,8.749901e-01,8.776354e-01,& - & 8.795743e-01,8.810649e-01,8.822518e-01,8.832225e-01,8.840333e-01,& - & 8.847224e-01,8.853162e-01,8.858342e-01,8.862906e-01,8.866962e-01,& - & 8.870595e-01,8.873871e-01,8.876842e-01,8.879551e-01,8.882032e-01,& - & 8.884316e-01,8.886425e-01,8.888380e-01,8.890199e-01,8.891895e-01,& - & 8.893481e-01,8.894968e-01,8.896366e-01,8.897683e-01,8.898926e-01,& - & 8.900102e-01,8.901215e-01,8.902272e-01,8.903276e-01,8.904232e-01,& - & 8.905144e-01,8.906014e-01,8.906845e-01,8.907640e-01,8.908402e-01,& - & 8.909132e-01,8.909834e-01,8.910507e-01 /) - asyice2(:, 25) = (/ & -! band 25 - & 8.578202e-01,8.683033e-01,8.735431e-01,8.767488e-01,8.789378e-01,& - & 8.805399e-01,8.817701e-01,8.827485e-01,8.835480e-01,8.842152e-01,& - & 8.847817e-01,8.852696e-01,8.856949e-01,8.860694e-01,8.864020e-01,& - & 8.866997e-01,8.869681e-01,8.872113e-01,8.874330e-01,8.876360e-01,& - & 8.878227e-01,8.879951e-01,8.881548e-01,8.883033e-01,8.884418e-01,& - & 8.885712e-01,8.886926e-01,8.888066e-01,8.889139e-01,8.890152e-01,& - & 8.891110e-01,8.892017e-01,8.892877e-01,8.893695e-01,8.894473e-01,& - & 8.895214e-01,8.895921e-01,8.896597e-01,8.897243e-01,8.897862e-01,& - & 8.898456e-01,8.899025e-01,8.899572e-01 /) - asyice2(:, 26) = (/ & -! band 26 - & 8.625615e-01,8.713831e-01,8.755799e-01,8.780560e-01,8.796983e-01,& - & 8.808714e-01,8.817534e-01,8.824420e-01,8.829953e-01,8.834501e-01,& - & 8.838310e-01,8.841549e-01,8.844338e-01,8.846767e-01,8.848902e-01,& - & 8.850795e-01,8.852484e-01,8.854002e-01,8.855374e-01,8.856620e-01,& - & 8.857758e-01,8.858800e-01,8.859759e-01,8.860644e-01,8.861464e-01,& - & 8.862225e-01,8.862935e-01,8.863598e-01,8.864218e-01,8.864800e-01,& - & 8.865347e-01,8.865863e-01,8.866349e-01,8.866809e-01,8.867245e-01,& - & 8.867658e-01,8.868050e-01,8.868423e-01,8.868778e-01,8.869117e-01,& - & 8.869440e-01,8.869749e-01,8.870044e-01 /) - asyice2(:, 27) = (/ & -! band 27 - & 8.587495e-01,8.684764e-01,8.728189e-01,8.752872e-01,8.768846e-01,& - & 8.780060e-01,8.788386e-01,8.794824e-01,8.799960e-01,8.804159e-01,& - & 8.807660e-01,8.810626e-01,8.813175e-01,8.815390e-01,8.817335e-01,& - & 8.819057e-01,8.820593e-01,8.821973e-01,8.823220e-01,8.824353e-01,& - & 8.825387e-01,8.826336e-01,8.827209e-01,8.828016e-01,8.828764e-01,& - & 8.829459e-01,8.830108e-01,8.830715e-01,8.831283e-01,8.831817e-01,& - & 8.832320e-01,8.832795e-01,8.833244e-01,8.833668e-01,8.834071e-01,& - & 8.834454e-01,8.834817e-01,8.835164e-01,8.835495e-01,8.835811e-01,& - & 8.836113e-01,8.836402e-01,8.836679e-01 /) - asyice2(:, 28) = (/ & -! band 28 - & 8.561110e-01,8.678583e-01,8.727554e-01,8.753892e-01,8.770154e-01,& - & 8.781109e-01,8.788949e-01,8.794812e-01,8.799348e-01,8.802952e-01,& - & 8.805880e-01,8.808300e-01,8.810331e-01,8.812058e-01,8.813543e-01,& - & 8.814832e-01,8.815960e-01,8.816956e-01,8.817839e-01,8.818629e-01,& - & 8.819339e-01,8.819979e-01,8.820560e-01,8.821089e-01,8.821573e-01,& - & 8.822016e-01,8.822425e-01,8.822801e-01,8.823150e-01,8.823474e-01,& - & 8.823775e-01,8.824056e-01,8.824318e-01,8.824564e-01,8.824795e-01,& - & 8.825011e-01,8.825215e-01,8.825408e-01,8.825589e-01,8.825761e-01,& - & 8.825924e-01,8.826078e-01,8.826224e-01 /) - asyice2(:, 29) = (/ & -! band 29 - & 8.311124e-01,8.688197e-01,8.900274e-01,9.040696e-01,9.142334e-01,& - & 9.220181e-01,9.282195e-01,9.333048e-01,9.375689e-01,9.412085e-01,& - & 9.443604e-01,9.471230e-01,9.495694e-01,9.517549e-01,9.537224e-01,& - & 9.555057e-01,9.571316e-01,9.586222e-01,9.599952e-01,9.612656e-01,& - & 9.624458e-01,9.635461e-01,9.645756e-01,9.655418e-01,9.664513e-01,& - & 9.673098e-01,9.681222e-01,9.688928e-01,9.696256e-01,9.703237e-01,& - & 9.709903e-01,9.716280e-01,9.722391e-01,9.728258e-01,9.733901e-01,& - & 9.739336e-01,9.744579e-01,9.749645e-01,9.754546e-01,9.759294e-01,& - & 9.763901e-01,9.768376e-01,9.772727e-01 /) - -! Hexagonal Ice Particle Parameterization -! extinction units (ext coef/iwc): [(m^-1)/(g m^-3)] - extice3(:, 16) = (/ & -! band 16 - & 5.194013e-01,3.215089e-01,2.327917e-01,1.824424e-01,1.499977e-01,& - & 1.273492e-01,1.106421e-01,9.780982e-02,8.764435e-02,7.939266e-02,& - & 7.256081e-02,6.681137e-02,6.190600e-02,5.767154e-02,5.397915e-02,& - & 5.073102e-02,4.785151e-02,4.528125e-02,4.297296e-02,4.088853e-02,& - & 3.899690e-02,3.727251e-02,3.569411e-02,3.424393e-02,3.290694e-02,& - & 3.167040e-02,3.052340e-02,2.945654e-02,2.846172e-02,2.753188e-02,& - & 2.666085e-02,2.584322e-02,2.507423e-02,2.434967e-02,2.366579e-02,& - & 2.301926e-02,2.240711e-02,2.182666e-02,2.127551e-02,2.075150e-02,& - & 2.025267e-02,1.977725e-02,1.932364e-02,1.889035e-02,1.847607e-02,& - & 1.807956e-02 /) - extice3(:, 17) = (/ & -! band 17 - & 4.901155e-01,3.065286e-01,2.230800e-01,1.753951e-01,1.445402e-01,& - & 1.229417e-01,1.069777e-01,9.469760e-02,8.495824e-02,7.704501e-02,& - & 7.048834e-02,6.496693e-02,6.025353e-02,5.618286e-02,5.263186e-02,& - & 4.950698e-02,4.673585e-02,4.426164e-02,4.203904e-02,4.003153e-02,& - & 3.820932e-02,3.654790e-02,3.502688e-02,3.362919e-02,3.234041e-02,& - & 3.114829e-02,3.004234e-02,2.901356e-02,2.805413e-02,2.715727e-02,& - & 2.631705e-02,2.552828e-02,2.478637e-02,2.408725e-02,2.342734e-02,& - & 2.280343e-02,2.221264e-02,2.165242e-02,2.112043e-02,2.061461e-02,& - & 2.013308e-02,1.967411e-02,1.923616e-02,1.881783e-02,1.841781e-02,& - & 1.803494e-02 /) - extice3(:, 18) = (/ & -! band 18 - & 5.056264e-01,3.160261e-01,2.298442e-01,1.805973e-01,1.487318e-01,& - & 1.264258e-01,1.099389e-01,9.725656e-02,8.719819e-02,7.902576e-02,& - & 7.225433e-02,6.655206e-02,6.168427e-02,5.748028e-02,5.381296e-02,& - & 5.058572e-02,4.772383e-02,4.516857e-02,4.287317e-02,4.079990e-02,& - & 3.891801e-02,3.720217e-02,3.563133e-02,3.418786e-02,3.285686e-02,& - & 3.162569e-02,3.048352e-02,2.942104e-02,2.843018e-02,2.750395e-02,& - & 2.663621e-02,2.582160e-02,2.505539e-02,2.433337e-02,2.365185e-02,& - & 2.300750e-02,2.239736e-02,2.181878e-02,2.126937e-02,2.074699e-02,& - & 2.024968e-02,1.977567e-02,1.932338e-02,1.889134e-02,1.847823e-02,& - & 1.808281e-02 /) - extice3(:, 19) = (/ & -! band 19 - & 4.881605e-01,3.055237e-01,2.225070e-01,1.750688e-01,1.443736e-01,& - & 1.228869e-01,1.070054e-01,9.478893e-02,8.509997e-02,7.722769e-02,& - & 7.070495e-02,6.521211e-02,6.052311e-02,5.647351e-02,5.294088e-02,& - & 4.983217e-02,4.707539e-02,4.461398e-02,4.240288e-02,4.040575e-02,& - & 3.859298e-02,3.694016e-02,3.542701e-02,3.403655e-02,3.275444e-02,& - & 3.156849e-02,3.046827e-02,2.944481e-02,2.849034e-02,2.759812e-02,& - & 2.676226e-02,2.597757e-02,2.523949e-02,2.454400e-02,2.388750e-02,& - & 2.326682e-02,2.267909e-02,2.212176e-02,2.159253e-02,2.108933e-02,& - & 2.061028e-02,2.015369e-02,1.971801e-02,1.930184e-02,1.890389e-02,& - & 1.852300e-02 /) - extice3(:, 20) = (/ & -! band 20 - & 5.103703e-01,3.188144e-01,2.317435e-01,1.819887e-01,1.497944e-01,& - & 1.272584e-01,1.106013e-01,9.778822e-02,8.762610e-02,7.936938e-02,& - & 7.252809e-02,6.676701e-02,6.184901e-02,5.760165e-02,5.389651e-02,& - & 5.063598e-02,4.774457e-02,4.516295e-02,4.284387e-02,4.074922e-02,& - & 3.884792e-02,3.711438e-02,3.552734e-02,3.406898e-02,3.272425e-02,& - & 3.148038e-02,3.032643e-02,2.925299e-02,2.825191e-02,2.731612e-02,& - & 2.643943e-02,2.561642e-02,2.484230e-02,2.411284e-02,2.342429e-02,& - & 2.277329e-02,2.215686e-02,2.157231e-02,2.101724e-02,2.048946e-02,& - & 1.998702e-02,1.950813e-02,1.905118e-02,1.861468e-02,1.819730e-02,& - & 1.779781e-02 /) - extice3(:, 21) = (/ & -! band 21 - & 5.031161e-01,3.144511e-01,2.286942e-01,1.796903e-01,1.479819e-01,& - & 1.257860e-01,1.093803e-01,9.676059e-02,8.675183e-02,7.861971e-02,& - & 7.188168e-02,6.620754e-02,6.136376e-02,5.718050e-02,5.353127e-02,& - & 5.031995e-02,4.747218e-02,4.492952e-02,4.264544e-02,4.058240e-02,& - & 3.870979e-02,3.700242e-02,3.543933e-02,3.400297e-02,3.267854e-02,& - & 3.145345e-02,3.031691e-02,2.925967e-02,2.827370e-02,2.735203e-02,& - & 2.648858e-02,2.567798e-02,2.491555e-02,2.419710e-02,2.351893e-02,& - & 2.287776e-02,2.227063e-02,2.169491e-02,2.114821e-02,2.062840e-02,& - & 2.013354e-02,1.966188e-02,1.921182e-02,1.878191e-02,1.837083e-02,& - & 1.797737e-02 /) - extice3(:, 22) = (/ & -! band 22 - & 4.949453e-01,3.095918e-01,2.253402e-01,1.771964e-01,1.460446e-01,& - & 1.242383e-01,1.081206e-01,9.572235e-02,8.588928e-02,7.789990e-02,& - & 7.128013e-02,6.570559e-02,6.094684e-02,5.683701e-02,5.325183e-02,& - & 5.009688e-02,4.729909e-02,4.480106e-02,4.255708e-02,4.053025e-02,& - & 3.869051e-02,3.701310e-02,3.547745e-02,3.406631e-02,3.276512e-02,& - & 3.156153e-02,3.044494e-02,2.940626e-02,2.843759e-02,2.753211e-02,& - & 2.668381e-02,2.588744e-02,2.513839e-02,2.443255e-02,2.376629e-02,& - & 2.313637e-02,2.253990e-02,2.197428e-02,2.143718e-02,2.092649e-02,& - & 2.044032e-02,1.997694e-02,1.953478e-02,1.911241e-02,1.870855e-02,& - & 1.832199e-02 /) - extice3(:, 23) = (/ & -! band 23 - & 5.052816e-01,3.157665e-01,2.296233e-01,1.803986e-01,1.485473e-01,& - & 1.262514e-01,1.097718e-01,9.709524e-02,8.704139e-02,7.887264e-02,& - & 7.210424e-02,6.640454e-02,6.153894e-02,5.733683e-02,5.367116e-02,& - & 5.044537e-02,4.758477e-02,4.503066e-02,4.273629e-02,4.066395e-02,& - & 3.878291e-02,3.706784e-02,3.549771e-02,3.405488e-02,3.272448e-02,& - & 3.149387e-02,3.035221e-02,2.929020e-02,2.829979e-02,2.737397e-02,& - & 2.650663e-02,2.569238e-02,2.492651e-02,2.420482e-02,2.352361e-02,& - & 2.287954e-02,2.226968e-02,2.169136e-02,2.114220e-02,2.062005e-02,& - & 2.012296e-02,1.964917e-02,1.919709e-02,1.876524e-02,1.835231e-02,& - & 1.795707e-02 /) - extice3(:, 24) = (/ & -! band 24 - & 5.042067e-01,3.151195e-01,2.291708e-01,1.800573e-01,1.482779e-01,& - & 1.260324e-01,1.095900e-01,9.694202e-02,8.691087e-02,7.876056e-02,& - & 7.200745e-02,6.632062e-02,6.146600e-02,5.727338e-02,5.361599e-02,& - & 5.039749e-02,4.754334e-02,4.499500e-02,4.270580e-02,4.063815e-02,& - & 3.876135e-02,3.705016e-02,3.548357e-02,3.404400e-02,3.271661e-02,& - & 3.148877e-02,3.034969e-02,2.929008e-02,2.830191e-02,2.737818e-02,& - & 2.651279e-02,2.570039e-02,2.493624e-02,2.421618e-02,2.353650e-02,& - & 2.289390e-02,2.228541e-02,2.170840e-02,2.116048e-02,2.063950e-02,& - & 2.014354e-02,1.967082e-02,1.921975e-02,1.878888e-02,1.837688e-02,& - & 1.798254e-02 /) - extice3(:, 25) = (/ & -! band 25 - & 5.022507e-01,3.139246e-01,2.283218e-01,1.794059e-01,1.477544e-01,& - & 1.255984e-01,1.092222e-01,9.662516e-02,8.663439e-02,7.851688e-02,& - & 7.179095e-02,6.612700e-02,6.129193e-02,5.711618e-02,5.347351e-02,& - & 5.026796e-02,4.742530e-02,4.488721e-02,4.260724e-02,4.054790e-02,& - & 3.867866e-02,3.697435e-02,3.541407e-02,3.398029e-02,3.265824e-02,& - & 3.143535e-02,3.030085e-02,2.924551e-02,2.826131e-02,2.734130e-02,& - & 2.647939e-02,2.567026e-02,2.490919e-02,2.419203e-02,2.351509e-02,& - & 2.287507e-02,2.226903e-02,2.169434e-02,2.114862e-02,2.062975e-02,& - & 2.013578e-02,1.966496e-02,1.921571e-02,1.878658e-02,1.837623e-02,& - & 1.798348e-02 /) - extice3(:, 26) = (/ & -! band 26 - & 5.068316e-01,3.166869e-01,2.302576e-01,1.808693e-01,1.489122e-01,& - & 1.265423e-01,1.100080e-01,9.728926e-02,8.720201e-02,7.900612e-02,& - & 7.221524e-02,6.649660e-02,6.161484e-02,5.739877e-02,5.372093e-02,& - & 5.048442e-02,4.761431e-02,4.505172e-02,4.274972e-02,4.067050e-02,& - & 3.878321e-02,3.706244e-02,3.548710e-02,3.403948e-02,3.270466e-02,& - & 3.146995e-02,3.032450e-02,2.925897e-02,2.826527e-02,2.733638e-02,& - & 2.646615e-02,2.564920e-02,2.488078e-02,2.415670e-02,2.347322e-02,& - & 2.282702e-02,2.221513e-02,2.163489e-02,2.108390e-02,2.056002e-02,& - & 2.006128e-02,1.958591e-02,1.913232e-02,1.869904e-02,1.828474e-02,& - & 1.788819e-02 /) - extice3(:, 27) = (/ & -! band 27 - & 5.077707e-01,3.172636e-01,2.306695e-01,1.811871e-01,1.491691e-01,& - & 1.267565e-01,1.101907e-01,9.744773e-02,8.734125e-02,7.912973e-02,& - & 7.232591e-02,6.659637e-02,6.170530e-02,5.748120e-02,5.379634e-02,& - & 5.055367e-02,4.767809e-02,4.511061e-02,4.280423e-02,4.072104e-02,& - & 3.883015e-02,3.710611e-02,3.552776e-02,3.407738e-02,3.274002e-02,& - & 3.150296e-02,3.035532e-02,2.928776e-02,2.829216e-02,2.736150e-02,& - & 2.648961e-02,2.567111e-02,2.490123e-02,2.417576e-02,2.349098e-02,& - & 2.284354e-02,2.223049e-02,2.164914e-02,2.109711e-02,2.057222e-02,& - & 2.007253e-02,1.959626e-02,1.914181e-02,1.870770e-02,1.829261e-02,& - & 1.789531e-02 /) - extice3(:, 28) = (/ & -! band 28 - & 5.062281e-01,3.163402e-01,2.300275e-01,1.807060e-01,1.487921e-01,& - & 1.264523e-01,1.099403e-01,9.723879e-02,8.716516e-02,7.898034e-02,& - & 7.219863e-02,6.648771e-02,6.161254e-02,5.740217e-02,5.372929e-02,& - & 5.049716e-02,4.763092e-02,4.507179e-02,4.277290e-02,4.069649e-02,& - & 3.881175e-02,3.709331e-02,3.552008e-02,3.407442e-02,3.274141e-02,& - & 3.150837e-02,3.036447e-02,2.930037e-02,2.830801e-02,2.738037e-02,& - & 2.651132e-02,2.569547e-02,2.492810e-02,2.420499e-02,2.352243e-02,& - & 2.287710e-02,2.226604e-02,2.168658e-02,2.113634e-02,2.061316e-02,& - & 2.011510e-02,1.964038e-02,1.918740e-02,1.875471e-02,1.834096e-02,& - & 1.794495e-02 /) - extice3(:, 29) = (/ & -! band 29 - & 1.338834e-01,1.924912e-01,1.755523e-01,1.534793e-01,1.343937e-01,& - & 1.187883e-01,1.060654e-01,9.559106e-02,8.685880e-02,7.948698e-02,& - & 7.319086e-02,6.775669e-02,6.302215e-02,5.886236e-02,5.517996e-02,& - & 5.189810e-02,4.895539e-02,4.630225e-02,4.389823e-02,4.171002e-02,& - & 3.970998e-02,3.787493e-02,3.618537e-02,3.462471e-02,3.317880e-02,& - & 3.183547e-02,3.058421e-02,2.941590e-02,2.832256e-02,2.729724e-02,& - & 2.633377e-02,2.542675e-02,2.457136e-02,2.376332e-02,2.299882e-02,& - & 2.227443e-02,2.158707e-02,2.093400e-02,2.031270e-02,1.972091e-02,& - & 1.915659e-02,1.861787e-02,1.810304e-02,1.761055e-02,1.713899e-02,& - & 1.668704e-02 /) - -! single-scattering albedo: unitless - ssaice3(:, 16) = (/ & -! band 16 - & 6.749442e-01,6.649947e-01,6.565828e-01,6.489928e-01,6.420046e-01,& - & 6.355231e-01,6.294964e-01,6.238901e-01,6.186783e-01,6.138395e-01,& - & 6.093543e-01,6.052049e-01,6.013742e-01,5.978457e-01,5.946030e-01,& - & 5.916302e-01,5.889115e-01,5.864310e-01,5.841731e-01,5.821221e-01,& - & 5.802624e-01,5.785785e-01,5.770549e-01,5.756759e-01,5.744262e-01,& - & 5.732901e-01,5.722524e-01,5.712974e-01,5.704097e-01,5.695739e-01,& - & 5.687747e-01,5.679964e-01,5.672238e-01,5.664415e-01,5.656340e-01,& - & 5.647860e-01,5.638821e-01,5.629070e-01,5.618452e-01,5.606815e-01,& - & 5.594006e-01,5.579870e-01,5.564255e-01,5.547008e-01,5.527976e-01,& - & 5.507005e-01 /) - ssaice3(:, 17) = (/ & -! band 17 - & 7.628550e-01,7.567297e-01,7.508463e-01,7.451972e-01,7.397745e-01,& - & 7.345705e-01,7.295775e-01,7.247881e-01,7.201945e-01,7.157894e-01,& - & 7.115652e-01,7.075145e-01,7.036300e-01,6.999044e-01,6.963304e-01,& - & 6.929007e-01,6.896083e-01,6.864460e-01,6.834067e-01,6.804833e-01,& - & 6.776690e-01,6.749567e-01,6.723397e-01,6.698109e-01,6.673637e-01,& - & 6.649913e-01,6.626870e-01,6.604441e-01,6.582561e-01,6.561163e-01,& - & 6.540182e-01,6.519554e-01,6.499215e-01,6.479099e-01,6.459145e-01,& - & 6.439289e-01,6.419468e-01,6.399621e-01,6.379686e-01,6.359601e-01,& - & 6.339306e-01,6.318740e-01,6.297845e-01,6.276559e-01,6.254825e-01,& - & 6.232583e-01 /) - ssaice3(:, 18) = (/ & -! band 18 - & 9.924147e-01,9.882792e-01,9.842257e-01,9.802522e-01,9.763566e-01,& - & 9.725367e-01,9.687905e-01,9.651157e-01,9.615104e-01,9.579725e-01,& - & 9.544997e-01,9.510901e-01,9.477416e-01,9.444520e-01,9.412194e-01,& - & 9.380415e-01,9.349165e-01,9.318421e-01,9.288164e-01,9.258373e-01,& - & 9.229027e-01,9.200106e-01,9.171589e-01,9.143457e-01,9.115688e-01,& - & 9.088263e-01,9.061161e-01,9.034362e-01,9.007846e-01,8.981592e-01,& - & 8.955581e-01,8.929792e-01,8.904206e-01,8.878803e-01,8.853562e-01,& - & 8.828464e-01,8.803488e-01,8.778616e-01,8.753827e-01,8.729102e-01,& - & 8.704421e-01,8.679764e-01,8.655112e-01,8.630445e-01,8.605744e-01,& - & 8.580989e-01 /) - ssaice3(:, 19) = (/ & -! band 19 - & 9.629413e-01,9.517182e-01,9.409209e-01,9.305366e-01,9.205529e-01,& - & 9.109569e-01,9.017362e-01,8.928780e-01,8.843699e-01,8.761992e-01,& - & 8.683536e-01,8.608204e-01,8.535873e-01,8.466417e-01,8.399712e-01,& - & 8.335635e-01,8.274062e-01,8.214868e-01,8.157932e-01,8.103129e-01,& - & 8.050336e-01,7.999432e-01,7.950294e-01,7.902798e-01,7.856825e-01,& - & 7.812250e-01,7.768954e-01,7.726815e-01,7.685711e-01,7.645522e-01,& - & 7.606126e-01,7.567404e-01,7.529234e-01,7.491498e-01,7.454074e-01,& - & 7.416844e-01,7.379688e-01,7.342485e-01,7.305118e-01,7.267468e-01,& - & 7.229415e-01,7.190841e-01,7.151628e-01,7.111657e-01,7.070811e-01,& - & 7.028972e-01 /) - ssaice3(:, 20) = (/ & -! band 20 - & 9.942270e-01,9.909206e-01,9.876775e-01,9.844960e-01,9.813746e-01,& - & 9.783114e-01,9.753049e-01,9.723535e-01,9.694553e-01,9.666088e-01,& - & 9.638123e-01,9.610641e-01,9.583626e-01,9.557060e-01,9.530928e-01,& - & 9.505211e-01,9.479895e-01,9.454961e-01,9.430393e-01,9.406174e-01,& - & 9.382288e-01,9.358717e-01,9.335446e-01,9.312456e-01,9.289731e-01,& - & 9.267255e-01,9.245010e-01,9.222980e-01,9.201147e-01,9.179496e-01,& - & 9.158008e-01,9.136667e-01,9.115457e-01,9.094359e-01,9.073358e-01,& - & 9.052436e-01,9.031577e-01,9.010763e-01,8.989977e-01,8.969203e-01,& - & 8.948423e-01,8.927620e-01,8.906778e-01,8.885879e-01,8.864907e-01,& - & 8.843843e-01 /) - ssaice3(:, 21) = (/ & -! band 21 - & 9.934014e-01,9.899331e-01,9.865537e-01,9.832610e-01,9.800523e-01,& - & 9.769254e-01,9.738777e-01,9.709069e-01,9.680106e-01,9.651862e-01,& - & 9.624315e-01,9.597439e-01,9.571212e-01,9.545608e-01,9.520605e-01,& - & 9.496177e-01,9.472301e-01,9.448954e-01,9.426111e-01,9.403749e-01,& - & 9.381843e-01,9.360370e-01,9.339307e-01,9.318629e-01,9.298313e-01,& - & 9.278336e-01,9.258673e-01,9.239302e-01,9.220198e-01,9.201338e-01,& - & 9.182700e-01,9.164258e-01,9.145991e-01,9.127874e-01,9.109884e-01,& - & 9.091999e-01,9.074194e-01,9.056447e-01,9.038735e-01,9.021033e-01,& - & 9.003320e-01,8.985572e-01,8.967766e-01,8.949879e-01,8.931888e-01,& - & 8.913770e-01 /) - ssaice3(:, 22) = (/ & -! band 22 - & 9.994833e-01,9.992055e-01,9.989278e-01,9.986500e-01,9.983724e-01,& - & 9.980947e-01,9.978172e-01,9.975397e-01,9.972623e-01,9.969849e-01,& - & 9.967077e-01,9.964305e-01,9.961535e-01,9.958765e-01,9.955997e-01,& - & 9.953230e-01,9.950464e-01,9.947699e-01,9.944936e-01,9.942174e-01,& - & 9.939414e-01,9.936656e-01,9.933899e-01,9.931144e-01,9.928390e-01,& - & 9.925639e-01,9.922889e-01,9.920141e-01,9.917396e-01,9.914652e-01,& - & 9.911911e-01,9.909171e-01,9.906434e-01,9.903700e-01,9.900967e-01,& - & 9.898237e-01,9.895510e-01,9.892784e-01,9.890062e-01,9.887342e-01,& - & 9.884625e-01,9.881911e-01,9.879199e-01,9.876490e-01,9.873784e-01,& - & 9.871081e-01 /) - ssaice3(:, 23) = (/ & -! band 23 - & 9.999343e-01,9.998917e-01,9.998492e-01,9.998067e-01,9.997642e-01,& - & 9.997218e-01,9.996795e-01,9.996372e-01,9.995949e-01,9.995528e-01,& - & 9.995106e-01,9.994686e-01,9.994265e-01,9.993845e-01,9.993426e-01,& - & 9.993007e-01,9.992589e-01,9.992171e-01,9.991754e-01,9.991337e-01,& - & 9.990921e-01,9.990505e-01,9.990089e-01,9.989674e-01,9.989260e-01,& - & 9.988846e-01,9.988432e-01,9.988019e-01,9.987606e-01,9.987194e-01,& - & 9.986782e-01,9.986370e-01,9.985959e-01,9.985549e-01,9.985139e-01,& - & 9.984729e-01,9.984319e-01,9.983910e-01,9.983502e-01,9.983094e-01,& - & 9.982686e-01,9.982279e-01,9.981872e-01,9.981465e-01,9.981059e-01,& - & 9.980653e-01 /) - ssaice3(:, 24) = (/ & -! band 24 - & 9.999978e-01,9.999965e-01,9.999952e-01,9.999939e-01,9.999926e-01,& - & 9.999913e-01,9.999900e-01,9.999887e-01,9.999873e-01,9.999860e-01,& - & 9.999847e-01,9.999834e-01,9.999821e-01,9.999808e-01,9.999795e-01,& - & 9.999782e-01,9.999769e-01,9.999756e-01,9.999743e-01,9.999730e-01,& - & 9.999717e-01,9.999704e-01,9.999691e-01,9.999678e-01,9.999665e-01,& - & 9.999652e-01,9.999639e-01,9.999626e-01,9.999613e-01,9.999600e-01,& - & 9.999587e-01,9.999574e-01,9.999561e-01,9.999548e-01,9.999535e-01,& - & 9.999522e-01,9.999509e-01,9.999496e-01,9.999483e-01,9.999470e-01,& - & 9.999457e-01,9.999444e-01,9.999431e-01,9.999418e-01,9.999405e-01,& - & 9.999392e-01 /) - ssaice3(:, 25) = (/ & -! band 25 - & 9.999994e-01,9.999993e-01,9.999991e-01,9.999990e-01,9.999989e-01,& - & 9.999987e-01,9.999986e-01,9.999984e-01,9.999983e-01,9.999982e-01,& - & 9.999980e-01,9.999979e-01,9.999977e-01,9.999976e-01,9.999975e-01,& - & 9.999973e-01,9.999972e-01,9.999970e-01,9.999969e-01,9.999967e-01,& - & 9.999966e-01,9.999965e-01,9.999963e-01,9.999962e-01,9.999960e-01,& - & 9.999959e-01,9.999957e-01,9.999956e-01,9.999954e-01,9.999953e-01,& - & 9.999952e-01,9.999950e-01,9.999949e-01,9.999947e-01,9.999946e-01,& - & 9.999944e-01,9.999943e-01,9.999941e-01,9.999940e-01,9.999939e-01,& - & 9.999937e-01,9.999936e-01,9.999934e-01,9.999933e-01,9.999931e-01,& - & 9.999930e-01 /) - ssaice3(:, 26) = (/ & -! band 26 - & 9.999997e-01,9.999995e-01,9.999992e-01,9.999990e-01,9.999987e-01,& - & 9.999985e-01,9.999983e-01,9.999980e-01,9.999978e-01,9.999976e-01,& - & 9.999973e-01,9.999971e-01,9.999969e-01,9.999967e-01,9.999965e-01,& - & 9.999963e-01,9.999960e-01,9.999958e-01,9.999956e-01,9.999954e-01,& - & 9.999952e-01,9.999950e-01,9.999948e-01,9.999946e-01,9.999944e-01,& - & 9.999942e-01,9.999939e-01,9.999937e-01,9.999935e-01,9.999933e-01,& - & 9.999931e-01,9.999929e-01,9.999927e-01,9.999925e-01,9.999923e-01,& - & 9.999920e-01,9.999918e-01,9.999916e-01,9.999914e-01,9.999911e-01,& - & 9.999909e-01,9.999907e-01,9.999905e-01,9.999902e-01,9.999900e-01,& - & 9.999897e-01 /) - ssaice3(:, 27) = (/ & -! band 27 - & 9.999991e-01,9.999985e-01,9.999980e-01,9.999974e-01,9.999968e-01,& - & 9.999963e-01,9.999957e-01,9.999951e-01,9.999946e-01,9.999940e-01,& - & 9.999934e-01,9.999929e-01,9.999923e-01,9.999918e-01,9.999912e-01,& - & 9.999907e-01,9.999901e-01,9.999896e-01,9.999891e-01,9.999885e-01,& - & 9.999880e-01,9.999874e-01,9.999869e-01,9.999863e-01,9.999858e-01,& - & 9.999853e-01,9.999847e-01,9.999842e-01,9.999836e-01,9.999831e-01,& - & 9.999826e-01,9.999820e-01,9.999815e-01,9.999809e-01,9.999804e-01,& - & 9.999798e-01,9.999793e-01,9.999787e-01,9.999782e-01,9.999776e-01,& - & 9.999770e-01,9.999765e-01,9.999759e-01,9.999754e-01,9.999748e-01,& - & 9.999742e-01 /) - ssaice3(:, 28) = (/ & -! band 28 - & 9.999975e-01,9.999961e-01,9.999946e-01,9.999931e-01,9.999917e-01,& - & 9.999903e-01,9.999888e-01,9.999874e-01,9.999859e-01,9.999845e-01,& - & 9.999831e-01,9.999816e-01,9.999802e-01,9.999788e-01,9.999774e-01,& - & 9.999759e-01,9.999745e-01,9.999731e-01,9.999717e-01,9.999702e-01,& - & 9.999688e-01,9.999674e-01,9.999660e-01,9.999646e-01,9.999631e-01,& - & 9.999617e-01,9.999603e-01,9.999589e-01,9.999574e-01,9.999560e-01,& - & 9.999546e-01,9.999532e-01,9.999517e-01,9.999503e-01,9.999489e-01,& - & 9.999474e-01,9.999460e-01,9.999446e-01,9.999431e-01,9.999417e-01,& - & 9.999403e-01,9.999388e-01,9.999374e-01,9.999359e-01,9.999345e-01,& - & 9.999330e-01 /) - ssaice3(:, 29) = (/ & -! band 29 - & 4.526500e-01,5.287890e-01,5.410487e-01,5.459865e-01,5.485149e-01,& - & 5.498914e-01,5.505895e-01,5.508310e-01,5.507364e-01,5.503793e-01,& - & 5.498090e-01,5.490612e-01,5.481637e-01,5.471395e-01,5.460083e-01,& - & 5.447878e-01,5.434946e-01,5.421442e-01,5.407514e-01,5.393309e-01,& - & 5.378970e-01,5.364641e-01,5.350464e-01,5.336582e-01,5.323140e-01,& - & 5.310283e-01,5.298158e-01,5.286914e-01,5.276704e-01,5.267680e-01,& - & 5.260000e-01,5.253823e-01,5.249311e-01,5.246629e-01,5.245946e-01,& - & 5.247434e-01,5.251268e-01,5.257626e-01,5.266693e-01,5.278653e-01,& - & 5.293698e-01,5.312022e-01,5.333823e-01,5.359305e-01,5.388676e-01,& - & 5.422146e-01 /) - -! asymmetry factor: unitless - asyice3(:, 16) = (/ & -! band 16 - & 8.340752e-01,8.435170e-01,8.517487e-01,8.592064e-01,8.660387e-01,& - & 8.723204e-01,8.780997e-01,8.834137e-01,8.882934e-01,8.927662e-01,& - & 8.968577e-01,9.005914e-01,9.039899e-01,9.070745e-01,9.098659e-01,& - & 9.123836e-01,9.146466e-01,9.166734e-01,9.184817e-01,9.200886e-01,& - & 9.215109e-01,9.227648e-01,9.238661e-01,9.248304e-01,9.256727e-01,& - & 9.264078e-01,9.270505e-01,9.276150e-01,9.281156e-01,9.285662e-01,& - & 9.289806e-01,9.293726e-01,9.297557e-01,9.301435e-01,9.305491e-01,& - & 9.309859e-01,9.314671e-01,9.320055e-01,9.326140e-01,9.333053e-01,& - & 9.340919e-01,9.349861e-01,9.360000e-01,9.371451e-01,9.384329e-01,& - & 9.398744e-01 /) - asyice3(:, 17) = (/ & -! band 17 - & 8.728160e-01,8.777333e-01,8.823754e-01,8.867535e-01,8.908785e-01,& - & 8.947611e-01,8.984118e-01,9.018408e-01,9.050582e-01,9.080739e-01,& - & 9.108976e-01,9.135388e-01,9.160068e-01,9.183106e-01,9.204595e-01,& - & 9.224620e-01,9.243271e-01,9.260632e-01,9.276788e-01,9.291822e-01,& - & 9.305817e-01,9.318853e-01,9.331012e-01,9.342372e-01,9.353013e-01,& - & 9.363013e-01,9.372450e-01,9.381400e-01,9.389939e-01,9.398145e-01,& - & 9.406092e-01,9.413856e-01,9.421511e-01,9.429131e-01,9.436790e-01,& - & 9.444561e-01,9.452517e-01,9.460729e-01,9.469270e-01,9.478209e-01,& - & 9.487617e-01,9.497562e-01,9.508112e-01,9.519335e-01,9.531294e-01,& - & 9.544055e-01 /) - asyice3(:, 18) = (/ & -! band 18 - & 7.897566e-01,7.948704e-01,7.998041e-01,8.045623e-01,8.091495e-01,& - & 8.135702e-01,8.178290e-01,8.219305e-01,8.258790e-01,8.296792e-01,& - & 8.333355e-01,8.368524e-01,8.402343e-01,8.434856e-01,8.466108e-01,& - & 8.496143e-01,8.525004e-01,8.552737e-01,8.579384e-01,8.604990e-01,& - & 8.629597e-01,8.653250e-01,8.675992e-01,8.697867e-01,8.718916e-01,& - & 8.739185e-01,8.758715e-01,8.777551e-01,8.795734e-01,8.813308e-01,& - & 8.830315e-01,8.846799e-01,8.862802e-01,8.878366e-01,8.893534e-01,& - & 8.908350e-01,8.922854e-01,8.937090e-01,8.951099e-01,8.964925e-01,& - & 8.978609e-01,8.992192e-01,9.005718e-01,9.019229e-01,9.032765e-01,& - & 9.046369e-01 /) - asyice3(:, 19) = (/ & -! band 19 - & 7.812615e-01,7.887764e-01,7.959664e-01,8.028413e-01,8.094109e-01,& - & 8.156849e-01,8.216730e-01,8.273846e-01,8.328294e-01,8.380166e-01,& - & 8.429556e-01,8.476556e-01,8.521258e-01,8.563753e-01,8.604131e-01,& - & 8.642481e-01,8.678893e-01,8.713455e-01,8.746254e-01,8.777378e-01,& - & 8.806914e-01,8.834948e-01,8.861566e-01,8.886854e-01,8.910897e-01,& - & 8.933779e-01,8.955586e-01,8.976402e-01,8.996311e-01,9.015398e-01,& - & 9.033745e-01,9.051436e-01,9.068555e-01,9.085185e-01,9.101410e-01,& - & 9.117311e-01,9.132972e-01,9.148476e-01,9.163905e-01,9.179340e-01,& - & 9.194864e-01,9.210559e-01,9.226505e-01,9.242784e-01,9.259476e-01,& - & 9.276661e-01 /) - asyice3(:, 20) = (/ & -! band 20 - & 7.640720e-01,7.691119e-01,7.739941e-01,7.787222e-01,7.832998e-01,& - & 7.877304e-01,7.920177e-01,7.961652e-01,8.001765e-01,8.040551e-01,& - & 8.078044e-01,8.114280e-01,8.149294e-01,8.183119e-01,8.215791e-01,& - & 8.247344e-01,8.277812e-01,8.307229e-01,8.335629e-01,8.363046e-01,& - & 8.389514e-01,8.415067e-01,8.439738e-01,8.463560e-01,8.486568e-01,& - & 8.508795e-01,8.530274e-01,8.551039e-01,8.571122e-01,8.590558e-01,& - & 8.609378e-01,8.627618e-01,8.645309e-01,8.662485e-01,8.679178e-01,& - & 8.695423e-01,8.711251e-01,8.726697e-01,8.741792e-01,8.756571e-01,& - & 8.771065e-01,8.785307e-01,8.799331e-01,8.813169e-01,8.826854e-01,& - & 8.840419e-01 /) - asyice3(:, 21) = (/ & -! band 21 - & 7.602598e-01,7.651572e-01,7.699014e-01,7.744962e-01,7.789452e-01,& - & 7.832522e-01,7.874205e-01,7.914538e-01,7.953555e-01,7.991290e-01,& - & 8.027777e-01,8.063049e-01,8.097140e-01,8.130081e-01,8.161906e-01,& - & 8.192645e-01,8.222331e-01,8.250993e-01,8.278664e-01,8.305374e-01,& - & 8.331153e-01,8.356030e-01,8.380037e-01,8.403201e-01,8.425553e-01,& - & 8.447121e-01,8.467935e-01,8.488022e-01,8.507412e-01,8.526132e-01,& - & 8.544210e-01,8.561675e-01,8.578554e-01,8.594875e-01,8.610665e-01,& - & 8.625951e-01,8.640760e-01,8.655119e-01,8.669055e-01,8.682594e-01,& - & 8.695763e-01,8.708587e-01,8.721094e-01,8.733308e-01,8.745255e-01,& - & 8.756961e-01 /) - asyice3(:, 22) = (/ & -! band 22 - & 7.568957e-01,7.606995e-01,7.644072e-01,7.680204e-01,7.715402e-01,& - & 7.749682e-01,7.783057e-01,7.815541e-01,7.847148e-01,7.877892e-01,& - & 7.907786e-01,7.936846e-01,7.965084e-01,7.992515e-01,8.019153e-01,& - & 8.045011e-01,8.070103e-01,8.094444e-01,8.118048e-01,8.140927e-01,& - & 8.163097e-01,8.184571e-01,8.205364e-01,8.225488e-01,8.244958e-01,& - & 8.263789e-01,8.281993e-01,8.299586e-01,8.316580e-01,8.332991e-01,& - & 8.348831e-01,8.364115e-01,8.378857e-01,8.393071e-01,8.406770e-01,& - & 8.419969e-01,8.432682e-01,8.444923e-01,8.456706e-01,8.468044e-01,& - & 8.478952e-01,8.489444e-01,8.499533e-01,8.509234e-01,8.518561e-01,& - & 8.527528e-01 /) - asyice3(:, 23) = (/ & -! band 23 - & 7.575066e-01,7.606912e-01,7.638236e-01,7.669035e-01,7.699306e-01,& - & 7.729046e-01,7.758254e-01,7.786926e-01,7.815060e-01,7.842654e-01,& - & 7.869705e-01,7.896211e-01,7.922168e-01,7.947574e-01,7.972428e-01,& - & 7.996726e-01,8.020466e-01,8.043646e-01,8.066262e-01,8.088313e-01,& - & 8.109796e-01,8.130709e-01,8.151049e-01,8.170814e-01,8.190001e-01,& - & 8.208608e-01,8.226632e-01,8.244071e-01,8.260924e-01,8.277186e-01,& - & 8.292856e-01,8.307932e-01,8.322411e-01,8.336291e-01,8.349570e-01,& - & 8.362244e-01,8.374312e-01,8.385772e-01,8.396621e-01,8.406856e-01,& - & 8.416476e-01,8.425479e-01,8.433861e-01,8.441620e-01,8.448755e-01,& - & 8.455263e-01 /) - asyice3(:, 24) = (/ & -! band 24 - & 7.568829e-01,7.597947e-01,7.626745e-01,7.655212e-01,7.683337e-01,& - & 7.711111e-01,7.738523e-01,7.765565e-01,7.792225e-01,7.818494e-01,& - & 7.844362e-01,7.869819e-01,7.894854e-01,7.919459e-01,7.943623e-01,& - & 7.967337e-01,7.990590e-01,8.013373e-01,8.035676e-01,8.057488e-01,& - & 8.078802e-01,8.099605e-01,8.119890e-01,8.139645e-01,8.158862e-01,& - & 8.177530e-01,8.195641e-01,8.213183e-01,8.230149e-01,8.246527e-01,& - & 8.262308e-01,8.277483e-01,8.292042e-01,8.305976e-01,8.319275e-01,& - & 8.331929e-01,8.343929e-01,8.355265e-01,8.365928e-01,8.375909e-01,& - & 8.385197e-01,8.393784e-01,8.401659e-01,8.408815e-01,8.415240e-01,& - & 8.420926e-01 /) - asyice3(:, 25) = (/ & -! band 25 - & 7.548616e-01,7.575454e-01,7.602153e-01,7.628696e-01,7.655067e-01,& - & 7.681249e-01,7.707225e-01,7.732978e-01,7.758492e-01,7.783750e-01,& - & 7.808735e-01,7.833430e-01,7.857819e-01,7.881886e-01,7.905612e-01,& - & 7.928983e-01,7.951980e-01,7.974588e-01,7.996789e-01,8.018567e-01,& - & 8.039905e-01,8.060787e-01,8.081196e-01,8.101115e-01,8.120527e-01,& - & 8.139416e-01,8.157764e-01,8.175557e-01,8.192776e-01,8.209405e-01,& - & 8.225427e-01,8.240826e-01,8.255585e-01,8.269688e-01,8.283117e-01,& - & 8.295856e-01,8.307889e-01,8.319198e-01,8.329767e-01,8.339579e-01,& - & 8.348619e-01,8.356868e-01,8.364311e-01,8.370930e-01,8.376710e-01,& - & 8.381633e-01 /) - asyice3(:, 26) = (/ & -! band 26 - & 7.491854e-01,7.518523e-01,7.545089e-01,7.571534e-01,7.597839e-01,& - & 7.623987e-01,7.649959e-01,7.675737e-01,7.701303e-01,7.726639e-01,& - & 7.751727e-01,7.776548e-01,7.801084e-01,7.825318e-01,7.849230e-01,& - & 7.872804e-01,7.896020e-01,7.918862e-01,7.941309e-01,7.963345e-01,& - & 7.984951e-01,8.006109e-01,8.026802e-01,8.047009e-01,8.066715e-01,& - & 8.085900e-01,8.104546e-01,8.122636e-01,8.140150e-01,8.157072e-01,& - & 8.173382e-01,8.189063e-01,8.204096e-01,8.218464e-01,8.232148e-01,& - & 8.245130e-01,8.257391e-01,8.268915e-01,8.279682e-01,8.289675e-01,& - & 8.298875e-01,8.307264e-01,8.314824e-01,8.321537e-01,8.327385e-01,& - & 8.332350e-01 /) - asyice3(:, 27) = (/ & -! band 27 - & 7.397086e-01,7.424069e-01,7.450955e-01,7.477725e-01,7.504362e-01,& - & 7.530846e-01,7.557159e-01,7.583283e-01,7.609199e-01,7.634888e-01,& - & 7.660332e-01,7.685512e-01,7.710411e-01,7.735009e-01,7.759288e-01,& - & 7.783229e-01,7.806814e-01,7.830024e-01,7.852841e-01,7.875246e-01,& - & 7.897221e-01,7.918748e-01,7.939807e-01,7.960380e-01,7.980449e-01,& - & 7.999995e-01,8.019000e-01,8.037445e-01,8.055311e-01,8.072581e-01,& - & 8.089235e-01,8.105255e-01,8.120623e-01,8.135319e-01,8.149326e-01,& - & 8.162626e-01,8.175198e-01,8.187025e-01,8.198089e-01,8.208371e-01,& - & 8.217852e-01,8.226514e-01,8.234338e-01,8.241306e-01,8.247399e-01,& - & 8.252599e-01 /) - asyice3(:, 28) = (/ & -! band 28 - & 7.224533e-01,7.251681e-01,7.278728e-01,7.305654e-01,7.332444e-01,& - & 7.359078e-01,7.385539e-01,7.411808e-01,7.437869e-01,7.463702e-01,& - & 7.489291e-01,7.514616e-01,7.539661e-01,7.564408e-01,7.588837e-01,& - & 7.612933e-01,7.636676e-01,7.660049e-01,7.683034e-01,7.705612e-01,& - & 7.727767e-01,7.749480e-01,7.770733e-01,7.791509e-01,7.811789e-01,& - & 7.831556e-01,7.850791e-01,7.869478e-01,7.887597e-01,7.905131e-01,& - & 7.922062e-01,7.938372e-01,7.954044e-01,7.969059e-01,7.983399e-01,& - & 7.997047e-01,8.009985e-01,8.022195e-01,8.033658e-01,8.044357e-01,& - & 8.054275e-01,8.063392e-01,8.071692e-01,8.079157e-01,8.085768e-01,& - & 8.091507e-01 /) - asyice3(:, 29) = (/ & -! band 29 - & 8.850026e-01,9.005489e-01,9.069242e-01,9.121799e-01,9.168987e-01,& - & 9.212259e-01,9.252176e-01,9.289028e-01,9.323000e-01,9.354235e-01,& - & 9.382858e-01,9.408985e-01,9.432734e-01,9.454218e-01,9.473557e-01,& - & 9.490871e-01,9.506282e-01,9.519917e-01,9.531904e-01,9.542374e-01,& - & 9.551461e-01,9.559298e-01,9.566023e-01,9.571775e-01,9.576692e-01,& - & 9.580916e-01,9.584589e-01,9.587853e-01,9.590851e-01,9.593729e-01,& - & 9.596632e-01,9.599705e-01,9.603096e-01,9.606954e-01,9.611427e-01,& - & 9.616667e-01,9.622826e-01,9.630060e-01,9.638524e-01,9.648379e-01,& - & 9.659788e-01,9.672916e-01,9.687933e-01,9.705014e-01,9.724337e-01,& - & 9.746084e-01 /) - -! fdelta: unitless - fdlice3(:, 16) = (/ & -! band 16 - & 4.959277e-02,4.685292e-02,4.426104e-02,4.181231e-02,3.950191e-02,& - & 3.732500e-02,3.527675e-02,3.335235e-02,3.154697e-02,2.985578e-02,& - & 2.827395e-02,2.679666e-02,2.541909e-02,2.413640e-02,2.294378e-02,& - & 2.183639e-02,2.080940e-02,1.985801e-02,1.897736e-02,1.816265e-02,& - & 1.740905e-02,1.671172e-02,1.606585e-02,1.546661e-02,1.490917e-02,& - & 1.438870e-02,1.390038e-02,1.343939e-02,1.300089e-02,1.258006e-02,& - & 1.217208e-02,1.177212e-02,1.137536e-02,1.097696e-02,1.057210e-02,& - & 1.015596e-02,9.723704e-03,9.270516e-03,8.791565e-03,8.282026e-03,& - & 7.737072e-03,7.151879e-03,6.521619e-03,5.841467e-03,5.106597e-03,& - & 4.312183e-03 /) - fdlice3(:, 17) = (/ & -! band 17 - & 5.071224e-02,5.000217e-02,4.933872e-02,4.871992e-02,4.814380e-02,& - & 4.760839e-02,4.711170e-02,4.665177e-02,4.622662e-02,4.583426e-02,& - & 4.547274e-02,4.514007e-02,4.483428e-02,4.455340e-02,4.429544e-02,& - & 4.405844e-02,4.384041e-02,4.363939e-02,4.345340e-02,4.328047e-02,& - & 4.311861e-02,4.296586e-02,4.282024e-02,4.267977e-02,4.254248e-02,& - & 4.240640e-02,4.226955e-02,4.212995e-02,4.198564e-02,4.183462e-02,& - & 4.167494e-02,4.150462e-02,4.132167e-02,4.112413e-02,4.091003e-02,& - & 4.067737e-02,4.042420e-02,4.014854e-02,3.984840e-02,3.952183e-02,& - & 3.916683e-02,3.878144e-02,3.836368e-02,3.791158e-02,3.742316e-02,& - & 3.689645e-02 /) - fdlice3(:, 18) = (/ & -! band 18 - & 1.062938e-01,1.065234e-01,1.067822e-01,1.070682e-01,1.073793e-01,& - & 1.077137e-01,1.080693e-01,1.084442e-01,1.088364e-01,1.092439e-01,& - & 1.096647e-01,1.100970e-01,1.105387e-01,1.109878e-01,1.114423e-01,& - & 1.119004e-01,1.123599e-01,1.128190e-01,1.132757e-01,1.137279e-01,& - & 1.141738e-01,1.146113e-01,1.150385e-01,1.154534e-01,1.158540e-01,& - & 1.162383e-01,1.166045e-01,1.169504e-01,1.172741e-01,1.175738e-01,& - & 1.178472e-01,1.180926e-01,1.183080e-01,1.184913e-01,1.186405e-01,& - & 1.187538e-01,1.188291e-01,1.188645e-01,1.188580e-01,1.188076e-01,& - & 1.187113e-01,1.185672e-01,1.183733e-01,1.181277e-01,1.178282e-01,& - & 1.174731e-01 /) - fdlice3(:, 19) = (/ & -! band 19 - & 1.076195e-01,1.065195e-01,1.054696e-01,1.044673e-01,1.035099e-01,& - & 1.025951e-01,1.017203e-01,1.008831e-01,1.000808e-01,9.931116e-02,& - & 9.857151e-02,9.785939e-02,9.717230e-02,9.650774e-02,9.586322e-02,& - & 9.523623e-02,9.462427e-02,9.402484e-02,9.343544e-02,9.285358e-02,& - & 9.227675e-02,9.170245e-02,9.112818e-02,9.055144e-02,8.996974e-02,& - & 8.938056e-02,8.878142e-02,8.816981e-02,8.754323e-02,8.689919e-02,& - & 8.623517e-02,8.554869e-02,8.483724e-02,8.409832e-02,8.332943e-02,& - & 8.252807e-02,8.169175e-02,8.081795e-02,7.990419e-02,7.894796e-02,& - & 7.794676e-02,7.689809e-02,7.579945e-02,7.464834e-02,7.344227e-02,& - & 7.217872e-02 /) - fdlice3(:, 20) = (/ & -! band 20 - & 1.119014e-01,1.122706e-01,1.126690e-01,1.130947e-01,1.135456e-01,& - & 1.140199e-01,1.145154e-01,1.150302e-01,1.155623e-01,1.161096e-01,& - & 1.166703e-01,1.172422e-01,1.178233e-01,1.184118e-01,1.190055e-01,& - & 1.196025e-01,1.202008e-01,1.207983e-01,1.213931e-01,1.219832e-01,& - & 1.225665e-01,1.231411e-01,1.237050e-01,1.242561e-01,1.247926e-01,& - & 1.253122e-01,1.258132e-01,1.262934e-01,1.267509e-01,1.271836e-01,& - & 1.275896e-01,1.279669e-01,1.283134e-01,1.286272e-01,1.289063e-01,& - & 1.291486e-01,1.293522e-01,1.295150e-01,1.296351e-01,1.297104e-01,& - & 1.297390e-01,1.297189e-01,1.296480e-01,1.295244e-01,1.293460e-01,& - & 1.291109e-01 /) - fdlice3(:, 21) = (/ & -! band 21 - & 1.133298e-01,1.136777e-01,1.140556e-01,1.144615e-01,1.148934e-01,& - & 1.153492e-01,1.158269e-01,1.163243e-01,1.168396e-01,1.173706e-01,& - & 1.179152e-01,1.184715e-01,1.190374e-01,1.196108e-01,1.201897e-01,& - & 1.207720e-01,1.213558e-01,1.219389e-01,1.225194e-01,1.230951e-01,& - & 1.236640e-01,1.242241e-01,1.247733e-01,1.253096e-01,1.258309e-01,& - & 1.263352e-01,1.268205e-01,1.272847e-01,1.277257e-01,1.281415e-01,& - & 1.285300e-01,1.288893e-01,1.292173e-01,1.295118e-01,1.297710e-01,& - & 1.299927e-01,1.301748e-01,1.303154e-01,1.304124e-01,1.304637e-01,& - & 1.304673e-01,1.304212e-01,1.303233e-01,1.301715e-01,1.299638e-01,& - & 1.296983e-01 /) - fdlice3(:, 22) = (/ & -! band 22 - & 1.145360e-01,1.153256e-01,1.161453e-01,1.169929e-01,1.178666e-01,& - & 1.187641e-01,1.196835e-01,1.206227e-01,1.215796e-01,1.225522e-01,& - & 1.235383e-01,1.245361e-01,1.255433e-01,1.265579e-01,1.275779e-01,& - & 1.286011e-01,1.296257e-01,1.306494e-01,1.316703e-01,1.326862e-01,& - & 1.336951e-01,1.346950e-01,1.356838e-01,1.366594e-01,1.376198e-01,& - & 1.385629e-01,1.394866e-01,1.403889e-01,1.412678e-01,1.421212e-01,& - & 1.429469e-01,1.437430e-01,1.445074e-01,1.452381e-01,1.459329e-01,& - & 1.465899e-01,1.472069e-01,1.477819e-01,1.483128e-01,1.487976e-01,& - & 1.492343e-01,1.496207e-01,1.499548e-01,1.502346e-01,1.504579e-01,& - & 1.506227e-01 /) - fdlice3(:, 23) = (/ & -! band 23 - & 1.153263e-01,1.161445e-01,1.169932e-01,1.178703e-01,1.187738e-01,& - & 1.197016e-01,1.206516e-01,1.216217e-01,1.226099e-01,1.236141e-01,& - & 1.246322e-01,1.256621e-01,1.267017e-01,1.277491e-01,1.288020e-01,& - & 1.298584e-01,1.309163e-01,1.319736e-01,1.330281e-01,1.340778e-01,& - & 1.351207e-01,1.361546e-01,1.371775e-01,1.381873e-01,1.391820e-01,& - & 1.401593e-01,1.411174e-01,1.420540e-01,1.429671e-01,1.438547e-01,& - & 1.447146e-01,1.455449e-01,1.463433e-01,1.471078e-01,1.478364e-01,& - & 1.485270e-01,1.491774e-01,1.497857e-01,1.503497e-01,1.508674e-01,& - & 1.513367e-01,1.517554e-01,1.521216e-01,1.524332e-01,1.526880e-01,& - & 1.528840e-01 /) - fdlice3(:, 24) = (/ & -! band 24 - & 1.160842e-01,1.169118e-01,1.177697e-01,1.186556e-01,1.195676e-01,& - & 1.205036e-01,1.214616e-01,1.224394e-01,1.234349e-01,1.244463e-01,& - & 1.254712e-01,1.265078e-01,1.275539e-01,1.286075e-01,1.296664e-01,& - & 1.307287e-01,1.317923e-01,1.328550e-01,1.339149e-01,1.349699e-01,& - & 1.360179e-01,1.370567e-01,1.380845e-01,1.390991e-01,1.400984e-01,& - & 1.410803e-01,1.420429e-01,1.429840e-01,1.439016e-01,1.447936e-01,& - & 1.456579e-01,1.464925e-01,1.472953e-01,1.480642e-01,1.487972e-01,& - & 1.494923e-01,1.501472e-01,1.507601e-01,1.513287e-01,1.518511e-01,& - & 1.523252e-01,1.527489e-01,1.531201e-01,1.534368e-01,1.536969e-01,& - & 1.538984e-01 /) - fdlice3(:, 25) = (/ & -! band 25 - & 1.168725e-01,1.177088e-01,1.185747e-01,1.194680e-01,1.203867e-01,& - & 1.213288e-01,1.222923e-01,1.232750e-01,1.242750e-01,1.252903e-01,& - & 1.263187e-01,1.273583e-01,1.284069e-01,1.294626e-01,1.305233e-01,& - & 1.315870e-01,1.326517e-01,1.337152e-01,1.347756e-01,1.358308e-01,& - & 1.368788e-01,1.379175e-01,1.389449e-01,1.399590e-01,1.409577e-01,& - & 1.419389e-01,1.429007e-01,1.438410e-01,1.447577e-01,1.456488e-01,& - & 1.465123e-01,1.473461e-01,1.481483e-01,1.489166e-01,1.496492e-01,& - & 1.503439e-01,1.509988e-01,1.516118e-01,1.521808e-01,1.527038e-01,& - & 1.531788e-01,1.536037e-01,1.539764e-01,1.542951e-01,1.545575e-01,& - & 1.547617e-01 /) - fdlice3(:, 26) = (/ & -!band 26 - & 1.180509e-01,1.189025e-01,1.197820e-01,1.206875e-01,1.216171e-01,& - & 1.225687e-01,1.235404e-01,1.245303e-01,1.255363e-01,1.265564e-01,& - & 1.275888e-01,1.286313e-01,1.296821e-01,1.307392e-01,1.318006e-01,& - & 1.328643e-01,1.339284e-01,1.349908e-01,1.360497e-01,1.371029e-01,& - & 1.381486e-01,1.391848e-01,1.402095e-01,1.412208e-01,1.422165e-01,& - & 1.431949e-01,1.441539e-01,1.450915e-01,1.460058e-01,1.468947e-01,& - & 1.477564e-01,1.485888e-01,1.493900e-01,1.501580e-01,1.508907e-01,& - & 1.515864e-01,1.522428e-01,1.528582e-01,1.534305e-01,1.539578e-01,& - & 1.544380e-01,1.548692e-01,1.552494e-01,1.555767e-01,1.558490e-01,& - & 1.560645e-01 /) - fdlice3(:, 27) = (/ & -! band 27 - & 1.200480e-01,1.209267e-01,1.218304e-01,1.227575e-01,1.237059e-01,& - & 1.246739e-01,1.256595e-01,1.266610e-01,1.276765e-01,1.287041e-01,& - & 1.297420e-01,1.307883e-01,1.318412e-01,1.328988e-01,1.339593e-01,& - & 1.350207e-01,1.360813e-01,1.371393e-01,1.381926e-01,1.392396e-01,& - & 1.402783e-01,1.413069e-01,1.423235e-01,1.433263e-01,1.443134e-01,& - & 1.452830e-01,1.462332e-01,1.471622e-01,1.480681e-01,1.489490e-01,& - & 1.498032e-01,1.506286e-01,1.514236e-01,1.521863e-01,1.529147e-01,& - & 1.536070e-01,1.542614e-01,1.548761e-01,1.554491e-01,1.559787e-01,& - & 1.564629e-01,1.568999e-01,1.572879e-01,1.576249e-01,1.579093e-01,& - & 1.581390e-01 /) - fdlice3(:, 28) = (/ & -! band 28 - & 1.247813e-01,1.256496e-01,1.265417e-01,1.274560e-01,1.283905e-01,& - & 1.293436e-01,1.303135e-01,1.312983e-01,1.322964e-01,1.333060e-01,& - & 1.343252e-01,1.353523e-01,1.363855e-01,1.374231e-01,1.384632e-01,& - & 1.395042e-01,1.405441e-01,1.415813e-01,1.426140e-01,1.436404e-01,& - & 1.446587e-01,1.456672e-01,1.466640e-01,1.476475e-01,1.486157e-01,& - & 1.495671e-01,1.504997e-01,1.514117e-01,1.523016e-01,1.531673e-01,& - & 1.540073e-01,1.548197e-01,1.556026e-01,1.563545e-01,1.570734e-01,& - & 1.577576e-01,1.584054e-01,1.590149e-01,1.595843e-01,1.601120e-01,& - & 1.605962e-01,1.610349e-01,1.614266e-01,1.617693e-01,1.620614e-01,& - & 1.623011e-01 /) - fdlice3(:, 29) = (/ & -! band 29 - & 1.006055e-01,9.549582e-02,9.063960e-02,8.602900e-02,8.165612e-02,& - & 7.751308e-02,7.359199e-02,6.988496e-02,6.638412e-02,6.308156e-02,& - & 5.996942e-02,5.703979e-02,5.428481e-02,5.169657e-02,4.926719e-02,& - & 4.698880e-02,4.485349e-02,4.285339e-02,4.098061e-02,3.922727e-02,& - & 3.758547e-02,3.604733e-02,3.460497e-02,3.325051e-02,3.197604e-02,& - & 3.077369e-02,2.963558e-02,2.855381e-02,2.752050e-02,2.652776e-02,& - & 2.556772e-02,2.463247e-02,2.371415e-02,2.280485e-02,2.189670e-02,& - & 2.098180e-02,2.005228e-02,1.910024e-02,1.811781e-02,1.709709e-02,& - & 1.603020e-02,1.490925e-02,1.372635e-02,1.247363e-02,1.114319e-02,& - & 9.727157e-03 /) - - - extice4(:, 16) = (/ & - & 0.1044555E+01 , 0.1203676E+01 , 0.1073405E+01 , 0.8951550E+00 , 0.7390689E+00 ,& - & 0.6153759E+00 , 0.5198989E+00 , 0.4464092E+00 , 0.3894742E+00 , 0.3448678E+00 ,& - & 0.3094197E+00 , 0.2807807E+00 , 0.2572316E+00 , 0.2375326E+00 , 0.2207851E+00 ,& - & 0.2063371E+00 , 0.1937186E+00 , 0.1825884E+00 , 0.1726631E+00 , 0.1637662E+00 ,& - & 0.1557344E+00 , 0.1484502E+00 , 0.1418036E+00 , 0.1357148E+00 , 0.1301263E+00 ,& - & 0.1249710E+00 , 0.1202028E+00 , 0.1157786E+00 , 0.1116665E+00 , 0.1078338E+00 ,& - & 0.1042548E+00 , 0.1009008E+00 , 0.9775314E-01 , 0.9479627E-01 , 0.9201247E-01 ,& - & 0.8938390E-01 , 0.8690302E-01 , 0.8455290E-01 , 0.8232602E-01 , 0.8021355E-01 ,& - & 0.7820601E-01 , 0.7629608E-01 , 0.7447571E-01 , 0.7274083E-01 , 0.7108492E-01 ,& - & 0.6950055E-01 , 0.6798557E-01 , 0.6653521E-01 , 0.6514487E-01 , 0.6381106E-01 ,& - & 0.6253067E-01 , 0.6130035E-01 , 0.6011723E-01 , 0.5897878E-01 , 0.5788214E-01 ,& - & 0.5682641E-01 , 0.5580740E-01 , 0.5482358E-01 , 0.5387500E-01 , 0.5295752E-01 ,& - & 0.5207116E-01 , 0.5121392E-01 , 0.5038402E-01 , 0.4958022E-01 , 0.4880159E-01 ,& - & 0.4804720E-01 , 0.4731641E-01 , 0.4660610E-01 , 0.4591725E-01 , 0.4524862E-01 ,& - & 0.4459908E-01 , 0.4396743E-01 , 0.4335355E-01 , 0.4275709E-01 , 0.4217590E-01 ,& - & 0.4161095E-01 , 0.4106024E-01 , 0.4052462E-01 , 0.4000197E-01 , 0.3949309E-01 ,& - & 0.3899699E-01 , 0.3851286E-01 , 0.3804038E-01 , 0.3757953E-01 , 0.3712986E-01 ,& - & 0.3669107E-01 , 0.3626178E-01 , 0.3584285E-01 , 0.3543320E-01 , 0.3503278E-01 ,& - & 0.3464155E-01 , 0.3425872E-01 , 0.3388441E-01 , 0.3351796E-01 , 0.3315932E-01 ,& - & 0.3280823E-01 , 0.3246461E-01 , 0.3212810E-01 , 0.3179850E-01 , 0.3147537E-01 ,& - & 0.3115890E-01 , 0.3084878E-01 , 0.3054465E-01 , 0.3024667E-01 , 0.2995411E-01 ,& - & 0.2966714E-01 , 0.2938586E-01 , 0.2910958E-01 , 0.2883859E-01 , 0.2857251E-01 ,& - & 0.2831137E-01 , 0.2805494E-01 , 0.2780301E-01 , 0.2755551E-01 , 0.2731267E-01 ,& - & 0.2707366E-01 , 0.2683903E-01 , 0.2660842E-01 , 0.2638168E-01 , 0.2615874E-01 ,& - & 0.2593950E-01 , 0.2572401E-01 , 0.2551194E-01 , 0.2530332E-01 , 0.2509815E-01 ,& - & 0.2489631E-01 , 0.2469759E-01 , 0.2450210E-01 , 0.2430961E-01 , 0.2412017E-01 ,& - & 0.2393354E-01 , 0.2374990E-01 , 0.2356901E-01 , 0.2339082E-01 , 0.2321524E-01 ,& - & 0.2304241E-01 , 0.2287203E-01 , 0.2270414E-01 , 0.2253871E-01 , 0.2237578E-01 ,& - & 0.2221496E-01 , 0.2205657E-01 , 0.2190050E-01 , 0.2174648E-01 , 0.2159478E-01 ,& - & 0.2144496E-01 , 0.2129730E-01 , 0.2115171E-01 , 0.2100797E-01 , 0.2086618E-01 ,& - & 0.2072638E-01 , 0.2058838E-01 , 0.2045222E-01 , 0.2031766E-01 , 0.2018519E-01 ,& - & 0.2005415E-01 , 0.1992492E-01 , 0.1979736E-01 , 0.1967139E-01 , 0.1954699E-01 ,& - & 0.1942423E-01 , 0.1930292E-01 , 0.1918316E-01 , 0.1906489E-01 , 0.1894801E-01 ,& - & 0.1883259E-01 , 0.1871851E-01 , 0.1860590E-01 , 0.1849451E-01 , 0.1838453E-01 ,& - & 0.1827577E-01 , 0.1816835E-01 , 0.1806215E-01 , 0.1795730E-01 , 0.1785355E-01 ,& - & 0.1775094E-01 , 0.1764968E-01 , 0.1754933E-01 , 0.1745033E-01 , 0.1735235E-01 ,& - & 0.1725539E-01 , 0.1715956E-01 , 0.1706481E-01 , 0.1697120E-01 , 0.1687851E-01 ,& - & 0.1678658E-01 , 0.1669611E-01 , 0.1660635E-01 , 0.1651768E-01 , 0.1642979E-01 ,& - & 0.1634285E-01 , 0.1625676E-01 , 0.1617153E-01 , 0.1608739E-01 , 0.1600428E-01 ,& - & 0.1592169E-01 , 0.1583990E-01 , 0.1575910E-01 , 0.1567927E-01 , 0.1559990E-01 /) - extice4(:, 17) = (/ & - & 0.4763286E+00 , 0.5141250E+00 , 0.5273511E+00 , 0.5132986E+00 , 0.4830320E+00 ,& - & 0.4463672E+00 , 0.4088545E+00 , 0.3731202E+00 , 0.3402724E+00 , 0.3106955E+00 ,& - & 0.2844235E+00 , 0.2612867E+00 , 0.2410232E+00 , 0.2233216E+00 , 0.2078603E+00 ,& - & 0.1943273E+00 , 0.1824417E+00 , 0.1719589E+00 , 0.1626463E+00 , 0.1543391E+00 ,& - & 0.1468798E+00 , 0.1401474E+00 , 0.1340278E+00 , 0.1284363E+00 , 0.1233124E+00 ,& - & 0.1185873E+00 , 0.1142152E+00 , 0.1101545E+00 , 0.1063732E+00 , 0.1028420E+00 ,& - & 0.9953757E-01 , 0.9643336E-01 , 0.9351338E-01 , 0.9076300E-01 , 0.8816896E-01 ,& - & 0.8571373E-01 , 0.8339211E-01 , 0.8118889E-01 , 0.7909822E-01 , 0.7711162E-01 ,& - & 0.7522193E-01 , 0.7342164E-01 , 0.7170478E-01 , 0.7006659E-01 , 0.6850200E-01 ,& - & 0.6700403E-01 , 0.6557077E-01 , 0.6419807E-01 , 0.6288159E-01 , 0.6161838E-01 ,& - & 0.6040492E-01 , 0.5923865E-01 , 0.5811687E-01 , 0.5703721E-01 , 0.5599665E-01 ,& - & 0.5499471E-01 , 0.5402735E-01 , 0.5309343E-01 , 0.5219220E-01 , 0.5132055E-01 ,& - & 0.5047825E-01 , 0.4966339E-01 , 0.4887404E-01 , 0.4810952E-01 , 0.4736874E-01 ,& - & 0.4665057E-01 , 0.4595489E-01 , 0.4527827E-01 , 0.4462209E-01 , 0.4398476E-01 ,& - & 0.4336542E-01 , 0.4276314E-01 , 0.4217739E-01 , 0.4160809E-01 , 0.4105314E-01 ,& - & 0.4051353E-01 , 0.3998732E-01 , 0.3947515E-01 , 0.3897537E-01 , 0.3848859E-01 ,& - & 0.3801385E-01 , 0.3755036E-01 , 0.3709788E-01 , 0.3665651E-01 , 0.3622552E-01 ,& - & 0.3580478E-01 , 0.3539314E-01 , 0.3499128E-01 , 0.3459814E-01 , 0.3421370E-01 ,& - & 0.3383791E-01 , 0.3347036E-01 , 0.3311051E-01 , 0.3275822E-01 , 0.3241343E-01 ,& - & 0.3207574E-01 , 0.3174508E-01 , 0.3142111E-01 , 0.3110381E-01 , 0.3079257E-01 ,& - & 0.3048776E-01 , 0.3018891E-01 , 0.2989568E-01 , 0.2960840E-01 , 0.2932633E-01 ,& - & 0.2904951E-01 , 0.2877804E-01 , 0.2851140E-01 , 0.2824986E-01 , 0.2799294E-01 ,& - & 0.2774077E-01 , 0.2749288E-01 , 0.2724948E-01 , 0.2701036E-01 , 0.2677548E-01 ,& - & 0.2654443E-01 , 0.2631749E-01 , 0.2609444E-01 , 0.2587501E-01 , 0.2565926E-01 ,& - & 0.2544707E-01 , 0.2523841E-01 , 0.2503305E-01 , 0.2483104E-01 , 0.2463224E-01 ,& - & 0.2443679E-01 , 0.2424424E-01 , 0.2405471E-01 , 0.2386809E-01 , 0.2368442E-01 ,& - & 0.2350347E-01 , 0.2332531E-01 , 0.2314983E-01 , 0.2297696E-01 , 0.2280661E-01 ,& - & 0.2263894E-01 , 0.2247354E-01 , 0.2231056E-01 , 0.2214995E-01 , 0.2199167E-01 ,& - & 0.2183555E-01 , 0.2168168E-01 , 0.2152997E-01 , 0.2138044E-01 , 0.2123297E-01 ,& - & 0.2108743E-01 , 0.2094389E-01 , 0.2080225E-01 , 0.2066262E-01 , 0.2052478E-01 ,& - & 0.2038878E-01 , 0.2025452E-01 , 0.2012206E-01 , 0.1999124E-01 , 0.1986228E-01 ,& - & 0.1973479E-01 , 0.1960898E-01 , 0.1948489E-01 , 0.1936224E-01 , 0.1924112E-01 ,& - & 0.1912151E-01 , 0.1900350E-01 , 0.1888681E-01 , 0.1877157E-01 , 0.1865777E-01 ,& - & 0.1854531E-01 , 0.1843415E-01 , 0.1832443E-01 , 0.1821590E-01 , 0.1810865E-01 ,& - & 0.1800276E-01 , 0.1789802E-01 , 0.1779445E-01 , 0.1769220E-01 , 0.1759102E-01 ,& - & 0.1749104E-01 , 0.1739221E-01 , 0.1729435E-01 , 0.1719781E-01 , 0.1710218E-01 ,& - & 0.1700763E-01 , 0.1691409E-01 , 0.1682161E-01 , 0.1673025E-01 , 0.1663977E-01 ,& - & 0.1655012E-01 , 0.1646175E-01 , 0.1637405E-01 , 0.1628751E-01 , 0.1620165E-01 ,& - & 0.1611679E-01 , 0.1603268E-01 , 0.1594950E-01 , 0.1586730E-01 , 0.1578603E-01 ,& - & 0.1570542E-01 , 0.1562544E-01 , 0.1554657E-01 , 0.1546851E-01 , 0.1539096E-01 /) - extice4(:, 18) = (/ & - & 0.4064021E+00 , 0.7872863E+00 , 0.8820615E+00 , 0.8292196E+00 , 0.7314100E+00 ,& - & 0.6302420E+00 , 0.5396259E+00 , 0.4631953E+00 , 0.4008095E+00 , 0.3508492E+00 ,& - & 0.3111808E+00 , 0.2796517E+00 , 0.2543678E+00 , 0.2337898E+00 , 0.2167377E+00 ,& - & 0.2023380E+00 , 0.1899584E+00 , 0.1791528E+00 , 0.1695768E+00 , 0.1610149E+00 ,& - & 0.1532899E+00 , 0.1462755E+00 , 0.1398632E+00 , 0.1339731E+00 , 0.1285543E+00 ,& - & 0.1235421E+00 , 0.1188960E+00 , 0.1145765E+00 , 0.1105532E+00 , 0.1067977E+00 ,& - & 0.1032865E+00 , 0.9999224E-01 , 0.9689742E-01 , 0.9398752E-01 , 0.9124668E-01 ,& - & 0.8865657E-01 , 0.8621120E-01 , 0.8389350E-01 , 0.8169663E-01 , 0.7961147E-01 ,& - & 0.7762991E-01 , 0.7574398E-01 , 0.7394617E-01 , 0.7223210E-01 , 0.7059608E-01 ,& - & 0.6902973E-01 , 0.6753232E-01 , 0.6609816E-01 , 0.6472336E-01 , 0.6340417E-01 ,& - & 0.6213750E-01 , 0.6092009E-01 , 0.5974939E-01 , 0.5862262E-01 , 0.5753724E-01 ,& - & 0.5649206E-01 , 0.5548300E-01 , 0.5450904E-01 , 0.5356917E-01 , 0.5266066E-01 ,& - & 0.5178246E-01 , 0.5093337E-01 , 0.5011111E-01 , 0.4931447E-01 , 0.4854301E-01 ,& - & 0.4779536E-01 , 0.4707108E-01 , 0.4636711E-01 , 0.4568442E-01 , 0.4502154E-01 ,& - & 0.4437758E-01 , 0.4375159E-01 , 0.4314278E-01 , 0.4255147E-01 , 0.4197507E-01 ,& - & 0.4141500E-01 , 0.4086885E-01 , 0.4033767E-01 , 0.3981933E-01 , 0.3931467E-01 ,& - & 0.3882248E-01 , 0.3834236E-01 , 0.3787363E-01 , 0.3741677E-01 , 0.3697066E-01 ,& - & 0.3653515E-01 , 0.3610943E-01 , 0.3569381E-01 , 0.3528723E-01 , 0.3489015E-01 ,& - & 0.3450166E-01 , 0.3412203E-01 , 0.3375052E-01 , 0.3338682E-01 , 0.3303086E-01 ,& - & 0.3268255E-01 , 0.3234151E-01 , 0.3200735E-01 , 0.3168022E-01 , 0.3135935E-01 ,& - & 0.3104525E-01 , 0.3073731E-01 , 0.3043546E-01 , 0.3013958E-01 , 0.2984907E-01 ,& - & 0.2956425E-01 , 0.2928479E-01 , 0.2901045E-01 , 0.2874136E-01 , 0.2847716E-01 ,& - & 0.2821771E-01 , 0.2796281E-01 , 0.2771265E-01 , 0.2746689E-01 , 0.2722548E-01 ,& - & 0.2698816E-01 , 0.2675505E-01 , 0.2652581E-01 , 0.2630054E-01 , 0.2607893E-01 ,& - & 0.2586111E-01 , 0.2564690E-01 , 0.2543620E-01 , 0.2522895E-01 , 0.2502487E-01 ,& - & 0.2482434E-01 , 0.2462679E-01 , 0.2443234E-01 , 0.2424099E-01 , 0.2405267E-01 ,& - & 0.2386715E-01 , 0.2368448E-01 , 0.2350466E-01 , 0.2332753E-01 , 0.2315287E-01 ,& - & 0.2298096E-01 , 0.2281159E-01 , 0.2264459E-01 , 0.2248003E-01 , 0.2231796E-01 ,& - & 0.2215810E-01 , 0.2200054E-01 , 0.2184520E-01 , 0.2169198E-01 , 0.2154108E-01 ,& - & 0.2139205E-01 , 0.2124518E-01 , 0.2110025E-01 , 0.2095727E-01 , 0.2081623E-01 ,& - & 0.2067707E-01 , 0.2053980E-01 , 0.2040426E-01 , 0.2027041E-01 , 0.2013855E-01 ,& - & 0.2000820E-01 , 0.1987956E-01 , 0.1975258E-01 , 0.1962719E-01 , 0.1950344E-01 ,& - & 0.1938115E-01 , 0.1926048E-01 , 0.1914127E-01 , 0.1902344E-01 , 0.1890709E-01 ,& - & 0.1879229E-01 , 0.1867873E-01 , 0.1856654E-01 , 0.1845567E-01 , 0.1834618E-01 ,& - & 0.1823801E-01 , 0.1813099E-01 , 0.1802527E-01 , 0.1792081E-01 , 0.1781754E-01 ,& - & 0.1771539E-01 , 0.1761451E-01 , 0.1751470E-01 , 0.1741607E-01 , 0.1731854E-01 ,& - & 0.1722193E-01 , 0.1712654E-01 , 0.1703223E-01 , 0.1693896E-01 , 0.1684669E-01 ,& - & 0.1675518E-01 , 0.1666505E-01 , 0.1657562E-01 , 0.1648727E-01 , 0.1639979E-01 ,& - & 0.1631317E-01 , 0.1622747E-01 , 0.1614256E-01 , 0.1605880E-01 , 0.1597600E-01 ,& - & 0.1589379E-01 , 0.1581230E-01 , 0.1573187E-01 , 0.1565234E-01 , 0.1557325E-01 /) - extice4(:, 19) = (/ & - & 0.6246532E+00 , 0.1059293E+01 , 0.1060130E+01 , 0.9193889E+00 , 0.7653428E+00 ,& - & 0.6319336E+00 , 0.5252968E+00 , 0.4434857E+00 , 0.3819407E+00 , 0.3356902E+00 ,& - & 0.3004149E+00 , 0.2728044E+00 , 0.2505319E+00 , 0.2320409E+00 , 0.2163062E+00 ,& - & 0.2026566E+00 , 0.1906463E+00 , 0.1799716E+00 , 0.1703882E+00 , 0.1617487E+00 ,& - & 0.1539159E+00 , 0.1467881E+00 , 0.1402689E+00 , 0.1342852E+00 , 0.1287873E+00 ,& - & 0.1237108E+00 , 0.1190127E+00 , 0.1146521E+00 , 0.1105974E+00 , 0.1068178E+00 ,& - & 0.1032880E+00 , 0.9997968E-01 , 0.9687447E-01 , 0.9395663E-01 , 0.9121004E-01 ,& - & 0.8861579E-01 , 0.8616695E-01 , 0.8384676E-01 , 0.8164830E-01 , 0.7956241E-01 ,& - & 0.7758018E-01 , 0.7569396E-01 , 0.7389624E-01 , 0.7218225E-01 , 0.7054665E-01 ,& - & 0.6898104E-01 , 0.6748401E-01 , 0.6605086E-01 , 0.6467671E-01 , 0.6335874E-01 ,& - & 0.6209297E-01 , 0.6087672E-01 , 0.5970713E-01 , 0.5858143E-01 , 0.5749736E-01 ,& - & 0.5645317E-01 , 0.5544532E-01 , 0.5447229E-01 , 0.5353383E-01 , 0.5262641E-01 ,& - & 0.5174929E-01 , 0.5090123E-01 , 0.5008022E-01 , 0.4928453E-01 , 0.4851402E-01 ,& - & 0.4776750E-01 , 0.4704387E-01 , 0.4634076E-01 , 0.4565890E-01 , 0.4499682E-01 ,& - & 0.4435365E-01 , 0.4372821E-01 , 0.4312014E-01 , 0.4252933E-01 , 0.4195344E-01 ,& - & 0.4139386E-01 , 0.4084839E-01 , 0.4031747E-01 , 0.3979958E-01 , 0.3929536E-01 ,& - & 0.3880341E-01 , 0.3832371E-01 , 0.3785538E-01 , 0.3739856E-01 , 0.3695267E-01 ,& - & 0.3651755E-01 , 0.3609185E-01 , 0.3567643E-01 , 0.3527022E-01 , 0.3487315E-01 ,& - & 0.3448502E-01 , 0.3410541E-01 , 0.3373408E-01 , 0.3337055E-01 , 0.3301460E-01 ,& - & 0.3266646E-01 , 0.3232542E-01 , 0.3199143E-01 , 0.3166446E-01 , 0.3134360E-01 ,& - & 0.3102965E-01 , 0.3072186E-01 , 0.3042001E-01 , 0.3012413E-01 , 0.2983377E-01 ,& - & 0.2954895E-01 , 0.2926964E-01 , 0.2899543E-01 , 0.2872634E-01 , 0.2846227E-01 ,& - & 0.2820295E-01 , 0.2794818E-01 , 0.2769815E-01 , 0.2745239E-01 , 0.2721111E-01 ,& - & 0.2697378E-01 , 0.2674079E-01 , 0.2651167E-01 , 0.2628652E-01 , 0.2606503E-01 ,& - & 0.2584732E-01 , 0.2563322E-01 , 0.2542264E-01 , 0.2521549E-01 , 0.2501152E-01 ,& - & 0.2481110E-01 , 0.2461365E-01 , 0.2441943E-01 , 0.2422806E-01 , 0.2403996E-01 ,& - & 0.2385453E-01 , 0.2367196E-01 , 0.2349224E-01 , 0.2331520E-01 , 0.2314074E-01 ,& - & 0.2296892E-01 , 0.2279964E-01 , 0.2263273E-01 , 0.2246836E-01 , 0.2230637E-01 ,& - & 0.2214660E-01 , 0.2198923E-01 , 0.2183396E-01 , 0.2168093E-01 , 0.2153011E-01 ,& - & 0.2138126E-01 , 0.2123446E-01 , 0.2108960E-01 , 0.2094669E-01 , 0.2080583E-01 ,& - & 0.2066684E-01 , 0.2052953E-01 , 0.2039417E-01 , 0.2026048E-01 , 0.2012869E-01 ,& - & 0.1999840E-01 , 0.1986992E-01 , 0.1974300E-01 , 0.1961777E-01 , 0.1949408E-01 ,& - & 0.1937194E-01 , 0.1925133E-01 , 0.1913217E-01 , 0.1901449E-01 , 0.1889829E-01 ,& - & 0.1878345E-01 , 0.1867004E-01 , 0.1855799E-01 , 0.1844726E-01 , 0.1833782E-01 ,& - & 0.1822970E-01 , 0.1812282E-01 , 0.1801714E-01 , 0.1791273E-01 , 0.1780959E-01 ,& - & 0.1770749E-01 , 0.1760674E-01 , 0.1750697E-01 , 0.1740839E-01 , 0.1731090E-01 ,& - & 0.1721442E-01 , 0.1711907E-01 , 0.1702480E-01 , 0.1693166E-01 , 0.1683943E-01 ,& - & 0.1674796E-01 , 0.1665794E-01 , 0.1656855E-01 , 0.1648032E-01 , 0.1639288E-01 ,& - & 0.1630629E-01 , 0.1622063E-01 , 0.1613583E-01 , 0.1605211E-01 , 0.1596934E-01 ,& - & 0.1588717E-01 , 0.1580579E-01 , 0.1572539E-01 , 0.1564589E-01 , 0.1556692E-01 /) - extice4(:, 20) = (/ & - & 0.9085256E+00 , 0.1319605E+01 , 0.1184964E+01 , 0.9591054E+00 , 0.7636590E+00 ,& - & 0.6152265E+00 , 0.5079246E+00 , 0.4314498E+00 , 0.3761872E+00 , 0.3348962E+00 ,& - & 0.3027546E+00 , 0.2767475E+00 , 0.2550463E+00 , 0.2365285E+00 , 0.2204751E+00 ,& - & 0.2063979E+00 , 0.1939485E+00 , 0.1828724E+00 , 0.1729404E+00 , 0.1640087E+00 ,& - & 0.1559322E+00 , 0.1486047E+00 , 0.1419199E+00 , 0.1357985E+00 , 0.1301851E+00 ,& - & 0.1250102E+00 , 0.1202274E+00 , 0.1157924E+00 , 0.1116724E+00 , 0.1078338E+00 ,& - & 0.1042508E+00 , 0.1008945E+00 , 0.9774424E-01 , 0.9478536E-01 , 0.9200054E-01 ,& - & 0.8937059E-01 , 0.8688883E-01 , 0.8453744E-01 , 0.8230979E-01 , 0.8019655E-01 ,& - & 0.7818793E-01 , 0.7627731E-01 , 0.7445667E-01 , 0.7272081E-01 , 0.7106467E-01 ,& - & 0.6947973E-01 , 0.6796420E-01 , 0.6651365E-01 , 0.6512312E-01 , 0.6378913E-01 ,& - & 0.6250855E-01 , 0.6127837E-01 , 0.6009537E-01 , 0.5895704E-01 , 0.5786052E-01 ,& - & 0.5680489E-01 , 0.5578626E-01 , 0.5480282E-01 , 0.5385457E-01 , 0.5293744E-01 ,& - & 0.5205141E-01 , 0.5119474E-01 , 0.5036539E-01 , 0.4956187E-01 , 0.4878400E-01 ,& - & 0.4803012E-01 , 0.4729981E-01 , 0.4658997E-01 , 0.4590181E-01 , 0.4523361E-01 ,& - & 0.4458472E-01 , 0.4395370E-01 , 0.4334043E-01 , 0.4274435E-01 , 0.4216374E-01 ,& - & 0.4159937E-01 , 0.4104921E-01 , 0.4051393E-01 , 0.3999200E-01 , 0.3948363E-01 ,& - & 0.3898784E-01 , 0.3850419E-01 , 0.3803220E-01 , 0.3757199E-01 , 0.3712277E-01 ,& - & 0.3668424E-01 , 0.3625556E-01 , 0.3583706E-01 , 0.3542765E-01 , 0.3502781E-01 ,& - & 0.3463679E-01 , 0.3425452E-01 , 0.3388058E-01 , 0.3351451E-01 , 0.3315607E-01 ,& - & 0.3280549E-01 , 0.3246222E-01 , 0.3212589E-01 , 0.3179663E-01 , 0.3147382E-01 ,& - & 0.3115767E-01 , 0.3084787E-01 , 0.3054404E-01 , 0.3024638E-01 , 0.2995411E-01 ,& - & 0.2966743E-01 , 0.2938629E-01 , 0.2911044E-01 , 0.2883972E-01 , 0.2857392E-01 ,& - & 0.2831290E-01 , 0.2805660E-01 , 0.2780506E-01 , 0.2755781E-01 , 0.2731508E-01 ,& - & 0.2707632E-01 , 0.2684193E-01 , 0.2661156E-01 , 0.2638492E-01 , 0.2616222E-01 ,& - & 0.2594320E-01 , 0.2572794E-01 , 0.2551595E-01 , 0.2530756E-01 , 0.2510260E-01 ,& - & 0.2490097E-01 , 0.2470233E-01 , 0.2450705E-01 , 0.2431464E-01 , 0.2412540E-01 ,& - & 0.2393896E-01 , 0.2375540E-01 , 0.2357459E-01 , 0.2339659E-01 , 0.2322119E-01 ,& - & 0.2304843E-01 , 0.2287823E-01 , 0.2271041E-01 , 0.2254515E-01 , 0.2238229E-01 ,& - & 0.2222164E-01 , 0.2206342E-01 , 0.2190731E-01 , 0.2175345E-01 , 0.2160181E-01 ,& - & 0.2145215E-01 , 0.2130466E-01 , 0.2115901E-01 , 0.2101543E-01 , 0.2087381E-01 ,& - & 0.2073406E-01 , 0.2059610E-01 , 0.2046010E-01 , 0.2032558E-01 , 0.2019317E-01 ,& - & 0.2006227E-01 , 0.1993309E-01 , 0.1980558E-01 , 0.1967965E-01 , 0.1955538E-01 ,& - & 0.1943258E-01 , 0.1931141E-01 , 0.1919169E-01 , 0.1907346E-01 , 0.1895662E-01 ,& - & 0.1884124E-01 , 0.1872730E-01 , 0.1861463E-01 , 0.1850338E-01 , 0.1839335E-01 ,& - & 0.1828471E-01 , 0.1817734E-01 , 0.1807126E-01 , 0.1796635E-01 , 0.1786264E-01 ,& - & 0.1776015E-01 , 0.1765884E-01 , 0.1755861E-01 , 0.1745965E-01 , 0.1736170E-01 ,& - & 0.1726478E-01 , 0.1716898E-01 , 0.1707427E-01 , 0.1698061E-01 , 0.1688803E-01 ,& - & 0.1679613E-01 , 0.1670569E-01 , 0.1661588E-01 , 0.1652724E-01 , 0.1643938E-01 ,& - & 0.1635247E-01 , 0.1626641E-01 , 0.1618122E-01 , 0.1609718E-01 , 0.1601402E-01 ,& - & 0.1593146E-01 , 0.1584970E-01 , 0.1576893E-01 , 0.1568913E-01 , 0.1560978E-01 /) - extice4(:, 21) = (/ & - & 0.1393451E+01 , 0.1615386E+01 , 0.1273594E+01 , 0.9558807E+00 , 0.7321575E+00 ,& - & 0.5849279E+00 , 0.4879658E+00 , 0.4211306E+00 , 0.3720420E+00 , 0.3338566E+00 ,& - & 0.3029021E+00 , 0.2771144E+00 , 0.2552424E+00 , 0.2364579E+00 , 0.2201651E+00 ,& - & 0.2059142E+00 , 0.1933588E+00 , 0.1822288E+00 , 0.1722826E+00 , 0.1633599E+00 ,& - & 0.1553092E+00 , 0.1480135E+00 , 0.1413637E+00 , 0.1352778E+00 , 0.1296975E+00 ,& - & 0.1245527E+00 , 0.1197977E+00 , 0.1153869E+00 , 0.1112889E+00 , 0.1074702E+00 ,& - & 0.1039044E+00 , 0.1005633E+00 , 0.9742779E-01 , 0.9448186E-01 , 0.9170880E-01 ,& - & 0.8908996E-01 , 0.8661828E-01 , 0.8427727E-01 , 0.8205866E-01 , 0.7995403E-01 ,& - & 0.7795393E-01 , 0.7605147E-01 , 0.7423860E-01 , 0.7251016E-01 , 0.7086110E-01 ,& - & 0.6928327E-01 , 0.6777456E-01 , 0.6633020E-01 , 0.6494594E-01 , 0.6361796E-01 ,& - & 0.6234317E-01 , 0.6111854E-01 , 0.5994089E-01 , 0.5880770E-01 , 0.5771614E-01 ,& - & 0.5666531E-01 , 0.5565130E-01 , 0.5467230E-01 , 0.5372811E-01 , 0.5281514E-01 ,& - & 0.5193289E-01 , 0.5108013E-01 , 0.5025406E-01 , 0.4945422E-01 , 0.4867967E-01 ,& - & 0.4792877E-01 , 0.4720158E-01 , 0.4649479E-01 , 0.4580934E-01 , 0.4514379E-01 ,& - & 0.4449747E-01 , 0.4386896E-01 , 0.4325790E-01 , 0.4266440E-01 , 0.4208589E-01 ,& - & 0.4152355E-01 , 0.4097538E-01 , 0.4044204E-01 , 0.3992179E-01 , 0.3941527E-01 ,& - & 0.3892128E-01 , 0.3843920E-01 , 0.3796873E-01 , 0.3751001E-01 , 0.3706225E-01 ,& - & 0.3662515E-01 , 0.3619768E-01 , 0.3578053E-01 , 0.3537245E-01 , 0.3497374E-01 ,& - & 0.3458383E-01 , 0.3420263E-01 , 0.3382975E-01 , 0.3346472E-01 , 0.3310745E-01 ,& - & 0.3275770E-01 , 0.3241524E-01 , 0.3207986E-01 , 0.3175153E-01 , 0.3142933E-01 ,& - & 0.3111408E-01 , 0.3080501E-01 , 0.3050190E-01 , 0.3020478E-01 , 0.2991321E-01 ,& - & 0.2962735E-01 , 0.2934674E-01 , 0.2907153E-01 , 0.2880131E-01 , 0.2853614E-01 ,& - & 0.2827574E-01 , 0.2802005E-01 , 0.2776883E-01 , 0.2752204E-01 , 0.2727989E-01 ,& - & 0.2704170E-01 , 0.2680773E-01 , 0.2657765E-01 , 0.2635156E-01 , 0.2612926E-01 ,& - & 0.2591064E-01 , 0.2569577E-01 , 0.2548417E-01 , 0.2527616E-01 , 0.2507158E-01 ,& - & 0.2487019E-01 , 0.2467204E-01 , 0.2447700E-01 , 0.2428494E-01 , 0.2409605E-01 ,& - & 0.2390995E-01 , 0.2372673E-01 , 0.2354625E-01 , 0.2336846E-01 , 0.2319338E-01 ,& - & 0.2302094E-01 , 0.2285094E-01 , 0.2268344E-01 , 0.2251848E-01 , 0.2235581E-01 ,& - & 0.2219546E-01 , 0.2203742E-01 , 0.2188160E-01 , 0.2172802E-01 , 0.2157656E-01 ,& - & 0.2142718E-01 , 0.2127985E-01 , 0.2113449E-01 , 0.2099107E-01 , 0.2084970E-01 ,& - & 0.2071012E-01 , 0.2057242E-01 , 0.2043657E-01 , 0.2030231E-01 , 0.2017004E-01 ,& - & 0.2003939E-01 , 0.1991036E-01 , 0.1978309E-01 , 0.1965741E-01 , 0.1953328E-01 ,& - & 0.1941071E-01 , 0.1928967E-01 , 0.1917018E-01 , 0.1905208E-01 , 0.1893546E-01 ,& - & 0.1882021E-01 , 0.1870639E-01 , 0.1859394E-01 , 0.1848282E-01 , 0.1837308E-01 ,& - & 0.1826457E-01 , 0.1815740E-01 , 0.1805134E-01 , 0.1794665E-01 , 0.1784313E-01 ,& - & 0.1774075E-01 , 0.1763964E-01 , 0.1753952E-01 , 0.1744066E-01 , 0.1734282E-01 ,& - & 0.1724609E-01 , 0.1715039E-01 , 0.1705586E-01 , 0.1696239E-01 , 0.1686991E-01 ,& - & 0.1677819E-01 , 0.1668785E-01 , 0.1659821E-01 , 0.1650967E-01 , 0.1642190E-01 ,& - & 0.1633517E-01 , 0.1624919E-01 , 0.1616417E-01 , 0.1608014E-01 , 0.1599715E-01 ,& - & 0.1591475E-01 , 0.1583308E-01 , 0.1575247E-01 , 0.1567275E-01 , 0.1559349E-01 /) - extice4(:, 22) = (/ & - & 0.1753817E+01 , 0.1766698E+01 , 0.1293728E+01 , 0.9349526E+00 , 0.7090753E+00 ,& - & 0.5709475E+00 , 0.4819101E+00 , 0.4192748E+00 , 0.3717348E+00 , 0.3338303E+00 ,& - & 0.3027139E+00 , 0.2766934E+00 , 0.2546459E+00 , 0.2357605E+00 , 0.2194277E+00 ,& - & 0.2051804E+00 , 0.1926509E+00 , 0.1815602E+00 , 0.1716574E+00 , 0.1627775E+00 ,& - & 0.1547663E+00 , 0.1475072E+00 , 0.1408909E+00 , 0.1348343E+00 , 0.1292798E+00 ,& - & 0.1241588E+00 , 0.1194253E+00 , 0.1150349E+00 , 0.1109543E+00 , 0.1071520E+00 ,& - & 0.1036015E+00 , 0.1002747E+00 , 0.9715207E-01 , 0.9421833E-01 , 0.9145632E-01 ,& - & 0.8884794E-01 , 0.8638614E-01 , 0.8405367E-01 , 0.8184358E-01 , 0.7974625E-01 ,& - & 0.7775351E-01 , 0.7585764E-01 , 0.7405071E-01 , 0.7232831E-01 , 0.7068431E-01 ,& - & 0.6911133E-01 , 0.6760726E-01 , 0.6616735E-01 , 0.6478736E-01 , 0.6346317E-01 ,& - & 0.6219203E-01 , 0.6097089E-01 , 0.5979661E-01 , 0.5866668E-01 , 0.5757852E-01 ,& - & 0.5653068E-01 , 0.5551931E-01 , 0.5454312E-01 , 0.5360190E-01 , 0.5269156E-01 ,& - & 0.5181209E-01 , 0.5096152E-01 , 0.5013832E-01 , 0.4934077E-01 , 0.4856845E-01 ,& - & 0.4782017E-01 , 0.4709529E-01 , 0.4639051E-01 , 0.4570747E-01 , 0.4504427E-01 ,& - & 0.4439999E-01 , 0.4377348E-01 , 0.4316437E-01 , 0.4257276E-01 , 0.4199629E-01 ,& - & 0.4143594E-01 , 0.4088971E-01 , 0.4035826E-01 , 0.3983967E-01 , 0.3933495E-01 ,& - & 0.3884251E-01 , 0.3836214E-01 , 0.3789335E-01 , 0.3743626E-01 , 0.3699011E-01 ,& - & 0.3655455E-01 , 0.3612860E-01 , 0.3571277E-01 , 0.3530615E-01 , 0.3490869E-01 ,& - & 0.3452016E-01 , 0.3414033E-01 , 0.3376862E-01 , 0.3340490E-01 , 0.3304875E-01 ,& - & 0.3270010E-01 , 0.3235902E-01 , 0.3202469E-01 , 0.3169739E-01 , 0.3137635E-01 ,& - & 0.3106208E-01 , 0.3075397E-01 , 0.3045181E-01 , 0.3015577E-01 , 0.2986510E-01 ,& - & 0.2957999E-01 , 0.2930039E-01 , 0.2902590E-01 , 0.2875653E-01 , 0.2849219E-01 ,& - & 0.2823260E-01 , 0.2797756E-01 , 0.2772727E-01 , 0.2748125E-01 , 0.2723972E-01 ,& - & 0.2700214E-01 , 0.2676878E-01 , 0.2653942E-01 , 0.2631391E-01 , 0.2609232E-01 ,& - & 0.2587426E-01 , 0.2565994E-01 , 0.2544901E-01 , 0.2524153E-01 , 0.2503735E-01 ,& - & 0.2483660E-01 , 0.2463895E-01 , 0.2444441E-01 , 0.2425285E-01 , 0.2406432E-01 ,& - & 0.2387870E-01 , 0.2369583E-01 , 0.2351581E-01 , 0.2333849E-01 , 0.2316386E-01 ,& - & 0.2299175E-01 , 0.2282219E-01 , 0.2265500E-01 , 0.2249036E-01 , 0.2232811E-01 ,& - & 0.2216818E-01 , 0.2201044E-01 , 0.2185502E-01 , 0.2170163E-01 , 0.2155056E-01 ,& - & 0.2140147E-01 , 0.2125442E-01 , 0.2110933E-01 , 0.2096629E-01 , 0.2082509E-01 ,& - & 0.2068587E-01 , 0.2054844E-01 , 0.2041284E-01 , 0.2027884E-01 , 0.2014682E-01 ,& - & 0.2001632E-01 , 0.1988753E-01 , 0.1976050E-01 , 0.1963496E-01 , 0.1951107E-01 ,& - & 0.1938873E-01 , 0.1926793E-01 , 0.1914857E-01 , 0.1903070E-01 , 0.1891421E-01 ,& - & 0.1879927E-01 , 0.1868558E-01 , 0.1857334E-01 , 0.1846234E-01 , 0.1835273E-01 ,& - & 0.1824442E-01 , 0.1813737E-01 , 0.1803152E-01 , 0.1792694E-01 , 0.1782354E-01 ,& - & 0.1772135E-01 , 0.1762035E-01 , 0.1752043E-01 , 0.1742168E-01 , 0.1732403E-01 ,& - & 0.1722740E-01 , 0.1713189E-01 , 0.1703738E-01 , 0.1694400E-01 , 0.1685170E-01 ,& - & 0.1676008E-01 , 0.1666984E-01 , 0.1658030E-01 , 0.1649193E-01 , 0.1640426E-01 ,& - & 0.1631762E-01 , 0.1623174E-01 , 0.1614680E-01 , 0.1606294E-01 , 0.1598004E-01 ,& - & 0.1589765E-01 , 0.1581606E-01 , 0.1573553E-01 , 0.1565598E-01 , 0.1557680E-01 /) - extice4(:, 23) = (/ & - & 0.2539065E+01 , 0.1905829E+01 , 0.1242668E+01 , 0.8773899E+00 , 0.6785038E+00 ,& - & 0.5577472E+00 , 0.4752940E+00 , 0.4142813E+00 , 0.3669287E+00 , 0.3290615E+00 ,& - & 0.2981315E+00 , 0.2724272E+00 , 0.2507530E+00 , 0.2322428E+00 , 0.2162578E+00 ,& - & 0.2023158E+00 , 0.1900511E+00 , 0.1791871E+00 , 0.1694768E+00 , 0.1607631E+00 ,& - & 0.1528971E+00 , 0.1457643E+00 , 0.1392594E+00 , 0.1333024E+00 , 0.1278381E+00 ,& - & 0.1227988E+00 , 0.1181396E+00 , 0.1138173E+00 , 0.1098000E+00 , 0.1060552E+00 ,& - & 0.1025584E+00 , 0.9928162E-01 , 0.9620553E-01 , 0.9331508E-01 , 0.9059433E-01 ,& - & 0.8802406E-01 , 0.8559787E-01 , 0.8329917E-01 , 0.8112070E-01 , 0.7905379E-01 ,& - & 0.7708962E-01 , 0.7522023E-01 , 0.7343891E-01 , 0.7174058E-01 , 0.7011959E-01 ,& - & 0.6856797E-01 , 0.6708433E-01 , 0.6566401E-01 , 0.6430217E-01 , 0.6299572E-01 ,& - & 0.6174131E-01 , 0.6053597E-01 , 0.5937660E-01 , 0.5826102E-01 , 0.5718614E-01 ,& - & 0.5615138E-01 , 0.5515235E-01 , 0.5418782E-01 , 0.5325733E-01 , 0.5235788E-01 ,& - & 0.5148819E-01 , 0.5064733E-01 , 0.4983304E-01 , 0.4904436E-01 , 0.4828016E-01 ,& - & 0.4753976E-01 , 0.4682229E-01 , 0.4612472E-01 , 0.4544844E-01 , 0.4479180E-01 ,& - & 0.4415370E-01 , 0.4353318E-01 , 0.4293011E-01 , 0.4234375E-01 , 0.4177260E-01 ,& - & 0.4121723E-01 , 0.4067585E-01 , 0.4014892E-01 , 0.3963494E-01 , 0.3913450E-01 ,& - & 0.3864626E-01 , 0.3816998E-01 , 0.3770500E-01 , 0.3725162E-01 , 0.3680891E-01 ,& - & 0.3637690E-01 , 0.3595424E-01 , 0.3554161E-01 , 0.3513813E-01 , 0.3474391E-01 ,& - & 0.3435839E-01 , 0.3398132E-01 , 0.3361232E-01 , 0.3325124E-01 , 0.3289768E-01 ,& - & 0.3255173E-01 , 0.3221298E-01 , 0.3188109E-01 , 0.3155617E-01 , 0.3123732E-01 ,& - & 0.3092534E-01 , 0.3061933E-01 , 0.3031938E-01 , 0.3002535E-01 , 0.2973666E-01 ,& - & 0.2945349E-01 , 0.2917579E-01 , 0.2890318E-01 , 0.2863578E-01 , 0.2837309E-01 ,& - & 0.2811528E-01 , 0.2786198E-01 , 0.2761326E-01 , 0.2736878E-01 , 0.2712890E-01 ,& - & 0.2689294E-01 , 0.2666117E-01 , 0.2643325E-01 , 0.2620928E-01 , 0.2598894E-01 ,& - & 0.2577238E-01 , 0.2555940E-01 , 0.2534979E-01 , 0.2514361E-01 , 0.2494083E-01 ,& - & 0.2474122E-01 , 0.2454481E-01 , 0.2435148E-01 , 0.2416112E-01 , 0.2397389E-01 ,& - & 0.2378932E-01 , 0.2360759E-01 , 0.2342870E-01 , 0.2325248E-01 , 0.2307884E-01 ,& - & 0.2290781E-01 , 0.2273920E-01 , 0.2257317E-01 , 0.2240946E-01 , 0.2224822E-01 ,& - & 0.2208908E-01 , 0.2193233E-01 , 0.2177778E-01 , 0.2162536E-01 , 0.2147513E-01 ,& - & 0.2132687E-01 , 0.2118076E-01 , 0.2103647E-01 , 0.2089423E-01 , 0.2075382E-01 ,& - & 0.2061538E-01 , 0.2047872E-01 , 0.2034388E-01 , 0.2021062E-01 , 0.2007935E-01 ,& - & 0.1994958E-01 , 0.1982151E-01 , 0.1969519E-01 , 0.1957035E-01 , 0.1944716E-01 ,& - & 0.1932541E-01 , 0.1920528E-01 , 0.1908659E-01 , 0.1896938E-01 , 0.1885354E-01 ,& - & 0.1873915E-01 , 0.1862610E-01 , 0.1851440E-01 , 0.1840402E-01 , 0.1829493E-01 ,& - & 0.1818724E-01 , 0.1808070E-01 , 0.1797544E-01 , 0.1787136E-01 , 0.1776854E-01 ,& - & 0.1766685E-01 , 0.1756633E-01 , 0.1746688E-01 , 0.1736869E-01 , 0.1727151E-01 ,& - & 0.1717533E-01 , 0.1708028E-01 , 0.1698630E-01 , 0.1689346E-01 , 0.1680152E-01 ,& - & 0.1671034E-01 , 0.1662061E-01 , 0.1653149E-01 , 0.1644346E-01 , 0.1635629E-01 ,& - & 0.1627006E-01 , 0.1618459E-01 , 0.1610006E-01 , 0.1601660E-01 , 0.1593409E-01 ,& - & 0.1585209E-01 , 0.1577090E-01 , 0.1569075E-01 , 0.1561150E-01 , 0.1553270E-01 /) - extice4(:, 24) = (/ & - & 0.3354143E+01 , 0.1891610E+01 , 0.1158487E+01 , 0.8431227E+00 , 0.6696832E+00 ,& - & 0.5552858E+00 , 0.4733763E+00 , 0.4120240E+00 , 0.3645240E+00 , 0.3267351E+00 ,& - & 0.2959884E+00 , 0.2704911E+00 , 0.2490109E+00 , 0.2306737E+00 , 0.2148376E+00 ,& - & 0.2010259E+00 , 0.1888753E+00 , 0.1781117E+00 , 0.1684922E+00 , 0.1598594E+00 ,& - & 0.1520659E+00 , 0.1449996E+00 , 0.1385541E+00 , 0.1326510E+00 , 0.1272357E+00 ,& - & 0.1222396E+00 , 0.1176201E+00 , 0.1133329E+00 , 0.1093472E+00 , 0.1056319E+00 ,& - & 0.1021613E+00 , 0.9890797E-01 , 0.9585351E-01 , 0.9298249E-01 , 0.9027873E-01 ,& - & 0.8772452E-01 , 0.8531312E-01 , 0.8302801E-01 , 0.8086165E-01 , 0.7880586E-01 ,& - & 0.7685187E-01 , 0.7499254E-01 , 0.7322011E-01 , 0.7152992E-01 , 0.6991670E-01 ,& - & 0.6837252E-01 , 0.6689567E-01 , 0.6548186E-01 , 0.6412625E-01 , 0.6282548E-01 ,& - & 0.6157654E-01 , 0.6037615E-01 , 0.5922183E-01 , 0.5811084E-01 , 0.5704065E-01 ,& - & 0.5600986E-01 , 0.5501495E-01 , 0.5405439E-01 , 0.5312772E-01 , 0.5223147E-01 ,& - & 0.5136536E-01 , 0.5052774E-01 , 0.4971657E-01 , 0.4893068E-01 , 0.4816965E-01 ,& - & 0.4743186E-01 , 0.4671693E-01 , 0.4602226E-01 , 0.4534837E-01 , 0.4469404E-01 ,& - & 0.4405818E-01 , 0.4344006E-01 , 0.4283890E-01 , 0.4225461E-01 , 0.4168547E-01 ,& - & 0.4113206E-01 , 0.4059239E-01 , 0.4006733E-01 , 0.3955515E-01 , 0.3905630E-01 ,& - & 0.3856979E-01 , 0.3809500E-01 , 0.3763148E-01 , 0.3717953E-01 , 0.3673821E-01 ,& - & 0.3630756E-01 , 0.3588623E-01 , 0.3547491E-01 , 0.3507269E-01 , 0.3467954E-01 ,& - & 0.3429507E-01 , 0.3391919E-01 , 0.3355136E-01 , 0.3319125E-01 , 0.3283882E-01 ,& - & 0.3249364E-01 , 0.3215581E-01 , 0.3182481E-01 , 0.3150078E-01 , 0.3118294E-01 ,& - & 0.3087150E-01 , 0.3056632E-01 , 0.3026718E-01 , 0.2997381E-01 , 0.2968591E-01 ,& - & 0.2940350E-01 , 0.2912642E-01 , 0.2885440E-01 , 0.2858759E-01 , 0.2832549E-01 ,& - & 0.2806824E-01 , 0.2781550E-01 , 0.2756732E-01 , 0.2732338E-01 , 0.2708404E-01 ,& - & 0.2684846E-01 , 0.2661720E-01 , 0.2638979E-01 , 0.2616619E-01 , 0.2594633E-01 ,& - & 0.2573024E-01 , 0.2551762E-01 , 0.2530847E-01 , 0.2510275E-01 , 0.2490017E-01 ,& - & 0.2470112E-01 , 0.2450503E-01 , 0.2431202E-01 , 0.2412208E-01 , 0.2393503E-01 ,& - & 0.2375088E-01 , 0.2356955E-01 , 0.2339095E-01 , 0.2321502E-01 , 0.2304176E-01 ,& - & 0.2287100E-01 , 0.2270278E-01 , 0.2253702E-01 , 0.2237367E-01 , 0.2221269E-01 ,& - & 0.2205391E-01 , 0.2189741E-01 , 0.2174311E-01 , 0.2159103E-01 , 0.2144115E-01 ,& - & 0.2129312E-01 , 0.2114723E-01 , 0.2100328E-01 , 0.2086126E-01 , 0.2072128E-01 ,& - & 0.2058306E-01 , 0.2044670E-01 , 0.2031208E-01 , 0.2017913E-01 , 0.2004816E-01 ,& - & 0.1991868E-01 , 0.1979091E-01 , 0.1966478E-01 , 0.1954024E-01 , 0.1941722E-01 ,& - & 0.1929585E-01 , 0.1917600E-01 , 0.1905749E-01 , 0.1894055E-01 , 0.1882499E-01 ,& - & 0.1871086E-01 , 0.1859807E-01 , 0.1848663E-01 , 0.1837651E-01 , 0.1826776E-01 ,& - & 0.1816022E-01 , 0.1805402E-01 , 0.1794893E-01 , 0.1784517E-01 , 0.1774259E-01 ,& - & 0.1764113E-01 , 0.1754093E-01 , 0.1744171E-01 , 0.1734375E-01 , 0.1724679E-01 ,& - & 0.1715084E-01 , 0.1705609E-01 , 0.1696233E-01 , 0.1686970E-01 , 0.1677797E-01 ,& - & 0.1668708E-01 , 0.1659756E-01 , 0.1650865E-01 , 0.1642090E-01 , 0.1633393E-01 ,& - & 0.1624789E-01 , 0.1616270E-01 , 0.1607844E-01 , 0.1599518E-01 , 0.1591286E-01 ,& - & 0.1583113E-01 , 0.1575019E-01 , 0.1567023E-01 , 0.1559124E-01 , 0.1551262E-01 /) - extice4(:, 25) = (/ & - & 0.3697936E+01 , 0.1768606E+01 , 0.1115521E+01 , 0.8295092E+00 , 0.6598829E+00 ,& - & 0.5465474E+00 , 0.4659038E+00 , 0.4058042E+00 , 0.3593403E+00 , 0.3223587E+00 ,& - & 0.2922416E+00 , 0.2672444E+00 , 0.2461685E+00 , 0.2281623E+00 , 0.2126039E+00 ,& - & 0.1990254E+00 , 0.1870715E+00 , 0.1764750E+00 , 0.1669994E+00 , 0.1584899E+00 ,& - & 0.1508021E+00 , 0.1438276E+00 , 0.1374620E+00 , 0.1316302E+00 , 0.1262766E+00 ,& - & 0.1213371E+00 , 0.1167670E+00 , 0.1125258E+00 , 0.1085817E+00 , 0.1049038E+00 ,& - & 0.1014686E+00 , 0.9824804E-01 , 0.9522388E-01 , 0.9238140E-01 , 0.8970495E-01 ,& - & 0.8717656E-01 , 0.8478913E-01 , 0.8252677E-01 , 0.8038238E-01 , 0.7834745E-01 ,& - & 0.7641292E-01 , 0.7457178E-01 , 0.7281704E-01 , 0.7114337E-01 , 0.6954630E-01 ,& - & 0.6801687E-01 , 0.6655483E-01 , 0.6515423E-01 , 0.6381130E-01 , 0.6252270E-01 ,& - & 0.6128514E-01 , 0.6009571E-01 , 0.5895163E-01 , 0.5785022E-01 , 0.5678899E-01 ,& - & 0.5576711E-01 , 0.5478024E-01 , 0.5382720E-01 , 0.5290805E-01 , 0.5201880E-01 ,& - & 0.5115897E-01 , 0.5032765E-01 , 0.4952236E-01 , 0.4874193E-01 , 0.4798617E-01 ,& - & 0.4725328E-01 , 0.4654308E-01 , 0.4585279E-01 , 0.4518314E-01 , 0.4453272E-01 ,& - & 0.4390087E-01 , 0.4328644E-01 , 0.4268866E-01 , 0.4210785E-01 , 0.4154170E-01 ,& - & 0.4099140E-01 , 0.4045457E-01 , 0.3993245E-01 , 0.3942278E-01 , 0.3892654E-01 ,& - & 0.3844239E-01 , 0.3796992E-01 , 0.3750864E-01 , 0.3705889E-01 , 0.3661972E-01 ,& - & 0.3619098E-01 , 0.3577171E-01 , 0.3536238E-01 , 0.3496195E-01 , 0.3457054E-01 ,& - & 0.3418778E-01 , 0.3381358E-01 , 0.3344737E-01 , 0.3308887E-01 , 0.3273784E-01 ,& - & 0.3239435E-01 , 0.3205802E-01 , 0.3172834E-01 , 0.3140575E-01 , 0.3108917E-01 ,& - & 0.3077927E-01 , 0.3047530E-01 , 0.3017734E-01 , 0.2988543E-01 , 0.2959866E-01 ,& - & 0.2931752E-01 , 0.2904153E-01 , 0.2877072E-01 , 0.2850497E-01 , 0.2824403E-01 ,& - & 0.2798793E-01 , 0.2773633E-01 , 0.2748913E-01 , 0.2724628E-01 , 0.2700787E-01 ,& - & 0.2677349E-01 , 0.2654314E-01 , 0.2631674E-01 , 0.2609401E-01 , 0.2587514E-01 ,& - & 0.2565990E-01 , 0.2544823E-01 , 0.2524002E-01 , 0.2503510E-01 , 0.2483356E-01 ,& - & 0.2463516E-01 , 0.2443996E-01 , 0.2424781E-01 , 0.2405861E-01 , 0.2387252E-01 ,& - & 0.2368909E-01 , 0.2350846E-01 , 0.2333067E-01 , 0.2315553E-01 , 0.2298295E-01 ,& - & 0.2281285E-01 , 0.2264538E-01 , 0.2248026E-01 , 0.2231755E-01 , 0.2215719E-01 ,& - & 0.2199913E-01 , 0.2184334E-01 , 0.2168963E-01 , 0.2153814E-01 , 0.2138884E-01 ,& - & 0.2124148E-01 , 0.2109616E-01 , 0.2095276E-01 , 0.2081139E-01 , 0.2067185E-01 ,& - & 0.2053426E-01 , 0.2039833E-01 , 0.2026432E-01 , 0.2013188E-01 , 0.2000131E-01 ,& - & 0.1987234E-01 , 0.1974506E-01 , 0.1961942E-01 , 0.1949535E-01 , 0.1937291E-01 ,& - & 0.1925191E-01 , 0.1913242E-01 , 0.1901447E-01 , 0.1889788E-01 , 0.1878276E-01 ,& - & 0.1866908E-01 , 0.1855663E-01 , 0.1844562E-01 , 0.1833592E-01 , 0.1822751E-01 ,& - & 0.1812038E-01 , 0.1801450E-01 , 0.1790981E-01 , 0.1780637E-01 , 0.1770419E-01 ,& - & 0.1760304E-01 , 0.1750314E-01 , 0.1740430E-01 , 0.1730664E-01 , 0.1721006E-01 ,& - & 0.1711440E-01 , 0.1701993E-01 , 0.1692654E-01 , 0.1683410E-01 , 0.1674273E-01 ,& - & 0.1665211E-01 , 0.1656286E-01 , 0.1647430E-01 , 0.1638682E-01 , 0.1630011E-01 ,& - & 0.1621433E-01 , 0.1612939E-01 , 0.1604531E-01 , 0.1596229E-01 , 0.1588022E-01 ,& - & 0.1579881E-01 , 0.1571804E-01 , 0.1563832E-01 , 0.1555957E-01 , 0.1548118E-01 /) - extice4(:, 26) = (/ & - & 0.3713709E+01 , 0.1690972E+01 , 0.1108904E+01 , 0.8237085E+00 , 0.6531167E+00 ,& - & 0.5406566E+00 , 0.4611393E+00 , 0.4019442E+00 , 0.3561546E+00 , 0.3196800E+00 ,& - & 0.2899511E+00 , 0.2652555E+00 , 0.2444193E+00 , 0.2266076E+00 , 0.2112074E+00 ,& - & 0.1977606E+00 , 0.1859201E+00 , 0.1754203E+00 , 0.1660294E+00 , 0.1575963E+00 ,& - & 0.1499782E+00 , 0.1430658E+00 , 0.1367587E+00 , 0.1309794E+00 , 0.1256754E+00 ,& - & 0.1207804E+00 , 0.1162521E+00 , 0.1120480E+00 , 0.1081386E+00 , 0.1044924E+00 ,& - & 0.1010854E+00 , 0.9789031E-01 , 0.9488917E-01 , 0.9206744E-01 , 0.8940967E-01 ,& - & 0.8689763E-01 , 0.8452526E-01 , 0.8227635E-01 , 0.8014352E-01 , 0.7811920E-01 ,& - & 0.7619439E-01 , 0.7436213E-01 , 0.7261478E-01 , 0.7094852E-01 , 0.6935748E-01 ,& - & 0.6783386E-01 , 0.6637669E-01 , 0.6498108E-01 , 0.6364264E-01 , 0.6235803E-01 ,& - & 0.6112400E-01 , 0.5993826E-01 , 0.5879746E-01 , 0.5769918E-01 , 0.5664097E-01 ,& - & 0.5562172E-01 , 0.5463769E-01 , 0.5368736E-01 , 0.5277033E-01 , 0.5188362E-01 ,& - & 0.5102627E-01 , 0.5019710E-01 , 0.4939412E-01 , 0.4861593E-01 , 0.4786235E-01 ,& - & 0.4713156E-01 , 0.4642364E-01 , 0.4573511E-01 , 0.4506762E-01 , 0.4441928E-01 ,& - & 0.4378926E-01 , 0.4317658E-01 , 0.4258095E-01 , 0.4200201E-01 , 0.4143769E-01 ,& - & 0.4088916E-01 , 0.4035445E-01 , 0.3983382E-01 , 0.3932617E-01 , 0.3883153E-01 ,& - & 0.3834913E-01 , 0.3787835E-01 , 0.3741893E-01 , 0.3697080E-01 , 0.3653321E-01 ,& - & 0.3610620E-01 , 0.3568843E-01 , 0.3528057E-01 , 0.3488176E-01 , 0.3449193E-01 ,& - & 0.3411071E-01 , 0.3373784E-01 , 0.3337312E-01 , 0.3301606E-01 , 0.3266645E-01 ,& - & 0.3232419E-01 , 0.3198923E-01 , 0.3166103E-01 , 0.3133959E-01 , 0.3102429E-01 ,& - & 0.3071549E-01 , 0.3041290E-01 , 0.3011600E-01 , 0.2982512E-01 , 0.2953952E-01 ,& - & 0.2925951E-01 , 0.2898465E-01 , 0.2871494E-01 , 0.2845012E-01 , 0.2819025E-01 ,& - & 0.2793505E-01 , 0.2768433E-01 , 0.2743813E-01 , 0.2719628E-01 , 0.2695870E-01 ,& - & 0.2672515E-01 , 0.2649561E-01 , 0.2627000E-01 , 0.2604818E-01 , 0.2583009E-01 ,& - & 0.2561560E-01 , 0.2540467E-01 , 0.2519719E-01 , 0.2499299E-01 , 0.2479216E-01 ,& - & 0.2459446E-01 , 0.2439994E-01 , 0.2420847E-01 , 0.2401981E-01 , 0.2383426E-01 ,& - & 0.2365147E-01 , 0.2347148E-01 , 0.2329420E-01 , 0.2311968E-01 , 0.2294759E-01 ,& - & 0.2277809E-01 , 0.2261099E-01 , 0.2244645E-01 , 0.2228432E-01 , 0.2212442E-01 ,& - & 0.2196681E-01 , 0.2181147E-01 , 0.2165820E-01 , 0.2150714E-01 , 0.2135826E-01 ,& - & 0.2121133E-01 , 0.2106642E-01 , 0.2092343E-01 , 0.2078247E-01 , 0.2064332E-01 ,& - & 0.2050602E-01 , 0.2037048E-01 , 0.2023686E-01 , 0.2010469E-01 , 0.1997460E-01 ,& - & 0.1984590E-01 , 0.1971898E-01 , 0.1959370E-01 , 0.1946999E-01 , 0.1934771E-01 ,& - & 0.1922706E-01 , 0.1910791E-01 , 0.1899021E-01 , 0.1887396E-01 , 0.1875907E-01 ,& - & 0.1864563E-01 , 0.1853350E-01 , 0.1842282E-01 , 0.1831334E-01 , 0.1820515E-01 ,& - & 0.1809834E-01 , 0.1799268E-01 , 0.1788820E-01 , 0.1778506E-01 , 0.1768309E-01 ,& - & 0.1758215E-01 , 0.1748254E-01 , 0.1738383E-01 , 0.1728644E-01 , 0.1719006E-01 ,& - & 0.1709468E-01 , 0.1700041E-01 , 0.1690712E-01 , 0.1681496E-01 , 0.1672378E-01 ,& - & 0.1663334E-01 , 0.1654427E-01 , 0.1645598E-01 , 0.1636867E-01 , 0.1628214E-01 ,& - & 0.1619654E-01 , 0.1611177E-01 , 0.1602794E-01 , 0.1594509E-01 , 0.1586319E-01 ,& - & 0.1578195E-01 , 0.1570134E-01 , 0.1562186E-01 , 0.1554319E-01 , 0.1546504E-01 /) - extice4(:, 27) = (/ & - & 0.3515744E+01 , 0.1679518E+01 , 0.1106005E+01 , 0.8205456E+00 , 0.6509200E+00 ,& - & 0.5389830E+00 , 0.4596938E+00 , 0.4006369E+00 , 0.3549737E+00 , 0.3186234E+00 ,& - & 0.2890102E+00 , 0.2644200E+00 , 0.2436766E+00 , 0.2259466E+00 , 0.2106173E+00 ,& - & 0.1972325E+00 , 0.1854458E+00 , 0.1749928E+00 , 0.1656424E+00 , 0.1572441E+00 ,& - & 0.1496553E+00 , 0.1427687E+00 , 0.1364827E+00 , 0.1307226E+00 , 0.1254338E+00 ,& - & 0.1205528E+00 , 0.1160370E+00 , 0.1118438E+00 , 0.1079436E+00 , 0.1043065E+00 ,& - & 0.1009075E+00 , 0.9771990E-01 , 0.9472628E-01 , 0.9191114E-01 , 0.8926004E-01 ,& - & 0.8675431E-01 , 0.8438747E-01 , 0.8214422E-01 , 0.8001716E-01 , 0.7799793E-01 ,& - & 0.7607797E-01 , 0.7425031E-01 , 0.7250772E-01 , 0.7084529E-01 , 0.6925827E-01 ,& - & 0.6773882E-01 , 0.6628531E-01 , 0.6489290E-01 , 0.6355783E-01 , 0.6227646E-01 ,& - & 0.6104585E-01 , 0.5986280E-01 , 0.5872458E-01 , 0.5762908E-01 , 0.5657328E-01 ,& - & 0.5555663E-01 , 0.5457481E-01 , 0.5362663E-01 , 0.5271194E-01 , 0.5182698E-01 ,& - & 0.5097182E-01 , 0.5014452E-01 , 0.4934312E-01 , 0.4856693E-01 , 0.4781482E-01 ,& - & 0.4708568E-01 , 0.4637915E-01 , 0.4569240E-01 , 0.4502620E-01 , 0.4437934E-01 ,& - & 0.4375074E-01 , 0.4313925E-01 , 0.4254476E-01 , 0.4196694E-01 , 0.4140391E-01 ,& - & 0.4085644E-01 , 0.4032255E-01 , 0.3980313E-01 , 0.3929625E-01 , 0.3880256E-01 ,& - & 0.3832109E-01 , 0.3785123E-01 , 0.3739251E-01 , 0.3694505E-01 , 0.3650813E-01 ,& - & 0.3608177E-01 , 0.3566463E-01 , 0.3525740E-01 , 0.3485902E-01 , 0.3446979E-01 ,& - & 0.3408898E-01 , 0.3371669E-01 , 0.3335236E-01 , 0.3299569E-01 , 0.3264645E-01 ,& - & 0.3230456E-01 , 0.3196996E-01 , 0.3164196E-01 , 0.3132086E-01 , 0.3100575E-01 ,& - & 0.3069730E-01 , 0.3039488E-01 , 0.3009830E-01 , 0.2980759E-01 , 0.2952215E-01 ,& - & 0.2924217E-01 , 0.2896746E-01 , 0.2869777E-01 , 0.2843311E-01 , 0.2817340E-01 ,& - & 0.2791821E-01 , 0.2766764E-01 , 0.2742146E-01 , 0.2717961E-01 , 0.2694218E-01 ,& - & 0.2670850E-01 , 0.2647910E-01 , 0.2625350E-01 , 0.2603170E-01 , 0.2581361E-01 ,& - & 0.2559913E-01 , 0.2538821E-01 , 0.2518062E-01 , 0.2497642E-01 , 0.2477548E-01 ,& - & 0.2457791E-01 , 0.2438327E-01 , 0.2419169E-01 , 0.2400317E-01 , 0.2381751E-01 ,& - & 0.2363472E-01 , 0.2345475E-01 , 0.2327748E-01 , 0.2310273E-01 , 0.2293065E-01 ,& - & 0.2276116E-01 , 0.2259408E-01 , 0.2242944E-01 , 0.2226720E-01 , 0.2210742E-01 ,& - & 0.2194972E-01 , 0.2179428E-01 , 0.2164113E-01 , 0.2148997E-01 , 0.2134111E-01 ,& - & 0.2119419E-01 , 0.2104919E-01 , 0.2090621E-01 , 0.2076516E-01 , 0.2062602E-01 ,& - & 0.2048873E-01 , 0.2035320E-01 , 0.2021949E-01 , 0.2008744E-01 , 0.1995726E-01 ,& - & 0.1982857E-01 , 0.1970166E-01 , 0.1957640E-01 , 0.1945260E-01 , 0.1933043E-01 ,& - & 0.1920979E-01 , 0.1909065E-01 , 0.1897296E-01 , 0.1885672E-01 , 0.1874185E-01 ,& - & 0.1862841E-01 , 0.1851630E-01 , 0.1840553E-01 , 0.1829616E-01 , 0.1818798E-01 ,& - & 0.1808118E-01 , 0.1797552E-01 , 0.1787115E-01 , 0.1776802E-01 , 0.1766606E-01 ,& - & 0.1756512E-01 , 0.1746552E-01 , 0.1736690E-01 , 0.1726953E-01 , 0.1717324E-01 ,& - & 0.1707787E-01 , 0.1698360E-01 , 0.1689041E-01 , 0.1679834E-01 , 0.1670716E-01 ,& - & 0.1661682E-01 , 0.1652775E-01 , 0.1643946E-01 , 0.1635216E-01 , 0.1626571E-01 ,& - & 0.1618020E-01 , 0.1609552E-01 , 0.1601169E-01 , 0.1592885E-01 , 0.1584702E-01 ,& - & 0.1576579E-01 , 0.1568534E-01 , 0.1560587E-01 , 0.1552728E-01 , 0.1544913E-01 /) - extice4(:, 28) = (/ & - & 0.3275436E+01 , 0.1633360E+01 , 0.1077385E+01 , 0.8017917E+00 , 0.6382249E+00 ,& - & 0.5298043E+00 , 0.4526385E+00 , 0.3949714E+00 , 0.3502861E+00 , 0.3146610E+00 ,& - & 0.2856088E+00 , 0.2614656E+00 , 0.2410873E+00 , 0.2236571E+00 , 0.2085771E+00 ,& - & 0.1954028E+00 , 0.1837920E+00 , 0.1734900E+00 , 0.1642676E+00 , 0.1559796E+00 ,& - & 0.1484856E+00 , 0.1416817E+00 , 0.1354685E+00 , 0.1297719E+00 , 0.1245402E+00 ,& - & 0.1197103E+00 , 0.1152399E+00 , 0.1110885E+00 , 0.1072266E+00 , 0.1036247E+00 ,& - & 0.1002581E+00 , 0.9710101E-01 , 0.9413552E-01 , 0.9134683E-01 , 0.8872025E-01 ,& - & 0.8623767E-01 , 0.8389272E-01 , 0.8166981E-01 , 0.7956205E-01 , 0.7756115E-01 ,& - & 0.7565861E-01 , 0.7384720E-01 , 0.7211972E-01 , 0.7047174E-01 , 0.6889849E-01 ,& - & 0.6739190E-01 , 0.6595072E-01 , 0.6457011E-01 , 0.6324603E-01 , 0.6197523E-01 ,& - & 0.6075416E-01 , 0.5958087E-01 , 0.5845147E-01 , 0.5736447E-01 , 0.5631685E-01 ,& - & 0.5530781E-01 , 0.5433333E-01 , 0.5339199E-01 , 0.5248414E-01 , 0.5160556E-01 ,& - & 0.5075631E-01 , 0.4993473E-01 , 0.4913910E-01 , 0.4836803E-01 , 0.4762113E-01 ,& - & 0.4689680E-01 , 0.4619492E-01 , 0.4551271E-01 , 0.4485068E-01 , 0.4420787E-01 ,& - & 0.4358321E-01 , 0.4297576E-01 , 0.4238499E-01 , 0.4181058E-01 , 0.4125108E-01 ,& - & 0.4070684E-01 , 0.4017610E-01 , 0.3965973E-01 , 0.3915585E-01 , 0.3866508E-01 ,& - & 0.3818625E-01 , 0.3771917E-01 , 0.3726296E-01 , 0.3681816E-01 , 0.3638363E-01 ,& - & 0.3595962E-01 , 0.3554478E-01 , 0.3513996E-01 , 0.3474377E-01 , 0.3435650E-01 ,& - & 0.3397796E-01 , 0.3360755E-01 , 0.3324522E-01 , 0.3289051E-01 , 0.3254320E-01 ,& - & 0.3220303E-01 , 0.3187010E-01 , 0.3154391E-01 , 0.3122459E-01 , 0.3091121E-01 ,& - & 0.3060430E-01 , 0.3030341E-01 , 0.3000847E-01 , 0.2971921E-01 , 0.2943521E-01 ,& - & 0.2915677E-01 , 0.2888344E-01 , 0.2861525E-01 , 0.2835190E-01 , 0.2809349E-01 ,& - & 0.2783972E-01 , 0.2759026E-01 , 0.2734545E-01 , 0.2710481E-01 , 0.2686857E-01 ,& - & 0.2663619E-01 , 0.2640780E-01 , 0.2618333E-01 , 0.2596264E-01 , 0.2574564E-01 ,& - & 0.2553223E-01 , 0.2532236E-01 , 0.2511581E-01 , 0.2491263E-01 , 0.2471270E-01 ,& - & 0.2451599E-01 , 0.2432245E-01 , 0.2413183E-01 , 0.2394413E-01 , 0.2375940E-01 ,& - & 0.2357741E-01 , 0.2339834E-01 , 0.2322184E-01 , 0.2304797E-01 , 0.2287675E-01 ,& - & 0.2270800E-01 , 0.2254176E-01 , 0.2237784E-01 , 0.2221641E-01 , 0.2205722E-01 ,& - & 0.2190030E-01 , 0.2174565E-01 , 0.2159306E-01 , 0.2144266E-01 , 0.2129444E-01 ,& - & 0.2114816E-01 , 0.2100379E-01 , 0.2086143E-01 , 0.2072099E-01 , 0.2058245E-01 ,& - & 0.2044576E-01 , 0.2031082E-01 , 0.2017769E-01 , 0.2004611E-01 , 0.1991650E-01 ,& - & 0.1978836E-01 , 0.1966201E-01 , 0.1953719E-01 , 0.1941393E-01 , 0.1929219E-01 ,& - & 0.1917208E-01 , 0.1905337E-01 , 0.1893619E-01 , 0.1882036E-01 , 0.1870599E-01 ,& - & 0.1859296E-01 , 0.1848133E-01 , 0.1837096E-01 , 0.1826197E-01 , 0.1815427E-01 ,& - & 0.1804775E-01 , 0.1794256E-01 , 0.1783856E-01 , 0.1773579E-01 , 0.1763419E-01 ,& - & 0.1753361E-01 , 0.1743437E-01 , 0.1733609E-01 , 0.1723906E-01 , 0.1714303E-01 ,& - & 0.1704799E-01 , 0.1695415E-01 , 0.1686129E-01 , 0.1676946E-01 , 0.1667860E-01 ,& - & 0.1658849E-01 , 0.1649975E-01 , 0.1641177E-01 , 0.1632478E-01 , 0.1623856E-01 ,& - & 0.1615335E-01 , 0.1606889E-01 , 0.1598528E-01 , 0.1590281E-01 , 0.1582120E-01 ,& - & 0.1574025E-01 , 0.1565994E-01 , 0.1558074E-01 , 0.1550236E-01 , 0.1542449E-01 /) - extice4(:, 29) = (/ & - & 0.1908497E+00 , 0.3805395E+00 , 0.4949888E+00 , 0.5340181E+00 , 0.5274293E+00 ,& - & 0.4988388E+00 , 0.4617307E+00 , 0.4229380E+00 , 0.3856946E+00 , 0.3514130E+00 ,& - & 0.3206082E+00 , 0.2933168E+00 , 0.2693392E+00 , 0.2483671E+00 , 0.2300456E+00 ,& - & 0.2140234E+00 , 0.1999723E+00 , 0.1876091E+00 , 0.1766584E+00 , 0.1669276E+00 ,& - & 0.1582281E+00 , 0.1504157E+00 , 0.1433538E+00 , 0.1369384E+00 , 0.1310959E+00 ,& - & 0.1257422E+00 , 0.1208190E+00 , 0.1162741E+00 , 0.1120671E+00 , 0.1081608E+00 ,& - & 0.1045239E+00 , 0.1011248E+00 , 0.9794132E-01 , 0.9495574E-01 , 0.9215017E-01 ,& - & 0.8950404E-01 , 0.8700949E-01 , 0.8464843E-01 , 0.8241317E-01 , 0.8029388E-01 ,& - & 0.7828099E-01 , 0.7636706E-01 , 0.7454397E-01 , 0.7280648E-01 , 0.7114913E-01 ,& - & 0.6956335E-01 , 0.6804769E-01 , 0.6659668E-01 , 0.6520603E-01 , 0.6387223E-01 ,& - & 0.6259155E-01 , 0.6136125E-01 , 0.6017844E-01 , 0.5904000E-01 , 0.5794365E-01 ,& - & 0.5688820E-01 , 0.5586947E-01 , 0.5488591E-01 , 0.5393731E-01 , 0.5302008E-01 ,& - & 0.5213371E-01 , 0.5127672E-01 , 0.5044680E-01 , 0.4964297E-01 , 0.4886457E-01 ,& - & 0.4811016E-01 , 0.4737912E-01 , 0.4666880E-01 , 0.4597994E-01 , 0.4531129E-01 ,& - & 0.4466152E-01 , 0.4402987E-01 , 0.4341577E-01 , 0.4281909E-01 , 0.4223768E-01 ,& - & 0.4167234E-01 , 0.4112143E-01 , 0.4058543E-01 , 0.4006259E-01 , 0.3955334E-01 ,& - & 0.3905668E-01 , 0.3857239E-01 , 0.3809957E-01 , 0.3763837E-01 , 0.3718839E-01 ,& - & 0.3674909E-01 , 0.3631949E-01 , 0.3590008E-01 , 0.3549014E-01 , 0.3508926E-01 ,& - & 0.3469757E-01 , 0.3431446E-01 , 0.3393972E-01 , 0.3357286E-01 , 0.3321380E-01 ,& - & 0.3286230E-01 , 0.3251828E-01 , 0.3218121E-01 , 0.3185124E-01 , 0.3152774E-01 ,& - & 0.3121090E-01 , 0.3090027E-01 , 0.3059579E-01 , 0.3029733E-01 , 0.3000443E-01 ,& - & 0.2971712E-01 , 0.2943538E-01 , 0.2915878E-01 , 0.2888734E-01 , 0.2862097E-01 ,& - & 0.2835938E-01 , 0.2810253E-01 , 0.2785031E-01 , 0.2760240E-01 , 0.2735914E-01 ,& - & 0.2711987E-01 , 0.2688484E-01 , 0.2665384E-01 , 0.2642673E-01 , 0.2620341E-01 ,& - & 0.2598392E-01 , 0.2576808E-01 , 0.2555564E-01 , 0.2534667E-01 , 0.2514116E-01 ,& - & 0.2493897E-01 , 0.2473992E-01 , 0.2454410E-01 , 0.2435128E-01 , 0.2416152E-01 ,& - & 0.2397469E-01 , 0.2379063E-01 , 0.2360943E-01 , 0.2343094E-01 , 0.2325517E-01 ,& - & 0.2308194E-01 , 0.2291127E-01 , 0.2274310E-01 , 0.2257738E-01 , 0.2241418E-01 ,& - & 0.2225309E-01 , 0.2209443E-01 , 0.2193799E-01 , 0.2178381E-01 , 0.2163175E-01 ,& - & 0.2148178E-01 , 0.2133387E-01 , 0.2118793E-01 , 0.2104395E-01 , 0.2090202E-01 ,& - & 0.2076188E-01 , 0.2062364E-01 , 0.2048726E-01 , 0.2035246E-01 , 0.2021968E-01 ,& - & 0.2008851E-01 , 0.1995897E-01 , 0.1983119E-01 , 0.1970501E-01 , 0.1958039E-01 ,& - & 0.1945734E-01 , 0.1933591E-01 , 0.1921586E-01 , 0.1909739E-01 , 0.1898031E-01 ,& - & 0.1886469E-01 , 0.1875042E-01 , 0.1863753E-01 , 0.1852596E-01 , 0.1841579E-01 ,& - & 0.1830684E-01 , 0.1819925E-01 , 0.1809287E-01 , 0.1798775E-01 , 0.1788383E-01 ,& - & 0.1778104E-01 , 0.1767953E-01 , 0.1757909E-01 , 0.1747984E-01 , 0.1738170E-01 ,& - & 0.1728458E-01 , 0.1718858E-01 , 0.1709368E-01 , 0.1699984E-01 , 0.1690698E-01 ,& - & 0.1681490E-01 , 0.1672428E-01 , 0.1663429E-01 , 0.1654547E-01 , 0.1645735E-01 ,& - & 0.1637027E-01 , 0.1628403E-01 , 0.1619866E-01 , 0.1611438E-01 , 0.1603106E-01 ,& - & 0.1594833E-01 , 0.1586641E-01 , 0.1578547E-01 , 0.1570551E-01 , 0.1562593E-01 /) - ssaice4(:, 16) = (/ & - & 0.5427927E+00 , 0.6971002E+00 , 0.7333586E+00 , 0.7383546E+00 , 0.7319084E+00 ,& - & 0.7207797E+00 , 0.7079853E+00 , 0.6951566E+00 , 0.6832373E+00 , 0.6727153E+00 ,& - & 0.6637468E+00 , 0.6562530E+00 , 0.6500300E+00 , 0.6448258E+00 , 0.6404006E+00 ,& - & 0.6365653E+00 , 0.6331491E+00 , 0.6300548E+00 , 0.6271985E+00 , 0.6245189E+00 ,& - & 0.6219917E+00 , 0.6195887E+00 , 0.6172876E+00 , 0.6150829E+00 , 0.6129715E+00 ,& - & 0.6109371E+00 , 0.6089858E+00 , 0.6071011E+00 , 0.6052884E+00 , 0.6035461E+00 ,& - & 0.6018651E+00 , 0.6002488E+00 , 0.5986898E+00 , 0.5971789E+00 , 0.5957298E+00 ,& - & 0.5943226E+00 , 0.5929702E+00 , 0.5916611E+00 , 0.5903956E+00 , 0.5891690E+00 ,& - & 0.5879845E+00 , 0.5868421E+00 , 0.5857351E+00 , 0.5846582E+00 , 0.5836151E+00 ,& - & 0.5826049E+00 , 0.5816239E+00 , 0.5806742E+00 , 0.5797538E+00 , 0.5788579E+00 ,& - & 0.5779887E+00 , 0.5771471E+00 , 0.5763254E+00 , 0.5755286E+00 , 0.5747546E+00 ,& - & 0.5739959E+00 , 0.5732650E+00 , 0.5725522E+00 , 0.5718549E+00 , 0.5711786E+00 ,& - & 0.5705226E+00 , 0.5698780E+00 , 0.5692566E+00 , 0.5686439E+00 , 0.5680524E+00 ,& - & 0.5674744E+00 , 0.5669100E+00 , 0.5663620E+00 , 0.5658256E+00 , 0.5653028E+00 ,& - & 0.5647966E+00 , 0.5642970E+00 , 0.5638112E+00 , 0.5633370E+00 , 0.5628745E+00 ,& - & 0.5624236E+00 , 0.5619797E+00 , 0.5615494E+00 , 0.5611288E+00 , 0.5607150E+00 ,& - & 0.5603102E+00 , 0.5599151E+00 , 0.5595317E+00 , 0.5591579E+00 , 0.5587882E+00 ,& - & 0.5584304E+00 , 0.5580773E+00 , 0.5577312E+00 , 0.5573969E+00 , 0.5570673E+00 ,& - & 0.5567420E+00 , 0.5564291E+00 , 0.5561155E+00 , 0.5558165E+00 , 0.5555196E+00 ,& - & 0.5552275E+00 , 0.5549424E+00 , 0.5546643E+00 , 0.5543909E+00 , 0.5541197E+00 ,& - & 0.5538582E+00 , 0.5536038E+00 , 0.5533493E+00 , 0.5531017E+00 , 0.5528640E+00 ,& - & 0.5526261E+00 , 0.5523927E+00 , 0.5521618E+00 , 0.5519380E+00 , 0.5517191E+00 ,& - & 0.5515022E+00 , 0.5512925E+00 , 0.5510854E+00 , 0.5508805E+00 , 0.5506777E+00 ,& - & 0.5504875E+00 , 0.5502945E+00 , 0.5501035E+00 , 0.5499176E+00 , 0.5497364E+00 ,& - & 0.5495553E+00 , 0.5493813E+00 , 0.5492072E+00 , 0.5490379E+00 , 0.5488709E+00 ,& - & 0.5487088E+00 , 0.5485516E+00 , 0.5483915E+00 , 0.5482364E+00 , 0.5480813E+00 ,& - & 0.5479360E+00 , 0.5477880E+00 , 0.5476399E+00 , 0.5475017E+00 , 0.5473635E+00 ,& - & 0.5472224E+00 , 0.5470864E+00 , 0.5469552E+00 , 0.5468240E+00 , 0.5466950E+00 ,& - & 0.5465736E+00 , 0.5464495E+00 , 0.5463227E+00 , 0.5462035E+00 , 0.5460865E+00 ,& - & 0.5459722E+00 , 0.5458551E+00 , 0.5457403E+00 , 0.5456331E+00 , 0.5455259E+00 ,& - & 0.5454159E+00 , 0.5453109E+00 , 0.5452059E+00 , 0.5451058E+00 , 0.5450030E+00 ,& - & 0.5449078E+00 , 0.5448099E+00 , 0.5447119E+00 , 0.5446190E+00 , 0.5445259E+00 ,& - & 0.5444351E+00 , 0.5443470E+00 , 0.5442563E+00 , 0.5441654E+00 , 0.5440795E+00 ,& - & 0.5439986E+00 , 0.5439127E+00 , 0.5438290E+00 , 0.5437530E+00 , 0.5436693E+00 ,& - & 0.5435932E+00 , 0.5435145E+00 , 0.5434406E+00 , 0.5433641E+00 , 0.5432903E+00 ,& - & 0.5432164E+00 , 0.5431448E+00 , 0.5430759E+00 , 0.5430042E+00 , 0.5429376E+00 ,& - & 0.5428659E+00 , 0.5428041E+00 , 0.5427374E+00 , 0.5426680E+00 , 0.5426062E+00 ,& - & 0.5425444E+00 , 0.5424800E+00 , 0.5424204E+00 , 0.5423609E+00 , 0.5423014E+00 ,& - & 0.5422418E+00 , 0.5421822E+00 , 0.5421276E+00 , 0.5420730E+00 , 0.5420157E+00 ,& - & 0.5419610E+00 , 0.5419037E+00 , 0.5418540E+00 , 0.5418016E+00 , 0.5417492E+00 /) - ssaice4(:, 17) = (/ & - & 0.3538244E+00 , 0.5912308E+00 , 0.6984357E+00 , 0.7494444E+00 , 0.7754027E+00 ,& - & 0.7890396E+00 , 0.7960014E+00 , 0.7990188E+00 , 0.7995591E+00 , 0.7985084E+00 ,& - & 0.7964439E+00 , 0.7937754E+00 , 0.7907903E+00 , 0.7877069E+00 , 0.7846487E+00 ,& - & 0.7817183E+00 , 0.7789533E+00 , 0.7763775E+00 , 0.7739809E+00 , 0.7717634E+00 ,& - & 0.7696950E+00 , 0.7677569E+00 , 0.7659325E+00 , 0.7641926E+00 , 0.7625340E+00 ,& - & 0.7609313E+00 , 0.7593802E+00 , 0.7578622E+00 , 0.7563848E+00 , 0.7549369E+00 ,& - & 0.7535120E+00 , 0.7521076E+00 , 0.7507209E+00 , 0.7493593E+00 , 0.7480114E+00 ,& - & 0.7466858E+00 , 0.7453751E+00 , 0.7440841E+00 , 0.7428102E+00 , 0.7415573E+00 ,& - & 0.7403191E+00 , 0.7391030E+00 , 0.7378979E+00 , 0.7367126E+00 , 0.7355521E+00 ,& - & 0.7343989E+00 , 0.7332705E+00 , 0.7321546E+00 , 0.7310548E+00 , 0.7299726E+00 ,& - & 0.7289065E+00 , 0.7278568E+00 , 0.7268195E+00 , 0.7257950E+00 , 0.7247853E+00 ,& - & 0.7237934E+00 , 0.7228078E+00 , 0.7218348E+00 , 0.7208819E+00 , 0.7199354E+00 ,& - & 0.7190017E+00 , 0.7180779E+00 , 0.7171691E+00 , 0.7162632E+00 , 0.7153723E+00 ,& - & 0.7144914E+00 , 0.7136134E+00 , 0.7127540E+00 , 0.7118961E+00 , 0.7110531E+00 ,& - & 0.7102153E+00 , 0.7093838E+00 , 0.7085624E+00 , 0.7077512E+00 , 0.7069448E+00 ,& - & 0.7061486E+00 , 0.7053573E+00 , 0.7045711E+00 , 0.7037950E+00 , 0.7030238E+00 ,& - & 0.7022592E+00 , 0.7015031E+00 , 0.7007520E+00 , 0.7000060E+00 , 0.6992700E+00 ,& - & 0.6985341E+00 , 0.6978081E+00 , 0.6970872E+00 , 0.6963713E+00 , 0.6956639E+00 ,& - & 0.6949581E+00 , 0.6942573E+00 , 0.6935650E+00 , 0.6928777E+00 , 0.6921869E+00 ,& - & 0.6915097E+00 , 0.6908374E+00 , 0.6901702E+00 , 0.6895080E+00 , 0.6888458E+00 ,& - & 0.6881936E+00 , 0.6875414E+00 , 0.6868977E+00 , 0.6862555E+00 , 0.6856184E+00 ,& - & 0.6849897E+00 , 0.6843626E+00 , 0.6837389E+00 , 0.6831169E+00 , 0.6825082E+00 ,& - & 0.6818911E+00 , 0.6812875E+00 , 0.6806889E+00 , 0.6800869E+00 , 0.6794933E+00 ,& - & 0.6789047E+00 , 0.6783161E+00 , 0.6777341E+00 , 0.6771556E+00 , 0.6765770E+00 ,& - & 0.6760084E+00 , 0.6754399E+00 , 0.6748763E+00 , 0.6743178E+00 , 0.6737593E+00 ,& - & 0.6732023E+00 , 0.6726539E+00 , 0.6721103E+00 , 0.6715668E+00 , 0.6710283E+00 ,& - & 0.6704898E+00 , 0.6699563E+00 , 0.6694279E+00 , 0.6689044E+00 , 0.6683809E+00 ,& - & 0.6678591E+00 , 0.6673407E+00 , 0.6668272E+00 , 0.6663188E+00 , 0.6658103E+00 ,& - & 0.6653069E+00 , 0.6648035E+00 , 0.6643101E+00 , 0.6638083E+00 , 0.6633199E+00 ,& - & 0.6628265E+00 , 0.6623431E+00 , 0.6618598E+00 , 0.6613730E+00 , 0.6608997E+00 ,& - & 0.6604213E+00 , 0.6599529E+00 , 0.6594796E+00 , 0.6590129E+00 , 0.6585495E+00 ,& - & 0.6580862E+00 , 0.6576279E+00 , 0.6571662E+00 , 0.6567129E+00 , 0.6562646E+00 ,& - & 0.6558163E+00 , 0.6553697E+00 , 0.6549264E+00 , 0.6544830E+00 , 0.6540415E+00 ,& - & 0.6536082E+00 , 0.6531749E+00 , 0.6527383E+00 , 0.6523101E+00 , 0.6518868E+00 ,& - & 0.6514602E+00 , 0.6510370E+00 , 0.6506187E+00 , 0.6501972E+00 , 0.6497840E+00 ,& - & 0.6493675E+00 , 0.6489592E+00 , 0.6485510E+00 , 0.6481395E+00 , 0.6477363E+00 ,& - & 0.6473348E+00 , 0.6469316E+00 , 0.6465384E+00 , 0.6461369E+00 , 0.6457437E+00 ,& - & 0.6453523E+00 , 0.6449641E+00 , 0.6445760E+00 , 0.6441895E+00 , 0.6438063E+00 ,& - & 0.6434199E+00 , 0.6430417E+00 , 0.6426604E+00 , 0.6422872E+00 , 0.6419140E+00 ,& - & 0.6415427E+00 , 0.6411695E+00 , 0.6408032E+00 , 0.6404350E+00 , 0.6400687E+00 /) - ssaice4(:, 18) = (/ & - & 0.9930021E+00 , 0.9959481E+00 , 0.9961996E+00 , 0.9958317E+00 , 0.9951802E+00 ,& - & 0.9943420E+00 , 0.9933667E+00 , 0.9922835E+00 , 0.9911140E+00 , 0.9898951E+00 ,& - & 0.9886724E+00 , 0.9874651E+00 , 0.9862889E+00 , 0.9851565E+00 , 0.9840630E+00 ,& - & 0.9830032E+00 , 0.9819655E+00 , 0.9809526E+00 , 0.9799491E+00 , 0.9789602E+00 ,& - & 0.9779686E+00 , 0.9769863E+00 , 0.9759980E+00 , 0.9750171E+00 , 0.9740338E+00 ,& - & 0.9730529E+00 , 0.9720745E+00 , 0.9710941E+00 , 0.9701164E+00 , 0.9691421E+00 ,& - & 0.9681664E+00 , 0.9671990E+00 , 0.9662259E+00 , 0.9652617E+00 , 0.9642968E+00 ,& - & 0.9633360E+00 , 0.9623750E+00 , 0.9614183E+00 , 0.9604660E+00 , 0.9595230E+00 ,& - & 0.9585704E+00 , 0.9576270E+00 , 0.9566931E+00 , 0.9557542E+00 , 0.9548200E+00 ,& - & 0.9538903E+00 , 0.9529606E+00 , 0.9520355E+00 , 0.9511152E+00 , 0.9501995E+00 ,& - & 0.9492790E+00 , 0.9483727E+00 , 0.9474616E+00 , 0.9465553E+00 , 0.9456488E+00 ,& - & 0.9447472E+00 , 0.9438550E+00 , 0.9429582E+00 , 0.9420707E+00 , 0.9411785E+00 ,& - & 0.9402959E+00 , 0.9394134E+00 , 0.9385355E+00 , 0.9376575E+00 , 0.9367846E+00 ,& - & 0.9359164E+00 , 0.9350484E+00 , 0.9341803E+00 , 0.9333219E+00 , 0.9324634E+00 ,& - & 0.9316098E+00 , 0.9307565E+00 , 0.9299077E+00 , 0.9290592E+00 , 0.9282202E+00 ,& - & 0.9273767E+00 , 0.9265426E+00 , 0.9257041E+00 , 0.9248701E+00 , 0.9240460E+00 ,& - & 0.9232171E+00 , 0.9223932E+00 , 0.9215739E+00 , 0.9207551E+00 , 0.9199361E+00 ,& - & 0.9191266E+00 , 0.9183127E+00 , 0.9175085E+00 , 0.9167089E+00 , 0.9159001E+00 ,& - & 0.9151053E+00 , 0.9143062E+00 , 0.9135119E+00 , 0.9127222E+00 , 0.9119328E+00 ,& - & 0.9111485E+00 , 0.9103640E+00 , 0.9095843E+00 , 0.9088048E+00 , 0.9080300E+00 ,& - & 0.9072555E+00 , 0.9064857E+00 , 0.9057162E+00 , 0.9049515E+00 , 0.9041916E+00 ,& - & 0.9034269E+00 , 0.9026721E+00 , 0.9019170E+00 , 0.9011623E+00 , 0.9004123E+00 ,& - & 0.8996621E+00 , 0.8989217E+00 , 0.8981767E+00 , 0.8974321E+00 , 0.8966967E+00 ,& - & 0.8959567E+00 , 0.8952215E+00 , 0.8944911E+00 , 0.8937611E+00 , 0.8930354E+00 ,& - & 0.8923100E+00 , 0.8915895E+00 , 0.8908694E+00 , 0.8901492E+00 , 0.8894382E+00 ,& - & 0.8887182E+00 , 0.8880075E+00 , 0.8873016E+00 , 0.8865912E+00 , 0.8858906E+00 ,& - & 0.8851849E+00 , 0.8844890E+00 , 0.8837886E+00 , 0.8830881E+00 , 0.8823968E+00 ,& - & 0.8817060E+00 , 0.8810157E+00 , 0.8803296E+00 , 0.8796434E+00 , 0.8789577E+00 ,& - & 0.8782769E+00 , 0.8775960E+00 , 0.8769200E+00 , 0.8762487E+00 , 0.8755731E+00 ,& - & 0.8749067E+00 , 0.8742357E+00 , 0.8735648E+00 , 0.8729036E+00 , 0.8722375E+00 ,& - & 0.8715811E+00 , 0.8709204E+00 , 0.8702638E+00 , 0.8696078E+00 , 0.8689517E+00 ,& - & 0.8683006E+00 , 0.8676543E+00 , 0.8670079E+00 , 0.8663614E+00 , 0.8657155E+00 ,& - & 0.8650788E+00 , 0.8644378E+00 , 0.8638015E+00 , 0.8631696E+00 , 0.8625332E+00 ,& - & 0.8618975E+00 , 0.8612710E+00 , 0.8606443E+00 , 0.8600177E+00 , 0.8593916E+00 ,& - & 0.8587654E+00 , 0.8581485E+00 , 0.8575321E+00 , 0.8569107E+00 , 0.8562992E+00 ,& - & 0.8556827E+00 , 0.8550760E+00 , 0.8544601E+00 , 0.8538532E+00 , 0.8532471E+00 ,& - & 0.8526452E+00 , 0.8520389E+00 , 0.8514376E+00 , 0.8508362E+00 , 0.8502396E+00 ,& - & 0.8496431E+00 , 0.8490515E+00 , 0.8484598E+00 , 0.8478730E+00 , 0.8472770E+00 ,& - & 0.8466950E+00 , 0.8461039E+00 , 0.8455219E+00 , 0.8449405E+00 , 0.8443592E+00 ,& - & 0.8437777E+00 , 0.8432012E+00 , 0.8426247E+00 , 0.8420531E+00 , 0.8414814E+00 /) - ssaice4(:, 19) = (/ & - & 0.9862202E+00 , 0.9909001E+00 , 0.9905429E+00 , 0.9888517E+00 , 0.9863635E+00 ,& - & 0.9833159E+00 , 0.9798765E+00 , 0.9762177E+00 , 0.9725327E+00 , 0.9689515E+00 ,& - & 0.9655472E+00 , 0.9623340E+00 , 0.9592851E+00 , 0.9563512E+00 , 0.9535028E+00 ,& - & 0.9507144E+00 , 0.9479554E+00 , 0.9452255E+00 , 0.9425196E+00 , 0.9398363E+00 ,& - & 0.9371663E+00 , 0.9345200E+00 , 0.9318942E+00 , 0.9292901E+00 , 0.9267142E+00 ,& - & 0.9241583E+00 , 0.9216276E+00 , 0.9191236E+00 , 0.9166418E+00 , 0.9141877E+00 ,& - & 0.9117616E+00 , 0.9093587E+00 , 0.9069749E+00 , 0.9046244E+00 , 0.9022933E+00 ,& - & 0.8999860E+00 , 0.8977076E+00 , 0.8954483E+00 , 0.8932135E+00 , 0.8909982E+00 ,& - & 0.8888074E+00 , 0.8866358E+00 , 0.8844886E+00 , 0.8823609E+00 , 0.8802579E+00 ,& - & 0.8781742E+00 , 0.8761098E+00 , 0.8740657E+00 , 0.8720406E+00 , 0.8700359E+00 ,& - & 0.8680505E+00 , 0.8660843E+00 , 0.8641334E+00 , 0.8622069E+00 , 0.8602908E+00 ,& - & 0.8584036E+00 , 0.8565311E+00 , 0.8546736E+00 , 0.8528311E+00 , 0.8510085E+00 ,& - & 0.8492053E+00 , 0.8474122E+00 , 0.8456393E+00 , 0.8438802E+00 , 0.8421413E+00 ,& - & 0.8404130E+00 , 0.8387083E+00 , 0.8370141E+00 , 0.8353347E+00 , 0.8336701E+00 ,& - & 0.8320203E+00 , 0.8303853E+00 , 0.8287652E+00 , 0.8271600E+00 , 0.8255738E+00 ,& - & 0.8239936E+00 , 0.8224284E+00 , 0.8208823E+00 , 0.8193414E+00 , 0.8178204E+00 ,& - & 0.8163088E+00 , 0.8148082E+00 , 0.8133220E+00 , 0.8118500E+00 , 0.8103932E+00 ,& - & 0.8089467E+00 , 0.8075095E+00 , 0.8060827E+00 , 0.8046712E+00 , 0.8032691E+00 ,& - & 0.8018824E+00 , 0.8005052E+00 , 0.7991334E+00 , 0.7977809E+00 , 0.7964379E+00 ,& - & 0.7951015E+00 , 0.7937786E+00 , 0.7924661E+00 , 0.7911642E+00 , 0.7898757E+00 ,& - & 0.7885891E+00 , 0.7873168E+00 , 0.7860541E+00 , 0.7848060E+00 , 0.7835635E+00 ,& - & 0.7823355E+00 , 0.7811083E+00 , 0.7798957E+00 , 0.7786927E+00 , 0.7774954E+00 ,& - & 0.7763127E+00 , 0.7751347E+00 , 0.7739674E+00 , 0.7728099E+00 , 0.7716569E+00 ,& - & 0.7705186E+00 , 0.7693861E+00 , 0.7682583E+00 , 0.7671414E+00 , 0.7660379E+00 ,& - & 0.7649354E+00 , 0.7638426E+00 , 0.7627606E+00 , 0.7616833E+00 , 0.7606196E+00 ,& - & 0.7595531E+00 , 0.7585000E+00 , 0.7574579E+00 , 0.7564193E+00 , 0.7553879E+00 ,& - & 0.7543651E+00 , 0.7533519E+00 , 0.7523448E+00 , 0.7513425E+00 , 0.7503449E+00 ,& - & 0.7493621E+00 , 0.7483803E+00 , 0.7474071E+00 , 0.7464399E+00 , 0.7454775E+00 ,& - & 0.7445248E+00 , 0.7435783E+00 , 0.7426403E+00 , 0.7417034E+00 , 0.7407763E+00 ,& - & 0.7398540E+00 , 0.7389415E+00 , 0.7380338E+00 , 0.7371310E+00 , 0.7362343E+00 ,& - & 0.7353424E+00 , 0.7344591E+00 , 0.7335818E+00 , 0.7327009E+00 , 0.7318383E+00 ,& - & 0.7309757E+00 , 0.7301192E+00 , 0.7292712E+00 , 0.7284244E+00 , 0.7275875E+00 ,& - & 0.7267554E+00 , 0.7259232E+00 , 0.7251008E+00 , 0.7242882E+00 , 0.7234721E+00 ,& - & 0.7226692E+00 , 0.7218627E+00 , 0.7210661E+00 , 0.7202743E+00 , 0.7194874E+00 ,& - & 0.7187054E+00 , 0.7179282E+00 , 0.7171609E+00 , 0.7163936E+00 , 0.7156276E+00 ,& - & 0.7148749E+00 , 0.7141186E+00 , 0.7133722E+00 , 0.7126292E+00 , 0.7118925E+00 ,& - & 0.7111558E+00 , 0.7104290E+00 , 0.7097021E+00 , 0.7089765E+00 , 0.7082644E+00 ,& - & 0.7075521E+00 , 0.7068412E+00 , 0.7061437E+00 , 0.7054427E+00 , 0.7047465E+00 ,& - & 0.7040588E+00 , 0.7033725E+00 , 0.7026861E+00 , 0.7020096E+00 , 0.7013330E+00 ,& - & 0.7006662E+00 , 0.6999961E+00 , 0.6993342E+00 , 0.6986772E+00 , 0.6980218E+00 /) - ssaice4(:, 20) = (/ & - & 0.9975056E+00 , 0.9980743E+00 , 0.9977447E+00 , 0.9971491E+00 , 0.9963710E+00 ,& - & 0.9954761E+00 , 0.9945168E+00 , 0.9935507E+00 , 0.9926266E+00 , 0.9917478E+00 ,& - & 0.9909037E+00 , 0.9900827E+00 , 0.9892793E+00 , 0.9884819E+00 , 0.9876776E+00 ,& - & 0.9868787E+00 , 0.9860801E+00 , 0.9852775E+00 , 0.9844809E+00 , 0.9836723E+00 ,& - & 0.9828754E+00 , 0.9820723E+00 , 0.9812726E+00 , 0.9804766E+00 , 0.9796847E+00 ,& - & 0.9788876E+00 , 0.9780993E+00 , 0.9773107E+00 , 0.9765217E+00 , 0.9757418E+00 ,& - & 0.9749618E+00 , 0.9741766E+00 , 0.9734054E+00 , 0.9726292E+00 , 0.9718576E+00 ,& - & 0.9710856E+00 , 0.9703135E+00 , 0.9695553E+00 , 0.9687874E+00 , 0.9680242E+00 ,& - & 0.9672701E+00 , 0.9665161E+00 , 0.9657618E+00 , 0.9650121E+00 , 0.9642576E+00 ,& - & 0.9635125E+00 , 0.9627672E+00 , 0.9620219E+00 , 0.9612862E+00 , 0.9605502E+00 ,& - & 0.9598143E+00 , 0.9590783E+00 , 0.9583471E+00 , 0.9576158E+00 , 0.9568940E+00 ,& - & 0.9561723E+00 , 0.9554458E+00 , 0.9547288E+00 , 0.9540071E+00 , 0.9532949E+00 ,& - & 0.9525827E+00 , 0.9518706E+00 , 0.9511585E+00 , 0.9504558E+00 , 0.9497486E+00 ,& - & 0.9490461E+00 , 0.9483485E+00 , 0.9476507E+00 , 0.9469531E+00 , 0.9462650E+00 ,& - & 0.9455723E+00 , 0.9448843E+00 , 0.9441916E+00 , 0.9435084E+00 , 0.9428253E+00 ,& - & 0.9421422E+00 , 0.9414639E+00 , 0.9407906E+00 , 0.9401076E+00 , 0.9394391E+00 ,& - & 0.9387657E+00 , 0.9380972E+00 , 0.9374287E+00 , 0.9367652E+00 , 0.9361017E+00 ,& - & 0.9354428E+00 , 0.9347794E+00 , 0.9341207E+00 , 0.9334666E+00 , 0.9328129E+00 ,& - & 0.9321590E+00 , 0.9315102E+00 , 0.9308565E+00 , 0.9302124E+00 , 0.9295681E+00 ,& - & 0.9289243E+00 , 0.9282851E+00 , 0.9276458E+00 , 0.9270067E+00 , 0.9263726E+00 ,& - & 0.9257383E+00 , 0.9251042E+00 , 0.9244748E+00 , 0.9238408E+00 , 0.9232163E+00 ,& - & 0.9225917E+00 , 0.9219673E+00 , 0.9213432E+00 , 0.9207238E+00 , 0.9201042E+00 ,& - & 0.9194894E+00 , 0.9188748E+00 , 0.9182605E+00 , 0.9176460E+00 , 0.9170363E+00 ,& - & 0.9164265E+00 , 0.9158219E+00 , 0.9152126E+00 , 0.9146076E+00 , 0.9140079E+00 ,& - & 0.9134080E+00 , 0.9128036E+00 , 0.9122084E+00 , 0.9116135E+00 , 0.9110190E+00 ,& - & 0.9104243E+00 , 0.9098340E+00 , 0.9092445E+00 , 0.9086544E+00 , 0.9080696E+00 ,& - & 0.9074796E+00 , 0.9068995E+00 , 0.9063193E+00 , 0.9057345E+00 , 0.9051594E+00 ,& - & 0.9045793E+00 , 0.9039996E+00 , 0.9034292E+00 , 0.9028542E+00 , 0.9022840E+00 ,& - & 0.9017138E+00 , 0.9011390E+00 , 0.9005784E+00 , 0.9000084E+00 , 0.8994432E+00 ,& - & 0.8988828E+00 , 0.8983179E+00 , 0.8977624E+00 , 0.8971973E+00 , 0.8966421E+00 ,& - & 0.8960868E+00 , 0.8955313E+00 , 0.8949763E+00 , 0.8944257E+00 , 0.8938755E+00 ,& - & 0.8933252E+00 , 0.8927748E+00 , 0.8922293E+00 , 0.8916838E+00 , 0.8911386E+00 ,& - & 0.8905978E+00 , 0.8900575E+00 , 0.8895171E+00 , 0.8889767E+00 , 0.8884411E+00 ,& - & 0.8879054E+00 , 0.8873703E+00 , 0.8868394E+00 , 0.8863041E+00 , 0.8857781E+00 ,& - & 0.8852476E+00 , 0.8847220E+00 , 0.8841919E+00 , 0.8836662E+00 , 0.8831454E+00 ,& - & 0.8826201E+00 , 0.8820992E+00 , 0.8815787E+00 , 0.8810582E+00 , 0.8805376E+00 ,& - & 0.8800219E+00 , 0.8795062E+00 , 0.8789954E+00 , 0.8784845E+00 , 0.8779692E+00 ,& - & 0.8774582E+00 , 0.8769477E+00 , 0.8764415E+00 , 0.8759360E+00 , 0.8754303E+00 ,& - & 0.8749246E+00 , 0.8744237E+00 , 0.8739179E+00 , 0.8734177E+00 , 0.8729167E+00 ,& - & 0.8724206E+00 , 0.8719202E+00 , 0.8714290E+00 , 0.8709334E+00 , 0.8704329E+00 /) - ssaice4(:, 21) = (/ & - & 0.9981896E+00 , 0.9982691E+00 , 0.9977399E+00 , 0.9968850E+00 , 0.9956240E+00 ,& - & 0.9941898E+00 , 0.9928634E+00 , 0.9917374E+00 , 0.9907728E+00 , 0.9899129E+00 ,& - & 0.9891046E+00 , 0.9883166E+00 , 0.9875370E+00 , 0.9867612E+00 , 0.9859810E+00 ,& - & 0.9852068E+00 , 0.9844257E+00 , 0.9836478E+00 , 0.9828643E+00 , 0.9820896E+00 ,& - & 0.9813052E+00 , 0.9805347E+00 , 0.9797593E+00 , 0.9789836E+00 , 0.9782124E+00 ,& - & 0.9774457E+00 , 0.9766834E+00 , 0.9759208E+00 , 0.9751627E+00 , 0.9743996E+00 ,& - & 0.9736505E+00 , 0.9729011E+00 , 0.9721515E+00 , 0.9714065E+00 , 0.9706659E+00 ,& - & 0.9699252E+00 , 0.9691892E+00 , 0.9684532E+00 , 0.9677265E+00 , 0.9669998E+00 ,& - & 0.9662826E+00 , 0.9655606E+00 , 0.9648435E+00 , 0.9641358E+00 , 0.9634282E+00 ,& - & 0.9627159E+00 , 0.9620132E+00 , 0.9613153E+00 , 0.9606223E+00 , 0.9599293E+00 ,& - & 0.9592413E+00 , 0.9585533E+00 , 0.9578702E+00 , 0.9571920E+00 , 0.9565186E+00 ,& - & 0.9558501E+00 , 0.9551770E+00 , 0.9545087E+00 , 0.9538502E+00 , 0.9531867E+00 ,& - & 0.9525331E+00 , 0.9518748E+00 , 0.9512308E+00 , 0.9505823E+00 , 0.9499338E+00 ,& - & 0.9492997E+00 , 0.9486611E+00 , 0.9480224E+00 , 0.9473934E+00 , 0.9467643E+00 ,& - & 0.9461403E+00 , 0.9455163E+00 , 0.9448972E+00 , 0.9442784E+00 , 0.9436641E+00 ,& - & 0.9430548E+00 , 0.9424455E+00 , 0.9418411E+00 , 0.9412367E+00 , 0.9406373E+00 ,& - & 0.9400379E+00 , 0.9394481E+00 , 0.9388536E+00 , 0.9382688E+00 , 0.9376793E+00 ,& - & 0.9370993E+00 , 0.9365146E+00 , 0.9359349E+00 , 0.9353600E+00 , 0.9347900E+00 ,& - & 0.9342198E+00 , 0.9336498E+00 , 0.9330849E+00 , 0.9325247E+00 , 0.9319597E+00 ,& - & 0.9314044E+00 , 0.9308490E+00 , 0.9302986E+00 , 0.9297435E+00 , 0.9292027E+00 ,& - & 0.9286525E+00 , 0.9281121E+00 , 0.9275715E+00 , 0.9270357E+00 , 0.9265001E+00 ,& - & 0.9259647E+00 , 0.9254387E+00 , 0.9249035E+00 , 0.9243824E+00 , 0.9238568E+00 ,& - & 0.9233359E+00 , 0.9228153E+00 , 0.9222991E+00 , 0.9217881E+00 , 0.9212724E+00 ,& - & 0.9207616E+00 , 0.9202506E+00 , 0.9197494E+00 , 0.9192435E+00 , 0.9187425E+00 ,& - & 0.9182413E+00 , 0.9177454E+00 , 0.9172540E+00 , 0.9167578E+00 , 0.9162670E+00 ,& - & 0.9157805E+00 , 0.9152895E+00 , 0.9148082E+00 , 0.9143268E+00 , 0.9138409E+00 ,& - & 0.9133647E+00 , 0.9128884E+00 , 0.9124120E+00 , 0.9119406E+00 , 0.9114694E+00 ,& - & 0.9109982E+00 , 0.9105318E+00 , 0.9100703E+00 , 0.9096042E+00 , 0.9091474E+00 ,& - & 0.9086862E+00 , 0.9082297E+00 , 0.9077732E+00 , 0.9073171E+00 , 0.9068703E+00 ,& - & 0.9064190E+00 , 0.9059725E+00 , 0.9055260E+00 , 0.9050844E+00 , 0.9046382E+00 ,& - & 0.9042013E+00 , 0.9037600E+00 , 0.9033235E+00 , 0.9028870E+00 , 0.9024553E+00 ,& - & 0.9020191E+00 , 0.9015923E+00 , 0.9011609E+00 , 0.9007345E+00 , 0.9003080E+00 ,& - & 0.8998863E+00 , 0.8994646E+00 , 0.8990434E+00 , 0.8986265E+00 , 0.8982052E+00 ,& - & 0.8977932E+00 , 0.8973816E+00 , 0.8969700E+00 , 0.8965584E+00 , 0.8961472E+00 ,& - & 0.8957404E+00 , 0.8953341E+00 , 0.8949321E+00 , 0.8945257E+00 , 0.8941242E+00 ,& - & 0.8937275E+00 , 0.8933259E+00 , 0.8929342E+00 , 0.8925375E+00 , 0.8921456E+00 ,& - & 0.8917543E+00 , 0.8913623E+00 , 0.8909709E+00 , 0.8905844E+00 , 0.8901979E+00 ,& - & 0.8898113E+00 , 0.8894296E+00 , 0.8890479E+00 , 0.8886710E+00 , 0.8882942E+00 ,& - & 0.8879129E+00 , 0.8875360E+00 , 0.8871596E+00 , 0.8867876E+00 , 0.8864161E+00 ,& - & 0.8860446E+00 , 0.8856730E+00 , 0.8853063E+00 , 0.8849396E+00 , 0.8845779E+00 /) - ssaice4(:, 22) = (/ & - & 0.9999119E+00 , 0.9999038E+00 , 0.9998647E+00 , 0.9998100E+00 , 0.9997516E+00 ,& - & 0.9996933E+00 , 0.9996428E+00 , 0.9995855E+00 , 0.9995382E+00 , 0.9994771E+00 ,& - & 0.9994248E+00 , 0.9993719E+00 , 0.9993140E+00 , 0.9992558E+00 , 0.9992021E+00 ,& - & 0.9991436E+00 , 0.9990897E+00 , 0.9990357E+00 , 0.9989722E+00 , 0.9989181E+00 ,& - & 0.9988640E+00 , 0.9988099E+00 , 0.9987462E+00 , 0.9986920E+00 , 0.9986377E+00 ,& - & 0.9985835E+00 , 0.9985292E+00 , 0.9984701E+00 , 0.9984157E+00 , 0.9983565E+00 ,& - & 0.9983020E+00 , 0.9982476E+00 , 0.9981883E+00 , 0.9981290E+00 , 0.9980792E+00 ,& - & 0.9980198E+00 , 0.9979604E+00 , 0.9979058E+00 , 0.9978463E+00 , 0.9977965E+00 ,& - & 0.9977370E+00 , 0.9976823E+00 , 0.9976276E+00 , 0.9975681E+00 , 0.9975134E+00 ,& - & 0.9974538E+00 , 0.9973990E+00 , 0.9973443E+00 , 0.9972847E+00 , 0.9972299E+00 ,& - & 0.9971752E+00 , 0.9971204E+00 , 0.9970608E+00 , 0.9970060E+00 , 0.9969463E+00 ,& - & 0.9968916E+00 , 0.9968368E+00 , 0.9967820E+00 , 0.9967223E+00 , 0.9966676E+00 ,& - & 0.9966079E+00 , 0.9965580E+00 , 0.9964983E+00 , 0.9964435E+00 , 0.9963887E+00 ,& - & 0.9963291E+00 , 0.9962743E+00 , 0.9962195E+00 , 0.9961599E+00 , 0.9961051E+00 ,& - & 0.9960503E+00 , 0.9959955E+00 , 0.9959407E+00 , 0.9958859E+00 , 0.9958262E+00 ,& - & 0.9957715E+00 , 0.9957118E+00 , 0.9956570E+00 , 0.9956022E+00 , 0.9955474E+00 ,& - & 0.9954926E+00 , 0.9954378E+00 , 0.9953830E+00 , 0.9953234E+00 , 0.9952636E+00 ,& - & 0.9952089E+00 , 0.9951540E+00 , 0.9950992E+00 , 0.9950445E+00 , 0.9949896E+00 ,& - & 0.9949348E+00 , 0.9948751E+00 , 0.9948203E+00 , 0.9947655E+00 , 0.9947107E+00 ,& - & 0.9946558E+00 , 0.9945961E+00 , 0.9945413E+00 , 0.9944865E+00 , 0.9944316E+00 ,& - & 0.9943719E+00 , 0.9943171E+00 , 0.9942622E+00 , 0.9942074E+00 , 0.9941525E+00 ,& - & 0.9940977E+00 , 0.9940379E+00 , 0.9939830E+00 , 0.9939281E+00 , 0.9938733E+00 ,& - & 0.9938185E+00 , 0.9937636E+00 , 0.9937038E+00 , 0.9936489E+00 , 0.9935941E+00 ,& - & 0.9935392E+00 , 0.9934843E+00 , 0.9934294E+00 , 0.9933745E+00 , 0.9933147E+00 ,& - & 0.9932598E+00 , 0.9932050E+00 , 0.9931501E+00 , 0.9930952E+00 , 0.9930403E+00 ,& - & 0.9929804E+00 , 0.9929255E+00 , 0.9928706E+00 , 0.9928157E+00 , 0.9927608E+00 ,& - & 0.9927010E+00 , 0.9926510E+00 , 0.9925961E+00 , 0.9925411E+00 , 0.9924813E+00 ,& - & 0.9924264E+00 , 0.9923714E+00 , 0.9923165E+00 , 0.9922616E+00 , 0.9922066E+00 ,& - & 0.9921468E+00 , 0.9920968E+00 , 0.9920369E+00 , 0.9919869E+00 , 0.9919270E+00 ,& - & 0.9918721E+00 , 0.9918171E+00 , 0.9917622E+00 , 0.9917073E+00 , 0.9916523E+00 ,& - & 0.9915974E+00 , 0.9915375E+00 , 0.9914825E+00 , 0.9914275E+00 , 0.9913726E+00 ,& - & 0.9913176E+00 , 0.9912676E+00 , 0.9912077E+00 , 0.9911527E+00 , 0.9910977E+00 ,& - & 0.9910427E+00 , 0.9909878E+00 , 0.9909328E+00 , 0.9908778E+00 , 0.9908229E+00 ,& - & 0.9907629E+00 , 0.9907129E+00 , 0.9906530E+00 , 0.9906029E+00 , 0.9905479E+00 ,& - & 0.9904880E+00 , 0.9904330E+00 , 0.9903780E+00 , 0.9903230E+00 , 0.9902729E+00 ,& - & 0.9902130E+00 , 0.9901580E+00 , 0.9901030E+00 , 0.9900480E+00 , 0.9899930E+00 ,& - & 0.9899380E+00 , 0.9898781E+00 , 0.9898280E+00 , 0.9897730E+00 , 0.9897131E+00 ,& - & 0.9896630E+00 , 0.9896079E+00 , 0.9895529E+00 , 0.9894930E+00 , 0.9894429E+00 ,& - & 0.9893829E+00 , 0.9893329E+00 , 0.9892778E+00 , 0.9892179E+00 , 0.9891629E+00 ,& - & 0.9891127E+00 , 0.9890577E+00 , 0.9890027E+00 , 0.9889427E+00 , 0.9888927E+00 /) - ssaice4(:, 23) = (/ & - & 0.9999878E+00 , 0.9999838E+00 , 0.9999751E+00 , 0.9999604E+00 , 0.9999453E+00 ,& - & 0.9999354E+00 , 0.9999257E+00 , 0.9999208E+00 , 0.9999111E+00 , 0.9999061E+00 ,& - & 0.9998963E+00 , 0.9998866E+00 , 0.9998720E+00 , 0.9998622E+00 , 0.9998524E+00 ,& - & 0.9998425E+00 , 0.9998326E+00 , 0.9998180E+00 , 0.9998081E+00 , 0.9998030E+00 ,& - & 0.9997883E+00 , 0.9997784E+00 , 0.9997637E+00 , 0.9997585E+00 , 0.9997486E+00 ,& - & 0.9997387E+00 , 0.9997288E+00 , 0.9997188E+00 , 0.9997041E+00 , 0.9996990E+00 ,& - & 0.9996890E+00 , 0.9996791E+00 , 0.9996691E+00 , 0.9996592E+00 , 0.9996443E+00 ,& - & 0.9996393E+00 , 0.9996293E+00 , 0.9996194E+00 , 0.9996094E+00 , 0.9995945E+00 ,& - & 0.9995846E+00 , 0.9995746E+00 , 0.9995646E+00 , 0.9995497E+00 , 0.9995398E+00 ,& - & 0.9995298E+00 , 0.9995248E+00 , 0.9995099E+00 , 0.9994999E+00 , 0.9994900E+00 ,& - & 0.9994799E+00 , 0.9994700E+00 , 0.9994600E+00 , 0.9994451E+00 , 0.9994352E+00 ,& - & 0.9994252E+00 , 0.9994152E+00 , 0.9994053E+00 , 0.9993953E+00 , 0.9993804E+00 ,& - & 0.9993753E+00 , 0.9993654E+00 , 0.9993554E+00 , 0.9993405E+00 , 0.9993305E+00 ,& - & 0.9993206E+00 , 0.9993106E+00 , 0.9993006E+00 , 0.9992906E+00 , 0.9992807E+00 ,& - & 0.9992707E+00 , 0.9992607E+00 , 0.9992458E+00 , 0.9992408E+00 , 0.9992259E+00 ,& - & 0.9992208E+00 , 0.9992059E+00 , 0.9992009E+00 , 0.9991909E+00 , 0.9991760E+00 ,& - & 0.9991660E+00 , 0.9991560E+00 , 0.9991460E+00 , 0.9991360E+00 , 0.9991261E+00 ,& - & 0.9991161E+00 , 0.9991061E+00 , 0.9990962E+00 , 0.9990861E+00 , 0.9990762E+00 ,& - & 0.9990612E+00 , 0.9990513E+00 , 0.9990462E+00 , 0.9990363E+00 , 0.9990262E+00 ,& - & 0.9990113E+00 , 0.9990013E+00 , 0.9989914E+00 , 0.9989814E+00 , 0.9989763E+00 ,& - & 0.9989614E+00 , 0.9989514E+00 , 0.9989414E+00 , 0.9989314E+00 , 0.9989215E+00 ,& - & 0.9989114E+00 , 0.9989014E+00 , 0.9988915E+00 , 0.9988765E+00 , 0.9988715E+00 ,& - & 0.9988565E+00 , 0.9988465E+00 , 0.9988366E+00 , 0.9988315E+00 , 0.9988165E+00 ,& - & 0.9988066E+00 , 0.9987966E+00 , 0.9987866E+00 , 0.9987766E+00 , 0.9987666E+00 ,& - & 0.9987566E+00 , 0.9987466E+00 , 0.9987366E+00 , 0.9987266E+00 , 0.9987167E+00 ,& - & 0.9987066E+00 , 0.9986966E+00 , 0.9986867E+00 , 0.9986767E+00 , 0.9986617E+00 ,& - & 0.9986517E+00 , 0.9986467E+00 , 0.9986317E+00 , 0.9986217E+00 , 0.9986117E+00 ,& - & 0.9986017E+00 , 0.9985917E+00 , 0.9985768E+00 , 0.9985717E+00 , 0.9985567E+00 ,& - & 0.9985517E+00 , 0.9985417E+00 , 0.9985317E+00 , 0.9985217E+00 , 0.9985117E+00 ,& - & 0.9985017E+00 , 0.9984868E+00 , 0.9984817E+00 , 0.9984667E+00 , 0.9984617E+00 ,& - & 0.9984467E+00 , 0.9984367E+00 , 0.9984267E+00 , 0.9984167E+00 , 0.9984067E+00 ,& - & 0.9983967E+00 , 0.9983867E+00 , 0.9983767E+00 , 0.9983667E+00 , 0.9983567E+00 ,& - & 0.9983467E+00 , 0.9983367E+00 , 0.9983267E+00 , 0.9983117E+00 , 0.9983017E+00 ,& - & 0.9982917E+00 , 0.9982817E+00 , 0.9982716E+00 , 0.9982616E+00 , 0.9982566E+00 ,& - & 0.9982416E+00 , 0.9982316E+00 , 0.9982216E+00 , 0.9982116E+00 , 0.9982016E+00 ,& - & 0.9981916E+00 , 0.9981816E+00 , 0.9981716E+00 , 0.9981616E+00 , 0.9981515E+00 ,& - & 0.9981415E+00 , 0.9981315E+00 , 0.9981215E+00 , 0.9981065E+00 , 0.9980965E+00 ,& - & 0.9980915E+00 , 0.9980765E+00 , 0.9980665E+00 , 0.9980614E+00 , 0.9980465E+00 ,& - & 0.9980364E+00 , 0.9980264E+00 , 0.9980164E+00 , 0.9980063E+00 , 0.9979964E+00 ,& - & 0.9979863E+00 , 0.9979763E+00 , 0.9979663E+00 , 0.9979563E+00 , 0.9979463E+00 /) - ssaice4(:, 24) = (/ & - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.9999954E+00 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.9999952E+00 , 0.1000000E+01 , 0.1000000E+01 , 0.9999952E+00 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.9999952E+00 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.9999951E+00 , 0.9999951E+00 , 0.9999951E+00 ,& - & 0.9999951E+00 , 0.9999951E+00 , 0.9999902E+00 , 0.9999951E+00 , 0.9999951E+00 ,& - & 0.9999951E+00 , 0.9999902E+00 , 0.9999902E+00 , 0.9999902E+00 , 0.9999902E+00 ,& - & 0.9999902E+00 , 0.9999902E+00 , 0.9999902E+00 , 0.9999853E+00 , 0.9999902E+00 ,& - & 0.9999852E+00 , 0.9999902E+00 , 0.9999902E+00 , 0.9999852E+00 , 0.9999852E+00 ,& - & 0.9999852E+00 , 0.9999852E+00 , 0.9999852E+00 , 0.9999852E+00 , 0.9999852E+00 ,& - & 0.9999852E+00 , 0.9999852E+00 , 0.9999852E+00 , 0.9999852E+00 , 0.9999852E+00 ,& - & 0.9999852E+00 , 0.9999852E+00 , 0.9999803E+00 , 0.9999803E+00 , 0.9999803E+00 ,& - & 0.9999852E+00 , 0.9999803E+00 , 0.9999802E+00 , 0.9999852E+00 , 0.9999802E+00 ,& - & 0.9999802E+00 , 0.9999852E+00 , 0.9999852E+00 , 0.9999802E+00 , 0.9999852E+00 ,& - & 0.9999802E+00 , 0.9999802E+00 , 0.9999802E+00 , 0.9999802E+00 , 0.9999852E+00 ,& - & 0.9999802E+00 , 0.9999802E+00 , 0.9999852E+00 , 0.9999802E+00 , 0.9999802E+00 ,& - & 0.9999852E+00 , 0.9999802E+00 , 0.9999802E+00 , 0.9999802E+00 , 0.9999802E+00 ,& - & 0.9999802E+00 , 0.9999802E+00 , 0.9999802E+00 , 0.9999802E+00 , 0.9999752E+00 ,& - & 0.9999802E+00 , 0.9999802E+00 , 0.9999752E+00 , 0.9999802E+00 , 0.9999752E+00 ,& - & 0.9999752E+00 , 0.9999752E+00 , 0.9999752E+00 , 0.9999752E+00 , 0.9999752E+00 ,& - & 0.9999752E+00 , 0.9999752E+00 , 0.9999752E+00 , 0.9999752E+00 , 0.9999703E+00 ,& - & 0.9999752E+00 , 0.9999752E+00 , 0.9999703E+00 , 0.9999703E+00 , 0.9999752E+00 ,& - & 0.9999703E+00 , 0.9999702E+00 , 0.9999702E+00 , 0.9999702E+00 , 0.9999702E+00 ,& - & 0.9999653E+00 , 0.9999653E+00 , 0.9999702E+00 , 0.9999653E+00 , 0.9999702E+00 ,& - & 0.9999653E+00 , 0.9999653E+00 , 0.9999653E+00 , 0.9999653E+00 , 0.9999653E+00 ,& - & 0.9999653E+00 , 0.9999602E+00 , 0.9999602E+00 , 0.9999602E+00 , 0.9999602E+00 ,& - & 0.9999602E+00 , 0.9999602E+00 , 0.9999602E+00 , 0.9999602E+00 , 0.9999553E+00 ,& - & 0.9999602E+00 , 0.9999602E+00 , 0.9999602E+00 , 0.9999602E+00 , 0.9999553E+00 ,& - & 0.9999553E+00 , 0.9999503E+00 , 0.9999552E+00 , 0.9999503E+00 , 0.9999503E+00 ,& - & 0.9999503E+00 , 0.9999503E+00 , 0.9999503E+00 , 0.9999503E+00 , 0.9999503E+00 ,& - & 0.9999453E+00 , 0.9999453E+00 , 0.9999453E+00 , 0.9999453E+00 , 0.9999453E+00 ,& - & 0.9999453E+00 , 0.9999453E+00 , 0.9999453E+00 , 0.9999453E+00 , 0.9999403E+00 ,& - & 0.9999403E+00 , 0.9999403E+00 , 0.9999403E+00 , 0.9999403E+00 , 0.9999403E+00 ,& - & 0.9999353E+00 , 0.9999353E+00 , 0.9999353E+00 , 0.9999353E+00 , 0.9999353E+00 ,& - & 0.9999353E+00 , 0.9999353E+00 , 0.9999353E+00 , 0.9999303E+00 , 0.9999353E+00 ,& - & 0.9999303E+00 , 0.9999303E+00 , 0.9999353E+00 , 0.9999303E+00 , 0.9999303E+00 ,& - & 0.9999303E+00 , 0.9999303E+00 , 0.9999253E+00 , 0.9999253E+00 , 0.9999253E+00 ,& - & 0.9999303E+00 , 0.9999253E+00 , 0.9999253E+00 , 0.9999253E+00 , 0.9999253E+00 /) - ssaice4(:, 25) = (/ & - & 0.1000000E+01 , 0.9999956E+00 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.9999951E+00 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.9999950E+00 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.9999950E+00 , 0.1000000E+01 , 0.1000000E+01 , 0.9999950E+00 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.9999950E+00 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.9999950E+00 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 /) - ssaice4(:, 26) = (/ & - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 /) - ssaice4(:, 27) = (/ & - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 /) - ssaice4(:, 28) = (/ & - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 ,& - & 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 , 0.1000000E+01 /) - ssaice4(:, 29) = (/ & - & 0.6333784E+00 , 0.8000548E+00 , 0.8410283E+00 , 0.8518977E+00 , 0.8518206E+00 ,& - & 0.8466160E+00 , 0.8386434E+00 , 0.8290431E+00 , 0.8184650E+00 , 0.8073614E+00 ,& - & 0.7960402E+00 , 0.7847390E+00 , 0.7736600E+00 , 0.7629327E+00 , 0.7526625E+00 ,& - & 0.7429039E+00 , 0.7336956E+00 , 0.7250440E+00 , 0.7169170E+00 , 0.7093102E+00 ,& - & 0.7021855E+00 , 0.6955141E+00 , 0.6892471E+00 , 0.6833546E+00 , 0.6778174E+00 ,& - & 0.6725874E+00 , 0.6676517E+00 , 0.6629767E+00 , 0.6585481E+00 , 0.6543425E+00 ,& - & 0.6503423E+00 , 0.6465337E+00 , 0.6429026E+00 , 0.6394359E+00 , 0.6361224E+00 ,& - & 0.6329532E+00 , 0.6299179E+00 , 0.6270074E+00 , 0.6242178E+00 , 0.6215364E+00 ,& - & 0.6189667E+00 , 0.6164950E+00 , 0.6141149E+00 , 0.6118250E+00 , 0.6096210E+00 ,& - & 0.6074915E+00 , 0.6054416E+00 , 0.6034698E+00 , 0.6015617E+00 , 0.5997175E+00 ,& - & 0.5979404E+00 , 0.5962256E+00 , 0.5945608E+00 , 0.5929567E+00 , 0.5914009E+00 ,& - & 0.5898983E+00 , 0.5884421E+00 , 0.5870278E+00 , 0.5856650E+00 , 0.5843393E+00 ,& - & 0.5830556E+00 , 0.5818092E+00 , 0.5806028E+00 , 0.5794290E+00 , 0.5782877E+00 ,& - & 0.5771819E+00 , 0.5761115E+00 , 0.5750690E+00 , 0.5740572E+00 , 0.5730685E+00 ,& - & 0.5721134E+00 , 0.5711766E+00 , 0.5702706E+00 , 0.5693907E+00 , 0.5685319E+00 ,& - & 0.5676972E+00 , 0.5668857E+00 , 0.5660907E+00 , 0.5653169E+00 , 0.5645672E+00 ,& - & 0.5638389E+00 , 0.5631194E+00 , 0.5624240E+00 , 0.5617478E+00 , 0.5610855E+00 ,& - & 0.5604376E+00 , 0.5598062E+00 , 0.5591941E+00 , 0.5585911E+00 , 0.5580101E+00 ,& - & 0.5574332E+00 , 0.5568757E+00 , 0.5563299E+00 , 0.5557986E+00 , 0.5552792E+00 ,& - & 0.5547693E+00 , 0.5542713E+00 , 0.5537878E+00 , 0.5533112E+00 , 0.5528466E+00 ,& - & 0.5523915E+00 , 0.5519509E+00 , 0.5515125E+00 , 0.5510886E+00 , 0.5506718E+00 ,& - & 0.5502646E+00 , 0.5498644E+00 , 0.5494788E+00 , 0.5490980E+00 , 0.5487193E+00 ,& - & 0.5483553E+00 , 0.5479982E+00 , 0.5476460E+00 , 0.5473036E+00 , 0.5469632E+00 ,& - & 0.5466326E+00 , 0.5463117E+00 , 0.5459930E+00 , 0.5456792E+00 , 0.5453750E+00 ,& - & 0.5450780E+00 , 0.5447858E+00 , 0.5444984E+00 , 0.5442160E+00 , 0.5439405E+00 ,& - & 0.5436651E+00 , 0.5434043E+00 , 0.5431408E+00 , 0.5428821E+00 , 0.5426333E+00 ,& - & 0.5423817E+00 , 0.5421426E+00 , 0.5419057E+00 , 0.5416687E+00 , 0.5414389E+00 ,& - & 0.5412166E+00 , 0.5409965E+00 , 0.5407764E+00 , 0.5405661E+00 , 0.5403531E+00 ,& - & 0.5401476E+00 , 0.5399444E+00 , 0.5397460E+00 , 0.5395499E+00 , 0.5393564E+00 ,& - & 0.5391700E+00 , 0.5389837E+00 , 0.5387973E+00 , 0.5386207E+00 , 0.5384415E+00 ,& - & 0.5382698E+00 , 0.5381003E+00 , 0.5379308E+00 , 0.5377662E+00 , 0.5376016E+00 ,& - & 0.5374442E+00 , 0.5372844E+00 , 0.5371319E+00 , 0.5369793E+00 , 0.5368267E+00 ,& - & 0.5366791E+00 , 0.5365337E+00 , 0.5363908E+00 , 0.5362504E+00 , 0.5361098E+00 ,& - & 0.5359741E+00 , 0.5358385E+00 , 0.5357078E+00 , 0.5355770E+00 , 0.5354486E+00 ,& - & 0.5353227E+00 , 0.5351991E+00 , 0.5350755E+00 , 0.5349519E+00 , 0.5348332E+00 ,& - & 0.5347195E+00 , 0.5346007E+00 , 0.5344843E+00 , 0.5343754E+00 , 0.5342639E+00 ,& - & 0.5341523E+00 , 0.5340458E+00 , 0.5339391E+00 , 0.5338374E+00 , 0.5337307E+00 ,& - & 0.5336291E+00 , 0.5335296E+00 , 0.5334328E+00 , 0.5333334E+00 , 0.5332365E+00 ,& - & 0.5331420E+00 , 0.5330474E+00 , 0.5329578E+00 , 0.5328633E+00 , 0.5327736E+00 ,& - & 0.5326889E+00 , 0.5325966E+00 , 0.5325119E+00 , 0.5324245E+00 , 0.5323447E+00 /) - asyice4(:, 16) = (/ & - & 0.6308889E+00 , 0.7788630E+00 , 0.8173713E+00 , 0.8292636E+00 , 0.8328955E+00 ,& - & 0.8336033E+00 , 0.8335392E+00 , 0.8337720E+00 , 0.8348147E+00 , 0.8368036E+00 ,& - & 0.8396288E+00 , 0.8430514E+00 , 0.8468503E+00 , 0.8508188E+00 , 0.8548120E+00 ,& - & 0.8587264E+00 , 0.8625237E+00 , 0.8661603E+00 , 0.8696347E+00 , 0.8729506E+00 ,& - & 0.8760936E+00 , 0.8790711E+00 , 0.8819165E+00 , 0.8846163E+00 , 0.8871803E+00 ,& - & 0.8896178E+00 , 0.8919415E+00 , 0.8941618E+00 , 0.8962691E+00 , 0.8982760E+00 ,& - & 0.9002025E+00 , 0.9020389E+00 , 0.9037826E+00 , 0.9054705E+00 , 0.9070698E+00 ,& - & 0.9086173E+00 , 0.9100809E+00 , 0.9114977E+00 , 0.9128507E+00 , 0.9141627E+00 ,& - & 0.9154083E+00 , 0.9166112E+00 , 0.9177613E+00 , 0.9188743E+00 , 0.9199491E+00 ,& - & 0.9209774E+00 , 0.9219823E+00 , 0.9229392E+00 , 0.9238552E+00 , 0.9247543E+00 ,& - & 0.9256118E+00 , 0.9264434E+00 , 0.9272482E+00 , 0.9280182E+00 , 0.9287692E+00 ,& - & 0.9295005E+00 , 0.9301961E+00 , 0.9308800E+00 , 0.9315350E+00 , 0.9321780E+00 ,& - & 0.9327838E+00 , 0.9333931E+00 , 0.9339648E+00 , 0.9345313E+00 , 0.9350765E+00 ,& - & 0.9356082E+00 , 0.9361177E+00 , 0.9366136E+00 , 0.9370950E+00 , 0.9375712E+00 ,& - & 0.9380161E+00 , 0.9384632E+00 , 0.9388960E+00 , 0.9393141E+00 , 0.9397174E+00 ,& - & 0.9401056E+00 , 0.9404957E+00 , 0.9408627E+00 , 0.9412313E+00 , 0.9415843E+00 ,& - & 0.9419307E+00 , 0.9422700E+00 , 0.9425941E+00 , 0.9429109E+00 , 0.9432206E+00 ,& - & 0.9435146E+00 , 0.9438097E+00 , 0.9440976E+00 , 0.9443697E+00 , 0.9446516E+00 ,& - & 0.9449085E+00 , 0.9451668E+00 , 0.9454259E+00 , 0.9456692E+00 , 0.9459044E+00 ,& - & 0.9461405E+00 , 0.9463691E+00 , 0.9465900E+00 , 0.9468117E+00 , 0.9470253E+00 ,& - & 0.9472313E+00 , 0.9474295E+00 , 0.9476370E+00 , 0.9478278E+00 , 0.9480109E+00 ,& - & 0.9481941E+00 , 0.9483697E+00 , 0.9485543E+00 , 0.9487312E+00 , 0.9488998E+00 ,& - & 0.9490601E+00 , 0.9492126E+00 , 0.9493741E+00 , 0.9495273E+00 , 0.9496812E+00 ,& - & 0.9498271E+00 , 0.9499732E+00 , 0.9501109E+00 , 0.9502492E+00 , 0.9503881E+00 ,& - & 0.9505181E+00 , 0.9506491E+00 , 0.9507803E+00 , 0.9509030E+00 , 0.9510263E+00 ,& - & 0.9511411E+00 , 0.9512565E+00 , 0.9513720E+00 , 0.9514790E+00 , 0.9515951E+00 ,& - & 0.9516941E+00 , 0.9518023E+00 , 0.9519104E+00 , 0.9520106E+00 , 0.9521108E+00 ,& - & 0.9522111E+00 , 0.9523029E+00 , 0.9523951E+00 , 0.9524875E+00 , 0.9525803E+00 ,& - & 0.9526646E+00 , 0.9527489E+00 , 0.9528423E+00 , 0.9529272E+00 , 0.9530035E+00 ,& - & 0.9530798E+00 , 0.9531652E+00 , 0.9532421E+00 , 0.9533195E+00 , 0.9533969E+00 ,& - & 0.9534652E+00 , 0.9535431E+00 , 0.9536120E+00 , 0.9536813E+00 , 0.9537507E+00 ,& - & 0.9538115E+00 , 0.9538813E+00 , 0.9539512E+00 , 0.9540125E+00 , 0.9540738E+00 ,& - & 0.9541355E+00 , 0.9541882E+00 , 0.9542500E+00 , 0.9543210E+00 , 0.9543741E+00 ,& - & 0.9544278E+00 , 0.9544810E+00 , 0.9545438E+00 , 0.9545888E+00 , 0.9546426E+00 ,& - & 0.9546967E+00 , 0.9547510E+00 , 0.9547964E+00 , 0.9548420E+00 , 0.9548967E+00 ,& - & 0.9549422E+00 , 0.9549882E+00 , 0.9550343E+00 , 0.9550803E+00 , 0.9551268E+00 ,& - & 0.9551729E+00 , 0.9552107E+00 , 0.9552572E+00 , 0.9553037E+00 , 0.9553416E+00 ,& - & 0.9553794E+00 , 0.9554265E+00 , 0.9554556E+00 , 0.9554939E+00 , 0.9555323E+00 ,& - & 0.9555706E+00 , 0.9556180E+00 , 0.9556476E+00 , 0.9556865E+00 , 0.9557161E+00 ,& - & 0.9557549E+00 , 0.9557937E+00 , 0.9558238E+00 , 0.9558539E+00 , 0.9558931E+00 /) - asyice4(:, 17) = (/ & - & 0.6838497E+00 , 0.8360057E+00 , 0.8845630E+00 , 0.9037390E+00 , 0.9116541E+00 ,& - & 0.9128916E+00 , 0.9094743E+00 , 0.9036284E+00 , 0.8973988E+00 , 0.8920299E+00 ,& - & 0.8880306E+00 , 0.8854268E+00 , 0.8840058E+00 , 0.8834742E+00 , 0.8835939E+00 ,& - & 0.8841411E+00 , 0.8849558E+00 , 0.8859246E+00 , 0.8869671E+00 , 0.8880250E+00 ,& - & 0.8890783E+00 , 0.8901013E+00 , 0.8910742E+00 , 0.8920170E+00 , 0.8929085E+00 ,& - & 0.8937592E+00 , 0.8945768E+00 , 0.8953500E+00 , 0.8960899E+00 , 0.8968006E+00 ,& - & 0.8974739E+00 , 0.8981349E+00 , 0.8987710E+00 , 0.8993821E+00 , 0.8999813E+00 ,& - & 0.9005558E+00 , 0.9011191E+00 , 0.9016715E+00 , 0.9022072E+00 , 0.9027326E+00 ,& - & 0.9032483E+00 , 0.9037542E+00 , 0.9042504E+00 , 0.9047441E+00 , 0.9052223E+00 ,& - & 0.9056972E+00 , 0.9061564E+00 , 0.9066197E+00 , 0.9070734E+00 , 0.9075180E+00 ,& - & 0.9079527E+00 , 0.9083912E+00 , 0.9088199E+00 , 0.9092454E+00 , 0.9096672E+00 ,& - & 0.9100725E+00 , 0.9104871E+00 , 0.9108915E+00 , 0.9112856E+00 , 0.9116819E+00 ,& - & 0.9120678E+00 , 0.9124560E+00 , 0.9128400E+00 , 0.9132192E+00 , 0.9135872E+00 ,& - & 0.9139573E+00 , 0.9143295E+00 , 0.9146833E+00 , 0.9150457E+00 , 0.9153966E+00 ,& - & 0.9157418E+00 , 0.9160891E+00 , 0.9164312E+00 , 0.9167612E+00 , 0.9170996E+00 ,& - & 0.9174257E+00 , 0.9177532E+00 , 0.9180748E+00 , 0.9183983E+00 , 0.9187089E+00 ,& - & 0.9190212E+00 , 0.9193277E+00 , 0.9196283E+00 , 0.9199300E+00 , 0.9202265E+00 ,& - & 0.9205234E+00 , 0.9208078E+00 , 0.9210933E+00 , 0.9213800E+00 , 0.9216534E+00 ,& - & 0.9219280E+00 , 0.9222037E+00 , 0.9224732E+00 , 0.9227366E+00 , 0.9230078E+00 ,& - & 0.9232588E+00 , 0.9235182E+00 , 0.9237641E+00 , 0.9240183E+00 , 0.9242657E+00 ,& - & 0.9245001E+00 , 0.9247422E+00 , 0.9249854E+00 , 0.9252222E+00 , 0.9254528E+00 ,& - & 0.9256769E+00 , 0.9259020E+00 , 0.9261276E+00 , 0.9263467E+00 , 0.9265600E+00 ,& - & 0.9267805E+00 , 0.9269877E+00 , 0.9271958E+00 , 0.9274043E+00 , 0.9276063E+00 ,& - & 0.9278092E+00 , 0.9280125E+00 , 0.9282023E+00 , 0.9284000E+00 , 0.9285979E+00 ,& - & 0.9287899E+00 , 0.9289821E+00 , 0.9291677E+00 , 0.9293468E+00 , 0.9295336E+00 ,& - & 0.9297138E+00 , 0.9298948E+00 , 0.9300692E+00 , 0.9302513E+00 , 0.9304193E+00 ,& - & 0.9305950E+00 , 0.9307716E+00 , 0.9309415E+00 , 0.9311046E+00 , 0.9312755E+00 ,& - & 0.9314396E+00 , 0.9316041E+00 , 0.9317693E+00 , 0.9319277E+00 , 0.9320939E+00 ,& - & 0.9322459E+00 , 0.9324130E+00 , 0.9325589E+00 , 0.9327196E+00 , 0.9328739E+00 ,& - & 0.9330356E+00 , 0.9331833E+00 , 0.9333313E+00 , 0.9334871E+00 , 0.9336365E+00 ,& - & 0.9337857E+00 , 0.9339284E+00 , 0.9340861E+00 , 0.9342222E+00 , 0.9343736E+00 ,& - & 0.9345177E+00 , 0.9346625E+00 , 0.9348075E+00 , 0.9349532E+00 , 0.9350920E+00 ,& - & 0.9352309E+00 , 0.9353705E+00 , 0.9355103E+00 , 0.9356580E+00 , 0.9357910E+00 ,& - & 0.9359247E+00 , 0.9360663E+00 , 0.9362080E+00 , 0.9363427E+00 , 0.9364704E+00 ,& - & 0.9366060E+00 , 0.9367495E+00 , 0.9368781E+00 , 0.9370148E+00 , 0.9371443E+00 ,& - & 0.9372817E+00 , 0.9374120E+00 , 0.9375426E+00 , 0.9376732E+00 , 0.9378046E+00 ,& - & 0.9379288E+00 , 0.9380682E+00 , 0.9381932E+00 , 0.9383257E+00 , 0.9384510E+00 ,& - & 0.9385770E+00 , 0.9387031E+00 , 0.9388294E+00 , 0.9389563E+00 , 0.9390833E+00 ,& - & 0.9392105E+00 , 0.9393384E+00 , 0.9394664E+00 , 0.9395871E+00 , 0.9397081E+00 ,& - & 0.9398296E+00 , 0.9399587E+00 , 0.9400731E+00 , 0.9402030E+00 , 0.9403177E+00 /) - asyice4(:, 18) = (/ & - & 0.7352185E+00 , 0.8481801E+00 , 0.8743246E+00 , 0.8794214E+00 , 0.8765073E+00 ,& - & 0.8689405E+00 , 0.8582879E+00 , 0.8462166E+00 , 0.8343480E+00 , 0.8238125E+00 ,& - & 0.8151841E+00 , 0.8085600E+00 , 0.8037703E+00 , 0.8004906E+00 , 0.7983911E+00 ,& - & 0.7971622E+00 , 0.7965646E+00 , 0.7963969E+00 , 0.7965330E+00 , 0.7968698E+00 ,& - & 0.7973385E+00 , 0.7978891E+00 , 0.7984943E+00 , 0.7991298E+00 , 0.7997760E+00 ,& - & 0.8004330E+00 , 0.8010792E+00 , 0.8017167E+00 , 0.8023513E+00 , 0.8029721E+00 ,& - & 0.8035800E+00 , 0.8041720E+00 , 0.8047569E+00 , 0.8053237E+00 , 0.8058801E+00 ,& - & 0.8064221E+00 , 0.8069556E+00 , 0.8074797E+00 , 0.8079950E+00 , 0.8084915E+00 ,& - & 0.8089924E+00 , 0.8094743E+00 , 0.8099523E+00 , 0.8104194E+00 , 0.8108865E+00 ,& - & 0.8113426E+00 , 0.8117936E+00 , 0.8122385E+00 , 0.8126783E+00 , 0.8131067E+00 ,& - & 0.8135383E+00 , 0.8139594E+00 , 0.8143834E+00 , 0.8147961E+00 , 0.8152117E+00 ,& - & 0.8156158E+00 , 0.8160185E+00 , 0.8164191E+00 , 0.8168173E+00 , 0.8172081E+00 ,& - & 0.8175974E+00 , 0.8179844E+00 , 0.8183690E+00 , 0.8187556E+00 , 0.8191301E+00 ,& - & 0.8195075E+00 , 0.8198825E+00 , 0.8202540E+00 , 0.8206239E+00 , 0.8209904E+00 ,& - & 0.8213596E+00 , 0.8217210E+00 , 0.8220841E+00 , 0.8224447E+00 , 0.8228027E+00 ,& - & 0.8231571E+00 , 0.8235089E+00 , 0.8238623E+00 , 0.8242175E+00 , 0.8245656E+00 ,& - & 0.8249145E+00 , 0.8252606E+00 , 0.8256084E+00 , 0.8259482E+00 , 0.8262939E+00 ,& - & 0.8266370E+00 , 0.8269763E+00 , 0.8273075E+00 , 0.8276456E+00 , 0.8279845E+00 ,& - & 0.8283150E+00 , 0.8286473E+00 , 0.8289810E+00 , 0.8293110E+00 , 0.8296372E+00 ,& - & 0.8299605E+00 , 0.8302898E+00 , 0.8306099E+00 , 0.8309369E+00 , 0.8312547E+00 ,& - & 0.8315793E+00 , 0.8318947E+00 , 0.8322116E+00 , 0.8325246E+00 , 0.8328391E+00 ,& - & 0.8331542E+00 , 0.8334662E+00 , 0.8337734E+00 , 0.8340821E+00 , 0.8343922E+00 ,& - & 0.8347030E+00 , 0.8350051E+00 , 0.8353078E+00 , 0.8356120E+00 , 0.8359121E+00 ,& - & 0.8362128E+00 , 0.8365095E+00 , 0.8368075E+00 , 0.8371015E+00 , 0.8374016E+00 ,& - & 0.8376920E+00 , 0.8379839E+00 , 0.8382716E+00 , 0.8385655E+00 , 0.8388495E+00 ,& - & 0.8391398E+00 , 0.8394257E+00 , 0.8397132E+00 , 0.8399956E+00 , 0.8402746E+00 ,& - & 0.8405588E+00 , 0.8408397E+00 , 0.8411156E+00 , 0.8413975E+00 , 0.8416752E+00 ,& - & 0.8419486E+00 , 0.8422234E+00 , 0.8424987E+00 , 0.8427687E+00 , 0.8430458E+00 ,& - & 0.8433130E+00 , 0.8435806E+00 , 0.8438495E+00 , 0.8441142E+00 , 0.8443850E+00 ,& - & 0.8446457E+00 , 0.8449125E+00 , 0.8451742E+00 , 0.8454380E+00 , 0.8457014E+00 ,& - & 0.8459556E+00 , 0.8462159E+00 , 0.8464766E+00 , 0.8467330E+00 , 0.8469898E+00 ,& - & 0.8472478E+00 , 0.8474957E+00 , 0.8477498E+00 , 0.8480099E+00 , 0.8482599E+00 ,& - & 0.8485055E+00 , 0.8487571E+00 , 0.8490044E+00 , 0.8492520E+00 , 0.8495057E+00 ,& - & 0.8497492E+00 , 0.8499939E+00 , 0.8502391E+00 , 0.8504846E+00 , 0.8507257E+00 ,& - & 0.8509728E+00 , 0.8512096E+00 , 0.8514477E+00 , 0.8516968E+00 , 0.8519307E+00 ,& - & 0.8521699E+00 , 0.8524054E+00 , 0.8526461E+00 , 0.8528823E+00 , 0.8531139E+00 ,& - & 0.8533516E+00 , 0.8535897E+00 , 0.8538174E+00 , 0.8540512E+00 , 0.8542863E+00 ,& - & 0.8545159E+00 , 0.8547466E+00 , 0.8549777E+00 , 0.8552042E+00 , 0.8554359E+00 ,& - & 0.8556581E+00 , 0.8558913E+00 , 0.8561141E+00 , 0.8563380E+00 , 0.8565623E+00 ,& - & 0.8567927E+00 , 0.8570126E+00 , 0.8572387E+00 , 0.8574601E+00 , 0.8576759E+00 /) - asyice4(:, 19) = (/ & - & 0.7611694E+00 , 0.8532702E+00 , 0.8687301E+00 , 0.8666995E+00 , 0.8576527E+00 ,& - & 0.8447345E+00 , 0.8305908E+00 , 0.8175464E+00 , 0.8069980E+00 , 0.7993522E+00 ,& - & 0.7943702E+00 , 0.7915002E+00 , 0.7901685E+00 , 0.7898793E+00 , 0.7902810E+00 ,& - & 0.7911142E+00 , 0.7922185E+00 , 0.7934816E+00 , 0.7948319E+00 , 0.7962279E+00 ,& - & 0.7976367E+00 , 0.7990458E+00 , 0.8004408E+00 , 0.8018208E+00 , 0.8031769E+00 ,& - & 0.8045048E+00 , 0.8058162E+00 , 0.8070983E+00 , 0.8083598E+00 , 0.8095918E+00 ,& - & 0.8108044E+00 , 0.8119949E+00 , 0.8131683E+00 , 0.8143155E+00 , 0.8154491E+00 ,& - & 0.8165632E+00 , 0.8176534E+00 , 0.8187321E+00 , 0.8197905E+00 , 0.8208369E+00 ,& - & 0.8218667E+00 , 0.8228831E+00 , 0.8238812E+00 , 0.8248709E+00 , 0.8258362E+00 ,& - & 0.8267973E+00 , 0.8277482E+00 , 0.8286786E+00 , 0.8296087E+00 , 0.8305179E+00 ,& - & 0.8314208E+00 , 0.8323116E+00 , 0.8331959E+00 , 0.8340687E+00 , 0.8349336E+00 ,& - & 0.8357812E+00 , 0.8366262E+00 , 0.8374629E+00 , 0.8382912E+00 , 0.8391061E+00 ,& - & 0.8399124E+00 , 0.8407204E+00 , 0.8415089E+00 , 0.8423038E+00 , 0.8430789E+00 ,& - & 0.8438553E+00 , 0.8446165E+00 , 0.8453731E+00 , 0.8461249E+00 , 0.8468720E+00 ,& - & 0.8476083E+00 , 0.8483396E+00 , 0.8490659E+00 , 0.8497869E+00 , 0.8504909E+00 ,& - & 0.8512005E+00 , 0.8518987E+00 , 0.8525915E+00 , 0.8532828E+00 , 0.8539634E+00 ,& - & 0.8546425E+00 , 0.8553097E+00 , 0.8559762E+00 , 0.8566358E+00 , 0.8572894E+00 ,& - & 0.8579360E+00 , 0.8585807E+00 , 0.8592244E+00 , 0.8598496E+00 , 0.8604788E+00 ,& - & 0.8610954E+00 , 0.8617161E+00 , 0.8623284E+00 , 0.8629341E+00 , 0.8635374E+00 ,& - & 0.8641331E+00 , 0.8647265E+00 , 0.8653182E+00 , 0.8658960E+00 , 0.8664712E+00 ,& - & 0.8670501E+00 , 0.8676209E+00 , 0.8681829E+00 , 0.8687429E+00 , 0.8693004E+00 ,& - & 0.8698431E+00 , 0.8703949E+00 , 0.8709320E+00 , 0.8714725E+00 , 0.8720102E+00 ,& - & 0.8725329E+00 , 0.8730645E+00 , 0.8735811E+00 , 0.8740946E+00 , 0.8746105E+00 ,& - & 0.8751177E+00 , 0.8756217E+00 , 0.8761280E+00 , 0.8766255E+00 , 0.8771131E+00 ,& - & 0.8776096E+00 , 0.8780961E+00 , 0.8785735E+00 , 0.8790532E+00 , 0.8795294E+00 ,& - & 0.8800013E+00 , 0.8804696E+00 , 0.8809351E+00 , 0.8813955E+00 , 0.8818529E+00 ,& - & 0.8823125E+00 , 0.8827617E+00 , 0.8832073E+00 , 0.8836482E+00 , 0.8840978E+00 ,& - & 0.8845311E+00 , 0.8849664E+00 , 0.8853970E+00 , 0.8858303E+00 , 0.8862590E+00 ,& - & 0.8866770E+00 , 0.8870977E+00 , 0.8875135E+00 , 0.8879312E+00 , 0.8883381E+00 ,& - & 0.8887469E+00 , 0.8891516E+00 , 0.8895513E+00 , 0.8899595E+00 , 0.8903501E+00 ,& - & 0.8907491E+00 , 0.8911431E+00 , 0.8915262E+00 , 0.8919169E+00 , 0.8923041E+00 ,& - & 0.8926854E+00 , 0.8930623E+00 , 0.8934409E+00 , 0.8938143E+00 , 0.8941833E+00 ,& - & 0.8945539E+00 , 0.8949254E+00 , 0.8952855E+00 , 0.8956479E+00 , 0.8960044E+00 ,& - & 0.8963631E+00 , 0.8967226E+00 , 0.8970706E+00 , 0.8974202E+00 , 0.8977712E+00 ,& - & 0.8981169E+00 , 0.8984641E+00 , 0.8987996E+00 , 0.8991428E+00 , 0.8994805E+00 ,& - & 0.8998135E+00 , 0.9001541E+00 , 0.9004830E+00 , 0.9008125E+00 , 0.9011372E+00 ,& - & 0.9014627E+00 , 0.9017832E+00 , 0.9021114E+00 , 0.9024339E+00 , 0.9027445E+00 ,& - & 0.9030628E+00 , 0.9033824E+00 , 0.9036830E+00 , 0.9039983E+00 , 0.9043078E+00 ,& - & 0.9046116E+00 , 0.9049167E+00 , 0.9052224E+00 , 0.9055231E+00 , 0.9058242E+00 ,& - & 0.9061204E+00 , 0.9064170E+00 , 0.9067078E+00 , 0.9069999E+00 , 0.9072860E+00 /) - asyice4(:, 20) = (/ & - & 0.7878429E+00 , 0.8563017E+00 , 0.8607460E+00 , 0.8512708E+00 , 0.8366460E+00 ,& - & 0.8201939E+00 , 0.8045444E+00 , 0.7915565E+00 , 0.7819592E+00 , 0.7755091E+00 ,& - & 0.7715159E+00 , 0.7692651E+00 , 0.7681581E+00 , 0.7677852E+00 , 0.7678676E+00 ,& - & 0.7682171E+00 , 0.7687253E+00 , 0.7693235E+00 , 0.7699625E+00 , 0.7706240E+00 ,& - & 0.7712795E+00 , 0.7719285E+00 , 0.7725646E+00 , 0.7731836E+00 , 0.7737828E+00 ,& - & 0.7743682E+00 , 0.7749358E+00 , 0.7754831E+00 , 0.7760236E+00 , 0.7765423E+00 ,& - & 0.7770467E+00 , 0.7775442E+00 , 0.7780260E+00 , 0.7784946E+00 , 0.7789598E+00 ,& - & 0.7794144E+00 , 0.7798594E+00 , 0.7802946E+00 , 0.7807267E+00 , 0.7811478E+00 ,& - & 0.7815619E+00 , 0.7819735E+00 , 0.7823769E+00 , 0.7827768E+00 , 0.7831722E+00 ,& - & 0.7835601E+00 , 0.7839472E+00 , 0.7843308E+00 , 0.7847056E+00 , 0.7850797E+00 ,& - & 0.7854488E+00 , 0.7858222E+00 , 0.7861857E+00 , 0.7865481E+00 , 0.7869108E+00 ,& - & 0.7872673E+00 , 0.7876218E+00 , 0.7879763E+00 , 0.7883286E+00 , 0.7886800E+00 ,& - & 0.7890250E+00 , 0.7893730E+00 , 0.7897189E+00 , 0.7900584E+00 , 0.7904007E+00 ,& - & 0.7907409E+00 , 0.7910747E+00 , 0.7914154E+00 , 0.7917486E+00 , 0.7920806E+00 ,& - & 0.7924144E+00 , 0.7927406E+00 , 0.7930737E+00 , 0.7933992E+00 , 0.7937223E+00 ,& - & 0.7940524E+00 , 0.7943748E+00 , 0.7946895E+00 , 0.7950153E+00 , 0.7953293E+00 ,& - & 0.7956490E+00 , 0.7959610E+00 , 0.7962800E+00 , 0.7965911E+00 , 0.7968987E+00 ,& - & 0.7972079E+00 , 0.7975134E+00 , 0.7978259E+00 , 0.7981294E+00 , 0.7984303E+00 ,& - & 0.7987371E+00 , 0.7990360E+00 , 0.7993353E+00 , 0.7996321E+00 , 0.7999346E+00 ,& - & 0.8002292E+00 , 0.8005201E+00 , 0.8008114E+00 , 0.8011043E+00 , 0.8013945E+00 ,& - & 0.8016799E+00 , 0.8019721E+00 , 0.8022552E+00 , 0.8025442E+00 , 0.8028250E+00 ,& - & 0.8031063E+00 , 0.8033891E+00 , 0.8036681E+00 , 0.8039486E+00 , 0.8042241E+00 ,& - & 0.8045012E+00 , 0.8047798E+00 , 0.8050491E+00 , 0.8053243E+00 , 0.8055955E+00 ,& - & 0.8058725E+00 , 0.8061360E+00 , 0.8064051E+00 , 0.8066748E+00 , 0.8069415E+00 ,& - & 0.8072087E+00 , 0.8074762E+00 , 0.8077399E+00 , 0.8079995E+00 , 0.8082606E+00 ,& - & 0.8085220E+00 , 0.8087839E+00 , 0.8090374E+00 , 0.8093011E+00 , 0.8095564E+00 ,& - & 0.8098164E+00 , 0.8100681E+00 , 0.8103255E+00 , 0.8105779E+00 , 0.8108273E+00 ,& - & 0.8110815E+00 , 0.8113370E+00 , 0.8115830E+00 , 0.8118349E+00 , 0.8120827E+00 ,& - & 0.8123308E+00 , 0.8125848E+00 , 0.8128248E+00 , 0.8130750E+00 , 0.8133211E+00 ,& - & 0.8135631E+00 , 0.8138055E+00 , 0.8140492E+00 , 0.8142977E+00 , 0.8145376E+00 ,& - & 0.8147779E+00 , 0.8150185E+00 , 0.8152549E+00 , 0.8154972E+00 , 0.8157353E+00 ,& - & 0.8159737E+00 , 0.8162125E+00 , 0.8164470E+00 , 0.8166874E+00 , 0.8169236E+00 ,& - & 0.8171546E+00 , 0.8173870E+00 , 0.8176252E+00 , 0.8178581E+00 , 0.8180868E+00 ,& - & 0.8183214E+00 , 0.8185517E+00 , 0.8187824E+00 , 0.8190133E+00 , 0.8192456E+00 ,& - & 0.8194726E+00 , 0.8197009E+00 , 0.8199295E+00 , 0.8201584E+00 , 0.8203830E+00 ,& - & 0.8206078E+00 , 0.8208386E+00 , 0.8210595E+00 , 0.8212863E+00 , 0.8215134E+00 ,& - & 0.8217361E+00 , 0.8219591E+00 , 0.8221778E+00 , 0.8224025E+00 , 0.8226273E+00 ,& - & 0.8228469E+00 , 0.8230677E+00 , 0.8232888E+00 , 0.8235111E+00 , 0.8237281E+00 ,& - & 0.8239454E+00 , 0.8241640E+00 , 0.8243874E+00 , 0.8246018E+00 , 0.8248212E+00 ,& - & 0.8250362E+00 , 0.8252513E+00 , 0.8254678E+00 , 0.8256789E+00 , 0.8259006E+00 /) - asyice4(:, 21) = (/ & - & 0.8164403E+00 , 0.8563977E+00 , 0.8482134E+00 , 0.8296506E+00 , 0.8088785E+00 ,& - & 0.7905661E+00 , 0.7771026E+00 , 0.7685401E+00 , 0.7636855E+00 , 0.7612579E+00 ,& - & 0.7602760E+00 , 0.7601247E+00 , 0.7604364E+00 , 0.7609833E+00 , 0.7616518E+00 ,& - & 0.7623716E+00 , 0.7631044E+00 , 0.7638302E+00 , 0.7645367E+00 , 0.7652208E+00 ,& - & 0.7658822E+00 , 0.7665120E+00 , 0.7671223E+00 , 0.7677106E+00 , 0.7682706E+00 ,& - & 0.7688178E+00 , 0.7693365E+00 , 0.7698511E+00 , 0.7703393E+00 , 0.7708209E+00 ,& - & 0.7712833E+00 , 0.7717378E+00 , 0.7721841E+00 , 0.7726172E+00 , 0.7730410E+00 ,& - & 0.7734591E+00 , 0.7738725E+00 , 0.7742752E+00 , 0.7746719E+00 , 0.7750615E+00 ,& - & 0.7754452E+00 , 0.7758254E+00 , 0.7762035E+00 , 0.7765691E+00 , 0.7769364E+00 ,& - & 0.7773039E+00 , 0.7776629E+00 , 0.7780184E+00 , 0.7783701E+00 , 0.7787210E+00 ,& - & 0.7790632E+00 , 0.7794095E+00 , 0.7797458E+00 , 0.7800822E+00 , 0.7804177E+00 ,& - & 0.7807431E+00 , 0.7810714E+00 , 0.7813987E+00 , 0.7817208E+00 , 0.7820397E+00 ,& - & 0.7823534E+00 , 0.7826700E+00 , 0.7829803E+00 , 0.7832882E+00 , 0.7835939E+00 ,& - & 0.7838932E+00 , 0.7841901E+00 , 0.7844887E+00 , 0.7847809E+00 , 0.7850748E+00 ,& - & 0.7853621E+00 , 0.7856511E+00 , 0.7859325E+00 , 0.7862114E+00 , 0.7864919E+00 ,& - & 0.7867647E+00 , 0.7870390E+00 , 0.7873110E+00 , 0.7875792E+00 , 0.7878448E+00 ,& - & 0.7881121E+00 , 0.7883716E+00 , 0.7886366E+00 , 0.7888898E+00 , 0.7891434E+00 ,& - & 0.7893944E+00 , 0.7896509E+00 , 0.7898996E+00 , 0.7901446E+00 , 0.7903869E+00 ,& - & 0.7906349E+00 , 0.7908790E+00 , 0.7911152E+00 , 0.7913476E+00 , 0.7915856E+00 ,& - & 0.7918209E+00 , 0.7920566E+00 , 0.7922842E+00 , 0.7925175E+00 , 0.7927427E+00 ,& - & 0.7929682E+00 , 0.7931910E+00 , 0.7934140E+00 , 0.7936385E+00 , 0.7938538E+00 ,& - & 0.7940758E+00 , 0.7942885E+00 , 0.7945069E+00 , 0.7947171E+00 , 0.7949330E+00 ,& - & 0.7951449E+00 , 0.7953528E+00 , 0.7955664E+00 , 0.7957718E+00 , 0.7959774E+00 ,& - & 0.7961844E+00 , 0.7963917E+00 , 0.7965906E+00 , 0.7967899E+00 , 0.7969906E+00 ,& - & 0.7971914E+00 , 0.7973894E+00 , 0.7975822E+00 , 0.7977806E+00 , 0.7979761E+00 ,& - & 0.7981665E+00 , 0.7983625E+00 , 0.7985501E+00 , 0.7987434E+00 , 0.7989369E+00 ,& - & 0.7991220E+00 , 0.7993073E+00 , 0.7994929E+00 , 0.7996798E+00 , 0.7998625E+00 ,& - & 0.8000509E+00 , 0.8002298E+00 , 0.8004100E+00 , 0.8005903E+00 , 0.8007720E+00 ,& - & 0.8009484E+00 , 0.8011262E+00 , 0.8013042E+00 , 0.8014834E+00 , 0.8016530E+00 ,& - & 0.8018283E+00 , 0.8019994E+00 , 0.8021707E+00 , 0.8023433E+00 , 0.8025160E+00 ,& - & 0.8026846E+00 , 0.8028534E+00 , 0.8030180E+00 , 0.8031881E+00 , 0.8033542E+00 ,& - & 0.8035204E+00 , 0.8036823E+00 , 0.8038499E+00 , 0.8040078E+00 , 0.8041714E+00 ,& - & 0.8043308E+00 , 0.8044958E+00 , 0.8046510E+00 , 0.8048119E+00 , 0.8049729E+00 ,& - & 0.8051298E+00 , 0.8052878E+00 , 0.8054405E+00 , 0.8055989E+00 , 0.8057530E+00 ,& - & 0.8059072E+00 , 0.8060572E+00 , 0.8062128E+00 , 0.8063631E+00 , 0.8065146E+00 ,& - & 0.8066618E+00 , 0.8068136E+00 , 0.8069621E+00 , 0.8071098E+00 , 0.8072586E+00 ,& - & 0.8074031E+00 , 0.8075522E+00 , 0.8077025E+00 , 0.8078430E+00 , 0.8079891E+00 ,& - & 0.8081298E+00 , 0.8082718E+00 , 0.8084194E+00 , 0.8085571E+00 , 0.8086949E+00 ,& - & 0.8088384E+00 , 0.8089821E+00 , 0.8091214E+00 , 0.8092608E+00 , 0.8093958E+00 ,& - & 0.8095310E+00 , 0.8096719E+00 , 0.8098083E+00 , 0.8099449E+00 , 0.8100771E+00 /) - asyice4(:, 22) = (/ & - & 0.8295329E+00 , 0.8538179E+00 , 0.8374700E+00 , 0.8130934E+00 , 0.7899350E+00 ,& - & 0.7728249E+00 , 0.7623641E+00 , 0.7567856E+00 , 0.7541356E+00 , 0.7530928E+00 ,& - & 0.7528698E+00 , 0.7530598E+00 , 0.7534404E+00 , 0.7539015E+00 , 0.7543766E+00 ,& - & 0.7548403E+00 , 0.7552758E+00 , 0.7556863E+00 , 0.7560630E+00 , 0.7564128E+00 ,& - & 0.7567332E+00 , 0.7570240E+00 , 0.7572984E+00 , 0.7575452E+00 , 0.7577789E+00 ,& - & 0.7579936E+00 , 0.7581913E+00 , 0.7583795E+00 , 0.7585568E+00 , 0.7587221E+00 ,& - & 0.7588753E+00 , 0.7590198E+00 , 0.7591583E+00 , 0.7592919E+00 , 0.7594157E+00 ,& - & 0.7595358E+00 , 0.7596546E+00 , 0.7597660E+00 , 0.7598786E+00 , 0.7599788E+00 ,& - & 0.7600888E+00 , 0.7601864E+00 , 0.7602840E+00 , 0.7603815E+00 , 0.7604789E+00 ,& - & 0.7605714E+00 , 0.7606637E+00 , 0.7607559E+00 , 0.7608420E+00 , 0.7609317E+00 ,& - & 0.7610163E+00 , 0.7610996E+00 , 0.7611854E+00 , 0.7612662E+00 , 0.7613493E+00 ,& - & 0.7614262E+00 , 0.7615055E+00 , 0.7615786E+00 , 0.7616541E+00 , 0.7617271E+00 ,& - & 0.7618025E+00 , 0.7618716E+00 , 0.7619370E+00 , 0.7620048E+00 , 0.7620701E+00 ,& - & 0.7621366E+00 , 0.7621968E+00 , 0.7622620E+00 , 0.7623246E+00 , 0.7623847E+00 ,& - & 0.7624410E+00 , 0.7624986E+00 , 0.7625573E+00 , 0.7626086E+00 , 0.7626649E+00 ,& - & 0.7627186E+00 , 0.7627723E+00 , 0.7628185E+00 , 0.7628745E+00 , 0.7629182E+00 ,& - & 0.7629668E+00 , 0.7630166E+00 , 0.7630627E+00 , 0.7631088E+00 , 0.7631561E+00 ,& - & 0.7631996E+00 , 0.7632443E+00 , 0.7632890E+00 , 0.7633300E+00 , 0.7633760E+00 ,& - & 0.7634133E+00 , 0.7634555E+00 , 0.7634988E+00 , 0.7635384E+00 , 0.7635731E+00 ,& - & 0.7636178E+00 , 0.7636536E+00 , 0.7636945E+00 , 0.7637316E+00 , 0.7637687E+00 ,& - & 0.7638058E+00 , 0.7638441E+00 , 0.7638775E+00 , 0.7639120E+00 , 0.7639465E+00 ,& - & 0.7639861E+00 , 0.7640207E+00 , 0.7640564E+00 , 0.7640922E+00 , 0.7641242E+00 ,& - & 0.7641562E+00 , 0.7641882E+00 , 0.7642252E+00 , 0.7642534E+00 , 0.7642866E+00 ,& - & 0.7643198E+00 , 0.7643531E+00 , 0.7643825E+00 , 0.7644170E+00 , 0.7644464E+00 ,& - & 0.7644809E+00 , 0.7645066E+00 , 0.7645372E+00 , 0.7645679E+00 , 0.7645985E+00 ,& - & 0.7646343E+00 , 0.7646611E+00 , 0.7646880E+00 , 0.7647199E+00 , 0.7647518E+00 ,& - & 0.7647787E+00 , 0.7648069E+00 , 0.7648349E+00 , 0.7648631E+00 , 0.7648912E+00 ,& - & 0.7649243E+00 , 0.7649487E+00 , 0.7649818E+00 , 0.7650061E+00 , 0.7650355E+00 ,& - & 0.7650598E+00 , 0.7650854E+00 , 0.7651147E+00 , 0.7651403E+00 , 0.7651697E+00 ,& - & 0.7652002E+00 , 0.7652258E+00 , 0.7652514E+00 , 0.7652782E+00 , 0.7653037E+00 ,& - & 0.7653305E+00 , 0.7653561E+00 , 0.7653829E+00 , 0.7654096E+00 , 0.7654365E+00 ,& - & 0.7654633E+00 , 0.7654862E+00 , 0.7655131E+00 , 0.7655399E+00 , 0.7655629E+00 ,& - & 0.7655909E+00 , 0.7656139E+00 , 0.7656419E+00 , 0.7656649E+00 , 0.7656930E+00 ,& - & 0.7657160E+00 , 0.7657402E+00 , 0.7657683E+00 , 0.7657925E+00 , 0.7658167E+00 ,& - & 0.7658448E+00 , 0.7658690E+00 , 0.7658933E+00 , 0.7659175E+00 , 0.7659380E+00 ,& - & 0.7659672E+00 , 0.7659915E+00 , 0.7660120E+00 , 0.7660412E+00 , 0.7660617E+00 ,& - & 0.7660871E+00 , 0.7661164E+00 , 0.7661369E+00 , 0.7661624E+00 , 0.7661878E+00 ,& - & 0.7662095E+00 , 0.7662350E+00 , 0.7662605E+00 , 0.7662860E+00 , 0.7663077E+00 ,& - & 0.7663332E+00 , 0.7663549E+00 , 0.7663816E+00 , 0.7664071E+00 , 0.7664288E+00 ,& - & 0.7664555E+00 , 0.7664772E+00 , 0.7665039E+00 , 0.7665256E+00 , 0.7665485E+00 /) - asyice4(:, 23) = (/ & - & 0.8449632E+00 , 0.8394781E+00 , 0.8089847E+00 , 0.7806522E+00 , 0.7627347E+00 ,& - & 0.7538859E+00 , 0.7502508E+00 , 0.7491167E+00 , 0.7490667E+00 , 0.7494577E+00 ,& - & 0.7499953E+00 , 0.7505553E+00 , 0.7510936E+00 , 0.7515800E+00 , 0.7520195E+00 ,& - & 0.7524163E+00 , 0.7527677E+00 , 0.7530851E+00 , 0.7533708E+00 , 0.7536269E+00 ,& - & 0.7538666E+00 , 0.7540824E+00 , 0.7542852E+00 , 0.7544651E+00 , 0.7546427E+00 ,& - & 0.7548023E+00 , 0.7549570E+00 , 0.7551008E+00 , 0.7552459E+00 , 0.7553740E+00 ,& - & 0.7555069E+00 , 0.7556252E+00 , 0.7557472E+00 , 0.7558582E+00 , 0.7559716E+00 ,& - & 0.7560739E+00 , 0.7561774E+00 , 0.7562773E+00 , 0.7563685E+00 , 0.7564646E+00 ,& - & 0.7565483E+00 , 0.7566358E+00 , 0.7567146E+00 , 0.7567921E+00 , 0.7568696E+00 ,& - & 0.7569408E+00 , 0.7570071E+00 , 0.7570710E+00 , 0.7571335E+00 , 0.7571948E+00 ,& - & 0.7572499E+00 , 0.7573024E+00 , 0.7573574E+00 , 0.7574050E+00 , 0.7574550E+00 ,& - & 0.7574939E+00 , 0.7575388E+00 , 0.7575763E+00 , 0.7576151E+00 , 0.7576513E+00 ,& - & 0.7576851E+00 , 0.7577151E+00 , 0.7577463E+00 , 0.7577787E+00 , 0.7578074E+00 ,& - & 0.7578336E+00 , 0.7578560E+00 , 0.7578834E+00 , 0.7579083E+00 , 0.7579245E+00 ,& - & 0.7579456E+00 , 0.7579679E+00 , 0.7579865E+00 , 0.7580063E+00 , 0.7580212E+00 ,& - & 0.7580385E+00 , 0.7580546E+00 , 0.7580681E+00 , 0.7580816E+00 , 0.7581001E+00 ,& - & 0.7581099E+00 , 0.7581258E+00 , 0.7581369E+00 , 0.7581491E+00 , 0.7581613E+00 ,& - & 0.7581698E+00 , 0.7581831E+00 , 0.7581965E+00 , 0.7582062E+00 , 0.7582121E+00 ,& - & 0.7582268E+00 , 0.7582327E+00 , 0.7582398E+00 , 0.7582518E+00 , 0.7582590E+00 ,& - & 0.7582710E+00 , 0.7582794E+00 , 0.7582877E+00 , 0.7582973E+00 , 0.7583018E+00 ,& - & 0.7583113E+00 , 0.7583209E+00 , 0.7583266E+00 , 0.7583374E+00 , 0.7583432E+00 ,& - & 0.7583539E+00 , 0.7583609E+00 , 0.7583678E+00 , 0.7583748E+00 , 0.7583830E+00 ,& - & 0.7583900E+00 , 0.7583982E+00 , 0.7584063E+00 , 0.7584108E+00 , 0.7584190E+00 ,& - & 0.7584283E+00 , 0.7584328E+00 , 0.7584422E+00 , 0.7584478E+00 , 0.7584572E+00 ,& - & 0.7584628E+00 , 0.7584684E+00 , 0.7584741E+00 , 0.7584847E+00 , 0.7584866E+00 ,& - & 0.7584972E+00 , 0.7585040E+00 , 0.7585108E+00 , 0.7585177E+00 , 0.7585245E+00 ,& - & 0.7585313E+00 , 0.7585344E+00 , 0.7585462E+00 , 0.7585493E+00 , 0.7585573E+00 ,& - & 0.7585604E+00 , 0.7585685E+00 , 0.7585765E+00 , 0.7585808E+00 , 0.7585889E+00 ,& - & 0.7585931E+00 , 0.7585974E+00 , 0.7586067E+00 , 0.7586109E+00 , 0.7586152E+00 ,& - & 0.7586244E+00 , 0.7586287E+00 , 0.7586342E+00 , 0.7586435E+00 , 0.7586490E+00 ,& - & 0.7586582E+00 , 0.7586637E+00 , 0.7586692E+00 , 0.7586747E+00 , 0.7586802E+00 ,& - & 0.7586856E+00 , 0.7586911E+00 , 0.7586979E+00 , 0.7587034E+00 , 0.7587051E+00 ,& - & 0.7587155E+00 , 0.7587172E+00 , 0.7587239E+00 , 0.7587344E+00 , 0.7587361E+00 ,& - & 0.7587428E+00 , 0.7587495E+00 , 0.7587562E+00 , 0.7587629E+00 , 0.7587658E+00 ,& - & 0.7587726E+00 , 0.7587792E+00 , 0.7587821E+00 , 0.7587889E+00 , 0.7587968E+00 ,& - & 0.7587997E+00 , 0.7588064E+00 , 0.7588143E+00 , 0.7588173E+00 , 0.7588251E+00 ,& - & 0.7588280E+00 , 0.7588360E+00 , 0.7588389E+00 , 0.7588468E+00 , 0.7588547E+00 ,& - & 0.7588539E+00 , 0.7588618E+00 , 0.7588697E+00 , 0.7588738E+00 , 0.7588817E+00 ,& - & 0.7588859E+00 , 0.7588938E+00 , 0.7588979E+00 , 0.7589021E+00 , 0.7589062E+00 ,& - & 0.7589141E+00 , 0.7589182E+00 , 0.7589224E+00 , 0.7589315E+00 , 0.7589356E+00 /) - asyice4(:, 24) = (/ & - & 0.8484567E+00 , 0.8114185E+00 , 0.7707964E+00 , 0.7515219E+00 , 0.7458144E+00 ,& - & 0.7449797E+00 , 0.7455234E+00 , 0.7463468E+00 , 0.7471324E+00 , 0.7478110E+00 ,& - & 0.7483951E+00 , 0.7488887E+00 , 0.7493176E+00 , 0.7496843E+00 , 0.7500048E+00 ,& - & 0.7502906E+00 , 0.7505437E+00 , 0.7507722E+00 , 0.7509784E+00 , 0.7511717E+00 ,& - & 0.7513496E+00 , 0.7515085E+00 , 0.7516627E+00 , 0.7518099E+00 , 0.7519535E+00 ,& - & 0.7520828E+00 , 0.7522048E+00 , 0.7523221E+00 , 0.7524346E+00 , 0.7525373E+00 ,& - & 0.7526377E+00 , 0.7527308E+00 , 0.7528204E+00 , 0.7529026E+00 , 0.7529799E+00 ,& - & 0.7530535E+00 , 0.7531187E+00 , 0.7531875E+00 , 0.7532428E+00 , 0.7533018E+00 ,& - & 0.7533510E+00 , 0.7534038E+00 , 0.7534468E+00 , 0.7534886E+00 , 0.7535291E+00 ,& - & 0.7535635E+00 , 0.7536002E+00 , 0.7536321E+00 , 0.7536603E+00 , 0.7536883E+00 ,& - & 0.7537127E+00 , 0.7537358E+00 , 0.7537565E+00 , 0.7537833E+00 , 0.7537990E+00 ,& - & 0.7538208E+00 , 0.7538351E+00 , 0.7538520E+00 , 0.7538651E+00 , 0.7538794E+00 ,& - & 0.7538913E+00 , 0.7539043E+00 , 0.7539186E+00 , 0.7539292E+00 , 0.7539372E+00 ,& - & 0.7539502E+00 , 0.7539595E+00 , 0.7539700E+00 , 0.7539768E+00 , 0.7539848E+00 ,& - & 0.7539940E+00 , 0.7539983E+00 , 0.7540087E+00 , 0.7540154E+00 , 0.7540221E+00 ,& - & 0.7540251E+00 , 0.7540293E+00 , 0.7540385E+00 , 0.7540476E+00 , 0.7540493E+00 ,& - & 0.7540547E+00 , 0.7540614E+00 , 0.7540680E+00 , 0.7540709E+00 , 0.7540751E+00 ,& - & 0.7540830E+00 , 0.7540871E+00 , 0.7540875E+00 , 0.7540966E+00 , 0.7540970E+00 ,& - & 0.7540986E+00 , 0.7541089E+00 , 0.7541105E+00 , 0.7541171E+00 , 0.7541150E+00 ,& - & 0.7541216E+00 , 0.7541294E+00 , 0.7541322E+00 , 0.7541363E+00 , 0.7541391E+00 ,& - & 0.7541432E+00 , 0.7541472E+00 , 0.7541513E+00 , 0.7541516E+00 , 0.7541607E+00 ,& - & 0.7541610E+00 , 0.7541663E+00 , 0.7541716E+00 , 0.7541732E+00 , 0.7541784E+00 ,& - & 0.7541800E+00 , 0.7541815E+00 , 0.7541881E+00 , 0.7541896E+00 , 0.7541961E+00 ,& - & 0.7541939E+00 , 0.7541967E+00 , 0.7542032E+00 , 0.7542059E+00 , 0.7542099E+00 ,& - & 0.7542127E+00 , 0.7542155E+00 , 0.7542195E+00 , 0.7542185E+00 , 0.7542263E+00 ,& - & 0.7542303E+00 , 0.7542343E+00 , 0.7542345E+00 , 0.7542385E+00 , 0.7542388E+00 ,& - & 0.7542428E+00 , 0.7542480E+00 , 0.7542482E+00 , 0.7542534E+00 , 0.7542499E+00 ,& - & 0.7542552E+00 , 0.7542604E+00 , 0.7542619E+00 , 0.7542633E+00 , 0.7542648E+00 ,& - & 0.7542663E+00 , 0.7542678E+00 , 0.7542742E+00 , 0.7542719E+00 , 0.7542784E+00 ,& - & 0.7542761E+00 , 0.7542788E+00 , 0.7542815E+00 , 0.7542842E+00 , 0.7542869E+00 ,& - & 0.7542896E+00 , 0.7542923E+00 , 0.7542912E+00 , 0.7542940E+00 , 0.7542979E+00 ,& - & 0.7542968E+00 , 0.7543008E+00 , 0.7542997E+00 , 0.7543036E+00 , 0.7543075E+00 ,& - & 0.7543065E+00 , 0.7543067E+00 , 0.7543106E+00 , 0.7543107E+00 , 0.7543109E+00 ,& - & 0.7543111E+00 , 0.7543163E+00 , 0.7543164E+00 , 0.7543166E+00 , 0.7543218E+00 ,& - & 0.7543219E+00 , 0.7543233E+00 , 0.7543235E+00 , 0.7543249E+00 , 0.7543263E+00 ,& - & 0.7543264E+00 , 0.7543278E+00 , 0.7543292E+00 , 0.7543306E+00 , 0.7543320E+00 ,& - & 0.7543334E+00 , 0.7543311E+00 , 0.7543324E+00 , 0.7543388E+00 , 0.7543365E+00 ,& - & 0.7543378E+00 , 0.7543355E+00 , 0.7543381E+00 , 0.7543395E+00 , 0.7543421E+00 ,& - & 0.7543398E+00 , 0.7543424E+00 , 0.7543450E+00 , 0.7543426E+00 , 0.7543452E+00 ,& - & 0.7543441E+00 , 0.7543467E+00 , 0.7543494E+00 , 0.7543482E+00 , 0.7543508E+00 /) - asyice4(:, 25) = (/ & - & 0.8357430E+00 , 0.7773391E+00 , 0.7472338E+00 , 0.7411460E+00 , 0.7412388E+00 ,& - & 0.7423721E+00 , 0.7434930E+00 , 0.7444100E+00 , 0.7451326E+00 , 0.7457146E+00 ,& - & 0.7461796E+00 , 0.7465703E+00 , 0.7469010E+00 , 0.7471963E+00 , 0.7474557E+00 ,& - & 0.7476933E+00 , 0.7479149E+00 , 0.7481155E+00 , 0.7483045E+00 , 0.7484807E+00 ,& - & 0.7486464E+00 , 0.7488002E+00 , 0.7489470E+00 , 0.7490783E+00 , 0.7492048E+00 ,& - & 0.7493181E+00 , 0.7494292E+00 , 0.7495256E+00 , 0.7496149E+00 , 0.7497005E+00 ,& - & 0.7497753E+00 , 0.7498465E+00 , 0.7499090E+00 , 0.7499631E+00 , 0.7500185E+00 ,& - & 0.7500652E+00 , 0.7501071E+00 , 0.7501441E+00 , 0.7501811E+00 , 0.7502083E+00 ,& - & 0.7502391E+00 , 0.7502688E+00 , 0.7502886E+00 , 0.7503109E+00 , 0.7503282E+00 ,& - & 0.7503468E+00 , 0.7503605E+00 , 0.7503754E+00 , 0.7503878E+00 , 0.7504027E+00 ,& - & 0.7504102E+00 , 0.7504239E+00 , 0.7504302E+00 , 0.7504376E+00 , 0.7504513E+00 ,& - & 0.7504526E+00 , 0.7504638E+00 , 0.7504713E+00 , 0.7504714E+00 , 0.7504764E+00 ,& - & 0.7504864E+00 , 0.7504889E+00 , 0.7504964E+00 , 0.7505039E+00 , 0.7505040E+00 ,& - & 0.7505127E+00 , 0.7505177E+00 , 0.7505190E+00 , 0.7505252E+00 , 0.7505315E+00 ,& - & 0.7505340E+00 , 0.7505378E+00 , 0.7505403E+00 , 0.7505491E+00 , 0.7505528E+00 ,& - & 0.7505529E+00 , 0.7505617E+00 , 0.7505629E+00 , 0.7505679E+00 , 0.7505692E+00 ,& - & 0.7505755E+00 , 0.7505817E+00 , 0.7505880E+00 , 0.7505906E+00 , 0.7505931E+00 ,& - & 0.7506006E+00 , 0.7505994E+00 , 0.7506031E+00 , 0.7506070E+00 , 0.7506107E+00 ,& - & 0.7506145E+00 , 0.7506195E+00 , 0.7506195E+00 , 0.7506245E+00 , 0.7506295E+00 ,& - & 0.7506309E+00 , 0.7506322E+00 , 0.7506421E+00 , 0.7506397E+00 , 0.7506459E+00 ,& - & 0.7506435E+00 , 0.7506498E+00 , 0.7506523E+00 , 0.7506511E+00 , 0.7506536E+00 ,& - & 0.7506611E+00 , 0.7506599E+00 , 0.7506588E+00 , 0.7506625E+00 , 0.7506663E+00 ,& - & 0.7506663E+00 , 0.7506664E+00 , 0.7506701E+00 , 0.7506702E+00 , 0.7506702E+00 ,& - & 0.7506665E+00 , 0.7506715E+00 , 0.7506679E+00 , 0.7506729E+00 , 0.7506741E+00 ,& - & 0.7506754E+00 , 0.7506717E+00 , 0.7506692E+00 , 0.7506755E+00 , 0.7506731E+00 ,& - & 0.7506744E+00 , 0.7506719E+00 , 0.7506744E+00 , 0.7506720E+00 , 0.7506745E+00 ,& - & 0.7506733E+00 , 0.7506708E+00 , 0.7506696E+00 , 0.7506684E+00 , 0.7506672E+00 ,& - & 0.7506697E+00 , 0.7506648E+00 , 0.7506635E+00 , 0.7506673E+00 , 0.7506661E+00 ,& - & 0.7506661E+00 , 0.7506611E+00 , 0.7506649E+00 , 0.7506599E+00 , 0.7506600E+00 ,& - & 0.7506600E+00 , 0.7506601E+00 , 0.7506601E+00 , 0.7506564E+00 , 0.7506564E+00 ,& - & 0.7506564E+00 , 0.7506527E+00 , 0.7506540E+00 , 0.7506540E+00 , 0.7506503E+00 ,& - & 0.7506515E+00 , 0.7506478E+00 , 0.7506491E+00 , 0.7506454E+00 , 0.7506429E+00 ,& - & 0.7506441E+00 , 0.7506455E+00 , 0.7506430E+00 , 0.7506442E+00 , 0.7506418E+00 ,& - & 0.7506393E+00 , 0.7506406E+00 , 0.7506381E+00 , 0.7506356E+00 , 0.7506331E+00 ,& - & 0.7506356E+00 , 0.7506332E+00 , 0.7506307E+00 , 0.7506332E+00 , 0.7506307E+00 ,& - & 0.7506295E+00 , 0.7506320E+00 , 0.7506258E+00 , 0.7506283E+00 , 0.7506271E+00 ,& - & 0.7506246E+00 , 0.7506234E+00 , 0.7506259E+00 , 0.7506247E+00 , 0.7506234E+00 ,& - & 0.7506222E+00 , 0.7506210E+00 , 0.7506197E+00 , 0.7506185E+00 , 0.7506173E+00 ,& - & 0.7506210E+00 , 0.7506198E+00 , 0.7506186E+00 , 0.7506173E+00 , 0.7506211E+00 ,& - & 0.7506161E+00 , 0.7506199E+00 , 0.7506186E+00 , 0.7506186E+00 , 0.7506174E+00 /) - asyice4(:, 26) = (/ & - & 0.8092321E+00 , 0.7460147E+00 , 0.7352403E+00 , 0.7359520E+00 , 0.7374227E+00 ,& - & 0.7386078E+00 , 0.7395314E+00 , 0.7402644E+00 , 0.7408577E+00 , 0.7413321E+00 ,& - & 0.7417141E+00 , 0.7420347E+00 , 0.7423136E+00 , 0.7425548E+00 , 0.7427773E+00 ,& - & 0.7429795E+00 , 0.7431623E+00 , 0.7433376E+00 , 0.7434894E+00 , 0.7436334E+00 ,& - & 0.7437586E+00 , 0.7438697E+00 , 0.7439677E+00 , 0.7440575E+00 , 0.7441354E+00 ,& - & 0.7442025E+00 , 0.7442588E+00 , 0.7443117E+00 , 0.7443573E+00 , 0.7443982E+00 ,& - & 0.7444293E+00 , 0.7444593E+00 , 0.7444882E+00 , 0.7445111E+00 , 0.7445328E+00 ,& - & 0.7445520E+00 , 0.7445702E+00 , 0.7445810E+00 , 0.7445980E+00 , 0.7446138E+00 ,& - & 0.7446223E+00 , 0.7446334E+00 , 0.7446457E+00 , 0.7446519E+00 , 0.7446594E+00 ,& - & 0.7446681E+00 , 0.7446744E+00 , 0.7446783E+00 , 0.7446885E+00 , 0.7446949E+00 ,& - & 0.7447026E+00 , 0.7447029E+00 , 0.7447094E+00 , 0.7447123E+00 , 0.7447214E+00 ,& - & 0.7447218E+00 , 0.7447284E+00 , 0.7447314E+00 , 0.7447394E+00 , 0.7447399E+00 ,& - & 0.7447454E+00 , 0.7447472E+00 , 0.7447503E+00 , 0.7447533E+00 , 0.7447540E+00 ,& - & 0.7447583E+00 , 0.7447602E+00 , 0.7447658E+00 , 0.7447690E+00 , 0.7447722E+00 ,& - & 0.7447754E+00 , 0.7447798E+00 , 0.7447805E+00 , 0.7447813E+00 , 0.7447870E+00 ,& - & 0.7447891E+00 , 0.7447874E+00 , 0.7447944E+00 , 0.7447940E+00 , 0.7447972E+00 ,& - & 0.7448018E+00 , 0.7448063E+00 , 0.7448072E+00 , 0.7448081E+00 , 0.7448139E+00 ,& - & 0.7448111E+00 , 0.7448132E+00 , 0.7448203E+00 , 0.7448187E+00 , 0.7448221E+00 ,& - & 0.7448255E+00 , 0.7448289E+00 , 0.7448286E+00 , 0.7448283E+00 , 0.7448329E+00 ,& - & 0.7448376E+00 , 0.7448386E+00 , 0.7448395E+00 , 0.7448405E+00 , 0.7448415E+00 ,& - & 0.7448474E+00 , 0.7448447E+00 , 0.7448506E+00 , 0.7448528E+00 , 0.7448550E+00 ,& - & 0.7448536E+00 , 0.7448558E+00 , 0.7448543E+00 , 0.7448615E+00 , 0.7448601E+00 ,& - & 0.7448636E+00 , 0.7448621E+00 , 0.7448656E+00 , 0.7448654E+00 , 0.7448689E+00 ,& - & 0.7448687E+00 , 0.7448722E+00 , 0.7448720E+00 , 0.7448718E+00 , 0.7448766E+00 ,& - & 0.7448764E+00 , 0.7448762E+00 , 0.7448773E+00 , 0.7448770E+00 , 0.7448781E+00 ,& - & 0.7448779E+00 , 0.7448790E+00 , 0.7448801E+00 , 0.7448848E+00 , 0.7448809E+00 ,& - & 0.7448820E+00 , 0.7448831E+00 , 0.7448841E+00 , 0.7448815E+00 , 0.7448825E+00 ,& - & 0.7448836E+00 , 0.7448897E+00 , 0.7448870E+00 , 0.7448844E+00 , 0.7448854E+00 ,& - & 0.7448878E+00 , 0.7448851E+00 , 0.7448862E+00 , 0.7448885E+00 , 0.7448859E+00 ,& - & 0.7448882E+00 , 0.7448906E+00 , 0.7448879E+00 , 0.7448866E+00 , 0.7448889E+00 ,& - & 0.7448863E+00 , 0.7448886E+00 , 0.7448872E+00 , 0.7448896E+00 , 0.7448882E+00 ,& - & 0.7448905E+00 , 0.7448891E+00 , 0.7448878E+00 , 0.7448864E+00 , 0.7448887E+00 ,& - & 0.7448874E+00 , 0.7448860E+00 , 0.7448846E+00 , 0.7448832E+00 , 0.7448869E+00 ,& - & 0.7448855E+00 , 0.7448841E+00 , 0.7448840E+00 , 0.7448826E+00 , 0.7448862E+00 ,& - & 0.7448812E+00 , 0.7448848E+00 , 0.7448834E+00 , 0.7448833E+00 , 0.7448782E+00 ,& - & 0.7448818E+00 , 0.7448817E+00 , 0.7448853E+00 , 0.7448803E+00 , 0.7448801E+00 ,& - & 0.7448800E+00 , 0.7448799E+00 , 0.7448835E+00 , 0.7448834E+00 , 0.7448834E+00 ,& - & 0.7448832E+00 , 0.7448831E+00 , 0.7448793E+00 , 0.7448792E+00 , 0.7448791E+00 ,& - & 0.7448790E+00 , 0.7448789E+00 , 0.7448751E+00 , 0.7448800E+00 , 0.7448798E+00 ,& - & 0.7448760E+00 , 0.7448809E+00 , 0.7448771E+00 , 0.7448770E+00 , 0.7448782E+00 /) - asyice4(:, 27) = (/ & - & 0.7731197E+00 , 0.7285863E+00 , 0.7274370E+00 , 0.7293804E+00 , 0.7308171E+00 ,& - & 0.7317773E+00 , 0.7324523E+00 , 0.7329873E+00 , 0.7334291E+00 , 0.7338030E+00 ,& - & 0.7341189E+00 , 0.7343940E+00 , 0.7346279E+00 , 0.7348329E+00 , 0.7350105E+00 ,& - & 0.7351638E+00 , 0.7352973E+00 , 0.7354177E+00 , 0.7355176E+00 , 0.7356076E+00 ,& - & 0.7356852E+00 , 0.7357525E+00 , 0.7358170E+00 , 0.7358685E+00 , 0.7359180E+00 ,& - & 0.7359570E+00 , 0.7359940E+00 , 0.7360313E+00 , 0.7360689E+00 , 0.7360982E+00 ,& - & 0.7361315E+00 , 0.7361588E+00 , 0.7361814E+00 , 0.7362117E+00 , 0.7362323E+00 ,& - & 0.7362506E+00 , 0.7362716E+00 , 0.7362865E+00 , 0.7363041E+00 , 0.7363194E+00 ,& - & 0.7363322E+00 , 0.7363428E+00 , 0.7363511E+00 , 0.7363606E+00 , 0.7363678E+00 ,& - & 0.7363727E+00 , 0.7363739E+00 , 0.7363814E+00 , 0.7363816E+00 , 0.7363831E+00 ,& - & 0.7363772E+00 , 0.7363814E+00 , 0.7363818E+00 , 0.7363750E+00 , 0.7363780E+00 ,& - & 0.7363688E+00 , 0.7363696E+00 , 0.7363666E+00 , 0.7363600E+00 , 0.7363584E+00 ,& - & 0.7363544E+00 , 0.7363504E+00 , 0.7363465E+00 , 0.7363402E+00 , 0.7363388E+00 ,& - & 0.7363374E+00 , 0.7363324E+00 , 0.7363287E+00 , 0.7363250E+00 , 0.7363226E+00 ,& - & 0.7363202E+00 , 0.7363178E+00 , 0.7363167E+00 , 0.7363156E+00 , 0.7363108E+00 ,& - & 0.7363111E+00 , 0.7363113E+00 , 0.7363079E+00 , 0.7363044E+00 , 0.7363060E+00 ,& - & 0.7363038E+00 , 0.7363017E+00 , 0.7362996E+00 , 0.7363024E+00 , 0.7363003E+00 ,& - & 0.7362995E+00 , 0.7362986E+00 , 0.7363028E+00 , 0.7363020E+00 , 0.7362975E+00 ,& - & 0.7363017E+00 , 0.7363021E+00 , 0.7363027E+00 , 0.7363032E+00 , 0.7363036E+00 ,& - & 0.7363041E+00 , 0.7363009E+00 , 0.7363015E+00 , 0.7363033E+00 , 0.7363037E+00 ,& - & 0.7363056E+00 , 0.7363024E+00 , 0.7363042E+00 , 0.7363060E+00 , 0.7363078E+00 ,& - & 0.7363046E+00 , 0.7363064E+00 , 0.7363083E+00 , 0.7363101E+00 , 0.7363082E+00 ,& - & 0.7363100E+00 , 0.7363132E+00 , 0.7363150E+00 , 0.7363131E+00 , 0.7363113E+00 ,& - & 0.7363181E+00 , 0.7363162E+00 , 0.7363143E+00 , 0.7363175E+00 , 0.7363156E+00 ,& - & 0.7363187E+00 , 0.7363169E+00 , 0.7363200E+00 , 0.7363231E+00 , 0.7363212E+00 ,& - & 0.7363207E+00 , 0.7363238E+00 , 0.7363269E+00 , 0.7363264E+00 , 0.7363296E+00 ,& - & 0.7363290E+00 , 0.7363284E+00 , 0.7363279E+00 , 0.7363310E+00 , 0.7363304E+00 ,& - & 0.7363349E+00 , 0.7363344E+00 , 0.7363338E+00 , 0.7363383E+00 , 0.7363340E+00 ,& - & 0.7363385E+00 , 0.7363380E+00 , 0.7363387E+00 , 0.7363382E+00 , 0.7363390E+00 ,& - & 0.7363397E+00 , 0.7363442E+00 , 0.7363449E+00 , 0.7363457E+00 , 0.7363465E+00 ,& - & 0.7363473E+00 , 0.7363480E+00 , 0.7363488E+00 , 0.7363459E+00 , 0.7363517E+00 ,& - & 0.7363524E+00 , 0.7363545E+00 , 0.7363516E+00 , 0.7363574E+00 , 0.7363545E+00 ,& - & 0.7363566E+00 , 0.7363536E+00 , 0.7363557E+00 , 0.7363578E+00 , 0.7363599E+00 ,& - & 0.7363620E+00 , 0.7363641E+00 , 0.7363662E+00 , 0.7363646E+00 , 0.7363667E+00 ,& - & 0.7363651E+00 , 0.7363672E+00 , 0.7363706E+00 , 0.7363690E+00 , 0.7363674E+00 ,& - & 0.7363745E+00 , 0.7363729E+00 , 0.7363763E+00 , 0.7363747E+00 , 0.7363744E+00 ,& - & 0.7363778E+00 , 0.7363763E+00 , 0.7363797E+00 , 0.7363794E+00 , 0.7363828E+00 ,& - & 0.7363825E+00 , 0.7363859E+00 , 0.7363857E+00 , 0.7363891E+00 , 0.7363888E+00 ,& - & 0.7363886E+00 , 0.7363883E+00 , 0.7363880E+00 , 0.7363914E+00 , 0.7363961E+00 ,& - & 0.7363958E+00 , 0.7363919E+00 , 0.7363966E+00 , 0.7363964E+00 , 0.7363961E+00 /) - asyice4(:, 28) = (/ & - & 0.7215502E+00 , 0.7071316E+00 , 0.7091225E+00 , 0.7107826E+00 , 0.7118016E+00 ,& - & 0.7124543E+00 , 0.7129387E+00 , 0.7133317E+00 , 0.7136767E+00 , 0.7139750E+00 ,& - & 0.7142295E+00 , 0.7144461E+00 , 0.7146251E+00 , 0.7147671E+00 , 0.7148951E+00 ,& - & 0.7149901E+00 , 0.7150719E+00 , 0.7151338E+00 , 0.7151886E+00 , 0.7152315E+00 ,& - & 0.7152680E+00 , 0.7152932E+00 , 0.7153156E+00 , 0.7153337E+00 , 0.7153475E+00 ,& - & 0.7153571E+00 , 0.7153659E+00 , 0.7153791E+00 , 0.7153865E+00 , 0.7153896E+00 ,& - & 0.7154005E+00 , 0.7154058E+00 , 0.7154103E+00 , 0.7154176E+00 , 0.7154242E+00 ,& - & 0.7154288E+00 , 0.7154360E+00 , 0.7154412E+00 , 0.7154493E+00 , 0.7154502E+00 ,& - & 0.7154539E+00 , 0.7154590E+00 , 0.7154656E+00 , 0.7154686E+00 , 0.7154744E+00 ,& - & 0.7154767E+00 , 0.7154804E+00 , 0.7154805E+00 , 0.7154821E+00 , 0.7154850E+00 ,& - & 0.7154880E+00 , 0.7154838E+00 , 0.7154882E+00 , 0.7154855E+00 , 0.7154877E+00 ,& - & 0.7154863E+00 , 0.7154850E+00 , 0.7154887E+00 , 0.7154852E+00 , 0.7154852E+00 ,& - & 0.7154818E+00 , 0.7154832E+00 , 0.7154812E+00 , 0.7154791E+00 , 0.7154785E+00 ,& - & 0.7154814E+00 , 0.7154807E+00 , 0.7154765E+00 , 0.7154759E+00 , 0.7154766E+00 ,& - & 0.7154774E+00 , 0.7154746E+00 , 0.7154718E+00 , 0.7154726E+00 , 0.7154712E+00 ,& - & 0.7154734E+00 , 0.7154756E+00 , 0.7154742E+00 , 0.7154729E+00 , 0.7154714E+00 ,& - & 0.7154751E+00 , 0.7154701E+00 , 0.7154738E+00 , 0.7154738E+00 , 0.7154774E+00 ,& - & 0.7154775E+00 , 0.7154775E+00 , 0.7154790E+00 , 0.7154790E+00 , 0.7154840E+00 ,& - & 0.7154805E+00 , 0.7154855E+00 , 0.7154870E+00 , 0.7154835E+00 , 0.7154849E+00 ,& - & 0.7154900E+00 , 0.7154914E+00 , 0.7154929E+00 , 0.7154908E+00 , 0.7154922E+00 ,& - & 0.7154987E+00 , 0.7155002E+00 , 0.7154981E+00 , 0.7154995E+00 , 0.7155060E+00 ,& - & 0.7155039E+00 , 0.7155054E+00 , 0.7155082E+00 , 0.7155097E+00 , 0.7155126E+00 ,& - & 0.7155105E+00 , 0.7155169E+00 , 0.7155148E+00 , 0.7155177E+00 , 0.7155156E+00 ,& - & 0.7155185E+00 , 0.7155200E+00 , 0.7155228E+00 , 0.7155257E+00 , 0.7155236E+00 ,& - & 0.7155265E+00 , 0.7155294E+00 , 0.7155273E+00 , 0.7155302E+00 , 0.7155331E+00 ,& - & 0.7155359E+00 , 0.7155303E+00 , 0.7155331E+00 , 0.7155361E+00 , 0.7155389E+00 ,& - & 0.7155418E+00 , 0.7155361E+00 , 0.7155390E+00 , 0.7155419E+00 , 0.7155412E+00 ,& - & 0.7155441E+00 , 0.7155434E+00 , 0.7155463E+00 , 0.7155456E+00 , 0.7155485E+00 ,& - & 0.7155478E+00 , 0.7155471E+00 , 0.7155500E+00 , 0.7155544E+00 , 0.7155536E+00 ,& - & 0.7155529E+00 , 0.7155558E+00 , 0.7155551E+00 , 0.7155545E+00 , 0.7155588E+00 ,& - & 0.7155581E+00 , 0.7155574E+00 , 0.7155617E+00 , 0.7155610E+00 , 0.7155603E+00 ,& - & 0.7155647E+00 , 0.7155604E+00 , 0.7155647E+00 , 0.7155640E+00 , 0.7155683E+00 ,& - & 0.7155641E+00 , 0.7155684E+00 , 0.7155691E+00 , 0.7155684E+00 , 0.7155691E+00 ,& - & 0.7155685E+00 , 0.7155692E+00 , 0.7155735E+00 , 0.7155743E+00 , 0.7155700E+00 ,& - & 0.7155743E+00 , 0.7155750E+00 , 0.7155758E+00 , 0.7155765E+00 , 0.7155772E+00 ,& - & 0.7155815E+00 , 0.7155772E+00 , 0.7155780E+00 , 0.7155787E+00 , 0.7155795E+00 ,& - & 0.7155802E+00 , 0.7155774E+00 , 0.7155831E+00 , 0.7155839E+00 , 0.7155846E+00 ,& - & 0.7155853E+00 , 0.7155861E+00 , 0.7155832E+00 , 0.7155839E+00 , 0.7155896E+00 ,& - & 0.7155868E+00 , 0.7155876E+00 , 0.7155883E+00 , 0.7155905E+00 , 0.7155912E+00 ,& - & 0.7155883E+00 , 0.7155890E+00 , 0.7155913E+00 , 0.7155920E+00 , 0.7155941E+00 /) - asyice4(:, 29) = (/ & - & 0.5197451E+00 , 0.7237440E+00 , 0.7948388E+00 , 0.8248520E+00 , 0.8391855E+00 ,& - & 0.8465656E+00 , 0.8502502E+00 , 0.8516648E+00 , 0.8516752E+00 , 0.8510135E+00 ,& - & 0.8502740E+00 , 0.8499010E+00 , 0.8501286E+00 , 0.8510601E+00 , 0.8526700E+00 ,& - & 0.8548831E+00 , 0.8575808E+00 , 0.8606356E+00 , 0.8639477E+00 , 0.8674116E+00 ,& - & 0.8709596E+00 , 0.8745100E+00 , 0.8780335E+00 , 0.8815061E+00 , 0.8848826E+00 ,& - & 0.8881543E+00 , 0.8913210E+00 , 0.8943624E+00 , 0.8972904E+00 , 0.9000975E+00 ,& - & 0.9027990E+00 , 0.9053769E+00 , 0.9078507E+00 , 0.9102195E+00 , 0.9124908E+00 ,& - & 0.9146658E+00 , 0.9167460E+00 , 0.9187411E+00 , 0.9206474E+00 , 0.9224906E+00 ,& - & 0.9242451E+00 , 0.9259303E+00 , 0.9275428E+00 , 0.9290961E+00 , 0.9305880E+00 ,& - & 0.9320311E+00 , 0.9334089E+00 , 0.9347273E+00 , 0.9359996E+00 , 0.9372329E+00 ,& - & 0.9384100E+00 , 0.9395376E+00 , 0.9406384E+00 , 0.9416875E+00 , 0.9427077E+00 ,& - & 0.9436827E+00 , 0.9446272E+00 , 0.9455485E+00 , 0.9464222E+00 , 0.9472713E+00 ,& - & 0.9480959E+00 , 0.9488867E+00 , 0.9496517E+00 , 0.9503902E+00 , 0.9511102E+00 ,& - & 0.9518030E+00 , 0.9524767E+00 , 0.9531222E+00 , 0.9537477E+00 , 0.9543612E+00 ,& - & 0.9549457E+00 , 0.9555258E+00 , 0.9560766E+00 , 0.9566144E+00 , 0.9571304E+00 ,& - & 0.9576413E+00 , 0.9581218E+00 , 0.9586052E+00 , 0.9590662E+00 , 0.9595130E+00 ,& - & 0.9599456E+00 , 0.9603719E+00 , 0.9607751E+00 , 0.9611809E+00 , 0.9615629E+00 ,& - & 0.9619470E+00 , 0.9623160E+00 , 0.9626698E+00 , 0.9630168E+00 , 0.9633483E+00 ,& - & 0.9636813E+00 , 0.9639989E+00 , 0.9643093E+00 , 0.9646125E+00 , 0.9648998E+00 ,& - & 0.9651970E+00 , 0.9654782E+00 , 0.9657432E+00 , 0.9660183E+00 , 0.9662681E+00 ,& - & 0.9665280E+00 , 0.9667714E+00 , 0.9670157E+00 , 0.9672524E+00 , 0.9674811E+00 ,& - & 0.9677020E+00 , 0.9679238E+00 , 0.9681290E+00 , 0.9683348E+00 , 0.9685413E+00 ,& - & 0.9687399E+00 , 0.9689305E+00 , 0.9691217E+00 , 0.9693047E+00 , 0.9694883E+00 ,& - & 0.9696637E+00 , 0.9698310E+00 , 0.9699987E+00 , 0.9701670E+00 , 0.9703360E+00 ,& - & 0.9704878E+00 , 0.9706399E+00 , 0.9707927E+00 , 0.9709367E+00 , 0.9710816E+00 ,& - & 0.9712265E+00 , 0.9713634E+00 , 0.9715005E+00 , 0.9716380E+00 , 0.9717579E+00 ,& - & 0.9718872E+00 , 0.9720170E+00 , 0.9721292E+00 , 0.9722596E+00 , 0.9723724E+00 ,& - & 0.9724857E+00 , 0.9725993E+00 , 0.9727129E+00 , 0.9728091E+00 , 0.9729235E+00 ,& - & 0.9730291E+00 , 0.9731352E+00 , 0.9732324E+00 , 0.9733299E+00 , 0.9734276E+00 ,& - & 0.9735166E+00 , 0.9736058E+00 , 0.9737042E+00 , 0.9737848E+00 , 0.9738747E+00 ,& - & 0.9739649E+00 , 0.9740462E+00 , 0.9741276E+00 , 0.9742092E+00 , 0.9742910E+00 ,& - & 0.9743642E+00 , 0.9744462E+00 , 0.9745197E+00 , 0.9745932E+00 , 0.9746668E+00 ,& - & 0.9747406E+00 , 0.9748148E+00 , 0.9748798E+00 , 0.9749451E+00 , 0.9750196E+00 ,& - & 0.9750760E+00 , 0.9751508E+00 , 0.9752074E+00 , 0.9752734E+00 , 0.9753304E+00 ,& - & 0.9753966E+00 , 0.9754447E+00 , 0.9755112E+00 , 0.9755686E+00 , 0.9756262E+00 ,& - & 0.9756748E+00 , 0.9757417E+00 , 0.9757904E+00 , 0.9758394E+00 , 0.9758976E+00 ,& - & 0.9759466E+00 , 0.9759958E+00 , 0.9760451E+00 , 0.9760854E+00 , 0.9761440E+00 ,& - & 0.9761935E+00 , 0.9762341E+00 , 0.9762840E+00 , 0.9763246E+00 , 0.9763744E+00 ,& - & 0.9764153E+00 , 0.9764655E+00 , 0.9764973E+00 , 0.9765475E+00 , 0.9765887E+00 ,& - & 0.9766208E+00 , 0.9766712E+00 , 0.9767034E+00 , 0.9767448E+00 , 0.9767772E+00 /) - - end subroutine swcldpr - - end module rrtmg_sw_init diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_16.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_16.F90 deleted file mode 100644 index 2976f6e9b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_16.F90 +++ /dev/null @@ -1,4830 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb16 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg16, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, & - irradnceo, facbrghto, snsptdrko - use rrsw_vsn, only: hvrkg, hnamkg - - implicit none - save - - hvrkg = '$Revision$' - -! Kurucz solar source function - sfluxrefo(:) = (/ & - & 1.92269 , 1.72844 , 1.64326 , 1.58451 & - &, 1.44031 , 1.25108 , 1.02724 , 0.776759 & - &, 0.534444 , 5.87755e-02, 4.86706e-02, 3.87989e-02 & - &, 2.84532e-02, 1.82431e-02, 6.92320e-03, 9.70770e-04 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:) = (/ & - & 1.80482E+00, 1.71619E+00, 1.68994E+00, 1.58561E+00,& - & 1.43214E+00, 1.24420E+00, 1.02231E+00, 7.68091E-01,& - & 5.28826E-01, 5.82363E-02, 4.82582E-02, 3.84759E-02,& - & 2.81846E-02, 1.80770E-02, 6.85363E-03, 9.61125E-04/) -! Solar variability components: facular brightening - facbrghto(:) = (/ & - & 5.90515E-04, 5.75575E-04, 5.51485E-04, 5.11499E-04,& - & 4.59121E-04, 3.95691E-04, 3.23581E-04, 2.43651E-04,& - & 1.66062E-04, 1.81173E-05, 1.50358E-05, 1.19376E-05,& - & 8.78046E-06, 5.59093E-06, 2.08811E-06, 2.94021E-07/) -! Solar variability components: sunspot darkening - snsptdrko(:) = (/ & - &-2.00878E-04,-1.90918E-04,-1.88460E-04,-1.76835E-04,& - &-1.59524E-04,-1.38415E-04,-1.13577E-04,-8.52281E-05,& - &-5.86712E-05,-6.47215E-06,-5.37923E-06,-4.28842E-06,& - &-3.14297E-06,-2.01052E-06,-7.61203E-07,-1.08060E-07/) - -! Rayleigh extinction coefficient at v = 2925 cm-1. - rayl = 2.91e-10 - -! ----------------------------------------------------------------- -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1, 1) = (/ & - & 0.15349e-04,0.89162e-04,0.97706e-04,0.96973e-04,0.90703e-04, & - & 0.80393e-04,0.67242e-04,0.50804e-04,0.23334e-04 /) - kao(:, 2, 1, 1) = (/ & - & 0.16138e-04,0.89235e-04,0.97696e-04,0.96116e-04,0.89625e-04, & - & 0.79382e-04,0.66587e-04,0.50583e-04,0.24342e-04 /) - kao(:, 3, 1, 1) = (/ & - & 0.16801e-04,0.89390e-04,0.97492e-04,0.95146e-04,0.88483e-04, & - & 0.78325e-04,0.65873e-04,0.50342e-04,0.25245e-04 /) - kao(:, 4, 1, 1) = (/ & - & 0.17584e-04,0.89321e-04,0.97141e-04,0.93952e-04,0.87141e-04, & - & 0.77126e-04,0.65068e-04,0.49985e-04,0.26046e-04 /) - kao(:, 5, 1, 1) = (/ & - & 0.18258e-04,0.89204e-04,0.96602e-04,0.92773e-04,0.85832e-04, & - & 0.76015e-04,0.64318e-04,0.49612e-04,0.26697e-04 /) - kao(:, 1, 2, 1) = (/ & - & 0.12783e-04,0.77013e-04,0.85056e-04,0.84160e-04,0.79021e-04, & - & 0.70101e-04,0.58520e-04,0.44007e-04,0.19895e-04 /) - kao(:, 2, 2, 1) = (/ & - & 0.13452e-04,0.77084e-04,0.84929e-04,0.83386e-04,0.78122e-04, & - & 0.69293e-04,0.57974e-04,0.43855e-04,0.20713e-04 /) - kao(:, 3, 2, 1) = (/ & - & 0.14066e-04,0.77185e-04,0.84612e-04,0.82498e-04,0.77177e-04, & - & 0.68443e-04,0.57444e-04,0.43722e-04,0.21494e-04 /) - kao(:, 4, 2, 1) = (/ & - & 0.14678e-04,0.76996e-04,0.83962e-04,0.81526e-04,0.76049e-04, & - & 0.67485e-04,0.56822e-04,0.43530e-04,0.22200e-04 /) - kao(:, 5, 2, 1) = (/ & - & 0.15258e-04,0.76788e-04,0.82821e-04,0.80320e-04,0.74845e-04, & - & 0.66487e-04,0.56144e-04,0.43262e-04,0.22757e-04 /) - kao(:, 1, 3, 1) = (/ & - & 0.10474e-04,0.66144e-04,0.73703e-04,0.72701e-04,0.68638e-04, & - & 0.60826e-04,0.50854e-04,0.37989e-04,0.17743e-04 /) - kao(:, 2, 3, 1) = (/ & - & 0.11024e-04,0.66096e-04,0.73447e-04,0.72029e-04,0.67858e-04, & - & 0.60163e-04,0.50424e-04,0.37886e-04,0.18519e-04 /) - kao(:, 3, 3, 1) = (/ & - & 0.11534e-04,0.65974e-04,0.72795e-04,0.71229e-04,0.67005e-04, & - & 0.59442e-04,0.49950e-04,0.37779e-04,0.19184e-04 /) - kao(:, 4, 3, 1) = (/ & - & 0.12091e-04,0.65752e-04,0.72003e-04,0.70357e-04,0.66129e-04, & - & 0.58718e-04,0.49503e-04,0.37690e-04,0.19788e-04 /) - kao(:, 5, 3, 1) = (/ & - & 0.12560e-04,0.65678e-04,0.71013e-04,0.69266e-04,0.65076e-04, & - & 0.57873e-04,0.48947e-04,0.37519e-04,0.20290e-04 /) - kao(:, 1, 4, 1) = (/ & - & 0.85236e-05,0.56692e-04,0.63625e-04,0.62567e-04,0.59412e-04, & - & 0.52601e-04,0.43957e-04,0.32602e-04,0.16862e-04 /) - kao(:, 2, 4, 1) = (/ & - & 0.89886e-05,0.56512e-04,0.63288e-04,0.61902e-04,0.58733e-04, & - & 0.52036e-04,0.43629e-04,0.32592e-04,0.17543e-04 /) - kao(:, 3, 4, 1) = (/ & - & 0.94085e-05,0.56287e-04,0.62588e-04,0.61197e-04,0.58020e-04, & - & 0.51469e-04,0.43247e-04,0.32567e-04,0.18199e-04 /) - kao(:, 4, 4, 1) = (/ & - & 0.98830e-05,0.55998e-04,0.61716e-04,0.60485e-04,0.57250e-04, & - & 0.50840e-04,0.42842e-04,0.32520e-04,0.18771e-04 /) - kao(:, 5, 4, 1) = (/ & - & 0.10278e-04,0.55929e-04,0.61011e-04,0.59745e-04,0.56462e-04, & - & 0.50254e-04,0.42468e-04,0.32457e-04,0.19296e-04 /) - kao(:, 1, 5, 1) = (/ & - & 0.68852e-05,0.48282e-04,0.54761e-04,0.53543e-04,0.51345e-04, & - & 0.45380e-04,0.37794e-04,0.27880e-04,0.14959e-04 /) - kao(:, 2, 5, 1) = (/ & - & 0.72830e-05,0.48206e-04,0.54379e-04,0.52923e-04,0.50723e-04, & - & 0.44903e-04,0.37536e-04,0.27938e-04,0.15841e-04 /) - kao(:, 3, 5, 1) = (/ & - & 0.76436e-05,0.47928e-04,0.53597e-04,0.52299e-04,0.50061e-04, & - & 0.44426e-04,0.37240e-04,0.27962e-04,0.16760e-04 /) - kao(:, 4, 5, 1) = (/ & - & 0.80055e-05,0.47625e-04,0.52896e-04,0.51678e-04,0.49302e-04, & - & 0.43902e-04,0.36930e-04,0.27968e-04,0.17586e-04 /) - kao(:, 5, 5, 1) = (/ & - & 0.83555e-05,0.47486e-04,0.52258e-04,0.51112e-04,0.48444e-04, & - & 0.43409e-04,0.36652e-04,0.27966e-04,0.18270e-04 /) - kao(:, 1, 6, 1) = (/ & - & 0.55363e-05,0.40995e-04,0.46991e-04,0.45840e-04,0.44200e-04, & - & 0.38984e-04,0.32341e-04,0.23743e-04,0.12825e-04 /) - kao(:, 2, 6, 1) = (/ & - & 0.58741e-05,0.40851e-04,0.46490e-04,0.45277e-04,0.43651e-04, & - & 0.38565e-04,0.32141e-04,0.23813e-04,0.13671e-04 /) - kao(:, 3, 6, 1) = (/ & - & 0.61821e-05,0.40643e-04,0.45850e-04,0.44728e-04,0.42924e-04, & - & 0.38164e-04,0.31920e-04,0.23858e-04,0.14647e-04 /) - kao(:, 4, 6, 1) = (/ & - & 0.64614e-05,0.40329e-04,0.45202e-04,0.44163e-04,0.42054e-04, & - & 0.37723e-04,0.31679e-04,0.23886e-04,0.15533e-04 /) - kao(:, 5, 6, 1) = (/ & - & 0.67675e-05,0.40137e-04,0.44578e-04,0.43574e-04,0.41267e-04, & - & 0.37271e-04,0.31420e-04,0.23883e-04,0.16436e-04 /) - kao(:, 1, 7, 1) = (/ & - & 0.44217e-05,0.34626e-04,0.39970e-04,0.39080e-04,0.37744e-04, & - & 0.33237e-04,0.27507e-04,0.20074e-04,0.11007e-04 /) - kao(:, 2, 7, 1) = (/ & - & 0.47104e-05,0.34494e-04,0.39592e-04,0.38568e-04,0.37283e-04, & - & 0.32875e-04,0.27342e-04,0.20149e-04,0.11834e-04 /) - kao(:, 3, 7, 1) = (/ & - & 0.49764e-05,0.34300e-04,0.39007e-04,0.38074e-04,0.36415e-04, & - & 0.32528e-04,0.27158e-04,0.20213e-04,0.12801e-04 /) - kao(:, 4, 7, 1) = (/ & - & 0.52135e-05,0.34067e-04,0.38449e-04,0.37591e-04,0.35661e-04, & - & 0.32173e-04,0.26959e-04,0.20265e-04,0.13763e-04 /) - kao(:, 5, 7, 1) = (/ & - & 0.54275e-05,0.33832e-04,0.37875e-04,0.37057e-04,0.35065e-04, & - & 0.31800e-04,0.26760e-04,0.20278e-04,0.14677e-04 /) - kao(:, 1, 8, 1) = (/ & - & 0.35317e-05,0.29115e-04,0.33824e-04,0.33370e-04,0.32237e-04, & - & 0.28331e-04,0.23362e-04,0.16932e-04,0.96086e-05 /) - kao(:, 2, 8, 1) = (/ & - & 0.37854e-05,0.29084e-04,0.33632e-04,0.32929e-04,0.31805e-04, & - & 0.28018e-04,0.23236e-04,0.17006e-04,0.10621e-04 /) - kao(:, 3, 8, 1) = (/ & - & 0.40127e-05,0.28935e-04,0.33190e-04,0.32483e-04,0.30936e-04, & - & 0.27716e-04,0.23074e-04,0.17087e-04,0.11657e-04 /) - kao(:, 4, 8, 1) = (/ & - & 0.42184e-05,0.28732e-04,0.32711e-04,0.32042e-04,0.30351e-04, & - & 0.27404e-04,0.22906e-04,0.17140e-04,0.12504e-04 /) - kao(:, 5, 8, 1) = (/ & - & 0.44040e-05,0.28488e-04,0.32207e-04,0.31581e-04,0.29852e-04, & - & 0.27086e-04,0.22740e-04,0.17166e-04,0.13401e-04 /) - kao(:, 1, 9, 1) = (/ & - & 0.28004e-05,0.24421e-04,0.28507e-04,0.28270e-04,0.27415e-04, & - & 0.24038e-04,0.19759e-04,0.14209e-04,0.88498e-05 /) - kao(:, 2, 9, 1) = (/ & - & 0.30342e-05,0.24385e-04,0.28391e-04,0.27999e-04,0.26969e-04, & - & 0.23770e-04,0.19651e-04,0.14288e-04,0.10048e-04 /) - kao(:, 3, 9, 1) = (/ & - & 0.32304e-05,0.24304e-04,0.28136e-04,0.27602e-04,0.26246e-04, & - & 0.23508e-04,0.19517e-04,0.14360e-04,0.11188e-04 /) - kao(:, 4, 9, 1) = (/ & - & 0.34049e-05,0.24160e-04,0.27731e-04,0.27211e-04,0.25756e-04, & - & 0.23246e-04,0.19380e-04,0.14426e-04,0.12319e-04 /) - kao(:, 5, 9, 1) = (/ & - & 0.35648e-05,0.23940e-04,0.27283e-04,0.26806e-04,0.25320e-04, & - & 0.22960e-04,0.19234e-04,0.14451e-04,0.13506e-04 /) - kao(:, 1,10, 1) = (/ & - & 0.22115e-05,0.20358e-04,0.23898e-04,0.23781e-04,0.23142e-04, & - & 0.20260e-04,0.16593e-04,0.11876e-04,0.77665e-05 /) - kao(:, 2,10, 1) = (/ & - & 0.24264e-05,0.20362e-04,0.23820e-04,0.23569e-04,0.22708e-04, & - & 0.20037e-04,0.16524e-04,0.11954e-04,0.90216e-05 /) - kao(:, 3,10, 1) = (/ & - & 0.26002e-05,0.20303e-04,0.23663e-04,0.23295e-04,0.22132e-04, & - & 0.19806e-04,0.16414e-04,0.12011e-04,0.10379e-04 /) - kao(:, 4,10, 1) = (/ & - & 0.27486e-05,0.20198e-04,0.23357e-04,0.22943e-04,0.21707e-04, & - & 0.19580e-04,0.16298e-04,0.12060e-04,0.11771e-04 /) - kao(:, 5,10, 1) = (/ & - & 0.28881e-05,0.20019e-04,0.22982e-04,0.22584e-04,0.21296e-04, & - & 0.19341e-04,0.16164e-04,0.12088e-04,0.13279e-04 /) - kao(:, 1,11, 1) = (/ & - & 0.18320e-05,0.16927e-04,0.19968e-04,0.19856e-04,0.19352e-04, & - & 0.16934e-04,0.13866e-04,0.99116e-05,0.67134e-05 /) - kao(:, 2,11, 1) = (/ & - & 0.20049e-05,0.16927e-04,0.19853e-04,0.19674e-04,0.18853e-04, & - & 0.16739e-04,0.13797e-04,0.99757e-05,0.78968e-05 /) - kao(:, 3,11, 1) = (/ & - & 0.21502e-05,0.16866e-04,0.19704e-04,0.19448e-04,0.18441e-04, & - & 0.16541e-04,0.13705e-04,0.10023e-04,0.91593e-05 /) - kao(:, 4,11, 1) = (/ & - & 0.22714e-05,0.16777e-04,0.19465e-04,0.19143e-04,0.18062e-04, & - & 0.16347e-04,0.13601e-04,0.10057e-04,0.10536e-04 /) - kao(:, 5,11, 1) = (/ & - & 0.23867e-05,0.16634e-04,0.19123e-04,0.18829e-04,0.17732e-04, & - & 0.16132e-04,0.13484e-04,0.10082e-04,0.12018e-04 /) - kao(:, 1,12, 1) = (/ & - & 0.15169e-05,0.14042e-04,0.16626e-04,0.16552e-04,0.16148e-04, & - & 0.14121e-04,0.11557e-04,0.82558e-05,0.56116e-05 /) - kao(:, 2,12, 1) = (/ & - & 0.16576e-05,0.14051e-04,0.16515e-04,0.16389e-04,0.15651e-04, & - & 0.13956e-04,0.11498e-04,0.83065e-05,0.66756e-05 /) - kao(:, 3,12, 1) = (/ & - & 0.17786e-05,0.13996e-04,0.16382e-04,0.16200e-04,0.15335e-04, & - & 0.13791e-04,0.11414e-04,0.83396e-05,0.78609e-05 /) - kao(:, 4,12, 1) = (/ & - & 0.18784e-05,0.13920e-04,0.16173e-04,0.15944e-04,0.15016e-04, & - & 0.13612e-04,0.11321e-04,0.83696e-05,0.90657e-05 /) - kao(:, 5,12, 1) = (/ & - & 0.19730e-05,0.13808e-04,0.15876e-04,0.15671e-04,0.14704e-04, & - & 0.13425e-04,0.11218e-04,0.83846e-05,0.10342e-04 /) - kao(:, 1,13, 1) = (/ & - & 0.12548e-05,0.11622e-04,0.13817e-04,0.13765e-04,0.13366e-04, & - & 0.11761e-04,0.96214e-05,0.68586e-05,0.46815e-05 /) - kao(:, 2,13, 1) = (/ & - & 0.13720e-05,0.11638e-04,0.13707e-04,0.13640e-04,0.13007e-04, & - & 0.11624e-04,0.95672e-05,0.68978e-05,0.55831e-05 /) - kao(:, 3,13, 1) = (/ & - & 0.14716e-05,0.11595e-04,0.13603e-04,0.13476e-04,0.12728e-04, & - & 0.11474e-04,0.94883e-05,0.69284e-05,0.65694e-05 /) - kao(:, 4,13, 1) = (/ & - & 0.15544e-05,0.11533e-04,0.13432e-04,0.13265e-04,0.12450e-04, & - & 0.11320e-04,0.94054e-05,0.69510e-05,0.75699e-05 /) - kao(:, 5,13, 1) = (/ & - & 0.16324e-05,0.11450e-04,0.13177e-04,0.13030e-04,0.12193e-04, & - & 0.11159e-04,0.93157e-05,0.69543e-05,0.86449e-05 /) - kao(:, 1, 1, 2) = (/ & - & 0.10905e-03,0.19084e-03,0.20069e-03,0.19832e-03,0.18610e-03, & - & 0.17089e-03,0.14990e-03,0.11759e-03,0.64675e-04 /) - kao(:, 2, 1, 2) = (/ & - & 0.11105e-03,0.18952e-03,0.19885e-03,0.19823e-03,0.18675e-03, & - & 0.17126e-03,0.15098e-03,0.11929e-03,0.67071e-04 /) - kao(:, 3, 1, 2) = (/ & - & 0.11276e-03,0.18853e-03,0.19769e-03,0.19892e-03,0.18804e-03, & - & 0.17228e-03,0.15234e-03,0.12104e-03,0.69562e-04 /) - kao(:, 4, 1, 2) = (/ & - & 0.11331e-03,0.18716e-03,0.19673e-03,0.19862e-03,0.18922e-03, & - & 0.17345e-03,0.15364e-03,0.12287e-03,0.72145e-04 /) - kao(:, 5, 1, 2) = (/ & - & 0.11374e-03,0.18626e-03,0.19656e-03,0.19857e-03,0.19062e-03, & - & 0.17445e-03,0.15373e-03,0.12483e-03,0.74697e-04 /) - kao(:, 1, 2, 2) = (/ & - & 0.94458e-04,0.16650e-03,0.17483e-03,0.17491e-03,0.16501e-03, & - & 0.15069e-03,0.13359e-03,0.10498e-03,0.55352e-04 /) - kao(:, 2, 2, 2) = (/ & - & 0.96121e-04,0.16557e-03,0.17383e-03,0.17514e-03,0.16597e-03, & - & 0.15082e-03,0.13480e-03,0.10677e-03,0.57531e-04 /) - kao(:, 3, 2, 2) = (/ & - & 0.97581e-04,0.16494e-03,0.17349e-03,0.17480e-03,0.16726e-03, & - & 0.15206e-03,0.13520e-03,0.10844e-03,0.59621e-04 /) - kao(:, 4, 2, 2) = (/ & - & 0.98152e-04,0.16427e-03,0.17323e-03,0.17471e-03,0.16812e-03, & - & 0.15352e-03,0.13523e-03,0.11008e-03,0.61894e-04 /) - kao(:, 5, 2, 2) = (/ & - & 0.98081e-04,0.16346e-03,0.17334e-03,0.17481e-03,0.16845e-03, & - & 0.15496e-03,0.13612e-03,0.11175e-03,0.64159e-04 /) - kao(:, 1, 3, 2) = (/ & - & 0.80988e-04,0.14444e-03,0.15236e-03,0.15355e-03,0.14515e-03, & - & 0.13201e-03,0.11827e-03,0.92843e-04,0.47818e-04 /) - kao(:, 2, 3, 2) = (/ & - & 0.82627e-04,0.14399e-03,0.15198e-03,0.15308e-03,0.14622e-03, & - & 0.13285e-03,0.11829e-03,0.94579e-04,0.49498e-04 /) - kao(:, 3, 3, 2) = (/ & - & 0.83666e-04,0.14365e-03,0.15183e-03,0.15300e-03,0.14704e-03, & - & 0.13418e-03,0.11832e-03,0.96259e-04,0.51225e-04 /) - kao(:, 4, 3, 2) = (/ & - & 0.84164e-04,0.14362e-03,0.15205e-03,0.15285e-03,0.14764e-03, & - & 0.13590e-03,0.11954e-03,0.97885e-04,0.52990e-04 /) - kao(:, 5, 3, 2) = (/ & - & 0.84014e-04,0.14269e-03,0.15214e-03,0.15331e-03,0.14865e-03, & - & 0.13747e-03,0.12089e-03,0.99389e-04,0.54936e-04 /) - kao(:, 1, 4, 2) = (/ & - & 0.69055e-04,0.12498e-03,0.13260e-03,0.13427e-03,0.12748e-03, & - & 0.11593e-03,0.10318e-03,0.81535e-04,0.43344e-04 /) - kao(:, 2, 4, 2) = (/ & - & 0.70374e-04,0.12479e-03,0.13217e-03,0.13387e-03,0.12823e-03, & - & 0.11702e-03,0.10316e-03,0.83059e-04,0.44577e-04 /) - kao(:, 3, 4, 2) = (/ & - & 0.71321e-04,0.12483e-03,0.13205e-03,0.13371e-03,0.12866e-03, & - & 0.11820e-03,0.10422e-03,0.84648e-04,0.45880e-04 /) - kao(:, 4, 4, 2) = (/ & - & 0.71712e-04,0.12475e-03,0.13249e-03,0.13379e-03,0.12934e-03, & - & 0.11960e-03,0.10551e-03,0.86238e-04,0.47243e-04 /) - kao(:, 5, 4, 2) = (/ & - & 0.71917e-04,0.12433e-03,0.13275e-03,0.13434e-03,0.13049e-03, & - & 0.12131e-03,0.10676e-03,0.87830e-04,0.48641e-04 /) - kao(:, 1, 5, 2) = (/ & - & 0.58527e-04,0.10840e-03,0.11507e-03,0.11730e-03,0.11099e-03, & - & 0.10118e-03,0.89566e-04,0.71122e-04,0.43658e-04 /) - kao(:, 2, 5, 2) = (/ & - & 0.59798e-04,0.10799e-03,0.11447e-03,0.11692e-03,0.11189e-03, & - & 0.10224e-03,0.90255e-04,0.72476e-04,0.44361e-04 /) - kao(:, 3, 5, 2) = (/ & - & 0.60601e-04,0.10799e-03,0.11464e-03,0.11677e-03,0.11225e-03, & - & 0.10358e-03,0.91122e-04,0.73922e-04,0.45004e-04 /) - kao(:, 4, 5, 2) = (/ & - & 0.60971e-04,0.10798e-03,0.11486e-03,0.11681e-03,0.11304e-03, & - & 0.10512e-03,0.91981e-04,0.75441e-04,0.45782e-04 /) - kao(:, 5, 5, 2) = (/ & - & 0.61166e-04,0.10769e-03,0.11529e-03,0.11740e-03,0.11428e-03, & - & 0.10674e-03,0.93329e-04,0.76963e-04,0.46781e-04 /) - kao(:, 1, 6, 2) = (/ & - & 0.49298e-04,0.93665e-04,0.99302e-04,0.10166e-03,0.96125e-04, & - & 0.87991e-04,0.77830e-04,0.61651e-04,0.45761e-04 /) - kao(:, 2, 6, 2) = (/ & - & 0.50498e-04,0.93479e-04,0.98966e-04,0.10139e-03,0.96705e-04, & - & 0.89173e-04,0.78227e-04,0.62850e-04,0.46039e-04 /) - kao(:, 3, 6, 2) = (/ & - & 0.51269e-04,0.93203e-04,0.98973e-04,0.10127e-03,0.97298e-04, & - & 0.90362e-04,0.78802e-04,0.64157e-04,0.46346e-04 /) - kao(:, 4, 6, 2) = (/ & - & 0.51588e-04,0.93137e-04,0.99162e-04,0.10129e-03,0.98592e-04, & - & 0.91554e-04,0.79929e-04,0.65574e-04,0.46727e-04 /) - kao(:, 5, 6, 2) = (/ & - & 0.51597e-04,0.92792e-04,0.99458e-04,0.10170e-03,0.99448e-04, & - & 0.92834e-04,0.81330e-04,0.66366e-04,0.47183e-04 /) - kao(:, 1, 7, 2) = (/ & - & 0.41246e-04,0.80496e-04,0.85316e-04,0.87435e-04,0.82542e-04, & - & 0.75819e-04,0.67022e-04,0.53111e-04,0.48352e-04 /) - kao(:, 2, 7, 2) = (/ & - & 0.42332e-04,0.80236e-04,0.84984e-04,0.87173e-04,0.83192e-04, & - & 0.76872e-04,0.67154e-04,0.54235e-04,0.49203e-04 /) - kao(:, 3, 7, 2) = (/ & - & 0.43069e-04,0.79969e-04,0.85117e-04,0.87191e-04,0.83963e-04, & - & 0.78027e-04,0.67911e-04,0.55423e-04,0.50036e-04 /) - kao(:, 4, 7, 2) = (/ & - & 0.43347e-04,0.79762e-04,0.85176e-04,0.87282e-04,0.84970e-04, & - & 0.78971e-04,0.69097e-04,0.56659e-04,0.50699e-04 /) - kao(:, 5, 7, 2) = (/ & - & 0.43381e-04,0.79473e-04,0.85320e-04,0.87550e-04,0.85526e-04, & - & 0.80111e-04,0.70399e-04,0.56992e-04,0.51218e-04 /) - kao(:, 1, 8, 2) = (/ & - & 0.34402e-04,0.69256e-04,0.73264e-04,0.74907e-04,0.70733e-04, & - & 0.65058e-04,0.57123e-04,0.45547e-04,0.49061e-04 /) - kao(:, 2, 8, 2) = (/ & - & 0.35394e-04,0.68938e-04,0.72891e-04,0.74693e-04,0.71198e-04, & - & 0.66010e-04,0.57419e-04,0.46585e-04,0.51368e-04 /) - kao(:, 3, 8, 2) = (/ & - & 0.36086e-04,0.68637e-04,0.72875e-04,0.74679e-04,0.72090e-04, & - & 0.66902e-04,0.58282e-04,0.47622e-04,0.51837e-04 /) - kao(:, 4, 8, 2) = (/ & - & 0.36445e-04,0.68326e-04,0.72869e-04,0.74856e-04,0.72765e-04, & - & 0.67827e-04,0.59362e-04,0.48483e-04,0.52297e-04 /) - kao(:, 5, 8, 2) = (/ & - & 0.36483e-04,0.68010e-04,0.72961e-04,0.75096e-04,0.73241e-04, & - & 0.68587e-04,0.60512e-04,0.48784e-04,0.53745e-04 /) - kao(:, 1, 9, 2) = (/ & - & 0.28433e-04,0.59232e-04,0.62701e-04,0.63901e-04,0.60103e-04, & - & 0.55141e-04,0.48531e-04,0.38847e-04,0.54662e-04 /) - kao(:, 2, 9, 2) = (/ & - & 0.29405e-04,0.58918e-04,0.62216e-04,0.63604e-04,0.60633e-04, & - & 0.55830e-04,0.48918e-04,0.39795e-04,0.56459e-04 /) - kao(:, 3, 9, 2) = (/ & - & 0.30040e-04,0.58597e-04,0.61986e-04,0.63627e-04,0.61357e-04, & - & 0.56779e-04,0.49706e-04,0.40729e-04,0.58698e-04 /) - kao(:, 4, 9, 2) = (/ & - & 0.30412e-04,0.58268e-04,0.61940e-04,0.63690e-04,0.61916e-04, & - & 0.57700e-04,0.50677e-04,0.41137e-04,0.60426e-04 /) - kao(:, 5, 9, 2) = (/ & - & 0.30517e-04,0.57913e-04,0.61982e-04,0.63808e-04,0.62307e-04, & - & 0.58353e-04,0.51602e-04,0.41668e-04,0.61933e-04 /) - kao(:, 1,10, 2) = (/ & - & 0.23291e-04,0.50308e-04,0.53243e-04,0.54258e-04,0.50787e-04, & - & 0.46509e-04,0.41036e-04,0.32969e-04,0.63749e-04 /) - kao(:, 2,10, 2) = (/ & - & 0.24304e-04,0.50027e-04,0.52858e-04,0.54035e-04,0.51457e-04, & - & 0.47117e-04,0.41427e-04,0.33795e-04,0.67891e-04 /) - kao(:, 3,10, 2) = (/ & - & 0.24884e-04,0.49658e-04,0.52484e-04,0.53877e-04,0.52001e-04, & - & 0.47908e-04,0.42080e-04,0.34652e-04,0.71374e-04 /) - kao(:, 4,10, 2) = (/ & - & 0.25245e-04,0.49329e-04,0.52369e-04,0.53861e-04,0.52353e-04, & - & 0.48763e-04,0.42918e-04,0.34903e-04,0.73983e-04 /) - kao(:, 5,10, 2) = (/ & - & 0.25399e-04,0.49019e-04,0.52344e-04,0.53920e-04,0.52702e-04, & - & 0.49354e-04,0.43795e-04,0.35336e-04,0.76874e-04 /) - kao(:, 1,11, 2) = (/ & - & 0.19464e-04,0.42428e-04,0.44774e-04,0.45764e-04,0.43065e-04, & - & 0.39257e-04,0.34681e-04,0.28149e-04,0.56538e-04 /) - kao(:, 2,11, 2) = (/ & - & 0.20274e-04,0.42118e-04,0.44484e-04,0.45525e-04,0.43594e-04, & - & 0.39908e-04,0.35109e-04,0.28880e-04,0.61143e-04 /) - kao(:, 3,11, 2) = (/ & - & 0.20723e-04,0.41781e-04,0.44183e-04,0.45345e-04,0.43968e-04, & - & 0.40542e-04,0.35722e-04,0.29427e-04,0.66428e-04 /) - kao(:, 4,11, 2) = (/ & - & 0.20986e-04,0.41469e-04,0.44005e-04,0.45299e-04,0.44240e-04, & - & 0.41204e-04,0.36501e-04,0.29565e-04,0.70536e-04 /) - kao(:, 5,11, 2) = (/ & - & 0.21088e-04,0.41122e-04,0.44008e-04,0.45344e-04,0.44427e-04, & - & 0.41695e-04,0.37345e-04,0.29974e-04,0.74164e-04 /) - kao(:, 1,12, 2) = (/ & - & 0.16205e-04,0.35661e-04,0.37585e-04,0.38332e-04,0.36196e-04, & - & 0.33054e-04,0.29216e-04,0.23917e-04,0.49111e-04 /) - kao(:, 2,12, 2) = (/ & - & 0.16873e-04,0.35314e-04,0.37290e-04,0.38165e-04,0.36667e-04, & - & 0.33618e-04,0.29598e-04,0.24536e-04,0.53408e-04 /) - kao(:, 3,12, 2) = (/ & - & 0.17216e-04,0.35012e-04,0.37013e-04,0.37971e-04,0.36937e-04, & - & 0.34200e-04,0.30188e-04,0.24727e-04,0.56692e-04 /) - kao(:, 4,12, 2) = (/ & - & 0.17409e-04,0.34711e-04,0.36851e-04,0.37885e-04,0.37053e-04, & - & 0.34609e-04,0.30881e-04,0.24937e-04,0.60809e-04 /) - kao(:, 5,12, 2) = (/ & - & 0.17480e-04,0.34362e-04,0.36830e-04,0.37891e-04,0.37213e-04, & - & 0.35045e-04,0.31524e-04,0.25269e-04,0.65163e-04 /) - kao(:, 1,13, 2) = (/ & - & 0.13457e-04,0.29884e-04,0.31446e-04,0.32052e-04,0.30374e-04, & - & 0.27733e-04,0.24511e-04,0.20198e-04,0.41009e-04 /) - kao(:, 2,13, 2) = (/ & - & 0.14007e-04,0.29560e-04,0.31187e-04,0.31882e-04,0.30716e-04, & - & 0.28181e-04,0.24877e-04,0.20737e-04,0.44661e-04 /) - kao(:, 3,13, 2) = (/ & - & 0.14280e-04,0.29273e-04,0.30932e-04,0.31685e-04,0.30856e-04, & - & 0.28687e-04,0.25310e-04,0.20664e-04,0.47397e-04 /) - kao(:, 4,13, 2) = (/ & - & 0.14434e-04,0.28982e-04,0.30751e-04,0.31601e-04,0.30957e-04, & - & 0.28945e-04,0.25864e-04,0.20868e-04,0.50575e-04 /) - kao(:, 5,13, 2) = (/ & - & 0.14483e-04,0.28660e-04,0.30711e-04,0.31533e-04,0.31075e-04, & - & 0.29320e-04,0.26408e-04,0.21257e-04,0.54097e-04 /) - kao(:, 1, 1, 3) = (/ & - & 0.22536e-03,0.32037e-03,0.33781e-03,0.34273e-03,0.33729e-03, & - & 0.32075e-03,0.29153e-03,0.24856e-03,0.16410e-03 /) - kao(:, 2, 1, 3) = (/ & - & 0.22342e-03,0.32281e-03,0.34293e-03,0.34673e-03,0.34167e-03, & - & 0.32688e-03,0.29787e-03,0.25566e-03,0.17029e-03 /) - kao(:, 3, 1, 3) = (/ & - & 0.22157e-03,0.32559e-03,0.34865e-03,0.35164e-03,0.34805e-03, & - & 0.33353e-03,0.30505e-03,0.26380e-03,0.17749e-03 /) - kao(:, 4, 1, 3) = (/ & - & 0.21986e-03,0.32894e-03,0.35375e-03,0.35845e-03,0.35514e-03, & - & 0.33992e-03,0.31266e-03,0.27259e-03,0.18209e-03 /) - kao(:, 5, 1, 3) = (/ & - & 0.21815e-03,0.33282e-03,0.35982e-03,0.36699e-03,0.36319e-03, & - & 0.34849e-03,0.32265e-03,0.28174e-03,0.18630e-03 /) - kao(:, 1, 2, 3) = (/ & - & 0.19541e-03,0.28383e-03,0.30057e-03,0.30208e-03,0.29811e-03, & - & 0.28614e-03,0.25813e-03,0.22172e-03,0.14533e-03 /) - kao(:, 2, 2, 3) = (/ & - & 0.19410e-03,0.28606e-03,0.30502e-03,0.30638e-03,0.30342e-03, & - & 0.29123e-03,0.26438e-03,0.22759e-03,0.15063e-03 /) - kao(:, 3, 2, 3) = (/ & - & 0.19280e-03,0.28892e-03,0.31031e-03,0.31345e-03,0.30930e-03, & - & 0.29708e-03,0.27075e-03,0.23476e-03,0.15387e-03 /) - kao(:, 4, 2, 3) = (/ & - & 0.19169e-03,0.29226e-03,0.31596e-03,0.32060e-03,0.31687e-03, & - & 0.30282e-03,0.27961e-03,0.24147e-03,0.15653e-03 /) - kao(:, 5, 2, 3) = (/ & - & 0.19047e-03,0.29594e-03,0.32186e-03,0.32831e-03,0.32510e-03, & - & 0.31022e-03,0.28786e-03,0.24847e-03,0.16195e-03 /) - kao(:, 1, 3, 3) = (/ & - & 0.16871e-03,0.24969e-03,0.26468e-03,0.26465e-03,0.26214e-03, & - & 0.25247e-03,0.22732e-03,0.19530e-03,0.12777e-03 /) - kao(:, 2, 3, 3) = (/ & - & 0.16793e-03,0.25161e-03,0.26876e-03,0.26973e-03,0.26695e-03, & - & 0.25688e-03,0.23244e-03,0.20054e-03,0.12972e-03 /) - kao(:, 3, 3, 3) = (/ & - & 0.16733e-03,0.25378e-03,0.27385e-03,0.27612e-03,0.27305e-03, & - & 0.26119e-03,0.23922e-03,0.20542e-03,0.13061e-03 /) - kao(:, 4, 3, 3) = (/ & - & 0.16706e-03,0.25676e-03,0.27970e-03,0.28379e-03,0.28013e-03, & - & 0.26708e-03,0.24668e-03,0.21081e-03,0.13394e-03 /) - kao(:, 5, 3, 3) = (/ & - & 0.16637e-03,0.26037e-03,0.28504e-03,0.29050e-03,0.28611e-03, & - & 0.27355e-03,0.25260e-03,0.21670e-03,0.13844e-03 /) - kao(:, 1, 4, 3) = (/ & - & 0.14579e-03,0.21908e-03,0.23187e-03,0.23162e-03,0.22921e-03, & - & 0.22070e-03,0.19997e-03,0.17094e-03,0.11198e-03 /) - kao(:, 2, 4, 3) = (/ & - & 0.14542e-03,0.22095e-03,0.23576e-03,0.23659e-03,0.23393e-03, & - & 0.22421e-03,0.20413e-03,0.17485e-03,0.11080e-03 /) - kao(:, 3, 4, 3) = (/ & - & 0.14519e-03,0.22277e-03,0.24039e-03,0.24264e-03,0.23941e-03, & - & 0.22826e-03,0.20957e-03,0.17862e-03,0.11236e-03 /) - kao(:, 4, 4, 3) = (/ & - & 0.14504e-03,0.22526e-03,0.24523e-03,0.24877e-03,0.24473e-03, & - & 0.23381e-03,0.21512e-03,0.18339e-03,0.11577e-03 /) - kao(:, 5, 4, 3) = (/ & - & 0.14497e-03,0.22869e-03,0.25070e-03,0.25513e-03,0.25076e-03, & - & 0.23990e-03,0.22117e-03,0.18804e-03,0.11947e-03 /) - kao(:, 1, 5, 3) = (/ & - & 0.12609e-03,0.19125e-03,0.20302e-03,0.20235e-03,0.20038e-03, & - & 0.19210e-03,0.17493e-03,0.14918e-03,0.95914e-04 /) - kao(:, 2, 5, 3) = (/ & - & 0.12575e-03,0.19304e-03,0.20668e-03,0.20708e-03,0.20395e-03, & - & 0.19513e-03,0.17862e-03,0.15191e-03,0.95952e-04 /) - kao(:, 3, 5, 3) = (/ & - & 0.12572e-03,0.19504e-03,0.21070e-03,0.21227e-03,0.20862e-03, & - & 0.19877e-03,0.18323e-03,0.15540e-03,0.98040e-04 /) - kao(:, 4, 5, 3) = (/ & - & 0.12578e-03,0.19736e-03,0.21498e-03,0.21770e-03,0.21305e-03, & - & 0.20380e-03,0.18766e-03,0.15949e-03,0.10020e-03 /) - kao(:, 5, 5, 3) = (/ & - & 0.12588e-03,0.20051e-03,0.21971e-03,0.22313e-03,0.21848e-03, & - & 0.20915e-03,0.19284e-03,0.16321e-03,0.10267e-03 /) - kao(:, 1, 6, 3) = (/ & - & 0.10863e-03,0.16576e-03,0.17695e-03,0.17678e-03,0.17469e-03, & - & 0.16678e-03,0.15163e-03,0.12940e-03,0.89550e-04 /) - kao(:, 2, 6, 3) = (/ & - & 0.10863e-03,0.16706e-03,0.18030e-03,0.18081e-03,0.17775e-03, & - & 0.16938e-03,0.15534e-03,0.13148e-03,0.89670e-04 /) - kao(:, 3, 6, 3) = (/ & - & 0.10855e-03,0.16916e-03,0.18384e-03,0.18538e-03,0.18134e-03, & - & 0.17272e-03,0.15912e-03,0.13459e-03,0.90520e-04 /) - kao(:, 4, 6, 3) = (/ & - & 0.10855e-03,0.17152e-03,0.18761e-03,0.18997e-03,0.18510e-03, & - & 0.17711e-03,0.16286e-03,0.13757e-03,0.91792e-04 /) - kao(:, 5, 6, 3) = (/ & - & 0.10853e-03,0.17415e-03,0.19152e-03,0.19450e-03,0.18955e-03, & - & 0.18160e-03,0.16658e-03,0.14151e-03,0.94030e-04 /) - kao(:, 1, 7, 3) = (/ & - & 0.92930e-04,0.14283e-03,0.15332e-03,0.15365e-03,0.15192e-03, & - & 0.14476e-03,0.13092e-03,0.11095e-03,0.91877e-04 /) - kao(:, 2, 7, 3) = (/ & - & 0.92984e-04,0.14401e-03,0.15614e-03,0.15721e-03,0.15413e-03, & - & 0.14688e-03,0.13443e-03,0.11315e-03,0.90405e-04 /) - kao(:, 3, 7, 3) = (/ & - & 0.92945e-04,0.14573e-03,0.15905e-03,0.16110e-03,0.15737e-03, & - & 0.14983e-03,0.13738e-03,0.11591e-03,0.89977e-04 /) - kao(:, 4, 7, 3) = (/ & - & 0.93035e-04,0.14787e-03,0.16239e-03,0.16472e-03,0.16084e-03, & - & 0.15371e-03,0.14051e-03,0.11827e-03,0.90955e-04 /) - kao(:, 5, 7, 3) = (/ & - & 0.92985e-04,0.15023e-03,0.16593e-03,0.16877e-03,0.16496e-03, & - & 0.15743e-03,0.14348e-03,0.12221e-03,0.92269e-04 /) - kao(:, 1, 8, 3) = (/ & - & 0.79600e-04,0.12290e-03,0.13269e-03,0.13322e-03,0.13145e-03, & - & 0.12540e-03,0.11354e-03,0.94559e-04,0.10796e-03 /) - kao(:, 2, 8, 3) = (/ & - & 0.79683e-04,0.12390e-03,0.13495e-03,0.13633e-03,0.13351e-03, & - & 0.12708e-03,0.11620e-03,0.96898e-04,0.10854e-03 /) - kao(:, 3, 8, 3) = (/ & - & 0.79630e-04,0.12537e-03,0.13745e-03,0.13937e-03,0.13626e-03, & - & 0.12970e-03,0.11867e-03,0.99068e-04,0.10974e-03 /) - kao(:, 4, 8, 3) = (/ & - & 0.79625e-04,0.12719e-03,0.14027e-03,0.14234e-03,0.13941e-03, & - & 0.13283e-03,0.12113e-03,0.10155e-03,0.11075e-03 /) - kao(:, 5, 8, 3) = (/ & - & 0.79589e-04,0.12914e-03,0.14322e-03,0.14575e-03,0.14305e-03, & - & 0.13597e-03,0.12361e-03,0.10505e-03,0.11038e-03 /) - kao(:, 1, 9, 3) = (/ & - & 0.67917e-04,0.10525e-03,0.11421e-03,0.11510e-03,0.11341e-03, & - & 0.10850e-03,0.97945e-04,0.80197e-04,0.13259e-03 /) - kao(:, 2, 9, 3) = (/ & - & 0.67928e-04,0.10625e-03,0.11606e-03,0.11762e-03,0.11532e-03, & - & 0.11035e-03,0.10017e-03,0.82394e-04,0.13427e-03 /) - kao(:, 3, 9, 3) = (/ & - & 0.67856e-04,0.10744e-03,0.11824e-03,0.11998e-03,0.11756e-03, & - & 0.11235e-03,0.10203e-03,0.84408e-04,0.13461e-03 /) - kao(:, 4, 9, 3) = (/ & - & 0.67768e-04,0.10890e-03,0.12070e-03,0.12262e-03,0.12012e-03, & - & 0.11456e-03,0.10420e-03,0.86916e-04,0.13504e-03 /) - kao(:, 5, 9, 3) = (/ & - & 0.67707e-04,0.11054e-03,0.12323e-03,0.12567e-03,0.12318e-03, & - & 0.11694e-03,0.10644e-03,0.89648e-04,0.13829e-03 /) - kao(:, 1,10, 3) = (/ & - & 0.57658e-04,0.89812e-04,0.97774e-04,0.98825e-04,0.97412e-04, & - & 0.93433e-04,0.84119e-04,0.68026e-04,0.20137e-03 /) - kao(:, 2,10, 3) = (/ & - & 0.57461e-04,0.90575e-04,0.99228e-04,0.10076e-03,0.98930e-04, & - & 0.94984e-04,0.86081e-04,0.70085e-04,0.20178e-03 /) - kao(:, 3,10, 3) = (/ & - & 0.57397e-04,0.91666e-04,0.10122e-03,0.10281e-03,0.10088e-03, & - & 0.96688e-04,0.87695e-04,0.72010e-04,0.20052e-03 /) - kao(:, 4,10, 3) = (/ & - & 0.57291e-04,0.92869e-04,0.10334e-03,0.10517e-03,0.10317e-03, & - & 0.98293e-04,0.89394e-04,0.74251e-04,0.20103e-03 /) - kao(:, 5,10, 3) = (/ & - & 0.57126e-04,0.94072e-04,0.10545e-03,0.10789e-03,0.10579e-03, & - & 0.10034e-03,0.91420e-04,0.76761e-04,0.20035e-03 /) - kao(:, 1,11, 3) = (/ & - & 0.48600e-04,0.76535e-04,0.83721e-04,0.84782e-04,0.83379e-04, & - & 0.80481e-04,0.72441e-04,0.58503e-04,0.20926e-03 /) - kao(:, 2,11, 3) = (/ & - & 0.48356e-04,0.77272e-04,0.85067e-04,0.86588e-04,0.84928e-04, & - & 0.81803e-04,0.74015e-04,0.60222e-04,0.21110e-03 /) - kao(:, 3,11, 3) = (/ & - & 0.48180e-04,0.78198e-04,0.86939e-04,0.88416e-04,0.86712e-04, & - & 0.83176e-04,0.75535e-04,0.61973e-04,0.20823e-03 /) - kao(:, 4,11, 3) = (/ & - & 0.48042e-04,0.79160e-04,0.88776e-04,0.90704e-04,0.88934e-04, & - & 0.84522e-04,0.76983e-04,0.64264e-04,0.20745e-03 /) - kao(:, 5,11, 3) = (/ & - & 0.47901e-04,0.80171e-04,0.90395e-04,0.92950e-04,0.91253e-04, & - & 0.86364e-04,0.78675e-04,0.66159e-04,0.20642e-03 /) - kao(:, 1,12, 3) = (/ & - & 0.40769e-04,0.64775e-04,0.71240e-04,0.72409e-04,0.71085e-04, & - & 0.68679e-04,0.61925e-04,0.50009e-04,0.19056e-03 /) - kao(:, 2,12, 3) = (/ & - & 0.40486e-04,0.65479e-04,0.72574e-04,0.73906e-04,0.72438e-04, & - & 0.69693e-04,0.63286e-04,0.51717e-04,0.19000e-03 /) - kao(:, 3,12, 3) = (/ & - & 0.40313e-04,0.66212e-04,0.74137e-04,0.75686e-04,0.74201e-04, & - & 0.70781e-04,0.64554e-04,0.53372e-04,0.19242e-03 /) - kao(:, 4,12, 3) = (/ & - & 0.40107e-04,0.66938e-04,0.75524e-04,0.77664e-04,0.76142e-04, & - & 0.72280e-04,0.65894e-04,0.55174e-04,0.19382e-03 /) - kao(:, 5,12, 3) = (/ & - & 0.39910e-04,0.67782e-04,0.76780e-04,0.79463e-04,0.78210e-04, & - & 0.73902e-04,0.67292e-04,0.56789e-04,0.19106e-03 /) - kao(:, 1,13, 3) = (/ & - & 0.34103e-04,0.54622e-04,0.60315e-04,0.61417e-04,0.60332e-04, & - & 0.58110e-04,0.52537e-04,0.42612e-04,0.15955e-03 /) - kao(:, 2,13, 3) = (/ & - & 0.33853e-04,0.55148e-04,0.61492e-04,0.62745e-04,0.61577e-04, & - & 0.59061e-04,0.53702e-04,0.43873e-04,0.15892e-03 /) - kao(:, 3,13, 3) = (/ & - & 0.33647e-04,0.55699e-04,0.62687e-04,0.64355e-04,0.63160e-04, & - & 0.60072e-04,0.54954e-04,0.45643e-04,0.16047e-03 /) - kao(:, 4,13, 3) = (/ & - & 0.33430e-04,0.56291e-04,0.63770e-04,0.65844e-04,0.64844e-04, & - & 0.61457e-04,0.56064e-04,0.47101e-04,0.16125e-03 /) - kao(:, 5,13, 3) = (/ & - & 0.33186e-04,0.56947e-04,0.64747e-04,0.67352e-04,0.66508e-04, & - & 0.62903e-04,0.57307e-04,0.48379e-04,0.16021e-03 /) - kao(:, 1, 1, 4) = (/ & - & 0.36602e-03,0.52858e-03,0.59251e-03,0.61027e-03,0.60893e-03, & - & 0.58987e-03,0.55560e-03,0.49855e-03,0.38105e-03 /) - kao(:, 2, 1, 4) = (/ & - & 0.36935e-03,0.53570e-03,0.60138e-03,0.62341e-03,0.62297e-03, & - & 0.60228e-03,0.56872e-03,0.51035e-03,0.39106e-03 /) - kao(:, 3, 1, 4) = (/ & - & 0.37348e-03,0.54590e-03,0.61238e-03,0.63855e-03,0.63820e-03, & - & 0.61734e-03,0.58475e-03,0.52206e-03,0.40317e-03 /) - kao(:, 4, 1, 4) = (/ & - & 0.37665e-03,0.55373e-03,0.62261e-03,0.65120e-03,0.65250e-03, & - & 0.63373e-03,0.59840e-03,0.53517e-03,0.41639e-03 /) - kao(:, 5, 1, 4) = (/ & - & 0.38076e-03,0.56302e-03,0.63456e-03,0.66611e-03,0.66857e-03, & - & 0.65240e-03,0.61521e-03,0.55178e-03,0.43702e-03 /) - kao(:, 1, 2, 4) = (/ & - & 0.32225e-03,0.47151e-03,0.53262e-03,0.55192e-03,0.54706e-03, & - & 0.52658e-03,0.49569e-03,0.43958e-03,0.31739e-03 /) - kao(:, 2, 2, 4) = (/ & - & 0.32532e-03,0.47816e-03,0.54076e-03,0.56222e-03,0.55834e-03, & - & 0.53879e-03,0.50612e-03,0.44777e-03,0.32763e-03 /) - kao(:, 3, 2, 4) = (/ & - & 0.32941e-03,0.48729e-03,0.55083e-03,0.57497e-03,0.57312e-03, & - & 0.55394e-03,0.51991e-03,0.45969e-03,0.33942e-03 /) - kao(:, 4, 2, 4) = (/ & - & 0.33303e-03,0.49510e-03,0.56036e-03,0.58720e-03,0.58669e-03, & - & 0.56974e-03,0.53255e-03,0.47385e-03,0.35453e-03 /) - kao(:, 5, 2, 4) = (/ & - & 0.33657e-03,0.50290e-03,0.57014e-03,0.59917e-03,0.59997e-03, & - & 0.58475e-03,0.54777e-03,0.48909e-03,0.36980e-03 /) - kao(:, 1, 3, 4) = (/ & - & 0.28263e-03,0.41968e-03,0.47376e-03,0.49297e-03,0.48633e-03, & - & 0.46530e-03,0.43654e-03,0.38496e-03,0.26217e-03 /) - kao(:, 2, 3, 4) = (/ & - & 0.28517e-03,0.42528e-03,0.48017e-03,0.50148e-03,0.49564e-03, & - & 0.47634e-03,0.44517e-03,0.39228e-03,0.27386e-03 /) - kao(:, 3, 3, 4) = (/ & - & 0.28805e-03,0.43254e-03,0.48769e-03,0.51075e-03,0.50628e-03, & - & 0.48940e-03,0.45557e-03,0.40274e-03,0.28527e-03 /) - kao(:, 4, 3, 4) = (/ & - & 0.29156e-03,0.44130e-03,0.49824e-03,0.52245e-03,0.52001e-03, & - & 0.50355e-03,0.46711e-03,0.41540e-03,0.29729e-03 /) - kao(:, 5, 3, 4) = (/ & - & 0.29453e-03,0.44828e-03,0.50753e-03,0.53257e-03,0.53321e-03, & - & 0.51645e-03,0.48189e-03,0.42882e-03,0.30960e-03 /) - kao(:, 1, 4, 4) = (/ & - & 0.24709e-03,0.37040e-03,0.41811e-03,0.43692e-03,0.42924e-03, & - & 0.40974e-03,0.38217e-03,0.33504e-03,0.21956e-03 /) - kao(:, 2, 4, 4) = (/ & - & 0.24935e-03,0.37531e-03,0.42359e-03,0.44356e-03,0.43669e-03, & - & 0.41955e-03,0.39063e-03,0.34337e-03,0.23257e-03 /) - kao(:, 3, 4, 4) = (/ & - & 0.25192e-03,0.38183e-03,0.43049e-03,0.45130e-03,0.44572e-03, & - & 0.43016e-03,0.39919e-03,0.35274e-03,0.24051e-03 /) - kao(:, 4, 4, 4) = (/ & - & 0.25420e-03,0.38887e-03,0.43864e-03,0.46020e-03,0.45692e-03, & - & 0.44111e-03,0.40882e-03,0.36219e-03,0.24966e-03 /) - kao(:, 5, 4, 4) = (/ & - & 0.25772e-03,0.39769e-03,0.44993e-03,0.47213e-03,0.47068e-03, & - & 0.45426e-03,0.42157e-03,0.37400e-03,0.25930e-03 /) - kao(:, 1, 5, 4) = (/ & - & 0.21574e-03,0.32603e-03,0.36644e-03,0.38307e-03,0.37721e-03, & - & 0.36018e-03,0.33363e-03,0.29143e-03,0.18896e-03 /) - kao(:, 2, 5, 4) = (/ & - & 0.21778e-03,0.33044e-03,0.37107e-03,0.38833e-03,0.38426e-03, & - & 0.36797e-03,0.34054e-03,0.29920e-03,0.19816e-03 /) - kao(:, 3, 5, 4) = (/ & - & 0.22015e-03,0.33584e-03,0.37735e-03,0.39513e-03,0.39228e-03, & - & 0.37720e-03,0.34842e-03,0.30654e-03,0.20383e-03 /) - kao(:, 4, 5, 4) = (/ & - & 0.22252e-03,0.34167e-03,0.38484e-03,0.40343e-03,0.40251e-03, & - & 0.38567e-03,0.35760e-03,0.31401e-03,0.21178e-03 /) - kao(:, 5, 5, 4) = (/ & - & 0.22604e-03,0.34964e-03,0.39509e-03,0.41443e-03,0.41465e-03, & - & 0.39685e-03,0.36847e-03,0.32400e-03,0.21929e-03 /) - kao(:, 1, 6, 4) = (/ & - & 0.18783e-03,0.28666e-03,0.32037e-03,0.33351e-03,0.32945e-03, & - & 0.31516e-03,0.29066e-03,0.25263e-03,0.16238e-03 /) - kao(:, 2, 6, 4) = (/ & - & 0.18921e-03,0.29078e-03,0.32423e-03,0.33799e-03,0.33536e-03, & - & 0.32156e-03,0.29643e-03,0.25941e-03,0.16831e-03 /) - kao(:, 3, 6, 4) = (/ & - & 0.19117e-03,0.29487e-03,0.32978e-03,0.34375e-03,0.34274e-03, & - & 0.32907e-03,0.30344e-03,0.26560e-03,0.17389e-03 /) - kao(:, 4, 6, 4) = (/ & - & 0.19356e-03,0.29979e-03,0.33631e-03,0.35135e-03,0.35098e-03, & - & 0.33648e-03,0.31108e-03,0.27199e-03,0.18056e-03 /) - kao(:, 5, 6, 4) = (/ & - & 0.19643e-03,0.30567e-03,0.34396e-03,0.35996e-03,0.36067e-03, & - & 0.34559e-03,0.32056e-03,0.28009e-03,0.18507e-03 /) - kao(:, 1, 7, 4) = (/ & - & 0.16233e-03,0.25159e-03,0.28051e-03,0.29071e-03,0.28724e-03, & - & 0.27399e-03,0.25257e-03,0.21995e-03,0.15053e-03 /) - kao(:, 2, 7, 4) = (/ & - & 0.16394e-03,0.25497e-03,0.28374e-03,0.29454e-03,0.29203e-03, & - & 0.28002e-03,0.25781e-03,0.22523e-03,0.15467e-03 /) - kao(:, 3, 7, 4) = (/ & - & 0.16554e-03,0.25862e-03,0.28837e-03,0.29946e-03,0.29804e-03, & - & 0.28580e-03,0.26386e-03,0.23003e-03,0.15858e-03 /) - kao(:, 4, 7, 4) = (/ & - & 0.16755e-03,0.26275e-03,0.29380e-03,0.30624e-03,0.30499e-03, & - & 0.29233e-03,0.27029e-03,0.23539e-03,0.16161e-03 /) - kao(:, 5, 7, 4) = (/ & - & 0.17007e-03,0.26765e-03,0.30035e-03,0.31353e-03,0.31332e-03, & - & 0.30019e-03,0.27871e-03,0.24192e-03,0.16587e-03 /) - kao(:, 1, 8, 4) = (/ & - & 0.14021e-03,0.21983e-03,0.24557e-03,0.25394e-03,0.25027e-03, & - & 0.23769e-03,0.21853e-03,0.19056e-03,0.17210e-03 /) - kao(:, 2, 8, 4) = (/ & - & 0.14181e-03,0.22244e-03,0.24837e-03,0.25730e-03,0.25433e-03, & - & 0.24284e-03,0.22361e-03,0.19448e-03,0.16707e-03 /) - kao(:, 3, 8, 4) = (/ & - & 0.14344e-03,0.22578e-03,0.25216e-03,0.26169e-03,0.25950e-03, & - & 0.24760e-03,0.22868e-03,0.19861e-03,0.16518e-03 /) - kao(:, 4, 8, 4) = (/ & - & 0.14524e-03,0.22935e-03,0.25652e-03,0.26715e-03,0.26554e-03, & - & 0.25327e-03,0.23470e-03,0.20360e-03,0.16514e-03 /) - kao(:, 5, 8, 4) = (/ & - & 0.14752e-03,0.23348e-03,0.26209e-03,0.27316e-03,0.27225e-03, & - & 0.26056e-03,0.24203e-03,0.20916e-03,0.16671e-03 /) - kao(:, 1, 9, 4) = (/ & - & 0.12008e-03,0.19084e-03,0.21359e-03,0.22137e-03,0.21826e-03, & - & 0.20646e-03,0.18855e-03,0.16443e-03,0.31379e-03 /) - kao(:, 2, 9, 4) = (/ & - & 0.12170e-03,0.19281e-03,0.21619e-03,0.22414e-03,0.22156e-03, & - & 0.21036e-03,0.19272e-03,0.16751e-03,0.30810e-03 /) - kao(:, 3, 9, 4) = (/ & - & 0.12341e-03,0.19553e-03,0.21930e-03,0.22810e-03,0.22604e-03, & - & 0.21457e-03,0.19724e-03,0.17093e-03,0.30579e-03 /) - kao(:, 4, 9, 4) = (/ & - & 0.12515e-03,0.19866e-03,0.22306e-03,0.23273e-03,0.23128e-03, & - & 0.22000e-03,0.20255e-03,0.17520e-03,0.30468e-03 /) - kao(:, 5, 9, 4) = (/ & - & 0.12711e-03,0.20244e-03,0.22780e-03,0.23779e-03,0.23723e-03, & - & 0.22672e-03,0.20873e-03,0.18006e-03,0.30071e-03 /) - kao(:, 1,10, 4) = (/ & - & 0.10239e-03,0.16495e-03,0.18568e-03,0.19287e-03,0.19038e-03, & - & 0.17962e-03,0.16274e-03,0.14112e-03,0.46281e-03 /) - kao(:, 2,10, 4) = (/ & - & 0.10386e-03,0.16652e-03,0.18791e-03,0.19539e-03,0.19307e-03, & - & 0.18291e-03,0.16628e-03,0.14354e-03,0.46032e-03 /) - kao(:, 3,10, 4) = (/ & - & 0.10550e-03,0.16884e-03,0.19060e-03,0.19863e-03,0.19685e-03, & - & 0.18669e-03,0.17045e-03,0.14674e-03,0.45882e-03 /) - kao(:, 4,10, 4) = (/ & - & 0.10710e-03,0.17185e-03,0.19377e-03,0.20238e-03,0.20140e-03, & - & 0.19164e-03,0.17544e-03,0.15076e-03,0.45556e-03 /) - kao(:, 5,10, 4) = (/ & - & 0.10887e-03,0.17528e-03,0.19755e-03,0.20663e-03,0.20650e-03, & - & 0.19756e-03,0.18068e-03,0.15495e-03,0.45295e-03 /) - kao(:, 1,11, 4) = (/ & - & 0.87454e-04,0.14214e-03,0.16093e-03,0.16784e-03,0.16634e-03, & - & 0.15750e-03,0.14233e-03,0.12157e-03,0.50227e-03 /) - kao(:, 2,11, 4) = (/ & - & 0.89026e-04,0.14363e-03,0.16297e-03,0.17024e-03,0.16905e-03, & - & 0.16052e-03,0.14560e-03,0.12384e-03,0.48800e-03 /) - kao(:, 3,11, 4) = (/ & - & 0.90456e-04,0.14595e-03,0.16534e-03,0.17342e-03,0.17281e-03, & - & 0.16441e-03,0.14965e-03,0.12699e-03,0.48638e-03 /) - kao(:, 4,11, 4) = (/ & - & 0.91788e-04,0.14885e-03,0.16823e-03,0.17680e-03,0.17688e-03, & - & 0.16911e-03,0.15409e-03,0.13060e-03,0.48097e-03 /) - kao(:, 5,11, 4) = (/ & - & 0.92958e-04,0.15220e-03,0.17197e-03,0.18085e-03,0.18150e-03, & - & 0.17440e-03,0.15892e-03,0.13466e-03,0.48115e-03 /) - kao(:, 1,12, 4) = (/ & - & 0.74228e-04,0.12171e-03,0.13828e-03,0.14464e-03,0.14381e-03, & - & 0.13674e-03,0.12370e-03,0.10454e-03,0.48263e-03 /) - kao(:, 2,12, 4) = (/ & - & 0.75542e-04,0.12330e-03,0.13992e-03,0.14688e-03,0.14666e-03, & - & 0.13981e-03,0.12694e-03,0.10662e-03,0.46961e-03 /) - kao(:, 3,12, 4) = (/ & - & 0.76696e-04,0.12551e-03,0.14218e-03,0.14964e-03,0.14989e-03, & - & 0.14346e-03,0.13058e-03,0.10986e-03,0.45986e-03 /) - kao(:, 4,12, 4) = (/ & - & 0.77769e-04,0.12821e-03,0.14505e-03,0.15276e-03,0.15361e-03, & - & 0.14764e-03,0.13466e-03,0.11322e-03,0.45064e-03 /) - kao(:, 5,12, 4) = (/ & - & 0.78633e-04,0.13113e-03,0.14863e-03,0.15667e-03,0.15783e-03, & - & 0.15249e-03,0.13915e-03,0.11696e-03,0.45257e-03 /) - kao(:, 1,13, 4) = (/ & - & 0.62659e-04,0.10388e-03,0.11828e-03,0.12392e-03,0.12371e-03, & - & 0.11811e-03,0.10712e-03,0.89769e-04,0.40925e-03 /) - kao(:, 2,13, 4) = (/ & - & 0.63709e-04,0.10546e-03,0.11986e-03,0.12594e-03,0.12627e-03, & - & 0.12095e-03,0.11006e-03,0.92053e-04,0.39852e-03 /) - kao(:, 3,13, 4) = (/ & - & 0.64717e-04,0.10750e-03,0.12189e-03,0.12839e-03,0.12907e-03, & - & 0.12414e-03,0.11317e-03,0.94939e-04,0.39013e-03 /) - kao(:, 4,13, 4) = (/ & - & 0.65465e-04,0.10983e-03,0.12464e-03,0.13149e-03,0.13253e-03, & - & 0.12801e-03,0.11693e-03,0.98001e-04,0.38349e-03 /) - kao(:, 5,13, 4) = (/ & - & 0.66137e-04,0.11222e-03,0.12786e-03,0.13517e-03,0.13652e-03, & - & 0.13219e-03,0.12093e-03,0.10155e-03,0.38305e-03 /) - kao(:, 1, 1, 5) = (/ & - & 0.60998e-03,0.92357e-03,0.10463e-02,0.11196e-02,0.11571e-02, & - & 0.11569e-02,0.11152e-02,0.10342e-02,0.80721e-03 /) - kao(:, 2, 1, 5) = (/ & - & 0.61496e-03,0.93510e-03,0.10604e-02,0.11361e-02,0.11777e-02, & - & 0.11834e-02,0.11457e-02,0.10708e-02,0.83732e-03 /) - kao(:, 3, 1, 5) = (/ & - & 0.62454e-03,0.95002e-03,0.10819e-02,0.11594e-02,0.12038e-02, & - & 0.12158e-02,0.11823e-02,0.11158e-02,0.87187e-03 /) - kao(:, 4, 1, 5) = (/ & - & 0.63013e-03,0.96444e-03,0.11010e-02,0.11847e-02,0.12326e-02, & - & 0.12499e-02,0.12239e-02,0.11623e-02,0.91505e-03 /) - kao(:, 5, 1, 5) = (/ & - & 0.63867e-03,0.98562e-03,0.11276e-02,0.12151e-02,0.12673e-02, & - & 0.12886e-02,0.12687e-02,0.12127e-02,0.95931e-03 /) - kao(:, 1, 2, 5) = (/ & - & 0.54006e-03,0.82110e-03,0.93517e-03,0.10086e-02,0.10436e-02, & - & 0.10473e-02,0.10071e-02,0.92435e-03,0.69632e-03 /) - kao(:, 2, 2, 5) = (/ & - & 0.54512e-03,0.83214e-03,0.94586e-03,0.10224e-02,0.10616e-02, & - & 0.10697e-02,0.10360e-02,0.95897e-03,0.72282e-03 /) - kao(:, 3, 2, 5) = (/ & - & 0.55430e-03,0.84713e-03,0.96481e-03,0.10423e-02,0.10850e-02, & - & 0.10972e-02,0.10691e-02,0.99640e-03,0.75512e-03 /) - kao(:, 4, 2, 5) = (/ & - & 0.56089e-03,0.86369e-03,0.98575e-03,0.10648e-02,0.11112e-02, & - & 0.11281e-02,0.11049e-02,0.10361e-02,0.79150e-03 /) - kao(:, 5, 2, 5) = (/ & - & 0.56701e-03,0.88105e-03,0.10081e-02,0.10898e-02,0.11420e-02, & - & 0.11626e-02,0.11406e-02,0.10780e-02,0.83023e-03 /) - kao(:, 1, 3, 5) = (/ & - & 0.47586e-03,0.72781e-03,0.83369e-03,0.89860e-03,0.93234e-03, & - & 0.93626e-03,0.89909e-03,0.81585e-03,0.59036e-03 /) - kao(:, 2, 3, 5) = (/ & - & 0.48035e-03,0.73757e-03,0.84502e-03,0.91276e-03,0.94800e-03, & - & 0.95536e-03,0.92668e-03,0.84501e-03,0.61080e-03 /) - kao(:, 3, 3, 5) = (/ & - & 0.48667e-03,0.74941e-03,0.86058e-03,0.92996e-03,0.96794e-03, & - & 0.97737e-03,0.95368e-03,0.87646e-03,0.63872e-03 /) - kao(:, 4, 3, 5) = (/ & - & 0.49637e-03,0.76538e-03,0.87882e-03,0.95073e-03,0.99190e-03, & - & 0.10051e-02,0.98438e-03,0.91070e-03,0.66866e-03 /) - kao(:, 5, 3, 5) = (/ & - & 0.50269e-03,0.78028e-03,0.89635e-03,0.97198e-03,0.10179e-02, & - & 0.10338e-02,0.10130e-02,0.94553e-03,0.70095e-03 /) - kao(:, 1, 4, 5) = (/ & - & 0.41745e-03,0.64505e-03,0.73966e-03,0.79761e-03,0.82752e-03, & - & 0.82878e-03,0.79470e-03,0.71636e-03,0.49987e-03 /) - kao(:, 2, 4, 5) = (/ & - & 0.42212e-03,0.65318e-03,0.75017e-03,0.80979e-03,0.84194e-03, & - & 0.84473e-03,0.81717e-03,0.73865e-03,0.51625e-03 /) - kao(:, 3, 4, 5) = (/ & - & 0.42808e-03,0.66407e-03,0.76314e-03,0.82416e-03,0.85814e-03, & - & 0.86375e-03,0.83972e-03,0.76440e-03,0.53894e-03 /) - kao(:, 4, 4, 5) = (/ & - & 0.43544e-03,0.67737e-03,0.77911e-03,0.84222e-03,0.87777e-03, & - & 0.88583e-03,0.86479e-03,0.79362e-03,0.56271e-03 /) - kao(:, 5, 4, 5) = (/ & - & 0.44549e-03,0.69330e-03,0.79686e-03,0.86274e-03,0.90103e-03, & - & 0.91189e-03,0.89184e-03,0.82416e-03,0.58887e-03 /) - kao(:, 1, 5, 5) = (/ & - & 0.36593e-03,0.56942e-03,0.65432e-03,0.70354e-03,0.72916e-03, & - & 0.72850e-03,0.69713e-03,0.62558e-03,0.42621e-03 /) - kao(:, 2, 5, 5) = (/ & - & 0.37099e-03,0.57654e-03,0.66395e-03,0.71472e-03,0.74107e-03, & - & 0.74240e-03,0.71535e-03,0.64376e-03,0.43884e-03 /) - kao(:, 3, 5, 5) = (/ & - & 0.37647e-03,0.58652e-03,0.67530e-03,0.72837e-03,0.75654e-03, & - & 0.75759e-03,0.73402e-03,0.66546e-03,0.45630e-03 /) - kao(:, 4, 5, 5) = (/ & - & 0.38311e-03,0.59837e-03,0.68871e-03,0.74328e-03,0.77277e-03, & - & 0.77677e-03,0.75490e-03,0.68962e-03,0.47449e-03 /) - kao(:, 5, 5, 5) = (/ & - & 0.39217e-03,0.61368e-03,0.70480e-03,0.76178e-03,0.79297e-03, & - & 0.79889e-03,0.77761e-03,0.71542e-03,0.49580e-03 /) - kao(:, 1, 6, 5) = (/ & - & 0.32055e-03,0.49922e-03,0.57435e-03,0.61868e-03,0.63931e-03, & - & 0.63779e-03,0.60689e-03,0.54327e-03,0.36282e-03 /) - kao(:, 2, 6, 5) = (/ & - & 0.32502e-03,0.50520e-03,0.58251e-03,0.62835e-03,0.64977e-03, & - & 0.64920e-03,0.62209e-03,0.55837e-03,0.37399e-03 /) - kao(:, 3, 6, 5) = (/ & - & 0.33055e-03,0.51462e-03,0.59267e-03,0.63972e-03,0.66253e-03, & - & 0.66213e-03,0.63802e-03,0.57660e-03,0.38710e-03 /) - kao(:, 4, 6, 5) = (/ & - & 0.33647e-03,0.52569e-03,0.60454e-03,0.65260e-03,0.67645e-03, & - & 0.67638e-03,0.65560e-03,0.59667e-03,0.40130e-03 /) - kao(:, 5, 6, 5) = (/ & - & 0.34306e-03,0.53846e-03,0.61820e-03,0.66796e-03,0.69284e-03, & - & 0.69400e-03,0.67340e-03,0.61700e-03,0.41923e-03 /) - kao(:, 1, 7, 5) = (/ & - & 0.28149e-03,0.43644e-03,0.49974e-03,0.53938e-03,0.55701e-03, & - & 0.55579e-03,0.52736e-03,0.47001e-03,0.31306e-03 /) - kao(:, 2, 7, 5) = (/ & - & 0.28528e-03,0.44207e-03,0.50655e-03,0.54763e-03,0.56691e-03, & - & 0.56439e-03,0.53930e-03,0.48247e-03,0.32173e-03 /) - kao(:, 3, 7, 5) = (/ & - & 0.29004e-03,0.45020e-03,0.51518e-03,0.55741e-03,0.57771e-03, & - & 0.57585e-03,0.55263e-03,0.49748e-03,0.33090e-03 /) - kao(:, 4, 7, 5) = (/ & - & 0.29568e-03,0.46070e-03,0.52625e-03,0.56864e-03,0.58962e-03, & - & 0.58944e-03,0.56702e-03,0.51458e-03,0.34232e-03 /) - kao(:, 5, 7, 5) = (/ & - & 0.30178e-03,0.47274e-03,0.53886e-03,0.58253e-03,0.60354e-03, & - & 0.60454e-03,0.58225e-03,0.53128e-03,0.35470e-03 /) - kao(:, 1, 8, 5) = (/ & - & 0.24786e-03,0.38205e-03,0.43403e-03,0.46727e-03,0.48302e-03, & - & 0.48227e-03,0.45812e-03,0.40611e-03,0.30468e-03 /) - kao(:, 2, 8, 5) = (/ & - & 0.25026e-03,0.38705e-03,0.43948e-03,0.47351e-03,0.49158e-03, & - & 0.49003e-03,0.46771e-03,0.41673e-03,0.30992e-03 /) - kao(:, 3, 8, 5) = (/ & - & 0.25464e-03,0.39453e-03,0.44681e-03,0.48211e-03,0.50112e-03, & - & 0.49992e-03,0.47844e-03,0.42901e-03,0.31626e-03 /) - kao(:, 4, 8, 5) = (/ & - & 0.25978e-03,0.40390e-03,0.45683e-03,0.49220e-03,0.51134e-03, & - & 0.51141e-03,0.48898e-03,0.44238e-03,0.32406e-03 /) - kao(:, 5, 8, 5) = (/ & - & 0.26514e-03,0.41428e-03,0.46827e-03,0.50433e-03,0.52333e-03, & - & 0.52414e-03,0.50147e-03,0.45619e-03,0.33317e-03 /) - kao(:, 1, 9, 5) = (/ & - & 0.21824e-03,0.33786e-03,0.37946e-03,0.40535e-03,0.41752e-03, & - & 0.41661e-03,0.39611e-03,0.34986e-03,0.52178e-03 /) - kao(:, 2, 9, 5) = (/ & - & 0.22059e-03,0.34230e-03,0.38410e-03,0.41056e-03,0.42477e-03, & - & 0.42372e-03,0.40485e-03,0.35866e-03,0.50681e-03 /) - kao(:, 3, 9, 5) = (/ & - & 0.22400e-03,0.34814e-03,0.39039e-03,0.41748e-03,0.43284e-03, & - & 0.43220e-03,0.41363e-03,0.36885e-03,0.49302e-03 /) - kao(:, 4, 9, 5) = (/ & - & 0.22873e-03,0.35603e-03,0.39905e-03,0.42659e-03,0.44174e-03, & - & 0.44167e-03,0.42288e-03,0.37972e-03,0.48294e-03 /) - kao(:, 5, 9, 5) = (/ & - & 0.23347e-03,0.36495e-03,0.40893e-03,0.43763e-03,0.45181e-03, & - & 0.45234e-03,0.43347e-03,0.39120e-03,0.47762e-03 /) - kao(:, 1,10, 5) = (/ & - & 0.19122e-03,0.29954e-03,0.33486e-03,0.35474e-03,0.36349e-03, & - & 0.36120e-03,0.34300e-03,0.30153e-03,0.10818e-02 /) - kao(:, 2,10, 5) = (/ & - & 0.19375e-03,0.30331e-03,0.33858e-03,0.35959e-03,0.36963e-03, & - & 0.36736e-03,0.35033e-03,0.30927e-03,0.10683e-02 /) - kao(:, 3,10, 5) = (/ & - & 0.19685e-03,0.30858e-03,0.34410e-03,0.36599e-03,0.37648e-03, & - & 0.37420e-03,0.35748e-03,0.31737e-03,0.10704e-02 /) - kao(:, 4,10, 5) = (/ & - & 0.20091e-03,0.31499e-03,0.35151e-03,0.37400e-03,0.38421e-03, & - & 0.38207e-03,0.36506e-03,0.32617e-03,0.10743e-02 /) - kao(:, 5,10, 5) = (/ & - & 0.20539e-03,0.32294e-03,0.36050e-03,0.38325e-03,0.39308e-03, & - & 0.39074e-03,0.37406e-03,0.33544e-03,0.10696e-02 /) - kao(:, 1,11, 5) = (/ & - & 0.16667e-03,0.26520e-03,0.29671e-03,0.31441e-03,0.32093e-03, & - & 0.31659e-03,0.30045e-03,0.26340e-03,0.11835e-02 /) - kao(:, 2,11, 5) = (/ & - & 0.16885e-03,0.26948e-03,0.30096e-03,0.31914e-03,0.32661e-03, & - & 0.32210e-03,0.30657e-03,0.27004e-03,0.11814e-02 /) - kao(:, 3,11, 5) = (/ & - & 0.17223e-03,0.27439e-03,0.30661e-03,0.32470e-03,0.33272e-03, & - & 0.32842e-03,0.31227e-03,0.27654e-03,0.11630e-02 /) - kao(:, 4,11, 5) = (/ & - & 0.17618e-03,0.28049e-03,0.31365e-03,0.33181e-03,0.33965e-03, & - & 0.33555e-03,0.31903e-03,0.28400e-03,0.11485e-02 /) - kao(:, 5,11, 5) = (/ & - & 0.18103e-03,0.28752e-03,0.32181e-03,0.34031e-03,0.34776e-03, & - & 0.34353e-03,0.32710e-03,0.29221e-03,0.11367e-02 /) - kao(:, 1,12, 5) = (/ & - & 0.14364e-03,0.23191e-03,0.26011e-03,0.27602e-03,0.28230e-03, & - & 0.27753e-03,0.26259e-03,0.22940e-03,0.11242e-02 /) - kao(:, 2,12, 5) = (/ & - & 0.14586e-03,0.23578e-03,0.26464e-03,0.28074e-03,0.28728e-03, & - & 0.28268e-03,0.26740e-03,0.23511e-03,0.11131e-02 /) - kao(:, 3,12, 5) = (/ & - & 0.14908e-03,0.24042e-03,0.27020e-03,0.28659e-03,0.29280e-03, & - & 0.28866e-03,0.27254e-03,0.24089e-03,0.10996e-02 /) - kao(:, 4,12, 5) = (/ & - & 0.15297e-03,0.24595e-03,0.27661e-03,0.29313e-03,0.29926e-03, & - & 0.29513e-03,0.27870e-03,0.24706e-03,0.10965e-02 /) - kao(:, 5,12, 5) = (/ & - & 0.15735e-03,0.25242e-03,0.28422e-03,0.30069e-03,0.30695e-03, & - & 0.30241e-03,0.28613e-03,0.25425e-03,0.10839e-02 /) - kao(:, 1,13, 5) = (/ & - & 0.12345e-03,0.20108e-03,0.22674e-03,0.24086e-03,0.24638e-03, & - & 0.24238e-03,0.22876e-03,0.19931e-03,0.96895e-03 /) - kao(:, 2,13, 5) = (/ & - & 0.12581e-03,0.20480e-03,0.23117e-03,0.24535e-03,0.25104e-03, & - & 0.24702e-03,0.23303e-03,0.20421e-03,0.96294e-03 /) - kao(:, 3,13, 5) = (/ & - & 0.12856e-03,0.20921e-03,0.23606e-03,0.25076e-03,0.25631e-03, & - & 0.25243e-03,0.23816e-03,0.20920e-03,0.95736e-03 /) - kao(:, 4,13, 5) = (/ & - & 0.13210e-03,0.21428e-03,0.24223e-03,0.25691e-03,0.26218e-03, & - & 0.25847e-03,0.24400e-03,0.21468e-03,0.95389e-03 /) - kao(:, 5,13, 5) = (/ & - & 0.13599e-03,0.22037e-03,0.24914e-03,0.26391e-03,0.26911e-03, & - & 0.26543e-03,0.25095e-03,0.22101e-03,0.94116e-03 /) - kao(:, 1, 1, 6) = (/ & - & 0.10602e-02,0.17123e-02,0.20157e-02,0.22277e-02,0.23726e-02, & - & 0.24628e-02,0.25069e-02,0.24686e-02,0.20168e-02 /) - kao(:, 2, 1, 6) = (/ & - & 0.10672e-02,0.17270e-02,0.20414e-02,0.22652e-02,0.24211e-02, & - & 0.25212e-02,0.25704e-02,0.25272e-02,0.20646e-02 /) - kao(:, 3, 1, 6) = (/ & - & 0.10788e-02,0.17509e-02,0.20769e-02,0.23112e-02,0.24814e-02, & - & 0.25914e-02,0.26418e-02,0.25942e-02,0.21193e-02 /) - kao(:, 4, 1, 6) = (/ & - & 0.10874e-02,0.17764e-02,0.21176e-02,0.23585e-02,0.25381e-02, & - & 0.26622e-02,0.27175e-02,0.26689e-02,0.21851e-02 /) - kao(:, 5, 1, 6) = (/ & - & 0.11018e-02,0.18090e-02,0.21640e-02,0.24172e-02,0.26051e-02, & - & 0.27415e-02,0.28075e-02,0.27566e-02,0.22604e-02 /) - kao(:, 1, 2, 6) = (/ & - & 0.95075e-03,0.15355e-02,0.17976e-02,0.19766e-02,0.21006e-02, & - & 0.21710e-02,0.21998e-02,0.21663e-02,0.17568e-02 /) - kao(:, 2, 2, 6) = (/ & - & 0.96010e-03,0.15501e-02,0.18242e-02,0.20112e-02,0.21419e-02, & - & 0.22180e-02,0.22475e-02,0.22135e-02,0.17960e-02 /) - kao(:, 3, 2, 6) = (/ & - & 0.97337e-03,0.15726e-02,0.18580e-02,0.20531e-02,0.21905e-02, & - & 0.22742e-02,0.23072e-02,0.22697e-02,0.18409e-02 /) - kao(:, 4, 2, 6) = (/ & - & 0.98600e-03,0.15975e-02,0.18942e-02,0.20984e-02,0.22403e-02, & - & 0.23334e-02,0.23735e-02,0.23328e-02,0.18922e-02 /) - kao(:, 5, 2, 6) = (/ & - & 0.99685e-03,0.16266e-02,0.19353e-02,0.21493e-02,0.22931e-02, & - & 0.23955e-02,0.24466e-02,0.24068e-02,0.19548e-02 /) - kao(:, 1, 3, 6) = (/ & - & 0.85253e-03,0.13731e-02,0.15966e-02,0.17555e-02,0.18660e-02, & - & 0.19267e-02,0.19415e-02,0.18992e-02,0.15125e-02 /) - kao(:, 2, 3, 6) = (/ & - & 0.86131e-03,0.13853e-02,0.16172e-02,0.17827e-02,0.18992e-02, & - & 0.19616e-02,0.19781e-02,0.19388e-02,0.15472e-02 /) - kao(:, 3, 3, 6) = (/ & - & 0.87215e-03,0.13990e-02,0.16433e-02,0.18151e-02,0.19357e-02, & - & 0.20044e-02,0.20244e-02,0.19864e-02,0.15842e-02 /) - kao(:, 4, 3, 6) = (/ & - & 0.88704e-03,0.14261e-02,0.16795e-02,0.18576e-02,0.19802e-02, & - & 0.20536e-02,0.20804e-02,0.20410e-02,0.16256e-02 /) - kao(:, 5, 3, 6) = (/ & - & 0.89758e-03,0.14527e-02,0.17171e-02,0.19025e-02,0.20236e-02, & - & 0.21045e-02,0.21413e-02,0.21023e-02,0.16764e-02 /) - kao(:, 1, 4, 6) = (/ & - & 0.76168e-03,0.12206e-02,0.14175e-02,0.15588e-02,0.16575e-02, & - & 0.17098e-02,0.17134e-02,0.16603e-02,0.12974e-02 /) - kao(:, 2, 4, 6) = (/ & - & 0.76958e-03,0.12314e-02,0.14342e-02,0.15807e-02,0.16847e-02, & - & 0.17400e-02,0.17442e-02,0.16938e-02,0.13260e-02 /) - kao(:, 3, 4, 6) = (/ & - & 0.78002e-03,0.12481e-02,0.14573e-02,0.16092e-02,0.17173e-02, & - & 0.17771e-02,0.17830e-02,0.17337e-02,0.13577e-02 /) - kao(:, 4, 4, 6) = (/ & - & 0.79261e-03,0.12694e-02,0.14861e-02,0.16420e-02,0.17536e-02, & - & 0.18179e-02,0.18286e-02,0.17776e-02,0.13930e-02 /) - kao(:, 5, 4, 6) = (/ & - & 0.80905e-03,0.12930e-02,0.15216e-02,0.16835e-02,0.17969e-02, & - & 0.18651e-02,0.18829e-02,0.18324e-02,0.14370e-02 /) - kao(:, 1, 5, 6) = (/ & - & 0.67567e-03,0.10847e-02,0.12673e-02,0.13865e-02,0.14678e-02, & - & 0.15102e-02,0.15099e-02,0.14466e-02,0.11079e-02 /) - kao(:, 2, 5, 6) = (/ & - & 0.68234e-03,0.10948e-02,0.12810e-02,0.14048e-02,0.14909e-02, & - & 0.15364e-02,0.15351e-02,0.14749e-02,0.11322e-02 /) - kao(:, 3, 5, 6) = (/ & - & 0.69172e-03,0.11094e-02,0.12954e-02,0.14275e-02,0.15177e-02, & - & 0.15693e-02,0.15680e-02,0.15069e-02,0.11581e-02 /) - kao(:, 4, 5, 6) = (/ & - & 0.70397e-03,0.11284e-02,0.13174e-02,0.14563e-02,0.15501e-02, & - & 0.16053e-02,0.16071e-02,0.15445e-02,0.11891e-02 /) - kao(:, 5, 5, 6) = (/ & - & 0.72110e-03,0.11540e-02,0.13487e-02,0.14917e-02,0.15891e-02, & - & 0.16474e-02,0.16536e-02,0.15913e-02,0.12262e-02 /) - kao(:, 1, 6, 6) = (/ & - & 0.59508e-03,0.96565e-03,0.11271e-02,0.12321e-02,0.12935e-02, & - & 0.13263e-02,0.13235e-02,0.12583e-02,0.94318e-03 /) - kao(:, 2, 6, 6) = (/ & - & 0.60163e-03,0.97555e-03,0.11390e-02,0.12428e-02,0.13136e-02, & - & 0.13483e-02,0.13443e-02,0.12812e-02,0.96040e-03 /) - kao(:, 3, 6, 6) = (/ & - & 0.61035e-03,0.98842e-03,0.11551e-02,0.12623e-02,0.13370e-02, & - & 0.13759e-02,0.13716e-02,0.13073e-02,0.98049e-03 /) - kao(:, 4, 6, 6) = (/ & - & 0.62216e-03,0.10038e-02,0.11750e-02,0.12870e-02,0.13646e-02, & - & 0.14087e-02,0.14042e-02,0.13389e-02,0.10049e-02 /) - kao(:, 5, 6, 6) = (/ & - & 0.63568e-03,0.10246e-02,0.11986e-02,0.13152e-02,0.13969e-02, & - & 0.14439e-02,0.14425e-02,0.13760e-02,0.10351e-02 /) - kao(:, 1, 7, 6) = (/ & - & 0.52222e-03,0.85609e-03,0.99991e-03,0.10870e-02,0.11353e-02, & - & 0.11602e-02,0.11537e-02,0.10909e-02,0.79969e-03 /) - kao(:, 2, 7, 6) = (/ & - & 0.52839e-03,0.86572e-03,0.10120e-02,0.11011e-02,0.11521e-02, & - & 0.11786e-02,0.11705e-02,0.11093e-02,0.81421e-03 /) - kao(:, 3, 7, 6) = (/ & - & 0.53695e-03,0.87703e-03,0.10261e-02,0.11177e-02,0.11714e-02, & - & 0.12016e-02,0.11930e-02,0.11309e-02,0.83157e-03 /) - kao(:, 4, 7, 6) = (/ & - & 0.54734e-03,0.89105e-03,0.10435e-02,0.11340e-02,0.11954e-02, & - & 0.12276e-02,0.12204e-02,0.11559e-02,0.85189e-03 /) - kao(:, 5, 7, 6) = (/ & - & 0.56071e-03,0.90902e-03,0.10648e-02,0.11575e-02,0.12234e-02, & - & 0.12571e-02,0.12523e-02,0.11865e-02,0.87630e-03 /) - kao(:, 1, 8, 6) = (/ & - & 0.45809e-03,0.75296e-03,0.88022e-03,0.95530e-03,0.99775e-03, & - & 0.10107e-02,0.99991e-03,0.94255e-03,0.69349e-03 /) - kao(:, 2, 8, 6) = (/ & - & 0.46457e-03,0.76241e-03,0.89241e-03,0.96833e-03,0.10107e-02, & - & 0.10258e-02,0.10136e-02,0.95735e-03,0.70413e-03 /) - kao(:, 3, 8, 6) = (/ & - & 0.47249e-03,0.77258e-03,0.90578e-03,0.98260e-03,0.10233e-02, & - & 0.10448e-02,0.10324e-02,0.97481e-03,0.71522e-03 /) - kao(:, 4, 8, 6) = (/ & - & 0.48263e-03,0.78537e-03,0.92183e-03,0.10012e-02,0.10427e-02, & - & 0.10663e-02,0.10558e-02,0.99531e-03,0.72922e-03 /) - kao(:, 5, 8, 6) = (/ & - & 0.49501e-03,0.80218e-03,0.94059e-03,0.10219e-02,0.10669e-02, & - & 0.10907e-02,0.10824e-02,0.10204e-02,0.74659e-03 /) - kao(:, 1, 9, 6) = (/ & - & 0.40630e-03,0.65697e-03,0.76693e-03,0.83253e-03,0.86881e-03, & - & 0.87661e-03,0.86393e-03,0.81158e-03,0.85763e-03 /) - kao(:, 2, 9, 6) = (/ & - & 0.41166e-03,0.66657e-03,0.77941e-03,0.84564e-03,0.88174e-03, & - & 0.88952e-03,0.87488e-03,0.82351e-03,0.84633e-03 /) - kao(:, 3, 9, 6) = (/ & - & 0.41847e-03,0.67680e-03,0.79185e-03,0.85875e-03,0.89476e-03, & - & 0.90456e-03,0.89101e-03,0.83833e-03,0.84017e-03 /) - kao(:, 4, 9, 6) = (/ & - & 0.42661e-03,0.68815e-03,0.80637e-03,0.87435e-03,0.91036e-03, & - & 0.92205e-03,0.90961e-03,0.85502e-03,0.83895e-03 /) - kao(:, 5, 9, 6) = (/ & - & 0.43776e-03,0.70278e-03,0.82329e-03,0.89247e-03,0.92828e-03, & - & 0.94238e-03,0.93168e-03,0.87536e-03,0.84088e-03 /) - kao(:, 1,10, 6) = (/ & - & 0.36854e-03,0.57908e-03,0.66869e-03,0.72258e-03,0.75231e-03, & - & 0.75942e-03,0.74383e-03,0.69709e-03,0.20395e-02 /) - kao(:, 2,10, 6) = (/ & - & 0.37298e-03,0.58711e-03,0.68015e-03,0.73349e-03,0.76293e-03, & - & 0.77052e-03,0.75338e-03,0.70798e-03,0.19202e-02 /) - kao(:, 3,10, 6) = (/ & - & 0.37876e-03,0.59595e-03,0.69100e-03,0.74575e-03,0.77497e-03, & - & 0.78295e-03,0.76740e-03,0.72017e-03,0.18161e-02 /) - kao(:, 4,10, 6) = (/ & - & 0.38615e-03,0.60708e-03,0.70373e-03,0.75914e-03,0.78952e-03, & - & 0.79663e-03,0.78331e-03,0.73385e-03,0.17247e-02 /) - kao(:, 5,10, 6) = (/ & - & 0.39564e-03,0.62052e-03,0.71856e-03,0.77512e-03,0.80699e-03, & - & 0.81444e-03,0.80141e-03,0.75081e-03,0.16568e-02 /) - kao(:, 1,11, 6) = (/ & - & 0.33320e-03,0.52088e-03,0.59646e-03,0.63812e-03,0.65660e-03, & - & 0.65900e-03,0.64138e-03,0.60020e-03,0.25696e-02 /) - kao(:, 2,11, 6) = (/ & - & 0.33882e-03,0.52942e-03,0.60584e-03,0.64728e-03,0.66639e-03, & - & 0.66995e-03,0.65115e-03,0.61030e-03,0.24243e-02 /) - kao(:, 3,11, 6) = (/ & - & 0.34516e-03,0.53993e-03,0.61579e-03,0.65783e-03,0.67758e-03, & - & 0.68193e-03,0.66413e-03,0.62169e-03,0.23408e-02 /) - kao(:, 4,11, 6) = (/ & - & 0.35301e-03,0.55124e-03,0.62753e-03,0.66999e-03,0.69148e-03, & - & 0.69508e-03,0.67858e-03,0.63426e-03,0.22732e-02 /) - kao(:, 5,11, 6) = (/ & - & 0.36214e-03,0.56453e-03,0.64151e-03,0.68481e-03,0.70755e-03, & - & 0.71086e-03,0.69483e-03,0.64938e-03,0.21869e-02 /) - kao(:, 1,12, 6) = (/ & - & 0.29653e-03,0.46559e-03,0.53073e-03,0.56520e-03,0.57894e-03, & - & 0.57686e-03,0.55698e-03,0.51584e-03,0.26304e-02 /) - kao(:, 2,12, 6) = (/ & - & 0.30188e-03,0.47447e-03,0.54017e-03,0.57406e-03,0.58804e-03, & - & 0.58653e-03,0.56630e-03,0.52472e-03,0.24930e-02 /) - kao(:, 3,12, 6) = (/ & - & 0.30861e-03,0.48517e-03,0.55102e-03,0.58380e-03,0.59890e-03, & - & 0.59725e-03,0.57721e-03,0.53486e-03,0.23834e-02 /) - kao(:, 4,12, 6) = (/ & - & 0.31637e-03,0.49701e-03,0.56299e-03,0.59618e-03,0.61191e-03, & - & 0.60936e-03,0.58930e-03,0.54649e-03,0.22824e-02 /) - kao(:, 5,12, 6) = (/ & - & 0.32604e-03,0.51148e-03,0.57604e-03,0.61103e-03,0.62611e-03, & - & 0.62412e-03,0.60375e-03,0.56026e-03,0.22084e-02 /) - kao(:, 1,13, 6) = (/ & - & 0.26154e-03,0.41366e-03,0.47019e-03,0.50056e-03,0.51140e-03, & - & 0.50695e-03,0.48611e-03,0.44348e-03,0.22773e-02 /) - kao(:, 2,13, 6) = (/ & - & 0.26669e-03,0.42267e-03,0.47957e-03,0.51009e-03,0.52067e-03, & - & 0.51611e-03,0.49506e-03,0.45138e-03,0.21516e-02 /) - kao(:, 3,13, 6) = (/ & - & 0.27302e-03,0.43290e-03,0.49082e-03,0.52081e-03,0.53105e-03, & - & 0.52578e-03,0.50476e-03,0.46026e-03,0.20522e-02 /) - kao(:, 4,13, 6) = (/ & - & 0.28114e-03,0.44552e-03,0.50271e-03,0.53316e-03,0.54314e-03, & - & 0.53754e-03,0.51555e-03,0.47096e-03,0.19694e-02 /) - kao(:, 5,13, 6) = (/ & - & 0.29046e-03,0.45904e-03,0.51716e-03,0.54751e-03,0.55727e-03, & - & 0.55147e-03,0.52828e-03,0.48333e-03,0.19102e-02 /) - kao(:, 1, 1, 7) = (/ & - & 0.21025e-02,0.35934e-02,0.44505e-02,0.51294e-02,0.56565e-02, & - & 0.60638e-02,0.63051e-02,0.63060e-02,0.53132e-02 /) - kao(:, 2, 1, 7) = (/ & - & 0.21147e-02,0.36363e-02,0.45228e-02,0.52203e-02,0.57590e-02, & - & 0.61627e-02,0.64080e-02,0.64123e-02,0.54186e-02 /) - kao(:, 3, 1, 7) = (/ & - & 0.21423e-02,0.36907e-02,0.46129e-02,0.53384e-02,0.58809e-02, & - & 0.62832e-02,0.65320e-02,0.65359e-02,0.55396e-02 /) - kao(:, 4, 1, 7) = (/ & - & 0.21655e-02,0.37303e-02,0.46928e-02,0.54454e-02,0.60067e-02, & - & 0.64159e-02,0.66758e-02,0.66776e-02,0.56738e-02 /) - kao(:, 5, 1, 7) = (/ & - & 0.22041e-02,0.37865e-02,0.47900e-02,0.55720e-02,0.61575e-02, & - & 0.65795e-02,0.68426e-02,0.68332e-02,0.58218e-02 /) - kao(:, 1, 2, 7) = (/ & - & 0.19184e-02,0.32868e-02,0.40037e-02,0.45520e-02,0.49723e-02, & - & 0.52862e-02,0.54779e-02,0.54778e-02,0.44696e-02 /) - kao(:, 2, 2, 7) = (/ & - & 0.19302e-02,0.33258e-02,0.40693e-02,0.46336e-02,0.50634e-02, & - & 0.53829e-02,0.55797e-02,0.55784e-02,0.45568e-02 /) - kao(:, 3, 2, 7) = (/ & - & 0.19586e-02,0.33762e-02,0.41518e-02,0.47383e-02,0.51749e-02, & - & 0.54993e-02,0.56986e-02,0.56923e-02,0.46572e-02 /) - kao(:, 4, 2, 7) = (/ & - & 0.19876e-02,0.34214e-02,0.42297e-02,0.48395e-02,0.52957e-02, & - & 0.56305e-02,0.58340e-02,0.58219e-02,0.47733e-02 /) - kao(:, 5, 2, 7) = (/ & - & 0.20222e-02,0.34660e-02,0.43057e-02,0.49428e-02,0.54286e-02, & - & 0.57769e-02,0.59846e-02,0.59651e-02,0.49022e-02 /) - kao(:, 1, 3, 7) = (/ & - & 0.17389e-02,0.29833e-02,0.35894e-02,0.40314e-02,0.43535e-02, & - & 0.45848e-02,0.47251e-02,0.47273e-02,0.37675e-02 /) - kao(:, 2, 3, 7) = (/ & - & 0.17511e-02,0.30210e-02,0.36487e-02,0.40996e-02,0.44314e-02, & - & 0.46730e-02,0.48141e-02,0.48126e-02,0.38333e-02 /) - kao(:, 3, 3, 7) = (/ & - & 0.17713e-02,0.30646e-02,0.37133e-02,0.41800e-02,0.45216e-02, & - & 0.47732e-02,0.49178e-02,0.49079e-02,0.39121e-02 /) - kao(:, 4, 3, 7) = (/ & - & 0.18058e-02,0.31149e-02,0.37889e-02,0.42777e-02,0.46349e-02, & - & 0.48925e-02,0.50383e-02,0.50219e-02,0.40071e-02 /) - kao(:, 5, 3, 7) = (/ & - & 0.18379e-02,0.31573e-02,0.38545e-02,0.43660e-02,0.47479e-02, & - & 0.50186e-02,0.51717e-02,0.51483e-02,0.41141e-02 /) - kao(:, 1, 4, 7) = (/ & - & 0.15760e-02,0.26881e-02,0.32116e-02,0.35706e-02,0.38258e-02, & - & 0.39911e-02,0.40833e-02,0.40813e-02,0.32298e-02 /) - kao(:, 2, 4, 7) = (/ & - & 0.15813e-02,0.27249e-02,0.32627e-02,0.36295e-02,0.38889e-02, & - & 0.40640e-02,0.41571e-02,0.41534e-02,0.32787e-02 /) - kao(:, 3, 4, 7) = (/ & - & 0.16001e-02,0.27603e-02,0.33193e-02,0.36971e-02,0.39631e-02, & - & 0.41442e-02,0.42435e-02,0.42324e-02,0.33394e-02 /) - kao(:, 4, 4, 7) = (/ & - & 0.16258e-02,0.28020e-02,0.33780e-02,0.37750e-02,0.40494e-02, & - & 0.42369e-02,0.43436e-02,0.43281e-02,0.34138e-02 /) - kao(:, 5, 4, 7) = (/ & - & 0.16664e-02,0.28640e-02,0.34503e-02,0.38637e-02,0.41572e-02, & - & 0.43540e-02,0.44611e-02,0.44376e-02,0.34982e-02 /) - kao(:, 1, 5, 7) = (/ & - & 0.14233e-02,0.24061e-02,0.28484e-02,0.31675e-02,0.33803e-02, & - & 0.35027e-02,0.35528e-02,0.35417e-02,0.27814e-02 /) - kao(:, 2, 5, 7) = (/ & - & 0.14350e-02,0.24395e-02,0.28937e-02,0.32168e-02,0.34318e-02, & - & 0.35619e-02,0.36148e-02,0.35990e-02,0.28208e-02 /) - kao(:, 3, 5, 7) = (/ & - & 0.14521e-02,0.24725e-02,0.29512e-02,0.32733e-02,0.34917e-02, & - & 0.36258e-02,0.36856e-02,0.36654e-02,0.28719e-02 /) - kao(:, 4, 5, 7) = (/ & - & 0.14701e-02,0.25117e-02,0.30081e-02,0.33364e-02,0.35619e-02, & - & 0.37016e-02,0.37673e-02,0.37455e-02,0.29344e-02 /) - kao(:, 5, 5, 7) = (/ & - & 0.15037e-02,0.25667e-02,0.30753e-02,0.34136e-02,0.36518e-02, & - & 0.37975e-02,0.38648e-02,0.38367e-02,0.30050e-02 /) - kao(:, 1, 6, 7) = (/ & - & 0.12833e-02,0.21397e-02,0.25249e-02,0.27989e-02,0.29941e-02, & - & 0.30943e-02,0.31134e-02,0.30718e-02,0.23837e-02 /) - kao(:, 2, 6, 7) = (/ & - & 0.12955e-02,0.21689e-02,0.25640e-02,0.28465e-02,0.30386e-02, & - & 0.31442e-02,0.31666e-02,0.31216e-02,0.24190e-02 /) - kao(:, 3, 6, 7) = (/ & - & 0.13128e-02,0.22001e-02,0.26092e-02,0.28949e-02,0.30875e-02, & - & 0.31967e-02,0.32254e-02,0.31772e-02,0.24633e-02 /) - kao(:, 4, 6, 7) = (/ & - & 0.13321e-02,0.22373e-02,0.26583e-02,0.29483e-02,0.31454e-02, & - & 0.32584e-02,0.32916e-02,0.32451e-02,0.25158e-02 /) - kao(:, 5, 6, 7) = (/ & - & 0.13570e-02,0.22801e-02,0.27142e-02,0.30110e-02,0.32147e-02, & - & 0.33324e-02,0.33699e-02,0.33240e-02,0.25751e-02 /) - kao(:, 1, 7, 7) = (/ & - & 0.11500e-02,0.18956e-02,0.22352e-02,0.24771e-02,0.26462e-02, & - & 0.27285e-02,0.27284e-02,0.26574e-02,0.20286e-02 /) - kao(:, 2, 7, 7) = (/ & - & 0.11641e-02,0.19221e-02,0.22681e-02,0.25137e-02,0.26876e-02, & - & 0.27741e-02,0.27762e-02,0.27013e-02,0.20553e-02 /) - kao(:, 3, 7, 7) = (/ & - & 0.11813e-02,0.19513e-02,0.23065e-02,0.25547e-02,0.27305e-02, & - & 0.28210e-02,0.28261e-02,0.27499e-02,0.20900e-02 /) - kao(:, 4, 7, 7) = (/ & - & 0.12020e-02,0.19854e-02,0.23499e-02,0.26064e-02,0.27813e-02, & - & 0.28738e-02,0.28824e-02,0.28095e-02,0.21311e-02 /) - kao(:, 5, 7, 7) = (/ & - & 0.12251e-02,0.20252e-02,0.23984e-02,0.26618e-02,0.28401e-02, & - & 0.29374e-02,0.29496e-02,0.28780e-02,0.21792e-02 /) - kao(:, 1, 8, 7) = (/ & - & 0.10232e-02,0.16906e-02,0.19769e-02,0.21832e-02,0.23202e-02, & - & 0.23917e-02,0.23852e-02,0.22950e-02,0.17101e-02 /) - kao(:, 2, 8, 7) = (/ & - & 0.10391e-02,0.17050e-02,0.20071e-02,0.22179e-02,0.23606e-02, & - & 0.24337e-02,0.24284e-02,0.23335e-02,0.17331e-02 /) - kao(:, 3, 8, 7) = (/ & - & 0.10558e-02,0.17304e-02,0.20412e-02,0.22560e-02,0.24048e-02, & - & 0.24767e-02,0.24718e-02,0.23758e-02,0.17638e-02 /) - kao(:, 4, 8, 7) = (/ & - & 0.10757e-02,0.17611e-02,0.20788e-02,0.22974e-02,0.24509e-02, & - & 0.25242e-02,0.25220e-02,0.24275e-02,0.17981e-02 /) - kao(:, 5, 8, 7) = (/ & - & 0.10980e-02,0.17974e-02,0.21207e-02,0.23464e-02,0.25025e-02, & - & 0.25827e-02,0.25792e-02,0.24843e-02,0.18371e-02 /) - kao(:, 1, 9, 7) = (/ & - & 0.89817e-03,0.14995e-02,0.17424e-02,0.19141e-02,0.20277e-02, & - & 0.20847e-02,0.20717e-02,0.19779e-02,0.16529e-02 /) - kao(:, 2, 9, 7) = (/ & - & 0.91497e-03,0.15202e-02,0.17713e-02,0.19473e-02,0.20642e-02, & - & 0.21241e-02,0.21112e-02,0.20125e-02,0.16590e-02 /) - kao(:, 3, 9, 7) = (/ & - & 0.93269e-03,0.15411e-02,0.18029e-02,0.19839e-02,0.21017e-02, & - & 0.21633e-02,0.21507e-02,0.20494e-02,0.16738e-02 /) - kao(:, 4, 9, 7) = (/ & - & 0.95304e-03,0.15646e-02,0.18368e-02,0.20225e-02,0.21451e-02, & - & 0.22062e-02,0.21951e-02,0.20930e-02,0.16939e-02 /) - kao(:, 5, 9, 7) = (/ & - & 0.97498e-03,0.15941e-02,0.18742e-02,0.20657e-02,0.21958e-02, & - & 0.22577e-02,0.22448e-02,0.21409e-02,0.17176e-02 /) - kao(:, 1,10, 7) = (/ & - & 0.79262e-03,0.13163e-02,0.15328e-02,0.16707e-02,0.17648e-02, & - & 0.18068e-02,0.17935e-02,0.17058e-02,0.29700e-02 /) - kao(:, 2,10, 7) = (/ & - & 0.80762e-03,0.13411e-02,0.15596e-02,0.17027e-02,0.18000e-02, & - & 0.18435e-02,0.18291e-02,0.17355e-02,0.28651e-02 /) - kao(:, 3,10, 7) = (/ & - & 0.82251e-03,0.13646e-02,0.15856e-02,0.17370e-02,0.18349e-02, & - & 0.18799e-02,0.18643e-02,0.17669e-02,0.27637e-02 /) - kao(:, 4,10, 7) = (/ & - & 0.84077e-03,0.13892e-02,0.16170e-02,0.17747e-02,0.18736e-02, & - & 0.19201e-02,0.19036e-02,0.18042e-02,0.26870e-02 /) - kao(:, 5,10, 7) = (/ & - & 0.86106e-03,0.14180e-02,0.16516e-02,0.18147e-02,0.19171e-02, & - & 0.19660e-02,0.19468e-02,0.18451e-02,0.26342e-02 /) - kao(:, 1,11, 7) = (/ & - & 0.72744e-03,0.11669e-02,0.13481e-02,0.14590e-02,0.15393e-02, & - & 0.15747e-02,0.15610e-02,0.14772e-02,0.38429e-02 /) - kao(:, 2,11, 7) = (/ & - & 0.73930e-03,0.11904e-02,0.13759e-02,0.14894e-02,0.15715e-02, & - & 0.16066e-02,0.15925e-02,0.15038e-02,0.36308e-02 /) - kao(:, 3,11, 7) = (/ & - & 0.75350e-03,0.12120e-02,0.14044e-02,0.15240e-02,0.16053e-02, & - & 0.16390e-02,0.16251e-02,0.15339e-02,0.34122e-02 /) - kao(:, 4,11, 7) = (/ & - & 0.76930e-03,0.12355e-02,0.14324e-02,0.15603e-02,0.16424e-02, & - & 0.16774e-02,0.16611e-02,0.15677e-02,0.32391e-02 /) - kao(:, 5,11, 7) = (/ & - & 0.78824e-03,0.12645e-02,0.14660e-02,0.15998e-02,0.16846e-02, & - & 0.17204e-02,0.17007e-02,0.16046e-02,0.31291e-02 /) - kao(:, 1,12, 7) = (/ & - & 0.66909e-03,0.10517e-02,0.11921e-02,0.12822e-02,0.13379e-02, & - & 0.13630e-02,0.13492e-02,0.12752e-02,0.39255e-02 /) - kao(:, 2,12, 7) = (/ & - & 0.68372e-03,0.10717e-02,0.12175e-02,0.13089e-02,0.13666e-02, & - & 0.13913e-02,0.13783e-02,0.12999e-02,0.37011e-02 /) - kao(:, 3,12, 7) = (/ & - & 0.69881e-03,0.10912e-02,0.12439e-02,0.13402e-02,0.13970e-02, & - & 0.14222e-02,0.14099e-02,0.13279e-02,0.35002e-02 /) - kao(:, 4,12, 7) = (/ & - & 0.71487e-03,0.11132e-02,0.12732e-02,0.13738e-02,0.14317e-02, & - & 0.14583e-02,0.14439e-02,0.13590e-02,0.33360e-02 /) - kao(:, 5,12, 7) = (/ & - & 0.73461e-03,0.11382e-02,0.13053e-02,0.14102e-02,0.14713e-02, & - & 0.14974e-02,0.14808e-02,0.13924e-02,0.31844e-02 /) - kao(:, 1,13, 7) = (/ & - & 0.61282e-03,0.95575e-03,0.10730e-02,0.11388e-02,0.11718e-02, & - & 0.11795e-02,0.11618e-02,0.10974e-02,0.34089e-02 /) - kao(:, 2,13, 7) = (/ & - & 0.62765e-03,0.97500e-03,0.10966e-02,0.11619e-02,0.11959e-02, & - & 0.12054e-02,0.11876e-02,0.11206e-02,0.32141e-02 /) - kao(:, 3,13, 7) = (/ & - & 0.64409e-03,0.99523e-03,0.11197e-02,0.11873e-02,0.12235e-02, & - & 0.12347e-02,0.12163e-02,0.11468e-02,0.30396e-02 /) - kao(:, 4,13, 7) = (/ & - & 0.66230e-03,0.10180e-02,0.11464e-02,0.12161e-02,0.12557e-02, & - & 0.12667e-02,0.12475e-02,0.11749e-02,0.28911e-02 /) - kao(:, 5,13, 7) = (/ & - & 0.68383e-03,0.10452e-02,0.11767e-02,0.12484e-02,0.12902e-02, & - & 0.13021e-02,0.12822e-02,0.12049e-02,0.27576e-02 /) - kao(:, 1, 1, 8) = (/ & - & 0.59073e-02,0.94320e-02,0.12084e-01,0.14049e-01,0.15571e-01, & - & 0.16640e-01,0.17123e-01,0.16625e-01,0.14851e-01 /) - kao(:, 2, 1, 8) = (/ & - & 0.60213e-02,0.95565e-02,0.12218e-01,0.14200e-01,0.15736e-01, & - & 0.16810e-01,0.17290e-01,0.16722e-01,0.14969e-01 /) - kao(:, 3, 1, 8) = (/ & - & 0.61698e-02,0.97176e-02,0.12383e-01,0.14381e-01,0.15939e-01, & - & 0.17010e-01,0.17476e-01,0.16866e-01,0.15129e-01 /) - kao(:, 4, 1, 8) = (/ & - & 0.62862e-02,0.98624e-02,0.12544e-01,0.14586e-01,0.16163e-01, & - & 0.17225e-01,0.17690e-01,0.17043e-01,0.15322e-01 /) - kao(:, 5, 1, 8) = (/ & - & 0.64346e-02,0.10033e-01,0.12746e-01,0.14817e-01,0.16408e-01, & - & 0.17481e-01,0.17940e-01,0.17253e-01,0.15543e-01 /) - kao(:, 1, 2, 8) = (/ & - & 0.53740e-02,0.87218e-02,0.11053e-01,0.12810e-01,0.14176e-01, & - & 0.15120e-01,0.15546e-01,0.15059e-01,0.12919e-01 /) - kao(:, 2, 2, 8) = (/ & - & 0.54730e-02,0.88522e-02,0.11203e-01,0.12984e-01,0.14363e-01, & - & 0.15303e-01,0.15712e-01,0.15177e-01,0.13038e-01 /) - kao(:, 3, 2, 8) = (/ & - & 0.56074e-02,0.90112e-02,0.11386e-01,0.13184e-01,0.14577e-01, & - & 0.15506e-01,0.15908e-01,0.15341e-01,0.13193e-01 /) - kao(:, 4, 2, 8) = (/ & - & 0.57291e-02,0.91663e-02,0.11581e-01,0.13408e-01,0.14805e-01, & - & 0.15738e-01,0.16140e-01,0.15527e-01,0.13373e-01 /) - kao(:, 5, 2, 8) = (/ & - & 0.58374e-02,0.93237e-02,0.11790e-01,0.13642e-01,0.15063e-01, & - & 0.16008e-01,0.16391e-01,0.15740e-01,0.13573e-01 /) - kao(:, 1, 3, 8) = (/ & - & 0.49151e-02,0.80083e-02,0.10006e-01,0.11528e-01,0.12727e-01, & - & 0.13551e-01,0.13911e-01,0.13469e-01,0.11070e-01 /) - kao(:, 2, 3, 8) = (/ & - & 0.50045e-02,0.81384e-02,0.10158e-01,0.11712e-01,0.12918e-01, & - & 0.13727e-01,0.14078e-01,0.13598e-01,0.11182e-01 /) - kao(:, 3, 3, 8) = (/ & - & 0.51018e-02,0.82774e-02,0.10333e-01,0.11906e-01,0.13128e-01, & - & 0.13932e-01,0.14276e-01,0.13758e-01,0.11318e-01 /) - kao(:, 4, 3, 8) = (/ & - & 0.52290e-02,0.84457e-02,0.10545e-01,0.12130e-01,0.13362e-01, & - & 0.14179e-01,0.14506e-01,0.13944e-01,0.11475e-01 /) - kao(:, 5, 3, 8) = (/ & - & 0.53219e-02,0.86004e-02,0.10753e-01,0.12365e-01,0.13624e-01, & - & 0.14443e-01,0.14743e-01,0.14150e-01,0.11664e-01 /) - kao(:, 1, 4, 8) = (/ & - & 0.44996e-02,0.73324e-02,0.89976e-02,0.10282e-01,0.11291e-01, & - & 0.11989e-01,0.12308e-01,0.11915e-01,0.94610e-02 /) - kao(:, 2, 4, 8) = (/ & - & 0.45903e-02,0.74608e-02,0.91511e-02,0.10467e-01,0.11476e-01, & - & 0.12168e-01,0.12474e-01,0.12040e-01,0.95583e-02 /) - kao(:, 3, 4, 8) = (/ & - & 0.46786e-02,0.75960e-02,0.93200e-02,0.10651e-01,0.11685e-01, & - & 0.12375e-01,0.12662e-01,0.12197e-01,0.96836e-02 /) - kao(:, 4, 4, 8) = (/ & - & 0.47771e-02,0.77407e-02,0.95085e-02,0.10860e-01,0.11915e-01, & - & 0.12611e-01,0.12868e-01,0.12374e-01,0.98243e-02 /) - kao(:, 5, 4, 8) = (/ & - & 0.48920e-02,0.79194e-02,0.97305e-02,0.11107e-01,0.12174e-01, & - & 0.12866e-01,0.13096e-01,0.12573e-01,0.99978e-02 /) - kao(:, 1, 5, 8) = (/ & - & 0.41203e-02,0.67057e-02,0.80820e-02,0.91247e-02,0.99321e-02, & - & 0.10510e-01,0.10783e-01,0.10430e-01,0.81020e-02 /) - kao(:, 2, 5, 8) = (/ & - & 0.41993e-02,0.68279e-02,0.82322e-02,0.92959e-02,0.10115e-01, & - & 0.10684e-01,0.10936e-01,0.10557e-01,0.81860e-02 /) - kao(:, 3, 5, 8) = (/ & - & 0.42833e-02,0.69588e-02,0.83884e-02,0.94726e-02,0.10319e-01, & - & 0.10879e-01,0.11113e-01,0.10704e-01,0.82915e-02 /) - kao(:, 4, 5, 8) = (/ & - & 0.43800e-02,0.70975e-02,0.85585e-02,0.96769e-02,0.10538e-01, & - & 0.11098e-01,0.11307e-01,0.10873e-01,0.84082e-02 /) - kao(:, 5, 5, 8) = (/ & - & 0.44913e-02,0.72638e-02,0.87668e-02,0.99106e-02,0.10776e-01, & - & 0.11337e-01,0.11521e-01,0.11061e-01,0.85492e-02 /) - kao(:, 1, 6, 8) = (/ & - & 0.37432e-02,0.61135e-02,0.72507e-02,0.80822e-02,0.86984e-02, & - & 0.91424e-02,0.93607e-02,0.90800e-02,0.69637e-02 /) - kao(:, 2, 6, 8) = (/ & - & 0.38232e-02,0.62277e-02,0.73923e-02,0.82383e-02,0.88666e-02, & - & 0.93013e-02,0.95051e-02,0.91939e-02,0.70311e-02 /) - kao(:, 3, 6, 8) = (/ & - & 0.39028e-02,0.63516e-02,0.75330e-02,0.84072e-02,0.90542e-02, & - & 0.94860e-02,0.96693e-02,0.93306e-02,0.71143e-02 /) - kao(:, 4, 6, 8) = (/ & - & 0.39917e-02,0.64850e-02,0.76893e-02,0.85935e-02,0.92562e-02, & - & 0.96859e-02,0.98481e-02,0.94821e-02,0.72080e-02 /) - kao(:, 5, 6, 8) = (/ & - & 0.40851e-02,0.66256e-02,0.78694e-02,0.87911e-02,0.94733e-02, & - & 0.99019e-02,0.10042e-01,0.96464e-02,0.73211e-02 /) - kao(:, 1, 7, 8) = (/ & - & 0.33812e-02,0.55475e-02,0.65017e-02,0.71556e-02,0.76235e-02, & - & 0.79451e-02,0.81101e-02,0.78877e-02,0.60070e-02 /) - kao(:, 2, 7, 8) = (/ & - & 0.34581e-02,0.56575e-02,0.66301e-02,0.72977e-02,0.77709e-02, & - & 0.80903e-02,0.82426e-02,0.79917e-02,0.60625e-02 /) - kao(:, 3, 7, 8) = (/ & - & 0.35355e-02,0.57759e-02,0.67602e-02,0.74532e-02,0.79395e-02, & - & 0.82549e-02,0.83890e-02,0.81121e-02,0.61274e-02 /) - kao(:, 4, 7, 8) = (/ & - & 0.36191e-02,0.58987e-02,0.69034e-02,0.76219e-02,0.81209e-02, & - & 0.84343e-02,0.85495e-02,0.82395e-02,0.62026e-02 /) - kao(:, 5, 7, 8) = (/ & - & 0.37084e-02,0.60308e-02,0.70671e-02,0.77977e-02,0.83160e-02, & - & 0.86266e-02,0.87205e-02,0.83802e-02,0.62947e-02 /) - kao(:, 1, 8, 8) = (/ & - & 0.30376e-02,0.49774e-02,0.58172e-02,0.63470e-02,0.67038e-02, & - & 0.69396e-02,0.70412e-02,0.68509e-02,0.51374e-02 /) - kao(:, 2, 8, 8) = (/ & - & 0.31099e-02,0.50996e-02,0.59344e-02,0.64736e-02,0.68367e-02, & - & 0.70701e-02,0.71564e-02,0.69425e-02,0.51813e-02 /) - kao(:, 3, 8, 8) = (/ & - & 0.31853e-02,0.52155e-02,0.60541e-02,0.66147e-02,0.69858e-02, & - & 0.72120e-02,0.72858e-02,0.70465e-02,0.52319e-02 /) - kao(:, 4, 8, 8) = (/ & - & 0.32663e-02,0.53312e-02,0.61863e-02,0.67654e-02,0.71468e-02, & - & 0.73677e-02,0.74252e-02,0.71560e-02,0.52932e-02 /) - kao(:, 5, 8, 8) = (/ & - & 0.33510e-02,0.54583e-02,0.63345e-02,0.69235e-02,0.73170e-02, & - & 0.75339e-02,0.75720e-02,0.72770e-02,0.53726e-02 /) - kao(:, 1, 9, 8) = (/ & - & 0.27168e-02,0.44406e-02,0.51768e-02,0.56339e-02,0.59208e-02, & - & 0.60958e-02,0.61438e-02,0.59554e-02,0.42511e-02 /) - kao(:, 2, 9, 8) = (/ & - & 0.27853e-02,0.45486e-02,0.52870e-02,0.57491e-02,0.60397e-02, & - & 0.62076e-02,0.62421e-02,0.60358e-02,0.42982e-02 /) - kao(:, 3, 9, 8) = (/ & - & 0.28572e-02,0.46609e-02,0.53998e-02,0.58755e-02,0.61719e-02, & - & 0.63300e-02,0.63536e-02,0.61272e-02,0.43479e-02 /) - kao(:, 4, 9, 8) = (/ & - & 0.29351e-02,0.47766e-02,0.55244e-02,0.60103e-02,0.63121e-02, & - & 0.64656e-02,0.64718e-02,0.62231e-02,0.44012e-02 /) - kao(:, 5, 9, 8) = (/ & - & 0.30174e-02,0.49013e-02,0.56608e-02,0.61542e-02,0.64584e-02, & - & 0.66094e-02,0.65960e-02,0.63252e-02,0.44655e-02 /) - kao(:, 1,10, 8) = (/ & - & 0.24055e-02,0.39503e-02,0.45833e-02,0.49951e-02,0.52507e-02, & - & 0.53857e-02,0.53791e-02,0.51629e-02,0.55379e-02 /) - kao(:, 2,10, 8) = (/ & - & 0.24728e-02,0.40487e-02,0.46867e-02,0.51042e-02,0.53576e-02, & - & 0.54844e-02,0.54704e-02,0.52383e-02,0.55398e-02 /) - kao(:, 3,10, 8) = (/ & - & 0.25454e-02,0.41511e-02,0.48010e-02,0.52206e-02,0.54751e-02, & - & 0.55927e-02,0.55711e-02,0.53216e-02,0.55501e-02 /) - kao(:, 4,10, 8) = (/ & - & 0.26224e-02,0.42542e-02,0.49201e-02,0.53438e-02,0.55977e-02, & - & 0.57114e-02,0.56753e-02,0.54074e-02,0.55558e-02 /) - kao(:, 5,10, 8) = (/ & - & 0.27039e-02,0.43672e-02,0.50470e-02,0.54750e-02,0.57276e-02, & - & 0.58363e-02,0.57849e-02,0.54996e-02,0.55710e-02 /) - kao(:, 1,11, 8) = (/ & - & 0.21256e-02,0.35221e-02,0.40853e-02,0.44612e-02,0.46874e-02, & - & 0.47866e-02,0.47389e-02,0.44975e-02,0.66135e-02 /) - kao(:, 2,11, 8) = (/ & - & 0.21937e-02,0.36149e-02,0.41854e-02,0.45677e-02,0.47907e-02, & - & 0.48833e-02,0.48291e-02,0.45707e-02,0.65729e-02 /) - kao(:, 3,11, 8) = (/ & - & 0.22650e-02,0.37098e-02,0.42933e-02,0.46764e-02,0.49020e-02, & - & 0.49895e-02,0.49234e-02,0.46462e-02,0.65598e-02 /) - kao(:, 4,11, 8) = (/ & - & 0.23425e-02,0.38113e-02,0.44107e-02,0.47931e-02,0.50165e-02, & - & 0.51000e-02,0.50211e-02,0.47251e-02,0.65419e-02 /) - kao(:, 5,11, 8) = (/ & - & 0.24251e-02,0.39222e-02,0.45344e-02,0.49164e-02,0.51382e-02, & - & 0.52156e-02,0.51233e-02,0.48118e-02,0.65404e-02 /) - kao(:, 1,12, 8) = (/ & - & 0.19014e-02,0.31169e-02,0.36336e-02,0.39642e-02,0.41602e-02, & - & 0.42352e-02,0.41726e-02,0.39183e-02,0.68121e-02 /) - kao(:, 2,12, 8) = (/ & - & 0.19605e-02,0.32068e-02,0.37314e-02,0.40676e-02,0.42627e-02, & - & 0.43333e-02,0.42591e-02,0.39851e-02,0.67229e-02 /) - kao(:, 3,12, 8) = (/ & - & 0.20227e-02,0.33010e-02,0.38333e-02,0.41743e-02,0.43708e-02, & - & 0.44355e-02,0.43461e-02,0.40520e-02,0.66419e-02 /) - kao(:, 4,12, 8) = (/ & - & 0.20945e-02,0.34006e-02,0.39411e-02,0.42851e-02,0.44804e-02, & - & 0.45405e-02,0.44353e-02,0.41230e-02,0.65948e-02 /) - kao(:, 5,12, 8) = (/ & - & 0.21695e-02,0.35114e-02,0.40581e-02,0.44020e-02,0.45960e-02, & - & 0.46501e-02,0.45319e-02,0.42045e-02,0.65716e-02 /) - kao(:, 1,13, 8) = (/ & - & 0.17348e-02,0.27575e-02,0.32033e-02,0.34905e-02,0.36669e-02, & - & 0.37299e-02,0.36615e-02,0.34092e-02,0.62173e-02 /) - kao(:, 2,13, 8) = (/ & - & 0.17868e-02,0.28403e-02,0.32978e-02,0.35924e-02,0.37684e-02, & - & 0.38248e-02,0.37430e-02,0.34686e-02,0.61248e-02 /) - kao(:, 3,13, 8) = (/ & - & 0.18438e-02,0.29272e-02,0.33982e-02,0.36985e-02,0.38711e-02, & - & 0.39210e-02,0.38240e-02,0.35286e-02,0.60637e-02 /) - kao(:, 4,13, 8) = (/ & - & 0.19066e-02,0.30192e-02,0.35016e-02,0.38072e-02,0.39764e-02, & - & 0.40199e-02,0.39089e-02,0.35954e-02,0.60138e-02 /) - kao(:, 5,13, 8) = (/ & - & 0.19732e-02,0.31237e-02,0.36129e-02,0.39207e-02,0.40892e-02, & - & 0.41240e-02,0.40022e-02,0.36721e-02,0.59944e-02 /) - kao(:, 1, 1, 9) = (/ & - & 0.41219e-01,0.41795e-01,0.46848e-01,0.50877e-01,0.53437e-01, & - & 0.54488e-01,0.53560e-01,0.50235e-01,0.51545e-01 /) - kao(:, 2, 1, 9) = (/ & - & 0.42156e-01,0.42406e-01,0.47180e-01,0.51006e-01,0.53354e-01, & - & 0.54221e-01,0.53185e-01,0.49897e-01,0.51289e-01 /) - kao(:, 3, 1, 9) = (/ & - & 0.43082e-01,0.43034e-01,0.47543e-01,0.51133e-01,0.53289e-01, & - & 0.53978e-01,0.52866e-01,0.49591e-01,0.51083e-01 /) - kao(:, 4, 1, 9) = (/ & - & 0.43908e-01,0.43606e-01,0.47876e-01,0.51241e-01,0.53225e-01, & - & 0.53768e-01,0.52555e-01,0.49365e-01,0.51010e-01 /) - kao(:, 5, 1, 9) = (/ & - & 0.44717e-01,0.44169e-01,0.48160e-01,0.51395e-01,0.53206e-01, & - & 0.53607e-01,0.52301e-01,0.49268e-01,0.51108e-01 /) - kao(:, 1, 2, 9) = (/ & - & 0.38280e-01,0.40368e-01,0.46271e-01,0.50387e-01,0.53287e-01, & - & 0.54294e-01,0.53147e-01,0.49359e-01,0.49444e-01 /) - kao(:, 2, 2, 9) = (/ & - & 0.39278e-01,0.41016e-01,0.46659e-01,0.50565e-01,0.53249e-01, & - & 0.54064e-01,0.52823e-01,0.49016e-01,0.49210e-01 /) - kao(:, 3, 2, 9) = (/ & - & 0.40252e-01,0.41678e-01,0.47048e-01,0.50745e-01,0.53223e-01, & - & 0.53871e-01,0.52519e-01,0.48730e-01,0.49081e-01 /) - kao(:, 4, 2, 9) = (/ & - & 0.41132e-01,0.42274e-01,0.47387e-01,0.50925e-01,0.53214e-01, & - & 0.53693e-01,0.52217e-01,0.48559e-01,0.49102e-01 /) - kao(:, 5, 2, 9) = (/ & - & 0.41937e-01,0.42806e-01,0.47675e-01,0.51115e-01,0.53221e-01, & - & 0.53535e-01,0.52007e-01,0.48511e-01,0.49285e-01 /) - kao(:, 1, 3, 9) = (/ & - & 0.35016e-01,0.38740e-01,0.45035e-01,0.49481e-01,0.52517e-01, & - & 0.53496e-01,0.52191e-01,0.48044e-01,0.46584e-01 /) - kao(:, 2, 3, 9) = (/ & - & 0.36031e-01,0.39393e-01,0.45463e-01,0.49713e-01,0.52514e-01, & - & 0.53329e-01,0.51912e-01,0.47725e-01,0.46413e-01 /) - kao(:, 3, 3, 9) = (/ & - & 0.36991e-01,0.40024e-01,0.45863e-01,0.49943e-01,0.52531e-01, & - & 0.53167e-01,0.51622e-01,0.47472e-01,0.46354e-01 /) - kao(:, 4, 3, 9) = (/ & - & 0.37902e-01,0.40620e-01,0.46253e-01,0.50181e-01,0.52583e-01, & - & 0.53007e-01,0.51384e-01,0.47335e-01,0.46441e-01 /) - kao(:, 5, 3, 9) = (/ & - & 0.38707e-01,0.41126e-01,0.46598e-01,0.50384e-01,0.52633e-01, & - & 0.52879e-01,0.51240e-01,0.47311e-01,0.46661e-01 /) - kao(:, 1, 4, 9) = (/ & - & 0.31672e-01,0.36966e-01,0.43365e-01,0.48073e-01,0.51081e-01, & - & 0.52063e-01,0.50596e-01,0.46210e-01,0.43228e-01 /) - kao(:, 2, 4, 9) = (/ & - & 0.32685e-01,0.37616e-01,0.43827e-01,0.48349e-01,0.51147e-01, & - & 0.51967e-01,0.50386e-01,0.45960e-01,0.43137e-01 /) - kao(:, 3, 4, 9) = (/ & - & 0.33628e-01,0.38241e-01,0.44270e-01,0.48639e-01,0.51209e-01, & - & 0.51848e-01,0.50172e-01,0.45771e-01,0.43147e-01 /) - kao(:, 4, 4, 9) = (/ & - & 0.34503e-01,0.38804e-01,0.44698e-01,0.48896e-01,0.51278e-01, & - & 0.51724e-01,0.50016e-01,0.45686e-01,0.43281e-01 /) - kao(:, 5, 4, 9) = (/ & - & 0.35339e-01,0.39319e-01,0.45124e-01,0.49160e-01,0.51368e-01, & - & 0.51672e-01,0.49945e-01,0.45702e-01,0.43520e-01 /) - kao(:, 1, 5, 9) = (/ & - & 0.28453e-01,0.34915e-01,0.41400e-01,0.46104e-01,0.49014e-01, & - & 0.49952e-01,0.48370e-01,0.43932e-01,0.39569e-01 /) - kao(:, 2, 5, 9) = (/ & - & 0.29434e-01,0.35588e-01,0.41893e-01,0.46437e-01,0.49144e-01, & - & 0.49919e-01,0.48254e-01,0.43775e-01,0.39548e-01 /) - kao(:, 3, 5, 9) = (/ & - & 0.30340e-01,0.36236e-01,0.42373e-01,0.46769e-01,0.49255e-01, & - & 0.49873e-01,0.48133e-01,0.43667e-01,0.39610e-01 /) - kao(:, 4, 5, 9) = (/ & - & 0.31178e-01,0.36810e-01,0.42835e-01,0.47061e-01,0.49370e-01, & - & 0.49827e-01,0.48071e-01,0.43623e-01,0.39779e-01 /) - kao(:, 5, 5, 9) = (/ & - & 0.31999e-01,0.37346e-01,0.43284e-01,0.47361e-01,0.49516e-01, & - & 0.49857e-01,0.48088e-01,0.43666e-01,0.40037e-01 /) - kao(:, 1, 6, 9) = (/ & - & 0.25421e-01,0.32626e-01,0.39116e-01,0.43609e-01,0.46371e-01, & - & 0.47186e-01,0.45634e-01,0.41276e-01,0.35722e-01 /) - kao(:, 2, 6, 9) = (/ & - & 0.26347e-01,0.33315e-01,0.39629e-01,0.44004e-01,0.46570e-01, & - & 0.47251e-01,0.45602e-01,0.41217e-01,0.35770e-01 /) - kao(:, 3, 6, 9) = (/ & - & 0.27211e-01,0.33965e-01,0.40142e-01,0.44371e-01,0.46737e-01, & - & 0.47271e-01,0.45579e-01,0.41184e-01,0.35883e-01 /) - kao(:, 4, 6, 9) = (/ & - & 0.28013e-01,0.34546e-01,0.40641e-01,0.44704e-01,0.46903e-01, & - & 0.47305e-01,0.45608e-01,0.41201e-01,0.36071e-01 /) - kao(:, 5, 6, 9) = (/ & - & 0.28777e-01,0.35080e-01,0.41083e-01,0.45018e-01,0.47083e-01, & - & 0.47404e-01,0.45685e-01,0.41273e-01,0.36328e-01 /) - kao(:, 1, 7, 9) = (/ & - & 0.22628e-01,0.30290e-01,0.36520e-01,0.40736e-01,0.43195e-01, & - & 0.43894e-01,0.42478e-01,0.38357e-01,0.31858e-01 /) - kao(:, 2, 7, 9) = (/ & - & 0.23496e-01,0.30981e-01,0.37071e-01,0.41159e-01,0.43459e-01, & - & 0.44039e-01,0.42534e-01,0.38366e-01,0.31954e-01 /) - kao(:, 3, 7, 9) = (/ & - & 0.24311e-01,0.31616e-01,0.37614e-01,0.41552e-01,0.43690e-01, & - & 0.44135e-01,0.42598e-01,0.38398e-01,0.32112e-01 /) - kao(:, 4, 7, 9) = (/ & - & 0.25081e-01,0.32194e-01,0.38124e-01,0.41906e-01,0.43917e-01, & - & 0.44249e-01,0.42700e-01,0.38476e-01,0.32312e-01 /) - kao(:, 5, 7, 9) = (/ & - & 0.25796e-01,0.32737e-01,0.38583e-01,0.42251e-01,0.44147e-01, & - & 0.44425e-01,0.42840e-01,0.38587e-01,0.32545e-01 /) - kao(:, 1, 8, 9) = (/ & - & 0.20122e-01,0.27995e-01,0.33719e-01,0.37485e-01,0.39621e-01, & - & 0.40226e-01,0.38971e-01,0.35214e-01,0.28110e-01 /) - kao(:, 2, 8, 9) = (/ & - & 0.20930e-01,0.28671e-01,0.34304e-01,0.37966e-01,0.39957e-01, & - & 0.40447e-01,0.39124e-01,0.35304e-01,0.28246e-01 /) - kao(:, 3, 8, 9) = (/ & - & 0.21692e-01,0.29291e-01,0.34870e-01,0.38392e-01,0.40254e-01, & - & 0.40624e-01,0.39266e-01,0.35403e-01,0.28424e-01 /) - kao(:, 4, 8, 9) = (/ & - & 0.22396e-01,0.29880e-01,0.35388e-01,0.38779e-01,0.40528e-01, & - & 0.40815e-01,0.39436e-01,0.35538e-01,0.28597e-01 /) - kao(:, 5, 8, 9) = (/ & - & 0.23064e-01,0.30402e-01,0.35848e-01,0.39151e-01,0.40824e-01, & - & 0.41057e-01,0.39639e-01,0.35669e-01,0.28823e-01 /) - kao(:, 1, 9, 9) = (/ & - & 0.17909e-01,0.25709e-01,0.30840e-01,0.34036e-01,0.35851e-01, & - & 0.36360e-01,0.35282e-01,0.31947e-01,0.24003e-01 /) - kao(:, 2, 9, 9) = (/ & - & 0.18652e-01,0.26369e-01,0.31431e-01,0.34542e-01,0.36244e-01, & - & 0.36648e-01,0.35513e-01,0.32109e-01,0.24164e-01 /) - kao(:, 3, 9, 9) = (/ & - & 0.19344e-01,0.26986e-01,0.31997e-01,0.35005e-01,0.36599e-01, & - & 0.36904e-01,0.35718e-01,0.32277e-01,0.24318e-01 /) - kao(:, 4, 9, 9) = (/ & - & 0.19991e-01,0.27565e-01,0.32506e-01,0.35425e-01,0.36934e-01, & - & 0.37163e-01,0.35949e-01,0.32440e-01,0.24470e-01 /) - kao(:, 5, 9, 9) = (/ & - & 0.20615e-01,0.28069e-01,0.32961e-01,0.35817e-01,0.37281e-01, & - & 0.37462e-01,0.36191e-01,0.32591e-01,0.24688e-01 /) - kao(:, 1,10, 9) = (/ & - & 0.16038e-01,0.23520e-01,0.27944e-01,0.30612e-01,0.32108e-01, & - & 0.32531e-01,0.31594e-01,0.28710e-01,0.19040e-01 /) - kao(:, 2,10, 9) = (/ & - & 0.16702e-01,0.24155e-01,0.28537e-01,0.31140e-01,0.32544e-01, & - & 0.32858e-01,0.31863e-01,0.28938e-01,0.19154e-01 /) - kao(:, 3,10, 9) = (/ & - & 0.17329e-01,0.24747e-01,0.29094e-01,0.31618e-01,0.32949e-01, & - & 0.33160e-01,0.32119e-01,0.29151e-01,0.19214e-01 /) - kao(:, 4,10, 9) = (/ & - & 0.17922e-01,0.25302e-01,0.29595e-01,0.32058e-01,0.33330e-01, & - & 0.33472e-01,0.32385e-01,0.29320e-01,0.19269e-01 /) - kao(:, 5,10, 9) = (/ & - & 0.18489e-01,0.25799e-01,0.30045e-01,0.32466e-01,0.33700e-01, & - & 0.33812e-01,0.32629e-01,0.29481e-01,0.19405e-01 /) - kao(:, 1,11, 9) = (/ & - & 0.14687e-01,0.21702e-01,0.25384e-01,0.27570e-01,0.28760e-01, & - & 0.29017e-01,0.28178e-01,0.25716e-01,0.20195e-01 /) - kao(:, 2,11, 9) = (/ & - & 0.15274e-01,0.22296e-01,0.25944e-01,0.28087e-01,0.29202e-01, & - & 0.29352e-01,0.28471e-01,0.25960e-01,0.20265e-01 /) - kao(:, 3,11, 9) = (/ & - & 0.15835e-01,0.22836e-01,0.26465e-01,0.28550e-01,0.29611e-01, & - & 0.29694e-01,0.28754e-01,0.26152e-01,0.20296e-01 /) - kao(:, 4,11, 9) = (/ & - & 0.16357e-01,0.23338e-01,0.26927e-01,0.28982e-01,0.29998e-01, & - & 0.30045e-01,0.29008e-01,0.26312e-01,0.20131e-01 /) - kao(:, 5,11, 9) = (/ & - & 0.16879e-01,0.23791e-01,0.27359e-01,0.29394e-01,0.30387e-01, & - & 0.30372e-01,0.29268e-01,0.26507e-01,0.20180e-01 /) - kao(:, 1,12, 9) = (/ & - & 0.13435e-01,0.19917e-01,0.22947e-01,0.24741e-01,0.25656e-01, & - & 0.25762e-01,0.25010e-01,0.22879e-01,0.21935e-01 /) - kao(:, 2,12, 9) = (/ & - & 0.13973e-01,0.20460e-01,0.23475e-01,0.25221e-01,0.26084e-01, & - & 0.26126e-01,0.25297e-01,0.23091e-01,0.22096e-01 /) - kao(:, 3,12, 9) = (/ & - & 0.14481e-01,0.20956e-01,0.23951e-01,0.25665e-01,0.26486e-01, & - & 0.26478e-01,0.25558e-01,0.23263e-01,0.22257e-01 /) - kao(:, 4,12, 9) = (/ & - & 0.14966e-01,0.21408e-01,0.24388e-01,0.26079e-01,0.26872e-01, & - & 0.26802e-01,0.25814e-01,0.23444e-01,0.22244e-01 /) - kao(:, 5,12, 9) = (/ & - & 0.15448e-01,0.21834e-01,0.24813e-01,0.26492e-01,0.27230e-01, & - & 0.27128e-01,0.26103e-01,0.23676e-01,0.22318e-01 /) - kao(:, 1,13, 9) = (/ & - & 0.12253e-01,0.18169e-01,0.20712e-01,0.22143e-01,0.22829e-01, & - & 0.22840e-01,0.22092e-01,0.20210e-01,0.22350e-01 /) - kao(:, 2,13, 9) = (/ & - & 0.12752e-01,0.18675e-01,0.21188e-01,0.22590e-01,0.23242e-01, & - & 0.23184e-01,0.22356e-01,0.20395e-01,0.22569e-01 /) - kao(:, 3,13, 9) = (/ & - & 0.13220e-01,0.19134e-01,0.21627e-01,0.23007e-01,0.23621e-01, & - & 0.23502e-01,0.22612e-01,0.20571e-01,0.22750e-01 /) - kao(:, 4,13, 9) = (/ & - & 0.13675e-01,0.19566e-01,0.22044e-01,0.23405e-01,0.23969e-01, & - & 0.23813e-01,0.22875e-01,0.20780e-01,0.22726e-01 /) - kao(:, 5,13, 9) = (/ & - & 0.14122e-01,0.19976e-01,0.22454e-01,0.23786e-01,0.24318e-01, & - & 0.24140e-01,0.23183e-01,0.21041e-01,0.22784e-01 /) - kao(:, 1, 1,10) = (/ & - & 0.14776e+00,0.13250e+00,0.11877e+00,0.11907e+00,0.11538e+00, & - & 0.11234e+00,0.10926e+00,0.11039e+00,0.12102e+00 /) - kao(:, 2, 1,10) = (/ & - & 0.14758e+00,0.13180e+00,0.11760e+00,0.11720e+00,0.11379e+00, & - & 0.11206e+00,0.10856e+00,0.11029e+00,0.12093e+00 /) - kao(:, 3, 1,10) = (/ & - & 0.14691e+00,0.13078e+00,0.11629e+00,0.11563e+00,0.11248e+00, & - & 0.11149e+00,0.10785e+00,0.11040e+00,0.12104e+00 /) - kao(:, 4, 1,10) = (/ & - & 0.14609e+00,0.12985e+00,0.11503e+00,0.11426e+00,0.11150e+00, & - & 0.11061e+00,0.10739e+00,0.11031e+00,0.12092e+00 /) - kao(:, 5, 1,10) = (/ & - & 0.14529e+00,0.12911e+00,0.11448e+00,0.11310e+00,0.11058e+00, & - & 0.10959e+00,0.10721e+00,0.11007e+00,0.12050e+00 /) - kao(:, 1, 2,10) = (/ & - & 0.14616e+00,0.13131e+00,0.12350e+00,0.12510e+00,0.11934e+00, & - & 0.11762e+00,0.11417e+00,0.11460e+00,0.12626e+00 /) - kao(:, 2, 2,10) = (/ & - & 0.14607e+00,0.13063e+00,0.12202e+00,0.12312e+00,0.11789e+00, & - & 0.11742e+00,0.11363e+00,0.11470e+00,0.12636e+00 /) - kao(:, 3, 2,10) = (/ & - & 0.14577e+00,0.12991e+00,0.12074e+00,0.12132e+00,0.11671e+00, & - & 0.11676e+00,0.11334e+00,0.11448e+00,0.12602e+00 /) - kao(:, 4, 2,10) = (/ & - & 0.14549e+00,0.12948e+00,0.11982e+00,0.11971e+00,0.11561e+00, & - & 0.11583e+00,0.11311e+00,0.11380e+00,0.12515e+00 /) - kao(:, 5, 2,10) = (/ & - & 0.14518e+00,0.12921e+00,0.11930e+00,0.11856e+00,0.11453e+00, & - & 0.11499e+00,0.11278e+00,0.11303e+00,0.12425e+00 /) - kao(:, 1, 3,10) = (/ & - & 0.14318e+00,0.12893e+00,0.12918e+00,0.12942e+00,0.12491e+00, & - & 0.12238e+00,0.11842e+00,0.11706e+00,0.12892e+00 /) - kao(:, 2, 3,10) = (/ & - & 0.14362e+00,0.12877e+00,0.12794e+00,0.12738e+00,0.12367e+00, & - & 0.12214e+00,0.11818e+00,0.11730e+00,0.12892e+00 /) - kao(:, 3, 3,10) = (/ & - & 0.14392e+00,0.12859e+00,0.12673e+00,0.12555e+00,0.12238e+00, & - & 0.12154e+00,0.11804e+00,0.11693e+00,0.12825e+00 /) - kao(:, 4, 3,10) = (/ & - & 0.14418e+00,0.12858e+00,0.12588e+00,0.12406e+00,0.12111e+00, & - & 0.12100e+00,0.11768e+00,0.11605e+00,0.12723e+00 /) - kao(:, 5, 3,10) = (/ & - & 0.14433e+00,0.12868e+00,0.12520e+00,0.12307e+00,0.11981e+00, & - & 0.12050e+00,0.11702e+00,0.11519e+00,0.12642e+00 /) - kao(:, 1, 4,10) = (/ & - & 0.13900e+00,0.12627e+00,0.13262e+00,0.13246e+00,0.13018e+00, & - & 0.12656e+00,0.12207e+00,0.11856e+00,0.12927e+00 /) - kao(:, 2, 4,10) = (/ & - & 0.13981e+00,0.12631e+00,0.13168e+00,0.13063e+00,0.12928e+00, & - & 0.12634e+00,0.12180e+00,0.11842e+00,0.12888e+00 /) - kao(:, 3, 4,10) = (/ & - & 0.14055e+00,0.12635e+00,0.13064e+00,0.12886e+00,0.12826e+00, & - & 0.12591e+00,0.12147e+00,0.11781e+00,0.12798e+00 /) - kao(:, 4, 4,10) = (/ & - & 0.14115e+00,0.12659e+00,0.12979e+00,0.12765e+00,0.12712e+00, & - & 0.12539e+00,0.12094e+00,0.11686e+00,0.12709e+00 /) - kao(:, 5, 4,10) = (/ & - & 0.14205e+00,0.12716e+00,0.12897e+00,0.12678e+00,0.12607e+00, & - & 0.12463e+00,0.12022e+00,0.11611e+00,0.12648e+00 /) - kao(:, 1, 5,10) = (/ & - & 0.13267e+00,0.12451e+00,0.13264e+00,0.13467e+00,0.13410e+00, & - & 0.12976e+00,0.12532e+00,0.11842e+00,0.12663e+00 /) - kao(:, 2, 5,10) = (/ & - & 0.13391e+00,0.12448e+00,0.13222e+00,0.13349e+00,0.13365e+00, & - & 0.12967e+00,0.12478e+00,0.11793e+00,0.12610e+00 /) - kao(:, 3, 5,10) = (/ & - & 0.13513e+00,0.12441e+00,0.13150e+00,0.13226e+00,0.13285e+00, & - & 0.12935e+00,0.12414e+00,0.11714e+00,0.12535e+00 /) - kao(:, 4, 5,10) = (/ & - & 0.13635e+00,0.12468e+00,0.13071e+00,0.13132e+00,0.13192e+00, & - & 0.12883e+00,0.12325e+00,0.11628e+00,0.12465e+00 /) - kao(:, 5, 5,10) = (/ & - & 0.13765e+00,0.12523e+00,0.12989e+00,0.13067e+00,0.13104e+00, & - & 0.12778e+00,0.12230e+00,0.11574e+00,0.12447e+00 /) - kao(:, 1, 6,10) = (/ & - & 0.12480e+00,0.12304e+00,0.13086e+00,0.13535e+00,0.13580e+00, & - & 0.13244e+00,0.12684e+00,0.11687e+00,0.12150e+00 /) - kao(:, 2, 6,10) = (/ & - & 0.12631e+00,0.12320e+00,0.13089e+00,0.13488e+00,0.13591e+00, & - & 0.13240e+00,0.12644e+00,0.11610e+00,0.12096e+00 /) - kao(:, 3, 6,10) = (/ & - & 0.12783e+00,0.12334e+00,0.13031e+00,0.13415e+00,0.13555e+00, & - & 0.13212e+00,0.12571e+00,0.11517e+00,0.12033e+00 /) - kao(:, 4, 6,10) = (/ & - & 0.12946e+00,0.12375e+00,0.12962e+00,0.13360e+00,0.13480e+00, & - & 0.13147e+00,0.12458e+00,0.11440e+00,0.12012e+00 /) - kao(:, 5, 6,10) = (/ & - & 0.13098e+00,0.12424e+00,0.12926e+00,0.13328e+00,0.13390e+00, & - & 0.13035e+00,0.12352e+00,0.11410e+00,0.12034e+00 /) - kao(:, 1, 7,10) = (/ & - & 0.11587e+00,0.11977e+00,0.12827e+00,0.13413e+00,0.13637e+00, & - & 0.13338e+00,0.12607e+00,0.11369e+00,0.11422e+00 /) - kao(:, 2, 7,10) = (/ & - & 0.11755e+00,0.12008e+00,0.12851e+00,0.13433e+00,0.13653e+00, & - & 0.13350e+00,0.12579e+00,0.11303e+00,0.11384e+00 /) - kao(:, 3, 7,10) = (/ & - & 0.11925e+00,0.12045e+00,0.12827e+00,0.13401e+00,0.13627e+00, & - & 0.13335e+00,0.12531e+00,0.11227e+00,0.11342e+00 /) - kao(:, 4, 7,10) = (/ & - & 0.12111e+00,0.12107e+00,0.12798e+00,0.13385e+00,0.13564e+00, & - & 0.13268e+00,0.12424e+00,0.11167e+00,0.11355e+00 /) - kao(:, 5, 7,10) = (/ & - & 0.12285e+00,0.12168e+00,0.12798e+00,0.13376e+00,0.13482e+00, & - & 0.13151e+00,0.12334e+00,0.11149e+00,0.11415e+00 /) - kao(:, 1, 8,10) = (/ & - & 0.10591e+00,0.11393e+00,0.12456e+00,0.13177e+00,0.13532e+00, & - & 0.13189e+00,0.12388e+00,0.10965e+00,0.10563e+00 /) - kao(:, 2, 8,10) = (/ & - & 0.10784e+00,0.11446e+00,0.12497e+00,0.13191e+00,0.13527e+00, & - & 0.13206e+00,0.12372e+00,0.10901e+00,0.10541e+00 /) - kao(:, 3, 8,10) = (/ & - & 0.10982e+00,0.11499e+00,0.12496e+00,0.13190e+00,0.13491e+00, & - & 0.13198e+00,0.12329e+00,0.10836e+00,0.10528e+00 /) - kao(:, 4, 8,10) = (/ & - & 0.11183e+00,0.11569e+00,0.12499e+00,0.13184e+00,0.13435e+00, & - & 0.13149e+00,0.12252e+00,0.10787e+00,0.10590e+00 /) - kao(:, 5, 8,10) = (/ & - & 0.11351e+00,0.11638e+00,0.12535e+00,0.13176e+00,0.13360e+00, & - & 0.13054e+00,0.12191e+00,0.10801e+00,0.10661e+00 /) - kao(:, 1, 9,10) = (/ & - & 0.95227e-01,0.10714e+00,0.11944e+00,0.12826e+00,0.13131e+00, & - & 0.12801e+00,0.11973e+00,0.10506e+00,0.96127e-01 /) - kao(:, 2, 9,10) = (/ & - & 0.97380e-01,0.10792e+00,0.12010e+00,0.12848e+00,0.13131e+00, & - & 0.12823e+00,0.11988e+00,0.10446e+00,0.96013e-01 /) - kao(:, 3, 9,10) = (/ & - & 0.99589e-01,0.10861e+00,0.12043e+00,0.12826e+00,0.13099e+00, & - & 0.12821e+00,0.11964e+00,0.10385e+00,0.96337e-01 /) - kao(:, 4, 9,10) = (/ & - & 0.10172e+00,0.10937e+00,0.12073e+00,0.12822e+00,0.13048e+00, & - & 0.12786e+00,0.11915e+00,0.10369e+00,0.97324e-01 /) - kao(:, 5, 9,10) = (/ & - & 0.10340e+00,0.11015e+00,0.12136e+00,0.12832e+00,0.12998e+00, & - & 0.12724e+00,0.11892e+00,0.10410e+00,0.97908e-01 /) - kao(:, 1,10,10) = (/ & - & 0.84549e-01,0.10005e+00,0.11370e+00,0.12280e+00,0.12503e+00, & - & 0.12157e+00,0.11395e+00,0.99558e-01,0.78463e-01 /) - kao(:, 2,10,10) = (/ & - & 0.86895e-01,0.10114e+00,0.11438e+00,0.12270e+00,0.12494e+00, & - & 0.12211e+00,0.11447e+00,0.98932e-01,0.78293e-01 /) - kao(:, 3,10,10) = (/ & - & 0.89280e-01,0.10200e+00,0.11501e+00,0.12255e+00,0.12466e+00, & - & 0.12232e+00,0.11449e+00,0.98490e-01,0.78963e-01 /) - kao(:, 4,10,10) = (/ & - & 0.91373e-01,0.10297e+00,0.11555e+00,0.12264e+00,0.12433e+00, & - & 0.12211e+00,0.11429e+00,0.98808e-01,0.79894e-01 /) - kao(:, 5,10,10) = (/ & - & 0.93116e-01,0.10381e+00,0.11616e+00,0.12299e+00,0.12420e+00, & - & 0.12176e+00,0.11463e+00,0.99400e-01,0.79228e-01 /) - kao(:, 1,11,10) = (/ & - & 0.75544e-01,0.93054e-01,0.10724e+00,0.11489e+00,0.11666e+00, & - & 0.11411e+00,0.10739e+00,0.92708e-01,0.54552e-01 /) - kao(:, 2,11,10) = (/ & - & 0.77908e-01,0.94287e-01,0.10808e+00,0.11471e+00,0.11661e+00, & - & 0.11478e+00,0.10772e+00,0.92504e-01,0.54848e-01 /) - kao(:, 3,11,10) = (/ & - & 0.80077e-01,0.95473e-01,0.10868e+00,0.11491e+00,0.11655e+00, & - & 0.11482e+00,0.10782e+00,0.93001e-01,0.55769e-01 /) - kao(:, 4,11,10) = (/ & - & 0.81960e-01,0.96566e-01,0.10943e+00,0.11546e+00,0.11672e+00, & - & 0.11473e+00,0.10831e+00,0.93879e-01,0.57926e-01 /) - kao(:, 5,11,10) = (/ & - & 0.83450e-01,0.97453e-01,0.11008e+00,0.11599e+00,0.11716e+00, & - & 0.11515e+00,0.10911e+00,0.94288e-01,0.57746e-01 /) - kao(:, 1,12,10) = (/ & - & 0.67513e-01,0.86189e-01,0.99369e-01,0.10520e+00,0.10724e+00, & - & 0.10586e+00,0.99242e-01,0.85556e-01,0.53156e-01 /) - kao(:, 2,12,10) = (/ & - & 0.69613e-01,0.87484e-01,0.10007e+00,0.10560e+00,0.10749e+00, & - & 0.10614e+00,0.99761e-01,0.86270e-01,0.51781e-01 /) - kao(:, 3,12,10) = (/ & - & 0.71469e-01,0.88722e-01,0.10094e+00,0.10629e+00,0.10784e+00, & - & 0.10630e+00,0.10046e+00,0.87349e-01,0.51450e-01 /) - kao(:, 4,12,10) = (/ & - & 0.73024e-01,0.89773e-01,0.10183e+00,0.10713e+00,0.10860e+00, & - & 0.10686e+00,0.10138e+00,0.88130e-01,0.52601e-01 /) - kao(:, 5,12,10) = (/ & - & 0.74303e-01,0.90696e-01,0.10259e+00,0.10797e+00,0.10971e+00, & - & 0.10792e+00,0.10184e+00,0.88445e-01,0.51152e-01 /) - kao(:, 1,13,10) = (/ & - & 0.60529e-01,0.79607e-01,0.90318e-01,0.95428e-01,0.97408e-01, & - & 0.96227e-01,0.90699e-01,0.78779e-01,0.52832e-01 /) - kao(:, 2,13,10) = (/ & - & 0.62276e-01,0.80870e-01,0.91247e-01,0.96259e-01,0.97934e-01, & - & 0.96714e-01,0.91680e-01,0.79941e-01,0.52303e-01 /) - kao(:, 3,13,10) = (/ & - & 0.63790e-01,0.81933e-01,0.92274e-01,0.97270e-01,0.98880e-01, & - & 0.97553e-01,0.92636e-01,0.80918e-01,0.51576e-01 /) - kao(:, 4,13,10) = (/ & - & 0.65028e-01,0.82921e-01,0.93287e-01,0.98387e-01,0.10023e+00, & - & 0.98785e-01,0.93367e-01,0.81491e-01,0.53387e-01 /) - kao(:, 5,13,10) = (/ & - & 0.66150e-01,0.83739e-01,0.94354e-01,0.99696e-01,0.10169e+00, & - & 0.99901e-01,0.93863e-01,0.81907e-01,0.52837e-01 /) - kao(:, 1, 1,11) = (/ & - & 0.20407e+00,0.18071e+00,0.16029e+00,0.15138e+00,0.14997e+00, & - & 0.13984e+00,0.13275e+00,0.14129e+00,0.15399e+00 /) - kao(:, 2, 1,11) = (/ & - & 0.20135e+00,0.17935e+00,0.15932e+00,0.15017e+00,0.14962e+00, & - & 0.13862e+00,0.13266e+00,0.14117e+00,0.15393e+00 /) - kao(:, 3, 1,11) = (/ & - & 0.19936e+00,0.17801e+00,0.15787e+00,0.14825e+00,0.14805e+00, & - & 0.13791e+00,0.13257e+00,0.14065e+00,0.15357e+00 /) - kao(:, 4, 1,11) = (/ & - & 0.19744e+00,0.17636e+00,0.15587e+00,0.14600e+00,0.14568e+00, & - & 0.13759e+00,0.13216e+00,0.14003e+00,0.15311e+00 /) - kao(:, 5, 1,11) = (/ & - & 0.19560e+00,0.17445e+00,0.15370e+00,0.14366e+00,0.14353e+00, & - & 0.13719e+00,0.13142e+00,0.13943e+00,0.15271e+00 /) - kao(:, 1, 2,11) = (/ & - & 0.21063e+00,0.18653e+00,0.16583e+00,0.16261e+00,0.15745e+00, & - & 0.14703e+00,0.14143e+00,0.14831e+00,0.16307e+00 /) - kao(:, 2, 2,11) = (/ & - & 0.20807e+00,0.18515e+00,0.16450e+00,0.16174e+00,0.15680e+00, & - & 0.14604e+00,0.14115e+00,0.14798e+00,0.16304e+00 /) - kao(:, 3, 2,11) = (/ & - & 0.20581e+00,0.18338e+00,0.16244e+00,0.15978e+00,0.15520e+00, & - & 0.14566e+00,0.14067e+00,0.14768e+00,0.16312e+00 /) - kao(:, 4, 2,11) = (/ & - & 0.20347e+00,0.18119e+00,0.16010e+00,0.15745e+00,0.15333e+00, & - & 0.14529e+00,0.14007e+00,0.14753e+00,0.16343e+00 /) - kao(:, 5, 2,11) = (/ & - & 0.20115e+00,0.17885e+00,0.15773e+00,0.15483e+00,0.15150e+00, & - & 0.14453e+00,0.13948e+00,0.14731e+00,0.16359e+00 /) - kao(:, 1, 3,11) = (/ & - & 0.21616e+00,0.19157e+00,0.17353e+00,0.17142e+00,0.16301e+00, & - & 0.15566e+00,0.14998e+00,0.15514e+00,0.17145e+00 /) - kao(:, 2, 3,11) = (/ & - & 0.21408e+00,0.19026e+00,0.17182e+00,0.17122e+00,0.16252e+00, & - & 0.15476e+00,0.14939e+00,0.15448e+00,0.17139e+00 /) - kao(:, 3, 3,11) = (/ & - & 0.21163e+00,0.18824e+00,0.16950e+00,0.16996e+00,0.16151e+00, & - & 0.15419e+00,0.14882e+00,0.15406e+00,0.17163e+00 /) - kao(:, 4, 3,11) = (/ & - & 0.20914e+00,0.18593e+00,0.16692e+00,0.16757e+00,0.16029e+00, & - & 0.15344e+00,0.14837e+00,0.15392e+00,0.17198e+00 /) - kao(:, 5, 3,11) = (/ & - & 0.20701e+00,0.18381e+00,0.16453e+00,0.16472e+00,0.15897e+00, & - & 0.15236e+00,0.14801e+00,0.15351e+00,0.17179e+00 /) - kao(:, 1, 4,11) = (/ & - & 0.21862e+00,0.19379e+00,0.18221e+00,0.17807e+00,0.16954e+00, & - & 0.16407e+00,0.15829e+00,0.16056e+00,0.17755e+00 /) - kao(:, 2, 4,11) = (/ & - & 0.21705e+00,0.19285e+00,0.18086e+00,0.17812e+00,0.16909e+00, & - & 0.16313e+00,0.15767e+00,0.16003e+00,0.17784e+00 /) - kao(:, 3, 4,11) = (/ & - & 0.21534e+00,0.19129e+00,0.17879e+00,0.17719e+00,0.16821e+00, & - & 0.16252e+00,0.15706e+00,0.15944e+00,0.17796e+00 /) - kao(:, 4, 4,11) = (/ & - & 0.21357e+00,0.18961e+00,0.17644e+00,0.17503e+00,0.16720e+00, & - & 0.16179e+00,0.15644e+00,0.15869e+00,0.17755e+00 /) - kao(:, 5, 4,11) = (/ & - & 0.21192e+00,0.18796e+00,0.17436e+00,0.17237e+00,0.16599e+00, & - & 0.16096e+00,0.15564e+00,0.15746e+00,0.17656e+00 /) - kao(:, 1, 5,11) = (/ & - & 0.21793e+00,0.19325e+00,0.18965e+00,0.18402e+00,0.17692e+00, & - & 0.17250e+00,0.16494e+00,0.16474e+00,0.18189e+00 /) - kao(:, 2, 5,11) = (/ & - & 0.21706e+00,0.19287e+00,0.18835e+00,0.18355e+00,0.17627e+00, & - & 0.17161e+00,0.16474e+00,0.16398e+00,0.18195e+00 /) - kao(:, 3, 5,11) = (/ & - & 0.21612e+00,0.19181e+00,0.18687e+00,0.18213e+00,0.17553e+00, & - & 0.17088e+00,0.16425e+00,0.16313e+00,0.18152e+00 /) - kao(:, 4, 5,11) = (/ & - & 0.21478e+00,0.19045e+00,0.18500e+00,0.18018e+00,0.17440e+00, & - & 0.16996e+00,0.16342e+00,0.16188e+00,0.18054e+00 /) - kao(:, 5, 5,11) = (/ & - & 0.21350e+00,0.18909e+00,0.18333e+00,0.17782e+00,0.17309e+00, & - & 0.16916e+00,0.16213e+00,0.16034e+00,0.17917e+00 /) - kao(:, 1, 6,11) = (/ & - & 0.21342e+00,0.19093e+00,0.19390e+00,0.18953e+00,0.18412e+00, & - & 0.17932e+00,0.17133e+00,0.16726e+00,0.18355e+00 /) - kao(:, 2, 6,11) = (/ & - & 0.21345e+00,0.19062e+00,0.19295e+00,0.18836e+00,0.18309e+00, & - & 0.17848e+00,0.17069e+00,0.16650e+00,0.18323e+00 /) - kao(:, 3, 6,11) = (/ & - & 0.21341e+00,0.18999e+00,0.19180e+00,0.18672e+00,0.18231e+00, & - & 0.17805e+00,0.16996e+00,0.16523e+00,0.18230e+00 /) - kao(:, 4, 6,11) = (/ & - & 0.21278e+00,0.18888e+00,0.19035e+00,0.18488e+00,0.18150e+00, & - & 0.17740e+00,0.16888e+00,0.16361e+00,0.18086e+00 /) - kao(:, 5, 6,11) = (/ & - & 0.21199e+00,0.18788e+00,0.18853e+00,0.18312e+00,0.18053e+00, & - & 0.17647e+00,0.16753e+00,0.16185e+00,0.17942e+00 /) - kao(:, 1, 7,11) = (/ & - & 0.20554e+00,0.18880e+00,0.19483e+00,0.19351e+00,0.18975e+00, & - & 0.18476e+00,0.17703e+00,0.16712e+00,0.18079e+00 /) - kao(:, 2, 7,11) = (/ & - & 0.20652e+00,0.18855e+00,0.19393e+00,0.19243e+00,0.18938e+00, & - & 0.18427e+00,0.17598e+00,0.16627e+00,0.18028e+00 /) - kao(:, 3, 7,11) = (/ & - & 0.20722e+00,0.18798e+00,0.19279e+00,0.19112e+00,0.18883e+00, & - & 0.18376e+00,0.17458e+00,0.16493e+00,0.17920e+00 /) - kao(:, 4, 7,11) = (/ & - & 0.20704e+00,0.18700e+00,0.19152e+00,0.18972e+00,0.18818e+00, & - & 0.18325e+00,0.17326e+00,0.16331e+00,0.17789e+00 /) - kao(:, 5, 7,11) = (/ & - & 0.20670e+00,0.18595e+00,0.18990e+00,0.18822e+00,0.18756e+00, & - & 0.18244e+00,0.17179e+00,0.16146e+00,0.17654e+00 /) - kao(:, 1, 8,11) = (/ & - & 0.19482e+00,0.18644e+00,0.19372e+00,0.19534e+00,0.19341e+00, & - & 0.18978e+00,0.17991e+00,0.16480e+00,0.17385e+00 /) - kao(:, 2, 8,11) = (/ & - & 0.19645e+00,0.18662e+00,0.19286e+00,0.19499e+00,0.19364e+00, & - & 0.18939e+00,0.17872e+00,0.16377e+00,0.17323e+00 /) - kao(:, 3, 8,11) = (/ & - & 0.19752e+00,0.18632e+00,0.19176e+00,0.19416e+00,0.19361e+00, & - & 0.18898e+00,0.17730e+00,0.16248e+00,0.17231e+00 /) - kao(:, 4, 8,11) = (/ & - & 0.19786e+00,0.18535e+00,0.19058e+00,0.19340e+00,0.19352e+00, & - & 0.18844e+00,0.17582e+00,0.16092e+00,0.17110e+00 /) - kao(:, 5, 8,11) = (/ & - & 0.19827e+00,0.18472e+00,0.18922e+00,0.19254e+00,0.19302e+00, & - & 0.18739e+00,0.17431e+00,0.15936e+00,0.17034e+00 /) - kao(:, 1, 9,11) = (/ & - & 0.18199e+00,0.18200e+00,0.19084e+00,0.19456e+00,0.19545e+00, & - & 0.19216e+00,0.18018e+00,0.16033e+00,0.16333e+00 /) - kao(:, 2, 9,11) = (/ & - & 0.18402e+00,0.18227e+00,0.19032e+00,0.19515e+00,0.19643e+00, & - & 0.19212e+00,0.17883e+00,0.15954e+00,0.16306e+00 /) - kao(:, 3, 9,11) = (/ & - & 0.18527e+00,0.18204e+00,0.18956e+00,0.19541e+00,0.19690e+00, & - & 0.19201e+00,0.17754e+00,0.15865e+00,0.16240e+00 /) - kao(:, 4, 9,11) = (/ & - & 0.18597e+00,0.18146e+00,0.18866e+00,0.19510e+00,0.19689e+00, & - & 0.19145e+00,0.17626e+00,0.15729e+00,0.16157e+00 /) - kao(:, 5, 9,11) = (/ & - & 0.18701e+00,0.18150e+00,0.18776e+00,0.19449e+00,0.19637e+00, & - & 0.19035e+00,0.17490e+00,0.15605e+00,0.16154e+00 /) - kao(:, 1,10,11) = (/ & - & 0.16786e+00,0.17459e+00,0.18572e+00,0.19196e+00,0.19497e+00, & - & 0.19093e+00,0.17775e+00,0.15445e+00,0.12845e+00 /) - kao(:, 2,10,11) = (/ & - & 0.16990e+00,0.17470e+00,0.18604e+00,0.19354e+00,0.19670e+00, & - & 0.19124e+00,0.17643e+00,0.15415e+00,0.12953e+00 /) - kao(:, 3,10,11) = (/ & - & 0.17115e+00,0.17447e+00,0.18577e+00,0.19420e+00,0.19734e+00, & - & 0.19133e+00,0.17544e+00,0.15343e+00,0.13019e+00 /) - kao(:, 4,10,11) = (/ & - & 0.17256e+00,0.17421e+00,0.18540e+00,0.19426e+00,0.19741e+00, & - & 0.19105e+00,0.17463e+00,0.15245e+00,0.13135e+00 /) - kao(:, 5,10,11) = (/ & - & 0.17411e+00,0.17469e+00,0.18532e+00,0.19400e+00,0.19690e+00, & - & 0.19024e+00,0.17373e+00,0.15177e+00,0.13443e+00 /) - kao(:, 1,11,11) = (/ & - & 0.15326e+00,0.16530e+00,0.17933e+00,0.18873e+00,0.19204e+00, & - & 0.18645e+00,0.17157e+00,0.14842e+00,0.10906e+00 /) - kao(:, 2,11,11) = (/ & - & 0.15510e+00,0.16508e+00,0.18002e+00,0.19054e+00,0.19337e+00, & - & 0.18697e+00,0.17132e+00,0.14823e+00,0.10821e+00 /) - kao(:, 3,11,11) = (/ & - & 0.15695e+00,0.16517e+00,0.18033e+00,0.19125e+00,0.19395e+00, & - & 0.18719e+00,0.17114e+00,0.14748e+00,0.10735e+00 /) - kao(:, 4,11,11) = (/ & - & 0.15884e+00,0.16584e+00,0.18066e+00,0.19107e+00,0.19386e+00, & - & 0.18714e+00,0.17083e+00,0.14679e+00,0.10767e+00 /) - kao(:, 5,11,11) = (/ & - & 0.16065e+00,0.16693e+00,0.18136e+00,0.19090e+00,0.19313e+00, & - & 0.18652e+00,0.17043e+00,0.14693e+00,0.10852e+00 /) - kao(:, 1,12,11) = (/ & - & 0.13812e+00,0.15482e+00,0.17200e+00,0.18322e+00,0.18516e+00, & - & 0.17855e+00,0.16404e+00,0.14149e+00,0.85521e-01 /) - kao(:, 2,12,11) = (/ & - & 0.14024e+00,0.15523e+00,0.17295e+00,0.18464e+00,0.18616e+00, & - & 0.17947e+00,0.16474e+00,0.14107e+00,0.84251e-01 /) - kao(:, 3,12,11) = (/ & - & 0.14232e+00,0.15625e+00,0.17374e+00,0.18482e+00,0.18666e+00, & - & 0.18015e+00,0.16507e+00,0.14067e+00,0.83221e-01 /) - kao(:, 4,12,11) = (/ & - & 0.14452e+00,0.15760e+00,0.17483e+00,0.18482e+00,0.18644e+00, & - & 0.18031e+00,0.16530e+00,0.14085e+00,0.83052e-01 /) - kao(:, 5,12,11) = (/ & - & 0.14659e+00,0.15898e+00,0.17608e+00,0.18496e+00,0.18608e+00, & - & 0.18007e+00,0.16596e+00,0.14156e+00,0.86150e-01 /) - kao(:, 1,13,11) = (/ & - & 0.12335e+00,0.14397e+00,0.16332e+00,0.17403e+00,0.17485e+00, & - & 0.16858e+00,0.15532e+00,0.13315e+00,0.86982e-01 /) - kao(:, 2,13,11) = (/ & - & 0.12553e+00,0.14531e+00,0.16473e+00,0.17477e+00,0.17593e+00, & - & 0.16998e+00,0.15639e+00,0.13322e+00,0.83311e-01 /) - kao(:, 3,13,11) = (/ & - & 0.12788e+00,0.14705e+00,0.16612e+00,0.17511e+00,0.17644e+00, & - & 0.17090e+00,0.15730e+00,0.13374e+00,0.80969e-01 /) - kao(:, 4,13,11) = (/ & - & 0.13027e+00,0.14889e+00,0.16746e+00,0.17569e+00,0.17660e+00, & - & 0.17136e+00,0.15852e+00,0.13468e+00,0.79671e-01 /) - kao(:, 5,13,11) = (/ & - & 0.13255e+00,0.15069e+00,0.16867e+00,0.17661e+00,0.17696e+00, & - & 0.17204e+00,0.15992e+00,0.13520e+00,0.81334e-01 /) - kao(:, 1, 1,12) = (/ & - & 0.28721e+00,0.25323e+00,0.21917e+00,0.19050e+00,0.18439e+00, & - & 0.17842e+00,0.17156e+00,0.18245e+00,0.20075e+00 /) - kao(:, 2, 1,12) = (/ & - & 0.28561e+00,0.25177e+00,0.21845e+00,0.19052e+00,0.18309e+00, & - & 0.17638e+00,0.16966e+00,0.18096e+00,0.19965e+00 /) - kao(:, 3, 1,12) = (/ & - & 0.28230e+00,0.24910e+00,0.21697e+00,0.19014e+00,0.18233e+00, & - & 0.17414e+00,0.16821e+00,0.18034e+00,0.19910e+00 /) - kao(:, 4, 1,12) = (/ & - & 0.27834e+00,0.24592e+00,0.21540e+00,0.18935e+00,0.18163e+00, & - & 0.17186e+00,0.16739e+00,0.18033e+00,0.19922e+00 /) - kao(:, 5, 1,12) = (/ & - & 0.27434e+00,0.24303e+00,0.21391e+00,0.18803e+00,0.18019e+00, & - & 0.17025e+00,0.16693e+00,0.18042e+00,0.19937e+00 /) - kao(:, 1, 2,12) = (/ & - & 0.29623e+00,0.26097e+00,0.22609e+00,0.20293e+00,0.20182e+00, & - & 0.19085e+00,0.18240e+00,0.19397e+00,0.21604e+00 /) - kao(:, 2, 2,12) = (/ & - & 0.29432e+00,0.25931e+00,0.22539e+00,0.20142e+00,0.20026e+00, & - & 0.18828e+00,0.18057e+00,0.19299e+00,0.21521e+00 /) - kao(:, 3, 2,12) = (/ & - & 0.29132e+00,0.25712e+00,0.22457e+00,0.20070e+00,0.19917e+00, & - & 0.18573e+00,0.17946e+00,0.19254e+00,0.21482e+00 /) - kao(:, 4, 2,12) = (/ & - & 0.28797e+00,0.25474e+00,0.22345e+00,0.19986e+00,0.19780e+00, & - & 0.18370e+00,0.17875e+00,0.19238e+00,0.21459e+00 /) - kao(:, 5, 2,12) = (/ & - & 0.28466e+00,0.25242e+00,0.22205e+00,0.19838e+00,0.19562e+00, & - & 0.18242e+00,0.17806e+00,0.19203e+00,0.21421e+00 /) - kao(:, 1, 3,12) = (/ & - & 0.30561e+00,0.26889e+00,0.23295e+00,0.21956e+00,0.21717e+00, & - & 0.20307e+00,0.19524e+00,0.20742e+00,0.23388e+00 /) - kao(:, 2, 3,12) = (/ & - & 0.30324e+00,0.26704e+00,0.23237e+00,0.21738e+00,0.21493e+00, & - & 0.20036e+00,0.19375e+00,0.20659e+00,0.23304e+00 /) - kao(:, 3, 3,12) = (/ & - & 0.30058e+00,0.26531e+00,0.23190e+00,0.21598e+00,0.21300e+00, & - & 0.19790e+00,0.19244e+00,0.20627e+00,0.23259e+00 /) - kao(:, 4, 3,12) = (/ & - & 0.29826e+00,0.26386e+00,0.23125e+00,0.21516e+00,0.21099e+00, & - & 0.19626e+00,0.19135e+00,0.20570e+00,0.23176e+00 /) - kao(:, 5, 3,12) = (/ & - & 0.29569e+00,0.26204e+00,0.22972e+00,0.21357e+00,0.20846e+00, & - & 0.19500e+00,0.19003e+00,0.20504e+00,0.23084e+00 /) - kao(:, 1, 4,12) = (/ & - & 0.31580e+00,0.27765e+00,0.24256e+00,0.23825e+00,0.23010e+00, & - & 0.21605e+00,0.20908e+00,0.22073e+00,0.25027e+00 /) - kao(:, 2, 4,12) = (/ & - & 0.31385e+00,0.27619e+00,0.24143e+00,0.23561e+00,0.22732e+00, & - & 0.21355e+00,0.20732e+00,0.21997e+00,0.24945e+00 /) - kao(:, 3, 4,12) = (/ & - & 0.31115e+00,0.27450e+00,0.24049e+00,0.23383e+00,0.22480e+00, & - & 0.21136e+00,0.20583e+00,0.21971e+00,0.24898e+00 /) - kao(:, 4, 4,12) = (/ & - & 0.30851e+00,0.27268e+00,0.23896e+00,0.23220e+00,0.22243e+00, & - & 0.20992e+00,0.20459e+00,0.21945e+00,0.24850e+00 /) - kao(:, 5, 4,12) = (/ & - & 0.30578e+00,0.27071e+00,0.23717e+00,0.23033e+00,0.22018e+00, & - & 0.20870e+00,0.20353e+00,0.21927e+00,0.24814e+00 /) - kao(:, 1, 5,12) = (/ & - & 0.32525e+00,0.28587e+00,0.25583e+00,0.25377e+00,0.24260e+00, & - & 0.22945e+00,0.22249e+00,0.23280e+00,0.26422e+00 /) - kao(:, 2, 5,12) = (/ & - & 0.32339e+00,0.28450e+00,0.25406e+00,0.25143e+00,0.23950e+00, & - & 0.22738e+00,0.22044e+00,0.23211e+00,0.26348e+00 /) - kao(:, 3, 5,12) = (/ & - & 0.32075e+00,0.28298e+00,0.25200e+00,0.24974e+00,0.23665e+00, & - & 0.22565e+00,0.21882e+00,0.23178e+00,0.26317e+00 /) - kao(:, 4, 5,12) = (/ & - & 0.31838e+00,0.28134e+00,0.24992e+00,0.24807e+00,0.23442e+00, & - & 0.22435e+00,0.21780e+00,0.23180e+00,0.26307e+00 /) - kao(:, 5, 5,12) = (/ & - & 0.31581e+00,0.27952e+00,0.24774e+00,0.24618e+00,0.23239e+00, & - & 0.22315e+00,0.21723e+00,0.23168e+00,0.26269e+00 /) - kao(:, 1, 6,12) = (/ & - & 0.33335e+00,0.29286e+00,0.27107e+00,0.26707e+00,0.25627e+00, & - & 0.24388e+00,0.23516e+00,0.24254e+00,0.27495e+00 /) - kao(:, 2, 6,12) = (/ & - & 0.33185e+00,0.29196e+00,0.26927e+00,0.26528e+00,0.25338e+00, & - & 0.24199e+00,0.23321e+00,0.24178e+00,0.27452e+00 /) - kao(:, 3, 6,12) = (/ & - & 0.32960e+00,0.29070e+00,0.26757e+00,0.26387e+00,0.25062e+00, & - & 0.24015e+00,0.23158e+00,0.24188e+00,0.27485e+00 /) - kao(:, 4, 6,12) = (/ & - & 0.32714e+00,0.28920e+00,0.26543e+00,0.26229e+00,0.24828e+00, & - & 0.23863e+00,0.23085e+00,0.24191e+00,0.27476e+00 /) - kao(:, 5, 6,12) = (/ & - & 0.32443e+00,0.28722e+00,0.26300e+00,0.25993e+00,0.24627e+00, & - & 0.23716e+00,0.23011e+00,0.24150e+00,0.27410e+00 /) - kao(:, 1, 7,12) = (/ & - & 0.33805e+00,0.29686e+00,0.28577e+00,0.27897e+00,0.26998e+00, & - & 0.25892e+00,0.24589e+00,0.25046e+00,0.28292e+00 /) - kao(:, 2, 7,12) = (/ & - & 0.33717e+00,0.29673e+00,0.28505e+00,0.27748e+00,0.26727e+00, & - & 0.25668e+00,0.24439e+00,0.24991e+00,0.28315e+00 /) - kao(:, 3, 7,12) = (/ & - & 0.33582e+00,0.29639e+00,0.28414e+00,0.27664e+00,0.26503e+00, & - & 0.25454e+00,0.24355e+00,0.24982e+00,0.28339e+00 /) - kao(:, 4, 7,12) = (/ & - & 0.33418e+00,0.29565e+00,0.28243e+00,0.27502e+00,0.26319e+00, & - & 0.25262e+00,0.24314e+00,0.24937e+00,0.28297e+00 /) - kao(:, 5, 7,12) = (/ & - & 0.33223e+00,0.29432e+00,0.28036e+00,0.27276e+00,0.26126e+00, & - & 0.25114e+00,0.24223e+00,0.24874e+00,0.28224e+00 /) - kao(:, 1, 8,12) = (/ & - & 0.33811e+00,0.29881e+00,0.29770e+00,0.29087e+00,0.28271e+00, & - & 0.27088e+00,0.25606e+00,0.25702e+00,0.28869e+00 /) - kao(:, 2, 8,12) = (/ & - & 0.33858e+00,0.29933e+00,0.29817e+00,0.28968e+00,0.28063e+00, & - & 0.26913e+00,0.25508e+00,0.25647e+00,0.28886e+00 /) - kao(:, 3, 8,12) = (/ & - & 0.33853e+00,0.29979e+00,0.29803e+00,0.28900e+00,0.27895e+00, & - & 0.26698e+00,0.25454e+00,0.25561e+00,0.28857e+00 /) - kao(:, 4, 8,12) = (/ & - & 0.33786e+00,0.29958e+00,0.29705e+00,0.28721e+00,0.27754e+00, & - & 0.26522e+00,0.25386e+00,0.25480e+00,0.28812e+00 /) - kao(:, 5, 8,12) = (/ & - & 0.33672e+00,0.29874e+00,0.29538e+00,0.28492e+00,0.27593e+00, & - & 0.26422e+00,0.25288e+00,0.25337e+00,0.28657e+00 /) - kao(:, 1, 9,12) = (/ & - & 0.33304e+00,0.29965e+00,0.30451e+00,0.30108e+00,0.29380e+00, & - & 0.28100e+00,0.26620e+00,0.26062e+00,0.28923e+00 /) - kao(:, 2, 9,12) = (/ & - & 0.33493e+00,0.30099e+00,0.30590e+00,0.30051e+00,0.29241e+00, & - & 0.27971e+00,0.26553e+00,0.25927e+00,0.28890e+00 /) - kao(:, 3, 9,12) = (/ & - & 0.33639e+00,0.30210e+00,0.30672e+00,0.29976e+00,0.29135e+00, & - & 0.27789e+00,0.26459e+00,0.25779e+00,0.28847e+00 /) - kao(:, 4, 9,12) = (/ & - & 0.33691e+00,0.30238e+00,0.30636e+00,0.29831e+00,0.29055e+00, & - & 0.27684e+00,0.26372e+00,0.25629e+00,0.28756e+00 /) - kao(:, 5, 9,12) = (/ & - & 0.33680e+00,0.30184e+00,0.30474e+00,0.29664e+00,0.28906e+00, & - & 0.27593e+00,0.26250e+00,0.25436e+00,0.28576e+00 /) - kao(:, 1,10,12) = (/ & - & 0.32265e+00,0.29931e+00,0.30809e+00,0.30788e+00,0.30155e+00, & - & 0.29032e+00,0.27398e+00,0.25958e+00,0.28232e+00 /) - kao(:, 2,10,12) = (/ & - & 0.32643e+00,0.30217e+00,0.30992e+00,0.30804e+00,0.30109e+00, & - & 0.28947e+00,0.27364e+00,0.25761e+00,0.28165e+00 /) - kao(:, 3,10,12) = (/ & - & 0.32903e+00,0.30409e+00,0.31077e+00,0.30846e+00,0.30095e+00, & - & 0.28833e+00,0.27259e+00,0.25601e+00,0.28124e+00 /) - kao(:, 4,10,12) = (/ & - & 0.33021e+00,0.30472e+00,0.31062e+00,0.30777e+00,0.30050e+00, & - & 0.28725e+00,0.27132e+00,0.25418e+00,0.28034e+00 /) - kao(:, 5,10,12) = (/ & - & 0.33035e+00,0.30379e+00,0.30948e+00,0.30647e+00,0.29984e+00, & - & 0.28648e+00,0.26959e+00,0.25216e+00,0.27891e+00 /) - kao(:, 1,11,12) = (/ & - & 0.31092e+00,0.29828e+00,0.30944e+00,0.31067e+00,0.30618e+00, & - & 0.29698e+00,0.27822e+00,0.25367e+00,0.20521e+00 /) - kao(:, 2,11,12) = (/ & - & 0.31508e+00,0.30179e+00,0.31084e+00,0.31247e+00,0.30712e+00, & - & 0.29665e+00,0.27717e+00,0.25137e+00,0.20791e+00 /) - kao(:, 3,11,12) = (/ & - & 0.31745e+00,0.30351e+00,0.31148e+00,0.31329e+00,0.30764e+00, & - & 0.29592e+00,0.27601e+00,0.24946e+00,0.21041e+00 /) - kao(:, 4,11,12) = (/ & - & 0.31864e+00,0.30345e+00,0.31137e+00,0.31328e+00,0.30818e+00, & - & 0.29525e+00,0.27444e+00,0.24795e+00,0.21312e+00 /) - kao(:, 5,11,12) = (/ & - & 0.31936e+00,0.30268e+00,0.31034e+00,0.31260e+00,0.30827e+00, & - & 0.29465e+00,0.27259e+00,0.24615e+00,0.21621e+00 /) - kao(:, 1,12,12) = (/ & - & 0.29534e+00,0.29381e+00,0.30706e+00,0.31081e+00,0.30893e+00, & - & 0.29961e+00,0.27811e+00,0.24533e+00,0.16496e+00 /) - kao(:, 2,12,12) = (/ & - & 0.29914e+00,0.29664e+00,0.30890e+00,0.31347e+00,0.31102e+00, & - & 0.29958e+00,0.27683e+00,0.24361e+00,0.16812e+00 /) - kao(:, 3,12,12) = (/ & - & 0.30164e+00,0.29790e+00,0.30986e+00,0.31529e+00,0.31277e+00, & - & 0.29960e+00,0.27547e+00,0.24230e+00,0.17163e+00 /) - kao(:, 4,12,12) = (/ & - & 0.30318e+00,0.29799e+00,0.30963e+00,0.31596e+00,0.31358e+00, & - & 0.29964e+00,0.27410e+00,0.24090e+00,0.17207e+00 /) - kao(:, 5,12,12) = (/ & - & 0.30462e+00,0.29774e+00,0.30883e+00,0.31580e+00,0.31382e+00, & - & 0.29942e+00,0.27289e+00,0.23940e+00,0.17248e+00 /) - kao(:, 1,13,12) = (/ & - & 0.27646e+00,0.28482e+00,0.30092e+00,0.30845e+00,0.30839e+00, & - & 0.29721e+00,0.27391e+00,0.23566e+00,0.13145e+00 /) - kao(:, 2,13,12) = (/ & - & 0.28013e+00,0.28703e+00,0.30330e+00,0.31210e+00,0.31152e+00, & - & 0.29799e+00,0.27265e+00,0.23501e+00,0.13680e+00 /) - kao(:, 3,13,12) = (/ & - & 0.28251e+00,0.28781e+00,0.30455e+00,0.31430e+00,0.31342e+00, & - & 0.29883e+00,0.27192e+00,0.23420e+00,0.14031e+00 /) - kao(:, 4,13,12) = (/ & - & 0.28473e+00,0.28806e+00,0.30532e+00,0.31558e+00,0.31478e+00, & - & 0.29964e+00,0.27140e+00,0.23324e+00,0.14138e+00 /) - kao(:, 5,13,12) = (/ & - & 0.28731e+00,0.28885e+00,0.30563e+00,0.31603e+00,0.31529e+00, & - & 0.30003e+00,0.27073e+00,0.23300e+00,0.14291e+00 /) - kao(:, 1, 1,13) = (/ & - & 0.39331e+00,0.34536e+00,0.29823e+00,0.25200e+00,0.22257e+00, & - & 0.22153e+00,0.23263e+00,0.25940e+00,0.28372e+00 /) - kao(:, 2, 1,13) = (/ & - & 0.38484e+00,0.33824e+00,0.29242e+00,0.24772e+00,0.21768e+00, & - & 0.21972e+00,0.23098e+00,0.25833e+00,0.28173e+00 /) - kao(:, 3, 1,13) = (/ & - & 0.37910e+00,0.33360e+00,0.28884e+00,0.24475e+00,0.21421e+00, & - & 0.21744e+00,0.22823e+00,0.25633e+00,0.27932e+00 /) - kao(:, 4, 1,13) = (/ & - & 0.37406e+00,0.32956e+00,0.28576e+00,0.24212e+00,0.21151e+00, & - & 0.21463e+00,0.22480e+00,0.25354e+00,0.27637e+00 /) - kao(:, 5, 1,13) = (/ & - & 0.36968e+00,0.32602e+00,0.28272e+00,0.24026e+00,0.20970e+00, & - & 0.21134e+00,0.22163e+00,0.25081e+00,0.27385e+00 /) - kao(:, 1, 2,13) = (/ & - & 0.41602e+00,0.36529e+00,0.31527e+00,0.26672e+00,0.24637e+00, & - & 0.24718e+00,0.25604e+00,0.28585e+00,0.31850e+00 /) - kao(:, 2, 2,13) = (/ & - & 0.40830e+00,0.35891e+00,0.31022e+00,0.26338e+00,0.24193e+00, & - & 0.24484e+00,0.25382e+00,0.28396e+00,0.31574e+00 /) - kao(:, 3, 2,13) = (/ & - & 0.40220e+00,0.35391e+00,0.30635e+00,0.26042e+00,0.23856e+00, & - & 0.24224e+00,0.25030e+00,0.28140e+00,0.31256e+00 /) - kao(:, 4, 2,13) = (/ & - & 0.39708e+00,0.34976e+00,0.30310e+00,0.25764e+00,0.23590e+00, & - & 0.23895e+00,0.24655e+00,0.27840e+00,0.30929e+00 /) - kao(:, 5, 2,13) = (/ & - & 0.39199e+00,0.34559e+00,0.29962e+00,0.25559e+00,0.23369e+00, & - & 0.23517e+00,0.24316e+00,0.27577e+00,0.30660e+00 /) - kao(:, 1, 3,13) = (/ & - & 0.43911e+00,0.38551e+00,0.33254e+00,0.28548e+00,0.27501e+00, & - & 0.27158e+00,0.27806e+00,0.30961e+00,0.34942e+00 /) - kao(:, 2, 3,13) = (/ & - & 0.43165e+00,0.37930e+00,0.32763e+00,0.28158e+00,0.27135e+00, & - & 0.26881e+00,0.27489e+00,0.30725e+00,0.34620e+00 /) - kao(:, 3, 3,13) = (/ & - & 0.42551e+00,0.37419e+00,0.32362e+00,0.27772e+00,0.26799e+00, & - & 0.26571e+00,0.27096e+00,0.30422e+00,0.34240e+00 /) - kao(:, 4, 3,13) = (/ & - & 0.42038e+00,0.37000e+00,0.32049e+00,0.27494e+00,0.26498e+00, & - & 0.26183e+00,0.26698e+00,0.30136e+00,0.33931e+00 /) - kao(:, 5, 3,13) = (/ & - & 0.41446e+00,0.36533e+00,0.31734e+00,0.27304e+00,0.26234e+00, & - & 0.25777e+00,0.26380e+00,0.29913e+00,0.33705e+00 /) - kao(:, 1, 4,13) = (/ & - & 0.46241e+00,0.40571e+00,0.34961e+00,0.30954e+00,0.30425e+00, & - & 0.29507e+00,0.29890e+00,0.33301e+00,0.37827e+00 /) - kao(:, 2, 4,13) = (/ & - & 0.45465e+00,0.39923e+00,0.34450e+00,0.30510e+00,0.30124e+00, & - & 0.29145e+00,0.29516e+00,0.32984e+00,0.37410e+00 /) - kao(:, 3, 4,13) = (/ & - & 0.44872e+00,0.39432e+00,0.34072e+00,0.30104e+00,0.29841e+00, & - & 0.28758e+00,0.29090e+00,0.32641e+00,0.36986e+00 /) - kao(:, 4, 4,13) = (/ & - & 0.44350e+00,0.39014e+00,0.33810e+00,0.29814e+00,0.29548e+00, & - & 0.28294e+00,0.28676e+00,0.32342e+00,0.36667e+00 /) - kao(:, 5, 4,13) = (/ & - & 0.43828e+00,0.38609e+00,0.33570e+00,0.29627e+00,0.29269e+00, & - & 0.27870e+00,0.28357e+00,0.32115e+00,0.36426e+00 /) - kao(:, 1, 5,13) = (/ & - & 0.48784e+00,0.42784e+00,0.36835e+00,0.33984e+00,0.33294e+00, & - & 0.31846e+00,0.32126e+00,0.35651e+00,0.40621e+00 /) - kao(:, 2, 5,13) = (/ & - & 0.48030e+00,0.42153e+00,0.36340e+00,0.33519e+00,0.32973e+00, & - & 0.31380e+00,0.31683e+00,0.35311e+00,0.40187e+00 /) - kao(:, 3, 5,13) = (/ & - & 0.47411e+00,0.41636e+00,0.35974e+00,0.33136e+00,0.32664e+00, & - & 0.30892e+00,0.31220e+00,0.34964e+00,0.39763e+00 /) - kao(:, 4, 5,13) = (/ & - & 0.46883e+00,0.41227e+00,0.35745e+00,0.32776e+00,0.32317e+00, & - & 0.30393e+00,0.30777e+00,0.34651e+00,0.39440e+00 /) - kao(:, 5, 5,13) = (/ & - & 0.46388e+00,0.40844e+00,0.35543e+00,0.32520e+00,0.31964e+00, & - & 0.29971e+00,0.30439e+00,0.34429e+00,0.39205e+00 /) - kao(:, 1, 6,13) = (/ & - & 0.51535e+00,0.45180e+00,0.39162e+00,0.37322e+00,0.36050e+00, & - & 0.34300e+00,0.34505e+00,0.38137e+00,0.43538e+00 /) - kao(:, 2, 6,13) = (/ & - & 0.50781e+00,0.44545e+00,0.38586e+00,0.36868e+00,0.35573e+00, & - & 0.33760e+00,0.34025e+00,0.37783e+00,0.43095e+00 /) - kao(:, 3, 6,13) = (/ & - & 0.50139e+00,0.44011e+00,0.38148e+00,0.36480e+00,0.35183e+00, & - & 0.33217e+00,0.33546e+00,0.37434e+00,0.42674e+00 /) - kao(:, 4, 6,13) = (/ & - & 0.49657e+00,0.43636e+00,0.37891e+00,0.36116e+00,0.34800e+00, & - & 0.32704e+00,0.33102e+00,0.37152e+00,0.42385e+00 /) - kao(:, 5, 6,13) = (/ & - & 0.49171e+00,0.43263e+00,0.37693e+00,0.35827e+00,0.34376e+00, & - & 0.32320e+00,0.32782e+00,0.36976e+00,0.42188e+00 /) - kao(:, 1, 7,13) = (/ & - & 0.54162e+00,0.47464e+00,0.41834e+00,0.40782e+00,0.38721e+00, & - & 0.36824e+00,0.37067e+00,0.40670e+00,0.46460e+00 /) - kao(:, 2, 7,13) = (/ & - & 0.53535e+00,0.46937e+00,0.41220e+00,0.40296e+00,0.38145e+00, & - & 0.36278e+00,0.36581e+00,0.40309e+00,0.46013e+00 /) - kao(:, 3, 7,13) = (/ & - & 0.52914e+00,0.46429e+00,0.40710e+00,0.39788e+00,0.37673e+00, & - & 0.35819e+00,0.36078e+00,0.40008e+00,0.45678e+00 /) - kao(:, 4, 7,13) = (/ & - & 0.52440e+00,0.46050e+00,0.40384e+00,0.39374e+00,0.37204e+00, & - & 0.35371e+00,0.35616e+00,0.39775e+00,0.45424e+00 /) - kao(:, 5, 7,13) = (/ & - & 0.52017e+00,0.45722e+00,0.40132e+00,0.39030e+00,0.36733e+00, & - & 0.34991e+00,0.35252e+00,0.39600e+00,0.45213e+00 /) - kao(:, 1, 8,13) = (/ & - & 0.56560e+00,0.49547e+00,0.44792e+00,0.43980e+00,0.41568e+00, & - & 0.39571e+00,0.39516e+00,0.42687e+00,0.48767e+00 /) - kao(:, 2, 8,13) = (/ & - & 0.55986e+00,0.49068e+00,0.44130e+00,0.43344e+00,0.40921e+00, & - & 0.39033e+00,0.39006e+00,0.42429e+00,0.48458e+00 /) - kao(:, 3, 8,13) = (/ & - & 0.55439e+00,0.48622e+00,0.43604e+00,0.42727e+00,0.40340e+00, & - & 0.38637e+00,0.38517e+00,0.42255e+00,0.48243e+00 /) - kao(:, 4, 8,13) = (/ & - & 0.55085e+00,0.48344e+00,0.43251e+00,0.42285e+00,0.39791e+00, & - & 0.38219e+00,0.38096e+00,0.42076e+00,0.48039e+00 /) - kao(:, 5, 8,13) = (/ & - & 0.54722e+00,0.48060e+00,0.42969e+00,0.41964e+00,0.39283e+00, & - & 0.37840e+00,0.37699e+00,0.41955e+00,0.47894e+00 /) - kao(:, 1, 9,13) = (/ & - & 0.58672e+00,0.51388e+00,0.47909e+00,0.46769e+00,0.44479e+00, & - & 0.42421e+00,0.41694e+00,0.44339e+00,0.50662e+00 /) - kao(:, 2, 9,13) = (/ & - & 0.58159e+00,0.50951e+00,0.47213e+00,0.46028e+00,0.43736e+00, & - & 0.41895e+00,0.41246e+00,0.44257e+00,0.50550e+00 /) - kao(:, 3, 9,13) = (/ & - & 0.57736e+00,0.50610e+00,0.46657e+00,0.45431e+00,0.43100e+00, & - & 0.41543e+00,0.40868e+00,0.44206e+00,0.50480e+00 /) - kao(:, 4, 9,13) = (/ & - & 0.57459e+00,0.50394e+00,0.46330e+00,0.44994e+00,0.42562e+00, & - & 0.41143e+00,0.40432e+00,0.44089e+00,0.50333e+00 /) - kao(:, 5, 9,13) = (/ & - & 0.57136e+00,0.50148e+00,0.46136e+00,0.44665e+00,0.42115e+00, & - & 0.40792e+00,0.40001e+00,0.43966e+00,0.50186e+00 /) - kao(:, 1,10,13) = (/ & - & 0.60279e+00,0.52914e+00,0.50725e+00,0.49385e+00,0.47296e+00, & - & 0.45056e+00,0.43650e+00,0.45649e+00,0.52069e+00 /) - kao(:, 2,10,13) = (/ & - & 0.59826e+00,0.52452e+00,0.50048e+00,0.48635e+00,0.46511e+00, & - & 0.44618e+00,0.43278e+00,0.45737e+00,0.52170e+00 /) - kao(:, 3,10,13) = (/ & - & 0.59590e+00,0.52228e+00,0.49610e+00,0.47997e+00,0.45903e+00, & - & 0.44309e+00,0.42962e+00,0.45759e+00,0.52208e+00 /) - kao(:, 4,10,13) = (/ & - & 0.59454e+00,0.52120e+00,0.49388e+00,0.47548e+00,0.45447e+00, & - & 0.44006e+00,0.42512e+00,0.45631e+00,0.52061e+00 /) - kao(:, 5,10,13) = (/ & - & 0.59357e+00,0.52070e+00,0.49246e+00,0.47250e+00,0.45028e+00, & - & 0.43610e+00,0.42114e+00,0.45529e+00,0.51951e+00 /) - kao(:, 1,11,13) = (/ & - & 0.60887e+00,0.53839e+00,0.52807e+00,0.51587e+00,0.49623e+00, & - & 0.47362e+00,0.45440e+00,0.46645e+00,0.53001e+00 /) - kao(:, 2,11,13) = (/ & - & 0.60756e+00,0.53578e+00,0.52411e+00,0.50806e+00,0.48992e+00, & - & 0.47089e+00,0.45204e+00,0.46808e+00,0.53215e+00 /) - kao(:, 3,11,13) = (/ & - & 0.60793e+00,0.53524e+00,0.52214e+00,0.50280e+00,0.48540e+00, & - & 0.46881e+00,0.44770e+00,0.46764e+00,0.53195e+00 /) - kao(:, 4,11,13) = (/ & - & 0.60970e+00,0.53618e+00,0.52106e+00,0.49960e+00,0.48160e+00, & - & 0.46481e+00,0.44371e+00,0.46667e+00,0.53096e+00 /) - kao(:, 5,11,13) = (/ & - & 0.61038e+00,0.53650e+00,0.52014e+00,0.49804e+00,0.47818e+00, & - & 0.45984e+00,0.44017e+00,0.46579e+00,0.53008e+00 /) - kao(:, 1,12,13) = (/ & - & 0.60957e+00,0.54609e+00,0.54565e+00,0.53521e+00,0.51779e+00, & - & 0.49593e+00,0.47189e+00,0.47309e+00,0.46983e+00 /) - kao(:, 2,12,13) = (/ & - & 0.61214e+00,0.54625e+00,0.54367e+00,0.52921e+00,0.51339e+00, & - & 0.49443e+00,0.46946e+00,0.47371e+00,0.47545e+00 /) - kao(:, 3,12,13) = (/ & - & 0.61642e+00,0.54787e+00,0.54269e+00,0.52579e+00,0.50981e+00, & - & 0.49118e+00,0.46605e+00,0.47265e+00,0.47706e+00 /) - kao(:, 4,12,13) = (/ & - & 0.62028e+00,0.54980e+00,0.54303e+00,0.52440e+00,0.50697e+00, & - & 0.48619e+00,0.46182e+00,0.47123e+00,0.48084e+00 /) - kao(:, 5,12,13) = (/ & - & 0.62175e+00,0.55026e+00,0.54305e+00,0.52373e+00,0.50407e+00, & - & 0.48153e+00,0.45738e+00,0.46998e+00,0.48415e+00 /) - kao(:, 1,13,13) = (/ & - & 0.60459e+00,0.55304e+00,0.55845e+00,0.55195e+00,0.53769e+00, & - & 0.51606e+00,0.48661e+00,0.47383e+00,0.40484e+00 /) - kao(:, 2,13,13) = (/ & - & 0.61134e+00,0.55569e+00,0.55809e+00,0.54885e+00,0.53426e+00, & - & 0.51450e+00,0.48473e+00,0.47289e+00,0.40823e+00 /) - kao(:, 3,13,13) = (/ & - & 0.61890e+00,0.55963e+00,0.55924e+00,0.54802e+00,0.53230e+00, & - & 0.51039e+00,0.48075e+00,0.47078e+00,0.41355e+00 /) - kao(:, 4,13,13) = (/ & - & 0.62388e+00,0.56213e+00,0.56099e+00,0.54740e+00,0.52999e+00, & - & 0.50582e+00,0.47603e+00,0.46901e+00,0.41977e+00 /) - kao(:, 5,13,13) = (/ & - & 0.62688e+00,0.56314e+00,0.56152e+00,0.54685e+00,0.52723e+00, & - & 0.50138e+00,0.47115e+00,0.46700e+00,0.42405e+00 /) - kao(:, 1, 1,14) = (/ & - & 0.52445e+00,0.46003e+00,0.39566e+00,0.33139e+00,0.26995e+00, & - & 0.25837e+00,0.28528e+00,0.32819e+00,0.35568e+00 /) - kao(:, 2, 1,14) = (/ & - & 0.51513e+00,0.45183e+00,0.38858e+00,0.32553e+00,0.26784e+00, & - & 0.25515e+00,0.28229e+00,0.32456e+00,0.35149e+00 /) - kao(:, 3, 1,14) = (/ & - & 0.50548e+00,0.44334e+00,0.38125e+00,0.32054e+00,0.26590e+00, & - & 0.25305e+00,0.28136e+00,0.32218e+00,0.34858e+00 /) - kao(:, 4, 1,14) = (/ & - & 0.49563e+00,0.43466e+00,0.37374e+00,0.31559e+00,0.26350e+00, & - & 0.25115e+00,0.28088e+00,0.32077e+00,0.34651e+00 /) - kao(:, 5, 1,14) = (/ & - & 0.48636e+00,0.42650e+00,0.36724e+00,0.31119e+00,0.26146e+00, & - & 0.24908e+00,0.27907e+00,0.31920e+00,0.34392e+00 /) - kao(:, 1, 2,14) = (/ & - & 0.56575e+00,0.49609e+00,0.42647e+00,0.35691e+00,0.29788e+00, & - & 0.29937e+00,0.33584e+00,0.38701e+00,0.42822e+00 /) - kao(:, 2, 2,14) = (/ & - & 0.55481e+00,0.48648e+00,0.41819e+00,0.35023e+00,0.29393e+00, & - & 0.29578e+00,0.33190e+00,0.38233e+00,0.42282e+00 /) - kao(:, 3, 2,14) = (/ & - & 0.54468e+00,0.47756e+00,0.41048e+00,0.34498e+00,0.29076e+00, & - & 0.29330e+00,0.33000e+00,0.37899e+00,0.41892e+00 /) - kao(:, 4, 2,14) = (/ & - & 0.53444e+00,0.46857e+00,0.40281e+00,0.34010e+00,0.28772e+00, & - & 0.29117e+00,0.32899e+00,0.37674e+00,0.41581e+00 /) - kao(:, 5, 2,14) = (/ & - & 0.52472e+00,0.46000e+00,0.39601e+00,0.33543e+00,0.28544e+00, & - & 0.28841e+00,0.32728e+00,0.37488e+00,0.41300e+00 /) - kao(:, 1, 3,14) = (/ & - & 0.61401e+00,0.53826e+00,0.46254e+00,0.38687e+00,0.33653e+00, & - & 0.34874e+00,0.39278e+00,0.45331e+00,0.51178e+00 /) - kao(:, 2, 3,14) = (/ & - & 0.60181e+00,0.52754e+00,0.45329e+00,0.37917e+00,0.33018e+00, & - & 0.34432e+00,0.38762e+00,0.44735e+00,0.50487e+00 /) - kao(:, 3, 3,14) = (/ & - & 0.59018e+00,0.51732e+00,0.44448e+00,0.37278e+00,0.32516e+00, & - & 0.34086e+00,0.38493e+00,0.44336e+00,0.50014e+00 /) - kao(:, 4, 3,14) = (/ & - & 0.57893e+00,0.50743e+00,0.43595e+00,0.36714e+00,0.32113e+00, & - & 0.33824e+00,0.38315e+00,0.44016e+00,0.49598e+00 /) - kao(:, 5, 3,14) = (/ & - & 0.56842e+00,0.49818e+00,0.42822e+00,0.36203e+00,0.31748e+00, & - & 0.33494e+00,0.38145e+00,0.43774e+00,0.49238e+00 /) - kao(:, 1, 4,14) = (/ & - & 0.66683e+00,0.58444e+00,0.50208e+00,0.41977e+00,0.38494e+00, & - & 0.40485e+00,0.45417e+00,0.52508e+00,0.59839e+00 /) - kao(:, 2, 4,14) = (/ & - & 0.65354e+00,0.57275e+00,0.49199e+00,0.41128e+00,0.37591e+00, & - & 0.39916e+00,0.44835e+00,0.51820e+00,0.59043e+00 /) - kao(:, 3, 4,14) = (/ & - & 0.64071e+00,0.56148e+00,0.48227e+00,0.40388e+00,0.36879e+00, & - & 0.39404e+00,0.44465e+00,0.51320e+00,0.58464e+00 /) - kao(:, 4, 4,14) = (/ & - & 0.62844e+00,0.55070e+00,0.47297e+00,0.39753e+00,0.36329e+00, & - & 0.39017e+00,0.44183e+00,0.50881e+00,0.57888e+00 /) - kao(:, 5, 4,14) = (/ & - & 0.61748e+00,0.54106e+00,0.46467e+00,0.39213e+00,0.35832e+00, & - & 0.38631e+00,0.43926e+00,0.50522e+00,0.57403e+00 /) - kao(:, 1, 5,14) = (/ & - & 0.72260e+00,0.63317e+00,0.54375e+00,0.45913e+00,0.43732e+00, & - & 0.46505e+00,0.51783e+00,0.59954e+00,0.68564e+00 /) - kao(:, 2, 5,14) = (/ & - & 0.70858e+00,0.62085e+00,0.53314e+00,0.44897e+00,0.42823e+00, & - & 0.45720e+00,0.51115e+00,0.59162e+00,0.67653e+00 /) - kao(:, 3, 5,14) = (/ & - & 0.69539e+00,0.60926e+00,0.52314e+00,0.43994e+00,0.42099e+00, & - & 0.45017e+00,0.50656e+00,0.58542e+00,0.66941e+00 /) - kao(:, 4, 5,14) = (/ & - & 0.68235e+00,0.59780e+00,0.51326e+00,0.43281e+00,0.41557e+00, & - & 0.44468e+00,0.50258e+00,0.57996e+00,0.66206e+00 /) - kao(:, 5, 5,14) = (/ & - & 0.67018e+00,0.58711e+00,0.50404e+00,0.42628e+00,0.41131e+00, & - & 0.43975e+00,0.49863e+00,0.57477e+00,0.65556e+00 /) - kao(:, 1, 6,14) = (/ & - & 0.77964e+00,0.68298e+00,0.58633e+00,0.50766e+00,0.49641e+00, & - & 0.52605e+00,0.58161e+00,0.67425e+00,0.77212e+00 /) - kao(:, 2, 6,14) = (/ & - & 0.76589e+00,0.67092e+00,0.57596e+00,0.49531e+00,0.48834e+00, & - & 0.51573e+00,0.57361e+00,0.66493e+00,0.76124e+00 /) - kao(:, 3, 6,14) = (/ & - & 0.75251e+00,0.65917e+00,0.56583e+00,0.48459e+00,0.48115e+00, & - & 0.50704e+00,0.56757e+00,0.65686e+00,0.75182e+00 /) - kao(:, 4, 6,14) = (/ & - & 0.73905e+00,0.64728e+00,0.55554e+00,0.47565e+00,0.47497e+00, & - & 0.50004e+00,0.56191e+00,0.64957e+00,0.74243e+00 /) - kao(:, 5, 6,14) = (/ & - & 0.72636e+00,0.63608e+00,0.54581e+00,0.46758e+00,0.47009e+00, & - & 0.49349e+00,0.55635e+00,0.64252e+00,0.73397e+00 /) - kao(:, 1, 7,14) = (/ & - & 0.84113e+00,0.73668e+00,0.63225e+00,0.56459e+00,0.56168e+00, & - & 0.58736e+00,0.64476e+00,0.74759e+00,0.85655e+00 /) - kao(:, 2, 7,14) = (/ & - & 0.82630e+00,0.72365e+00,0.62103e+00,0.55091e+00,0.55367e+00, & - & 0.57467e+00,0.63457e+00,0.73605e+00,0.84323e+00 /) - kao(:, 3, 7,14) = (/ & - & 0.81279e+00,0.71173e+00,0.61068e+00,0.53944e+00,0.54564e+00, & - & 0.56363e+00,0.62610e+00,0.72557e+00,0.83073e+00 /) - kao(:, 4, 7,14) = (/ & - & 0.79922e+00,0.69978e+00,0.60035e+00,0.52974e+00,0.53833e+00, & - & 0.55444e+00,0.61857e+00,0.71625e+00,0.81942e+00 /) - kao(:, 5, 7,14) = (/ & - & 0.78598e+00,0.68814e+00,0.59031e+00,0.52130e+00,0.53249e+00, & - & 0.54592e+00,0.61225e+00,0.70842e+00,0.80994e+00 /) - kao(:, 1, 8,14) = (/ & - & 0.90865e+00,0.79552e+00,0.68301e+00,0.62894e+00,0.62980e+00, & - & 0.64956e+00,0.70917e+00,0.82179e+00,0.94167e+00 /) - kao(:, 2, 8,14) = (/ & - & 0.89327e+00,0.78202e+00,0.67089e+00,0.61713e+00,0.62095e+00, & - & 0.63402e+00,0.69617e+00,0.80717e+00,0.92484e+00 /) - kao(:, 3, 8,14) = (/ & - & 0.87903e+00,0.76952e+00,0.66001e+00,0.60628e+00,0.61235e+00, & - & 0.62019e+00,0.68531e+00,0.79440e+00,0.90974e+00 /) - kao(:, 4, 8,14) = (/ & - & 0.86460e+00,0.75687e+00,0.64914e+00,0.59649e+00,0.60349e+00, & - & 0.60828e+00,0.67580e+00,0.78318e+00,0.89639e+00 /) - kao(:, 5, 8,14) = (/ & - & 0.85091e+00,0.74488e+00,0.63886e+00,0.58665e+00,0.59566e+00, & - & 0.59754e+00,0.66827e+00,0.77422e+00,0.88585e+00 /) - kao(:, 1, 9,14) = (/ & - & 0.98149e+00,0.85912e+00,0.74373e+00,0.70295e+00,0.70214e+00, & - & 0.71285e+00,0.77237e+00,0.89352e+00,0.10239e+01 /) - kao(:, 2, 9,14) = (/ & - & 0.96640e+00,0.84589e+00,0.73081e+00,0.69152e+00,0.69170e+00, & - & 0.69439e+00,0.75605e+00,0.87558e+00,0.10032e+01 /) - kao(:, 3, 9,14) = (/ & - & 0.95188e+00,0.83316e+00,0.71892e+00,0.68080e+00,0.68028e+00, & - & 0.67751e+00,0.74271e+00,0.86004e+00,0.98493e+00 /) - kao(:, 4, 9,14) = (/ & - & 0.93737e+00,0.82045e+00,0.70700e+00,0.67076e+00,0.66785e+00, & - & 0.66265e+00,0.73184e+00,0.84775e+00,0.97055e+00 /) - kao(:, 5, 9,14) = (/ & - & 0.92346e+00,0.80828e+00,0.69536e+00,0.66047e+00,0.65652e+00, & - & 0.65000e+00,0.72388e+00,0.83863e+00,0.95986e+00 /) - kao(:, 1,10,14) = (/ & - & 0.10577e+01,0.92576e+00,0.81364e+00,0.78190e+00,0.77617e+00, & - & 0.77603e+00,0.83269e+00,0.96109e+00,0.11008e+01 /) - kao(:, 2,10,14) = (/ & - & 0.10450e+01,0.91463e+00,0.80097e+00,0.77046e+00,0.76182e+00, & - & 0.75411e+00,0.81384e+00,0.94032e+00,0.10769e+01 /) - kao(:, 3,10,14) = (/ & - & 0.10312e+01,0.90248e+00,0.78812e+00,0.75969e+00,0.74632e+00, & - & 0.73436e+00,0.79822e+00,0.92300e+00,0.10571e+01 /) - kao(:, 4,10,14) = (/ & - & 0.10164e+01,0.88956e+00,0.77444e+00,0.74952e+00,0.73099e+00, & - & 0.71729e+00,0.78702e+00,0.91062e+00,0.10426e+01 /) - kao(:, 5,10,14) = (/ & - & 0.10010e+01,0.87610e+00,0.76045e+00,0.73747e+00,0.71669e+00, & - & 0.70419e+00,0.77819e+00,0.90060e+00,0.10309e+01 /) - kao(:, 1,11,14) = (/ & - & 0.11332e+01,0.99169e+00,0.88520e+00,0.85938e+00,0.84171e+00, & - & 0.82777e+00,0.88045e+00,0.10119e+01,0.11581e+01 /) - kao(:, 2,11,14) = (/ & - & 0.11221e+01,0.98196e+00,0.87210e+00,0.84745e+00,0.82287e+00, & - & 0.80383e+00,0.86097e+00,0.99198e+00,0.11355e+01 /) - kao(:, 3,11,14) = (/ & - & 0.11079e+01,0.96953e+00,0.85745e+00,0.83492e+00,0.80465e+00, & - & 0.78293e+00,0.84710e+00,0.97731e+00,0.11185e+01 /) - kao(:, 4,11,14) = (/ & - & 0.10888e+01,0.95287e+00,0.84018e+00,0.82112e+00,0.78666e+00, & - & 0.76752e+00,0.83583e+00,0.96514e+00,0.11044e+01 /) - kao(:, 5,11,14) = (/ & - & 0.10701e+01,0.93668e+00,0.82311e+00,0.80490e+00,0.77024e+00, & - & 0.75616e+00,0.82679e+00,0.95569e+00,0.10935e+01 /) - kao(:, 1,12,14) = (/ & - & 0.12101e+01,0.10589e+01,0.96254e+00,0.93478e+00,0.90424e+00, & - & 0.88111e+00,0.92612e+00,0.10566e+01,0.12084e+01 /) - kao(:, 2,12,14) = (/ & - & 0.11952e+01,0.10459e+01,0.94639e+00,0.91979e+00,0.88299e+00, & - & 0.85667e+00,0.90737e+00,0.10393e+01,0.11885e+01 /) - kao(:, 3,12,14) = (/ & - & 0.11758e+01,0.10290e+01,0.92827e+00,0.90412e+00,0.86234e+00, & - & 0.83719e+00,0.89320e+00,0.10260e+01,0.11732e+01 /) - kao(:, 4,12,14) = (/ & - & 0.11552e+01,0.10111e+01,0.90821e+00,0.88659e+00,0.84346e+00, & - & 0.82327e+00,0.88324e+00,0.10165e+01,0.11624e+01 /) - kao(:, 5,12,14) = (/ & - & 0.11370e+01,0.99527e+00,0.88941e+00,0.86803e+00,0.82686e+00, & - & 0.81098e+00,0.87502e+00,0.10085e+01,0.11531e+01 /) - kao(:, 1,13,14) = (/ & - & 0.12761e+01,0.11169e+01,0.10366e+01,0.10056e+01,0.96619e+00, & - & 0.93741e+00,0.96971e+00,0.10971e+01,0.12455e+01 /) - kao(:, 2,13,14) = (/ & - & 0.12590e+01,0.11018e+01,0.10193e+01,0.98827e+00,0.94401e+00, & - & 0.91331e+00,0.95200e+00,0.10824e+01,0.12321e+01 /) - kao(:, 3,13,14) = (/ & - & 0.12382e+01,0.10836e+01,0.99864e+00,0.96922e+00,0.92237e+00, & - & 0.89570e+00,0.94013e+00,0.10732e+01,0.12212e+01 /) - kao(:, 4,13,14) = (/ & - & 0.12192e+01,0.10671e+01,0.97718e+00,0.94975e+00,0.90316e+00, & - & 0.88110e+00,0.93100e+00,0.10658e+01,0.12124e+01 /) - kao(:, 5,13,14) = (/ & - & 0.12013e+01,0.10515e+01,0.95818e+00,0.93022e+00,0.88690e+00, & - & 0.86844e+00,0.92401e+00,0.10605e+01,0.12064e+01 /) - kao(:, 1, 1,15) = (/ & - & 0.70834e+00,0.62203e+00,0.53582e+00,0.44981e+00,0.36430e+00, & - & 0.30456e+00,0.33772e+00,0.39113e+00,0.42417e+00 /) - kao(:, 2, 1,15) = (/ & - & 0.69132e+00,0.60682e+00,0.52239e+00,0.43815e+00,0.35442e+00, & - & 0.29618e+00,0.32847e+00,0.37897e+00,0.41053e+00 /) - kao(:, 3, 1,15) = (/ & - & 0.67551e+00,0.59273e+00,0.51002e+00,0.42746e+00,0.34540e+00, & - & 0.29170e+00,0.32190e+00,0.37054e+00,0.40056e+00 /) - kao(:, 4, 1,15) = (/ & - & 0.65954e+00,0.57855e+00,0.49762e+00,0.41681e+00,0.33774e+00, & - & 0.29058e+00,0.31932e+00,0.36553e+00,0.39416e+00 /) - kao(:, 5, 1,15) = (/ & - & 0.64426e+00,0.56502e+00,0.48582e+00,0.40671e+00,0.33237e+00, & - & 0.29156e+00,0.32280e+00,0.36526e+00,0.39257e+00 /) - kao(:, 1, 2,15) = (/ & - & 0.79278e+00,0.69566e+00,0.59863e+00,0.50180e+00,0.40547e+00, & - & 0.36074e+00,0.40858e+00,0.47363e+00,0.52463e+00 /) - kao(:, 2, 2,15) = (/ & - & 0.77384e+00,0.67879e+00,0.58381e+00,0.48896e+00,0.39453e+00, & - & 0.34912e+00,0.39677e+00,0.45884e+00,0.50797e+00 /) - kao(:, 3, 2,15) = (/ & - & 0.75601e+00,0.66296e+00,0.56995e+00,0.47701e+00,0.38437e+00, & - & 0.34005e+00,0.38826e+00,0.44800e+00,0.49524e+00 /) - kao(:, 4, 2,15) = (/ & - & 0.73809e+00,0.64708e+00,0.55610e+00,0.46517e+00,0.37616e+00, & - & 0.33560e+00,0.38277e+00,0.44095e+00,0.48660e+00 /) - kao(:, 5, 2,15) = (/ & - & 0.72001e+00,0.63111e+00,0.54222e+00,0.45336e+00,0.36992e+00, & - & 0.33536e+00,0.38227e+00,0.43734e+00,0.48144e+00 /) - kao(:, 1, 3,15) = (/ & - & 0.88640e+00,0.77731e+00,0.66826e+00,0.55931e+00,0.45077e+00, & - & 0.42993e+00,0.49594e+00,0.57510e+00,0.65079e+00 /) - kao(:, 2, 3,15) = (/ & - & 0.86545e+00,0.75870e+00,0.65198e+00,0.54530e+00,0.43919e+00, & - & 0.41467e+00,0.48152e+00,0.55764e+00,0.63093e+00 /) - kao(:, 3, 3,15) = (/ & - & 0.84484e+00,0.74046e+00,0.63609e+00,0.53174e+00,0.42841e+00, & - & 0.40263e+00,0.47018e+00,0.54358e+00,0.61450e+00 /) - kao(:, 4, 3,15) = (/ & - & 0.82484e+00,0.72279e+00,0.62074e+00,0.51870e+00,0.41933e+00, & - & 0.39440e+00,0.46214e+00,0.53355e+00,0.60235e+00 /) - kao(:, 5, 3,15) = (/ & - & 0.80403e+00,0.70444e+00,0.60484e+00,0.50526e+00,0.41249e+00, & - & 0.39177e+00,0.45674e+00,0.52614e+00,0.59324e+00 /) - kao(:, 1, 4,15) = (/ & - & 0.98775e+00,0.86568e+00,0.74362e+00,0.62157e+00,0.50893e+00, & - & 0.51227e+00,0.60104e+00,0.69710e+00,0.79722e+00 /) - kao(:, 2, 4,15) = (/ & - & 0.96448e+00,0.84510e+00,0.72572e+00,0.60634e+00,0.49496e+00, & - & 0.49365e+00,0.58337e+00,0.67615e+00,0.77326e+00 /) - kao(:, 3, 4,15) = (/ & - & 0.94121e+00,0.82456e+00,0.70790e+00,0.59124e+00,0.48214e+00, & - & 0.47977e+00,0.56920e+00,0.65880e+00,0.75281e+00 /) - kao(:, 4, 4,15) = (/ & - & 0.91776e+00,0.80389e+00,0.69002e+00,0.57613e+00,0.47050e+00, & - & 0.47009e+00,0.55863e+00,0.64595e+00,0.73761e+00 /) - kao(:, 5, 4,15) = (/ & - & 0.89560e+00,0.78437e+00,0.67314e+00,0.56190e+00,0.46260e+00, & - & 0.46419e+00,0.55009e+00,0.63560e+00,0.72526e+00 /) - kao(:, 1, 5,15) = (/ & - & 0.10958e+01,0.95999e+00,0.82419e+00,0.68839e+00,0.58904e+00, & - & 0.60909e+00,0.72523e+00,0.84139e+00,0.96623e+00 /) - kao(:, 2, 5,15) = (/ & - & 0.10697e+01,0.93701e+00,0.80427e+00,0.67151e+00,0.56892e+00, & - & 0.58963e+00,0.70431e+00,0.81667e+00,0.93800e+00 /) - kao(:, 3, 5,15) = (/ & - & 0.10434e+01,0.91377e+00,0.78415e+00,0.65453e+00,0.55082e+00, & - & 0.57510e+00,0.68668e+00,0.79542e+00,0.91311e+00 /) - kao(:, 4, 5,15) = (/ & - & 0.10167e+01,0.89033e+00,0.76393e+00,0.63753e+00,0.53477e+00, & - & 0.56392e+00,0.67291e+00,0.77892e+00,0.89383e+00 /) - kao(:, 5, 5,15) = (/ & - & 0.99271e+00,0.86922e+00,0.74573e+00,0.62224e+00,0.52129e+00, & - & 0.55503e+00,0.66157e+00,0.76538e+00,0.87797e+00 /) - kao(:, 1, 6,15) = (/ & - & 0.12165e+01,0.10653e+01,0.91421e+00,0.76309e+00,0.68684e+00, & - & 0.72751e+00,0.87072e+00,0.10104e+01,0.11626e+01 /) - kao(:, 2, 6,15) = (/ & - & 0.11851e+01,0.10377e+01,0.89038e+00,0.74302e+00,0.66078e+00, & - & 0.70740e+00,0.84652e+00,0.98180e+00,0.11298e+01 /) - kao(:, 3, 6,15) = (/ & - & 0.11540e+01,0.10104e+01,0.86680e+00,0.72322e+00,0.63673e+00, & - & 0.69046e+00,0.82558e+00,0.95705e+00,0.11007e+01 /) - kao(:, 4, 6,15) = (/ & - & 0.11233e+01,0.98347e+00,0.84364e+00,0.70381e+00,0.61623e+00, & - & 0.67656e+00,0.80855e+00,0.93682e+00,0.10775e+01 /) - kao(:, 5, 6,15) = (/ & - & 0.10954e+01,0.95895e+00,0.82254e+00,0.68614e+00,0.59850e+00, & - & 0.66513e+00,0.79440e+00,0.92006e+00,0.10579e+01 /) - kao(:, 1, 7,15) = (/ & - & 0.13516e+01,0.11834e+01,0.10152e+01,0.84752e+00,0.80189e+00, & - & 0.86751e+00,0.10388e+01,0.12059e+01,0.13885e+01 /) - kao(:, 2, 7,15) = (/ & - & 0.13129e+01,0.11495e+01,0.98601e+00,0.82254e+00,0.76801e+00, & - & 0.84476e+00,0.10112e+01,0.11733e+01,0.13510e+01 /) - kao(:, 3, 7,15) = (/ & - & 0.12754e+01,0.11166e+01,0.95771e+00,0.79885e+00,0.73832e+00, & - & 0.82499e+00,0.98705e+00,0.11448e+01,0.13179e+01 /) - kao(:, 4, 7,15) = (/ & - & 0.12391e+01,0.10847e+01,0.93032e+00,0.77593e+00,0.71267e+00, & - & 0.80837e+00,0.96685e+00,0.11210e+01,0.12906e+01 /) - kao(:, 5, 7,15) = (/ & - & 0.12065e+01,0.10561e+01,0.90576e+00,0.75539e+00,0.69035e+00, & - & 0.79409e+00,0.94938e+00,0.11005e+01,0.12668e+01 /) - kao(:, 1, 8,15) = (/ & - & 0.14988e+01,0.13122e+01,0.11257e+01,0.95045e+00,0.92736e+00, & - & 0.10268e+01,0.12293e+01,0.14274e+01,0.16436e+01 /) - kao(:, 2, 8,15) = (/ & - & 0.14532e+01,0.12722e+01,0.10913e+01,0.91652e+00,0.88763e+00, & - & 0.10018e+01,0.11994e+01,0.13921e+01,0.16030e+01 /) - kao(:, 3, 8,15) = (/ & - & 0.14089e+01,0.12334e+01,0.10579e+01,0.88636e+00,0.85277e+00, & - & 0.97910e+00,0.11719e+01,0.13598e+01,0.15656e+01 /) - kao(:, 4, 8,15) = (/ & - & 0.13671e+01,0.11967e+01,0.10263e+01,0.85849e+00,0.82373e+00, & - & 0.95955e+00,0.11482e+01,0.13320e+01,0.15338e+01 /) - kao(:, 5, 8,15) = (/ & - & 0.13292e+01,0.11635e+01,0.99774e+00,0.83411e+00,0.79958e+00, & - & 0.94221e+00,0.11271e+01,0.13073e+01,0.15052e+01 /) - kao(:, 1, 9,15) = (/ & - & 0.16562e+01,0.14500e+01,0.12437e+01,0.10742e+01,0.10651e+01, & - & 0.12070e+01,0.14445e+01,0.16775e+01,0.19311e+01 /) - kao(:, 2, 9,15) = (/ & - & 0.16034e+01,0.14036e+01,0.12039e+01,0.10312e+01,0.10206e+01, & - & 0.11791e+01,0.14116e+01,0.16391e+01,0.18869e+01 /) - kao(:, 3, 9,15) = (/ & - & 0.15525e+01,0.13590e+01,0.11655e+01,0.99233e+00,0.98476e+00, & - & 0.11530e+01,0.13804e+01,0.16026e+01,0.18449e+01 /) - kao(:, 4, 9,15) = (/ & - & 0.15047e+01,0.13171e+01,0.11295e+01,0.95737e+00,0.95592e+00, & - & 0.11301e+01,0.13529e+01,0.15703e+01,0.18077e+01 /) - kao(:, 5, 9,15) = (/ & - & 0.14611e+01,0.12789e+01,0.10967e+01,0.92635e+00,0.93256e+00, & - & 0.11088e+01,0.13272e+01,0.15403e+01,0.17730e+01 /) - kao(:, 1,10,15) = (/ & - & 0.18225e+01,0.15953e+01,0.13682e+01,0.12131e+01,0.12195e+01, & - & 0.14041e+01,0.16789e+01,0.19504e+01,0.22442e+01 /) - kao(:, 2,10,15) = (/ & - & 0.17586e+01,0.15393e+01,0.13201e+01,0.11608e+01,0.11760e+01, & - & 0.13729e+01,0.16424e+01,0.19078e+01,0.21951e+01 /) - kao(:, 3,10,15) = (/ & - & 0.16992e+01,0.14873e+01,0.12754e+01,0.11134e+01,0.11408e+01, & - & 0.13430e+01,0.16073e+01,0.18666e+01,0.21480e+01 /) - kao(:, 4,10,15) = (/ & - & 0.16453e+01,0.14401e+01,0.12349e+01,0.10705e+01,0.11101e+01, & - & 0.13157e+01,0.15751e+01,0.18293e+01,0.21045e+01 /) - kao(:, 5,10,15) = (/ & - & 0.15976e+01,0.13983e+01,0.11990e+01,0.10350e+01,0.10845e+01, & - & 0.12900e+01,0.15444e+01,0.17936e+01,0.20634e+01 /) - kao(:, 1,11,15) = (/ & - & 0.19716e+01,0.17256e+01,0.14797e+01,0.13408e+01,0.13798e+01, & - & 0.16011e+01,0.19108e+01,0.22209e+01,0.25534e+01 /) - kao(:, 2,11,15) = (/ & - & 0.18980e+01,0.16613e+01,0.14245e+01,0.12841e+01,0.13393e+01, & - & 0.15661e+01,0.18703e+01,0.21736e+01,0.24991e+01 /) - kao(:, 3,11,15) = (/ & - & 0.18334e+01,0.16046e+01,0.13758e+01,0.12346e+01,0.13019e+01, & - & 0.15332e+01,0.18320e+01,0.21288e+01,0.24477e+01 /) - kao(:, 4,11,15) = (/ & - & 0.17833e+01,0.15608e+01,0.13382e+01,0.11928e+01,0.12697e+01, & - & 0.15019e+01,0.17959e+01,0.20867e+01,0.23990e+01 /) - kao(:, 5,11,15) = (/ & - & 0.17385e+01,0.15215e+01,0.13045e+01,0.11584e+01,0.12412e+01, & - & 0.14723e+01,0.17610e+01,0.20462e+01,0.23526e+01 /) - kao(:, 1,12,15) = (/ & - & 0.21322e+01,0.18661e+01,0.16009e+01,0.14913e+01,0.15626e+01, & - & 0.18065e+01,0.21498e+01,0.24997e+01,0.28719e+01 /) - kao(:, 2,12,15) = (/ & - & 0.20605e+01,0.18033e+01,0.15462e+01,0.14346e+01,0.15183e+01, & - & 0.17679e+01,0.21055e+01,0.24481e+01,0.28126e+01 /) - kao(:, 3,12,15) = (/ & - & 0.20007e+01,0.17509e+01,0.15011e+01,0.13841e+01,0.14777e+01, & - & 0.17312e+01,0.20634e+01,0.23990e+01,0.27564e+01 /) - kao(:, 4,12,15) = (/ & - & 0.19501e+01,0.17066e+01,0.14631e+01,0.13415e+01,0.14420e+01, & - & 0.16956e+01,0.20218e+01,0.23506e+01,0.27007e+01 /) - kao(:, 5,12,15) = (/ & - & 0.19023e+01,0.16648e+01,0.14272e+01,0.13048e+01,0.14093e+01, & - & 0.16619e+01,0.19834e+01,0.23060e+01,0.26492e+01 /) - kao(:, 1,13,15) = (/ & - & 0.23283e+01,0.20376e+01,0.17570e+01,0.16678e+01,0.17574e+01, & - & 0.20182e+01,0.23943e+01,0.27850e+01,0.31979e+01 /) - kao(:, 2,13,15) = (/ & - & 0.22552e+01,0.19735e+01,0.16974e+01,0.16068e+01,0.17079e+01, & - & 0.19757e+01,0.23460e+01,0.27289e+01,0.31334e+01 /) - kao(:, 3,13,15) = (/ & - & 0.21945e+01,0.19204e+01,0.16488e+01,0.15544e+01,0.16639e+01, & - & 0.19336e+01,0.22972e+01,0.26723e+01,0.30681e+01 /) - kao(:, 4,13,15) = (/ & - & 0.21377e+01,0.18706e+01,0.16045e+01,0.15082e+01,0.16235e+01, & - & 0.18922e+01,0.22504e+01,0.26179e+01,0.30055e+01 /) - kao(:, 5,13,15) = (/ & - & 0.20822e+01,0.18221e+01,0.15623e+01,0.14670e+01,0.15845e+01, & - & 0.18531e+01,0.22061e+01,0.25663e+01,0.29464e+01 /) - kao(:, 1, 1,16) = (/ & - & 0.84891e+00,0.74682e+00,0.64540e+00,0.54510e+00,0.44671e+00, & - & 0.34895e+00,0.38105e+00,0.44177e+00,0.47725e+00 /) - kao(:, 2, 1,16) = (/ & - & 0.82292e+00,0.72425e+00,0.62615e+00,0.52904e+00,0.43334e+00, & - & 0.33791e+00,0.37758e+00,0.43769e+00,0.47292e+00 /) - kao(:, 3, 1,16) = (/ & - & 0.79766e+00,0.70221e+00,0.60725e+00,0.51315e+00,0.42001e+00, & - & 0.32708e+00,0.37351e+00,0.43297e+00,0.46789e+00 /) - kao(:, 4, 1,16) = (/ & - & 0.77341e+00,0.68098e+00,0.58899e+00,0.49774e+00,0.40711e+00, & - & 0.31834e+00,0.36899e+00,0.42775e+00,0.46227e+00 /) - kao(:, 5, 1,16) = (/ & - & 0.74989e+00,0.66035e+00,0.57119e+00,0.48264e+00,0.39437e+00, & - & 0.32430e+00,0.36416e+00,0.42216e+00,0.45636e+00 /) - kao(:, 1, 2,16) = (/ & - & 0.98489e+00,0.86457e+00,0.74461e+00,0.62525e+00,0.50699e+00, & - & 0.39502e+00,0.46270e+00,0.53626e+00,0.59246e+00 /) - kao(:, 2, 2,16) = (/ & - & 0.95110e+00,0.83523e+00,0.71967e+00,0.60464e+00,0.49055e+00, & - & 0.38714e+00,0.45775e+00,0.53066e+00,0.58669e+00 /) - kao(:, 3, 2,16) = (/ & - & 0.91868e+00,0.80699e+00,0.69557e+00,0.58461e+00,0.47447e+00, & - & 0.38030e+00,0.45287e+00,0.52498e+00,0.58057e+00 /) - kao(:, 4, 2,16) = (/ & - & 0.88783e+00,0.78006e+00,0.67253e+00,0.56540e+00,0.45894e+00, & - & 0.37426e+00,0.44739e+00,0.51869e+00,0.57355e+00 /) - kao(:, 5, 2,16) = (/ & - & 0.85824e+00,0.75420e+00,0.65037e+00,0.54691e+00,0.44407e+00, & - & 0.37572e+00,0.44151e+00,0.51192e+00,0.56619e+00 /) - kao(:, 1, 3,16) = (/ & - & 0.11382e+01,0.99791e+00,0.85785e+00,0.71816e+00,0.57913e+00, & - & 0.47378e+00,0.56732e+00,0.65745e+00,0.74321e+00 /) - kao(:, 2, 3,16) = (/ & - & 0.10944e+01,0.95984e+00,0.82550e+00,0.69149e+00,0.55807e+00, & - & 0.46534e+00,0.55716e+00,0.64588e+00,0.73020e+00 /) - kao(:, 3, 3,16) = (/ & - & 0.10534e+01,0.92416e+00,0.79509e+00,0.66633e+00,0.53808e+00, & - & 0.45863e+00,0.54915e+00,0.63663e+00,0.71995e+00 /) - kao(:, 4, 3,16) = (/ & - & 0.10141e+01,0.88986e+00,0.76582e+00,0.64206e+00,0.51870e+00, & - & 0.45265e+00,0.54212e+00,0.62853e+00,0.71089e+00 /) - kao(:, 5, 3,16) = (/ & - & 0.97757e+00,0.85802e+00,0.73862e+00,0.61943e+00,0.50068e+00, & - & 0.44732e+00,0.53486e+00,0.62017e+00,0.70154e+00 /) - kao(:, 1, 4,16) = (/ & - & 0.13027e+01,0.11412e+01,0.97988e+00,0.81881e+00,0.65819e+00, & - & 0.58495e+00,0.70040e+00,0.81176e+00,0.92845e+00 /) - kao(:, 2, 4,16) = (/ & - & 0.12473e+01,0.10931e+01,0.93894e+00,0.78506e+00,0.63160e+00, & - & 0.57073e+00,0.68340e+00,0.79216e+00,0.90610e+00 /) - kao(:, 3, 4,16) = (/ & - & 0.11956e+01,0.10481e+01,0.90063e+00,0.75344e+00,0.60663e+00, & - & 0.55958e+00,0.67003e+00,0.77669e+00,0.88836e+00 /) - kao(:, 4, 4,16) = (/ & - & 0.11480e+01,0.10066e+01,0.86532e+00,0.72426e+00,0.58351e+00, & - & 0.54965e+00,0.65819e+00,0.76307e+00,0.87291e+00 /) - kao(:, 5, 4,16) = (/ & - & 0.11042e+01,0.96837e+00,0.83267e+00,0.69709e+00,0.56180e+00, & - & 0.54039e+00,0.64710e+00,0.75045e+00,0.85825e+00 /) - kao(:, 1, 5,16) = (/ & - & 0.14755e+01,0.12919e+01,0.11084e+01,0.92503e+00,0.74199e+00, & - & 0.72656e+00,0.86992e+00,0.10084e+01,0.11593e+01 /) - kao(:, 2, 5,16) = (/ & - & 0.14077e+01,0.12330e+01,0.10584e+01,0.88396e+00,0.70985e+00, & - & 0.70337e+00,0.84221e+00,0.97628e+00,0.11223e+01 /) - kao(:, 3, 5,16) = (/ & - & 0.13473e+01,0.11805e+01,0.10138e+01,0.84723e+00,0.68084e+00, & - & 0.68573e+00,0.82117e+00,0.95190e+00,0.10943e+01 /) - kao(:, 4, 5,16) = (/ & - & 0.12931e+01,0.11332e+01,0.97336e+00,0.81358e+00,0.65399e+00, & - & 0.67083e+00,0.80321e+00,0.93120e+00,0.10704e+01 /) - kao(:, 5, 5,16) = (/ & - & 0.12425e+01,0.10889e+01,0.93535e+00,0.78185e+00,0.62849e+00, & - & 0.65706e+00,0.78689e+00,0.91252e+00,0.10486e+01 /) - kao(:, 1, 6,16) = (/ & - & 0.16632e+01,0.14561e+01,0.12491e+01,0.10422e+01,0.83545e+00, & - & 0.90592e+00,0.10850e+01,0.12579e+01,0.14491e+01 /) - kao(:, 2, 6,16) = (/ & - & 0.15885e+01,0.13911e+01,0.11938e+01,0.99649e+00,0.79932e+00, & - & 0.87105e+00,0.10430e+01,0.12092e+01,0.13933e+01 /) - kao(:, 3, 6,16) = (/ & - & 0.15219e+01,0.13330e+01,0.11441e+01,0.95525e+00,0.76651e+00, & - & 0.84460e+00,0.10114e+01,0.11726e+01,0.13510e+01 /) - kao(:, 4, 6,16) = (/ & - & 0.14602e+01,0.12790e+01,0.10978e+01,0.91668e+00,0.73549e+00, & - & 0.82233e+00,0.98468e+00,0.11417e+01,0.13152e+01 /) - kao(:, 5, 6,16) = (/ & - & 0.14027e+01,0.12286e+01,0.10546e+01,0.88053e+00,0.70846e+00, & - & 0.80220e+00,0.96072e+00,0.11140e+01,0.12832e+01 /) - kao(:, 1, 7,16) = (/ & - & 0.18802e+01,0.16460e+01,0.14119e+01,0.11779e+01,0.95036e+00, & - & 0.11297e+01,0.13528e+01,0.15688e+01,0.18094e+01 /) - kao(:, 2, 7,16) = (/ & - & 0.17989e+01,0.15751e+01,0.13512e+01,0.11274e+01,0.91055e+00, & - & 0.10797e+01,0.12930e+01,0.14993e+01,0.17294e+01 /) - kao(:, 3, 7,16) = (/ & - & 0.17245e+01,0.15100e+01,0.12954e+01,0.10809e+01,0.87508e+00, & - & 0.10422e+01,0.12481e+01,0.14473e+01,0.16693e+01 /) - kao(:, 4, 7,16) = (/ & - & 0.16543e+01,0.14485e+01,0.12427e+01,0.10370e+01,0.84724e+00, & - & 0.10105e+01,0.12102e+01,0.14035e+01,0.16185e+01 /) - kao(:, 5, 7,16) = (/ & - & 0.15884e+01,0.13908e+01,0.11932e+01,0.99569e+00,0.82331e+00, & - & 0.98227e+00,0.11764e+01,0.13643e+01,0.15734e+01 /) - kao(:, 1, 8,16) = (/ & - & 0.21327e+01,0.18670e+01,0.16012e+01,0.13355e+01,0.11430e+01, & - & 0.14062e+01,0.16843e+01,0.19535e+01,0.22540e+01 /) - kao(:, 2, 8,16) = (/ & - & 0.20434e+01,0.17888e+01,0.15342e+01,0.12796e+01,0.10891e+01, & - & 0.13377e+01,0.16020e+01,0.18582e+01,0.21442e+01 /) - kao(:, 3, 8,16) = (/ & - & 0.19592e+01,0.17151e+01,0.14711e+01,0.12270e+01,0.10443e+01, & - & 0.12854e+01,0.15395e+01,0.17855e+01,0.20605e+01 /) - kao(:, 4, 8,16) = (/ & - & 0.18795e+01,0.16454e+01,0.14112e+01,0.11771e+01,0.10093e+01, & - & 0.12418e+01,0.14873e+01,0.17251e+01,0.19905e+01 /) - kao(:, 5, 8,16) = (/ & - & 0.18040e+01,0.15793e+01,0.13546e+01,0.11298e+01,0.97893e+00, & - & 0.12029e+01,0.14409e+01,0.16715e+01,0.19284e+01 /) - kao(:, 1, 9,16) = (/ & - & 0.24263e+01,0.21237e+01,0.18212e+01,0.15186e+01,0.14038e+01, & - & 0.17468e+01,0.20923e+01,0.24275e+01,0.28010e+01 /) - kao(:, 2, 9,16) = (/ & - & 0.23266e+01,0.20365e+01,0.17464e+01,0.14563e+01,0.13334e+01, & - & 0.16567e+01,0.19843e+01,0.23023e+01,0.26565e+01 /) - kao(:, 3, 9,16) = (/ & - & 0.22311e+01,0.19529e+01,0.16747e+01,0.13965e+01,0.12741e+01, & - & 0.15855e+01,0.18989e+01,0.22031e+01,0.25421e+01 /) - kao(:, 4, 9,16) = (/ & - & 0.21400e+01,0.18731e+01,0.16063e+01,0.13394e+01,0.12261e+01, & - & 0.15261e+01,0.18280e+01,0.21210e+01,0.24473e+01 /) - kao(:, 5, 9,16) = (/ & - & 0.20537e+01,0.17976e+01,0.15415e+01,0.12854e+01,0.11844e+01, & - & 0.14739e+01,0.17653e+01,0.20482e+01,0.23631e+01 /) - kao(:, 1,10,16) = (/ & - & 0.27556e+01,0.24117e+01,0.20679e+01,0.17241e+01,0.17250e+01, & - & 0.21531e+01,0.25793e+01,0.29930e+01,0.34529e+01 /) - kao(:, 2,10,16) = (/ & - & 0.26436e+01,0.23137e+01,0.19838e+01,0.16540e+01,0.16343e+01, & - & 0.20375e+01,0.24406e+01,0.28326e+01,0.32672e+01 /) - kao(:, 3,10,16) = (/ & - & 0.25350e+01,0.22187e+01,0.19024e+01,0.15861e+01,0.15582e+01, & - & 0.19443e+01,0.23290e+01,0.27026e+01,0.31178e+01 /) - kao(:, 4,10,16) = (/ & - & 0.24300e+01,0.21267e+01,0.18235e+01,0.15203e+01,0.14955e+01, & - & 0.18662e+01,0.22353e+01,0.25942e+01,0.29924e+01 /) - kao(:, 5,10,16) = (/ & - & 0.23355e+01,0.20440e+01,0.17526e+01,0.14611e+01,0.14399e+01, & - & 0.17966e+01,0.21521e+01,0.24975e+01,0.28809e+01 /) - kao(:, 1,11,16) = (/ & - & 0.30736e+01,0.26899e+01,0.23062e+01,0.19287e+01,0.20594e+01, & - & 0.25707e+01,0.30796e+01,0.35755e+01,0.41218e+01 /) - kao(:, 2,11,16) = (/ & - & 0.29458e+01,0.25780e+01,0.22102e+01,0.18490e+01,0.19506e+01, & - & 0.24353e+01,0.29176e+01,0.33867e+01,0.39048e+01 /) - kao(:, 3,11,16) = (/ & - & 0.28287e+01,0.24755e+01,0.21223e+01,0.17723e+01,0.18621e+01, & - & 0.23252e+01,0.27855e+01,0.32334e+01,0.37281e+01 /) - kao(:, 4,11,16) = (/ & - & 0.27181e+01,0.23787e+01,0.20393e+01,0.17010e+01,0.17848e+01, & - & 0.22284e+01,0.26698e+01,0.30991e+01,0.35730e+01 /) - kao(:, 5,11,16) = (/ & - & 0.26214e+01,0.22941e+01,0.19667e+01,0.16394e+01,0.17149e+01, & - & 0.21409e+01,0.25649e+01,0.29778e+01,0.34326e+01 /) - kao(:, 1,12,16) = (/ & - & 0.34457e+01,0.30154e+01,0.25850e+01,0.22002e+01,0.24421e+01, & - & 0.30491e+01,0.36532e+01,0.42422e+01,0.48881e+01 /) - kao(:, 2,12,16) = (/ & - & 0.33132e+01,0.28993e+01,0.24855e+01,0.21037e+01,0.23175e+01, & - & 0.28938e+01,0.34673e+01,0.40262e+01,0.46397e+01 /) - kao(:, 3,12,16) = (/ & - & 0.31843e+01,0.27866e+01,0.23888e+01,0.20132e+01,0.22107e+01, & - & 0.27603e+01,0.33070e+01,0.38403e+01,0.44248e+01 /) - kao(:, 4,12,16) = (/ & - & 0.30610e+01,0.26787e+01,0.22963e+01,0.19289e+01,0.21145e+01, & - & 0.26402e+01,0.31632e+01,0.36735e+01,0.42326e+01 /) - kao(:, 5,12,16) = (/ & - & 0.29533e+01,0.25844e+01,0.22155e+01,0.18569e+01,0.20264e+01, & - & 0.25300e+01,0.30314e+01,0.35205e+01,0.40560e+01 /) - kao(:, 1,13,16) = (/ & - & 0.38898e+01,0.34039e+01,0.29179e+01,0.25320e+01,0.28809e+01, & - & 0.35965e+01,0.43091e+01,0.50055e+01,0.57650e+01 /) - kao(:, 2,13,16) = (/ & - & 0.37371e+01,0.32702e+01,0.28033e+01,0.24146e+01,0.27330e+01, & - & 0.34120e+01,0.40886e+01,0.47494e+01,0.54692e+01 /) - kao(:, 3,13,16) = (/ & - & 0.35846e+01,0.31367e+01,0.26889e+01,0.23047e+01,0.26019e+01, & - & 0.32482e+01,0.38921e+01,0.45212e+01,0.52066e+01 /) - kao(:, 4,13,16) = (/ & - & 0.34450e+01,0.30146e+01,0.25842e+01,0.22048e+01,0.24829e+01, & - & 0.31006e+01,0.37153e+01,0.43162e+01,0.49694e+01 /) - kao(:, 5,13,16) = (/ & - & 0.33226e+01,0.29075e+01,0.24923e+01,0.21144e+01,0.23741e+01, & - & 0.29651e+01,0.35532e+01,0.41282e+01,0.47532e+01 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:,13, 1) = (/ & - & 0.78344e-03,0.81478e-03,0.83713e-03,0.85265e-03,0.85991e-03 /) - kbo(:,14, 1) = (/ & - & 0.65374e-03,0.67963e-03,0.69840e-03,0.71131e-03,0.71719e-03 /) - kbo(:,15, 1) = (/ & - & 0.55587e-03,0.57751e-03,0.59343e-03,0.60410e-03,0.60993e-03 /) - kbo(:,16, 1) = (/ & - & 0.48145e-03,0.49780e-03,0.51251e-03,0.52093e-03,0.52706e-03 /) - kbo(:,17, 1) = (/ & - & 0.42610e-03,0.43577e-03,0.44892e-03,0.45812e-03,0.46352e-03 /) - kbo(:,18, 1) = (/ & - & 0.38503e-03,0.38849e-03,0.40094e-03,0.41067e-03,0.41529e-03 /) - kbo(:,19, 1) = (/ & - & 0.35025e-03,0.34902e-03,0.35803e-03,0.36759e-03,0.37429e-03 /) - kbo(:,20, 1) = (/ & - & 0.30557e-03,0.30381e-03,0.30983e-03,0.31782e-03,0.32429e-03 /) - kbo(:,21, 1) = (/ & - & 0.26346e-03,0.26127e-03,0.26616e-03,0.27270e-03,0.27830e-03 /) - kbo(:,22, 1) = (/ & - & 0.22630e-03,0.22463e-03,0.22867e-03,0.23419e-03,0.23829e-03 /) - kbo(:,23, 1) = (/ & - & 0.19498e-03,0.19376e-03,0.19644e-03,0.20096e-03,0.20404e-03 /) - kbo(:,24, 1) = (/ & - & 0.16839e-03,0.16687e-03,0.16820e-03,0.17215e-03,0.17490e-03 /) - kbo(:,25, 1) = (/ & - & 0.14494e-03,0.14347e-03,0.14334e-03,0.14728e-03,0.14954e-03 /) - kbo(:,26, 1) = (/ & - & 0.12363e-03,0.12241e-03,0.12233e-03,0.12518e-03,0.12767e-03 /) - kbo(:,27, 1) = (/ & - & 0.10560e-03,0.10482e-03,0.10446e-03,0.10681e-03,0.10897e-03 /) - kbo(:,28, 1) = (/ & - & 0.90453e-04,0.89921e-04,0.89199e-04,0.91278e-04,0.93235e-04 /) - kbo(:,29, 1) = (/ & - & 0.77854e-04,0.77467e-04,0.76947e-04,0.77977e-04,0.79713e-04 /) - kbo(:,30, 1) = (/ & - & 0.67346e-04,0.67074e-04,0.66981e-04,0.67340e-04,0.68453e-04 /) - kbo(:,31, 1) = (/ & - & 0.58739e-04,0.58583e-04,0.58517e-04,0.58421e-04,0.59277e-04 /) - kbo(:,32, 1) = (/ & - & 0.51671e-04,0.51476e-04,0.51254e-04,0.51199e-04,0.51510e-04 /) - kbo(:,33, 1) = (/ & - & 0.45523e-04,0.45406e-04,0.45028e-04,0.44849e-04,0.44977e-04 /) - kbo(:,34, 1) = (/ & - & 0.40256e-04,0.40062e-04,0.39751e-04,0.39416e-04,0.39181e-04 /) - kbo(:,35, 1) = (/ & - & 0.35762e-04,0.35429e-04,0.35245e-04,0.34916e-04,0.34484e-04 /) - kbo(:,36, 1) = (/ & - & 0.31776e-04,0.31666e-04,0.31200e-04,0.31013e-04,0.30768e-04 /) - kbo(:,37, 1) = (/ & - & 0.26934e-04,0.26971e-04,0.26615e-04,0.26355e-04,0.26214e-04 /) - kbo(:,38, 1) = (/ & - & 0.22652e-04,0.22874e-04,0.22686e-04,0.22466e-04,0.22266e-04 /) - kbo(:,39, 1) = (/ & - & 0.18970e-04,0.19273e-04,0.19385e-04,0.19198e-04,0.19016e-04 /) - kbo(:,40, 1) = (/ & - & 0.15533e-04,0.15831e-04,0.15964e-04,0.15836e-04,0.15700e-04 /) - kbo(:,41, 1) = (/ & - & 0.12668e-04,0.12826e-04,0.12999e-04,0.13018e-04,0.12872e-04 /) - kbo(:,42, 1) = (/ & - & 0.10356e-04,0.10475e-04,0.10620e-04,0.10666e-04,0.10580e-04 /) - kbo(:,43, 1) = (/ & - & 0.83551e-05,0.84490e-05,0.85217e-05,0.86140e-05,0.86044e-05 /) - kbo(:,44, 1) = (/ & - & 0.66829e-05,0.68022e-05,0.68791e-05,0.69429e-05,0.69314e-05 /) - kbo(:,45, 1) = (/ & - & 0.53860e-05,0.54494e-05,0.55341e-05,0.55544e-05,0.55761e-05 /) - kbo(:,46, 1) = (/ & - & 0.43207e-05,0.43601e-05,0.44477e-05,0.44761e-05,0.44727e-05 /) - kbo(:,47, 1) = (/ & - & 0.34852e-05,0.34924e-05,0.35555e-05,0.35928e-05,0.35957e-05 /) - kbo(:,48, 1) = (/ & - & 0.27913e-05,0.28024e-05,0.28395e-05,0.28713e-05,0.28836e-05 /) - kbo(:,49, 1) = (/ & - & 0.22267e-05,0.22549e-05,0.22736e-05,0.22769e-05,0.23083e-05 /) - kbo(:,50, 1) = (/ & - & 0.17814e-05,0.18056e-05,0.18272e-05,0.18178e-05,0.18340e-05 /) - kbo(:,51, 1) = (/ & - & 0.14202e-05,0.14390e-05,0.14605e-05,0.14515e-05,0.14607e-05 /) - kbo(:,52, 1) = (/ & - & 0.11328e-05,0.11511e-05,0.11629e-05,0.11627e-05,0.11618e-05 /) - kbo(:,53, 1) = (/ & - & 0.90478e-06,0.91291e-06,0.92251e-06,0.92910e-06,0.92898e-06 /) - kbo(:,54, 1) = (/ & - & 0.71737e-06,0.72444e-06,0.73271e-06,0.73646e-06,0.74079e-06 /) - kbo(:,55, 1) = (/ & - & 0.56522e-06,0.57444e-06,0.57690e-06,0.58444e-06,0.59006e-06 /) - kbo(:,56, 1) = (/ & - & 0.44522e-06,0.45152e-06,0.45592e-06,0.46208e-06,0.46721e-06 /) - kbo(:,57, 1) = (/ & - & 0.35045e-06,0.35432e-06,0.36035e-06,0.36444e-06,0.36942e-06 /) - kbo(:,58, 1) = (/ & - & 0.27513e-06,0.27793e-06,0.28330e-06,0.28729e-06,0.29229e-06 /) - kbo(:,59, 1) = (/ & - & 0.21608e-06,0.21966e-06,0.22301e-06,0.22740e-06,0.23129e-06 /) - kbo(:,13, 2) = (/ & - & 0.41669e-02,0.42141e-02,0.42434e-02,0.42683e-02,0.42755e-02 /) - kbo(:,14, 2) = (/ & - & 0.34875e-02,0.35201e-02,0.35377e-02,0.35547e-02,0.35629e-02 /) - kbo(:,15, 2) = (/ & - & 0.29417e-02,0.29682e-02,0.29797e-02,0.29877e-02,0.29948e-02 /) - kbo(:,16, 2) = (/ & - & 0.25072e-02,0.25337e-02,0.25373e-02,0.25423e-02,0.25464e-02 /) - kbo(:,17, 2) = (/ & - & 0.21640e-02,0.21948e-02,0.21974e-02,0.21951e-02,0.21930e-02 /) - kbo(:,18, 2) = (/ & - & 0.18910e-02,0.19229e-02,0.19301e-02,0.19201e-02,0.19153e-02 /) - kbo(:,19, 2) = (/ & - & 0.16495e-02,0.16848e-02,0.16944e-02,0.16885e-02,0.16779e-02 /) - kbo(:,20, 2) = (/ & - & 0.14018e-02,0.14333e-02,0.14424e-02,0.14394e-02,0.14287e-02 /) - kbo(:,21, 2) = (/ & - & 0.11832e-02,0.12125e-02,0.12189e-02,0.12151e-02,0.12082e-02 /) - kbo(:,22, 2) = (/ & - & 0.99669e-03,0.10233e-02,0.10268e-02,0.10250e-02,0.10191e-02 /) - kbo(:,23, 2) = (/ & - & 0.83734e-03,0.86220e-03,0.86642e-03,0.86487e-03,0.86054e-03 /) - kbo(:,24, 2) = (/ & - & 0.70349e-03,0.72654e-03,0.73243e-03,0.73077e-03,0.72754e-03 /) - kbo(:,25, 2) = (/ & - & 0.59070e-03,0.61044e-03,0.61929e-03,0.61773e-03,0.61583e-03 /) - kbo(:,26, 2) = (/ & - & 0.49716e-03,0.51139e-03,0.52115e-03,0.52139e-03,0.52023e-03 /) - kbo(:,27, 2) = (/ & - & 0.41822e-03,0.42737e-03,0.43808e-03,0.43978e-03,0.43884e-03 /) - kbo(:,28, 2) = (/ & - & 0.35061e-03,0.35848e-03,0.36841e-03,0.37095e-03,0.37053e-03 /) - kbo(:,29, 2) = (/ & - & 0.29391e-03,0.30227e-03,0.30912e-03,0.31376e-03,0.31382e-03 /) - kbo(:,30, 2) = (/ & - & 0.24878e-03,0.25551e-03,0.25990e-03,0.26493e-03,0.26717e-03 /) - kbo(:,31, 2) = (/ & - & 0.21146e-03,0.21606e-03,0.21973e-03,0.22385e-03,0.22711e-03 /) - kbo(:,32, 2) = (/ & - & 0.17989e-03,0.18248e-03,0.18678e-03,0.18914e-03,0.19265e-03 /) - kbo(:,33, 2) = (/ & - & 0.15377e-03,0.15569e-03,0.15798e-03,0.16109e-03,0.16313e-03 /) - kbo(:,34, 2) = (/ & - & 0.13129e-03,0.13289e-03,0.13431e-03,0.13679e-03,0.13869e-03 /) - kbo(:,35, 2) = (/ & - & 0.11225e-03,0.11370e-03,0.11480e-03,0.11616e-03,0.11774e-03 /) - kbo(:,36, 2) = (/ & - & 0.96722e-04,0.97093e-04,0.98641e-04,0.99964e-04,0.10029e-03 /) - kbo(:,37, 2) = (/ & - & 0.81278e-04,0.81350e-04,0.82442e-04,0.83555e-04,0.83990e-04 /) - kbo(:,38, 2) = (/ & - & 0.68481e-04,0.68398e-04,0.68899e-04,0.69737e-04,0.70187e-04 /) - kbo(:,39, 2) = (/ & - & 0.57588e-04,0.57895e-04,0.57814e-04,0.58095e-04,0.58861e-04 /) - kbo(:,40, 2) = (/ & - & 0.47541e-04,0.47609e-04,0.47587e-04,0.47727e-04,0.48149e-04 /) - kbo(:,41, 2) = (/ & - & 0.39099e-04,0.39119e-04,0.39164e-04,0.39161e-04,0.39530e-04 /) - kbo(:,42, 2) = (/ & - & 0.32129e-04,0.32067e-04,0.32113e-04,0.32128e-04,0.32332e-04 /) - kbo(:,43, 2) = (/ & - & 0.26339e-04,0.26195e-04,0.26218e-04,0.26313e-04,0.26301e-04 /) - kbo(:,44, 2) = (/ & - & 0.21510e-04,0.21341e-04,0.21297e-04,0.21378e-04,0.21395e-04 /) - kbo(:,45, 2) = (/ & - & 0.17530e-04,0.17454e-04,0.17341e-04,0.17352e-04,0.17454e-04 /) - kbo(:,46, 2) = (/ & - & 0.14267e-04,0.14213e-04,0.14118e-04,0.14076e-04,0.14192e-04 /) - kbo(:,47, 2) = (/ & - & 0.11510e-04,0.11593e-04,0.11522e-04,0.11431e-04,0.11494e-04 /) - kbo(:,48, 2) = (/ & - & 0.92607e-05,0.93963e-05,0.93931e-05,0.93302e-05,0.93175e-05 /) - kbo(:,49, 2) = (/ & - & 0.74566e-05,0.75640e-05,0.76551e-05,0.76195e-05,0.75706e-05 /) - kbo(:,50, 2) = (/ & - & 0.60069e-05,0.60789e-05,0.61866e-05,0.62136e-05,0.61878e-05 /) - kbo(:,51, 2) = (/ & - & 0.48719e-05,0.49189e-05,0.49852e-05,0.50599e-05,0.50406e-05 /) - kbo(:,52, 2) = (/ & - & 0.39542e-05,0.39622e-05,0.40023e-05,0.40853e-05,0.41134e-05 /) - kbo(:,53, 2) = (/ & - & 0.31898e-05,0.32108e-05,0.32348e-05,0.32873e-05,0.33341e-05 /) - kbo(:,54, 2) = (/ & - & 0.25786e-05,0.26009e-05,0.26192e-05,0.26504e-05,0.26983e-05 /) - kbo(:,55, 2) = (/ & - & 0.20942e-05,0.21017e-05,0.21274e-05,0.21442e-05,0.21775e-05 /) - kbo(:,56, 2) = (/ & - & 0.16959e-05,0.17018e-05,0.17251e-05,0.17374e-05,0.17575e-05 /) - kbo(:,57, 2) = (/ & - & 0.13662e-05,0.13805e-05,0.13926e-05,0.14091e-05,0.14210e-05 /) - kbo(:,58, 2) = (/ & - & 0.10989e-05,0.11199e-05,0.11269e-05,0.11436e-05,0.11502e-05 /) - kbo(:,59, 2) = (/ & - & 0.88647e-06,0.91054e-06,0.91770e-06,0.92872e-06,0.93619e-06 /) - kbo(:,13, 3) = (/ & - & 0.91432e-02,0.90907e-02,0.90565e-02,0.89984e-02,0.89385e-02 /) - kbo(:,14, 3) = (/ & - & 0.76455e-02,0.75988e-02,0.75709e-02,0.75150e-02,0.74448e-02 /) - kbo(:,15, 3) = (/ & - & 0.64231e-02,0.63826e-02,0.63449e-02,0.62999e-02,0.62412e-02 /) - kbo(:,16, 3) = (/ & - & 0.54475e-02,0.53998e-02,0.53630e-02,0.53153e-02,0.52574e-02 /) - kbo(:,17, 3) = (/ & - & 0.46876e-02,0.46363e-02,0.45869e-02,0.45398e-02,0.44911e-02 /) - kbo(:,18, 3) = (/ & - & 0.40806e-02,0.40265e-02,0.39670e-02,0.39185e-02,0.38714e-02 /) - kbo(:,19, 3) = (/ & - & 0.35897e-02,0.35272e-02,0.34695e-02,0.34174e-02,0.33721e-02 /) - kbo(:,20, 3) = (/ & - & 0.30557e-02,0.30003e-02,0.29518e-02,0.29027e-02,0.28623e-02 /) - kbo(:,21, 3) = (/ & - & 0.25840e-02,0.25346e-02,0.24907e-02,0.24530e-02,0.24134e-02 /) - kbo(:,22, 3) = (/ & - & 0.21784e-02,0.21342e-02,0.20972e-02,0.20639e-02,0.20310e-02 /) - kbo(:,23, 3) = (/ & - & 0.18415e-02,0.17987e-02,0.17683e-02,0.17405e-02,0.17162e-02 /) - kbo(:,24, 3) = (/ & - & 0.15599e-02,0.15210e-02,0.14940e-02,0.14715e-02,0.14516e-02 /) - kbo(:,25, 3) = (/ & - & 0.13214e-02,0.12882e-02,0.12631e-02,0.12449e-02,0.12269e-02 /) - kbo(:,26, 3) = (/ & - & 0.11148e-02,0.10885e-02,0.10663e-02,0.10485e-02,0.10339e-02 /) - kbo(:,27, 3) = (/ & - & 0.94180e-03,0.92291e-03,0.90201e-03,0.88582e-03,0.87360e-03 /) - kbo(:,28, 3) = (/ & - & 0.79929e-03,0.78315e-03,0.76525e-03,0.75093e-03,0.73943e-03 /) - kbo(:,29, 3) = (/ & - & 0.68110e-03,0.66580e-03,0.65234e-03,0.63866e-03,0.62757e-03 /) - kbo(:,30, 3) = (/ & - & 0.57975e-03,0.56820e-03,0.55835e-03,0.54581e-03,0.53624e-03 /) - kbo(:,31, 3) = (/ & - & 0.49551e-03,0.48804e-03,0.47841e-03,0.46871e-03,0.45833e-03 /) - kbo(:,32, 3) = (/ & - & 0.42572e-03,0.42052e-03,0.41099e-03,0.40377e-03,0.39554e-03 /) - kbo(:,33, 3) = (/ & - & 0.36528e-03,0.36135e-03,0.35701e-03,0.34948e-03,0.34456e-03 /) - kbo(:,34, 3) = (/ & - & 0.31415e-03,0.31283e-03,0.30989e-03,0.30612e-03,0.30054e-03 /) - kbo(:,35, 3) = (/ & - & 0.27352e-03,0.27102e-03,0.26979e-03,0.26826e-03,0.26448e-03 /) - kbo(:,36, 3) = (/ & - & 0.23967e-03,0.23742e-03,0.23456e-03,0.23474e-03,0.23316e-03 /) - kbo(:,37, 3) = (/ & - & 0.20338e-03,0.20142e-03,0.19919e-03,0.19875e-03,0.19818e-03 /) - kbo(:,38, 3) = (/ & - & 0.17257e-03,0.17079e-03,0.16890e-03,0.16818e-03,0.16767e-03 /) - kbo(:,39, 3) = (/ & - & 0.14733e-03,0.14508e-03,0.14396e-03,0.14263e-03,0.14203e-03 /) - kbo(:,40, 3) = (/ & - & 0.12225e-03,0.12069e-03,0.11949e-03,0.11833e-03,0.11808e-03 /) - kbo(:,41, 3) = (/ & - & 0.10097e-03,0.10002e-03,0.98765e-04,0.97895e-04,0.97754e-04 /) - kbo(:,42, 3) = (/ & - & 0.83346e-04,0.82796e-04,0.81713e-04,0.81007e-04,0.80814e-04 /) - kbo(:,43, 3) = (/ & - & 0.68346e-04,0.68043e-04,0.67367e-04,0.66543e-04,0.66059e-04 /) - kbo(:,44, 3) = (/ & - & 0.55818e-04,0.55703e-04,0.55284e-04,0.54584e-04,0.54239e-04 /) - kbo(:,45, 3) = (/ & - & 0.45332e-04,0.45541e-04,0.45337e-04,0.44929e-04,0.44433e-04 /) - kbo(:,46, 3) = (/ & - & 0.36748e-04,0.37223e-04,0.37146e-04,0.36884e-04,0.36439e-04 /) - kbo(:,47, 3) = (/ & - & 0.29601e-04,0.30289e-04,0.30405e-04,0.30257e-04,0.29929e-04 /) - kbo(:,48, 3) = (/ & - & 0.23826e-04,0.24579e-04,0.24815e-04,0.24762e-04,0.24572e-04 /) - kbo(:,49, 3) = (/ & - & 0.19377e-04,0.19814e-04,0.20191e-04,0.20227e-04,0.20080e-04 /) - kbo(:,50, 3) = (/ & - & 0.15665e-04,0.15965e-04,0.16366e-04,0.16467e-04,0.16386e-04 /) - kbo(:,51, 3) = (/ & - & 0.12631e-04,0.12915e-04,0.13203e-04,0.13389e-04,0.13403e-04 /) - kbo(:,52, 3) = (/ & - & 0.10160e-04,0.10402e-04,0.10609e-04,0.10858e-04,0.10900e-04 /) - kbo(:,53, 3) = (/ & - & 0.81514e-05,0.83717e-05,0.85717e-05,0.87255e-05,0.88490e-05 /) - kbo(:,54, 3) = (/ & - & 0.65924e-05,0.67623e-05,0.69218e-05,0.70363e-05,0.71744e-05 /) - kbo(:,55, 3) = (/ & - & 0.53378e-05,0.54823e-05,0.56002e-05,0.57079e-05,0.58136e-05 /) - kbo(:,56, 3) = (/ & - & 0.43093e-05,0.44306e-05,0.45341e-05,0.46443e-05,0.47053e-05 /) - kbo(:,57, 3) = (/ & - & 0.34880e-05,0.35826e-05,0.36738e-05,0.37492e-05,0.38094e-05 /) - kbo(:,58, 3) = (/ & - & 0.28214e-05,0.28911e-05,0.29636e-05,0.30269e-05,0.30943e-05 /) - kbo(:,59, 3) = (/ & - & 0.23049e-05,0.23610e-05,0.24232e-05,0.24708e-05,0.25266e-05 /) - kbo(:,13, 4) = (/ & - & 0.16886e-01,0.17177e-01,0.17415e-01,0.17613e-01,0.17771e-01 /) - kbo(:,14, 4) = (/ & - & 0.14297e-01,0.14572e-01,0.14791e-01,0.14925e-01,0.15051e-01 /) - kbo(:,15, 4) = (/ & - & 0.12142e-01,0.12342e-01,0.12507e-01,0.12640e-01,0.12754e-01 /) - kbo(:,16, 4) = (/ & - & 0.10284e-01,0.10422e-01,0.10545e-01,0.10662e-01,0.10740e-01 /) - kbo(:,17, 4) = (/ & - & 0.87377e-02,0.88415e-02,0.89329e-02,0.90175e-02,0.90716e-02 /) - kbo(:,18, 4) = (/ & - & 0.74766e-02,0.75366e-02,0.76038e-02,0.76818e-02,0.77135e-02 /) - kbo(:,19, 4) = (/ & - & 0.64241e-02,0.64546e-02,0.65027e-02,0.65449e-02,0.65755e-02 /) - kbo(:,20, 4) = (/ & - & 0.54390e-02,0.54528e-02,0.54854e-02,0.55046e-02,0.55309e-02 /) - kbo(:,21, 4) = (/ & - & 0.45856e-02,0.45888e-02,0.46080e-02,0.46219e-02,0.46381e-02 /) - kbo(:,22, 4) = (/ & - & 0.38581e-02,0.38555e-02,0.38631e-02,0.38756e-02,0.38888e-02 /) - kbo(:,23, 4) = (/ & - & 0.32522e-02,0.32442e-02,0.32437e-02,0.32522e-02,0.32616e-02 /) - kbo(:,24, 4) = (/ & - & 0.27421e-02,0.27302e-02,0.27267e-02,0.27311e-02,0.27351e-02 /) - kbo(:,25, 4) = (/ & - & 0.23082e-02,0.22984e-02,0.22916e-02,0.22928e-02,0.22950e-02 /) - kbo(:,26, 4) = (/ & - & 0.19386e-02,0.19299e-02,0.19241e-02,0.19234e-02,0.19234e-02 /) - kbo(:,27, 4) = (/ & - & 0.16295e-02,0.16227e-02,0.16172e-02,0.16132e-02,0.16138e-02 /) - kbo(:,28, 4) = (/ & - & 0.13714e-02,0.13653e-02,0.13589e-02,0.13555e-02,0.13562e-02 /) - kbo(:,29, 4) = (/ & - & 0.11583e-02,0.11513e-02,0.11440e-02,0.11416e-02,0.11458e-02 /) - kbo(:,30, 4) = (/ & - & 0.98213e-03,0.97362e-03,0.96774e-03,0.96738e-03,0.97898e-03 /) - kbo(:,31, 4) = (/ & - & 0.83694e-03,0.82733e-03,0.82506e-03,0.82584e-03,0.83454e-03 /) - kbo(:,32, 4) = (/ & - & 0.71631e-03,0.70972e-03,0.70944e-03,0.70782e-03,0.71382e-03 /) - kbo(:,33, 4) = (/ & - & 0.62056e-03,0.61607e-03,0.61112e-03,0.60974e-03,0.61416e-03 /) - kbo(:,34, 4) = (/ & - & 0.54260e-03,0.53530e-03,0.53018e-03,0.53196e-03,0.53190e-03 /) - kbo(:,35, 4) = (/ & - & 0.47557e-03,0.47060e-03,0.46470e-03,0.46463e-03,0.46278e-03 /) - kbo(:,36, 4) = (/ & - & 0.42108e-03,0.41716e-03,0.41356e-03,0.41052e-03,0.40671e-03 /) - kbo(:,37, 4) = (/ & - & 0.36059e-03,0.35753e-03,0.35465e-03,0.35204e-03,0.34625e-03 /) - kbo(:,38, 4) = (/ & - & 0.30926e-03,0.30682e-03,0.30403e-03,0.30126e-03,0.29597e-03 /) - kbo(:,39, 4) = (/ & - & 0.26586e-03,0.26397e-03,0.26023e-03,0.25654e-03,0.25399e-03 /) - kbo(:,40, 4) = (/ & - & 0.22228e-03,0.22028e-03,0.21711e-03,0.21418e-03,0.21203e-03 /) - kbo(:,41, 4) = (/ & - & 0.18516e-03,0.18277e-03,0.18056e-03,0.17797e-03,0.17615e-03 /) - kbo(:,42, 4) = (/ & - & 0.15367e-03,0.15191e-03,0.15012e-03,0.14803e-03,0.14667e-03 /) - kbo(:,43, 4) = (/ & - & 0.12696e-03,0.12546e-03,0.12398e-03,0.12239e-03,0.12042e-03 /) - kbo(:,44, 4) = (/ & - & 0.10470e-03,0.10323e-03,0.10199e-03,0.10082e-03,0.99093e-04 /) - kbo(:,45, 4) = (/ & - & 0.86543e-04,0.84786e-04,0.83972e-04,0.82789e-04,0.81392e-04 /) - kbo(:,46, 4) = (/ & - & 0.71529e-04,0.69963e-04,0.68982e-04,0.67996e-04,0.66867e-04 /) - kbo(:,47, 4) = (/ & - & 0.59457e-04,0.57707e-04,0.56668e-04,0.55899e-04,0.54959e-04 /) - kbo(:,48, 4) = (/ & - & 0.49467e-04,0.47679e-04,0.46593e-04,0.45887e-04,0.45090e-04 /) - kbo(:,49, 4) = (/ & - & 0.40766e-04,0.39435e-04,0.38281e-04,0.37548e-04,0.37003e-04 /) - kbo(:,50, 4) = (/ & - & 0.33628e-04,0.32753e-04,0.31623e-04,0.30893e-04,0.30385e-04 /) - kbo(:,51, 4) = (/ & - & 0.27865e-04,0.27055e-04,0.26162e-04,0.25458e-04,0.24898e-04 /) - kbo(:,52, 4) = (/ & - & 0.22934e-04,0.22328e-04,0.21731e-04,0.20990e-04,0.20456e-04 /) - kbo(:,53, 4) = (/ & - & 0.18846e-04,0.18445e-04,0.17912e-04,0.17357e-04,0.16833e-04 /) - kbo(:,54, 4) = (/ & - & 0.15388e-04,0.15212e-04,0.14808e-04,0.14414e-04,0.13935e-04 /) - kbo(:,55, 4) = (/ & - & 0.12598e-04,0.12543e-04,0.12261e-04,0.11957e-04,0.11571e-04 /) - kbo(:,56, 4) = (/ & - & 0.10381e-04,0.10344e-04,0.10166e-04,0.98775e-05,0.96020e-05 /) - kbo(:,57, 4) = (/ & - & 0.85457e-05,0.84639e-05,0.83932e-05,0.81757e-05,0.79545e-05 /) - kbo(:,58, 4) = (/ & - & 0.70397e-05,0.69486e-05,0.69316e-05,0.67696e-05,0.65859e-05 /) - kbo(:,59, 4) = (/ & - & 0.58257e-05,0.57596e-05,0.57448e-05,0.56300e-05,0.54831e-05 /) - kbo(:,13, 5) = (/ & - & 0.33040e-01,0.33623e-01,0.34360e-01,0.35360e-01,0.36383e-01 /) - kbo(:,14, 5) = (/ & - & 0.28634e-01,0.29145e-01,0.29913e-01,0.30773e-01,0.31595e-01 /) - kbo(:,15, 5) = (/ & - & 0.24852e-01,0.25387e-01,0.26038e-01,0.26736e-01,0.27406e-01 /) - kbo(:,16, 5) = (/ & - & 0.21426e-01,0.21995e-01,0.22531e-01,0.23082e-01,0.23575e-01 /) - kbo(:,17, 5) = (/ & - & 0.18563e-01,0.19011e-01,0.19492e-01,0.19940e-01,0.20337e-01 /) - kbo(:,18, 5) = (/ & - & 0.16067e-01,0.16476e-01,0.16902e-01,0.17235e-01,0.17579e-01 /) - kbo(:,19, 5) = (/ & - & 0.13911e-01,0.14318e-01,0.14657e-01,0.14999e-01,0.15265e-01 /) - kbo(:,20, 5) = (/ & - & 0.11889e-01,0.12220e-01,0.12522e-01,0.12793e-01,0.13028e-01 /) - kbo(:,21, 5) = (/ & - & 0.10107e-01,0.10365e-01,0.10626e-01,0.10840e-01,0.11030e-01 /) - kbo(:,22, 5) = (/ & - & 0.85828e-02,0.88037e-02,0.90066e-02,0.91828e-02,0.93108e-02 /) - kbo(:,23, 5) = (/ & - & 0.72873e-02,0.74698e-02,0.76229e-02,0.77606e-02,0.78812e-02 /) - kbo(:,24, 5) = (/ & - & 0.61731e-02,0.63486e-02,0.64551e-02,0.65686e-02,0.66826e-02 /) - kbo(:,25, 5) = (/ & - & 0.52349e-02,0.53827e-02,0.54728e-02,0.55581e-02,0.56691e-02 /) - kbo(:,26, 5) = (/ & - & 0.44343e-02,0.45615e-02,0.46303e-02,0.47140e-02,0.48058e-02 /) - kbo(:,27, 5) = (/ & - & 0.37566e-02,0.38599e-02,0.39250e-02,0.39996e-02,0.40739e-02 /) - kbo(:,28, 5) = (/ & - & 0.31898e-02,0.32700e-02,0.33284e-02,0.33863e-02,0.34483e-02 /) - kbo(:,29, 5) = (/ & - & 0.27069e-02,0.27638e-02,0.28173e-02,0.28668e-02,0.29159e-02 /) - kbo(:,30, 5) = (/ & - & 0.22952e-02,0.23414e-02,0.23862e-02,0.24319e-02,0.25045e-02 /) - kbo(:,31, 5) = (/ & - & 0.19469e-02,0.19866e-02,0.20269e-02,0.20617e-02,0.21285e-02 /) - kbo(:,32, 5) = (/ & - & 0.16569e-02,0.16912e-02,0.17225e-02,0.17537e-02,0.18151e-02 /) - kbo(:,33, 5) = (/ & - & 0.14159e-02,0.14407e-02,0.14672e-02,0.14987e-02,0.15568e-02 /) - kbo(:,34, 5) = (/ & - & 0.12124e-02,0.12314e-02,0.12565e-02,0.13096e-02,0.13455e-02 /) - kbo(:,35, 5) = (/ & - & 0.10402e-02,0.10574e-02,0.10852e-02,0.11323e-02,0.11671e-02 /) - kbo(:,36, 5) = (/ & - & 0.89606e-03,0.91393e-03,0.93957e-03,0.98258e-03,0.10142e-02 /) - kbo(:,37, 5) = (/ & - & 0.75556e-03,0.77347e-03,0.79494e-03,0.83337e-03,0.86466e-03 /) - kbo(:,38, 5) = (/ & - & 0.63793e-03,0.65386e-03,0.67373e-03,0.70925e-03,0.73610e-03 /) - kbo(:,39, 5) = (/ & - & 0.53995e-03,0.55394e-03,0.57091e-03,0.59316e-03,0.62725e-03 /) - kbo(:,40, 5) = (/ & - & 0.44830e-03,0.46041e-03,0.47605e-03,0.49517e-03,0.52406e-03 /) - kbo(:,41, 5) = (/ & - & 0.37113e-03,0.38143e-03,0.39555e-03,0.41230e-03,0.43648e-03 /) - kbo(:,42, 5) = (/ & - & 0.30743e-03,0.31617e-03,0.32840e-03,0.34246e-03,0.36323e-03 /) - kbo(:,43, 5) = (/ & - & 0.25237e-03,0.25981e-03,0.27013e-03,0.28179e-03,0.29414e-03 /) - kbo(:,44, 5) = (/ & - & 0.20643e-03,0.21247e-03,0.22138e-03,0.23093e-03,0.24175e-03 /) - kbo(:,45, 5) = (/ & - & 0.16882e-03,0.17379e-03,0.18072e-03,0.18917e-03,0.19837e-03 /) - kbo(:,46, 5) = (/ & - & 0.13808e-03,0.14140e-03,0.14740e-03,0.15462e-03,0.16243e-03 /) - kbo(:,47, 5) = (/ & - & 0.11262e-03,0.11523e-03,0.12010e-03,0.12571e-03,0.13225e-03 /) - kbo(:,48, 5) = (/ & - & 0.91738e-04,0.93816e-04,0.97414e-04,0.10204e-03,0.10733e-03 /) - kbo(:,49, 5) = (/ & - & 0.74533e-04,0.76356e-04,0.78756e-04,0.82697e-04,0.86848e-04 /) - kbo(:,50, 5) = (/ & - & 0.60870e-04,0.62211e-04,0.64031e-04,0.67056e-04,0.70590e-04 /) - kbo(:,51, 5) = (/ & - & 0.49547e-04,0.50786e-04,0.52181e-04,0.54428e-04,0.57574e-04 /) - kbo(:,52, 5) = (/ & - & 0.40457e-04,0.41364e-04,0.42403e-04,0.44095e-04,0.46746e-04 /) - kbo(:,53, 5) = (/ & - & 0.33032e-04,0.33540e-04,0.34449e-04,0.35762e-04,0.37780e-04 /) - kbo(:,54, 5) = (/ & - & 0.27201e-04,0.27411e-04,0.28166e-04,0.29168e-04,0.30744e-04 /) - kbo(:,55, 5) = (/ & - & 0.22471e-04,0.22532e-04,0.23075e-04,0.23887e-04,0.25092e-04 /) - kbo(:,56, 5) = (/ & - & 0.18480e-04,0.18516e-04,0.18857e-04,0.19555e-04,0.20483e-04 /) - kbo(:,57, 5) = (/ & - & 0.15198e-04,0.15262e-04,0.15424e-04,0.15989e-04,0.16742e-04 /) - kbo(:,58, 5) = (/ & - & 0.12523e-04,0.12562e-04,0.12648e-04,0.13089e-04,0.13686e-04 /) - kbo(:,59, 5) = (/ & - & 0.10416e-04,0.10433e-04,0.10536e-04,0.10919e-04,0.11421e-04 /) - kbo(:,13, 6) = (/ & - & 0.69718e-01,0.71167e-01,0.72961e-01,0.74885e-01,0.77322e-01 /) - kbo(:,14, 6) = (/ & - & 0.62182e-01,0.63649e-01,0.65193e-01,0.67193e-01,0.69746e-01 /) - kbo(:,15, 6) = (/ & - & 0.55177e-01,0.56711e-01,0.58414e-01,0.60422e-01,0.62756e-01 /) - kbo(:,16, 6) = (/ & - & 0.48867e-01,0.50234e-01,0.52023e-01,0.54055e-01,0.56254e-01 /) - kbo(:,17, 6) = (/ & - & 0.43174e-01,0.44610e-01,0.46287e-01,0.48302e-01,0.50389e-01 /) - kbo(:,18, 6) = (/ & - & 0.38339e-01,0.39749e-01,0.41335e-01,0.43237e-01,0.45123e-01 /) - kbo(:,19, 6) = (/ & - & 0.34315e-01,0.35543e-01,0.37065e-01,0.38754e-01,0.40597e-01 /) - kbo(:,20, 6) = (/ & - & 0.30036e-01,0.31291e-01,0.32637e-01,0.34202e-01,0.35839e-01 /) - kbo(:,21, 6) = (/ & - & 0.26135e-01,0.27343e-01,0.28574e-01,0.30000e-01,0.31460e-01 /) - kbo(:,22, 6) = (/ & - & 0.22750e-01,0.23832e-01,0.25080e-01,0.26299e-01,0.27580e-01 /) - kbo(:,23, 6) = (/ & - & 0.19795e-01,0.20915e-01,0.22028e-01,0.23060e-01,0.24140e-01 /) - kbo(:,24, 6) = (/ & - & 0.17353e-01,0.18346e-01,0.19305e-01,0.20238e-01,0.21103e-01 /) - kbo(:,25, 6) = (/ & - & 0.15226e-01,0.16064e-01,0.16955e-01,0.17722e-01,0.18477e-01 /) - kbo(:,26, 6) = (/ & - & 0.13309e-01,0.14087e-01,0.14848e-01,0.15498e-01,0.16180e-01 /) - kbo(:,27, 6) = (/ & - & 0.11623e-01,0.12295e-01,0.12913e-01,0.13525e-01,0.14113e-01 /) - kbo(:,28, 6) = (/ & - & 0.10147e-01,0.10710e-01,0.11240e-01,0.11795e-01,0.12384e-01 /) - kbo(:,29, 6) = (/ & - & 0.87968e-02,0.92904e-02,0.97797e-02,0.10288e-01,0.10828e-01 /) - kbo(:,30, 6) = (/ & - & 0.76490e-02,0.80771e-02,0.85219e-02,0.90152e-02,0.97888e-02 /) - kbo(:,31, 6) = (/ & - & 0.66330e-02,0.70376e-02,0.74659e-02,0.79113e-02,0.86622e-02 /) - kbo(:,32, 6) = (/ & - & 0.58073e-02,0.61697e-02,0.65754e-02,0.70309e-02,0.77115e-02 /) - kbo(:,33, 6) = (/ & - & 0.51062e-02,0.54682e-02,0.58582e-02,0.62737e-02,0.69163e-02 /) - kbo(:,34, 6) = (/ & - & 0.45302e-02,0.48855e-02,0.52639e-02,0.58227e-02,0.62719e-02 /) - kbo(:,35, 6) = (/ & - & 0.40254e-02,0.43599e-02,0.47158e-02,0.52732e-02,0.57228e-02 /) - kbo(:,36, 6) = (/ & - & 0.35647e-02,0.38837e-02,0.42167e-02,0.47705e-02,0.52032e-02 /) - kbo(:,37, 6) = (/ & - & 0.30730e-02,0.33561e-02,0.36823e-02,0.41868e-02,0.45932e-02 /) - kbo(:,38, 6) = (/ & - & 0.26407e-02,0.29052e-02,0.32061e-02,0.36781e-02,0.40664e-02 /) - kbo(:,39, 6) = (/ & - & 0.22667e-02,0.25156e-02,0.28017e-02,0.31173e-02,0.36136e-02 /) - kbo(:,40, 6) = (/ & - & 0.19056e-02,0.21267e-02,0.23879e-02,0.26789e-02,0.31309e-02 /) - kbo(:,41, 6) = (/ & - & 0.15967e-02,0.17952e-02,0.20263e-02,0.22865e-02,0.27062e-02 /) - kbo(:,42, 6) = (/ & - & 0.13343e-02,0.15081e-02,0.17167e-02,0.19538e-02,0.23416e-02 /) - kbo(:,43, 6) = (/ & - & 0.10981e-02,0.12492e-02,0.14292e-02,0.16430e-02,0.19013e-02 /) - kbo(:,44, 6) = (/ & - & 0.89464e-03,0.10267e-02,0.11827e-02,0.13698e-02,0.16046e-02 /) - kbo(:,45, 6) = (/ & - & 0.72683e-03,0.83985e-03,0.97469e-03,0.11376e-02,0.13459e-02 /) - kbo(:,46, 6) = (/ & - & 0.58610e-03,0.68242e-03,0.79873e-03,0.94079e-03,0.11248e-02 /) - kbo(:,47, 6) = (/ & - & 0.46823e-03,0.54958e-03,0.64876e-03,0.77111e-03,0.93276e-03 /) - kbo(:,48, 6) = (/ & - & 0.37202e-03,0.44089e-03,0.52431e-03,0.62811e-03,0.76979e-03 /) - kbo(:,49, 6) = (/ & - & 0.29424e-03,0.35087e-03,0.42017e-03,0.50926e-03,0.63166e-03 /) - kbo(:,50, 6) = (/ & - & 0.23381e-03,0.28036e-03,0.33854e-03,0.41547e-03,0.52066e-03 /) - kbo(:,51, 6) = (/ & - & 0.18542e-03,0.22410e-03,0.27211e-03,0.33806e-03,0.42775e-03 /) - kbo(:,52, 6) = (/ & - & 0.14646e-03,0.17824e-03,0.21799e-03,0.27400e-03,0.34964e-03 /) - kbo(:,53, 6) = (/ & - & 0.11499e-03,0.14049e-03,0.17412e-03,0.22038e-03,0.28435e-03 /) - kbo(:,54, 6) = (/ & - & 0.91160e-04,0.11217e-03,0.13972e-03,0.17793e-03,0.23213e-03 /) - kbo(:,55, 6) = (/ & - & 0.72474e-04,0.89606e-04,0.11228e-03,0.14368e-03,0.18928e-03 /) - kbo(:,56, 6) = (/ & - & 0.57463e-04,0.71291e-04,0.89786e-04,0.11554e-03,0.15352e-03 /) - kbo(:,57, 6) = (/ & - & 0.45287e-04,0.56571e-04,0.71524e-04,0.92319e-04,0.12382e-03 /) - kbo(:,58, 6) = (/ & - & 0.35841e-04,0.44939e-04,0.57025e-04,0.73710e-04,0.99673e-04 /) - kbo(:,59, 6) = (/ & - & 0.29941e-04,0.37721e-04,0.48119e-04,0.62420e-04,0.85059e-04 /) - kbo(:,13, 7) = (/ & - & 0.16189e+00,0.16561e+00,0.16999e+00,0.17514e+00,0.18068e+00 /) - kbo(:,14, 7) = (/ & - & 0.14981e+00,0.15416e+00,0.15917e+00,0.16420e+00,0.16989e+00 /) - kbo(:,15, 7) = (/ & - & 0.13875e+00,0.14297e+00,0.14757e+00,0.15249e+00,0.15852e+00 /) - kbo(:,16, 7) = (/ & - & 0.12672e+00,0.13073e+00,0.13523e+00,0.14037e+00,0.14640e+00 /) - kbo(:,17, 7) = (/ & - & 0.11530e+00,0.11958e+00,0.12450e+00,0.12975e+00,0.13596e+00 /) - kbo(:,18, 7) = (/ & - & 0.10572e+00,0.11005e+00,0.11482e+00,0.12031e+00,0.12674e+00 /) - kbo(:,19, 7) = (/ & - & 0.97798e-01,0.10221e+00,0.10713e+00,0.11251e+00,0.11882e+00 /) - kbo(:,20, 7) = (/ & - & 0.88438e-01,0.93059e-01,0.98290e-01,0.10406e+00,0.11034e+00 /) - kbo(:,21, 7) = (/ & - & 0.79615e-01,0.84383e-01,0.89776e-01,0.95707e-01,0.10218e+00 /) - kbo(:,22, 7) = (/ & - & 0.71663e-01,0.76568e-01,0.81968e-01,0.88106e-01,0.94703e-01 /) - kbo(:,23, 7) = (/ & - & 0.64729e-01,0.69601e-01,0.75178e-01,0.81445e-01,0.88072e-01 /) - kbo(:,24, 7) = (/ & - & 0.58713e-01,0.63692e-01,0.69398e-01,0.75609e-01,0.82402e-01 /) - kbo(:,25, 7) = (/ & - & 0.53422e-01,0.58504e-01,0.64255e-01,0.70582e-01,0.77266e-01 /) - kbo(:,26, 7) = (/ & - & 0.48884e-01,0.53907e-01,0.59754e-01,0.66093e-01,0.72781e-01 /) - kbo(:,27, 7) = (/ & - & 0.44782e-01,0.49959e-01,0.55649e-01,0.61937e-01,0.68517e-01 /) - kbo(:,28, 7) = (/ & - & 0.41164e-01,0.46305e-01,0.52009e-01,0.58205e-01,0.64389e-01 /) - kbo(:,29, 7) = (/ & - & 0.37976e-01,0.43033e-01,0.48696e-01,0.54470e-01,0.60707e-01 /) - kbo(:,30, 7) = (/ & - & 0.35210e-01,0.40258e-01,0.45653e-01,0.51435e-01,0.59091e-01 /) - kbo(:,31, 7) = (/ & - & 0.32774e-01,0.37557e-01,0.43028e-01,0.48762e-01,0.56208e-01 /) - kbo(:,32, 7) = (/ & - & 0.30628e-01,0.35555e-01,0.40840e-01,0.46513e-01,0.53917e-01 /) - kbo(:,33, 7) = (/ & - & 0.29120e-01,0.33908e-01,0.39209e-01,0.44801e-01,0.52179e-01 /) - kbo(:,34, 7) = (/ & - & 0.27843e-01,0.32610e-01,0.37873e-01,0.45101e-01,0.51127e-01 /) - kbo(:,35, 7) = (/ & - & 0.26429e-01,0.31201e-01,0.36480e-01,0.43796e-01,0.49886e-01 /) - kbo(:,36, 7) = (/ & - & 0.24910e-01,0.29603e-01,0.34935e-01,0.42317e-01,0.48474e-01 /) - kbo(:,37, 7) = (/ & - & 0.22623e-01,0.27186e-01,0.32364e-01,0.39709e-01,0.45895e-01 /) - kbo(:,38, 7) = (/ & - & 0.20536e-01,0.25035e-01,0.30138e-01,0.37341e-01,0.43584e-01 /) - kbo(:,39, 7) = (/ & - & 0.18744e-01,0.23143e-01,0.28133e-01,0.33754e-01,0.41569e-01 /) - kbo(:,40, 7) = (/ & - & 0.16632e-01,0.20751e-01,0.25556e-01,0.30972e-01,0.38593e-01 /) - kbo(:,41, 7) = (/ & - & 0.14671e-01,0.18541e-01,0.23110e-01,0.28292e-01,0.35702e-01 /) - kbo(:,42, 7) = (/ & - & 0.12909e-01,0.16573e-01,0.20901e-01,0.25885e-01,0.32997e-01 /) - kbo(:,43, 7) = (/ & - & 0.11155e-01,0.14521e-01,0.18561e-01,0.23268e-01,0.28558e-01 /) - kbo(:,44, 7) = (/ & - & 0.95144e-02,0.12576e-01,0.16313e-01,0.20662e-01,0.25638e-01 /) - kbo(:,45, 7) = (/ & - & 0.80643e-02,0.10847e-01,0.14290e-01,0.18347e-01,0.23034e-01 /) - kbo(:,46, 7) = (/ & - & 0.67589e-02,0.92659e-02,0.12372e-01,0.16082e-01,0.20456e-01 /) - kbo(:,47, 7) = (/ & - & 0.55482e-02,0.77474e-02,0.10528e-01,0.13920e-01,0.17966e-01 /) - kbo(:,48, 7) = (/ & - & 0.45013e-02,0.64175e-02,0.88907e-02,0.11958e-01,0.15638e-01 /) - kbo(:,49, 7) = (/ & - & 0.36173e-02,0.52743e-02,0.74530e-02,0.10200e-01,0.13544e-01 /) - kbo(:,50, 7) = (/ & - & 0.29073e-02,0.43372e-02,0.62514e-02,0.87078e-02,0.11757e-01 /) - kbo(:,51, 7) = (/ & - & 0.23200e-02,0.35429e-02,0.52236e-02,0.74160e-02,0.10190e-01 /) - kbo(:,52, 7) = (/ & - & 0.18398e-02,0.28704e-02,0.43321e-02,0.62743e-02,0.87585e-02 /) - kbo(:,53, 7) = (/ & - & 0.14394e-02,0.22999e-02,0.35535e-02,0.52615e-02,0.74854e-02 /) - kbo(:,54, 7) = (/ & - & 0.11368e-02,0.18545e-02,0.29326e-02,0.44372e-02,0.64347e-02 /) - kbo(:,55, 7) = (/ & - & 0.89467e-03,0.14935e-02,0.24197e-02,0.37410e-02,0.55222e-02 /) - kbo(:,56, 7) = (/ & - & 0.69687e-03,0.11894e-02,0.19763e-02,0.31286e-02,0.47149e-02 /) - kbo(:,57, 7) = (/ & - & 0.53791e-03,0.93747e-03,0.15990e-02,0.25976e-02,0.39986e-02 /) - kbo(:,58, 7) = (/ & - & 0.41410e-03,0.73971e-03,0.12907e-02,0.21482e-02,0.33858e-02 /) - kbo(:,59, 7) = (/ & - & 0.35405e-03,0.64717e-03,0.11503e-02,0.19466e-02,0.31094e-02 /) - kbo(:,13, 8) = (/ & - & 0.45516e+00,0.46955e+00,0.48450e+00,0.50029e+00,0.51769e+00 /) - kbo(:,14, 8) = (/ & - & 0.43991e+00,0.45312e+00,0.46646e+00,0.48116e+00,0.49718e+00 /) - kbo(:,15, 8) = (/ & - & 0.42871e+00,0.44246e+00,0.45762e+00,0.47406e+00,0.49132e+00 /) - kbo(:,16, 8) = (/ & - & 0.40699e+00,0.42153e+00,0.43710e+00,0.45468e+00,0.47435e+00 /) - kbo(:,17, 8) = (/ & - & 0.38538e+00,0.39940e+00,0.41418e+00,0.43146e+00,0.45140e+00 /) - kbo(:,18, 8) = (/ & - & 0.36235e+00,0.37741e+00,0.39391e+00,0.41121e+00,0.43054e+00 /) - kbo(:,19, 8) = (/ & - & 0.34180e+00,0.35677e+00,0.37295e+00,0.39070e+00,0.41121e+00 /) - kbo(:,20, 8) = (/ & - & 0.31818e+00,0.33243e+00,0.34824e+00,0.36683e+00,0.38832e+00 /) - kbo(:,21, 8) = (/ & - & 0.29454e+00,0.30892e+00,0.32519e+00,0.34434e+00,0.36621e+00 /) - kbo(:,22, 8) = (/ & - & 0.27292e+00,0.28819e+00,0.30567e+00,0.32553e+00,0.34730e+00 /) - kbo(:,23, 8) = (/ & - & 0.25455e+00,0.27053e+00,0.28810e+00,0.30845e+00,0.33065e+00 /) - kbo(:,24, 8) = (/ & - & 0.23920e+00,0.25523e+00,0.27293e+00,0.29370e+00,0.31644e+00 /) - kbo(:,25, 8) = (/ & - & 0.22572e+00,0.24152e+00,0.26024e+00,0.28092e+00,0.30402e+00 /) - kbo(:,26, 8) = (/ & - & 0.21333e+00,0.23053e+00,0.24913e+00,0.27069e+00,0.29445e+00 /) - kbo(:,27, 8) = (/ & - & 0.20216e+00,0.22006e+00,0.23987e+00,0.26172e+00,0.28552e+00 /) - kbo(:,28, 8) = (/ & - & 0.19243e+00,0.21106e+00,0.23162e+00,0.25373e+00,0.27880e+00 /) - kbo(:,29, 8) = (/ & - & 0.18399e+00,0.20352e+00,0.22446e+00,0.24815e+00,0.27383e+00 /) - kbo(:,30, 8) = (/ & - & 0.17696e+00,0.19707e+00,0.21934e+00,0.24428e+00,0.27560e+00 /) - kbo(:,31, 8) = (/ & - & 0.17154e+00,0.19276e+00,0.21622e+00,0.24297e+00,0.27512e+00 /) - kbo(:,32, 8) = (/ & - & 0.16864e+00,0.19074e+00,0.21586e+00,0.24341e+00,0.27678e+00 /) - kbo(:,33, 8) = (/ & - & 0.16705e+00,0.19103e+00,0.21725e+00,0.24571e+00,0.27988e+00 /) - kbo(:,34, 8) = (/ & - & 0.16718e+00,0.19214e+00,0.21923e+00,0.25236e+00,0.28358e+00 /) - kbo(:,35, 8) = (/ & - & 0.16615e+00,0.19194e+00,0.21973e+00,0.25386e+00,0.28528e+00 /) - kbo(:,36, 8) = (/ & - & 0.16355e+00,0.18981e+00,0.21857e+00,0.25318e+00,0.28503e+00 /) - kbo(:,37, 8) = (/ & - & 0.15644e+00,0.18272e+00,0.21137e+00,0.24627e+00,0.27830e+00 /) - kbo(:,38, 8) = (/ & - & 0.14985e+00,0.17574e+00,0.20437e+00,0.23950e+00,0.27160e+00 /) - kbo(:,39, 8) = (/ & - & 0.14373e+00,0.16918e+00,0.19762e+00,0.22814e+00,0.26522e+00 /) - kbo(:,40, 8) = (/ & - & 0.13479e+00,0.15968e+00,0.18756e+00,0.21775e+00,0.25463e+00 /) - kbo(:,41, 8) = (/ & - & 0.12605e+00,0.15045e+00,0.17752e+00,0.20726e+00,0.24367e+00 /) - kbo(:,42, 8) = (/ & - & 0.11784e+00,0.14153e+00,0.16784e+00,0.19712e+00,0.23353e+00 /) - kbo(:,43, 8) = (/ & - & 0.10839e+00,0.13122e+00,0.15696e+00,0.18528e+00,0.21641e+00 /) - kbo(:,44, 8) = (/ & - & 0.98772e-01,0.12078e+00,0.14549e+00,0.17313e+00,0.20344e+00 /) - kbo(:,45, 8) = (/ & - & 0.89757e-01,0.11096e+00,0.13484e+00,0.16135e+00,0.19086e+00 /) - kbo(:,46, 8) = (/ & - & 0.80754e-01,0.10111e+00,0.12397e+00,0.14951e+00,0.17812e+00 /) - kbo(:,47, 8) = (/ & - & 0.71551e-01,0.90848e-01,0.11265e+00,0.13712e+00,0.16456e+00 /) - kbo(:,48, 8) = (/ & - & 0.63023e-01,0.81188e-01,0.10192e+00,0.12530e+00,0.15155e+00 /) - kbo(:,49, 8) = (/ & - & 0.55112e-01,0.71966e-01,0.91627e-01,0.11386e+00,0.13887e+00 /) - kbo(:,50, 8) = (/ & - & 0.48148e-01,0.63904e-01,0.82545e-01,0.10380e+00,0.12775e+00 /) - kbo(:,51, 8) = (/ & - & 0.42077e-01,0.56742e-01,0.74219e-01,0.94436e-01,0.11735e+00 /) - kbo(:,52, 8) = (/ & - & 0.36406e-01,0.49929e-01,0.66400e-01,0.85557e-01,0.10751e+00 /) - kbo(:,53, 8) = (/ & - & 0.31162e-01,0.43645e-01,0.58971e-01,0.77049e-01,0.97772e-01 /) - kbo(:,54, 8) = (/ & - & 0.26848e-01,0.38389e-01,0.52700e-01,0.69937e-01,0.89664e-01 /) - kbo(:,55, 8) = (/ & - & 0.23145e-01,0.33793e-01,0.47177e-01,0.63590e-01,0.82440e-01 /) - kbo(:,56, 8) = (/ & - & 0.19764e-01,0.29522e-01,0.42050e-01,0.57472e-01,0.75623e-01 /) - kbo(:,57, 8) = (/ & - & 0.16713e-01,0.25602e-01,0.37259e-01,0.51705e-01,0.68976e-01 /) - kbo(:,58, 8) = (/ & - & 0.14134e-01,0.22215e-01,0.32983e-01,0.46579e-01,0.62982e-01 /) - kbo(:,59, 8) = (/ & - & 0.13103e-01,0.20874e-01,0.31397e-01,0.44700e-01,0.60881e-01 /) - kbo(:,13, 9) = (/ & - & 0.30563e+01,0.31744e+01,0.32842e+01,0.33901e+01,0.34937e+01 /) - kbo(:,14, 9) = (/ & - & 0.27752e+01,0.28869e+01,0.29933e+01,0.30958e+01,0.31932e+01 /) - kbo(:,15, 9) = (/ & - & 0.25099e+01,0.26164e+01,0.27185e+01,0.28161e+01,0.29094e+01 /) - kbo(:,16, 9) = (/ & - & 0.23062e+01,0.23985e+01,0.24887e+01,0.25791e+01,0.26657e+01 /) - kbo(:,17, 9) = (/ & - & 0.21996e+01,0.22783e+01,0.23521e+01,0.24248e+01,0.25028e+01 /) - kbo(:,18, 9) = (/ & - & 0.22125e+01,0.22932e+01,0.23665e+01,0.24375e+01,0.25051e+01 /) - kbo(:,19, 9) = (/ & - & 0.22641e+01,0.23491e+01,0.24239e+01,0.24973e+01,0.25657e+01 /) - kbo(:,20, 9) = (/ & - & 0.22472e+01,0.23357e+01,0.24204e+01,0.24964e+01,0.25675e+01 /) - kbo(:,21, 9) = (/ & - & 0.21851e+01,0.22830e+01,0.23690e+01,0.24562e+01,0.25370e+01 /) - kbo(:,22, 9) = (/ & - & 0.21175e+01,0.22142e+01,0.23108e+01,0.24049e+01,0.24949e+01 /) - kbo(:,23, 9) = (/ & - & 0.20447e+01,0.21452e+01,0.22435e+01,0.23385e+01,0.24298e+01 /) - kbo(:,24, 9) = (/ & - & 0.19721e+01,0.20737e+01,0.21717e+01,0.22760e+01,0.23715e+01 /) - kbo(:,25, 9) = (/ & - & 0.18957e+01,0.20036e+01,0.21100e+01,0.22176e+01,0.23221e+01 /) - kbo(:,26, 9) = (/ & - & 0.18288e+01,0.19378e+01,0.20515e+01,0.21609e+01,0.22728e+01 /) - kbo(:,27, 9) = (/ & - & 0.17692e+01,0.18810e+01,0.19951e+01,0.21151e+01,0.22361e+01 /) - kbo(:,28, 9) = (/ & - & 0.17168e+01,0.18338e+01,0.19558e+01,0.20789e+01,0.22051e+01 /) - kbo(:,29, 9) = (/ & - & 0.16702e+01,0.17936e+01,0.19235e+01,0.20524e+01,0.21850e+01 /) - kbo(:,30, 9) = (/ & - & 0.16394e+01,0.17677e+01,0.19029e+01,0.20369e+01,0.21882e+01 /) - kbo(:,31, 9) = (/ & - & 0.16228e+01,0.17523e+01,0.18896e+01,0.20262e+01,0.21815e+01 /) - kbo(:,32, 9) = (/ & - & 0.16178e+01,0.17489e+01,0.18859e+01,0.20233e+01,0.21838e+01 /) - kbo(:,33, 9) = (/ & - & 0.16221e+01,0.17529e+01,0.18876e+01,0.20327e+01,0.21960e+01 /) - kbo(:,34, 9) = (/ & - & 0.16321e+01,0.17688e+01,0.19069e+01,0.20650e+01,0.22191e+01 /) - kbo(:,35, 9) = (/ & - & 0.16388e+01,0.17830e+01,0.19261e+01,0.20887e+01,0.22365e+01 /) - kbo(:,36, 9) = (/ & - & 0.16423e+01,0.17895e+01,0.19390e+01,0.21032e+01,0.22561e+01 /) - kbo(:,37, 9) = (/ & - & 0.16080e+01,0.17565e+01,0.19076e+01,0.20741e+01,0.22287e+01 /) - kbo(:,38, 9) = (/ & - & 0.15745e+01,0.17245e+01,0.18721e+01,0.20419e+01,0.21969e+01 /) - kbo(:,39, 9) = (/ & - & 0.15386e+01,0.16919e+01,0.18410e+01,0.19923e+01,0.21638e+01 /) - kbo(:,40, 9) = (/ & - & 0.14840e+01,0.16355e+01,0.17855e+01,0.19337e+01,0.21026e+01 /) - kbo(:,41, 9) = (/ & - & 0.14260e+01,0.15758e+01,0.17241e+01,0.18746e+01,0.20398e+01 /) - kbo(:,42, 9) = (/ & - & 0.13688e+01,0.15162e+01,0.16646e+01,0.18157e+01,0.19780e+01 /) - kbo(:,43, 9) = (/ & - & 0.13011e+01,0.14473e+01,0.15936e+01,0.17402e+01,0.18823e+01 /) - kbo(:,44, 9) = (/ & - & 0.12278e+01,0.13710e+01,0.15157e+01,0.16568e+01,0.17952e+01 /) - kbo(:,45, 9) = (/ & - & 0.11558e+01,0.12957e+01,0.14361e+01,0.15731e+01,0.17094e+01 /) - kbo(:,46, 9) = (/ & - & 0.10820e+01,0.12147e+01,0.13532e+01,0.14890e+01,0.16181e+01 /) - kbo(:,47, 9) = (/ & - & 0.10024e+01,0.11346e+01,0.12669e+01,0.14002e+01,0.15260e+01 /) - kbo(:,48, 9) = (/ & - & 0.92524e+00,0.10524e+01,0.11804e+01,0.13068e+01,0.14296e+01 /) - kbo(:,49, 9) = (/ & - & 0.84698e+00,0.96805e+00,0.10902e+01,0.12100e+01,0.13299e+01 /) - kbo(:,50, 9) = (/ & - & 0.78084e+00,0.89928e+00,0.10161e+01,0.11323e+01,0.12472e+01 /) - kbo(:,51, 9) = (/ & - & 0.72222e+00,0.83480e+00,0.94748e+00,0.10626e+01,0.11740e+01 /) - kbo(:,52, 9) = (/ & - & 0.66260e+00,0.77045e+00,0.88348e+00,0.99181e+00,0.10995e+01 /) - kbo(:,53, 9) = (/ & - & 0.60516e+00,0.71083e+00,0.81698e+00,0.91863e+00,0.10219e+01 /) - kbo(:,54, 9) = (/ & - & 0.56176e+00,0.66472e+00,0.77054e+00,0.87249e+00,0.97306e+00 /) - kbo(:,55, 9) = (/ & - & 0.52563e+00,0.63037e+00,0.73497e+00,0.83878e+00,0.93923e+00 /) - kbo(:,56, 9) = (/ & - & 0.49056e+00,0.59429e+00,0.69788e+00,0.80509e+00,0.90615e+00 /) - kbo(:,57, 9) = (/ & - & 0.45575e+00,0.55861e+00,0.66303e+00,0.76942e+00,0.87211e+00 /) - kbo(:,58, 9) = (/ & - & 0.42419e+00,0.52609e+00,0.63048e+00,0.73708e+00,0.84331e+00 /) - kbo(:,59, 9) = (/ & - & 0.42340e+00,0.52953e+00,0.63843e+00,0.74879e+00,0.86046e+00 /) - kbo(:,13,10) = (/ & - & 0.14973e+02,0.15466e+02,0.15907e+02,0.16294e+02,0.16648e+02 /) - kbo(:,14,10) = (/ & - & 0.13327e+02,0.13717e+02,0.14036e+02,0.14348e+02,0.14658e+02 /) - kbo(:,15,10) = (/ & - & 0.12219e+02,0.12428e+02,0.12649e+02,0.12810e+02,0.12959e+02 /) - kbo(:,16,10) = (/ & - & 0.11245e+02,0.11501e+02,0.11701e+02,0.11817e+02,0.11948e+02 /) - kbo(:,17,10) = (/ & - & 0.96706e+01,0.99707e+01,0.10257e+02,0.10540e+02,0.10718e+02 /) - kbo(:,18,10) = (/ & - & 0.83018e+01,0.83446e+01,0.84207e+01,0.85262e+01,0.86783e+01 /) - kbo(:,19,10) = (/ & - & 0.82250e+01,0.81929e+01,0.82337e+01,0.82572e+01,0.83177e+01 /) - kbo(:,20,10) = (/ & - & 0.81684e+01,0.81782e+01,0.82244e+01,0.82765e+01,0.82985e+01 /) - kbo(:,21,10) = (/ & - & 0.82586e+01,0.83055e+01,0.84017e+01,0.83815e+01,0.83594e+01 /) - kbo(:,22,10) = (/ & - & 0.83686e+01,0.84604e+01,0.85363e+01,0.84786e+01,0.84786e+01 /) - kbo(:,23,10) = (/ & - & 0.84301e+01,0.85903e+01,0.87569e+01,0.87953e+01,0.87965e+01 /) - kbo(:,24,10) = (/ & - & 0.85690e+01,0.88097e+01,0.90359e+01,0.90994e+01,0.92201e+01 /) - kbo(:,25,10) = (/ & - & 0.87852e+01,0.90719e+01,0.92672e+01,0.94098e+01,0.95600e+01 /) - kbo(:,26,10) = (/ & - & 0.88651e+01,0.92334e+01,0.94525e+01,0.97256e+01,0.98986e+01 /) - kbo(:,27,10) = (/ & - & 0.88645e+01,0.92932e+01,0.96152e+01,0.98392e+01,0.10037e+02 /) - kbo(:,28,10) = (/ & - & 0.88548e+01,0.93070e+01,0.96176e+01,0.99813e+01,0.10238e+02 /) - kbo(:,29,10) = (/ & - & 0.88198e+01,0.92265e+01,0.96024e+01,0.99285e+01,0.10232e+02 /) - kbo(:,30,10) = (/ & - & 0.87818e+01,0.92083e+01,0.95579e+01,0.98976e+01,0.10208e+02 /) - kbo(:,31,10) = (/ & - & 0.86036e+01,0.90621e+01,0.94967e+01,0.98500e+01,0.10159e+02 /) - kbo(:,32,10) = (/ & - & 0.84748e+01,0.89960e+01,0.94428e+01,0.98336e+01,0.10196e+02 /) - kbo(:,33,10) = (/ & - & 0.84172e+01,0.89420e+01,0.94383e+01,0.98344e+01,0.10060e+02 /) - kbo(:,34,10) = (/ & - & 0.84605e+01,0.89751e+01,0.94683e+01,0.98852e+01,0.10023e+02 /) - kbo(:,35,10) = (/ & - & 0.84589e+01,0.89233e+01,0.94002e+01,0.98511e+01,0.10024e+02 /) - kbo(:,36,10) = (/ & - & 0.84558e+01,0.89580e+01,0.93747e+01,0.98030e+01,0.10000e+02 /) - kbo(:,37,10) = (/ & - & 0.82385e+01,0.87614e+01,0.91541e+01,0.95514e+01,0.97363e+01 /) - kbo(:,38,10) = (/ & - & 0.80132e+01,0.84437e+01,0.89304e+01,0.92902e+01,0.94811e+01 /) - kbo(:,39,10) = (/ & - & 0.78203e+01,0.81981e+01,0.85539e+01,0.89689e+01,0.90927e+01 /) - kbo(:,40,10) = (/ & - & 0.75978e+01,0.79610e+01,0.82423e+01,0.86095e+01,0.88190e+01 /) - kbo(:,41,10) = (/ & - & 0.73029e+01,0.76481e+01,0.79708e+01,0.82445e+01,0.84426e+01 /) - kbo(:,42,10) = (/ & - & 0.70166e+01,0.73754e+01,0.76378e+01,0.78862e+01,0.80985e+01 /) - kbo(:,43,10) = (/ & - & 0.66293e+01,0.69504e+01,0.72276e+01,0.75120e+01,0.77099e+01 /) - kbo(:,44,10) = (/ & - & 0.62312e+01,0.65696e+01,0.68647e+01,0.71226e+01,0.73305e+01 /) - kbo(:,45,10) = (/ & - & 0.58229e+01,0.61620e+01,0.64682e+01,0.67341e+01,0.69070e+01 /) - kbo(:,46,10) = (/ & - & 0.53657e+01,0.57492e+01,0.60377e+01,0.63031e+01,0.64992e+01 /) - kbo(:,47,10) = (/ & - & 0.50350e+01,0.53678e+01,0.56656e+01,0.59201e+01,0.61262e+01 /) - kbo(:,48,10) = (/ & - & 0.46566e+01,0.49901e+01,0.52633e+01,0.54964e+01,0.57537e+01 /) - kbo(:,49,10) = (/ & - & 0.42801e+01,0.46217e+01,0.49093e+01,0.51104e+01,0.53644e+01 /) - kbo(:,50,10) = (/ & - & 0.39613e+01,0.43120e+01,0.45848e+01,0.48588e+01,0.50774e+01 /) - kbo(:,51,10) = (/ & - & 0.37006e+01,0.40662e+01,0.43615e+01,0.46264e+01,0.48701e+01 /) - kbo(:,52,10) = (/ & - & 0.34485e+01,0.37934e+01,0.40667e+01,0.43544e+01,0.46481e+01 /) - kbo(:,53,10) = (/ & - & 0.31594e+01,0.35032e+01,0.37934e+01,0.41156e+01,0.44077e+01 /) - kbo(:,54,10) = (/ & - & 0.29800e+01,0.33284e+01,0.36333e+01,0.39624e+01,0.42528e+01 /) - kbo(:,55,10) = (/ & - & 0.28569e+01,0.32159e+01,0.35391e+01,0.38186e+01,0.41402e+01 /) - kbo(:,56,10) = (/ & - & 0.26907e+01,0.31071e+01,0.34476e+01,0.36941e+01,0.40212e+01 /) - kbo(:,57,10) = (/ & - & 0.25638e+01,0.29869e+01,0.33345e+01,0.36081e+01,0.38859e+01 /) - kbo(:,58,10) = (/ & - & 0.24665e+01,0.28708e+01,0.32402e+01,0.35331e+01,0.37851e+01 /) - kbo(:,59,10) = (/ & - & 0.25432e+01,0.29855e+01,0.33662e+01,0.37020e+01,0.39522e+01 /) - kbo(:,13,11) = (/ & - & 0.31099e+02,0.31647e+02,0.32241e+02,0.32842e+02,0.33417e+02 /) - kbo(:,14,11) = (/ & - & 0.27698e+02,0.28253e+02,0.28859e+02,0.29460e+02,0.30083e+02 /) - kbo(:,15,11) = (/ & - & 0.24330e+02,0.24945e+02,0.25542e+02,0.26234e+02,0.26922e+02 /) - kbo(:,16,11) = (/ & - & 0.21190e+02,0.21758e+02,0.22384e+02,0.23019e+02,0.23628e+02 /) - kbo(:,17,11) = (/ & - & 0.18967e+02,0.19413e+02,0.19858e+02,0.20261e+02,0.20672e+02 /) - kbo(:,18,11) = (/ & - & 0.16374e+02,0.16952e+02,0.17497e+02,0.17964e+02,0.18478e+02 /) - kbo(:,19,11) = (/ & - & 0.13248e+02,0.13545e+02,0.13847e+02,0.14297e+02,0.14705e+02 /) - kbo(:,20,11) = (/ & - & 0.12757e+02,0.12785e+02,0.12667e+02,0.12601e+02,0.12612e+02 /) - kbo(:,21,11) = (/ & - & 0.12844e+02,0.12624e+02,0.12433e+02,0.12193e+02,0.12175e+02 /) - kbo(:,22,11) = (/ & - & 0.12738e+02,0.12567e+02,0.12225e+02,0.12063e+02,0.11980e+02 /) - kbo(:,23,11) = (/ & - & 0.12815e+02,0.12660e+02,0.12272e+02,0.12108e+02,0.12066e+02 /) - kbo(:,24,11) = (/ & - & 0.13079e+02,0.12972e+02,0.12651e+02,0.12388e+02,0.12367e+02 /) - kbo(:,25,11) = (/ & - & 0.13341e+02,0.13256e+02,0.13023e+02,0.12848e+02,0.12659e+02 /) - kbo(:,26,11) = (/ & - & 0.13512e+02,0.13453e+02,0.13443e+02,0.13113e+02,0.13141e+02 /) - kbo(:,27,11) = (/ & - & 0.13706e+02,0.13750e+02,0.13824e+02,0.13564e+02,0.13665e+02 /) - kbo(:,28,11) = (/ & - & 0.13979e+02,0.14080e+02,0.14203e+02,0.13858e+02,0.13981e+02 /) - kbo(:,29,11) = (/ & - & 0.13934e+02,0.14086e+02,0.14156e+02,0.14057e+02,0.14114e+02 /) - kbo(:,30,11) = (/ & - & 0.13981e+02,0.13996e+02,0.13975e+02,0.14010e+02,0.14196e+02 /) - kbo(:,31,11) = (/ & - & 0.13896e+02,0.13857e+02,0.13654e+02,0.13807e+02,0.13871e+02 /) - kbo(:,32,11) = (/ & - & 0.13655e+02,0.13646e+02,0.13416e+02,0.13538e+02,0.13488e+02 /) - kbo(:,33,11) = (/ & - & 0.13398e+02,0.13279e+02,0.13235e+02,0.13164e+02,0.13195e+02 /) - kbo(:,34,11) = (/ & - & 0.13280e+02,0.13155e+02,0.13035e+02,0.13095e+02,0.13023e+02 /) - kbo(:,35,11) = (/ & - & 0.13174e+02,0.13038e+02,0.12951e+02,0.12819e+02,0.12932e+02 /) - kbo(:,36,11) = (/ & - & 0.13159e+02,0.12953e+02,0.12943e+02,0.12899e+02,0.13077e+02 /) - kbo(:,37,11) = (/ & - & 0.12968e+02,0.12722e+02,0.12741e+02,0.12684e+02,0.12881e+02 /) - kbo(:,38,11) = (/ & - & 0.12648e+02,0.12436e+02,0.12390e+02,0.12534e+02,0.12593e+02 /) - kbo(:,39,11) = (/ & - & 0.12145e+02,0.12036e+02,0.12198e+02,0.12171e+02,0.12374e+02 /) - kbo(:,40,11) = (/ & - & 0.11784e+02,0.11714e+02,0.11852e+02,0.11995e+02,0.12020e+02 /) - kbo(:,41,11) = (/ & - & 0.11419e+02,0.11429e+02,0.11554e+02,0.11799e+02,0.11809e+02 /) - kbo(:,42,11) = (/ & - & 0.11076e+02,0.11047e+02,0.11287e+02,0.11460e+02,0.11610e+02 /) - kbo(:,43,11) = (/ & - & 0.10635e+02,0.10772e+02,0.10970e+02,0.11110e+02,0.11339e+02 /) - kbo(:,44,11) = (/ & - & 0.10081e+02,0.10347e+02,0.10495e+02,0.10710e+02,0.10998e+02 /) - kbo(:,45,11) = (/ & - & 0.95493e+01,0.97720e+01,0.10013e+02,0.10318e+02,0.10626e+02 /) - kbo(:,46,11) = (/ & - & 0.91901e+01,0.92815e+01,0.95285e+01,0.99399e+01,0.10216e+02 /) - kbo(:,47,11) = (/ & - & 0.86762e+01,0.88384e+01,0.91370e+01,0.95143e+01,0.99290e+01 /) - kbo(:,48,11) = (/ & - & 0.80969e+01,0.84350e+01,0.87222e+01,0.91427e+01,0.95881e+01 /) - kbo(:,49,11) = (/ & - & 0.74881e+01,0.78692e+01,0.82390e+01,0.88564e+01,0.92509e+01 /) - kbo(:,50,11) = (/ & - & 0.70193e+01,0.74373e+01,0.79400e+01,0.84415e+01,0.90721e+01 /) - kbo(:,51,11) = (/ & - & 0.66370e+01,0.71214e+01,0.76381e+01,0.81180e+01,0.89263e+01 /) - kbo(:,52,11) = (/ & - & 0.62242e+01,0.68097e+01,0.73447e+01,0.79515e+01,0.88951e+01 /) - kbo(:,53,11) = (/ & - & 0.58238e+01,0.63775e+01,0.69942e+01,0.79247e+01,0.89454e+01 /) - kbo(:,54,11) = (/ & - & 0.55499e+01,0.61225e+01,0.67115e+01,0.76390e+01,0.86771e+01 /) - kbo(:,55,11) = (/ & - & 0.53976e+01,0.59288e+01,0.64661e+01,0.72387e+01,0.82482e+01 /) - kbo(:,56,11) = (/ & - & 0.52864e+01,0.57486e+01,0.62663e+01,0.68889e+01,0.78153e+01 /) - kbo(:,57,11) = (/ & - & 0.51174e+01,0.55624e+01,0.60808e+01,0.66051e+01,0.73800e+01 /) - kbo(:,58,11) = (/ & - & 0.49368e+01,0.54350e+01,0.59533e+01,0.64218e+01,0.70057e+01 /) - kbo(:,59,11) = (/ & - & 0.50812e+01,0.56369e+01,0.60928e+01,0.64990e+01,0.70265e+01 /) - kbo(:,13,12) = (/ & - & 0.69704e+02,0.70627e+02,0.71228e+02,0.71788e+02,0.72437e+02 /) - kbo(:,14,12) = (/ & - & 0.64379e+02,0.65225e+02,0.66016e+02,0.66901e+02,0.67785e+02 /) - kbo(:,15,12) = (/ & - & 0.58655e+02,0.59644e+02,0.60731e+02,0.61788e+02,0.62973e+02 /) - kbo(:,16,12) = (/ & - & 0.53041e+02,0.54211e+02,0.55406e+02,0.56764e+02,0.58230e+02 /) - kbo(:,17,12) = (/ & - & 0.47145e+02,0.48549e+02,0.50104e+02,0.51815e+02,0.53646e+02 /) - kbo(:,18,12) = (/ & - & 0.41118e+02,0.42628e+02,0.44372e+02,0.46307e+02,0.48319e+02 /) - kbo(:,19,12) = (/ & - & 0.35042e+02,0.36608e+02,0.38443e+02,0.40582e+02,0.43018e+02 /) - kbo(:,20,12) = (/ & - & 0.28625e+02,0.30224e+02,0.32288e+02,0.34780e+02,0.37414e+02 /) - kbo(:,21,12) = (/ & - & 0.24017e+02,0.25409e+02,0.27330e+02,0.29600e+02,0.32108e+02 /) - kbo(:,22,12) = (/ & - & 0.21793e+02,0.22620e+02,0.24096e+02,0.26102e+02,0.28497e+02 /) - kbo(:,23,12) = (/ & - & 0.21413e+02,0.21831e+02,0.22594e+02,0.23606e+02,0.25745e+02 /) - kbo(:,24,12) = (/ & - & 0.21009e+02,0.21418e+02,0.22293e+02,0.23189e+02,0.24234e+02 /) - kbo(:,25,12) = (/ & - & 0.21184e+02,0.21661e+02,0.22476e+02,0.23334e+02,0.24471e+02 /) - kbo(:,26,12) = (/ & - & 0.21853e+02,0.22488e+02,0.23205e+02,0.24024e+02,0.25192e+02 /) - kbo(:,27,12) = (/ & - & 0.22275e+02,0.22928e+02,0.23659e+02,0.24768e+02,0.25734e+02 /) - kbo(:,28,12) = (/ & - & 0.22649e+02,0.23413e+02,0.24091e+02,0.25549e+02,0.26436e+02 /) - kbo(:,29,12) = (/ & - & 0.22704e+02,0.23483e+02,0.24191e+02,0.25460e+02,0.26653e+02 /) - kbo(:,30,12) = (/ & - & 0.22666e+02,0.23444e+02,0.24530e+02,0.25500e+02,0.26652e+02 /) - kbo(:,31,12) = (/ & - & 0.22235e+02,0.23247e+02,0.24248e+02,0.25076e+02,0.26466e+02 /) - kbo(:,32,12) = (/ & - & 0.22226e+02,0.22827e+02,0.24083e+02,0.25139e+02,0.26181e+02 /) - kbo(:,33,12) = (/ & - & 0.22210e+02,0.22941e+02,0.24126e+02,0.25269e+02,0.26783e+02 /) - kbo(:,34,12) = (/ & - & 0.22243e+02,0.23077e+02,0.24337e+02,0.25761e+02,0.27799e+02 /) - kbo(:,35,12) = (/ & - & 0.22396e+02,0.23583e+02,0.24898e+02,0.26594e+02,0.29392e+02 /) - kbo(:,36,12) = (/ & - & 0.22982e+02,0.24125e+02,0.25363e+02,0.27311e+02,0.30508e+02 /) - kbo(:,37,12) = (/ & - & 0.22918e+02,0.23937e+02,0.25281e+02,0.27602e+02,0.31235e+02 /) - kbo(:,38,12) = (/ & - & 0.22758e+02,0.23720e+02,0.25240e+02,0.28261e+02,0.32012e+02 /) - kbo(:,39,12) = (/ & - & 0.22553e+02,0.23629e+02,0.25559e+02,0.29164e+02,0.32971e+02 /) - kbo(:,40,12) = (/ & - & 0.21913e+02,0.23010e+02,0.25397e+02,0.28931e+02,0.33000e+02 /) - kbo(:,41,12) = (/ & - & 0.21428e+02,0.22543e+02,0.25193e+02,0.28521e+02,0.32655e+02 /) - kbo(:,42,12) = (/ & - & 0.20806e+02,0.22057e+02,0.24895e+02,0.28307e+02,0.32344e+02 /) - kbo(:,43,12) = (/ & - & 0.20230e+02,0.21402e+02,0.24438e+02,0.27778e+02,0.31742e+02 /) - kbo(:,44,12) = (/ & - & 0.19439e+02,0.20816e+02,0.24038e+02,0.27280e+02,0.31112e+02 /) - kbo(:,45,12) = (/ & - & 0.18615e+02,0.20644e+02,0.23787e+02,0.26906e+02,0.30508e+02 /) - kbo(:,46,12) = (/ & - & 0.17932e+02,0.20436e+02,0.23444e+02,0.26514e+02,0.30043e+02 /) - kbo(:,47,12) = (/ & - & 0.17388e+02,0.20062e+02,0.22865e+02,0.25992e+02,0.29187e+02 /) - kbo(:,48,12) = (/ & - & 0.17144e+02,0.19562e+02,0.22419e+02,0.25556e+02,0.28578e+02 /) - kbo(:,49,12) = (/ & - & 0.16956e+02,0.19439e+02,0.22133e+02,0.25135e+02,0.28141e+02 /) - kbo(:,50,12) = (/ & - & 0.16529e+02,0.19034e+02,0.21605e+02,0.24563e+02,0.27331e+02 /) - kbo(:,51,12) = (/ & - & 0.15953e+02,0.18522e+02,0.21071e+02,0.23856e+02,0.26389e+02 /) - kbo(:,52,12) = (/ & - & 0.15476e+02,0.18037e+02,0.20576e+02,0.23092e+02,0.25303e+02 /) - kbo(:,53,12) = (/ & - & 0.14987e+02,0.17619e+02,0.20150e+02,0.22182e+02,0.24323e+02 /) - kbo(:,54,12) = (/ & - & 0.14316e+02,0.16769e+02,0.19340e+02,0.21295e+02,0.23328e+02 /) - kbo(:,55,12) = (/ & - & 0.13478e+02,0.15723e+02,0.18284e+02,0.20497e+02,0.22282e+02 /) - kbo(:,56,12) = (/ & - & 0.12615e+02,0.14717e+02,0.17222e+02,0.19626e+02,0.21412e+02 /) - kbo(:,57,12) = (/ & - & 0.11789e+02,0.13910e+02,0.16111e+02,0.18559e+02,0.20605e+02 /) - kbo(:,58,12) = (/ & - & 0.10935e+02,0.12994e+02,0.15023e+02,0.17386e+02,0.19630e+02 /) - kbo(:,59,12) = (/ & - & 0.10847e+02,0.11985e+02,0.13699e+02,0.15922e+02,0.18130e+02 /) - kbo(:,13,13) = (/ & - & 0.15243e+03,0.15414e+03,0.15604e+03,0.15731e+03,0.15805e+03 /) - kbo(:,14,13) = (/ & - & 0.15017e+03,0.15285e+03,0.15509e+03,0.15662e+03,0.15764e+03 /) - kbo(:,15,13) = (/ & - & 0.14701e+03,0.15032e+03,0.15250e+03,0.15435e+03,0.15583e+03 /) - kbo(:,16,13) = (/ & - & 0.14269e+03,0.14580e+03,0.14857e+03,0.15094e+03,0.15306e+03 /) - kbo(:,17,13) = (/ & - & 0.13670e+03,0.14035e+03,0.14376e+03,0.14689e+03,0.14976e+03 /) - kbo(:,18,13) = (/ & - & 0.13015e+03,0.13455e+03,0.13871e+03,0.14263e+03,0.14625e+03 /) - kbo(:,19,13) = (/ & - & 0.12287e+03,0.12845e+03,0.13370e+03,0.13836e+03,0.14277e+03 /) - kbo(:,20,13) = (/ & - & 0.11516e+03,0.12176e+03,0.12807e+03,0.13396e+03,0.13973e+03 /) - kbo(:,21,13) = (/ & - & 0.10676e+03,0.11461e+03,0.12196e+03,0.12926e+03,0.13605e+03 /) - kbo(:,22,13) = (/ & - & 0.98495e+02,0.10775e+03,0.11663e+03,0.12493e+03,0.13260e+03 /) - kbo(:,23,13) = (/ & - & 0.89816e+02,0.10015e+03,0.11065e+03,0.12084e+03,0.12951e+03 /) - kbo(:,24,13) = (/ & - & 0.82797e+02,0.93590e+02,0.10444e+03,0.11545e+03,0.12590e+03 /) - kbo(:,25,13) = (/ & - & 0.77256e+02,0.88067e+02,0.99408e+02,0.11069e+03,0.12164e+03 /) - kbo(:,26,13) = (/ & - & 0.73787e+02,0.84230e+02,0.95403e+02,0.10719e+03,0.11797e+03 /) - kbo(:,27,13) = (/ & - & 0.72626e+02,0.82623e+02,0.93417e+02,0.10482e+03,0.11588e+03 /) - kbo(:,28,13) = (/ & - & 0.72289e+02,0.81705e+02,0.92658e+02,0.10355e+03,0.11467e+03 /) - kbo(:,29,13) = (/ & - & 0.73831e+02,0.83248e+02,0.93801e+02,0.10474e+03,0.11551e+03 /) - kbo(:,30,13) = (/ & - & 0.76016e+02,0.86113e+02,0.95367e+02,0.10651e+03,0.11733e+03 /) - kbo(:,31,13) = (/ & - & 0.80058e+02,0.89705e+02,0.99793e+02,0.10982e+03,0.12052e+03 /) - kbo(:,32,13) = (/ & - & 0.85064e+02,0.94860e+02,0.10434e+03,0.11401e+03,0.12404e+03 /) - kbo(:,33,13) = (/ & - & 0.90655e+02,0.10081e+03,0.10992e+03,0.11933e+03,0.12788e+03 /) - kbo(:,34,13) = (/ & - & 0.95857e+02,0.10597e+03,0.11520e+03,0.12356e+03,0.13127e+03 /) - kbo(:,35,13) = (/ & - & 0.99393e+02,0.11014e+03,0.12003e+03,0.12794e+03,0.13407e+03 /) - kbo(:,36,13) = (/ & - & 0.10100e+03,0.11220e+03,0.12221e+03,0.13085e+03,0.13724e+03 /) - kbo(:,37,13) = (/ & - & 0.10052e+03,0.11217e+03,0.12302e+03,0.13127e+03,0.13704e+03 /) - kbo(:,38,13) = (/ & - & 0.10046e+03,0.11273e+03,0.12310e+03,0.13118e+03,0.13742e+03 /) - kbo(:,39,13) = (/ & - & 0.10122e+03,0.11326e+03,0.12361e+03,0.13081e+03,0.13784e+03 /) - kbo(:,40,13) = (/ & - & 0.10000e+03,0.11180e+03,0.12195e+03,0.12930e+03,0.13636e+03 /) - kbo(:,41,13) = (/ & - & 0.98394e+02,0.11024e+03,0.11969e+03,0.12788e+03,0.13497e+03 /) - kbo(:,42,13) = (/ & - & 0.97071e+02,0.10823e+03,0.11769e+03,0.12630e+03,0.13330e+03 /) - kbo(:,43,13) = (/ & - & 0.94820e+02,0.10592e+03,0.11514e+03,0.12393e+03,0.13107e+03 /) - kbo(:,44,13) = (/ & - & 0.92475e+02,0.10313e+03,0.11198e+03,0.12120e+03,0.12869e+03 /) - kbo(:,45,13) = (/ & - & 0.90255e+02,0.99678e+02,0.10888e+03,0.11824e+03,0.12634e+03 /) - kbo(:,46,13) = (/ & - & 0.87084e+02,0.96376e+02,0.10582e+03,0.11496e+03,0.12350e+03 /) - kbo(:,47,13) = (/ & - & 0.83116e+02,0.92026e+02,0.10209e+03,0.11120e+03,0.12020e+03 /) - kbo(:,48,13) = (/ & - & 0.78845e+02,0.88316e+02,0.97984e+02,0.10729e+03,0.11639e+03 /) - kbo(:,49,13) = (/ & - & 0.74841e+02,0.84389e+02,0.93907e+02,0.10286e+03,0.11277e+03 /) - kbo(:,50,13) = (/ & - & 0.71259e+02,0.80370e+02,0.89851e+02,0.99011e+02,0.10882e+03 /) - kbo(:,51,13) = (/ & - & 0.67667e+02,0.76332e+02,0.85552e+02,0.95111e+02,0.10517e+03 /) - kbo(:,52,13) = (/ & - & 0.64036e+02,0.72373e+02,0.81228e+02,0.91458e+02,0.10109e+03 /) - kbo(:,53,13) = (/ & - & 0.60531e+02,0.68539e+02,0.77029e+02,0.87314e+02,0.97171e+02 /) - kbo(:,54,13) = (/ & - & 0.57169e+02,0.65298e+02,0.73473e+02,0.83504e+02,0.93303e+02 /) - kbo(:,55,13) = (/ & - & 0.53955e+02,0.61813e+02,0.70099e+02,0.79656e+02,0.89859e+02 /) - kbo(:,56,13) = (/ & - & 0.50772e+02,0.58658e+02,0.66829e+02,0.76079e+02,0.86127e+02 /) - kbo(:,57,13) = (/ & - & 0.47708e+02,0.55213e+02,0.63250e+02,0.72545e+02,0.82495e+02 /) - kbo(:,58,13) = (/ & - & 0.45026e+02,0.52243e+02,0.60123e+02,0.69281e+02,0.79017e+02 /) - kbo(:,59,13) = (/ & - & 0.42111e+02,0.50365e+02,0.58368e+02,0.67832e+02,0.76877e+02 /) - kbo(:,13,14) = (/ & - & 0.32174e+03,0.31744e+03,0.31218e+03,0.30740e+03,0.30288e+03 /) - kbo(:,14,14) = (/ & - & 0.33593e+03,0.33142e+03,0.32669e+03,0.32231e+03,0.31834e+03 /) - kbo(:,15,14) = (/ & - & 0.34823e+03,0.34389e+03,0.34037e+03,0.33690e+03,0.33355e+03 /) - kbo(:,16,14) = (/ & - & 0.35878e+03,0.35631e+03,0.35376e+03,0.35105e+03,0.34819e+03 /) - kbo(:,17,14) = (/ & - & 0.36906e+03,0.36793e+03,0.36636e+03,0.36433e+03,0.36182e+03 /) - kbo(:,18,14) = (/ & - & 0.37817e+03,0.37835e+03,0.37763e+03,0.37618e+03,0.37389e+03 /) - kbo(:,19,14) = (/ & - & 0.38585e+03,0.38729e+03,0.38746e+03,0.38655e+03,0.38433e+03 /) - kbo(:,20,14) = (/ & - & 0.39236e+03,0.39495e+03,0.39589e+03,0.39530e+03,0.39330e+03 /) - kbo(:,21,14) = (/ & - & 0.39808e+03,0.40159e+03,0.40312e+03,0.40280e+03,0.40090e+03 /) - kbo(:,22,14) = (/ & - & 0.40338e+03,0.40757e+03,0.40933e+03,0.40908e+03,0.40708e+03 /) - kbo(:,23,14) = (/ & - & 0.40834e+03,0.41282e+03,0.41463e+03,0.41442e+03,0.41222e+03 /) - kbo(:,24,14) = (/ & - & 0.41280e+03,0.41739e+03,0.41916e+03,0.41879e+03,0.41631e+03 /) - kbo(:,25,14) = (/ & - & 0.41635e+03,0.42140e+03,0.42295e+03,0.42231e+03,0.41948e+03 /) - kbo(:,26,14) = (/ & - & 0.41887e+03,0.42439e+03,0.42613e+03,0.42509e+03,0.42199e+03 /) - kbo(:,27,14) = (/ & - & 0.42034e+03,0.42637e+03,0.42837e+03,0.42723e+03,0.42380e+03 /) - kbo(:,28,14) = (/ & - & 0.42191e+03,0.42841e+03,0.43008e+03,0.42870e+03,0.42501e+03 /) - kbo(:,29,14) = (/ & - & 0.42351e+03,0.42979e+03,0.43162e+03,0.42986e+03,0.42579e+03 /) - kbo(:,30,14) = (/ & - & 0.42461e+03,0.42985e+03,0.43291e+03,0.43068e+03,0.42610e+03 /) - kbo(:,31,14) = (/ & - & 0.42505e+03,0.43017e+03,0.43191e+03,0.43099e+03,0.42603e+03 /) - kbo(:,32,14) = (/ & - & 0.42362e+03,0.42860e+03,0.43041e+03,0.42915e+03,0.42555e+03 /) - kbo(:,33,14) = (/ & - & 0.42123e+03,0.42505e+03,0.42663e+03,0.42551e+03,0.42290e+03 /) - kbo(:,34,14) = (/ & - & 0.41773e+03,0.42082e+03,0.42178e+03,0.42110e+03,0.41858e+03 /) - kbo(:,35,14) = (/ & - & 0.41435e+03,0.41544e+03,0.41491e+03,0.41443e+03,0.41216e+03 /) - kbo(:,36,14) = (/ & - & 0.41009e+03,0.41065e+03,0.40988e+03,0.40756e+03,0.40367e+03 /) - kbo(:,37,14) = (/ & - & 0.40889e+03,0.40948e+03,0.40755e+03,0.40547e+03,0.40195e+03 /) - kbo(:,38,14) = (/ & - & 0.40736e+03,0.40781e+03,0.40666e+03,0.40322e+03,0.39939e+03 /) - kbo(:,39,14) = (/ & - & 0.40514e+03,0.40605e+03,0.40431e+03,0.40166e+03,0.39666e+03 /) - kbo(:,40,14) = (/ & - & 0.40543e+03,0.40633e+03,0.40490e+03,0.40260e+03,0.39791e+03 /) - kbo(:,41,14) = (/ & - & 0.40503e+03,0.40615e+03,0.40599e+03,0.40348e+03,0.39947e+03 /) - kbo(:,42,14) = (/ & - & 0.40408e+03,0.40664e+03,0.40681e+03,0.40441e+03,0.40107e+03 /) - kbo(:,43,14) = (/ & - & 0.40250e+03,0.40659e+03,0.40791e+03,0.40633e+03,0.40362e+03 /) - kbo(:,44,14) = (/ & - & 0.40121e+03,0.40653e+03,0.40934e+03,0.40832e+03,0.40616e+03 /) - kbo(:,45,14) = (/ & - & 0.39928e+03,0.40669e+03,0.41014e+03,0.41010e+03,0.40849e+03 /) - kbo(:,46,14) = (/ & - & 0.39656e+03,0.40551e+03,0.41027e+03,0.41167e+03,0.41068e+03 /) - kbo(:,47,14) = (/ & - & 0.39317e+03,0.40403e+03,0.40985e+03,0.41273e+03,0.41264e+03 /) - kbo(:,48,14) = (/ & - & 0.38915e+03,0.40116e+03,0.40932e+03,0.41346e+03,0.41469e+03 /) - kbo(:,49,14) = (/ & - & 0.38398e+03,0.39755e+03,0.40789e+03,0.41416e+03,0.41577e+03 /) - kbo(:,50,14) = (/ & - & 0.37757e+03,0.39396e+03,0.40616e+03,0.41381e+03,0.41707e+03 /) - kbo(:,51,14) = (/ & - & 0.37117e+03,0.38987e+03,0.40415e+03,0.41318e+03,0.41740e+03 /) - kbo(:,52,14) = (/ & - & 0.36408e+03,0.38505e+03,0.40161e+03,0.41151e+03,0.41801e+03 /) - kbo(:,53,14) = (/ & - & 0.35611e+03,0.37948e+03,0.39824e+03,0.40994e+03,0.41764e+03 /) - kbo(:,54,14) = (/ & - & 0.34712e+03,0.37341e+03,0.39425e+03,0.40798e+03,0.41739e+03 /) - kbo(:,55,14) = (/ & - & 0.33857e+03,0.36757e+03,0.38995e+03,0.40583e+03,0.41654e+03 /) - kbo(:,56,14) = (/ & - & 0.32949e+03,0.36056e+03,0.38492e+03,0.40281e+03,0.41532e+03 /) - kbo(:,57,14) = (/ & - & 0.31954e+03,0.35312e+03,0.37997e+03,0.39944e+03,0.41349e+03 /) - kbo(:,58,14) = (/ & - & 0.30943e+03,0.34518e+03,0.37428e+03,0.39571e+03,0.41155e+03 /) - kbo(:,59,14) = (/ & - & 0.30628e+03,0.34259e+03,0.37284e+03,0.39463e+03,0.41220e+03 /) - kbo(:,13,15) = (/ & - & 0.58702e+03,0.56862e+03,0.55331e+03,0.53896e+03,0.52495e+03 /) - kbo(:,14,15) = (/ & - & 0.64037e+03,0.62129e+03,0.60436e+03,0.58772e+03,0.57127e+03 /) - kbo(:,15,15) = (/ & - & 0.69642e+03,0.67640e+03,0.65677e+03,0.63714e+03,0.61752e+03 /) - kbo(:,16,15) = (/ & - & 0.75408e+03,0.73150e+03,0.70834e+03,0.68512e+03,0.66206e+03 /) - kbo(:,17,15) = (/ & - & 0.81156e+03,0.78496e+03,0.75773e+03,0.73064e+03,0.70441e+03 /) - kbo(:,18,15) = (/ & - & 0.86684e+03,0.83552e+03,0.80425e+03,0.77370e+03,0.74441e+03 /) - kbo(:,19,15) = (/ & - & 0.91879e+03,0.88284e+03,0.84773e+03,0.81356e+03,0.78105e+03 /) - kbo(:,20,15) = (/ & - & 0.96599e+03,0.92558e+03,0.88651e+03,0.84884e+03,0.81303e+03 /) - kbo(:,21,15) = (/ & - & 0.10076e+04,0.96291e+03,0.92009e+03,0.87920e+03,0.84047e+03 /) - kbo(:,22,15) = (/ & - & 0.10401e+04,0.99157e+03,0.94567e+03,0.90208e+03,0.86095e+03 /) - kbo(:,23,15) = (/ & - & 0.10659e+04,0.10143e+04,0.96587e+03,0.91983e+03,0.87686e+03 /) - kbo(:,24,15) = (/ & - & 0.10857e+04,0.10316e+04,0.98077e+03,0.93285e+03,0.88829e+03 /) - kbo(:,25,15) = (/ & - & 0.10994e+04,0.10434e+04,0.99070e+03,0.94138e+03,0.89569e+03 /) - kbo(:,26,15) = (/ & - & 0.11072e+04,0.10495e+04,0.99578e+03,0.94553e+03,0.89886e+03 /) - kbo(:,27,15) = (/ & - & 0.11107e+04,0.10519e+04,0.99732e+03,0.94654e+03,0.89932e+03 /) - kbo(:,28,15) = (/ & - & 0.11104e+04,0.10510e+04,0.99596e+03,0.94493e+03,0.89744e+03 /) - kbo(:,29,15) = (/ & - & 0.11068e+04,0.10472e+04,0.99206e+03,0.94099e+03,0.89320e+03 /) - kbo(:,30,15) = (/ & - & 0.11008e+04,0.10413e+04,0.98636e+03,0.93544e+03,0.88772e+03 /) - kbo(:,31,15) = (/ & - & 0.10926e+04,0.10334e+04,0.97895e+03,0.92827e+03,0.88094e+03 /) - kbo(:,32,15) = (/ & - & 0.10829e+04,0.10242e+04,0.97015e+03,0.91986e+03,0.87315e+03 /) - kbo(:,33,15) = (/ & - & 0.10718e+04,0.10140e+04,0.96048e+03,0.91059e+03,0.86462e+03 /) - kbo(:,34,15) = (/ & - & 0.10622e+04,0.10049e+04,0.95198e+03,0.90258e+03,0.85725e+03 /) - kbo(:,35,15) = (/ & - & 0.10576e+04,0.10006e+04,0.94772e+03,0.89854e+03,0.85365e+03 /) - kbo(:,36,15) = (/ & - & 0.10589e+04,0.10017e+04,0.94880e+03,0.89934e+03,0.85436e+03 /) - kbo(:,37,15) = (/ & - & 0.10689e+04,0.10108e+04,0.95721e+03,0.90723e+03,0.86136e+03 /) - kbo(:,38,15) = (/ & - & 0.10792e+04,0.10202e+04,0.96581e+03,0.91534e+03,0.86861e+03 /) - kbo(:,39,15) = (/ & - & 0.10893e+04,0.10294e+04,0.97432e+03,0.92308e+03,0.87586e+03 /) - kbo(:,40,15) = (/ & - & 0.11025e+04,0.10445e+04,0.98826e+03,0.93598e+03,0.88770e+03 /) - kbo(:,41,15) = (/ & - & 0.11189e+04,0.10606e+04,0.10030e+04,0.94969e+03,0.90027e+03 /) - kbo(:,42,15) = (/ & - & 0.11355e+04,0.10769e+04,0.10180e+04,0.96359e+03,0.91305e+03 /) - kbo(:,43,15) = (/ & - & 0.11585e+04,0.10971e+04,0.10364e+04,0.98067e+03,0.92886e+03 /) - kbo(:,44,15) = (/ & - & 0.11827e+04,0.11193e+04,0.10568e+04,0.99947e+03,0.94636e+03 /) - kbo(:,45,15) = (/ & - & 0.12075e+04,0.11422e+04,0.10778e+04,0.10187e+04,0.96421e+03 /) - kbo(:,46,15) = (/ & - & 0.12357e+04,0.11671e+04,0.11007e+04,0.10396e+04,0.98362e+03 /) - kbo(:,47,15) = (/ & - & 0.12667e+04,0.11958e+04,0.11271e+04,0.10639e+04,0.10059e+04 /) - kbo(:,48,15) = (/ & - & 0.12983e+04,0.12254e+04,0.11543e+04,0.10888e+04,0.10288e+04 /) - kbo(:,49,15) = (/ & - & 0.13304e+04,0.12559e+04,0.11825e+04,0.11147e+04,0.10526e+04 /) - kbo(:,50,15) = (/ & - & 0.13621e+04,0.12852e+04,0.12096e+04,0.11397e+04,0.10755e+04 /) - kbo(:,51,15) = (/ & - & 0.13919e+04,0.13140e+04,0.12368e+04,0.11648e+04,0.10985e+04 /) - kbo(:,52,15) = (/ & - & 0.14222e+04,0.13432e+04,0.12647e+04,0.11905e+04,0.11221e+04 /) - kbo(:,53,15) = (/ & - & 0.14531e+04,0.13729e+04,0.12932e+04,0.12171e+04,0.11465e+04 /) - kbo(:,54,15) = (/ & - & 0.14842e+04,0.14002e+04,0.13197e+04,0.12421e+04,0.11696e+04 /) - kbo(:,55,15) = (/ & - & 0.15120e+04,0.14267e+04,0.13453e+04,0.12667e+04,0.11922e+04 /) - kbo(:,56,15) = (/ & - & 0.15401e+04,0.14538e+04,0.13712e+04,0.12915e+04,0.12155e+04 /) - kbo(:,57,15) = (/ & - & 0.15682e+04,0.14811e+04,0.13973e+04,0.13167e+04,0.12393e+04 /) - kbo(:,58,15) = (/ & - & 0.15949e+04,0.15073e+04,0.14224e+04,0.13410e+04,0.12625e+04 /) - kbo(:,59,15) = (/ & - & 0.16055e+04,0.15180e+04,0.14326e+04,0.13507e+04,0.12718e+04 /) - kbo(:,13,16) = (/ & - & 0.98069e+03,0.94212e+03,0.90378e+03,0.86861e+03,0.83780e+03 /) - kbo(:,14,16) = (/ & - & 0.11010e+04,0.10540e+04,0.10095e+04,0.96975e+03,0.93339e+03 /) - kbo(:,15,16) = (/ & - & 0.12287e+04,0.11714e+04,0.11195e+04,0.10736e+04,0.10305e+04 /) - kbo(:,16,16) = (/ & - & 0.13596e+04,0.12909e+04,0.12306e+04,0.11762e+04,0.11252e+04 /) - kbo(:,17,16) = (/ & - & 0.14895e+04,0.14091e+04,0.13394e+04,0.12751e+04,0.12151e+04 /) - kbo(:,18,16) = (/ & - & 0.16148e+04,0.15230e+04,0.14425e+04,0.13683e+04,0.12989e+04 /) - kbo(:,19,16) = (/ & - & 0.17336e+04,0.16302e+04,0.15375e+04,0.14530e+04,0.13744e+04 /) - kbo(:,20,16) = (/ & - & 0.18405e+04,0.17248e+04,0.16208e+04,0.15267e+04,0.14397e+04 /) - kbo(:,21,16) = (/ & - & 0.19359e+04,0.18083e+04,0.16938e+04,0.15909e+04,0.14962e+04 /) - kbo(:,22,16) = (/ & - & 0.20085e+04,0.18707e+04,0.17478e+04,0.16373e+04,0.15366e+04 /) - kbo(:,23,16) = (/ & - & 0.20648e+04,0.19188e+04,0.17890e+04,0.16725e+04,0.15672e+04 /) - kbo(:,24,16) = (/ & - & 0.21054e+04,0.19528e+04,0.18178e+04,0.16967e+04,0.15881e+04 /) - kbo(:,25,16) = (/ & - & 0.21318e+04,0.19742e+04,0.18353e+04,0.17113e+04,0.16005e+04 /) - kbo(:,26,16) = (/ & - & 0.21433e+04,0.19836e+04,0.18416e+04,0.17161e+04,0.16044e+04 /) - kbo(:,27,16) = (/ & - & 0.21445e+04,0.19835e+04,0.18409e+04,0.17145e+04,0.16033e+04 /) - kbo(:,28,16) = (/ & - & 0.21374e+04,0.19764e+04,0.18336e+04,0.17081e+04,0.15978e+04 /) - kbo(:,29,16) = (/ & - & 0.21225e+04,0.19618e+04,0.18208e+04,0.16961e+04,0.15894e+04 /) - kbo(:,30,16) = (/ & - & 0.21033e+04,0.19434e+04,0.18039e+04,0.16808e+04,0.15775e+04 /) - kbo(:,31,16) = (/ & - & 0.20779e+04,0.19206e+04,0.17837e+04,0.16635e+04,0.15631e+04 /) - kbo(:,32,16) = (/ & - & 0.20491e+04,0.18949e+04,0.17612e+04,0.16447e+04,0.15471e+04 /) - kbo(:,33,16) = (/ & - & 0.20177e+04,0.18682e+04,0.17367e+04,0.16246e+04,0.15302e+04 /) - kbo(:,34,16) = (/ & - & 0.19905e+04,0.18445e+04,0.17155e+04,0.16076e+04,0.15146e+04 /) - kbo(:,35,16) = (/ & - & 0.19774e+04,0.18329e+04,0.17061e+04,0.16001e+04,0.15070e+04 /) - kbo(:,36,16) = (/ & - & 0.19799e+04,0.18350e+04,0.17079e+04,0.16017e+04,0.15083e+04 /) - kbo(:,37,16) = (/ & - & 0.20051e+04,0.18569e+04,0.17271e+04,0.16176e+04,0.15230e+04 /) - kbo(:,38,16) = (/ & - & 0.20315e+04,0.18800e+04,0.17473e+04,0.16343e+04,0.15379e+04 /) - kbo(:,39,16) = (/ & - & 0.20576e+04,0.19026e+04,0.17672e+04,0.16508e+04,0.15527e+04 /) - kbo(:,40,16) = (/ & - & 0.21013e+04,0.19405e+04,0.18004e+04,0.16787e+04,0.15771e+04 /) - kbo(:,41,16) = (/ & - & 0.21482e+04,0.19814e+04,0.18363e+04,0.17091e+04,0.16029e+04 /) - kbo(:,42,16) = (/ & - & 0.21964e+04,0.20236e+04,0.18732e+04,0.17410e+04,0.16295e+04 /) - kbo(:,43,16) = (/ & - & 0.22568e+04,0.20769e+04,0.19193e+04,0.17816e+04,0.16630e+04 /) - kbo(:,44,16) = (/ & - & 0.23247e+04,0.21362e+04,0.19712e+04,0.18270e+04,0.17012e+04 /) - kbo(:,45,16) = (/ & - & 0.23959e+04,0.21983e+04,0.20252e+04,0.18744e+04,0.17420e+04 /) - kbo(:,46,16) = (/ & - & 0.24748e+04,0.22670e+04,0.20858e+04,0.19269e+04,0.17884e+04 /) - kbo(:,47,16) = (/ & - & 0.25688e+04,0.23479e+04,0.21568e+04,0.19886e+04,0.18424e+04 /) - kbo(:,48,16) = (/ & - & 0.26704e+04,0.24334e+04,0.22313e+04,0.20542e+04,0.18994e+04 /) - kbo(:,49,16) = (/ & - & 0.27805e+04,0.25238e+04,0.23096e+04,0.21232e+04,0.19594e+04 /) - kbo(:,50,16) = (/ & - & 0.28920e+04,0.26151e+04,0.23873e+04,0.21911e+04,0.20186e+04 /) - kbo(:,51,16) = (/ & - & 0.30093e+04,0.27098e+04,0.24666e+04,0.22601e+04,0.20794e+04 /) - kbo(:,52,16) = (/ & - & 0.31338e+04,0.28121e+04,0.25503e+04,0.23323e+04,0.21428e+04 /) - kbo(:,53,16) = (/ & - & 0.32663e+04,0.29228e+04,0.26405e+04,0.24086e+04,0.22095e+04 /) - kbo(:,54,16) = (/ & - & 0.33958e+04,0.30317e+04,0.27288e+04,0.24819e+04,0.22731e+04 /) - kbo(:,55,16) = (/ & - & 0.35272e+04,0.31418e+04,0.28194e+04,0.25560e+04,0.23371e+04 /) - kbo(:,56,16) = (/ & - & 0.36664e+04,0.32577e+04,0.29162e+04,0.26350e+04,0.24040e+04 /) - kbo(:,57,16) = (/ & - & 0.38139e+04,0.33808e+04,0.30193e+04,0.27188e+04,0.24736e+04 /) - kbo(:,58,16) = (/ & - & 0.39629e+04,0.35038e+04,0.31229e+04,0.28034e+04,0.25431e+04 /) - kbo(:,59,16) = (/ & - & 0.40252e+04,0.35562e+04,0.31659e+04,0.28393e+04,0.25724e+04 /) - -! ----------------------------------------------------------------- - - forrefo(:, 1) = (/ 0.525585e-05, 0.527618e-05, 0.746929e-04 /) - forrefo(:, 2) = (/ 0.794660e-05, 0.136902e-04, 0.849878e-04 /) - forrefo(:, 3) = (/ 0.197099e-04, 0.733094e-04, 0.121687e-03 /) - forrefo(:, 4) = (/ 0.148274e-03, 0.169776e-03, 0.164848e-03 /) - forrefo(:, 5) = (/ 0.230296e-03, 0.210384e-03, 0.182028e-03 /) - forrefo(:, 6) = (/ 0.280575e-03, 0.259217e-03, 0.196080e-03 /) - forrefo(:, 7) = (/ 0.329034e-03, 0.291575e-03, 0.207044e-03 /) - forrefo(:, 8) = (/ 0.349989e-03, 0.323471e-03, 0.225712e-03 /) - forrefo(:, 9) = (/ 0.366097e-03, 0.321519e-03, 0.253150e-03 /) - forrefo(:,10) = (/ 0.383589e-03, 0.355314e-03, 0.262555e-03 /) - forrefo(:,11) = (/ 0.375933e-03, 0.372443e-03, 0.261313e-03 /) - forrefo(:,12) = (/ 0.370652e-03, 0.382366e-03, 0.250070e-03 /) - forrefo(:,13) = (/ 0.375092e-03, 0.379542e-03, 0.265794e-03 /) - forrefo(:,14) = (/ 0.389705e-03, 0.384274e-03, 0.322135e-03 /) - forrefo(:,15) = (/ 0.372084e-03, 0.390422e-03, 0.370035e-03 /) - forrefo(:,16) = (/ 0.437802e-03, 0.373406e-03, 0.373222e-03 /) - -! ----------------------------------------------------------------- -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). -! ----------------------------------------------------------------- - - selfrefo(:, 1) = (/ & - & 0.126758e-02, 0.105253e-02, 0.873963e-03, 0.725690e-03, 0.602573e-03, & - & 0.500344e-03, 0.415458e-03, 0.344973e-03, 0.286447e-03, 0.237849e-03 /) - selfrefo(:, 2) = (/ & - & 0.144006e-02, 0.118514e-02, 0.975351e-03, 0.802697e-03, 0.660606e-03, & - & 0.543667e-03, 0.447429e-03, 0.368226e-03, 0.303044e-03, 0.249400e-03 /) - selfrefo(:, 3) = (/ & - & 0.294018e-02, 0.227428e-02, 0.175920e-02, 0.136077e-02, 0.105258e-02, & - & 0.814189e-03, 0.629789e-03, 0.487153e-03, 0.376821e-03, 0.291478e-03 /) - selfrefo(:, 4) = (/ & - & 0.395290e-02, 0.348405e-02, 0.307081e-02, 0.270658e-02, 0.238556e-02, & - & 0.210261e-02, 0.185322e-02, 0.163341e-02, 0.143967e-02, 0.126891e-02 /) - selfrefo(:, 5) = (/ & - & 0.419122e-02, 0.385638e-02, 0.354829e-02, 0.326481e-02, 0.300398e-02, & - & 0.276399e-02, 0.254317e-02, 0.234000e-02, 0.215305e-02, 0.198104e-02 /) - selfrefo(:, 6) = (/ & - & 0.495659e-02, 0.456777e-02, 0.420945e-02, 0.387924e-02, 0.357494e-02, & - & 0.329450e-02, 0.303606e-02, 0.279790e-02, 0.257842e-02, 0.237615e-02 /) - selfrefo(:, 7) = (/ & - & 0.526981e-02, 0.490687e-02, 0.456893e-02, 0.425426e-02, 0.396126e-02, & - & 0.368844e-02, 0.343441e-02, 0.319788e-02, 0.297764e-02, 0.277256e-02 /) - selfrefo(:, 8) = (/ & - & 0.575426e-02, 0.531597e-02, 0.491106e-02, 0.453699e-02, 0.419141e-02, & - & 0.387216e-02, 0.357722e-02, 0.330475e-02, 0.305303e-02, 0.282048e-02 /) - selfrefo(:, 9) = (/ & - & 0.549881e-02, 0.514328e-02, 0.481074e-02, 0.449970e-02, 0.420877e-02, & - & 0.393665e-02, 0.368213e-02, 0.344406e-02, 0.322138e-02, 0.301310e-02 /) - selfrefo(:,10) = (/ & - & 0.605357e-02, 0.561246e-02, 0.520349e-02, 0.482432e-02, 0.447278e-02, & - & 0.414686e-02, 0.384469e-02, 0.356453e-02, 0.330479e-02, 0.306398e-02 /) - selfrefo(:,11) = (/ & - & 0.640504e-02, 0.587858e-02, 0.539540e-02, 0.495194e-02, 0.454492e-02, & - & 0.417136e-02, 0.382850e-02, 0.351382e-02, 0.322501e-02, 0.295993e-02 /) - selfrefo(:,12) = (/ & - & 0.677803e-02, 0.615625e-02, 0.559152e-02, 0.507859e-02, 0.461271e-02, & - & 0.418957e-02, 0.380524e-02, 0.345617e-02, 0.313913e-02, 0.285116e-02 /) - selfrefo(:,13) = (/ & - & 0.690347e-02, 0.627003e-02, 0.569472e-02, 0.517219e-02, 0.469761e-02, & - & 0.426658e-02, 0.387509e-02, 0.351953e-02, 0.319659e-02, 0.290328e-02 /) - selfrefo(:,14) = (/ & - & 0.692680e-02, 0.632795e-02, 0.578087e-02, 0.528109e-02, 0.482452e-02, & - & 0.440742e-02, 0.402638e-02, 0.367828e-02, 0.336028e-02, 0.306977e-02 /) - selfrefo(:,15) = (/ & - & 0.754894e-02, 0.681481e-02, 0.615207e-02, 0.555378e-02, 0.501367e-02, & - & 0.452609e-02, 0.408593e-02, 0.368857e-02, 0.332986e-02, 0.300603e-02 /) - selfrefo(:,16) = (/ & - & 0.760689e-02, 0.709755e-02, 0.662232e-02, 0.617891e-02, 0.576519e-02, & - & 0.537917e-02, 0.501899e-02, 0.468293e-02, 0.436938e-02, 0.407682e-02 /) - - end subroutine sw_kgb16 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_17.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_17.F90 deleted file mode 100644 index 3c7918de9..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_17.F90 +++ /dev/null @@ -1,10921 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb17 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg17, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:,1) = (/ & - & 3.15613 , 3.03449 , 2.92069 , 2.63874 , & - & 2.34581 , 2.06999 , 1.70906 , 1.29085 , & - & 0.874851 , 0.0955392, 0.0787813, 0.0621951 , & - & 0.0459076, 0.0294129, 0.0110387, 0.00159668 /) - sfluxrefo(:,2) = (/ & - & 2.83147 , 2.95919 , 2.96674 , 2.77677 , & - & 2.46826 , 2.11481 , 1.73243 , 1.30279 , & - & 0.882714 , 0.0962350, 0.0802122, 0.0636194 , & - & 0.0472620, 0.0299051, 0.0110785, 0.00159668 /) - sfluxrefo(:,3) = (/ & - & 2.82300 , 2.94845 , 2.95887 , 2.77593 , & - & 2.47096 , 2.12596 , 1.73847 , 1.30796 , & - & 0.884395 , 0.0966936, 0.0801996, 0.0640199 , & - & 0.0472803, 0.0300515, 0.0112366, 0.00160814 /) - sfluxrefo(:,4) = (/ & - & 2.81715 , 2.93789 , 2.95091 , 2.77046 , & - & 2.47716 , 2.13591 , 1.74365 , 1.31277 , & - & 0.887443 , 0.0967016, 0.0803391, 0.0642442 , & - & 0.0472909, 0.0300720, 0.0114817, 0.00161875 /) - sfluxrefo(:,5) = (/ & - & 2.82335 , 2.93168 , 2.91455 , 2.75213 , & - & 2.49168 , 2.14408 , 1.75726 , 1.32401 , & - & 0.893644 , 0.0969523, 0.0805197, 0.0639936 , & - & 0.0475099, 0.0305667, 0.0115372, 0.00161875 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:,1) = (/ & - & 3.00380E+00, 3.01499E+00, 2.88453E+00, 2.66215E+00,& - & 2.41145E+00, 2.07054E+00, 1.69908E+00, 1.28167E+00,& - & 8.67239E-01, 9.46462E-02, 7.80535E-02, 6.16168E-02,& - & 4.54819E-02, 2.91472E-02, 1.09384E-02, 1.58227E-03/) - irradnceo(:,2) = (/ & - & 2.78291E+00, 2.95184E+00, 2.94616E+00, 2.75630E+00,& - & 2.45861E+00, 2.10312E+00, 1.72152E+00, 1.29314E+00,& - & 8.76016E-01, 9.54462E-02, 7.95557E-02, 6.31187E-02,& - & 4.69116E-02, 2.97081E-02, 1.09937E-02, 1.58227E-03/) - irradnceo(:,3) = (/ & - & 2.77881E+00, 2.92869E+00, 2.94671E+00, 2.75619E+00,& - & 2.46125E+00, 2.11314E+00, 1.72657E+00, 1.29878E+00,& - & 8.78235E-01, 9.59533E-02, 7.95652E-02, 6.34930E-02,& - & 4.69402E-02, 2.98560E-02, 1.11600E-02, 1.60267E-03/) - irradnceo(:,4) = (/ & - & 2.77427E+00, 2.92613E+00, 2.92863E+00, 2.75471E+00,& - & 2.46413E+00, 2.12275E+00, 1.73162E+00, 1.30408E+00,& - & 8.81320E-01, 9.59524E-02, 7.97535E-02, 6.37490E-02,& - & 4.69216E-02, 2.98679E-02, 1.14332E-02, 1.61722E-03/) - irradnceo(:,5) = (/ & - & 2.75976E+00, 2.93480E+00, 2.89604E+00, 2.72071E+00,& - & 2.46217E+00, 2.14116E+00, 1.75435E+00, 1.32404E+00,& - & 8.93287E-01, 9.64493E-02, 7.99754E-02, 6.35176E-02,& - & 4.71787E-02, 3.03769E-02, 1.14846E-02, 1.61722E-03/) -! Solar variability components: facular brightening - facbrghto(:,1) = (/ & - & 7.92679E-04, 7.90259E-04, 7.50265E-04, 6.86566E-04,& - & 6.13488E-04, 5.12914E-04, 4.13317E-04, 3.10175E-04,& - & 2.10234E-04, 2.29639E-05, 1.89746E-05, 1.49935E-05,& - & 1.10311E-05, 7.04437E-06, 2.64054E-06, 3.76806E-07/) - facbrghto(:,2) = (/ & - & 7.24729E-04, 7.68724E-04, 7.64896E-04, 7.08831E-04,& - & 6.23760E-04, 5.23886E-04, 4.25169E-04, 3.19603E-04,& - & 2.17156E-04, 2.36660E-05, 1.97404E-05, 1.56597E-05,& - & 1.16608E-05, 7.39474E-06, 2.67023E-06, 3.76806E-07/) - facbrghto(:,3) = (/ & - & 7.22453E-04, 7.59373E-04, 7.64513E-04, 7.07591E-04,& - & 6.22956E-04, 5.28244E-04, 4.28829E-04, 3.23029E-04,& - & 2.19000E-04, 2.39727E-05, 1.98054E-05, 1.57951E-05,& - & 1.17384E-05, 7.46055E-06, 2.76650E-06, 3.94737E-07/) - facbrghto(:,4) = (/ & - & 7.19944E-04, 7.57664E-04, 7.55804E-04, 7.06804E-04,& - & 6.21975E-04, 5.33055E-04, 4.32950E-04, 3.26216E-04,& - & 2.21019E-04, 2.40765E-05, 1.99104E-05, 1.59777E-05,& - & 1.17605E-05, 7.46496E-06, 2.88424E-06, 4.17580E-07/) - facbrghto(:,5) = (/ & - & 7.10164E-04, 7.49716E-04, 7.35392E-04, 6.93190E-04,& - & 6.27365E-04, 5.47220E-04, 4.47370E-04, 3.36835E-04,& - & 2.26764E-04, 2.45333E-05, 2.03053E-05, 1.60363E-05,& - & 1.19581E-05, 7.72650E-06, 2.93031E-06, 4.17580E-07/) -! Solar variability components: sunspot darkening - snsptdrko(:,1) = (/ & - &-3.59484E-04,-3.65300E-04,-3.48916E-04,-3.20756E-04,& - &-2.90556E-04,-2.45378E-04,-2.00296E-04,-1.50935E-04,& - &-1.02160E-04,-1.11770E-05,-9.21224E-06,-7.26637E-06,& - &-5.35918E-06,-3.44009E-06,-1.29143E-06,-1.88663E-07/) - snsptdrko(:,2) = (/ & - &-3.21006E-04,-3.55162E-04,-3.59974E-04,-3.35589E-04,& - &-2.96374E-04,-2.51058E-04,-2.05001E-04,-1.53920E-04,& - &-1.04476E-04,-1.13950E-05,-9.51824E-06,-7.55462E-06,& - &-5.64173E-06,-3.55839E-06,-1.30018E-06,-1.88663E-07/) - snsptdrko(:,3) = (/ & - &-3.20043E-04,-3.50843E-04,-3.60160E-04,-3.35247E-04,& - &-2.96458E-04,-2.53066E-04,-2.06254E-04,-1.55161E-04,& - &-1.05030E-04,-1.15221E-05,-9.52632E-06,-7.62653E-06,& - &-5.65949E-06,-3.59072E-06,-1.33606E-06,-1.91522E-07/) - snsptdrko(:,4) = (/ & - &-3.18913E-04,-3.50362E-04,-3.56389E-04,-3.35108E-04,& - &-2.96722E-04,-2.54950E-04,-2.07581E-04,-1.56352E-04,& - &-1.05703E-04,-1.15254E-05,-9.57868E-06,-7.69098E-06,& - &-5.66733E-06,-3.59649E-06,-1.38271E-06,-1.95898E-07/) - snsptdrko(:,5) = (/ & - &-3.14466E-04,-3.48952E-04,-3.47912E-04,-3.28476E-04,& - &-2.98297E-04,-2.60496E-04,-2.13593E-04,-1.61075E-04,& - &-1.08403E-04,-1.16544E-05,-9.68748E-06,-7.68153E-06,& - &-5.73245E-06,-3.70217E-06,-1.39400E-06,-1.95898E-07/) - -! Rayleigh extinction coefficient at v = 3625 cm-1. - rayl = 6.86e-10 - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1, 1) = (/ & - & 0.11134e-05,0.32092e-03,0.55663e-03,0.78227e-03,0.99421e-03, & - & 0.12045e-02,0.14116e-02,0.16069e-02,0.19330e-02 /) - kao(:, 2, 1, 1) = (/ & - & 0.10544e-05,0.35434e-03,0.61480e-03,0.86424e-03,0.11055e-02, & - & 0.13431e-02,0.15754e-02,0.17951e-02,0.21280e-02 /) - kao(:, 3, 1, 1) = (/ & - & 0.98345e-06,0.38989e-03,0.67747e-03,0.95289e-03,0.12196e-02, & - & 0.14864e-02,0.17449e-02,0.19897e-02,0.23564e-02 /) - kao(:, 4, 1, 1) = (/ & - & 0.95017e-06,0.42582e-03,0.74419e-03,0.10463e-02,0.13424e-02, & - & 0.16353e-02,0.19215e-02,0.21939e-02,0.25993e-02 /) - kao(:, 5, 1, 1) = (/ & - & 0.91870e-06,0.46371e-03,0.81394e-03,0.11464e-02,0.14715e-02, & - & 0.17937e-02,0.21072e-02,0.24077e-02,0.28540e-02 /) - kao(:, 1, 2, 1) = (/ & - & 0.94184e-06,0.26532e-03,0.46157e-03,0.63776e-03,0.81087e-03, & - & 0.97728e-03,0.11419e-02,0.12991e-02,0.15121e-02 /) - kao(:, 2, 2, 1) = (/ & - & 0.89060e-06,0.29417e-03,0.50967e-03,0.70759e-03,0.90203e-03, & - & 0.10920e-02,0.12764e-02,0.14544e-02,0.16795e-02 /) - kao(:, 3, 2, 1) = (/ & - & 0.82720e-06,0.32361e-03,0.56124e-03,0.78299e-03,0.99718e-03, & - & 0.12094e-02,0.14172e-02,0.16165e-02,0.18637e-02 /) - kao(:, 4, 2, 1) = (/ & - & 0.78842e-06,0.35495e-03,0.61684e-03,0.86176e-03,0.10995e-02, & - & 0.13345e-02,0.15652e-02,0.17856e-02,0.20621e-02 /) - kao(:, 5, 2, 1) = (/ & - & 0.76610e-06,0.38728e-03,0.67538e-03,0.94613e-03,0.12082e-02, & - & 0.14675e-02,0.17206e-02,0.19640e-02,0.22720e-02 /) - kao(:, 1, 3, 1) = (/ & - & 0.79663e-06,0.21369e-03,0.37088e-03,0.51222e-03,0.64549e-03, & - & 0.77322e-03,0.89939e-03,0.10205e-02,0.11568e-02 /) - kao(:, 2, 3, 1) = (/ & - & 0.75955e-06,0.23780e-03,0.41153e-03,0.56901e-03,0.72009e-03, & - & 0.86735e-03,0.10092e-02,0.11476e-02,0.12913e-02 /) - kao(:, 3, 3, 1) = (/ & - & 0.71692e-06,0.26276e-03,0.45488e-03,0.62922e-03,0.79836e-03, & - & 0.96259e-03,0.11236e-02,0.12796e-02,0.14398e-02 /) - kao(:, 4, 3, 1) = (/ & - & 0.66348e-06,0.28896e-03,0.50221e-03,0.69411e-03,0.88226e-03, & - & 0.10658e-02,0.12456e-02,0.14191e-02,0.15991e-02 /) - kao(:, 5, 3, 1) = (/ & - & 0.64013e-06,0.31643e-03,0.55166e-03,0.76434e-03,0.97216e-03, & - & 0.11745e-02,0.13731e-02,0.15657e-02,0.17671e-02 /) - kao(:, 1, 4, 1) = (/ & - & 0.66217e-06,0.16966e-03,0.29358e-03,0.40688e-03,0.51114e-03, & - & 0.60739e-03,0.70191e-03,0.79446e-03,0.88832e-03 /) - kao(:, 2, 4, 1) = (/ & - & 0.64111e-06,0.18902e-03,0.32742e-03,0.45364e-03,0.57086e-03, & - & 0.68401e-03,0.79116e-03,0.89507e-03,0.99655e-03 /) - kao(:, 3, 4, 1) = (/ & - & 0.60729e-06,0.21007e-03,0.36354e-03,0.50354e-03,0.63459e-03, & - & 0.76113e-03,0.88473e-03,0.10035e-02,0.11163e-02 /) - kao(:, 4, 4, 1) = (/ & - & 0.57250e-06,0.23203e-03,0.40245e-03,0.55758e-03,0.70295e-03, & - & 0.84515e-03,0.98379e-03,0.11165e-02,0.12444e-02 /) - kao(:, 5, 4, 1) = (/ & - & 0.53524e-06,0.25529e-03,0.44399e-03,0.61564e-03,0.77626e-03, & - & 0.93405e-03,0.10892e-02,0.12369e-02,0.13795e-02 /) - kao(:, 1, 5, 1) = (/ & - & 0.55112e-06,0.13422e-03,0.23166e-03,0.32119e-03,0.40265e-03, & - & 0.47812e-03,0.54797e-03,0.61873e-03,0.68912e-03 /) - kao(:, 2, 5, 1) = (/ & - & 0.53669e-06,0.14990e-03,0.25949e-03,0.35886e-03,0.45239e-03, & - & 0.53936e-03,0.61894e-03,0.69718e-03,0.77732e-03 /) - kao(:, 3, 5, 1) = (/ & - & 0.51495e-06,0.16706e-03,0.28960e-03,0.40020e-03,0.50461e-03, & - & 0.60249e-03,0.69677e-03,0.78464e-03,0.87334e-03 /) - kao(:, 4, 5, 1) = (/ & - & 0.48633e-06,0.18543e-03,0.32159e-03,0.44499e-03,0.56095e-03, & - & 0.67055e-03,0.77575e-03,0.87717e-03,0.97694e-03 /) - kao(:, 5, 5, 1) = (/ & - & 0.45162e-06,0.20472e-03,0.35591e-03,0.49350e-03,0.62163e-03, & - & 0.74253e-03,0.86247e-03,0.97518e-03,0.10864e-02 /) - kao(:, 1, 6, 1) = (/ & - & 0.45055e-06,0.10556e-03,0.18176e-03,0.25137e-03,0.31438e-03, & - & 0.37363e-03,0.42759e-03,0.47883e-03,0.53437e-03 /) - kao(:, 2, 6, 1) = (/ & - & 0.44502e-06,0.11814e-03,0.20383e-03,0.28162e-03,0.35547e-03, & - & 0.42261e-03,0.48340e-03,0.54066e-03,0.60352e-03 /) - kao(:, 3, 6, 1) = (/ & - & 0.43066e-06,0.13217e-03,0.22836e-03,0.31552e-03,0.39762e-03, & - & 0.47493e-03,0.54543e-03,0.61066e-03,0.68176e-03 /) - kao(:, 4, 6, 1) = (/ & - & 0.41116e-06,0.14733e-03,0.25472e-03,0.35204e-03,0.44334e-03, & - & 0.52997e-03,0.60966e-03,0.68622e-03,0.76607e-03 /) - kao(:, 5, 6, 1) = (/ & - & 0.38748e-06,0.16344e-03,0.28281e-03,0.39173e-03,0.49305e-03, & - & 0.58880e-03,0.67954e-03,0.76485e-03,0.85401e-03 /) - kao(:, 1, 7, 1) = (/ & - & 0.36582e-06,0.82958e-04,0.14210e-03,0.19574e-03,0.24440e-03, & - & 0.29039e-03,0.33281e-03,0.37177e-03,0.42178e-03 /) - kao(:, 2, 7, 1) = (/ & - & 0.36707e-06,0.92909e-04,0.15977e-03,0.22034e-03,0.27742e-03, & - & 0.32955e-03,0.37727e-03,0.41956e-03,0.47859e-03 /) - kao(:, 3, 7, 1) = (/ & - & 0.35787e-06,0.10432e-03,0.17930e-03,0.24769e-03,0.31155e-03, & - & 0.37242e-03,0.42699e-03,0.47474e-03,0.54083e-03 /) - kao(:, 4, 7, 1) = (/ & - & 0.34482e-06,0.11685e-03,0.20055e-03,0.27725e-03,0.34866e-03, & - & 0.41677e-03,0.47903e-03,0.53518e-03,0.60812e-03 /) - kao(:, 5, 7, 1) = (/ & - & 0.32598e-06,0.13001e-03,0.22341e-03,0.30900e-03,0.38919e-03, & - & 0.46465e-03,0.53467e-03,0.59926e-03,0.67733e-03 /) - kao(:, 1, 8, 1) = (/ & - & 0.29834e-06,0.65009e-04,0.11183e-03,0.15200e-03,0.18969e-03, & - & 0.22517e-03,0.25832e-03,0.28730e-03,0.33955e-03 /) - kao(:, 2, 8, 1) = (/ & - & 0.29745e-06,0.72872e-04,0.12482e-03,0.17221e-03,0.21583e-03, & - & 0.25596e-03,0.29328e-03,0.32520e-03,0.38620e-03 /) - kao(:, 3, 8, 1) = (/ & - & 0.29421e-06,0.82036e-04,0.14010e-03,0.19344e-03,0.24362e-03, & - & 0.29071e-03,0.33308e-03,0.36867e-03,0.43901e-03 /) - kao(:, 4, 8, 1) = (/ & - & 0.28596e-06,0.92256e-04,0.15738e-03,0.21752e-03,0.27325e-03, & - & 0.32643e-03,0.37578e-03,0.41710e-03,0.49358e-03 /) - kao(:, 5, 8, 1) = (/ & - & 0.27296e-06,0.10320e-03,0.17598e-03,0.24339e-03,0.30591e-03, & - & 0.36505e-03,0.42061e-03,0.46872e-03,0.54993e-03 /) - kao(:, 1, 9, 1) = (/ & - & 0.24259e-06,0.50626e-04,0.86945e-04,0.11778e-03,0.14692e-03, & - & 0.17431e-03,0.20057e-03,0.22131e-03,0.29919e-03 /) - kao(:, 2, 9, 1) = (/ & - & 0.24058e-06,0.56966e-04,0.97467e-04,0.13405e-03,0.16750e-03, & - & 0.19814e-03,0.22739e-03,0.25281e-03,0.34022e-03 /) - kao(:, 3, 9, 1) = (/ & - & 0.24091e-06,0.64324e-04,0.10971e-03,0.15061e-03,0.18996e-03, & - & 0.22580e-03,0.25885e-03,0.28694e-03,0.38045e-03 /) - kao(:, 4, 9, 1) = (/ & - & 0.23550e-06,0.72451e-04,0.12345e-03,0.16991e-03,0.21362e-03, & - & 0.25484e-03,0.29341e-03,0.32523e-03,0.42836e-03 /) - kao(:, 5, 9, 1) = (/ & - & 0.22696e-06,0.81351e-04,0.13839e-03,0.19090e-03,0.23986e-03, & - & 0.28608e-03,0.32910e-03,0.36639e-03,0.47925e-03 /) - kao(:, 1,10, 1) = (/ & - & 0.19679e-06,0.39760e-04,0.68052e-04,0.92295e-04,0.11498e-03, & - & 0.13656e-03,0.15604e-03,0.17171e-03,0.29679e-03 /) - kao(:, 2,10, 1) = (/ & - & 0.19567e-06,0.44847e-04,0.76829e-04,0.10518e-03,0.13102e-03, & - & 0.15509e-03,0.17764e-03,0.19843e-03,0.32863e-03 /) - kao(:, 3,10, 1) = (/ & - & 0.19574e-06,0.50565e-04,0.86466e-04,0.11878e-03,0.14920e-03, & - & 0.17698e-03,0.20258e-03,0.22526e-03,0.36959e-03 /) - kao(:, 4,10, 1) = (/ & - & 0.19262e-06,0.57124e-04,0.97546e-04,0.13398e-03,0.16803e-03, & - & 0.20046e-03,0.23022e-03,0.25578e-03,0.41543e-03 /) - kao(:, 5,10, 1) = (/ & - & 0.18747e-06,0.64264e-04,0.10971e-03,0.15086e-03,0.18923e-03, & - & 0.22565e-03,0.25934e-03,0.28921e-03,0.46463e-03 /) - kao(:, 1,11, 1) = (/ & - & 0.16015e-06,0.33025e-04,0.56562e-04,0.76625e-04,0.95645e-04, & - & 0.11358e-03,0.12955e-03,0.14269e-03,0.27545e-03 /) - kao(:, 2,11, 1) = (/ & - & 0.15918e-06,0.37148e-04,0.63775e-04,0.87600e-04,0.10897e-03, & - & 0.12893e-03,0.14756e-03,0.16465e-03,0.30799e-03 /) - kao(:, 3,11, 1) = (/ & - & 0.15897e-06,0.41993e-04,0.72040e-04,0.98928e-04,0.12433e-03, & - & 0.14733e-03,0.16824e-03,0.18694e-03,0.34340e-03 /) - kao(:, 4,11, 1) = (/ & - & 0.15578e-06,0.47441e-04,0.81426e-04,0.11165e-03,0.13985e-03, & - & 0.16673e-03,0.19156e-03,0.21268e-03,0.38176e-03 /) - kao(:, 5,11, 1) = (/ & - & 0.15210e-06,0.53398e-04,0.91657e-04,0.12592e-03,0.15769e-03, & - & 0.18781e-03,0.21569e-03,0.24069e-03,0.42228e-03 /) - kao(:, 1,12, 1) = (/ & - & 0.13021e-06,0.27272e-04,0.46832e-04,0.63511e-04,0.79205e-04, & - & 0.93949e-04,0.10719e-03,0.11827e-03,0.23944e-03 /) - kao(:, 2,12, 1) = (/ & - & 0.12930e-06,0.30686e-04,0.52925e-04,0.72782e-04,0.90527e-04, & - & 0.10708e-03,0.12236e-03,0.13620e-03,0.27121e-03 /) - kao(:, 3,12, 1) = (/ & - & 0.12900e-06,0.34723e-04,0.59867e-04,0.82205e-04,0.10326e-03, & - & 0.12238e-03,0.13958e-03,0.15498e-03,0.29930e-03 /) - kao(:, 4,12, 1) = (/ & - & 0.12648e-06,0.39252e-04,0.67618e-04,0.92949e-04,0.11636e-03, & - & 0.13835e-03,0.15924e-03,0.17653e-03,0.33050e-03 /) - kao(:, 5,12, 1) = (/ & - & 0.12299e-06,0.44213e-04,0.76244e-04,0.10488e-03,0.13135e-03, & - & 0.15601e-03,0.17902e-03,0.19976e-03,0.36579e-03 /) - kao(:, 1,13, 1) = (/ & - & 0.10554e-06,0.22388e-04,0.38597e-04,0.52378e-04,0.65404e-04, & - & 0.77567e-04,0.88543e-04,0.97801e-04,0.19599e-03 /) - kao(:, 2,13, 1) = (/ & - & 0.10480e-06,0.25181e-04,0.43670e-04,0.60205e-04,0.74883e-04, & - & 0.88605e-04,0.10117e-03,0.11242e-03,0.22146e-03 /) - kao(:, 3,13, 1) = (/ & - & 0.10429e-06,0.28530e-04,0.49422e-04,0.68039e-04,0.85435e-04, & - & 0.10136e-03,0.11557e-03,0.12828e-03,0.24447e-03 /) - kao(:, 4,13, 1) = (/ & - & 0.10232e-06,0.32301e-04,0.55797e-04,0.76948e-04,0.96447e-04, & - & 0.11462e-03,0.13166e-03,0.14616e-03,0.26999e-03 /) - kao(:, 5,13, 1) = (/ & - & 0.99014e-07,0.36394e-04,0.62994e-04,0.86946e-04,0.10900e-03, & - & 0.12937e-03,0.14833e-03,0.16540e-03,0.29916e-03 /) - kao(:, 1, 1, 2) = (/ & - & 0.23488e-04,0.16684e-02,0.29575e-02,0.40083e-02,0.49953e-02, & - & 0.59021e-02,0.67446e-02,0.76008e-02,0.87032e-02 /) - kao(:, 2, 1, 2) = (/ & - & 0.25156e-04,0.18462e-02,0.32711e-02,0.45008e-02,0.56182e-02, & - & 0.66287e-02,0.75909e-02,0.85558e-02,0.97543e-02 /) - kao(:, 3, 1, 2) = (/ & - & 0.27084e-04,0.20325e-02,0.36034e-02,0.49992e-02,0.62796e-02, & - & 0.74134e-02,0.84994e-02,0.95694e-02,0.10847e-01 /) - kao(:, 4, 1, 2) = (/ & - & 0.28147e-04,0.22347e-02,0.39628e-02,0.55005e-02,0.69453e-02, & - & 0.82429e-02,0.94699e-02,0.10660e-01,0.11991e-01 /) - kao(:, 5, 1, 2) = (/ & - & 0.28719e-04,0.24475e-02,0.43369e-02,0.60360e-02,0.76183e-02, & - & 0.90878e-02,0.10493e-01,0.11805e-01,0.13204e-01 /) - kao(:, 1, 2, 2) = (/ & - & 0.20947e-04,0.14015e-02,0.24728e-02,0.33676e-02,0.41801e-02, & - & 0.49244e-02,0.55787e-02,0.62206e-02,0.69741e-02 /) - kao(:, 2, 2, 2) = (/ & - & 0.22352e-04,0.15535e-02,0.27396e-02,0.37870e-02,0.47121e-02, & - & 0.55571e-02,0.62892e-02,0.70132e-02,0.78092e-02 /) - kao(:, 3, 2, 2) = (/ & - & 0.23882e-04,0.17213e-02,0.30345e-02,0.42020e-02,0.52782e-02, & - & 0.62285e-02,0.70556e-02,0.78819e-02,0.87330e-02 /) - kao(:, 4, 2, 2) = (/ & - & 0.24650e-04,0.18954e-02,0.33384e-02,0.46336e-02,0.58333e-02, & - & 0.69311e-02,0.78751e-02,0.88149e-02,0.96911e-02 /) - kao(:, 5, 2, 2) = (/ & - & 0.25136e-04,0.20806e-02,0.36641e-02,0.50966e-02,0.64193e-02, & - & 0.76281e-02,0.87403e-02,0.97943e-02,0.10704e-01 /) - kao(:, 1, 3, 2) = (/ & - & 0.17720e-04,0.11414e-02,0.20045e-02,0.27288e-02,0.33891e-02, & - & 0.39755e-02,0.44967e-02,0.49389e-02,0.53858e-02 /) - kao(:, 2, 3, 2) = (/ & - & 0.19087e-04,0.12745e-02,0.22336e-02,0.30841e-02,0.38333e-02, & - & 0.44983e-02,0.50895e-02,0.55930e-02,0.60666e-02 /) - kao(:, 3, 3, 2) = (/ & - & 0.20125e-04,0.14178e-02,0.24795e-02,0.34278e-02,0.43106e-02, & - & 0.50607e-02,0.57280e-02,0.63092e-02,0.68285e-02 /) - kao(:, 4, 3, 2) = (/ & - & 0.20895e-04,0.15666e-02,0.27348e-02,0.37934e-02,0.47769e-02, & - & 0.56621e-02,0.64046e-02,0.70864e-02,0.76026e-02 /) - kao(:, 5, 3, 2) = (/ & - & 0.21508e-04,0.17251e-02,0.30153e-02,0.41809e-02,0.52689e-02, & - & 0.62462e-02,0.71125e-02,0.79104e-02,0.84389e-02 /) - kao(:, 1, 4, 2) = (/ & - & 0.14661e-04,0.92261e-03,0.16088e-02,0.21788e-02,0.26956e-02, & - & 0.31612e-02,0.35626e-02,0.38878e-02,0.41525e-02 /) - kao(:, 2, 4, 2) = (/ & - & 0.15607e-04,0.10329e-02,0.17973e-02,0.24735e-02,0.30696e-02, & - & 0.35953e-02,0.40511e-02,0.44162e-02,0.46990e-02 /) - kao(:, 3, 4, 2) = (/ & - & 0.16559e-04,0.11550e-02,0.20019e-02,0.27577e-02,0.34625e-02, & - & 0.40662e-02,0.45831e-02,0.49995e-02,0.53073e-02 /) - kao(:, 4, 4, 2) = (/ & - & 0.17263e-04,0.12794e-02,0.22184e-02,0.30614e-02,0.38510e-02, & - & 0.45664e-02,0.51532e-02,0.56290e-02,0.59436e-02 /) - kao(:, 5, 4, 2) = (/ & - & 0.17895e-04,0.14130e-02,0.24526e-02,0.33805e-02,0.42622e-02, & - & 0.50556e-02,0.57489e-02,0.63094e-02,0.66256e-02 /) - kao(:, 1, 5, 2) = (/ & - & 0.11885e-04,0.74888e-03,0.12826e-02,0.17258e-02,0.21346e-02, & - & 0.24972e-02,0.28046e-02,0.30606e-02,0.32323e-02 /) - kao(:, 2, 5, 2) = (/ & - & 0.12452e-04,0.84084e-03,0.14380e-02,0.19698e-02,0.24386e-02, & - & 0.28536e-02,0.32075e-02,0.34937e-02,0.36562e-02 /) - kao(:, 3, 5, 2) = (/ & - & 0.13439e-04,0.94272e-03,0.16065e-02,0.22079e-02,0.27660e-02, & - & 0.32389e-02,0.36440e-02,0.39673e-02,0.41393e-02 /) - kao(:, 4, 5, 2) = (/ & - & 0.14053e-04,0.10473e-02,0.17899e-02,0.24603e-02,0.30861e-02, & - & 0.36521e-02,0.41156e-02,0.44825e-02,0.46529e-02 /) - kao(:, 5, 5, 2) = (/ & - & 0.14586e-04,0.11585e-02,0.19886e-02,0.27257e-02,0.34272e-02, & - & 0.40599e-02,0.46115e-02,0.50286e-02,0.52085e-02 /) - kao(:, 1, 6, 2) = (/ & - & 0.94872e-05,0.59793e-03,0.10210e-02,0.13572e-02,0.16716e-02, & - & 0.19512e-02,0.21890e-02,0.23827e-02,0.25347e-02 /) - kao(:, 2, 6, 2) = (/ & - & 0.10060e-04,0.67400e-03,0.11432e-02,0.15564e-02,0.19188e-02, & - & 0.22389e-02,0.25161e-02,0.27308e-02,0.28770e-02 /) - kao(:, 3, 6, 2) = (/ & - & 0.10743e-04,0.75948e-03,0.12806e-02,0.17551e-02,0.21862e-02, & - & 0.25545e-02,0.28729e-02,0.31149e-02,0.32716e-02 /) - kao(:, 4, 6, 2) = (/ & - & 0.11322e-04,0.85134e-03,0.14320e-02,0.19630e-02,0.24514e-02, & - & 0.28930e-02,0.32578e-02,0.35375e-02,0.36912e-02 /) - kao(:, 5, 6, 2) = (/ & - & 0.11755e-04,0.94611e-03,0.15986e-02,0.21804e-02,0.27291e-02, & - & 0.32306e-02,0.36695e-02,0.39913e-02,0.41439e-02 /) - kao(:, 1, 7, 2) = (/ & - & 0.75931e-05,0.47130e-03,0.81211e-03,0.10658e-02,0.13004e-02, & - & 0.15175e-02,0.17002e-02,0.18473e-02,0.19861e-02 /) - kao(:, 2, 7, 2) = (/ & - & 0.80724e-05,0.53358e-03,0.91163e-03,0.12261e-02,0.15014e-02, & - & 0.17483e-02,0.19612e-02,0.21201e-02,0.22591e-02 /) - kao(:, 3, 7, 2) = (/ & - & 0.84404e-05,0.60517e-03,0.10236e-02,0.13887e-02,0.17204e-02, & - & 0.20031e-02,0.22497e-02,0.24321e-02,0.25823e-02 /) - kao(:, 4, 7, 2) = (/ & - & 0.90511e-05,0.68037e-03,0.11475e-02,0.15596e-02,0.19402e-02, & - & 0.22789e-02,0.25633e-02,0.27753e-02,0.29247e-02 /) - kao(:, 5, 7, 2) = (/ & - & 0.94405e-05,0.76103e-03,0.12836e-02,0.17422e-02,0.21698e-02, & - & 0.25585e-02,0.28989e-02,0.31444e-02,0.33016e-02 /) - kao(:, 1, 8, 2) = (/ & - & 0.58080e-05,0.36782e-03,0.63516e-03,0.83799e-03,0.10119e-02, & - & 0.11754e-02,0.13161e-02,0.14382e-02,0.15837e-02 /) - kao(:, 2, 8, 2) = (/ & - & 0.63156e-05,0.41909e-03,0.71974e-03,0.96952e-03,0.11711e-02, & - & 0.13617e-02,0.15234e-02,0.16441e-02,0.18118e-02 /) - kao(:, 3, 8, 2) = (/ & - & 0.66776e-05,0.47829e-03,0.81150e-03,0.11056e-02,0.13493e-02, & - & 0.15646e-02,0.17524e-02,0.18937e-02,0.20698e-02 /) - kao(:, 4, 8, 2) = (/ & - & 0.70582e-05,0.54017e-03,0.91330e-03,0.12434e-02,0.15411e-02, & - & 0.17884e-02,0.20057e-02,0.21704e-02,0.23548e-02 /) - kao(:, 5, 8, 2) = (/ & - & 0.74902e-05,0.60717e-03,0.10267e-02,0.13908e-02,0.17231e-02, & - & 0.20285e-02,0.22810e-02,0.24710e-02,0.26631e-02 /) - kao(:, 1, 9, 2) = (/ & - & 0.45061e-05,0.28626e-03,0.49448e-03,0.65317e-03,0.79081e-03, & - & 0.91066e-03,0.10182e-02,0.11107e-02,0.14592e-02 /) - kao(:, 2, 9, 2) = (/ & - & 0.49392e-05,0.32734e-03,0.56558e-03,0.76077e-03,0.91846e-03, & - & 0.10578e-02,0.11776e-02,0.12720e-02,0.16778e-02 /) - kao(:, 3, 9, 2) = (/ & - & 0.52580e-05,0.37522e-03,0.63845e-03,0.87805e-03,0.10619e-02, & - & 0.12194e-02,0.13606e-02,0.14680e-02,0.19259e-02 /) - kao(:, 4, 9, 2) = (/ & - & 0.54991e-05,0.42659e-03,0.72103e-03,0.98756e-03,0.12163e-02, & - & 0.14007e-02,0.15647e-02,0.16900e-02,0.21772e-02 /) - kao(:, 5, 9, 2) = (/ & - & 0.58769e-05,0.48199e-03,0.81466e-03,0.11072e-02,0.13684e-02, & - & 0.15984e-02,0.17887e-02,0.19333e-02,0.24331e-02 /) - kao(:, 1,10, 2) = (/ & - & 0.34154e-05,0.22534e-03,0.38788e-03,0.51113e-03,0.62194e-03, & - & 0.71432e-03,0.79743e-03,0.86289e-03,0.14758e-02 /) - kao(:, 2,10, 2) = (/ & - & 0.38085e-05,0.25832e-03,0.44748e-03,0.59835e-03,0.72514e-03, & - & 0.83284e-03,0.91941e-03,0.99583e-03,0.17358e-02 /) - kao(:, 3,10, 2) = (/ & - & 0.41578e-05,0.29655e-03,0.50553e-03,0.69511e-03,0.84107e-03, & - & 0.96374e-03,0.10666e-02,0.11478e-02,0.19625e-02 /) - kao(:, 4,10, 2) = (/ & - & 0.43917e-05,0.33908e-03,0.57351e-03,0.78640e-03,0.96862e-03, & - & 0.11109e-02,0.12309e-02,0.13266e-02,0.22103e-02 /) - kao(:, 5,10, 2) = (/ & - & 0.45446e-05,0.38548e-03,0.64883e-03,0.88401e-03,0.10952e-02, & - & 0.12706e-02,0.14136e-02,0.15239e-02,0.24754e-02 /) - kao(:, 1,11, 2) = (/ & - & 0.27604e-05,0.18848e-03,0.32532e-03,0.42949e-03,0.52350e-03, & - & 0.60084e-03,0.66640e-03,0.72070e-03,0.13692e-02 /) - kao(:, 2,11, 2) = (/ & - & 0.30908e-05,0.21679e-03,0.37259e-03,0.50366e-03,0.61074e-03, & - & 0.70158e-03,0.77271e-03,0.83037e-03,0.15689e-02 /) - kao(:, 3,11, 2) = (/ & - & 0.33674e-05,0.24965e-03,0.42244e-03,0.58353e-03,0.70923e-03, & - & 0.81330e-03,0.89750e-03,0.96131e-03,0.17971e-02 /) - kao(:, 4,11, 2) = (/ & - & 0.35568e-05,0.28602e-03,0.48044e-03,0.65868e-03,0.81816e-03, & - & 0.93857e-03,0.10357e-02,0.11119e-02,0.20509e-02 /) - kao(:, 5,11, 2) = (/ & - & 0.36921e-05,0.32484e-03,0.54623e-03,0.74475e-03,0.92307e-03, & - & 0.10758e-02,0.11895e-02,0.12777e-02,0.23253e-02 /) - kao(:, 1,12, 2) = (/ & - & 0.22272e-05,0.15807e-03,0.27163e-03,0.35935e-03,0.43781e-03, & - & 0.50321e-03,0.55776e-03,0.60046e-03,0.11852e-02 /) - kao(:, 2,12, 2) = (/ & - & 0.24898e-05,0.18201e-03,0.31004e-03,0.42206e-03,0.51226e-03, & - & 0.58824e-03,0.64919e-03,0.69291e-03,0.13623e-02 /) - kao(:, 3,12, 2) = (/ & - & 0.27021e-05,0.20958e-03,0.35322e-03,0.48676e-03,0.59587e-03, & - & 0.68364e-03,0.75527e-03,0.80436e-03,0.15654e-02 /) - kao(:, 4,12, 2) = (/ & - & 0.28526e-05,0.24038e-03,0.40262e-03,0.55096e-03,0.68671e-03, & - & 0.79103e-03,0.87211e-03,0.93124e-03,0.17898e-02 /) - kao(:, 5,12, 2) = (/ & - & 0.29899e-05,0.27289e-03,0.45904e-03,0.62448e-03,0.77496e-03, & - & 0.90212e-03,0.10018e-02,0.10706e-02,0.20265e-02 /) - kao(:, 1,13, 2) = (/ & - & 0.17576e-05,0.13151e-03,0.22518e-03,0.29890e-03,0.36398e-03, & - & 0.41884e-03,0.46505e-03,0.50086e-03,0.97916e-03 /) - kao(:, 2,13, 2) = (/ & - & 0.19524e-05,0.15189e-03,0.25686e-03,0.35123e-03,0.42723e-03, & - & 0.49061e-03,0.54293e-03,0.57815e-03,0.11260e-02 /) - kao(:, 3,13, 2) = (/ & - & 0.21134e-05,0.17558e-03,0.29382e-03,0.40457e-03,0.49777e-03, & - & 0.57153e-03,0.63185e-03,0.67213e-03,0.12960e-02 /) - kao(:, 4,13, 2) = (/ & - & 0.22681e-05,0.20106e-03,0.33583e-03,0.45977e-03,0.57094e-03, & - & 0.66275e-03,0.73149e-03,0.77799e-03,0.14856e-02 /) - kao(:, 5,13, 2) = (/ & - & 0.23940e-05,0.22853e-03,0.38323e-03,0.52126e-03,0.64684e-03, & - & 0.75455e-03,0.84115e-03,0.89575e-03,0.16816e-02 /) - kao(:, 1, 1, 3) = (/ & - & 0.87154e-04,0.70456e-02,0.11624e-01,0.16007e-01,0.20277e-01, & - & 0.24349e-01,0.27902e-01,0.30956e-01,0.33159e-01 /) - kao(:, 2, 1, 3) = (/ & - & 0.92678e-04,0.75324e-02,0.12552e-01,0.17444e-01,0.21967e-01, & - & 0.26250e-01,0.30241e-01,0.33348e-01,0.36164e-01 /) - kao(:, 3, 1, 3) = (/ & - & 0.97955e-04,0.80153e-02,0.13502e-01,0.18812e-01,0.23862e-01, & - & 0.28480e-01,0.32511e-01,0.35713e-01,0.38349e-01 /) - kao(:, 4, 1, 3) = (/ & - & 0.10404e-03,0.84724e-02,0.14429e-01,0.20136e-01,0.25672e-01, & - & 0.30688e-01,0.35011e-01,0.38379e-01,0.40673e-01 /) - kao(:, 5, 1, 3) = (/ & - & 0.11110e-03,0.89123e-02,0.15343e-01,0.21479e-01,0.27290e-01, & - & 0.32751e-01,0.37455e-01,0.40931e-01,0.42463e-01 /) - kao(:, 1, 2, 3) = (/ & - & 0.73214e-04,0.61410e-02,0.10125e-01,0.13650e-01,0.17158e-01, & - & 0.20627e-01,0.23628e-01,0.26251e-01,0.27481e-01 /) - kao(:, 2, 2, 3) = (/ & - & 0.77936e-04,0.65751e-02,0.10966e-01,0.14877e-01,0.18693e-01, & - & 0.22272e-01,0.25630e-01,0.28395e-01,0.29894e-01 /) - kao(:, 3, 2, 3) = (/ & - & 0.83061e-04,0.69828e-02,0.11774e-01,0.16068e-01,0.20317e-01, & - & 0.24244e-01,0.27748e-01,0.30432e-01,0.31851e-01 /) - kao(:, 4, 2, 3) = (/ & - & 0.88564e-04,0.73985e-02,0.12581e-01,0.17226e-01,0.21842e-01, & - & 0.26177e-01,0.29969e-01,0.32748e-01,0.33805e-01 /) - kao(:, 5, 2, 3) = (/ & - & 0.94933e-04,0.77988e-02,0.13372e-01,0.18367e-01,0.23323e-01, & - & 0.27928e-01,0.31964e-01,0.35013e-01,0.35327e-01 /) - kao(:, 1, 3, 3) = (/ & - & 0.60947e-04,0.52436e-02,0.86174e-02,0.11520e-01,0.14231e-01, & - & 0.17027e-01,0.19469e-01,0.21634e-01,0.21981e-01 /) - kao(:, 2, 3, 3) = (/ & - & 0.64921e-04,0.55975e-02,0.93512e-02,0.12526e-01,0.15516e-01, & - & 0.18471e-01,0.21270e-01,0.23512e-01,0.24114e-01 /) - kao(:, 3, 3, 3) = (/ & - & 0.69521e-04,0.59648e-02,0.10060e-01,0.13582e-01,0.16903e-01, & - & 0.20177e-01,0.23055e-01,0.25380e-01,0.25822e-01 /) - kao(:, 4, 3, 3) = (/ & - & 0.74348e-04,0.63104e-02,0.10767e-01,0.14599e-01,0.18273e-01, & - & 0.21836e-01,0.24984e-01,0.27358e-01,0.27450e-01 /) - kao(:, 5, 3, 3) = (/ & - & 0.79780e-04,0.66671e-02,0.11458e-01,0.15590e-01,0.19579e-01, & - & 0.23358e-01,0.26806e-01,0.29335e-01,0.28786e-01 /) - kao(:, 1, 4, 3) = (/ & - & 0.50799e-04,0.44148e-02,0.72225e-02,0.96483e-02,0.11767e-01, & - & 0.13828e-01,0.15844e-01,0.17588e-01,0.17391e-01 /) - kao(:, 2, 4, 3) = (/ & - & 0.54227e-04,0.47231e-02,0.78527e-02,0.10493e-01,0.12835e-01, & - & 0.15126e-01,0.17466e-01,0.19219e-01,0.19351e-01 /) - kao(:, 3, 4, 3) = (/ & - & 0.58151e-04,0.50277e-02,0.84823e-02,0.11418e-01,0.13969e-01, & - & 0.16576e-01,0.18903e-01,0.20840e-01,0.20853e-01 /) - kao(:, 4, 4, 3) = (/ & - & 0.62433e-04,0.53372e-02,0.90813e-02,0.12325e-01,0.15163e-01, & - & 0.17971e-01,0.20590e-01,0.22529e-01,0.22273e-01 /) - kao(:, 5, 4, 3) = (/ & - & 0.66852e-04,0.56429e-02,0.96836e-02,0.13189e-01,0.16280e-01, & - & 0.19312e-01,0.22136e-01,0.24263e-01,0.23466e-01 /) - kao(:, 1, 5, 3) = (/ & - & 0.42593e-04,0.36760e-02,0.59913e-02,0.79812e-02,0.97729e-02, & - & 0.11265e-01,0.12874e-01,0.14150e-01,0.13651e-01 /) - kao(:, 2, 5, 3) = (/ & - & 0.45779e-04,0.39344e-02,0.65401e-02,0.87030e-02,0.10650e-01, & - & 0.12374e-01,0.14135e-01,0.15529e-01,0.15507e-01 /) - kao(:, 3, 5, 3) = (/ & - & 0.48868e-04,0.42013e-02,0.70859e-02,0.94912e-02,0.11609e-01, & - & 0.13557e-01,0.15381e-01,0.16993e-01,0.16785e-01 /) - kao(:, 4, 5, 3) = (/ & - & 0.52509e-04,0.44674e-02,0.76022e-02,0.10271e-01,0.12630e-01, & - & 0.14736e-01,0.16830e-01,0.18387e-01,0.18040e-01 /) - kao(:, 5, 5, 3) = (/ & - & 0.56196e-04,0.47381e-02,0.81005e-02,0.11026e-01,0.13586e-01, & - & 0.15940e-01,0.18160e-01,0.19920e-01,0.19092e-01 /) - kao(:, 1, 6, 3) = (/ & - & 0.36112e-04,0.30316e-02,0.49038e-02,0.65325e-02,0.79606e-02, & - & 0.91706e-02,0.10285e-01,0.11252e-01,0.10556e-01 /) - kao(:, 2, 6, 3) = (/ & - & 0.38502e-04,0.32575e-02,0.53855e-02,0.71302e-02,0.87200e-02, & - & 0.10138e-01,0.11319e-01,0.12504e-01,0.12109e-01 /) - kao(:, 3, 6, 3) = (/ & - & 0.41070e-04,0.34869e-02,0.58643e-02,0.78020e-02,0.95232e-02, & - & 0.11081e-01,0.12413e-01,0.13700e-01,0.13350e-01 /) - kao(:, 4, 6, 3) = (/ & - & 0.44034e-04,0.37142e-02,0.62924e-02,0.84867e-02,0.10400e-01, & - & 0.12091e-01,0.13614e-01,0.14850e-01,0.14396e-01 /) - kao(:, 5, 6, 3) = (/ & - & 0.47021e-04,0.39387e-02,0.67171e-02,0.91319e-02,0.11231e-01, & - & 0.13129e-01,0.14745e-01,0.16155e-01,0.15392e-01 /) - kao(:, 1, 7, 3) = (/ & - & 0.30001e-04,0.24884e-02,0.39787e-02,0.53262e-02,0.64254e-02, & - & 0.74422e-02,0.82418e-02,0.87651e-02,0.83241e-02 /) - kao(:, 2, 7, 3) = (/ & - & 0.32067e-04,0.26831e-02,0.43873e-02,0.58009e-02,0.70881e-02, & - & 0.82303e-02,0.91115e-02,0.99530e-02,0.95843e-02 /) - kao(:, 3, 7, 3) = (/ & - & 0.34414e-04,0.28762e-02,0.47981e-02,0.63650e-02,0.77555e-02, & - & 0.90130e-02,0.10051e-01,0.10944e-01,0.10687e-01 /) - kao(:, 4, 7, 3) = (/ & - & 0.36543e-04,0.30749e-02,0.51697e-02,0.69549e-02,0.84939e-02, & - & 0.98621e-02,0.11012e-01,0.11950e-01,0.11596e-01 /) - kao(:, 5, 7, 3) = (/ & - & 0.38986e-04,0.32672e-02,0.55268e-02,0.74950e-02,0.92206e-02, & - & 0.10750e-01,0.11970e-01,0.13029e-01,0.12461e-01 /) - kao(:, 1, 8, 3) = (/ & - & 0.24718e-04,0.20304e-02,0.32253e-02,0.42957e-02,0.51621e-02, & - & 0.59477e-02,0.65543e-02,0.67901e-02,0.66578e-02 /) - kao(:, 2, 8, 3) = (/ & - & 0.26226e-04,0.22027e-02,0.35528e-02,0.46844e-02,0.57463e-02, & - & 0.66070e-02,0.73566e-02,0.79086e-02,0.76807e-02 /) - kao(:, 3, 8, 3) = (/ & - & 0.28095e-04,0.23614e-02,0.38960e-02,0.51529e-02,0.62773e-02, & - & 0.72919e-02,0.81475e-02,0.87344e-02,0.86509e-02 /) - kao(:, 4, 8, 3) = (/ & - & 0.29856e-04,0.25346e-02,0.42180e-02,0.56507e-02,0.68867e-02, & - & 0.79948e-02,0.89169e-02,0.96226e-02,0.94212e-02 /) - kao(:, 5, 8, 3) = (/ & - & 0.31432e-04,0.26989e-02,0.45288e-02,0.61158e-02,0.75231e-02, & - & 0.87319e-02,0.97447e-02,0.10470e-01,0.10172e-01 /) - kao(:, 1, 9, 3) = (/ & - & 0.20151e-04,0.16622e-02,0.26102e-02,0.34345e-02,0.41518e-02, & - & 0.47356e-02,0.51198e-02,0.52901e-02,0.55608e-02 /) - kao(:, 2, 9, 3) = (/ & - & 0.21290e-04,0.18112e-02,0.28622e-02,0.37770e-02,0.46098e-02, & - & 0.52825e-02,0.58719e-02,0.62115e-02,0.64287e-02 /) - kao(:, 3, 9, 3) = (/ & - & 0.22604e-04,0.19483e-02,0.31536e-02,0.41418e-02,0.50513e-02, & - & 0.58883e-02,0.65199e-02,0.70000e-02,0.71641e-02 /) - kao(:, 4, 9, 3) = (/ & - & 0.24039e-04,0.20909e-02,0.34321e-02,0.45633e-02,0.55575e-02, & - & 0.64453e-02,0.71800e-02,0.77062e-02,0.77821e-02 /) - kao(:, 5, 9, 3) = (/ & - & 0.25275e-04,0.22325e-02,0.36976e-02,0.49727e-02,0.60945e-02, & - & 0.70632e-02,0.78696e-02,0.84048e-02,0.84571e-02 /) - kao(:, 1,10, 3) = (/ & - & 0.16520e-04,0.13579e-02,0.21217e-02,0.27650e-02,0.33209e-02, & - & 0.37657e-02,0.40263e-02,0.41632e-02,0.59019e-02 /) - kao(:, 2,10, 3) = (/ & - & 0.17307e-04,0.14868e-02,0.23230e-02,0.30616e-02,0.37000e-02, & - & 0.42629e-02,0.46958e-02,0.48956e-02,0.64729e-02 /) - kao(:, 3,10, 3) = (/ & - & 0.18210e-04,0.16086e-02,0.25635e-02,0.33480e-02,0.40827e-02, & - & 0.47590e-02,0.52424e-02,0.56088e-02,0.71072e-02 /) - kao(:, 4,10, 3) = (/ & - & 0.19263e-04,0.17308e-02,0.28038e-02,0.37016e-02,0.44933e-02, & - & 0.52114e-02,0.58224e-02,0.62053e-02,0.76445e-02 /) - kao(:, 5,10, 3) = (/ & - & 0.20450e-04,0.18514e-02,0.30286e-02,0.40569e-02,0.49417e-02, & - & 0.57292e-02,0.63809e-02,0.68162e-02,0.81800e-02 /) - kao(:, 1,11, 3) = (/ & - & 0.13743e-04,0.11544e-02,0.18005e-02,0.23380e-02,0.28127e-02, & - & 0.32019e-02,0.34184e-02,0.35137e-02,0.55132e-02 /) - kao(:, 2,11, 3) = (/ & - & 0.14314e-04,0.12648e-02,0.19811e-02,0.25794e-02,0.31283e-02, & - & 0.35835e-02,0.39635e-02,0.41524e-02,0.60640e-02 /) - kao(:, 3,11, 3) = (/ & - & 0.14980e-04,0.13667e-02,0.21846e-02,0.28316e-02,0.34390e-02, & - & 0.40069e-02,0.44283e-02,0.47282e-02,0.65662e-02 /) - kao(:, 4,11, 3) = (/ & - & 0.15843e-04,0.14691e-02,0.23844e-02,0.31346e-02,0.37915e-02, & - & 0.43926e-02,0.49108e-02,0.52431e-02,0.70521e-02 /) - kao(:, 5,11, 3) = (/ & - & 0.16801e-04,0.15709e-02,0.25738e-02,0.34250e-02,0.41781e-02, & - & 0.48258e-02,0.53776e-02,0.57400e-02,0.74913e-02 /) - kao(:, 1,12, 3) = (/ & - & 0.11265e-04,0.97473e-03,0.15190e-02,0.19779e-02,0.23708e-02, & - & 0.27002e-02,0.28954e-02,0.29689e-02,0.49052e-02 /) - kao(:, 2,12, 3) = (/ & - & 0.11703e-04,0.10660e-02,0.16806e-02,0.21742e-02,0.26370e-02, & - & 0.30184e-02,0.33461e-02,0.35081e-02,0.53515e-02 /) - kao(:, 3,12, 3) = (/ & - & 0.12275e-04,0.11524e-02,0.18532e-02,0.24014e-02,0.28932e-02, & - & 0.33615e-02,0.37332e-02,0.39759e-02,0.57806e-02 /) - kao(:, 4,12, 3) = (/ & - & 0.12963e-04,0.12405e-02,0.20200e-02,0.26573e-02,0.31978e-02, & - & 0.36904e-02,0.41225e-02,0.44151e-02,0.61956e-02 /) - kao(:, 5,12, 3) = (/ & - & 0.13696e-04,0.13266e-02,0.21814e-02,0.28939e-02,0.35284e-02, & - & 0.40629e-02,0.45191e-02,0.48283e-02,0.65800e-02 /) - kao(:, 1,13, 3) = (/ & - & 0.91179e-05,0.81531e-03,0.12754e-02,0.16598e-02,0.19900e-02, & - & 0.22634e-02,0.24441e-02,0.24984e-02,0.40576e-02 /) - kao(:, 2,13, 3) = (/ & - & 0.95039e-05,0.89093e-03,0.14150e-02,0.18287e-02,0.22143e-02, & - & 0.25329e-02,0.28092e-02,0.29546e-02,0.44374e-02 /) - kao(:, 3,13, 3) = (/ & - & 0.99762e-05,0.96494e-03,0.15625e-02,0.20288e-02,0.24319e-02, & - & 0.28108e-02,0.31373e-02,0.33177e-02,0.48094e-02 /) - kao(:, 4,13, 3) = (/ & - & 0.10509e-04,0.10398e-02,0.16996e-02,0.22443e-02,0.26925e-02, & - & 0.30942e-02,0.34481e-02,0.37003e-02,0.51550e-02 /) - kao(:, 5,13, 3) = (/ & - & 0.11033e-04,0.11134e-02,0.18372e-02,0.24408e-02,0.29682e-02, & - & 0.34114e-02,0.37859e-02,0.40424e-02,0.54893e-02 /) - kao(:, 1, 1, 4) = (/ & - & 0.25564e-03,0.23940e-01,0.41535e-01,0.56276e-01,0.68561e-01, & - & 0.78630e-01,0.86993e-01,0.91794e-01,0.84229e-01 /) - kao(:, 2, 1, 4) = (/ & - & 0.29194e-03,0.25170e-01,0.43659e-01,0.59016e-01,0.72302e-01, & - & 0.83167e-01,0.91739e-01,0.96774e-01,0.86838e-01 /) - kao(:, 3, 1, 4) = (/ & - & 0.33934e-03,0.26430e-01,0.45835e-01,0.61922e-01,0.75614e-01, & - & 0.87285e-01,0.96606e-01,0.10156e+00,0.90084e-01 /) - kao(:, 4, 1, 4) = (/ & - & 0.38871e-03,0.27733e-01,0.48058e-01,0.64973e-01,0.79090e-01, & - & 0.91156e-01,0.10084e+00,0.10589e+00,0.92583e-01 /) - kao(:, 5, 1, 4) = (/ & - & 0.44473e-03,0.29028e-01,0.50287e-01,0.68010e-01,0.82805e-01, & - & 0.95193e-01,0.10492e+00,0.10995e+00,0.95419e-01 /) - kao(:, 1, 2, 4) = (/ & - & 0.23400e-03,0.20753e-01,0.35742e-01,0.48709e-01,0.59548e-01, & - & 0.68206e-01,0.75045e-01,0.78915e-01,0.70180e-01 /) - kao(:, 2, 2, 4) = (/ & - & 0.26775e-03,0.21832e-01,0.37611e-01,0.51156e-01,0.62768e-01, & - & 0.72267e-01,0.79422e-01,0.83262e-01,0.72735e-01 /) - kao(:, 3, 2, 4) = (/ & - & 0.30033e-03,0.22961e-01,0.39618e-01,0.53774e-01,0.65773e-01, & - & 0.75819e-01,0.83532e-01,0.87496e-01,0.75459e-01 /) - kao(:, 4, 2, 4) = (/ & - & 0.34366e-03,0.24116e-01,0.41597e-01,0.56506e-01,0.68944e-01, & - & 0.79231e-01,0.87245e-01,0.91336e-01,0.77669e-01 /) - kao(:, 5, 2, 4) = (/ & - & 0.39179e-03,0.25289e-01,0.43575e-01,0.59282e-01,0.72132e-01, & - & 0.82956e-01,0.91038e-01,0.94937e-01,0.80272e-01 /) - kao(:, 1, 3, 4) = (/ & - & 0.20730e-03,0.18044e-01,0.30227e-01,0.41206e-01,0.50626e-01, & - & 0.58095e-01,0.63725e-01,0.66721e-01,0.57780e-01 /) - kao(:, 2, 3, 4) = (/ & - & 0.24007e-03,0.18972e-01,0.31883e-01,0.43486e-01,0.53572e-01, & - & 0.61742e-01,0.67489e-01,0.70552e-01,0.60009e-01 /) - kao(:, 3, 3, 4) = (/ & - & 0.26931e-03,0.19934e-01,0.33681e-01,0.45775e-01,0.56255e-01, & - & 0.64869e-01,0.71254e-01,0.74232e-01,0.62350e-01 /) - kao(:, 4, 3, 4) = (/ & - & 0.30064e-03,0.20965e-01,0.35448e-01,0.48199e-01,0.59036e-01, & - & 0.67921e-01,0.74594e-01,0.77689e-01,0.64410e-01 /) - kao(:, 5, 3, 4) = (/ & - & 0.33967e-03,0.21972e-01,0.37192e-01,0.50676e-01,0.61884e-01, & - & 0.71207e-01,0.77888e-01,0.80947e-01,0.66667e-01 /) - kao(:, 1, 4, 4) = (/ & - & 0.18201e-03,0.15595e-01,0.25372e-01,0.34431e-01,0.42401e-01, & - & 0.48915e-01,0.53613e-01,0.55953e-01,0.47727e-01 /) - kao(:, 2, 4, 4) = (/ & - & 0.20883e-03,0.16422e-01,0.26851e-01,0.36481e-01,0.45074e-01, & - & 0.52078e-01,0.56860e-01,0.59287e-01,0.49553e-01 /) - kao(:, 3, 4, 4) = (/ & - & 0.23874e-03,0.17285e-01,0.28425e-01,0.38514e-01,0.47542e-01, & - & 0.54904e-01,0.60284e-01,0.62561e-01,0.51595e-01 /) - kao(:, 4, 4, 4) = (/ & - & 0.26707e-03,0.18200e-01,0.30007e-01,0.40613e-01,0.49982e-01, & - & 0.57662e-01,0.63231e-01,0.65666e-01,0.53450e-01 /) - kao(:, 5, 4, 4) = (/ & - & 0.30102e-03,0.19113e-01,0.31552e-01,0.42805e-01,0.52535e-01, & - & 0.60559e-01,0.66195e-01,0.68549e-01,0.55415e-01 /) - kao(:, 1, 5, 4) = (/ & - & 0.15801e-03,0.13295e-01,0.21524e-01,0.28666e-01,0.35142e-01, & - & 0.40757e-01,0.44715e-01,0.46740e-01,0.39384e-01 /) - kao(:, 2, 5, 4) = (/ & - & 0.17994e-03,0.14057e-01,0.22786e-01,0.30487e-01,0.37563e-01, & - & 0.43509e-01,0.47676e-01,0.49638e-01,0.40849e-01 /) - kao(:, 3, 5, 4) = (/ & - & 0.20535e-03,0.14811e-01,0.24116e-01,0.32266e-01,0.39764e-01, & - & 0.46122e-01,0.50669e-01,0.52413e-01,0.42683e-01 /) - kao(:, 4, 5, 4) = (/ & - & 0.23511e-03,0.15598e-01,0.25481e-01,0.34103e-01,0.41924e-01, & - & 0.48592e-01,0.53283e-01,0.55235e-01,0.44335e-01 /) - kao(:, 5, 5, 4) = (/ & - & 0.26640e-03,0.16402e-01,0.26844e-01,0.36000e-01,0.44180e-01, & - & 0.51086e-01,0.55918e-01,0.57796e-01,0.45991e-01 /) - kao(:, 1, 6, 4) = (/ & - & 0.13805e-03,0.11222e-01,0.18125e-01,0.23877e-01,0.28939e-01, & - & 0.33506e-01,0.36944e-01,0.38672e-01,0.32335e-01 /) - kao(:, 2, 6, 4) = (/ & - & 0.15439e-03,0.11883e-01,0.19262e-01,0.25521e-01,0.31068e-01, & - & 0.35882e-01,0.39589e-01,0.41132e-01,0.33684e-01 /) - kao(:, 3, 6, 4) = (/ & - & 0.17561e-03,0.12558e-01,0.20409e-01,0.27033e-01,0.33056e-01, & - & 0.38260e-01,0.42155e-01,0.43639e-01,0.35175e-01 /) - kao(:, 4, 6, 4) = (/ & - & 0.19967e-03,0.13236e-01,0.21628e-01,0.28554e-01,0.34939e-01, & - & 0.40459e-01,0.44550e-01,0.46147e-01,0.36643e-01 /) - kao(:, 5, 6, 4) = (/ & - & 0.23117e-03,0.13936e-01,0.22836e-01,0.30183e-01,0.36909e-01, & - & 0.42652e-01,0.46864e-01,0.48440e-01,0.37992e-01 /) - kao(:, 1, 7, 4) = (/ & - & 0.11987e-03,0.93983e-02,0.15130e-01,0.19808e-01,0.23796e-01, & - & 0.27285e-01,0.30176e-01,0.31906e-01,0.26193e-01 /) - kao(:, 2, 7, 4) = (/ & - & 0.13164e-03,0.99743e-02,0.16118e-01,0.21319e-01,0.25600e-01, & - & 0.29404e-01,0.32485e-01,0.33909e-01,0.27439e-01 /) - kao(:, 3, 7, 4) = (/ & - & 0.14862e-03,0.10559e-01,0.17124e-01,0.22674e-01,0.27373e-01, & - & 0.31501e-01,0.34705e-01,0.36112e-01,0.28667e-01 /) - kao(:, 4, 7, 4) = (/ & - & 0.16941e-03,0.11142e-01,0.18163e-01,0.23992e-01,0.29023e-01, & - & 0.33461e-01,0.36882e-01,0.38288e-01,0.29990e-01 /) - kao(:, 5, 7, 4) = (/ & - & 0.19444e-03,0.11740e-01,0.19231e-01,0.25410e-01,0.30702e-01, & - & 0.35380e-01,0.38933e-01,0.40325e-01,0.31163e-01 /) - kao(:, 1, 8, 4) = (/ & - & 0.10266e-03,0.78132e-02,0.12495e-01,0.16294e-01,0.19552e-01, & - & 0.22203e-01,0.24522e-01,0.26158e-01,0.21477e-01 /) - kao(:, 2, 8, 4) = (/ & - & 0.11308e-03,0.82996e-02,0.13385e-01,0.17650e-01,0.21113e-01, & - & 0.24026e-01,0.26424e-01,0.27779e-01,0.22661e-01 /) - kao(:, 3, 8, 4) = (/ & - & 0.12431e-03,0.88118e-02,0.14254e-01,0.18852e-01,0.22717e-01, & - & 0.25822e-01,0.28352e-01,0.29667e-01,0.23674e-01 /) - kao(:, 4, 8, 4) = (/ & - & 0.14146e-03,0.93080e-02,0.15152e-01,0.20013e-01,0.24158e-01, & - & 0.27569e-01,0.30306e-01,0.31495e-01,0.24838e-01 /) - kao(:, 5, 8, 4) = (/ & - & 0.16275e-03,0.98287e-02,0.16080e-01,0.21227e-01,0.25592e-01, & - & 0.29226e-01,0.32075e-01,0.33357e-01,0.25887e-01 /) - kao(:, 1, 9, 4) = (/ & - & 0.85797e-04,0.64412e-02,0.10231e-01,0.13327e-01,0.15923e-01, & - & 0.18103e-01,0.19903e-01,0.21189e-01,0.17975e-01 /) - kao(:, 2, 9, 4) = (/ & - & 0.94370e-04,0.68514e-02,0.11041e-01,0.14472e-01,0.17298e-01, & - & 0.19661e-01,0.21421e-01,0.22631e-01,0.18990e-01 /) - kao(:, 3, 9, 4) = (/ & - & 0.10603e-03,0.72870e-02,0.11786e-01,0.15570e-01,0.18710e-01, & - & 0.21195e-01,0.23092e-01,0.24157e-01,0.19934e-01 /) - kao(:, 4, 9, 4) = (/ & - & 0.11819e-03,0.77217e-02,0.12559e-01,0.16589e-01,0.19991e-01, & - & 0.22738e-01,0.24769e-01,0.25771e-01,0.20946e-01 /) - kao(:, 5, 9, 4) = (/ & - & 0.13500e-03,0.81624e-02,0.13346e-01,0.17610e-01,0.21227e-01, & - & 0.24140e-01,0.26339e-01,0.27388e-01,0.21819e-01 /) - kao(:, 1,10, 4) = (/ & - & 0.73275e-04,0.53147e-02,0.83832e-02,0.10890e-01,0.12998e-01, & - & 0.14772e-01,0.16237e-01,0.17165e-01,0.15972e-01 /) - kao(:, 2,10, 4) = (/ & - & 0.80303e-04,0.56594e-02,0.90964e-02,0.11869e-01,0.14181e-01, & - & 0.16065e-01,0.17493e-01,0.18447e-01,0.17075e-01 /) - kao(:, 3,10, 4) = (/ & - & 0.88821e-04,0.60286e-02,0.97491e-02,0.12852e-01,0.15387e-01, & - & 0.17394e-01,0.18909e-01,0.19708e-01,0.18078e-01 /) - kao(:, 4,10, 4) = (/ & - & 0.10142e-03,0.63962e-02,0.10392e-01,0.13730e-01,0.16522e-01, & - & 0.18771e-01,0.20308e-01,0.21096e-01,0.19037e-01 /) - kao(:, 5,10, 4) = (/ & - & 0.11405e-03,0.67754e-02,0.11065e-01,0.14605e-01,0.17581e-01, & - & 0.19991e-01,0.21687e-01,0.22458e-01,0.19875e-01 /) - kao(:, 1,11, 4) = (/ & - & 0.64517e-04,0.45135e-02,0.71165e-02,0.92384e-02,0.10998e-01, & - & 0.12474e-01,0.13700e-01,0.14388e-01,0.14631e-01 /) - kao(:, 2,11, 4) = (/ & - & 0.71535e-04,0.48070e-02,0.77137e-02,0.10092e-01,0.12023e-01, & - & 0.13623e-01,0.14792e-01,0.15449e-01,0.15481e-01 /) - kao(:, 3,11, 4) = (/ & - & 0.79504e-04,0.51199e-02,0.82600e-02,0.10911e-01,0.13076e-01, & - & 0.14755e-01,0.16002e-01,0.16546e-01,0.16298e-01 /) - kao(:, 4,11, 4) = (/ & - & 0.90433e-04,0.54351e-02,0.88101e-02,0.11647e-01,0.14018e-01, & - & 0.15922e-01,0.17206e-01,0.17715e-01,0.16991e-01 /) - kao(:, 5,11, 4) = (/ & - & 0.10146e-03,0.57596e-02,0.93865e-02,0.12407e-01,0.14922e-01, & - & 0.16951e-01,0.18384e-01,0.18893e-01,0.17666e-01 /) - kao(:, 1,12, 4) = (/ & - & 0.56913e-04,0.38361e-02,0.60238e-02,0.78101e-02,0.92943e-02, & - & 0.10515e-01,0.11514e-01,0.12051e-01,0.12708e-01 /) - kao(:, 2,12, 4) = (/ & - & 0.62984e-04,0.40886e-02,0.65153e-02,0.85464e-02,0.10168e-01, & - & 0.11498e-01,0.12452e-01,0.12938e-01,0.13473e-01 /) - kao(:, 3,12, 4) = (/ & - & 0.70588e-04,0.43561e-02,0.69761e-02,0.92137e-02,0.11068e-01, & - & 0.12482e-01,0.13497e-01,0.13892e-01,0.14090e-01 /) - kao(:, 4,12, 4) = (/ & - & 0.79556e-04,0.46222e-02,0.74472e-02,0.98382e-02,0.11852e-01, & - & 0.13461e-01,0.14539e-01,0.14868e-01,0.14684e-01 /) - kao(:, 5,12, 4) = (/ & - & 0.89330e-04,0.49037e-02,0.79332e-02,0.10492e-01,0.12613e-01, & - & 0.14331e-01,0.15523e-01,0.15867e-01,0.15266e-01 /) - kao(:, 1,13, 4) = (/ & - & 0.49040e-04,0.32470e-02,0.50782e-02,0.65813e-02,0.78254e-02, & - & 0.88398e-02,0.96483e-02,0.10090e-01,0.10614e-01 /) - kao(:, 2,13, 4) = (/ & - & 0.54225e-04,0.34616e-02,0.54906e-02,0.71951e-02,0.85711e-02, & - & 0.96781e-02,0.10460e-01,0.10840e-01,0.11206e-01 /) - kao(:, 3,13, 4) = (/ & - & 0.61136e-04,0.36878e-02,0.58777e-02,0.77458e-02,0.93183e-02, & - & 0.10528e-01,0.11347e-01,0.11684e-01,0.11730e-01 /) - kao(:, 4,13, 4) = (/ & - & 0.68788e-04,0.39213e-02,0.62791e-02,0.82774e-02,0.99761e-02, & - & 0.11332e-01,0.12247e-01,0.12495e-01,0.12250e-01 /) - kao(:, 5,13, 4) = (/ & - & 0.77427e-04,0.41640e-02,0.66890e-02,0.88358e-02,0.10624e-01, & - & 0.12069e-01,0.13064e-01,0.13341e-01,0.12730e-01 /) - kao(:, 1, 1, 5) = (/ & - & 0.69098e-02,0.84650e-01,0.13006e+00,0.16652e+00,0.19608e+00, & - & 0.21975e+00,0.23496e+00,0.23277e+00,0.18007e+00 /) - kao(:, 2, 1, 5) = (/ & - & 0.78200e-02,0.89279e-01,0.13630e+00,0.17409e+00,0.20398e+00, & - & 0.22718e+00,0.24129e+00,0.23750e+00,0.18438e+00 /) - kao(:, 3, 1, 5) = (/ & - & 0.89787e-02,0.94428e-01,0.14296e+00,0.18170e+00,0.21205e+00, & - & 0.23450e+00,0.24726e+00,0.24172e+00,0.18878e+00 /) - kao(:, 4, 1, 5) = (/ & - & 0.10426e-01,0.10003e+00,0.15009e+00,0.18943e+00,0.22015e+00, & - & 0.24206e+00,0.25341e+00,0.24571e+00,0.19325e+00 /) - kao(:, 5, 1, 5) = (/ & - & 0.12209e-01,0.10603e+00,0.15781e+00,0.19756e+00,0.22832e+00, & - & 0.24963e+00,0.25957e+00,0.24958e+00,0.19748e+00 /) - kao(:, 1, 2, 5) = (/ & - & 0.64020e-02,0.74597e-01,0.11458e+00,0.14581e+00,0.17103e+00, & - & 0.19105e+00,0.20412e+00,0.20133e+00,0.15242e+00 /) - kao(:, 2, 2, 5) = (/ & - & 0.72586e-02,0.78857e-01,0.12024e+00,0.15257e+00,0.17796e+00, & - & 0.19765e+00,0.20972e+00,0.20548e+00,0.15620e+00 /) - kao(:, 3, 2, 5) = (/ & - & 0.82903e-02,0.83602e-01,0.12623e+00,0.15931e+00,0.18512e+00, & - & 0.20423e+00,0.21503e+00,0.20937e+00,0.15993e+00 /) - kao(:, 4, 2, 5) = (/ & - & 0.94578e-02,0.88668e-01,0.13277e+00,0.16635e+00,0.19233e+00, & - & 0.21098e+00,0.22050e+00,0.21294e+00,0.16397e+00 /) - kao(:, 5, 2, 5) = (/ & - & 0.10865e-01,0.94113e-01,0.13987e+00,0.17375e+00,0.19975e+00, & - & 0.21771e+00,0.22592e+00,0.21639e+00,0.16745e+00 /) - kao(:, 1, 3, 5) = (/ & - & 0.56943e-02,0.64084e-01,0.99294e-01,0.12614e+00,0.14746e+00, & - & 0.16414e+00,0.17503e+00,0.17255e+00,0.12738e+00 /) - kao(:, 2, 3, 5) = (/ & - & 0.64702e-02,0.67967e-01,0.10427e+00,0.13197e+00,0.15350e+00, & - & 0.16985e+00,0.18008e+00,0.17631e+00,0.13087e+00 /) - kao(:, 3, 3, 5) = (/ & - & 0.74200e-02,0.72252e-01,0.10956e+00,0.13801e+00,0.15978e+00, & - & 0.17567e+00,0.18476e+00,0.17977e+00,0.13421e+00 /) - kao(:, 4, 3, 5) = (/ & - & 0.84907e-02,0.76772e-01,0.11539e+00,0.14427e+00,0.16615e+00, & - & 0.18168e+00,0.18947e+00,0.18300e+00,0.13761e+00 /) - kao(:, 5, 3, 5) = (/ & - & 0.97078e-02,0.81671e-01,0.12172e+00,0.15082e+00,0.17277e+00, & - & 0.18769e+00,0.19427e+00,0.18608e+00,0.14067e+00 /) - kao(:, 1, 4, 5) = (/ & - & 0.48829e-02,0.54383e-01,0.85075e-01,0.10815e+00,0.12638e+00, & - & 0.14020e+00,0.14903e+00,0.14670e+00,0.10614e+00 /) - kao(:, 2, 4, 5) = (/ & - & 0.55740e-02,0.57779e-01,0.89436e-01,0.11323e+00,0.13160e+00, & - & 0.14514e+00,0.15349e+00,0.15027e+00,0.10949e+00 /) - kao(:, 3, 4, 5) = (/ & - & 0.64015e-02,0.61546e-01,0.94139e-01,0.11850e+00,0.13701e+00, & - & 0.15017e+00,0.15757e+00,0.15344e+00,0.11257e+00 /) - kao(:, 4, 4, 5) = (/ & - & 0.73719e-02,0.65521e-01,0.99232e-01,0.12403e+00,0.14259e+00, & - & 0.15541e+00,0.16175e+00,0.15634e+00,0.11557e+00 /) - kao(:, 5, 4, 5) = (/ & - & 0.84789e-02,0.69810e-01,0.10478e+00,0.12985e+00,0.14840e+00, & - & 0.16071e+00,0.16597e+00,0.15910e+00,0.11833e+00 /) - kao(:, 1, 5, 5) = (/ & - & 0.41357e-02,0.45878e-01,0.71866e-01,0.92130e-01,0.10772e+00, & - & 0.11935e+00,0.12627e+00,0.12382e+00,0.88490e-01 /) - kao(:, 2, 5, 5) = (/ & - & 0.47278e-02,0.48809e-01,0.75724e-01,0.96485e-01,0.11218e+00, & - & 0.12363e+00,0.13023e+00,0.12723e+00,0.91646e-01 /) - kao(:, 3, 5, 5) = (/ & - & 0.54234e-02,0.52108e-01,0.79925e-01,0.10105e+00,0.11684e+00, & - & 0.12795e+00,0.13389e+00,0.13024e+00,0.94384e-01 /) - kao(:, 4, 5, 5) = (/ & - & 0.62672e-02,0.55647e-01,0.84438e-01,0.10591e+00,0.12167e+00, & - & 0.13255e+00,0.13759e+00,0.13288e+00,0.97037e-01 /) - kao(:, 5, 5, 5) = (/ & - & 0.72387e-02,0.59393e-01,0.89326e-01,0.11102e+00,0.12680e+00, & - & 0.13723e+00,0.14128e+00,0.13530e+00,0.99585e-01 /) - kao(:, 1, 6, 5) = (/ & - & 0.34820e-02,0.38455e-01,0.60106e-01,0.77515e-01,0.91143e-01, & - & 0.10094e+00,0.10649e+00,0.10403e+00,0.73509e-01 /) - kao(:, 2, 6, 5) = (/ & - & 0.39507e-02,0.40927e-01,0.63402e-01,0.81240e-01,0.94968e-01, & - & 0.10469e+00,0.11001e+00,0.10717e+00,0.76426e-01 /) - kao(:, 3, 6, 5) = (/ & - & 0.45266e-02,0.43726e-01,0.67041e-01,0.85234e-01,0.98911e-01, & - & 0.10845e+00,0.11329e+00,0.10996e+00,0.78861e-01 /) - kao(:, 4, 6, 5) = (/ & - & 0.52242e-02,0.46807e-01,0.70939e-01,0.89547e-01,0.10312e+00, & - & 0.11247e+00,0.11653e+00,0.11237e+00,0.81250e-01 /) - kao(:, 5, 6, 5) = (/ & - & 0.60449e-02,0.50083e-01,0.75175e-01,0.94041e-01,0.10760e+00, & - & 0.11657e+00,0.11980e+00,0.11449e+00,0.83549e-01 /) - kao(:, 1, 7, 5) = (/ & - & 0.28711e-02,0.32523e-01,0.49971e-01,0.64597e-01,0.76360e-01, & - & 0.84918e-01,0.89523e-01,0.87200e-01,0.60618e-01 /) - kao(:, 2, 7, 5) = (/ & - & 0.32550e-02,0.34614e-01,0.52803e-01,0.67740e-01,0.79713e-01, & - & 0.88207e-01,0.92681e-01,0.90060e-01,0.63331e-01 /) - kao(:, 3, 7, 5) = (/ & - & 0.37263e-02,0.36968e-01,0.55904e-01,0.71153e-01,0.83143e-01, & - & 0.91509e-01,0.95607e-01,0.92564e-01,0.65595e-01 /) - kao(:, 4, 7, 5) = (/ & - & 0.42953e-02,0.39538e-01,0.59281e-01,0.74912e-01,0.86822e-01, & - & 0.94956e-01,0.98438e-01,0.94728e-01,0.67680e-01 /) - kao(:, 5, 7, 5) = (/ & - & 0.49788e-02,0.42264e-01,0.62953e-01,0.78842e-01,0.90742e-01, & - & 0.98510e-01,0.10129e+00,0.96641e-01,0.69746e-01 /) - kao(:, 1, 8, 5) = (/ & - & 0.23480e-02,0.27230e-01,0.41671e-01,0.53565e-01,0.63436e-01, & - & 0.70999e-01,0.75020e-01,0.72906e-01,0.49386e-01 /) - kao(:, 2, 8, 5) = (/ & - & 0.26517e-02,0.29065e-01,0.44017e-01,0.56225e-01,0.66341e-01, & - & 0.73935e-01,0.77879e-01,0.75468e-01,0.51750e-01 /) - kao(:, 3, 8, 5) = (/ & - & 0.30285e-02,0.31112e-01,0.46598e-01,0.59161e-01,0.69302e-01, & - & 0.76809e-01,0.80439e-01,0.77729e-01,0.53904e-01 /) - kao(:, 4, 8, 5) = (/ & - & 0.34816e-02,0.33348e-01,0.49448e-01,0.62380e-01,0.72502e-01, & - & 0.79786e-01,0.82887e-01,0.79683e-01,0.55731e-01 /) - kao(:, 5, 8, 5) = (/ & - & 0.40444e-02,0.35730e-01,0.52545e-01,0.65794e-01,0.75878e-01, & - & 0.82889e-01,0.85379e-01,0.81391e-01,0.57509e-01 /) - kao(:, 1, 9, 5) = (/ & - & 0.19247e-02,0.22630e-01,0.34752e-01,0.44387e-01,0.52455e-01, & - & 0.58833e-01,0.62468e-01,0.60719e-01,0.41880e-01 /) - kao(:, 2, 9, 5) = (/ & - & 0.21557e-02,0.24204e-01,0.36750e-01,0.46636e-01,0.54976e-01, & - & 0.61421e-01,0.65052e-01,0.62994e-01,0.44010e-01 /) - kao(:, 3, 9, 5) = (/ & - & 0.24477e-02,0.25958e-01,0.38981e-01,0.49108e-01,0.57526e-01, & - & 0.63907e-01,0.67351e-01,0.65038e-01,0.45929e-01 /) - kao(:, 4, 9, 5) = (/ & - & 0.28196e-02,0.27882e-01,0.41431e-01,0.51802e-01,0.60249e-01, & - & 0.66480e-01,0.69467e-01,0.66788e-01,0.47555e-01 /) - kao(:, 5, 9, 5) = (/ & - & 0.32654e-02,0.29939e-01,0.44072e-01,0.54714e-01,0.63163e-01, & - & 0.69207e-01,0.71600e-01,0.68328e-01,0.49077e-01 /) - kao(:, 1,10, 5) = (/ & - & 0.16200e-02,0.18814e-01,0.28911e-01,0.37025e-01,0.43479e-01, & - & 0.48691e-01,0.51767e-01,0.50517e-01,0.36565e-01 /) - kao(:, 2,10, 5) = (/ & - & 0.18031e-02,0.20150e-01,0.30632e-01,0.38967e-01,0.45609e-01, & - & 0.50940e-01,0.54046e-01,0.52515e-01,0.38425e-01 /) - kao(:, 3,10, 5) = (/ & - & 0.20232e-02,0.21640e-01,0.32572e-01,0.41079e-01,0.47788e-01, & - & 0.53101e-01,0.56114e-01,0.54338e-01,0.40162e-01 /) - kao(:, 4,10, 5) = (/ & - & 0.23038e-02,0.23298e-01,0.34703e-01,0.43393e-01,0.50110e-01, & - & 0.55298e-01,0.57982e-01,0.55873e-01,0.41782e-01 /) - kao(:, 5,10, 5) = (/ & - & 0.26649e-02,0.25073e-01,0.36983e-01,0.45868e-01,0.52617e-01, & - & 0.57641e-01,0.59833e-01,0.57222e-01,0.43243e-01 /) - kao(:, 1,11, 5) = (/ & - & 0.14241e-02,0.16065e-01,0.24586e-01,0.31465e-01,0.36963e-01, & - & 0.41093e-01,0.43617e-01,0.42673e-01,0.32343e-01 /) - kao(:, 2,11, 5) = (/ & - & 0.15878e-02,0.17268e-01,0.26144e-01,0.33169e-01,0.38816e-01, & - & 0.42988e-01,0.45546e-01,0.44327e-01,0.34054e-01 /) - kao(:, 3,11, 5) = (/ & - & 0.18003e-02,0.18609e-01,0.27888e-01,0.35066e-01,0.40717e-01, & - & 0.44861e-01,0.47277e-01,0.45845e-01,0.35562e-01 /) - kao(:, 4,11, 5) = (/ & - & 0.20513e-02,0.20069e-01,0.29794e-01,0.37147e-01,0.42781e-01, & - & 0.46774e-01,0.48869e-01,0.47106e-01,0.36881e-01 /) - kao(:, 5,11, 5) = (/ & - & 0.23610e-02,0.21636e-01,0.31786e-01,0.39341e-01,0.44964e-01, & - & 0.48832e-01,0.50478e-01,0.48237e-01,0.38136e-01 /) - kao(:, 1,12, 5) = (/ & - & 0.12367e-02,0.13664e-01,0.20841e-01,0.26619e-01,0.31258e-01, & - & 0.34766e-01,0.36665e-01,0.35873e-01,0.27811e-01 /) - kao(:, 2,12, 5) = (/ & - & 0.13898e-02,0.14747e-01,0.22238e-01,0.28134e-01,0.32876e-01, & - & 0.36392e-01,0.38286e-01,0.37257e-01,0.29212e-01 /) - kao(:, 3,12, 5) = (/ & - & 0.15822e-02,0.15920e-01,0.23808e-01,0.29830e-01,0.34558e-01, & - & 0.38014e-01,0.39728e-01,0.38493e-01,0.30517e-01 /) - kao(:, 4,12, 5) = (/ & - & 0.18117e-02,0.17195e-01,0.25479e-01,0.31664e-01,0.36378e-01, & - & 0.39675e-01,0.41098e-01,0.39553e-01,0.31705e-01 /) - kao(:, 5,12, 5) = (/ & - & 0.20996e-02,0.18567e-01,0.27225e-01,0.33571e-01,0.38302e-01, & - & 0.41437e-01,0.42501e-01,0.40525e-01,0.32748e-01 /) - kao(:, 1,13, 5) = (/ & - & 0.10606e-02,0.11594e-01,0.17616e-01,0.22456e-01,0.26337e-01, & - & 0.29282e-01,0.30831e-01,0.30037e-01,0.23251e-01 /) - kao(:, 2,13, 5) = (/ & - & 0.11975e-02,0.12541e-01,0.18850e-01,0.23795e-01,0.27745e-01, & - & 0.30676e-01,0.32191e-01,0.31186e-01,0.24461e-01 /) - kao(:, 3,13, 5) = (/ & - & 0.13686e-02,0.13557e-01,0.20236e-01,0.25287e-01,0.29224e-01, & - & 0.32085e-01,0.33411e-01,0.32190e-01,0.25539e-01 /) - kao(:, 4,13, 5) = (/ & - & 0.15787e-02,0.14655e-01,0.21685e-01,0.26887e-01,0.30821e-01, & - & 0.33533e-01,0.34581e-01,0.33091e-01,0.26483e-01 /) - kao(:, 5,13, 5) = (/ & - & 0.18422e-02,0.15847e-01,0.23201e-01,0.28535e-01,0.32486e-01, & - & 0.35059e-01,0.35791e-01,0.33942e-01,0.27340e-01 /) - kao(:, 1, 1, 6) = (/ & - & 0.11257e+00,0.31731e+00,0.42139e+00,0.49121e+00,0.53179e+00, & - & 0.54416e+00,0.52879e+00,0.48565e+00,0.38185e+00 /) - kao(:, 2, 1, 6) = (/ & - & 0.12995e+00,0.33757e+00,0.44079e+00,0.50693e+00,0.54374e+00, & - & 0.55231e+00,0.53411e+00,0.48973e+00,0.38664e+00 /) - kao(:, 3, 1, 6) = (/ & - & 0.14899e+00,0.35787e+00,0.45940e+00,0.52235e+00,0.55490e+00, & - & 0.56009e+00,0.53945e+00,0.49411e+00,0.39028e+00 /) - kao(:, 4, 1, 6) = (/ & - & 0.16946e+00,0.37848e+00,0.47747e+00,0.53692e+00,0.56497e+00, & - & 0.56760e+00,0.54484e+00,0.49832e+00,0.39391e+00 /) - kao(:, 5, 1, 6) = (/ & - & 0.19143e+00,0.39915e+00,0.49476e+00,0.55039e+00,0.57468e+00, & - & 0.57486e+00,0.55036e+00,0.50307e+00,0.39756e+00 /) - kao(:, 1, 2, 6) = (/ & - & 0.97091e-01,0.28037e+00,0.37054e+00,0.43162e+00,0.46715e+00, & - & 0.47740e+00,0.46327e+00,0.42557e+00,0.32833e+00 /) - kao(:, 2, 2, 6) = (/ & - & 0.11208e+00,0.29815e+00,0.38764e+00,0.44615e+00,0.47841e+00, & - & 0.48513e+00,0.46886e+00,0.42998e+00,0.33260e+00 /) - kao(:, 3, 2, 6) = (/ & - & 0.12856e+00,0.31599e+00,0.40420e+00,0.45996e+00,0.48848e+00, & - & 0.49285e+00,0.47441e+00,0.43431e+00,0.33632e+00 /) - kao(:, 4, 2, 6) = (/ & - & 0.14648e+00,0.33425e+00,0.42020e+00,0.47262e+00,0.49778e+00, & - & 0.50015e+00,0.47996e+00,0.43890e+00,0.33965e+00 /) - kao(:, 5, 2, 6) = (/ & - & 0.16579e+00,0.35250e+00,0.43554e+00,0.48445e+00,0.50655e+00, & - & 0.50702e+00,0.48572e+00,0.44375e+00,0.34330e+00 /) - kao(:, 1, 3, 6) = (/ & - & 0.80654e-01,0.24334e+00,0.32145e+00,0.37485e+00,0.40615e+00, & - & 0.41488e+00,0.40284e+00,0.37005e+00,0.27897e+00 /) - kao(:, 2, 3, 6) = (/ & - & 0.93334e-01,0.25889e+00,0.33665e+00,0.38799e+00,0.41628e+00, & - & 0.42254e+00,0.40845e+00,0.37420e+00,0.28281e+00 /) - kao(:, 3, 3, 6) = (/ & - & 0.10735e+00,0.27449e+00,0.35143e+00,0.40015e+00,0.42551e+00, & - & 0.42981e+00,0.41382e+00,0.37871e+00,0.28619e+00 /) - kao(:, 4, 3, 6) = (/ & - & 0.12265e+00,0.29043e+00,0.36548e+00,0.41153e+00,0.43393e+00, & - & 0.43649e+00,0.41932e+00,0.38340e+00,0.28955e+00 /) - kao(:, 5, 3, 6) = (/ & - & 0.13925e+00,0.30659e+00,0.37895e+00,0.42211e+00,0.44187e+00, & - & 0.44276e+00,0.42490e+00,0.38830e+00,0.29282e+00 /) - kao(:, 1, 4, 6) = (/ & - & 0.65986e-01,0.20968e+00,0.27746e+00,0.32321e+00,0.35021e+00, & - & 0.35817e+00,0.34816e+00,0.31914e+00,0.23714e+00 /) - kao(:, 2, 4, 6) = (/ & - & 0.76550e-01,0.22318e+00,0.29094e+00,0.33486e+00,0.35941e+00, & - & 0.36546e+00,0.35341e+00,0.32318e+00,0.24040e+00 /) - kao(:, 3, 4, 6) = (/ & - & 0.88349e-01,0.23676e+00,0.30387e+00,0.34562e+00,0.36786e+00, & - & 0.37204e+00,0.35871e+00,0.32765e+00,0.24343e+00 /) - kao(:, 4, 4, 6) = (/ & - & 0.10129e+00,0.25065e+00,0.31610e+00,0.35574e+00,0.37546e+00, & - & 0.37811e+00,0.36390e+00,0.33220e+00,0.24649e+00 /) - kao(:, 5, 4, 6) = (/ & - & 0.11540e+00,0.26489e+00,0.32784e+00,0.36504e+00,0.38250e+00, & - & 0.38387e+00,0.36919e+00,0.33697e+00,0.24943e+00 /) - kao(:, 1, 5, 6) = (/ & - & 0.53393e-01,0.18000e+00,0.23883e+00,0.27751e+00,0.30053e+00, & - & 0.30742e+00,0.29898e+00,0.27383e+00,0.20106e+00 /) - kao(:, 2, 5, 6) = (/ & - & 0.62233e-01,0.19175e+00,0.25050e+00,0.28777e+00,0.30898e+00, & - & 0.31400e+00,0.30389e+00,0.27769e+00,0.20390e+00 /) - kao(:, 3, 5, 6) = (/ & - & 0.72177e-01,0.20364e+00,0.26165e+00,0.29741e+00,0.31640e+00, & - & 0.31996e+00,0.30876e+00,0.28174e+00,0.20671e+00 /) - kao(:, 4, 5, 6) = (/ & - & 0.83134e-01,0.21576e+00,0.27227e+00,0.30617e+00,0.32319e+00, & - & 0.32542e+00,0.31353e+00,0.28599e+00,0.20956e+00 /) - kao(:, 5, 5, 6) = (/ & - & 0.95090e-01,0.22815e+00,0.28259e+00,0.31429e+00,0.32943e+00, & - & 0.33059e+00,0.31837e+00,0.29043e+00,0.21220e+00 /) - kao(:, 1, 6, 6) = (/ & - & 0.42433e-01,0.15317e+00,0.20425e+00,0.23740e+00,0.25663e+00, & - & 0.26234e+00,0.25512e+00,0.23364e+00,0.16949e+00 /) - kao(:, 2, 6, 6) = (/ & - & 0.49749e-01,0.16341e+00,0.21435e+00,0.24646e+00,0.26413e+00, & - & 0.26825e+00,0.25968e+00,0.23716e+00,0.17204e+00 /) - kao(:, 3, 6, 6) = (/ & - & 0.58017e-01,0.17381e+00,0.22409e+00,0.25485e+00,0.27073e+00, & - & 0.27356e+00,0.26405e+00,0.24070e+00,0.17477e+00 /) - kao(:, 4, 6, 6) = (/ & - & 0.67231e-01,0.18439e+00,0.23345e+00,0.26240e+00,0.27677e+00, & - & 0.27839e+00,0.26819e+00,0.24459e+00,0.17741e+00 /) - kao(:, 5, 6, 6) = (/ & - & 0.77316e-01,0.19517e+00,0.24253e+00,0.26953e+00,0.28221e+00, & - & 0.28296e+00,0.27246e+00,0.24867e+00,0.17984e+00 /) - kao(:, 1, 7, 6) = (/ & - & 0.33835e-01,0.12894e+00,0.17377e+00,0.20223e+00,0.21858e+00, & - & 0.22305e+00,0.21661e+00,0.19799e+00,0.14234e+00 /) - kao(:, 2, 7, 6) = (/ & - & 0.39495e-01,0.13775e+00,0.18255e+00,0.21017e+00,0.22506e+00, & - & 0.22828e+00,0.22063e+00,0.20115e+00,0.14469e+00 /) - kao(:, 3, 7, 6) = (/ & - & 0.46213e-01,0.14677e+00,0.19104e+00,0.21747e+00,0.23085e+00, & - & 0.23293e+00,0.22444e+00,0.20438e+00,0.14721e+00 /) - kao(:, 4, 7, 6) = (/ & - & 0.53881e-01,0.15604e+00,0.19912e+00,0.22407e+00,0.23606e+00, & - & 0.23711e+00,0.22803e+00,0.20793e+00,0.14967e+00 /) - kao(:, 5, 7, 6) = (/ & - & 0.62313e-01,0.16559e+00,0.20703e+00,0.23032e+00,0.24086e+00, & - & 0.24109e+00,0.23183e+00,0.21164e+00,0.15187e+00 /) - kao(:, 1, 8, 6) = (/ & - & 0.27294e-01,0.10784e+00,0.14673e+00,0.17152e+00,0.18541e+00, & - & 0.18896e+00,0.18302e+00,0.16686e+00,0.11892e+00 /) - kao(:, 2, 8, 6) = (/ & - & 0.31945e-01,0.11533e+00,0.15437e+00,0.17841e+00,0.19097e+00, & - & 0.19348e+00,0.18650e+00,0.16969e+00,0.12123e+00 /) - kao(:, 3, 8, 6) = (/ & - & 0.37290e-01,0.12309e+00,0.16174e+00,0.18467e+00,0.19597e+00, & - & 0.19753e+00,0.18983e+00,0.17262e+00,0.12344e+00 /) - kao(:, 4, 8, 6) = (/ & - & 0.43331e-01,0.13110e+00,0.16878e+00,0.19044e+00,0.20053e+00, & - & 0.20117e+00,0.19304e+00,0.17581e+00,0.12571e+00 /) - kao(:, 5, 8, 6) = (/ & - & 0.50086e-01,0.13937e+00,0.17577e+00,0.19586e+00,0.20476e+00, & - & 0.20472e+00,0.19647e+00,0.17915e+00,0.12770e+00 /) - kao(:, 1, 9, 6) = (/ & - & 0.21763e-01,0.89580e-01,0.12270e+00,0.14431e+00,0.15639e+00, & - & 0.15936e+00,0.15421e+00,0.14030e+00,0.10042e+00 /) - kao(:, 2, 9, 6) = (/ & - & 0.25609e-01,0.95974e-01,0.12925e+00,0.15030e+00,0.16119e+00, & - & 0.16326e+00,0.15719e+00,0.14283e+00,0.10252e+00 /) - kao(:, 3, 9, 6) = (/ & - & 0.30067e-01,0.10261e+00,0.13551e+00,0.15572e+00,0.16552e+00, & - & 0.16675e+00,0.16007e+00,0.14539e+00,0.10448e+00 /) - kao(:, 4, 9, 6) = (/ & - & 0.35097e-01,0.10949e+00,0.14161e+00,0.16075e+00,0.16947e+00, & - & 0.16997e+00,0.16297e+00,0.14823e+00,0.10645e+00 /) - kao(:, 5, 9, 6) = (/ & - & 0.40711e-01,0.11658e+00,0.14773e+00,0.16552e+00,0.17324e+00, & - & 0.17317e+00,0.16604e+00,0.15112e+00,0.10826e+00 /) - kao(:, 1,10, 6) = (/ & - & 0.17370e-01,0.74466e-01,0.10240e+00,0.12053e+00,0.13126e+00, & - & 0.13417e+00,0.12989e+00,0.11790e+00,0.87103e-01 /) - kao(:, 2,10, 6) = (/ & - & 0.20536e-01,0.79866e-01,0.10796e+00,0.12568e+00,0.13547e+00, & - & 0.13755e+00,0.13244e+00,0.12017e+00,0.88680e-01 /) - kao(:, 3,10, 6) = (/ & - & 0.24274e-01,0.85524e-01,0.11324e+00,0.13036e+00,0.13925e+00, & - & 0.14055e+00,0.13491e+00,0.12243e+00,0.90062e-01 /) - kao(:, 4,10, 6) = (/ & - & 0.28508e-01,0.91420e-01,0.11852e+00,0.13467e+00,0.14267e+00, & - & 0.14339e+00,0.13748e+00,0.12487e+00,0.91240e-01 /) - kao(:, 5,10, 6) = (/ & - & 0.33217e-01,0.97522e-01,0.12382e+00,0.13886e+00,0.14603e+00, & - & 0.14625e+00,0.14015e+00,0.12740e+00,0.92631e-01 /) - kao(:, 1,11, 6) = (/ & - & 0.14918e-01,0.64249e-01,0.87193e-01,0.10225e+00,0.11107e+00, & - & 0.11380e+00,0.11017e+00,0.99775e-01,0.75883e-01 /) - kao(:, 2,11, 6) = (/ & - & 0.17707e-01,0.68887e-01,0.91783e-01,0.10653e+00,0.11454e+00, & - & 0.11659e+00,0.11231e+00,0.10178e+00,0.77400e-01 /) - kao(:, 3,11, 6) = (/ & - & 0.20985e-01,0.73723e-01,0.96290e-01,0.11038e+00,0.11765e+00, & - & 0.11911e+00,0.11446e+00,0.10377e+00,0.78827e-01 /) - kao(:, 4,11, 6) = (/ & - & 0.24698e-01,0.78820e-01,0.10085e+00,0.11403e+00,0.12064e+00, & - & 0.12159e+00,0.11674e+00,0.10593e+00,0.80678e-01 /) - kao(:, 5,11, 6) = (/ & - & 0.28798e-01,0.84087e-01,0.10545e+00,0.11772e+00,0.12367e+00, & - & 0.12416e+00,0.11916e+00,0.10818e+00,0.82090e-01 /) - kao(:, 1,12, 6) = (/ & - & 0.12778e-01,0.55028e-01,0.74326e-01,0.86458e-01,0.93690e-01, & - & 0.95887e-01,0.92996e-01,0.84239e-01,0.65531e-01 /) - kao(:, 2,12, 6) = (/ & - & 0.15226e-01,0.59056e-01,0.78180e-01,0.90004e-01,0.96562e-01, & - & 0.98210e-01,0.94824e-01,0.85996e-01,0.67232e-01 /) - kao(:, 3,12, 6) = (/ & - & 0.18073e-01,0.63328e-01,0.81993e-01,0.93245e-01,0.99175e-01, & - & 0.10034e+00,0.96751e-01,0.87779e-01,0.68728e-01 /) - kao(:, 4,12, 6) = (/ & - & 0.21287e-01,0.67814e-01,0.85944e-01,0.96446e-01,0.10181e+00, & - & 0.10253e+00,0.98787e-01,0.89700e-01,0.70024e-01 /) - kao(:, 5,12, 6) = (/ & - & 0.24810e-01,0.72405e-01,0.89913e-01,0.99700e-01,0.10454e+00, & - & 0.10492e+00,0.10099e+00,0.91662e-01,0.71222e-01 /) - kao(:, 1,13, 6) = (/ & - & 0.10897e-01,0.46824e-01,0.63070e-01,0.73198e-01,0.78826e-01, & - & 0.80547e-01,0.78087e-01,0.70945e-01,0.55427e-01 /) - kao(:, 2,13, 6) = (/ & - & 0.13037e-01,0.50331e-01,0.66369e-01,0.76169e-01,0.81229e-01, & - & 0.82485e-01,0.79688e-01,0.72492e-01,0.56776e-01 /) - kao(:, 3,13, 6) = (/ & - & 0.15498e-01,0.54103e-01,0.69687e-01,0.78968e-01,0.83486e-01, & - & 0.84334e-01,0.81403e-01,0.74109e-01,0.57973e-01 /) - kao(:, 4,13, 6) = (/ & - & 0.18239e-01,0.58007e-01,0.73146e-01,0.81751e-01,0.85842e-01, & - & 0.86346e-01,0.83244e-01,0.75789e-01,0.59123e-01 /) - kao(:, 5,13, 6) = (/ & - & 0.21231e-01,0.61947e-01,0.76584e-01,0.84579e-01,0.88268e-01, & - & 0.88508e-01,0.85245e-01,0.77486e-01,0.60191e-01 /) - kao(:, 1, 1, 7) = (/ & - & 0.71609e+00,0.10081e+01,0.11118e+01,0.11603e+01,0.11765e+01, & - & 0.11643e+01,0.11202e+01,0.10296e+01,0.82502e+00 /) - kao(:, 2, 1, 7) = (/ & - & 0.75920e+00,0.10292e+01,0.11252e+01,0.11685e+01,0.11822e+01, & - & 0.11684e+01,0.11228e+01,0.10318e+01,0.83157e+00 /) - kao(:, 3, 1, 7) = (/ & - & 0.79807e+00,0.10500e+01,0.11397e+01,0.11794e+01,0.11904e+01, & - & 0.11740e+01,0.11264e+01,0.10343e+01,0.83726e+00 /) - kao(:, 4, 1, 7) = (/ & - & 0.83183e+00,0.10700e+01,0.11548e+01,0.11918e+01,0.12010e+01, & - & 0.11815e+01,0.11313e+01,0.10364e+01,0.84249e+00 /) - kao(:, 5, 1, 7) = (/ & - & 0.86161e+00,0.10887e+01,0.11706e+01,0.12061e+01,0.12126e+01, & - & 0.11904e+01,0.11363e+01,0.10383e+01,0.84713e+00 /) - kao(:, 1, 2, 7) = (/ & - & 0.62079e+00,0.89078e+00,0.98349e+00,0.10275e+01,0.10413e+01, & - & 0.10318e+01,0.99528e+00,0.92037e+00,0.72464e+00 /) - kao(:, 2, 2, 7) = (/ & - & 0.65800e+00,0.91114e+00,0.99789e+00,0.10381e+01,0.10488e+01, & - & 0.10378e+01,0.99952e+00,0.92364e+00,0.73140e+00 /) - kao(:, 3, 2, 7) = (/ & - & 0.69092e+00,0.93058e+00,0.10122e+01,0.10502e+01,0.10590e+01, & - & 0.10454e+01,0.10054e+01,0.92699e+00,0.73764e+00 /) - kao(:, 4, 2, 7) = (/ & - & 0.71970e+00,0.94840e+00,0.10270e+01,0.10636e+01,0.10709e+01, & - & 0.10547e+01,0.10116e+01,0.93021e+00,0.74329e+00 /) - kao(:, 5, 2, 7) = (/ & - & 0.74579e+00,0.96581e+00,0.10421e+01,0.10781e+01,0.10844e+01, & - & 0.10644e+01,0.10185e+01,0.93369e+00,0.74789e+00 /) - kao(:, 1, 3, 7) = (/ & - & 0.52823e+00,0.77783e+00,0.86297e+00,0.90265e+00,0.91464e+00, & - & 0.90839e+00,0.87923e+00,0.81632e+00,0.63067e+00 /) - kao(:, 2, 3, 7) = (/ & - & 0.56021e+00,0.79652e+00,0.87677e+00,0.91375e+00,0.92363e+00, & - & 0.91571e+00,0.88529e+00,0.82096e+00,0.63740e+00 /) - kao(:, 3, 3, 7) = (/ & - & 0.58848e+00,0.81389e+00,0.89039e+00,0.92584e+00,0.93460e+00, & - & 0.92486e+00,0.89232e+00,0.82527e+00,0.64377e+00 /) - kao(:, 4, 3, 7) = (/ & - & 0.61369e+00,0.83008e+00,0.90459e+00,0.93860e+00,0.94727e+00, & - & 0.93485e+00,0.89989e+00,0.82959e+00,0.64921e+00 /) - kao(:, 5, 3, 7) = (/ & - & 0.63687e+00,0.84580e+00,0.91897e+00,0.95268e+00,0.96085e+00, & - & 0.94565e+00,0.90780e+00,0.83380e+00,0.65367e+00 /) - kao(:, 1, 4, 7) = (/ & - & 0.44508e+00,0.67351e+00,0.75154e+00,0.78756e+00,0.79977e+00, & - & 0.79563e+00,0.77123e+00,0.71868e+00,0.54794e+00 /) - kao(:, 2, 4, 7) = (/ & - & 0.47271e+00,0.69026e+00,0.76424e+00,0.79840e+00,0.80928e+00, & - & 0.80400e+00,0.77859e+00,0.72416e+00,0.55496e+00 /) - kao(:, 3, 4, 7) = (/ & - & 0.49708e+00,0.70580e+00,0.77670e+00,0.80989e+00,0.82043e+00, & - & 0.81421e+00,0.78653e+00,0.72918e+00,0.56105e+00 /) - kao(:, 4, 4, 7) = (/ & - & 0.51921e+00,0.72040e+00,0.78970e+00,0.82209e+00,0.83296e+00, & - & 0.82477e+00,0.79492e+00,0.73435e+00,0.56612e+00 /) - kao(:, 5, 4, 7) = (/ & - & 0.53991e+00,0.73468e+00,0.80284e+00,0.83540e+00,0.84599e+00, & - & 0.83588e+00,0.80349e+00,0.73920e+00,0.57048e+00 /) - kao(:, 1, 5, 7) = (/ & - & 0.37413e+00,0.58022e+00,0.65026e+00,0.68370e+00,0.69632e+00, & - & 0.69319e+00,0.67239e+00,0.62755e+00,0.47517e+00 /) - kao(:, 2, 5, 7) = (/ & - & 0.39785e+00,0.59500e+00,0.66160e+00,0.69388e+00,0.70581e+00, & - & 0.70224e+00,0.68037e+00,0.63372e+00,0.48187e+00 /) - kao(:, 3, 5, 7) = (/ & - & 0.41894e+00,0.60858e+00,0.67282e+00,0.70454e+00,0.71693e+00, & - & 0.71249e+00,0.68889e+00,0.63962e+00,0.48765e+00 /) - kao(:, 4, 5, 7) = (/ & - & 0.43810e+00,0.62138e+00,0.68416e+00,0.71639e+00,0.72873e+00, & - & 0.72302e+00,0.69785e+00,0.64510e+00,0.49243e+00 /) - kao(:, 5, 5, 7) = (/ & - & 0.45627e+00,0.63437e+00,0.69610e+00,0.72855e+00,0.74096e+00, & - & 0.73385e+00,0.70672e+00,0.65052e+00,0.49657e+00 /) - kao(:, 1, 6, 7) = (/ & - & 0.31382e+00,0.49799e+00,0.55977e+00,0.58971e+00,0.60230e+00, & - & 0.60065e+00,0.58267e+00,0.54392e+00,0.40911e+00 /) - kao(:, 2, 6, 7) = (/ & - & 0.33427e+00,0.51077e+00,0.56976e+00,0.59903e+00,0.61148e+00, & - & 0.60961e+00,0.59093e+00,0.55057e+00,0.41554e+00 /) - kao(:, 3, 6, 7) = (/ & - & 0.35247e+00,0.52249e+00,0.57948e+00,0.60895e+00,0.62185e+00, & - & 0.61942e+00,0.59984e+00,0.55707e+00,0.42096e+00 /) - kao(:, 4, 6, 7) = (/ & - & 0.36909e+00,0.53360e+00,0.58950e+00,0.61977e+00,0.63265e+00, & - & 0.62957e+00,0.60872e+00,0.56306e+00,0.42549e+00 /) - kao(:, 5, 6, 7) = (/ & - & 0.38489e+00,0.54511e+00,0.60025e+00,0.63086e+00,0.64395e+00, & - & 0.63979e+00,0.61739e+00,0.56897e+00,0.42951e+00 /) - kao(:, 1, 7, 7) = (/ & - & 0.26224e+00,0.42663e+00,0.48031e+00,0.50651e+00,0.51797e+00, & - & 0.51738e+00,0.50230e+00,0.46824e+00,0.34967e+00 /) - kao(:, 2, 7, 7) = (/ & - & 0.28013e+00,0.43764e+00,0.48906e+00,0.51485e+00,0.52656e+00, & - & 0.52602e+00,0.51065e+00,0.47517e+00,0.35569e+00 /) - kao(:, 3, 7, 7) = (/ & - & 0.29592e+00,0.44770e+00,0.49758e+00,0.52367e+00,0.53583e+00, & - & 0.53525e+00,0.51944e+00,0.48175e+00,0.36089e+00 /) - kao(:, 4, 7, 7) = (/ & - & 0.31035e+00,0.45721e+00,0.50658e+00,0.53311e+00,0.54562e+00, & - & 0.54468e+00,0.52799e+00,0.48800e+00,0.36523e+00 /) - kao(:, 5, 7, 7) = (/ & - & 0.32410e+00,0.46702e+00,0.51628e+00,0.54315e+00,0.55572e+00, & - & 0.55402e+00,0.53619e+00,0.49402e+00,0.36906e+00 /) - kao(:, 1, 8, 7) = (/ & - & 0.21802e+00,0.36523e+00,0.41109e+00,0.43388e+00,0.44363e+00, & - & 0.44316e+00,0.43058e+00,0.40065e+00,0.29668e+00 /) - kao(:, 2, 8, 7) = (/ & - & 0.23315e+00,0.37455e+00,0.41894e+00,0.44116e+00,0.45154e+00, & - & 0.45134e+00,0.43880e+00,0.40751e+00,0.30231e+00 /) - kao(:, 3, 8, 7) = (/ & - & 0.24686e+00,0.38301e+00,0.42637e+00,0.44889e+00,0.45978e+00, & - & 0.45969e+00,0.44700e+00,0.41408e+00,0.30721e+00 /) - kao(:, 4, 8, 7) = (/ & - & 0.25967e+00,0.39102e+00,0.43427e+00,0.45708e+00,0.46833e+00, & - & 0.46819e+00,0.45488e+00,0.42031e+00,0.31131e+00 /) - kao(:, 5, 8, 7) = (/ & - & 0.27188e+00,0.39949e+00,0.44272e+00,0.46608e+00,0.47706e+00, & - & 0.47653e+00,0.46230e+00,0.42618e+00,0.31504e+00 /) - kao(:, 1, 9, 7) = (/ & - & 0.18022e+00,0.31183e+00,0.35120e+00,0.37079e+00,0.37884e+00, & - & 0.37804e+00,0.36693e+00,0.34063e+00,0.24612e+00 /) - kao(:, 2, 9, 7) = (/ & - & 0.19307e+00,0.31966e+00,0.35801e+00,0.37712e+00,0.38585e+00, & - & 0.38558e+00,0.37468e+00,0.34716e+00,0.25138e+00 /) - kao(:, 3, 9, 7) = (/ & - & 0.20463e+00,0.32683e+00,0.36444e+00,0.38387e+00,0.39308e+00, & - & 0.39294e+00,0.38210e+00,0.35364e+00,0.25593e+00 /) - kao(:, 4, 9, 7) = (/ & - & 0.21550e+00,0.33367e+00,0.37119e+00,0.39103e+00,0.40042e+00, & - & 0.40039e+00,0.38916e+00,0.35964e+00,0.25996e+00 /) - kao(:, 5, 9, 7) = (/ & - & 0.22607e+00,0.34108e+00,0.37860e+00,0.39875e+00,0.40805e+00, & - & 0.40762e+00,0.39578e+00,0.36518e+00,0.26360e+00 /) - kao(:, 1,10, 7) = (/ & - & 0.14867e+00,0.26554e+00,0.29985e+00,0.31657e+00,0.32318e+00, & - & 0.32201e+00,0.31162e+00,0.28815e+00,0.21732e+00 /) - kao(:, 2,10, 7) = (/ & - & 0.15961e+00,0.27217e+00,0.30555e+00,0.32206e+00,0.32938e+00, & - & 0.32864e+00,0.31877e+00,0.29424e+00,0.22230e+00 /) - kao(:, 3,10, 7) = (/ & - & 0.16940e+00,0.27829e+00,0.31116e+00,0.32786e+00,0.33559e+00, & - & 0.33509e+00,0.32534e+00,0.30046e+00,0.22643e+00 /) - kao(:, 4,10, 7) = (/ & - & 0.17863e+00,0.28410e+00,0.31692e+00,0.33409e+00,0.34189e+00, & - & 0.34154e+00,0.33152e+00,0.30607e+00,0.23022e+00 /) - kao(:, 5,10, 7) = (/ & - & 0.18774e+00,0.29050e+00,0.32341e+00,0.34075e+00,0.34846e+00, & - & 0.34771e+00,0.33731e+00,0.31120e+00,0.23340e+00 /) - kao(:, 1,11, 7) = (/ & - & 0.12627e+00,0.22669e+00,0.25719e+00,0.27172e+00,0.27732e+00, & - & 0.27601e+00,0.26659e+00,0.24512e+00,0.18584e+00 /) - kao(:, 2,11, 7) = (/ & - & 0.13516e+00,0.23214e+00,0.26193e+00,0.27653e+00,0.28265e+00, & - & 0.28160e+00,0.27265e+00,0.25095e+00,0.18968e+00 /) - kao(:, 3,11, 7) = (/ & - & 0.14321e+00,0.23722e+00,0.26679e+00,0.28162e+00,0.28797e+00, & - & 0.28724e+00,0.27822e+00,0.25645e+00,0.19293e+00 /) - kao(:, 4,11, 7) = (/ & - & 0.15107e+00,0.24247e+00,0.27199e+00,0.28706e+00,0.29346e+00, & - & 0.29269e+00,0.28343e+00,0.26131e+00,0.19541e+00 /) - kao(:, 5,11, 7) = (/ & - & 0.15896e+00,0.24837e+00,0.27786e+00,0.29309e+00,0.29929e+00, & - & 0.29804e+00,0.28838e+00,0.26594e+00,0.19802e+00 /) - kao(:, 1,12, 7) = (/ & - & 0.10682e+00,0.19256e+00,0.21863e+00,0.23192e+00,0.23695e+00, & - & 0.23560e+00,0.22744e+00,0.20844e+00,0.16014e+00 /) - kao(:, 2,12, 7) = (/ & - & 0.11409e+00,0.19699e+00,0.22274e+00,0.23606e+00,0.24149e+00, & - & 0.24040e+00,0.23256e+00,0.21367e+00,0.16300e+00 /) - kao(:, 3,12, 7) = (/ & - & 0.12093e+00,0.20128e+00,0.22702e+00,0.24050e+00,0.24609e+00, & - & 0.24521e+00,0.23721e+00,0.21831e+00,0.16579e+00 /) - kao(:, 4,12, 7) = (/ & - & 0.12767e+00,0.20601e+00,0.23174e+00,0.24542e+00,0.25091e+00, & - & 0.24990e+00,0.24163e+00,0.22258e+00,0.16866e+00 /) - kao(:, 5,12, 7) = (/ & - & 0.13446e+00,0.21151e+00,0.23730e+00,0.25089e+00,0.25608e+00, & - & 0.25469e+00,0.24607e+00,0.22668e+00,0.17141e+00 /) - kao(:, 1,13, 7) = (/ & - & 0.90556e-01,0.16301e+00,0.18506e+00,0.19633e+00,0.20124e+00, & - & 0.20042e+00,0.19353e+00,0.17713e+00,0.13589e+00 /) - kao(:, 2,13, 7) = (/ & - & 0.96629e-01,0.16667e+00,0.18855e+00,0.19991e+00,0.20512e+00, & - & 0.20458e+00,0.19781e+00,0.18150e+00,0.13866e+00 /) - kao(:, 3,13, 7) = (/ & - & 0.10246e+00,0.17045e+00,0.19232e+00,0.20386e+00,0.20916e+00, & - & 0.20868e+00,0.20175e+00,0.18546e+00,0.14157e+00 /) - kao(:, 4,13, 7) = (/ & - & 0.10831e+00,0.17481e+00,0.19664e+00,0.20827e+00,0.21340e+00, & - & 0.21278e+00,0.20565e+00,0.18920e+00,0.14421e+00 /) - kao(:, 5,13, 7) = (/ & - & 0.11418e+00,0.17993e+00,0.20190e+00,0.21347e+00,0.21830e+00, & - & 0.21718e+00,0.20964e+00,0.19280e+00,0.14715e+00 /) - kao(:, 1, 1, 8) = (/ & - & 0.20844e+01,0.23344e+01,0.25576e+01,0.26701e+01,0.27010e+01, & - & 0.26681e+01,0.25683e+01,0.23655e+01,0.20810e+01 /) - kao(:, 2, 1, 8) = (/ & - & 0.20807e+01,0.23304e+01,0.25489e+01,0.26611e+01,0.26920e+01, & - & 0.26609e+01,0.25647e+01,0.23645e+01,0.20859e+01 /) - kao(:, 3, 1, 8) = (/ & - & 0.20877e+01,0.23342e+01,0.25477e+01,0.26548e+01,0.26843e+01, & - & 0.26541e+01,0.25605e+01,0.23637e+01,0.20903e+01 /) - kao(:, 4, 1, 8) = (/ & - & 0.21052e+01,0.23454e+01,0.25520e+01,0.26529e+01,0.26778e+01, & - & 0.26478e+01,0.25565e+01,0.23630e+01,0.20935e+01 /) - kao(:, 5, 1, 8) = (/ & - & 0.21303e+01,0.23633e+01,0.25619e+01,0.26546e+01,0.26749e+01, & - & 0.26429e+01,0.25542e+01,0.23619e+01,0.20958e+01 /) - kao(:, 1, 2, 8) = (/ & - & 0.18120e+01,0.21101e+01,0.23204e+01,0.24266e+01,0.24657e+01, & - & 0.24469e+01,0.23702e+01,0.21931e+01,0.18669e+01 /) - kao(:, 2, 2, 8) = (/ & - & 0.18187e+01,0.21137e+01,0.23188e+01,0.24223e+01,0.24620e+01, & - & 0.24436e+01,0.23687e+01,0.21944e+01,0.18726e+01 /) - kao(:, 3, 2, 8) = (/ & - & 0.18356e+01,0.21255e+01,0.23256e+01,0.24232e+01,0.24590e+01, & - & 0.24407e+01,0.23674e+01,0.21960e+01,0.18776e+01 /) - kao(:, 4, 2, 8) = (/ & - & 0.18614e+01,0.21447e+01,0.23386e+01,0.24287e+01,0.24595e+01, & - & 0.24387e+01,0.23672e+01,0.21970e+01,0.18816e+01 /) - kao(:, 5, 2, 8) = (/ & - & 0.18927e+01,0.21683e+01,0.23579e+01,0.24392e+01,0.24636e+01, & - & 0.24407e+01,0.23665e+01,0.21974e+01,0.18864e+01 /) - kao(:, 1, 3, 8) = (/ & - & 0.15702e+01,0.18942e+01,0.20837e+01,0.21854e+01,0.22324e+01, & - & 0.22266e+01,0.21649e+01,0.20134e+01,0.16617e+01 /) - kao(:, 2, 3, 8) = (/ & - & 0.15827e+01,0.19038e+01,0.20886e+01,0.21865e+01,0.22329e+01, & - & 0.22266e+01,0.21649e+01,0.20167e+01,0.16695e+01 /) - kao(:, 3, 3, 8) = (/ & - & 0.16046e+01,0.19213e+01,0.21019e+01,0.21942e+01,0.22360e+01, & - & 0.22271e+01,0.21665e+01,0.20195e+01,0.16762e+01 /) - kao(:, 4, 3, 8) = (/ & - & 0.16329e+01,0.19443e+01,0.21213e+01,0.22070e+01,0.22424e+01, & - & 0.22311e+01,0.21683e+01,0.20214e+01,0.16830e+01 /) - kao(:, 5, 3, 8) = (/ & - & 0.16658e+01,0.19717e+01,0.21452e+01,0.22251e+01,0.22530e+01, & - & 0.22371e+01,0.21708e+01,0.20238e+01,0.16904e+01 /) - kao(:, 1, 4, 8) = (/ & - & 0.13564e+01,0.16869e+01,0.18550e+01,0.19537e+01,0.20049e+01, & - & 0.20085e+01,0.19601e+01,0.18287e+01,0.14756e+01 /) - kao(:, 2, 4, 8) = (/ & - & 0.13720e+01,0.17000e+01,0.18655e+01,0.19607e+01,0.20100e+01, & - & 0.20105e+01,0.19622e+01,0.18339e+01,0.14854e+01 /) - kao(:, 3, 4, 8) = (/ & - & 0.13952e+01,0.17204e+01,0.18837e+01,0.19740e+01,0.20182e+01, & - & 0.20154e+01,0.19654e+01,0.18384e+01,0.14948e+01 /) - kao(:, 4, 4, 8) = (/ & - & 0.14229e+01,0.17461e+01,0.19072e+01,0.19926e+01,0.20303e+01, & - & 0.20234e+01,0.19691e+01,0.18420e+01,0.15040e+01 /) - kao(:, 5, 4, 8) = (/ & - & 0.14534e+01,0.17751e+01,0.19345e+01,0.20154e+01,0.20467e+01, & - & 0.20337e+01,0.19742e+01,0.18465e+01,0.15131e+01 /) - kao(:, 1, 5, 8) = (/ & - & 0.11675e+01,0.14906e+01,0.16422e+01,0.17364e+01,0.17875e+01, & - & 0.17970e+01,0.17582e+01,0.16459e+01,0.13057e+01 /) - kao(:, 2, 5, 8) = (/ & - & 0.11839e+01,0.15062e+01,0.16573e+01,0.17483e+01,0.17956e+01, & - & 0.18020e+01,0.17623e+01,0.16529e+01,0.13176e+01 /) - kao(:, 3, 5, 8) = (/ & - & 0.12061e+01,0.15281e+01,0.16790e+01,0.17660e+01,0.18082e+01, & - & 0.18106e+01,0.17678e+01,0.16587e+01,0.13289e+01 /) - kao(:, 4, 5, 8) = (/ & - & 0.12311e+01,0.15549e+01,0.17048e+01,0.17877e+01,0.18250e+01, & - & 0.18222e+01,0.17742e+01,0.16644e+01,0.13398e+01 /) - kao(:, 5, 5, 8) = (/ & - & 0.12582e+01,0.15836e+01,0.17338e+01,0.18131e+01,0.18457e+01, & - & 0.18359e+01,0.17826e+01,0.16710e+01,0.13507e+01 /) - kao(:, 1, 6, 8) = (/ & - & 0.99981e+00,0.13080e+01,0.14477e+01,0.15356e+01,0.15829e+01, & - & 0.15936e+01,0.15636e+01,0.14683e+01,0.11482e+01 /) - kao(:, 2, 6, 8) = (/ & - & 0.10151e+01,0.13251e+01,0.14655e+01,0.15504e+01,0.15941e+01, & - & 0.16015e+01,0.15698e+01,0.14767e+01,0.11619e+01 /) - kao(:, 3, 6, 8) = (/ & - & 0.10344e+01,0.13476e+01,0.14887e+01,0.15702e+01,0.16097e+01, & - & 0.16130e+01,0.15772e+01,0.14847e+01,0.11743e+01 /) - kao(:, 4, 6, 8) = (/ & - & 0.10560e+01,0.13735e+01,0.15155e+01,0.15939e+01,0.16293e+01, & - & 0.16276e+01,0.15870e+01,0.14924e+01,0.11864e+01 /) - kao(:, 5, 6, 8) = (/ & - & 0.10794e+01,0.13996e+01,0.15438e+01,0.16205e+01,0.16521e+01, & - & 0.16451e+01,0.15991e+01,0.15003e+01,0.11982e+01 /) - kao(:, 1, 7, 8) = (/ & - & 0.85239e+00,0.11419e+01,0.12714e+01,0.13507e+01,0.13930e+01, & - & 0.14039e+01,0.13790e+01,0.12971e+01,0.10034e+01 /) - kao(:, 2, 7, 8) = (/ & - & 0.86542e+00,0.11591e+01,0.12898e+01,0.13670e+01,0.14062e+01, & - & 0.14139e+01,0.13871e+01,0.13072e+01,0.10179e+01 /) - kao(:, 3, 7, 8) = (/ & - & 0.88108e+00,0.11809e+01,0.13130e+01,0.13880e+01,0.14241e+01, & - & 0.14278e+01,0.13975e+01,0.13172e+01,0.10310e+01 /) - kao(:, 4, 7, 8) = (/ & - & 0.89900e+00,0.12041e+01,0.13390e+01,0.14123e+01,0.14455e+01, & - & 0.14453e+01,0.14105e+01,0.13266e+01,0.10434e+01 /) - kao(:, 5, 7, 8) = (/ & - & 0.91862e+00,0.12279e+01,0.13649e+01,0.14386e+01,0.14692e+01, & - & 0.14664e+01,0.14254e+01,0.13367e+01,0.10558e+01 /) - kao(:, 1, 8, 8) = (/ & - & 0.72497e+00,0.99201e+00,0.11107e+01,0.11813e+01,0.12195e+01, & - & 0.12285e+01,0.12058e+01,0.11359e+01,0.87110e+00 /) - kao(:, 2, 8, 8) = (/ & - & 0.73517e+00,0.10086e+01,0.11285e+01,0.11988e+01,0.12342e+01, & - & 0.12405e+01,0.12160e+01,0.11479e+01,0.88568e+00 /) - kao(:, 3, 8, 8) = (/ & - & 0.74752e+00,0.10285e+01,0.11507e+01,0.12198e+01,0.12532e+01, & - & 0.12570e+01,0.12289e+01,0.11589e+01,0.89927e+00 /) - kao(:, 4, 8, 8) = (/ & - & 0.76213e+00,0.10489e+01,0.11747e+01,0.12436e+01,0.12757e+01, & - & 0.12769e+01,0.12445e+01,0.11700e+01,0.91203e+00 /) - kao(:, 5, 8, 8) = (/ & - & 0.77854e+00,0.10697e+01,0.11980e+01,0.12679e+01,0.13002e+01, & - & 0.12994e+01,0.12621e+01,0.11816e+01,0.92392e+00 /) - kao(:, 1, 9, 8) = (/ & - & 0.61682e+00,0.85841e+00,0.96403e+00,0.10272e+01,0.10606e+01, & - & 0.10679e+01,0.10472e+01,0.98715e+00,0.74825e+00 /) - kao(:, 2, 9, 8) = (/ & - & 0.62415e+00,0.87401e+00,0.98140e+00,0.10446e+01,0.10763e+01, & - & 0.10811e+01,0.10593e+01,0.10003e+01,0.76294e+00 /) - kao(:, 3, 9, 8) = (/ & - & 0.63387e+00,0.89104e+00,0.10022e+01,0.10651e+01,0.10962e+01, & - & 0.10997e+01,0.10740e+01,0.10120e+01,0.77659e+00 /) - kao(:, 4, 9, 8) = (/ & - & 0.64542e+00,0.90872e+00,0.10230e+01,0.10878e+01,0.11188e+01, & - & 0.11207e+01,0.10911e+01,0.10243e+01,0.78905e+00 /) - kao(:, 5, 9, 8) = (/ & - & 0.65900e+00,0.92674e+00,0.10436e+01,0.11103e+01,0.11424e+01, & - & 0.11435e+01,0.11102e+01,0.10375e+01,0.80034e+00 /) - kao(:, 1,10, 8) = (/ & - & 0.52547e+00,0.74220e+00,0.83433e+00,0.88890e+00,0.91741e+00, & - & 0.92336e+00,0.90538e+00,0.85311e+00,0.64696e+00 /) - kao(:, 2,10, 8) = (/ & - & 0.53064e+00,0.75604e+00,0.85107e+00,0.90584e+00,0.93361e+00, & - & 0.93836e+00,0.91861e+00,0.86626e+00,0.66062e+00 /) - kao(:, 3,10, 8) = (/ & - & 0.53809e+00,0.77037e+00,0.86942e+00,0.92562e+00,0.95409e+00, & - & 0.95774e+00,0.93423e+00,0.87871e+00,0.67391e+00 /) - kao(:, 4,10, 8) = (/ & - & 0.54734e+00,0.78576e+00,0.88734e+00,0.94634e+00,0.97611e+00, & - & 0.97890e+00,0.95253e+00,0.89191e+00,0.68526e+00 /) - kao(:, 5,10, 8) = (/ & - & 0.55842e+00,0.80129e+00,0.90542e+00,0.96675e+00,0.99781e+00, & - & 0.10013e+01,0.97253e+00,0.90597e+00,0.69583e+00 /) - kao(:, 1,11, 8) = (/ & - & 0.44902e+00,0.64641e+00,0.72682e+00,0.77295e+00,0.79679e+00, & - & 0.80095e+00,0.78478e+00,0.73880e+00,0.57500e+00 /) - kao(:, 2,11, 8) = (/ & - & 0.45343e+00,0.65819e+00,0.74259e+00,0.79030e+00,0.81509e+00, & - & 0.81866e+00,0.79960e+00,0.75137e+00,0.58784e+00 /) - kao(:, 3,11, 8) = (/ & - & 0.45968e+00,0.67094e+00,0.75812e+00,0.80898e+00,0.83522e+00, & - & 0.83854e+00,0.81711e+00,0.76461e+00,0.59939e+00 /) - kao(:, 4,11, 8) = (/ & - & 0.46764e+00,0.68418e+00,0.77402e+00,0.82711e+00,0.85518e+00, & - & 0.85968e+00,0.83634e+00,0.77859e+00,0.60954e+00 /) - kao(:, 5,11, 8) = (/ & - & 0.47750e+00,0.69798e+00,0.79021e+00,0.84534e+00,0.87480e+00, & - & 0.88011e+00,0.85595e+00,0.79269e+00,0.61896e+00 /) - kao(:, 1,12, 8) = (/ & - & 0.38252e+00,0.56123e+00,0.63221e+00,0.67207e+00,0.69191e+00, & - & 0.69451e+00,0.67853e+00,0.63671e+00,0.49624e+00 /) - kao(:, 2,12, 8) = (/ & - & 0.38610e+00,0.57152e+00,0.64559e+00,0.68857e+00,0.70992e+00, & - & 0.71250e+00,0.69440e+00,0.64948e+00,0.50772e+00 /) - kao(:, 3,12, 8) = (/ & - & 0.39135e+00,0.58251e+00,0.65953e+00,0.70459e+00,0.72793e+00, & - & 0.73188e+00,0.71251e+00,0.66314e+00,0.51771e+00 /) - kao(:, 4,12, 8) = (/ & - & 0.39838e+00,0.59406e+00,0.67357e+00,0.72066e+00,0.74570e+00, & - & 0.75075e+00,0.73108e+00,0.67696e+00,0.52680e+00 /) - kao(:, 5,12, 8) = (/ & - & 0.40785e+00,0.60628e+00,0.68802e+00,0.73685e+00,0.76342e+00, & - & 0.76842e+00,0.74857e+00,0.69135e+00,0.53408e+00 /) - kao(:, 1,13, 8) = (/ & - & 0.32297e+00,0.48556e+00,0.54760e+00,0.58350e+00,0.60079e+00, & - & 0.60116e+00,0.58518e+00,0.54699e+00,0.42276e+00 /) - kao(:, 2,13, 8) = (/ & - & 0.32591e+00,0.49445e+00,0.55963e+00,0.59764e+00,0.61654e+00, & - & 0.61844e+00,0.60149e+00,0.55973e+00,0.43280e+00 /) - kao(:, 3,13, 8) = (/ & - & 0.33057e+00,0.50405e+00,0.57184e+00,0.61186e+00,0.63239e+00, & - & 0.63557e+00,0.61864e+00,0.57305e+00,0.44151e+00 /) - kao(:, 4,13, 8) = (/ & - & 0.33705e+00,0.51427e+00,0.58428e+00,0.62614e+00,0.64825e+00, & - & 0.65175e+00,0.63492e+00,0.58689e+00,0.44893e+00 /) - kao(:, 5,13, 8) = (/ & - & 0.34636e+00,0.52544e+00,0.59740e+00,0.64055e+00,0.66342e+00, & - & 0.66736e+00,0.65002e+00,0.60055e+00,0.45487e+00 /) - kao(:, 1, 1, 9) = (/ & - & 0.72991e+01,0.69722e+01,0.72863e+01,0.75002e+01,0.75688e+01, & - & 0.74622e+01,0.71020e+01,0.65825e+01,0.69144e+01 /) - kao(:, 2, 1, 9) = (/ & - & 0.72210e+01,0.69084e+01,0.72319e+01,0.74567e+01,0.75409e+01, & - & 0.74459e+01,0.71001e+01,0.65930e+01,0.69213e+01 /) - kao(:, 3, 1, 9) = (/ & - & 0.71481e+01,0.68475e+01,0.71760e+01,0.74130e+01,0.75097e+01, & - & 0.74266e+01,0.70905e+01,0.65992e+01,0.69258e+01 /) - kao(:, 4, 1, 9) = (/ & - & 0.70810e+01,0.67891e+01,0.71222e+01,0.73713e+01,0.74785e+01, & - & 0.74023e+01,0.70766e+01,0.66037e+01,0.69303e+01 /) - kao(:, 5, 1, 9) = (/ & - & 0.70205e+01,0.67342e+01,0.70686e+01,0.73258e+01,0.74436e+01, & - & 0.73740e+01,0.70585e+01,0.66060e+01,0.69339e+01 /) - kao(:, 1, 2, 9) = (/ & - & 0.68023e+01,0.66845e+01,0.71435e+01,0.74293e+01,0.75528e+01, & - & 0.74805e+01,0.71383e+01,0.65087e+01,0.66425e+01 /) - kao(:, 2, 2, 9) = (/ & - & 0.67309e+01,0.66228e+01,0.70899e+01,0.73862e+01,0.75243e+01, & - & 0.74671e+01,0.71358e+01,0.65240e+01,0.66588e+01 /) - kao(:, 3, 2, 9) = (/ & - & 0.66680e+01,0.65659e+01,0.70365e+01,0.73443e+01,0.74954e+01, & - & 0.74486e+01,0.71260e+01,0.65367e+01,0.66745e+01 /) - kao(:, 4, 2, 9) = (/ & - & 0.66136e+01,0.65139e+01,0.69841e+01,0.73016e+01,0.74627e+01, & - & 0.74252e+01,0.71129e+01,0.65455e+01,0.66889e+01 /) - kao(:, 5, 2, 9) = (/ & - & 0.65687e+01,0.64706e+01,0.69322e+01,0.72576e+01,0.74266e+01, & - & 0.73967e+01,0.70986e+01,0.65510e+01,0.67011e+01 /) - kao(:, 1, 3, 9) = (/ & - & 0.62554e+01,0.63717e+01,0.69259e+01,0.72750e+01,0.74339e+01, & - & 0.73812e+01,0.70638e+01,0.63830e+01,0.62738e+01 /) - kao(:, 2, 3, 9) = (/ & - & 0.61935e+01,0.63130e+01,0.68741e+01,0.72340e+01,0.74081e+01, & - & 0.73723e+01,0.70661e+01,0.64055e+01,0.63017e+01 /) - kao(:, 3, 3, 9) = (/ & - & 0.61417e+01,0.62609e+01,0.68234e+01,0.71924e+01,0.73793e+01, & - & 0.73559e+01,0.70613e+01,0.64217e+01,0.63259e+01 /) - kao(:, 4, 3, 9) = (/ & - & 0.61027e+01,0.62184e+01,0.67754e+01,0.71518e+01,0.73493e+01, & - & 0.73341e+01,0.70537e+01,0.64352e+01,0.63471e+01 /) - kao(:, 5, 3, 9) = (/ & - & 0.60751e+01,0.61846e+01,0.67335e+01,0.71090e+01,0.73143e+01, & - & 0.73100e+01,0.70431e+01,0.64459e+01,0.63674e+01 /) - kao(:, 1, 4, 9) = (/ & - & 0.56712e+01,0.60174e+01,0.66407e+01,0.70308e+01,0.72054e+01, & - & 0.71700e+01,0.68768e+01,0.62076e+01,0.58601e+01 /) - kao(:, 2, 4, 9) = (/ & - & 0.56177e+01,0.59637e+01,0.65912e+01,0.69914e+01,0.71823e+01, & - & 0.71644e+01,0.68840e+01,0.62360e+01,0.58965e+01 /) - kao(:, 3, 4, 9) = (/ & - & 0.55798e+01,0.59204e+01,0.65459e+01,0.69532e+01,0.71589e+01, & - & 0.71503e+01,0.68872e+01,0.62571e+01,0.59275e+01 /) - kao(:, 4, 4, 9) = (/ & - & 0.55576e+01,0.58874e+01,0.65057e+01,0.69160e+01,0.71305e+01, & - & 0.71327e+01,0.68860e+01,0.62738e+01,0.59560e+01 /) - kao(:, 5, 4, 9) = (/ & - & 0.55509e+01,0.58664e+01,0.64735e+01,0.68799e+01,0.70989e+01, & - & 0.71129e+01,0.68803e+01,0.62864e+01,0.59817e+01 /) - kao(:, 1, 5, 9) = (/ & - & 0.50748e+01,0.56236e+01,0.62897e+01,0.66937e+01,0.68773e+01, & - & 0.68583e+01,0.65966e+01,0.59739e+01,0.54247e+01 /) - kao(:, 2, 5, 9) = (/ & - & 0.50332e+01,0.55772e+01,0.62435e+01,0.66588e+01,0.68602e+01, & - & 0.68553e+01,0.66099e+01,0.60056e+01,0.54668e+01 /) - kao(:, 3, 5, 9) = (/ & - & 0.50094e+01,0.55429e+01,0.62032e+01,0.66264e+01,0.68392e+01, & - & 0.68457e+01,0.66198e+01,0.60291e+01,0.55024e+01 /) - kao(:, 4, 5, 9) = (/ & - & 0.50054e+01,0.55221e+01,0.61728e+01,0.65959e+01,0.68138e+01, & - & 0.68347e+01,0.66239e+01,0.60504e+01,0.55378e+01 /) - kao(:, 5, 5, 9) = (/ & - & 0.50196e+01,0.55140e+01,0.61502e+01,0.65696e+01,0.67880e+01, & - & 0.68224e+01,0.66232e+01,0.60661e+01,0.55660e+01 /) - kao(:, 1, 6, 9) = (/ & - & 0.44929e+01,0.51985e+01,0.58791e+01,0.62757e+01,0.64716e+01, & - & 0.64669e+01,0.62368e+01,0.56853e+01,0.49792e+01 /) - kao(:, 2, 6, 9) = (/ & - & 0.44612e+01,0.51596e+01,0.58385e+01,0.62487e+01,0.64570e+01, & - & 0.64678e+01,0.62575e+01,0.57196e+01,0.50244e+01 /) - kao(:, 3, 6, 9) = (/ & - & 0.44521e+01,0.51348e+01,0.58071e+01,0.62248e+01,0.64383e+01, & - & 0.64639e+01,0.62747e+01,0.57459e+01,0.50676e+01 /) - kao(:, 4, 6, 9) = (/ & - & 0.44651e+01,0.51248e+01,0.57862e+01,0.62029e+01,0.64206e+01, & - & 0.64594e+01,0.62829e+01,0.57703e+01,0.51061e+01 /) - kao(:, 5, 6, 9) = (/ & - & 0.44974e+01,0.51321e+01,0.57769e+01,0.61847e+01,0.64045e+01, & - & 0.64518e+01,0.62850e+01,0.57880e+01,0.51383e+01 /) - kao(:, 1, 7, 9) = (/ & - & 0.39405e+01,0.47599e+01,0.54183e+01,0.58070e+01,0.60002e+01, & - & 0.60137e+01,0.58231e+01,0.53430e+01,0.45395e+01 /) - kao(:, 2, 7, 9) = (/ & - & 0.39200e+01,0.47279e+01,0.53865e+01,0.57866e+01,0.59900e+01, & - & 0.60178e+01,0.58493e+01,0.53803e+01,0.45897e+01 /) - kao(:, 3, 7, 9) = (/ & - & 0.39243e+01,0.47128e+01,0.53651e+01,0.57689e+01,0.59779e+01, & - & 0.60210e+01,0.58689e+01,0.54093e+01,0.46370e+01 /) - kao(:, 4, 7, 9) = (/ & - & 0.39509e+01,0.47158e+01,0.53566e+01,0.57541e+01,0.59686e+01, & - & 0.60221e+01,0.58794e+01,0.54360e+01,0.46801e+01 /) - kao(:, 5, 7, 9) = (/ & - & 0.39997e+01,0.47365e+01,0.53625e+01,0.57480e+01,0.59641e+01, & - & 0.60191e+01,0.58864e+01,0.54567e+01,0.47154e+01 /) - kao(:, 1, 8, 9) = (/ & - & 0.34277e+01,0.43224e+01,0.49312e+01,0.53036e+01,0.54930e+01, & - & 0.55228e+01,0.53766e+01,0.49651e+01,0.41155e+01 /) - kao(:, 2, 8, 9) = (/ & - & 0.34174e+01,0.42976e+01,0.49104e+01,0.52883e+01,0.54862e+01, & - & 0.55322e+01,0.54048e+01,0.50049e+01,0.41706e+01 /) - kao(:, 3, 8, 9) = (/ & - & 0.34328e+01,0.42901e+01,0.49000e+01,0.52782e+01,0.54821e+01, & - & 0.55409e+01,0.54257e+01,0.50383e+01,0.42218e+01 /) - kao(:, 4, 8, 9) = (/ & - & 0.34724e+01,0.43054e+01,0.49030e+01,0.52739e+01,0.54825e+01, & - & 0.55468e+01,0.54402e+01,0.50678e+01,0.42656e+01 /) - kao(:, 5, 8, 9) = (/ & - & 0.35331e+01,0.43394e+01,0.49199e+01,0.52816e+01,0.54871e+01, & - & 0.55512e+01,0.54505e+01,0.50918e+01,0.43035e+01 /) - kao(:, 1, 9, 9) = (/ & - & 0.29643e+01,0.38841e+01,0.44459e+01,0.47885e+01,0.49734e+01, & - & 0.50221e+01,0.49131e+01,0.45659e+01,0.37057e+01 /) - kao(:, 2, 9, 9) = (/ & - & 0.29616e+01,0.38662e+01,0.44298e+01,0.47788e+01,0.49743e+01, & - & 0.50365e+01,0.49428e+01,0.46088e+01,0.37656e+01 /) - kao(:, 3, 9, 9) = (/ & - & 0.29848e+01,0.38693e+01,0.44274e+01,0.47752e+01,0.49768e+01, & - & 0.50477e+01,0.49663e+01,0.46464e+01,0.38194e+01 /) - kao(:, 4, 9, 9) = (/ & - & 0.30329e+01,0.38944e+01,0.44404e+01,0.47824e+01,0.49850e+01, & - & 0.50582e+01,0.49851e+01,0.46790e+01,0.38645e+01 /) - kao(:, 5, 9, 9) = (/ & - & 0.31033e+01,0.39395e+01,0.44689e+01,0.48029e+01,0.49990e+01, & - & 0.50689e+01,0.50004e+01,0.47030e+01,0.39063e+01 /) - kao(:, 1,10, 9) = (/ & - & 0.25528e+01,0.34541e+01,0.39652e+01,0.42831e+01,0.44659e+01, & - & 0.45285e+01,0.44509e+01,0.41587e+01,0.32612e+01 /) - kao(:, 2,10, 9) = (/ & - & 0.25575e+01,0.34458e+01,0.39558e+01,0.42802e+01,0.44723e+01, & - & 0.45451e+01,0.44820e+01,0.42051e+01,0.33240e+01 /) - kao(:, 3,10, 9) = (/ & - & 0.25883e+01,0.34607e+01,0.39625e+01,0.42854e+01,0.44811e+01, & - & 0.45602e+01,0.45090e+01,0.42460e+01,0.33785e+01 /) - kao(:, 4,10, 9) = (/ & - & 0.26435e+01,0.34963e+01,0.39867e+01,0.43038e+01,0.44956e+01, & - & 0.45761e+01,0.45312e+01,0.42799e+01,0.34270e+01 /) - kao(:, 5,10, 9) = (/ & - & 0.27203e+01,0.35517e+01,0.40270e+01,0.43344e+01,0.45189e+01, & - & 0.45941e+01,0.45504e+01,0.43065e+01,0.34705e+01 /) - kao(:, 1,11, 9) = (/ & - & 0.21958e+01,0.30498e+01,0.35059e+01,0.38049e+01,0.39876e+01, & - & 0.40622e+01,0.40123e+01,0.37729e+01,0.28786e+01 /) - kao(:, 2,11, 9) = (/ & - & 0.22177e+01,0.30598e+01,0.35116e+01,0.38116e+01,0.39989e+01, & - & 0.40819e+01,0.40442e+01,0.38191e+01,0.29389e+01 /) - kao(:, 3,11, 9) = (/ & - & 0.22647e+01,0.30907e+01,0.35359e+01,0.38306e+01,0.40167e+01, & - & 0.41020e+01,0.40724e+01,0.38578e+01,0.29915e+01 /) - kao(:, 4,11, 9) = (/ & - & 0.23337e+01,0.31425e+01,0.35763e+01,0.38632e+01,0.40437e+01, & - & 0.41245e+01,0.40973e+01,0.38902e+01,0.30386e+01 /) - kao(:, 5,11, 9) = (/ & - & 0.24135e+01,0.32120e+01,0.36330e+01,0.39077e+01,0.40797e+01, & - & 0.41526e+01,0.41204e+01,0.39195e+01,0.30818e+01 /) - kao(:, 1,12, 9) = (/ & - & 0.18956e+01,0.26861e+01,0.30931e+01,0.33674e+01,0.35425e+01, & - & 0.36210e+01,0.35899e+01,0.33921e+01,0.25824e+01 /) - kao(:, 2,12, 9) = (/ & - & 0.19314e+01,0.27108e+01,0.31141e+01,0.33855e+01,0.35620e+01, & - & 0.36450e+01,0.36224e+01,0.34362e+01,0.26351e+01 /) - kao(:, 3,12, 9) = (/ & - & 0.19899e+01,0.27565e+01,0.31515e+01,0.34177e+01,0.35909e+01, & - & 0.36718e+01,0.36517e+01,0.34743e+01,0.26837e+01 /) - kao(:, 4,12, 9) = (/ & - & 0.20599e+01,0.28211e+01,0.32055e+01,0.34628e+01,0.36291e+01, & - & 0.37038e+01,0.36800e+01,0.35081e+01,0.27286e+01 /) - kao(:, 5,12, 9) = (/ & - & 0.21342e+01,0.28994e+01,0.32752e+01,0.35201e+01,0.36745e+01, & - & 0.37420e+01,0.37112e+01,0.35392e+01,0.27703e+01 /) - kao(:, 1,13, 9) = (/ & - & 0.16403e+01,0.23651e+01,0.27290e+01,0.29746e+01,0.31326e+01, & - & 0.32080e+01,0.31891e+01,0.30274e+01,0.23307e+01 /) - kao(:, 2,13, 9) = (/ & - & 0.16863e+01,0.24025e+01,0.27611e+01,0.30044e+01,0.31618e+01, & - & 0.32369e+01,0.32226e+01,0.30700e+01,0.23815e+01 /) - kao(:, 3,13, 9) = (/ & - & 0.17455e+01,0.24598e+01,0.28102e+01,0.30475e+01,0.32007e+01, & - & 0.32722e+01,0.32554e+01,0.31073e+01,0.24291e+01 /) - kao(:, 4,13, 9) = (/ & - & 0.18100e+01,0.25311e+01,0.28759e+01,0.31035e+01,0.32472e+01, & - & 0.33131e+01,0.32901e+01,0.31417e+01,0.24730e+01 /) - kao(:, 5,13, 9) = (/ & - & 0.18736e+01,0.26085e+01,0.29527e+01,0.31711e+01,0.33027e+01, & - & 0.33589e+01,0.33290e+01,0.31763e+01,0.25126e+01 /) - kao(:, 1, 1,10) = (/ & - & 0.19065e+02,0.16899e+02,0.15643e+02,0.15578e+02,0.15043e+02, & - & 0.14288e+02,0.13684e+02,0.14703e+02,0.16312e+02 /) - kao(:, 2, 1,10) = (/ & - & 0.18912e+02,0.16761e+02,0.15514e+02,0.15480e+02,0.14973e+02, & - & 0.14273e+02,0.13717e+02,0.14749e+02,0.16352e+02 /) - kao(:, 3, 1,10) = (/ & - & 0.18728e+02,0.16596e+02,0.15380e+02,0.15367e+02,0.14915e+02, & - & 0.14240e+02,0.13761e+02,0.14772e+02,0.16373e+02 /) - kao(:, 4, 1,10) = (/ & - & 0.18544e+02,0.16434e+02,0.15250e+02,0.15223e+02,0.14839e+02, & - & 0.14214e+02,0.13761e+02,0.14749e+02,0.16351e+02 /) - kao(:, 5, 1,10) = (/ & - & 0.18333e+02,0.16256e+02,0.15122e+02,0.15098e+02,0.14749e+02, & - & 0.14176e+02,0.13735e+02,0.14720e+02,0.16309e+02 /) - kao(:, 1, 2,10) = (/ & - & 0.19359e+02,0.17148e+02,0.16419e+02,0.16424e+02,0.16006e+02, & - & 0.15375e+02,0.14545e+02,0.15202e+02,0.16997e+02 /) - kao(:, 2, 2,10) = (/ & - & 0.19172e+02,0.16980e+02,0.16267e+02,0.16317e+02,0.15911e+02, & - & 0.15334e+02,0.14618e+02,0.15283e+02,0.17084e+02 /) - kao(:, 3, 2,10) = (/ & - & 0.18973e+02,0.16804e+02,0.16126e+02,0.16185e+02,0.15827e+02, & - & 0.15302e+02,0.14664e+02,0.15280e+02,0.17092e+02 /) - kao(:, 4, 2,10) = (/ & - & 0.18751e+02,0.16617e+02,0.15988e+02,0.16055e+02,0.15738e+02, & - & 0.15272e+02,0.14654e+02,0.15237e+02,0.17035e+02 /) - kao(:, 5, 2,10) = (/ & - & 0.18520e+02,0.16417e+02,0.15855e+02,0.15950e+02,0.15639e+02, & - & 0.15219e+02,0.14617e+02,0.15192e+02,0.16961e+02 /) - kao(:, 1, 3,10) = (/ & - & 0.19263e+02,0.17075e+02,0.17060e+02,0.17120e+02,0.16883e+02, & - & 0.16381e+02,0.15414e+02,0.15455e+02,0.17398e+02 /) - kao(:, 2, 3,10) = (/ & - & 0.19059e+02,0.16894e+02,0.16898e+02,0.17000e+02,0.16773e+02, & - & 0.16323e+02,0.15500e+02,0.15491e+02,0.17437e+02 /) - kao(:, 3, 3,10) = (/ & - & 0.18835e+02,0.16708e+02,0.16745e+02,0.16865e+02,0.16669e+02, & - & 0.16285e+02,0.15530e+02,0.15496e+02,0.17423e+02 /) - kao(:, 4, 3,10) = (/ & - & 0.18600e+02,0.16513e+02,0.16588e+02,0.16744e+02,0.16560e+02, & - & 0.16244e+02,0.15515e+02,0.15476e+02,0.17372e+02 /) - kao(:, 5, 3,10) = (/ & - & 0.18358e+02,0.16312e+02,0.16416e+02,0.16627e+02,0.16462e+02, & - & 0.16172e+02,0.15490e+02,0.15433e+02,0.17293e+02 /) - kao(:, 1, 4,10) = (/ & - & 0.18801e+02,0.16888e+02,0.17351e+02,0.17638e+02,0.17654e+02, & - & 0.17241e+02,0.16305e+02,0.15458e+02,0.17321e+02 /) - kao(:, 2, 4,10) = (/ & - & 0.18579e+02,0.16692e+02,0.17197e+02,0.17496e+02,0.17520e+02, & - & 0.17188e+02,0.16384e+02,0.15486e+02,0.17346e+02 /) - kao(:, 3, 4,10) = (/ & - & 0.18342e+02,0.16488e+02,0.17035e+02,0.17349e+02,0.17380e+02, & - & 0.17158e+02,0.16385e+02,0.15526e+02,0.17367e+02 /) - kao(:, 4, 4,10) = (/ & - & 0.18091e+02,0.16279e+02,0.16863e+02,0.17208e+02,0.17266e+02, & - & 0.17103e+02,0.16355e+02,0.15560e+02,0.17358e+02 /) - kao(:, 5, 4,10) = (/ & - & 0.17836e+02,0.16059e+02,0.16677e+02,0.17068e+02,0.17166e+02, & - & 0.17011e+02,0.16312e+02,0.15578e+02,0.17344e+02 /) - kao(:, 1, 5,10) = (/ & - & 0.17961e+02,0.16659e+02,0.17334e+02,0.17976e+02,0.18171e+02, & - & 0.17832e+02,0.16966e+02,0.15432e+02,0.16855e+02 /) - kao(:, 2, 5,10) = (/ & - & 0.17714e+02,0.16442e+02,0.17178e+02,0.17800e+02,0.18030e+02, & - & 0.17804e+02,0.17004e+02,0.15487e+02,0.16904e+02 /) - kao(:, 3, 5,10) = (/ & - & 0.17470e+02,0.16231e+02,0.17012e+02,0.17636e+02,0.17902e+02, & - & 0.17774e+02,0.16959e+02,0.15590e+02,0.16987e+02 /) - kao(:, 4, 5,10) = (/ & - & 0.17221e+02,0.16002e+02,0.16835e+02,0.17477e+02,0.17804e+02, & - & 0.17680e+02,0.16923e+02,0.15646e+02,0.17004e+02 /) - kao(:, 5, 5,10) = (/ & - & 0.16955e+02,0.15778e+02,0.16648e+02,0.17325e+02,0.17709e+02, & - & 0.17576e+02,0.16895e+02,0.15664e+02,0.17027e+02 /) - kao(:, 1, 6,10) = (/ & - & 0.16796e+02,0.16241e+02,0.17123e+02,0.18098e+02,0.18345e+02, & - & 0.18145e+02,0.17297e+02,0.15317e+02,0.16076e+02 /) - kao(:, 2, 6,10) = (/ & - & 0.16561e+02,0.16019e+02,0.16973e+02,0.17901e+02,0.18253e+02, & - & 0.18123e+02,0.17284e+02,0.15411e+02,0.16194e+02 /) - kao(:, 3, 6,10) = (/ & - & 0.16307e+02,0.15790e+02,0.16801e+02,0.17722e+02,0.18189e+02, & - & 0.18068e+02,0.17217e+02,0.15556e+02,0.16309e+02 /) - kao(:, 4, 6,10) = (/ & - & 0.16045e+02,0.15571e+02,0.16615e+02,0.17565e+02,0.18113e+02, & - & 0.17968e+02,0.17201e+02,0.15625e+02,0.16374e+02 /) - kao(:, 5, 6,10) = (/ & - & 0.15792e+02,0.15350e+02,0.16424e+02,0.17437e+02,0.17997e+02, & - & 0.17869e+02,0.17203e+02,0.15664e+02,0.16420e+02 /) - kao(:, 1, 7,10) = (/ & - & 0.15441e+02,0.15555e+02,0.16836e+02,0.17857e+02,0.18265e+02, & - & 0.18114e+02,0.17249e+02,0.15143e+02,0.15078e+02 /) - kao(:, 2, 7,10) = (/ & - & 0.15190e+02,0.15341e+02,0.16649e+02,0.17679e+02,0.18211e+02, & - & 0.18098e+02,0.17215e+02,0.15278e+02,0.15251e+02 /) - kao(:, 3, 7,10) = (/ & - & 0.14946e+02,0.15122e+02,0.16458e+02,0.17534e+02,0.18165e+02, & - & 0.18029e+02,0.17165e+02,0.15443e+02,0.15389e+02 /) - kao(:, 4, 7,10) = (/ & - & 0.14700e+02,0.14908e+02,0.16252e+02,0.17424e+02,0.18072e+02, & - & 0.17929e+02,0.17187e+02,0.15518e+02,0.15458e+02 /) - kao(:, 5, 7,10) = (/ & - & 0.14445e+02,0.14710e+02,0.16048e+02,0.17304e+02,0.17932e+02, & - & 0.17873e+02,0.17206e+02,0.15573e+02,0.15541e+02 /) - kao(:, 1, 8,10) = (/ & - & 0.13963e+02,0.14641e+02,0.16339e+02,0.17287e+02,0.17853e+02, & - & 0.17712e+02,0.16836e+02,0.14867e+02,0.13958e+02 /) - kao(:, 2, 8,10) = (/ & - & 0.13720e+02,0.14441e+02,0.16121e+02,0.17175e+02,0.17806e+02, & - & 0.17701e+02,0.16817e+02,0.15013e+02,0.14139e+02 /) - kao(:, 3, 8,10) = (/ & - & 0.13475e+02,0.14253e+02,0.15918e+02,0.17071e+02,0.17741e+02, & - & 0.17634e+02,0.16820e+02,0.15155e+02,0.14269e+02 /) - kao(:, 4, 8,10) = (/ & - & 0.13235e+02,0.14056e+02,0.15727e+02,0.16983e+02,0.17630e+02, & - & 0.17564e+02,0.16869e+02,0.15238e+02,0.14383e+02 /) - kao(:, 5, 8,10) = (/ & - & 0.13009e+02,0.13855e+02,0.15556e+02,0.16857e+02,0.17508e+02, & - & 0.17529e+02,0.16912e+02,0.15302e+02,0.14496e+02 /) - kao(:, 1, 9,10) = (/ & - & 0.12422e+02,0.13743e+02,0.15496e+02,0.16530e+02,0.17068e+02, & - & 0.16944e+02,0.16119e+02,0.14360e+02,0.12852e+02 /) - kao(:, 2, 9,10) = (/ & - & 0.12195e+02,0.13543e+02,0.15328e+02,0.16447e+02,0.17000e+02, & - & 0.16934e+02,0.16148e+02,0.14484e+02,0.13012e+02 /) - kao(:, 3, 9,10) = (/ & - & 0.11972e+02,0.13354e+02,0.15163e+02,0.16359e+02,0.16940e+02, & - & 0.16900e+02,0.16191e+02,0.14599e+02,0.13152e+02 /) - kao(:, 4, 9,10) = (/ & - & 0.11752e+02,0.13166e+02,0.15011e+02,0.16249e+02,0.16842e+02, & - & 0.16880e+02,0.16254e+02,0.14688e+02,0.13295e+02 /) - kao(:, 5, 9,10) = (/ & - & 0.11542e+02,0.12972e+02,0.14878e+02,0.16107e+02,0.16750e+02, & - & 0.16884e+02,0.16301e+02,0.14790e+02,0.13417e+02 /) - kao(:, 1,10,10) = (/ & - & 0.10883e+02,0.12799e+02,0.14471e+02,0.15523e+02,0.15963e+02, & - & 0.15867e+02,0.15188e+02,0.13687e+02,0.11830e+02 /) - kao(:, 2,10,10) = (/ & - & 0.10669e+02,0.12615e+02,0.14351e+02,0.15423e+02,0.15920e+02, & - & 0.15883e+02,0.15251e+02,0.13796e+02,0.11997e+02 /) - kao(:, 3,10,10) = (/ & - & 0.10461e+02,0.12417e+02,0.14235e+02,0.15340e+02,0.15857e+02, & - & 0.15885e+02,0.15315e+02,0.13895e+02,0.12154e+02 /) - kao(:, 4,10,10) = (/ & - & 0.10271e+02,0.12218e+02,0.14109e+02,0.15234e+02,0.15808e+02, & - & 0.15905e+02,0.15383e+02,0.14000e+02,0.12311e+02 /) - kao(:, 5,10,10) = (/ & - & 0.10108e+02,0.12035e+02,0.13977e+02,0.15117e+02,0.15764e+02, & - & 0.15927e+02,0.15450e+02,0.14121e+02,0.12430e+02 /) - kao(:, 1,11,10) = (/ & - & 0.93334e+01,0.11625e+02,0.13302e+02,0.14226e+02,0.14663e+02, & - & 0.14671e+02,0.14179e+02,0.12958e+02,0.10939e+02 /) - kao(:, 2,11,10) = (/ & - & 0.91435e+01,0.11452e+02,0.13192e+02,0.14163e+02,0.14640e+02, & - & 0.14697e+02,0.14256e+02,0.13072e+02,0.11104e+02 /) - kao(:, 3,11,10) = (/ & - & 0.89744e+01,0.11286e+02,0.13068e+02,0.14085e+02,0.14619e+02, & - & 0.14728e+02,0.14326e+02,0.13192e+02,0.11276e+02 /) - kao(:, 4,11,10) = (/ & - & 0.88386e+01,0.11134e+02,0.12957e+02,0.14008e+02,0.14602e+02, & - & 0.14761e+02,0.14404e+02,0.13322e+02,0.11423e+02 /) - kao(:, 5,11,10) = (/ & - & 0.88280e+01,0.11011e+02,0.12844e+02,0.13942e+02,0.14584e+02, & - & 0.14790e+02,0.14494e+02,0.13437e+02,0.11537e+02 /) - kao(:, 1,12,10) = (/ & - & 0.79516e+01,0.10418e+02,0.11985e+02,0.12856e+02,0.13326e+02, & - & 0.13448e+02,0.13142e+02,0.12163e+02,0.97408e+01 /) - kao(:, 2,12,10) = (/ & - & 0.78004e+01,0.10286e+02,0.11886e+02,0.12812e+02,0.13327e+02, & - & 0.13488e+02,0.13229e+02,0.12301e+02,0.99474e+01 /) - kao(:, 3,12,10) = (/ & - & 0.76847e+01,0.10169e+02,0.11799e+02,0.12768e+02,0.13325e+02, & - & 0.13529e+02,0.13323e+02,0.12442e+02,0.10130e+02 /) - kao(:, 4,12,10) = (/ & - & 0.76979e+01,0.10072e+02,0.11716e+02,0.12735e+02,0.13318e+02, & - & 0.13569e+02,0.13422e+02,0.12581e+02,0.10272e+02 /) - kao(:, 5,12,10) = (/ & - & 0.78582e+01,0.10030e+02,0.11643e+02,0.12707e+02,0.13325e+02, & - & 0.13613e+02,0.13505e+02,0.12682e+02,0.10410e+02 /) - kao(:, 1,13,10) = (/ & - & 0.68077e+01,0.92695e+01,0.10647e+02,0.11513e+02,0.12044e+02, & - & 0.12269e+02,0.12092e+02,0.11295e+02,0.85103e+01 /) - kao(:, 2,13,10) = (/ & - & 0.67020e+01,0.91675e+01,0.10585e+02,0.11489e+02,0.12056e+02, & - & 0.12329e+02,0.12198e+02,0.11449e+02,0.87111e+01 /) - kao(:, 3,13,10) = (/ & - & 0.67136e+01,0.90765e+01,0.10537e+02,0.11473e+02,0.12065e+02, & - & 0.12379e+02,0.12312e+02,0.11602e+02,0.88718e+01 /) - kao(:, 4,13,10) = (/ & - & 0.68715e+01,0.90508e+01,0.10490e+02,0.11454e+02,0.12087e+02, & - & 0.12433e+02,0.12413e+02,0.11728e+02,0.90172e+01 /) - kao(:, 5,13,10) = (/ & - & 0.71183e+01,0.91466e+01,0.10479e+02,0.11436e+02,0.12120e+02, & - & 0.12489e+02,0.12478e+02,0.11826e+02,0.91846e+01 /) - kao(:, 1, 1,11) = (/ & - & 0.25290e+02,0.22378e+02,0.19682e+02,0.19092e+02,0.18401e+02, & - & 0.17330e+02,0.17194e+02,0.19513e+02,0.21546e+02 /) - kao(:, 2, 1,11) = (/ & - & 0.25153e+02,0.22251e+02,0.19574e+02,0.19002e+02,0.18309e+02, & - & 0.17346e+02,0.17168e+02,0.19469e+02,0.21516e+02 /) - kao(:, 3, 1,11) = (/ & - & 0.24990e+02,0.22108e+02,0.19457e+02,0.18891e+02,0.18197e+02, & - & 0.17344e+02,0.17153e+02,0.19435e+02,0.21516e+02 /) - kao(:, 4, 1,11) = (/ & - & 0.24785e+02,0.21926e+02,0.19312e+02,0.18774e+02,0.18111e+02, & - & 0.17300e+02,0.17168e+02,0.19426e+02,0.21524e+02 /) - kao(:, 5, 1,11) = (/ & - & 0.24562e+02,0.21729e+02,0.19145e+02,0.18657e+02,0.18043e+02, & - & 0.17239e+02,0.17190e+02,0.19400e+02,0.21517e+02 /) - kao(:, 1, 2,11) = (/ & - & 0.26738e+02,0.23635e+02,0.21164e+02,0.20882e+02,0.20133e+02, & - & 0.18952e+02,0.18391e+02,0.20397e+02,0.22752e+02 /) - kao(:, 2, 2,11) = (/ & - & 0.26579e+02,0.23493e+02,0.21026e+02,0.20770e+02,0.20046e+02, & - & 0.18924e+02,0.18351e+02,0.20302e+02,0.22673e+02 /) - kao(:, 3, 2,11) = (/ & - & 0.26369e+02,0.23304e+02,0.20847e+02,0.20634e+02,0.19955e+02, & - & 0.18867e+02,0.18355e+02,0.20274e+02,0.22643e+02 /) - kao(:, 4, 2,11) = (/ & - & 0.26147e+02,0.23108e+02,0.20663e+02,0.20491e+02,0.19870e+02, & - & 0.18790e+02,0.18365e+02,0.20271e+02,0.22638e+02 /) - kao(:, 5, 2,11) = (/ & - & 0.25876e+02,0.22867e+02,0.20457e+02,0.20308e+02,0.19788e+02, & - & 0.18723e+02,0.18359e+02,0.20242e+02,0.22612e+02 /) - kao(:, 1, 3,11) = (/ & - & 0.27801e+02,0.24558e+02,0.22625e+02,0.22456e+02,0.21766e+02, & - & 0.20723e+02,0.19785e+02,0.21193e+02,0.23811e+02 /) - kao(:, 2, 3,11) = (/ & - & 0.27586e+02,0.24366e+02,0.22444e+02,0.22341e+02,0.21670e+02, & - & 0.20651e+02,0.19732e+02,0.21163e+02,0.23778e+02 /) - kao(:, 3, 3,11) = (/ & - & 0.27362e+02,0.24166e+02,0.22236e+02,0.22200e+02,0.21575e+02, & - & 0.20557e+02,0.19718e+02,0.21155e+02,0.23783e+02 /) - kao(:, 4, 3,11) = (/ & - & 0.27084e+02,0.23919e+02,0.22013e+02,0.22018e+02,0.21471e+02, & - & 0.20457e+02,0.19708e+02,0.21136e+02,0.23769e+02 /) - kao(:, 5, 3,11) = (/ & - & 0.26795e+02,0.23666e+02,0.21794e+02,0.21827e+02,0.21355e+02, & - & 0.20374e+02,0.19655e+02,0.21092e+02,0.23724e+02 /) - kao(:, 1, 4,11) = (/ & - & 0.28327e+02,0.25026e+02,0.23910e+02,0.23720e+02,0.23265e+02, & - & 0.22396e+02,0.21086e+02,0.21859e+02,0.24649e+02 /) - kao(:, 2, 4,11) = (/ & - & 0.28095e+02,0.24816e+02,0.23683e+02,0.23594e+02,0.23156e+02, & - & 0.22304e+02,0.21023e+02,0.21873e+02,0.24674e+02 /) - kao(:, 3, 4,11) = (/ & - & 0.27817e+02,0.24569e+02,0.23454e+02,0.23446e+02,0.23031e+02, & - & 0.22182e+02,0.21022e+02,0.21878e+02,0.24680e+02 /) - kao(:, 4, 4,11) = (/ & - & 0.27525e+02,0.24310e+02,0.23220e+02,0.23268e+02,0.22908e+02, & - & 0.22090e+02,0.21022e+02,0.21824e+02,0.24620e+02 /) - kao(:, 5, 4,11) = (/ & - & 0.27191e+02,0.24023e+02,0.22996e+02,0.23072e+02,0.22769e+02, & - & 0.22022e+02,0.20982e+02,0.21737e+02,0.24514e+02 /) - kao(:, 1, 5,11) = (/ & - & 0.28259e+02,0.25014e+02,0.24907e+02,0.24706e+02,0.24642e+02, & - & 0.23918e+02,0.22330e+02,0.22219e+02,0.25091e+02 /) - kao(:, 2, 5,11) = (/ & - & 0.27993e+02,0.24771e+02,0.24666e+02,0.24596e+02,0.24487e+02, & - & 0.23818e+02,0.22348e+02,0.22269e+02,0.25149e+02 /) - kao(:, 3, 5,11) = (/ & - & 0.27691e+02,0.24499e+02,0.24421e+02,0.24432e+02,0.24340e+02, & - & 0.23705e+02,0.22420e+02,0.22242e+02,0.25109e+02 /) - kao(:, 4, 5,11) = (/ & - & 0.27357e+02,0.24214e+02,0.24178e+02,0.24253e+02,0.24191e+02, & - & 0.23642e+02,0.22422e+02,0.22174e+02,0.25030e+02 /) - kao(:, 5, 5,11) = (/ & - & 0.27008e+02,0.23916e+02,0.23935e+02,0.24063e+02,0.24020e+02, & - & 0.23572e+02,0.22355e+02,0.22132e+02,0.24957e+02 /) - kao(:, 1, 6,11) = (/ & - & 0.27627e+02,0.24841e+02,0.25414e+02,0.25513e+02,0.25788e+02, & - & 0.25161e+02,0.23567e+02,0.22384e+02,0.25091e+02 /) - kao(:, 2, 6,11) = (/ & - & 0.27317e+02,0.24550e+02,0.25165e+02,0.25384e+02,0.25578e+02, & - & 0.25083e+02,0.23662e+02,0.22423e+02,0.25102e+02 /) - kao(:, 3, 6,11) = (/ & - & 0.26994e+02,0.24259e+02,0.24926e+02,0.25206e+02,0.25391e+02, & - & 0.25015e+02,0.23758e+02,0.22363e+02,0.25025e+02 /) - kao(:, 4, 6,11) = (/ & - & 0.26640e+02,0.23945e+02,0.24692e+02,0.25002e+02,0.25193e+02, & - & 0.24973e+02,0.23733e+02,0.22328e+02,0.24965e+02 /) - kao(:, 5, 6,11) = (/ & - & 0.26265e+02,0.23625e+02,0.24446e+02,0.24785e+02,0.25037e+02, & - & 0.24906e+02,0.23659e+02,0.22352e+02,0.24965e+02 /) - kao(:, 1, 7,11) = (/ & - & 0.26430e+02,0.24581e+02,0.25439e+02,0.26140e+02,0.26524e+02, & - & 0.25974e+02,0.24552e+02,0.22441e+02,0.24498e+02 /) - kao(:, 2, 7,11) = (/ & - & 0.26105e+02,0.24263e+02,0.25225e+02,0.25974e+02,0.26315e+02, & - & 0.25946e+02,0.24677e+02,0.22471e+02,0.24490e+02 /) - kao(:, 3, 7,11) = (/ & - & 0.25752e+02,0.23938e+02,0.24996e+02,0.25749e+02,0.26113e+02, & - & 0.25925e+02,0.24758e+02,0.22442e+02,0.24454e+02 /) - kao(:, 4, 7,11) = (/ & - & 0.25389e+02,0.23609e+02,0.24761e+02,0.25499e+02,0.25940e+02, & - & 0.25913e+02,0.24720e+02,0.22473e+02,0.24475e+02 /) - kao(:, 5, 7,11) = (/ & - & 0.25010e+02,0.23260e+02,0.24510e+02,0.25262e+02,0.25804e+02, & - & 0.25811e+02,0.24640e+02,0.22547e+02,0.24534e+02 /) - kao(:, 1, 8,11) = (/ & - & 0.24762e+02,0.23997e+02,0.25209e+02,0.26467e+02,0.26748e+02, & - & 0.26365e+02,0.25094e+02,0.22357e+02,0.23406e+02 /) - kao(:, 2, 8,11) = (/ & - & 0.24421e+02,0.23672e+02,0.24981e+02,0.26217e+02,0.26595e+02, & - & 0.26375e+02,0.25195e+02,0.22435e+02,0.23453e+02 /) - kao(:, 3, 8,11) = (/ & - & 0.24067e+02,0.23336e+02,0.24754e+02,0.25956e+02,0.26455e+02, & - & 0.26361e+02,0.25241e+02,0.22458e+02,0.23475e+02 /) - kao(:, 4, 8,11) = (/ & - & 0.23691e+02,0.22996e+02,0.24502e+02,0.25698e+02,0.26330e+02, & - & 0.26343e+02,0.25197e+02,0.22533e+02,0.23575e+02 /) - kao(:, 5, 8,11) = (/ & - & 0.23311e+02,0.22660e+02,0.24234e+02,0.25450e+02,0.26215e+02, & - & 0.26209e+02,0.25123e+02,0.22642e+02,0.23709e+02 /) - kao(:, 1, 9,11) = (/ & - & 0.22800e+02,0.23011e+02,0.24799e+02,0.26181e+02,0.26533e+02, & - & 0.26301e+02,0.25044e+02,0.22077e+02,0.21907e+02 /) - kao(:, 2, 9,11) = (/ & - & 0.22436e+02,0.22697e+02,0.24546e+02,0.25945e+02,0.26460e+02, & - & 0.26314e+02,0.25122e+02,0.22204e+02,0.22029e+02 /) - kao(:, 3, 9,11) = (/ & - & 0.22079e+02,0.22367e+02,0.24295e+02,0.25706e+02,0.26370e+02, & - & 0.26288e+02,0.25162e+02,0.22314e+02,0.22151e+02 /) - kao(:, 4, 9,11) = (/ & - & 0.21719e+02,0.22029e+02,0.24017e+02,0.25487e+02,0.26273e+02, & - & 0.26217e+02,0.25110e+02,0.22435e+02,0.22334e+02 /) - kao(:, 5, 9,11) = (/ & - & 0.21341e+02,0.21707e+02,0.23702e+02,0.25282e+02,0.26159e+02, & - & 0.26086e+02,0.25065e+02,0.22578e+02,0.22506e+02 /) - kao(:, 1,10,11) = (/ & - & 0.20601e+02,0.21678e+02,0.24058e+02,0.25352e+02,0.25931e+02, & - & 0.25718e+02,0.24432e+02,0.21607e+02,0.20262e+02 /) - kao(:, 2,10,11) = (/ & - & 0.20254e+02,0.21345e+02,0.23796e+02,0.25183e+02,0.25875e+02, & - & 0.25691e+02,0.24508e+02,0.21774e+02,0.20445e+02 /) - kao(:, 3,10,11) = (/ & - & 0.19899e+02,0.21048e+02,0.23494e+02,0.25000e+02,0.25800e+02, & - & 0.25662e+02,0.24533e+02,0.21922e+02,0.20638e+02 /) - kao(:, 4,10,11) = (/ & - & 0.19544e+02,0.20766e+02,0.23207e+02,0.24826e+02,0.25686e+02, & - & 0.25593e+02,0.24527e+02,0.22085e+02,0.20832e+02 /) - kao(:, 5,10,11) = (/ & - & 0.19193e+02,0.20470e+02,0.22936e+02,0.24673e+02,0.25544e+02, & - & 0.25480e+02,0.24537e+02,0.22218e+02,0.21044e+02 /) - kao(:, 1,11,11) = (/ & - & 0.18170e+02,0.20155e+02,0.22721e+02,0.24145e+02,0.24798e+02, & - & 0.24559e+02,0.23403e+02,0.20895e+02,0.18740e+02 /) - kao(:, 2,11,11) = (/ & - & 0.17830e+02,0.19860e+02,0.22479e+02,0.24018e+02,0.24721e+02, & - & 0.24556e+02,0.23466e+02,0.21069e+02,0.18949e+02 /) - kao(:, 3,11,11) = (/ & - & 0.17496e+02,0.19576e+02,0.22242e+02,0.23886e+02,0.24621e+02, & - & 0.24529e+02,0.23525e+02,0.21231e+02,0.19147e+02 /) - kao(:, 4,11,11) = (/ & - & 0.17168e+02,0.19292e+02,0.22005e+02,0.23734e+02,0.24514e+02, & - & 0.24476e+02,0.23580e+02,0.21376e+02,0.19368e+02 /) - kao(:, 5,11,11) = (/ & - & 0.16844e+02,0.19013e+02,0.21771e+02,0.23570e+02,0.24390e+02, & - & 0.24440e+02,0.23651e+02,0.21517e+02,0.19612e+02 /) - kao(:, 1,12,11) = (/ & - & 0.15762e+02,0.18615e+02,0.21133e+02,0.22639e+02,0.23214e+02, & - & 0.23022e+02,0.22060e+02,0.19958e+02,0.17314e+02 /) - kao(:, 2,12,11) = (/ & - & 0.15455e+02,0.18341e+02,0.20944e+02,0.22510e+02,0.23148e+02, & - & 0.23042e+02,0.22164e+02,0.20127e+02,0.17543e+02 /) - kao(:, 3,12,11) = (/ & - & 0.15156e+02,0.18068e+02,0.20768e+02,0.22374e+02,0.23084e+02, & - & 0.23060e+02,0.22257e+02,0.20275e+02,0.17770e+02 /) - kao(:, 4,12,11) = (/ & - & 0.14865e+02,0.17794e+02,0.20582e+02,0.22237e+02,0.23018e+02, & - & 0.23079e+02,0.22350e+02,0.20427e+02,0.18026e+02 /) - kao(:, 5,12,11) = (/ & - & 0.14612e+02,0.17534e+02,0.20399e+02,0.22086e+02,0.22956e+02, & - & 0.23112e+02,0.22443e+02,0.20607e+02,0.18280e+02 /) - kao(:, 1,13,11) = (/ & - & 0.13517e+02,0.16914e+02,0.19425e+02,0.20790e+02,0.21367e+02, & - & 0.21315e+02,0.20607e+02,0.18871e+02,0.15967e+02 /) - kao(:, 2,13,11) = (/ & - & 0.13249e+02,0.16688e+02,0.19279e+02,0.20693e+02,0.21344e+02, & - & 0.21372e+02,0.20725e+02,0.19043e+02,0.16217e+02 /) - kao(:, 3,13,11) = (/ & - & 0.12994e+02,0.16467e+02,0.19108e+02,0.20602e+02,0.21343e+02, & - & 0.21436e+02,0.20839e+02,0.19212e+02,0.16494e+02 /) - kao(:, 4,13,11) = (/ & - & 0.12784e+02,0.16250e+02,0.18951e+02,0.20506e+02,0.21335e+02, & - & 0.21503e+02,0.20961e+02,0.19415e+02,0.16770e+02 /) - kao(:, 5,13,11) = (/ & - & 0.12734e+02,0.16049e+02,0.18819e+02,0.20438e+02,0.21329e+02, & - & 0.21573e+02,0.21104e+02,0.19623e+02,0.16983e+02 /) - kao(:, 1, 1,12) = (/ & - & 0.32549e+02,0.28774e+02,0.25031e+02,0.22926e+02,0.22117e+02, & - & 0.21695e+02,0.23417e+02,0.26761e+02,0.29694e+02 /) - kao(:, 2, 1,12) = (/ & - & 0.32499e+02,0.28739e+02,0.25006e+02,0.22835e+02,0.22088e+02, & - & 0.21560e+02,0.23253e+02,0.26542e+02,0.29377e+02 /) - kao(:, 3, 1,12) = (/ & - & 0.32407e+02,0.28660e+02,0.24923e+02,0.22714e+02,0.22014e+02, & - & 0.21461e+02,0.23148e+02,0.26398e+02,0.29117e+02 /) - kao(:, 4, 1,12) = (/ & - & 0.32260e+02,0.28512e+02,0.24788e+02,0.22590e+02,0.21881e+02, & - & 0.21430e+02,0.23071e+02,0.26295e+02,0.28961e+02 /) - kao(:, 5, 1,12) = (/ & - & 0.32039e+02,0.28307e+02,0.24614e+02,0.22444e+02,0.21715e+02, & - & 0.21428e+02,0.22979e+02,0.26201e+02,0.28821e+02 /) - kao(:, 1, 2,12) = (/ & - & 0.35951e+02,0.31737e+02,0.27558e+02,0.25749e+02,0.24746e+02, & - & 0.23905e+02,0.24887e+02,0.28459e+02,0.31791e+02 /) - kao(:, 2, 2,12) = (/ & - & 0.35862e+02,0.31672e+02,0.27501e+02,0.25642e+02,0.24725e+02, & - & 0.23810e+02,0.24734e+02,0.28277e+02,0.31526e+02 /) - kao(:, 3, 2,12) = (/ & - & 0.35737e+02,0.31562e+02,0.27401e+02,0.25522e+02,0.24641e+02, & - & 0.23751e+02,0.24591e+02,0.28127e+02,0.31321e+02 /) - kao(:, 4, 2,12) = (/ & - & 0.35534e+02,0.31380e+02,0.27248e+02,0.25379e+02,0.24498e+02, & - & 0.23724e+02,0.24485e+02,0.28006e+02,0.31168e+02 /) - kao(:, 5, 2,12) = (/ & - & 0.35285e+02,0.31161e+02,0.27065e+02,0.25222e+02,0.24328e+02, & - & 0.23689e+02,0.24406e+02,0.27908e+02,0.31060e+02 /) - kao(:, 1, 3,12) = (/ & - & 0.39089e+02,0.34457e+02,0.30041e+02,0.28724e+02,0.27574e+02, & - & 0.26213e+02,0.26498e+02,0.30215e+02,0.33960e+02 /) - kao(:, 2, 3,12) = (/ & - & 0.38998e+02,0.34382e+02,0.29952e+02,0.28581e+02,0.27562e+02, & - & 0.26150e+02,0.26309e+02,0.29980e+02,0.33662e+02 /) - kao(:, 3, 3,12) = (/ & - & 0.38820e+02,0.34217e+02,0.29804e+02,0.28424e+02,0.27473e+02, & - & 0.26126e+02,0.26176e+02,0.29817e+02,0.33458e+02 /) - kao(:, 4, 3,12) = (/ & - & 0.38594e+02,0.34019e+02,0.29631e+02,0.28264e+02,0.27343e+02, & - & 0.26103e+02,0.26063e+02,0.29657e+02,0.33303e+02 /) - kao(:, 5, 3,12) = (/ & - & 0.38290e+02,0.33755e+02,0.29411e+02,0.28094e+02,0.27189e+02, & - & 0.26048e+02,0.25993e+02,0.29534e+02,0.33212e+02 /) - kao(:, 1, 4,12) = (/ & - & 0.41846e+02,0.36848e+02,0.32642e+02,0.31752e+02,0.30348e+02, & - & 0.28783e+02,0.28429e+02,0.31940e+02,0.36003e+02 /) - kao(:, 2, 4,12) = (/ & - & 0.41706e+02,0.36722e+02,0.32481e+02,0.31589e+02,0.30346e+02, & - & 0.28731e+02,0.28275e+02,0.31704e+02,0.35716e+02 /) - kao(:, 3, 4,12) = (/ & - & 0.41502e+02,0.36539e+02,0.32269e+02,0.31417e+02,0.30279e+02, & - & 0.28696e+02,0.28151e+02,0.31470e+02,0.35494e+02 /) - kao(:, 4, 4,12) = (/ & - & 0.41217e+02,0.36286e+02,0.32033e+02,0.31226e+02,0.30155e+02, & - & 0.28647e+02,0.28039e+02,0.31307e+02,0.35368e+02 /) - kao(:, 5, 4,12) = (/ & - & 0.40876e+02,0.35985e+02,0.31743e+02,0.31019e+02,0.30013e+02, & - & 0.28553e+02,0.27986e+02,0.31205e+02,0.35294e+02 /) - kao(:, 1, 5,12) = (/ & - & 0.43995e+02,0.38706e+02,0.35200e+02,0.34595e+02,0.33005e+02, & - & 0.31594e+02,0.30727e+02,0.33547e+02,0.37840e+02 /) - kao(:, 2, 5,12) = (/ & - & 0.43792e+02,0.38521e+02,0.34965e+02,0.34413e+02,0.33017e+02, & - & 0.31523e+02,0.30579e+02,0.33292e+02,0.37593e+02 /) - kao(:, 3, 5,12) = (/ & - & 0.43530e+02,0.38288e+02,0.34710e+02,0.34215e+02,0.32953e+02, & - & 0.31452e+02,0.30422e+02,0.33082e+02,0.37437e+02 /) - kao(:, 4, 5,12) = (/ & - & 0.43192e+02,0.37991e+02,0.34400e+02,0.33987e+02,0.32832e+02, & - & 0.31362e+02,0.30341e+02,0.32970e+02,0.37357e+02 /) - kao(:, 5, 5,12) = (/ & - & 0.42817e+02,0.37661e+02,0.34079e+02,0.33725e+02,0.32688e+02, & - & 0.31220e+02,0.30292e+02,0.32861e+02,0.37270e+02 /) - kao(:, 1, 6,12) = (/ & - & 0.45371e+02,0.39886e+02,0.37563e+02,0.36985e+02,0.35582e+02, & - & 0.34395e+02,0.32997e+02,0.34724e+02,0.39202e+02 /) - kao(:, 2, 6,12) = (/ & - & 0.45116e+02,0.39656e+02,0.37269e+02,0.36794e+02,0.35596e+02, & - & 0.34289e+02,0.32827e+02,0.34552e+02,0.39098e+02 /) - kao(:, 3, 6,12) = (/ & - & 0.44794e+02,0.39373e+02,0.36959e+02,0.36575e+02,0.35485e+02, & - & 0.34189e+02,0.32665e+02,0.34424e+02,0.39024e+02 /) - kao(:, 4, 6,12) = (/ & - & 0.44425e+02,0.39049e+02,0.36596e+02,0.36352e+02,0.35337e+02, & - & 0.34032e+02,0.32591e+02,0.34348e+02,0.38980e+02 /) - kao(:, 5, 6,12) = (/ & - & 0.43987e+02,0.38666e+02,0.36218e+02,0.36087e+02,0.35122e+02, & - & 0.33853e+02,0.32536e+02,0.34232e+02,0.38883e+02 /) - kao(:, 1, 7,12) = (/ & - & 0.45829e+02,0.40296e+02,0.39507e+02,0.38911e+02,0.38052e+02, & - & 0.37051e+02,0.34926e+02,0.35286e+02,0.39874e+02 /) - kao(:, 2, 7,12) = (/ & - & 0.45523e+02,0.40015e+02,0.39164e+02,0.38712e+02,0.37995e+02, & - & 0.36879e+02,0.34780e+02,0.35237e+02,0.39916e+02 /) - kao(:, 3, 7,12) = (/ & - & 0.45143e+02,0.39672e+02,0.38788e+02,0.38484e+02,0.37843e+02, & - & 0.36693e+02,0.34674e+02,0.35202e+02,0.39935e+02 /) - kao(:, 4, 7,12) = (/ & - & 0.44711e+02,0.39294e+02,0.38380e+02,0.38261e+02,0.37608e+02, & - & 0.36475e+02,0.34639e+02,0.35181e+02,0.39952e+02 /) - kao(:, 5, 7,12) = (/ & - & 0.44229e+02,0.38875e+02,0.37956e+02,0.37973e+02,0.37347e+02, & - & 0.36293e+02,0.34620e+02,0.35062e+02,0.39846e+02 /) - kao(:, 1, 8,12) = (/ & - & 0.45335e+02,0.40267e+02,0.40744e+02,0.40443e+02,0.40247e+02, & - & 0.39223e+02,0.36584e+02,0.35367e+02,0.39844e+02 /) - kao(:, 2, 8,12) = (/ & - & 0.44955e+02,0.39893e+02,0.40398e+02,0.40216e+02,0.40115e+02, & - & 0.39023e+02,0.36582e+02,0.35440e+02,0.40008e+02 /) - kao(:, 3, 8,12) = (/ & - & 0.44529e+02,0.39492e+02,0.39985e+02,0.39979e+02,0.39873e+02, & - & 0.38831e+02,0.36587e+02,0.35498e+02,0.40121e+02 /) - kao(:, 4, 8,12) = (/ & - & 0.44061e+02,0.39061e+02,0.39564e+02,0.39715e+02,0.39565e+02, & - & 0.38623e+02,0.36619e+02,0.35513e+02,0.40138e+02 /) - kao(:, 5, 8,12) = (/ & - & 0.43543e+02,0.38605e+02,0.39136e+02,0.39437e+02,0.39265e+02, & - & 0.38474e+02,0.36637e+02,0.35396e+02,0.40011e+02 /) - kao(:, 1, 9,12) = (/ & - & 0.43909e+02,0.39954e+02,0.41167e+02,0.41626e+02,0.41945e+02, & - & 0.40736e+02,0.38077e+02,0.35393e+02,0.39221e+02 /) - kao(:, 2, 9,12) = (/ & - & 0.43480e+02,0.39498e+02,0.40786e+02,0.41338e+02,0.41733e+02, & - & 0.40609e+02,0.38181e+02,0.35523e+02,0.39397e+02 /) - kao(:, 3, 9,12) = (/ & - & 0.43002e+02,0.39038e+02,0.40373e+02,0.41094e+02,0.41410e+02, & - & 0.40471e+02,0.38255e+02,0.35563e+02,0.39462e+02 /) - kao(:, 4, 9,12) = (/ & - & 0.42479e+02,0.38560e+02,0.39995e+02,0.40806e+02,0.41101e+02, & - & 0.40341e+02,0.38344e+02,0.35573e+02,0.39457e+02 /) - kao(:, 5, 9,12) = (/ & - & 0.41942e+02,0.38060e+02,0.39621e+02,0.40473e+02,0.40785e+02, & - & 0.40226e+02,0.38369e+02,0.35494e+02,0.39400e+02 /) - kao(:, 1,10,12) = (/ & - & 0.41598e+02,0.39277e+02,0.40964e+02,0.42358e+02,0.42727e+02, & - & 0.41605e+02,0.39147e+02,0.35243e+02,0.37755e+02 /) - kao(:, 2,10,12) = (/ & - & 0.41110e+02,0.38804e+02,0.40573e+02,0.42061e+02,0.42547e+02, & - & 0.41580e+02,0.39298e+02,0.35367e+02,0.37893e+02 /) - kao(:, 3,10,12) = (/ & - & 0.40607e+02,0.38301e+02,0.40218e+02,0.41774e+02,0.42273e+02, & - & 0.41520e+02,0.39406e+02,0.35478e+02,0.38009e+02 /) - kao(:, 4,10,12) = (/ & - & 0.40087e+02,0.37793e+02,0.39835e+02,0.41418e+02,0.42009e+02, & - & 0.41467e+02,0.39471e+02,0.35532e+02,0.38110e+02 /) - kao(:, 5,10,12) = (/ & - & 0.39528e+02,0.37276e+02,0.39445e+02,0.41009e+02,0.41755e+02, & - & 0.41409e+02,0.39460e+02,0.35536e+02,0.38153e+02 /) - kao(:, 1,11,12) = (/ & - & 0.38423e+02,0.37785e+02,0.40246e+02,0.42229e+02,0.42700e+02, & - & 0.41861e+02,0.39594e+02,0.34991e+02,0.35642e+02 /) - kao(:, 2,11,12) = (/ & - & 0.37903e+02,0.37296e+02,0.39841e+02,0.41927e+02,0.42539e+02, & - & 0.41882e+02,0.39751e+02,0.35170e+02,0.35883e+02 /) - kao(:, 3,11,12) = (/ & - & 0.37383e+02,0.36809e+02,0.39442e+02,0.41575e+02,0.42342e+02, & - & 0.41911e+02,0.39809e+02,0.35335e+02,0.36101e+02 /) - kao(:, 4,11,12) = (/ & - & 0.36841e+02,0.36301e+02,0.39055e+02,0.41199e+02,0.42145e+02, & - & 0.41876e+02,0.39854e+02,0.35442e+02,0.36276e+02 /) - kao(:, 5,11,12) = (/ & - & 0.36274e+02,0.35783e+02,0.38676e+02,0.40833e+02,0.41945e+02, & - & 0.41808e+02,0.39839e+02,0.35539e+02,0.36455e+02 /) - kao(:, 1,12,12) = (/ & - & 0.34828e+02,0.35770e+02,0.39099e+02,0.41221e+02,0.41958e+02, & - & 0.41456e+02,0.39253e+02,0.34461e+02,0.33246e+02 /) - kao(:, 2,12,12) = (/ & - & 0.34304e+02,0.35295e+02,0.38700e+02,0.40987e+02,0.41846e+02, & - & 0.41525e+02,0.39359e+02,0.34698e+02,0.33560e+02 /) - kao(:, 3,12,12) = (/ & - & 0.33784e+02,0.34798e+02,0.38311e+02,0.40707e+02,0.41743e+02, & - & 0.41505e+02,0.39465e+02,0.34925e+02,0.33882e+02 /) - kao(:, 4,12,12) = (/ & - & 0.33241e+02,0.34324e+02,0.37917e+02,0.40393e+02,0.41632e+02, & - & 0.41461e+02,0.39554e+02,0.35117e+02,0.34172e+02 /) - kao(:, 5,12,12) = (/ & - & 0.32710e+02,0.33867e+02,0.37489e+02,0.40112e+02,0.41490e+02, & - & 0.41392e+02,0.39590e+02,0.35312e+02,0.34501e+02 /) - kao(:, 1,13,12) = (/ & - & 0.30997e+02,0.33431e+02,0.37385e+02,0.39653e+02,0.40610e+02, & - & 0.40222e+02,0.38101e+02,0.33638e+02,0.30845e+02 /) - kao(:, 2,13,12) = (/ & - & 0.30492e+02,0.32952e+02,0.37042e+02,0.39451e+02,0.40583e+02, & - & 0.40257e+02,0.38272e+02,0.33940e+02,0.31245e+02 /) - kao(:, 3,13,12) = (/ & - & 0.29985e+02,0.32520e+02,0.36699e+02,0.39235e+02,0.40521e+02, & - & 0.40274e+02,0.38447e+02,0.34242e+02,0.31622e+02 /) - kao(:, 4,13,12) = (/ & - & 0.29485e+02,0.32102e+02,0.36327e+02,0.39047e+02,0.40416e+02, & - & 0.40299e+02,0.38596e+02,0.34522e+02,0.32000e+02 /) - kao(:, 5,13,12) = (/ & - & 0.29016e+02,0.31685e+02,0.35962e+02,0.38852e+02,0.40311e+02, & - & 0.40331e+02,0.38749e+02,0.34802e+02,0.32433e+02 /) - kao(:, 1, 1,13) = (/ & - & 0.40414e+02,0.35530e+02,0.30727e+02,0.26813e+02,0.26498e+02, & - & 0.27724e+02,0.32451e+02,0.37296e+02,0.40920e+02 /) - kao(:, 2, 1,13) = (/ & - & 0.40378e+02,0.35506e+02,0.30718e+02,0.26787e+02,0.26360e+02, & - & 0.27557e+02,0.32109e+02,0.36904e+02,0.40512e+02 /) - kao(:, 3, 1,13) = (/ & - & 0.40288e+02,0.35435e+02,0.30689e+02,0.26758e+02,0.26294e+02, & - & 0.27365e+02,0.31721e+02,0.36448e+02,0.40077e+02 /) - kao(:, 4, 1,13) = (/ & - & 0.40152e+02,0.35337e+02,0.30607e+02,0.26666e+02,0.26235e+02, & - & 0.27137e+02,0.31350e+02,0.36026e+02,0.39605e+02 /) - kao(:, 5, 1,13) = (/ & - & 0.39996e+02,0.35209e+02,0.30500e+02,0.26544e+02,0.26176e+02, & - & 0.26906e+02,0.31054e+02,0.35676e+02,0.39227e+02 /) - kao(:, 1, 2,13) = (/ & - & 0.46201e+02,0.40631e+02,0.35149e+02,0.31004e+02,0.30338e+02, & - & 0.30975e+02,0.35648e+02,0.41032e+02,0.45728e+02 /) - kao(:, 2, 2,13) = (/ & - & 0.46189e+02,0.40616e+02,0.35151e+02,0.30920e+02,0.30181e+02, & - & 0.30854e+02,0.35321e+02,0.40601e+02,0.45258e+02 /) - kao(:, 3, 2,13) = (/ & - & 0.46107e+02,0.40548e+02,0.35109e+02,0.30814e+02,0.30060e+02, & - & 0.30665e+02,0.34964e+02,0.40159e+02,0.44756e+02 /) - kao(:, 4, 2,13) = (/ & - & 0.45964e+02,0.40421e+02,0.35002e+02,0.30664e+02,0.29967e+02, & - & 0.30436e+02,0.34636e+02,0.39757e+02,0.44299e+02 /) - kao(:, 5, 2,13) = (/ & - & 0.45779e+02,0.40257e+02,0.34861e+02,0.30500e+02,0.29866e+02, & - & 0.30215e+02,0.34343e+02,0.39421e+02,0.43898e+02 /) - kao(:, 1, 3,13) = (/ & - & 0.52493e+02,0.46184e+02,0.39933e+02,0.35707e+02,0.34547e+02, & - & 0.34524e+02,0.38680e+02,0.44581e+02,0.50362e+02 /) - kao(:, 2, 3,13) = (/ & - & 0.52499e+02,0.46190e+02,0.39958e+02,0.35613e+02,0.34342e+02, & - & 0.34438e+02,0.38422e+02,0.44213e+02,0.49916e+02 /) - kao(:, 3, 3,13) = (/ & - & 0.52430e+02,0.46141e+02,0.39924e+02,0.35477e+02,0.34202e+02, & - & 0.34294e+02,0.38128e+02,0.43804e+02,0.49438e+02 /) - kao(:, 4, 3,13) = (/ & - & 0.52296e+02,0.46021e+02,0.39821e+02,0.35288e+02,0.34063e+02, & - & 0.34077e+02,0.37857e+02,0.43466e+02,0.49020e+02 /) - kao(:, 5, 3,13) = (/ & - & 0.52087e+02,0.45828e+02,0.39654e+02,0.35060e+02,0.33889e+02, & - & 0.33876e+02,0.37613e+02,0.43182e+02,0.48640e+02 /) - kao(:, 1, 4,13) = (/ & - & 0.58998e+02,0.51894e+02,0.44809e+02,0.40767e+02,0.39196e+02, & - & 0.38349e+02,0.41490e+02,0.47820e+02,0.54353e+02 /) - kao(:, 2, 4,13) = (/ & - & 0.58998e+02,0.51911e+02,0.44850e+02,0.40692e+02,0.38973e+02, & - & 0.38281e+02,0.41275e+02,0.47479e+02,0.53941e+02 /) - kao(:, 3, 4,13) = (/ & - & 0.58946e+02,0.51872e+02,0.44826e+02,0.40545e+02,0.38818e+02, & - & 0.38152e+02,0.41007e+02,0.47151e+02,0.53507e+02 /) - kao(:, 4, 4,13) = (/ & - & 0.58797e+02,0.51741e+02,0.44719e+02,0.40328e+02,0.38647e+02, & - & 0.37950e+02,0.40768e+02,0.46871e+02,0.53108e+02 /) - kao(:, 5, 4,13) = (/ & - & 0.58578e+02,0.51549e+02,0.44555e+02,0.40074e+02,0.38419e+02, & - & 0.37769e+02,0.40542e+02,0.46625e+02,0.52790e+02 /) - kao(:, 1, 5,13) = (/ & - & 0.65454e+02,0.57537e+02,0.49631e+02,0.46171e+02,0.44093e+02, & - & 0.42375e+02,0.44216e+02,0.50929e+02,0.58021e+02 /) - kao(:, 2, 5,13) = (/ & - & 0.65480e+02,0.57591e+02,0.49679e+02,0.46047e+02,0.43916e+02, & - & 0.42317e+02,0.44023e+02,0.50643e+02,0.57621e+02 /) - kao(:, 3, 5,13) = (/ & - & 0.65404e+02,0.57534e+02,0.49633e+02,0.45875e+02,0.43765e+02, & - & 0.42200e+02,0.43791e+02,0.50364e+02,0.57215e+02 /) - kao(:, 4, 5,13) = (/ & - & 0.65236e+02,0.57393e+02,0.49518e+02,0.45648e+02,0.43596e+02, & - & 0.42013e+02,0.43533e+02,0.50076e+02,0.56838e+02 /) - kao(:, 5, 5,13) = (/ & - & 0.64960e+02,0.57155e+02,0.49326e+02,0.45390e+02,0.43392e+02, & - & 0.41855e+02,0.43285e+02,0.49832e+02,0.56537e+02 /) - kao(:, 1, 6,13) = (/ & - & 0.71553e+02,0.62830e+02,0.54580e+02,0.51897e+02,0.49249e+02, & - & 0.46670e+02,0.47221e+02,0.54164e+02,0.61741e+02 /) - kao(:, 2, 6,13) = (/ & - & 0.71559e+02,0.62858e+02,0.54547e+02,0.51727e+02,0.49114e+02, & - & 0.46626e+02,0.47093e+02,0.53907e+02,0.61336e+02 /) - kao(:, 3, 6,13) = (/ & - & 0.71474e+02,0.62796e+02,0.54422e+02,0.51491e+02,0.49001e+02, & - & 0.46518e+02,0.46873e+02,0.53599e+02,0.60908e+02 /) - kao(:, 4, 6,13) = (/ & - & 0.71253e+02,0.62620e+02,0.54248e+02,0.51208e+02,0.48873e+02, & - & 0.46377e+02,0.46595e+02,0.53243e+02,0.60469e+02 /) - kao(:, 5, 6,13) = (/ & - & 0.70931e+02,0.62354e+02,0.53993e+02,0.50888e+02,0.48719e+02, & - & 0.46222e+02,0.46318e+02,0.52946e+02,0.60113e+02 /) - kao(:, 1, 7,13) = (/ & - & 0.76995e+02,0.67566e+02,0.59542e+02,0.57607e+02,0.54461e+02, & - & 0.51316e+02,0.50984e+02,0.57643e+02,0.65674e+02 /) - kao(:, 2, 7,13) = (/ & - & 0.76958e+02,0.67548e+02,0.59397e+02,0.57376e+02,0.54369e+02, & - & 0.51326e+02,0.50889e+02,0.57330e+02,0.65196e+02 /) - kao(:, 3, 7,13) = (/ & - & 0.76815e+02,0.67433e+02,0.59207e+02,0.57127e+02,0.54289e+02, & - & 0.51287e+02,0.50622e+02,0.56904e+02,0.64662e+02 /) - kao(:, 4, 7,13) = (/ & - & 0.76535e+02,0.67198e+02,0.58948e+02,0.56779e+02,0.54224e+02, & - & 0.51158e+02,0.50286e+02,0.56459e+02,0.64124e+02 /) - kao(:, 5, 7,13) = (/ & - & 0.76156e+02,0.66876e+02,0.58634e+02,0.56401e+02,0.54096e+02, & - & 0.50976e+02,0.49973e+02,0.56129e+02,0.63785e+02 /) - kao(:, 1, 8,13) = (/ & - & 0.81421e+02,0.71418e+02,0.64455e+02,0.62977e+02,0.59643e+02, & - & 0.56434e+02,0.55164e+02,0.60758e+02,0.69127e+02 /) - kao(:, 2, 8,13) = (/ & - & 0.81348e+02,0.71366e+02,0.64215e+02,0.62779e+02,0.59582e+02, & - & 0.56462e+02,0.55001e+02,0.60346e+02,0.68584e+02 /) - kao(:, 3, 8,13) = (/ & - & 0.81121e+02,0.71177e+02,0.63909e+02,0.62467e+02,0.59508e+02, & - & 0.56437e+02,0.54668e+02,0.59898e+02,0.68043e+02 /) - kao(:, 4, 8,13) = (/ & - & 0.80795e+02,0.70901e+02,0.63558e+02,0.62070e+02,0.59450e+02, & - & 0.56283e+02,0.54317e+02,0.59470e+02,0.67583e+02 /) - kao(:, 5, 8,13) = (/ & - & 0.80315e+02,0.70489e+02,0.63126e+02,0.61649e+02,0.59298e+02, & - & 0.56050e+02,0.54007e+02,0.59179e+02,0.67330e+02 /) - kao(:, 1, 9,13) = (/ & - & 0.84526e+02,0.74114e+02,0.69139e+02,0.67766e+02,0.64700e+02, & - & 0.61791e+02,0.59295e+02,0.62885e+02,0.71468e+02 /) - kao(:, 2, 9,13) = (/ & - & 0.84370e+02,0.73989e+02,0.68856e+02,0.67565e+02,0.64593e+02, & - & 0.61811e+02,0.59181e+02,0.62666e+02,0.71181e+02 /) - kao(:, 3, 9,13) = (/ & - & 0.84053e+02,0.73721e+02,0.68457e+02,0.67233e+02,0.64524e+02, & - & 0.61778e+02,0.58870e+02,0.62384e+02,0.70849e+02 /) - kao(:, 4, 9,13) = (/ & - & 0.83638e+02,0.73367e+02,0.67980e+02,0.66820e+02,0.64408e+02, & - & 0.61582e+02,0.58561e+02,0.62049e+02,0.70550e+02 /) - kao(:, 5, 9,13) = (/ & - & 0.83125e+02,0.72897e+02,0.67415e+02,0.66418e+02,0.64238e+02, & - & 0.61304e+02,0.58306e+02,0.61805e+02,0.70366e+02 /) - kao(:, 1,10,13) = (/ & - & 0.86099e+02,0.75664e+02,0.73052e+02,0.71784e+02,0.69581e+02, & - & 0.67013e+02,0.63079e+02,0.64019e+02,0.72668e+02 /) - kao(:, 2,10,13) = (/ & - & 0.85793e+02,0.75364e+02,0.72621e+02,0.71506e+02,0.69364e+02, & - & 0.66992e+02,0.63098e+02,0.64105e+02,0.72738e+02 /) - kao(:, 3,10,13) = (/ & - & 0.85391e+02,0.74983e+02,0.72119e+02,0.71136e+02,0.69201e+02, & - & 0.66897e+02,0.62939e+02,0.63964e+02,0.72620e+02 /) - kao(:, 4,10,13) = (/ & - & 0.84829e+02,0.74472e+02,0.71563e+02,0.70768e+02,0.69027e+02, & - & 0.66600e+02,0.62760e+02,0.63750e+02,0.72497e+02 /) - kao(:, 5,10,13) = (/ & - & 0.84210e+02,0.73923e+02,0.70963e+02,0.70409e+02,0.68788e+02, & - & 0.66285e+02,0.62604e+02,0.63643e+02,0.72460e+02 /) - kao(:, 1,11,13) = (/ & - & 0.85661e+02,0.75976e+02,0.75616e+02,0.74895e+02,0.73796e+02, & - & 0.71450e+02,0.66595e+02,0.64723e+02,0.72988e+02 /) - kao(:, 2,11,13) = (/ & - & 0.85212e+02,0.75487e+02,0.75133e+02,0.74528e+02,0.73552e+02, & - & 0.71413e+02,0.66688e+02,0.64835e+02,0.73147e+02 /) - kao(:, 3,11,13) = (/ & - & 0.84633e+02,0.74907e+02,0.74581e+02,0.74183e+02,0.73356e+02, & - & 0.71194e+02,0.66687e+02,0.64831e+02,0.73292e+02 /) - kao(:, 4,11,13) = (/ & - & 0.83975e+02,0.74286e+02,0.73943e+02,0.73830e+02,0.73088e+02, & - & 0.70916e+02,0.66610e+02,0.64920e+02,0.73470e+02 /) - kao(:, 5,11,13) = (/ & - & 0.83246e+02,0.73605e+02,0.73209e+02,0.73386e+02,0.72735e+02, & - & 0.70587e+02,0.66523e+02,0.64950e+02,0.73537e+02 /) - kao(:, 1,12,13) = (/ & - & 0.83352e+02,0.75282e+02,0.76925e+02,0.77365e+02,0.77206e+02, & - & 0.74850e+02,0.69716e+02,0.65048e+02,0.72181e+02 /) - kao(:, 2,12,13) = (/ & - & 0.82736e+02,0.74597e+02,0.76403e+02,0.76949e+02,0.76971e+02, & - & 0.74863e+02,0.69929e+02,0.65330e+02,0.72664e+02 /) - kao(:, 3,12,13) = (/ & - & 0.82054e+02,0.73916e+02,0.75743e+02,0.76528e+02,0.76666e+02, & - & 0.74738e+02,0.70022e+02,0.65629e+02,0.73075e+02 /) - kao(:, 4,12,13) = (/ & - & 0.81316e+02,0.73173e+02,0.75030e+02,0.76061e+02,0.76286e+02, & - & 0.74512e+02,0.70083e+02,0.65825e+02,0.73345e+02 /) - kao(:, 5,12,13) = (/ & - & 0.80516e+02,0.72378e+02,0.74331e+02,0.75554e+02,0.75785e+02, & - & 0.74233e+02,0.70124e+02,0.65929e+02,0.73501e+02 /) - kao(:, 1,13,13) = (/ & - & 0.79408e+02,0.73858e+02,0.76980e+02,0.78869e+02,0.79397e+02, & - & 0.77263e+02,0.72263e+02,0.65338e+02,0.70604e+02 /) - kao(:, 2,13,13) = (/ & - & 0.78716e+02,0.73093e+02,0.76326e+02,0.78426e+02,0.79146e+02, & - & 0.77408e+02,0.72561e+02,0.65807e+02,0.71230e+02 /) - kao(:, 3,13,13) = (/ & - & 0.77962e+02,0.72251e+02,0.75686e+02,0.77926e+02,0.78867e+02, & - & 0.77356e+02,0.72810e+02,0.66137e+02,0.71698e+02 /) - kao(:, 4,13,13) = (/ & - & 0.77177e+02,0.71385e+02,0.75042e+02,0.77408e+02,0.78464e+02, & - & 0.77172e+02,0.73006e+02,0.66333e+02,0.72067e+02 /) - kao(:, 5,13,13) = (/ & - & 0.76340e+02,0.70519e+02,0.74355e+02,0.76889e+02,0.78015e+02, & - & 0.76988e+02,0.73079e+02,0.66485e+02,0.72407e+02 /) - kao(:, 1, 1,14) = (/ & - & 0.51404e+02,0.45212e+02,0.39078e+02,0.32978e+02,0.31213e+02, & - & 0.35689e+02,0.42239e+02,0.49109e+02,0.53555e+02 /) - kao(:, 2, 1,14) = (/ & - & 0.51456e+02,0.45263e+02,0.39085e+02,0.32975e+02,0.31034e+02, & - & 0.35237e+02,0.41756e+02,0.48531e+02,0.52877e+02 /) - kao(:, 3, 1,14) = (/ & - & 0.51419e+02,0.45226e+02,0.39013e+02,0.32932e+02,0.30826e+02, & - & 0.34871e+02,0.41372e+02,0.48070e+02,0.52319e+02 /) - kao(:, 4, 1,14) = (/ & - & 0.51315e+02,0.45122e+02,0.38925e+02,0.32886e+02,0.30643e+02, & - & 0.34565e+02,0.41054e+02,0.47690e+02,0.51853e+02 /) - kao(:, 5, 1,14) = (/ & - & 0.51134e+02,0.44958e+02,0.38787e+02,0.32819e+02,0.30476e+02, & - & 0.34330e+02,0.40799e+02,0.47384e+02,0.51513e+02 /) - kao(:, 1, 2,14) = (/ & - & 0.59575e+02,0.52343e+02,0.45168e+02,0.38156e+02,0.36549e+02, & - & 0.40798e+02,0.48433e+02,0.56320e+02,0.62499e+02 /) - kao(:, 2, 2,14) = (/ & - & 0.59656e+02,0.52415e+02,0.45196e+02,0.38159e+02,0.36356e+02, & - & 0.40232e+02,0.47806e+02,0.55603e+02,0.61692e+02 /) - kao(:, 3, 2,14) = (/ & - & 0.59635e+02,0.52395e+02,0.45146e+02,0.38116e+02,0.36139e+02, & - & 0.39805e+02,0.47339e+02,0.55046e+02,0.61068e+02 /) - kao(:, 4, 2,14) = (/ & - & 0.59522e+02,0.52285e+02,0.45051e+02,0.38066e+02,0.35889e+02, & - & 0.39470e+02,0.46981e+02,0.54621e+02,0.60592e+02 /) - kao(:, 5, 2,14) = (/ & - & 0.59307e+02,0.52094e+02,0.44889e+02,0.37960e+02,0.35677e+02, & - & 0.39216e+02,0.46687e+02,0.54268e+02,0.60193e+02 /) - kao(:, 1, 3,14) = (/ & - & 0.68809e+02,0.60397e+02,0.52025e+02,0.44161e+02,0.42701e+02, & - & 0.46667e+02,0.55520e+02,0.64493e+02,0.72669e+02 /) - kao(:, 2, 3,14) = (/ & - & 0.68924e+02,0.60499e+02,0.52098e+02,0.44133e+02,0.42521e+02, & - & 0.45966e+02,0.54732e+02,0.63594e+02,0.71705e+02 /) - kao(:, 3, 3,14) = (/ & - & 0.68950e+02,0.60531e+02,0.52101e+02,0.44100e+02,0.42285e+02, & - & 0.45418e+02,0.54095e+02,0.62883e+02,0.70919e+02 /) - kao(:, 4, 3,14) = (/ & - & 0.68857e+02,0.60434e+02,0.52014e+02,0.44041e+02,0.42031e+02, & - & 0.45005e+02,0.53564e+02,0.62291e+02,0.70247e+02 /) - kao(:, 5, 3,14) = (/ & - & 0.68666e+02,0.60265e+02,0.51871e+02,0.43942e+02,0.41842e+02, & - & 0.44690e+02,0.53134e+02,0.61806e+02,0.69686e+02 /) - kao(:, 1, 4,14) = (/ & - & 0.79311e+02,0.69561e+02,0.59881e+02,0.51276e+02,0.49761e+02, & - & 0.53193e+02,0.63396e+02,0.73656e+02,0.83652e+02 /) - kao(:, 2, 4,14) = (/ & - & 0.79511e+02,0.69736e+02,0.60019e+02,0.51173e+02,0.49594e+02, & - & 0.52466e+02,0.62461e+02,0.72578e+02,0.82426e+02 /) - kao(:, 3, 4,14) = (/ & - & 0.79562e+02,0.69789e+02,0.60043e+02,0.51075e+02,0.49346e+02, & - & 0.51847e+02,0.61639e+02,0.71632e+02,0.81369e+02 /) - kao(:, 4, 4,14) = (/ & - & 0.79512e+02,0.69733e+02,0.59989e+02,0.50979e+02,0.49088e+02, & - & 0.51360e+02,0.60947e+02,0.70836e+02,0.80468e+02 /) - kao(:, 5, 4,14) = (/ & - & 0.79325e+02,0.69569e+02,0.59854e+02,0.50871e+02,0.48882e+02, & - & 0.50991e+02,0.60362e+02,0.70161e+02,0.79701e+02 /) - kao(:, 1, 5,14) = (/ & - & 0.91112e+02,0.79892e+02,0.68781e+02,0.59496e+02,0.57988e+02, & - & 0.60415e+02,0.71595e+02,0.83227e+02,0.94854e+02 /) - kao(:, 2, 5,14) = (/ & - & 0.91447e+02,0.80173e+02,0.69023e+02,0.59416e+02,0.57743e+02, & - & 0.59673e+02,0.70483e+02,0.81942e+02,0.93394e+02 /) - kao(:, 3, 5,14) = (/ & - & 0.91583e+02,0.80288e+02,0.69106e+02,0.59276e+02,0.57416e+02, & - & 0.59035e+02,0.69528e+02,0.80829e+02,0.92131e+02 /) - kao(:, 4, 5,14) = (/ & - & 0.91566e+02,0.80257e+02,0.69073e+02,0.59136e+02,0.57092e+02, & - & 0.58527e+02,0.68724e+02,0.79885e+02,0.91053e+02 /) - kao(:, 5, 5,14) = (/ & - & 0.91390e+02,0.80104e+02,0.68937e+02,0.58973e+02,0.56776e+02, & - & 0.58107e+02,0.68079e+02,0.79072e+02,0.90122e+02 /) - kao(:, 1, 6,14) = (/ & - & 0.10419e+03,0.91394e+02,0.78656e+02,0.68916e+02,0.67128e+02, & - & 0.68461e+02,0.79894e+02,0.92926e+02,0.10607e+03 /) - kao(:, 2, 6,14) = (/ & - & 0.10463e+03,0.91782e+02,0.79002e+02,0.68819e+02,0.66845e+02, & - & 0.67738e+02,0.78628e+02,0.91458e+02,0.10440e+03 /) - kao(:, 3, 6,14) = (/ & - & 0.10486e+03,0.91970e+02,0.79156e+02,0.68698e+02,0.66470e+02, & - & 0.67066e+02,0.77628e+02,0.90242e+02,0.10302e+03 /) - kao(:, 4, 6,14) = (/ & - & 0.10494e+03,0.92025e+02,0.79207e+02,0.68555e+02,0.66081e+02, & - & 0.66543e+02,0.76843e+02,0.89253e+02,0.10189e+03 /) - kao(:, 5, 6,14) = (/ & - & 0.10481e+03,0.91892e+02,0.79105e+02,0.68344e+02,0.65668e+02, & - & 0.66109e+02,0.76190e+02,0.88386e+02,0.10090e+03 /) - kao(:, 1, 7,14) = (/ & - & 0.11850e+03,0.10394e+03,0.89423e+02,0.79509e+02,0.77207e+02, & - & 0.77196e+02,0.87943e+02,0.10236e+03,0.11694e+03 /) - kao(:, 2, 7,14) = (/ & - & 0.11905e+03,0.10443e+03,0.89864e+02,0.79528e+02,0.76905e+02, & - & 0.76494e+02,0.86650e+02,0.10078e+03,0.11515e+03 /) - kao(:, 3, 7,14) = (/ & - & 0.11939e+03,0.10473e+03,0.90115e+02,0.79401e+02,0.76523e+02, & - & 0.75853e+02,0.85715e+02,0.99595e+02,0.11380e+03 /) - kao(:, 4, 7,14) = (/ & - & 0.11951e+03,0.10484e+03,0.90222e+02,0.79220e+02,0.76090e+02, & - & 0.75405e+02,0.85022e+02,0.98653e+02,0.11271e+03 /) - kao(:, 5, 7,14) = (/ & - & 0.11942e+03,0.10476e+03,0.90169e+02,0.78976e+02,0.75607e+02, & - & 0.75018e+02,0.84352e+02,0.97783e+02,0.11167e+03 /) - kao(:, 1, 8,14) = (/ & - & 0.13381e+03,0.11735e+03,0.10095e+03,0.91226e+02,0.88188e+02, & - & 0.86379e+02,0.95828e+02,0.11155e+03,0.12755e+03 /) - kao(:, 2, 8,14) = (/ & - & 0.13446e+03,0.11794e+03,0.10145e+03,0.91271e+02,0.87947e+02, & - & 0.85766e+02,0.94652e+02,0.11006e+03,0.12583e+03 /) - kao(:, 3, 8,14) = (/ & - & 0.13492e+03,0.11834e+03,0.10180e+03,0.91233e+02,0.87619e+02, & - & 0.85228e+02,0.93811e+02,0.10892e+03,0.12452e+03 /) - kao(:, 4, 8,14) = (/ & - & 0.13505e+03,0.11846e+03,0.10192e+03,0.91090e+02,0.87150e+02, & - & 0.84887e+02,0.93111e+02,0.10797e+03,0.12337e+03 /) - kao(:, 5, 8,14) = (/ & - & 0.13500e+03,0.11844e+03,0.10192e+03,0.90797e+02,0.86626e+02, & - & 0.84570e+02,0.92421e+02,0.10710e+03,0.12226e+03 /) - kao(:, 1, 9,14) = (/ & - & 0.14952e+03,0.13110e+03,0.11316e+03,0.10410e+03,0.99927e+02, & - & 0.96074e+02,0.10374e+03,0.12067e+03,0.13801e+03 /) - kao(:, 2, 9,14) = (/ & - & 0.15028e+03,0.13179e+03,0.11360e+03,0.10415e+03,0.99870e+02, & - & 0.95589e+02,0.10257e+03,0.11912e+03,0.13623e+03 /) - kao(:, 3, 9,14) = (/ & - & 0.15082e+03,0.13227e+03,0.11392e+03,0.10405e+03,0.99571e+02, & - & 0.95189e+02,0.10182e+03,0.11803e+03,0.13496e+03 /) - kao(:, 4, 9,14) = (/ & - & 0.15103e+03,0.13247e+03,0.11403e+03,0.10385e+03,0.99126e+02, & - & 0.94980e+02,0.10122e+03,0.11720e+03,0.13388e+03 /) - kao(:, 5, 9,14) = (/ & - & 0.15094e+03,0.13245e+03,0.11401e+03,0.10348e+03,0.98550e+02, & - & 0.94746e+02,0.10055e+03,0.11636e+03,0.13276e+03 /) - kao(:, 1,10,14) = (/ & - & 0.16524e+03,0.14486e+03,0.12594e+03,0.11785e+03,0.11225e+03, & - & 0.10654e+03,0.11202e+03,0.12965e+03,0.14829e+03 /) - kao(:, 2,10,14) = (/ & - & 0.16610e+03,0.14564e+03,0.12636e+03,0.11787e+03,0.11233e+03, & - & 0.10630e+03,0.11093e+03,0.12811e+03,0.14653e+03 /) - kao(:, 3,10,14) = (/ & - & 0.16659e+03,0.14608e+03,0.12656e+03,0.11769e+03,0.11214e+03, & - & 0.10609e+03,0.11032e+03,0.12713e+03,0.14532e+03 /) - kao(:, 4,10,14) = (/ & - & 0.16681e+03,0.14630e+03,0.12659e+03,0.11736e+03,0.11169e+03, & - & 0.10597e+03,0.10973e+03,0.12629e+03,0.14416e+03 /) - kao(:, 5,10,14) = (/ & - & 0.16671e+03,0.14623e+03,0.12639e+03,0.11688e+03,0.11111e+03, & - & 0.10576e+03,0.10909e+03,0.12542e+03,0.14303e+03 /) - kao(:, 1,11,14) = (/ & - & 0.18065e+03,0.15832e+03,0.13903e+03,0.13201e+03,0.12519e+03, & - & 0.11820e+03,0.12047e+03,0.13760e+03,0.15739e+03 /) - kao(:, 2,11,14) = (/ & - & 0.18131e+03,0.15893e+03,0.13916e+03,0.13183e+03,0.12520e+03, & - & 0.11800e+03,0.11979e+03,0.13660e+03,0.15612e+03 /) - kao(:, 3,11,14) = (/ & - & 0.18162e+03,0.15925e+03,0.13912e+03,0.13145e+03,0.12487e+03, & - & 0.11789e+03,0.11922e+03,0.13566e+03,0.15481e+03 /) - kao(:, 4,11,14) = (/ & - & 0.18161e+03,0.15927e+03,0.13888e+03,0.13091e+03,0.12432e+03, & - & 0.11770e+03,0.11858e+03,0.13462e+03,0.15350e+03 /) - kao(:, 5,11,14) = (/ & - & 0.18129e+03,0.15901e+03,0.13849e+03,0.13027e+03,0.12371e+03, & - & 0.11738e+03,0.11800e+03,0.13378e+03,0.15248e+03 /) - kao(:, 1,12,14) = (/ & - & 0.19439e+03,0.17031e+03,0.15181e+03,0.14577e+03,0.13828e+03, & - & 0.13070e+03,0.12972e+03,0.14546e+03,0.16618e+03 /) - kao(:, 2,12,14) = (/ & - & 0.19483e+03,0.17073e+03,0.15156e+03,0.14543e+03,0.13812e+03, & - & 0.13043e+03,0.12913e+03,0.14443e+03,0.16476e+03 /) - kao(:, 3,12,14) = (/ & - & 0.19494e+03,0.17087e+03,0.15124e+03,0.14493e+03,0.13771e+03, & - & 0.13020e+03,0.12847e+03,0.14330e+03,0.16335e+03 /) - kao(:, 4,12,14) = (/ & - & 0.19474e+03,0.17073e+03,0.15078e+03,0.14425e+03,0.13718e+03, & - & 0.12986e+03,0.12779e+03,0.14240e+03,0.16229e+03 /) - kao(:, 5,12,14) = (/ & - & 0.19420e+03,0.17029e+03,0.15011e+03,0.14337e+03,0.13666e+03, & - & 0.12942e+03,0.12725e+03,0.14171e+03,0.16147e+03 /) - kao(:, 1,13,14) = (/ & - & 0.20562e+03,0.18014e+03,0.16395e+03,0.15885e+03,0.15131e+03, & - & 0.14344e+03,0.13928e+03,0.15201e+03,0.17336e+03 /) - kao(:, 2,13,14) = (/ & - & 0.20583e+03,0.18034e+03,0.16346e+03,0.15844e+03,0.15102e+03, & - & 0.14310e+03,0.13867e+03,0.15101e+03,0.17210e+03 /) - kao(:, 3,13,14) = (/ & - & 0.20579e+03,0.18034e+03,0.16282e+03,0.15782e+03,0.15051e+03, & - & 0.14271e+03,0.13803e+03,0.15026e+03,0.17119e+03 /) - kao(:, 4,13,14) = (/ & - & 0.20539e+03,0.18002e+03,0.16199e+03,0.15696e+03,0.15005e+03, & - & 0.14226e+03,0.13746e+03,0.14977e+03,0.17061e+03 /) - kao(:, 5,13,14) = (/ & - & 0.20471e+03,0.17946e+03,0.16101e+03,0.15580e+03,0.14942e+03, & - & 0.14163e+03,0.13685e+03,0.14922e+03,0.16998e+03 /) - kao(:, 1, 1,15) = (/ & - & 0.61110e+02,0.53539e+02,0.46005e+02,0.38902e+02,0.35970e+02, & - & 0.43986e+02,0.52608e+02,0.61157e+02,0.65911e+02 /) - kao(:, 2, 1,15) = (/ & - & 0.61315e+02,0.53717e+02,0.46235e+02,0.39083e+02,0.35687e+02, & - & 0.43381e+02,0.51871e+02,0.60290e+02,0.64963e+02 /) - kao(:, 3, 1,15) = (/ & - & 0.61422e+02,0.53821e+02,0.46411e+02,0.39188e+02,0.35438e+02, & - & 0.42839e+02,0.51205e+02,0.59514e+02,0.64157e+02 /) - kao(:, 4, 1,15) = (/ & - & 0.61394e+02,0.53877e+02,0.46504e+02,0.39222e+02,0.35189e+02, & - & 0.42365e+02,0.50625e+02,0.58813e+02,0.63464e+02 /) - kao(:, 5, 1,15) = (/ & - & 0.61322e+02,0.53865e+02,0.46511e+02,0.39177e+02,0.34939e+02, & - & 0.41926e+02,0.50070e+02,0.58152e+02,0.62761e+02 /) - kao(:, 1, 2,15) = (/ & - & 0.73139e+02,0.64054e+02,0.54971e+02,0.46172e+02,0.42554e+02, & - & 0.52369e+02,0.62683e+02,0.72904e+02,0.80226e+02 /) - kao(:, 2, 2,15) = (/ & - & 0.73363e+02,0.64250e+02,0.55203e+02,0.46423e+02,0.42168e+02, & - & 0.51668e+02,0.61839e+02,0.71917e+02,0.79110e+02 /) - kao(:, 3, 2,15) = (/ & - & 0.73487e+02,0.64383e+02,0.55429e+02,0.46632e+02,0.41828e+02, & - & 0.50986e+02,0.61016e+02,0.70950e+02,0.78048e+02 /) - kao(:, 4, 2,15) = (/ & - & 0.73536e+02,0.64501e+02,0.55558e+02,0.46729e+02,0.41557e+02, & - & 0.50314e+02,0.60204e+02,0.70005e+02,0.77009e+02 /) - kao(:, 5, 2,15) = (/ & - & 0.73500e+02,0.64509e+02,0.55582e+02,0.46709e+02,0.41283e+02, & - & 0.49695e+02,0.59450e+02,0.69119e+02,0.76024e+02 /) - kao(:, 1, 3,15) = (/ & - & 0.87361e+02,0.76491e+02,0.65621e+02,0.54890e+02,0.50598e+02, & - & 0.62297e+02,0.74612e+02,0.86825e+02,0.97550e+02 /) - kao(:, 2, 3,15) = (/ & - & 0.87685e+02,0.76774e+02,0.65885e+02,0.55188e+02,0.50206e+02, & - & 0.61585e+02,0.73754e+02,0.85807e+02,0.96409e+02 /) - kao(:, 3, 3,15) = (/ & - & 0.87844e+02,0.76919e+02,0.66106e+02,0.55413e+02,0.49812e+02, & - & 0.60785e+02,0.72789e+02,0.84689e+02,0.95141e+02 /) - kao(:, 4, 3,15) = (/ & - & 0.87889e+02,0.77037e+02,0.66247e+02,0.55541e+02,0.49446e+02, & - & 0.60010e+02,0.71857e+02,0.83593e+02,0.93898e+02 /) - kao(:, 5, 3,15) = (/ & - & 0.87858e+02,0.77051e+02,0.66285e+02,0.55583e+02,0.49097e+02, & - & 0.59241e+02,0.70929e+02,0.82513e+02,0.92686e+02 /) - kao(:, 1, 4,15) = (/ & - & 0.10387e+03,0.90929e+02,0.77989e+02,0.65095e+02,0.60436e+02, & - & 0.74039e+02,0.88717e+02,0.10327e+03,0.11725e+03 /) - kao(:, 2, 4,15) = (/ & - & 0.10441e+03,0.91405e+02,0.78408e+02,0.65545e+02,0.59926e+02, & - & 0.73070e+02,0.87549e+02,0.10190e+03,0.11570e+03 /) - kao(:, 3, 4,15) = (/ & - & 0.10471e+03,0.91680e+02,0.78722e+02,0.65845e+02,0.59509e+02, & - & 0.72264e+02,0.86581e+02,0.10076e+03,0.11440e+03 /) - kao(:, 4, 4,15) = (/ & - & 0.10486e+03,0.91873e+02,0.78926e+02,0.66032e+02,0.59086e+02, & - & 0.71381e+02,0.85514e+02,0.99526e+02,0.11299e+03 /) - kao(:, 5, 4,15) = (/ & - & 0.10483e+03,0.91879e+02,0.78952e+02,0.66063e+02,0.58651e+02, & - & 0.70432e+02,0.84377e+02,0.98185e+02,0.11148e+03 /) - kao(:, 1, 5,15) = (/ & - & 0.12314e+03,0.10778e+03,0.92429e+02,0.77074e+02,0.72086e+02, & - & 0.87688e+02,0.10511e+03,0.12238e+03,0.13959e+03 /) - kao(:, 2, 5,15) = (/ & - & 0.12380e+03,0.10836e+03,0.92922e+02,0.77571e+02,0.71572e+02, & - & 0.86586e+02,0.10378e+03,0.12082e+03,0.13782e+03 /) - kao(:, 3, 5,15) = (/ & - & 0.12423e+03,0.10877e+03,0.93351e+02,0.77983e+02,0.71097e+02, & - & 0.85507e+02,0.10249e+03,0.11931e+03,0.13609e+03 /) - kao(:, 4, 5,15) = (/ & - & 0.12450e+03,0.10905e+03,0.93631e+02,0.78238e+02,0.70653e+02, & - & 0.84488e+02,0.10126e+03,0.11788e+03,0.13445e+03 /) - kao(:, 5, 5,15) = (/ & - & 0.12453e+03,0.10910e+03,0.93684e+02,0.78289e+02,0.70179e+02, & - & 0.83403e+02,0.99954e+02,0.11636e+03,0.13271e+03 /) - kao(:, 1, 6,15) = (/ & - & 0.14538e+03,0.12724e+03,0.10910e+03,0.90962e+02,0.85931e+02, & - & 0.10354e+03,0.12413e+03,0.14456e+03,0.16524e+03 /) - kao(:, 2, 6,15) = (/ & - & 0.14625e+03,0.12800e+03,0.10975e+03,0.91547e+02,0.85303e+02, & - & 0.10223e+03,0.12256e+03,0.14271e+03,0.16313e+03 /) - kao(:, 3, 6,15) = (/ & - & 0.14683e+03,0.12855e+03,0.11028e+03,0.92053e+02,0.84796e+02, & - & 0.10095e+03,0.12102e+03,0.14092e+03,0.16108e+03 /) - kao(:, 4, 6,15) = (/ & - & 0.14716e+03,0.12887e+03,0.11059e+03,0.92330e+02,0.84296e+02, & - & 0.99657e+02,0.11947e+03,0.13910e+03,0.15900e+03 /) - kao(:, 5, 6,15) = (/ & - & 0.14726e+03,0.12897e+03,0.11069e+03,0.92414e+02,0.83857e+02, & - & 0.98384e+02,0.11794e+03,0.13732e+03,0.15696e+03 /) - kao(:, 1, 7,15) = (/ & - & 0.17053e+03,0.14925e+03,0.12796e+03,0.10716e+03,0.10213e+03, & - & 0.12188e+03,0.14615e+03,0.17020e+03,0.19480e+03 /) - kao(:, 2, 7,15) = (/ & - & 0.17172e+03,0.15029e+03,0.12885e+03,0.10758e+03,0.10144e+03, & - & 0.12029e+03,0.14423e+03,0.16798e+03,0.19224e+03 /) - kao(:, 3, 7,15) = (/ & - & 0.17251e+03,0.15103e+03,0.12955e+03,0.10811e+03,0.10086e+03, & - & 0.11869e+03,0.14231e+03,0.16572e+03,0.18967e+03 /) - kao(:, 4, 7,15) = (/ & - & 0.17303e+03,0.15150e+03,0.12997e+03,0.10845e+03,0.10032e+03, & - & 0.11701e+03,0.14029e+03,0.16338e+03,0.18697e+03 /) - kao(:, 5, 7,15) = (/ & - & 0.17326e+03,0.15170e+03,0.13015e+03,0.10860e+03,0.99828e+02, & - & 0.11540e+03,0.13837e+03,0.16114e+03,0.18440e+03 /) - kao(:, 1, 8,15) = (/ & - & 0.19897e+03,0.17412e+03,0.14927e+03,0.12609e+03,0.12102e+03, & - & 0.14307e+03,0.17149e+03,0.19971e+03,0.22868e+03 /) - kao(:, 2, 8,15) = (/ & - & 0.20045e+03,0.17541e+03,0.15039e+03,0.12643e+03,0.12014e+03, & - & 0.14095e+03,0.16896e+03,0.19679e+03,0.22532e+03 /) - kao(:, 3, 8,15) = (/ & - & 0.20144e+03,0.17633e+03,0.15122e+03,0.12673e+03,0.11946e+03, & - & 0.13885e+03,0.16646e+03,0.19386e+03,0.22200e+03 /) - kao(:, 4, 8,15) = (/ & - & 0.20212e+03,0.17694e+03,0.15175e+03,0.12692e+03,0.11890e+03, & - & 0.13670e+03,0.16392e+03,0.19092e+03,0.21864e+03 /) - kao(:, 5, 8,15) = (/ & - & 0.20244e+03,0.17722e+03,0.15200e+03,0.12703e+03,0.11832e+03, & - & 0.13474e+03,0.16157e+03,0.18819e+03,0.21551e+03 /) - kao(:, 1, 9,15) = (/ & - & 0.23120e+03,0.20232e+03,0.17344e+03,0.14797e+03,0.14299e+03, & - & 0.16694e+03,0.20011e+03,0.23304e+03,0.26690e+03 /) - kao(:, 2, 9,15) = (/ & - & 0.23311e+03,0.20399e+03,0.17488e+03,0.14825e+03,0.14181e+03, & - & 0.16424e+03,0.19689e+03,0.22930e+03,0.26259e+03 /) - kao(:, 3, 9,15) = (/ & - & 0.23434e+03,0.20510e+03,0.17587e+03,0.14844e+03,0.14100e+03, & - & 0.16150e+03,0.19359e+03,0.22546e+03,0.25821e+03 /) - kao(:, 4, 9,15) = (/ & - & 0.23518e+03,0.20584e+03,0.17651e+03,0.14849e+03,0.14028e+03, & - & 0.15873e+03,0.19031e+03,0.22162e+03,0.25383e+03 /) - kao(:, 5, 9,15) = (/ & - & 0.23553e+03,0.20616e+03,0.17678e+03,0.14839e+03,0.13959e+03, & - & 0.15626e+03,0.18736e+03,0.21823e+03,0.24993e+03 /) - kao(:, 1,10,15) = (/ & - & 0.26766e+03,0.23422e+03,0.20086e+03,0.17305e+03,0.16820e+03, & - & 0.19275e+03,0.23109e+03,0.26916e+03,0.30826e+03 /) - kao(:, 2,10,15) = (/ & - & 0.26991e+03,0.23619e+03,0.20254e+03,0.17334e+03,0.16673e+03, & - & 0.18936e+03,0.22702e+03,0.26442e+03,0.30283e+03 /) - kao(:, 3,10,15) = (/ & - & 0.27155e+03,0.23766e+03,0.20381e+03,0.17344e+03,0.16570e+03, & - & 0.18588e+03,0.22280e+03,0.25950e+03,0.29719e+03 /) - kao(:, 4,10,15) = (/ & - & 0.27254e+03,0.23853e+03,0.20456e+03,0.17332e+03,0.16480e+03, & - & 0.18267e+03,0.21887e+03,0.25495e+03,0.29197e+03 /) - kao(:, 5,10,15) = (/ & - & 0.27304e+03,0.23896e+03,0.20491e+03,0.17301e+03,0.16390e+03, & - & 0.17979e+03,0.21534e+03,0.25082e+03,0.28725e+03 /) - kao(:, 1,11,15) = (/ & - & 0.31010e+03,0.27147e+03,0.23291e+03,0.20181e+03,0.19592e+03, & - & 0.21861e+03,0.26152e+03,0.30466e+03,0.34889e+03 /) - kao(:, 2,11,15) = (/ & - & 0.31237e+03,0.27343e+03,0.23463e+03,0.20183e+03,0.19444e+03, & - & 0.21467e+03,0.25634e+03,0.29864e+03,0.34194e+03 /) - kao(:, 3,11,15) = (/ & - & 0.31396e+03,0.27478e+03,0.23578e+03,0.20169e+03,0.19320e+03, & - & 0.21082e+03,0.25169e+03,0.29321e+03,0.33575e+03 /) - kao(:, 4,11,15) = (/ & - & 0.31491e+03,0.27559e+03,0.23646e+03,0.20134e+03,0.19199e+03, & - & 0.20744e+03,0.24738e+03,0.28820e+03,0.33002e+03 /) - kao(:, 5,11,15) = (/ & - & 0.31516e+03,0.27581e+03,0.23662e+03,0.20063e+03,0.19065e+03, & - & 0.20428e+03,0.24308e+03,0.28319e+03,0.32426e+03 /) - kao(:, 1,12,15) = (/ & - & 0.35746e+03,0.31300e+03,0.26858e+03,0.23433e+03,0.22701e+03, & - & 0.24649e+03,0.29230e+03,0.34058e+03,0.38993e+03 /) - kao(:, 2,12,15) = (/ & - & 0.35965e+03,0.31492e+03,0.27026e+03,0.23392e+03,0.22536e+03, & - & 0.24218e+03,0.28684e+03,0.33421e+03,0.38264e+03 /) - kao(:, 3,12,15) = (/ & - & 0.36096e+03,0.31606e+03,0.27127e+03,0.23331e+03,0.22367e+03, & - & 0.23821e+03,0.28173e+03,0.32828e+03,0.37584e+03 /) - kao(:, 4,12,15) = (/ & - & 0.36159e+03,0.31657e+03,0.27171e+03,0.23251e+03,0.22182e+03, & - & 0.23456e+03,0.27669e+03,0.32238e+03,0.36910e+03 /) - kao(:, 5,12,15) = (/ & - & 0.36141e+03,0.31636e+03,0.27153e+03,0.23134e+03,0.21976e+03, & - & 0.23095e+03,0.27160e+03,0.31644e+03,0.36227e+03 /) - kao(:, 1,13,15) = (/ & - & 0.40931e+03,0.35842e+03,0.30758e+03,0.27041e+03,0.26133e+03, & - & 0.27679e+03,0.32393e+03,0.37751e+03,0.43213e+03 /) - kao(:, 2,13,15) = (/ & - & 0.41124e+03,0.36013e+03,0.30908e+03,0.26935e+03,0.25923e+03, & - & 0.27218e+03,0.31806e+03,0.37065e+03,0.42432e+03 /) - kao(:, 3,13,15) = (/ & - & 0.41214e+03,0.36093e+03,0.30979e+03,0.26811e+03,0.25684e+03, & - & 0.26794e+03,0.31214e+03,0.36375e+03,0.41639e+03 /) - kao(:, 4,13,15) = (/ & - & 0.41225e+03,0.36102e+03,0.30989e+03,0.26655e+03,0.25418e+03, & - & 0.26378e+03,0.30615e+03,0.35676e+03,0.40836e+03 /) - kao(:, 5,13,15) = (/ & - & 0.41130e+03,0.36017e+03,0.30917e+03,0.26471e+03,0.25127e+03, & - & 0.25962e+03,0.30054e+03,0.35018e+03,0.40087e+03 /) - kao(:, 1, 1,16) = (/ & - & 0.66783e+02,0.58494e+02,0.50207e+02,0.41922e+02,0.39207e+02, & - & 0.48837e+02,0.58441e+02,0.67973e+02,0.73684e+02 /) - kao(:, 2, 1,16) = (/ & - & 0.66987e+02,0.58663e+02,0.50340e+02,0.42083e+02,0.39992e+02, & - & 0.49756e+02,0.59507e+02,0.69167e+02,0.75232e+02 /) - kao(:, 3, 1,16) = (/ & - & 0.67128e+02,0.58776e+02,0.50426e+02,0.42412e+02,0.40738e+02, & - & 0.50635e+02,0.60514e+02,0.70320e+02,0.76487e+02 /) - kao(:, 4, 1,16) = (/ & - & 0.67159e+02,0.58797e+02,0.50435e+02,0.42709e+02,0.41336e+02, & - & 0.51345e+02,0.61329e+02,0.71239e+02,0.77474e+02 /) - kao(:, 5, 1,16) = (/ & - & 0.67048e+02,0.58698e+02,0.50349e+02,0.42916e+02,0.41806e+02, & - & 0.51893e+02,0.61955e+02,0.71939e+02,0.78212e+02 /) - kao(:, 1, 2,16) = (/ & - & 0.80817e+02,0.70771e+02,0.60724e+02,0.50680e+02,0.46121e+02, & - & 0.57561e+02,0.68978e+02,0.80276e+02,0.88125e+02 /) - kao(:, 2, 2,16) = (/ & - & 0.81120e+02,0.71031e+02,0.60942e+02,0.50856e+02,0.46531e+02, & - & 0.58009e+02,0.69466e+02,0.80811e+02,0.88902e+02 /) - kao(:, 3, 2,16) = (/ & - & 0.81295e+02,0.71179e+02,0.61065e+02,0.50952e+02,0.47046e+02, & - & 0.58603e+02,0.70144e+02,0.81568e+02,0.89842e+02 /) - kao(:, 4, 2,16) = (/ & - & 0.81302e+02,0.71181e+02,0.61061e+02,0.50998e+02,0.47535e+02, & - & 0.59172e+02,0.70788e+02,0.82285e+02,0.90723e+02 /) - kao(:, 5, 2,16) = (/ & - & 0.81254e+02,0.71123e+02,0.60992e+02,0.51150e+02,0.47959e+02, & - & 0.59657e+02,0.71327e+02,0.82908e+02,0.91460e+02 /) - kao(:, 1, 3,16) = (/ & - & 0.97635e+02,0.85483e+02,0.73330e+02,0.61179e+02,0.56207e+02, & - & 0.70215e+02,0.84188e+02,0.98014e+02,0.10988e+03 /) - kao(:, 2, 3,16) = (/ & - & 0.98163e+02,0.85943e+02,0.73724e+02,0.61504e+02,0.55633e+02, & - & 0.69472e+02,0.83276e+02,0.96935e+02,0.10869e+03 /) - kao(:, 3, 3,16) = (/ & - & 0.98472e+02,0.86211e+02,0.73951e+02,0.61693e+02,0.55697e+02, & - & 0.69495e+02,0.83260e+02,0.96885e+02,0.10871e+03 /) - kao(:, 4, 3,16) = (/ & - & 0.98535e+02,0.86265e+02,0.73995e+02,0.61728e+02,0.55937e+02, & - & 0.69749e+02,0.83530e+02,0.97171e+02,0.10906e+03 /) - kao(:, 5, 3,16) = (/ & - & 0.98433e+02,0.86165e+02,0.73899e+02,0.61635e+02,0.56204e+02, & - & 0.70040e+02,0.83840e+02,0.97500e+02,0.10946e+03 /) - kao(:, 1, 4,16) = (/ & - & 0.11801e+03,0.10331e+03,0.88600e+02,0.73894e+02,0.68841e+02, & - & 0.86008e+02,0.10313e+03,0.12007e+03,0.13623e+03 /) - kao(:, 2, 4,16) = (/ & - & 0.11855e+03,0.10378e+03,0.89007e+02,0.74235e+02,0.68009e+02, & - & 0.84957e+02,0.10186e+03,0.11859e+03,0.13456e+03 /) - kao(:, 3, 4,16) = (/ & - & 0.11911e+03,0.10427e+03,0.89430e+02,0.74590e+02,0.67220e+02, & - & 0.83955e+02,0.10065e+03,0.11716e+03,0.13292e+03 /) - kao(:, 4, 4,16) = (/ & - & 0.11932e+03,0.10446e+03,0.89591e+02,0.74725e+02,0.66996e+02, & - & 0.83620e+02,0.10020e+03,0.11661e+03,0.13231e+03 /) - kao(:, 5, 4,16) = (/ & - & 0.11933e+03,0.10445e+03,0.89579e+02,0.74708e+02,0.67016e+02, & - & 0.83607e+02,0.10016e+03,0.11655e+03,0.13223e+03 /) - kao(:, 1, 5,16) = (/ & - & 0.14253e+03,0.12475e+03,0.10698e+03,0.89200e+02,0.84755e+02, & - & 0.10590e+03,0.12699e+03,0.14785e+03,0.16865e+03 /) - kao(:, 2, 5,16) = (/ & - & 0.14325e+03,0.12539e+03,0.10752e+03,0.89655e+02,0.83145e+02, & - & 0.10388e+03,0.12456e+03,0.14501e+03,0.16542e+03 /) - kao(:, 3, 5,16) = (/ & - & 0.14383e+03,0.12589e+03,0.10795e+03,0.90019e+02,0.82092e+02, & - & 0.10255e+03,0.12296e+03,0.14315e+03,0.16327e+03 /) - kao(:, 4, 5,16) = (/ & - & 0.14418e+03,0.12620e+03,0.10822e+03,0.90248e+02,0.81037e+02, & - & 0.10121e+03,0.12133e+03,0.14124e+03,0.16108e+03 /) - kao(:, 5, 5,16) = (/ & - & 0.14437e+03,0.12637e+03,0.10836e+03,0.90358e+02,0.80556e+02, & - & 0.10057e+03,0.12052e+03,0.14027e+03,0.15994e+03 /) - kao(:, 1, 6,16) = (/ & - & 0.17174e+03,0.15031e+03,0.12887e+03,0.10744e+03,0.10459e+03, & - & 0.13069e+03,0.15672e+03,0.18250e+03,0.20866e+03 /) - kao(:, 2, 6,16) = (/ & - & 0.17281e+03,0.15124e+03,0.12968e+03,0.10811e+03,0.10205e+03, & - & 0.12751e+03,0.15290e+03,0.17802e+03,0.20356e+03 /) - kao(:, 3, 6,16) = (/ & - & 0.17366e+03,0.15199e+03,0.13032e+03,0.10865e+03,0.10020e+03, & - & 0.12519e+03,0.15010e+03,0.17475e+03,0.19982e+03 /) - kao(:, 4, 6,16) = (/ & - & 0.17410e+03,0.15237e+03,0.13065e+03,0.10893e+03,0.98757e+02, & - & 0.12337e+03,0.14792e+03,0.17221e+03,0.19689e+03 /) - kao(:, 5, 6,16) = (/ & - & 0.17426e+03,0.15251e+03,0.13077e+03,0.10903e+03,0.97456e+02, & - & 0.12171e+03,0.14591e+03,0.16984e+03,0.19419e+03 /) - kao(:, 1, 7,16) = (/ & - & 0.20639e+03,0.18062e+03,0.15485e+03,0.12907e+03,0.12889e+03, & - & 0.16105e+03,0.19314e+03,0.22488e+03,0.25751e+03 /) - kao(:, 2, 7,16) = (/ & - & 0.20793e+03,0.18197e+03,0.15600e+03,0.13004e+03,0.12536e+03, & - & 0.15664e+03,0.18784e+03,0.21870e+03,0.25043e+03 /) - kao(:, 3, 7,16) = (/ & - & 0.20918e+03,0.18307e+03,0.15695e+03,0.13084e+03,0.12258e+03, & - & 0.15317e+03,0.18368e+03,0.21386e+03,0.24487e+03 /) - kao(:, 4, 7,16) = (/ & - & 0.20994e+03,0.18373e+03,0.15753e+03,0.13132e+03,0.12024e+03, & - & 0.15023e+03,0.18014e+03,0.20974e+03,0.24016e+03 /) - kao(:, 5, 7,16) = (/ & - & 0.21017e+03,0.18393e+03,0.15770e+03,0.13147e+03,0.11817e+03, & - & 0.14763e+03,0.17700e+03,0.20610e+03,0.23592e+03 /) - kao(:, 1, 8,16) = (/ & - & 0.24808e+03,0.21709e+03,0.18610e+03,0.15511e+03,0.15824e+03, & - & 0.19773e+03,0.23715e+03,0.27617e+03,0.31647e+03 /) - kao(:, 2, 8,16) = (/ & - & 0.24976e+03,0.21856e+03,0.18737e+03,0.15617e+03,0.15364e+03, & - & 0.19198e+03,0.23024e+03,0.26808e+03,0.30723e+03 /) - kao(:, 3, 8,16) = (/ & - & 0.25153e+03,0.22011e+03,0.18870e+03,0.15729e+03,0.14986e+03, & - & 0.18726e+03,0.22456e+03,0.26146e+03,0.29964e+03 /) - kao(:, 4, 8,16) = (/ & - & 0.25266e+03,0.22111e+03,0.18956e+03,0.15801e+03,0.14651e+03, & - & 0.18308e+03,0.21955e+03,0.25564e+03,0.29297e+03 /) - kao(:, 5, 8,16) = (/ & - & 0.25306e+03,0.22146e+03,0.18986e+03,0.15826e+03,0.14346e+03, & - & 0.17924e+03,0.21492e+03,0.25024e+03,0.28677e+03 /) - kao(:, 1, 9,16) = (/ & - & 0.29758e+03,0.26040e+03,0.22322e+03,0.18603e+03,0.19348e+03, & - & 0.24177e+03,0.28996e+03,0.33765e+03,0.38707e+03 /) - kao(:, 2, 9,16) = (/ & - & 0.29980e+03,0.26234e+03,0.22489e+03,0.18744e+03,0.18763e+03, & - & 0.23446e+03,0.28116e+03,0.32742e+03,0.37536e+03 /) - kao(:, 3, 9,16) = (/ & - & 0.30182e+03,0.26412e+03,0.22641e+03,0.18871e+03,0.18264e+03, & - & 0.22823e+03,0.27370e+03,0.31874e+03,0.36539e+03 /) - kao(:, 4, 9,16) = (/ & - & 0.30335e+03,0.26546e+03,0.22757e+03,0.18968e+03,0.17814e+03, & - & 0.22260e+03,0.26695e+03,0.31086e+03,0.35637e+03 /) - kao(:, 5, 9,16) = (/ & - & 0.30399e+03,0.26602e+03,0.22805e+03,0.19008e+03,0.17393e+03, & - & 0.21734e+03,0.26062e+03,0.30347e+03,0.34789e+03 /) - kao(:, 1,10,16) = (/ & - & 0.35657e+03,0.31201e+03,0.26745e+03,0.22289e+03,0.23471e+03, & - & 0.29329e+03,0.35175e+03,0.40960e+03,0.46960e+03 /) - kao(:, 2,10,16) = (/ & - & 0.35941e+03,0.31450e+03,0.26959e+03,0.22468e+03,0.22747e+03, & - & 0.28425e+03,0.34089e+03,0.39700e+03,0.45514e+03 /) - kao(:, 3,10,16) = (/ & - & 0.36173e+03,0.31654e+03,0.27134e+03,0.22614e+03,0.22110e+03, & - & 0.27628e+03,0.33132e+03,0.38584e+03,0.44234e+03 /) - kao(:, 4,10,16) = (/ & - & 0.36337e+03,0.31797e+03,0.27257e+03,0.22717e+03,0.21518e+03, & - & 0.26889e+03,0.32246e+03,0.37553e+03,0.43052e+03 /) - kao(:, 5,10,16) = (/ & - & 0.36404e+03,0.31855e+03,0.27307e+03,0.22759e+03,0.20959e+03, & - & 0.26189e+03,0.31406e+03,0.36572e+03,0.41925e+03 /) - kao(:, 1,11,16) = (/ & - & 0.42778e+03,0.37432e+03,0.32086e+03,0.26740e+03,0.27872e+03, & - & 0.34830e+03,0.41771e+03,0.48646e+03,0.55765e+03 /) - kao(:, 2,11,16) = (/ & - & 0.43110e+03,0.37723e+03,0.32336e+03,0.26948e+03,0.27023e+03, & - & 0.33769e+03,0.40499e+03,0.47168e+03,0.54065e+03 /) - kao(:, 3,11,16) = (/ & - & 0.43351e+03,0.37933e+03,0.32516e+03,0.27099e+03,0.26235e+03, & - & 0.32784e+03,0.39315e+03,0.45790e+03,0.52488e+03 /) - kao(:, 4,11,16) = (/ & - & 0.43444e+03,0.38015e+03,0.32587e+03,0.27158e+03,0.25502e+03, & - & 0.31866e+03,0.38217e+03,0.44507e+03,0.51019e+03 /) - kao(:, 5,11,16) = (/ & - & 0.43455e+03,0.38025e+03,0.32595e+03,0.27165e+03,0.24835e+03, & - & 0.31008e+03,0.37185e+03,0.43305e+03,0.49635e+03 /) - kao(:, 1,12,16) = (/ & - & 0.51115e+03,0.44727e+03,0.38338e+03,0.31950e+03,0.32868e+03, & - & 0.41075e+03,0.49264e+03,0.57375e+03,0.65765e+03 /) - kao(:, 2,12,16) = (/ & - & 0.51481e+03,0.45047e+03,0.38614e+03,0.32180e+03,0.31846e+03, & - & 0.39795e+03,0.47726e+03,0.55589e+03,0.63715e+03 /) - kao(:, 3,12,16) = (/ & - & 0.51667e+03,0.45210e+03,0.38753e+03,0.32296e+03,0.30906e+03, & - & 0.38614e+03,0.46310e+03,0.53942e+03,0.61825e+03 /) - kao(:, 4,12,16) = (/ & - & 0.51678e+03,0.45219e+03,0.38761e+03,0.32303e+03,0.30046e+03, & - & 0.37494e+03,0.44968e+03,0.52372e+03,0.60018e+03 /) - kao(:, 5,12,16) = (/ & - & 0.51600e+03,0.45151e+03,0.38702e+03,0.32254e+03,0.29255e+03, & - & 0.36403e+03,0.43655e+03,0.50852e+03,0.58277e+03 /) - kao(:, 1,13,16) = (/ & - & 0.60779e+03,0.53183e+03,0.45587e+03,0.37990e+03,0.38498e+03, & - & 0.48109e+03,0.57702e+03,0.67207e+03,0.77032e+03 /) - kao(:, 2,13,16) = (/ & - & 0.61089e+03,0.53454e+03,0.45819e+03,0.38184e+03,0.37288e+03, & - & 0.46566e+03,0.55850e+03,0.65053e+03,0.74557e+03 /) - kao(:, 3,13,16) = (/ & - & 0.61168e+03,0.53523e+03,0.45878e+03,0.38233e+03,0.36190e+03, & - & 0.45112e+03,0.54103e+03,0.63023e+03,0.72223e+03 /) - kao(:, 4,13,16) = (/ & - & 0.61073e+03,0.53440e+03,0.45807e+03,0.38174e+03,0.35168e+03, & - & 0.43693e+03,0.52405e+03,0.61044e+03,0.69951e+03 /) - kao(:, 5,13,16) = (/ & - & 0.60852e+03,0.53247e+03,0.45641e+03,0.38036e+03,0.34198e+03, & - & 0.42302e+03,0.50734e+03,0.59097e+03,0.67714e+03 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:, 1,13, 1) = (/ & - & 0.10554e-06,0.38596e-04,0.65402e-04,0.88540e-04,0.19601e-03 /) - kbo(:, 2,13, 1) = (/ & - & 0.10479e-06,0.43672e-04,0.74889e-04,0.10118e-03,0.22146e-03 /) - kbo(:, 3,13, 1) = (/ & - & 0.10429e-06,0.49418e-04,0.85429e-04,0.11557e-03,0.24448e-03 /) - kbo(:, 4,13, 1) = (/ & - & 0.10232e-06,0.55802e-04,0.96459e-04,0.13167e-03,0.27001e-03 /) - kbo(:, 5,13, 1) = (/ & - & 0.99013e-07,0.62996e-04,0.10900e-03,0.14834e-03,0.29917e-03 /) - kbo(:, 1,14, 1) = (/ & - & 0.85136e-07,0.31943e-04,0.54402e-04,0.73887e-04,0.15895e-03 /) - kbo(:, 2,14, 1) = (/ & - & 0.84597e-07,0.36196e-04,0.62429e-04,0.84479e-04,0.17749e-03 /) - kbo(:, 3,14, 1) = (/ & - & 0.83629e-07,0.40982e-04,0.71126e-04,0.96573e-04,0.19740e-03 /) - kbo(:, 4,14, 1) = (/ & - & 0.82310e-07,0.46344e-04,0.80458e-04,0.10984e-03,0.21847e-03 /) - kbo(:, 5,14, 1) = (/ & - & 0.78709e-07,0.52252e-04,0.90989e-04,0.12394e-03,0.24281e-03 /) - kbo(:, 1,15, 1) = (/ & - & 0.68497e-07,0.26393e-04,0.45164e-04,0.61570e-04,0.12493e-03 /) - kbo(:, 2,15, 1) = (/ & - & 0.68062e-07,0.29936e-04,0.51919e-04,0.70387e-04,0.13953e-03 /) - kbo(:, 3,15, 1) = (/ & - & 0.66766e-07,0.33863e-04,0.59056e-04,0.80693e-04,0.15653e-03 /) - kbo(:, 4,15, 1) = (/ & - & 0.65636e-07,0.38294e-04,0.66885e-04,0.91555e-04,0.17510e-03 /) - kbo(:, 5,15, 1) = (/ & - & 0.62711e-07,0.43189e-04,0.75756e-04,0.10355e-03,0.19439e-03 /) - kbo(:, 1,16, 1) = (/ & - & 0.55083e-07,0.21761e-04,0.37484e-04,0.51301e-04,0.97875e-04 /) - kbo(:, 2,16, 1) = (/ & - & 0.54095e-07,0.24670e-04,0.43084e-04,0.58639e-04,0.10996e-03 /) - kbo(:, 3,16, 1) = (/ & - & 0.53340e-07,0.27925e-04,0.48976e-04,0.67234e-04,0.12415e-03 /) - kbo(:, 4,16, 1) = (/ & - & 0.51412e-07,0.31588e-04,0.55576e-04,0.76352e-04,0.13939e-03 /) - kbo(:, 5,16, 1) = (/ & - & 0.49341e-07,0.35677e-04,0.62937e-04,0.86363e-04,0.15543e-03 /) - kbo(:, 1,17, 1) = (/ & - & 0.44022e-07,0.17963e-04,0.31102e-04,0.42604e-04,0.78290e-04 /) - kbo(:, 2,17, 1) = (/ & - & 0.43167e-07,0.20382e-04,0.35754e-04,0.48875e-04,0.87941e-04 /) - kbo(:, 3,17, 1) = (/ & - & 0.42210e-07,0.23091e-04,0.40674e-04,0.56059e-04,0.99257e-04 /) - kbo(:, 4,17, 1) = (/ & - & 0.40402e-07,0.26125e-04,0.46162e-04,0.63586e-04,0.11166e-03 /) - kbo(:, 5,17, 1) = (/ & - & 0.38532e-07,0.29494e-04,0.52327e-04,0.71960e-04,0.12480e-03 /) - kbo(:, 1,18, 1) = (/ & - & 0.34937e-07,0.14903e-04,0.25868e-04,0.35503e-04,0.63368e-04 /) - kbo(:, 2,18, 1) = (/ & - & 0.34308e-07,0.16923e-04,0.29781e-04,0.40789e-04,0.71115e-04 /) - kbo(:, 3,18, 1) = (/ & - & 0.32995e-07,0.19171e-04,0.33872e-04,0.46810e-04,0.80302e-04 /) - kbo(:, 4,18, 1) = (/ & - & 0.31654e-07,0.21679e-04,0.38468e-04,0.53048e-04,0.90431e-04 /) - kbo(:, 5,18, 1) = (/ & - & 0.30282e-07,0.24491e-04,0.43596e-04,0.60078e-04,0.10133e-03 /) - kbo(:, 1,19, 1) = (/ & - & 0.27971e-07,0.12385e-04,0.21549e-04,0.29618e-04,0.51732e-04 /) - kbo(:, 2,19, 1) = (/ & - & 0.27128e-07,0.14042e-04,0.24826e-04,0.34047e-04,0.58064e-04 /) - kbo(:, 3,19, 1) = (/ & - & 0.26018e-07,0.15920e-04,0.28221e-04,0.39072e-04,0.65495e-04 /) - kbo(:, 4,19, 1) = (/ & - & 0.24717e-07,0.18017e-04,0.32056e-04,0.44285e-04,0.73859e-04 /) - kbo(:, 5,19, 1) = (/ & - & 0.23859e-07,0.20360e-04,0.36341e-04,0.50170e-04,0.82944e-04 /) - kbo(:, 1,20, 1) = (/ & - & 0.22529e-07,0.10336e-04,0.17999e-04,0.24776e-04,0.42602e-04 /) - kbo(:, 2,20, 1) = (/ & - & 0.21733e-07,0.11685e-04,0.20769e-04,0.28503e-04,0.47833e-04 /) - kbo(:, 3,20, 1) = (/ & - & 0.20791e-07,0.13280e-04,0.23571e-04,0.32654e-04,0.53995e-04 /) - kbo(:, 4,20, 1) = (/ & - & 0.19663e-07,0.15029e-04,0.26788e-04,0.37066e-04,0.60944e-04 /) - kbo(:, 5,20, 1) = (/ & - & 0.19169e-07,0.16975e-04,0.30353e-04,0.41996e-04,0.68344e-04 /) - kbo(:, 1,21, 1) = (/ & - & 0.18148e-07,0.86039e-05,0.15041e-04,0.20717e-04,0.35143e-04 /) - kbo(:, 2,21, 1) = (/ & - & 0.17465e-07,0.97287e-05,0.17348e-04,0.23862e-04,0.39508e-04 /) - kbo(:, 3,21, 1) = (/ & - & 0.16537e-07,0.11073e-04,0.19687e-04,0.27271e-04,0.44652e-04 /) - kbo(:, 4,21, 1) = (/ & - & 0.15860e-07,0.12526e-04,0.22388e-04,0.31015e-04,0.50269e-04 /) - kbo(:, 5,21, 1) = (/ & - & 0.15452e-07,0.14158e-04,0.25339e-04,0.35141e-04,0.56327e-04 /) - kbo(:, 1,22, 1) = (/ & - & 0.14542e-07,0.71807e-05,0.12682e-04,0.17473e-04,0.29179e-04 /) - kbo(:, 2,22, 1) = (/ & - & 0.13967e-07,0.81574e-05,0.14550e-04,0.20147e-04,0.32795e-04 /) - kbo(:, 3,22, 1) = (/ & - & 0.13241e-07,0.92839e-05,0.16547e-04,0.22971e-04,0.37036e-04 /) - kbo(:, 4,22, 1) = (/ & - & 0.12746e-07,0.10522e-04,0.18840e-04,0.26114e-04,0.41617e-04 /) - kbo(:, 5,22, 1) = (/ & - & 0.12426e-07,0.11886e-04,0.21313e-04,0.29604e-04,0.46709e-04 /) - kbo(:, 1,23, 1) = (/ & - & 0.11724e-07,0.60196e-05,0.10703e-04,0.14753e-04,0.24143e-04 /) - kbo(:, 2,23, 1) = (/ & - & 0.11124e-07,0.68499e-05,0.12233e-04,0.17009e-04,0.27147e-04 /) - kbo(:, 3,23, 1) = (/ & - & 0.10552e-07,0.77897e-05,0.13927e-04,0.19362e-04,0.30661e-04 /) - kbo(:, 4,23, 1) = (/ & - & 0.10213e-07,0.88398e-05,0.15850e-04,0.22024e-04,0.34519e-04 /) - kbo(:, 5,23, 1) = (/ & - & 0.99627e-08,0.99755e-05,0.17919e-04,0.24944e-04,0.38730e-04 /) - kbo(:, 1,24, 1) = (/ & - & 0.93835e-08,0.50505e-05,0.90298e-05,0.12450e-04,0.19940e-04 /) - kbo(:, 2,24, 1) = (/ & - & 0.88722e-08,0.57494e-05,0.10287e-04,0.14351e-04,0.22450e-04 /) - kbo(:, 3,24, 1) = (/ & - & 0.84719e-08,0.65374e-05,0.11727e-04,0.16329e-04,0.25378e-04 /) - kbo(:, 4,24, 1) = (/ & - & 0.81924e-08,0.74186e-05,0.13334e-04,0.18567e-04,0.28560e-04 /) - kbo(:, 5,24, 1) = (/ & - & 0.79194e-08,0.83719e-05,0.15056e-04,0.21003e-04,0.31990e-04 /) - kbo(:, 1,25, 1) = (/ & - & 0.74535e-08,0.42437e-05,0.76220e-05,0.10523e-04,0.16531e-04 /) - kbo(:, 2,25, 1) = (/ & - & 0.70516e-08,0.48300e-05,0.86667e-05,0.12089e-04,0.18616e-04 /) - kbo(:, 3,25, 1) = (/ & - & 0.67746e-08,0.54941e-05,0.98927e-05,0.13790e-04,0.21024e-04 /) - kbo(:, 4,25, 1) = (/ & - & 0.65375e-08,0.62357e-05,0.11233e-04,0.15662e-04,0.23642e-04 /) - kbo(:, 5,25, 1) = (/ & - & 0.63001e-08,0.70282e-05,0.12669e-04,0.17695e-04,0.26478e-04 /) - kbo(:, 1,26, 1) = (/ & - & 0.59520e-08,0.35739e-05,0.64350e-05,0.89330e-05,0.13754e-04 /) - kbo(:, 2,26, 1) = (/ & - & 0.56644e-08,0.40797e-05,0.73291e-05,0.10228e-04,0.15489e-04 /) - kbo(:, 3,26, 1) = (/ & - & 0.54229e-08,0.46366e-05,0.83664e-05,0.11659e-04,0.17486e-04 /) - kbo(:, 4,26, 1) = (/ & - & 0.52155e-08,0.52546e-05,0.94829e-05,0.13246e-04,0.19643e-04 /) - kbo(:, 5,26, 1) = (/ & - & 0.50026e-08,0.59134e-05,0.10676e-04,0.14933e-04,0.21979e-04 /) - kbo(:, 1,27, 1) = (/ & - & 0.47347e-08,0.30117e-05,0.54223e-05,0.75810e-05,0.11424e-04 /) - kbo(:, 2,27, 1) = (/ & - & 0.45215e-08,0.34421e-05,0.61959e-05,0.86619e-05,0.12884e-04 /) - kbo(:, 3,27, 1) = (/ & - & 0.43334e-08,0.39143e-05,0.70702e-05,0.98761e-05,0.14543e-04 /) - kbo(:, 4,27, 1) = (/ & - & 0.41350e-08,0.44275e-05,0.80005e-05,0.11195e-04,0.16319e-04 /) - kbo(:, 5,27, 1) = (/ & - & 0.39653e-08,0.49769e-05,0.89931e-05,0.12598e-04,0.18160e-04 /) - kbo(:, 1,28, 1) = (/ & - & 0.37948e-08,0.25415e-05,0.45819e-05,0.64336e-05,0.94956e-05 /) - kbo(:, 2,28, 1) = (/ & - & 0.36083e-08,0.29038e-05,0.52426e-05,0.73400e-05,0.10719e-04 /) - kbo(:, 3,28, 1) = (/ & - & 0.34418e-08,0.33017e-05,0.59733e-05,0.83575e-05,0.12066e-04 /) - kbo(:, 4,28, 1) = (/ & - & 0.32636e-08,0.37297e-05,0.67493e-05,0.94558e-05,0.13468e-04 /) - kbo(:, 5,28, 1) = (/ & - & 0.31340e-08,0.41873e-05,0.75759e-05,0.10620e-04,0.14953e-04 /) - kbo(:, 1,29, 1) = (/ & - & 0.30121e-08,0.21536e-05,0.38841e-05,0.54491e-05,0.79090e-05 /) - kbo(:, 2,29, 1) = (/ & - & 0.28775e-08,0.24557e-05,0.44467e-05,0.62247e-05,0.89148e-05 /) - kbo(:, 3,29, 1) = (/ & - & 0.27196e-08,0.27900e-05,0.50543e-05,0.70782e-05,0.99943e-05 /) - kbo(:, 4,29, 1) = (/ & - & 0.25798e-08,0.31473e-05,0.57011e-05,0.79936e-05,0.11135e-04 /) - kbo(:, 5,29, 1) = (/ & - & 0.24785e-08,0.35287e-05,0.63894e-05,0.89624e-05,0.12357e-04 /) - kbo(:, 1,30, 1) = (/ & - & 0.24034e-08,0.18231e-05,0.32945e-05,0.46183e-05,0.65837e-05 /) - kbo(:, 2,30, 1) = (/ & - & 0.22702e-08,0.20766e-05,0.37671e-05,0.52735e-05,0.73875e-05 /) - kbo(:, 3,30, 1) = (/ & - & 0.21551e-08,0.23559e-05,0.42744e-05,0.59932e-05,0.82665e-05 /) - kbo(:, 4,30, 1) = (/ & - & 0.20397e-08,0.26541e-05,0.48137e-05,0.67549e-05,0.92071e-05 /) - kbo(:, 5,30, 1) = (/ & - & 0.19208e-08,0.29711e-05,0.53880e-05,0.75598e-05,0.10211e-04 /) - kbo(:, 1,31, 1) = (/ & - & 0.19116e-08,0.15454e-05,0.27957e-05,0.39228e-05,0.54664e-05 /) - kbo(:, 2,31, 1) = (/ & - & 0.18045e-08,0.17579e-05,0.31938e-05,0.44780e-05,0.61205e-05 /) - kbo(:, 3,31, 1) = (/ & - & 0.17015e-08,0.19911e-05,0.36167e-05,0.50753e-05,0.68523e-05 /) - kbo(:, 4,31, 1) = (/ & - & 0.16042e-08,0.22393e-05,0.40666e-05,0.57094e-05,0.76260e-05 /) - kbo(:, 5,31, 1) = (/ & - & 0.15189e-08,0.25035e-05,0.45439e-05,0.63785e-05,0.84562e-05 /) - kbo(:, 1,32, 1) = (/ & - & 0.15134e-08,0.13080e-05,0.23763e-05,0.33360e-05,0.45382e-05 /) - kbo(:, 2,32, 1) = (/ & - & 0.14254e-08,0.14886e-05,0.27086e-05,0.37995e-05,0.50938e-05 /) - kbo(:, 3,32, 1) = (/ & - & 0.13478e-08,0.16831e-05,0.30605e-05,0.42971e-05,0.56933e-05 /) - kbo(:, 4,32, 1) = (/ & - & 0.12726e-08,0.18904e-05,0.34353e-05,0.48247e-05,0.63353e-05 /) - kbo(:, 5,32, 1) = (/ & - & 0.12027e-08,0.21098e-05,0.38318e-05,0.53809e-05,0.70302e-05 /) - kbo(:, 1,33, 1) = (/ & - & 0.12024e-08,0.11084e-05,0.20193e-05,0.28310e-05,0.37849e-05 /) - kbo(:, 2,33, 1) = (/ & - & 0.11338e-08,0.12605e-05,0.22949e-05,0.32221e-05,0.42458e-05 /) - kbo(:, 3,33, 1) = (/ & - & 0.10678e-08,0.14231e-05,0.25881e-05,0.36365e-05,0.47460e-05 /) - kbo(:, 4,33, 1) = (/ & - & 0.10052e-08,0.15963e-05,0.29010e-05,0.40728e-05,0.52804e-05 /) - kbo(:, 5,33, 1) = (/ & - & 0.95946e-09,0.17779e-05,0.32301e-05,0.45381e-05,0.58547e-05 /) - kbo(:, 1,34, 1) = (/ & - & 0.95750e-09,0.93665e-06,0.17068e-05,0.23954e-05,0.31611e-05 /) - kbo(:, 2,34, 1) = (/ & - & 0.89991e-09,0.10636e-05,0.19366e-05,0.27209e-05,0.35440e-05 /) - kbo(:, 3,34, 1) = (/ & - & 0.84944e-09,0.11994e-05,0.21804e-05,0.30651e-05,0.39600e-05 /) - kbo(:, 4,34, 1) = (/ & - & 0.80863e-09,0.13431e-05,0.24406e-05,0.34285e-05,0.44045e-05 /) - kbo(:, 5,34, 1) = (/ & - & 0.76697e-09,0.14937e-05,0.27138e-05,0.38153e-05,0.48739e-05 /) - kbo(:, 1,35, 1) = (/ & - & 0.76931e-09,0.78145e-06,0.14243e-05,0.20004e-05,0.26088e-05 /) - kbo(:, 2,35, 1) = (/ & - & 0.72554e-09,0.88652e-06,0.16140e-05,0.22684e-05,0.29255e-05 /) - kbo(:, 3,35, 1) = (/ & - & 0.68677e-09,0.99872e-06,0.18159e-05,0.25537e-05,0.32672e-05 /) - kbo(:, 4,35, 1) = (/ & - & 0.64986e-09,0.11178e-05,0.20312e-05,0.28542e-05,0.36304e-05 /) - kbo(:, 5,35, 1) = (/ & - & 0.62177e-09,0.12420e-05,0.22566e-05,0.31737e-05,0.40187e-05 /) - kbo(:, 1,36, 1) = (/ & - & 0.62245e-09,0.64235e-06,0.11709e-05,0.16445e-05,0.21213e-05 /) - kbo(:, 2,36, 1) = (/ & - & 0.58696e-09,0.72876e-06,0.13266e-05,0.18646e-05,0.23798e-05 /) - kbo(:, 3,36, 1) = (/ & - & 0.55693e-09,0.82089e-06,0.14927e-05,0.20991e-05,0.26600e-05 /) - kbo(:, 4,36, 1) = (/ & - & 0.52934e-09,0.91874e-06,0.16695e-05,0.23457e-05,0.29575e-05 /) - kbo(:, 5,36, 1) = (/ & - & 0.50585e-09,0.10210e-05,0.18549e-05,0.26085e-05,0.32758e-05 /) - kbo(:, 1,37, 1) = (/ & - & 0.51156e-09,0.51872e-06,0.94550e-06,0.13287e-05,0.17089e-05 /) - kbo(:, 2,37, 1) = (/ & - & 0.48258e-09,0.58908e-06,0.10722e-05,0.15079e-05,0.19187e-05 /) - kbo(:, 3,37, 1) = (/ & - & 0.45694e-09,0.66421e-06,0.12078e-05,0.16992e-05,0.21456e-05 /) - kbo(:, 4,37, 1) = (/ & - & 0.43502e-09,0.74408e-06,0.13520e-05,0.19000e-05,0.23876e-05 /) - kbo(:, 5,37, 1) = (/ & - & 0.41517e-09,0.82758e-06,0.15034e-05,0.21146e-05,0.26473e-05 /) - kbo(:, 1,38, 1) = (/ & - & 0.42094e-09,0.41837e-06,0.76260e-06,0.10719e-05,0.13756e-05 /) - kbo(:, 2,38, 1) = (/ & - & 0.39700e-09,0.47557e-06,0.86572e-06,0.12180e-05,0.15462e-05 /) - kbo(:, 3,38, 1) = (/ & - & 0.37563e-09,0.53684e-06,0.97613e-06,0.13738e-05,0.17289e-05 /) - kbo(:, 4,38, 1) = (/ & - & 0.35783e-09,0.60193e-06,0.10936e-05,0.15374e-05,0.19252e-05 /) - kbo(:, 5,38, 1) = (/ & - & 0.34107e-09,0.67014e-06,0.12173e-05,0.17127e-05,0.21369e-05 /) - kbo(:, 1,39, 1) = (/ & - & 0.34635e-09,0.33732e-06,0.61492e-06,0.86447e-06,0.11055e-05 /) - kbo(:, 2,39, 1) = (/ & - & 0.32654e-09,0.38383e-06,0.69869e-06,0.98355e-06,0.12440e-05 /) - kbo(:, 3,39, 1) = (/ & - & 0.30909e-09,0.43371e-06,0.78869e-06,0.11105e-05,0.13924e-05 /) - kbo(:, 4,39, 1) = (/ & - & 0.29425e-09,0.48681e-06,0.88446e-06,0.12433e-05,0.15526e-05 /) - kbo(:, 5,39, 1) = (/ & - & 0.28000e-09,0.54256e-06,0.98550e-06,0.13868e-05,0.17238e-05 /) - kbo(:, 1,40, 1) = (/ & - & 0.28731e-09,0.26843e-06,0.48915e-06,0.68810e-06,0.87867e-06 /) - kbo(:, 2,40, 1) = (/ & - & 0.27089e-09,0.30600e-06,0.55698e-06,0.78430e-06,0.99075e-06 /) - kbo(:, 3,40, 1) = (/ & - & 0.25607e-09,0.34624e-06,0.62966e-06,0.88677e-06,0.11107e-05 /) - kbo(:, 4,40, 1) = (/ & - & 0.24372e-09,0.38926e-06,0.70732e-06,0.99430e-06,0.12402e-05 /) - kbo(:, 5,40, 1) = (/ & - & 0.23176e-09,0.43465e-06,0.78943e-06,0.11107e-05,0.13787e-05 /) - kbo(:, 1,41, 1) = (/ & - & 0.23903e-09,0.21323e-06,0.38855e-06,0.54701e-06,0.69781e-06 /) - kbo(:, 2,41, 1) = (/ & - & 0.22487e-09,0.24332e-06,0.44328e-06,0.62397e-06,0.78774e-06 /) - kbo(:, 3,41, 1) = (/ & - & 0.21236e-09,0.27581e-06,0.50170e-06,0.70664e-06,0.88427e-06 /) - kbo(:, 4,41, 1) = (/ & - & 0.20204e-09,0.31066e-06,0.56435e-06,0.79384e-06,0.98899e-06 /) - kbo(:, 5,41, 1) = (/ & - & 0.19209e-09,0.34753e-06,0.63119e-06,0.88787e-06,0.11007e-05 /) - kbo(:, 1,42, 1) = (/ & - & 0.19868e-09,0.16950e-06,0.30885e-06,0.43426e-06,0.55336e-06 /) - kbo(:, 2,42, 1) = (/ & - & 0.18681e-09,0.19338e-06,0.35250e-06,0.49622e-06,0.62628e-06 /) - kbo(:, 3,42, 1) = (/ & - & 0.17649e-09,0.21963e-06,0.39950e-06,0.56269e-06,0.70396e-06 /) - kbo(:, 4,42, 1) = (/ & - & 0.16753e-09,0.24778e-06,0.45013e-06,0.63342e-06,0.78770e-06 /) - kbo(:, 5,42, 1) = (/ & - & 0.15930e-09,0.27772e-06,0.50439e-06,0.70945e-06,0.87783e-06 /) - kbo(:, 1,43, 1) = (/ & - & 0.16577e-09,0.13332e-06,0.24323e-06,0.34184e-06,0.43594e-06 /) - kbo(:, 2,43, 1) = (/ & - & 0.15597e-09,0.15245e-06,0.27801e-06,0.39130e-06,0.49460e-06 /) - kbo(:, 3,43, 1) = (/ & - & 0.14721e-09,0.17354e-06,0.31584e-06,0.44499e-06,0.55705e-06 /) - kbo(:, 4,43, 1) = (/ & - & 0.13936e-09,0.19625e-06,0.35661e-06,0.50189e-06,0.62398e-06 /) - kbo(:, 5,43, 1) = (/ & - & 0.13255e-09,0.22044e-06,0.40034e-06,0.56308e-06,0.69634e-06 /) - kbo(:, 1,44, 1) = (/ & - & 0.13861e-09,0.10445e-06,0.19058e-06,0.26841e-06,0.34233e-06 /) - kbo(:, 2,44, 1) = (/ & - & 0.13027e-09,0.11974e-06,0.21836e-06,0.30744e-06,0.38897e-06 /) - kbo(:, 3,44, 1) = (/ & - & 0.12290e-09,0.13662e-06,0.24864e-06,0.35065e-06,0.43916e-06 /) - kbo(:, 4,44, 1) = (/ & - & 0.11611e-09,0.15484e-06,0.28155e-06,0.39627e-06,0.49273e-06 /) - kbo(:, 5,44, 1) = (/ & - & 0.11042e-09,0.17431e-06,0.31666e-06,0.44540e-06,0.55087e-06 /) - kbo(:, 1,45, 1) = (/ & - & 0.11581e-09,0.81915e-07,0.14915e-06,0.21140e-06,0.26987e-06 /) - kbo(:, 2,45, 1) = (/ & - & 0.10906e-09,0.94077e-07,0.17143e-06,0.24173e-06,0.30586e-06 /) - kbo(:, 3,45, 1) = (/ & - & 0.10254e-09,0.10745e-06,0.19582e-06,0.27606e-06,0.34593e-06 /) - kbo(:, 4,45, 1) = (/ & - & 0.96757e-10,0.12205e-06,0.22201e-06,0.31271e-06,0.38876e-06 /) - kbo(:, 5,45, 1) = (/ & - & 0.91979e-10,0.13772e-06,0.25015e-06,0.35208e-06,0.43561e-06 /) - kbo(:, 1,46, 1) = (/ & - & 0.96889e-10,0.64116e-07,0.11708e-06,0.16455e-06,0.21036e-06 /) - kbo(:, 2,46, 1) = (/ & - & 0.91281e-10,0.73641e-07,0.13436e-06,0.18895e-06,0.23951e-06 /) - kbo(:, 3,46, 1) = (/ & - & 0.85830e-10,0.84161e-07,0.15360e-06,0.21643e-06,0.27176e-06 /) - kbo(:, 4,46, 1) = (/ & - & 0.81048e-10,0.95867e-07,0.17447e-06,0.24582e-06,0.30613e-06 /) - kbo(:, 5,46, 1) = (/ & - & 0.76712e-10,0.10844e-06,0.19706e-06,0.27743e-06,0.34329e-06 /) - kbo(:, 1,47, 1) = (/ & - & 0.81516e-10,0.49698e-07,0.90596e-07,0.12727e-06,0.16313e-06 /) - kbo(:, 2,47, 1) = (/ & - & 0.76609e-10,0.57132e-07,0.10433e-06,0.14694e-06,0.18672e-06 /) - kbo(:, 3,47, 1) = (/ & - & 0.71975e-10,0.65534e-07,0.11955e-06,0.16850e-06,0.21215e-06 /) - kbo(:, 4,47, 1) = (/ & - & 0.67908e-10,0.74829e-07,0.13619e-06,0.19209e-06,0.23959e-06 /) - kbo(:, 5,47, 1) = (/ & - & 0.64117e-10,0.84872e-07,0.15433e-06,0.21733e-06,0.26915e-06 /) - kbo(:, 1,48, 1) = (/ & - & 0.68429e-10,0.38715e-07,0.69854e-07,0.98377e-07,0.12619e-06 /) - kbo(:, 2,48, 1) = (/ & - & 0.64236e-10,0.44375e-07,0.80895e-07,0.11471e-06,0.14604e-06 /) - kbo(:, 3,48, 1) = (/ & - & 0.60510e-10,0.51025e-07,0.92977e-07,0.13123e-06,0.16542e-06 /) - kbo(:, 4,48, 1) = (/ & - & 0.56851e-10,0.58345e-07,0.10633e-06,0.14991e-06,0.18745e-06 /) - kbo(:, 5,48, 1) = (/ & - & 0.53674e-10,0.66346e-07,0.12070e-06,0.17001e-06,0.21095e-06 /) - kbo(:, 1,49, 1) = (/ & - & 0.57387e-10,0.29800e-07,0.53817e-07,0.75906e-07,0.97710e-07 /) - kbo(:, 2,49, 1) = (/ & - & 0.53960e-10,0.34500e-07,0.63205e-07,0.88655e-07,0.11310e-06 /) - kbo(:, 3,49, 1) = (/ & - & 0.50740e-10,0.39684e-07,0.72502e-07,0.10193e-06,0.12892e-06 /) - kbo(:, 4,49, 1) = (/ & - & 0.47710e-10,0.45418e-07,0.82941e-07,0.11692e-06,0.14649e-06 /) - kbo(:, 5,49, 1) = (/ & - & 0.45050e-10,0.51797e-07,0.94320e-07,0.13296e-06,0.16526e-06 /) - kbo(:, 1,50, 1) = (/ & - & 0.48010e-10,0.22999e-07,0.41682e-07,0.58975e-07,0.75898e-07 /) - kbo(:, 2,50, 1) = (/ & - & 0.45282e-10,0.26917e-07,0.48929e-07,0.68765e-07,0.87983e-07 /) - kbo(:, 3,50, 1) = (/ & - & 0.42531e-10,0.30879e-07,0.56406e-07,0.79593e-07,0.10109e-06 /) - kbo(:, 4,50, 1) = (/ & - & 0.40002e-10,0.35470e-07,0.64706e-07,0.91312e-07,0.11473e-06 /) - kbo(:, 5,50, 1) = (/ & - & 0.37674e-10,0.40542e-07,0.73834e-07,0.10412e-06,0.12967e-06 /) - kbo(:, 1,51, 1) = (/ & - & 0.40094e-10,0.17810e-07,0.32412e-07,0.45985e-07,0.59041e-07 /) - kbo(:, 2,51, 1) = (/ & - & 0.37901e-10,0.21013e-07,0.37921e-07,0.53479e-07,0.68479e-07 /) - kbo(:, 3,51, 1) = (/ & - & 0.35584e-10,0.24100e-07,0.43988e-07,0.62409e-07,0.79311e-07 /) - kbo(:, 4,51, 1) = (/ & - & 0.33516e-10,0.27737e-07,0.50544e-07,0.71436e-07,0.89912e-07 /) - kbo(:, 5,51, 1) = (/ & - & 0.31503e-10,0.31738e-07,0.57889e-07,0.81591e-07,0.10195e-06 /) - kbo(:, 1,52, 1) = (/ & - & 0.33462e-10,0.13829e-07,0.25227e-07,0.35498e-07,0.45793e-07 /) - kbo(:, 2,52, 1) = (/ & - & 0.31703e-10,0.16272e-07,0.29393e-07,0.41476e-07,0.53340e-07 /) - kbo(:, 3,52, 1) = (/ & - & 0.29856e-10,0.18836e-07,0.34537e-07,0.48490e-07,0.61791e-07 /) - kbo(:, 4,52, 1) = (/ & - & 0.28038e-10,0.21684e-07,0.39578e-07,0.55751e-07,0.70422e-07 /) - kbo(:, 5,52, 1) = (/ & - & 0.26375e-10,0.24824e-07,0.45389e-07,0.63898e-07,0.80071e-07 /) - kbo(:, 1,53, 1) = (/ & - & 0.27859e-10,0.10757e-07,0.19436e-07,0.27368e-07,0.35401e-07 /) - kbo(:, 2,53, 1) = (/ & - & 0.26482e-10,0.12575e-07,0.22786e-07,0.32275e-07,0.41504e-07 /) - kbo(:, 3,53, 1) = (/ & - & 0.25013e-10,0.14718e-07,0.26786e-07,0.37657e-07,0.48150e-07 /) - kbo(:, 4,53, 1) = (/ & - & 0.23481e-10,0.16890e-07,0.30875e-07,0.43561e-07,0.55284e-07 /) - kbo(:, 5,53, 1) = (/ & - & 0.22103e-10,0.19405e-07,0.35435e-07,0.50046e-07,0.62824e-07 /) - kbo(:, 1,54, 1) = (/ & - & 0.23262e-10,0.83534e-08,0.15033e-07,0.21142e-07,0.27491e-07 /) - kbo(:, 2,54, 1) = (/ & - & 0.22075e-10,0.97821e-08,0.17791e-07,0.25298e-07,0.32447e-07 /) - kbo(:, 3,54, 1) = (/ & - & 0.20887e-10,0.11541e-07,0.20852e-07,0.29392e-07,0.37643e-07 /) - kbo(:, 4,54, 1) = (/ & - & 0.19629e-10,0.13228e-07,0.24164e-07,0.34330e-07,0.43622e-07 /) - kbo(:, 5,54, 1) = (/ & - & 0.18475e-10,0.15233e-07,0.27779e-07,0.39304e-07,0.49432e-07 /) - kbo(:, 1,55, 1) = (/ & - & 0.19360e-10,0.64888e-08,0.11644e-07,0.16387e-07,0.21340e-07 /) - kbo(:, 2,55, 1) = (/ & - & 0.18372e-10,0.76367e-08,0.13947e-07,0.19672e-07,0.25401e-07 /) - kbo(:, 3,55, 1) = (/ & - & 0.17421e-10,0.90083e-08,0.16275e-07,0.22971e-07,0.29522e-07 /) - kbo(:, 4,55, 1) = (/ & - & 0.16413e-10,0.10402e-07,0.19081e-07,0.26854e-07,0.34233e-07 /) - kbo(:, 5,55, 1) = (/ & - & 0.15417e-10,0.11984e-07,0.21835e-07,0.30856e-07,0.38954e-07 /) - kbo(:, 1,56, 1) = (/ & - & 0.16094e-10,0.50174e-08,0.90283e-08,0.12718e-07,0.16576e-07 /) - kbo(:, 2,56, 1) = (/ & - & 0.15265e-10,0.59747e-08,0.10850e-07,0.15297e-07,0.19783e-07 /) - kbo(:, 3,56, 1) = (/ & - & 0.14515e-10,0.70142e-08,0.12699e-07,0.17960e-07,0.23171e-07 /) - kbo(:, 4,56, 1) = (/ & - & 0.13715e-10,0.81626e-08,0.14940e-07,0.20994e-07,0.26865e-07 /) - kbo(:, 5,56, 1) = (/ & - & 0.12880e-10,0.94054e-08,0.17206e-07,0.24221e-07,0.30739e-07 /) - kbo(:, 1,57, 1) = (/ & - & 0.13368e-10,0.38838e-08,0.69991e-08,0.98372e-08,0.12821e-07 /) - kbo(:, 2,57, 1) = (/ & - & 0.12743e-10,0.46751e-08,0.84243e-08,0.11856e-07,0.15406e-07 /) - kbo(:, 3,57, 1) = (/ & - & 0.12087e-10,0.54642e-08,0.99295e-08,0.14069e-07,0.18144e-07 /) - kbo(:, 4,57, 1) = (/ & - & 0.11442e-10,0.64461e-08,0.11657e-07,0.16407e-07,0.21072e-07 /) - kbo(:, 5,57, 1) = (/ & - & 0.10759e-10,0.73711e-08,0.13478e-07,0.19106e-07,0.24314e-07 /) - kbo(:, 1,58, 1) = (/ & - & 0.11081e-10,0.30148e-08,0.54165e-08,0.76421e-08,0.99496e-08 /) - kbo(:, 2,58, 1) = (/ & - & 0.10598e-10,0.36337e-08,0.65375e-08,0.92041e-08,0.12025e-07 /) - kbo(:, 3,58, 1) = (/ & - & 0.10052e-10,0.42712e-08,0.77841e-08,0.11053e-07,0.14306e-07 /) - kbo(:, 4,58, 1) = (/ & - & 0.95308e-11,0.50429e-08,0.91133e-08,0.12865e-07,0.16554e-07 /) - kbo(:, 5,58, 1) = (/ & - & 0.89795e-11,0.57979e-08,0.10615e-07,0.15051e-07,0.19216e-07 /) - kbo(:, 1,59, 1) = (/ & - & 0.91194e-11,0.24214e-08,0.43496e-08,0.61531e-08,0.80136e-08 /) - kbo(:, 2,59, 1) = (/ & - & 0.87287e-11,0.29232e-08,0.52535e-08,0.73966e-08,0.96830e-08 /) - kbo(:, 3,59, 1) = (/ & - & 0.82765e-11,0.34412e-08,0.62788e-08,0.88992e-08,0.11534e-07 /) - kbo(:, 4,59, 1) = (/ & - & 0.78605e-11,0.40632e-08,0.73454e-08,0.10382e-07,0.13372e-07 /) - kbo(:, 5,59, 1) = (/ & - & 0.74127e-11,0.46801e-08,0.85910e-08,0.12137e-07,0.15530e-07 /) - kbo(:, 1,13, 2) = (/ & - & 0.17576e-05,0.22518e-03,0.36398e-03,0.46505e-03,0.97920e-03 /) - kbo(:, 2,13, 2) = (/ & - & 0.19522e-05,0.25688e-03,0.42724e-03,0.54293e-03,0.11261e-02 /) - kbo(:, 3,13, 2) = (/ & - & 0.21134e-05,0.29382e-03,0.49778e-03,0.63186e-03,0.12961e-02 /) - kbo(:, 4,13, 2) = (/ & - & 0.22680e-05,0.33585e-03,0.57095e-03,0.73149e-03,0.14857e-02 /) - kbo(:, 5,13, 2) = (/ & - & 0.23939e-05,0.38326e-03,0.64688e-03,0.84120e-03,0.16815e-02 /) - kbo(:, 1,14, 2) = (/ & - & 0.13866e-05,0.18816e-03,0.30541e-03,0.39082e-03,0.80614e-03 /) - kbo(:, 2,14, 2) = (/ & - & 0.14825e-05,0.21525e-03,0.35906e-03,0.45772e-03,0.92976e-03 /) - kbo(:, 3,14, 2) = (/ & - & 0.16428e-05,0.24664e-03,0.41891e-03,0.53341e-03,0.10689e-02 /) - kbo(:, 4,14, 2) = (/ & - & 0.17807e-05,0.28218e-03,0.48021e-03,0.61861e-03,0.12236e-02 /) - kbo(:, 5,14, 2) = (/ & - & 0.18685e-05,0.32204e-03,0.54385e-03,0.71223e-03,0.13844e-02 /) - kbo(:, 1,15, 2) = (/ & - & 0.10483e-05,0.15699e-03,0.25571e-03,0.32803e-03,0.65873e-03 /) - kbo(:, 2,15, 2) = (/ & - & 0.11310e-05,0.18016e-03,0.30071e-03,0.38534e-03,0.75916e-03 /) - kbo(:, 3,15, 2) = (/ & - & 0.12330e-05,0.20672e-03,0.35181e-03,0.44940e-03,0.87041e-03 /) - kbo(:, 4,15, 2) = (/ & - & 0.13426e-05,0.23650e-03,0.40292e-03,0.52246e-03,0.99445e-03 /) - kbo(:, 5,15, 2) = (/ & - & 0.14514e-05,0.26979e-03,0.45684e-03,0.60195e-03,0.11173e-02 /) - kbo(:, 1,16, 2) = (/ & - & 0.80663e-06,0.13098e-03,0.21382e-03,0.27539e-03,0.53727e-03 /) - kbo(:, 2,16, 2) = (/ & - & 0.85747e-06,0.15058e-03,0.25201e-03,0.32406e-03,0.61573e-03 /) - kbo(:, 3,16, 2) = (/ & - & 0.92435e-06,0.17283e-03,0.29542e-03,0.37879e-03,0.70140e-03 /) - kbo(:, 4,16, 2) = (/ & - & 0.99747e-06,0.19793e-03,0.33807e-03,0.44076e-03,0.79468e-03 /) - kbo(:, 5,16, 2) = (/ & - & 0.10819e-05,0.22582e-03,0.38354e-03,0.50663e-03,0.88980e-03 /) - kbo(:, 1,17, 2) = (/ & - & 0.61772e-06,0.10941e-03,0.17926e-03,0.23144e-03,0.43554e-03 /) - kbo(:, 2,17, 2) = (/ & - & 0.65718e-06,0.12576e-03,0.21174e-03,0.27275e-03,0.49750e-03 /) - kbo(:, 3,17, 2) = (/ & - & 0.69949e-06,0.14461e-03,0.24852e-03,0.31937e-03,0.56462e-03 /) - kbo(:, 4,17, 2) = (/ & - & 0.75387e-06,0.16580e-03,0.28374e-03,0.37213e-03,0.63507e-03 /) - kbo(:, 5,17, 2) = (/ & - & 0.79715e-06,0.18926e-03,0.32236e-03,0.42588e-03,0.70728e-03 /) - kbo(:, 1,18, 2) = (/ & - & 0.47188e-06,0.91952e-04,0.15100e-03,0.19495e-03,0.35543e-03 /) - kbo(:, 2,18, 2) = (/ & - & 0.50937e-06,0.10513e-03,0.17852e-03,0.22999e-03,0.40250e-03 /) - kbo(:, 3,18, 2) = (/ & - & 0.54206e-06,0.12130e-03,0.20959e-03,0.26979e-03,0.45662e-03 /) - kbo(:, 4,18, 2) = (/ & - & 0.57328e-06,0.13936e-03,0.23815e-03,0.31451e-03,0.51113e-03 /) - kbo(:, 5,18, 2) = (/ & - & 0.61077e-06,0.15916e-03,0.27075e-03,0.35967e-03,0.57076e-03 /) - kbo(:, 1,19, 2) = (/ & - & 0.36005e-06,0.76984e-04,0.12743e-03,0.16422e-03,0.28885e-03 /) - kbo(:, 2,19, 2) = (/ & - & 0.38988e-06,0.88029e-04,0.15067e-03,0.19396e-03,0.32854e-03 /) - kbo(:, 3,19, 2) = (/ & - & 0.41989e-06,0.10172e-03,0.17539e-03,0.22784e-03,0.37045e-03 /) - kbo(:, 4,19, 2) = (/ & - & 0.44092e-06,0.11727e-03,0.20004e-03,0.26592e-03,0.41598e-03 /) - kbo(:, 5,19, 2) = (/ & - & 0.46883e-06,0.13386e-03,0.22769e-03,0.30285e-03,0.46550e-03 /) - kbo(:, 1,20, 2) = (/ & - & 0.27908e-06,0.64450e-04,0.10795e-03,0.13889e-03,0.23878e-03 /) - kbo(:, 2,20, 2) = (/ & - & 0.30934e-06,0.74187e-04,0.12773e-03,0.16417e-03,0.27017e-03 /) - kbo(:, 3,20, 2) = (/ & - & 0.33086e-06,0.85801e-04,0.14782e-03,0.19307e-03,0.30508e-03 /) - kbo(:, 4,20, 2) = (/ & - & 0.35058e-06,0.98861e-04,0.16868e-03,0.22508e-03,0.34249e-03 /) - kbo(:, 5,20, 2) = (/ & - & 0.37069e-06,0.11306e-03,0.19188e-03,0.25601e-03,0.38519e-03 /) - kbo(:, 1,21, 2) = (/ & - & 0.22418e-06,0.54095e-04,0.91414e-04,0.11757e-03,0.19697e-03 /) - kbo(:, 2,21, 2) = (/ & - & 0.24559e-06,0.62567e-04,0.10819e-03,0.13908e-03,0.22284e-03 /) - kbo(:, 3,21, 2) = (/ & - & 0.26169e-06,0.72383e-04,0.12481e-03,0.16368e-03,0.25205e-03 /) - kbo(:, 4,21, 2) = (/ & - & 0.27885e-06,0.83446e-04,0.14258e-03,0.18910e-03,0.28386e-03 /) - kbo(:, 5,21, 2) = (/ & - & 0.29344e-06,0.95540e-04,0.16198e-03,0.21609e-03,0.31947e-03 /) - kbo(:, 1,22, 2) = (/ & - & 0.17941e-06,0.45830e-04,0.78176e-04,0.10061e-03,0.16313e-03 /) - kbo(:, 2,22, 2) = (/ & - & 0.19397e-06,0.53139e-04,0.92556e-04,0.11901e-03,0.18482e-03 /) - kbo(:, 3,22, 2) = (/ & - & 0.20707e-06,0.61593e-04,0.10579e-03,0.14008e-03,0.20965e-03 /) - kbo(:, 4,22, 2) = (/ & - & 0.22071e-06,0.71016e-04,0.12100e-03,0.16128e-03,0.23661e-03 /) - kbo(:, 5,22, 2) = (/ & - & 0.23148e-06,0.81286e-04,0.13795e-03,0.18401e-03,0.26580e-03 /) - kbo(:, 1,23, 2) = (/ & - & 0.14291e-06,0.38825e-04,0.66866e-04,0.86140e-04,0.13511e-03 /) - kbo(:, 2,23, 2) = (/ & - & 0.15179e-06,0.45135e-04,0.78450e-04,0.10194e-03,0.15369e-03 /) - kbo(:, 3,23, 2) = (/ & - & 0.16326e-06,0.52399e-04,0.89919e-04,0.12001e-03,0.17441e-03 /) - kbo(:, 4,23, 2) = (/ & - & 0.17307e-06,0.60440e-04,0.10293e-03,0.13735e-03,0.19668e-03 /) - kbo(:, 5,23, 2) = (/ & - & 0.18137e-06,0.69189e-04,0.11759e-03,0.15651e-03,0.21998e-03 /) - kbo(:, 1,24, 2) = (/ & - & 0.11245e-06,0.32862e-04,0.57166e-04,0.73828e-04,0.11185e-03 /) - kbo(:, 2,24, 2) = (/ & - & 0.11958e-06,0.38281e-04,0.66635e-04,0.87390e-04,0.12740e-03 /) - kbo(:, 3,24, 2) = (/ & - & 0.12702e-06,0.44519e-04,0.76606e-04,0.10190e-03,0.14418e-03 /) - kbo(:, 4,24, 2) = (/ & - & 0.13467e-06,0.51373e-04,0.87622e-04,0.11700e-03,0.16205e-03 /) - kbo(:, 5,24, 2) = (/ & - & 0.14120e-06,0.58874e-04,0.10019e-03,0.13348e-03,0.18188e-03 /) - kbo(:, 1,25, 2) = (/ & - & 0.88242e-07,0.27950e-04,0.49010e-04,0.63434e-04,0.92877e-04 /) - kbo(:, 2,25, 2) = (/ & - & 0.94383e-07,0.32610e-04,0.56690e-04,0.75114e-04,0.10531e-03 /) - kbo(:, 3,25, 2) = (/ & - & 0.99712e-07,0.37929e-04,0.65204e-04,0.87113e-04,0.11931e-03 /) - kbo(:, 4,25, 2) = (/ & - & 0.10473e-06,0.43778e-04,0.74805e-04,0.99950e-04,0.13427e-03 /) - kbo(:, 5,25, 2) = (/ & - & 0.10988e-06,0.50229e-04,0.85598e-04,0.11406e-03,0.15050e-03 /) - kbo(:, 1,26, 2) = (/ & - & 0.69696e-07,0.23895e-04,0.42166e-04,0.54733e-04,0.77146e-04 /) - kbo(:, 2,26, 2) = (/ & - & 0.74390e-07,0.27921e-04,0.48387e-04,0.64817e-04,0.87607e-04 /) - kbo(:, 3,26, 2) = (/ & - & 0.78856e-07,0.32497e-04,0.55692e-04,0.74691e-04,0.99387e-04 /) - kbo(:, 4,26, 2) = (/ & - & 0.83253e-07,0.37491e-04,0.64130e-04,0.85609e-04,0.11193e-03 /) - kbo(:, 5,26, 2) = (/ & - & 0.87675e-07,0.43011e-04,0.73398e-04,0.97828e-04,0.12574e-03 /) - kbo(:, 1,27, 2) = (/ & - & 0.54619e-07,0.20469e-04,0.35869e-04,0.47259e-04,0.64151e-04 /) - kbo(:, 2,27, 2) = (/ & - & 0.58657e-07,0.23925e-04,0.41468e-04,0.55499e-04,0.72911e-04 /) - kbo(:, 3,27, 2) = (/ & - & 0.62532e-07,0.27839e-04,0.47735e-04,0.63985e-04,0.82955e-04 /) - kbo(:, 4,27, 2) = (/ & - & 0.66184e-07,0.32141e-04,0.55001e-04,0.73456e-04,0.93567e-04 /) - kbo(:, 5,27, 2) = (/ & - & 0.69305e-07,0.36605e-04,0.62968e-04,0.83938e-04,0.10517e-03 /) - kbo(:, 1,28, 2) = (/ & - & 0.43348e-07,0.17476e-04,0.30692e-04,0.40803e-04,0.53271e-04 /) - kbo(:, 2,28, 2) = (/ & - & 0.46348e-07,0.20496e-04,0.35498e-04,0.47629e-04,0.60809e-04 /) - kbo(:, 3,28, 2) = (/ & - & 0.49507e-07,0.23857e-04,0.40974e-04,0.54947e-04,0.69222e-04 /) - kbo(:, 4,28, 2) = (/ & - & 0.52419e-07,0.27560e-04,0.47205e-04,0.63044e-04,0.78123e-04 /) - kbo(:, 5,28, 2) = (/ & - & 0.54842e-07,0.31094e-04,0.54028e-04,0.72116e-04,0.87834e-04 /) - kbo(:, 1,29, 2) = (/ & - & 0.34480e-07,0.15027e-04,0.26268e-04,0.35358e-04,0.44711e-04 /) - kbo(:, 2,29, 2) = (/ & - & 0.36985e-07,0.17638e-04,0.30405e-04,0.40938e-04,0.51054e-04 /) - kbo(:, 3,29, 2) = (/ & - & 0.39476e-07,0.20512e-04,0.35237e-04,0.47207e-04,0.58034e-04 /) - kbo(:, 4,29, 2) = (/ & - & 0.41650e-07,0.23694e-04,0.40586e-04,0.54286e-04,0.65708e-04 /) - kbo(:, 5,29, 2) = (/ & - & 0.43693e-07,0.26438e-04,0.46467e-04,0.62035e-04,0.73872e-04 /) - kbo(:, 1,30, 2) = (/ & - & 0.27402e-07,0.12932e-04,0.22585e-04,0.30365e-04,0.37471e-04 /) - kbo(:, 2,30, 2) = (/ & - & 0.29377e-07,0.15183e-04,0.26158e-04,0.35195e-04,0.42867e-04 /) - kbo(:, 3,30, 2) = (/ & - & 0.31353e-07,0.17658e-04,0.30343e-04,0.40606e-04,0.48858e-04 /) - kbo(:, 4,30, 2) = (/ & - & 0.33056e-07,0.20286e-04,0.34924e-04,0.46735e-04,0.55329e-04 /) - kbo(:, 5,30, 2) = (/ & - & 0.34673e-07,0.22451e-04,0.39717e-04,0.53329e-04,0.62151e-04 /) - kbo(:, 1,31, 2) = (/ & - & 0.21716e-07,0.11156e-04,0.19427e-04,0.26169e-04,0.31512e-04 /) - kbo(:, 2,31, 2) = (/ & - & 0.23313e-07,0.13091e-04,0.22568e-04,0.30377e-04,0.36216e-04 /) - kbo(:, 3,31, 2) = (/ & - & 0.24803e-07,0.15221e-04,0.26157e-04,0.35050e-04,0.41256e-04 /) - kbo(:, 4,31, 2) = (/ & - & 0.26260e-07,0.17277e-04,0.30091e-04,0.40288e-04,0.46693e-04 /) - kbo(:, 5,31, 2) = (/ & - & 0.27334e-07,0.19159e-04,0.33773e-04,0.45892e-04,0.52314e-04 /) - kbo(:, 1,32, 2) = (/ & - & 0.17123e-07,0.96453e-05,0.16688e-04,0.22528e-04,0.26648e-04 /) - kbo(:, 2,32, 2) = (/ & - & 0.18489e-07,0.11305e-04,0.19464e-04,0.26137e-04,0.30617e-04 /) - kbo(:, 3,32, 2) = (/ & - & 0.19621e-07,0.13143e-04,0.22554e-04,0.30238e-04,0.34876e-04 /) - kbo(:, 4,32, 2) = (/ & - & 0.20653e-07,0.14698e-04,0.25928e-04,0.34712e-04,0.39398e-04 /) - kbo(:, 5,32, 2) = (/ & - & 0.21500e-07,0.16315e-04,0.28651e-04,0.39302e-04,0.44097e-04 /) - kbo(:, 1,33, 2) = (/ & - & 0.13414e-07,0.83355e-05,0.14409e-04,0.19461e-04,0.22582e-04 /) - kbo(:, 2,33, 2) = (/ & - & 0.14456e-07,0.97647e-05,0.16818e-04,0.22578e-04,0.25923e-04 /) - kbo(:, 3,33, 2) = (/ & - & 0.15416e-07,0.11250e-04,0.19451e-04,0.26119e-04,0.29482e-04 /) - kbo(:, 4,33, 2) = (/ & - & 0.16184e-07,0.12520e-04,0.22064e-04,0.29911e-04,0.33230e-04 /) - kbo(:, 5,33, 2) = (/ & - & 0.16861e-07,0.13810e-04,0.24332e-04,0.33363e-04,0.37135e-04 /) - kbo(:, 1,34, 2) = (/ & - & 0.10575e-07,0.71786e-05,0.12407e-04,0.16719e-04,0.19158e-04 /) - kbo(:, 2,34, 2) = (/ & - & 0.11328e-07,0.84093e-05,0.14457e-04,0.19433e-04,0.21940e-04 /) - kbo(:, 3,34, 2) = (/ & - & 0.12049e-07,0.95860e-05,0.16718e-04,0.22425e-04,0.24932e-04 /) - kbo(:, 4,34, 2) = (/ & - & 0.12689e-07,0.10655e-04,0.18771e-04,0.25647e-04,0.28065e-04 /) - kbo(:, 5,34, 2) = (/ & - & 0.13241e-07,0.11703e-04,0.20628e-04,0.28184e-04,0.31323e-04 /) - kbo(:, 1,35, 2) = (/ & - & 0.82489e-08,0.60850e-05,0.10505e-04,0.14140e-04,0.16004e-04 /) - kbo(:, 2,35, 2) = (/ & - & 0.88532e-08,0.71306e-05,0.12250e-04,0.16463e-04,0.18333e-04 /) - kbo(:, 3,35, 2) = (/ & - & 0.93468e-08,0.80269e-05,0.14158e-04,0.18989e-04,0.20835e-04 /) - kbo(:, 4,35, 2) = (/ & - & 0.98478e-08,0.89450e-05,0.15691e-04,0.21576e-04,0.23428e-04 /) - kbo(:, 5,35, 2) = (/ & - & 0.10332e-07,0.98354e-05,0.17293e-04,0.23618e-04,0.26128e-04 /) - kbo(:, 1,36, 2) = (/ & - & 0.63951e-08,0.50545e-05,0.87378e-05,0.11778e-04,0.13176e-04 /) - kbo(:, 2,36, 2) = (/ & - & 0.68252e-08,0.59348e-05,0.10193e-04,0.13730e-04,0.15104e-04 /) - kbo(:, 3,36, 2) = (/ & - & 0.72445e-08,0.66480e-05,0.11783e-04,0.15832e-04,0.17160e-04 /) - kbo(:, 4,36, 2) = (/ & - & 0.75871e-08,0.73960e-05,0.13005e-04,0.17866e-04,0.19295e-04 /) - kbo(:, 5,36, 2) = (/ & - & 0.79075e-08,0.81558e-05,0.14306e-04,0.19617e-04,0.21532e-04 /) - kbo(:, 1,37, 2) = (/ & - & 0.50574e-08,0.41215e-05,0.71249e-05,0.95923e-05,0.10686e-04 /) - kbo(:, 2,37, 2) = (/ & - & 0.53967e-08,0.48518e-05,0.83286e-05,0.11206e-04,0.12269e-04 /) - kbo(:, 3,37, 2) = (/ & - & 0.57517e-08,0.54411e-05,0.96383e-05,0.12942e-04,0.13958e-04 /) - kbo(:, 4,37, 2) = (/ & - & 0.60273e-08,0.60590e-05,0.10644e-04,0.14619e-04,0.15714e-04 /) - kbo(:, 5,37, 2) = (/ & - & 0.62775e-08,0.66900e-05,0.11723e-04,0.16077e-04,0.17560e-04 /) - kbo(:, 1,38, 2) = (/ & - & 0.39948e-08,0.33535e-05,0.57976e-05,0.77989e-05,0.86548e-05 /) - kbo(:, 2,38, 2) = (/ & - & 0.42642e-08,0.39584e-05,0.67932e-05,0.91290e-05,0.99507e-05 /) - kbo(:, 3,38, 2) = (/ & - & 0.45529e-08,0.44478e-05,0.78746e-05,0.10563e-04,0.11338e-04 /) - kbo(:, 4,38, 2) = (/ & - & 0.47911e-08,0.49592e-05,0.87019e-05,0.11950e-04,0.12783e-04 /) - kbo(:, 5,38, 2) = (/ & - & 0.49959e-08,0.54820e-05,0.95964e-05,0.13155e-04,0.14308e-04 /) - kbo(:, 1,39, 2) = (/ & - & 0.31607e-08,0.27260e-05,0.47143e-05,0.63381e-05,0.70094e-05 /) - kbo(:, 2,39, 2) = (/ & - & 0.33771e-08,0.32263e-05,0.55352e-05,0.74322e-05,0.80695e-05 /) - kbo(:, 3,39, 2) = (/ & - & 0.35907e-08,0.36316e-05,0.64256e-05,0.86133e-05,0.92019e-05 /) - kbo(:, 4,39, 2) = (/ & - & 0.37920e-08,0.40555e-05,0.71128e-05,0.97677e-05,0.10392e-04 /) - kbo(:, 5,39, 2) = (/ & - & 0.39687e-08,0.44882e-05,0.78499e-05,0.10753e-04,0.11647e-04 /) - kbo(:, 1,40, 2) = (/ & - & 0.25137e-08,0.21782e-05,0.37700e-05,0.50636e-05,0.55872e-05 /) - kbo(:, 2,40, 2) = (/ & - & 0.26953e-08,0.25872e-05,0.44411e-05,0.59538e-05,0.64693e-05 /) - kbo(:, 3,40, 2) = (/ & - & 0.28738e-08,0.29415e-05,0.51697e-05,0.69217e-05,0.73806e-05 /) - kbo(:, 4,40, 2) = (/ & - & 0.30365e-08,0.32887e-05,0.57574e-05,0.79115e-05,0.83547e-05 /) - kbo(:, 5,40, 2) = (/ & - & 0.31827e-08,0.36391e-05,0.63730e-05,0.87114e-05,0.93854e-05 /) - kbo(:, 1,41, 2) = (/ & - & 0.20049e-08,0.17350e-05,0.30089e-05,0.40342e-05,0.44437e-05 /) - kbo(:, 2,41, 2) = (/ & - & 0.21522e-08,0.20685e-05,0.35532e-05,0.47542e-05,0.51577e-05 /) - kbo(:, 3,41, 2) = (/ & - & 0.22978e-08,0.23716e-05,0.41490e-05,0.55459e-05,0.59029e-05 /) - kbo(:, 4,41, 2) = (/ & - & 0.24277e-08,0.26608e-05,0.46585e-05,0.63928e-05,0.67015e-05 /) - kbo(:, 5,41, 2) = (/ & - & 0.25592e-08,0.29434e-05,0.51614e-05,0.70376e-05,0.75472e-05 /) - kbo(:, 1,42, 2) = (/ & - & 0.16007e-08,0.13793e-05,0.23939e-05,0.32203e-05,0.35347e-05 /) - kbo(:, 2,42, 2) = (/ & - & 0.17182e-08,0.16509e-05,0.28388e-05,0.37950e-05,0.41069e-05 /) - kbo(:, 3,42, 2) = (/ & - & 0.18364e-08,0.19058e-05,0.33250e-05,0.44386e-05,0.47169e-05 /) - kbo(:, 4,42, 2) = (/ & - & 0.19459e-08,0.21436e-05,0.37676e-05,0.51389e-05,0.53710e-05 /) - kbo(:, 5,42, 2) = (/ & - & 0.20555e-08,0.23781e-05,0.41722e-05,0.56915e-05,0.60613e-05 /) - kbo(:, 1,43, 2) = (/ & - & 0.12763e-08,0.10855e-05,0.18842e-05,0.25355e-05,0.27894e-05 /) - kbo(:, 2,43, 2) = (/ & - & 0.13693e-08,0.13038e-05,0.22434e-05,0.29991e-05,0.32452e-05 /) - kbo(:, 3,43, 2) = (/ & - & 0.14669e-08,0.15227e-05,0.26394e-05,0.35195e-05,0.37403e-05 /) - kbo(:, 4,43, 2) = (/ & - & 0.15621e-08,0.17145e-05,0.30188e-05,0.40881e-05,0.42757e-05 /) - kbo(:, 5,43, 2) = (/ & - & 0.16467e-08,0.19093e-05,0.33481e-05,0.45768e-05,0.48357e-05 /) - kbo(:, 1,44, 2) = (/ & - & 0.10164e-08,0.84908e-06,0.14741e-05,0.19864e-05,0.21744e-05 /) - kbo(:, 2,44, 2) = (/ & - & 0.10926e-08,0.10232e-05,0.17642e-05,0.23536e-05,0.25562e-05 /) - kbo(:, 3,44, 2) = (/ & - & 0.11717e-08,0.12156e-05,0.20836e-05,0.27750e-05,0.29547e-05 /) - kbo(:, 4,44, 2) = (/ & - & 0.12502e-08,0.13671e-05,0.24149e-05,0.32374e-05,0.33856e-05 /) - kbo(:, 5,44, 2) = (/ & - & 0.13204e-08,0.15290e-05,0.26801e-05,0.36631e-05,0.38430e-05 /) - kbo(:, 1,45, 2) = (/ & - & 0.80967e-09,0.66247e-06,0.11525e-05,0.15557e-05,0.16911e-05 /) - kbo(:, 2,45, 2) = (/ & - & 0.87091e-09,0.80114e-06,0.13838e-05,0.18457e-05,0.20071e-05 /) - kbo(:, 3,45, 2) = (/ & - & 0.93471e-09,0.96063e-06,0.16414e-05,0.21862e-05,0.23357e-05 /) - kbo(:, 4,45, 2) = (/ & - & 0.99996e-09,0.10898e-05,0.19287e-05,0.25587e-05,0.26765e-05 /) - kbo(:, 5,45, 2) = (/ & - & 0.10594e-08,0.12255e-05,0.21437e-05,0.29239e-05,0.30491e-05 /) - kbo(:, 1,46, 2) = (/ & - & 0.64438e-09,0.51408e-06,0.89692e-06,0.12176e-05,0.13094e-05 /) - kbo(:, 2,46, 2) = (/ & - & 0.69338e-09,0.62335e-06,0.10783e-05,0.14408e-05,0.15697e-05 /) - kbo(:, 3,46, 2) = (/ & - & 0.74249e-09,0.75197e-06,0.12859e-05,0.17116e-05,0.18286e-05 /) - kbo(:, 4,46, 2) = (/ & - & 0.79710e-09,0.86785e-06,0.15182e-05,0.20117e-05,0.21072e-05 /) - kbo(:, 5,46, 2) = (/ & - & 0.84966e-09,0.97923e-06,0.17156e-05,0.23354e-05,0.24096e-05 /) - kbo(:, 1,47, 2) = (/ & - & 0.51236e-09,0.39483e-06,0.69100e-06,0.94871e-06,0.10050e-05 /) - kbo(:, 2,47, 2) = (/ & - & 0.55075e-09,0.48075e-06,0.83326e-06,0.11171e-05,0.12169e-05 /) - kbo(:, 3,47, 2) = (/ & - & 0.59153e-09,0.58279e-06,0.99922e-06,0.13307e-05,0.14227e-05 /) - kbo(:, 4,47, 2) = (/ & - & 0.63485e-09,0.68347e-06,0.11845e-05,0.15696e-05,0.16474e-05 /) - kbo(:, 5,47, 2) = (/ & - & 0.67833e-09,0.77359e-06,0.13593e-05,0.18329e-05,0.18933e-05 /) - kbo(:, 1,48, 2) = (/ & - & 0.40749e-09,0.30162e-06,0.53408e-06,0.72777e-06,0.76768e-06 /) - kbo(:, 2,48, 2) = (/ & - & 0.43682e-09,0.36975e-06,0.64201e-06,0.86174e-06,0.93334e-06 /) - kbo(:, 3,48, 2) = (/ & - & 0.46981e-09,0.45015e-06,0.77460e-06,0.10306e-05,0.11092e-05 /) - kbo(:, 4,48, 2) = (/ & - & 0.50302e-09,0.53912e-06,0.92171e-06,0.12225e-05,0.12874e-05 /) - kbo(:, 5,48, 2) = (/ & - & 0.53999e-09,0.61013e-06,0.10790e-05,0.14334e-05,0.14828e-05 /) - kbo(:, 1,49, 2) = (/ & - & 0.32288e-09,0.23115e-06,0.41625e-06,0.55318e-06,0.58476e-06 /) - kbo(:, 2,49, 2) = (/ & - & 0.34731e-09,0.28355e-06,0.49493e-06,0.66850e-06,0.71600e-06 /) - kbo(:, 3,49, 2) = (/ & - & 0.37310e-09,0.34682e-06,0.59820e-06,0.79617e-06,0.85985e-06 /) - kbo(:, 4,49, 2) = (/ & - & 0.39975e-09,0.42034e-06,0.71527e-06,0.95046e-06,0.10041e-05 /) - kbo(:, 5,49, 2) = (/ & - & 0.42970e-09,0.48341e-06,0.84829e-06,0.11191e-05,0.11582e-05 /) - kbo(:, 1,50, 2) = (/ & - & 0.25646e-09,0.17743e-06,0.32423e-06,0.42175e-06,0.44754e-06 /) - kbo(:, 2,50, 2) = (/ & - & 0.27669e-09,0.21856e-06,0.38220e-06,0.52102e-06,0.55141e-06 /) - kbo(:, 3,50, 2) = (/ & - & 0.29654e-09,0.26808e-06,0.46375e-06,0.61921e-06,0.67025e-06 /) - kbo(:, 4,50, 2) = (/ & - & 0.31872e-09,0.32662e-06,0.55687e-06,0.73985e-06,0.78291e-06 /) - kbo(:, 5,50, 2) = (/ & - & 0.34198e-09,0.38136e-06,0.66385e-06,0.87591e-06,0.90771e-06 /) - kbo(:, 1,51, 2) = (/ & - & 0.20472e-09,0.13694e-06,0.24726e-06,0.32216e-06,0.34229e-06 /) - kbo(:, 2,51, 2) = (/ & - & 0.22054e-09,0.16842e-06,0.29646e-06,0.40635e-06,0.42402e-06 /) - kbo(:, 3,51, 2) = (/ & - & 0.23653e-09,0.20731e-06,0.35913e-06,0.48027e-06,0.51714e-06 /) - kbo(:, 4,51, 2) = (/ & - & 0.25402e-09,0.25379e-06,0.43377e-06,0.57689e-06,0.61228e-06 /) - kbo(:, 5,51, 2) = (/ & - & 0.27233e-09,0.30202e-06,0.51940e-06,0.68626e-06,0.71146e-06 /) - kbo(:, 1,52, 2) = (/ & - & 0.16428e-09,0.10687e-06,0.18803e-06,0.24517e-06,0.26090e-06 /) - kbo(:, 2,52, 2) = (/ & - & 0.17520e-09,0.12978e-06,0.23025e-06,0.31106e-06,0.32512e-06 /) - kbo(:, 3,52, 2) = (/ & - & 0.18865e-09,0.15994e-06,0.27726e-06,0.37261e-06,0.39888e-06 /) - kbo(:, 4,52, 2) = (/ & - & 0.20265e-09,0.19670e-06,0.33708e-06,0.44845e-06,0.47779e-06 /) - kbo(:, 5,52, 2) = (/ & - & 0.21711e-09,0.23739e-06,0.40528e-06,0.53668e-06,0.55828e-06 /) - kbo(:, 1,53, 2) = (/ & - & 0.13206e-09,0.82677e-07,0.14284e-06,0.18640e-06,0.19898e-06 /) - kbo(:, 2,53, 2) = (/ & - & 0.13938e-09,0.99597e-07,0.18095e-06,0.23725e-06,0.24911e-06 /) - kbo(:, 3,53, 2) = (/ & - & 0.15056e-09,0.12309e-06,0.21494e-06,0.29026e-06,0.30720e-06 /) - kbo(:, 4,53, 2) = (/ & - & 0.16136e-09,0.15205e-06,0.26147e-06,0.34774e-06,0.37331e-06 /) - kbo(:, 5,53, 2) = (/ & - & 0.17318e-09,0.18547e-06,0.31566e-06,0.41857e-06,0.43649e-06 /) - kbo(:, 1,54, 2) = (/ & - & 0.10628e-09,0.63529e-07,0.10938e-06,0.14285e-06,0.15281e-06 /) - kbo(:, 2,54, 2) = (/ & - & 0.11181e-09,0.77068e-07,0.14036e-06,0.18201e-06,0.19163e-06 /) - kbo(:, 3,54, 2) = (/ & - & 0.11992e-09,0.95387e-07,0.16692e-06,0.22878e-06,0.23824e-06 /) - kbo(:, 4,54, 2) = (/ & - & 0.12900e-09,0.11809e-06,0.20406e-06,0.27163e-06,0.29078e-06 /) - kbo(:, 5,54, 2) = (/ & - & 0.13828e-09,0.14510e-06,0.24678e-06,0.32753e-06,0.34217e-06 /) - kbo(:, 1,55, 2) = (/ & - & 0.85664e-10,0.48444e-07,0.83932e-07,0.10950e-06,0.11785e-06 /) - kbo(:, 2,55, 2) = (/ & - & 0.89999e-10,0.59885e-07,0.10776e-06,0.14023e-06,0.14763e-06 /) - kbo(:, 3,55, 2) = (/ & - & 0.95836e-10,0.73941e-07,0.13023e-06,0.17876e-06,0.18426e-06 /) - kbo(:, 4,55, 2) = (/ & - & 0.10323e-09,0.91791e-07,0.15882e-06,0.21202e-06,0.22611e-06 /) - kbo(:, 5,55, 2) = (/ & - & 0.11081e-09,0.11336e-06,0.19316e-06,0.25647e-06,0.26918e-06 /) - kbo(:, 1,56, 2) = (/ & - & 0.69093e-10,0.36832e-07,0.64123e-07,0.84030e-07,0.90974e-07 /) - kbo(:, 2,56, 2) = (/ & - & 0.72433e-10,0.47084e-07,0.82613e-07,0.10758e-06,0.11346e-06 /) - kbo(:, 3,56, 2) = (/ & - & 0.76616e-10,0.57388e-07,0.10182e-06,0.13768e-06,0.14224e-06 /) - kbo(:, 4,56, 2) = (/ & - & 0.82709e-10,0.71294e-07,0.12355e-06,0.16530e-06,0.17549e-06 /) - kbo(:, 5,56, 2) = (/ & - & 0.88636e-10,0.88445e-07,0.15094e-06,0.20067e-06,0.21118e-06 /) - kbo(:, 1,57, 2) = (/ & - & 0.55980e-10,0.28018e-07,0.48867e-07,0.64857e-07,0.70055e-07 /) - kbo(:, 2,57, 2) = (/ & - & 0.58397e-10,0.36620e-07,0.63232e-07,0.82428e-07,0.87457e-07 /) - kbo(:, 3,57, 2) = (/ & - & 0.61509e-10,0.44446e-07,0.80512e-07,0.10580e-06,0.10988e-06 /) - kbo(:, 4,57, 2) = (/ & - & 0.66015e-10,0.55222e-07,0.96401e-07,0.12935e-06,0.13614e-06 /) - kbo(:, 5,57, 2) = (/ & - & 0.70976e-10,0.68821e-07,0.11780e-06,0.15632e-06,0.16586e-06 /) - kbo(:, 1,58, 2) = (/ & - & 0.45722e-10,0.21506e-07,0.37326e-07,0.50333e-07,0.54855e-07 /) - kbo(:, 2,58, 2) = (/ & - & 0.47090e-10,0.28249e-07,0.48612e-07,0.63442e-07,0.67550e-07 /) - kbo(:, 3,58, 2) = (/ & - & 0.49550e-10,0.34430e-07,0.62769e-07,0.81509e-07,0.84917e-07 /) - kbo(:, 4,58, 2) = (/ & - & 0.52817e-10,0.42958e-07,0.75173e-07,0.10204e-06,0.10603e-06 /) - kbo(:, 5,58, 2) = (/ & - & 0.56864e-10,0.53637e-07,0.92044e-07,0.12229e-06,0.13011e-06 /) - kbo(:, 1,59, 2) = (/ & - & 0.37496e-10,0.17255e-07,0.29967e-07,0.40394e-07,0.44059e-07 /) - kbo(:, 2,59, 2) = (/ & - & 0.38367e-10,0.22782e-07,0.39144e-07,0.51019e-07,0.54404e-07 /) - kbo(:, 3,59, 2) = (/ & - & 0.40346e-10,0.27842e-07,0.50692e-07,0.65716e-07,0.68440e-07 /) - kbo(:, 4,59, 2) = (/ & - & 0.42908e-10,0.34761e-07,0.60846e-07,0.82834e-07,0.85713e-07 /) - kbo(:, 5,59, 2) = (/ & - & 0.46213e-10,0.43467e-07,0.74626e-07,0.99144e-07,0.10518e-06 /) - kbo(:, 1,13, 3) = (/ & - & 0.91180e-05,0.12754e-02,0.19900e-02,0.24440e-02,0.40576e-02 /) - kbo(:, 2,13, 3) = (/ & - & 0.95037e-05,0.14150e-02,0.22145e-02,0.28094e-02,0.44375e-02 /) - kbo(:, 3,13, 3) = (/ & - & 0.99757e-05,0.15626e-02,0.24320e-02,0.31375e-02,0.48097e-02 /) - kbo(:, 4,13, 3) = (/ & - & 0.10508e-04,0.16997e-02,0.26926e-02,0.34483e-02,0.51554e-02 /) - kbo(:, 5,13, 3) = (/ & - & 0.11033e-04,0.18373e-02,0.29684e-02,0.37861e-02,0.54896e-02 /) - kbo(:, 1,14, 3) = (/ & - & 0.73209e-05,0.10727e-02,0.16787e-02,0.20881e-02,0.33041e-02 /) - kbo(:, 2,14, 3) = (/ & - & 0.76795e-05,0.11937e-02,0.18683e-02,0.23616e-02,0.36246e-02 /) - kbo(:, 3,14, 3) = (/ & - & 0.80417e-05,0.13177e-02,0.20567e-02,0.26465e-02,0.39438e-02 /) - kbo(:, 4,14, 3) = (/ & - & 0.84296e-05,0.14317e-02,0.22826e-02,0.29022e-02,0.42368e-02 /) - kbo(:, 5,14, 3) = (/ & - & 0.88950e-05,0.15495e-02,0.25084e-02,0.31901e-02,0.44992e-02 /) - kbo(:, 1,15, 3) = (/ & - & 0.58275e-05,0.89895e-03,0.14161e-02,0.17760e-02,0.26508e-02 /) - kbo(:, 2,15, 3) = (/ & - & 0.61166e-05,0.10025e-02,0.15706e-02,0.19893e-02,0.29219e-02 /) - kbo(:, 3,15, 3) = (/ & - & 0.64340e-05,0.11055e-02,0.17375e-02,0.22237e-02,0.31718e-02 /) - kbo(:, 4,15, 3) = (/ & - & 0.67501e-05,0.12028e-02,0.19291e-02,0.24433e-02,0.34015e-02 /) - kbo(:, 5,15, 3) = (/ & - & 0.70843e-05,0.13034e-02,0.21152e-02,0.26892e-02,0.36350e-02 /) - kbo(:, 1,16, 3) = (/ & - & 0.45776e-05,0.75233e-03,0.11906e-02,0.14957e-02,0.21076e-02 /) - kbo(:, 2,16, 3) = (/ & - & 0.48262e-05,0.84051e-03,0.13192e-02,0.16780e-02,0.23267e-02 /) - kbo(:, 3,16, 3) = (/ & - & 0.51024e-05,0.92603e-03,0.14653e-02,0.18671e-02,0.25242e-02 /) - kbo(:, 4,16, 3) = (/ & - & 0.53856e-05,0.10093e-02,0.16288e-02,0.20599e-02,0.27134e-02 /) - kbo(:, 5,16, 3) = (/ & - & 0.56625e-05,0.10939e-02,0.17834e-02,0.22693e-02,0.29092e-02 /) - kbo(:, 1,17, 3) = (/ & - & 0.35978e-05,0.63055e-03,0.10001e-02,0.12618e-02,0.16759e-02 /) - kbo(:, 2,17, 3) = (/ & - & 0.38090e-05,0.70519e-03,0.11080e-02,0.14142e-02,0.18563e-02 /) - kbo(:, 3,17, 3) = (/ & - & 0.40365e-05,0.77593e-03,0.12352e-02,0.15692e-02,0.20215e-02 /) - kbo(:, 4,17, 3) = (/ & - & 0.42692e-05,0.84648e-03,0.13753e-02,0.17361e-02,0.21882e-02 /) - kbo(:, 5,17, 3) = (/ & - & 0.45325e-05,0.91815e-03,0.15031e-02,0.19156e-02,0.23511e-02 /) - kbo(:, 1,18, 3) = (/ & - & 0.28577e-05,0.52923e-03,0.84060e-03,0.10641e-02,0.13524e-02 /) - kbo(:, 2,18, 3) = (/ & - & 0.30189e-05,0.59275e-03,0.93264e-03,0.11925e-02,0.15051e-02 /) - kbo(:, 3,18, 3) = (/ & - & 0.31971e-05,0.65140e-03,0.10422e-02,0.13174e-02,0.16413e-02 /) - kbo(:, 4,18, 3) = (/ & - & 0.33981e-05,0.71144e-03,0.11594e-02,0.14613e-02,0.17851e-02 /) - kbo(:, 5,18, 3) = (/ & - & 0.36127e-05,0.77200e-03,0.12685e-02,0.16164e-02,0.19166e-02 /) - kbo(:, 1,19, 3) = (/ & - & 0.22832e-05,0.44489e-03,0.70523e-03,0.89150e-03,0.11054e-02 /) - kbo(:, 2,19, 3) = (/ & - & 0.24005e-05,0.49860e-03,0.78596e-03,0.10033e-02,0.12310e-02 /) - kbo(:, 3,19, 3) = (/ & - & 0.25465e-05,0.54746e-03,0.88096e-03,0.11084e-02,0.13479e-02 /) - kbo(:, 4,19, 3) = (/ & - & 0.27167e-05,0.59760e-03,0.97685e-03,0.12305e-02,0.14668e-02 /) - kbo(:, 5,19, 3) = (/ & - & 0.28927e-05,0.64844e-03,0.10695e-02,0.13632e-02,0.15746e-02 /) - kbo(:, 1,20, 3) = (/ & - & 0.18426e-05,0.37567e-03,0.59276e-03,0.75002e-03,0.91159e-03 /) - kbo(:, 2,20, 3) = (/ & - & 0.19324e-05,0.42049e-03,0.66376e-03,0.84304e-03,0.10175e-02 /) - kbo(:, 3,20, 3) = (/ & - & 0.20563e-05,0.46104e-03,0.74561e-03,0.93568e-03,0.11153e-02 /) - kbo(:, 4,20, 3) = (/ & - & 0.21952e-05,0.50302e-03,0.82491e-03,0.10410e-02,0.12131e-02 /) - kbo(:, 5,20, 3) = (/ & - & 0.23429e-05,0.54570e-03,0.90324e-03,0.11512e-02,0.13002e-02 /) - kbo(:, 1,21, 3) = (/ & - & 0.14914e-05,0.31727e-03,0.49879e-03,0.63141e-03,0.75480e-03 /) - kbo(:, 2,21, 3) = (/ & - & 0.15711e-05,0.35367e-03,0.56105e-03,0.70859e-03,0.84278e-03 /) - kbo(:, 3,21, 3) = (/ & - & 0.16720e-05,0.38776e-03,0.63122e-03,0.79066e-03,0.92492e-03 /) - kbo(:, 4,21, 3) = (/ & - & 0.17830e-05,0.42327e-03,0.69655e-03,0.88311e-03,0.10041e-02 /) - kbo(:, 5,21, 3) = (/ & - & 0.19065e-05,0.45905e-03,0.76238e-03,0.97320e-03,0.10767e-02 /) - kbo(:, 1,22, 3) = (/ & - & 0.12007e-05,0.26976e-03,0.42316e-03,0.53750e-03,0.62747e-03 /) - kbo(:, 2,22, 3) = (/ & - & 0.12744e-05,0.29880e-03,0.47840e-03,0.60094e-03,0.70134e-03 /) - kbo(:, 3,22, 3) = (/ & - & 0.13572e-05,0.32813e-03,0.53672e-03,0.67341e-03,0.76916e-03 /) - kbo(:, 4,22, 3) = (/ & - & 0.14459e-05,0.35761e-03,0.59154e-03,0.75421e-03,0.83371e-03 /) - kbo(:, 5,22, 3) = (/ & - & 0.15538e-05,0.38792e-03,0.64663e-03,0.82877e-03,0.89529e-03 /) - kbo(:, 1,23, 3) = (/ & - & 0.96861e-06,0.22918e-03,0.36015e-03,0.45719e-03,0.52404e-03 /) - kbo(:, 2,23, 3) = (/ & - & 0.10336e-05,0.25321e-03,0.40834e-03,0.51161e-03,0.58351e-03 /) - kbo(:, 3,23, 3) = (/ & - & 0.10985e-05,0.27767e-03,0.45571e-03,0.57459e-03,0.63985e-03 /) - kbo(:, 4,23, 3) = (/ & - & 0.11768e-05,0.30252e-03,0.50195e-03,0.64190e-03,0.69303e-03 /) - kbo(:, 5,23, 3) = (/ & - & 0.12615e-05,0.32794e-03,0.54831e-03,0.70579e-03,0.74540e-03 /) - kbo(:, 1,24, 3) = (/ & - & 0.77560e-06,0.19437e-03,0.30748e-03,0.38828e-03,0.43529e-03 /) - kbo(:, 2,24, 3) = (/ & - & 0.82580e-06,0.21438e-03,0.34835e-03,0.43617e-03,0.48373e-03 /) - kbo(:, 3,24, 3) = (/ & - & 0.88200e-06,0.23492e-03,0.38680e-03,0.49169e-03,0.53189e-03 /) - kbo(:, 4,24, 3) = (/ & - & 0.94947e-06,0.25573e-03,0.42635e-03,0.54641e-03,0.57637e-03 /) - kbo(:, 5,24, 3) = (/ & - & 0.10182e-05,0.27745e-03,0.46607e-03,0.60046e-03,0.61998e-03 /) - kbo(:, 1,25, 3) = (/ & - & 0.61963e-06,0.16454e-03,0.26284e-03,0.33016e-03,0.36284e-03 /) - kbo(:, 2,25, 3) = (/ & - & 0.66146e-06,0.18162e-03,0.29714e-03,0.37315e-03,0.40370e-03 /) - kbo(:, 3,25, 3) = (/ & - & 0.71111e-06,0.19882e-03,0.32942e-03,0.42130e-03,0.44382e-03 /) - kbo(:, 4,25, 3) = (/ & - & 0.76573e-06,0.21663e-03,0.36228e-03,0.46640e-03,0.48052e-03 /) - kbo(:, 5,25, 3) = (/ & - & 0.82100e-06,0.23503e-03,0.39627e-03,0.51132e-03,0.51776e-03 /) - kbo(:, 1,26, 3) = (/ & - & 0.49718e-06,0.13982e-03,0.22523e-03,0.28275e-03,0.30558e-03 /) - kbo(:, 2,26, 3) = (/ & - & 0.53365e-06,0.15431e-03,0.25368e-03,0.32044e-03,0.33895e-03 /) - kbo(:, 3,26, 3) = (/ & - & 0.57705e-06,0.16884e-03,0.28082e-03,0.36019e-03,0.37173e-03 /) - kbo(:, 4,26, 3) = (/ & - & 0.62061e-06,0.18393e-03,0.30865e-03,0.39866e-03,0.40243e-03 /) - kbo(:, 5,26, 3) = (/ & - & 0.66427e-06,0.19968e-03,0.33757e-03,0.43663e-03,0.43309e-03 /) - kbo(:, 1,27, 3) = (/ & - & 0.39961e-06,0.11889e-03,0.19361e-03,0.24270e-03,0.25693e-03 /) - kbo(:, 2,27, 3) = (/ & - & 0.43136e-06,0.13100e-03,0.21632e-03,0.27591e-03,0.28463e-03 /) - kbo(:, 3,27, 3) = (/ & - & 0.46490e-06,0.14333e-03,0.23966e-03,0.30849e-03,0.31106e-03 /) - kbo(:, 4,27, 3) = (/ & - & 0.50009e-06,0.15630e-03,0.26346e-03,0.34083e-03,0.33713e-03 /) - kbo(:, 5,27, 3) = (/ & - & 0.53808e-06,0.16999e-03,0.28768e-03,0.37323e-03,0.36279e-03 /) - kbo(:, 1,28, 3) = (/ & - & 0.31986e-06,0.10106e-03,0.16585e-03,0.20891e-03,0.21558e-03 /) - kbo(:, 2,28, 3) = (/ & - & 0.34540e-06,0.11119e-03,0.18500e-03,0.23760e-03,0.23854e-03 /) - kbo(:, 3,28, 3) = (/ & - & 0.37226e-06,0.12183e-03,0.20456e-03,0.26419e-03,0.26053e-03 /) - kbo(:, 4,28, 3) = (/ & - & 0.40317e-06,0.13290e-03,0.22487e-03,0.29156e-03,0.28262e-03 /) - kbo(:, 5,28, 3) = (/ & - & 0.43271e-06,0.14482e-03,0.24541e-03,0.31934e-03,0.30419e-03 /) - kbo(:, 1,29, 3) = (/ & - & 0.25677e-06,0.86060e-04,0.14206e-03,0.18023e-03,0.18141e-03 /) - kbo(:, 2,29, 3) = (/ & - & 0.27736e-06,0.94677e-04,0.15841e-03,0.20378e-03,0.20088e-03 /) - kbo(:, 3,29, 3) = (/ & - & 0.30104e-06,0.10372e-03,0.17515e-03,0.22663e-03,0.21921e-03 /) - kbo(:, 4,29, 3) = (/ & - & 0.32584e-06,0.11340e-03,0.19232e-03,0.24953e-03,0.23789e-03 /) - kbo(:, 5,29, 3) = (/ & - & 0.34891e-06,0.12368e-03,0.20976e-03,0.27364e-03,0.25570e-03 /) - kbo(:, 1,30, 3) = (/ & - & 0.20556e-06,0.73274e-04,0.12170e-03,0.15588e-03,0.15312e-03 /) - kbo(:, 2,30, 3) = (/ & - & 0.22376e-06,0.80651e-04,0.13568e-03,0.17524e-03,0.16948e-03 /) - kbo(:, 3,30, 3) = (/ & - & 0.24313e-06,0.88481e-04,0.14992e-03,0.19447e-03,0.18477e-03 /) - kbo(:, 4,30, 3) = (/ & - & 0.26233e-06,0.96824e-04,0.16458e-03,0.21409e-03,0.20027e-03 /) - kbo(:, 5,30, 3) = (/ & - & 0.28249e-06,0.10580e-03,0.17987e-03,0.23435e-03,0.21532e-03 /) - kbo(:, 1,31, 3) = (/ & - & 0.16553e-06,0.62536e-04,0.10457e-03,0.13443e-03,0.12968e-03 /) - kbo(:, 2,31, 3) = (/ & - & 0.18078e-06,0.68863e-04,0.11643e-03,0.15060e-03,0.14304e-03 /) - kbo(:, 3,31, 3) = (/ & - & 0.19619e-06,0.75670e-04,0.12864e-03,0.16681e-03,0.15615e-03 /) - kbo(:, 4,31, 3) = (/ & - & 0.21158e-06,0.82899e-04,0.14114e-03,0.18385e-03,0.16911e-03 /) - kbo(:, 5,31, 3) = (/ & - & 0.22915e-06,0.90629e-04,0.15456e-03,0.20099e-03,0.18146e-03 /) - kbo(:, 1,32, 3) = (/ & - & 0.13380e-06,0.53407e-04,0.89930e-04,0.11591e-03,0.11005e-03 /) - kbo(:, 2,32, 3) = (/ & - & 0.14604e-06,0.58887e-04,0.10001e-03,0.12963e-03,0.12107e-03 /) - kbo(:, 3,32, 3) = (/ & - & 0.15848e-06,0.64790e-04,0.11040e-03,0.14349e-03,0.13230e-03 /) - kbo(:, 4,32, 3) = (/ & - & 0.17190e-06,0.71169e-04,0.12125e-03,0.15792e-03,0.14297e-03 /) - kbo(:, 5,32, 3) = (/ & - & 0.18587e-06,0.77792e-04,0.13292e-03,0.17265e-03,0.15308e-03 /) - kbo(:, 1,33, 3) = (/ & - & 0.10830e-06,0.45686e-04,0.77339e-04,0.99867e-04,0.93562e-04 /) - kbo(:, 2,33, 3) = (/ & - & 0.11765e-06,0.50526e-04,0.85959e-04,0.11153e-03,0.10269e-03 /) - kbo(:, 3,33, 3) = (/ & - & 0.12824e-06,0.55627e-04,0.94900e-04,0.12354e-03,0.11205e-03 /) - kbo(:, 4,33, 3) = (/ & - & 0.13958e-06,0.61158e-04,0.10440e-03,0.13573e-03,0.12099e-03 /) - kbo(:, 5,33, 3) = (/ & - & 0.15078e-06,0.66909e-04,0.11431e-03,0.14861e-03,0.12918e-03 /) - kbo(:, 1,34, 3) = (/ & - & 0.87537e-07,0.39073e-04,0.66330e-04,0.85860e-04,0.79296e-04 /) - kbo(:, 2,34, 3) = (/ & - & 0.95270e-07,0.43282e-04,0.73743e-04,0.95733e-04,0.87082e-04 /) - kbo(:, 3,34, 3) = (/ & - & 0.10423e-06,0.47701e-04,0.81447e-04,0.10609e-03,0.94857e-04 /) - kbo(:, 4,34, 3) = (/ & - & 0.11348e-06,0.52484e-04,0.89624e-04,0.11638e-03,0.10211e-03 /) - kbo(:, 5,34, 3) = (/ & - & 0.12289e-06,0.57431e-04,0.98122e-04,0.12760e-03,0.10866e-03 /) - kbo(:, 1,35, 3) = (/ & - & 0.69891e-07,0.33129e-04,0.56323e-04,0.73036e-04,0.66568e-04 /) - kbo(:, 2,35, 3) = (/ & - & 0.76465e-07,0.36724e-04,0.62627e-04,0.81520e-04,0.73176e-04 /) - kbo(:, 3,35, 3) = (/ & - & 0.83833e-07,0.40619e-04,0.69293e-04,0.90161e-04,0.79548e-04 /) - kbo(:, 4,35, 3) = (/ & - & 0.91436e-07,0.44671e-04,0.76362e-04,0.99075e-04,0.85497e-04 /) - kbo(:, 5,35, 3) = (/ & - & 0.99263e-07,0.48886e-04,0.83550e-04,0.10849e-03,0.90720e-04 /) - kbo(:, 1,36, 3) = (/ & - & 0.55080e-07,0.27796e-04,0.47261e-04,0.61299e-04,0.55237e-04 /) - kbo(:, 2,36, 3) = (/ & - & 0.60562e-07,0.30850e-04,0.52635e-04,0.68515e-04,0.60794e-04 /) - kbo(:, 3,36, 3) = (/ & - & 0.66440e-07,0.34200e-04,0.58298e-04,0.75847e-04,0.66097e-04 /) - kbo(:, 4,36, 3) = (/ & - & 0.72913e-07,0.37650e-04,0.64310e-04,0.83530e-04,0.71032e-04 /) - kbo(:, 5,36, 3) = (/ & - & 0.79545e-07,0.41216e-04,0.70397e-04,0.91304e-04,0.75193e-04 /) - kbo(:, 1,37, 3) = (/ & - & 0.43644e-07,0.22997e-04,0.39088e-04,0.50714e-04,0.45374e-04 /) - kbo(:, 2,37, 3) = (/ & - & 0.48182e-07,0.25585e-04,0.43661e-04,0.56813e-04,0.50057e-04 /) - kbo(:, 3,37, 3) = (/ & - & 0.53067e-07,0.28429e-04,0.48465e-04,0.63020e-04,0.54490e-04 /) - kbo(:, 4,37, 3) = (/ & - & 0.58349e-07,0.31365e-04,0.53603e-04,0.69516e-04,0.58585e-04 /) - kbo(:, 5,37, 3) = (/ & - & 0.63727e-07,0.34398e-04,0.58710e-04,0.76032e-04,0.62046e-04 /) - kbo(:, 1,38, 3) = (/ & - & 0.34661e-07,0.19003e-04,0.32295e-04,0.41898e-04,0.37207e-04 /) - kbo(:, 2,38, 3) = (/ & - & 0.38414e-07,0.21200e-04,0.36170e-04,0.47045e-04,0.41150e-04 /) - kbo(:, 3,38, 3) = (/ & - & 0.42378e-07,0.23605e-04,0.40247e-04,0.52306e-04,0.44872e-04 /) - kbo(:, 4,38, 3) = (/ & - & 0.46598e-07,0.26110e-04,0.44620e-04,0.57800e-04,0.48293e-04 /) - kbo(:, 5,38, 3) = (/ & - & 0.50995e-07,0.28683e-04,0.48935e-04,0.63250e-04,0.51155e-04 /) - kbo(:, 1,39, 3) = (/ & - & 0.27545e-07,0.15700e-04,0.26661e-04,0.34603e-04,0.30487e-04 /) - kbo(:, 2,39, 3) = (/ & - & 0.30553e-07,0.17568e-04,0.29948e-04,0.38935e-04,0.33813e-04 /) - kbo(:, 3,39, 3) = (/ & - & 0.33772e-07,0.19601e-04,0.33411e-04,0.43403e-04,0.36922e-04 /) - kbo(:, 4,39, 3) = (/ & - & 0.37164e-07,0.21726e-04,0.37113e-04,0.48030e-04,0.39771e-04 /) - kbo(:, 5,39, 3) = (/ & - & 0.40795e-07,0.23901e-04,0.40765e-04,0.52607e-04,0.42152e-04 /) - kbo(:, 1,40, 3) = (/ & - & 0.21852e-07,0.12819e-04,0.21757e-04,0.28221e-04,0.24745e-04 /) - kbo(:, 2,40, 3) = (/ & - & 0.24207e-07,0.14395e-04,0.24527e-04,0.31867e-04,0.27502e-04 /) - kbo(:, 3,40, 3) = (/ & - & 0.26806e-07,0.16092e-04,0.27462e-04,0.35646e-04,0.30145e-04 /) - kbo(:, 4,40, 3) = (/ & - & 0.29612e-07,0.17894e-04,0.30572e-04,0.39527e-04,0.32543e-04 /) - kbo(:, 5,40, 3) = (/ & - & 0.32577e-07,0.19746e-04,0.33672e-04,0.43399e-04,0.34556e-04 /) - kbo(:, 1,41, 3) = (/ & - & 0.17336e-07,0.10441e-04,0.17695e-04,0.22954e-04,0.20042e-04 /) - kbo(:, 2,41, 3) = (/ & - & 0.19187e-07,0.11771e-04,0.20025e-04,0.26029e-04,0.22346e-04 /) - kbo(:, 3,41, 3) = (/ & - & 0.21311e-07,0.13190e-04,0.22516e-04,0.29201e-04,0.24577e-04 /) - kbo(:, 4,41, 3) = (/ & - & 0.23597e-07,0.14712e-04,0.25122e-04,0.32466e-04,0.26584e-04 /) - kbo(:, 5,41, 3) = (/ & - & 0.25958e-07,0.16280e-04,0.27744e-04,0.35762e-04,0.28295e-04 /) - kbo(:, 1,42, 3) = (/ & - & 0.13752e-07,0.84970e-05,0.14379e-04,0.18640e-04,0.16205e-04 /) - kbo(:, 2,42, 3) = (/ & - & 0.15240e-07,0.96082e-05,0.16325e-04,0.21225e-04,0.18124e-04 /) - kbo(:, 3,42, 3) = (/ & - & 0.16924e-07,0.10802e-04,0.18430e-04,0.23896e-04,0.20024e-04 /) - kbo(:, 4,42, 3) = (/ & - & 0.18767e-07,0.12087e-04,0.20609e-04,0.26651e-04,0.21698e-04 /) - kbo(:, 5,42, 3) = (/ & - & 0.20666e-07,0.13409e-04,0.22837e-04,0.29427e-04,0.23153e-04 /) - kbo(:, 1,43, 3) = (/ & - & 0.10827e-07,0.68624e-05,0.11586e-04,0.14999e-04,0.12975e-04 /) - kbo(:, 2,43, 3) = (/ & - & 0.12030e-07,0.77847e-05,0.13205e-04,0.17164e-04,0.14605e-04 /) - kbo(:, 3,43, 3) = (/ & - & 0.13352e-07,0.87779e-05,0.14974e-04,0.19410e-04,0.16231e-04 /) - kbo(:, 4,43, 3) = (/ & - & 0.14829e-07,0.98620e-05,0.16795e-04,0.21751e-04,0.17634e-04 /) - kbo(:, 5,43, 3) = (/ & - & 0.16396e-07,0.10975e-04,0.18682e-04,0.24066e-04,0.18879e-04 /) - kbo(:, 1,44, 3) = (/ & - & 0.85731e-08,0.55132e-05,0.92862e-05,0.12000e-04,0.10347e-04 /) - kbo(:, 2,44, 3) = (/ & - & 0.95033e-08,0.62816e-05,0.10629e-04,0.13817e-04,0.11712e-04 /) - kbo(:, 3,44, 3) = (/ & - & 0.10537e-07,0.70964e-05,0.12108e-04,0.15700e-04,0.13095e-04 /) - kbo(:, 4,44, 3) = (/ & - & 0.11722e-07,0.80120e-05,0.13621e-04,0.17679e-04,0.14296e-04 /) - kbo(:, 5,44, 3) = (/ & - & 0.12991e-07,0.89457e-05,0.15220e-04,0.19614e-04,0.15350e-04 /) - kbo(:, 1,45, 3) = (/ & - & 0.67515e-08,0.44212e-05,0.74244e-05,0.95776e-05,0.82429e-05 /) - kbo(:, 2,45, 3) = (/ & - & 0.74999e-08,0.50603e-05,0.85360e-05,0.11095e-04,0.93791e-05 /) - kbo(:, 3,45, 3) = (/ & - & 0.83182e-08,0.57411e-05,0.97686e-05,0.12667e-04,0.10528e-04 /) - kbo(:, 4,45, 3) = (/ & - & 0.92526e-08,0.64942e-05,0.11028e-04,0.14328e-04,0.11566e-04 /) - kbo(:, 5,45, 3) = (/ & - & 0.10269e-07,0.72769e-05,0.12375e-04,0.15964e-04,0.12472e-04 /) - kbo(:, 1,46, 3) = (/ & - & 0.53031e-08,0.35301e-05,0.59050e-05,0.75965e-05,0.65452e-05 /) - kbo(:, 2,46, 3) = (/ & - & 0.58907e-08,0.40561e-05,0.68233e-05,0.88621e-05,0.74771e-05 /) - kbo(:, 3,46, 3) = (/ & - & 0.65422e-08,0.46270e-05,0.78393e-05,0.10169e-04,0.84370e-05 /) - kbo(:, 4,46, 3) = (/ & - & 0.72669e-08,0.52433e-05,0.89061e-05,0.11563e-04,0.93268e-05 /) - kbo(:, 5,46, 3) = (/ & - & 0.80880e-08,0.58967e-05,0.10016e-04,0.12930e-04,0.10106e-04 /) - kbo(:, 1,47, 3) = (/ & - & 0.41459e-08,0.27965e-05,0.46529e-05,0.59648e-05,0.51552e-05 /) - kbo(:, 2,47, 3) = (/ & - & 0.46324e-08,0.32253e-05,0.54100e-05,0.70094e-05,0.59110e-05 /) - kbo(:, 3,47, 3) = (/ & - & 0.51433e-08,0.37014e-05,0.62395e-05,0.80976e-05,0.67100e-05 /) - kbo(:, 4,47, 3) = (/ & - & 0.57045e-08,0.42091e-05,0.71381e-05,0.92537e-05,0.74896e-05 /) - kbo(:, 5,47, 3) = (/ & - & 0.63526e-08,0.47541e-05,0.80573e-05,0.10428e-04,0.81540e-05 /) - kbo(:, 1,48, 3) = (/ & - & 0.32549e-08,0.22089e-05,0.36571e-05,0.46663e-05,0.40387e-05 /) - kbo(:, 2,48, 3) = (/ & - & 0.36192e-08,0.25581e-05,0.42752e-05,0.55265e-05,0.46582e-05 /) - kbo(:, 3,48, 3) = (/ & - & 0.40215e-08,0.29515e-05,0.49553e-05,0.64327e-05,0.53236e-05 /) - kbo(:, 4,48, 3) = (/ & - & 0.44736e-08,0.33690e-05,0.57015e-05,0.73859e-05,0.59960e-05 /) - kbo(:, 5,48, 3) = (/ & - & 0.49760e-08,0.38276e-05,0.64596e-05,0.83844e-05,0.65647e-05 /) - kbo(:, 1,49, 3) = (/ & - & 0.25432e-08,0.17390e-05,0.28607e-05,0.36438e-05,0.31425e-05 /) - kbo(:, 2,49, 3) = (/ & - & 0.28364e-08,0.20219e-05,0.33698e-05,0.43412e-05,0.36654e-05 /) - kbo(:, 3,49, 3) = (/ & - & 0.31601e-08,0.23472e-05,0.39232e-05,0.50964e-05,0.42142e-05 /) - kbo(:, 4,49, 3) = (/ & - & 0.35101e-08,0.26948e-05,0.45429e-05,0.58797e-05,0.47715e-05 /) - kbo(:, 5,49, 3) = (/ & - & 0.38989e-08,0.30718e-05,0.51731e-05,0.67190e-05,0.52720e-05 /) - kbo(:, 1,50, 3) = (/ & - & 0.20093e-08,0.13704e-05,0.22373e-05,0.28375e-05,0.24550e-05 /) - kbo(:, 2,50, 3) = (/ & - & 0.22270e-08,0.16020e-05,0.26626e-05,0.34144e-05,0.28963e-05 /) - kbo(:, 3,50, 3) = (/ & - & 0.24797e-08,0.18686e-05,0.31131e-05,0.40348e-05,0.33398e-05 /) - kbo(:, 4,50, 3) = (/ & - & 0.27614e-08,0.21593e-05,0.36199e-05,0.46856e-05,0.38019e-05 /) - kbo(:, 5,50, 3) = (/ & - & 0.30674e-08,0.24699e-05,0.41517e-05,0.53844e-05,0.42322e-05 /) - kbo(:, 1,51, 3) = (/ & - & 0.15907e-08,0.10803e-05,0.17518e-05,0.22064e-05,0.19254e-05 /) - kbo(:, 2,51, 3) = (/ & - & 0.17509e-08,0.12691e-05,0.21000e-05,0.26794e-05,0.22832e-05 /) - kbo(:, 3,51, 3) = (/ & - & 0.19509e-08,0.14861e-05,0.24726e-05,0.31957e-05,0.26418e-05 /) - kbo(:, 4,51, 3) = (/ & - & 0.21703e-08,0.17284e-05,0.28838e-05,0.37325e-05,0.30257e-05 /) - kbo(:, 5,51, 3) = (/ & - & 0.24124e-08,0.19844e-05,0.33305e-05,0.43128e-05,0.34015e-05 /) - kbo(:, 1,52, 3) = (/ & - & 0.12564e-08,0.84669e-06,0.13717e-05,0.17147e-05,0.14947e-05 /) - kbo(:, 2,52, 3) = (/ & - & 0.13794e-08,0.10024e-05,0.16523e-05,0.20993e-05,0.17870e-05 /) - kbo(:, 3,52, 3) = (/ & - & 0.15320e-08,0.11790e-05,0.19577e-05,0.25220e-05,0.20845e-05 /) - kbo(:, 4,52, 3) = (/ & - & 0.17130e-08,0.13791e-05,0.22952e-05,0.29677e-05,0.24040e-05 /) - kbo(:, 5,52, 3) = (/ & - & 0.19041e-08,0.15914e-05,0.26635e-05,0.34439e-05,0.27247e-05 /) - kbo(:, 1,53, 3) = (/ & - & 0.99523e-09,0.66219e-06,0.10632e-05,0.13341e-05,0.11550e-05 /) - kbo(:, 2,53, 3) = (/ & - & 0.10903e-08,0.79022e-06,0.12914e-05,0.16401e-05,0.13929e-05 /) - kbo(:, 3,53, 3) = (/ & - & 0.12082e-08,0.93266e-06,0.15445e-05,0.19841e-05,0.16452e-05 /) - kbo(:, 4,53, 3) = (/ & - & 0.13437e-08,0.10969e-05,0.18212e-05,0.23517e-05,0.19029e-05 /) - kbo(:, 5,53, 3) = (/ & - & 0.14972e-08,0.12734e-05,0.21276e-05,0.27431e-05,0.21722e-05 /) - kbo(:, 1,54, 3) = (/ & - & 0.78782e-09,0.51993e-06,0.82752e-06,0.10421e-05,0.88632e-06 /) - kbo(:, 2,54, 3) = (/ & - & 0.86642e-09,0.62440e-06,0.10138e-05,0.12820e-05,0.10958e-05 /) - kbo(:, 3,54, 3) = (/ & - & 0.95141e-09,0.74051e-06,0.12221e-05,0.15626e-05,0.13014e-05 /) - kbo(:, 4,54, 3) = (/ & - & 0.10622e-08,0.87438e-06,0.14481e-05,0.18675e-05,0.15138e-05 /) - kbo(:, 5,54, 3) = (/ & - & 0.11829e-08,0.10217e-05,0.17025e-05,0.21900e-05,0.17349e-05 /) - kbo(:, 1,55, 3) = (/ & - & 0.62734e-09,0.40844e-06,0.64675e-06,0.81168e-06,0.68015e-06 /) - kbo(:, 2,55, 3) = (/ & - & 0.68670e-09,0.49437e-06,0.79822e-06,0.10031e-05,0.85955e-06 /) - kbo(:, 3,55, 3) = (/ & - & 0.75551e-09,0.58813e-06,0.96640e-06,0.12305e-05,0.10290e-05 /) - kbo(:, 4,55, 3) = (/ & - & 0.83896e-09,0.69762e-06,0.11529e-05,0.14845e-05,0.12025e-05 /) - kbo(:, 5,55, 3) = (/ & - & 0.93727e-09,0.81992e-06,0.13618e-05,0.17489e-05,0.13856e-05 /) - kbo(:, 1,56, 3) = (/ & - & 0.50214e-09,0.32028e-06,0.50524e-06,0.63147e-06,0.51903e-06 /) - kbo(:, 2,56, 3) = (/ & - & 0.54775e-09,0.38841e-06,0.62589e-06,0.78445e-06,0.67099e-06 /) - kbo(:, 3,56, 3) = (/ & - & 0.59971e-09,0.46602e-06,0.76356e-06,0.96978e-06,0.80912e-06 /) - kbo(:, 4,56, 3) = (/ & - & 0.66466e-09,0.55509e-06,0.91533e-06,0.11766e-05,0.95284e-06 /) - kbo(:, 5,56, 3) = (/ & - & 0.73931e-09,0.65625e-06,0.10864e-05,0.13946e-05,0.11055e-05 /) - kbo(:, 1,57, 3) = (/ & - & 0.40171e-09,0.25009e-06,0.39211e-06,0.49250e-06,0.39332e-06 /) - kbo(:, 2,57, 3) = (/ & - & 0.43379e-09,0.30473e-06,0.48932e-06,0.61342e-06,0.52076e-06 /) - kbo(:, 3,57, 3) = (/ & - & 0.47729e-09,0.36874e-06,0.59978e-06,0.76246e-06,0.63556e-06 /) - kbo(:, 4,57, 3) = (/ & - & 0.52454e-09,0.44075e-06,0.72488e-06,0.93079e-06,0.75448e-06 /) - kbo(:, 5,57, 3) = (/ & - & 0.58546e-09,0.52389e-06,0.86565e-06,0.11107e-05,0.87858e-06 /) - kbo(:, 1,58, 3) = (/ & - & 0.32222e-09,0.19536e-06,0.30484e-06,0.38123e-06,0.29798e-06 /) - kbo(:, 2,58, 3) = (/ & - & 0.34550e-09,0.24003e-06,0.38206e-06,0.48033e-06,0.40193e-06 /) - kbo(:, 3,58, 3) = (/ & - & 0.37930e-09,0.29179e-06,0.47226e-06,0.59938e-06,0.50056e-06 /) - kbo(:, 4,58, 3) = (/ & - & 0.41675e-09,0.35035e-06,0.57500e-06,0.73642e-06,0.59836e-06 /) - kbo(:, 5,58, 3) = (/ & - & 0.46320e-09,0.41854e-06,0.69041e-06,0.88548e-06,0.70003e-06 /) - kbo(:, 1,59, 3) = (/ & - & 0.26166e-09,0.15868e-06,0.24697e-06,0.30892e-06,0.23964e-06 /) - kbo(:, 2,59, 3) = (/ & - & 0.28095e-09,0.19552e-06,0.31068e-06,0.39037e-06,0.32469e-06 /) - kbo(:, 3,59, 3) = (/ & - & 0.30730e-09,0.23856e-06,0.38554e-06,0.48902e-06,0.40738e-06 /) - kbo(:, 4,59, 3) = (/ & - & 0.33781e-09,0.28749e-06,0.47157e-06,0.60286e-06,0.48803e-06 /) - kbo(:, 5,59, 3) = (/ & - & 0.37526e-09,0.34439e-06,0.56789e-06,0.72742e-06,0.57238e-06 /) - kbo(:, 1,13, 4) = (/ & - & 0.49038e-04,0.50781e-02,0.78254e-02,0.96484e-02,0.10614e-01 /) - kbo(:, 2,13, 4) = (/ & - & 0.54225e-04,0.54905e-02,0.85710e-02,0.10460e-01,0.11206e-01 /) - kbo(:, 3,13, 4) = (/ & - & 0.61134e-04,0.58773e-02,0.93183e-02,0.11347e-01,0.11729e-01 /) - kbo(:, 4,13, 4) = (/ & - & 0.68793e-04,0.62794e-02,0.99768e-02,0.12248e-01,0.12250e-01 /) - kbo(:, 5,13, 4) = (/ & - & 0.77429e-04,0.66893e-02,0.10624e-01,0.13064e-01,0.12730e-01 /) - kbo(:, 1,14, 4) = (/ & - & 0.40706e-04,0.43045e-02,0.66240e-02,0.81227e-02,0.87105e-02 /) - kbo(:, 2,14, 4) = (/ & - & 0.45789e-04,0.46404e-02,0.72547e-02,0.88508e-02,0.92183e-02 /) - kbo(:, 3,14, 4) = (/ & - & 0.51359e-04,0.49670e-02,0.78649e-02,0.95928e-02,0.96590e-02 /) - kbo(:, 4,14, 4) = (/ & - & 0.58448e-04,0.53112e-02,0.84165e-02,0.10356e-01,0.10085e-01 /) - kbo(:, 5,14, 4) = (/ & - & 0.66585e-04,0.56590e-02,0.89770e-02,0.11022e-01,0.10540e-01 /) - kbo(:, 1,15, 4) = (/ & - & 0.33161e-04,0.36374e-02,0.56007e-02,0.68408e-02,0.70399e-02 /) - kbo(:, 2,15, 4) = (/ & - & 0.37316e-04,0.39145e-02,0.61318e-02,0.74812e-02,0.74533e-02 /) - kbo(:, 3,15, 4) = (/ & - & 0.42184e-04,0.41949e-02,0.66272e-02,0.81097e-02,0.78393e-02 /) - kbo(:, 4,15, 4) = (/ & - & 0.48249e-04,0.44861e-02,0.70934e-02,0.87330e-02,0.82262e-02 /) - kbo(:, 5,15, 4) = (/ & - & 0.54912e-04,0.47829e-02,0.75688e-02,0.92830e-02,0.86058e-02 /) - kbo(:, 1,16, 4) = (/ & - & 0.26598e-04,0.30649e-02,0.47323e-02,0.57742e-02,0.56644e-02 /) - kbo(:, 2,16, 4) = (/ & - & 0.30096e-04,0.32950e-02,0.51778e-02,0.63145e-02,0.60193e-02 /) - kbo(:, 3,16, 4) = (/ & - & 0.34085e-04,0.35350e-02,0.55806e-02,0.68447e-02,0.63708e-02 /) - kbo(:, 4,16, 4) = (/ & - & 0.38919e-04,0.37831e-02,0.59719e-02,0.73465e-02,0.67088e-02 /) - kbo(:, 5,16, 4) = (/ & - & 0.44492e-04,0.40393e-02,0.63750e-02,0.78120e-02,0.70249e-02 /) - kbo(:, 1,17, 4) = (/ & - & 0.21449e-04,0.25756e-02,0.39936e-02,0.48662e-02,0.46205e-02 /) - kbo(:, 2,17, 4) = (/ & - & 0.24103e-04,0.27706e-02,0.43619e-02,0.53164e-02,0.49202e-02 /) - kbo(:, 3,17, 4) = (/ & - & 0.27451e-04,0.29765e-02,0.46959e-02,0.57632e-02,0.52122e-02 /) - kbo(:, 4,17, 4) = (/ & - & 0.31381e-04,0.31884e-02,0.50222e-02,0.61735e-02,0.54790e-02 /) - kbo(:, 5,17, 4) = (/ & - & 0.35953e-04,0.34099e-02,0.53645e-02,0.65659e-02,0.57419e-02 /) - kbo(:, 1,18, 4) = (/ & - & 0.17468e-04,0.21642e-02,0.33642e-02,0.40972e-02,0.37921e-02 /) - kbo(:, 2,18, 4) = (/ & - & 0.19506e-04,0.23308e-02,0.36683e-02,0.44696e-02,0.40385e-02 /) - kbo(:, 3,18, 4) = (/ & - & 0.22326e-04,0.25072e-02,0.39454e-02,0.48507e-02,0.42773e-02 /) - kbo(:, 4,18, 4) = (/ & - & 0.25558e-04,0.26901e-02,0.42240e-02,0.51855e-02,0.45000e-02 /) - kbo(:, 5,18, 4) = (/ & - & 0.29519e-04,0.28816e-02,0.45135e-02,0.55168e-02,0.47259e-02 /) - kbo(:, 1,19, 4) = (/ & - & 0.14162e-04,0.18165e-02,0.28311e-02,0.34491e-02,0.31263e-02 /) - kbo(:, 2,19, 4) = (/ & - & 0.15880e-04,0.19594e-02,0.30792e-02,0.37577e-02,0.33277e-02 /) - kbo(:, 3,19, 4) = (/ & - & 0.18250e-04,0.21124e-02,0.33110e-02,0.40717e-02,0.35255e-02 /) - kbo(:, 4,19, 4) = (/ & - & 0.20948e-04,0.22711e-02,0.35512e-02,0.43541e-02,0.37114e-02 /) - kbo(:, 5,19, 4) = (/ & - & 0.24279e-04,0.24360e-02,0.37972e-02,0.46336e-02,0.39063e-02 /) - kbo(:, 1,20, 4) = (/ & - & 0.11677e-04,0.15268e-02,0.23854e-02,0.29054e-02,0.25927e-02 /) - kbo(:, 2,20, 4) = (/ & - & 0.13127e-04,0.16502e-02,0.25884e-02,0.31642e-02,0.27584e-02 /) - kbo(:, 3,20, 4) = (/ & - & 0.15145e-04,0.17827e-02,0.27854e-02,0.34198e-02,0.29228e-02 /) - kbo(:, 4,20, 4) = (/ & - & 0.17426e-04,0.19208e-02,0.29919e-02,0.36563e-02,0.30836e-02 /) - kbo(:, 5,20, 4) = (/ & - & 0.20187e-04,0.20638e-02,0.32027e-02,0.38955e-02,0.32517e-02 /) - kbo(:, 1,21, 4) = (/ & - & 0.96248e-05,0.12839e-02,0.20069e-02,0.24439e-02,0.21521e-02 /) - kbo(:, 2,21, 4) = (/ & - & 0.10884e-04,0.13905e-02,0.21753e-02,0.26634e-02,0.22901e-02 /) - kbo(:, 3,21, 4) = (/ & - & 0.12576e-04,0.15057e-02,0.23430e-02,0.28714e-02,0.24271e-02 /) - kbo(:, 4,21, 4) = (/ & - & 0.14492e-04,0.16245e-02,0.25229e-02,0.30709e-02,0.25653e-02 /) - kbo(:, 5,21, 4) = (/ & - & 0.16785e-04,0.17487e-02,0.27053e-02,0.32769e-02,0.27041e-02 /) - kbo(:, 1,22, 4) = (/ & - & 0.78987e-05,0.10841e-02,0.16963e-02,0.20646e-02,0.17920e-02 /) - kbo(:, 2,22, 4) = (/ & - & 0.90688e-05,0.11783e-02,0.18364e-02,0.22523e-02,0.19054e-02 /) - kbo(:, 3,22, 4) = (/ & - & 0.10436e-04,0.12776e-02,0.19832e-02,0.24220e-02,0.20200e-02 /) - kbo(:, 4,22, 4) = (/ & - & 0.12051e-04,0.13800e-02,0.21391e-02,0.25904e-02,0.21364e-02 /) - kbo(:, 5,22, 4) = (/ & - & 0.13992e-04,0.14877e-02,0.22983e-02,0.27690e-02,0.22519e-02 /) - kbo(:, 1,23, 4) = (/ & - & 0.65143e-05,0.91629e-03,0.14337e-02,0.17468e-02,0.14890e-02 /) - kbo(:, 2,23, 4) = (/ & - & 0.75295e-05,0.99880e-03,0.15532e-02,0.19017e-02,0.15844e-02 /) - kbo(:, 3,23, 4) = (/ & - & 0.86172e-05,0.10843e-02,0.16828e-02,0.20454e-02,0.16822e-02 /) - kbo(:, 4,23, 4) = (/ & - & 0.10017e-04,0.11729e-02,0.18176e-02,0.21912e-02,0.17800e-02 /) - kbo(:, 5,23, 4) = (/ & - & 0.11640e-04,0.12668e-02,0.19549e-02,0.23447e-02,0.18765e-02 /) - kbo(:, 1,24, 4) = (/ & - & 0.53432e-05,0.77571e-03,0.12114e-02,0.14805e-02,0.12372e-02 /) - kbo(:, 2,24, 4) = (/ & - & 0.61515e-05,0.84718e-03,0.13153e-02,0.16078e-02,0.13181e-02 /) - kbo(:, 3,24, 4) = (/ & - & 0.70923e-05,0.92024e-03,0.14293e-02,0.17300e-02,0.13989e-02 /) - kbo(:, 4,24, 4) = (/ & - & 0.82684e-05,0.99740e-03,0.15447e-02,0.18573e-02,0.14811e-02 /) - kbo(:, 5,24, 4) = (/ & - & 0.96268e-05,0.10789e-02,0.16627e-02,0.19892e-02,0.15621e-02 /) - kbo(:, 1,25, 4) = (/ & - & 0.43932e-05,0.65898e-03,0.10259e-02,0.12568e-02,0.10287e-02 /) - kbo(:, 2,25, 4) = (/ & - & 0.50483e-05,0.71973e-03,0.11174e-02,0.13610e-02,0.10973e-02 /) - kbo(:, 3,25, 4) = (/ & - & 0.58527e-05,0.78269e-03,0.12157e-02,0.14658e-02,0.11648e-02 /) - kbo(:, 4,25, 4) = (/ & - & 0.68258e-05,0.84968e-03,0.13158e-02,0.15774e-02,0.12354e-02 /) - kbo(:, 5,25, 4) = (/ & - & 0.79780e-05,0.92093e-03,0.14171e-02,0.16917e-02,0.13029e-02 /) - kbo(:, 1,26, 4) = (/ & - & 0.36349e-05,0.56139e-03,0.87232e-03,0.10671e-02,0.85747e-03 /) - kbo(:, 2,26, 4) = (/ & - & 0.41763e-05,0.61307e-03,0.95284e-03,0.11559e-02,0.91640e-03 /) - kbo(:, 3,26, 4) = (/ & - & 0.48643e-05,0.66769e-03,0.10377e-02,0.12480e-02,0.97417e-03 /) - kbo(:, 4,26, 4) = (/ & - & 0.56806e-05,0.72618e-03,0.11238e-02,0.13443e-02,0.10341e-02 /) - kbo(:, 5,26, 4) = (/ & - & 0.66574e-05,0.78791e-03,0.12118e-02,0.14426e-02,0.10908e-02 /) - kbo(:, 1,27, 4) = (/ & - & 0.29849e-05,0.47845e-03,0.74324e-03,0.90695e-03,0.71654e-03 /) - kbo(:, 2,27, 4) = (/ & - & 0.34528e-05,0.52305e-03,0.81407e-03,0.98348e-03,0.76622e-03 /) - kbo(:, 3,27, 4) = (/ & - & 0.40386e-05,0.57067e-03,0.88635e-03,0.10643e-02,0.81617e-03 /) - kbo(:, 4,27, 4) = (/ & - & 0.47349e-05,0.62159e-03,0.96045e-03,0.11476e-02,0.86667e-03 /) - kbo(:, 5,27, 4) = (/ & - & 0.55504e-05,0.67486e-03,0.10373e-02,0.12327e-02,0.91437e-03 /) - kbo(:, 1,28, 4) = (/ & - & 0.24474e-05,0.40819e-03,0.63469e-03,0.77184e-03,0.59959e-03 /) - kbo(:, 2,28, 4) = (/ & - & 0.28527e-05,0.44694e-03,0.69550e-03,0.83809e-03,0.64151e-03 /) - kbo(:, 3,28, 4) = (/ & - & 0.33444e-05,0.48804e-03,0.75797e-03,0.90921e-03,0.68464e-03 /) - kbo(:, 4,28, 4) = (/ & - & 0.39332e-05,0.53229e-03,0.82174e-03,0.98103e-03,0.72680e-03 /) - kbo(:, 5,28, 4) = (/ & - & 0.46245e-05,0.57864e-03,0.88872e-03,0.10544e-02,0.76723e-03 /) - kbo(:, 1,29, 4) = (/ & - & 0.20253e-05,0.34921e-03,0.54365e-03,0.65865e-03,0.50331e-03 /) - kbo(:, 2,29, 4) = (/ & - & 0.23720e-05,0.38278e-03,0.59577e-03,0.71729e-03,0.53864e-03 /) - kbo(:, 3,29, 4) = (/ & - & 0.27945e-05,0.41887e-03,0.64907e-03,0.77823e-03,0.57581e-03 /) - kbo(:, 4,29, 4) = (/ & - & 0.32936e-05,0.45699e-03,0.70481e-03,0.84074e-03,0.61089e-03 /) - kbo(:, 5,29, 4) = (/ & - & 0.38881e-05,0.49757e-03,0.76325e-03,0.90356e-03,0.64564e-03 /) - kbo(:, 1,30, 4) = (/ & - & 0.16797e-05,0.29918e-03,0.46598e-03,0.56316e-03,0.42270e-03 /) - kbo(:, 2,30, 4) = (/ & - & 0.19764e-05,0.32839e-03,0.51076e-03,0.61439e-03,0.45306e-03 /) - kbo(:, 3,30, 4) = (/ & - & 0.23384e-05,0.35985e-03,0.55686e-03,0.66712e-03,0.48445e-03 /) - kbo(:, 4,30, 4) = (/ & - & 0.27662e-05,0.39302e-03,0.60525e-03,0.72092e-03,0.51425e-03 /) - kbo(:, 5,30, 4) = (/ & - & 0.32687e-05,0.42837e-03,0.65610e-03,0.77570e-03,0.54396e-03 /) - kbo(:, 1,31, 4) = (/ & - & 0.13991e-05,0.25687e-03,0.39996e-03,0.48307e-03,0.35570e-03 /) - kbo(:, 2,31, 4) = (/ & - & 0.16564e-05,0.28246e-03,0.43858e-03,0.52743e-03,0.38211e-03 /) - kbo(:, 3,31, 4) = (/ & - & 0.19660e-05,0.30971e-03,0.47856e-03,0.57309e-03,0.40826e-03 /) - kbo(:, 4,31, 4) = (/ & - & 0.23334e-05,0.33881e-03,0.52066e-03,0.61919e-03,0.43367e-03 /) - kbo(:, 5,31, 4) = (/ & - & 0.27587e-05,0.36964e-03,0.56499e-03,0.66660e-03,0.45969e-03 /) - kbo(:, 1,32, 4) = (/ & - & 0.11711e-05,0.22102e-03,0.34394e-03,0.41512e-03,0.29980e-03 /) - kbo(:, 2,32, 4) = (/ & - & 0.13928e-05,0.24337e-03,0.37713e-03,0.45351e-03,0.32253e-03 /) - kbo(:, 3,32, 4) = (/ & - & 0.16589e-05,0.26704e-03,0.41202e-03,0.49272e-03,0.34442e-03 /) - kbo(:, 4,32, 4) = (/ & - & 0.19740e-05,0.29261e-03,0.44855e-03,0.53274e-03,0.36633e-03 /) - kbo(:, 5,32, 4) = (/ & - & 0.23323e-05,0.31973e-03,0.48726e-03,0.57383e-03,0.38915e-03 /) - kbo(:, 1,33, 4) = (/ & - & 0.98300e-06,0.19047e-03,0.29592e-03,0.35739e-03,0.25303e-03 /) - kbo(:, 2,33, 4) = (/ & - & 0.11751e-05,0.20983e-03,0.32474e-03,0.39043e-03,0.27259e-03 /) - kbo(:, 3,33, 4) = (/ & - & 0.14027e-05,0.23065e-03,0.35505e-03,0.42405e-03,0.29120e-03 /) - kbo(:, 4,33, 4) = (/ & - & 0.16692e-05,0.25302e-03,0.38699e-03,0.45888e-03,0.31018e-03 /) - kbo(:, 5,33, 4) = (/ & - & 0.19716e-05,0.27715e-03,0.42119e-03,0.49468e-03,0.32989e-03 /) - kbo(:, 1,34, 4) = (/ & - & 0.82915e-06,0.16396e-03,0.25433e-03,0.30700e-03,0.21406e-03 /) - kbo(:, 2,34, 4) = (/ & - & 0.99352e-06,0.18083e-03,0.27935e-03,0.33552e-03,0.23048e-03 /) - kbo(:, 3,34, 4) = (/ & - & 0.11877e-05,0.19915e-03,0.30578e-03,0.36455e-03,0.24659e-03 /) - kbo(:, 4,34, 4) = (/ & - & 0.14139e-05,0.21886e-03,0.33384e-03,0.39476e-03,0.26317e-03 /) - kbo(:, 5,34, 4) = (/ & - & 0.16670e-05,0.24021e-03,0.36390e-03,0.42603e-03,0.28005e-03 /) - kbo(:, 1,35, 4) = (/ & - & 0.68670e-06,0.13979e-03,0.21673e-03,0.26161e-03,0.17974e-03 /) - kbo(:, 2,35, 4) = (/ & - & 0.82437e-06,0.15448e-03,0.23846e-03,0.28611e-03,0.19377e-03 /) - kbo(:, 3,35, 4) = (/ & - & 0.98649e-06,0.17044e-03,0.26139e-03,0.31132e-03,0.20765e-03 /) - kbo(:, 4,35, 4) = (/ & - & 0.11740e-05,0.18773e-03,0.28609e-03,0.33740e-03,0.22197e-03 /) - kbo(:, 5,35, 4) = (/ & - & 0.13833e-05,0.20652e-03,0.31233e-03,0.36449e-03,0.23658e-03 /) - kbo(:, 1,36, 4) = (/ & - & 0.55564e-06,0.11786e-03,0.18283e-03,0.22089e-03,0.14951e-03 /) - kbo(:, 2,36, 4) = (/ & - & 0.66731e-06,0.13053e-03,0.20151e-03,0.24189e-03,0.16146e-03 /) - kbo(:, 3,36, 4) = (/ & - & 0.80048e-06,0.14432e-03,0.22154e-03,0.26364e-03,0.17348e-03 /) - kbo(:, 4,36, 4) = (/ & - & 0.95195e-06,0.15937e-03,0.24310e-03,0.28609e-03,0.18577e-03 /) - kbo(:, 5,36, 4) = (/ & - & 0.11217e-05,0.17580e-03,0.26601e-03,0.30949e-03,0.19850e-03 /) - kbo(:, 1,37, 4) = (/ & - & 0.44526e-06,0.98334e-04,0.15236e-03,0.18395e-03,0.12369e-03 /) - kbo(:, 2,37, 4) = (/ & - & 0.53551e-06,0.10927e-03,0.16837e-03,0.20194e-03,0.13387e-03 /) - kbo(:, 3,37, 4) = (/ & - & 0.64307e-06,0.12110e-03,0.18556e-03,0.22059e-03,0.14418e-03 /) - kbo(:, 4,37, 4) = (/ & - & 0.76688e-06,0.13411e-03,0.20414e-03,0.23985e-03,0.15477e-03 /) - kbo(:, 5,37, 4) = (/ & - & 0.90591e-06,0.14842e-03,0.22405e-03,0.25996e-03,0.16566e-03 /) - kbo(:, 1,38, 4) = (/ & - & 0.35630e-06,0.81991e-04,0.12690e-03,0.15312e-03,0.10226e-03 /) - kbo(:, 2,38, 4) = (/ & - & 0.42911e-06,0.91391e-04,0.14064e-03,0.16849e-03,0.11095e-03 /) - kbo(:, 3,38, 4) = (/ & - & 0.51583e-06,0.10163e-03,0.15538e-03,0.18448e-03,0.11977e-03 /) - kbo(:, 4,38, 4) = (/ & - & 0.61654e-06,0.11287e-03,0.17138e-03,0.20101e-03,0.12884e-03 /) - kbo(:, 5,38, 4) = (/ & - & 0.73028e-06,0.12530e-03,0.18862e-03,0.21826e-03,0.13816e-03 /) - kbo(:, 1,39, 4) = (/ & - & 0.28455e-06,0.68362e-04,0.10572e-03,0.12747e-03,0.84494e-04 /) - kbo(:, 2,39, 4) = (/ & - & 0.34313e-06,0.76413e-04,0.11751e-03,0.14060e-03,0.91905e-04 /) - kbo(:, 3,39, 4) = (/ & - & 0.41305e-06,0.85299e-04,0.13016e-03,0.15431e-03,0.99463e-04 /) - kbo(:, 4,39, 4) = (/ & - & 0.49466e-06,0.95047e-04,0.14396e-03,0.16851e-03,0.10725e-03 /) - kbo(:, 5,39, 4) = (/ & - & 0.58721e-06,0.10583e-03,0.15886e-03,0.18332e-03,0.11516e-03 /) - kbo(:, 1,40, 4) = (/ & - & 0.22416e-06,0.56451e-04,0.87192e-04,0.10503e-03,0.69299e-04 /) - kbo(:, 2,40, 4) = (/ & - & 0.27058e-06,0.63325e-04,0.97241e-04,0.11625e-03,0.75635e-04 /) - kbo(:, 3,40, 4) = (/ & - & 0.32640e-06,0.70942e-04,0.10801e-03,0.12792e-03,0.82061e-04 /) - kbo(:, 4,40, 4) = (/ & - & 0.39178e-06,0.79381e-04,0.11985e-03,0.14005e-03,0.88722e-04 /) - kbo(:, 5,40, 4) = (/ & - & 0.46694e-06,0.88673e-04,0.13261e-03,0.15274e-03,0.95437e-04 /) - kbo(:, 1,41, 4) = (/ & - & 0.17620e-06,0.46495e-04,0.71829e-04,0.86351e-04,0.56701e-04 /) - kbo(:, 2,41, 4) = (/ & - & 0.21295e-06,0.52383e-04,0.80380e-04,0.95937e-04,0.62100e-04 /) - kbo(:, 3,41, 4) = (/ & - & 0.25720e-06,0.58900e-04,0.89548e-04,0.10594e-03,0.67568e-04 /) - kbo(:, 4,41, 4) = (/ & - & 0.30957e-06,0.66136e-04,0.99643e-04,0.11623e-03,0.73280e-04 /) - kbo(:, 5,41, 4) = (/ & - & 0.37003e-06,0.74203e-04,0.11061e-03,0.12707e-03,0.78979e-04 /) - kbo(:, 1,42, 4) = (/ & - & 0.13843e-06,0.38238e-04,0.59124e-04,0.70982e-04,0.46331e-04 /) - kbo(:, 2,42, 4) = (/ & - & 0.16726e-06,0.43269e-04,0.66424e-04,0.79125e-04,0.50956e-04 /) - kbo(:, 3,42, 4) = (/ & - & 0.20232e-06,0.48870e-04,0.74247e-04,0.87661e-04,0.55561e-04 /) - kbo(:, 4,42, 4) = (/ & - & 0.24408e-06,0.55119e-04,0.82827e-04,0.96453e-04,0.60447e-04 /) - kbo(:, 5,42, 4) = (/ & - & 0.29276e-06,0.62028e-04,0.92221e-04,0.10570e-03,0.65281e-04 /) - kbo(:, 1,43, 4) = (/ & - & 0.10793e-06,0.31191e-04,0.48305e-04,0.57948e-04,0.37666e-04 /) - kbo(:, 2,43, 4) = (/ & - & 0.13017e-06,0.35465e-04,0.54489e-04,0.64841e-04,0.41556e-04 /) - kbo(:, 3,43, 4) = (/ & - & 0.15771e-06,0.40235e-04,0.61176e-04,0.72082e-04,0.45452e-04 /) - kbo(:, 4,43, 4) = (/ & - & 0.19064e-06,0.45599e-04,0.68488e-04,0.79576e-04,0.49593e-04 /) - kbo(:, 5,43, 4) = (/ & - & 0.22944e-06,0.51552e-04,0.76431e-04,0.87462e-04,0.53715e-04 /) - kbo(:, 1,44, 4) = (/ & - & 0.83879e-07,0.25325e-04,0.39297e-04,0.47118e-04,0.30510e-04 /) - kbo(:, 2,44, 4) = (/ & - & 0.10087e-06,0.28920e-04,0.44532e-04,0.52929e-04,0.33772e-04 /) - kbo(:, 3,44, 4) = (/ & - & 0.12238e-06,0.32977e-04,0.50189e-04,0.59075e-04,0.37069e-04 /) - kbo(:, 4,44, 4) = (/ & - & 0.14813e-06,0.37556e-04,0.56451e-04,0.65448e-04,0.40567e-04 /) - kbo(:, 5,44, 4) = (/ & - & 0.17874e-06,0.42672e-04,0.63196e-04,0.72159e-04,0.44085e-04 /) - kbo(:, 1,45, 4) = (/ & - & 0.65261e-07,0.20516e-04,0.31895e-04,0.38279e-04,0.24650e-04 /) - kbo(:, 2,45, 4) = (/ & - & 0.78145e-07,0.23540e-04,0.36319e-04,0.43161e-04,0.27390e-04 /) - kbo(:, 3,45, 4) = (/ & - & 0.94805e-07,0.26962e-04,0.41134e-04,0.48357e-04,0.30190e-04 /) - kbo(:, 4,45, 4) = (/ & - & 0.11490e-06,0.30858e-04,0.46429e-04,0.53785e-04,0.33136e-04 /) - kbo(:, 5,45, 4) = (/ & - & 0.13905e-06,0.35210e-04,0.52216e-04,0.59482e-04,0.36122e-04 /) - kbo(:, 1,46, 4) = (/ & - & 0.50668e-07,0.16526e-04,0.25752e-04,0.30954e-04,0.19817e-04 /) - kbo(:, 2,46, 4) = (/ & - & 0.60361e-07,0.19058e-04,0.29471e-04,0.35060e-04,0.22123e-04 /) - kbo(:, 3,46, 4) = (/ & - & 0.73101e-07,0.21937e-04,0.33569e-04,0.39461e-04,0.24498e-04 /) - kbo(:, 4,46, 4) = (/ & - & 0.88747e-07,0.25222e-04,0.38048e-04,0.44039e-04,0.26973e-04 /) - kbo(:, 5,46, 4) = (/ & - & 0.10762e-06,0.28932e-04,0.42964e-04,0.48871e-04,0.29499e-04 /) - kbo(:, 1,47, 4) = (/ & - & 0.39185e-07,0.13207e-04,0.20626e-04,0.24835e-04,0.15826e-04 /) - kbo(:, 2,47, 4) = (/ & - & 0.46335e-07,0.15303e-04,0.23722e-04,0.28277e-04,0.17762e-04 /) - kbo(:, 3,47, 4) = (/ & - & 0.55896e-07,0.17703e-04,0.27162e-04,0.31976e-04,0.19780e-04 /) - kbo(:, 4,47, 4) = (/ & - & 0.67962e-07,0.20451e-04,0.30940e-04,0.35867e-04,0.21834e-04 /) - kbo(:, 5,47, 4) = (/ & - & 0.82535e-07,0.23583e-04,0.35128e-04,0.39933e-04,0.23972e-04 /) - kbo(:, 1,48, 4) = (/ & - & 0.30435e-07,0.10528e-04,0.16458e-04,0.19871e-04,0.12630e-04 /) - kbo(:, 2,48, 4) = (/ & - & 0.35657e-07,0.12255e-04,0.19034e-04,0.22757e-04,0.14230e-04 /) - kbo(:, 3,48, 4) = (/ & - & 0.42777e-07,0.14241e-04,0.21916e-04,0.25856e-04,0.15916e-04 /) - kbo(:, 4,48, 4) = (/ & - & 0.51977e-07,0.16531e-04,0.25094e-04,0.29142e-04,0.17632e-04 /) - kbo(:, 5,48, 4) = (/ & - & 0.63246e-07,0.19162e-04,0.28631e-04,0.32586e-04,0.19447e-04 /) - kbo(:, 1,49, 4) = (/ & - & 0.23722e-07,0.83656e-05,0.13088e-04,0.15834e-04,0.10060e-04 /) - kbo(:, 2,49, 4) = (/ & - & 0.27509e-07,0.97869e-05,0.15227e-04,0.18252e-04,0.11363e-04 /) - kbo(:, 3,49, 4) = (/ & - & 0.32769e-07,0.11426e-04,0.17628e-04,0.20853e-04,0.12767e-04 /) - kbo(:, 4,49, 4) = (/ & - & 0.39719e-07,0.13326e-04,0.20285e-04,0.23637e-04,0.14223e-04 /) - kbo(:, 5,49, 4) = (/ & - & 0.48415e-07,0.15524e-04,0.23268e-04,0.26530e-04,0.15739e-04 /) - kbo(:, 1,50, 4) = (/ & - & 0.18623e-07,0.66620e-05,0.10425e-04,0.12634e-04,0.80132e-05 /) - kbo(:, 2,50, 4) = (/ & - & 0.21393e-07,0.78264e-05,0.12188e-04,0.14643e-04,0.90757e-05 /) - kbo(:, 3,50, 4) = (/ & - & 0.25281e-07,0.91787e-05,0.14186e-04,0.16825e-04,0.10247e-04 /) - kbo(:, 4,50, 4) = (/ & - & 0.30530e-07,0.10758e-04,0.16419e-04,0.19178e-04,0.11482e-04 /) - kbo(:, 5,50, 4) = (/ & - & 0.37213e-07,0.12593e-04,0.18920e-04,0.21643e-04,0.12749e-04 /) - kbo(:, 1,51, 4) = (/ & - & 0.14681e-07,0.53043e-05,0.82956e-05,0.10064e-04,0.63669e-05 /) - kbo(:, 2,51, 4) = (/ & - & 0.16717e-07,0.62508e-05,0.97501e-05,0.11737e-04,0.72473e-05 /) - kbo(:, 3,51, 4) = (/ & - & 0.19587e-07,0.73643e-05,0.11400e-04,0.13558e-04,0.82290e-05 /) - kbo(:, 4,51, 4) = (/ & - & 0.23555e-07,0.86748e-05,0.13268e-04,0.15537e-04,0.92634e-05 /) - kbo(:, 5,51, 4) = (/ & - & 0.28671e-07,0.10209e-04,0.15379e-04,0.17635e-04,0.10316e-04 /) - kbo(:, 1,52, 4) = (/ & - & 0.11626e-07,0.42149e-05,0.65740e-05,0.79835e-05,0.50595e-05 /) - kbo(:, 2,52, 4) = (/ & - & 0.13102e-07,0.49884e-05,0.77758e-05,0.93846e-05,0.57856e-05 /) - kbo(:, 3,52, 4) = (/ & - & 0.15208e-07,0.58955e-05,0.91392e-05,0.10898e-04,0.65937e-05 /) - kbo(:, 4,52, 4) = (/ & - & 0.18174e-07,0.69758e-05,0.10692e-04,0.12554e-04,0.74564e-05 /) - kbo(:, 5,52, 4) = (/ & - & 0.22057e-07,0.82505e-05,0.12462e-04,0.14331e-04,0.83301e-05 /) - kbo(:, 1,53, 4) = (/ & - & 0.92130e-08,0.33378e-05,0.51998e-05,0.63006e-05,0.40097e-05 /) - kbo(:, 2,53, 4) = (/ & - & 0.10298e-07,0.39704e-05,0.61839e-05,0.74775e-05,0.46077e-05 /) - kbo(:, 3,53, 4) = (/ & - & 0.11831e-07,0.47088e-05,0.73062e-05,0.87345e-05,0.52620e-05 /) - kbo(:, 4,53, 4) = (/ & - & 0.14030e-07,0.55942e-05,0.85921e-05,0.10119e-04,0.59838e-05 /) - kbo(:, 5,53, 4) = (/ & - & 0.16970e-07,0.66447e-05,0.10063e-04,0.11620e-04,0.67208e-05 /) - kbo(:, 1,54, 4) = (/ & - & 0.73443e-08,0.26498e-05,0.41229e-05,0.49788e-05,0.31929e-05 /) - kbo(:, 2,54, 4) = (/ & - & 0.81453e-08,0.31689e-05,0.49320e-05,0.59701e-05,0.36706e-05 /) - kbo(:, 3,54, 4) = (/ & - & 0.92853e-08,0.37746e-05,0.58561e-05,0.70139e-05,0.42105e-05 /) - kbo(:, 4,54, 4) = (/ & - & 0.10913e-07,0.44986e-05,0.69192e-05,0.81733e-05,0.48081e-05 /) - kbo(:, 5,54, 4) = (/ & - & 0.13151e-07,0.53689e-05,0.81469e-05,0.94377e-05,0.54320e-05 /) - kbo(:, 1,55, 4) = (/ & - & 0.58690e-08,0.21056e-05,0.32710e-05,0.39362e-05,0.25357e-05 /) - kbo(:, 2,55, 4) = (/ & - & 0.64824e-08,0.25292e-05,0.39335e-05,0.47652e-05,0.29266e-05 /) - kbo(:, 3,55, 4) = (/ & - & 0.73195e-08,0.30260e-05,0.46942e-05,0.56346e-05,0.33700e-05 /) - kbo(:, 4,55, 4) = (/ & - & 0.85298e-08,0.36216e-05,0.55727e-05,0.65990e-05,0.38662e-05 /) - kbo(:, 5,55, 4) = (/ & - & 0.10227e-07,0.43366e-05,0.65935e-05,0.76627e-05,0.43889e-05 /) - kbo(:, 1,56, 4) = (/ & - & 0.46879e-08,0.16674e-05,0.25848e-05,0.30992e-05,0.20097e-05 /) - kbo(:, 2,56, 4) = (/ & - & 0.51579e-08,0.20145e-05,0.31307e-05,0.37875e-05,0.23304e-05 /) - kbo(:, 3,56, 4) = (/ & - & 0.57829e-08,0.24199e-05,0.37529e-05,0.45119e-05,0.26962e-05 /) - kbo(:, 4,56, 4) = (/ & - & 0.66817e-08,0.29092e-05,0.44788e-05,0.53142e-05,0.31037e-05 /) - kbo(:, 5,56, 4) = (/ & - & 0.79548e-08,0.34985e-05,0.53248e-05,0.62066e-05,0.35387e-05 /) - kbo(:, 1,57, 4) = (/ & - & 0.37487e-08,0.13177e-05,0.20362e-05,0.24278e-05,0.15888e-05 /) - kbo(:, 2,57, 4) = (/ & - & 0.41132e-08,0.16006e-05,0.24863e-05,0.30001e-05,0.18530e-05 /) - kbo(:, 3,57, 4) = (/ & - & 0.45796e-08,0.19301e-05,0.29957e-05,0.36053e-05,0.21515e-05 /) - kbo(:, 4,57, 4) = (/ & - & 0.52447e-08,0.23301e-05,0.35902e-05,0.42690e-05,0.24844e-05 /) - kbo(:, 5,57, 4) = (/ & - & 0.61952e-08,0.28175e-05,0.42894e-05,0.50133e-05,0.28503e-05 /) - kbo(:, 1,58, 4) = (/ & - & 0.30053e-08,0.10419e-05,0.16034e-05,0.19071e-05,0.12550e-05 /) - kbo(:, 2,58, 4) = (/ & - & 0.32906e-08,0.12717e-05,0.19750e-05,0.23751e-05,0.14761e-05 /) - kbo(:, 3,58, 4) = (/ & - & 0.36412e-08,0.15413e-05,0.23950e-05,0.28817e-05,0.17173e-05 /) - kbo(:, 4,58, 4) = (/ & - & 0.41327e-08,0.18673e-05,0.28800e-05,0.34301e-05,0.19893e-05 /) - kbo(:, 5,58, 4) = (/ & - & 0.48448e-08,0.22699e-05,0.34559e-05,0.40496e-05,0.22938e-05 /) - kbo(:, 1,59, 4) = (/ & - & 0.24517e-08,0.85367e-06,0.13121e-05,0.15587e-05,0.10209e-05 /) - kbo(:, 2,59, 4) = (/ & - & 0.26814e-08,0.10459e-05,0.16241e-05,0.19505e-05,0.12067e-05 /) - kbo(:, 3,59, 4) = (/ & - & 0.29604e-08,0.12726e-05,0.19786e-05,0.23765e-05,0.14071e-05 /) - kbo(:, 4,59, 4) = (/ & - & 0.33490e-08,0.15486e-05,0.23884e-05,0.28393e-05,0.16353e-05 /) - kbo(:, 5,59, 4) = (/ & - & 0.39177e-08,0.18923e-05,0.28751e-05,0.33648e-05,0.18896e-05 /) - kbo(:, 1,13, 5) = (/ & - & 0.10606e-02,0.17616e-01,0.26337e-01,0.30832e-01,0.23250e-01 /) - kbo(:, 2,13, 5) = (/ & - & 0.11975e-02,0.18851e-01,0.27746e-01,0.32191e-01,0.24461e-01 /) - kbo(:, 3,13, 5) = (/ & - & 0.13686e-02,0.20236e-01,0.29224e-01,0.33409e-01,0.25538e-01 /) - kbo(:, 4,13, 5) = (/ & - & 0.15788e-02,0.21686e-01,0.30822e-01,0.34581e-01,0.26483e-01 /) - kbo(:, 5,13, 5) = (/ & - & 0.18422e-02,0.23201e-01,0.32485e-01,0.35791e-01,0.27339e-01 /) - kbo(:, 1,14, 5) = (/ & - & 0.90299e-03,0.14939e-01,0.22235e-01,0.25969e-01,0.19459e-01 /) - kbo(:, 2,14, 5) = (/ & - & 0.10276e-02,0.16043e-01,0.23464e-01,0.27102e-01,0.20418e-01 /) - kbo(:, 3,14, 5) = (/ & - & 0.11848e-02,0.17244e-01,0.24766e-01,0.28137e-01,0.21279e-01 /) - kbo(:, 4,14, 5) = (/ & - & 0.13763e-02,0.18494e-01,0.26159e-01,0.29141e-01,0.22035e-01 /) - kbo(:, 5,14, 5) = (/ & - & 0.16087e-02,0.19801e-01,0.27586e-01,0.30208e-01,0.22712e-01 /) - kbo(:, 1,15, 5) = (/ & - & 0.76169e-03,0.12657e-01,0.18744e-01,0.21807e-01,0.16155e-01 /) - kbo(:, 2,15, 5) = (/ & - & 0.87429e-03,0.13622e-01,0.19820e-01,0.22753e-01,0.16908e-01 /) - kbo(:, 3,15, 5) = (/ & - & 0.10153e-02,0.14650e-01,0.20967e-01,0.23637e-01,0.17597e-01 /) - kbo(:, 4,15, 5) = (/ & - & 0.11860e-02,0.15728e-01,0.22159e-01,0.24521e-01,0.18236e-01 /) - kbo(:, 5,15, 5) = (/ & - & 0.13940e-02,0.16855e-01,0.23377e-01,0.25442e-01,0.18800e-01 /) - kbo(:, 1,16, 5) = (/ & - & 0.63979e-03,0.10716e-01,0.15782e-01,0.18280e-01,0.13330e-01 /) - kbo(:, 2,16, 5) = (/ & - & 0.73992e-03,0.11550e-01,0.16721e-01,0.19074e-01,0.13955e-01 /) - kbo(:, 3,16, 5) = (/ & - & 0.86535e-03,0.12432e-01,0.17715e-01,0.19835e-01,0.14519e-01 /) - kbo(:, 4,16, 5) = (/ & - & 0.10180e-02,0.13358e-01,0.18733e-01,0.20612e-01,0.15053e-01 /) - kbo(:, 5,16, 5) = (/ & - & 0.12020e-02,0.14330e-01,0.19780e-01,0.21390e-01,0.15523e-01 /) - kbo(:, 1,17, 5) = (/ & - & 0.53827e-03,0.90675e-02,0.13282e-01,0.15310e-01,0.11002e-01 /) - kbo(:, 2,17, 5) = (/ & - & 0.62733e-03,0.97818e-02,0.14093e-01,0.15985e-01,0.11517e-01 /) - kbo(:, 3,17, 5) = (/ & - & 0.73894e-03,0.10536e-01,0.14937e-01,0.16642e-01,0.11982e-01 /) - kbo(:, 4,17, 5) = (/ & - & 0.87471e-03,0.11329e-01,0.15813e-01,0.17308e-01,0.12431e-01 /) - kbo(:, 5,17, 5) = (/ & - & 0.10369e-02,0.12167e-01,0.16717e-01,0.17966e-01,0.12833e-01 /) - kbo(:, 1,18, 5) = (/ & - & 0.45632e-03,0.76631e-02,0.11175e-01,0.12821e-01,0.91007e-02 /) - kbo(:, 2,18, 5) = (/ & - & 0.53618e-03,0.82741e-02,0.11867e-01,0.13402e-01,0.95284e-02 /) - kbo(:, 3,18, 5) = (/ & - & 0.63520e-03,0.89179e-02,0.12591e-01,0.13960e-01,0.99227e-02 /) - kbo(:, 4,18, 5) = (/ & - & 0.75513e-03,0.95966e-02,0.13345e-01,0.14529e-01,0.10294e-01 /) - kbo(:, 5,18, 5) = (/ & - & 0.89828e-03,0.10325e-01,0.14127e-01,0.15082e-01,0.10637e-01 /) - kbo(:, 1,19, 5) = (/ & - & 0.38782e-03,0.64686e-02,0.93947e-02,0.10738e-01,0.75366e-02 /) - kbo(:, 2,19, 5) = (/ & - & 0.45826e-03,0.69872e-02,0.99878e-02,0.11230e-01,0.78920e-02 /) - kbo(:, 3,19, 5) = (/ & - & 0.54544e-03,0.75386e-02,0.10613e-01,0.11706e-01,0.82219e-02 /) - kbo(:, 4,19, 5) = (/ & - & 0.65085e-03,0.81243e-02,0.11261e-01,0.12183e-01,0.85447e-02 /) - kbo(:, 5,19, 5) = (/ & - & 0.77601e-03,0.87598e-02,0.11933e-01,0.12660e-01,0.88388e-02 /) - kbo(:, 1,20, 5) = (/ & - & 0.33304e-03,0.54623e-02,0.79028e-02,0.89960e-02,0.62635e-02 /) - kbo(:, 2,20, 5) = (/ & - & 0.39553e-03,0.59055e-02,0.84155e-02,0.94111e-02,0.65613e-02 /) - kbo(:, 3,20, 5) = (/ & - & 0.47180e-03,0.63779e-02,0.89500e-02,0.98172e-02,0.68459e-02 /) - kbo(:, 4,20, 5) = (/ & - & 0.56453e-03,0.68862e-02,0.95048e-02,0.10225e-01,0.71246e-02 /) - kbo(:, 5,20, 5) = (/ & - & 0.67486e-03,0.74411e-02,0.10082e-01,0.10637e-01,0.73786e-02 /) - kbo(:, 1,21, 5) = (/ & - & 0.28693e-03,0.46180e-02,0.66504e-02,0.75379e-02,0.52071e-02 /) - kbo(:, 2,21, 5) = (/ & - & 0.34180e-03,0.49948e-02,0.70898e-02,0.78866e-02,0.54645e-02 /) - kbo(:, 3,21, 5) = (/ & - & 0.40811e-03,0.54006e-02,0.75474e-02,0.82331e-02,0.57127e-02 /) - kbo(:, 4,21, 5) = (/ & - & 0.48873e-03,0.58434e-02,0.80212e-02,0.85844e-02,0.59470e-02 /) - kbo(:, 5,21, 5) = (/ & - & 0.58593e-03,0.63260e-02,0.85182e-02,0.89408e-02,0.61662e-02 /) - kbo(:, 1,22, 5) = (/ & - & 0.24974e-03,0.39240e-02,0.56208e-02,0.63345e-02,0.43431e-02 /) - kbo(:, 2,22, 5) = (/ & - & 0.29749e-03,0.42526e-02,0.59996e-02,0.66266e-02,0.45624e-02 /) - kbo(:, 3,22, 5) = (/ & - & 0.35608e-03,0.46047e-02,0.63919e-02,0.69259e-02,0.47738e-02 /) - kbo(:, 4,22, 5) = (/ & - & 0.42699e-03,0.49920e-02,0.67993e-02,0.72276e-02,0.49714e-02 /) - kbo(:, 5,22, 5) = (/ & - & 0.51198e-03,0.54166e-02,0.72302e-02,0.75387e-02,0.51660e-02 /) - kbo(:, 1,23, 5) = (/ & - & 0.21716e-03,0.33375e-02,0.47528e-02,0.53238e-02,0.36258e-02 /) - kbo(:, 2,23, 5) = (/ & - & 0.25886e-03,0.36243e-02,0.50797e-02,0.55740e-02,0.38107e-02 /) - kbo(:, 3,23, 5) = (/ & - & 0.31026e-03,0.39353e-02,0.54169e-02,0.58309e-02,0.39876e-02 /) - kbo(:, 4,23, 5) = (/ & - & 0.37235e-03,0.42757e-02,0.57711e-02,0.60911e-02,0.41586e-02 /) - kbo(:, 5,23, 5) = (/ & - & 0.44568e-03,0.46463e-02,0.61476e-02,0.63633e-02,0.43277e-02 /) - kbo(:, 1,24, 5) = (/ & - & 0.18738e-03,0.28412e-02,0.40251e-02,0.44754e-02,0.30232e-02 /) - kbo(:, 2,24, 5) = (/ & - & 0.22422e-03,0.30930e-02,0.43062e-02,0.46921e-02,0.31788e-02 /) - kbo(:, 3,24, 5) = (/ & - & 0.26942e-03,0.33694e-02,0.45983e-02,0.49126e-02,0.33287e-02 /) - kbo(:, 4,24, 5) = (/ & - & 0.32317e-03,0.36702e-02,0.49092e-02,0.51393e-02,0.34771e-02 /) - kbo(:, 5,24, 5) = (/ & - & 0.38638e-03,0.39951e-02,0.52385e-02,0.53815e-02,0.36232e-02 /) - kbo(:, 1,25, 5) = (/ & - & 0.16224e-03,0.24232e-02,0.34141e-02,0.37661e-02,0.25262e-02 /) - kbo(:, 2,25, 5) = (/ & - & 0.19465e-03,0.26463e-02,0.36575e-02,0.39541e-02,0.26577e-02 /) - kbo(:, 3,25, 5) = (/ & - & 0.23391e-03,0.28936e-02,0.39130e-02,0.41446e-02,0.27841e-02 /) - kbo(:, 4,25, 5) = (/ & - & 0.28044e-03,0.31598e-02,0.41853e-02,0.43442e-02,0.29098e-02 /) - kbo(:, 5,25, 5) = (/ & - & 0.33483e-03,0.34437e-02,0.44735e-02,0.45625e-02,0.30351e-02 /) - kbo(:, 1,26, 5) = (/ & - & 0.14132e-03,0.20737e-02,0.29036e-02,0.31762e-02,0.21157e-02 /) - kbo(:, 2,26, 5) = (/ & - & 0.16977e-03,0.22743e-02,0.31152e-02,0.33382e-02,0.22258e-02 /) - kbo(:, 3,26, 5) = (/ & - & 0.20409e-03,0.24947e-02,0.33401e-02,0.35048e-02,0.23338e-02 /) - kbo(:, 4,26, 5) = (/ & - & 0.24472e-03,0.27297e-02,0.35798e-02,0.36835e-02,0.24421e-02 /) - kbo(:, 5,26, 5) = (/ & - & 0.29131e-03,0.29804e-02,0.38308e-02,0.38797e-02,0.25500e-02 /) - kbo(:, 1,27, 5) = (/ & - & 0.12293e-03,0.17797e-02,0.24725e-02,0.26822e-02,0.17718e-02 /) - kbo(:, 2,27, 5) = (/ & - & 0.14789e-03,0.19595e-02,0.26584e-02,0.28222e-02,0.18655e-02 /) - kbo(:, 3,27, 5) = (/ & - & 0.17790e-03,0.21552e-02,0.28584e-02,0.29695e-02,0.19589e-02 /) - kbo(:, 4,27, 5) = (/ & - & 0.21315e-03,0.23624e-02,0.30688e-02,0.31309e-02,0.20520e-02 /) - kbo(:, 5,27, 5) = (/ & - & 0.25285e-03,0.25825e-02,0.32876e-02,0.33068e-02,0.21445e-02 /) - kbo(:, 1,28, 5) = (/ & - & 0.10657e-03,0.15319e-02,0.21096e-02,0.22678e-02,0.14844e-02 /) - kbo(:, 2,28, 5) = (/ & - & 0.12856e-03,0.16920e-02,0.22743e-02,0.23899e-02,0.15639e-02 /) - kbo(:, 3,28, 5) = (/ & - & 0.15471e-03,0.18636e-02,0.24511e-02,0.25221e-02,0.16436e-02 /) - kbo(:, 4,28, 5) = (/ & - & 0.18512e-03,0.20472e-02,0.26364e-02,0.26681e-02,0.17238e-02 /) - kbo(:, 5,28, 5) = (/ & - & 0.21872e-03,0.22411e-02,0.28270e-02,0.28260e-02,0.18048e-02 /) - kbo(:, 1,29, 5) = (/ & - & 0.92876e-04,0.13237e-02,0.18049e-02,0.19214e-02,0.12471e-02 /) - kbo(:, 2,29, 5) = (/ & - & 0.11226e-03,0.14659e-02,0.19518e-02,0.20295e-02,0.13143e-02 /) - kbo(:, 3,29, 5) = (/ & - & 0.13519e-03,0.16171e-02,0.21089e-02,0.21498e-02,0.13833e-02 /) - kbo(:, 4,29, 5) = (/ & - & 0.16102e-03,0.17778e-02,0.22703e-02,0.22810e-02,0.14528e-02 /) - kbo(:, 5,29, 5) = (/ & - & 0.18981e-03,0.19484e-02,0.24374e-02,0.24249e-02,0.15236e-02 /) - kbo(:, 1,30, 5) = (/ & - & 0.80828e-04,0.11471e-02,0.15486e-02,0.16307e-02,0.10482e-02 /) - kbo(:, 2,30, 5) = (/ & - & 0.98063e-04,0.12718e-02,0.16797e-02,0.17287e-02,0.11053e-02 /) - kbo(:, 3,30, 5) = (/ & - & 0.11772e-03,0.14050e-02,0.18177e-02,0.18379e-02,0.11648e-02 /) - kbo(:, 4,30, 5) = (/ & - & 0.13981e-03,0.15469e-02,0.19589e-02,0.19565e-02,0.12258e-02 /) - kbo(:, 5,30, 5) = (/ & - & 0.16446e-03,0.16947e-02,0.21055e-02,0.20874e-02,0.12885e-02 /) - kbo(:, 1,31, 5) = (/ & - & 0.70539e-04,0.99621e-03,0.13325e-02,0.13879e-02,0.88220e-03 /) - kbo(:, 2,31, 5) = (/ & - & 0.85589e-04,0.11063e-02,0.14492e-02,0.14776e-02,0.93113e-03 /) - kbo(:, 3,31, 5) = (/ & - & 0.10244e-03,0.12240e-02,0.15701e-02,0.15764e-02,0.98237e-03 /) - kbo(:, 4,31, 5) = (/ & - & 0.12151e-03,0.13488e-02,0.16942e-02,0.16846e-02,0.10364e-02 /) - kbo(:, 5,31, 5) = (/ & - & 0.14245e-03,0.14753e-02,0.18229e-02,0.18042e-02,0.10910e-02 /) - kbo(:, 1,32, 5) = (/ & - & 0.61598e-04,0.86708e-03,0.11506e-02,0.11857e-02,0.74396e-03 /) - kbo(:, 2,32, 5) = (/ & - & 0.74698e-04,0.96443e-03,0.12533e-02,0.12673e-02,0.78590e-03 /) - kbo(:, 3,32, 5) = (/ & - & 0.89092e-04,0.10684e-02,0.13590e-02,0.13571e-02,0.83090e-03 /) - kbo(:, 4,32, 5) = (/ & - & 0.10537e-03,0.11766e-02,0.14682e-02,0.14560e-02,0.87827e-03 /) - kbo(:, 5,32, 5) = (/ & - & 0.12327e-03,0.12850e-02,0.15813e-02,0.15643e-02,0.92599e-03 /) - kbo(:, 1,33, 5) = (/ & - & 0.53748e-04,0.75629e-03,0.99595e-03,0.10163e-02,0.62809e-03 /) - kbo(:, 2,33, 5) = (/ & - & 0.64972e-04,0.84265e-03,0.10856e-02,0.10908e-02,0.66416e-03 /) - kbo(:, 3,33, 5) = (/ & - & 0.77386e-04,0.93397e-03,0.11787e-02,0.11727e-02,0.70387e-03 /) - kbo(:, 4,33, 5) = (/ & - & 0.91138e-04,0.10266e-02,0.12749e-02,0.12630e-02,0.74507e-03 /) - kbo(:, 5,33, 5) = (/ & - & 0.10640e-03,0.11189e-02,0.13738e-02,0.13608e-02,0.78830e-03 /) - kbo(:, 1,34, 5) = (/ & - & 0.46667e-04,0.65884e-03,0.86049e-03,0.87214e-03,0.53099e-03 /) - kbo(:, 2,34, 5) = (/ & - & 0.56263e-04,0.73490e-03,0.93900e-03,0.93946e-03,0.56278e-03 /) - kbo(:, 3,34, 5) = (/ & - & 0.66853e-04,0.81383e-03,0.10209e-02,0.10142e-02,0.59776e-03 /) - kbo(:, 4,34, 5) = (/ & - & 0.78598e-04,0.89314e-03,0.11054e-02,0.10963e-02,0.63419e-03 /) - kbo(:, 5,34, 5) = (/ & - & 0.91503e-04,0.97193e-03,0.11927e-02,0.11840e-02,0.67320e-03 /) - kbo(:, 1,35, 5) = (/ & - & 0.39599e-04,0.56866e-03,0.73803e-03,0.74491e-03,0.44688e-03 /) - kbo(:, 2,35, 5) = (/ & - & 0.47677e-04,0.63490e-03,0.80685e-03,0.80540e-03,0.47466e-03 /) - kbo(:, 3,35, 5) = (/ & - & 0.56630e-04,0.70279e-03,0.87860e-03,0.87332e-03,0.50476e-03 /) - kbo(:, 4,35, 5) = (/ & - & 0.66506e-04,0.77061e-03,0.95262e-03,0.94676e-03,0.53730e-03 /) - kbo(:, 5,35, 5) = (/ & - & 0.77343e-04,0.83870e-03,0.10295e-02,0.10250e-02,0.57200e-03 /) - kbo(:, 1,36, 5) = (/ & - & 0.32767e-04,0.48523e-03,0.62751e-03,0.63183e-03,0.37353e-03 /) - kbo(:, 2,36, 5) = (/ & - & 0.39450e-04,0.54261e-03,0.68744e-03,0.68587e-03,0.39744e-03 /) - kbo(:, 3,36, 5) = (/ & - & 0.46861e-04,0.60093e-03,0.74977e-03,0.74623e-03,0.42315e-03 /) - kbo(:, 4,36, 5) = (/ & - & 0.54956e-04,0.65916e-03,0.81469e-03,0.81158e-03,0.45144e-03 /) - kbo(:, 5,36, 5) = (/ & - & 0.63908e-04,0.71820e-03,0.88212e-03,0.88103e-03,0.48165e-03 /) - kbo(:, 1,37, 5) = (/ & - & 0.26734e-04,0.40754e-03,0.52645e-03,0.53014e-03,0.31118e-03 /) - kbo(:, 2,37, 5) = (/ & - & 0.32273e-04,0.45661e-03,0.57825e-03,0.57766e-03,0.33206e-03 /) - kbo(:, 3,37, 5) = (/ & - & 0.38488e-04,0.50697e-03,0.63245e-03,0.63058e-03,0.35476e-03 /) - kbo(:, 4,37, 5) = (/ & - & 0.45228e-04,0.55706e-03,0.68918e-03,0.68809e-03,0.37944e-03 /) - kbo(:, 5,37, 5) = (/ & - & 0.52675e-04,0.60808e-03,0.74794e-03,0.74934e-03,0.40598e-03 /) - kbo(:, 1,38, 5) = (/ & - & 0.21751e-04,0.34209e-03,0.44146e-03,0.44458e-03,0.25920e-03 /) - kbo(:, 2,38, 5) = (/ & - & 0.26326e-04,0.38415e-03,0.48603e-03,0.48632e-03,0.27730e-03 /) - kbo(:, 3,38, 5) = (/ & - & 0.31515e-04,0.42736e-03,0.53325e-03,0.53262e-03,0.29714e-03 /) - kbo(:, 4,38, 5) = (/ & - & 0.37219e-04,0.47064e-03,0.58263e-03,0.58321e-03,0.31890e-03 /) - kbo(:, 5,38, 5) = (/ & - & 0.43344e-04,0.51493e-03,0.63402e-03,0.63729e-03,0.34212e-03 /) - kbo(:, 1,39, 5) = (/ & - & 0.17643e-04,0.28717e-03,0.37020e-03,0.37288e-03,0.21580e-03 /) - kbo(:, 2,39, 5) = (/ & - & 0.21418e-04,0.32343e-03,0.40871e-03,0.40953e-03,0.23151e-03 /) - kbo(:, 3,39, 5) = (/ & - & 0.25725e-04,0.36044e-03,0.44966e-03,0.45005e-03,0.24880e-03 /) - kbo(:, 4,39, 5) = (/ & - & 0.30479e-04,0.39785e-03,0.49263e-03,0.49445e-03,0.26783e-03 /) - kbo(:, 5,39, 5) = (/ & - & 0.35653e-04,0.43646e-03,0.53771e-03,0.54230e-03,0.28822e-03 /) - kbo(:, 1,40, 5) = (/ & - & 0.14102e-04,0.23814e-03,0.30730e-03,0.30981e-03,0.17864e-03 /) - kbo(:, 2,40, 5) = (/ & - & 0.17187e-04,0.26934e-03,0.34039e-03,0.34146e-03,0.19234e-03 /) - kbo(:, 3,40, 5) = (/ & - & 0.20739e-04,0.30130e-03,0.37571e-03,0.37672e-03,0.20737e-03 /) - kbo(:, 4,40, 5) = (/ & - & 0.24670e-04,0.33333e-03,0.41283e-03,0.41538e-03,0.22408e-03 /) - kbo(:, 5,40, 5) = (/ & - & 0.29046e-04,0.36694e-03,0.45216e-03,0.45729e-03,0.24187e-03 /) - kbo(:, 1,41, 5) = (/ & - & 0.11221e-04,0.19710e-03,0.25465e-03,0.25696e-03,0.14773e-03 /) - kbo(:, 2,41, 5) = (/ & - & 0.13747e-04,0.22390e-03,0.28305e-03,0.28413e-03,0.15955e-03 /) - kbo(:, 3,41, 5) = (/ & - & 0.16649e-04,0.25145e-03,0.31346e-03,0.31467e-03,0.17269e-03 /) - kbo(:, 4,41, 5) = (/ & - & 0.19899e-04,0.27935e-03,0.34563e-03,0.34845e-03,0.18718e-03 /) - kbo(:, 5,41, 5) = (/ & - & 0.23568e-04,0.30830e-03,0.37974e-03,0.38512e-03,0.20281e-03 /) - kbo(:, 1,42, 5) = (/ & - & 0.89147e-05,0.16314e-03,0.21088e-03,0.21294e-03,0.12205e-03 /) - kbo(:, 2,42, 5) = (/ & - & 0.10957e-04,0.18596e-03,0.23523e-03,0.23628e-03,0.13225e-03 /) - kbo(:, 3,42, 5) = (/ & - & 0.13327e-04,0.20974e-03,0.26134e-03,0.26263e-03,0.14356e-03 /) - kbo(:, 4,42, 5) = (/ & - & 0.16005e-04,0.23378e-03,0.28925e-03,0.29202e-03,0.15621e-03 /) - kbo(:, 5,42, 5) = (/ & - & 0.19038e-04,0.25914e-03,0.31897e-03,0.32415e-03,0.16982e-03 /) - kbo(:, 1,43, 5) = (/ & - & 0.69995e-05,0.13405e-03,0.17338e-03,0.17535e-03,0.10036e-03 /) - kbo(:, 2,43, 5) = (/ & - & 0.86406e-05,0.15345e-03,0.19416e-03,0.19514e-03,0.10910e-03 /) - kbo(:, 3,43, 5) = (/ & - & 0.10556e-04,0.17373e-03,0.21659e-03,0.21767e-03,0.11887e-03 /) - kbo(:, 4,43, 5) = (/ & - & 0.12739e-04,0.19445e-03,0.24053e-03,0.24311e-03,0.12980e-03 /) - kbo(:, 5,43, 5) = (/ & - & 0.15232e-04,0.21640e-03,0.26645e-03,0.27107e-03,0.14169e-03 /) - kbo(:, 1,44, 5) = (/ & - & 0.54712e-05,0.10970e-03,0.14195e-03,0.14386e-03,0.82260e-04 /) - kbo(:, 2,44, 5) = (/ & - & 0.67644e-05,0.12612e-03,0.15963e-03,0.16061e-03,0.89727e-04 /) - kbo(:, 3,44, 5) = (/ & - & 0.82973e-05,0.14348e-03,0.17878e-03,0.17975e-03,0.98122e-04 /) - kbo(:, 4,44, 5) = (/ & - & 0.10082e-04,0.16132e-03,0.19952e-03,0.20155e-03,0.10755e-03 /) - kbo(:, 5,44, 5) = (/ & - & 0.12107e-04,0.18008e-03,0.22179e-03,0.22576e-03,0.11787e-03 /) - kbo(:, 1,45, 5) = (/ & - & 0.42767e-05,0.89680e-04,0.11611e-03,0.11781e-03,0.67338e-04 /) - kbo(:, 2,45, 5) = (/ & - & 0.52860e-05,0.10360e-03,0.13107e-03,0.13203e-03,0.73722e-04 /) - kbo(:, 3,45, 5) = (/ & - & 0.65107e-05,0.11838e-03,0.14735e-03,0.14829e-03,0.80852e-04 /) - kbo(:, 4,45, 5) = (/ & - & 0.79501e-05,0.13374e-03,0.16520e-03,0.16693e-03,0.88969e-04 /) - kbo(:, 5,45, 5) = (/ & - & 0.95937e-05,0.14993e-03,0.18456e-03,0.18781e-03,0.97897e-04 /) - kbo(:, 1,46, 5) = (/ & - & 0.33226e-05,0.72918e-04,0.94635e-04,0.96069e-04,0.54912e-04 /) - kbo(:, 2,46, 5) = (/ & - & 0.41185e-05,0.84705e-04,0.10726e-03,0.10809e-03,0.60325e-04 /) - kbo(:, 3,46, 5) = (/ & - & 0.50796e-05,0.97414e-04,0.12106e-03,0.12184e-03,0.66415e-04 /) - kbo(:, 4,46, 5) = (/ & - & 0.62311e-05,0.11055e-03,0.13625e-03,0.13772e-03,0.73354e-04 /) - kbo(:, 5,46, 5) = (/ & - & 0.75594e-05,0.12439e-03,0.15297e-03,0.15569e-03,0.80972e-04 /) - kbo(:, 1,47, 5) = (/ & - & 0.25507e-05,0.58753e-04,0.76599e-04,0.77798e-04,0.44508e-04 /) - kbo(:, 2,47, 5) = (/ & - & 0.31800e-05,0.68679e-04,0.87240e-04,0.87843e-04,0.49115e-04 /) - kbo(:, 3,47, 5) = (/ & - & 0.39273e-05,0.79497e-04,0.98871e-04,0.99421e-04,0.54249e-04 /) - kbo(:, 4,47, 5) = (/ & - & 0.48346e-05,0.90782e-04,0.11173e-03,0.11282e-03,0.60113e-04 /) - kbo(:, 5,47, 5) = (/ & - & 0.58995e-05,0.10267e-03,0.12592e-03,0.12815e-03,0.66656e-04 /) - kbo(:, 1,48, 5) = (/ & - & 0.19539e-05,0.47174e-04,0.61874e-04,0.62916e-04,0.35973e-04 /) - kbo(:, 2,48, 5) = (/ & - & 0.24452e-05,0.55575e-04,0.70853e-04,0.71238e-04,0.39898e-04 /) - kbo(:, 3,48, 5) = (/ & - & 0.30402e-05,0.64783e-04,0.80633e-04,0.80921e-04,0.44214e-04 /) - kbo(:, 4,48, 5) = (/ & - & 0.37390e-05,0.74439e-04,0.91498e-04,0.92208e-04,0.49162e-04 /) - kbo(:, 5,48, 5) = (/ & - & 0.45836e-05,0.84608e-04,0.10358e-03,0.10531e-03,0.54702e-04 /) - kbo(:, 1,49, 5) = (/ & - & 0.14940e-05,0.37716e-04,0.49829e-04,0.50804e-04,0.28987e-04 /) - kbo(:, 2,49, 5) = (/ & - & 0.18758e-05,0.44777e-04,0.57392e-04,0.57697e-04,0.32317e-04 /) - kbo(:, 3,49, 5) = (/ & - & 0.23413e-05,0.52604e-04,0.65608e-04,0.65748e-04,0.35946e-04 /) - kbo(:, 4,49, 5) = (/ & - & 0.28961e-05,0.60891e-04,0.74824e-04,0.75182e-04,0.40099e-04 /) - kbo(:, 5,49, 5) = (/ & - & 0.35524e-05,0.69587e-04,0.85068e-04,0.86295e-04,0.44804e-04 /) - kbo(:, 1,50, 5) = (/ & - & 0.11500e-05,0.30169e-04,0.40157e-04,0.41069e-04,0.23362e-04 /) - kbo(:, 2,50, 5) = (/ & - & 0.14453e-05,0.36089e-04,0.46549e-04,0.46799e-04,0.26193e-04 /) - kbo(:, 3,50, 5) = (/ & - & 0.18129e-05,0.42735e-04,0.53474e-04,0.53514e-04,0.29249e-04 /) - kbo(:, 4,50, 5) = (/ & - & 0.22529e-05,0.49843e-04,0.61234e-04,0.61404e-04,0.32748e-04 /) - kbo(:, 5,50, 5) = (/ & - & 0.27762e-05,0.57328e-04,0.70027e-04,0.70783e-04,0.36712e-04 /) - kbo(:, 1,51, 5) = (/ & - & 0.88851e-06,0.24095e-04,0.32303e-04,0.33210e-04,0.18805e-04 /) - kbo(:, 2,51, 5) = (/ & - & 0.11177e-05,0.29082e-04,0.37705e-04,0.37944e-04,0.21209e-04 /) - kbo(:, 3,51, 5) = (/ & - & 0.14060e-05,0.34667e-04,0.43578e-04,0.43570e-04,0.23792e-04 /) - kbo(:, 4,51, 5) = (/ & - & 0.17539e-05,0.40739e-04,0.50114e-04,0.50172e-04,0.26720e-04 /) - kbo(:, 5,51, 5) = (/ & - & 0.21729e-05,0.47224e-04,0.57598e-04,0.58070e-04,0.30079e-04 /) - kbo(:, 1,52, 5) = (/ & - & 0.68525e-06,0.19178e-04,0.25896e-04,0.26809e-04,0.15097e-04 /) - kbo(:, 2,52, 5) = (/ & - & 0.86301e-06,0.23336e-04,0.30434e-04,0.30713e-04,0.17120e-04 /) - kbo(:, 3,52, 5) = (/ & - & 0.10889e-05,0.28028e-04,0.35422e-04,0.35397e-04,0.19301e-04 /) - kbo(:, 4,52, 5) = (/ & - & 0.13649e-05,0.33187e-04,0.40954e-04,0.40921e-04,0.21752e-04 /) - kbo(:, 5,52, 5) = (/ & - & 0.16982e-05,0.38747e-04,0.47260e-04,0.47557e-04,0.24588e-04 /) - kbo(:, 1,53, 5) = (/ & - & 0.52809e-06,0.15206e-04,0.20688e-04,0.21592e-04,0.12084e-04 /) - kbo(:, 2,53, 5) = (/ & - & 0.66493e-06,0.18647e-04,0.24479e-04,0.24819e-04,0.13781e-04 /) - kbo(:, 3,53, 5) = (/ & - & 0.84102e-06,0.22574e-04,0.28683e-04,0.28690e-04,0.15621e-04 /) - kbo(:, 4,53, 5) = (/ & - & 0.10585e-05,0.26955e-04,0.33364e-04,0.33298e-04,0.17677e-04 /) - kbo(:, 5,53, 5) = (/ & - & 0.13239e-05,0.31710e-04,0.38733e-04,0.38864e-04,0.20049e-04 /) - kbo(:, 1,54, 5) = (/ & - & 0.40969e-06,0.12093e-04,0.16564e-04,0.17421e-04,0.96882e-05 /) - kbo(:, 2,54, 5) = (/ & - & 0.51569e-06,0.14937e-04,0.19734e-04,0.20094e-04,0.11112e-04 /) - kbo(:, 3,54, 5) = (/ & - & 0.65296e-06,0.18229e-04,0.23282e-04,0.23321e-04,0.12664e-04 /) - kbo(:, 4,54, 5) = (/ & - & 0.82573e-06,0.21950e-04,0.27231e-04,0.27150e-04,0.14393e-04 /) - kbo(:, 5,54, 5) = (/ & - & 0.10373e-05,0.26013e-04,0.31791e-04,0.31828e-04,0.16379e-04 /) - kbo(:, 1,55, 5) = (/ & - & 0.31928e-06,0.96162e-05,0.13257e-04,0.14053e-04,0.77741e-05 /) - kbo(:, 2,55, 5) = (/ & - & 0.40112e-06,0.11963e-04,0.15906e-04,0.16257e-04,0.89578e-05 /) - kbo(:, 3,55, 5) = (/ & - & 0.50816e-06,0.14717e-04,0.18886e-04,0.18947e-04,0.10262e-04 /) - kbo(:, 4,55, 5) = (/ & - & 0.64465e-06,0.17864e-04,0.22207e-04,0.22155e-04,0.11715e-04 /) - kbo(:, 5,55, 5) = (/ & - & 0.81328e-06,0.21326e-04,0.26076e-04,0.26061e-04,0.13376e-04 /) - kbo(:, 1,56, 5) = (/ & - & 0.24829e-06,0.76204e-05,0.10578e-04,0.11309e-04,0.62208e-05 /) - kbo(:, 2,56, 5) = (/ & - & 0.31176e-06,0.95488e-05,0.12780e-04,0.13125e-04,0.72013e-05 /) - kbo(:, 3,56, 5) = (/ & - & 0.39506e-06,0.11850e-04,0.15279e-04,0.15348e-04,0.82947e-05 /) - kbo(:, 4,56, 5) = (/ & - & 0.50266e-06,0.14492e-04,0.18074e-04,0.18040e-04,0.95153e-05 /) - kbo(:, 5,56, 5) = (/ & - & 0.63638e-06,0.17442e-04,0.21336e-04,0.21310e-04,0.10904e-04 /) - kbo(:, 1,57, 5) = (/ & - & 0.19302e-06,0.60187e-05,0.84162e-05,0.90799e-05,0.49649e-05 /) - kbo(:, 2,57, 5) = (/ & - & 0.24222e-06,0.75959e-05,0.10233e-04,0.10570e-04,0.57701e-05 /) - kbo(:, 3,57, 5) = (/ & - & 0.30688e-06,0.95080e-05,0.12318e-04,0.12403e-04,0.66913e-05 /) - kbo(:, 4,57, 5) = (/ & - & 0.39089e-06,0.11719e-04,0.14670e-04,0.14644e-04,0.77166e-05 /) - kbo(:, 5,57, 5) = (/ & - & 0.49674e-06,0.14214e-04,0.17402e-04,0.17382e-04,0.88727e-05 /) - kbo(:, 1,58, 5) = (/ & - & 0.15046e-06,0.47663e-05,0.66998e-05,0.72908e-05,0.39631e-05 /) - kbo(:, 2,58, 5) = (/ & - & 0.18856e-06,0.60459e-05,0.81908e-05,0.85206e-05,0.46270e-05 /) - kbo(:, 3,58, 5) = (/ & - & 0.23869e-06,0.76302e-05,0.99245e-05,0.10023e-04,0.53977e-05 /) - kbo(:, 4,58, 5) = (/ & - & 0.30459e-06,0.94767e-05,0.11911e-04,0.11894e-04,0.62579e-05 /) - kbo(:, 5,58, 5) = (/ & - & 0.38820e-06,0.11588e-04,0.14205e-04,0.14182e-04,0.72226e-05 /) - kbo(:, 1,59, 5) = (/ & - & 0.12212e-06,0.39332e-05,0.55230e-05,0.60094e-05,0.32499e-05 /) - kbo(:, 2,59, 5) = (/ & - & 0.15324e-06,0.50178e-05,0.67879e-05,0.70566e-05,0.38108e-05 /) - kbo(:, 3,59, 5) = (/ & - & 0.19418e-06,0.63678e-05,0.82647e-05,0.83443e-05,0.44672e-05 /) - kbo(:, 4,59, 5) = (/ & - & 0.24820e-06,0.79543e-05,0.99670e-05,0.99518e-05,0.52027e-05 /) - kbo(:, 5,59, 5) = (/ & - & 0.31740e-06,0.97704e-05,0.11964e-04,0.11938e-04,0.60278e-05 /) - kbo(:, 1,13, 6) = (/ & - & 0.10896e-01,0.63076e-01,0.78831e-01,0.78091e-01,0.55428e-01 /) - kbo(:, 2,13, 6) = (/ & - & 0.13036e-01,0.66370e-01,0.81226e-01,0.79692e-01,0.56778e-01 /) - kbo(:, 3,13, 6) = (/ & - & 0.15498e-01,0.69685e-01,0.83483e-01,0.81400e-01,0.57975e-01 /) - kbo(:, 4,13, 6) = (/ & - & 0.18239e-01,0.73147e-01,0.85845e-01,0.83249e-01,0.59127e-01 /) - kbo(:, 5,13, 6) = (/ & - & 0.21232e-01,0.76581e-01,0.88266e-01,0.85245e-01,0.60192e-01 /) - kbo(:, 1,14, 6) = (/ & - & 0.94274e-02,0.53526e-01,0.66496e-01,0.65527e-01,0.46374e-01 /) - kbo(:, 2,14, 6) = (/ & - & 0.11284e-01,0.56390e-01,0.68527e-01,0.66955e-01,0.47524e-01 /) - kbo(:, 3,14, 6) = (/ & - & 0.13394e-01,0.59305e-01,0.70546e-01,0.68479e-01,0.48560e-01 /) - kbo(:, 4,14, 6) = (/ & - & 0.15751e-01,0.62293e-01,0.72634e-01,0.70165e-01,0.49587e-01 /) - kbo(:, 5,14, 6) = (/ & - & 0.18326e-01,0.65240e-01,0.74773e-01,0.71967e-01,0.50492e-01 /) - kbo(:, 1,15, 6) = (/ & - & 0.81352e-02,0.45294e-01,0.55939e-01,0.54933e-01,0.38471e-01 /) - kbo(:, 2,15, 6) = (/ & - & 0.97406e-02,0.47797e-01,0.57705e-01,0.56201e-01,0.39475e-01 /) - kbo(:, 3,15, 6) = (/ & - & 0.11542e-01,0.50349e-01,0.59500e-01,0.57588e-01,0.40391e-01 /) - kbo(:, 4,15, 6) = (/ & - & 0.13568e-01,0.52924e-01,0.61342e-01,0.59116e-01,0.41250e-01 /) - kbo(:, 5,15, 6) = (/ & - & 0.15789e-01,0.55427e-01,0.63250e-01,0.60727e-01,0.42016e-01 /) - kbo(:, 1,16, 6) = (/ & - & 0.70159e-02,0.38272e-01,0.46984e-01,0.46002e-01,0.31818e-01 /) - kbo(:, 2,16, 6) = (/ & - & 0.83846e-02,0.40476e-01,0.48519e-01,0.47148e-01,0.32640e-01 /) - kbo(:, 3,16, 6) = (/ & - & 0.99392e-02,0.42699e-01,0.50118e-01,0.48421e-01,0.33435e-01 /) - kbo(:, 4,16, 6) = (/ & - & 0.11675e-01,0.44875e-01,0.51760e-01,0.49780e-01,0.34161e-01 /) - kbo(:, 5,16, 6) = (/ & - & 0.13584e-01,0.46992e-01,0.53405e-01,0.51224e-01,0.34855e-01 /) - kbo(:, 1,17, 6) = (/ & - & 0.60402e-02,0.32343e-01,0.39419e-01,0.38482e-01,0.26323e-01 /) - kbo(:, 2,17, 6) = (/ & - & 0.72134e-02,0.34265e-01,0.40783e-01,0.39523e-01,0.27045e-01 /) - kbo(:, 3,17, 6) = (/ & - & 0.85415e-02,0.36157e-01,0.42200e-01,0.40657e-01,0.27733e-01 /) - kbo(:, 4,17, 6) = (/ & - & 0.10023e-01,0.37979e-01,0.43620e-01,0.41877e-01,0.28354e-01 /) - kbo(:, 5,17, 6) = (/ & - & 0.11662e-01,0.39775e-01,0.45034e-01,0.43161e-01,0.28989e-01 /) - kbo(:, 1,18, 6) = (/ & - & 0.51905e-02,0.27334e-01,0.33081e-01,0.32183e-01,0.21845e-01 /) - kbo(:, 2,18, 6) = (/ & - & 0.61907e-02,0.28996e-01,0.34295e-01,0.33127e-01,0.22456e-01 /) - kbo(:, 3,18, 6) = (/ & - & 0.73283e-02,0.30572e-01,0.35522e-01,0.34131e-01,0.23047e-01 /) - kbo(:, 4,18, 6) = (/ & - & 0.85960e-02,0.32113e-01,0.36725e-01,0.35202e-01,0.23589e-01 /) - kbo(:, 5,18, 6) = (/ & - & 0.10011e-01,0.33654e-01,0.37950e-01,0.36339e-01,0.24154e-01 /) - kbo(:, 1,19, 6) = (/ & - & 0.44474e-02,0.23093e-01,0.27758e-01,0.26913e-01,0.18159e-01 /) - kbo(:, 2,19, 6) = (/ & - & 0.53019e-02,0.24497e-01,0.28826e-01,0.27764e-01,0.18694e-01 /) - kbo(:, 3,19, 6) = (/ & - & 0.62735e-02,0.25825e-01,0.29864e-01,0.28669e-01,0.19187e-01 /) - kbo(:, 4,19, 6) = (/ & - & 0.73683e-02,0.27139e-01,0.30890e-01,0.29627e-01,0.19650e-01 /) - kbo(:, 5,19, 6) = (/ & - & 0.85933e-02,0.28467e-01,0.31975e-01,0.30634e-01,0.20138e-01 /) - kbo(:, 1,20, 6) = (/ & - & 0.38215e-02,0.19522e-01,0.23307e-01,0.22532e-01,0.15180e-01 /) - kbo(:, 2,20, 6) = (/ & - & 0.45489e-02,0.20697e-01,0.24217e-01,0.23292e-01,0.15626e-01 /) - kbo(:, 3,20, 6) = (/ & - & 0.53838e-02,0.21827e-01,0.25099e-01,0.24107e-01,0.16039e-01 /) - kbo(:, 4,20, 6) = (/ & - & 0.63294e-02,0.22947e-01,0.25996e-01,0.24951e-01,0.16431e-01 /) - kbo(:, 5,20, 6) = (/ & - & 0.73910e-02,0.24098e-01,0.26969e-01,0.25840e-01,0.16861e-01 /) - kbo(:, 1,21, 6) = (/ & - & 0.32849e-02,0.16485e-01,0.19564e-01,0.18873e-01,0.12724e-01 /) - kbo(:, 2,21, 6) = (/ & - & 0.39093e-02,0.17476e-01,0.20333e-01,0.19553e-01,0.13080e-01 /) - kbo(:, 3,21, 6) = (/ & - & 0.46257e-02,0.18440e-01,0.21099e-01,0.20272e-01,0.13424e-01 /) - kbo(:, 4,21, 6) = (/ & - & 0.54436e-02,0.19400e-01,0.21897e-01,0.21018e-01,0.13774e-01 /) - kbo(:, 5,21, 6) = (/ & - & 0.63568e-02,0.20406e-01,0.22777e-01,0.21806e-01,0.14153e-01 /) - kbo(:, 1,22, 6) = (/ & - & 0.28524e-02,0.13970e-01,0.16464e-01,0.15855e-01,0.10647e-01 /) - kbo(:, 2,22, 6) = (/ & - & 0.33998e-02,0.14799e-01,0.17121e-01,0.16464e-01,0.10957e-01 /) - kbo(:, 3,22, 6) = (/ & - & 0.40218e-02,0.15618e-01,0.17789e-01,0.17098e-01,0.11264e-01 /) - kbo(:, 4,22, 6) = (/ & - & 0.47350e-02,0.16459e-01,0.18512e-01,0.17761e-01,0.11585e-01 /) - kbo(:, 5,22, 6) = (/ & - & 0.55269e-02,0.17342e-01,0.19306e-01,0.18466e-01,0.11905e-01 /) - kbo(:, 1,23, 6) = (/ & - & 0.24776e-02,0.11832e-01,0.13862e-01,0.13338e-01,0.89101e-02 /) - kbo(:, 2,23, 6) = (/ & - & 0.29594e-02,0.12532e-01,0.14430e-01,0.13874e-01,0.91836e-02 /) - kbo(:, 3,23, 6) = (/ & - & 0.35060e-02,0.13237e-01,0.15025e-01,0.14435e-01,0.94582e-02 /) - kbo(:, 4,23, 6) = (/ & - & 0.41276e-02,0.13976e-01,0.15673e-01,0.15028e-01,0.97462e-02 /) - kbo(:, 5,23, 6) = (/ & - & 0.48108e-02,0.14761e-01,0.16387e-01,0.15666e-01,0.10041e-01 /) - kbo(:, 1,24, 6) = (/ & - & 0.21553e-02,0.10022e-01,0.11681e-01,0.11233e-01,0.74484e-02 /) - kbo(:, 2,24, 6) = (/ & - & 0.25764e-02,0.10621e-01,0.12176e-01,0.11709e-01,0.76914e-02 /) - kbo(:, 3,24, 6) = (/ & - & 0.30587e-02,0.11236e-01,0.12711e-01,0.12208e-01,0.79451e-02 /) - kbo(:, 4,24, 6) = (/ & - & 0.36022e-02,0.11891e-01,0.13293e-01,0.12744e-01,0.82033e-02 /) - kbo(:, 5,24, 6) = (/ & - & 0.41914e-02,0.12593e-01,0.13939e-01,0.13324e-01,0.84674e-02 /) - kbo(:, 1,25, 6) = (/ & - & 0.18796e-02,0.85000e-02,0.98543e-02,0.94788e-02,0.62281e-02 /) - kbo(:, 2,25, 6) = (/ & - & 0.22512e-02,0.90173e-02,0.10293e-01,0.99015e-02,0.64465e-02 /) - kbo(:, 3,25, 6) = (/ & - & 0.26761e-02,0.95606e-02,0.10772e-01,0.10351e-01,0.66771e-02 /) - kbo(:, 4,25, 6) = (/ & - & 0.31512e-02,0.10144e-01,0.11303e-01,0.10838e-01,0.69100e-02 /) - kbo(:, 5,25, 6) = (/ & - & 0.36575e-02,0.10772e-01,0.11893e-01,0.11363e-01,0.71526e-02 /) - kbo(:, 1,26, 6) = (/ & - & 0.16486e-02,0.72263e-02,0.83293e-02,0.80207e-02,0.52267e-02 /) - kbo(:, 2,26, 6) = (/ & - & 0.19790e-02,0.76783e-02,0.87239e-02,0.83966e-02,0.54266e-02 /) - kbo(:, 3,26, 6) = (/ & - & 0.23552e-02,0.81632e-02,0.91606e-02,0.88030e-02,0.56340e-02 /) - kbo(:, 4,26, 6) = (/ & - & 0.27655e-02,0.86841e-02,0.96465e-02,0.92463e-02,0.58421e-02 /) - kbo(:, 5,26, 6) = (/ & - & 0.32014e-02,0.92461e-02,0.10190e-01,0.97263e-02,0.60618e-02 /) - kbo(:, 1,27, 6) = (/ & - & 0.14479e-02,0.61551e-02,0.70548e-02,0.67980e-02,0.43916e-02 /) - kbo(:, 2,27, 6) = (/ & - & 0.17422e-02,0.65560e-02,0.74109e-02,0.71369e-02,0.45703e-02 /) - kbo(:, 3,27, 6) = (/ & - & 0.20711e-02,0.69878e-02,0.78116e-02,0.75081e-02,0.47565e-02 /) - kbo(:, 4,27, 6) = (/ & - & 0.24273e-02,0.74543e-02,0.82596e-02,0.79125e-02,0.49414e-02 /) - kbo(:, 5,27, 6) = (/ & - & 0.28006e-02,0.79622e-02,0.87633e-02,0.83523e-02,0.51438e-02 /) - kbo(:, 1,28, 6) = (/ & - & 0.12757e-02,0.52552e-02,0.59880e-02,0.57731e-02,0.36940e-02 /) - kbo(:, 2,28, 6) = (/ & - & 0.15355e-02,0.56117e-02,0.63148e-02,0.60828e-02,0.38537e-02 /) - kbo(:, 3,28, 6) = (/ & - & 0.18209e-02,0.60000e-02,0.66831e-02,0.64236e-02,0.40153e-02 /) - kbo(:, 4,28, 6) = (/ & - & 0.21272e-02,0.64202e-02,0.70979e-02,0.67923e-02,0.41811e-02 /) - kbo(:, 5,28, 6) = (/ & - & 0.24474e-02,0.68778e-02,0.75643e-02,0.71983e-02,0.43640e-02 /) - kbo(:, 1,29, 6) = (/ & - & 0.11295e-02,0.45004e-02,0.50997e-02,0.49184e-02,0.31153e-02 /) - kbo(:, 2,29, 6) = (/ & - & 0.13559e-02,0.48180e-02,0.54010e-02,0.52034e-02,0.32572e-02 /) - kbo(:, 3,29, 6) = (/ & - & 0.16033e-02,0.51685e-02,0.57423e-02,0.55151e-02,0.33997e-02 /) - kbo(:, 4,29, 6) = (/ & - & 0.18647e-02,0.55488e-02,0.61280e-02,0.58545e-02,0.35531e-02 /) - kbo(:, 5,29, 6) = (/ & - & 0.21368e-02,0.59683e-02,0.65578e-02,0.62309e-02,0.37192e-02 /) - kbo(:, 1,30, 6) = (/ & - & 0.10010e-02,0.38621e-02,0.43580e-02,0.42036e-02,0.26325e-02 /) - kbo(:, 2,30, 6) = (/ & - & 0.11967e-02,0.41511e-02,0.46366e-02,0.44656e-02,0.27570e-02 /) - kbo(:, 3,30, 6) = (/ & - & 0.14096e-02,0.44678e-02,0.49534e-02,0.47515e-02,0.28856e-02 /) - kbo(:, 4,30, 6) = (/ & - & 0.16325e-02,0.48140e-02,0.53117e-02,0.50685e-02,0.30242e-02 /) - kbo(:, 5,30, 6) = (/ & - & 0.18599e-02,0.52016e-02,0.57103e-02,0.54169e-02,0.31738e-02 /) - kbo(:, 1,31, 6) = (/ & - & 0.88685e-03,0.33266e-02,0.37394e-02,0.36064e-02,0.22280e-02 /) - kbo(:, 2,31, 6) = (/ & - & 0.10569e-02,0.35897e-02,0.39964e-02,0.38465e-02,0.23389e-02 /) - kbo(:, 3,31, 6) = (/ & - & 0.12382e-02,0.38779e-02,0.42920e-02,0.41135e-02,0.24573e-02 /) - kbo(:, 4,31, 6) = (/ & - & 0.14278e-02,0.41961e-02,0.46258e-02,0.44080e-02,0.25818e-02 /) - kbo(:, 5,31, 6) = (/ & - & 0.16136e-02,0.45547e-02,0.50001e-02,0.47313e-02,0.27214e-02 /) - kbo(:, 1,32, 6) = (/ & - & 0.78559e-03,0.28763e-02,0.32195e-02,0.31059e-02,0.18911e-02 /) - kbo(:, 2,32, 6) = (/ & - & 0.93178e-03,0.31157e-02,0.34609e-02,0.33287e-02,0.19930e-02 /) - kbo(:, 3,32, 6) = (/ & - & 0.10867e-02,0.33798e-02,0.37377e-02,0.35772e-02,0.21006e-02 /) - kbo(:, 4,32, 6) = (/ & - & 0.12446e-02,0.36754e-02,0.40497e-02,0.38517e-02,0.22158e-02 /) - kbo(:, 5,32, 6) = (/ & - & 0.13936e-02,0.40072e-02,0.44007e-02,0.41538e-02,0.23413e-02 /) - kbo(:, 1,33, 6) = (/ & - & 0.69486e-03,0.24959e-02,0.27846e-02,0.26858e-02,0.16103e-02 /) - kbo(:, 2,33, 6) = (/ & - & 0.82037e-03,0.27142e-02,0.30117e-02,0.28933e-02,0.17041e-02 /) - kbo(:, 3,33, 6) = (/ & - & 0.95137e-03,0.29589e-02,0.32703e-02,0.31258e-02,0.18033e-02 /) - kbo(:, 4,33, 6) = (/ & - & 0.10800e-02,0.32345e-02,0.35641e-02,0.33810e-02,0.19089e-02 /) - kbo(:, 5,33, 6) = (/ & - & 0.11986e-02,0.35406e-02,0.38943e-02,0.36682e-02,0.20234e-02 /) - kbo(:, 1,34, 6) = (/ & - & 0.61032e-03,0.21671e-02,0.24134e-02,0.23268e-02,0.13754e-02 /) - kbo(:, 2,34, 6) = (/ & - & 0.71748e-03,0.23678e-02,0.26264e-02,0.25207e-02,0.14624e-02 /) - kbo(:, 3,34, 6) = (/ & - & 0.82600e-03,0.25947e-02,0.28697e-02,0.27368e-02,0.15523e-02 /) - kbo(:, 4,34, 6) = (/ & - & 0.92939e-03,0.28495e-02,0.31449e-02,0.29773e-02,0.16488e-02 /) - kbo(:, 5,34, 6) = (/ & - & 0.10239e-02,0.31299e-02,0.34552e-02,0.32520e-02,0.17543e-02 /) - kbo(:, 1,35, 6) = (/ & - & 0.52678e-03,0.18713e-02,0.20838e-02,0.20082e-02,0.11717e-02 /) - kbo(:, 2,35, 6) = (/ & - & 0.61674e-03,0.20541e-02,0.22811e-02,0.21873e-02,0.12500e-02 /) - kbo(:, 3,35, 6) = (/ & - & 0.70570e-03,0.22625e-02,0.25066e-02,0.23870e-02,0.13326e-02 /) - kbo(:, 4,35, 6) = (/ & - & 0.78855e-03,0.24971e-02,0.27629e-02,0.26134e-02,0.14204e-02 /) - kbo(:, 5,35, 6) = (/ & - & 0.86492e-03,0.27499e-02,0.30514e-02,0.28766e-02,0.15154e-02 /) - kbo(:, 1,36, 6) = (/ & - & 0.44569e-03,0.16031e-02,0.17868e-02,0.17221e-02,0.99240e-03 /) - kbo(:, 2,36, 6) = (/ & - & 0.52055e-03,0.17679e-02,0.19674e-02,0.18854e-02,0.10623e-02 /) - kbo(:, 3,36, 6) = (/ & - & 0.59380e-03,0.19567e-02,0.21742e-02,0.20700e-02,0.11368e-02 /) - kbo(:, 4,36, 6) = (/ & - & 0.66114e-03,0.21690e-02,0.24093e-02,0.22827e-02,0.12171e-02 /) - kbo(:, 5,36, 6) = (/ & - & 0.72347e-03,0.23953e-02,0.26735e-02,0.25294e-02,0.13028e-02 /) - kbo(:, 1,37, 6) = (/ & - & 0.36881e-03,0.13558e-02,0.15140e-02,0.14605e-02,0.83527e-03 /) - kbo(:, 2,37, 6) = (/ & - & 0.43070e-03,0.15018e-02,0.16759e-02,0.16073e-02,0.89749e-03 /) - kbo(:, 3,37, 6) = (/ & - & 0.49122e-03,0.16697e-02,0.18620e-02,0.17747e-02,0.96428e-03 /) - kbo(:, 4,37, 6) = (/ & - & 0.54687e-03,0.18590e-02,0.20742e-02,0.19690e-02,0.10365e-02 /) - kbo(:, 5,37, 6) = (/ & - & 0.59826e-03,0.20615e-02,0.23143e-02,0.21948e-02,0.11140e-02 /) - kbo(:, 1,38, 6) = (/ & - & 0.30472e-03,0.11463e-02,0.12827e-02,0.12387e-02,0.70293e-03 /) - kbo(:, 2,38, 6) = (/ & - & 0.35606e-03,0.12755e-02,0.14277e-02,0.13705e-02,0.75844e-03 /) - kbo(:, 3,38, 6) = (/ & - & 0.40587e-03,0.14248e-02,0.15948e-02,0.15225e-02,0.81832e-03 /) - kbo(:, 4,38, 6) = (/ & - & 0.45170e-03,0.15929e-02,0.17869e-02,0.16996e-02,0.88272e-03 /) - kbo(:, 5,38, 6) = (/ & - & 0.49447e-03,0.17743e-02,0.20049e-02,0.19060e-02,0.95296e-03 /) - kbo(:, 1,39, 6) = (/ & - & 0.25159e-03,0.96943e-03,0.10877e-02,0.10513e-02,0.59159e-03 /) - kbo(:, 2,39, 6) = (/ & - & 0.29433e-03,0.10839e-02,0.12173e-02,0.11700e-02,0.64088e-03 /) - kbo(:, 3,39, 6) = (/ & - & 0.33554e-03,0.12164e-02,0.13675e-02,0.13079e-02,0.69454e-03 /) - kbo(:, 4,39, 6) = (/ & - & 0.37315e-03,0.13660e-02,0.15416e-02,0.14697e-02,0.75241e-03 /) - kbo(:, 5,39, 6) = (/ & - & 0.40840e-03,0.15291e-02,0.17396e-02,0.16583e-02,0.81566e-03 /) - kbo(:, 1,40, 6) = (/ & - & 0.20445e-03,0.81104e-03,0.91201e-03,0.88303e-03,0.49462e-03 /) - kbo(:, 2,40, 6) = (/ & - & 0.24013e-03,0.91062e-03,0.10259e-02,0.98834e-03,0.53806e-03 /) - kbo(:, 3,40, 6) = (/ & - & 0.27454e-03,0.10267e-02,0.11591e-02,0.11112e-02,0.58582e-03 /) - kbo(:, 4,40, 6) = (/ & - & 0.30609e-03,0.11586e-02,0.13148e-02,0.12564e-02,0.63733e-03 /) - kbo(:, 5,40, 6) = (/ & - & 0.33521e-03,0.13038e-02,0.14932e-02,0.14267e-02,0.69406e-03 /) - kbo(:, 1,41, 6) = (/ & - & 0.16568e-03,0.67706e-03,0.76339e-03,0.74014e-03,0.41311e-03 /) - kbo(:, 2,41, 6) = (/ & - & 0.19545e-03,0.76370e-03,0.86317e-03,0.83349e-03,0.45126e-03 /) - kbo(:, 3,41, 6) = (/ & - & 0.22429e-03,0.86513e-03,0.98057e-03,0.94284e-03,0.49336e-03 /) - kbo(:, 4,41, 6) = (/ & - & 0.25075e-03,0.98100e-03,0.11192e-02,0.10723e-02,0.53916e-03 /) - kbo(:, 5,41, 6) = (/ & - & 0.27523e-03,0.11101e-02,0.12797e-02,0.12259e-02,0.58980e-03 /) - kbo(:, 1,42, 6) = (/ & - & 0.13464e-03,0.56478e-03,0.63846e-03,0.61972e-03,0.34485e-03 /) - kbo(:, 2,42, 6) = (/ & - & 0.15918e-03,0.64002e-03,0.72573e-03,0.70212e-03,0.37807e-03 /) - kbo(:, 3,42, 6) = (/ & - & 0.18309e-03,0.72866e-03,0.82914e-03,0.79959e-03,0.41541e-03 /) - kbo(:, 4,42, 6) = (/ & - & 0.20534e-03,0.83063e-03,0.95224e-03,0.91510e-03,0.45609e-03 /) - kbo(:, 5,42, 6) = (/ & - & 0.22591e-03,0.94536e-03,0.10960e-02,0.10535e-02,0.50132e-03 /) - kbo(:, 1,43, 6) = (/ & - & 0.10834e-03,0.46763e-03,0.52964e-03,0.51479e-03,0.28641e-03 /) - kbo(:, 2,43, 6) = (/ & - & 0.12878e-03,0.53191e-03,0.60529e-03,0.58655e-03,0.31538e-03 /) - kbo(:, 3,43, 6) = (/ & - & 0.14877e-03,0.60848e-03,0.69517e-03,0.67233e-03,0.34781e-03 /) - kbo(:, 4,43, 6) = (/ & - & 0.16739e-03,0.69818e-03,0.80315e-03,0.77433e-03,0.38376e-03 /) - kbo(:, 5,43, 6) = (/ & - & 0.18458e-03,0.79951e-03,0.93071e-03,0.89755e-03,0.42371e-03 /) - kbo(:, 1,44, 6) = (/ & - & 0.86770e-04,0.38551e-03,0.43712e-03,0.42544e-03,0.23710e-03 /) - kbo(:, 2,44, 6) = (/ & - & 0.10382e-03,0.44040e-03,0.50222e-03,0.48753e-03,0.26235e-03 /) - kbo(:, 3,44, 6) = (/ & - & 0.12059e-03,0.50571e-03,0.58013e-03,0.56233e-03,0.29036e-03 /) - kbo(:, 4,44, 6) = (/ & - & 0.13632e-03,0.58391e-03,0.67429e-03,0.65221e-03,0.32192e-03 /) - kbo(:, 5,44, 6) = (/ & - & 0.15073e-03,0.67339e-03,0.78624e-03,0.76086e-03,0.35732e-03 /) - kbo(:, 1,45, 6) = (/ & - & 0.69317e-04,0.31724e-03,0.36001e-03,0.35090e-03,0.19579e-03 /) - kbo(:, 2,45, 6) = (/ & - & 0.83569e-04,0.36417e-03,0.41579e-03,0.40435e-03,0.21781e-03 /) - kbo(:, 3,45, 6) = (/ & - & 0.97725e-04,0.42014e-03,0.48329e-03,0.46938e-03,0.24226e-03 /) - kbo(:, 4,45, 6) = (/ & - & 0.11101e-03,0.48745e-03,0.56520e-03,0.54804e-03,0.26965e-03 /) - kbo(:, 5,45, 6) = (/ & - & 0.12310e-03,0.56606e-03,0.66327e-03,0.64374e-03,0.30080e-03 /) - kbo(:, 1,46, 6) = (/ & - & 0.55030e-04,0.26007e-03,0.29522e-03,0.28798e-03,0.16098e-03 /) - kbo(:, 2,46, 6) = (/ & - & 0.66908e-04,0.29981e-03,0.34235e-03,0.33361e-03,0.18009e-03 /) - kbo(:, 3,46, 6) = (/ & - & 0.78894e-04,0.34737e-03,0.40028e-03,0.38969e-03,0.20138e-03 /) - kbo(:, 4,46, 6) = (/ & - & 0.90228e-04,0.40507e-03,0.47110e-03,0.45796e-03,0.22525e-03 /) - kbo(:, 5,46, 6) = (/ & - & 0.10044e-03,0.47380e-03,0.55673e-03,0.54149e-03,0.25231e-03 /) - kbo(:, 1,47, 6) = (/ & - & 0.43131e-04,0.21132e-03,0.23992e-03,0.23430e-03,0.13147e-03 /) - kbo(:, 2,47, 6) = (/ & - & 0.53026e-04,0.24489e-03,0.27966e-03,0.27282e-03,0.14794e-03 /) - kbo(:, 3,47, 6) = (/ & - & 0.63179e-04,0.28502e-03,0.32837e-03,0.32046e-03,0.16642e-03 /) - kbo(:, 4,47, 6) = (/ & - & 0.72849e-04,0.33391e-03,0.38868e-03,0.37909e-03,0.18727e-03 /) - kbo(:, 5,47, 6) = (/ & - & 0.81641e-04,0.39308e-03,0.46293e-03,0.45114e-03,0.21071e-03 /) - kbo(:, 1,48, 6) = (/ & - & 0.33560e-04,0.17139e-03,0.19468e-03,0.19001e-03,0.10710e-03 /) - kbo(:, 2,48, 6) = (/ & - & 0.41736e-04,0.19942e-03,0.22765e-03,0.22235e-03,0.12121e-03 /) - kbo(:, 3,48, 6) = (/ & - & 0.50371e-04,0.23319e-03,0.26893e-03,0.26280e-03,0.13718e-03 /) - kbo(:, 4,48, 6) = (/ & - & 0.58779e-04,0.27466e-03,0.31973e-03,0.31295e-03,0.15543e-03 /) - kbo(:, 5,48, 6) = (/ & - & 0.66247e-04,0.32531e-03,0.38347e-03,0.37465e-03,0.17582e-03 /) - kbo(:, 1,49, 6) = (/ & - & 0.25958e-04,0.13895e-03,0.15751e-03,0.15378e-03,0.86997e-04 /) - kbo(:, 2,49, 6) = (/ & - & 0.32663e-04,0.16210e-03,0.18496e-03,0.18058e-03,0.99003e-04 /) - kbo(:, 3,49, 6) = (/ & - & 0.39912e-04,0.19033e-03,0.21954e-03,0.21463e-03,0.11278e-03 /) - kbo(:, 4,49, 6) = (/ & - & 0.47146e-04,0.22536e-03,0.26252e-03,0.25743e-03,0.12854e-03 /) - kbo(:, 5,49, 6) = (/ & - & 0.53714e-04,0.26879e-03,0.31652e-03,0.31040e-03,0.14638e-03 /) - kbo(:, 1,50, 6) = (/ & - & 0.20123e-04,0.11283e-03,0.12763e-03,0.12462e-03,0.70722e-04 /) - kbo(:, 2,50, 6) = (/ & - & 0.25601e-04,0.13215e-03,0.15042e-03,0.14697e-03,0.80931e-04 /) - kbo(:, 3,50, 6) = (/ & - & 0.31614e-04,0.15574e-03,0.17957e-03,0.17552e-03,0.92734e-04 /) - kbo(:, 4,50, 6) = (/ & - & 0.37764e-04,0.18520e-03,0.21596e-03,0.21200e-03,0.10641e-03 /) - kbo(:, 5,50, 6) = (/ & - & 0.43463e-04,0.22248e-03,0.26195e-03,0.25758e-03,0.12203e-03 /) - kbo(:, 1,51, 6) = (/ & - & 0.15566e-04,0.91692e-04,0.10348e-03,0.10093e-03,0.57420e-04 /) - kbo(:, 2,51, 6) = (/ & - & 0.20041e-04,0.10771e-03,0.12230e-03,0.11952e-03,0.66019e-04 /) - kbo(:, 3,51, 6) = (/ & - & 0.25022e-04,0.12757e-03,0.14670e-03,0.14349e-03,0.76182e-04 /) - kbo(:, 4,51, 6) = (/ & - & 0.30196e-04,0.15226e-03,0.17772e-03,0.17429e-03,0.87954e-04 /) - kbo(:, 5,51, 6) = (/ & - & 0.35140e-04,0.18405e-03,0.21697e-03,0.21356e-03,0.10162e-03 /) - kbo(:, 1,52, 6) = (/ & - & 0.11977e-04,0.74321e-04,0.83777e-04,0.81525e-04,0.46492e-04 /) - kbo(:, 2,52, 6) = (/ & - & 0.15618e-04,0.87662e-04,0.99315e-04,0.96995e-04,0.53744e-04 /) - kbo(:, 3,52, 6) = (/ & - & 0.19731e-04,0.10434e-03,0.11957e-03,0.11696e-03,0.62355e-04 /) - kbo(:, 4,52, 6) = (/ & - & 0.24071e-04,0.12514e-03,0.14574e-03,0.14300e-03,0.72491e-04 /) - kbo(:, 5,52, 6) = (/ & - & 0.28292e-04,0.15185e-03,0.17919e-03,0.17642e-03,0.84356e-04 /) - kbo(:, 1,53, 6) = (/ & - & 0.91836e-05,0.60131e-04,0.67720e-04,0.65649e-04,0.37522e-04 /) - kbo(:, 2,53, 6) = (/ & - & 0.12113e-04,0.71192e-04,0.80457e-04,0.78425e-04,0.43599e-04 /) - kbo(:, 3,53, 6) = (/ & - & 0.15471e-04,0.85141e-04,0.97276e-04,0.95110e-04,0.50903e-04 /) - kbo(:, 4,53, 6) = (/ & - & 0.19102e-04,0.10263e-03,0.11918e-03,0.11694e-03,0.59553e-04 /) - kbo(:, 5,53, 6) = (/ & - & 0.22693e-04,0.12514e-03,0.14755e-03,0.14527e-03,0.69812e-04 /) - kbo(:, 1,54, 6) = (/ & - & 0.70721e-05,0.48764e-04,0.54926e-04,0.53041e-04,0.30337e-04 /) - kbo(:, 2,54, 6) = (/ & - & 0.94270e-05,0.57982e-04,0.65461e-04,0.63579e-04,0.35439e-04 /) - kbo(:, 3,54, 6) = (/ & - & 0.12173e-04,0.69671e-04,0.79433e-04,0.77530e-04,0.41618e-04 /) - kbo(:, 4,54, 6) = (/ & - & 0.15195e-04,0.84502e-04,0.97826e-04,0.96029e-04,0.49017e-04 /) - kbo(:, 5,54, 6) = (/ & - & 0.18243e-04,0.10358e-03,0.12196e-03,0.12023e-03,0.57880e-04 /) - kbo(:, 1,55, 6) = (/ & - & 0.54549e-05,0.39521e-04,0.44580e-04,0.42901e-04,0.24523e-04 /) - kbo(:, 2,55, 6) = (/ & - & 0.73474e-05,0.47258e-04,0.53311e-04,0.51627e-04,0.28799e-04 /) - kbo(:, 3,55, 6) = (/ & - & 0.95818e-05,0.57041e-04,0.64957e-04,0.63210e-04,0.34015e-04 /) - kbo(:, 4,55, 6) = (/ & - & 0.12078e-04,0.69528e-04,0.80422e-04,0.78845e-04,0.40325e-04 /) - kbo(:, 5,55, 6) = (/ & - & 0.14658e-04,0.85891e-04,0.10087e-03,0.99485e-04,0.47973e-04 /) - kbo(:, 1,56, 6) = (/ & - & 0.41972e-05,0.31935e-04,0.36125e-04,0.34628e-04,0.19758e-04 /) - kbo(:, 2,56, 6) = (/ & - & 0.56951e-05,0.38357e-04,0.43303e-04,0.41823e-04,0.23341e-04 /) - kbo(:, 3,56, 6) = (/ & - & 0.75109e-05,0.46586e-04,0.52984e-04,0.51438e-04,0.27705e-04 /) - kbo(:, 4,56, 6) = (/ & - & 0.95701e-05,0.57135e-04,0.66020e-04,0.64513e-04,0.33090e-04 /) - kbo(:, 5,56, 6) = (/ & - & 0.11741e-04,0.70996e-04,0.83348e-04,0.82172e-04,0.39639e-04 /) - kbo(:, 1,57, 6) = (/ & - & 0.32187e-05,0.25710e-04,0.29175e-04,0.27903e-04,0.15874e-04 /) - kbo(:, 2,57, 6) = (/ & - & 0.44067e-05,0.31037e-04,0.35094e-04,0.33812e-04,0.18857e-04 /) - kbo(:, 3,57, 6) = (/ & - & 0.58663e-05,0.37889e-04,0.43100e-04,0.41766e-04,0.22502e-04 /) - kbo(:, 4,57, 6) = (/ & - & 0.75519e-05,0.46817e-04,0.54053e-04,0.52634e-04,0.27030e-04 /) - kbo(:, 5,57, 6) = (/ & - & 0.93649e-05,0.58529e-04,0.68705e-04,0.67601e-04,0.32661e-04 /) - kbo(:, 1,58, 6) = (/ & - & 0.24696e-05,0.20698e-04,0.23574e-04,0.22507e-04,0.12764e-04 /) - kbo(:, 2,58, 6) = (/ & - & 0.34175e-05,0.25141e-04,0.28438e-04,0.27351e-04,0.15243e-04 /) - kbo(:, 3,58, 6) = (/ & - & 0.45825e-05,0.30855e-04,0.35092e-04,0.33951e-04,0.18275e-04 /) - kbo(:, 4,58, 6) = (/ & - & 0.59665e-05,0.38392e-04,0.44239e-04,0.43055e-04,0.22112e-04 /) - kbo(:, 5,58, 6) = (/ & - & 0.74784e-05,0.48383e-04,0.56772e-04,0.55657e-04,0.26900e-04 /) - kbo(:, 1,59, 6) = (/ & - & 0.20113e-05,0.17223e-04,0.19628e-04,0.18772e-04,0.10576e-04 /) - kbo(:, 2,59, 6) = (/ & - & 0.27973e-05,0.21075e-04,0.23849e-04,0.22960e-04,0.12702e-04 /) - kbo(:, 3,59, 6) = (/ & - & 0.37714e-05,0.26064e-04,0.29696e-04,0.28726e-04,0.15326e-04 /) - kbo(:, 4,59, 6) = (/ & - & 0.49189e-05,0.32724e-04,0.37808e-04,0.36791e-04,0.18710e-04 /) - kbo(:, 5,59, 6) = (/ & - & 0.61850e-05,0.41676e-04,0.49043e-04,0.48051e-04,0.22936e-04 /) - kbo(:, 1,13, 7) = (/ & - & 0.90574e-01,0.18508e+00,0.20125e+00,0.19353e+00,0.13590e+00 /) - kbo(:, 2,13, 7) = (/ & - & 0.96633e-01,0.18856e+00,0.20514e+00,0.19781e+00,0.13867e+00 /) - kbo(:, 3,13, 7) = (/ & - & 0.10246e+00,0.19231e+00,0.20916e+00,0.20175e+00,0.14157e+00 /) - kbo(:, 4,13, 7) = (/ & - & 0.10831e+00,0.19664e+00,0.21340e+00,0.20566e+00,0.14422e+00 /) - kbo(:, 5,13, 7) = (/ & - & 0.11418e+00,0.20190e+00,0.21829e+00,0.20964e+00,0.14715e+00 /) - kbo(:, 1,14, 7) = (/ & - & 0.76731e-01,0.15637e+00,0.17031e+00,0.16454e+00,0.11471e+00 /) - kbo(:, 2,14, 7) = (/ & - & 0.81853e-01,0.15935e+00,0.17367e+00,0.16809e+00,0.11738e+00 /) - kbo(:, 3,14, 7) = (/ & - & 0.86939e-01,0.16284e+00,0.17719e+00,0.17151e+00,0.11993e+00 /) - kbo(:, 4,14, 7) = (/ & - & 0.91985e-01,0.16698e+00,0.18115e+00,0.17500e+00,0.12254e+00 /) - kbo(:, 5,14, 7) = (/ & - & 0.97005e-01,0.17199e+00,0.18590e+00,0.17860e+00,0.12524e+00 /) - kbo(:, 1,15, 7) = (/ & - & 0.64796e-01,0.13180e+00,0.14379e+00,0.13927e+00,0.96282e-01 /) - kbo(:, 2,15, 7) = (/ & - & 0.69175e-01,0.13451e+00,0.14669e+00,0.14230e+00,0.98702e-01 /) - kbo(:, 3,15, 7) = (/ & - & 0.73574e-01,0.13779e+00,0.14991e+00,0.14533e+00,0.10111e+00 /) - kbo(:, 4,15, 7) = (/ & - & 0.77907e-01,0.14175e+00,0.15375e+00,0.14848e+00,0.10336e+00 /) - kbo(:, 5,15, 7) = (/ & - & 0.82082e-01,0.14644e+00,0.15826e+00,0.15192e+00,0.10558e+00 /) - kbo(:, 1,16, 7) = (/ & - & 0.54603e-01,0.11092e+00,0.12113e+00,0.11747e+00,0.80564e-01 /) - kbo(:, 2,16, 7) = (/ & - & 0.58392e-01,0.11343e+00,0.12376e+00,0.12011e+00,0.82662e-01 /) - kbo(:, 3,16, 7) = (/ & - & 0.62149e-01,0.11652e+00,0.12680e+00,0.12283e+00,0.84744e-01 /) - kbo(:, 4,16, 7) = (/ & - & 0.65779e-01,0.12031e+00,0.13049e+00,0.12576e+00,0.86806e-01 /) - kbo(:, 5,16, 7) = (/ & - & 0.69275e-01,0.12462e+00,0.13474e+00,0.12909e+00,0.88592e-01 /) - kbo(:, 1,17, 7) = (/ & - & 0.46019e-01,0.93276e-01,0.10182e+00,0.98886e-01,0.67386e-01 /) - kbo(:, 2,17, 7) = (/ & - & 0.49257e-01,0.95617e-01,0.10427e+00,0.10122e+00,0.69214e-01 /) - kbo(:, 3,17, 7) = (/ & - & 0.52438e-01,0.98544e-01,0.10723e+00,0.10369e+00,0.71047e-01 /) - kbo(:, 4,17, 7) = (/ & - & 0.55444e-01,0.10204e+00,0.11074e+00,0.10647e+00,0.72809e-01 /) - kbo(:, 5,17, 7) = (/ & - & 0.58360e-01,0.10585e+00,0.11469e+00,0.10967e+00,0.74297e-01 /) - kbo(:, 1,18, 7) = (/ & - & 0.38789e-01,0.78385e-01,0.85426e-01,0.83127e-01,0.56424e-01 /) - kbo(:, 2,18, 7) = (/ & - & 0.41550e-01,0.80626e-01,0.87775e-01,0.85216e-01,0.58103e-01 /) - kbo(:, 3,18, 7) = (/ & - & 0.44172e-01,0.83391e-01,0.90633e-01,0.87547e-01,0.59665e-01 /) - kbo(:, 4,18, 7) = (/ & - & 0.46672e-01,0.86541e-01,0.93910e-01,0.90224e-01,0.61155e-01 /) - kbo(:, 5,18, 7) = (/ & - & 0.49119e-01,0.89890e-01,0.97478e-01,0.93171e-01,0.62440e-01 /) - kbo(:, 1,19, 7) = (/ & - & 0.32688e-01,0.65866e-01,0.71699e-01,0.69831e-01,0.47341e-01 /) - kbo(:, 2,19, 7) = (/ & - & 0.34993e-01,0.67987e-01,0.73938e-01,0.71758e-01,0.48787e-01 /) - kbo(:, 3,19, 7) = (/ & - & 0.37158e-01,0.70566e-01,0.76608e-01,0.73972e-01,0.50204e-01 /) - kbo(:, 4,19, 7) = (/ & - & 0.39257e-01,0.73365e-01,0.79594e-01,0.76458e-01,0.51459e-01 /) - kbo(:, 5,19, 7) = (/ & - & 0.41326e-01,0.76343e-01,0.82757e-01,0.79138e-01,0.52598e-01 /) - kbo(:, 1,20, 7) = (/ & - & 0.27557e-01,0.55396e-01,0.60366e-01,0.58674e-01,0.39775e-01 /) - kbo(:, 2,20, 7) = (/ & - & 0.29458e-01,0.57423e-01,0.62478e-01,0.60497e-01,0.41091e-01 /) - kbo(:, 3,20, 7) = (/ & - & 0.31261e-01,0.59745e-01,0.64927e-01,0.62579e-01,0.42317e-01 /) - kbo(:, 4,20, 7) = (/ & - & 0.33046e-01,0.62240e-01,0.67549e-01,0.64853e-01,0.43439e-01 /) - kbo(:, 5,20, 7) = (/ & - & 0.34818e-01,0.64890e-01,0.70320e-01,0.67290e-01,0.44513e-01 /) - kbo(:, 1,21, 7) = (/ & - & 0.23194e-01,0.46662e-01,0.50879e-01,0.49331e-01,0.33429e-01 /) - kbo(:, 2,21, 7) = (/ & - & 0.24776e-01,0.48529e-01,0.52871e-01,0.51054e-01,0.34590e-01 /) - kbo(:, 3,21, 7) = (/ & - & 0.26303e-01,0.50578e-01,0.55098e-01,0.52980e-01,0.35684e-01 /) - kbo(:, 4,21, 7) = (/ & - & 0.27810e-01,0.52793e-01,0.57429e-01,0.55052e-01,0.36688e-01 /) - kbo(:, 5,21, 7) = (/ & - & 0.29323e-01,0.55187e-01,0.59853e-01,0.57245e-01,0.37657e-01 /) - kbo(:, 1,22, 7) = (/ & - & 0.19600e-01,0.39448e-01,0.43057e-01,0.41623e-01,0.28169e-01 /) - kbo(:, 2,22, 7) = (/ & - & 0.20910e-01,0.41135e-01,0.44924e-01,0.43250e-01,0.29188e-01 /) - kbo(:, 3,22, 7) = (/ & - & 0.22195e-01,0.42970e-01,0.46916e-01,0.45021e-01,0.30138e-01 /) - kbo(:, 4,22, 7) = (/ & - & 0.23466e-01,0.44963e-01,0.48978e-01,0.46906e-01,0.31021e-01 /) - kbo(:, 5,22, 7) = (/ & - & 0.24791e-01,0.47151e-01,0.51143e-01,0.48901e-01,0.31919e-01 /) - kbo(:, 1,23, 7) = (/ & - & 0.16563e-01,0.33405e-01,0.36517e-01,0.35235e-01,0.23758e-01 /) - kbo(:, 2,23, 7) = (/ & - & 0.17634e-01,0.34920e-01,0.38215e-01,0.36726e-01,0.24656e-01 /) - kbo(:, 3,23, 7) = (/ & - & 0.18715e-01,0.36571e-01,0.39976e-01,0.38337e-01,0.25473e-01 /) - kbo(:, 4,23, 7) = (/ & - & 0.19810e-01,0.38397e-01,0.41828e-01,0.40046e-01,0.26273e-01 /) - kbo(:, 5,23, 7) = (/ & - & 0.20990e-01,0.40406e-01,0.43840e-01,0.41881e-01,0.27068e-01 /) - kbo(:, 1,24, 7) = (/ & - & 0.13980e-01,0.28346e-01,0.31027e-01,0.29909e-01,0.20058e-01 /) - kbo(:, 2,24, 7) = (/ & - & 0.14874e-01,0.29707e-01,0.32546e-01,0.31266e-01,0.20839e-01 /) - kbo(:, 3,24, 7) = (/ & - & 0.15797e-01,0.31204e-01,0.34123e-01,0.32728e-01,0.21557e-01 /) - kbo(:, 4,24, 7) = (/ & - & 0.16758e-01,0.32875e-01,0.35824e-01,0.34296e-01,0.22274e-01 /) - kbo(:, 5,24, 7) = (/ & - & 0.17809e-01,0.34737e-01,0.37711e-01,0.35981e-01,0.22992e-01 /) - kbo(:, 1,25, 7) = (/ & - & 0.11798e-01,0.24110e-01,0.26426e-01,0.25457e-01,0.16985e-01 /) - kbo(:, 2,25, 7) = (/ & - & 0.12561e-01,0.25347e-01,0.27781e-01,0.26691e-01,0.17655e-01 /) - kbo(:, 3,25, 7) = (/ & - & 0.13359e-01,0.26711e-01,0.29222e-01,0.28026e-01,0.18302e-01 /) - kbo(:, 4,25, 7) = (/ & - & 0.14208e-01,0.28241e-01,0.30806e-01,0.29472e-01,0.18949e-01 /) - kbo(:, 5,25, 7) = (/ & - & 0.15157e-01,0.29980e-01,0.32597e-01,0.31029e-01,0.19596e-01 /) - kbo(:, 1,26, 7) = (/ & - & 0.99745e-02,0.20581e-01,0.22580e-01,0.21746e-01,0.14432e-01 /) - kbo(:, 2,26, 7) = (/ & - & 0.10633e-01,0.21703e-01,0.23807e-01,0.22873e-01,0.15014e-01 /) - kbo(:, 3,26, 7) = (/ & - & 0.11328e-01,0.22948e-01,0.25141e-01,0.24108e-01,0.15588e-01 /) - kbo(:, 4,26, 7) = (/ & - & 0.12091e-01,0.24380e-01,0.26636e-01,0.25439e-01,0.16180e-01 /) - kbo(:, 5,26, 7) = (/ & - & 0.12943e-01,0.26016e-01,0.28335e-01,0.26899e-01,0.16787e-01 /) - kbo(:, 1,27, 7) = (/ & - & 0.84424e-02,0.17603e-01,0.19348e-01,0.18632e-01,0.12275e-01 /) - kbo(:, 2,27, 7) = (/ & - & 0.90172e-02,0.18627e-01,0.20475e-01,0.19670e-01,0.12796e-01 /) - kbo(:, 3,27, 7) = (/ & - & 0.96344e-02,0.19791e-01,0.21724e-01,0.20817e-01,0.13316e-01 /) - kbo(:, 4,27, 7) = (/ & - & 0.10319e-01,0.21143e-01,0.23141e-01,0.22059e-01,0.13859e-01 /) - kbo(:, 5,27, 7) = (/ & - & 0.11083e-01,0.22688e-01,0.24742e-01,0.23449e-01,0.14418e-01 /) - kbo(:, 1,28, 7) = (/ & - & 0.71594e-02,0.15094e-01,0.16638e-01,0.16016e-01,0.10452e-01 /) - kbo(:, 2,28, 7) = (/ & - & 0.76603e-02,0.16043e-01,0.17678e-01,0.16989e-01,0.10928e-01 /) - kbo(:, 3,28, 7) = (/ & - & 0.82161e-02,0.17148e-01,0.18856e-01,0.18055e-01,0.11409e-01 /) - kbo(:, 4,28, 7) = (/ & - & 0.88297e-02,0.18429e-01,0.20193e-01,0.19234e-01,0.11908e-01 /) - kbo(:, 5,28, 7) = (/ & - & 0.95210e-02,0.19896e-01,0.21697e-01,0.20565e-01,0.12423e-01 /) - kbo(:, 1,29, 7) = (/ & - & 0.60865e-02,0.12992e-01,0.14367e-01,0.13830e-01,0.89337e-02 /) - kbo(:, 2,29, 7) = (/ & - & 0.65273e-02,0.13894e-01,0.15342e-01,0.14741e-01,0.93649e-02 /) - kbo(:, 3,29, 7) = (/ & - & 0.70278e-02,0.14949e-01,0.16457e-01,0.15746e-01,0.98158e-02 /) - kbo(:, 4,29, 7) = (/ & - & 0.75858e-02,0.16169e-01,0.17720e-01,0.16877e-01,0.10273e-01 /) - kbo(:, 5,29, 7) = (/ & - & 0.82154e-02,0.17564e-01,0.19150e-01,0.18159e-01,0.10745e-01 /) - kbo(:, 1,30, 7) = (/ & - & 0.51820e-02,0.11236e-01,0.12459e-01,0.12000e-01,0.76507e-02 /) - kbo(:, 2,30, 7) = (/ & - & 0.55811e-02,0.12098e-01,0.13380e-01,0.12854e-01,0.80497e-02 /) - kbo(:, 3,30, 7) = (/ & - & 0.60310e-02,0.13108e-01,0.14440e-01,0.13813e-01,0.84648e-02 /) - kbo(:, 4,30, 7) = (/ & - & 0.65404e-02,0.14273e-01,0.15644e-01,0.14905e-01,0.88882e-02 /) - kbo(:, 5,30, 7) = (/ & - & 0.71170e-02,0.15597e-01,0.17012e-01,0.16134e-01,0.93248e-02 /) - kbo(:, 1,31, 7) = (/ & - & 0.44272e-02,0.97757e-02,0.10859e-01,0.10467e-01,0.65734e-02 /) - kbo(:, 2,31, 7) = (/ & - & 0.47878e-02,0.10603e-01,0.11740e-01,0.11277e-01,0.69415e-02 /) - kbo(:, 3,31, 7) = (/ & - & 0.51963e-02,0.11572e-01,0.12753e-01,0.12201e-01,0.73188e-02 /) - kbo(:, 4,31, 7) = (/ & - & 0.56609e-02,0.12684e-01,0.13904e-01,0.13252e-01,0.77091e-02 /) - kbo(:, 5,31, 7) = (/ & - & 0.61977e-02,0.13944e-01,0.15244e-01,0.14424e-01,0.81161e-02 /) - kbo(:, 1,32, 7) = (/ & - & 0.37962e-02,0.85614e-02,0.95233e-02,0.91812e-02,0.56658e-02 /) - kbo(:, 2,32, 7) = (/ & - & 0.41228e-02,0.93595e-02,0.10368e-01,0.99574e-02,0.60000e-02 /) - kbo(:, 3,32, 7) = (/ & - & 0.44947e-02,0.10287e-01,0.11338e-01,0.10850e-01,0.63462e-02 /) - kbo(:, 4,32, 7) = (/ & - & 0.49244e-02,0.11349e-01,0.12467e-01,0.11857e-01,0.67069e-02 /) - kbo(:, 5,32, 7) = (/ & - & 0.54252e-02,0.12554e-01,0.13767e-01,0.12983e-01,0.70910e-02 /) - kbo(:, 1,33, 7) = (/ & - & 0.32656e-02,0.75519e-02,0.84026e-02,0.81028e-02,0.48937e-02 /) - kbo(:, 2,33, 7) = (/ & - & 0.35630e-02,0.83178e-02,0.92157e-02,0.88531e-02,0.52004e-02 /) - kbo(:, 3,33, 7) = (/ & - & 0.39050e-02,0.92063e-02,0.10168e-01,0.97125e-02,0.55156e-02 /) - kbo(:, 4,33, 7) = (/ & - & 0.43055e-02,0.10227e-01,0.11270e-01,0.10682e-01,0.58516e-02 /) - kbo(:, 5,33, 7) = (/ & - & 0.47651e-02,0.11396e-01,0.12524e-01,0.11769e-01,0.62091e-02 /) - kbo(:, 1,34, 7) = (/ & - & 0.28105e-02,0.66873e-02,0.74405e-02,0.71742e-02,0.42413e-02 /) - kbo(:, 2,34, 7) = (/ & - & 0.30819e-02,0.74197e-02,0.82328e-02,0.78962e-02,0.45189e-02 /) - kbo(:, 3,34, 7) = (/ & - & 0.33974e-02,0.82731e-02,0.91582e-02,0.87214e-02,0.48133e-02 /) - kbo(:, 4,34, 7) = (/ & - & 0.37682e-02,0.92558e-02,0.10225e-01,0.96550e-02,0.51300e-02 /) - kbo(:, 5,34, 7) = (/ & - & 0.41836e-02,0.10408e-01,0.11429e-01,0.10709e-01,0.54671e-02 /) - kbo(:, 1,35, 7) = (/ & - & 0.24038e-02,0.58948e-02,0.65709e-02,0.63304e-02,0.36544e-02 /) - kbo(:, 2,35, 7) = (/ & - & 0.26483e-02,0.65885e-02,0.73295e-02,0.70175e-02,0.39080e-02 /) - kbo(:, 3,35, 7) = (/ & - & 0.29372e-02,0.74016e-02,0.82197e-02,0.78032e-02,0.41855e-02 /) - kbo(:, 4,35, 7) = (/ & - & 0.32728e-02,0.83531e-02,0.92365e-02,0.86973e-02,0.44777e-02 /) - kbo(:, 5,35, 7) = (/ & - & 0.36421e-02,0.94681e-02,0.10387e-01,0.97145e-02,0.47967e-02 /) - kbo(:, 1,36, 7) = (/ & - & 0.20373e-02,0.51550e-02,0.57662e-02,0.55498e-02,0.31231e-02 /) - kbo(:, 2,36, 7) = (/ & - & 0.22554e-02,0.58057e-02,0.64818e-02,0.61953e-02,0.33549e-02 /) - kbo(:, 3,36, 7) = (/ & - & 0.25127e-02,0.65796e-02,0.73228e-02,0.69361e-02,0.36112e-02 /) - kbo(:, 4,36, 7) = (/ & - & 0.28104e-02,0.74827e-02,0.82833e-02,0.77843e-02,0.38823e-02 /) - kbo(:, 5,36, 7) = (/ & - & 0.31359e-02,0.85467e-02,0.93763e-02,0.87575e-02,0.41812e-02 /) - kbo(:, 1,37, 7) = (/ & - & 0.17035e-02,0.44466e-02,0.49856e-02,0.47970e-02,0.26734e-02 /) - kbo(:, 2,37, 7) = (/ & - & 0.18934e-02,0.50433e-02,0.56462e-02,0.53907e-02,0.28873e-02 /) - kbo(:, 3,37, 7) = (/ & - & 0.21171e-02,0.57558e-02,0.64223e-02,0.60783e-02,0.31233e-02 /) - kbo(:, 4,37, 7) = (/ & - & 0.23767e-02,0.65938e-02,0.73141e-02,0.68717e-02,0.33760e-02 /) - kbo(:, 5,37, 7) = (/ & - & 0.26616e-02,0.75860e-02,0.83359e-02,0.77859e-02,0.36530e-02 /) - kbo(:, 1,38, 7) = (/ & - & 0.14234e-02,0.38379e-02,0.43139e-02,0.41486e-02,0.22904e-02 /) - kbo(:, 2,38, 7) = (/ & - & 0.15875e-02,0.43850e-02,0.49236e-02,0.46956e-02,0.24873e-02 /) - kbo(:, 3,38, 7) = (/ & - & 0.17824e-02,0.50419e-02,0.56400e-02,0.53338e-02,0.27024e-02 /) - kbo(:, 4,38, 7) = (/ & - & 0.20080e-02,0.58195e-02,0.64682e-02,0.60767e-02,0.29386e-02 /) - kbo(:, 5,38, 7) = (/ & - & 0.22567e-02,0.67445e-02,0.74253e-02,0.69357e-02,0.31979e-02 /) - kbo(:, 1,39, 7) = (/ & - & 0.11890e-02,0.33180e-02,0.37396e-02,0.35935e-02,0.19623e-02 /) - kbo(:, 2,39, 7) = (/ & - & 0.13309e-02,0.38204e-02,0.43017e-02,0.40980e-02,0.21427e-02 /) - kbo(:, 3,39, 7) = (/ & - & 0.14997e-02,0.44279e-02,0.49653e-02,0.46926e-02,0.23415e-02 /) - kbo(:, 4,39, 7) = (/ & - & 0.16956e-02,0.51508e-02,0.57361e-02,0.53891e-02,0.25595e-02 /) - kbo(:, 5,39, 7) = (/ & - & 0.19128e-02,0.60136e-02,0.66353e-02,0.61975e-02,0.28034e-02 /) - kbo(:, 1,40, 7) = (/ & - & 0.98185e-03,0.28304e-02,0.31989e-02,0.30741e-02,0.16759e-02 /) - kbo(:, 2,40, 7) = (/ & - & 0.11018e-02,0.32825e-02,0.37073e-02,0.35318e-02,0.18412e-02 /) - kbo(:, 3,40, 7) = (/ & - & 0.12459e-02,0.38338e-02,0.43125e-02,0.40771e-02,0.20230e-02 /) - kbo(:, 4,40, 7) = (/ & - & 0.14138e-02,0.44950e-02,0.50204e-02,0.47198e-02,0.22264e-02 /) - kbo(:, 5,40, 7) = (/ & - & 0.16015e-02,0.52867e-02,0.58524e-02,0.54701e-02,0.24538e-02 /) - kbo(:, 1,41, 7) = (/ & - & 0.80888e-03,0.24101e-02,0.27302e-02,0.26250e-02,0.14285e-02 /) - kbo(:, 2,41, 7) = (/ & - & 0.91042e-03,0.28166e-02,0.31895e-02,0.30396e-02,0.15812e-02 /) - kbo(:, 3,41, 7) = (/ & - & 0.10323e-02,0.33144e-02,0.37392e-02,0.35375e-02,0.17482e-02 /) - kbo(:, 4,41, 7) = (/ & - & 0.11757e-02,0.39172e-02,0.43885e-02,0.41290e-02,0.19366e-02 /) - kbo(:, 5,41, 7) = (/ & - & 0.13368e-02,0.46417e-02,0.51571e-02,0.48237e-02,0.21455e-02 /) - kbo(:, 1,42, 7) = (/ & - & 0.66584e-03,0.20506e-02,0.23294e-02,0.22418e-02,0.12147e-02 /) - kbo(:, 2,42, 7) = (/ & - & 0.75117e-03,0.24164e-02,0.27427e-02,0.26163e-02,0.13552e-02 /) - kbo(:, 3,42, 7) = (/ & - & 0.85464e-03,0.28657e-02,0.32419e-02,0.30702e-02,0.15103e-02 /) - kbo(:, 4,42, 7) = (/ & - & 0.97690e-03,0.34148e-02,0.38374e-02,0.36136e-02,0.16836e-02 /) - kbo(:, 5,42, 7) = (/ & - & 0.11154e-02,0.40777e-02,0.45486e-02,0.42564e-02,0.18765e-02 /) - kbo(:, 1,43, 7) = (/ & - & 0.54468e-03,0.17260e-02,0.19662e-02,0.18963e-02,0.10278e-02 /) - kbo(:, 2,43, 7) = (/ & - & 0.61495e-03,0.20517e-02,0.23339e-02,0.22307e-02,0.11544e-02 /) - kbo(:, 3,43, 7) = (/ & - & 0.70090e-03,0.24526e-02,0.27821e-02,0.26393e-02,0.12972e-02 /) - kbo(:, 4,43, 7) = (/ & - & 0.80460e-03,0.29460e-02,0.33228e-02,0.31329e-02,0.14583e-02 /) - kbo(:, 5,43, 7) = (/ & - & 0.92296e-03,0.35462e-02,0.39738e-02,0.37220e-02,0.16369e-02 /) - kbo(:, 1,44, 7) = (/ & - & 0.44364e-03,0.14437e-02,0.16496e-02,0.15952e-02,0.86540e-03 /) - kbo(:, 2,44, 7) = (/ & - & 0.50199e-03,0.17304e-02,0.19739e-02,0.18912e-02,0.97937e-03 /) - kbo(:, 3,44, 7) = (/ & - & 0.57242e-03,0.20860e-02,0.23731e-02,0.22565e-02,0.11106e-02 /) - kbo(:, 4,44, 7) = (/ & - & 0.65930e-03,0.25283e-02,0.28613e-02,0.27024e-02,0.12573e-02 /) - kbo(:, 5,44, 7) = (/ & - & 0.75974e-03,0.30673e-02,0.34531e-02,0.32379e-02,0.14238e-02 /) - kbo(:, 1,45, 7) = (/ & - & 0.36129e-03,0.12055e-02,0.13811e-02,0.13394e-02,0.72668e-03 /) - kbo(:, 2,45, 7) = (/ & - & 0.40925e-03,0.14558e-02,0.16660e-02,0.16003e-02,0.82937e-03 /) - kbo(:, 3,45, 7) = (/ & - & 0.46755e-03,0.17705e-02,0.20201e-02,0.19260e-02,0.94755e-03 /) - kbo(:, 4,45, 7) = (/ & - & 0.53937e-03,0.21654e-02,0.24593e-02,0.23275e-02,0.10822e-02 /) - kbo(:, 5,45, 7) = (/ & - & 0.62400e-03,0.26505e-02,0.29965e-02,0.28141e-02,0.12345e-02 /) - kbo(:, 1,46, 7) = (/ & - & 0.29308e-03,0.99917e-03,0.11483e-02,0.11175e-02,0.60699e-03 /) - kbo(:, 2,46, 7) = (/ & - & 0.33256e-03,0.12167e-02,0.13963e-02,0.13454e-02,0.69810e-03 /) - kbo(:, 3,46, 7) = (/ & - & 0.38031e-03,0.14933e-02,0.17091e-02,0.16341e-02,0.80431e-03 /) - kbo(:, 4,46, 7) = (/ & - & 0.43974e-03,0.18423e-02,0.21003e-02,0.19926e-02,0.92607e-03 /) - kbo(:, 5,46, 7) = (/ & - & 0.51042e-03,0.22760e-02,0.25842e-02,0.24318e-02,0.10656e-02 /) - kbo(:, 1,47, 7) = (/ & - & 0.23621e-03,0.81920e-03,0.94415e-03,0.92230e-03,0.50239e-03 /) - kbo(:, 2,47, 7) = (/ & - & 0.26847e-03,0.10045e-02,0.11560e-02,0.11182e-02,0.58268e-03 /) - kbo(:, 3,47, 7) = (/ & - & 0.30727e-03,0.12442e-02,0.14284e-02,0.13701e-02,0.67654e-03 /) - kbo(:, 4,47, 7) = (/ & - & 0.35565e-03,0.15479e-02,0.17727e-02,0.16866e-02,0.78602e-03 /) - kbo(:, 5,47, 7) = (/ & - & 0.41455e-03,0.19320e-02,0.22031e-02,0.20787e-02,0.91297e-03 /) - kbo(:, 1,48, 7) = (/ & - & 0.19056e-03,0.66912e-03,0.77329e-03,0.75810e-03,0.41434e-03 /) - kbo(:, 2,48, 7) = (/ & - & 0.21662e-03,0.82638e-03,0.95404e-03,0.92602e-03,0.48448e-03 /) - kbo(:, 3,48, 7) = (/ & - & 0.24805e-03,0.10324e-02,0.11883e-02,0.11443e-02,0.56714e-03 /) - kbo(:, 4,48, 7) = (/ & - & 0.28732e-03,0.12967e-02,0.14909e-02,0.14226e-02,0.66465e-03 /) - kbo(:, 5,48, 7) = (/ & - & 0.33598e-03,0.16339e-02,0.18720e-02,0.17712e-02,0.77925e-03 /) - kbo(:, 1,49, 7) = (/ & - & 0.15370e-03,0.54435e-03,0.63072e-03,0.62031e-03,0.34039e-03 /) - kbo(:, 2,49, 7) = (/ & - & 0.17493e-03,0.67703e-03,0.78385e-03,0.76375e-03,0.40110e-03 /) - kbo(:, 3,49, 7) = (/ & - & 0.20006e-03,0.85331e-03,0.98454e-03,0.95185e-03,0.47334e-03 /) - kbo(:, 4,49, 7) = (/ & - & 0.23184e-03,0.10822e-02,0.12482e-02,0.11953e-02,0.56021e-03 /) - kbo(:, 5,49, 7) = (/ & - & 0.27201e-03,0.13761e-02,0.15848e-02,0.15038e-02,0.66336e-03 /) - kbo(:, 1,50, 7) = (/ & - & 0.12445e-03,0.44363e-03,0.51558e-03,0.50858e-03,0.27983e-03 /) - kbo(:, 2,50, 7) = (/ & - & 0.14173e-03,0.55572e-03,0.64516e-03,0.63048e-03,0.33240e-03 /) - kbo(:, 3,50, 7) = (/ & - & 0.16225e-03,0.70658e-03,0.81789e-03,0.79296e-03,0.39601e-03 /) - kbo(:, 4,50, 7) = (/ & - & 0.18768e-03,0.90539e-03,0.10468e-02,0.10060e-02,0.47285e-03 /) - kbo(:, 5,50, 7) = (/ & - & 0.22071e-03,0.11624e-02,0.13446e-02,0.12795e-02,0.56523e-03 /) - kbo(:, 1,51, 7) = (/ & - & 0.10079e-03,0.36142e-03,0.42089e-03,0.41617e-03,0.23042e-03 /) - kbo(:, 2,51, 7) = (/ & - & 0.11508e-03,0.45540e-03,0.53023e-03,0.51983e-03,0.27489e-03 /) - kbo(:, 3,51, 7) = (/ & - & 0.13183e-03,0.58426e-03,0.67873e-03,0.65942e-03,0.33073e-03 /) - kbo(:, 4,51, 7) = (/ & - & 0.15243e-03,0.75694e-03,0.87652e-03,0.84573e-03,0.39869e-03 /) - kbo(:, 5,51, 7) = (/ & - & 0.17921e-03,0.98295e-03,0.11402e-02,0.10885e-02,0.48140e-03 /) - kbo(:, 1,52, 7) = (/ & - & 0.81556e-04,0.29363e-03,0.34244e-03,0.33921e-03,0.18905e-03 /) - kbo(:, 2,52, 7) = (/ & - & 0.93358e-04,0.37204e-03,0.43415e-03,0.42707e-03,0.22730e-03 /) - kbo(:, 3,52, 7) = (/ & - & 0.10711e-03,0.48125e-03,0.56095e-03,0.54625e-03,0.27517e-03 /) - kbo(:, 4,52, 7) = (/ & - & 0.12382e-03,0.62999e-03,0.73195e-03,0.70815e-03,0.33506e-03 /) - kbo(:, 5,52, 7) = (/ & - & 0.14564e-03,0.82786e-03,0.96258e-03,0.92197e-03,0.40847e-03 /) - kbo(:, 1,53, 7) = (/ & - & 0.65849e-04,0.23779e-03,0.27734e-03,0.27519e-03,0.15433e-03 /) - kbo(:, 2,53, 7) = (/ & - & 0.75546e-04,0.30303e-03,0.35410e-03,0.34952e-03,0.18741e-03 /) - kbo(:, 3,53, 7) = (/ & - & 0.86880e-04,0.39464e-03,0.46133e-03,0.45049e-03,0.22844e-03 /) - kbo(:, 4,53, 7) = (/ & - & 0.10061e-03,0.52205e-03,0.60866e-03,0.59002e-03,0.28045e-03 /) - kbo(:, 5,53, 7) = (/ & - & 0.11837e-03,0.69424e-03,0.80911e-03,0.77763e-03,0.34549e-03 /) - kbo(:, 1,54, 7) = (/ & - & 0.53194e-04,0.19358e-03,0.22554e-03,0.22386e-03,0.12634e-03 /) - kbo(:, 2,54, 7) = (/ & - & 0.61356e-04,0.24774e-03,0.28991e-03,0.28698e-03,0.15485e-03 /) - kbo(:, 3,54, 7) = (/ & - & 0.70732e-04,0.32546e-03,0.38104e-03,0.37325e-03,0.19067e-03 /) - kbo(:, 4,54, 7) = (/ & - & 0.81989e-04,0.43475e-03,0.50842e-03,0.49348e-03,0.23573e-03 /) - kbo(:, 5,54, 7) = (/ & - & 0.96606e-04,0.58491e-03,0.68358e-03,0.65848e-03,0.29331e-03 /) - kbo(:, 1,55, 7) = (/ & - & 0.42968e-04,0.15774e-03,0.18351e-03,0.18209e-03,0.10325e-03 /) - kbo(:, 2,55, 7) = (/ & - & 0.49757e-04,0.20300e-03,0.23752e-03,0.23563e-03,0.12786e-03 /) - kbo(:, 3,55, 7) = (/ & - & 0.57602e-04,0.26853e-03,0.31476e-03,0.30938e-03,0.15908e-03 /) - kbo(:, 4,55, 7) = (/ & - & 0.66944e-04,0.36215e-03,0.42458e-03,0.41285e-03,0.19867e-03 /) - kbo(:, 5,55, 7) = (/ & - & 0.78909e-04,0.49332e-03,0.57794e-03,0.55775e-03,0.24929e-03 /) - kbo(:, 1,56, 7) = (/ & - & 0.34572e-04,0.12819e-03,0.14868e-03,0.14747e-03,0.84103e-04 /) - kbo(:, 2,56, 7) = (/ & - & 0.40234e-04,0.16586e-03,0.19409e-03,0.19266e-03,0.10511e-03 /) - kbo(:, 3,56, 7) = (/ & - & 0.46756e-04,0.22079e-03,0.25905e-03,0.25536e-03,0.13228e-03 /) - kbo(:, 4,56, 7) = (/ & - & 0.54583e-04,0.30103e-03,0.35315e-03,0.34421e-03,0.16708e-03 /) - kbo(:, 5,56, 7) = (/ & - & 0.64414e-04,0.41471e-03,0.48701e-03,0.47045e-03,0.21139e-03 /) - kbo(:, 1,57, 7) = (/ & - & 0.27768e-04,0.10391e-03,0.12029e-03,0.11888e-03,0.68178e-04 /) - kbo(:, 2,57, 7) = (/ & - & 0.32463e-04,0.13502e-03,0.15785e-03,0.15684e-03,0.86073e-04 /) - kbo(:, 3,57, 7) = (/ & - & 0.37880e-04,0.18114e-03,0.21255e-03,0.20984e-03,0.10949e-03 /) - kbo(:, 4,57, 7) = (/ & - & 0.44374e-04,0.24914e-03,0.29262e-03,0.28609e-03,0.14004e-03 /) - kbo(:, 5,57, 7) = (/ & - & 0.52560e-04,0.34723e-03,0.40853e-03,0.39531e-03,0.17907e-03 /) - kbo(:, 1,58, 7) = (/ & - & 0.22293e-04,0.84410e-04,0.97318e-04,0.95954e-04,0.55246e-04 /) - kbo(:, 2,58, 7) = (/ & - & 0.26200e-04,0.11013e-03,0.12878e-03,0.12778e-03,0.70434e-04 /) - kbo(:, 3,58, 7) = (/ & - & 0.30694e-04,0.14878e-03,0.17475e-03,0.17269e-03,0.90681e-04 /) - kbo(:, 4,58, 7) = (/ & - & 0.36071e-04,0.20666e-03,0.24284e-03,0.23795e-03,0.11731e-03 /) - kbo(:, 5,58, 7) = (/ & - & 0.42845e-04,0.29161e-03,0.34322e-03,0.33267e-03,0.15208e-03 /) - kbo(:, 1,59, 7) = (/ & - & 0.18430e-04,0.71706e-04,0.82601e-04,0.81289e-04,0.46584e-04 /) - kbo(:, 2,59, 7) = (/ & - & 0.21734e-04,0.94599e-04,0.11060e-03,0.10958e-03,0.60168e-04 /) - kbo(:, 3,59, 7) = (/ & - & 0.25561e-04,0.12924e-03,0.15196e-03,0.15008e-03,0.78430e-04 /) - kbo(:, 4,59, 7) = (/ & - & 0.30185e-04,0.18220e-03,0.21420e-03,0.20980e-03,0.10280e-03 /) - kbo(:, 5,59, 7) = (/ & - & 0.36067e-04,0.26061e-03,0.30710e-03,0.29739e-03,0.13531e-03 /) - kbo(:, 1,13, 8) = (/ & - & 0.32299e+00,0.54760e+00,0.60079e+00,0.58517e+00,0.42276e+00 /) - kbo(:, 2,13, 8) = (/ & - & 0.32594e+00,0.55963e+00,0.61653e+00,0.60147e+00,0.43281e+00 /) - kbo(:, 3,13, 8) = (/ & - & 0.33056e+00,0.57182e+00,0.63236e+00,0.61863e+00,0.44149e+00 /) - kbo(:, 4,13, 8) = (/ & - & 0.33706e+00,0.58426e+00,0.64822e+00,0.63489e+00,0.44893e+00 /) - kbo(:, 5,13, 8) = (/ & - & 0.34635e+00,0.59739e+00,0.66343e+00,0.65003e+00,0.45486e+00 /) - kbo(:, 1,14, 8) = (/ & - & 0.27185e+00,0.47396e+00,0.52087e+00,0.50518e+00,0.35898e+00 /) - kbo(:, 2,14, 8) = (/ & - & 0.27455e+00,0.48454e+00,0.53473e+00,0.52058e+00,0.36725e+00 /) - kbo(:, 3,14, 8) = (/ & - & 0.27878e+00,0.49523e+00,0.54876e+00,0.53556e+00,0.37477e+00 /) - kbo(:, 4,14, 8) = (/ & - & 0.28540e+00,0.50660e+00,0.56244e+00,0.54948e+00,0.38095e+00 /) - kbo(:, 5,14, 8) = (/ & - & 0.29474e+00,0.51876e+00,0.57592e+00,0.56255e+00,0.38660e+00 /) - kbo(:, 1,15, 8) = (/ & - & 0.22818e+00,0.40825e+00,0.45003e+00,0.43582e+00,0.30350e+00 /) - kbo(:, 2,15, 8) = (/ & - & 0.23074e+00,0.41749e+00,0.46220e+00,0.44930e+00,0.31064e+00 /) - kbo(:, 3,15, 8) = (/ & - & 0.23510e+00,0.42737e+00,0.47434e+00,0.46202e+00,0.31696e+00 /) - kbo(:, 4,15, 8) = (/ & - & 0.24186e+00,0.43783e+00,0.48637e+00,0.47387e+00,0.32265e+00 /) - kbo(:, 5,15, 8) = (/ & - & 0.25121e+00,0.44943e+00,0.49855e+00,0.48519e+00,0.32816e+00 /) - kbo(:, 1,16, 8) = (/ & - & 0.19120e+00,0.34975e+00,0.38732e+00,0.37509e+00,0.25617e+00 /) - kbo(:, 2,16, 8) = (/ & - & 0.19385e+00,0.35826e+00,0.39799e+00,0.38666e+00,0.26259e+00 /) - kbo(:, 3,16, 8) = (/ & - & 0.19846e+00,0.36727e+00,0.40872e+00,0.39750e+00,0.26815e+00 /) - kbo(:, 4,16, 8) = (/ & - & 0.20537e+00,0.37712e+00,0.41954e+00,0.40777e+00,0.27330e+00 /) - kbo(:, 5,16, 8) = (/ & - & 0.21427e+00,0.38868e+00,0.43071e+00,0.41784e+00,0.27853e+00 /) - kbo(:, 1,17, 8) = (/ & - & 0.15988e+00,0.29854e+00,0.33180e+00,0.32201e+00,0.21611e+00 /) - kbo(:, 2,17, 8) = (/ & - & 0.16279e+00,0.30628e+00,0.34129e+00,0.33188e+00,0.22162e+00 /) - kbo(:, 3,17, 8) = (/ & - & 0.16763e+00,0.31463e+00,0.35085e+00,0.34122e+00,0.22664e+00 /) - kbo(:, 4,17, 8) = (/ & - & 0.17444e+00,0.32432e+00,0.36068e+00,0.35032e+00,0.23161e+00 /) - kbo(:, 5,17, 8) = (/ & - & 0.18274e+00,0.33609e+00,0.37140e+00,0.35944e+00,0.23665e+00 /) - kbo(:, 1,18, 8) = (/ & - & 0.13352e+00,0.25404e+00,0.28330e+00,0.27577e+00,0.18225e+00 /) - kbo(:, 2,18, 8) = (/ & - & 0.13667e+00,0.26103e+00,0.29171e+00,0.28431e+00,0.18712e+00 /) - kbo(:, 3,18, 8) = (/ & - & 0.14164e+00,0.26910e+00,0.30030e+00,0.29254e+00,0.19176e+00 /) - kbo(:, 4,18, 8) = (/ & - & 0.14809e+00,0.27886e+00,0.30959e+00,0.30073e+00,0.19637e+00 /) - kbo(:, 5,18, 8) = (/ & - & 0.15551e+00,0.29050e+00,0.32020e+00,0.30930e+00,0.20115e+00 /) - kbo(:, 1,19, 8) = (/ & - & 0.11177e+00,0.21580e+00,0.24136e+00,0.23552e+00,0.15392e+00 /) - kbo(:, 2,19, 8) = (/ & - & 0.11504e+00,0.22243e+00,0.24890e+00,0.24304e+00,0.15833e+00 /) - kbo(:, 3,19, 8) = (/ & - & 0.11975e+00,0.23031e+00,0.25687e+00,0.25048e+00,0.16244e+00 /) - kbo(:, 4,19, 8) = (/ & - & 0.12553e+00,0.23994e+00,0.26588e+00,0.25812e+00,0.16671e+00 /) - kbo(:, 5,19, 8) = (/ & - & 0.13204e+00,0.25107e+00,0.27639e+00,0.26629e+00,0.17110e+00 /) - kbo(:, 1,20, 8) = (/ & - & 0.93818e-01,0.18336e+00,0.20533e+00,0.20083e+00,0.13063e+00 /) - kbo(:, 2,20, 8) = (/ & - & 0.97153e-01,0.18975e+00,0.21222e+00,0.20754e+00,0.13445e+00 /) - kbo(:, 3,20, 8) = (/ & - & 0.10157e+00,0.19759e+00,0.21989e+00,0.21439e+00,0.13819e+00 /) - kbo(:, 4,20, 8) = (/ & - & 0.10656e+00,0.20692e+00,0.22885e+00,0.22170e+00,0.14200e+00 /) - kbo(:, 5,20, 8) = (/ & - & 0.11217e+00,0.21741e+00,0.23914e+00,0.22972e+00,0.14595e+00 /) - kbo(:, 1,21, 8) = (/ & - & 0.78864e-01,0.15581e+00,0.17467e+00,0.17111e+00,0.11093e+00 /) - kbo(:, 2,21, 8) = (/ & - & 0.82115e-01,0.16213e+00,0.18114e+00,0.17722e+00,0.11448e+00 /) - kbo(:, 3,21, 8) = (/ & - & 0.86091e-01,0.16989e+00,0.18858e+00,0.18368e+00,0.11795e+00 /) - kbo(:, 4,21, 8) = (/ & - & 0.90544e-01,0.17883e+00,0.19740e+00,0.19075e+00,0.12140e+00 /) - kbo(:, 5,21, 8) = (/ & - & 0.95531e-01,0.18857e+00,0.20719e+00,0.19872e+00,0.12494e+00 /) - kbo(:, 1,22, 8) = (/ & - & 0.66536e-01,0.13293e+00,0.14913e+00,0.14618e+00,0.94429e-01 /) - kbo(:, 2,22, 8) = (/ & - & 0.69639e-01,0.13931e+00,0.15537e+00,0.15187e+00,0.97680e-01 /) - kbo(:, 3,22, 8) = (/ & - & 0.73194e-01,0.14688e+00,0.16282e+00,0.15805e+00,0.10087e+00 /) - kbo(:, 4,22, 8) = (/ & - & 0.77205e-01,0.15536e+00,0.17135e+00,0.16503e+00,0.10414e+00 /) - kbo(:, 5,22, 8) = (/ & - & 0.81667e-01,0.16427e+00,0.18066e+00,0.17291e+00,0.10744e+00 /) - kbo(:, 1,23, 8) = (/ & - & 0.56261e-01,0.11383e+00,0.12760e+00,0.12512e+00,0.80559e-01 /) - kbo(:, 2,23, 8) = (/ & - & 0.59086e-01,0.12014e+00,0.13384e+00,0.13048e+00,0.83485e-01 /) - kbo(:, 3,23, 8) = (/ & - & 0.62281e-01,0.12738e+00,0.14121e+00,0.13648e+00,0.86460e-01 /) - kbo(:, 4,23, 8) = (/ & - & 0.65906e-01,0.13517e+00,0.14937e+00,0.14336e+00,0.89462e-01 /) - kbo(:, 5,23, 8) = (/ & - & 0.69998e-01,0.14335e+00,0.15807e+00,0.15098e+00,0.92588e-01 /) - kbo(:, 1,24, 8) = (/ & - & 0.47642e-01,0.97933e-01,0.10963e+00,0.10742e+00,0.68750e-01 /) - kbo(:, 2,24, 8) = (/ & - & 0.50193e-01,0.10399e+00,0.11587e+00,0.11258e+00,0.71432e-01 /) - kbo(:, 3,24, 8) = (/ & - & 0.53085e-01,0.11077e+00,0.12298e+00,0.11845e+00,0.74194e-01 /) - kbo(:, 4,24, 8) = (/ & - & 0.56384e-01,0.11795e+00,0.13070e+00,0.12512e+00,0.76973e-01 /) - kbo(:, 5,24, 8) = (/ & - & 0.60174e-01,0.12555e+00,0.13879e+00,0.13237e+00,0.79920e-01 /) - kbo(:, 1,25, 8) = (/ & - & 0.40432e-01,0.84645e-01,0.94724e-01,0.92637e-01,0.58805e-01 /) - kbo(:, 2,25, 8) = (/ & - & 0.42748e-01,0.90409e-01,0.10079e+00,0.97654e-01,0.61289e-01 /) - kbo(:, 3,25, 8) = (/ & - & 0.45392e-01,0.96682e-01,0.10756e+00,0.10341e+00,0.63818e-01 /) - kbo(:, 4,25, 8) = (/ & - & 0.48438e-01,0.10335e+00,0.11478e+00,0.10978e+00,0.66481e-01 /) - kbo(:, 5,25, 8) = (/ & - & 0.52019e-01,0.11050e+00,0.12234e+00,0.11664e+00,0.69209e-01 /) - kbo(:, 1,26, 8) = (/ & - & 0.34430e-01,0.73567e-01,0.82349e-01,0.80341e-01,0.50485e-01 /) - kbo(:, 2,26, 8) = (/ & - & 0.36558e-01,0.78997e-01,0.88163e-01,0.85293e-01,0.52835e-01 /) - kbo(:, 3,26, 8) = (/ & - & 0.39009e-01,0.84818e-01,0.94521e-01,0.90851e-01,0.55181e-01 /) - kbo(:, 4,26, 8) = (/ & - & 0.41876e-01,0.91074e-01,0.10127e+00,0.96922e-01,0.57644e-01 /) - kbo(:, 5,26, 8) = (/ & - & 0.45294e-01,0.97874e-01,0.10841e+00,0.10340e+00,0.60258e-01 /) - kbo(:, 1,27, 8) = (/ & - & 0.29418e-01,0.64289e-01,0.71984e-01,0.70112e-01,0.43514e-01 /) - kbo(:, 2,27, 8) = (/ & - & 0.31367e-01,0.69333e-01,0.77500e-01,0.74945e-01,0.45654e-01 /) - kbo(:, 3,27, 8) = (/ & - & 0.33650e-01,0.74779e-01,0.83451e-01,0.80284e-01,0.47838e-01 /) - kbo(:, 4,27, 8) = (/ & - & 0.36373e-01,0.80698e-01,0.89803e-01,0.86035e-01,0.50188e-01 /) - kbo(:, 5,27, 8) = (/ & - & 0.39625e-01,0.87227e-01,0.96605e-01,0.92163e-01,0.52661e-01 /) - kbo(:, 1,28, 8) = (/ & - & 0.25206e-01,0.56436e-01,0.63282e-01,0.61571e-01,0.37602e-01 /) - kbo(:, 2,28, 8) = (/ & - & 0.27009e-01,0.61147e-01,0.68481e-01,0.66237e-01,0.39562e-01 /) - kbo(:, 3,28, 8) = (/ & - & 0.29150e-01,0.66302e-01,0.74074e-01,0.71341e-01,0.41601e-01 /) - kbo(:, 4,28, 8) = (/ & - & 0.31750e-01,0.71955e-01,0.80104e-01,0.76785e-01,0.43794e-01 /) - kbo(:, 5,28, 8) = (/ & - & 0.34834e-01,0.78268e-01,0.86662e-01,0.82632e-01,0.46193e-01 /) - kbo(:, 1,29, 8) = (/ & - & 0.21672e-01,0.49821e-01,0.55985e-01,0.54431e-01,0.32677e-01 /) - kbo(:, 2,29, 8) = (/ & - & 0.23360e-01,0.54257e-01,0.60871e-01,0.58918e-01,0.34453e-01 /) - kbo(:, 3,29, 8) = (/ & - & 0.25420e-01,0.59159e-01,0.66168e-01,0.63765e-01,0.36398e-01 /) - kbo(:, 4,29, 8) = (/ & - & 0.27908e-01,0.64629e-01,0.71935e-01,0.68977e-01,0.38490e-01 /) - kbo(:, 5,29, 8) = (/ & - & 0.30843e-01,0.70791e-01,0.78323e-01,0.74610e-01,0.40747e-01 /) - kbo(:, 1,30, 8) = (/ & - & 0.18703e-01,0.44236e-01,0.49819e-01,0.48423e-01,0.28503e-01 /) - kbo(:, 2,30, 8) = (/ & - & 0.20315e-01,0.48445e-01,0.54425e-01,0.52720e-01,0.30174e-01 /) - kbo(:, 3,30, 8) = (/ & - & 0.22307e-01,0.53163e-01,0.59481e-01,0.57359e-01,0.32018e-01 /) - kbo(:, 4,30, 8) = (/ & - & 0.24687e-01,0.58495e-01,0.65064e-01,0.62368e-01,0.34022e-01 /) - kbo(:, 5,30, 8) = (/ & - & 0.27510e-01,0.64597e-01,0.71352e-01,0.67860e-01,0.36243e-01 /) - kbo(:, 1,31, 8) = (/ & - & 0.16227e-01,0.39546e-01,0.44613e-01,0.43384e-01,0.24947e-01 /) - kbo(:, 2,31, 8) = (/ & - & 0.17791e-01,0.43576e-01,0.49010e-01,0.47501e-01,0.26577e-01 /) - kbo(:, 3,31, 8) = (/ & - & 0.19720e-01,0.48163e-01,0.53877e-01,0.51962e-01,0.28347e-01 /) - kbo(:, 4,31, 8) = (/ & - & 0.22010e-01,0.53419e-01,0.59368e-01,0.56842e-01,0.30326e-01 /) - kbo(:, 5,31, 8) = (/ & - & 0.24778e-01,0.59533e-01,0.65582e-01,0.62279e-01,0.32464e-01 /) - kbo(:, 1,32, 8) = (/ & - & 0.14168e-01,0.35610e-01,0.40228e-01,0.39145e-01,0.21998e-01 /) - kbo(:, 2,32, 8) = (/ & - & 0.15701e-01,0.39518e-01,0.44455e-01,0.43108e-01,0.23551e-01 /) - kbo(:, 3,32, 8) = (/ & - & 0.17568e-01,0.44028e-01,0.49228e-01,0.47442e-01,0.25303e-01 /) - kbo(:, 4,32, 8) = (/ & - & 0.19822e-01,0.49274e-01,0.54644e-01,0.52269e-01,0.27219e-01 /) - kbo(:, 5,32, 8) = (/ & - & 0.22492e-01,0.55429e-01,0.60878e-01,0.57696e-01,0.29289e-01 /) - kbo(:, 1,33, 8) = (/ & - & 0.12469e-01,0.32321e-01,0.36548e-01,0.35586e-01,0.19535e-01 /) - kbo(:, 2,33, 8) = (/ & - & 0.13967e-01,0.36160e-01,0.40670e-01,0.39414e-01,0.21057e-01 /) - kbo(:, 3,33, 8) = (/ & - & 0.15804e-01,0.40646e-01,0.45371e-01,0.43697e-01,0.22748e-01 /) - kbo(:, 4,33, 8) = (/ & - & 0.18007e-01,0.45935e-01,0.50790e-01,0.48504e-01,0.24589e-01 /) - kbo(:, 5,33, 8) = (/ & - & 0.20583e-01,0.52117e-01,0.57083e-01,0.53949e-01,0.26612e-01 /) - kbo(:, 1,34, 8) = (/ & - & 0.11030e-01,0.29462e-01,0.33333e-01,0.32457e-01,0.17441e-01 /) - kbo(:, 2,34, 8) = (/ & - & 0.12485e-01,0.33252e-01,0.37374e-01,0.36203e-01,0.18902e-01 /) - kbo(:, 3,34, 8) = (/ & - & 0.14284e-01,0.37735e-01,0.42039e-01,0.40449e-01,0.20533e-01 /) - kbo(:, 4,34, 8) = (/ & - & 0.16406e-01,0.43050e-01,0.47473e-01,0.45250e-01,0.22315e-01 /) - kbo(:, 5,34, 8) = (/ & - & 0.18889e-01,0.49221e-01,0.53838e-01,0.50709e-01,0.24295e-01 /) - kbo(:, 1,35, 8) = (/ & - & 0.97045e-02,0.26765e-01,0.30294e-01,0.29494e-01,0.15527e-01 /) - kbo(:, 2,35, 8) = (/ & - & 0.11116e-01,0.30471e-01,0.34237e-01,0.33156e-01,0.16936e-01 /) - kbo(:, 3,35, 8) = (/ & - & 0.12833e-01,0.34908e-01,0.38827e-01,0.37335e-01,0.18494e-01 /) - kbo(:, 4,35, 8) = (/ & - & 0.14851e-01,0.40160e-01,0.44228e-01,0.42095e-01,0.20230e-01 /) - kbo(:, 5,35, 8) = (/ & - & 0.17220e-01,0.46275e-01,0.50600e-01,0.47524e-01,0.22137e-01 /) - kbo(:, 1,36, 8) = (/ & - & 0.84787e-02,0.24131e-01,0.27339e-01,0.26619e-01,0.13756e-01 /) - kbo(:, 2,36, 8) = (/ & - & 0.98033e-02,0.27706e-01,0.31147e-01,0.30166e-01,0.15106e-01 /) - kbo(:, 3,36, 8) = (/ & - & 0.11407e-01,0.32015e-01,0.35610e-01,0.34239e-01,0.16593e-01 /) - kbo(:, 4,36, 8) = (/ & - & 0.13302e-01,0.37140e-01,0.40907e-01,0.38904e-01,0.18257e-01 /) - kbo(:, 5,36, 8) = (/ & - & 0.15537e-01,0.43129e-01,0.47182e-01,0.44236e-01,0.20074e-01 /) - kbo(:, 1,37, 8) = (/ & - & 0.72685e-02,0.21392e-01,0.24301e-01,0.23679e-01,0.12087e-01 /) - kbo(:, 2,37, 8) = (/ & - & 0.84733e-02,0.24759e-01,0.27898e-01,0.27046e-01,0.13342e-01 /) - kbo(:, 3,37, 8) = (/ & - & 0.99353e-02,0.28848e-01,0.32152e-01,0.30940e-01,0.14748e-01 /) - kbo(:, 4,37, 8) = (/ & - & 0.11673e-01,0.33734e-01,0.37224e-01,0.35422e-01,0.16319e-01 /) - kbo(:, 5,37, 8) = (/ & - & 0.13740e-01,0.39481e-01,0.43256e-01,0.40566e-01,0.18049e-01 /) - kbo(:, 1,38, 8) = (/ & - & 0.62326e-02,0.18999e-01,0.21644e-01,0.21103e-01,0.10629e-01 /) - kbo(:, 2,38, 8) = (/ & - & 0.73269e-02,0.22170e-01,0.25042e-01,0.24299e-01,0.11807e-01 /) - kbo(:, 3,38, 8) = (/ & - & 0.86586e-02,0.26045e-01,0.29098e-01,0.28019e-01,0.13138e-01 /) - kbo(:, 4,38, 8) = (/ & - & 0.10254e-01,0.30699e-01,0.33952e-01,0.32316e-01,0.14621e-01 /) - kbo(:, 5,38, 8) = (/ & - & 0.12168e-01,0.36211e-01,0.39748e-01,0.37288e-01,0.16263e-01 /) - kbo(:, 1,39, 8) = (/ & - & 0.53522e-02,0.16925e-01,0.19337e-01,0.18863e-01,0.93697e-02 /) - kbo(:, 2,39, 8) = (/ & - & 0.63437e-02,0.19916e-01,0.22555e-01,0.21900e-01,0.10477e-01 /) - kbo(:, 3,39, 8) = (/ & - & 0.75600e-02,0.23590e-01,0.26428e-01,0.25453e-01,0.11732e-01 /) - kbo(:, 4,39, 8) = (/ & - & 0.90277e-02,0.28027e-01,0.31081e-01,0.29581e-01,0.13140e-01 /) - kbo(:, 5,39, 8) = (/ & - & 0.10804e-01,0.33325e-01,0.36655e-01,0.34396e-01,0.14714e-01 /) - kbo(:, 1,40, 8) = (/ & - & 0.45183e-02,0.14862e-01,0.17043e-01,0.16640e-01,0.81906e-02 /) - kbo(:, 2,40, 8) = (/ & - & 0.53964e-02,0.17630e-01,0.20043e-01,0.19482e-01,0.92335e-02 /) - kbo(:, 3,40, 8) = (/ & - & 0.64835e-02,0.21041e-01,0.23674e-01,0.22821e-01,0.10400e-01 /) - kbo(:, 4,40, 8) = (/ & - & 0.78100e-02,0.25197e-01,0.28056e-01,0.26733e-01,0.11718e-01 /) - kbo(:, 5,40, 8) = (/ & - & 0.94310e-02,0.30203e-01,0.33322e-01,0.31321e-01,0.13209e-01 /) - kbo(:, 1,41, 8) = (/ & - & 0.38020e-02,0.13035e-01,0.15007e-01,0.14665e-01,0.71645e-02 /) - kbo(:, 2,41, 8) = (/ & - & 0.45796e-02,0.15592e-01,0.17802e-01,0.17320e-01,0.81332e-02 /) - kbo(:, 3,41, 8) = (/ & - & 0.55464e-02,0.18749e-01,0.21191e-01,0.20448e-01,0.92312e-02 /) - kbo(:, 4,41, 8) = (/ & - & 0.67408e-02,0.22629e-01,0.25309e-01,0.24143e-01,0.10458e-01 /) - kbo(:, 5,41, 8) = (/ & - & 0.82155e-02,0.27347e-01,0.30277e-01,0.28506e-01,0.11871e-01 /) - kbo(:, 1,42, 8) = (/ & - & 0.31962e-02,0.11444e-01,0.13229e-01,0.12937e-01,0.62788e-02 /) - kbo(:, 2,42, 8) = (/ & - & 0.38815e-02,0.13798e-01,0.15822e-01,0.15407e-01,0.71774e-02 /) - kbo(:, 3,42, 8) = (/ & - & 0.47422e-02,0.16722e-01,0.18990e-01,0.18339e-01,0.81986e-02 /) - kbo(:, 4,42, 8) = (/ & - & 0.58154e-02,0.20342e-01,0.22857e-01,0.21830e-01,0.93594e-02 /) - kbo(:, 5,42, 8) = (/ & - & 0.71546e-02,0.24787e-01,0.27545e-01,0.25973e-01,0.10684e-01 /) - kbo(:, 1,43, 8) = (/ & - & 0.26542e-02,0.99421e-02,0.11545e-01,0.11297e-01,0.54681e-02 /) - kbo(:, 2,43, 8) = (/ & - & 0.32467e-02,0.12085e-01,0.13926e-01,0.13575e-01,0.63017e-02 /) - kbo(:, 3,43, 8) = (/ & - & 0.40037e-02,0.14758e-01,0.16848e-01,0.16296e-01,0.72434e-02 /) - kbo(:, 4,43, 8) = (/ & - & 0.49534e-02,0.18094e-01,0.20438e-01,0.19556e-01,0.83354e-02 /) - kbo(:, 5,43, 8) = (/ & - & 0.61525e-02,0.22230e-01,0.24817e-01,0.23450e-01,0.95751e-02 /) - kbo(:, 1,44, 8) = (/ & - & 0.21881e-02,0.85857e-02,0.10019e-01,0.98043e-02,0.47456e-02 /) - kbo(:, 2,44, 8) = (/ & - & 0.26937e-02,0.10525e-01,0.12192e-01,0.11898e-01,0.55168e-02 /) - kbo(:, 3,44, 8) = (/ & - & 0.33531e-02,0.12952e-01,0.14870e-01,0.14408e-01,0.63938e-02 /) - kbo(:, 4,44, 8) = (/ & - & 0.41916e-02,0.16016e-01,0.18187e-01,0.17441e-01,0.73995e-02 /) - kbo(:, 5,44, 8) = (/ & - & 0.52529e-02,0.19825e-01,0.22245e-01,0.21074e-01,0.85693e-02 /) - kbo(:, 1,45, 8) = (/ & - & 0.17974e-02,0.74036e-02,0.86819e-02,0.84949e-02,0.41100e-02 /) - kbo(:, 2,45, 8) = (/ & - & 0.22283e-02,0.91556e-02,0.10664e-01,0.10414e-01,0.48257e-02 /) - kbo(:, 3,45, 8) = (/ & - & 0.27993e-02,0.11360e-01,0.13115e-01,0.12731e-01,0.56423e-02 /) - kbo(:, 4,45, 8) = (/ & - & 0.35358e-02,0.14164e-01,0.16170e-01,0.15543e-01,0.65867e-02 /) - kbo(:, 5,45, 8) = (/ & - & 0.44762e-02,0.17671e-01,0.19928e-01,0.18931e-01,0.76725e-02 /) - kbo(:, 1,46, 8) = (/ & - & 0.14666e-02,0.63443e-02,0.74710e-02,0.73099e-02,0.35540e-02 /) - kbo(:, 2,46, 8) = (/ & - & 0.18286e-02,0.79140e-02,0.92719e-02,0.90588e-02,0.41981e-02 /) - kbo(:, 3,46, 8) = (/ & - & 0.23196e-02,0.99089e-02,0.11508e-01,0.11192e-01,0.49656e-02 /) - kbo(:, 4,46, 8) = (/ & - & 0.29575e-02,0.12451e-01,0.14296e-01,0.13779e-01,0.58441e-02 /) - kbo(:, 5,46, 8) = (/ & - & 0.37842e-02,0.15662e-01,0.17758e-01,0.16921e-01,0.68660e-02 /) - kbo(:, 1,47, 8) = (/ & - & 0.11822e-02,0.53700e-02,0.63483e-02,0.62090e-02,0.30500e-02 /) - kbo(:, 2,47, 8) = (/ & - & 0.14817e-02,0.67616e-02,0.79678e-02,0.77874e-02,0.36317e-02 /) - kbo(:, 3,47, 8) = (/ & - & 0.18918e-02,0.85392e-02,0.99818e-02,0.97254e-02,0.43248e-02 /) - kbo(:, 4,47, 8) = (/ & - & 0.24382e-02,0.10820e-01,0.12503e-01,0.12088e-01,0.51477e-02 /) - kbo(:, 5,47, 8) = (/ & - & 0.31533e-02,0.13725e-01,0.15656e-01,0.14970e-01,0.61000e-02 /) - kbo(:, 1,48, 8) = (/ & - & 0.94906e-03,0.45298e-02,0.53706e-02,0.52506e-02,0.26162e-02 /) - kbo(:, 2,48, 8) = (/ & - & 0.11965e-02,0.57597e-02,0.68213e-02,0.66698e-02,0.31403e-02 /) - kbo(:, 3,48, 8) = (/ & - & 0.15369e-02,0.73380e-02,0.86368e-02,0.84246e-02,0.37687e-02 /) - kbo(:, 4,48, 8) = (/ & - & 0.20008e-02,0.93814e-02,0.10911e-01,0.10580e-01,0.45213e-02 /) - kbo(:, 5,48, 8) = (/ & - & 0.26159e-02,0.12002e-01,0.13774e-01,0.13221e-01,0.54142e-02 /) - kbo(:, 1,49, 8) = (/ & - & 0.75913e-03,0.38043e-02,0.45203e-02,0.44181e-02,0.22379e-02 /) - kbo(:, 2,49, 8) = (/ & - & 0.96097e-03,0.48899e-02,0.58138e-02,0.56878e-02,0.27098e-02 /) - kbo(:, 3,49, 8) = (/ & - & 0.12447e-02,0.62895e-02,0.74501e-02,0.72727e-02,0.32859e-02 /) - kbo(:, 4,49, 8) = (/ & - & 0.16322e-02,0.81122e-02,0.94989e-02,0.92349e-02,0.39720e-02 /) - kbo(:, 5,49, 8) = (/ & - & 0.21597e-02,0.10470e-01,0.12092e-01,0.11650e-01,0.47938e-02 /) - kbo(:, 1,50, 8) = (/ & - & 0.60949e-03,0.32009e-02,0.38080e-02,0.37204e-02,0.19148e-02 /) - kbo(:, 2,50, 8) = (/ & - & 0.77332e-03,0.41637e-02,0.49658e-02,0.48588e-02,0.23498e-02 /) - kbo(:, 3,50, 8) = (/ & - & 0.10099e-02,0.54095e-02,0.64416e-02,0.62938e-02,0.28713e-02 /) - kbo(:, 4,50, 8) = (/ & - & 0.13353e-02,0.70417e-02,0.83004e-02,0.80844e-02,0.35114e-02 /) - kbo(:, 5,50, 8) = (/ & - & 0.17873e-02,0.91691e-02,0.10658e-01,0.10303e-01,0.42641e-02 /) - kbo(:, 1,51, 8) = (/ & - & 0.48960e-03,0.26873e-02,0.32008e-02,0.31259e-02,0.16378e-02 /) - kbo(:, 2,51, 8) = (/ & - & 0.62187e-03,0.35423e-02,0.42349e-02,0.41443e-02,0.20325e-02 /) - kbo(:, 3,51, 8) = (/ & - & 0.81788e-03,0.46529e-02,0.55656e-02,0.54424e-02,0.25164e-02 /) - kbo(:, 4,51, 8) = (/ & - & 0.10935e-02,0.61155e-02,0.72565e-02,0.70765e-02,0.31007e-02 /) - kbo(:, 5,51, 8) = (/ & - & 0.14776e-02,0.80416e-02,0.94087e-02,0.91197e-02,0.38085e-02 /) - kbo(:, 1,52, 8) = (/ & - & 0.39302e-03,0.22435e-02,0.26754e-02,0.26122e-02,0.13898e-02 /) - kbo(:, 2,52, 8) = (/ & - & 0.49889e-03,0.30006e-02,0.35943e-02,0.35172e-02,0.17532e-02 /) - kbo(:, 3,52, 8) = (/ & - & 0.65922e-03,0.39906e-02,0.47901e-02,0.46880e-02,0.21980e-02 /) - kbo(:, 4,52, 8) = (/ & - & 0.89075e-03,0.52980e-02,0.63237e-02,0.61748e-02,0.27412e-02 /) - kbo(:, 5,52, 8) = (/ & - & 0.12150e-02,0.70312e-02,0.82837e-02,0.80497e-02,0.33956e-02 /) - kbo(:, 1,53, 8) = (/ & - & 0.31533e-03,0.18598e-02,0.22216e-02,0.21690e-02,0.11705e-02 /) - kbo(:, 2,53, 8) = (/ & - & 0.39919e-03,0.25290e-02,0.30338e-02,0.29679e-02,0.15051e-02 /) - kbo(:, 3,53, 8) = (/ & - & 0.52958e-03,0.34096e-02,0.41030e-02,0.40189e-02,0.19137e-02 /) - kbo(:, 4,53, 8) = (/ & - & 0.72147e-03,0.45756e-02,0.54894e-02,0.53678e-02,0.24147e-02 /) - kbo(:, 5,53, 8) = (/ & - & 0.99563e-03,0.61321e-02,0.72739e-02,0.70826e-02,0.30286e-02 /) - kbo(:, 1,54, 8) = (/ & - & 0.25434e-03,0.15477e-02,0.18502e-02,0.18075e-02,0.98891e-03 /) - kbo(:, 2,54, 8) = (/ & - & 0.32221e-03,0.21398e-02,0.25708e-02,0.25148e-02,0.12935e-02 /) - kbo(:, 3,54, 8) = (/ & - & 0.42775e-03,0.29272e-02,0.35315e-02,0.34599e-02,0.16741e-02 /) - kbo(:, 4,54, 8) = (/ & - & 0.58762e-03,0.39761e-02,0.47907e-02,0.46896e-02,0.21376e-02 /) - kbo(:, 5,54, 8) = (/ & - & 0.82053e-03,0.53824e-02,0.64244e-02,0.62664e-02,0.27173e-02 /) - kbo(:, 1,55, 8) = (/ & - & 0.20618e-03,0.12866e-02,0.15400e-02,0.15055e-02,0.83572e-03 /) - kbo(:, 2,55, 8) = (/ & - & 0.26059e-03,0.18094e-02,0.21787e-02,0.21302e-02,0.11090e-02 /) - kbo(:, 3,55, 8) = (/ & - & 0.34651e-03,0.25140e-02,0.30392e-02,0.29780e-02,0.14628e-02 /) - kbo(:, 4,55, 8) = (/ & - & 0.47882e-03,0.34608e-02,0.41831e-02,0.41003e-02,0.18992e-02 /) - kbo(:, 5,55, 8) = (/ & - & 0.67671e-03,0.47331e-02,0.56817e-02,0.55503e-02,0.24360e-02 /) - kbo(:, 1,56, 8) = (/ & - & 0.16681e-03,0.10621e-02,0.12728e-02,0.12461e-02,0.70162e-03 /) - kbo(:, 2,56, 8) = (/ & - & 0.21064e-03,0.15213e-02,0.18350e-02,0.17945e-02,0.94828e-03 /) - kbo(:, 3,56, 8) = (/ & - & 0.28028e-03,0.21500e-02,0.26045e-02,0.25521e-02,0.12721e-02 /) - kbo(:, 4,56, 8) = (/ & - & 0.38906e-03,0.30029e-02,0.36387e-02,0.35710e-02,0.16833e-02 /) - kbo(:, 5,56, 8) = (/ & - & 0.55568e-03,0.41534e-02,0.50111e-02,0.49027e-02,0.21849e-02 /) - kbo(:, 1,57, 8) = (/ & - & 0.13484e-03,0.87168e-03,0.10444e-02,0.10248e-02,0.58516e-03 /) - kbo(:, 2,57, 8) = (/ & - & 0.17007e-03,0.12717e-02,0.15360e-02,0.15024e-02,0.80805e-03 /) - kbo(:, 3,57, 8) = (/ & - & 0.22603e-03,0.18296e-02,0.22211e-02,0.21757e-02,0.11006e-02 /) - kbo(:, 4,57, 8) = (/ & - & 0.31565e-03,0.25963e-02,0.31531e-02,0.30959e-02,0.14851e-02 /) - kbo(:, 5,57, 8) = (/ & - & 0.45417e-03,0.36365e-02,0.44058e-02,0.43157e-02,0.19625e-02 /) - kbo(:, 1,58, 8) = (/ & - & 0.10938e-03,0.71449e-03,0.85655e-03,0.84240e-03,0.48772e-03 /) - kbo(:, 2,58, 8) = (/ & - & 0.13752e-03,0.10624e-02,0.12849e-02,0.12583e-02,0.68689e-03 /) - kbo(:, 3,58, 8) = (/ & - & 0.18307e-03,0.15572e-02,0.18954e-02,0.18566e-02,0.95344e-03 /) - kbo(:, 4,58, 8) = (/ & - & 0.25673e-03,0.22481e-02,0.27363e-02,0.26877e-02,0.13079e-02 /) - kbo(:, 5,58, 8) = (/ & - & 0.37230e-03,0.31921e-02,0.38812e-02,0.38070e-02,0.17570e-02 /) - kbo(:, 1,59, 8) = (/ & - & 0.92153e-04,0.62798e-03,0.75374e-03,0.74243e-03,0.43161e-03 /) - kbo(:, 2,59, 8) = (/ & - & 0.11676e-03,0.95019e-03,0.11525e-02,0.11296e-02,0.61959e-03 /) - kbo(:, 3,59, 8) = (/ & - & 0.15687e-03,0.14168e-02,0.17285e-02,0.16938e-02,0.87468e-03 /) - kbo(:, 4,59, 8) = (/ & - & 0.22278e-03,0.20743e-02,0.25302e-02,0.24863e-02,0.12161e-02 /) - kbo(:, 5,59, 8) = (/ & - & 0.32724e-03,0.29797e-02,0.36313e-02,0.35664e-02,0.16577e-02 /) - kbo(:, 1,13, 9) = (/ & - & 0.16403e+01,0.27290e+01,0.31326e+01,0.31890e+01,0.23307e+01 /) - kbo(:, 2,13, 9) = (/ & - & 0.16862e+01,0.27611e+01,0.31617e+01,0.32226e+01,0.23816e+01 /) - kbo(:, 3,13, 9) = (/ & - & 0.17455e+01,0.28101e+01,0.32005e+01,0.32552e+01,0.24291e+01 /) - kbo(:, 4,13, 9) = (/ & - & 0.18100e+01,0.28758e+01,0.32471e+01,0.32901e+01,0.24729e+01 /) - kbo(:, 5,13, 9) = (/ & - & 0.18736e+01,0.29528e+01,0.33027e+01,0.33291e+01,0.25126e+01 /) - kbo(:, 1,14, 9) = (/ & - & 0.14276e+01,0.24116e+01,0.27645e+01,0.28207e+01,0.20786e+01 /) - kbo(:, 2,14, 9) = (/ & - & 0.14761e+01,0.24553e+01,0.28027e+01,0.28564e+01,0.21275e+01 /) - kbo(:, 3,14, 9) = (/ & - & 0.15303e+01,0.25161e+01,0.28501e+01,0.28940e+01,0.21750e+01 /) - kbo(:, 4,14, 9) = (/ & - & 0.15845e+01,0.25879e+01,0.29061e+01,0.29354e+01,0.22167e+01 /) - kbo(:, 5,14, 9) = (/ & - & 0.16378e+01,0.26632e+01,0.29707e+01,0.29827e+01,0.22552e+01 /) - kbo(:, 1,15, 9) = (/ & - & 0.12454e+01,0.21329e+01,0.24382e+01,0.24839e+01,0.18332e+01 /) - kbo(:, 2,15, 9) = (/ & - & 0.12895e+01,0.21869e+01,0.24841e+01,0.25234e+01,0.18816e+01 /) - kbo(:, 3,15, 9) = (/ & - & 0.13344e+01,0.22528e+01,0.25385e+01,0.25663e+01,0.19251e+01 /) - kbo(:, 4,15, 9) = (/ & - & 0.13794e+01,0.23234e+01,0.26021e+01,0.26153e+01,0.19652e+01 /) - kbo(:, 5,15, 9) = (/ & - & 0.14250e+01,0.23931e+01,0.26727e+01,0.26688e+01,0.20043e+01 /) - kbo(:, 1,16, 9) = (/ & - & 0.10848e+01,0.18880e+01,0.21511e+01,0.21813e+01,0.16071e+01 /) - kbo(:, 2,16, 9) = (/ & - & 0.11214e+01,0.19471e+01,0.22027e+01,0.22246e+01,0.16520e+01 /) - kbo(:, 3,16, 9) = (/ & - & 0.11587e+01,0.20122e+01,0.22636e+01,0.22737e+01,0.16924e+01 /) - kbo(:, 4,16, 9) = (/ & - & 0.11968e+01,0.20768e+01,0.23313e+01,0.23282e+01,0.17327e+01 /) - kbo(:, 5,16, 9) = (/ & - & 0.12369e+01,0.21393e+01,0.24028e+01,0.23861e+01,0.17713e+01 /) - kbo(:, 1,17, 9) = (/ & - & 0.94054e+00,0.16727e+01,0.18972e+01,0.19128e+01,0.14046e+01 /) - kbo(:, 2,17, 9) = (/ & - & 0.97101e+00,0.17314e+01,0.19542e+01,0.19610e+01,0.14464e+01 /) - kbo(:, 3,17, 9) = (/ & - & 0.10024e+01,0.17905e+01,0.20183e+01,0.20147e+01,0.14867e+01 /) - kbo(:, 4,17, 9) = (/ & - & 0.10357e+01,0.18485e+01,0.20868e+01,0.20722e+01,0.15247e+01 /) - kbo(:, 5,17, 9) = (/ & - & 0.10722e+01,0.19059e+01,0.21551e+01,0.21344e+01,0.15620e+01 /) - kbo(:, 1,18, 9) = (/ & - & 0.81293e+00,0.14815e+01,0.16736e+01,0.16776e+01,0.12272e+01 /) - kbo(:, 2,18, 9) = (/ & - & 0.83847e+00,0.15352e+01,0.17337e+01,0.17293e+01,0.12665e+01 /) - kbo(:, 3,18, 9) = (/ & - & 0.86557e+00,0.15883e+01,0.17983e+01,0.17854e+01,0.13052e+01 /) - kbo(:, 4,18, 9) = (/ & - & 0.89549e+00,0.16413e+01,0.18633e+01,0.18465e+01,0.13420e+01 /) - kbo(:, 5,18, 9) = (/ & - & 0.92973e+00,0.16952e+01,0.19268e+01,0.19102e+01,0.13778e+01 /) - kbo(:, 1,19, 9) = (/ & - & 0.70038e+00,0.13093e+01,0.14779e+01,0.14733e+01,0.10709e+01 /) - kbo(:, 2,19, 9) = (/ & - & 0.72263e+00,0.13577e+01,0.15381e+01,0.15268e+01,0.11090e+01 /) - kbo(:, 3,19, 9) = (/ & - & 0.74709e+00,0.14065e+01,0.15995e+01,0.15853e+01,0.11457e+01 /) - kbo(:, 4,19, 9) = (/ & - & 0.77505e+00,0.14562e+01,0.16599e+01,0.16467e+01,0.11819e+01 /) - kbo(:, 5,19, 9) = (/ & - & 0.80778e+00,0.15082e+01,0.17205e+01,0.17095e+01,0.12170e+01 /) - kbo(:, 1,20, 9) = (/ & - & 0.60096e+00,0.11549e+01,0.13070e+01,0.12966e+01,0.93504e+00 /) - kbo(:, 2,20, 9) = (/ & - & 0.62117e+00,0.11996e+01,0.13644e+01,0.13518e+01,0.97145e+00 /) - kbo(:, 3,20, 9) = (/ & - & 0.64437e+00,0.12456e+01,0.14215e+01,0.14105e+01,0.10075e+01 /) - kbo(:, 4,20, 9) = (/ & - & 0.67172e+00,0.12935e+01,0.14792e+01,0.14711e+01,0.10425e+01 /) - kbo(:, 5,20, 9) = (/ & - & 0.70425e+00,0.13447e+01,0.15379e+01,0.15320e+01,0.10771e+01 /) - kbo(:, 1,21, 9) = (/ & - & 0.51409e+00,0.10184e+01,0.11562e+01,0.11440e+01,0.81589e+00 /) - kbo(:, 2,21, 9) = (/ & - & 0.53296e+00,0.10604e+01,0.12096e+01,0.11991e+01,0.85095e+00 /) - kbo(:, 3,21, 9) = (/ & - & 0.55527e+00,0.11043e+01,0.12638e+01,0.12567e+01,0.88570e+00 /) - kbo(:, 4,21, 9) = (/ & - & 0.58243e+00,0.11512e+01,0.13194e+01,0.13151e+01,0.92023e+00 /) - kbo(:, 5,21, 9) = (/ & - & 0.61501e+00,0.12017e+01,0.13771e+01,0.13737e+01,0.95470e+00 /) - kbo(:, 1,22, 9) = (/ & - & 0.44038e+00,0.90186e+00,0.10262e+01,0.10153e+01,0.71382e+00 /) - kbo(:, 2,22, 9) = (/ & - & 0.45853e+00,0.94198e+00,0.10770e+01,0.10695e+01,0.74736e+00 /) - kbo(:, 3,22, 9) = (/ & - & 0.48068e+00,0.98449e+00,0.11290e+01,0.11248e+01,0.78150e+00 /) - kbo(:, 4,22, 9) = (/ & - & 0.50812e+00,0.10306e+01,0.11833e+01,0.11809e+01,0.81518e+00 /) - kbo(:, 5,22, 9) = (/ & - & 0.54141e+00,0.10817e+01,0.12405e+01,0.12383e+01,0.84849e+00 /) - kbo(:, 1,23, 9) = (/ & - & 0.37767e+00,0.80078e+00,0.91306e+00,0.90433e+00,0.62612e+00 /) - kbo(:, 2,23, 9) = (/ & - & 0.39558e+00,0.83957e+00,0.96154e+00,0.95658e+00,0.65837e+00 /) - kbo(:, 3,23, 9) = (/ & - & 0.41794e+00,0.88149e+00,0.10123e+01,0.10097e+01,0.69117e+00 /) - kbo(:, 4,23, 9) = (/ & - & 0.44579e+00,0.92784e+00,0.10657e+01,0.10643e+01,0.72352e+00 /) - kbo(:, 5,23, 9) = (/ & - & 0.47930e+00,0.97981e+00,0.11229e+01,0.11209e+01,0.75697e+00 /) - kbo(:, 1,24, 9) = (/ & - & 0.32501e+00,0.71314e+00,0.81551e+00,0.80817e+00,0.55055e+00 /) - kbo(:, 2,24, 9) = (/ & - & 0.34301e+00,0.75171e+00,0.86229e+00,0.85830e+00,0.58144e+00 /) - kbo(:, 3,24, 9) = (/ & - & 0.36572e+00,0.79385e+00,0.91196e+00,0.91014e+00,0.61242e+00 /) - kbo(:, 4,24, 9) = (/ & - & 0.39391e+00,0.84084e+00,0.96525e+00,0.96386e+00,0.64468e+00 /) - kbo(:, 5,24, 9) = (/ & - & 0.42682e+00,0.89378e+00,0.10230e+01,0.10202e+01,0.67755e+00 /) - kbo(:, 1,25, 9) = (/ & - & 0.28120e+00,0.63782e+00,0.73197e+00,0.72532e+00,0.48624e+00 /) - kbo(:, 2,25, 9) = (/ & - & 0.29939e+00,0.67672e+00,0.77772e+00,0.77395e+00,0.51566e+00 /) - kbo(:, 3,25, 9) = (/ & - & 0.32259e+00,0.71969e+00,0.82682e+00,0.82484e+00,0.54562e+00 /) - kbo(:, 4,25, 9) = (/ & - & 0.35054e+00,0.76785e+00,0.88040e+00,0.87836e+00,0.57709e+00 /) - kbo(:, 5,25, 9) = (/ & - & 0.38231e+00,0.82200e+00,0.93896e+00,0.93503e+00,0.60997e+00 /) - kbo(:, 1,26, 9) = (/ & - & 0.24516e+00,0.57415e+00,0.66146e+00,0.65501e+00,0.43198e+00 /) - kbo(:, 2,26, 9) = (/ & - & 0.26380e+00,0.61364e+00,0.70651e+00,0.70261e+00,0.46025e+00 /) - kbo(:, 3,26, 9) = (/ & - & 0.28716e+00,0.65790e+00,0.75577e+00,0.75300e+00,0.48987e+00 /) - kbo(:, 4,26, 9) = (/ & - & 0.31438e+00,0.70747e+00,0.80990e+00,0.80672e+00,0.52086e+00 /) - kbo(:, 5,26, 9) = (/ & - & 0.34509e+00,0.76331e+00,0.86957e+00,0.86437e+00,0.55315e+00 /) - kbo(:, 1,27, 9) = (/ & - & 0.21544e+00,0.52037e+00,0.60144e+00,0.59535e+00,0.38600e+00 /) - kbo(:, 2,27, 9) = (/ & - & 0.23456e+00,0.56067e+00,0.64661e+00,0.64229e+00,0.41342e+00 /) - kbo(:, 3,27, 9) = (/ & - & 0.25766e+00,0.60633e+00,0.69633e+00,0.69257e+00,0.44235e+00 /) - kbo(:, 4,27, 9) = (/ & - & 0.28405e+00,0.65751e+00,0.75133e+00,0.74692e+00,0.47298e+00 /) - kbo(:, 5,27, 9) = (/ & - & 0.31370e+00,0.71529e+00,0.81234e+00,0.80601e+00,0.50534e+00 /) - kbo(:, 1,28, 9) = (/ & - & 0.19107e+00,0.47529e+00,0.55077e+00,0.54503e+00,0.34666e+00 /) - kbo(:, 2,28, 9) = (/ & - & 0.21041e+00,0.51675e+00,0.59653e+00,0.59172e+00,0.37350e+00 /) - kbo(:, 3,28, 9) = (/ & - & 0.23301e+00,0.56364e+00,0.64698e+00,0.64221e+00,0.40186e+00 /) - kbo(:, 4,28, 9) = (/ & - & 0.25866e+00,0.61667e+00,0.70320e+00,0.69763e+00,0.43205e+00 /) - kbo(:, 5,28, 9) = (/ & - & 0.28710e+00,0.67650e+00,0.76586e+00,0.75834e+00,0.46367e+00 /) - kbo(:, 1,29, 9) = (/ & - & 0.17112e+00,0.43830e+00,0.50881e+00,0.50311e+00,0.31371e+00 /) - kbo(:, 2,29, 9) = (/ & - & 0.19046e+00,0.48081e+00,0.55535e+00,0.54996e+00,0.34018e+00 /) - kbo(:, 3,29, 9) = (/ & - & 0.21264e+00,0.52926e+00,0.60692e+00,0.60125e+00,0.36829e+00 /) - kbo(:, 4,29, 9) = (/ & - & 0.23734e+00,0.58428e+00,0.66473e+00,0.65816e+00,0.39807e+00 /) - kbo(:, 5,29, 9) = (/ & - & 0.26483e+00,0.64604e+00,0.72961e+00,0.72085e+00,0.42916e+00 /) - kbo(:, 1,30, 9) = (/ & - & 0.15474e+00,0.40804e+00,0.47416e+00,0.46844e+00,0.28591e+00 /) - kbo(:, 2,30, 9) = (/ & - & 0.17385e+00,0.45175e+00,0.52179e+00,0.51582e+00,0.31208e+00 /) - kbo(:, 3,30, 9) = (/ & - & 0.19550e+00,0.50197e+00,0.57484e+00,0.56852e+00,0.33963e+00 /) - kbo(:, 4,30, 9) = (/ & - & 0.21942e+00,0.55897e+00,0.63459e+00,0.62718e+00,0.36926e+00 /) - kbo(:, 5,30, 9) = (/ & - & 0.24626e+00,0.62254e+00,0.70206e+00,0.69222e+00,0.40317e+00 /) - kbo(:, 1,31, 9) = (/ & - & 0.14123e+00,0.38383e+00,0.44627e+00,0.44042e+00,0.26282e+00 /) - kbo(:, 2,31, 9) = (/ & - & 0.16008e+00,0.42905e+00,0.49523e+00,0.48891e+00,0.28832e+00 /) - kbo(:, 3,31, 9) = (/ & - & 0.18115e+00,0.48120e+00,0.55018e+00,0.54338e+00,0.31669e+00 /) - kbo(:, 4,31, 9) = (/ & - & 0.20456e+00,0.54014e+00,0.61227e+00,0.60422e+00,0.34861e+00 /) - kbo(:, 5,31, 9) = (/ & - & 0.23090e+00,0.60549e+00,0.68253e+00,0.67193e+00,0.38334e+00 /) - kbo(:, 1,32, 9) = (/ & - & 0.13011e+00,0.36494e+00,0.42434e+00,0.41840e+00,0.24343e+00 /) - kbo(:, 2,32, 9) = (/ & - & 0.14859e+00,0.41192e+00,0.47502e+00,0.46846e+00,0.27034e+00 /) - kbo(:, 3,32, 9) = (/ & - & 0.16925e+00,0.46604e+00,0.53210e+00,0.52502e+00,0.30012e+00 /) - kbo(:, 4,32, 9) = (/ & - & 0.19229e+00,0.52692e+00,0.59693e+00,0.58841e+00,0.33258e+00 /) - kbo(:, 5,32, 9) = (/ & - & 0.21839e+00,0.59419e+00,0.67028e+00,0.65920e+00,0.36819e+00 /) - kbo(:, 1,33, 9) = (/ & - & 0.12092e+00,0.35074e+00,0.40776e+00,0.40175e+00,0.22934e+00 /) - kbo(:, 2,33, 9) = (/ & - & 0.13904e+00,0.39967e+00,0.46044e+00,0.45383e+00,0.25698e+00 /) - kbo(:, 3,33, 9) = (/ & - & 0.15944e+00,0.45574e+00,0.51998e+00,0.51285e+00,0.28727e+00 /) - kbo(:, 4,33, 9) = (/ & - & 0.18230e+00,0.51859e+00,0.58782e+00,0.57914e+00,0.32052e+00 /) - kbo(:, 5,33, 9) = (/ & - & 0.20843e+00,0.58793e+00,0.66452e+00,0.65307e+00,0.35723e+00 /) - kbo(:, 1,34, 9) = (/ & - & 0.11270e+00,0.33906e+00,0.39419e+00,0.38828e+00,0.21761e+00 /) - kbo(:, 2,34, 9) = (/ & - & 0.13054e+00,0.38970e+00,0.44887e+00,0.44251e+00,0.24563e+00 /) - kbo(:, 3,34, 9) = (/ & - & 0.15070e+00,0.44751e+00,0.51092e+00,0.50399e+00,0.27652e+00 /) - kbo(:, 4,34, 9) = (/ & - & 0.17349e+00,0.51224e+00,0.58169e+00,0.57301e+00,0.31064e+00 /) - kbo(:, 5,34, 9) = (/ & - & 0.19973e+00,0.58363e+00,0.66163e+00,0.64989e+00,0.34860e+00 /) - kbo(:, 1,35, 9) = (/ & - & 0.10431e+00,0.32621e+00,0.37969e+00,0.37421e+00,0.20589e+00 /) - kbo(:, 2,35, 9) = (/ & - & 0.12172e+00,0.37794e+00,0.43594e+00,0.43005e+00,0.23415e+00 /) - kbo(:, 3,35, 9) = (/ & - & 0.14155e+00,0.43696e+00,0.49993e+00,0.49338e+00,0.26546e+00 /) - kbo(:, 4,35, 9) = (/ & - & 0.16416e+00,0.50303e+00,0.57285e+00,0.56442e+00,0.30031e+00 /) - kbo(:, 5,35, 9) = (/ & - & 0.19033e+00,0.57592e+00,0.65509e+00,0.64342e+00,0.33926e+00 /) - kbo(:, 1,36, 9) = (/ & - & 0.95441e-01,0.31093e+00,0.36283e+00,0.35795e+00,0.19348e+00 /) - kbo(:, 2,36, 9) = (/ & - & 0.11226e+00,0.36299e+00,0.41996e+00,0.41468e+00,0.22173e+00 /) - kbo(:, 3,36, 9) = (/ & - & 0.13160e+00,0.42251e+00,0.48508e+00,0.47906e+00,0.25327e+00 /) - kbo(:, 4,36, 9) = (/ & - & 0.15379e+00,0.48924e+00,0.55909e+00,0.55119e+00,0.28853e+00 /) - kbo(:, 5,36, 9) = (/ & - & 0.17959e+00,0.56298e+00,0.64257e+00,0.63136e+00,0.32808e+00 /) - kbo(:, 1,37, 9) = (/ & - & 0.85477e-01,0.29072e+00,0.34067e+00,0.33658e+00,0.17886e+00 /) - kbo(:, 2,37, 9) = (/ & - & 0.10144e+00,0.34200e+00,0.39763e+00,0.39300e+00,0.20669e+00 /) - kbo(:, 3,37, 9) = (/ & - & 0.11996e+00,0.40095e+00,0.46252e+00,0.45719e+00,0.23796e+00 /) - kbo(:, 4,37, 9) = (/ & - & 0.14137e+00,0.46732e+00,0.53621e+00,0.52913e+00,0.27304e+00 /) - kbo(:, 5,37, 9) = (/ & - & 0.16629e+00,0.54086e+00,0.61939e+00,0.60918e+00,0.31246e+00 /) - kbo(:, 1,38, 9) = (/ & - & 0.76626e-01,0.27223e+00,0.32047e+00,0.31724e+00,0.16576e+00 /) - kbo(:, 2,38, 9) = (/ & - & 0.91774e-01,0.32273e+00,0.37721e+00,0.37319e+00,0.19315e+00 /) - kbo(:, 3,38, 9) = (/ & - & 0.10950e+00,0.38104e+00,0.44177e+00,0.43708e+00,0.22413e+00 /) - kbo(:, 4,38, 9) = (/ & - & 0.13015e+00,0.44697e+00,0.51498e+00,0.50870e+00,0.25903e+00 /) - kbo(:, 5,38, 9) = (/ & - & 0.15424e+00,0.52018e+00,0.59766e+00,0.58842e+00,0.29827e+00 /) - kbo(:, 1,39, 9) = (/ & - & 0.68857e-01,0.25564e+00,0.30247e+00,0.30005e+00,0.15419e+00 /) - kbo(:, 2,39, 9) = (/ & - & 0.83231e-01,0.30541e+00,0.35891e+00,0.35551e+00,0.18117e+00 /) - kbo(:, 3,39, 9) = (/ & - & 0.10022e+00,0.36305e+00,0.42306e+00,0.41901e+00,0.21190e+00 /) - kbo(:, 4,39, 9) = (/ & - & 0.12015e+00,0.42854e+00,0.49574e+00,0.49023e+00,0.24662e+00 /) - kbo(:, 5,39, 9) = (/ & - & 0.14353e+00,0.50140e+00,0.57784e+00,0.56950e+00,0.28564e+00 /) - kbo(:, 1,40, 9) = (/ & - & 0.60721e-01,0.23607e+00,0.28098e+00,0.27949e+00,0.14134e+00 /) - kbo(:, 2,40, 9) = (/ & - & 0.74142e-01,0.28436e+00,0.33629e+00,0.33356e+00,0.16758e+00 /) - kbo(:, 3,40, 9) = (/ & - & 0.90161e-01,0.34051e+00,0.39918e+00,0.39576e+00,0.19765e+00 /) - kbo(:, 4,40, 9) = (/ & - & 0.10909e+00,0.40469e+00,0.47035e+00,0.46571e+00,0.23173e+00 /) - kbo(:, 5,40, 9) = (/ & - & 0.13146e+00,0.47643e+00,0.55083e+00,0.54364e+00,0.27006e+00 /) - kbo(:, 1,41, 9) = (/ & - & 0.53403e-01,0.21760e+00,0.26060e+00,0.26004e+00,0.12944e+00 /) - kbo(:, 2,41, 9) = (/ & - & 0.65918e-01,0.26438e+00,0.31466e+00,0.31265e+00,0.15490e+00 /) - kbo(:, 3,41, 9) = (/ & - & 0.80936e-01,0.31888e+00,0.37609e+00,0.37327e+00,0.18421e+00 /) - kbo(:, 4,41, 9) = (/ & - & 0.98889e-01,0.38155e+00,0.44565e+00,0.44176e+00,0.21756e+00 /) - kbo(:, 5,41, 9) = (/ & - & 0.12024e+00,0.45195e+00,0.52424e+00,0.51812e+00,0.25511e+00 /) - kbo(:, 1,42, 9) = (/ & - & 0.46980e-01,0.20072e+00,0.24188e+00,0.24222e+00,0.11863e+00 /) - kbo(:, 2,42, 9) = (/ & - & 0.58572e-01,0.24586e+00,0.29443e+00,0.29314e+00,0.14330e+00 /) - kbo(:, 3,42, 9) = (/ & - & 0.72653e-01,0.29875e+00,0.35445e+00,0.35212e+00,0.17184e+00 /) - kbo(:, 4,42, 9) = (/ & - & 0.89663e-01,0.35979e+00,0.42236e+00,0.41911e+00,0.20443e+00 /) - kbo(:, 5,42, 9) = (/ & - & 0.11004e+00,0.42873e+00,0.49904e+00,0.49389e+00,0.24118e+00 /) - kbo(:, 1,43, 9) = (/ & - & 0.40748e-01,0.18301e+00,0.22189e+00,0.22309e+00,0.10752e+00 /) - kbo(:, 2,43, 9) = (/ & - & 0.51357e-01,0.22603e+00,0.27246e+00,0.27198e+00,0.13119e+00 /) - kbo(:, 3,43, 9) = (/ & - & 0.64381e-01,0.27684e+00,0.33058e+00,0.32881e+00,0.15875e+00 /) - kbo(:, 4,43, 9) = (/ & - & 0.80299e-01,0.33572e+00,0.39639e+00,0.39376e+00,0.19029e+00 /) - kbo(:, 5,43, 9) = (/ & - & 0.99551e-01,0.40267e+00,0.47065e+00,0.46647e+00,0.22598e+00 /) - kbo(:, 1,44, 9) = (/ & - & 0.35065e-01,0.16586e+00,0.20221e+00,0.20417e+00,0.96831e-01 /) - kbo(:, 2,44, 9) = (/ & - & 0.44686e-01,0.20650e+00,0.25055e+00,0.25097e+00,0.11942e+00 /) - kbo(:, 3,44, 9) = (/ & - & 0.56631e-01,0.25500e+00,0.30652e+00,0.30540e+00,0.14585e+00 /) - kbo(:, 4,44, 9) = (/ & - & 0.71442e-01,0.31160e+00,0.37021e+00,0.36812e+00,0.17630e+00 /) - kbo(:, 5,44, 9) = (/ & - & 0.89487e-01,0.37611e+00,0.44177e+00,0.43843e+00,0.21076e+00 /) - kbo(:, 1,45, 9) = (/ & - & 0.30099e-01,0.15014e+00,0.18399e+00,0.18651e+00,0.87081e-01 /) - kbo(:, 2,45, 9) = (/ & - & 0.38792e-01,0.18842e+00,0.23006e+00,0.23134e+00,0.10857e+00 /) - kbo(:, 3,45, 9) = (/ & - & 0.49706e-01,0.23455e+00,0.28377e+00,0.28337e+00,0.13385e+00 /) - kbo(:, 4,45, 9) = (/ & - & 0.63416e-01,0.28880e+00,0.34526e+00,0.34365e+00,0.16313e+00 /) - kbo(:, 5,45, 9) = (/ & - & 0.80320e-01,0.35087e+00,0.41430e+00,0.41165e+00,0.19641e+00 /) - kbo(:, 1,46, 9) = (/ & - & 0.25615e-01,0.13501e+00,0.16621e+00,0.16909e+00,0.77761e-01 /) - kbo(:, 2,46, 9) = (/ & - & 0.33396e-01,0.17087e+00,0.20986e+00,0.21193e+00,0.98069e-01 /) - kbo(:, 3,46, 9) = (/ & - & 0.43320e-01,0.21451e+00,0.26120e+00,0.26156e+00,0.12212e+00 /) - kbo(:, 4,46, 9) = (/ & - & 0.55857e-01,0.26606e+00,0.32018e+00,0.31908e+00,0.15012e+00 /) - kbo(:, 5,46, 9) = (/ & - & 0.71564e-01,0.32546e+00,0.38657e+00,0.38454e+00,0.18211e+00 /) - kbo(:, 1,47, 9) = (/ & - & 0.21470e-01,0.11984e+00,0.14813e+00,0.15126e+00,0.68564e-01 /) - kbo(:, 2,47, 9) = (/ & - & 0.28327e-01,0.15313e+00,0.18908e+00,0.19182e+00,0.87445e-01 /) - kbo(:, 3,47, 9) = (/ & - & 0.37186e-01,0.19381e+00,0.23756e+00,0.23882e+00,0.11016e+00 /) - kbo(:, 4,47, 9) = (/ & - & 0.48514e-01,0.24239e+00,0.29373e+00,0.29331e+00,0.13670e+00 /) - kbo(:, 5,47, 9) = (/ & - & 0.62915e-01,0.29879e+00,0.35729e+00,0.35580e+00,0.16718e+00 /) - kbo(:, 1,48, 9) = (/ & - & 0.17915e-01,0.10594e+00,0.13153e+00,0.13471e+00,0.60247e-01 /) - kbo(:, 2,48, 9) = (/ & - & 0.23922e-01,0.13687e+00,0.16982e+00,0.17297e+00,0.77702e-01 /) - kbo(:, 3,48, 9) = (/ & - & 0.31789e-01,0.17464e+00,0.21543e+00,0.21754e+00,0.99032e-01 /) - kbo(:, 4,48, 9) = (/ & - & 0.41975e-01,0.22024e+00,0.26872e+00,0.26906e+00,0.12414e+00 /) - kbo(:, 5,48, 9) = (/ & - & 0.55099e-01,0.27366e+00,0.32950e+00,0.32848e+00,0.15313e+00 /) - kbo(:, 1,49, 9) = (/ & - & 0.14883e-01,0.93224e-01,0.11635e+00,0.11939e+00,0.52749e-01 /) - kbo(:, 2,49, 9) = (/ & - & 0.20112e-01,0.12194e+00,0.15191e+00,0.15532e+00,0.68811e-01 /) - kbo(:, 3,49, 9) = (/ & - & 0.27052e-01,0.15700e+00,0.19473e+00,0.19754e+00,0.88692e-01 /) - kbo(:, 4,49, 9) = (/ & - & 0.36170e-01,0.19958e+00,0.24512e+00,0.24626e+00,0.11239e+00 /) - kbo(:, 5,49, 9) = (/ & - & 0.48053e-01,0.24998e+00,0.30305e+00,0.30260e+00,0.13992e+00 /) - kbo(:, 1,50, 9) = (/ & - & 0.12401e-01,0.82224e-01,0.10323e+00,0.10603e+00,0.46388e-01 /) - kbo(:, 2,50, 9) = (/ & - & 0.16961e-01,0.10896e+00,0.13629e+00,0.13978e+00,0.61130e-01 /) - kbo(:, 3,50, 9) = (/ & - & 0.23097e-01,0.14168e+00,0.17654e+00,0.17982e+00,0.79649e-01 /) - kbo(:, 4,50, 9) = (/ & - & 0.31266e-01,0.18143e+00,0.22418e+00,0.22611e+00,0.10201e+00 /) - kbo(:, 5,50, 9) = (/ & - & 0.42049e-01,0.22900e+00,0.27939e+00,0.27959e+00,0.12818e+00 /) - kbo(:, 1,51, 9) = (/ & - & 0.10311e-01,0.72407e-01,0.91543e-01,0.94015e-01,0.40739e-01 /) - kbo(:, 2,51, 9) = (/ & - & 0.14299e-01,0.97301e-01,0.12223e+00,0.12566e+00,0.54336e-01 /) - kbo(:, 3,51, 9) = (/ & - & 0.19709e-01,0.12788e+00,0.16001e+00,0.16354e+00,0.71514e-01 /) - kbo(:, 4,51, 9) = (/ & - & 0.27010e-01,0.16504e+00,0.20502e+00,0.20766e+00,0.92576e-01 /) - kbo(:, 5,51, 9) = (/ & - & 0.36820e-01,0.20996e+00,0.25769e+00,0.25854e+00,0.11743e+00 /) - kbo(:, 1,52, 9) = (/ & - & 0.85238e-02,0.63439e-01,0.80796e-01,0.82950e-01,0.35726e-01 /) - kbo(:, 2,52, 9) = (/ & - & 0.12004e-01,0.86535e-01,0.10929e+00,0.11252e+00,0.48201e-01 /) - kbo(:, 3,52, 9) = (/ & - & 0.16756e-01,0.11511e+00,0.14456e+00,0.14824e+00,0.64036e-01 /) - kbo(:, 4,52, 9) = (/ & - & 0.23247e-01,0.14984e+00,0.18701e+00,0.19020e+00,0.83745e-01 /) - kbo(:, 5,52, 9) = (/ & - & 0.32110e-01,0.19199e+00,0.23699e+00,0.23857e+00,0.10729e+00 /) - kbo(:, 1,53, 9) = (/ & - & 0.70021e-02,0.55279e-01,0.70908e-01,0.72826e-01,0.31267e-01 /) - kbo(:, 2,53, 9) = (/ & - & 0.10022e-01,0.76605e-01,0.97337e-01,0.10026e+00,0.42555e-01 /) - kbo(:, 3,53, 9) = (/ & - & 0.14186e-01,0.10324e+00,0.13015e+00,0.13384e+00,0.57176e-01 /) - kbo(:, 4,53, 9) = (/ & - & 0.19924e-01,0.13568e+00,0.17006e+00,0.17360e+00,0.75508e-01 /) - kbo(:, 5,53, 9) = (/ & - & 0.27873e-01,0.17508e+00,0.21734e+00,0.21965e+00,0.97730e-01 /) - kbo(:, 1,54, 9) = (/ & - & 0.57827e-02,0.48416e-01,0.62508e-01,0.64310e-01,0.27618e-01 /) - kbo(:, 2,54, 9) = (/ & - & 0.84043e-02,0.68151e-01,0.87167e-01,0.89761e-01,0.37874e-01 /) - kbo(:, 3,54, 9) = (/ & - & 0.12088e-01,0.93069e-01,0.11782e+00,0.12138e+00,0.51418e-01 /) - kbo(:, 4,54, 9) = (/ & - & 0.17188e-01,0.12356e+00,0.15542e+00,0.15914e+00,0.68446e-01 /) - kbo(:, 5,54, 9) = (/ & - & 0.24356e-01,0.16057e+00,0.20027e+00,0.20317e+00,0.89427e-01 /) - kbo(:, 1,55, 9) = (/ & - & 0.47829e-02,0.42445e-01,0.55108e-01,0.56879e-01,0.24415e-01 /) - kbo(:, 2,55, 9) = (/ & - & 0.70515e-02,0.60688e-01,0.78130e-01,0.80430e-01,0.33849e-01 /) - kbo(:, 3,55, 9) = (/ & - & 0.10307e-01,0.83954e-01,0.10678e+00,0.11014e+00,0.46263e-01 /) - kbo(:, 4,55, 9) = (/ & - & 0.14854e-01,0.11267e+00,0.14216e+00,0.14598e+00,0.62158e-01 /) - kbo(:, 5,55, 9) = (/ & - & 0.21317e-01,0.14754e+00,0.18474e+00,0.18809e+00,0.81914e-01 /) - kbo(:, 1,56, 9) = (/ & - & 0.39349e-02,0.37013e-01,0.48295e-01,0.50091e-01,0.21529e-01 /) - kbo(:, 2,56, 9) = (/ & - & 0.58808e-02,0.53785e-01,0.69695e-01,0.71776e-01,0.30144e-01 /) - kbo(:, 3,56, 9) = (/ & - & 0.87470e-02,0.75476e-01,0.96519e-01,0.99590e-01,0.41605e-01 /) - kbo(:, 4,56, 9) = (/ & - & 0.12799e-01,0.10247e+00,0.12972e+00,0.13354e+00,0.56396e-01 /) - kbo(:, 5,56, 9) = (/ & - & 0.18597e-01,0.13533e+00,0.17007e+00,0.17370e+00,0.74854e-01 /) - kbo(:, 1,57, 9) = (/ & - & 0.32237e-02,0.32103e-01,0.42068e-01,0.43893e-01,0.18889e-01 /) - kbo(:, 2,57, 9) = (/ & - & 0.48776e-02,0.47453e-01,0.61873e-01,0.63812e-01,0.26899e-01 /) - kbo(:, 3,57, 9) = (/ & - & 0.73816e-02,0.67586e-01,0.86956e-01,0.89701e-01,0.37405e-01 /) - kbo(:, 4,57, 9) = (/ & - & 0.10984e-01,0.92907e-01,0.11806e+00,0.12175e+00,0.51002e-01 /) - kbo(:, 5,57, 9) = (/ & - & 0.16168e-01,0.12385e+00,0.15617e+00,0.15996e+00,0.68253e-01 /) - kbo(:, 1,58, 9) = (/ & - & 0.26462e-02,0.27879e-01,0.36685e-01,0.38484e-01,0.16601e-01 /) - kbo(:, 2,58, 9) = (/ & - & 0.40522e-02,0.41929e-01,0.54967e-01,0.56858e-01,0.24050e-01 /) - kbo(:, 3,58, 9) = (/ & - & 0.62364e-02,0.60609e-01,0.78458e-01,0.80919e-01,0.33657e-01 /) - kbo(:, 4,58, 9) = (/ & - & 0.94512e-02,0.84383e-01,0.10769e+00,0.11117e+00,0.46338e-01 /) - kbo(:, 5,58, 9) = (/ & - & 0.14101e-01,0.11363e+00,0.14367e+00,0.14755e+00,0.62487e-01 /) - kbo(:, 1,59, 9) = (/ & - & 0.23375e-02,0.26104e-01,0.34483e-01,0.36273e-01,0.15643e-01 /) - kbo(:, 2,59, 9) = (/ & - & 0.36353e-02,0.39676e-01,0.52191e-01,0.54098e-01,0.22879e-01 /) - kbo(:, 3,59, 9) = (/ & - & 0.56781e-02,0.57810e-01,0.75085e-01,0.77452e-01,0.32253e-01 /) - kbo(:, 4,59, 9) = (/ & - & 0.87345e-02,0.80998e-01,0.10362e+00,0.10701e+00,0.44587e-01 /) - kbo(:, 5,59, 9) = (/ & - & 0.13202e-01,0.10960e+00,0.13878e+00,0.14268e+00,0.60173e-01 /) - kbo(:, 1,13,10) = (/ & - & 0.68082e+01,0.10647e+02,0.12044e+02,0.12092e+02,0.85097e+01 /) - kbo(:, 2,13,10) = (/ & - & 0.67019e+01,0.10585e+02,0.12055e+02,0.12198e+02,0.87119e+01 /) - kbo(:, 3,13,10) = (/ & - & 0.67137e+01,0.10536e+02,0.12063e+02,0.12312e+02,0.88714e+01 /) - kbo(:, 4,13,10) = (/ & - & 0.68713e+01,0.10489e+02,0.12087e+02,0.12413e+02,0.90170e+01 /) - kbo(:, 5,13,10) = (/ & - & 0.71185e+01,0.10479e+02,0.12121e+02,0.12479e+02,0.91853e+01 /) - kbo(:, 1,14,10) = (/ & - & 0.58410e+01,0.94018e+01,0.10846e+02,0.11035e+02,0.76674e+01 /) - kbo(:, 2,14,10) = (/ & - & 0.58467e+01,0.93735e+01,0.10875e+02,0.11156e+02,0.78256e+01 /) - kbo(:, 3,14,10) = (/ & - & 0.59984e+01,0.93438e+01,0.10908e+02,0.11271e+02,0.79426e+01 /) - kbo(:, 4,14,10) = (/ & - & 0.62373e+01,0.93563e+01,0.10953e+02,0.11364e+02,0.81071e+01 /) - kbo(:, 5,14,10) = (/ & - & 0.65135e+01,0.94809e+01,0.10997e+02,0.11429e+02,0.82861e+01 /) - kbo(:, 1,15,10) = (/ & - & 0.50343e+01,0.83265e+01,0.97137e+01,0.99946e+01,0.69930e+01 /) - kbo(:, 2,15,10) = (/ & - & 0.51660e+01,0.83107e+01,0.97594e+01,0.10123e+02,0.71240e+01 /) - kbo(:, 3,15,10) = (/ & - & 0.53903e+01,0.83316e+01,0.98216e+01,0.10239e+02,0.72628e+01 /) - kbo(:, 4,15,10) = (/ & - & 0.56415e+01,0.84645e+01,0.98856e+01,0.10324e+02,0.74229e+01 /) - kbo(:, 5,15,10) = (/ & - & 0.58842e+01,0.87055e+01,0.99631e+01,0.10400e+02,0.75908e+01 /) - kbo(:, 1,16,10) = (/ & - & 0.44015e+01,0.74103e+01,0.86530e+01,0.90071e+01,0.63301e+01 /) - kbo(:, 2,16,10) = (/ & - & 0.45955e+01,0.74391e+01,0.87237e+01,0.91359e+01,0.64715e+01 /) - kbo(:, 3,16,10) = (/ & - & 0.48140e+01,0.75662e+01,0.88065e+01,0.92379e+01,0.66426e+01 /) - kbo(:, 4,16,10) = (/ & - & 0.50318e+01,0.77981e+01,0.89101e+01,0.93283e+01,0.68095e+01 /) - kbo(:, 5,16,10) = (/ & - & 0.52436e+01,0.80914e+01,0.90522e+01,0.94292e+01,0.69717e+01 /) - kbo(:, 1,17,10) = (/ & - & 0.38938e+01,0.65976e+01,0.77151e+01,0.80672e+01,0.57119e+01 /) - kbo(:, 2,17,10) = (/ & - & 0.40781e+01,0.67171e+01,0.78068e+01,0.81879e+01,0.58706e+01 /) - kbo(:, 3,17,10) = (/ & - & 0.42641e+01,0.69435e+01,0.79191e+01,0.82934e+01,0.60296e+01 /) - kbo(:, 4,17,10) = (/ & - & 0.44480e+01,0.72305e+01,0.80762e+01,0.84106e+01,0.62012e+01 /) - kbo(:, 5,17,10) = (/ & - & 0.46308e+01,0.75237e+01,0.83037e+01,0.85418e+01,0.63775e+01 /) - kbo(:, 1,18,10) = (/ & - & 0.34407e+01,0.58963e+01,0.69001e+01,0.71891e+01,0.51366e+01 /) - kbo(:, 2,18,10) = (/ & - & 0.35988e+01,0.61068e+01,0.70120e+01,0.73051e+01,0.52912e+01 /) - kbo(:, 3,18,10) = (/ & - & 0.37577e+01,0.63853e+01,0.71752e+01,0.74336e+01,0.54376e+01 /) - kbo(:, 4,18,10) = (/ & - & 0.39161e+01,0.66726e+01,0.74020e+01,0.75773e+01,0.56097e+01 /) - kbo(:, 5,18,10) = (/ & - & 0.40711e+01,0.69480e+01,0.76793e+01,0.77395e+01,0.57994e+01 /) - kbo(:, 1,19,10) = (/ & - & 0.30222e+01,0.53136e+01,0.61695e+01,0.63815e+01,0.46248e+01 /) - kbo(:, 2,19,10) = (/ & - & 0.31568e+01,0.55745e+01,0.63303e+01,0.65186e+01,0.47653e+01 /) - kbo(:, 3,19,10) = (/ & - & 0.32936e+01,0.58515e+01,0.65536e+01,0.66691e+01,0.49110e+01 /) - kbo(:, 4,19,10) = (/ & - & 0.34320e+01,0.61200e+01,0.68298e+01,0.68431e+01,0.50671e+01 /) - kbo(:, 5,19,10) = (/ & - & 0.35717e+01,0.63810e+01,0.71341e+01,0.70485e+01,0.52482e+01 /) - kbo(:, 1,20,10) = (/ & - & 0.26646e+01,0.48341e+01,0.55294e+01,0.56818e+01,0.41697e+01 /) - kbo(:, 2,20,10) = (/ & - & 0.27751e+01,0.50933e+01,0.57470e+01,0.58376e+01,0.43064e+01 /) - kbo(:, 3,20,10) = (/ & - & 0.28895e+01,0.53454e+01,0.60203e+01,0.60166e+01,0.44569e+01 /) - kbo(:, 4,20,10) = (/ & - & 0.30071e+01,0.55962e+01,0.63194e+01,0.62235e+01,0.46038e+01 /) - kbo(:, 5,20,10) = (/ & - & 0.31278e+01,0.58505e+01,0.66184e+01,0.64780e+01,0.47569e+01 /) - kbo(:, 1,21,10) = (/ & - & 0.23601e+01,0.44020e+01,0.49905e+01,0.50776e+01,0.37561e+01 /) - kbo(:, 2,21,10) = (/ & - & 0.24527e+01,0.46408e+01,0.52514e+01,0.52563e+01,0.39021e+01 /) - kbo(:, 3,21,10) = (/ & - & 0.25482e+01,0.48775e+01,0.55424e+01,0.54642e+01,0.40531e+01 /) - kbo(:, 4,21,10) = (/ & - & 0.26469e+01,0.51183e+01,0.58389e+01,0.57185e+01,0.42025e+01 /) - kbo(:, 5,21,10) = (/ & - & 0.27509e+01,0.53673e+01,0.61341e+01,0.60025e+01,0.43477e+01 /) - kbo(:, 1,22,10) = (/ & - & 0.20933e+01,0.40130e+01,0.45530e+01,0.45722e+01,0.33997e+01 /) - kbo(:, 2,22,10) = (/ & - & 0.21774e+01,0.42389e+01,0.48339e+01,0.47801e+01,0.35503e+01 /) - kbo(:, 3,22,10) = (/ & - & 0.22636e+01,0.44688e+01,0.51214e+01,0.50286e+01,0.36916e+01 /) - kbo(:, 4,22,10) = (/ & - & 0.23497e+01,0.47085e+01,0.54112e+01,0.53109e+01,0.38464e+01 /) - kbo(:, 5,22,10) = (/ & - & 0.24400e+01,0.49544e+01,0.57104e+01,0.56159e+01,0.40026e+01 /) - kbo(:, 1,23,10) = (/ & - & 0.18483e+01,0.36572e+01,0.41816e+01,0.41476e+01,0.30773e+01 /) - kbo(:, 2,23,10) = (/ & - & 0.19296e+01,0.38779e+01,0.44582e+01,0.43906e+01,0.32324e+01 /) - kbo(:, 3,23,10) = (/ & - & 0.20105e+01,0.41090e+01,0.47398e+01,0.46676e+01,0.33790e+01 /) - kbo(:, 4,23,10) = (/ & - & 0.20922e+01,0.43460e+01,0.50319e+01,0.49689e+01,0.35381e+01 /) - kbo(:, 5,23,10) = (/ & - & 0.21812e+01,0.45942e+01,0.53379e+01,0.52907e+01,0.36872e+01 /) - kbo(:, 1,24,10) = (/ & - & 0.16291e+01,0.33480e+01,0.38514e+01,0.38051e+01,0.27880e+01 /) - kbo(:, 2,24,10) = (/ & - & 0.17053e+01,0.35635e+01,0.41240e+01,0.40716e+01,0.29407e+01 /) - kbo(:, 3,24,10) = (/ & - & 0.17841e+01,0.37930e+01,0.44076e+01,0.43668e+01,0.31035e+01 /) - kbo(:, 4,24,10) = (/ & - & 0.18670e+01,0.40349e+01,0.47044e+01,0.46831e+01,0.32549e+01 /) - kbo(:, 5,24,10) = (/ & - & 0.19687e+01,0.42837e+01,0.50178e+01,0.50123e+01,0.34093e+01 /) - kbo(:, 1,25,10) = (/ & - & 0.14342e+01,0.30870e+01,0.35616e+01,0.35262e+01,0.25309e+01 /) - kbo(:, 2,25,10) = (/ & - & 0.15073e+01,0.32988e+01,0.38348e+01,0.38083e+01,0.26935e+01 /) - kbo(:, 3,25,10) = (/ & - & 0.15855e+01,0.35267e+01,0.41227e+01,0.41156e+01,0.28544e+01 /) - kbo(:, 4,25,10) = (/ & - & 0.16765e+01,0.37674e+01,0.44270e+01,0.44387e+01,0.30112e+01 /) - kbo(:, 5,25,10) = (/ & - & 0.17969e+01,0.40179e+01,0.47482e+01,0.47807e+01,0.31986e+01 /) - kbo(:, 1,26,10) = (/ & - & 0.12644e+01,0.28734e+01,0.33145e+01,0.33023e+01,0.23207e+01 /) - kbo(:, 2,26,10) = (/ & - & 0.13357e+01,0.30796e+01,0.35932e+01,0.35956e+01,0.24777e+01 /) - kbo(:, 3,26,10) = (/ & - & 0.14174e+01,0.33035e+01,0.38863e+01,0.39081e+01,0.26420e+01 /) - kbo(:, 4,26,10) = (/ & - & 0.15234e+01,0.35430e+01,0.41997e+01,0.42431e+01,0.28241e+01 /) - kbo(:, 5,26,10) = (/ & - & 0.16603e+01,0.37959e+01,0.45341e+01,0.45996e+01,0.30401e+01 /) - kbo(:, 1,27,10) = (/ & - & 0.11180e+01,0.26923e+01,0.31092e+01,0.31181e+01,0.21320e+01 /) - kbo(:, 2,27,10) = (/ & - & 0.11893e+01,0.28981e+01,0.33903e+01,0.34176e+01,0.22961e+01 /) - kbo(:, 3,27,10) = (/ & - & 0.12805e+01,0.31184e+01,0.36930e+01,0.37398e+01,0.24775e+01 /) - kbo(:, 4,27,10) = (/ & - & 0.14017e+01,0.33577e+01,0.40190e+01,0.40909e+01,0.26920e+01 /) - kbo(:, 5,27,10) = (/ & - & 0.15494e+01,0.36148e+01,0.43685e+01,0.44626e+01,0.29161e+01 /) - kbo(:, 1,28,10) = (/ & - & 0.99411e+00,0.25422e+01,0.29403e+01,0.29678e+01,0.19736e+01 /) - kbo(:, 2,28,10) = (/ & - & 0.10693e+01,0.27468e+01,0.32278e+01,0.32747e+01,0.21580e+01 /) - kbo(:, 3,28,10) = (/ & - & 0.11727e+01,0.29677e+01,0.35410e+01,0.36136e+01,0.23718e+01 /) - kbo(:, 4,28,10) = (/ & - & 0.13040e+01,0.32092e+01,0.38816e+01,0.39808e+01,0.25959e+01 /) - kbo(:, 5,28,10) = (/ & - & 0.14604e+01,0.34721e+01,0.42472e+01,0.43708e+01,0.28373e+01 /) - kbo(:, 1,29,10) = (/ & - & 0.89294e+00,0.24188e+01,0.28058e+01,0.28515e+01,0.18636e+01 /) - kbo(:, 2,29,10) = (/ & - & 0.97544e+00,0.26259e+01,0.31039e+01,0.31712e+01,0.20699e+01 /) - kbo(:, 3,29,10) = (/ & - & 0.10880e+01,0.28493e+01,0.34305e+01,0.35278e+01,0.22886e+01 /) - kbo(:, 4,29,10) = (/ & - & 0.12277e+01,0.30947e+01,0.37862e+01,0.39124e+01,0.25256e+01 /) - kbo(:, 5,29,10) = (/ & - & 0.13896e+01,0.33676e+01,0.41685e+01,0.43225e+01,0.27864e+01 /) - kbo(:, 1,30,10) = (/ & - & 0.81230e+00,0.23190e+01,0.27059e+01,0.27666e+01,0.17929e+01 /) - kbo(:, 2,30,10) = (/ & - & 0.90285e+00,0.25306e+01,0.30146e+01,0.31051e+01,0.20049e+01 /) - kbo(:, 3,30,10) = (/ & - & 0.10223e+01,0.27572e+01,0.33560e+01,0.34779e+01,0.22359e+01 /) - kbo(:, 4,30,10) = (/ & - & 0.11675e+01,0.30101e+01,0.37284e+01,0.38827e+01,0.24866e+01 /) - kbo(:, 5,30,10) = (/ & - & 0.13337e+01,0.32968e+01,0.41265e+01,0.43099e+01,0.27369e+01 /) - kbo(:, 1,31,10) = (/ & - & 0.75110e+00,0.22419e+01,0.26379e+01,0.27157e+01,0.17433e+01 /) - kbo(:, 2,31,10) = (/ & - & 0.84809e+00,0.24579e+01,0.29592e+01,0.30730e+01,0.19665e+01 /) - kbo(:, 3,31,10) = (/ & - & 0.97252e+00,0.26914e+01,0.33168e+01,0.34645e+01,0.22008e+01 /) - kbo(:, 4,31,10) = (/ & - & 0.11219e+01,0.29550e+01,0.37069e+01,0.38878e+01,0.24456e+01 /) - kbo(:, 5,31,10) = (/ & - & 0.12926e+01,0.32597e+01,0.41224e+01,0.43304e+01,0.27059e+01 /) - kbo(:, 1,32,10) = (/ & - & 0.70499e+00,0.21846e+01,0.25985e+01,0.26966e+01,0.17143e+01 /) - kbo(:, 2,32,10) = (/ & - & 0.80768e+00,0.24067e+01,0.29356e+01,0.30726e+01,0.19337e+01 /) - kbo(:, 3,32,10) = (/ & - & 0.93561e+00,0.26499e+01,0.33107e+01,0.34825e+01,0.21698e+01 /) - kbo(:, 4,32,10) = (/ & - & 0.10894e+01,0.29281e+01,0.37179e+01,0.39220e+01,0.24264e+01 /) - kbo(:, 5,32,10) = (/ & - & 0.12637e+01,0.32525e+01,0.41500e+01,0.43764e+01,0.26992e+01 /) - kbo(:, 1,33,10) = (/ & - & 0.67118e+00,0.21457e+01,0.25854e+01,0.27057e+01,0.16861e+01 /) - kbo(:, 2,33,10) = (/ & - & 0.77795e+00,0.23758e+01,0.29404e+01,0.30997e+01,0.19111e+01 /) - kbo(:, 3,33,10) = (/ & - & 0.91001e+00,0.26325e+01,0.33337e+01,0.35269e+01,0.21600e+01 /) - kbo(:, 4,33,10) = (/ & - & 0.10674e+01,0.29280e+01,0.37566e+01,0.39787e+01,0.24291e+01 /) - kbo(:, 5,33,10) = (/ & - & 0.12452e+01,0.32737e+01,0.42022e+01,0.44428e+01,0.27130e+01 /) - kbo(:, 1,34,10) = (/ & - & 0.64347e+00,0.21163e+01,0.25854e+01,0.27260e+01,0.16632e+01 /) - kbo(:, 2,34,10) = (/ & - & 0.75313e+00,0.23563e+01,0.29579e+01,0.31342e+01,0.18999e+01 /) - kbo(:, 3,34,10) = (/ & - & 0.88833e+00,0.26269e+01,0.33662e+01,0.35749e+01,0.21605e+01 /) - kbo(:, 4,34,10) = (/ & - & 0.10487e+01,0.29401e+01,0.38003e+01,0.40358e+01,0.24405e+01 /) - kbo(:, 5,34,10) = (/ & - & 0.12301e+01,0.33056e+01,0.42553e+01,0.45073e+01,0.27333e+01 /) - kbo(:, 1,35,10) = (/ & - & 0.61333e+00,0.20804e+01,0.25725e+01,0.27255e+01,0.16337e+01 /) - kbo(:, 2,35,10) = (/ & - & 0.72416e+00,0.23301e+01,0.29566e+01,0.31440e+01,0.18805e+01 /) - kbo(:, 3,35,10) = (/ & - & 0.85987e+00,0.26111e+01,0.33740e+01,0.35934e+01,0.21502e+01 /) - kbo(:, 4,35,10) = (/ & - & 0.10212e+01,0.29378e+01,0.38159e+01,0.40603e+01,0.24378e+01 /) - kbo(:, 5,35,10) = (/ & - & 0.12063e+01,0.33167e+01,0.42768e+01,0.45362e+01,0.27369e+01 /) - kbo(:, 1,36,10) = (/ & - & 0.57858e+00,0.20318e+01,0.25343e+01,0.26932e+01,0.15911e+01 /) - kbo(:, 2,36,10) = (/ & - & 0.68823e+00,0.22888e+01,0.29242e+01,0.31171e+01,0.18445e+01 /) - kbo(:, 3,36,10) = (/ & - & 0.82172e+00,0.25765e+01,0.33460e+01,0.35706e+01,0.21205e+01 /) - kbo(:, 4,36,10) = (/ & - & 0.98227e+00,0.29099e+01,0.37920e+01,0.40410e+01,0.24128e+01 /) - kbo(:, 5,36,10) = (/ & - & 0.11693e+01,0.32947e+01,0.42558e+01,0.45198e+01,0.27160e+01 /) - kbo(:, 1,37,10) = (/ & - & 0.53405e+00,0.19558e+01,0.24506e+01,0.26071e+01,0.15218e+01 /) - kbo(:, 2,37,10) = (/ & - & 0.63968e+00,0.22170e+01,0.28388e+01,0.30310e+01,0.17770e+01 /) - kbo(:, 3,37,10) = (/ & - & 0.76779e+00,0.25049e+01,0.32599e+01,0.34842e+01,0.20552e+01 /) - kbo(:, 4,37,10) = (/ & - & 0.92384e+00,0.28358e+01,0.37058e+01,0.39557e+01,0.23490e+01 /) - kbo(:, 5,37,10) = (/ & - & 0.11094e+01,0.32175e+01,0.41691e+01,0.44348e+01,0.26544e+01 /) - kbo(:, 1,38,10) = (/ & - & 0.49328e+00,0.18861e+01,0.23724e+01,0.25236e+01,0.14577e+01 /) - kbo(:, 2,38,10) = (/ & - & 0.59575e+00,0.21506e+01,0.27570e+01,0.29471e+01,0.17138e+01 /) - kbo(:, 3,38,10) = (/ & - & 0.71877e+00,0.24381e+01,0.31760e+01,0.33985e+01,0.19934e+01 /) - kbo(:, 4,38,10) = (/ & - & 0.87044e+00,0.27651e+01,0.36203e+01,0.38701e+01,0.22879e+01 /) - kbo(:, 5,38,10) = (/ & - & 0.10541e+01,0.31424e+01,0.40835e+01,0.43497e+01,0.25942e+01 /) - kbo(:, 1,39,10) = (/ & - & 0.45633e+00,0.18232e+01,0.23004e+01,0.24453e+01,0.13998e+01 /) - kbo(:, 2,39,10) = (/ & - & 0.55664e+00,0.20902e+01,0.26810e+01,0.28682e+01,0.16563e+01 /) - kbo(:, 3,39,10) = (/ & - & 0.67511e+00,0.23775e+01,0.30973e+01,0.33174e+01,0.19363e+01 /) - kbo(:, 4,39,10) = (/ & - & 0.82312e+00,0.27002e+01,0.35399e+01,0.37881e+01,0.22310e+01 /) - kbo(:, 5,39,10) = (/ & - & 0.10047e+01,0.30719e+01,0.40016e+01,0.42681e+01,0.25376e+01 /) - kbo(:, 1,40,10) = (/ & - & 0.41369e+00,0.17392e+01,0.21979e+01,0.23287e+01,0.13226e+01 /) - kbo(:, 2,40,10) = (/ & - & 0.51051e+00,0.20064e+01,0.25693e+01,0.27492e+01,0.15756e+01 /) - kbo(:, 3,40,10) = (/ & - & 0.62337e+00,0.22909e+01,0.29791e+01,0.31928e+01,0.18532e+01 /) - kbo(:, 4,40,10) = (/ & - & 0.76463e+00,0.26052e+01,0.34168e+01,0.36603e+01,0.21464e+01 /) - kbo(:, 5,40,10) = (/ & - & 0.94032e+00,0.29656e+01,0.38751e+01,0.41396e+01,0.24517e+01 /) - kbo(:, 1,41,10) = (/ & - & 0.37354e+00,0.16561e+01,0.20963e+01,0.22111e+01,0.12469e+01 /) - kbo(:, 2,41,10) = (/ & - & 0.46665e+00,0.19239e+01,0.24587e+01,0.26289e+01,0.14959e+01 /) - kbo(:, 3,41,10) = (/ & - & 0.57545e+00,0.22047e+01,0.28597e+01,0.30659e+01,0.17694e+01 /) - kbo(:, 4,41,10) = (/ & - & 0.70985e+00,0.25106e+01,0.32912e+01,0.35291e+01,0.20606e+01 /) - kbo(:, 5,41,10) = (/ & - & 0.87840e+00,0.28591e+01,0.37457e+01,0.40073e+01,0.23640e+01 /) - kbo(:, 1,42,10) = (/ & - & 0.33676e+00,0.15772e+01,0.19999e+01,0.20973e+01,0.11755e+01 /) - kbo(:, 2,42,10) = (/ & - & 0.42603e+00,0.18429e+01,0.23518e+01,0.25105e+01,0.14196e+01 /) - kbo(:, 3,42,10) = (/ & - & 0.53169e+00,0.21211e+01,0.27440e+01,0.29424e+01,0.16886e+01 /) - kbo(:, 4,42,10) = (/ & - & 0.65992e+00,0.24200e+01,0.31691e+01,0.34004e+01,0.19770e+01 /) - kbo(:, 5,42,10) = (/ & - & 0.82123e+00,0.27572e+01,0.36189e+01,0.38764e+01,0.22780e+01 /) - kbo(:, 1,43,10) = (/ & - & 0.29880e+00,0.14855e+01,0.18883e+01,0.19649e+01,0.10947e+01 /) - kbo(:, 2,43,10) = (/ & - & 0.38323e+00,0.17495e+01,0.22289e+01,0.23704e+01,0.13324e+01 /) - kbo(:, 3,43,10) = (/ & - & 0.48519e+00,0.20243e+01,0.26093e+01,0.27970e+01,0.15948e+01 /) - kbo(:, 4,43,10) = (/ & - & 0.60690e+00,0.23164e+01,0.30260e+01,0.32477e+01,0.18788e+01 /) - kbo(:, 5,43,10) = (/ & - & 0.75876e+00,0.26404e+01,0.34692e+01,0.37199e+01,0.21767e+01 /) - kbo(:, 1,44,10) = (/ & - & 0.26234e+00,0.13896e+01,0.17735e+01,0.18283e+01,0.10125e+01 /) - kbo(:, 2,44,10) = (/ & - & 0.34133e+00,0.16516e+01,0.21029e+01,0.22231e+01,0.12426e+01 /) - kbo(:, 3,44,10) = (/ & - & 0.43896e+00,0.19234e+01,0.24698e+01,0.26446e+01,0.14975e+01 /) - kbo(:, 4,44,10) = (/ & - & 0.55556e+00,0.22104e+01,0.28764e+01,0.30872e+01,0.17758e+01 /) - kbo(:, 5,44,10) = (/ & - & 0.69720e+00,0.25211e+01,0.33108e+01,0.35530e+01,0.20699e+01 /) - kbo(:, 1,45,10) = (/ & - & 0.22932e+00,0.12967e+01,0.16617e+01,0.16976e+01,0.93402e+00 /) - kbo(:, 2,45,10) = (/ & - & 0.30290e+00,0.15560e+01,0.19824e+01,0.20804e+01,0.11566e+01 /) - kbo(:, 3,45,10) = (/ & - & 0.39581e+00,0.18251e+01,0.23356e+01,0.24949e+01,0.14039e+01 /) - kbo(:, 4,45,10) = (/ & - & 0.50777e+00,0.21068e+01,0.27305e+01,0.29300e+01,0.16755e+01 /) - kbo(:, 5,45,10) = (/ & - & 0.64060e+00,0.24073e+01,0.31565e+01,0.33892e+01,0.19653e+01 /) - kbo(:, 1,46,10) = (/ & - & 0.19825e+00,0.12020e+01,0.15457e+01,0.15662e+01,0.85464e+00 /) - kbo(:, 2,46,10) = (/ & - & 0.26591e+00,0.14563e+01,0.18595e+01,0.19337e+01,0.10694e+01 /) - kbo(:, 3,46,10) = (/ & - & 0.35343e+00,0.17232e+01,0.22000e+01,0.23390e+01,0.13083e+01 /) - kbo(:, 4,46,10) = (/ & - & 0.46053e+00,0.19999e+01,0.25801e+01,0.27669e+01,0.15716e+01 /) - kbo(:, 5,46,10) = (/ & - & 0.58556e+00,0.22922e+01,0.29962e+01,0.32174e+01,0.18560e+01 /) - kbo(:, 1,47,10) = (/ & - & 0.16836e+00,0.11008e+01,0.14194e+01,0.14270e+01,0.77061e+00 /) - kbo(:, 2,47,10) = (/ & - & 0.22922e+00,0.13473e+01,0.17277e+01,0.17767e+01,0.97668e+00 /) - kbo(:, 3,47,10) = (/ & - & 0.31004e+00,0.16106e+01,0.20551e+01,0.21688e+01,0.12060e+01 /) - kbo(:, 4,47,10) = (/ & - & 0.41110e+00,0.18840e+01,0.24189e+01,0.25893e+01,0.14598e+01 /) - kbo(:, 5,47,10) = (/ & - & 0.52932e+00,0.21690e+01,0.28216e+01,0.30298e+01,0.17368e+01 /) - kbo(:, 1,48,10) = (/ & - & 0.14220e+00,0.10041e+01,0.12957e+01,0.12963e+01,0.69114e+00 /) - kbo(:, 2,48,10) = (/ & - & 0.19626e+00,0.12419e+01,0.15985e+01,0.16273e+01,0.88794e+00 /) - kbo(:, 3,48,10) = (/ & - & 0.27002e+00,0.15006e+01,0.19169e+01,0.20039e+01,0.11083e+01 /) - kbo(:, 4,48,10) = (/ & - & 0.36488e+00,0.17700e+01,0.22644e+01,0.24151e+01,0.13523e+01 /) - kbo(:, 5,48,10) = (/ & - & 0.47701e+00,0.20494e+01,0.26525e+01,0.28466e+01,0.16205e+01 /) - kbo(:, 1,49,10) = (/ & - & 0.11950e+00,0.91234e+00,0.11755e+01,0.11741e+01,0.61611e+00 /) - kbo(:, 2,49,10) = (/ & - & 0.16698e+00,0.11406e+01,0.14723e+01,0.14860e+01,0.80337e+00 /) - kbo(:, 3,49,10) = (/ & - & 0.23352e+00,0.13921e+01,0.17842e+01,0.18450e+01,0.10147e+01 /) - kbo(:, 4,49,10) = (/ & - & 0.32154e+00,0.16580e+01,0.21177e+01,0.22439e+01,0.12490e+01 /) - kbo(:, 5,49,10) = (/ & - & 0.42774e+00,0.19330e+01,0.24891e+01,0.26683e+01,0.15078e+01 /) - kbo(:, 1,50,10) = (/ & - & 0.10087e+00,0.83065e+00,0.10669e+01,0.10674e+01,0.54936e+00 /) - kbo(:, 2,50,10) = (/ & - & 0.14237e+00,0.10490e+01,0.13561e+01,0.13605e+01,0.72778e+00 /) - kbo(:, 3,50,10) = (/ & - & 0.20234e+00,0.12926e+01,0.16630e+01,0.17021e+01,0.93055e+00 /) - kbo(:, 4,50,10) = (/ & - & 0.28362e+00,0.15546e+01,0.19861e+01,0.20879e+01,0.11563e+01 /) - kbo(:, 5,50,10) = (/ & - & 0.38392e+00,0.18265e+01,0.23423e+01,0.25044e+01,0.14058e+01 /) - kbo(:, 1,51,10) = (/ & - & 0.85305e-01,0.75516e+00,0.96600e+00,0.96989e+00,0.48900e+00 /) - kbo(:, 2,51,10) = (/ & - & 0.12119e+00,0.96396e+00,0.12458e+01,0.12458e+01,0.65803e+00 /) - kbo(:, 3,51,10) = (/ & - & 0.17492e+00,0.11993e+01,0.15474e+01,0.15706e+01,0.85222e+00 /) - kbo(:, 4,51,10) = (/ & - & 0.24953e+00,0.14559e+01,0.18635e+01,0.19410e+01,0.10697e+01 /) - kbo(:, 5,51,10) = (/ & - & 0.34420e+00,0.17250e+01,0.22062e+01,0.23483e+01,0.13105e+01 /) - kbo(:, 1,52,10) = (/ & - & 0.72122e-01,0.68398e+00,0.87088e+00,0.87737e+00,0.43154e+00 /) - kbo(:, 2,52,10) = (/ & - & 0.10277e+00,0.88315e+00,0.11388e+01,0.11383e+01,0.59136e+00 /) - kbo(:, 3,52,10) = (/ & - & 0.15043e+00,0.11094e+01,0.14345e+01,0.14453e+01,0.77736e+00 /) - kbo(:, 4,52,10) = (/ & - & 0.21816e+00,0.13587e+01,0.17451e+01,0.17993e+01,0.98663e+00 /) - kbo(:, 5,52,10) = (/ & - & 0.30639e+00,0.16242e+01,0.20759e+01,0.21951e+01,0.12188e+01 /) - kbo(:, 1,53,10) = (/ & - & 0.60992e-01,0.61681e+00,0.78096e+00,0.78801e+00,0.37771e+00 /) - kbo(:, 2,53,10) = (/ & - & 0.86893e-01,0.80591e+00,0.10354e+01,0.10374e+01,0.52892e+00 /) - kbo(:, 3,53,10) = (/ & - & 0.12844e+00,0.10223e+01,0.13228e+01,0.13263e+01,0.70557e+00 /) - kbo(:, 4,53,10) = (/ & - & 0.18962e+00,0.12639e+01,0.16288e+01,0.16633e+01,0.90648e+00 /) - kbo(:, 5,53,10) = (/ & - & 0.27104e+00,0.15253e+01,0.19505e+01,0.20457e+01,0.11304e+01 /) - kbo(:, 1,54,10) = (/ & - & 0.52146e-01,0.55862e+00,0.70341e+00,0.70953e+00,0.33141e+00 /) - kbo(:, 2,54,10) = (/ & - & 0.74252e-01,0.73817e+00,0.94468e+00,0.94968e+00,0.47420e+00 /) - kbo(:, 3,54,10) = (/ & - & 0.11046e+00,0.94583e+00,0.12229e+01,0.12232e+01,0.64224e+00 /) - kbo(:, 4,54,10) = (/ & - & 0.16584e+00,0.11796e+01,0.15239e+01,0.15447e+01,0.83594e+00 /) - kbo(:, 5,54,10) = (/ & - & 0.24084e+00,0.14356e+01,0.18395e+01,0.19125e+01,0.10521e+01 /) - kbo(:, 1,55,10) = (/ & - & 0.44769e-01,0.50580e+00,0.63367e+00,0.63830e+00,0.29171e+00 /) - kbo(:, 2,55,10) = (/ & - & 0.63801e-01,0.67695e+00,0.86251e+00,0.86950e+00,0.42385e+00 /) - kbo(:, 3,55,10) = (/ & - & 0.95281e-01,0.87561e+00,0.11296e+01,0.11298e+01,0.58465e+00 /) - kbo(:, 4,55,10) = (/ & - & 0.14509e+00,0.11012e+01,0.14250e+01,0.14355e+01,0.77056e+00 /) - kbo(:, 5,55,10) = (/ & - & 0.21402e+00,0.13506e+01,0.17360e+01,0.17888e+01,0.97966e+00 /) - kbo(:, 1,56,10) = (/ & - & 0.38303e-01,0.45495e+00,0.56826e+00,0.57046e+00,0.25591e+00 /) - kbo(:, 2,56,10) = (/ & - & 0.54762e-01,0.61846e+00,0.78411e+00,0.79150e+00,0.37700e+00 /) - kbo(:, 3,56,10) = (/ & - & 0.82009e-01,0.80830e+00,0.10394e+01,0.10417e+01,0.52950e+00 /) - kbo(:, 4,56,10) = (/ & - & 0.12621e+00,0.10253e+01,0.13275e+01,0.13316e+01,0.70721e+00 /) - kbo(:, 5,56,10) = (/ & - & 0.18937e+00,0.12680e+01,0.16344e+01,0.16700e+01,0.90979e+00 /) - kbo(:, 1,57,10) = (/ & - & 0.32632e-01,0.40611e+00,0.50731e+00,0.50659e+00,0.22496e+00 /) - kbo(:, 2,57,10) = (/ & - & 0.47019e-01,0.56304e+00,0.71002e+00,0.71651e+00,0.33305e+00 /) - kbo(:, 3,57,10) = (/ & - & 0.70456e-01,0.74361e+00,0.95266e+00,0.95775e+00,0.47635e+00 /) - kbo(:, 4,57,10) = (/ & - & 0.10937e+00,0.95229e+00,0.12322e+01,0.12329e+01,0.64711e+00 /) - kbo(:, 5,57,10) = (/ & - & 0.16675e+00,0.11875e+01,0.15342e+01,0.15565e+01,0.84216e+00 /) - kbo(:, 1,58,10) = (/ & - & 0.27856e-01,0.36188e+00,0.45369e+00,0.45016e+00,0.19835e+00 /) - kbo(:, 2,58,10) = (/ & - & 0.40581e-01,0.51273e+00,0.64353e+00,0.64865e+00,0.29546e+00 /) - kbo(:, 3,58,10) = (/ & - & 0.60914e-01,0.68524e+00,0.87436e+00,0.88146e+00,0.42903e+00 /) - kbo(:, 4,58,10) = (/ & - & 0.95154e-01,0.88582e+00,0.11439e+01,0.11441e+01,0.59161e+00 /) - kbo(:, 5,58,10) = (/ & - & 0.14715e+00,0.11133e+01,0.14407e+01,0.14528e+01,0.77938e+00 /) - kbo(:, 1,59,10) = (/ & - & 0.25371e-01,0.34461e+00,0.43295e+00,0.42860e+00,0.18805e+00 /) - kbo(:, 2,59,10) = (/ & - & 0.37551e-01,0.49296e+00,0.61778e+00,0.62208e+00,0.28092e+00 /) - kbo(:, 3,59,10) = (/ & - & 0.57031e-01,0.66239e+00,0.84380e+00,0.85137e+00,0.40984e+00 /) - kbo(:, 4,59,10) = (/ & - & 0.89730e-01,0.85967e+00,0.11090e+01,0.11096e+01,0.56882e+00 /) - kbo(:, 5,59,10) = (/ & - & 0.13959e+00,0.10839e+01,0.14035e+01,0.14125e+01,0.75487e+00 /) - kbo(:, 1,13,11) = (/ & - & 0.13518e+02,0.19426e+02,0.21368e+02,0.20607e+02,0.15967e+02 /) - kbo(:, 2,13,11) = (/ & - & 0.13249e+02,0.19278e+02,0.21345e+02,0.20725e+02,0.16218e+02 /) - kbo(:, 3,13,11) = (/ & - & 0.12991e+02,0.19106e+02,0.21344e+02,0.20838e+02,0.16493e+02 /) - kbo(:, 4,13,11) = (/ & - & 0.12783e+02,0.18953e+02,0.21337e+02,0.20959e+02,0.16769e+02 /) - kbo(:, 5,13,11) = (/ & - & 0.12735e+02,0.18820e+02,0.21328e+02,0.21104e+02,0.16982e+02 /) - kbo(:, 1,14,11) = (/ & - & 0.11504e+02,0.17534e+02,0.19457e+02,0.19131e+02,0.14625e+02 /) - kbo(:, 2,14,11) = (/ & - & 0.11281e+02,0.17396e+02,0.19491e+02,0.19271e+02,0.14939e+02 /) - kbo(:, 3,14,11) = (/ & - & 0.11112e+02,0.17290e+02,0.19527e+02,0.19415e+02,0.15255e+02 /) - kbo(:, 4,14,11) = (/ & - & 0.11115e+02,0.17213e+02,0.19560e+02,0.19580e+02,0.15504e+02 /) - kbo(:, 5,14,11) = (/ & - & 0.11342e+02,0.17139e+02,0.19615e+02,0.19759e+02,0.15706e+02 /) - kbo(:, 1,15,11) = (/ & - & 0.98170e+01,0.15599e+02,0.17627e+02,0.17666e+02,0.13354e+02 /) - kbo(:, 2,15,11) = (/ & - & 0.96747e+01,0.15533e+02,0.17695e+02,0.17842e+02,0.13687e+02 /) - kbo(:, 3,15,11) = (/ & - & 0.96984e+01,0.15502e+02,0.17755e+02,0.18036e+02,0.14004e+02 /) - kbo(:, 4,15,11) = (/ & - & 0.99522e+01,0.15480e+02,0.17829e+02,0.18235e+02,0.14263e+02 /) - kbo(:, 5,15,11) = (/ & - & 0.10344e+02,0.15525e+02,0.17929e+02,0.18418e+02,0.14475e+02 /) - kbo(:, 1,16,11) = (/ & - & 0.84332e+01,0.13806e+02,0.15926e+02,0.16215e+02,0.12224e+02 /) - kbo(:, 2,16,11) = (/ & - & 0.84583e+01,0.13805e+02,0.16021e+02,0.16437e+02,0.12556e+02 /) - kbo(:, 3,16,11) = (/ & - & 0.87066e+01,0.13823e+02,0.16108e+02,0.16660e+02,0.12834e+02 /) - kbo(:, 4,16,11) = (/ & - & 0.90827e+01,0.13924e+02,0.16226e+02,0.16883e+02,0.13078e+02 /) - kbo(:, 5,16,11) = (/ & - & 0.95263e+01,0.14156e+02,0.16382e+02,0.17079e+02,0.13334e+02 /) - kbo(:, 1,17,11) = (/ & - & 0.73068e+01,0.12252e+02,0.14341e+02,0.14810e+02,0.11129e+02 /) - kbo(:, 2,17,11) = (/ & - & 0.75295e+01,0.12291e+02,0.14463e+02,0.15052e+02,0.11439e+02 /) - kbo(:, 3,17,11) = (/ & - & 0.78853e+01,0.12405e+02,0.14606e+02,0.15309e+02,0.11729e+02 /) - kbo(:, 4,17,11) = (/ & - & 0.83040e+01,0.12643e+02,0.14776e+02,0.15548e+02,0.12006e+02 /) - kbo(:, 5,17,11) = (/ & - & 0.87123e+01,0.13039e+02,0.14982e+02,0.15762e+02,0.12286e+02 /) - kbo(:, 1,18,11) = (/ & - & 0.64287e+01,0.10933e+02,0.12879e+02,0.13451e+02,0.10053e+02 /) - kbo(:, 2,18,11) = (/ & - & 0.67446e+01,0.11039e+02,0.13041e+02,0.13740e+02,0.10377e+02 /) - kbo(:, 3,18,11) = (/ & - & 0.71271e+01,0.11266e+02,0.13222e+02,0.14018e+02,0.10699e+02 /) - kbo(:, 4,18,11) = (/ & - & 0.75067e+01,0.11650e+02,0.13455e+02,0.14263e+02,0.11011e+02 /) - kbo(:, 5,18,11) = (/ & - & 0.78797e+01,0.12144e+02,0.13766e+02,0.14517e+02,0.11323e+02 /) - kbo(:, 1,19,11) = (/ & - & 0.57165e+01,0.98198e+01,0.11563e+02,0.12210e+02,0.90287e+01 /) - kbo(:, 2,19,11) = (/ & - & 0.60504e+01,0.10030e+02,0.11759e+02,0.12511e+02,0.93771e+01 /) - kbo(:, 3,19,11) = (/ & - & 0.63872e+01,0.10390e+02,0.12004e+02,0.12787e+02,0.97382e+01 /) - kbo(:, 4,19,11) = (/ & - & 0.67262e+01,0.10858e+02,0.12325e+02,0.13071e+02,0.10100e+02 /) - kbo(:, 5,19,11) = (/ & - & 0.70630e+01,0.11396e+02,0.12720e+02,0.13371e+02,0.10433e+02 /) - kbo(:, 1,20,11) = (/ & - & 0.51077e+01,0.88680e+01,0.10415e+02,0.11053e+02,0.80963e+01 /) - kbo(:, 2,20,11) = (/ & - & 0.54017e+01,0.92107e+01,0.10662e+02,0.11361e+02,0.84758e+01 /) - kbo(:, 3,20,11) = (/ & - & 0.57015e+01,0.96698e+01,0.10982e+02,0.11668e+02,0.88481e+01 /) - kbo(:, 4,20,11) = (/ & - & 0.60041e+01,0.10196e+02,0.11384e+02,0.12000e+02,0.92376e+01 /) - kbo(:, 5,20,11) = (/ & - & 0.63106e+01,0.10732e+02,0.11884e+02,0.12349e+02,0.96255e+01 /) - kbo(:, 1,21,11) = (/ & - & 0.45414e+01,0.80841e+01,0.94333e+01,0.10001e+02,0.72987e+01 /) - kbo(:, 2,21,11) = (/ & - & 0.48060e+01,0.85169e+01,0.97399e+01,0.10324e+02,0.76799e+01 /) - kbo(:, 3,21,11) = (/ & - & 0.50754e+01,0.90311e+01,0.10134e+02,0.10673e+02,0.80692e+01 /) - kbo(:, 4,21,11) = (/ & - & 0.53489e+01,0.95660e+01,0.10626e+02,0.11046e+02,0.84671e+01 /) - kbo(:, 5,21,11) = (/ & - & 0.56226e+01,0.10100e+02,0.11188e+02,0.11467e+02,0.88878e+01 /) - kbo(:, 1,22,11) = (/ & - & 0.40512e+01,0.74537e+01,0.86113e+01,0.90760e+01,0.66406e+01 /) - kbo(:, 2,22,11) = (/ & - & 0.42861e+01,0.79455e+01,0.89988e+01,0.94326e+01,0.70298e+01 /) - kbo(:, 3,22,11) = (/ & - & 0.45284e+01,0.84723e+01,0.94806e+01,0.98282e+01,0.74365e+01 /) - kbo(:, 4,22,11) = (/ & - & 0.47765e+01,0.90022e+01,0.10036e+02,0.10267e+02,0.78530e+01 /) - kbo(:, 5,22,11) = (/ & - & 0.50273e+01,0.95375e+01,0.10644e+02,0.10762e+02,0.82925e+01 /) - kbo(:, 1,23,11) = (/ & - & 0.36272e+01,0.69345e+01,0.79292e+01,0.82821e+01,0.60862e+01 /) - kbo(:, 2,23,11) = (/ & - & 0.38324e+01,0.74412e+01,0.84058e+01,0.86779e+01,0.64814e+01 /) - kbo(:, 3,23,11) = (/ & - & 0.40496e+01,0.79556e+01,0.89497e+01,0.91277e+01,0.69031e+01 /) - kbo(:, 4,23,11) = (/ & - & 0.42736e+01,0.84881e+01,0.95512e+01,0.96353e+01,0.73423e+01 /) - kbo(:, 5,23,11) = (/ & - & 0.45008e+01,0.90231e+01,0.10199e+02,0.10196e+02,0.78107e+01 /) - kbo(:, 1,24,11) = (/ & - & 0.32617e+01,0.64927e+01,0.73814e+01,0.76204e+01,0.56351e+01 /) - kbo(:, 2,24,11) = (/ & - & 0.34455e+01,0.69864e+01,0.79146e+01,0.80668e+01,0.60482e+01 /) - kbo(:, 3,24,11) = (/ & - & 0.36375e+01,0.74982e+01,0.85124e+01,0.85688e+01,0.64793e+01 /) - kbo(:, 4,24,11) = (/ & - & 0.38361e+01,0.80253e+01,0.91530e+01,0.91384e+01,0.69488e+01 /) - kbo(:, 5,24,11) = (/ & - & 0.40434e+01,0.85770e+01,0.98249e+01,0.97701e+01,0.74392e+01 /) - kbo(:, 1,25,11) = (/ & - & 0.29504e+01,0.60996e+01,0.69378e+01,0.70933e+01,0.52696e+01 /) - kbo(:, 2,25,11) = (/ & - & 0.31134e+01,0.65859e+01,0.75193e+01,0.75874e+01,0.56908e+01 /) - kbo(:, 3,25,11) = (/ & - & 0.32850e+01,0.70991e+01,0.81583e+01,0.81455e+01,0.61504e+01 /) - kbo(:, 4,25,11) = (/ & - & 0.34639e+01,0.76357e+01,0.88289e+01,0.87766e+01,0.66391e+01 /) - kbo(:, 5,25,11) = (/ & - & 0.36575e+01,0.82031e+01,0.95335e+01,0.94728e+01,0.71181e+01 /) - kbo(:, 1,26,11) = (/ & - & 0.26785e+01,0.57592e+01,0.65944e+01,0.66793e+01,0.49659e+01 /) - kbo(:, 2,26,11) = (/ & - & 0.28303e+01,0.62512e+01,0.72180e+01,0.72292e+01,0.54158e+01 /) - kbo(:, 3,26,11) = (/ & - & 0.29845e+01,0.67700e+01,0.78853e+01,0.78517e+01,0.58929e+01 /) - kbo(:, 4,26,11) = (/ & - & 0.31498e+01,0.73218e+01,0.85892e+01,0.85405e+01,0.63779e+01 /) - kbo(:, 5,26,11) = (/ & - & 0.33365e+01,0.79095e+01,0.93260e+01,0.92876e+01,0.68593e+01 /) - kbo(:, 1,27,11) = (/ & - & 0.24381e+01,0.54719e+01,0.63296e+01,0.63699e+01,0.47378e+01 /) - kbo(:, 2,27,11) = (/ & - & 0.25833e+01,0.59706e+01,0.69839e+01,0.69809e+01,0.52024e+01 /) - kbo(:, 3,27,11) = (/ & - & 0.27276e+01,0.65032e+01,0.76823e+01,0.76623e+01,0.56849e+01 /) - kbo(:, 4,27,11) = (/ & - & 0.28843e+01,0.70768e+01,0.84223e+01,0.83973e+01,0.61613e+01 /) - kbo(:, 5,27,11) = (/ & - & 0.30776e+01,0.76837e+01,0.91929e+01,0.91871e+01,0.66697e+01 /) - kbo(:, 1,28,11) = (/ & - & 0.22238e+01,0.52366e+01,0.61335e+01,0.61574e+01,0.45705e+01 /) - kbo(:, 2,28,11) = (/ & - & 0.23648e+01,0.57451e+01,0.68151e+01,0.68266e+01,0.50347e+01 /) - kbo(:, 3,28,11) = (/ & - & 0.25067e+01,0.62980e+01,0.75460e+01,0.75548e+01,0.55064e+01 /) - kbo(:, 4,28,11) = (/ & - & 0.26680e+01,0.68930e+01,0.83223e+01,0.83308e+01,0.60103e+01 /) - kbo(:, 5,28,11) = (/ & - & 0.28763e+01,0.75234e+01,0.91269e+01,0.91547e+01,0.65443e+01 /) - kbo(:, 1,29,11) = (/ & - & 0.20343e+01,0.50540e+01,0.60021e+01,0.60360e+01,0.44306e+01 /) - kbo(:, 2,29,11) = (/ & - & 0.21732e+01,0.55785e+01,0.67134e+01,0.67544e+01,0.48924e+01 /) - kbo(:, 3,29,11) = (/ & - & 0.23217e+01,0.61554e+01,0.74828e+01,0.75217e+01,0.53899e+01 /) - kbo(:, 4,29,11) = (/ & - & 0.24991e+01,0.67727e+01,0.82943e+01,0.83341e+01,0.59211e+01 /) - kbo(:, 5,29,11) = (/ & - & 0.27298e+01,0.74309e+01,0.91294e+01,0.91877e+01,0.64776e+01 /) - kbo(:, 1,30,11) = (/ & - & 0.18678e+01,0.49203e+01,0.59291e+01,0.59875e+01,0.43204e+01 /) - kbo(:, 2,30,11) = (/ & - & 0.20102e+01,0.54667e+01,0.66747e+01,0.67430e+01,0.48026e+01 /) - kbo(:, 3,30,11) = (/ & - & 0.21719e+01,0.60682e+01,0.74827e+01,0.75477e+01,0.53281e+01 /) - kbo(:, 4,30,11) = (/ & - & 0.23720e+01,0.67126e+01,0.83252e+01,0.83910e+01,0.58826e+01 /) - kbo(:, 5,30,11) = (/ & - & 0.26264e+01,0.73977e+01,0.91870e+01,0.92723e+01,0.64598e+01 /) - kbo(:, 1,31,11) = (/ & - & 0.17244e+01,0.48370e+01,0.59156e+01,0.60001e+01,0.42555e+01 /) - kbo(:, 2,31,11) = (/ & - & 0.18755e+01,0.54107e+01,0.66999e+01,0.67904e+01,0.47644e+01 /) - kbo(:, 3,31,11) = (/ & - & 0.20573e+01,0.60363e+01,0.75402e+01,0.76274e+01,0.53155e+01 /) - kbo(:, 4,31,11) = (/ & - & 0.22829e+01,0.67094e+01,0.84079e+01,0.84962e+01,0.58901e+01 /) - kbo(:, 5,31,11) = (/ & - & 0.25590e+01,0.74195e+01,0.92909e+01,0.93994e+01,0.64871e+01 /) - kbo(:, 1,32,11) = (/ & - & 0.16069e+01,0.48030e+01,0.59579e+01,0.60639e+01,0.42356e+01 /) - kbo(:, 2,32,11) = (/ & - & 0.17705e+01,0.54037e+01,0.67788e+01,0.68874e+01,0.47712e+01 /) - kbo(:, 3,32,11) = (/ & - & 0.19742e+01,0.60574e+01,0.76448e+01,0.77491e+01,0.53434e+01 /) - kbo(:, 4,32,11) = (/ & - & 0.22247e+01,0.67560e+01,0.85310e+01,0.86385e+01,0.59381e+01 /) - kbo(:, 5,32,11) = (/ & - & 0.25238e+01,0.74880e+01,0.94292e+01,0.95570e+01,0.65497e+01 /) - kbo(:, 1,33,11) = (/ & - & 0.15128e+01,0.48140e+01,0.60501e+01,0.61714e+01,0.42550e+01 /) - kbo(:, 2,33,11) = (/ & - & 0.16946e+01,0.54417e+01,0.69000e+01,0.70212e+01,0.48155e+01 /) - kbo(:, 3,33,11) = (/ & - & 0.19206e+01,0.61213e+01,0.77839e+01,0.79020e+01,0.54069e+01 /) - kbo(:, 4,33,11) = (/ & - & 0.21946e+01,0.68422e+01,0.86827e+01,0.88075e+01,0.60169e+01 /) - kbo(:, 5,33,11) = (/ & - & 0.25173e+01,0.75913e+01,0.95924e+01,0.97373e+01,0.66398e+01 /) - kbo(:, 1,34,11) = (/ & - & 0.14356e+01,0.48418e+01,0.61495e+01,0.62828e+01,0.42896e+01 /) - kbo(:, 2,34,11) = (/ & - & 0.16357e+01,0.54935e+01,0.70184e+01,0.71516e+01,0.48691e+01 /) - kbo(:, 3,34,11) = (/ & - & 0.18838e+01,0.61957e+01,0.79151e+01,0.80457e+01,0.54742e+01 /) - kbo(:, 4,34,11) = (/ & - & 0.21788e+01,0.69325e+01,0.88256e+01,0.89643e+01,0.60956e+01 /) - kbo(:, 5,34,11) = (/ & - & 0.25238e+01,0.76930e+01,0.97439e+01,0.99021e+01,0.67264e+01 /) - kbo(:, 1,35,11) = (/ & - & 0.13620e+01,0.48400e+01,0.61911e+01,0.63341e+01,0.42950e+01 /) - kbo(:, 2,35,11) = (/ & - & 0.15765e+01,0.55077e+01,0.70717e+01,0.72149e+01,0.48872e+01 /) - kbo(:, 3,35,11) = (/ & - & 0.18416e+01,0.62238e+01,0.79778e+01,0.81173e+01,0.55014e+01 /) - kbo(:, 4,35,11) = (/ & - & 0.21528e+01,0.69694e+01,0.88951e+01,0.90430e+01,0.61304e+01 /) - kbo(:, 5,35,11) = (/ & - & 0.25135e+01,0.77370e+01,0.98191e+01,0.99865e+01,0.67662e+01 /) - kbo(:, 1,36,11) = (/ & - & 0.12836e+01,0.47892e+01,0.61549e+01,0.63050e+01,0.42540e+01 /) - kbo(:, 2,36,11) = (/ & - & 0.15070e+01,0.54649e+01,0.70416e+01,0.71923e+01,0.48536e+01 /) - kbo(:, 3,36,11) = (/ & - & 0.17830e+01,0.61872e+01,0.79531e+01,0.80994e+01,0.54734e+01 /) - kbo(:, 4,36,11) = (/ & - & 0.21055e+01,0.69369e+01,0.88745e+01,0.90288e+01,0.61066e+01 /) - kbo(:, 5,36,11) = (/ & - & 0.24754e+01,0.77090e+01,0.98023e+01,0.99759e+01,0.67459e+01 /) - kbo(:, 1,37,11) = (/ & - & 0.11878e+01,0.46541e+01,0.59975e+01,0.61531e+01,0.41357e+01 /) - kbo(:, 2,37,11) = (/ & - & 0.14114e+01,0.53279e+01,0.68836e+01,0.70407e+01,0.47366e+01 /) - kbo(:, 3,37,11) = (/ & - & 0.16907e+01,0.60488e+01,0.77961e+01,0.79492e+01,0.53587e+01 /) - kbo(:, 4,37,11) = (/ & - & 0.20171e+01,0.67987e+01,0.87214e+01,0.88782e+01,0.59931e+01 /) - kbo(:, 5,37,11) = (/ & - & 0.23879e+01,0.75721e+01,0.96505e+01,0.98263e+01,0.66346e+01 /) - kbo(:, 1,38,11) = (/ & - & 0.11019e+01,0.45241e+01,0.58411e+01,0.60015e+01,0.40206e+01 /) - kbo(:, 2,38,11) = (/ & - & 0.13240e+01,0.51938e+01,0.67248e+01,0.68881e+01,0.46215e+01 /) - kbo(:, 3,38,11) = (/ & - & 0.16050e+01,0.59127e+01,0.76377e+01,0.77969e+01,0.52444e+01 /) - kbo(:, 4,38,11) = (/ & - & 0.19344e+01,0.66614e+01,0.85656e+01,0.87241e+01,0.58797e+01 /) - kbo(:, 5,38,11) = (/ & - & 0.23053e+01,0.74352e+01,0.94961e+01,0.96730e+01,0.65232e+01 /) - kbo(:, 1,39,11) = (/ & - & 0.10261e+01,0.44035e+01,0.56925e+01,0.58571e+01,0.39130e+01 /) - kbo(:, 2,39,11) = (/ & - & 0.12458e+01,0.50694e+01,0.65735e+01,0.67411e+01,0.45130e+01 /) - kbo(:, 3,39,11) = (/ & - & 0.15281e+01,0.57844e+01,0.74853e+01,0.76497e+01,0.51353e+01 /) - kbo(:, 4,39,11) = (/ & - & 0.18590e+01,0.65310e+01,0.84139e+01,0.85752e+01,0.57711e+01 /) - kbo(:, 5,39,11) = (/ & - & 0.22296e+01,0.73031e+01,0.93461e+01,0.95233e+01,0.64155e+01 /) - kbo(:, 1,40,11) = (/ & - & 0.94020e+00,0.42252e+01,0.54618e+01,0.56305e+01,0.37514e+01 /) - kbo(:, 2,40,11) = (/ & - & 0.11510e+01,0.48808e+01,0.63359e+01,0.65051e+01,0.43464e+01 /) - kbo(:, 3,40,11) = (/ & - & 0.14267e+01,0.55865e+01,0.72429e+01,0.74116e+01,0.49659e+01 /) - kbo(:, 4,40,11) = (/ & - & 0.17534e+01,0.63284e+01,0.81706e+01,0.83346e+01,0.56004e+01 /) - kbo(:, 5,40,11) = (/ & - & 0.21196e+01,0.70954e+01,0.91038e+01,0.92790e+01,0.62443e+01 /) - kbo(:, 1,41,11) = (/ & - & 0.86129e+00,0.40457e+01,0.52264e+01,0.53976e+01,0.35879e+01 /) - kbo(:, 2,41,11) = (/ & - & 0.10633e+01,0.46915e+01,0.60924e+01,0.62635e+01,0.41768e+01 /) - kbo(:, 3,41,11) = (/ & - & 0.13283e+01,0.53845e+01,0.69926e+01,0.71649e+01,0.47921e+01 /) - kbo(:, 4,41,11) = (/ & - & 0.16485e+01,0.61201e+01,0.79175e+01,0.80844e+01,0.54240e+01 /) - kbo(:, 5,41,11) = (/ & - & 0.20093e+01,0.68812e+01,0.88522e+01,0.90249e+01,0.60668e+01 /) - kbo(:, 1,42,11) = (/ & - & 0.79123e+00,0.38735e+01,0.49960e+01,0.51699e+01,0.34287e+01 /) - kbo(:, 2,42,11) = (/ & - & 0.98295e+00,0.45072e+01,0.58533e+01,0.60254e+01,0.40109e+01 /) - kbo(:, 3,42,11) = (/ & - & 0.12364e+01,0.51876e+01,0.67459e+01,0.69214e+01,0.46212e+01 /) - kbo(:, 4,42,11) = (/ & - & 0.15484e+01,0.59150e+01,0.76665e+01,0.78373e+01,0.52503e+01 /) - kbo(:, 5,42,11) = (/ & - & 0.19026e+01,0.66716e+01,0.86018e+01,0.87728e+01,0.58915e+01 /) - kbo(:, 1,43,11) = (/ & - & 0.71984e+00,0.36729e+01,0.47235e+01,0.48975e+01,0.32397e+01 /) - kbo(:, 2,43,11) = (/ & - & 0.89808e+00,0.42916e+01,0.55697e+01,0.57443e+01,0.38153e+01 /) - kbo(:, 3,43,11) = (/ & - & 0.11360e+01,0.49574e+01,0.64519e+01,0.66289e+01,0.44184e+01 /) - kbo(:, 4,43,11) = (/ & - & 0.14345e+01,0.56728e+01,0.73660e+01,0.75410e+01,0.50437e+01 /) - kbo(:, 5,43,11) = (/ & - & 0.17793e+01,0.64228e+01,0.82999e+01,0.84705e+01,0.56823e+01 /) - kbo(:, 1,44,11) = (/ & - & 0.65285e+00,0.34667e+01,0.44372e+01,0.46082e+01,0.30399e+01 /) - kbo(:, 2,44,11) = (/ & - & 0.81657e+00,0.40674e+01,0.52701e+01,0.54466e+01,0.36094e+01 /) - kbo(:, 3,44,11) = (/ & - & 0.10370e+01,0.47171e+01,0.61405e+01,0.63175e+01,0.42038e+01 /) - kbo(:, 4,44,11) = (/ & - & 0.13194e+01,0.54184e+01,0.70473e+01,0.72248e+01,0.48237e+01 /) - kbo(:, 5,44,11) = (/ & - & 0.16514e+01,0.61584e+01,0.79760e+01,0.81477e+01,0.54581e+01 /) - kbo(:, 1,45,11) = (/ & - & 0.59324e+00,0.32687e+01,0.41610e+01,0.43270e+01,0.28437e+01 /) - kbo(:, 2,45,11) = (/ & - & 0.74292e+00,0.38502e+01,0.49754e+01,0.51525e+01,0.34081e+01 /) - kbo(:, 3,45,11) = (/ & - & 0.94606e+00,0.44838e+01,0.58347e+01,0.60112e+01,0.39932e+01 /) - kbo(:, 4,45,11) = (/ & - & 0.12103e+01,0.51691e+01,0.67312e+01,0.69113e+01,0.46063e+01 /) - kbo(:, 5,45,11) = (/ & - & 0.15283e+01,0.58970e+01,0.76529e+01,0.78283e+01,0.52365e+01 /) - kbo(:, 1,46,11) = (/ & - & 0.53665e+00,0.30665e+01,0.38788e+01,0.40344e+01,0.26396e+01 /) - kbo(:, 2,46,11) = (/ & - & 0.67326e+00,0.36275e+01,0.46685e+01,0.48445e+01,0.31970e+01 /) - kbo(:, 3,46,11) = (/ & - & 0.85964e+00,0.42450e+01,0.55161e+01,0.56940e+01,0.37742e+01 /) - kbo(:, 4,46,11) = (/ & - & 0.11026e+01,0.49112e+01,0.63992e+01,0.65795e+01,0.43785e+01 /) - kbo(:, 5,46,11) = (/ & - & 0.14030e+01,0.56247e+01,0.73128e+01,0.74918e+01,0.50037e+01 /) - kbo(:, 1,47,11) = (/ & - & 0.47965e+00,0.28512e+01,0.35773e+01,0.37190e+01,0.24179e+01 /) - kbo(:, 2,47,11) = (/ & - & 0.60499e+00,0.33895e+01,0.43353e+01,0.45070e+01,0.29653e+01 /) - kbo(:, 3,47,11) = (/ & - & 0.77211e+00,0.39857e+01,0.51656e+01,0.53439e+01,0.35346e+01 /) - kbo(:, 4,47,11) = (/ & - & 0.99280e+00,0.46320e+01,0.60346e+01,0.62138e+01,0.41278e+01 /) - kbo(:, 5,47,11) = (/ & - & 0.12711e+01,0.53272e+01,0.69377e+01,0.71189e+01,0.47464e+01 /) - kbo(:, 1,48,11) = (/ & - & 0.42651e+00,0.26445e+01,0.32894e+01,0.34148e+01,0.22033e+01 /) - kbo(:, 2,48,11) = (/ & - & 0.54388e+00,0.31611e+01,0.40161e+01,0.41791e+01,0.27373e+01 /) - kbo(:, 3,48,11) = (/ & - & 0.69368e+00,0.37347e+01,0.48206e+01,0.49989e+01,0.32997e+01 /) - kbo(:, 4,48,11) = (/ & - & 0.89279e+00,0.43620e+01,0.56767e+01,0.58554e+01,0.38822e+01 /) - kbo(:, 5,48,11) = (/ & - & 0.11484e+01,0.50369e+01,0.65668e+01,0.67495e+01,0.44918e+01 /) - kbo(:, 1,49,11) = (/ & - & 0.37713e+00,0.24439e+01,0.30160e+01,0.31206e+01,0.19976e+01 /) - kbo(:, 2,49,11) = (/ & - & 0.48766e+00,0.29434e+01,0.37104e+01,0.38599e+01,0.25143e+01 /) - kbo(:, 3,49,11) = (/ & - & 0.62407e+00,0.34939e+01,0.44847e+01,0.46596e+01,0.30680e+01 /) - kbo(:, 4,49,11) = (/ & - & 0.80298e+00,0.41006e+01,0.53255e+01,0.55049e+01,0.36413e+01 /) - kbo(:, 5,49,11) = (/ & - & 0.10353e+01,0.47554e+01,0.62010e+01,0.63820e+01,0.42407e+01 /) - kbo(:, 1,50,11) = (/ & - & 0.33334e+00,0.22573e+01,0.27730e+01,0.28537e+01,0.18141e+01 /) - kbo(:, 2,50,11) = (/ & - & 0.43824e+00,0.27477e+01,0.34359e+01,0.35712e+01,0.23112e+01 /) - kbo(:, 3,50,11) = (/ & - & 0.56555e+00,0.32767e+01,0.41807e+01,0.43497e+01,0.28540e+01 /) - kbo(:, 4,50,11) = (/ & - & 0.72662e+00,0.38631e+01,0.50003e+01,0.51798e+01,0.34206e+01 /) - kbo(:, 5,50,11) = (/ & - & 0.93811e+00,0.44998e+01,0.58635e+01,0.60433e+01,0.40092e+01 /) - kbo(:, 1,51,11) = (/ & - & 0.29344e+00,0.20792e+01,0.25493e+01,0.26045e+01,0.16447e+01 /) - kbo(:, 2,51,11) = (/ & - & 0.39320e+00,0.25633e+01,0.31811e+01,0.32996e+01,0.21202e+01 /) - kbo(:, 3,51,11) = (/ & - & 0.51335e+00,0.30739e+01,0.38968e+01,0.40554e+01,0.26493e+01 /) - kbo(:, 4,51,11) = (/ & - & 0.65991e+00,0.36396e+01,0.46910e+01,0.48692e+01,0.32095e+01 /) - kbo(:, 5,51,11) = (/ & - & 0.85305e+00,0.42602e+01,0.55428e+01,0.57227e+01,0.37890e+01 /) - kbo(:, 1,52,11) = (/ & - & 0.25634e+00,0.19065e+01,0.23373e+01,0.23675e+01,0.14849e+01 /) - kbo(:, 2,52,11) = (/ & - & 0.35085e+00,0.23832e+01,0.29380e+01,0.30363e+01,0.19379e+01 /) - kbo(:, 3,52,11) = (/ & - & 0.46463e+00,0.28806e+01,0.36245e+01,0.37705e+01,0.24499e+01 /) - kbo(:, 4,52,11) = (/ & - & 0.60014e+00,0.34247e+01,0.43901e+01,0.45644e+01,0.30013e+01 /) - kbo(:, 5,52,11) = (/ & - & 0.77502e+00,0.40268e+01,0.52264e+01,0.54064e+01,0.35729e+01 /) - kbo(:, 1,53,11) = (/ & - & 0.22198e+00,0.17382e+01,0.21355e+01,0.21443e+01,0.13321e+01 /) - kbo(:, 2,53,11) = (/ & - & 0.31088e+00,0.22037e+01,0.27070e+01,0.27809e+01,0.17631e+01 /) - kbo(:, 3,53,11) = (/ & - & 0.41868e+00,0.26937e+01,0.33628e+01,0.34937e+01,0.22551e+01 /) - kbo(:, 4,53,11) = (/ & - & 0.54590e+00,0.32172e+01,0.40994e+01,0.42669e+01,0.27950e+01 /) - kbo(:, 5,53,11) = (/ & - & 0.70382e+00,0.37993e+01,0.49134e+01,0.50934e+01,0.33609e+01 /) - kbo(:, 1,54,11) = (/ & - & 0.19279e+00,0.15884e+01,0.19576e+01,0.19516e+01,0.11991e+01 /) - kbo(:, 2,54,11) = (/ & - & 0.27614e+00,0.20423e+01,0.25053e+01,0.25559e+01,0.16106e+01 /) - kbo(:, 3,54,11) = (/ & - & 0.37900e+00,0.25264e+01,0.31323e+01,0.32473e+01,0.20825e+01 /) - kbo(:, 4,54,11) = (/ & - & 0.49954e+00,0.30344e+01,0.38425e+01,0.39994e+01,0.26090e+01 /) - kbo(:, 5,54,11) = (/ & - & 0.64483e+00,0.35967e+01,0.46320e+01,0.48104e+01,0.31683e+01 /) - kbo(:, 1,55,11) = (/ & - & 0.16752e+00,0.14506e+01,0.17924e+01,0.17780e+01,0.10766e+01 /) - kbo(:, 2,55,11) = (/ & - & 0.24546e+00,0.18924e+01,0.23215e+01,0.23502e+01,0.14718e+01 /) - kbo(:, 3,55,11) = (/ & - & 0.34282e+00,0.23686e+01,0.29203e+01,0.30171e+01,0.19238e+01 /) - kbo(:, 4,55,11) = (/ & - & 0.45751e+00,0.28657e+01,0.36048e+01,0.37504e+01,0.24347e+01 /) - kbo(:, 5,55,11) = (/ & - & 0.59345e+00,0.34091e+01,0.43692e+01,0.45436e+01,0.29860e+01 /) - kbo(:, 1,56,11) = (/ & - & 0.14442e+00,0.13191e+01,0.16307e+01,0.16158e+01,0.95966e+00 /) - kbo(:, 2,56,11) = (/ & - & 0.21629e+00,0.17456e+01,0.21454e+01,0.21553e+01,0.13384e+01 /) - kbo(:, 3,56,11) = (/ & - & 0.30838e+00,0.22117e+01,0.27184e+01,0.27939e+01,0.17710e+01 /) - kbo(:, 4,56,11) = (/ & - & 0.41780e+00,0.27024e+01,0.33761e+01,0.35083e+01,0.22647e+01 /) - kbo(:, 5,56,11) = (/ & - & 0.54633e+00,0.32277e+01,0.41153e+01,0.42835e+01,0.28057e+01 /) - kbo(:, 1,57,11) = (/ & - & 0.12369e+00,0.11942e+01,0.14751e+01,0.14660e+01,0.84794e+00 /) - kbo(:, 2,57,11) = (/ & - & 0.18943e+00,0.16025e+01,0.19752e+01,0.19706e+01,0.12104e+01 /) - kbo(:, 3,57,11) = (/ & - & 0.27580e+00,0.20577e+01,0.25253e+01,0.25785e+01,0.16249e+01 /) - kbo(:, 4,57,11) = (/ & - & 0.38015e+00,0.25425e+01,0.31554e+01,0.32724e+01,0.20995e+01 /) - kbo(:, 5,57,11) = (/ & - & 0.50220e+00,0.30528e+01,0.38694e+01,0.40275e+01,0.26279e+01 /) - kbo(:, 1,58,11) = (/ & - & 0.10619e+00,0.10815e+01,0.13338e+01,0.13340e+01,0.74924e+00 /) - kbo(:, 2,58,11) = (/ & - & 0.16586e+00,0.14713e+01,0.18183e+01,0.18047e+01,0.10933e+01 /) - kbo(:, 3,58,11) = (/ & - & 0.24668e+00,0.19150e+01,0.23498e+01,0.23824e+01,0.14931e+01 /) - kbo(:, 4,58,11) = (/ & - & 0.34613e+00,0.23936e+01,0.29542e+01,0.30545e+01,0.19489e+01 /) - kbo(:, 5,58,11) = (/ & - & 0.46251e+00,0.28928e+01,0.36439e+01,0.37914e+01,0.24628e+01 /) - kbo(:, 1,59,11) = (/ & - & 0.98781e-01,0.10374e+01,0.12790e+01,0.12834e+01,0.71091e+00 /) - kbo(:, 2,59,11) = (/ & - & 0.15643e+00,0.14199e+01,0.17560e+01,0.17406e+01,0.10475e+01 /) - kbo(:, 3,59,11) = (/ & - & 0.23512e+00,0.18585e+01,0.22815e+01,0.23061e+01,0.14408e+01 /) - kbo(:, 4,59,11) = (/ & - & 0.33250e+00,0.23338e+01,0.28755e+01,0.29686e+01,0.18898e+01 /) - kbo(:, 5,59,11) = (/ & - & 0.44697e+00,0.28298e+01,0.35555e+01,0.36984e+01,0.23975e+01 /) - kbo(:, 1,13,12) = (/ & - & 0.30998e+02,0.37385e+02,0.40609e+02,0.38100e+02,0.30845e+02 /) - kbo(:, 2,13,12) = (/ & - & 0.30490e+02,0.37042e+02,0.40582e+02,0.38272e+02,0.31245e+02 /) - kbo(:, 3,13,12) = (/ & - & 0.29985e+02,0.36701e+02,0.40520e+02,0.38445e+02,0.31621e+02 /) - kbo(:, 4,13,12) = (/ & - & 0.29490e+02,0.36329e+02,0.40415e+02,0.38594e+02,0.32000e+02 /) - kbo(:, 5,13,12) = (/ & - & 0.29015e+02,0.35959e+02,0.40312e+02,0.38750e+02,0.32433e+02 /) - kbo(:, 1,14,12) = (/ & - & 0.27110e+02,0.35184e+02,0.38617e+02,0.36399e+02,0.28635e+02 /) - kbo(:, 2,14,12) = (/ & - & 0.26641e+02,0.34930e+02,0.38606e+02,0.36649e+02,0.29079e+02 /) - kbo(:, 3,14,12) = (/ & - & 0.26184e+02,0.34642e+02,0.38568e+02,0.36926e+02,0.29498e+02 /) - kbo(:, 4,14,12) = (/ & - & 0.25751e+02,0.34348e+02,0.38555e+02,0.37188e+02,0.29949e+02 /) - kbo(:, 5,14,12) = (/ & - & 0.25340e+02,0.34077e+02,0.38568e+02,0.37453e+02,0.30433e+02 /) - kbo(:, 1,15,12) = (/ & - & 0.23379e+02,0.32658e+02,0.36083e+02,0.34396e+02,0.26632e+02 /) - kbo(:, 2,15,12) = (/ & - & 0.22961e+02,0.32462e+02,0.36143e+02,0.34739e+02,0.27099e+02 /) - kbo(:, 3,15,12) = (/ & - & 0.22574e+02,0.32277e+02,0.36234e+02,0.35089e+02,0.27554e+02 /) - kbo(:, 4,15,12) = (/ & - & 0.22226e+02,0.32107e+02,0.36368e+02,0.35457e+02,0.28061e+02 /) - kbo(:, 5,15,12) = (/ & - & 0.22052e+02,0.31945e+02,0.36473e+02,0.35860e+02,0.28623e+02 /) - kbo(:, 1,16,12) = (/ & - & 0.19977e+02,0.29953e+02,0.33281e+02,0.32282e+02,0.24730e+02 /) - kbo(:, 2,16,12) = (/ & - & 0.19633e+02,0.29859e+02,0.33454e+02,0.32701e+02,0.25245e+02 /) - kbo(:, 3,16,12) = (/ & - & 0.19340e+02,0.29766e+02,0.33693e+02,0.33152e+02,0.25800e+02 /) - kbo(:, 4,16,12) = (/ & - & 0.19247e+02,0.29689e+02,0.33933e+02,0.33616e+02,0.26378e+02 /) - kbo(:, 5,16,12) = (/ & - & 0.19403e+02,0.29623e+02,0.34160e+02,0.34111e+02,0.26924e+02 /) - kbo(:, 1,17,12) = (/ & - & 0.17051e+02,0.27143e+02,0.30473e+02,0.30161e+02,0.22931e+02 /) - kbo(:, 2,17,12) = (/ & - & 0.16797e+02,0.27123e+02,0.30776e+02,0.30670e+02,0.23518e+02 /) - kbo(:, 3,17,12) = (/ & - & 0.16741e+02,0.27141e+02,0.31121e+02,0.31186e+02,0.24127e+02 /) - kbo(:, 4,17,12) = (/ & - & 0.16948e+02,0.27189e+02,0.31472e+02,0.31736e+02,0.24729e+02 /) - kbo(:, 5,17,12) = (/ & - & 0.17485e+02,0.27288e+02,0.31858e+02,0.32324e+02,0.25297e+02 /) - kbo(:, 1,18,12) = (/ & - & 0.14597e+02,0.24342e+02,0.27826e+02,0.28130e+02,0.21245e+02 /) - kbo(:, 2,18,12) = (/ & - & 0.14547e+02,0.24446e+02,0.28237e+02,0.28704e+02,0.21885e+02 /) - kbo(:, 3,18,12) = (/ & - & 0.14765e+02,0.24583e+02,0.28672e+02,0.29288e+02,0.22535e+02 /) - kbo(:, 4,18,12) = (/ & - & 0.15315e+02,0.24794e+02,0.29147e+02,0.29934e+02,0.23159e+02 /) - kbo(:, 5,18,12) = (/ & - & 0.16067e+02,0.25143e+02,0.29634e+02,0.30628e+02,0.23749e+02 /) - kbo(:, 1,19,12) = (/ & - & 0.12640e+02,0.21753e+02,0.25384e+02,0.26151e+02,0.19661e+02 /) - kbo(:, 2,19,12) = (/ & - & 0.12835e+02,0.21949e+02,0.25878e+02,0.26810e+02,0.20358e+02 /) - kbo(:, 3,19,12) = (/ & - & 0.13356e+02,0.22229e+02,0.26410e+02,0.27515e+02,0.21037e+02 /) - kbo(:, 4,19,12) = (/ & - & 0.14056e+02,0.22664e+02,0.26964e+02,0.28265e+02,0.21685e+02 /) - kbo(:, 5,19,12) = (/ & - & 0.14855e+02,0.23244e+02,0.27571e+02,0.29046e+02,0.22336e+02 /) - kbo(:, 1,20,12) = (/ & - & 0.11082e+02,0.19491e+02,0.23194e+02,0.24313e+02,0.18232e+02 /) - kbo(:, 2,20,12) = (/ & - & 0.11562e+02,0.19787e+02,0.23755e+02,0.25073e+02,0.18946e+02 /) - kbo(:, 3,20,12) = (/ & - & 0.12224e+02,0.20238e+02,0.24350e+02,0.25880e+02,0.19650e+02 /) - kbo(:, 4,20,12) = (/ & - & 0.12987e+02,0.20868e+02,0.25012e+02,0.26726e+02,0.20347e+02 /) - kbo(:, 5,20,12) = (/ & - & 0.13788e+02,0.21712e+02,0.25741e+02,0.27588e+02,0.21074e+02 /) - kbo(:, 1,21,12) = (/ & - & 0.98833e+01,0.17574e+02,0.21209e+02,0.22623e+02,0.16925e+02 /) - kbo(:, 2,21,12) = (/ & - & 0.10489e+02,0.18010e+02,0.21858e+02,0.23471e+02,0.17666e+02 /) - kbo(:, 3,21,12) = (/ & - & 0.11209e+02,0.18622e+02,0.22555e+02,0.24382e+02,0.18394e+02 /) - kbo(:, 4,21,12) = (/ & - & 0.11974e+02,0.19474e+02,0.23320e+02,0.25315e+02,0.19156e+02 /) - kbo(:, 5,21,12) = (/ & - & 0.12743e+02,0.20530e+02,0.24213e+02,0.26280e+02,0.19957e+02 /) - kbo(:, 1,22,12) = (/ & - & 0.89432e+01,0.16023e+02,0.19521e+02,0.21142e+02,0.15785e+02 /) - kbo(:, 2,22,12) = (/ & - & 0.96012e+01,0.16615e+02,0.20251e+02,0.22105e+02,0.16565e+02 /) - kbo(:, 3,22,12) = (/ & - & 0.10308e+02,0.17429e+02,0.21053e+02,0.23102e+02,0.17352e+02 /) - kbo(:, 4,22,12) = (/ & - & 0.11034e+02,0.18474e+02,0.21986e+02,0.24140e+02,0.18184e+02 /) - kbo(:, 5,22,12) = (/ & - & 0.11779e+02,0.19675e+02,0.23025e+02,0.25198e+02,0.19053e+02 /) - kbo(:, 1,23,12) = (/ & - & 0.81558e+01,0.14793e+02,0.18088e+02,0.19855e+02,0.14800e+02 /) - kbo(:, 2,23,12) = (/ & - & 0.87957e+01,0.15543e+02,0.18895e+02,0.20923e+02,0.15621e+02 /) - kbo(:, 3,23,12) = (/ & - & 0.94593e+01,0.16540e+02,0.19849e+02,0.22025e+02,0.16480e+02 /) - kbo(:, 4,23,12) = (/ & - & 0.10153e+02,0.17706e+02,0.20923e+02,0.23160e+02,0.17388e+02 /) - kbo(:, 5,23,12) = (/ & - & 0.10876e+02,0.18993e+02,0.22113e+02,0.24310e+02,0.18322e+02 /) - kbo(:, 1,24,12) = (/ & - & 0.74526e+01,0.13830e+02,0.16894e+02,0.18769e+02,0.13959e+02 /) - kbo(:, 2,24,12) = (/ & - & 0.80517e+01,0.14766e+02,0.17833e+02,0.19936e+02,0.14836e+02 /) - kbo(:, 3,24,12) = (/ & - & 0.86841e+01,0.15873e+02,0.18916e+02,0.21150e+02,0.15773e+02 /) - kbo(:, 4,24,12) = (/ & - & 0.93535e+01,0.17122e+02,0.20131e+02,0.22383e+02,0.16742e+02 /) - kbo(:, 5,24,12) = (/ & - & 0.10068e+02,0.18482e+02,0.21482e+02,0.23634e+02,0.17753e+02 /) - kbo(:, 1,25,12) = (/ & - & 0.68105e+01,0.13122e+02,0.15953e+02,0.17890e+02,0.13264e+02 /) - kbo(:, 2,25,12) = (/ & - & 0.73796e+01,0.14193e+02,0.17028e+02,0.19160e+02,0.14211e+02 /) - kbo(:, 3,25,12) = (/ & - & 0.79883e+01,0.15386e+02,0.18237e+02,0.20473e+02,0.15219e+02 /) - kbo(:, 4,25,12) = (/ & - & 0.86473e+01,0.16702e+02,0.19605e+02,0.21810e+02,0.16257e+02 /) - kbo(:, 5,25,12) = (/ & - & 0.93513e+01,0.18139e+02,0.21087e+02,0.23158e+02,0.17339e+02 /) - kbo(:, 1,26,12) = (/ & - & 0.62530e+01,0.12619e+02,0.15260e+02,0.17241e+02,0.12729e+02 /) - kbo(:, 2,26,12) = (/ & - & 0.67955e+01,0.13786e+02,0.16460e+02,0.18602e+02,0.13751e+02 /) - kbo(:, 3,26,12) = (/ & - & 0.73876e+01,0.15061e+02,0.17816e+02,0.20014e+02,0.14821e+02 /) - kbo(:, 4,26,12) = (/ & - & 0.80374e+01,0.16453e+02,0.19314e+02,0.21444e+02,0.15933e+02 /) - kbo(:, 5,26,12) = (/ & - & 0.87427e+01,0.17956e+02,0.20909e+02,0.22878e+02,0.17080e+02 /) - kbo(:, 1,27,12) = (/ & - & 0.57700e+01,0.12257e+02,0.14782e+02,0.16780e+02,0.12335e+02 /) - kbo(:, 2,27,12) = (/ & - & 0.62864e+01,0.13513e+02,0.16114e+02,0.18231e+02,0.13431e+02 /) - kbo(:, 3,27,12) = (/ & - & 0.68675e+01,0.14868e+02,0.17601e+02,0.19730e+02,0.14565e+02 /) - kbo(:, 4,27,12) = (/ & - & 0.75138e+01,0.16329e+02,0.19199e+02,0.21244e+02,0.15742e+02 /) - kbo(:, 5,27,12) = (/ & - & 0.82289e+01,0.17883e+02,0.20886e+02,0.22748e+02,0.16940e+02 /) - kbo(:, 1,28,12) = (/ & - & 0.53548e+01,0.12024e+02,0.14494e+02,0.16490e+02,0.12074e+02 /) - kbo(:, 2,28,12) = (/ & - & 0.58567e+01,0.13364e+02,0.15954e+02,0.18023e+02,0.13231e+02 /) - kbo(:, 3,28,12) = (/ & - & 0.64249e+01,0.14793e+02,0.17548e+02,0.19599e+02,0.14431e+02 /) - kbo(:, 4,28,12) = (/ & - & 0.70763e+01,0.16306e+02,0.19232e+02,0.21185e+02,0.15664e+02 /) - kbo(:, 5,28,12) = (/ & - & 0.78108e+01,0.17913e+02,0.20999e+02,0.22748e+02,0.16904e+02 /) - kbo(:, 1,29,12) = (/ & - & 0.50045e+01,0.11918e+02,0.14389e+02,0.16363e+02,0.11938e+02 /) - kbo(:, 2,29,12) = (/ & - & 0.55030e+01,0.13334e+02,0.15959e+02,0.17970e+02,0.13155e+02 /) - kbo(:, 3,29,12) = (/ & - & 0.60662e+01,0.14820e+02,0.17638e+02,0.19611e+02,0.14408e+02 /) - kbo(:, 4,29,12) = (/ & - & 0.67325e+01,0.16392e+02,0.19392e+02,0.21253e+02,0.15686e+02 /) - kbo(:, 5,29,12) = (/ & - & 0.74925e+01,0.18044e+02,0.21206e+02,0.22856e+02,0.16965e+02 /) - kbo(:, 1,30,12) = (/ & - & 0.47172e+01,0.11917e+02,0.14428e+02,0.16368e+02,0.11903e+02 /) - kbo(:, 2,30,12) = (/ & - & 0.52125e+01,0.13400e+02,0.16089e+02,0.18040e+02,0.13179e+02 /) - kbo(:, 3,30,12) = (/ & - & 0.57884e+01,0.14940e+02,0.17829e+02,0.19728e+02,0.14475e+02 /) - kbo(:, 4,30,12) = (/ & - & 0.64722e+01,0.16556e+02,0.19636e+02,0.21408e+02,0.15787e+02 /) - kbo(:, 5,30,12) = (/ & - & 0.72704e+01,0.18251e+02,0.21479e+02,0.23035e+02,0.17093e+02 /) - kbo(:, 1,31,12) = (/ & - & 0.44858e+01,0.12017e+02,0.14590e+02,0.16495e+02,0.11969e+02 /) - kbo(:, 2,31,12) = (/ & - & 0.49908e+01,0.13550e+02,0.16315e+02,0.18215e+02,0.13287e+02 /) - kbo(:, 3,31,12) = (/ & - & 0.55864e+01,0.15140e+02,0.18101e+02,0.19933e+02,0.14620e+02 /) - kbo(:, 4,31,12) = (/ & - & 0.63024e+01,0.16801e+02,0.19948e+02,0.21636e+02,0.15956e+02 /) - kbo(:, 5,31,12) = (/ & - & 0.71504e+01,0.18530e+02,0.21815e+02,0.23280e+02,0.17277e+02 /) - kbo(:, 1,32,12) = (/ & - & 0.43064e+01,0.12199e+02,0.14841e+02,0.16712e+02,0.12112e+02 /) - kbo(:, 2,32,12) = (/ & - & 0.48346e+01,0.13779e+02,0.16613e+02,0.18463e+02,0.13462e+02 /) - kbo(:, 3,32,12) = (/ & - & 0.54614e+01,0.15404e+02,0.18438e+02,0.20209e+02,0.14821e+02 /) - kbo(:, 4,32,12) = (/ & - & 0.62177e+01,0.17102e+02,0.20311e+02,0.21920e+02,0.16172e+02 /) - kbo(:, 5,32,12) = (/ & - & 0.71259e+01,0.18855e+02,0.22195e+02,0.23574e+02,0.17506e+02 /) - kbo(:, 1,33,12) = (/ & - & 0.41801e+01,0.12450e+02,0.15154e+02,0.16994e+02,0.12315e+02 /) - kbo(:, 2,33,12) = (/ & - & 0.47391e+01,0.14064e+02,0.16963e+02,0.18765e+02,0.13689e+02 /) - kbo(:, 3,33,12) = (/ & - & 0.54061e+01,0.15717e+02,0.18820e+02,0.20527e+02,0.15064e+02 /) - kbo(:, 4,33,12) = (/ & - & 0.62146e+01,0.17442e+02,0.20711e+02,0.22242e+02,0.16420e+02 /) - kbo(:, 5,33,12) = (/ & - & 0.71827e+01,0.19219e+02,0.22608e+02,0.23903e+02,0.17762e+02 /) - kbo(:, 1,34,12) = (/ & - & 0.40887e+01,0.12691e+02,0.15451e+02,0.17259e+02,0.12512e+02 /) - kbo(:, 2,34,12) = (/ & - & 0.46819e+01,0.14330e+02,0.17288e+02,0.19046e+02,0.13902e+02 /) - kbo(:, 3,34,12) = (/ & - & 0.53890e+01,0.16007e+02,0.19166e+02,0.20816e+02,0.15287e+02 /) - kbo(:, 4,34,12) = (/ & - & 0.62486e+01,0.17752e+02,0.21067e+02,0.22532e+02,0.16650e+02 /) - kbo(:, 5,34,12) = (/ & - & 0.72682e+01,0.19545e+02,0.22972e+02,0.24194e+02,0.17995e+02 /) - kbo(:, 1,35,12) = (/ & - & 0.39916e+01,0.12809e+02,0.15601e+02,0.17383e+02,0.12605e+02 /) - kbo(:, 2,35,12) = (/ & - & 0.46112e+01,0.14460e+02,0.17457e+02,0.19181e+02,0.14005e+02 /) - kbo(:, 3,35,12) = (/ & - & 0.53474e+01,0.16154e+02,0.19347e+02,0.20958e+02,0.15398e+02 /) - kbo(:, 4,35,12) = (/ & - & 0.62430e+01,0.17913e+02,0.21258e+02,0.22679e+02,0.16764e+02 /) - kbo(:, 5,35,12) = (/ & - & 0.72953e+01,0.19716e+02,0.23169e+02,0.24345e+02,0.18113e+02 /) - kbo(:, 1,36,12) = (/ & - & 0.38696e+01,0.12768e+02,0.15571e+02,0.17332e+02,0.12565e+02 /) - kbo(:, 2,36,12) = (/ & - & 0.45034e+01,0.14429e+02,0.17436e+02,0.19141e+02,0.13973e+02 /) - kbo(:, 3,36,12) = (/ & - & 0.52555e+01,0.16128e+02,0.19333e+02,0.20927e+02,0.15372e+02 /) - kbo(:, 4,36,12) = (/ & - & 0.61640e+01,0.17893e+02,0.21249e+02,0.22656e+02,0.16743e+02 /) - kbo(:, 5,36,12) = (/ & - & 0.72295e+01,0.19702e+02,0.23168e+02,0.24329e+02,0.18096e+02 /) - kbo(:, 1,37,12) = (/ & - & 0.36883e+01,0.12493e+02,0.15274e+02,0.17021e+02,0.12322e+02 /) - kbo(:, 2,37,12) = (/ & - & 0.43193e+01,0.14156e+02,0.17140e+02,0.18841e+02,0.13739e+02 /) - kbo(:, 3,37,12) = (/ & - & 0.50636e+01,0.15852e+02,0.19039e+02,0.20638e+02,0.15145e+02 /) - kbo(:, 4,37,12) = (/ & - & 0.59573e+01,0.17616e+02,0.20958e+02,0.22386e+02,0.16525e+02 /) - kbo(:, 5,37,12) = (/ & - & 0.70089e+01,0.19421e+02,0.22881e+02,0.24071e+02,0.17883e+02 /) - kbo(:, 1,38,12) = (/ & - & 0.35253e+01,0.12215e+02,0.14971e+02,0.16706e+02,0.12079e+02 /) - kbo(:, 2,38,12) = (/ & - & 0.41507e+01,0.13877e+02,0.16837e+02,0.18535e+02,0.13501e+02 /) - kbo(:, 3,38,12) = (/ & - & 0.48852e+01,0.15572e+02,0.18736e+02,0.20342e+02,0.14913e+02 /) - kbo(:, 4,38,12) = (/ & - & 0.57613e+01,0.17329e+02,0.20656e+02,0.22106e+02,0.16300e+02 /) - kbo(:, 5,38,12) = (/ & - & 0.67957e+01,0.19130e+02,0.22581e+02,0.23804e+02,0.17665e+02 /) - kbo(:, 1,39,12) = (/ & - & 0.33825e+01,0.11947e+02,0.14676e+02,0.16402e+02,0.11843e+02 /) - kbo(:, 2,39,12) = (/ & - & 0.39997e+01,0.13607e+02,0.16542e+02,0.18237e+02,0.13271e+02 /) - kbo(:, 3,39,12) = (/ & - & 0.47242e+01,0.15300e+02,0.18440e+02,0.20053e+02,0.14687e+02 /) - kbo(:, 4,39,12) = (/ & - & 0.55821e+01,0.17050e+02,0.20362e+02,0.21831e+02,0.16081e+02 /) - kbo(:, 5,39,12) = (/ & - & 0.65965e+01,0.18849e+02,0.22289e+02,0.23541e+02,0.17452e+02 /) - kbo(:, 1,40,12) = (/ & - & 0.31990e+01,0.11518e+02,0.14197e+02,0.15916e+02,0.11466e+02 /) - kbo(:, 2,40,12) = (/ & - & 0.37954e+01,0.13171e+02,0.16060e+02,0.17759e+02,0.12898e+02 /) - kbo(:, 3,40,12) = (/ & - & 0.44984e+01,0.14859e+02,0.17955e+02,0.19586e+02,0.14321e+02 /) - kbo(:, 4,40,12) = (/ & - & 0.53220e+01,0.16595e+02,0.19875e+02,0.21381e+02,0.15725e+02 /) - kbo(:, 5,40,12) = (/ & - & 0.62999e+01,0.18387e+02,0.21803e+02,0.23109e+02,0.17102e+02 /) - kbo(:, 1,41,12) = (/ & - & 0.30240e+01,0.11079e+02,0.13703e+02,0.15411e+02,0.11075e+02 /) - kbo(:, 2,41,12) = (/ & - & 0.35998e+01,0.12722e+02,0.15561e+02,0.17259e+02,0.12509e+02 /) - kbo(:, 3,41,12) = (/ & - & 0.42766e+01,0.14402e+02,0.17450e+02,0.19096e+02,0.13938e+02 /) - kbo(:, 4,41,12) = (/ & - & 0.50663e+01,0.16123e+02,0.19365e+02,0.20905e+02,0.15352e+02 /) - kbo(:, 5,41,12) = (/ & - & 0.60051e+01,0.17908e+02,0.21295e+02,0.22653e+02,0.16735e+02 /) - kbo(:, 1,42,12) = (/ & - & 0.28652e+01,0.10648e+02,0.13219e+02,0.14913e+02,0.10689e+02 /) - kbo(:, 2,42,12) = (/ & - & 0.34153e+01,0.12278e+02,0.15063e+02,0.16761e+02,0.12121e+02 /) - kbo(:, 3,42,12) = (/ & - & 0.40672e+01,0.13952e+02,0.16947e+02,0.18606e+02,0.13557e+02 /) - kbo(:, 4,42,12) = (/ & - & 0.48264e+01,0.15661e+02,0.18858e+02,0.20426e+02,0.14977e+02 /) - kbo(:, 5,42,12) = (/ & - & 0.57266e+01,0.17431e+02,0.20787e+02,0.22197e+02,0.16370e+02 /) - kbo(:, 1,43,12) = (/ & - & 0.26870e+01,0.10134e+02,0.12642e+02,0.14316e+02,0.10228e+02 /) - kbo(:, 2,43,12) = (/ & - & 0.32108e+01,0.11745e+02,0.14465e+02,0.16161e+02,0.11657e+02 /) - kbo(:, 3,43,12) = (/ & - & 0.38308e+01,0.13408e+02,0.16340e+02,0.18012e+02,0.13095e+02 /) - kbo(:, 4,43,12) = (/ & - & 0.45569e+01,0.15107e+02,0.18246e+02,0.19843e+02,0.14521e+02 /) - kbo(:, 5,43,12) = (/ & - & 0.54100e+01,0.16859e+02,0.20173e+02,0.21637e+02,0.15927e+02 /) - kbo(:, 1,44,12) = (/ & - & 0.25051e+01,0.95885e+01,0.12032e+02,0.13682e+02,0.97372e+01 /) - kbo(:, 2,44,12) = (/ & - & 0.30054e+01,0.11180e+02,0.13825e+02,0.15517e+02,0.11159e+02 /) - kbo(:, 3,44,12) = (/ & - & 0.35923e+01,0.12828e+02,0.15690e+02,0.17372e+02,0.12597e+02 /) - kbo(:, 4,44,12) = (/ & - & 0.42861e+01,0.14518e+02,0.17591e+02,0.19215e+02,0.14031e+02 /) - kbo(:, 5,44,12) = (/ & - & 0.50891e+01,0.16248e+02,0.19511e+02,0.21026e+02,0.15447e+02 /) - kbo(:, 1,45,12) = (/ & - & 0.23284e+01,0.90519e+01,0.11435e+02,0.13049e+02,0.92487e+01 /) - kbo(:, 2,45,12) = (/ & - & 0.28153e+01,0.10623e+02,0.13197e+02,0.14880e+02,0.10666e+02 /) - kbo(:, 3,45,12) = (/ & - & 0.33686e+01,0.12254e+02,0.15046e+02,0.16733e+02,0.12101e+02 /) - kbo(:, 4,45,12) = (/ & - & 0.40279e+01,0.13936e+02,0.16938e+02,0.18583e+02,0.13540e+02 /) - kbo(:, 5,45,12) = (/ & - & 0.47894e+01,0.15648e+02,0.18852e+02,0.20408e+02,0.14963e+02 /) - kbo(:, 1,46,12) = (/ & - & 0.21477e+01,0.84947e+01,0.10808e+02,0.12382e+02,0.87316e+01 /) - kbo(:, 2,46,12) = (/ & - & 0.26237e+01,0.10040e+02,0.12543e+02,0.14206e+02,0.10145e+02 /) - kbo(:, 3,46,12) = (/ & - & 0.31493e+01,0.11653e+02,0.14367e+02,0.16054e+02,0.11575e+02 /) - kbo(:, 4,46,12) = (/ & - & 0.37687e+01,0.13319e+02,0.16247e+02,0.17910e+02,0.13015e+02 /) - kbo(:, 5,46,12) = (/ & - & 0.44919e+01,0.15018e+02,0.18154e+02,0.19746e+02,0.14446e+02 /) - kbo(:, 1,47,12) = (/ & - & 0.19539e+01,0.78866e+01,0.10121e+02,0.11642e+02,0.81629e+01 /) - kbo(:, 2,47,12) = (/ & - & 0.24188e+01,0.94011e+01,0.11827e+02,0.13461e+02,0.95671e+01 /) - kbo(:, 3,47,12) = (/ & - & 0.29183e+01,0.10990e+02,0.13614e+02,0.15297e+02,0.10990e+02 /) - kbo(:, 4,47,12) = (/ & - & 0.34981e+01,0.12636e+02,0.15480e+02,0.17155e+02,0.12429e+02 /) - kbo(:, 5,47,12) = (/ & - & 0.41787e+01,0.14323e+02,0.17378e+02,0.19005e+02,0.13866e+02 /) - kbo(:, 1,48,12) = (/ & - & 0.17686e+01,0.73016e+01,0.94471e+01,0.10908e+02,0.76062e+01 /) - kbo(:, 2,48,12) = (/ & - & 0.22191e+01,0.87750e+01,0.11125e+02,0.12718e+02,0.89921e+01 /) - kbo(:, 3,48,12) = (/ & - & 0.27045e+01,0.10336e+02,0.12878e+02,0.14548e+02,0.10409e+02 /) - kbo(:, 4,48,12) = (/ & - & 0.32460e+01,0.11962e+02,0.14721e+02,0.16399e+02,0.11843e+02 /) - kbo(:, 5,48,12) = (/ & - & 0.38847e+01,0.13635e+02,0.16605e+02,0.18256e+02,0.13285e+02 /) - kbo(:, 1,49,12) = (/ & - & 0.15926e+01,0.67448e+01,0.87885e+01,0.10183e+02,0.70558e+01 /) - kbo(:, 2,49,12) = (/ & - & 0.20265e+01,0.81616e+01,0.10434e+02,0.11978e+02,0.84210e+01 /) - kbo(:, 3,49,12) = (/ & - & 0.24995e+01,0.96943e+01,0.12158e+02,0.13804e+02,0.98335e+01 /) - kbo(:, 4,49,12) = (/ & - & 0.30106e+01,0.11296e+02,0.13964e+02,0.15645e+02,0.11261e+02 /) - kbo(:, 5,49,12) = (/ & - & 0.36091e+01,0.12953e+02,0.15838e+02,0.17505e+02,0.12701e+02 /) - kbo(:, 1,50,12) = (/ & - & 0.14367e+01,0.62503e+01,0.81839e+01,0.95114e+01,0.65470e+01 /) - kbo(:, 2,50,12) = (/ & - & 0.18513e+01,0.76037e+01,0.97986e+01,0.11290e+02,0.78962e+01 /) - kbo(:, 3,50,12) = (/ & - & 0.23123e+01,0.91032e+01,0.11496e+02,0.13108e+02,0.92947e+01 /) - kbo(:, 4,50,12) = (/ & - & 0.28056e+01,0.10680e+02,0.13267e+02,0.14942e+02,0.10716e+02 /) - kbo(:, 5,50,12) = (/ & - & 0.33664e+01,0.12318e+02,0.15124e+02,0.16800e+02,0.12153e+02 /) - kbo(:, 1,51,12) = (/ & - & 0.12944e+01,0.57936e+01,0.76117e+01,0.88742e+01,0.60642e+01 /) - kbo(:, 2,51,12) = (/ & - & 0.16888e+01,0.70852e+01,0.91933e+01,0.10628e+02,0.73944e+01 /) - kbo(:, 3,51,12) = (/ & - & 0.21353e+01,0.85416e+01,0.10863e+02,0.12436e+02,0.87735e+01 /) - kbo(:, 4,51,12) = (/ & - & 0.26169e+01,0.10093e+02,0.12607e+02,0.14266e+02,0.10192e+02 /) - kbo(:, 5,51,12) = (/ & - & 0.31479e+01,0.11711e+02,0.14438e+02,0.16116e+02,0.11624e+02 /) - kbo(:, 1,52,12) = (/ & - & 0.11616e+01,0.53570e+01,0.70533e+01,0.82560e+01,0.55953e+01 /) - kbo(:, 2,52,12) = (/ & - & 0.15340e+01,0.65899e+01,0.86019e+01,0.99750e+01,0.68982e+01 /) - kbo(:, 3,52,12) = (/ & - & 0.19643e+01,0.79903e+01,0.10241e+02,0.11768e+02,0.82604e+01 /) - kbo(:, 4,52,12) = (/ & - & 0.24347e+01,0.95157e+01,0.11958e+02,0.13593e+02,0.96707e+01 /) - kbo(:, 5,52,12) = (/ & - & 0.29410e+01,0.11112e+02,0.13756e+02,0.15434e+02,0.11097e+02 /) - kbo(:, 1,53,12) = (/ & - & 0.10377e+01,0.49398e+01,0.65141e+01,0.76518e+01,0.51386e+01 /) - kbo(:, 2,53,12) = (/ & - & 0.13876e+01,0.61188e+01,0.80207e+01,0.93291e+01,0.64095e+01 /) - kbo(:, 3,53,12) = (/ & - & 0.17987e+01,0.74567e+01,0.96292e+01,0.11104e+02,0.77562e+01 /) - kbo(:, 4,53,12) = (/ & - & 0.22559e+01,0.89467e+01,0.11320e+02,0.12921e+02,0.91504e+01 /) - kbo(:, 5,53,12) = (/ & - & 0.27477e+01,0.10518e+02,0.13086e+02,0.14756e+02,0.10571e+02 /) - kbo(:, 1,54,12) = (/ & - & 0.93266e+00,0.45754e+01,0.60420e+01,0.71108e+01,0.47321e+01 /) - kbo(:, 2,54,12) = (/ & - & 0.12608e+01,0.57055e+01,0.75003e+01,0.87512e+01,0.59717e+01 /) - kbo(:, 3,54,12) = (/ & - & 0.16525e+01,0.69875e+01,0.90782e+01,0.10501e+02,0.72982e+01 /) - kbo(:, 4,54,12) = (/ & - & 0.20962e+01,0.84351e+01,0.10744e+02,0.12308e+02,0.86747e+01 /) - kbo(:, 5,54,12) = (/ & - & 0.25775e+01,0.99827e+01,0.12485e+02,0.14138e+02,0.10092e+02 /) - kbo(:, 1,55,12) = (/ & - & 0.84048e+00,0.42428e+01,0.56145e+01,0.66054e+01,0.43544e+01 /) - kbo(:, 2,55,12) = (/ & - & 0.11472e+01,0.53270e+01,0.70144e+01,0.82122e+01,0.55615e+01 /) - kbo(:, 3,55,12) = (/ & - & 0.15181e+01,0.65556e+01,0.85601e+01,0.99280e+01,0.68631e+01 /) - kbo(:, 4,55,12) = (/ & - & 0.19474e+01,0.79524e+01,0.10198e+02,0.11721e+02,0.82252e+01 /) - kbo(:, 5,55,12) = (/ & - & 0.24188e+01,0.94776e+01,0.11916e+02,0.13548e+02,0.96351e+01 /) - kbo(:, 1,56,12) = (/ & - & 0.75447e+00,0.39270e+01,0.52064e+01,0.61093e+01,0.39870e+01 /) - kbo(:, 2,56,12) = (/ & - & 0.10395e+01,0.49623e+01,0.65429e+01,0.76840e+01,0.51623e+01 /) - kbo(:, 3,56,12) = (/ & - & 0.13908e+01,0.61440e+01,0.80522e+01,0.93640e+01,0.64360e+01 /) - kbo(:, 4,56,12) = (/ & - & 0.18031e+01,0.74859e+01,0.96627e+01,0.11140e+02,0.77842e+01 /) - kbo(:, 5,56,12) = (/ & - & 0.22626e+01,0.89798e+01,0.11358e+02,0.12960e+02,0.91800e+01 /) - kbo(:, 1,57,12) = (/ & - & 0.67513e+00,0.36336e+01,0.48180e+01,0.56247e+01,0.36284e+01 /) - kbo(:, 2,57,12) = (/ & - & 0.93951e+00,0.46135e+01,0.60910e+01,0.71671e+01,0.47736e+01 /) - kbo(:, 3,57,12) = (/ & - & 0.12699e+01,0.57481e+01,0.75541e+01,0.88107e+01,0.60168e+01 /) - kbo(:, 4,57,12) = (/ & - & 0.16637e+01,0.70362e+01,0.91351e+01,0.10564e+02,0.73465e+01 /) - kbo(:, 5,57,12) = (/ & - & 0.21102e+01,0.84904e+01,0.10807e+02,0.12374e+02,0.87256e+01 /) - kbo(:, 1,58,12) = (/ & - & 0.60371e+00,0.33725e+01,0.44640e+01,0.51801e+01,0.32968e+01 /) - kbo(:, 2,58,12) = (/ & - & 0.85131e+00,0.42951e+01,0.56822e+01,0.66873e+01,0.44155e+01 /) - kbo(:, 3,58,12) = (/ & - & 0.11611e+01,0.53867e+01,0.70919e+01,0.82985e+01,0.56282e+01 /) - kbo(:, 4,58,12) = (/ & - & 0.15366e+01,0.66258e+01,0.86445e+01,0.10022e+02,0.69358e+01 /) - kbo(:, 5,58,12) = (/ & - & 0.19698e+01,0.80329e+01,0.10290e+02,0.11819e+02,0.83004e+01 /) - kbo(:, 1,59,12) = (/ & - & 0.57552e+00,0.32717e+01,0.43250e+01,0.50045e+01,0.31668e+01 /) - kbo(:, 2,59,12) = (/ & - & 0.81716e+00,0.41713e+01,0.55225e+01,0.64964e+01,0.42740e+01 /) - kbo(:, 3,59,12) = (/ & - & 0.11190e+01,0.52446e+01,0.69091e+01,0.80966e+01,0.54744e+01 /) - kbo(:, 4,59,12) = (/ & - & 0.14869e+01,0.64659e+01,0.84502e+01,0.98065e+01,0.67716e+01 /) - kbo(:, 5,59,12) = (/ & - & 0.19139e+01,0.78535e+01,0.10085e+02,0.11598e+02,0.81311e+01 /) - kbo(:, 1,13,13) = (/ & - & 0.79406e+02,0.76977e+02,0.79398e+02,0.72265e+02,0.70608e+02 /) - kbo(:, 2,13,13) = (/ & - & 0.78716e+02,0.76325e+02,0.79145e+02,0.72561e+02,0.71233e+02 /) - kbo(:, 3,13,13) = (/ & - & 0.77960e+02,0.75684e+02,0.78864e+02,0.72811e+02,0.71703e+02 /) - kbo(:, 4,13,13) = (/ & - & 0.77172e+02,0.75038e+02,0.78462e+02,0.73003e+02,0.72067e+02 /) - kbo(:, 5,13,13) = (/ & - & 0.76342e+02,0.74357e+02,0.78015e+02,0.73077e+02,0.72406e+02 /) - kbo(:, 1,14,13) = (/ & - & 0.74002e+02,0.75964e+02,0.80244e+02,0.73931e+02,0.67973e+02 /) - kbo(:, 2,14,13) = (/ & - & 0.73259e+02,0.75350e+02,0.80187e+02,0.74373e+02,0.68671e+02 /) - kbo(:, 3,14,13) = (/ & - & 0.72511e+02,0.74741e+02,0.79998e+02,0.74718e+02,0.69297e+02 /) - kbo(:, 4,14,13) = (/ & - & 0.71760e+02,0.74129e+02,0.79694e+02,0.74933e+02,0.69925e+02 /) - kbo(:, 5,14,13) = (/ & - & 0.70963e+02,0.73482e+02,0.79282e+02,0.75062e+02,0.70592e+02 /) - kbo(:, 1,15,13) = (/ & - & 0.67727e+02,0.74204e+02,0.79973e+02,0.74524e+02,0.64503e+02 /) - kbo(:, 2,15,13) = (/ & - & 0.66995e+02,0.73663e+02,0.80067e+02,0.75070e+02,0.65404e+02 /) - kbo(:, 3,15,13) = (/ & - & 0.66299e+02,0.73080e+02,0.80001e+02,0.75489e+02,0.66341e+02 /) - kbo(:, 4,15,13) = (/ & - & 0.65584e+02,0.72498e+02,0.79808e+02,0.75814e+02,0.67293e+02 /) - kbo(:, 5,15,13) = (/ & - & 0.64881e+02,0.71894e+02,0.79644e+02,0.76073e+02,0.68159e+02 /) - kbo(:, 1,16,13) = (/ & - & 0.60910e+02,0.71706e+02,0.78658e+02,0.73971e+02,0.60740e+02 /) - kbo(:, 2,16,13) = (/ & - & 0.60264e+02,0.71204e+02,0.78897e+02,0.74647e+02,0.61882e+02 /) - kbo(:, 3,16,13) = (/ & - & 0.59646e+02,0.70743e+02,0.78998e+02,0.75253e+02,0.63062e+02 /) - kbo(:, 4,16,13) = (/ & - & 0.59033e+02,0.70274e+02,0.79093e+02,0.75819e+02,0.64263e+02 /) - kbo(:, 5,16,13) = (/ & - & 0.58482e+02,0.69838e+02,0.79175e+02,0.76359e+02,0.65453e+02 /) - kbo(:, 1,17,13) = (/ & - & 0.53962e+02,0.68666e+02,0.76384e+02,0.72467e+02,0.57058e+02 /) - kbo(:, 2,17,13) = (/ & - & 0.53430e+02,0.68393e+02,0.76843e+02,0.73413e+02,0.58438e+02 /) - kbo(:, 3,17,13) = (/ & - & 0.52920e+02,0.68105e+02,0.77273e+02,0.74323e+02,0.59869e+02 /) - kbo(:, 4,17,13) = (/ & - & 0.52483e+02,0.67847e+02,0.77698e+02,0.75214e+02,0.61307e+02 /) - kbo(:, 5,17,13) = (/ & - & 0.52082e+02,0.67535e+02,0.78034e+02,0.76077e+02,0.62785e+02 /) - kbo(:, 1,18,13) = (/ & - & 0.47235e+02,0.65232e+02,0.73440e+02,0.70305e+02,0.53676e+02 /) - kbo(:, 2,18,13) = (/ & - & 0.46798e+02,0.65205e+02,0.74239e+02,0.71589e+02,0.55262e+02 /) - kbo(:, 3,18,13) = (/ & - & 0.46439e+02,0.65179e+02,0.75037e+02,0.72870e+02,0.56922e+02 /) - kbo(:, 4,18,13) = (/ & - & 0.46165e+02,0.65077e+02,0.75787e+02,0.74113e+02,0.58606e+02 /) - kbo(:, 5,18,13) = (/ & - & 0.46076e+02,0.64950e+02,0.76497e+02,0.75319e+02,0.60364e+02 /) - kbo(:, 1,19,13) = (/ & - & 0.40875e+02,0.61443e+02,0.70167e+02,0.67815e+02,0.50666e+02 /) - kbo(:, 2,19,13) = (/ & - & 0.40599e+02,0.61754e+02,0.71348e+02,0.69451e+02,0.52443e+02 /) - kbo(:, 3,19,13) = (/ & - & 0.40423e+02,0.61971e+02,0.72494e+02,0.71103e+02,0.54265e+02 /) - kbo(:, 4,19,13) = (/ & - & 0.40489e+02,0.62135e+02,0.73624e+02,0.72723e+02,0.56176e+02 /) - kbo(:, 5,19,13) = (/ & - & 0.40909e+02,0.62251e+02,0.74691e+02,0.74287e+02,0.58151e+02 /) - kbo(:, 1,20,13) = (/ & - & 0.35203e+02,0.57554e+02,0.66740e+02,0.65266e+02,0.47986e+02 /) - kbo(:, 2,20,13) = (/ & - & 0.35059e+02,0.58164e+02,0.68281e+02,0.67270e+02,0.49928e+02 /) - kbo(:, 3,20,13) = (/ & - & 0.35179e+02,0.58679e+02,0.69865e+02,0.69298e+02,0.51957e+02 /) - kbo(:, 4,20,13) = (/ & - & 0.35687e+02,0.59136e+02,0.71375e+02,0.71295e+02,0.54068e+02 /) - kbo(:, 5,20,13) = (/ & - & 0.36572e+02,0.59563e+02,0.72814e+02,0.73197e+02,0.56184e+02 /) - kbo(:, 1,21,13) = (/ & - & 0.30294e+02,0.53730e+02,0.63335e+02,0.62843e+02,0.45639e+02 /) - kbo(:, 2,21,13) = (/ & - & 0.30407e+02,0.54622e+02,0.65309e+02,0.65230e+02,0.47736e+02 /) - kbo(:, 3,21,13) = (/ & - & 0.30898e+02,0.55470e+02,0.67283e+02,0.67630e+02,0.49955e+02 /) - kbo(:, 4,21,13) = (/ & - & 0.31814e+02,0.56234e+02,0.69205e+02,0.69979e+02,0.52223e+02 /) - kbo(:, 5,21,13) = (/ & - & 0.33171e+02,0.57002e+02,0.70988e+02,0.72170e+02,0.54507e+02 /) - kbo(:, 1,22,13) = (/ & - & 0.26203e+02,0.50178e+02,0.60369e+02,0.60883e+02,0.43752e+02 /) - kbo(:, 2,22,13) = (/ & - & 0.26668e+02,0.51399e+02,0.62731e+02,0.63628e+02,0.46055e+02 /) - kbo(:, 3,22,13) = (/ & - & 0.27573e+02,0.52567e+02,0.65094e+02,0.66337e+02,0.48427e+02 /) - kbo(:, 4,22,13) = (/ & - & 0.28933e+02,0.53710e+02,0.67379e+02,0.68992e+02,0.50840e+02 /) - kbo(:, 5,22,13) = (/ & - & 0.30713e+02,0.54842e+02,0.69500e+02,0.71453e+02,0.53313e+02 /) - kbo(:, 1,23,13) = (/ & - & 0.22949e+02,0.47062e+02,0.57786e+02,0.59287e+02,0.42207e+02 /) - kbo(:, 2,23,13) = (/ & - & 0.23779e+02,0.48563e+02,0.60567e+02,0.62337e+02,0.44709e+02 /) - kbo(:, 3,23,13) = (/ & - & 0.25087e+02,0.50088e+02,0.63282e+02,0.65361e+02,0.47224e+02 /) - kbo(:, 4,23,13) = (/ & - & 0.26833e+02,0.51601e+02,0.65861e+02,0.68253e+02,0.49790e+02 /) - kbo(:, 5,23,13) = (/ & - & 0.28975e+02,0.53148e+02,0.68312e+02,0.70979e+02,0.52442e+02 /) - kbo(:, 1,24,13) = (/ & - & 0.20450e+02,0.44418e+02,0.55719e+02,0.58070e+02,0.41028e+02 /) - kbo(:, 2,24,13) = (/ & - & 0.21647e+02,0.46218e+02,0.58860e+02,0.61413e+02,0.43697e+02 /) - kbo(:, 3,24,13) = (/ & - & 0.23313e+02,0.48082e+02,0.61856e+02,0.64696e+02,0.46357e+02 /) - kbo(:, 4,24,13) = (/ & - & 0.25383e+02,0.49987e+02,0.64735e+02,0.67792e+02,0.49079e+02 /) - kbo(:, 5,24,13) = (/ & - & 0.27788e+02,0.51882e+02,0.67449e+02,0.70725e+02,0.51885e+02 /) - kbo(:, 1,25,13) = (/ & - & 0.18632e+02,0.42267e+02,0.54194e+02,0.57249e+02,0.40189e+02 /) - kbo(:, 2,25,13) = (/ & - & 0.20151e+02,0.44393e+02,0.57583e+02,0.60858e+02,0.43004e+02 /) - kbo(:, 3,25,13) = (/ & - & 0.22101e+02,0.46593e+02,0.60865e+02,0.64337e+02,0.45809e+02 /) - kbo(:, 4,25,13) = (/ & - & 0.24391e+02,0.48836e+02,0.63984e+02,0.67613e+02,0.48696e+02 /) - kbo(:, 5,25,13) = (/ & - & 0.26959e+02,0.50995e+02,0.66882e+02,0.70682e+02,0.51602e+02 /) - kbo(:, 1,26,13) = (/ & - & 0.17370e+02,0.40657e+02,0.53173e+02,0.56858e+02,0.39692e+02 /) - kbo(:, 2,26,13) = (/ & - & 0.19155e+02,0.43087e+02,0.56801e+02,0.60671e+02,0.42632e+02 /) - kbo(:, 3,26,13) = (/ & - & 0.21292e+02,0.45598e+02,0.60302e+02,0.64290e+02,0.45592e+02 /) - kbo(:, 4,26,13) = (/ & - & 0.23727e+02,0.48098e+02,0.63591e+02,0.67690e+02,0.48603e+02 /) - kbo(:, 5,26,13) = (/ & - & 0.26455e+02,0.50493e+02,0.66616e+02,0.70861e+02,0.51588e+02 /) - kbo(:, 1,27,13) = (/ & - & 0.16499e+02,0.39533e+02,0.52563e+02,0.56787e+02,0.39461e+02 /) - kbo(:, 2,27,13) = (/ & - & 0.18462e+02,0.42240e+02,0.56391e+02,0.60738e+02,0.42525e+02 /) - kbo(:, 3,27,13) = (/ & - & 0.20737e+02,0.45009e+02,0.60060e+02,0.64459e+02,0.45612e+02 /) - kbo(:, 4,27,13) = (/ & - & 0.23336e+02,0.47712e+02,0.63452e+02,0.67944e+02,0.48705e+02 /) - kbo(:, 5,27,13) = (/ & - & 0.26215e+02,0.50322e+02,0.66583e+02,0.71174e+02,0.51756e+02 /) - kbo(:, 1,28,13) = (/ & - & 0.15882e+02,0.38845e+02,0.52318e+02,0.56965e+02,0.39468e+02 /) - kbo(:, 2,28,13) = (/ & - & 0.17994e+02,0.41785e+02,0.56289e+02,0.61007e+02,0.42649e+02 /) - kbo(:, 3,28,13) = (/ & - & 0.20424e+02,0.44749e+02,0.60052e+02,0.64808e+02,0.45826e+02 /) - kbo(:, 4,28,13) = (/ & - & 0.23178e+02,0.47630e+02,0.63526e+02,0.68347e+02,0.48967e+02 /) - kbo(:, 5,28,13) = (/ & - & 0.26217e+02,0.50385e+02,0.66714e+02,0.71584e+02,0.52071e+02 /) - kbo(:, 1,29,13) = (/ & - & 0.15496e+02,0.38533e+02,0.52388e+02,0.57377e+02,0.39687e+02 /) - kbo(:, 2,29,13) = (/ & - & 0.17758e+02,0.41667e+02,0.56458e+02,0.61470e+02,0.42963e+02 /) - kbo(:, 3,29,13) = (/ & - & 0.20345e+02,0.44782e+02,0.60267e+02,0.65320e+02,0.46203e+02 /) - kbo(:, 4,29,13) = (/ & - & 0.23257e+02,0.47788e+02,0.63789e+02,0.68865e+02,0.49378e+02 /) - kbo(:, 5,29,13) = (/ & - & 0.26442e+02,0.50623e+02,0.67004e+02,0.72085e+02,0.52513e+02 /) - kbo(:, 1,30,13) = (/ & - & 0.15305e+02,0.38520e+02,0.52687e+02,0.57942e+02,0.40075e+02 /) - kbo(:, 2,30,13) = (/ & - & 0.17725e+02,0.41787e+02,0.56809e+02,0.62069e+02,0.43408e+02 /) - kbo(:, 3,30,13) = (/ & - & 0.20471e+02,0.45011e+02,0.60646e+02,0.65935e+02,0.46678e+02 /) - kbo(:, 4,30,13) = (/ & - & 0.23532e+02,0.48109e+02,0.64191e+02,0.69457e+02,0.49879e+02 /) - kbo(:, 5,30,13) = (/ & - & 0.26835e+02,0.50980e+02,0.67409e+02,0.72648e+02,0.53041e+02 /) - kbo(:, 1,31,13) = (/ & - & 0.15319e+02,0.38759e+02,0.53187e+02,0.58637e+02,0.40597e+02 /) - kbo(:, 2,31,13) = (/ & - & 0.17890e+02,0.42121e+02,0.57326e+02,0.62778e+02,0.43969e+02 /) - kbo(:, 3,31,13) = (/ & - & 0.20784e+02,0.45419e+02,0.61174e+02,0.66627e+02,0.47246e+02 /) - kbo(:, 4,31,13) = (/ & - & 0.23963e+02,0.48555e+02,0.64709e+02,0.70119e+02,0.50470e+02 /) - kbo(:, 5,31,13) = (/ & - & 0.27377e+02,0.51448e+02,0.67912e+02,0.73265e+02,0.53642e+02 /) - kbo(:, 1,32,13) = (/ & - & 0.15518e+02,0.39176e+02,0.53833e+02,0.59441e+02,0.41231e+02 /) - kbo(:, 2,32,13) = (/ & - & 0.18219e+02,0.42608e+02,0.57967e+02,0.63575e+02,0.44614e+02 /) - kbo(:, 3,32,13) = (/ & - & 0.21240e+02,0.45958e+02,0.61807e+02,0.67376e+02,0.47899e+02 /) - kbo(:, 4,32,13) = (/ & - & 0.24535e+02,0.49103e+02,0.65323e+02,0.70819e+02,0.51129e+02 /) - kbo(:, 5,32,13) = (/ & - & 0.28030e+02,0.51991e+02,0.68477e+02,0.73912e+02,0.54297e+02 /) - kbo(:, 1,33,13) = (/ & - & 0.15857e+02,0.39728e+02,0.54587e+02,0.60326e+02,0.41934e+02 /) - kbo(:, 2,33,13) = (/ & - & 0.18681e+02,0.43207e+02,0.58700e+02,0.64428e+02,0.45312e+02 /) - kbo(:, 3,33,13) = (/ & - & 0.21817e+02,0.46584e+02,0.62510e+02,0.68164e+02,0.48601e+02 /) - kbo(:, 4,33,13) = (/ & - & 0.25208e+02,0.49716e+02,0.65986e+02,0.71546e+02,0.51832e+02 /) - kbo(:, 5,33,13) = (/ & - & 0.28769e+02,0.52588e+02,0.69085e+02,0.74576e+02,0.54996e+02 /) - kbo(:, 1,34,13) = (/ & - & 0.16218e+02,0.40255e+02,0.55264e+02,0.61104e+02,0.42563e+02 /) - kbo(:, 2,34,13) = (/ & - & 0.19136e+02,0.43775e+02,0.59363e+02,0.65173e+02,0.45933e+02 /) - kbo(:, 3,34,13) = (/ & - & 0.22367e+02,0.47148e+02,0.63138e+02,0.68848e+02,0.49223e+02 /) - kbo(:, 4,34,13) = (/ & - & 0.25824e+02,0.50264e+02,0.66569e+02,0.72180e+02,0.52454e+02 /) - kbo(:, 5,34,13) = (/ & - & 0.29432e+02,0.53119e+02,0.69617e+02,0.75149e+02,0.55607e+02 /) - kbo(:, 1,35,13) = (/ & - & 0.16382e+02,0.40509e+02,0.55591e+02,0.61512e+02,0.42891e+02 /) - kbo(:, 2,35,13) = (/ & - & 0.19362e+02,0.44056e+02,0.59682e+02,0.65556e+02,0.46259e+02 /) - kbo(:, 3,35,13) = (/ & - & 0.22646e+02,0.47437e+02,0.63450e+02,0.69212e+02,0.49551e+02 /) - kbo(:, 4,35,13) = (/ & - & 0.26140e+02,0.50553e+02,0.66864e+02,0.72519e+02,0.52785e+02 /) - kbo(:, 5,35,13) = (/ & - & 0.29778e+02,0.53403e+02,0.69889e+02,0.75460e+02,0.55937e+02 /) - kbo(:, 1,36,13) = (/ & - & 0.16282e+02,0.40412e+02,0.55499e+02,0.61489e+02,0.42866e+02 /) - kbo(:, 2,36,13) = (/ & - & 0.19286e+02,0.43996e+02,0.59618e+02,0.65550e+02,0.46244e+02 /) - kbo(:, 3,36,13) = (/ & - & 0.22586e+02,0.47399e+02,0.63406e+02,0.69212e+02,0.49542e+02 /) - kbo(:, 4,36,13) = (/ & - & 0.26096e+02,0.50533e+02,0.66829e+02,0.72526e+02,0.52781e+02 /) - kbo(:, 5,36,13) = (/ & - & 0.29750e+02,0.53407e+02,0.69875e+02,0.75478e+02,0.55943e+02 /) - kbo(:, 1,37,13) = (/ & - & 0.15776e+02,0.39797e+02,0.54788e+02,0.60844e+02,0.42332e+02 /) - kbo(:, 2,37,13) = (/ & - & 0.18757e+02,0.43418e+02,0.58970e+02,0.64965e+02,0.45736e+02 /) - kbo(:, 3,37,13) = (/ & - & 0.22032e+02,0.46879e+02,0.62830e+02,0.68697e+02,0.49053e+02 /) - kbo(:, 4,37,13) = (/ & - & 0.25533e+02,0.50076e+02,0.66324e+02,0.72072e+02,0.52311e+02 /) - kbo(:, 5,37,13) = (/ & - & 0.29180e+02,0.52997e+02,0.69437e+02,0.75080e+02,0.55481e+02 /) - kbo(:, 1,38,13) = (/ & - & 0.15271e+02,0.39166e+02,0.54054e+02,0.60165e+02,0.41777e+02 /) - kbo(:, 2,38,13) = (/ & - & 0.18227e+02,0.42823e+02,0.58302e+02,0.64350e+02,0.45207e+02 /) - kbo(:, 3,38,13) = (/ & - & 0.21473e+02,0.46333e+02,0.62224e+02,0.68144e+02,0.48540e+02 /) - kbo(:, 4,38,13) = (/ & - & 0.24954e+02,0.49588e+02,0.65790e+02,0.71578e+02,0.51811e+02 /) - kbo(:, 5,38,13) = (/ & - & 0.28592e+02,0.52564e+02,0.68973e+02,0.74653e+02,0.55000e+02 /) - kbo(:, 1,39,13) = (/ & - & 0.14788e+02,0.38557e+02,0.53339e+02,0.59493e+02,0.41232e+02 /) - kbo(:, 2,39,13) = (/ & - & 0.17725e+02,0.42239e+02,0.57643e+02,0.63735e+02,0.44689e+02 /) - kbo(:, 3,39,13) = (/ & - & 0.20936e+02,0.45800e+02,0.61629e+02,0.67599e+02,0.48036e+02 /) - kbo(:, 4,39,13) = (/ & - & 0.24393e+02,0.49102e+02,0.65258e+02,0.71089e+02,0.51322e+02 /) - kbo(:, 5,39,13) = (/ & - & 0.28020e+02,0.52130e+02,0.68507e+02,0.74225e+02,0.54528e+02 /) - kbo(:, 1,40,13) = (/ & - & 0.14035e+02,0.37576e+02,0.52178e+02,0.58374e+02,0.40328e+02 /) - kbo(:, 2,40,13) = (/ & - & 0.16933e+02,0.41290e+02,0.56557e+02,0.62694e+02,0.43829e+02 /) - kbo(:, 3,40,13) = (/ & - & 0.20073e+02,0.44909e+02,0.60638e+02,0.66668e+02,0.47203e+02 /) - kbo(:, 4,40,13) = (/ & - & 0.23486e+02,0.48287e+02,0.64365e+02,0.70250e+02,0.50504e+02 /) - kbo(:, 5,40,13) = (/ & - & 0.27084e+02,0.51393e+02,0.67719e+02,0.73485e+02,0.53736e+02 /) - kbo(:, 1,41,13) = (/ & - & 0.13270e+02,0.36551e+02,0.50952e+02,0.57187e+02,0.39381e+02 /) - kbo(:, 2,41,13) = (/ & - & 0.16132e+02,0.40293e+02,0.55396e+02,0.61573e+02,0.42921e+02 /) - kbo(:, 3,41,13) = (/ & - & 0.19195e+02,0.43957e+02,0.59575e+02,0.65658e+02,0.46320e+02 /) - kbo(:, 4,41,13) = (/ & - & 0.22552e+02,0.47415e+02,0.63413e+02,0.69340e+02,0.49639e+02 /) - kbo(:, 5,41,13) = (/ & - & 0.26115e+02,0.50603e+02,0.66868e+02,0.72675e+02,0.52897e+02 /) - kbo(:, 1,42,13) = (/ & - & 0.12533e+02,0.35537e+02,0.49715e+02,0.55979e+02,0.38430e+02 /) - kbo(:, 2,42,13) = (/ & - & 0.15340e+02,0.39292e+02,0.54229e+02,0.60445e+02,0.42004e+02 /) - kbo(:, 3,42,13) = (/ & - & 0.18342e+02,0.42991e+02,0.58494e+02,0.64631e+02,0.45437e+02 /) - kbo(:, 4,42,13) = (/ & - & 0.21634e+02,0.46527e+02,0.62435e+02,0.68417e+02,0.48777e+02 /) - kbo(:, 5,42,13) = (/ & - & 0.25154e+02,0.49791e+02,0.65989e+02,0.71836e+02,0.52054e+02 /) - kbo(:, 1,43,13) = (/ & - & 0.11668e+02,0.34309e+02,0.48203e+02,0.54498e+02,0.37270e+02 /) - kbo(:, 2,43,13) = (/ & - & 0.14402e+02,0.38082e+02,0.52797e+02,0.59048e+02,0.40873e+02 /) - kbo(:, 3,43,13) = (/ & - & 0.17344e+02,0.41812e+02,0.57160e+02,0.63341e+02,0.44355e+02 /) - kbo(:, 4,43,13) = (/ & - & 0.20545e+02,0.45427e+02,0.61209e+02,0.67260e+02,0.47724e+02 /) - kbo(:, 5,43,13) = (/ & - & 0.24007e+02,0.48779e+02,0.64893e+02,0.70794e+02,0.51019e+02 /) - kbo(:, 1,44,13) = (/ & - & 0.10777e+02,0.32982e+02,0.46555e+02,0.52865e+02,0.36017e+02 /) - kbo(:, 2,44,13) = (/ & - & 0.13422e+02,0.36774e+02,0.51234e+02,0.57518e+02,0.39647e+02 /) - kbo(:, 3,44,13) = (/ & - & 0.16301e+02,0.40529e+02,0.55688e+02,0.61909e+02,0.43184e+02 /) - kbo(:, 4,44,13) = (/ & - & 0.19410e+02,0.44205e+02,0.59841e+02,0.65956e+02,0.46575e+02 /) - kbo(:, 5,44,13) = (/ & - & 0.22792e+02,0.47657e+02,0.63668e+02,0.69623e+02,0.49898e+02 /) - kbo(:, 1,45,13) = (/ & - & 0.99376e+01,0.31658e+02,0.44891e+02,0.51201e+02,0.34758e+02 /) - kbo(:, 2,45,13) = (/ & - & 0.12468e+02,0.35468e+02,0.49648e+02,0.55955e+02,0.38412e+02 /) - kbo(:, 3,45,13) = (/ & - & 0.15282e+02,0.39240e+02,0.54182e+02,0.60441e+02,0.41991e+02 /) - kbo(:, 4,45,13) = (/ & - & 0.18307e+02,0.42958e+02,0.58447e+02,0.64617e+02,0.45427e+02 /) - kbo(:, 5,45,13) = (/ & - & 0.21602e+02,0.46508e+02,0.62404e+02,0.68417e+02,0.48775e+02 /) - kbo(:, 1,46,13) = (/ & - & 0.90997e+01,0.30250e+02,0.43114e+02,0.49420e+02,0.33417e+02 /) - kbo(:, 2,46,13) = (/ & - & 0.11497e+02,0.34076e+02,0.47932e+02,0.54263e+02,0.37087e+02 /) - kbo(:, 3,46,13) = (/ & - & 0.14229e+02,0.37865e+02,0.52547e+02,0.58836e+02,0.40705e+02 /) - kbo(:, 4,46,13) = (/ & - & 0.17178e+02,0.41613e+02,0.56930e+02,0.63142e+02,0.44193e+02 /) - kbo(:, 5,46,13) = (/ & - & 0.20366e+02,0.45251e+02,0.61008e+02,0.67091e+02,0.47569e+02 /) - kbo(:, 1,47,13) = (/ & - & 0.82326e+01,0.28698e+02,0.41131e+02,0.47406e+02,0.31895e+02 /) - kbo(:, 2,47,13) = (/ & - & 0.10467e+02,0.32516e+02,0.45987e+02,0.52322e+02,0.35605e+02 /) - kbo(:, 3,47,13) = (/ & - & 0.13084e+02,0.36324e+02,0.50700e+02,0.57015e+02,0.39250e+02 /) - kbo(:, 4,47,13) = (/ & - & 0.15956e+02,0.40097e+02,0.55181e+02,0.61437e+02,0.42802e+02 /) - kbo(:, 5,47,13) = (/ & - & 0.19031e+02,0.43799e+02,0.59396e+02,0.65543e+02,0.46212e+02 /) - kbo(:, 1,48,13) = (/ & - & 0.74393e+01,0.27161e+02,0.39157e+02,0.45343e+02,0.30350e+02 /) - kbo(:, 2,48,13) = (/ & - & 0.95049e+01,0.30953e+02,0.44020e+02,0.50347e+02,0.34113e+02 /) - kbo(:, 3,48,13) = (/ & - & 0.11978e+02,0.34782e+02,0.48813e+02,0.55151e+02,0.37782e+02 /) - kbo(:, 4,48,13) = (/ & - & 0.14764e+02,0.38570e+02,0.53387e+02,0.59681e+02,0.41384e+02 /) - kbo(:, 5,48,13) = (/ & - & 0.17748e+02,0.42312e+02,0.57728e+02,0.63933e+02,0.44844e+02 /) - kbo(:, 1,49,13) = (/ & - & 0.67167e+01,0.25650e+02,0.37197e+02,0.43247e+02,0.28796e+02 /) - kbo(:, 2,49,13) = (/ & - & 0.86101e+01,0.29402e+02,0.42045e+02,0.48354e+02,0.32610e+02 /) - kbo(:, 3,49,13) = (/ & - & 0.10926e+02,0.33234e+02,0.46891e+02,0.53243e+02,0.36305e+02 /) - kbo(:, 4,49,13) = (/ & - & 0.13605e+02,0.37035e+02,0.51562e+02,0.57884e+02,0.39936e+02 /) - kbo(:, 5,49,13) = (/ & - & 0.16513e+02,0.40804e+02,0.56010e+02,0.62260e+02,0.43466e+02 /) - kbo(:, 1,50,13) = (/ & - & 0.60927e+01,0.24264e+02,0.35366e+02,0.41271e+02,0.27331e+02 /) - kbo(:, 2,50,13) = (/ & - & 0.78376e+01,0.27958e+02,0.40194e+02,0.46451e+02,0.31176e+02 /) - kbo(:, 3,50,13) = (/ & - & 0.99975e+01,0.31777e+02,0.45061e+02,0.51408e+02,0.34914e+02 /) - kbo(:, 4,50,13) = (/ & - & 0.12552e+02,0.35595e+02,0.49816e+02,0.56159e+02,0.38569e+02 /) - kbo(:, 5,50,13) = (/ & - & 0.15384e+02,0.39379e+02,0.54352e+02,0.60637e+02,0.42153e+02 /) - kbo(:, 1,51,13) = (/ & - & 0.55303e+01,0.22951e+02,0.33599e+02,0.39341e+02,0.25901e+02 /) - kbo(:, 2,51,13) = (/ & - & 0.71468e+01,0.26574e+02,0.38412e+02,0.44565e+02,0.29771e+02 /) - kbo(:, 3,51,13) = (/ & - & 0.91530e+01,0.30360e+02,0.43274e+02,0.49608e+02,0.33559e+02 /) - kbo(:, 4,51,13) = (/ & - & 0.11570e+02,0.34196e+02,0.48091e+02,0.54457e+02,0.37233e+02 /) - kbo(:, 5,51,13) = (/ & - & 0.14322e+02,0.37996e+02,0.52708e+02,0.59018e+02,0.40851e+02 /) - kbo(:, 1,52,13) = (/ & - & 0.50134e+01,0.21673e+02,0.31833e+02,0.37382e+02,0.24463e+02 /) - kbo(:, 2,52,13) = (/ & - & 0.65135e+01,0.25216e+02,0.36639e+02,0.42658e+02,0.28359e+02 /) - kbo(:, 3,52,13) = (/ & - & 0.83642e+01,0.28959e+02,0.41485e+02,0.47797e+02,0.32187e+02 /) - kbo(:, 4,52,13) = (/ & - & 0.10636e+02,0.32789e+02,0.46344e+02,0.52709e+02,0.35895e+02 /) - kbo(:, 5,52,13) = (/ & - & 0.13285e+02,0.36604e+02,0.51047e+02,0.57380e+02,0.39540e+02 /) - kbo(:, 1,53,13) = (/ & - & 0.45376e+01,0.20438e+02,0.30067e+02,0.35396e+02,0.23001e+02 /) - kbo(:, 2,53,13) = (/ & - & 0.59241e+01,0.23884e+02,0.34872e+02,0.40744e+02,0.26941e+02 /) - kbo(:, 3,53,13) = (/ & - & 0.76354e+01,0.27568e+02,0.39698e+02,0.45939e+02,0.30794e+02 /) - kbo(:, 4,53,13) = (/ & - & 0.97536e+01,0.31378e+02,0.44569e+02,0.50924e+02,0.34545e+02 /) - kbo(:, 5,53,13) = (/ & - & 0.12275e+02,0.35210e+02,0.49348e+02,0.55701e+02,0.38212e+02 /) - kbo(:, 1,54,13) = (/ & - & 0.41389e+01,0.19353e+02,0.28454e+02,0.33563e+02,0.21647e+02 /) - kbo(:, 2,54,13) = (/ & - & 0.54194e+01,0.22692e+02,0.33259e+02,0.38976e+02,0.25632e+02 /) - kbo(:, 3,54,13) = (/ & - & 0.70164e+01,0.26307e+02,0.38072e+02,0.44208e+02,0.29508e+02 /) - kbo(:, 4,54,13) = (/ & - & 0.89936e+01,0.30086e+02,0.42934e+02,0.49276e+02,0.33306e+02 /) - kbo(:, 5,54,13) = (/ & - & 0.11387e+02,0.33931e+02,0.47765e+02,0.54132e+02,0.36987e+02 /) - kbo(:, 1,55,13) = (/ & - & 0.37927e+01,0.18358e+02,0.26927e+02,0.31801e+02,0.20350e+02 /) - kbo(:, 2,55,13) = (/ & - & 0.49755e+01,0.21582e+02,0.31711e+02,0.37250e+02,0.24368e+02 /) - kbo(:, 3,55,13) = (/ & - & 0.64669e+01,0.25119e+02,0.36517e+02,0.42532e+02,0.28268e+02 /) - kbo(:, 4,55,13) = (/ & - & 0.83082e+01,0.28857e+02,0.41362e+02,0.47679e+02,0.32095e+02 /) - kbo(:, 5,55,13) = (/ & - & 0.10573e+02,0.32695e+02,0.46225e+02,0.52593e+02,0.35810e+02 /) - kbo(:, 1,56,13) = (/ & - & 0.34680e+01,0.17374e+02,0.25413e+02,0.30039e+02,0.19069e+02 /) - kbo(:, 2,56,13) = (/ & - & 0.45601e+01,0.20503e+02,0.30163e+02,0.35509e+02,0.23088e+02 /) - kbo(:, 3,56,13) = (/ & - & 0.59518e+01,0.23956e+02,0.34971e+02,0.40858e+02,0.27027e+02 /) - kbo(:, 4,56,13) = (/ & - & 0.76711e+01,0.27642e+02,0.39801e+02,0.46057e+02,0.30878e+02 /) - kbo(:, 5,56,13) = (/ & - & 0.98017e+01,0.31462e+02,0.44674e+02,0.51031e+02,0.34630e+02 /) - kbo(:, 1,57,13) = (/ & - & 0.31571e+01,0.16389e+02,0.23903e+02,0.28270e+02,0.17802e+02 /) - kbo(:, 2,57,13) = (/ & - & 0.41775e+01,0.19466e+02,0.28628e+02,0.33765e+02,0.21796e+02 /) - kbo(:, 3,57,13) = (/ & - & 0.54676e+01,0.22817e+02,0.33433e+02,0.39170e+02,0.25777e+02 /) - kbo(:, 4,57,13) = (/ & - & 0.70767e+01,0.26436e+02,0.38248e+02,0.44404e+02,0.29650e+02 /) - kbo(:, 5,57,13) = (/ & - & 0.90728e+01,0.30224e+02,0.43110e+02,0.49455e+02,0.33445e+02 /) - kbo(:, 1,58,13) = (/ & - & 0.28749e+01,0.15464e+02,0.22485e+02,0.26596e+02,0.16612e+02 /) - kbo(:, 2,58,13) = (/ & - & 0.38438e+01,0.18517e+02,0.27179e+02,0.32099e+02,0.20568e+02 /) - kbo(:, 3,58,13) = (/ & - & 0.50410e+01,0.21758e+02,0.31967e+02,0.37546e+02,0.24584e+02 /) - kbo(:, 4,58,13) = (/ & - & 0.65535e+01,0.25311e+02,0.36779e+02,0.42823e+02,0.28478e+02 /) - kbo(:, 5,58,13) = (/ & - & 0.84187e+01,0.29065e+02,0.41628e+02,0.47951e+02,0.32304e+02 /) - kbo(:, 1,59,13) = (/ & - & 0.27657e+01,0.15098e+02,0.21927e+02,0.25930e+02,0.16137e+02 /) - kbo(:, 2,59,13) = (/ & - & 0.37163e+01,0.18141e+02,0.26603e+02,0.31433e+02,0.20078e+02 /) - kbo(:, 3,59,13) = (/ & - & 0.48770e+01,0.21342e+02,0.31379e+02,0.36884e+02,0.24100e+02 /) - kbo(:, 4,59,13) = (/ & - & 0.63518e+01,0.24865e+02,0.36188e+02,0.42182e+02,0.28007e+02 /) - kbo(:, 5,59,13) = (/ & - & 0.81684e+01,0.28600e+02,0.41035e+02,0.47343e+02,0.31847e+02 /) - kbo(:, 1,13,14) = (/ & - & 0.20563e+03,0.16395e+03,0.15131e+03,0.13928e+03,0.17336e+03 /) - kbo(:, 2,13,14) = (/ & - & 0.20583e+03,0.16346e+03,0.15102e+03,0.13867e+03,0.17209e+03 /) - kbo(:, 3,13,14) = (/ & - & 0.20579e+03,0.16282e+03,0.15051e+03,0.13803e+03,0.17119e+03 /) - kbo(:, 4,13,14) = (/ & - & 0.20538e+03,0.16198e+03,0.15005e+03,0.13746e+03,0.17062e+03 /) - kbo(:, 5,13,14) = (/ & - & 0.20471e+03,0.16100e+03,0.14942e+03,0.13685e+03,0.16998e+03 /) - kbo(:, 1,14,14) = (/ & - & 0.21387e+03,0.17486e+03,0.16410e+03,0.14896e+03,0.17926e+03 /) - kbo(:, 2,14,14) = (/ & - & 0.21398e+03,0.17407e+03,0.16354e+03,0.14849e+03,0.17872e+03 /) - kbo(:, 3,14,14) = (/ & - & 0.21371e+03,0.17306e+03,0.16300e+03,0.14796e+03,0.17838e+03 /) - kbo(:, 4,14,14) = (/ & - & 0.21320e+03,0.17193e+03,0.16238e+03,0.14748e+03,0.17807e+03 /) - kbo(:, 5,14,14) = (/ & - & 0.21239e+03,0.17062e+03,0.16158e+03,0.14661e+03,0.17726e+03 /) - kbo(:, 1,15,14) = (/ & - & 0.21868e+03,0.18392e+03,0.17597e+03,0.15877e+03,0.18409e+03 /) - kbo(:, 2,15,14) = (/ & - & 0.21861e+03,0.18285e+03,0.17533e+03,0.15845e+03,0.18413e+03 /) - kbo(:, 3,15,14) = (/ & - & 0.21838e+03,0.18168e+03,0.17469e+03,0.15814e+03,0.18423e+03 /) - kbo(:, 4,15,14) = (/ & - & 0.21785e+03,0.18028e+03,0.17392e+03,0.15747e+03,0.18391e+03 /) - kbo(:, 5,15,14) = (/ & - & 0.21714e+03,0.17881e+03,0.17281e+03,0.15644e+03,0.18337e+03 /) - kbo(:, 1,16,14) = (/ & - & 0.21989e+03,0.19090e+03,0.18666e+03,0.16823e+03,0.18717e+03 /) - kbo(:, 2,16,14) = (/ & - & 0.22000e+03,0.18989e+03,0.18604e+03,0.16822e+03,0.18797e+03 /) - kbo(:, 3,16,14) = (/ & - & 0.21982e+03,0.18856e+03,0.18533e+03,0.16794e+03,0.18851e+03 /) - kbo(:, 4,16,14) = (/ & - & 0.21954e+03,0.18709e+03,0.18432e+03,0.16715e+03,0.18854e+03 /) - kbo(:, 5,16,14) = (/ & - & 0.21898e+03,0.18542e+03,0.18303e+03,0.16600e+03,0.18839e+03 /) - kbo(:, 1,17,14) = (/ & - & 0.21793e+03,0.19596e+03,0.19603e+03,0.17703e+03,0.18857e+03 /) - kbo(:, 2,17,14) = (/ & - & 0.21821e+03,0.19492e+03,0.19548e+03,0.17725e+03,0.19023e+03 /) - kbo(:, 3,17,14) = (/ & - & 0.21850e+03,0.19369e+03,0.19462e+03,0.17701e+03,0.19133e+03 /) - kbo(:, 4,17,14) = (/ & - & 0.21855e+03,0.19221e+03,0.19343e+03,0.17616e+03,0.19194e+03 /) - kbo(:, 5,17,14) = (/ & - & 0.21839e+03,0.19057e+03,0.19206e+03,0.17490e+03,0.19225e+03 /) - kbo(:, 1,18,14) = (/ & - & 0.21311e+03,0.19935e+03,0.20385e+03,0.18492e+03,0.18864e+03 /) - kbo(:, 2,18,14) = (/ & - & 0.21399e+03,0.19838e+03,0.20339e+03,0.18536e+03,0.19117e+03 /) - kbo(:, 3,18,14) = (/ & - & 0.21477e+03,0.19727e+03,0.20251e+03,0.18517e+03,0.19296e+03 /) - kbo(:, 4,18,14) = (/ & - & 0.21537e+03,0.19602e+03,0.20131e+03,0.18433e+03,0.19426e+03 /) - kbo(:, 5,18,14) = (/ & - & 0.21594e+03,0.19460e+03,0.19989e+03,0.18299e+03,0.19511e+03 /) - kbo(:, 1,19,14) = (/ & - & 0.20628e+03,0.20131e+03,0.21018e+03,0.19181e+03,0.18780e+03 /) - kbo(:, 2,19,14) = (/ & - & 0.20786e+03,0.20061e+03,0.20985e+03,0.19249e+03,0.19117e+03 /) - kbo(:, 3,19,14) = (/ & - & 0.20939e+03,0.19978e+03,0.20915e+03,0.19245e+03,0.19379e+03 /) - kbo(:, 4,19,14) = (/ & - & 0.21078e+03,0.19876e+03,0.20808e+03,0.19159e+03,0.19578e+03 /) - kbo(:, 5,19,14) = (/ & - & 0.21196e+03,0.19762e+03,0.20666e+03,0.19020e+03,0.19726e+03 /) - kbo(:, 1,20,14) = (/ & - & 0.19806e+03,0.20215e+03,0.21525e+03,0.19781e+03,0.18646e+03 /) - kbo(:, 2,20,14) = (/ & - & 0.20054e+03,0.20180e+03,0.21527e+03,0.19874e+03,0.19072e+03 /) - kbo(:, 3,20,14) = (/ & - & 0.20298e+03,0.20132e+03,0.21478e+03,0.19877e+03,0.19413e+03 /) - kbo(:, 4,20,14) = (/ & - & 0.20522e+03,0.20070e+03,0.21384e+03,0.19793e+03,0.19681e+03 /) - kbo(:, 5,20,14) = (/ & - & 0.20725e+03,0.19975e+03,0.21249e+03,0.19659e+03,0.19899e+03 /) - kbo(:, 1,21,14) = (/ & - & 0.18919e+03,0.20217e+03,0.21942e+03,0.20291e+03,0.18499e+03 /) - kbo(:, 2,21,14) = (/ & - & 0.19268e+03,0.20239e+03,0.21974e+03,0.20415e+03,0.19012e+03 /) - kbo(:, 3,21,14) = (/ & - & 0.19609e+03,0.20231e+03,0.21947e+03,0.20425e+03,0.19432e+03 /) - kbo(:, 4,21,14) = (/ & - & 0.19926e+03,0.20201e+03,0.21866e+03,0.20346e+03,0.19770e+03 /) - kbo(:, 5,21,14) = (/ & - & 0.20224e+03,0.20136e+03,0.21742e+03,0.20212e+03,0.20044e+03 /) - kbo(:, 1,22,14) = (/ & - & 0.18064e+03,0.20182e+03,0.22276e+03,0.20740e+03,0.18409e+03 /) - kbo(:, 2,22,14) = (/ & - & 0.18513e+03,0.20253e+03,0.22341e+03,0.20876e+03,0.18988e+03 /) - kbo(:, 3,22,14) = (/ & - & 0.18951e+03,0.20287e+03,0.22329e+03,0.20890e+03,0.19474e+03 /) - kbo(:, 4,22,14) = (/ & - & 0.19368e+03,0.20283e+03,0.22259e+03,0.20812e+03,0.19869e+03 /) - kbo(:, 5,22,14) = (/ & - & 0.19752e+03,0.20248e+03,0.22143e+03,0.20676e+03,0.20185e+03 /) - kbo(:, 1,23,14) = (/ & - & 0.17261e+03,0.20129e+03,0.22560e+03,0.21126e+03,0.18360e+03 /) - kbo(:, 2,23,14) = (/ & - & 0.17813e+03,0.20255e+03,0.22645e+03,0.21277e+03,0.18993e+03 /) - kbo(:, 3,23,14) = (/ & - & 0.18347e+03,0.20322e+03,0.22649e+03,0.21288e+03,0.19534e+03 /) - kbo(:, 4,23,14) = (/ & - & 0.18858e+03,0.20345e+03,0.22593e+03,0.21211e+03,0.19972e+03 /) - kbo(:, 5,23,14) = (/ & - & 0.19325e+03,0.20330e+03,0.22470e+03,0.21066e+03,0.20314e+03 /) - kbo(:, 1,24,14) = (/ & - & 0.16550e+03,0.20079e+03,0.22797e+03,0.21459e+03,0.18352e+03 /) - kbo(:, 2,24,14) = (/ & - & 0.17199e+03,0.20247e+03,0.22899e+03,0.21614e+03,0.19031e+03 /) - kbo(:, 3,24,14) = (/ & - & 0.17829e+03,0.20349e+03,0.22920e+03,0.21621e+03,0.19610e+03 /) - kbo(:, 4,24,14) = (/ & - & 0.18424e+03,0.20395e+03,0.22865e+03,0.21544e+03,0.20080e+03 /) - kbo(:, 5,24,14) = (/ & - & 0.18966e+03,0.20393e+03,0.22735e+03,0.21388e+03,0.20437e+03 /) - kbo(:, 1,25,14) = (/ & - & 0.15949e+03,0.20048e+03,0.22999e+03,0.21758e+03,0.18395e+03 /) - kbo(:, 2,25,14) = (/ & - & 0.16698e+03,0.20247e+03,0.23119e+03,0.21903e+03,0.19108e+03 /) - kbo(:, 3,25,14) = (/ & - & 0.17411e+03,0.20370e+03,0.23144e+03,0.21904e+03,0.19711e+03 /) - kbo(:, 4,25,14) = (/ & - & 0.18088e+03,0.20435e+03,0.23082e+03,0.21817e+03,0.20192e+03 /) - kbo(:, 5,25,14) = (/ & - & 0.18710e+03,0.20450e+03,0.22950e+03,0.21648e+03,0.20559e+03 /) - kbo(:, 1,26,14) = (/ & - & 0.15479e+03,0.20038e+03,0.23181e+03,0.22016e+03,0.18490e+03 /) - kbo(:, 2,26,14) = (/ & - & 0.16322e+03,0.20258e+03,0.23307e+03,0.22145e+03,0.19222e+03 /) - kbo(:, 3,26,14) = (/ & - & 0.17119e+03,0.20401e+03,0.23326e+03,0.22140e+03,0.19831e+03 /) - kbo(:, 4,26,14) = (/ & - & 0.17866e+03,0.20478e+03,0.23259e+03,0.22038e+03,0.20315e+03 /) - kbo(:, 5,26,14) = (/ & - & 0.18553e+03,0.20498e+03,0.23122e+03,0.21854e+03,0.20685e+03 /) - kbo(:, 1,27,14) = (/ & - & 0.15143e+03,0.20049e+03,0.23344e+03,0.22241e+03,0.18615e+03 /) - kbo(:, 2,27,14) = (/ & - & 0.16070e+03,0.20279e+03,0.23465e+03,0.22352e+03,0.19353e+03 /) - kbo(:, 3,27,14) = (/ & - & 0.16932e+03,0.20430e+03,0.23473e+03,0.22331e+03,0.19960e+03 /) - kbo(:, 4,27,14) = (/ & - & 0.17737e+03,0.20518e+03,0.23402e+03,0.22212e+03,0.20440e+03 /) - kbo(:, 5,27,14) = (/ & - & 0.18472e+03,0.20537e+03,0.23257e+03,0.22015e+03,0.20807e+03 /) - kbo(:, 1,28,14) = (/ & - & 0.14935e+03,0.20078e+03,0.23487e+03,0.22436e+03,0.18762e+03 /) - kbo(:, 2,28,14) = (/ & - & 0.15926e+03,0.20312e+03,0.23597e+03,0.22523e+03,0.19491e+03 /) - kbo(:, 3,28,14) = (/ & - & 0.16839e+03,0.20467e+03,0.23597e+03,0.22484e+03,0.20092e+03 /) - kbo(:, 4,28,14) = (/ & - & 0.17687e+03,0.20554e+03,0.23516e+03,0.22345e+03,0.20562e+03 /) - kbo(:, 5,28,14) = (/ & - & 0.18453e+03,0.20570e+03,0.23357e+03,0.22135e+03,0.20921e+03 /) - kbo(:, 1,29,14) = (/ & - & 0.14844e+03,0.20117e+03,0.23614e+03,0.22601e+03,0.18927e+03 /) - kbo(:, 2,29,14) = (/ & - & 0.15878e+03,0.20350e+03,0.23707e+03,0.22664e+03,0.19642e+03 /) - kbo(:, 3,29,14) = (/ & - & 0.16829e+03,0.20505e+03,0.23696e+03,0.22601e+03,0.20229e+03 /) - kbo(:, 4,29,14) = (/ & - & 0.17702e+03,0.20585e+03,0.23602e+03,0.22445e+03,0.20685e+03 /) - kbo(:, 5,29,14) = (/ & - & 0.18487e+03,0.20599e+03,0.23430e+03,0.22220e+03,0.21031e+03 /) - kbo(:, 1,30,14) = (/ & - & 0.14841e+03,0.20165e+03,0.23724e+03,0.22742e+03,0.19101e+03 /) - kbo(:, 2,30,14) = (/ & - & 0.15903e+03,0.20395e+03,0.23798e+03,0.22774e+03,0.19796e+03 /) - kbo(:, 3,30,14) = (/ & - & 0.16878e+03,0.20543e+03,0.23774e+03,0.22689e+03,0.20367e+03 /) - kbo(:, 4,30,14) = (/ & - & 0.17765e+03,0.20614e+03,0.23662e+03,0.22515e+03,0.20804e+03 /) - kbo(:, 5,30,14) = (/ & - & 0.18556e+03,0.20626e+03,0.23478e+03,0.22274e+03,0.21133e+03 /) - kbo(:, 1,31,14) = (/ & - & 0.14910e+03,0.20219e+03,0.23816e+03,0.22857e+03,0.19280e+03 /) - kbo(:, 2,31,14) = (/ & - & 0.15987e+03,0.20442e+03,0.23873e+03,0.22860e+03,0.19955e+03 /) - kbo(:, 3,31,14) = (/ & - & 0.16974e+03,0.20578e+03,0.23830e+03,0.22751e+03,0.20503e+03 /) - kbo(:, 4,31,14) = (/ & - & 0.17870e+03,0.20640e+03,0.23703e+03,0.22559e+03,0.20917e+03 /) - kbo(:, 5,31,14) = (/ & - & 0.18656e+03,0.20647e+03,0.23504e+03,0.22303e+03,0.21232e+03 /) - kbo(:, 1,32,14) = (/ & - & 0.15031e+03,0.20279e+03,0.23897e+03,0.22949e+03,0.19459e+03 /) - kbo(:, 2,32,14) = (/ & - & 0.16119e+03,0.20489e+03,0.23931e+03,0.22922e+03,0.20113e+03 /) - kbo(:, 3,32,14) = (/ & - & 0.17110e+03,0.20610e+03,0.23869e+03,0.22791e+03,0.20634e+03 /) - kbo(:, 4,32,14) = (/ & - & 0.18002e+03,0.20662e+03,0.23723e+03,0.22582e+03,0.21029e+03 /) - kbo(:, 5,32,14) = (/ & - & 0.18777e+03,0.20659e+03,0.23510e+03,0.22308e+03,0.21322e+03 /) - kbo(:, 1,33,14) = (/ & - & 0.15197e+03,0.20341e+03,0.23965e+03,0.23019e+03,0.19639e+03 /) - kbo(:, 2,33,14) = (/ & - & 0.16285e+03,0.20534e+03,0.23976e+03,0.22964e+03,0.20267e+03 /) - kbo(:, 3,33,14) = (/ & - & 0.17270e+03,0.20638e+03,0.23893e+03,0.22811e+03,0.20758e+03 /) - kbo(:, 4,33,14) = (/ & - & 0.18151e+03,0.20680e+03,0.23727e+03,0.22584e+03,0.21132e+03 /) - kbo(:, 5,33,14) = (/ & - & 0.18912e+03,0.20665e+03,0.23500e+03,0.22296e+03,0.21406e+03 /) - kbo(:, 1,34,14) = (/ & - & 0.15352e+03,0.20391e+03,0.24014e+03,0.23069e+03,0.19790e+03 /) - kbo(:, 2,34,14) = (/ & - & 0.16437e+03,0.20566e+03,0.24006e+03,0.22992e+03,0.20396e+03 /) - kbo(:, 3,34,14) = (/ & - & 0.17416e+03,0.20662e+03,0.23907e+03,0.22823e+03,0.20863e+03 /) - kbo(:, 4,34,14) = (/ & - & 0.18285e+03,0.20695e+03,0.23728e+03,0.22580e+03,0.21218e+03 /) - kbo(:, 5,34,14) = (/ & - & 0.19033e+03,0.20667e+03,0.23487e+03,0.22280e+03,0.21474e+03 /) - kbo(:, 1,35,14) = (/ & - & 0.15421e+03,0.20418e+03,0.24052e+03,0.23110e+03,0.19876e+03 /) - kbo(:, 2,35,14) = (/ & - & 0.16507e+03,0.20586e+03,0.24033e+03,0.23020e+03,0.20468e+03 /) - kbo(:, 3,35,14) = (/ & - & 0.17486e+03,0.20677e+03,0.23924e+03,0.22841e+03,0.20923e+03 /) - kbo(:, 4,35,14) = (/ & - & 0.18350e+03,0.20705e+03,0.23737e+03,0.22589e+03,0.21269e+03 /) - kbo(:, 5,35,14) = (/ & - & 0.19094e+03,0.20669e+03,0.23489e+03,0.22281e+03,0.21514e+03 /) - kbo(:, 1,36,14) = (/ & - & 0.15381e+03,0.20424e+03,0.24080e+03,0.23145e+03,0.19888e+03 /) - kbo(:, 2,36,14) = (/ & - & 0.16478e+03,0.20592e+03,0.24060e+03,0.23055e+03,0.20484e+03 /) - kbo(:, 3,36,14) = (/ & - & 0.17464e+03,0.20684e+03,0.23950e+03,0.22874e+03,0.20938e+03 /) - kbo(:, 4,36,14) = (/ & - & 0.18336e+03,0.20715e+03,0.23762e+03,0.22618e+03,0.21284e+03 /) - kbo(:, 5,36,14) = (/ & - & 0.19086e+03,0.20678e+03,0.23514e+03,0.22311e+03,0.21532e+03 /) - kbo(:, 1,37,14) = (/ & - & 0.15177e+03,0.20394e+03,0.24096e+03,0.23178e+03,0.19802e+03 /) - kbo(:, 2,37,14) = (/ & - & 0.16298e+03,0.20578e+03,0.24091e+03,0.23102e+03,0.20416e+03 /) - kbo(:, 3,37,14) = (/ & - & 0.17307e+03,0.20681e+03,0.23994e+03,0.22934e+03,0.20893e+03 /) - kbo(:, 4,37,14) = (/ & - & 0.18204e+03,0.20721e+03,0.23818e+03,0.22688e+03,0.21255e+03 /) - kbo(:, 5,37,14) = (/ & - & 0.18973e+03,0.20695e+03,0.23573e+03,0.22383e+03,0.21516e+03 /) - kbo(:, 1,38,14) = (/ & - & 0.14968e+03,0.20359e+03,0.24104e+03,0.23202e+03,0.19703e+03 /) - kbo(:, 2,38,14) = (/ & - & 0.16113e+03,0.20560e+03,0.24116e+03,0.23143e+03,0.20341e+03 /) - kbo(:, 3,38,14) = (/ & - & 0.17144e+03,0.20674e+03,0.24033e+03,0.22988e+03,0.20838e+03 /) - kbo(:, 4,38,14) = (/ & - & 0.18063e+03,0.20724e+03,0.23866e+03,0.22752e+03,0.21216e+03 /) - kbo(:, 5,38,14) = (/ & - & 0.18855e+03,0.20710e+03,0.23632e+03,0.22453e+03,0.21493e+03 /) - kbo(:, 1,39,14) = (/ & - & 0.14764e+03,0.20322e+03,0.24106e+03,0.23220e+03,0.19604e+03 /) - kbo(:, 2,39,14) = (/ & - & 0.15932e+03,0.20540e+03,0.24137e+03,0.23180e+03,0.20262e+03 /) - kbo(:, 3,39,14) = (/ & - & 0.16984e+03,0.20665e+03,0.24065e+03,0.23036e+03,0.20781e+03 /) - kbo(:, 4,39,14) = (/ & - & 0.17923e+03,0.20725e+03,0.23910e+03,0.22810e+03,0.21175e+03 /) - kbo(:, 5,39,14) = (/ & - & 0.18737e+03,0.20722e+03,0.23684e+03,0.22517e+03,0.21467e+03 /) - kbo(:, 1,40,14) = (/ & - & 0.14438e+03,0.20254e+03,0.24092e+03,0.23225e+03,0.19425e+03 /) - kbo(:, 2,40,14) = (/ & - & 0.15633e+03,0.20498e+03,0.24152e+03,0.23217e+03,0.20115e+03 /) - kbo(:, 3,40,14) = (/ & - & 0.16718e+03,0.20642e+03,0.24105e+03,0.23096e+03,0.20672e+03 /) - kbo(:, 4,40,14) = (/ & - & 0.17690e+03,0.20720e+03,0.23969e+03,0.22887e+03,0.21093e+03 /) - kbo(:, 5,40,14) = (/ & - & 0.18539e+03,0.20733e+03,0.23758e+03,0.22609e+03,0.21411e+03 /) - kbo(:, 1,41,14) = (/ & - & 0.14093e+03,0.20170e+03,0.24062e+03,0.23214e+03,0.19226e+03 /) - kbo(:, 2,41,14) = (/ & - & 0.15309e+03,0.20441e+03,0.24155e+03,0.23243e+03,0.19951e+03 /) - kbo(:, 3,41,14) = (/ & - & 0.16434e+03,0.20613e+03,0.24136e+03,0.23149e+03,0.20545e+03 /) - kbo(:, 4,41,14) = (/ & - & 0.17439e+03,0.20709e+03,0.24022e+03,0.22963e+03,0.21000e+03 /) - kbo(:, 5,41,14) = (/ & - & 0.18325e+03,0.20739e+03,0.23829e+03,0.22700e+03,0.21344e+03 /) - kbo(:, 1,42,14) = (/ & - & 0.13742e+03,0.20072e+03,0.24018e+03,0.23188e+03,0.19017e+03 /) - kbo(:, 2,42,14) = (/ & - & 0.14987e+03,0.20381e+03,0.24151e+03,0.23260e+03,0.19778e+03 /) - kbo(:, 3,42,14) = (/ & - & 0.16144e+03,0.20580e+03,0.24159e+03,0.23194e+03,0.20408e+03 /) - kbo(:, 4,42,14) = (/ & - & 0.17182e+03,0.20693e+03,0.24068e+03,0.23030e+03,0.20897e+03 /) - kbo(:, 5,42,14) = (/ & - & 0.18101e+03,0.20739e+03,0.23894e+03,0.22785e+03,0.21269e+03 /) - kbo(:, 1,43,14) = (/ & - & 0.13316e+03,0.19946e+03,0.23952e+03,0.23134e+03,0.18746e+03 /) - kbo(:, 2,43,14) = (/ & - & 0.14590e+03,0.20299e+03,0.24131e+03,0.23265e+03,0.19555e+03 /) - kbo(:, 3,43,14) = (/ & - & 0.15782e+03,0.20531e+03,0.24176e+03,0.23237e+03,0.20228e+03 /) - kbo(:, 4,43,14) = (/ & - & 0.16860e+03,0.20666e+03,0.24113e+03,0.23099e+03,0.20761e+03 /) - kbo(:, 5,43,14) = (/ & - & 0.17818e+03,0.20733e+03,0.23964e+03,0.22878e+03,0.21166e+03 /) - kbo(:, 1,44,14) = (/ & - & 0.12851e+03,0.19793e+03,0.23860e+03,0.23051e+03,0.18440e+03 /) - kbo(:, 2,44,14) = (/ & - & 0.14156e+03,0.20195e+03,0.24092e+03,0.23249e+03,0.19298e+03 /) - kbo(:, 3,44,14) = (/ & - & 0.15381e+03,0.20468e+03,0.24182e+03,0.23268e+03,0.20015e+03 /) - kbo(:, 4,44,14) = (/ & - & 0.16494e+03,0.20625e+03,0.24148e+03,0.23163e+03,0.20597e+03 /) - kbo(:, 5,44,14) = (/ & - & 0.17499e+03,0.20719e+03,0.24029e+03,0.22969e+03,0.21043e+03 /) - kbo(:, 1,45,14) = (/ & - & 0.12377e+03,0.19622e+03,0.23745e+03,0.22938e+03,0.18114e+03 /) - kbo(:, 2,45,14) = (/ & - & 0.13713e+03,0.20074e+03,0.24035e+03,0.23210e+03,0.19024e+03 /) - kbo(:, 3,45,14) = (/ & - & 0.14969e+03,0.20389e+03,0.24171e+03,0.23283e+03,0.19787e+03 /) - kbo(:, 4,45,14) = (/ & - & 0.16122e+03,0.20580e+03,0.24172e+03,0.23215e+03,0.20417e+03 /) - kbo(:, 5,45,14) = (/ & - & 0.17169e+03,0.20697e+03,0.24085e+03,0.23051e+03,0.20907e+03 /) - kbo(:, 1,46,14) = (/ & - & 0.11871e+03,0.19418e+03,0.23600e+03,0.22790e+03,0.17747e+03 /) - kbo(:, 2,46,14) = (/ & - & 0.13231e+03,0.19929e+03,0.23954e+03,0.23143e+03,0.18712e+03 /) - kbo(:, 3,46,14) = (/ & - & 0.14514e+03,0.20288e+03,0.24138e+03,0.23280e+03,0.19526e+03 /) - kbo(:, 4,46,14) = (/ & - & 0.15711e+03,0.20523e+03,0.24187e+03,0.23257e+03,0.20207e+03 /) - kbo(:, 5,46,14) = (/ & - & 0.16802e+03,0.20664e+03,0.24132e+03,0.23126e+03,0.20749e+03 /) - kbo(:, 1,47,14) = (/ & - & 0.11295e+03,0.19159e+03,0.23398e+03,0.22588e+03,0.17313e+03 /) - kbo(:, 2,47,14) = (/ & - & 0.12683e+03,0.19741e+03,0.23835e+03,0.23031e+03,0.18342e+03 /) - kbo(:, 3,47,14) = (/ & - & 0.13999e+03,0.20159e+03,0.24085e+03,0.23253e+03,0.19217e+03 /) - kbo(:, 4,47,14) = (/ & - & 0.15234e+03,0.20442e+03,0.24186e+03,0.23286e+03,0.19949e+03 /) - kbo(:, 5,47,14) = (/ & - & 0.16373e+03,0.20618e+03,0.24169e+03,0.23194e+03,0.20549e+03 /) - kbo(:, 1,48,14) = (/ & - & 0.10712e+03,0.18871e+03,0.23159e+03,0.22347e+03,0.16850e+03 /) - kbo(:, 2,48,14) = (/ & - & 0.12124e+03,0.19529e+03,0.23687e+03,0.22882e+03,0.17946e+03 /) - kbo(:, 3,48,14) = (/ & - & 0.13473e+03,0.20007e+03,0.24005e+03,0.23191e+03,0.18883e+03 /) - kbo(:, 4,48,14) = (/ & - & 0.14742e+03,0.20342e+03,0.24164e+03,0.23294e+03,0.19670e+03 /) - kbo(:, 5,48,14) = (/ & - & 0.15928e+03,0.20562e+03,0.24192e+03,0.23247e+03,0.20325e+03 /) - kbo(:, 1,49,14) = (/ & - & 0.10120e+03,0.18550e+03,0.22880e+03,0.22071e+03,0.16363e+03 /) - kbo(:, 2,49,14) = (/ & - & 0.11556e+03,0.19285e+03,0.23504e+03,0.22697e+03,0.17524e+03 /) - kbo(:, 3,49,14) = (/ & - & 0.12932e+03,0.19832e+03,0.23901e+03,0.23097e+03,0.18524e+03 /) - kbo(:, 4,49,14) = (/ & - & 0.14238e+03,0.20226e+03,0.24120e+03,0.23278e+03,0.19370e+03 /) - kbo(:, 5,49,14) = (/ & - & 0.15460e+03,0.20488e+03,0.24199e+03,0.23283e+03,0.20078e+03 /) - kbo(:, 1,50,14) = (/ & - & 0.95603e+02,0.18216e+03,0.22576e+03,0.21768e+03,0.15878e+03 /) - kbo(:, 2,50,14) = (/ & - & 0.11015e+03,0.19031e+03,0.23298e+03,0.22490e+03,0.17105e+03 /) - kbo(:, 3,50,14) = (/ & - & 0.12415e+03,0.19646e+03,0.23775e+03,0.22975e+03,0.18166e+03 /) - kbo(:, 4,50,14) = (/ & - & 0.13752e+03,0.20094e+03,0.24058e+03,0.23236e+03,0.19069e+03 /) - kbo(:, 5,50,14) = (/ & - & 0.15007e+03,0.20403e+03,0.24187e+03,0.23299e+03,0.19826e+03 /) - kbo(:, 1,51,14) = (/ & - & 0.90137e+02,0.17868e+03,0.22240e+03,0.21442e+03,0.15384e+03 /) - kbo(:, 2,51,14) = (/ & - & 0.10484e+03,0.18757e+03,0.23066e+03,0.22258e+03,0.16677e+03 /) - kbo(:, 3,51,14) = (/ & - & 0.11907e+03,0.19442e+03,0.23628e+03,0.22824e+03,0.17796e+03 /) - kbo(:, 4,51,14) = (/ & - & 0.13269e+03,0.19948e+03,0.23976e+03,0.23167e+03,0.18756e+03 /) - kbo(:, 5,51,14) = (/ & - & 0.14552e+03,0.20302e+03,0.24154e+03,0.23296e+03,0.19565e+03 /) - kbo(:, 1,52,14) = (/ & - & 0.84690e+02,0.17496e+03,0.21864e+03,0.21080e+03,0.14862e+03 /) - kbo(:, 2,52,14) = (/ & - & 0.99471e+02,0.18453e+03,0.22798e+03,0.21992e+03,0.16225e+03 /) - kbo(:, 3,52,14) = (/ & - & 0.11391e+03,0.19213e+03,0.23451e+03,0.22644e+03,0.17406e+03 /) - kbo(:, 4,52,14) = (/ & - & 0.12777e+03,0.19781e+03,0.23872e+03,0.23070e+03,0.18424e+03 /) - kbo(:, 5,52,14) = (/ & - & 0.14091e+03,0.20189e+03,0.24107e+03,0.23273e+03,0.19286e+03 /) - kbo(:, 1,53,14) = (/ & - & 0.79262e+02,0.17095e+03,0.21436e+03,0.20681e+03,0.14317e+03 /) - kbo(:, 2,53,14) = (/ & - & 0.94047e+02,0.18126e+03,0.22494e+03,0.21690e+03,0.15748e+03 /) - kbo(:, 3,53,14) = (/ & - & 0.10865e+03,0.18958e+03,0.23241e+03,0.22434e+03,0.16994e+03 /) - kbo(:, 4,53,14) = (/ & - & 0.12274e+03,0.19595e+03,0.23742e+03,0.22941e+03,0.18070e+03 /) - kbo(:, 5,53,14) = (/ & - & 0.13618e+03,0.20056e+03,0.24040e+03,0.23224e+03,0.18988e+03 /) - kbo(:, 1,54,14) = (/ & - & 0.74312e+02,0.16701e+03,0.21000e+03,0.20283e+03,0.13801e+03 /) - kbo(:, 2,54,14) = (/ & - & 0.89059e+02,0.17802e+03,0.22177e+03,0.21381e+03,0.15289e+03 /) - kbo(:, 3,54,14) = (/ & - & 0.10379e+03,0.18701e+03,0.23021e+03,0.22214e+03,0.16595e+03 /) - kbo(:, 4,54,14) = (/ & - & 0.11808e+03,0.19403e+03,0.23602e+03,0.22797e+03,0.17728e+03 /) - kbo(:, 5,54,14) = (/ & - & 0.13174e+03,0.19918e+03,0.23961e+03,0.23155e+03,0.18697e+03 /) - kbo(:, 1,55,14) = (/ & - & 0.69615e+02,0.16296e+03,0.20540e+03,0.19866e+03,0.13288e+03 /) - kbo(:, 2,55,14) = (/ & - & 0.84276e+02,0.17466e+03,0.21835e+03,0.21056e+03,0.14828e+03 /) - kbo(:, 3,55,14) = (/ & - & 0.99066e+02,0.18433e+03,0.22782e+03,0.21977e+03,0.16197e+03 /) - kbo(:, 4,55,14) = (/ & - & 0.11354e+03,0.19199e+03,0.23442e+03,0.22636e+03,0.17383e+03 /) - kbo(:, 5,55,14) = (/ & - & 0.12741e+03,0.19770e+03,0.23866e+03,0.23065e+03,0.18403e+03 /) - kbo(:, 1,56,14) = (/ & - & 0.64944e+02,0.15877e+03,0.20044e+03,0.19421e+03,0.12762e+03 /) - kbo(:, 2,56,14) = (/ & - & 0.79524e+02,0.17114e+03,0.21461e+03,0.20707e+03,0.14351e+03 /) - kbo(:, 3,56,14) = (/ & - & 0.94323e+02,0.18144e+03,0.22514e+03,0.21711e+03,0.15778e+03 /) - kbo(:, 4,56,14) = (/ & - & 0.10894e+03,0.18976e+03,0.23257e+03,0.22452e+03,0.17022e+03 /) - kbo(:, 5,56,14) = (/ & - & 0.12301e+03,0.19605e+03,0.23752e+03,0.22954e+03,0.18094e+03 /) - kbo(:, 1,57,14) = (/ & - & 0.60353e+02,0.15431e+03,0.19514e+03,0.18945e+03,0.12225e+03 /) - kbo(:, 2,57,14) = (/ & - & 0.74815e+02,0.16742e+03,0.21049e+03,0.20329e+03,0.13860e+03 /) - kbo(:, 3,57,14) = (/ & - & 0.89567e+02,0.17837e+03,0.22214e+03,0.21419e+03,0.15343e+03 /) - kbo(:, 4,57,14) = (/ & - & 0.10431e+03,0.18733e+03,0.23050e+03,0.22244e+03,0.16644e+03 /) - kbo(:, 5,57,14) = (/ & - & 0.11856e+03,0.19423e+03,0.23618e+03,0.22816e+03,0.17767e+03 /) - kbo(:, 1,58,14) = (/ & - & 0.56098e+02,0.14991e+03,0.18980e+03,0.18465e+03,0.11706e+03 /) - kbo(:, 2,58,14) = (/ & - & 0.70377e+02,0.16367e+03,0.20622e+03,0.19942e+03,0.13378e+03 /) - kbo(:, 3,58,14) = (/ & - & 0.85049e+02,0.17528e+03,0.21902e+03,0.21119e+03,0.14910e+03 /) - kbo(:, 4,58,14) = (/ & - & 0.99857e+02,0.18482e+03,0.22827e+03,0.22022e+03,0.16268e+03 /) - kbo(:, 5,58,14) = (/ & - & 0.11428e+03,0.19233e+03,0.23470e+03,0.22666e+03,0.17444e+03 /) - kbo(:, 1,59,14) = (/ & - & 0.54418e+02,0.14809e+03,0.18754e+03,0.18261e+03,0.11495e+03 /) - kbo(:, 2,59,14) = (/ & - & 0.68598e+02,0.16210e+03,0.20441e+03,0.19778e+03,0.13180e+03 /) - kbo(:, 3,59,14) = (/ & - & 0.83246e+02,0.17398e+03,0.21768e+03,0.20993e+03,0.14733e+03 /) - kbo(:, 4,59,14) = (/ & - & 0.98055e+02,0.18375e+03,0.22732e+03,0.21927e+03,0.16113e+03 /) - kbo(:, 5,59,14) = (/ & - & 0.11255e+03,0.19153e+03,0.23406e+03,0.22601e+03,0.17310e+03 /) - kbo(:, 1,13,15) = (/ & - & 0.40932e+03,0.30758e+03,0.26133e+03,0.32395e+03,0.43211e+03 /) - kbo(:, 2,13,15) = (/ & - & 0.41123e+03,0.30908e+03,0.25921e+03,0.31805e+03,0.42431e+03 /) - kbo(:, 3,13,15) = (/ & - & 0.41219e+03,0.30983e+03,0.25685e+03,0.31214e+03,0.41639e+03 /) - kbo(:, 4,13,15) = (/ & - & 0.41228e+03,0.30991e+03,0.25419e+03,0.30614e+03,0.40836e+03 /) - kbo(:, 5,13,15) = (/ & - & 0.41130e+03,0.30917e+03,0.25126e+03,0.30055e+03,0.40088e+03 /) - kbo(:, 1,14,15) = (/ & - & 0.46527e+03,0.34966e+03,0.29823e+03,0.35533e+03,0.47402e+03 /) - kbo(:, 2,14,15) = (/ & - & 0.46656e+03,0.35065e+03,0.29540e+03,0.34864e+03,0.46510e+03 /) - kbo(:, 3,14,15) = (/ & - & 0.46685e+03,0.35090e+03,0.29209e+03,0.34189e+03,0.45610e+03 /) - kbo(:, 4,14,15) = (/ & - & 0.46575e+03,0.35012e+03,0.28845e+03,0.33526e+03,0.44716e+03 /) - kbo(:, 5,14,15) = (/ & - & 0.46388e+03,0.34873e+03,0.28457e+03,0.32965e+03,0.43950e+03 /) - kbo(:, 1,15,15) = (/ & - & 0.52376e+03,0.39388e+03,0.33756e+03,0.38636e+03,0.51543e+03 /) - kbo(:, 2,15,15) = (/ & - & 0.52445e+03,0.39416e+03,0.33368e+03,0.37892e+03,0.50548e+03 /) - kbo(:, 3,15,15) = (/ & - & 0.52345e+03,0.39343e+03,0.32922e+03,0.37141e+03,0.49535e+03 /) - kbo(:, 4,15,15) = (/ & - & 0.52134e+03,0.39188e+03,0.32434e+03,0.36468e+03,0.48621e+03 /) - kbo(:, 5,15,15) = (/ & - & 0.51791e+03,0.38933e+03,0.31931e+03,0.35855e+03,0.47766e+03 /) - kbo(:, 1,16,15) = (/ & - & 0.58401e+03,0.43962e+03,0.37845e+03,0.41772e+03,0.55681e+03 /) - kbo(:, 2,16,15) = (/ & - & 0.58308e+03,0.43844e+03,0.37324e+03,0.40927e+03,0.54538e+03 /) - kbo(:, 3,16,15) = (/ & - & 0.58094e+03,0.43662e+03,0.36730e+03,0.40107e+03,0.53429e+03 /) - kbo(:, 4,16,15) = (/ & - & 0.57721e+03,0.43385e+03,0.36102e+03,0.39367e+03,0.52421e+03 /) - kbo(:, 5,16,15) = (/ & - & 0.57218e+03,0.43010e+03,0.35444e+03,0.38654e+03,0.51433e+03 /) - kbo(:, 1,17,15) = (/ & - & 0.64407e+03,0.48569e+03,0.41994e+03,0.44912e+03,0.59692e+03 /) - kbo(:, 2,17,15) = (/ & - & 0.64180e+03,0.48304e+03,0.41300e+03,0.43957e+03,0.58409e+03 /) - kbo(:, 3,17,15) = (/ & - & 0.63774e+03,0.47951e+03,0.40543e+03,0.43048e+03,0.57188e+03 /) - kbo(:, 4,17,15) = (/ & - & 0.63221e+03,0.47511e+03,0.39752e+03,0.42195e+03,0.56041e+03 /) - kbo(:, 5,17,15) = (/ & - & 0.62531e+03,0.46997e+03,0.38917e+03,0.41353e+03,0.54901e+03 /) - kbo(:, 1,18,15) = (/ & - & 0.70302e+03,0.53125e+03,0.46110e+03,0.48015e+03,0.63499e+03 /) - kbo(:, 2,18,15) = (/ & - & 0.69876e+03,0.52681e+03,0.45218e+03,0.46935e+03,0.62082e+03 /) - kbo(:, 3,18,15) = (/ & - & 0.69273e+03,0.52130e+03,0.44272e+03,0.45897e+03,0.60731e+03 /) - kbo(:, 4,18,15) = (/ & - & 0.68529e+03,0.51514e+03,0.43287e+03,0.44907e+03,0.59416e+03 /) - kbo(:, 5,18,15) = (/ & - & 0.67604e+03,0.50804e+03,0.42255e+03,0.43929e+03,0.58117e+03 /) - kbo(:, 1,19,15) = (/ & - & 0.75927e+03,0.57536e+03,0.50097e+03,0.51007e+03,0.67027e+03 /) - kbo(:, 2,19,15) = (/ & - & 0.75290e+03,0.56864e+03,0.48996e+03,0.49791e+03,0.65476e+03 /) - kbo(:, 3,19,15) = (/ & - & 0.74466e+03,0.56117e+03,0.47832e+03,0.48599e+03,0.63995e+03 /) - kbo(:, 4,19,15) = (/ & - & 0.73483e+03,0.55286e+03,0.46627e+03,0.47459e+03,0.62519e+03 /) - kbo(:, 5,19,15) = (/ & - & 0.72353e+03,0.54375e+03,0.45395e+03,0.46331e+03,0.61054e+03 /) - kbo(:, 1,20,15) = (/ & - & 0.81171e+03,0.61670e+03,0.53858e+03,0.53802e+03,0.70226e+03 /) - kbo(:, 2,20,15) = (/ & - & 0.80307e+03,0.60788e+03,0.52517e+03,0.52417e+03,0.68550e+03 /) - kbo(:, 3,20,15) = (/ & - & 0.79257e+03,0.59823e+03,0.51114e+03,0.51080e+03,0.66917e+03 /) - kbo(:, 4,20,15) = (/ & - & 0.78036e+03,0.58759e+03,0.49687e+03,0.49775e+03,0.65285e+03 /) - kbo(:, 5,20,15) = (/ & - & 0.76671e+03,0.57649e+03,0.48237e+03,0.48486e+03,0.63647e+03 /) - kbo(:, 1,21,15) = (/ & - & 0.85929e+03,0.65464e+03,0.57309e+03,0.56354e+03,0.73074e+03 /) - kbo(:, 2,21,15) = (/ & - & 0.84853e+03,0.64350e+03,0.55721e+03,0.54790e+03,0.71267e+03 /) - kbo(:, 3,21,15) = (/ & - & 0.83578e+03,0.63172e+03,0.54090e+03,0.53299e+03,0.69483e+03 /) - kbo(:, 4,21,15) = (/ & - & 0.82132e+03,0.61900e+03,0.52438e+03,0.51831e+03,0.67689e+03 /) - kbo(:, 5,21,15) = (/ & - & 0.80511e+03,0.60568e+03,0.50774e+03,0.50398e+03,0.65894e+03 /) - kbo(:, 1,22,15) = (/ & - & 0.90088e+03,0.68794e+03,0.60297e+03,0.58517e+03,0.75429e+03 /) - kbo(:, 2,22,15) = (/ & - & 0.88795e+03,0.67453e+03,0.58458e+03,0.56794e+03,0.73512e+03 /) - kbo(:, 3,22,15) = (/ & - & 0.87296e+03,0.66047e+03,0.56607e+03,0.55151e+03,0.71573e+03 /) - kbo(:, 4,22,15) = (/ & - & 0.85602e+03,0.64569e+03,0.54736e+03,0.53534e+03,0.69633e+03 /) - kbo(:, 5,22,15) = (/ & - & 0.83763e+03,0.63042e+03,0.52879e+03,0.51959e+03,0.67694e+03 /) - kbo(:, 1,23,15) = (/ & - & 0.93708e+03,0.71670e+03,0.62868e+03,0.60370e+03,0.77407e+03 /) - kbo(:, 2,23,15) = (/ & - & 0.92204e+03,0.70111e+03,0.60797e+03,0.58479e+03,0.75367e+03 /) - kbo(:, 3,23,15) = (/ & - & 0.90485e+03,0.68501e+03,0.58723e+03,0.56696e+03,0.73284e+03 /) - kbo(:, 4,23,15) = (/ & - & 0.88551e+03,0.66835e+03,0.56656e+03,0.54939e+03,0.71207e+03 /) - kbo(:, 5,23,15) = (/ & - & 0.86499e+03,0.65129e+03,0.54624e+03,0.53240e+03,0.69156e+03 /) - kbo(:, 1,24,15) = (/ & - & 0.96776e+03,0.74092e+03,0.64997e+03,0.61898e+03,0.79010e+03 /) - kbo(:, 2,24,15) = (/ & - & 0.95072e+03,0.72338e+03,0.62717e+03,0.59867e+03,0.76855e+03 /) - kbo(:, 3,24,15) = (/ & - & 0.93122e+03,0.70539e+03,0.60446e+03,0.57944e+03,0.74652e+03 /) - kbo(:, 4,24,15) = (/ & - & 0.90993e+03,0.68704e+03,0.58213e+03,0.56067e+03,0.72451e+03 /) - kbo(:, 5,24,15) = (/ & - & 0.88757e+03,0.66845e+03,0.56030e+03,0.54254e+03,0.70312e+03 /) - kbo(:, 1,25,15) = (/ & - & 0.99329e+03,0.76073e+03,0.66706e+03,0.63101e+03,0.80276e+03 /) - kbo(:, 2,25,15) = (/ & - & 0.97397e+03,0.74138e+03,0.64231e+03,0.60949e+03,0.78003e+03 /) - kbo(:, 3,25,15) = (/ & - & 0.95257e+03,0.72186e+03,0.61798e+03,0.58904e+03,0.75681e+03 /) - kbo(:, 4,25,15) = (/ & - & 0.92942e+03,0.70193e+03,0.59417e+03,0.56923e+03,0.73392e+03 /) - kbo(:, 5,25,15) = (/ & - & 0.90532e+03,0.68191e+03,0.57100e+03,0.55015e+03,0.71169e+03 /) - kbo(:, 1,26,15) = (/ & - & 0.10136e+04,0.77623e+03,0.67983e+03,0.63982e+03,0.81189e+03 /) - kbo(:, 2,26,15) = (/ & - & 0.99212e+03,0.75536e+03,0.65345e+03,0.61726e+03,0.78804e+03 /) - kbo(:, 3,26,15) = (/ & - & 0.96906e+03,0.73441e+03,0.62784e+03,0.59585e+03,0.76400e+03 /) - kbo(:, 4,26,15) = (/ & - & 0.94442e+03,0.71314e+03,0.60278e+03,0.57514e+03,0.74031e+03 /) - kbo(:, 5,26,15) = (/ & - & 0.91870e+03,0.69199e+03,0.57850e+03,0.55532e+03,0.71748e+03 /) - kbo(:, 1,27,15) = (/ & - & 0.10295e+04,0.78816e+03,0.68910e+03,0.64601e+03,0.81822e+03 /) - kbo(:, 2,27,15) = (/ & - & 0.10061e+04,0.76604e+03,0.66144e+03,0.62260e+03,0.79343e+03 /) - kbo(:, 3,27,15) = (/ & - & 0.98153e+03,0.74373e+03,0.63470e+03,0.60041e+03,0.76875e+03 /) - kbo(:, 4,27,15) = (/ & - & 0.95548e+03,0.72130e+03,0.60866e+03,0.57907e+03,0.74456e+03 /) - kbo(:, 5,27,15) = (/ & - & 0.92838e+03,0.69916e+03,0.58347e+03,0.55864e+03,0.72113e+03 /) - kbo(:, 1,28,15) = (/ & - & 0.10413e+04,0.79681e+03,0.69534e+03,0.64995e+03,0.82220e+03 /) - kbo(:, 2,28,15) = (/ & - & 0.10164e+04,0.77357e+03,0.66667e+03,0.62595e+03,0.79680e+03 /) - kbo(:, 3,28,15) = (/ & - & 0.99062e+03,0.75026e+03,0.63903e+03,0.60314e+03,0.77147e+03 /) - kbo(:, 4,28,15) = (/ & - & 0.96323e+03,0.72694e+03,0.61220e+03,0.58130e+03,0.74687e+03 /) - kbo(:, 5,28,15) = (/ & - & 0.93489e+03,0.70393e+03,0.58636e+03,0.56041e+03,0.72308e+03 /) - kbo(:, 1,29,15) = (/ & - & 0.10495e+04,0.80260e+03,0.69878e+03,0.65184e+03,0.82409e+03 /) - kbo(:, 2,29,15) = (/ & - & 0.10235e+04,0.77841e+03,0.66934e+03,0.62739e+03,0.79811e+03 /) - kbo(:, 3,29,15) = (/ & - & 0.99642e+03,0.75425e+03,0.64103e+03,0.60412e+03,0.77230e+03 /) - kbo(:, 4,29,15) = (/ & - & 0.96796e+03,0.73025e+03,0.61357e+03,0.58189e+03,0.74741e+03 /) - kbo(:, 5,29,15) = (/ & - & 0.93857e+03,0.70654e+03,0.58732e+03,0.56077e+03,0.72335e+03 /) - kbo(:, 1,30,15) = (/ & - & 0.10549e+04,0.80614e+03,0.70001e+03,0.65202e+03,0.82418e+03 /) - kbo(:, 2,30,15) = (/ & - & 0.10278e+04,0.78108e+03,0.67004e+03,0.62730e+03,0.79771e+03 /) - kbo(:, 3,30,15) = (/ & - & 0.99966e+03,0.75628e+03,0.64121e+03,0.60374e+03,0.77172e+03 /) - kbo(:, 4,30,15) = (/ & - & 0.97021e+03,0.73170e+03,0.61335e+03,0.58130e+03,0.74664e+03 /) - kbo(:, 5,30,15) = (/ & - & 0.94007e+03,0.70743e+03,0.58676e+03,0.55999e+03,0.72234e+03 /) - kbo(:, 1,31,15) = (/ & - & 0.10577e+04,0.80741e+03,0.69925e+03,0.65081e+03,0.82281e+03 /) - kbo(:, 2,31,15) = (/ & - & 0.10297e+04,0.78182e+03,0.66894e+03,0.62588e+03,0.79605e+03 /) - kbo(:, 3,31,15) = (/ & - & 0.10005e+04,0.75649e+03,0.63976e+03,0.60219e+03,0.76987e+03 /) - kbo(:, 4,31,15) = (/ & - & 0.97028e+03,0.73149e+03,0.61167e+03,0.57962e+03,0.74468e+03 /) - kbo(:, 5,31,15) = (/ & - & 0.93951e+03,0.70673e+03,0.58494e+03,0.55830e+03,0.72033e+03 /) - kbo(:, 1,32,15) = (/ & - & 0.10585e+04,0.80706e+03,0.69697e+03,0.64853e+03,0.82034e+03 /) - kbo(:, 2,32,15) = (/ & - & 0.10295e+04,0.78094e+03,0.66639e+03,0.62348e+03,0.79329e+03 /) - kbo(:, 3,32,15) = (/ & - & 0.99955e+03,0.75528e+03,0.63700e+03,0.59969e+03,0.76700e+03 /) - kbo(:, 4,32,15) = (/ & - & 0.96864e+03,0.72996e+03,0.60885e+03,0.57712e+03,0.74178e+03 /) - kbo(:, 5,32,15) = (/ & - & 0.93737e+03,0.70488e+03,0.58204e+03,0.55579e+03,0.71738e+03 /) - kbo(:, 1,33,15) = (/ & - & 0.10575e+04,0.80530e+03,0.69345e+03,0.64529e+03,0.81678e+03 /) - kbo(:, 2,33,15) = (/ & - & 0.10278e+04,0.77890e+03,0.66278e+03,0.62027e+03,0.78965e+03 /) - kbo(:, 3,33,15) = (/ & - & 0.99704e+03,0.75290e+03,0.63324e+03,0.59645e+03,0.76337e+03 /) - kbo(:, 4,33,15) = (/ & - & 0.96555e+03,0.72726e+03,0.60509e+03,0.57394e+03,0.73813e+03 /) - kbo(:, 5,33,15) = (/ & - & 0.93393e+03,0.70207e+03,0.57839e+03,0.55267e+03,0.71377e+03 /) - kbo(:, 1,34,15) = (/ & - & 0.10561e+04,0.80340e+03,0.69012e+03,0.64228e+03,0.81344e+03 /) - kbo(:, 2,34,15) = (/ & - & 0.10257e+04,0.77677e+03,0.65936e+03,0.61726e+03,0.78628e+03 /) - kbo(:, 3,34,15) = (/ & - & 0.99442e+03,0.75053e+03,0.62978e+03,0.59351e+03,0.76009e+03 /) - kbo(:, 4,34,15) = (/ & - & 0.96258e+03,0.72472e+03,0.60168e+03,0.57104e+03,0.73478e+03 /) - kbo(:, 5,34,15) = (/ & - & 0.93053e+03,0.69938e+03,0.57499e+03,0.54984e+03,0.71051e+03 /) - kbo(:, 1,35,15) = (/ & - & 0.10564e+04,0.80326e+03,0.68907e+03,0.64121e+03,0.81221e+03 /) - kbo(:, 2,35,15) = (/ & - & 0.10257e+04,0.77646e+03,0.65819e+03,0.61612e+03,0.78498e+03 /) - kbo(:, 3,35,15) = (/ & - & 0.99396e+03,0.74998e+03,0.62850e+03,0.59231e+03,0.75874e+03 /) - kbo(:, 4,35,15) = (/ & - & 0.96182e+03,0.72398e+03,0.60037e+03,0.56987e+03,0.73339e+03 /) - kbo(:, 5,35,15) = (/ & - & 0.92945e+03,0.69852e+03,0.57362e+03,0.54864e+03,0.70910e+03 /) - kbo(:, 1,36,15) = (/ & - & 0.10593e+04,0.80545e+03,0.69086e+03,0.64252e+03,0.81357e+03 /) - kbo(:, 2,36,15) = (/ & - & 0.10283e+04,0.77842e+03,0.65978e+03,0.61726e+03,0.78619e+03 /) - kbo(:, 3,36,15) = (/ & - & 0.99627e+03,0.75174e+03,0.62993e+03,0.59335e+03,0.75988e+03 /) - kbo(:, 4,36,15) = (/ & - & 0.96386e+03,0.72553e+03,0.60161e+03,0.57080e+03,0.73443e+03 /) - kbo(:, 5,36,15) = (/ & - & 0.93134e+03,0.69996e+03,0.57477e+03,0.54947e+03,0.71003e+03 /) - kbo(:, 1,37,15) = (/ & - & 0.10662e+04,0.81134e+03,0.69713e+03,0.64751e+03,0.81885e+03 /) - kbo(:, 2,37,15) = (/ & - & 0.10351e+04,0.78402e+03,0.66565e+03,0.62189e+03,0.79122e+03 /) - kbo(:, 3,37,15) = (/ & - & 0.10030e+04,0.75714e+03,0.63542e+03,0.59764e+03,0.76460e+03 /) - kbo(:, 4,37,15) = (/ & - & 0.97042e+03,0.73071e+03,0.60674e+03,0.57477e+03,0.73895e+03 /) - kbo(:, 5,37,15) = (/ & - & 0.93771e+03,0.70485e+03,0.57959e+03,0.55322e+03,0.71431e+03 /) - kbo(:, 1,38,15) = (/ & - & 0.10729e+04,0.81713e+03,0.70342e+03,0.65252e+03,0.82415e+03 /) - kbo(:, 2,38,15) = (/ & - & 0.10416e+04,0.78952e+03,0.67152e+03,0.62655e+03,0.79626e+03 /) - kbo(:, 3,38,15) = (/ & - & 0.10096e+04,0.76249e+03,0.64098e+03,0.60198e+03,0.76937e+03 /) - kbo(:, 4,38,15) = (/ & - & 0.97695e+03,0.73588e+03,0.61197e+03,0.57883e+03,0.74352e+03 /) - kbo(:, 5,38,15) = (/ & - & 0.94411e+03,0.70978e+03,0.58447e+03,0.55704e+03,0.71866e+03 /) - kbo(:, 1,39,15) = (/ & - & 0.10791e+04,0.82257e+03,0.70938e+03,0.65729e+03,0.82913e+03 /) - kbo(:, 2,39,15) = (/ & - & 0.10479e+04,0.79481e+03,0.67717e+03,0.63099e+03,0.80105e+03 /) - kbo(:, 3,39,15) = (/ & - & 0.10158e+04,0.76754e+03,0.64630e+03,0.60614e+03,0.77394e+03 /) - kbo(:, 4,39,15) = (/ & - & 0.98307e+03,0.74076e+03,0.61694e+03,0.58271e+03,0.74789e+03 /) - kbo(:, 5,39,15) = (/ & - & 0.95013e+03,0.71446e+03,0.58917e+03,0.56072e+03,0.72285e+03 /) - kbo(:, 1,40,15) = (/ & - & 0.10882e+04,0.83071e+03,0.71862e+03,0.66478e+03,0.83689e+03 /) - kbo(:, 2,40,15) = (/ & - & 0.10571e+04,0.80265e+03,0.68589e+03,0.63804e+03,0.80862e+03 /) - kbo(:, 3,40,15) = (/ & - & 0.10251e+04,0.77527e+03,0.65462e+03,0.61278e+03,0.78119e+03 /) - kbo(:, 4,40,15) = (/ & - & 0.99232e+03,0.74818e+03,0.62475e+03,0.58893e+03,0.75487e+03 /) - kbo(:, 5,40,15) = (/ & - & 0.95932e+03,0.72168e+03,0.59655e+03,0.56653e+03,0.72946e+03 /) - kbo(:, 1,41,15) = (/ & - & 0.10971e+04,0.83901e+03,0.72823e+03,0.67265e+03,0.84493e+03 /) - kbo(:, 2,41,15) = (/ & - & 0.10663e+04,0.81071e+03,0.69500e+03,0.64543e+03,0.81648e+03 /) - kbo(:, 3,41,15) = (/ & - & 0.10345e+04,0.78315e+03,0.66331e+03,0.61971e+03,0.78878e+03 /) - kbo(:, 4,41,15) = (/ & - & 0.10019e+04,0.75590e+03,0.63295e+03,0.59541e+03,0.76210e+03 /) - kbo(:, 5,41,15) = (/ & - & 0.96878e+03,0.72921e+03,0.60428e+03,0.57260e+03,0.73637e+03 /) - kbo(:, 1,42,15) = (/ & - & 0.11058e+04,0.84736e+03,0.73795e+03,0.68059e+03,0.85278e+03 /) - kbo(:, 2,42,15) = (/ & - & 0.10754e+04,0.81879e+03,0.70412e+03,0.65281e+03,0.82432e+03 /) - kbo(:, 3,42,15) = (/ & - & 0.10438e+04,0.79093e+03,0.67198e+03,0.62664e+03,0.79629e+03 /) - kbo(:, 4,42,15) = (/ & - & 0.10112e+04,0.76353e+03,0.64116e+03,0.60189e+03,0.76925e+03 /) - kbo(:, 5,42,15) = (/ & - & 0.97804e+03,0.73660e+03,0.61202e+03,0.57870e+03,0.74332e+03 /) - kbo(:, 1,43,15) = (/ & - & 0.11158e+04,0.85717e+03,0.74955e+03,0.69024e+03,0.86217e+03 /) - kbo(:, 2,43,15) = (/ & - & 0.10861e+04,0.82836e+03,0.71518e+03,0.66177e+03,0.83370e+03 /) - kbo(:, 3,43,15) = (/ & - & 0.10546e+04,0.80021e+03,0.68243e+03,0.63507e+03,0.80541e+03 /) - kbo(:, 4,43,15) = (/ & - & 0.10222e+04,0.77261e+03,0.65115e+03,0.60984e+03,0.77795e+03 /) - kbo(:, 5,43,15) = (/ & - & 0.98916e+03,0.74551e+03,0.62143e+03,0.58614e+03,0.75171e+03 /) - kbo(:, 1,44,15) = (/ & - & 0.11264e+04,0.86786e+03,0.76217e+03,0.70088e+03,0.87207e+03 /) - kbo(:, 2,44,15) = (/ & - & 0.10970e+04,0.83855e+03,0.72711e+03,0.67158e+03,0.84381e+03 /) - kbo(:, 3,44,15) = (/ & - & 0.10660e+04,0.81015e+03,0.69375e+03,0.64429e+03,0.81530e+03 /) - kbo(:, 4,44,15) = (/ & - & 0.10339e+04,0.78245e+03,0.66207e+03,0.61859e+03,0.78750e+03 /) - kbo(:, 5,44,15) = (/ & - & 0.10010e+04,0.75506e+03,0.63169e+03,0.59432e+03,0.76086e+03 /) - kbo(:, 1,45,15) = (/ & - & 0.11364e+04,0.87855e+03,0.77494e+03,0.71181e+03,0.88191e+03 /) - kbo(:, 2,45,15) = (/ & - & 0.11078e+04,0.84885e+03,0.73921e+03,0.68154e+03,0.85373e+03 /) - kbo(:, 3,45,15) = (/ & - & 0.10773e+04,0.82021e+03,0.70525e+03,0.65361e+03,0.82516e+03 /) - kbo(:, 4,45,15) = (/ & - & 0.10454e+04,0.79218e+03,0.67305e+03,0.62740e+03,0.79708e+03 /) - kbo(:, 5,45,15) = (/ & - & 0.10127e+04,0.76466e+03,0.64208e+03,0.60256e+03,0.76997e+03 /) - kbo(:, 1,46,15) = (/ & - & 0.11465e+04,0.88995e+03,0.78864e+03,0.72357e+03,0.89218e+03 /) - kbo(:, 2,46,15) = (/ & - & 0.11189e+04,0.85981e+03,0.75227e+03,0.69242e+03,0.86430e+03 /) - kbo(:, 3,46,15) = (/ & - & 0.10889e+04,0.83077e+03,0.71764e+03,0.66370e+03,0.83569e+03 /) - kbo(:, 4,46,15) = (/ & - & 0.10574e+04,0.80253e+03,0.68479e+03,0.63689e+03,0.80730e+03 /) - kbo(:, 5,46,15) = (/ & - & 0.10249e+04,0.77483e+03,0.65332e+03,0.61153e+03,0.77982e+03 /) - kbo(:, 1,47,15) = (/ & - & 0.11573e+04,0.90286e+03,0.80421e+03,0.73669e+03,0.90313e+03 /) - kbo(:, 2,47,15) = (/ & - & 0.11308e+04,0.87219e+03,0.76703e+03,0.70495e+03,0.87583e+03 /) - kbo(:, 3,47,15) = (/ & - & 0.11017e+04,0.84272e+03,0.73168e+03,0.67524e+03,0.84747e+03 /) - kbo(:, 4,47,15) = (/ & - & 0.10706e+04,0.81413e+03,0.69808e+03,0.64772e+03,0.81886e+03 /) - kbo(:, 5,47,15) = (/ & - & 0.10385e+04,0.78623e+03,0.66606e+03,0.62176e+03,0.79095e+03 /) - kbo(:, 1,48,15) = (/ & - & 0.11675e+04,0.91580e+03,0.81991e+03,0.74998e+03,0.91375e+03 /) - kbo(:, 2,48,15) = (/ & - & 0.11421e+04,0.88462e+03,0.78203e+03,0.71783e+03,0.88726e+03 /) - kbo(:, 3,48,15) = (/ & - & 0.11139e+04,0.85471e+03,0.74597e+03,0.68710e+03,0.85917e+03 /) - kbo(:, 4,48,15) = (/ & - & 0.10836e+04,0.82582e+03,0.71165e+03,0.65875e+03,0.83052e+03 /) - kbo(:, 5,48,15) = (/ & - & 0.10518e+04,0.79762e+03,0.67897e+03,0.63216e+03,0.80224e+03 /) - kbo(:, 1,49,15) = (/ & - & 0.11770e+04,0.92887e+03,0.83589e+03,0.76347e+03,0.92401e+03 /) - kbo(:, 2,49,15) = (/ & - & 0.11531e+04,0.89735e+03,0.79736e+03,0.73085e+03,0.89839e+03 /) - kbo(:, 3,49,15) = (/ & - & 0.11259e+04,0.86690e+03,0.76049e+03,0.69928e+03,0.87069e+03 /) - kbo(:, 4,49,15) = (/ & - & 0.10963e+04,0.83754e+03,0.72543e+03,0.67003e+03,0.84223e+03 /) - kbo(:, 5,49,15) = (/ & - & 0.10650e+04,0.80903e+03,0.69202e+03,0.64278e+03,0.81363e+03 /) - kbo(:, 1,50,15) = (/ & - & 0.11850e+04,0.94106e+03,0.85114e+03,0.77623e+03,0.93320e+03 /) - kbo(:, 2,50,15) = (/ & - & 0.11628e+04,0.90935e+03,0.81191e+03,0.74315e+03,0.90846e+03 /) - kbo(:, 3,50,15) = (/ & - & 0.11368e+04,0.87848e+03,0.77441e+03,0.71118e+03,0.88145e+03 /) - kbo(:, 4,50,15) = (/ & - & 0.11080e+04,0.84872e+03,0.73862e+03,0.68089e+03,0.85311e+03 /) - kbo(:, 5,50,15) = (/ & - & 0.10771e+04,0.81987e+03,0.70453e+03,0.65297e+03,0.82446e+03 /) - kbo(:, 1,51,15) = (/ & - & 0.11923e+04,0.95283e+03,0.86626e+03,0.78865e+03,0.94170e+03 /) - kbo(:, 2,51,15) = (/ & - & 0.11717e+04,0.92110e+03,0.82616e+03,0.75525e+03,0.91794e+03 /) - kbo(:, 3,51,15) = (/ & - & 0.11468e+04,0.88978e+03,0.78804e+03,0.72292e+03,0.89168e+03 /) - kbo(:, 4,51,15) = (/ & - & 0.11189e+04,0.85951e+03,0.75159e+03,0.69174e+03,0.86368e+03 /) - kbo(:, 5,51,15) = (/ & - & 0.10888e+04,0.83043e+03,0.71698e+03,0.66309e+03,0.83504e+03 /) - kbo(:, 1,52,15) = (/ & - & 0.11987e+04,0.96448e+03,0.88155e+03,0.80101e+03,0.94976e+03 /) - kbo(:, 2,52,15) = (/ & - & 0.11799e+04,0.93288e+03,0.84067e+03,0.76742e+03,0.92694e+03 /) - kbo(:, 3,52,15) = (/ & - & 0.11564e+04,0.90125e+03,0.80189e+03,0.73467e+03,0.90155e+03 /) - kbo(:, 4,52,15) = (/ & - & 0.11296e+04,0.87065e+03,0.76482e+03,0.70289e+03,0.87401e+03 /) - kbo(:, 5,52,15) = (/ & - & 0.11001e+04,0.84107e+03,0.72948e+03,0.67337e+03,0.84559e+03 /) - kbo(:, 1,53,15) = (/ & - & 0.12042e+04,0.97597e+03,0.89729e+03,0.81334e+03,0.95716e+03 /) - kbo(:, 2,53,15) = (/ & - & 0.11876e+04,0.94467e+03,0.85557e+03,0.77990e+03,0.93591e+03 /) - kbo(:, 3,53,15) = (/ & - & 0.11657e+04,0.91285e+03,0.81605e+03,0.74663e+03,0.91125e+03 /) - kbo(:, 4,53,15) = (/ & - & 0.11399e+04,0.88179e+03,0.77830e+03,0.71447e+03,0.88437e+03 /) - kbo(:, 5,53,15) = (/ & - & 0.11113e+04,0.85189e+03,0.74233e+03,0.68396e+03,0.85611e+03 /) - kbo(:, 1,54,15) = (/ & - & 0.12085e+04,0.98643e+03,0.91208e+03,0.82462e+03,0.96332e+03 /) - kbo(:, 2,54,15) = (/ & - & 0.11940e+04,0.95533e+03,0.86934e+03,0.79114e+03,0.94342e+03 /) - kbo(:, 3,54,15) = (/ & - & 0.11737e+04,0.92362e+03,0.82909e+03,0.75767e+03,0.91977e+03 /) - kbo(:, 4,54,15) = (/ & - & 0.11490e+04,0.89214e+03,0.79079e+03,0.72522e+03,0.89369e+03 /) - kbo(:, 5,54,15) = (/ & - & 0.11212e+04,0.86180e+03,0.75420e+03,0.69390e+03,0.86571e+03 /) - kbo(:, 1,55,15) = (/ & - & 0.12111e+04,0.99597e+03,0.92635e+03,0.83534e+03,0.96856e+03 /) - kbo(:, 2,55,15) = (/ & - & 0.11993e+04,0.96550e+03,0.88281e+03,0.80196e+03,0.95029e+03 /) - kbo(:, 3,55,15) = (/ & - & 0.11808e+04,0.93390e+03,0.84185e+03,0.76841e+03,0.92774e+03 /) - kbo(:, 4,55,15) = (/ & - & 0.11574e+04,0.90226e+03,0.80305e+03,0.73557e+03,0.90236e+03 /) - kbo(:, 5,55,15) = (/ & - & 0.11305e+04,0.87151e+03,0.76581e+03,0.70377e+03,0.87482e+03 /) - kbo(:, 1,56,15) = (/ & - & 0.12133e+04,0.10055e+04,0.94091e+03,0.84599e+03,0.97308e+03 /) - kbo(:, 2,56,15) = (/ & - & 0.12041e+04,0.97555e+03,0.89660e+03,0.81280e+03,0.95684e+03 /) - kbo(:, 3,56,15) = (/ & - & 0.11875e+04,0.94422e+03,0.85482e+03,0.77921e+03,0.93538e+03 /) - kbo(:, 4,56,15) = (/ & - & 0.11654e+04,0.91235e+03,0.81536e+03,0.74599e+03,0.91077e+03 /) - kbo(:, 5,56,15) = (/ & - & 0.11395e+04,0.88125e+03,0.77756e+03,0.71383e+03,0.88381e+03 /) - kbo(:, 1,57,15) = (/ & - & 0.12144e+04,0.10149e+04,0.95530e+03,0.85635e+03,0.97654e+03 /) - kbo(:, 2,57,15) = (/ & - & 0.12082e+04,0.98553e+03,0.91069e+03,0.82360e+03,0.96286e+03 /) - kbo(:, 3,57,15) = (/ & - & 0.11936e+04,0.95436e+03,0.86797e+03,0.78997e+03,0.94263e+03 /) - kbo(:, 4,57,15) = (/ & - & 0.11730e+04,0.92261e+03,0.82779e+03,0.75653e+03,0.91896e+03 /) - kbo(:, 5,57,15) = (/ & - & 0.11481e+04,0.89107e+03,0.78949e+03,0.72412e+03,0.89274e+03 /) - kbo(:, 1,58,15) = (/ & - & 0.12146e+04,0.10236e+04,0.96889e+03,0.86606e+03,0.97897e+03 /) - kbo(:, 2,58,15) = (/ & - & 0.12111e+04,0.99468e+03,0.92419e+03,0.83372e+03,0.96790e+03 /) - kbo(:, 3,58,15) = (/ & - & 0.11988e+04,0.96400e+03,0.88060e+03,0.80022e+03,0.94932e+03 /) - kbo(:, 4,58,15) = (/ & - & 0.11798e+04,0.93230e+03,0.83979e+03,0.76663e+03,0.92647e+03 /) - kbo(:, 5,58,15) = (/ & - & 0.11561e+04,0.90059e+03,0.80102e+03,0.73388e+03,0.90094e+03 /) - kbo(:, 1,59,15) = (/ & - & 0.12143e+04,0.10270e+04,0.97431e+03,0.86988e+03,0.97963e+03 /) - kbo(:, 2,59,15) = (/ & - & 0.12120e+04,0.99826e+03,0.92964e+03,0.83774e+03,0.96974e+03 /) - kbo(:, 3,59,15) = (/ & - & 0.12008e+04,0.96785e+03,0.88575e+03,0.80426e+03,0.95182e+03 /) - kbo(:, 4,59,15) = (/ & - & 0.11824e+04,0.93625e+03,0.84468e+03,0.77075e+03,0.92946e+03 /) - kbo(:, 5,59,15) = (/ & - & 0.11592e+04,0.90444e+03,0.80567e+03,0.73781e+03,0.90417e+03 /) - kbo(:, 1,13,16) = (/ & - & 0.60786e+03,0.45592e+03,0.38499e+03,0.57704e+03,0.77025e+03 /) - kbo(:, 2,13,16) = (/ & - & 0.61089e+03,0.45819e+03,0.37289e+03,0.55854e+03,0.74550e+03 /) - kbo(:, 3,13,16) = (/ & - & 0.61169e+03,0.45879e+03,0.36189e+03,0.54102e+03,0.72223e+03 /) - kbo(:, 4,13,16) = (/ & - & 0.61079e+03,0.45811e+03,0.35169e+03,0.52404e+03,0.69950e+03 /) - kbo(:, 5,13,16) = (/ & - & 0.60850e+03,0.45639e+03,0.34199e+03,0.50729e+03,0.67716e+03 /) - kbo(:, 1,14,16) = (/ & - & 0.71905e+03,0.53931e+03,0.44704e+03,0.66948e+03,0.89363e+03 /) - kbo(:, 2,14,16) = (/ & - & 0.71950e+03,0.53965e+03,0.43274e+03,0.64598e+03,0.86230e+03 /) - kbo(:, 3,14,16) = (/ & - & 0.71818e+03,0.53865e+03,0.41969e+03,0.62353e+03,0.83220e+03 /) - kbo(:, 4,14,16) = (/ & - & 0.71532e+03,0.53651e+03,0.40717e+03,0.60193e+03,0.80343e+03 /) - kbo(:, 5,14,16) = (/ & - & 0.71008e+03,0.53258e+03,0.39527e+03,0.58080e+03,0.77521e+03 /) - kbo(:, 1,15,16) = (/ & - & 0.84339e+03,0.63256e+03,0.51534e+03,0.76897e+03,0.10264e+04 /) - kbo(:, 2,15,16) = (/ & - & 0.84056e+03,0.63042e+03,0.49783e+03,0.73927e+03,0.98670e+03 /) - kbo(:, 3,15,16) = (/ & - & 0.83549e+03,0.62663e+03,0.48183e+03,0.71056e+03,0.94836e+03 /) - kbo(:, 4,15,16) = (/ & - & 0.82865e+03,0.62150e+03,0.46649e+03,0.68266e+03,0.91115e+03 /) - kbo(:, 5,15,16) = (/ & - & 0.81975e+03,0.61483e+03,0.45195e+03,0.65670e+03,0.87636e+03 /) - kbo(:, 1,16,16) = (/ & - & 0.97910e+03,0.73434e+03,0.58857e+03,0.87272e+03,0.11648e+04 /) - kbo(:, 2,16,16) = (/ & - & 0.97153e+03,0.72866e+03,0.56721e+03,0.83540e+03,0.11150e+04 /) - kbo(:, 3,16,16) = (/ & - & 0.96129e+03,0.72098e+03,0.54742e+03,0.79937e+03,0.10667e+04 /) - kbo(:, 4,16,16) = (/ & - & 0.94880e+03,0.71161e+03,0.52876e+03,0.76497e+03,0.10209e+04 /) - kbo(:, 5,16,16) = (/ & - & 0.93421e+03,0.70067e+03,0.51082e+03,0.73352e+03,0.97881e+03 /) - kbo(:, 1,17,16) = (/ & - & 0.11229e+04,0.84221e+03,0.66547e+03,0.97911e+03,0.13066e+04 /) - kbo(:, 2,17,16) = (/ & - & 0.11091e+04,0.83187e+03,0.63930e+03,0.93226e+03,0.12440e+04 /) - kbo(:, 3,17,16) = (/ & - & 0.10923e+04,0.81922e+03,0.61539e+03,0.88802e+03,0.11849e+04 /) - kbo(:, 4,17,16) = (/ & - & 0.10728e+04,0.80459e+03,0.59256e+03,0.84691e+03,0.11301e+04 /) - kbo(:, 5,17,16) = (/ & - & 0.10515e+04,0.78865e+03,0.57044e+03,0.80936e+03,0.10799e+04 /) - kbo(:, 1,18,16) = (/ & - & 0.12716e+04,0.95370e+03,0.74447e+03,0.10843e+04,0.14469e+04 /) - kbo(:, 2,18,16) = (/ & - & 0.12500e+04,0.93749e+03,0.71274e+03,0.10272e+04,0.13706e+04 /) - kbo(:, 3,18,16) = (/ & - & 0.12251e+04,0.91883e+03,0.68394e+03,0.97432e+03,0.13000e+04 /) - kbo(:, 4,18,16) = (/ & - & 0.11973e+04,0.89795e+03,0.65609e+03,0.92626e+03,0.12359e+04 /) - kbo(:, 5,18,16) = (/ & - & 0.11679e+04,0.87596e+03,0.62959e+03,0.88232e+03,0.11772e+04 /) - kbo(:, 1,19,16) = (/ & - & 0.14213e+04,0.10659e+04,0.82299e+03,0.11854e+04,0.15817e+04 /) - kbo(:, 2,19,16) = (/ & - & 0.13899e+04,0.10424e+04,0.78536e+03,0.11181e+04,0.14919e+04 /) - kbo(:, 3,19,16) = (/ & - & 0.13555e+04,0.10166e+04,0.75067e+03,0.10563e+04,0.14093e+04 /) - kbo(:, 4,19,16) = (/ & - & 0.13187e+04,0.98902e+03,0.71751e+03,0.10008e+04,0.13351e+04 /) - kbo(:, 5,19,16) = (/ & - & 0.12809e+04,0.96067e+03,0.68653e+03,0.95065e+03,0.12682e+04 /) - kbo(:, 1,20,16) = (/ & - & 0.15671e+04,0.11753e+04,0.89787e+03,0.12782e+04,0.17052e+04 /) - kbo(:, 2,20,16) = (/ & - & 0.15245e+04,0.11434e+04,0.85373e+03,0.12013e+04,0.16026e+04 /) - kbo(:, 3,20,16) = (/ & - & 0.14795e+04,0.11097e+04,0.81323e+03,0.11307e+04,0.15085e+04 /) - kbo(:, 4,20,16) = (/ & - & 0.14333e+04,0.10750e+04,0.77488e+03,0.10684e+04,0.14252e+04 /) - kbo(:, 5,20,16) = (/ & - & 0.13861e+04,0.10396e+04,0.73891e+03,0.10119e+04,0.13498e+04 /) - kbo(:, 1,21,16) = (/ & - & 0.17057e+04,0.12793e+04,0.96840e+03,0.13620e+04,0.18170e+04 /) - kbo(:, 2,21,16) = (/ & - & 0.16509e+04,0.12382e+04,0.91726e+03,0.12758e+04,0.17018e+04 /) - kbo(:, 3,21,16) = (/ & - & 0.15947e+04,0.11960e+04,0.87064e+03,0.11975e+04,0.15973e+04 /) - kbo(:, 4,21,16) = (/ & - & 0.15386e+04,0.11540e+04,0.82723e+03,0.11286e+04,0.15054e+04 /) - kbo(:, 5,21,16) = (/ & - & 0.14823e+04,0.11117e+04,0.78614e+03,0.10661e+04,0.14220e+04 /) - kbo(:, 1,22,16) = (/ & - & 0.18293e+04,0.13720e+04,0.10288e+04,0.14300e+04,0.19074e+04 /) - kbo(:, 2,22,16) = (/ & - & 0.17617e+04,0.13213e+04,0.97120e+03,0.13351e+04,0.17808e+04 /) - kbo(:, 3,22,16) = (/ & - & 0.16944e+04,0.12708e+04,0.91894e+03,0.12506e+04,0.16681e+04 /) - kbo(:, 4,22,16) = (/ & - & 0.16287e+04,0.12215e+04,0.87041e+03,0.11757e+04,0.15681e+04 /) - kbo(:, 5,22,16) = (/ & - & 0.15635e+04,0.11726e+04,0.82499e+03,0.11083e+04,0.14783e+04 /) - kbo(:, 1,23,16) = (/ & - & 0.19373e+04,0.14530e+04,0.10803e+04,0.14855e+04,0.19814e+04 /) - kbo(:, 2,23,16) = (/ & - & 0.18577e+04,0.13933e+04,0.10171e+04,0.13836e+04,0.18455e+04 /) - kbo(:, 3,23,16) = (/ & - & 0.17799e+04,0.13350e+04,0.95955e+03,0.12936e+04,0.17253e+04 /) - kbo(:, 4,23,16) = (/ & - & 0.17053e+04,0.12790e+04,0.90643e+03,0.12138e+04,0.16189e+04 /) - kbo(:, 5,23,16) = (/ & - & 0.16318e+04,0.12239e+04,0.85742e+03,0.11422e+04,0.15233e+04 /) - kbo(:, 1,24,16) = (/ & - & 0.20285e+04,0.15214e+04,0.11229e+04,0.15287e+04,0.20389e+04 /) - kbo(:, 2,24,16) = (/ & - & 0.19379e+04,0.14534e+04,0.10546e+04,0.14215e+04,0.18958e+04 /) - kbo(:, 3,24,16) = (/ & - & 0.18509e+04,0.13882e+04,0.99252e+03,0.13268e+04,0.17696e+04 /) - kbo(:, 4,24,16) = (/ & - & 0.17680e+04,0.13260e+04,0.93542e+03,0.12431e+04,0.16579e+04 /) - kbo(:, 5,24,16) = (/ & - & 0.16872e+04,0.12654e+04,0.88318e+03,0.11679e+04,0.15576e+04 /) - kbo(:, 1,25,16) = (/ & - & 0.21022e+04,0.15767e+04,0.11562e+04,0.15596e+04,0.20800e+04 /) - kbo(:, 2,25,16) = (/ & - & 0.20021e+04,0.15016e+04,0.10837e+04,0.14483e+04,0.19315e+04 /) - kbo(:, 3,25,16) = (/ & - & 0.19072e+04,0.14304e+04,0.10177e+04,0.13507e+04,0.18013e+04 /) - kbo(:, 4,25,16) = (/ & - & 0.18172e+04,0.13629e+04,0.95761e+03,0.12639e+04,0.16854e+04 /) - kbo(:, 5,25,16) = (/ & - & 0.17302e+04,0.12976e+04,0.90262e+03,0.11861e+04,0.15818e+04 /) - kbo(:, 1,26,16) = (/ & - & 0.21584e+04,0.16188e+04,0.11798e+04,0.15785e+04,0.21051e+04 /) - kbo(:, 2,26,16) = (/ & - & 0.20504e+04,0.15378e+04,0.11040e+04,0.14649e+04,0.19536e+04 /) - kbo(:, 3,26,16) = (/ & - & 0.19488e+04,0.14616e+04,0.10351e+04,0.13650e+04,0.18204e+04 /) - kbo(:, 4,26,16) = (/ & - & 0.18527e+04,0.13896e+04,0.97267e+03,0.12762e+04,0.17019e+04 /) - kbo(:, 5,26,16) = (/ & - & 0.17609e+04,0.13206e+04,0.91583e+03,0.11969e+04,0.15961e+04 /) - kbo(:, 1,27,16) = (/ & - & 0.21995e+04,0.16496e+04,0.11960e+04,0.15887e+04,0.21185e+04 /) - kbo(:, 2,27,16) = (/ & - & 0.20852e+04,0.15639e+04,0.11175e+04,0.14736e+04,0.19651e+04 /) - kbo(:, 3,27,16) = (/ & - & 0.19784e+04,0.14838e+04,0.10466e+04,0.13723e+04,0.18300e+04 /) - kbo(:, 4,27,16) = (/ & - & 0.18776e+04,0.14082e+04,0.98231e+03,0.12823e+04,0.17101e+04 /) - kbo(:, 5,27,16) = (/ & - & 0.17820e+04,0.13365e+04,0.92416e+03,0.12022e+04,0.16031e+04 /) - kbo(:, 1,28,16) = (/ & - & 0.22274e+04,0.16706e+04,0.12052e+04,0.15913e+04,0.21220e+04 /) - kbo(:, 2,28,16) = (/ & - & 0.21084e+04,0.15813e+04,0.11251e+04,0.14757e+04,0.19679e+04 /) - kbo(:, 3,28,16) = (/ & - & 0.19974e+04,0.14981e+04,0.10528e+04,0.13738e+04,0.18320e+04 /) - kbo(:, 4,28,16) = (/ & - & 0.18930e+04,0.14198e+04,0.98736e+03,0.12834e+04,0.17114e+04 /) - kbo(:, 5,28,16) = (/ & - & 0.17945e+04,0.13459e+04,0.92826e+03,0.12029e+04,0.16040e+04 /) - kbo(:, 1,29,16) = (/ & - & 0.22434e+04,0.16825e+04,0.12082e+04,0.15868e+04,0.21160e+04 /) - kbo(:, 2,29,16) = (/ & - & 0.21209e+04,0.15907e+04,0.11272e+04,0.14716e+04,0.19623e+04 /) - kbo(:, 3,29,16) = (/ & - & 0.20069e+04,0.15052e+04,0.10541e+04,0.13700e+04,0.18268e+04 /) - kbo(:, 4,29,16) = (/ & - & 0.18999e+04,0.14249e+04,0.98819e+03,0.12798e+04,0.17065e+04 /) - kbo(:, 5,29,16) = (/ & - & 0.17996e+04,0.13497e+04,0.92869e+03,0.11992e+04,0.15991e+04 /) - kbo(:, 1,30,16) = (/ & - & 0.22495e+04,0.16871e+04,0.12065e+04,0.15776e+04,0.21036e+04 /) - kbo(:, 2,30,16) = (/ & - & 0.21251e+04,0.15938e+04,0.11251e+04,0.14633e+04,0.19512e+04 /) - kbo(:, 3,30,16) = (/ & - & 0.20091e+04,0.15068e+04,0.10517e+04,0.13621e+04,0.18163e+04 /) - kbo(:, 4,30,16) = (/ & - & 0.19004e+04,0.14253e+04,0.98584e+03,0.12727e+04,0.16970e+04 /) - kbo(:, 5,30,16) = (/ & - & 0.17984e+04,0.13488e+04,0.92610e+03,0.11928e+04,0.15905e+04 /) - kbo(:, 1,31,16) = (/ & - & 0.22474e+04,0.16855e+04,0.12005e+04,0.15635e+04,0.20848e+04 /) - kbo(:, 2,31,16) = (/ & - & 0.21214e+04,0.15910e+04,0.11192e+04,0.14507e+04,0.19344e+04 /) - kbo(:, 3,31,16) = (/ & - & 0.20043e+04,0.15033e+04,0.10461e+04,0.13510e+04,0.18015e+04 /) - kbo(:, 4,31,16) = (/ & - & 0.18948e+04,0.14211e+04,0.98049e+03,0.12625e+04,0.16835e+04 /) - kbo(:, 5,31,16) = (/ & - & 0.17922e+04,0.13441e+04,0.92102e+03,0.11837e+04,0.15784e+04 /) - kbo(:, 1,32,16) = (/ & - & 0.22387e+04,0.16790e+04,0.11913e+04,0.15463e+04,0.20617e+04 /) - kbo(:, 2,32,16) = (/ & - & 0.21117e+04,0.15838e+04,0.11104e+04,0.14353e+04,0.19138e+04 /) - kbo(:, 3,32,16) = (/ & - & 0.19944e+04,0.14958e+04,0.10381e+04,0.13373e+04,0.17831e+04 /) - kbo(:, 4,32,16) = (/ & - & 0.18846e+04,0.14135e+04,0.97304e+03,0.12502e+04,0.16670e+04 /) - kbo(:, 5,32,16) = (/ & - & 0.17818e+04,0.13363e+04,0.91392e+03,0.11724e+04,0.15633e+04 /) - kbo(:, 1,33,16) = (/ & - & 0.22243e+04,0.16682e+04,0.11793e+04,0.15266e+04,0.20355e+04 /) - kbo(:, 2,33,16) = (/ & - & 0.20975e+04,0.15731e+04,0.10994e+04,0.14177e+04,0.18903e+04 /) - kbo(:, 3,33,16) = (/ & - & 0.19805e+04,0.14854e+04,0.10282e+04,0.13217e+04,0.17623e+04 /) - kbo(:, 4,33,16) = (/ & - & 0.18707e+04,0.14030e+04,0.96384e+03,0.12361e+04,0.16482e+04 /) - kbo(:, 5,33,16) = (/ & - & 0.17684e+04,0.13263e+04,0.90541e+03,0.11600e+04,0.15467e+04 /) - kbo(:, 1,34,16) = (/ & - & 0.22110e+04,0.16582e+04,0.11687e+04,0.15094e+04,0.20126e+04 /) - kbo(:, 2,34,16) = (/ & - & 0.20843e+04,0.15632e+04,0.10894e+04,0.14021e+04,0.18696e+04 /) - kbo(:, 3,34,16) = (/ & - & 0.19675e+04,0.14756e+04,0.10193e+04,0.13079e+04,0.17439e+04 /) - kbo(:, 4,34,16) = (/ & - & 0.18579e+04,0.13934e+04,0.95559e+03,0.12238e+04,0.16318e+04 /) - kbo(:, 5,34,16) = (/ & - & 0.17560e+04,0.13170e+04,0.89776e+03,0.11489e+04,0.15318e+04 /) - kbo(:, 1,35,16) = (/ & - & 0.22070e+04,0.16552e+04,0.11645e+04,0.15017e+04,0.20024e+04 /) - kbo(:, 2,35,16) = (/ & - & 0.20800e+04,0.15600e+04,0.10855e+04,0.13953e+04,0.18605e+04 /) - kbo(:, 3,35,16) = (/ & - & 0.19630e+04,0.14722e+04,0.10157e+04,0.13017e+04,0.17356e+04 /) - kbo(:, 4,35,16) = (/ & - & 0.18532e+04,0.13899e+04,0.95221e+03,0.12182e+04,0.16243e+04 /) - kbo(:, 5,35,16) = (/ & - & 0.17512e+04,0.13134e+04,0.89456e+03,0.11438e+04,0.15251e+04 /) - kbo(:, 1,36,16) = (/ & - & 0.22146e+04,0.16609e+04,0.11681e+04,0.15050e+04,0.20067e+04 /) - kbo(:, 2,36,16) = (/ & - & 0.20867e+04,0.15651e+04,0.10887e+04,0.13982e+04,0.18642e+04 /) - kbo(:, 3,36,16) = (/ & - & 0.19689e+04,0.14767e+04,0.10184e+04,0.13041e+04,0.17389e+04 /) - kbo(:, 4,36,16) = (/ & - & 0.18582e+04,0.13937e+04,0.95458e+03,0.12204e+04,0.16272e+04 /) - kbo(:, 5,36,16) = (/ & - & 0.17557e+04,0.13168e+04,0.89664e+03,0.11458e+04,0.15277e+04 /) - kbo(:, 1,37,16) = (/ & - & 0.22411e+04,0.16809e+04,0.11837e+04,0.15248e+04,0.20331e+04 /) - kbo(:, 2,37,16) = (/ & - & 0.21106e+04,0.15830e+04,0.11025e+04,0.14155e+04,0.18873e+04 /) - kbo(:, 3,37,16) = (/ & - & 0.19909e+04,0.14932e+04,0.10307e+04,0.13195e+04,0.17594e+04 /) - kbo(:, 4,37,16) = (/ & - & 0.18783e+04,0.14088e+04,0.96559e+03,0.12340e+04,0.16453e+04 /) - kbo(:, 5,37,16) = (/ & - & 0.17743e+04,0.13307e+04,0.90666e+03,0.11578e+04,0.15438e+04 /) - kbo(:, 1,38,16) = (/ & - & 0.22677e+04,0.17008e+04,0.11995e+04,0.15451e+04,0.20601e+04 /) - kbo(:, 2,38,16) = (/ & - & 0.21347e+04,0.16010e+04,0.11166e+04,0.14334e+04,0.19112e+04 /) - kbo(:, 3,38,16) = (/ & - & 0.20130e+04,0.15097e+04,0.10432e+04,0.13353e+04,0.17805e+04 /) - kbo(:, 4,38,16) = (/ & - & 0.18989e+04,0.14242e+04,0.97692e+03,0.12480e+04,0.16640e+04 /) - kbo(:, 5,38,16) = (/ & - & 0.17929e+04,0.13447e+04,0.91684e+03,0.11704e+04,0.15605e+04 /) - kbo(:, 1,39,16) = (/ & - & 0.22932e+04,0.17199e+04,0.12149e+04,0.15649e+04,0.20865e+04 /) - kbo(:, 2,39,16) = (/ & - & 0.21580e+04,0.16185e+04,0.11304e+04,0.14510e+04,0.19346e+04 /) - kbo(:, 3,39,16) = (/ & - & 0.20342e+04,0.15257e+04,0.10554e+04,0.13508e+04,0.18011e+04 /) - kbo(:, 4,39,16) = (/ & - & 0.19186e+04,0.14389e+04,0.98789e+03,0.12618e+04,0.16825e+04 /) - kbo(:, 5,39,16) = (/ & - & 0.18110e+04,0.13582e+04,0.92676e+03,0.11826e+04,0.15768e+04 /) - kbo(:, 1,40,16) = (/ & - & 0.23330e+04,0.17497e+04,0.12394e+04,0.15975e+04,0.21300e+04 /) - kbo(:, 2,40,16) = (/ & - & 0.21946e+04,0.16460e+04,0.11524e+04,0.14797e+04,0.19730e+04 /) - kbo(:, 3,40,16) = (/ & - & 0.20673e+04,0.15505e+04,0.10747e+04,0.13759e+04,0.18346e+04 /) - kbo(:, 4,40,16) = (/ & - & 0.19494e+04,0.14621e+04,0.10054e+04,0.12842e+04,0.17123e+04 /) - kbo(:, 5,40,16) = (/ & - & 0.18395e+04,0.13796e+04,0.94264e+03,0.12026e+04,0.16034e+04 /) - kbo(:, 1,41,16) = (/ & - & 0.23748e+04,0.17811e+04,0.12653e+04,0.16323e+04,0.21765e+04 /) - kbo(:, 2,41,16) = (/ & - & 0.22335e+04,0.16751e+04,0.11760e+04,0.15106e+04,0.20142e+04 /) - kbo(:, 3,41,16) = (/ & - & 0.21020e+04,0.15765e+04,0.10953e+04,0.14029e+04,0.18706e+04 /) - kbo(:, 4,41,16) = (/ & - & 0.19818e+04,0.14863e+04,0.10239e+04,0.13082e+04,0.17443e+04 /) - kbo(:, 5,41,16) = (/ & - & 0.18696e+04,0.14022e+04,0.95944e+03,0.12238e+04,0.16317e+04 /) - kbo(:, 1,42,16) = (/ & - & 0.24183e+04,0.18137e+04,0.12922e+04,0.16686e+04,0.22248e+04 /) - kbo(:, 2,42,16) = (/ & - & 0.22718e+04,0.17039e+04,0.11997e+04,0.15420e+04,0.20561e+04 /) - kbo(:, 3,42,16) = (/ & - & 0.21373e+04,0.16030e+04,0.11164e+04,0.14305e+04,0.19073e+04 /) - kbo(:, 4,42,16) = (/ & - & 0.20143e+04,0.15107e+04,0.10428e+04,0.13327e+04,0.17770e+04 /) - kbo(:, 5,42,16) = (/ & - & 0.18998e+04,0.14249e+04,0.97647e+03,0.12457e+04,0.16610e+04 /) - kbo(:, 1,43,16) = (/ & - & 0.24703e+04,0.18528e+04,0.13249e+04,0.17136e+04,0.22848e+04 /) - kbo(:, 2,43,16) = (/ & - & 0.23188e+04,0.17391e+04,0.12289e+04,0.15811e+04,0.21082e+04 /) - kbo(:, 3,43,16) = (/ & - & 0.21803e+04,0.16352e+04,0.11426e+04,0.14651e+04,0.19535e+04 /) - kbo(:, 4,43,16) = (/ & - & 0.20539e+04,0.15404e+04,0.10659e+04,0.13633e+04,0.18177e+04 /) - kbo(:, 5,43,16) = (/ & - & 0.19367e+04,0.14525e+04,0.99744e+03,0.12728e+04,0.16970e+04 /) - kbo(:, 1,44,16) = (/ & - & 0.25274e+04,0.18956e+04,0.13612e+04,0.17642e+04,0.23522e+04 /) - kbo(:, 2,44,16) = (/ & - & 0.23706e+04,0.17780e+04,0.12614e+04,0.16248e+04,0.21664e+04 /) - kbo(:, 3,44,16) = (/ & - & 0.22278e+04,0.16708e+04,0.11717e+04,0.15040e+04,0.20053e+04 /) - kbo(:, 4,44,16) = (/ & - & 0.20979e+04,0.15734e+04,0.10920e+04,0.13972e+04,0.18630e+04 /) - kbo(:, 5,44,16) = (/ & - & 0.19771e+04,0.14828e+04,0.10207e+04,0.13030e+04,0.17374e+04 /) - kbo(:, 1,45,16) = (/ & - & 0.25859e+04,0.19394e+04,0.13990e+04,0.18173e+04,0.24231e+04 /) - kbo(:, 2,45,16) = (/ & - & 0.24239e+04,0.18179e+04,0.12948e+04,0.16708e+04,0.22278e+04 /) - kbo(:, 3,45,16) = (/ & - & 0.22761e+04,0.17071e+04,0.12017e+04,0.15441e+04,0.20588e+04 /) - kbo(:, 4,45,16) = (/ & - & 0.21421e+04,0.16066e+04,0.11186e+04,0.14324e+04,0.19099e+04 /) - kbo(:, 5,45,16) = (/ & - & 0.20183e+04,0.15137e+04,0.10446e+04,0.13343e+04,0.17791e+04 /) - kbo(:, 1,46,16) = (/ & - & 0.26504e+04,0.19878e+04,0.14409e+04,0.18767e+04,0.25023e+04 /) - kbo(:, 2,46,16) = (/ & - & 0.24823e+04,0.18617e+04,0.13316e+04,0.17220e+04,0.22960e+04 /) - kbo(:, 3,46,16) = (/ & - & 0.23297e+04,0.17473e+04,0.12351e+04,0.15885e+04,0.21180e+04 /) - kbo(:, 4,46,16) = (/ & - & 0.21905e+04,0.16429e+04,0.11482e+04,0.14718e+04,0.19624e+04 /) - kbo(:, 5,46,16) = (/ & - & 0.20627e+04,0.15470e+04,0.10708e+04,0.13689e+04,0.18252e+04 /) - kbo(:, 1,47,16) = (/ & - & 0.27247e+04,0.20435e+04,0.14902e+04,0.19477e+04,0.25969e+04 /) - kbo(:, 2,47,16) = (/ & - & 0.25493e+04,0.19120e+04,0.13747e+04,0.17822e+04,0.23763e+04 /) - kbo(:, 3,47,16) = (/ & - & 0.23907e+04,0.17930e+04,0.12733e+04,0.16405e+04,0.21874e+04 /) - kbo(:, 4,47,16) = (/ & - & 0.22466e+04,0.16850e+04,0.11827e+04,0.15177e+04,0.20235e+04 /) - kbo(:, 5,47,16) = (/ & - & 0.21136e+04,0.15852e+04,0.11012e+04,0.14091e+04,0.18788e+04 /) - kbo(:, 1,48,16) = (/ & - & 0.28012e+04,0.21009e+04,0.15426e+04,0.20233e+04,0.26978e+04 /) - kbo(:, 2,48,16) = (/ & - & 0.26190e+04,0.19642e+04,0.14199e+04,0.18460e+04,0.24614e+04 /) - kbo(:, 3,48,16) = (/ & - & 0.24541e+04,0.18406e+04,0.13132e+04,0.16956e+04,0.22609e+04 /) - kbo(:, 4,48,16) = (/ & - & 0.23037e+04,0.17278e+04,0.12184e+04,0.15658e+04,0.20877e+04 /) - kbo(:, 5,48,16) = (/ & - & 0.21661e+04,0.16246e+04,0.11331e+04,0.14514e+04,0.19352e+04 /) - kbo(:, 1,49,16) = (/ & - & 0.28818e+04,0.21613e+04,0.15982e+04,0.21038e+04,0.28050e+04 /) - kbo(:, 2,49,16) = (/ & - & 0.26914e+04,0.20185e+04,0.14674e+04,0.19143e+04,0.25524e+04 /) - kbo(:, 3,49,16) = (/ & - & 0.25196e+04,0.18897e+04,0.13550e+04,0.17541e+04,0.23389e+04 /) - kbo(:, 4,49,16) = (/ & - & 0.23632e+04,0.17724e+04,0.12557e+04,0.16163e+04,0.21550e+04 /) - kbo(:, 5,49,16) = (/ & - & 0.22208e+04,0.16656e+04,0.11666e+04,0.14961e+04,0.19948e+04 /) - kbo(:, 1,50,16) = (/ & - & 0.29612e+04,0.22209e+04,0.16532e+04,0.21839e+04,0.29118e+04 /) - kbo(:, 2,50,16) = (/ & - & 0.27615e+04,0.20712e+04,0.15149e+04,0.19827e+04,0.26437e+04 /) - kbo(:, 3,50,16) = (/ & - & 0.25830e+04,0.19373e+04,0.13961e+04,0.18120e+04,0.24160e+04 /) - kbo(:, 4,50,16) = (/ & - & 0.24210e+04,0.18157e+04,0.12921e+04,0.16664e+04,0.22218e+04 /) - kbo(:, 5,50,16) = (/ & - & 0.22734e+04,0.17051e+04,0.11994e+04,0.15401e+04,0.20534e+04 /) - kbo(:, 1,51,16) = (/ & - & 0.30414e+04,0.22810e+04,0.17098e+04,0.22662e+04,0.30216e+04 /) - kbo(:, 2,51,16) = (/ & - & 0.28321e+04,0.21241e+04,0.15635e+04,0.20530e+04,0.27374e+04 /) - kbo(:, 3,51,16) = (/ & - & 0.26473e+04,0.19855e+04,0.14379e+04,0.18712e+04,0.24950e+04 /) - kbo(:, 4,51,16) = (/ & - & 0.24793e+04,0.18595e+04,0.13289e+04,0.17174e+04,0.22898e+04 /) - kbo(:, 5,51,16) = (/ & - & 0.23268e+04,0.17451e+04,0.12327e+04,0.15846e+04,0.21128e+04 /) - kbo(:, 1,52,16) = (/ & - & 0.31248e+04,0.23436e+04,0.17703e+04,0.23534e+04,0.31379e+04 /) - kbo(:, 2,52,16) = (/ & - & 0.29063e+04,0.21797e+04,0.16147e+04,0.21274e+04,0.28366e+04 /) - kbo(:, 3,52,16) = (/ & - & 0.27134e+04,0.20351e+04,0.14818e+04,0.19344e+04,0.25793e+04 /) - kbo(:, 4,52,16) = (/ & - & 0.25389e+04,0.19042e+04,0.13672e+04,0.17712e+04,0.23616e+04 /) - kbo(:, 5,52,16) = (/ & - & 0.23814e+04,0.17860e+04,0.12669e+04,0.16310e+04,0.21746e+04 /) - kbo(:, 1,53,16) = (/ & - & 0.32126e+04,0.24095e+04,0.18346e+04,0.24459e+04,0.32612e+04 /) - kbo(:, 2,53,16) = (/ & - & 0.29838e+04,0.22378e+04,0.16687e+04,0.22061e+04,0.29415e+04 /) - kbo(:, 3,53,16) = (/ & - & 0.27817e+04,0.20863e+04,0.15283e+04,0.20017e+04,0.26689e+04 /) - kbo(:, 4,53,16) = (/ & - & 0.26009e+04,0.19507e+04,0.14074e+04,0.18280e+04,0.24374e+04 /) - kbo(:, 5,53,16) = (/ & - & 0.24377e+04,0.18283e+04,0.13025e+04,0.16802e+04,0.22403e+04 /) - kbo(:, 1,54,16) = (/ & - & 0.32965e+04,0.24725e+04,0.18972e+04,0.25356e+04,0.33807e+04 /) - kbo(:, 2,54,16) = (/ & - & 0.30576e+04,0.22932e+04,0.17211e+04,0.22822e+04,0.30430e+04 /) - kbo(:, 3,54,16) = (/ & - & 0.28468e+04,0.21351e+04,0.15733e+04,0.20668e+04,0.27558e+04 /) - kbo(:, 4,54,16) = (/ & - & 0.26600e+04,0.19950e+04,0.14459e+04,0.18829e+04,0.25105e+04 /) - kbo(:, 5,54,16) = (/ & - & 0.24912e+04,0.18684e+04,0.13364e+04,0.17275e+04,0.23034e+04 /) - kbo(:, 1,55,16) = (/ & - & 0.33833e+04,0.25376e+04,0.19611e+04,0.26264e+04,0.35019e+04 /) - kbo(:, 2,55,16) = (/ & - & 0.31321e+04,0.23491e+04,0.17750e+04,0.23596e+04,0.31462e+04 /) - kbo(:, 3,55,16) = (/ & - & 0.29119e+04,0.21839e+04,0.16184e+04,0.21327e+04,0.28435e+04 /) - kbo(:, 4,55,16) = (/ & - & 0.27182e+04,0.20386e+04,0.14848e+04,0.19390e+04,0.25853e+04 /) - kbo(:, 5,55,16) = (/ & - & 0.25438e+04,0.19078e+04,0.13702e+04,0.17749e+04,0.23665e+04 /) - kbo(:, 1,56,16) = (/ & - & 0.34732e+04,0.26050e+04,0.20286e+04,0.27221e+04,0.36294e+04 /) - kbo(:, 2,56,16) = (/ & - & 0.32087e+04,0.24066e+04,0.18312e+04,0.24406e+04,0.32540e+04 /) - kbo(:, 3,56,16) = (/ & - & 0.29798e+04,0.22348e+04,0.16657e+04,0.22014e+04,0.29353e+04 /) - kbo(:, 4,56,16) = (/ & - & 0.27779e+04,0.20834e+04,0.15255e+04,0.19978e+04,0.26637e+04 /) - kbo(:, 5,56,16) = (/ & - & 0.25980e+04,0.19485e+04,0.14055e+04,0.18247e+04,0.24330e+04 /) - kbo(:, 1,57,16) = (/ & - & 0.35673e+04,0.26755e+04,0.21006e+04,0.28229e+04,0.37639e+04 /) - kbo(:, 2,57,16) = (/ & - & 0.32883e+04,0.24663e+04,0.18907e+04,0.25257e+04,0.33676e+04 /) - kbo(:, 3,57,16) = (/ & - & 0.30500e+04,0.22875e+04,0.17155e+04,0.22739e+04,0.30319e+04 /) - kbo(:, 4,57,16) = (/ & - & 0.28394e+04,0.21295e+04,0.15682e+04,0.20597e+04,0.27463e+04 /) - kbo(:, 5,57,16) = (/ & - & 0.26543e+04,0.19907e+04,0.14421e+04,0.18768e+04,0.25025e+04 /) - kbo(:, 1,58,16) = (/ & - & 0.36607e+04,0.27457e+04,0.21738e+04,0.29233e+04,0.38978e+04 /) - kbo(:, 2,58,16) = (/ & - & 0.33686e+04,0.25266e+04,0.19501e+04,0.26108e+04,0.34810e+04 /) - kbo(:, 3,58,16) = (/ & - & 0.31191e+04,0.23393e+04,0.17656e+04,0.23462e+04,0.31282e+04 /) - kbo(:, 4,58,16) = (/ & - & 0.29009e+04,0.21757e+04,0.16107e+04,0.21213e+04,0.28285e+04 /) - kbo(:, 5,58,16) = (/ & - & 0.27090e+04,0.20318e+04,0.14784e+04,0.19292e+04,0.25722e+04 /) - kbo(:, 1,59,16) = (/ & - & 0.36992e+04,0.27745e+04,0.22044e+04,0.29651e+04,0.39534e+04 /) - kbo(:, 2,59,16) = (/ & - & 0.34022e+04,0.25517e+04,0.19749e+04,0.26461e+04,0.35281e+04 /) - kbo(:, 3,59,16) = (/ & - & 0.31476e+04,0.23607e+04,0.17864e+04,0.23762e+04,0.31682e+04 /) - kbo(:, 4,59,16) = (/ & - & 0.29259e+04,0.21945e+04,0.16281e+04,0.21469e+04,0.28626e+04 /) - kbo(:, 5,59,16) = (/ & - & 0.27315e+04,0.20486e+04,0.14936e+04,0.19510e+04,0.26013e+04 /) - -! ----------------------------------------------------------------- - - forrefo(:, 1) = (/ 0.553258e-03, 0.555486e-03, 0.601339e-03, 0.708280e-03 /) - forrefo(:, 2) = (/ 0.158558e-02, 0.162957e-02, 0.204991e-02, 0.475881e-02 /) - forrefo(:, 3) = (/ 0.772542e-02, 0.784562e-02, 0.111979e-01, 0.229016e-01 /) - forrefo(:, 4) = (/ 0.255097e-01, 0.256272e-01, 0.270691e-01, 0.259505e-01 /) - forrefo(:, 5) = (/ 0.323263e-01, 0.324495e-01, 0.305535e-01, 0.263993e-01 /) - forrefo(:, 6) = (/ 0.346920e-01, 0.348255e-01, 0.323586e-01, 0.276357e-01 /) - forrefo(:, 7) = (/ 0.366509e-01, 0.366412e-01, 0.344434e-01, 0.319223e-01 /) - forrefo(:, 8) = (/ 0.378451e-01, 0.375341e-01, 0.374369e-01, 0.320334e-01 /) - forrefo(:, 9) = (/ 0.407348e-01, 0.396203e-01, 0.393988e-01, 0.318343e-01 /) - forrefo(:,10) = (/ 0.433035e-01, 0.426488e-01, 0.408085e-01, 0.332749e-01 /) - forrefo(:,11) = (/ 0.428254e-01, 0.441151e-01, 0.408887e-01, 0.327077e-01 /) - forrefo(:,12) = (/ 0.443226e-01, 0.446690e-01, 0.404676e-01, 0.350492e-01 /) - forrefo(:,13) = (/ 0.466103e-01, 0.460809e-01, 0.401286e-01, 0.370427e-01 /) - forrefo(:,14) = (/ 0.483928e-01, 0.477284e-01, 0.380684e-01, 0.387940e-01 /) - forrefo(:,15) = (/ 0.506987e-01, 0.490016e-01, 0.467069e-01, 0.368998e-01 /) - forrefo(:,16) = (/ 0.510836e-01, 0.522771e-01, 0.500130e-01, 0.483406e-01 /) - -! ----------------------------------------------------------------- -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 0.160537e-01, 0.149038e-01, 0.138363e-01, 0.128452e-01, 0.119251e-01, & - & 0.110709e-01, 0.102779e-01, 0.954175e-02, 0.885829e-02, 0.822379e-02 /) - selfrefo(:, 2) = (/ & - & 0.365753e-01, 0.342267e-01, 0.320288e-01, 0.299720e-01, 0.280474e-01, & - & 0.262463e-01, 0.245609e-01, 0.229837e-01, 0.215078e-01, 0.201267e-01 /) - selfrefo(:, 3) = (/ & - & 0.127419e+00, 0.118553e+00, 0.110304e+00, 0.102629e+00, 0.954883e-01, & - & 0.888442e-01, 0.826624e-01, 0.769107e-01, 0.715593e-01, 0.665802e-01 /) - selfrefo(:, 4) = (/ & - & 0.378687e+00, 0.348961e+00, 0.321568e+00, 0.296325e+00, 0.273064e+00, & - & 0.251629e+00, 0.231876e+00, 0.213674e+00, 0.196901e+00, 0.181444e+00 /) - selfrefo(:, 5) = (/ & - & 0.472822e+00, 0.435018e+00, 0.400236e+00, 0.368236e+00, 0.338794e+00, & - & 0.311706e+00, 0.286783e+00, 0.263854e+00, 0.242757e+00, 0.223348e+00 /) - selfrefo(:, 6) = (/ & - & 0.505620e+00, 0.465050e+00, 0.427736e+00, 0.393416e+00, 0.361849e+00, & - & 0.332815e+00, 0.306111e+00, 0.281550e+00, 0.258959e+00, 0.238181e+00 /) - selfrefo(:, 7) = (/ & - & 0.530488e+00, 0.487993e+00, 0.448902e+00, 0.412943e+00, 0.379864e+00, & - & 0.349434e+00, 0.321443e+00, 0.295694e+00, 0.272007e+00, 0.250218e+00 /) - selfrefo(:, 8) = (/ & - & 0.540222e+00, 0.497746e+00, 0.458610e+00, 0.422551e+00, 0.389327e+00, & - & 0.358716e+00, 0.330511e+00, 0.304524e+00, 0.280580e+00, 0.258519e+00 /) - selfrefo(:, 9) = (/ & - & 0.565727e+00, 0.522899e+00, 0.483313e+00, 0.446724e+00, 0.412905e+00, & - & 0.381646e+00, 0.352753e+00, 0.326048e+00, 0.301365e+00, 0.278550e+00 /) - selfrefo(:,10) = (/ & - & 0.610122e+00, 0.562337e+00, 0.518295e+00, 0.477702e+00, 0.440289e+00, & - & 0.405806e+00, 0.374023e+00, 0.344730e+00, 0.317730e+00, 0.292846e+00 /) - selfrefo(:,11) = (/ & - & 0.645176e+00, 0.588957e+00, 0.537636e+00, 0.490788e+00, 0.448022e+00, & - & 0.408982e+00, 0.373344e+00, 0.340812e+00, 0.311114e+00, 0.284004e+00 /) - selfrefo(:,12) = (/ & - & 0.651737e+00, 0.596547e+00, 0.546031e+00, 0.499792e+00, 0.457469e+00, & - & 0.418730e+00, 0.383272e+00, 0.350816e+00, 0.321108e+00, 0.293916e+00 /) - selfrefo(:,13) = (/ & - & 0.661086e+00, 0.607954e+00, 0.559093e+00, 0.514159e+00, 0.472836e+00, & - & 0.434834e+00, 0.399886e+00, 0.367747e+00, 0.338191e+00, 0.311011e+00 /) - selfrefo(:,14) = (/ & - & 0.692554e+00, 0.635574e+00, 0.583282e+00, 0.535293e+00, 0.491251e+00, & - & 0.450834e+00, 0.413741e+00, 0.379701e+00, 0.348461e+00, 0.319791e+00 /) - selfrefo(:,15) = (/ & - & 0.714646e+00, 0.657179e+00, 0.604334e+00, 0.555737e+00, 0.511049e+00, & - & 0.469954e+00, 0.432164e+00, 0.397412e+00, 0.365455e+00, 0.336068e+00 /) - selfrefo(:,16) = (/ & - & 0.782126e+00, 0.710682e+00, 0.645764e+00, 0.586776e+00, 0.533177e+00, & - & 0.484473e+00, 0.440219e+00, 0.400007e+00, 0.363468e+00, 0.330266e+00 /) - - end subroutine sw_kgb17 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_18.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_18.F90 deleted file mode 100644 index a05836106..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_18.F90 +++ /dev/null @@ -1,4985 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb18 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg18, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:,1) = (/ & - & 3.65840 , 3.54375 , 3.34481 , 3.10534 , & - & 2.79879 , 2.42841 , 1.98748 , 1.49377 , & - & 1.00196 , 0.108342 , 8.95099e-02, 7.05199e-02, & - & 5.16432e-02, 3.27635e-02, 1.25133e-02, 1.73001e-03 /) - sfluxrefo(:,2) = (/ & - & 3.86372 , 3.48521 , 3.30790 , 3.08103 , & - & 2.77552 , 2.40722 , 1.97307 , 1.48023 , & - & 0.993055 , 0.107691 , 8.84430e-02, 6.99354e-02, & - & 5.07881e-02, 3.24121e-02, 1.19442e-02, 1.57612e-03 /) - sfluxrefo(:,3) = (/ & - & 3.90370 , 3.50657 , 3.30629 , 3.06046 , & - & 2.76982 , 2.39907 , 1.96358 , 1.47458 , & - & 0.988475 , 0.106698 , 8.75242e-02, 6.85898e-02, & - & 5.04798e-02, 3.13718e-02, 1.09533e-02, 1.57612e-03 /) - sfluxrefo(:,4) = (/ & - & 3.93165 , 3.52058 , 3.31346 , 3.04944 , & - & 2.76074 , 2.39433 , 1.95556 , 1.46712 , & - & 0.984056 , 0.105885 , 8.73062e-02, 6.84054e-02, & - & 4.87443e-02, 2.99295e-02, 1.09533e-02, 1.57612e-03 /) - sfluxrefo(:,5) = (/ & - & 3.94082 , 3.55221 , 3.31863 , 3.04730 , & - & 2.74918 , 2.38328 , 1.95212 , 1.45889 , & - & 0.978888 , 0.105102 , 8.65732e-02, 6.74563e-02, & - & 4.76592e-02, 2.91017e-02, 1.09533e-02, 1.57612e-03 /) - sfluxrefo(:,6) = (/ & - & 3.94198 , 3.58743 , 3.32106 , 3.05866 , & - & 2.74115 , 2.36939 , 1.94305 , 1.45180 , & - & 0.971784 , 1.04045e-01, 8.53731e-02, 6.60654e-02, & - & 4.63228e-02, 2.91016e-02, 1.09552e-02, 1.57612e-03 /) - sfluxrefo(:,7) = (/ & - & 3.93596 , 3.63366 , 3.33144 , 3.06252 , & - & 2.74054 , 2.35492 , 1.92769 , 1.44300 , & - & 0.961809 , 1.02867e-01, 8.34164e-02, 6.41005e-02, & - & 4.61826e-02, 2.91006e-02, 1.09553e-02, 1.57612e-03 /) - sfluxrefo(:,8) = (/ & - & 3.92520 , 3.69078 , 3.35656 , 3.07055 , & - & 2.73862 , 2.34430 , 1.90187 , 1.42242 , & - & 0.946676 , 9.96302e-02, 8.14421e-02, 6.38622e-02, & - & 4.61794e-02, 2.91017e-02, 1.09553e-02, 1.57612e-03 /) - sfluxrefo(:,9) = (/ & - & 3.80721 , 3.74437 , 3.50205 , 3.18009 , & - & 2.75757 , 2.29188 , 1.84382 , 1.35694 , & - & 0.914040 , 9.86811e-02, 8.14321e-02, 6.38541e-02, & - & 4.61795e-02, 2.90960e-02, 1.09613e-02, 1.57612e-03 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:,1) = (/ & - & 3.49440E+00, 3.57650E+00, 3.41488E+00, 3.14413E+00,& - & 2.81877E+00, 2.43443E+00, 1.99233E+00, 1.49600E+00,& - & 1.00377E+00, 1.08483E-01, 8.95901E-02, 7.04863E-02,& - & 5.17070E-02, 3.26854E-02, 1.24569E-02, 1.72274E-03/) - irradnceo(:,2) = (/ & - & 3.68553E+00, 3.56505E+00, 3.35418E+00, 3.11289E+00,& - & 2.79208E+00, 2.41416E+00, 1.97742E+00, 1.48270E+00,& - & 9.95111E-01, 1.07772E-01, 8.86279E-02, 6.98929E-02,& - & 5.10621E-02, 3.23227E-02, 1.19330E-02, 1.60968E-03/) - irradnceo(:,3) = (/ & - & 3.75860E+00, 3.57346E+00, 3.33478E+00, 3.09398E+00,& - & 2.78402E+00, 2.40611E+00, 1.96708E+00, 1.47636E+00,& - & 9.90253E-01, 1.06549E-01, 8.75229E-02, 6.89197E-02,& - & 5.05164E-02, 3.14200E-02, 1.11817E-02, 1.58850E-03/) - irradnceo(:,4) = (/ & - & 3.81767E+00, 3.57466E+00, 3.32940E+00, 3.08251E+00,& - & 2.77077E+00, 2.40182E+00, 1.95824E+00, 1.46906E+00,& - & 9.84809E-01, 1.05919E-01, 8.72473E-02, 6.83740E-02,& - & 4.89285E-02, 3.01940E-02, 1.11449E-02, 1.58850E-03/) - irradnceo(:,5) = (/ & - & 3.87128E+00, 3.57646E+00, 3.33718E+00, 3.06566E+00,& - & 2.75945E+00, 2.38977E+00, 1.95417E+00, 1.46006E+00,& - & 9.79580E-01, 1.05017E-01, 8.65276E-02, 6.73472E-02,& - & 4.78356E-02, 2.92746E-02, 1.11449E-02, 1.58850E-03/) - irradnceo(:,6) = (/ & - & 3.90742E+00, 3.59616E+00, 3.33608E+00, 3.06693E+00,& - & 2.74816E+00, 2.37539E+00, 1.94331E+00, 1.45351E+00,& - & 9.71722E-01, 1.03829E-01, 8.53982E-02, 6.59824E-02,& - & 4.64343E-02, 2.92747E-02, 1.11449E-02, 1.58850E-03/) - irradnceo(:,7) = (/ & - & 3.92574E+00, 3.64369E+00, 3.33733E+00, 3.06377E+00,& - & 2.74380E+00, 2.35857E+00, 1.92632E+00, 1.44340E+00,& - & 9.61341E-01, 1.02784E-01, 8.33603E-02, 6.39926E-02,& - & 4.62416E-02, 2.92746E-02, 1.11449E-02, 1.58850E-03/) - irradnceo(:,8) = (/ & - & 3.92268E+00, 3.71504E+00, 3.37141E+00, 3.05973E+00,& - & 2.73287E+00, 2.34241E+00, 1.90068E+00, 1.41996E+00,& - & 9.44915E-01, 9.93891E-02, 8.13306E-02, 6.36746E-02,& - & 4.62467E-02, 2.92746E-02, 1.11449E-02, 1.58850E-03/) - irradnceo(:,9) = (/ & - & 3.82674E+00, 3.70356E+00, 3.53205E+00, 3.21082E+00,& - & 2.75496E+00, 2.28523E+00, 1.83335E+00, 1.35206E+00,& - & 9.11881E-01, 9.84346E-02, 8.13206E-02, 6.36749E-02,& - & 4.62421E-02, 2.92738E-02, 1.11449E-02, 1.58850E-03/) -! Solar variability components: facular brightening - facbrghto(:,1) = (/ & - & 7.58999E-04, 6.55830E-04, 6.20804E-04, 6.12259E-04,& - & 5.54428E-04, 4.79876E-04, 3.89163E-04, 3.01726E-04,& - & 2.12719E-04, 2.39117E-05, 2.02305E-05, 1.64707E-05,& - & 1.21059E-05, 8.13734E-06, 2.81665E-06, 5.39623E-07/) - facbrghto(:,2) = (/ & - & 6.36794E-04, 6.57247E-04, 6.67170E-04, 6.31953E-04,& - & 5.70430E-04, 4.94028E-04, 3.98611E-04, 3.10582E-04,& - & 2.17379E-04, 2.42843E-05, 2.07745E-05, 1.67557E-05,& - & 1.23009E-05, 8.09594E-06, 3.16603E-06, 4.44158E-07/) - facbrghto(:,3) = (/ & - & 5.87600E-04, 6.50301E-04, 6.86813E-04, 6.39318E-04,& - & 5.76886E-04, 4.99174E-04, 4.06306E-04, 3.14503E-04,& - & 2.20859E-04, 2.51296E-05, 2.13220E-05, 1.70147E-05,& - & 1.28933E-05, 8.11242E-06, 3.34674E-06, 4.36119E-07/) - facbrghto(:,4) = (/ & - & 5.46975E-04, 6.49450E-04, 6.92184E-04, 6.48755E-04,& - & 5.84166E-04, 5.01298E-04, 4.14016E-04, 3.18445E-04,& - & 2.24422E-04, 2.55811E-05, 2.17482E-05, 1.73672E-05,& - & 1.31428E-05, 8.70580E-06, 3.32525E-06, 4.36119E-07/) - facbrghto(:,5) = (/ & - & 5.08232E-04, 6.48741E-04, 6.91036E-04, 6.61654E-04,& - & 5.89889E-04, 5.07646E-04, 4.18691E-04, 3.23911E-04,& - & 2.27748E-04, 2.62553E-05, 2.19886E-05, 1.80693E-05,& - & 1.35550E-05, 8.83925E-06, 3.32525E-06, 4.36119E-07/) - facbrghto(:,6) = (/ & - & 4.76940E-04, 6.39693E-04, 6.93532E-04, 6.63608E-04,& - & 5.99297E-04, 5.14808E-04, 4.25655E-04, 3.28971E-04,& - & 2.32714E-04, 2.71686E-05, 2.25696E-05, 1.82517E-05,& - & 1.42076E-05, 8.83924E-06, 3.32525E-06, 4.36119E-07/) - facbrghto(:,7) = (/ & - & 4.57140E-04, 6.09182E-04, 6.96958E-04, 6.69137E-04,& - & 6.04079E-04, 5.25112E-04, 4.36423E-04, 3.35550E-04,& - & 2.39276E-04, 2.78692E-05, 2.32621E-05, 1.92758E-05,& - & 1.41543E-05, 8.83830E-06, 3.32525E-06, 4.36119E-07/) - facbrghto(:,8) = (/ & - & 4.52565E-04, 5.50855E-04, 6.84333E-04, 6.76955E-04,& - & 6.15651E-04, 5.39009E-04, 4.52801E-04, 3.48779E-04,& - & 2.49515E-04, 2.92096E-05, 2.43576E-05, 1.92334E-05,& - & 1.41526E-05, 8.84028E-06, 3.32525E-06, 4.36119E-07/) - facbrghto(:,9) = (/ & - & 4.91883E-04, 5.60107E-04, 5.57685E-04, 5.96261E-04,& - & 6.31358E-04, 5.93500E-04, 4.90937E-04, 3.83419E-04,& - & 2.64987E-04, 2.95723E-05, 2.43196E-05, 1.92312E-05,& - & 1.41532E-05, 8.84046E-06, 3.32525E-06, 4.36119E-07/) -! Solar variability components: sunspot darkening - snsptdrko(:,1) = (/ & - &-4.51300E-04,-4.45609E-04,-4.24720E-04,-3.99722E-04,& - &-3.60952E-04,-3.12628E-04,-2.56030E-04,-1.94296E-04,& - &-1.32174E-04,-1.43956E-05,-1.19486E-05,-9.47930E-06,& - &-6.94662E-06,-4.48228E-06,-1.65440E-06,-2.51503E-07/) - snsptdrko(:,2) = (/ & - &-4.55729E-04,-4.43042E-04,-4.26015E-04,-3.99035E-04,& - &-3.60091E-04,-3.12410E-04,-2.55602E-04,-1.94059E-04,& - &-1.31762E-04,-1.43450E-05,-1.19028E-05,-9.43882E-06,& - &-6.91015E-06,-4.40578E-06,-1.62750E-06,-2.15621E-07/) - snsptdrko(:,3) = (/ & - &-4.56549E-04,-4.43019E-04,-4.27191E-04,-3.98183E-04,& - &-3.60119E-04,-3.12019E-04,-2.55511E-04,-1.93908E-04,& - &-1.31579E-04,-1.43209E-05,-1.18561E-05,-9.35705E-06,& - &-6.92644E-06,-4.29189E-06,-1.54851E-06,-2.10351E-07/) - snsptdrko(:,4) = (/ & - &-4.56684E-04,-4.43572E-04,-4.27672E-04,-3.98699E-04,& - &-3.59420E-04,-3.11860E-04,-2.55447E-04,-1.93638E-04,& - &-1.31347E-04,-1.42991E-05,-1.18693E-05,-9.33361E-06,& - &-6.78764E-06,-4.20873E-06,-1.54183E-06,-2.10351E-07/) - snsptdrko(:,5) = (/ & - &-4.56270E-04,-4.44762E-04,-4.28429E-04,-3.98934E-04,& - &-3.58924E-04,-3.11262E-04,-2.55667E-04,-1.93279E-04,& - &-1.31122E-04,-1.42714E-05,-1.17983E-05,-9.31874E-06,& - &-6.67579E-06,-4.12466E-06,-1.54183E-06,-2.10351E-07/) - snsptdrko(:,6) = (/ & - &-4.55193E-04,-4.46168E-04,-4.29248E-04,-3.99450E-04,& - &-3.58992E-04,-3.10587E-04,-2.55473E-04,-1.93094E-04,& - &-1.30784E-04,-1.42502E-05,-1.17328E-05,-9.14896E-06,& - &-6.59212E-06,-4.12465E-06,-1.54183E-06,-2.10351E-07/) - snsptdrko(:,7) = (/ & - &-4.54045E-04,-4.47013E-04,-4.31032E-04,-3.99936E-04,& - &-3.59117E-04,-3.10327E-04,-2.54888E-04,-1.92799E-04,& - &-1.30214E-04,-1.42080E-05,-1.15499E-05,-9.02467E-06,& - &-6.55881E-06,-4.12446E-06,-1.54183E-06,-2.10351E-07/) - snsptdrko(:,8) = (/ & - &-4.52992E-04,-4.46009E-04,-4.34048E-04,-4.01532E-04,& - &-3.59657E-04,-3.10308E-04,-2.54431E-04,-1.91476E-04,& - &-1.29373E-04,-1.39204E-05,-1.14329E-05,-8.97348E-06,& - &-6.55862E-06,-4.12468E-06,-1.54183E-06,-2.10351E-07/) - snsptdrko(:,9) = (/ & - &-4.54391E-04,-4.52912E-04,-4.28976E-04,-4.03420E-04,& - &-3.64644E-04,-3.11647E-04,-2.50240E-04,-1.86827E-04,& - &-1.26855E-04,-1.38507E-05,-1.14187E-05,-8.97252E-06,& - &-6.55863E-06,-4.12466E-06,-1.54183E-06,-2.10351E-07/) - -! Rayleigh extinction coefficient at v = 4325 cm-1. - rayl = 1.39e-09 - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1, 1) = (/ & - & 0.14813e-04,0.39842e-04,0.43362e-04,0.43095e-04,0.39811e-04, & - & 0.34994e-04,0.28984e-04,0.20609e-04,0.18845e-05 /) - kao(:, 2, 1, 1) = (/ & - & 0.14432e-04,0.38749e-04,0.42119e-04,0.41834e-04,0.38900e-04, & - & 0.34365e-04,0.28571e-04,0.20503e-04,0.14715e-05 /) - kao(:, 3, 1, 1) = (/ & - & 0.13969e-04,0.37666e-04,0.40942e-04,0.40703e-04,0.37982e-04, & - & 0.33731e-04,0.28158e-04,0.20351e-04,0.10842e-05 /) - kao(:, 4, 1, 1) = (/ & - & 0.13367e-04,0.36605e-04,0.39729e-04,0.39529e-04,0.37033e-04, & - & 0.33096e-04,0.27690e-04,0.20154e-04,0.78702e-06 /) - kao(:, 5, 1, 1) = (/ & - & 0.12765e-04,0.35584e-04,0.38536e-04,0.38361e-04,0.36073e-04, & - & 0.32384e-04,0.27242e-04,0.19932e-04,0.58296e-06 /) - kao(:, 1, 2, 1) = (/ & - & 0.12299e-04,0.34179e-04,0.37405e-04,0.37535e-04,0.34714e-04, & - & 0.30335e-04,0.24892e-04,0.17524e-04,0.13301e-05 /) - kao(:, 2, 2, 1) = (/ & - & 0.12064e-04,0.33225e-04,0.36357e-04,0.36512e-04,0.33870e-04, & - & 0.29789e-04,0.24578e-04,0.17435e-04,0.10217e-05 /) - kao(:, 3, 2, 1) = (/ & - & 0.11697e-04,0.32301e-04,0.35316e-04,0.35481e-04,0.33049e-04, & - & 0.29226e-04,0.24233e-04,0.17304e-04,0.72152e-06 /) - kao(:, 4, 2, 1) = (/ & - & 0.11209e-04,0.31395e-04,0.34263e-04,0.34436e-04,0.32173e-04, & - & 0.28610e-04,0.23847e-04,0.17161e-04,0.51787e-06 /) - kao(:, 5, 2, 1) = (/ & - & 0.10706e-04,0.30496e-04,0.33311e-04,0.33396e-04,0.31295e-04, & - & 0.28002e-04,0.23445e-04,0.16971e-04,0.40230e-06 /) - kao(:, 1, 3, 1) = (/ & - & 0.10271e-04,0.29273e-04,0.32049e-04,0.32365e-04,0.29857e-04, & - & 0.26171e-04,0.21352e-04,0.14814e-04,0.80470e-06 /) - kao(:, 2, 3, 1) = (/ & - & 0.10058e-04,0.28458e-04,0.31196e-04,0.31440e-04,0.29133e-04, & - & 0.25640e-04,0.21056e-04,0.14756e-04,0.53010e-06 /) - kao(:, 3, 3, 1) = (/ & - & 0.98172e-05,0.27651e-04,0.30352e-04,0.30609e-04,0.28396e-04, & - & 0.25110e-04,0.20730e-04,0.14655e-04,0.38652e-06 /) - kao(:, 4, 3, 1) = (/ & - & 0.94577e-05,0.26874e-04,0.29475e-04,0.29749e-04,0.27669e-04, & - & 0.24553e-04,0.20400e-04,0.14536e-04,0.33236e-06 /) - kao(:, 5, 3, 1) = (/ & - & 0.90508e-05,0.26128e-04,0.28631e-04,0.28834e-04,0.26952e-04, & - & 0.24015e-04,0.20045e-04,0.14382e-04,0.30659e-06 /) - kao(:, 1, 4, 1) = (/ & - & 0.86081e-05,0.24897e-04,0.27317e-04,0.27632e-04,0.25465e-04, & - & 0.22328e-04,0.18112e-04,0.12468e-04,0.39286e-06 /) - kao(:, 2, 4, 1) = (/ & - & 0.83793e-05,0.24273e-04,0.26590e-04,0.26865e-04,0.24876e-04, & - & 0.21867e-04,0.17849e-04,0.12420e-04,0.32266e-06 /) - kao(:, 3, 4, 1) = (/ & - & 0.82296e-05,0.23584e-04,0.25869e-04,0.26155e-04,0.24255e-04, & - & 0.21403e-04,0.17579e-04,0.12338e-04,0.30775e-06 /) - kao(:, 4, 4, 1) = (/ & - & 0.79731e-05,0.22915e-04,0.25166e-04,0.25435e-04,0.23627e-04, & - & 0.20917e-04,0.17282e-04,0.12242e-04,0.30418e-06 /) - kao(:, 5, 4, 1) = (/ & - & 0.76553e-05,0.22259e-04,0.24440e-04,0.24673e-04,0.23003e-04, & - & 0.20437e-04,0.16984e-04,0.12112e-04,0.30638e-06 /) - kao(:, 1, 5, 1) = (/ & - & 0.72259e-05,0.21089e-04,0.23177e-04,0.23419e-04,0.21584e-04, & - & 0.18926e-04,0.15251e-04,0.10417e-04,0.25170e-06 /) - kao(:, 2, 5, 1) = (/ & - & 0.70215e-05,0.20567e-04,0.22541e-04,0.22788e-04,0.21102e-04, & - & 0.18526e-04,0.15049e-04,0.10379e-04,0.25958e-06 /) - kao(:, 3, 5, 1) = (/ & - & 0.68490e-05,0.20018e-04,0.21938e-04,0.22206e-04,0.20579e-04, & - & 0.18139e-04,0.14806e-04,0.10313e-04,0.26666e-06 /) - kao(:, 4, 5, 1) = (/ & - & 0.66973e-05,0.19444e-04,0.21340e-04,0.21615e-04,0.20070e-04, & - & 0.17728e-04,0.14554e-04,0.10239e-04,0.28589e-06 /) - kao(:, 5, 5, 1) = (/ & - & 0.64808e-05,0.18883e-04,0.20738e-04,0.20994e-04,0.19546e-04, & - & 0.17304e-04,0.14306e-04,0.10148e-04,0.30886e-06 /) - kao(:, 1, 6, 1) = (/ & - & 0.60727e-05,0.17794e-04,0.19609e-04,0.19769e-04,0.18228e-04, & - & 0.15946e-04,0.12793e-04,0.86559e-05,0.18559e-06 /) - kao(:, 2, 6, 1) = (/ & - & 0.58949e-05,0.17390e-04,0.19059e-04,0.19244e-04,0.17820e-04, & - & 0.15647e-04,0.12626e-04,0.86354e-05,0.19544e-06 /) - kao(:, 3, 6, 1) = (/ & - & 0.57268e-05,0.16935e-04,0.18564e-04,0.18724e-04,0.17402e-04, & - & 0.15304e-04,0.12433e-04,0.85882e-05,0.22033e-06 /) - kao(:, 4, 6, 1) = (/ & - & 0.56243e-05,0.16459e-04,0.18054e-04,0.18263e-04,0.16984e-04, & - & 0.14971e-04,0.12215e-04,0.85268e-05,0.25072e-06 /) - kao(:, 5, 6, 1) = (/ & - & 0.54584e-05,0.15984e-04,0.17548e-04,0.17773e-04,0.16551e-04, & - & 0.14601e-04,0.12004e-04,0.84568e-05,0.28110e-06 /) - kao(:, 1, 7, 1) = (/ & - & 0.50624e-05,0.14963e-04,0.16482e-04,0.16611e-04,0.15339e-04, & - & 0.13333e-04,0.10656e-04,0.71570e-05,0.13453e-06 /) - kao(:, 2, 7, 1) = (/ & - & 0.49428e-05,0.14636e-04,0.16040e-04,0.16181e-04,0.14992e-04, & - & 0.13144e-04,0.10533e-04,0.71532e-05,0.15620e-06 /) - kao(:, 3, 7, 1) = (/ & - & 0.47955e-05,0.14256e-04,0.15611e-04,0.15735e-04,0.14643e-04, & - & 0.12865e-04,0.10390e-04,0.71248e-05,0.18571e-06 /) - kao(:, 4, 7, 1) = (/ & - & 0.46743e-05,0.13876e-04,0.15213e-04,0.15342e-04,0.14293e-04, & - & 0.12576e-04,0.10215e-04,0.70735e-05,0.21382e-06 /) - kao(:, 5, 7, 1) = (/ & - & 0.45708e-05,0.13473e-04,0.14782e-04,0.14947e-04,0.13933e-04, & - & 0.12274e-04,0.10036e-04,0.70177e-05,0.24419e-06 /) - kao(:, 1, 8, 1) = (/ & - & 0.42289e-05,0.12528e-04,0.13817e-04,0.13922e-04,0.12867e-04, & - & 0.11126e-04,0.88468e-05,0.59010e-05,0.10600e-06 /) - kao(:, 2, 8, 1) = (/ & - & 0.41319e-05,0.12286e-04,0.13480e-04,0.13582e-04,0.12584e-04, & - & 0.10973e-04,0.87644e-05,0.59049e-05,0.12951e-06 /) - kao(:, 3, 8, 1) = (/ & - & 0.40317e-05,0.11996e-04,0.13116e-04,0.13206e-04,0.12295e-04, & - & 0.10786e-04,0.86537e-05,0.58898e-05,0.15731e-06 /) - kao(:, 4, 8, 1) = (/ & - & 0.39107e-05,0.11666e-04,0.12771e-04,0.12870e-04,0.12010e-04, & - & 0.10546e-04,0.85244e-05,0.58536e-05,0.18716e-06 /) - kao(:, 5, 8, 1) = (/ & - & 0.38384e-05,0.11346e-04,0.12435e-04,0.12549e-04,0.11706e-04, & - & 0.10289e-04,0.83756e-05,0.58104e-05,0.21679e-06 /) - kao(:, 1, 9, 1) = (/ & - & 0.35240e-05,0.10418e-04,0.11558e-04,0.11687e-04,0.10748e-04, & - & 0.92305e-05,0.73198e-05,0.48514e-05,0.10176e-06 /) - kao(:, 2, 9, 1) = (/ & - & 0.34478e-05,0.10296e-04,0.11296e-04,0.11369e-04,0.10532e-04, & - & 0.91375e-05,0.72737e-05,0.48639e-05,0.12695e-06 /) - kao(:, 3, 9, 1) = (/ & - & 0.33718e-05,0.10068e-04,0.10996e-04,0.11063e-04,0.10290e-04, & - & 0.89957e-05,0.71844e-05,0.48583e-05,0.15482e-06 /) - kao(:, 4, 9, 1) = (/ & - & 0.32801e-05,0.97990e-05,0.10712e-04,0.10762e-04,0.10056e-04, & - & 0.88255e-05,0.70907e-05,0.48364e-05,0.18123e-06 /) - kao(:, 5, 9, 1) = (/ & - & 0.31960e-05,0.95350e-05,0.10427e-04,0.10501e-04,0.98056e-05, & - & 0.86157e-05,0.69723e-05,0.48010e-05,0.20738e-06 /) - kao(:, 1,10, 1) = (/ & - & 0.29197e-05,0.86183e-05,0.96100e-05,0.97448e-05,0.89187e-05, & - & 0.76354e-05,0.60318e-05,0.39733e-05,0.10310e-06 /) - kao(:, 2,10, 1) = (/ & - & 0.28677e-05,0.85565e-05,0.94191e-05,0.94682e-05,0.87653e-05, & - & 0.75725e-05,0.60089e-05,0.39956e-05,0.12951e-06 /) - kao(:, 3,10, 1) = (/ & - & 0.28036e-05,0.84121e-05,0.91902e-05,0.92251e-05,0.85811e-05, & - & 0.74653e-05,0.59452e-05,0.39967e-05,0.15684e-06 /) - kao(:, 4,10, 1) = (/ & - & 0.27420e-05,0.82035e-05,0.89440e-05,0.89748e-05,0.83817e-05, & - & 0.73422e-05,0.58725e-05,0.39844e-05,0.18564e-06 /) - kao(:, 5,10, 1) = (/ & - & 0.26596e-05,0.79739e-05,0.87074e-05,0.87508e-05,0.81784e-05, & - & 0.71781e-05,0.57815e-05,0.39569e-05,0.21476e-06 /) - kao(:, 1,11, 1) = (/ & - & 0.23988e-05,0.71135e-05,0.79121e-05,0.80118e-05,0.73370e-05, & - & 0.62844e-05,0.49610e-05,0.32641e-05,0.91697e-07 /) - kao(:, 2,11, 1) = (/ & - & 0.23552e-05,0.70587e-05,0.77519e-05,0.77821e-05,0.72113e-05, & - & 0.62297e-05,0.49407e-05,0.32815e-05,0.11307e-06 /) - kao(:, 3,11, 1) = (/ & - & 0.23046e-05,0.69367e-05,0.75662e-05,0.75790e-05,0.70631e-05, & - & 0.61409e-05,0.48867e-05,0.32812e-05,0.13715e-06 /) - kao(:, 4,11, 1) = (/ & - & 0.22557e-05,0.67632e-05,0.73640e-05,0.73772e-05,0.68972e-05, & - & 0.60381e-05,0.48254e-05,0.32705e-05,0.16436e-06 /) - kao(:, 5,11, 1) = (/ & - & 0.21899e-05,0.65748e-05,0.71695e-05,0.71946e-05,0.67295e-05, & - & 0.59022e-05,0.47488e-05,0.32476e-05,0.19025e-06 /) - kao(:, 1,12, 1) = (/ & - & 0.19699e-05,0.58670e-05,0.65075e-05,0.65808e-05,0.60300e-05, & - & 0.51665e-05,0.40749e-05,0.26788e-05,0.77100e-07 /) - kao(:, 2,12, 1) = (/ & - & 0.19348e-05,0.58146e-05,0.63730e-05,0.63891e-05,0.59260e-05, & - & 0.51196e-05,0.40577e-05,0.26926e-05,0.95693e-07 /) - kao(:, 3,12, 1) = (/ & - & 0.18947e-05,0.57134e-05,0.62207e-05,0.62238e-05,0.58090e-05, & - & 0.50459e-05,0.40113e-05,0.26916e-05,0.11572e-06 /) - kao(:, 4,12, 1) = (/ & - & 0.18552e-05,0.55709e-05,0.60522e-05,0.60611e-05,0.56693e-05, & - & 0.49594e-05,0.39606e-05,0.26824e-05,0.13797e-06 /) - kao(:, 5,12, 1) = (/ & - & 0.18040e-05,0.54137e-05,0.58935e-05,0.59096e-05,0.55294e-05, & - & 0.48443e-05,0.38977e-05,0.26633e-05,0.15884e-06 /) - kao(:, 1,13, 1) = (/ & - & 0.16167e-05,0.48272e-05,0.53475e-05,0.53983e-05,0.49503e-05, & - & 0.42413e-05,0.33431e-05,0.21956e-05,0.61381e-07 /) - kao(:, 2,13, 1) = (/ & - & 0.15895e-05,0.47809e-05,0.52342e-05,0.52409e-05,0.48652e-05, & - & 0.42021e-05,0.33263e-05,0.22072e-05,0.76382e-07 /) - kao(:, 3,13, 1) = (/ & - & 0.15582e-05,0.46982e-05,0.51055e-05,0.51058e-05,0.47716e-05, & - & 0.41406e-05,0.32886e-05,0.22058e-05,0.93083e-07 /) - kao(:, 4,13, 1) = (/ & - & 0.15242e-05,0.45831e-05,0.49696e-05,0.49735e-05,0.46534e-05, & - & 0.40678e-05,0.32469e-05,0.21969e-05,0.11211e-06 /) - kao(:, 5,13, 1) = (/ & - & 0.14859e-05,0.44492e-05,0.48392e-05,0.48479e-05,0.45378e-05, & - & 0.39689e-05,0.31933e-05,0.21813e-05,0.12970e-06 /) - kao(:, 1, 1, 2) = (/ & - & 0.10138e-03,0.20456e-03,0.22117e-03,0.21948e-03,0.20805e-03, & - & 0.18373e-03,0.14999e-03,0.95382e-04,0.33213e-05 /) - kao(:, 2, 1, 2) = (/ & - & 0.10141e-03,0.20889e-03,0.22456e-03,0.22223e-03,0.20912e-03, & - & 0.18467e-03,0.15060e-03,0.95713e-04,0.28479e-05 /) - kao(:, 3, 1, 2) = (/ & - & 0.10125e-03,0.21223e-03,0.22712e-03,0.22388e-03,0.20983e-03, & - & 0.18513e-03,0.15100e-03,0.95881e-04,0.26338e-05 /) - kao(:, 4, 1, 2) = (/ & - & 0.10105e-03,0.21442e-03,0.22863e-03,0.22421e-03,0.21046e-03, & - & 0.18540e-03,0.15060e-03,0.95798e-04,0.27638e-05 /) - kao(:, 5, 1, 2) = (/ & - & 0.10040e-03,0.21612e-03,0.22899e-03,0.22416e-03,0.21046e-03, & - & 0.18570e-03,0.15001e-03,0.95569e-04,0.29313e-05 /) - kao(:, 1, 2, 2) = (/ & - & 0.89639e-04,0.17797e-03,0.19284e-03,0.18986e-03,0.17824e-03, & - & 0.15789e-03,0.12906e-03,0.83524e-04,0.23926e-05 /) - kao(:, 2, 2, 2) = (/ & - & 0.89499e-04,0.18144e-03,0.19563e-03,0.19227e-03,0.17941e-03, & - & 0.15844e-03,0.12961e-03,0.83632e-04,0.21969e-05 /) - kao(:, 3, 2, 2) = (/ & - & 0.89411e-04,0.18401e-03,0.19753e-03,0.19350e-03,0.17999e-03, & - & 0.15883e-03,0.12989e-03,0.83577e-04,0.23158e-05 /) - kao(:, 4, 2, 2) = (/ & - & 0.88841e-04,0.18541e-03,0.19872e-03,0.19398e-03,0.18053e-03, & - & 0.15907e-03,0.12972e-03,0.83396e-04,0.23760e-05 /) - kao(:, 5, 2, 2) = (/ & - & 0.87949e-04,0.18659e-03,0.19902e-03,0.19407e-03,0.18073e-03, & - & 0.15910e-03,0.12937e-03,0.83120e-04,0.25247e-05 /) - kao(:, 1, 3, 2) = (/ & - & 0.77466e-04,0.15264e-03,0.16704e-03,0.16342e-03,0.15300e-03, & - & 0.13499e-03,0.11007e-03,0.71881e-04,0.17839e-05 /) - kao(:, 2, 3, 2) = (/ & - & 0.77483e-04,0.15611e-03,0.16950e-03,0.16551e-03,0.15408e-03, & - & 0.13580e-03,0.11055e-03,0.72020e-04,0.18564e-05 /) - kao(:, 3, 3, 2) = (/ & - & 0.77142e-04,0.15867e-03,0.17112e-03,0.16672e-03,0.15481e-03, & - & 0.13616e-03,0.11077e-03,0.71922e-04,0.20228e-05 /) - kao(:, 4, 3, 2) = (/ & - & 0.76460e-04,0.16058e-03,0.17186e-03,0.16717e-03,0.15519e-03, & - & 0.13641e-03,0.11060e-03,0.71775e-04,0.21717e-05 /) - kao(:, 5, 3, 2) = (/ & - & 0.75510e-04,0.16158e-03,0.17210e-03,0.16730e-03,0.15521e-03, & - & 0.13649e-03,0.11022e-03,0.71516e-04,0.23140e-05 /) - kao(:, 1, 4, 2) = (/ & - & 0.65931e-04,0.12940e-03,0.14295e-03,0.14005e-03,0.13095e-03, & - & 0.11494e-03,0.93656e-04,0.61167e-04,0.17094e-05 /) - kao(:, 2, 4, 2) = (/ & - & 0.66090e-04,0.13269e-03,0.14542e-03,0.14233e-03,0.13201e-03, & - & 0.11558e-03,0.93975e-04,0.61436e-04,0.18527e-05 /) - kao(:, 3, 4, 2) = (/ & - & 0.65630e-04,0.13532e-03,0.14717e-03,0.14364e-03,0.13266e-03, & - & 0.11604e-03,0.94126e-04,0.61467e-04,0.19576e-05 /) - kao(:, 4, 4, 2) = (/ & - & 0.64971e-04,0.13708e-03,0.14818e-03,0.14427e-03,0.13304e-03, & - & 0.11616e-03,0.94152e-04,0.61334e-04,0.20614e-05 /) - kao(:, 5, 4, 2) = (/ & - & 0.64122e-04,0.13834e-03,0.14864e-03,0.14451e-03,0.13312e-03, & - & 0.11638e-03,0.93955e-04,0.61162e-04,0.21640e-05 /) - kao(:, 1, 5, 2) = (/ & - & 0.55594e-04,0.10830e-03,0.12068e-03,0.11865e-03,0.11127e-03, & - & 0.97925e-04,0.79208e-04,0.51842e-04,0.15954e-05 /) - kao(:, 2, 5, 2) = (/ & - & 0.55669e-04,0.11117e-03,0.12299e-03,0.12091e-03,0.11248e-03, & - & 0.98643e-04,0.79433e-04,0.52127e-04,0.16966e-05 /) - kao(:, 3, 5, 2) = (/ & - & 0.55430e-04,0.11345e-03,0.12478e-03,0.12235e-03,0.11332e-03, & - & 0.99117e-04,0.79823e-04,0.52286e-04,0.18304e-05 /) - kao(:, 4, 5, 2) = (/ & - & 0.54800e-04,0.11543e-03,0.12601e-03,0.12304e-03,0.11389e-03, & - & 0.99346e-04,0.79935e-04,0.52275e-04,0.19479e-05 /) - kao(:, 5, 5, 2) = (/ & - & 0.54027e-04,0.11665e-03,0.12660e-03,0.12339e-03,0.11410e-03, & - & 0.99535e-04,0.79840e-04,0.52168e-04,0.20583e-05 /) - kao(:, 1, 6, 2) = (/ & - & 0.46500e-04,0.89887e-04,0.10048e-03,0.99161e-04,0.93136e-04, & - & 0.82279e-04,0.66872e-04,0.43617e-04,0.14730e-05 /) - kao(:, 2, 6, 2) = (/ & - & 0.46632e-04,0.92444e-04,0.10271e-03,0.10123e-03,0.94559e-04, & - & 0.83135e-04,0.67204e-04,0.44046e-04,0.16215e-05 /) - kao(:, 3, 6, 2) = (/ & - & 0.46490e-04,0.94415e-04,0.10446e-03,0.10269e-03,0.95387e-04, & - & 0.83676e-04,0.67579e-04,0.44279e-04,0.17358e-05 /) - kao(:, 4, 6, 2) = (/ & - & 0.46004e-04,0.96190e-04,0.10570e-03,0.10346e-03,0.95883e-04, & - & 0.84038e-04,0.67753e-04,0.44348e-04,0.18096e-05 /) - kao(:, 5, 6, 2) = (/ & - & 0.45362e-04,0.97511e-04,0.10645e-03,0.10384e-03,0.96197e-04, & - & 0.84347e-04,0.67758e-04,0.44305e-04,0.18882e-05 /) - kao(:, 1, 7, 2) = (/ & - & 0.38597e-04,0.74019e-04,0.82882e-04,0.81807e-04,0.76936e-04, & - & 0.68278e-04,0.55744e-04,0.36507e-04,0.13400e-05 /) - kao(:, 2, 7, 2) = (/ & - & 0.38728e-04,0.76353e-04,0.85030e-04,0.83822e-04,0.78523e-04, & - & 0.69221e-04,0.56199e-04,0.36932e-04,0.14766e-05 /) - kao(:, 3, 7, 2) = (/ & - & 0.38688e-04,0.78164e-04,0.86691e-04,0.85269e-04,0.79424e-04, & - & 0.69849e-04,0.56507e-04,0.37211e-04,0.16077e-05 /) - kao(:, 4, 7, 2) = (/ & - & 0.38399e-04,0.79654e-04,0.87882e-04,0.86145e-04,0.79917e-04, & - & 0.70214e-04,0.56698e-04,0.37302e-04,0.17365e-05 /) - kao(:, 5, 7, 2) = (/ & - & 0.37899e-04,0.81012e-04,0.88706e-04,0.86589e-04,0.80259e-04, & - & 0.70429e-04,0.56810e-04,0.37287e-04,0.18595e-05 /) - kao(:, 1, 8, 2) = (/ & - & 0.31959e-04,0.60671e-04,0.67963e-04,0.67053e-04,0.63057e-04, & - & 0.56287e-04,0.46187e-04,0.30298e-04,0.12071e-05 /) - kao(:, 2, 8, 2) = (/ & - & 0.32062e-04,0.62753e-04,0.69892e-04,0.68941e-04,0.64624e-04, & - & 0.57187e-04,0.46566e-04,0.30687e-04,0.13582e-05 /) - kao(:, 3, 8, 2) = (/ & - & 0.32098e-04,0.64435e-04,0.71423e-04,0.70359e-04,0.65646e-04, & - & 0.57882e-04,0.46897e-04,0.30993e-04,0.15217e-05 /) - kao(:, 4, 8, 2) = (/ & - & 0.31956e-04,0.65758e-04,0.72650e-04,0.71275e-04,0.66275e-04, & - & 0.58298e-04,0.47100e-04,0.31079e-04,0.16794e-05 /) - kao(:, 5, 8, 2) = (/ & - & 0.31584e-04,0.66916e-04,0.73502e-04,0.71819e-04,0.66611e-04, & - & 0.58505e-04,0.47243e-04,0.31088e-04,0.18250e-05 /) - kao(:, 1, 9, 2) = (/ & - & 0.26355e-04,0.49472e-04,0.55415e-04,0.54584e-04,0.51361e-04, & - & 0.46135e-04,0.38027e-04,0.24983e-04,0.13549e-05 /) - kao(:, 2, 9, 2) = (/ & - & 0.26472e-04,0.51302e-04,0.57165e-04,0.56417e-04,0.52936e-04, & - & 0.47048e-04,0.38417e-04,0.25347e-04,0.14941e-05 /) - kao(:, 3, 9, 2) = (/ & - & 0.26545e-04,0.52866e-04,0.58563e-04,0.57776e-04,0.53988e-04, & - & 0.47706e-04,0.38739e-04,0.25638e-04,0.16563e-05 /) - kao(:, 4, 9, 2) = (/ & - & 0.26469e-04,0.54105e-04,0.59749e-04,0.58746e-04,0.54668e-04, & - & 0.48161e-04,0.38970e-04,0.25744e-04,0.18262e-05 /) - kao(:, 5, 9, 2) = (/ & - & 0.26248e-04,0.55079e-04,0.60619e-04,0.59317e-04,0.55099e-04, & - & 0.48435e-04,0.39115e-04,0.25778e-04,0.20238e-05 /) - kao(:, 1,10, 2) = (/ & - & 0.21631e-04,0.40297e-04,0.45170e-04,0.44298e-04,0.41876e-04, & - & 0.37690e-04,0.31212e-04,0.20552e-04,0.16328e-05 /) - kao(:, 2,10, 2) = (/ & - & 0.21814e-04,0.41896e-04,0.46681e-04,0.46065e-04,0.43227e-04, & - & 0.38608e-04,0.31614e-04,0.20857e-04,0.18610e-05 /) - kao(:, 3,10, 2) = (/ & - & 0.21864e-04,0.43247e-04,0.47945e-04,0.47327e-04,0.44273e-04, & - & 0.39201e-04,0.31894e-04,0.21119e-04,0.20775e-05 /) - kao(:, 4,10, 2) = (/ & - & 0.21835e-04,0.44386e-04,0.48986e-04,0.48228e-04,0.44916e-04, & - & 0.39637e-04,0.32093e-04,0.21228e-04,0.22541e-05 /) - kao(:, 5,10, 2) = (/ & - & 0.21728e-04,0.45263e-04,0.49804e-04,0.48818e-04,0.45409e-04, & - & 0.39950e-04,0.32269e-04,0.21290e-04,0.24525e-05 /) - kao(:, 1,11, 2) = (/ & - & 0.17823e-04,0.33378e-04,0.37337e-04,0.36619e-04,0.34598e-04, & - & 0.31113e-04,0.25761e-04,0.16956e-04,0.15042e-05 /) - kao(:, 2,11, 2) = (/ & - & 0.17970e-04,0.34679e-04,0.38589e-04,0.38065e-04,0.35695e-04, & - & 0.31869e-04,0.26044e-04,0.17214e-04,0.16847e-05 /) - kao(:, 3,11, 2) = (/ & - & 0.17997e-04,0.35791e-04,0.39619e-04,0.39097e-04,0.36539e-04, & - & 0.32374e-04,0.26298e-04,0.17428e-04,0.18887e-05 /) - kao(:, 4,11, 2) = (/ & - & 0.17967e-04,0.36717e-04,0.40463e-04,0.39821e-04,0.37071e-04, & - & 0.32716e-04,0.26461e-04,0.17496e-04,0.20546e-05 /) - kao(:, 5,11, 2) = (/ & - & 0.17868e-04,0.37423e-04,0.41124e-04,0.40304e-04,0.37473e-04, & - & 0.32971e-04,0.26612e-04,0.17532e-04,0.22240e-05 /) - kao(:, 1,12, 2) = (/ & - & 0.14665e-04,0.27605e-04,0.30811e-04,0.30250e-04,0.28525e-04, & - & 0.25644e-04,0.21186e-04,0.13955e-04,0.12588e-05 /) - kao(:, 2,12, 2) = (/ & - & 0.14775e-04,0.28655e-04,0.31851e-04,0.31408e-04,0.29418e-04, & - & 0.26261e-04,0.21430e-04,0.14172e-04,0.14181e-05 /) - kao(:, 3,12, 2) = (/ & - & 0.14799e-04,0.29571e-04,0.32687e-04,0.32242e-04,0.30093e-04, & - & 0.26683e-04,0.21636e-04,0.14338e-04,0.15619e-05 /) - kao(:, 4,12, 2) = (/ & - & 0.14777e-04,0.30325e-04,0.33371e-04,0.32826e-04,0.30553e-04, & - & 0.26945e-04,0.21775e-04,0.14380e-04,0.16917e-05 /) - kao(:, 5,12, 2) = (/ & - & 0.14685e-04,0.30904e-04,0.33907e-04,0.33214e-04,0.30875e-04, & - & 0.27158e-04,0.21883e-04,0.14414e-04,0.18423e-05 /) - kao(:, 1,13, 2) = (/ & - & 0.12044e-04,0.22772e-04,0.25375e-04,0.24926e-04,0.23458e-04, & - & 0.21059e-04,0.17387e-04,0.11457e-04,0.99122e-06 /) - kao(:, 2,13, 2) = (/ & - & 0.12128e-04,0.23637e-04,0.26249e-04,0.25842e-04,0.24187e-04, & - & 0.21582e-04,0.17590e-04,0.11636e-04,0.11037e-05 /) - kao(:, 3,13, 2) = (/ & - & 0.12152e-04,0.24386e-04,0.26910e-04,0.26531e-04,0.24731e-04, & - & 0.21923e-04,0.17760e-04,0.11755e-04,0.12026e-05 /) - kao(:, 4,13, 2) = (/ & - & 0.12130e-04,0.24996e-04,0.27464e-04,0.27006e-04,0.25113e-04, & - & 0.22138e-04,0.17874e-04,0.11797e-04,0.13028e-05 /) - kao(:, 5,13, 2) = (/ & - & 0.12050e-04,0.25474e-04,0.27895e-04,0.27297e-04,0.25373e-04, & - & 0.22302e-04,0.17948e-04,0.11817e-04,0.14010e-05 /) - kao(:, 1, 1, 3) = (/ & - & 0.36823e-03,0.49613e-03,0.51817e-03,0.50538e-03,0.45711e-03, & - & 0.39605e-03,0.31486e-03,0.21474e-03,0.10932e-04 /) - kao(:, 2, 1, 3) = (/ & - & 0.37008e-03,0.50778e-03,0.53361e-03,0.51778e-03,0.46995e-03, & - & 0.40629e-03,0.32309e-03,0.21878e-03,0.11421e-04 /) - kao(:, 3, 1, 3) = (/ & - & 0.36989e-03,0.51812e-03,0.54699e-03,0.52922e-03,0.48036e-03, & - & 0.41559e-03,0.32965e-03,0.22226e-03,0.12395e-04 /) - kao(:, 4, 1, 3) = (/ & - & 0.36721e-03,0.52763e-03,0.55746e-03,0.53957e-03,0.48891e-03, & - & 0.42313e-03,0.33545e-03,0.22588e-03,0.13515e-04 /) - kao(:, 5, 1, 3) = (/ & - & 0.36313e-03,0.53652e-03,0.56680e-03,0.54791e-03,0.49664e-03, & - & 0.42907e-03,0.34043e-03,0.22916e-03,0.14734e-04 /) - kao(:, 1, 2, 3) = (/ & - & 0.32411e-03,0.42815e-03,0.44725e-03,0.43813e-03,0.40150e-03, & - & 0.34871e-03,0.27912e-03,0.18929e-03,0.80741e-05 /) - kao(:, 2, 2, 3) = (/ & - & 0.32567e-03,0.43786e-03,0.46069e-03,0.45027e-03,0.41319e-03, & - & 0.35819e-03,0.28635e-03,0.19325e-03,0.87340e-05 /) - kao(:, 3, 2, 3) = (/ & - & 0.32429e-03,0.44638e-03,0.47228e-03,0.46074e-03,0.42272e-03, & - & 0.36602e-03,0.29201e-03,0.19653e-03,0.96110e-05 /) - kao(:, 4, 2, 3) = (/ & - & 0.32137e-03,0.45531e-03,0.48142e-03,0.46951e-03,0.42996e-03, & - & 0.37250e-03,0.29709e-03,0.19974e-03,0.10697e-04 /) - kao(:, 5, 2, 3) = (/ & - & 0.31776e-03,0.46207e-03,0.48880e-03,0.47659e-03,0.43551e-03, & - & 0.37776e-03,0.30138e-03,0.20274e-03,0.11704e-04 /) - kao(:, 1, 3, 3) = (/ & - & 0.28488e-03,0.36767e-03,0.38081e-03,0.37438e-03,0.34525e-03, & - & 0.30150e-03,0.24332e-03,0.16415e-03,0.63970e-05 /) - kao(:, 2, 3, 3) = (/ & - & 0.28539e-03,0.37509e-03,0.39196e-03,0.38510e-03,0.35566e-03, & - & 0.30998e-03,0.24963e-03,0.16766e-03,0.72006e-05 /) - kao(:, 3, 3, 3) = (/ & - & 0.28397e-03,0.38215e-03,0.40156e-03,0.39428e-03,0.36418e-03, & - & 0.31727e-03,0.25446e-03,0.17107e-03,0.79574e-05 /) - kao(:, 4, 3, 3) = (/ & - & 0.28134e-03,0.38867e-03,0.40959e-03,0.40230e-03,0.37093e-03, & - & 0.32301e-03,0.25898e-03,0.17447e-03,0.87131e-05 /) - kao(:, 5, 3, 3) = (/ & - & 0.27886e-03,0.39360e-03,0.41642e-03,0.40852e-03,0.37609e-03, & - & 0.32740e-03,0.26312e-03,0.17737e-03,0.94704e-05 /) - kao(:, 1, 4, 3) = (/ & - & 0.24923e-03,0.31555e-03,0.32423e-03,0.31731e-03,0.29410e-03, & - & 0.25671e-03,0.20762e-03,0.14074e-03,0.55877e-05 /) - kao(:, 2, 4, 3) = (/ & - & 0.24977e-03,0.32120e-03,0.33372e-03,0.32657e-03,0.30295e-03, & - & 0.26472e-03,0.21303e-03,0.14396e-03,0.61575e-05 /) - kao(:, 3, 4, 3) = (/ & - & 0.24865e-03,0.32668e-03,0.34180e-03,0.33446e-03,0.31033e-03, & - & 0.27144e-03,0.21777e-03,0.14714e-03,0.67916e-05 /) - kao(:, 4, 4, 3) = (/ & - & 0.24709e-03,0.33133e-03,0.34841e-03,0.34134e-03,0.31600e-03, & - & 0.27647e-03,0.22179e-03,0.15016e-03,0.74653e-05 /) - kao(:, 5, 4, 3) = (/ & - & 0.24455e-03,0.33491e-03,0.35388e-03,0.34708e-03,0.32069e-03, & - & 0.28005e-03,0.22522e-03,0.15242e-03,0.81619e-05 /) - kao(:, 1, 5, 3) = (/ & - & 0.21526e-03,0.27115e-03,0.27505e-03,0.26802e-03,0.24968e-03, & - & 0.21690e-03,0.17481e-03,0.11906e-03,0.50850e-05 /) - kao(:, 2, 5, 3) = (/ & - & 0.21611e-03,0.27621e-03,0.28298e-03,0.27620e-03,0.25722e-03, & - & 0.22411e-03,0.18004e-03,0.12197e-03,0.55738e-05 /) - kao(:, 3, 5, 3) = (/ & - & 0.21583e-03,0.28060e-03,0.28955e-03,0.28282e-03,0.26346e-03, & - & 0.23005e-03,0.18415e-03,0.12451e-03,0.60864e-05 /) - kao(:, 4, 5, 3) = (/ & - & 0.21446e-03,0.28363e-03,0.29469e-03,0.28896e-03,0.26860e-03, & - & 0.23435e-03,0.18768e-03,0.12690e-03,0.66417e-05 /) - kao(:, 5, 5, 3) = (/ & - & 0.21217e-03,0.28626e-03,0.29929e-03,0.29370e-03,0.27250e-03, & - & 0.23763e-03,0.19073e-03,0.12909e-03,0.72122e-05 /) - kao(:, 1, 6, 3) = (/ & - & 0.18262e-03,0.23112e-03,0.23388e-03,0.22681e-03,0.21062e-03, & - & 0.18196e-03,0.14634e-03,0.99707e-04,0.48078e-05 /) - kao(:, 2, 6, 3) = (/ & - & 0.18393e-03,0.23591e-03,0.24094e-03,0.23364e-03,0.21663e-03, & - & 0.18814e-03,0.15114e-03,0.10205e-03,0.52252e-05 /) - kao(:, 3, 6, 3) = (/ & - & 0.18379e-03,0.23984e-03,0.24676e-03,0.23956e-03,0.22221e-03, & - & 0.19356e-03,0.15489e-03,0.10434e-03,0.56405e-05 /) - kao(:, 4, 6, 3) = (/ & - & 0.18270e-03,0.24258e-03,0.25102e-03,0.24458e-03,0.22685e-03, & - & 0.19771e-03,0.15805e-03,0.10655e-03,0.60728e-05 /) - kao(:, 5, 6, 3) = (/ & - & 0.18067e-03,0.24446e-03,0.25467e-03,0.24894e-03,0.23051e-03, & - & 0.20056e-03,0.16088e-03,0.10844e-03,0.65160e-05 /) - kao(:, 1, 7, 3) = (/ & - & 0.15269e-03,0.19407e-03,0.19640e-03,0.19073e-03,0.17715e-03, & - & 0.15224e-03,0.12181e-03,0.83302e-04,0.45185e-05 /) - kao(:, 2, 7, 3) = (/ & - & 0.15450e-03,0.19834e-03,0.20246e-03,0.19675e-03,0.18242e-03, & - & 0.15776e-03,0.12610e-03,0.85306e-04,0.49315e-05 /) - kao(:, 3, 7, 3) = (/ & - & 0.15459e-03,0.20178e-03,0.20759e-03,0.20176e-03,0.18737e-03, & - & 0.16233e-03,0.12951e-03,0.87417e-04,0.53491e-05 /) - kao(:, 4, 7, 3) = (/ & - & 0.15368e-03,0.20410e-03,0.21160e-03,0.20623e-03,0.19161e-03, & - & 0.16603e-03,0.13246e-03,0.89237e-04,0.57562e-05 /) - kao(:, 5, 7, 3) = (/ & - & 0.15207e-03,0.20567e-03,0.21458e-03,0.20991e-03,0.19525e-03, & - & 0.16906e-03,0.13481e-03,0.90932e-04,0.61659e-05 /) - kao(:, 1, 8, 3) = (/ & - & 0.12672e-03,0.16159e-03,0.16329e-03,0.15821e-03,0.14746e-03, & - & 0.12624e-03,0.10116e-03,0.69306e-04,0.46652e-05 /) - kao(:, 2, 8, 3) = (/ & - & 0.12853e-03,0.16539e-03,0.16859e-03,0.16359e-03,0.15208e-03, & - & 0.13120e-03,0.10513e-03,0.71005e-04,0.51392e-05 /) - kao(:, 3, 8, 3) = (/ & - & 0.12901e-03,0.16841e-03,0.17301e-03,0.16813e-03,0.15614e-03, & - & 0.13532e-03,0.10829e-03,0.72863e-04,0.55244e-05 /) - kao(:, 4, 8, 3) = (/ & - & 0.12833e-03,0.17058e-03,0.17652e-03,0.17184e-03,0.15971e-03, & - & 0.13867e-03,0.11087e-03,0.74475e-04,0.58193e-05 /) - kao(:, 5, 8, 3) = (/ & - & 0.12715e-03,0.17197e-03,0.17918e-03,0.17513e-03,0.16292e-03, & - & 0.14144e-03,0.11301e-03,0.75965e-04,0.61705e-05 /) - kao(:, 1, 9, 3) = (/ & - & 0.10428e-03,0.13348e-03,0.13462e-03,0.12995e-03,0.12158e-03, & - & 0.10379e-03,0.83005e-04,0.57371e-04,0.55965e-05 /) - kao(:, 2, 9, 3) = (/ & - & 0.10619e-03,0.13710e-03,0.13932e-03,0.13469e-03,0.12538e-03, & - & 0.10800e-03,0.86632e-04,0.58954e-04,0.61961e-05 /) - kao(:, 3, 9, 3) = (/ & - & 0.10690e-03,0.13978e-03,0.14315e-03,0.13877e-03,0.12885e-03, & - & 0.11169e-03,0.89643e-04,0.60568e-04,0.68526e-05 /) - kao(:, 4, 9, 3) = (/ & - & 0.10668e-03,0.14178e-03,0.14626e-03,0.14213e-03,0.13207e-03, & - & 0.11468e-03,0.91984e-04,0.62070e-04,0.75122e-05 /) - kao(:, 5, 9, 3) = (/ & - & 0.10582e-03,0.14316e-03,0.14873e-03,0.14501e-03,0.13471e-03, & - & 0.11704e-03,0.93876e-04,0.63388e-04,0.80761e-05 /) - kao(:, 1,10, 3) = (/ & - & 0.85476e-04,0.10982e-03,0.11034e-03,0.10643e-03,0.99702e-04, & - & 0.84967e-04,0.68008e-04,0.47229e-04,0.66145e-05 /) - kao(:, 2,10, 3) = (/ & - & 0.87242e-04,0.11322e-03,0.11463e-03,0.11045e-03,0.10293e-03, & - & 0.88580e-04,0.71113e-04,0.48631e-04,0.75452e-05 /) - kao(:, 3,10, 3) = (/ & - & 0.88111e-04,0.11563e-03,0.11792e-03,0.11404e-03,0.10587e-03, & - & 0.91877e-04,0.73790e-04,0.50044e-04,0.84881e-05 /) - kao(:, 4,10, 3) = (/ & - & 0.88200e-04,0.11743e-03,0.12065e-03,0.11708e-03,0.10870e-03, & - & 0.94480e-04,0.75897e-04,0.51384e-04,0.95136e-05 /) - kao(:, 5,10, 3) = (/ & - & 0.87583e-04,0.11871e-03,0.12292e-03,0.11954e-03,0.11103e-03, & - & 0.96523e-04,0.77526e-04,0.52518e-04,0.10532e-04 /) - kao(:, 1,11, 3) = (/ & - & 0.70556e-04,0.91428e-04,0.91867e-04,0.88463e-04,0.82846e-04, & - & 0.70774e-04,0.56632e-04,0.39167e-04,0.61872e-05 /) - kao(:, 2,11, 3) = (/ & - & 0.71933e-04,0.94182e-04,0.95269e-04,0.91646e-04,0.85383e-04, & - & 0.73738e-04,0.59219e-04,0.40474e-04,0.69965e-05 /) - kao(:, 3,11, 3) = (/ & - & 0.72567e-04,0.96098e-04,0.97927e-04,0.94606e-04,0.87837e-04, & - & 0.76370e-04,0.61326e-04,0.41633e-04,0.78235e-05 /) - kao(:, 4,11, 3) = (/ & - & 0.72529e-04,0.97532e-04,0.10011e-03,0.97076e-04,0.90134e-04, & - & 0.78428e-04,0.63016e-04,0.42754e-04,0.87904e-05 /) - kao(:, 5,11, 3) = (/ & - & 0.71990e-04,0.98552e-04,0.10193e-03,0.99080e-04,0.92091e-04, & - & 0.80068e-04,0.64349e-04,0.43674e-04,0.98011e-05 /) - kao(:, 1,12, 3) = (/ & - & 0.58072e-04,0.75815e-04,0.76168e-04,0.73252e-04,0.68521e-04, & - & 0.58748e-04,0.47029e-04,0.32430e-04,0.51838e-05 /) - kao(:, 2,12, 3) = (/ & - & 0.59149e-04,0.78005e-04,0.78889e-04,0.75853e-04,0.70691e-04, & - & 0.61160e-04,0.49105e-04,0.33572e-04,0.58669e-05 /) - kao(:, 3,12, 3) = (/ & - & 0.59615e-04,0.79572e-04,0.81043e-04,0.78301e-04,0.72716e-04, & - & 0.63265e-04,0.50777e-04,0.34506e-04,0.66464e-05 /) - kao(:, 4,12, 3) = (/ & - & 0.59506e-04,0.80712e-04,0.82811e-04,0.80321e-04,0.74571e-04, & - & 0.64935e-04,0.52165e-04,0.35447e-04,0.74412e-05 /) - kao(:, 5,12, 3) = (/ & - & 0.59067e-04,0.81520e-04,0.84288e-04,0.81977e-04,0.76172e-04, & - & 0.66259e-04,0.53281e-04,0.36178e-04,0.82465e-05 /) - kao(:, 1,13, 3) = (/ & - & 0.47640e-04,0.62583e-04,0.62887e-04,0.60485e-04,0.56559e-04, & - & 0.48624e-04,0.38904e-04,0.26773e-04,0.40582e-05 /) - kao(:, 2,13, 3) = (/ & - & 0.48498e-04,0.64379e-04,0.65087e-04,0.62641e-04,0.58377e-04, & - & 0.50572e-04,0.40566e-04,0.27717e-04,0.46616e-05 /) - kao(:, 3,13, 3) = (/ & - & 0.48844e-04,0.65656e-04,0.66851e-04,0.64628e-04,0.60042e-04, & - & 0.52254e-04,0.41917e-04,0.28510e-04,0.53204e-05 /) - kao(:, 4,13, 3) = (/ & - & 0.48722e-04,0.66574e-04,0.68303e-04,0.66300e-04,0.61547e-04, & - & 0.53614e-04,0.43058e-04,0.29254e-04,0.59442e-05 /) - kao(:, 5,13, 3) = (/ & - & 0.48355e-04,0.67217e-04,0.69511e-04,0.67651e-04,0.62864e-04, & - & 0.54712e-04,0.43998e-04,0.29875e-04,0.66436e-05 /) - kao(:, 1, 1, 4) = (/ & - & 0.85387e-03,0.97268e-03,0.95201e-03,0.89226e-03,0.81465e-03, & - & 0.69707e-03,0.54829e-03,0.35882e-03,0.37920e-04 /) - kao(:, 2, 1, 4) = (/ & - & 0.85496e-03,0.98746e-03,0.97188e-03,0.91775e-03,0.83529e-03, & - & 0.71649e-03,0.56376e-03,0.37061e-03,0.43155e-04 /) - kao(:, 3, 1, 4) = (/ & - & 0.85154e-03,0.99908e-03,0.98969e-03,0.94014e-03,0.85604e-03, & - & 0.73379e-03,0.57832e-03,0.38183e-03,0.48702e-04 /) - kao(:, 4, 1, 4) = (/ & - & 0.84606e-03,0.10090e-02,0.10068e-02,0.95944e-03,0.87434e-03, & - & 0.74975e-03,0.59243e-03,0.39188e-03,0.54022e-04 /) - kao(:, 5, 1, 4) = (/ & - & 0.84061e-03,0.10171e-02,0.10218e-02,0.97684e-03,0.88906e-03, & - & 0.76345e-03,0.60471e-03,0.40180e-03,0.59778e-04 /) - kao(:, 1, 2, 4) = (/ & - & 0.76106e-03,0.86763e-03,0.84620e-03,0.79337e-03,0.72368e-03, & - & 0.62633e-03,0.49168e-03,0.32346e-03,0.31322e-04 /) - kao(:, 2, 2, 4) = (/ & - & 0.76153e-03,0.88148e-03,0.86349e-03,0.81559e-03,0.74480e-03, & - & 0.64448e-03,0.50635e-03,0.33430e-03,0.35566e-04 /) - kao(:, 3, 2, 4) = (/ & - & 0.75977e-03,0.89195e-03,0.87871e-03,0.83605e-03,0.76286e-03, & - & 0.66127e-03,0.51959e-03,0.34472e-03,0.39705e-04 /) - kao(:, 4, 2, 4) = (/ & - & 0.75771e-03,0.89987e-03,0.89406e-03,0.85530e-03,0.78123e-03, & - & 0.67612e-03,0.53221e-03,0.35447e-03,0.44266e-04 /) - kao(:, 5, 2, 4) = (/ & - & 0.75289e-03,0.90657e-03,0.90771e-03,0.87200e-03,0.79715e-03, & - & 0.68926e-03,0.54382e-03,0.36372e-03,0.48708e-04 /) - kao(:, 1, 3, 4) = (/ & - & 0.66893e-03,0.76246e-03,0.74334e-03,0.69752e-03,0.63501e-03, & - & 0.55362e-03,0.43455e-03,0.28843e-03,0.24260e-04 /) - kao(:, 2, 3, 4) = (/ & - & 0.67118e-03,0.77588e-03,0.75944e-03,0.71710e-03,0.65461e-03, & - & 0.57122e-03,0.44991e-03,0.29906e-03,0.27434e-04 /) - kao(:, 3, 3, 4) = (/ & - & 0.67218e-03,0.78505e-03,0.77328e-03,0.73497e-03,0.67286e-03, & - & 0.58718e-03,0.46375e-03,0.30933e-03,0.30808e-04 /) - kao(:, 4, 3, 4) = (/ & - & 0.67058e-03,0.79242e-03,0.78627e-03,0.75181e-03,0.68946e-03, & - & 0.60183e-03,0.47532e-03,0.31743e-03,0.34324e-04 /) - kao(:, 5, 3, 4) = (/ & - & 0.66467e-03,0.79822e-03,0.79776e-03,0.76779e-03,0.70481e-03, & - & 0.61510e-03,0.48553e-03,0.32526e-03,0.37905e-04 /) - kao(:, 1, 4, 4) = (/ & - & 0.58297e-03,0.66020e-03,0.64337e-03,0.60610e-03,0.55222e-03, & - & 0.48338e-03,0.38154e-03,0.25537e-03,0.20054e-04 /) - kao(:, 2, 4, 4) = (/ & - & 0.58616e-03,0.67311e-03,0.65764e-03,0.62362e-03,0.56996e-03, & - & 0.49939e-03,0.39657e-03,0.26418e-03,0.22457e-04 /) - kao(:, 3, 4, 4) = (/ & - & 0.58719e-03,0.68291e-03,0.67014e-03,0.63926e-03,0.58703e-03, & - & 0.51453e-03,0.40976e-03,0.27280e-03,0.24974e-04 /) - kao(:, 4, 4, 4) = (/ & - & 0.58451e-03,0.68925e-03,0.68144e-03,0.65410e-03,0.60312e-03, & - & 0.52903e-03,0.42147e-03,0.28096e-03,0.27613e-04 /) - kao(:, 5, 4, 4) = (/ & - & 0.57885e-03,0.69369e-03,0.69153e-03,0.66725e-03,0.61666e-03, & - & 0.54114e-03,0.43123e-03,0.28907e-03,0.30243e-04 /) - kao(:, 1, 5, 4) = (/ & - & 0.50639e-03,0.56897e-03,0.55412e-03,0.52127e-03,0.47341e-03, & - & 0.41669e-03,0.33293e-03,0.22215e-03,0.17057e-04 /) - kao(:, 2, 5, 4) = (/ & - & 0.51065e-03,0.58111e-03,0.56740e-03,0.53642e-03,0.48970e-03, & - & 0.43166e-03,0.34671e-03,0.23111e-03,0.19191e-04 /) - kao(:, 3, 5, 4) = (/ & - & 0.51131e-03,0.58923e-03,0.57802e-03,0.54989e-03,0.50519e-03, & - & 0.44520e-03,0.35867e-03,0.23955e-03,0.21238e-04 /) - kao(:, 4, 5, 4) = (/ & - & 0.50888e-03,0.59432e-03,0.58700e-03,0.56238e-03,0.51899e-03, & - & 0.45787e-03,0.36960e-03,0.24733e-03,0.23442e-04 /) - kao(:, 5, 5, 4) = (/ & - & 0.50411e-03,0.59804e-03,0.59497e-03,0.57342e-03,0.53158e-03, & - & 0.46924e-03,0.37886e-03,0.25450e-03,0.25756e-04 /) - kao(:, 1, 6, 4) = (/ & - & 0.43673e-03,0.48782e-03,0.47499e-03,0.44629e-03,0.40354e-03, & - & 0.35457e-03,0.28605e-03,0.19086e-03,0.14702e-04 /) - kao(:, 2, 6, 4) = (/ & - & 0.44102e-03,0.49831e-03,0.48639e-03,0.45943e-03,0.41879e-03, & - & 0.36808e-03,0.29802e-03,0.19985e-03,0.16471e-04 /) - kao(:, 3, 6, 4) = (/ & - & 0.44221e-03,0.50518e-03,0.49538e-03,0.47075e-03,0.43183e-03, & - & 0.37995e-03,0.30882e-03,0.20763e-03,0.18420e-04 /) - kao(:, 4, 6, 4) = (/ & - & 0.44017e-03,0.50994e-03,0.50323e-03,0.48141e-03,0.44360e-03, & - & 0.39116e-03,0.31844e-03,0.21460e-03,0.20473e-04 /) - kao(:, 5, 6, 4) = (/ & - & 0.43656e-03,0.51249e-03,0.51000e-03,0.49068e-03,0.45425e-03, & - & 0.40107e-03,0.32653e-03,0.22109e-03,0.22600e-04 /) - kao(:, 1, 7, 4) = (/ & - & 0.37627e-03,0.41525e-03,0.40365e-03,0.37923e-03,0.34257e-03, & - & 0.30147e-03,0.24324e-03,0.16094e-03,0.13400e-04 /) - kao(:, 2, 7, 4) = (/ & - & 0.38051e-03,0.42489e-03,0.41400e-03,0.39067e-03,0.35555e-03, & - & 0.31257e-03,0.25353e-03,0.16947e-03,0.14905e-04 /) - kao(:, 3, 7, 4) = (/ & - & 0.38196e-03,0.43154e-03,0.42169e-03,0.40035e-03,0.36703e-03, & - & 0.32311e-03,0.26291e-03,0.17672e-03,0.16566e-04 /) - kao(:, 4, 7, 4) = (/ & - & 0.38108e-03,0.43587e-03,0.42809e-03,0.40890e-03,0.37694e-03, & - & 0.33246e-03,0.27094e-03,0.18305e-03,0.18352e-04 /) - kao(:, 5, 7, 4) = (/ & - & 0.37854e-03,0.43889e-03,0.43402e-03,0.41697e-03,0.38532e-03, & - & 0.34074e-03,0.27816e-03,0.18873e-03,0.20220e-04 /) - kao(:, 1, 8, 4) = (/ & - & 0.31968e-03,0.35301e-03,0.34310e-03,0.32206e-03,0.28904e-03, & - & 0.25356e-03,0.20523e-03,0.13432e-03,0.13548e-04 /) - kao(:, 2, 8, 4) = (/ & - & 0.32386e-03,0.36229e-03,0.35288e-03,0.33214e-03,0.30033e-03, & - & 0.26345e-03,0.21374e-03,0.14198e-03,0.14966e-04 /) - kao(:, 3, 8, 4) = (/ & - & 0.32521e-03,0.36848e-03,0.35986e-03,0.34056e-03,0.31042e-03, & - & 0.27222e-03,0.22115e-03,0.14841e-03,0.16278e-04 /) - kao(:, 4, 8, 4) = (/ & - & 0.32527e-03,0.37258e-03,0.36553e-03,0.34811e-03,0.31916e-03, & - & 0.28034e-03,0.22837e-03,0.15443e-03,0.17614e-04 /) - kao(:, 5, 8, 4) = (/ & - & 0.32272e-03,0.37533e-03,0.37025e-03,0.35438e-03,0.32632e-03, & - & 0.28740e-03,0.23484e-03,0.15952e-03,0.19075e-04 /) - kao(:, 1, 9, 4) = (/ & - & 0.26794e-03,0.29655e-03,0.28851e-03,0.27155e-03,0.24290e-03, & - & 0.21182e-03,0.17187e-03,0.11158e-03,0.16893e-04 /) - kao(:, 2, 9, 4) = (/ & - & 0.27215e-03,0.30477e-03,0.29765e-03,0.28075e-03,0.25336e-03, & - & 0.22120e-03,0.17858e-03,0.11794e-03,0.18576e-04 /) - kao(:, 3, 9, 4) = (/ & - & 0.27400e-03,0.31061e-03,0.30447e-03,0.28836e-03,0.26224e-03, & - & 0.22886e-03,0.18474e-03,0.12372e-03,0.20056e-04 /) - kao(:, 4, 9, 4) = (/ & - & 0.27385e-03,0.31424e-03,0.30923e-03,0.29477e-03,0.26977e-03, & - & 0.23554e-03,0.19093e-03,0.12884e-03,0.21321e-04 /) - kao(:, 5, 9, 4) = (/ & - & 0.27196e-03,0.31647e-03,0.31308e-03,0.30006e-03,0.27604e-03, & - & 0.24191e-03,0.19649e-03,0.13352e-03,0.22611e-04 /) - kao(:, 1,10, 4) = (/ & - & 0.22255e-03,0.24716e-03,0.24087e-03,0.22672e-03,0.20216e-03, & - & 0.17582e-03,0.14339e-03,0.92528e-04,0.22471e-04 /) - kao(:, 2,10, 4) = (/ & - & 0.22663e-03,0.25429e-03,0.24908e-03,0.23506e-03,0.21167e-03, & - & 0.18377e-03,0.14910e-03,0.97972e-04,0.24536e-04 /) - kao(:, 3,10, 4) = (/ & - & 0.22867e-03,0.25963e-03,0.25532e-03,0.24169e-03,0.21923e-03, & - & 0.19067e-03,0.15458e-03,0.10293e-03,0.26453e-04 /) - kao(:, 4,10, 4) = (/ & - & 0.22853e-03,0.26273e-03,0.25960e-03,0.24704e-03,0.22549e-03, & - & 0.19679e-03,0.15968e-03,0.10728e-03,0.28383e-04 /) - kao(:, 5,10, 4) = (/ & - & 0.22704e-03,0.26469e-03,0.26259e-03,0.25141e-03,0.23080e-03, & - & 0.20216e-03,0.16433e-03,0.11116e-03,0.30111e-04 /) - kao(:, 1,11, 4) = (/ & - & 0.18570e-03,0.20791e-03,0.20310e-03,0.19106e-03,0.17066e-03, & - & 0.14797e-03,0.12097e-03,0.78704e-04,0.20720e-04 /) - kao(:, 2,11, 4) = (/ & - & 0.18868e-03,0.21356e-03,0.20969e-03,0.19807e-03,0.17821e-03, & - & 0.15434e-03,0.12584e-03,0.83179e-04,0.23268e-04 /) - kao(:, 3,11, 4) = (/ & - & 0.18972e-03,0.21732e-03,0.21447e-03,0.20305e-03,0.18416e-03, & - & 0.15993e-03,0.13006e-03,0.87134e-04,0.25781e-04 /) - kao(:, 4,11, 4) = (/ & - & 0.18929e-03,0.21955e-03,0.21771e-03,0.20711e-03,0.18907e-03, & - & 0.16493e-03,0.13420e-03,0.90699e-04,0.28181e-04 /) - kao(:, 5,11, 4) = (/ & - & 0.18766e-03,0.22095e-03,0.21987e-03,0.21045e-03,0.19312e-03, & - & 0.16934e-03,0.13812e-03,0.93840e-04,0.30489e-04 /) - kao(:, 1,12, 4) = (/ & - & 0.15409e-03,0.17399e-03,0.17010e-03,0.16002e-03,0.14311e-03, & - & 0.12376e-03,0.10121e-03,0.66428e-04,0.17813e-04 /) - kao(:, 2,12, 4) = (/ & - & 0.15599e-03,0.17831e-03,0.17521e-03,0.16554e-03,0.14890e-03, & - & 0.12881e-03,0.10527e-03,0.69964e-04,0.19918e-04 /) - kao(:, 3,12, 4) = (/ & - & 0.15661e-03,0.18119e-03,0.17892e-03,0.16934e-03,0.15365e-03, & - & 0.13338e-03,0.10864e-03,0.73142e-04,0.22121e-04 /) - kao(:, 4,12, 4) = (/ & - & 0.15608e-03,0.18293e-03,0.18145e-03,0.17254e-03,0.15743e-03, & - & 0.13747e-03,0.11209e-03,0.75971e-04,0.24425e-04 /) - kao(:, 5,12, 4) = (/ & - & 0.15453e-03,0.18383e-03,0.18309e-03,0.17510e-03,0.16067e-03, & - & 0.14102e-03,0.11529e-03,0.78607e-04,0.26791e-04 /) - kao(:, 1,13, 4) = (/ & - & 0.12705e-03,0.14485e-03,0.14155e-03,0.13312e-03,0.11914e-03, & - & 0.10299e-03,0.84416e-04,0.55598e-04,0.14429e-04 /) - kao(:, 2,13, 4) = (/ & - & 0.12843e-03,0.14822e-03,0.14555e-03,0.13748e-03,0.12377e-03, & - & 0.10702e-03,0.87520e-04,0.58405e-04,0.16147e-04 /) - kao(:, 3,13, 4) = (/ & - & 0.12875e-03,0.15043e-03,0.14850e-03,0.14053e-03,0.12752e-03, & - & 0.11081e-03,0.90348e-04,0.60934e-04,0.17992e-04 /) - kao(:, 4,13, 4) = (/ & - & 0.12822e-03,0.15175e-03,0.15049e-03,0.14301e-03,0.13059e-03, & - & 0.11413e-03,0.93171e-04,0.63296e-04,0.19888e-04 /) - kao(:, 5,13, 4) = (/ & - & 0.12684e-03,0.15239e-03,0.15179e-03,0.14511e-03,0.13320e-03, & - & 0.11702e-03,0.95786e-04,0.65468e-04,0.21706e-04 /) - kao(:, 1, 1, 5) = (/ & - & 0.16451e-02,0.17375e-02,0.16665e-02,0.15396e-02,0.13696e-02, & - & 0.11731e-02,0.92753e-03,0.61159e-03,0.14680e-03 /) - kao(:, 2, 1, 5) = (/ & - & 0.16450e-02,0.17591e-02,0.16954e-02,0.15711e-02,0.14087e-02, & - & 0.12092e-02,0.95859e-03,0.63308e-03,0.16131e-03 /) - kao(:, 3, 1, 5) = (/ & - & 0.16396e-02,0.17762e-02,0.17200e-02,0.16012e-02,0.14448e-02, & - & 0.12424e-02,0.98862e-03,0.65400e-03,0.17365e-03 /) - kao(:, 4, 1, 5) = (/ & - & 0.16299e-02,0.17875e-02,0.17415e-02,0.16313e-02,0.14788e-02, & - & 0.12751e-02,0.10161e-02,0.67524e-03,0.18499e-03 /) - kao(:, 5, 1, 5) = (/ & - & 0.16127e-02,0.17946e-02,0.17629e-02,0.16594e-02,0.15119e-02, & - & 0.13059e-02,0.10419e-02,0.69511e-03,0.19999e-03 /) - kao(:, 1, 2, 5) = (/ & - & 0.15084e-02,0.15931e-02,0.15186e-02,0.13958e-02,0.12369e-02, & - & 0.10500e-02,0.83688e-03,0.55465e-03,0.11914e-03 /) - kao(:, 2, 2, 5) = (/ & - & 0.15115e-02,0.16146e-02,0.15457e-02,0.14241e-02,0.12724e-02, & - & 0.10844e-02,0.86669e-03,0.57603e-03,0.13037e-03 /) - kao(:, 3, 2, 5) = (/ & - & 0.15084e-02,0.16309e-02,0.15669e-02,0.14522e-02,0.13074e-02, & - & 0.11181e-02,0.89787e-03,0.59657e-03,0.13918e-03 /) - kao(:, 4, 2, 5) = (/ & - & 0.14965e-02,0.16419e-02,0.15861e-02,0.14781e-02,0.13385e-02, & - & 0.11507e-02,0.92569e-03,0.61596e-03,0.15053e-03 /) - kao(:, 5, 2, 5) = (/ & - & 0.14804e-02,0.16493e-02,0.16042e-02,0.15021e-02,0.13704e-02, & - & 0.11804e-02,0.95044e-03,0.63472e-03,0.16410e-03 /) - kao(:, 1, 3, 5) = (/ & - & 0.13707e-02,0.14436e-02,0.13706e-02,0.12561e-02,0.11093e-02, & - & 0.93534e-03,0.74505e-03,0.49303e-03,0.93388e-04 /) - kao(:, 2, 3, 5) = (/ & - & 0.13760e-02,0.14666e-02,0.13986e-02,0.12850e-02,0.11416e-02, & - & 0.96700e-03,0.77192e-03,0.51430e-03,0.10062e-03 /) - kao(:, 3, 3, 5) = (/ & - & 0.13732e-02,0.14839e-02,0.14208e-02,0.13112e-02,0.11718e-02, & - & 0.99814e-03,0.79899e-03,0.53404e-03,0.10964e-03 /) - kao(:, 4, 3, 5) = (/ & - & 0.13644e-02,0.14939e-02,0.14404e-02,0.13346e-02,0.12002e-02, & - & 0.10295e-02,0.82532e-03,0.55285e-03,0.12023e-03 /) - kao(:, 5, 3, 5) = (/ & - & 0.13512e-02,0.15024e-02,0.14568e-02,0.13559e-02,0.12266e-02, & - & 0.10592e-02,0.85085e-03,0.57058e-03,0.13064e-03 /) - kao(:, 1, 4, 5) = (/ & - & 0.12336e-02,0.12968e-02,0.12255e-02,0.11189e-02,0.98785e-03, & - & 0.83184e-03,0.66033e-03,0.43467e-03,0.70047e-04 /) - kao(:, 2, 4, 5) = (/ & - & 0.12419e-02,0.13192e-02,0.12543e-02,0.11482e-02,0.10189e-02, & - & 0.86315e-03,0.68559e-03,0.45559e-03,0.76629e-04 /) - kao(:, 3, 4, 5) = (/ & - & 0.12416e-02,0.13349e-02,0.12771e-02,0.11745e-02,0.10469e-02, & - & 0.89182e-03,0.71110e-03,0.47551e-03,0.84761e-04 /) - kao(:, 4, 4, 5) = (/ & - & 0.12342e-02,0.13470e-02,0.12958e-02,0.11964e-02,0.10726e-02, & - & 0.91965e-03,0.73487e-03,0.49419e-03,0.93979e-04 /) - kao(:, 5, 4, 5) = (/ & - & 0.12238e-02,0.13566e-02,0.13110e-02,0.12168e-02,0.10976e-02, & - & 0.94731e-03,0.75866e-03,0.51080e-03,0.10249e-03 /) - kao(:, 1, 5, 5) = (/ & - & 0.10970e-02,0.11491e-02,0.10850e-02,0.99037e-03,0.87478e-03, & - & 0.73644e-03,0.58168e-03,0.38673e-03,0.55328e-04 /) - kao(:, 2, 5, 5) = (/ & - & 0.11051e-02,0.11716e-02,0.11129e-02,0.10196e-02,0.90431e-03, & - & 0.76445e-03,0.60553e-03,0.40600e-03,0.61413e-04 /) - kao(:, 3, 5, 5) = (/ & - & 0.11053e-02,0.11877e-02,0.11365e-02,0.10446e-02,0.92981e-03, & - & 0.79114e-03,0.62919e-03,0.42419e-03,0.68340e-04 /) - kao(:, 4, 5, 5) = (/ & - & 0.11000e-02,0.12008e-02,0.11557e-02,0.10648e-02,0.95310e-03, & - & 0.81721e-03,0.65273e-03,0.44128e-03,0.75425e-04 /) - kao(:, 5, 5, 5) = (/ & - & 0.10930e-02,0.12101e-02,0.11704e-02,0.10855e-02,0.97521e-03, & - & 0.84232e-03,0.67516e-03,0.45733e-03,0.82112e-04 /) - kao(:, 1, 6, 5) = (/ & - & 0.96254e-03,0.10041e-02,0.94496e-03,0.86305e-03,0.76515e-03, & - & 0.64666e-03,0.50949e-03,0.34237e-03,0.45743e-04 /) - kao(:, 2, 6, 5) = (/ & - & 0.97168e-03,0.10257e-02,0.97306e-03,0.89241e-03,0.79300e-03, & - & 0.67315e-03,0.53212e-03,0.35953e-03,0.50936e-04 /) - kao(:, 3, 6, 5) = (/ & - & 0.97307e-03,0.10417e-02,0.99540e-03,0.91663e-03,0.81739e-03, & - & 0.69764e-03,0.55388e-03,0.37625e-03,0.56704e-04 /) - kao(:, 4, 6, 5) = (/ & - & 0.97112e-03,0.10538e-02,0.10130e-02,0.93600e-03,0.83875e-03, & - & 0.72048e-03,0.57540e-03,0.39219e-03,0.62214e-04 /) - kao(:, 5, 6, 5) = (/ & - & 0.96524e-03,0.10634e-02,0.10272e-02,0.95339e-03,0.85814e-03, & - & 0.74256e-03,0.59649e-03,0.40723e-03,0.68154e-04 /) - kao(:, 1, 7, 5) = (/ & - & 0.83977e-03,0.87150e-03,0.81798e-03,0.74510e-03,0.66073e-03, & - & 0.55889e-03,0.44038e-03,0.30023e-03,0.39438e-04 /) - kao(:, 2, 7, 5) = (/ & - & 0.84860e-03,0.89183e-03,0.84311e-03,0.77202e-03,0.68677e-03, & - & 0.58412e-03,0.46261e-03,0.31513e-03,0.44026e-04 /) - kao(:, 3, 7, 5) = (/ & - & 0.85156e-03,0.90640e-03,0.86357e-03,0.79472e-03,0.70843e-03, & - & 0.60616e-03,0.48333e-03,0.32962e-03,0.48169e-04 /) - kao(:, 4, 7, 5) = (/ & - & 0.84996e-03,0.91804e-03,0.88000e-03,0.81332e-03,0.72741e-03, & - & 0.62668e-03,0.50295e-03,0.34425e-03,0.52632e-04 /) - kao(:, 5, 7, 5) = (/ & - & 0.84411e-03,0.92502e-03,0.89195e-03,0.82771e-03,0.74479e-03, & - & 0.64630e-03,0.52177e-03,0.35838e-03,0.57490e-04 /) - kao(:, 1, 8, 5) = (/ & - & 0.72566e-03,0.75029e-03,0.70410e-03,0.64085e-03,0.56881e-03, & - & 0.48163e-03,0.37585e-03,0.26029e-03,0.35173e-04 /) - kao(:, 2, 8, 5) = (/ & - & 0.73526e-03,0.76878e-03,0.72724e-03,0.66569e-03,0.59239e-03, & - & 0.50357e-03,0.39670e-03,0.27234e-03,0.38442e-04 /) - kao(:, 3, 8, 5) = (/ & - & 0.73942e-03,0.78240e-03,0.74617e-03,0.68580e-03,0.61175e-03, & - & 0.52308e-03,0.41633e-03,0.28548e-03,0.42620e-04 /) - kao(:, 4, 8, 5) = (/ & - & 0.73787e-03,0.79331e-03,0.76108e-03,0.70193e-03,0.62821e-03, & - & 0.54092e-03,0.43381e-03,0.29821e-03,0.47013e-04 /) - kao(:, 5, 8, 5) = (/ & - & 0.73365e-03,0.79895e-03,0.77125e-03,0.71463e-03,0.64295e-03, & - & 0.55753e-03,0.45033e-03,0.31091e-03,0.51519e-04 /) - kao(:, 1, 9, 5) = (/ & - & 0.62112e-03,0.63900e-03,0.60071e-03,0.54641e-03,0.48585e-03, & - & 0.41219e-03,0.31988e-03,0.22088e-03,0.39225e-04 /) - kao(:, 2, 9, 5) = (/ & - & 0.63089e-03,0.65678e-03,0.62144e-03,0.56855e-03,0.50663e-03, & - & 0.43158e-03,0.33912e-03,0.23261e-03,0.43145e-04 /) - kao(:, 3, 9, 5) = (/ & - & 0.63630e-03,0.67023e-03,0.63841e-03,0.58635e-03,0.52398e-03, & - & 0.44876e-03,0.35619e-03,0.24341e-03,0.47182e-04 /) - kao(:, 4, 9, 5) = (/ & - & 0.63678e-03,0.68001e-03,0.65143e-03,0.60045e-03,0.53807e-03, & - & 0.46446e-03,0.37160e-03,0.25517e-03,0.51310e-04 /) - kao(:, 5, 9, 5) = (/ & - & 0.63384e-03,0.68558e-03,0.66049e-03,0.61133e-03,0.55067e-03, & - & 0.47828e-03,0.38622e-03,0.26607e-03,0.55652e-04 /) - kao(:, 1,10, 5) = (/ & - & 0.52818e-03,0.54302e-03,0.51109e-03,0.46524e-03,0.41303e-03, & - & 0.35089e-03,0.27050e-03,0.18719e-03,0.51897e-04 /) - kao(:, 2,10, 5) = (/ & - & 0.53874e-03,0.56000e-03,0.52974e-03,0.48429e-03,0.43151e-03, & - & 0.36826e-03,0.28749e-03,0.19624e-03,0.57480e-04 /) - kao(:, 3,10, 5) = (/ & - & 0.54407e-03,0.57298e-03,0.54499e-03,0.50007e-03,0.44685e-03, & - & 0.38282e-03,0.30218e-03,0.20623e-03,0.63250e-04 /) - kao(:, 4,10, 5) = (/ & - & 0.54510e-03,0.58221e-03,0.55605e-03,0.51259e-03,0.45923e-03, & - & 0.39550e-03,0.31547e-03,0.21632e-03,0.68339e-04 /) - kao(:, 5,10, 5) = (/ & - & 0.54335e-03,0.58744e-03,0.56412e-03,0.52185e-03,0.47008e-03, & - & 0.40728e-03,0.32798e-03,0.22618e-03,0.72964e-04 /) - kao(:, 1,11, 5) = (/ & - & 0.44901e-03,0.46427e-03,0.43915e-03,0.40187e-03,0.35719e-03, & - & 0.30380e-03,0.23427e-03,0.15956e-03,0.52228e-04 /) - kao(:, 2,11, 5) = (/ & - & 0.45685e-03,0.47845e-03,0.45475e-03,0.41772e-03,0.37275e-03, & - & 0.31798e-03,0.24772e-03,0.16817e-03,0.56979e-04 /) - kao(:, 3,11, 5) = (/ & - & 0.46005e-03,0.48879e-03,0.46665e-03,0.43038e-03,0.38526e-03, & - & 0.32982e-03,0.25983e-03,0.17707e-03,0.61788e-04 /) - kao(:, 4,11, 5) = (/ & - & 0.46029e-03,0.49540e-03,0.47547e-03,0.44015e-03,0.39539e-03, & - & 0.34025e-03,0.27087e-03,0.18596e-03,0.66537e-04 /) - kao(:, 5,11, 5) = (/ & - & 0.45760e-03,0.49879e-03,0.48175e-03,0.44812e-03,0.40429e-03, & - & 0.34971e-03,0.28105e-03,0.19422e-03,0.70982e-04 /) - kao(:, 1,12, 5) = (/ & - & 0.37789e-03,0.39359e-03,0.37439e-03,0.34335e-03,0.30516e-03, & - & 0.25987e-03,0.20136e-03,0.13616e-03,0.47471e-04 /) - kao(:, 2,12, 5) = (/ & - & 0.38345e-03,0.40460e-03,0.38678e-03,0.35616e-03,0.31793e-03, & - & 0.27155e-03,0.21219e-03,0.14366e-03,0.51576e-04 /) - kao(:, 3,12, 5) = (/ & - & 0.38556e-03,0.41241e-03,0.39583e-03,0.36622e-03,0.32808e-03, & - & 0.28132e-03,0.22259e-03,0.15133e-03,0.55529e-04 /) - kao(:, 4,12, 5) = (/ & - & 0.38464e-03,0.41687e-03,0.40247e-03,0.37394e-03,0.33650e-03, & - & 0.28994e-03,0.23157e-03,0.15870e-03,0.59557e-04 /) - kao(:, 5,12, 5) = (/ & - & 0.38119e-03,0.41880e-03,0.40725e-03,0.38009e-03,0.34354e-03, & - & 0.29781e-03,0.23974e-03,0.16572e-03,0.63195e-04 /) - kao(:, 1,13, 5) = (/ & - & 0.31518e-03,0.33080e-03,0.31644e-03,0.29051e-03,0.25824e-03, & - & 0.21997e-03,0.17074e-03,0.11585e-03,0.39419e-04 /) - kao(:, 2,13, 5) = (/ & - & 0.31945e-03,0.33947e-03,0.32620e-03,0.30064e-03,0.26839e-03, & - & 0.22968e-03,0.17999e-03,0.12241e-03,0.42717e-04 /) - kao(:, 3,13, 5) = (/ & - & 0.32042e-03,0.34518e-03,0.33311e-03,0.30844e-03,0.27653e-03, & - & 0.23733e-03,0.18840e-03,0.12892e-03,0.45799e-04 /) - kao(:, 4,13, 5) = (/ & - & 0.31877e-03,0.34829e-03,0.33813e-03,0.31466e-03,0.28316e-03, & - & 0.24429e-03,0.19577e-03,0.13500e-03,0.49095e-04 /) - kao(:, 5,13, 5) = (/ & - & 0.31533e-03,0.34943e-03,0.34164e-03,0.31953e-03,0.28883e-03, & - & 0.25064e-03,0.20247e-03,0.14079e-03,0.52225e-04 /) - kao(:, 1, 1, 6) = (/ & - & 0.30073e-02,0.30215e-02,0.28549e-02,0.26145e-02,0.23223e-02, & - & 0.19698e-02,0.15631e-02,0.10671e-02,0.34349e-03 /) - kao(:, 2, 1, 6) = (/ & - & 0.30045e-02,0.30464e-02,0.29000e-02,0.26682e-02,0.23795e-02, & - & 0.20320e-02,0.16241e-02,0.11180e-02,0.37241e-03 /) - kao(:, 3, 1, 6) = (/ & - & 0.29924e-02,0.30694e-02,0.29376e-02,0.27170e-02,0.24327e-02, & - & 0.20955e-02,0.16828e-02,0.11692e-02,0.41183e-03 /) - kao(:, 4, 1, 6) = (/ & - & 0.29732e-02,0.30875e-02,0.29723e-02,0.27617e-02,0.24862e-02, & - & 0.21555e-02,0.17426e-02,0.12186e-02,0.45672e-03 /) - kao(:, 5, 1, 6) = (/ & - & 0.29511e-02,0.31004e-02,0.30014e-02,0.28043e-02,0.25375e-02, & - & 0.22174e-02,0.18018e-02,0.12656e-02,0.49848e-03 /) - kao(:, 1, 2, 6) = (/ & - & 0.28011e-02,0.28061e-02,0.26513e-02,0.24171e-02,0.21391e-02, & - & 0.18145e-02,0.14290e-02,0.97808e-03,0.28283e-03 /) - kao(:, 2, 2, 6) = (/ & - & 0.28038e-02,0.28333e-02,0.26971e-02,0.24708e-02,0.21906e-02, & - & 0.18715e-02,0.14859e-02,0.10236e-02,0.31088e-03 /) - kao(:, 3, 2, 6) = (/ & - & 0.27978e-02,0.28587e-02,0.27386e-02,0.25159e-02,0.22406e-02, & - & 0.19256e-02,0.15398e-02,0.10695e-02,0.34605e-03 /) - kao(:, 4, 2, 6) = (/ & - & 0.27864e-02,0.28782e-02,0.27737e-02,0.25561e-02,0.22888e-02, & - & 0.19778e-02,0.15963e-02,0.11144e-02,0.38043e-03 /) - kao(:, 5, 2, 6) = (/ & - & 0.27682e-02,0.28941e-02,0.28027e-02,0.25952e-02,0.23337e-02, & - & 0.20308e-02,0.16518e-02,0.11583e-02,0.41249e-03 /) - kao(:, 1, 3, 6) = (/ & - & 0.26013e-02,0.25925e-02,0.24368e-02,0.22059e-02,0.19447e-02, & - & 0.16443e-02,0.12895e-02,0.88356e-03,0.22980e-03 /) - kao(:, 2, 3, 6) = (/ & - & 0.26118e-02,0.26228e-02,0.24826e-02,0.22596e-02,0.19971e-02, & - & 0.16971e-02,0.13425e-02,0.92292e-03,0.25666e-03 /) - kao(:, 3, 3, 6) = (/ & - & 0.26121e-02,0.26511e-02,0.25221e-02,0.23045e-02,0.20442e-02, & - & 0.17465e-02,0.13937e-02,0.96423e-03,0.28307e-03 /) - kao(:, 4, 3, 6) = (/ & - & 0.26050e-02,0.26757e-02,0.25536e-02,0.23446e-02,0.20883e-02, & - & 0.17925e-02,0.14453e-02,0.10074e-02,0.30818e-03 /) - kao(:, 5, 3, 6) = (/ & - & 0.25933e-02,0.26944e-02,0.25823e-02,0.23794e-02,0.21318e-02, & - & 0.18378e-02,0.14965e-02,0.10492e-02,0.33812e-03 /) - kao(:, 1, 4, 6) = (/ & - & 0.24078e-02,0.23894e-02,0.22370e-02,0.20125e-02,0.17599e-02, & - & 0.14763e-02,0.11554e-02,0.78494e-03,0.18813e-03 /) - kao(:, 2, 4, 6) = (/ & - & 0.24225e-02,0.24253e-02,0.22813e-02,0.20638e-02,0.18093e-02, & - & 0.15251e-02,0.12031e-02,0.82373e-03,0.21030e-03 /) - kao(:, 3, 4, 6) = (/ & - & 0.24294e-02,0.24564e-02,0.23198e-02,0.21085e-02,0.18532e-02, & - & 0.15708e-02,0.12482e-02,0.86229e-03,0.23129e-03 /) - kao(:, 4, 4, 6) = (/ & - & 0.24309e-02,0.24808e-02,0.23546e-02,0.21467e-02,0.18923e-02, & - & 0.16129e-02,0.12944e-02,0.90119e-03,0.25224e-03 /) - kao(:, 5, 4, 6) = (/ & - & 0.24223e-02,0.24983e-02,0.23839e-02,0.21783e-02,0.19305e-02, & - & 0.16540e-02,0.13401e-02,0.94049e-03,0.27779e-03 /) - kao(:, 1, 5, 6) = (/ & - & 0.22071e-02,0.21851e-02,0.20436e-02,0.18357e-02,0.15952e-02, & - & 0.13304e-02,0.10307e-02,0.69163e-03,0.14983e-03 /) - kao(:, 2, 5, 6) = (/ & - & 0.22284e-02,0.22243e-02,0.20887e-02,0.18839e-02,0.16450e-02, & - & 0.13762e-02,0.10736e-02,0.72602e-03,0.16732e-03 /) - kao(:, 3, 5, 6) = (/ & - & 0.22426e-02,0.22593e-02,0.21270e-02,0.19281e-02,0.16889e-02, & - & 0.14169e-02,0.11148e-02,0.76201e-03,0.18420e-03 /) - kao(:, 4, 5, 6) = (/ & - & 0.22476e-02,0.22863e-02,0.21609e-02,0.19676e-02,0.17258e-02, & - & 0.14525e-02,0.11537e-02,0.79815e-03,0.20325e-03 /) - kao(:, 5, 5, 6) = (/ & - & 0.22399e-02,0.23048e-02,0.21912e-02,0.19974e-02,0.17586e-02, & - & 0.14880e-02,0.11934e-02,0.83564e-03,0.22470e-03 /) - kao(:, 1, 6, 6) = (/ & - & 0.20075e-02,0.19795e-02,0.18447e-02,0.16541e-02,0.14341e-02, & - & 0.11951e-02,0.92238e-03,0.60660e-03,0.12381e-03 /) - kao(:, 2, 6, 6) = (/ & - & 0.20344e-02,0.20227e-02,0.18912e-02,0.17028e-02,0.14828e-02, & - & 0.12404e-02,0.96234e-03,0.63833e-03,0.13822e-03 /) - kao(:, 3, 6, 6) = (/ & - & 0.20513e-02,0.20598e-02,0.19311e-02,0.17466e-02,0.15267e-02, & - & 0.12805e-02,0.99815e-03,0.66987e-03,0.15138e-03 /) - kao(:, 4, 6, 6) = (/ & - & 0.20576e-02,0.20878e-02,0.19661e-02,0.17857e-02,0.15647e-02, & - & 0.13147e-02,0.10319e-02,0.70266e-03,0.16753e-03 /) - kao(:, 5, 6, 6) = (/ & - & 0.20521e-02,0.21067e-02,0.19938e-02,0.18157e-02,0.15969e-02, & - & 0.13475e-02,0.10644e-02,0.73524e-03,0.18430e-03 /) - kao(:, 1, 7, 6) = (/ & - & 0.17951e-02,0.17708e-02,0.16476e-02,0.14764e-02,0.12769e-02, & - & 0.10613e-02,0.82141e-03,0.53387e-03,0.10356e-03 /) - kao(:, 2, 7, 6) = (/ & - & 0.18257e-02,0.18161e-02,0.16970e-02,0.15264e-02,0.13250e-02, & - & 0.11052e-02,0.85771e-03,0.56341e-03,0.11419e-03 /) - kao(:, 3, 7, 6) = (/ & - & 0.18457e-02,0.18541e-02,0.17382e-02,0.15700e-02,0.13685e-02, & - & 0.11444e-02,0.89062e-03,0.59265e-03,0.12737e-03 /) - kao(:, 4, 7, 6) = (/ & - & 0.18534e-02,0.18833e-02,0.17713e-02,0.16066e-02,0.14063e-02, & - & 0.11787e-02,0.92220e-03,0.62067e-03,0.14148e-03 /) - kao(:, 5, 7, 6) = (/ & - & 0.18508e-02,0.19025e-02,0.17986e-02,0.16377e-02,0.14382e-02, & - & 0.12095e-02,0.95313e-03,0.64883e-03,0.15624e-03 /) - kao(:, 1, 8, 6) = (/ & - & 0.15853e-02,0.15606e-02,0.14491e-02,0.13005e-02,0.11253e-02, & - & 0.93388e-03,0.72631e-03,0.46832e-03,0.90402e-04 /) - kao(:, 2, 8, 6) = (/ & - & 0.16191e-02,0.16074e-02,0.14980e-02,0.13497e-02,0.11730e-02, & - & 0.97691e-03,0.76027e-03,0.49835e-03,0.10124e-03 /) - kao(:, 3, 8, 6) = (/ & - & 0.16393e-02,0.16464e-02,0.15392e-02,0.13927e-02,0.12147e-02, & - & 0.10153e-02,0.79129e-03,0.52537e-03,0.11276e-03 /) - kao(:, 4, 8, 6) = (/ & - & 0.16487e-02,0.16729e-02,0.15721e-02,0.14286e-02,0.12504e-02, & - & 0.10480e-02,0.82072e-03,0.55187e-03,0.12515e-03 /) - kao(:, 5, 8, 6) = (/ & - & 0.16472e-02,0.16924e-02,0.15977e-02,0.14588e-02,0.12817e-02, & - & 0.10777e-02,0.84873e-03,0.57800e-03,0.13784e-03 /) - kao(:, 1, 9, 6) = (/ & - & 0.13936e-02,0.13674e-02,0.12635e-02,0.11331e-02,0.97871e-03, & - & 0.81331e-03,0.63480e-03,0.40910e-03,0.92222e-04 /) - kao(:, 2, 9, 6) = (/ & - & 0.14271e-02,0.14126e-02,0.13114e-02,0.11804e-02,0.10248e-02, & - & 0.85405e-03,0.66828e-03,0.43677e-03,0.10207e-03 /) - kao(:, 3, 9, 6) = (/ & - & 0.14461e-02,0.14478e-02,0.13500e-02,0.12219e-02,0.10647e-02, & - & 0.89058e-03,0.69816e-03,0.46305e-03,0.11262e-03 /) - kao(:, 4, 9, 6) = (/ & - & 0.14547e-02,0.14726e-02,0.13807e-02,0.12557e-02,0.10996e-02, & - & 0.92247e-03,0.72520e-03,0.48654e-03,0.12376e-03 /) - kao(:, 5, 9, 6) = (/ & - & 0.14563e-02,0.14902e-02,0.14046e-02,0.12841e-02,0.11288e-02, & - & 0.95105e-03,0.75065e-03,0.51065e-03,0.13556e-03 /) - kao(:, 1,10, 6) = (/ & - & 0.12161e-02,0.11928e-02,0.11004e-02,0.98725e-03,0.85318e-03, & - & 0.70775e-03,0.55081e-03,0.35481e-03,0.12422e-03 /) - kao(:, 2,10, 6) = (/ & - & 0.12463e-02,0.12352e-02,0.11444e-02,0.10316e-02,0.89480e-03, & - & 0.74560e-03,0.58282e-03,0.38195e-03,0.13273e-03 /) - kao(:, 3,10, 6) = (/ & - & 0.12646e-02,0.12662e-02,0.11796e-02,0.10687e-02,0.93096e-03, & - & 0.77883e-03,0.61138e-03,0.40526e-03,0.14193e-03 /) - kao(:, 4,10, 6) = (/ & - & 0.12733e-02,0.12880e-02,0.12074e-02,0.10979e-02,0.96169e-03, & - & 0.80809e-03,0.63689e-03,0.42724e-03,0.15291e-03 /) - kao(:, 5,10, 6) = (/ & - & 0.12740e-02,0.13044e-02,0.12293e-02,0.11231e-02,0.98752e-03, & - & 0.83380e-03,0.66030e-03,0.44847e-03,0.16460e-03 /) - kao(:, 1,11, 6) = (/ & - & 0.10656e-02,0.10497e-02,0.96881e-03,0.87108e-03,0.75627e-03, & - & 0.62893e-03,0.48955e-03,0.31741e-03,0.13016e-03 /) - kao(:, 2,11, 6) = (/ & - & 0.10879e-02,0.10821e-02,0.10046e-02,0.90804e-03,0.79130e-03, & - & 0.66235e-03,0.51807e-03,0.34003e-03,0.13779e-03 /) - kao(:, 3,11, 6) = (/ & - & 0.11001e-02,0.11057e-02,0.10327e-02,0.93770e-03,0.82120e-03, & - & 0.69087e-03,0.54346e-03,0.36047e-03,0.14411e-03 /) - kao(:, 4,11, 6) = (/ & - & 0.11047e-02,0.11226e-02,0.10548e-02,0.96212e-03,0.84667e-03, & - & 0.71575e-03,0.56548e-03,0.37954e-03,0.15311e-03 /) - kao(:, 5,11, 6) = (/ & - & 0.11028e-02,0.11345e-02,0.10715e-02,0.98143e-03,0.86845e-03, & - & 0.73791e-03,0.58600e-03,0.39874e-03,0.16257e-03 /) - kao(:, 1,12, 6) = (/ & - & 0.92541e-03,0.91485e-03,0.84575e-03,0.76287e-03,0.66530e-03, & - & 0.55435e-03,0.43055e-03,0.28106e-03,0.11779e-03 /) - kao(:, 2,12, 6) = (/ & - & 0.94153e-03,0.94015e-03,0.87425e-03,0.79221e-03,0.69422e-03, & - & 0.58249e-03,0.45555e-03,0.30043e-03,0.12541e-03 /) - kao(:, 3,12, 6) = (/ & - & 0.95043e-03,0.95859e-03,0.89645e-03,0.81618e-03,0.71892e-03, & - & 0.60660e-03,0.47691e-03,0.31810e-03,0.13086e-03 /) - kao(:, 4,12, 6) = (/ & - & 0.95300e-03,0.97180e-03,0.91414e-03,0.83540e-03,0.73965e-03, & - & 0.62755e-03,0.49627e-03,0.33494e-03,0.13792e-03 /) - kao(:, 5,12, 6) = (/ & - & 0.94924e-03,0.98033e-03,0.92629e-03,0.85073e-03,0.75722e-03, & - & 0.64562e-03,0.51410e-03,0.35114e-03,0.14650e-03 /) - kao(:, 1,13, 6) = (/ & - & 0.79344e-03,0.78971e-03,0.73267e-03,0.66405e-03,0.58083e-03, & - & 0.48392e-03,0.37549e-03,0.24569e-03,0.97034e-04 /) - kao(:, 2,13, 6) = (/ & - & 0.80574e-03,0.81004e-03,0.75547e-03,0.68809e-03,0.60484e-03, & - & 0.50707e-03,0.39618e-03,0.26227e-03,0.10267e-03 /) - kao(:, 3,13, 6) = (/ & - & 0.81227e-03,0.82486e-03,0.77408e-03,0.70758e-03,0.62511e-03, & - & 0.52731e-03,0.41439e-03,0.27759e-03,0.10742e-03 /) - kao(:, 4,13, 6) = (/ & - & 0.81298e-03,0.83538e-03,0.78743e-03,0.72262e-03,0.64193e-03, & - & 0.54449e-03,0.43080e-03,0.29211e-03,0.11325e-03 /) - kao(:, 5,13, 6) = (/ & - & 0.80893e-03,0.84184e-03,0.79706e-03,0.73516e-03,0.65638e-03, & - & 0.55984e-03,0.44607e-03,0.30621e-03,0.12059e-03 /) - kao(:, 1, 1, 7) = (/ & - & 0.54732e-02,0.53034e-02,0.49969e-02,0.45431e-02,0.40134e-02, & - & 0.34010e-02,0.26972e-02,0.18637e-02,0.96692e-03 /) - kao(:, 2, 1, 7) = (/ & - & 0.54607e-02,0.53367e-02,0.50546e-02,0.46321e-02,0.41099e-02, & - & 0.34970e-02,0.27999e-02,0.19729e-02,0.11063e-02 /) - kao(:, 3, 1, 7) = (/ & - & 0.54405e-02,0.53637e-02,0.51145e-02,0.47117e-02,0.41981e-02, & - & 0.35927e-02,0.29070e-02,0.20850e-02,0.12360e-02 /) - kao(:, 4, 1, 7) = (/ & - & 0.54052e-02,0.53858e-02,0.51679e-02,0.47829e-02,0.42844e-02, & - & 0.36942e-02,0.30161e-02,0.22030e-02,0.13785e-02 /) - kao(:, 5, 1, 7) = (/ & - & 0.53549e-02,0.54029e-02,0.52131e-02,0.48529e-02,0.43733e-02, & - & 0.37946e-02,0.31262e-02,0.23268e-02,0.15336e-02 /) - kao(:, 1, 2, 7) = (/ & - & 0.52482e-02,0.50940e-02,0.47786e-02,0.43454e-02,0.38186e-02, & - & 0.32129e-02,0.25325e-02,0.17227e-02,0.80430e-03 /) - kao(:, 2, 2, 7) = (/ & - & 0.52403e-02,0.51313e-02,0.48370e-02,0.44315e-02,0.39109e-02, & - & 0.33052e-02,0.26254e-02,0.18226e-02,0.90614e-03 /) - kao(:, 3, 2, 7) = (/ & - & 0.52188e-02,0.51614e-02,0.48948e-02,0.45073e-02,0.39963e-02, & - & 0.33961e-02,0.27198e-02,0.19222e-02,0.10146e-02 /) - kao(:, 4, 2, 7) = (/ & - & 0.51826e-02,0.51837e-02,0.49460e-02,0.45770e-02,0.40791e-02, & - & 0.34891e-02,0.28146e-02,0.20278e-02,0.11325e-02 /) - kao(:, 5, 2, 7) = (/ & - & 0.51359e-02,0.51960e-02,0.49902e-02,0.46430e-02,0.41602e-02, & - & 0.35811e-02,0.29127e-02,0.21431e-02,0.12633e-02 /) - kao(:, 1, 3, 7) = (/ & - & 0.49876e-02,0.48388e-02,0.45133e-02,0.40992e-02,0.35901e-02, & - & 0.30030e-02,0.23527e-02,0.15765e-02,0.64714e-03 /) - kao(:, 2, 3, 7) = (/ & - & 0.49850e-02,0.48808e-02,0.45736e-02,0.41821e-02,0.36790e-02, & - & 0.30941e-02,0.24388e-02,0.16655e-02,0.72927e-03 /) - kao(:, 3, 3, 7) = (/ & - & 0.49660e-02,0.49117e-02,0.46346e-02,0.42593e-02,0.37631e-02, & - & 0.31820e-02,0.25243e-02,0.17543e-02,0.81771e-03 /) - kao(:, 4, 3, 7) = (/ & - & 0.49361e-02,0.49307e-02,0.46909e-02,0.43285e-02,0.38459e-02, & - & 0.32679e-02,0.26083e-02,0.18450e-02,0.91578e-03 /) - kao(:, 5, 3, 7) = (/ & - & 0.48943e-02,0.49413e-02,0.47366e-02,0.43959e-02,0.39239e-02, & - & 0.33496e-02,0.26941e-02,0.19416e-02,0.10197e-02 /) - kao(:, 1, 4, 7) = (/ & - & 0.46848e-02,0.45423e-02,0.42109e-02,0.38147e-02,0.33318e-02, & - & 0.27806e-02,0.21628e-02,0.14435e-02,0.52019e-03 /) - kao(:, 2, 4, 7) = (/ & - & 0.46885e-02,0.45846e-02,0.42767e-02,0.38967e-02,0.34228e-02, & - & 0.28698e-02,0.22469e-02,0.15180e-02,0.58537e-03 /) - kao(:, 3, 4, 7) = (/ & - & 0.46784e-02,0.46158e-02,0.43389e-02,0.39718e-02,0.35088e-02, & - & 0.29561e-02,0.23285e-02,0.15932e-02,0.65783e-03 /) - kao(:, 4, 4, 7) = (/ & - & 0.46546e-02,0.46379e-02,0.43907e-02,0.40421e-02,0.35928e-02, & - & 0.30394e-02,0.24053e-02,0.16703e-02,0.73788e-03 /) - kao(:, 5, 4, 7) = (/ & - & 0.46218e-02,0.46560e-02,0.44359e-02,0.41109e-02,0.36691e-02, & - & 0.31156e-02,0.24821e-02,0.17515e-02,0.82261e-03 /) - kao(:, 1, 5, 7) = (/ & - & 0.43680e-02,0.42271e-02,0.38928e-02,0.35080e-02,0.30576e-02, & - & 0.25405e-02,0.19725e-02,0.13117e-02,0.42455e-03 /) - kao(:, 2, 5, 7) = (/ & - & 0.43836e-02,0.42742e-02,0.39603e-02,0.35901e-02,0.31440e-02, & - & 0.26294e-02,0.20540e-02,0.13812e-02,0.47676e-03 /) - kao(:, 3, 5, 7) = (/ & - & 0.43831e-02,0.43074e-02,0.40201e-02,0.36636e-02,0.32261e-02, & - & 0.27164e-02,0.21330e-02,0.14464e-02,0.53568e-03 /) - kao(:, 4, 5, 7) = (/ & - & 0.43690e-02,0.43343e-02,0.40742e-02,0.37289e-02,0.33089e-02, & - & 0.28017e-02,0.22054e-02,0.15130e-02,0.59880e-03 /) - kao(:, 5, 5, 7) = (/ & - & 0.43473e-02,0.43575e-02,0.41195e-02,0.37951e-02,0.33885e-02, & - & 0.28774e-02,0.22767e-02,0.15816e-02,0.66710e-03 /) - kao(:, 1, 6, 7) = (/ & - & 0.40714e-02,0.39122e-02,0.35777e-02,0.32091e-02,0.27872e-02, & - & 0.22994e-02,0.17735e-02,0.11790e-02,0.33561e-03 /) - kao(:, 2, 6, 7) = (/ & - & 0.40973e-02,0.39625e-02,0.36472e-02,0.32877e-02,0.28694e-02, & - & 0.23826e-02,0.18515e-02,0.12426e-02,0.37756e-03 /) - kao(:, 3, 6, 7) = (/ & - & 0.41108e-02,0.40033e-02,0.37116e-02,0.33595e-02,0.29464e-02, & - & 0.24646e-02,0.19290e-02,0.13037e-02,0.42584e-03 /) - kao(:, 4, 6, 7) = (/ & - & 0.41078e-02,0.40382e-02,0.37677e-02,0.34232e-02,0.30216e-02, & - & 0.25463e-02,0.20016e-02,0.13624e-02,0.47733e-03 /) - kao(:, 5, 6, 7) = (/ & - & 0.40964e-02,0.40666e-02,0.38151e-02,0.34890e-02,0.30973e-02, & - & 0.26200e-02,0.20705e-02,0.14239e-02,0.53330e-03 /) - kao(:, 1, 7, 7) = (/ & - & 0.37806e-02,0.36256e-02,0.32982e-02,0.29389e-02,0.25345e-02, & - & 0.20760e-02,0.15879e-02,0.10489e-02,0.28018e-03 /) - kao(:, 2, 7, 7) = (/ & - & 0.38204e-02,0.36872e-02,0.33713e-02,0.30154e-02,0.26103e-02, & - & 0.21557e-02,0.16619e-02,0.11071e-02,0.31519e-03 /) - kao(:, 3, 7, 7) = (/ & - & 0.38460e-02,0.37374e-02,0.34369e-02,0.30817e-02,0.26834e-02, & - & 0.22319e-02,0.17344e-02,0.11636e-02,0.35270e-03 /) - kao(:, 4, 7, 7) = (/ & - & 0.38578e-02,0.37771e-02,0.34946e-02,0.31444e-02,0.27541e-02, & - & 0.23067e-02,0.18034e-02,0.12192e-02,0.39298e-03 /) - kao(:, 5, 7, 7) = (/ & - & 0.38608e-02,0.38134e-02,0.35421e-02,0.32035e-02,0.28239e-02, & - & 0.23777e-02,0.18670e-02,0.12748e-02,0.43632e-03 /) - kao(:, 1, 8, 7) = (/ & - & 0.34769e-02,0.33291e-02,0.30196e-02,0.26781e-02,0.23024e-02, & - & 0.18824e-02,0.14244e-02,0.92897e-03,0.24101e-03 /) - kao(:, 2, 8, 7) = (/ & - & 0.35239e-02,0.33972e-02,0.30964e-02,0.27587e-02,0.23816e-02, & - & 0.19578e-02,0.14914e-02,0.98181e-03,0.27130e-03 /) - kao(:, 3, 8, 7) = (/ & - & 0.35607e-02,0.34526e-02,0.31656e-02,0.28309e-02,0.24544e-02, & - & 0.20284e-02,0.15562e-02,0.10333e-02,0.30255e-03 /) - kao(:, 4, 8, 7) = (/ & - & 0.35844e-02,0.35023e-02,0.32271e-02,0.28968e-02,0.25226e-02, & - & 0.20957e-02,0.16188e-02,0.10830e-02,0.33737e-03 /) - kao(:, 5, 8, 7) = (/ & - & 0.35961e-02,0.35446e-02,0.32825e-02,0.29568e-02,0.25866e-02, & - & 0.21594e-02,0.16782e-02,0.11324e-02,0.37448e-03 /) - kao(:, 1, 9, 7) = (/ & - & 0.31490e-02,0.30162e-02,0.27350e-02,0.24183e-02,0.20753e-02, & - & 0.16954e-02,0.12750e-02,0.82561e-03,0.24776e-03 /) - kao(:, 2, 9, 7) = (/ & - & 0.32098e-02,0.30913e-02,0.28147e-02,0.25006e-02,0.21544e-02, & - & 0.17699e-02,0.13387e-02,0.87243e-03,0.27735e-03 /) - kao(:, 3, 9, 7) = (/ & - & 0.32582e-02,0.31563e-02,0.28883e-02,0.25742e-02,0.22278e-02, & - & 0.18394e-02,0.14003e-02,0.91830e-03,0.30712e-03 /) - kao(:, 4, 9, 7) = (/ & - & 0.32928e-02,0.32146e-02,0.29543e-02,0.26421e-02,0.22954e-02, & - & 0.19038e-02,0.14592e-02,0.96296e-03,0.33982e-03 /) - kao(:, 5, 9, 7) = (/ & - & 0.33113e-02,0.32637e-02,0.30129e-02,0.27034e-02,0.23582e-02, & - & 0.19652e-02,0.15140e-02,0.10071e-02,0.37422e-03 /) - kao(:, 1,10, 7) = (/ & - & 0.28236e-02,0.26993e-02,0.24463e-02,0.21584e-02,0.18515e-02, & - & 0.15144e-02,0.11396e-02,0.73456e-03,0.30599e-03 /) - kao(:, 2,10, 7) = (/ & - & 0.28929e-02,0.27796e-02,0.25302e-02,0.22416e-02,0.19311e-02, & - & 0.15864e-02,0.12002e-02,0.77955e-03,0.32947e-03 /) - kao(:, 3,10, 7) = (/ & - & 0.29497e-02,0.28523e-02,0.26078e-02,0.23174e-02,0.20043e-02, & - & 0.16542e-02,0.12577e-02,0.82291e-03,0.35529e-03 /) - kao(:, 4,10, 7) = (/ & - & 0.29901e-02,0.29165e-02,0.26763e-02,0.23877e-02,0.20731e-02, & - & 0.17177e-02,0.13124e-02,0.86431e-03,0.38167e-03 /) - kao(:, 5,10, 7) = (/ & - & 0.30139e-02,0.29672e-02,0.27348e-02,0.24509e-02,0.21349e-02, & - & 0.17760e-02,0.13646e-02,0.90496e-03,0.40993e-03 /) - kao(:, 1,11, 7) = (/ & - & 0.25422e-02,0.24347e-02,0.22108e-02,0.19505e-02,0.16727e-02, & - & 0.13714e-02,0.10368e-02,0.66936e-03,0.31350e-03 /) - kao(:, 2,11, 7) = (/ & - & 0.26126e-02,0.25184e-02,0.22944e-02,0.20307e-02,0.17483e-02, & - & 0.14377e-02,0.10928e-02,0.71181e-03,0.33782e-03 /) - kao(:, 3,11, 7) = (/ & - & 0.26690e-02,0.25901e-02,0.23690e-02,0.21043e-02,0.18188e-02, & - & 0.15016e-02,0.11462e-02,0.75188e-03,0.35774e-03 /) - kao(:, 4,11, 7) = (/ & - & 0.27048e-02,0.26504e-02,0.24329e-02,0.21704e-02,0.18832e-02, & - & 0.15599e-02,0.11973e-02,0.79054e-03,0.37720e-03 /) - kao(:, 5,11, 7) = (/ & - & 0.27241e-02,0.26964e-02,0.24876e-02,0.22289e-02,0.19396e-02, & - & 0.16131e-02,0.12459e-02,0.82843e-03,0.39980e-03 /) - kao(:, 1,12, 7) = (/ & - & 0.22863e-02,0.21916e-02,0.19903e-02,0.17560e-02,0.15053e-02, & - & 0.12361e-02,0.93929e-03,0.60469e-03,0.28176e-03 /) - kao(:, 2,12, 7) = (/ & - & 0.23519e-02,0.22705e-02,0.20691e-02,0.18315e-02,0.15760e-02, & - & 0.12985e-02,0.99139e-03,0.64462e-03,0.30471e-03 /) - kao(:, 3,12, 7) = (/ & - & 0.23974e-02,0.23352e-02,0.21377e-02,0.19000e-02,0.16408e-02, & - & 0.13574e-02,0.10412e-02,0.68214e-03,0.32553e-03 /) - kao(:, 4,12, 7) = (/ & - & 0.24260e-02,0.23879e-02,0.21943e-02,0.19602e-02,0.16992e-02, & - & 0.14109e-02,0.10885e-02,0.71852e-03,0.34169e-03 /) - kao(:, 5,12, 7) = (/ & - & 0.24412e-02,0.24274e-02,0.22422e-02,0.20116e-02,0.17502e-02, & - & 0.14591e-02,0.11336e-02,0.75474e-03,0.36020e-03 /) - kao(:, 1,13, 7) = (/ & - & 0.20393e-02,0.19603e-02,0.17821e-02,0.15739e-02,0.13509e-02, & - & 0.11133e-02,0.84826e-03,0.54289e-03,0.23248e-03 /) - kao(:, 2,13, 7) = (/ & - & 0.20953e-02,0.20307e-02,0.18542e-02,0.16433e-02,0.14162e-02, & - & 0.11712e-02,0.89683e-03,0.57958e-03,0.25095e-03 /) - kao(:, 3,13, 7) = (/ & - & 0.21323e-02,0.20881e-02,0.19144e-02,0.17046e-02,0.14742e-02, & - & 0.12241e-02,0.94271e-03,0.61480e-03,0.26566e-03 /) - kao(:, 4,13, 7) = (/ & - & 0.21562e-02,0.21324e-02,0.19654e-02,0.17578e-02,0.15256e-02, & - & 0.12715e-02,0.98599e-03,0.64941e-03,0.28144e-03 /) - kao(:, 5,13, 7) = (/ & - & 0.21687e-02,0.21674e-02,0.20081e-02,0.18029e-02,0.15712e-02, & - & 0.13148e-02,0.10270e-02,0.68370e-03,0.29755e-03 /) - kao(:, 1, 1, 8) = (/ & - & 0.10084e-01,0.95278e-02,0.88730e-02,0.81189e-02,0.71873e-02, & - & 0.61505e-02,0.50159e-02,0.37383e-02,0.30410e-02 /) - kao(:, 2, 1, 8) = (/ & - & 0.10011e-01,0.95195e-02,0.89419e-02,0.82272e-02,0.73508e-02, & - & 0.63699e-02,0.52392e-02,0.39784e-02,0.34237e-02 /) - kao(:, 3, 1, 8) = (/ & - & 0.99285e-02,0.95060e-02,0.90107e-02,0.83435e-02,0.75299e-02, & - & 0.65814e-02,0.54661e-02,0.42490e-02,0.38569e-02 /) - kao(:, 4, 1, 8) = (/ & - & 0.98396e-02,0.95039e-02,0.90786e-02,0.84657e-02,0.77142e-02, & - & 0.67908e-02,0.57132e-02,0.45510e-02,0.43277e-02 /) - kao(:, 5, 1, 8) = (/ & - & 0.97470e-02,0.95073e-02,0.91451e-02,0.85961e-02,0.78983e-02, & - & 0.70134e-02,0.59878e-02,0.48898e-02,0.48367e-02 /) - kao(:, 1, 2, 8) = (/ & - & 0.10032e-01,0.95001e-02,0.88015e-02,0.80012e-02,0.70675e-02, & - & 0.59994e-02,0.48088e-02,0.34803e-02,0.24973e-02 /) - kao(:, 2, 2, 8) = (/ & - & 0.99727e-02,0.94952e-02,0.88708e-02,0.81052e-02,0.72227e-02, & - & 0.61975e-02,0.50149e-02,0.36876e-02,0.28262e-02 /) - kao(:, 3, 2, 8) = (/ & - & 0.99020e-02,0.94876e-02,0.89395e-02,0.82200e-02,0.73884e-02, & - & 0.63917e-02,0.52241e-02,0.39189e-02,0.31881e-02 /) - kao(:, 4, 2, 8) = (/ & - & 0.98208e-02,0.94907e-02,0.90072e-02,0.83409e-02,0.75534e-02, & - & 0.65848e-02,0.54476e-02,0.41701e-02,0.35802e-02 /) - kao(:, 5, 2, 8) = (/ & - & 0.97350e-02,0.95036e-02,0.90758e-02,0.84664e-02,0.77179e-02, & - & 0.67885e-02,0.56906e-02,0.44399e-02,0.40032e-02 /) - kao(:, 1, 3, 8) = (/ & - & 0.99249e-02,0.94002e-02,0.86731e-02,0.78226e-02,0.68627e-02, & - & 0.57870e-02,0.45641e-02,0.32036e-02,0.20068e-02 /) - kao(:, 2, 3, 8) = (/ & - & 0.98781e-02,0.94039e-02,0.87415e-02,0.79225e-02,0.70078e-02, & - & 0.59682e-02,0.47504e-02,0.33906e-02,0.22741e-02 /) - kao(:, 3, 3, 8) = (/ & - & 0.98245e-02,0.94056e-02,0.88077e-02,0.80290e-02,0.71634e-02, & - & 0.61455e-02,0.49439e-02,0.35923e-02,0.25675e-02 /) - kao(:, 4, 3, 8) = (/ & - & 0.97585e-02,0.94181e-02,0.88723e-02,0.81452e-02,0.73134e-02, & - & 0.63196e-02,0.51498e-02,0.38082e-02,0.28828e-02 /) - kao(:, 5, 3, 8) = (/ & - & 0.96800e-02,0.94346e-02,0.89400e-02,0.82650e-02,0.74596e-02, & - & 0.65093e-02,0.53613e-02,0.40378e-02,0.32210e-02 /) - kao(:, 1, 4, 8) = (/ & - & 0.97390e-02,0.92223e-02,0.84805e-02,0.75962e-02,0.66183e-02, & - & 0.55421e-02,0.43153e-02,0.29439e-02,0.16096e-02 /) - kao(:, 2, 4, 8) = (/ & - & 0.97149e-02,0.92440e-02,0.85515e-02,0.76965e-02,0.67525e-02, & - & 0.57037e-02,0.44852e-02,0.31152e-02,0.18298e-02 /) - kao(:, 3, 4, 8) = (/ & - & 0.96772e-02,0.92607e-02,0.86210e-02,0.78004e-02,0.68947e-02, & - & 0.58626e-02,0.46601e-02,0.32973e-02,0.20675e-02 /) - kao(:, 4, 4, 8) = (/ & - & 0.96222e-02,0.92823e-02,0.86884e-02,0.79077e-02,0.70317e-02, & - & 0.60213e-02,0.48471e-02,0.34874e-02,0.23199e-02 /) - kao(:, 5, 4, 8) = (/ & - & 0.95548e-02,0.93032e-02,0.87544e-02,0.80177e-02,0.71673e-02, & - & 0.61924e-02,0.50398e-02,0.36845e-02,0.25914e-02 /) - kao(:, 1, 5, 8) = (/ & - & 0.94682e-02,0.89654e-02,0.82210e-02,0.73222e-02,0.63403e-02, & - & 0.52735e-02,0.40692e-02,0.27114e-02,0.12929e-02 /) - kao(:, 2, 5, 8) = (/ & - & 0.94609e-02,0.90053e-02,0.83016e-02,0.74278e-02,0.64685e-02, & - & 0.54213e-02,0.42231e-02,0.28638e-02,0.14728e-02 /) - kao(:, 3, 5, 8) = (/ & - & 0.94353e-02,0.90391e-02,0.83802e-02,0.75305e-02,0.66027e-02, & - & 0.55646e-02,0.43790e-02,0.30279e-02,0.16663e-02 /) - kao(:, 4, 5, 8) = (/ & - & 0.93989e-02,0.90684e-02,0.84481e-02,0.76404e-02,0.67294e-02, & - & 0.57082e-02,0.45495e-02,0.31980e-02,0.18711e-02 /) - kao(:, 5, 5, 8) = (/ & - & 0.93472e-02,0.90926e-02,0.85136e-02,0.77442e-02,0.68542e-02, & - & 0.58646e-02,0.47259e-02,0.33701e-02,0.20921e-02 /) - kao(:, 1, 6, 8) = (/ & - & 0.90687e-02,0.86083e-02,0.78842e-02,0.69920e-02,0.60171e-02, & - & 0.49784e-02,0.38163e-02,0.24892e-02,0.10375e-02 /) - kao(:, 2, 6, 8) = (/ & - & 0.90845e-02,0.86742e-02,0.79759e-02,0.71037e-02,0.61494e-02, & - & 0.51176e-02,0.39577e-02,0.26285e-02,0.11848e-02 /) - kao(:, 3, 6, 8) = (/ & - & 0.90836e-02,0.87225e-02,0.80580e-02,0.72119e-02,0.62799e-02, & - & 0.52546e-02,0.41006e-02,0.27750e-02,0.13422e-02 /) - kao(:, 4, 6, 8) = (/ & - & 0.90655e-02,0.87611e-02,0.81305e-02,0.73221e-02,0.64054e-02, & - & 0.53892e-02,0.42503e-02,0.29301e-02,0.15078e-02 /) - kao(:, 5, 6, 8) = (/ & - & 0.90286e-02,0.87944e-02,0.82022e-02,0.74247e-02,0.65248e-02, & - & 0.55305e-02,0.44113e-02,0.30838e-02,0.16859e-02 /) - kao(:, 1, 7, 8) = (/ & - & 0.85850e-02,0.81350e-02,0.74326e-02,0.65794e-02,0.56482e-02, & - & 0.46582e-02,0.35544e-02,0.22844e-02,0.80765e-03 /) - kao(:, 2, 7, 8) = (/ & - & 0.86250e-02,0.82179e-02,0.75359e-02,0.67022e-02,0.57899e-02, & - & 0.47962e-02,0.36869e-02,0.24122e-02,0.92682e-03 /) - kao(:, 3, 7, 8) = (/ & - & 0.86440e-02,0.82839e-02,0.76315e-02,0.68246e-02,0.59218e-02, & - & 0.49298e-02,0.38219e-02,0.25431e-02,0.10538e-02 /) - kao(:, 4, 7, 8) = (/ & - & 0.86410e-02,0.83371e-02,0.77195e-02,0.69421e-02,0.60483e-02, & - & 0.50620e-02,0.39587e-02,0.26818e-02,0.11890e-02 /) - kao(:, 5, 7, 8) = (/ & - & 0.86213e-02,0.83816e-02,0.78035e-02,0.70537e-02,0.61695e-02, & - & 0.51947e-02,0.41038e-02,0.28206e-02,0.13358e-02 /) - kao(:, 1, 8, 8) = (/ & - & 0.80690e-02,0.76260e-02,0.69398e-02,0.61270e-02,0.52372e-02, & - & 0.42965e-02,0.32695e-02,0.20922e-02,0.69791e-03 /) - kao(:, 2, 8, 8) = (/ & - & 0.81346e-02,0.77325e-02,0.70609e-02,0.62554e-02,0.53744e-02, & - & 0.44362e-02,0.34019e-02,0.22104e-02,0.78609e-03 /) - kao(:, 3, 8, 8) = (/ & - & 0.81749e-02,0.78188e-02,0.71688e-02,0.63791e-02,0.55086e-02, & - & 0.45702e-02,0.35360e-02,0.23302e-02,0.88068e-03 /) - kao(:, 4, 8, 8) = (/ & - & 0.81959e-02,0.78839e-02,0.72650e-02,0.64997e-02,0.56387e-02, & - & 0.47059e-02,0.36681e-02,0.24532e-02,0.97840e-03 /) - kao(:, 5, 8, 8) = (/ & - & 0.81937e-02,0.79411e-02,0.73546e-02,0.66134e-02,0.57649e-02, & - & 0.48383e-02,0.38022e-02,0.25773e-02,0.10847e-02 /) - kao(:, 1, 9, 8) = (/ & - & 0.75182e-02,0.70907e-02,0.64287e-02,0.56605e-02,0.48216e-02, & - & 0.39323e-02,0.29776e-02,0.18987e-02,0.67472e-03 /) - kao(:, 2, 9, 8) = (/ & - & 0.76076e-02,0.72195e-02,0.65653e-02,0.58009e-02,0.49640e-02, & - & 0.40692e-02,0.31049e-02,0.20098e-02,0.74914e-03 /) - kao(:, 3, 9, 8) = (/ & - & 0.76735e-02,0.73227e-02,0.66862e-02,0.59346e-02,0.51012e-02, & - & 0.42015e-02,0.32328e-02,0.21222e-02,0.83367e-03 /) - kao(:, 4, 9, 8) = (/ & - & 0.77132e-02,0.74045e-02,0.67969e-02,0.60620e-02,0.52309e-02, & - & 0.43347e-02,0.33599e-02,0.22355e-02,0.91964e-03 /) - kao(:, 5, 9, 8) = (/ & - & 0.77286e-02,0.74752e-02,0.68965e-02,0.61793e-02,0.53584e-02, & - & 0.44621e-02,0.34884e-02,0.23497e-02,0.10114e-02 /) - kao(:, 1,10, 8) = (/ & - & 0.70149e-02,0.65825e-02,0.59329e-02,0.52017e-02,0.44219e-02, & - & 0.35899e-02,0.27069e-02,0.17187e-02,0.74519e-03 /) - kao(:, 2,10, 8) = (/ & - & 0.71248e-02,0.67269e-02,0.60810e-02,0.53515e-02,0.45670e-02, & - & 0.37282e-02,0.28313e-02,0.18204e-02,0.83494e-03 /) - kao(:, 3,10, 8) = (/ & - & 0.72044e-02,0.68394e-02,0.62076e-02,0.54929e-02,0.47097e-02, & - & 0.38613e-02,0.29540e-02,0.19235e-02,0.93279e-03 /) - kao(:, 4,10, 8) = (/ & - & 0.72597e-02,0.69309e-02,0.63267e-02,0.56269e-02,0.48423e-02, & - & 0.39913e-02,0.30764e-02,0.20273e-02,0.10348e-02 /) - kao(:, 5,10, 8) = (/ & - & 0.72955e-02,0.70104e-02,0.64378e-02,0.57479e-02,0.49695e-02, & - & 0.41180e-02,0.31960e-02,0.21324e-02,0.11387e-02 /) - kao(:, 1,11, 8) = (/ & - & 0.65628e-02,0.61735e-02,0.55551e-02,0.48677e-02,0.41265e-02, & - & 0.33334e-02,0.25028e-02,0.15938e-02,0.74406e-03 /) - kao(:, 2,11, 8) = (/ & - & 0.66786e-02,0.63151e-02,0.57025e-02,0.50172e-02,0.42702e-02, & - & 0.34674e-02,0.26229e-02,0.16875e-02,0.82711e-03 /) - kao(:, 3,11, 8) = (/ & - & 0.67664e-02,0.64350e-02,0.58347e-02,0.51562e-02,0.44059e-02, & - & 0.35945e-02,0.27422e-02,0.17822e-02,0.92379e-03 /) - kao(:, 4,11, 8) = (/ & - & 0.68381e-02,0.65357e-02,0.59597e-02,0.52850e-02,0.45292e-02, & - & 0.37195e-02,0.28585e-02,0.18773e-02,0.10214e-02 /) - kao(:, 5,11, 8) = (/ & - & 0.68910e-02,0.66274e-02,0.60702e-02,0.54014e-02,0.46503e-02, & - & 0.38396e-02,0.29707e-02,0.19733e-02,0.11179e-02 /) - kao(:, 1,12, 8) = (/ & - & 0.60794e-02,0.57316e-02,0.51563e-02,0.45236e-02,0.38371e-02, & - & 0.31013e-02,0.23239e-02,0.14745e-02,0.70212e-03 /) - kao(:, 2,12, 8) = (/ & - & 0.62026e-02,0.58782e-02,0.53110e-02,0.46778e-02,0.39838e-02, & - & 0.32334e-02,0.24368e-02,0.15615e-02,0.77146e-03 /) - kao(:, 3,12, 8) = (/ & - & 0.63087e-02,0.60102e-02,0.54544e-02,0.48220e-02,0.41191e-02, & - & 0.33562e-02,0.25462e-02,0.16493e-02,0.85116e-03 /) - kao(:, 4,12, 8) = (/ & - & 0.63948e-02,0.61265e-02,0.55863e-02,0.49541e-02,0.42453e-02, & - & 0.34753e-02,0.26508e-02,0.17372e-02,0.93862e-03 /) - kao(:, 5,12, 8) = (/ & - & 0.64607e-02,0.62309e-02,0.57052e-02,0.50757e-02,0.43660e-02, & - & 0.35907e-02,0.27548e-02,0.18249e-02,0.10221e-02 /) - kao(:, 1,13, 8) = (/ & - & 0.55937e-02,0.52793e-02,0.47517e-02,0.41692e-02,0.35394e-02, & - & 0.28625e-02,0.21454e-02,0.13668e-02,0.61956e-03 /) - kao(:, 2,13, 8) = (/ & - & 0.57319e-02,0.54374e-02,0.49129e-02,0.43258e-02,0.36843e-02, & - & 0.29907e-02,0.22551e-02,0.14474e-02,0.68007e-03 /) - kao(:, 3,13, 8) = (/ & - & 0.58515e-02,0.55788e-02,0.50622e-02,0.44734e-02,0.38194e-02, & - & 0.31146e-02,0.23600e-02,0.15267e-02,0.75016e-03 /) - kao(:, 4,13, 8) = (/ & - & 0.59483e-02,0.57068e-02,0.51995e-02,0.46068e-02,0.39501e-02, & - & 0.32357e-02,0.24610e-02,0.16061e-02,0.82038e-03 /) - kao(:, 5,13, 8) = (/ & - & 0.60233e-02,0.58195e-02,0.53236e-02,0.47349e-02,0.40732e-02, & - & 0.33509e-02,0.25596e-02,0.16868e-02,0.89122e-03 /) - kao(:, 1, 1, 9) = (/ & - & 0.19771e-01,0.18370e-01,0.17356e-01,0.16079e-01,0.14680e-01, & - & 0.13282e-01,0.11980e-01,0.11582e-01,0.12985e-01 /) - kao(:, 2, 1, 9) = (/ & - & 0.19636e-01,0.18337e-01,0.17425e-01,0.16276e-01,0.15036e-01, & - & 0.13800e-01,0.12788e-01,0.12799e-01,0.14491e-01 /) - kao(:, 3, 1, 9) = (/ & - & 0.19487e-01,0.18291e-01,0.17516e-01,0.16543e-01,0.15458e-01, & - & 0.14398e-01,0.13717e-01,0.14121e-01,0.16094e-01 /) - kao(:, 4, 1, 9) = (/ & - & 0.19329e-01,0.18244e-01,0.17665e-01,0.16858e-01,0.15921e-01, & - & 0.15082e-01,0.14738e-01,0.15534e-01,0.17796e-01 /) - kao(:, 5, 1, 9) = (/ & - & 0.19162e-01,0.18208e-01,0.17862e-01,0.17203e-01,0.16407e-01, & - & 0.15804e-01,0.15831e-01,0.17016e-01,0.19554e-01 /) - kao(:, 1, 2, 9) = (/ & - & 0.20491e-01,0.19041e-01,0.17931e-01,0.16490e-01,0.14871e-01, & - & 0.13204e-01,0.11551e-01,0.10493e-01,0.11370e-01 /) - kao(:, 2, 2, 9) = (/ & - & 0.20351e-01,0.19021e-01,0.18003e-01,0.16688e-01,0.15207e-01, & - & 0.13674e-01,0.12228e-01,0.11542e-01,0.12722e-01 /) - kao(:, 3, 2, 9) = (/ & - & 0.20205e-01,0.18987e-01,0.18097e-01,0.16946e-01,0.15590e-01, & - & 0.14204e-01,0.13003e-01,0.12703e-01,0.14170e-01 /) - kao(:, 4, 2, 9) = (/ & - & 0.20054e-01,0.18946e-01,0.18241e-01,0.17244e-01,0.16012e-01, & - & 0.14800e-01,0.13862e-01,0.13953e-01,0.15702e-01 /) - kao(:, 5, 2, 9) = (/ & - & 0.19890e-01,0.18914e-01,0.18431e-01,0.17568e-01,0.16464e-01, & - & 0.15445e-01,0.14813e-01,0.15302e-01,0.17318e-01 /) - kao(:, 1, 3, 9) = (/ & - & 0.21143e-01,0.19662e-01,0.18419e-01,0.16811e-01,0.15005e-01, & - & 0.13075e-01,0.11094e-01,0.93893e-02,0.95682e-02 /) - kao(:, 2, 3, 9) = (/ & - & 0.21021e-01,0.19658e-01,0.18498e-01,0.17007e-01,0.15312e-01, & - & 0.13491e-01,0.11661e-01,0.10256e-01,0.10742e-01 /) - kao(:, 3, 3, 9) = (/ & - & 0.20887e-01,0.19635e-01,0.18594e-01,0.17251e-01,0.15669e-01, & - & 0.13959e-01,0.12304e-01,0.11227e-01,0.12012e-01 /) - kao(:, 4, 3, 9) = (/ & - & 0.20742e-01,0.19603e-01,0.18727e-01,0.17530e-01,0.16058e-01, & - & 0.14485e-01,0.13015e-01,0.12294e-01,0.13375e-01 /) - kao(:, 5, 3, 9) = (/ & - & 0.20582e-01,0.19578e-01,0.18903e-01,0.17831e-01,0.16483e-01, & - & 0.15047e-01,0.13818e-01,0.13471e-01,0.14836e-01 /) - kao(:, 1, 4, 9) = (/ & - & 0.21726e-01,0.20199e-01,0.18812e-01,0.17047e-01,0.15080e-01, & - & 0.12938e-01,0.10693e-01,0.84650e-02,0.79270e-02 /) - kao(:, 2, 4, 9) = (/ & - & 0.21624e-01,0.20213e-01,0.18897e-01,0.17238e-01,0.15368e-01, & - & 0.13326e-01,0.11175e-01,0.91656e-02,0.89409e-02 /) - kao(:, 3, 4, 9) = (/ & - & 0.21502e-01,0.20207e-01,0.18990e-01,0.17468e-01,0.15708e-01, & - & 0.13755e-01,0.11721e-01,0.99561e-02,0.10044e-01 /) - kao(:, 4, 4, 9) = (/ & - & 0.21364e-01,0.20186e-01,0.19114e-01,0.17747e-01,0.16075e-01, & - & 0.14230e-01,0.12327e-01,0.10844e-01,0.11238e-01 /) - kao(:, 5, 4, 9) = (/ & - & 0.21208e-01,0.20165e-01,0.19280e-01,0.18035e-01,0.16477e-01, & - & 0.14734e-01,0.13004e-01,0.11837e-01,0.12527e-01 /) - kao(:, 1, 5, 9) = (/ & - & 0.22212e-01,0.20643e-01,0.19101e-01,0.17193e-01,0.15094e-01, & - & 0.12790e-01,0.10344e-01,0.77661e-02,0.65292e-02 /) - kao(:, 2, 5, 9) = (/ & - & 0.22131e-01,0.20679e-01,0.19192e-01,0.17388e-01,0.15373e-01, & - & 0.13156e-01,0.10779e-01,0.83326e-02,0.74004e-02 /) - kao(:, 3, 5, 9) = (/ & - & 0.22024e-01,0.20689e-01,0.19289e-01,0.17614e-01,0.15701e-01, & - & 0.13560e-01,0.11259e-01,0.89716e-02,0.83509e-02 /) - kao(:, 4, 5, 9) = (/ & - & 0.21891e-01,0.20674e-01,0.19419e-01,0.17880e-01,0.16055e-01, & - & 0.14002e-01,0.11784e-01,0.96942e-02,0.93863e-02 /) - kao(:, 5, 5, 9) = (/ & - & 0.21733e-01,0.20659e-01,0.19581e-01,0.18166e-01,0.16436e-01, & - & 0.14467e-01,0.12356e-01,0.10508e-01,0.10499e-01 /) - kao(:, 1, 6, 9) = (/ & - & 0.22561e-01,0.20963e-01,0.19278e-01,0.17248e-01,0.15027e-01, & - & 0.12605e-01,0.99913e-02,0.71998e-02,0.53191e-02 /) - kao(:, 2, 6, 9) = (/ & - & 0.22505e-01,0.21027e-01,0.19391e-01,0.17451e-01,0.15296e-01, & - & 0.12947e-01,0.10394e-01,0.76719e-02,0.60628e-02 /) - kao(:, 3, 6, 9) = (/ & - & 0.22407e-01,0.21057e-01,0.19505e-01,0.17673e-01,0.15617e-01, & - & 0.13330e-01,0.10834e-01,0.82004e-02,0.68698e-02 /) - kao(:, 4, 6, 9) = (/ & - & 0.22287e-01,0.21061e-01,0.19636e-01,0.17933e-01,0.15963e-01, & - & 0.13742e-01,0.11312e-01,0.87854e-02,0.77488e-02 /) - kao(:, 5, 6, 9) = (/ & - & 0.22148e-01,0.21053e-01,0.19794e-01,0.18212e-01,0.16329e-01, & - & 0.14180e-01,0.11816e-01,0.94417e-02,0.86993e-02 /) - kao(:, 1, 7, 9) = (/ & - & 0.22745e-01,0.21135e-01,0.19327e-01,0.17197e-01,0.14893e-01, & - & 0.12374e-01,0.96536e-02,0.67256e-02,0.43127e-02 /) - kao(:, 2, 7, 9) = (/ & - & 0.22707e-01,0.21230e-01,0.19474e-01,0.17423e-01,0.15162e-01, & - & 0.12700e-01,0.10030e-01,0.71370e-02,0.49389e-02 /) - kao(:, 3, 7, 9) = (/ & - & 0.22632e-01,0.21281e-01,0.19608e-01,0.17649e-01,0.15471e-01, & - & 0.13070e-01,0.10436e-01,0.75822e-02,0.56174e-02 /) - kao(:, 4, 7, 9) = (/ & - & 0.22537e-01,0.21307e-01,0.19744e-01,0.17903e-01,0.15813e-01, & - & 0.13461e-01,0.10872e-01,0.80682e-02,0.63562e-02 /) - kao(:, 5, 7, 9) = (/ & - & 0.22420e-01,0.21314e-01,0.19904e-01,0.18182e-01,0.16160e-01, & - & 0.13874e-01,0.11331e-01,0.86088e-02,0.71565e-02 /) - kao(:, 1, 8, 9) = (/ & - & 0.22742e-01,0.21141e-01,0.19244e-01,0.17036e-01,0.14667e-01, & - & 0.12093e-01,0.93194e-02,0.63016e-02,0.33604e-02 /) - kao(:, 2, 8, 9) = (/ & - & 0.22738e-01,0.21267e-01,0.19420e-01,0.17289e-01,0.14951e-01, & - & 0.12414e-01,0.96717e-02,0.66654e-02,0.38903e-02 /) - kao(:, 3, 8, 9) = (/ & - & 0.22699e-01,0.21347e-01,0.19574e-01,0.17525e-01,0.15260e-01, & - & 0.12775e-01,0.10048e-01,0.70608e-02,0.44626e-02 /) - kao(:, 4, 8, 9) = (/ & - & 0.22634e-01,0.21402e-01,0.19725e-01,0.17775e-01,0.15596e-01, & - & 0.13150e-01,0.10455e-01,0.74847e-02,0.50904e-02 /) - kao(:, 5, 8, 9) = (/ & - & 0.22550e-01,0.21432e-01,0.19888e-01,0.18059e-01,0.15936e-01, & - & 0.13540e-01,0.10879e-01,0.79454e-02,0.57754e-02 /) - kao(:, 1, 9, 9) = (/ & - & 0.22571e-01,0.20980e-01,0.19017e-01,0.16764e-01,0.14350e-01, & - & 0.11743e-01,0.89583e-02,0.59107e-02,0.27753e-02 /) - kao(:, 2, 9, 9) = (/ & - & 0.22607e-01,0.21147e-01,0.19231e-01,0.17040e-01,0.14648e-01, & - & 0.12069e-01,0.92988e-02,0.62425e-02,0.31527e-02 /) - kao(:, 3, 9, 9) = (/ & - & 0.22609e-01,0.21268e-01,0.19413e-01,0.17284e-01,0.14954e-01, & - & 0.12424e-01,0.96568e-02,0.66010e-02,0.35387e-02 /) - kao(:, 4, 9, 9) = (/ & - & 0.22589e-01,0.21355e-01,0.19582e-01,0.17535e-01,0.15285e-01, & - & 0.12790e-01,0.10038e-01,0.69765e-02,0.39766e-02 /) - kao(:, 5, 9, 9) = (/ & - & 0.22546e-01,0.21413e-01,0.19758e-01,0.17821e-01,0.15622e-01, & - & 0.13166e-01,0.10432e-01,0.73821e-02,0.44450e-02 /) - kao(:, 1,10, 9) = (/ & - & 0.22137e-01,0.20618e-01,0.18650e-01,0.16403e-01,0.13972e-01, & - & 0.11364e-01,0.85848e-02,0.55632e-02,0.31593e-02 /) - kao(:, 2,10, 9) = (/ & - & 0.22231e-01,0.20835e-01,0.18905e-01,0.16706e-01,0.14289e-01, & - & 0.11695e-01,0.89167e-02,0.58739e-02,0.35325e-02 /) - kao(:, 3,10, 9) = (/ & - & 0.22295e-01,0.21010e-01,0.19131e-01,0.16972e-01,0.14595e-01, & - & 0.12040e-01,0.92665e-02,0.62059e-02,0.39315e-02 /) - kao(:, 4,10, 9) = (/ & - & 0.22331e-01,0.21144e-01,0.19334e-01,0.17233e-01,0.14916e-01, & - & 0.12396e-01,0.96355e-02,0.65507e-02,0.43409e-02 /) - kao(:, 5,10, 9) = (/ & - & 0.22332e-01,0.21248e-01,0.19527e-01,0.17517e-01,0.15252e-01, & - & 0.12765e-01,0.10012e-01,0.69176e-02,0.47851e-02 /) - kao(:, 1,11, 9) = (/ & - & 0.21611e-01,0.20177e-01,0.18220e-01,0.16014e-01,0.13625e-01, & - & 0.11072e-01,0.83376e-02,0.53526e-02,0.32967e-02 /) - kao(:, 2,11, 9) = (/ & - & 0.21754e-01,0.20431e-01,0.18507e-01,0.16333e-01,0.13954e-01, & - & 0.11415e-01,0.86702e-02,0.56558e-02,0.36779e-02 /) - kao(:, 3,11, 9) = (/ & - & 0.21862e-01,0.20634e-01,0.18769e-01,0.16624e-01,0.14280e-01, & - & 0.11762e-01,0.90145e-02,0.59759e-02,0.40891e-02 /) - kao(:, 4,11, 9) = (/ & - & 0.21929e-01,0.20796e-01,0.18995e-01,0.16914e-01,0.14621e-01, & - & 0.12122e-01,0.93752e-02,0.63026e-02,0.45492e-02 /) - kao(:, 5,11, 9) = (/ & - & 0.21956e-01,0.20925e-01,0.19222e-01,0.17218e-01,0.14974e-01, & - & 0.12492e-01,0.97406e-02,0.66508e-02,0.50324e-02 /) - kao(:, 1,12, 9) = (/ & - & 0.20989e-01,0.19649e-01,0.17719e-01,0.15554e-01,0.13207e-01, & - & 0.10709e-01,0.80423e-02,0.51308e-02,0.32152e-02 /) - kao(:, 2,12, 9) = (/ & - & 0.21187e-01,0.19941e-01,0.18042e-01,0.15892e-01,0.13549e-01, & - & 0.11055e-01,0.83766e-02,0.54250e-02,0.35851e-02 /) - kao(:, 3,12, 9) = (/ & - & 0.21336e-01,0.20173e-01,0.18327e-01,0.16203e-01,0.13894e-01, & - & 0.11411e-01,0.87228e-02,0.57329e-02,0.40006e-02 /) - kao(:, 4,12, 9) = (/ & - & 0.21440e-01,0.20364e-01,0.18584e-01,0.16516e-01,0.14243e-01, & - & 0.11781e-01,0.90825e-02,0.60483e-02,0.44327e-02 /) - kao(:, 5,12, 9) = (/ & - & 0.21509e-01,0.20531e-01,0.18841e-01,0.16838e-01,0.14607e-01, & - & 0.12155e-01,0.94413e-02,0.63798e-02,0.48628e-02 /) - kao(:, 1,13, 9) = (/ & - & 0.20300e-01,0.19036e-01,0.17142e-01,0.15033e-01,0.12745e-01, & - & 0.10318e-01,0.77330e-02,0.48977e-02,0.29186e-02 /) - kao(:, 2,13, 9) = (/ & - & 0.20539e-01,0.19361e-01,0.17504e-01,0.15398e-01,0.13114e-01, & - & 0.10679e-01,0.80651e-02,0.51844e-02,0.32743e-02 /) - kao(:, 3,13, 9) = (/ & - & 0.20734e-01,0.19633e-01,0.17821e-01,0.15739e-01,0.13481e-01, & - & 0.11044e-01,0.84099e-02,0.54812e-02,0.36601e-02 /) - kao(:, 4,13, 9) = (/ & - & 0.20892e-01,0.19871e-01,0.18120e-01,0.16090e-01,0.13847e-01, & - & 0.11415e-01,0.87615e-02,0.57863e-02,0.40403e-02 /) - kao(:, 5,13, 9) = (/ & - & 0.21016e-01,0.20092e-01,0.18420e-01,0.16433e-01,0.14220e-01, & - & 0.11787e-01,0.91177e-02,0.61020e-02,0.44775e-02 /) - kao(:, 1, 1,10) = (/ & - & 0.32077e-01,0.29717e-01,0.27957e-01,0.27088e-01,0.26148e-01, & - & 0.25463e-01,0.27887e-01,0.32409e-01,0.37623e-01 /) - kao(:, 2, 1,10) = (/ & - & 0.31656e-01,0.29512e-01,0.28047e-01,0.27317e-01,0.26667e-01, & - & 0.26788e-01,0.30344e-01,0.35248e-01,0.40533e-01 /) - kao(:, 3, 1,10) = (/ & - & 0.31222e-01,0.29398e-01,0.28183e-01,0.27633e-01,0.27598e-01, & - & 0.28788e-01,0.33344e-01,0.38694e-01,0.44458e-01 /) - kao(:, 4, 1,10) = (/ & - & 0.30838e-01,0.29185e-01,0.28219e-01,0.28269e-01,0.28900e-01, & - & 0.31215e-01,0.36765e-01,0.42659e-01,0.48710e-01 /) - kao(:, 5, 1,10) = (/ & - & 0.30476e-01,0.28982e-01,0.28435e-01,0.29011e-01,0.30822e-01, & - & 0.34422e-01,0.40770e-01,0.47309e-01,0.54027e-01 /) - kao(:, 1, 2,10) = (/ & - & 0.34215e-01,0.31859e-01,0.30015e-01,0.28551e-01,0.26684e-01, & - & 0.25243e-01,0.25874e-01,0.29803e-01,0.34327e-01 /) - kao(:, 2, 2,10) = (/ & - & 0.33819e-01,0.31701e-01,0.30099e-01,0.28712e-01,0.27156e-01, & - & 0.26446e-01,0.28380e-01,0.32886e-01,0.37685e-01 /) - kao(:, 3, 2,10) = (/ & - & 0.33393e-01,0.31477e-01,0.30146e-01,0.28931e-01,0.28112e-01, & - & 0.28308e-01,0.31383e-01,0.36360e-01,0.41605e-01 /) - kao(:, 4, 2,10) = (/ & - & 0.33012e-01,0.31222e-01,0.30110e-01,0.29460e-01,0.29343e-01, & - & 0.30463e-01,0.34829e-01,0.40350e-01,0.46115e-01 /) - kao(:, 5, 2,10) = (/ & - & 0.32618e-01,0.30977e-01,0.30249e-01,0.30140e-01,0.31029e-01, & - & 0.33086e-01,0.38518e-01,0.44611e-01,0.51063e-01 /) - kao(:, 1, 3,10) = (/ & - & 0.36609e-01,0.34016e-01,0.32008e-01,0.30013e-01,0.27528e-01, & - & 0.25143e-01,0.24092e-01,0.26746e-01,0.30590e-01 /) - kao(:, 2, 3,10) = (/ & - & 0.36187e-01,0.33816e-01,0.32068e-01,0.30121e-01,0.27943e-01, & - & 0.26137e-01,0.26190e-01,0.29769e-01,0.34003e-01 /) - kao(:, 3, 3,10) = (/ & - & 0.35755e-01,0.33555e-01,0.32022e-01,0.30354e-01,0.28696e-01, & - & 0.27732e-01,0.28744e-01,0.33056e-01,0.37754e-01 /) - kao(:, 4, 3,10) = (/ & - & 0.35304e-01,0.33277e-01,0.31985e-01,0.30856e-01,0.29759e-01, & - & 0.29582e-01,0.31793e-01,0.36769e-01,0.41965e-01 /) - kao(:, 5, 3,10) = (/ & - & 0.34895e-01,0.32987e-01,0.32094e-01,0.31490e-01,0.31100e-01, & - & 0.31735e-01,0.35104e-01,0.40646e-01,0.46442e-01 /) - kao(:, 1, 4,10) = (/ & - & 0.38977e-01,0.36120e-01,0.33897e-01,0.31410e-01,0.28525e-01, & - & 0.25373e-01,0.22918e-01,0.23596e-01,0.26905e-01 /) - kao(:, 2, 4,10) = (/ & - & 0.38508e-01,0.35924e-01,0.33917e-01,0.31530e-01,0.28933e-01, & - & 0.26161e-01,0.24652e-01,0.26430e-01,0.30108e-01 /) - kao(:, 3, 4,10) = (/ & - & 0.38014e-01,0.35658e-01,0.33872e-01,0.31757e-01,0.29547e-01, & - & 0.27436e-01,0.26616e-01,0.29450e-01,0.33541e-01 /) - kao(:, 4, 4,10) = (/ & - & 0.37555e-01,0.35363e-01,0.33895e-01,0.32125e-01,0.30540e-01, & - & 0.28878e-01,0.28956e-01,0.32793e-01,0.37351e-01 /) - kao(:, 5, 4,10) = (/ & - & 0.37151e-01,0.35088e-01,0.33984e-01,0.32788e-01,0.31573e-01, & - & 0.30633e-01,0.31627e-01,0.36308e-01,0.41371e-01 /) - kao(:, 1, 5,10) = (/ & - & 0.41153e-01,0.38034e-01,0.35706e-01,0.32805e-01,0.29387e-01, & - & 0.25927e-01,0.22231e-01,0.20561e-01,0.23186e-01 /) - kao(:, 2, 5,10) = (/ & - & 0.40611e-01,0.37835e-01,0.35759e-01,0.32923e-01,0.29781e-01, & - & 0.26577e-01,0.23565e-01,0.23003e-01,0.26110e-01 /) - kao(:, 3, 5,10) = (/ & - & 0.40174e-01,0.37589e-01,0.35747e-01,0.33131e-01,0.30334e-01, & - & 0.27648e-01,0.25145e-01,0.25696e-01,0.29208e-01 /) - kao(:, 4, 5,10) = (/ & - & 0.39802e-01,0.37389e-01,0.35760e-01,0.33447e-01,0.31294e-01, & - & 0.28785e-01,0.27005e-01,0.28729e-01,0.32665e-01 /) - kao(:, 5, 5,10) = (/ & - & 0.39471e-01,0.37195e-01,0.35872e-01,0.34084e-01,0.32227e-01, & - & 0.30087e-01,0.29177e-01,0.32029e-01,0.36449e-01 /) - kao(:, 1, 6,10) = (/ & - & 0.43370e-01,0.39997e-01,0.37440e-01,0.34118e-01,0.30345e-01, & - & 0.26246e-01,0.21955e-01,0.18231e-01,0.19573e-01 /) - kao(:, 2, 6,10) = (/ & - & 0.42801e-01,0.39763e-01,0.37480e-01,0.34252e-01,0.30723e-01, & - & 0.26892e-01,0.22943e-01,0.20080e-01,0.22108e-01 /) - kao(:, 3, 6,10) = (/ & - & 0.42453e-01,0.39592e-01,0.37449e-01,0.34486e-01,0.31160e-01, & - & 0.27853e-01,0.24129e-01,0.22254e-01,0.24945e-01 /) - kao(:, 4, 6,10) = (/ & - & 0.42151e-01,0.39446e-01,0.37500e-01,0.34777e-01,0.31970e-01, & - & 0.28872e-01,0.25539e-01,0.24809e-01,0.28086e-01 /) - kao(:, 5, 6,10) = (/ & - & 0.41833e-01,0.39344e-01,0.37631e-01,0.35392e-01,0.32810e-01, & - & 0.29983e-01,0.27309e-01,0.27744e-01,0.31535e-01 /) - kao(:, 1, 7,10) = (/ & - & 0.45445e-01,0.41961e-01,0.39238e-01,0.35426e-01,0.31192e-01, & - & 0.26649e-01,0.21695e-01,0.16623e-01,0.16293e-01 /) - kao(:, 2, 7,10) = (/ & - & 0.45078e-01,0.41797e-01,0.39225e-01,0.35507e-01,0.31562e-01, & - & 0.27229e-01,0.22532e-01,0.18019e-01,0.18534e-01 /) - kao(:, 3, 7,10) = (/ & - & 0.44870e-01,0.41785e-01,0.39209e-01,0.35749e-01,0.31958e-01, & - & 0.27976e-01,0.23572e-01,0.19783e-01,0.21105e-01 /) - kao(:, 4, 7,10) = (/ & - & 0.44638e-01,0.41726e-01,0.39301e-01,0.35989e-01,0.32614e-01, & - & 0.28887e-01,0.24743e-01,0.21842e-01,0.23947e-01 /) - kao(:, 5, 7,10) = (/ & - & 0.44319e-01,0.41703e-01,0.39403e-01,0.36491e-01,0.33461e-01, & - & 0.29864e-01,0.26133e-01,0.24238e-01,0.27063e-01 /) - kao(:, 1, 8,10) = (/ & - & 0.47338e-01,0.43694e-01,0.40795e-01,0.36657e-01,0.31991e-01, & - & 0.26976e-01,0.21436e-01,0.15589e-01,0.13371e-01 /) - kao(:, 2, 8,10) = (/ & - & 0.47172e-01,0.43681e-01,0.40850e-01,0.36728e-01,0.32341e-01, & - & 0.27474e-01,0.22184e-01,0.16691e-01,0.15337e-01 /) - kao(:, 3, 8,10) = (/ & - & 0.47077e-01,0.43885e-01,0.40965e-01,0.37016e-01,0.32654e-01, & - & 0.28038e-01,0.23084e-01,0.18052e-01,0.17670e-01 /) - kao(:, 4, 8,10) = (/ & - & 0.46877e-01,0.43984e-01,0.41138e-01,0.37264e-01,0.33142e-01, & - & 0.28868e-01,0.24126e-01,0.19696e-01,0.20174e-01 /) - kao(:, 5, 8,10) = (/ & - & 0.46627e-01,0.44042e-01,0.41218e-01,0.37582e-01,0.33931e-01, & - & 0.29818e-01,0.25367e-01,0.21590e-01,0.22899e-01 /) - kao(:, 1, 9,10) = (/ & - & 0.49069e-01,0.45230e-01,0.41949e-01,0.37482e-01,0.32547e-01, & - & 0.27221e-01,0.21190e-01,0.14771e-01,0.82104e-02 /) - kao(:, 2, 9,10) = (/ & - & 0.48982e-01,0.45358e-01,0.42113e-01,0.37642e-01,0.32970e-01, & - & 0.27650e-01,0.21850e-01,0.15738e-01,0.94586e-02 /) - kao(:, 3, 9,10) = (/ & - & 0.48934e-01,0.45677e-01,0.42390e-01,0.38084e-01,0.33301e-01, & - & 0.28097e-01,0.22664e-01,0.16844e-01,0.11686e-01 /) - kao(:, 4, 9,10) = (/ & - & 0.48760e-01,0.45876e-01,0.42614e-01,0.38405e-01,0.33732e-01, & - & 0.28793e-01,0.23625e-01,0.18186e-01,0.14417e-01 /) - kao(:, 5, 9,10) = (/ & - & 0.48535e-01,0.45946e-01,0.42722e-01,0.38669e-01,0.34439e-01, & - & 0.29718e-01,0.24746e-01,0.19636e-01,0.17490e-01 /) - kao(:, 1,10,10) = (/ & - & 0.50581e-01,0.46588e-01,0.42861e-01,0.37978e-01,0.32756e-01, & - & 0.27218e-01,0.20963e-01,0.14152e-01,0.94977e-02 /) - kao(:, 2,10,10) = (/ & - & 0.50552e-01,0.46832e-01,0.43092e-01,0.38231e-01,0.33230e-01, & - & 0.27672e-01,0.21597e-01,0.15000e-01,0.11069e-01 /) - kao(:, 3,10,10) = (/ & - & 0.50470e-01,0.47126e-01,0.43390e-01,0.38763e-01,0.33692e-01, & - & 0.28191e-01,0.22303e-01,0.15932e-01,0.12529e-01 /) - kao(:, 4,10,10) = (/ & - & 0.50251e-01,0.47290e-01,0.43621e-01,0.39150e-01,0.34250e-01, & - & 0.28907e-01,0.23153e-01,0.17091e-01,0.14647e-01 /) - kao(:, 5,10,10) = (/ & - & 0.50025e-01,0.47335e-01,0.43789e-01,0.39526e-01,0.34961e-01, & - & 0.29783e-01,0.24207e-01,0.18303e-01,0.16505e-01 /) - kao(:, 1,11,10) = (/ & - & 0.51775e-01,0.47733e-01,0.43604e-01,0.38377e-01,0.33010e-01, & - & 0.27211e-01,0.20853e-01,0.13952e-01,0.10099e-01 /) - kao(:, 2,11,10) = (/ & - & 0.51722e-01,0.48082e-01,0.43912e-01,0.38859e-01,0.33550e-01, & - & 0.27720e-01,0.21535e-01,0.14746e-01,0.11460e-01 /) - kao(:, 3,11,10) = (/ & - & 0.51577e-01,0.48309e-01,0.44107e-01,0.39371e-01,0.34132e-01, & - & 0.28431e-01,0.22288e-01,0.15640e-01,0.12761e-01 /) - kao(:, 4,11,10) = (/ & - & 0.51367e-01,0.48474e-01,0.44409e-01,0.39819e-01,0.34807e-01, & - & 0.29240e-01,0.23192e-01,0.16707e-01,0.14096e-01 /) - kao(:, 5,11,10) = (/ & - & 0.51186e-01,0.48565e-01,0.44658e-01,0.40350e-01,0.35545e-01, & - & 0.30221e-01,0.24214e-01,0.17744e-01,0.15290e-01 /) - kao(:, 1,12,10) = (/ & - & 0.52731e-01,0.48681e-01,0.44186e-01,0.38733e-01,0.33169e-01, & - & 0.27108e-01,0.20634e-01,0.13723e-01,0.97949e-02 /) - kao(:, 2,12,10) = (/ & - & 0.52654e-01,0.49001e-01,0.44433e-01,0.39315e-01,0.33776e-01, & - & 0.27772e-01,0.21363e-01,0.14506e-01,0.11186e-01 /) - kao(:, 3,12,10) = (/ & - & 0.52581e-01,0.49321e-01,0.44768e-01,0.39827e-01,0.34382e-01, & - & 0.28565e-01,0.22205e-01,0.15366e-01,0.12310e-01 /) - kao(:, 4,12,10) = (/ & - & 0.52474e-01,0.49527e-01,0.45170e-01,0.40364e-01,0.35120e-01, & - & 0.29376e-01,0.23174e-01,0.16305e-01,0.14325e-01 /) - kao(:, 5,12,10) = (/ & - & 0.52313e-01,0.49659e-01,0.45526e-01,0.41026e-01,0.35905e-01, & - & 0.30399e-01,0.24222e-01,0.17291e-01,0.16045e-01 /) - kao(:, 1,13,10) = (/ & - & 0.53347e-01,0.49460e-01,0.44667e-01,0.39102e-01,0.33300e-01, & - & 0.27005e-01,0.20373e-01,0.13403e-01,0.88882e-02 /) - kao(:, 2,13,10) = (/ & - & 0.53473e-01,0.49893e-01,0.44992e-01,0.39672e-01,0.33886e-01, & - & 0.27737e-01,0.21157e-01,0.14194e-01,0.99472e-02 /) - kao(:, 3,13,10) = (/ & - & 0.53543e-01,0.50285e-01,0.45484e-01,0.40250e-01,0.34541e-01, & - & 0.28510e-01,0.22035e-01,0.15061e-01,0.11235e-01 /) - kao(:, 4,13,10) = (/ & - & 0.53461e-01,0.50524e-01,0.45912e-01,0.40827e-01,0.35322e-01, & - & 0.29374e-01,0.23048e-01,0.15925e-01,0.12822e-01 /) - kao(:, 5,13,10) = (/ & - & 0.53278e-01,0.50624e-01,0.46303e-01,0.41556e-01,0.36186e-01, & - & 0.30414e-01,0.24058e-01,0.16868e-01,0.14203e-01 /) - kao(:, 1, 1,11) = (/ & - & 0.37171e-01,0.34434e-01,0.32644e-01,0.32703e-01,0.33235e-01, & - & 0.36611e-01,0.43526e-01,0.50696e-01,0.58297e-01 /) - kao(:, 2, 1,11) = (/ & - & 0.36741e-01,0.34071e-01,0.32455e-01,0.33094e-01,0.34229e-01, & - & 0.38792e-01,0.46364e-01,0.53998e-01,0.61977e-01 /) - kao(:, 3, 1,11) = (/ & - & 0.36310e-01,0.33795e-01,0.32514e-01,0.33548e-01,0.35414e-01, & - & 0.41445e-01,0.49627e-01,0.57817e-01,0.66049e-01 /) - kao(:, 4, 1,11) = (/ & - & 0.35845e-01,0.33632e-01,0.32631e-01,0.34397e-01,0.37428e-01, & - & 0.44985e-01,0.53868e-01,0.62763e-01,0.71579e-01 /) - kao(:, 5, 1,11) = (/ & - & 0.35331e-01,0.33379e-01,0.32910e-01,0.35528e-01,0.39783e-01, & - & 0.48705e-01,0.58316e-01,0.67942e-01,0.77160e-01 /) - kao(:, 1, 2,11) = (/ & - & 0.40448e-01,0.37395e-01,0.35029e-01,0.34305e-01,0.33991e-01, & - & 0.35316e-01,0.40968e-01,0.47712e-01,0.54932e-01 /) - kao(:, 2, 2,11) = (/ & - & 0.39920e-01,0.36968e-01,0.34927e-01,0.34599e-01,0.34841e-01, & - & 0.37250e-01,0.43923e-01,0.51161e-01,0.58827e-01 /) - kao(:, 3, 2,11) = (/ & - & 0.39405e-01,0.36691e-01,0.34999e-01,0.35076e-01,0.35924e-01, & - & 0.39772e-01,0.47443e-01,0.55253e-01,0.63303e-01 /) - kao(:, 4, 2,11) = (/ & - & 0.38792e-01,0.36414e-01,0.35121e-01,0.35787e-01,0.37790e-01, & - & 0.43290e-01,0.51773e-01,0.60284e-01,0.68983e-01 /) - kao(:, 5, 2,11) = (/ & - & 0.38190e-01,0.36098e-01,0.35328e-01,0.36844e-01,0.39952e-01, & - & 0.47291e-01,0.56573e-01,0.65870e-01,0.75177e-01 /) - kao(:, 1, 3,11) = (/ & - & 0.43810e-01,0.40500e-01,0.37754e-01,0.36293e-01,0.34676e-01, & - & 0.34367e-01,0.37493e-01,0.43650e-01,0.50087e-01 /) - kao(:, 2, 3,11) = (/ & - & 0.43199e-01,0.40018e-01,0.37716e-01,0.36450e-01,0.35395e-01, & - & 0.35866e-01,0.40426e-01,0.47076e-01,0.53958e-01 /) - kao(:, 3, 3,11) = (/ & - & 0.42538e-01,0.39757e-01,0.37868e-01,0.36772e-01,0.36302e-01, & - & 0.37914e-01,0.44070e-01,0.51299e-01,0.58670e-01 /) - kao(:, 4, 3,11) = (/ & - & 0.41856e-01,0.39457e-01,0.37979e-01,0.37163e-01,0.37947e-01, & - & 0.40970e-01,0.48419e-01,0.56334e-01,0.64404e-01 /) - kao(:, 5, 3,11) = (/ & - & 0.41250e-01,0.39154e-01,0.38065e-01,0.38049e-01,0.39929e-01, & - & 0.44658e-01,0.53223e-01,0.61909e-01,0.70665e-01 /) - kao(:, 1, 4,11) = (/ & - & 0.47088e-01,0.43589e-01,0.40605e-01,0.38686e-01,0.35713e-01, & - & 0.33942e-01,0.34171e-01,0.39143e-01,0.44787e-01 /) - kao(:, 2, 4,11) = (/ & - & 0.46380e-01,0.43081e-01,0.40678e-01,0.38772e-01,0.36271e-01, & - & 0.35115e-01,0.36728e-01,0.42523e-01,0.48625e-01 /) - kao(:, 3, 4,11) = (/ & - & 0.45787e-01,0.42889e-01,0.40853e-01,0.39000e-01,0.36901e-01, & - & 0.36794e-01,0.40276e-01,0.46812e-01,0.53448e-01 /) - kao(:, 4, 4,11) = (/ & - & 0.45216e-01,0.42628e-01,0.40916e-01,0.39286e-01,0.38129e-01, & - & 0.39329e-01,0.44499e-01,0.51734e-01,0.59041e-01 /) - kao(:, 5, 4,11) = (/ & - & 0.44698e-01,0.42312e-01,0.40992e-01,0.39909e-01,0.39896e-01, & - & 0.42322e-01,0.49157e-01,0.57134e-01,0.65206e-01 /) - kao(:, 1, 5,11) = (/ & - & 0.50564e-01,0.46864e-01,0.43550e-01,0.41145e-01,0.37282e-01, & - & 0.33847e-01,0.31921e-01,0.34655e-01,0.39581e-01 /) - kao(:, 2, 5,11) = (/ & - & 0.49853e-01,0.46324e-01,0.43735e-01,0.41212e-01,0.37826e-01, & - & 0.34760e-01,0.33939e-01,0.37988e-01,0.43340e-01 /) - kao(:, 3, 5,11) = (/ & - & 0.49277e-01,0.46142e-01,0.43937e-01,0.41409e-01,0.38245e-01, & - & 0.36079e-01,0.36891e-01,0.42172e-01,0.48104e-01 /) - kao(:, 4, 5,11) = (/ & - & 0.48731e-01,0.45921e-01,0.43964e-01,0.41658e-01,0.39073e-01, & - & 0.38270e-01,0.40535e-01,0.46833e-01,0.53415e-01 /) - kao(:, 5, 5,11) = (/ & - & 0.48265e-01,0.45648e-01,0.43993e-01,0.42096e-01,0.40473e-01, & - & 0.40846e-01,0.44703e-01,0.51860e-01,0.59120e-01 /) - kao(:, 1, 6,11) = (/ & - & 0.54155e-01,0.50312e-01,0.46699e-01,0.43479e-01,0.38935e-01, & - & 0.34460e-01,0.30470e-01,0.30214e-01,0.34389e-01 /) - kao(:, 2, 6,11) = (/ & - & 0.53396e-01,0.49741e-01,0.46925e-01,0.43573e-01,0.39485e-01, & - & 0.35160e-01,0.32122e-01,0.33415e-01,0.38087e-01 /) - kao(:, 3, 6,11) = (/ & - & 0.52823e-01,0.49548e-01,0.47130e-01,0.43740e-01,0.39828e-01, & - & 0.36044e-01,0.34474e-01,0.37304e-01,0.42510e-01 /) - kao(:, 4, 6,11) = (/ & - & 0.52327e-01,0.49384e-01,0.47097e-01,0.43937e-01,0.40452e-01, & - & 0.37736e-01,0.37393e-01,0.41655e-01,0.47452e-01 /) - kao(:, 5, 6,11) = (/ & - & 0.51903e-01,0.49131e-01,0.47026e-01,0.44222e-01,0.41687e-01, & - & 0.39818e-01,0.40660e-01,0.46275e-01,0.52724e-01 /) - kao(:, 1, 7,11) = (/ & - & 0.58007e-01,0.53733e-01,0.49779e-01,0.45887e-01,0.40462e-01, & - & 0.35176e-01,0.29765e-01,0.26441e-01,0.29320e-01 /) - kao(:, 2, 7,11) = (/ & - & 0.57151e-01,0.53110e-01,0.50041e-01,0.45960e-01,0.40973e-01, & - & 0.35887e-01,0.31026e-01,0.29123e-01,0.32803e-01 /) - kao(:, 3, 7,11) = (/ & - & 0.56502e-01,0.52846e-01,0.50182e-01,0.46056e-01,0.41337e-01, & - & 0.36666e-01,0.32781e-01,0.32480e-01,0.36858e-01 /) - kao(:, 4, 7,11) = (/ & - & 0.55999e-01,0.52671e-01,0.50072e-01,0.46217e-01,0.41835e-01, & - & 0.38000e-01,0.35109e-01,0.36308e-01,0.41318e-01 /) - kao(:, 5, 7,11) = (/ & - & 0.55573e-01,0.52382e-01,0.49967e-01,0.46401e-01,0.42955e-01, & - & 0.39677e-01,0.37716e-01,0.40481e-01,0.46095e-01 /) - kao(:, 1, 8,11) = (/ & - & 0.61929e-01,0.57176e-01,0.52730e-01,0.48103e-01,0.42015e-01, & - & 0.35869e-01,0.29499e-01,0.23665e-01,0.24549e-01 /) - kao(:, 2, 8,11) = (/ & - & 0.61013e-01,0.56553e-01,0.52930e-01,0.48080e-01,0.42522e-01, & - & 0.36573e-01,0.30581e-01,0.25834e-01,0.27791e-01 /) - kao(:, 3, 8,11) = (/ & - & 0.60303e-01,0.56131e-01,0.52872e-01,0.48123e-01,0.42911e-01, & - & 0.37343e-01,0.31938e-01,0.28446e-01,0.31375e-01 /) - kao(:, 4, 8,11) = (/ & - & 0.59783e-01,0.55843e-01,0.52678e-01,0.48331e-01,0.43398e-01, & - & 0.38468e-01,0.33698e-01,0.31535e-01,0.35398e-01 /) - kao(:, 5, 8,11) = (/ & - & 0.59221e-01,0.55525e-01,0.52626e-01,0.48547e-01,0.44309e-01, & - & 0.39969e-01,0.35748e-01,0.35119e-01,0.39791e-01 /) - kao(:, 1, 9,11) = (/ & - & 0.65420e-01,0.60290e-01,0.55521e-01,0.50117e-01,0.43421e-01, & - & 0.36608e-01,0.29349e-01,0.21841e-01,0.18774e-01 /) - kao(:, 2, 9,11) = (/ & - & 0.64534e-01,0.59710e-01,0.55627e-01,0.50054e-01,0.43842e-01, & - & 0.37357e-01,0.30337e-01,0.23525e-01,0.22756e-01 /) - kao(:, 3, 9,11) = (/ & - & 0.63805e-01,0.59237e-01,0.55452e-01,0.50019e-01,0.44319e-01, & - & 0.38089e-01,0.31491e-01,0.25524e-01,0.26401e-01 /) - kao(:, 4, 9,11) = (/ & - & 0.63315e-01,0.59001e-01,0.55252e-01,0.50261e-01,0.44802e-01, & - & 0.39006e-01,0.32915e-01,0.27972e-01,0.30021e-01 /) - kao(:, 5, 9,11) = (/ & - & 0.62781e-01,0.58825e-01,0.55257e-01,0.50524e-01,0.45567e-01, & - & 0.40297e-01,0.34643e-01,0.30888e-01,0.34021e-01 /) - kao(:, 1,10,11) = (/ & - & 0.68132e-01,0.62682e-01,0.57743e-01,0.51836e-01,0.44670e-01, & - & 0.37300e-01,0.29365e-01,0.20724e-01,0.15957e-01 /) - kao(:, 2,10,11) = (/ & - & 0.67210e-01,0.62151e-01,0.57960e-01,0.51867e-01,0.45128e-01, & - & 0.38064e-01,0.30245e-01,0.22146e-01,0.17704e-01 /) - kao(:, 3,10,11) = (/ & - & 0.66632e-01,0.61949e-01,0.57882e-01,0.51878e-01,0.45637e-01, & - & 0.38758e-01,0.31283e-01,0.23744e-01,0.20098e-01 /) - kao(:, 4,10,11) = (/ & - & 0.66350e-01,0.62044e-01,0.57835e-01,0.52180e-01,0.46090e-01, & - & 0.39573e-01,0.32509e-01,0.25642e-01,0.22076e-01 /) - kao(:, 5,10,11) = (/ & - & 0.65965e-01,0.62105e-01,0.57959e-01,0.52489e-01,0.46765e-01, & - & 0.40717e-01,0.34057e-01,0.28015e-01,0.24829e-01 /) - kao(:, 1,11,11) = (/ & - & 0.69905e-01,0.64410e-01,0.59589e-01,0.53150e-01,0.45760e-01, & - & 0.38179e-01,0.29785e-01,0.20444e-01,0.16092e-01 /) - kao(:, 2,11,11) = (/ & - & 0.69271e-01,0.64175e-01,0.59782e-01,0.53281e-01,0.46486e-01, & - & 0.38949e-01,0.30645e-01,0.21725e-01,0.17857e-01 /) - kao(:, 3,11,11) = (/ & - & 0.69073e-01,0.64491e-01,0.59955e-01,0.53684e-01,0.46981e-01, & - & 0.39609e-01,0.31674e-01,0.23165e-01,0.20394e-01 /) - kao(:, 4,11,11) = (/ & - & 0.68904e-01,0.64793e-01,0.60179e-01,0.54162e-01,0.47530e-01, & - & 0.40495e-01,0.32809e-01,0.24930e-01,0.23016e-01 /) - kao(:, 5,11,11) = (/ & - & 0.68639e-01,0.65010e-01,0.60484e-01,0.54605e-01,0.48370e-01, & - & 0.41561e-01,0.34350e-01,0.26933e-01,0.26488e-01 /) - kao(:, 1,12,11) = (/ & - & 0.71529e-01,0.66044e-01,0.61072e-01,0.54140e-01,0.46654e-01, & - & 0.38794e-01,0.29996e-01,0.20236e-01,0.16124e-01 /) - kao(:, 2,12,11) = (/ & - & 0.71291e-01,0.66315e-01,0.61418e-01,0.54500e-01,0.47446e-01, & - & 0.39590e-01,0.30905e-01,0.21401e-01,0.17542e-01 /) - kao(:, 3,12,11) = (/ & - & 0.71222e-01,0.66826e-01,0.61770e-01,0.55219e-01,0.48148e-01, & - & 0.40334e-01,0.31908e-01,0.22727e-01,0.19804e-01 /) - kao(:, 4,12,11) = (/ & - & 0.71079e-01,0.67236e-01,0.62161e-01,0.55849e-01,0.48917e-01, & - & 0.41311e-01,0.33042e-01,0.24356e-01,0.21082e-01 /) - kao(:, 5,12,11) = (/ & - & 0.70901e-01,0.67518e-01,0.62549e-01,0.56439e-01,0.49900e-01, & - & 0.42406e-01,0.34548e-01,0.26106e-01,0.23666e-01 /) - kao(:, 1,13,11) = (/ & - & 0.73149e-01,0.67708e-01,0.62294e-01,0.54947e-01,0.47337e-01, & - & 0.39165e-01,0.30053e-01,0.20069e-01,0.15304e-01 /) - kao(:, 2,13,11) = (/ & - & 0.73122e-01,0.68287e-01,0.62803e-01,0.55664e-01,0.48241e-01, & - & 0.39986e-01,0.31044e-01,0.21133e-01,0.17384e-01 /) - kao(:, 3,13,11) = (/ & - & 0.73057e-01,0.68826e-01,0.63303e-01,0.56536e-01,0.49104e-01, & - & 0.40926e-01,0.32050e-01,0.22349e-01,0.18964e-01 /) - kao(:, 4,13,11) = (/ & - & 0.73037e-01,0.69286e-01,0.63846e-01,0.57252e-01,0.50018e-01, & - & 0.42025e-01,0.33217e-01,0.23850e-01,0.20572e-01 /) - kao(:, 5,13,11) = (/ & - & 0.73013e-01,0.69604e-01,0.64290e-01,0.57954e-01,0.51076e-01, & - & 0.43212e-01,0.34653e-01,0.25391e-01,0.23448e-01 /) - kao(:, 1, 1,12) = (/ & - & 0.43248e-01,0.41017e-01,0.40213e-01,0.39821e-01,0.45256e-01, & - & 0.55821e-01,0.66932e-01,0.78037e-01,0.88086e-01 /) - kao(:, 2, 1,12) = (/ & - & 0.42407e-01,0.40307e-01,0.40078e-01,0.40681e-01,0.47543e-01, & - & 0.59099e-01,0.70845e-01,0.82585e-01,0.93228e-01 /) - kao(:, 3, 1,12) = (/ & - & 0.41692e-01,0.39727e-01,0.39865e-01,0.41830e-01,0.50093e-01, & - & 0.62450e-01,0.74841e-01,0.87232e-01,0.98476e-01 /) - kao(:, 4, 1,12) = (/ & - & 0.41002e-01,0.39248e-01,0.39945e-01,0.42942e-01,0.52768e-01, & - & 0.65829e-01,0.78890e-01,0.91937e-01,0.10362e+00 /) - kao(:, 5, 1,12) = (/ & - & 0.40428e-01,0.39045e-01,0.40116e-01,0.44981e-01,0.56655e-01, & - & 0.70681e-01,0.84705e-01,0.98731e-01,0.11111e+00 /) - kao(:, 1, 2,12) = (/ & - & 0.47227e-01,0.44198e-01,0.42698e-01,0.42511e-01,0.46394e-01, & - & 0.55784e-01,0.66888e-01,0.77989e-01,0.88812e-01 /) - kao(:, 2, 2,12) = (/ & - & 0.46375e-01,0.43473e-01,0.42428e-01,0.43299e-01,0.48252e-01, & - & 0.59000e-01,0.70708e-01,0.82423e-01,0.93885e-01 /) - kao(:, 3, 2,12) = (/ & - & 0.45650e-01,0.42988e-01,0.42307e-01,0.44252e-01,0.50414e-01, & - & 0.62373e-01,0.74750e-01,0.87127e-01,0.99197e-01 /) - kao(:, 4, 2,12) = (/ & - & 0.44980e-01,0.42686e-01,0.42476e-01,0.45355e-01,0.53027e-01, & - & 0.66067e-01,0.79179e-01,0.92288e-01,0.10480e+00 /) - kao(:, 5, 2,12) = (/ & - & 0.44383e-01,0.42475e-01,0.42723e-01,0.47155e-01,0.57007e-01, & - & 0.71138e-01,0.85276e-01,0.99396e-01,0.11272e+00 /) - kao(:, 1, 3,12) = (/ & - & 0.51829e-01,0.48303e-01,0.45805e-01,0.45348e-01,0.47474e-01, & - & 0.53773e-01,0.64381e-01,0.75065e-01,0.85879e-01 /) - kao(:, 2, 3,12) = (/ & - & 0.50945e-01,0.47626e-01,0.45531e-01,0.46104e-01,0.48805e-01, & - & 0.57008e-01,0.68342e-01,0.79675e-01,0.91103e-01 /) - kao(:, 3, 3,12) = (/ & - & 0.50329e-01,0.47163e-01,0.45393e-01,0.46795e-01,0.50514e-01, & - & 0.60488e-01,0.72503e-01,0.84519e-01,0.96625e-01 /) - kao(:, 4, 3,12) = (/ & - & 0.49725e-01,0.46894e-01,0.45600e-01,0.47784e-01,0.52670e-01, & - & 0.64382e-01,0.77172e-01,0.89966e-01,0.10271e+00 /) - kao(:, 5, 3,12) = (/ & - & 0.49109e-01,0.46633e-01,0.45896e-01,0.49191e-01,0.56129e-01, & - & 0.69438e-01,0.83245e-01,0.97061e-01,0.11071e+00 /) - kao(:, 1, 4,12) = (/ & - & 0.57082e-01,0.53110e-01,0.49763e-01,0.48460e-01,0.48719e-01, & - & 0.51181e-01,0.59984e-01,0.69952e-01,0.80045e-01 /) - kao(:, 2, 4,12) = (/ & - & 0.56133e-01,0.52450e-01,0.49568e-01,0.49064e-01,0.49725e-01, & - & 0.54041e-01,0.64091e-01,0.74728e-01,0.85496e-01 /) - kao(:, 3, 4,12) = (/ & - & 0.55439e-01,0.51866e-01,0.49497e-01,0.49475e-01,0.51076e-01, & - & 0.57243e-01,0.68327e-01,0.79652e-01,0.91098e-01 /) - kao(:, 4, 4,12) = (/ & - & 0.54777e-01,0.51575e-01,0.49681e-01,0.50221e-01,0.52765e-01, & - & 0.61084e-01,0.73197e-01,0.85337e-01,0.97552e-01 /) - kao(:, 5, 4,12) = (/ & - & 0.54098e-01,0.51233e-01,0.49878e-01,0.51295e-01,0.55484e-01, & - & 0.66162e-01,0.79298e-01,0.92434e-01,0.10558e+00 /) - kao(:, 1, 5,12) = (/ & - & 0.62544e-01,0.58281e-01,0.54351e-01,0.52107e-01,0.50211e-01, & - & 0.49416e-01,0.54519e-01,0.63528e-01,0.72634e-01 /) - kao(:, 2, 5,12) = (/ & - & 0.61658e-01,0.57644e-01,0.54210e-01,0.52563e-01,0.50949e-01, & - & 0.51794e-01,0.58802e-01,0.68560e-01,0.78383e-01 /) - kao(:, 3, 5,12) = (/ & - & 0.60918e-01,0.57016e-01,0.54117e-01,0.52719e-01,0.52074e-01, & - & 0.54457e-01,0.63161e-01,0.73629e-01,0.84158e-01 /) - kao(:, 4, 5,12) = (/ & - & 0.60164e-01,0.56692e-01,0.54302e-01,0.53086e-01,0.53404e-01, & - & 0.57689e-01,0.68126e-01,0.79422e-01,0.90757e-01 /) - kao(:, 5, 5,12) = (/ & - & 0.59366e-01,0.56267e-01,0.54377e-01,0.53811e-01,0.55627e-01, & - & 0.62331e-01,0.74295e-01,0.86596e-01,0.98923e-01 /) - kao(:, 1, 6,12) = (/ & - & 0.68500e-01,0.63504e-01,0.59102e-01,0.56112e-01,0.52198e-01, & - & 0.48725e-01,0.49458e-01,0.56540e-01,0.64611e-01 /) - kao(:, 2, 6,12) = (/ & - & 0.67642e-01,0.62951e-01,0.59010e-01,0.56509e-01,0.52640e-01, & - & 0.50781e-01,0.53492e-01,0.61845e-01,0.70650e-01 /) - kao(:, 3, 6,12) = (/ & - & 0.66730e-01,0.62270e-01,0.58880e-01,0.56541e-01,0.53578e-01, & - & 0.52912e-01,0.57553e-01,0.66900e-01,0.76420e-01 /) - kao(:, 4, 6,12) = (/ & - & 0.65853e-01,0.61851e-01,0.59079e-01,0.56674e-01,0.54628e-01, & - & 0.55405e-01,0.62327e-01,0.72621e-01,0.82946e-01 /) - kao(:, 5, 6,12) = (/ & - & 0.64917e-01,0.61395e-01,0.59088e-01,0.57140e-01,0.56317e-01, & - & 0.59242e-01,0.68519e-01,0.79819e-01,0.91147e-01 /) - kao(:, 1, 7,12) = (/ & - & 0.74814e-01,0.69115e-01,0.63783e-01,0.59970e-01,0.54833e-01, & - & 0.49011e-01,0.46051e-01,0.49756e-01,0.56816e-01 /) - kao(:, 2, 7,12) = (/ & - & 0.73755e-01,0.68509e-01,0.63672e-01,0.60441e-01,0.55205e-01, & - & 0.50759e-01,0.49447e-01,0.55044e-01,0.62843e-01 /) - kao(:, 3, 7,12) = (/ & - & 0.72664e-01,0.67698e-01,0.63630e-01,0.60499e-01,0.55993e-01, & - & 0.52467e-01,0.52809e-01,0.59966e-01,0.68463e-01 /) - kao(:, 4, 7,12) = (/ & - & 0.71633e-01,0.67174e-01,0.63866e-01,0.60581e-01,0.56744e-01, & - & 0.54377e-01,0.56941e-01,0.65640e-01,0.74923e-01 /) - kao(:, 5, 7,12) = (/ & - & 0.70621e-01,0.66745e-01,0.63972e-01,0.60930e-01,0.57801e-01, & - & 0.57488e-01,0.62631e-01,0.72711e-01,0.82984e-01 /) - kao(:, 1, 8,12) = (/ & - & 0.81108e-01,0.74731e-01,0.68669e-01,0.63699e-01,0.57482e-01, & - & 0.50207e-01,0.44226e-01,0.43565e-01,0.49479e-01 /) - kao(:, 2, 8,12) = (/ & - & 0.79714e-01,0.73898e-01,0.68659e-01,0.64276e-01,0.57881e-01, & - & 0.51786e-01,0.46974e-01,0.48378e-01,0.55162e-01 /) - kao(:, 3, 8,12) = (/ & - & 0.78456e-01,0.73135e-01,0.68758e-01,0.64370e-01,0.58662e-01, & - & 0.53164e-01,0.49684e-01,0.53168e-01,0.60666e-01 /) - kao(:, 4, 8,12) = (/ & - & 0.77309e-01,0.72680e-01,0.69000e-01,0.64433e-01,0.59353e-01, & - & 0.54540e-01,0.53042e-01,0.58717e-01,0.66992e-01 /) - kao(:, 5, 8,12) = (/ & - & 0.76406e-01,0.72288e-01,0.69084e-01,0.64775e-01,0.60105e-01, & - & 0.56876e-01,0.57740e-01,0.65467e-01,0.74695e-01 /) - kao(:, 1, 9,12) = (/ & - & 0.87281e-01,0.80336e-01,0.73586e-01,0.67589e-01,0.60164e-01, & - & 0.51553e-01,0.43512e-01,0.38366e-01,0.42260e-01 /) - kao(:, 2, 9,12) = (/ & - & 0.85638e-01,0.79229e-01,0.73710e-01,0.68169e-01,0.60640e-01, & - & 0.53028e-01,0.45744e-01,0.42413e-01,0.47570e-01 /) - kao(:, 3, 9,12) = (/ & - & 0.84292e-01,0.78481e-01,0.73900e-01,0.68269e-01,0.61342e-01, & - & 0.54381e-01,0.47902e-01,0.46760e-01,0.52980e-01 /) - kao(:, 4, 9,12) = (/ & - & 0.83115e-01,0.77996e-01,0.74142e-01,0.68304e-01,0.62073e-01, & - & 0.55597e-01,0.50525e-01,0.51779e-01,0.58954e-01 /) - kao(:, 5, 9,12) = (/ & - & 0.82186e-01,0.77706e-01,0.74161e-01,0.68663e-01,0.62685e-01, & - & 0.57315e-01,0.54189e-01,0.58003e-01,0.66142e-01 /) - kao(:, 1,10,12) = (/ & - & 0.93285e-01,0.85813e-01,0.78575e-01,0.71552e-01,0.62937e-01, & - & 0.53130e-01,0.43544e-01,0.34852e-01,0.25971e-01 /) - kao(:, 2,10,12) = (/ & - & 0.91673e-01,0.84652e-01,0.78625e-01,0.72093e-01,0.63376e-01, & - & 0.54541e-01,0.45576e-01,0.38102e-01,0.28356e-01 /) - kao(:, 3,10,12) = (/ & - & 0.90273e-01,0.83828e-01,0.78840e-01,0.72190e-01,0.64026e-01, & - & 0.55889e-01,0.47404e-01,0.41695e-01,0.31456e-01 /) - kao(:, 4,10,12) = (/ & - & 0.88982e-01,0.83233e-01,0.79026e-01,0.72231e-01,0.64765e-01, & - & 0.57025e-01,0.49463e-01,0.46003e-01,0.35501e-01 /) - kao(:, 5,10,12) = (/ & - & 0.88015e-01,0.82954e-01,0.78987e-01,0.72605e-01,0.65378e-01, & - & 0.58432e-01,0.52293e-01,0.51371e-01,0.39951e-01 /) - kao(:, 1,11,12) = (/ & - & 0.98224e-01,0.90470e-01,0.83283e-01,0.75729e-01,0.65953e-01, & - & 0.55333e-01,0.44607e-01,0.33712e-01,0.29825e-01 /) - kao(:, 2,11,12) = (/ & - & 0.96868e-01,0.89565e-01,0.83537e-01,0.76001e-01,0.66302e-01, & - & 0.56711e-01,0.46387e-01,0.36339e-01,0.33228e-01 /) - kao(:, 3,11,12) = (/ & - & 0.95464e-01,0.88759e-01,0.83774e-01,0.75894e-01,0.67115e-01, & - & 0.57847e-01,0.48034e-01,0.39456e-01,0.36088e-01 /) - kao(:, 4,11,12) = (/ & - & 0.94340e-01,0.88366e-01,0.83721e-01,0.76044e-01,0.67766e-01, & - & 0.58947e-01,0.50010e-01,0.43247e-01,0.40125e-01 /) - kao(:, 5,11,12) = (/ & - & 0.93518e-01,0.88039e-01,0.83475e-01,0.76422e-01,0.68414e-01, & - & 0.60495e-01,0.52431e-01,0.48069e-01,0.44798e-01 /) - kao(:, 1,12,12) = (/ & - & 0.10275e+00,0.94729e-01,0.87688e-01,0.79394e-01,0.68734e-01, & - & 0.57476e-01,0.45697e-01,0.32943e-01,0.29614e-01 /) - kao(:, 2,12,12) = (/ & - & 0.10159e+00,0.94167e-01,0.88202e-01,0.79488e-01,0.69232e-01, & - & 0.58694e-01,0.47208e-01,0.35215e-01,0.33437e-01 /) - kao(:, 3,12,12) = (/ & - & 0.10046e+00,0.93671e-01,0.88347e-01,0.79409e-01,0.69985e-01, & - & 0.59703e-01,0.48739e-01,0.37920e-01,0.36670e-01 /) - kao(:, 4,12,12) = (/ & - & 0.99712e-01,0.93473e-01,0.88135e-01,0.79671e-01,0.70541e-01, & - & 0.60786e-01,0.50658e-01,0.41158e-01,0.41155e-01 /) - kao(:, 5,12,12) = (/ & - & 0.99052e-01,0.93236e-01,0.87897e-01,0.79933e-01,0.71310e-01, & - & 0.62364e-01,0.52850e-01,0.45390e-01,0.47055e-01 /) - kao(:, 1,13,12) = (/ & - & 0.10693e+00,0.98594e-01,0.91730e-01,0.82575e-01,0.71131e-01, & - & 0.59390e-01,0.46621e-01,0.32428e-01,0.26794e-01 /) - kao(:, 2,13,12) = (/ & - & 0.10593e+00,0.98329e-01,0.92368e-01,0.82651e-01,0.71827e-01, & - & 0.60538e-01,0.47868e-01,0.34468e-01,0.29114e-01 /) - kao(:, 3,13,12) = (/ & - & 0.10521e+00,0.98305e-01,0.92444e-01,0.82725e-01,0.72549e-01, & - & 0.61456e-01,0.49349e-01,0.36800e-01,0.32781e-01 /) - kao(:, 4,13,12) = (/ & - & 0.10471e+00,0.98393e-01,0.92240e-01,0.83082e-01,0.73117e-01, & - & 0.62504e-01,0.51152e-01,0.39616e-01,0.37780e-01 /) - kao(:, 5,13,12) = (/ & - & 0.10409e+00,0.98364e-01,0.92131e-01,0.83350e-01,0.73995e-01, & - & 0.64047e-01,0.53327e-01,0.43375e-01,0.42285e-01 /) - kao(:, 1, 1,13) = (/ & - & 0.52810e-01,0.49450e-01,0.49647e-01,0.57104e-01,0.73433e-01, & - & 0.91743e-01,0.11005e+00,0.12834e+00,0.14491e+00 /) - kao(:, 2, 1,13) = (/ & - & 0.51653e-01,0.48971e-01,0.50186e-01,0.59440e-01,0.77723e-01, & - & 0.97098e-01,0.11647e+00,0.13583e+00,0.15375e+00 /) - kao(:, 3, 1,13) = (/ & - & 0.50696e-01,0.48582e-01,0.50737e-01,0.61667e-01,0.81568e-01, & - & 0.10190e+00,0.12223e+00,0.14254e+00,0.16133e+00 /) - kao(:, 4, 1,13) = (/ & - & 0.49759e-01,0.48321e-01,0.51484e-01,0.64441e-01,0.85673e-01, & - & 0.10703e+00,0.12837e+00,0.14971e+00,0.16936e+00 /) - kao(:, 5, 1,13) = (/ & - & 0.48804e-01,0.48067e-01,0.52560e-01,0.67354e-01,0.89656e-01, & - & 0.11200e+00,0.13434e+00,0.15666e+00,0.17718e+00 /) - kao(:, 1, 2,13) = (/ & - & 0.57042e-01,0.54069e-01,0.53905e-01,0.58729e-01,0.73592e-01, & - & 0.91941e-01,0.11029e+00,0.12863e+00,0.14602e+00 /) - kao(:, 2, 2,13) = (/ & - & 0.55841e-01,0.53550e-01,0.54566e-01,0.60781e-01,0.78168e-01, & - & 0.97652e-01,0.11714e+00,0.13661e+00,0.15506e+00 /) - kao(:, 3, 2,13) = (/ & - & 0.54920e-01,0.52981e-01,0.54943e-01,0.62919e-01,0.82379e-01, & - & 0.10292e+00,0.12345e+00,0.14397e+00,0.16344e+00 /) - kao(:, 4, 2,13) = (/ & - & 0.54055e-01,0.52591e-01,0.55488e-01,0.65511e-01,0.86681e-01, & - & 0.10829e+00,0.12990e+00,0.15147e+00,0.17196e+00 /) - kao(:, 5, 2,13) = (/ & - & 0.53226e-01,0.52334e-01,0.56238e-01,0.68429e-01,0.90830e-01, & - & 0.11345e+00,0.13607e+00,0.15868e+00,0.17998e+00 /) - kao(:, 1, 3,13) = (/ & - & 0.62670e-01,0.59309e-01,0.58772e-01,0.61122e-01,0.72960e-01, & - & 0.91113e-01,0.10930e+00,0.12747e+00,0.14514e+00 /) - kao(:, 2, 3,13) = (/ & - & 0.61411e-01,0.58632e-01,0.59230e-01,0.62688e-01,0.77748e-01, & - & 0.97139e-01,0.11652e+00,0.13590e+00,0.15479e+00 /) - kao(:, 3, 3,13) = (/ & - & 0.60334e-01,0.57923e-01,0.59411e-01,0.64539e-01,0.82093e-01, & - & 0.10257e+00,0.12305e+00,0.14350e+00,0.16343e+00 /) - kao(:, 4, 3,13) = (/ & - & 0.59451e-01,0.57416e-01,0.59633e-01,0.66820e-01,0.86494e-01, & - & 0.10804e+00,0.12960e+00,0.15112e+00,0.17209e+00 /) - kao(:, 5, 3,13) = (/ & - & 0.58597e-01,0.57143e-01,0.60240e-01,0.69594e-01,0.91059e-01, & - & 0.11373e+00,0.13640e+00,0.15905e+00,0.18103e+00 /) - kao(:, 1, 4,13) = (/ & - & 0.69822e-01,0.65601e-01,0.63945e-01,0.64755e-01,0.73038e-01, & - & 0.90165e-01,0.10817e+00,0.12616e+00,0.14389e+00 /) - kao(:, 2, 4,13) = (/ & - & 0.68507e-01,0.64727e-01,0.64234e-01,0.66213e-01,0.77749e-01, & - & 0.96668e-01,0.11597e+00,0.13524e+00,0.15427e+00 /) - kao(:, 3, 4,13) = (/ & - & 0.67276e-01,0.63962e-01,0.64238e-01,0.67909e-01,0.82185e-01, & - & 0.10254e+00,0.12301e+00,0.14345e+00,0.16365e+00 /) - kao(:, 4, 4,13) = (/ & - & 0.66381e-01,0.63334e-01,0.64220e-01,0.69770e-01,0.86724e-01, & - & 0.10832e+00,0.12994e+00,0.15151e+00,0.17282e+00 /) - kao(:, 5, 4,13) = (/ & - & 0.65437e-01,0.62972e-01,0.64673e-01,0.72222e-01,0.91630e-01, & - & 0.11445e+00,0.13728e+00,0.16006e+00,0.18257e+00 /) - kao(:, 1, 5,13) = (/ & - & 0.78344e-01,0.73091e-01,0.69713e-01,0.69214e-01,0.74668e-01, & - & 0.88915e-01,0.10667e+00,0.12441e+00,0.14209e+00 /) - kao(:, 2, 5,13) = (/ & - & 0.76773e-01,0.71981e-01,0.69752e-01,0.70736e-01,0.78904e-01, & - & 0.95797e-01,0.11493e+00,0.13406e+00,0.15311e+00 /) - kao(:, 3, 5,13) = (/ & - & 0.75310e-01,0.71068e-01,0.69651e-01,0.72503e-01,0.83070e-01, & - & 0.10214e+00,0.12251e+00,0.14289e+00,0.16320e+00 /) - kao(:, 4, 5,13) = (/ & - & 0.74250e-01,0.70202e-01,0.69499e-01,0.74333e-01,0.87301e-01, & - & 0.10818e+00,0.12976e+00,0.15132e+00,0.17281e+00 /) - kao(:, 5, 5,13) = (/ & - & 0.73209e-01,0.69739e-01,0.69847e-01,0.76315e-01,0.91870e-01, & - & 0.11438e+00,0.13720e+00,0.16000e+00,0.18274e+00 /) - kao(:, 1, 6,13) = (/ & - & 0.87696e-01,0.81522e-01,0.76509e-01,0.74345e-01,0.77107e-01, & - & 0.86456e-01,0.10266e+00,0.11975e+00,0.13684e+00 /) - kao(:, 2, 6,13) = (/ & - & 0.85834e-01,0.80104e-01,0.76319e-01,0.75879e-01,0.80970e-01, & - & 0.93234e-01,0.11135e+00,0.12988e+00,0.14843e+00 /) - kao(:, 3, 6,13) = (/ & - & 0.84103e-01,0.79034e-01,0.76204e-01,0.77685e-01,0.84459e-01, & - & 0.99600e-01,0.11936e+00,0.13921e+00,0.15907e+00 /) - kao(:, 4, 6,13) = (/ & - & 0.82699e-01,0.78102e-01,0.75915e-01,0.79277e-01,0.87923e-01, & - & 0.10572e+00,0.12681e+00,0.14791e+00,0.16901e+00 /) - kao(:, 5, 6,13) = (/ & - & 0.81604e-01,0.77529e-01,0.76175e-01,0.80727e-01,0.91640e-01, & - & 0.11182e+00,0.13414e+00,0.15644e+00,0.17875e+00 /) - kao(:, 1, 7,13) = (/ & - & 0.97322e-01,0.90329e-01,0.84313e-01,0.80452e-01,0.80118e-01, & - & 0.84204e-01,0.96138e-01,0.11212e+00,0.12812e+00 /) - kao(:, 2, 7,13) = (/ & - & 0.95378e-01,0.88856e-01,0.83999e-01,0.81744e-01,0.83529e-01, & - & 0.90072e-01,0.10504e+00,0.12254e+00,0.14003e+00 /) - kao(:, 3, 7,13) = (/ & - & 0.93471e-01,0.87725e-01,0.83968e-01,0.83424e-01,0.86362e-01, & - & 0.95913e-01,0.11338e+00,0.13227e+00,0.15114e+00 /) - kao(:, 4, 7,13) = (/ & - & 0.91861e-01,0.86679e-01,0.83638e-01,0.84829e-01,0.89126e-01, & - & 0.10167e+00,0.12111e+00,0.14127e+00,0.16142e+00 /) - kao(:, 5, 7,13) = (/ & - & 0.90669e-01,0.86079e-01,0.83677e-01,0.85955e-01,0.92165e-01, & - & 0.10751e+00,0.12862e+00,0.15005e+00,0.17145e+00 /) - kao(:, 1, 8,13) = (/ & - & 0.10748e+00,0.99760e-01,0.92641e-01,0.87386e-01,0.83918e-01, & - & 0.82807e-01,0.88461e-01,0.10199e+00,0.11655e+00 /) - kao(:, 2, 8,13) = (/ & - & 0.10548e+00,0.98347e-01,0.92153e-01,0.88724e-01,0.86807e-01, & - & 0.87435e-01,0.96918e-01,0.11262e+00,0.12866e+00 /) - kao(:, 3, 8,13) = (/ & - & 0.10345e+00,0.96941e-01,0.92269e-01,0.90148e-01,0.89023e-01, & - & 0.92390e-01,0.10517e+00,0.12260e+00,0.14006e+00 /) - kao(:, 4, 8,13) = (/ & - & 0.10168e+00,0.95648e-01,0.92050e-01,0.91217e-01,0.91169e-01, & - & 0.97530e-01,0.11302e+00,0.13185e+00,0.15061e+00 /) - kao(:, 5, 8,13) = (/ & - & 0.10031e+00,0.94918e-01,0.92030e-01,0.91944e-01,0.93599e-01, & - & 0.10280e+00,0.12083e+00,0.14095e+00,0.16101e+00 /) - kao(:, 1, 9,13) = (/ & - & 0.11850e+00,0.10963e+00,0.10118e+00,0.94592e-01,0.88496e-01, & - & 0.82777e-01,0.81368e-01,0.90482e-01,0.10334e+00 /) - kao(:, 2, 9,13) = (/ & - & 0.11636e+00,0.10836e+00,0.10080e+00,0.96151e-01,0.90961e-01, & - & 0.86437e-01,0.88759e-01,0.10103e+00,0.11540e+00 /) - kao(:, 3, 9,13) = (/ & - & 0.11416e+00,0.10675e+00,0.10109e+00,0.97591e-01,0.92676e-01, & - & 0.90148e-01,0.96288e-01,0.11094e+00,0.12669e+00 /) - kao(:, 4, 9,13) = (/ & - & 0.11214e+00,0.10527e+00,0.10096e+00,0.98437e-01,0.94256e-01, & - & 0.94326e-01,0.10386e+00,0.12050e+00,0.13763e+00 /) - kao(:, 5, 9,13) = (/ & - & 0.11054e+00,0.10425e+00,0.10085e+00,0.98717e-01,0.96200e-01, & - & 0.98935e-01,0.11173e+00,0.13010e+00,0.14859e+00 /) - kao(:, 1,10,13) = (/ & - & 0.13016e+00,0.11986e+00,0.10995e+00,0.10196e+00,0.93774e-01, & - & 0.84360e-01,0.76878e-01,0.79680e-01,0.67359e-01 /) - kao(:, 2,10,13) = (/ & - & 0.12774e+00,0.11853e+00,0.10979e+00,0.10367e+00,0.96160e-01, & - & 0.87173e-01,0.82710e-01,0.89689e-01,0.82456e-01 /) - kao(:, 3,10,13) = (/ & - & 0.12531e+00,0.11685e+00,0.11022e+00,0.10509e+00,0.97450e-01, & - & 0.90061e-01,0.89222e-01,0.99588e-01,0.96338e-01 /) - kao(:, 4,10,13) = (/ & - & 0.12312e+00,0.11523e+00,0.11015e+00,0.10584e+00,0.98534e-01, & - & 0.93531e-01,0.96262e-01,0.10942e+00,0.11043e+00 /) - kao(:, 5,10,13) = (/ & - & 0.12128e+00,0.11400e+00,0.10998e+00,0.10588e+00,0.10008e+00, & - & 0.97359e-01,0.10364e+00,0.11932e+00,0.12582e+00 /) - kao(:, 1,11,13) = (/ & - & 0.14105e+00,0.12987e+00,0.11910e+00,0.11026e+00,0.10035e+00, & - & 0.88081e-01,0.76687e-01,0.74205e-01,0.50899e-01 /) - kao(:, 2,11,13) = (/ & - & 0.13825e+00,0.12810e+00,0.11908e+00,0.11198e+00,0.10215e+00, & - & 0.90197e-01,0.81650e-01,0.83605e-01,0.56975e-01 /) - kao(:, 3,11,13) = (/ & - & 0.13566e+00,0.12624e+00,0.11939e+00,0.11316e+00,0.10299e+00, & - & 0.92874e-01,0.87279e-01,0.93203e-01,0.64736e-01 /) - kao(:, 4,11,13) = (/ & - & 0.13334e+00,0.12460e+00,0.11935e+00,0.11337e+00,0.10395e+00, & - & 0.95956e-01,0.93410e-01,0.10293e+00,0.71284e-01 /) - kao(:, 5,11,13) = (/ & - & 0.13131e+00,0.12363e+00,0.11937e+00,0.11314e+00,0.10517e+00, & - & 0.98969e-01,0.10016e+00,0.11304e+00,0.78587e-01 /) - kao(:, 1,12,13) = (/ & - & 0.15212e+00,0.13991e+00,0.12851e+00,0.11872e+00,0.10663e+00, & - & 0.91867e-01,0.77350e-01,0.69757e-01,0.57657e-01 /) - kao(:, 2,12,13) = (/ & - & 0.14895e+00,0.13760e+00,0.12846e+00,0.12032e+00,0.10790e+00, & - & 0.93798e-01,0.81816e-01,0.78361e-01,0.63811e-01 /) - kao(:, 3,12,13) = (/ & - & 0.14609e+00,0.13558e+00,0.12854e+00,0.12100e+00,0.10856e+00, & - & 0.96260e-01,0.86684e-01,0.87192e-01,0.72200e-01 /) - kao(:, 4,12,13) = (/ & - & 0.14343e+00,0.13400e+00,0.12849e+00,0.12073e+00,0.10951e+00, & - & 0.98753e-01,0.91530e-01,0.96391e-01,0.79517e-01 /) - kao(:, 5,12,13) = (/ & - & 0.14120e+00,0.13303e+00,0.12833e+00,0.12041e+00,0.11038e+00, & - & 0.10129e+00,0.97562e-01,0.10658e+00,0.84371e-01 /) - kao(:, 1,13,13) = (/ & - & 0.16284e+00,0.14976e+00,0.13792e+00,0.12684e+00,0.11275e+00, & - & 0.95645e-01,0.78767e-01,0.66366e-01,0.59038e-01 /) - kao(:, 2,13,13) = (/ & - & 0.15947e+00,0.14721e+00,0.13779e+00,0.12800e+00,0.11359e+00, & - & 0.97597e-01,0.82782e-01,0.73753e-01,0.67374e-01 /) - kao(:, 3,13,13) = (/ & - & 0.15626e+00,0.14498e+00,0.13763e+00,0.12811e+00,0.11414e+00, & - & 0.99826e-01,0.86643e-01,0.81525e-01,0.75874e-01 /) - kao(:, 4,13,13) = (/ & - & 0.15335e+00,0.14330e+00,0.13746e+00,0.12758e+00,0.11501e+00, & - & 0.10172e+00,0.90750e-01,0.90246e-01,0.81744e-01 /) - kao(:, 5,13,13) = (/ & - & 0.15088e+00,0.14217e+00,0.13690e+00,0.12723e+00,0.11557e+00, & - & 0.10388e+00,0.96218e-01,0.10042e+00,0.88529e-01 /) - kao(:, 1, 1,14) = (/ & - & 0.62837e-01,0.60695e-01,0.77720e-01,0.11279e+00,0.15033e+00, & - & 0.18788e+00,0.22539e+00,0.26284e+00,0.29421e+00 /) - kao(:, 2, 1,14) = (/ & - & 0.61599e-01,0.60148e-01,0.79591e-01,0.11750e+00,0.15661e+00, & - & 0.19570e+00,0.23478e+00,0.27378e+00,0.30578e+00 /) - kao(:, 3, 1,14) = (/ & - & 0.60827e-01,0.59792e-01,0.82175e-01,0.12253e+00,0.16330e+00, & - & 0.20407e+00,0.24482e+00,0.28548e+00,0.31829e+00 /) - kao(:, 4, 1,14) = (/ & - & 0.60773e-01,0.59852e-01,0.85295e-01,0.12765e+00,0.17012e+00, & - & 0.21258e+00,0.25502e+00,0.29736e+00,0.33114e+00 /) - kao(:, 5, 1,14) = (/ & - & 0.60579e-01,0.60436e-01,0.88993e-01,0.13334e+00,0.17771e+00, & - & 0.22206e+00,0.26642e+00,0.31066e+00,0.34557e+00 /) - kao(:, 1, 2,14) = (/ & - & 0.70150e-01,0.67933e-01,0.82763e-01,0.11770e+00,0.15687e+00, & - & 0.19605e+00,0.23520e+00,0.27426e+00,0.30923e+00 /) - kao(:, 2, 2,14) = (/ & - & 0.68737e-01,0.67168e-01,0.84453e-01,0.12329e+00,0.16434e+00, & - & 0.20537e+00,0.24638e+00,0.28735e+00,0.32358e+00 /) - kao(:, 3, 2,14) = (/ & - & 0.67693e-01,0.66713e-01,0.87076e-01,0.12893e+00,0.17184e+00, & - & 0.21474e+00,0.25764e+00,0.30044e+00,0.33811e+00 /) - kao(:, 4, 2,14) = (/ & - & 0.67352e-01,0.66652e-01,0.90088e-01,0.13441e+00,0.17914e+00, & - & 0.22388e+00,0.26860e+00,0.31321e+00,0.35245e+00 /) - kao(:, 5, 2,14) = (/ & - & 0.66923e-01,0.67069e-01,0.93870e-01,0.14034e+00,0.18704e+00, & - & 0.23374e+00,0.28042e+00,0.32702e+00,0.36794e+00 /) - kao(:, 1, 3,14) = (/ & - & 0.79385e-01,0.76263e-01,0.87808e-01,0.12001e+00,0.15997e+00, & - & 0.19992e+00,0.23984e+00,0.27971e+00,0.31814e+00 /) - kao(:, 2, 3,14) = (/ & - & 0.77666e-01,0.75357e-01,0.89439e-01,0.12673e+00,0.16892e+00, & - & 0.21110e+00,0.25327e+00,0.29539e+00,0.33569e+00 /) - kao(:, 3, 3,14) = (/ & - & 0.76193e-01,0.74694e-01,0.92082e-01,0.13335e+00,0.17774e+00, & - & 0.22213e+00,0.26651e+00,0.31084e+00,0.35313e+00 /) - kao(:, 4, 3,14) = (/ & - & 0.75335e-01,0.74405e-01,0.95067e-01,0.13953e+00,0.18597e+00, & - & 0.23241e+00,0.27884e+00,0.32518e+00,0.36942e+00 /) - kao(:, 5, 3,14) = (/ & - & 0.74635e-01,0.74698e-01,0.98457e-01,0.14565e+00,0.19414e+00, & - & 0.24262e+00,0.29108e+00,0.33947e+00,0.38555e+00 /) - kao(:, 1, 4,14) = (/ & - & 0.89595e-01,0.85781e-01,0.93997e-01,0.12072e+00,0.16001e+00, & - & 0.19998e+00,0.23994e+00,0.27984e+00,0.31934e+00 /) - kao(:, 2, 4,14) = (/ & - & 0.87421e-01,0.84747e-01,0.95233e-01,0.12788e+00,0.17024e+00, & - & 0.21274e+00,0.25525e+00,0.29772e+00,0.33967e+00 /) - kao(:, 3, 4,14) = (/ & - & 0.85503e-01,0.83808e-01,0.97531e-01,0.13512e+00,0.18009e+00, & - & 0.22508e+00,0.27005e+00,0.31493e+00,0.35929e+00 /) - kao(:, 4, 4,14) = (/ & - & 0.84061e-01,0.83216e-01,0.10039e+00,0.14194e+00,0.18919e+00, & - & 0.23644e+00,0.28372e+00,0.33088e+00,0.37743e+00 /) - kao(:, 5, 4,14) = (/ & - & 0.83141e-01,0.83249e-01,0.10352e+00,0.14853e+00,0.19798e+00, & - & 0.24744e+00,0.29688e+00,0.34622e+00,0.39491e+00 /) - kao(:, 1, 5,14) = (/ & - & 0.10093e+00,0.96180e-01,0.10202e+00,0.12191e+00,0.15810e+00, & - & 0.19761e+00,0.23710e+00,0.27651e+00,0.31584e+00 /) - kao(:, 2, 5,14) = (/ & - & 0.98348e-01,0.95154e-01,0.10279e+00,0.12897e+00,0.16954e+00, & - & 0.21190e+00,0.25425e+00,0.29655e+00,0.33869e+00 /) - kao(:, 3, 5,14) = (/ & - & 0.96078e-01,0.94065e-01,0.10459e+00,0.13623e+00,0.18035e+00, & - & 0.22539e+00,0.27041e+00,0.31537e+00,0.36019e+00 /) - kao(:, 4, 5,14) = (/ & - & 0.94202e-01,0.93296e-01,0.10703e+00,0.14326e+00,0.19057e+00, & - & 0.23817e+00,0.28575e+00,0.33330e+00,0.38060e+00 /) - kao(:, 5, 5,14) = (/ & - & 0.93055e-01,0.92935e-01,0.10982e+00,0.15042e+00,0.20048e+00, & - & 0.25056e+00,0.30061e+00,0.35061e+00,0.40035e+00 /) - kao(:, 1, 6,14) = (/ & - & 0.11421e+00,0.10796e+00,0.11173e+00,0.12476e+00,0.15549e+00, & - & 0.19408e+00,0.23286e+00,0.27161e+00,0.31032e+00 /) - kao(:, 2, 6,14) = (/ & - & 0.11123e+00,0.10718e+00,0.11218e+00,0.13121e+00,0.16775e+00, & - & 0.20966e+00,0.25155e+00,0.29340e+00,0.33523e+00 /) - kao(:, 3, 6,14) = (/ & - & 0.10875e+00,0.10588e+00,0.11334e+00,0.13798e+00,0.17972e+00, & - & 0.22462e+00,0.26950e+00,0.31433e+00,0.35914e+00 /) - kao(:, 4, 6,14) = (/ & - & 0.10666e+00,0.10458e+00,0.11529e+00,0.14519e+00,0.19132e+00, & - & 0.23911e+00,0.28688e+00,0.33463e+00,0.38232e+00 /) - kao(:, 5, 6,14) = (/ & - & 0.10502e+00,0.10381e+00,0.11770e+00,0.15287e+00,0.20267e+00, & - & 0.25329e+00,0.30392e+00,0.35446e+00,0.40496e+00 /) - kao(:, 1, 7,14) = (/ & - & 0.12988e+00,0.12138e+00,0.12291e+00,0.12930e+00,0.15315e+00, & - & 0.18907e+00,0.22686e+00,0.26460e+00,0.30239e+00 /) - kao(:, 2, 7,14) = (/ & - & 0.12649e+00,0.12054e+00,0.12314e+00,0.13530e+00,0.16601e+00, & - & 0.20667e+00,0.24798e+00,0.28925e+00,0.33056e+00 /) - kao(:, 3, 7,14) = (/ & - & 0.12370e+00,0.11924e+00,0.12400e+00,0.14174e+00,0.17907e+00, & - & 0.22369e+00,0.26838e+00,0.31304e+00,0.35775e+00 /) - kao(:, 4, 7,14) = (/ & - & 0.12121e+00,0.11770e+00,0.12551e+00,0.14889e+00,0.19207e+00, & - & 0.24005e+00,0.28802e+00,0.33592e+00,0.38391e+00 /) - kao(:, 5, 7,14) = (/ & - & 0.11892e+00,0.11635e+00,0.12739e+00,0.15666e+00,0.20470e+00, & - & 0.25583e+00,0.30694e+00,0.35802e+00,0.40917e+00 /) - kao(:, 1, 8,14) = (/ & - & 0.14795e+00,0.13669e+00,0.13564e+00,0.13646e+00,0.15231e+00, & - & 0.18310e+00,0.21966e+00,0.25622e+00,0.29284e+00 /) - kao(:, 2, 8,14) = (/ & - & 0.14430e+00,0.13540e+00,0.13550e+00,0.14118e+00,0.16490e+00, & - & 0.20238e+00,0.24284e+00,0.28324e+00,0.32374e+00 /) - kao(:, 3, 8,14) = (/ & - & 0.14109e+00,0.13403e+00,0.13585e+00,0.14713e+00,0.17836e+00, & - & 0.22126e+00,0.26548e+00,0.30963e+00,0.35392e+00 /) - kao(:, 4, 8,14) = (/ & - & 0.13807e+00,0.13250e+00,0.13707e+00,0.15422e+00,0.19232e+00, & - & 0.23967e+00,0.28757e+00,0.33540e+00,0.38338e+00 /) - kao(:, 5, 8,14) = (/ & - & 0.13514e+00,0.13080e+00,0.13878e+00,0.16197e+00,0.20594e+00, & - & 0.25719e+00,0.30860e+00,0.35994e+00,0.41142e+00 /) - kao(:, 1, 9,14) = (/ & - & 0.16812e+00,0.15406e+00,0.15051e+00,0.14632e+00,0.15371e+00, & - & 0.17730e+00,0.21108e+00,0.24622e+00,0.28143e+00 /) - kao(:, 2, 9,14) = (/ & - & 0.16420e+00,0.15230e+00,0.14950e+00,0.14998e+00,0.16549e+00, & - & 0.19706e+00,0.23609e+00,0.27539e+00,0.31477e+00 /) - kao(:, 3, 9,14) = (/ & - & 0.16053e+00,0.15077e+00,0.14903e+00,0.15488e+00,0.17883e+00, & - & 0.21740e+00,0.26082e+00,0.30423e+00,0.34775e+00 /) - kao(:, 4, 9,14) = (/ & - & 0.15694e+00,0.14891e+00,0.14991e+00,0.16140e+00,0.19301e+00, & - & 0.23753e+00,0.28500e+00,0.33244e+00,0.37999e+00 /) - kao(:, 5, 9,14) = (/ & - & 0.15342e+00,0.14670e+00,0.15145e+00,0.16838e+00,0.20634e+00, & - & 0.25567e+00,0.30677e+00,0.35784e+00,0.40903e+00 /) - kao(:, 1,10,14) = (/ & - & 0.18962e+00,0.17319e+00,0.16709e+00,0.15817e+00,0.15908e+00, & - & 0.17425e+00,0.20287e+00,0.23665e+00,0.27049e+00 /) - kao(:, 2,10,14) = (/ & - & 0.18536e+00,0.17110e+00,0.16526e+00,0.16124e+00,0.16946e+00, & - & 0.19394e+00,0.22959e+00,0.26781e+00,0.30611e+00 /) - kao(:, 3,10,14) = (/ & - & 0.18117e+00,0.16910e+00,0.16400e+00,0.16579e+00,0.18236e+00, & - & 0.21466e+00,0.25610e+00,0.29874e+00,0.34146e+00 /) - kao(:, 4,10,14) = (/ & - & 0.17697e+00,0.16677e+00,0.16446e+00,0.17161e+00,0.19589e+00, & - & 0.23479e+00,0.28114e+00,0.32796e+00,0.37484e+00 /) - kao(:, 5,10,14) = (/ & - & 0.17281e+00,0.16399e+00,0.16565e+00,0.17716e+00,0.20808e+00, & - & 0.25277e+00,0.30323e+00,0.35372e+00,0.40429e+00 /) - kao(:, 1,11,14) = (/ & - & 0.21055e+00,0.19254e+00,0.18359e+00,0.17274e+00,0.17137e+00, & - & 0.18167e+00,0.20669e+00,0.24044e+00,0.24447e+00 /) - kao(:, 2,11,14) = (/ & - & 0.20570e+00,0.19011e+00,0.18168e+00,0.17577e+00,0.18167e+00, & - & 0.20144e+00,0.23412e+00,0.27305e+00,0.28987e+00 /) - kao(:, 3,11,14) = (/ & - & 0.20088e+00,0.18755e+00,0.18057e+00,0.18058e+00,0.19347e+00, & - & 0.22124e+00,0.26062e+00,0.30406e+00,0.33203e+00 /) - kao(:, 4,11,14) = (/ & - & 0.19608e+00,0.18439e+00,0.18082e+00,0.18569e+00,0.20488e+00, & - & 0.23927e+00,0.28460e+00,0.33201e+00,0.37191e+00 /) - kao(:, 5,11,14) = (/ & - & 0.19134e+00,0.18083e+00,0.18137e+00,0.19023e+00,0.21563e+00, & - & 0.25670e+00,0.30697e+00,0.35809e+00,0.40924e+00 /) - kao(:, 1,12,14) = (/ & - & 0.23222e+00,0.21282e+00,0.20059e+00,0.18856e+00,0.18455e+00, & - & 0.18954e+00,0.20921e+00,0.24116e+00,0.20678e+00 /) - kao(:, 2,12,14) = (/ & - & 0.22666e+00,0.20982e+00,0.19853e+00,0.19166e+00,0.19460e+00, & - & 0.20805e+00,0.23602e+00,0.27405e+00,0.24947e+00 /) - kao(:, 3,12,14) = (/ & - & 0.22121e+00,0.20649e+00,0.19756e+00,0.19621e+00,0.20452e+00, & - & 0.22597e+00,0.26146e+00,0.30478e+00,0.28725e+00 /) - kao(:, 4,12,14) = (/ & - & 0.21578e+00,0.20240e+00,0.19746e+00,0.20035e+00,0.21392e+00, & - & 0.24302e+00,0.28559e+00,0.33317e+00,0.32415e+00 /) - kao(:, 5,12,14) = (/ & - & 0.21026e+00,0.19816e+00,0.19729e+00,0.20402e+00,0.22339e+00, & - & 0.25983e+00,0.30840e+00,0.35980e+00,0.36272e+00 /) - kao(:, 1,13,14) = (/ & - & 0.25447e+00,0.23356e+00,0.21785e+00,0.20504e+00,0.19797e+00, & - & 0.19705e+00,0.20967e+00,0.23794e+00,0.19657e+00 /) - kao(:, 2,13,14) = (/ & - & 0.24820e+00,0.22981e+00,0.21561e+00,0.20828e+00,0.20711e+00, & - & 0.21347e+00,0.23520e+00,0.27088e+00,0.23547e+00 /) - kao(:, 3,13,14) = (/ & - & 0.24206e+00,0.22556e+00,0.21467e+00,0.21216e+00,0.21525e+00, & - & 0.22938e+00,0.25994e+00,0.30180e+00,0.27108e+00 /) - kao(:, 4,13,14) = (/ & - & 0.23572e+00,0.22056e+00,0.21408e+00,0.21517e+00,0.22293e+00, & - & 0.24576e+00,0.28399e+00,0.33091e+00,0.30909e+00 /) - kao(:, 5,13,14) = (/ & - & 0.22932e+00,0.21557e+00,0.21287e+00,0.21778e+00,0.23130e+00, & - & 0.26208e+00,0.30701e+00,0.35815e+00,0.34602e+00 /) - kao(:, 1, 1,15) = (/ & - & 0.79223e-01,0.75104e-01,0.13846e+00,0.20766e+00,0.27685e+00, & - & 0.34601e+00,0.41512e+00,0.48397e+00,0.52564e+00 /) - kao(:, 2, 1,15) = (/ & - & 0.76682e-01,0.76450e-01,0.14571e+00,0.21854e+00,0.29137e+00, & - & 0.36417e+00,0.43689e+00,0.50929e+00,0.55383e+00 /) - kao(:, 3, 1,15) = (/ & - & 0.74345e-01,0.78213e-01,0.15207e+00,0.22808e+00,0.30407e+00, & - & 0.38004e+00,0.45593e+00,0.53155e+00,0.57851e+00 /) - kao(:, 4, 1,15) = (/ & - & 0.72607e-01,0.80130e-01,0.15758e+00,0.23638e+00,0.31513e+00, & - & 0.39385e+00,0.47252e+00,0.55092e+00,0.60005e+00 /) - kao(:, 5, 1,15) = (/ & - & 0.72847e-01,0.82433e-01,0.16249e+00,0.24371e+00,0.32491e+00, & - & 0.40606e+00,0.48713e+00,0.56790e+00,0.61880e+00 /) - kao(:, 1, 2,15) = (/ & - & 0.89010e-01,0.84748e-01,0.15528e+00,0.23291e+00,0.31052e+00, & - & 0.38812e+00,0.46559e+00,0.54282e+00,0.60189e+00 /) - kao(:, 2, 2,15) = (/ & - & 0.86286e-01,0.86390e-01,0.16350e+00,0.24523e+00,0.32694e+00, & - & 0.40865e+00,0.49029e+00,0.57166e+00,0.63436e+00 /) - kao(:, 3, 2,15) = (/ & - & 0.83865e-01,0.88469e-01,0.17076e+00,0.25611e+00,0.34145e+00, & - & 0.42675e+00,0.51202e+00,0.59693e+00,0.66276e+00 /) - kao(:, 4, 2,15) = (/ & - & 0.81971e-01,0.90581e-01,0.17733e+00,0.26595e+00,0.35459e+00, & - & 0.44319e+00,0.53165e+00,0.61981e+00,0.68802e+00 /) - kao(:, 5, 2,15) = (/ & - & 0.81826e-01,0.93085e-01,0.18319e+00,0.27476e+00,0.36629e+00, & - & 0.45781e+00,0.54921e+00,0.64033e+00,0.71080e+00 /) - kao(:, 1, 3,15) = (/ & - & 0.10078e+00,0.96469e-01,0.17126e+00,0.25687e+00,0.34247e+00, & - & 0.42804e+00,0.51357e+00,0.59868e+00,0.67473e+00 /) - kao(:, 2, 3,15) = (/ & - & 0.97698e-01,0.98193e-01,0.18058e+00,0.27084e+00,0.36108e+00, & - & 0.45128e+00,0.54134e+00,0.63128e+00,0.71182e+00 /) - kao(:, 3, 3,15) = (/ & - & 0.95186e-01,0.10027e+00,0.18871e+00,0.28303e+00,0.37733e+00, & - & 0.47160e+00,0.56577e+00,0.65972e+00,0.74408e+00 /) - kao(:, 4, 3,15) = (/ & - & 0.93223e-01,0.10231e+00,0.19621e+00,0.29427e+00,0.39234e+00, & - & 0.49035e+00,0.58829e+00,0.68586e+00,0.77383e+00 /) - kao(:, 5, 3,15) = (/ & - & 0.93003e-01,0.10431e+00,0.20302e+00,0.30448e+00,0.40592e+00, & - & 0.50734e+00,0.60870e+00,0.70970e+00,0.80084e+00 /) - kao(:, 1, 4,15) = (/ & - & 0.11556e+00,0.11007e+00,0.18689e+00,0.28032e+00,0.37373e+00, & - & 0.46710e+00,0.56044e+00,0.65346e+00,0.74264e+00 /) - kao(:, 2, 4,15) = (/ & - & 0.11235e+00,0.11167e+00,0.19754e+00,0.29630e+00,0.39502e+00, & - & 0.49371e+00,0.59235e+00,0.69064e+00,0.78516e+00 /) - kao(:, 3, 4,15) = (/ & - & 0.10972e+00,0.11355e+00,0.20696e+00,0.31040e+00,0.41383e+00, & - & 0.51721e+00,0.62053e+00,0.72352e+00,0.82248e+00 /) - kao(:, 4, 4,15) = (/ & - & 0.10741e+00,0.11554e+00,0.21557e+00,0.32331e+00,0.43105e+00, & - & 0.53874e+00,0.64632e+00,0.75359e+00,0.85679e+00 /) - kao(:, 5, 4,15) = (/ & - & 0.10619e+00,0.11745e+00,0.22327e+00,0.33487e+00,0.44646e+00, & - & 0.55799e+00,0.66944e+00,0.78056e+00,0.88741e+00 /) - kao(:, 1, 5,15) = (/ & - & 0.13422e+00,0.12619e+00,0.20125e+00,0.30186e+00,0.40245e+00, & - & 0.50302e+00,0.60348e+00,0.70372e+00,0.80253e+00 /) - kao(:, 2, 5,15) = (/ & - & 0.13052e+00,0.12743e+00,0.21345e+00,0.32016e+00,0.42685e+00, & - & 0.53351e+00,0.64011e+00,0.74634e+00,0.85136e+00 /) - kao(:, 3, 5,15) = (/ & - & 0.12741e+00,0.12876e+00,0.22450e+00,0.33672e+00,0.44894e+00, & - & 0.56113e+00,0.67322e+00,0.78494e+00,0.89542e+00 /) - kao(:, 4, 5,15) = (/ & - & 0.12456e+00,0.13045e+00,0.23454e+00,0.35177e+00,0.46901e+00, & - & 0.58622e+00,0.70332e+00,0.82004e+00,0.93535e+00 /) - kao(:, 5, 5,15) = (/ & - & 0.12240e+00,0.13234e+00,0.24346e+00,0.36515e+00,0.48682e+00, & - & 0.60842e+00,0.72992e+00,0.85105e+00,0.97074e+00 /) - kao(:, 1, 6,15) = (/ & - & 0.15641e+00,0.14549e+00,0.21406e+00,0.31903e+00,0.42534e+00, & - & 0.53165e+00,0.63788e+00,0.74385e+00,0.84964e+00 /) - kao(:, 2, 6,15) = (/ & - & 0.15207e+00,0.14574e+00,0.22708e+00,0.34022e+00,0.45360e+00, & - & 0.56697e+00,0.68027e+00,0.79322e+00,0.90603e+00 /) - kao(:, 3, 6,15) = (/ & - & 0.14825e+00,0.14665e+00,0.23979e+00,0.35965e+00,0.47950e+00, & - & 0.59932e+00,0.71907e+00,0.83857e+00,0.95773e+00 /) - kao(:, 4, 6,15) = (/ & - & 0.14482e+00,0.14790e+00,0.25144e+00,0.37711e+00,0.50278e+00, & - & 0.62841e+00,0.75400e+00,0.87926e+00,0.10043e+01 /) - kao(:, 5, 6,15) = (/ & - & 0.14196e+00,0.14929e+00,0.26158e+00,0.39235e+00,0.52312e+00, & - & 0.65390e+00,0.78460e+00,0.91489e+00,0.10450e+01 /) - kao(:, 1, 7,15) = (/ & - & 0.18245e+00,0.16813e+00,0.22831e+00,0.33360e+00,0.44476e+00, & - & 0.55591e+00,0.66702e+00,0.77783e+00,0.88903e+00 /) - kao(:, 2, 7,15) = (/ & - & 0.17706e+00,0.16763e+00,0.24144e+00,0.35719e+00,0.47625e+00, & - & 0.59524e+00,0.71422e+00,0.83295e+00,0.95194e+00 /) - kao(:, 3, 7,15) = (/ & - & 0.17236e+00,0.16756e+00,0.25360e+00,0.37892e+00,0.50520e+00, & - & 0.63143e+00,0.75766e+00,0.88351e+00,0.10099e+01 /) - kao(:, 4, 7,15) = (/ & - & 0.16823e+00,0.16816e+00,0.26586e+00,0.39858e+00,0.53141e+00, & - & 0.66420e+00,0.79692e+00,0.92941e+00,0.10623e+01 /) - kao(:, 5, 7,15) = (/ & - & 0.16468e+00,0.16894e+00,0.27725e+00,0.41585e+00,0.55445e+00, & - & 0.69298e+00,0.83146e+00,0.96971e+00,0.11082e+01 /) - kao(:, 1, 8,15) = (/ & - & 0.21221e+00,0.19366e+00,0.24501e+00,0.34518e+00,0.46022e+00, & - & 0.57522e+00,0.69013e+00,0.80500e+00,0.92024e+00 /) - kao(:, 2, 8,15) = (/ & - & 0.20558e+00,0.19344e+00,0.25798e+00,0.37195e+00,0.49597e+00, & - & 0.61989e+00,0.74379e+00,0.86737e+00,0.99166e+00 /) - kao(:, 3, 8,15) = (/ & - & 0.19977e+00,0.19260e+00,0.26963e+00,0.39624e+00,0.52829e+00, & - & 0.66032e+00,0.79227e+00,0.92396e+00,0.10564e+01 /) - kao(:, 4, 8,15) = (/ & - & 0.19471e+00,0.19196e+00,0.28135e+00,0.41773e+00,0.55693e+00, & - & 0.69614e+00,0.83525e+00,0.97412e+00,0.11137e+01 /) - kao(:, 5, 8,15) = (/ & - & 0.19023e+00,0.19149e+00,0.29229e+00,0.43683e+00,0.58243e+00, & - & 0.72800e+00,0.87352e+00,0.10186e+01,0.11647e+01 /) - kao(:, 1, 9,15) = (/ & - & 0.24675e+00,0.22274e+00,0.26456e+00,0.35496e+00,0.47007e+00, & - & 0.58755e+00,0.70496e+00,0.82216e+00,0.94015e+00 /) - kao(:, 2, 9,15) = (/ & - & 0.23844e+00,0.22223e+00,0.27692e+00,0.38304e+00,0.51028e+00, & - & 0.63780e+00,0.76534e+00,0.89259e+00,0.10206e+01 /) - kao(:, 3, 9,15) = (/ & - & 0.23115e+00,0.22076e+00,0.28808e+00,0.40973e+00,0.54629e+00, & - & 0.68281e+00,0.81930e+00,0.95554e+00,0.10926e+01 /) - kao(:, 4, 9,15) = (/ & - & 0.22487e+00,0.21935e+00,0.29872e+00,0.43339e+00,0.57783e+00, & - & 0.72230e+00,0.86661e+00,0.10108e+01,0.11557e+01 /) - kao(:, 5, 9,15) = (/ & - & 0.21911e+00,0.21807e+00,0.30914e+00,0.45602e+00,0.60799e+00, & - & 0.75991e+00,0.91189e+00,0.10634e+01,0.12161e+01 /) - kao(:, 1,10,15) = (/ & - & 0.28580e+00,0.25610e+00,0.28839e+00,0.36810e+00,0.47645e+00, & - & 0.59554e+00,0.71455e+00,0.83348e+00,0.95290e+00 /) - kao(:, 2,10,15) = (/ & - & 0.27554e+00,0.25438e+00,0.29985e+00,0.39603e+00,0.52141e+00, & - & 0.65175e+00,0.78205e+00,0.91212e+00,0.10429e+01 /) - kao(:, 3,10,15) = (/ & - & 0.26639e+00,0.25230e+00,0.31000e+00,0.42263e+00,0.56074e+00, & - & 0.70092e+00,0.84101e+00,0.98094e+00,0.11215e+01 /) - kao(:, 4,10,15) = (/ & - & 0.25840e+00,0.24961e+00,0.31933e+00,0.44762e+00,0.59663e+00, & - & 0.74572e+00,0.89477e+00,0.10436e+01,0.11932e+01 /) - kao(:, 5,10,15) = (/ & - & 0.25110e+00,0.24738e+00,0.32882e+00,0.47409e+00,0.63208e+00, & - & 0.79011e+00,0.94801e+00,0.11055e+01,0.12642e+01 /) - kao(:, 1,11,15) = (/ & - & 0.32402e+00,0.29231e+00,0.32114e+00,0.39449e+00,0.49965e+00, & - & 0.62359e+00,0.74830e+00,0.87279e+00,0.99780e+00 /) - kao(:, 2,11,15) = (/ & - & 0.31203e+00,0.28940e+00,0.33009e+00,0.42179e+00,0.54573e+00, & - & 0.68214e+00,0.81856e+00,0.95481e+00,0.10916e+01 /) - kao(:, 3,11,15) = (/ & - & 0.30125e+00,0.28556e+00,0.33820e+00,0.44749e+00,0.58870e+00, & - & 0.73583e+00,0.88295e+00,0.10298e+01,0.11773e+01 /) - kao(:, 4,11,15) = (/ & - & 0.29153e+00,0.28159e+00,0.34632e+00,0.47427e+00,0.63035e+00, & - & 0.78788e+00,0.94537e+00,0.11027e+01,0.12607e+01 /) - kao(:, 5,11,15) = (/ & - & 0.28247e+00,0.27799e+00,0.35496e+00,0.50259e+00,0.66996e+00, & - & 0.83740e+00,0.10047e+01,0.11720e+01,0.13400e+01 /) - kao(:, 1,12,15) = (/ & - & 0.36545e+00,0.33140e+00,0.35636e+00,0.42085e+00,0.52250e+00, & - & 0.64898e+00,0.77872e+00,0.90834e+00,0.10384e+01 /) - kao(:, 2,12,15) = (/ & - & 0.35131e+00,0.32685e+00,0.36231e+00,0.44658e+00,0.56903e+00, & - & 0.71087e+00,0.85304e+00,0.99503e+00,0.11374e+01 /) - kao(:, 3,12,15) = (/ & - & 0.33841e+00,0.32098e+00,0.36825e+00,0.47208e+00,0.61613e+00, & - & 0.77016e+00,0.92410e+00,0.10779e+01,0.12323e+01 /) - kao(:, 4,12,15) = (/ & - & 0.32642e+00,0.31543e+00,0.37504e+00,0.50058e+00,0.66195e+00, & - & 0.82736e+00,0.99279e+00,0.11580e+01,0.13239e+01 /) - kao(:, 5,12,15) = (/ & - & 0.31541e+00,0.31006e+00,0.38358e+00,0.53015e+00,0.70512e+00, & - & 0.88131e+00,0.10574e+01,0.12335e+01,0.14101e+01 /) - kao(:, 1,13,15) = (/ & - & 0.40964e+00,0.37314e+00,0.39372e+00,0.44813e+00,0.54521e+00, & - & 0.67332e+00,0.80793e+00,0.94247e+00,0.10773e+01 /) - kao(:, 2,13,15) = (/ & - & 0.39277e+00,0.36624e+00,0.39629e+00,0.47194e+00,0.59295e+00, & - & 0.73949e+00,0.88734e+00,0.10350e+01,0.11832e+01 /) - kao(:, 3,13,15) = (/ & - & 0.37714e+00,0.35816e+00,0.39962e+00,0.49769e+00,0.64296e+00, & - & 0.80367e+00,0.96435e+00,0.11249e+01,0.12860e+01 /) - kao(:, 4,13,15) = (/ & - & 0.36268e+00,0.35049e+00,0.40459e+00,0.52725e+00,0.69174e+00, & - & 0.86463e+00,0.10374e+01,0.12101e+01,0.13834e+01 /) - kao(:, 5,13,15) = (/ & - & 0.34948e+00,0.34295e+00,0.41358e+00,0.55736e+00,0.73767e+00, & - & 0.92205e+00,0.11064e+01,0.12905e+01,0.14753e+01 /) - kao(:, 1, 1,16) = (/ & - & 0.90320e-01,0.86361e-01,0.17271e+00,0.25905e+00,0.34536e+00, & - & 0.43163e+00,0.51777e+00,0.60344e+00,0.64541e+00 /) - kao(:, 2, 1,16) = (/ & - & 0.88026e-01,0.92415e-01,0.18482e+00,0.27721e+00,0.36957e+00, & - & 0.46188e+00,0.55406e+00,0.64572e+00,0.69076e+00 /) - kao(:, 3, 1,16) = (/ & - & 0.85829e-01,0.97954e-01,0.19590e+00,0.29382e+00,0.39172e+00, & - & 0.48957e+00,0.58728e+00,0.68449e+00,0.73223e+00 /) - kao(:, 4, 1,16) = (/ & - & 0.83674e-01,0.10298e+00,0.20595e+00,0.30890e+00,0.41183e+00, & - & 0.51469e+00,0.61741e+00,0.71956e+00,0.77014e+00 /) - kao(:, 5, 1,16) = (/ & - & 0.84304e-01,0.10756e+00,0.21511e+00,0.32264e+00,0.43014e+00, & - & 0.53758e+00,0.64487e+00,0.75164e+00,0.80439e+00 /) - kao(:, 1, 2,16) = (/ & - & 0.99611e-01,0.10121e+00,0.20241e+00,0.30359e+00,0.40479e+00, & - & 0.50590e+00,0.60686e+00,0.70732e+00,0.77453e+00 /) - kao(:, 2, 2,16) = (/ & - & 0.97224e-01,0.10870e+00,0.21739e+00,0.32607e+00,0.43471e+00, & - & 0.54336e+00,0.65181e+00,0.75967e+00,0.83199e+00 /) - kao(:, 3, 2,16) = (/ & - & 0.94894e-01,0.11558e+00,0.23114e+00,0.34669e+00,0.46220e+00, & - & 0.57772e+00,0.69302e+00,0.80771e+00,0.88476e+00 /) - kao(:, 4, 2,16) = (/ & - & 0.92656e-01,0.12184e+00,0.24366e+00,0.36546e+00,0.48723e+00, & - & 0.60893e+00,0.73046e+00,0.85132e+00,0.93269e+00 /) - kao(:, 5, 2,16) = (/ & - & 0.93593e-01,0.12749e+00,0.25497e+00,0.38243e+00,0.50985e+00, & - & 0.63721e+00,0.76438e+00,0.89083e+00,0.97622e+00 /) - kao(:, 1, 3,16) = (/ & - & 0.11521e+00,0.11614e+00,0.23226e+00,0.34836e+00,0.46443e+00, & - & 0.58044e+00,0.69629e+00,0.81149e+00,0.90951e+00 /) - kao(:, 2, 3,16) = (/ & - & 0.11222e+00,0.12555e+00,0.25108e+00,0.37659e+00,0.50206e+00, & - & 0.62747e+00,0.75258e+00,0.87709e+00,0.98316e+00 /) - kao(:, 3, 3,16) = (/ & - & 0.10948e+00,0.13410e+00,0.26819e+00,0.40226e+00,0.53629e+00, & - & 0.67035e+00,0.80421e+00,0.93726e+00,0.10505e+01 /) - kao(:, 4, 3,16) = (/ & - & 0.10697e+00,0.14195e+00,0.28389e+00,0.42580e+00,0.56768e+00, & - & 0.70947e+00,0.85107e+00,0.99187e+00,0.11120e+01 /) - kao(:, 5, 3,16) = (/ & - & 0.10462e+00,0.14901e+00,0.29800e+00,0.44697e+00,0.59590e+00, & - & 0.74474e+00,0.89338e+00,0.10415e+01,0.11678e+01 /) - kao(:, 1, 4,16) = (/ & - & 0.13825e+00,0.13238e+00,0.26314e+00,0.39468e+00,0.52618e+00, & - & 0.65761e+00,0.78893e+00,0.91946e+00,0.10423e+01 /) - kao(:, 2, 4,16) = (/ & - & 0.13437e+00,0.14320e+00,0.28638e+00,0.42954e+00,0.57266e+00, & - & 0.71574e+00,0.85868e+00,0.10008e+01,0.11347e+01 /) - kao(:, 3, 4,16) = (/ & - & 0.13067e+00,0.15392e+00,0.30782e+00,0.46170e+00,0.61554e+00, & - & 0.76929e+00,0.92283e+00,0.10757e+01,0.12195e+01 /) - kao(:, 4, 4,16) = (/ & - & 0.12733e+00,0.16364e+00,0.32725e+00,0.49085e+00,0.65439e+00, & - & 0.81785e+00,0.98125e+00,0.11437e+01,0.12968e+01 /) - kao(:, 5, 4,16) = (/ & - & 0.12429e+00,0.17242e+00,0.34483e+00,0.51721e+00,0.68954e+00, & - & 0.86178e+00,0.10339e+01,0.12053e+01,0.13667e+01 /) - kao(:, 1, 5,16) = (/ & - & 0.16714e+00,0.15294e+00,0.29770e+00,0.44651e+00,0.59528e+00, & - & 0.74397e+00,0.89246e+00,0.10402e+01,0.11846e+01 /) - kao(:, 2, 5,16) = (/ & - & 0.16248e+00,0.16289e+00,0.32569e+00,0.48850e+00,0.65127e+00, & - & 0.81396e+00,0.97625e+00,0.11381e+01,0.12962e+01 /) - kao(:, 3, 5,16) = (/ & - & 0.15803e+00,0.17580e+00,0.35158e+00,0.52733e+00,0.70303e+00, & - & 0.87864e+00,0.10540e+01,0.12284e+01,0.13993e+01 /) - kao(:, 4, 5,16) = (/ & - & 0.15368e+00,0.18757e+00,0.37512e+00,0.56264e+00,0.75011e+00, & - & 0.93747e+00,0.11247e+01,0.13108e+01,0.14933e+01 /) - kao(:, 5, 5,16) = (/ & - & 0.14943e+00,0.19824e+00,0.39645e+00,0.59477e+00,0.79303e+00, & - & 0.99112e+00,0.11890e+01,0.13858e+01,0.15783e+01 /) - kao(:, 1, 6,16) = (/ & - & 0.20217e+00,0.17926e+00,0.33507e+00,0.50257e+00,0.67002e+00, & - & 0.83741e+00,0.10046e+01,0.11708e+01,0.13365e+01 /) - kao(:, 2, 6,16) = (/ & - & 0.19655e+00,0.18668e+00,0.36910e+00,0.55360e+00,0.73806e+00, & - & 0.92245e+00,0.11065e+01,0.12896e+01,0.14724e+01 /) - kao(:, 3, 6,16) = (/ & - & 0.19100e+00,0.20029e+00,0.40054e+00,0.60077e+00,0.80095e+00, & - & 0.10010e+01,0.12008e+01,0.13997e+01,0.15979e+01 /) - kao(:, 4, 6,16) = (/ & - & 0.18556e+00,0.21465e+00,0.42926e+00,0.64385e+00,0.85838e+00, & - & 0.10728e+01,0.12869e+01,0.15000e+01,0.17126e+01 /) - kao(:, 5, 6,16) = (/ & - & 0.18024e+00,0.22760e+00,0.45517e+00,0.68271e+00,0.91019e+00, & - & 0.11375e+01,0.13647e+01,0.15907e+01,0.18161e+01 /) - kao(:, 1, 7,16) = (/ & - & 0.24417e+00,0.21368e+00,0.37507e+00,0.56256e+00,0.75006e+00, & - & 0.93742e+00,0.11245e+01,0.13107e+01,0.14982e+01 /) - kao(:, 2, 7,16) = (/ & - & 0.23715e+00,0.21661e+00,0.41650e+00,0.62470e+00,0.83285e+00, & - & 0.10409e+01,0.12487e+01,0.14555e+01,0.16638e+01 /) - kao(:, 3, 7,16) = (/ & - & 0.23022e+00,0.22856e+00,0.45485e+00,0.68222e+00,0.90954e+00, & - & 0.11367e+01,0.13637e+01,0.15896e+01,0.18170e+01 /) - kao(:, 4, 7,16) = (/ & - & 0.22335e+00,0.24491e+00,0.48979e+00,0.73464e+00,0.97947e+00, & - & 0.12241e+01,0.14686e+01,0.17118e+01,0.19566e+01 /) - kao(:, 5, 7,16) = (/ & - & 0.21655e+00,0.26068e+00,0.52133e+00,0.78194e+00,0.10425e+01, & - & 0.13029e+01,0.15630e+01,0.18220e+01,0.20827e+01 /) - kao(:, 1, 8,16) = (/ & - & 0.29541e+00,0.25848e+00,0.41687e+00,0.62527e+00,0.83361e+00, & - & 0.10419e+01,0.12499e+01,0.14571e+01,0.16668e+01 /) - kao(:, 2, 8,16) = (/ & - & 0.28549e+00,0.25449e+00,0.46724e+00,0.70082e+00,0.93434e+00, & - & 0.11678e+01,0.14009e+01,0.16328e+01,0.18680e+01 /) - kao(:, 3, 8,16) = (/ & - & 0.27625e+00,0.26285e+00,0.51364e+00,0.77040e+00,0.10271e+01, & - & 0.12838e+01,0.15402e+01,0.17956e+01,0.20538e+01 /) - kao(:, 4, 8,16) = (/ & - & 0.26742e+00,0.27883e+00,0.55601e+00,0.83395e+00,0.11118e+01, & - & 0.13896e+01,0.16670e+01,0.19436e+01,0.22230e+01 /) - kao(:, 5, 8,16) = (/ & - & 0.25873e+00,0.29706e+00,0.59410e+00,0.89109e+00,0.11880e+01, & - & 0.14848e+01,0.17812e+01,0.20764e+01,0.23753e+01 /) - kao(:, 1, 9,16) = (/ & - & 0.35727e+00,0.31262e+00,0.45859e+00,0.68783e+00,0.91710e+00, & - & 0.11462e+01,0.13749e+01,0.16027e+01,0.18342e+01 /) - kao(:, 2, 9,16) = (/ & - & 0.34378e+00,0.30157e+00,0.51912e+00,0.77863e+00,0.10382e+01, & - & 0.12975e+01,0.15566e+01,0.18147e+01,0.20764e+01 /) - kao(:, 3, 9,16) = (/ & - & 0.33111e+00,0.30494e+00,0.57506e+00,0.86254e+00,0.11500e+01, & - & 0.14374e+01,0.17244e+01,0.20104e+01,0.23002e+01 /) - kao(:, 4, 9,16) = (/ & - & 0.31901e+00,0.31860e+00,0.62597e+00,0.93889e+00,0.12519e+01, & - & 0.15648e+01,0.18772e+01,0.21885e+01,0.25042e+01 /) - kao(:, 5, 9,16) = (/ & - & 0.30738e+00,0.33686e+00,0.67173e+00,0.10075e+01,0.13433e+01, & - & 0.16788e+01,0.20142e+01,0.23482e+01,0.26866e+01 /) - kao(:, 1,10,16) = (/ & - & 0.42900e+00,0.37537e+00,0.50742e+00,0.76107e+00,0.10147e+01, & - & 0.12682e+01,0.15216e+01,0.17737e+01,0.20298e+01 /) - kao(:, 2,10,16) = (/ & - & 0.41120e+00,0.35980e+00,0.57626e+00,0.86440e+00,0.11524e+01, & - & 0.14403e+01,0.17281e+01,0.20148e+01,0.23052e+01 /) - kao(:, 3,10,16) = (/ & - & 0.39435e+00,0.35582e+00,0.64201e+00,0.96295e+00,0.12838e+01, & - & 0.16046e+01,0.19250e+01,0.22444e+01,0.25680e+01 /) - kao(:, 4,10,16) = (/ & - & 0.37835e+00,0.36721e+00,0.70220e+00,0.10532e+01,0.14042e+01, & - & 0.17550e+01,0.21055e+01,0.24551e+01,0.28089e+01 /) - kao(:, 5,10,16) = (/ & - & 0.36302e+00,0.38402e+00,0.75599e+00,0.11339e+01,0.15118e+01, & - & 0.18894e+01,0.22669e+01,0.26429e+01,0.30243e+01 /) - kao(:, 1,11,16) = (/ & - & 0.50130e+00,0.43864e+00,0.59754e+00,0.89626e+00,0.11949e+01, & - & 0.14934e+01,0.17919e+01,0.20890e+01,0.23902e+01 /) - kao(:, 2,11,16) = (/ & - & 0.47862e+00,0.41971e+00,0.67375e+00,0.10106e+01,0.13473e+01, & - & 0.16840e+01,0.20203e+01,0.23553e+01,0.26950e+01 /) - kao(:, 3,11,16) = (/ & - & 0.45729e+00,0.41739e+00,0.74475e+00,0.11171e+01,0.14893e+01, & - & 0.18615e+01,0.22335e+01,0.26038e+01,0.29786e+01 /) - kao(:, 4,11,16) = (/ & - & 0.43691e+00,0.42957e+00,0.80967e+00,0.12144e+01,0.16191e+01, & - & 0.20236e+01,0.24280e+01,0.28308e+01,0.32389e+01 /) - kao(:, 5,11,16) = (/ & - & 0.41748e+00,0.44621e+00,0.86800e+00,0.13019e+01,0.17360e+01, & - & 0.21698e+01,0.26031e+01,0.30355e+01,0.34723e+01 /) - kao(:, 1,12,16) = (/ & - & 0.58052e+00,0.50796e+00,0.69775e+00,0.10466e+01,0.13954e+01, & - & 0.17440e+01,0.20924e+01,0.24394e+01,0.27908e+01 /) - kao(:, 2,12,16) = (/ & - & 0.55207e+00,0.48627e+00,0.78177e+00,0.11726e+01,0.15635e+01, & - & 0.19543e+01,0.23447e+01,0.27336e+01,0.31273e+01 /) - kao(:, 3,12,16) = (/ & - & 0.52503e+00,0.48543e+00,0.85881e+00,0.12881e+01,0.17174e+01, & - & 0.21467e+01,0.25754e+01,0.30027e+01,0.34355e+01 /) - kao(:, 4,12,16) = (/ & - & 0.49945e+00,0.49746e+00,0.92780e+00,0.13917e+01,0.18554e+01, & - & 0.23191e+01,0.27823e+01,0.32446e+01,0.37108e+01 /) - kao(:, 5,12,16) = (/ & - & 0.47536e+00,0.51344e+00,0.98885e+00,0.14832e+01,0.19776e+01, & - & 0.24717e+01,0.29655e+01,0.34576e+01,0.39563e+01 /) - kao(:, 1,13,16) = (/ & - & 0.66560e+00,0.58240e+00,0.80598e+00,0.12089e+01,0.16118e+01, & - & 0.20145e+01,0.24172e+01,0.28183e+01,0.32240e+01 /) - kao(:, 2,13,16) = (/ & - & 0.62986e+00,0.55885e+00,0.89794e+00,0.13468e+01,0.17957e+01, & - & 0.22443e+01,0.26925e+01,0.31396e+01,0.35914e+01 /) - kao(:, 3,13,16) = (/ & - & 0.59613e+00,0.55868e+00,0.98065e+00,0.14709e+01,0.19611e+01, & - & 0.24513e+01,0.29409e+01,0.34293e+01,0.39230e+01 /) - kao(:, 4,13,16) = (/ & - & 0.56427e+00,0.56950e+00,0.10539e+01,0.15808e+01,0.21076e+01, & - & 0.26342e+01,0.31605e+01,0.36850e+01,0.42159e+01 /) - kao(:, 5,13,16) = (/ & - & 0.53530e+00,0.58425e+00,0.11174e+01,0.16761e+01,0.22346e+01, & - & 0.27933e+01,0.33512e+01,0.39078e+01,0.44703e+01 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:,13, 1) = (/ & - & 0.12810e-03,0.12891e-03,0.12890e-03,0.12713e-03,0.12477e-03 /) - kbo(:,14, 1) = (/ & - & 0.10653e-03,0.10667e-03,0.10648e-03,0.10473e-03,0.10293e-03 /) - kbo(:,15, 1) = (/ & - & 0.90176e-04,0.90077e-04,0.89286e-04,0.87879e-04,0.85987e-04 /) - kbo(:,16, 1) = (/ & - & 0.77704e-04,0.77304e-04,0.75879e-04,0.74246e-04,0.72070e-04 /) - kbo(:,17, 1) = (/ & - & 0.67183e-04,0.65906e-04,0.64619e-04,0.63000e-04,0.61056e-04 /) - kbo(:,18, 1) = (/ & - & 0.58741e-04,0.57649e-04,0.56028e-04,0.54293e-04,0.52506e-04 /) - kbo(:,19, 1) = (/ & - & 0.51839e-04,0.50715e-04,0.49053e-04,0.47195e-04,0.45368e-04 /) - kbo(:,20, 1) = (/ & - & 0.44321e-04,0.43297e-04,0.41923e-04,0.40298e-04,0.38744e-04 /) - kbo(:,21, 1) = (/ & - & 0.37527e-04,0.36516e-04,0.35380e-04,0.34037e-04,0.32951e-04 /) - kbo(:,22, 1) = (/ & - & 0.31752e-04,0.30703e-04,0.29586e-04,0.28499e-04,0.27519e-04 /) - kbo(:,23, 1) = (/ & - & 0.26638e-04,0.25643e-04,0.24693e-04,0.23832e-04,0.22913e-04 /) - kbo(:,24, 1) = (/ & - & 0.22325e-04,0.21480e-04,0.20621e-04,0.19867e-04,0.19066e-04 /) - kbo(:,25, 1) = (/ & - & 0.18764e-04,0.17998e-04,0.17269e-04,0.16527e-04,0.15821e-04 /) - kbo(:,26, 1) = (/ & - & 0.15650e-04,0.14992e-04,0.14356e-04,0.13710e-04,0.13119e-04 /) - kbo(:,27, 1) = (/ & - & 0.13054e-04,0.12477e-04,0.11929e-04,0.11393e-04,0.10948e-04 /) - kbo(:,28, 1) = (/ & - & 0.10852e-04,0.10390e-04,0.99195e-05,0.95020e-05,0.91993e-05 /) - kbo(:,29, 1) = (/ & - & 0.90990e-05,0.87209e-05,0.83384e-05,0.80029e-05,0.77245e-05 /) - kbo(:,30, 1) = (/ & - & 0.77169e-05,0.73662e-05,0.70552e-05,0.68029e-05,0.65749e-05 /) - kbo(:,31, 1) = (/ & - & 0.65250e-05,0.62364e-05,0.60172e-05,0.57804e-05,0.55504e-05 /) - kbo(:,32, 1) = (/ & - & 0.55167e-05,0.53021e-05,0.51088e-05,0.49113e-05,0.47150e-05 /) - kbo(:,33, 1) = (/ & - & 0.47261e-05,0.45530e-05,0.43641e-05,0.41725e-05,0.40077e-05 /) - kbo(:,34, 1) = (/ & - & 0.40646e-05,0.39062e-05,0.37472e-05,0.36009e-05,0.34549e-05 /) - kbo(:,35, 1) = (/ & - & 0.35479e-05,0.34057e-05,0.32704e-05,0.31420e-05,0.30219e-05 /) - kbo(:,36, 1) = (/ & - & 0.31353e-05,0.30270e-05,0.29024e-05,0.27776e-05,0.26600e-05 /) - kbo(:,37, 1) = (/ & - & 0.26595e-05,0.25621e-05,0.24646e-05,0.23582e-05,0.22563e-05 /) - kbo(:,38, 1) = (/ & - & 0.22468e-05,0.21651e-05,0.20812e-05,0.20043e-05,0.19221e-05 /) - kbo(:,39, 1) = (/ & - & 0.19009e-05,0.18335e-05,0.17685e-05,0.17039e-05,0.16406e-05 /) - kbo(:,40, 1) = (/ & - & 0.15746e-05,0.15188e-05,0.14669e-05,0.14148e-05,0.13668e-05 /) - kbo(:,41, 1) = (/ & - & 0.13001e-05,0.12561e-05,0.12122e-05,0.11718e-05,0.11306e-05 /) - kbo(:,42, 1) = (/ & - & 0.10716e-05,0.10380e-05,0.10018e-05,0.96745e-06,0.93475e-06 /) - kbo(:,43, 1) = (/ & - & 0.87651e-06,0.85172e-06,0.82453e-06,0.79560e-06,0.77011e-06 /) - kbo(:,44, 1) = (/ & - & 0.71565e-06,0.69699e-06,0.67699e-06,0.65403e-06,0.63202e-06 /) - kbo(:,45, 1) = (/ & - & 0.58391e-06,0.56946e-06,0.55318e-06,0.53575e-06,0.51774e-06 /) - kbo(:,46, 1) = (/ & - & 0.47490e-06,0.46531e-06,0.45175e-06,0.43686e-06,0.42260e-06 /) - kbo(:,47, 1) = (/ & - & 0.38718e-06,0.37610e-06,0.36650e-06,0.35580e-06,0.34417e-06 /) - kbo(:,48, 1) = (/ & - & 0.31464e-06,0.30494e-06,0.29872e-06,0.29096e-06,0.28230e-06 /) - kbo(:,49, 1) = (/ & - & 0.25542e-06,0.24885e-06,0.24314e-06,0.23745e-06,0.23092e-06 /) - kbo(:,50, 1) = (/ & - & 0.20741e-06,0.20175e-06,0.19699e-06,0.19305e-06,0.18791e-06 /) - kbo(:,51, 1) = (/ & - & 0.16760e-06,0.16406e-06,0.15993e-06,0.15631e-06,0.15327e-06 /) - kbo(:,52, 1) = (/ & - & 0.13579e-06,0.13287e-06,0.12985e-06,0.12725e-06,0.12470e-06 /) - kbo(:,53, 1) = (/ & - & 0.11006e-06,0.10757e-06,0.10568e-06,0.10314e-06,0.10101e-06 /) - kbo(:,54, 1) = (/ & - & 0.88711e-07,0.87131e-07,0.85162e-07,0.83405e-07,0.81585e-07 /) - kbo(:,55, 1) = (/ & - & 0.70889e-07,0.69917e-07,0.68692e-07,0.67463e-07,0.66047e-07 /) - kbo(:,56, 1) = (/ & - & 0.56659e-07,0.56077e-07,0.55518e-07,0.54462e-07,0.53563e-07 /) - kbo(:,57, 1) = (/ & - & 0.45380e-07,0.45159e-07,0.44718e-07,0.44063e-07,0.43116e-07 /) - kbo(:,58, 1) = (/ & - & 0.35962e-07,0.36177e-07,0.35997e-07,0.35600e-07,0.34340e-07 /) - kbo(:,59, 1) = (/ & - & 0.28578e-07,0.28924e-07,0.28901e-07,0.28176e-07,0.27246e-07 /) - kbo(:,13, 2) = (/ & - & 0.63215e-03,0.64756e-03,0.65734e-03,0.66515e-03,0.67077e-03 /) - kbo(:,14, 2) = (/ & - & 0.52378e-03,0.53631e-03,0.54485e-03,0.55071e-03,0.55605e-03 /) - kbo(:,15, 2) = (/ & - & 0.43777e-03,0.44814e-03,0.45521e-03,0.46124e-03,0.46700e-03 /) - kbo(:,16, 2) = (/ & - & 0.37023e-03,0.37869e-03,0.38568e-03,0.39070e-03,0.39760e-03 /) - kbo(:,17, 2) = (/ & - & 0.31753e-03,0.32632e-03,0.33254e-03,0.33817e-03,0.34312e-03 /) - kbo(:,18, 2) = (/ & - & 0.27580e-03,0.28310e-03,0.28915e-03,0.29488e-03,0.29855e-03 /) - kbo(:,19, 2) = (/ & - & 0.24129e-03,0.24697e-03,0.25302e-03,0.25785e-03,0.26137e-03 /) - kbo(:,20, 2) = (/ & - & 0.20470e-03,0.21040e-03,0.21552e-03,0.21963e-03,0.22260e-03 /) - kbo(:,21, 2) = (/ & - & 0.17290e-03,0.17782e-03,0.18188e-03,0.18513e-03,0.18794e-03 /) - kbo(:,22, 2) = (/ & - & 0.14599e-03,0.15063e-03,0.15389e-03,0.15682e-03,0.15965e-03 /) - kbo(:,23, 2) = (/ & - & 0.12390e-03,0.12797e-03,0.13071e-03,0.13347e-03,0.13571e-03 /) - kbo(:,24, 2) = (/ & - & 0.10553e-03,0.10875e-03,0.11134e-03,0.11351e-03,0.11513e-03 /) - kbo(:,25, 2) = (/ & - & 0.90263e-04,0.92560e-04,0.94667e-04,0.96225e-04,0.97041e-04 /) - kbo(:,26, 2) = (/ & - & 0.76542e-04,0.78227e-04,0.79755e-04,0.80768e-04,0.81412e-04 /) - kbo(:,27, 2) = (/ & - & 0.64562e-04,0.66024e-04,0.67121e-04,0.67878e-04,0.67992e-04 /) - kbo(:,28, 2) = (/ & - & 0.54587e-04,0.55668e-04,0.56439e-04,0.56778e-04,0.56649e-04 /) - kbo(:,29, 2) = (/ & - & 0.46248e-04,0.46885e-04,0.47469e-04,0.47476e-04,0.47464e-04 /) - kbo(:,30, 2) = (/ & - & 0.39084e-04,0.39701e-04,0.39836e-04,0.39919e-04,0.39762e-04 /) - kbo(:,31, 2) = (/ & - & 0.33297e-04,0.33670e-04,0.33781e-04,0.33571e-04,0.33418e-04 /) - kbo(:,32, 2) = (/ & - & 0.28475e-04,0.28479e-04,0.28352e-04,0.28202e-04,0.28107e-04 /) - kbo(:,33, 2) = (/ & - & 0.24023e-04,0.23977e-04,0.23874e-04,0.23858e-04,0.23729e-04 /) - kbo(:,34, 2) = (/ & - & 0.20276e-04,0.20314e-04,0.20262e-04,0.20205e-04,0.20013e-04 /) - kbo(:,35, 2) = (/ & - & 0.17177e-04,0.17179e-04,0.17181e-04,0.17048e-04,0.16915e-04 /) - kbo(:,36, 2) = (/ & - & 0.14586e-04,0.14632e-04,0.14569e-04,0.14465e-04,0.14404e-04 /) - kbo(:,37, 2) = (/ & - & 0.12165e-04,0.12220e-04,0.12164e-04,0.12099e-04,0.12036e-04 /) - kbo(:,38, 2) = (/ & - & 0.10178e-04,0.10224e-04,0.10201e-04,0.10134e-04,0.10060e-04 /) - kbo(:,39, 2) = (/ & - & 0.85622e-05,0.85826e-05,0.85520e-05,0.85109e-05,0.84378e-05 /) - kbo(:,40, 2) = (/ & - & 0.70263e-05,0.70549e-05,0.70334e-05,0.70000e-05,0.69500e-05 /) - kbo(:,41, 2) = (/ & - & 0.57510e-05,0.57749e-05,0.57692e-05,0.57384e-05,0.57121e-05 /) - kbo(:,42, 2) = (/ & - & 0.47038e-05,0.47261e-05,0.47278e-05,0.47023e-05,0.46867e-05 /) - kbo(:,43, 2) = (/ & - & 0.38249e-05,0.38339e-05,0.38498e-05,0.38364e-05,0.38125e-05 /) - kbo(:,44, 2) = (/ & - & 0.30973e-05,0.31120e-05,0.31166e-05,0.31203e-05,0.31022e-05 /) - kbo(:,45, 2) = (/ & - & 0.25085e-05,0.25263e-05,0.25293e-05,0.25328e-05,0.25249e-05 /) - kbo(:,46, 2) = (/ & - & 0.20261e-05,0.20479e-05,0.20565e-05,0.20575e-05,0.20588e-05 /) - kbo(:,47, 2) = (/ & - & 0.16319e-05,0.16639e-05,0.16745e-05,0.16740e-05,0.16759e-05 /) - kbo(:,48, 2) = (/ & - & 0.13097e-05,0.13449e-05,0.13611e-05,0.13624e-05,0.13589e-05 /) - kbo(:,49, 2) = (/ & - & 0.10521e-05,0.10847e-05,0.11052e-05,0.11102e-05,0.11085e-05 /) - kbo(:,50, 2) = (/ & - & 0.84668e-06,0.87235e-06,0.89544e-06,0.90607e-06,0.90616e-06 /) - kbo(:,51, 2) = (/ & - & 0.68060e-06,0.70180e-06,0.72187e-06,0.73562e-06,0.73800e-06 /) - kbo(:,52, 2) = (/ & - & 0.54634e-06,0.56481e-06,0.58256e-06,0.59543e-06,0.60122e-06 /) - kbo(:,53, 2) = (/ & - & 0.43866e-06,0.45577e-06,0.46957e-06,0.48176e-06,0.48940e-06 /) - kbo(:,54, 2) = (/ & - & 0.35062e-06,0.36647e-06,0.37935e-06,0.38978e-06,0.39697e-06 /) - kbo(:,55, 2) = (/ & - & 0.27883e-06,0.29514e-06,0.30397e-06,0.31251e-06,0.32004e-06 /) - kbo(:,56, 2) = (/ & - & 0.22098e-06,0.23550e-06,0.24289e-06,0.25018e-06,0.25708e-06 /) - kbo(:,57, 2) = (/ & - & 0.17295e-06,0.18624e-06,0.19332e-06,0.19934e-06,0.20587e-06 /) - kbo(:,58, 2) = (/ & - & 0.13623e-06,0.14680e-06,0.15403e-06,0.15912e-06,0.16499e-06 /) - kbo(:,59, 2) = (/ & - & 0.10864e-06,0.11680e-06,0.12353e-06,0.12840e-06,0.13352e-06 /) - kbo(:,13, 3) = (/ & - & 0.21069e-02,0.21571e-02,0.21943e-02,0.22061e-02,0.22124e-02 /) - kbo(:,14, 3) = (/ & - & 0.17411e-02,0.17833e-02,0.18097e-02,0.18225e-02,0.18251e-02 /) - kbo(:,15, 3) = (/ & - & 0.14440e-02,0.14790e-02,0.14963e-02,0.15066e-02,0.15066e-02 /) - kbo(:,16, 3) = (/ & - & 0.11998e-02,0.12261e-02,0.12398e-02,0.12500e-02,0.12487e-02 /) - kbo(:,17, 3) = (/ & - & 0.99980e-03,0.10202e-02,0.10332e-02,0.10399e-02,0.10392e-02 /) - kbo(:,18, 3) = (/ & - & 0.83805e-03,0.85629e-03,0.86827e-03,0.87303e-03,0.87540e-03 /) - kbo(:,19, 3) = (/ & - & 0.70743e-03,0.72381e-03,0.73251e-03,0.73550e-03,0.73931e-03 /) - kbo(:,20, 3) = (/ & - & 0.59348e-03,0.60572e-03,0.61137e-03,0.61496e-03,0.61761e-03 /) - kbo(:,21, 3) = (/ & - & 0.49556e-03,0.50488e-03,0.50987e-03,0.51421e-03,0.51581e-03 /) - kbo(:,22, 3) = (/ & - & 0.41461e-03,0.42145e-03,0.42584e-03,0.42969e-03,0.43055e-03 /) - kbo(:,23, 3) = (/ & - & 0.34683e-03,0.35181e-03,0.35660e-03,0.35911e-03,0.35958e-03 /) - kbo(:,24, 3) = (/ & - & 0.29004e-03,0.29383e-03,0.29787e-03,0.29964e-03,0.30042e-03 /) - kbo(:,25, 3) = (/ & - & 0.24146e-03,0.24561e-03,0.24879e-03,0.25053e-03,0.25134e-03 /) - kbo(:,26, 3) = (/ & - & 0.20160e-03,0.20537e-03,0.20774e-03,0.20928e-03,0.21023e-03 /) - kbo(:,27, 3) = (/ & - & 0.16916e-03,0.17226e-03,0.17386e-03,0.17529e-03,0.17634e-03 /) - kbo(:,28, 3) = (/ & - & 0.14183e-03,0.14414e-03,0.14604e-03,0.14741e-03,0.14844e-03 /) - kbo(:,29, 3) = (/ & - & 0.11954e-03,0.12161e-03,0.12286e-03,0.12386e-03,0.12448e-03 /) - kbo(:,30, 3) = (/ & - & 0.10067e-03,0.10205e-03,0.10331e-03,0.10409e-03,0.10476e-03 /) - kbo(:,31, 3) = (/ & - & 0.85014e-04,0.86248e-04,0.87024e-04,0.87958e-04,0.88579e-04 /) - kbo(:,32, 3) = (/ & - & 0.71930e-04,0.73074e-04,0.73985e-04,0.74934e-04,0.74848e-04 /) - kbo(:,33, 3) = (/ & - & 0.61205e-04,0.62259e-04,0.63209e-04,0.63383e-04,0.63466e-04 /) - kbo(:,34, 3) = (/ & - & 0.52046e-04,0.52896e-04,0.53420e-04,0.53516e-04,0.53755e-04 /) - kbo(:,35, 3) = (/ & - & 0.44380e-04,0.45121e-04,0.45277e-04,0.45604e-04,0.45761e-04 /) - kbo(:,36, 3) = (/ & - & 0.38058e-04,0.38409e-04,0.38657e-04,0.38813e-04,0.38628e-04 /) - kbo(:,37, 3) = (/ & - & 0.31735e-04,0.31990e-04,0.32199e-04,0.32288e-04,0.32179e-04 /) - kbo(:,38, 3) = (/ & - & 0.26378e-04,0.26667e-04,0.26778e-04,0.26840e-04,0.26760e-04 /) - kbo(:,39, 3) = (/ & - & 0.21949e-04,0.22195e-04,0.22340e-04,0.22330e-04,0.22281e-04 /) - kbo(:,40, 3) = (/ & - & 0.18001e-04,0.18209e-04,0.18338e-04,0.18376e-04,0.18309e-04 /) - kbo(:,41, 3) = (/ & - & 0.14715e-04,0.14906e-04,0.15025e-04,0.15098e-04,0.15026e-04 /) - kbo(:,42, 3) = (/ & - & 0.12019e-04,0.12197e-04,0.12312e-04,0.12380e-04,0.12346e-04 /) - kbo(:,43, 3) = (/ & - & 0.97566e-05,0.99318e-05,0.10036e-04,0.10096e-04,0.10118e-04 /) - kbo(:,44, 3) = (/ & - & 0.78810e-05,0.80716e-05,0.81637e-05,0.82202e-05,0.82608e-05 /) - kbo(:,45, 3) = (/ & - & 0.63541e-05,0.65171e-05,0.66330e-05,0.66977e-05,0.67239e-05 /) - kbo(:,46, 3) = (/ & - & 0.51077e-05,0.52428e-05,0.53636e-05,0.54363e-05,0.54693e-05 /) - kbo(:,47, 3) = (/ & - & 0.40883e-05,0.42196e-05,0.43199e-05,0.44074e-05,0.44462e-05 /) - kbo(:,48, 3) = (/ & - & 0.32909e-05,0.33941e-05,0.34746e-05,0.35546e-05,0.36089e-05 /) - kbo(:,49, 3) = (/ & - & 0.26401e-05,0.27269e-05,0.28003e-05,0.28616e-05,0.29188e-05 /) - kbo(:,50, 3) = (/ & - & 0.21222e-05,0.22032e-05,0.22638e-05,0.23127e-05,0.23603e-05 /) - kbo(:,51, 3) = (/ & - & 0.17056e-05,0.17838e-05,0.18386e-05,0.18804e-05,0.19134e-05 /) - kbo(:,52, 3) = (/ & - & 0.13662e-05,0.14333e-05,0.14855e-05,0.15238e-05,0.15521e-05 /) - kbo(:,53, 3) = (/ & - & 0.10889e-05,0.11445e-05,0.11955e-05,0.12300e-05,0.12560e-05 /) - kbo(:,54, 3) = (/ & - & 0.86251e-06,0.91556e-06,0.95999e-06,0.99454e-06,0.10171e-05 /) - kbo(:,55, 3) = (/ & - & 0.68640e-06,0.72868e-06,0.77389e-06,0.80627e-06,0.82696e-06 /) - kbo(:,56, 3) = (/ & - & 0.54334e-06,0.58339e-06,0.61953e-06,0.65190e-06,0.67285e-06 /) - kbo(:,57, 3) = (/ & - & 0.43336e-06,0.46511e-06,0.49561e-06,0.52337e-06,0.54491e-06 /) - kbo(:,58, 3) = (/ & - & 0.34428e-06,0.37236e-06,0.39687e-06,0.42017e-06,0.43790e-06 /) - kbo(:,59, 3) = (/ & - & 0.27883e-06,0.30237e-06,0.32096e-06,0.33978e-06,0.35485e-06 /) - kbo(:,13, 4) = (/ & - & 0.52806e-02,0.53551e-02,0.53836e-02,0.53810e-02,0.53413e-02 /) - kbo(:,14, 4) = (/ & - & 0.43594e-02,0.44114e-02,0.44268e-02,0.44183e-02,0.43877e-02 /) - kbo(:,15, 4) = (/ & - & 0.36080e-02,0.36421e-02,0.36603e-02,0.36540e-02,0.36307e-02 /) - kbo(:,16, 4) = (/ & - & 0.30007e-02,0.30324e-02,0.30479e-02,0.30377e-02,0.30175e-02 /) - kbo(:,17, 4) = (/ & - & 0.25113e-02,0.25415e-02,0.25489e-02,0.25428e-02,0.25281e-02 /) - kbo(:,18, 4) = (/ & - & 0.21119e-02,0.21340e-02,0.21396e-02,0.21381e-02,0.21232e-02 /) - kbo(:,19, 4) = (/ & - & 0.17705e-02,0.17884e-02,0.17942e-02,0.17931e-02,0.17819e-02 /) - kbo(:,20, 4) = (/ & - & 0.14714e-02,0.14854e-02,0.14921e-02,0.14920e-02,0.14874e-02 /) - kbo(:,21, 4) = (/ & - & 0.12224e-02,0.12349e-02,0.12432e-02,0.12411e-02,0.12395e-02 /) - kbo(:,22, 4) = (/ & - & 0.10170e-02,0.10281e-02,0.10319e-02,0.10310e-02,0.10286e-02 /) - kbo(:,23, 4) = (/ & - & 0.84681e-03,0.85484e-03,0.85517e-03,0.85545e-03,0.85571e-03 /) - kbo(:,24, 4) = (/ & - & 0.70330e-03,0.70875e-03,0.71078e-03,0.71261e-03,0.71112e-03 /) - kbo(:,25, 4) = (/ & - & 0.58481e-03,0.58870e-03,0.59157e-03,0.59305e-03,0.59234e-03 /) - kbo(:,26, 4) = (/ & - & 0.48640e-03,0.49044e-03,0.49395e-03,0.49468e-03,0.49466e-03 /) - kbo(:,27, 4) = (/ & - & 0.40472e-03,0.40915e-03,0.41235e-03,0.41278e-03,0.41345e-03 /) - kbo(:,28, 4) = (/ & - & 0.33826e-03,0.34205e-03,0.34364e-03,0.34480e-03,0.34528e-03 /) - kbo(:,29, 4) = (/ & - & 0.28308e-03,0.28627e-03,0.28792e-03,0.28910e-03,0.28958e-03 /) - kbo(:,30, 4) = (/ & - & 0.23759e-03,0.23994e-03,0.24196e-03,0.24295e-03,0.24270e-03 /) - kbo(:,31, 4) = (/ & - & 0.19993e-03,0.20202e-03,0.20390e-03,0.20456e-03,0.20411e-03 /) - kbo(:,32, 4) = (/ & - & 0.16851e-03,0.17060e-03,0.17151e-03,0.17169e-03,0.17133e-03 /) - kbo(:,33, 4) = (/ & - & 0.14275e-03,0.14392e-03,0.14445e-03,0.14452e-03,0.14399e-03 /) - kbo(:,34, 4) = (/ & - & 0.12060e-03,0.12142e-03,0.12181e-03,0.12165e-03,0.12105e-03 /) - kbo(:,35, 4) = (/ & - & 0.10168e-03,0.10240e-03,0.10276e-03,0.10261e-03,0.10202e-03 /) - kbo(:,36, 4) = (/ & - & 0.85780e-04,0.86636e-04,0.86815e-04,0.86780e-04,0.86722e-04 /) - kbo(:,37, 4) = (/ & - & 0.71540e-04,0.72201e-04,0.72422e-04,0.72501e-04,0.72398e-04 /) - kbo(:,38, 4) = (/ & - & 0.59609e-04,0.60152e-04,0.60443e-04,0.60540e-04,0.60534e-04 /) - kbo(:,39, 4) = (/ & - & 0.49681e-04,0.50194e-04,0.50481e-04,0.50649e-04,0.50643e-04 /) - kbo(:,40, 4) = (/ & - & 0.40815e-04,0.41335e-04,0.41565e-04,0.41729e-04,0.41776e-04 /) - kbo(:,41, 4) = (/ & - & 0.33476e-04,0.33932e-04,0.34171e-04,0.34301e-04,0.34397e-04 /) - kbo(:,42, 4) = (/ & - & 0.27419e-04,0.27824e-04,0.28083e-04,0.28221e-04,0.28296e-04 /) - kbo(:,43, 4) = (/ & - & 0.22349e-04,0.22753e-04,0.22975e-04,0.23100e-04,0.23164e-04 /) - kbo(:,44, 4) = (/ & - & 0.18197e-04,0.18488e-04,0.18747e-04,0.18878e-04,0.18943e-04 /) - kbo(:,45, 4) = (/ & - & 0.14815e-04,0.15081e-04,0.15284e-04,0.15408e-04,0.15493e-04 /) - kbo(:,46, 4) = (/ & - & 0.12046e-04,0.12304e-04,0.12476e-04,0.12590e-04,0.12654e-04 /) - kbo(:,47, 4) = (/ & - & 0.97834e-05,0.10018e-04,0.10187e-04,0.10295e-04,0.10365e-04 /) - kbo(:,48, 4) = (/ & - & 0.79058e-05,0.81583e-05,0.83158e-05,0.84259e-05,0.84791e-05 /) - kbo(:,49, 4) = (/ & - & 0.63847e-05,0.66212e-05,0.67735e-05,0.68818e-05,0.69382e-05 /) - kbo(:,50, 4) = (/ & - & 0.51619e-05,0.53698e-05,0.55239e-05,0.56230e-05,0.56931e-05 /) - kbo(:,51, 4) = (/ & - & 0.41764e-05,0.43546e-05,0.45018e-05,0.45927e-05,0.46609e-05 /) - kbo(:,52, 4) = (/ & - & 0.33696e-05,0.35302e-05,0.36585e-05,0.37548e-05,0.38091e-05 /) - kbo(:,53, 4) = (/ & - & 0.27142e-05,0.28585e-05,0.29700e-05,0.30632e-05,0.31163e-05 /) - kbo(:,54, 4) = (/ & - & 0.21974e-05,0.23176e-05,0.24169e-05,0.24980e-05,0.25555e-05 /) - kbo(:,55, 4) = (/ & - & 0.17820e-05,0.18827e-05,0.19647e-05,0.20347e-05,0.20895e-05 /) - kbo(:,56, 4) = (/ & - & 0.14445e-05,0.15274e-05,0.15999e-05,0.16558e-05,0.17004e-05 /) - kbo(:,57, 4) = (/ & - & 0.11612e-05,0.12390e-05,0.13020e-05,0.13508e-05,0.13881e-05 /) - kbo(:,58, 4) = (/ & - & 0.93606e-06,0.10017e-05,0.10598e-05,0.11016e-05,0.11367e-05 /) - kbo(:,59, 4) = (/ & - & 0.76682e-06,0.82318e-06,0.87281e-06,0.91208e-06,0.94037e-06 /) - kbo(:,13, 5) = (/ & - & 0.12856e-01,0.13079e-01,0.13167e-01,0.13177e-01,0.13097e-01 /) - kbo(:,14, 5) = (/ & - & 0.10708e-01,0.10853e-01,0.10911e-01,0.10898e-01,0.10814e-01 /) - kbo(:,15, 5) = (/ & - & 0.88690e-02,0.89759e-02,0.90116e-02,0.89730e-02,0.88895e-02 /) - kbo(:,16, 5) = (/ & - & 0.73377e-02,0.74116e-02,0.74224e-02,0.73845e-02,0.73097e-02 /) - kbo(:,17, 5) = (/ & - & 0.61050e-02,0.61465e-02,0.61522e-02,0.61190e-02,0.60607e-02 /) - kbo(:,18, 5) = (/ & - & 0.51170e-02,0.51524e-02,0.51567e-02,0.51299e-02,0.50853e-02 /) - kbo(:,19, 5) = (/ & - & 0.42872e-02,0.43210e-02,0.43249e-02,0.43090e-02,0.42772e-02 /) - kbo(:,20, 5) = (/ & - & 0.35726e-02,0.35987e-02,0.36030e-02,0.35888e-02,0.35606e-02 /) - kbo(:,21, 5) = (/ & - & 0.29687e-02,0.29865e-02,0.29887e-02,0.29805e-02,0.29536e-02 /) - kbo(:,22, 5) = (/ & - & 0.24631e-02,0.24766e-02,0.24818e-02,0.24706e-02,0.24511e-02 /) - kbo(:,23, 5) = (/ & - & 0.20423e-02,0.20574e-02,0.20622e-02,0.20550e-02,0.20390e-02 /) - kbo(:,24, 5) = (/ & - & 0.17009e-02,0.17137e-02,0.17151e-02,0.17066e-02,0.16944e-02 /) - kbo(:,25, 5) = (/ & - & 0.14175e-02,0.14281e-02,0.14264e-02,0.14202e-02,0.14101e-02 /) - kbo(:,26, 5) = (/ & - & 0.11824e-02,0.11879e-02,0.11852e-02,0.11799e-02,0.11727e-02 /) - kbo(:,27, 5) = (/ & - & 0.98538e-03,0.98799e-03,0.98648e-03,0.98258e-03,0.97798e-03 /) - kbo(:,28, 5) = (/ & - & 0.82156e-03,0.82317e-03,0.82299e-03,0.82154e-03,0.81913e-03 /) - kbo(:,29, 5) = (/ & - & 0.68689e-03,0.68935e-03,0.68992e-03,0.69010e-03,0.68854e-03 /) - kbo(:,30, 5) = (/ & - & 0.57658e-03,0.57999e-03,0.58178e-03,0.58209e-03,0.58220e-03 /) - kbo(:,31, 5) = (/ & - & 0.48638e-03,0.49049e-03,0.49261e-03,0.49405e-03,0.49565e-03 /) - kbo(:,32, 5) = (/ & - & 0.41128e-03,0.41527e-03,0.41847e-03,0.42111e-03,0.42278e-03 /) - kbo(:,33, 5) = (/ & - & 0.34942e-03,0.35347e-03,0.35669e-03,0.35970e-03,0.36033e-03 /) - kbo(:,34, 5) = (/ & - & 0.29778e-03,0.30183e-03,0.30543e-03,0.30722e-03,0.30756e-03 /) - kbo(:,35, 5) = (/ & - & 0.25439e-03,0.25855e-03,0.26145e-03,0.26279e-03,0.26328e-03 /) - kbo(:,36, 5) = (/ & - & 0.21688e-03,0.22055e-03,0.22366e-03,0.22472e-03,0.22545e-03 /) - kbo(:,37, 5) = (/ & - & 0.18184e-03,0.18525e-03,0.18789e-03,0.18888e-03,0.18981e-03 /) - kbo(:,38, 5) = (/ & - & 0.15217e-03,0.15529e-03,0.15752e-03,0.15878e-03,0.15947e-03 /) - kbo(:,39, 5) = (/ & - & 0.12738e-03,0.13010e-03,0.13202e-03,0.13325e-03,0.13405e-03 /) - kbo(:,40, 5) = (/ & - & 0.10533e-03,0.10771e-03,0.10944e-03,0.11063e-03,0.11132e-03 /) - kbo(:,41, 5) = (/ & - & 0.86935e-04,0.89079e-04,0.90576e-04,0.91599e-04,0.92136e-04 /) - kbo(:,42, 5) = (/ & - & 0.71757e-04,0.73600e-04,0.74913e-04,0.75823e-04,0.76332e-04 /) - kbo(:,43, 5) = (/ & - & 0.58933e-04,0.60448e-04,0.61689e-04,0.62502e-04,0.62968e-04 /) - kbo(:,44, 5) = (/ & - & 0.48240e-04,0.49626e-04,0.50671e-04,0.51353e-04,0.51808e-04 /) - kbo(:,45, 5) = (/ & - & 0.39365e-04,0.40603e-04,0.41556e-04,0.42201e-04,0.42661e-04 /) - kbo(:,46, 5) = (/ & - & 0.32140e-04,0.33199e-04,0.34102e-04,0.34681e-04,0.35122e-04 /) - kbo(:,47, 5) = (/ & - & 0.26212e-04,0.27122e-04,0.27914e-04,0.28482e-04,0.28883e-04 /) - kbo(:,48, 5) = (/ & - & 0.21367e-04,0.22132e-04,0.22808e-04,0.23366e-04,0.23750e-04 /) - kbo(:,49, 5) = (/ & - & 0.17366e-04,0.18036e-04,0.18610e-04,0.19128e-04,0.19501e-04 /) - kbo(:,50, 5) = (/ & - & 0.14166e-04,0.14744e-04,0.15227e-04,0.15695e-04,0.16033e-04 /) - kbo(:,51, 5) = (/ & - & 0.11520e-04,0.12036e-04,0.12466e-04,0.12850e-04,0.13177e-04 /) - kbo(:,52, 5) = (/ & - & 0.93545e-05,0.97967e-05,0.10185e-04,0.10504e-04,0.10808e-04 /) - kbo(:,53, 5) = (/ & - & 0.75900e-05,0.79775e-05,0.83066e-05,0.85876e-05,0.88446e-05 /) - kbo(:,54, 5) = (/ & - & 0.61841e-05,0.65213e-05,0.67983e-05,0.70299e-05,0.72479e-05 /) - kbo(:,55, 5) = (/ & - & 0.50267e-05,0.53142e-05,0.55644e-05,0.57696e-05,0.59449e-05 /) - kbo(:,56, 5) = (/ & - & 0.40664e-05,0.43169e-05,0.45344e-05,0.47274e-05,0.48783e-05 /) - kbo(:,57, 5) = (/ & - & 0.32881e-05,0.34993e-05,0.36900e-05,0.38580e-05,0.39983e-05 /) - kbo(:,58, 5) = (/ & - & 0.26562e-05,0.28386e-05,0.30033e-05,0.31435e-05,0.32655e-05 /) - kbo(:,59, 5) = (/ & - & 0.21842e-05,0.23355e-05,0.24742e-05,0.25918e-05,0.26979e-05 /) - kbo(:,13, 6) = (/ & - & 0.31802e-01,0.32385e-01,0.32761e-01,0.32924e-01,0.32887e-01 /) - kbo(:,14, 6) = (/ & - & 0.27075e-01,0.27526e-01,0.27777e-01,0.27825e-01,0.27714e-01 /) - kbo(:,15, 6) = (/ & - & 0.22867e-01,0.23213e-01,0.23346e-01,0.23326e-01,0.23192e-01 /) - kbo(:,16, 6) = (/ & - & 0.19243e-01,0.19469e-01,0.19534e-01,0.19508e-01,0.19374e-01 /) - kbo(:,17, 6) = (/ & - & 0.16143e-01,0.16291e-01,0.16340e-01,0.16286e-01,0.16140e-01 /) - kbo(:,18, 6) = (/ & - & 0.13508e-01,0.13619e-01,0.13632e-01,0.13563e-01,0.13444e-01 /) - kbo(:,19, 6) = (/ & - & 0.11360e-01,0.11423e-01,0.11418e-01,0.11354e-01,0.11254e-01 /) - kbo(:,20, 6) = (/ & - & 0.95257e-02,0.95677e-02,0.95569e-02,0.94993e-02,0.94147e-02 /) - kbo(:,21, 6) = (/ & - & 0.79688e-02,0.80079e-02,0.79930e-02,0.79576e-02,0.78976e-02 /) - kbo(:,22, 6) = (/ & - & 0.66527e-02,0.66824e-02,0.66717e-02,0.66442e-02,0.65988e-02 /) - kbo(:,23, 6) = (/ & - & 0.55583e-02,0.55741e-02,0.55685e-02,0.55458e-02,0.55136e-02 /) - kbo(:,24, 6) = (/ & - & 0.46281e-02,0.46404e-02,0.46354e-02,0.46240e-02,0.46070e-02 /) - kbo(:,25, 6) = (/ & - & 0.38479e-02,0.38586e-02,0.38647e-02,0.38587e-02,0.38482e-02 /) - kbo(:,26, 6) = (/ & - & 0.31996e-02,0.32113e-02,0.32185e-02,0.32206e-02,0.32221e-02 /) - kbo(:,27, 6) = (/ & - & 0.26655e-02,0.26804e-02,0.26909e-02,0.27001e-02,0.27000e-02 /) - kbo(:,28, 6) = (/ & - & 0.22269e-02,0.22430e-02,0.22546e-02,0.22636e-02,0.22685e-02 /) - kbo(:,29, 6) = (/ & - & 0.18711e-02,0.18853e-02,0.19010e-02,0.19079e-02,0.19146e-02 /) - kbo(:,30, 6) = (/ & - & 0.15792e-02,0.15950e-02,0.16049e-02,0.16149e-02,0.16250e-02 /) - kbo(:,31, 6) = (/ & - & 0.13390e-02,0.13523e-02,0.13631e-02,0.13762e-02,0.13899e-02 /) - kbo(:,32, 6) = (/ & - & 0.11423e-02,0.11552e-02,0.11689e-02,0.11828e-02,0.12002e-02 /) - kbo(:,33, 6) = (/ & - & 0.97837e-03,0.99414e-03,0.10078e-02,0.10254e-02,0.10445e-02 /) - kbo(:,34, 6) = (/ & - & 0.84508e-03,0.85961e-03,0.87553e-03,0.89474e-03,0.91454e-03 /) - kbo(:,35, 6) = (/ & - & 0.73067e-03,0.74643e-03,0.76522e-03,0.78433e-03,0.80547e-03 /) - kbo(:,36, 6) = (/ & - & 0.63501e-03,0.65286e-03,0.67124e-03,0.69177e-03,0.71245e-03 /) - kbo(:,37, 6) = (/ & - & 0.54302e-03,0.56011e-03,0.57838e-03,0.59932e-03,0.61930e-03 /) - kbo(:,38, 6) = (/ & - & 0.46413e-03,0.48141e-03,0.49888e-03,0.51888e-03,0.53851e-03 /) - kbo(:,39, 6) = (/ & - & 0.39787e-03,0.41416e-03,0.43137e-03,0.45076e-03,0.46884e-03 /) - kbo(:,40, 6) = (/ & - & 0.33542e-03,0.35026e-03,0.36640e-03,0.38421e-03,0.40074e-03 /) - kbo(:,41, 6) = (/ & - & 0.28198e-03,0.29533e-03,0.31033e-03,0.32658e-03,0.34246e-03 /) - kbo(:,42, 6) = (/ & - & 0.23644e-03,0.24877e-03,0.26248e-03,0.27695e-03,0.29184e-03 /) - kbo(:,43, 6) = (/ & - & 0.19698e-03,0.20826e-03,0.22042e-03,0.23357e-03,0.24697e-03 /) - kbo(:,44, 6) = (/ & - & 0.16338e-03,0.17334e-03,0.18409e-03,0.19557e-03,0.20792e-03 /) - kbo(:,45, 6) = (/ & - & 0.13558e-03,0.14397e-03,0.15333e-03,0.16359e-03,0.17463e-03 /) - kbo(:,46, 6) = (/ & - & 0.11191e-03,0.11919e-03,0.12729e-03,0.13624e-03,0.14629e-03 /) - kbo(:,47, 6) = (/ & - & 0.91906e-04,0.98189e-04,0.10520e-03,0.11302e-03,0.12177e-03 /) - kbo(:,48, 6) = (/ & - & 0.75087e-04,0.80743e-04,0.86708e-04,0.93427e-04,0.10110e-03 /) - kbo(:,49, 6) = (/ & - & 0.61186e-04,0.66125e-04,0.71313e-04,0.77107e-04,0.83777e-04 /) - kbo(:,50, 6) = (/ & - & 0.49938e-04,0.54303e-04,0.58807e-04,0.63705e-04,0.69474e-04 /) - kbo(:,51, 6) = (/ & - & 0.40809e-04,0.44513e-04,0.48369e-04,0.52594e-04,0.57525e-04 /) - kbo(:,52, 6) = (/ & - & 0.33309e-04,0.36401e-04,0.39694e-04,0.43295e-04,0.47517e-04 /) - kbo(:,53, 6) = (/ & - & 0.27001e-04,0.29637e-04,0.32443e-04,0.35515e-04,0.39073e-04 /) - kbo(:,54, 6) = (/ & - & 0.21920e-04,0.24176e-04,0.26587e-04,0.29204e-04,0.32173e-04 /) - kbo(:,55, 6) = (/ & - & 0.17840e-04,0.19707e-04,0.21784e-04,0.24000e-04,0.26498e-04 /) - kbo(:,56, 6) = (/ & - & 0.14500e-04,0.16042e-04,0.17779e-04,0.19655e-04,0.21743e-04 /) - kbo(:,57, 6) = (/ & - & 0.11756e-04,0.13018e-04,0.14458e-04,0.16053e-04,0.17779e-04 /) - kbo(:,58, 6) = (/ & - & 0.95229e-05,0.10574e-04,0.11760e-04,0.13107e-04,0.14585e-04 /) - kbo(:,59, 6) = (/ & - & 0.78970e-05,0.87821e-05,0.97860e-05,0.10919e-04,0.12187e-04 /) - kbo(:,13, 7) = (/ & - & 0.81347e-01,0.83688e-01,0.85307e-01,0.86283e-01,0.87010e-01 /) - kbo(:,14, 7) = (/ & - & 0.72041e-01,0.73994e-01,0.75287e-01,0.76180e-01,0.76714e-01 /) - kbo(:,15, 7) = (/ & - & 0.63278e-01,0.64818e-01,0.65954e-01,0.66651e-01,0.67143e-01 /) - kbo(:,16, 7) = (/ & - & 0.55139e-01,0.56478e-01,0.57384e-01,0.58076e-01,0.58539e-01 /) - kbo(:,17, 7) = (/ & - & 0.47894e-01,0.48966e-01,0.49829e-01,0.50447e-01,0.50916e-01 /) - kbo(:,18, 7) = (/ & - & 0.41499e-01,0.42507e-01,0.43240e-01,0.43755e-01,0.44135e-01 /) - kbo(:,19, 7) = (/ & - & 0.35885e-01,0.36754e-01,0.37403e-01,0.37954e-01,0.38313e-01 /) - kbo(:,20, 7) = (/ & - & 0.30699e-01,0.31463e-01,0.32108e-01,0.32586e-01,0.32972e-01 /) - kbo(:,21, 7) = (/ & - & 0.26192e-01,0.26846e-01,0.27409e-01,0.27839e-01,0.28217e-01 /) - kbo(:,22, 7) = (/ & - & 0.22340e-01,0.22929e-01,0.23404e-01,0.23811e-01,0.24187e-01 /) - kbo(:,23, 7) = (/ & - & 0.19095e-01,0.19575e-01,0.20007e-01,0.20410e-01,0.20766e-01 /) - kbo(:,24, 7) = (/ & - & 0.16366e-01,0.16771e-01,0.17186e-01,0.17542e-01,0.17949e-01 /) - kbo(:,25, 7) = (/ & - & 0.14069e-01,0.14481e-01,0.14832e-01,0.15200e-01,0.15580e-01 /) - kbo(:,26, 7) = (/ & - & 0.12162e-01,0.12539e-01,0.12888e-01,0.13247e-01,0.13615e-01 /) - kbo(:,27, 7) = (/ & - & 0.10528e-01,0.10892e-01,0.11265e-01,0.11631e-01,0.12012e-01 /) - kbo(:,28, 7) = (/ & - & 0.91441e-02,0.95086e-02,0.98896e-02,0.10282e-01,0.10687e-01 /) - kbo(:,29, 7) = (/ & - & 0.79938e-02,0.83641e-02,0.87511e-02,0.91674e-02,0.96121e-02 /) - kbo(:,30, 7) = (/ & - & 0.70400e-02,0.74172e-02,0.78125e-02,0.82611e-02,0.87532e-02 /) - kbo(:,31, 7) = (/ & - & 0.62612e-02,0.66491e-02,0.70836e-02,0.75546e-02,0.80730e-02 /) - kbo(:,32, 7) = (/ & - & 0.56090e-02,0.60373e-02,0.65021e-02,0.70140e-02,0.75729e-02 /) - kbo(:,33, 7) = (/ & - & 0.51011e-02,0.55473e-02,0.60429e-02,0.66026e-02,0.72780e-02 /) - kbo(:,34, 7) = (/ & - & 0.46990e-02,0.51673e-02,0.57072e-02,0.63464e-02,0.71159e-02 /) - kbo(:,35, 7) = (/ & - & 0.43314e-02,0.48384e-02,0.54243e-02,0.61639e-02,0.69924e-02 /) - kbo(:,36, 7) = (/ & - & 0.39886e-02,0.45262e-02,0.51941e-02,0.59985e-02,0.68708e-02 /) - kbo(:,37, 7) = (/ & - & 0.36017e-02,0.41399e-02,0.48219e-02,0.56481e-02,0.65560e-02 /) - kbo(:,38, 7) = (/ & - & 0.32617e-02,0.38037e-02,0.45057e-02,0.53485e-02,0.62708e-02 /) - kbo(:,39, 7) = (/ & - & 0.29777e-02,0.35364e-02,0.42387e-02,0.50890e-02,0.60544e-02 /) - kbo(:,40, 7) = (/ & - & 0.26397e-02,0.31715e-02,0.38573e-02,0.46880e-02,0.56335e-02 /) - kbo(:,41, 7) = (/ & - & 0.23227e-02,0.28385e-02,0.34927e-02,0.42880e-02,0.52154e-02 /) - kbo(:,42, 7) = (/ & - & 0.20486e-02,0.25378e-02,0.31647e-02,0.39312e-02,0.48261e-02 /) - kbo(:,43, 7) = (/ & - & 0.17755e-02,0.22226e-02,0.28140e-02,0.35274e-02,0.43895e-02 /) - kbo(:,44, 7) = (/ & - & 0.15269e-02,0.19274e-02,0.24688e-02,0.31407e-02,0.39517e-02 /) - kbo(:,45, 7) = (/ & - & 0.13050e-02,0.16697e-02,0.21647e-02,0.27916e-02,0.35423e-02 /) - kbo(:,46, 7) = (/ & - & 0.11057e-02,0.14327e-02,0.18777e-02,0.24513e-02,0.31448e-02 /) - kbo(:,47, 7) = (/ & - & 0.92448e-03,0.12134e-02,0.16064e-02,0.21237e-02,0.27575e-02 /) - kbo(:,48, 7) = (/ & - & 0.76618e-03,0.10179e-02,0.13627e-02,0.18254e-02,0.24067e-02 /) - kbo(:,49, 7) = (/ & - & 0.62940e-03,0.85036e-03,0.11489e-02,0.15623e-02,0.20896e-02 /) - kbo(:,50, 7) = (/ & - & 0.51855e-03,0.71067e-03,0.97602e-03,0.13414e-02,0.18179e-02 /) - kbo(:,51, 7) = (/ & - & 0.42590e-03,0.59305e-03,0.82548e-03,0.11486e-02,0.15798e-02 /) - kbo(:,52, 7) = (/ & - & 0.34697e-03,0.49059e-03,0.69535e-03,0.97532e-03,0.13630e-02 /) - kbo(:,53, 7) = (/ & - & 0.28092e-03,0.40191e-03,0.57931e-03,0.82673e-03,0.11685e-02 /) - kbo(:,54, 7) = (/ & - & 0.22883e-03,0.33102e-03,0.48584e-03,0.70577e-03,0.10069e-02 /) - kbo(:,55, 7) = (/ & - & 0.18567e-03,0.27212e-03,0.40629e-03,0.59966e-03,0.86643e-03 /) - kbo(:,56, 7) = (/ & - & 0.14981e-03,0.22158e-03,0.33702e-03,0.50672e-03,0.74022e-03 /) - kbo(:,57, 7) = (/ & - & 0.11956e-03,0.17899e-03,0.27717e-03,0.42406e-03,0.63003e-03 /) - kbo(:,58, 7) = (/ & - & 0.95581e-04,0.14413e-03,0.22637e-03,0.35457e-03,0.53700e-03 /) - kbo(:,59, 7) = (/ & - & 0.81967e-04,0.12578e-03,0.20146e-03,0.32061e-03,0.49099e-03 /) - kbo(:,13, 8) = (/ & - & 0.22107e+00,0.22673e+00,0.23188e+00,0.23626e+00,0.23937e+00 /) - kbo(:,14, 8) = (/ & - & 0.20348e+00,0.20983e+00,0.21521e+00,0.21960e+00,0.22328e+00 /) - kbo(:,15, 8) = (/ & - & 0.18724e+00,0.19358e+00,0.19903e+00,0.20382e+00,0.20780e+00 /) - kbo(:,16, 8) = (/ & - & 0.17271e+00,0.17902e+00,0.18466e+00,0.18949e+00,0.19358e+00 /) - kbo(:,17, 8) = (/ & - & 0.15881e+00,0.16550e+00,0.17139e+00,0.17656e+00,0.18127e+00 /) - kbo(:,18, 8) = (/ & - & 0.14632e+00,0.15311e+00,0.15937e+00,0.16532e+00,0.17049e+00 /) - kbo(:,19, 8) = (/ & - & 0.13481e+00,0.14215e+00,0.14899e+00,0.15502e+00,0.16068e+00 /) - kbo(:,20, 8) = (/ & - & 0.12437e+00,0.13191e+00,0.13890e+00,0.14560e+00,0.15188e+00 /) - kbo(:,21, 8) = (/ & - & 0.11481e+00,0.12252e+00,0.12982e+00,0.13710e+00,0.14374e+00 /) - kbo(:,22, 8) = (/ & - & 0.10661e+00,0.11453e+00,0.12244e+00,0.12996e+00,0.13720e+00 /) - kbo(:,23, 8) = (/ & - & 0.99573e-01,0.10782e+00,0.11598e+00,0.12384e+00,0.13154e+00 /) - kbo(:,24, 8) = (/ & - & 0.93585e-01,0.10212e+00,0.11044e+00,0.11870e+00,0.12683e+00 /) - kbo(:,25, 8) = (/ & - & 0.88642e-01,0.97342e-01,0.10600e+00,0.11474e+00,0.12338e+00 /) - kbo(:,26, 8) = (/ & - & 0.84783e-01,0.93706e-01,0.10275e+00,0.11190e+00,0.12089e+00 /) - kbo(:,27, 8) = (/ & - & 0.81924e-01,0.91085e-01,0.10043e+00,0.11011e+00,0.11942e+00 /) - kbo(:,28, 8) = (/ & - & 0.79898e-01,0.89495e-01,0.99246e-01,0.10903e+00,0.11866e+00 /) - kbo(:,29, 8) = (/ & - & 0.78843e-01,0.88816e-01,0.99112e-01,0.10908e+00,0.11873e+00 /) - kbo(:,30, 8) = (/ & - & 0.78672e-01,0.89175e-01,0.99763e-01,0.10991e+00,0.11974e+00 /) - kbo(:,31, 8) = (/ & - & 0.79471e-01,0.90393e-01,0.10090e+00,0.11134e+00,0.12148e+00 /) - kbo(:,32, 8) = (/ & - & 0.81097e-01,0.92118e-01,0.10299e+00,0.11352e+00,0.12362e+00 /) - kbo(:,33, 8) = (/ & - & 0.83219e-01,0.94430e-01,0.10536e+00,0.11619e+00,0.12656e+00 /) - kbo(:,34, 8) = (/ & - & 0.85363e-01,0.96707e-01,0.10798e+00,0.11904e+00,0.12986e+00 /) - kbo(:,35, 8) = (/ & - & 0.86741e-01,0.98297e-01,0.11004e+00,0.12158e+00,0.13234e+00 /) - kbo(:,36, 8) = (/ & - & 0.87017e-01,0.99113e-01,0.11121e+00,0.12302e+00,0.13390e+00 /) - kbo(:,37, 8) = (/ & - & 0.85258e-01,0.97671e-01,0.10985e+00,0.12188e+00,0.13289e+00 /) - kbo(:,38, 8) = (/ & - & 0.83622e-01,0.96133e-01,0.10847e+00,0.12060e+00,0.13189e+00 /) - kbo(:,39, 8) = (/ & - & 0.82148e-01,0.94689e-01,0.10723e+00,0.11944e+00,0.13102e+00 /) - kbo(:,40, 8) = (/ & - & 0.78933e-01,0.91494e-01,0.10410e+00,0.11650e+00,0.12816e+00 /) - kbo(:,41, 8) = (/ & - & 0.75553e-01,0.88087e-01,0.10066e+00,0.11319e+00,0.12513e+00 /) - kbo(:,42, 8) = (/ & - & 0.72215e-01,0.84600e-01,0.97314e-01,0.10990e+00,0.12202e+00 /) - kbo(:,43, 8) = (/ & - & 0.68050e-01,0.80392e-01,0.93038e-01,0.10568e+00,0.11811e+00 /) - kbo(:,44, 8) = (/ & - & 0.63504e-01,0.75885e-01,0.88427e-01,0.10109e+00,0.11352e+00 /) - kbo(:,45, 8) = (/ & - & 0.59117e-01,0.71359e-01,0.83835e-01,0.96461e-01,0.10897e+00 /) - kbo(:,46, 8) = (/ & - & 0.54516e-01,0.66547e-01,0.79117e-01,0.91745e-01,0.10426e+00 /) - kbo(:,47, 8) = (/ & - & 0.49520e-01,0.61408e-01,0.73788e-01,0.86383e-01,0.98886e-01 /) - kbo(:,48, 8) = (/ & - & 0.44727e-01,0.56224e-01,0.68415e-01,0.81094e-01,0.93621e-01 /) - kbo(:,49, 8) = (/ & - & 0.40177e-01,0.51146e-01,0.63191e-01,0.75749e-01,0.88249e-01 /) - kbo(:,50, 8) = (/ & - & 0.36081e-01,0.46596e-01,0.58341e-01,0.70769e-01,0.83353e-01 /) - kbo(:,51, 8) = (/ & - & 0.32278e-01,0.42393e-01,0.53717e-01,0.65898e-01,0.78578e-01 /) - kbo(:,52, 8) = (/ & - & 0.28586e-01,0.38352e-01,0.49175e-01,0.61145e-01,0.73682e-01 /) - kbo(:,53, 8) = (/ & - & 0.25090e-01,0.34439e-01,0.44807e-01,0.56352e-01,0.68823e-01 /) - kbo(:,54, 8) = (/ & - & 0.22080e-01,0.30938e-01,0.40952e-01,0.52101e-01,0.64364e-01 /) - kbo(:,55, 8) = (/ & - & 0.19382e-01,0.27719e-01,0.37405e-01,0.48197e-01,0.60044e-01 /) - kbo(:,56, 8) = (/ & - & 0.16835e-01,0.24689e-01,0.33908e-01,0.44390e-01,0.55911e-01 /) - kbo(:,57, 8) = (/ & - & 0.14459e-01,0.21799e-01,0.30531e-01,0.40642e-01,0.51808e-01 /) - kbo(:,58, 8) = (/ & - & 0.12380e-01,0.19213e-01,0.27475e-01,0.37204e-01,0.48065e-01 /) - kbo(:,59, 8) = (/ & - & 0.11536e-01,0.18115e-01,0.26160e-01,0.35756e-01,0.46501e-01 /) - kbo(:,13, 9) = (/ & - & 0.79231e+00,0.80247e+00,0.81169e+00,0.81859e+00,0.82469e+00 /) - kbo(:,14, 9) = (/ & - & 0.76567e+00,0.77861e+00,0.78976e+00,0.79966e+00,0.80754e+00 /) - kbo(:,15, 9) = (/ & - & 0.73926e+00,0.75515e+00,0.76982e+00,0.78244e+00,0.79228e+00 /) - kbo(:,16, 9) = (/ & - & 0.71308e+00,0.73273e+00,0.74955e+00,0.76355e+00,0.77553e+00 /) - kbo(:,17, 9) = (/ & - & 0.68845e+00,0.70973e+00,0.72813e+00,0.74466e+00,0.75909e+00 /) - kbo(:,18, 9) = (/ & - & 0.66397e+00,0.68720e+00,0.70872e+00,0.72756e+00,0.74467e+00 /) - kbo(:,19, 9) = (/ & - & 0.64097e+00,0.66723e+00,0.69155e+00,0.71362e+00,0.73339e+00 /) - kbo(:,20, 9) = (/ & - & 0.62162e+00,0.65070e+00,0.67764e+00,0.70183e+00,0.72348e+00 /) - kbo(:,21, 9) = (/ & - & 0.60571e+00,0.63800e+00,0.66649e+00,0.69291e+00,0.71712e+00 /) - kbo(:,22, 9) = (/ & - & 0.59651e+00,0.62972e+00,0.66058e+00,0.68832e+00,0.71517e+00 /) - kbo(:,23, 9) = (/ & - & 0.58974e+00,0.62545e+00,0.65753e+00,0.68785e+00,0.71519e+00 /) - kbo(:,24, 9) = (/ & - & 0.58721e+00,0.62395e+00,0.65801e+00,0.68952e+00,0.71705e+00 /) - kbo(:,25, 9) = (/ & - & 0.58931e+00,0.62554e+00,0.66080e+00,0.69275e+00,0.72212e+00 /) - kbo(:,26, 9) = (/ & - & 0.59392e+00,0.63108e+00,0.66576e+00,0.69831e+00,0.72831e+00 /) - kbo(:,27, 9) = (/ & - & 0.60088e+00,0.63911e+00,0.67310e+00,0.70594e+00,0.73492e+00 /) - kbo(:,28, 9) = (/ & - & 0.61058e+00,0.64827e+00,0.68351e+00,0.71436e+00,0.74248e+00 /) - kbo(:,29, 9) = (/ & - & 0.62259e+00,0.66086e+00,0.69462e+00,0.72450e+00,0.75205e+00 /) - kbo(:,30, 9) = (/ & - & 0.63547e+00,0.67373e+00,0.70715e+00,0.73642e+00,0.76277e+00 /) - kbo(:,31, 9) = (/ & - & 0.65060e+00,0.68811e+00,0.72216e+00,0.75104e+00,0.77730e+00 /) - kbo(:,32, 9) = (/ & - & 0.66635e+00,0.70367e+00,0.73703e+00,0.76712e+00,0.79450e+00 /) - kbo(:,33, 9) = (/ & - & 0.68330e+00,0.72114e+00,0.75529e+00,0.78560e+00,0.81251e+00 /) - kbo(:,34, 9) = (/ & - & 0.69895e+00,0.73787e+00,0.77209e+00,0.80355e+00,0.82948e+00 /) - kbo(:,35, 9) = (/ & - & 0.71249e+00,0.75244e+00,0.78786e+00,0.82021e+00,0.84807e+00 /) - kbo(:,36, 9) = (/ & - & 0.72352e+00,0.76491e+00,0.80192e+00,0.83419e+00,0.86330e+00 /) - kbo(:,37, 9) = (/ & - & 0.72315e+00,0.76487e+00,0.80310e+00,0.83637e+00,0.86732e+00 /) - kbo(:,38, 9) = (/ & - & 0.72144e+00,0.76571e+00,0.80444e+00,0.83852e+00,0.86991e+00 /) - kbo(:,39, 9) = (/ & - & 0.72061e+00,0.76655e+00,0.80661e+00,0.84238e+00,0.87357e+00 /) - kbo(:,40, 9) = (/ & - & 0.71071e+00,0.75799e+00,0.79882e+00,0.83566e+00,0.86813e+00 /) - kbo(:,41, 9) = (/ & - & 0.69960e+00,0.74652e+00,0.79034e+00,0.82858e+00,0.86201e+00 /) - kbo(:,42, 9) = (/ & - & 0.68767e+00,0.73584e+00,0.78080e+00,0.82018e+00,0.85505e+00 /) - kbo(:,43, 9) = (/ & - & 0.67181e+00,0.72136e+00,0.76709e+00,0.80803e+00,0.84449e+00 /) - kbo(:,44, 9) = (/ & - & 0.65485e+00,0.70505e+00,0.75190e+00,0.79482e+00,0.83260e+00 /) - kbo(:,45, 9) = (/ & - & 0.63639e+00,0.68756e+00,0.73541e+00,0.78029e+00,0.82060e+00 /) - kbo(:,46, 9) = (/ & - & 0.61610e+00,0.67008e+00,0.71893e+00,0.76424e+00,0.80647e+00 /) - kbo(:,47, 9) = (/ & - & 0.59373e+00,0.64972e+00,0.69969e+00,0.74707e+00,0.79068e+00 /) - kbo(:,48, 9) = (/ & - & 0.56865e+00,0.62791e+00,0.68069e+00,0.72878e+00,0.77390e+00 /) - kbo(:,49, 9) = (/ & - & 0.54350e+00,0.60516e+00,0.66027e+00,0.71007e+00,0.75592e+00 /) - kbo(:,50, 9) = (/ & - & 0.51991e+00,0.58375e+00,0.64136e+00,0.69342e+00,0.74093e+00 /) - kbo(:,51, 9) = (/ & - & 0.49673e+00,0.56229e+00,0.62200e+00,0.67685e+00,0.72556e+00 /) - kbo(:,52, 9) = (/ & - & 0.47256e+00,0.53950e+00,0.60133e+00,0.65838e+00,0.70926e+00 /) - kbo(:,53, 9) = (/ & - & 0.44771e+00,0.51552e+00,0.57980e+00,0.63854e+00,0.69202e+00 /) - kbo(:,54, 9) = (/ & - & 0.42506e+00,0.49358e+00,0.56009e+00,0.62090e+00,0.67547e+00 /) - kbo(:,55, 9) = (/ & - & 0.40218e+00,0.47240e+00,0.53999e+00,0.60216e+00,0.65925e+00 /) - kbo(:,56, 9) = (/ & - & 0.37888e+00,0.45101e+00,0.51913e+00,0.58357e+00,0.64216e+00 /) - kbo(:,57, 9) = (/ & - & 0.35513e+00,0.42824e+00,0.49765e+00,0.56376e+00,0.62409e+00 /) - kbo(:,58, 9) = (/ & - & 0.33174e+00,0.40632e+00,0.47713e+00,0.54453e+00,0.60605e+00 /) - kbo(:,59, 9) = (/ & - & 0.32315e+00,0.39758e+00,0.46935e+00,0.53732e+00,0.59942e+00 /) - kbo(:,13,10) = (/ & - & 0.20814e+01,0.20759e+01,0.20660e+01,0.20703e+01,0.20598e+01 /) - kbo(:,14,10) = (/ & - & 0.20861e+01,0.20862e+01,0.20902e+01,0.20921e+01,0.20850e+01 /) - kbo(:,15,10) = (/ & - & 0.20793e+01,0.20969e+01,0.21057e+01,0.21014e+01,0.21089e+01 /) - kbo(:,16,10) = (/ & - & 0.20801e+01,0.20948e+01,0.21151e+01,0.21351e+01,0.21560e+01 /) - kbo(:,17,10) = (/ & - & 0.20802e+01,0.21249e+01,0.21608e+01,0.21842e+01,0.21924e+01 /) - kbo(:,18,10) = (/ & - & 0.20972e+01,0.21483e+01,0.21814e+01,0.21999e+01,0.22088e+01 /) - kbo(:,19,10) = (/ & - & 0.21086e+01,0.21513e+01,0.21845e+01,0.22099e+01,0.22261e+01 /) - kbo(:,20,10) = (/ & - & 0.21001e+01,0.21488e+01,0.21917e+01,0.22212e+01,0.22394e+01 /) - kbo(:,21,10) = (/ & - & 0.20945e+01,0.21494e+01,0.22004e+01,0.22330e+01,0.22537e+01 /) - kbo(:,22,10) = (/ & - & 0.20951e+01,0.21635e+01,0.22151e+01,0.22483e+01,0.22658e+01 /) - kbo(:,23,10) = (/ & - & 0.21106e+01,0.21802e+01,0.22288e+01,0.22593e+01,0.22769e+01 /) - kbo(:,24,10) = (/ & - & 0.21251e+01,0.21978e+01,0.22479e+01,0.22750e+01,0.23069e+01 /) - kbo(:,25,10) = (/ & - & 0.21350e+01,0.22127e+01,0.22620e+01,0.22919e+01,0.23205e+01 /) - kbo(:,26,10) = (/ & - & 0.21397e+01,0.22248e+01,0.22778e+01,0.23148e+01,0.23338e+01 /) - kbo(:,27,10) = (/ & - & 0.21476e+01,0.22244e+01,0.22911e+01,0.23271e+01,0.23529e+01 /) - kbo(:,28,10) = (/ & - & 0.21502e+01,0.22263e+01,0.22854e+01,0.23382e+01,0.23803e+01 /) - kbo(:,29,10) = (/ & - & 0.21444e+01,0.22159e+01,0.22839e+01,0.23447e+01,0.24026e+01 /) - kbo(:,30,10) = (/ & - & 0.21459e+01,0.22135e+01,0.22803e+01,0.23564e+01,0.24114e+01 /) - kbo(:,31,10) = (/ & - & 0.21548e+01,0.22131e+01,0.22785e+01,0.23559e+01,0.23993e+01 /) - kbo(:,32,10) = (/ & - & 0.21820e+01,0.22366e+01,0.23010e+01,0.23445e+01,0.23808e+01 /) - kbo(:,33,10) = (/ & - & 0.22356e+01,0.22739e+01,0.22923e+01,0.23386e+01,0.23842e+01 /) - kbo(:,34,10) = (/ & - & 0.22861e+01,0.23162e+01,0.23352e+01,0.23408e+01,0.23839e+01 /) - kbo(:,35,10) = (/ & - & 0.23385e+01,0.23680e+01,0.23728e+01,0.23741e+01,0.23938e+01 /) - kbo(:,36,10) = (/ & - & 0.23851e+01,0.24072e+01,0.24258e+01,0.24337e+01,0.24446e+01 /) - kbo(:,37,10) = (/ & - & 0.23954e+01,0.24271e+01,0.24525e+01,0.24638e+01,0.24744e+01 /) - kbo(:,38,10) = (/ & - & 0.24138e+01,0.24360e+01,0.24658e+01,0.24931e+01,0.25112e+01 /) - kbo(:,39,10) = (/ & - & 0.24207e+01,0.24415e+01,0.24747e+01,0.25054e+01,0.25446e+01 /) - kbo(:,40,10) = (/ & - & 0.24183e+01,0.24401e+01,0.24836e+01,0.25135e+01,0.25532e+01 /) - kbo(:,41,10) = (/ & - & 0.24046e+01,0.24486e+01,0.24788e+01,0.25037e+01,0.25503e+01 /) - kbo(:,42,10) = (/ & - & 0.23965e+01,0.24448e+01,0.24659e+01,0.25035e+01,0.25440e+01 /) - kbo(:,43,10) = (/ & - & 0.23757e+01,0.24456e+01,0.24672e+01,0.25043e+01,0.25340e+01 /) - kbo(:,44,10) = (/ & - & 0.23417e+01,0.24271e+01,0.24708e+01,0.24891e+01,0.25157e+01 /) - kbo(:,45,10) = (/ & - & 0.23140e+01,0.24224e+01,0.24648e+01,0.24895e+01,0.25109e+01 /) - kbo(:,46,10) = (/ & - & 0.22839e+01,0.23815e+01,0.24548e+01,0.24874e+01,0.24983e+01 /) - kbo(:,47,10) = (/ & - & 0.22509e+01,0.23585e+01,0.24548e+01,0.24976e+01,0.25158e+01 /) - kbo(:,48,10) = (/ & - & 0.22243e+01,0.23182e+01,0.24167e+01,0.24851e+01,0.25144e+01 /) - kbo(:,49,10) = (/ & - & 0.21934e+01,0.22838e+01,0.23882e+01,0.24694e+01,0.25145e+01 /) - kbo(:,50,10) = (/ & - & 0.21637e+01,0.22591e+01,0.23593e+01,0.24450e+01,0.25097e+01 /) - kbo(:,51,10) = (/ & - & 0.21256e+01,0.22383e+01,0.23340e+01,0.24239e+01,0.25025e+01 /) - kbo(:,52,10) = (/ & - & 0.20804e+01,0.22090e+01,0.23144e+01,0.24005e+01,0.24803e+01 /) - kbo(:,53,10) = (/ & - & 0.20229e+01,0.21712e+01,0.22790e+01,0.23709e+01,0.24497e+01 /) - kbo(:,54,10) = (/ & - & 0.19647e+01,0.21430e+01,0.22514e+01,0.23430e+01,0.24343e+01 /) - kbo(:,55,10) = (/ & - & 0.19094e+01,0.20990e+01,0.22287e+01,0.23283e+01,0.24126e+01 /) - kbo(:,56,10) = (/ & - & 0.18499e+01,0.20432e+01,0.21961e+01,0.22965e+01,0.23921e+01 /) - kbo(:,57,10) = (/ & - & 0.17845e+01,0.19868e+01,0.21557e+01,0.22661e+01,0.23666e+01 /) - kbo(:,58,10) = (/ & - & 0.17304e+01,0.19324e+01,0.21130e+01,0.22379e+01,0.23344e+01 /) - kbo(:,59,10) = (/ & - & 0.17036e+01,0.19129e+01,0.20925e+01,0.22299e+01,0.23291e+01 /) - kbo(:,13,11) = (/ & - & 0.28487e+01,0.28532e+01,0.28392e+01,0.28113e+01,0.28077e+01 /) - kbo(:,14,11) = (/ & - & 0.29217e+01,0.29135e+01,0.28970e+01,0.28895e+01,0.29104e+01 /) - kbo(:,15,11) = (/ & - & 0.29720e+01,0.29567e+01,0.29515e+01,0.29771e+01,0.29749e+01 /) - kbo(:,16,11) = (/ & - & 0.29934e+01,0.30029e+01,0.30226e+01,0.30339e+01,0.30204e+01 /) - kbo(:,17,11) = (/ & - & 0.30408e+01,0.30652e+01,0.30797e+01,0.30959e+01,0.31120e+01 /) - kbo(:,18,11) = (/ & - & 0.31059e+01,0.31457e+01,0.31893e+01,0.32154e+01,0.32284e+01 /) - kbo(:,19,11) = (/ & - & 0.31895e+01,0.32505e+01,0.32863e+01,0.32994e+01,0.32949e+01 /) - kbo(:,20,11) = (/ & - & 0.32605e+01,0.33203e+01,0.33389e+01,0.33469e+01,0.33350e+01 /) - kbo(:,21,11) = (/ & - & 0.33097e+01,0.33567e+01,0.33762e+01,0.33842e+01,0.33798e+01 /) - kbo(:,22,11) = (/ & - & 0.33482e+01,0.33901e+01,0.34068e+01,0.34227e+01,0.34010e+01 /) - kbo(:,23,11) = (/ & - & 0.33722e+01,0.34154e+01,0.34438e+01,0.34434e+01,0.34235e+01 /) - kbo(:,24,11) = (/ & - & 0.33951e+01,0.34377e+01,0.34659e+01,0.34658e+01,0.34557e+01 /) - kbo(:,25,11) = (/ & - & 0.34209e+01,0.34720e+01,0.34904e+01,0.34950e+01,0.34725e+01 /) - kbo(:,26,11) = (/ & - & 0.34497e+01,0.34967e+01,0.35233e+01,0.35072e+01,0.34967e+01 /) - kbo(:,27,11) = (/ & - & 0.34791e+01,0.35327e+01,0.35370e+01,0.35122e+01,0.35139e+01 /) - kbo(:,28,11) = (/ & - & 0.35134e+01,0.35471e+01,0.35465e+01,0.35405e+01,0.35525e+01 /) - kbo(:,29,11) = (/ & - & 0.35424e+01,0.35704e+01,0.35632e+01,0.35824e+01,0.35567e+01 /) - kbo(:,30,11) = (/ & - & 0.35629e+01,0.35947e+01,0.35992e+01,0.36011e+01,0.36027e+01 /) - kbo(:,31,11) = (/ & - & 0.35753e+01,0.36045e+01,0.36365e+01,0.36213e+01,0.36310e+01 /) - kbo(:,32,11) = (/ & - & 0.35596e+01,0.36100e+01,0.36333e+01,0.36490e+01,0.36651e+01 /) - kbo(:,33,11) = (/ & - & 0.35241e+01,0.35883e+01,0.36383e+01,0.36740e+01,0.36685e+01 /) - kbo(:,34,11) = (/ & - & 0.35027e+01,0.35491e+01,0.36249e+01,0.36739e+01,0.36810e+01 /) - kbo(:,35,11) = (/ & - & 0.34699e+01,0.35289e+01,0.35926e+01,0.36193e+01,0.36411e+01 /) - kbo(:,36,11) = (/ & - & 0.35153e+01,0.35225e+01,0.35498e+01,0.35989e+01,0.36429e+01 /) - kbo(:,37,11) = (/ & - & 0.35644e+01,0.35488e+01,0.35358e+01,0.35755e+01,0.36247e+01 /) - kbo(:,38,11) = (/ & - & 0.35952e+01,0.35902e+01,0.35685e+01,0.35598e+01,0.35995e+01 /) - kbo(:,39,11) = (/ & - & 0.36371e+01,0.36388e+01,0.36159e+01,0.35751e+01,0.35930e+01 /) - kbo(:,40,11) = (/ & - & 0.36530e+01,0.36611e+01,0.36495e+01,0.35923e+01,0.35985e+01 /) - kbo(:,41,11) = (/ & - & 0.36431e+01,0.36852e+01,0.36606e+01,0.36324e+01,0.35949e+01 /) - kbo(:,42,11) = (/ & - & 0.36510e+01,0.36940e+01,0.36905e+01,0.36729e+01,0.36122e+01 /) - kbo(:,43,11) = (/ & - & 0.36633e+01,0.36955e+01,0.37103e+01,0.36924e+01,0.36526e+01 /) - kbo(:,44,11) = (/ & - & 0.36584e+01,0.36852e+01,0.37131e+01,0.37219e+01,0.36946e+01 /) - kbo(:,45,11) = (/ & - & 0.36636e+01,0.36530e+01,0.37160e+01,0.37197e+01,0.37150e+01 /) - kbo(:,46,11) = (/ & - & 0.36713e+01,0.36779e+01,0.37130e+01,0.37408e+01,0.37431e+01 /) - kbo(:,47,11) = (/ & - & 0.36885e+01,0.36889e+01,0.37012e+01,0.37377e+01,0.37538e+01 /) - kbo(:,48,11) = (/ & - & 0.36735e+01,0.37253e+01,0.37092e+01,0.37311e+01,0.37444e+01 /) - kbo(:,49,11) = (/ & - & 0.36543e+01,0.37300e+01,0.37306e+01,0.37311e+01,0.37688e+01 /) - kbo(:,50,11) = (/ & - & 0.36397e+01,0.37435e+01,0.37659e+01,0.37491e+01,0.37600e+01 /) - kbo(:,51,11) = (/ & - & 0.36124e+01,0.37293e+01,0.37963e+01,0.37839e+01,0.37789e+01 /) - kbo(:,52,11) = (/ & - & 0.35636e+01,0.37078e+01,0.37818e+01,0.38114e+01,0.37775e+01 /) - kbo(:,53,11) = (/ & - & 0.34978e+01,0.36691e+01,0.37922e+01,0.38152e+01,0.38092e+01 /) - kbo(:,54,11) = (/ & - & 0.34749e+01,0.36230e+01,0.37686e+01,0.38328e+01,0.38292e+01 /) - kbo(:,55,11) = (/ & - & 0.34238e+01,0.35883e+01,0.37261e+01,0.38299e+01,0.38488e+01 /) - kbo(:,56,11) = (/ & - & 0.33568e+01,0.35597e+01,0.37073e+01,0.38247e+01,0.38591e+01 /) - kbo(:,57,11) = (/ & - & 0.32794e+01,0.35193e+01,0.36712e+01,0.37875e+01,0.38581e+01 /) - kbo(:,58,11) = (/ & - & 0.31971e+01,0.34544e+01,0.36268e+01,0.37609e+01,0.38393e+01 /) - kbo(:,59,11) = (/ & - & 0.31680e+01,0.34441e+01,0.36338e+01,0.37596e+01,0.38510e+01 /) - kbo(:,13,12) = (/ & - & 0.40944e+01,0.40706e+01,0.40738e+01,0.40615e+01,0.40255e+01 /) - kbo(:,14,12) = (/ & - & 0.42568e+01,0.42640e+01,0.42578e+01,0.42281e+01,0.41677e+01 /) - kbo(:,15,12) = (/ & - & 0.44471e+01,0.44460e+01,0.44235e+01,0.43647e+01,0.43107e+01 /) - kbo(:,16,12) = (/ & - & 0.45971e+01,0.45776e+01,0.45277e+01,0.44905e+01,0.45101e+01 /) - kbo(:,17,12) = (/ & - & 0.46780e+01,0.46358e+01,0.46311e+01,0.46380e+01,0.46103e+01 /) - kbo(:,18,12) = (/ & - & 0.47294e+01,0.47444e+01,0.47418e+01,0.47299e+01,0.47059e+01 /) - kbo(:,19,12) = (/ & - & 0.48604e+01,0.48842e+01,0.48819e+01,0.49000e+01,0.48969e+01 /) - kbo(:,20,12) = (/ & - & 0.49979e+01,0.50271e+01,0.50614e+01,0.50783e+01,0.50637e+01 /) - kbo(:,21,12) = (/ & - & 0.51216e+01,0.51841e+01,0.52155e+01,0.52098e+01,0.51706e+01 /) - kbo(:,22,12) = (/ & - & 0.52796e+01,0.53177e+01,0.53275e+01,0.53003e+01,0.52540e+01 /) - kbo(:,23,12) = (/ & - & 0.54021e+01,0.54214e+01,0.54107e+01,0.53770e+01,0.53308e+01 /) - kbo(:,24,12) = (/ & - & 0.54951e+01,0.54954e+01,0.54655e+01,0.54275e+01,0.53548e+01 /) - kbo(:,25,12) = (/ & - & 0.55606e+01,0.55401e+01,0.55126e+01,0.54611e+01,0.53900e+01 /) - kbo(:,26,12) = (/ & - & 0.56084e+01,0.55775e+01,0.55344e+01,0.54935e+01,0.53765e+01 /) - kbo(:,27,12) = (/ & - & 0.56424e+01,0.55975e+01,0.55674e+01,0.55057e+01,0.54137e+01 /) - kbo(:,28,12) = (/ & - & 0.56582e+01,0.56350e+01,0.55811e+01,0.55009e+01,0.54160e+01 /) - kbo(:,29,12) = (/ & - & 0.56833e+01,0.56401e+01,0.55975e+01,0.55109e+01,0.54249e+01 /) - kbo(:,30,12) = (/ & - & 0.57003e+01,0.56620e+01,0.55904e+01,0.55121e+01,0.54542e+01 /) - kbo(:,31,12) = (/ & - & 0.57132e+01,0.56848e+01,0.56091e+01,0.55447e+01,0.55236e+01 /) - kbo(:,32,12) = (/ & - & 0.57800e+01,0.57027e+01,0.56220e+01,0.56024e+01,0.55523e+01 /) - kbo(:,33,12) = (/ & - & 0.57668e+01,0.57069e+01,0.56826e+01,0.56406e+01,0.56224e+01 /) - kbo(:,34,12) = (/ & - & 0.57877e+01,0.57628e+01,0.57465e+01,0.57131e+01,0.56752e+01 /) - kbo(:,35,12) = (/ & - & 0.58053e+01,0.58032e+01,0.57814e+01,0.58008e+01,0.57412e+01 /) - kbo(:,36,12) = (/ & - & 0.57386e+01,0.58034e+01,0.57934e+01,0.57973e+01,0.57760e+01 /) - kbo(:,37,12) = (/ & - & 0.56650e+01,0.57400e+01,0.57795e+01,0.58096e+01,0.57723e+01 /) - kbo(:,38,12) = (/ & - & 0.56068e+01,0.56512e+01,0.57137e+01,0.58154e+01,0.57795e+01 /) - kbo(:,39,12) = (/ & - & 0.55712e+01,0.56156e+01,0.56456e+01,0.57952e+01,0.57768e+01 /) - kbo(:,40,12) = (/ & - & 0.55331e+01,0.55774e+01,0.56049e+01,0.57462e+01,0.57382e+01 /) - kbo(:,41,12) = (/ & - & 0.55579e+01,0.55330e+01,0.55754e+01,0.56805e+01,0.57245e+01 /) - kbo(:,42,12) = (/ & - & 0.55684e+01,0.55372e+01,0.55455e+01,0.56019e+01,0.57291e+01 /) - kbo(:,43,12) = (/ & - & 0.56282e+01,0.55547e+01,0.55863e+01,0.55852e+01,0.56892e+01 /) - kbo(:,44,12) = (/ & - & 0.56429e+01,0.55998e+01,0.55663e+01,0.55662e+01,0.56522e+01 /) - kbo(:,45,12) = (/ & - & 0.56488e+01,0.56642e+01,0.55915e+01,0.56136e+01,0.56176e+01 /) - kbo(:,46,12) = (/ & - & 0.57246e+01,0.57165e+01,0.56557e+01,0.56271e+01,0.56227e+01 /) - kbo(:,47,12) = (/ & - & 0.57406e+01,0.57550e+01,0.57336e+01,0.56616e+01,0.56928e+01 /) - kbo(:,48,12) = (/ & - & 0.57616e+01,0.57715e+01,0.57765e+01,0.57429e+01,0.57151e+01 /) - kbo(:,49,12) = (/ & - & 0.58013e+01,0.57807e+01,0.58014e+01,0.57796e+01,0.57022e+01 /) - kbo(:,50,12) = (/ & - & 0.58611e+01,0.58307e+01,0.58954e+01,0.58904e+01,0.58254e+01 /) - kbo(:,51,12) = (/ & - & 0.59182e+01,0.59013e+01,0.59353e+01,0.59746e+01,0.59215e+01 /) - kbo(:,52,12) = (/ & - & 0.59636e+01,0.59631e+01,0.59638e+01,0.60147e+01,0.60288e+01 /) - kbo(:,53,12) = (/ & - & 0.60261e+01,0.59972e+01,0.59771e+01,0.60154e+01,0.60632e+01 /) - kbo(:,54,12) = (/ & - & 0.60204e+01,0.60805e+01,0.60002e+01,0.60580e+01,0.60854e+01 /) - kbo(:,55,12) = (/ & - & 0.60584e+01,0.61138e+01,0.60917e+01,0.60710e+01,0.61237e+01 /) - kbo(:,56,12) = (/ & - & 0.60402e+01,0.61059e+01,0.61154e+01,0.61008e+01,0.61463e+01 /) - kbo(:,57,12) = (/ & - & 0.60080e+01,0.61076e+01,0.61306e+01,0.61548e+01,0.61892e+01 /) - kbo(:,58,12) = (/ & - & 0.59781e+01,0.61168e+01,0.61621e+01,0.61680e+01,0.62246e+01 /) - kbo(:,59,12) = (/ & - & 0.59824e+01,0.60878e+01,0.61825e+01,0.62179e+01,0.62658e+01 /) - kbo(:,13,13) = (/ & - & 0.62252e+01,0.61003e+01,0.59711e+01,0.58641e+01,0.57820e+01 /) - kbo(:,14,13) = (/ & - & 0.66429e+01,0.64784e+01,0.63526e+01,0.62330e+01,0.61644e+01 /) - kbo(:,15,13) = (/ & - & 0.69743e+01,0.68232e+01,0.67077e+01,0.66230e+01,0.65438e+01 /) - kbo(:,16,13) = (/ & - & 0.72971e+01,0.72050e+01,0.71016e+01,0.69747e+01,0.67726e+01 /) - kbo(:,17,13) = (/ & - & 0.77109e+01,0.75892e+01,0.74253e+01,0.72127e+01,0.70341e+01 /) - kbo(:,18,13) = (/ & - & 0.80450e+01,0.78275e+01,0.75988e+01,0.74227e+01,0.73977e+01 /) - kbo(:,19,13) = (/ & - & 0.81727e+01,0.79248e+01,0.78355e+01,0.77125e+01,0.75391e+01 /) - kbo(:,20,13) = (/ & - & 0.82796e+01,0.81265e+01,0.80271e+01,0.78599e+01,0.77204e+01 /) - kbo(:,21,13) = (/ & - & 0.84685e+01,0.83415e+01,0.82106e+01,0.80317e+01,0.78896e+01 /) - kbo(:,22,13) = (/ & - & 0.86169e+01,0.85255e+01,0.83779e+01,0.82528e+01,0.81573e+01 /) - kbo(:,23,13) = (/ & - & 0.88276e+01,0.86892e+01,0.86001e+01,0.84644e+01,0.83125e+01 /) - kbo(:,24,13) = (/ & - & 0.89834e+01,0.88963e+01,0.87866e+01,0.86675e+01,0.84751e+01 /) - kbo(:,25,13) = (/ & - & 0.91971e+01,0.90977e+01,0.89941e+01,0.88254e+01,0.85750e+01 /) - kbo(:,26,13) = (/ & - & 0.93611e+01,0.92762e+01,0.91306e+01,0.88795e+01,0.86828e+01 /) - kbo(:,27,13) = (/ & - & 0.95231e+01,0.94096e+01,0.91709e+01,0.89786e+01,0.86968e+01 /) - kbo(:,28,13) = (/ & - & 0.96495e+01,0.94564e+01,0.92347e+01,0.89785e+01,0.86180e+01 /) - kbo(:,29,13) = (/ & - & 0.97336e+01,0.94935e+01,0.92561e+01,0.89137e+01,0.86661e+01 /) - kbo(:,30,13) = (/ & - & 0.97605e+01,0.95111e+01,0.92200e+01,0.89355e+01,0.85920e+01 /) - kbo(:,31,13) = (/ & - & 0.97562e+01,0.95167e+01,0.91771e+01,0.88618e+01,0.85414e+01 /) - kbo(:,32,13) = (/ & - & 0.97192e+01,0.94434e+01,0.91403e+01,0.87870e+01,0.85159e+01 /) - kbo(:,33,13) = (/ & - & 0.97162e+01,0.94370e+01,0.90971e+01,0.88239e+01,0.85528e+01 /) - kbo(:,34,13) = (/ & - & 0.96997e+01,0.93448e+01,0.90783e+01,0.87958e+01,0.87225e+01 /) - kbo(:,35,13) = (/ & - & 0.97261e+01,0.93769e+01,0.90457e+01,0.89061e+01,0.87695e+01 /) - kbo(:,36,13) = (/ & - & 0.97573e+01,0.94639e+01,0.92105e+01,0.90277e+01,0.88187e+01 /) - kbo(:,37,13) = (/ & - & 0.98297e+01,0.95424e+01,0.93169e+01,0.90796e+01,0.89104e+01 /) - kbo(:,38,13) = (/ & - & 0.99015e+01,0.96432e+01,0.94039e+01,0.91616e+01,0.89941e+01 /) - kbo(:,39,13) = (/ & - & 0.99137e+01,0.96714e+01,0.94790e+01,0.92092e+01,0.90352e+01 /) - kbo(:,40,13) = (/ & - & 0.99728e+01,0.96872e+01,0.94263e+01,0.92759e+01,0.90690e+01 /) - kbo(:,41,13) = (/ & - & 0.10009e+02,0.96720e+01,0.94529e+01,0.92520e+01,0.90775e+01 /) - kbo(:,42,13) = (/ & - & 0.99394e+01,0.96947e+01,0.94735e+01,0.92670e+01,0.90312e+01 /) - kbo(:,43,13) = (/ & - & 0.98412e+01,0.96685e+01,0.93802e+01,0.91747e+01,0.90019e+01 /) - kbo(:,44,13) = (/ & - & 0.98284e+01,0.96419e+01,0.93576e+01,0.91166e+01,0.88968e+01 /) - kbo(:,45,13) = (/ & - & 0.98765e+01,0.96737e+01,0.94176e+01,0.90811e+01,0.88300e+01 /) - kbo(:,46,13) = (/ & - & 0.99370e+01,0.96739e+01,0.94534e+01,0.91692e+01,0.88574e+01 /) - kbo(:,47,13) = (/ & - & 0.10145e+02,0.99712e+01,0.96675e+01,0.93530e+01,0.89895e+01 /) - kbo(:,48,13) = (/ & - & 0.10395e+02,0.10167e+02,0.99330e+01,0.95943e+01,0.92927e+01 /) - kbo(:,49,13) = (/ & - & 0.10580e+02,0.10365e+02,0.10114e+02,0.98197e+01,0.95303e+01 /) - kbo(:,50,13) = (/ & - & 0.10794e+02,0.10715e+02,0.10421e+02,0.10154e+02,0.98629e+01 /) - kbo(:,51,13) = (/ & - & 0.10946e+02,0.10939e+02,0.10689e+02,0.10427e+02,0.10145e+02 /) - kbo(:,52,13) = (/ & - & 0.11156e+02,0.11126e+02,0.10973e+02,0.10622e+02,0.10371e+02 /) - kbo(:,53,13) = (/ & - & 0.11165e+02,0.11308e+02,0.11212e+02,0.10985e+02,0.10624e+02 /) - kbo(:,54,13) = (/ & - & 0.11221e+02,0.11354e+02,0.11431e+02,0.11243e+02,0.10959e+02 /) - kbo(:,55,13) = (/ & - & 0.11238e+02,0.11406e+02,0.11591e+02,0.11479e+02,0.11275e+02 /) - kbo(:,56,13) = (/ & - & 0.11335e+02,0.11405e+02,0.11662e+02,0.11637e+02,0.11480e+02 /) - kbo(:,57,13) = (/ & - & 0.11355e+02,0.11451e+02,0.11592e+02,0.11670e+02,0.11515e+02 /) - kbo(:,58,13) = (/ & - & 0.11389e+02,0.11476e+02,0.11586e+02,0.11657e+02,0.11618e+02 /) - kbo(:,59,13) = (/ & - & 0.11480e+02,0.11599e+02,0.11673e+02,0.11677e+02,0.11653e+02 /) - kbo(:,13,14) = (/ & - & 0.97590e+01,0.94275e+01,0.91020e+01,0.89149e+01,0.87289e+01 /) - kbo(:,14,14) = (/ & - & 0.10505e+02,0.10164e+02,0.99232e+01,0.97321e+01,0.94201e+01 /) - kbo(:,15,14) = (/ & - & 0.11237e+02,0.10955e+02,0.10714e+02,0.10370e+02,0.10019e+02 /) - kbo(:,16,14) = (/ & - & 0.12124e+02,0.11740e+02,0.11352e+02,0.10992e+02,0.10632e+02 /) - kbo(:,17,14) = (/ & - & 0.12886e+02,0.12429e+02,0.12001e+02,0.11642e+02,0.11273e+02 /) - kbo(:,18,14) = (/ & - & 0.13556e+02,0.13047e+02,0.12733e+02,0.12297e+02,0.11616e+02 /) - kbo(:,19,14) = (/ & - & 0.14349e+02,0.13901e+02,0.13193e+02,0.12562e+02,0.12015e+02 /) - kbo(:,20,14) = (/ & - & 0.15084e+02,0.14361e+02,0.13567e+02,0.12903e+02,0.12393e+02 /) - kbo(:,21,14) = (/ & - & 0.15509e+02,0.14641e+02,0.13824e+02,0.13136e+02,0.12832e+02 /) - kbo(:,22,14) = (/ & - & 0.15737e+02,0.14756e+02,0.13944e+02,0.13493e+02,0.13014e+02 /) - kbo(:,23,14) = (/ & - & 0.15733e+02,0.14806e+02,0.14130e+02,0.13708e+02,0.13129e+02 /) - kbo(:,24,14) = (/ & - & 0.15735e+02,0.14832e+02,0.14382e+02,0.13702e+02,0.13090e+02 /) - kbo(:,25,14) = (/ & - & 0.15596e+02,0.15046e+02,0.14369e+02,0.13676e+02,0.13207e+02 /) - kbo(:,26,14) = (/ & - & 0.15679e+02,0.15085e+02,0.14382e+02,0.13864e+02,0.13243e+02 /) - kbo(:,27,14) = (/ & - & 0.15773e+02,0.15051e+02,0.14458e+02,0.13792e+02,0.13309e+02 /) - kbo(:,28,14) = (/ & - & 0.15791e+02,0.15118e+02,0.14520e+02,0.13908e+02,0.13506e+02 /) - kbo(:,29,14) = (/ & - & 0.15907e+02,0.15282e+02,0.14696e+02,0.14168e+02,0.13591e+02 /) - kbo(:,30,14) = (/ & - & 0.15997e+02,0.15426e+02,0.14908e+02,0.14325e+02,0.13655e+02 /) - kbo(:,31,14) = (/ & - & 0.16254e+02,0.15640e+02,0.15053e+02,0.14410e+02,0.13542e+02 /) - kbo(:,32,14) = (/ & - & 0.16522e+02,0.15885e+02,0.15194e+02,0.14363e+02,0.13365e+02 /) - kbo(:,33,14) = (/ & - & 0.16844e+02,0.16068e+02,0.15151e+02,0.14109e+02,0.13003e+02 /) - kbo(:,34,14) = (/ & - & 0.16915e+02,0.16003e+02,0.14953e+02,0.13814e+02,0.12608e+02 /) - kbo(:,35,14) = (/ & - & 0.16922e+02,0.15890e+02,0.14756e+02,0.13405e+02,0.12281e+02 /) - kbo(:,36,14) = (/ & - & 0.16966e+02,0.15773e+02,0.14522e+02,0.13240e+02,0.11917e+02 /) - kbo(:,37,14) = (/ & - & 0.17142e+02,0.15897e+02,0.14564e+02,0.13378e+02,0.11953e+02 /) - kbo(:,38,14) = (/ & - & 0.17346e+02,0.16051e+02,0.14752e+02,0.13439e+02,0.11971e+02 /) - kbo(:,39,14) = (/ & - & 0.17475e+02,0.16210e+02,0.14948e+02,0.13510e+02,0.12056e+02 /) - kbo(:,40,14) = (/ & - & 0.17754e+02,0.16503e+02,0.15328e+02,0.13801e+02,0.12328e+02 /) - kbo(:,41,14) = (/ & - & 0.18031e+02,0.16909e+02,0.15619e+02,0.14276e+02,0.12740e+02 /) - kbo(:,42,14) = (/ & - & 0.18386e+02,0.17235e+02,0.15966e+02,0.14652e+02,0.13194e+02 /) - kbo(:,43,14) = (/ & - & 0.18710e+02,0.17591e+02,0.16361e+02,0.15070e+02,0.13707e+02 /) - kbo(:,44,14) = (/ & - & 0.19098e+02,0.17898e+02,0.16845e+02,0.15582e+02,0.14265e+02 /) - kbo(:,45,14) = (/ & - & 0.19252e+02,0.18167e+02,0.17135e+02,0.15969e+02,0.14652e+02 /) - kbo(:,46,14) = (/ & - & 0.19041e+02,0.18357e+02,0.17265e+02,0.16200e+02,0.15002e+02 /) - kbo(:,47,14) = (/ & - & 0.18766e+02,0.18032e+02,0.17152e+02,0.16208e+02,0.15088e+02 /) - kbo(:,48,14) = (/ & - & 0.18411e+02,0.17740e+02,0.16984e+02,0.16085e+02,0.15089e+02 /) - kbo(:,49,14) = (/ & - & 0.18291e+02,0.17667e+02,0.16941e+02,0.16014e+02,0.14979e+02 /) - kbo(:,50,14) = (/ & - & 0.18624e+02,0.17786e+02,0.17174e+02,0.16136e+02,0.15128e+02 /) - kbo(:,51,14) = (/ & - & 0.19430e+02,0.18470e+02,0.17722e+02,0.16775e+02,0.15711e+02 /) - kbo(:,52,14) = (/ & - & 0.20123e+02,0.18895e+02,0.18060e+02,0.17255e+02,0.16173e+02 /) - kbo(:,53,14) = (/ & - & 0.20744e+02,0.19415e+02,0.18626e+02,0.17397e+02,0.16465e+02 /) - kbo(:,54,14) = (/ & - & 0.21714e+02,0.20093e+02,0.19173e+02,0.18078e+02,0.16884e+02 /) - kbo(:,55,14) = (/ & - & 0.22731e+02,0.21068e+02,0.19674e+02,0.18569e+02,0.17315e+02 /) - kbo(:,56,14) = (/ & - & 0.23924e+02,0.22190e+02,0.20317e+02,0.18891e+02,0.17603e+02 /) - kbo(:,57,14) = (/ & - & 0.24940e+02,0.23270e+02,0.21498e+02,0.19833e+02,0.18265e+02 /) - kbo(:,58,14) = (/ & - & 0.25828e+02,0.24271e+02,0.22518e+02,0.20827e+02,0.19003e+02 /) - kbo(:,59,14) = (/ & - & 0.26483e+02,0.24983e+02,0.23453e+02,0.21676e+02,0.19755e+02 /) - kbo(:,13,15) = (/ & - & 0.15960e+02,0.15303e+02,0.14694e+02,0.13842e+02,0.13008e+02 /) - kbo(:,14,15) = (/ & - & 0.17675e+02,0.16896e+02,0.15925e+02,0.14915e+02,0.14133e+02 /) - kbo(:,15,15) = (/ & - & 0.19385e+02,0.18234e+02,0.16959e+02,0.15987e+02,0.15180e+02 /) - kbo(:,16,15) = (/ & - & 0.20552e+02,0.19165e+02,0.17982e+02,0.16927e+02,0.16368e+02 /) - kbo(:,17,15) = (/ & - & 0.21349e+02,0.19954e+02,0.19023e+02,0.18091e+02,0.17398e+02 /) - kbo(:,18,15) = (/ & - & 0.22160e+02,0.21597e+02,0.20213e+02,0.19055e+02,0.18102e+02 /) - kbo(:,19,15) = (/ & - & 0.23816e+02,0.22303e+02,0.21008e+02,0.19912e+02,0.18903e+02 /) - kbo(:,20,15) = (/ & - & 0.24810e+02,0.23381e+02,0.21933e+02,0.20846e+02,0.19540e+02 /) - kbo(:,21,15) = (/ & - & 0.25893e+02,0.24250e+02,0.22750e+02,0.21616e+02,0.19627e+02 /) - kbo(:,22,15) = (/ & - & 0.26542e+02,0.24773e+02,0.23600e+02,0.21309e+02,0.19278e+02 /) - kbo(:,23,15) = (/ & - & 0.27270e+02,0.25621e+02,0.23587e+02,0.21255e+02,0.19478e+02 /) - kbo(:,24,15) = (/ & - & 0.27744e+02,0.26088e+02,0.23254e+02,0.21242e+02,0.19100e+02 /) - kbo(:,25,15) = (/ & - & 0.28557e+02,0.25575e+02,0.23098e+02,0.20631e+02,0.18206e+02 /) - kbo(:,26,15) = (/ & - & 0.28140e+02,0.25135e+02,0.22210e+02,0.19496e+02,0.17366e+02 /) - kbo(:,27,15) = (/ & - & 0.27284e+02,0.24232e+02,0.21249e+02,0.18720e+02,0.16279e+02 /) - kbo(:,28,15) = (/ & - & 0.26494e+02,0.23076e+02,0.20060e+02,0.17566e+02,0.14956e+02 /) - kbo(:,29,15) = (/ & - & 0.24773e+02,0.21460e+02,0.18370e+02,0.15793e+02,0.13302e+02 /) - kbo(:,30,15) = (/ & - & 0.23157e+02,0.19587e+02,0.16563e+02,0.13805e+02,0.11647e+02 /) - kbo(:,31,15) = (/ & - & 0.20881e+02,0.17370e+02,0.14460e+02,0.11958e+02,0.99808e+01 /) - kbo(:,32,15) = (/ & - & 0.18247e+02,0.15035e+02,0.12296e+02,0.10101e+02,0.83032e+01 /) - kbo(:,33,15) = (/ & - & 0.15492e+02,0.12470e+02,0.10235e+02,0.81131e+01,0.64390e+01 /) - kbo(:,34,15) = (/ & - & 0.13284e+02,0.10782e+02,0.82553e+01,0.64597e+01,0.42402e+01 /) - kbo(:,35,15) = (/ & - & 0.11520e+02,0.89534e+01,0.69691e+01,0.48753e+01,0.27443e+01 /) - kbo(:,36,15) = (/ & - & 0.10067e+02,0.75650e+01,0.54572e+01,0.31866e+01,0.14626e+01 /) - kbo(:,37,15) = (/ & - & 0.97744e+01,0.73767e+01,0.52433e+01,0.27509e+01,0.10380e+01 /) - kbo(:,38,15) = (/ & - & 0.94733e+01,0.70859e+01,0.47807e+01,0.23954e+01,0.74468e+00 /) - kbo(:,39,15) = (/ & - & 0.94041e+01,0.67286e+01,0.41966e+01,0.20683e+01,0.27939e+00 /) - kbo(:,40,15) = (/ & - & 0.10076e+02,0.74414e+01,0.47964e+01,0.25258e+01,0.87689e+00 /) - kbo(:,41,15) = (/ & - & 0.10878e+02,0.81759e+01,0.56173e+01,0.30416e+01,0.13231e+01 /) - kbo(:,42,15) = (/ & - & 0.11858e+02,0.88284e+01,0.63009e+01,0.37211e+01,0.17214e+01 /) - kbo(:,43,15) = (/ & - & 0.13284e+02,0.99847e+01,0.73905e+01,0.50291e+01,0.24940e+01 /) - kbo(:,44,15) = (/ & - & 0.14796e+02,0.11545e+02,0.85671e+01,0.61687e+01,0.37136e+01 /) - kbo(:,45,15) = (/ & - & 0.16662e+02,0.12949e+02,0.98033e+01,0.73353e+01,0.52329e+01 /) - kbo(:,46,15) = (/ & - & 0.19200e+02,0.14684e+02,0.11434e+02,0.85867e+01,0.64428e+01 /) - kbo(:,47,15) = (/ & - & 0.21780e+02,0.16837e+02,0.13158e+02,0.10165e+02,0.76608e+01 /) - kbo(:,48,15) = (/ & - & 0.24689e+02,0.19487e+02,0.15145e+02,0.11845e+02,0.89940e+01 /) - kbo(:,49,15) = (/ & - & 0.27130e+02,0.21775e+02,0.17116e+02,0.13679e+02,0.10905e+02 /) - kbo(:,50,15) = (/ & - & 0.27854e+02,0.22306e+02,0.17103e+02,0.13783e+02,0.10863e+02 /) - kbo(:,51,15) = (/ & - & 0.27653e+02,0.21825e+02,0.16692e+02,0.12707e+02,0.98148e+01 /) - kbo(:,52,15) = (/ & - & 0.27815e+02,0.22411e+02,0.17151e+02,0.12787e+02,0.95823e+01 /) - kbo(:,53,15) = (/ & - & 0.29119e+02,0.23144e+02,0.17252e+02,0.13594e+02,0.99767e+01 /) - kbo(:,54,15) = (/ & - & 0.29129e+02,0.23469e+02,0.17342e+02,0.12745e+02,0.95359e+01 /) - kbo(:,55,15) = (/ & - & 0.29058e+02,0.23190e+02,0.17458e+02,0.12690e+02,0.90099e+01 /) - kbo(:,56,15) = (/ & - & 0.28657e+02,0.23001e+02,0.17896e+02,0.13433e+02,0.94907e+01 /) - kbo(:,57,15) = (/ & - & 0.29240e+02,0.22830e+02,0.17734e+02,0.13185e+02,0.97411e+01 /) - kbo(:,58,15) = (/ & - & 0.29947e+02,0.22946e+02,0.17582e+02,0.13008e+02,0.96489e+01 /) - kbo(:,59,15) = (/ & - & 0.28976e+02,0.21746e+02,0.15522e+02,0.11254e+02,0.80222e+01 /) - kbo(:,13,16) = (/ & - & 0.25931e+02,0.24537e+02,0.23224e+02,0.21983e+02,0.20855e+02 /) - kbo(:,14,16) = (/ & - & 0.29220e+02,0.27507e+02,0.25899e+02,0.24431e+02,0.23088e+02 /) - kbo(:,15,16) = (/ & - & 0.32471e+02,0.30409e+02,0.28502e+02,0.26794e+02,0.25226e+02 /) - kbo(:,16,16) = (/ & - & 0.35624e+02,0.33186e+02,0.30989e+02,0.28748e+02,0.24479e+02 /) - kbo(:,17,16) = (/ & - & 0.38605e+02,0.35797e+02,0.30613e+02,0.25949e+02,0.21171e+02 /) - kbo(:,18,16) = (/ & - & 0.41350e+02,0.31676e+02,0.25965e+02,0.21818e+02,0.18145e+02 /) - kbo(:,19,16) = (/ & - & 0.34377e+02,0.28144e+02,0.23342e+02,0.17735e+02,0.13818e+02 /) - kbo(:,20,16) = (/ & - & 0.31245e+02,0.24408e+02,0.19618e+02,0.13984e+02,0.93171e+01 /) - kbo(:,21,16) = (/ & - & 0.28216e+02,0.21711e+02,0.16938e+02,0.11225e+02,0.60954e+01 /) - kbo(:,22,16) = (/ & - & 0.25410e+02,0.20320e+02,0.12451e+02,0.80509e+01,0.41742e+01 /) - kbo(:,23,16) = (/ & - & 0.22191e+02,0.15284e+02,0.84334e+01,0.32443e+01,0.10236e-04 /) - kbo(:,24,16) = (/ & - & 0.19170e+02,0.98429e+01,0.40822e+01,0.90070e-05,0.84964e-05 /) - kbo(:,25,16) = (/ & - & 0.11441e+02,0.50508e+01,0.77316e-05,0.71796e-05,0.66473e-05 /) - kbo(:,26,16) = (/ & - & 0.73617e+01,0.56953e+00,0.62155e-05,0.57759e-05,0.53447e-05 /) - kbo(:,27,16) = (/ & - & 0.37038e+01,0.54098e-05,0.49933e-05,0.45180e-05,0.42997e-05 /) - kbo(:,28,16) = (/ & - & 0.47094e-05,0.43472e-05,0.40149e-05,0.36332e-05,0.34550e-05 /) - kbo(:,29,16) = (/ & - & 0.37812e-05,0.34885e-05,0.32238e-05,0.29187e-05,0.27779e-05 /) - kbo(:,30,16) = (/ & - & 0.30339e-05,0.28004e-05,0.25314e-05,0.23451e-05,0.22313e-05 /) - kbo(:,31,16) = (/ & - & 0.24328e-05,0.22460e-05,0.20326e-05,0.18813e-05,0.17930e-05 /) - kbo(:,32,16) = (/ & - & 0.18939e-05,0.18012e-05,0.16316e-05,0.15109e-05,0.14395e-05 /) - kbo(:,33,16) = (/ & - & 0.15657e-05,0.14309e-05,0.13083e-05,0.12124e-05,0.15795e-05 /) - kbo(:,34,16) = (/ & - & 0.12582e-05,0.11508e-05,0.10527e-05,0.97625e-06,0.19757e-05 /) - kbo(:,35,16) = (/ & - & 0.10197e-05,0.93275e-06,0.85375e-06,0.79153e-06,0.21668e-05 /) - kbo(:,36,16) = (/ & - & 0.83336e-06,0.76274e-06,0.69805e-06,0.64735e-06,0.17739e-05 /) - kbo(:,37,16) = (/ & - & 0.68945e-06,0.63022e-06,0.57702e-06,0.53486e-06,0.10843e-05 /) - kbo(:,38,16) = (/ & - & 0.55406e-06,0.52180e-06,0.47760e-06,0.44282e-06,0.89395e-06 /) - kbo(:,39,16) = (/ & - & 0.45861e-06,0.43223e-06,0.39548e-06,0.36639e-06,0.47718e-06 /) - kbo(:,40,16) = (/ & - & 0.38297e-06,0.36441e-06,0.32989e-06,0.30551e-06,0.28352e-06 /) - kbo(:,41,16) = (/ & - & 0.31987e-06,0.30430e-06,0.27838e-06,0.25513e-06,0.23647e-06 /) - kbo(:,42,16) = (/ & - & 0.26734e-06,0.24677e-06,0.23264e-06,0.21290e-06,0.19743e-06 /) - kbo(:,43,16) = (/ & - & 0.22458e-06,0.20712e-06,0.19517e-06,0.17853e-06,0.16551e-06 /) - kbo(:,44,16) = (/ & - & 0.18898e-06,0.17429e-06,0.16587e-06,0.15173e-06,0.13895e-06 /) - kbo(:,45,16) = (/ & - & 0.15450e-06,0.14658e-06,0.13533e-06,0.12759e-06,0.11679e-06 /) - kbo(:,46,16) = (/ & - & 0.13028e-06,0.12362e-06,0.11400e-06,0.10744e-06,0.98279e-07 /) - kbo(:,47,16) = (/ & - & 0.11024e-06,0.10159e-06,0.96435e-07,0.91711e-07,0.83972e-07 /) - kbo(:,48,16) = (/ & - & 0.93198e-07,0.85906e-07,0.81590e-07,0.75279e-07,0.70931e-07 /) - kbo(:,49,16) = (/ & - & 0.76236e-07,0.72626e-07,0.68995e-07,0.63641e-07,0.60530e-07 /) - kbo(:,50,16) = (/ & - & 0.64328e-07,0.61369e-07,0.56594e-07,0.53672e-07,0.49555e-07 /) - kbo(:,51,16) = (/ & - & 0.54169e-07,0.51722e-07,0.47685e-07,0.45298e-07,0.41770e-07 /) - kbo(:,52,16) = (/ & - & 0.46180e-07,0.42221e-07,0.40251e-07,0.37120e-07,0.35204e-07 /) - kbo(:,53,16) = (/ & - & 0.33194e-01,0.35538e-07,0.33930e-07,0.31297e-07,0.29712e-07 /) - kbo(:,54,16) = (/ & - & 0.63212e-01,0.54132e-01,0.36437e-01,0.71353e-02,0.24978e-07 /) - kbo(:,55,16) = (/ & - & 0.62321e-01,0.69163e-01,0.76899e-01,0.64692e-01,0.42869e-01 /) - kbo(:,56,16) = (/ & - & 0.73050e-01,0.83118e-01,0.74962e-01,0.82540e-01,0.91058e-01 /) - kbo(:,57,16) = (/ & - & 0.71162e-01,0.79898e-01,0.89953e-01,0.10014e+00,0.10382e+00 /) - kbo(:,58,16) = (/ & - & 0.67770e-01,0.78960e-01,0.86882e-01,0.97002e-01,0.10740e+00 /) - kbo(:,59,16) = (/ & - & 0.66421e-01,0.77608e-01,0.10426e+00,0.10063e+00,0.10735e+00 /) - -! ----------------------------------------------------------------- - - forrefo(:, 1) = (/ 0.860560e-06, 0.130439e-05, 0.382378e-05 /) - forrefo(:, 2) = (/ 0.817926e-06, 0.158599e-05, 0.658771e-04 /) - forrefo(:, 3) = (/ 0.129369e-05, 0.824406e-05, 0.952778e-04 /) - forrefo(:, 4) = (/ 0.438918e-05, 0.375356e-04, 0.119111e-03 /) - forrefo(:, 5) = (/ 0.306057e-04, 0.622798e-04, 0.100740e-03 /) - forrefo(:, 6) = (/ 0.891934e-04, 0.856393e-04, 0.635583e-04 /) - forrefo(:, 7) = (/ 0.171959e-03, 0.173431e-03, 0.611721e-04 /) - forrefo(:, 8) = (/ 0.357795e-03, 0.247261e-03, 0.488864e-04 /) - forrefo(:, 9) = (/ 0.326623e-03, 0.289471e-03, 0.548834e-04 /) - forrefo(:,10) = (/ 0.345103e-03, 0.320898e-03, 0.633214e-04 /) - forrefo(:,11) = (/ 0.392567e-03, 0.325153e-03, 0.744479e-04 /) - forrefo(:,12) = (/ 0.349277e-03, 0.345610e-03, 0.916479e-04 /) - forrefo(:,13) = (/ 0.425161e-03, 0.348452e-03, 0.125788e-03 /) - forrefo(:,14) = (/ 0.407594e-03, 0.435836e-03, 0.287583e-03 /) - forrefo(:,15) = (/ 0.521605e-03, 0.486596e-03, 0.483511e-03 /) - forrefo(:,16) = (/ 0.773790e-03, 0.737247e-03, 0.665939e-03 /) - -! ----------------------------------------------------------------- -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 0.750370e-03, 0.644938e-03, 0.554321e-03, 0.476436e-03, 0.409494e-03, & - & 0.351957e-03, 0.302505e-03, 0.260002e-03, 0.223470e-03, 0.192071e-03 /) - selfrefo(:, 2) = (/ & - & 0.136135e-02, 0.113187e-02, 0.941076e-03, 0.782440e-03, 0.650546e-03, & - & 0.540885e-03, 0.449709e-03, 0.373902e-03, 0.310874e-03, 0.258471e-03 /) - selfrefo(:, 3) = (/ & - & 0.333950e-02, 0.256391e-02, 0.196845e-02, 0.151129e-02, 0.116030e-02, & - & 0.890824e-03, 0.683934e-03, 0.525093e-03, 0.403143e-03, 0.309515e-03 /) - selfrefo(:, 4) = (/ & - & 0.793392e-02, 0.589865e-02, 0.438548e-02, 0.326048e-02, 0.242408e-02, & - & 0.180223e-02, 0.133991e-02, 0.996186e-03, 0.740636e-03, 0.550642e-03 /) - selfrefo(:, 5) = (/ & - & 0.828169e-02, 0.703139e-02, 0.596984e-02, 0.506856e-02, 0.430335e-02, & - & 0.365366e-02, 0.310206e-02, 0.263374e-02, 0.223612e-02, 0.189852e-02 /) - selfrefo(:, 6) = (/ & - & 0.834190e-02, 0.780225e-02, 0.729750e-02, 0.682541e-02, 0.638386e-02, & - & 0.597087e-02, 0.558460e-02, 0.522332e-02, 0.488541e-02, 0.456936e-02 /) - selfrefo(:, 7) = (/ & - & 0.119082e-01, 0.112566e-01, 0.106406e-01, 0.100583e-01, 0.950785e-02, & - & 0.898755e-02, 0.849571e-02, 0.803080e-02, 0.759132e-02, 0.717590e-02 /) - selfrefo(:, 8) = (/ & - & 0.144004e-01, 0.141762e-01, 0.139554e-01, 0.137381e-01, 0.135241e-01, & - & 0.133135e-01, 0.131062e-01, 0.129021e-01, 0.127011e-01, 0.125033e-01 /) - selfrefo(:, 9) = (/ & - & 0.186171e-01, 0.175281e-01, 0.165027e-01, 0.155373e-01, 0.146284e-01, & - & 0.137726e-01, 0.129670e-01, 0.122084e-01, 0.114942e-01, 0.108218e-01 /) - selfrefo(:,10) = (/ & - & 0.209396e-01, 0.195077e-01, 0.181737e-01, 0.169309e-01, 0.157731e-01, & - & 0.146945e-01, 0.136897e-01, 0.127535e-01, 0.118814e-01, 0.110689e-01 /) - selfrefo(:,11) = (/ & - & 0.203661e-01, 0.193311e-01, 0.183487e-01, 0.174163e-01, 0.165312e-01, & - & 0.156911e-01, 0.148937e-01, 0.141368e-01, 0.134184e-01, 0.127365e-01 /) - selfrefo(:,12) = (/ & - & 0.226784e-01, 0.210210e-01, 0.194848e-01, 0.180608e-01, 0.167409e-01, & - & 0.155174e-01, 0.143834e-01, 0.133322e-01, 0.123579e-01, 0.114547e-01 /) - selfrefo(:,13) = (/ & - & 0.221773e-01, 0.210306e-01, 0.199433e-01, 0.189122e-01, 0.179344e-01, & - & 0.170071e-01, 0.161278e-01, 0.152939e-01, 0.145032e-01, 0.137533e-01 /) - selfrefo(:,14) = (/ & - & 0.275920e-01, 0.252595e-01, 0.231241e-01, 0.211693e-01, 0.193797e-01, & - & 0.177415e-01, 0.162417e-01, 0.148687e-01, 0.136117e-01, 0.124610e-01 /) - selfrefo(:,15) = (/ & - & 0.288687e-01, 0.269968e-01, 0.252462e-01, 0.236092e-01, 0.220783e-01, & - & 0.206466e-01, 0.193078e-01, 0.180559e-01, 0.168851e-01, 0.157902e-01 /) - selfrefo(:,16) = (/ & - & 0.371842e-01, 0.347595e-01, 0.324929e-01, 0.303741e-01, 0.283934e-01, & - & 0.265419e-01, 0.248112e-01, 0.231933e-01, 0.216809e-01, 0.202671e-01 /) - - end subroutine sw_kgb18 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_19.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_19.F90 deleted file mode 100644 index 98c1d1a22..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_19.F90 +++ /dev/null @@ -1,4985 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb19 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg19, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:,1) = (/ & - & 3.25791 , 3.29697 , 3.16031 , 2.96115 , & - & 2.69238 , 2.33819 , 1.92760 , 1.44918 , & - & 0.979764 , 0.107336 , 8.94523e-02, 6.98325e-02, & - & 5.12051e-02, 3.23645e-02, 1.23401e-02, 1.71339e-03 /) - sfluxrefo(:,2) = (/ & - & 3.22769 , 3.28817 , 3.16687 , 2.97662 , & - & 2.69495 , 2.34392 , 1.92900 , 1.45391 , & - & 0.982522 , 0.107638 , 8.92458e-02, 6.99885e-02, & - & 5.09679e-02, 3.23789e-02, 1.22673e-02, 1.56040e-03 /) - sfluxrefo(:,3) = (/ & - & 3.22294 , 3.27780 , 3.17424 , 2.97143 , & - & 2.69785 , 2.34993 , 1.93155 , 1.45196 , & - & 0.985329 , 0.108027 , 8.93552e-02, 6.99937e-02, & - & 5.11678e-02, 3.24846e-02, 1.20636e-02, 1.56040e-03 /) - sfluxrefo(:,4) = (/ & - & 3.22445 , 3.26113 , 3.18438 , 2.96921 , & - & 2.69579 , 2.35586 , 1.93454 , 1.44949 , & - & 0.987347 , 0.108611 , 8.91643e-02, 7.02236e-02, & - & 5.12980e-02, 3.25282e-02, 1.21189e-02, 1.56040e-03 /) - sfluxrefo(:,5) = (/ & - & 3.22497 , 3.25109 , 3.18741 , 2.96970 , & - & 2.69460 , 2.36020 , 1.93301 , 1.45224 , & - & 0.988564 , 0.108255 , 8.93830e-02, 7.03655e-02, & - & 5.13017e-02, 3.29414e-02, 1.21189e-02, 1.56040e-03 /) - sfluxrefo(:,6) = (/ & - & 3.22632 , 3.24174 , 3.18524 , 2.97402 , & - & 2.69807 , 2.35742 , 1.93377 , 1.45621 , & - & 0.988132 , 0.108344 , 8.93188e-02, 7.04907e-02, & - & 5.17938e-02, 3.31465e-02, 1.21155e-02, 1.56040e-03 /) - sfluxrefo(:,7) = (/ & - & 3.22793 , 3.23589 , 3.17720 , 2.97869 , & - & 2.70293 , 2.35436 , 1.93557 , 1.45868 , & - & 0.988654 , 0.108198 , 8.93375e-02, 7.09790e-02, & - & 5.24733e-02, 3.31298e-02, 1.21126e-02, 1.56040e-03 /) - sfluxrefo(:,8) = (/ & - & 3.22966 , 3.24087 , 3.15676 , 2.98171 , & - & 2.70894 , 2.34975 , 1.93855 , 1.46354 , & - & 0.988544 , 0.108574 , 9.02522e-02, 7.12908e-02, & - & 5.24844e-02, 3.31084e-02, 1.21060e-02, 1.56040e-03 /) - sfluxrefo(:,9) = (/ & - & 3.27240 , 3.24666 , 3.13886 , 2.95238 , & - & 2.70190 , 2.34460 , 1.93948 , 1.47111 , & - & 0.990821 , 0.108730 , 9.01625e-02, 7.13261e-02, & - & 5.24813e-02, 3.31083e-02, 1.21126e-02, 1.56040e-03 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:,1) = (/ & - & 3.29286E+00, 3.24885E+00, 3.15900E+00, 2.96040E+00,& - & 2.69977E+00, 2.35850E+00, 1.94159E+00, 1.45874E+00,& - & 9.87699E-01, 1.08954E-01, 9.04621E-02, 7.04124E-02,& - & 5.15416E-02, 3.26988E-02, 1.24435E-02, 1.76133E-03/) - irradnceo(:,2) = (/ & - & 3.22496E+00, 3.26018E+00, 3.16804E+00, 2.96961E+00,& - & 2.70793E+00, 2.36729E+00, 1.94928E+00, 1.46784E+00,& - & 9.91843E-01, 1.09396E-01, 9.04612E-02, 7.05080E-02,& - & 5.15188E-02, 3.27539E-02, 1.24115E-02, 1.65981E-03/) - irradnceo(:,3) = (/ & - & 3.21236E+00, 3.25198E+00, 3.17586E+00, 2.96576E+00,& - & 2.70824E+00, 2.37391E+00, 1.95462E+00, 1.46684E+00,& - & 9.96719E-01, 1.09657E-01, 9.03525E-02, 7.06845E-02,& - & 5.16394E-02, 3.28856E-02, 1.25086E-02, 1.65981E-03/) - irradnceo(:,4) = (/ & - & 3.21237E+00, 3.23846E+00, 3.17989E+00, 2.96225E+00,& - & 2.70974E+00, 2.37787E+00, 1.95632E+00, 1.46783E+00,& - & 1.00020E+00, 1.10287E-01, 9.04245E-02, 7.08427E-02,& - & 5.18418E-02, 3.31583E-02, 1.25482E-02, 1.65981E-03/) - irradnceo(:,5) = (/ & - & 3.21234E+00, 3.22907E+00, 3.17922E+00, 2.96430E+00,& - & 2.70945E+00, 2.37906E+00, 1.95595E+00, 1.47248E+00,& - & 1.00200E+00, 1.09940E-01, 9.06673E-02, 7.13884E-02,& - & 5.19400E-02, 3.36558E-02, 1.25436E-02, 1.65981E-03/) - irradnceo(:,6) = (/ & - & 3.21276E+00, 3.21675E+00, 3.17737E+00, 2.97201E+00,& - & 2.70985E+00, 2.37666E+00, 1.95587E+00, 1.47760E+00,& - & 1.00387E+00, 1.09480E-01, 9.08326E-02, 7.15717E-02,& - & 5.31111E-02, 3.37363E-02, 1.25449E-02, 1.65981E-03/) - irradnceo(:,7) = (/ & - & 3.21323E+00, 3.21715E+00, 3.16001E+00, 2.97836E+00,& - & 2.71309E+00, 2.37377E+00, 1.95927E+00, 1.48015E+00,& - & 1.00588E+00, 1.09771E-01, 9.06271E-02, 7.29082E-02,& - & 5.35345E-02, 3.37265E-02, 1.25427E-02, 1.65981E-03/) - irradnceo(:,8) = (/ & - & 3.21454E+00, 3.22206E+00, 3.13704E+00, 2.98088E+00,& - & 2.72350E+00, 2.36766E+00, 1.95828E+00, 1.48829E+00,& - & 1.00641E+00, 1.10868E-01, 9.16997E-02, 7.30508E-02,& - & 5.34875E-02, 3.37286E-02, 1.25323E-02, 1.65984E-03/) - irradnceo(:,9) = (/ & - & 3.27853E+00, 3.22066E+00, 3.11487E+00, 2.94851E+00,& - & 2.71736E+00, 2.35175E+00, 1.96182E+00, 1.49385E+00,& - & 1.01121E+00, 1.10865E-01, 9.17954E-02, 7.30072E-02,& - & 5.35235E-02, 3.37278E-02, 1.25406E-02, 1.65981E-03/) -! Solar variability components: facular brightening - facbrghto(:,1) = (/ & - & 2.65541E-04, 2.69664E-04, 2.64272E-04, 2.39897E-04,& - & 2.08576E-04, 1.73816E-04, 1.27187E-04, 9.35832E-05,& - & 6.51644E-05, 6.95323E-06, 5.65076E-06, 3.93261E-06,& - & 2.80501E-06, 1.74715E-06, 6.82905E-07, 1.04621E-07/) - facbrghto(:,2) = (/ & - & 2.62055E-04, 2.69019E-04, 2.56732E-04, 2.36500E-04,& - & 2.10621E-04, 1.72377E-04, 1.33173E-04, 9.89652E-05,& - & 6.76075E-05, 7.04834E-06, 5.69313E-06, 4.07868E-06,& - & 2.97458E-06, 1.80882E-06, 7.43632E-07, 1.78658E-07/) - facbrghto(:,3) = (/ & - & 2.61651E-04, 2.68249E-04, 2.55386E-04, 2.34114E-04,& - & 2.08670E-04, 1.70007E-04, 1.35598E-04, 1.02934E-04,& - & 6.93774E-05, 7.32597E-06, 5.95116E-06, 4.25768E-06,& - & 2.90881E-06, 1.88603E-06, 1.08060E-06, 1.78658E-07/) - facbrghto(:,4) = (/ & - & 2.61872E-04, 2.67128E-04, 2.54409E-04, 2.31214E-04,& - & 2.08367E-04, 1.68601E-04, 1.36659E-04, 1.05614E-04,& - & 7.11289E-05, 7.49937E-06, 5.90873E-06, 4.45262E-06,& - & 3.32674E-06, 2.08252E-06, 1.13294E-06, 1.78658E-07/) - facbrghto(:,5) = (/ & - & 2.61996E-04, 2.66348E-04, 2.53227E-04, 2.30506E-04,& - & 2.05240E-04, 1.67036E-04, 1.39007E-04, 1.07716E-04,& - & 7.27332E-05, 7.60283E-06, 6.13186E-06, 4.63423E-06,& - & 3.27597E-06, 2.80885E-06, 1.13379E-06, 1.78658E-07/) - facbrghto(:,6) = (/ & - & 2.62227E-04, 2.65325E-04, 2.51577E-04, 2.30266E-04,& - & 1.99545E-04, 1.69132E-04, 1.40762E-04, 1.09359E-04,& - & 7.42886E-05, 7.67481E-06, 6.29675E-06, 4.84250E-06,& - & 4.01851E-06, 2.94948E-06, 1.13386E-06, 1.78658E-07/) - facbrghto(:,7) = (/ & - & 2.62454E-04, 2.64243E-04, 2.48983E-04, 2.29993E-04,& - & 1.95203E-04, 1.69307E-04, 1.43596E-04, 1.11033E-04,& - & 7.57847E-05, 8.09006E-06, 6.46175E-06, 5.82815E-06,& - & 4.33021E-06, 2.95548E-06, 1.13447E-06, 1.78658E-07/) - facbrghto(:,8) = (/ & - & 2.62554E-04, 2.62449E-04, 2.43949E-04, 2.28673E-04,& - & 1.94817E-04, 1.68699E-04, 1.45781E-04, 1.13515E-04,& - & 7.80069E-05, 9.06515E-06, 7.51718E-06, 5.93589E-06,& - & 4.34552E-06, 2.95218E-06, 1.13716E-06, 1.78659E-07/) - facbrghto(:,9) = (/ & - & 2.59937E-04, 2.55765E-04, 2.36349E-04, 2.13143E-04,& - & 2.01578E-04, 1.77978E-04, 1.51533E-04, 1.18811E-04,& - & 8.32132E-05, 9.11293E-06, 7.60989E-06, 5.94609E-06,& - & 4.33140E-06, 2.95526E-06, 1.13507E-06, 1.78658E-07/) -! Solar variability components: sunspot darkening - snsptdrko(:,1) = (/ & - &-3.82079E-04,-3.80434E-04,-3.68787E-04,-3.44649E-04,& - &-3.13303E-04,-2.73575E-04,-2.25103E-04,-1.69770E-04,& - &-1.15124E-04,-1.27085E-05,-1.05676E-05,-8.20294E-06,& - &-6.00478E-06,-3.82368E-06,-1.44417E-06,-2.03820E-07/) - snsptdrko(:,2) = (/ & - &-3.71376E-04,-3.82583E-04,-3.71780E-04,-3.47103E-04,& - &-3.14745E-04,-2.74199E-04,-2.25693E-04,-1.70142E-04,& - &-1.15255E-04,-1.27481E-05,-1.05434E-05,-8.17755E-06,& - &-5.98639E-06,-3.82133E-06,-1.43787E-06,-1.88080E-07/) - snsptdrko(:,3) = (/ & - &-3.69376E-04,-3.81303E-04,-3.72509E-04,-3.47756E-04,& - &-3.15608E-04,-2.74721E-04,-2.26076E-04,-1.70068E-04,& - &-1.15578E-04,-1.27548E-05,-1.04313E-05,-8.18666E-06,& - &-5.99652E-06,-3.82001E-06,-1.40763E-06,-1.88080E-07/) - snsptdrko(:,4) = (/ & - &-3.69424E-04,-3.78824E-04,-3.73271E-04,-3.47598E-04,& - &-3.16553E-04,-2.75211E-04,-2.26141E-04,-1.70157E-04,& - &-1.15790E-04,-1.27903E-05,-1.04810E-05,-8.17061E-06,& - &-5.95800E-06,-3.82068E-06,-1.40301E-06,-1.88080E-07/) - snsptdrko(:,5) = (/ & - &-3.69544E-04,-3.76205E-04,-3.74015E-04,-3.47781E-04,& - &-3.17146E-04,-2.75999E-04,-2.25983E-04,-1.70364E-04,& - &-1.15998E-04,-1.26938E-05,-1.04424E-05,-8.26345E-06,& - &-5.99245E-06,-3.76211E-06,-1.40262E-06,-1.88080E-07/) - snsptdrko(:,6) = (/ & - &-3.69743E-04,-3.73997E-04,-3.73491E-04,-3.48983E-04,& - &-3.17850E-04,-2.76183E-04,-2.26053E-04,-1.70571E-04,& - &-1.16159E-04,-1.26384E-05,-1.04454E-05,-8.24584E-06,& - &-6.07922E-06,-3.74953E-06,-1.40255E-06,-1.88080E-07/) - snsptdrko(:,7) = (/ & - &-3.70028E-04,-3.73495E-04,-3.70853E-04,-3.49824E-04,& - &-3.18455E-04,-2.76790E-04,-2.26560E-04,-1.70613E-04,& - &-1.16363E-04,-1.26311E-05,-1.04368E-05,-8.29029E-06,& - &-6.10521E-06,-3.74572E-06,-1.40221E-06,-1.88080E-07/) - snsptdrko(:,8) = (/ & - &-3.70491E-04,-3.73645E-04,-3.65425E-04,-3.51625E-04,& - &-3.19853E-04,-2.77340E-04,-2.27148E-04,-1.71242E-04,& - &-1.16115E-04,-1.27154E-05,-1.04544E-05,-8.29784E-06,& - &-6.09114E-06,-3.74735E-06,-1.40078E-06,-1.88080E-07/) - snsptdrko(:,9) = (/ & - &-3.79132E-04,-3.72764E-04,-3.61234E-04,-3.44057E-04,& - &-3.20647E-04,-2.78048E-04,-2.29213E-04,-1.71594E-04,& - &-1.16202E-04,-1.27089E-05,-1.04521E-05,-8.29095E-06,& - &-6.09989E-06,-3.74608E-06,-1.40188E-06,-1.88080E-07/) - -! Rayleigh extinction coefficient at v = 4900 cm-1. - rayl = 2.29e-09 - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1, 1) = (/ & - & 0.14981e-05,0.26659e-05,0.31874e-05,0.35509e-05,0.37593e-05, & - & 0.38514e-05,0.37369e-05,0.35011e-05,0.23894e-05 /) - kao(:, 2, 1, 1) = (/ & - & 0.15103e-05,0.27348e-05,0.32692e-05,0.36558e-05,0.38926e-05, & - & 0.39737e-05,0.38798e-05,0.36565e-05,0.24072e-05 /) - kao(:, 3, 1, 1) = (/ & - & 0.15233e-05,0.28090e-05,0.33744e-05,0.37729e-05,0.40258e-05, & - & 0.41107e-05,0.40389e-05,0.38226e-05,0.24704e-05 /) - kao(:, 4, 1, 1) = (/ & - & 0.15219e-05,0.28978e-05,0.35015e-05,0.38984e-05,0.41569e-05, & - & 0.42771e-05,0.42110e-05,0.39963e-05,0.25504e-05 /) - kao(:, 5, 1, 1) = (/ & - & 0.15254e-05,0.29633e-05,0.36224e-05,0.40435e-05,0.42975e-05, & - & 0.44410e-05,0.43849e-05,0.41847e-05,0.26420e-05 /) - kao(:, 1, 2, 1) = (/ & - & 0.13024e-05,0.23699e-05,0.28370e-05,0.31443e-05,0.33326e-05, & - & 0.33798e-05,0.32797e-05,0.30078e-05,0.18819e-05 /) - kao(:, 2, 2, 1) = (/ & - & 0.13249e-05,0.24299e-05,0.29103e-05,0.32336e-05,0.34308e-05, & - & 0.35019e-05,0.34046e-05,0.31323e-05,0.19511e-05 /) - kao(:, 3, 2, 1) = (/ & - & 0.13241e-05,0.25059e-05,0.30019e-05,0.33317e-05,0.35516e-05, & - & 0.36333e-05,0.35372e-05,0.32615e-05,0.20254e-05 /) - kao(:, 4, 2, 1) = (/ & - & 0.13325e-05,0.25840e-05,0.31009e-05,0.34399e-05,0.36699e-05, & - & 0.37727e-05,0.36811e-05,0.34016e-05,0.20611e-05 /) - kao(:, 5, 2, 1) = (/ & - & 0.13321e-05,0.26601e-05,0.32189e-05,0.35640e-05,0.38012e-05, & - & 0.39113e-05,0.38271e-05,0.35499e-05,0.21368e-05 /) - kao(:, 1, 3, 1) = (/ & - & 0.11079e-05,0.20757e-05,0.24846e-05,0.27511e-05,0.28883e-05, & - & 0.29142e-05,0.28203e-05,0.25706e-05,0.15124e-05 /) - kao(:, 2, 3, 1) = (/ & - & 0.11298e-05,0.21278e-05,0.25551e-05,0.28306e-05,0.29814e-05, & - & 0.30126e-05,0.29328e-05,0.26721e-05,0.15784e-05 /) - kao(:, 3, 3, 1) = (/ & - & 0.11405e-05,0.21812e-05,0.26237e-05,0.29130e-05,0.30816e-05, & - & 0.31265e-05,0.30480e-05,0.27784e-05,0.16468e-05 /) - kao(:, 4, 3, 1) = (/ & - & 0.11347e-05,0.22472e-05,0.27094e-05,0.30057e-05,0.31821e-05, & - & 0.32536e-05,0.31714e-05,0.28837e-05,0.17189e-05 /) - kao(:, 5, 3, 1) = (/ & - & 0.11383e-05,0.23152e-05,0.28016e-05,0.31126e-05,0.33051e-05, & - & 0.33759e-05,0.32961e-05,0.29993e-05,0.17919e-05 /) - kao(:, 1, 4, 1) = (/ & - & 0.93104e-06,0.18005e-05,0.21693e-05,0.23819e-05,0.24829e-05, & - & 0.24860e-05,0.23860e-05,0.21586e-05,0.12198e-05 /) - kao(:, 2, 4, 1) = (/ & - & 0.94591e-06,0.18309e-05,0.22153e-05,0.24487e-05,0.25574e-05, & - & 0.25721e-05,0.24802e-05,0.22458e-05,0.13105e-05 /) - kao(:, 3, 4, 1) = (/ & - & 0.95638e-06,0.18753e-05,0.22788e-05,0.25149e-05,0.26499e-05, & - & 0.26671e-05,0.25797e-05,0.23335e-05,0.14017e-05 /) - kao(:, 4, 4, 1) = (/ & - & 0.95763e-06,0.19379e-05,0.23271e-05,0.25858e-05,0.27437e-05, & - & 0.27792e-05,0.26790e-05,0.24268e-05,0.14872e-05 /) - kao(:, 5, 4, 1) = (/ & - & 0.95668e-06,0.19877e-05,0.23997e-05,0.26721e-05,0.28382e-05, & - & 0.28806e-05,0.27857e-05,0.25225e-05,0.15698e-05 /) - kao(:, 1, 5, 1) = (/ & - & 0.77329e-06,0.15354e-05,0.18723e-05,0.20411e-05,0.21095e-05, & - & 0.21017e-05,0.19998e-05,0.18017e-05,0.97629e-06 /) - kao(:, 2, 5, 1) = (/ & - & 0.78241e-06,0.15660e-05,0.19091e-05,0.20970e-05,0.21786e-05, & - & 0.21730e-05,0.20794e-05,0.18731e-05,0.10645e-05 /) - kao(:, 3, 5, 1) = (/ & - & 0.79463e-06,0.15948e-05,0.19458e-05,0.21529e-05,0.22557e-05, & - & 0.22576e-05,0.21631e-05,0.19462e-05,0.11507e-05 /) - kao(:, 4, 5, 1) = (/ & - & 0.79779e-06,0.16389e-05,0.19877e-05,0.22087e-05,0.23274e-05, & - & 0.23462e-05,0.22501e-05,0.20204e-05,0.12366e-05 /) - kao(:, 5, 5, 1) = (/ & - & 0.79875e-06,0.16865e-05,0.20410e-05,0.22789e-05,0.24049e-05, & - & 0.24283e-05,0.23388e-05,0.21006e-05,0.13155e-05 /) - kao(:, 1, 6, 1) = (/ & - & 0.63799e-06,0.13079e-05,0.15873e-05,0.17187e-05,0.17689e-05, & - & 0.17509e-05,0.16625e-05,0.14950e-05,0.77624e-06 /) - kao(:, 2, 6, 1) = (/ & - & 0.64423e-06,0.13180e-05,0.16173e-05,0.17648e-05,0.18253e-05, & - & 0.18152e-05,0.17299e-05,0.15482e-05,0.85457e-06 /) - kao(:, 3, 6, 1) = (/ & - & 0.65214e-06,0.13481e-05,0.16476e-05,0.18158e-05,0.18867e-05, & - & 0.18859e-05,0.17999e-05,0.16080e-05,0.93968e-06 /) - kao(:, 4, 6, 1) = (/ & - & 0.65949e-06,0.13728e-05,0.16795e-05,0.18618e-05,0.19507e-05, & - & 0.19568e-05,0.18693e-05,0.16710e-05,0.10256e-05 /) - kao(:, 5, 6, 1) = (/ & - & 0.66012e-06,0.14051e-05,0.17174e-05,0.19154e-05,0.20111e-05, & - & 0.20230e-05,0.19421e-05,0.17361e-05,0.11072e-05 /) - kao(:, 1, 7, 1) = (/ & - & 0.52652e-06,0.10995e-05,0.13221e-05,0.14282e-05,0.14627e-05, & - & 0.14494e-05,0.13754e-05,0.12359e-05,0.62399e-06 /) - kao(:, 2, 7, 1) = (/ & - & 0.52631e-06,0.11047e-05,0.13498e-05,0.14646e-05,0.15094e-05, & - & 0.14961e-05,0.14272e-05,0.12791e-05,0.69692e-06 /) - kao(:, 3, 7, 1) = (/ & - & 0.53263e-06,0.11231e-05,0.13763e-05,0.15059e-05,0.15602e-05, & - & 0.15533e-05,0.14827e-05,0.13257e-05,0.76959e-06 /) - kao(:, 4, 7, 1) = (/ & - & 0.53788e-06,0.11448e-05,0.14026e-05,0.15478e-05,0.16122e-05, & - & 0.16137e-05,0.15398e-05,0.13748e-05,0.84488e-06 /) - kao(:, 5, 7, 1) = (/ & - & 0.54243e-06,0.11660e-05,0.14288e-05,0.15891e-05,0.16619e-05, & - & 0.16672e-05,0.15978e-05,0.14265e-05,0.92439e-06 /) - kao(:, 1, 8, 1) = (/ & - & 0.42860e-06,0.91208e-06,0.10887e-05,0.11732e-05,0.12000e-05, & - & 0.11901e-05,0.11300e-05,0.10181e-05,0.51360e-06 /) - kao(:, 2, 8, 1) = (/ & - & 0.42605e-06,0.91355e-06,0.11105e-05,0.12004e-05,0.12359e-05, & - & 0.12238e-05,0.11674e-05,0.10496e-05,0.58593e-06 /) - kao(:, 3, 8, 1) = (/ & - & 0.42910e-06,0.92458e-06,0.11341e-05,0.12355e-05,0.12754e-05, & - & 0.12667e-05,0.12100e-05,0.10877e-05,0.65209e-06 /) - kao(:, 4, 8, 1) = (/ & - & 0.43345e-06,0.94024e-06,0.11540e-05,0.12669e-05,0.13186e-05, & - & 0.13163e-05,0.12567e-05,0.11280e-05,0.72051e-06 /) - kao(:, 5, 8, 1) = (/ & - & 0.43744e-06,0.95845e-06,0.11764e-05,0.13022e-05,0.13595e-05, & - & 0.13618e-05,0.13034e-05,0.11671e-05,0.79373e-06 /) - kao(:, 1, 9, 1) = (/ & - & 0.34458e-06,0.74844e-06,0.89217e-06,0.95875e-06,0.98243e-06, & - & 0.97566e-06,0.92936e-06,0.83611e-06,0.44181e-06 /) - kao(:, 2, 9, 1) = (/ & - & 0.34797e-06,0.75304e-06,0.90816e-06,0.98264e-06,0.10080e-05, & - & 0.99889e-06,0.95318e-06,0.86041e-06,0.51013e-06 /) - kao(:, 3, 9, 1) = (/ & - & 0.34593e-06,0.76020e-06,0.92707e-06,0.10062e-05,0.10391e-05, & - & 0.10296e-05,0.98530e-06,0.89011e-06,0.58070e-06 /) - kao(:, 4, 9, 1) = (/ & - & 0.34971e-06,0.77088e-06,0.94623e-06,0.10342e-05,0.10726e-05, & - & 0.10689e-05,0.10210e-05,0.92020e-06,0.65697e-06 /) - kao(:, 5, 9, 1) = (/ & - & 0.35282e-06,0.78517e-06,0.96245e-06,0.10609e-05,0.11071e-05, & - & 0.11073e-05,0.10583e-05,0.95054e-06,0.72956e-06 /) - kao(:, 1,10, 1) = (/ & - & 0.27840e-06,0.61035e-06,0.72930e-06,0.78415e-06,0.80451e-06, & - & 0.79924e-06,0.76231e-06,0.68727e-06,0.40208e-06 /) - kao(:, 2,10, 1) = (/ & - & 0.28171e-06,0.61798e-06,0.74197e-06,0.80115e-06,0.82183e-06, & - & 0.81621e-06,0.78030e-06,0.70425e-06,0.46700e-06 /) - kao(:, 3,10, 1) = (/ & - & 0.28023e-06,0.62269e-06,0.75685e-06,0.82101e-06,0.84538e-06, & - & 0.83821e-06,0.80301e-06,0.72663e-06,0.53781e-06 /) - kao(:, 4,10, 1) = (/ & - & 0.28163e-06,0.63156e-06,0.77214e-06,0.84244e-06,0.87184e-06, & - & 0.86752e-06,0.83024e-06,0.75000e-06,0.60478e-06 /) - kao(:, 5,10, 1) = (/ & - & 0.28518e-06,0.64070e-06,0.78628e-06,0.86439e-06,0.89969e-06, & - & 0.89910e-06,0.85933e-06,0.77376e-06,0.67016e-06 /) - kao(:, 1,11, 1) = (/ & - & 0.22555e-06,0.50042e-06,0.59960e-06,0.64537e-06,0.66324e-06, & - & 0.65924e-06,0.63003e-06,0.56890e-06,0.34466e-06 /) - kao(:, 2,11, 1) = (/ & - & 0.22858e-06,0.50705e-06,0.60997e-06,0.65948e-06,0.67688e-06, & - & 0.67311e-06,0.64462e-06,0.58333e-06,0.40300e-06 /) - kao(:, 3,11, 1) = (/ & - & 0.22677e-06,0.51178e-06,0.62299e-06,0.67572e-06,0.69624e-06, & - & 0.69126e-06,0.66285e-06,0.60090e-06,0.46066e-06 /) - kao(:, 4,11, 1) = (/ & - & 0.22825e-06,0.51907e-06,0.63500e-06,0.69311e-06,0.71796e-06, & - & 0.71484e-06,0.68416e-06,0.61859e-06,0.51966e-06 /) - kao(:, 5,11, 1) = (/ & - & 0.23122e-06,0.52598e-06,0.64574e-06,0.71116e-06,0.74046e-06, & - & 0.73979e-06,0.70672e-06,0.63708e-06,0.58196e-06 /) - kao(:, 1,12, 1) = (/ & - & 0.18149e-06,0.40829e-06,0.49022e-06,0.52910e-06,0.54408e-06, & - & 0.54163e-06,0.51867e-06,0.46933e-06,0.28496e-06 /) - kao(:, 2,12, 1) = (/ & - & 0.18433e-06,0.41378e-06,0.49908e-06,0.54027e-06,0.55522e-06, & - & 0.55286e-06,0.53038e-06,0.48103e-06,0.33336e-06 /) - kao(:, 3,12, 1) = (/ & - & 0.18246e-06,0.41799e-06,0.50965e-06,0.55347e-06,0.57134e-06, & - & 0.56787e-06,0.54477e-06,0.49462e-06,0.38023e-06 /) - kao(:, 4,12, 1) = (/ & - & 0.18409e-06,0.42347e-06,0.51936e-06,0.56749e-06,0.58877e-06, & - & 0.58648e-06,0.56149e-06,0.50825e-06,0.43081e-06 /) - kao(:, 5,12, 1) = (/ & - & 0.18582e-06,0.42888e-06,0.52830e-06,0.58240e-06,0.60647e-06, & - & 0.60598e-06,0.57933e-06,0.52277e-06,0.48565e-06 /) - kao(:, 1,13, 1) = (/ & - & 0.14345e-06,0.32927e-06,0.39750e-06,0.43000e-06,0.44318e-06, & - & 0.44201e-06,0.42469e-06,0.38538e-06,0.23377e-06 /) - kao(:, 2,13, 1) = (/ & - & 0.14571e-06,0.33355e-06,0.40430e-06,0.43954e-06,0.45256e-06, & - & 0.45159e-06,0.43399e-06,0.39467e-06,0.27338e-06 /) - kao(:, 3,13, 1) = (/ & - & 0.14442e-06,0.33719e-06,0.41316e-06,0.44996e-06,0.46575e-06, & - & 0.46364e-06,0.44528e-06,0.40510e-06,0.31154e-06 /) - kao(:, 4,13, 1) = (/ & - & 0.14600e-06,0.34141e-06,0.42136e-06,0.46096e-06,0.47937e-06, & - & 0.47817e-06,0.45850e-06,0.41598e-06,0.35289e-06 /) - kao(:, 5,13, 1) = (/ & - & 0.14667e-06,0.34608e-06,0.42853e-06,0.47296e-06,0.49300e-06, & - & 0.49352e-06,0.47280e-06,0.42757e-06,0.39752e-06 /) - kao(:, 1, 1, 2) = (/ & - & 0.16288e-04,0.25817e-04,0.29597e-04,0.31319e-04,0.31220e-04, & - & 0.29539e-04,0.25627e-04,0.19758e-04,0.72944e-05 /) - kao(:, 2, 1, 2) = (/ & - & 0.18123e-04,0.28565e-04,0.32633e-04,0.34427e-04,0.34219e-04, & - & 0.32223e-04,0.27987e-04,0.21485e-04,0.79554e-05 /) - kao(:, 3, 1, 2) = (/ & - & 0.19957e-04,0.31607e-04,0.36033e-04,0.37887e-04,0.37694e-04, & - & 0.35399e-04,0.30718e-04,0.23412e-04,0.85293e-05 /) - kao(:, 4, 1, 2) = (/ & - & 0.22005e-04,0.35064e-04,0.39763e-04,0.41694e-04,0.41490e-04, & - & 0.38891e-04,0.33715e-04,0.25512e-04,0.91232e-05 /) - kao(:, 5, 1, 2) = (/ & - & 0.24240e-04,0.38906e-04,0.43899e-04,0.45870e-04,0.45580e-04, & - & 0.42616e-04,0.36912e-04,0.27728e-04,0.97792e-05 /) - kao(:, 1, 2, 2) = (/ & - & 0.14944e-04,0.23223e-04,0.25792e-04,0.27019e-04,0.26963e-04, & - & 0.25431e-04,0.22069e-04,0.16933e-04,0.59071e-05 /) - kao(:, 2, 2, 2) = (/ & - & 0.16615e-04,0.25452e-04,0.28322e-04,0.29800e-04,0.29593e-04, & - & 0.27776e-04,0.24123e-04,0.18444e-04,0.63142e-05 /) - kao(:, 3, 2, 2) = (/ & - & 0.18355e-04,0.27996e-04,0.31338e-04,0.32892e-04,0.32575e-04, & - & 0.30478e-04,0.26504e-04,0.20132e-04,0.67898e-05 /) - kao(:, 4, 2, 2) = (/ & - & 0.20092e-04,0.30938e-04,0.34680e-04,0.36255e-04,0.35836e-04, & - & 0.33500e-04,0.29106e-04,0.21950e-04,0.73343e-05 /) - kao(:, 5, 2, 2) = (/ & - & 0.21897e-04,0.34150e-04,0.38274e-04,0.39931e-04,0.39337e-04, & - & 0.36752e-04,0.31831e-04,0.23882e-04,0.78705e-05 /) - kao(:, 1, 3, 2) = (/ & - & 0.13130e-04,0.20363e-04,0.22377e-04,0.23003e-04,0.22683e-04, & - & 0.21429e-04,0.18621e-04,0.14177e-04,0.47892e-05 /) - kao(:, 2, 3, 2) = (/ & - & 0.14610e-04,0.22299e-04,0.24486e-04,0.25140e-04,0.24842e-04, & - & 0.23413e-04,0.20361e-04,0.15469e-04,0.52250e-05 /) - kao(:, 3, 3, 2) = (/ & - & 0.16133e-04,0.24482e-04,0.26876e-04,0.27653e-04,0.27357e-04, & - & 0.25669e-04,0.22341e-04,0.16897e-04,0.56647e-05 /) - kao(:, 4, 3, 2) = (/ & - & 0.17708e-04,0.26887e-04,0.29522e-04,0.30577e-04,0.30151e-04, & - & 0.28221e-04,0.24545e-04,0.18455e-04,0.60735e-05 /) - kao(:, 5, 3, 2) = (/ & - & 0.19305e-04,0.29364e-04,0.32520e-04,0.33741e-04,0.33162e-04, & - & 0.30976e-04,0.26800e-04,0.20103e-04,0.64864e-05 /) - kao(:, 1, 4, 2) = (/ & - & 0.11163e-04,0.17498e-04,0.19069e-04,0.19561e-04,0.19154e-04, & - & 0.17906e-04,0.15522e-04,0.11778e-04,0.40461e-05 /) - kao(:, 2, 4, 2) = (/ & - & 0.12505e-04,0.19238e-04,0.20917e-04,0.21365e-04,0.20913e-04, & - & 0.19471e-04,0.16986e-04,0.12856e-04,0.43935e-05 /) - kao(:, 3, 4, 2) = (/ & - & 0.13848e-04,0.21132e-04,0.22975e-04,0.23433e-04,0.22893e-04, & - & 0.21327e-04,0.18662e-04,0.14056e-04,0.47015e-05 /) - kao(:, 4, 4, 2) = (/ & - & 0.15219e-04,0.23159e-04,0.25250e-04,0.25753e-04,0.25088e-04, & - & 0.23437e-04,0.20455e-04,0.15366e-04,0.50239e-05 /) - kao(:, 5, 4, 2) = (/ & - & 0.16631e-04,0.25311e-04,0.27651e-04,0.28243e-04,0.27566e-04, & - & 0.25775e-04,0.22344e-04,0.16758e-04,0.53594e-05 /) - kao(:, 1, 5, 2) = (/ & - & 0.92688e-05,0.14829e-04,0.16036e-04,0.16388e-04,0.16087e-04, & - & 0.15049e-04,0.12939e-04,0.97243e-05,0.35064e-05 /) - kao(:, 2, 5, 2) = (/ & - & 0.10428e-04,0.16289e-04,0.17596e-04,0.17928e-04,0.17547e-04, & - & 0.16347e-04,0.14108e-04,0.10621e-04,0.37893e-05 /) - kao(:, 3, 5, 2) = (/ & - & 0.11600e-04,0.17922e-04,0.19403e-04,0.19701e-04,0.19227e-04, & - & 0.17835e-04,0.15439e-04,0.11627e-04,0.40426e-05 /) - kao(:, 4, 5, 2) = (/ & - & 0.12795e-04,0.19672e-04,0.21360e-04,0.21677e-04,0.21078e-04, & - & 0.19535e-04,0.16919e-04,0.12746e-04,0.43015e-05 /) - kao(:, 5, 5, 2) = (/ & - & 0.14029e-04,0.21551e-04,0.23410e-04,0.23746e-04,0.23106e-04, & - & 0.21397e-04,0.18500e-04,0.13918e-04,0.45663e-05 /) - kao(:, 1, 6, 2) = (/ & - & 0.75358e-05,0.12284e-04,0.13321e-04,0.13580e-04,0.13322e-04, & - & 0.12459e-04,0.10757e-04,0.80012e-05,0.28595e-05 /) - kao(:, 2, 6, 2) = (/ & - & 0.84801e-05,0.13541e-04,0.14600e-04,0.14857e-04,0.14519e-04, & - & 0.13528e-04,0.11747e-04,0.87199e-05,0.31250e-05 /) - kao(:, 3, 6, 2) = (/ & - & 0.94797e-05,0.14898e-04,0.16088e-04,0.16329e-04,0.15922e-04, & - & 0.14786e-04,0.12839e-04,0.95406e-05,0.33925e-05 /) - kao(:, 4, 6, 2) = (/ & - & 0.10510e-04,0.16387e-04,0.17709e-04,0.17968e-04,0.17465e-04, & - & 0.16205e-04,0.13999e-04,0.10465e-04,0.36786e-05 /) - kao(:, 5, 6, 2) = (/ & - & 0.11554e-04,0.17973e-04,0.19442e-04,0.19736e-04,0.19170e-04, & - & 0.17751e-04,0.15288e-04,0.11441e-04,0.39618e-05 /) - kao(:, 1, 7, 2) = (/ & - & 0.59994e-05,0.10068e-04,0.10903e-04,0.11100e-04,0.10910e-04, & - & 0.10207e-04,0.88301e-05,0.65755e-05,0.23537e-05 /) - kao(:, 2, 7, 2) = (/ & - & 0.67911e-05,0.11098e-04,0.11964e-04,0.12161e-04,0.11910e-04, & - & 0.11113e-04,0.96475e-05,0.71733e-05,0.26021e-05 /) - kao(:, 3, 7, 2) = (/ & - & 0.76012e-05,0.12205e-04,0.13167e-04,0.13368e-04,0.13058e-04, & - & 0.12136e-04,0.10571e-04,0.78452e-05,0.28416e-05 /) - kao(:, 4, 7, 2) = (/ & - & 0.84582e-05,0.13412e-04,0.14518e-04,0.14721e-04,0.14328e-04, & - & 0.13323e-04,0.11527e-04,0.85995e-05,0.30925e-05 /) - kao(:, 5, 7, 2) = (/ & - & 0.93346e-05,0.14749e-04,0.15973e-04,0.16180e-04,0.15730e-04, & - & 0.14597e-04,0.12601e-04,0.93973e-05,0.33285e-05 /) - kao(:, 1, 8, 2) = (/ & - & 0.47174e-05,0.81367e-05,0.88184e-05,0.90007e-05,0.88363e-05, & - & 0.83059e-05,0.72101e-05,0.53496e-05,0.18862e-05 /) - kao(:, 2, 8, 2) = (/ & - & 0.53543e-05,0.89852e-05,0.96904e-05,0.98666e-05,0.96509e-05, & - & 0.90368e-05,0.78700e-05,0.58341e-05,0.21147e-05 /) - kao(:, 3, 8, 2) = (/ & - & 0.60088e-05,0.98855e-05,0.10666e-04,0.10849e-04,0.10597e-04, & - & 0.98826e-05,0.86243e-05,0.63949e-05,0.23672e-05 /) - kao(:, 4, 8, 2) = (/ & - & 0.66958e-05,0.10873e-04,0.11751e-04,0.11945e-04,0.11636e-04, & - & 0.10852e-04,0.94101e-05,0.70262e-05,0.26329e-05 /) - kao(:, 5, 8, 2) = (/ & - & 0.74191e-05,0.11960e-04,0.12943e-04,0.13152e-04,0.12788e-04, & - & 0.11889e-04,0.10297e-04,0.76977e-05,0.29019e-05 /) - kao(:, 1, 9, 2) = (/ & - & 0.36886e-05,0.65140e-05,0.70684e-05,0.72377e-05,0.71080e-05, & - & 0.67076e-05,0.58353e-05,0.43297e-05,0.16419e-05 /) - kao(:, 2, 9, 2) = (/ & - & 0.41772e-05,0.72104e-05,0.77793e-05,0.79335e-05,0.77682e-05, & - & 0.72903e-05,0.63640e-05,0.47210e-05,0.18721e-05 /) - kao(:, 3, 9, 2) = (/ & - & 0.47123e-05,0.79471e-05,0.85662e-05,0.87396e-05,0.85319e-05, & - & 0.79769e-05,0.69694e-05,0.51793e-05,0.21015e-05 /) - kao(:, 4, 9, 2) = (/ & - & 0.52612e-05,0.87319e-05,0.94365e-05,0.96191e-05,0.93783e-05, & - & 0.87581e-05,0.76277e-05,0.56974e-05,0.23505e-05 /) - kao(:, 5, 9, 2) = (/ & - & 0.58401e-05,0.96106e-05,0.10404e-04,0.10594e-04,0.10308e-04, & - & 0.96030e-05,0.83402e-05,0.62627e-05,0.26170e-05 /) - kao(:, 1,10, 2) = (/ & - & 0.29023e-05,0.52230e-05,0.56669e-05,0.58158e-05,0.57137e-05, & - & 0.54241e-05,0.47416e-05,0.35098e-05,0.14223e-05 /) - kao(:, 2,10, 2) = (/ & - & 0.32752e-05,0.57903e-05,0.62548e-05,0.63859e-05,0.62528e-05, & - & 0.58881e-05,0.51542e-05,0.38257e-05,0.16559e-05 /) - kao(:, 3,10, 2) = (/ & - & 0.37047e-05,0.63892e-05,0.68928e-05,0.70312e-05,0.68734e-05, & - & 0.64357e-05,0.56361e-05,0.42003e-05,0.19248e-05 /) - kao(:, 4,10, 2) = (/ & - & 0.41471e-05,0.70179e-05,0.75920e-05,0.77496e-05,0.75508e-05, & - & 0.70624e-05,0.61778e-05,0.46271e-05,0.22074e-05 /) - kao(:, 5,10, 2) = (/ & - & 0.46061e-05,0.77215e-05,0.83699e-05,0.85300e-05,0.83121e-05, & - & 0.77493e-05,0.67551e-05,0.50931e-05,0.25043e-05 /) - kao(:, 1,11, 2) = (/ & - & 0.24060e-05,0.43752e-05,0.47372e-05,0.48598e-05,0.47689e-05, & - & 0.45290e-05,0.39653e-05,0.29444e-05,0.12255e-05 /) - kao(:, 2,11, 2) = (/ & - & 0.27123e-05,0.48479e-05,0.52339e-05,0.53482e-05,0.52342e-05, & - & 0.49275e-05,0.43239e-05,0.32196e-05,0.14282e-05 /) - kao(:, 3,11, 2) = (/ & - & 0.30632e-05,0.53402e-05,0.57660e-05,0.58936e-05,0.57515e-05, & - & 0.53873e-05,0.47344e-05,0.35410e-05,0.16636e-05 /) - kao(:, 4,11, 2) = (/ & - & 0.34245e-05,0.58653e-05,0.63554e-05,0.64878e-05,0.63244e-05, & - & 0.59147e-05,0.51855e-05,0.39068e-05,0.18858e-05 /) - kao(:, 5,11, 2) = (/ & - & 0.37984e-05,0.64557e-05,0.70032e-05,0.71432e-05,0.69591e-05, & - & 0.64936e-05,0.56748e-05,0.42889e-05,0.21529e-05 /) - kao(:, 1,12, 2) = (/ & - & 0.19822e-05,0.36438e-05,0.39439e-05,0.40428e-05,0.39656e-05, & - & 0.37627e-05,0.33048e-05,0.24620e-05,0.10349e-05 /) - kao(:, 2,12, 2) = (/ & - & 0.22347e-05,0.40329e-05,0.43559e-05,0.44535e-05,0.43556e-05, & - & 0.41018e-05,0.36156e-05,0.26976e-05,0.12078e-05 /) - kao(:, 3,12, 2) = (/ & - & 0.25196e-05,0.44405e-05,0.47965e-05,0.49025e-05,0.47850e-05, & - & 0.44854e-05,0.39542e-05,0.29734e-05,0.13908e-05 /) - kao(:, 4,12, 2) = (/ & - & 0.28142e-05,0.48792e-05,0.52882e-05,0.53962e-05,0.52646e-05, & - & 0.49202e-05,0.43229e-05,0.32817e-05,0.15895e-05 /) - kao(:, 5,12, 2) = (/ & - & 0.31182e-05,0.53684e-05,0.58256e-05,0.59413e-05,0.57855e-05, & - & 0.54043e-05,0.47298e-05,0.35925e-05,0.18050e-05 /) - kao(:, 1,13, 2) = (/ & - & 0.16206e-05,0.30122e-05,0.32612e-05,0.33451e-05,0.32794e-05, & - & 0.31144e-05,0.27430e-05,0.20488e-05,0.85267e-06 /) - kao(:, 2,13, 2) = (/ & - & 0.18267e-05,0.33331e-05,0.36002e-05,0.36816e-05,0.36054e-05, & - & 0.33950e-05,0.30021e-05,0.22487e-05,0.99490e-06 /) - kao(:, 3,13, 2) = (/ & - & 0.20587e-05,0.36681e-05,0.39651e-05,0.40531e-05,0.39564e-05, & - & 0.37127e-05,0.32815e-05,0.24795e-05,0.11422e-05 /) - kao(:, 4,13, 2) = (/ & - & 0.22973e-05,0.40325e-05,0.43728e-05,0.44600e-05,0.43540e-05, & - & 0.40718e-05,0.35848e-05,0.27366e-05,0.13051e-05 /) - kao(:, 5,13, 2) = (/ & - & 0.25452e-05,0.44379e-05,0.48164e-05,0.49100e-05,0.47833e-05, & - & 0.44674e-05,0.39194e-05,0.29904e-05,0.14817e-05 /) - kao(:, 1, 1, 3) = (/ & - & 0.66641e-04,0.92990e-04,0.96277e-04,0.95182e-04,0.91424e-04, & - & 0.85445e-04,0.77014e-04,0.62091e-04,0.18284e-04 /) - kao(:, 2, 1, 3) = (/ & - & 0.75350e-04,0.10391e-03,0.10751e-03,0.10606e-03,0.10174e-03, & - & 0.94756e-04,0.84487e-04,0.67267e-04,0.20037e-04 /) - kao(:, 3, 1, 3) = (/ & - & 0.85286e-04,0.11563e-03,0.11966e-03,0.11777e-03,0.11259e-03, & - & 0.10435e-03,0.92076e-04,0.72492e-04,0.22229e-04 /) - kao(:, 4, 1, 3) = (/ & - & 0.96137e-04,0.12836e-03,0.13265e-03,0.13031e-03,0.12404e-03, & - & 0.11409e-03,0.99756e-04,0.77897e-04,0.24656e-04 /) - kao(:, 5, 1, 3) = (/ & - & 0.10739e-03,0.14209e-03,0.14652e-03,0.14363e-03,0.13579e-03, & - & 0.12408e-03,0.10749e-03,0.83273e-04,0.26998e-04 /) - kao(:, 1, 2, 3) = (/ & - & 0.57005e-04,0.80688e-04,0.84199e-04,0.83067e-04,0.79480e-04, & - & 0.74096e-04,0.66328e-04,0.53532e-04,0.14534e-04 /) - kao(:, 2, 2, 3) = (/ & - & 0.64518e-04,0.90274e-04,0.94149e-04,0.92496e-04,0.88374e-04, & - & 0.82048e-04,0.72698e-04,0.57871e-04,0.16202e-04 /) - kao(:, 3, 2, 3) = (/ & - & 0.73014e-04,0.10065e-03,0.10466e-03,0.10271e-03,0.97880e-04, & - & 0.90372e-04,0.79361e-04,0.62357e-04,0.18056e-04 /) - kao(:, 4, 2, 3) = (/ & - & 0.82297e-04,0.11195e-03,0.11586e-03,0.11365e-03,0.10799e-03, & - & 0.98829e-04,0.85923e-04,0.66891e-04,0.19890e-04 /) - kao(:, 5, 2, 3) = (/ & - & 0.92175e-04,0.12399e-03,0.12794e-03,0.12531e-03,0.11825e-03, & - & 0.10764e-03,0.92744e-04,0.71608e-04,0.21968e-04 /) - kao(:, 1, 3, 3) = (/ & - & 0.47324e-04,0.68167e-04,0.71069e-04,0.70293e-04,0.67313e-04, & - & 0.62456e-04,0.55646e-04,0.44933e-04,0.11374e-04 /) - kao(:, 2, 3, 3) = (/ & - & 0.53658e-04,0.76342e-04,0.79560e-04,0.78547e-04,0.74997e-04, & - & 0.69264e-04,0.61119e-04,0.48587e-04,0.12639e-04 /) - kao(:, 3, 3, 3) = (/ & - & 0.60905e-04,0.85247e-04,0.88738e-04,0.87387e-04,0.83098e-04, & - & 0.76432e-04,0.66733e-04,0.52275e-04,0.13871e-04 /) - kao(:, 4, 3, 3) = (/ & - & 0.68831e-04,0.94960e-04,0.98638e-04,0.96778e-04,0.91816e-04, & - & 0.83747e-04,0.72403e-04,0.56165e-04,0.15423e-04 /) - kao(:, 5, 3, 3) = (/ & - & 0.77259e-04,0.10549e-03,0.10909e-03,0.10672e-03,0.10065e-03, & - & 0.91320e-04,0.78406e-04,0.60157e-04,0.17141e-04 /) - kao(:, 1, 4, 3) = (/ & - & 0.40102e-04,0.56990e-04,0.59444e-04,0.58732e-04,0.56091e-04, & - & 0.51902e-04,0.46247e-04,0.37442e-04,0.94022e-05 /) - kao(:, 2, 4, 3) = (/ & - & 0.44930e-04,0.63893e-04,0.66629e-04,0.65694e-04,0.62627e-04, & - & 0.57822e-04,0.50819e-04,0.40421e-04,0.10475e-04 /) - kao(:, 3, 4, 3) = (/ & - & 0.50532e-04,0.71424e-04,0.74352e-04,0.73221e-04,0.69651e-04, & - & 0.64034e-04,0.55430e-04,0.43529e-04,0.11728e-04 /) - kao(:, 4, 4, 3) = (/ & - & 0.56953e-04,0.79740e-04,0.82769e-04,0.81314e-04,0.77278e-04, & - & 0.70324e-04,0.60396e-04,0.46747e-04,0.13063e-04 /) - kao(:, 5, 4, 3) = (/ & - & 0.64019e-04,0.88647e-04,0.91768e-04,0.89926e-04,0.84958e-04, & - & 0.76740e-04,0.65561e-04,0.50066e-04,0.14435e-04 /) - kao(:, 1, 5, 3) = (/ & - & 0.33806e-04,0.47826e-04,0.49443e-04,0.48775e-04,0.46477e-04, & - & 0.42791e-04,0.38155e-04,0.31175e-04,0.77886e-05 /) - kao(:, 2, 5, 3) = (/ & - & 0.37973e-04,0.53392e-04,0.55526e-04,0.54719e-04,0.52062e-04, & - & 0.47763e-04,0.42021e-04,0.33510e-04,0.87404e-05 /) - kao(:, 3, 5, 3) = (/ & - & 0.42758e-04,0.59666e-04,0.62058e-04,0.61127e-04,0.58012e-04, & - & 0.53071e-04,0.45971e-04,0.36114e-04,0.98499e-05 /) - kao(:, 4, 5, 3) = (/ & - & 0.48006e-04,0.66679e-04,0.69230e-04,0.67989e-04,0.64400e-04, & - & 0.58521e-04,0.50196e-04,0.38710e-04,0.11022e-04 /) - kao(:, 5, 5, 3) = (/ & - & 0.53657e-04,0.74244e-04,0.76813e-04,0.75303e-04,0.71011e-04, & - & 0.64092e-04,0.54599e-04,0.41481e-04,0.12225e-04 /) - kao(:, 1, 6, 3) = (/ & - & 0.27953e-04,0.40223e-04,0.41331e-04,0.40332e-04,0.38114e-04, & - & 0.34967e-04,0.31158e-04,0.25701e-04,0.67604e-05 /) - kao(:, 2, 6, 3) = (/ & - & 0.31595e-04,0.44975e-04,0.46374e-04,0.45229e-04,0.42775e-04, & - & 0.39162e-04,0.34373e-04,0.27616e-04,0.75558e-05 /) - kao(:, 3, 6, 3) = (/ & - & 0.35649e-04,0.50263e-04,0.51713e-04,0.50516e-04,0.47855e-04, & - & 0.43605e-04,0.37705e-04,0.29800e-04,0.84063e-05 /) - kao(:, 4, 6, 3) = (/ & - & 0.40086e-04,0.55905e-04,0.57584e-04,0.56348e-04,0.53200e-04, & - & 0.48283e-04,0.41331e-04,0.31936e-04,0.92686e-05 /) - kao(:, 5, 6, 3) = (/ & - & 0.44931e-04,0.62025e-04,0.63942e-04,0.62498e-04,0.58788e-04, & - & 0.53032e-04,0.45085e-04,0.34229e-04,0.10175e-04 /) - kao(:, 1, 7, 3) = (/ & - & 0.22829e-04,0.33278e-04,0.34196e-04,0.33381e-04,0.31444e-04, & - & 0.28615e-04,0.25331e-04,0.21096e-04,0.60732e-05 /) - kao(:, 2, 7, 3) = (/ & - & 0.25917e-04,0.37424e-04,0.38527e-04,0.37580e-04,0.35302e-04, & - & 0.32020e-04,0.27957e-04,0.22660e-04,0.68180e-05 /) - kao(:, 3, 7, 3) = (/ & - & 0.29386e-04,0.41933e-04,0.43213e-04,0.42039e-04,0.39445e-04, & - & 0.35659e-04,0.30780e-04,0.24432e-04,0.76296e-05 /) - kao(:, 4, 7, 3) = (/ & - & 0.33186e-04,0.46811e-04,0.48218e-04,0.46849e-04,0.43848e-04, & - & 0.39567e-04,0.33858e-04,0.26257e-04,0.82634e-05 /) - kao(:, 5, 7, 3) = (/ & - & 0.37227e-04,0.52060e-04,0.53592e-04,0.51948e-04,0.48471e-04, & - & 0.43595e-04,0.37022e-04,0.28130e-04,0.90053e-05 /) - kao(:, 1, 8, 3) = (/ & - & 0.18333e-04,0.27259e-04,0.27929e-04,0.27230e-04,0.25672e-04, & - & 0.23374e-04,0.20571e-04,0.17333e-04,0.54157e-05 /) - kao(:, 2, 8, 3) = (/ & - & 0.20948e-04,0.30774e-04,0.31604e-04,0.30823e-04,0.29002e-04, & - & 0.26292e-04,0.22734e-04,0.18593e-04,0.61669e-05 /) - kao(:, 3, 8, 3) = (/ & - & 0.23883e-04,0.34642e-04,0.35656e-04,0.34670e-04,0.32507e-04, & - & 0.29303e-04,0.25111e-04,0.19985e-04,0.69048e-05 /) - kao(:, 4, 8, 3) = (/ & - & 0.27098e-04,0.38802e-04,0.40013e-04,0.38777e-04,0.36214e-04, & - & 0.32542e-04,0.27674e-04,0.21526e-04,0.76591e-05 /) - kao(:, 5, 8, 3) = (/ & - & 0.30462e-04,0.43307e-04,0.44596e-04,0.43127e-04,0.40142e-04, & - & 0.35890e-04,0.30276e-04,0.23065e-04,0.84480e-05 /) - kao(:, 1, 9, 3) = (/ & - & 0.14510e-04,0.22049e-04,0.22596e-04,0.22021e-04,0.20750e-04, & - & 0.18895e-04,0.16685e-04,0.14158e-04,0.50284e-05 /) - kao(:, 2, 9, 3) = (/ & - & 0.16710e-04,0.25012e-04,0.25686e-04,0.25017e-04,0.23537e-04, & - & 0.21350e-04,0.18517e-04,0.15170e-04,0.59016e-05 /) - kao(:, 3, 9, 3) = (/ & - & 0.19138e-04,0.28271e-04,0.29104e-04,0.28272e-04,0.26493e-04, & - & 0.23916e-04,0.20530e-04,0.16297e-04,0.68413e-05 /) - kao(:, 4, 9, 3) = (/ & - & 0.21798e-04,0.31859e-04,0.32802e-04,0.31762e-04,0.29603e-04, & - & 0.26643e-04,0.22650e-04,0.17559e-04,0.78093e-05 /) - kao(:, 5, 9, 3) = (/ & - & 0.24599e-04,0.35618e-04,0.36736e-04,0.35456e-04,0.32981e-04, & - & 0.29459e-04,0.24877e-04,0.18821e-04,0.88149e-05 /) - kao(:, 1,10, 3) = (/ & - & 0.11455e-04,0.17796e-04,0.18282e-04,0.17833e-04,0.16814e-04, & - & 0.15305e-04,0.13526e-04,0.11628e-04,0.47637e-05 /) - kao(:, 2,10, 3) = (/ & - & 0.13295e-04,0.20290e-04,0.20862e-04,0.20316e-04,0.19125e-04, & - & 0.17348e-04,0.15042e-04,0.12455e-04,0.56495e-05 /) - kao(:, 3,10, 3) = (/ & - & 0.15297e-04,0.22994e-04,0.23740e-04,0.23076e-04,0.21626e-04, & - & 0.19529e-04,0.16766e-04,0.13399e-04,0.65988e-05 /) - kao(:, 4,10, 3) = (/ & - & 0.17488e-04,0.25986e-04,0.26882e-04,0.26021e-04,0.24246e-04, & - & 0.21820e-04,0.18554e-04,0.14427e-04,0.74644e-05 /) - kao(:, 5,10, 3) = (/ & - & 0.19800e-04,0.29160e-04,0.30208e-04,0.29161e-04,0.27086e-04, & - & 0.24189e-04,0.20462e-04,0.15474e-04,0.84395e-05 /) - kao(:, 1,11, 3) = (/ & - & 0.96366e-05,0.15168e-04,0.15611e-04,0.15230e-04,0.14381e-04, & - & 0.13058e-04,0.11457e-04,0.98195e-05,0.43210e-05 /) - kao(:, 2,11, 3) = (/ & - & 0.11221e-04,0.17304e-04,0.17859e-04,0.17390e-04,0.16383e-04, & - & 0.14837e-04,0.12820e-04,0.10541e-04,0.50915e-05 /) - kao(:, 3,11, 3) = (/ & - & 0.12922e-04,0.19611e-04,0.20376e-04,0.19769e-04,0.18510e-04, & - & 0.16733e-04,0.14297e-04,0.11375e-04,0.59349e-05 /) - kao(:, 4,11, 3) = (/ & - & 0.14759e-04,0.22226e-04,0.23087e-04,0.22319e-04,0.20789e-04, & - & 0.18677e-04,0.15854e-04,0.12233e-04,0.68646e-05 /) - kao(:, 5,11, 3) = (/ & - & 0.16687e-04,0.24901e-04,0.25894e-04,0.25020e-04,0.23234e-04, & - & 0.20746e-04,0.17450e-04,0.13143e-04,0.77945e-05 /) - kao(:, 1,12, 3) = (/ & - & 0.80728e-05,0.12833e-04,0.13241e-04,0.12930e-04,0.12209e-04, & - & 0.11077e-04,0.96874e-05,0.82518e-05,0.36987e-05 /) - kao(:, 2,12, 3) = (/ & - & 0.94096e-05,0.14647e-04,0.15179e-04,0.14789e-04,0.13929e-04, & - & 0.12614e-04,0.10863e-04,0.88839e-05,0.43642e-05 /) - kao(:, 3,12, 3) = (/ & - & 0.10827e-04,0.16625e-04,0.17336e-04,0.16825e-04,0.15757e-04, & - & 0.14215e-04,0.12135e-04,0.95702e-05,0.51276e-05 /) - kao(:, 4,12, 3) = (/ & - & 0.12346e-04,0.18823e-04,0.19626e-04,0.19011e-04,0.17715e-04, & - & 0.15891e-04,0.13472e-04,0.10297e-04,0.58818e-05 /) - kao(:, 5,12, 3) = (/ & - & 0.13954e-04,0.21071e-04,0.21985e-04,0.21278e-04,0.19773e-04, & - & 0.17642e-04,0.14813e-04,0.11109e-04,0.66485e-05 /) - kao(:, 1,13, 3) = (/ & - & 0.67198e-05,0.10777e-04,0.11153e-04,0.10900e-04,0.10301e-04, & - & 0.93345e-05,0.81433e-05,0.69156e-05,0.30498e-05 /) - kao(:, 2,13, 3) = (/ & - & 0.78283e-05,0.12283e-04,0.12805e-04,0.12492e-04,0.11757e-04, & - & 0.10649e-04,0.91519e-05,0.74495e-05,0.36028e-05 /) - kao(:, 3,13, 3) = (/ & - & 0.89966e-05,0.13983e-04,0.14629e-04,0.14218e-04,0.13315e-04, & - & 0.11990e-04,0.10230e-04,0.80237e-05,0.42382e-05 /) - kao(:, 4,13, 3) = (/ & - & 0.10250e-04,0.15794e-04,0.16536e-04,0.16055e-04,0.14979e-04, & - & 0.13421e-04,0.11355e-04,0.86371e-05,0.48511e-05 /) - kao(:, 5,13, 3) = (/ & - & 0.11575e-04,0.17689e-04,0.18502e-04,0.17950e-04,0.16689e-04, & - & 0.14883e-04,0.12476e-04,0.93537e-05,0.54799e-05 /) - kao(:, 1, 1, 4) = (/ & - & 0.20313e-03,0.26410e-03,0.27054e-03,0.25842e-03,0.23794e-03, & - & 0.21033e-03,0.17730e-03,0.13831e-03,0.52995e-04 /) - kao(:, 2, 1, 4) = (/ & - & 0.22722e-03,0.29058e-03,0.29572e-03,0.28200e-03,0.25898e-03, & - & 0.22814e-03,0.19209e-03,0.14957e-03,0.59096e-04 /) - kao(:, 3, 1, 4) = (/ & - & 0.25054e-03,0.31580e-03,0.31991e-03,0.30486e-03,0.27955e-03, & - & 0.24634e-03,0.20787e-03,0.16179e-03,0.65118e-04 /) - kao(:, 4, 1, 4) = (/ & - & 0.27197e-03,0.33971e-03,0.34310e-03,0.32677e-03,0.30002e-03, & - & 0.26574e-03,0.22502e-03,0.17520e-03,0.71711e-04 /) - kao(:, 5, 1, 4) = (/ & - & 0.29178e-03,0.36213e-03,0.36503e-03,0.34815e-03,0.32114e-03, & - & 0.28599e-03,0.24328e-03,0.18958e-03,0.78523e-04 /) - kao(:, 1, 2, 4) = (/ & - & 0.17547e-03,0.23012e-03,0.23639e-03,0.22606e-03,0.20799e-03, & - & 0.18326e-03,0.15385e-03,0.11888e-03,0.43633e-04 /) - kao(:, 2, 2, 4) = (/ & - & 0.19601e-03,0.25269e-03,0.25751e-03,0.24629e-03,0.22623e-03, & - & 0.19926e-03,0.16712e-03,0.12877e-03,0.48382e-04 /) - kao(:, 3, 2, 4) = (/ & - & 0.21598e-03,0.27423e-03,0.27812e-03,0.26576e-03,0.24403e-03, & - & 0.21552e-03,0.18141e-03,0.13982e-03,0.53560e-04 /) - kao(:, 4, 2, 4) = (/ & - & 0.23449e-03,0.29482e-03,0.29820e-03,0.28454e-03,0.26171e-03, & - & 0.23254e-03,0.19681e-03,0.15192e-03,0.59054e-04 /) - kao(:, 5, 2, 4) = (/ & - & 0.25198e-03,0.31408e-03,0.31723e-03,0.30341e-03,0.28040e-03, & - & 0.25022e-03,0.21333e-03,0.16487e-03,0.64779e-04 /) - kao(:, 1, 3, 4) = (/ & - & 0.14736e-03,0.19483e-03,0.20065e-03,0.19242e-03,0.17728e-03, & - & 0.15627e-03,0.13078e-03,0.10037e-03,0.34217e-04 /) - kao(:, 2, 3, 4) = (/ & - & 0.16492e-03,0.21441e-03,0.21892e-03,0.20980e-03,0.19289e-03, & - & 0.17000e-03,0.14249e-03,0.10902e-03,0.38352e-04 /) - kao(:, 3, 3, 4) = (/ & - & 0.18200e-03,0.23294e-03,0.23658e-03,0.22658e-03,0.20822e-03, & - & 0.18391e-03,0.15484e-03,0.11888e-03,0.42700e-04 /) - kao(:, 4, 3, 4) = (/ & - & 0.19811e-03,0.25094e-03,0.25385e-03,0.24276e-03,0.22338e-03, & - & 0.19841e-03,0.16822e-03,0.12943e-03,0.47257e-04 /) - kao(:, 5, 3, 4) = (/ & - & 0.21352e-03,0.26784e-03,0.27027e-03,0.25917e-03,0.23966e-03, & - & 0.21399e-03,0.18239e-03,0.14058e-03,0.51997e-04 /) - kao(:, 1, 4, 4) = (/ & - & 0.12070e-03,0.16282e-03,0.16870e-03,0.16215e-03,0.14966e-03, & - & 0.13195e-03,0.11003e-03,0.83743e-04,0.26841e-04 /) - kao(:, 2, 4, 4) = (/ & - & 0.13616e-03,0.17979e-03,0.18420e-03,0.17692e-03,0.16288e-03, & - & 0.14351e-03,0.12000e-03,0.91324e-04,0.29956e-04 /) - kao(:, 3, 4, 4) = (/ & - & 0.15142e-03,0.19606e-03,0.19933e-03,0.19132e-03,0.17582e-03, & - & 0.15506e-03,0.13061e-03,0.99881e-04,0.33175e-04 /) - kao(:, 4, 4, 4) = (/ & - & 0.16591e-03,0.21170e-03,0.21421e-03,0.20525e-03,0.18888e-03, & - & 0.16747e-03,0.14192e-03,0.10907e-03,0.36625e-04 /) - kao(:, 5, 4, 4) = (/ & - & 0.17956e-03,0.22655e-03,0.22833e-03,0.21949e-03,0.20283e-03, & - & 0.18086e-03,0.15393e-03,0.11865e-03,0.40513e-04 /) - kao(:, 1, 5, 4) = (/ & - & 0.98625e-04,0.13480e-03,0.14099e-03,0.13653e-03,0.12600e-03, & - & 0.11107e-03,0.92102e-04,0.69414e-04,0.22597e-04 /) - kao(:, 2, 5, 4) = (/ & - & 0.11165e-03,0.14975e-03,0.15429e-03,0.14886e-03,0.13710e-03, & - & 0.12076e-03,0.10051e-03,0.76046e-04,0.25265e-04 /) - kao(:, 3, 5, 4) = (/ & - & 0.12461e-03,0.16391e-03,0.16725e-03,0.16091e-03,0.14796e-03, & - & 0.13047e-03,0.10941e-03,0.83193e-04,0.27962e-04 /) - kao(:, 4, 5, 4) = (/ & - & 0.13738e-03,0.17761e-03,0.17982e-03,0.17281e-03,0.15916e-03, & - & 0.14087e-03,0.11892e-03,0.90972e-04,0.30855e-04 /) - kao(:, 5, 5, 4) = (/ & - & 0.14967e-03,0.19066e-03,0.19231e-03,0.18509e-03,0.17109e-03, & - & 0.15227e-03,0.12906e-03,0.99136e-04,0.34017e-04 /) - kao(:, 1, 6, 4) = (/ & - & 0.79863e-04,0.11034e-03,0.11622e-03,0.11400e-03,0.10532e-03, & - & 0.92978e-04,0.76661e-04,0.57287e-04,0.18664e-04 /) - kao(:, 2, 6, 4) = (/ & - & 0.90753e-04,0.12318e-03,0.12766e-03,0.12440e-03,0.11482e-03, & - & 0.10110e-03,0.83697e-04,0.62663e-04,0.20928e-04 /) - kao(:, 3, 6, 4) = (/ & - & 0.10183e-03,0.13532e-03,0.13907e-03,0.13464e-03,0.12396e-03, & - & 0.10925e-03,0.90984e-04,0.68513e-04,0.23264e-04 /) - kao(:, 4, 6, 4) = (/ & - & 0.11293e-03,0.14742e-03,0.14995e-03,0.14481e-03,0.13354e-03, & - & 0.11797e-03,0.98845e-04,0.74965e-04,0.25850e-04 /) - kao(:, 5, 6, 4) = (/ & - & 0.12360e-03,0.15914e-03,0.16090e-03,0.15521e-03,0.14361e-03, & - & 0.12755e-03,0.10739e-03,0.81915e-04,0.28635e-04 /) - kao(:, 1, 7, 4) = (/ & - & 0.65679e-04,0.90084e-04,0.95681e-04,0.94567e-04,0.87338e-04, & - & 0.77275e-04,0.63642e-04,0.47097e-04,0.15508e-04 /) - kao(:, 2, 7, 4) = (/ & - & 0.74551e-04,0.10089e-03,0.10531e-03,0.10327e-03,0.95364e-04, & - & 0.84154e-04,0.69569e-04,0.51426e-04,0.17234e-04 /) - kao(:, 3, 7, 4) = (/ & - & 0.83584e-04,0.11137e-03,0.11469e-03,0.11193e-03,0.10325e-03, & - & 0.91075e-04,0.75479e-04,0.56228e-04,0.19127e-04 /) - kao(:, 4, 7, 4) = (/ & - & 0.92762e-04,0.12171e-03,0.12420e-03,0.12060e-03,0.11147e-03, & - & 0.98465e-04,0.81969e-04,0.61529e-04,0.21452e-04 /) - kao(:, 5, 7, 4) = (/ & - & 0.10189e-03,0.13182e-03,0.13364e-03,0.12960e-03,0.12008e-03, & - & 0.10652e-03,0.89045e-04,0.67334e-04,0.23711e-04 /) - kao(:, 1, 8, 4) = (/ & - & 0.53656e-04,0.74109e-04,0.78629e-04,0.78245e-04,0.72322e-04, & - & 0.63915e-04,0.52625e-04,0.38591e-04,0.14416e-04 /) - kao(:, 2, 8, 4) = (/ & - & 0.61163e-04,0.83104e-04,0.86832e-04,0.85562e-04,0.78992e-04, & - & 0.69666e-04,0.57574e-04,0.42098e-04,0.15921e-04 /) - kao(:, 3, 8, 4) = (/ & - & 0.68914e-04,0.91909e-04,0.94594e-04,0.92816e-04,0.85590e-04, & - & 0.75491e-04,0.62445e-04,0.46109e-04,0.17209e-04 /) - kao(:, 4, 8, 4) = (/ & - & 0.76847e-04,0.10059e-03,0.10256e-03,0.10019e-03,0.92496e-04, & - & 0.81729e-04,0.67763e-04,0.50445e-04,0.18589e-04 /) - kao(:, 5, 8, 4) = (/ & - & 0.84847e-04,0.10902e-03,0.11071e-03,0.10784e-03,0.99812e-04, & - & 0.88516e-04,0.73718e-04,0.55250e-04,0.20194e-04 /) - kao(:, 1, 9, 4) = (/ & - & 0.43346e-04,0.60608e-04,0.64818e-04,0.64681e-04,0.59655e-04, & - & 0.52617e-04,0.43206e-04,0.31573e-04,0.14696e-04 /) - kao(:, 2, 9, 4) = (/ & - & 0.49669e-04,0.68380e-04,0.71800e-04,0.70860e-04,0.65260e-04, & - & 0.57496e-04,0.47313e-04,0.34405e-04,0.16164e-04 /) - kao(:, 3, 9, 4) = (/ & - & 0.56274e-04,0.76040e-04,0.78454e-04,0.76944e-04,0.70665e-04, & - & 0.62347e-04,0.51383e-04,0.37665e-04,0.17841e-04 /) - kao(:, 4, 9, 4) = (/ & - & 0.63127e-04,0.83451e-04,0.85178e-04,0.83082e-04,0.76437e-04, & - & 0.67538e-04,0.55797e-04,0.41264e-04,0.19504e-04 /) - kao(:, 5, 9, 4) = (/ & - & 0.70124e-04,0.90807e-04,0.91960e-04,0.89432e-04,0.82527e-04, & - & 0.73176e-04,0.60668e-04,0.45179e-04,0.20992e-04 /) - kao(:, 1,10, 4) = (/ & - & 0.35059e-04,0.49531e-04,0.53376e-04,0.53665e-04,0.49644e-04, & - & 0.43592e-04,0.35609e-04,0.25845e-04,0.13231e-04 /) - kao(:, 2,10, 4) = (/ & - & 0.40376e-04,0.56174e-04,0.59502e-04,0.59040e-04,0.54399e-04, & - & 0.47687e-04,0.39007e-04,0.28189e-04,0.15223e-04 /) - kao(:, 3,10, 4) = (/ & - & 0.46006e-04,0.62899e-04,0.65214e-04,0.64178e-04,0.58976e-04, & - & 0.51726e-04,0.42386e-04,0.30843e-04,0.17241e-04 /) - kao(:, 4,10, 4) = (/ & - & 0.51905e-04,0.69395e-04,0.70988e-04,0.69461e-04,0.63801e-04, & - & 0.56040e-04,0.46059e-04,0.33831e-04,0.19714e-04 /) - kao(:, 5,10, 4) = (/ & - & 0.57990e-04,0.75737e-04,0.76826e-04,0.74718e-04,0.68839e-04, & - & 0.60664e-04,0.50105e-04,0.37049e-04,0.22308e-04 /) - kao(:, 1,11, 4) = (/ & - & 0.30150e-04,0.42738e-04,0.46011e-04,0.46330e-04,0.42907e-04, & - & 0.37605e-04,0.30702e-04,0.21962e-04,0.11791e-04 /) - kao(:, 2,11, 4) = (/ & - & 0.34714e-04,0.48516e-04,0.51120e-04,0.50726e-04,0.46912e-04, & - & 0.41033e-04,0.33505e-04,0.23952e-04,0.13242e-04 /) - kao(:, 3,11, 4) = (/ & - & 0.39649e-04,0.54325e-04,0.56146e-04,0.55270e-04,0.50902e-04, & - & 0.44559e-04,0.36351e-04,0.26266e-04,0.15075e-04 /) - kao(:, 4,11, 4) = (/ & - & 0.44779e-04,0.59893e-04,0.61166e-04,0.59766e-04,0.55070e-04, & - & 0.48303e-04,0.39491e-04,0.28847e-04,0.17164e-04 /) - kao(:, 5,11, 4) = (/ & - & 0.49946e-04,0.65411e-04,0.66256e-04,0.64345e-04,0.59474e-04, & - & 0.52287e-04,0.43003e-04,0.31612e-04,0.19542e-04 /) - kao(:, 1,12, 4) = (/ & - & 0.25681e-04,0.36622e-04,0.39428e-04,0.39582e-04,0.36786e-04, & - & 0.32210e-04,0.26270e-04,0.18629e-04,0.10035e-04 /) - kao(:, 2,12, 4) = (/ & - & 0.29636e-04,0.41620e-04,0.43701e-04,0.43425e-04,0.40150e-04, & - & 0.35105e-04,0.28637e-04,0.20365e-04,0.11416e-04 /) - kao(:, 3,12, 4) = (/ & - & 0.33921e-04,0.46628e-04,0.48062e-04,0.47301e-04,0.43633e-04, & - & 0.38189e-04,0.31133e-04,0.22405e-04,0.12946e-04 /) - kao(:, 4,12, 4) = (/ & - & 0.38341e-04,0.51401e-04,0.52457e-04,0.51129e-04,0.47238e-04, & - & 0.41429e-04,0.33905e-04,0.24546e-04,0.14770e-04 /) - kao(:, 5,12, 4) = (/ & - & 0.42576e-04,0.56153e-04,0.56863e-04,0.55182e-04,0.51113e-04, & - & 0.44940e-04,0.36987e-04,0.26898e-04,0.16865e-04 /) - kao(:, 1,13, 4) = (/ & - & 0.21707e-04,0.31142e-04,0.33487e-04,0.33650e-04,0.31301e-04, & - & 0.27396e-04,0.22352e-04,0.15744e-04,0.83005e-05 /) - kao(:, 2,13, 4) = (/ & - & 0.25112e-04,0.35474e-04,0.37158e-04,0.36970e-04,0.34170e-04, & - & 0.29871e-04,0.24361e-04,0.17312e-04,0.93559e-05 /) - kao(:, 3,13, 4) = (/ & - & 0.28762e-04,0.39712e-04,0.40924e-04,0.40199e-04,0.37169e-04, & - & 0.32565e-04,0.26566e-04,0.19074e-04,0.10670e-04 /) - kao(:, 4,13, 4) = (/ & - & 0.32448e-04,0.43808e-04,0.44734e-04,0.43534e-04,0.40323e-04, & - & 0.35367e-04,0.29011e-04,0.20897e-04,0.12240e-04 /) - kao(:, 5,13, 4) = (/ & - & 0.35905e-04,0.47771e-04,0.48482e-04,0.47094e-04,0.43703e-04, & - & 0.38474e-04,0.31715e-04,0.22899e-04,0.13958e-04 /) - kao(:, 1, 1, 5) = (/ & - & 0.50328e-03,0.59028e-03,0.59973e-03,0.58955e-03,0.56685e-03, & - & 0.50893e-03,0.43098e-03,0.31518e-03,0.12599e-03 /) - kao(:, 2, 1, 5) = (/ & - & 0.53454e-03,0.62581e-03,0.63729e-03,0.62588e-03,0.59902e-03, & - & 0.54179e-03,0.45928e-03,0.33824e-03,0.13937e-03 /) - kao(:, 3, 1, 5) = (/ & - & 0.56216e-03,0.66315e-03,0.67707e-03,0.66553e-03,0.63545e-03, & - & 0.57719e-03,0.48913e-03,0.36332e-03,0.15548e-03 /) - kao(:, 4, 1, 5) = (/ & - & 0.58821e-03,0.70231e-03,0.71934e-03,0.70828e-03,0.67637e-03, & - & 0.61438e-03,0.52042e-03,0.38978e-03,0.17254e-03 /) - kao(:, 5, 1, 5) = (/ & - & 0.61349e-03,0.74309e-03,0.76503e-03,0.75486e-03,0.71943e-03, & - & 0.65213e-03,0.55331e-03,0.41818e-03,0.19176e-03 /) - kao(:, 1, 2, 5) = (/ & - & 0.43720e-03,0.51117e-03,0.51919e-03,0.50988e-03,0.48875e-03, & - & 0.44138e-03,0.37418e-03,0.27478e-03,0.10374e-03 /) - kao(:, 2, 2, 5) = (/ & - & 0.46400e-03,0.54460e-03,0.55429e-03,0.54395e-03,0.52067e-03, & - & 0.47118e-03,0.39949e-03,0.29546e-03,0.11585e-03 /) - kao(:, 3, 2, 5) = (/ & - & 0.48798e-03,0.57940e-03,0.59177e-03,0.58113e-03,0.55553e-03, & - & 0.50290e-03,0.42588e-03,0.31727e-03,0.12872e-03 /) - kao(:, 4, 2, 5) = (/ & - & 0.51088e-03,0.61529e-03,0.63115e-03,0.62163e-03,0.59296e-03, & - & 0.53614e-03,0.45317e-03,0.34070e-03,0.14334e-03 /) - kao(:, 5, 2, 5) = (/ & - & 0.53331e-03,0.65233e-03,0.67270e-03,0.66363e-03,0.63091e-03, & - & 0.57023e-03,0.48253e-03,0.36597e-03,0.15947e-03 /) - kao(:, 1, 3, 5) = (/ & - & 0.37168e-03,0.43544e-03,0.44351e-03,0.43496e-03,0.41418e-03, & - & 0.37673e-03,0.31849e-03,0.23373e-03,0.83035e-04 /) - kao(:, 2, 3, 5) = (/ & - & 0.39476e-03,0.46532e-03,0.47527e-03,0.46587e-03,0.44394e-03, & - & 0.40288e-03,0.34052e-03,0.25172e-03,0.92363e-04 /) - kao(:, 3, 3, 5) = (/ & - & 0.41559e-03,0.49597e-03,0.50880e-03,0.49944e-03,0.47605e-03, & - & 0.43138e-03,0.36384e-03,0.27063e-03,0.10327e-03 /) - kao(:, 4, 3, 5) = (/ & - & 0.43551e-03,0.52738e-03,0.54357e-03,0.53553e-03,0.50924e-03, & - & 0.46069e-03,0.38844e-03,0.29089e-03,0.11548e-03 /) - kao(:, 5, 3, 5) = (/ & - & 0.45509e-03,0.56036e-03,0.58045e-03,0.57279e-03,0.54320e-03, & - & 0.49088e-03,0.41461e-03,0.31304e-03,0.12901e-03 /) - kao(:, 1, 4, 5) = (/ & - & 0.31353e-03,0.36800e-03,0.37478e-03,0.36628e-03,0.34818e-03, & - & 0.31938e-03,0.26882e-03,0.19725e-03,0.65143e-04 /) - kao(:, 2, 4, 5) = (/ & - & 0.33327e-03,0.39347e-03,0.40240e-03,0.39421e-03,0.37500e-03, & - & 0.34245e-03,0.28782e-03,0.21247e-03,0.72911e-04 /) - kao(:, 3, 4, 5) = (/ & - & 0.35116e-03,0.41935e-03,0.43125e-03,0.42396e-03,0.40374e-03, & - & 0.36745e-03,0.30851e-03,0.22861e-03,0.82223e-04 /) - kao(:, 4, 4, 5) = (/ & - & 0.36817e-03,0.44654e-03,0.46141e-03,0.45505e-03,0.43257e-03, & - & 0.39339e-03,0.33051e-03,0.24594e-03,0.92524e-04 /) - kao(:, 5, 4, 5) = (/ & - & 0.38502e-03,0.47537e-03,0.49387e-03,0.48730e-03,0.46233e-03, & - & 0.42007e-03,0.35374e-03,0.26504e-03,0.10363e-03 /) - kao(:, 1, 5, 5) = (/ & - & 0.26371e-03,0.30958e-03,0.31480e-03,0.30643e-03,0.29119e-03, & - & 0.26781e-03,0.22601e-03,0.16580e-03,0.51526e-04 /) - kao(:, 2, 5, 5) = (/ & - & 0.28046e-03,0.33149e-03,0.33831e-03,0.33074e-03,0.31455e-03, & - & 0.28912e-03,0.24254e-03,0.17884e-03,0.57544e-04 /) - kao(:, 3, 5, 5) = (/ & - & 0.29571e-03,0.35368e-03,0.36281e-03,0.35630e-03,0.33882e-03, & - & 0.31097e-03,0.26070e-03,0.19272e-03,0.64519e-04 /) - kao(:, 4, 5, 5) = (/ & - & 0.31016e-03,0.37666e-03,0.38893e-03,0.38273e-03,0.36412e-03, & - & 0.33364e-03,0.28016e-03,0.20757e-03,0.72363e-04 /) - kao(:, 5, 5, 5) = (/ & - & 0.32452e-03,0.40122e-03,0.41666e-03,0.41046e-03,0.39013e-03, & - & 0.35668e-03,0.30056e-03,0.22388e-03,0.80981e-04 /) - kao(:, 1, 6, 5) = (/ & - & 0.22069e-03,0.25888e-03,0.26323e-03,0.25479e-03,0.24246e-03, & - & 0.22303e-03,0.18865e-03,0.13826e-03,0.42586e-04 /) - kao(:, 2, 6, 5) = (/ & - & 0.23505e-03,0.27730e-03,0.28289e-03,0.27510e-03,0.26179e-03, & - & 0.24147e-03,0.20303e-03,0.14956e-03,0.47728e-04 /) - kao(:, 3, 6, 5) = (/ & - & 0.24799e-03,0.29644e-03,0.30324e-03,0.29696e-03,0.28190e-03, & - & 0.26059e-03,0.21889e-03,0.16173e-03,0.53804e-04 /) - kao(:, 4, 6, 5) = (/ & - & 0.26027e-03,0.31607e-03,0.32548e-03,0.31928e-03,0.30338e-03, & - & 0.27984e-03,0.23536e-03,0.17457e-03,0.60579e-04 /) - kao(:, 5, 6, 5) = (/ & - & 0.27261e-03,0.33682e-03,0.34889e-03,0.34299e-03,0.32589e-03, & - & 0.29875e-03,0.25286e-03,0.18852e-03,0.67802e-04 /) - kao(:, 1, 7, 5) = (/ & - & 0.18284e-03,0.21563e-03,0.21874e-03,0.21147e-03,0.20158e-03, & - & 0.18535e-03,0.15699e-03,0.11455e-03,0.35095e-04 /) - kao(:, 2, 7, 5) = (/ & - & 0.19537e-03,0.23122e-03,0.23571e-03,0.22829e-03,0.21760e-03, & - & 0.20013e-03,0.16934e-03,0.12429e-03,0.39853e-04 /) - kao(:, 3, 7, 5) = (/ & - & 0.20672e-03,0.24731e-03,0.25313e-03,0.24636e-03,0.23401e-03, & - & 0.21622e-03,0.18276e-03,0.13469e-03,0.45173e-04 /) - kao(:, 4, 7, 5) = (/ & - & 0.21741e-03,0.26399e-03,0.27153e-03,0.26539e-03,0.25198e-03, & - & 0.23212e-03,0.19655e-03,0.14593e-03,0.50910e-04 /) - kao(:, 5, 7, 5) = (/ & - & 0.22822e-03,0.28170e-03,0.29118e-03,0.28544e-03,0.27112e-03, & - & 0.24842e-03,0.21129e-03,0.15803e-03,0.57288e-04 /) - kao(:, 1, 8, 5) = (/ & - & 0.15136e-03,0.17854e-03,0.18119e-03,0.17535e-03,0.16721e-03, & - & 0.15392e-03,0.13041e-03,0.94463e-04,0.29176e-04 /) - kao(:, 2, 8, 5) = (/ & - & 0.16197e-03,0.19183e-03,0.19544e-03,0.18940e-03,0.18045e-03, & - & 0.16606e-03,0.14094e-03,0.10292e-03,0.33234e-04 /) - kao(:, 3, 8, 5) = (/ & - & 0.17149e-03,0.20540e-03,0.21055e-03,0.20432e-03,0.19421e-03, & - & 0.17914e-03,0.15214e-03,0.11170e-03,0.37987e-04 /) - kao(:, 4, 8, 5) = (/ & - & 0.18048e-03,0.21966e-03,0.22618e-03,0.22017e-03,0.20926e-03, & - & 0.19215e-03,0.16364e-03,0.12118e-03,0.43249e-04 /) - kao(:, 5, 8, 5) = (/ & - & 0.18968e-03,0.23496e-03,0.24258e-03,0.23712e-03,0.22524e-03, & - & 0.20589e-03,0.17598e-03,0.13139e-03,0.48772e-04 /) - kao(:, 1, 9, 5) = (/ & - & 0.12535e-03,0.14733e-03,0.14911e-03,0.14464e-03,0.13810e-03, & - & 0.12766e-03,0.10804e-03,0.77667e-04,0.31607e-04 /) - kao(:, 2, 9, 5) = (/ & - & 0.13428e-03,0.15826e-03,0.16122e-03,0.15658e-03,0.14914e-03, & - & 0.13752e-03,0.11655e-03,0.84956e-04,0.35832e-04 /) - kao(:, 3, 9, 5) = (/ & - & 0.14212e-03,0.16949e-03,0.17392e-03,0.16905e-03,0.16073e-03, & - & 0.14802e-03,0.12582e-03,0.92269e-04,0.39990e-04 /) - kao(:, 4, 9, 5) = (/ & - & 0.14955e-03,0.18151e-03,0.18720e-03,0.18233e-03,0.17343e-03, & - & 0.15845e-03,0.13559e-03,0.99998e-04,0.44405e-04 /) - kao(:, 5, 9, 5) = (/ & - & 0.15720e-03,0.19441e-03,0.20115e-03,0.19658e-03,0.18679e-03, & - & 0.17045e-03,0.14597e-03,0.10853e-03,0.48354e-04 /) - kao(:, 1,10, 5) = (/ & - & 0.10518e-03,0.12283e-03,0.12342e-03,0.11933e-03,0.11376e-03, & - & 0.10615e-03,0.89610e-04,0.64322e-04,0.38897e-04 /) - kao(:, 2,10, 5) = (/ & - & 0.11277e-03,0.13167e-03,0.13319e-03,0.12937e-03,0.12328e-03, & - & 0.11434e-03,0.96637e-04,0.70434e-04,0.44697e-04 /) - kao(:, 3,10, 5) = (/ & - & 0.11946e-03,0.14071e-03,0.14389e-03,0.14002e-03,0.13292e-03, & - & 0.12246e-03,0.10436e-03,0.76473e-04,0.50672e-04 /) - kao(:, 4,10, 5) = (/ & - & 0.12573e-03,0.15045e-03,0.15515e-03,0.15121e-03,0.14368e-03, & - & 0.13136e-03,0.11260e-03,0.82864e-04,0.56090e-04 /) - kao(:, 5,10, 5) = (/ & - & 0.13210e-03,0.16128e-03,0.16701e-03,0.16339e-03,0.15508e-03, & - & 0.14154e-03,0.12132e-03,0.89973e-04,0.61017e-04 /) - kao(:, 1,11, 5) = (/ & - & 0.90693e-04,0.10606e-03,0.10639e-03,0.10214e-03,0.97041e-04, & - & 0.90929e-04,0.76654e-04,0.55448e-04,0.34971e-04 /) - kao(:, 2,11, 5) = (/ & - & 0.96878e-04,0.11346e-03,0.11478e-03,0.11094e-03,0.10496e-03, & - & 0.97427e-04,0.82680e-04,0.60468e-04,0.41599e-04 /) - kao(:, 3,11, 5) = (/ & - & 0.10232e-03,0.12125e-03,0.12365e-03,0.11979e-03,0.11346e-03, & - & 0.10430e-03,0.89390e-04,0.65549e-04,0.48186e-04 /) - kao(:, 4,11, 5) = (/ & - & 0.10772e-03,0.12969e-03,0.13316e-03,0.12963e-03,0.12290e-03, & - & 0.11234e-03,0.96526e-04,0.71097e-04,0.54537e-04 /) - kao(:, 5,11, 5) = (/ & - & 0.11345e-03,0.13912e-03,0.14339e-03,0.14025e-03,0.13275e-03, & - & 0.12106e-03,0.10412e-03,0.77240e-04,0.60238e-04 /) - kao(:, 1,12, 5) = (/ & - & 0.77577e-04,0.91005e-04,0.91202e-04,0.87618e-04,0.82974e-04, & - & 0.77488e-04,0.65261e-04,0.47539e-04,0.30516e-04 /) - kao(:, 2,12, 5) = (/ & - & 0.82612e-04,0.97349e-04,0.98497e-04,0.95069e-04,0.89699e-04, & - & 0.82714e-04,0.70478e-04,0.51645e-04,0.35968e-04 /) - kao(:, 3,12, 5) = (/ & - & 0.87206e-04,0.10402e-03,0.10625e-03,0.10294e-03,0.97013e-04, & - & 0.88723e-04,0.76259e-04,0.55960e-04,0.41899e-04 /) - kao(:, 4,12, 5) = (/ & - & 0.91929e-04,0.11153e-03,0.11462e-03,0.11153e-03,0.10500e-03, & - & 0.95633e-04,0.82267e-04,0.60868e-04,0.48100e-04 /) - kao(:, 5,12, 5) = (/ & - & 0.97101e-04,0.11996e-03,0.12377e-03,0.12058e-03,0.11342e-03, & - & 0.10316e-03,0.88884e-04,0.66077e-04,0.53563e-04 /) - kao(:, 1,13, 5) = (/ & - & 0.65838e-04,0.77620e-04,0.77829e-04,0.74661e-04,0.70473e-04, & - & 0.65575e-04,0.55474e-04,0.40441e-04,0.25521e-04 /) - kao(:, 2,13, 5) = (/ & - & 0.69998e-04,0.83015e-04,0.84103e-04,0.81066e-04,0.76507e-04, & - & 0.70172e-04,0.59914e-04,0.43882e-04,0.30126e-04 /) - kao(:, 3,13, 5) = (/ & - & 0.74003e-04,0.88878e-04,0.90840e-04,0.88139e-04,0.82951e-04, & - & 0.75471e-04,0.64689e-04,0.47652e-04,0.35171e-04 /) - kao(:, 4,13, 5) = (/ & - & 0.78234e-04,0.95561e-04,0.98237e-04,0.95653e-04,0.89770e-04, & - & 0.81434e-04,0.69913e-04,0.51882e-04,0.40221e-04 /) - kao(:, 5,13, 5) = (/ & - & 0.82825e-04,0.10313e-03,0.10644e-03,0.10352e-03,0.97040e-04, & - & 0.87602e-04,0.75532e-04,0.56387e-04,0.44675e-04 /) - kao(:, 1, 1, 6) = (/ & - & 0.10615e-02,0.12529e-02,0.13083e-02,0.12764e-02,0.11881e-02, & - & 0.10853e-02,0.93421e-03,0.71644e-03,0.30757e-03 /) - kao(:, 2, 1, 6) = (/ & - & 0.10918e-02,0.13136e-02,0.13677e-02,0.13350e-02,0.12522e-02, & - & 0.11402e-02,0.98392e-03,0.76040e-03,0.35125e-03 /) - kao(:, 3, 1, 6) = (/ & - & 0.11297e-02,0.13742e-02,0.14266e-02,0.13956e-02,0.13143e-02, & - & 0.11951e-02,0.10359e-02,0.81032e-03,0.39829e-03 /) - kao(:, 4, 1, 6) = (/ & - & 0.11716e-02,0.14330e-02,0.14865e-02,0.14580e-02,0.13738e-02, & - & 0.12536e-02,0.10931e-02,0.86605e-03,0.44907e-03 /) - kao(:, 5, 1, 6) = (/ & - & 0.12137e-02,0.14919e-02,0.15477e-02,0.15196e-02,0.14358e-02, & - & 0.13166e-02,0.11546e-02,0.92748e-03,0.50593e-03 /) - kao(:, 1, 2, 6) = (/ & - & 0.92435e-03,0.10874e-02,0.11275e-02,0.11015e-02,0.10311e-02, & - & 0.94231e-03,0.80960e-03,0.63033e-03,0.26663e-03 /) - kao(:, 2, 2, 6) = (/ & - & 0.95885e-03,0.11428e-02,0.11829e-02,0.11541e-02,0.10849e-02, & - & 0.98930e-03,0.85567e-03,0.67200e-03,0.30230e-03 /) - kao(:, 3, 2, 6) = (/ & - & 0.99776e-03,0.11978e-02,0.12376e-02,0.12093e-02,0.11390e-02, & - & 0.10392e-02,0.90558e-03,0.71833e-03,0.34245e-03 /) - kao(:, 4, 2, 6) = (/ & - & 0.10380e-02,0.12537e-02,0.12935e-02,0.12652e-02,0.11933e-02, & - & 0.10921e-02,0.95939e-03,0.76948e-03,0.38641e-03 /) - kao(:, 5, 2, 6) = (/ & - & 0.10779e-02,0.13105e-02,0.13515e-02,0.13214e-02,0.12497e-02, & - & 0.11514e-02,0.10182e-02,0.82552e-03,0.43428e-03 /) - kao(:, 1, 3, 6) = (/ & - & 0.79958e-03,0.93053e-03,0.95669e-03,0.93720e-03,0.88165e-03, & - & 0.80178e-03,0.69131e-03,0.54027e-03,0.22082e-03 /) - kao(:, 2, 3, 6) = (/ & - & 0.83354e-03,0.98064e-03,0.10079e-02,0.98484e-03,0.92834e-03, & - & 0.84387e-03,0.73304e-03,0.57932e-03,0.25149e-03 /) - kao(:, 3, 3, 6) = (/ & - & 0.87012e-03,0.10320e-02,0.10600e-02,0.10346e-02,0.97491e-03, & - & 0.88683e-03,0.77649e-03,0.62208e-03,0.28527e-03 /) - kao(:, 4, 3, 6) = (/ & - & 0.90759e-03,0.10841e-02,0.11129e-02,0.10858e-02,0.10238e-02, & - & 0.93520e-03,0.82494e-03,0.66854e-03,0.32199e-03 /) - kao(:, 5, 3, 6) = (/ & - & 0.94443e-03,0.11378e-02,0.11668e-02,0.11369e-02,0.10746e-02, & - & 0.98835e-03,0.87764e-03,0.71868e-03,0.36165e-03 /) - kao(:, 1, 4, 6) = (/ & - & 0.68628e-03,0.79104e-03,0.80863e-03,0.79421e-03,0.74681e-03, & - & 0.67391e-03,0.58210e-03,0.45790e-03,0.18137e-03 /) - kao(:, 2, 4, 6) = (/ & - & 0.71790e-03,0.83686e-03,0.85591e-03,0.83705e-03,0.78808e-03, & - & 0.71172e-03,0.61822e-03,0.49245e-03,0.20729e-03 /) - kao(:, 3, 4, 6) = (/ & - & 0.75117e-03,0.88426e-03,0.90462e-03,0.88167e-03,0.82945e-03, & - & 0.75050e-03,0.65652e-03,0.53019e-03,0.23455e-03 /) - kao(:, 4, 4, 6) = (/ & - & 0.78430e-03,0.93252e-03,0.95418e-03,0.92872e-03,0.87301e-03, & - & 0.79337e-03,0.69871e-03,0.57160e-03,0.26520e-03 /) - kao(:, 5, 4, 6) = (/ & - & 0.81683e-03,0.98168e-03,0.10045e-02,0.97638e-03,0.92000e-03, & - & 0.84034e-03,0.74480e-03,0.61518e-03,0.29808e-03 /) - kao(:, 1, 5, 6) = (/ & - & 0.58497e-03,0.66935e-03,0.68301e-03,0.66951e-03,0.62962e-03, & - & 0.56579e-03,0.48826e-03,0.38379e-03,0.14576e-03 /) - kao(:, 2, 5, 6) = (/ & - & 0.61310e-03,0.71031e-03,0.72592e-03,0.70978e-03,0.66652e-03, & - & 0.59753e-03,0.51826e-03,0.41385e-03,0.16772e-03 /) - kao(:, 3, 5, 6) = (/ & - & 0.64179e-03,0.75306e-03,0.77095e-03,0.75074e-03,0.70458e-03, & - & 0.63276e-03,0.55157e-03,0.44695e-03,0.19067e-03 /) - kao(:, 4, 5, 6) = (/ & - & 0.67039e-03,0.79634e-03,0.81655e-03,0.79420e-03,0.74416e-03, & - & 0.67043e-03,0.58781e-03,0.48223e-03,0.21651e-03 /) - kao(:, 5, 5, 6) = (/ & - & 0.69870e-03,0.83972e-03,0.86240e-03,0.83794e-03,0.78674e-03, & - & 0.71204e-03,0.62768e-03,0.51780e-03,0.24414e-03 /) - kao(:, 1, 6, 6) = (/ & - & 0.49594e-03,0.56319e-03,0.57248e-03,0.55950e-03,0.52657e-03, & - & 0.47274e-03,0.40631e-03,0.31914e-03,0.11737e-03 /) - kao(:, 2, 6, 6) = (/ & - & 0.51946e-03,0.59932e-03,0.61091e-03,0.59626e-03,0.56011e-03, & - & 0.50076e-03,0.43158e-03,0.34422e-03,0.13452e-03 /) - kao(:, 3, 6, 6) = (/ & - & 0.54355e-03,0.63601e-03,0.65111e-03,0.63466e-03,0.59552e-03, & - & 0.53122e-03,0.45996e-03,0.37172e-03,0.15179e-03 /) - kao(:, 4, 6, 6) = (/ & - & 0.56762e-03,0.67321e-03,0.69130e-03,0.67433e-03,0.63164e-03, & - & 0.56508e-03,0.49145e-03,0.39979e-03,0.17118e-03 /) - kao(:, 5, 6, 6) = (/ & - & 0.59180e-03,0.71065e-03,0.73195e-03,0.71355e-03,0.66898e-03, & - & 0.60268e-03,0.52617e-03,0.43141e-03,0.19263e-03 /) - kao(:, 1, 7, 6) = (/ & - & 0.41932e-03,0.47346e-03,0.47850e-03,0.46519e-03,0.43628e-03, & - & 0.39132e-03,0.33641e-03,0.26485e-03,0.10000e-03 /) - kao(:, 2, 7, 6) = (/ & - & 0.43848e-03,0.50411e-03,0.51171e-03,0.49803e-03,0.46737e-03, & - & 0.41801e-03,0.35878e-03,0.28532e-03,0.11408e-03 /) - kao(:, 3, 7, 6) = (/ & - & 0.45836e-03,0.53506e-03,0.54578e-03,0.53230e-03,0.49970e-03, & - & 0.44506e-03,0.38306e-03,0.30828e-03,0.13001e-03 /) - kao(:, 4, 7, 6) = (/ & - & 0.47855e-03,0.56639e-03,0.58020e-03,0.56722e-03,0.53202e-03, & - & 0.47546e-03,0.41064e-03,0.33104e-03,0.14676e-03 /) - kao(:, 5, 7, 6) = (/ & - & 0.49885e-03,0.59805e-03,0.61555e-03,0.60152e-03,0.56466e-03, & - & 0.50884e-03,0.44071e-03,0.35766e-03,0.16471e-03 /) - kao(:, 1, 8, 6) = (/ & - & 0.35434e-03,0.39784e-03,0.40003e-03,0.38643e-03,0.36029e-03, & - & 0.32228e-03,0.27705e-03,0.21936e-03,0.85304e-04 /) - kao(:, 2, 8, 6) = (/ & - & 0.36972e-03,0.42325e-03,0.42802e-03,0.41467e-03,0.38745e-03, & - & 0.34637e-03,0.29590e-03,0.23622e-03,0.97535e-04 /) - kao(:, 3, 8, 6) = (/ & - & 0.38589e-03,0.44905e-03,0.45611e-03,0.44402e-03,0.41681e-03, & - & 0.37125e-03,0.31793e-03,0.25523e-03,0.11156e-03 /) - kao(:, 4, 8, 6) = (/ & - & 0.40282e-03,0.47505e-03,0.48489e-03,0.47391e-03,0.44440e-03, & - & 0.39797e-03,0.34220e-03,0.27395e-03,0.12650e-03 /) - kao(:, 5, 8, 6) = (/ & - & 0.41971e-03,0.50175e-03,0.51511e-03,0.50365e-03,0.47246e-03, & - & 0.42646e-03,0.36852e-03,0.29705e-03,0.14272e-03 /) - kao(:, 1, 9, 6) = (/ & - & 0.29829e-03,0.33364e-03,0.33392e-03,0.32092e-03,0.29738e-03, & - & 0.26469e-03,0.22642e-03,0.18017e-03,0.77064e-04 /) - kao(:, 2, 9, 6) = (/ & - & 0.31054e-03,0.35463e-03,0.35704e-03,0.34432e-03,0.32083e-03, & - & 0.28575e-03,0.24402e-03,0.19441e-03,0.87743e-04 /) - kao(:, 3, 9, 6) = (/ & - & 0.32389e-03,0.37581e-03,0.38023e-03,0.36873e-03,0.34562e-03, & - & 0.30799e-03,0.26274e-03,0.21037e-03,0.99662e-04 /) - kao(:, 4, 9, 6) = (/ & - & 0.33808e-03,0.39748e-03,0.40404e-03,0.39387e-03,0.36968e-03, & - & 0.33141e-03,0.28405e-03,0.22647e-03,0.11282e-03 /) - kao(:, 5, 9, 6) = (/ & - & 0.35231e-03,0.41983e-03,0.42961e-03,0.41951e-03,0.39352e-03, & - & 0.35528e-03,0.30599e-03,0.24648e-03,0.12841e-03 /) - kao(:, 1,10, 6) = (/ & - & 0.25036e-03,0.27999e-03,0.27949e-03,0.26793e-03,0.24735e-03, & - & 0.21800e-03,0.18604e-03,0.14807e-03,0.93146e-04 /) - kao(:, 2,10, 6) = (/ & - & 0.26009e-03,0.29745e-03,0.29870e-03,0.28727e-03,0.26656e-03, & - & 0.23674e-03,0.20160e-03,0.16012e-03,0.10408e-03 /) - kao(:, 3,10, 6) = (/ & - & 0.27084e-03,0.31508e-03,0.31779e-03,0.30720e-03,0.28751e-03, & - & 0.25636e-03,0.21818e-03,0.17357e-03,0.11611e-03 /) - kao(:, 4,10, 6) = (/ & - & 0.28251e-03,0.33335e-03,0.33759e-03,0.32814e-03,0.30785e-03, & - & 0.27625e-03,0.23573e-03,0.18761e-03,0.12959e-03 /) - kao(:, 5,10, 6) = (/ & - & 0.29455e-03,0.35211e-03,0.35903e-03,0.34997e-03,0.32871e-03, & - & 0.29658e-03,0.25454e-03,0.20476e-03,0.14404e-03 /) - kao(:, 1,11, 6) = (/ & - & 0.21327e-03,0.24042e-03,0.24026e-03,0.23068e-03,0.21276e-03, & - & 0.18665e-03,0.15901e-03,0.12570e-03,0.94295e-04 /) - kao(:, 2,11, 6) = (/ & - & 0.22127e-03,0.25493e-03,0.25609e-03,0.24693e-03,0.22931e-03, & - & 0.20329e-03,0.17265e-03,0.13686e-03,0.10535e-03 /) - kao(:, 3,11, 6) = (/ & - & 0.23042e-03,0.26962e-03,0.27233e-03,0.26383e-03,0.24677e-03, & - & 0.22030e-03,0.18718e-03,0.14788e-03,0.11369e-03 /) - kao(:, 4,11, 6) = (/ & - & 0.24025e-03,0.28500e-03,0.28961e-03,0.28171e-03,0.26402e-03, & - & 0.23726e-03,0.20232e-03,0.16110e-03,0.12526e-03 /) - kao(:, 5,11, 6) = (/ & - & 0.25035e-03,0.30139e-03,0.30818e-03,0.30033e-03,0.28246e-03, & - & 0.25541e-03,0.21869e-03,0.17592e-03,0.13806e-03 /) - kao(:, 1,12, 6) = (/ & - & 0.18213e-03,0.20563e-03,0.20558e-03,0.19744e-03,0.18197e-03, & - & 0.15967e-03,0.13562e-03,0.10709e-03,0.84300e-04 /) - kao(:, 2,12, 6) = (/ & - & 0.18873e-03,0.21755e-03,0.21877e-03,0.21098e-03,0.19617e-03, & - & 0.17419e-03,0.14735e-03,0.11726e-03,0.96090e-04 /) - kao(:, 3,12, 6) = (/ & - & 0.19633e-03,0.22994e-03,0.23250e-03,0.22538e-03,0.21092e-03, & - & 0.18881e-03,0.15987e-03,0.12650e-03,0.10477e-03 /) - kao(:, 4,12, 6) = (/ & - & 0.20445e-03,0.24309e-03,0.24729e-03,0.24084e-03,0.22613e-03, & - & 0.20371e-03,0.17330e-03,0.13785e-03,0.11268e-03 /) - kao(:, 5,12, 6) = (/ & - & 0.21299e-03,0.25719e-03,0.26315e-03,0.25711e-03,0.24260e-03, & - & 0.21944e-03,0.18764e-03,0.15038e-03,0.12367e-03 /) - kao(:, 1,13, 6) = (/ & - & 0.15527e-03,0.17641e-03,0.17566e-03,0.16836e-03,0.15534e-03, & - & 0.13636e-03,0.11530e-03,0.91307e-04,0.70205e-04 /) - kao(:, 2,13, 6) = (/ & - & 0.16096e-03,0.18612e-03,0.18657e-03,0.17973e-03,0.16702e-03, & - & 0.14851e-03,0.12550e-03,0.99145e-04,0.79984e-04 /) - kao(:, 3,13, 6) = (/ & - & 0.16748e-03,0.19648e-03,0.19822e-03,0.19209e-03,0.17957e-03, & - & 0.16107e-03,0.13652e-03,0.10753e-03,0.86067e-04 /) - kao(:, 4,13, 6) = (/ & - & 0.17450e-03,0.20751e-03,0.21098e-03,0.20534e-03,0.19295e-03, & - & 0.17420e-03,0.14816e-03,0.11772e-03,0.93252e-04 /) - kao(:, 5,13, 6) = (/ & - & 0.18233e-03,0.21950e-03,0.22442e-03,0.21958e-03,0.20754e-03, & - & 0.18842e-03,0.16097e-03,0.12851e-03,0.10278e-03 /) - kao(:, 1, 1, 7) = (/ & - & 0.23852e-02,0.24955e-02,0.25247e-02,0.24784e-02,0.23525e-02, & - & 0.21437e-02,0.18704e-02,0.15353e-02,0.99116e-03 /) - kao(:, 2, 1, 7) = (/ & - & 0.23950e-02,0.25560e-02,0.26150e-02,0.25851e-02,0.24612e-02, & - & 0.22632e-02,0.20004e-02,0.16585e-02,0.11087e-02 /) - kao(:, 3, 1, 7) = (/ & - & 0.24020e-02,0.26226e-02,0.27112e-02,0.26940e-02,0.25772e-02, & - & 0.23915e-02,0.21332e-02,0.17859e-02,0.12435e-02 /) - kao(:, 4, 1, 7) = (/ & - & 0.24093e-02,0.26930e-02,0.28096e-02,0.28038e-02,0.27017e-02, & - & 0.25227e-02,0.22696e-02,0.19198e-02,0.13912e-02 /) - kao(:, 5, 1, 7) = (/ & - & 0.24224e-02,0.27647e-02,0.29093e-02,0.29173e-02,0.28299e-02, & - & 0.26579e-02,0.24103e-02,0.20612e-02,0.15535e-02 /) - kao(:, 1, 2, 7) = (/ & - & 0.20974e-02,0.22118e-02,0.22296e-02,0.21778e-02,0.20625e-02, & - & 0.18815e-02,0.16530e-02,0.13562e-02,0.82141e-03 /) - kao(:, 2, 2, 7) = (/ & - & 0.21046e-02,0.22702e-02,0.23143e-02,0.22813e-02,0.21720e-02, & - & 0.19971e-02,0.17712e-02,0.14678e-02,0.93003e-03 /) - kao(:, 3, 2, 7) = (/ & - & 0.21127e-02,0.23326e-02,0.24062e-02,0.23885e-02,0.22861e-02, & - & 0.21193e-02,0.18939e-02,0.15834e-02,0.10463e-02 /) - kao(:, 4, 2, 7) = (/ & - & 0.21272e-02,0.23971e-02,0.25002e-02,0.24977e-02,0.24074e-02, & - & 0.22461e-02,0.20177e-02,0.17030e-02,0.11732e-02 /) - kao(:, 5, 2, 7) = (/ & - & 0.21483e-02,0.24652e-02,0.25947e-02,0.26138e-02,0.25341e-02, & - & 0.23755e-02,0.21449e-02,0.18299e-02,0.13107e-02 /) - kao(:, 1, 3, 7) = (/ & - & 0.18244e-02,0.19320e-02,0.19387e-02,0.18795e-02,0.17712e-02, & - & 0.16188e-02,0.14258e-02,0.11664e-02,0.66404e-03 /) - kao(:, 2, 3, 7) = (/ & - & 0.18322e-02,0.19846e-02,0.20150e-02,0.19741e-02,0.18746e-02, & - & 0.17292e-02,0.15311e-02,0.12668e-02,0.75772e-03 /) - kao(:, 3, 3, 7) = (/ & - & 0.18451e-02,0.20412e-02,0.20960e-02,0.20746e-02,0.19871e-02, & - & 0.18444e-02,0.16430e-02,0.13711e-02,0.85470e-03 /) - kao(:, 4, 3, 7) = (/ & - & 0.18657e-02,0.21020e-02,0.21815e-02,0.21798e-02,0.21034e-02, & - & 0.19629e-02,0.17571e-02,0.14786e-02,0.95834e-03 /) - kao(:, 5, 3, 7) = (/ & - & 0.18943e-02,0.21674e-02,0.22717e-02,0.22915e-02,0.22239e-02, & - & 0.20844e-02,0.18739e-02,0.15906e-02,0.10775e-02 /) - kao(:, 1, 4, 7) = (/ & - & 0.15758e-02,0.16711e-02,0.16675e-02,0.16043e-02,0.15088e-02, & - & 0.13785e-02,0.12140e-02,0.98780e-03,0.53258e-03 /) - kao(:, 2, 4, 7) = (/ & - & 0.15867e-02,0.17169e-02,0.17338e-02,0.16891e-02,0.16022e-02, & - & 0.14807e-02,0.13108e-02,0.10774e-02,0.61127e-03 /) - kao(:, 3, 4, 7) = (/ & - & 0.16043e-02,0.17687e-02,0.18047e-02,0.17788e-02,0.17054e-02, & - & 0.15869e-02,0.14121e-02,0.11700e-02,0.69092e-03 /) - kao(:, 4, 4, 7) = (/ & - & 0.16308e-02,0.18263e-02,0.18817e-02,0.18741e-02,0.18139e-02, & - & 0.16955e-02,0.15162e-02,0.12673e-02,0.77859e-03 /) - kao(:, 5, 4, 7) = (/ & - & 0.16631e-02,0.18894e-02,0.19653e-02,0.19764e-02,0.19240e-02, & - & 0.18069e-02,0.16237e-02,0.13697e-02,0.87657e-03 /) - kao(:, 1, 5, 7) = (/ & - & 0.13575e-02,0.14376e-02,0.14238e-02,0.13660e-02,0.12806e-02, & - & 0.11664e-02,0.10231e-02,0.82794e-03,0.42595e-03 /) - kao(:, 2, 5, 7) = (/ & - & 0.13711e-02,0.14787e-02,0.14807e-02,0.14369e-02,0.13637e-02, & - & 0.12570e-02,0.11125e-02,0.90729e-03,0.48990e-03 /) - kao(:, 3, 5, 7) = (/ & - & 0.13932e-02,0.15262e-02,0.15434e-02,0.15158e-02,0.14536e-02, & - & 0.13534e-02,0.12033e-02,0.99132e-03,0.55848e-03 /) - kao(:, 4, 5, 7) = (/ & - & 0.14217e-02,0.15804e-02,0.16130e-02,0.16009e-02,0.15482e-02, & - & 0.14537e-02,0.12991e-02,0.10796e-02,0.63246e-03 /) - kao(:, 5, 5, 7) = (/ & - & 0.14548e-02,0.16406e-02,0.16899e-02,0.16924e-02,0.16473e-02, & - & 0.15538e-02,0.13988e-02,0.11736e-02,0.71422e-03 /) - kao(:, 1, 6, 7) = (/ & - & 0.11657e-02,0.12310e-02,0.12114e-02,0.11593e-02,0.10807e-02, & - & 0.97870e-03,0.85220e-03,0.68679e-03,0.33278e-03 /) - kao(:, 2, 6, 7) = (/ & - & 0.11817e-02,0.12689e-02,0.12606e-02,0.12200e-02,0.11515e-02, & - & 0.10575e-02,0.93300e-03,0.75653e-03,0.38390e-03 /) - kao(:, 3, 6, 7) = (/ & - & 0.12052e-02,0.13132e-02,0.13166e-02,0.12868e-02,0.12281e-02, & - & 0.11419e-02,0.10150e-02,0.83054e-03,0.44291e-03 /) - kao(:, 4, 6, 7) = (/ & - & 0.12337e-02,0.13638e-02,0.13800e-02,0.13608e-02,0.13105e-02, & - & 0.12294e-02,0.11010e-02,0.91218e-03,0.50714e-03 /) - kao(:, 5, 6, 7) = (/ & - & 0.12657e-02,0.14200e-02,0.14498e-02,0.14421e-02,0.13994e-02, & - & 0.13201e-02,0.11915e-02,0.99447e-03,0.57759e-03 /) - kao(:, 1, 7, 7) = (/ & - & 0.99495e-03,0.10489e-02,0.10293e-02,0.98184e-03,0.91156e-03, & - & 0.82083e-03,0.70758e-03,0.56387e-03,0.26025e-03 /) - kao(:, 2, 7, 7) = (/ & - & 0.10122e-02,0.10837e-02,0.10724e-02,0.10344e-02,0.96982e-03, & - & 0.88589e-03,0.77530e-03,0.62605e-03,0.29914e-03 /) - kao(:, 3, 7, 7) = (/ & - & 0.10351e-02,0.11253e-02,0.11236e-02,0.10922e-02,0.10352e-02, & - & 0.95724e-03,0.84889e-03,0.69076e-03,0.34305e-03 /) - kao(:, 4, 7, 7) = (/ & - & 0.10622e-02,0.11721e-02,0.11813e-02,0.11564e-02,0.11065e-02, & - & 0.10331e-02,0.92494e-03,0.76297e-03,0.39175e-03 /) - kao(:, 5, 7, 7) = (/ & - & 0.10903e-02,0.12244e-02,0.12441e-02,0.12287e-02,0.11845e-02, & - & 0.11129e-02,0.10035e-02,0.83648e-03,0.44712e-03 /) - kao(:, 1, 8, 7) = (/ & - & 0.84532e-03,0.88892e-03,0.86965e-03,0.82727e-03,0.76674e-03, & - & 0.68807e-03,0.58679e-03,0.46179e-03,0.21931e-03 /) - kao(:, 2, 8, 7) = (/ & - & 0.86227e-03,0.92051e-03,0.90826e-03,0.87315e-03,0.81675e-03, & - & 0.74173e-03,0.64502e-03,0.51436e-03,0.25538e-03 /) - kao(:, 3, 8, 7) = (/ & - & 0.88387e-03,0.95827e-03,0.95473e-03,0.92480e-03,0.87135e-03, & - & 0.80090e-03,0.70594e-03,0.57141e-03,0.29275e-03 /) - kao(:, 4, 8, 7) = (/ & - & 0.90659e-03,0.10014e-02,0.10072e-02,0.98186e-03,0.93348e-03, & - & 0.86582e-03,0.77148e-03,0.63431e-03,0.33522e-03 /) - kao(:, 5, 8, 7) = (/ & - & 0.93066e-03,0.10477e-02,0.10640e-02,0.10456e-02,0.10022e-02, & - & 0.93597e-03,0.84005e-03,0.69831e-03,0.38214e-03 /) - kao(:, 1, 9, 7) = (/ & - & 0.71681e-03,0.75151e-03,0.73165e-03,0.69303e-03,0.64106e-03, & - & 0.57326e-03,0.48762e-03,0.37724e-03,0.19963e-03 /) - kao(:, 2, 9, 7) = (/ & - & 0.73278e-03,0.77936e-03,0.76580e-03,0.73272e-03,0.68369e-03, & - & 0.61851e-03,0.53463e-03,0.42190e-03,0.23258e-03 /) - kao(:, 3, 9, 7) = (/ & - & 0.75147e-03,0.81327e-03,0.80692e-03,0.77827e-03,0.73101e-03, & - & 0.66869e-03,0.58582e-03,0.47030e-03,0.26770e-03 /) - kao(:, 4, 9, 7) = (/ & - & 0.77011e-03,0.85035e-03,0.85331e-03,0.82912e-03,0.78414e-03, & - & 0.72425e-03,0.64047e-03,0.52434e-03,0.30603e-03 /) - kao(:, 5, 9, 7) = (/ & - & 0.79031e-03,0.89033e-03,0.90223e-03,0.88462e-03,0.84489e-03, & - & 0.78478e-03,0.70032e-03,0.57826e-03,0.34848e-03 /) - kao(:, 1,10, 7) = (/ & - & 0.60860e-03,0.63631e-03,0.61722e-03,0.58182e-03,0.53631e-03, & - & 0.47875e-03,0.40598e-03,0.31001e-03,0.21716e-03 /) - kao(:, 2,10, 7) = (/ & - & 0.62300e-03,0.66096e-03,0.64723e-03,0.61624e-03,0.57283e-03, & - & 0.51614e-03,0.44515e-03,0.34783e-03,0.24030e-03 /) - kao(:, 3,10, 7) = (/ & - & 0.63811e-03,0.69041e-03,0.68320e-03,0.65609e-03,0.61386e-03, & - & 0.55902e-03,0.48770e-03,0.38933e-03,0.26729e-03 /) - kao(:, 4,10, 7) = (/ & - & 0.65360e-03,0.72213e-03,0.72254e-03,0.70011e-03,0.66034e-03, & - & 0.60659e-03,0.53507e-03,0.43477e-03,0.29849e-03 /) - kao(:, 5,10, 7) = (/ & - & 0.67038e-03,0.75665e-03,0.76418e-03,0.74727e-03,0.71207e-03, & - & 0.65924e-03,0.58660e-03,0.48108e-03,0.33464e-03 /) - kao(:, 1,11, 7) = (/ & - & 0.52185e-03,0.54797e-03,0.53190e-03,0.50128e-03,0.46230e-03, & - & 0.41291e-03,0.35086e-03,0.26843e-03,0.22407e-03 /) - kao(:, 2,11, 7) = (/ & - & 0.53416e-03,0.57111e-03,0.56029e-03,0.53286e-03,0.49524e-03, & - & 0.44633e-03,0.38530e-03,0.30138e-03,0.24793e-03 /) - kao(:, 3,11, 7) = (/ & - & 0.54635e-03,0.59685e-03,0.59183e-03,0.56852e-03,0.53236e-03, & - & 0.48455e-03,0.42287e-03,0.33910e-03,0.27073e-03 /) - kao(:, 4,11, 7) = (/ & - & 0.55941e-03,0.62493e-03,0.62582e-03,0.60673e-03,0.57348e-03, & - & 0.52713e-03,0.46523e-03,0.37861e-03,0.29520e-03 /) - kao(:, 5,11, 7) = (/ & - & 0.57459e-03,0.65537e-03,0.66217e-03,0.64854e-03,0.61857e-03, & - & 0.57343e-03,0.51159e-03,0.41997e-03,0.32408e-03 /) - kao(:, 1,12, 7) = (/ & - & 0.44547e-03,0.47205e-03,0.45856e-03,0.43259e-03,0.39885e-03, & - & 0.35629e-03,0.30273e-03,0.23099e-03,0.20507e-03 /) - kao(:, 2,12, 7) = (/ & - & 0.45530e-03,0.49200e-03,0.48355e-03,0.46058e-03,0.42831e-03, & - & 0.38615e-03,0.33301e-03,0.25970e-03,0.22582e-03 /) - kao(:, 3,12, 7) = (/ & - & 0.46565e-03,0.51443e-03,0.51077e-03,0.49108e-03,0.46067e-03, & - & 0.41962e-03,0.36657e-03,0.29355e-03,0.24853e-03 /) - kao(:, 4,12, 7) = (/ & - & 0.47732e-03,0.53905e-03,0.54027e-03,0.52415e-03,0.49634e-03, & - & 0.45650e-03,0.40422e-03,0.32887e-03,0.26943e-03 /) - kao(:, 5,12, 7) = (/ & - & 0.49131e-03,0.56624e-03,0.57259e-03,0.56091e-03,0.53532e-03, & - & 0.49724e-03,0.44494e-03,0.36671e-03,0.29370e-03 /) - kao(:, 1,13, 7) = (/ & - & 0.37861e-03,0.40433e-03,0.39425e-03,0.37277e-03,0.34384e-03, & - & 0.30718e-03,0.26082e-03,0.19813e-03,0.17021e-03 /) - kao(:, 2,13, 7) = (/ & - & 0.38646e-03,0.42180e-03,0.41569e-03,0.39676e-03,0.36941e-03, & - & 0.33370e-03,0.28746e-03,0.22445e-03,0.18768e-03 /) - kao(:, 3,13, 7) = (/ & - & 0.39522e-03,0.44150e-03,0.43928e-03,0.42293e-03,0.39746e-03, & - & 0.36268e-03,0.31709e-03,0.25391e-03,0.20463e-03 /) - kao(:, 4,13, 7) = (/ & - & 0.40576e-03,0.46362e-03,0.46497e-03,0.45178e-03,0.42852e-03, & - & 0.39486e-03,0.34992e-03,0.28472e-03,0.22430e-03 /) - kao(:, 5,13, 7) = (/ & - & 0.41810e-03,0.48813e-03,0.49424e-03,0.48434e-03,0.46280e-03, & - & 0.43027e-03,0.38540e-03,0.31863e-03,0.24541e-03 /) - kao(:, 1, 1, 8) = (/ & - & 0.52571e-02,0.51649e-02,0.50998e-02,0.49978e-02,0.48299e-02, & - & 0.45478e-02,0.41071e-02,0.34884e-02,0.27402e-02 /) - kao(:, 2, 1, 8) = (/ & - & 0.51967e-02,0.52277e-02,0.52437e-02,0.52099e-02,0.50894e-02, & - & 0.48424e-02,0.44165e-02,0.38421e-02,0.31643e-02 /) - kao(:, 3, 1, 8) = (/ & - & 0.51548e-02,0.53047e-02,0.54023e-02,0.54271e-02,0.53544e-02, & - & 0.51370e-02,0.47457e-02,0.42178e-02,0.36142e-02 /) - kao(:, 4, 1, 8) = (/ & - & 0.51293e-02,0.53942e-02,0.55672e-02,0.56512e-02,0.56201e-02, & - & 0.54409e-02,0.50927e-02,0.46186e-02,0.40998e-02 /) - kao(:, 5, 1, 8) = (/ & - & 0.51178e-02,0.54996e-02,0.57406e-02,0.58798e-02,0.58932e-02, & - & 0.57606e-02,0.54613e-02,0.50399e-02,0.46100e-02 /) - kao(:, 1, 2, 8) = (/ & - & 0.47778e-02,0.47398e-02,0.47115e-02,0.46169e-02,0.44426e-02, & - & 0.41630e-02,0.37511e-02,0.31426e-02,0.23122e-02 /) - kao(:, 2, 2, 8) = (/ & - & 0.47384e-02,0.48111e-02,0.48532e-02,0.48144e-02,0.46755e-02, & - & 0.44342e-02,0.40397e-02,0.34599e-02,0.26698e-02 /) - kao(:, 3, 2, 8) = (/ & - & 0.47181e-02,0.49025e-02,0.50071e-02,0.50151e-02,0.49194e-02, & - & 0.47085e-02,0.43402e-02,0.37956e-02,0.30630e-02 /) - kao(:, 4, 2, 8) = (/ & - & 0.47137e-02,0.50070e-02,0.51691e-02,0.52245e-02,0.51706e-02, & - & 0.49959e-02,0.46583e-02,0.41574e-02,0.34865e-02 /) - kao(:, 5, 2, 8) = (/ & - & 0.47212e-02,0.51234e-02,0.53397e-02,0.54379e-02,0.54276e-02, & - & 0.52983e-02,0.49978e-02,0.45412e-02,0.39357e-02 /) - kao(:, 1, 3, 8) = (/ & - & 0.42971e-02,0.42851e-02,0.42729e-02,0.41707e-02,0.39926e-02, & - & 0.37146e-02,0.33264e-02,0.27717e-02,0.18852e-02 /) - kao(:, 2, 3, 8) = (/ & - & 0.42740e-02,0.43647e-02,0.44079e-02,0.43562e-02,0.42040e-02, & - & 0.39559e-02,0.35908e-02,0.30443e-02,0.21816e-02 /) - kao(:, 3, 3, 8) = (/ & - & 0.42703e-02,0.44650e-02,0.45616e-02,0.45425e-02,0.44233e-02, & - & 0.42066e-02,0.38676e-02,0.33396e-02,0.25126e-02 /) - kao(:, 4, 3, 8) = (/ & - & 0.42812e-02,0.45806e-02,0.47230e-02,0.47371e-02,0.46519e-02, & - & 0.44691e-02,0.41620e-02,0.36586e-02,0.28704e-02 /) - kao(:, 5, 3, 8) = (/ & - & 0.43030e-02,0.47042e-02,0.48922e-02,0.49377e-02,0.48939e-02, & - & 0.47477e-02,0.44742e-02,0.39985e-02,0.32501e-02 /) - kao(:, 1, 4, 8) = (/ & - & 0.38233e-02,0.38279e-02,0.38143e-02,0.37097e-02,0.35270e-02, & - & 0.32658e-02,0.29019e-02,0.24142e-02,0.15291e-02 /) - kao(:, 2, 4, 8) = (/ & - & 0.38114e-02,0.39122e-02,0.39475e-02,0.38778e-02,0.37194e-02, & - & 0.34777e-02,0.31357e-02,0.26541e-02,0.17758e-02 /) - kao(:, 3, 4, 8) = (/ & - & 0.38202e-02,0.40186e-02,0.40970e-02,0.40542e-02,0.39201e-02, & - & 0.37024e-02,0.33826e-02,0.29146e-02,0.20543e-02 /) - kao(:, 4, 4, 8) = (/ & - & 0.38442e-02,0.41385e-02,0.42569e-02,0.42394e-02,0.41310e-02, & - & 0.39403e-02,0.36479e-02,0.31917e-02,0.23538e-02 /) - kao(:, 5, 4, 8) = (/ & - & 0.38788e-02,0.42695e-02,0.44229e-02,0.44328e-02,0.43540e-02, & - & 0.41948e-02,0.39317e-02,0.34895e-02,0.26724e-02 /) - kao(:, 1, 5, 8) = (/ & - & 0.33660e-02,0.33879e-02,0.33669e-02,0.32570e-02,0.30787e-02, & - & 0.28362e-02,0.25094e-02,0.20819e-02,0.12376e-02 /) - kao(:, 2, 5, 8) = (/ & - & 0.33649e-02,0.34740e-02,0.34949e-02,0.34119e-02,0.32508e-02, & - & 0.30247e-02,0.27121e-02,0.22949e-02,0.14462e-02 /) - kao(:, 3, 5, 8) = (/ & - & 0.33839e-02,0.35821e-02,0.36398e-02,0.35762e-02,0.34359e-02, & - & 0.32230e-02,0.29317e-02,0.25218e-02,0.16788e-02 /) - kao(:, 4, 5, 8) = (/ & - & 0.34188e-02,0.37047e-02,0.37932e-02,0.37524e-02,0.36321e-02, & - & 0.34359e-02,0.31677e-02,0.27663e-02,0.19299e-02 /) - kao(:, 5, 5, 8) = (/ & - & 0.34572e-02,0.38382e-02,0.39563e-02,0.39381e-02,0.38416e-02, & - & 0.36710e-02,0.34185e-02,0.30298e-02,0.21985e-02 /) - kao(:, 1, 6, 8) = (/ & - & 0.29383e-02,0.29689e-02,0.29375e-02,0.28254e-02,0.26571e-02, & - & 0.24356e-02,0.21491e-02,0.17706e-02,0.99284e-03 /) - kao(:, 2, 6, 8) = (/ & - & 0.29460e-02,0.30526e-02,0.30576e-02,0.29676e-02,0.28114e-02, & - & 0.25995e-02,0.23244e-02,0.19573e-02,0.11692e-02 /) - kao(:, 3, 6, 8) = (/ & - & 0.29740e-02,0.31582e-02,0.31942e-02,0.31202e-02,0.29785e-02, & - & 0.27771e-02,0.25160e-02,0.21565e-02,0.13616e-02 /) - kao(:, 4, 6, 8) = (/ & - & 0.30101e-02,0.32807e-02,0.33417e-02,0.32855e-02,0.31583e-02, & - & 0.29708e-02,0.27234e-02,0.23688e-02,0.15696e-02 /) - kao(:, 5, 6, 8) = (/ & - & 0.30525e-02,0.34071e-02,0.34999e-02,0.34618e-02,0.33518e-02, & - & 0.31829e-02,0.29437e-02,0.25986e-02,0.17941e-02 /) - kao(:, 1, 7, 8) = (/ & - & 0.25527e-02,0.25837e-02,0.25415e-02,0.24332e-02,0.22747e-02, & - & 0.20758e-02,0.18231e-02,0.14951e-02,0.78066e-03 /) - kao(:, 2, 7, 8) = (/ & - & 0.25661e-02,0.26638e-02,0.26497e-02,0.25583e-02,0.24134e-02, & - & 0.22212e-02,0.19774e-02,0.16540e-02,0.92809e-03 /) - kao(:, 3, 7, 8) = (/ & - & 0.25966e-02,0.27642e-02,0.27764e-02,0.26998e-02,0.25630e-02, & - & 0.23812e-02,0.21449e-02,0.18264e-02,0.10893e-02 /) - kao(:, 4, 7, 8) = (/ & - & 0.26340e-02,0.28771e-02,0.29165e-02,0.28538e-02,0.27279e-02, & - & 0.25553e-02,0.23260e-02,0.20107e-02,0.12665e-02 /) - kao(:, 5, 7, 8) = (/ & - & 0.26829e-02,0.29939e-02,0.30639e-02,0.30192e-02,0.29089e-02, & - & 0.27450e-02,0.25219e-02,0.22101e-02,0.14584e-02 /) - kao(:, 1, 8, 8) = (/ & - & 0.22109e-02,0.22392e-02,0.21909e-02,0.20870e-02,0.19391e-02, & - & 0.17569e-02,0.15368e-02,0.12514e-02,0.62879e-03 /) - kao(:, 2, 8, 8) = (/ & - & 0.22276e-02,0.23140e-02,0.22874e-02,0.21965e-02,0.20609e-02, & - & 0.18868e-02,0.16711e-02,0.13887e-02,0.73533e-03 /) - kao(:, 3, 8, 8) = (/ & - & 0.22565e-02,0.24065e-02,0.24031e-02,0.23233e-02,0.21969e-02, & - & 0.20302e-02,0.18188e-02,0.15365e-02,0.85609e-03 /) - kao(:, 4, 8, 8) = (/ & - & 0.22974e-02,0.25072e-02,0.25290e-02,0.24653e-02,0.23482e-02, & - & 0.21882e-02,0.19777e-02,0.16966e-02,0.98553e-03 /) - kao(:, 5, 8, 8) = (/ & - & 0.23517e-02,0.26173e-02,0.26619e-02,0.26145e-02,0.25139e-02, & - & 0.23587e-02,0.21497e-02,0.18671e-02,0.11277e-02 /) - kao(:, 1, 9, 8) = (/ & - & 0.19109e-02,0.19351e-02,0.18847e-02,0.17853e-02,0.16484e-02, & - & 0.14828e-02,0.12861e-02,0.10403e-02,0.59847e-03 /) - kao(:, 2, 9, 8) = (/ & - & 0.19272e-02,0.20031e-02,0.19691e-02,0.18817e-02,0.17540e-02, & - & 0.15965e-02,0.14036e-02,0.11571e-02,0.69475e-03 /) - kao(:, 3, 9, 8) = (/ & - & 0.19559e-02,0.20842e-02,0.20709e-02,0.19954e-02,0.18765e-02, & - & 0.17233e-02,0.15331e-02,0.12839e-02,0.80150e-03 /) - kao(:, 4, 9, 8) = (/ & - & 0.19994e-02,0.21761e-02,0.21815e-02,0.21203e-02,0.20143e-02, & - & 0.18645e-02,0.16732e-02,0.14206e-02,0.91777e-03 /) - kao(:, 5, 9, 8) = (/ & - & 0.20550e-02,0.22788e-02,0.23027e-02,0.22546e-02,0.21605e-02, & - & 0.20175e-02,0.18247e-02,0.15687e-02,0.10450e-02 /) - kao(:, 1,10, 8) = (/ & - & 0.16445e-02,0.16716e-02,0.16238e-02,0.15300e-02,0.14061e-02, & - & 0.12566e-02,0.10807e-02,0.86738e-03,0.60827e-03 /) - kao(:, 2,10, 8) = (/ & - & 0.16600e-02,0.17327e-02,0.16984e-02,0.16154e-02,0.14994e-02, & - & 0.13556e-02,0.11827e-02,0.96695e-03,0.70548e-03 /) - kao(:, 3,10, 8) = (/ & - & 0.16905e-02,0.18053e-02,0.17869e-02,0.17163e-02,0.16090e-02, & - & 0.14689e-02,0.12961e-02,0.10754e-02,0.80786e-03 /) - kao(:, 4,10, 8) = (/ & - & 0.17354e-02,0.18905e-02,0.18865e-02,0.18272e-02,0.17299e-02, & - & 0.15951e-02,0.14192e-02,0.11936e-02,0.91620e-03 /) - kao(:, 5,10, 8) = (/ & - & 0.17884e-02,0.19860e-02,0.19977e-02,0.19501e-02,0.18596e-02, & - & 0.17298e-02,0.15525e-02,0.13217e-02,0.10338e-02 /) - kao(:, 1,11, 8) = (/ & - & 0.14133e-02,0.14603e-02,0.14202e-02,0.13407e-02,0.12334e-02, & - & 0.11026e-02,0.94643e-03,0.75979e-03,0.57405e-03 /) - kao(:, 2,11, 8) = (/ & - & 0.14357e-02,0.15193e-02,0.14916e-02,0.14232e-02,0.13232e-02, & - & 0.11950e-02,0.10392e-02,0.84686e-03,0.65471e-03 /) - kao(:, 3,11, 8) = (/ & - & 0.14730e-02,0.15907e-02,0.15765e-02,0.15172e-02,0.14237e-02, & - & 0.12997e-02,0.11424e-02,0.94298e-03,0.75212e-03 /) - kao(:, 4,11, 8) = (/ & - & 0.15188e-02,0.16737e-02,0.16734e-02,0.16227e-02,0.15348e-02, & - & 0.14132e-02,0.12544e-02,0.10476e-02,0.85445e-03 /) - kao(:, 5,11, 8) = (/ & - & 0.15705e-02,0.17634e-02,0.17799e-02,0.17387e-02,0.16551e-02, & - & 0.15344e-02,0.13744e-02,0.11635e-02,0.96358e-03 /) - kao(:, 1,12, 8) = (/ & - & 0.12145e-02,0.12721e-02,0.12387e-02,0.11722e-02,0.10815e-02, & - & 0.96748e-03,0.83052e-03,0.66461e-03,0.51952e-03 /) - kao(:, 2,12, 8) = (/ & - & 0.12432e-02,0.13303e-02,0.13076e-02,0.12500e-02,0.11644e-02, & - & 0.10531e-02,0.91410e-03,0.74198e-03,0.58718e-03 /) - kao(:, 3,12, 8) = (/ & - & 0.12811e-02,0.13998e-02,0.13897e-02,0.13394e-02,0.12574e-02, & - & 0.11474e-02,0.10067e-02,0.82675e-03,0.66821e-03 /) - kao(:, 4,12, 8) = (/ & - & 0.13251e-02,0.14771e-02,0.14813e-02,0.14393e-02,0.13610e-02, & - & 0.12504e-02,0.11057e-02,0.91975e-03,0.76078e-03 /) - kao(:, 5,12, 8) = (/ & - & 0.13700e-02,0.15597e-02,0.15807e-02,0.15467e-02,0.14716e-02, & - & 0.13608e-02,0.12138e-02,0.10232e-02,0.85832e-03 /) - kao(:, 1,13, 8) = (/ & - & 0.10471e-02,0.11076e-02,0.10790e-02,0.10231e-02,0.94527e-03, & - & 0.84789e-03,0.72861e-03,0.58068e-03,0.44361e-03 /) - kao(:, 2,13, 8) = (/ & - & 0.10765e-02,0.11637e-02,0.11461e-02,0.10966e-02,0.10221e-02, & - & 0.92418e-03,0.80364e-03,0.64949e-03,0.50409e-03 /) - kao(:, 3,13, 8) = (/ & - & 0.11121e-02,0.12288e-02,0.12232e-02,0.11802e-02,0.11084e-02, & - & 0.10099e-02,0.88562e-03,0.72467e-03,0.57688e-03 /) - kao(:, 4,13, 8) = (/ & - & 0.11491e-02,0.12989e-02,0.13080e-02,0.12720e-02,0.12030e-02, & - & 0.11037e-02,0.97404e-03,0.80781e-03,0.65303e-03 /) - kao(:, 5,13, 8) = (/ & - & 0.11880e-02,0.13724e-02,0.13975e-02,0.13701e-02,0.13034e-02, & - & 0.12049e-02,0.10715e-02,0.89944e-03,0.73687e-03 /) - kao(:, 1, 1, 9) = (/ & - & 0.14418e-01,0.13406e-01,0.12605e-01,0.11857e-01,0.11091e-01, & - & 0.10336e-01,0.95691e-02,0.87036e-02,0.88524e-02 /) - kao(:, 2, 1, 9) = (/ & - & 0.14296e-01,0.13450e-01,0.12870e-01,0.12297e-01,0.11684e-01, & - & 0.11070e-01,0.10452e-01,0.97477e-02,0.10154e-01 /) - kao(:, 3, 1, 9) = (/ & - & 0.14166e-01,0.13524e-01,0.13158e-01,0.12768e-01,0.12317e-01, & - & 0.11876e-01,0.11397e-01,0.10864e-01,0.11523e-01 /) - kao(:, 4, 1, 9) = (/ & - & 0.14022e-01,0.13622e-01,0.13487e-01,0.13264e-01,0.13003e-01, & - & 0.12732e-01,0.12371e-01,0.12050e-01,0.12968e-01 /) - kao(:, 5, 1, 9) = (/ & - & 0.13872e-01,0.13730e-01,0.13820e-01,0.13802e-01,0.13718e-01, & - & 0.13604e-01,0.13373e-01,0.13315e-01,0.14498e-01 /) - kao(:, 1, 2, 9) = (/ & - & 0.14547e-01,0.13535e-01,0.12726e-01,0.11955e-01,0.11121e-01, & - & 0.10242e-01,0.92998e-02,0.82716e-02,0.79571e-02 /) - kao(:, 2, 2, 9) = (/ & - & 0.14415e-01,0.13577e-01,0.12984e-01,0.12377e-01,0.11698e-01, & - & 0.10932e-01,0.10129e-01,0.92199e-02,0.91565e-02 /) - kao(:, 3, 2, 9) = (/ & - & 0.14274e-01,0.13649e-01,0.13264e-01,0.12845e-01,0.12290e-01, & - & 0.11686e-01,0.11026e-01,0.10231e-01,0.10415e-01 /) - kao(:, 4, 2, 9) = (/ & - & 0.14122e-01,0.13744e-01,0.13589e-01,0.13325e-01,0.12935e-01, & - & 0.12484e-01,0.11950e-01,0.11311e-01,0.11744e-01 /) - kao(:, 5, 2, 9) = (/ & - & 0.13965e-01,0.13855e-01,0.13924e-01,0.13828e-01,0.13608e-01, & - & 0.13305e-01,0.12905e-01,0.12457e-01,0.13151e-01 /) - kao(:, 1, 3, 9) = (/ & - & 0.14475e-01,0.13482e-01,0.12654e-01,0.11861e-01,0.10971e-01, & - & 0.99930e-02,0.88735e-02,0.76595e-02,0.68509e-02 /) - kao(:, 2, 3, 9) = (/ & - & 0.14335e-01,0.13514e-01,0.12906e-01,0.12263e-01,0.11533e-01, & - & 0.10637e-01,0.96386e-02,0.85394e-02,0.79297e-02 /) - kao(:, 3, 3, 9) = (/ & - & 0.14181e-01,0.13576e-01,0.13177e-01,0.12719e-01,0.12099e-01, & - & 0.11329e-01,0.10466e-01,0.94601e-02,0.90731e-02 /) - kao(:, 4, 3, 9) = (/ & - & 0.14024e-01,0.13665e-01,0.13491e-01,0.13188e-01,0.12703e-01, & - & 0.12072e-01,0.11323e-01,0.10433e-01,0.10295e-01 /) - kao(:, 5, 3, 9) = (/ & - & 0.13862e-01,0.13772e-01,0.13824e-01,0.13679e-01,0.13333e-01, & - & 0.12836e-01,0.12214e-01,0.11468e-01,0.11588e-01 /) - kao(:, 1, 4, 9) = (/ & - & 0.14153e-01,0.13216e-01,0.12406e-01,0.11612e-01,0.10690e-01, & - & 0.96495e-02,0.84088e-02,0.70121e-02,0.57874e-02 /) - kao(:, 2, 4, 9) = (/ & - & 0.14005e-01,0.13241e-01,0.12647e-01,0.11995e-01,0.11231e-01, & - & 0.10266e-01,0.91127e-02,0.78123e-02,0.67372e-02 /) - kao(:, 3, 4, 9) = (/ & - & 0.13845e-01,0.13290e-01,0.12907e-01,0.12438e-01,0.11783e-01, & - & 0.10918e-01,0.98730e-02,0.86646e-02,0.77601e-02 /) - kao(:, 4, 4, 9) = (/ & - & 0.13685e-01,0.13375e-01,0.13206e-01,0.12899e-01,0.12360e-01, & - & 0.11608e-01,0.10665e-01,0.95624e-02,0.88628e-02 /) - kao(:, 5, 4, 9) = (/ & - & 0.13529e-01,0.13472e-01,0.13531e-01,0.13371e-01,0.12964e-01, & - & 0.12311e-01,0.11491e-01,0.10508e-01,0.10039e-01 /) - kao(:, 1, 5, 9) = (/ & - & 0.13587e-01,0.12730e-01,0.11973e-01,0.11204e-01,0.10282e-01, & - & 0.92218e-02,0.79316e-02,0.64044e-02,0.48583e-02 /) - kao(:, 2, 5, 9) = (/ & - & 0.13430e-01,0.12751e-01,0.12205e-01,0.11567e-01,0.10798e-01, & - & 0.98163e-02,0.85810e-02,0.71221e-02,0.56837e-02 /) - kao(:, 3, 5, 9) = (/ & - & 0.13271e-01,0.12793e-01,0.12448e-01,0.11993e-01,0.11338e-01, & - & 0.10437e-01,0.92786e-02,0.78957e-02,0.65802e-02 /) - kao(:, 4, 5, 9) = (/ & - & 0.13115e-01,0.12874e-01,0.12735e-01,0.12440e-01,0.11897e-01, & - & 0.11094e-01,0.10003e-01,0.87146e-02,0.75565e-02 /) - kao(:, 5, 5, 9) = (/ & - & 0.12984e-01,0.12973e-01,0.13053e-01,0.12899e-01,0.12481e-01, & - & 0.11759e-01,0.10765e-01,0.95850e-02,0.86117e-02 /) - kao(:, 1, 6, 9) = (/ & - & 0.12817e-01,0.12050e-01,0.11369e-01,0.10622e-01,0.97180e-02, & - & 0.86745e-02,0.73942e-02,0.58154e-02,0.40318e-02 /) - kao(:, 2, 6, 9) = (/ & - & 0.12656e-01,0.12077e-01,0.11582e-01,0.10960e-01,0.10205e-01, & - & 0.92477e-02,0.80000e-02,0.64500e-02,0.47452e-02 /) - kao(:, 3, 6, 9) = (/ & - & 0.12499e-01,0.12115e-01,0.11810e-01,0.11361e-01,0.10734e-01, & - & 0.98374e-02,0.86412e-02,0.71467e-02,0.55214e-02 /) - kao(:, 4, 6, 9) = (/ & - & 0.12364e-01,0.12194e-01,0.12081e-01,0.11798e-01,0.11270e-01, & - & 0.10459e-01,0.93144e-02,0.78844e-02,0.63718e-02 /) - kao(:, 5, 6, 9) = (/ & - & 0.12255e-01,0.12311e-01,0.12390e-01,0.12242e-01,0.11833e-01, & - & 0.11093e-01,0.10016e-01,0.86730e-02,0.72984e-02 /) - kao(:, 1, 7, 9) = (/ & - & 0.11891e-01,0.11226e-01,0.10633e-01,0.99134e-02,0.90439e-02, & - & 0.80297e-02,0.68136e-02,0.52756e-02,0.33216e-02 /) - kao(:, 2, 7, 9) = (/ & - & 0.11730e-01,0.11250e-01,0.10822e-01,0.10230e-01,0.94903e-02, & - & 0.85683e-02,0.73765e-02,0.58347e-02,0.39310e-02 /) - kao(:, 3, 7, 9) = (/ & - & 0.11586e-01,0.11299e-01,0.11036e-01,0.10599e-01,0.99917e-02, & - & 0.91260e-02,0.79645e-02,0.64502e-02,0.46031e-02 /) - kao(:, 4, 7, 9) = (/ & - & 0.11473e-01,0.11391e-01,0.11290e-01,0.11015e-01,0.10500e-01, & - & 0.97132e-02,0.85920e-02,0.71112e-02,0.53403e-02 /) - kao(:, 5, 7, 9) = (/ & - & 0.11384e-01,0.11524e-01,0.11598e-01,0.11442e-01,0.11036e-01, & - & 0.10317e-01,0.92441e-02,0.78209e-02,0.61457e-02 /) - kao(:, 1, 8, 9) = (/ & - & 0.10852e-01,0.10302e-01,0.97896e-02,0.91138e-02,0.83000e-02, & - & 0.73373e-02,0.61956e-02,0.47644e-02,0.26652e-02 /) - kao(:, 2, 8, 9) = (/ & - & 0.10699e-01,0.10325e-01,0.99631e-02,0.94045e-02,0.87025e-02, & - & 0.78255e-02,0.67137e-02,0.52638e-02,0.31922e-02 /) - kao(:, 3, 8, 9) = (/ & - & 0.10574e-01,0.10385e-01,0.10163e-01,0.97460e-02,0.91609e-02, & - & 0.83418e-02,0.72560e-02,0.58143e-02,0.37766e-02 /) - kao(:, 4, 8, 9) = (/ & - & 0.10480e-01,0.10499e-01,0.10413e-01,0.10139e-01,0.96342e-02, & - & 0.88826e-02,0.78405e-02,0.64037e-02,0.44295e-02 /) - kao(:, 5, 8, 9) = (/ & - & 0.10415e-01,0.10646e-01,0.10720e-01,0.10553e-01,0.10134e-01, & - & 0.94529e-02,0.84471e-02,0.70384e-02,0.51485e-02 /) - kao(:, 1, 9, 9) = (/ & - & 0.97587e-02,0.93185e-02,0.88694e-02,0.82517e-02,0.75094e-02, & - & 0.66177e-02,0.55658e-02,0.42591e-02,0.21931e-02 /) - kao(:, 2, 9, 9) = (/ & - & 0.96183e-02,0.93436e-02,0.90329e-02,0.85198e-02,0.78654e-02, & - & 0.70507e-02,0.60316e-02,0.47067e-02,0.25691e-02 /) - kao(:, 3, 9, 9) = (/ & - & 0.95112e-02,0.94166e-02,0.92325e-02,0.88355e-02,0.82791e-02, & - & 0.75194e-02,0.65208e-02,0.52003e-02,0.29789e-02 /) - kao(:, 4, 9, 9) = (/ & - & 0.94373e-02,0.95446e-02,0.94815e-02,0.92092e-02,0.87140e-02, & - & 0.80091e-02,0.70556e-02,0.57344e-02,0.34284e-02 /) - kao(:, 5, 9, 9) = (/ & - & 0.93945e-02,0.97041e-02,0.97866e-02,0.96055e-02,0.91834e-02, & - & 0.85358e-02,0.76199e-02,0.63067e-02,0.39360e-02 /) - kao(:, 1,10, 9) = (/ & - & 0.86571e-02,0.83282e-02,0.79327e-02,0.73862e-02,0.67217e-02, & - & 0.59210e-02,0.49777e-02,0.37950e-02,0.25161e-02 /) - kao(:, 2,10, 9) = (/ & - & 0.85351e-02,0.83629e-02,0.80910e-02,0.76400e-02,0.70398e-02, & - & 0.63068e-02,0.53903e-02,0.41966e-02,0.29067e-02 /) - kao(:, 3,10, 9) = (/ & - & 0.84483e-02,0.84483e-02,0.82944e-02,0.79338e-02,0.74159e-02, & - & 0.67272e-02,0.58285e-02,0.46411e-02,0.33599e-02 /) - kao(:, 4,10, 9) = (/ & - & 0.83941e-02,0.85821e-02,0.85440e-02,0.82866e-02,0.78214e-02, & - & 0.71692e-02,0.63103e-02,0.51290e-02,0.38620e-02 /) - kao(:, 5,10, 9) = (/ & - & 0.83806e-02,0.87510e-02,0.88459e-02,0.86620e-02,0.82607e-02, & - & 0.76554e-02,0.68267e-02,0.56504e-02,0.44001e-02 /) - kao(:, 1,11, 9) = (/ & - & 0.75570e-02,0.73902e-02,0.70826e-02,0.66405e-02,0.60731e-02, & - & 0.53892e-02,0.45656e-02,0.35050e-02,0.26164e-02 /) - kao(:, 2,11, 9) = (/ & - & 0.74683e-02,0.74501e-02,0.72578e-02,0.68886e-02,0.63823e-02, & - & 0.57485e-02,0.49402e-02,0.38790e-02,0.30097e-02 /) - kao(:, 3,11, 9) = (/ & - & 0.74153e-02,0.75630e-02,0.74762e-02,0.71912e-02,0.67425e-02, & - & 0.61326e-02,0.53447e-02,0.42990e-02,0.34771e-02 /) - kao(:, 4,11, 9) = (/ & - & 0.74057e-02,0.77202e-02,0.77477e-02,0.75330e-02,0.71268e-02, & - & 0.65549e-02,0.57951e-02,0.47555e-02,0.39884e-02 /) - kao(:, 5,11, 9) = (/ & - & 0.74391e-02,0.79220e-02,0.80561e-02,0.79014e-02,0.75514e-02, & - & 0.70214e-02,0.62779e-02,0.52483e-02,0.45376e-02 /) - kao(:, 1,12, 9) = (/ & - & 0.65546e-02,0.65200e-02,0.62910e-02,0.59243e-02,0.54454e-02, & - & 0.48623e-02,0.41386e-02,0.32013e-02,0.25137e-02 /) - kao(:, 2,12, 9) = (/ & - & 0.64987e-02,0.66047e-02,0.64774e-02,0.61754e-02,0.57483e-02, & - & 0.51910e-02,0.44799e-02,0.35500e-02,0.28998e-02 /) - kao(:, 3,12, 9) = (/ & - & 0.64867e-02,0.67439e-02,0.67077e-02,0.64758e-02,0.60840e-02, & - & 0.55472e-02,0.48582e-02,0.39433e-02,0.33472e-02 /) - kao(:, 4,12, 9) = (/ & - & 0.65214e-02,0.69269e-02,0.69913e-02,0.68034e-02,0.64480e-02, & - & 0.59497e-02,0.52811e-02,0.43712e-02,0.38283e-02 /) - kao(:, 5,12, 9) = (/ & - & 0.66068e-02,0.71634e-02,0.73032e-02,0.71670e-02,0.68605e-02, & - & 0.63896e-02,0.57387e-02,0.48340e-02,0.43614e-02 /) - kao(:, 1,13, 9) = (/ & - & 0.56598e-02,0.57241e-02,0.55653e-02,0.52616e-02,0.48615e-02, & - & 0.43534e-02,0.37143e-02,0.28975e-02,0.22483e-02 /) - kao(:, 2,13, 9) = (/ & - & 0.56408e-02,0.58364e-02,0.57539e-02,0.55120e-02,0.51475e-02, & - & 0.46559e-02,0.40284e-02,0.32222e-02,0.26111e-02 /) - kao(:, 3,13, 9) = (/ & - & 0.56697e-02,0.59982e-02,0.59981e-02,0.58053e-02,0.54583e-02, & - & 0.49917e-02,0.43867e-02,0.35862e-02,0.30268e-02 /) - kao(:, 4,13, 9) = (/ & - & 0.57519e-02,0.62108e-02,0.62874e-02,0.61219e-02,0.58111e-02, & - & 0.53715e-02,0.47851e-02,0.39858e-02,0.34700e-02 /) - kao(:, 5,13, 9) = (/ & - & 0.58830e-02,0.64813e-02,0.66064e-02,0.64830e-02,0.62068e-02, & - & 0.57872e-02,0.52185e-02,0.44205e-02,0.39619e-02 /) - kao(:, 1, 1,10) = (/ & - & 0.28544e-01,0.26155e-01,0.24149e-01,0.22667e-01,0.21632e-01, & - & 0.20279e-01,0.18489e-01,0.17580e-01,0.19616e-01 /) - kao(:, 2, 1,10) = (/ & - & 0.28363e-01,0.26242e-01,0.24669e-01,0.23473e-01,0.22995e-01, & - & 0.21803e-01,0.19985e-01,0.19915e-01,0.22325e-01 /) - kao(:, 3, 1,10) = (/ & - & 0.28168e-01,0.26278e-01,0.25280e-01,0.24624e-01,0.24316e-01, & - & 0.23197e-01,0.21657e-01,0.22779e-01,0.25626e-01 /) - kao(:, 4, 1,10) = (/ & - & 0.27980e-01,0.26431e-01,0.25828e-01,0.25920e-01,0.25669e-01, & - & 0.24755e-01,0.23686e-01,0.25934e-01,0.29281e-01 /) - kao(:, 5, 1,10) = (/ & - & 0.27732e-01,0.26646e-01,0.26660e-01,0.27009e-01,0.27233e-01, & - & 0.26525e-01,0.25997e-01,0.29201e-01,0.33040e-01 /) - kao(:, 1, 2,10) = (/ & - & 0.30271e-01,0.27672e-01,0.25272e-01,0.23430e-01,0.22043e-01, & - & 0.20727e-01,0.19083e-01,0.16913e-01,0.18728e-01 /) - kao(:, 2, 2,10) = (/ & - & 0.30091e-01,0.27720e-01,0.25820e-01,0.24222e-01,0.23409e-01, & - & 0.22468e-01,0.20609e-01,0.19148e-01,0.21375e-01 /) - kao(:, 3, 2,10) = (/ & - & 0.29914e-01,0.27750e-01,0.26375e-01,0.25267e-01,0.24987e-01, & - & 0.23926e-01,0.22306e-01,0.21932e-01,0.24591e-01 /) - kao(:, 4, 2,10) = (/ & - & 0.29701e-01,0.27873e-01,0.26877e-01,0.26535e-01,0.26327e-01, & - & 0.25568e-01,0.24303e-01,0.24920e-01,0.28049e-01 /) - kao(:, 5, 2,10) = (/ & - & 0.29422e-01,0.28052e-01,0.27653e-01,0.27818e-01,0.27831e-01, & - & 0.27375e-01,0.26338e-01,0.28129e-01,0.31777e-01 /) - kao(:, 1, 3,10) = (/ & - & 0.32089e-01,0.29221e-01,0.26504e-01,0.24372e-01,0.22322e-01, & - & 0.20541e-01,0.19063e-01,0.16413e-01,0.17368e-01 /) - kao(:, 2, 3,10) = (/ & - & 0.31950e-01,0.29299e-01,0.26979e-01,0.25078e-01,0.23422e-01, & - & 0.22454e-01,0.20735e-01,0.18244e-01,0.19956e-01 /) - kao(:, 3, 3,10) = (/ & - & 0.31786e-01,0.29316e-01,0.27496e-01,0.25889e-01,0.24965e-01, & - & 0.24089e-01,0.22376e-01,0.20693e-01,0.22993e-01 /) - kao(:, 4, 3,10) = (/ & - & 0.31564e-01,0.29393e-01,0.27942e-01,0.27000e-01,0.26402e-01, & - & 0.25715e-01,0.24406e-01,0.23371e-01,0.26093e-01 /) - kao(:, 5, 3,10) = (/ & - & 0.31295e-01,0.29526e-01,0.28627e-01,0.28150e-01,0.27951e-01, & - & 0.27569e-01,0.26423e-01,0.26332e-01,0.29505e-01 /) - kao(:, 1, 4,10) = (/ & - & 0.33998e-01,0.30694e-01,0.27710e-01,0.25291e-01,0.22809e-01, & - & 0.20329e-01,0.18660e-01,0.16131e-01,0.15800e-01 /) - kao(:, 2, 4,10) = (/ & - & 0.33852e-01,0.30861e-01,0.28097e-01,0.25930e-01,0.23654e-01, & - & 0.22029e-01,0.20474e-01,0.17896e-01,0.18339e-01 /) - kao(:, 3, 4,10) = (/ & - & 0.33685e-01,0.30889e-01,0.28668e-01,0.26585e-01,0.25018e-01, & - & 0.23681e-01,0.22215e-01,0.19897e-01,0.21224e-01 /) - kao(:, 4, 4,10) = (/ & - & 0.33431e-01,0.30933e-01,0.29107e-01,0.27570e-01,0.26341e-01, & - & 0.25360e-01,0.24234e-01,0.22138e-01,0.24217e-01 /) - kao(:, 5, 4,10) = (/ & - & 0.33153e-01,0.31115e-01,0.29708e-01,0.28626e-01,0.27757e-01, & - & 0.27318e-01,0.26191e-01,0.24666e-01,0.27426e-01 /) - kao(:, 1, 5,10) = (/ & - & 0.35630e-01,0.31962e-01,0.28969e-01,0.26191e-01,0.23359e-01, & - & 0.20419e-01,0.18025e-01,0.15529e-01,0.14046e-01 /) - kao(:, 2, 5,10) = (/ & - & 0.35465e-01,0.32227e-01,0.29248e-01,0.26845e-01,0.24076e-01, & - & 0.21854e-01,0.19842e-01,0.17371e-01,0.16514e-01 /) - kao(:, 3, 5,10) = (/ & - & 0.35239e-01,0.32283e-01,0.29869e-01,0.27436e-01,0.25256e-01, & - & 0.23352e-01,0.21638e-01,0.19381e-01,0.19322e-01 /) - kao(:, 4, 5,10) = (/ & - & 0.34959e-01,0.32275e-01,0.30321e-01,0.28325e-01,0.26494e-01, & - & 0.24825e-01,0.23722e-01,0.21526e-01,0.22221e-01 /) - kao(:, 5, 5,10) = (/ & - & 0.34633e-01,0.32463e-01,0.30867e-01,0.29345e-01,0.27730e-01, & - & 0.26661e-01,0.25760e-01,0.23698e-01,0.25325e-01 /) - kao(:, 1, 6,10) = (/ & - & 0.36611e-01,0.32766e-01,0.29862e-01,0.26964e-01,0.23985e-01, & - & 0.20572e-01,0.17499e-01,0.14612e-01,0.12200e-01 /) - kao(:, 2, 6,10) = (/ & - & 0.36404e-01,0.32931e-01,0.30135e-01,0.27680e-01,0.24618e-01, & - & 0.21792e-01,0.19087e-01,0.16488e-01,0.14408e-01 /) - kao(:, 3, 6,10) = (/ & - & 0.36151e-01,0.33151e-01,0.30783e-01,0.28229e-01,0.25608e-01, & - & 0.23215e-01,0.20762e-01,0.18415e-01,0.17025e-01 /) - kao(:, 4, 6,10) = (/ & - & 0.35835e-01,0.33169e-01,0.31261e-01,0.29020e-01,0.26813e-01, & - & 0.24559e-01,0.22662e-01,0.20622e-01,0.19846e-01 /) - kao(:, 5, 6,10) = (/ & - & 0.35491e-01,0.33330e-01,0.31756e-01,0.30047e-01,0.27916e-01, & - & 0.26189e-01,0.24713e-01,0.22859e-01,0.22839e-01 /) - kao(:, 1, 7,10) = (/ & - & 0.36793e-01,0.32943e-01,0.30074e-01,0.27299e-01,0.24319e-01, & - & 0.20802e-01,0.17113e-01,0.13465e-01,0.10508e-01 /) - kao(:, 2, 7,10) = (/ & - & 0.36572e-01,0.33074e-01,0.30511e-01,0.28032e-01,0.24986e-01, & - & 0.21844e-01,0.18570e-01,0.15283e-01,0.12467e-01 /) - kao(:, 3, 7,10) = (/ & - & 0.36275e-01,0.33234e-01,0.31161e-01,0.28602e-01,0.25904e-01, & - & 0.23164e-01,0.20091e-01,0.17151e-01,0.14775e-01 /) - kao(:, 4, 7,10) = (/ & - & 0.35925e-01,0.33332e-01,0.31658e-01,0.29367e-01,0.27125e-01, & - & 0.24431e-01,0.21734e-01,0.19261e-01,0.17350e-01 /) - kao(:, 5, 7,10) = (/ & - & 0.35558e-01,0.33506e-01,0.32097e-01,0.30412e-01,0.28219e-01, & - & 0.25923e-01,0.23598e-01,0.21456e-01,0.20114e-01 /) - kao(:, 1, 8,10) = (/ & - & 0.36293e-01,0.32550e-01,0.29721e-01,0.27154e-01,0.24076e-01, & - & 0.20693e-01,0.16829e-01,0.12555e-01,0.89579e-02 /) - kao(:, 2, 8,10) = (/ & - & 0.35985e-01,0.32624e-01,0.30270e-01,0.27879e-01,0.24830e-01, & - & 0.21669e-01,0.18126e-01,0.14126e-01,0.10649e-01 /) - kao(:, 3, 8,10) = (/ & - & 0.35646e-01,0.32730e-01,0.30946e-01,0.28474e-01,0.25750e-01, & - & 0.23017e-01,0.19564e-01,0.15741e-01,0.12721e-01 /) - kao(:, 4, 8,10) = (/ & - & 0.35279e-01,0.32754e-01,0.31424e-01,0.29187e-01,0.27070e-01, & - & 0.24316e-01,0.21018e-01,0.17682e-01,0.15011e-01 /) - kao(:, 5, 8,10) = (/ & - & 0.34858e-01,0.32947e-01,0.31835e-01,0.30265e-01,0.28236e-01, & - & 0.25710e-01,0.22721e-01,0.19777e-01,0.17474e-01 /) - kao(:, 1, 9,10) = (/ & - & 0.35060e-01,0.31556e-01,0.29012e-01,0.26469e-01,0.23391e-01, & - & 0.20141e-01,0.16295e-01,0.11885e-01,0.58937e-02 /) - kao(:, 2, 9,10) = (/ & - & 0.34721e-01,0.31589e-01,0.29506e-01,0.27211e-01,0.24267e-01, & - & 0.21055e-01,0.17547e-01,0.13263e-01,0.69908e-02 /) - kao(:, 3, 9,10) = (/ & - & 0.34339e-01,0.31609e-01,0.30075e-01,0.27841e-01,0.25163e-01, & - & 0.22398e-01,0.18997e-01,0.14640e-01,0.92447e-02 /) - kao(:, 4, 9,10) = (/ & - & 0.33936e-01,0.31619e-01,0.30603e-01,0.28503e-01,0.26490e-01, & - & 0.23804e-01,0.20342e-01,0.16280e-01,0.11993e-01 /) - kao(:, 5, 9,10) = (/ & - & 0.33530e-01,0.31821e-01,0.30991e-01,0.29578e-01,0.27714e-01, & - & 0.25218e-01,0.21886e-01,0.18137e-01,0.14941e-01 /) - kao(:, 1,10,10) = (/ & - & 0.33129e-01,0.29964e-01,0.27856e-01,0.25331e-01,0.22401e-01, & - & 0.19295e-01,0.15555e-01,0.11348e-01,0.74286e-02 /) - kao(:, 2,10,10) = (/ & - & 0.32749e-01,0.29950e-01,0.28249e-01,0.25998e-01,0.23402e-01, & - & 0.20209e-01,0.16757e-01,0.12616e-01,0.86653e-02 /) - kao(:, 3,10,10) = (/ & - & 0.32344e-01,0.29933e-01,0.28722e-01,0.26736e-01,0.24275e-01, & - & 0.21508e-01,0.18229e-01,0.13852e-01,0.98082e-02 /) - kao(:, 4,10,10) = (/ & - & 0.31944e-01,0.30002e-01,0.29235e-01,0.27435e-01,0.25548e-01, & - & 0.22964e-01,0.19579e-01,0.15278e-01,0.11352e-01 /) - kao(:, 5,10,10) = (/ & - & 0.31533e-01,0.30276e-01,0.29685e-01,0.28539e-01,0.26795e-01, & - & 0.24358e-01,0.21106e-01,0.16900e-01,0.12858e-01 /) - kao(:, 1,11,10) = (/ & - & 0.30476e-01,0.27848e-01,0.26383e-01,0.23991e-01,0.21505e-01, & - & 0.18546e-01,0.15127e-01,0.11242e-01,0.84064e-02 /) - kao(:, 2,11,10) = (/ & - & 0.30069e-01,0.27873e-01,0.26695e-01,0.24743e-01,0.22441e-01, & - & 0.19591e-01,0.16445e-01,0.12465e-01,0.99520e-02 /) - kao(:, 3,11,10) = (/ & - & 0.29683e-01,0.27938e-01,0.27199e-01,0.25464e-01,0.23474e-01, & - & 0.21008e-01,0.17841e-01,0.13636e-01,0.11012e-01 /) - kao(:, 4,11,10) = (/ & - & 0.29281e-01,0.28147e-01,0.27612e-01,0.26457e-01,0.24810e-01, & - & 0.22367e-01,0.19198e-01,0.15026e-01,0.12764e-01 /) - kao(:, 5,11,10) = (/ & - & 0.28878e-01,0.28450e-01,0.28275e-01,0.27607e-01,0.26039e-01, & - & 0.23769e-01,0.20798e-01,0.16479e-01,0.14486e-01 /) - kao(:, 1,12,10) = (/ & - & 0.27483e-01,0.25515e-01,0.24398e-01,0.22423e-01,0.20204e-01, & - & 0.17532e-01,0.14597e-01,0.10977e-01,0.89256e-02 /) - kao(:, 2,12,10) = (/ & - & 0.27095e-01,0.25634e-01,0.24782e-01,0.23175e-01,0.21102e-01, & - & 0.18740e-01,0.15902e-01,0.12114e-01,0.10252e-01 /) - kao(:, 3,12,10) = (/ & - & 0.26727e-01,0.25761e-01,0.25266e-01,0.23974e-01,0.22361e-01, & - & 0.20171e-01,0.17193e-01,0.13275e-01,0.11451e-01 /) - kao(:, 4,12,10) = (/ & - & 0.26341e-01,0.26039e-01,0.25768e-01,0.25146e-01,0.23693e-01, & - & 0.21452e-01,0.18566e-01,0.14626e-01,0.13159e-01 /) - kao(:, 5,12,10) = (/ & - & 0.25958e-01,0.26232e-01,0.26607e-01,0.26277e-01,0.24926e-01, & - & 0.22906e-01,0.20118e-01,0.16018e-01,0.14784e-01 /) - kao(:, 1,13,10) = (/ & - & 0.24404e-01,0.23195e-01,0.22191e-01,0.20664e-01,0.18645e-01, & - & 0.16397e-01,0.13889e-01,0.10532e-01,0.85762e-02 /) - kao(:, 2,13,10) = (/ & - & 0.24045e-01,0.23274e-01,0.22704e-01,0.21382e-01,0.19651e-01, & - & 0.17693e-01,0.15133e-01,0.11576e-01,0.96068e-02 /) - kao(:, 3,13,10) = (/ & - & 0.23688e-01,0.23458e-01,0.23185e-01,0.22281e-01,0.21010e-01, & - & 0.19021e-01,0.16312e-01,0.12755e-01,0.10813e-01 /) - kao(:, 4,13,10) = (/ & - & 0.23340e-01,0.23719e-01,0.23835e-01,0.23529e-01,0.22269e-01, & - & 0.20297e-01,0.17677e-01,0.14063e-01,0.12469e-01 /) - kao(:, 5,13,10) = (/ & - & 0.23007e-01,0.23887e-01,0.24745e-01,0.24636e-01,0.23538e-01, & - & 0.21795e-01,0.19163e-01,0.15452e-01,0.13866e-01 /) - kao(:, 1, 1,11) = (/ & - & 0.38207e-01,0.35023e-01,0.31764e-01,0.29513e-01,0.27148e-01, & - & 0.25121e-01,0.22678e-01,0.23928e-01,0.26899e-01 /) - kao(:, 2, 1,11) = (/ & - & 0.37930e-01,0.35272e-01,0.32250e-01,0.30760e-01,0.28557e-01, & - & 0.27105e-01,0.25089e-01,0.27604e-01,0.31070e-01 /) - kao(:, 3, 1,11) = (/ & - & 0.37611e-01,0.35491e-01,0.32949e-01,0.31869e-01,0.30632e-01, & - & 0.29068e-01,0.27897e-01,0.31369e-01,0.35419e-01 /) - kao(:, 4, 1,11) = (/ & - & 0.37244e-01,0.35566e-01,0.33874e-01,0.33253e-01,0.32466e-01, & - & 0.31095e-01,0.31358e-01,0.35716e-01,0.40368e-01 /) - kao(:, 5, 1,11) = (/ & - & 0.36895e-01,0.35750e-01,0.34817e-01,0.35038e-01,0.34265e-01, & - & 0.33428e-01,0.35709e-01,0.40899e-01,0.46337e-01 /) - kao(:, 1, 2,11) = (/ & - & 0.39640e-01,0.36208e-01,0.33140e-01,0.30731e-01,0.28621e-01, & - & 0.26451e-01,0.23824e-01,0.23418e-01,0.26401e-01 /) - kao(:, 2, 2,11) = (/ & - & 0.39384e-01,0.36543e-01,0.33542e-01,0.32043e-01,0.30032e-01, & - & 0.28484e-01,0.26191e-01,0.27027e-01,0.30540e-01 /) - kao(:, 3, 2,11) = (/ & - & 0.39069e-01,0.36650e-01,0.34340e-01,0.33119e-01,0.32037e-01, & - & 0.30787e-01,0.28410e-01,0.30659e-01,0.34733e-01 /) - kao(:, 4, 2,11) = (/ & - & 0.38756e-01,0.36738e-01,0.35220e-01,0.34547e-01,0.34264e-01, & - & 0.32872e-01,0.31204e-01,0.34827e-01,0.39529e-01 /) - kao(:, 5, 2,11) = (/ & - & 0.38432e-01,0.36958e-01,0.36077e-01,0.36343e-01,0.36389e-01, & - & 0.35222e-01,0.34916e-01,0.39622e-01,0.45018e-01 /) - kao(:, 1, 3,11) = (/ & - & 0.41762e-01,0.37801e-01,0.34598e-01,0.31385e-01,0.29542e-01, & - & 0.27120e-01,0.24296e-01,0.22163e-01,0.24873e-01 /) - kao(:, 2, 3,11) = (/ & - & 0.41521e-01,0.38107e-01,0.34885e-01,0.32740e-01,0.30892e-01, & - & 0.28927e-01,0.26874e-01,0.25608e-01,0.28828e-01 /) - kao(:, 3, 3,11) = (/ & - & 0.41284e-01,0.38250e-01,0.35590e-01,0.33929e-01,0.32637e-01, & - & 0.31412e-01,0.29268e-01,0.29038e-01,0.32851e-01 /) - kao(:, 4, 3,11) = (/ & - & 0.40996e-01,0.38286e-01,0.36402e-01,0.35356e-01,0.34868e-01, & - & 0.33799e-01,0.31619e-01,0.33158e-01,0.37659e-01 /) - kao(:, 5, 3,11) = (/ & - & 0.40710e-01,0.38497e-01,0.37108e-01,0.37161e-01,0.37098e-01, & - & 0.36226e-01,0.34568e-01,0.37733e-01,0.42953e-01 /) - kao(:, 1, 4,11) = (/ & - & 0.44432e-01,0.39911e-01,0.36533e-01,0.32358e-01,0.30116e-01, & - & 0.27425e-01,0.24391e-01,0.21003e-01,0.22873e-01 /) - kao(:, 2, 4,11) = (/ & - & 0.44241e-01,0.40248e-01,0.36750e-01,0.33734e-01,0.31371e-01, & - & 0.29050e-01,0.26929e-01,0.23993e-01,0.26696e-01 /) - kao(:, 3, 4,11) = (/ & - & 0.43986e-01,0.40474e-01,0.37358e-01,0.34847e-01,0.32894e-01, & - & 0.31475e-01,0.29486e-01,0.27256e-01,0.30632e-01 /) - kao(:, 4, 4,11) = (/ & - & 0.43750e-01,0.40487e-01,0.38107e-01,0.36115e-01,0.35063e-01, & - & 0.33924e-01,0.31967e-01,0.31144e-01,0.35198e-01 /) - kao(:, 5, 4,11) = (/ & - & 0.43427e-01,0.40610e-01,0.38702e-01,0.37867e-01,0.37251e-01, & - & 0.36357e-01,0.34995e-01,0.35502e-01,0.40197e-01 /) - kao(:, 1, 5,11) = (/ & - & 0.47176e-01,0.42142e-01,0.38550e-01,0.33884e-01,0.30889e-01, & - & 0.27516e-01,0.24267e-01,0.20680e-01,0.20851e-01 /) - kao(:, 2, 5,11) = (/ & - & 0.47021e-01,0.42363e-01,0.38770e-01,0.35164e-01,0.32104e-01, & - & 0.29005e-01,0.26645e-01,0.23247e-01,0.24505e-01 /) - kao(:, 3, 5,11) = (/ & - & 0.46797e-01,0.42763e-01,0.39235e-01,0.36269e-01,0.33395e-01, & - & 0.31307e-01,0.29249e-01,0.25924e-01,0.28324e-01 /) - kao(:, 4, 5,11) = (/ & - & 0.46572e-01,0.42912e-01,0.40018e-01,0.37361e-01,0.35308e-01, & - & 0.33789e-01,0.31702e-01,0.29304e-01,0.32735e-01 /) - kao(:, 5, 5,11) = (/ & - & 0.46255e-01,0.42923e-01,0.40617e-01,0.38829e-01,0.37399e-01, & - & 0.36167e-01,0.34686e-01,0.33312e-01,0.37380e-01 /) - kao(:, 1, 6,11) = (/ & - & 0.49975e-01,0.44361e-01,0.40341e-01,0.35539e-01,0.31829e-01, & - & 0.27816e-01,0.23845e-01,0.20093e-01,0.18543e-01 /) - kao(:, 2, 6,11) = (/ & - & 0.49828e-01,0.44558e-01,0.40763e-01,0.36628e-01,0.33050e-01, & - & 0.29095e-01,0.26117e-01,0.22673e-01,0.22099e-01 /) - kao(:, 3, 6,11) = (/ & - & 0.49608e-01,0.44841e-01,0.41085e-01,0.37793e-01,0.34135e-01, & - & 0.31097e-01,0.28755e-01,0.25283e-01,0.25831e-01 /) - kao(:, 4, 6,11) = (/ & - & 0.49365e-01,0.45144e-01,0.41922e-01,0.38723e-01,0.35845e-01, & - & 0.33431e-01,0.31237e-01,0.28118e-01,0.29954e-01 /) - kao(:, 5, 6,11) = (/ & - & 0.49026e-01,0.45249e-01,0.42535e-01,0.39993e-01,0.37821e-01, & - & 0.35671e-01,0.34099e-01,0.31399e-01,0.34366e-01 /) - kao(:, 1, 7,11) = (/ & - & 0.52410e-01,0.46362e-01,0.41901e-01,0.37210e-01,0.32800e-01, & - & 0.28263e-01,0.23499e-01,0.19230e-01,0.16237e-01 /) - kao(:, 2, 7,11) = (/ & - & 0.52214e-01,0.46505e-01,0.42451e-01,0.38113e-01,0.34021e-01, & - & 0.29480e-01,0.25464e-01,0.21812e-01,0.19595e-01 /) - kao(:, 3, 7,11) = (/ & - & 0.51982e-01,0.46700e-01,0.42867e-01,0.39292e-01,0.35048e-01, & - & 0.31222e-01,0.27987e-01,0.24489e-01,0.23138e-01 /) - kao(:, 4, 7,11) = (/ & - & 0.51660e-01,0.46904e-01,0.43697e-01,0.40172e-01,0.36555e-01, & - & 0.33390e-01,0.30506e-01,0.27287e-01,0.27036e-01 /) - kao(:, 5, 7,11) = (/ & - & 0.51284e-01,0.47053e-01,0.44408e-01,0.41338e-01,0.38429e-01, & - & 0.35446e-01,0.33297e-01,0.30383e-01,0.31263e-01 /) - kao(:, 1, 8,11) = (/ & - & 0.53849e-01,0.47597e-01,0.43012e-01,0.38373e-01,0.33860e-01, & - & 0.28679e-01,0.23391e-01,0.18151e-01,0.14106e-01 /) - kao(:, 2, 8,11) = (/ & - & 0.53641e-01,0.47671e-01,0.43475e-01,0.39445e-01,0.35042e-01, & - & 0.29924e-01,0.25055e-01,0.20655e-01,0.17171e-01 /) - kao(:, 3, 8,11) = (/ & - & 0.53375e-01,0.47826e-01,0.44020e-01,0.40653e-01,0.36059e-01, & - & 0.31447e-01,0.27345e-01,0.23357e-01,0.20383e-01 /) - kao(:, 4, 8,11) = (/ & - & 0.53001e-01,0.48011e-01,0.44999e-01,0.41558e-01,0.37354e-01, & - & 0.33601e-01,0.29695e-01,0.26106e-01,0.24004e-01 /) - kao(:, 5, 8,11) = (/ & - & 0.52592e-01,0.48152e-01,0.45845e-01,0.42585e-01,0.39198e-01, & - & 0.35588e-01,0.32287e-01,0.29155e-01,0.27991e-01 /) - kao(:, 1, 9,11) = (/ & - & 0.54223e-01,0.47973e-01,0.43289e-01,0.38882e-01,0.34299e-01, & - & 0.28946e-01,0.23303e-01,0.17068e-01,0.11192e-01 /) - kao(:, 2, 9,11) = (/ & - & 0.53940e-01,0.47929e-01,0.43759e-01,0.39916e-01,0.35622e-01, & - & 0.30345e-01,0.24752e-01,0.19298e-01,0.14778e-01 /) - kao(:, 3, 9,11) = (/ & - & 0.53642e-01,0.48095e-01,0.44399e-01,0.41241e-01,0.36768e-01, & - & 0.31745e-01,0.26845e-01,0.21914e-01,0.17754e-01 /) - kao(:, 4, 9,11) = (/ & - & 0.53257e-01,0.48243e-01,0.45322e-01,0.42327e-01,0.37988e-01, & - & 0.33799e-01,0.29109e-01,0.24533e-01,0.21056e-01 /) - kao(:, 5, 9,11) = (/ & - & 0.52778e-01,0.48340e-01,0.46365e-01,0.43326e-01,0.39837e-01, & - & 0.35758e-01,0.31465e-01,0.27467e-01,0.24721e-01 /) - kao(:, 1,10,11) = (/ & - & 0.53564e-01,0.47520e-01,0.42897e-01,0.38870e-01,0.34096e-01, & - & 0.28762e-01,0.23161e-01,0.16420e-01,0.10403e-01 /) - kao(:, 2,10,11) = (/ & - & 0.53200e-01,0.47370e-01,0.43390e-01,0.39812e-01,0.35374e-01, & - & 0.30449e-01,0.24605e-01,0.18329e-01,0.12727e-01 /) - kao(:, 3,10,11) = (/ & - & 0.52804e-01,0.47486e-01,0.44077e-01,0.41029e-01,0.36828e-01, & - & 0.31909e-01,0.26518e-01,0.20700e-01,0.14792e-01 /) - kao(:, 4,10,11) = (/ & - & 0.52379e-01,0.47585e-01,0.44997e-01,0.42270e-01,0.38168e-01, & - & 0.33930e-01,0.28762e-01,0.23052e-01,0.16495e-01 /) - kao(:, 5,10,11) = (/ & - & 0.51859e-01,0.47629e-01,0.45989e-01,0.43387e-01,0.40080e-01, & - & 0.36007e-01,0.30957e-01,0.25773e-01,0.18898e-01 /) - kao(:, 1,11,11) = (/ & - & 0.51622e-01,0.46074e-01,0.42057e-01,0.38618e-01,0.33808e-01, & - & 0.28847e-01,0.23288e-01,0.16620e-01,0.11907e-01 /) - kao(:, 2,11,11) = (/ & - & 0.51193e-01,0.45980e-01,0.42719e-01,0.39541e-01,0.35253e-01, & - & 0.30566e-01,0.24931e-01,0.18565e-01,0.13988e-01 /) - kao(:, 3,11,11) = (/ & - & 0.50740e-01,0.46089e-01,0.43457e-01,0.40804e-01,0.36736e-01, & - & 0.32310e-01,0.27095e-01,0.20684e-01,0.16681e-01 /) - kao(:, 4,11,11) = (/ & - & 0.50228e-01,0.46105e-01,0.44454e-01,0.41838e-01,0.38478e-01, & - & 0.34580e-01,0.29293e-01,0.22846e-01,0.18301e-01 /) - kao(:, 5,11,11) = (/ & - & 0.49697e-01,0.46259e-01,0.45191e-01,0.43198e-01,0.40635e-01, & - & 0.36709e-01,0.31434e-01,0.25478e-01,0.20947e-01 /) - kao(:, 1,12,11) = (/ & - & 0.48647e-01,0.43752e-01,0.40707e-01,0.37500e-01,0.33089e-01, & - & 0.28489e-01,0.23000e-01,0.16785e-01,0.12627e-01 /) - kao(:, 2,12,11) = (/ & - & 0.48181e-01,0.43711e-01,0.41312e-01,0.38500e-01,0.34693e-01, & - & 0.30128e-01,0.24939e-01,0.18673e-01,0.15167e-01 /) - kao(:, 3,12,11) = (/ & - & 0.47678e-01,0.43812e-01,0.42104e-01,0.39699e-01,0.36175e-01, & - & 0.32199e-01,0.27269e-01,0.20637e-01,0.17826e-01 /) - kao(:, 4,12,11) = (/ & - & 0.47181e-01,0.43914e-01,0.43002e-01,0.40767e-01,0.38218e-01, & - & 0.34662e-01,0.29455e-01,0.22728e-01,0.19785e-01 /) - kao(:, 5,12,11) = (/ & - & 0.46685e-01,0.44343e-01,0.43686e-01,0.42426e-01,0.40422e-01, & - & 0.36842e-01,0.31692e-01,0.25217e-01,0.22679e-01 /) - kao(:, 1,13,11) = (/ & - & 0.44854e-01,0.40724e-01,0.38672e-01,0.35614e-01,0.31949e-01, & - & 0.27602e-01,0.22498e-01,0.16720e-01,0.12798e-01 /) - kao(:, 2,13,11) = (/ & - & 0.44381e-01,0.40833e-01,0.39190e-01,0.36792e-01,0.33534e-01, & - & 0.29330e-01,0.24604e-01,0.18629e-01,0.15661e-01 /) - kao(:, 3,13,11) = (/ & - & 0.43916e-01,0.40995e-01,0.40051e-01,0.37975e-01,0.35149e-01, & - & 0.31642e-01,0.27046e-01,0.20453e-01,0.17792e-01 /) - kao(:, 4,13,11) = (/ & - & 0.43441e-01,0.41288e-01,0.40871e-01,0.39278e-01,0.37365e-01, & - & 0.34126e-01,0.29213e-01,0.22513e-01,0.19591e-01 /) - kao(:, 5,13,11) = (/ & - & 0.42963e-01,0.41916e-01,0.41758e-01,0.41144e-01,0.39580e-01, & - & 0.36327e-01,0.31558e-01,0.24885e-01,0.22715e-01 /) - kao(:, 1, 1,12) = (/ & - & 0.52315e-01,0.47505e-01,0.42884e-01,0.38287e-01,0.34721e-01, & - & 0.30888e-01,0.29687e-01,0.33559e-01,0.37791e-01 /) - kao(:, 2, 1,12) = (/ & - & 0.52132e-01,0.47869e-01,0.43358e-01,0.39519e-01,0.36490e-01, & - & 0.33059e-01,0.34560e-01,0.39434e-01,0.44537e-01 /) - kao(:, 3, 1,12) = (/ & - & 0.51859e-01,0.48259e-01,0.44108e-01,0.41053e-01,0.38159e-01, & - & 0.36325e-01,0.40345e-01,0.46345e-01,0.52382e-01 /) - kao(:, 4, 1,12) = (/ & - & 0.51556e-01,0.48650e-01,0.44992e-01,0.42544e-01,0.40704e-01, & - & 0.40160e-01,0.46427e-01,0.53431e-01,0.60544e-01 /) - kao(:, 5, 1,12) = (/ & - & 0.51137e-01,0.48860e-01,0.46168e-01,0.44111e-01,0.43209e-01, & - & 0.44827e-01,0.52800e-01,0.60972e-01,0.69216e-01 /) - kao(:, 1, 2,12) = (/ & - & 0.56434e-01,0.51118e-01,0.46217e-01,0.41561e-01,0.37505e-01, & - & 0.33646e-01,0.30189e-01,0.33085e-01,0.37424e-01 /) - kao(:, 2, 2,12) = (/ & - & 0.56174e-01,0.51590e-01,0.46758e-01,0.42838e-01,0.39459e-01, & - & 0.35755e-01,0.34261e-01,0.38732e-01,0.43938e-01 /) - kao(:, 3, 2,12) = (/ & - & 0.55870e-01,0.52113e-01,0.47459e-01,0.44557e-01,0.41223e-01, & - & 0.38732e-01,0.39807e-01,0.45508e-01,0.51693e-01 /) - kao(:, 4, 2,12) = (/ & - & 0.55457e-01,0.52524e-01,0.48507e-01,0.46112e-01,0.43732e-01, & - & 0.42045e-01,0.45811e-01,0.52732e-01,0.60004e-01 /) - kao(:, 5, 2,12) = (/ & - & 0.54996e-01,0.52680e-01,0.49849e-01,0.47721e-01,0.46514e-01, & - & 0.45961e-01,0.52270e-01,0.60294e-01,0.68714e-01 /) - kao(:, 1, 3,12) = (/ & - & 0.59831e-01,0.53764e-01,0.48883e-01,0.44361e-01,0.39553e-01, & - & 0.35958e-01,0.31293e-01,0.31467e-01,0.35795e-01 /) - kao(:, 2, 3,12) = (/ & - & 0.59532e-01,0.54423e-01,0.49485e-01,0.45554e-01,0.41889e-01, & - & 0.38044e-01,0.34149e-01,0.36846e-01,0.42078e-01 /) - kao(:, 3, 3,12) = (/ & - & 0.59134e-01,0.55152e-01,0.50116e-01,0.47410e-01,0.43907e-01, & - & 0.40732e-01,0.38444e-01,0.43145e-01,0.49218e-01 /) - kao(:, 4, 3,12) = (/ & - & 0.58672e-01,0.55655e-01,0.51271e-01,0.49059e-01,0.46360e-01, & - & 0.44063e-01,0.43633e-01,0.49781e-01,0.56746e-01 /) - kao(:, 5, 3,12) = (/ & - & 0.58134e-01,0.55813e-01,0.52716e-01,0.50709e-01,0.49278e-01, & - & 0.47427e-01,0.49630e-01,0.57031e-01,0.65034e-01 /) - kao(:, 1, 4,12) = (/ & - & 0.62624e-01,0.55864e-01,0.50884e-01,0.46641e-01,0.41202e-01, & - & 0.37808e-01,0.32728e-01,0.29634e-01,0.33571e-01 /) - kao(:, 2, 4,12) = (/ & - & 0.62339e-01,0.56365e-01,0.51618e-01,0.47600e-01,0.43888e-01, & - & 0.40000e-01,0.35145e-01,0.34591e-01,0.39469e-01 /) - kao(:, 3, 4,12) = (/ & - & 0.61969e-01,0.57107e-01,0.52103e-01,0.49599e-01,0.46112e-01, & - & 0.42482e-01,0.38680e-01,0.40578e-01,0.46387e-01 /) - kao(:, 4, 4,12) = (/ & - & 0.61515e-01,0.57939e-01,0.53160e-01,0.51347e-01,0.48544e-01, & - & 0.45843e-01,0.42689e-01,0.46767e-01,0.53378e-01 /) - kao(:, 5, 4,12) = (/ & - & 0.60986e-01,0.58238e-01,0.54658e-01,0.53027e-01,0.51696e-01, & - & 0.49388e-01,0.47217e-01,0.53278e-01,0.60785e-01 /) - kao(:, 1, 5,12) = (/ & - & 0.65795e-01,0.58347e-01,0.52585e-01,0.48437e-01,0.42714e-01, & - & 0.39265e-01,0.34039e-01,0.28235e-01,0.31421e-01 /) - kao(:, 2, 5,12) = (/ & - & 0.65486e-01,0.58633e-01,0.53696e-01,0.49213e-01,0.45420e-01, & - & 0.41668e-01,0.36378e-01,0.32647e-01,0.37055e-01 /) - kao(:, 3, 5,12) = (/ & - & 0.65183e-01,0.59134e-01,0.54134e-01,0.51097e-01,0.47829e-01, & - & 0.44052e-01,0.39727e-01,0.38129e-01,0.43417e-01 /) - kao(:, 4, 5,12) = (/ & - & 0.64717e-01,0.59894e-01,0.54954e-01,0.53041e-01,0.50294e-01, & - & 0.47344e-01,0.43654e-01,0.43889e-01,0.49916e-01 /) - kao(:, 5, 5,12) = (/ & - & 0.64255e-01,0.60489e-01,0.56373e-01,0.54824e-01,0.53472e-01, & - & 0.51112e-01,0.47282e-01,0.50031e-01,0.57102e-01 /) - kao(:, 1, 6,12) = (/ & - & 0.69615e-01,0.61594e-01,0.54882e-01,0.50187e-01,0.44074e-01, & - & 0.39997e-01,0.34871e-01,0.27743e-01,0.29013e-01 /) - kao(:, 2, 6,12) = (/ & - & 0.69442e-01,0.61757e-01,0.55910e-01,0.50997e-01,0.46497e-01, & - & 0.42613e-01,0.37188e-01,0.31216e-01,0.34347e-01 /) - kao(:, 3, 6,12) = (/ & - & 0.69156e-01,0.62106e-01,0.56750e-01,0.52515e-01,0.49101e-01, & - & 0.44986e-01,0.40395e-01,0.35961e-01,0.40369e-01 /) - kao(:, 4, 6,12) = (/ & - & 0.68816e-01,0.62627e-01,0.57231e-01,0.54601e-01,0.51362e-01, & - & 0.48280e-01,0.44442e-01,0.41156e-01,0.46554e-01 /) - kao(:, 5, 6,12) = (/ & - & 0.68355e-01,0.63113e-01,0.58516e-01,0.56347e-01,0.54360e-01, & - & 0.52199e-01,0.48222e-01,0.46871e-01,0.53241e-01 /) - kao(:, 1, 7,12) = (/ & - & 0.74032e-01,0.65393e-01,0.58013e-01,0.51965e-01,0.45915e-01, & - & 0.40526e-01,0.35125e-01,0.27883e-01,0.26586e-01 /) - kao(:, 2, 7,12) = (/ & - & 0.73937e-01,0.65493e-01,0.58738e-01,0.53263e-01,0.47941e-01, & - & 0.43149e-01,0.37585e-01,0.30874e-01,0.31614e-01 /) - kao(:, 3, 7,12) = (/ & - & 0.73662e-01,0.65759e-01,0.59591e-01,0.54630e-01,0.50354e-01, & - & 0.45514e-01,0.40708e-01,0.34889e-01,0.37383e-01 /) - kao(:, 4, 7,12) = (/ & - & 0.73359e-01,0.66187e-01,0.60275e-01,0.56599e-01,0.52392e-01, & - & 0.48574e-01,0.44791e-01,0.39333e-01,0.43356e-01 /) - kao(:, 5, 7,12) = (/ & - & 0.72923e-01,0.66589e-01,0.61432e-01,0.58168e-01,0.55043e-01, & - & 0.52561e-01,0.48755e-01,0.44300e-01,0.49765e-01 /) - kao(:, 1, 8,12) = (/ & - & 0.78458e-01,0.69177e-01,0.61142e-01,0.54247e-01,0.47727e-01, & - & 0.41456e-01,0.34819e-01,0.27717e-01,0.23941e-01 /) - kao(:, 2, 8,12) = (/ & - & 0.78410e-01,0.69294e-01,0.61857e-01,0.55492e-01,0.49764e-01, & - & 0.43844e-01,0.37501e-01,0.30644e-01,0.28737e-01 /) - kao(:, 3, 8,12) = (/ & - & 0.78162e-01,0.69463e-01,0.62578e-01,0.57026e-01,0.52068e-01, & - & 0.46044e-01,0.40472e-01,0.34561e-01,0.34380e-01 /) - kao(:, 4, 8,12) = (/ & - & 0.77871e-01,0.69834e-01,0.63268e-01,0.59074e-01,0.53918e-01, & - & 0.48672e-01,0.44601e-01,0.38671e-01,0.40158e-01 /) - kao(:, 5, 8,12) = (/ & - & 0.77487e-01,0.70209e-01,0.64405e-01,0.60632e-01,0.56120e-01, & - & 0.52504e-01,0.48787e-01,0.42980e-01,0.46410e-01 /) - kao(:, 1, 9,12) = (/ & - & 0.82666e-01,0.72734e-01,0.64105e-01,0.56594e-01,0.49561e-01, & - & 0.42281e-01,0.34472e-01,0.27105e-01,0.21191e-01 /) - kao(:, 2, 9,12) = (/ & - & 0.82602e-01,0.72866e-01,0.64825e-01,0.57780e-01,0.51415e-01, & - & 0.44682e-01,0.37233e-01,0.30003e-01,0.25697e-01 /) - kao(:, 3, 9,12) = (/ & - & 0.82349e-01,0.72898e-01,0.65478e-01,0.59213e-01,0.53844e-01, & - & 0.46925e-01,0.39994e-01,0.33830e-01,0.31116e-01 /) - kao(:, 4, 9,12) = (/ & - & 0.82004e-01,0.73222e-01,0.66214e-01,0.61303e-01,0.55771e-01, & - & 0.49206e-01,0.43963e-01,0.38199e-01,0.36759e-01 /) - kao(:, 5, 9,12) = (/ & - & 0.81608e-01,0.73612e-01,0.67180e-01,0.63056e-01,0.57653e-01, & - & 0.52653e-01,0.48283e-01,0.42441e-01,0.42846e-01 /) - kao(:, 1,10,12) = (/ & - & 0.85880e-01,0.75430e-01,0.66656e-01,0.58773e-01,0.51658e-01, & - & 0.43336e-01,0.34393e-01,0.26157e-01,0.14663e-01 /) - kao(:, 2,10,12) = (/ & - & 0.85756e-01,0.75590e-01,0.67337e-01,0.60049e-01,0.53266e-01, & - & 0.45473e-01,0.37278e-01,0.29125e-01,0.16193e-01 /) - kao(:, 3,10,12) = (/ & - & 0.85530e-01,0.75588e-01,0.67995e-01,0.61462e-01,0.55345e-01, & - & 0.48001e-01,0.39939e-01,0.32883e-01,0.20331e-01 /) - kao(:, 4,10,12) = (/ & - & 0.85095e-01,0.75810e-01,0.68684e-01,0.63320e-01,0.57485e-01, & - & 0.50257e-01,0.43559e-01,0.37443e-01,0.23682e-01 /) - kao(:, 5,10,12) = (/ & - & 0.84667e-01,0.76211e-01,0.69733e-01,0.65095e-01,0.59445e-01, & - & 0.53380e-01,0.47785e-01,0.41863e-01,0.26616e-01 /) - kao(:, 1,11,12) = (/ & - & 0.87471e-01,0.76929e-01,0.68322e-01,0.60781e-01,0.53951e-01, & - & 0.45056e-01,0.35758e-01,0.26371e-01,0.18858e-01 /) - kao(:, 2,11,12) = (/ & - & 0.87208e-01,0.76940e-01,0.68996e-01,0.62212e-01,0.55582e-01, & - & 0.47319e-01,0.38590e-01,0.29478e-01,0.21575e-01 /) - kao(:, 3,11,12) = (/ & - & 0.86835e-01,0.76905e-01,0.69723e-01,0.63816e-01,0.57699e-01, & - & 0.49745e-01,0.41432e-01,0.33605e-01,0.25460e-01 /) - kao(:, 4,11,12) = (/ & - & 0.86430e-01,0.77295e-01,0.70629e-01,0.65834e-01,0.59545e-01, & - & 0.52341e-01,0.45178e-01,0.38243e-01,0.30364e-01 /) - kao(:, 5,11,12) = (/ & - & 0.85874e-01,0.77597e-01,0.72138e-01,0.67497e-01,0.61709e-01, & - & 0.55855e-01,0.49191e-01,0.42789e-01,0.33235e-01 /) - kao(:, 1,12,12) = (/ & - & 0.87248e-01,0.76929e-01,0.68689e-01,0.62001e-01,0.55189e-01, & - & 0.46282e-01,0.37018e-01,0.26535e-01,0.20617e-01 /) - kao(:, 2,12,12) = (/ & - & 0.86938e-01,0.76894e-01,0.69591e-01,0.63473e-01,0.56879e-01, & - & 0.48866e-01,0.39681e-01,0.29869e-01,0.23753e-01 /) - kao(:, 3,12,12) = (/ & - & 0.86505e-01,0.76936e-01,0.70473e-01,0.65213e-01,0.59161e-01, & - & 0.51227e-01,0.42751e-01,0.34068e-01,0.28028e-01 /) - kao(:, 4,12,12) = (/ & - & 0.86014e-01,0.77389e-01,0.71734e-01,0.67391e-01,0.61041e-01, & - & 0.54172e-01,0.46740e-01,0.38524e-01,0.33947e-01 /) - kao(:, 5,12,12) = (/ & - & 0.85424e-01,0.77682e-01,0.73622e-01,0.69056e-01,0.63676e-01, & - & 0.57877e-01,0.50578e-01,0.43087e-01,0.36933e-01 /) - kao(:, 1,13,12) = (/ & - & 0.85419e-01,0.75627e-01,0.68076e-01,0.62306e-01,0.55288e-01, & - & 0.46939e-01,0.37782e-01,0.26869e-01,0.20535e-01 /) - kao(:, 2,13,12) = (/ & - & 0.84985e-01,0.75524e-01,0.69213e-01,0.63729e-01,0.57271e-01, & - & 0.49714e-01,0.40473e-01,0.30181e-01,0.22959e-01 /) - kao(:, 3,13,12) = (/ & - & 0.84529e-01,0.75748e-01,0.70315e-01,0.65749e-01,0.59660e-01, & - & 0.52260e-01,0.43766e-01,0.34359e-01,0.28707e-01 /) - kao(:, 4,13,12) = (/ & - & 0.84038e-01,0.76252e-01,0.71947e-01,0.67890e-01,0.61874e-01, & - & 0.55511e-01,0.47935e-01,0.38594e-01,0.34330e-01 /) - kao(:, 5,13,12) = (/ & - & 0.83450e-01,0.76542e-01,0.73924e-01,0.69752e-01,0.64960e-01, & - & 0.59356e-01,0.51789e-01,0.43079e-01,0.38051e-01 /) - kao(:, 1, 1,13) = (/ & - & 0.68561e-01,0.61393e-01,0.55377e-01,0.48367e-01,0.42682e-01, & - & 0.39908e-01,0.45275e-01,0.51909e-01,0.58629e-01 /) - kao(:, 2, 1,13) = (/ & - & 0.68429e-01,0.62258e-01,0.56444e-01,0.49529e-01,0.45167e-01, & - & 0.45643e-01,0.53469e-01,0.61626e-01,0.69870e-01 /) - kao(:, 3, 1,13) = (/ & - & 0.68224e-01,0.62810e-01,0.57169e-01,0.51186e-01,0.48224e-01, & - & 0.52899e-01,0.62764e-01,0.72521e-01,0.82353e-01 /) - kao(:, 4, 1,13) = (/ & - & 0.67917e-01,0.63314e-01,0.58187e-01,0.53334e-01,0.52038e-01, & - & 0.61434e-01,0.73273e-01,0.84850e-01,0.96479e-01 /) - kao(:, 5, 1,13) = (/ & - & 0.67553e-01,0.63903e-01,0.59193e-01,0.55737e-01,0.58351e-01, & - & 0.71682e-01,0.85665e-01,0.99285e-01,0.11295e+00 /) - kao(:, 1, 2,13) = (/ & - & 0.77509e-01,0.69079e-01,0.62486e-01,0.54626e-01,0.48075e-01, & - & 0.42537e-01,0.44950e-01,0.51477e-01,0.58558e-01 /) - kao(:, 2, 2,13) = (/ & - & 0.77430e-01,0.69950e-01,0.63742e-01,0.55764e-01,0.50627e-01, & - & 0.46853e-01,0.52532e-01,0.60374e-01,0.68733e-01 /) - kao(:, 3, 2,13) = (/ & - & 0.77189e-01,0.70882e-01,0.64573e-01,0.57536e-01,0.53311e-01, & - & 0.52406e-01,0.61244e-01,0.70634e-01,0.80523e-01 /) - kao(:, 4, 2,13) = (/ & - & 0.76847e-01,0.71588e-01,0.65635e-01,0.59928e-01,0.56064e-01, & - & 0.60283e-01,0.71500e-01,0.82577e-01,0.94220e-01 /) - kao(:, 5, 2,13) = (/ & - & 0.76386e-01,0.72289e-01,0.66796e-01,0.62420e-01,0.60016e-01, & - & 0.69350e-01,0.82634e-01,0.95798e-01,0.10925e+00 /) - kao(:, 1, 3,13) = (/ & - & 0.86533e-01,0.76872e-01,0.69252e-01,0.60999e-01,0.53444e-01, & - & 0.46117e-01,0.43982e-01,0.49772e-01,0.56991e-01 /) - kao(:, 2, 3,13) = (/ & - & 0.86412e-01,0.77388e-01,0.71047e-01,0.62031e-01,0.55847e-01, & - & 0.49560e-01,0.50601e-01,0.57831e-01,0.66136e-01 /) - kao(:, 3, 3,13) = (/ & - & 0.86175e-01,0.78253e-01,0.72126e-01,0.63678e-01,0.58875e-01, & - & 0.53556e-01,0.58645e-01,0.67397e-01,0.77181e-01 /) - kao(:, 4, 3,13) = (/ & - & 0.85802e-01,0.79483e-01,0.72991e-01,0.66186e-01,0.61530e-01, & - & 0.59229e-01,0.68328e-01,0.78749e-01,0.90335e-01 /) - kao(:, 5, 3,13) = (/ & - & 0.85328e-01,0.80671e-01,0.74346e-01,0.68871e-01,0.64555e-01, & - & 0.67267e-01,0.79478e-01,0.91684e-01,0.10533e+00 /) - kao(:, 1, 4,13) = (/ & - & 0.95394e-01,0.84557e-01,0.75442e-01,0.67038e-01,0.59073e-01, & - & 0.49886e-01,0.44642e-01,0.48508e-01,0.55658e-01 /) - kao(:, 2, 4,13) = (/ & - & 0.95223e-01,0.84873e-01,0.77588e-01,0.68316e-01,0.60993e-01, & - & 0.53907e-01,0.49824e-01,0.55820e-01,0.64074e-01 /) - kao(:, 3, 4,13) = (/ & - & 0.94965e-01,0.85575e-01,0.79290e-01,0.69694e-01,0.64420e-01, & - & 0.57295e-01,0.56440e-01,0.64306e-01,0.73964e-01 /) - kao(:, 4, 4,13) = (/ & - & 0.94509e-01,0.86370e-01,0.80294e-01,0.72257e-01,0.67415e-01, & - & 0.61388e-01,0.65357e-01,0.74991e-01,0.86332e-01 /) - kao(:, 5, 4,13) = (/ & - & 0.94009e-01,0.87806e-01,0.81595e-01,0.75171e-01,0.70245e-01, & - & 0.67536e-01,0.76274e-01,0.87845e-01,0.10132e+00 /) - kao(:, 1, 5,13) = (/ & - & 0.10343e+00,0.91525e-01,0.80861e-01,0.72378e-01,0.64406e-01, & - & 0.53983e-01,0.47036e-01,0.47125e-01,0.54095e-01 /) - kao(:, 2, 5,13) = (/ & - & 0.10334e+00,0.91907e-01,0.82762e-01,0.74349e-01,0.66049e-01, & - & 0.58213e-01,0.51290e-01,0.53990e-01,0.61913e-01 /) - kao(:, 3, 5,13) = (/ & - & 0.10297e+00,0.92357e-01,0.85393e-01,0.75564e-01,0.69527e-01, & - & 0.62165e-01,0.56265e-01,0.62011e-01,0.71236e-01 /) - kao(:, 4, 5,13) = (/ & - & 0.10256e+00,0.93114e-01,0.87093e-01,0.77935e-01,0.73042e-01, & - & 0.65986e-01,0.63498e-01,0.72109e-01,0.83127e-01 /) - kao(:, 5, 5,13) = (/ & - & 0.10189e+00,0.94299e-01,0.88282e-01,0.81218e-01,0.76035e-01, & - & 0.70876e-01,0.73640e-01,0.84406e-01,0.97393e-01 /) - kao(:, 1, 6,13) = (/ & - & 0.11045e+00,0.97454e-01,0.85408e-01,0.76244e-01,0.68972e-01, & - & 0.58251e-01,0.49930e-01,0.45374e-01,0.51875e-01 /) - kao(:, 2, 6,13) = (/ & - & 0.11019e+00,0.97819e-01,0.87148e-01,0.79069e-01,0.71021e-01, & - & 0.62071e-01,0.54179e-01,0.52124e-01,0.59618e-01 /) - kao(:, 3, 6,13) = (/ & - & 0.10981e+00,0.98088e-01,0.89384e-01,0.81156e-01,0.73973e-01, & - & 0.66762e-01,0.58141e-01,0.59499e-01,0.68391e-01 /) - kao(:, 4, 6,13) = (/ & - & 0.10923e+00,0.98741e-01,0.91856e-01,0.83093e-01,0.78121e-01, & - & 0.70717e-01,0.63590e-01,0.68985e-01,0.79490e-01 /) - kao(:, 5, 6,13) = (/ & - & 0.10855e+00,0.99728e-01,0.93768e-01,0.86485e-01,0.81499e-01, & - & 0.75384e-01,0.71738e-01,0.80634e-01,0.92951e-01 /) - kao(:, 1, 7,13) = (/ & - & 0.11652e+00,0.10245e+00,0.89345e-01,0.79831e-01,0.71546e-01, & - & 0.62110e-01,0.52889e-01,0.43937e-01,0.49094e-01 /) - kao(:, 2, 7,13) = (/ & - & 0.11624e+00,0.10291e+00,0.90769e-01,0.82143e-01,0.74705e-01, & - & 0.65752e-01,0.57383e-01,0.50125e-01,0.56751e-01 /) - kao(:, 3, 7,13) = (/ & - & 0.11594e+00,0.10317e+00,0.92734e-01,0.84722e-01,0.77935e-01, & - & 0.70772e-01,0.61416e-01,0.57153e-01,0.65344e-01 /) - kao(:, 4, 7,13) = (/ & - & 0.11535e+00,0.10356e+00,0.95024e-01,0.87242e-01,0.82357e-01, & - & 0.75212e-01,0.65866e-01,0.66110e-01,0.76048e-01 /) - kao(:, 5, 7,13) = (/ & - & 0.11474e+00,0.10447e+00,0.97059e-01,0.90869e-01,0.86343e-01, & - & 0.79806e-01,0.72467e-01,0.77014e-01,0.88751e-01 /) - kao(:, 1, 8,13) = (/ & - & 0.12265e+00,0.10756e+00,0.93593e-01,0.82964e-01,0.73576e-01, & - & 0.64374e-01,0.55605e-01,0.43559e-01,0.46060e-01 /) - kao(:, 2, 8,13) = (/ & - & 0.12249e+00,0.10812e+00,0.94575e-01,0.84973e-01,0.76683e-01, & - & 0.68823e-01,0.60052e-01,0.49117e-01,0.53798e-01 /) - kao(:, 3, 8,13) = (/ & - & 0.12216e+00,0.10834e+00,0.96338e-01,0.87360e-01,0.80349e-01, & - & 0.74206e-01,0.64654e-01,0.55074e-01,0.62031e-01 /) - kao(:, 4, 8,13) = (/ & - & 0.12168e+00,0.10860e+00,0.98251e-01,0.89888e-01,0.85251e-01, & - & 0.79126e-01,0.69120e-01,0.63252e-01,0.72334e-01 /) - kao(:, 5, 8,13) = (/ & - & 0.12099e+00,0.10931e+00,0.10017e+00,0.93685e-01,0.90048e-01, & - & 0.83711e-01,0.75096e-01,0.73779e-01,0.84712e-01 /) - kao(:, 1, 9,13) = (/ & - & 0.12914e+00,0.11313e+00,0.98462e-01,0.86441e-01,0.75875e-01, & - & 0.66332e-01,0.57013e-01,0.43839e-01,0.42411e-01 /) - kao(:, 2, 9,13) = (/ & - & 0.12911e+00,0.11365e+00,0.99113e-01,0.88386e-01,0.78651e-01, & - & 0.70676e-01,0.61767e-01,0.49076e-01,0.50412e-01 /) - kao(:, 3, 9,13) = (/ & - & 0.12886e+00,0.11401e+00,0.10056e+00,0.90400e-01,0.82030e-01, & - & 0.75969e-01,0.67212e-01,0.54346e-01,0.58598e-01 /) - kao(:, 4, 9,13) = (/ & - & 0.12844e+00,0.11410e+00,0.10221e+00,0.92662e-01,0.86791e-01, & - & 0.81685e-01,0.71813e-01,0.61251e-01,0.68599e-01 /) - kao(:, 5, 9,13) = (/ & - & 0.12781e+00,0.11455e+00,0.10390e+00,0.96184e-01,0.92217e-01, & - & 0.86557e-01,0.77640e-01,0.70636e-01,0.80447e-01 /) - kao(:, 1,10,13) = (/ & - & 0.13661e+00,0.11963e+00,0.10401e+00,0.90612e-01,0.78552e-01, & - & 0.68665e-01,0.58042e-01,0.44182e-01,0.20623e-01 /) - kao(:, 2,10,13) = (/ & - & 0.13663e+00,0.12000e+00,0.10449e+00,0.92427e-01,0.81459e-01, & - & 0.72606e-01,0.62588e-01,0.49634e-01,0.27517e-01 /) - kao(:, 3,10,13) = (/ & - & 0.13648e+00,0.12048e+00,0.10572e+00,0.94344e-01,0.84635e-01, & - & 0.77264e-01,0.68466e-01,0.54964e-01,0.37460e-01 /) - kao(:, 4,10,13) = (/ & - & 0.13615e+00,0.12055e+00,0.10724e+00,0.96538e-01,0.88921e-01, & - & 0.82919e-01,0.73837e-01,0.61121e-01,0.51408e-01 /) - kao(:, 5,10,13) = (/ & - & 0.13560e+00,0.12083e+00,0.10867e+00,0.99719e-01,0.94157e-01, & - & 0.88097e-01,0.79982e-01,0.69630e-01,0.68524e-01 /) - kao(:, 1,11,13) = (/ & - & 0.14486e+00,0.12685e+00,0.11053e+00,0.96215e-01,0.83198e-01, & - & 0.72790e-01,0.60483e-01,0.46368e-01,0.23123e-01 /) - kao(:, 2,11,13) = (/ & - & 0.14497e+00,0.12740e+00,0.11115e+00,0.98058e-01,0.86138e-01, & - & 0.76317e-01,0.65283e-01,0.52226e-01,0.29160e-01 /) - kao(:, 3,11,13) = (/ & - & 0.14473e+00,0.12775e+00,0.11243e+00,0.99891e-01,0.89493e-01, & - & 0.80996e-01,0.71303e-01,0.57950e-01,0.32977e-01 /) - kao(:, 4,11,13) = (/ & - & 0.14430e+00,0.12774e+00,0.11386e+00,0.10223e+00,0.94098e-01, & - & 0.86252e-01,0.77087e-01,0.64785e-01,0.38714e-01 /) - kao(:, 5,11,13) = (/ & - & 0.14365e+00,0.12806e+00,0.11504e+00,0.10578e+00,0.98766e-01, & - & 0.91283e-01,0.84242e-01,0.73581e-01,0.47497e-01 /) - kao(:, 1,12,13) = (/ & - & 0.15269e+00,0.13372e+00,0.11691e+00,0.10167e+00,0.88459e-01, & - & 0.76634e-01,0.62620e-01,0.48153e-01,0.27858e-01 /) - kao(:, 2,12,13) = (/ & - & 0.15257e+00,0.13415e+00,0.11750e+00,0.10380e+00,0.91589e-01, & - & 0.79898e-01,0.67862e-01,0.54271e-01,0.35587e-01 /) - kao(:, 3,12,13) = (/ & - & 0.15233e+00,0.13449e+00,0.11899e+00,0.10589e+00,0.94966e-01, & - & 0.84666e-01,0.73653e-01,0.60551e-01,0.39809e-01 /) - kao(:, 4,12,13) = (/ & - & 0.15175e+00,0.13439e+00,0.12031e+00,0.10854e+00,0.99506e-01, & - & 0.89389e-01,0.79517e-01,0.68401e-01,0.45578e-01 /) - kao(:, 5,12,13) = (/ & - & 0.15105e+00,0.13484e+00,0.12149e+00,0.11242e+00,0.10353e+00, & - & 0.94548e-01,0.87485e-01,0.77323e-01,0.55990e-01 /) - kao(:, 1,13,13) = (/ & - & 0.15929e+00,0.13953e+00,0.12252e+00,0.10682e+00,0.93710e-01, & - & 0.80318e-01,0.64679e-01,0.49483e-01,0.31231e-01 /) - kao(:, 2,13,13) = (/ & - & 0.15914e+00,0.14001e+00,0.12322e+00,0.10931e+00,0.96798e-01, & - & 0.83533e-01,0.70039e-01,0.55928e-01,0.39440e-01 /) - kao(:, 3,13,13) = (/ & - & 0.15875e+00,0.14019e+00,0.12484e+00,0.11161e+00,0.10034e+00, & - & 0.88309e-01,0.75681e-01,0.62757e-01,0.43280e-01 /) - kao(:, 4,13,13) = (/ & - & 0.15815e+00,0.14019e+00,0.12619e+00,0.11467e+00,0.10492e+00, & - & 0.92849e-01,0.81796e-01,0.71221e-01,0.50343e-01 /) - kao(:, 5,13,13) = (/ & - & 0.15737e+00,0.14077e+00,0.12756e+00,0.11888e+00,0.10868e+00, & - & 0.98192e-01,0.90106e-01,0.80417e-01,0.60332e-01 /) - kao(:, 1, 1,14) = (/ & - & 0.83965e-01,0.74725e-01,0.67262e-01,0.61439e-01,0.63569e-01, & - & 0.76568e-01,0.91505e-01,0.10604e+00,0.12066e+00 /) - kao(:, 2, 1,14) = (/ & - & 0.84124e-01,0.75639e-01,0.69121e-01,0.66761e-01,0.75177e-01, & - & 0.93190e-01,0.11140e+00,0.12912e+00,0.14697e+00 /) - kao(:, 3, 1,14) = (/ & - & 0.84208e-01,0.76821e-01,0.71401e-01,0.74638e-01,0.90938e-01, & - & 0.11330e+00,0.13555e+00,0.15732e+00,0.17919e+00 /) - kao(:, 4, 1,14) = (/ & - & 0.84082e-01,0.77722e-01,0.74753e-01,0.85505e-01,0.11037e+00, & - & 0.13754e+00,0.16460e+00,0.19114e+00,0.21779e+00 /) - kao(:, 5, 1,14) = (/ & - & 0.83810e-01,0.78431e-01,0.79767e-01,0.99722e-01,0.13195e+00, & - & 0.16448e+00,0.19691e+00,0.22867e+00,0.26057e+00 /) - kao(:, 1, 2,14) = (/ & - & 0.98728e-01,0.87584e-01,0.78635e-01,0.69559e-01,0.65625e-01, & - & 0.74022e-01,0.88098e-01,0.10177e+00,0.11620e+00 /) - kao(:, 2, 2,14) = (/ & - & 0.98895e-01,0.88195e-01,0.80583e-01,0.73010e-01,0.73981e-01, & - & 0.89007e-01,0.10638e+00,0.12319e+00,0.14079e+00 /) - kao(:, 3, 2,14) = (/ & - & 0.98911e-01,0.89265e-01,0.82581e-01,0.78421e-01,0.87111e-01, & - & 0.10783e+00,0.12893e+00,0.14951e+00,0.17084e+00 /) - kao(:, 4, 2,14) = (/ & - & 0.98795e-01,0.90737e-01,0.84451e-01,0.86623e-01,0.10466e+00, & - & 0.13034e+00,0.15592e+00,0.18094e+00,0.20669e+00 /) - kao(:, 5, 2,14) = (/ & - & 0.98517e-01,0.92027e-01,0.87783e-01,0.98306e-01,0.12592e+00, & - & 0.15706e+00,0.18794e+00,0.21816e+00,0.24934e+00 /) - kao(:, 1, 3,14) = (/ & - & 0.11536e+00,0.10204e+00,0.91076e-01,0.79879e-01,0.70411e-01, & - & 0.71590e-01,0.83610e-01,0.96241e-01,0.11049e+00 /) - kao(:, 2, 3,14) = (/ & - & 0.11565e+00,0.10277e+00,0.93049e-01,0.82303e-01,0.75267e-01, & - & 0.83499e-01,0.99323e-01,0.11472e+00,0.13181e+00 /) - kao(:, 3, 3,14) = (/ & - & 0.11566e+00,0.10353e+00,0.95697e-01,0.85227e-01,0.84157e-01, & - & 0.99917e-01,0.11933e+00,0.13815e+00,0.15865e+00 /) - kao(:, 4, 3,14) = (/ & - & 0.11554e+00,0.10447e+00,0.97554e-01,0.90504e-01,0.97960e-01, & - & 0.12029e+00,0.14386e+00,0.16671e+00,0.19135e+00 /) - kao(:, 5, 3,14) = (/ & - & 0.11515e+00,0.10586e+00,0.99141e-01,0.99110e-01,0.11626e+00, & - & 0.14432e+00,0.17265e+00,0.20040e+00,0.22976e+00 /) - kao(:, 1, 4,14) = (/ & - & 0.13374e+00,0.11777e+00,0.10356e+00,0.90948e-01,0.79121e-01, & - & 0.73845e-01,0.80790e-01,0.92777e-01,0.10713e+00 /) - kao(:, 2, 4,14) = (/ & - & 0.13413e+00,0.11892e+00,0.10607e+00,0.94460e-01,0.81628e-01, & - & 0.80960e-01,0.93972e-01,0.10817e+00,0.12489e+00 /) - kao(:, 3, 4,14) = (/ & - & 0.13429e+00,0.11957e+00,0.10936e+00,0.96737e-01,0.86452e-01, & - & 0.93977e-01,0.11135e+00,0.12854e+00,0.14815e+00 /) - kao(:, 4, 4,14) = (/ & - & 0.13415e+00,0.12054e+00,0.11264e+00,0.99496e-01,0.96100e-01, & - & 0.11145e+00,0.13299e+00,0.15385e+00,0.17718e+00 /) - kao(:, 5, 4,14) = (/ & - & 0.13374e+00,0.12142e+00,0.11440e+00,0.10500e+00,0.11046e+00, & - & 0.13295e+00,0.15886e+00,0.18424e+00,0.21188e+00 /) - kao(:, 1, 5,14) = (/ & - & 0.15386e+00,0.13491e+00,0.11798e+00,0.10225e+00,0.89703e-01, & - & 0.79220e-01,0.79340e-01,0.90595e-01,0.10482e+00 /) - kao(:, 2, 5,14) = (/ & - & 0.15427e+00,0.13635e+00,0.12030e+00,0.10668e+00,0.92323e-01, & - & 0.84157e-01,0.91777e-01,0.10537e+00,0.12216e+00 /) - kao(:, 3, 5,14) = (/ & - & 0.15452e+00,0.13729e+00,0.12299e+00,0.11079e+00,0.94730e-01, & - & 0.92840e-01,0.10677e+00,0.12287e+00,0.14246e+00 /) - kao(:, 4, 5,14) = (/ & - & 0.15437e+00,0.13801e+00,0.12683e+00,0.11313e+00,0.10059e+00, & - & 0.10648e+00,0.12562e+00,0.14488e+00,0.16770e+00 /) - kao(:, 5, 5,14) = (/ & - & 0.15403e+00,0.13896e+00,0.13053e+00,0.11647e+00,0.11129e+00, & - & 0.12495e+00,0.14877e+00,0.17193e+00,0.19866e+00 /) - kao(:, 1, 6,14) = (/ & - & 0.17516e+00,0.15332e+00,0.13386e+00,0.11461e+00,0.98998e-01, & - & 0.86199e-01,0.78839e-01,0.88239e-01,0.10212e+00 /) - kao(:, 2, 6,14) = (/ & - & 0.17578e+00,0.15465e+00,0.13554e+00,0.11810e+00,0.10372e+00, & - & 0.90966e-01,0.90397e-01,0.10318e+00,0.11979e+00 /) - kao(:, 3, 6,14) = (/ & - & 0.17603e+00,0.15606e+00,0.13830e+00,0.12297e+00,0.10694e+00, & - & 0.96886e-01,0.10455e+00,0.12004e+00,0.13936e+00 /) - kao(:, 4, 6,14) = (/ & - & 0.17594e+00,0.15671e+00,0.14175e+00,0.12765e+00,0.11049e+00, & - & 0.10701e+00,0.12142e+00,0.13971e+00,0.16228e+00 /) - kao(:, 5, 6,14) = (/ & - & 0.17559e+00,0.15762e+00,0.14567e+00,0.13124e+00,0.11784e+00, & - & 0.12121e+00,0.14182e+00,0.16360e+00,0.18966e+00 /) - kao(:, 1, 7,14) = (/ & - & 0.19714e+00,0.17254e+00,0.15016e+00,0.12718e+00,0.10949e+00, & - & 0.93814e-01,0.79465e-01,0.85103e-01,0.98359e-01 /) - kao(:, 2, 7,14) = (/ & - & 0.19796e+00,0.17362e+00,0.15183e+00,0.13102e+00,0.11370e+00, & - & 0.99479e-01,0.90483e-01,0.10125e+00,0.11726e+00 /) - kao(:, 3, 7,14) = (/ & - & 0.19829e+00,0.17522e+00,0.15424e+00,0.13545e+00,0.11863e+00, & - & 0.10457e+00,0.10363e+00,0.11810e+00,0.13724e+00 /) - kao(:, 4, 7,14) = (/ & - & 0.19826e+00,0.17625e+00,0.15748e+00,0.14049e+00,0.12307e+00, & - & 0.11254e+00,0.11942e+00,0.13698e+00,0.15920e+00 /) - kao(:, 5, 7,14) = (/ & - & 0.19780e+00,0.17685e+00,0.16171e+00,0.14510e+00,0.12933e+00, & - & 0.12368e+00,0.13790e+00,0.15875e+00,0.18443e+00 /) - kao(:, 1, 8,14) = (/ & - & 0.21950e+00,0.19210e+00,0.16641e+00,0.14074e+00,0.12030e+00, & - & 0.10245e+00,0.82539e-01,0.82181e-01,0.95126e-01 /) - kao(:, 2, 8,14) = (/ & - & 0.22029e+00,0.19287e+00,0.16845e+00,0.14392e+00,0.12476e+00, & - & 0.10750e+00,0.92052e-01,0.97622e-01,0.11306e+00 /) - kao(:, 3, 8,14) = (/ & - & 0.22070e+00,0.19423e+00,0.17032e+00,0.14847e+00,0.12971e+00, & - & 0.11297e+00,0.10375e+00,0.11522e+00,0.13338e+00 /) - kao(:, 4, 8,14) = (/ & - & 0.22058e+00,0.19569e+00,0.17355e+00,0.15354e+00,0.13473e+00, & - & 0.12044e+00,0.11859e+00,0.13469e+00,0.15609e+00 /) - kao(:, 5, 8,14) = (/ & - & 0.22021e+00,0.19640e+00,0.17762e+00,0.15857e+00,0.14102e+00, & - & 0.13035e+00,0.13566e+00,0.15573e+00,0.18054e+00 /) - kao(:, 1, 9,14) = (/ & - & 0.24109e+00,0.21099e+00,0.18179e+00,0.15454e+00,0.13112e+00, & - & 0.11092e+00,0.89296e-01,0.80506e-01,0.93157e-01 /) - kao(:, 2, 9,14) = (/ & - & 0.24188e+00,0.21170e+00,0.18440e+00,0.15693e+00,0.13589e+00, & - & 0.11596e+00,0.96808e-01,0.94330e-01,0.10941e+00 /) - kao(:, 3, 9,14) = (/ & - & 0.24228e+00,0.21270e+00,0.18618e+00,0.16137e+00,0.14099e+00, & - & 0.12182e+00,0.10601e+00,0.11139e+00,0.12901e+00 /) - kao(:, 4, 9,14) = (/ & - & 0.24222e+00,0.21416e+00,0.18881e+00,0.16653e+00,0.14643e+00, & - & 0.12886e+00,0.11898e+00,0.13037e+00,0.15086e+00 /) - kao(:, 5, 9,14) = (/ & - & 0.24175e+00,0.21527e+00,0.19303e+00,0.17188e+00,0.15251e+00, & - & 0.13886e+00,0.13479e+00,0.15182e+00,0.17551e+00 /) - kao(:, 1,10,14) = (/ & - & 0.26096e+00,0.22837e+00,0.19625e+00,0.16743e+00,0.14218e+00, & - & 0.11905e+00,0.97365e-01,0.81466e-01,0.86743e-01 /) - kao(:, 2,10,14) = (/ & - & 0.26197e+00,0.22928e+00,0.19902e+00,0.16970e+00,0.14641e+00, & - & 0.12483e+00,0.10472e+00,0.93843e-01,0.10806e+00 /) - kao(:, 3,10,14) = (/ & - & 0.26221e+00,0.22989e+00,0.20102e+00,0.17345e+00,0.15221e+00, & - & 0.13116e+00,0.11273e+00,0.10943e+00,0.12658e+00 /) - kao(:, 4,10,14) = (/ & - & 0.26216e+00,0.23120e+00,0.20343e+00,0.17903e+00,0.15795e+00, & - & 0.13876e+00,0.12342e+00,0.12756e+00,0.14743e+00 /) - kao(:, 5,10,14) = (/ & - & 0.26155e+00,0.23254e+00,0.20744e+00,0.18479e+00,0.16453e+00, & - & 0.14894e+00,0.13716e+00,0.14827e+00,0.17117e+00 /) - kao(:, 1,11,14) = (/ & - & 0.28000e+00,0.24504e+00,0.21069e+00,0.18024e+00,0.15374e+00, & - & 0.12937e+00,0.10819e+00,0.88668e-01,0.55926e-01 /) - kao(:, 2,11,14) = (/ & - & 0.28047e+00,0.24546e+00,0.21318e+00,0.18272e+00,0.15865e+00, & - & 0.13663e+00,0.11594e+00,0.10024e+00,0.74129e-01 /) - kao(:, 3,11,14) = (/ & - & 0.28078e+00,0.24627e+00,0.21537e+00,0.18699e+00,0.16514e+00, & - & 0.14391e+00,0.12463e+00,0.11566e+00,0.10008e+00 /) - kao(:, 4,11,14) = (/ & - & 0.28041e+00,0.24739e+00,0.21799e+00,0.19316e+00,0.17153e+00, & - & 0.15296e+00,0.13573e+00,0.13384e+00,0.12903e+00 /) - kao(:, 5,11,14) = (/ & - & 0.27974e+00,0.24878e+00,0.22235e+00,0.19924e+00,0.17976e+00, & - & 0.16447e+00,0.14857e+00,0.15437e+00,0.16255e+00 /) - kao(:, 1,12,14) = (/ & - & 0.29848e+00,0.26121e+00,0.22470e+00,0.19300e+00,0.16476e+00, & - & 0.13979e+00,0.11858e+00,0.95361e-01,0.54706e-01 /) - kao(:, 2,12,14) = (/ & - & 0.29901e+00,0.26167e+00,0.22733e+00,0.19555e+00,0.17000e+00, & - & 0.14834e+00,0.12686e+00,0.10640e+00,0.56924e-01 /) - kao(:, 3,12,14) = (/ & - & 0.29886e+00,0.26222e+00,0.22932e+00,0.20008e+00,0.17736e+00, & - & 0.15653e+00,0.13669e+00,0.12173e+00,0.76097e-01 /) - kao(:, 4,12,14) = (/ & - & 0.29840e+00,0.26333e+00,0.23210e+00,0.20641e+00,0.18472e+00, & - & 0.16716e+00,0.14883e+00,0.13980e+00,0.10268e+00 /) - kao(:, 5,12,14) = (/ & - & 0.29738e+00,0.26451e+00,0.23656e+00,0.21275e+00,0.19460e+00, & - & 0.18005e+00,0.16102e+00,0.16046e+00,0.13219e+00 /) - kao(:, 1,13,14) = (/ & - & 0.31629e+00,0.27681e+00,0.23838e+00,0.20550e+00,0.17561e+00, & - & 0.15005e+00,0.12855e+00,0.10141e+00,0.58394e-01 /) - kao(:, 2,13,14) = (/ & - & 0.31664e+00,0.27713e+00,0.24100e+00,0.20827e+00,0.18155e+00, & - & 0.15952e+00,0.13765e+00,0.11247e+00,0.60995e-01 /) - kao(:, 3,13,14) = (/ & - & 0.31646e+00,0.27774e+00,0.24298e+00,0.21292e+00,0.18963e+00, & - & 0.16861e+00,0.14853e+00,0.12785e+00,0.75808e-01 /) - kao(:, 4,13,14) = (/ & - & 0.31577e+00,0.27872e+00,0.24590e+00,0.21953e+00,0.19753e+00, & - & 0.18064e+00,0.16179e+00,0.14607e+00,0.10217e+00 /) - kao(:, 5,13,14) = (/ & - & 0.31458e+00,0.27978e+00,0.25030e+00,0.22598e+00,0.20858e+00, & - & 0.19488e+00,0.17415e+00,0.16696e+00,0.13138e+00 /) - kao(:, 1, 1,15) = (/ & - & 0.94898e-01,0.85055e-01,0.10490e+00,0.15201e+00,0.20225e+00, & - & 0.25227e+00,0.30184e+00,0.34935e+00,0.39726e+00 /) - kao(:, 2, 1,15) = (/ & - & 0.95143e-01,0.87211e-01,0.12685e+00,0.18956e+00,0.25226e+00, & - & 0.31465e+00,0.37635e+00,0.43547e+00,0.49508e+00 /) - kao(:, 3, 1,15) = (/ & - & 0.95189e-01,0.92182e-01,0.15432e+00,0.23093e+00,0.30732e+00, & - & 0.38333e+00,0.45850e+00,0.53039e+00,0.60271e+00 /) - kao(:, 4, 1,15) = (/ & - & 0.95231e-01,0.10069e+00,0.18420e+00,0.27567e+00,0.36689e+00, & - & 0.45778e+00,0.54750e+00,0.63309e+00,0.71941e+00 /) - kao(:, 5, 1,15) = (/ & - & 0.95218e-01,0.11224e+00,0.21607e+00,0.32340e+00,0.43052e+00, & - & 0.53710e+00,0.64228e+00,0.74267e+00,0.84389e+00 /) - kao(:, 1, 2,15) = (/ & - & 0.11396e+00,0.10141e+00,0.10674e+00,0.14459e+00,0.19233e+00, & - & 0.23999e+00,0.28714e+00,0.33260e+00,0.38043e+00 /) - kao(:, 2, 2,15) = (/ & - & 0.11432e+00,0.10261e+00,0.12520e+00,0.18276e+00,0.24324e+00, & - & 0.30342e+00,0.36297e+00,0.42016e+00,0.48074e+00 /) - kao(:, 3, 2,15) = (/ & - & 0.11451e+00,0.10490e+00,0.15054e+00,0.22514e+00,0.29969e+00, & - & 0.37388e+00,0.44723e+00,0.51774e+00,0.59231e+00 /) - kao(:, 4, 2,15) = (/ & - & 0.11456e+00,0.10971e+00,0.18129e+00,0.27136e+00,0.36114e+00, & - & 0.45069e+00,0.53922e+00,0.62384e+00,0.71399e+00 /) - kao(:, 5, 2,15) = (/ & - & 0.11453e+00,0.11800e+00,0.21439e+00,0.32093e+00,0.42721e+00, & - & 0.53302e+00,0.63780e+00,0.73784e+00,0.84437e+00 /) - kao(:, 1, 3,15) = (/ & - & 0.13655e+00,0.12054e+00,0.11124e+00,0.13153e+00,0.17207e+00, & - & 0.21470e+00,0.25693e+00,0.29779e+00,0.34231e+00 /) - kao(:, 2, 3,15) = (/ & - & 0.13707e+00,0.12216e+00,0.12413e+00,0.16670e+00,0.22186e+00, & - & 0.27683e+00,0.33137e+00,0.38384e+00,0.44145e+00 /) - kao(:, 3, 3,15) = (/ & - & 0.13747e+00,0.12319e+00,0.14360e+00,0.20888e+00,0.27797e+00, & - & 0.34687e+00,0.41517e+00,0.48101e+00,0.55322e+00 /) - kao(:, 4, 3,15) = (/ & - & 0.13768e+00,0.12546e+00,0.17113e+00,0.25534e+00,0.33989e+00, & - & 0.42417e+00,0.50744e+00,0.58796e+00,0.67649e+00 /) - kao(:, 5, 3,15) = (/ & - & 0.13772e+00,0.12983e+00,0.20407e+00,0.30559e+00,0.40688e+00, & - & 0.50779e+00,0.60773e+00,0.70383e+00,0.80998e+00 /) - kao(:, 1, 4,15) = (/ & - & 0.16353e+00,0.14321e+00,0.12667e+00,0.12562e+00,0.14945e+00, & - & 0.18589e+00,0.22262e+00,0.25813e+00,0.29728e+00 /) - kao(:, 2, 4,15) = (/ & - & 0.16418e+00,0.14525e+00,0.13251e+00,0.15131e+00,0.19654e+00, & - & 0.24525e+00,0.29354e+00,0.34060e+00,0.39212e+00 /) - kao(:, 3, 4,15) = (/ & - & 0.16461e+00,0.14670e+00,0.14414e+00,0.18897e+00,0.25116e+00, & - & 0.31348e+00,0.37525e+00,0.43507e+00,0.50121e+00 /) - kao(:, 4, 4,15) = (/ & - & 0.16491e+00,0.14777e+00,0.16361e+00,0.23441e+00,0.31211e+00, & - & 0.38952e+00,0.46648e+00,0.54097e+00,0.62321e+00 /) - kao(:, 5, 4,15) = (/ & - & 0.16511e+00,0.15008e+00,0.19240e+00,0.28461e+00,0.37902e+00, & - & 0.47310e+00,0.56644e+00,0.65651e+00,0.75672e+00 /) - kao(:, 1, 5,15) = (/ & - & 0.19509e+00,0.17082e+00,0.14980e+00,0.13204e+00,0.13395e+00, & - & 0.16269e+00,0.19465e+00,0.22562e+00,0.26041e+00 /) - kao(:, 2, 5,15) = (/ & - & 0.19619e+00,0.17214e+00,0.15205e+00,0.14710e+00,0.17263e+00, & - & 0.21401e+00,0.25633e+00,0.29729e+00,0.34247e+00 /) - kao(:, 3, 5,15) = (/ & - & 0.19681e+00,0.17444e+00,0.15815e+00,0.17421e+00,0.22342e+00, & - & 0.27889e+00,0.33405e+00,0.38778e+00,0.44627e+00 /) - kao(:, 4, 5,15) = (/ & - & 0.19721e+00,0.17581e+00,0.16979e+00,0.21414e+00,0.28278e+00, & - & 0.35302e+00,0.42274e+00,0.49080e+00,0.56501e+00 /) - kao(:, 5, 5,15) = (/ & - & 0.19732e+00,0.17699e+00,0.18956e+00,0.26168e+00,0.34842e+00, & - & 0.43503e+00,0.52113e+00,0.60494e+00,0.69634e+00 /) - kao(:, 1, 6,15) = (/ & - & 0.23167e+00,0.20281e+00,0.17680e+00,0.14997e+00,0.13324e+00, & - & 0.14585e+00,0.17450e+00,0.20194e+00,0.23383e+00 /) - kao(:, 2, 6,15) = (/ & - & 0.23317e+00,0.20416e+00,0.17934e+00,0.15819e+00,0.15707e+00, & - & 0.18679e+00,0.22357e+00,0.25924e+00,0.29921e+00 /) - kao(:, 3, 6,15) = (/ & - & 0.23428e+00,0.20631e+00,0.18228e+00,0.17432e+00,0.19753e+00, & - & 0.24343e+00,0.29156e+00,0.33836e+00,0.38981e+00 /) - kao(:, 4, 6,15) = (/ & - & 0.23494e+00,0.20857e+00,0.18851e+00,0.20211e+00,0.25104e+00, & - & 0.31278e+00,0.37475e+00,0.43549e+00,0.50069e+00 /) - kao(:, 5, 6,15) = (/ & - & 0.23514e+00,0.20988e+00,0.20063e+00,0.24116e+00,0.31413e+00, & - & 0.39227e+00,0.47006e+00,0.54611e+00,0.62816e+00 /) - kao(:, 1, 7,15) = (/ & - & 0.27443e+00,0.24019e+00,0.20758e+00,0.17610e+00,0.14566e+00, & - & 0.14000e+00,0.16506e+00,0.19019e+00,0.22128e+00 /) - kao(:, 2, 7,15) = (/ & - & 0.27620e+00,0.24179e+00,0.21121e+00,0.17965e+00,0.15984e+00, & - & 0.16864e+00,0.20104e+00,0.23213e+00,0.26949e+00 /) - kao(:, 3, 7,15) = (/ & - & 0.27747e+00,0.24292e+00,0.21364e+00,0.18907e+00,0.18625e+00, & - & 0.21432e+00,0.25652e+00,0.29760e+00,0.34338e+00 /) - kao(:, 4, 7,15) = (/ & - & 0.27840e+00,0.24591e+00,0.21750e+00,0.20704e+00,0.22722e+00, & - & 0.27512e+00,0.32963e+00,0.38304e+00,0.44058e+00 /) - kao(:, 5, 7,15) = (/ & - & 0.27872e+00,0.24790e+00,0.22377e+00,0.23568e+00,0.28140e+00, & - & 0.34919e+00,0.41848e+00,0.48672e+00,0.55917e+00 /) - kao(:, 1, 8,15) = (/ & - & 0.32341e+00,0.28305e+00,0.24270e+00,0.20626e+00,0.16778e+00, & - & 0.14644e+00,0.16206e+00,0.18656e+00,0.21702e+00 /) - kao(:, 2, 8,15) = (/ & - & 0.32568e+00,0.28506e+00,0.24756e+00,0.20963e+00,0.17522e+00, & - & 0.16516e+00,0.19045e+00,0.21956e+00,0.25530e+00 /) - kao(:, 3, 8,15) = (/ & - & 0.32734e+00,0.28654e+00,0.25088e+00,0.21479e+00,0.19195e+00, & - & 0.19819e+00,0.23472e+00,0.27107e+00,0.31461e+00 /) - kao(:, 4, 8,15) = (/ & - & 0.32837e+00,0.28793e+00,0.25332e+00,0.22544e+00,0.22100e+00, & - & 0.24722e+00,0.29529e+00,0.34210e+00,0.39526e+00 /) - kao(:, 5, 8,15) = (/ & - & 0.32863e+00,0.29096e+00,0.25794e+00,0.24543e+00,0.26342e+00, & - & 0.31218e+00,0.37382e+00,0.43401e+00,0.50027e+00 /) - kao(:, 1, 9,15) = (/ & - & 0.37878e+00,0.33149e+00,0.28420e+00,0.23973e+00,0.19541e+00, & - & 0.16103e+00,0.16029e+00,0.18365e+00,0.21308e+00 /) - kao(:, 2, 9,15) = (/ & - & 0.38160e+00,0.33397e+00,0.28731e+00,0.24432e+00,0.19953e+00, & - & 0.17386e+00,0.18539e+00,0.21378e+00,0.24833e+00 /) - kao(:, 3, 9,15) = (/ & - & 0.38370e+00,0.33584e+00,0.29267e+00,0.24777e+00,0.20961e+00, & - & 0.19622e+00,0.22137e+00,0.25542e+00,0.29676e+00 /) - kao(:, 4, 9,15) = (/ & - & 0.38483e+00,0.33686e+00,0.29593e+00,0.25505e+00,0.22908e+00, & - & 0.23318e+00,0.27287e+00,0.31549e+00,0.36559e+00 /) - kao(:, 5, 9,15) = (/ & - & 0.38520e+00,0.33870e+00,0.29863e+00,0.26759e+00,0.26094e+00, & - & 0.28563e+00,0.34036e+00,0.39396e+00,0.45596e+00 /) - kao(:, 1,10,15) = (/ & - & 0.44139e+00,0.38627e+00,0.33114e+00,0.27661e+00,0.22671e+00, & - & 0.18314e+00,0.16439e+00,0.18365e+00,0.21302e+00 /) - kao(:, 2,10,15) = (/ & - & 0.44442e+00,0.38894e+00,0.33346e+00,0.28317e+00,0.23077e+00, & - & 0.19173e+00,0.18540e+00,0.21159e+00,0.24601e+00 /) - kao(:, 3,10,15) = (/ & - & 0.44688e+00,0.39111e+00,0.33884e+00,0.28735e+00,0.23759e+00, & - & 0.20864e+00,0.21693e+00,0.24969e+00,0.29058e+00 /) - kao(:, 4,10,15) = (/ & - & 0.44794e+00,0.39207e+00,0.34326e+00,0.29193e+00,0.25105e+00, & - & 0.23562e+00,0.26192e+00,0.30247e+00,0.35138e+00 /) - kao(:, 5,10,15) = (/ & - & 0.44820e+00,0.39253e+00,0.34576e+00,0.30181e+00,0.27401e+00, & - & 0.27758e+00,0.32230e+00,0.37259e+00,0.43225e+00 /) - kao(:, 1,11,15) = (/ & - & 0.51225e+00,0.44827e+00,0.38430e+00,0.32096e+00,0.26380e+00, & - & 0.21204e+00,0.18122e+00,0.19575e+00,0.22762e+00 /) - kao(:, 2,11,15) = (/ & - & 0.51551e+00,0.45114e+00,0.38677e+00,0.32842e+00,0.26803e+00, & - & 0.22031e+00,0.20295e+00,0.22783e+00,0.26563e+00 /) - kao(:, 3,11,15) = (/ & - & 0.51720e+00,0.45265e+00,0.39154e+00,0.33278e+00,0.27451e+00, & - & 0.23732e+00,0.23493e+00,0.26904e+00,0.31377e+00 /) - kao(:, 4,11,15) = (/ & - & 0.51766e+00,0.45307e+00,0.39664e+00,0.33683e+00,0.28805e+00, & - & 0.26198e+00,0.27963e+00,0.32252e+00,0.37505e+00 /) - kao(:, 5,11,15) = (/ & - & 0.51687e+00,0.45253e+00,0.39906e+00,0.34713e+00,0.30874e+00, & - & 0.30122e+00,0.34231e+00,0.39543e+00,0.45934e+00 /) - kao(:, 1,12,15) = (/ & - & 0.58922e+00,0.51562e+00,0.44203e+00,0.36905e+00,0.30406e+00, & - & 0.24465e+00,0.20183e+00,0.21102e+00,0.20343e+00 /) - kao(:, 2,12,15) = (/ & - & 0.59167e+00,0.51780e+00,0.44391e+00,0.37709e+00,0.30888e+00, & - & 0.25236e+00,0.22396e+00,0.24700e+00,0.27515e+00 /) - kao(:, 3,12,15) = (/ & - & 0.59289e+00,0.51887e+00,0.44833e+00,0.38190e+00,0.31478e+00, & - & 0.26966e+00,0.25708e+00,0.29183e+00,0.34036e+00 /) - kao(:, 4,12,15) = (/ & - & 0.59238e+00,0.51846e+00,0.45409e+00,0.38554e+00,0.32896e+00, & - & 0.29236e+00,0.30023e+00,0.34558e+00,0.40217e+00 /) - kao(:, 5,12,15) = (/ & - & 0.59040e+00,0.51681e+00,0.45607e+00,0.39582e+00,0.34740e+00, & - & 0.32863e+00,0.36471e+00,0.42134e+00,0.48947e+00 /) - kao(:, 1,13,15) = (/ & - & 0.67101e+00,0.58718e+00,0.50336e+00,0.42031e+00,0.34716e+00, & - & 0.27980e+00,0.22553e+00,0.22887e+00,0.21243e+00 /) - kao(:, 2,13,15) = (/ & - & 0.67268e+00,0.58864e+00,0.50464e+00,0.42832e+00,0.35207e+00, & - & 0.28740e+00,0.24801e+00,0.26765e+00,0.28879e+00 /) - kao(:, 3,13,15) = (/ & - & 0.67256e+00,0.58859e+00,0.50813e+00,0.43372e+00,0.35764e+00, & - & 0.30459e+00,0.28195e+00,0.31558e+00,0.36763e+00 /) - kao(:, 4,13,15) = (/ & - & 0.67050e+00,0.58682e+00,0.51379e+00,0.43676e+00,0.37243e+00, & - & 0.32590e+00,0.32370e+00,0.37117e+00,0.43203e+00 /) - kao(:, 5,13,15) = (/ & - & 0.66719e+00,0.58400e+00,0.51581e+00,0.44632e+00,0.38956e+00, & - & 0.35928e+00,0.38845e+00,0.44876e+00,0.52114e+00 /) - kao(:, 1, 1,16) = (/ & - & 0.10138e+00,0.11271e+00,0.22512e+00,0.33705e+00,0.44854e+00, & - & 0.55854e+00,0.66519e+00,0.75942e+00,0.85612e+00 /) - kao(:, 2, 1,16) = (/ & - & 0.10145e+00,0.13913e+00,0.27783e+00,0.41606e+00,0.55341e+00, & - & 0.68935e+00,0.82123e+00,0.93793e+00,0.10573e+01 /) - kao(:, 3, 1,16) = (/ & - & 0.10144e+00,0.16758e+00,0.33464e+00,0.50118e+00,0.66683e+00, & - & 0.83041e+00,0.98914e+00,0.11301e+01,0.12744e+01 /) - kao(:, 4, 1,16) = (/ & - & 0.10142e+00,0.19759e+00,0.39475e+00,0.59125e+00,0.78644e+00, & - & 0.97913e+00,0.11666e+01,0.13327e+01,0.15036e+01 /) - kao(:, 5, 1,16) = (/ & - & 0.10117e+00,0.22893e+00,0.45719e+00,0.68491e+00,0.91083e+00, & - & 0.11348e+01,0.13522e+01,0.15448e+01,0.17423e+01 /) - kao(:, 1, 2,16) = (/ & - & 0.12283e+00,0.11939e+00,0.23586e+00,0.35344e+00,0.46995e+00, & - & 0.58562e+00,0.69771e+00,0.79719e+00,0.91456e+00 /) - kao(:, 2, 2,16) = (/ & - & 0.12300e+00,0.14726e+00,0.29424e+00,0.44061e+00,0.58626e+00, & - & 0.73031e+00,0.87019e+00,0.99468e+00,0.11413e+01 /) - kao(:, 3, 2,16) = (/ & - & 0.12308e+00,0.17880e+00,0.35729e+00,0.53471e+00,0.71190e+00, & - & 0.88678e+00,0.10560e+01,0.12083e+01,0.13858e+01 /) - kao(:, 4, 2,16) = (/ & - & 0.12303e+00,0.21231e+00,0.42408e+00,0.63552e+00,0.84482e+00, & - & 0.10530e+01,0.12550e+01,0.14355e+01,0.16461e+01 /) - kao(:, 5, 2,16) = (/ & - & 0.12277e+00,0.24738e+00,0.49418e+00,0.74021e+00,0.98480e+00, & - & 0.12263e+01,0.14622e+01,0.16712e+01,0.19192e+01 /) - kao(:, 1, 3,16) = (/ & - & 0.14866e+00,0.13122e+00,0.23281e+00,0.34894e+00,0.46454e+00, & - & 0.57840e+00,0.68947e+00,0.78868e+00,0.91936e+00 /) - kao(:, 2, 3,16) = (/ & - & 0.14909e+00,0.15020e+00,0.29535e+00,0.44246e+00,0.58879e+00, & - & 0.73298e+00,0.87446e+00,0.10004e+01,0.11652e+01 /) - kao(:, 3, 3,16) = (/ & - & 0.14932e+00,0.18193e+00,0.36339e+00,0.54464e+00,0.72472e+00, & - & 0.90302e+00,0.10769e+01,0.12326e+01,0.14351e+01 /) - kao(:, 4, 3,16) = (/ & - & 0.14936e+00,0.21850e+00,0.43638e+00,0.65369e+00,0.87034e+00, & - & 0.10842e+01,0.12925e+01,0.14807e+01,0.17238e+01 /) - kao(:, 5, 3,16) = (/ & - & 0.14913e+00,0.25689e+00,0.51319e+00,0.76884e+00,0.10226e+01, & - & 0.12750e+01,0.15205e+01,0.17418e+01,0.20260e+01 /) - kao(:, 1, 4,16) = (/ & - & 0.17957e+00,0.15775e+00,0.22276e+00,0.33390e+00,0.44423e+00, & - & 0.55367e+00,0.66019e+00,0.75611e+00,0.88680e+00 /) - kao(:, 2, 4,16) = (/ & - & 0.18040e+00,0.16246e+00,0.28812e+00,0.43146e+00,0.57438e+00, & - & 0.71573e+00,0.85374e+00,0.97839e+00,0.11468e+01 /) - kao(:, 3, 4,16) = (/ & - & 0.18097e+00,0.18562e+00,0.36044e+00,0.53994e+00,0.71844e+00, & - & 0.89550e+00,0.10683e+01,0.12247e+01,0.14347e+01 /) - kao(:, 4, 4,16) = (/ & - & 0.18121e+00,0.21975e+00,0.43861e+00,0.65714e+00,0.87443e+00, & - & 0.10900e+01,0.13008e+01,0.14906e+01,0.17458e+01 /) - kao(:, 5, 4,16) = (/ & - & 0.18106e+00,0.26092e+00,0.52133e+00,0.78101e+00,0.10395e+01, & - & 0.12958e+01,0.15460e+01,0.17735e+01,0.20757e+01 /) - kao(:, 1, 5,16) = (/ & - & 0.21697e+00,0.19036e+00,0.21215e+00,0.31312e+00,0.41669e+00, & - & 0.51939e+00,0.61996e+00,0.71133e+00,0.83486e+00 /) - kao(:, 2, 5,16) = (/ & - & 0.21794e+00,0.19137e+00,0.27611e+00,0.41368e+00,0.55071e+00, & - & 0.68646e+00,0.81902e+00,0.94006e+00,0.11028e+01 /) - kao(:, 3, 5,16) = (/ & - & 0.21886e+00,0.20114e+00,0.35159e+00,0.52668e+00,0.70100e+00, & - & 0.87403e+00,0.10428e+01,0.11973e+01,0.14036e+01 /) - kao(:, 4, 5,16) = (/ & - & 0.21947e+00,0.22776e+00,0.43385e+00,0.64994e+00,0.86545e+00, & - & 0.10790e+01,0.12882e+01,0.14795e+01,0.17328e+01 /) - kao(:, 5, 5,16) = (/ & - & 0.21950e+00,0.26410e+00,0.52266e+00,0.78311e+00,0.10422e+01, & - & 0.12993e+01,0.15508e+01,0.17813e+01,0.20867e+01 /) - kao(:, 1, 6,16) = (/ & - & 0.26192e+00,0.22964e+00,0.21396e+00,0.28442e+00,0.37859e+00, & - & 0.47209e+00,0.56361e+00,0.64772e+00,0.75904e+00 /) - kao(:, 2, 6,16) = (/ & - & 0.26327e+00,0.23094e+00,0.26427e+00,0.38535e+00,0.51302e+00, & - & 0.63961e+00,0.76380e+00,0.87816e+00,0.10282e+01 /) - kao(:, 3, 6,16) = (/ & - & 0.26410e+00,0.23177e+00,0.33446e+00,0.50065e+00,0.66671e+00, & - & 0.83097e+00,0.99257e+00,0.11416e+01,0.13361e+01 /) - kao(:, 4, 6,16) = (/ & - & 0.26501e+00,0.24670e+00,0.42047e+00,0.62999e+00,0.83846e+00, & - & 0.10456e+01,0.12484e+01,0.14350e+01,0.16802e+01 /) - kao(:, 5, 6,16) = (/ & - & 0.26533e+00,0.27595e+00,0.51477e+00,0.77155e+00,0.10272e+01, & - & 0.12802e+01,0.15288e+01,0.17573e+01,0.20585e+01 /) - kao(:, 1, 7,16) = (/ & - & 0.31548e+00,0.27644e+00,0.23749e+00,0.26350e+00,0.33563e+00, & - & 0.41860e+00,0.50000e+00,0.57557e+00,0.67307e+00 /) - kao(:, 2, 7,16) = (/ & - & 0.31747e+00,0.27830e+00,0.26813e+00,0.35238e+00,0.46780e+00, & - & 0.58337e+00,0.69695e+00,0.80281e+00,0.93825e+00 /) - kao(:, 3, 7,16) = (/ & - & 0.31845e+00,0.27929e+00,0.32577e+00,0.46831e+00,0.62377e+00, & - & 0.77768e+00,0.92868e+00,0.10691e+01,0.12510e+01 /) - kao(:, 4, 7,16) = (/ & - & 0.31933e+00,0.28093e+00,0.40219e+00,0.60218e+00,0.80124e+00, & - & 0.99953e+00,0.11938e+01,0.13738e+01,0.16072e+01 /) - kao(:, 5, 7,16) = (/ & - & 0.31962e+00,0.30041e+00,0.50060e+00,0.75020e+00,0.99895e+00, & - & 0.12457e+01,0.14877e+01,0.17119e+01,0.20030e+01 /) - kao(:, 1, 8,16) = (/ & - & 0.37865e+00,0.33167e+00,0.28471e+00,0.26304e+00,0.29883e+00, & - & 0.36478e+00,0.43575e+00,0.50177e+00,0.58698e+00 /) - kao(:, 2, 8,16) = (/ & - & 0.38151e+00,0.33434e+00,0.29226e+00,0.33286e+00,0.42010e+00, & - & 0.52397e+00,0.62612e+00,0.72153e+00,0.84257e+00 /) - kao(:, 3, 8,16) = (/ & - & 0.38305e+00,0.33575e+00,0.33335e+00,0.43312e+00,0.57580e+00, & - & 0.71815e+00,0.85781e+00,0.98826e+00,0.11549e+01 /) - kao(:, 4, 8,16) = (/ & - & 0.38418e+00,0.33683e+00,0.39821e+00,0.56836e+00,0.75670e+00, & - & 0.94382e+00,0.11276e+01,0.12990e+01,0.15179e+01 /) - kao(:, 5, 8,16) = (/ & - & 0.38435e+00,0.34032e+00,0.48169e+00,0.72105e+00,0.95979e+00, & - & 0.11976e+01,0.14311e+01,0.16484e+01,0.19256e+01 /) - kao(:, 1, 9,16) = (/ & - & 0.45391e+00,0.39745e+00,0.34100e+00,0.28597e+00,0.28236e+00, & - & 0.32683e+00,0.39003e+00,0.44780e+00,0.52646e+00 /) - kao(:, 2, 9,16) = (/ & - & 0.45720e+00,0.40042e+00,0.34369e+00,0.33249e+00,0.37993e+00, & - & 0.46180e+00,0.55195e+00,0.63669e+00,0.74252e+00 /) - kao(:, 3, 9,16) = (/ & - & 0.45930e+00,0.40241e+00,0.35995e+00,0.41477e+00,0.52224e+00, & - & 0.65162e+00,0.77908e+00,0.89846e+00,0.10481e+01 /) - kao(:, 4, 9,16) = (/ & - & 0.46056e+00,0.40360e+00,0.40974e+00,0.52851e+00,0.70308e+00, & - & 0.87703e+00,0.10485e+01,0.12091e+01,0.14102e+01 /) - kao(:, 5, 9,16) = (/ & - & 0.46097e+00,0.40408e+00,0.48083e+00,0.68278e+00,0.90959e+00, & - & 0.11347e+01,0.13562e+01,0.15644e+01,0.18239e+01 /) - kao(:, 1,10,16) = (/ & - & 0.54348e+00,0.47578e+00,0.40808e+00,0.34039e+00,0.29202e+00, & - & 0.31463e+00,0.37530e+00,0.43003e+00,0.50713e+00 /) - kao(:, 2,10,16) = (/ & - & 0.54726e+00,0.47923e+00,0.41116e+00,0.35738e+00,0.36873e+00, & - & 0.42815e+00,0.51125e+00,0.58827e+00,0.68902e+00 /) - kao(:, 3,10,16) = (/ & - & 0.54904e+00,0.48087e+00,0.41270e+00,0.42187e+00,0.48592e+00, & - & 0.59834e+00,0.71541e+00,0.82550e+00,0.96166e+00 /) - kao(:, 4,10,16) = (/ & - & 0.55066e+00,0.48237e+00,0.44342e+00,0.51829e+00,0.65846e+00, & - & 0.82163e+00,0.98259e+00,0.11344e+01,0.13209e+01 /) - kao(:, 5,10,16) = (/ & - & 0.55078e+00,0.48256e+00,0.50243e+00,0.65112e+00,0.86662e+00, & - & 0.10813e+01,0.12932e+01,0.14933e+01,0.17377e+01 /) - kao(:, 1,11,16) = (/ & - & 0.65114e+00,0.56997e+00,0.48880e+00,0.40765e+00,0.34114e+00, & - & 0.35299e+00,0.42114e+00,0.48311e+00,0.56879e+00 /) - kao(:, 2,11,16) = (/ & - & 0.65409e+00,0.57269e+00,0.49126e+00,0.41893e+00,0.41551e+00, & - & 0.46863e+00,0.55986e+00,0.64427e+00,0.75415e+00 /) - kao(:, 3,11,16) = (/ & - & 0.65488e+00,0.57345e+00,0.49197e+00,0.47947e+00,0.53169e+00, & - & 0.64034e+00,0.76581e+00,0.88450e+00,0.10287e+01 /) - kao(:, 4,11,16) = (/ & - & 0.65537e+00,0.57398e+00,0.51344e+00,0.57405e+00,0.70306e+00, & - & 0.87735e+00,0.10495e+01,0.12127e+01,0.14094e+01 /) - kao(:, 5,11,16) = (/ & - & 0.65395e+00,0.57279e+00,0.56858e+00,0.69997e+00,0.92273e+00, & - & 0.11516e+01,0.13780e+01,0.15930e+01,0.18499e+01 /) - kao(:, 1,12,16) = (/ & - & 0.77619e+00,0.67938e+00,0.58258e+00,0.48578e+00,0.39872e+00, & - & 0.39471e+00,0.47009e+00,0.53992e+00,0.63430e+00 /) - kao(:, 2,12,16) = (/ & - & 0.77753e+00,0.68052e+00,0.58367e+00,0.49090e+00,0.46899e+00, & - & 0.51194e+00,0.61162e+00,0.70447e+00,0.82357e+00 /) - kao(:, 3,12,16) = (/ & - & 0.77638e+00,0.67972e+00,0.58318e+00,0.54530e+00,0.58387e+00, & - & 0.68245e+00,0.81638e+00,0.94341e+00,0.10965e+01 /) - kao(:, 4,12,16) = (/ & - & 0.77440e+00,0.67810e+00,0.59462e+00,0.63695e+00,0.74739e+00, & - & 0.93197e+00,0.11153e+01,0.12903e+01,0.14970e+01 /) - kao(:, 5,12,16) = (/ & - & 0.77021e+00,0.67464e+00,0.64357e+00,0.75637e+00,0.97798e+00, & - & 0.12207e+01,0.14609e+01,0.16904e+01,0.19598e+01 /) - kao(:, 1,13,16) = (/ & - & 0.91895e+00,0.80429e+00,0.68964e+00,0.57498e+00,0.46528e+00, & - & 0.44199e+00,0.52028e+00,0.59834e+00,0.70141e+00 /) - kao(:, 2,13,16) = (/ & - & 0.91759e+00,0.80320e+00,0.68881e+00,0.57463e+00,0.52956e+00, & - & 0.55768e+00,0.66492e+00,0.76644e+00,0.89471e+00 /) - kao(:, 3,13,16) = (/ & - & 0.91361e+00,0.79979e+00,0.68598e+00,0.61940e+00,0.64101e+00, & - & 0.72712e+00,0.86969e+00,0.10053e+01,0.11679e+01 /) - kao(:, 4,13,16) = (/ & - & 0.90733e+00,0.79439e+00,0.68655e+00,0.70603e+00,0.79560e+00, & - & 0.98356e+00,0.11773e+01,0.13631e+01,0.15788e+01 /) - kao(:, 5,13,16) = (/ & - & 0.89862e+00,0.78697e+00,0.72670e+00,0.82187e+00,0.10292e+01, & - & 0.12848e+01,0.15381e+01,0.17818e+01,0.20623e+01 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:,13, 1) = (/ & - & 0.80849e-06,0.81362e-06,0.81391e-06,0.81832e-06,0.81000e-06 /) - kbo(:,14, 1) = (/ & - & 0.62593e-06,0.63090e-06,0.63158e-06,0.62821e-06,0.62502e-06 /) - kbo(:,15, 1) = (/ & - & 0.47825e-06,0.47852e-06,0.47713e-06,0.47688e-06,0.47989e-06 /) - kbo(:,16, 1) = (/ & - & 0.36039e-06,0.35905e-06,0.36064e-06,0.36298e-06,0.36860e-06 /) - kbo(:,17, 1) = (/ & - & 0.27679e-06,0.27608e-06,0.27742e-06,0.28112e-06,0.28759e-06 /) - kbo(:,18, 1) = (/ & - & 0.21771e-06,0.21826e-06,0.22019e-06,0.22429e-06,0.22996e-06 /) - kbo(:,19, 1) = (/ & - & 0.17334e-06,0.17441e-06,0.17681e-06,0.18055e-06,0.18537e-06 /) - kbo(:,20, 1) = (/ & - & 0.13974e-06,0.14076e-06,0.14326e-06,0.14694e-06,0.15070e-06 /) - kbo(:,21, 1) = (/ & - & 0.11289e-06,0.11394e-06,0.11631e-06,0.11963e-06,0.12284e-06 /) - kbo(:,22, 1) = (/ & - & 0.90574e-07,0.91914e-07,0.94046e-07,0.96998e-07,0.99841e-07 /) - kbo(:,23, 1) = (/ & - & 0.72483e-07,0.74069e-07,0.76186e-07,0.78482e-07,0.80964e-07 /) - kbo(:,24, 1) = (/ & - & 0.57463e-07,0.59130e-07,0.60802e-07,0.62903e-07,0.65218e-07 /) - kbo(:,25, 1) = (/ & - & 0.45767e-07,0.47184e-07,0.48696e-07,0.50494e-07,0.52527e-07 /) - kbo(:,26, 1) = (/ & - & 0.36636e-07,0.37794e-07,0.39217e-07,0.40768e-07,0.42465e-07 /) - kbo(:,27, 1) = (/ & - & 0.29173e-07,0.30183e-07,0.31469e-07,0.32834e-07,0.34213e-07 /) - kbo(:,28, 1) = (/ & - & 0.23225e-07,0.24137e-07,0.25167e-07,0.26378e-07,0.27534e-07 /) - kbo(:,29, 1) = (/ & - & 0.18675e-07,0.19472e-07,0.20340e-07,0.21340e-07,0.22286e-07 /) - kbo(:,30, 1) = (/ & - & 0.15020e-07,0.15690e-07,0.16468e-07,0.17258e-07,0.18060e-07 /) - kbo(:,31, 1) = (/ & - & 0.12149e-07,0.12728e-07,0.13375e-07,0.14035e-07,0.14711e-07 /) - kbo(:,32, 1) = (/ & - & 0.98596e-08,0.10344e-07,0.10879e-07,0.11427e-07,0.12003e-07 /) - kbo(:,33, 1) = (/ & - & 0.80127e-08,0.84199e-08,0.88610e-08,0.93188e-08,0.98102e-08 /) - kbo(:,34, 1) = (/ & - & 0.65473e-08,0.68850e-08,0.72470e-08,0.76379e-08,0.80329e-08 /) - kbo(:,35, 1) = (/ & - & 0.53107e-08,0.55930e-08,0.58984e-08,0.62161e-08,0.65511e-08 /) - kbo(:,36, 1) = (/ & - & 0.42749e-08,0.45072e-08,0.47592e-08,0.50244e-08,0.53034e-08 /) - kbo(:,37, 1) = (/ & - & 0.34593e-08,0.36479e-08,0.38557e-08,0.40714e-08,0.43031e-08 /) - kbo(:,38, 1) = (/ & - & 0.27981e-08,0.29525e-08,0.31212e-08,0.32984e-08,0.34890e-08 /) - kbo(:,39, 1) = (/ & - & 0.22616e-08,0.23879e-08,0.25266e-08,0.26716e-08,0.28295e-08 /) - kbo(:,40, 1) = (/ & - & 0.18232e-08,0.19245e-08,0.20362e-08,0.21554e-08,0.22831e-08 /) - kbo(:,41, 1) = (/ & - & 0.14679e-08,0.15511e-08,0.16402e-08,0.17376e-08,0.18413e-08 /) - kbo(:,42, 1) = (/ & - & 0.11828e-08,0.12488e-08,0.13200e-08,0.14008e-08,0.14841e-08 /) - kbo(:,43, 1) = (/ & - & 0.94970e-09,0.10028e-08,0.10610e-08,0.11254e-08,0.11933e-08 /) - kbo(:,44, 1) = (/ & - & 0.76210e-09,0.80401e-09,0.85098e-09,0.90203e-09,0.95794e-09 /) - kbo(:,45, 1) = (/ & - & 0.61242e-09,0.64471e-09,0.68205e-09,0.72336e-09,0.76846e-09 /) - kbo(:,46, 1) = (/ & - & 0.49214e-09,0.51642e-09,0.54633e-09,0.57916e-09,0.61506e-09 /) - kbo(:,47, 1) = (/ & - & 0.39552e-09,0.41343e-09,0.43658e-09,0.46266e-09,0.49121e-09 /) - kbo(:,48, 1) = (/ & - & 0.31773e-09,0.33161e-09,0.34878e-09,0.36970e-09,0.39231e-09 /) - kbo(:,49, 1) = (/ & - & 0.25526e-09,0.26613e-09,0.27906e-09,0.29510e-09,0.31346e-09 /) - kbo(:,50, 1) = (/ & - & 0.20571e-09,0.21419e-09,0.22379e-09,0.23622e-09,0.25076e-09 /) - kbo(:,51, 1) = (/ & - & 0.16573e-09,0.17251e-09,0.18002e-09,0.18925e-09,0.20074e-09 /) - kbo(:,52, 1) = (/ & - & 0.13312e-09,0.13888e-09,0.14480e-09,0.15170e-09,0.16067e-09 /) - kbo(:,53, 1) = (/ & - & 0.10717e-09,0.11200e-09,0.11653e-09,0.12187e-09,0.12864e-09 /) - kbo(:,54, 1) = (/ & - & 0.85395e-10,0.90190e-10,0.93978e-10,0.98115e-10,0.10324e-09 /) - kbo(:,55, 1) = (/ & - & 0.67933e-10,0.72682e-10,0.75857e-10,0.79079e-10,0.82942e-10 /) - kbo(:,56, 1) = (/ & - & 0.53572e-10,0.58095e-10,0.61231e-10,0.63738e-10,0.66738e-10 /) - kbo(:,57, 1) = (/ & - & 0.41729e-10,0.46380e-10,0.49357e-10,0.51409e-10,0.53743e-10 /) - kbo(:,58, 1) = (/ & - & 0.32319e-10,0.36737e-10,0.39572e-10,0.41487e-10,0.43327e-10 /) - kbo(:,59, 1) = (/ & - & 0.25820e-10,0.29541e-10,0.32107e-10,0.33762e-10,0.35250e-10 /) - kbo(:,13, 2) = (/ & - & 0.93809e-05,0.10536e-04,0.11777e-04,0.13098e-04,0.14486e-04 /) - kbo(:,14, 2) = (/ & - & 0.77050e-05,0.86520e-05,0.96745e-05,0.10759e-04,0.11891e-04 /) - kbo(:,15, 2) = (/ & - & 0.63112e-05,0.70914e-05,0.79320e-05,0.88179e-05,0.97344e-05 /) - kbo(:,16, 2) = (/ & - & 0.51672e-05,0.58172e-05,0.64961e-05,0.72133e-05,0.79595e-05 /) - kbo(:,17, 2) = (/ & - & 0.42470e-05,0.47817e-05,0.53396e-05,0.59229e-05,0.65385e-05 /) - kbo(:,18, 2) = (/ & - & 0.35105e-05,0.39513e-05,0.44042e-05,0.48865e-05,0.53983e-05 /) - kbo(:,19, 2) = (/ & - & 0.29057e-05,0.32680e-05,0.36409e-05,0.40419e-05,0.44646e-05 /) - kbo(:,20, 2) = (/ & - & 0.24132e-05,0.27111e-05,0.30192e-05,0.33498e-05,0.36985e-05 /) - kbo(:,21, 2) = (/ & - & 0.20041e-05,0.22484e-05,0.25052e-05,0.27770e-05,0.30661e-05 /) - kbo(:,22, 2) = (/ & - & 0.16762e-05,0.18775e-05,0.20900e-05,0.23158e-05,0.25543e-05 /) - kbo(:,23, 2) = (/ & - & 0.14013e-05,0.15665e-05,0.17433e-05,0.19308e-05,0.21290e-05 /) - kbo(:,24, 2) = (/ & - & 0.11680e-05,0.13039e-05,0.14515e-05,0.16085e-05,0.17733e-05 /) - kbo(:,25, 2) = (/ & - & 0.97491e-06,0.10886e-05,0.12114e-05,0.13428e-05,0.14806e-05 /) - kbo(:,26, 2) = (/ & - & 0.81608e-06,0.91198e-06,0.10148e-05,0.11244e-05,0.12392e-05 /) - kbo(:,27, 2) = (/ & - & 0.68407e-06,0.76432e-06,0.85048e-06,0.94210e-06,0.10393e-05 /) - kbo(:,28, 2) = (/ & - & 0.57340e-06,0.64071e-06,0.71311e-06,0.78988e-06,0.87304e-06 /) - kbo(:,29, 2) = (/ & - & 0.48234e-06,0.53886e-06,0.59992e-06,0.66557e-06,0.73565e-06 /) - kbo(:,30, 2) = (/ & - & 0.40628e-06,0.45384e-06,0.50638e-06,0.56175e-06,0.62086e-06 /) - kbo(:,31, 2) = (/ & - & 0.34276e-06,0.38409e-06,0.42817e-06,0.47551e-06,0.52508e-06 /) - kbo(:,32, 2) = (/ & - & 0.29024e-06,0.32548e-06,0.36291e-06,0.40263e-06,0.44423e-06 /) - kbo(:,33, 2) = (/ & - & 0.24623e-06,0.27596e-06,0.30748e-06,0.34104e-06,0.37571e-06 /) - kbo(:,34, 2) = (/ & - & 0.20814e-06,0.23318e-06,0.25975e-06,0.28746e-06,0.31674e-06 /) - kbo(:,35, 2) = (/ & - & 0.17399e-06,0.19476e-06,0.21698e-06,0.24021e-06,0.26463e-06 /) - kbo(:,36, 2) = (/ & - & 0.14352e-06,0.16079e-06,0.17920e-06,0.19838e-06,0.21852e-06 /) - kbo(:,37, 2) = (/ & - & 0.11644e-06,0.13061e-06,0.14569e-06,0.16148e-06,0.17794e-06 /) - kbo(:,38, 2) = (/ & - & 0.94327e-07,0.10597e-06,0.11827e-06,0.13121e-06,0.14471e-06 /) - kbo(:,39, 2) = (/ & - & 0.76386e-07,0.85932e-07,0.96004e-07,0.10675e-06,0.11785e-06 /) - kbo(:,40, 2) = (/ & - & 0.61093e-07,0.68856e-07,0.77088e-07,0.85831e-07,0.94878e-07 /) - kbo(:,41, 2) = (/ & - & 0.48781e-07,0.55058e-07,0.61725e-07,0.68852e-07,0.76234e-07 /) - kbo(:,42, 2) = (/ & - & 0.38909e-07,0.43987e-07,0.49391e-07,0.55161e-07,0.61197e-07 /) - kbo(:,43, 2) = (/ & - & 0.30779e-07,0.34866e-07,0.39222e-07,0.43870e-07,0.48785e-07 /) - kbo(:,44, 2) = (/ & - & 0.24249e-07,0.27514e-07,0.31014e-07,0.34774e-07,0.38772e-07 /) - kbo(:,45, 2) = (/ & - & 0.19076e-07,0.21693e-07,0.24514e-07,0.27522e-07,0.30756e-07 /) - kbo(:,46, 2) = (/ & - & 0.14949e-07,0.17046e-07,0.19303e-07,0.21721e-07,0.24320e-07 /) - kbo(:,47, 2) = (/ & - & 0.11627e-07,0.13294e-07,0.15102e-07,0.17040e-07,0.19115e-07 /) - kbo(:,48, 2) = (/ & - & 0.90208e-08,0.10359e-07,0.11803e-07,0.13349e-07,0.15003e-07 /) - kbo(:,49, 2) = (/ & - & 0.69979e-08,0.80625e-08,0.92075e-08,0.10445e-07,0.11768e-07 /) - kbo(:,50, 2) = (/ & - & 0.54507e-08,0.62777e-08,0.72004e-08,0.81899e-08,0.92488e-08 /) - kbo(:,51, 2) = (/ & - & 0.42541e-08,0.48933e-08,0.56304e-08,0.64214e-08,0.72725e-08 /) - kbo(:,52, 2) = (/ & - & 0.33161e-08,0.38121e-08,0.43976e-08,0.50301e-08,0.57140e-08 /) - kbo(:,53, 2) = (/ & - & 0.25817e-08,0.29691e-08,0.34291e-08,0.39368e-08,0.44836e-08 /) - kbo(:,54, 2) = (/ & - & 0.20203e-08,0.23228e-08,0.26823e-08,0.30900e-08,0.35285e-08 /) - kbo(:,55, 2) = (/ & - & 0.15833e-08,0.18196e-08,0.21023e-08,0.24276e-08,0.27787e-08 /) - kbo(:,56, 2) = (/ & - & 0.12403e-08,0.14250e-08,0.16461e-08,0.19045e-08,0.21855e-08 /) - kbo(:,57, 2) = (/ & - & 0.97249e-09,0.11164e-08,0.12881e-08,0.14923e-08,0.17175e-08 /) - kbo(:,58, 2) = (/ & - & 0.76431e-09,0.87699e-09,0.10108e-08,0.11709e-08,0.13516e-08 /) - kbo(:,59, 2) = (/ & - & 0.61553e-09,0.70649e-09,0.81463e-09,0.94315e-09,0.10907e-08 /) - kbo(:,13, 3) = (/ & - & 0.37708e-04,0.43942e-04,0.50586e-04,0.57656e-04,0.65139e-04 /) - kbo(:,14, 3) = (/ & - & 0.31694e-04,0.36862e-04,0.42350e-04,0.48197e-04,0.54341e-04 /) - kbo(:,15, 3) = (/ & - & 0.26564e-04,0.30824e-04,0.35372e-04,0.40180e-04,0.45231e-04 /) - kbo(:,16, 3) = (/ & - & 0.22232e-04,0.25740e-04,0.29512e-04,0.33447e-04,0.37588e-04 /) - kbo(:,17, 3) = (/ & - & 0.18578e-04,0.21467e-04,0.24582e-04,0.27832e-04,0.31221e-04 /) - kbo(:,18, 3) = (/ & - & 0.15530e-04,0.17922e-04,0.20498e-04,0.23170e-04,0.25973e-04 /) - kbo(:,19, 3) = (/ & - & 0.12972e-04,0.14952e-04,0.17059e-04,0.19270e-04,0.21580e-04 /) - kbo(:,20, 3) = (/ & - & 0.10858e-04,0.12498e-04,0.14228e-04,0.16061e-04,0.17958e-04 /) - kbo(:,21, 3) = (/ & - & 0.90819e-05,0.10446e-04,0.11880e-04,0.13394e-04,0.14951e-04 /) - kbo(:,22, 3) = (/ & - & 0.76648e-05,0.87979e-05,0.99931e-05,0.11255e-04,0.12542e-04 /) - kbo(:,23, 3) = (/ & - & 0.64634e-05,0.74140e-05,0.84086e-05,0.94546e-05,0.10527e-04 /) - kbo(:,24, 3) = (/ & - & 0.54523e-05,0.62464e-05,0.70809e-05,0.79508e-05,0.88446e-05 /) - kbo(:,25, 3) = (/ & - & 0.46110e-05,0.52716e-05,0.59693e-05,0.66904e-05,0.74322e-05 /) - kbo(:,26, 3) = (/ & - & 0.39134e-05,0.44620e-05,0.50425e-05,0.56439e-05,0.62577e-05 /) - kbo(:,27, 3) = (/ & - & 0.33208e-05,0.37777e-05,0.42629e-05,0.47607e-05,0.52714e-05 /) - kbo(:,28, 3) = (/ & - & 0.28177e-05,0.32008e-05,0.36031e-05,0.40187e-05,0.44358e-05 /) - kbo(:,29, 3) = (/ & - & 0.23932e-05,0.27158e-05,0.30516e-05,0.33945e-05,0.37416e-05 /) - kbo(:,30, 3) = (/ & - & 0.20340e-05,0.23035e-05,0.25827e-05,0.28672e-05,0.31559e-05 /) - kbo(:,31, 3) = (/ & - & 0.17308e-05,0.19547e-05,0.21869e-05,0.24243e-05,0.26649e-05 /) - kbo(:,32, 3) = (/ & - & 0.14734e-05,0.16593e-05,0.18536e-05,0.20518e-05,0.22514e-05 /) - kbo(:,33, 3) = (/ & - & 0.12538e-05,0.14097e-05,0.15718e-05,0.17369e-05,0.19013e-05 /) - kbo(:,34, 3) = (/ & - & 0.10626e-05,0.11932e-05,0.13290e-05,0.14662e-05,0.16025e-05 /) - kbo(:,35, 3) = (/ & - & 0.88990e-06,0.99878e-06,0.11122e-05,0.12266e-05,0.13395e-05 /) - kbo(:,36, 3) = (/ & - & 0.73535e-06,0.82690e-06,0.92099e-06,0.10159e-05,0.11099e-05 /) - kbo(:,37, 3) = (/ & - & 0.59728e-06,0.67301e-06,0.75127e-06,0.83021e-06,0.90845e-06 /) - kbo(:,38, 3) = (/ & - & 0.48484e-06,0.54737e-06,0.61229e-06,0.67762e-06,0.74258e-06 /) - kbo(:,39, 3) = (/ & - & 0.39347e-06,0.44485e-06,0.49886e-06,0.55290e-06,0.60674e-06 /) - kbo(:,40, 3) = (/ & - & 0.31488e-06,0.35703e-06,0.40148e-06,0.44640e-06,0.49091e-06 /) - kbo(:,41, 3) = (/ & - & 0.25130e-06,0.28561e-06,0.32224e-06,0.35953e-06,0.39618e-06 /) - kbo(:,42, 3) = (/ & - & 0.20030e-06,0.22840e-06,0.25834e-06,0.28930e-06,0.31965e-06 /) - kbo(:,43, 3) = (/ & - & 0.15807e-06,0.18109e-06,0.20542e-06,0.23094e-06,0.25635e-06 /) - kbo(:,44, 3) = (/ & - & 0.12418e-06,0.14282e-06,0.16261e-06,0.18364e-06,0.20465e-06 /) - kbo(:,45, 3) = (/ & - & 0.97383e-07,0.11245e-06,0.12855e-06,0.14572e-06,0.16307e-06 /) - kbo(:,46, 3) = (/ & - & 0.76015e-07,0.88067e-07,0.10120e-06,0.11510e-06,0.12935e-06 /) - kbo(:,47, 3) = (/ & - & 0.58813e-07,0.68493e-07,0.79102e-07,0.90273e-07,0.10200e-06 /) - kbo(:,48, 3) = (/ & - & 0.45440e-07,0.53144e-07,0.61597e-07,0.70639e-07,0.80255e-07 /) - kbo(:,49, 3) = (/ & - & 0.35015e-07,0.41136e-07,0.47869e-07,0.55216e-07,0.62994e-07 /) - kbo(:,50, 3) = (/ & - & 0.27056e-07,0.31910e-07,0.37267e-07,0.43210e-07,0.49522e-07 /) - kbo(:,51, 3) = (/ & - & 0.20908e-07,0.24756e-07,0.29044e-07,0.33791e-07,0.38904e-07 /) - kbo(:,52, 3) = (/ & - & 0.16131e-07,0.19181e-07,0.22589e-07,0.26378e-07,0.30504e-07 /) - kbo(:,53, 3) = (/ & - & 0.12418e-07,0.14835e-07,0.17537e-07,0.20547e-07,0.23860e-07 /) - kbo(:,54, 3) = (/ & - & 0.95994e-08,0.11514e-07,0.13662e-07,0.16065e-07,0.18717e-07 /) - kbo(:,55, 3) = (/ & - & 0.74239e-08,0.89453e-08,0.10656e-07,0.12569e-07,0.14693e-07 /) - kbo(:,56, 3) = (/ & - & 0.57300e-08,0.69441e-08,0.83030e-08,0.98193e-08,0.11523e-07 /) - kbo(:,57, 3) = (/ & - & 0.44152e-08,0.53811e-08,0.64581e-08,0.76610e-08,0.90201e-08 /) - kbo(:,58, 3) = (/ & - & 0.34072e-08,0.41708e-08,0.50297e-08,0.59876e-08,0.70684e-08 /) - kbo(:,59, 3) = (/ & - & 0.27302e-08,0.33492e-08,0.40481e-08,0.48266e-08,0.57046e-08 /) - kbo(:,13, 4) = (/ & - & 0.12015e-03,0.13920e-03,0.15937e-03,0.18001e-03,0.19929e-03 /) - kbo(:,14, 4) = (/ & - & 0.10256e-03,0.11883e-03,0.13587e-03,0.15259e-03,0.16812e-03 /) - kbo(:,15, 4) = (/ & - & 0.87203e-04,0.10099e-03,0.11498e-03,0.12847e-03,0.14114e-03 /) - kbo(:,16, 4) = (/ & - & 0.73859e-04,0.85304e-04,0.96816e-04,0.10774e-03,0.11805e-03 /) - kbo(:,17, 4) = (/ & - & 0.62334e-04,0.71786e-04,0.81225e-04,0.90091e-04,0.98454e-04 /) - kbo(:,18, 4) = (/ & - & 0.52581e-04,0.60344e-04,0.68018e-04,0.75237e-04,0.81903e-04 /) - kbo(:,19, 4) = (/ & - & 0.44197e-04,0.50573e-04,0.56840e-04,0.62656e-04,0.67968e-04 /) - kbo(:,20, 4) = (/ & - & 0.37151e-04,0.42384e-04,0.47494e-04,0.52193e-04,0.56467e-04 /) - kbo(:,21, 4) = (/ & - & 0.31193e-04,0.35480e-04,0.39600e-04,0.43427e-04,0.46870e-04 /) - kbo(:,22, 4) = (/ & - & 0.26374e-04,0.29925e-04,0.33224e-04,0.36261e-04,0.39040e-04 /) - kbo(:,23, 4) = (/ & - & 0.22315e-04,0.25198e-04,0.27833e-04,0.30290e-04,0.32509e-04 /) - kbo(:,24, 4) = (/ & - & 0.18883e-04,0.21184e-04,0.23291e-04,0.25268e-04,0.27046e-04 /) - kbo(:,25, 4) = (/ & - & 0.15977e-04,0.17808e-04,0.19529e-04,0.21106e-04,0.22533e-04 /) - kbo(:,26, 4) = (/ & - & 0.13524e-04,0.14996e-04,0.16391e-04,0.17658e-04,0.18796e-04 /) - kbo(:,27, 4) = (/ & - & 0.11433e-04,0.12631e-04,0.13757e-04,0.14769e-04,0.15677e-04 /) - kbo(:,28, 4) = (/ & - & 0.96558e-05,0.10640e-04,0.11537e-04,0.12357e-04,0.13086e-04 /) - kbo(:,29, 4) = (/ & - & 0.81632e-05,0.89560e-05,0.96801e-05,0.10339e-04,0.10919e-04 /) - kbo(:,30, 4) = (/ & - & 0.68972e-05,0.75321e-05,0.81189e-05,0.86418e-05,0.91120e-05 /) - kbo(:,31, 4) = (/ & - & 0.58255e-05,0.63427e-05,0.68115e-05,0.72291e-05,0.76088e-05 /) - kbo(:,32, 4) = (/ & - & 0.49235e-05,0.53404e-05,0.57128e-05,0.60450e-05,0.63540e-05 /) - kbo(:,33, 4) = (/ & - & 0.41602e-05,0.44904e-05,0.47873e-05,0.50567e-05,0.53085e-05 /) - kbo(:,34, 4) = (/ & - & 0.34993e-05,0.37640e-05,0.40033e-05,0.42217e-05,0.44321e-05 /) - kbo(:,35, 4) = (/ & - & 0.29168e-05,0.31331e-05,0.33264e-05,0.35072e-05,0.36808e-05 /) - kbo(:,36, 4) = (/ & - & 0.24105e-05,0.25863e-05,0.27459e-05,0.28969e-05,0.30433e-05 /) - kbo(:,37, 4) = (/ & - & 0.19699e-05,0.21167e-05,0.22499e-05,0.23751e-05,0.24984e-05 /) - kbo(:,38, 4) = (/ & - & 0.16085e-05,0.17316e-05,0.18431e-05,0.19482e-05,0.20520e-05 /) - kbo(:,39, 4) = (/ & - & 0.13140e-05,0.14172e-05,0.15102e-05,0.15989e-05,0.16862e-05 /) - kbo(:,40, 4) = (/ & - & 0.10643e-05,0.11518e-05,0.12300e-05,0.13052e-05,0.13789e-05 /) - kbo(:,41, 4) = (/ & - & 0.86103e-06,0.93494e-06,0.10013e-05,0.10648e-05,0.11275e-05 /) - kbo(:,42, 4) = (/ & - & 0.69566e-06,0.75803e-06,0.81468e-06,0.86817e-06,0.92113e-06 /) - kbo(:,43, 4) = (/ & - & 0.55856e-06,0.61135e-06,0.65992e-06,0.70501e-06,0.74915e-06 /) - kbo(:,44, 4) = (/ & - & 0.44644e-06,0.49113e-06,0.53284e-06,0.57066e-06,0.60776e-06 /) - kbo(:,45, 4) = (/ & - & 0.35638e-06,0.39386e-06,0.42947e-06,0.46192e-06,0.49295e-06 /) - kbo(:,46, 4) = (/ & - & 0.28317e-06,0.31490e-06,0.34503e-06,0.37276e-06,0.39894e-06 /) - kbo(:,47, 4) = (/ & - & 0.22341e-06,0.25002e-06,0.27560e-06,0.29957e-06,0.32144e-06 /) - kbo(:,48, 4) = (/ & - & 0.17554e-06,0.19798e-06,0.21962e-06,0.24010e-06,0.25876e-06 /) - kbo(:,49, 4) = (/ & - & 0.13737e-06,0.15642e-06,0.17451e-06,0.19192e-06,0.20795e-06 /) - kbo(:,50, 4) = (/ & - & 0.10754e-06,0.12357e-06,0.13879e-06,0.15343e-06,0.16712e-06 /) - kbo(:,51, 4) = (/ & - & 0.84121e-07,0.97441e-07,0.11018e-06,0.12256e-06,0.13419e-06 /) - kbo(:,52, 4) = (/ & - & 0.65604e-07,0.76564e-07,0.87356e-07,0.97703e-07,0.10745e-06 /) - kbo(:,53, 4) = (/ & - & 0.50943e-07,0.59988e-07,0.69048e-07,0.77629e-07,0.85933e-07 /) - kbo(:,54, 4) = (/ & - & 0.39679e-07,0.47121e-07,0.54614e-07,0.61766e-07,0.68783e-07 /) - kbo(:,55, 4) = (/ & - & 0.30934e-07,0.36980e-07,0.43113e-07,0.49142e-07,0.55005e-07 /) - kbo(:,56, 4) = (/ & - & 0.24050e-07,0.28923e-07,0.33993e-07,0.39047e-07,0.43928e-07 /) - kbo(:,57, 4) = (/ & - & 0.18660e-07,0.22557e-07,0.26748e-07,0.30951e-07,0.35000e-07 /) - kbo(:,58, 4) = (/ & - & 0.14488e-07,0.17625e-07,0.21043e-07,0.24511e-07,0.27884e-07 /) - kbo(:,59, 4) = (/ & - & 0.11674e-07,0.14234e-07,0.17044e-07,0.19902e-07,0.22702e-07 /) - kbo(:,13, 5) = (/ & - & 0.36288e-03,0.38577e-03,0.40824e-03,0.43207e-03,0.45772e-03 /) - kbo(:,14, 5) = (/ & - & 0.30781e-03,0.32754e-03,0.34745e-03,0.36873e-03,0.39050e-03 /) - kbo(:,15, 5) = (/ & - & 0.26023e-03,0.27734e-03,0.29481e-03,0.31288e-03,0.33087e-03 /) - kbo(:,16, 5) = (/ & - & 0.21963e-03,0.23414e-03,0.24882e-03,0.26383e-03,0.27866e-03 /) - kbo(:,17, 5) = (/ & - & 0.18486e-03,0.19716e-03,0.20932e-03,0.22139e-03,0.23350e-03 /) - kbo(:,18, 5) = (/ & - & 0.15516e-03,0.16534e-03,0.17526e-03,0.18520e-03,0.19528e-03 /) - kbo(:,19, 5) = (/ & - & 0.12986e-03,0.13820e-03,0.14634e-03,0.15465e-03,0.16304e-03 /) - kbo(:,20, 5) = (/ & - & 0.10854e-03,0.11542e-03,0.12213e-03,0.12898e-03,0.13583e-03 /) - kbo(:,21, 5) = (/ & - & 0.90628e-04,0.96255e-04,0.10177e-03,0.10738e-03,0.11299e-03 /) - kbo(:,22, 5) = (/ & - & 0.75891e-04,0.80410e-04,0.85018e-04,0.89561e-04,0.94064e-04 /) - kbo(:,23, 5) = (/ & - & 0.63476e-04,0.67177e-04,0.70959e-04,0.74590e-04,0.78334e-04 /) - kbo(:,24, 5) = (/ & - & 0.52999e-04,0.56057e-04,0.59157e-04,0.62167e-04,0.65272e-04 /) - kbo(:,25, 5) = (/ & - & 0.44256e-04,0.46783e-04,0.49281e-04,0.51789e-04,0.54376e-04 /) - kbo(:,26, 5) = (/ & - & 0.37011e-04,0.39100e-04,0.41098e-04,0.43198e-04,0.45322e-04 /) - kbo(:,27, 5) = (/ & - & 0.30966e-04,0.32635e-04,0.34289e-04,0.36026e-04,0.37776e-04 /) - kbo(:,28, 5) = (/ & - & 0.25866e-04,0.27210e-04,0.28616e-04,0.30009e-04,0.31487e-04 /) - kbo(:,29, 5) = (/ & - & 0.21609e-04,0.22715e-04,0.23863e-04,0.25052e-04,0.26299e-04 /) - kbo(:,30, 5) = (/ & - & 0.18055e-04,0.18981e-04,0.19946e-04,0.20948e-04,0.21978e-04 /) - kbo(:,31, 5) = (/ & - & 0.15103e-04,0.15890e-04,0.16699e-04,0.17556e-04,0.18410e-04 /) - kbo(:,32, 5) = (/ & - & 0.12647e-04,0.13313e-04,0.14001e-04,0.14715e-04,0.15427e-04 /) - kbo(:,33, 5) = (/ & - & 0.10601e-04,0.11164e-04,0.11755e-04,0.12351e-04,0.12931e-04 /) - kbo(:,34, 5) = (/ & - & 0.88699e-05,0.93482e-05,0.98481e-05,0.10351e-04,0.10829e-04 /) - kbo(:,35, 5) = (/ & - & 0.73864e-05,0.77932e-05,0.82148e-05,0.86289e-05,0.90270e-05 /) - kbo(:,36, 5) = (/ & - & 0.61189e-05,0.64631e-05,0.68137e-05,0.71535e-05,0.74761e-05 /) - kbo(:,37, 5) = (/ & - & 0.50349e-05,0.53216e-05,0.56110e-05,0.58984e-05,0.61738e-05 /) - kbo(:,38, 5) = (/ & - & 0.41408e-05,0.43804e-05,0.46209e-05,0.48585e-05,0.50962e-05 /) - kbo(:,39, 5) = (/ & - & 0.34100e-05,0.36097e-05,0.38105e-05,0.40114e-05,0.42081e-05 /) - kbo(:,40, 5) = (/ & - & 0.27924e-05,0.29567e-05,0.31274e-05,0.32925e-05,0.34580e-05 /) - kbo(:,41, 5) = (/ & - & 0.22821e-05,0.24196e-05,0.25613e-05,0.27009e-05,0.28413e-05 /) - kbo(:,42, 5) = (/ & - & 0.18665e-05,0.19799e-05,0.20975e-05,0.22150e-05,0.23326e-05 /) - kbo(:,43, 5) = (/ & - & 0.15195e-05,0.16130e-05,0.17109e-05,0.18095e-05,0.19094e-05 /) - kbo(:,44, 5) = (/ & - & 0.12351e-05,0.13129e-05,0.13926e-05,0.14756e-05,0.15593e-05 /) - kbo(:,45, 5) = (/ & - & 0.10023e-05,0.10671e-05,0.11334e-05,0.12033e-05,0.12728e-05 /) - kbo(:,46, 5) = (/ & - & 0.81269e-06,0.86595e-06,0.92094e-06,0.97875e-06,0.10378e-05 /) - kbo(:,47, 5) = (/ & - & 0.65647e-06,0.70081e-06,0.74604e-06,0.79395e-06,0.84339e-06 /) - kbo(:,48, 5) = (/ & - & 0.53019e-06,0.56638e-06,0.60399e-06,0.64368e-06,0.68472e-06 /) - kbo(:,49, 5) = (/ & - & 0.42776e-06,0.45739e-06,0.48880e-06,0.52108e-06,0.55567e-06 /) - kbo(:,50, 5) = (/ & - & 0.34556e-06,0.36989e-06,0.39599e-06,0.42284e-06,0.45123e-06 /) - kbo(:,51, 5) = (/ & - & 0.27905e-06,0.29932e-06,0.32065e-06,0.34295e-06,0.36646e-06 /) - kbo(:,52, 5) = (/ & - & 0.22522e-06,0.24196e-06,0.25940e-06,0.27788e-06,0.29753e-06 /) - kbo(:,53, 5) = (/ & - & 0.18137e-06,0.19527e-06,0.20965e-06,0.22512e-06,0.24112e-06 /) - kbo(:,54, 5) = (/ & - & 0.14606e-06,0.15795e-06,0.16971e-06,0.18256e-06,0.19571e-06 /) - kbo(:,55, 5) = (/ & - & 0.11745e-06,0.12764e-06,0.13751e-06,0.14796e-06,0.15891e-06 /) - kbo(:,56, 5) = (/ & - & 0.94319e-07,0.10301e-06,0.11131e-06,0.11979e-06,0.12892e-06 /) - kbo(:,57, 5) = (/ & - & 0.75512e-07,0.83064e-07,0.90010e-07,0.96928e-07,0.10441e-06 /) - kbo(:,58, 5) = (/ & - & 0.60409e-07,0.66900e-07,0.72712e-07,0.78451e-07,0.84657e-07 /) - kbo(:,59, 5) = (/ & - & 0.49299e-07,0.54731e-07,0.59628e-07,0.64415e-07,0.69585e-07 /) - kbo(:,13, 6) = (/ & - & 0.85498e-03,0.88654e-03,0.92216e-03,0.96018e-03,0.10038e-02 /) - kbo(:,14, 6) = (/ & - & 0.72755e-03,0.75503e-03,0.78615e-03,0.82104e-03,0.86252e-03 /) - kbo(:,15, 6) = (/ & - & 0.61644e-03,0.64130e-03,0.66934e-03,0.70298e-03,0.74077e-03 /) - kbo(:,16, 6) = (/ & - & 0.52100e-03,0.54364e-03,0.57046e-03,0.60137e-03,0.63388e-03 /) - kbo(:,17, 6) = (/ & - & 0.43945e-03,0.46060e-03,0.48533e-03,0.51276e-03,0.54036e-03 /) - kbo(:,18, 6) = (/ & - & 0.37082e-03,0.39025e-03,0.41242e-03,0.43532e-03,0.45905e-03 /) - kbo(:,19, 6) = (/ & - & 0.31280e-03,0.33005e-03,0.34867e-03,0.36806e-03,0.38776e-03 /) - kbo(:,20, 6) = (/ & - & 0.26373e-03,0.27881e-03,0.29445e-03,0.31046e-03,0.32667e-03 /) - kbo(:,21, 6) = (/ & - & 0.22211e-03,0.23470e-03,0.24766e-03,0.26115e-03,0.27459e-03 /) - kbo(:,22, 6) = (/ & - & 0.18729e-03,0.19773e-03,0.20869e-03,0.22010e-03,0.23102e-03 /) - kbo(:,23, 6) = (/ & - & 0.15755e-03,0.16634e-03,0.17574e-03,0.18527e-03,0.19396e-03 /) - kbo(:,24, 6) = (/ & - & 0.13244e-03,0.14003e-03,0.14791e-03,0.15556e-03,0.16235e-03 /) - kbo(:,25, 6) = (/ & - & 0.11137e-03,0.11779e-03,0.12437e-03,0.13036e-03,0.13579e-03 /) - kbo(:,26, 6) = (/ & - & 0.93817e-04,0.99206e-04,0.10452e-03,0.10918e-03,0.11356e-03 /) - kbo(:,27, 6) = (/ & - & 0.79006e-04,0.83531e-04,0.87717e-04,0.91355e-04,0.95066e-04 /) - kbo(:,28, 6) = (/ & - & 0.66464e-04,0.70180e-04,0.73412e-04,0.76548e-04,0.79673e-04 /) - kbo(:,29, 6) = (/ & - & 0.55955e-04,0.58876e-04,0.61539e-04,0.64161e-04,0.66744e-04 /) - kbo(:,30, 6) = (/ & - & 0.47057e-04,0.49392e-04,0.51539e-04,0.53762e-04,0.55883e-04 /) - kbo(:,31, 6) = (/ & - & 0.39571e-04,0.41398e-04,0.43230e-04,0.45052e-04,0.46859e-04 /) - kbo(:,32, 6) = (/ & - & 0.33232e-04,0.34753e-04,0.36306e-04,0.37802e-04,0.39368e-04 /) - kbo(:,33, 6) = (/ & - & 0.27886e-04,0.29183e-04,0.30428e-04,0.31753e-04,0.33114e-04 /) - kbo(:,34, 6) = (/ & - & 0.23408e-04,0.24477e-04,0.25555e-04,0.26683e-04,0.27811e-04 /) - kbo(:,35, 6) = (/ & - & 0.19576e-04,0.20476e-04,0.21380e-04,0.22323e-04,0.23289e-04 /) - kbo(:,36, 6) = (/ & - & 0.16284e-04,0.17049e-04,0.17816e-04,0.18626e-04,0.19444e-04 /) - kbo(:,37, 6) = (/ & - & 0.13488e-04,0.14134e-04,0.14781e-04,0.15488e-04,0.16173e-04 /) - kbo(:,38, 6) = (/ & - & 0.11176e-04,0.11721e-04,0.12278e-04,0.12866e-04,0.13450e-04 /) - kbo(:,39, 6) = (/ & - & 0.92494e-05,0.97155e-05,0.10200e-04,0.10699e-04,0.11199e-04 /) - kbo(:,40, 6) = (/ & - & 0.76168e-05,0.80109e-05,0.84197e-05,0.88496e-05,0.92853e-05 /) - kbo(:,41, 6) = (/ & - & 0.62645e-05,0.66003e-05,0.69472e-05,0.73123e-05,0.76881e-05 /) - kbo(:,42, 6) = (/ & - & 0.51581e-05,0.54373e-05,0.57325e-05,0.60421e-05,0.63612e-05 /) - kbo(:,43, 6) = (/ & - & 0.42336e-05,0.44705e-05,0.47241e-05,0.49790e-05,0.52554e-05 /) - kbo(:,44, 6) = (/ & - & 0.34635e-05,0.36643e-05,0.38777e-05,0.40942e-05,0.43335e-05 /) - kbo(:,45, 6) = (/ & - & 0.28355e-05,0.30041e-05,0.31829e-05,0.33678e-05,0.35664e-05 /) - kbo(:,46, 6) = (/ & - & 0.23151e-05,0.24589e-05,0.26085e-05,0.27655e-05,0.29287e-05 /) - kbo(:,47, 6) = (/ & - & 0.18832e-05,0.20045e-05,0.21306e-05,0.22633e-05,0.24025e-05 /) - kbo(:,48, 6) = (/ & - & 0.15291e-05,0.16326e-05,0.17368e-05,0.18516e-05,0.19681e-05 /) - kbo(:,49, 6) = (/ & - & 0.12403e-05,0.13270e-05,0.14154e-05,0.15108e-05,0.16100e-05 /) - kbo(:,50, 6) = (/ & - & 0.10056e-05,0.10792e-05,0.11542e-05,0.12335e-05,0.13173e-05 /) - kbo(:,51, 6) = (/ & - & 0.81549e-06,0.87791e-06,0.94116e-06,0.10080e-05,0.10781e-05 /) - kbo(:,52, 6) = (/ & - & 0.66029e-06,0.71307e-06,0.76617e-06,0.82179e-06,0.88107e-06 /) - kbo(:,53, 6) = (/ & - & 0.53353e-06,0.57858e-06,0.62276e-06,0.66919e-06,0.71931e-06 /) - kbo(:,54, 6) = (/ & - & 0.43199e-06,0.46970e-06,0.50695e-06,0.54584e-06,0.58793e-06 /) - kbo(:,55, 6) = (/ & - & 0.34966e-06,0.38119e-06,0.41298e-06,0.44530e-06,0.48058e-06 /) - kbo(:,56, 6) = (/ & - & 0.28227e-06,0.30903e-06,0.33563e-06,0.36285e-06,0.39216e-06 /) - kbo(:,57, 6) = (/ & - & 0.22764e-06,0.25006e-06,0.27265e-06,0.29503e-06,0.31940e-06 /) - kbo(:,58, 6) = (/ & - & 0.18380e-06,0.20248e-06,0.22144e-06,0.24002e-06,0.25999e-06 /) - kbo(:,59, 6) = (/ & - & 0.15102e-06,0.16680e-06,0.18267e-06,0.19825e-06,0.21512e-06 /) - kbo(:,13, 7) = (/ & - & 0.20763e-02,0.21202e-02,0.21697e-02,0.22297e-02,0.22985e-02 /) - kbo(:,14, 7) = (/ & - & 0.17631e-02,0.18004e-02,0.18452e-02,0.18998e-02,0.19604e-02 /) - kbo(:,15, 7) = (/ & - & 0.14970e-02,0.15286e-02,0.15695e-02,0.16172e-02,0.16748e-02 /) - kbo(:,16, 7) = (/ & - & 0.12672e-02,0.12965e-02,0.13340e-02,0.13795e-02,0.14367e-02 /) - kbo(:,17, 7) = (/ & - & 0.10695e-02,0.10974e-02,0.11329e-02,0.11783e-02,0.12365e-02 /) - kbo(:,18, 7) = (/ & - & 0.90477e-03,0.93070e-03,0.96470e-03,0.10105e-02,0.10654e-02 /) - kbo(:,19, 7) = (/ & - & 0.76431e-03,0.79078e-03,0.82660e-03,0.86991e-03,0.91843e-03 /) - kbo(:,20, 7) = (/ & - & 0.64676e-03,0.67404e-03,0.70901e-03,0.74996e-03,0.79243e-03 /) - kbo(:,21, 7) = (/ & - & 0.54776e-03,0.57523e-03,0.60880e-03,0.64511e-03,0.68243e-03 /) - kbo(:,22, 7) = (/ & - & 0.46614e-03,0.49254e-03,0.52330e-03,0.55502e-03,0.58894e-03 /) - kbo(:,23, 7) = (/ & - & 0.39726e-03,0.42201e-03,0.44841e-03,0.47653e-03,0.50717e-03 /) - kbo(:,24, 7) = (/ & - & 0.33898e-03,0.36121e-03,0.38421e-03,0.40924e-03,0.43694e-03 /) - kbo(:,25, 7) = (/ & - & 0.28981e-03,0.30891e-03,0.32925e-03,0.35185e-03,0.37616e-03 /) - kbo(:,26, 7) = (/ & - & 0.24765e-03,0.26436e-03,0.28268e-03,0.30306e-03,0.32381e-03 /) - kbo(:,27, 7) = (/ & - & 0.21161e-03,0.22639e-03,0.24293e-03,0.26080e-03,0.27811e-03 /) - kbo(:,28, 7) = (/ & - & 0.18103e-03,0.19425e-03,0.20911e-03,0.22426e-03,0.23882e-03 /) - kbo(:,29, 7) = (/ & - & 0.15524e-03,0.16726e-03,0.18025e-03,0.19313e-03,0.20539e-03 /) - kbo(:,30, 7) = (/ & - & 0.13346e-03,0.14432e-03,0.15555e-03,0.16625e-03,0.17682e-03 /) - kbo(:,31, 7) = (/ & - & 0.11513e-03,0.12466e-03,0.13417e-03,0.14329e-03,0.15286e-03 /) - kbo(:,32, 7) = (/ & - & 0.99437e-04,0.10768e-03,0.11569e-03,0.12397e-03,0.13224e-03 /) - kbo(:,33, 7) = (/ & - & 0.85975e-04,0.92901e-04,0.10007e-03,0.10742e-03,0.11487e-03 /) - kbo(:,34, 7) = (/ & - & 0.74186e-04,0.80283e-04,0.86524e-04,0.92965e-04,0.99720e-04 /) - kbo(:,35, 7) = (/ & - & 0.63518e-04,0.68833e-04,0.74348e-04,0.80205e-04,0.86286e-04 /) - kbo(:,36, 7) = (/ & - & 0.53971e-04,0.58710e-04,0.63581e-04,0.68731e-04,0.74066e-04 /) - kbo(:,37, 7) = (/ & - & 0.45287e-04,0.49433e-04,0.53695e-04,0.58207e-04,0.62933e-04 /) - kbo(:,38, 7) = (/ & - & 0.37993e-04,0.41562e-04,0.45327e-04,0.49315e-04,0.53437e-04 /) - kbo(:,39, 7) = (/ & - & 0.31889e-04,0.34954e-04,0.38268e-04,0.41760e-04,0.45472e-04 /) - kbo(:,40, 7) = (/ & - & 0.26490e-04,0.29130e-04,0.31995e-04,0.35094e-04,0.38302e-04 /) - kbo(:,41, 7) = (/ & - & 0.21977e-04,0.24258e-04,0.26702e-04,0.29405e-04,0.32254e-04 /) - kbo(:,42, 7) = (/ & - & 0.18218e-04,0.20180e-04,0.22299e-04,0.24616e-04,0.27154e-04 /) - kbo(:,43, 7) = (/ & - & 0.15034e-04,0.16668e-04,0.18493e-04,0.20514e-04,0.22747e-04 /) - kbo(:,44, 7) = (/ & - & 0.12376e-04,0.13730e-04,0.15276e-04,0.16983e-04,0.18913e-04 /) - kbo(:,45, 7) = (/ & - & 0.10149e-04,0.11314e-04,0.12590e-04,0.14099e-04,0.15742e-04 /) - kbo(:,46, 7) = (/ & - & 0.82889e-05,0.92859e-05,0.10354e-04,0.11603e-04,0.13042e-04 /) - kbo(:,47, 7) = (/ & - & 0.67264e-05,0.75707e-05,0.84748e-05,0.95081e-05,0.10721e-04 /) - kbo(:,48, 7) = (/ & - & 0.54454e-05,0.61678e-05,0.69329e-05,0.77845e-05,0.87984e-05 /) - kbo(:,49, 7) = (/ & - & 0.43942e-05,0.50075e-05,0.56558e-05,0.63802e-05,0.72168e-05 /) - kbo(:,50, 7) = (/ & - & 0.35518e-05,0.40682e-05,0.46246e-05,0.52318e-05,0.59289e-05 /) - kbo(:,51, 7) = (/ & - & 0.28695e-05,0.33032e-05,0.37766e-05,0.42938e-05,0.48871e-05 /) - kbo(:,52, 7) = (/ & - & 0.23151e-05,0.26733e-05,0.30760e-05,0.35184e-05,0.40216e-05 /) - kbo(:,53, 7) = (/ & - & 0.18635e-05,0.21569e-05,0.24979e-05,0.28705e-05,0.33004e-05 /) - kbo(:,54, 7) = (/ & - & 0.15043e-05,0.17492e-05,0.20309e-05,0.23469e-05,0.27129e-05 /) - kbo(:,55, 7) = (/ & - & 0.12156e-05,0.14170e-05,0.16506e-05,0.19188e-05,0.22303e-05 /) - kbo(:,56, 7) = (/ & - & 0.98090e-06,0.11440e-05,0.13395e-05,0.15647e-05,0.18280e-05 /) - kbo(:,57, 7) = (/ & - & 0.79029e-06,0.92216e-06,0.10880e-05,0.12732e-05,0.14934e-05 /) - kbo(:,58, 7) = (/ & - & 0.63691e-06,0.74365e-06,0.88187e-06,0.10375e-05,0.12193e-05 /) - kbo(:,59, 7) = (/ & - & 0.52696e-06,0.61783e-06,0.73672e-06,0.87054e-06,0.10284e-05 /) - kbo(:,13, 8) = (/ & - & 0.57453e-02,0.59077e-02,0.61032e-02,0.63038e-02,0.65156e-02 /) - kbo(:,14, 8) = (/ & - & 0.49738e-02,0.51301e-02,0.52927e-02,0.54623e-02,0.56575e-02 /) - kbo(:,15, 8) = (/ & - & 0.43017e-02,0.44326e-02,0.45703e-02,0.47292e-02,0.49039e-02 /) - kbo(:,16, 8) = (/ & - & 0.37082e-02,0.38170e-02,0.39427e-02,0.40844e-02,0.42438e-02 /) - kbo(:,17, 8) = (/ & - & 0.31847e-02,0.32833e-02,0.33960e-02,0.35252e-02,0.36740e-02 /) - kbo(:,18, 8) = (/ & - & 0.27225e-02,0.28155e-02,0.29216e-02,0.30449e-02,0.31911e-02 /) - kbo(:,19, 8) = (/ & - & 0.23309e-02,0.24127e-02,0.25113e-02,0.26325e-02,0.27748e-02 /) - kbo(:,20, 8) = (/ & - & 0.19939e-02,0.20703e-02,0.21659e-02,0.22816e-02,0.24232e-02 /) - kbo(:,21, 8) = (/ & - & 0.17051e-02,0.17809e-02,0.18754e-02,0.19919e-02,0.21299e-02 /) - kbo(:,22, 8) = (/ & - & 0.14632e-02,0.15412e-02,0.16376e-02,0.17554e-02,0.18936e-02 /) - kbo(:,23, 8) = (/ & - & 0.12639e-02,0.13422e-02,0.14407e-02,0.15575e-02,0.16941e-02 /) - kbo(:,24, 8) = (/ & - & 0.10971e-02,0.11767e-02,0.12764e-02,0.13939e-02,0.15238e-02 /) - kbo(:,25, 8) = (/ & - & 0.95870e-03,0.10413e-02,0.11414e-02,0.12556e-02,0.13798e-02 /) - kbo(:,26, 8) = (/ & - & 0.84686e-03,0.93021e-03,0.10287e-02,0.11374e-02,0.12572e-02 /) - kbo(:,27, 8) = (/ & - & 0.75447e-03,0.83724e-03,0.93234e-03,0.10369e-02,0.11513e-02 /) - kbo(:,28, 8) = (/ & - & 0.67798e-03,0.75937e-03,0.85009e-03,0.95072e-03,0.10606e-02 /) - kbo(:,29, 8) = (/ & - & 0.61364e-03,0.69262e-03,0.77994e-03,0.87674e-03,0.98252e-03 /) - kbo(:,30, 8) = (/ & - & 0.55903e-03,0.63520e-03,0.71974e-03,0.81322e-03,0.91554e-03 /) - kbo(:,31, 8) = (/ & - & 0.51301e-03,0.58698e-03,0.66923e-03,0.75972e-03,0.85851e-03 /) - kbo(:,32, 8) = (/ & - & 0.47350e-03,0.54617e-03,0.62663e-03,0.71470e-03,0.81105e-03 /) - kbo(:,33, 8) = (/ & - & 0.44016e-03,0.51136e-03,0.58994e-03,0.67638e-03,0.77061e-03 /) - kbo(:,34, 8) = (/ & - & 0.40944e-03,0.47900e-03,0.55611e-03,0.64143e-03,0.73316e-03 /) - kbo(:,35, 8) = (/ & - & 0.37741e-03,0.44487e-03,0.52031e-03,0.60323e-03,0.69243e-03 /) - kbo(:,36, 8) = (/ & - & 0.34297e-03,0.40766e-03,0.48086e-03,0.56132e-03,0.64787e-03 /) - kbo(:,37, 8) = (/ & - & 0.30431e-03,0.36499e-03,0.43465e-03,0.51167e-03,0.59496e-03 /) - kbo(:,38, 8) = (/ & - & 0.26970e-03,0.32665e-03,0.39267e-03,0.46706e-03,0.54760e-03 /) - kbo(:,39, 8) = (/ & - & 0.23923e-03,0.29254e-03,0.35537e-03,0.42706e-03,0.50543e-03 /) - kbo(:,40, 8) = (/ & - & 0.20758e-03,0.25688e-03,0.31519e-03,0.38349e-03,0.45925e-03 /) - kbo(:,41, 8) = (/ & - & 0.17937e-03,0.22435e-03,0.27886e-03,0.34337e-03,0.41641e-03 /) - kbo(:,42, 8) = (/ & - & 0.15469e-03,0.19589e-03,0.24606e-03,0.30674e-03,0.37723e-03 /) - kbo(:,43, 8) = (/ & - & 0.13101e-03,0.16796e-03,0.21371e-03,0.26992e-03,0.33751e-03 /) - kbo(:,44, 8) = (/ & - & 0.10980e-03,0.14260e-03,0.18396e-03,0.23557e-03,0.29905e-03 /) - kbo(:,45, 8) = (/ & - & 0.91682e-04,0.12045e-03,0.15770e-03,0.20472e-03,0.26370e-03 /) - kbo(:,46, 8) = (/ & - & 0.75628e-04,0.10059e-03,0.13347e-03,0.17595e-03,0.22995e-03 /) - kbo(:,47, 8) = (/ & - & 0.61269e-04,0.82597e-04,0.11115e-03,0.14863e-03,0.19734e-03 /) - kbo(:,48, 8) = (/ & - & 0.49295e-04,0.67304e-04,0.91698e-04,0.12475e-03,0.16838e-03 /) - kbo(:,49, 8) = (/ & - & 0.39400e-04,0.54424e-04,0.75252e-04,0.10388e-03,0.14254e-03 /) - kbo(:,50, 8) = (/ & - & 0.31621e-04,0.44130e-04,0.61905e-04,0.86583e-04,0.12082e-03 /) - kbo(:,51, 8) = (/ & - & 0.25214e-04,0.35613e-04,0.50609e-04,0.71998e-04,0.10219e-03 /) - kbo(:,52, 8) = (/ & - & 0.20045e-04,0.28626e-04,0.41171e-04,0.59458e-04,0.85829e-04 /) - kbo(:,53, 8) = (/ & - & 0.15795e-04,0.22859e-04,0.33218e-04,0.48810e-04,0.71516e-04 /) - kbo(:,54, 8) = (/ & - & 0.12537e-04,0.18343e-04,0.26979e-04,0.40183e-04,0.59926e-04 /) - kbo(:,55, 8) = (/ & - & 0.99418e-05,0.14675e-04,0.21893e-04,0.33017e-04,0.50138e-04 /) - kbo(:,56, 8) = (/ & - & 0.78293e-05,0.11672e-04,0.17663e-04,0.26975e-04,0.41690e-04 /) - kbo(:,57, 8) = (/ & - & 0.61519e-05,0.92383e-05,0.14184e-04,0.21901e-04,0.34420e-04 /) - kbo(:,58, 8) = (/ & - & 0.48509e-05,0.73119e-05,0.11341e-04,0.17783e-04,0.28416e-04 /) - kbo(:,59, 8) = (/ & - & 0.41003e-05,0.62461e-05,0.98307e-05,0.15678e-04,0.25521e-04 /) - kbo(:,13, 9) = (/ & - & 0.31088e-01,0.30978e-01,0.31134e-01,0.31580e-01,0.32297e-01 /) - kbo(:,14, 9) = (/ & - & 0.26804e-01,0.26913e-01,0.27323e-01,0.28019e-01,0.28853e-01 /) - kbo(:,15, 9) = (/ & - & 0.23192e-01,0.23530e-01,0.24156e-01,0.24918e-01,0.25770e-01 /) - kbo(:,16, 9) = (/ & - & 0.20205e-01,0.20738e-01,0.21411e-01,0.22189e-01,0.23073e-01 /) - kbo(:,17, 9) = (/ & - & 0.17721e-01,0.18309e-01,0.19005e-01,0.19816e-01,0.20712e-01 /) - kbo(:,18, 9) = (/ & - & 0.15569e-01,0.16175e-01,0.16902e-01,0.17717e-01,0.18588e-01 /) - kbo(:,19, 9) = (/ & - & 0.13679e-01,0.14314e-01,0.15046e-01,0.15840e-01,0.16695e-01 /) - kbo(:,20, 9) = (/ & - & 0.12060e-01,0.12704e-01,0.13416e-01,0.14184e-01,0.14994e-01 /) - kbo(:,21, 9) = (/ & - & 0.10678e-01,0.11296e-01,0.11975e-01,0.12694e-01,0.13474e-01 /) - kbo(:,22, 9) = (/ & - & 0.95206e-02,0.10114e-01,0.10744e-01,0.11429e-01,0.12190e-01 /) - kbo(:,23, 9) = (/ & - & 0.85244e-02,0.90705e-02,0.96690e-02,0.10334e-01,0.11084e-01 /) - kbo(:,24, 9) = (/ & - & 0.76472e-02,0.81682e-02,0.87428e-02,0.93948e-02,0.10155e-01 /) - kbo(:,25, 9) = (/ & - & 0.68906e-02,0.73887e-02,0.79555e-02,0.86116e-02,0.93920e-02 /) - kbo(:,26, 9) = (/ & - & 0.62406e-02,0.67330e-02,0.73033e-02,0.79807e-02,0.87803e-02 /) - kbo(:,27, 9) = (/ & - & 0.56879e-02,0.61818e-02,0.67732e-02,0.74721e-02,0.82924e-02 /) - kbo(:,28, 9) = (/ & - & 0.52214e-02,0.57290e-02,0.63416e-02,0.70614e-02,0.79109e-02 /) - kbo(:,29, 9) = (/ & - & 0.48396e-02,0.53718e-02,0.60023e-02,0.67493e-02,0.76290e-02 /) - kbo(:,30, 9) = (/ & - & 0.45394e-02,0.50868e-02,0.57419e-02,0.65213e-02,0.74390e-02 /) - kbo(:,31, 9) = (/ & - & 0.42997e-02,0.48721e-02,0.55579e-02,0.63736e-02,0.73370e-02 /) - kbo(:,32, 9) = (/ & - & 0.41212e-02,0.47209e-02,0.54422e-02,0.62987e-02,0.73128e-02 /) - kbo(:,33, 9) = (/ & - & 0.39976e-02,0.46295e-02,0.53893e-02,0.62949e-02,0.73658e-02 /) - kbo(:,34, 9) = (/ & - & 0.39007e-02,0.45672e-02,0.53672e-02,0.63167e-02,0.74374e-02 /) - kbo(:,35, 9) = (/ & - & 0.37869e-02,0.44770e-02,0.53019e-02,0.62849e-02,0.74424e-02 /) - kbo(:,36, 9) = (/ & - & 0.36393e-02,0.43376e-02,0.51746e-02,0.61726e-02,0.73435e-02 /) - kbo(:,37, 9) = (/ & - & 0.34235e-02,0.41098e-02,0.49353e-02,0.59226e-02,0.70781e-02 /) - kbo(:,38, 9) = (/ & - & 0.32247e-02,0.38981e-02,0.47125e-02,0.56849e-02,0.68251e-02 /) - kbo(:,39, 9) = (/ & - & 0.30456e-02,0.37107e-02,0.45116e-02,0.54683e-02,0.65906e-02 /) - kbo(:,40, 9) = (/ & - & 0.28232e-02,0.34654e-02,0.42389e-02,0.51610e-02,0.62484e-02 /) - kbo(:,41, 9) = (/ & - & 0.26119e-02,0.32290e-02,0.39730e-02,0.48613e-02,0.59121e-02 /) - kbo(:,42, 9) = (/ & - & 0.24180e-02,0.30088e-02,0.37246e-02,0.45813e-02,0.55929e-02 /) - kbo(:,43, 9) = (/ & - & 0.22093e-02,0.27691e-02,0.34494e-02,0.42630e-02,0.52317e-02 /) - kbo(:,44, 9) = (/ & - & 0.20033e-02,0.25304e-02,0.31741e-02,0.39439e-02,0.48637e-02 /) - kbo(:,45, 9) = (/ & - & 0.18130e-02,0.23086e-02,0.29181e-02,0.36487e-02,0.45175e-02 /) - kbo(:,46, 9) = (/ & - & 0.16283e-02,0.20910e-02,0.26646e-02,0.33526e-02,0.41695e-02 /) - kbo(:,47, 9) = (/ & - & 0.14435e-02,0.18702e-02,0.24020e-02,0.30439e-02,0.38103e-02 /) - kbo(:,48, 9) = (/ & - & 0.12773e-02,0.16671e-02,0.21576e-02,0.27587e-02,0.34731e-02 /) - kbo(:,49, 9) = (/ & - & 0.11238e-02,0.14806e-02,0.19320e-02,0.24920e-02,0.31602e-02 /) - kbo(:,50, 9) = (/ & - & 0.99065e-03,0.13211e-02,0.17354e-02,0.22582e-02,0.28857e-02 /) - kbo(:,51, 9) = (/ & - & 0.87220e-03,0.11790e-02,0.15607e-02,0.20453e-02,0.26367e-02 /) - kbo(:,52, 9) = (/ & - & 0.76443e-03,0.10482e-02,0.13992e-02,0.18469e-02,0.24023e-02 /) - kbo(:,53, 9) = (/ & - & 0.66506e-03,0.92645e-03,0.12548e-02,0.16624e-02,0.21789e-02 /) - kbo(:,54, 9) = (/ & - & 0.58147e-03,0.82449e-03,0.11302e-02,0.15093e-02,0.19886e-02 /) - kbo(:,55, 9) = (/ & - & 0.50762e-03,0.73235e-03,0.10182e-02,0.13732e-02,0.18200e-02 /) - kbo(:,56, 9) = (/ & - & 0.44063e-03,0.64710e-03,0.91345e-03,0.12471e-02,0.16632e-02 /) - kbo(:,57, 9) = (/ & - & 0.37891e-03,0.56859e-03,0.81680e-03,0.11290e-02,0.15165e-02 /) - kbo(:,58, 9) = (/ & - & 0.32563e-03,0.50022e-03,0.73037e-03,0.10236e-02,0.13873e-02 /) - kbo(:,59, 9) = (/ & - & 0.30307e-03,0.47208e-03,0.69548e-03,0.98198e-03,0.13371e-02 /) - kbo(:,13,10) = (/ & - & 0.13405e+00,0.13208e+00,0.13012e+00,0.12819e+00,0.12637e+00 /) - kbo(:,14,10) = (/ & - & 0.11726e+00,0.11549e+00,0.11376e+00,0.11219e+00,0.11171e+00 /) - kbo(:,15,10) = (/ & - & 0.10125e+00,0.99749e-01,0.98394e-01,0.98385e-01,0.99981e-01 /) - kbo(:,16,10) = (/ & - & 0.86553e-01,0.85383e-01,0.85602e-01,0.87440e-01,0.89929e-01 /) - kbo(:,17,10) = (/ & - & 0.73963e-01,0.74028e-01,0.75744e-01,0.77969e-01,0.80306e-01 /) - kbo(:,18,10) = (/ & - & 0.64249e-01,0.65620e-01,0.67504e-01,0.69584e-01,0.72235e-01 /) - kbo(:,19,10) = (/ & - & 0.56934e-01,0.58613e-01,0.60462e-01,0.62855e-01,0.65899e-01 /) - kbo(:,20,10) = (/ & - & 0.50721e-01,0.52418e-01,0.54615e-01,0.57565e-01,0.61049e-01 /) - kbo(:,21,10) = (/ & - & 0.45027e-01,0.47161e-01,0.49911e-01,0.53249e-01,0.56950e-01 /) - kbo(:,22,10) = (/ & - & 0.40301e-01,0.42891e-01,0.46164e-01,0.49801e-01,0.53839e-01 /) - kbo(:,23,10) = (/ & - & 0.36438e-01,0.39487e-01,0.43011e-01,0.46965e-01,0.50969e-01 /) - kbo(:,24,10) = (/ & - & 0.33455e-01,0.36675e-01,0.40451e-01,0.44369e-01,0.48399e-01 /) - kbo(:,25,10) = (/ & - & 0.31038e-01,0.34461e-01,0.38146e-01,0.42075e-01,0.46138e-01 /) - kbo(:,26,10) = (/ & - & 0.29184e-01,0.32533e-01,0.36194e-01,0.40134e-01,0.44371e-01 /) - kbo(:,27,10) = (/ & - & 0.27607e-01,0.30907e-01,0.34540e-01,0.38584e-01,0.43101e-01 /) - kbo(:,28,10) = (/ & - & 0.26262e-01,0.29536e-01,0.33259e-01,0.37529e-01,0.42311e-01 /) - kbo(:,29,10) = (/ & - & 0.25199e-01,0.28472e-01,0.32405e-01,0.36927e-01,0.42052e-01 /) - kbo(:,30,10) = (/ & - & 0.24317e-01,0.27783e-01,0.31948e-01,0.36772e-01,0.42176e-01 /) - kbo(:,31,10) = (/ & - & 0.23777e-01,0.27457e-01,0.31879e-01,0.37001e-01,0.42663e-01 /) - kbo(:,32,10) = (/ & - & 0.23540e-01,0.27481e-01,0.32177e-01,0.37596e-01,0.43567e-01 /) - kbo(:,33,10) = (/ & - & 0.23597e-01,0.27797e-01,0.32792e-01,0.38465e-01,0.44641e-01 /) - kbo(:,34,10) = (/ & - & 0.23769e-01,0.28231e-01,0.33430e-01,0.39373e-01,0.45740e-01 /) - kbo(:,35,10) = (/ & - & 0.23751e-01,0.28376e-01,0.33764e-01,0.39814e-01,0.46255e-01 /) - kbo(:,36,10) = (/ & - & 0.23409e-01,0.28117e-01,0.33564e-01,0.39651e-01,0.46138e-01 /) - kbo(:,37,10) = (/ & - & 0.22508e-01,0.27169e-01,0.32556e-01,0.38592e-01,0.45071e-01 /) - kbo(:,38,10) = (/ & - & 0.21655e-01,0.26262e-01,0.31543e-01,0.37540e-01,0.43984e-01 /) - kbo(:,39,10) = (/ & - & 0.20895e-01,0.25391e-01,0.30600e-01,0.36519e-01,0.42890e-01 /) - kbo(:,40,10) = (/ & - & 0.19794e-01,0.24108e-01,0.29157e-01,0.34891e-01,0.41215e-01 /) - kbo(:,41,10) = (/ & - & 0.18688e-01,0.22822e-01,0.27713e-01,0.33302e-01,0.39460e-01 /) - kbo(:,42,10) = (/ & - & 0.17627e-01,0.21623e-01,0.26302e-01,0.31747e-01,0.37731e-01 /) - kbo(:,43,10) = (/ & - & 0.16446e-01,0.20270e-01,0.24738e-01,0.29940e-01,0.35800e-01 /) - kbo(:,44,10) = (/ & - & 0.15234e-01,0.18876e-01,0.23100e-01,0.28072e-01,0.33725e-01 /) - kbo(:,45,10) = (/ & - & 0.14095e-01,0.17542e-01,0.21553e-01,0.26276e-01,0.31735e-01 /) - kbo(:,46,10) = (/ & - & 0.12980e-01,0.16215e-01,0.20030e-01,0.24474e-01,0.29695e-01 /) - kbo(:,47,10) = (/ & - & 0.11800e-01,0.14839e-01,0.18423e-01,0.22582e-01,0.27493e-01 /) - kbo(:,48,10) = (/ & - & 0.10669e-01,0.13547e-01,0.16901e-01,0.20822e-01,0.25431e-01 /) - kbo(:,49,10) = (/ & - & 0.96515e-02,0.12347e-01,0.15476e-01,0.19181e-01,0.23474e-01 /) - kbo(:,50,10) = (/ & - & 0.87302e-02,0.11282e-01,0.14230e-01,0.17719e-01,0.21773e-01 /) - kbo(:,51,10) = (/ & - & 0.78879e-02,0.10297e-01,0.13106e-01,0.16387e-01,0.20218e-01 /) - kbo(:,52,10) = (/ & - & 0.71141e-02,0.93631e-02,0.12059e-01,0.15140e-01,0.18761e-01 /) - kbo(:,53,10) = (/ & - & 0.64033e-02,0.84706e-02,0.11019e-01,0.13962e-01,0.17391e-01 /) - kbo(:,54,10) = (/ & - & 0.58003e-02,0.77325e-02,0.10121e-01,0.12913e-01,0.16185e-01 /) - kbo(:,55,10) = (/ & - & 0.52567e-02,0.70672e-02,0.93006e-02,0.11949e-01,0.15064e-01 /) - kbo(:,56,10) = (/ & - & 0.47304e-02,0.64466e-02,0.85460e-02,0.11037e-01,0.13988e-01 /) - kbo(:,57,10) = (/ & - & 0.42280e-02,0.58745e-02,0.78453e-02,0.10192e-01,0.12992e-01 /) - kbo(:,58,10) = (/ & - & 0.37744e-02,0.53584e-02,0.72089e-02,0.94309e-02,0.12101e-01 /) - kbo(:,59,10) = (/ & - & 0.36027e-02,0.51588e-02,0.69694e-02,0.91382e-02,0.11759e-01 /) - kbo(:,13,11) = (/ & - & 0.24636e+00,0.24379e+00,0.24122e+00,0.23863e+00,0.23598e+00 /) - kbo(:,14,11) = (/ & - & 0.22272e+00,0.22032e+00,0.21794e+00,0.21559e+00,0.21334e+00 /) - kbo(:,15,11) = (/ & - & 0.19844e+00,0.19619e+00,0.19411e+00,0.19222e+00,0.19047e+00 /) - kbo(:,16,11) = (/ & - & 0.17439e+00,0.17254e+00,0.17092e+00,0.16946e+00,0.16916e+00 /) - kbo(:,17,11) = (/ & - & 0.15164e+00,0.15027e+00,0.14912e+00,0.14939e+00,0.15176e+00 /) - kbo(:,18,11) = (/ & - & 0.13063e+00,0.12971e+00,0.13029e+00,0.13302e+00,0.13748e+00 /) - kbo(:,19,11) = (/ & - & 0.11203e+00,0.11247e+00,0.11508e+00,0.11959e+00,0.12521e+00 /) - kbo(:,20,11) = (/ & - & 0.96916e-01,0.99041e-01,0.10318e+00,0.10837e+00,0.11414e+00 /) - kbo(:,21,11) = (/ & - & 0.85382e-01,0.88824e-01,0.93367e-01,0.98603e-01,0.10483e+00 /) - kbo(:,22,11) = (/ & - & 0.76943e-01,0.80844e-01,0.85377e-01,0.90964e-01,0.97503e-01 /) - kbo(:,23,11) = (/ & - & 0.70041e-01,0.74136e-01,0.79065e-01,0.84905e-01,0.92247e-01 /) - kbo(:,24,11) = (/ & - & 0.64133e-01,0.68708e-01,0.74135e-01,0.80762e-01,0.88658e-01 /) - kbo(:,25,11) = (/ & - & 0.59352e-01,0.64474e-01,0.70718e-01,0.78064e-01,0.86394e-01 /) - kbo(:,26,11) = (/ & - & 0.55652e-01,0.61613e-01,0.68607e-01,0.76451e-01,0.85230e-01 /) - kbo(:,27,11) = (/ & - & 0.53058e-01,0.59792e-01,0.67298e-01,0.75623e-01,0.84830e-01 /) - kbo(:,28,11) = (/ & - & 0.51454e-01,0.58747e-01,0.66709e-01,0.75478e-01,0.85111e-01 /) - kbo(:,29,11) = (/ & - & 0.50601e-01,0.58412e-01,0.66813e-01,0.76014e-01,0.86051e-01 /) - kbo(:,30,11) = (/ & - & 0.50412e-01,0.58677e-01,0.67503e-01,0.77079e-01,0.87490e-01 /) - kbo(:,31,11) = (/ & - & 0.50833e-01,0.59491e-01,0.68713e-01,0.78659e-01,0.89405e-01 /) - kbo(:,32,11) = (/ & - & 0.51770e-01,0.60792e-01,0.70497e-01,0.80769e-01,0.91778e-01 /) - kbo(:,33,11) = (/ & - & 0.53128e-01,0.62590e-01,0.72506e-01,0.83033e-01,0.94354e-01 /) - kbo(:,34,11) = (/ & - & 0.54518e-01,0.64238e-01,0.74390e-01,0.85011e-01,0.96530e-01 /) - kbo(:,35,11) = (/ & - & 0.55323e-01,0.65129e-01,0.75324e-01,0.86085e-01,0.97742e-01 /) - kbo(:,36,11) = (/ & - & 0.55103e-01,0.64989e-01,0.75282e-01,0.86060e-01,0.97722e-01 /) - kbo(:,37,11) = (/ & - & 0.53513e-01,0.63398e-01,0.73617e-01,0.84326e-01,0.95934e-01 /) - kbo(:,38,11) = (/ & - & 0.51839e-01,0.61729e-01,0.71975e-01,0.82585e-01,0.94078e-01 /) - kbo(:,39,11) = (/ & - & 0.50239e-01,0.60161e-01,0.70354e-01,0.80923e-01,0.92345e-01 /) - kbo(:,40,11) = (/ & - & 0.47749e-01,0.57519e-01,0.67663e-01,0.78238e-01,0.89341e-01 /) - kbo(:,41,11) = (/ & - & 0.45220e-01,0.54835e-01,0.64881e-01,0.75369e-01,0.86308e-01 /) - kbo(:,42,11) = (/ & - & 0.42768e-01,0.52225e-01,0.62107e-01,0.72467e-01,0.83297e-01 /) - kbo(:,43,11) = (/ & - & 0.39884e-01,0.49090e-01,0.58932e-01,0.69072e-01,0.79690e-01 /) - kbo(:,44,11) = (/ & - & 0.36935e-01,0.45822e-01,0.55523e-01,0.65525e-01,0.76019e-01 /) - kbo(:,45,11) = (/ & - & 0.34132e-01,0.42684e-01,0.52151e-01,0.62095e-01,0.72392e-01 /) - kbo(:,46,11) = (/ & - & 0.31296e-01,0.39456e-01,0.48596e-01,0.58446e-01,0.68612e-01 /) - kbo(:,47,11) = (/ & - & 0.28352e-01,0.35994e-01,0.44764e-01,0.54432e-01,0.64443e-01 /) - kbo(:,48,11) = (/ & - & 0.25659e-01,0.32738e-01,0.41113e-01,0.50437e-01,0.60364e-01 /) - kbo(:,49,11) = (/ & - & 0.23119e-01,0.29700e-01,0.37617e-01,0.46554e-01,0.56334e-01 /) - kbo(:,50,11) = (/ & - & 0.20913e-01,0.27063e-01,0.34504e-01,0.43055e-01,0.52582e-01 /) - kbo(:,51,11) = (/ & - & 0.18909e-01,0.24701e-01,0.31626e-01,0.39797e-01,0.48997e-01 /) - kbo(:,52,11) = (/ & - & 0.17085e-01,0.22478e-01,0.28924e-01,0.36689e-01,0.45522e-01 /) - kbo(:,53,11) = (/ & - & 0.15363e-01,0.20405e-01,0.26432e-01,0.33725e-01,0.42180e-01 /) - kbo(:,54,11) = (/ & - & 0.13901e-01,0.18604e-01,0.24309e-01,0.31149e-01,0.39236e-01 /) - kbo(:,55,11) = (/ & - & 0.12627e-01,0.16988e-01,0.22381e-01,0.28834e-01,0.36535e-01 /) - kbo(:,56,11) = (/ & - & 0.11410e-01,0.15484e-01,0.20536e-01,0.26668e-01,0.33955e-01 /) - kbo(:,57,11) = (/ & - & 0.10296e-01,0.14074e-01,0.18805e-01,0.24610e-01,0.31477e-01 /) - kbo(:,58,11) = (/ & - & 0.93246e-02,0.12835e-01,0.17266e-01,0.22752e-01,0.29238e-01 /) - kbo(:,59,11) = (/ & - & 0.89562e-02,0.12359e-01,0.16676e-01,0.22030e-01,0.28380e-01 /) - kbo(:,13,12) = (/ & - & 0.46920e+00,0.46679e+00,0.46431e+00,0.46162e+00,0.45841e+00 /) - kbo(:,14,12) = (/ & - & 0.44978e+00,0.44747e+00,0.44532e+00,0.44273e+00,0.44032e+00 /) - kbo(:,15,12) = (/ & - & 0.42273e+00,0.42112e+00,0.41952e+00,0.41793e+00,0.41621e+00 /) - kbo(:,16,12) = (/ & - & 0.39050e+00,0.38973e+00,0.38909e+00,0.38861e+00,0.38845e+00 /) - kbo(:,17,12) = (/ & - & 0.35567e+00,0.35584e+00,0.35648e+00,0.35743e+00,0.35846e+00 /) - kbo(:,18,12) = (/ & - & 0.32023e+00,0.32164e+00,0.32356e+00,0.32582e+00,0.32854e+00 /) - kbo(:,19,12) = (/ & - & 0.28599e+00,0.28851e+00,0.29173e+00,0.29552e+00,0.30048e+00 /) - kbo(:,20,12) = (/ & - & 0.25381e+00,0.25750e+00,0.26208e+00,0.26822e+00,0.27683e+00 /) - kbo(:,21,12) = (/ & - & 0.22440e+00,0.22938e+00,0.23617e+00,0.24559e+00,0.25713e+00 /) - kbo(:,22,12) = (/ & - & 0.19852e+00,0.20554e+00,0.21550e+00,0.22788e+00,0.24207e+00 /) - kbo(:,23,12) = (/ & - & 0.17693e+00,0.18660e+00,0.19922e+00,0.21410e+00,0.23064e+00 /) - kbo(:,24,12) = (/ & - & 0.16009e+00,0.17209e+00,0.18673e+00,0.20389e+00,0.22257e+00 /) - kbo(:,25,12) = (/ & - & 0.14745e+00,0.16127e+00,0.17793e+00,0.19685e+00,0.21752e+00 /) - kbo(:,26,12) = (/ & - & 0.13842e+00,0.15401e+00,0.17237e+00,0.19313e+00,0.21550e+00 /) - kbo(:,27,12) = (/ & - & 0.13240e+00,0.14962e+00,0.16961e+00,0.19199e+00,0.21568e+00 /) - kbo(:,28,12) = (/ & - & 0.12889e+00,0.14761e+00,0.16917e+00,0.19286e+00,0.21743e+00 /) - kbo(:,29,12) = (/ & - & 0.12765e+00,0.14781e+00,0.17068e+00,0.19527e+00,0.22046e+00 /) - kbo(:,30,12) = (/ & - & 0.12821e+00,0.14964e+00,0.17352e+00,0.19873e+00,0.22436e+00 /) - kbo(:,31,12) = (/ & - & 0.13031e+00,0.15282e+00,0.17742e+00,0.20308e+00,0.22902e+00 /) - kbo(:,32,12) = (/ & - & 0.13354e+00,0.15691e+00,0.18189e+00,0.20791e+00,0.23394e+00 /) - kbo(:,33,12) = (/ & - & 0.13759e+00,0.16158e+00,0.18710e+00,0.21336e+00,0.23934e+00 /) - kbo(:,34,12) = (/ & - & 0.14143e+00,0.16592e+00,0.19181e+00,0.21830e+00,0.24425e+00 /) - kbo(:,35,12) = (/ & - & 0.14328e+00,0.16813e+00,0.19433e+00,0.22092e+00,0.24688e+00 /) - kbo(:,36,12) = (/ & - & 0.14288e+00,0.16783e+00,0.19405e+00,0.22076e+00,0.24684e+00 /) - kbo(:,37,12) = (/ & - & 0.13900e+00,0.16377e+00,0.19000e+00,0.21677e+00,0.24302e+00 /) - kbo(:,38,12) = (/ & - & 0.13517e+00,0.15969e+00,0.18575e+00,0.21259e+00,0.23902e+00 /) - kbo(:,39,12) = (/ & - & 0.13148e+00,0.15568e+00,0.18162e+00,0.20849e+00,0.23507e+00 /) - kbo(:,40,12) = (/ & - & 0.12553e+00,0.14932e+00,0.17494e+00,0.20171e+00,0.22853e+00 /) - kbo(:,41,12) = (/ & - & 0.11952e+00,0.14280e+00,0.16803e+00,0.19459e+00,0.22156e+00 /) - kbo(:,42,12) = (/ & - & 0.11373e+00,0.13636e+00,0.16129e+00,0.18763e+00,0.21464e+00 /) - kbo(:,43,12) = (/ & - & 0.10701e+00,0.12880e+00,0.15312e+00,0.17916e+00,0.20617e+00 /) - kbo(:,44,12) = (/ & - & 0.10010e+00,0.12097e+00,0.14449e+00,0.17006e+00,0.19689e+00 /) - kbo(:,45,12) = (/ & - & 0.93559e-01,0.11347e+00,0.13614e+00,0.16117e+00,0.18764e+00 /) - kbo(:,46,12) = (/ & - & 0.86985e-01,0.10587e+00,0.12759e+00,0.15183e+00,0.17790e+00 /) - kbo(:,47,12) = (/ & - & 0.79918e-01,0.97829e-01,0.11842e+00,0.14172e+00,0.16718e+00 /) - kbo(:,48,12) = (/ & - & 0.73127e-01,0.90284e-01,0.10972e+00,0.13198e+00,0.15666e+00 /) - kbo(:,49,12) = (/ & - & 0.66713e-01,0.83137e-01,0.10149e+00,0.12264e+00,0.14642e+00 /) - kbo(:,50,12) = (/ & - & 0.61017e-01,0.76653e-01,0.94210e-01,0.11429e+00,0.13713e+00 /) - kbo(:,51,12) = (/ & - & 0.55806e-01,0.70628e-01,0.87552e-01,0.10658e+00,0.12844e+00 /) - kbo(:,52,12) = (/ & - & 0.50954e-01,0.64939e-01,0.81159e-01,0.99264e-01,0.12011e+00 /) - kbo(:,53,12) = (/ & - & 0.46354e-01,0.59512e-01,0.74951e-01,0.92338e-01,0.11214e+00 /) - kbo(:,54,12) = (/ & - & 0.42433e-01,0.54851e-01,0.69504e-01,0.86317e-01,0.10517e+00 /) - kbo(:,55,12) = (/ & - & 0.38912e-01,0.50588e-01,0.64547e-01,0.80719e-01,0.98779e-01 /) - kbo(:,56,12) = (/ & - & 0.35756e-01,0.46572e-01,0.59794e-01,0.75289e-01,0.92719e-01 /) - kbo(:,57,12) = (/ & - & 0.32896e-01,0.42811e-01,0.55328e-01,0.70070e-01,0.86950e-01 /) - kbo(:,58,12) = (/ & - & 0.30447e-01,0.39485e-01,0.51269e-01,0.65351e-01,0.81643e-01 /) - kbo(:,59,12) = (/ & - & 0.29531e-01,0.38222e-01,0.49696e-01,0.63514e-01,0.79546e-01 /) - kbo(:,13,13) = (/ & - & 0.87498e+00,0.87414e+00,0.87195e+00,0.86869e+00,0.86437e+00 /) - kbo(:,14,13) = (/ & - & 0.90060e+00,0.89974e+00,0.89734e+00,0.89423e+00,0.88971e+00 /) - kbo(:,15,13) = (/ & - & 0.91305e+00,0.91211e+00,0.91072e+00,0.90792e+00,0.90457e+00 /) - kbo(:,16,13) = (/ & - & 0.91218e+00,0.91265e+00,0.91216e+00,0.91150e+00,0.90908e+00 /) - kbo(:,17,13) = (/ & - & 0.89877e+00,0.90187e+00,0.90414e+00,0.90531e+00,0.90588e+00 /) - kbo(:,18,13) = (/ & - & 0.87718e+00,0.88256e+00,0.88815e+00,0.89271e+00,0.89636e+00 /) - kbo(:,19,13) = (/ & - & 0.84784e+00,0.85815e+00,0.86718e+00,0.87552e+00,0.88267e+00 /) - kbo(:,20,13) = (/ & - & 0.81552e+00,0.83012e+00,0.84379e+00,0.85649e+00,0.86736e+00 /) - kbo(:,21,13) = (/ & - & 0.78216e+00,0.80141e+00,0.82018e+00,0.83708e+00,0.85197e+00 /) - kbo(:,22,13) = (/ & - & 0.75119e+00,0.77590e+00,0.79904e+00,0.81994e+00,0.83870e+00 /) - kbo(:,23,13) = (/ & - & 0.72390e+00,0.75373e+00,0.78079e+00,0.80579e+00,0.82760e+00 /) - kbo(:,24,13) = (/ & - & 0.70145e+00,0.73523e+00,0.76640e+00,0.79456e+00,0.81899e+00 /) - kbo(:,25,13) = (/ & - & 0.68406e+00,0.72159e+00,0.75604e+00,0.78669e+00,0.81321e+00 /) - kbo(:,26,13) = (/ & - & 0.67200e+00,0.71253e+00,0.74968e+00,0.78214e+00,0.81015e+00 /) - kbo(:,27,13) = (/ & - & 0.66447e+00,0.70740e+00,0.74639e+00,0.77996e+00,0.80903e+00 /) - kbo(:,28,13) = (/ & - & 0.66095e+00,0.70586e+00,0.74565e+00,0.77995e+00,0.80973e+00 /) - kbo(:,29,13) = (/ & - & 0.66138e+00,0.70727e+00,0.74725e+00,0.78204e+00,0.81205e+00 /) - kbo(:,30,13) = (/ & - & 0.66437e+00,0.71055e+00,0.75066e+00,0.78572e+00,0.81538e+00 /) - kbo(:,31,13) = (/ & - & 0.66969e+00,0.71558e+00,0.75561e+00,0.79049e+00,0.81954e+00 /) - kbo(:,32,13) = (/ & - & 0.67664e+00,0.72206e+00,0.76182e+00,0.79609e+00,0.82431e+00 /) - kbo(:,33,13) = (/ & - & 0.68486e+00,0.72960e+00,0.76872e+00,0.80214e+00,0.82949e+00 /) - kbo(:,34,13) = (/ & - & 0.69234e+00,0.73624e+00,0.77485e+00,0.80729e+00,0.83397e+00 /) - kbo(:,35,13) = (/ & - & 0.69580e+00,0.73958e+00,0.77791e+00,0.80990e+00,0.83618e+00 /) - kbo(:,36,13) = (/ & - & 0.69461e+00,0.73878e+00,0.77738e+00,0.80959e+00,0.83608e+00 /) - kbo(:,37,13) = (/ & - & 0.68652e+00,0.73194e+00,0.77165e+00,0.80500e+00,0.83229e+00 /) - kbo(:,38,13) = (/ & - & 0.67804e+00,0.72484e+00,0.76560e+00,0.80009e+00,0.82834e+00 /) - kbo(:,39,13) = (/ & - & 0.66970e+00,0.71778e+00,0.75963e+00,0.79504e+00,0.82429e+00 /) - kbo(:,40,13) = (/ & - & 0.65605e+00,0.70590e+00,0.74946e+00,0.78658e+00,0.81742e+00 /) - kbo(:,41,13) = (/ & - & 0.64137e+00,0.69306e+00,0.73837e+00,0.77717e+00,0.80985e+00 /) - kbo(:,42,13) = (/ & - & 0.62638e+00,0.67987e+00,0.72699e+00,0.76756e+00,0.80186e+00 /) - kbo(:,43,13) = (/ & - & 0.60761e+00,0.66320e+00,0.71239e+00,0.75526e+00,0.79130e+00 /) - kbo(:,44,13) = (/ & - & 0.58682e+00,0.64468e+00,0.69616e+00,0.74131e+00,0.77948e+00 /) - kbo(:,45,13) = (/ & - & 0.56554e+00,0.62545e+00,0.67917e+00,0.72630e+00,0.76697e+00 /) - kbo(:,46,13) = (/ & - & 0.54212e+00,0.60419e+00,0.66020e+00,0.70997e+00,0.75300e+00 /) - kbo(:,47,13) = (/ & - & 0.51537e+00,0.57955e+00,0.63814e+00,0.69060e+00,0.73632e+00 /) - kbo(:,48,13) = (/ & - & 0.48823e+00,0.55406e+00,0.61515e+00,0.67007e+00,0.71851e+00 /) - kbo(:,49,13) = (/ & - & 0.46082e+00,0.52769e+00,0.59101e+00,0.64854e+00,0.69978e+00 /) - kbo(:,50,13) = (/ & - & 0.43478e+00,0.50249e+00,0.56761e+00,0.62745e+00,0.68113e+00 /) - kbo(:,51,13) = (/ & - & 0.40951e+00,0.47777e+00,0.54418e+00,0.60613e+00,0.66212e+00 /) - kbo(:,52,13) = (/ & - & 0.38439e+00,0.45288e+00,0.52007e+00,0.58405e+00,0.64238e+00 /) - kbo(:,53,13) = (/ & - & 0.35936e+00,0.42773e+00,0.49564e+00,0.56121e+00,0.62177e+00 /) - kbo(:,54,13) = (/ & - & 0.33659e+00,0.40461e+00,0.47296e+00,0.53959e+00,0.60208e+00 /) - kbo(:,55,13) = (/ & - & 0.31505e+00,0.38259e+00,0.45108e+00,0.51845e+00,0.58256e+00 /) - kbo(:,56,13) = (/ & - & 0.29381e+00,0.36074e+00,0.42910e+00,0.49702e+00,0.56263e+00 /) - kbo(:,57,13) = (/ & - & 0.27284e+00,0.33897e+00,0.40701e+00,0.47542e+00,0.54206e+00 /) - kbo(:,58,13) = (/ & - & 0.25321e+00,0.31859e+00,0.38622e+00,0.45477e+00,0.52205e+00 /) - kbo(:,59,13) = (/ & - & 0.24543e+00,0.31049e+00,0.37793e+00,0.44646e+00,0.51396e+00 /) - kbo(:,13,14) = (/ & - & 0.17373e+01,0.17393e+01,0.17383e+01,0.17344e+01,0.17279e+01 /) - kbo(:,14,14) = (/ & - & 0.18339e+01,0.18343e+01,0.18325e+01,0.18267e+01,0.18189e+01 /) - kbo(:,15,14) = (/ & - & 0.19299e+01,0.19296e+01,0.19248e+01,0.19184e+01,0.19080e+01 /) - kbo(:,16,14) = (/ & - & 0.20259e+01,0.20224e+01,0.20169e+01,0.20066e+01,0.19945e+01 /) - kbo(:,17,14) = (/ & - & 0.21175e+01,0.21127e+01,0.21039e+01,0.20921e+01,0.20768e+01 /) - kbo(:,18,14) = (/ & - & 0.22042e+01,0.21972e+01,0.21859e+01,0.21721e+01,0.21537e+01 /) - kbo(:,19,14) = (/ & - & 0.22848e+01,0.22747e+01,0.22622e+01,0.22448e+01,0.22240e+01 /) - kbo(:,20,14) = (/ & - & 0.23560e+01,0.23462e+01,0.23302e+01,0.23098e+01,0.22867e+01 /) - kbo(:,21,14) = (/ & - & 0.24183e+01,0.24082e+01,0.23905e+01,0.23680e+01,0.23418e+01 /) - kbo(:,22,14) = (/ & - & 0.24717e+01,0.24598e+01,0.24413e+01,0.24169e+01,0.23867e+01 /) - kbo(:,23,14) = (/ & - & 0.25171e+01,0.25034e+01,0.24840e+01,0.24570e+01,0.24242e+01 /) - kbo(:,24,14) = (/ & - & 0.25547e+01,0.25403e+01,0.25194e+01,0.24898e+01,0.24547e+01 /) - kbo(:,25,14) = (/ & - & 0.25855e+01,0.25703e+01,0.25468e+01,0.25156e+01,0.24784e+01 /) - kbo(:,26,14) = (/ & - & 0.26110e+01,0.25944e+01,0.25683e+01,0.25352e+01,0.24957e+01 /) - kbo(:,27,14) = (/ & - & 0.26319e+01,0.26130e+01,0.25843e+01,0.25495e+01,0.25077e+01 /) - kbo(:,28,14) = (/ & - & 0.26480e+01,0.26264e+01,0.25959e+01,0.25590e+01,0.25150e+01 /) - kbo(:,29,14) = (/ & - & 0.26603e+01,0.26355e+01,0.26036e+01,0.25644e+01,0.25186e+01 /) - kbo(:,30,14) = (/ & - & 0.26690e+01,0.26417e+01,0.26076e+01,0.25661e+01,0.25188e+01 /) - kbo(:,31,14) = (/ & - & 0.26742e+01,0.26446e+01,0.26086e+01,0.25648e+01,0.25163e+01 /) - kbo(:,32,14) = (/ & - & 0.26768e+01,0.26452e+01,0.26068e+01,0.25609e+01,0.25113e+01 /) - kbo(:,33,14) = (/ & - & 0.26771e+01,0.26434e+01,0.26028e+01,0.25551e+01,0.25044e+01 /) - kbo(:,34,14) = (/ & - & 0.26762e+01,0.26409e+01,0.25981e+01,0.25494e+01,0.24981e+01 /) - kbo(:,35,14) = (/ & - & 0.26773e+01,0.26407e+01,0.25970e+01,0.25475e+01,0.24957e+01 /) - kbo(:,36,14) = (/ & - & 0.26808e+01,0.26440e+01,0.25999e+01,0.25501e+01,0.24981e+01 /) - kbo(:,37,14) = (/ & - & 0.26888e+01,0.26526e+01,0.26095e+01,0.25599e+01,0.25079e+01 /) - kbo(:,38,14) = (/ & - & 0.26963e+01,0.26609e+01,0.26186e+01,0.25695e+01,0.25177e+01 /) - kbo(:,39,14) = (/ & - & 0.27030e+01,0.26686e+01,0.26272e+01,0.25787e+01,0.25269e+01 /) - kbo(:,40,14) = (/ & - & 0.27118e+01,0.26792e+01,0.26399e+01,0.25927e+01,0.25414e+01 /) - kbo(:,41,14) = (/ & - & 0.27201e+01,0.26898e+01,0.26520e+01,0.26068e+01,0.25561e+01 /) - kbo(:,42,14) = (/ & - & 0.27274e+01,0.27000e+01,0.26636e+01,0.26203e+01,0.25704e+01 /) - kbo(:,43,14) = (/ & - & 0.27341e+01,0.27108e+01,0.26767e+01,0.26357e+01,0.25871e+01 /) - kbo(:,44,14) = (/ & - & 0.27398e+01,0.27209e+01,0.26898e+01,0.26513e+01,0.26050e+01 /) - kbo(:,45,14) = (/ & - & 0.27435e+01,0.27298e+01,0.27021e+01,0.26655e+01,0.26220e+01 /) - kbo(:,46,14) = (/ & - & 0.27454e+01,0.27371e+01,0.27139e+01,0.26799e+01,0.26391e+01 /) - kbo(:,47,14) = (/ & - & 0.27460e+01,0.27424e+01,0.27253e+01,0.26950e+01,0.26569e+01 /) - kbo(:,48,14) = (/ & - & 0.27436e+01,0.27457e+01,0.27342e+01,0.27088e+01,0.26736e+01 /) - kbo(:,49,14) = (/ & - & 0.27370e+01,0.27470e+01,0.27411e+01,0.27207e+01,0.26888e+01 /) - kbo(:,50,14) = (/ & - & 0.27269e+01,0.27459e+01,0.27451e+01,0.27305e+01,0.27022e+01 /) - kbo(:,51,14) = (/ & - & 0.27139e+01,0.27424e+01,0.27470e+01,0.27377e+01,0.27140e+01 /) - kbo(:,52,14) = (/ & - & 0.26965e+01,0.27350e+01,0.27474e+01,0.27429e+01,0.27243e+01 /) - kbo(:,53,14) = (/ & - & 0.26758e+01,0.27241e+01,0.27457e+01,0.27461e+01,0.27331e+01 /) - kbo(:,54,14) = (/ & - & 0.26529e+01,0.27108e+01,0.27417e+01,0.27475e+01,0.27393e+01 /) - kbo(:,55,14) = (/ & - & 0.26271e+01,0.26955e+01,0.27349e+01,0.27476e+01,0.27437e+01 /) - kbo(:,56,14) = (/ & - & 0.25970e+01,0.26775e+01,0.27251e+01,0.27462e+01,0.27464e+01 /) - kbo(:,57,14) = (/ & - & 0.25617e+01,0.26559e+01,0.27125e+01,0.27426e+01,0.27477e+01 /) - kbo(:,58,14) = (/ & - & 0.25247e+01,0.26320e+01,0.26988e+01,0.27363e+01,0.27482e+01 /) - kbo(:,59,14) = (/ & - & 0.25089e+01,0.26212e+01,0.26923e+01,0.27333e+01,0.27480e+01 /) - kbo(:,13,15) = (/ & - & 0.36859e+01,0.36950e+01,0.36942e+01,0.36830e+01,0.36649e+01 /) - kbo(:,14,15) = (/ & - & 0.41563e+01,0.41556e+01,0.41430e+01,0.41233e+01,0.40913e+01 /) - kbo(:,15,15) = (/ & - & 0.46342e+01,0.46206e+01,0.45970e+01,0.45604e+01,0.45153e+01 /) - kbo(:,16,15) = (/ & - & 0.51044e+01,0.50788e+01,0.50384e+01,0.49882e+01,0.49250e+01 /) - kbo(:,17,15) = (/ & - & 0.55612e+01,0.55175e+01,0.54618e+01,0.53932e+01,0.53123e+01 /) - kbo(:,18,15) = (/ & - & 0.59883e+01,0.59323e+01,0.58578e+01,0.57682e+01,0.56700e+01 /) - kbo(:,19,15) = (/ & - & 0.63852e+01,0.63106e+01,0.62177e+01,0.61123e+01,0.59947e+01 /) - kbo(:,20,15) = (/ & - & 0.67473e+01,0.66496e+01,0.65407e+01,0.64159e+01,0.62789e+01 /) - kbo(:,21,15) = (/ & - & 0.70720e+01,0.69522e+01,0.68220e+01,0.66792e+01,0.65258e+01 /) - kbo(:,22,15) = (/ & - & 0.73512e+01,0.72082e+01,0.70565e+01,0.68942e+01,0.67258e+01 /) - kbo(:,23,15) = (/ & - & 0.75866e+01,0.74239e+01,0.72515e+01,0.70718e+01,0.68886e+01 /) - kbo(:,24,15) = (/ & - & 0.77818e+01,0.75993e+01,0.74076e+01,0.72128e+01,0.70154e+01 /) - kbo(:,25,15) = (/ & - & 0.79381e+01,0.77379e+01,0.75298e+01,0.73205e+01,0.71111e+01 /) - kbo(:,26,15) = (/ & - & 0.80556e+01,0.78384e+01,0.76185e+01,0.73961e+01,0.71755e+01 /) - kbo(:,27,15) = (/ & - & 0.81409e+01,0.79095e+01,0.76795e+01,0.74472e+01,0.72174e+01 /) - kbo(:,28,15) = (/ & - & 0.81987e+01,0.79569e+01,0.77176e+01,0.74766e+01,0.72412e+01 /) - kbo(:,29,15) = (/ & - & 0.82302e+01,0.79809e+01,0.77337e+01,0.74875e+01,0.72468e+01 /) - kbo(:,30,15) = (/ & - & 0.82419e+01,0.79875e+01,0.77343e+01,0.74825e+01,0.72390e+01 /) - kbo(:,31,15) = (/ & - & 0.82369e+01,0.79780e+01,0.77201e+01,0.74661e+01,0.72183e+01 /) - kbo(:,32,15) = (/ & - & 0.82187e+01,0.79550e+01,0.76944e+01,0.74386e+01,0.71874e+01 /) - kbo(:,33,15) = (/ & - & 0.81889e+01,0.79220e+01,0.76592e+01,0.74026e+01,0.71493e+01 /) - kbo(:,34,15) = (/ & - & 0.81602e+01,0.78912e+01,0.76262e+01,0.73693e+01,0.71134e+01 /) - kbo(:,35,15) = (/ & - & 0.81506e+01,0.78799e+01,0.76144e+01,0.73562e+01,0.70988e+01 /) - kbo(:,36,15) = (/ & - & 0.81664e+01,0.78930e+01,0.76263e+01,0.73664e+01,0.71072e+01 /) - kbo(:,37,15) = (/ & - & 0.82200e+01,0.79452e+01,0.76751e+01,0.74132e+01,0.71537e+01 /) - kbo(:,38,15) = (/ & - & 0.82730e+01,0.79962e+01,0.77251e+01,0.74606e+01,0.72002e+01 /) - kbo(:,39,15) = (/ & - & 0.83243e+01,0.80459e+01,0.77713e+01,0.75063e+01,0.72452e+01 /) - kbo(:,40,15) = (/ & - & 0.84027e+01,0.81225e+01,0.78456e+01,0.75775e+01,0.73152e+01 /) - kbo(:,41,15) = (/ & - & 0.84834e+01,0.82013e+01,0.79233e+01,0.76507e+01,0.73874e+01 /) - kbo(:,42,15) = (/ & - & 0.85638e+01,0.82794e+01,0.79999e+01,0.77248e+01,0.74594e+01 /) - kbo(:,43,15) = (/ & - & 0.86608e+01,0.83728e+01,0.80910e+01,0.78137e+01,0.75464e+01 /) - kbo(:,44,15) = (/ & - & 0.87658e+01,0.84741e+01,0.81903e+01,0.79102e+01,0.76390e+01 /) - kbo(:,45,15) = (/ & - & 0.88709e+01,0.85747e+01,0.82886e+01,0.80079e+01,0.77318e+01 /) - kbo(:,46,15) = (/ & - & 0.89828e+01,0.86839e+01,0.83945e+01,0.81115e+01,0.78321e+01 /) - kbo(:,47,15) = (/ & - & 0.91067e+01,0.88066e+01,0.85118e+01,0.82270e+01,0.79459e+01 /) - kbo(:,48,15) = (/ & - & 0.92318e+01,0.89292e+01,0.86312e+01,0.83427e+01,0.80595e+01 /) - kbo(:,49,15) = (/ & - & 0.93597e+01,0.90533e+01,0.87516e+01,0.84602e+01,0.81749e+01 /) - kbo(:,50,15) = (/ & - & 0.94828e+01,0.91681e+01,0.88667e+01,0.85700e+01,0.82833e+01 /) - kbo(:,51,15) = (/ & - & 0.96031e+01,0.92821e+01,0.89785e+01,0.86778e+01,0.83878e+01 /) - kbo(:,52,15) = (/ & - & 0.97227e+01,0.93978e+01,0.90892e+01,0.87879e+01,0.84938e+01 /) - kbo(:,53,15) = (/ & - & 0.98436e+01,0.95182e+01,0.92014e+01,0.88988e+01,0.86011e+01 /) - kbo(:,54,15) = (/ & - & 0.99573e+01,0.96274e+01,0.93049e+01,0.90008e+01,0.87001e+01 /) - kbo(:,55,15) = (/ & - & 0.10066e+02,0.97327e+01,0.94075e+01,0.90983e+01,0.87962e+01 /) - kbo(:,56,15) = (/ & - & 0.10177e+02,0.98378e+01,0.95127e+01,0.91960e+01,0.88926e+01 /) - kbo(:,57,15) = (/ & - & 0.10293e+02,0.99462e+01,0.96173e+01,0.92949e+01,0.89909e+01 /) - kbo(:,58,15) = (/ & - & 0.10405e+02,0.10049e+02,0.97160e+01,0.93909e+01,0.90821e+01 /) - kbo(:,59,15) = (/ & - & 0.10450e+02,0.10090e+02,0.97556e+01,0.94305e+01,0.91193e+01 /) - kbo(:,13,16) = (/ & - & 0.50473e+01,0.50398e+01,0.50183e+01,0.49834e+01,0.49369e+01 /) - kbo(:,14,16) = (/ & - & 0.59220e+01,0.58911e+01,0.58423e+01,0.57748e+01,0.56924e+01 /) - kbo(:,15,16) = (/ & - & 0.68737e+01,0.68078e+01,0.67189e+01,0.66072e+01,0.64839e+01 /) - kbo(:,16,16) = (/ & - & 0.78824e+01,0.77694e+01,0.76268e+01,0.74643e+01,0.72894e+01 /) - kbo(:,17,16) = (/ & - & 0.89270e+01,0.87413e+01,0.85370e+01,0.83130e+01,0.80798e+01 /) - kbo(:,18,16) = (/ & - & 0.99711e+01,0.97011e+01,0.94250e+01,0.91345e+01,0.88363e+01 /) - kbo(:,19,16) = (/ & - & 0.10989e+02,0.10627e+02,0.10268e+02,0.99076e+01,0.95430e+01 /) - kbo(:,20,16) = (/ & - & 0.11944e+02,0.11487e+02,0.11042e+02,0.10609e+02,0.10177e+02 /) - kbo(:,21,16) = (/ & - & 0.12817e+02,0.12265e+02,0.11737e+02,0.11232e+02,0.10736e+02 /) - kbo(:,22,16) = (/ & - & 0.13548e+02,0.12914e+02,0.12305e+02,0.11734e+02,0.11183e+02 /) - kbo(:,23,16) = (/ & - & 0.14162e+02,0.13448e+02,0.12773e+02,0.12143e+02,0.11545e+02 /) - kbo(:,24,16) = (/ & - & 0.14655e+02,0.13870e+02,0.13141e+02,0.12464e+02,0.11822e+02 /) - kbo(:,25,16) = (/ & - & 0.15031e+02,0.14189e+02,0.13415e+02,0.12699e+02,0.12023e+02 /) - kbo(:,26,16) = (/ & - & 0.15288e+02,0.14405e+02,0.13595e+02,0.12850e+02,0.12149e+02 /) - kbo(:,27,16) = (/ & - & 0.15452e+02,0.14541e+02,0.13705e+02,0.12937e+02,0.12216e+02 /) - kbo(:,28,16) = (/ & - & 0.15538e+02,0.14608e+02,0.13754e+02,0.12971e+02,0.12237e+02 /) - kbo(:,29,16) = (/ & - & 0.15553e+02,0.14613e+02,0.13748e+02,0.12957e+02,0.12214e+02 /) - kbo(:,30,16) = (/ & - & 0.15516e+02,0.14571e+02,0.13703e+02,0.12907e+02,0.12159e+02 /) - kbo(:,31,16) = (/ & - & 0.15433e+02,0.14488e+02,0.13621e+02,0.12822e+02,0.12076e+02 /) - kbo(:,32,16) = (/ & - & 0.15312e+02,0.14373e+02,0.13511e+02,0.12712e+02,0.11970e+02 /) - kbo(:,33,16) = (/ & - & 0.15164e+02,0.14234e+02,0.13378e+02,0.12584e+02,0.11848e+02 /) - kbo(:,34,16) = (/ & - & 0.15029e+02,0.14108e+02,0.13258e+02,0.12470e+02,0.11741e+02 /) - kbo(:,35,16) = (/ & - & 0.14974e+02,0.14055e+02,0.13205e+02,0.12418e+02,0.11691e+02 /) - kbo(:,36,16) = (/ & - & 0.15011e+02,0.14086e+02,0.13232e+02,0.12441e+02,0.11710e+02 /) - kbo(:,37,16) = (/ & - & 0.15186e+02,0.14243e+02,0.13376e+02,0.12573e+02,0.11831e+02 /) - kbo(:,38,16) = (/ & - & 0.15364e+02,0.14405e+02,0.13523e+02,0.12708e+02,0.11955e+02 /) - kbo(:,39,16) = (/ & - & 0.15541e+02,0.14562e+02,0.13666e+02,0.12840e+02,0.12075e+02 /) - kbo(:,40,16) = (/ & - & 0.15818e+02,0.14814e+02,0.13896e+02,0.13052e+02,0.12271e+02 /) - kbo(:,41,16) = (/ & - & 0.16115e+02,0.15082e+02,0.14138e+02,0.13278e+02,0.12478e+02 /) - kbo(:,42,16) = (/ & - & 0.16420e+02,0.15352e+02,0.14384e+02,0.13504e+02,0.12687e+02 /) - kbo(:,43,16) = (/ & - & 0.16793e+02,0.15690e+02,0.14694e+02,0.13784e+02,0.12952e+02 /) - kbo(:,44,16) = (/ & - & 0.17211e+02,0.16062e+02,0.15031e+02,0.14091e+02,0.13236e+02 /) - kbo(:,45,16) = (/ & - & 0.17640e+02,0.16447e+02,0.15376e+02,0.14411e+02,0.13526e+02 /) - kbo(:,46,16) = (/ & - & 0.18112e+02,0.16870e+02,0.15758e+02,0.14754e+02,0.13842e+02 /) - kbo(:,47,16) = (/ & - & 0.18658e+02,0.17363e+02,0.16197e+02,0.15151e+02,0.14204e+02 /) - kbo(:,48,16) = (/ & - & 0.19225e+02,0.17876e+02,0.16658e+02,0.15564e+02,0.14577e+02 /) - kbo(:,49,16) = (/ & - & 0.19824e+02,0.18409e+02,0.17136e+02,0.15993e+02,0.14967e+02 /) - kbo(:,50,16) = (/ & - & 0.20411e+02,0.18926e+02,0.17606e+02,0.16414e+02,0.15344e+02 /) - kbo(:,51,16) = (/ & - & 0.21005e+02,0.19452e+02,0.18077e+02,0.16838e+02,0.15725e+02 /) - kbo(:,52,16) = (/ & - & 0.21646e+02,0.20001e+02,0.18565e+02,0.17278e+02,0.16117e+02 /) - kbo(:,53,16) = (/ & - & 0.22315e+02,0.20576e+02,0.19072e+02,0.17736e+02,0.16529e+02 /) - kbo(:,54,16) = (/ & - & 0.22958e+02,0.21134e+02,0.19557e+02,0.18172e+02,0.16919e+02 /) - kbo(:,55,16) = (/ & - & 0.23603e+02,0.21694e+02,0.20042e+02,0.18600e+02,0.17305e+02 /) - kbo(:,56,16) = (/ & - & 0.24285e+02,0.22278e+02,0.20543e+02,0.19044e+02,0.17707e+02 /) - kbo(:,57,16) = (/ & - & 0.24997e+02,0.22887e+02,0.21074e+02,0.19504e+02,0.18121e+02 /) - kbo(:,58,16) = (/ & - & 0.25697e+02,0.23494e+02,0.21600e+02,0.19961e+02,0.18525e+02 /) - kbo(:,59,16) = (/ & - & 0.25984e+02,0.23748e+02,0.21819e+02,0.20147e+02,0.18689e+02 /) - -! ----------------------------------------------------------------- - - forrefo(:, 1) = (/ 0.106275e-05, 0.104185e-05, 0.420154e-05 /) - forrefo(:, 2) = (/ 0.154343e-05, 0.653193e-05, 0.174596e-04 /) - forrefo(:, 3) = (/ 0.348917e-05, 0.108420e-04, 0.540849e-04 /) - forrefo(:, 4) = (/ 0.145822e-04, 0.156027e-04, 0.881263e-04 /) - forrefo(:, 5) = (/ 0.220204e-04, 0.819892e-04, 0.817937e-04 /) - forrefo(:, 6) = (/ 0.447840e-04, 0.121116e-03, 0.932635e-04 /) - forrefo(:, 7) = (/ 0.166516e-03, 0.147640e-03, 0.754029e-04 /) - forrefo(:, 8) = (/ 0.234756e-03, 0.145934e-03, 0.771734e-04 /) - forrefo(:, 9) = (/ 0.289207e-03, 0.146768e-03, 0.677806e-04 /) - forrefo(:,10) = (/ 0.334959e-03, 0.125513e-03, 0.636648e-04 /) - forrefo(:,11) = (/ 0.333755e-03, 0.136575e-03, 0.593651e-04 /) - forrefo(:,12) = (/ 0.340042e-03, 0.116259e-03, 0.595192e-04 /) - forrefo(:,13) = (/ 0.422470e-03, 0.148691e-03, 0.630266e-04 /) - forrefo(:,14) = (/ 0.440655e-03, 0.461917e-04, 0.108222e-04 /) - forrefo(:,15) = (/ 0.486207e-03, 0.428458e-03, 0.108086e-04 /) - forrefo(:,16) = (/ 0.657463e-03, 0.657446e-03, 0.126190e-04 /) - -! ----------------------------------------------------------------- -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 0.331728e-03, 0.287480e-03, 0.249135e-03, 0.215904e-03, 0.187106e-03, & - & 0.162149e-03, 0.140520e-03, 0.121777e-03, 0.105534e-03, 0.914573e-04 /) - selfrefo(:, 2) = (/ & - & 0.882628e-03, 0.698914e-03, 0.553439e-03, 0.438244e-03, 0.347026e-03, & - & 0.274795e-03, 0.217598e-03, 0.172306e-03, 0.136442e-03, 0.108042e-03 /) - selfrefo(:, 3) = (/ & - & 0.115461e-02, 0.937203e-03, 0.760730e-03, 0.617486e-03, 0.501215e-03, & - & 0.406837e-03, 0.330231e-03, 0.268049e-03, 0.217576e-03, 0.176607e-03 /) - selfrefo(:, 4) = (/ & - & 0.103450e-02, 0.960268e-03, 0.891360e-03, 0.827397e-03, 0.768024e-03, & - & 0.712911e-03, 0.661754e-03, 0.614267e-03, 0.570188e-03, 0.529272e-03 /) - selfrefo(:, 5) = (/ & - & 0.289040e-02, 0.240129e-02, 0.199495e-02, 0.165737e-02, 0.137692e-02, & - & 0.114392e-02, 0.950351e-03, 0.789535e-03, 0.655933e-03, 0.544938e-03 /) - selfrefo(:, 6) = (/ & - & 0.361772e-02, 0.306611e-02, 0.259861e-02, 0.220239e-02, 0.186659e-02, & - & 0.158198e-02, 0.134077e-02, 0.113634e-02, 0.963078e-03, 0.816234e-03 /) - selfrefo(:, 7) = (/ & - & 0.329878e-02, 0.318245e-02, 0.307021e-02, 0.296194e-02, 0.285749e-02, & - & 0.275671e-02, 0.265950e-02, 0.256571e-02, 0.247522e-02, 0.238793e-02 /) - selfrefo(:, 8) = (/ & - & 0.293562e-02, 0.300077e-02, 0.306737e-02, 0.313544e-02, 0.320503e-02, & - & 0.327615e-02, 0.334886e-02, 0.342318e-02, 0.349915e-02, 0.357680e-02 /) - selfrefo(:, 9) = (/ & - & 0.281453e-02, 0.295894e-02, 0.311076e-02, 0.327038e-02, 0.343818e-02, & - & 0.361459e-02, 0.380006e-02, 0.399504e-02, 0.420002e-02, 0.441553e-02 /) - selfrefo(:,10) = (/ & - & 0.239488e-02, 0.262487e-02, 0.287696e-02, 0.315325e-02, 0.345607e-02, & - & 0.378798e-02, 0.415176e-02, 0.455048e-02, 0.498749e-02, 0.546647e-02 /) - selfrefo(:,11) = (/ & - & 0.271001e-02, 0.292235e-02, 0.315134e-02, 0.339826e-02, 0.366453e-02, & - & 0.395167e-02, 0.426131e-02, 0.459521e-02, 0.495527e-02, 0.534354e-02 /) - selfrefo(:,12) = (/ & - & 0.206702e-02, 0.232254e-02, 0.260966e-02, 0.293226e-02, 0.329475e-02, & - & 0.370204e-02, 0.415969e-02, 0.467391e-02, 0.525169e-02, 0.590090e-02 /) - selfrefo(:,13) = (/ & - & 0.227023e-02, 0.257331e-02, 0.291685e-02, 0.330626e-02, 0.374766e-02, & - & 0.424799e-02, 0.481511e-02, 0.545794e-02, 0.618660e-02, 0.701253e-02 /) - selfrefo(:,14) = (/ & - & 0.851078e-03, 0.111512e-02, 0.146109e-02, 0.191439e-02, 0.250832e-02, & - & 0.328653e-02, 0.430617e-02, 0.564215e-02, 0.739261e-02, 0.968616e-02 /) - selfrefo(:,15) = (/ & - & 0.742711e-02, 0.721347e-02, 0.700598e-02, 0.680446e-02, 0.660873e-02, & - & 0.641863e-02, 0.623400e-02, 0.605468e-02, 0.588052e-02, 0.571137e-02 /) - selfrefo(:,16) = (/ & - & 0.107170e-01, 0.101913e-01, 0.969138e-02, 0.921599e-02, 0.876392e-02, & - & 0.833402e-02, 0.792521e-02, 0.753646e-02, 0.716677e-02, 0.681522e-02 /) - - end subroutine sw_kgb19 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_20.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_20.F90 deleted file mode 100644 index 13ac47f6a..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_20.F90 +++ /dev/null @@ -1,2128 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb20 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg20, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - absch4o, rayl, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:) = (/ & - & 9.34081 , 8.93720 , 8.19346 , 7.39196 , & - & 6.12127 , 5.23956 , 4.24941 , 3.20013 , & - & 2.16047 , 0.234509 , 0.194593 , 0.151512 , & - & 0.110315, 7.09959e-02, 2.70573e-02, 3.36042e-03 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:) = (/ & - & 9.46285E+00, 9.03457E+00, 8.28539E+00, 7.45376E+00,& - & 6.22785E+00, 5.31449E+00, 4.30972E+00, 3.24707E+00,& - & 2.19831E+00, 2.40488E-01, 1.99681E-01, 1.55534E-01,& - & 1.15188E-01, 7.36325E-02, 2.80294E-02, 3.65491E-03/) -! Solar variability components: facular brightening - facbrghto(:) = (/ & - &-8.91404E-05,-9.89615E-05,-2.24124E-05,-1.21779E-05,& - & 2.35538E-04, 2.42145E-04, 2.06163E-04, 1.57705E-04,& - & 1.08664E-04, 1.16879E-05, 9.82254E-06, 7.78829E-06,& - & 5.82010E-06, 3.54672E-06, 1.40786E-06, 2.10545E-07/) -! Solar variability components: sunspot darkening - snsptdrko(:) = (/ & - &-1.11521E-03,-1.06565E-03,-9.62040E-04,-8.72940E-04,& - &-7.21696E-04,-6.20854E-04,-5.02384E-04,-3.78127E-04,& - &-2.55249E-04,-2.78498E-05,-2.31155E-05,-1.81892E-05,& - &-1.34000E-05,-8.57234E-06,-3.23325E-06,-4.58569E-07/) - - absch4o(:) = (/ & - & 1.01381e-03,6.33692e-03,1.94185e-02,4.83210e-02, & - & 2.36574e-03,6.61973e-04,5.64552e-04,2.83183e-04, & - & 7.43623e-05,8.90159e-07,6.98728e-07,6.51832e-08, & - & 2.96619e-08, 0., 0., 0. /) - -! Rayleigh extinction coefficient at v = 5670 cm-1. - rayl = 4.12e-09 - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1) = (/ & - & 0.78383e-06,0.86220e-06,0.95359e-06,0.10590e-05,0.11782e-05 /) - kao(:, 2, 1) = (/ & - & 0.65040e-06,0.72510e-06,0.81318e-06,0.90059e-06,0.99786e-06 /) - kao(:, 3, 1) = (/ & - & 0.58072e-06,0.65888e-06,0.74265e-06,0.81854e-06,0.90645e-06 /) - kao(:, 4, 1) = (/ & - & 0.53601e-06,0.60765e-06,0.68088e-06,0.75741e-06,0.83801e-06 /) - kao(:, 5, 1) = (/ & - & 0.50142e-06,0.56951e-06,0.64028e-06,0.71944e-06,0.79813e-06 /) - kao(:, 6, 1) = (/ & - & 0.47164e-06,0.54008e-06,0.61040e-06,0.68006e-06,0.75034e-06 /) - kao(:, 7, 1) = (/ & - & 0.49337e-06,0.56178e-06,0.62215e-06,0.69127e-06,0.76060e-06 /) - kao(:, 8, 1) = (/ & - & 0.61581e-06,0.70117e-06,0.78942e-06,0.87145e-06,0.94647e-06 /) - kao(:, 9, 1) = (/ & - & 0.14154e-05,0.15754e-05,0.17261e-05,0.18739e-05,0.19774e-05 /) - kao(:,10, 1) = (/ & - & 0.34186e-05,0.37012e-05,0.39602e-05,0.42235e-05,0.44256e-05 /) - kao(:,11, 1) = (/ & - & 0.38574e-05,0.42080e-05,0.44701e-05,0.47454e-05,0.50002e-05 /) - kao(:,12, 1) = (/ & - & 0.35794e-05,0.38686e-05,0.41443e-05,0.43939e-05,0.46500e-05 /) - kao(:,13, 1) = (/ & - & 0.29586e-05,0.31938e-05,0.34167e-05,0.36253e-05,0.38250e-05 /) - kao(:, 1, 2) = (/ & - & 0.57098e-05,0.64630e-05,0.73117e-05,0.82436e-05,0.91947e-05 /) - kao(:, 2, 2) = (/ & - & 0.46384e-05,0.53125e-05,0.60301e-05,0.68028e-05,0.75824e-05 /) - kao(:, 3, 2) = (/ & - & 0.40657e-05,0.46486e-05,0.52459e-05,0.58955e-05,0.65546e-05 /) - kao(:, 4, 2) = (/ & - & 0.38895e-05,0.44258e-05,0.49759e-05,0.55663e-05,0.61702e-05 /) - kao(:, 5, 2) = (/ & - & 0.38971e-05,0.44359e-05,0.49933e-05,0.55523e-05,0.61234e-05 /) - kao(:, 6, 2) = (/ & - & 0.39532e-05,0.44644e-05,0.49734e-05,0.54875e-05,0.60102e-05 /) - kao(:, 7, 2) = (/ & - & 0.41068e-05,0.45832e-05,0.50698e-05,0.55521e-05,0.60175e-05 /) - kao(:, 8, 2) = (/ & - & 0.47922e-05,0.52156e-05,0.56817e-05,0.61576e-05,0.66313e-05 /) - kao(:, 9, 2) = (/ & - & 0.83199e-05,0.88317e-05,0.93688e-05,0.99754e-05,0.10620e-04 /) - kao(:,10, 2) = (/ & - & 0.16836e-04,0.18526e-04,0.19887e-04,0.21168e-04,0.22104e-04 /) - kao(:,11, 2) = (/ & - & 0.18882e-04,0.21005e-04,0.22896e-04,0.24777e-04,0.26115e-04 /) - kao(:,12, 2) = (/ & - & 0.17744e-04,0.19780e-04,0.21600e-04,0.23523e-04,0.25128e-04 /) - kao(:,13, 2) = (/ & - & 0.14736e-04,0.16356e-04,0.17955e-04,0.19533e-04,0.20861e-04 /) - kao(:, 1, 3) = (/ & - & 0.41776e-04,0.48150e-04,0.55097e-04,0.62661e-04,0.70920e-04 /) - kao(:, 2, 3) = (/ & - & 0.33909e-04,0.39176e-04,0.44622e-04,0.50754e-04,0.57336e-04 /) - kao(:, 3, 3) = (/ & - & 0.27438e-04,0.31473e-04,0.36122e-04,0.41134e-04,0.46456e-04 /) - kao(:, 4, 3) = (/ & - & 0.23222e-04,0.26535e-04,0.30141e-04,0.34099e-04,0.38416e-04 /) - kao(:, 5, 3) = (/ & - & 0.21114e-04,0.23888e-04,0.26883e-04,0.30340e-04,0.33785e-04 /) - kao(:, 6, 3) = (/ & - & 0.20750e-04,0.22926e-04,0.25536e-04,0.28492e-04,0.31676e-04 /) - kao(:, 7, 3) = (/ & - & 0.21584e-04,0.24112e-04,0.26872e-04,0.29794e-04,0.32940e-04 /) - kao(:, 8, 3) = (/ & - & 0.24194e-04,0.26981e-04,0.30137e-04,0.33546e-04,0.37182e-04 /) - kao(:, 9, 3) = (/ & - & 0.37461e-04,0.42158e-04,0.46718e-04,0.51048e-04,0.55154e-04 /) - kao(:,10, 3) = (/ & - & 0.72391e-04,0.77164e-04,0.84016e-04,0.89658e-04,0.95511e-04 /) - kao(:,11, 3) = (/ & - & 0.91736e-04,0.99107e-04,0.10463e-03,0.10952e-03,0.11549e-03 /) - kao(:,12, 3) = (/ & - & 0.91200e-04,0.98812e-04,0.10432e-03,0.10893e-03,0.11349e-03 /) - kao(:,13, 3) = (/ & - & 0.76217e-04,0.82702e-04,0.87500e-04,0.91349e-04,0.95349e-04 /) - kao(:, 1, 4) = (/ & - & 0.71705e-03,0.82743e-03,0.94700e-03,0.10670e-02,0.11902e-02 /) - kao(:, 2, 4) = (/ & - & 0.57909e-03,0.67096e-03,0.76724e-03,0.86582e-03,0.97167e-03 /) - kao(:, 3, 4) = (/ & - & 0.44771e-03,0.51997e-03,0.59861e-03,0.67967e-03,0.76676e-03 /) - kao(:, 4, 4) = (/ & - & 0.34085e-03,0.39833e-03,0.46226e-03,0.52889e-03,0.60008e-03 /) - kao(:, 5, 4) = (/ & - & 0.26678e-03,0.31234e-03,0.36341e-03,0.41663e-03,0.47418e-03 /) - kao(:, 6, 4) = (/ & - & 0.20903e-03,0.24718e-03,0.28922e-03,0.33353e-03,0.38176e-03 /) - kao(:, 7, 4) = (/ & - & 0.17173e-03,0.20330e-03,0.23711e-03,0.27401e-03,0.31445e-03 /) - kao(:, 8, 4) = (/ & - & 0.16722e-03,0.19396e-03,0.22307e-03,0.25347e-03,0.28561e-03 /) - kao(:, 9, 4) = (/ & - & 0.25043e-03,0.28824e-03,0.32547e-03,0.36193e-03,0.39806e-03 /) - kao(:,10, 4) = (/ & - & 0.43323e-03,0.48667e-03,0.53462e-03,0.57879e-03,0.62040e-03 /) - kao(:,11, 4) = (/ & - & 0.47719e-03,0.52271e-03,0.56402e-03,0.60388e-03,0.63520e-03 /) - kao(:,12, 4) = (/ & - & 0.45061e-03,0.49014e-03,0.52391e-03,0.55276e-03,0.57760e-03 /) - kao(:,13, 4) = (/ & - & 0.37664e-03,0.40952e-03,0.43690e-03,0.46055e-03,0.48018e-03 /) - kao(:, 1, 5) = (/ & - & 0.66466e-02,0.68686e-02,0.70897e-02,0.73019e-02,0.74914e-02 /) - kao(:, 2, 5) = (/ & - & 0.54023e-02,0.56010e-02,0.58008e-02,0.59987e-02,0.61685e-02 /) - kao(:, 3, 5) = (/ & - & 0.43218e-02,0.45127e-02,0.46848e-02,0.48647e-02,0.50267e-02 /) - kao(:, 4, 5) = (/ & - & 0.34639e-02,0.36473e-02,0.37951e-02,0.39570e-02,0.41049e-02 /) - kao(:, 5, 5) = (/ & - & 0.27745e-02,0.29370e-02,0.30754e-02,0.32148e-02,0.33492e-02 /) - kao(:, 6, 5) = (/ & - & 0.22020e-02,0.23520e-02,0.24836e-02,0.25965e-02,0.27119e-02 /) - kao(:, 7, 5) = (/ & - & 0.17624e-02,0.18963e-02,0.20161e-02,0.21153e-02,0.22116e-02 /) - kao(:, 8, 5) = (/ & - & 0.14169e-02,0.15332e-02,0.16350e-02,0.17231e-02,0.18121e-02 /) - kao(:, 9, 5) = (/ & - & 0.13030e-02,0.13904e-02,0.14690e-02,0.15500e-02,0.16275e-02 /) - kao(:,10, 5) = (/ & - & 0.17155e-02,0.18169e-02,0.18943e-02,0.19620e-02,0.20215e-02 /) - kao(:,11, 5) = (/ & - & 0.17156e-02,0.17808e-02,0.18419e-02,0.18925e-02,0.19313e-02 /) - kao(:,12, 5) = (/ & - & 0.15269e-02,0.15811e-02,0.16283e-02,0.16686e-02,0.17061e-02 /) - kao(:,13, 5) = (/ & - & 0.12768e-02,0.13207e-02,0.13555e-02,0.13924e-02,0.14234e-02 /) - kao(:, 1, 6) = (/ & - & 0.19191e-01,0.19463e-01,0.19692e-01,0.19900e-01,0.20112e-01 /) - kao(:, 2, 6) = (/ & - & 0.15967e-01,0.16219e-01,0.16426e-01,0.16613e-01,0.16805e-01 /) - kao(:, 3, 6) = (/ & - & 0.13186e-01,0.13411e-01,0.13614e-01,0.13785e-01,0.13944e-01 /) - kao(:, 4, 6) = (/ & - & 0.10935e-01,0.11131e-01,0.11318e-01,0.11475e-01,0.11620e-01 /) - kao(:, 5, 6) = (/ & - & 0.90541e-02,0.92344e-02,0.94035e-02,0.95537e-02,0.96862e-02 /) - kao(:, 6, 6) = (/ & - & 0.74724e-02,0.76320e-02,0.77794e-02,0.79294e-02,0.80528e-02 /) - kao(:, 7, 6) = (/ & - & 0.61183e-02,0.62644e-02,0.63961e-02,0.65303e-02,0.66478e-02 /) - kao(:, 8, 6) = (/ & - & 0.50638e-02,0.51984e-02,0.53222e-02,0.54412e-02,0.55465e-02 /) - kao(:, 9, 6) = (/ & - & 0.42870e-02,0.44009e-02,0.45109e-02,0.45976e-02,0.46796e-02 /) - kao(:,10, 6) = (/ & - & 0.45239e-02,0.46073e-02,0.46968e-02,0.47979e-02,0.48956e-02 /) - kao(:,11, 6) = (/ & - & 0.44089e-02,0.45006e-02,0.45881e-02,0.46721e-02,0.48015e-02 /) - kao(:,12, 6) = (/ & - & 0.39598e-02,0.40290e-02,0.41108e-02,0.41899e-02,0.42672e-02 /) - kao(:,13, 6) = (/ & - & 0.33425e-02,0.34148e-02,0.34808e-02,0.35405e-02,0.35983e-02 /) - kao(:, 1, 7) = (/ & - & 0.50165e-01,0.50343e-01,0.50452e-01,0.50424e-01,0.50329e-01 /) - kao(:, 2, 7) = (/ & - & 0.42723e-01,0.42880e-01,0.42939e-01,0.42910e-01,0.42861e-01 /) - kao(:, 3, 7) = (/ & - & 0.36117e-01,0.36255e-01,0.36301e-01,0.36294e-01,0.36288e-01 /) - kao(:, 4, 7) = (/ & - & 0.30585e-01,0.30720e-01,0.30787e-01,0.30816e-01,0.30842e-01 /) - kao(:, 5, 7) = (/ & - & 0.25879e-01,0.26029e-01,0.26116e-01,0.26179e-01,0.26225e-01 /) - kao(:, 6, 7) = (/ & - & 0.21822e-01,0.21978e-01,0.22094e-01,0.22178e-01,0.22244e-01 /) - kao(:, 7, 7) = (/ & - & 0.18304e-01,0.18476e-01,0.18606e-01,0.18705e-01,0.18780e-01 /) - kao(:, 8, 7) = (/ & - & 0.15224e-01,0.15394e-01,0.15519e-01,0.15619e-01,0.15690e-01 /) - kao(:, 9, 7) = (/ & - & 0.12835e-01,0.13029e-01,0.13169e-01,0.13281e-01,0.13369e-01 /) - kao(:,10, 7) = (/ & - & 0.11632e-01,0.11714e-01,0.11760e-01,0.11776e-01,0.11806e-01 /) - kao(:,11, 7) = (/ & - & 0.11170e-01,0.11252e-01,0.11288e-01,0.11357e-01,0.11397e-01 /) - kao(:,12, 7) = (/ & - & 0.10404e-01,0.10533e-01,0.10705e-01,0.10833e-01,0.10947e-01 /) - kao(:,13, 7) = (/ & - & 0.91041e-02,0.92674e-02,0.94068e-02,0.95412e-02,0.96769e-02 /) - kao(:, 1, 8) = (/ & - & 0.14527e+00,0.14483e+00,0.14432e+00,0.14389e+00,0.14349e+00 /) - kao(:, 2, 8) = (/ & - & 0.12739e+00,0.12702e+00,0.12661e+00,0.12624e+00,0.12584e+00 /) - kao(:, 3, 8) = (/ & - & 0.11091e+00,0.11058e+00,0.11024e+00,0.10990e+00,0.10953e+00 /) - kao(:, 4, 8) = (/ & - & 0.96590e-01,0.96335e-01,0.96105e-01,0.95818e-01,0.95530e-01 /) - kao(:, 5, 8) = (/ & - & 0.83799e-01,0.83708e-01,0.83572e-01,0.83347e-01,0.83126e-01 /) - kao(:, 6, 8) = (/ & - & 0.72369e-01,0.72388e-01,0.72289e-01,0.72143e-01,0.71981e-01 /) - kao(:, 7, 8) = (/ & - & 0.62158e-01,0.62247e-01,0.62185e-01,0.62111e-01,0.62007e-01 /) - kao(:, 8, 8) = (/ & - & 0.52998e-01,0.53142e-01,0.53162e-01,0.53154e-01,0.53101e-01 /) - kao(:, 9, 8) = (/ & - & 0.44776e-01,0.44873e-01,0.44920e-01,0.44946e-01,0.44885e-01 /) - kao(:,10, 8) = (/ & - & 0.38237e-01,0.38514e-01,0.38716e-01,0.38877e-01,0.38966e-01 /) - kao(:,11, 8) = (/ & - & 0.33511e-01,0.33721e-01,0.33843e-01,0.33840e-01,0.33839e-01 /) - kao(:,12, 8) = (/ & - & 0.29704e-01,0.29825e-01,0.29808e-01,0.29787e-01,0.29794e-01 /) - kao(:,13, 8) = (/ & - & 0.25973e-01,0.26004e-01,0.26032e-01,0.26023e-01,0.26107e-01 /) - kao(:, 1, 9) = (/ & - & 0.56699e+00,0.56615e+00,0.56479e+00,0.56318e+00,0.56135e+00 /) - kao(:, 2, 9) = (/ & - & 0.53130e+00,0.53096e+00,0.53038e+00,0.52953e+00,0.52828e+00 /) - kao(:, 3, 9) = (/ & - & 0.48947e+00,0.48989e+00,0.48991e+00,0.48970e+00,0.48916e+00 /) - kao(:, 4, 9) = (/ & - & 0.44646e+00,0.44756e+00,0.44841e+00,0.44893e+00,0.44859e+00 /) - kao(:, 5, 9) = (/ & - & 0.40428e+00,0.40594e+00,0.40746e+00,0.40811e+00,0.40825e+00 /) - kao(:, 6, 9) = (/ & - & 0.36305e+00,0.36545e+00,0.36730e+00,0.36814e+00,0.36854e+00 /) - kao(:, 7, 9) = (/ & - & 0.32383e+00,0.32659e+00,0.32849e+00,0.32954e+00,0.33028e+00 /) - kao(:, 8, 9) = (/ & - & 0.28691e+00,0.28966e+00,0.29156e+00,0.29286e+00,0.29379e+00 /) - kao(:, 9, 9) = (/ & - & 0.25109e+00,0.25404e+00,0.25607e+00,0.25752e+00,0.25870e+00 /) - kao(:,10, 9) = (/ & - & 0.21600e+00,0.21860e+00,0.22047e+00,0.22164e+00,0.22251e+00 /) - kao(:,11, 9) = (/ & - & 0.19149e+00,0.19387e+00,0.19567e+00,0.19725e+00,0.19809e+00 /) - kao(:,12, 9) = (/ & - & 0.16914e+00,0.17134e+00,0.17303e+00,0.17407e+00,0.17494e+00 /) - kao(:,13, 9) = (/ & - & 0.14841e+00,0.15027e+00,0.15244e+00,0.15403e+00,0.15523e+00 /) - kao(:, 1,10) = (/ & - & 0.14885e+01,0.14756e+01,0.14663e+01,0.14567e+01,0.14479e+01 /) - kao(:, 2,10) = (/ & - & 0.14911e+01,0.14850e+01,0.14762e+01,0.14677e+01,0.14597e+01 /) - kao(:, 3,10) = (/ & - & 0.14749e+01,0.14716e+01,0.14663e+01,0.14579e+01,0.14502e+01 /) - kao(:, 4,10) = (/ & - & 0.14314e+01,0.14303e+01,0.14232e+01,0.14150e+01,0.14115e+01 /) - kao(:, 5,10) = (/ & - & 0.13616e+01,0.13604e+01,0.13539e+01,0.13506e+01,0.13501e+01 /) - kao(:, 6,10) = (/ & - & 0.12710e+01,0.12700e+01,0.12670e+01,0.12702e+01,0.12745e+01 /) - kao(:, 7,10) = (/ & - & 0.11674e+01,0.11690e+01,0.11727e+01,0.11812e+01,0.11854e+01 /) - kao(:, 8,10) = (/ & - & 0.10584e+01,0.10652e+01,0.10757e+01,0.10857e+01,0.10906e+01 /) - kao(:, 9,10) = (/ & - & 0.95450e+00,0.96414e+00,0.97673e+00,0.98621e+00,0.99187e+00 /) - kao(:,10,10) = (/ & - & 0.83626e+00,0.84690e+00,0.85901e+00,0.86824e+00,0.87535e+00 /) - kao(:,11,10) = (/ & - & 0.73738e+00,0.74729e+00,0.75610e+00,0.75994e+00,0.76481e+00 /) - kao(:,12,10) = (/ & - & 0.66891e+00,0.67622e+00,0.68092e+00,0.68498e+00,0.68877e+00 /) - kao(:,13,10) = (/ & - & 0.58616e+00,0.59614e+00,0.59749e+00,0.60310e+00,0.60445e+00 /) - kao(:, 1,11) = (/ & - & 0.20080e+01,0.19998e+01,0.19844e+01,0.19679e+01,0.19504e+01 /) - kao(:, 2,11) = (/ & - & 0.20896e+01,0.20752e+01,0.20596e+01,0.20445e+01,0.20293e+01 /) - kao(:, 3,11) = (/ & - & 0.21262e+01,0.21143e+01,0.21043e+01,0.20968e+01,0.20862e+01 /) - kao(:, 4,11) = (/ & - & 0.21310e+01,0.21263e+01,0.21243e+01,0.21203e+01,0.21144e+01 /) - kao(:, 5,11) = (/ & - & 0.21041e+01,0.21063e+01,0.21071e+01,0.21077e+01,0.21021e+01 /) - kao(:, 6,11) = (/ & - & 0.20447e+01,0.20491e+01,0.20534e+01,0.20532e+01,0.20477e+01 /) - kao(:, 7,11) = (/ & - & 0.19487e+01,0.19563e+01,0.19608e+01,0.19593e+01,0.19591e+01 /) - kao(:, 8,11) = (/ & - & 0.18239e+01,0.18317e+01,0.18359e+01,0.18391e+01,0.18451e+01 /) - kao(:, 9,11) = (/ & - & 0.16772e+01,0.16879e+01,0.16955e+01,0.17047e+01,0.17179e+01 /) - kao(:,10,11) = (/ & - & 0.15007e+01,0.15184e+01,0.15343e+01,0.15540e+01,0.15756e+01 /) - kao(:,11,11) = (/ & - & 0.13041e+01,0.13245e+01,0.13445e+01,0.13685e+01,0.13888e+01 /) - kao(:,12,11) = (/ & - & 0.11590e+01,0.11749e+01,0.11906e+01,0.12046e+01,0.12212e+01 /) - kao(:,13,11) = (/ & - & 0.10681e+01,0.10905e+01,0.11017e+01,0.10997e+01,0.11116e+01 /) - kao(:, 1,12) = (/ & - & 0.26762e+01,0.26701e+01,0.26710e+01,0.26742e+01,0.26733e+01 /) - kao(:, 2,12) = (/ & - & 0.28804e+01,0.28775e+01,0.28798e+01,0.28773e+01,0.28700e+01 /) - kao(:, 3,12) = (/ & - & 0.30825e+01,0.30790e+01,0.30757e+01,0.30631e+01,0.30471e+01 /) - kao(:, 4,12) = (/ & - & 0.32355e+01,0.32278e+01,0.32144e+01,0.31959e+01,0.31753e+01 /) - kao(:, 5,12) = (/ & - & 0.33271e+01,0.33191e+01,0.33073e+01,0.32879e+01,0.32714e+01 /) - kao(:, 6,12) = (/ & - & 0.33604e+01,0.33571e+01,0.33478e+01,0.33355e+01,0.33272e+01 /) - kao(:, 7,12) = (/ & - & 0.33406e+01,0.33436e+01,0.33436e+01,0.33435e+01,0.33409e+01 /) - kao(:, 8,12) = (/ & - & 0.32648e+01,0.32808e+01,0.32919e+01,0.32976e+01,0.32999e+01 /) - kao(:, 9,12) = (/ & - & 0.31373e+01,0.31630e+01,0.31816e+01,0.31936e+01,0.31991e+01 /) - kao(:,10,12) = (/ & - & 0.29678e+01,0.29982e+01,0.30244e+01,0.30412e+01,0.30500e+01 /) - kao(:,11,12) = (/ & - & 0.27380e+01,0.27731e+01,0.28013e+01,0.28227e+01,0.28455e+01 /) - kao(:,12,12) = (/ & - & 0.24616e+01,0.24905e+01,0.25348e+01,0.25805e+01,0.26155e+01 /) - kao(:,13,12) = (/ & - & 0.22251e+01,0.22562e+01,0.22966e+01,0.23312e+01,0.23811e+01 /) - kao(:, 1,13) = (/ & - & 0.38031e+01,0.37992e+01,0.37926e+01,0.37822e+01,0.37755e+01 /) - kao(:, 2,13) = (/ & - & 0.41542e+01,0.41473e+01,0.41391e+01,0.41329e+01,0.41296e+01 /) - kao(:, 3,13) = (/ & - & 0.44998e+01,0.44963e+01,0.44896e+01,0.44914e+01,0.44937e+01 /) - kao(:, 4,13) = (/ & - & 0.48464e+01,0.48445e+01,0.48485e+01,0.48565e+01,0.48598e+01 /) - kao(:, 5,13) = (/ & - & 0.52074e+01,0.52112e+01,0.52168e+01,0.52231e+01,0.52210e+01 /) - kao(:, 6,13) = (/ & - & 0.55492e+01,0.55575e+01,0.55655e+01,0.55693e+01,0.55642e+01 /) - kao(:, 7,13) = (/ & - & 0.58380e+01,0.58479e+01,0.58509e+01,0.58482e+01,0.58453e+01 /) - kao(:, 8,13) = (/ & - & 0.60377e+01,0.60538e+01,0.60594e+01,0.60647e+01,0.60640e+01 /) - kao(:, 9,13) = (/ & - & 0.61268e+01,0.61532e+01,0.61730e+01,0.61888e+01,0.61993e+01 /) - kao(:,10,13) = (/ & - & 0.61216e+01,0.61612e+01,0.61936e+01,0.62230e+01,0.62454e+01 /) - kao(:,11,13) = (/ & - & 0.60409e+01,0.60960e+01,0.61462e+01,0.61882e+01,0.62219e+01 /) - kao(:,12,13) = (/ & - & 0.58645e+01,0.59597e+01,0.60234e+01,0.60826e+01,0.61390e+01 /) - kao(:,13,13) = (/ & - & 0.56001e+01,0.57009e+01,0.58017e+01,0.59181e+01,0.59860e+01 /) - kao(:, 1,14) = (/ & - & 0.53647e+01,0.53127e+01,0.52736e+01,0.52471e+01,0.52264e+01 /) - kao(:, 2,14) = (/ & - & 0.62359e+01,0.61753e+01,0.61253e+01,0.60847e+01,0.60573e+01 /) - kao(:, 3,14) = (/ & - & 0.72065e+01,0.71249e+01,0.70556e+01,0.69965e+01,0.69559e+01 /) - kao(:, 4,14) = (/ & - & 0.81631e+01,0.80714e+01,0.79828e+01,0.79081e+01,0.78545e+01 /) - kao(:, 5,14) = (/ & - & 0.90691e+01,0.89602e+01,0.88621e+01,0.87858e+01,0.87314e+01 /) - kao(:, 6,14) = (/ & - & 0.99707e+01,0.98474e+01,0.97395e+01,0.96541e+01,0.95904e+01 /) - kao(:, 7,14) = (/ & - & 0.10852e+02,0.10724e+02,0.10620e+02,0.10536e+02,0.10469e+02 /) - kao(:, 8,14) = (/ & - & 0.11716e+02,0.11588e+02,0.11487e+02,0.11403e+02,0.11337e+02 /) - kao(:, 9,14) = (/ & - & 0.12572e+02,0.12448e+02,0.12341e+02,0.12260e+02,0.12188e+02 /) - kao(:,10,14) = (/ & - & 0.13374e+02,0.13256e+02,0.13159e+02,0.13080e+02,0.13010e+02 /) - kao(:,11,14) = (/ & - & 0.14046e+02,0.13957e+02,0.13888e+02,0.13824e+02,0.13769e+02 /) - kao(:,12,14) = (/ & - & 0.14644e+02,0.14592e+02,0.14548e+02,0.14504e+02,0.14461e+02 /) - kao(:,13,14) = (/ & - & 0.15144e+02,0.15129e+02,0.15111e+02,0.15095e+02,0.15074e+02 /) - kao(:, 1,15) = (/ & - & 0.72019e+01,0.71097e+01,0.70236e+01,0.69449e+01,0.68844e+01 /) - kao(:, 2,15) = (/ & - & 0.87604e+01,0.86468e+01,0.85349e+01,0.84375e+01,0.83491e+01 /) - kao(:, 3,15) = (/ & - & 0.10615e+02,0.10469e+02,0.10333e+02,0.10214e+02,0.10099e+02 /) - kao(:, 4,15) = (/ & - & 0.12669e+02,0.12473e+02,0.12305e+02,0.12161e+02,0.12026e+02 /) - kao(:, 5,15) = (/ & - & 0.14978e+02,0.14741e+02,0.14530e+02,0.14329e+02,0.14143e+02 /) - kao(:, 6,15) = (/ & - & 0.17562e+02,0.17282e+02,0.17031e+02,0.16791e+02,0.16552e+02 /) - kao(:, 7,15) = (/ & - & 0.20480e+02,0.20136e+02,0.19827e+02,0.19524e+02,0.19223e+02 /) - kao(:, 8,15) = (/ & - & 0.23734e+02,0.23307e+02,0.22908e+02,0.22521e+02,0.22160e+02 /) - kao(:, 9,15) = (/ & - & 0.27249e+02,0.26733e+02,0.26255e+02,0.25787e+02,0.25354e+02 /) - kao(:,10,15) = (/ & - & 0.30889e+02,0.30311e+02,0.29740e+02,0.29192e+02,0.28690e+02 /) - kao(:,11,15) = (/ & - & 0.34366e+02,0.33687e+02,0.33035e+02,0.32430e+02,0.31843e+02 /) - kao(:,12,15) = (/ & - & 0.37839e+02,0.37085e+02,0.36360e+02,0.35655e+02,0.34957e+02 /) - kao(:,13,15) = (/ & - & 0.41323e+02,0.40503e+02,0.39673e+02,0.38847e+02,0.38049e+02 /) - kao(:, 1,16) = (/ & - & 0.82631e+01,0.81761e+01,0.80809e+01,0.79778e+01,0.79010e+01 /) - kao(:, 2,16) = (/ & - & 0.10258e+02,0.10128e+02,0.10005e+02,0.98803e+01,0.97700e+01 /) - kao(:, 3,16) = (/ & - & 0.12786e+02,0.12614e+02,0.12441e+02,0.12267e+02,0.12120e+02 /) - kao(:, 4,16) = (/ & - & 0.15843e+02,0.15549e+02,0.15326e+02,0.15095e+02,0.14871e+02 /) - kao(:, 5,16) = (/ & - & 0.19543e+02,0.19089e+02,0.18733e+02,0.18430e+02,0.18134e+02 /) - kao(:, 6,16) = (/ & - & 0.24038e+02,0.23415e+02,0.22893e+02,0.22427e+02,0.22005e+02 /) - kao(:, 7,16) = (/ & - & 0.29445e+02,0.28630e+02,0.27921e+02,0.27268e+02,0.26654e+02 /) - kao(:, 8,16) = (/ & - & 0.35889e+02,0.34849e+02,0.33913e+02,0.33036e+02,0.32194e+02 /) - kao(:, 9,16) = (/ & - & 0.43512e+02,0.42175e+02,0.40956e+02,0.39809e+02,0.38685e+02 /) - kao(:,10,16) = (/ & - & 0.52253e+02,0.50582e+02,0.49011e+02,0.47508e+02,0.46037e+02 /) - kao(:,11,16) = (/ & - & 0.61290e+02,0.59240e+02,0.57269e+02,0.55343e+02,0.53572e+02 /) - kao(:,12,16) = (/ & - & 0.71193e+02,0.68607e+02,0.66135e+02,0.63828e+02,0.61720e+02 /) - kao(:,13,16) = (/ & - & 0.81988e+02,0.78665e+02,0.75707e+02,0.72932e+02,0.70347e+02 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:,13, 1) = (/ & - & 0.29597e-05,0.31929e-05,0.34159e-05,0.36256e-05,0.38264e-05 /) - kbo(:,14, 1) = (/ & - & 0.24233e-05,0.26151e-05,0.27866e-05,0.29502e-05,0.31170e-05 /) - kbo(:,15, 1) = (/ & - & 0.19206e-05,0.20789e-05,0.22099e-05,0.23383e-05,0.24505e-05 /) - kbo(:,16, 1) = (/ & - & 0.14933e-05,0.16071e-05,0.17039e-05,0.17994e-05,0.18816e-05 /) - kbo(:,17, 1) = (/ & - & 0.11429e-05,0.12144e-05,0.12895e-05,0.13503e-05,0.14174e-05 /) - kbo(:,18, 1) = (/ & - & 0.84134e-06,0.89264e-06,0.94260e-06,0.99003e-06,0.10391e-05 /) - kbo(:,19, 1) = (/ & - & 0.60683e-06,0.64142e-06,0.68018e-06,0.72042e-06,0.75479e-06 /) - kbo(:,20, 1) = (/ & - & 0.45809e-06,0.48813e-06,0.51934e-06,0.54823e-06,0.57261e-06 /) - kbo(:,21, 1) = (/ & - & 0.35219e-06,0.37835e-06,0.40322e-06,0.42772e-06,0.44736e-06 /) - kbo(:,22, 1) = (/ & - & 0.27419e-06,0.29542e-06,0.31617e-06,0.33398e-06,0.34932e-06 /) - kbo(:,23, 1) = (/ & - & 0.21385e-06,0.23127e-06,0.24670e-06,0.25951e-06,0.26952e-06 /) - kbo(:,24, 1) = (/ & - & 0.16767e-06,0.18179e-06,0.19282e-06,0.20136e-06,0.21113e-06 /) - kbo(:,25, 1) = (/ & - & 0.13361e-06,0.14301e-06,0.14980e-06,0.15778e-06,0.16615e-06 /) - kbo(:,26, 1) = (/ & - & 0.10615e-06,0.11218e-06,0.11889e-06,0.12574e-06,0.13111e-06 /) - kbo(:,27, 1) = (/ & - & 0.83660e-07,0.89296e-07,0.95019e-07,0.10007e-06,0.10397e-06 /) - kbo(:,28, 1) = (/ & - & 0.66667e-07,0.71217e-07,0.75615e-07,0.79237e-07,0.82239e-07 /) - kbo(:,29, 1) = (/ & - & 0.52776e-07,0.56086e-07,0.59828e-07,0.62513e-07,0.64218e-07 /) - kbo(:,30, 1) = (/ & - & 0.41429e-07,0.44370e-07,0.46731e-07,0.48553e-07,0.50143e-07 /) - kbo(:,31, 1) = (/ & - & 0.32437e-07,0.34523e-07,0.36208e-07,0.37500e-07,0.38571e-07 /) - kbo(:,32, 1) = (/ & - & 0.25237e-07,0.26730e-07,0.27868e-07,0.28829e-07,0.29943e-07 /) - kbo(:,33, 1) = (/ & - & 0.19545e-07,0.20614e-07,0.21467e-07,0.22280e-07,0.23141e-07 /) - kbo(:,34, 1) = (/ & - & 0.15146e-07,0.15869e-07,0.16509e-07,0.17179e-07,0.17980e-07 /) - kbo(:,35, 1) = (/ & - & 0.11482e-07,0.12039e-07,0.12547e-07,0.13255e-07,0.13874e-07 /) - kbo(:,36, 1) = (/ & - & 0.86172e-08,0.90023e-08,0.95607e-08,0.10106e-07,0.10595e-07 /) - kbo(:,37, 1) = (/ & - & 0.67411e-08,0.70781e-08,0.75553e-08,0.79739e-08,0.84011e-08 /) - kbo(:,38, 1) = (/ & - & 0.52604e-08,0.55743e-08,0.59410e-08,0.63031e-08,0.66516e-08 /) - kbo(:,39, 1) = (/ & - & 0.41129e-08,0.43854e-08,0.46851e-08,0.49771e-08,0.52463e-08 /) - kbo(:,40, 1) = (/ & - & 0.33089e-08,0.35289e-08,0.37702e-08,0.40125e-08,0.42415e-08 /) - kbo(:,41, 1) = (/ & - & 0.26794e-08,0.28488e-08,0.30428e-08,0.32437e-08,0.34420e-08 /) - kbo(:,42, 1) = (/ & - & 0.21670e-08,0.23030e-08,0.24589e-08,0.26252e-08,0.27867e-08 /) - kbo(:,43, 1) = (/ & - & 0.17699e-08,0.18853e-08,0.20001e-08,0.21330e-08,0.22657e-08 /) - kbo(:,44, 1) = (/ & - & 0.14446e-08,0.15471e-08,0.16397e-08,0.17423e-08,0.18526e-08 /) - kbo(:,45, 1) = (/ & - & 0.11734e-08,0.12754e-08,0.13542e-08,0.14242e-08,0.15193e-08 /) - kbo(:,46, 1) = (/ & - & 0.95743e-09,0.10470e-08,0.11183e-08,0.11726e-08,0.12389e-08 /) - kbo(:,47, 1) = (/ & - & 0.77345e-09,0.85197e-09,0.92184e-09,0.97368e-09,0.10149e-08 /) - kbo(:,48, 1) = (/ & - & 0.62500e-09,0.69288e-09,0.75548e-09,0.80446e-09,0.84428e-09 /) - kbo(:,49, 1) = (/ & - & 0.50095e-09,0.55967e-09,0.61904e-09,0.66441e-09,0.70339e-09 /) - kbo(:,50, 1) = (/ & - & 0.40806e-09,0.45712e-09,0.50530e-09,0.54974e-09,0.58246e-09 /) - kbo(:,51, 1) = (/ & - & 0.33102e-09,0.37130e-09,0.41121e-09,0.45024e-09,0.48436e-09 /) - kbo(:,52, 1) = (/ & - & 0.26906e-09,0.30739e-09,0.33845e-09,0.36884e-09,0.40024e-09 /) - kbo(:,53, 1) = (/ & - & 0.22202e-09,0.25108e-09,0.27937e-09,0.30592e-09,0.33012e-09 /) - kbo(:,54, 1) = (/ & - & 0.18662e-09,0.20761e-09,0.23072e-09,0.25342e-09,0.27445e-09 /) - kbo(:,55, 1) = (/ & - & 0.15741e-09,0.17147e-09,0.19146e-09,0.21029e-09,0.22857e-09 /) - kbo(:,56, 1) = (/ & - & 0.13151e-09,0.14637e-09,0.15977e-09,0.17547e-09,0.18974e-09 /) - kbo(:,57, 1) = (/ & - & 0.10874e-09,0.12447e-09,0.13634e-09,0.14752e-09,0.16022e-09 /) - kbo(:,58, 1) = (/ & - & 0.90206e-10,0.10484e-09,0.11617e-09,0.12545e-09,0.13474e-09 /) - kbo(:,59, 1) = (/ & - & 0.76759e-10,0.88866e-10,0.99340e-10,0.10706e-09,0.11444e-09 /) - kbo(:,13, 2) = (/ & - & 0.14727e-04,0.16357e-04,0.17961e-04,0.19530e-04,0.20852e-04 /) - kbo(:,14, 2) = (/ & - & 0.12148e-04,0.13478e-04,0.14818e-04,0.16049e-04,0.17100e-04 /) - kbo(:,15, 2) = (/ & - & 0.96902e-05,0.10787e-04,0.11835e-04,0.12770e-04,0.13515e-04 /) - kbo(:,16, 2) = (/ & - & 0.76235e-05,0.84575e-05,0.92217e-05,0.98526e-05,0.10449e-04 /) - kbo(:,17, 2) = (/ & - & 0.58049e-05,0.64239e-05,0.69733e-05,0.74131e-05,0.78082e-05 /) - kbo(:,18, 2) = (/ & - & 0.43204e-05,0.47510e-05,0.51165e-05,0.54579e-05,0.57434e-05 /) - kbo(:,19, 2) = (/ & - & 0.32211e-05,0.35327e-05,0.38175e-05,0.40535e-05,0.42245e-05 /) - kbo(:,20, 2) = (/ & - & 0.25265e-05,0.27652e-05,0.29644e-05,0.31331e-05,0.32730e-05 /) - kbo(:,21, 2) = (/ & - & 0.19921e-05,0.21749e-05,0.23343e-05,0.24377e-05,0.25458e-05 /) - kbo(:,22, 2) = (/ & - & 0.15859e-05,0.17259e-05,0.18236e-05,0.19124e-05,0.19942e-05 /) - kbo(:,23, 2) = (/ & - & 0.12591e-05,0.13565e-05,0.14309e-05,0.15032e-05,0.15642e-05 /) - kbo(:,24, 2) = (/ & - & 0.10012e-05,0.10701e-05,0.11246e-05,0.11819e-05,0.12279e-05 /) - kbo(:,25, 2) = (/ & - & 0.78985e-06,0.84074e-06,0.89029e-06,0.93145e-06,0.97085e-06 /) - kbo(:,26, 2) = (/ & - & 0.62996e-06,0.66847e-06,0.70637e-06,0.73513e-06,0.77135e-06 /) - kbo(:,27, 2) = (/ & - & 0.50283e-06,0.53111e-06,0.55653e-06,0.58306e-06,0.61799e-06 /) - kbo(:,28, 2) = (/ & - & 0.39962e-06,0.42320e-06,0.44265e-06,0.46715e-06,0.49516e-06 /) - kbo(:,29, 2) = (/ & - & 0.31810e-06,0.33597e-06,0.35191e-06,0.37448e-06,0.39768e-06 /) - kbo(:,30, 2) = (/ & - & 0.25242e-06,0.26447e-06,0.28109e-06,0.30089e-06,0.31543e-06 /) - kbo(:,31, 2) = (/ & - & 0.19837e-06,0.20954e-06,0.22442e-06,0.23762e-06,0.25183e-06 /) - kbo(:,32, 2) = (/ & - & 0.15599e-06,0.16701e-06,0.17789e-06,0.18880e-06,0.20030e-06 /) - kbo(:,33, 2) = (/ & - & 0.12307e-06,0.13211e-06,0.14046e-06,0.15111e-06,0.15988e-06 /) - kbo(:,34, 2) = (/ & - & 0.98429e-07,0.10498e-06,0.11326e-06,0.12074e-06,0.12779e-06 /) - kbo(:,35, 2) = (/ & - & 0.77743e-07,0.83951e-07,0.90473e-07,0.96277e-07,0.10204e-06 /) - kbo(:,36, 2) = (/ & - & 0.61220e-07,0.66399e-07,0.71102e-07,0.75946e-07,0.80803e-07 /) - kbo(:,37, 2) = (/ & - & 0.48819e-07,0.52962e-07,0.56669e-07,0.60817e-07,0.64709e-07 /) - kbo(:,38, 2) = (/ & - & 0.38871e-07,0.42226e-07,0.45376e-07,0.48641e-07,0.51855e-07 /) - kbo(:,39, 2) = (/ & - & 0.30869e-07,0.33485e-07,0.36233e-07,0.38868e-07,0.41523e-07 /) - kbo(:,40, 2) = (/ & - & 0.24798e-07,0.26983e-07,0.29180e-07,0.31437e-07,0.33600e-07 /) - kbo(:,41, 2) = (/ & - & 0.19951e-07,0.21784e-07,0.23518e-07,0.25460e-07,0.27219e-07 /) - kbo(:,42, 2) = (/ & - & 0.16098e-07,0.17542e-07,0.18979e-07,0.20547e-07,0.22016e-07 /) - kbo(:,43, 2) = (/ & - & 0.13020e-07,0.14144e-07,0.15414e-07,0.16610e-07,0.17870e-07 /) - kbo(:,44, 2) = (/ & - & 0.10548e-07,0.11500e-07,0.12492e-07,0.13520e-07,0.14524e-07 /) - kbo(:,45, 2) = (/ & - & 0.85602e-08,0.93245e-08,0.10096e-07,0.10978e-07,0.11819e-07 /) - kbo(:,46, 2) = (/ & - & 0.69149e-08,0.75653e-08,0.82154e-08,0.88822e-08,0.96002e-08 /) - kbo(:,47, 2) = (/ & - & 0.55708e-08,0.61164e-08,0.66678e-08,0.71922e-08,0.77633e-08 /) - kbo(:,48, 2) = (/ & - & 0.44804e-08,0.49312e-08,0.53967e-08,0.58662e-08,0.62780e-08 /) - kbo(:,49, 2) = (/ & - & 0.36467e-08,0.39866e-08,0.43628e-08,0.47589e-08,0.51208e-08 /) - kbo(:,50, 2) = (/ & - & 0.29524e-08,0.32540e-08,0.35471e-08,0.38638e-08,0.41887e-08 /) - kbo(:,51, 2) = (/ & - & 0.23887e-08,0.26526e-08,0.28959e-08,0.31504e-08,0.34112e-08 /) - kbo(:,52, 2) = (/ & - & 0.19321e-08,0.21648e-08,0.23625e-08,0.25839e-08,0.28173e-08 /) - kbo(:,53, 2) = (/ & - & 0.15684e-08,0.17725e-08,0.19476e-08,0.21240e-08,0.23118e-08 /) - kbo(:,54, 2) = (/ & - & 0.12799e-08,0.14467e-08,0.16073e-08,0.17494e-08,0.19160e-08 /) - kbo(:,55, 2) = (/ & - & 0.10442e-08,0.11911e-08,0.13216e-08,0.14537e-08,0.15771e-08 /) - kbo(:,56, 2) = (/ & - & 0.85741e-09,0.97937e-09,0.10936e-08,0.12056e-08,0.13167e-08 /) - kbo(:,57, 2) = (/ & - & 0.70358e-09,0.80334e-09,0.90824e-09,0.10056e-08,0.11010e-08 /) - kbo(:,58, 2) = (/ & - & 0.57428e-09,0.66441e-09,0.75420e-09,0.83627e-09,0.92485e-09 /) - kbo(:,59, 2) = (/ & - & 0.47922e-09,0.55592e-09,0.63499e-09,0.70731e-09,0.78678e-09 /) - kbo(:,13, 3) = (/ & - & 0.76201e-04,0.82699e-04,0.87499e-04,0.91352e-04,0.95348e-04 /) - kbo(:,14, 3) = (/ & - & 0.62821e-04,0.67861e-04,0.71868e-04,0.75108e-04,0.78557e-04 /) - kbo(:,15, 3) = (/ & - & 0.49775e-04,0.53367e-04,0.56639e-04,0.59001e-04,0.62303e-04 /) - kbo(:,16, 3) = (/ & - & 0.38005e-04,0.40883e-04,0.43269e-04,0.45403e-04,0.48139e-04 /) - kbo(:,17, 3) = (/ & - & 0.28550e-04,0.30750e-04,0.32331e-04,0.34489e-04,0.36687e-04 /) - kbo(:,18, 3) = (/ & - & 0.20976e-04,0.22322e-04,0.23743e-04,0.25554e-04,0.27223e-04 /) - kbo(:,19, 3) = (/ & - & 0.15389e-04,0.16422e-04,0.17792e-04,0.19127e-04,0.20295e-04 /) - kbo(:,20, 3) = (/ & - & 0.11883e-04,0.12816e-04,0.13962e-04,0.14872e-04,0.15725e-04 /) - kbo(:,21, 3) = (/ & - & 0.92948e-05,0.10187e-04,0.10986e-04,0.11713e-04,0.12426e-04 /) - kbo(:,22, 3) = (/ & - & 0.73969e-05,0.80840e-05,0.87263e-05,0.93856e-05,0.99533e-05 /) - kbo(:,23, 3) = (/ & - & 0.58961e-05,0.64591e-05,0.69648e-05,0.74494e-05,0.79385e-05 /) - kbo(:,24, 3) = (/ & - & 0.47445e-05,0.51742e-05,0.56036e-05,0.59758e-05,0.63724e-05 /) - kbo(:,25, 3) = (/ & - & 0.38442e-05,0.41791e-05,0.44837e-05,0.48078e-05,0.51294e-05 /) - kbo(:,26, 3) = (/ & - & 0.31335e-05,0.33923e-05,0.36400e-05,0.38961e-05,0.41487e-05 /) - kbo(:,27, 3) = (/ & - & 0.25499e-05,0.27432e-05,0.29560e-05,0.31545e-05,0.33433e-05 /) - kbo(:,28, 3) = (/ & - & 0.20635e-05,0.22231e-05,0.23897e-05,0.25516e-05,0.26938e-05 /) - kbo(:,29, 3) = (/ & - & 0.16635e-05,0.18024e-05,0.19279e-05,0.20498e-05,0.21627e-05 /) - kbo(:,30, 3) = (/ & - & 0.13359e-05,0.14474e-05,0.15470e-05,0.16346e-05,0.17457e-05 /) - kbo(:,31, 3) = (/ & - & 0.10697e-05,0.11477e-05,0.12254e-05,0.13097e-05,0.13914e-05 /) - kbo(:,32, 3) = (/ & - & 0.84958e-06,0.91464e-06,0.98189e-06,0.10489e-05,0.11150e-05 /) - kbo(:,33, 3) = (/ & - & 0.68178e-06,0.73356e-06,0.78905e-06,0.84226e-06,0.89476e-06 /) - kbo(:,34, 3) = (/ & - & 0.54737e-06,0.58995e-06,0.63374e-06,0.67732e-06,0.72182e-06 /) - kbo(:,35, 3) = (/ & - & 0.43680e-06,0.47086e-06,0.50771e-06,0.54209e-06,0.57687e-06 /) - kbo(:,36, 3) = (/ & - & 0.34612e-06,0.37466e-06,0.40370e-06,0.43073e-06,0.45979e-06 /) - kbo(:,37, 3) = (/ & - & 0.27725e-06,0.30048e-06,0.32451e-06,0.34638e-06,0.37105e-06 /) - kbo(:,38, 3) = (/ & - & 0.22228e-06,0.24114e-06,0.26049e-06,0.27871e-06,0.29935e-06 /) - kbo(:,39, 3) = (/ & - & 0.17797e-06,0.19317e-06,0.20878e-06,0.22411e-06,0.24102e-06 /) - kbo(:,40, 3) = (/ & - & 0.14346e-06,0.15601e-06,0.16913e-06,0.18197e-06,0.19566e-06 /) - kbo(:,41, 3) = (/ & - & 0.11559e-06,0.12615e-06,0.13697e-06,0.14785e-06,0.15874e-06 /) - kbo(:,42, 3) = (/ & - & 0.93358e-07,0.10214e-06,0.11089e-06,0.11998e-06,0.12904e-06 /) - kbo(:,43, 3) = (/ & - & 0.75599e-07,0.82690e-07,0.89808e-07,0.97524e-07,0.10511e-06 /) - kbo(:,44, 3) = (/ & - & 0.61285e-07,0.66786e-07,0.72937e-07,0.79087e-07,0.85525e-07 /) - kbo(:,45, 3) = (/ & - & 0.49725e-07,0.54294e-07,0.59263e-07,0.64213e-07,0.69583e-07 /) - kbo(:,46, 3) = (/ & - & 0.40336e-07,0.44186e-07,0.48034e-07,0.52184e-07,0.56534e-07 /) - kbo(:,47, 3) = (/ & - & 0.32904e-07,0.35633e-07,0.38959e-07,0.42402e-07,0.45883e-07 /) - kbo(:,48, 3) = (/ & - & 0.26725e-07,0.29104e-07,0.31693e-07,0.34312e-07,0.37304e-07 /) - kbo(:,49, 3) = (/ & - & 0.21751e-07,0.23849e-07,0.25803e-07,0.28024e-07,0.30356e-07 /) - kbo(:,50, 3) = (/ & - & 0.17587e-07,0.19609e-07,0.21216e-07,0.23022e-07,0.24942e-07 /) - kbo(:,51, 3) = (/ & - & 0.14376e-07,0.15990e-07,0.17493e-07,0.18872e-07,0.20463e-07 /) - kbo(:,52, 3) = (/ & - & 0.11811e-07,0.13106e-07,0.14489e-07,0.15615e-07,0.16832e-07 /) - kbo(:,53, 3) = (/ & - & 0.96001e-08,0.10788e-07,0.11921e-07,0.12985e-07,0.13904e-07 /) - kbo(:,54, 3) = (/ & - & 0.78243e-08,0.89178e-08,0.98430e-08,0.10840e-07,0.11619e-07 /) - kbo(:,55, 3) = (/ & - & 0.63638e-08,0.73678e-08,0.82214e-08,0.89997e-08,0.97565e-08 /) - kbo(:,56, 3) = (/ & - & 0.51753e-08,0.60497e-08,0.68419e-08,0.74560e-08,0.82362e-08 /) - kbo(:,57, 3) = (/ & - & 0.42164e-08,0.49916e-08,0.57066e-08,0.63308e-08,0.68950e-08 /) - kbo(:,58, 3) = (/ & - & 0.34618e-08,0.41424e-08,0.48054e-08,0.53757e-08,0.58095e-08 /) - kbo(:,59, 3) = (/ & - & 0.29083e-08,0.35291e-08,0.40932e-08,0.46285e-08,0.49865e-08 /) - kbo(:,13, 4) = (/ & - & 0.37674e-03,0.40953e-03,0.43690e-03,0.46059e-03,0.48007e-03 /) - kbo(:,14, 4) = (/ & - & 0.31202e-03,0.33906e-03,0.36066e-03,0.38003e-03,0.39627e-03 /) - kbo(:,15, 4) = (/ & - & 0.25135e-03,0.27271e-03,0.29069e-03,0.30661e-03,0.32005e-03 /) - kbo(:,16, 4) = (/ & - & 0.19797e-03,0.21527e-03,0.22955e-03,0.24328e-03,0.25456e-03 /) - kbo(:,17, 4) = (/ & - & 0.15354e-03,0.16679e-03,0.17933e-03,0.19101e-03,0.20041e-03 /) - kbo(:,18, 4) = (/ & - & 0.11742e-03,0.12797e-03,0.13923e-03,0.14836e-03,0.15654e-03 /) - kbo(:,19, 4) = (/ & - & 0.90519e-04,0.99386e-04,0.10819e-03,0.11601e-03,0.12319e-03 /) - kbo(:,20, 4) = (/ & - & 0.72579e-04,0.79910e-04,0.87075e-04,0.93728e-04,0.99656e-04 /) - kbo(:,21, 4) = (/ & - & 0.58866e-04,0.64805e-04,0.70705e-04,0.76153e-04,0.80996e-04 /) - kbo(:,22, 4) = (/ & - & 0.48157e-04,0.52883e-04,0.57740e-04,0.62130e-04,0.66100e-04 /) - kbo(:,23, 4) = (/ & - & 0.39337e-04,0.43289e-04,0.47275e-04,0.50906e-04,0.54161e-04 /) - kbo(:,24, 4) = (/ & - & 0.32289e-04,0.35577e-04,0.38808e-04,0.41814e-04,0.44433e-04 /) - kbo(:,25, 4) = (/ & - & 0.26615e-04,0.29301e-04,0.31984e-04,0.34396e-04,0.36509e-04 /) - kbo(:,26, 4) = (/ & - & 0.22060e-04,0.24270e-04,0.26460e-04,0.28450e-04,0.30203e-04 /) - kbo(:,27, 4) = (/ & - & 0.18344e-04,0.20177e-04,0.21948e-04,0.23595e-04,0.25001e-04 /) - kbo(:,28, 4) = (/ & - & 0.15256e-04,0.16787e-04,0.18242e-04,0.19561e-04,0.20696e-04 /) - kbo(:,29, 4) = (/ & - & 0.12679e-04,0.13952e-04,0.15170e-04,0.16211e-04,0.17163e-04 /) - kbo(:,30, 4) = (/ & - & 0.10550e-04,0.11605e-04,0.12579e-04,0.13451e-04,0.14210e-04 /) - kbo(:,31, 4) = (/ & - & 0.87512e-05,0.96322e-05,0.10433e-04,0.11133e-04,0.11762e-04 /) - kbo(:,32, 4) = (/ & - & 0.73001e-05,0.80203e-05,0.86745e-05,0.92292e-05,0.97295e-05 /) - kbo(:,33, 4) = (/ & - & 0.60958e-05,0.66862e-05,0.72006e-05,0.76359e-05,0.80576e-05 /) - kbo(:,34, 4) = (/ & - & 0.50855e-05,0.55671e-05,0.59670e-05,0.63392e-05,0.66869e-05 /) - kbo(:,35, 4) = (/ & - & 0.42033e-05,0.45905e-05,0.49250e-05,0.52384e-05,0.55369e-05 /) - kbo(:,36, 4) = (/ & - & 0.34384e-05,0.37618e-05,0.40430e-05,0.43060e-05,0.45577e-05 /) - kbo(:,37, 4) = (/ & - & 0.28039e-05,0.30749e-05,0.33135e-05,0.35344e-05,0.37458e-05 /) - kbo(:,38, 4) = (/ & - & 0.22842e-05,0.25104e-05,0.27126e-05,0.28966e-05,0.30768e-05 /) - kbo(:,39, 4) = (/ & - & 0.18585e-05,0.20510e-05,0.22194e-05,0.23731e-05,0.25249e-05 /) - kbo(:,40, 4) = (/ & - & 0.15041e-05,0.16676e-05,0.18097e-05,0.19402e-05,0.20681e-05 /) - kbo(:,41, 4) = (/ & - & 0.12154e-05,0.13541e-05,0.14749e-05,0.15852e-05,0.16934e-05 /) - kbo(:,42, 4) = (/ & - & 0.98033e-06,0.10975e-05,0.12011e-05,0.12945e-05,0.13859e-05 /) - kbo(:,43, 4) = (/ & - & 0.78724e-06,0.88625e-06,0.97486e-06,0.10554e-05,0.11307e-05 /) - kbo(:,44, 4) = (/ & - & 0.63059e-06,0.71382e-06,0.78948e-06,0.85755e-06,0.92044e-06 /) - kbo(:,45, 4) = (/ & - & 0.50426e-06,0.57391e-06,0.63808e-06,0.69718e-06,0.74972e-06 /) - kbo(:,46, 4) = (/ & - & 0.40133e-06,0.45858e-06,0.51414e-06,0.56400e-06,0.60964e-06 /) - kbo(:,47, 4) = (/ & - & 0.31580e-06,0.36440e-06,0.41120e-06,0.45433e-06,0.49348e-06 /) - kbo(:,48, 4) = (/ & - & 0.24847e-06,0.28907e-06,0.32879e-06,0.36537e-06,0.39903e-06 /) - kbo(:,49, 4) = (/ & - & 0.19530e-06,0.22858e-06,0.26247e-06,0.29331e-06,0.32217e-06 /) - kbo(:,50, 4) = (/ & - & 0.15364e-06,0.18113e-06,0.20911e-06,0.23589e-06,0.25994e-06 /) - kbo(:,51, 4) = (/ & - & 0.12072e-06,0.14413e-06,0.16656e-06,0.18952e-06,0.20983e-06 /) - kbo(:,52, 4) = (/ & - & 0.94925e-07,0.11397e-06,0.13255e-06,0.15193e-06,0.16960e-06 /) - kbo(:,53, 4) = (/ & - & 0.74473e-07,0.90197e-07,0.10574e-06,0.12153e-06,0.13661e-06 /) - kbo(:,54, 4) = (/ & - & 0.59009e-07,0.71594e-07,0.84781e-07,0.97758e-07,0.11018e-06 /) - kbo(:,55, 4) = (/ & - & 0.47008e-07,0.56997e-07,0.67838e-07,0.78753e-07,0.89116e-07 /) - kbo(:,56, 4) = (/ & - & 0.37415e-07,0.45642e-07,0.54420e-07,0.63466e-07,0.71910e-07 /) - kbo(:,57, 4) = (/ & - & 0.29896e-07,0.36635e-07,0.43697e-07,0.51036e-07,0.58267e-07 /) - kbo(:,58, 4) = (/ & - & 0.23946e-07,0.29523e-07,0.35316e-07,0.41183e-07,0.47391e-07 /) - kbo(:,59, 4) = (/ & - & 0.19881e-07,0.24642e-07,0.29390e-07,0.34099e-07,0.39234e-07 /) - kbo(:,13, 5) = (/ & - & 0.12771e-02,0.13202e-02,0.13557e-02,0.13927e-02,0.14233e-02 /) - kbo(:,14, 5) = (/ & - & 0.10608e-02,0.10951e-02,0.11249e-02,0.11549e-02,0.11788e-02 /) - kbo(:,15, 5) = (/ & - & 0.86750e-03,0.89679e-03,0.91986e-03,0.94399e-03,0.96405e-03 /) - kbo(:,16, 5) = (/ & - & 0.70073e-03,0.72504e-03,0.74630e-03,0.76495e-03,0.78165e-03 /) - kbo(:,17, 5) = (/ & - & 0.56280e-03,0.58321e-03,0.60153e-03,0.61544e-03,0.62885e-03 /) - kbo(:,18, 5) = (/ & - & 0.44940e-03,0.46598e-03,0.47887e-03,0.49058e-03,0.50223e-03 /) - kbo(:,19, 5) = (/ & - & 0.35753e-03,0.37064e-03,0.38290e-03,0.39390e-03,0.40387e-03 /) - kbo(:,20, 5) = (/ & - & 0.29013e-03,0.30099e-03,0.31179e-03,0.32117e-03,0.33011e-03 /) - kbo(:,21, 5) = (/ & - & 0.23657e-03,0.24602e-03,0.25504e-03,0.26340e-03,0.27145e-03 /) - kbo(:,22, 5) = (/ & - & 0.19423e-03,0.20224e-03,0.20987e-03,0.21711e-03,0.22439e-03 /) - kbo(:,23, 5) = (/ & - & 0.15963e-03,0.16643e-03,0.17308e-03,0.17949e-03,0.18580e-03 /) - kbo(:,24, 5) = (/ & - & 0.13166e-03,0.13745e-03,0.14332e-03,0.14871e-03,0.15428e-03 /) - kbo(:,25, 5) = (/ & - & 0.10885e-03,0.11394e-03,0.11896e-03,0.12371e-03,0.12846e-03 /) - kbo(:,26, 5) = (/ & - & 0.90403e-04,0.94914e-04,0.99157e-04,0.10310e-03,0.10729e-03 /) - kbo(:,27, 5) = (/ & - & 0.75265e-04,0.79166e-04,0.82648e-04,0.86209e-04,0.89882e-04 /) - kbo(:,28, 5) = (/ & - & 0.62870e-04,0.66050e-04,0.69111e-04,0.72289e-04,0.75451e-04 /) - kbo(:,29, 5) = (/ & - & 0.52465e-04,0.55192e-04,0.57887e-04,0.60660e-04,0.63367e-04 /) - kbo(:,30, 5) = (/ & - & 0.43887e-04,0.46191e-04,0.48588e-04,0.50910e-04,0.53278e-04 /) - kbo(:,31, 5) = (/ & - & 0.36760e-04,0.38766e-04,0.40783e-04,0.42783e-04,0.44780e-04 /) - kbo(:,32, 5) = (/ & - & 0.30831e-04,0.32561e-04,0.34267e-04,0.36000e-04,0.37594e-04 /) - kbo(:,33, 5) = (/ & - & 0.25908e-04,0.27389e-04,0.28832e-04,0.30290e-04,0.31581e-04 /) - kbo(:,34, 5) = (/ & - & 0.21776e-04,0.23026e-04,0.24266e-04,0.25444e-04,0.26510e-04 /) - kbo(:,35, 5) = (/ & - & 0.18233e-04,0.19280e-04,0.20324e-04,0.21266e-04,0.22141e-04 /) - kbo(:,36, 5) = (/ & - & 0.15160e-04,0.16042e-04,0.16918e-04,0.17686e-04,0.18406e-04 /) - kbo(:,37, 5) = (/ & - & 0.12538e-04,0.13285e-04,0.14015e-04,0.14657e-04,0.15269e-04 /) - kbo(:,38, 5) = (/ & - & 0.10357e-04,0.10990e-04,0.11595e-04,0.12148e-04,0.12651e-04 /) - kbo(:,39, 5) = (/ & - & 0.85566e-05,0.90856e-05,0.95986e-05,0.10057e-04,0.10478e-04 /) - kbo(:,40, 5) = (/ & - & 0.70390e-05,0.74826e-05,0.79200e-05,0.83061e-05,0.86634e-05 /) - kbo(:,41, 5) = (/ & - & 0.57827e-05,0.61572e-05,0.65269e-05,0.68528e-05,0.71595e-05 /) - kbo(:,42, 5) = (/ & - & 0.47477e-05,0.50656e-05,0.53705e-05,0.56486e-05,0.59100e-05 /) - kbo(:,43, 5) = (/ & - & 0.38802e-05,0.41533e-05,0.44089e-05,0.46515e-05,0.48719e-05 /) - kbo(:,44, 5) = (/ & - & 0.31658e-05,0.33971e-05,0.36177e-05,0.38205e-05,0.40089e-05 /) - kbo(:,45, 5) = (/ & - & 0.25796e-05,0.27740e-05,0.29635e-05,0.31336e-05,0.32986e-05 /) - kbo(:,46, 5) = (/ & - & 0.20945e-05,0.22636e-05,0.24214e-05,0.25698e-05,0.27077e-05 /) - kbo(:,47, 5) = (/ & - & 0.16931e-05,0.18383e-05,0.19729e-05,0.20996e-05,0.22172e-05 /) - kbo(:,48, 5) = (/ & - & 0.13650e-05,0.14889e-05,0.16043e-05,0.17139e-05,0.18136e-05 /) - kbo(:,49, 5) = (/ & - & 0.10981e-05,0.12042e-05,0.13028e-05,0.13963e-05,0.14824e-05 /) - kbo(:,50, 5) = (/ & - & 0.88407e-06,0.97370e-06,0.10589e-05,0.11383e-05,0.12124e-05 /) - kbo(:,51, 5) = (/ & - & 0.71150e-06,0.78682e-06,0.86048e-06,0.92711e-06,0.99128e-06 /) - kbo(:,52, 5) = (/ & - & 0.57140e-06,0.63513e-06,0.69790e-06,0.75466e-06,0.80946e-06 /) - kbo(:,53, 5) = (/ & - & 0.45871e-06,0.51183e-06,0.56494e-06,0.61376e-06,0.66022e-06 /) - kbo(:,54, 5) = (/ & - & 0.36889e-06,0.41319e-06,0.45759e-06,0.49973e-06,0.53933e-06 /) - kbo(:,55, 5) = (/ & - & 0.29683e-06,0.33396e-06,0.37110e-06,0.40671e-06,0.44026e-06 /) - kbo(:,56, 5) = (/ & - & 0.23828e-06,0.26973e-06,0.30048e-06,0.33099e-06,0.35949e-06 /) - kbo(:,57, 5) = (/ & - & 0.19083e-06,0.21782e-06,0.24350e-06,0.26883e-06,0.29309e-06 /) - kbo(:,58, 5) = (/ & - & 0.15334e-06,0.17592e-06,0.19753e-06,0.21869e-06,0.23903e-06 /) - kbo(:,59, 5) = (/ & - & 0.12635e-06,0.14504e-06,0.16321e-06,0.18074e-06,0.19759e-06 /) - kbo(:,13, 6) = (/ & - & 0.33433e-02,0.34159e-02,0.34798e-02,0.35397e-02,0.35995e-02 /) - kbo(:,14, 6) = (/ & - & 0.28039e-02,0.28589e-02,0.29090e-02,0.29595e-02,0.30108e-02 /) - kbo(:,15, 6) = (/ & - & 0.23135e-02,0.23579e-02,0.24012e-02,0.24470e-02,0.24900e-02 /) - kbo(:,16, 6) = (/ & - & 0.18925e-02,0.19281e-02,0.19671e-02,0.20090e-02,0.20445e-02 /) - kbo(:,17, 6) = (/ & - & 0.15365e-02,0.15703e-02,0.16039e-02,0.16424e-02,0.16760e-02 /) - kbo(:,18, 6) = (/ & - & 0.12424e-02,0.12746e-02,0.13067e-02,0.13397e-02,0.13687e-02 /) - kbo(:,19, 6) = (/ & - & 0.10113e-02,0.10417e-02,0.10664e-02,0.10958e-02,0.11231e-02 /) - kbo(:,20, 6) = (/ & - & 0.83375e-03,0.85863e-03,0.88098e-03,0.90680e-03,0.93093e-03 /) - kbo(:,21, 6) = (/ & - & 0.68849e-03,0.71056e-03,0.73161e-03,0.75402e-03,0.77432e-03 /) - kbo(:,22, 6) = (/ & - & 0.57076e-03,0.59001e-03,0.60925e-03,0.62816e-03,0.64531e-03 /) - kbo(:,23, 6) = (/ & - & 0.47462e-03,0.49138e-03,0.50818e-03,0.52421e-03,0.53930e-03 /) - kbo(:,24, 6) = (/ & - & 0.39552e-03,0.41011e-03,0.42460e-03,0.43865e-03,0.45206e-03 /) - kbo(:,25, 6) = (/ & - & 0.33041e-03,0.34317e-03,0.35573e-03,0.36800e-03,0.38005e-03 /) - kbo(:,26, 6) = (/ & - & 0.27699e-03,0.28806e-03,0.29892e-03,0.30983e-03,0.32038e-03 /) - kbo(:,27, 6) = (/ & - & 0.23253e-03,0.24229e-03,0.25208e-03,0.26144e-03,0.27039e-03 /) - kbo(:,28, 6) = (/ & - & 0.19573e-03,0.20442e-03,0.21276e-03,0.22087e-03,0.22869e-03 /) - kbo(:,29, 6) = (/ & - & 0.16528e-03,0.17271e-03,0.17974e-03,0.18681e-03,0.19373e-03 /) - kbo(:,30, 6) = (/ & - & 0.13949e-03,0.14599e-03,0.15214e-03,0.15834e-03,0.16448e-03 /) - kbo(:,31, 6) = (/ & - & 0.11793e-03,0.12345e-03,0.12891e-03,0.13432e-03,0.13975e-03 /) - kbo(:,32, 6) = (/ & - & 0.99845e-04,0.10464e-03,0.10941e-03,0.11425e-03,0.11896e-03 /) - kbo(:,33, 6) = (/ & - & 0.84723e-04,0.88808e-04,0.93054e-04,0.97257e-04,0.10144e-03 /) - kbo(:,34, 6) = (/ & - & 0.71857e-04,0.75478e-04,0.79245e-04,0.82878e-04,0.86527e-04 /) - kbo(:,35, 6) = (/ & - & 0.60741e-04,0.63987e-04,0.67190e-04,0.70445e-04,0.73634e-04 /) - kbo(:,36, 6) = (/ & - & 0.51094e-04,0.53953e-04,0.56787e-04,0.59644e-04,0.62421e-04 /) - kbo(:,37, 6) = (/ & - & 0.42809e-04,0.45324e-04,0.47805e-04,0.50314e-04,0.52797e-04 /) - kbo(:,38, 6) = (/ & - & 0.35862e-04,0.38082e-04,0.40249e-04,0.42459e-04,0.44691e-04 /) - kbo(:,39, 6) = (/ & - & 0.30047e-04,0.31970e-04,0.33877e-04,0.35841e-04,0.37792e-04 /) - kbo(:,40, 6) = (/ & - & 0.25051e-04,0.26734e-04,0.28429e-04,0.30177e-04,0.31859e-04 /) - kbo(:,41, 6) = (/ & - & 0.20858e-04,0.22337e-04,0.23837e-04,0.25348e-04,0.26845e-04 /) - kbo(:,42, 6) = (/ & - & 0.17358e-04,0.18653e-04,0.19947e-04,0.21279e-04,0.22614e-04 /) - kbo(:,43, 6) = (/ & - & 0.14382e-04,0.15507e-04,0.16637e-04,0.17808e-04,0.18975e-04 /) - kbo(:,44, 6) = (/ & - & 0.11875e-04,0.12851e-04,0.13847e-04,0.14865e-04,0.15886e-04 /) - kbo(:,45, 6) = (/ & - & 0.97824e-05,0.10641e-04,0.11497e-04,0.12386e-04,0.13288e-04 /) - kbo(:,46, 6) = (/ & - & 0.80305e-05,0.87712e-05,0.95170e-05,0.10282e-04,0.11073e-04 /) - kbo(:,47, 6) = (/ & - & 0.65554e-05,0.71881e-05,0.78331e-05,0.85022e-05,0.91799e-05 /) - kbo(:,48, 6) = (/ & - & 0.53399e-05,0.58818e-05,0.64364e-05,0.70093e-05,0.75992e-05 /) - kbo(:,49, 6) = (/ & - & 0.43396e-05,0.47990e-05,0.52727e-05,0.57633e-05,0.62785e-05 /) - kbo(:,50, 6) = (/ & - & 0.35272e-05,0.39139e-05,0.43230e-05,0.47423e-05,0.51819e-05 /) - kbo(:,51, 6) = (/ & - & 0.28624e-05,0.31913e-05,0.35379e-05,0.38979e-05,0.42744e-05 /) - kbo(:,52, 6) = (/ & - & 0.23189e-05,0.25961e-05,0.28907e-05,0.31976e-05,0.35200e-05 /) - kbo(:,53, 6) = (/ & - & 0.18736e-05,0.21072e-05,0.23576e-05,0.26179e-05,0.28943e-05 /) - kbo(:,54, 6) = (/ & - & 0.15155e-05,0.17135e-05,0.19245e-05,0.21451e-05,0.23808e-05 /) - kbo(:,55, 6) = (/ & - & 0.12250e-05,0.13923e-05,0.15714e-05,0.17578e-05,0.19597e-05 /) - kbo(:,56, 6) = (/ & - & 0.99012e-06,0.11296e-05,0.12801e-05,0.14395e-05,0.16107e-05 /) - kbo(:,57, 6) = (/ & - & 0.79875e-06,0.91418e-06,0.10408e-05,0.11777e-05,0.13212e-05 /) - kbo(:,58, 6) = (/ & - & 0.64474e-06,0.74109e-06,0.84664e-06,0.96328e-06,0.10849e-05 /) - kbo(:,59, 6) = (/ & - & 0.53296e-06,0.61427e-06,0.70385e-06,0.80375e-06,0.90863e-06 /) - kbo(:,13, 7) = (/ & - & 0.91063e-02,0.92681e-02,0.94045e-02,0.95388e-02,0.96735e-02 /) - kbo(:,14, 7) = (/ & - & 0.78483e-02,0.79806e-02,0.81238e-02,0.82528e-02,0.83603e-02 /) - kbo(:,15, 7) = (/ & - & 0.66269e-02,0.67445e-02,0.68845e-02,0.69911e-02,0.70854e-02 /) - kbo(:,16, 7) = (/ & - & 0.55183e-02,0.56414e-02,0.57574e-02,0.58487e-02,0.59407e-02 /) - kbo(:,17, 7) = (/ & - & 0.45693e-02,0.46780e-02,0.47743e-02,0.48625e-02,0.49467e-02 /) - kbo(:,18, 7) = (/ & - & 0.37611e-02,0.38535e-02,0.39408e-02,0.40234e-02,0.41007e-02 /) - kbo(:,19, 7) = (/ & - & 0.30991e-02,0.31809e-02,0.32647e-02,0.33388e-02,0.34042e-02 /) - kbo(:,20, 7) = (/ & - & 0.25858e-02,0.26585e-02,0.27347e-02,0.27990e-02,0.28579e-02 /) - kbo(:,21, 7) = (/ & - & 0.21672e-02,0.22326e-02,0.22973e-02,0.23547e-02,0.24058e-02 /) - kbo(:,22, 7) = (/ & - & 0.18211e-02,0.18809e-02,0.19364e-02,0.19859e-02,0.20352e-02 /) - kbo(:,23, 7) = (/ & - & 0.15314e-02,0.15844e-02,0.16332e-02,0.16760e-02,0.17243e-02 /) - kbo(:,24, 7) = (/ & - & 0.12924e-02,0.13385e-02,0.13793e-02,0.14209e-02,0.14659e-02 /) - kbo(:,25, 7) = (/ & - & 0.10926e-02,0.11322e-02,0.11689e-02,0.12081e-02,0.12493e-02 /) - kbo(:,26, 7) = (/ & - & 0.92756e-03,0.96136e-03,0.99601e-03,0.10324e-02,0.10695e-02 /) - kbo(:,27, 7) = (/ & - & 0.78832e-03,0.81893e-03,0.85137e-03,0.88465e-03,0.91885e-03 /) - kbo(:,28, 7) = (/ & - & 0.67097e-03,0.69979e-03,0.72985e-03,0.76038e-03,0.79213e-03 /) - kbo(:,29, 7) = (/ & - & 0.57231e-03,0.59934e-03,0.62727e-03,0.65471e-03,0.68389e-03 /) - kbo(:,30, 7) = (/ & - & 0.48996e-03,0.51441e-03,0.53945e-03,0.56564e-03,0.59164e-03 /) - kbo(:,31, 7) = (/ & - & 0.41998e-03,0.44237e-03,0.46551e-03,0.48924e-03,0.51322e-03 /) - kbo(:,32, 7) = (/ & - & 0.36133e-03,0.38168e-03,0.40297e-03,0.42441e-03,0.44722e-03 /) - kbo(:,33, 7) = (/ & - & 0.31153e-03,0.33055e-03,0.34980e-03,0.36972e-03,0.39086e-03 /) - kbo(:,34, 7) = (/ & - & 0.26941e-03,0.28657e-03,0.30436e-03,0.32295e-03,0.34256e-03 /) - kbo(:,35, 7) = (/ & - & 0.23210e-03,0.24782e-03,0.26411e-03,0.28121e-03,0.29930e-03 /) - kbo(:,36, 7) = (/ & - & 0.19904e-03,0.21311e-03,0.22797e-03,0.24380e-03,0.26030e-03 /) - kbo(:,37, 7) = (/ & - & 0.17000e-03,0.18300e-03,0.19666e-03,0.21128e-03,0.22641e-03 /) - kbo(:,38, 7) = (/ & - & 0.14528e-03,0.15704e-03,0.16975e-03,0.18320e-03,0.19735e-03 /) - kbo(:,39, 7) = (/ & - & 0.12414e-03,0.13496e-03,0.14654e-03,0.15899e-03,0.17211e-03 /) - kbo(:,40, 7) = (/ & - & 0.10567e-03,0.11547e-03,0.12618e-03,0.13765e-03,0.14994e-03 /) - kbo(:,41, 7) = (/ & - & 0.89774e-04,0.98751e-04,0.10852e-03,0.11918e-03,0.13057e-03 /) - kbo(:,42, 7) = (/ & - & 0.76232e-04,0.84383e-04,0.93336e-04,0.10314e-03,0.11381e-03 /) - kbo(:,43, 7) = (/ & - & 0.64370e-04,0.71684e-04,0.79797e-04,0.88850e-04,0.98733e-04 /) - kbo(:,44, 7) = (/ & - & 0.54125e-04,0.60680e-04,0.68042e-04,0.76313e-04,0.85432e-04 /) - kbo(:,45, 7) = (/ & - & 0.45374e-04,0.51280e-04,0.57932e-04,0.65429e-04,0.73852e-04 /) - kbo(:,46, 7) = (/ & - & 0.37861e-04,0.43078e-04,0.49016e-04,0.55844e-04,0.63538e-04 /) - kbo(:,47, 7) = (/ & - & 0.31342e-04,0.35879e-04,0.41175e-04,0.47252e-04,0.54286e-04 /) - kbo(:,48, 7) = (/ & - & 0.25821e-04,0.29777e-04,0.34458e-04,0.39880e-04,0.46218e-04 /) - kbo(:,49, 7) = (/ & - & 0.21180e-04,0.24617e-04,0.28719e-04,0.33507e-04,0.39184e-04 /) - kbo(:,50, 7) = (/ & - & 0.17377e-04,0.20345e-04,0.23916e-04,0.28177e-04,0.33237e-04 /) - kbo(:,51, 7) = (/ & - & 0.14223e-04,0.16790e-04,0.19868e-04,0.23656e-04,0.28163e-04 /) - kbo(:,52, 7) = (/ & - & 0.11593e-04,0.13788e-04,0.16479e-04,0.19773e-04,0.23765e-04 /) - kbo(:,53, 7) = (/ & - & 0.94141e-05,0.11279e-04,0.13591e-04,0.16447e-04,0.19969e-04 /) - kbo(:,54, 7) = (/ & - & 0.76622e-05,0.92417e-05,0.11233e-04,0.13709e-04,0.16819e-04 /) - kbo(:,55, 7) = (/ & - & 0.62315e-05,0.75671e-05,0.92699e-05,0.11429e-04,0.14186e-04 /) - kbo(:,56, 7) = (/ & - & 0.50473e-05,0.61766e-05,0.76316e-05,0.94979e-05,0.11890e-04 /) - kbo(:,57, 7) = (/ & - & 0.40773e-05,0.50242e-05,0.62540e-05,0.78594e-05,0.99378e-05 /) - kbo(:,58, 7) = (/ & - & 0.32937e-05,0.40862e-05,0.51228e-05,0.64992e-05,0.83112e-05 /) - kbo(:,59, 7) = (/ & - & 0.27593e-05,0.34505e-05,0.43716e-05,0.56035e-05,0.72609e-05 /) - kbo(:,13, 8) = (/ & - & 0.25990e-01,0.25997e-01,0.26024e-01,0.26038e-01,0.26132e-01 /) - kbo(:,14, 8) = (/ & - & 0.22648e-01,0.22731e-01,0.22803e-01,0.22861e-01,0.23020e-01 /) - kbo(:,15, 8) = (/ & - & 0.19641e-01,0.19812e-01,0.19880e-01,0.19998e-01,0.20141e-01 /) - kbo(:,16, 8) = (/ & - & 0.16909e-01,0.17030e-01,0.17148e-01,0.17296e-01,0.17502e-01 /) - kbo(:,17, 8) = (/ & - & 0.14365e-01,0.14504e-01,0.14643e-01,0.14808e-01,0.14996e-01 /) - kbo(:,18, 8) = (/ & - & 0.12072e-01,0.12207e-01,0.12346e-01,0.12513e-01,0.12742e-01 /) - kbo(:,19, 8) = (/ & - & 0.10135e-01,0.10263e-01,0.10402e-01,0.10602e-01,0.10794e-01 /) - kbo(:,20, 8) = (/ & - & 0.86508e-02,0.87951e-02,0.89765e-02,0.91530e-02,0.93447e-02 /) - kbo(:,21, 8) = (/ & - & 0.74228e-02,0.75964e-02,0.77805e-02,0.79441e-02,0.81266e-02 /) - kbo(:,22, 8) = (/ & - & 0.63949e-02,0.65920e-02,0.67584e-02,0.69298e-02,0.70968e-02 /) - kbo(:,23, 8) = (/ & - & 0.55389e-02,0.57165e-02,0.58834e-02,0.60490e-02,0.62163e-02 /) - kbo(:,24, 8) = (/ & - & 0.47980e-02,0.49696e-02,0.51333e-02,0.53055e-02,0.54695e-02 /) - kbo(:,25, 8) = (/ & - & 0.41676e-02,0.43357e-02,0.44999e-02,0.46749e-02,0.48179e-02 /) - kbo(:,26, 8) = (/ & - & 0.36391e-02,0.38079e-02,0.39834e-02,0.41374e-02,0.42754e-02 /) - kbo(:,27, 8) = (/ & - & 0.31917e-02,0.33580e-02,0.35237e-02,0.36737e-02,0.37982e-02 /) - kbo(:,28, 8) = (/ & - & 0.28096e-02,0.29709e-02,0.31242e-02,0.32613e-02,0.33829e-02 /) - kbo(:,29, 8) = (/ & - & 0.24786e-02,0.26272e-02,0.27706e-02,0.28986e-02,0.30130e-02 /) - kbo(:,30, 8) = (/ & - & 0.21907e-02,0.23282e-02,0.24574e-02,0.25778e-02,0.26806e-02 /) - kbo(:,31, 8) = (/ & - & 0.19346e-02,0.20569e-02,0.21757e-02,0.22805e-02,0.23742e-02 /) - kbo(:,32, 8) = (/ & - & 0.17101e-02,0.18247e-02,0.19308e-02,0.20256e-02,0.21176e-02 /) - kbo(:,33, 8) = (/ & - & 0.15171e-02,0.16168e-02,0.17121e-02,0.18035e-02,0.18911e-02 /) - kbo(:,34, 8) = (/ & - & 0.13466e-02,0.14390e-02,0.15246e-02,0.16083e-02,0.16921e-02 /) - kbo(:,35, 8) = (/ & - & 0.11871e-02,0.12698e-02,0.13534e-02,0.14320e-02,0.15071e-02 /) - kbo(:,36, 8) = (/ & - & 0.10388e-02,0.11179e-02,0.11934e-02,0.12647e-02,0.13391e-02 /) - kbo(:,37, 8) = (/ & - & 0.92233e-03,0.99854e-03,0.10722e-02,0.11426e-02,0.12118e-02 /) - kbo(:,38, 8) = (/ & - & 0.81843e-03,0.89236e-03,0.96605e-03,0.10340e-02,0.11003e-02 /) - kbo(:,39, 8) = (/ & - & 0.72738e-03,0.79777e-03,0.86997e-03,0.93496e-03,0.99852e-03 /) - kbo(:,40, 8) = (/ & - & 0.65149e-03,0.72098e-03,0.79235e-03,0.86116e-03,0.92474e-03 /) - kbo(:,41, 8) = (/ & - & 0.58318e-03,0.65154e-03,0.72160e-03,0.79400e-03,0.85973e-03 /) - kbo(:,42, 8) = (/ & - & 0.52127e-03,0.58770e-03,0.65781e-03,0.73110e-03,0.80165e-03 /) - kbo(:,43, 8) = (/ & - & 0.46404e-03,0.52960e-03,0.59886e-03,0.67366e-03,0.74727e-03 /) - kbo(:,44, 8) = (/ & - & 0.41229e-03,0.47609e-03,0.54424e-03,0.61918e-03,0.69366e-03 /) - kbo(:,45, 8) = (/ & - & 0.36534e-03,0.42624e-03,0.49374e-03,0.56668e-03,0.64364e-03 /) - kbo(:,46, 8) = (/ & - & 0.32134e-03,0.37987e-03,0.44597e-03,0.51669e-03,0.59469e-03 /) - kbo(:,47, 8) = (/ & - & 0.27855e-03,0.33531e-03,0.39855e-03,0.46832e-03,0.54562e-03 /) - kbo(:,48, 8) = (/ & - & 0.24094e-03,0.29440e-03,0.35477e-03,0.42284e-03,0.49767e-03 /) - kbo(:,49, 8) = (/ & - & 0.20710e-03,0.25712e-03,0.31425e-03,0.38098e-03,0.45465e-03 /) - kbo(:,50, 8) = (/ & - & 0.17757e-03,0.22422e-03,0.27906e-03,0.34231e-03,0.41419e-03 /) - kbo(:,51, 8) = (/ & - & 0.15198e-03,0.19538e-03,0.24758e-03,0.30796e-03,0.37765e-03 /) - kbo(:,52, 8) = (/ & - & 0.12943e-03,0.16907e-03,0.21812e-03,0.27585e-03,0.34284e-03 /) - kbo(:,53, 8) = (/ & - & 0.10946e-03,0.14560e-03,0.19103e-03,0.24633e-03,0.31049e-03 /) - kbo(:,54, 8) = (/ & - & 0.92950e-04,0.12599e-03,0.16848e-03,0.22109e-03,0.28266e-03 /) - kbo(:,55, 8) = (/ & - & 0.78722e-04,0.10883e-03,0.14831e-03,0.19790e-03,0.25770e-03 /) - kbo(:,56, 8) = (/ & - & 0.66323e-04,0.93651e-04,0.12983e-03,0.17638e-03,0.23393e-03 /) - kbo(:,57, 8) = (/ & - & 0.55644e-04,0.80085e-04,0.11349e-03,0.15741e-03,0.21274e-03 /) - kbo(:,58, 8) = (/ & - & 0.46537e-04,0.68442e-04,0.99190e-04,0.14045e-03,0.19327e-03 /) - kbo(:,59, 8) = (/ & - & 0.41558e-04,0.62503e-04,0.92377e-04,0.13258e-03,0.18528e-03 /) - kbo(:,13, 9) = (/ & - & 0.14836e+00,0.15039e+00,0.15239e+00,0.15389e+00,0.15517e+00 /) - kbo(:,14, 9) = (/ & - & 0.12935e+00,0.13183e+00,0.13366e+00,0.13551e+00,0.13674e+00 /) - kbo(:,15, 9) = (/ & - & 0.11269e+00,0.11456e+00,0.11672e+00,0.11824e+00,0.11951e+00 /) - kbo(:,16, 9) = (/ & - & 0.97577e-01,0.99647e-01,0.10140e+00,0.10272e+00,0.10390e+00 /) - kbo(:,17, 9) = (/ & - & 0.84601e-01,0.86370e-01,0.87860e-01,0.89144e-01,0.90341e-01 /) - kbo(:,18, 9) = (/ & - & 0.72851e-01,0.74498e-01,0.75924e-01,0.77220e-01,0.78434e-01 /) - kbo(:,19, 9) = (/ & - & 0.62688e-01,0.64121e-01,0.65574e-01,0.66965e-01,0.68243e-01 /) - kbo(:,20, 9) = (/ & - & 0.54382e-01,0.55704e-01,0.57013e-01,0.58303e-01,0.59763e-01 /) - kbo(:,21, 9) = (/ & - & 0.47190e-01,0.48469e-01,0.49752e-01,0.51138e-01,0.52452e-01 /) - kbo(:,22, 9) = (/ & - & 0.41104e-01,0.42378e-01,0.43684e-01,0.45035e-01,0.46495e-01 /) - kbo(:,23, 9) = (/ & - & 0.35910e-01,0.37220e-01,0.38484e-01,0.39789e-01,0.41443e-01 /) - kbo(:,24, 9) = (/ & - & 0.31558e-01,0.32836e-01,0.34085e-01,0.35462e-01,0.37160e-01 /) - kbo(:,25, 9) = (/ & - & 0.27861e-01,0.29090e-01,0.30363e-01,0.31857e-01,0.33566e-01 /) - kbo(:,26, 9) = (/ & - & 0.24743e-01,0.26003e-01,0.27311e-01,0.28788e-01,0.30553e-01 /) - kbo(:,27, 9) = (/ & - & 0.22141e-01,0.23397e-01,0.24754e-01,0.26282e-01,0.28040e-01 /) - kbo(:,28, 9) = (/ & - & 0.19941e-01,0.21165e-01,0.22565e-01,0.24131e-01,0.25980e-01 /) - kbo(:,29, 9) = (/ & - & 0.18046e-01,0.19353e-01,0.20736e-01,0.22375e-01,0.24248e-01 /) - kbo(:,30, 9) = (/ & - & 0.16429e-01,0.17775e-01,0.19238e-01,0.20907e-01,0.22847e-01 /) - kbo(:,31, 9) = (/ & - & 0.15094e-01,0.16450e-01,0.17992e-01,0.19741e-01,0.21608e-01 /) - kbo(:,32, 9) = (/ & - & 0.13975e-01,0.15315e-01,0.16950e-01,0.18741e-01,0.20564e-01 /) - kbo(:,33, 9) = (/ & - & 0.13026e-01,0.14475e-01,0.16113e-01,0.17903e-01,0.19794e-01 /) - kbo(:,34, 9) = (/ & - & 0.12248e-01,0.13747e-01,0.15391e-01,0.17142e-01,0.19155e-01 /) - kbo(:,35, 9) = (/ & - & 0.11491e-01,0.12979e-01,0.14611e-01,0.16423e-01,0.18475e-01 /) - kbo(:,36, 9) = (/ & - & 0.10695e-01,0.12142e-01,0.13822e-01,0.15678e-01,0.17729e-01 /) - kbo(:,37, 9) = (/ & - & 0.98761e-02,0.11300e-01,0.13000e-01,0.14808e-01,0.16848e-01 /) - kbo(:,38, 9) = (/ & - & 0.91358e-02,0.10538e-01,0.12200e-01,0.13999e-01,0.16082e-01 /) - kbo(:,39, 9) = (/ & - & 0.84558e-02,0.98580e-02,0.11508e-01,0.13321e-01,0.15372e-01 /) - kbo(:,40, 9) = (/ & - & 0.78020e-02,0.91740e-02,0.10778e-01,0.12588e-01,0.14594e-01 /) - kbo(:,41, 9) = (/ & - & 0.72028e-02,0.85294e-02,0.10093e-01,0.11887e-01,0.13872e-01 /) - kbo(:,42, 9) = (/ & - & 0.66335e-02,0.79299e-02,0.94524e-02,0.11233e-01,0.13162e-01 /) - kbo(:,43, 9) = (/ & - & 0.60936e-02,0.73819e-02,0.88361e-02,0.10555e-01,0.12456e-01 /) - kbo(:,44, 9) = (/ & - & 0.55851e-02,0.68018e-02,0.82487e-02,0.98836e-02,0.11744e-01 /) - kbo(:,45, 9) = (/ & - & 0.51361e-02,0.62783e-02,0.76910e-02,0.92631e-02,0.11096e-01 /) - kbo(:,46, 9) = (/ & - & 0.46789e-02,0.57877e-02,0.71257e-02,0.86688e-02,0.10399e-01 /) - kbo(:,47, 9) = (/ & - & 0.42434e-02,0.53043e-02,0.65448e-02,0.80300e-02,0.97286e-02 /) - kbo(:,48, 9) = (/ & - & 0.38917e-02,0.48269e-02,0.60283e-02,0.74378e-02,0.90783e-02 /) - kbo(:,49, 9) = (/ & - & 0.35823e-02,0.43988e-02,0.55409e-02,0.68845e-02,0.84495e-02 /) - kbo(:,50, 9) = (/ & - & 0.33116e-02,0.40852e-02,0.51044e-02,0.63885e-02,0.78773e-02 /) - kbo(:,51, 9) = (/ & - & 0.30752e-02,0.38103e-02,0.47346e-02,0.59580e-02,0.73779e-02 /) - kbo(:,52, 9) = (/ & - & 0.28626e-02,0.35553e-02,0.44430e-02,0.55409e-02,0.69343e-02 /) - kbo(:,53, 9) = (/ & - & 0.26485e-02,0.33392e-02,0.41695e-02,0.51739e-02,0.64753e-02 /) - kbo(:,54, 9) = (/ & - & 0.24736e-02,0.31489e-02,0.39367e-02,0.48954e-02,0.61401e-02 /) - kbo(:,55, 9) = (/ & - & 0.23362e-02,0.29819e-02,0.37593e-02,0.46985e-02,0.58363e-02 /) - kbo(:,56, 9) = (/ & - & 0.22243e-02,0.28447e-02,0.35827e-02,0.44762e-02,0.55720e-02 /) - kbo(:,57, 9) = (/ & - & 0.21389e-02,0.27081e-02,0.34315e-02,0.43182e-02,0.53898e-02 /) - kbo(:,58, 9) = (/ & - & 0.20428e-02,0.25997e-02,0.33047e-02,0.41726e-02,0.52071e-02 /) - kbo(:,59, 9) = (/ & - & 0.20538e-02,0.26323e-02,0.33247e-02,0.41770e-02,0.52496e-02 /) - kbo(:,13,10) = (/ & - & 0.58637e+00,0.59481e+00,0.59811e+00,0.60451e+00,0.60418e+00 /) - kbo(:,14,10) = (/ & - & 0.53191e+00,0.53363e+00,0.53861e+00,0.53976e+00,0.53933e+00 /) - kbo(:,15,10) = (/ & - & 0.47845e+00,0.48447e+00,0.48498e+00,0.48691e+00,0.48935e+00 /) - kbo(:,16,10) = (/ & - & 0.42695e+00,0.43265e+00,0.43442e+00,0.43949e+00,0.44244e+00 /) - kbo(:,17,10) = (/ & - & 0.37796e+00,0.38437e+00,0.38958e+00,0.39367e+00,0.39802e+00 /) - kbo(:,18,10) = (/ & - & 0.33399e+00,0.33971e+00,0.34517e+00,0.35032e+00,0.35265e+00 /) - kbo(:,19,10) = (/ & - & 0.29538e+00,0.30247e+00,0.30713e+00,0.30943e+00,0.31544e+00 /) - kbo(:,20,10) = (/ & - & 0.26154e+00,0.26955e+00,0.27264e+00,0.27778e+00,0.28167e+00 /) - kbo(:,21,10) = (/ & - & 0.23200e+00,0.23896e+00,0.24468e+00,0.24838e+00,0.25453e+00 /) - kbo(:,22,10) = (/ & - & 0.20714e+00,0.21368e+00,0.21959e+00,0.22402e+00,0.22934e+00 /) - kbo(:,23,10) = (/ & - & 0.18514e+00,0.19070e+00,0.19771e+00,0.20426e+00,0.20794e+00 /) - kbo(:,24,10) = (/ & - & 0.16629e+00,0.17247e+00,0.17943e+00,0.18543e+00,0.19044e+00 /) - kbo(:,25,10) = (/ & - & 0.15103e+00,0.15758e+00,0.16440e+00,0.16947e+00,0.17504e+00 /) - kbo(:,26,10) = (/ & - & 0.13782e+00,0.14448e+00,0.15050e+00,0.15723e+00,0.16403e+00 /) - kbo(:,27,10) = (/ & - & 0.12675e+00,0.13284e+00,0.13902e+00,0.14547e+00,0.15299e+00 /) - kbo(:,28,10) = (/ & - & 0.11700e+00,0.12400e+00,0.13029e+00,0.13779e+00,0.14535e+00 /) - kbo(:,29,10) = (/ & - & 0.10975e+00,0.11580e+00,0.12300e+00,0.13106e+00,0.13981e+00 /) - kbo(:,30,10) = (/ & - & 0.10326e+00,0.10877e+00,0.11694e+00,0.12523e+00,0.13409e+00 /) - kbo(:,31,10) = (/ & - & 0.97072e-01,0.10392e+00,0.11191e+00,0.12092e+00,0.13156e+00 /) - kbo(:,32,10) = (/ & - & 0.92483e-01,0.10003e+00,0.10847e+00,0.11777e+00,0.12978e+00 /) - kbo(:,33,10) = (/ & - & 0.89436e-01,0.96549e-01,0.10550e+00,0.11582e+00,0.12938e+00 /) - kbo(:,34,10) = (/ & - & 0.86605e-01,0.93852e-01,0.10437e+00,0.11565e+00,0.13025e+00 /) - kbo(:,35,10) = (/ & - & 0.83755e-01,0.92443e-01,0.10318e+00,0.11569e+00,0.13035e+00 /) - kbo(:,36,10) = (/ & - & 0.80159e-01,0.90106e-01,0.10185e+00,0.11331e+00,0.13105e+00 /) - kbo(:,37,10) = (/ & - & 0.76863e-01,0.86981e-01,0.98816e-01,0.11094e+00,0.12837e+00 /) - kbo(:,38,10) = (/ & - & 0.73911e-01,0.84640e-01,0.95988e-01,0.10951e+00,0.12524e+00 /) - kbo(:,39,10) = (/ & - & 0.71484e-01,0.82465e-01,0.93807e-01,0.10732e+00,0.12288e+00 /) - kbo(:,40,10) = (/ & - & 0.68367e-01,0.78553e-01,0.90288e-01,0.10290e+00,0.11884e+00 /) - kbo(:,41,10) = (/ & - & 0.65972e-01,0.75367e-01,0.87331e-01,0.98979e-01,0.11479e+00 /) - kbo(:,42,10) = (/ & - & 0.63899e-01,0.72995e-01,0.84392e-01,0.96170e-01,0.11066e+00 /) - kbo(:,43,10) = (/ & - & 0.61601e-01,0.69361e-01,0.80265e-01,0.92296e-01,0.10575e+00 /) - kbo(:,44,10) = (/ & - & 0.58053e-01,0.67236e-01,0.77057e-01,0.88848e-01,0.10118e+00 /) - kbo(:,45,10) = (/ & - & 0.55041e-01,0.64788e-01,0.73479e-01,0.85189e-01,0.97294e-01 /) - kbo(:,46,10) = (/ & - & 0.51538e-01,0.61359e-01,0.70493e-01,0.81342e-01,0.93711e-01 /) - kbo(:,47,10) = (/ & - & 0.48229e-01,0.57754e-01,0.67703e-01,0.77712e-01,0.88779e-01 /) - kbo(:,48,10) = (/ & - & 0.44328e-01,0.53953e-01,0.64327e-01,0.74186e-01,0.85354e-01 /) - kbo(:,49,10) = (/ & - & 0.40181e-01,0.50939e-01,0.60544e-01,0.71079e-01,0.81883e-01 /) - kbo(:,50,10) = (/ & - & 0.36327e-01,0.47243e-01,0.57625e-01,0.67925e-01,0.78806e-01 /) - kbo(:,51,10) = (/ & - & 0.33026e-01,0.43278e-01,0.54464e-01,0.64411e-01,0.75916e-01 /) - kbo(:,52,10) = (/ & - & 0.29600e-01,0.39888e-01,0.50913e-01,0.61457e-01,0.72719e-01 /) - kbo(:,53,10) = (/ & - & 0.26994e-01,0.36264e-01,0.46926e-01,0.58631e-01,0.68972e-01 /) - kbo(:,54,10) = (/ & - & 0.24928e-01,0.33245e-01,0.43870e-01,0.55481e-01,0.66121e-01 /) - kbo(:,55,10) = (/ & - & 0.23329e-01,0.30647e-01,0.40729e-01,0.52051e-01,0.63960e-01 /) - kbo(:,56,10) = (/ & - & 0.21581e-01,0.28578e-01,0.37651e-01,0.48828e-01,0.60673e-01 /) - kbo(:,57,10) = (/ & - & 0.20121e-01,0.27060e-01,0.35152e-01,0.45854e-01,0.57152e-01 /) - kbo(:,58,10) = (/ & - & 0.18692e-01,0.25639e-01,0.32995e-01,0.42657e-01,0.54655e-01 /) - kbo(:,59,10) = (/ & - & 0.18277e-01,0.25273e-01,0.32791e-01,0.42508e-01,0.53680e-01 /) - kbo(:,13,11) = (/ & - & 0.10693e+01,0.10902e+01,0.11032e+01,0.10991e+01,0.11118e+01 /) - kbo(:,14,11) = (/ & - & 0.95953e+00,0.97384e+00,0.98577e+00,0.99728e+00,0.10070e+01 /) - kbo(:,15,11) = (/ & - & 0.85940e+00,0.86781e+00,0.87766e+00,0.88834e+00,0.89855e+00 /) - kbo(:,16,11) = (/ & - & 0.76187e+00,0.76651e+00,0.78116e+00,0.79605e+00,0.80429e+00 /) - kbo(:,17,11) = (/ & - & 0.67627e+00,0.68377e+00,0.69734e+00,0.70867e+00,0.71758e+00 /) - kbo(:,18,11) = (/ & - & 0.60442e+00,0.61462e+00,0.62319e+00,0.63477e+00,0.64696e+00 /) - kbo(:,19,11) = (/ & - & 0.54250e+00,0.55180e+00,0.56132e+00,0.57649e+00,0.58604e+00 /) - kbo(:,20,11) = (/ & - & 0.49000e+00,0.49922e+00,0.51229e+00,0.52536e+00,0.53903e+00 /) - kbo(:,21,11) = (/ & - & 0.44362e+00,0.45018e+00,0.46523e+00,0.48212e+00,0.49590e+00 /) - kbo(:,22,11) = (/ & - & 0.40390e+00,0.41136e+00,0.42554e+00,0.44299e+00,0.45956e+00 /) - kbo(:,23,11) = (/ & - & 0.36600e+00,0.37646e+00,0.39144e+00,0.40936e+00,0.42622e+00 /) - kbo(:,24,11) = (/ & - & 0.33488e+00,0.34802e+00,0.36259e+00,0.38089e+00,0.39832e+00 /) - kbo(:,25,11) = (/ & - & 0.30569e+00,0.32099e+00,0.33730e+00,0.35716e+00,0.37447e+00 /) - kbo(:,26,11) = (/ & - & 0.28345e+00,0.29933e+00,0.31861e+00,0.33716e+00,0.35400e+00 /) - kbo(:,27,11) = (/ & - & 0.26524e+00,0.28116e+00,0.30310e+00,0.32398e+00,0.34341e+00 /) - kbo(:,28,11) = (/ & - & 0.25036e+00,0.26748e+00,0.29040e+00,0.31038e+00,0.33527e+00 /) - kbo(:,29,11) = (/ & - & 0.23678e+00,0.25759e+00,0.27958e+00,0.30373e+00,0.33097e+00 /) - kbo(:,30,11) = (/ & - & 0.22835e+00,0.25043e+00,0.27298e+00,0.30247e+00,0.33069e+00 /) - kbo(:,31,11) = (/ & - & 0.22381e+00,0.24448e+00,0.27386e+00,0.30198e+00,0.33135e+00 /) - kbo(:,32,11) = (/ & - & 0.21945e+00,0.24581e+00,0.27557e+00,0.30488e+00,0.33817e+00 /) - kbo(:,33,11) = (/ & - & 0.22020e+00,0.24997e+00,0.27933e+00,0.31199e+00,0.34537e+00 /) - kbo(:,34,11) = (/ & - & 0.22328e+00,0.25315e+00,0.28560e+00,0.31999e+00,0.35204e+00 /) - kbo(:,35,11) = (/ & - & 0.22463e+00,0.25599e+00,0.29016e+00,0.32472e+00,0.35705e+00 /) - kbo(:,36,11) = (/ & - & 0.22454e+00,0.25719e+00,0.29064e+00,0.32676e+00,0.35643e+00 /) - kbo(:,37,11) = (/ & - & 0.21917e+00,0.25146e+00,0.28533e+00,0.32018e+00,0.35207e+00 /) - kbo(:,38,11) = (/ & - & 0.21431e+00,0.24593e+00,0.28070e+00,0.31440e+00,0.34740e+00 /) - kbo(:,39,11) = (/ & - & 0.20995e+00,0.24107e+00,0.27540e+00,0.30795e+00,0.34247e+00 /) - kbo(:,40,11) = (/ & - & 0.20148e+00,0.23319e+00,0.26577e+00,0.30086e+00,0.33366e+00 /) - kbo(:,41,11) = (/ & - & 0.19132e+00,0.22478e+00,0.25632e+00,0.29251e+00,0.32436e+00 /) - kbo(:,42,11) = (/ & - & 0.18231e+00,0.21584e+00,0.24724e+00,0.28164e+00,0.31641e+00 /) - kbo(:,43,11) = (/ & - & 0.17273e+00,0.20475e+00,0.23702e+00,0.26984e+00,0.30535e+00 /) - kbo(:,44,11) = (/ & - & 0.16365e+00,0.19313e+00,0.22566e+00,0.25812e+00,0.29340e+00 /) - kbo(:,45,11) = (/ & - & 0.15471e+00,0.18278e+00,0.21464e+00,0.24686e+00,0.28060e+00 /) - kbo(:,46,11) = (/ & - & 0.14477e+00,0.17256e+00,0.20328e+00,0.23515e+00,0.26753e+00 /) - kbo(:,47,11) = (/ & - & 0.13513e+00,0.16209e+00,0.19092e+00,0.22162e+00,0.25481e+00 /) - kbo(:,48,11) = (/ & - & 0.12632e+00,0.15056e+00,0.17900e+00,0.20905e+00,0.24085e+00 /) - kbo(:,49,11) = (/ & - & 0.11846e+00,0.14059e+00,0.16812e+00,0.19759e+00,0.22701e+00 /) - kbo(:,50,11) = (/ & - & 0.11278e+00,0.13341e+00,0.15756e+00,0.18662e+00,0.21629e+00 /) - kbo(:,51,11) = (/ & - & 0.10711e+00,0.12752e+00,0.14951e+00,0.17651e+00,0.20555e+00 /) - kbo(:,52,11) = (/ & - & 0.10062e+00,0.12140e+00,0.14273e+00,0.16677e+00,0.19594e+00 /) - kbo(:,53,11) = (/ & - & 0.93686e-01,0.11587e+00,0.13705e+00,0.15900e+00,0.18673e+00 /) - kbo(:,54,11) = (/ & - & 0.88183e-01,0.10986e+00,0.13159e+00,0.15362e+00,0.17808e+00 /) - kbo(:,55,11) = (/ & - & 0.81924e-01,0.10428e+00,0.12662e+00,0.14862e+00,0.17143e+00 /) - kbo(:,56,11) = (/ & - & 0.75991e-01,0.98633e-01,0.12219e+00,0.14408e+00,0.16698e+00 /) - kbo(:,57,11) = (/ & - & 0.69399e-01,0.92760e-01,0.11664e+00,0.14040e+00,0.16308e+00 /) - kbo(:,58,11) = (/ & - & 0.64018e-01,0.88343e-01,0.11169e+00,0.13686e+00,0.15969e+00 /) - kbo(:,59,11) = (/ & - & 0.63145e-01,0.86273e-01,0.11143e+00,0.13565e+00,0.16187e+00 /) - kbo(:,13,12) = (/ & - & 0.22241e+01,0.22556e+01,0.22932e+01,0.23316e+01,0.23817e+01 /) - kbo(:,14,12) = (/ & - & 0.20015e+01,0.20535e+01,0.20976e+01,0.21411e+01,0.21895e+01 /) - kbo(:,15,12) = (/ & - & 0.18111e+01,0.18671e+01,0.19196e+01,0.19734e+01,0.20226e+01 /) - kbo(:,16,12) = (/ & - & 0.16513e+01,0.17114e+01,0.17632e+01,0.18132e+01,0.18623e+01 /) - kbo(:,17,12) = (/ & - & 0.15041e+01,0.15648e+01,0.16197e+01,0.16720e+01,0.17169e+01 /) - kbo(:,18,12) = (/ & - & 0.13731e+01,0.14345e+01,0.14937e+01,0.15386e+01,0.16052e+01 /) - kbo(:,19,12) = (/ & - & 0.12478e+01,0.13115e+01,0.13641e+01,0.14279e+01,0.14977e+01 /) - kbo(:,20,12) = (/ & - & 0.11298e+01,0.11910e+01,0.12495e+01,0.13186e+01,0.13914e+01 /) - kbo(:,21,12) = (/ & - & 0.10266e+01,0.10915e+01,0.11508e+01,0.12227e+01,0.13004e+01 /) - kbo(:,22,12) = (/ & - & 0.93959e+00,0.10027e+01,0.10735e+01,0.11507e+01,0.12312e+01 /) - kbo(:,23,12) = (/ & - & 0.87016e+00,0.93486e+00,0.10125e+01,0.10930e+01,0.11794e+01 /) - kbo(:,24,12) = (/ & - & 0.81213e+00,0.88017e+00,0.96483e+00,0.10508e+01,0.11396e+01 /) - kbo(:,25,12) = (/ & - & 0.77134e+00,0.84295e+00,0.93081e+00,0.10201e+01,0.11152e+01 /) - kbo(:,26,12) = (/ & - & 0.73832e+00,0.81743e+00,0.90746e+00,0.10024e+01,0.11020e+01 /) - kbo(:,27,12) = (/ & - & 0.71831e+00,0.80328e+00,0.89505e+00,0.99247e+00,0.10943e+01 /) - kbo(:,28,12) = (/ & - & 0.70848e+00,0.79592e+00,0.89143e+00,0.99432e+00,0.10940e+01 /) - kbo(:,29,12) = (/ & - & 0.70725e+00,0.79781e+00,0.89906e+00,0.10007e+01,0.11009e+01 /) - kbo(:,30,12) = (/ & - & 0.71125e+00,0.80824e+00,0.91144e+00,0.10109e+01,0.11144e+01 /) - kbo(:,31,12) = (/ & - & 0.72057e+00,0.82548e+00,0.92423e+00,0.10285e+01,0.11338e+01 /) - kbo(:,32,12) = (/ & - & 0.73855e+00,0.84223e+00,0.94322e+00,0.10495e+01,0.11523e+01 /) - kbo(:,33,12) = (/ & - & 0.75860e+00,0.86137e+00,0.96653e+00,0.10709e+01,0.11736e+01 /) - kbo(:,34,12) = (/ & - & 0.77584e+00,0.88104e+00,0.98358e+00,0.10881e+01,0.11928e+01 /) - kbo(:,35,12) = (/ & - & 0.78526e+00,0.88915e+00,0.99181e+00,0.10955e+01,0.12024e+01 /) - kbo(:,36,12) = (/ & - & 0.78420e+00,0.88679e+00,0.98962e+00,0.10938e+01,0.12013e+01 /) - kbo(:,37,12) = (/ & - & 0.76619e+00,0.86975e+00,0.97162e+00,0.10774e+01,0.11823e+01 /) - kbo(:,38,12) = (/ & - & 0.74778e+00,0.85168e+00,0.95355e+00,0.10588e+01,0.11642e+01 /) - kbo(:,39,12) = (/ & - & 0.73003e+00,0.83397e+00,0.93638e+00,0.10427e+01,0.11461e+01 /) - kbo(:,40,12) = (/ & - & 0.70694e+00,0.80603e+00,0.90951e+00,0.10129e+01,0.11179e+01 /) - kbo(:,41,12) = (/ & - & 0.68380e+00,0.77629e+00,0.88021e+00,0.98263e+00,0.10876e+01 /) - kbo(:,42,12) = (/ & - & 0.66231e+00,0.74849e+00,0.85130e+00,0.95458e+00,0.10576e+01 /) - kbo(:,43,12) = (/ & - & 0.63688e+00,0.72048e+00,0.81634e+00,0.92017e+00,0.10227e+01 /) - kbo(:,44,12) = (/ & - & 0.60858e+00,0.69178e+00,0.77940e+00,0.88149e+00,0.98460e+00 /) - kbo(:,45,12) = (/ & - & 0.58153e+00,0.66520e+00,0.74925e+00,0.84319e+00,0.94694e+00 /) - kbo(:,46,12) = (/ & - & 0.55197e+00,0.63412e+00,0.71872e+00,0.80664e+00,0.90684e+00 /) - kbo(:,47,12) = (/ & - & 0.51844e+00,0.60273e+00,0.68769e+00,0.77076e+00,0.86117e+00 /) - kbo(:,48,12) = (/ & - & 0.48120e+00,0.57148e+00,0.65491e+00,0.74197e+00,0.82485e+00 /) - kbo(:,49,12) = (/ & - & 0.44584e+00,0.53846e+00,0.62079e+00,0.70603e+00,0.79220e+00 /) - kbo(:,50,12) = (/ & - & 0.41289e+00,0.50133e+00,0.59314e+00,0.67773e+00,0.76297e+00 /) - kbo(:,51,12) = (/ & - & 0.38263e+00,0.46808e+00,0.55994e+00,0.64654e+00,0.73545e+00 /) - kbo(:,52,12) = (/ & - & 0.35216e+00,0.43713e+00,0.52781e+00,0.61897e+00,0.70212e+00 /) - kbo(:,53,12) = (/ & - & 0.33102e+00,0.40477e+00,0.49059e+00,0.58472e+00,0.67270e+00 /) - kbo(:,54,12) = (/ & - & 0.31146e+00,0.37834e+00,0.46271e+00,0.55353e+00,0.64596e+00 /) - kbo(:,55,12) = (/ & - & 0.29087e+00,0.35982e+00,0.43598e+00,0.52416e+00,0.61765e+00 /) - kbo(:,56,12) = (/ & - & 0.27304e+00,0.34098e+00,0.41224e+00,0.49775e+00,0.58771e+00 /) - kbo(:,57,12) = (/ & - & 0.25824e+00,0.32066e+00,0.39085e+00,0.46641e+00,0.55829e+00 /) - kbo(:,58,12) = (/ & - & 0.24548e+00,0.30081e+00,0.37338e+00,0.44708e+00,0.53062e+00 /) - kbo(:,59,12) = (/ & - & 0.24212e+00,0.29858e+00,0.36550e+00,0.44064e+00,0.51789e+00 /) - kbo(:,13,13) = (/ & - & 0.55998e+01,0.57039e+01,0.58049e+01,0.59180e+01,0.59854e+01 /) - kbo(:,14,13) = (/ & - & 0.53275e+01,0.54387e+01,0.55543e+01,0.56621e+01,0.57635e+01 /) - kbo(:,15,13) = (/ & - & 0.50203e+01,0.51578e+01,0.52898e+01,0.54130e+01,0.55373e+01 /) - kbo(:,16,13) = (/ & - & 0.47246e+01,0.48786e+01,0.50266e+01,0.51689e+01,0.53242e+01 /) - kbo(:,17,13) = (/ & - & 0.44403e+01,0.46027e+01,0.47680e+01,0.49455e+01,0.51299e+01 /) - kbo(:,18,13) = (/ & - & 0.41648e+01,0.43473e+01,0.45415e+01,0.47508e+01,0.49298e+01 /) - kbo(:,19,13) = (/ & - & 0.39134e+01,0.41196e+01,0.43493e+01,0.45520e+01,0.47522e+01 /) - kbo(:,20,13) = (/ & - & 0.36873e+01,0.39195e+01,0.41603e+01,0.43826e+01,0.46005e+01 /) - kbo(:,21,13) = (/ & - & 0.34974e+01,0.37507e+01,0.40010e+01,0.42413e+01,0.44759e+01 /) - kbo(:,22,13) = (/ & - & 0.33605e+01,0.36305e+01,0.38873e+01,0.41404e+01,0.43929e+01 /) - kbo(:,23,13) = (/ & - & 0.32571e+01,0.35388e+01,0.38042e+01,0.40702e+01,0.43353e+01 /) - kbo(:,24,13) = (/ & - & 0.31836e+01,0.34721e+01,0.37495e+01,0.40277e+01,0.43044e+01 /) - kbo(:,25,13) = (/ & - & 0.31346e+01,0.34329e+01,0.37222e+01,0.40107e+01,0.42953e+01 /) - kbo(:,26,13) = (/ & - & 0.31155e+01,0.34221e+01,0.37222e+01,0.40178e+01,0.43079e+01 /) - kbo(:,27,13) = (/ & - & 0.31157e+01,0.34328e+01,0.37392e+01,0.40396e+01,0.43346e+01 /) - kbo(:,28,13) = (/ & - & 0.31335e+01,0.34580e+01,0.37695e+01,0.40734e+01,0.43720e+01 /) - kbo(:,29,13) = (/ & - & 0.31697e+01,0.34978e+01,0.38120e+01,0.41186e+01,0.44189e+01 /) - kbo(:,30,13) = (/ & - & 0.32194e+01,0.35475e+01,0.38638e+01,0.41720e+01,0.44722e+01 /) - kbo(:,31,13) = (/ & - & 0.32811e+01,0.36069e+01,0.39241e+01,0.42325e+01,0.45314e+01 /) - kbo(:,32,13) = (/ & - & 0.33484e+01,0.36727e+01,0.39897e+01,0.42974e+01,0.45949e+01 /) - kbo(:,33,13) = (/ & - & 0.34186e+01,0.37430e+01,0.40586e+01,0.43658e+01,0.46602e+01 /) - kbo(:,34,13) = (/ & - & 0.34801e+01,0.38048e+01,0.41197e+01,0.44255e+01,0.47156e+01 /) - kbo(:,35,13) = (/ & - & 0.35126e+01,0.38375e+01,0.41525e+01,0.44577e+01,0.47454e+01 /) - kbo(:,36,13) = (/ & - & 0.35115e+01,0.38370e+01,0.41529e+01,0.44584e+01,0.47449e+01 /) - kbo(:,37,13) = (/ & - & 0.34620e+01,0.37892e+01,0.41066e+01,0.44144e+01,0.47052e+01 /) - kbo(:,38,13) = (/ & - & 0.34108e+01,0.37391e+01,0.40587e+01,0.43685e+01,0.46624e+01 /) - kbo(:,39,13) = (/ & - & 0.33603e+01,0.36896e+01,0.40114e+01,0.43229e+01,0.46208e+01 /) - kbo(:,40,13) = (/ & - & 0.32696e+01,0.36068e+01,0.39317e+01,0.42460e+01,0.45479e+01 /) - kbo(:,41,13) = (/ & - & 0.31746e+01,0.35197e+01,0.38475e+01,0.41644e+01,0.44716e+01 /) - kbo(:,42,13) = (/ & - & 0.30768e+01,0.34312e+01,0.37630e+01,0.40826e+01,0.43924e+01 /) - kbo(:,43,13) = (/ & - & 0.29558e+01,0.33178e+01,0.36587e+01,0.39822e+01,0.42959e+01 /) - kbo(:,44,13) = (/ & - & 0.28280e+01,0.31906e+01,0.35435e+01,0.38727e+01,0.41899e+01 /) - kbo(:,45,13) = (/ & - & 0.26988e+01,0.30597e+01,0.34201e+01,0.37628e+01,0.40831e+01 /) - kbo(:,46,13) = (/ & - & 0.25661e+01,0.29262e+01,0.32865e+01,0.36383e+01,0.39682e+01 /) - kbo(:,47,13) = (/ & - & 0.24176e+01,0.27716e+01,0.31308e+01,0.34925e+01,0.38381e+01 /) - kbo(:,48,13) = (/ & - & 0.22754e+01,0.26218e+01,0.29793e+01,0.33363e+01,0.36948e+01 /) - kbo(:,49,13) = (/ & - & 0.21329e+01,0.24724e+01,0.28302e+01,0.31874e+01,0.35454e+01 /) - kbo(:,50,13) = (/ & - & 0.20005e+01,0.23398e+01,0.26856e+01,0.30422e+01,0.34002e+01 /) - kbo(:,51,13) = (/ & - & 0.18713e+01,0.22087e+01,0.25515e+01,0.29067e+01,0.32588e+01 /) - kbo(:,52,13) = (/ & - & 0.17459e+01,0.20772e+01,0.24169e+01,0.27666e+01,0.31241e+01 /) - kbo(:,53,13) = (/ & - & 0.16095e+01,0.19502e+01,0.22895e+01,0.26325e+01,0.29855e+01 /) - kbo(:,54,13) = (/ & - & 0.15066e+01,0.18320e+01,0.21659e+01,0.25081e+01,0.28569e+01 /) - kbo(:,55,13) = (/ & - & 0.14318e+01,0.17117e+01,0.20491e+01,0.23896e+01,0.27343e+01 /) - kbo(:,56,13) = (/ & - & 0.13449e+01,0.16235e+01,0.19309e+01,0.22682e+01,0.26139e+01 /) - kbo(:,57,13) = (/ & - & 0.12667e+01,0.15514e+01,0.18274e+01,0.21528e+01,0.24919e+01 /) - kbo(:,58,13) = (/ & - & 0.11763e+01,0.14696e+01,0.17445e+01,0.20345e+01,0.23757e+01 /) - kbo(:,59,13) = (/ & - & 0.11472e+01,0.14428e+01,0.17312e+01,0.20031e+01,0.23234e+01 /) - kbo(:,13,14) = (/ & - & 0.15147e+02,0.15130e+02,0.15113e+02,0.15099e+02,0.15078e+02 /) - kbo(:,14,14) = (/ & - & 0.15510e+02,0.15546e+02,0.15567e+02,0.15587e+02,0.15585e+02 /) - kbo(:,15,14) = (/ & - & 0.15739e+02,0.15841e+02,0.15930e+02,0.15986e+02,0.16004e+02 /) - kbo(:,16,14) = (/ & - & 0.15858e+02,0.16042e+02,0.16196e+02,0.16295e+02,0.16347e+02 /) - kbo(:,17,14) = (/ & - & 0.15892e+02,0.16168e+02,0.16375e+02,0.16519e+02,0.16620e+02 /) - kbo(:,18,14) = (/ & - & 0.15890e+02,0.16233e+02,0.16495e+02,0.16687e+02,0.16843e+02 /) - kbo(:,19,14) = (/ & - & 0.15860e+02,0.16260e+02,0.16572e+02,0.16822e+02,0.17016e+02 /) - kbo(:,20,14) = (/ & - & 0.15821e+02,0.16274e+02,0.16642e+02,0.16937e+02,0.17165e+02 /) - kbo(:,21,14) = (/ & - & 0.15778e+02,0.16284e+02,0.16705e+02,0.17036e+02,0.17293e+02 /) - kbo(:,22,14) = (/ & - & 0.15777e+02,0.16337e+02,0.16794e+02,0.17151e+02,0.17417e+02 /) - kbo(:,23,14) = (/ & - & 0.15815e+02,0.16408e+02,0.16883e+02,0.17258e+02,0.17537e+02 /) - kbo(:,24,14) = (/ & - & 0.15884e+02,0.16493e+02,0.16982e+02,0.17365e+02,0.17648e+02 /) - kbo(:,25,14) = (/ & - & 0.15973e+02,0.16594e+02,0.17087e+02,0.17470e+02,0.17753e+02 /) - kbo(:,26,14) = (/ & - & 0.16098e+02,0.16711e+02,0.17198e+02,0.17574e+02,0.17853e+02 /) - kbo(:,27,14) = (/ & - & 0.16232e+02,0.16836e+02,0.17310e+02,0.17676e+02,0.17946e+02 /) - kbo(:,28,14) = (/ & - & 0.16376e+02,0.16966e+02,0.17425e+02,0.17775e+02,0.18032e+02 /) - kbo(:,29,14) = (/ & - & 0.16527e+02,0.17096e+02,0.17538e+02,0.17871e+02,0.18111e+02 /) - kbo(:,30,14) = (/ & - & 0.16681e+02,0.17223e+02,0.17646e+02,0.17959e+02,0.18183e+02 /) - kbo(:,31,14) = (/ & - & 0.16832e+02,0.17348e+02,0.17747e+02,0.18041e+02,0.18247e+02 /) - kbo(:,32,14) = (/ & - & 0.16982e+02,0.17470e+02,0.17844e+02,0.18116e+02,0.18304e+02 /) - kbo(:,33,14) = (/ & - & 0.17125e+02,0.17586e+02,0.17935e+02,0.18187e+02,0.18356e+02 /) - kbo(:,34,14) = (/ & - & 0.17243e+02,0.17681e+02,0.18009e+02,0.18243e+02,0.18396e+02 /) - kbo(:,35,14) = (/ & - & 0.17308e+02,0.17736e+02,0.18053e+02,0.18277e+02,0.18422e+02 /) - kbo(:,36,14) = (/ & - & 0.17321e+02,0.17747e+02,0.18064e+02,0.18289e+02,0.18431e+02 /) - kbo(:,37,14) = (/ & - & 0.17259e+02,0.17701e+02,0.18033e+02,0.18270e+02,0.18425e+02 /) - kbo(:,38,14) = (/ & - & 0.17190e+02,0.17649e+02,0.17997e+02,0.18247e+02,0.18415e+02 /) - kbo(:,39,14) = (/ & - & 0.17116e+02,0.17594e+02,0.17957e+02,0.18221e+02,0.18401e+02 /) - kbo(:,40,14) = (/ & - & 0.16981e+02,0.17491e+02,0.17882e+02,0.18168e+02,0.18367e+02 /) - kbo(:,41,14) = (/ & - & 0.16829e+02,0.17375e+02,0.17795e+02,0.18107e+02,0.18328e+02 /) - kbo(:,42,14) = (/ & - & 0.16667e+02,0.17250e+02,0.17700e+02,0.18038e+02,0.18281e+02 /) - kbo(:,43,14) = (/ & - & 0.16452e+02,0.17082e+02,0.17573e+02,0.17944e+02,0.18214e+02 /) - kbo(:,44,14) = (/ & - & 0.16203e+02,0.16887e+02,0.17421e+02,0.17833e+02,0.18135e+02 /) - kbo(:,45,14) = (/ & - & 0.15935e+02,0.16673e+02,0.17257e+02,0.17708e+02,0.18046e+02 /) - kbo(:,46,14) = (/ & - & 0.15628e+02,0.16427e+02,0.17064e+02,0.17560e+02,0.17936e+02 /) - kbo(:,47,14) = (/ & - & 0.15258e+02,0.16126e+02,0.16827e+02,0.17377e+02,0.17799e+02 /) - kbo(:,48,14) = (/ & - & 0.14864e+02,0.15798e+02,0.16564e+02,0.17174e+02,0.17643e+02 /) - kbo(:,49,14) = (/ & - & 0.14439e+02,0.15441e+02,0.16276e+02,0.16946e+02,0.17469e+02 /) - kbo(:,50,14) = (/ & - & 0.14012e+02,0.15084e+02,0.15980e+02,0.16711e+02,0.17289e+02 /) - kbo(:,51,14) = (/ & - & 0.13576e+02,0.14715e+02,0.15671e+02,0.16463e+02,0.17096e+02 /) - kbo(:,52,14) = (/ & - & 0.13120e+02,0.14320e+02,0.15341e+02,0.16194e+02,0.16882e+02 /) - kbo(:,53,14) = (/ & - & 0.12642e+02,0.13899e+02,0.14988e+02,0.15902e+02,0.16649e+02 /) - kbo(:,54,14) = (/ & - & 0.12147e+02,0.13496e+02,0.14645e+02,0.15614e+02,0.16418e+02 /) - kbo(:,55,14) = (/ & - & 0.11626e+02,0.13090e+02,0.14295e+02,0.15320e+02,0.16178e+02 /) - kbo(:,56,14) = (/ & - & 0.11110e+02,0.12619e+02,0.13926e+02,0.15012e+02,0.15922e+02 /) - kbo(:,57,14) = (/ & - & 0.10565e+02,0.12110e+02,0.13518e+02,0.14685e+02,0.15649e+02 /) - kbo(:,58,14) = (/ & - & 0.10061e+02,0.11633e+02,0.13084e+02,0.14356e+02,0.15374e+02 /) - kbo(:,59,14) = (/ & - & 0.98377e+01,0.11416e+02,0.12868e+02,0.14184e+02,0.15259e+02 /) - kbo(:,13,15) = (/ & - & 0.41304e+02,0.40483e+02,0.39654e+02,0.38829e+02,0.38029e+02 /) - kbo(:,14,15) = (/ & - & 0.44686e+02,0.43762e+02,0.42836e+02,0.41888e+02,0.41004e+02 /) - kbo(:,15,15) = (/ & - & 0.48004e+02,0.46942e+02,0.45864e+02,0.44813e+02,0.43844e+02 /) - kbo(:,16,15) = (/ & - & 0.51150e+02,0.49938e+02,0.48734e+02,0.47591e+02,0.46512e+02 /) - kbo(:,17,15) = (/ & - & 0.54100e+02,0.52729e+02,0.51435e+02,0.50180e+02,0.48962e+02 /) - kbo(:,18,15) = (/ & - & 0.56777e+02,0.55306e+02,0.53894e+02,0.52525e+02,0.51164e+02 /) - kbo(:,19,15) = (/ & - & 0.59186e+02,0.57635e+02,0.56100e+02,0.54603e+02,0.53129e+02 /) - kbo(:,20,15) = (/ & - & 0.61293e+02,0.59648e+02,0.58005e+02,0.56388e+02,0.54798e+02 /) - kbo(:,21,15) = (/ & - & 0.63124e+02,0.61368e+02,0.59613e+02,0.57895e+02,0.56204e+02 /) - kbo(:,22,15) = (/ & - & 0.64562e+02,0.62695e+02,0.60841e+02,0.59040e+02,0.57268e+02 /) - kbo(:,23,15) = (/ & - & 0.65690e+02,0.63742e+02,0.61820e+02,0.59937e+02,0.58087e+02 /) - kbo(:,24,15) = (/ & - & 0.66548e+02,0.64535e+02,0.62550e+02,0.60597e+02,0.58690e+02 /) - kbo(:,25,15) = (/ & - & 0.67194e+02,0.65115e+02,0.63062e+02,0.61050e+02,0.59091e+02 /) - kbo(:,26,15) = (/ & - & 0.67597e+02,0.65466e+02,0.63369e+02,0.61312e+02,0.59309e+02 /) - kbo(:,27,15) = (/ & - & 0.67831e+02,0.65647e+02,0.63518e+02,0.61430e+02,0.59393e+02 /) - kbo(:,28,15) = (/ & - & 0.67908e+02,0.65687e+02,0.63527e+02,0.61427e+02,0.59357e+02 /) - kbo(:,29,15) = (/ & - & 0.67845e+02,0.65603e+02,0.63419e+02,0.61304e+02,0.59222e+02 /) - kbo(:,30,15) = (/ & - & 0.67682e+02,0.65422e+02,0.63225e+02,0.61094e+02,0.59010e+02 /) - kbo(:,31,15) = (/ & - & 0.67415e+02,0.65154e+02,0.62953e+02,0.60816e+02,0.58721e+02 /) - kbo(:,32,15) = (/ & - & 0.67084e+02,0.64817e+02,0.62622e+02,0.60477e+02,0.58393e+02 /) - kbo(:,33,15) = (/ & - & 0.66692e+02,0.64428e+02,0.62242e+02,0.60092e+02,0.58024e+02 /) - kbo(:,34,15) = (/ & - & 0.66346e+02,0.64077e+02,0.61890e+02,0.59745e+02,0.57700e+02 /) - kbo(:,35,15) = (/ & - & 0.66188e+02,0.63920e+02,0.61727e+02,0.59582e+02,0.57542e+02 /) - kbo(:,36,15) = (/ & - & 0.66248e+02,0.63978e+02,0.61782e+02,0.59625e+02,0.57587e+02 /) - kbo(:,37,15) = (/ & - & 0.66642e+02,0.64358e+02,0.62144e+02,0.59978e+02,0.57911e+02 /) - kbo(:,38,15) = (/ & - & 0.67048e+02,0.64747e+02,0.62516e+02,0.60340e+02,0.58249e+02 /) - kbo(:,39,15) = (/ & - & 0.67435e+02,0.65122e+02,0.62879e+02,0.60689e+02,0.58578e+02 /) - kbo(:,40,15) = (/ & - & 0.68061e+02,0.65724e+02,0.63462e+02,0.61257e+02,0.59113e+02 /) - kbo(:,41,15) = (/ & - & 0.68702e+02,0.66354e+02,0.64067e+02,0.61847e+02,0.59682e+02 /) - kbo(:,42,15) = (/ & - & 0.69355e+02,0.66983e+02,0.64678e+02,0.62437e+02,0.60259e+02 /) - kbo(:,43,15) = (/ & - & 0.70142e+02,0.67744e+02,0.65416e+02,0.63159e+02,0.60959e+02 /) - kbo(:,44,15) = (/ & - & 0.70991e+02,0.68567e+02,0.66218e+02,0.63930e+02,0.61713e+02 /) - kbo(:,45,15) = (/ & - & 0.71837e+02,0.69401e+02,0.67026e+02,0.64713e+02,0.62473e+02 /) - kbo(:,46,15) = (/ & - & 0.72733e+02,0.70287e+02,0.67885e+02,0.65552e+02,0.63292e+02 /) - kbo(:,47,15) = (/ & - & 0.73741e+02,0.71285e+02,0.68859e+02,0.66493e+02,0.64198e+02 /) - kbo(:,48,15) = (/ & - & 0.74725e+02,0.72283e+02,0.69840e+02,0.67442e+02,0.65125e+02 /) - kbo(:,49,15) = (/ & - & 0.75665e+02,0.73280e+02,0.70828e+02,0.68404e+02,0.66060e+02 /) - kbo(:,50,15) = (/ & - & 0.76534e+02,0.74218e+02,0.71764e+02,0.69323e+02,0.66942e+02 /) - kbo(:,51,15) = (/ & - & 0.77333e+02,0.75093e+02,0.72664e+02,0.70214e+02,0.67806e+02 /) - kbo(:,52,15) = (/ & - & 0.78102e+02,0.75935e+02,0.73563e+02,0.71111e+02,0.68683e+02 /) - kbo(:,53,15) = (/ & - & 0.78815e+02,0.76761e+02,0.74462e+02,0.72010e+02,0.69568e+02 /) - kbo(:,54,15) = (/ & - & 0.79431e+02,0.77488e+02,0.75258e+02,0.72840e+02,0.70386e+02 /) - kbo(:,55,15) = (/ & - & 0.79987e+02,0.78156e+02,0.75999e+02,0.73628e+02,0.71177e+02 /) - kbo(:,56,15) = (/ & - & 0.80478e+02,0.78776e+02,0.76714e+02,0.74415e+02,0.71963e+02 /) - kbo(:,57,15) = (/ & - & 0.80898e+02,0.79365e+02,0.77410e+02,0.75181e+02,0.72750e+02 /) - kbo(:,58,15) = (/ & - & 0.81210e+02,0.79894e+02,0.78053e+02,0.75880e+02,0.73498e+02 /) - kbo(:,59,15) = (/ & - & 0.81312e+02,0.80086e+02,0.78299e+02,0.76156e+02,0.73801e+02 /) - kbo(:,13,16) = (/ & - & 0.81866e+02,0.78569e+02,0.75624e+02,0.72854e+02,0.70288e+02 /) - kbo(:,14,16) = (/ & - & 0.93095e+02,0.88986e+02,0.85351e+02,0.82051e+02,0.78936e+02 /) - kbo(:,15,16) = (/ & - & 0.10470e+03,0.99738e+02,0.95227e+02,0.91249e+02,0.87478e+02 /) - kbo(:,16,16) = (/ & - & 0.11635e+03,0.11037e+03,0.10495e+03,0.10011e+03,0.95646e+02 /) - kbo(:,17,16) = (/ & - & 0.12769e+03,0.12074e+03,0.11431e+03,0.10856e+03,0.10332e+03 /) - kbo(:,18,16) = (/ & - & 0.13851e+03,0.13038e+03,0.12299e+03,0.11635e+03,0.11033e+03 /) - kbo(:,19,16) = (/ & - & 0.14848e+03,0.13912e+03,0.13084e+03,0.12336e+03,0.11656e+03 /) - kbo(:,20,16) = (/ & - & 0.15718e+03,0.14679e+03,0.13761e+03,0.12934e+03,0.12188e+03 /) - kbo(:,21,16) = (/ & - & 0.16462e+03,0.15341e+03,0.14345e+03,0.13443e+03,0.12636e+03 /) - kbo(:,22,16) = (/ & - & 0.17012e+03,0.15822e+03,0.14760e+03,0.13801e+03,0.12950e+03 /) - kbo(:,23,16) = (/ & - & 0.17437e+03,0.16184e+03,0.15069e+03,0.14069e+03,0.13184e+03 /) - kbo(:,24,16) = (/ & - & 0.17733e+03,0.16436e+03,0.15282e+03,0.14251e+03,0.13340e+03 /) - kbo(:,25,16) = (/ & - & 0.17910e+03,0.16583e+03,0.15401e+03,0.14354e+03,0.13426e+03 /) - kbo(:,26,16) = (/ & - & 0.17968e+03,0.16627e+03,0.15433e+03,0.14378e+03,0.13445e+03 /) - kbo(:,27,16) = (/ & - & 0.17946e+03,0.16602e+03,0.15406e+03,0.14351e+03,0.13417e+03 /) - kbo(:,28,16) = (/ & - & 0.17860e+03,0.16522e+03,0.15334e+03,0.14282e+03,0.13355e+03 /) - kbo(:,29,16) = (/ & - & 0.17717e+03,0.16389e+03,0.15216e+03,0.14174e+03,0.13260e+03 /) - kbo(:,30,16) = (/ & - & 0.17533e+03,0.16225e+03,0.15066e+03,0.14043e+03,0.13143e+03 /) - kbo(:,31,16) = (/ & - & 0.17313e+03,0.16029e+03,0.14890e+03,0.13886e+03,0.13004e+03 /) - kbo(:,32,16) = (/ & - & 0.17069e+03,0.15811e+03,0.14694e+03,0.13716e+03,0.12847e+03 /) - kbo(:,33,16) = (/ & - & 0.16804e+03,0.15577e+03,0.14487e+03,0.13533e+03,0.12682e+03 /) - kbo(:,34,16) = (/ & - & 0.16580e+03,0.15376e+03,0.14309e+03,0.13376e+03,0.12539e+03 /) - kbo(:,35,16) = (/ & - & 0.16467e+03,0.15275e+03,0.14221e+03,0.13298e+03,0.12468e+03 /) - kbo(:,36,16) = (/ & - & 0.16486e+03,0.15289e+03,0.14233e+03,0.13308e+03,0.12477e+03 /) - kbo(:,37,16) = (/ & - & 0.16688e+03,0.15469e+03,0.14392e+03,0.13446e+03,0.12602e+03 /) - kbo(:,38,16) = (/ & - & 0.16902e+03,0.15657e+03,0.14555e+03,0.13592e+03,0.12732e+03 /) - kbo(:,39,16) = (/ & - & 0.17110e+03,0.15844e+03,0.14718e+03,0.13734e+03,0.12861e+03 /) - kbo(:,40,16) = (/ & - & 0.17468e+03,0.16155e+03,0.14992e+03,0.13976e+03,0.13077e+03 /) - kbo(:,41,16) = (/ & - & 0.17848e+03,0.16489e+03,0.15289e+03,0.14236e+03,0.13307e+03 /) - kbo(:,42,16) = (/ & - & 0.18237e+03,0.16833e+03,0.15592e+03,0.14501e+03,0.13541e+03 /) - kbo(:,43,16) = (/ & - & 0.18726e+03,0.17263e+03,0.15975e+03,0.14834e+03,0.13835e+03 /) - kbo(:,44,16) = (/ & - & 0.19275e+03,0.17748e+03,0.16403e+03,0.15210e+03,0.14166e+03 /) - kbo(:,45,16) = (/ & - & 0.19851e+03,0.18250e+03,0.16844e+03,0.15602e+03,0.14507e+03 /) - kbo(:,46,16) = (/ & - & 0.20490e+03,0.18806e+03,0.17333e+03,0.16038e+03,0.14888e+03 /) - kbo(:,47,16) = (/ & - & 0.21238e+03,0.19462e+03,0.17910e+03,0.16545e+03,0.15337e+03 /) - kbo(:,48,16) = (/ & - & 0.22029e+03,0.20156e+03,0.18514e+03,0.17074e+03,0.15806e+03 /) - kbo(:,49,16) = (/ & - & 0.22889e+03,0.20882e+03,0.19150e+03,0.17637e+03,0.16304e+03 /) - kbo(:,50,16) = (/ & - & 0.23745e+03,0.21596e+03,0.19782e+03,0.18187e+03,0.16787e+03 /) - kbo(:,51,16) = (/ & - & 0.24629e+03,0.22340e+03,0.20422e+03,0.18747e+03,0.17280e+03 /) - kbo(:,52,16) = (/ & - & 0.25553e+03,0.23136e+03,0.21090e+03,0.19335e+03,0.17798e+03 /) - kbo(:,53,16) = (/ & - & 0.26553e+03,0.23980e+03,0.21793e+03,0.19951e+03,0.18336e+03 /) - kbo(:,54,16) = (/ & - & 0.27524e+03,0.24799e+03,0.22485e+03,0.20544e+03,0.18854e+03 /) - kbo(:,55,16) = (/ & - & 0.28502e+03,0.25615e+03,0.23188e+03,0.21133e+03,0.19372e+03 /) - kbo(:,56,16) = (/ & - & 0.29529e+03,0.26491e+03,0.23927e+03,0.21749e+03,0.19913e+03 /) - kbo(:,57,16) = (/ & - & 0.30624e+03,0.27413e+03,0.24703e+03,0.22404e+03,0.20478e+03 /) - kbo(:,58,16) = (/ & - & 0.31727e+03,0.28329e+03,0.25471e+03,0.23065e+03,0.21031e+03 /) - kbo(:,59,16) = (/ & - & 0.32188e+03,0.28710e+03,0.25796e+03,0.23341e+03,0.21261e+03 /) - -! ----------------------------------------------------------------- - - forrefo(:, 1) = (/ 0.214504e-06, 0.460418e-06, 0.357608e-05, 0.192037e-05 /) - forrefo(:, 2) = (/ 0.142576e-05, 0.364463e-05, 0.117033e-04, 0.112085e-04 /) - forrefo(:, 3) = (/ 0.101536e-04, 0.124096e-04, 0.509190e-04, 0.565282e-04 /) - forrefo(:, 4) = (/ 0.143394e-03, 0.154700e-03, 0.466498e-03, 0.918829e-03 /) - forrefo(:, 5) = (/ 0.251631e-02, 0.241729e-02, 0.240057e-02, 0.350408e-02 /) - forrefo(:, 6) = (/ 0.410309e-02, 0.416851e-02, 0.390925e-02, 0.383694e-02 /) - forrefo(:, 7) = (/ 0.445387e-02, 0.448657e-02, 0.432310e-02, 0.370739e-02 /) - forrefo(:, 8) = (/ 0.458150e-02, 0.460014e-02, 0.450245e-02, 0.336718e-02 /) - forrefo(:, 9) = (/ 0.465423e-02, 0.465595e-02, 0.467006e-02, 0.368061e-02 /) - forrefo(:,10) = (/ 0.493955e-02, 0.490181e-02, 0.481941e-02, 0.367577e-02 /) - forrefo(:,11) = (/ 0.511876e-02, 0.490981e-02, 0.493303e-02, 0.357423e-02 /) - forrefo(:,12) = (/ 0.509845e-02, 0.511556e-02, 0.504031e-02, 0.355915e-02 /) - forrefo(:,13) = (/ 0.523822e-02, 0.530473e-02, 0.523811e-02, 0.414259e-02 /) - forrefo(:,14) = (/ 0.551133e-02, 0.535831e-02, 0.546702e-02, 0.473875e-02 /) - forrefo(:,15) = (/ 0.609781e-02, 0.589859e-02, 0.561187e-02, 0.528981e-02 /) - forrefo(:,16) = (/ 0.644958e-02, 0.631718e-02, 0.625201e-02, 0.600448e-02 /) - -! ----------------------------------------------------------------- -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 0.217058e-03, 0.176391e-03, 0.143342e-03, 0.116486e-03, 0.946614e-04, & - & 0.769257e-04, 0.625131e-04, 0.508007e-04, 0.412828e-04, 0.335481e-04 /) - selfrefo(:, 2) = (/ & - & 0.598055e-03, 0.484805e-03, 0.393000e-03, 0.318580e-03, 0.258252e-03, & - & 0.209348e-03, 0.169705e-03, 0.137569e-03, 0.111518e-03, 0.904008e-04 /) - selfrefo(:, 3) = (/ & - & 0.102691e-02, 0.930281e-03, 0.842740e-03, 0.763437e-03, 0.691596e-03, & - & 0.626516e-03, 0.567560e-03, 0.514152e-03, 0.465769e-03, 0.421940e-03 /) - selfrefo(:, 4) = (/ & - & 0.388569e-02, 0.365098e-02, 0.343045e-02, 0.322324e-02, 0.302854e-02, & - & 0.284561e-02, 0.267372e-02, 0.251222e-02, 0.236047e-02, 0.221789e-02 /) - selfrefo(:, 5) = (/ & - & 0.349845e-01, 0.326678e-01, 0.305045e-01, 0.284845e-01, 0.265982e-01, & - & 0.248369e-01, 0.231921e-01, 0.216563e-01, 0.202222e-01, 0.188831e-01 /) - selfrefo(:, 6) = (/ & - & 0.613705e-01, 0.562676e-01, 0.515890e-01, 0.472994e-01, 0.433665e-01, & - & 0.397606e-01, 0.364545e-01, 0.334233e-01, 0.306442e-01, 0.280961e-01 /) - selfrefo(:, 7) = (/ & - & 0.656981e-01, 0.602660e-01, 0.552830e-01, 0.507120e-01, 0.465190e-01, & - & 0.426726e-01, 0.391443e-01, 0.359077e-01, 0.329387e-01, 0.302153e-01 /) - selfrefo(:, 8) = (/ & - & 0.671782e-01, 0.616461e-01, 0.565695e-01, 0.519110e-01, 0.476361e-01, & - & 0.437132e-01, 0.401134e-01, 0.368100e-01, 0.337787e-01, 0.309970e-01 /) - selfrefo(:, 9) = (/ & - & 0.675902e-01, 0.620888e-01, 0.570351e-01, 0.523928e-01, 0.481284e-01, & - & 0.442110e-01, 0.406125e-01, 0.373069e-01, 0.342703e-01, 0.314809e-01 /) - selfrefo(:,10) = (/ & - & 0.708308e-01, 0.651419e-01, 0.599099e-01, 0.550981e-01, 0.506728e-01, & - & 0.466030e-01, 0.428600e-01, 0.394176e-01, 0.362517e-01, 0.333401e-01 /) - selfrefo(:,11) = (/ & - & 0.698445e-01, 0.646584e-01, 0.598573e-01, 0.554128e-01, 0.512982e-01, & - & 0.474892e-01, 0.439630e-01, 0.406986e-01, 0.376766e-01, 0.348791e-01 /) - selfrefo(:,12) = (/ & - & 0.743921e-01, 0.682057e-01, 0.625337e-01, 0.573334e-01, 0.525655e-01, & - & 0.481942e-01, 0.441863e-01, 0.405118e-01, 0.371428e-01, 0.340540e-01 /) - selfrefo(:,13) = (/ & - & 0.775758e-01, 0.709818e-01, 0.649484e-01, 0.594277e-01, 0.543764e-01, & - & 0.497544e-01, 0.455253e-01, 0.416556e-01, 0.381149e-01, 0.348751e-01 /) - selfrefo(:,14) = (/ & - & 0.776545e-01, 0.714761e-01, 0.657894e-01, 0.605550e-01, 0.557372e-01, & - & 0.513026e-01, 0.472209e-01, 0.434639e-01, 0.400058e-01, 0.368229e-01 /) - selfrefo(:,15) = (/ & - & 0.855675e-01, 0.787337e-01, 0.724456e-01, 0.666598e-01, 0.613360e-01, & - & 0.564374e-01, 0.519301e-01, 0.477827e-01, 0.439666e-01, 0.404552e-01 /) - selfrefo(:,16) = (/ & - & 0.934781e-01, 0.855190e-01, 0.782376e-01, 0.715761e-01, 0.654819e-01, & - & 0.599065e-01, 0.548058e-01, 0.501394e-01, 0.458704e-01, 0.419648e-01 /) - - end subroutine sw_kgb20 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_21.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_21.F90 deleted file mode 100644 index 9228feb24..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_21.F90 +++ /dev/null @@ -1,11001 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb21 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg21, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:, 1) = (/ & - & 16.1643 , 15.5806, 14.7254 , 13.5541 , & - & 11.9519 ,10.44410, 8.37884 , 6.26384 , & - & 4.28435 ,0.465228, 0.385095 ,0.304226 , & - & 0.222479,0.143286, 5.58046e-02, 7.84856e-03 /) - sfluxrefo(:, 2) = (/ & - & 15.6451 , 15.3170, 14.6987 , 13.7350 , & - & 12.2267 ,10.51646, 8.47150 , 6.38873 , & - & 4.33536 ,0.470610,0.389426 ,0.306461 , & - & 0.223537,0.143273, 5.58179e-02, 7.84856e-03 /) - sfluxrefo(:, 3) = (/ & - & 15.6092 , 15.3293, 14.6881 , 13.6693 , & - & 12.2342 ,10.52010, 8.49442 , 6.42138 , & - & 4.35865 ,0.473349,0.391349 ,0.308861 , & - & 0.224666,0.144799, 5.58176e-02, 7.84881e-03 /) - sfluxrefo(:, 4) = (/ & - & 15.5786 , 15.3422, 14.6894 , 13.6040 , & - & 12.2567 ,10.49400, 8.53521 , 6.44427 , & - & 4.37208 ,0.475709,0.392956 ,0.309737 , & - & 0.226274,0.146483, 5.59325e-02, 7.84881e-03 /) - sfluxrefo(:, 5) = (/ & - & 15.5380 , 15.3826, 14.6575 , 13.5722 , & - & 12.2646 ,10.47672, 8.57158 , 6.46343 , & - & 4.38259 ,0.477647,0.393982 ,0.310686 , & - & 0.227620,0.148376, 5.60398e-02, 7.83925e-03 /) - sfluxrefo(:, 6) = (/ & - & 15.5124 , 15.3986, 14.6240 , 13.5535 , & - & 12.2468 ,10.48891, 8.60434 , 6.47985 , & - & 4.39448 ,0.478267,0.395618 ,0.311043 , & - & 0.230927,0.148774, 5.61189e-02, 7.83925e-03 /) - sfluxrefo(:, 7) = (/ & - & 15.4910 , 15.4028, 14.5772 , 13.5507 , & - & 12.2122 ,10.52735, 8.62650 , 6.49644 , & - & 4.41173 ,0.478627,0.396433 ,0.314199 , & - & 0.233125,0.149052, 5.62309e-02, 7.83925e-03 /) - sfluxrefo(:, 8) = (/ & - & 15.4562 , 15.3928, 14.5510 , 13.5122 , & - & 12.1890 , 10.5826, 8.65842 , 6.51558 , & - & 4.42747 ,0.480669,0.400143 ,0.318144 , & - & 0.233937,0.149119, 5.62309e-02, 7.83925e-03 /) - sfluxrefo(:, 9) = (/ & - & 15.0069 , 15.1479, 14.7802 , 13.6085 , & - & 12.2793 , 10.6929, 8.72723 , 6.57114 , & - & 4.46330 ,0.486724,0.401446 ,0.318879 , & - & 0.233959,0.149119, 5.62309e-02, 7.83925e-03 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:,1) = (/ & - & 1.57129E+01, 1.54904E+01, 1.49509E+01, 1.39092E+01,& - & 1.24888E+01, 1.07128E+01, 8.57844E+00, 6.38774E+00,& - & 4.35447E+00, 4.73524E-01, 3.90882E-01, 3.11861E-01,& - & 2.33091E-01, 1.49309E-01, 5.63710E-02, 7.88918E-03/) - irradnceo(:,2) = (/ & - & 1.56766E+01, 1.55021E+01, 1.49713E+01, 1.38911E+01,& - & 1.24360E+01, 1.06484E+01, 8.61538E+00, 6.45395E+00,& - & 4.38881E+00, 4.75124E-01, 3.91224E-01, 3.11843E-01,& - & 2.33125E-01, 1.49316E-01, 5.63706E-02, 7.88922E-03/) - irradnceo(:,3) = (/ & - & 1.56755E+01, 1.55027E+01, 1.49715E+01, 1.38683E+01,& - & 1.23920E+01, 1.06218E+01, 8.63540E+00, 6.50033E+00,& - & 4.40723E+00, 4.78167E-01, 3.94546E-01, 3.13723E-01,& - & 2.33773E-01, 1.49323E-01, 5.63702E-02, 7.88922E-03/) - irradnceo(:,4) = (/ & - & 1.56716E+01, 1.55031E+01, 1.49856E+01, 1.38422E+01,& - & 1.23545E+01, 1.06133E+01, 8.64777E+00, 6.52563E+00,& - & 4.42180E+00, 4.79941E-01, 3.97545E-01, 3.17529E-01,& - & 2.34118E-01, 1.49502E-01, 5.63703E-02, 7.88922E-03/) - irradnceo(:,5) = (/ & - & 1.56725E+01, 1.55068E+01, 1.49873E+01, 1.37951E+01,& - & 1.23269E+01, 1.06154E+01, 8.67305E+00, 6.54630E+00,& - & 4.43306E+00, 4.81604E-01, 4.02284E-01, 3.19654E-01,& - & 2.34469E-01, 1.49681E-01, 5.63643E-02, 7.92441E-03/) - irradnceo(:,6) = (/ & - & 1.56682E+01, 1.55304E+01, 1.49594E+01, 1.37670E+01,& - & 1.22966E+01, 1.06212E+01, 8.69889E+00, 6.56317E+00,& - & 4.44292E+00, 4.86979E-01, 4.04733E-01, 3.19916E-01,& - & 2.34991E-01, 1.49702E-01, 5.64479E-02, 7.92441E-03/) - irradnceo(:,7) = (/ & - & 1.56610E+01, 1.55509E+01, 1.49307E+01, 1.37200E+01,& - & 1.22807E+01, 1.06357E+01, 8.72885E+00, 6.57604E+00,& - & 4.46046E+00, 4.89325E-01, 4.05136E-01, 3.20420E-01,& - & 2.35106E-01, 1.49778E-01, 5.64479E-02, 7.92441E-03/) - irradnceo(:,8) = (/ & - & 1.56380E+01, 1.56051E+01, 1.48613E+01, 1.36591E+01,& - & 1.22897E+01, 1.06664E+01, 8.74719E+00, 6.58854E+00,& - & 4.48777E+00, 4.89984E-01, 4.05508E-01, 3.20537E-01,& - & 2.35164E-01, 1.49778E-01, 5.64480E-02, 7.92441E-03/) - irradnceo(:,9) = (/ & - & 1.52550E+01, 1.53927E+01, 1.50379E+01, 1.37973E+01,& - & 1.24075E+01, 1.07260E+01, 8.79656E+00, 6.63032E+00,& - & 4.49972E+00, 4.90123E-01, 4.05516E-01, 3.20535E-01,& - & 2.35168E-01, 1.49777E-01, 5.64476E-02, 7.92462E-03/) -! Solar variability components: facular brightening - facbrghto(:,1) = (/ & - & 3.38233E-03, 3.61575E-03, 3.80888E-03, 3.67639E-03,& - & 3.30728E-03, 2.69378E-03, 1.71865E-03, 1.05945E-03,& - & 7.82068E-04, 8.38272E-05, 6.84037E-05, 5.63903E-05,& - & 5.56771E-05, 3.55232E-05, 1.33594E-05, 1.89102E-06/) - facbrghto(:,2) = (/ & - & 3.36626E-03, 3.59280E-03, 3.80850E-03, 3.64685E-03,& - & 3.17706E-03, 2.50418E-03, 1.78194E-03, 1.27973E-03,& - & 8.81547E-04, 8.85460E-05, 6.93416E-05, 5.64524E-05,& - & 5.56784E-05, 3.55239E-05, 1.33597E-05, 1.89104E-06/) - facbrghto(:,3) = (/ & - & 3.36214E-03, 3.58599E-03, 3.80326E-03, 3.60715E-03,& - & 3.05231E-03, 2.45061E-03, 1.82205E-03, 1.39550E-03,& - & 9.34977E-04, 9.60392E-05, 7.87498E-05, 6.36795E-05,& - & 5.64120E-05, 3.55242E-05, 1.33600E-05, 1.89105E-06/) - facbrghto(:,4) = (/ & - & 3.35356E-03, 3.58784E-03, 3.81329E-03, 3.54275E-03,& - & 2.95876E-03, 2.41321E-03, 1.88140E-03, 1.46458E-03,& - & 9.70347E-04, 1.03318E-04, 8.26701E-05, 7.79939E-05,& - & 5.84284E-05, 3.62577E-05, 1.33600E-05, 1.89105E-06/) - facbrghto(:,5) = (/ & - & 3.34590E-03, 3.59375E-03, 3.81836E-03, 3.41473E-03,& - & 2.91001E-03, 2.38732E-03, 1.97243E-03, 1.51499E-03,& - & 1.00185E-03, 1.05444E-04, 9.96222E-05, 8.19866E-05,& - & 5.95039E-05, 3.74604E-05, 1.41148E-05, 2.16572E-06/) - facbrghto(:,6) = (/ & - & 3.33841E-03, 3.61392E-03, 3.78567E-03, 3.30155E-03,& - & 2.84397E-03, 2.41121E-03, 2.05022E-03, 1.55507E-03,& - & 1.03133E-03, 1.23024E-04, 1.05137E-04, 8.31387E-05,& - & 6.02725E-05, 3.92854E-05, 1.52766E-05, 2.16572E-06/) - facbrghto(:,7) = (/ & - & 3.32890E-03, 3.64336E-03, 3.74401E-03, 3.14610E-03,& - & 2.76899E-03, 2.49879E-03, 2.11515E-03, 1.59249E-03,& - & 1.08243E-03, 1.28502E-04, 1.05833E-04, 8.38407E-05,& - & 6.32594E-05, 4.05566E-05, 1.52766E-05, 2.16572E-06/) - facbrghto(:,8) = (/ & - & 3.29742E-03, 3.70484E-03, 3.58141E-03, 2.98346E-03,& - & 2.77903E-03, 2.60809E-03, 2.17109E-03, 1.63237E-03,& - & 1.15394E-03, 1.30118E-04, 1.09398E-04, 8.67212E-05,& - & 6.37601E-05, 4.05547E-05, 1.52762E-05, 2.16572E-06/) - facbrghto(:,9) = (/ & - & 2.04827E-03, 3.34118E-03, 3.89751E-03, 3.44564E-03,& - & 3.11104E-03, 2.80009E-03, 2.31754E-03, 1.75046E-03,& - & 1.19686E-03, 1.32820E-04, 1.09753E-04, 8.67334E-05,& - & 6.37712E-05, 4.05681E-05, 1.52654E-05, 2.16568E-06/) -! Solar variability components: sunspot darkening - snsptdrko(:,1) = (/ & - &-3.20590E-03,-3.26023E-03,-3.22645E-03,-3.04404E-03,& - &-2.73016E-03,-2.28980E-03,-1.68078E-03,-1.16106E-03,& - &-8.14206E-04,-8.76947E-05,-7.21444E-05,-5.80750E-05,& - &-4.89518E-05,-3.11877E-05,-1.17502E-05,-1.65342E-06/) - snsptdrko(:,2) = (/ & - &-3.19424E-03,-3.25487E-03,-3.21870E-03,-3.02285E-03,& - &-2.67818E-03,-2.22530E-03,-1.70410E-03,-1.25517E-03,& - &-8.56699E-04,-8.97661E-05,-7.25475E-05,-5.81055E-05,& - &-4.89518E-05,-3.11879E-05,-1.17503E-05,-1.65342E-06/) - snsptdrko(:,3) = (/ & - &-3.18856E-03,-3.25378E-03,-3.21481E-03,-3.00325E-03,& - &-2.63211E-03,-2.20232E-03,-1.71988E-03,-1.30549E-03,& - &-8.79022E-04,-9.30397E-05,-7.66800E-05,-6.12865E-05,& - &-4.92526E-05,-3.11880E-05,-1.17505E-05,-1.65342E-06/) - snsptdrko(:,4) = (/ & - &-3.18238E-03,-3.25365E-03,-3.21753E-03,-2.97525E-03,& - &-2.60052E-03,-2.18369E-03,-1.74474E-03,-1.33542E-03,& - &-8.93727E-04,-9.62031E-05,-7.83842E-05,-6.75678E-05,& - &-5.01242E-05,-3.14955E-05,-1.17506E-05,-1.65342E-06/) - snsptdrko(:,5) = (/ & - &-3.17622E-03,-3.25439E-03,-3.21817E-03,-2.92612E-03,& - &-2.58092E-03,-2.17215E-03,-1.78329E-03,-1.35706E-03,& - &-9.07088E-04,-9.71345E-05,-8.58204E-05,-6.92820E-05,& - &-5.05654E-05,-3.20350E-05,-1.20636E-05,-1.76780E-06/) - snsptdrko(:,6) = (/ & - &-3.17042E-03,-3.25863E-03,-3.20563E-03,-2.88395E-03,& - &-2.55212E-03,-2.18158E-03,-1.81741E-03,-1.37363E-03,& - &-9.19855E-04,-1.04837E-04,-8.82411E-05,-6.97562E-05,& - &-5.08717E-05,-3.28149E-05,-1.25649E-05,-1.76780E-06/) - snsptdrko(:,7) = (/ & - &-3.16325E-03,-3.26501E-03,-3.18767E-03,-2.82862E-03,& - &-2.51814E-03,-2.21910E-03,-1.84573E-03,-1.38874E-03,& - &-9.42269E-04,-1.07180E-04,-8.85017E-05,-7.00475E-05,& - &-5.21359E-05,-3.33556E-05,-1.25649E-05,-1.76780E-06/) - snsptdrko(:,8) = (/ & - &-3.14467E-03,-3.27904E-03,-3.12496E-03,-2.76854E-03,& - &-2.52230E-03,-2.26764E-03,-1.86884E-03,-1.40536E-03,& - &-9.73595E-04,-1.07857E-04,-8.99740E-05,-7.12708E-05,& - &-5.23456E-05,-3.33550E-05,-1.25647E-05,-1.76780E-06/) - snsptdrko(:,9) = (/ & - &-2.58887E-03,-3.09421E-03,-3.27763E-03,-2.98508E-03,& - &-2.67674E-03,-2.35033E-03,-1.93212E-03,-1.45652E-03,& - &-9.92133E-04,-1.08978E-04,-9.01523E-05,-7.12720E-05,& - &-5.23478E-05,-3.33615E-05,-1.25603E-05,-1.76788E-06/) - -! Rayleigh extinction coefficient at v = 6925 cm-1. - rayl = 9.41e-09 - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1, 1) = (/ & - & 0.31482e-07,0.64010e-05,0.95017e-05,0.11735e-04,0.13561e-04, & - & 0.15077e-04,0.16121e-04,0.16138e-04,0.41687e-06 /) - kao(:, 2, 1, 1) = (/ & - & 0.29791e-07,0.68206e-05,0.10260e-04,0.12764e-04,0.14880e-04, & - & 0.16665e-04,0.17944e-04,0.18170e-04,0.44246e-06 /) - kao(:, 3, 1, 1) = (/ & - & 0.28272e-07,0.72448e-05,0.11083e-04,0.13866e-04,0.16256e-04, & - & 0.18323e-04,0.19886e-04,0.20229e-04,0.47472e-06 /) - kao(:, 4, 1, 1) = (/ & - & 0.26900e-07,0.76935e-05,0.11934e-04,0.15015e-04,0.17657e-04, & - & 0.20038e-04,0.21902e-04,0.22361e-04,0.50770e-06 /) - kao(:, 5, 1, 1) = (/ & - & 0.25656e-07,0.81661e-05,0.12769e-04,0.16181e-04,0.19127e-04, & - & 0.21755e-04,0.23963e-04,0.24421e-04,0.54205e-06 /) - kao(:, 1, 2, 1) = (/ & - & 0.26396e-07,0.52225e-05,0.77221e-05,0.95150e-05,0.11004e-04, & - & 0.12195e-04,0.13037e-04,0.12985e-04,0.32097e-06 /) - kao(:, 2, 2, 1) = (/ & - & 0.24945e-07,0.55737e-05,0.83612e-05,0.10375e-04,0.12116e-04, & - & 0.13569e-04,0.14561e-04,0.14711e-04,0.34579e-06 /) - kao(:, 3, 2, 1) = (/ & - & 0.23646e-07,0.59333e-05,0.90531e-05,0.11301e-04,0.13247e-04, & - & 0.14956e-04,0.16193e-04,0.16396e-04,0.37200e-06 /) - kao(:, 4, 2, 1) = (/ & - & 0.22476e-07,0.63144e-05,0.97732e-05,0.12274e-04,0.14436e-04, & - & 0.16377e-04,0.17879e-04,0.18223e-04,0.40051e-06 /) - kao(:, 5, 2, 1) = (/ & - & 0.21415e-07,0.67133e-05,0.10471e-04,0.13264e-04,0.15681e-04, & - & 0.17843e-04,0.19627e-04,0.19954e-04,0.42929e-06 /) - kao(:, 1, 3, 1) = (/ & - & 0.22397e-07,0.41930e-05,0.61559e-05,0.75544e-05,0.86902e-05, & - & 0.95896e-05,0.10269e-04,0.10114e-04,0.24148e-06 /) - kao(:, 2, 3, 1) = (/ & - & 0.21124e-07,0.44837e-05,0.66786e-05,0.82475e-05,0.96353e-05, & - & 0.10742e-04,0.11469e-04,0.11556e-04,0.26304e-06 /) - kao(:, 3, 3, 1) = (/ & - & 0.19988e-07,0.47839e-05,0.72499e-05,0.90229e-05,0.10560e-04, & - & 0.11900e-04,0.12859e-04,0.12935e-04,0.28618e-06 /) - kao(:, 4, 3, 1) = (/ & - & 0.18968e-07,0.51040e-05,0.78586e-05,0.98308e-05,0.11551e-04, & - & 0.13094e-04,0.14240e-04,0.14455e-04,0.30983e-06 /) - kao(:, 5, 3, 1) = (/ & - & 0.18047e-07,0.54366e-05,0.84462e-05,0.10670e-04,0.12585e-04, & - & 0.14313e-04,0.15695e-04,0.15934e-04,0.33255e-06 /) - kao(:, 1, 4, 1) = (/ & - & 0.19080e-07,0.33409e-05,0.48738e-05,0.59354e-05,0.67877e-05, & - & 0.74900e-05,0.79142e-05,0.77200e-05,0.18466e-06 /) - kao(:, 2, 4, 1) = (/ & - & 0.17954e-07,0.35910e-05,0.52960e-05,0.65037e-05,0.75744e-05, & - & 0.84082e-05,0.89422e-05,0.89302e-05,0.20292e-06 /) - kao(:, 3, 4, 1) = (/ & - & 0.16954e-07,0.38317e-05,0.57536e-05,0.71322e-05,0.83424e-05, & - & 0.93788e-05,0.10063e-04,0.10098e-04,0.22173e-06 /) - kao(:, 4, 4, 1) = (/ & - & 0.16059e-07,0.40932e-05,0.62586e-05,0.77961e-05,0.91475e-05, & - & 0.10347e-04,0.11222e-04,0.11312e-04,0.24005e-06 /) - kao(:, 5, 4, 1) = (/ & - & 0.15254e-07,0.43678e-05,0.67525e-05,0.84873e-05,0.99995e-05, & - & 0.11353e-04,0.12416e-04,0.12586e-04,0.25939e-06 /) - kao(:, 1, 5, 1) = (/ & - & 0.16261e-07,0.26540e-05,0.38541e-05,0.46443e-05,0.52961e-05, & - & 0.58054e-05,0.60718e-05,0.58540e-05,0.14274e-06 /) - kao(:, 2, 5, 1) = (/ & - & 0.15265e-07,0.28598e-05,0.41831e-05,0.51221e-05,0.59110e-05, & - & 0.65207e-05,0.69761e-05,0.68685e-05,0.15725e-06 /) - kao(:, 3, 5, 1) = (/ & - & 0.14384e-07,0.30623e-05,0.45528e-05,0.56124e-05,0.65650e-05, & - & 0.73436e-05,0.78208e-05,0.78523e-05,0.17271e-06 /) - kao(:, 4, 5, 1) = (/ & - & 0.13599e-07,0.32720e-05,0.49622e-05,0.61605e-05,0.72244e-05, & - & 0.81582e-05,0.87971e-05,0.88096e-05,0.18766e-06 /) - kao(:, 5, 5, 1) = (/ & - & 0.12895e-07,0.34985e-05,0.53833e-05,0.67240e-05,0.79091e-05, & - & 0.89688e-05,0.97698e-05,0.98639e-05,0.20375e-06 /) - kao(:, 1, 6, 1) = (/ & - & 0.13898e-07,0.20981e-05,0.30384e-05,0.36041e-05,0.41040e-05, & - & 0.44334e-05,0.45761e-05,0.43950e-05,0.11025e-06 /) - kao(:, 2, 6, 1) = (/ & - & 0.13011e-07,0.22645e-05,0.32890e-05,0.40042e-05,0.45851e-05, & - & 0.50473e-05,0.53250e-05,0.51854e-05,0.12227e-06 /) - kao(:, 3, 6, 1) = (/ & - & 0.12231e-07,0.24322e-05,0.35842e-05,0.43915e-05,0.51259e-05, & - & 0.56903e-05,0.60343e-05,0.60166e-05,0.13506e-06 /) - kao(:, 4, 6, 1) = (/ & - & 0.11539e-07,0.26032e-05,0.39107e-05,0.48321e-05,0.56525e-05, & - & 0.63625e-05,0.68078e-05,0.68024e-05,0.14719e-06 /) - kao(:, 5, 6, 1) = (/ & - & 0.10921e-07,0.27866e-05,0.42578e-05,0.52919e-05,0.62181e-05, & - & 0.70362e-05,0.76140e-05,0.76519e-05,0.16052e-06 /) - kao(:, 1, 7, 1) = (/ & - & 0.11886e-07,0.16563e-05,0.23860e-05,0.28276e-05,0.31449e-05, & - & 0.33771e-05,0.34305e-05,0.32824e-05,0.84943e-07 /) - kao(:, 2, 7, 1) = (/ & - & 0.11096e-07,0.17874e-05,0.25861e-05,0.31100e-05,0.35425e-05, & - & 0.38737e-05,0.40468e-05,0.38933e-05,0.94734e-07 /) - kao(:, 3, 7, 1) = (/ & - & 0.10405e-07,0.19286e-05,0.28166e-05,0.34417e-05,0.39786e-05, & - & 0.43804e-05,0.46759e-05,0.45835e-05,0.10531e-06 /) - kao(:, 4, 7, 1) = (/ & - & 0.97948e-08,0.20680e-05,0.30741e-05,0.37803e-05,0.44163e-05, & - & 0.49420e-05,0.52477e-05,0.52509e-05,0.11517e-06 /) - kao(:, 5, 7, 1) = (/ & - & 0.92522e-08,0.22140e-05,0.33558e-05,0.41544e-05,0.48719e-05, & - & 0.54968e-05,0.59225e-05,0.59027e-05,0.12618e-06 /) - kao(:, 1, 8, 1) = (/ & - & 0.10164e-07,0.13056e-05,0.18690e-05,0.21940e-05,0.24210e-05, & - & 0.25504e-05,0.25676e-05,0.24444e-05,0.66021e-07 /) - kao(:, 2, 8, 1) = (/ & - & 0.94612e-08,0.14106e-05,0.20398e-05,0.24136e-05,0.27424e-05, & - & 0.29578e-05,0.30446e-05,0.29182e-05,0.73985e-07 /) - kao(:, 3, 8, 1) = (/ & - & 0.88489e-08,0.15256e-05,0.22123e-05,0.26894e-05,0.30704e-05, & - & 0.33808e-05,0.35521e-05,0.34526e-05,0.82666e-07 /) - kao(:, 4, 8, 1) = (/ & - & 0.83111e-08,0.16396e-05,0.24159e-05,0.29563e-05,0.34504e-05, & - & 0.38196e-05,0.40425e-05,0.40093e-05,0.90940e-07 /) - kao(:, 5, 8, 1) = (/ & - & 0.78349e-08,0.17570e-05,0.26398e-05,0.32547e-05,0.38060e-05, & - & 0.42813e-05,0.45732e-05,0.45465e-05,0.10022e-06 /) - kao(:, 1, 9, 1) = (/ & - & 0.86983e-08,0.10284e-05,0.14734e-05,0.16973e-05,0.18551e-05, & - & 0.19223e-05,0.19222e-05,0.18289e-05,0.53460e-07 /) - kao(:, 2, 9, 1) = (/ & - & 0.80712e-08,0.11141e-05,0.16016e-05,0.18902e-05,0.21027e-05, & - & 0.22504e-05,0.22800e-05,0.21749e-05,0.60180e-07 /) - kao(:, 3, 9, 1) = (/ & - & 0.75284e-08,0.12033e-05,0.17376e-05,0.20849e-05,0.23719e-05, & - & 0.25906e-05,0.26977e-05,0.25910e-05,0.66886e-07 /) - kao(:, 4, 9, 1) = (/ & - & 0.70541e-08,0.12979e-05,0.18959e-05,0.23090e-05,0.26695e-05, & - & 0.29367e-05,0.31239e-05,0.30574e-05,0.73978e-07 /) - kao(:, 5, 9, 1) = (/ & - & 0.66359e-08,0.13937e-05,0.20720e-05,0.25448e-05,0.29680e-05, & - & 0.33208e-05,0.35191e-05,0.35097e-05,0.81724e-07 /) - kao(:, 1,10, 1) = (/ & - & 0.74006e-08,0.81705e-06,0.11610e-05,0.13325e-05,0.14305e-05, & - & 0.14668e-05,0.14642e-05,0.13765e-05,0.44724e-07 /) - kao(:, 2,10, 1) = (/ & - & 0.68477e-08,0.88306e-06,0.12640e-05,0.14768e-05,0.16329e-05, & - & 0.17209e-05,0.17306e-05,0.16441e-05,0.50688e-07 /) - kao(:, 3,10, 1) = (/ & - & 0.63717e-08,0.95522e-06,0.13783e-05,0.16303e-05,0.18546e-05, & - & 0.19963e-05,0.20570e-05,0.19678e-05,0.56052e-07 /) - kao(:, 4,10, 1) = (/ & - & 0.59576e-08,0.10331e-05,0.14975e-05,0.18180e-05,0.20770e-05, & - & 0.22813e-05,0.24021e-05,0.23350e-05,0.62412e-07 /) - kao(:, 5,10, 1) = (/ & - & 0.55940e-08,0.11102e-05,0.16370e-05,0.19999e-05,0.23349e-05, & - & 0.25900e-05,0.27328e-05,0.27057e-05,0.69466e-07 /) - kao(:, 1,11, 1) = (/ & - & 0.60617e-08,0.67167e-06,0.95594e-06,0.10939e-05,0.11767e-05, & - & 0.12059e-05,0.12032e-05,0.11314e-05,0.37093e-07 /) - kao(:, 2,11, 1) = (/ & - & 0.56087e-08,0.72704e-06,0.10406e-05,0.12137e-05,0.13434e-05, & - & 0.14171e-05,0.14246e-05,0.13521e-05,0.41918e-07 /) - kao(:, 3,11, 1) = (/ & - & 0.52187e-08,0.78681e-06,0.11338e-05,0.13419e-05,0.15254e-05, & - & 0.16426e-05,0.16950e-05,0.16203e-05,0.46339e-07 /) - kao(:, 4,11, 1) = (/ & - & 0.48793e-08,0.85013e-06,0.12327e-05,0.14971e-05,0.17109e-05, & - & 0.18776e-05,0.19784e-05,0.19240e-05,0.51725e-07 /) - kao(:, 5,11, 1) = (/ & - & 0.45815e-08,0.91420e-06,0.13427e-05,0.16458e-05,0.19221e-05, & - & 0.21323e-05,0.22490e-05,0.22263e-05,0.57555e-07 /) - kao(:, 1,12, 1) = (/ & - & 0.49629e-08,0.55223e-06,0.78677e-06,0.89789e-06,0.96778e-06, & - & 0.99148e-06,0.98883e-06,0.93028e-06,0.30610e-07 /) - kao(:, 2,12, 1) = (/ & - & 0.45920e-08,0.59832e-06,0.85632e-06,0.99730e-06,0.11052e-05, & - & 0.11665e-05,0.11729e-05,0.11125e-05,0.34553e-07 /) - kao(:, 3,12, 1) = (/ & - & 0.42727e-08,0.64760e-06,0.93315e-06,0.11041e-05,0.12552e-05, & - & 0.13521e-05,0.13956e-05,0.13333e-05,0.38176e-07 /) - kao(:, 4,12, 1) = (/ & - & 0.39949e-08,0.69926e-06,0.10110e-05,0.12304e-05,0.14083e-05, & - & 0.15442e-05,0.16283e-05,0.15837e-05,0.42648e-07 /) - kao(:, 5,12, 1) = (/ & - & 0.37510e-08,0.75239e-06,0.11006e-05,0.13535e-05,0.15785e-05, & - & 0.17547e-05,0.18501e-05,0.18298e-05,0.47452e-07 /) - kao(:, 1,13, 1) = (/ & - & 0.40633e-08,0.45378e-06,0.64719e-06,0.73637e-06,0.79571e-06, & - & 0.81503e-06,0.81264e-06,0.76488e-06,0.25080e-07 /) - kao(:, 2,13, 1) = (/ & - & 0.37596e-08,0.49208e-06,0.70430e-06,0.81894e-06,0.90856e-06, & - & 0.95919e-06,0.96435e-06,0.91411e-06,0.28293e-07 /) - kao(:, 3,13, 1) = (/ & - & 0.34982e-08,0.53259e-06,0.76370e-06,0.90761e-06,0.10316e-05, & - & 0.11116e-05,0.11472e-05,0.10956e-05,0.31267e-07 /) - kao(:, 4,13, 1) = (/ & - & 0.32707e-08,0.57488e-06,0.82833e-06,0.10096e-05,0.11577e-05, & - & 0.12688e-05,0.13388e-05,0.13015e-05,0.34930e-07 /) - kao(:, 5,13, 1) = (/ & - & 0.30710e-08,0.61832e-06,0.90250e-06,0.11120e-05,0.12962e-05, & - & 0.14424e-05,0.15206e-05,0.15032e-05,0.38861e-07 /) - kao(:, 1, 1, 2) = (/ & - & 0.14215e-06,0.65726e-04,0.11327e-03,0.15324e-03,0.18473e-03, & - & 0.20658e-03,0.21603e-03,0.20617e-03,0.13252e-04 /) - kao(:, 2, 1, 2) = (/ & - & 0.13452e-06,0.69521e-04,0.12059e-03,0.16342e-03,0.19613e-03, & - & 0.21987e-03,0.22946e-03,0.21879e-03,0.14816e-04 /) - kao(:, 3, 1, 2) = (/ & - & 0.12766e-06,0.73313e-04,0.12786e-03,0.17303e-03,0.20754e-03, & - & 0.23326e-03,0.24324e-03,0.22956e-03,0.16536e-04 /) - kao(:, 4, 1, 2) = (/ & - & 0.12147e-06,0.77087e-04,0.13521e-03,0.18263e-03,0.21904e-03, & - & 0.24614e-03,0.25637e-03,0.24060e-03,0.18092e-04 /) - kao(:, 5, 1, 2) = (/ & - & 0.11584e-06,0.80946e-04,0.14233e-03,0.19230e-03,0.23047e-03, & - & 0.25869e-03,0.26904e-03,0.25139e-03,0.19768e-04 /) - kao(:, 1, 2, 2) = (/ & - & 0.11918e-06,0.55167e-04,0.94557e-04,0.12760e-03,0.15322e-03, & - & 0.17148e-03,0.17894e-03,0.17049e-03,0.10710e-04 /) - kao(:, 2, 2, 2) = (/ & - & 0.11264e-06,0.58581e-04,0.10113e-03,0.13648e-03,0.16335e-03, & - & 0.18288e-03,0.19059e-03,0.18131e-03,0.12067e-04 /) - kao(:, 3, 2, 2) = (/ & - & 0.10678e-06,0.61935e-04,0.10756e-03,0.14497e-03,0.17335e-03, & - & 0.19437e-03,0.20245e-03,0.19070e-03,0.13553e-04 /) - kao(:, 4, 2, 2) = (/ & - & 0.10149e-06,0.65261e-04,0.11404e-03,0.15331e-03,0.18323e-03, & - & 0.20559e-03,0.21385e-03,0.20024e-03,0.14801e-04 /) - kao(:, 5, 2, 2) = (/ & - & 0.96699e-07,0.68698e-04,0.12038e-03,0.16167e-03,0.19308e-03, & - & 0.21635e-03,0.22479e-03,0.20964e-03,0.16245e-04 /) - kao(:, 1, 3, 2) = (/ & - & 0.10112e-06,0.45399e-04,0.77226e-04,0.10397e-03,0.12462e-03, & - & 0.13956e-03,0.14531e-03,0.13816e-03,0.83635e-05 /) - kao(:, 2, 3, 2) = (/ & - & 0.95381e-07,0.48357e-04,0.82986e-04,0.11173e-03,0.13338e-03, & - & 0.14898e-03,0.15534e-03,0.14786e-03,0.94915e-05 /) - kao(:, 3, 3, 2) = (/ & - & 0.90257e-07,0.51355e-04,0.88727e-04,0.11920e-03,0.14215e-03, & - & 0.15859e-03,0.16541e-03,0.15622e-03,0.10683e-04 /) - kao(:, 4, 3, 2) = (/ & - & 0.85653e-07,0.54322e-04,0.94369e-04,0.12646e-03,0.15072e-03, & - & 0.16838e-03,0.17536e-03,0.16433e-03,0.11764e-04 /) - kao(:, 5, 3, 2) = (/ & - & 0.81492e-07,0.57300e-04,0.99940e-04,0.13355e-03,0.15929e-03, & - & 0.17800e-03,0.18496e-03,0.17234e-03,0.12979e-04 /) - kao(:, 1, 4, 2) = (/ & - & 0.86132e-07,0.36910e-04,0.62346e-04,0.83628e-04,0.10025e-03, & - & 0.11224e-03,0.11706e-03,0.11109e-03,0.64715e-05 /) - kao(:, 2, 4, 2) = (/ & - & 0.81062e-07,0.39490e-04,0.67274e-04,0.90384e-04,0.10785e-03, & - & 0.12026e-03,0.12543e-03,0.11944e-03,0.73991e-05 /) - kao(:, 3, 4, 2) = (/ & - & 0.76553e-07,0.42055e-04,0.72269e-04,0.96956e-04,0.11528e-03, & - & 0.12833e-03,0.13396e-03,0.12697e-03,0.83899e-05 /) - kao(:, 4, 4, 2) = (/ & - & 0.72516e-07,0.44696e-04,0.77235e-04,0.10321e-03,0.12276e-03, & - & 0.13674e-03,0.14260e-03,0.13384e-03,0.93052e-05 /) - kao(:, 5, 4, 2) = (/ & - & 0.68881e-07,0.47273e-04,0.82118e-04,0.10935e-03,0.13016e-03, & - & 0.14506e-03,0.15080e-03,0.14062e-03,0.10314e-04 /) - kao(:, 1, 5, 2) = (/ & - & 0.73401e-07,0.29772e-04,0.49957e-04,0.66720e-04,0.80104e-04, & - & 0.89761e-04,0.93853e-04,0.88953e-04,0.50171e-05 /) - kao(:, 2, 5, 2) = (/ & - & 0.68916e-07,0.31976e-04,0.54217e-04,0.72570e-04,0.86671e-04, & - & 0.96653e-04,0.10073e-03,0.95875e-04,0.57746e-05 /) - kao(:, 3, 5, 2) = (/ & - & 0.64945e-07,0.34219e-04,0.58417e-04,0.78327e-04,0.92950e-04, & - & 0.10358e-03,0.10803e-03,0.10274e-03,0.66197e-05 /) - kao(:, 4, 5, 2) = (/ & - & 0.61405e-07,0.36457e-04,0.62694e-04,0.83756e-04,0.99356e-04, & - & 0.11058e-03,0.11542e-03,0.10858e-03,0.73729e-05 /) - kao(:, 5, 5, 2) = (/ & - & 0.58229e-07,0.38713e-04,0.67059e-04,0.89033e-04,0.10573e-03, & - & 0.11764e-03,0.12243e-03,0.11440e-03,0.82149e-05 /) - kao(:, 1, 6, 2) = (/ & - & 0.62723e-07,0.23750e-04,0.39643e-04,0.52796e-04,0.63478e-04, & - & 0.71151e-04,0.74640e-04,0.70193e-04,0.38899e-05 /) - kao(:, 2, 6, 2) = (/ & - & 0.58735e-07,0.25657e-04,0.43274e-04,0.57719e-04,0.69124e-04, & - & 0.77375e-04,0.80498e-04,0.76543e-04,0.44833e-05 /) - kao(:, 3, 6, 2) = (/ & - & 0.55222e-07,0.27563e-04,0.46866e-04,0.62699e-04,0.74494e-04, & - & 0.82946e-04,0.86653e-04,0.82509e-04,0.51635e-05 /) - kao(:, 4, 6, 2) = (/ & - & 0.52103e-07,0.29528e-04,0.50470e-04,0.67473e-04,0.79899e-04, & - & 0.89004e-04,0.92786e-04,0.87628e-04,0.58104e-05 /) - kao(:, 5, 6, 2) = (/ & - & 0.49317e-07,0.31444e-04,0.54175e-04,0.72000e-04,0.85322e-04, & - & 0.94885e-04,0.98826e-04,0.92648e-04,0.64997e-05 /) - kao(:, 1, 7, 2) = (/ & - & 0.53634e-07,0.18862e-04,0.31325e-04,0.41575e-04,0.50141e-04, & - & 0.56190e-04,0.58882e-04,0.55026e-04,0.29795e-05 /) - kao(:, 2, 7, 2) = (/ & - & 0.50084e-07,0.20474e-04,0.34342e-04,0.45732e-04,0.54884e-04, & - & 0.61494e-04,0.64187e-04,0.60857e-04,0.34589e-05 /) - kao(:, 3, 7, 2) = (/ & - & 0.46973e-07,0.22063e-04,0.37411e-04,0.49893e-04,0.59475e-04, & - & 0.66279e-04,0.69129e-04,0.65758e-04,0.39983e-05 /) - kao(:, 4, 7, 2) = (/ & - & 0.44224e-07,0.23764e-04,0.40481e-04,0.54107e-04,0.64026e-04, & - & 0.71350e-04,0.74328e-04,0.70513e-04,0.45526e-05 /) - kao(:, 5, 7, 2) = (/ & - & 0.41777e-07,0.25434e-04,0.43555e-04,0.57958e-04,0.68599e-04, & - & 0.76304e-04,0.79456e-04,0.74649e-04,0.51046e-05 /) - kao(:, 1, 8, 2) = (/ & - & 0.45857e-07,0.14945e-04,0.24594e-04,0.32696e-04,0.39571e-04, & - & 0.44348e-04,0.46090e-04,0.43034e-04,0.22833e-05 /) - kao(:, 2, 8, 2) = (/ & - & 0.42697e-07,0.16265e-04,0.27198e-04,0.36108e-04,0.43381e-04, & - & 0.48642e-04,0.50943e-04,0.47848e-04,0.26669e-05 /) - kao(:, 3, 8, 2) = (/ & - & 0.39944e-07,0.17616e-04,0.29775e-04,0.39577e-04,0.47366e-04, & - & 0.52791e-04,0.54992e-04,0.52236e-04,0.30932e-05 /) - kao(:, 4, 8, 2) = (/ & - & 0.37522e-07,0.19042e-04,0.32351e-04,0.43126e-04,0.51153e-04, & - & 0.56987e-04,0.59316e-04,0.56438e-04,0.35666e-05 /) - kao(:, 5, 8, 2) = (/ & - & 0.35376e-07,0.20476e-04,0.34946e-04,0.46521e-04,0.55009e-04, & - & 0.61221e-04,0.63714e-04,0.60035e-04,0.40037e-05 /) - kao(:, 1, 9, 2) = (/ & - & 0.39233e-07,0.11817e-04,0.19254e-04,0.25596e-04,0.30843e-04, & - & 0.34574e-04,0.36035e-04,0.33425e-04,0.17673e-05 /) - kao(:, 2, 9, 2) = (/ & - & 0.36418e-07,0.12914e-04,0.21404e-04,0.28372e-04,0.34161e-04, & - & 0.38321e-04,0.40053e-04,0.37435e-04,0.20751e-05 /) - kao(:, 3, 9, 2) = (/ & - & 0.33979e-07,0.14026e-04,0.23574e-04,0.31316e-04,0.37514e-04, & - & 0.41977e-04,0.43747e-04,0.41346e-04,0.24151e-05 /) - kao(:, 4, 9, 2) = (/ & - & 0.31844e-07,0.15205e-04,0.25770e-04,0.34231e-04,0.40723e-04, & - & 0.45315e-04,0.47202e-04,0.44869e-04,0.28151e-05 /) - kao(:, 5, 9, 2) = (/ & - & 0.29961e-07,0.16420e-04,0.27955e-04,0.37187e-04,0.43941e-04, & - & 0.48873e-04,0.50856e-04,0.48170e-04,0.31733e-05 /) - kao(:, 1,10, 2) = (/ & - & 0.33373e-07,0.93505e-05,0.15216e-04,0.20198e-04,0.24244e-04, & - & 0.27077e-04,0.28186e-04,0.25996e-04,0.13941e-05 /) - kao(:, 2,10, 2) = (/ & - & 0.30893e-07,0.10284e-04,0.16902e-04,0.22468e-04,0.27072e-04, & - & 0.30382e-04,0.31603e-04,0.29456e-04,0.16352e-05 /) - kao(:, 3,10, 2) = (/ & - & 0.28754e-07,0.11207e-04,0.18715e-04,0.24849e-04,0.29815e-04, & - & 0.33379e-04,0.34901e-04,0.32836e-04,0.19188e-05 /) - kao(:, 4,10, 2) = (/ & - & 0.26892e-07,0.12172e-04,0.20578e-04,0.27269e-04,0.32536e-04, & - & 0.36182e-04,0.37703e-04,0.35750e-04,0.22467e-05 /) - kao(:, 5,10, 2) = (/ & - & 0.25255e-07,0.13195e-04,0.22422e-04,0.29781e-04,0.35220e-04, & - & 0.39157e-04,0.40719e-04,0.38729e-04,0.25535e-05 /) - kao(:, 1,11, 2) = (/ & - & 0.27335e-07,0.77491e-05,0.12607e-04,0.16695e-04,0.20093e-04, & - & 0.22431e-04,0.23345e-04,0.21522e-04,0.11569e-05 /) - kao(:, 2,11, 2) = (/ & - & 0.25303e-07,0.85322e-05,0.14022e-04,0.18593e-04,0.22378e-04, & - & 0.25133e-04,0.26161e-04,0.24379e-04,0.13709e-05 /) - kao(:, 3,11, 2) = (/ & - & 0.23551e-07,0.92912e-05,0.15536e-04,0.20618e-04,0.24722e-04, & - & 0.27647e-04,0.28874e-04,0.27196e-04,0.16099e-05 /) - kao(:, 4,11, 2) = (/ & - & 0.22025e-07,0.10117e-04,0.17115e-04,0.22645e-04,0.26974e-04, & - & 0.29947e-04,0.31210e-04,0.29581e-04,0.18845e-05 /) - kao(:, 5,11, 2) = (/ & - & 0.20684e-07,0.10977e-04,0.18645e-04,0.24734e-04,0.29203e-04, & - & 0.32453e-04,0.33733e-04,0.32056e-04,0.21326e-05 /) - kao(:, 1,12, 2) = (/ & - & 0.22380e-07,0.64144e-05,0.10436e-04,0.13802e-04,0.16622e-04, & - & 0.18557e-04,0.19314e-04,0.17793e-04,0.95906e-06 /) - kao(:, 2,12, 2) = (/ & - & 0.20716e-07,0.70603e-05,0.11625e-04,0.15385e-04,0.18503e-04, & - & 0.20776e-04,0.21630e-04,0.20152e-04,0.11363e-05 /) - kao(:, 3,12, 2) = (/ & - & 0.19282e-07,0.76960e-05,0.12886e-04,0.17087e-04,0.20475e-04, & - & 0.22867e-04,0.23856e-04,0.22506e-04,0.13400e-05 /) - kao(:, 4,12, 2) = (/ & - & 0.18032e-07,0.83983e-05,0.14206e-04,0.18783e-04,0.22334e-04, & - & 0.24764e-04,0.25815e-04,0.24461e-04,0.15637e-05 /) - kao(:, 5,12, 2) = (/ & - & 0.16934e-07,0.91186e-05,0.15491e-04,0.20513e-04,0.24201e-04, & - & 0.26864e-04,0.27917e-04,0.26491e-04,0.17707e-05 /) - kao(:, 1,13, 2) = (/ & - & 0.18323e-07,0.53022e-05,0.86273e-05,0.11385e-04,0.13729e-04, & - & 0.15318e-04,0.15952e-04,0.14693e-04,0.78927e-06 /) - kao(:, 2,13, 2) = (/ & - & 0.16961e-07,0.58316e-05,0.96204e-05,0.12717e-04,0.15275e-04, & - & 0.17141e-04,0.17863e-04,0.16639e-04,0.93659e-06 /) - kao(:, 3,13, 2) = (/ & - & 0.15787e-07,0.63710e-05,0.10675e-04,0.14140e-04,0.16925e-04, & - & 0.18881e-04,0.19675e-04,0.18564e-04,0.11050e-05 /) - kao(:, 4,13, 2) = (/ & - & 0.14764e-07,0.69607e-05,0.11779e-04,0.15554e-04,0.18475e-04, & - & 0.20461e-04,0.21320e-04,0.20207e-04,0.12868e-05 /) - kao(:, 5,13, 2) = (/ & - & 0.13865e-07,0.75611e-05,0.12843e-04,0.16991e-04,0.20029e-04, & - & 0.22208e-04,0.23079e-04,0.21838e-04,0.14565e-05 /) - kao(:, 1, 1, 3) = (/ & - & 0.55948e-06,0.43472e-03,0.65689e-03,0.80237e-03,0.90326e-03, & - & 0.95995e-03,0.94242e-03,0.81801e-03,0.18380e-03 /) - kao(:, 2, 1, 3) = (/ & - & 0.53175e-06,0.45395e-03,0.68779e-03,0.84040e-03,0.94598e-03, & - & 0.10011e-02,0.98481e-03,0.85748e-03,0.19567e-03 /) - kao(:, 3, 1, 3) = (/ & - & 0.50648e-06,0.46835e-03,0.71403e-03,0.87684e-03,0.98520e-03, & - & 0.10393e-02,0.10233e-02,0.89729e-03,0.20725e-03 /) - kao(:, 4, 1, 3) = (/ & - & 0.48330e-06,0.48143e-03,0.73979e-03,0.91063e-03,0.10212e-02, & - & 0.10762e-02,0.10600e-02,0.93507e-03,0.21814e-03 /) - kao(:, 5, 1, 3) = (/ & - & 0.46195e-06,0.49413e-03,0.76470e-03,0.94208e-03,0.10547e-02, & - & 0.11099e-02,0.10960e-02,0.97164e-03,0.23056e-03 /) - kao(:, 1, 2, 3) = (/ & - & 0.46813e-06,0.36711e-03,0.55743e-03,0.68070e-03,0.76614e-03, & - & 0.81442e-03,0.79940e-03,0.69691e-03,0.14988e-03 /) - kao(:, 2, 2, 3) = (/ & - & 0.44450e-06,0.38413e-03,0.58502e-03,0.71506e-03,0.80409e-03, & - & 0.85191e-03,0.83722e-03,0.73231e-03,0.15985e-03 /) - kao(:, 3, 2, 3) = (/ & - & 0.42301e-06,0.39744e-03,0.60852e-03,0.74741e-03,0.83920e-03, & - & 0.88588e-03,0.87206e-03,0.76677e-03,0.16968e-03 /) - kao(:, 4, 2, 3) = (/ & - & 0.40335e-06,0.40927e-03,0.63200e-03,0.77835e-03,0.87190e-03, & - & 0.91843e-03,0.90467e-03,0.79859e-03,0.17948e-03 /) - kao(:, 5, 2, 3) = (/ & - & 0.38529e-06,0.42034e-03,0.65353e-03,0.80758e-03,0.90248e-03, & - & 0.94929e-03,0.93715e-03,0.83136e-03,0.19018e-03 /) - kao(:, 1, 3, 3) = (/ & - & 0.39591e-06,0.30459e-03,0.46364e-03,0.56590e-03,0.63680e-03, & - & 0.67681e-03,0.66517e-03,0.58106e-03,0.11936e-03 /) - kao(:, 2, 3, 3) = (/ & - & 0.37538e-06,0.32036e-03,0.48874e-03,0.59649e-03,0.67170e-03, & - & 0.71161e-03,0.69943e-03,0.61159e-03,0.12804e-03 /) - kao(:, 3, 3, 3) = (/ & - & 0.35675e-06,0.33321e-03,0.50999e-03,0.62591e-03,0.70319e-03, & - & 0.74333e-03,0.73015e-03,0.64070e-03,0.13642e-03 /) - kao(:, 4, 3, 3) = (/ & - & 0.33978e-06,0.34382e-03,0.53102e-03,0.65391e-03,0.73278e-03, & - & 0.77303e-03,0.75990e-03,0.66979e-03,0.14477e-03 /) - kao(:, 5, 3, 3) = (/ & - & 0.32422e-06,0.35416e-03,0.55071e-03,0.68042e-03,0.76041e-03, & - & 0.80118e-03,0.78914e-03,0.69923e-03,0.15365e-03 /) - kao(:, 1, 4, 3) = (/ & - & 0.33598e-06,0.24970e-03,0.38053e-03,0.46464e-03,0.52234e-03, & - & 0.55488e-03,0.54675e-03,0.47794e-03,0.95275e-04 /) - kao(:, 2, 4, 3) = (/ & - & 0.31800e-06,0.26415e-03,0.40313e-03,0.49210e-03,0.55359e-03, & - & 0.58661e-03,0.57694e-03,0.50393e-03,0.10292e-03 /) - kao(:, 3, 4, 3) = (/ & - & 0.30177e-06,0.27638e-03,0.42268e-03,0.51823e-03,0.58348e-03, & - & 0.61591e-03,0.60497e-03,0.52947e-03,0.11016e-03 /) - kao(:, 4, 4, 3) = (/ & - & 0.28703e-06,0.28612e-03,0.44165e-03,0.54326e-03,0.61010e-03, & - & 0.64299e-03,0.63151e-03,0.55558e-03,0.11708e-03 /) - kao(:, 5, 4, 3) = (/ & - & 0.27356e-06,0.29550e-03,0.45903e-03,0.56703e-03,0.63522e-03, & - & 0.66839e-03,0.65812e-03,0.58142e-03,0.12444e-03 /) - kao(:, 1, 5, 3) = (/ & - & 0.28517e-06,0.20305e-03,0.30940e-03,0.37854e-03,0.42516e-03, & - & 0.45167e-03,0.44617e-03,0.39006e-03,0.76394e-04 /) - kao(:, 2, 5, 3) = (/ & - & 0.26943e-06,0.21631e-03,0.32942e-03,0.40279e-03,0.45281e-03, & - & 0.47959e-03,0.47274e-03,0.41219e-03,0.83093e-04 /) - kao(:, 3, 5, 3) = (/ & - & 0.25526e-06,0.22760e-03,0.34736e-03,0.42603e-03,0.47928e-03, & - & 0.50573e-03,0.49753e-03,0.43423e-03,0.89137e-04 /) - kao(:, 4, 5, 3) = (/ & - & 0.24245e-06,0.23661e-03,0.36423e-03,0.44832e-03,0.50373e-03, & - & 0.53021e-03,0.52092e-03,0.45715e-03,0.95026e-04 /) - kao(:, 5, 5, 3) = (/ & - & 0.23079e-06,0.24490e-03,0.37979e-03,0.46958e-03,0.52671e-03, & - & 0.55360e-03,0.54422e-03,0.47982e-03,0.10100e-03 /) - kao(:, 1, 6, 3) = (/ & - & 0.24258e-06,0.16374e-03,0.24889e-03,0.30526e-03,0.34256e-03, & - & 0.36437e-03,0.36054e-03,0.31643e-03,0.60983e-04 /) - kao(:, 2, 6, 3) = (/ & - & 0.22873e-06,0.17557e-03,0.26674e-03,0.32662e-03,0.36698e-03, & - & 0.38862e-03,0.38395e-03,0.33481e-03,0.66717e-04 /) - kao(:, 3, 6, 3) = (/ & - & 0.21632e-06,0.18596e-03,0.28315e-03,0.34710e-03,0.39032e-03, & - & 0.41186e-03,0.40597e-03,0.35347e-03,0.71805e-04 /) - kao(:, 4, 6, 3) = (/ & - & 0.20515e-06,0.19412e-03,0.29825e-03,0.36672e-03,0.41223e-03, & - & 0.43370e-03,0.42654e-03,0.37308e-03,0.76950e-04 /) - kao(:, 5, 6, 3) = (/ & - & 0.19500e-06,0.20163e-03,0.31177e-03,0.38573e-03,0.43298e-03, & - & 0.45474e-03,0.44659e-03,0.39273e-03,0.81854e-04 /) - kao(:, 1, 7, 3) = (/ & - & 0.20644e-06,0.13088e-03,0.19883e-03,0.24453e-03,0.27379e-03, & - & 0.29133e-03,0.28972e-03,0.25527e-03,0.48483e-04 /) - kao(:, 2, 7, 3) = (/ & - & 0.19422e-06,0.14123e-03,0.21464e-03,0.26307e-03,0.29520e-03, & - & 0.31262e-03,0.30976e-03,0.27057e-03,0.53189e-04 /) - kao(:, 3, 7, 3) = (/ & - & 0.18334e-06,0.15056e-03,0.22945e-03,0.28102e-03,0.31570e-03, & - & 0.33336e-03,0.32921e-03,0.28657e-03,0.57664e-04 /) - kao(:, 4, 7, 3) = (/ & - & 0.17359e-06,0.15845e-03,0.24254e-03,0.29812e-03,0.33533e-03, & - & 0.35273e-03,0.34737e-03,0.30290e-03,0.62080e-04 /) - kao(:, 5, 7, 3) = (/ & - & 0.16476e-06,0.16515e-03,0.25472e-03,0.31492e-03,0.35368e-03, & - & 0.37134e-03,0.36466e-03,0.31971e-03,0.66283e-04 /) - kao(:, 1, 8, 3) = (/ & - & 0.17564e-06,0.10377e-03,0.15799e-03,0.19443e-03,0.21775e-03, & - & 0.23221e-03,0.23178e-03,0.20518e-03,0.38613e-04 /) - kao(:, 2, 8, 3) = (/ & - & 0.16486e-06,0.11291e-03,0.17177e-03,0.21060e-03,0.23605e-03, & - & 0.25023e-03,0.24860e-03,0.21840e-03,0.42574e-04 /) - kao(:, 3, 8, 3) = (/ & - & 0.15532e-06,0.12160e-03,0.18472e-03,0.22613e-03,0.25383e-03, & - & 0.26813e-03,0.26569e-03,0.23149e-03,0.46438e-04 /) - kao(:, 4, 8, 3) = (/ & - & 0.14679e-06,0.12871e-03,0.19629e-03,0.24117e-03,0.27101e-03, & - & 0.28546e-03,0.28148e-03,0.24511e-03,0.50132e-04 /) - kao(:, 5, 8, 3) = (/ & - & 0.13913e-06,0.13470e-03,0.20711e-03,0.25583e-03,0.28735e-03, & - & 0.30171e-03,0.29653e-03,0.25931e-03,0.53892e-04 /) - kao(:, 1, 9, 3) = (/ & - & 0.14950e-06,0.81941e-04,0.12473e-03,0.15363e-03,0.17257e-03, & - & 0.18409e-03,0.18424e-03,0.16439e-03,0.30772e-04 /) - kao(:, 2, 9, 3) = (/ & - & 0.13998e-06,0.89702e-04,0.13655e-03,0.16763e-03,0.18779e-03, & - & 0.19919e-03,0.19877e-03,0.17581e-03,0.34022e-04 /) - kao(:, 3, 9, 3) = (/ & - & 0.13160e-06,0.97263e-04,0.14776e-03,0.18089e-03,0.20292e-03, & - & 0.21451e-03,0.21317e-03,0.18640e-03,0.37381e-04 /) - kao(:, 4, 9, 3) = (/ & - & 0.12415e-06,0.10389e-03,0.15817e-03,0.19404e-03,0.21794e-03, & - & 0.22980e-03,0.22715e-03,0.19784e-03,0.40457e-04 /) - kao(:, 5, 9, 3) = (/ & - & 0.11749e-06,0.10934e-03,0.16768e-03,0.20680e-03,0.23234e-03, & - & 0.24414e-03,0.24026e-03,0.20959e-03,0.43586e-04 /) - kao(:, 1,10, 3) = (/ & - & 0.12658e-06,0.64763e-04,0.98690e-04,0.12170e-03,0.13709e-03, & - & 0.14644e-03,0.14709e-03,0.13215e-03,0.24737e-04 /) - kao(:, 2,10, 3) = (/ & - & 0.11826e-06,0.71405e-04,0.10875e-03,0.13368e-03,0.14978e-03, & - & 0.15901e-03,0.15937e-03,0.14153e-03,0.27487e-04 /) - kao(:, 3,10, 3) = (/ & - & 0.11097e-06,0.77857e-04,0.11842e-03,0.14510e-03,0.16261e-03, & - & 0.17204e-03,0.17129e-03,0.15041e-03,0.30250e-04 /) - kao(:, 4,10, 3) = (/ & - & 0.10451e-06,0.83764e-04,0.12762e-03,0.15625e-03,0.17544e-03, & - & 0.18516e-03,0.18345e-03,0.16010e-03,0.32891e-04 /) - kao(:, 5,10, 3) = (/ & - & 0.98767e-07,0.88833e-04,0.13595e-03,0.16723e-03,0.18798e-03, & - & 0.19766e-03,0.19477e-03,0.16979e-03,0.35547e-04 /) - kao(:, 1,11, 3) = (/ & - & 0.10368e-06,0.53714e-04,0.81748e-04,0.10085e-03,0.11349e-03, & - & 0.12126e-03,0.12180e-03,0.10950e-03,0.20787e-04 /) - kao(:, 2,11, 3) = (/ & - & 0.96854e-07,0.59175e-04,0.90131e-04,0.11085e-03,0.12425e-03, & - & 0.13166e-03,0.13207e-03,0.11733e-03,0.23028e-04 /) - kao(:, 3,11, 3) = (/ & - & 0.90882e-07,0.64593e-04,0.98275e-04,0.12041e-03,0.13497e-03, & - & 0.14273e-03,0.14215e-03,0.12479e-03,0.25362e-04 /) - kao(:, 4,11, 3) = (/ & - & 0.85602e-07,0.69545e-04,0.10592e-03,0.12982e-03,0.14583e-03, & - & 0.15388e-03,0.15228e-03,0.13297e-03,0.27585e-04 /) - kao(:, 5,11, 3) = (/ & - & 0.80889e-07,0.73731e-04,0.11290e-03,0.13914e-03,0.15637e-03, & - & 0.16431e-03,0.16189e-03,0.14116e-03,0.29828e-04 /) - kao(:, 1,12, 3) = (/ & - & 0.84886e-07,0.44418e-04,0.67641e-04,0.83490e-04,0.93906e-04, & - & 0.10034e-03,0.10075e-03,0.90614e-04,0.17350e-04 /) - kao(:, 2,12, 3) = (/ & - & 0.79297e-07,0.48981e-04,0.74656e-04,0.91821e-04,0.10299e-03, & - & 0.10891e-03,0.10933e-03,0.97221e-04,0.19237e-04 /) - kao(:, 3,12, 3) = (/ & - & 0.74408e-07,0.53553e-04,0.81503e-04,0.99872e-04,0.11196e-03, & - & 0.11832e-03,0.11782e-03,0.10341e-03,0.21189e-04 /) - kao(:, 4,12, 3) = (/ & - & 0.70085e-07,0.57698e-04,0.87887e-04,0.10781e-03,0.12107e-03, & - & 0.12775e-03,0.12624e-03,0.11034e-03,0.23038e-04 /) - kao(:, 5,12, 3) = (/ & - & 0.66226e-07,0.61177e-04,0.93694e-04,0.11567e-03,0.12995e-03, & - & 0.13645e-03,0.13436e-03,0.11726e-03,0.24913e-04 /) - kao(:, 1,13, 3) = (/ & - & 0.69499e-07,0.36716e-04,0.55902e-04,0.69067e-04,0.77635e-04, & - & 0.82934e-04,0.83302e-04,0.74905e-04,0.14419e-04 /) - kao(:, 2,13, 3) = (/ & - & 0.64923e-07,0.40511e-04,0.61779e-04,0.75984e-04,0.85239e-04, & - & 0.90090e-04,0.90456e-04,0.80264e-04,0.15996e-04 /) - kao(:, 3,13, 3) = (/ & - & 0.60920e-07,0.44356e-04,0.67533e-04,0.82746e-04,0.92816e-04, & - & 0.98017e-04,0.97590e-04,0.85621e-04,0.17623e-04 /) - kao(:, 4,13, 3) = (/ & - & 0.57381e-07,0.47826e-04,0.72874e-04,0.89443e-04,0.10040e-03, & - & 0.10588e-03,0.10456e-03,0.91429e-04,0.19144e-04 /) - kao(:, 5,13, 3) = (/ & - & 0.54221e-07,0.50750e-04,0.77698e-04,0.96005e-04,0.10784e-03, & - & 0.11318e-03,0.11139e-03,0.97258e-04,0.20671e-04 /) - kao(:, 1, 1, 4) = (/ & - & 0.36654e-05,0.13689e-02,0.21108e-02,0.26314e-02,0.29458e-02, & - & 0.30831e-02,0.30207e-02,0.26003e-02,0.93689e-03 /) - kao(:, 2, 1, 4) = (/ & - & 0.35304e-05,0.14025e-02,0.21716e-02,0.27078e-02,0.30551e-02, & - & 0.31948e-02,0.31649e-02,0.27258e-02,0.97983e-03 /) - kao(:, 3, 1, 4) = (/ & - & 0.34059e-05,0.14340e-02,0.22214e-02,0.27773e-02,0.31348e-02, & - & 0.33049e-02,0.32835e-02,0.28461e-02,0.10251e-02 /) - kao(:, 4, 1, 4) = (/ & - & 0.32895e-05,0.14610e-02,0.22596e-02,0.28314e-02,0.32113e-02, & - & 0.34131e-02,0.33921e-02,0.29508e-02,0.10730e-02 /) - kao(:, 5, 1, 4) = (/ & - & 0.31814e-05,0.14814e-02,0.22905e-02,0.28789e-02,0.32785e-02, & - & 0.34996e-02,0.34952e-02,0.30528e-02,0.11205e-02 /) - kao(:, 1, 2, 4) = (/ & - & 0.30293e-05,0.11600e-02,0.17946e-02,0.22370e-02,0.25205e-02, & - & 0.26432e-02,0.26172e-02,0.22691e-02,0.78466e-03 /) - kao(:, 2, 2, 4) = (/ & - & 0.29173e-05,0.11916e-02,0.18468e-02,0.23072e-02,0.26094e-02, & - & 0.27477e-02,0.27388e-02,0.23809e-02,0.82356e-03 /) - kao(:, 3, 2, 4) = (/ & - & 0.28152e-05,0.12203e-02,0.18939e-02,0.23691e-02,0.26814e-02, & - & 0.28506e-02,0.28414e-02,0.24825e-02,0.86161e-03 /) - kao(:, 4, 2, 4) = (/ & - & 0.27207e-05,0.12454e-02,0.19291e-02,0.24180e-02,0.27489e-02, & - & 0.29380e-02,0.29345e-02,0.25808e-02,0.90328e-03 /) - kao(:, 5, 2, 4) = (/ & - & 0.26316e-05,0.12644e-02,0.19586e-02,0.24624e-02,0.28146e-02, & - & 0.30125e-02,0.30237e-02,0.26695e-02,0.94678e-03 /) - kao(:, 1, 3, 4) = (/ & - & 0.25288e-05,0.97348e-03,0.15070e-02,0.18795e-02,0.21206e-02, & - & 0.22362e-02,0.22210e-02,0.19369e-02,0.64308e-03 /) - kao(:, 2, 3, 4) = (/ & - & 0.24353e-05,0.10031e-02,0.15552e-02,0.19441e-02,0.22013e-02, & - & 0.23257e-02,0.23286e-02,0.20362e-02,0.67529e-03 /) - kao(:, 3, 3, 4) = (/ & - & 0.23495e-05,0.10295e-02,0.15986e-02,0.20019e-02,0.22663e-02, & - & 0.24160e-02,0.24204e-02,0.21276e-02,0.70991e-03 /) - kao(:, 4, 3, 4) = (/ & - & 0.22699e-05,0.10533e-02,0.16337e-02,0.20489e-02,0.23288e-02, & - & 0.24911e-02,0.25016e-02,0.22148e-02,0.74635e-03 /) - kao(:, 5, 3, 4) = (/ & - & 0.21951e-05,0.10724e-02,0.16625e-02,0.20891e-02,0.23896e-02, & - & 0.25582e-02,0.25812e-02,0.22925e-02,0.78432e-03 /) - kao(:, 1, 4, 4) = (/ & - & 0.21169e-05,0.81053e-03,0.12568e-02,0.15647e-02,0.17654e-02, & - & 0.18662e-02,0.18568e-02,0.16269e-02,0.52608e-03 /) - kao(:, 2, 4, 4) = (/ & - & 0.20407e-05,0.83875e-03,0.13019e-02,0.16252e-02,0.18383e-02, & - & 0.19441e-02,0.19538e-02,0.17139e-02,0.55325e-03 /) - kao(:, 3, 4, 4) = (/ & - & 0.19674e-05,0.86329e-03,0.13417e-02,0.16788e-02,0.18985e-02, & - & 0.20246e-02,0.20315e-02,0.17978e-02,0.58253e-03 /) - kao(:, 4, 4, 4) = (/ & - & 0.18994e-05,0.88551e-03,0.13753e-02,0.17238e-02,0.19566e-02, & - & 0.20923e-02,0.21035e-02,0.18724e-02,0.61438e-03 /) - kao(:, 5, 4, 4) = (/ & - & 0.18358e-05,0.90442e-03,0.14042e-02,0.17619e-02,0.20119e-02, & - & 0.21542e-02,0.21749e-02,0.19425e-02,0.64762e-03 /) - kao(:, 1, 5, 4) = (/ & - & 0.17725e-05,0.67146e-03,0.10396e-02,0.12935e-02,0.14576e-02, & - & 0.15437e-02,0.15341e-02,0.13532e-02,0.42981e-03 /) - kao(:, 2, 5, 4) = (/ & - & 0.17095e-05,0.69774e-03,0.10823e-02,0.13477e-02,0.15227e-02, & - & 0.16117e-02,0.16222e-02,0.14302e-02,0.45286e-03 /) - kao(:, 3, 5, 4) = (/ & - & 0.16478e-05,0.72044e-03,0.11190e-02,0.13967e-02,0.15783e-02, & - & 0.16817e-02,0.16897e-02,0.15040e-02,0.47782e-03 /) - kao(:, 4, 5, 4) = (/ & - & 0.15896e-05,0.74136e-03,0.11512e-02,0.14394e-02,0.16307e-02, & - & 0.17435e-02,0.17536e-02,0.15687e-02,0.50468e-03 /) - kao(:, 5, 5, 4) = (/ & - & 0.15353e-05,0.75977e-03,0.11790e-02,0.14755e-02,0.16811e-02, & - & 0.17990e-02,0.18175e-02,0.16279e-02,0.53353e-03 /) - kao(:, 1, 6, 4) = (/ & - & 0.14856e-05,0.55163e-03,0.85182e-03,0.10583e-02,0.11933e-02, & - & 0.12633e-02,0.12519e-02,0.11126e-02,0.34969e-03 /) - kao(:, 2, 6, 4) = (/ & - & 0.14323e-05,0.57534e-03,0.89211e-03,0.11084e-02,0.12510e-02, & - & 0.13248e-02,0.13302e-02,0.11815e-02,0.36893e-03 /) - kao(:, 3, 6, 4) = (/ & - & 0.13818e-05,0.59705e-03,0.92552e-03,0.11530e-02,0.13018e-02, & - & 0.13860e-02,0.13942e-02,0.12437e-02,0.38991e-03 /) - kao(:, 4, 6, 4) = (/ & - & 0.13317e-05,0.61671e-03,0.95568e-03,0.11922e-02,0.13481e-02, & - & 0.14426e-02,0.14508e-02,0.13001e-02,0.41248e-03 /) - kao(:, 5, 6, 4) = (/ & - & 0.12851e-05,0.63414e-03,0.98227e-03,0.12265e-02,0.13936e-02, & - & 0.14913e-02,0.15064e-02,0.13512e-02,0.43696e-03 /) - kao(:, 1, 7, 4) = (/ & - & 0.12453e-05,0.44982e-03,0.69286e-03,0.85857e-03,0.97115e-03, & - & 0.10268e-02,0.10132e-02,0.90661e-03,0.28333e-03 /) - kao(:, 2, 7, 4) = (/ & - & 0.11997e-05,0.47163e-03,0.72984e-03,0.90525e-03,0.10209e-02, & - & 0.10830e-02,0.10815e-02,0.96820e-03,0.29991e-03 /) - kao(:, 3, 7, 4) = (/ & - & 0.11571e-05,0.49170e-03,0.76064e-03,0.94597e-03,0.10683e-02, & - & 0.11337e-02,0.11418e-02,0.10210e-02,0.31738e-03 /) - kao(:, 4, 7, 4) = (/ & - & 0.11157e-05,0.50964e-03,0.78859e-03,0.98236e-03,0.11088e-02, & - & 0.11859e-02,0.11920e-02,0.10690e-02,0.33600e-03 /) - kao(:, 5, 7, 4) = (/ & - & 0.10757e-05,0.52578e-03,0.81330e-03,0.10141e-02,0.11493e-02, & - & 0.12285e-02,0.12399e-02,0.11151e-02,0.35631e-03 /) - kao(:, 1, 8, 4) = (/ & - & 0.10436e-05,0.36475e-03,0.55948e-03,0.69399e-03,0.78699e-03, & - & 0.82733e-03,0.81546e-03,0.73443e-03,0.22874e-03 /) - kao(:, 2, 8, 4) = (/ & - & 0.10043e-05,0.38461e-03,0.59365e-03,0.73631e-03,0.82902e-03, & - & 0.87996e-03,0.87589e-03,0.78745e-03,0.24281e-03 /) - kao(:, 3, 8, 4) = (/ & - & 0.96785e-06,0.40227e-03,0.62191e-03,0.77183e-03,0.87067e-03, & - & 0.92338e-03,0.93116e-03,0.83334e-03,0.25735e-03 /) - kao(:, 4, 8, 4) = (/ & - & 0.93367e-06,0.41881e-03,0.64697e-03,0.80474e-03,0.90754e-03, & - & 0.96806e-03,0.97434e-03,0.87439e-03,0.27286e-03 /) - kao(:, 5, 8, 4) = (/ & - & 0.90017e-06,0.43377e-03,0.67026e-03,0.83398e-03,0.94269e-03, & - & 0.10080e-02,0.10154e-02,0.91479e-03,0.28948e-03 /) - kao(:, 1, 9, 4) = (/ & - & 0.87469e-06,0.29345e-03,0.44857e-03,0.55653e-03,0.63371e-03, & - & 0.66253e-03,0.65229e-03,0.59009e-03,0.18475e-03 /) - kao(:, 2, 9, 4) = (/ & - & 0.84062e-06,0.31152e-03,0.47975e-03,0.59422e-03,0.67077e-03, & - & 0.71168e-03,0.70550e-03,0.63674e-03,0.19669e-03 /) - kao(:, 3, 9, 4) = (/ & - & 0.80947e-06,0.32779e-03,0.50582e-03,0.62707e-03,0.70705e-03, & - & 0.74936e-03,0.75252e-03,0.67682e-03,0.20896e-03 /) - kao(:, 4, 9, 4) = (/ & - & 0.78052e-06,0.34262e-03,0.52820e-03,0.65631e-03,0.74002e-03, & - & 0.78731e-03,0.79257e-03,0.71155e-03,0.22197e-03 /) - kao(:, 5, 9, 4) = (/ & - & 0.75300e-06,0.35618e-03,0.54940e-03,0.68236e-03,0.76978e-03, & - & 0.82271e-03,0.82806e-03,0.74658e-03,0.23588e-03 /) - kao(:, 1,10, 4) = (/ & - & 0.73080e-06,0.23619e-03,0.36002e-03,0.44769e-03,0.51001e-03, & - & 0.53294e-03,0.52319e-03,0.47492e-03,0.15005e-03 /) - kao(:, 2,10, 4) = (/ & - & 0.70142e-06,0.25225e-03,0.38742e-03,0.48039e-03,0.54285e-03, & - & 0.57407e-03,0.56765e-03,0.51444e-03,0.16000e-03 /) - kao(:, 3,10, 4) = (/ & - & 0.67484e-06,0.26687e-03,0.41119e-03,0.50924e-03,0.57372e-03, & - & 0.60912e-03,0.60813e-03,0.54945e-03,0.17036e-03 /) - kao(:, 4,10, 4) = (/ & - & 0.65032e-06,0.28002e-03,0.43104e-03,0.53513e-03,0.60294e-03, & - & 0.63998e-03,0.64485e-03,0.57888e-03,0.18120e-03 /) - kao(:, 5,10, 4) = (/ & - & 0.62752e-06,0.29182e-03,0.44950e-03,0.55836e-03,0.62849e-03, & - & 0.67148e-03,0.67570e-03,0.60918e-03,0.19271e-03 /) - kao(:, 1,11, 4) = (/ & - & 0.59846e-06,0.19603e-03,0.29902e-03,0.37159e-03,0.42367e-03, & - & 0.44241e-03,0.43550e-03,0.39618e-03,0.12498e-03 /) - kao(:, 2,11, 4) = (/ & - & 0.57447e-06,0.20953e-03,0.32187e-03,0.39882e-03,0.45021e-03, & - & 0.47717e-03,0.47240e-03,0.42894e-03,0.13362e-03 /) - kao(:, 3,11, 4) = (/ & - & 0.55265e-06,0.22185e-03,0.34133e-03,0.42283e-03,0.47616e-03, & - & 0.50481e-03,0.50553e-03,0.45654e-03,0.14246e-03 /) - kao(:, 4,11, 4) = (/ & - & 0.53259e-06,0.23301e-03,0.35816e-03,0.44448e-03,0.50048e-03, & - & 0.53147e-03,0.53574e-03,0.48169e-03,0.15168e-03 /) - kao(:, 5,11, 4) = (/ & - & 0.51379e-06,0.24302e-03,0.37383e-03,0.46352e-03,0.52203e-03, & - & 0.55783e-03,0.56175e-03,0.50737e-03,0.16153e-03 /) - kao(:, 1,12, 4) = (/ & - & 0.49006e-06,0.16259e-03,0.24802e-03,0.30804e-03,0.35111e-03, & - & 0.36672e-03,0.36166e-03,0.32968e-03,0.10401e-03 /) - kao(:, 2,12, 4) = (/ & - & 0.47033e-06,0.17379e-03,0.26697e-03,0.33069e-03,0.37292e-03, & - & 0.39587e-03,0.39239e-03,0.35672e-03,0.11138e-03 /) - kao(:, 3,12, 4) = (/ & - & 0.45247e-06,0.18417e-03,0.28295e-03,0.35045e-03,0.39465e-03, & - & 0.41825e-03,0.41984e-03,0.37867e-03,0.11882e-03 /) - kao(:, 4,12, 4) = (/ & - & 0.43605e-06,0.19351e-03,0.29716e-03,0.36850e-03,0.41489e-03, & - & 0.44074e-03,0.44460e-03,0.40031e-03,0.12667e-03 /) - kao(:, 5,12, 4) = (/ & - & 0.42066e-06,0.20206e-03,0.31038e-03,0.38464e-03,0.43337e-03, & - & 0.46297e-03,0.46667e-03,0.42202e-03,0.13498e-03 /) - kao(:, 1,13, 4) = (/ & - & 0.40122e-06,0.13465e-03,0.20541e-03,0.25488e-03,0.29006e-03, & - & 0.30358e-03,0.29984e-03,0.27375e-03,0.86406e-04 /) - kao(:, 2,13, 4) = (/ & - & 0.38502e-06,0.14398e-03,0.22086e-03,0.27376e-03,0.30832e-03, & - & 0.32794e-03,0.32517e-03,0.29562e-03,0.92614e-04 /) - kao(:, 3,13, 4) = (/ & - & 0.37045e-06,0.15266e-03,0.23416e-03,0.29013e-03,0.32675e-03, & - & 0.34622e-03,0.34816e-03,0.31401e-03,0.98880e-04 /) - kao(:, 4,13, 4) = (/ & - & 0.35702e-06,0.16050e-03,0.24608e-03,0.30521e-03,0.34336e-03, & - & 0.36522e-03,0.36857e-03,0.33246e-03,0.10559e-03 /) - kao(:, 5,13, 4) = (/ & - & 0.34440e-06,0.16771e-03,0.25742e-03,0.31904e-03,0.35943e-03, & - & 0.38405e-03,0.38715e-03,0.35087e-03,0.11262e-03 /) - kao(:, 1, 1, 5) = (/ & - & 0.15583e-03,0.37546e-02,0.53536e-02,0.64161e-02,0.71223e-02, & - & 0.74982e-02,0.73596e-02,0.65135e-02,0.35175e-02 /) - kao(:, 2, 1, 5) = (/ & - & 0.16148e-03,0.38569e-02,0.55256e-02,0.66461e-02,0.73757e-02, & - & 0.77530e-02,0.75665e-02,0.66496e-02,0.36840e-02 /) - kao(:, 3, 1, 5) = (/ & - & 0.16484e-03,0.39353e-02,0.56745e-02,0.68364e-02,0.76166e-02, & - & 0.79711e-02,0.77717e-02,0.67846e-02,0.38485e-02 /) - kao(:, 4, 1, 5) = (/ & - & 0.16621e-03,0.39946e-02,0.57947e-02,0.70071e-02,0.78193e-02, & - & 0.81581e-02,0.79592e-02,0.69132e-02,0.39769e-02 /) - kao(:, 5, 1, 5) = (/ & - & 0.16518e-03,0.40386e-02,0.58925e-02,0.71530e-02,0.79946e-02, & - & 0.83258e-02,0.81107e-02,0.70226e-02,0.41134e-02 /) - kao(:, 1, 2, 5) = (/ & - & 0.12482e-03,0.32204e-02,0.46102e-02,0.55475e-02,0.61730e-02, & - & 0.65000e-02,0.63942e-02,0.56394e-02,0.30002e-02 /) - kao(:, 2, 2, 5) = (/ & - & 0.13027e-03,0.33099e-02,0.47617e-02,0.57497e-02,0.64031e-02, & - & 0.67184e-02,0.65829e-02,0.57721e-02,0.31442e-02 /) - kao(:, 3, 2, 5) = (/ & - & 0.13370e-03,0.33808e-02,0.48845e-02,0.59235e-02,0.66074e-02, & - & 0.69048e-02,0.67660e-02,0.59018e-02,0.32788e-02 /) - kao(:, 4, 2, 5) = (/ & - & 0.13549e-03,0.34340e-02,0.49885e-02,0.60745e-02,0.67877e-02, & - & 0.70780e-02,0.69202e-02,0.60131e-02,0.33946e-02 /) - kao(:, 5, 2, 5) = (/ & - & 0.13543e-03,0.34778e-02,0.50745e-02,0.61981e-02,0.69282e-02, & - & 0.72229e-02,0.70521e-02,0.61218e-02,0.35097e-02 /) - kao(:, 1, 3, 5) = (/ & - & 0.98437e-04,0.27209e-02,0.39035e-02,0.47185e-02,0.52706e-02, & - & 0.55579e-02,0.54846e-02,0.48469e-02,0.25077e-02 /) - kao(:, 2, 3, 5) = (/ & - & 0.10396e-03,0.28031e-02,0.40384e-02,0.48993e-02,0.54753e-02, & - & 0.57575e-02,0.56525e-02,0.49684e-02,0.26366e-02 /) - kao(:, 3, 3, 5) = (/ & - & 0.10770e-03,0.28702e-02,0.41513e-02,0.50504e-02,0.56640e-02, & - & 0.59245e-02,0.58125e-02,0.50922e-02,0.27478e-02 /) - kao(:, 4, 3, 5) = (/ & - & 0.10996e-03,0.29232e-02,0.42451e-02,0.51838e-02,0.58257e-02, & - & 0.60793e-02,0.59498e-02,0.51949e-02,0.28490e-02 /) - kao(:, 5, 3, 5) = (/ & - & 0.11088e-03,0.29645e-02,0.43251e-02,0.52992e-02,0.59468e-02, & - & 0.62096e-02,0.60648e-02,0.52904e-02,0.29495e-02 /) - kao(:, 1, 4, 5) = (/ & - & 0.76587e-04,0.22792e-02,0.32731e-02,0.39724e-02,0.44561e-02, & - & 0.47109e-02,0.46706e-02,0.41444e-02,0.20810e-02 /) - kao(:, 2, 4, 5) = (/ & - & 0.82225e-04,0.23548e-02,0.33943e-02,0.41325e-02,0.46415e-02, & - & 0.48939e-02,0.48200e-02,0.42591e-02,0.21925e-02 /) - kao(:, 3, 4, 5) = (/ & - & 0.86203e-04,0.24180e-02,0.34991e-02,0.42684e-02,0.48074e-02, & - & 0.50416e-02,0.49651e-02,0.43643e-02,0.22938e-02 /) - kao(:, 4, 4, 5) = (/ & - & 0.88766e-04,0.24694e-02,0.35874e-02,0.43875e-02,0.49469e-02, & - & 0.51810e-02,0.50850e-02,0.44606e-02,0.23791e-02 /) - kao(:, 5, 4, 5) = (/ & - & 0.90218e-04,0.25110e-02,0.36613e-02,0.44937e-02,0.50548e-02, & - & 0.52982e-02,0.51883e-02,0.45498e-02,0.24658e-02 /) - kao(:, 1, 5, 5) = (/ & - & 0.59080e-04,0.18972e-02,0.27294e-02,0.33195e-02,0.37395e-02, & - & 0.39683e-02,0.39523e-02,0.35161e-02,0.17195e-02 /) - kao(:, 2, 5, 5) = (/ & - & 0.64508e-04,0.19673e-02,0.28376e-02,0.34632e-02,0.39033e-02, & - & 0.41343e-02,0.40826e-02,0.36195e-02,0.18173e-02 /) - kao(:, 3, 5, 5) = (/ & - & 0.68538e-04,0.20264e-02,0.29342e-02,0.35856e-02,0.40488e-02, & - & 0.42664e-02,0.42141e-02,0.37144e-02,0.19081e-02 /) - kao(:, 4, 5, 5) = (/ & - & 0.71328e-04,0.20750e-02,0.30165e-02,0.36933e-02,0.41719e-02, & - & 0.43880e-02,0.43221e-02,0.38006e-02,0.19818e-02 /) - kao(:, 5, 5, 5) = (/ & - & 0.73073e-04,0.21155e-02,0.30861e-02,0.37892e-02,0.42690e-02, & - & 0.44901e-02,0.44161e-02,0.38864e-02,0.20583e-02 /) - kao(:, 1, 6, 5) = (/ & - & 0.45069e-04,0.15673e-02,0.22596e-02,0.27566e-02,0.31117e-02, & - & 0.33162e-02,0.33135e-02,0.29574e-02,0.14089e-02 /) - kao(:, 2, 6, 5) = (/ & - & 0.49959e-04,0.16342e-02,0.23577e-02,0.28828e-02,0.32572e-02, & - & 0.34626e-02,0.34302e-02,0.30476e-02,0.14955e-02 /) - kao(:, 3, 6, 5) = (/ & - & 0.54013e-04,0.16891e-02,0.24457e-02,0.29926e-02,0.33865e-02, & - & 0.35809e-02,0.35427e-02,0.31358e-02,0.15763e-02 /) - kao(:, 4, 6, 5) = (/ & - & 0.56910e-04,0.17356e-02,0.25220e-02,0.30903e-02,0.34968e-02, & - & 0.36853e-02,0.36443e-02,0.32140e-02,0.16428e-02 /) - kao(:, 5, 6, 5) = (/ & - & 0.58852e-04,0.17743e-02,0.25868e-02,0.31771e-02,0.35857e-02, & - & 0.37782e-02,0.37284e-02,0.32905e-02,0.17079e-02 /) - kao(:, 1, 7, 5) = (/ & - & 0.34131e-04,0.12873e-02,0.18619e-02,0.22745e-02,0.25688e-02, & - & 0.27494e-02,0.27574e-02,0.24658e-02,0.11444e-02 /) - kao(:, 2, 7, 5) = (/ & - & 0.38379e-04,0.13503e-02,0.19490e-02,0.23869e-02,0.26985e-02, & - & 0.28761e-02,0.28607e-02,0.25443e-02,0.12242e-02 /) - kao(:, 3, 7, 5) = (/ & - & 0.42146e-04,0.14018e-02,0.20287e-02,0.24843e-02,0.28119e-02, & - & 0.29848e-02,0.29569e-02,0.26258e-02,0.12956e-02 /) - kao(:, 4, 7, 5) = (/ & - & 0.45116e-04,0.14454e-02,0.20989e-02,0.25718e-02,0.29115e-02, & - & 0.30740e-02,0.30482e-02,0.26967e-02,0.13537e-02 /) - kao(:, 5, 7, 5) = (/ & - & 0.47178e-04,0.14818e-02,0.21591e-02,0.26509e-02,0.29945e-02, & - & 0.31590e-02,0.31235e-02,0.27641e-02,0.14100e-02 /) - kao(:, 1, 8, 5) = (/ & - & 0.25656e-04,0.10525e-02,0.15266e-02,0.18648e-02,0.21060e-02, & - & 0.22660e-02,0.22807e-02,0.20415e-02,0.92482e-03 /) - kao(:, 2, 8, 5) = (/ & - & 0.29313e-04,0.11096e-02,0.16027e-02,0.19628e-02,0.22224e-02, & - & 0.23730e-02,0.23683e-02,0.21111e-02,0.99366e-03 /) - kao(:, 3, 8, 5) = (/ & - & 0.32643e-04,0.11579e-02,0.16732e-02,0.20503e-02,0.23231e-02, & - & 0.24721e-02,0.24512e-02,0.21842e-02,0.10570e-02 /) - kao(:, 4, 8, 5) = (/ & - & 0.35509e-04,0.11985e-02,0.17379e-02,0.21284e-02,0.24110e-02, & - & 0.25519e-02,0.25339e-02,0.22496e-02,0.11116e-02 /) - kao(:, 5, 8, 5) = (/ & - & 0.37616e-04,0.12327e-02,0.17933e-02,0.21996e-02,0.24880e-02, & - & 0.26258e-02,0.26029e-02,0.23088e-02,0.11595e-02 /) - kao(:, 1, 9, 5) = (/ & - & 0.19166e-04,0.85559e-03,0.12446e-02,0.15213e-02,0.17160e-02, & - & 0.18527e-02,0.18723e-02,0.16794e-02,0.74316e-03 /) - kao(:, 2, 9, 5) = (/ & - & 0.22251e-04,0.90701e-03,0.13107e-02,0.16061e-02,0.18177e-02, & - & 0.19452e-02,0.19496e-02,0.17420e-02,0.80168e-03 /) - kao(:, 3, 9, 5) = (/ & - & 0.25123e-04,0.95106e-03,0.13724e-02,0.16826e-02,0.19064e-02, & - & 0.20352e-02,0.20241e-02,0.18064e-02,0.85659e-03 /) - kao(:, 4, 9, 5) = (/ & - & 0.27713e-04,0.98903e-03,0.14301e-02,0.17523e-02,0.19862e-02, & - & 0.21079e-02,0.20944e-02,0.18656e-02,0.90655e-03 /) - kao(:, 5, 9, 5) = (/ & - & 0.29821e-04,0.10207e-02,0.14813e-02,0.18163e-02,0.20570e-02, & - & 0.21737e-02,0.21574e-02,0.19153e-02,0.94882e-03 /) - kao(:, 1,10, 5) = (/ & - & 0.14455e-04,0.69508e-03,0.10143e-02,0.12382e-02,0.13977e-02, & - & 0.15101e-02,0.15339e-02,0.13794e-02,0.60064e-03 /) - kao(:, 2,10, 5) = (/ & - & 0.16975e-04,0.74055e-03,0.10715e-02,0.13117e-02,0.14851e-02, & - & 0.15938e-02,0.16026e-02,0.14354e-02,0.65034e-03 /) - kao(:, 3,10, 5) = (/ & - & 0.19421e-04,0.77996e-03,0.11243e-02,0.13791e-02,0.15636e-02, & - & 0.16707e-02,0.16678e-02,0.14908e-02,0.69875e-03 /) - kao(:, 4,10, 5) = (/ & - & 0.21659e-04,0.81369e-03,0.11746e-02,0.14408e-02,0.16340e-02, & - & 0.17376e-02,0.17267e-02,0.15418e-02,0.74336e-03 /) - kao(:, 5,10, 5) = (/ & - & 0.23616e-04,0.84316e-03,0.12215e-02,0.14972e-02,0.16971e-02, & - & 0.17945e-02,0.17834e-02,0.15844e-02,0.78045e-03 /) - kao(:, 1,11, 5) = (/ & - & 0.11812e-04,0.58067e-03,0.84658e-03,0.10349e-02,0.11681e-02, & - & 0.12622e-02,0.12806e-02,0.11518e-02,0.50197e-03 /) - kao(:, 2,11, 5) = (/ & - & 0.13870e-04,0.61870e-03,0.89364e-03,0.10957e-02,0.12411e-02, & - & 0.13307e-02,0.13366e-02,0.11990e-02,0.54419e-03 /) - kao(:, 3,11, 5) = (/ & - & 0.15872e-04,0.65131e-03,0.93843e-03,0.11520e-02,0.13068e-02, & - & 0.13966e-02,0.13927e-02,0.12459e-02,0.58412e-03 /) - kao(:, 4,11, 5) = (/ & - & 0.17706e-04,0.67957e-03,0.98128e-03,0.12037e-02,0.13653e-02, & - & 0.14510e-02,0.14423e-02,0.12873e-02,0.62086e-03 /) - kao(:, 5,11, 5) = (/ & - & 0.19307e-04,0.70477e-03,0.10208e-02,0.12522e-02,0.14187e-02, & - & 0.15000e-02,0.14882e-02,0.13223e-02,0.65273e-03 /) - kao(:, 1,12, 5) = (/ & - & 0.96633e-05,0.48384e-03,0.70464e-03,0.86214e-03,0.97325e-03, & - & 0.10525e-02,0.10661e-02,0.95818e-03,0.41838e-03 /) - kao(:, 2,12, 5) = (/ & - & 0.11346e-04,0.51544e-03,0.74375e-03,0.91255e-03,0.10346e-02, & - & 0.11088e-02,0.11124e-02,0.99787e-03,0.45436e-03 /) - kao(:, 3,12, 5) = (/ & - & 0.12983e-04,0.54258e-03,0.78191e-03,0.95994e-03,0.10893e-02, & - & 0.11636e-02,0.11595e-02,0.10379e-02,0.48767e-03 /) - kao(:, 4,12, 5) = (/ & - & 0.14483e-04,0.56662e-03,0.81795e-03,0.10036e-02,0.11385e-02, & - & 0.12091e-02,0.12012e-02,0.10707e-02,0.51810e-03 /) - kao(:, 5,12, 5) = (/ & - & 0.15790e-04,0.58805e-03,0.85165e-03,0.10447e-02,0.11830e-02, & - & 0.12500e-02,0.12389e-02,0.11012e-02,0.54508e-03 /) - kao(:, 1,13, 5) = (/ & - & 0.79057e-05,0.40215e-03,0.58516e-03,0.71666e-03,0.80969e-03, & - & 0.87518e-03,0.88581e-03,0.79569e-03,0.34825e-03 /) - kao(:, 2,13, 5) = (/ & - & 0.92808e-05,0.42853e-03,0.61818e-03,0.75847e-03,0.86082e-03, & - & 0.92160e-03,0.92436e-03,0.82894e-03,0.37871e-03 /) - kao(:, 3,13, 5) = (/ & - & 0.10621e-04,0.45134e-03,0.65028e-03,0.79815e-03,0.90622e-03, & - & 0.96752e-03,0.96291e-03,0.86177e-03,0.40642e-03 /) - kao(:, 4,13, 5) = (/ & - & 0.11849e-04,0.47161e-03,0.68090e-03,0.83530e-03,0.94770e-03, & - & 0.10054e-02,0.99815e-03,0.88908e-03,0.43149e-03 /) - kao(:, 5,13, 5) = (/ & - & 0.12897e-04,0.49000e-03,0.70944e-03,0.86982e-03,0.98430e-03, & - & 0.10398e-02,0.10297e-02,0.91483e-03,0.45459e-03 /) - kao(:, 1, 1, 6) = (/ & - & 0.23575e-02,0.96457e-02,0.13128e-01,0.15361e-01,0.16662e-01, & - & 0.16999e-01,0.16303e-01,0.14368e-01,0.10185e-01 /) - kao(:, 2, 1, 6) = (/ & - & 0.24508e-02,0.99768e-02,0.13562e-01,0.15786e-01,0.17046e-01, & - & 0.17316e-01,0.16539e-01,0.14627e-01,0.10447e-01 /) - kao(:, 3, 1, 6) = (/ & - & 0.25176e-02,0.10262e-01,0.13947e-01,0.16182e-01,0.17390e-01, & - & 0.17588e-01,0.16752e-01,0.14857e-01,0.10699e-01 /) - kao(:, 4, 1, 6) = (/ & - & 0.25627e-02,0.10510e-01,0.14271e-01,0.16517e-01,0.17678e-01, & - & 0.17815e-01,0.16941e-01,0.15073e-01,0.10970e-01 /) - kao(:, 5, 1, 6) = (/ & - & 0.25904e-02,0.10712e-01,0.14528e-01,0.16788e-01,0.17912e-01, & - & 0.18013e-01,0.17126e-01,0.15282e-01,0.11215e-01 /) - kao(:, 1, 2, 6) = (/ & - & 0.19422e-02,0.85179e-02,0.11603e-01,0.13561e-01,0.14694e-01, & - & 0.14952e-01,0.14274e-01,0.12616e-01,0.86910e-02 /) - kao(:, 2, 2, 6) = (/ & - & 0.20231e-02,0.88208e-02,0.11992e-01,0.13942e-01,0.15043e-01, & - & 0.15241e-01,0.14503e-01,0.12849e-01,0.89203e-02 /) - kao(:, 3, 2, 6) = (/ & - & 0.20824e-02,0.90892e-02,0.12333e-01,0.14283e-01,0.15343e-01, & - & 0.15493e-01,0.14704e-01,0.13065e-01,0.91412e-02 /) - kao(:, 4, 2, 6) = (/ & - & 0.21235e-02,0.93193e-02,0.12613e-01,0.14573e-01,0.15586e-01, & - & 0.15696e-01,0.14900e-01,0.13269e-01,0.93731e-02 /) - kao(:, 5, 2, 6) = (/ & - & 0.21501e-02,0.95064e-02,0.12844e-01,0.14802e-01,0.15789e-01, & - & 0.15872e-01,0.15079e-01,0.13459e-01,0.95922e-02 /) - kao(:, 1, 3, 6) = (/ & - & 0.15710e-02,0.73739e-02,0.10084e-01,0.11795e-01,0.12791e-01, & - & 0.13002e-01,0.12408e-01,0.10948e-01,0.73256e-02 /) - kao(:, 2, 3, 6) = (/ & - & 0.16445e-02,0.76603e-02,0.10441e-01,0.12136e-01,0.13098e-01, & - & 0.13272e-01,0.12629e-01,0.11169e-01,0.75277e-02 /) - kao(:, 3, 3, 6) = (/ & - & 0.17016e-02,0.79120e-02,0.10738e-01,0.12444e-01,0.13365e-01, & - & 0.13502e-01,0.12827e-01,0.11365e-01,0.77275e-02 /) - kao(:, 4, 3, 6) = (/ & - & 0.17419e-02,0.81204e-02,0.10992e-01,0.12704e-01,0.13579e-01, & - & 0.13687e-01,0.13022e-01,0.11565e-01,0.79327e-02 /) - kao(:, 5, 3, 6) = (/ & - & 0.17693e-02,0.82896e-02,0.11201e-01,0.12903e-01,0.13761e-01, & - & 0.13854e-01,0.13193e-01,0.11760e-01,0.81324e-02 /) - kao(:, 1, 4, 6) = (/ & - & 0.12568e-02,0.62925e-02,0.86570e-02,0.10156e-01,0.11020e-01, & - & 0.11220e-01,0.10710e-01,0.94329e-02,0.61812e-02 /) - kao(:, 2, 4, 6) = (/ & - & 0.13242e-02,0.65532e-02,0.89756e-02,0.10460e-01,0.11292e-01, & - & 0.11463e-01,0.10924e-01,0.96449e-02,0.63620e-02 /) - kao(:, 3, 4, 6) = (/ & - & 0.13782e-02,0.67807e-02,0.92447e-02,0.10739e-01,0.11531e-01, & - & 0.11676e-01,0.11115e-01,0.98384e-02,0.65417e-02 /) - kao(:, 4, 4, 6) = (/ & - & 0.14185e-02,0.69728e-02,0.94724e-02,0.10967e-01,0.11732e-01, & - & 0.11853e-01,0.11299e-01,0.10029e-01,0.67314e-02 /) - kao(:, 5, 4, 6) = (/ & - & 0.14466e-02,0.71294e-02,0.96551e-02,0.11150e-01,0.11897e-01, & - & 0.12003e-01,0.11457e-01,0.10212e-01,0.69134e-02 /) - kao(:, 1, 5, 6) = (/ & - & 0.99815e-03,0.53184e-02,0.73668e-02,0.86661e-02,0.94189e-02, & - & 0.96088e-02,0.91860e-02,0.80854e-02,0.52147e-02 /) - kao(:, 2, 5, 6) = (/ & - & 0.10594e-02,0.55502e-02,0.76480e-02,0.89382e-02,0.96675e-02, & - & 0.98281e-02,0.93908e-02,0.82904e-02,0.53805e-02 /) - kao(:, 3, 5, 6) = (/ & - & 0.11093e-02,0.57534e-02,0.78820e-02,0.91873e-02,0.98860e-02, & - & 0.10027e-01,0.95739e-02,0.84774e-02,0.55398e-02 /) - kao(:, 4, 5, 6) = (/ & - & 0.11487e-02,0.59264e-02,0.80746e-02,0.93952e-02,0.10070e-01, & - & 0.10196e-01,0.97460e-02,0.86586e-02,0.57118e-02 /) - kao(:, 5, 5, 6) = (/ & - & 0.11770e-02,0.60715e-02,0.82322e-02,0.95590e-02,0.10225e-01, & - & 0.10337e-01,0.98891e-02,0.88282e-02,0.58756e-02 /) - kao(:, 1, 6, 6) = (/ & - & 0.78484e-03,0.44557e-02,0.62088e-02,0.73238e-02,0.79758e-02, & - & 0.81565e-02,0.78234e-02,0.68949e-02,0.43721e-02 /) - kao(:, 2, 6, 6) = (/ & - & 0.84104e-03,0.46584e-02,0.64548e-02,0.75720e-02,0.82049e-02, & - & 0.83603e-02,0.80139e-02,0.70912e-02,0.45208e-02 /) - kao(:, 3, 6, 6) = (/ & - & 0.88703e-03,0.48386e-02,0.66585e-02,0.77939e-02,0.84077e-02, & - & 0.85494e-02,0.81878e-02,0.72673e-02,0.46664e-02 /) - kao(:, 4, 6, 6) = (/ & - & 0.92429e-03,0.49939e-02,0.68255e-02,0.79793e-02,0.85811e-02, & - & 0.87123e-02,0.83423e-02,0.74324e-02,0.48193e-02 /) - kao(:, 5, 6, 6) = (/ & - & 0.95287e-03,0.51269e-02,0.69664e-02,0.81216e-02,0.87256e-02, & - & 0.88404e-02,0.84793e-02,0.75885e-02,0.49684e-02 /) - kao(:, 1, 7, 6) = (/ & - & 0.61176e-03,0.37105e-02,0.51921e-02,0.61495e-02,0.67086e-02, & - & 0.68737e-02,0.66196e-02,0.58499e-02,0.36398e-02 /) - kao(:, 2, 7, 6) = (/ & - & 0.66355e-03,0.38845e-02,0.54092e-02,0.63684e-02,0.69191e-02, & - & 0.70638e-02,0.67967e-02,0.60329e-02,0.37725e-02 /) - kao(:, 3, 7, 6) = (/ & - & 0.70584e-03,0.40429e-02,0.55891e-02,0.65665e-02,0.71061e-02, & - & 0.72392e-02,0.69566e-02,0.61958e-02,0.39040e-02 /) - kao(:, 4, 7, 6) = (/ & - & 0.74016e-03,0.41804e-02,0.57362e-02,0.67306e-02,0.72656e-02, & - & 0.73939e-02,0.71002e-02,0.63458e-02,0.40422e-02 /) - kao(:, 5, 7, 6) = (/ & - & 0.76793e-03,0.43013e-02,0.58634e-02,0.68605e-02,0.73917e-02, & - & 0.75160e-02,0.72292e-02,0.64867e-02,0.41753e-02 /) - kao(:, 1, 8, 6) = (/ & - & 0.47383e-03,0.30719e-02,0.43157e-02,0.51299e-02,0.56113e-02, & - & 0.57604e-02,0.55584e-02,0.49263e-02,0.30099e-02 /) - kao(:, 2, 8, 6) = (/ & - & 0.52030e-03,0.32224e-02,0.45088e-02,0.53256e-02,0.58049e-02, & - & 0.59369e-02,0.57249e-02,0.50950e-02,0.31335e-02 /) - kao(:, 3, 8, 6) = (/ & - & 0.55897e-03,0.33601e-02,0.46690e-02,0.55008e-02,0.59733e-02, & - & 0.60982e-02,0.58703e-02,0.52416e-02,0.32505e-02 /) - kao(:, 4, 8, 6) = (/ & - & 0.59051e-03,0.34823e-02,0.48003e-02,0.56492e-02,0.61147e-02, & - & 0.62407e-02,0.60011e-02,0.53776e-02,0.33691e-02 /) - kao(:, 5, 8, 6) = (/ & - & 0.61638e-03,0.35908e-02,0.49151e-02,0.57682e-02,0.62269e-02, & - & 0.63505e-02,0.61226e-02,0.55061e-02,0.34893e-02 /) - kao(:, 1, 9, 6) = (/ & - & 0.36452e-03,0.25301e-02,0.35655e-02,0.42558e-02,0.46668e-02, & - & 0.47995e-02,0.46391e-02,0.41176e-02,0.24723e-02 /) - kao(:, 2, 9, 6) = (/ & - & 0.40521e-03,0.26609e-02,0.37368e-02,0.44313e-02,0.48422e-02, & - & 0.49605e-02,0.47876e-02,0.42682e-02,0.25854e-02 /) - kao(:, 3, 9, 6) = (/ & - & 0.44042e-03,0.27811e-02,0.38822e-02,0.45871e-02,0.49951e-02, & - & 0.51048e-02,0.49189e-02,0.43988e-02,0.26922e-02 /) - kao(:, 4, 9, 6) = (/ & - & 0.46934e-03,0.28890e-02,0.40015e-02,0.47204e-02,0.51195e-02, & - & 0.52329e-02,0.50398e-02,0.45211e-02,0.27947e-02 /) - kao(:, 5, 9, 6) = (/ & - & 0.49296e-03,0.29863e-02,0.41052e-02,0.48296e-02,0.52212e-02, & - & 0.53320e-02,0.51516e-02,0.46410e-02,0.29014e-02 /) - kao(:, 1,10, 6) = (/ & - & 0.28141e-03,0.20839e-02,0.29434e-02,0.35250e-02,0.38705e-02, & - & 0.39907e-02,0.38574e-02,0.34280e-02,0.20276e-02 /) - kao(:, 2,10, 6) = (/ & - & 0.31642e-03,0.21962e-02,0.30947e-02,0.36798e-02,0.40279e-02, & - & 0.41317e-02,0.39905e-02,0.35591e-02,0.21304e-02 /) - kao(:, 3,10, 6) = (/ & - & 0.34743e-03,0.23002e-02,0.32251e-02,0.38167e-02,0.41632e-02, & - & 0.42588e-02,0.41077e-02,0.36737e-02,0.22246e-02 /) - kao(:, 4,10, 6) = (/ & - & 0.37337e-03,0.23958e-02,0.33326e-02,0.39351e-02,0.42727e-02, & - & 0.43699e-02,0.42167e-02,0.37850e-02,0.23171e-02 /) - kao(:, 5,10, 6) = (/ & - & 0.39464e-03,0.24818e-02,0.34245e-02,0.40341e-02,0.43635e-02, & - & 0.44592e-02,0.43133e-02,0.38931e-02,0.24123e-02 /) - kao(:, 1,11, 6) = (/ & - & 0.23046e-03,0.17561e-02,0.24821e-02,0.29697e-02,0.32603e-02, & - & 0.33590e-02,0.32465e-02,0.28911e-02,0.17000e-02 /) - kao(:, 2,11, 6) = (/ & - & 0.25900e-03,0.18499e-02,0.26079e-02,0.30983e-02,0.33914e-02, & - & 0.34790e-02,0.33598e-02,0.30000e-02,0.17879e-02 /) - kao(:, 3,11, 6) = (/ & - & 0.28431e-03,0.19371e-02,0.27154e-02,0.32123e-02,0.35009e-02, & - & 0.35810e-02,0.34582e-02,0.30989e-02,0.18709e-02 /) - kao(:, 4,11, 6) = (/ & - & 0.30554e-03,0.20175e-02,0.28047e-02,0.33094e-02,0.35897e-02, & - & 0.36708e-02,0.35500e-02,0.31964e-02,0.19524e-02 /) - kao(:, 5,11, 6) = (/ & - & 0.32290e-03,0.20906e-02,0.28827e-02,0.33907e-02,0.36638e-02, & - & 0.37448e-02,0.36322e-02,0.32921e-02,0.20342e-02 /) - kao(:, 1,12, 6) = (/ & - & 0.18873e-03,0.14753e-02,0.20859e-02,0.24932e-02,0.27362e-02, & - & 0.28163e-02,0.27231e-02,0.24287e-02,0.14226e-02 /) - kao(:, 2,12, 6) = (/ & - & 0.21206e-03,0.15542e-02,0.21905e-02,0.25997e-02,0.28436e-02, & - & 0.29146e-02,0.28182e-02,0.25196e-02,0.14964e-02 /) - kao(:, 3,12, 6) = (/ & - & 0.23271e-03,0.16282e-02,0.22789e-02,0.26937e-02,0.29320e-02, & - & 0.29995e-02,0.29004e-02,0.26063e-02,0.15684e-02 /) - kao(:, 4,12, 6) = (/ & - & 0.25005e-03,0.16959e-02,0.23539e-02,0.27739e-02,0.30052e-02, & - & 0.30738e-02,0.29781e-02,0.26924e-02,0.16388e-02 /) - kao(:, 5,12, 6) = (/ & - & 0.26424e-03,0.17579e-02,0.24198e-02,0.28418e-02,0.30688e-02, & - & 0.31370e-02,0.30478e-02,0.27734e-02,0.17090e-02 /) - kao(:, 1,13, 6) = (/ & - & 0.15451e-03,0.12362e-02,0.17471e-02,0.20856e-02,0.22870e-02, & - & 0.23530e-02,0.22758e-02,0.20318e-02,0.11868e-02 /) - kao(:, 2,13, 6) = (/ & - & 0.17357e-03,0.13027e-02,0.18337e-02,0.21736e-02,0.23752e-02, & - & 0.24339e-02,0.23549e-02,0.21104e-02,0.12492e-02 /) - kao(:, 3,13, 6) = (/ & - & 0.19045e-03,0.13651e-02,0.19071e-02,0.22520e-02,0.24479e-02, & - & 0.25052e-02,0.24255e-02,0.21862e-02,0.13114e-02 /) - kao(:, 4,13, 6) = (/ & - & 0.20459e-03,0.14225e-02,0.19702e-02,0.23195e-02,0.25109e-02, & - & 0.25680e-02,0.24906e-02,0.22592e-02,0.13717e-02 /) - kao(:, 5,13, 6) = (/ & - & 0.21621e-03,0.14751e-02,0.20267e-02,0.23775e-02,0.25654e-02, & - & 0.26221e-02,0.25513e-02,0.23283e-02,0.14321e-02 /) - kao(:, 1, 1, 7) = (/ & - & 0.14551e-01,0.26282e-01,0.32053e-01,0.35189e-01,0.36600e-01, & - & 0.36646e-01,0.35552e-01,0.33215e-01,0.27309e-01 /) - kao(:, 2, 1, 7) = (/ & - & 0.15360e-01,0.26847e-01,0.32411e-01,0.35426e-01,0.36803e-01, & - & 0.36994e-01,0.36037e-01,0.33674e-01,0.27881e-01 /) - kao(:, 3, 1, 7) = (/ & - & 0.16052e-01,0.27358e-01,0.32711e-01,0.35602e-01,0.37002e-01, & - & 0.37322e-01,0.36495e-01,0.34092e-01,0.28365e-01 /) - kao(:, 4, 1, 7) = (/ & - & 0.16634e-01,0.27765e-01,0.32975e-01,0.35757e-01,0.37198e-01, & - & 0.37629e-01,0.36871e-01,0.34489e-01,0.28817e-01 /) - kao(:, 5, 1, 7) = (/ & - & 0.17092e-01,0.28088e-01,0.33173e-01,0.35899e-01,0.37369e-01, & - & 0.37894e-01,0.37206e-01,0.34856e-01,0.29236e-01 /) - kao(:, 1, 2, 7) = (/ & - & 0.12675e-01,0.23757e-01,0.28827e-01,0.31475e-01,0.32647e-01, & - & 0.32779e-01,0.31874e-01,0.29659e-01,0.23735e-01 /) - kao(:, 2, 2, 7) = (/ & - & 0.13363e-01,0.24261e-01,0.29165e-01,0.31734e-01,0.32905e-01, & - & 0.33137e-01,0.32357e-01,0.30114e-01,0.24241e-01 /) - kao(:, 3, 2, 7) = (/ & - & 0.13952e-01,0.24673e-01,0.29458e-01,0.31940e-01,0.33167e-01, & - & 0.33486e-01,0.32794e-01,0.30540e-01,0.24704e-01 /) - kao(:, 4, 2, 7) = (/ & - & 0.14440e-01,0.25010e-01,0.29692e-01,0.32131e-01,0.33402e-01, & - & 0.33816e-01,0.33185e-01,0.30944e-01,0.25123e-01 /) - kao(:, 5, 2, 7) = (/ & - & 0.14810e-01,0.25246e-01,0.29865e-01,0.32323e-01,0.33624e-01, & - & 0.34125e-01,0.33530e-01,0.31299e-01,0.25501e-01 /) - kao(:, 1, 3, 7) = (/ & - & 0.10764e-01,0.21180e-01,0.25645e-01,0.27934e-01,0.28891e-01, & - & 0.28978e-01,0.28215e-01,0.26250e-01,0.20340e-01 /) - kao(:, 2, 3, 7) = (/ & - & 0.11371e-01,0.21611e-01,0.25976e-01,0.28221e-01,0.29204e-01, & - & 0.29347e-01,0.28689e-01,0.26687e-01,0.20803e-01 /) - kao(:, 3, 3, 7) = (/ & - & 0.11882e-01,0.21977e-01,0.26258e-01,0.28467e-01,0.29498e-01, & - & 0.29730e-01,0.29113e-01,0.27115e-01,0.21241e-01 /) - kao(:, 4, 3, 7) = (/ & - & 0.12302e-01,0.22273e-01,0.26477e-01,0.28696e-01,0.29766e-01, & - & 0.30099e-01,0.29507e-01,0.27503e-01,0.21620e-01 /) - kao(:, 5, 3, 7) = (/ & - & 0.12624e-01,0.22481e-01,0.26631e-01,0.28900e-01,0.30032e-01, & - & 0.30425e-01,0.29859e-01,0.27842e-01,0.21966e-01 /) - kao(:, 1, 4, 7) = (/ & - & 0.89860e-02,0.18659e-01,0.22605e-01,0.24580e-01,0.25383e-01, & - & 0.25435e-01,0.24761e-01,0.23037e-01,0.17414e-01 /) - kao(:, 2, 4, 7) = (/ & - & 0.95207e-02,0.19048e-01,0.22924e-01,0.24888e-01,0.25739e-01, & - & 0.25823e-01,0.25200e-01,0.23450e-01,0.17847e-01 /) - kao(:, 3, 4, 7) = (/ & - & 0.99723e-02,0.19380e-01,0.23182e-01,0.25155e-01,0.26061e-01, & - & 0.26209e-01,0.25611e-01,0.23862e-01,0.18251e-01 /) - kao(:, 4, 4, 7) = (/ & - & 0.10354e-01,0.19644e-01,0.23397e-01,0.25401e-01,0.26345e-01, & - & 0.26580e-01,0.26000e-01,0.24233e-01,0.18600e-01 /) - kao(:, 5, 4, 7) = (/ & - & 0.10637e-01,0.19822e-01,0.23556e-01,0.25605e-01,0.26619e-01, & - & 0.26913e-01,0.26359e-01,0.24562e-01,0.18925e-01 /) - kao(:, 1, 5, 7) = (/ & - & 0.74104e-02,0.16264e-01,0.19717e-01,0.21452e-01,0.22172e-01, & - & 0.22207e-01,0.21598e-01,0.20075e-01,0.14880e-01 /) - kao(:, 2, 5, 7) = (/ & - & 0.78778e-02,0.16624e-01,0.20022e-01,0.21765e-01,0.22531e-01, & - & 0.22596e-01,0.21999e-01,0.20458e-01,0.15279e-01 /) - kao(:, 3, 5, 7) = (/ & - & 0.82694e-02,0.16928e-01,0.20277e-01,0.22036e-01,0.22859e-01, & - & 0.22978e-01,0.22384e-01,0.20834e-01,0.15650e-01 /) - kao(:, 4, 5, 7) = (/ & - & 0.85919e-02,0.17168e-01,0.20498e-01,0.22274e-01,0.23143e-01, & - & 0.23326e-01,0.22754e-01,0.21189e-01,0.15980e-01 /) - kao(:, 5, 5, 7) = (/ & - & 0.88337e-02,0.17332e-01,0.20664e-01,0.22477e-01,0.23407e-01, & - & 0.23648e-01,0.23111e-01,0.21509e-01,0.16283e-01 /) - kao(:, 1, 6, 7) = (/ & - & 0.60305e-02,0.14008e-01,0.17028e-01,0.18574e-01,0.19236e-01, & - & 0.19269e-01,0.18720e-01,0.17347e-01,0.12656e-01 /) - kao(:, 2, 6, 7) = (/ & - & 0.64356e-02,0.14339e-01,0.17318e-01,0.18872e-01,0.19580e-01, & - & 0.19645e-01,0.19095e-01,0.17705e-01,0.13025e-01 /) - kao(:, 3, 6, 7) = (/ & - & 0.67708e-02,0.14626e-01,0.17575e-01,0.19135e-01,0.19883e-01, & - & 0.20004e-01,0.19454e-01,0.18055e-01,0.13366e-01 /) - kao(:, 4, 6, 7) = (/ & - & 0.70449e-02,0.14853e-01,0.17795e-01,0.19363e-01,0.20156e-01, & - & 0.20324e-01,0.19811e-01,0.18392e-01,0.13679e-01 /) - kao(:, 5, 6, 7) = (/ & - & 0.72586e-02,0.15014e-01,0.17954e-01,0.19569e-01,0.20401e-01, & - & 0.20622e-01,0.20155e-01,0.18706e-01,0.13963e-01 /) - kao(:, 1, 7, 7) = (/ & - & 0.48615e-02,0.11936e-01,0.14574e-01,0.15963e-01,0.16578e-01, & - & 0.16615e-01,0.16125e-01,0.14904e-01,0.10718e-01 /) - kao(:, 2, 7, 7) = (/ & - & 0.52093e-02,0.12247e-01,0.14845e-01,0.16239e-01,0.16890e-01, & - & 0.16965e-01,0.16477e-01,0.15238e-01,0.11050e-01 /) - kao(:, 3, 7, 7) = (/ & - & 0.54981e-02,0.12520e-01,0.15089e-01,0.16485e-01,0.17163e-01, & - & 0.17296e-01,0.16823e-01,0.15561e-01,0.11367e-01 /) - kao(:, 4, 7, 7) = (/ & - & 0.57341e-02,0.12732e-01,0.15302e-01,0.16709e-01,0.17412e-01, & - & 0.17587e-01,0.17156e-01,0.15882e-01,0.11657e-01 /) - kao(:, 5, 7, 7) = (/ & - & 0.59245e-02,0.12879e-01,0.15460e-01,0.16900e-01,0.17646e-01, & - & 0.17862e-01,0.17475e-01,0.16189e-01,0.11924e-01 /) - kao(:, 1, 8, 7) = (/ & - & 0.38903e-02,0.10086e-01,0.12393e-01,0.13617e-01,0.14179e-01, & - & 0.14230e-01,0.13810e-01,0.12741e-01,0.90402e-02 /) - kao(:, 2, 8, 7) = (/ & - & 0.41883e-02,0.10379e-01,0.12642e-01,0.13866e-01,0.14454e-01, & - & 0.14549e-01,0.14140e-01,0.13050e-01,0.93407e-02 /) - kao(:, 3, 8, 7) = (/ & - & 0.44374e-02,0.10628e-01,0.12866e-01,0.14093e-01,0.14702e-01, & - & 0.14847e-01,0.14466e-01,0.13354e-01,0.96289e-02 /) - kao(:, 4, 8, 7) = (/ & - & 0.46417e-02,0.10823e-01,0.13067e-01,0.14297e-01,0.14936e-01, & - & 0.15113e-01,0.14777e-01,0.13659e-01,0.98946e-02 /) - kao(:, 5, 8, 7) = (/ & - & 0.48106e-02,0.10958e-01,0.13212e-01,0.14477e-01,0.15155e-01, & - & 0.15369e-01,0.15065e-01,0.13954e-01,0.10137e-01 /) - kao(:, 1, 9, 7) = (/ & - & 0.30906e-02,0.84716e-02,0.10475e-01,0.11533e-01,0.12037e-01, & - & 0.12102e-01,0.11757e-01,0.10840e-01,0.75790e-02 /) - kao(:, 2, 9, 7) = (/ & - & 0.33456e-02,0.87380e-02,0.10698e-01,0.11759e-01,0.12281e-01, & - & 0.12384e-01,0.12063e-01,0.11124e-01,0.78524e-02 /) - kao(:, 3, 9, 7) = (/ & - & 0.35624e-02,0.89636e-02,0.10908e-01,0.11964e-01,0.12503e-01, & - & 0.12651e-01,0.12366e-01,0.11413e-01,0.81116e-02 /) - kao(:, 4, 9, 7) = (/ & - & 0.37409e-02,0.91394e-02,0.11085e-01,0.12156e-01,0.12717e-01, & - & 0.12895e-01,0.12646e-01,0.11703e-01,0.83543e-02 /) - kao(:, 5, 9, 7) = (/ & - & 0.38899e-02,0.92663e-02,0.11210e-01,0.12323e-01,0.12923e-01, & - & 0.13135e-01,0.12909e-01,0.11979e-01,0.85748e-02 /) - kao(:, 1,10, 7) = (/ & - & 0.24588e-02,0.70997e-02,0.88156e-02,0.97280e-02,0.10175e-01, & - & 0.10246e-01,0.99712e-02,0.91951e-02,0.63324e-02 /) - kao(:, 2,10, 7) = (/ & - & 0.26743e-02,0.73393e-02,0.90183e-02,0.99289e-02,0.10387e-01, & - & 0.10496e-01,0.10249e-01,0.94566e-02,0.65770e-02 /) - kao(:, 3,10, 7) = (/ & - & 0.28610e-02,0.75352e-02,0.92028e-02,0.10117e-01,0.10586e-01, & - & 0.10730e-01,0.10524e-01,0.97307e-02,0.68077e-02 /) - kao(:, 4,10, 7) = (/ & - & 0.30147e-02,0.76899e-02,0.93550e-02,0.10291e-01,0.10781e-01, & - & 0.10954e-01,0.10778e-01,0.10001e-01,0.70201e-02 /) - kao(:, 5,10, 7) = (/ & - & 0.31444e-02,0.78050e-02,0.94668e-02,0.10433e-01,0.10974e-01, & - & 0.11173e-01,0.11019e-01,0.10253e-01,0.72189e-02 /) - kao(:, 1,11, 7) = (/ & - & 0.20345e-02,0.60249e-02,0.74716e-02,0.82496e-02,0.86458e-02, & - & 0.87340e-02,0.85222e-02,0.78657e-02,0.53714e-02 /) - kao(:, 2,11, 7) = (/ & - & 0.22071e-02,0.62176e-02,0.76440e-02,0.84251e-02,0.88273e-02, & - & 0.89461e-02,0.87689e-02,0.81125e-02,0.55835e-02 /) - kao(:, 3,11, 7) = (/ & - & 0.23554e-02,0.63729e-02,0.77932e-02,0.85868e-02,0.90058e-02, & - & 0.91548e-02,0.90075e-02,0.83660e-02,0.57827e-02 /) - kao(:, 4,11, 7) = (/ & - & 0.24780e-02,0.64944e-02,0.79106e-02,0.87291e-02,0.91857e-02, & - & 0.93565e-02,0.92302e-02,0.86036e-02,0.59695e-02 /) - kao(:, 5,11, 7) = (/ & - & 0.25820e-02,0.65802e-02,0.79974e-02,0.88427e-02,0.93482e-02, & - & 0.95539e-02,0.94443e-02,0.88180e-02,0.61512e-02 /) - kao(:, 1,12, 7) = (/ & - & 0.16789e-02,0.50906e-02,0.63078e-02,0.69750e-02,0.73172e-02, & - & 0.74078e-02,0.72504e-02,0.67015e-02,0.45394e-02 /) - kao(:, 2,12, 7) = (/ & - & 0.18170e-02,0.52437e-02,0.64512e-02,0.71255e-02,0.74790e-02, & - & 0.75959e-02,0.74655e-02,0.69307e-02,0.47237e-02 /) - kao(:, 3,12, 7) = (/ & - & 0.19356e-02,0.53689e-02,0.65701e-02,0.72610e-02,0.76415e-02, & - & 0.77811e-02,0.76703e-02,0.71508e-02,0.48953e-02 /) - kao(:, 4,12, 7) = (/ & - & 0.20342e-02,0.54644e-02,0.66640e-02,0.73792e-02,0.77929e-02, & - & 0.79635e-02,0.78660e-02,0.73532e-02,0.50607e-02 /) - kao(:, 5,12, 7) = (/ & - & 0.21182e-02,0.55328e-02,0.67352e-02,0.74736e-02,0.79282e-02, & - & 0.81307e-02,0.80542e-02,0.75407e-02,0.52234e-02 /) - kao(:, 1,13, 7) = (/ & - & 0.13819e-02,0.42823e-02,0.53096e-02,0.58771e-02,0.61745e-02, & - & 0.62601e-02,0.61411e-02,0.56893e-02,0.38201e-02 /) - kao(:, 2,13, 7) = (/ & - & 0.14927e-02,0.44078e-02,0.54261e-02,0.60055e-02,0.63167e-02, & - & 0.64278e-02,0.63268e-02,0.58891e-02,0.39789e-02 /) - kao(:, 3,13, 7) = (/ & - & 0.15884e-02,0.45090e-02,0.55246e-02,0.61217e-02,0.64577e-02, & - & 0.65903e-02,0.65044e-02,0.60758e-02,0.41288e-02 /) - kao(:, 4,13, 7) = (/ & - & 0.16683e-02,0.45858e-02,0.56029e-02,0.62193e-02,0.65859e-02, & - & 0.67454e-02,0.66768e-02,0.62506e-02,0.42765e-02 /) - kao(:, 5,13, 7) = (/ & - & 0.17364e-02,0.46419e-02,0.56644e-02,0.62996e-02,0.66998e-02, & - & 0.68888e-02,0.68404e-02,0.64188e-02,0.44198e-02 /) - kao(:, 1, 1, 8) = (/ & - & 0.57760e-01,0.69432e-01,0.76402e-01,0.81517e-01,0.85125e-01, & - & 0.87289e-01,0.87408e-01,0.83317e-01,0.74720e-01 /) - kao(:, 2, 1, 8) = (/ & - & 0.58256e-01,0.69667e-01,0.76723e-01,0.81911e-01,0.85362e-01, & - & 0.87289e-01,0.87306e-01,0.83357e-01,0.75177e-01 /) - kao(:, 3, 1, 8) = (/ & - & 0.58710e-01,0.69859e-01,0.76973e-01,0.82328e-01,0.85690e-01, & - & 0.87420e-01,0.87264e-01,0.83435e-01,0.75701e-01 /) - kao(:, 4, 1, 8) = (/ & - & 0.59052e-01,0.70050e-01,0.77176e-01,0.82642e-01,0.86071e-01, & - & 0.87660e-01,0.87341e-01,0.83544e-01,0.76230e-01 /) - kao(:, 5, 1, 8) = (/ & - & 0.59298e-01,0.70198e-01,0.77374e-01,0.82883e-01,0.86469e-01, & - & 0.87977e-01,0.87473e-01,0.83691e-01,0.76769e-01 /) - kao(:, 1, 2, 8) = (/ & - & 0.50908e-01,0.62848e-01,0.70003e-01,0.75263e-01,0.78670e-01, & - & 0.80594e-01,0.80694e-01,0.77048e-01,0.67048e-01 /) - kao(:, 2, 2, 8) = (/ & - & 0.51469e-01,0.63178e-01,0.70395e-01,0.75763e-01,0.79033e-01, & - & 0.80775e-01,0.80686e-01,0.77199e-01,0.67605e-01 /) - kao(:, 3, 2, 8) = (/ & - & 0.51956e-01,0.63519e-01,0.70748e-01,0.76221e-01,0.79512e-01, & - & 0.81067e-01,0.80797e-01,0.77370e-01,0.68182e-01 /) - kao(:, 4, 2, 8) = (/ & - & 0.52329e-01,0.63831e-01,0.71115e-01,0.76591e-01,0.80032e-01, & - & 0.81445e-01,0.81001e-01,0.77568e-01,0.68768e-01 /) - kao(:, 5, 2, 8) = (/ & - & 0.52648e-01,0.64108e-01,0.71441e-01,0.76941e-01,0.80464e-01, & - & 0.81866e-01,0.81282e-01,0.77796e-01,0.69377e-01 /) - kao(:, 1, 3, 8) = (/ & - & 0.44636e-01,0.56575e-01,0.63667e-01,0.68804e-01,0.72146e-01, & - & 0.73940e-01,0.73756e-01,0.70359e-01,0.59446e-01 /) - kao(:, 2, 3, 8) = (/ & - & 0.45216e-01,0.57005e-01,0.64111e-01,0.69328e-01,0.72620e-01, & - & 0.74228e-01,0.73854e-01,0.70600e-01,0.60086e-01 /) - kao(:, 3, 3, 8) = (/ & - & 0.45716e-01,0.57448e-01,0.64591e-01,0.69816e-01,0.73178e-01, & - & 0.74616e-01,0.74093e-01,0.70843e-01,0.60738e-01 /) - kao(:, 4, 3, 8) = (/ & - & 0.46137e-01,0.57862e-01,0.65060e-01,0.70283e-01,0.73724e-01, & - & 0.75067e-01,0.74408e-01,0.71130e-01,0.61385e-01 /) - kao(:, 5, 3, 8) = (/ & - & 0.46490e-01,0.58240e-01,0.65537e-01,0.70752e-01,0.74187e-01, & - & 0.75545e-01,0.74817e-01,0.71479e-01,0.61998e-01 /) - kao(:, 1, 4, 8) = (/ & - & 0.38910e-01,0.50823e-01,0.57505e-01,0.62364e-01,0.65559e-01, & - & 0.67154e-01,0.66798e-01,0.63531e-01,0.52401e-01 /) - kao(:, 2, 4, 8) = (/ & - & 0.39488e-01,0.51307e-01,0.58022e-01,0.62912e-01,0.66074e-01, & - & 0.67518e-01,0.67025e-01,0.63840e-01,0.53093e-01 /) - kao(:, 3, 4, 8) = (/ & - & 0.39991e-01,0.51812e-01,0.58566e-01,0.63451e-01,0.66632e-01, & - & 0.68010e-01,0.67348e-01,0.64169e-01,0.53782e-01 /) - kao(:, 4, 4, 8) = (/ & - & 0.40387e-01,0.52291e-01,0.59117e-01,0.64001e-01,0.67196e-01, & - & 0.68514e-01,0.67789e-01,0.64555e-01,0.54470e-01 /) - kao(:, 5, 4, 8) = (/ & - & 0.40719e-01,0.52739e-01,0.59691e-01,0.64572e-01,0.67725e-01, & - & 0.69031e-01,0.68307e-01,0.64985e-01,0.55091e-01 /) - kao(:, 1, 5, 8) = (/ & - & 0.33692e-01,0.45459e-01,0.51705e-01,0.56111e-01,0.58984e-01, & - & 0.60384e-01,0.59951e-01,0.56770e-01,0.45939e-01 /) - kao(:, 2, 5, 8) = (/ & - & 0.34254e-01,0.45979e-01,0.52252e-01,0.56664e-01,0.59515e-01, & - & 0.60816e-01,0.60273e-01,0.57146e-01,0.46647e-01 /) - kao(:, 3, 5, 8) = (/ & - & 0.34738e-01,0.46532e-01,0.52846e-01,0.57238e-01,0.60077e-01, & - & 0.61352e-01,0.60714e-01,0.57566e-01,0.47359e-01 /) - kao(:, 4, 5, 8) = (/ & - & 0.35117e-01,0.47047e-01,0.53459e-01,0.57849e-01,0.60668e-01, & - & 0.61902e-01,0.61259e-01,0.58030e-01,0.48036e-01 /) - kao(:, 5, 5, 8) = (/ & - & 0.35428e-01,0.47508e-01,0.54083e-01,0.58493e-01,0.61253e-01, & - & 0.62481e-01,0.61851e-01,0.58523e-01,0.48648e-01 /) - kao(:, 1, 6, 8) = (/ & - & 0.28910e-01,0.40429e-01,0.46176e-01,0.50108e-01,0.52609e-01, & - & 0.53750e-01,0.53289e-01,0.50286e-01,0.40061e-01 /) - kao(:, 2, 6, 8) = (/ & - & 0.29433e-01,0.40967e-01,0.46731e-01,0.50653e-01,0.53149e-01, & - & 0.54232e-01,0.53687e-01,0.50714e-01,0.40756e-01 /) - kao(:, 3, 6, 8) = (/ & - & 0.29883e-01,0.41520e-01,0.47349e-01,0.51251e-01,0.53731e-01, & - & 0.54796e-01,0.54207e-01,0.51188e-01,0.41443e-01 /) - kao(:, 4, 6, 8) = (/ & - & 0.30252e-01,0.42024e-01,0.47998e-01,0.51918e-01,0.54339e-01, & - & 0.55387e-01,0.54820e-01,0.51711e-01,0.42085e-01 /) - kao(:, 5, 6, 8) = (/ & - & 0.30542e-01,0.42447e-01,0.48635e-01,0.52598e-01,0.54986e-01, & - & 0.56038e-01,0.55430e-01,0.52236e-01,0.42675e-01 /) - kao(:, 1, 7, 8) = (/ & - & 0.24600e-01,0.35725e-01,0.40952e-01,0.44398e-01,0.46558e-01, & - & 0.47462e-01,0.46950e-01,0.44227e-01,0.34751e-01 /) - kao(:, 2, 7, 8) = (/ & - & 0.25060e-01,0.36250e-01,0.41498e-01,0.44950e-01,0.47097e-01, & - & 0.47977e-01,0.47399e-01,0.44690e-01,0.35410e-01 /) - kao(:, 3, 7, 8) = (/ & - & 0.25466e-01,0.36769e-01,0.42119e-01,0.45572e-01,0.47696e-01, & - & 0.48548e-01,0.47965e-01,0.45198e-01,0.36050e-01 /) - kao(:, 4, 7, 8) = (/ & - & 0.25804e-01,0.37232e-01,0.42764e-01,0.46249e-01,0.48349e-01, & - & 0.49173e-01,0.48603e-01,0.45737e-01,0.36649e-01 /) - kao(:, 5, 7, 8) = (/ & - & 0.26075e-01,0.37645e-01,0.43371e-01,0.46950e-01,0.49045e-01, & - & 0.49856e-01,0.49223e-01,0.46279e-01,0.37198e-01 /) - kao(:, 1, 8, 8) = (/ & - & 0.20747e-01,0.31325e-01,0.36016e-01,0.39047e-01,0.40921e-01, & - & 0.41656e-01,0.41097e-01,0.38682e-01,0.29955e-01 /) - kao(:, 2, 8, 8) = (/ & - & 0.21145e-01,0.31811e-01,0.36541e-01,0.39597e-01,0.41455e-01, & - & 0.42169e-01,0.41575e-01,0.39145e-01,0.30577e-01 /) - kao(:, 3, 8, 8) = (/ & - & 0.21497e-01,0.32290e-01,0.37155e-01,0.40238e-01,0.42067e-01, & - & 0.42744e-01,0.42154e-01,0.39648e-01,0.31178e-01 /) - kao(:, 4, 8, 8) = (/ & - & 0.21796e-01,0.32717e-01,0.37766e-01,0.40923e-01,0.42738e-01, & - & 0.43394e-01,0.42768e-01,0.40185e-01,0.31733e-01 /) - kao(:, 5, 8, 8) = (/ & - & 0.22044e-01,0.33112e-01,0.38338e-01,0.41597e-01,0.43462e-01, & - & 0.44087e-01,0.43385e-01,0.40740e-01,0.32254e-01 /) - kao(:, 1, 9, 8) = (/ & - & 0.17360e-01,0.27218e-01,0.31401e-01,0.34084e-01,0.35741e-01, & - & 0.36373e-01,0.35798e-01,0.33594e-01,0.25664e-01 /) - kao(:, 2, 9, 8) = (/ & - & 0.17693e-01,0.27662e-01,0.31908e-01,0.34622e-01,0.36264e-01, & - & 0.36877e-01,0.36285e-01,0.34049e-01,0.26251e-01 /) - kao(:, 3, 9, 8) = (/ & - & 0.17992e-01,0.28089e-01,0.32477e-01,0.35255e-01,0.36874e-01, & - & 0.37444e-01,0.36831e-01,0.34544e-01,0.26814e-01 /) - kao(:, 4, 9, 8) = (/ & - & 0.18258e-01,0.28481e-01,0.33050e-01,0.35909e-01,0.37552e-01, & - & 0.38078e-01,0.37421e-01,0.35073e-01,0.27335e-01 /) - kao(:, 5, 9, 8) = (/ & - & 0.18484e-01,0.28849e-01,0.33601e-01,0.36536e-01,0.38254e-01, & - & 0.38756e-01,0.38026e-01,0.35616e-01,0.27829e-01 /) - kao(:, 1,10, 8) = (/ & - & 0.14462e-01,0.23463e-01,0.27186e-01,0.29588e-01,0.31079e-01, & - & 0.31625e-01,0.31053e-01,0.29012e-01,0.21916e-01 /) - kao(:, 2,10, 8) = (/ & - & 0.14737e-01,0.23853e-01,0.27662e-01,0.30109e-01,0.31581e-01, & - & 0.32116e-01,0.31527e-01,0.29461e-01,0.22460e-01 /) - kao(:, 3,10, 8) = (/ & - & 0.14983e-01,0.24238e-01,0.28187e-01,0.30710e-01,0.32176e-01, & - & 0.32664e-01,0.32044e-01,0.29948e-01,0.22987e-01 /) - kao(:, 4,10, 8) = (/ & - & 0.15228e-01,0.24593e-01,0.28718e-01,0.31312e-01,0.32826e-01, & - & 0.33282e-01,0.32615e-01,0.30467e-01,0.23478e-01 /) - kao(:, 5,10, 8) = (/ & - & 0.15411e-01,0.24932e-01,0.29228e-01,0.31903e-01,0.33455e-01, & - & 0.33943e-01,0.33207e-01,0.30994e-01,0.23939e-01 /) - kao(:, 1,11, 8) = (/ & - & 0.12097e-01,0.20230e-01,0.23554e-01,0.25737e-01,0.27070e-01, & - & 0.27526e-01,0.26987e-01,0.25125e-01,0.18843e-01 /) - kao(:, 2,11, 8) = (/ & - & 0.12316e-01,0.20564e-01,0.24014e-01,0.26265e-01,0.27589e-01, & - & 0.28021e-01,0.27462e-01,0.25580e-01,0.19341e-01 /) - kao(:, 3,11, 8) = (/ & - & 0.12525e-01,0.20893e-01,0.24494e-01,0.26817e-01,0.28172e-01, & - & 0.28578e-01,0.27985e-01,0.26073e-01,0.19811e-01 /) - kao(:, 4,11, 8) = (/ & - & 0.12698e-01,0.21212e-01,0.24971e-01,0.27358e-01,0.28752e-01, & - & 0.29196e-01,0.28554e-01,0.26575e-01,0.20254e-01 /) - kao(:, 5,11, 8) = (/ & - & 0.12813e-01,0.21527e-01,0.25428e-01,0.27886e-01,0.29316e-01, & - & 0.29794e-01,0.29144e-01,0.27095e-01,0.20669e-01 /) - kao(:, 1,12, 8) = (/ & - & 0.10079e-01,0.17332e-01,0.20326e-01,0.22283e-01,0.23452e-01, & - & 0.23840e-01,0.23351e-01,0.21701e-01,0.16150e-01 /) - kao(:, 2,12, 8) = (/ & - & 0.10253e-01,0.17624e-01,0.20738e-01,0.22772e-01,0.23963e-01, & - & 0.24343e-01,0.23830e-01,0.22159e-01,0.16605e-01 /) - kao(:, 3,12, 8) = (/ & - & 0.10412e-01,0.17914e-01,0.21165e-01,0.23257e-01,0.24491e-01, & - & 0.24907e-01,0.24364e-01,0.22633e-01,0.17031e-01 /) - kao(:, 4,12, 8) = (/ & - & 0.10528e-01,0.18203e-01,0.21585e-01,0.23732e-01,0.25019e-01, & - & 0.25466e-01,0.24925e-01,0.23123e-01,0.17440e-01 /) - kao(:, 5,12, 8) = (/ & - & 0.10595e-01,0.18491e-01,0.21987e-01,0.24205e-01,0.25526e-01, & - & 0.26013e-01,0.25497e-01,0.23633e-01,0.17825e-01 /) - kao(:, 1,13, 8) = (/ & - & 0.83675e-02,0.14778e-01,0.17455e-01,0.19201e-01,0.20214e-01, & - & 0.20545e-01,0.20133e-01,0.18703e-01,0.13810e-01 /) - kao(:, 2,13, 8) = (/ & - & 0.85037e-02,0.15033e-01,0.17824e-01,0.19621e-01,0.20684e-01, & - & 0.21052e-01,0.20616e-01,0.19145e-01,0.14218e-01 /) - kao(:, 3,13, 8) = (/ & - & 0.86129e-02,0.15303e-01,0.18197e-01,0.20043e-01,0.21163e-01, & - & 0.21577e-01,0.21143e-01,0.19600e-01,0.14617e-01 /) - kao(:, 4,13, 8) = (/ & - & 0.86912e-02,0.15568e-01,0.18565e-01,0.20472e-01,0.21636e-01, & - & 0.22091e-01,0.21674e-01,0.20090e-01,0.14991e-01 /) - kao(:, 5,13, 8) = (/ & - & 0.87302e-02,0.15800e-01,0.18917e-01,0.20887e-01,0.22103e-01, & - & 0.22594e-01,0.22198e-01,0.20586e-01,0.15351e-01 /) - kao(:, 1, 1, 9) = (/ & - & 0.23898e+00,0.24353e+00,0.26297e+00,0.27410e+00,0.27635e+00, & - & 0.27151e+00,0.26001e+00,0.24536e+00,0.24840e+00 /) - kao(:, 2, 1, 9) = (/ & - & 0.23703e+00,0.24151e+00,0.26057e+00,0.27148e+00,0.27415e+00, & - & 0.26993e+00,0.25912e+00,0.24520e+00,0.24830e+00 /) - kao(:, 3, 1, 9) = (/ & - & 0.23567e+00,0.23998e+00,0.25868e+00,0.26917e+00,0.27195e+00, & - & 0.26833e+00,0.25809e+00,0.24488e+00,0.24801e+00 /) - kao(:, 4, 1, 9) = (/ & - & 0.23478e+00,0.23885e+00,0.25713e+00,0.26729e+00,0.26990e+00, & - & 0.26662e+00,0.25696e+00,0.24453e+00,0.24772e+00 /) - kao(:, 5, 1, 9) = (/ & - & 0.23430e+00,0.23810e+00,0.25588e+00,0.26568e+00,0.26809e+00, & - & 0.26490e+00,0.25575e+00,0.24412e+00,0.24745e+00 /) - kao(:, 1, 2, 9) = (/ & - & 0.22071e+00,0.23189e+00,0.25280e+00,0.26428e+00,0.26846e+00, & - & 0.26544e+00,0.25423e+00,0.23818e+00,0.23526e+00 /) - kao(:, 2, 2, 9) = (/ & - & 0.21924e+00,0.23025e+00,0.25076e+00,0.26194e+00,0.26631e+00, & - & 0.26393e+00,0.25356e+00,0.23803e+00,0.23534e+00 /) - kao(:, 3, 2, 9) = (/ & - & 0.21843e+00,0.22915e+00,0.24919e+00,0.26005e+00,0.26425e+00, & - & 0.26237e+00,0.25262e+00,0.23788e+00,0.23535e+00 /) - kao(:, 4, 2, 9) = (/ & - & 0.21819e+00,0.22852e+00,0.24801e+00,0.25855e+00,0.26247e+00, & - & 0.26079e+00,0.25163e+00,0.23767e+00,0.23532e+00 /) - kao(:, 5, 2, 9) = (/ & - & 0.21836e+00,0.22826e+00,0.24718e+00,0.25726e+00,0.26101e+00, & - & 0.25924e+00,0.25059e+00,0.23733e+00,0.23520e+00 /) - kao(:, 1, 3, 9) = (/ & - & 0.20172e+00,0.21909e+00,0.24049e+00,0.25259e+00,0.25809e+00, & - & 0.25661e+00,0.24776e+00,0.23048e+00,0.22176e+00 /) - kao(:, 2, 3, 9) = (/ & - & 0.20072e+00,0.21779e+00,0.23872e+00,0.25058e+00,0.25610e+00, & - & 0.25527e+00,0.24712e+00,0.23055e+00,0.22209e+00 /) - kao(:, 3, 3, 9) = (/ & - & 0.20047e+00,0.21708e+00,0.23748e+00,0.24902e+00,0.25438e+00, & - & 0.25391e+00,0.24629e+00,0.23063e+00,0.22233e+00 /) - kao(:, 4, 3, 9) = (/ & - & 0.20080e+00,0.21687e+00,0.23670e+00,0.24777e+00,0.25298e+00, & - & 0.25252e+00,0.24542e+00,0.23053e+00,0.22249e+00 /) - kao(:, 5, 3, 9) = (/ & - & 0.20160e+00,0.21710e+00,0.23623e+00,0.24683e+00,0.25186e+00, & - & 0.25126e+00,0.24453e+00,0.23018e+00,0.22257e+00 /) - kao(:, 1, 4, 9) = (/ & - & 0.18271e+00,0.20499e+00,0.22645e+00,0.23921e+00,0.24553e+00, & - & 0.24573e+00,0.23916e+00,0.22190e+00,0.20803e+00 /) - kao(:, 2, 4, 9) = (/ & - & 0.18212e+00,0.20407e+00,0.22500e+00,0.23755e+00,0.24385e+00, & - & 0.24460e+00,0.23866e+00,0.22223e+00,0.20862e+00 /) - kao(:, 3, 4, 9) = (/ & - & 0.18234e+00,0.20374e+00,0.22412e+00,0.23625e+00,0.24249e+00, & - & 0.24341e+00,0.23801e+00,0.22245e+00,0.20916e+00 /) - kao(:, 4, 4, 9) = (/ & - & 0.18327e+00,0.20396e+00,0.22372e+00,0.23535e+00,0.24149e+00, & - & 0.24231e+00,0.23730e+00,0.22248e+00,0.20951e+00 /) - kao(:, 5, 4, 9) = (/ & - & 0.18465e+00,0.20466e+00,0.22368e+00,0.23479e+00,0.24072e+00, & - & 0.24142e+00,0.23656e+00,0.22226e+00,0.20975e+00 /) - kao(:, 1, 5, 9) = (/ & - & 0.16429e+00,0.19018e+00,0.21120e+00,0.22440e+00,0.23155e+00, & - & 0.23328e+00,0.22834e+00,0.21231e+00,0.19389e+00 /) - kao(:, 2, 5, 9) = (/ & - & 0.16411e+00,0.18954e+00,0.21010e+00,0.22306e+00,0.23026e+00, & - & 0.23235e+00,0.22803e+00,0.21280e+00,0.19477e+00 /) - kao(:, 3, 5, 9) = (/ & - & 0.16481e+00,0.18955e+00,0.20958e+00,0.22215e+00,0.22928e+00, & - & 0.23142e+00,0.22762e+00,0.21318e+00,0.19549e+00 /) - kao(:, 4, 5, 9) = (/ & - & 0.16626e+00,0.19018e+00,0.20952e+00,0.22166e+00,0.22860e+00, & - & 0.23069e+00,0.22713e+00,0.21333e+00,0.19598e+00 /) - kao(:, 5, 5, 9) = (/ & - & 0.16812e+00,0.19134e+00,0.20988e+00,0.22152e+00,0.22816e+00, & - & 0.23013e+00,0.22663e+00,0.21325e+00,0.19645e+00 /) - kao(:, 1, 6, 9) = (/ & - & 0.14677e+00,0.17503e+00,0.19553e+00,0.20871e+00,0.21680e+00, & - & 0.21948e+00,0.21556e+00,0.20158e+00,0.17922e+00 /) - kao(:, 2, 6, 9) = (/ & - & 0.14688e+00,0.17460e+00,0.19479e+00,0.20777e+00,0.21582e+00, & - & 0.21883e+00,0.21549e+00,0.20223e+00,0.18038e+00 /) - kao(:, 3, 6, 9) = (/ & - & 0.14791e+00,0.17490e+00,0.19459e+00,0.20727e+00,0.21519e+00, & - & 0.21822e+00,0.21533e+00,0.20278e+00,0.18127e+00 /) - kao(:, 4, 6, 9) = (/ & - & 0.14970e+00,0.17592e+00,0.19488e+00,0.20713e+00,0.21485e+00, & - & 0.21785e+00,0.21514e+00,0.20305e+00,0.18200e+00 /) - kao(:, 5, 6, 9) = (/ & - & 0.15169e+00,0.17756e+00,0.19568e+00,0.20736e+00,0.21479e+00, & - & 0.21766e+00,0.21494e+00,0.20315e+00,0.18271e+00 /) - kao(:, 1, 7, 9) = (/ & - & 0.13000e+00,0.15987e+00,0.17978e+00,0.19301e+00,0.20129e+00, & - & 0.20436e+00,0.20140e+00,0.18919e+00,0.16414e+00 /) - kao(:, 2, 7, 9) = (/ & - & 0.13035e+00,0.15964e+00,0.17934e+00,0.19244e+00,0.20068e+00, & - & 0.20402e+00,0.20156e+00,0.19006e+00,0.16551e+00 /) - kao(:, 3, 7, 9) = (/ & - & 0.13166e+00,0.16021e+00,0.17944e+00,0.19225e+00,0.20040e+00, & - & 0.20381e+00,0.20166e+00,0.19078e+00,0.16662e+00 /) - kao(:, 4, 7, 9) = (/ & - & 0.13361e+00,0.16157e+00,0.18010e+00,0.19248e+00,0.20041e+00, & - & 0.20379e+00,0.20172e+00,0.19125e+00,0.16758e+00 /) - kao(:, 5, 7, 9) = (/ & - & 0.13554e+00,0.16344e+00,0.18132e+00,0.19308e+00,0.20075e+00, & - & 0.20397e+00,0.20182e+00,0.19159e+00,0.16855e+00 /) - kao(:, 1, 8, 9) = (/ & - & 0.11433e+00,0.14488e+00,0.16431e+00,0.17738e+00,0.18527e+00, & - & 0.18841e+00,0.18617e+00,0.17535e+00,0.14893e+00 /) - kao(:, 2, 8, 9) = (/ & - & 0.11487e+00,0.14487e+00,0.16414e+00,0.17713e+00,0.18501e+00, & - & 0.18837e+00,0.18658e+00,0.17646e+00,0.15049e+00 /) - kao(:, 3, 8, 9) = (/ & - & 0.11635e+00,0.14571e+00,0.16452e+00,0.17724e+00,0.18506e+00, & - & 0.18853e+00,0.18695e+00,0.17741e+00,0.15180e+00 /) - kao(:, 4, 8, 9) = (/ & - & 0.11822e+00,0.14733e+00,0.16549e+00,0.17782e+00,0.18544e+00, & - & 0.18888e+00,0.18734e+00,0.17811e+00,0.15295e+00 /) - kao(:, 5, 8, 9) = (/ & - & 0.12009e+00,0.14924e+00,0.16704e+00,0.17887e+00,0.18614e+00, & - & 0.18940e+00,0.18775e+00,0.17867e+00,0.15411e+00 /) - kao(:, 1, 9, 9) = (/ & - & 0.10002e+00,0.13043e+00,0.14919e+00,0.16171e+00,0.16913e+00, & - & 0.17211e+00,0.17023e+00,0.16067e+00,0.13380e+00 /) - kao(:, 2, 9, 9) = (/ & - & 0.10070e+00,0.13063e+00,0.14927e+00,0.16171e+00,0.16923e+00, & - & 0.17237e+00,0.17091e+00,0.16202e+00,0.13552e+00 /) - kao(:, 3, 9, 9) = (/ & - & 0.10219e+00,0.13166e+00,0.14990e+00,0.16210e+00,0.16959e+00, & - & 0.17285e+00,0.17161e+00,0.16316e+00,0.13700e+00 /) - kao(:, 4, 9, 9) = (/ & - & 0.10390e+00,0.13341e+00,0.15118e+00,0.16299e+00,0.17031e+00, & - & 0.17358e+00,0.17229e+00,0.16405e+00,0.13837e+00 /) - kao(:, 5, 9, 9) = (/ & - & 0.10569e+00,0.13530e+00,0.15298e+00,0.16444e+00,0.17139e+00, & - & 0.17443e+00,0.17301e+00,0.16481e+00,0.13976e+00 /) - kao(:, 1,10, 9) = (/ & - & 0.87148e-01,0.11690e+00,0.13450e+00,0.14609e+00,0.15307e+00, & - & 0.15588e+00,0.15420e+00,0.14572e+00,0.11917e+00 /) - kao(:, 2,10, 9) = (/ & - & 0.87948e-01,0.11730e+00,0.13485e+00,0.14637e+00,0.15348e+00, & - & 0.15645e+00,0.15513e+00,0.14723e+00,0.12103e+00 /) - kao(:, 3,10, 9) = (/ & - & 0.89341e-01,0.11856e+00,0.13575e+00,0.14709e+00,0.15418e+00, & - & 0.15726e+00,0.15609e+00,0.14852e+00,0.12266e+00 /) - kao(:, 4,10, 9) = (/ & - & 0.90912e-01,0.12032e+00,0.13733e+00,0.14835e+00,0.15527e+00, & - & 0.15827e+00,0.15702e+00,0.14960e+00,0.12424e+00 /) - kao(:, 5,10, 9) = (/ & - & 0.92651e-01,0.12218e+00,0.13930e+00,0.15018e+00,0.15676e+00, & - & 0.15942e+00,0.15802e+00,0.15063e+00,0.12583e+00 /) - kao(:, 1,11, 9) = (/ & - & 0.75810e-01,0.10456e+00,0.12069e+00,0.13117e+00,0.13761e+00, & - & 0.14039e+00,0.13895e+00,0.13157e+00,0.10610e+00 /) - kao(:, 2,11, 9) = (/ & - & 0.76895e-01,0.10557e+00,0.12151e+00,0.13190e+00,0.13842e+00, & - & 0.14134e+00,0.14014e+00,0.13312e+00,0.10796e+00 /) - kao(:, 3,11, 9) = (/ & - & 0.78244e-01,0.10718e+00,0.12298e+00,0.13318e+00,0.13962e+00, & - & 0.14250e+00,0.14130e+00,0.13446e+00,0.10971e+00 /) - kao(:, 4,11, 9) = (/ & - & 0.79823e-01,0.10896e+00,0.12491e+00,0.13508e+00,0.14123e+00, & - & 0.14382e+00,0.14250e+00,0.13575e+00,0.11145e+00 /) - kao(:, 5,11, 9) = (/ & - & 0.81587e-01,0.11081e+00,0.12696e+00,0.13729e+00,0.14323e+00, & - & 0.14541e+00,0.14385e+00,0.13708e+00,0.11322e+00 /) - kao(:, 1,12, 9) = (/ & - & 0.65751e-01,0.93358e-01,0.10793e+00,0.11727e+00,0.12307e+00, & - & 0.12565e+00,0.12447e+00,0.11782e+00,0.93944e-01 /) - kao(:, 2,12, 9) = (/ & - & 0.66851e-01,0.94791e-01,0.10927e+00,0.11849e+00,0.12430e+00, & - & 0.12692e+00,0.12584e+00,0.11940e+00,0.95825e-01 /) - kao(:, 3,12, 9) = (/ & - & 0.68215e-01,0.96468e-01,0.11113e+00,0.12035e+00,0.12596e+00, & - & 0.12837e+00,0.12723e+00,0.12088e+00,0.97697e-01 /) - kao(:, 4,12, 9) = (/ & - & 0.69822e-01,0.98288e-01,0.11318e+00,0.12260e+00,0.12800e+00, & - & 0.13009e+00,0.12875e+00,0.12246e+00,0.99558e-01 /) - kao(:, 5,12, 9) = (/ & - & 0.71562e-01,0.10021e+00,0.11536e+00,0.12491e+00,0.13035e+00, & - & 0.13218e+00,0.13049e+00,0.12412e+00,0.10142e+00 /) - kao(:, 1,13, 9) = (/ & - & 0.56716e-01,0.83175e-01,0.96227e-01,0.10452e+00,0.10961e+00, & - & 0.11186e+00,0.11078e+00,0.10487e+00,0.82822e-01 /) - kao(:, 2,13, 9) = (/ & - & 0.57829e-01,0.84711e-01,0.97973e-01,0.10625e+00,0.11123e+00, & - & 0.11339e+00,0.11236e+00,0.10648e+00,0.84781e-01 /) - kao(:, 3,13, 9) = (/ & - & 0.59231e-01,0.86426e-01,0.99996e-01,0.10847e+00,0.11329e+00, & - & 0.11518e+00,0.11401e+00,0.10821e+00,0.86727e-01 /) - kao(:, 4,13, 9) = (/ & - & 0.60793e-01,0.88335e-01,0.10220e+00,0.11080e+00,0.11568e+00, & - & 0.11734e+00,0.11592e+00,0.11003e+00,0.88652e-01 /) - kao(:, 5,13, 9) = (/ & - & 0.62288e-01,0.90379e-01,0.10449e+00,0.11321e+00,0.11819e+00, & - & 0.11985e+00,0.11808e+00,0.11193e+00,0.90608e-01 /) - kao(:, 1, 1,10) = (/ & - & 0.73370e+00,0.66239e+00,0.64754e+00,0.65671e+00,0.64798e+00, & - & 0.62443e+00,0.62156e+00,0.59642e+00,0.65694e+00 /) - kao(:, 2, 1,10) = (/ & - & 0.72227e+00,0.65245e+00,0.64115e+00,0.65244e+00,0.64519e+00, & - & 0.62272e+00,0.62178e+00,0.59807e+00,0.65734e+00 /) - kao(:, 3, 1,10) = (/ & - & 0.71096e+00,0.64287e+00,0.63490e+00,0.64719e+00,0.64246e+00, & - & 0.61928e+00,0.62164e+00,0.59971e+00,0.65975e+00 /) - kao(:, 4, 1,10) = (/ & - & 0.69997e+00,0.63340e+00,0.62893e+00,0.64188e+00,0.63859e+00, & - & 0.61601e+00,0.62127e+00,0.59924e+00,0.66003e+00 /) - kao(:, 5, 1,10) = (/ & - & 0.68921e+00,0.62412e+00,0.62274e+00,0.63660e+00,0.63341e+00, & - & 0.61371e+00,0.61976e+00,0.59796e+00,0.65874e+00 /) - kao(:, 1, 2,10) = (/ & - & 0.71435e+00,0.65898e+00,0.65791e+00,0.67621e+00,0.66803e+00, & - & 0.63952e+00,0.62227e+00,0.60345e+00,0.64341e+00 /) - kao(:, 2, 2,10) = (/ & - & 0.70295e+00,0.64927e+00,0.65209e+00,0.67168e+00,0.66601e+00, & - & 0.63761e+00,0.62183e+00,0.60472e+00,0.64489e+00 /) - kao(:, 3, 2,10) = (/ & - & 0.69214e+00,0.64012e+00,0.64637e+00,0.66639e+00,0.66353e+00, & - & 0.63487e+00,0.62217e+00,0.60467e+00,0.64521e+00 /) - kao(:, 4, 2,10) = (/ & - & 0.68145e+00,0.63089e+00,0.64022e+00,0.66099e+00,0.65898e+00, & - & 0.63312e+00,0.62106e+00,0.60298e+00,0.64380e+00 /) - kao(:, 5, 2,10) = (/ & - & 0.67068e+00,0.62208e+00,0.63390e+00,0.65546e+00,0.65376e+00, & - & 0.63122e+00,0.61818e+00,0.60158e+00,0.64256e+00 /) - kao(:, 1, 3,10) = (/ & - & 0.68340e+00,0.64482e+00,0.66290e+00,0.68284e+00,0.67896e+00, & - & 0.65800e+00,0.61589e+00,0.60026e+00,0.62209e+00 /) - kao(:, 2, 3,10) = (/ & - & 0.67251e+00,0.63550e+00,0.65818e+00,0.67891e+00,0.67722e+00, & - & 0.65575e+00,0.61745e+00,0.60017e+00,0.62247e+00 /) - kao(:, 3, 3,10) = (/ & - & 0.66182e+00,0.62604e+00,0.65231e+00,0.67447e+00,0.67369e+00, & - & 0.65314e+00,0.61804e+00,0.59851e+00,0.62084e+00 /) - kao(:, 4, 3,10) = (/ & - & 0.65114e+00,0.61727e+00,0.64569e+00,0.67007e+00,0.66854e+00, & - & 0.65146e+00,0.61713e+00,0.59641e+00,0.61922e+00 /) - kao(:, 5, 3,10) = (/ & - & 0.64110e+00,0.60881e+00,0.63926e+00,0.66468e+00,0.66347e+00, & - & 0.64931e+00,0.61433e+00,0.59600e+00,0.61885e+00 /) - kao(:, 1, 4,10) = (/ & - & 0.64233e+00,0.62207e+00,0.65747e+00,0.67845e+00,0.68170e+00, & - & 0.66374e+00,0.61548e+00,0.59270e+00,0.60473e+00 /) - kao(:, 2, 4,10) = (/ & - & 0.63185e+00,0.61324e+00,0.65237e+00,0.67473e+00,0.67959e+00, & - & 0.66215e+00,0.61741e+00,0.59134e+00,0.60361e+00 /) - kao(:, 3, 4,10) = (/ & - & 0.62122e+00,0.60440e+00,0.64660e+00,0.67096e+00,0.67570e+00, & - & 0.66004e+00,0.61834e+00,0.58886e+00,0.60079e+00 /) - kao(:, 4, 4,10) = (/ & - & 0.61111e+00,0.59616e+00,0.64034e+00,0.66675e+00,0.67073e+00, & - & 0.65786e+00,0.61721e+00,0.58692e+00,0.59978e+00 /) - kao(:, 5, 4,10) = (/ & - & 0.60223e+00,0.58851e+00,0.63401e+00,0.66136e+00,0.66631e+00, & - & 0.65503e+00,0.61469e+00,0.58697e+00,0.60040e+00 /) - kao(:, 1, 5,10) = (/ & - & 0.59185e+00,0.59370e+00,0.63992e+00,0.66463e+00,0.67279e+00, & - & 0.65610e+00,0.61852e+00,0.58331e+00,0.58763e+00 /) - kao(:, 2, 5,10) = (/ & - & 0.58158e+00,0.58584e+00,0.63500e+00,0.66123e+00,0.67045e+00, & - & 0.65504e+00,0.62015e+00,0.58225e+00,0.58623e+00 /) - kao(:, 3, 5,10) = (/ & - & 0.57197e+00,0.57827e+00,0.62932e+00,0.65791e+00,0.66630e+00, & - & 0.65353e+00,0.61959e+00,0.58025e+00,0.58483e+00 /) - kao(:, 4, 5,10) = (/ & - & 0.56277e+00,0.57099e+00,0.62369e+00,0.65326e+00,0.66229e+00, & - & 0.65156e+00,0.61745e+00,0.57913e+00,0.58544e+00 /) - kao(:, 5, 5,10) = (/ & - & 0.55581e+00,0.56431e+00,0.61807e+00,0.64784e+00,0.65855e+00, & - & 0.64845e+00,0.61479e+00,0.57987e+00,0.58646e+00 /) - kao(:, 1, 6,10) = (/ & - & 0.53954e+00,0.56255e+00,0.61290e+00,0.64303e+00,0.64974e+00, & - & 0.64176e+00,0.61714e+00,0.56940e+00,0.56484e+00 /) - kao(:, 2, 6,10) = (/ & - & 0.53060e+00,0.55651e+00,0.60789e+00,0.63988e+00,0.64820e+00, & - & 0.64042e+00,0.61834e+00,0.56932e+00,0.56418e+00 /) - kao(:, 3, 6,10) = (/ & - & 0.52216e+00,0.54988e+00,0.60294e+00,0.63619e+00,0.64521e+00, & - & 0.63878e+00,0.61726e+00,0.56850e+00,0.56474e+00 /) - kao(:, 4, 6,10) = (/ & - & 0.51474e+00,0.54331e+00,0.59815e+00,0.63165e+00,0.64200e+00, & - & 0.63625e+00,0.61431e+00,0.56860e+00,0.56684e+00 /) - kao(:, 5, 6,10) = (/ & - & 0.51206e+00,0.53704e+00,0.59303e+00,0.62695e+00,0.63853e+00, & - & 0.63290e+00,0.61169e+00,0.57018e+00,0.56804e+00 /) - kao(:, 1, 7,10) = (/ & - & 0.49102e+00,0.52896e+00,0.58005e+00,0.60940e+00,0.62179e+00, & - & 0.62452e+00,0.60693e+00,0.55666e+00,0.53830e+00 /) - kao(:, 2, 7,10) = (/ & - & 0.48351e+00,0.52394e+00,0.57551e+00,0.60647e+00,0.62043e+00, & - & 0.62318e+00,0.60808e+00,0.55693e+00,0.53902e+00 /) - kao(:, 3, 7,10) = (/ & - & 0.47604e+00,0.51848e+00,0.57124e+00,0.60324e+00,0.61835e+00, & - & 0.62080e+00,0.60698e+00,0.55691e+00,0.54116e+00 /) - kao(:, 4, 7,10) = (/ & - & 0.47121e+00,0.51294e+00,0.56659e+00,0.59937e+00,0.61527e+00, & - & 0.61807e+00,0.60502e+00,0.55819e+00,0.54361e+00 /) - kao(:, 5, 7,10) = (/ & - & 0.47306e+00,0.50884e+00,0.56199e+00,0.59548e+00,0.61135e+00, & - & 0.61474e+00,0.60372e+00,0.56024e+00,0.54444e+00 /) - kao(:, 1, 8,10) = (/ & - & 0.44396e+00,0.49532e+00,0.54249e+00,0.57145e+00,0.59186e+00, & - & 0.60060e+00,0.58785e+00,0.54441e+00,0.50913e+00 /) - kao(:, 2, 8,10) = (/ & - & 0.43707e+00,0.49048e+00,0.53914e+00,0.56868e+00,0.59107e+00, & - & 0.60049e+00,0.58883e+00,0.54507e+00,0.51101e+00 /) - kao(:, 3, 8,10) = (/ & - & 0.43098e+00,0.48531e+00,0.53541e+00,0.56592e+00,0.58911e+00, & - & 0.59846e+00,0.58812e+00,0.54578e+00,0.51441e+00 /) - kao(:, 4, 8,10) = (/ & - & 0.42957e+00,0.48093e+00,0.53173e+00,0.56262e+00,0.58636e+00, & - & 0.59589e+00,0.58708e+00,0.54776e+00,0.51773e+00 /) - kao(:, 5, 8,10) = (/ & - & 0.43487e+00,0.48035e+00,0.52822e+00,0.55903e+00,0.58272e+00, & - & 0.59353e+00,0.58697e+00,0.54985e+00,0.51918e+00 /) - kao(:, 1, 9,10) = (/ & - & 0.39531e+00,0.46021e+00,0.50510e+00,0.53588e+00,0.55895e+00, & - & 0.56979e+00,0.56191e+00,0.52659e+00,0.47758e+00 /) - kao(:, 2, 9,10) = (/ & - & 0.38905e+00,0.45517e+00,0.50180e+00,0.53416e+00,0.55846e+00, & - & 0.57047e+00,0.56355e+00,0.52717e+00,0.48088e+00 /) - kao(:, 3, 9,10) = (/ & - & 0.38493e+00,0.45067e+00,0.49854e+00,0.53220e+00,0.55699e+00, & - & 0.56934e+00,0.56332e+00,0.52868e+00,0.48536e+00 /) - kao(:, 4, 9,10) = (/ & - & 0.38723e+00,0.44786e+00,0.49546e+00,0.52928e+00,0.55471e+00, & - & 0.56730e+00,0.56372e+00,0.53178e+00,0.48902e+00 /) - kao(:, 5, 9,10) = (/ & - & 0.39433e+00,0.45054e+00,0.49350e+00,0.52621e+00,0.55192e+00, & - & 0.56604e+00,0.56481e+00,0.53491e+00,0.49067e+00 /) - kao(:, 1,10,10) = (/ & - & 0.34716e+00,0.41992e+00,0.46841e+00,0.50264e+00,0.52377e+00, & - & 0.53462e+00,0.53096e+00,0.50215e+00,0.44481e+00 /) - kao(:, 2,10,10) = (/ & - & 0.34195e+00,0.41601e+00,0.46506e+00,0.50165e+00,0.52385e+00, & - & 0.53574e+00,0.53310e+00,0.50401e+00,0.44924e+00 /) - kao(:, 3,10,10) = (/ & - & 0.34072e+00,0.41255e+00,0.46265e+00,0.50007e+00,0.52273e+00, & - & 0.53553e+00,0.53434e+00,0.50668e+00,0.45414e+00 /) - kao(:, 4,10,10) = (/ & - & 0.34572e+00,0.41258e+00,0.46029e+00,0.49770e+00,0.52100e+00, & - & 0.53482e+00,0.53633e+00,0.51056e+00,0.45768e+00 /) - kao(:, 5,10,10) = (/ & - & 0.35242e+00,0.41826e+00,0.46028e+00,0.49520e+00,0.51927e+00, & - & 0.53500e+00,0.53892e+00,0.51405e+00,0.45947e+00 /) - kao(:, 1,11,10) = (/ & - & 0.30160e+00,0.37714e+00,0.42971e+00,0.46717e+00,0.48926e+00, & - & 0.49871e+00,0.49756e+00,0.47436e+00,0.41261e+00 /) - kao(:, 2,11,10) = (/ & - & 0.29962e+00,0.37395e+00,0.42779e+00,0.46654e+00,0.48929e+00, & - & 0.49998e+00,0.50016e+00,0.47769e+00,0.41819e+00 /) - kao(:, 3,11,10) = (/ & - & 0.30371e+00,0.37339e+00,0.42611e+00,0.46502e+00,0.48821e+00, & - & 0.50080e+00,0.50323e+00,0.48215e+00,0.42266e+00 /) - kao(:, 4,11,10) = (/ & - & 0.30955e+00,0.37857e+00,0.42639e+00,0.46320e+00,0.48745e+00, & - & 0.50213e+00,0.50694e+00,0.48639e+00,0.42570e+00 /) - kao(:, 5,11,10) = (/ & - & 0.31511e+00,0.38606e+00,0.43107e+00,0.46346e+00,0.48731e+00, & - & 0.50398e+00,0.50975e+00,0.48945e+00,0.42790e+00 /) - kao(:, 1,12,10) = (/ & - & 0.26311e+00,0.33847e+00,0.39159e+00,0.42993e+00,0.45370e+00, & - & 0.46372e+00,0.46279e+00,0.44427e+00,0.37907e+00 /) - kao(:, 2,12,10) = (/ & - & 0.26583e+00,0.33679e+00,0.39073e+00,0.42938e+00,0.45415e+00, & - & 0.46569e+00,0.46639e+00,0.44945e+00,0.38485e+00 /) - kao(:, 3,12,10) = (/ & - & 0.27082e+00,0.34071e+00,0.39077e+00,0.42842e+00,0.45412e+00, & - & 0.46820e+00,0.47089e+00,0.45477e+00,0.38900e+00 /) - kao(:, 4,12,10) = (/ & - & 0.27574e+00,0.34733e+00,0.39532e+00,0.42923e+00,0.45504e+00, & - & 0.47097e+00,0.47486e+00,0.45848e+00,0.39247e+00 /) - kao(:, 5,12,10) = (/ & - & 0.28099e+00,0.35386e+00,0.40190e+00,0.43447e+00,0.45757e+00, & - & 0.47294e+00,0.47760e+00,0.46125e+00,0.39629e+00 /) - kao(:, 1,13,10) = (/ & - & 0.23133e+00,0.30448e+00,0.35592e+00,0.39245e+00,0.41703e+00, & - & 0.42944e+00,0.42838e+00,0.41191e+00,0.34405e+00 /) - kao(:, 2,13,10) = (/ & - & 0.23569e+00,0.30675e+00,0.35574e+00,0.39238e+00,0.41854e+00, & - & 0.43261e+00,0.43319e+00,0.41851e+00,0.34979e+00 /) - kao(:, 3,13,10) = (/ & - & 0.23995e+00,0.31287e+00,0.35958e+00,0.39339e+00,0.42025e+00, & - & 0.43649e+00,0.43814e+00,0.42387e+00,0.35427e+00 /) - kao(:, 4,13,10) = (/ & - & 0.24491e+00,0.31868e+00,0.36597e+00,0.39887e+00,0.42348e+00, & - & 0.43960e+00,0.44180e+00,0.42781e+00,0.35946e+00 /) - kao(:, 5,13,10) = (/ & - & 0.25204e+00,0.32443e+00,0.37244e+00,0.40709e+00,0.42924e+00, & - & 0.44176e+00,0.44465e+00,0.43196e+00,0.36481e+00 /) - kao(:, 1, 1,11) = (/ & - & 0.10293e+01,0.90445e+00,0.86137e+00,0.83022e+00,0.84086e+00, & - & 0.86548e+00,0.85587e+00,0.85325e+00,0.97261e+00 /) - kao(:, 2, 1,11) = (/ & - & 0.10191e+01,0.89556e+00,0.85472e+00,0.82839e+00,0.83827e+00, & - & 0.86712e+00,0.85626e+00,0.85096e+00,0.97088e+00 /) - kao(:, 3, 1,11) = (/ & - & 0.10070e+01,0.88513e+00,0.84750e+00,0.82570e+00,0.83354e+00, & - & 0.86668e+00,0.85692e+00,0.84837e+00,0.96710e+00 /) - kao(:, 4, 1,11) = (/ & - & 0.99477e+00,0.87449e+00,0.83958e+00,0.82146e+00,0.82897e+00, & - & 0.86436e+00,0.85744e+00,0.84703e+00,0.96450e+00 /) - kao(:, 5, 1,11) = (/ & - & 0.98126e+00,0.86272e+00,0.83128e+00,0.81555e+00,0.82401e+00, & - & 0.85929e+00,0.85825e+00,0.84707e+00,0.96358e+00 /) - kao(:, 1, 2,11) = (/ & - & 0.10475e+01,0.93151e+00,0.89830e+00,0.88420e+00,0.87933e+00, & - & 0.87846e+00,0.87987e+00,0.86086e+00,0.97265e+00 /) - kao(:, 2, 2,11) = (/ & - & 0.10370e+01,0.92196e+00,0.89215e+00,0.88284e+00,0.87783e+00, & - & 0.88073e+00,0.88059e+00,0.85882e+00,0.96972e+00 /) - kao(:, 3, 2,11) = (/ & - & 0.10244e+01,0.91082e+00,0.88511e+00,0.87976e+00,0.87455e+00, & - & 0.88046e+00,0.88070e+00,0.85623e+00,0.96599e+00 /) - kao(:, 4, 2,11) = (/ & - & 0.10111e+01,0.89911e+00,0.87761e+00,0.87481e+00,0.87132e+00, & - & 0.87692e+00,0.88074e+00,0.85652e+00,0.96500e+00 /) - kao(:, 5, 2,11) = (/ & - & 0.99734e+00,0.88696e+00,0.86940e+00,0.86908e+00,0.86706e+00, & - & 0.87191e+00,0.88156e+00,0.85742e+00,0.96567e+00 /) - kao(:, 1, 3,11) = (/ & - & 0.10481e+01,0.94949e+00,0.92754e+00,0.93134e+00,0.92020e+00, & - & 0.88963e+00,0.89353e+00,0.87368e+00,0.96341e+00 /) - kao(:, 2, 3,11) = (/ & - & 0.10364e+01,0.93961e+00,0.92141e+00,0.92962e+00,0.91951e+00, & - & 0.89266e+00,0.89347e+00,0.87218e+00,0.95995e+00 /) - kao(:, 3, 3,11) = (/ & - & 0.10237e+01,0.92877e+00,0.91434e+00,0.92574e+00,0.91740e+00, & - & 0.89302e+00,0.89281e+00,0.87167e+00,0.95907e+00 /) - kao(:, 4, 3,11) = (/ & - & 0.10107e+01,0.91711e+00,0.90716e+00,0.92023e+00,0.91517e+00, & - & 0.89037e+00,0.89222e+00,0.87266e+00,0.95928e+00 /) - kao(:, 5, 3,11) = (/ & - & 0.99633e+00,0.90470e+00,0.89927e+00,0.91439e+00,0.91120e+00, & - & 0.88600e+00,0.89266e+00,0.87273e+00,0.95886e+00 /) - kao(:, 1, 4,11) = (/ & - & 0.10264e+01,0.95071e+00,0.94674e+00,0.96322e+00,0.95099e+00, & - & 0.91374e+00,0.89446e+00,0.87855e+00,0.93628e+00 /) - kao(:, 2, 4,11) = (/ & - & 0.10149e+01,0.94036e+00,0.94196e+00,0.96089e+00,0.95153e+00, & - & 0.91752e+00,0.89401e+00,0.87842e+00,0.93496e+00 /) - kao(:, 3, 4,11) = (/ & - & 0.10022e+01,0.92957e+00,0.93566e+00,0.95688e+00,0.95066e+00, & - & 0.91784e+00,0.89284e+00,0.87926e+00,0.93586e+00 /) - kao(:, 4, 4,11) = (/ & - & 0.98847e+00,0.91773e+00,0.92854e+00,0.95134e+00,0.94862e+00, & - & 0.91547e+00,0.89366e+00,0.87951e+00,0.93591e+00 /) - kao(:, 5, 4,11) = (/ & - & 0.97390e+00,0.90550e+00,0.92045e+00,0.94604e+00,0.94431e+00, & - & 0.91218e+00,0.89395e+00,0.87858e+00,0.93476e+00 /) - kao(:, 1, 5,11) = (/ & - & 0.98609e+00,0.93424e+00,0.95643e+00,0.97684e+00,0.96999e+00, & - & 0.93774e+00,0.88693e+00,0.86915e+00,0.90145e+00 /) - kao(:, 2, 5,11) = (/ & - & 0.97412e+00,0.92401e+00,0.95137e+00,0.97507e+00,0.97005e+00, & - & 0.94299e+00,0.88698e+00,0.86947e+00,0.90218e+00 /) - kao(:, 3, 5,11) = (/ & - & 0.96114e+00,0.91242e+00,0.94531e+00,0.97096e+00,0.96958e+00, & - & 0.94325e+00,0.88812e+00,0.86965e+00,0.90220e+00 /) - kao(:, 4, 5,11) = (/ & - & 0.94742e+00,0.90067e+00,0.93796e+00,0.96622e+00,0.96802e+00, & - & 0.94082e+00,0.89013e+00,0.86974e+00,0.90156e+00 /) - kao(:, 5, 5,11) = (/ & - & 0.93336e+00,0.88866e+00,0.92975e+00,0.96102e+00,0.96365e+00, & - & 0.93814e+00,0.89133e+00,0.86813e+00,0.89955e+00 /) - kao(:, 1, 6,11) = (/ & - & 0.92984e+00,0.90494e+00,0.94972e+00,0.97425e+00,0.97662e+00, & - & 0.94556e+00,0.88351e+00,0.85584e+00,0.87463e+00 /) - kao(:, 2, 6,11) = (/ & - & 0.91725e+00,0.89370e+00,0.94535e+00,0.97222e+00,0.97680e+00, & - & 0.95110e+00,0.88518e+00,0.85597e+00,0.87435e+00 /) - kao(:, 3, 6,11) = (/ & - & 0.90427e+00,0.88250e+00,0.93903e+00,0.96844e+00,0.97606e+00, & - & 0.95304e+00,0.88753e+00,0.85497e+00,0.87307e+00 /) - kao(:, 4, 6,11) = (/ & - & 0.89063e+00,0.87150e+00,0.93110e+00,0.96495e+00,0.97386e+00, & - & 0.95208e+00,0.89056e+00,0.85380e+00,0.87067e+00 /) - kao(:, 5, 6,11) = (/ & - & 0.87675e+00,0.86027e+00,0.92261e+00,0.96002e+00,0.96930e+00, & - & 0.94959e+00,0.89201e+00,0.85155e+00,0.86905e+00 /) - kao(:, 1, 7,11) = (/ & - & 0.85919e+00,0.86562e+00,0.92649e+00,0.95965e+00,0.96523e+00, & - & 0.93650e+00,0.88529e+00,0.84057e+00,0.84722e+00 /) - kao(:, 2, 7,11) = (/ & - & 0.84717e+00,0.85599e+00,0.92166e+00,0.95676e+00,0.96677e+00, & - & 0.94156e+00,0.88807e+00,0.84087e+00,0.84785e+00 /) - kao(:, 3, 7,11) = (/ & - & 0.83473e+00,0.84556e+00,0.91525e+00,0.95342e+00,0.96579e+00, & - & 0.94506e+00,0.89084e+00,0.83990e+00,0.84680e+00 /) - kao(:, 4, 7,11) = (/ & - & 0.82211e+00,0.83508e+00,0.90782e+00,0.94944e+00,0.96296e+00, & - & 0.94530e+00,0.89295e+00,0.83822e+00,0.84533e+00 /) - kao(:, 5, 7,11) = (/ & - & 0.80945e+00,0.82542e+00,0.90011e+00,0.94513e+00,0.95957e+00, & - & 0.94356e+00,0.89326e+00,0.83636e+00,0.84582e+00 /) - kao(:, 1, 8,11) = (/ & - & 0.78535e+00,0.81958e+00,0.89069e+00,0.92943e+00,0.93702e+00, & - & 0.91895e+00,0.88182e+00,0.81942e+00,0.81355e+00 /) - kao(:, 2, 8,11) = (/ & - & 0.77455e+00,0.81120e+00,0.88449e+00,0.92737e+00,0.93847e+00, & - & 0.92275e+00,0.88568e+00,0.82187e+00,0.81529e+00 /) - kao(:, 3, 8,11) = (/ & - & 0.76320e+00,0.80325e+00,0.87799e+00,0.92413e+00,0.93785e+00, & - & 0.92584e+00,0.88848e+00,0.82246e+00,0.81526e+00 /) - kao(:, 4, 8,11) = (/ & - & 0.75209e+00,0.79461e+00,0.87173e+00,0.92037e+00,0.93562e+00, & - & 0.92659e+00,0.89042e+00,0.82203e+00,0.81583e+00 /) - kao(:, 5, 8,11) = (/ & - & 0.74191e+00,0.78569e+00,0.86500e+00,0.91565e+00,0.93275e+00, & - & 0.92508e+00,0.89021e+00,0.82215e+00,0.81833e+00 /) - kao(:, 1, 9,11) = (/ & - & 0.71539e+00,0.77045e+00,0.84442e+00,0.88339e+00,0.89968e+00, & - & 0.89536e+00,0.86841e+00,0.79955e+00,0.77318e+00 /) - kao(:, 2, 9,11) = (/ & - & 0.70564e+00,0.76424e+00,0.83867e+00,0.88222e+00,0.90019e+00, & - & 0.89929e+00,0.87308e+00,0.80390e+00,0.77664e+00 /) - kao(:, 3, 9,11) = (/ & - & 0.69566e+00,0.75811e+00,0.83280e+00,0.87940e+00,0.90026e+00, & - & 0.90222e+00,0.87663e+00,0.80593e+00,0.77834e+00 /) - kao(:, 4, 9,11) = (/ & - & 0.68611e+00,0.75067e+00,0.82727e+00,0.87623e+00,0.89845e+00, & - & 0.90248e+00,0.87886e+00,0.80698e+00,0.78085e+00 /) - kao(:, 5, 9,11) = (/ & - & 0.67924e+00,0.74336e+00,0.82173e+00,0.87192e+00,0.89575e+00, & - & 0.90118e+00,0.87929e+00,0.80840e+00,0.78556e+00 /) - kao(:, 1,10,11) = (/ & - & 0.64750e+00,0.72291e+00,0.79049e+00,0.83093e+00,0.85723e+00, & - & 0.86420e+00,0.84410e+00,0.78062e+00,0.72995e+00 /) - kao(:, 2,10,11) = (/ & - & 0.63786e+00,0.71701e+00,0.78689e+00,0.82920e+00,0.85838e+00, & - & 0.86903e+00,0.84994e+00,0.78581e+00,0.73484e+00 /) - kao(:, 3,10,11) = (/ & - & 0.62879e+00,0.71055e+00,0.78212e+00,0.82630e+00,0.85919e+00, & - & 0.87234e+00,0.85358e+00,0.78925e+00,0.73873e+00 /) - kao(:, 4,10,11) = (/ & - & 0.62087e+00,0.70389e+00,0.77761e+00,0.82356e+00,0.85812e+00, & - & 0.87281e+00,0.85602e+00,0.79174e+00,0.74394e+00 /) - kao(:, 5,10,11) = (/ & - & 0.61947e+00,0.69759e+00,0.77360e+00,0.82013e+00,0.85542e+00, & - & 0.87157e+00,0.85709e+00,0.79529e+00,0.75052e+00 /) - kao(:, 1,11,11) = (/ & - & 0.57317e+00,0.67082e+00,0.73559e+00,0.77934e+00,0.81170e+00, & - & 0.82582e+00,0.81431e+00,0.75887e+00,0.68710e+00 /) - kao(:, 2,11,11) = (/ & - & 0.56447e+00,0.66437e+00,0.73216e+00,0.77740e+00,0.81370e+00, & - & 0.83183e+00,0.81926e+00,0.76438e+00,0.69316e+00 /) - kao(:, 3,11,11) = (/ & - & 0.55710e+00,0.65798e+00,0.72792e+00,0.77609e+00,0.81480e+00, & - & 0.83377e+00,0.82304e+00,0.76833e+00,0.70018e+00 /) - kao(:, 4,11,11) = (/ & - & 0.55630e+00,0.65257e+00,0.72437e+00,0.77329e+00,0.81397e+00, & - & 0.83437e+00,0.82566e+00,0.77320e+00,0.70886e+00 /) - kao(:, 5,11,11) = (/ & - & 0.56411e+00,0.65194e+00,0.72119e+00,0.77017e+00,0.81118e+00, & - & 0.83405e+00,0.82785e+00,0.77913e+00,0.71658e+00 /) - kao(:, 1,12,11) = (/ & - & 0.50093e+00,0.61265e+00,0.68222e+00,0.73081e+00,0.76376e+00, & - & 0.78196e+00,0.77611e+00,0.73046e+00,0.64374e+00 /) - kao(:, 2,12,11) = (/ & - & 0.49374e+00,0.60693e+00,0.67860e+00,0.73087e+00,0.76701e+00, & - & 0.78657e+00,0.78196e+00,0.73646e+00,0.65183e+00 /) - kao(:, 3,12,11) = (/ & - & 0.49262e+00,0.60232e+00,0.67517e+00,0.73017e+00,0.76805e+00, & - & 0.78863e+00,0.78651e+00,0.74261e+00,0.66205e+00 /) - kao(:, 4,12,11) = (/ & - & 0.49989e+00,0.60234e+00,0.67259e+00,0.72790e+00,0.76753e+00, & - & 0.79017e+00,0.79054e+00,0.75027e+00,0.67174e+00 /) - kao(:, 5,12,11) = (/ & - & 0.51177e+00,0.60963e+00,0.67313e+00,0.72489e+00,0.76606e+00, & - & 0.79187e+00,0.79524e+00,0.75809e+00,0.67955e+00 /) - kao(:, 1,13,11) = (/ & - & 0.43610e+00,0.55280e+00,0.62805e+00,0.68236e+00,0.71726e+00, & - & 0.73439e+00,0.73316e+00,0.69581e+00,0.60098e+00 /) - kao(:, 2,13,11) = (/ & - & 0.43332e+00,0.54879e+00,0.62602e+00,0.68387e+00,0.71981e+00, & - & 0.73863e+00,0.74004e+00,0.70395e+00,0.61188e+00 /) - kao(:, 3,13,11) = (/ & - & 0.43938e+00,0.54819e+00,0.62420e+00,0.68392e+00,0.72120e+00, & - & 0.74159e+00,0.74634e+00,0.71286e+00,0.62343e+00 /) - kao(:, 4,13,11) = (/ & - & 0.44997e+00,0.55515e+00,0.62479e+00,0.68255e+00,0.72173e+00, & - & 0.74510e+00,0.75297e+00,0.72278e+00,0.63265e+00 /) - kao(:, 5,13,11) = (/ & - & 0.46055e+00,0.56787e+00,0.63110e+00,0.68248e+00,0.72225e+00, & - & 0.74921e+00,0.75987e+00,0.73098e+00,0.64026e+00 /) - kao(:, 1, 1,12) = (/ & - & 0.14171e+01,0.12412e+01,0.11453e+01,0.11122e+01,0.11253e+01, & - & 0.11573e+01,0.11791e+01,0.12973e+01,0.14638e+01 /) - kao(:, 2, 1,12) = (/ & - & 0.14090e+01,0.12342e+01,0.11388e+01,0.11095e+01,0.11322e+01, & - & 0.11607e+01,0.11781e+01,0.12938e+01,0.14611e+01 /) - kao(:, 3, 1,12) = (/ & - & 0.13994e+01,0.12258e+01,0.11299e+01,0.11046e+01,0.11339e+01, & - & 0.11641e+01,0.11762e+01,0.12907e+01,0.14569e+01 /) - kao(:, 4, 1,12) = (/ & - & 0.13872e+01,0.12151e+01,0.11205e+01,0.10983e+01,0.11321e+01, & - & 0.11655e+01,0.11746e+01,0.12884e+01,0.14537e+01 /) - kao(:, 5, 1,12) = (/ & - & 0.13737e+01,0.12034e+01,0.11101e+01,0.10915e+01,0.11280e+01, & - & 0.11664e+01,0.11724e+01,0.12834e+01,0.14491e+01 /) - kao(:, 1, 2,12) = (/ & - & 0.15051e+01,0.13181e+01,0.12304e+01,0.11719e+01,0.11855e+01, & - & 0.12309e+01,0.12496e+01,0.13203e+01,0.15049e+01 /) - kao(:, 2, 2,12) = (/ & - & 0.14984e+01,0.13123e+01,0.12250e+01,0.11699e+01,0.11925e+01, & - & 0.12340e+01,0.12487e+01,0.13193e+01,0.15024e+01 /) - kao(:, 3, 2,12) = (/ & - & 0.14884e+01,0.13036e+01,0.12176e+01,0.11665e+01,0.11942e+01, & - & 0.12376e+01,0.12478e+01,0.13196e+01,0.15020e+01 /) - kao(:, 4, 2,12) = (/ & - & 0.14762e+01,0.12929e+01,0.12082e+01,0.11628e+01,0.11911e+01, & - & 0.12406e+01,0.12476e+01,0.13168e+01,0.15001e+01 /) - kao(:, 5, 2,12) = (/ & - & 0.14614e+01,0.12800e+01,0.11975e+01,0.11575e+01,0.11857e+01, & - & 0.12414e+01,0.12460e+01,0.13124e+01,0.14945e+01 /) - kao(:, 1, 3,12) = (/ & - & 0.15822e+01,0.13890e+01,0.13182e+01,0.12547e+01,0.12476e+01, & - & 0.12873e+01,0.13056e+01,0.13300e+01,0.15181e+01 /) - kao(:, 2, 3,12) = (/ & - & 0.15752e+01,0.13826e+01,0.13120e+01,0.12557e+01,0.12556e+01, & - & 0.12906e+01,0.13067e+01,0.13310e+01,0.15193e+01 /) - kao(:, 3, 3,12) = (/ & - & 0.15647e+01,0.13732e+01,0.13046e+01,0.12538e+01,0.12575e+01, & - & 0.12941e+01,0.13084e+01,0.13307e+01,0.15193e+01 /) - kao(:, 4, 3,12) = (/ & - & 0.15514e+01,0.13616e+01,0.12950e+01,0.12500e+01,0.12556e+01, & - & 0.12989e+01,0.13088e+01,0.13292e+01,0.15174e+01 /) - kao(:, 5, 3,12) = (/ & - & 0.15358e+01,0.13480e+01,0.12843e+01,0.12443e+01,0.12517e+01, & - & 0.13009e+01,0.13074e+01,0.13265e+01,0.15142e+01 /) - kao(:, 1, 4,12) = (/ & - & 0.16350e+01,0.14490e+01,0.13916e+01,0.13443e+01,0.13174e+01, & - & 0.13244e+01,0.13476e+01,0.13365e+01,0.15180e+01 /) - kao(:, 2, 4,12) = (/ & - & 0.16281e+01,0.14425e+01,0.13866e+01,0.13479e+01,0.13260e+01, & - & 0.13268e+01,0.13503e+01,0.13390e+01,0.15205e+01 /) - kao(:, 3, 4,12) = (/ & - & 0.16161e+01,0.14310e+01,0.13789e+01,0.13476e+01,0.13293e+01, & - & 0.13314e+01,0.13532e+01,0.13408e+01,0.15220e+01 /) - kao(:, 4, 4,12) = (/ & - & 0.16014e+01,0.14178e+01,0.13691e+01,0.13444e+01,0.13282e+01, & - & 0.13379e+01,0.13534e+01,0.13410e+01,0.15212e+01 /) - kao(:, 5, 4,12) = (/ & - & 0.15848e+01,0.14026e+01,0.13577e+01,0.13378e+01,0.13257e+01, & - & 0.13408e+01,0.13534e+01,0.13387e+01,0.15183e+01 /) - kao(:, 1, 5,12) = (/ & - & 0.16591e+01,0.14947e+01,0.14480e+01,0.14262e+01,0.13903e+01, & - & 0.13587e+01,0.13777e+01,0.13491e+01,0.15046e+01 /) - kao(:, 2, 5,12) = (/ & - & 0.16509e+01,0.14862e+01,0.14440e+01,0.14316e+01,0.13991e+01, & - & 0.13598e+01,0.13805e+01,0.13541e+01,0.15083e+01 /) - kao(:, 3, 5,12) = (/ & - & 0.16386e+01,0.14750e+01,0.14364e+01,0.14307e+01,0.14045e+01, & - & 0.13655e+01,0.13826e+01,0.13579e+01,0.15118e+01 /) - kao(:, 4, 5,12) = (/ & - & 0.16229e+01,0.14605e+01,0.14277e+01,0.14269e+01,0.14036e+01, & - & 0.13722e+01,0.13840e+01,0.13579e+01,0.15115e+01 /) - kao(:, 5, 5,12) = (/ & - & 0.16043e+01,0.14439e+01,0.14169e+01,0.14203e+01,0.14024e+01, & - & 0.13765e+01,0.13831e+01,0.13575e+01,0.15115e+01 /) - kao(:, 1, 6,12) = (/ & - & 0.16482e+01,0.15147e+01,0.14918e+01,0.14883e+01,0.14555e+01, & - & 0.14030e+01,0.13913e+01,0.13585e+01,0.14685e+01 /) - kao(:, 2, 6,12) = (/ & - & 0.16385e+01,0.15059e+01,0.14880e+01,0.14958e+01,0.14629e+01, & - & 0.14056e+01,0.13940e+01,0.13659e+01,0.14762e+01 /) - kao(:, 3, 6,12) = (/ & - & 0.16253e+01,0.14941e+01,0.14803e+01,0.14965e+01,0.14689e+01, & - & 0.14106e+01,0.13970e+01,0.13717e+01,0.14817e+01 /) - kao(:, 4, 6,12) = (/ & - & 0.16089e+01,0.14791e+01,0.14713e+01,0.14908e+01,0.14702e+01, & - & 0.14165e+01,0.13983e+01,0.13748e+01,0.14851e+01 /) - kao(:, 5, 6,12) = (/ & - & 0.15910e+01,0.14633e+01,0.14618e+01,0.14838e+01,0.14693e+01, & - & 0.14213e+01,0.13976e+01,0.13770e+01,0.14876e+01 /) - kao(:, 1, 7,12) = (/ & - & 0.16064e+01,0.15086e+01,0.15144e+01,0.15268e+01,0.15040e+01, & - & 0.14507e+01,0.13904e+01,0.13521e+01,0.14179e+01 /) - kao(:, 2, 7,12) = (/ & - & 0.15953e+01,0.14985e+01,0.15140e+01,0.15345e+01,0.15085e+01, & - & 0.14549e+01,0.13952e+01,0.13604e+01,0.14259e+01 /) - kao(:, 3, 7,12) = (/ & - & 0.15801e+01,0.14851e+01,0.15073e+01,0.15363e+01,0.15134e+01, & - & 0.14598e+01,0.13998e+01,0.13678e+01,0.14328e+01 /) - kao(:, 4, 7,12) = (/ & - & 0.15629e+01,0.14703e+01,0.14995e+01,0.15318e+01,0.15172e+01, & - & 0.14656e+01,0.14020e+01,0.13732e+01,0.14388e+01 /) - kao(:, 5, 7,12) = (/ & - & 0.15443e+01,0.14531e+01,0.14892e+01,0.15236e+01,0.15169e+01, & - & 0.14692e+01,0.14038e+01,0.13766e+01,0.14425e+01 /) - kao(:, 1, 8,12) = (/ & - & 0.15344e+01,0.14766e+01,0.15157e+01,0.15423e+01,0.15330e+01, & - & 0.14811e+01,0.13889e+01,0.13373e+01,0.13698e+01 /) - kao(:, 2, 8,12) = (/ & - & 0.15222e+01,0.14679e+01,0.15175e+01,0.15473e+01,0.15363e+01, & - & 0.14872e+01,0.13948e+01,0.13442e+01,0.13786e+01 /) - kao(:, 3, 8,12) = (/ & - & 0.15059e+01,0.14533e+01,0.15144e+01,0.15489e+01,0.15409e+01, & - & 0.14932e+01,0.14005e+01,0.13518e+01,0.13861e+01 /) - kao(:, 4, 8,12) = (/ & - & 0.14877e+01,0.14368e+01,0.15058e+01,0.15451e+01,0.15445e+01, & - & 0.14989e+01,0.14044e+01,0.13574e+01,0.13922e+01 /) - kao(:, 5, 8,12) = (/ & - & 0.14686e+01,0.14200e+01,0.14953e+01,0.15388e+01,0.15447e+01, & - & 0.15024e+01,0.14082e+01,0.13605e+01,0.13964e+01 /) - kao(:, 1, 9,12) = (/ & - & 0.14373e+01,0.14266e+01,0.14938e+01,0.15367e+01,0.15341e+01, & - & 0.14871e+01,0.13939e+01,0.13173e+01,0.13285e+01 /) - kao(:, 2, 9,12) = (/ & - & 0.14250e+01,0.14168e+01,0.14968e+01,0.15390e+01,0.15386e+01, & - & 0.14934e+01,0.13987e+01,0.13260e+01,0.13388e+01 /) - kao(:, 3, 9,12) = (/ & - & 0.14085e+01,0.14020e+01,0.14946e+01,0.15393e+01,0.15430e+01, & - & 0.14996e+01,0.14050e+01,0.13340e+01,0.13471e+01 /) - kao(:, 4, 9,12) = (/ & - & 0.13898e+01,0.13862e+01,0.14874e+01,0.15365e+01,0.15469e+01, & - & 0.15061e+01,0.14095e+01,0.13387e+01,0.13529e+01 /) - kao(:, 5, 9,12) = (/ & - & 0.13711e+01,0.13694e+01,0.14772e+01,0.15321e+01,0.15481e+01, & - & 0.15103e+01,0.14136e+01,0.13413e+01,0.13557e+01 /) - kao(:, 1,10,12) = (/ & - & 0.13234e+01,0.13585e+01,0.14531e+01,0.15073e+01,0.15094e+01, & - & 0.14728e+01,0.13972e+01,0.12936e+01,0.12835e+01 /) - kao(:, 2,10,12) = (/ & - & 0.13109e+01,0.13494e+01,0.14540e+01,0.15085e+01,0.15139e+01, & - & 0.14784e+01,0.14019e+01,0.13047e+01,0.12968e+01 /) - kao(:, 3,10,12) = (/ & - & 0.12956e+01,0.13371e+01,0.14504e+01,0.15092e+01,0.15192e+01, & - & 0.14835e+01,0.14094e+01,0.13136e+01,0.13076e+01 /) - kao(:, 4,10,12) = (/ & - & 0.12784e+01,0.13237e+01,0.14435e+01,0.15071e+01,0.15234e+01, & - & 0.14905e+01,0.14145e+01,0.13190e+01,0.13139e+01 /) - kao(:, 5,10,12) = (/ & - & 0.12607e+01,0.13090e+01,0.14344e+01,0.15038e+01,0.15261e+01, & - & 0.14956e+01,0.14181e+01,0.13210e+01,0.13178e+01 /) - kao(:, 1,11,12) = (/ & - & 0.12047e+01,0.12789e+01,0.13923e+01,0.14530e+01,0.14659e+01, & - & 0.14483e+01,0.13898e+01,0.12749e+01,0.12386e+01 /) - kao(:, 2,11,12) = (/ & - & 0.11911e+01,0.12701e+01,0.13902e+01,0.14549e+01,0.14710e+01, & - & 0.14517e+01,0.13981e+01,0.12874e+01,0.12546e+01 /) - kao(:, 3,11,12) = (/ & - & 0.11768e+01,0.12599e+01,0.13852e+01,0.14552e+01,0.14760e+01, & - & 0.14581e+01,0.14056e+01,0.12968e+01,0.12644e+01 /) - kao(:, 4,11,12) = (/ & - & 0.11609e+01,0.12491e+01,0.13785e+01,0.14542e+01,0.14794e+01, & - & 0.14643e+01,0.14106e+01,0.13015e+01,0.12707e+01 /) - kao(:, 5,11,12) = (/ & - & 0.11453e+01,0.12370e+01,0.13722e+01,0.14526e+01,0.14820e+01, & - & 0.14680e+01,0.14139e+01,0.13041e+01,0.12775e+01 /) - kao(:, 1,12,12) = (/ & - & 0.10892e+01,0.11978e+01,0.13175e+01,0.13800e+01,0.14113e+01, & - & 0.14104e+01,0.13697e+01,0.12563e+01,0.11895e+01 /) - kao(:, 2,12,12) = (/ & - & 0.10764e+01,0.11912e+01,0.13142e+01,0.13828e+01,0.14151e+01, & - & 0.14161e+01,0.13800e+01,0.12704e+01,0.12046e+01 /) - kao(:, 3,12,12) = (/ & - & 0.10634e+01,0.11835e+01,0.13099e+01,0.13835e+01,0.14196e+01, & - & 0.14241e+01,0.13887e+01,0.12786e+01,0.12148e+01 /) - kao(:, 4,12,12) = (/ & - & 0.10495e+01,0.11751e+01,0.13057e+01,0.13846e+01,0.14230e+01, & - & 0.14300e+01,0.13945e+01,0.12836e+01,0.12244e+01 /) - kao(:, 5,12,12) = (/ & - & 0.10406e+01,0.11650e+01,0.13011e+01,0.13864e+01,0.14254e+01, & - & 0.14322e+01,0.13980e+01,0.12878e+01,0.12342e+01 /) - kao(:, 1,13,12) = (/ & - & 0.97671e+00,0.11194e+01,0.12352e+01,0.13029e+01,0.13468e+01, & - & 0.13623e+01,0.13355e+01,0.12363e+01,0.11351e+01 /) - kao(:, 2,13,12) = (/ & - & 0.96514e+00,0.11135e+01,0.12326e+01,0.13049e+01,0.13523e+01, & - & 0.13721e+01,0.13488e+01,0.12496e+01,0.11500e+01 /) - kao(:, 3,13,12) = (/ & - & 0.95350e+00,0.11073e+01,0.12308e+01,0.13063e+01,0.13575e+01, & - & 0.13815e+01,0.13588e+01,0.12584e+01,0.11629e+01 /) - kao(:, 4,13,12) = (/ & - & 0.94648e+00,0.11002e+01,0.12294e+01,0.13087e+01,0.13617e+01, & - & 0.13873e+01,0.13660e+01,0.12653e+01,0.11761e+01 /) - kao(:, 5,13,12) = (/ & - & 0.94953e+00,0.10941e+01,0.12277e+01,0.13116e+01,0.13645e+01, & - & 0.13901e+01,0.13713e+01,0.12717e+01,0.11896e+01 /) - kao(:, 1, 1,13) = (/ & - & 0.21877e+01,0.19168e+01,0.16830e+01,0.16306e+01,0.15763e+01, & - & 0.15398e+01,0.15859e+01,0.18468e+01,0.20593e+01 /) - kao(:, 2, 1,13) = (/ & - & 0.22022e+01,0.19296e+01,0.16916e+01,0.16400e+01,0.15796e+01, & - & 0.15432e+01,0.15912e+01,0.18534e+01,0.20655e+01 /) - kao(:, 3, 1,13) = (/ & - & 0.22022e+01,0.19297e+01,0.16911e+01,0.16436e+01,0.15885e+01, & - & 0.15469e+01,0.15941e+01,0.18569e+01,0.20695e+01 /) - kao(:, 4, 1,13) = (/ & - & 0.21895e+01,0.19186e+01,0.16803e+01,0.16425e+01,0.15962e+01, & - & 0.15525e+01,0.15947e+01,0.18575e+01,0.20703e+01 /) - kao(:, 5, 1,13) = (/ & - & 0.21697e+01,0.19013e+01,0.16648e+01,0.16344e+01,0.16003e+01, & - & 0.15574e+01,0.15941e+01,0.18572e+01,0.20709e+01 /) - kao(:, 1, 2,13) = (/ & - & 0.22550e+01,0.19753e+01,0.17734e+01,0.17443e+01,0.17102e+01, & - & 0.16986e+01,0.17217e+01,0.19863e+01,0.22329e+01 /) - kao(:, 2, 2,13) = (/ & - & 0.22679e+01,0.19867e+01,0.17791e+01,0.17520e+01,0.17112e+01, & - & 0.17026e+01,0.17283e+01,0.19934e+01,0.22409e+01 /) - kao(:, 3, 2,13) = (/ & - & 0.22698e+01,0.19883e+01,0.17767e+01,0.17568e+01,0.17174e+01, & - & 0.17053e+01,0.17318e+01,0.19966e+01,0.22448e+01 /) - kao(:, 4, 2,13) = (/ & - & 0.22597e+01,0.19796e+01,0.17668e+01,0.17548e+01,0.17261e+01, & - & 0.17073e+01,0.17314e+01,0.19968e+01,0.22451e+01 /) - kao(:, 5, 2,13) = (/ & - & 0.22409e+01,0.19632e+01,0.17511e+01,0.17475e+01,0.17318e+01, & - & 0.17099e+01,0.17295e+01,0.19947e+01,0.22431e+01 /) - kao(:, 1, 3,13) = (/ & - & 0.23526e+01,0.20603e+01,0.18829e+01,0.18493e+01,0.18420e+01, & - & 0.18637e+01,0.18729e+01,0.21122e+01,0.23977e+01 /) - kao(:, 2, 3,13) = (/ & - & 0.23692e+01,0.20749e+01,0.18925e+01,0.18515e+01,0.18400e+01, & - & 0.18683e+01,0.18793e+01,0.21211e+01,0.24079e+01 /) - kao(:, 3, 3,13) = (/ & - & 0.23722e+01,0.20775e+01,0.18924e+01,0.18562e+01,0.18451e+01, & - & 0.18704e+01,0.18820e+01,0.21249e+01,0.24125e+01 /) - kao(:, 4, 3,13) = (/ & - & 0.23635e+01,0.20699e+01,0.18842e+01,0.18555e+01,0.18524e+01, & - & 0.18695e+01,0.18827e+01,0.21252e+01,0.24130e+01 /) - kao(:, 5, 3,13) = (/ & - & 0.23480e+01,0.20564e+01,0.18701e+01,0.18499e+01,0.18587e+01, & - & 0.18689e+01,0.18824e+01,0.21250e+01,0.24123e+01 /) - kao(:, 1, 4,13) = (/ & - & 0.24939e+01,0.21837e+01,0.20232e+01,0.19589e+01,0.19737e+01, & - & 0.20251e+01,0.20263e+01,0.22145e+01,0.25248e+01 /) - kao(:, 2, 4,13) = (/ & - & 0.25110e+01,0.21986e+01,0.20314e+01,0.19589e+01,0.19697e+01, & - & 0.20307e+01,0.20352e+01,0.22253e+01,0.25374e+01 /) - kao(:, 3, 4,13) = (/ & - & 0.25161e+01,0.22032e+01,0.20346e+01,0.19625e+01,0.19727e+01, & - & 0.20334e+01,0.20403e+01,0.22301e+01,0.25429e+01 /) - kao(:, 4, 4,13) = (/ & - & 0.25095e+01,0.21974e+01,0.20283e+01,0.19657e+01,0.19780e+01, & - & 0.20313e+01,0.20420e+01,0.22330e+01,0.25458e+01 /) - kao(:, 5, 4,13) = (/ & - & 0.24957e+01,0.21853e+01,0.20162e+01,0.19613e+01,0.19825e+01, & - & 0.20289e+01,0.20423e+01,0.22370e+01,0.25500e+01 /) - kao(:, 1, 5,13) = (/ & - & 0.26637e+01,0.23330e+01,0.21864e+01,0.20904e+01,0.21013e+01, & - & 0.21699e+01,0.21691e+01,0.22859e+01,0.26102e+01 /) - kao(:, 2, 5,13) = (/ & - & 0.26795e+01,0.23466e+01,0.21930e+01,0.20883e+01,0.21007e+01, & - & 0.21775e+01,0.21807e+01,0.22957e+01,0.26216e+01 /) - kao(:, 3, 5,13) = (/ & - & 0.26872e+01,0.23531e+01,0.22001e+01,0.20926e+01,0.21029e+01, & - & 0.21797e+01,0.21879e+01,0.23020e+01,0.26289e+01 /) - kao(:, 4, 5,13) = (/ & - & 0.26803e+01,0.23471e+01,0.21948e+01,0.20970e+01,0.21069e+01, & - & 0.21770e+01,0.21901e+01,0.23087e+01,0.26364e+01 /) - kao(:, 5, 5,13) = (/ & - & 0.26667e+01,0.23351e+01,0.21832e+01,0.20959e+01,0.21091e+01, & - & 0.21729e+01,0.21936e+01,0.23158e+01,0.26444e+01 /) - kao(:, 1, 6,13) = (/ & - & 0.28246e+01,0.24844e+01,0.23554e+01,0.22494e+01,0.22325e+01, & - & 0.22877e+01,0.22925e+01,0.23319e+01,0.26619e+01 /) - kao(:, 2, 6,13) = (/ & - & 0.28376e+01,0.24941e+01,0.23589e+01,0.22458e+01,0.22369e+01, & - & 0.22959e+01,0.23048e+01,0.23408e+01,0.26720e+01 /) - kao(:, 3, 6,13) = (/ & - & 0.28468e+01,0.25010e+01,0.23646e+01,0.22473e+01,0.22379e+01, & - & 0.22992e+01,0.23116e+01,0.23486e+01,0.26812e+01 /) - kao(:, 4, 6,13) = (/ & - & 0.28432e+01,0.24967e+01,0.23643e+01,0.22531e+01,0.22409e+01, & - & 0.22981e+01,0.23157e+01,0.23572e+01,0.26911e+01 /) - kao(:, 5, 6,13) = (/ & - & 0.28266e+01,0.24816e+01,0.23521e+01,0.22549e+01,0.22433e+01, & - & 0.22953e+01,0.23213e+01,0.23655e+01,0.27010e+01 /) - kao(:, 1, 7,13) = (/ & - & 0.29507e+01,0.26186e+01,0.25154e+01,0.24214e+01,0.23698e+01, & - & 0.23809e+01,0.23936e+01,0.23723e+01,0.26904e+01 /) - kao(:, 2, 7,13) = (/ & - & 0.29579e+01,0.26218e+01,0.25131e+01,0.24179e+01,0.23791e+01, & - & 0.23895e+01,0.24036e+01,0.23830e+01,0.27026e+01 /) - kao(:, 3, 7,13) = (/ & - & 0.29645e+01,0.26250e+01,0.25156e+01,0.24180e+01,0.23828e+01, & - & 0.23929e+01,0.24104e+01,0.23923e+01,0.27131e+01 /) - kao(:, 4, 7,13) = (/ & - & 0.29630e+01,0.26222e+01,0.25142e+01,0.24231e+01,0.23851e+01, & - & 0.23923e+01,0.24170e+01,0.24017e+01,0.27241e+01 /) - kao(:, 5, 7,13) = (/ & - & 0.29476e+01,0.26071e+01,0.25053e+01,0.24267e+01,0.23855e+01, & - & 0.23922e+01,0.24228e+01,0.24116e+01,0.27361e+01 /) - kao(:, 1, 8,13) = (/ & - & 0.30283e+01,0.27271e+01,0.26499e+01,0.25812e+01,0.25068e+01, & - & 0.24674e+01,0.24700e+01,0.24088e+01,0.26873e+01 /) - kao(:, 2, 8,13) = (/ & - & 0.30302e+01,0.27229e+01,0.26429e+01,0.25805e+01,0.25199e+01, & - & 0.24758e+01,0.24797e+01,0.24223e+01,0.27017e+01 /) - kao(:, 3, 8,13) = (/ & - & 0.30313e+01,0.27198e+01,0.26386e+01,0.25814e+01,0.25257e+01, & - & 0.24788e+01,0.24874e+01,0.24335e+01,0.27156e+01 /) - kao(:, 4, 8,13) = (/ & - & 0.30296e+01,0.27153e+01,0.26358e+01,0.25865e+01,0.25285e+01, & - & 0.24798e+01,0.24941e+01,0.24451e+01,0.27296e+01 /) - kao(:, 5, 8,13) = (/ & - & 0.30139e+01,0.26994e+01,0.26290e+01,0.25893e+01,0.25296e+01, & - & 0.24809e+01,0.25004e+01,0.24568e+01,0.27436e+01 /) - kao(:, 1, 9,13) = (/ & - & 0.30493e+01,0.27941e+01,0.27550e+01,0.27119e+01,0.26405e+01, & - & 0.25561e+01,0.25144e+01,0.24302e+01,0.26456e+01 /) - kao(:, 2, 9,13) = (/ & - & 0.30457e+01,0.27865e+01,0.27445e+01,0.27145e+01,0.26540e+01, & - & 0.25649e+01,0.25264e+01,0.24468e+01,0.26636e+01 /) - kao(:, 3, 9,13) = (/ & - & 0.30433e+01,0.27809e+01,0.27367e+01,0.27179e+01,0.26606e+01, & - & 0.25683e+01,0.25354e+01,0.24613e+01,0.26815e+01 /) - kao(:, 4, 9,13) = (/ & - & 0.30389e+01,0.27734e+01,0.27309e+01,0.27229e+01,0.26627e+01, & - & 0.25715e+01,0.25441e+01,0.24765e+01,0.27005e+01 /) - kao(:, 5, 9,13) = (/ & - & 0.30246e+01,0.27583e+01,0.27239e+01,0.27244e+01,0.26642e+01, & - & 0.25740e+01,0.25518e+01,0.24921e+01,0.27199e+01 /) - kao(:, 1,10,13) = (/ & - & 0.30121e+01,0.28154e+01,0.28201e+01,0.28057e+01,0.27531e+01, & - & 0.26438e+01,0.25360e+01,0.24395e+01,0.25814e+01 /) - kao(:, 2,10,13) = (/ & - & 0.30058e+01,0.28055e+01,0.28091e+01,0.28117e+01,0.27659e+01, & - & 0.26536e+01,0.25505e+01,0.24578e+01,0.26020e+01 /) - kao(:, 3,10,13) = (/ & - & 0.29984e+01,0.27957e+01,0.28033e+01,0.28172e+01,0.27717e+01, & - & 0.26597e+01,0.25631e+01,0.24765e+01,0.26239e+01 /) - kao(:, 4,10,13) = (/ & - & 0.29909e+01,0.27859e+01,0.27980e+01,0.28231e+01,0.27737e+01, & - & 0.26641e+01,0.25752e+01,0.24953e+01,0.26473e+01 /) - kao(:, 5,10,13) = (/ & - & 0.29757e+01,0.27703e+01,0.27906e+01,0.28248e+01,0.27751e+01, & - & 0.26687e+01,0.25862e+01,0.25141e+01,0.26704e+01 /) - kao(:, 1,11,13) = (/ & - & 0.29105e+01,0.27849e+01,0.28418e+01,0.28641e+01,0.28368e+01, & - & 0.27205e+01,0.25555e+01,0.24401e+01,0.25196e+01 /) - kao(:, 2,11,13) = (/ & - & 0.29013e+01,0.27742e+01,0.28363e+01,0.28719e+01,0.28460e+01, & - & 0.27321e+01,0.25730e+01,0.24607e+01,0.25412e+01 /) - kao(:, 3,11,13) = (/ & - & 0.28911e+01,0.27633e+01,0.28321e+01,0.28799e+01,0.28506e+01, & - & 0.27417e+01,0.25892e+01,0.24813e+01,0.25665e+01 /) - kao(:, 4,11,13) = (/ & - & 0.28805e+01,0.27495e+01,0.28275e+01,0.28852e+01,0.28551e+01, & - & 0.27503e+01,0.26048e+01,0.25023e+01,0.25905e+01 /) - kao(:, 5,11,13) = (/ & - & 0.28607e+01,0.27299e+01,0.28179e+01,0.28868e+01,0.28597e+01, & - & 0.27578e+01,0.26198e+01,0.25207e+01,0.26120e+01 /) - kao(:, 1,12,13) = (/ & - & 0.27583e+01,0.27145e+01,0.28231e+01,0.28871e+01,0.28764e+01, & - & 0.27674e+01,0.25743e+01,0.24278e+01,0.24570e+01 /) - kao(:, 2,12,13) = (/ & - & 0.27477e+01,0.27023e+01,0.28226e+01,0.28962e+01,0.28884e+01, & - & 0.27832e+01,0.25939e+01,0.24483e+01,0.24817e+01 /) - kao(:, 3,12,13) = (/ & - & 0.27363e+01,0.26890e+01,0.28229e+01,0.29041e+01,0.28966e+01, & - & 0.27972e+01,0.26117e+01,0.24706e+01,0.25053e+01 /) - kao(:, 4,12,13) = (/ & - & 0.27215e+01,0.26719e+01,0.28199e+01,0.29098e+01,0.29044e+01, & - & 0.28097e+01,0.26305e+01,0.24926e+01,0.25297e+01 /) - kao(:, 5,12,13) = (/ & - & 0.27019e+01,0.26521e+01,0.28123e+01,0.29106e+01,0.29127e+01, & - & 0.28234e+01,0.26485e+01,0.25112e+01,0.25512e+01 /) - kao(:, 1,13,13) = (/ & - & 0.25703e+01,0.26073e+01,0.27736e+01,0.28686e+01,0.28762e+01, & - & 0.27819e+01,0.25967e+01,0.24069e+01,0.23967e+01 /) - kao(:, 2,13,13) = (/ & - & 0.25597e+01,0.25968e+01,0.27777e+01,0.28810e+01,0.28904e+01, & - & 0.28011e+01,0.26158e+01,0.24298e+01,0.24224e+01 /) - kao(:, 3,13,13) = (/ & - & 0.25492e+01,0.25857e+01,0.27800e+01,0.28929e+01,0.29040e+01, & - & 0.28202e+01,0.26351e+01,0.24527e+01,0.24494e+01 /) - kao(:, 4,13,13) = (/ & - & 0.25336e+01,0.25705e+01,0.27801e+01,0.29008e+01,0.29182e+01, & - & 0.28403e+01,0.26542e+01,0.24758e+01,0.24745e+01 /) - kao(:, 5,13,13) = (/ & - & 0.25174e+01,0.25538e+01,0.27760e+01,0.29061e+01,0.29321e+01, & - & 0.28592e+01,0.26728e+01,0.24954e+01,0.24962e+01 /) - kao(:, 1, 1,14) = (/ & - & 0.34915e+01,0.30588e+01,0.26262e+01,0.23144e+01,0.22122e+01, & - & 0.21892e+01,0.25558e+01,0.29818e+01,0.32991e+01 /) - kao(:, 2, 1,14) = (/ & - & 0.35009e+01,0.30672e+01,0.26335e+01,0.23059e+01,0.22071e+01, & - & 0.21796e+01,0.25444e+01,0.29683e+01,0.32820e+01 /) - kao(:, 3, 1,14) = (/ & - & 0.35192e+01,0.30832e+01,0.26472e+01,0.23037e+01,0.22014e+01, & - & 0.21706e+01,0.25342e+01,0.29565e+01,0.32692e+01 /) - kao(:, 4, 1,14) = (/ & - & 0.35462e+01,0.31069e+01,0.26676e+01,0.23054e+01,0.21967e+01, & - & 0.21619e+01,0.25265e+01,0.29475e+01,0.32591e+01 /) - kao(:, 5, 1,14) = (/ & - & 0.35714e+01,0.31290e+01,0.26866e+01,0.23141e+01,0.21952e+01, & - & 0.21552e+01,0.25228e+01,0.29432e+01,0.32501e+01 /) - kao(:, 1, 2,14) = (/ & - & 0.38742e+01,0.33939e+01,0.29135e+01,0.26368e+01,0.25318e+01, & - & 0.24566e+01,0.27984e+01,0.32648e+01,0.36583e+01 /) - kao(:, 2, 2,14) = (/ & - & 0.38780e+01,0.33972e+01,0.29165e+01,0.26245e+01,0.25266e+01, & - & 0.24447e+01,0.27836e+01,0.32475e+01,0.36397e+01 /) - kao(:, 3, 2,14) = (/ & - & 0.38887e+01,0.34066e+01,0.29246e+01,0.26139e+01,0.25181e+01, & - & 0.24355e+01,0.27726e+01,0.32346e+01,0.36242e+01 /) - kao(:, 4, 2,14) = (/ & - & 0.39063e+01,0.34220e+01,0.29378e+01,0.26094e+01,0.25085e+01, & - & 0.24291e+01,0.27676e+01,0.32288e+01,0.36150e+01 /) - kao(:, 5, 2,14) = (/ & - & 0.39241e+01,0.34376e+01,0.29511e+01,0.26073e+01,0.25021e+01, & - & 0.24243e+01,0.27677e+01,0.32289e+01,0.36134e+01 /) - kao(:, 1, 3,14) = (/ & - & 0.42487e+01,0.37216e+01,0.32039e+01,0.29799e+01,0.28758e+01, & - & 0.27551e+01,0.30498e+01,0.35581e+01,0.40304e+01 /) - kao(:, 2, 3,14) = (/ & - & 0.42439e+01,0.37174e+01,0.31977e+01,0.29675e+01,0.28698e+01, & - & 0.27440e+01,0.30347e+01,0.35405e+01,0.40101e+01 /) - kao(:, 3, 3,14) = (/ & - & 0.42511e+01,0.37238e+01,0.32007e+01,0.29528e+01,0.28598e+01, & - & 0.27364e+01,0.30269e+01,0.35313e+01,0.39978e+01 /) - kao(:, 4, 3,14) = (/ & - & 0.42624e+01,0.37337e+01,0.32078e+01,0.29428e+01,0.28469e+01, & - & 0.27311e+01,0.30242e+01,0.35281e+01,0.39928e+01 /) - kao(:, 5, 3,14) = (/ & - & 0.42720e+01,0.37420e+01,0.32138e+01,0.29343e+01,0.28324e+01, & - & 0.27276e+01,0.30224e+01,0.35261e+01,0.39910e+01 /) - kao(:, 1, 4,14) = (/ & - & 0.45954e+01,0.40249e+01,0.35022e+01,0.33403e+01,0.32328e+01, & - & 0.30833e+01,0.33112e+01,0.38621e+01,0.43957e+01 /) - kao(:, 2, 4,14) = (/ & - & 0.45847e+01,0.40157e+01,0.34904e+01,0.33265e+01,0.32256e+01, & - & 0.30748e+01,0.32975e+01,0.38466e+01,0.43773e+01 /) - kao(:, 3, 4,14) = (/ & - & 0.45864e+01,0.40172e+01,0.34822e+01,0.33081e+01,0.32132e+01, & - & 0.30693e+01,0.32915e+01,0.38399e+01,0.43696e+01 /) - kao(:, 4, 4,14) = (/ & - & 0.45919e+01,0.40220e+01,0.34808e+01,0.32873e+01,0.31989e+01, & - & 0.30656e+01,0.32892e+01,0.38374e+01,0.43666e+01 /) - kao(:, 5, 4,14) = (/ & - & 0.45961e+01,0.40254e+01,0.34809e+01,0.32746e+01,0.31817e+01, & - & 0.30639e+01,0.32889e+01,0.38370e+01,0.43660e+01 /) - kao(:, 1, 5,14) = (/ & - & 0.49114e+01,0.43012e+01,0.38001e+01,0.37007e+01,0.36023e+01, & - & 0.34476e+01,0.35973e+01,0.41814e+01,0.47692e+01 /) - kao(:, 2, 5,14) = (/ & - & 0.49023e+01,0.42934e+01,0.37862e+01,0.36850e+01,0.35912e+01, & - & 0.34412e+01,0.35890e+01,0.41727e+01,0.47592e+01 /) - kao(:, 3, 5,14) = (/ & - & 0.48929e+01,0.42852e+01,0.37666e+01,0.36647e+01,0.35739e+01, & - & 0.34368e+01,0.35843e+01,0.41678e+01,0.47530e+01 /) - kao(:, 4, 5,14) = (/ & - & 0.48957e+01,0.42875e+01,0.37577e+01,0.36399e+01,0.35570e+01, & - & 0.34352e+01,0.35822e+01,0.41658e+01,0.47507e+01 /) - kao(:, 5, 5,14) = (/ & - & 0.48955e+01,0.42870e+01,0.37502e+01,0.36181e+01,0.35379e+01, & - & 0.34333e+01,0.35807e+01,0.41639e+01,0.47483e+01 /) - kao(:, 1, 6,14) = (/ & - & 0.52336e+01,0.45828e+01,0.41059e+01,0.40455e+01,0.39709e+01, & - & 0.38438e+01,0.39195e+01,0.45101e+01,0.51488e+01 /) - kao(:, 2, 6,14) = (/ & - & 0.52264e+01,0.45766e+01,0.40903e+01,0.40272e+01,0.39556e+01, & - & 0.38368e+01,0.39154e+01,0.45074e+01,0.51460e+01 /) - kao(:, 3, 6,14) = (/ & - & 0.52116e+01,0.45637e+01,0.40682e+01,0.40069e+01,0.39387e+01, & - & 0.38311e+01,0.39117e+01,0.45034e+01,0.51413e+01 /) - kao(:, 4, 6,14) = (/ & - & 0.52061e+01,0.45585e+01,0.40484e+01,0.39793e+01,0.39195e+01, & - & 0.38275e+01,0.39110e+01,0.45018e+01,0.51396e+01 /) - kao(:, 5, 6,14) = (/ & - & 0.52033e+01,0.45559e+01,0.40356e+01,0.39520e+01,0.38983e+01, & - & 0.38238e+01,0.39105e+01,0.45008e+01,0.51385e+01 /) - kao(:, 1, 7,14) = (/ & - & 0.55789e+01,0.48845e+01,0.44392e+01,0.43787e+01,0.43341e+01, & - & 0.42496e+01,0.42580e+01,0.48177e+01,0.55034e+01 /) - kao(:, 2, 7,14) = (/ & - & 0.55750e+01,0.48811e+01,0.44216e+01,0.43602e+01,0.43147e+01, & - & 0.42460e+01,0.42594e+01,0.48202e+01,0.55064e+01 /) - kao(:, 3, 7,14) = (/ & - & 0.55641e+01,0.48716e+01,0.43996e+01,0.43387e+01,0.42975e+01, & - & 0.42414e+01,0.42613e+01,0.48234e+01,0.55098e+01 /) - kao(:, 4, 7,14) = (/ & - & 0.55497e+01,0.48588e+01,0.43740e+01,0.43098e+01,0.42767e+01, & - & 0.42365e+01,0.42657e+01,0.48283e+01,0.55153e+01 /) - kao(:, 5, 7,14) = (/ & - & 0.55426e+01,0.48524e+01,0.43530e+01,0.42800e+01,0.42577e+01, & - & 0.42309e+01,0.42668e+01,0.48295e+01,0.55168e+01 /) - kao(:, 1, 8,14) = (/ & - & 0.59399e+01,0.51999e+01,0.48042e+01,0.47185e+01,0.46865e+01, & - & 0.46496e+01,0.46000e+01,0.50897e+01,0.58161e+01 /) - kao(:, 2, 8,14) = (/ & - & 0.59397e+01,0.51999e+01,0.47874e+01,0.46998e+01,0.46665e+01, & - & 0.46493e+01,0.46097e+01,0.50997e+01,0.58275e+01 /) - kao(:, 3, 8,14) = (/ & - & 0.59349e+01,0.51955e+01,0.47656e+01,0.46767e+01,0.46485e+01, & - & 0.46473e+01,0.46203e+01,0.51120e+01,0.58414e+01 /) - kao(:, 4, 8,14) = (/ & - & 0.59186e+01,0.51811e+01,0.47381e+01,0.46470e+01,0.46283e+01, & - & 0.46432e+01,0.46335e+01,0.51262e+01,0.58574e+01 /) - kao(:, 5, 8,14) = (/ & - & 0.59097e+01,0.51733e+01,0.47110e+01,0.46158e+01,0.46095e+01, & - & 0.46379e+01,0.46369e+01,0.51321e+01,0.58644e+01 /) - kao(:, 1, 9,14) = (/ & - & 0.63127e+01,0.55322e+01,0.51834e+01,0.50691e+01,0.50247e+01, & - & 0.50209e+01,0.49367e+01,0.53236e+01,0.60842e+01 /) - kao(:, 2, 9,14) = (/ & - & 0.63183e+01,0.55346e+01,0.51727e+01,0.50532e+01,0.50080e+01, & - & 0.50274e+01,0.49592e+01,0.53436e+01,0.61069e+01 /) - kao(:, 3, 9,14) = (/ & - & 0.63124e+01,0.55272e+01,0.51546e+01,0.50297e+01,0.49909e+01, & - & 0.50310e+01,0.49812e+01,0.53668e+01,0.61332e+01 /) - kao(:, 4, 9,14) = (/ & - & 0.63001e+01,0.55154e+01,0.51286e+01,0.50009e+01,0.49750e+01, & - & 0.50299e+01,0.49995e+01,0.53888e+01,0.61587e+01 /) - kao(:, 5, 9,14) = (/ & - & 0.62858e+01,0.55023e+01,0.50977e+01,0.49708e+01,0.49573e+01, & - & 0.50270e+01,0.50058e+01,0.53988e+01,0.61697e+01 /) - kao(:, 1,10,14) = (/ & - & 0.66894e+01,0.58832e+01,0.55701e+01,0.54237e+01,0.53594e+01, & - & 0.53556e+01,0.52686e+01,0.55192e+01,0.63037e+01 /) - kao(:, 2,10,14) = (/ & - & 0.66981e+01,0.58851e+01,0.55643e+01,0.54120e+01,0.53500e+01, & - & 0.53705e+01,0.53019e+01,0.55500e+01,0.63389e+01 /) - kao(:, 3,10,14) = (/ & - & 0.66967e+01,0.58795e+01,0.55464e+01,0.53921e+01,0.53372e+01, & - & 0.53796e+01,0.53288e+01,0.55798e+01,0.63734e+01 /) - kao(:, 4,10,14) = (/ & - & 0.66854e+01,0.58646e+01,0.55228e+01,0.53676e+01,0.53254e+01, & - & 0.53837e+01,0.53529e+01,0.56104e+01,0.64086e+01 /) - kao(:, 5,10,14) = (/ & - & 0.66717e+01,0.58486e+01,0.54914e+01,0.53392e+01,0.53082e+01, & - & 0.53849e+01,0.53627e+01,0.56270e+01,0.64281e+01 /) - kao(:, 1,11,14) = (/ & - & 0.70715e+01,0.62495e+01,0.59582e+01,0.57869e+01,0.56930e+01, & - & 0.56655e+01,0.56036e+01,0.57057e+01,0.64838e+01 /) - kao(:, 2,11,14) = (/ & - & 0.70771e+01,0.62459e+01,0.59461e+01,0.57734e+01,0.56903e+01, & - & 0.56860e+01,0.56380e+01,0.57455e+01,0.65310e+01 /) - kao(:, 3,11,14) = (/ & - & 0.70723e+01,0.62337e+01,0.59291e+01,0.57507e+01,0.56859e+01, & - & 0.56988e+01,0.56691e+01,0.57882e+01,0.65837e+01 /) - kao(:, 4,11,14) = (/ & - & 0.70579e+01,0.62141e+01,0.59017e+01,0.57243e+01,0.56747e+01, & - & 0.57061e+01,0.56917e+01,0.58206e+01,0.66248e+01 /) - kao(:, 5,11,14) = (/ & - & 0.70436e+01,0.61942e+01,0.58711e+01,0.56953e+01,0.56563e+01, & - & 0.57095e+01,0.57007e+01,0.58439e+01,0.66547e+01 /) - kao(:, 1,12,14) = (/ & - & 0.73996e+01,0.65875e+01,0.63444e+01,0.61468e+01,0.60255e+01, & - & 0.59627e+01,0.59009e+01,0.58767e+01,0.66113e+01 /) - kao(:, 2,12,14) = (/ & - & 0.74059e+01,0.65818e+01,0.63297e+01,0.61319e+01,0.60289e+01, & - & 0.59857e+01,0.59393e+01,0.59291e+01,0.66795e+01 /) - kao(:, 3,12,14) = (/ & - & 0.73985e+01,0.65639e+01,0.63058e+01,0.61104e+01,0.60278e+01, & - & 0.60017e+01,0.59765e+01,0.59805e+01,0.67466e+01 /) - kao(:, 4,12,14) = (/ & - & 0.73888e+01,0.65439e+01,0.62733e+01,0.60850e+01,0.60189e+01, & - & 0.60123e+01,0.59968e+01,0.60157e+01,0.67935e+01 /) - kao(:, 5,12,14) = (/ & - & 0.73717e+01,0.65185e+01,0.62375e+01,0.60536e+01,0.59983e+01, & - & 0.60180e+01,0.60067e+01,0.60456e+01,0.68365e+01 /) - kao(:, 1,13,14) = (/ & - & 0.76469e+01,0.68731e+01,0.66871e+01,0.64997e+01,0.63502e+01, & - & 0.62466e+01,0.61469e+01,0.60253e+01,0.66908e+01 /) - kao(:, 2,13,14) = (/ & - & 0.76513e+01,0.68603e+01,0.66717e+01,0.64853e+01,0.63628e+01, & - & 0.62754e+01,0.61942e+01,0.60911e+01,0.67781e+01 /) - kao(:, 3,13,14) = (/ & - & 0.76480e+01,0.68404e+01,0.66430e+01,0.64664e+01,0.63629e+01, & - & 0.62938e+01,0.62370e+01,0.61432e+01,0.68460e+01 /) - kao(:, 4,13,14) = (/ & - & 0.76417e+01,0.68180e+01,0.66082e+01,0.64389e+01,0.63512e+01, & - & 0.63082e+01,0.62633e+01,0.61842e+01,0.69071e+01 /) - kao(:, 5,13,14) = (/ & - & 0.76283e+01,0.67918e+01,0.65683e+01,0.64071e+01,0.63329e+01, & - & 0.63131e+01,0.62779e+01,0.62184e+01,0.69616e+01 /) - kao(:, 1, 1,15) = (/ & - & 0.48056e+01,0.42094e+01,0.36132e+01,0.30171e+01,0.28404e+01, & - & 0.34490e+01,0.41388e+01,0.48284e+01,0.52314e+01 /) - kao(:, 2, 1,15) = (/ & - & 0.48171e+01,0.42194e+01,0.36219e+01,0.30243e+01,0.28141e+01, & - & 0.34073e+01,0.40887e+01,0.47701e+01,0.51637e+01 /) - kao(:, 3, 1,15) = (/ & - & 0.48231e+01,0.42245e+01,0.36259e+01,0.30275e+01,0.27871e+01, & - & 0.33709e+01,0.40450e+01,0.47190e+01,0.51029e+01 /) - kao(:, 4, 1,15) = (/ & - & 0.48223e+01,0.42236e+01,0.36250e+01,0.30265e+01,0.27616e+01, & - & 0.33346e+01,0.40014e+01,0.46682e+01,0.50473e+01 /) - kao(:, 5, 1,15) = (/ & - & 0.48164e+01,0.42183e+01,0.36202e+01,0.30224e+01,0.27378e+01, & - & 0.32980e+01,0.39575e+01,0.46170e+01,0.49922e+01 /) - kao(:, 1, 2,15) = (/ & - & 0.56696e+01,0.49649e+01,0.42601e+01,0.35603e+01,0.33660e+01, & - & 0.40230e+01,0.48275e+01,0.56320e+01,0.62204e+01 /) - kao(:, 2, 2,15) = (/ & - & 0.56853e+01,0.49788e+01,0.42721e+01,0.35690e+01,0.33370e+01, & - & 0.39815e+01,0.47778e+01,0.55740e+01,0.61522e+01 /) - kao(:, 3, 2,15) = (/ & - & 0.56912e+01,0.49841e+01,0.42769e+01,0.35723e+01,0.33088e+01, & - & 0.39404e+01,0.47285e+01,0.55164e+01,0.60886e+01 /) - kao(:, 4, 2,15) = (/ & - & 0.56900e+01,0.49829e+01,0.42759e+01,0.35705e+01,0.32819e+01, & - & 0.38975e+01,0.46769e+01,0.54563e+01,0.60227e+01 /) - kao(:, 5, 2,15) = (/ & - & 0.56828e+01,0.49765e+01,0.42703e+01,0.35653e+01,0.32552e+01, & - & 0.38520e+01,0.46223e+01,0.53926e+01,0.59537e+01 /) - kao(:, 1, 3,15) = (/ & - & 0.66640e+01,0.58345e+01,0.50050e+01,0.41960e+01,0.39837e+01, & - & 0.46765e+01,0.56117e+01,0.65468e+01,0.73624e+01 /) - kao(:, 2, 3,15) = (/ & - & 0.66851e+01,0.58530e+01,0.50209e+01,0.42035e+01,0.39538e+01, & - & 0.46274e+01,0.55528e+01,0.64781e+01,0.72849e+01 /) - kao(:, 3, 3,15) = (/ & - & 0.66916e+01,0.58588e+01,0.50261e+01,0.42046e+01,0.39240e+01, & - & 0.45763e+01,0.54915e+01,0.64066e+01,0.72060e+01 /) - kao(:, 4, 3,15) = (/ & - & 0.66884e+01,0.58563e+01,0.50241e+01,0.42004e+01,0.38957e+01, & - & 0.45225e+01,0.54270e+01,0.63313e+01,0.71219e+01 /) - kao(:, 5, 3,15) = (/ & - & 0.66766e+01,0.58462e+01,0.50163e+01,0.41933e+01,0.38675e+01, & - & 0.44702e+01,0.53642e+01,0.62581e+01,0.70387e+01 /) - kao(:, 1, 4,15) = (/ & - & 0.77848e+01,0.68149e+01,0.58451e+01,0.49331e+01,0.46977e+01, & - & 0.54033e+01,0.64839e+01,0.75644e+01,0.85830e+01 /) - kao(:, 2, 4,15) = (/ & - & 0.78108e+01,0.68377e+01,0.58646e+01,0.49375e+01,0.46695e+01, & - & 0.53453e+01,0.64143e+01,0.74831e+01,0.84915e+01 /) - kao(:, 3, 4,15) = (/ & - & 0.78236e+01,0.68489e+01,0.58743e+01,0.49373e+01,0.46417e+01, & - & 0.52821e+01,0.63384e+01,0.73947e+01,0.83915e+01 /) - kao(:, 4, 4,15) = (/ & - & 0.78238e+01,0.68493e+01,0.58748e+01,0.49301e+01,0.46103e+01, & - & 0.52166e+01,0.62599e+01,0.73031e+01,0.82871e+01 /) - kao(:, 5, 4,15) = (/ & - & 0.78090e+01,0.68373e+01,0.58658e+01,0.49180e+01,0.45786e+01, & - & 0.51516e+01,0.61819e+01,0.72121e+01,0.81837e+01 /) - kao(:, 1, 5,15) = (/ & - & 0.90367e+01,0.79101e+01,0.67835e+01,0.57840e+01,0.55090e+01, & - & 0.61816e+01,0.74174e+01,0.86536e+01,0.98560e+01 /) - kao(:, 2, 5,15) = (/ & - & 0.90658e+01,0.79355e+01,0.68052e+01,0.57840e+01,0.54825e+01, & - & 0.61122e+01,0.73329e+01,0.85548e+01,0.97452e+01 /) - kao(:, 3, 5,15) = (/ & - & 0.90837e+01,0.79512e+01,0.68188e+01,0.57766e+01,0.54581e+01, & - & 0.60426e+01,0.72485e+01,0.84564e+01,0.96328e+01 /) - kao(:, 4, 5,15) = (/ & - & 0.90830e+01,0.79510e+01,0.68192e+01,0.57645e+01,0.54297e+01, & - & 0.59729e+01,0.71644e+01,0.83583e+01,0.95205e+01 /) - kao(:, 5, 5,15) = (/ & - & 0.90677e+01,0.79386e+01,0.68094e+01,0.57479e+01,0.53962e+01, & - & 0.58998e+01,0.70740e+01,0.82528e+01,0.94008e+01 /) - kao(:, 1, 6,15) = (/ & - & 0.10412e+02,0.91128e+01,0.78140e+01,0.67504e+01,0.64389e+01, & - & 0.70217e+01,0.83899e+01,0.97882e+01,0.11168e+02 /) - kao(:, 2, 6,15) = (/ & - & 0.10449e+02,0.91451e+01,0.78417e+01,0.67466e+01,0.64110e+01, & - & 0.69507e+01,0.82964e+01,0.96789e+01,0.11043e+02 /) - kao(:, 3, 6,15) = (/ & - & 0.10469e+02,0.91634e+01,0.78574e+01,0.67323e+01,0.63834e+01, & - & 0.68804e+01,0.82097e+01,0.95778e+01,0.10928e+02 /) - kao(:, 4, 6,15) = (/ & - & 0.10466e+02,0.91614e+01,0.78568e+01,0.67135e+01,0.63530e+01, & - & 0.68083e+01,0.81167e+01,0.94694e+01,0.10805e+02 /) - kao(:, 5, 6,15) = (/ & - & 0.10450e+02,0.91481e+01,0.78461e+01,0.66866e+01,0.63182e+01, & - & 0.67317e+01,0.80175e+01,0.93536e+01,0.10671e+02 /) - kao(:, 1, 7,15) = (/ & - & 0.11882e+02,0.10399e+02,0.89166e+01,0.78253e+01,0.74792e+01, & - & 0.79512e+01,0.94202e+01,0.10990e+02,0.12550e+02 /) - kao(:, 2, 7,15) = (/ & - & 0.11932e+02,0.10443e+02,0.89541e+01,0.78202e+01,0.74549e+01, & - & 0.78754e+01,0.93207e+01,0.10874e+02,0.12417e+02 /) - kao(:, 3, 7,15) = (/ & - & 0.11956e+02,0.10464e+02,0.89727e+01,0.78020e+01,0.74258e+01, & - & 0.78051e+01,0.92218e+01,0.10758e+02,0.12285e+02 /) - kao(:, 4, 7,15) = (/ & - & 0.11956e+02,0.10465e+02,0.89740e+01,0.77736e+01,0.73912e+01, & - & 0.77319e+01,0.91108e+01,0.10629e+02,0.12138e+02 /) - kao(:, 5, 7,15) = (/ & - & 0.11934e+02,0.10446e+02,0.89587e+01,0.77346e+01,0.73464e+01, & - & 0.76503e+01,0.90007e+01,0.10501e+02,0.11991e+02 /) - kao(:, 1, 8,15) = (/ & - & 0.13440e+02,0.11762e+02,0.10084e+02,0.90134e+01,0.86298e+01, & - & 0.89787e+01,0.10509e+02,0.12260e+02,0.14008e+02 /) - kao(:, 2, 8,15) = (/ & - & 0.13496e+02,0.11811e+02,0.10127e+02,0.90042e+01,0.86075e+01, & - & 0.89016e+01,0.10401e+02,0.12134e+02,0.13863e+02 /) - kao(:, 3, 8,15) = (/ & - & 0.13522e+02,0.11835e+02,0.10148e+02,0.89806e+01,0.85777e+01, & - & 0.88306e+01,0.10284e+02,0.11998e+02,0.13707e+02 /) - kao(:, 4, 8,15) = (/ & - & 0.13526e+02,0.11839e+02,0.10151e+02,0.89422e+01,0.85378e+01, & - & 0.87510e+01,0.10150e+02,0.11842e+02,0.13529e+02 /) - kao(:, 5, 8,15) = (/ & - & 0.13498e+02,0.11814e+02,0.10131e+02,0.88918e+01,0.84819e+01, & - & 0.86621e+01,0.10028e+02,0.11700e+02,0.13367e+02 /) - kao(:, 1, 9,15) = (/ & - & 0.15050e+02,0.13171e+02,0.11325e+02,0.10314e+02,0.98844e+01, & - & 0.10113e+02,0.11655e+02,0.13598e+02,0.15538e+02 /) - kao(:, 2, 9,15) = (/ & - & 0.15110e+02,0.13224e+02,0.11358e+02,0.10290e+02,0.98636e+01, & - & 0.10034e+02,0.11528e+02,0.13449e+02,0.15369e+02 /) - kao(:, 3, 9,15) = (/ & - & 0.15142e+02,0.13253e+02,0.11372e+02,0.10253e+02,0.98329e+01, & - & 0.99565e+01,0.11387e+02,0.13285e+02,0.15182e+02 /) - kao(:, 4, 9,15) = (/ & - & 0.15140e+02,0.13251e+02,0.11368e+02,0.10200e+02,0.97822e+01, & - & 0.98656e+01,0.11236e+02,0.13109e+02,0.14981e+02 /) - kao(:, 5, 9,15) = (/ & - & 0.15112e+02,0.13227e+02,0.11344e+02,0.10134e+02,0.97132e+01, & - & 0.97634e+01,0.11104e+02,0.12955e+02,0.14806e+02 /) - kao(:, 1,10,15) = (/ & - & 0.16679e+02,0.14596e+02,0.12639e+02,0.11713e+02,0.11234e+02, & - & 0.11344e+02,0.12833e+02,0.14972e+02,0.17110e+02 /) - kao(:, 2,10,15) = (/ & - & 0.16740e+02,0.14649e+02,0.12658e+02,0.11669e+02,0.11203e+02, & - & 0.11257e+02,0.12688e+02,0.14803e+02,0.16918e+02 /) - kao(:, 3,10,15) = (/ & - & 0.16768e+02,0.14675e+02,0.12658e+02,0.11609e+02,0.11161e+02, & - & 0.11169e+02,0.12530e+02,0.14619e+02,0.16708e+02 /) - kao(:, 4,10,15) = (/ & - & 0.16761e+02,0.14669e+02,0.12632e+02,0.11528e+02,0.11096e+02, & - & 0.11064e+02,0.12360e+02,0.14420e+02,0.16480e+02 /) - kao(:, 5,10,15) = (/ & - & 0.16723e+02,0.14636e+02,0.12592e+02,0.11437e+02,0.11017e+02, & - & 0.10938e+02,0.12210e+02,0.14245e+02,0.16279e+02 /) - kao(:, 1,11,15) = (/ & - & 0.18294e+02,0.16009e+02,0.13989e+02,0.13135e+02,0.12643e+02, & - & 0.12628e+02,0.13972e+02,0.16290e+02,0.18616e+02 /) - kao(:, 2,11,15) = (/ & - & 0.18347e+02,0.16056e+02,0.13990e+02,0.13069e+02,0.12593e+02, & - & 0.12524e+02,0.13808e+02,0.16097e+02,0.18396e+02 /) - kao(:, 3,11,15) = (/ & - & 0.18360e+02,0.16067e+02,0.13961e+02,0.12977e+02,0.12519e+02, & - & 0.12404e+02,0.13621e+02,0.15875e+02,0.18143e+02 /) - kao(:, 4,11,15) = (/ & - & 0.18335e+02,0.16046e+02,0.13912e+02,0.12870e+02,0.12428e+02, & - & 0.12262e+02,0.13438e+02,0.15668e+02,0.17906e+02 /) - kao(:, 5,11,15) = (/ & - & 0.18275e+02,0.15994e+02,0.13835e+02,0.12741e+02,0.12318e+02, & - & 0.12107e+02,0.13269e+02,0.15473e+02,0.17684e+02 /) - kao(:, 1,12,15) = (/ & - & 0.19924e+02,0.17435e+02,0.15328e+02,0.14570e+02,0.14103e+02, & - & 0.13966e+02,0.15137e+02,0.17574e+02,0.20085e+02 /) - kao(:, 2,12,15) = (/ & - & 0.19952e+02,0.17460e+02,0.15303e+02,0.14472e+02,0.14016e+02, & - & 0.13836e+02,0.14951e+02,0.17356e+02,0.19836e+02 /) - kao(:, 3,12,15) = (/ & - & 0.19950e+02,0.17459e+02,0.15252e+02,0.14354e+02,0.13911e+02, & - & 0.13674e+02,0.14736e+02,0.17121e+02,0.19567e+02 /) - kao(:, 4,12,15) = (/ & - & 0.19898e+02,0.17414e+02,0.15172e+02,0.14207e+02,0.13782e+02, & - & 0.13496e+02,0.14540e+02,0.16905e+02,0.19321e+02 /) - kao(:, 5,12,15) = (/ & - & 0.19813e+02,0.17339e+02,0.15067e+02,0.14045e+02,0.13635e+02, & - & 0.13302e+02,0.14349e+02,0.16691e+02,0.19076e+02 /) - kao(:, 1,13,15) = (/ & - & 0.21582e+02,0.18886e+02,0.16708e+02,0.15984e+02,0.15578e+02, & - & 0.15338e+02,0.16324e+02,0.18812e+02,0.21500e+02 /) - kao(:, 2,13,15) = (/ & - & 0.21595e+02,0.18898e+02,0.16645e+02,0.15860e+02,0.15448e+02, & - & 0.15169e+02,0.16117e+02,0.18583e+02,0.21237e+02 /) - kao(:, 3,13,15) = (/ & - & 0.21561e+02,0.18868e+02,0.16562e+02,0.15696e+02,0.15303e+02, & - & 0.14968e+02,0.15881e+02,0.18352e+02,0.20974e+02 /) - kao(:, 4,13,15) = (/ & - & 0.21483e+02,0.18800e+02,0.16445e+02,0.15517e+02,0.15132e+02, & - & 0.14742e+02,0.15661e+02,0.18119e+02,0.20709e+02 /) - kao(:, 5,13,15) = (/ & - & 0.21359e+02,0.18692e+02,0.16307e+02,0.15310e+02,0.14932e+02, & - & 0.14513e+02,0.15442e+02,0.17892e+02,0.20448e+02 /) - kao(:, 1, 1,16) = (/ & - & 0.54900e+01,0.48060e+01,0.41232e+01,0.34422e+01,0.34870e+01, & - & 0.43588e+01,0.52305e+01,0.61020e+01,0.65047e+01 /) - kao(:, 2, 1,16) = (/ & - & 0.54959e+01,0.48102e+01,0.41246e+01,0.34396e+01,0.34389e+01, & - & 0.42986e+01,0.51583e+01,0.60178e+01,0.64181e+01 /) - kao(:, 3, 1,16) = (/ & - & 0.54964e+01,0.48111e+01,0.41257e+01,0.34404e+01,0.33906e+01, & - & 0.42383e+01,0.50859e+01,0.59334e+01,0.63255e+01 /) - kao(:, 4, 1,16) = (/ & - & 0.54872e+01,0.48032e+01,0.41193e+01,0.34354e+01,0.33485e+01, & - & 0.41856e+01,0.50227e+01,0.58596e+01,0.62437e+01 /) - kao(:, 5, 1,16) = (/ & - & 0.54677e+01,0.47864e+01,0.41051e+01,0.34238e+01,0.33099e+01, & - & 0.41373e+01,0.49647e+01,0.57920e+01,0.61726e+01 /) - kao(:, 1, 2,16) = (/ & - & 0.65993e+01,0.57796e+01,0.49604e+01,0.41421e+01,0.42011e+01, & - & 0.52514e+01,0.63014e+01,0.73516e+01,0.80279e+01 /) - kao(:, 2, 2,16) = (/ & - & 0.66032e+01,0.57810e+01,0.49597e+01,0.41395e+01,0.41430e+01, & - & 0.51787e+01,0.62144e+01,0.72499e+01,0.79170e+01 /) - kao(:, 3, 2,16) = (/ & - & 0.66114e+01,0.57864e+01,0.49618e+01,0.41380e+01,0.40849e+01, & - & 0.51061e+01,0.61273e+01,0.71483e+01,0.78058e+01 /) - kao(:, 4, 2,16) = (/ & - & 0.66055e+01,0.57814e+01,0.49573e+01,0.41341e+01,0.40341e+01, & - & 0.50426e+01,0.60510e+01,0.70593e+01,0.77043e+01 /) - kao(:, 5, 2,16) = (/ & - & 0.65867e+01,0.57651e+01,0.49435e+01,0.41221e+01,0.39863e+01, & - & 0.49829e+01,0.59794e+01,0.69758e+01,0.76124e+01 /) - kao(:, 1, 3,16) = (/ & - & 0.79380e+01,0.69526e+01,0.59676e+01,0.49832e+01,0.50788e+01, & - & 0.63485e+01,0.76181e+01,0.88875e+01,0.99377e+01 /) - kao(:, 2, 3,16) = (/ & - & 0.79519e+01,0.69640e+01,0.59765e+01,0.49895e+01,0.50033e+01, & - & 0.62541e+01,0.75048e+01,0.87554e+01,0.97869e+01 /) - kao(:, 3, 3,16) = (/ & - & 0.79564e+01,0.69660e+01,0.59762e+01,0.49871e+01,0.49341e+01, & - & 0.61676e+01,0.74011e+01,0.86343e+01,0.96531e+01 /) - kao(:, 4, 3,16) = (/ & - & 0.79604e+01,0.69678e+01,0.59753e+01,0.49833e+01,0.48716e+01, & - & 0.60895e+01,0.73073e+01,0.85250e+01,0.95280e+01 /) - kao(:, 5, 3,16) = (/ & - & 0.79454e+01,0.69546e+01,0.59641e+01,0.49739e+01,0.48117e+01, & - & 0.60146e+01,0.72174e+01,0.84201e+01,0.94106e+01 /) - kao(:, 1, 4,16) = (/ & - & 0.95482e+01,0.83619e+01,0.71758e+01,0.59904e+01,0.61617e+01, & - & 0.77021e+01,0.92425e+01,0.10783e+02,0.12199e+02 /) - kao(:, 2, 4,16) = (/ & - & 0.95751e+01,0.83849e+01,0.71952e+01,0.60057e+01,0.60507e+01, & - & 0.75634e+01,0.90760e+01,0.10588e+02,0.11979e+02 /) - kao(:, 3, 4,16) = (/ & - & 0.95851e+01,0.83928e+01,0.72008e+01,0.60093e+01,0.59519e+01, & - & 0.74398e+01,0.89277e+01,0.10415e+02,0.11784e+02 /) - kao(:, 4, 4,16) = (/ & - & 0.95899e+01,0.83956e+01,0.72016e+01,0.60083e+01,0.58751e+01, & - & 0.73438e+01,0.88125e+01,0.10281e+02,0.11628e+02 /) - kao(:, 5, 4,16) = (/ & - & 0.95802e+01,0.83858e+01,0.71919e+01,0.59984e+01,0.58004e+01, & - & 0.72505e+01,0.87005e+01,0.10150e+02,0.11482e+02 /) - kao(:, 1, 5,16) = (/ & - & 0.11467e+02,0.10041e+02,0.86153e+01,0.71899e+01,0.74662e+01, & - & 0.93327e+01,0.11199e+02,0.13065e+02,0.14858e+02 /) - kao(:, 2, 5,16) = (/ & - & 0.11518e+02,0.10085e+02,0.86526e+01,0.72201e+01,0.73208e+01, & - & 0.91509e+01,0.10981e+02,0.12811e+02,0.14568e+02 /) - kao(:, 3, 5,16) = (/ & - & 0.11535e+02,0.10099e+02,0.86636e+01,0.72282e+01,0.71844e+01, & - & 0.89805e+01,0.10776e+02,0.12572e+02,0.14298e+02 /) - kao(:, 4, 5,16) = (/ & - & 0.11542e+02,0.10105e+02,0.86677e+01,0.72309e+01,0.70636e+01, & - & 0.88295e+01,0.10595e+02,0.12361e+02,0.14056e+02 /) - kao(:, 5, 5,16) = (/ & - & 0.11528e+02,0.10092e+02,0.86561e+01,0.72209e+01,0.69634e+01, & - & 0.87042e+01,0.10445e+02,0.12185e+02,0.13857e+02 /) - kao(:, 1, 6,16) = (/ & - & 0.13743e+02,0.12032e+02,0.10321e+02,0.86104e+01,0.90301e+01, & - & 0.11288e+02,0.13545e+02,0.15802e+02,0.18010e+02 /) - kao(:, 2, 6,16) = (/ & - & 0.13809e+02,0.12090e+02,0.10370e+02,0.86513e+01,0.88422e+01, & - & 0.11053e+02,0.13263e+02,0.15473e+02,0.17638e+02 /) - kao(:, 3, 6,16) = (/ & - & 0.13850e+02,0.12125e+02,0.10400e+02,0.86753e+01,0.86607e+01, & - & 0.10826e+02,0.12991e+02,0.15156e+02,0.17275e+02 /) - kao(:, 4, 6,16) = (/ & - & 0.13866e+02,0.12138e+02,0.10411e+02,0.86837e+01,0.84930e+01, & - & 0.10616e+02,0.12739e+02,0.14862e+02,0.16940e+02 /) - kao(:, 5, 6,16) = (/ & - & 0.13850e+02,0.12124e+02,0.10399e+02,0.86732e+01,0.83442e+01, & - & 0.10430e+02,0.12516e+02,0.14602e+02,0.16644e+02 /) - kao(:, 1, 7,16) = (/ & - & 0.16450e+02,0.14400e+02,0.12350e+02,0.10300e+02,0.10874e+02, & - & 0.13593e+02,0.16311e+02,0.19030e+02,0.21722e+02 /) - kao(:, 2, 7,16) = (/ & - & 0.16525e+02,0.14465e+02,0.12405e+02,0.10346e+02,0.10632e+02, & - & 0.13290e+02,0.15948e+02,0.18606e+02,0.21239e+02 /) - kao(:, 3, 7,16) = (/ & - & 0.16563e+02,0.14499e+02,0.12434e+02,0.10370e+02,0.10395e+02, & - & 0.12994e+02,0.15592e+02,0.18191e+02,0.20762e+02 /) - kao(:, 4, 7,16) = (/ & - & 0.16590e+02,0.14522e+02,0.12454e+02,0.10386e+02,0.10172e+02, & - & 0.12715e+02,0.15258e+02,0.17801e+02,0.20317e+02 /) - kao(:, 5, 7,16) = (/ & - & 0.16576e+02,0.14509e+02,0.12443e+02,0.10377e+02,0.99688e+01, & - & 0.12461e+02,0.14953e+02,0.17445e+02,0.19913e+02 /) - kao(:, 1, 8,16) = (/ & - & 0.19629e+02,0.17181e+02,0.14733e+02,0.12285e+02,0.13022e+02, & - & 0.16277e+02,0.19532e+02,0.22787e+02,0.26029e+02 /) - kao(:, 2, 8,16) = (/ & - & 0.19728e+02,0.17267e+02,0.14807e+02,0.12346e+02,0.12711e+02, & - & 0.15888e+02,0.19066e+02,0.22243e+02,0.25406e+02 /) - kao(:, 3, 8,16) = (/ & - & 0.19768e+02,0.17302e+02,0.14837e+02,0.12371e+02,0.12399e+02, & - & 0.15499e+02,0.18599e+02,0.21698e+02,0.24782e+02 /) - kao(:, 4, 8,16) = (/ & - & 0.19773e+02,0.17307e+02,0.14840e+02,0.12374e+02,0.12111e+02, & - & 0.15139e+02,0.18167e+02,0.21194e+02,0.24210e+02 /) - kao(:, 5, 8,16) = (/ & - & 0.19744e+02,0.17281e+02,0.14818e+02,0.12356e+02,0.11840e+02, & - & 0.14800e+02,0.17760e+02,0.20720e+02,0.23667e+02 /) - kao(:, 1, 9,16) = (/ & - & 0.23312e+02,0.20403e+02,0.17494e+02,0.14584e+02,0.15488e+02, & - & 0.19360e+02,0.23231e+02,0.27103e+02,0.30970e+02 /) - kao(:, 2, 9,16) = (/ & - & 0.23439e+02,0.20514e+02,0.17588e+02,0.14663e+02,0.15085e+02, & - & 0.18856e+02,0.22627e+02,0.26397e+02,0.30166e+02 /) - kao(:, 3, 9,16) = (/ & - & 0.23492e+02,0.20560e+02,0.17628e+02,0.14696e+02,0.14687e+02, & - & 0.18356e+02,0.22027e+02,0.25697e+02,0.29367e+02 /) - kao(:, 4, 9,16) = (/ & - & 0.23479e+02,0.20549e+02,0.17619e+02,0.14689e+02,0.14321e+02, & - & 0.17895e+02,0.21474e+02,0.25052e+02,0.28629e+02 /) - kao(:, 5, 9,16) = (/ & - & 0.23411e+02,0.20489e+02,0.17567e+02,0.14646e+02,0.13982e+02, & - & 0.17451e+02,0.20941e+02,0.24431e+02,0.27917e+02 /) - kao(:, 1,10,16) = (/ & - & 0.27592e+02,0.24147e+02,0.20702e+02,0.17264e+02,0.18240e+02, & - & 0.22793e+02,0.27352e+02,0.31910e+02,0.36473e+02 /) - kao(:, 2,10,16) = (/ & - & 0.27703e+02,0.24245e+02,0.20786e+02,0.17327e+02,0.17749e+02, & - & 0.22147e+02,0.26577e+02,0.31006e+02,0.35436e+02 /) - kao(:, 3,10,16) = (/ & - & 0.27743e+02,0.24279e+02,0.20816e+02,0.17352e+02,0.17266e+02, & - & 0.21525e+02,0.25830e+02,0.30134e+02,0.34441e+02 /) - kao(:, 4,10,16) = (/ & - & 0.27709e+02,0.24250e+02,0.20790e+02,0.17331e+02,0.16811e+02, & - & 0.20946e+02,0.25135e+02,0.29324e+02,0.33510e+02 /) - kao(:, 5,10,16) = (/ & - & 0.27598e+02,0.24153e+02,0.20707e+02,0.17262e+02,0.16378e+02, & - & 0.20388e+02,0.24466e+02,0.28543e+02,0.32622e+02 /) - kao(:, 1,11,16) = (/ & - & 0.32570e+02,0.28502e+02,0.24434e+02,0.20393e+02,0.21083e+02, & - & 0.26245e+02,0.31494e+02,0.36742e+02,0.41994e+02 /) - kao(:, 2,11,16) = (/ & - & 0.32601e+02,0.28529e+02,0.24458e+02,0.20386e+02,0.20492e+02, & - & 0.25469e+02,0.30563e+02,0.35657e+02,0.40747e+02 /) - kao(:, 3,11,16) = (/ & - & 0.32535e+02,0.28472e+02,0.24408e+02,0.20345e+02,0.19916e+02, & - & 0.24733e+02,0.29679e+02,0.34625e+02,0.39568e+02 /) - kao(:, 4,11,16) = (/ & - & 0.32390e+02,0.28345e+02,0.24301e+02,0.20256e+02,0.19358e+02, & - & 0.24023e+02,0.28827e+02,0.33631e+02,0.38435e+02 /) - kao(:, 5,11,16) = (/ & - & 0.32175e+02,0.28157e+02,0.24140e+02,0.20122e+02,0.18819e+02, & - & 0.23330e+02,0.27996e+02,0.32661e+02,0.37328e+02 /) - kao(:, 1,12,16) = (/ & - & 0.38135e+02,0.33371e+02,0.28607e+02,0.23891e+02,0.24203e+02, & - & 0.29981e+02,0.35977e+02,0.41973e+02,0.47971e+02 /) - kao(:, 2,12,16) = (/ & - & 0.38033e+02,0.33282e+02,0.28531e+02,0.23779e+02,0.23491e+02, & - & 0.29038e+02,0.34845e+02,0.40652e+02,0.46464e+02 /) - kao(:, 3,12,16) = (/ & - & 0.37806e+02,0.33084e+02,0.28361e+02,0.23639e+02,0.22788e+02, & - & 0.28150e+02,0.33780e+02,0.39409e+02,0.45036e+02 /) - kao(:, 4,12,16) = (/ & - & 0.37497e+02,0.32813e+02,0.28129e+02,0.23446e+02,0.22100e+02, & - & 0.27270e+02,0.32724e+02,0.38179e+02,0.43632e+02 /) - kao(:, 5,12,16) = (/ & - & 0.37099e+02,0.32465e+02,0.27831e+02,0.23198e+02,0.21440e+02, & - & 0.26398e+02,0.31678e+02,0.36957e+02,0.42237e+02 /) - kao(:, 1,13,16) = (/ & - & 0.44217e+02,0.38692e+02,0.33167e+02,0.27730e+02,0.27605e+02, & - & 0.33969e+02,0.40763e+02,0.47556e+02,0.54352e+02 /) - kao(:, 2,13,16) = (/ & - & 0.43915e+02,0.38428e+02,0.32941e+02,0.27455e+02,0.26738e+02, & - & 0.32787e+02,0.39345e+02,0.45901e+02,0.52455e+02 /) - kao(:, 3,13,16) = (/ & - & 0.43489e+02,0.38055e+02,0.32622e+02,0.27188e+02,0.25861e+02, & - & 0.31686e+02,0.38022e+02,0.44359e+02,0.50700e+02 /) - kao(:, 4,13,16) = (/ & - & 0.42951e+02,0.37585e+02,0.32219e+02,0.26853e+02,0.25006e+02, & - & 0.30590e+02,0.36708e+02,0.42826e+02,0.48946e+02 /) - kao(:, 5,13,16) = (/ & - & 0.42298e+02,0.37013e+02,0.31729e+02,0.26445e+02,0.24180e+02, & - & 0.29511e+02,0.35413e+02,0.41314e+02,0.47218e+02 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:, 1,13, 1) = (/ & - & 0.40633e-08,0.64718e-06,0.79567e-06,0.81264e-06,0.25080e-07 /) - kbo(:, 2,13, 1) = (/ & - & 0.37596e-08,0.70429e-06,0.90855e-06,0.96432e-06,0.28292e-07 /) - kbo(:, 3,13, 1) = (/ & - & 0.34982e-08,0.76370e-06,0.10316e-05,0.11472e-05,0.31265e-07 /) - kbo(:, 4,13, 1) = (/ & - & 0.32707e-08,0.82834e-06,0.11577e-05,0.13387e-05,0.34928e-07 /) - kbo(:, 5,13, 1) = (/ & - & 0.30710e-08,0.90252e-06,0.12962e-05,0.15206e-05,0.38859e-07 /) - kbo(:, 1,14, 1) = (/ & - & 0.33026e-08,0.53592e-06,0.66171e-06,0.67633e-06,0.20767e-07 /) - kbo(:, 2,14, 1) = (/ & - & 0.30574e-08,0.57959e-06,0.75386e-06,0.80395e-06,0.23334e-07 /) - kbo(:, 3,14, 1) = (/ & - & 0.28461e-08,0.62897e-06,0.85486e-06,0.95745e-06,0.25841e-07 /) - kbo(:, 4,14, 1) = (/ & - & 0.26621e-08,0.68352e-06,0.96132e-06,0.11148e-05,0.28862e-07 /) - kbo(:, 5,14, 1) = (/ & - & 0.25005e-08,0.74517e-06,0.10739e-05,0.12632e-05,0.32093e-07 /) - kbo(:, 1,15, 1) = (/ & - & 0.26821e-08,0.44081e-06,0.55093e-06,0.56465e-06,0.17186e-07 /) - kbo(:, 2,15, 1) = (/ & - & 0.24845e-08,0.47773e-06,0.62636e-06,0.67180e-06,0.19234e-07 /) - kbo(:, 3,15, 1) = (/ & - & 0.23140e-08,0.51811e-06,0.70791e-06,0.79658e-06,0.21348e-07 /) - kbo(:, 4,15, 1) = (/ & - & 0.21654e-08,0.56416e-06,0.79893e-06,0.92873e-06,0.23832e-07 /) - kbo(:, 5,15, 1) = (/ & - & 0.20347e-08,0.61535e-06,0.88985e-06,0.10499e-05,0.26485e-07 /) - kbo(:, 1,16, 1) = (/ & - & 0.21775e-08,0.36254e-06,0.45870e-06,0.47125e-06,0.14211e-07 /) - kbo(:, 2,16, 1) = (/ & - & 0.20183e-08,0.39376e-06,0.52053e-06,0.56163e-06,0.15869e-07 /) - kbo(:, 3,16, 1) = (/ & - & 0.18808e-08,0.42687e-06,0.58699e-06,0.66386e-06,0.17627e-07 /) - kbo(:, 4,16, 1) = (/ & - & 0.17608e-08,0.46559e-06,0.66388e-06,0.77063e-06,0.19664e-07 /) - kbo(:, 5,16, 1) = (/ & - & 0.16552e-08,0.50747e-06,0.73699e-06,0.87249e-06,0.21844e-07 /) - kbo(:, 1,17, 1) = (/ & - & 0.17682e-08,0.29836e-06,0.38104e-06,0.39314e-06,0.11735e-07 /) - kbo(:, 2,17, 1) = (/ & - & 0.16399e-08,0.32493e-06,0.43215e-06,0.46897e-06,0.13077e-07 /) - kbo(:, 3,17, 1) = (/ & - & 0.15290e-08,0.35203e-06,0.48665e-06,0.55328e-06,0.14535e-07 /) - kbo(:, 4,17, 1) = (/ & - & 0.14321e-08,0.38383e-06,0.55033e-06,0.63844e-06,0.16208e-07 /) - kbo(:, 5,17, 1) = (/ & - & 0.13468e-08,0.41822e-06,0.60950e-06,0.72376e-06,0.17995e-07 /) - kbo(:, 1,18, 1) = (/ & - & 0.14362e-08,0.24560e-06,0.31667e-06,0.32797e-06,0.96831e-08 /) - kbo(:, 2,18, 1) = (/ & - & 0.13327e-08,0.26784e-06,0.35872e-06,0.39134e-06,0.10773e-07 /) - kbo(:, 3,18, 1) = (/ & - & 0.12432e-08,0.29008e-06,0.40334e-06,0.46026e-06,0.11980e-07 /) - kbo(:, 4,18, 1) = (/ & - & 0.11650e-08,0.31637e-06,0.45583e-06,0.52880e-06,0.13350e-07 /) - kbo(:, 5,18, 1) = (/ & - & 0.10960e-08,0.34503e-06,0.50363e-06,0.59967e-06,0.14815e-07 /) - kbo(:, 1,19, 1) = (/ & - & 0.11667e-08,0.20231e-06,0.26313e-06,0.27359e-06,0.79934e-08 /) - kbo(:, 2,19, 1) = (/ & - & 0.10833e-08,0.22085e-06,0.29760e-06,0.32620e-06,0.88807e-08 /) - kbo(:, 3,19, 1) = (/ & - & 0.10110e-08,0.23912e-06,0.33423e-06,0.38271e-06,0.98771e-08 /) - kbo(:, 4,19, 1) = (/ & - & 0.94778e-09,0.26073e-06,0.37685e-06,0.43791e-06,0.11002e-07 /) - kbo(:, 5,19, 1) = (/ & - & 0.89198e-09,0.28425e-06,0.41589e-06,0.49682e-06,0.12204e-07 /) - kbo(:, 1,20, 1) = (/ & - & 0.94668e-09,0.16735e-06,0.21822e-06,0.22914e-06,0.66237e-08 /) - kbo(:, 2,20, 1) = (/ & - & 0.87956e-09,0.18255e-06,0.24770e-06,0.27290e-06,0.73470e-08 /) - kbo(:, 3,20, 1) = (/ & - & 0.82132e-09,0.19776e-06,0.27786e-06,0.31913e-06,0.81732e-08 /) - kbo(:, 4,20, 1) = (/ & - & 0.77032e-09,0.21557e-06,0.31197e-06,0.36380e-06,0.91019e-08 /) - kbo(:, 5,20, 1) = (/ & - & 0.72528e-09,0.23458e-06,0.34449e-06,0.41257e-06,0.10084e-07 /) - kbo(:, 1,21, 1) = (/ & - & 0.76809e-09,0.13858e-06,0.18138e-06,0.19188e-06,0.54929e-08 /) - kbo(:, 2,21, 1) = (/ & - & 0.71408e-09,0.15088e-06,0.20614e-06,0.22835e-06,0.60825e-08 /) - kbo(:, 3,21, 1) = (/ & - & 0.66717e-09,0.16366e-06,0.23111e-06,0.26622e-06,0.67680e-08 /) - kbo(:, 4,21, 1) = (/ & - & 0.62605e-09,0.17816e-06,0.25834e-06,0.30242e-06,0.75344e-08 /) - kbo(:, 5,21, 1) = (/ & - & 0.58970e-09,0.19374e-06,0.28542e-06,0.34222e-06,0.83394e-08 /) - kbo(:, 1,22, 1) = (/ & - & 0.62013e-09,0.11547e-06,0.15212e-06,0.16227e-06,0.45926e-08 /) - kbo(:, 2,22, 1) = (/ & - & 0.57709e-09,0.12552e-06,0.17211e-06,0.19265e-06,0.50728e-08 /) - kbo(:, 3,22, 1) = (/ & - & 0.53964e-09,0.13619e-06,0.19363e-06,0.22402e-06,0.56454e-08 /) - kbo(:, 4,22, 1) = (/ & - & 0.50675e-09,0.14805e-06,0.21557e-06,0.25320e-06,0.62805e-08 /) - kbo(:, 5,22, 1) = (/ & - & 0.47764e-09,0.16097e-06,0.23799e-06,0.28574e-06,0.69414e-08 /) - kbo(:, 1,23, 1) = (/ & - & 0.50055e-09,0.96165e-07,0.12776e-06,0.13752e-06,0.37933e-08 /) - kbo(:, 2,23, 1) = (/ & - & 0.46627e-09,0.10421e-06,0.14387e-06,0.16226e-06,0.42154e-08 /) - kbo(:, 3,23, 1) = (/ & - & 0.43638e-09,0.11320e-06,0.16240e-06,0.18806e-06,0.46761e-08 /) - kbo(:, 4,23, 1) = (/ & - & 0.41009e-09,0.12312e-06,0.18002e-06,0.21214e-06,0.51724e-08 /) - kbo(:, 5,23, 1) = (/ & - & 0.38679e-09,0.13380e-06,0.19835e-06,0.23836e-06,0.56863e-08 /) - kbo(:, 1,24, 1) = (/ & - & 0.40384e-09,0.80174e-07,0.10742e-06,0.11665e-06,0.31435e-08 /) - kbo(:, 2,24, 1) = (/ & - & 0.37656e-09,0.86611e-07,0.12062e-06,0.13694e-06,0.34746e-08 /) - kbo(:, 3,24, 1) = (/ & - & 0.35273e-09,0.94203e-07,0.13610e-06,0.15729e-06,0.38586e-08 /) - kbo(:, 4,24, 1) = (/ & - & 0.33174e-09,0.10246e-06,0.15035e-06,0.17775e-06,0.42707e-08 /) - kbo(:, 5,24, 1) = (/ & - & 0.31310e-09,0.11122e-06,0.16543e-06,0.19917e-06,0.47020e-08 /) - kbo(:, 1,25, 1) = (/ & - & 0.32562e-09,0.66785e-07,0.90447e-07,0.99059e-07,0.26134e-08 /) - kbo(:, 2,25, 1) = (/ & - & 0.30393e-09,0.72133e-07,0.10139e-06,0.11571e-06,0.28872e-08 /) - kbo(:, 3,25, 1) = (/ & - & 0.28495e-09,0.78448e-07,0.11385e-06,0.13178e-06,0.32061e-08 /) - kbo(:, 4,25, 1) = (/ & - & 0.26821e-09,0.85339e-07,0.12563e-06,0.14914e-06,0.35489e-08 /) - kbo(:, 5,25, 1) = (/ & - & 0.25332e-09,0.92445e-07,0.13814e-06,0.16674e-06,0.39060e-08 /) - kbo(:, 1,26, 1) = (/ & - & 0.26224e-09,0.55680e-07,0.76369e-07,0.84400e-07,0.21759e-08 /) - kbo(:, 2,26, 1) = (/ & - & 0.24504e-09,0.60204e-07,0.85423e-07,0.97885e-07,0.24118e-08 /) - kbo(:, 3,26, 1) = (/ & - & 0.22996e-09,0.65477e-07,0.95321e-07,0.11093e-06,0.26774e-08 /) - kbo(:, 4,26, 1) = (/ & - & 0.21663e-09,0.71188e-07,0.10529e-06,0.12544e-06,0.29615e-08 /) - kbo(:, 5,26, 1) = (/ & - & 0.20475e-09,0.76940e-07,0.11556e-06,0.13977e-06,0.32569e-08 /) - kbo(:, 1,27, 1) = (/ & - & 0.21120e-09,0.46382e-07,0.63894e-07,0.71379e-07,0.18178e-08 /) - kbo(:, 2,27, 1) = (/ & - & 0.19756e-09,0.50278e-07,0.72033e-07,0.82909e-07,0.20181e-08 /) - kbo(:, 3,27, 1) = (/ & - & 0.18557e-09,0.54670e-07,0.79953e-07,0.93505e-07,0.22396e-08 /) - kbo(:, 4,27, 1) = (/ & - & 0.17496e-09,0.59408e-07,0.88179e-07,0.10553e-06,0.24737e-08 /) - kbo(:, 5,27, 1) = (/ & - & 0.16549e-09,0.64025e-07,0.96696e-07,0.11704e-06,0.27092e-08 /) - kbo(:, 1,28, 1) = (/ & - & 0.17010e-09,0.38631e-07,0.53773e-07,0.60579e-07,0.15220e-08 /) - kbo(:, 2,28, 1) = (/ & - & 0.15928e-09,0.42001e-07,0.60660e-07,0.69727e-07,0.16901e-08 /) - kbo(:, 3,28, 1) = (/ & - & 0.14976e-09,0.45661e-07,0.67065e-07,0.78845e-07,0.18696e-08 /) - kbo(:, 4,28, 1) = (/ & - & 0.14131e-09,0.49571e-07,0.73809e-07,0.88481e-07,0.20611e-08 /) - kbo(:, 5,28, 1) = (/ & - & 0.13376e-09,0.53304e-07,0.80910e-07,0.98017e-07,0.22565e-08 /) - kbo(:, 1,29, 1) = (/ & - & 0.13696e-09,0.32270e-07,0.45392e-07,0.51438e-07,0.12721e-08 /) - kbo(:, 2,29, 1) = (/ & - & 0.12839e-09,0.35079e-07,0.50946e-07,0.58726e-07,0.14118e-08 /) - kbo(:, 3,29, 1) = (/ & - & 0.12082e-09,0.38150e-07,0.56258e-07,0.66493e-07,0.15628e-08 /) - kbo(:, 4,29, 1) = (/ & - & 0.11410e-09,0.41324e-07,0.61843e-07,0.74387e-07,0.17205e-08 /) - kbo(:, 5,29, 1) = (/ & - & 0.10808e-09,0.44387e-07,0.67739e-07,0.82216e-07,0.18745e-08 /) - kbo(:, 1,30, 1) = (/ & - & 0.11029e-09,0.26970e-07,0.38330e-07,0.43698e-07,0.10655e-08 /) - kbo(:, 2,30, 1) = (/ & - & 0.10349e-09,0.29319e-07,0.42739e-07,0.49552e-07,0.11823e-08 /) - kbo(:, 3,30, 1) = (/ & - & 0.97483e-10,0.31869e-07,0.47210e-07,0.56057e-07,0.13038e-08 /) - kbo(:, 4,30, 1) = (/ & - & 0.92133e-10,0.34436e-07,0.51812e-07,0.62485e-07,0.14285e-08 /) - kbo(:, 5,30, 1) = (/ & - & 0.87340e-10,0.36953e-07,0.56709e-07,0.68921e-07,0.15563e-08 /) - kbo(:, 1,31, 1) = (/ & - & 0.88806e-10,0.22555e-07,0.32386e-07,0.37129e-07,0.89029e-09 /) - kbo(:, 2,31, 1) = (/ & - & 0.83417e-10,0.24519e-07,0.35921e-07,0.41870e-07,0.98548e-09 /) - kbo(:, 3,31, 1) = (/ & - & 0.78644e-10,0.26638e-07,0.39609e-07,0.47273e-07,0.10854e-08 /) - kbo(:, 4,31, 1) = (/ & - & 0.74388e-10,0.28694e-07,0.43423e-07,0.52435e-07,0.11880e-08 /) - kbo(:, 5,31, 1) = (/ & - & 0.70568e-10,0.30776e-07,0.47411e-07,0.57750e-07,0.12931e-08 /) - kbo(:, 1,32, 1) = (/ & - & 0.71507e-10,0.18870e-07,0.27332e-07,0.31309e-07,0.74436e-09 /) - kbo(:, 2,32, 1) = (/ & - & 0.67235e-10,0.20512e-07,0.30189e-07,0.35407e-07,0.82294e-09 /) - kbo(:, 3,32, 1) = (/ & - & 0.63444e-10,0.22259e-07,0.33218e-07,0.39730e-07,0.90483e-09 /) - kbo(:, 4,32, 1) = (/ & - & 0.60058e-10,0.23923e-07,0.36405e-07,0.43976e-07,0.98908e-09 /) - kbo(:, 5,32, 1) = (/ & - & 0.57015e-10,0.25634e-07,0.39548e-07,0.48346e-07,0.10750e-08 /) - kbo(:, 1,33, 1) = (/ & - & 0.57586e-10,0.15779e-07,0.22950e-07,0.26415e-07,0.62256e-09 /) - kbo(:, 2,33, 1) = (/ & - & 0.54199e-10,0.17153e-07,0.25354e-07,0.29904e-07,0.68734e-09 /) - kbo(:, 3,33, 1) = (/ & - & 0.51188e-10,0.18569e-07,0.27869e-07,0.33404e-07,0.75467e-09 /) - kbo(:, 4,33, 1) = (/ & - & 0.48493e-10,0.19935e-07,0.30437e-07,0.36856e-07,0.82369e-09 /) - kbo(:, 5,33, 1) = (/ & - & 0.46069e-10,0.21345e-07,0.32988e-07,0.40478e-07,0.89402e-09 /) - kbo(:, 1,34, 1) = (/ & - & 0.46487e-10,0.13161e-07,0.19216e-07,0.22212e-07,0.51910e-09 /) - kbo(:, 2,34, 1) = (/ & - & 0.43789e-10,0.14301e-07,0.21182e-07,0.25090e-07,0.57247e-09 /) - kbo(:, 3,34, 1) = (/ & - & 0.41386e-10,0.15447e-07,0.23208e-07,0.27938e-07,0.62767e-09 /) - kbo(:, 4,34, 1) = (/ & - & 0.39234e-10,0.16571e-07,0.25347e-07,0.30795e-07,0.68426e-09 /) - kbo(:, 5,34, 1) = (/ & - & 0.37294e-10,0.17725e-07,0.27392e-07,0.33781e-07,0.74179e-09 /) - kbo(:, 1,35, 1) = (/ & - & 0.37756e-10,0.10890e-07,0.15882e-07,0.18441e-07,0.42871e-09 /) - kbo(:, 2,35, 1) = (/ & - & 0.35581e-10,0.11830e-07,0.17514e-07,0.20810e-07,0.47251e-09 /) - kbo(:, 3,35, 1) = (/ & - & 0.33643e-10,0.12757e-07,0.19184e-07,0.23148e-07,0.51769e-09 /) - kbo(:, 4,35, 1) = (/ & - & 0.31905e-10,0.13682e-07,0.20941e-07,0.25477e-07,0.56394e-09 /) - kbo(:, 5,35, 1) = (/ & - & 0.30338e-10,0.14628e-07,0.22613e-07,0.27948e-07,0.61100e-09 /) - kbo(:, 1,36, 1) = (/ & - & 0.30872e-10,0.89290e-08,0.13007e-07,0.15108e-07,0.35034e-09 /) - kbo(:, 2,36, 1) = (/ & - & 0.29096e-10,0.96995e-08,0.14343e-07,0.17051e-07,0.38609e-09 /) - kbo(:, 3,36, 1) = (/ & - & 0.27513e-10,0.10456e-07,0.15713e-07,0.18968e-07,0.42296e-09 /) - kbo(:, 4,36, 1) = (/ & - & 0.26093e-10,0.11213e-07,0.17153e-07,0.20875e-07,0.46073e-09 /) - kbo(:, 5,36, 1) = (/ & - & 0.24812e-10,0.11987e-07,0.18522e-07,0.22899e-07,0.49916e-09 /) - kbo(:, 1,37, 1) = (/ & - & 0.25479e-10,0.72338e-08,0.10508e-07,0.12165e-07,0.28268e-09 /) - kbo(:, 2,37, 1) = (/ & - & 0.24002e-10,0.78593e-08,0.11594e-07,0.13747e-07,0.31173e-09 /) - kbo(:, 3,37, 1) = (/ & - & 0.22687e-10,0.84845e-08,0.12712e-07,0.15315e-07,0.34178e-09 /) - kbo(:, 4,37, 1) = (/ & - & 0.21508e-10,0.90997e-08,0.13892e-07,0.16886e-07,0.37260e-09 /) - kbo(:, 5,37, 1) = (/ & - & 0.20446e-10,0.97322e-08,0.15012e-07,0.18526e-07,0.40398e-09 /) - kbo(:, 1,38, 1) = (/ & - & 0.21041e-10,0.58565e-08,0.84831e-08,0.97892e-08,0.22791e-09 /) - kbo(:, 2,38, 1) = (/ & - & 0.19811e-10,0.63636e-08,0.93619e-08,0.11072e-07,0.25148e-09 /) - kbo(:, 3,38, 1) = (/ & - & 0.18717e-10,0.68784e-08,0.10276e-07,0.12360e-07,0.27595e-09 /) - kbo(:, 4,38, 1) = (/ & - & 0.17738e-10,0.73792e-08,0.11234e-07,0.13638e-07,0.30109e-09 /) - kbo(:, 5,38, 1) = (/ & - & 0.16856e-10,0.78971e-08,0.12166e-07,0.14977e-07,0.32671e-09 /) - kbo(:, 1,39, 1) = (/ & - & 0.17377e-10,0.47418e-08,0.68561e-08,0.78795e-08,0.18373e-09 /) - kbo(:, 2,39, 1) = (/ & - & 0.16353e-10,0.51532e-08,0.75620e-08,0.89128e-08,0.20284e-09 /) - kbo(:, 3,39, 1) = (/ & - & 0.15443e-10,0.55752e-08,0.83069e-08,0.99666e-08,0.22279e-09 /) - kbo(:, 4,39, 1) = (/ & - & 0.14629e-10,0.59857e-08,0.90872e-08,0.11011e-07,0.24327e-09 /) - kbo(:, 5,39, 1) = (/ & - & 0.13896e-10,0.64086e-08,0.98616e-08,0.12104e-07,0.26420e-09 /) - kbo(:, 1,40, 1) = (/ & - & 0.14445e-10,0.38091e-08,0.54799e-08,0.62754e-08,0.14679e-09 /) - kbo(:, 2,40, 1) = (/ & - & 0.13581e-10,0.41391e-08,0.60530e-08,0.70909e-08,0.16220e-09 /) - kbo(:, 3,40, 1) = (/ & - & 0.12815e-10,0.44888e-08,0.66555e-08,0.79532e-08,0.17842e-09 /) - kbo(:, 4,40, 1) = (/ & - & 0.12131e-10,0.48207e-08,0.72855e-08,0.88071e-08,0.19509e-09 /) - kbo(:, 5,40, 1) = (/ & - & 0.11516e-10,0.51646e-08,0.79268e-08,0.96932e-08,0.21214e-09 /) - kbo(:, 1,41, 1) = (/ & - & 0.12021e-10,0.30566e-08,0.43606e-08,0.49921e-08,0.11713e-09 /) - kbo(:, 2,41, 1) = (/ & - & 0.11291e-10,0.33205e-08,0.48340e-08,0.56256e-08,0.12954e-09 /) - kbo(:, 3,41, 1) = (/ & - & 0.10645e-10,0.36053e-08,0.53261e-08,0.63473e-08,0.14269e-09 /) - kbo(:, 4,41, 1) = (/ & - & 0.10069e-10,0.38782e-08,0.58347e-08,0.70386e-08,0.15624e-09 /) - kbo(:, 5,41, 1) = (/ & - & 0.95520e-11,0.41580e-08,0.63647e-08,0.77515e-08,0.17013e-09 /) - kbo(:, 1,42, 1) = (/ & - & 0.10007e-10,0.24516e-08,0.34653e-08,0.39398e-08,0.93475e-10 /) - kbo(:, 2,42, 1) = (/ & - & 0.93902e-11,0.26631e-08,0.38588e-08,0.44635e-08,0.10342e-09 /) - kbo(:, 3,42, 1) = (/ & - & 0.88449e-11,0.28926e-08,0.42600e-08,0.50466e-08,0.11406e-09 /) - kbo(:, 4,42, 1) = (/ & - & 0.83594e-11,0.31198e-08,0.46719e-08,0.56218e-08,0.12507e-09 /) - kbo(:, 5,42, 1) = (/ & - & 0.79244e-11,0.33465e-08,0.51065e-08,0.61999e-08,0.13640e-09 /) - kbo(:, 1,43, 1) = (/ & - & 0.83647e-11,0.19578e-08,0.27341e-08,0.30827e-08,0.74277e-10 /) - kbo(:, 2,43, 1) = (/ & - & 0.78389e-11,0.21263e-08,0.30690e-08,0.35212e-08,0.82118e-10 /) - kbo(:, 3,43, 1) = (/ & - & 0.73752e-11,0.23103e-08,0.33865e-08,0.39836e-08,0.90672e-10 /) - kbo(:, 4,43, 1) = (/ & - & 0.69633e-11,0.24984e-08,0.37198e-08,0.44569e-08,0.99628e-10 /) - kbo(:, 5,43, 1) = (/ & - & 0.65950e-11,0.26833e-08,0.40709e-08,0.49265e-08,0.10883e-09 /) - kbo(:, 1,44, 1) = (/ & - & 0.70070e-11,0.15628e-08,0.21521e-08,0.24017e-08,0.59116e-10 /) - kbo(:, 2,44, 1) = (/ & - & 0.65570e-11,0.16954e-08,0.24254e-08,0.27772e-08,0.65027e-10 /) - kbo(:, 3,44, 1) = (/ & - & 0.61612e-11,0.18413e-08,0.26845e-08,0.31310e-08,0.71892e-10 /) - kbo(:, 4,44, 1) = (/ & - & 0.58106e-11,0.19977e-08,0.29542e-08,0.35211e-08,0.79144e-10 /) - kbo(:, 5,44, 1) = (/ & - & 0.54976e-11,0.21464e-08,0.32360e-08,0.39045e-08,0.86629e-10 /) - kbo(:, 1,45, 1) = (/ & - & 0.58728e-11,0.12500e-08,0.17079e-08,0.18743e-08,0.46646e-10 /) - kbo(:, 2,45, 1) = (/ & - & 0.54873e-11,0.13505e-08,0.19105e-08,0.21719e-08,0.51499e-10 /) - kbo(:, 3,45, 1) = (/ & - & 0.51492e-11,0.14670e-08,0.21250e-08,0.24590e-08,0.56982e-10 /) - kbo(:, 4,45, 1) = (/ & - & 0.48504e-11,0.15931e-08,0.23464e-08,0.27802e-08,0.62839e-10 /) - kbo(:, 5,45, 1) = (/ & - & 0.45844e-11,0.17167e-08,0.25731e-08,0.30954e-08,0.68908e-10 /) - kbo(:, 1,46, 1) = (/ & - & 0.49328e-11,0.99811e-09,0.13397e-08,0.14457e-08,0.36694e-10 /) - kbo(:, 2,46, 1) = (/ & - & 0.46012e-11,0.10742e-08,0.14986e-08,0.16875e-08,0.40742e-10 /) - kbo(:, 3,46, 1) = (/ & - & 0.43113e-11,0.11665e-08,0.16813e-08,0.19281e-08,0.45049e-10 /) - kbo(:, 4,46, 1) = (/ & - & 0.40558e-11,0.12673e-08,0.18567e-08,0.21817e-08,0.49751e-10 /) - kbo(:, 5,46, 1) = (/ & - & 0.38288e-11,0.13702e-08,0.20399e-08,0.24419e-08,0.54679e-10 /) - kbo(:, 1,47, 1) = (/ & - & 0.41592e-11,0.79205e-09,0.10438e-08,0.11055e-08,0.28709e-10 /) - kbo(:, 2,47, 1) = (/ & - & 0.38717e-11,0.85357e-09,0.11710e-08,0.13015e-08,0.32198e-10 /) - kbo(:, 3,47, 1) = (/ & - & 0.36215e-11,0.92515e-09,0.13196e-08,0.15103e-08,0.35448e-10 /) - kbo(:, 4,47, 1) = (/ & - & 0.34016e-11,0.10046e-08,0.14619e-08,0.17010e-08,0.39203e-10 /) - kbo(:, 5,47, 1) = (/ & - & 0.32069e-11,0.10904e-08,0.16100e-08,0.19168e-08,0.43187e-10 /) - kbo(:, 1,48, 1) = (/ & - & 0.35100e-11,0.62849e-09,0.81319e-09,0.84567e-09,0.22456e-10 /) - kbo(:, 2,48, 1) = (/ & - & 0.32605e-11,0.68021e-09,0.92169e-09,0.10040e-08,0.25229e-10 /) - kbo(:, 3,48, 1) = (/ & - & 0.30441e-11,0.73294e-09,0.10314e-08,0.11665e-08,0.27903e-10 /) - kbo(:, 4,48, 1) = (/ & - & 0.28547e-11,0.79615e-09,0.11495e-08,0.13251e-08,0.30879e-10 /) - kbo(:, 5,48, 1) = (/ & - & 0.26874e-11,0.86463e-09,0.12703e-08,0.14994e-08,0.34082e-10 /) - kbo(:, 1,49, 1) = (/ & - & 0.29649e-11,0.49867e-09,0.63572e-09,0.64557e-09,0.17554e-10 /) - kbo(:, 2,49, 1) = (/ & - & 0.27480e-11,0.54124e-09,0.71871e-09,0.76840e-09,0.19749e-10 /) - kbo(:, 3,49, 1) = (/ & - & 0.25606e-11,0.58140e-09,0.80413e-09,0.90054e-09,0.22012e-10 /) - kbo(:, 4,49, 1) = (/ & - & 0.23972e-11,0.63097e-09,0.90637e-09,0.10349e-08,0.24308e-10 /) - kbo(:, 5,49, 1) = (/ & - & 0.22534e-11,0.68545e-09,0.10006e-08,0.11704e-08,0.26872e-10 /) - kbo(:, 1,50, 1) = (/ & - & 0.25019e-11,0.39853e-09,0.49374e-09,0.49615e-09,0.13762e-10 /) - kbo(:, 2,50, 1) = (/ & - & 0.23136e-11,0.42952e-09,0.56141e-09,0.58980e-09,0.15500e-10 /) - kbo(:, 3,50, 1) = (/ & - & 0.21517e-11,0.46334e-09,0.63284e-09,0.69788e-09,0.17390e-10 /) - kbo(:, 4,50, 1) = (/ & - & 0.20110e-11,0.50130e-09,0.71124e-09,0.80903e-09,0.19184e-10 /) - kbo(:, 5,50, 1) = (/ & - & 0.18875e-11,0.54446e-09,0.78908e-09,0.91435e-09,0.21230e-10 /) - kbo(:, 1,51, 1) = (/ & - & 0.21111e-11,0.31534e-09,0.38552e-09,0.38324e-09,0.10851e-10 /) - kbo(:, 2,51, 1) = (/ & - & 0.19478e-11,0.34179e-09,0.43986e-09,0.45355e-09,0.12176e-10 /) - kbo(:, 3,51, 1) = (/ & - & 0.18079e-11,0.37016e-09,0.49835e-09,0.53919e-09,0.13683e-10 /) - kbo(:, 4,51, 1) = (/ & - & 0.16868e-11,0.39846e-09,0.55746e-09,0.62805e-09,0.15164e-10 /) - kbo(:, 5,51, 1) = (/ & - & 0.15809e-11,0.43272e-09,0.62310e-09,0.71587e-09,0.16785e-10 /) - kbo(:, 1,52, 1) = (/ & - & 0.17830e-11,0.24939e-09,0.30033e-09,0.29708e-09,0.85480e-11 /) - kbo(:, 2,52, 1) = (/ & - & 0.16410e-11,0.27244e-09,0.34467e-09,0.34870e-09,0.95642e-11 /) - kbo(:, 3,52, 1) = (/ & - & 0.15200e-11,0.29507e-09,0.39020e-09,0.41505e-09,0.10764e-10 /) - kbo(:, 4,52, 1) = (/ & - & 0.14156e-11,0.31736e-09,0.43693e-09,0.48758e-09,0.12016e-10 /) - kbo(:, 5,52, 1) = (/ & - & 0.13246e-11,0.34409e-09,0.49243e-09,0.56181e-09,0.13267e-10 /) - kbo(:, 1,53, 1) = (/ & - & 0.15074e-11,0.19746e-09,0.23442e-09,0.23027e-09,0.66942e-11 /) - kbo(:, 2,53, 1) = (/ & - & 0.13838e-11,0.21754e-09,0.26812e-09,0.26865e-09,0.75095e-11 /) - kbo(:, 3,53, 1) = (/ & - & 0.12789e-11,0.23445e-09,0.30510e-09,0.31916e-09,0.84626e-11 /) - kbo(:, 4,53, 1) = (/ & - & 0.11888e-11,0.25305e-09,0.34496e-09,0.37906e-09,0.94963e-11 /) - kbo(:, 5,53, 1) = (/ & - & 0.11106e-11,0.27355e-09,0.38680e-09,0.43882e-09,0.10486e-10 /) - kbo(:, 1,54, 1) = (/ & - & 0.12722e-11,0.15676e-09,0.18436e-09,0.18188e-09,0.52601e-11 /) - kbo(:, 2,54, 1) = (/ & - & 0.11649e-11,0.17256e-09,0.21030e-09,0.20876e-09,0.59465e-11 /) - kbo(:, 3,54, 1) = (/ & - & 0.10743e-11,0.18706e-09,0.24022e-09,0.24657e-09,0.66750e-11 /) - kbo(:, 4,54, 1) = (/ & - & 0.99683e-12,0.20263e-09,0.27206e-09,0.29337e-09,0.75016e-11 /) - kbo(:, 5,54, 1) = (/ & - & 0.92975e-12,0.21798e-09,0.30420e-09,0.34203e-09,0.83182e-11 /) - kbo(:, 1,55, 1) = (/ & - & 0.10733e-11,0.12552e-09,0.14668e-09,0.14477e-09,0.41440e-11 /) - kbo(:, 2,55, 1) = (/ & - & 0.98027e-12,0.13705e-09,0.16480e-09,0.16298e-09,0.47137e-11 /) - kbo(:, 3,55, 1) = (/ & - & 0.90209e-12,0.14966e-09,0.18911e-09,0.19117e-09,0.52730e-11 /) - kbo(:, 4,55, 1) = (/ & - & 0.83546e-12,0.16210e-09,0.21410e-09,0.22758e-09,0.59349e-11 /) - kbo(:, 5,55, 1) = (/ & - & 0.77800e-12,0.17423e-09,0.23972e-09,0.26725e-09,0.66163e-11 /) - kbo(:, 1,56, 1) = (/ & - & 0.90624e-12,0.99786e-10,0.11674e-09,0.11286e-09,0.32776e-11 /) - kbo(:, 2,56, 1) = (/ & - & 0.82547e-12,0.10897e-09,0.12938e-09,0.12705e-09,0.37161e-11 /) - kbo(:, 3,56, 1) = (/ & - & 0.75791e-12,0.12009e-09,0.14804e-09,0.14827e-09,0.41646e-11 /) - kbo(:, 4,56, 1) = (/ & - & 0.70058e-12,0.12925e-09,0.16837e-09,0.17630e-09,0.46957e-11 /) - kbo(:, 5,56, 1) = (/ & - & 0.65131e-12,0.13937e-09,0.18999e-09,0.20899e-09,0.52742e-11 /) - kbo(:, 1,57, 1) = (/ & - & 0.76595e-12,0.78822e-10,0.93863e-10,0.87529e-10,0.26033e-11 /) - kbo(:, 2,57, 1) = (/ & - & 0.69568e-12,0.86555e-10,0.10190e-09,0.10022e-09,0.29288e-11 /) - kbo(:, 3,57, 1) = (/ & - & 0.63721e-12,0.95385e-10,0.11640e-09,0.11533e-09,0.32994e-11 /) - kbo(:, 4,57, 1) = (/ & - & 0.58782e-12,0.10325e-09,0.13264e-09,0.13663e-09,0.37186e-11 /) - kbo(:, 5,57, 1) = (/ & - & 0.54552e-12,0.11173e-09,0.15042e-09,0.16253e-09,0.41819e-11 /) - kbo(:, 1,58, 1) = (/ & - & 0.64693e-12,0.62421e-10,0.76174e-10,0.68324e-10,0.20833e-11 /) - kbo(:, 2,58, 1) = (/ & - & 0.58588e-12,0.69278e-10,0.81197e-10,0.79691e-10,0.23130e-11 /) - kbo(:, 3,58, 1) = (/ & - & 0.53535e-12,0.75873e-10,0.91414e-10,0.90398e-10,0.26350e-11 /) - kbo(:, 4,58, 1) = (/ & - & 0.49285e-12,0.82653e-10,0.10493e-09,0.10617e-09,0.29473e-11 /) - kbo(:, 5,58, 1) = (/ & - & 0.45660e-12,0.89643e-10,0.11861e-09,0.12647e-09,0.33231e-11 /) - kbo(:, 1,59, 1) = (/ & - & 0.53645e-12,0.50557e-10,0.62240e-10,0.54854e-10,0.16930e-11 /) - kbo(:, 2,59, 1) = (/ & - & 0.48523e-12,0.56468e-10,0.65604e-10,0.64827e-10,0.18702e-11 /) - kbo(:, 3,59, 1) = (/ & - & 0.44294e-12,0.61442e-10,0.73667e-10,0.72688e-10,0.21292e-11 /) - kbo(:, 4,59, 1) = (/ & - & 0.40744e-12,0.67184e-10,0.84490e-10,0.85217e-10,0.23832e-11 /) - kbo(:, 5,59, 1) = (/ & - & 0.37720e-12,0.72657e-10,0.95692e-10,0.10144e-09,0.26852e-11 /) - kbo(:, 1,13, 2) = (/ & - & 0.18323e-07,0.86266e-05,0.13728e-04,0.15952e-04,0.78927e-06 /) - kbo(:, 2,13, 2) = (/ & - & 0.16961e-07,0.96203e-05,0.15275e-04,0.17863e-04,0.93659e-06 /) - kbo(:, 3,13, 2) = (/ & - & 0.15787e-07,0.10675e-04,0.16924e-04,0.19675e-04,0.11050e-05 /) - kbo(:, 4,13, 2) = (/ & - & 0.14764e-07,0.11779e-04,0.18474e-04,0.21320e-04,0.12868e-05 /) - kbo(:, 5,13, 2) = (/ & - & 0.13865e-07,0.12843e-04,0.20029e-04,0.23080e-04,0.14565e-05 /) - kbo(:, 1,14, 2) = (/ & - & 0.14893e-07,0.71882e-05,0.11443e-04,0.13271e-04,0.65835e-06 /) - kbo(:, 2,14, 2) = (/ & - & 0.13793e-07,0.80276e-05,0.12732e-04,0.14890e-04,0.78132e-06 /) - kbo(:, 3,14, 2) = (/ & - & 0.12844e-07,0.89189e-05,0.14101e-04,0.16339e-04,0.92233e-06 /) - kbo(:, 4,14, 2) = (/ & - & 0.12017e-07,0.98309e-05,0.15384e-04,0.17721e-04,0.10676e-05 /) - kbo(:, 5,14, 2) = (/ & - & 0.11289e-07,0.10704e-04,0.16679e-04,0.19194e-04,0.12091e-05 /) - kbo(:, 1,15, 2) = (/ & - & 0.12096e-07,0.59934e-05,0.95449e-05,0.11058e-04,0.54969e-06 /) - kbo(:, 2,15, 2) = (/ & - & 0.11209e-07,0.66932e-05,0.10623e-04,0.12407e-04,0.65197e-06 /) - kbo(:, 3,15, 2) = (/ & - & 0.10443e-07,0.74449e-05,0.11746e-04,0.13571e-04,0.76940e-06 /) - kbo(:, 4,15, 2) = (/ & - & 0.97747e-08,0.81948e-05,0.12814e-04,0.14732e-04,0.88496e-06 /) - kbo(:, 5,15, 2) = (/ & - & 0.91864e-08,0.89188e-05,0.13883e-04,0.15946e-04,0.10023e-05 /) - kbo(:, 1,16, 2) = (/ & - & 0.98205e-08,0.50027e-05,0.79644e-05,0.92248e-05,0.45876e-06 /) - kbo(:, 2,16, 2) = (/ & - & 0.91061e-08,0.55846e-05,0.88593e-05,0.10331e-04,0.54334e-06 /) - kbo(:, 3,16, 2) = (/ & - & 0.84882e-08,0.62183e-05,0.97757e-05,0.11279e-04,0.64050e-06 /) - kbo(:, 4,16, 2) = (/ & - & 0.79486e-08,0.68276e-05,0.10664e-04,0.12244e-04,0.73344e-06 /) - kbo(:, 5,16, 2) = (/ & - & 0.74732e-08,0.74268e-05,0.11545e-04,0.13224e-04,0.82955e-06 /) - kbo(:, 1,17, 2) = (/ & - & 0.79753e-08,0.41713e-05,0.66153e-05,0.76892e-05,0.38247e-06 /) - kbo(:, 2,17, 2) = (/ & - & 0.73994e-08,0.46562e-05,0.73753e-05,0.85922e-05,0.45188e-06 /) - kbo(:, 3,17, 2) = (/ & - & 0.69008e-08,0.51829e-05,0.81280e-05,0.93638e-05,0.53211e-06 /) - kbo(:, 4,17, 2) = (/ & - & 0.64650e-08,0.56765e-05,0.88560e-05,0.10168e-04,0.60647e-06 /) - kbo(:, 5,17, 2) = (/ & - & 0.60807e-08,0.61758e-05,0.95894e-05,0.10949e-04,0.68549e-06 /) - kbo(:, 1,18, 2) = (/ & - & 0.64779e-08,0.34727e-05,0.54875e-05,0.64000e-05,0.31851e-06 /) - kbo(:, 2,18, 2) = (/ & - & 0.60135e-08,0.38751e-05,0.61308e-05,0.71372e-05,0.37552e-06 /) - kbo(:, 3,18, 2) = (/ & - & 0.56111e-08,0.43132e-05,0.67478e-05,0.77698e-05,0.44141e-06 /) - kbo(:, 4,18, 2) = (/ & - & 0.52590e-08,0.47150e-05,0.73444e-05,0.84370e-05,0.50075e-06 /) - kbo(:, 5,18, 2) = (/ & - & 0.49483e-08,0.51345e-05,0.79495e-05,0.90637e-05,0.56601e-06 /) - kbo(:, 1,19, 2) = (/ & - & 0.52627e-08,0.28908e-05,0.45586e-05,0.53260e-05,0.26516e-06 /) - kbo(:, 2,19, 2) = (/ & - & 0.48882e-08,0.32260e-05,0.50940e-05,0.59200e-05,0.31190e-06 /) - kbo(:, 3,19, 2) = (/ & - & 0.45632e-08,0.35843e-05,0.55992e-05,0.64397e-05,0.36608e-06 /) - kbo(:, 4,19, 2) = (/ & - & 0.42786e-08,0.39167e-05,0.60923e-05,0.69972e-05,0.41361e-06 /) - kbo(:, 5,19, 2) = (/ & - & 0.40273e-08,0.42667e-05,0.65904e-05,0.75021e-05,0.46741e-06 /) - kbo(:, 1,20, 2) = (/ & - & 0.42704e-08,0.24074e-05,0.37990e-05,0.44458e-05,0.22103e-06 /) - kbo(:, 2,20, 2) = (/ & - & 0.39690e-08,0.26942e-05,0.42393e-05,0.49120e-05,0.26014e-06 /) - kbo(:, 3,20, 2) = (/ & - & 0.37071e-08,0.29827e-05,0.46574e-05,0.53487e-05,0.30416e-06 /) - kbo(:, 4,20, 2) = (/ & - & 0.34776e-08,0.32601e-05,0.50635e-05,0.58076e-05,0.34304e-06 /) - kbo(:, 5,20, 2) = (/ & - & 0.32747e-08,0.35518e-05,0.54700e-05,0.62197e-05,0.38752e-06 /) - kbo(:, 1,21, 2) = (/ & - & 0.34649e-08,0.20096e-05,0.31689e-05,0.37070e-05,0.18424e-06 /) - kbo(:, 2,21, 2) = (/ & - & 0.32224e-08,0.22503e-05,0.35271e-05,0.40784e-05,0.21705e-06 /) - kbo(:, 3,21, 2) = (/ & - & 0.30114e-08,0.24834e-05,0.38737e-05,0.44436e-05,0.25229e-06 /) - kbo(:, 4,21, 2) = (/ & - & 0.28263e-08,0.27149e-05,0.42083e-05,0.48061e-05,0.28464e-06 /) - kbo(:, 5,21, 2) = (/ & - & 0.26626e-08,0.29556e-05,0.45394e-05,0.51565e-05,0.32148e-06 /) - kbo(:, 1,22, 2) = (/ & - & 0.27976e-08,0.16913e-05,0.26632e-05,0.31108e-05,0.15537e-06 /) - kbo(:, 2,22, 2) = (/ & - & 0.26043e-08,0.18908e-05,0.29553e-05,0.34067e-05,0.18311e-06 /) - kbo(:, 3,22, 2) = (/ & - & 0.24359e-08,0.20811e-05,0.32390e-05,0.37110e-05,0.21094e-06 /) - kbo(:, 4,22, 2) = (/ & - & 0.22878e-08,0.22746e-05,0.35144e-05,0.40009e-05,0.23816e-06 /) - kbo(:, 5,22, 2) = (/ & - & 0.21567e-08,0.24714e-05,0.37839e-05,0.42910e-05,0.26886e-06 /) - kbo(:, 1,23, 2) = (/ & - & 0.22583e-08,0.14234e-05,0.22388e-05,0.26088e-05,0.13143e-06 /) - kbo(:, 2,23, 2) = (/ & - & 0.21043e-08,0.15864e-05,0.24776e-05,0.28493e-05,0.15460e-06 /) - kbo(:, 3,23, 2) = (/ & - & 0.19699e-08,0.17436e-05,0.27072e-05,0.31009e-05,0.17669e-06 /) - kbo(:, 4,23, 2) = (/ & - & 0.18515e-08,0.19057e-05,0.29355e-05,0.33308e-05,0.19953e-06 /) - kbo(:, 5,23, 2) = (/ & - & 0.17465e-08,0.20653e-05,0.31542e-05,0.35663e-05,0.22501e-06 /) - kbo(:, 1,24, 2) = (/ & - & 0.18221e-08,0.12001e-05,0.18808e-05,0.21868e-05,0.11138e-06 /) - kbo(:, 2,24, 2) = (/ & - & 0.16995e-08,0.13315e-05,0.20779e-05,0.23825e-05,0.13068e-06 /) - kbo(:, 3,24, 2) = (/ & - & 0.15923e-08,0.14625e-05,0.22647e-05,0.25884e-05,0.14820e-06 /) - kbo(:, 4,24, 2) = (/ & - & 0.14978e-08,0.15972e-05,0.24512e-05,0.27771e-05,0.16734e-06 /) - kbo(:, 5,24, 2) = (/ & - & 0.14138e-08,0.17254e-05,0.26296e-05,0.29649e-05,0.18848e-06 /) - kbo(:, 1,25, 2) = (/ & - & 0.14693e-08,0.10111e-05,0.15809e-05,0.18286e-05,0.94366e-07 /) - kbo(:, 2,25, 2) = (/ & - & 0.13718e-08,0.11199e-05,0.17430e-05,0.19952e-05,0.11045e-06 /) - kbo(:, 3,25, 2) = (/ & - & 0.12864e-08,0.12273e-05,0.18957e-05,0.21572e-05,0.12445e-06 /) - kbo(:, 4,25, 2) = (/ & - & 0.12110e-08,0.13373e-05,0.20462e-05,0.23162e-05,0.14042e-06 /) - kbo(:, 5,25, 2) = (/ & - & 0.11438e-08,0.14410e-05,0.21916e-05,0.24648e-05,0.15767e-06 /) - kbo(:, 1,26, 2) = (/ & - & 0.11834e-08,0.85331e-06,0.13316e-05,0.15329e-05,0.80212e-07 /) - kbo(:, 2,26, 2) = (/ & - & 0.11061e-08,0.94192e-06,0.14626e-05,0.16729e-05,0.92775e-07 /) - kbo(:, 3,26, 2) = (/ & - & 0.10382e-08,0.10317e-05,0.15890e-05,0.18006e-05,0.10462e-06 /) - kbo(:, 4,26, 2) = (/ & - & 0.97810e-09,0.11205e-05,0.17099e-05,0.19314e-05,0.11800e-06 /) - kbo(:, 5,26, 2) = (/ & - & 0.92457e-09,0.12034e-05,0.18276e-05,0.20504e-05,0.13209e-06 /) - kbo(:, 1,27, 2) = (/ & - & 0.95311e-09,0.71890e-06,0.11218e-05,0.12867e-05,0.68084e-07 /) - kbo(:, 2,27, 2) = (/ & - & 0.89177e-09,0.79258e-06,0.12275e-05,0.14019e-05,0.77999e-07 /) - kbo(:, 3,27, 2) = (/ & - & 0.83781e-09,0.86605e-06,0.13308e-05,0.15040e-05,0.88027e-07 /) - kbo(:, 4,27, 2) = (/ & - & 0.78998e-09,0.93815e-06,0.14285e-05,0.16091e-05,0.99057e-07 /) - kbo(:, 5,27, 2) = (/ & - & 0.74729e-09,0.10046e-05,0.15236e-05,0.17059e-05,0.11074e-06 /) - kbo(:, 1,28, 2) = (/ & - & 0.76771e-09,0.60623e-06,0.94427e-06,0.10796e-05,0.57844e-07 /) - kbo(:, 2,28, 2) = (/ & - & 0.71904e-09,0.66653e-06,0.10298e-05,0.11699e-05,0.65726e-07 /) - kbo(:, 3,28, 2) = (/ & - & 0.67614e-09,0.72689e-06,0.11131e-05,0.12568e-05,0.74009e-07 /) - kbo(:, 4,28, 2) = (/ & - & 0.63806e-09,0.78482e-06,0.11927e-05,0.13406e-05,0.83200e-07 /) - kbo(:, 5,28, 2) = (/ & - & 0.60401e-09,0.83806e-06,0.12695e-05,0.14186e-05,0.92306e-07 /) - kbo(:, 1,29, 2) = (/ & - & 0.61817e-09,0.51053e-06,0.79450e-06,0.90687e-06,0.49078e-07 /) - kbo(:, 2,29, 2) = (/ & - & 0.57958e-09,0.56071e-06,0.86403e-06,0.97690e-06,0.55257e-07 /) - kbo(:, 3,29, 2) = (/ & - & 0.54551e-09,0.61009e-06,0.93077e-06,0.10495e-05,0.62286e-07 /) - kbo(:, 4,29, 2) = (/ & - & 0.51520e-09,0.65631e-06,0.99567e-06,0.11159e-05,0.69954e-07 /) - kbo(:, 5,29, 2) = (/ & - & 0.48806e-09,0.69830e-06,0.10576e-05,0.11790e-05,0.77228e-07 /) - kbo(:, 1,30, 2) = (/ & - & 0.49783e-09,0.43014e-06,0.66732e-06,0.76058e-06,0.41306e-07 /) - kbo(:, 2,30, 2) = (/ & - & 0.46723e-09,0.47148e-06,0.72434e-06,0.81682e-06,0.46537e-07 /) - kbo(:, 3,30, 2) = (/ & - & 0.44015e-09,0.51146e-06,0.77809e-06,0.87537e-06,0.52451e-07 /) - kbo(:, 4,30, 2) = (/ & - & 0.41603e-09,0.54877e-06,0.83073e-06,0.92884e-06,0.58793e-07 /) - kbo(:, 5,30, 2) = (/ & - & 0.39440e-09,0.58159e-06,0.88054e-06,0.98030e-06,0.64630e-07 /) - kbo(:, 1,31, 2) = (/ & - & 0.40087e-09,0.36256e-06,0.56062e-06,0.63549e-06,0.34778e-07 /) - kbo(:, 2,31, 2) = (/ & - & 0.37660e-09,0.39620e-06,0.60674e-06,0.68313e-06,0.39213e-07 /) - kbo(:, 3,31, 2) = (/ & - & 0.35510e-09,0.42855e-06,0.65037e-06,0.72999e-06,0.44176e-07 /) - kbo(:, 4,31, 2) = (/ & - & 0.33590e-09,0.45852e-06,0.69308e-06,0.77338e-06,0.49424e-07 /) - kbo(:, 5,31, 2) = (/ & - & 0.31866e-09,0.48459e-06,0.73297e-06,0.81484e-06,0.54137e-07 /) - kbo(:, 1,32, 2) = (/ & - & 0.32280e-09,0.30547e-06,0.47083e-06,0.53147e-06,0.29353e-07 /) - kbo(:, 2,32, 2) = (/ & - & 0.30356e-09,0.33271e-06,0.50770e-06,0.57112e-06,0.33078e-07 /) - kbo(:, 3,32, 2) = (/ & - & 0.28647e-09,0.35876e-06,0.54339e-06,0.60852e-06,0.37211e-07 /) - kbo(:, 4,32, 2) = (/ & - & 0.27120e-09,0.38214e-06,0.57781e-06,0.64354e-06,0.41295e-07 /) - kbo(:, 5,32, 2) = (/ & - & 0.25746e-09,0.40374e-06,0.60990e-06,0.67711e-06,0.45362e-07 /) - kbo(:, 1,33, 2) = (/ & - & 0.25997e-09,0.25723e-06,0.39505e-06,0.44467e-06,0.24754e-07 /) - kbo(:, 2,33, 2) = (/ & - & 0.24471e-09,0.27926e-06,0.42469e-06,0.47702e-06,0.27907e-07 /) - kbo(:, 3,33, 2) = (/ & - & 0.23113e-09,0.30024e-06,0.45384e-06,0.50672e-06,0.31344e-07 /) - kbo(:, 4,33, 2) = (/ & - & 0.21898e-09,0.31862e-06,0.48142e-06,0.53515e-06,0.34590e-07 /) - kbo(:, 5,33, 2) = (/ & - & 0.20803e-09,0.33624e-06,0.50721e-06,0.56242e-06,0.37957e-07 /) - kbo(:, 1,34, 2) = (/ & - & 0.20987e-09,0.21561e-06,0.33035e-06,0.37093e-06,0.20801e-07 /) - kbo(:, 2,34, 2) = (/ & - & 0.19771e-09,0.23356e-06,0.35433e-06,0.39723e-06,0.23443e-07 /) - kbo(:, 3,34, 2) = (/ & - & 0.18688e-09,0.25042e-06,0.37804e-06,0.42127e-06,0.26271e-07 /) - kbo(:, 4,34, 2) = (/ & - & 0.17716e-09,0.26514e-06,0.40029e-06,0.44433e-06,0.28867e-07 /) - kbo(:, 5,34, 2) = (/ & - & 0.16840e-09,0.27949e-06,0.42102e-06,0.46612e-06,0.31620e-07 /) - kbo(:, 1,35, 2) = (/ & - & 0.17046e-09,0.17909e-06,0.27397e-06,0.30730e-06,0.17283e-07 /) - kbo(:, 2,35, 2) = (/ & - & 0.16066e-09,0.19378e-06,0.29367e-06,0.32869e-06,0.19456e-07 /) - kbo(:, 3,35, 2) = (/ & - & 0.15191e-09,0.20716e-06,0.31287e-06,0.34820e-06,0.21759e-07 /) - kbo(:, 4,35, 2) = (/ & - & 0.14407e-09,0.21938e-06,0.33090e-06,0.36703e-06,0.23854e-07 /) - kbo(:, 5,35, 2) = (/ & - & 0.13699e-09,0.23115e-06,0.34779e-06,0.38459e-06,0.26128e-07 /) - kbo(:, 1,36, 2) = (/ & - & 0.13938e-09,0.14742e-06,0.22535e-06,0.25261e-06,0.14145e-07 /) - kbo(:, 2,36, 2) = (/ & - & 0.13137e-09,0.15949e-06,0.24155e-06,0.27011e-06,0.15917e-07 /) - kbo(:, 3,36, 2) = (/ & - & 0.12423e-09,0.17037e-06,0.25721e-06,0.28606e-06,0.17809e-07 /) - kbo(:, 4,36, 2) = (/ & - & 0.11782e-09,0.18044e-06,0.27200e-06,0.30149e-06,0.19530e-07 /) - kbo(:, 5,36, 2) = (/ & - & 0.11204e-09,0.19011e-06,0.28582e-06,0.31581e-06,0.21391e-07 /) - kbo(:, 1,37, 2) = (/ & - & 0.11503e-09,0.11991e-06,0.18339e-06,0.20540e-06,0.11398e-07 /) - kbo(:, 2,37, 2) = (/ & - & 0.10837e-09,0.12985e-06,0.19670e-06,0.21991e-06,0.12829e-07 /) - kbo(:, 3,37, 2) = (/ & - & 0.10244e-09,0.13895e-06,0.20964e-06,0.23310e-06,0.14370e-07 /) - kbo(:, 4,37, 2) = (/ & - & 0.97122e-10,0.14725e-06,0.22183e-06,0.24582e-06,0.15790e-07 /) - kbo(:, 5,37, 2) = (/ & - & 0.92325e-10,0.15526e-06,0.23327e-06,0.25767e-06,0.17308e-07 /) - kbo(:, 1,38, 2) = (/ & - & 0.94990e-10,0.97434e-07,0.14912e-06,0.16699e-06,0.91745e-08 /) - kbo(:, 2,38, 2) = (/ & - & 0.89449e-10,0.10563e-06,0.16007e-06,0.17890e-06,0.10330e-07 /) - kbo(:, 3,38, 2) = (/ & - & 0.84516e-10,0.11322e-06,0.17071e-06,0.18982e-06,0.11585e-07 /) - kbo(:, 4,38, 2) = (/ & - & 0.80096e-10,0.12009e-06,0.18084e-06,0.20030e-06,0.12759e-07 /) - kbo(:, 5,38, 2) = (/ & - & 0.76113e-10,0.12672e-06,0.19028e-06,0.21012e-06,0.13992e-07 /) - kbo(:, 1,39, 2) = (/ & - & 0.78444e-10,0.79147e-07,0.12122e-06,0.13573e-06,0.73846e-08 /) - kbo(:, 2,39, 2) = (/ & - & 0.73832e-10,0.85901e-07,0.13022e-06,0.14552e-06,0.83180e-08 /) - kbo(:, 3,39, 2) = (/ & - & 0.69729e-10,0.92230e-07,0.13899e-06,0.15459e-06,0.93374e-08 /) - kbo(:, 4,39, 2) = (/ & - & 0.66056e-10,0.97919e-07,0.14737e-06,0.16325e-06,0.10307e-07 /) - kbo(:, 5,39, 2) = (/ & - & 0.62749e-10,0.10341e-06,0.15518e-06,0.17133e-06,0.11312e-07 /) - kbo(:, 1,40, 2) = (/ & - & 0.65207e-10,0.63715e-07,0.97755e-07,0.10945e-06,0.58831e-08 /) - kbo(:, 2,40, 2) = (/ & - & 0.61319e-10,0.69289e-07,0.10524e-06,0.11757e-06,0.66237e-08 /) - kbo(:, 3,40, 2) = (/ & - & 0.57866e-10,0.74694e-07,0.11245e-06,0.12515e-06,0.74455e-08 /) - kbo(:, 4,40, 2) = (/ & - & 0.54779e-10,0.79359e-07,0.11941e-06,0.13229e-06,0.82595e-08 /) - kbo(:, 5,40, 2) = (/ & - & 0.52003e-10,0.83957e-07,0.12593e-06,0.13909e-06,0.90698e-08 /) - kbo(:, 1,41, 2) = (/ & - & 0.54263e-10,0.51172e-07,0.78714e-07,0.88183e-07,0.46740e-08 /) - kbo(:, 2,41, 2) = (/ & - & 0.50978e-10,0.55838e-07,0.84939e-07,0.94828e-07,0.52655e-08 /) - kbo(:, 3,41, 2) = (/ & - & 0.48066e-10,0.60328e-07,0.90859e-07,0.10118e-06,0.59273e-08 /) - kbo(:, 4,41, 2) = (/ & - & 0.45467e-10,0.64260e-07,0.96667e-07,0.10710e-06,0.66279e-08 /) - kbo(:, 5,41, 2) = (/ & - & 0.43134e-10,0.68089e-07,0.10208e-06,0.11279e-06,0.72560e-08 /) - kbo(:, 1,42, 2) = (/ & - & 0.45170e-10,0.41073e-07,0.63333e-07,0.71067e-07,0.37185e-08 /) - kbo(:, 2,42, 2) = (/ & - & 0.42393e-10,0.44964e-07,0.68507e-07,0.76455e-07,0.41864e-08 /) - kbo(:, 3,42, 2) = (/ & - & 0.39936e-10,0.48667e-07,0.73382e-07,0.81772e-07,0.47157e-08 /) - kbo(:, 4,42, 2) = (/ & - & 0.37747e-10,0.51996e-07,0.78220e-07,0.86689e-07,0.52834e-08 /) - kbo(:, 5,42, 2) = (/ & - & 0.35784e-10,0.55178e-07,0.82739e-07,0.91434e-07,0.58040e-08 /) - kbo(:, 1,43, 2) = (/ & - & 0.37754e-10,0.32770e-07,0.50662e-07,0.56979e-07,0.29405e-08 /) - kbo(:, 2,43, 2) = (/ & - & 0.35387e-10,0.35997e-07,0.54993e-07,0.61357e-07,0.33066e-08 /) - kbo(:, 3,43, 2) = (/ & - & 0.33299e-10,0.39073e-07,0.59036e-07,0.65793e-07,0.37265e-08 /) - kbo(:, 4,43, 2) = (/ & - & 0.31442e-10,0.41903e-07,0.63014e-07,0.69920e-07,0.41848e-08 /) - kbo(:, 5,43, 2) = (/ & - & 0.29781e-10,0.44546e-07,0.66822e-07,0.73849e-07,0.46204e-08 /) - kbo(:, 1,44, 2) = (/ & - & 0.31623e-10,0.26054e-07,0.40405e-07,0.45692e-07,0.22918e-08 /) - kbo(:, 2,44, 2) = (/ & - & 0.29599e-10,0.28713e-07,0.44010e-07,0.49122e-07,0.26053e-08 /) - kbo(:, 3,44, 2) = (/ & - & 0.27817e-10,0.31296e-07,0.47391e-07,0.52815e-07,0.29353e-08 /) - kbo(:, 4,44, 2) = (/ & - & 0.26236e-10,0.33677e-07,0.50655e-07,0.56264e-07,0.33023e-08 /) - kbo(:, 5,44, 2) = (/ & - & 0.24825e-10,0.35896e-07,0.53863e-07,0.59538e-07,0.36730e-08 /) - kbo(:, 1,45, 2) = (/ & - & 0.26502e-10,0.20705e-07,0.32152e-07,0.36448e-07,0.17841e-08 /) - kbo(:, 2,45, 2) = (/ & - & 0.24768e-10,0.22868e-07,0.35185e-07,0.39329e-07,0.20515e-08 /) - kbo(:, 3,45, 2) = (/ & - & 0.23247e-10,0.25027e-07,0.37999e-07,0.42338e-07,0.23118e-08 /) - kbo(:, 4,45, 2) = (/ & - & 0.21900e-10,0.27063e-07,0.40694e-07,0.45258e-07,0.26048e-08 /) - kbo(:, 5,45, 2) = (/ & - & 0.20701e-10,0.28901e-07,0.43361e-07,0.47969e-07,0.29174e-08 /) - kbo(:, 1,46, 2) = (/ & - & 0.22258e-10,0.16422e-07,0.25480e-07,0.28991e-07,0.13830e-08 /) - kbo(:, 2,46, 2) = (/ & - & 0.20767e-10,0.18158e-07,0.28033e-07,0.31442e-07,0.16144e-08 /) - kbo(:, 3,46, 2) = (/ & - & 0.19462e-10,0.19953e-07,0.30402e-07,0.33850e-07,0.18162e-08 /) - kbo(:, 4,46, 2) = (/ & - & 0.18312e-10,0.21658e-07,0.32639e-07,0.36308e-07,0.20475e-08 /) - kbo(:, 5,46, 2) = (/ & - & 0.17289e-10,0.23211e-07,0.34839e-07,0.38583e-07,0.22994e-08 /) - kbo(:, 1,47, 2) = (/ & - & 0.18764e-10,0.12951e-07,0.20072e-07,0.22982e-07,0.10645e-08 /) - kbo(:, 2,47, 2) = (/ & - & 0.17473e-10,0.14335e-07,0.22214e-07,0.25085e-07,0.12479e-08 /) - kbo(:, 3,47, 2) = (/ & - & 0.16347e-10,0.15813e-07,0.24205e-07,0.26971e-07,0.14207e-08 /) - kbo(:, 4,47, 2) = (/ & - & 0.15357e-10,0.17255e-07,0.26075e-07,0.29015e-07,0.16008e-08 /) - kbo(:, 5,47, 2) = (/ & - & 0.14480e-10,0.18558e-07,0.27885e-07,0.30922e-07,0.18018e-08 /) - kbo(:, 1,48, 2) = (/ & - & 0.15833e-10,0.10186e-07,0.15782e-07,0.18174e-07,0.81718e-09 /) - kbo(:, 2,48, 2) = (/ & - & 0.14713e-10,0.11312e-07,0.17555e-07,0.19891e-07,0.96098e-09 /) - kbo(:, 3,48, 2) = (/ & - & 0.13740e-10,0.12509e-07,0.19248e-07,0.21482e-07,0.11112e-08 /) - kbo(:, 4,48, 2) = (/ & - & 0.12887e-10,0.13719e-07,0.20811e-07,0.23140e-07,0.12515e-08 /) - kbo(:, 5,48, 2) = (/ & - & 0.12134e-10,0.14840e-07,0.22313e-07,0.24769e-07,0.14105e-08 /) - kbo(:, 1,49, 2) = (/ & - & 0.13372e-10,0.80050e-08,0.12403e-07,0.14283e-07,0.63117e-09 /) - kbo(:, 2,49, 2) = (/ & - & 0.12398e-10,0.89393e-08,0.13840e-07,0.15751e-07,0.73907e-09 /) - kbo(:, 3,49, 2) = (/ & - & 0.11556e-10,0.98821e-08,0.15261e-07,0.17104e-07,0.86645e-09 /) - kbo(:, 4,49, 2) = (/ & - & 0.10821e-10,0.10884e-07,0.16582e-07,0.18441e-07,0.97829e-09 /) - kbo(:, 5,49, 2) = (/ & - & 0.10174e-10,0.11841e-07,0.17828e-07,0.19804e-07,0.11034e-08 /) - kbo(:, 1,50, 2) = (/ & - & 0.11282e-10,0.62726e-08,0.97478e-08,0.11226e-07,0.48398e-09 /) - kbo(:, 2,50, 2) = (/ & - & 0.10437e-10,0.70546e-08,0.10932e-07,0.12518e-07,0.57051e-09 /) - kbo(:, 3,50, 2) = (/ & - & 0.97101e-11,0.78193e-08,0.12114e-07,0.13671e-07,0.66997e-09 /) - kbo(:, 4,50, 2) = (/ & - & 0.90772e-11,0.86379e-08,0.13218e-07,0.14712e-07,0.76625e-09 /) - kbo(:, 5,50, 2) = (/ & - & 0.85216e-11,0.94405e-08,0.14258e-07,0.15844e-07,0.86488e-09 /) - kbo(:, 1,51, 2) = (/ & - & 0.95179e-11,0.49251e-08,0.76356e-08,0.87761e-08,0.37213e-09 /) - kbo(:, 2,51, 2) = (/ & - & 0.87856e-11,0.55681e-08,0.86220e-08,0.99159e-08,0.44074e-09 /) - kbo(:, 3,51, 2) = (/ & - & 0.81576e-11,0.61930e-08,0.95989e-08,0.10865e-07,0.51843e-09 /) - kbo(:, 4,51, 2) = (/ & - & 0.76131e-11,0.68518e-08,0.10539e-07,0.11746e-07,0.60210e-09 /) - kbo(:, 5,51, 2) = (/ & - & 0.71366e-11,0.75206e-08,0.11403e-07,0.12659e-07,0.67841e-09 /) - kbo(:, 1,52, 2) = (/ & - & 0.80368e-11,0.38608e-08,0.60010e-08,0.68441e-08,0.28848e-09 /) - kbo(:, 2,52, 2) = (/ & - & 0.74007e-11,0.43903e-08,0.67974e-08,0.78127e-08,0.34245e-09 /) - kbo(:, 3,52, 2) = (/ & - & 0.68577e-11,0.49086e-08,0.75959e-08,0.86279e-08,0.40106e-09 /) - kbo(:, 4,52, 2) = (/ & - & 0.63886e-11,0.54297e-08,0.83801e-08,0.93778e-08,0.47058e-09 /) - kbo(:, 5,52, 2) = (/ & - & 0.59795e-11,0.59829e-08,0.91103e-08,0.10111e-07,0.53218e-09 /) - kbo(:, 1,53, 2) = (/ & - & 0.67932e-11,0.30102e-08,0.47269e-08,0.53395e-08,0.22432e-09 /) - kbo(:, 2,53, 2) = (/ & - & 0.62397e-11,0.34450e-08,0.53458e-08,0.61449e-08,0.26282e-09 /) - kbo(:, 3,53, 2) = (/ & - & 0.57693e-11,0.38768e-08,0.60006e-08,0.68613e-08,0.31020e-09 /) - kbo(:, 4,53, 2) = (/ & - & 0.53647e-11,0.43002e-08,0.66533e-08,0.74990e-08,0.36446e-09 /) - kbo(:, 5,53, 2) = (/ & - & 0.50129e-11,0.47527e-08,0.72638e-08,0.80717e-08,0.41759e-09 /) - kbo(:, 1,54, 2) = (/ & - & 0.57320e-11,0.23582e-08,0.36837e-08,0.41317e-08,0.17477e-09 /) - kbo(:, 2,54, 2) = (/ & - & 0.52518e-11,0.27163e-08,0.42048e-08,0.48208e-08,0.20321e-09 /) - kbo(:, 3,54, 2) = (/ & - & 0.48457e-11,0.30678e-08,0.47472e-08,0.54472e-08,0.24081e-09 /) - kbo(:, 4,54, 2) = (/ & - & 0.44978e-11,0.34148e-08,0.52851e-08,0.59735e-08,0.28345e-09 /) - kbo(:, 5,54, 2) = (/ & - & 0.41963e-11,0.37804e-08,0.58001e-08,0.64570e-08,0.32923e-09 /) - kbo(:, 1,55, 2) = (/ & - & 0.48347e-11,0.18534e-08,0.28539e-08,0.31828e-08,0.13492e-09 /) - kbo(:, 2,55, 2) = (/ & - & 0.44186e-11,0.21392e-08,0.33190e-08,0.37817e-08,0.15848e-09 /) - kbo(:, 3,55, 2) = (/ & - & 0.40683e-11,0.24320e-08,0.37592e-08,0.43156e-08,0.18835e-09 /) - kbo(:, 4,55, 2) = (/ & - & 0.37693e-11,0.27150e-08,0.41999e-08,0.47625e-08,0.22076e-09 /) - kbo(:, 5,55, 2) = (/ & - & 0.35111e-11,0.30082e-08,0.46345e-08,0.51736e-08,0.25916e-09 /) - kbo(:, 1,56, 2) = (/ & - & 0.40813e-11,0.14543e-08,0.22038e-08,0.24488e-08,0.10328e-09 /) - kbo(:, 2,56, 2) = (/ & - & 0.37201e-11,0.16813e-08,0.26371e-08,0.29640e-08,0.12446e-09 /) - kbo(:, 3,56, 2) = (/ & - & 0.34175e-11,0.19191e-08,0.29747e-08,0.34115e-08,0.14604e-09 /) - kbo(:, 4,56, 2) = (/ & - & 0.31604e-11,0.21575e-08,0.33348e-08,0.38018e-08,0.17202e-09 /) - kbo(:, 5,56, 2) = (/ & - & 0.29391e-11,0.23932e-08,0.36930e-08,0.41472e-08,0.20235e-09 /) - kbo(:, 1,57, 2) = (/ & - & 0.34486e-11,0.11480e-08,0.17032e-08,0.18771e-08,0.78787e-10 /) - kbo(:, 2,57, 2) = (/ & - & 0.31345e-11,0.13189e-08,0.20615e-08,0.23121e-08,0.96832e-10 /) - kbo(:, 3,57, 2) = (/ & - & 0.28728e-11,0.15144e-08,0.23440e-08,0.26863e-08,0.11317e-09 /) - kbo(:, 4,57, 2) = (/ & - & 0.26513e-11,0.17102e-08,0.26436e-08,0.30246e-08,0.13393e-09 /) - kbo(:, 5,57, 2) = (/ & - & 0.24615e-11,0.19022e-08,0.29394e-08,0.33135e-08,0.15772e-09 /) - kbo(:, 1,58, 2) = (/ & - & 0.29119e-11,0.89500e-09,0.13020e-08,0.14383e-08,0.60253e-10 /) - kbo(:, 2,58, 2) = (/ & - & 0.26392e-11,0.10369e-08,0.16036e-08,0.17891e-08,0.75765e-10 /) - kbo(:, 3,58, 2) = (/ & - & 0.24132e-11,0.11975e-08,0.18523e-08,0.21114e-08,0.88260e-10 /) - kbo(:, 4,58, 2) = (/ & - & 0.22227e-11,0.13570e-08,0.20959e-08,0.24045e-08,0.10478e-09 /) - kbo(:, 5,58, 2) = (/ & - & 0.20601e-11,0.15139e-08,0.23406e-08,0.26456e-08,0.12331e-09 /) - kbo(:, 1,59, 2) = (/ & - & 0.24143e-11,0.71851e-09,0.10362e-08,0.11516e-08,0.48086e-10 /) - kbo(:, 2,59, 2) = (/ & - & 0.21857e-11,0.83732e-09,0.12892e-08,0.14335e-08,0.60630e-10 /) - kbo(:, 3,59, 2) = (/ & - & 0.19965e-11,0.96815e-09,0.14990e-08,0.17039e-08,0.71208e-10 /) - kbo(:, 4,59, 2) = (/ & - & 0.18374e-11,0.10982e-08,0.16973e-08,0.19455e-08,0.84514e-10 /) - kbo(:, 5,59, 2) = (/ & - & 0.17017e-11,0.12277e-08,0.18981e-08,0.21472e-08,0.99289e-10 /) - kbo(:, 1,13, 3) = (/ & - & 0.69497e-07,0.55900e-04,0.77634e-04,0.83300e-04,0.14419e-04 /) - kbo(:, 2,13, 3) = (/ & - & 0.64923e-07,0.61779e-04,0.85238e-04,0.90458e-04,0.15996e-04 /) - kbo(:, 3,13, 3) = (/ & - & 0.60920e-07,0.67532e-04,0.92811e-04,0.97588e-04,0.17622e-04 /) - kbo(:, 4,13, 3) = (/ & - & 0.57379e-07,0.72876e-04,0.10040e-03,0.10455e-03,0.19144e-04 /) - kbo(:, 5,13, 3) = (/ & - & 0.54220e-07,0.77699e-04,0.10784e-03,0.11139e-03,0.20671e-04 /) - kbo(:, 1,14, 3) = (/ & - & 0.56538e-07,0.46627e-04,0.64678e-04,0.69399e-04,0.12086e-04 /) - kbo(:, 2,14, 3) = (/ & - & 0.52839e-07,0.51536e-04,0.71080e-04,0.75292e-04,0.13414e-04 /) - kbo(:, 3,14, 3) = (/ & - & 0.49600e-07,0.56334e-04,0.77384e-04,0.81277e-04,0.14732e-04 /) - kbo(:, 4,14, 3) = (/ & - & 0.46731e-07,0.60751e-04,0.83753e-04,0.87067e-04,0.15973e-04 /) - kbo(:, 5,14, 3) = (/ & - & 0.44171e-07,0.64792e-04,0.89963e-04,0.92617e-04,0.17214e-04 /) - kbo(:, 1,15, 3) = (/ & - & 0.45963e-07,0.38920e-04,0.53921e-04,0.57824e-04,0.10089e-04 /) - kbo(:, 2,15, 3) = (/ & - & 0.42976e-07,0.42987e-04,0.59286e-04,0.62615e-04,0.11238e-04 /) - kbo(:, 3,15, 3) = (/ & - & 0.40358e-07,0.47014e-04,0.64557e-04,0.67658e-04,0.12293e-04 /) - kbo(:, 4,15, 3) = (/ & - & 0.38037e-07,0.50641e-04,0.69879e-04,0.72487e-04,0.13317e-04 /) - kbo(:, 5,15, 3) = (/ & - & 0.35964e-07,0.54003e-04,0.75064e-04,0.77083e-04,0.14321e-04 /) - kbo(:, 1,16, 3) = (/ & - & 0.37354e-07,0.32479e-04,0.44953e-04,0.48146e-04,0.84079e-05 /) - kbo(:, 2,16, 3) = (/ & - & 0.34944e-07,0.35873e-04,0.49454e-04,0.52120e-04,0.93405e-05 /) - kbo(:, 3,16, 3) = (/ & - & 0.32829e-07,0.39220e-04,0.53861e-04,0.56293e-04,0.10209e-04 /) - kbo(:, 4,16, 3) = (/ & - & 0.30952e-07,0.42155e-04,0.58309e-04,0.60268e-04,0.11080e-04 /) - kbo(:, 5,16, 3) = (/ & - & 0.29274e-07,0.45014e-04,0.62610e-04,0.64184e-04,0.11887e-04 /) - kbo(:, 1,17, 3) = (/ & - & 0.30364e-07,0.27086e-04,0.37451e-04,0.39995e-04,0.70049e-05 /) - kbo(:, 2,17, 3) = (/ & - & 0.28420e-07,0.29919e-04,0.41194e-04,0.43367e-04,0.77736e-05 /) - kbo(:, 3,17, 3) = (/ & - & 0.26710e-07,0.32650e-04,0.44902e-04,0.46817e-04,0.84838e-05 /) - kbo(:, 4,17, 3) = (/ & - & 0.25192e-07,0.35098e-04,0.48605e-04,0.50103e-04,0.92038e-05 /) - kbo(:, 5,17, 3) = (/ & - & 0.23833e-07,0.37507e-04,0.52188e-04,0.53413e-04,0.98607e-05 /) - kbo(:, 1,18, 3) = (/ & - & 0.24687e-07,0.22581e-04,0.31211e-04,0.33220e-04,0.58361e-05 /) - kbo(:, 2,18, 3) = (/ & - & 0.23116e-07,0.24940e-04,0.34308e-04,0.36078e-04,0.64640e-05 /) - kbo(:, 3,18, 3) = (/ & - & 0.21734e-07,0.27181e-04,0.37414e-04,0.38933e-04,0.70344e-05 /) - kbo(:, 4,18, 3) = (/ & - & 0.20506e-07,0.29216e-04,0.40517e-04,0.41653e-04,0.76276e-05 /) - kbo(:, 5,18, 3) = (/ & - & 0.19406e-07,0.31237e-04,0.43490e-04,0.44397e-04,0.81753e-05 /) - kbo(:, 1,19, 3) = (/ & - & 0.20074e-07,0.18818e-04,0.25999e-04,0.27597e-04,0.48662e-05 /) - kbo(:, 2,19, 3) = (/ & - & 0.18805e-07,0.20784e-04,0.28562e-04,0.29993e-04,0.53723e-05 /) - kbo(:, 3,19, 3) = (/ & - & 0.17688e-07,0.22626e-04,0.31151e-04,0.32363e-04,0.58377e-05 /) - kbo(:, 4,19, 3) = (/ & - & 0.16693e-07,0.24300e-04,0.33760e-04,0.34629e-04,0.63177e-05 /) - kbo(:, 5,19, 3) = (/ & - & 0.15802e-07,0.25985e-04,0.36226e-04,0.36903e-04,0.67742e-05 /) - kbo(:, 1,20, 3) = (/ & - & 0.16306e-07,0.15717e-04,0.21686e-04,0.22959e-04,0.40680e-05 /) - kbo(:, 2,20, 3) = (/ & - & 0.15283e-07,0.17355e-04,0.23826e-04,0.24969e-04,0.44706e-05 /) - kbo(:, 3,20, 3) = (/ & - & 0.14381e-07,0.18856e-04,0.25992e-04,0.26912e-04,0.48550e-05 /) - kbo(:, 4,20, 3) = (/ & - & 0.13578e-07,0.20265e-04,0.28162e-04,0.28817e-04,0.52355e-05 /) - kbo(:, 5,20, 3) = (/ & - & 0.12857e-07,0.21638e-04,0.30215e-04,0.30707e-04,0.56224e-05 /) - kbo(:, 1,21, 3) = (/ & - & 0.13245e-07,0.13128e-04,0.18091e-04,0.19107e-04,0.33880e-05 /) - kbo(:, 2,21, 3) = (/ & - & 0.12420e-07,0.14495e-04,0.19887e-04,0.20794e-04,0.37144e-05 /) - kbo(:, 3,21, 3) = (/ & - & 0.11692e-07,0.15704e-04,0.21703e-04,0.22397e-04,0.40415e-05 /) - kbo(:, 4,21, 3) = (/ & - & 0.11043e-07,0.16904e-04,0.23489e-04,0.23984e-04,0.43455e-05 /) - kbo(:, 5,21, 3) = (/ & - & 0.10460e-07,0.18037e-04,0.25197e-04,0.25558e-04,0.46662e-05 /) - kbo(:, 1,22, 3) = (/ & - & 0.10711e-07,0.11044e-04,0.15199e-04,0.16008e-04,0.28409e-05 /) - kbo(:, 2,22, 3) = (/ & - & 0.10052e-07,0.12165e-04,0.16699e-04,0.17419e-04,0.31041e-05 /) - kbo(:, 3,22, 3) = (/ & - & 0.94690e-08,0.13158e-04,0.18224e-04,0.18733e-04,0.33768e-05 /) - kbo(:, 4,22, 3) = (/ & - & 0.89484e-08,0.14166e-04,0.19691e-04,0.20050e-04,0.36237e-05 /) - kbo(:, 5,22, 3) = (/ & - & 0.84804e-08,0.15085e-04,0.21105e-04,0.21356e-04,0.38876e-05 /) - kbo(:, 1,23, 3) = (/ & - & 0.86606e-08,0.93002e-05,0.12775e-04,0.13420e-04,0.23815e-05 /) - kbo(:, 2,23, 3) = (/ & - & 0.81340e-08,0.10210e-04,0.14034e-04,0.14552e-04,0.25955e-05 /) - kbo(:, 3,23, 3) = (/ & - & 0.76671e-08,0.11035e-04,0.15302e-04,0.15657e-04,0.28150e-05 /) - kbo(:, 4,23, 3) = (/ & - & 0.72497e-08,0.11863e-04,0.16513e-04,0.16770e-04,0.30198e-05 /) - kbo(:, 5,23, 3) = (/ & - & 0.68739e-08,0.12616e-04,0.17664e-04,0.17848e-04,0.32387e-05 /) - kbo(:, 1,24, 3) = (/ & - & 0.69995e-08,0.78392e-05,0.10754e-04,0.11250e-04,0.19986e-05 /) - kbo(:, 2,24, 3) = (/ & - & 0.65790e-08,0.85674e-05,0.11806e-04,0.12186e-04,0.21738e-05 /) - kbo(:, 3,24, 3) = (/ & - & 0.62055e-08,0.92664e-05,0.12850e-04,0.13103e-04,0.23469e-05 /) - kbo(:, 4,24, 3) = (/ & - & 0.58710e-08,0.99376e-05,0.13854e-04,0.14027e-04,0.25195e-05 /) - kbo(:, 5,24, 3) = (/ & - & 0.55696e-08,0.10527e-04,0.14795e-04,0.14917e-04,0.26988e-05 /) - kbo(:, 1,25, 3) = (/ & - & 0.56538e-08,0.66118e-05,0.90610e-05,0.94422e-05,0.16753e-05 /) - kbo(:, 2,25, 3) = (/ & - & 0.53184e-08,0.71986e-05,0.99389e-05,0.10209e-04,0.18223e-05 /) - kbo(:, 3,25, 3) = (/ & - & 0.50199e-08,0.77863e-05,0.10800e-04,0.10981e-04,0.19590e-05 /) - kbo(:, 4,25, 3) = (/ & - & 0.47522e-08,0.83415e-05,0.11626e-04,0.11737e-04,0.21020e-05 /) - kbo(:, 5,25, 3) = (/ & - & 0.45105e-08,0.88017e-05,0.12373e-04,0.12468e-04,0.22498e-05 /) - kbo(:, 1,26, 3) = (/ & - & 0.45620e-08,0.55749e-05,0.76463e-05,0.79285e-05,0.14032e-05 /) - kbo(:, 2,26, 3) = (/ & - & 0.42950e-08,0.60590e-05,0.83822e-05,0.85652e-05,0.15255e-05 /) - kbo(:, 3,26, 3) = (/ & - & 0.40569e-08,0.65510e-05,0.90888e-05,0.92116e-05,0.16373e-05 /) - kbo(:, 4,26, 3) = (/ & - & 0.38429e-08,0.69918e-05,0.97604e-05,0.98329e-05,0.17561e-05 /) - kbo(:, 5,26, 3) = (/ & - & 0.36495e-08,0.73566e-05,0.10367e-04,0.10429e-04,0.18769e-05 /) - kbo(:, 1,27, 3) = (/ & - & 0.36809e-08,0.46967e-05,0.64580e-05,0.66649e-05,0.11786e-05 /) - kbo(:, 2,27, 3) = (/ & - & 0.34683e-08,0.51072e-05,0.70661e-05,0.71902e-05,0.12759e-05 /) - kbo(:, 3,27, 3) = (/ & - & 0.32784e-08,0.55053e-05,0.76470e-05,0.77250e-05,0.13691e-05 /) - kbo(:, 4,27, 3) = (/ & - & 0.31074e-08,0.58474e-05,0.81898e-05,0.82340e-05,0.14666e-05 /) - kbo(:, 5,27, 3) = (/ & - & 0.29526e-08,0.61493e-05,0.86815e-05,0.87199e-05,0.15650e-05 /) - kbo(:, 1,28, 3) = (/ & - & 0.29701e-08,0.39582e-05,0.54573e-05,0.55959e-05,0.99037e-06 /) - kbo(:, 2,28, 3) = (/ & - & 0.28008e-08,0.43048e-05,0.59546e-05,0.60406e-05,0.10659e-05 /) - kbo(:, 3,28, 3) = (/ & - & 0.26493e-08,0.46277e-05,0.64286e-05,0.64745e-05,0.11442e-05 /) - kbo(:, 4,28, 3) = (/ & - & 0.25127e-08,0.48940e-05,0.68612e-05,0.68918e-05,0.12250e-05 /) - kbo(:, 5,28, 3) = (/ & - & 0.23888e-08,0.51428e-05,0.72654e-05,0.72865e-05,0.13046e-05 /) - kbo(:, 1,29, 3) = (/ & - & 0.23958e-08,0.33409e-05,0.46115e-05,0.47054e-05,0.83021e-06 /) - kbo(:, 2,29, 3) = (/ & - & 0.22611e-08,0.36267e-05,0.50192e-05,0.50754e-05,0.89157e-06 /) - kbo(:, 3,29, 3) = (/ & - & 0.21402e-08,0.38805e-05,0.54053e-05,0.54291e-05,0.95663e-06 /) - kbo(:, 4,29, 3) = (/ & - & 0.20311e-08,0.40929e-05,0.57529e-05,0.57685e-05,0.10232e-05 /) - kbo(:, 5,29, 3) = (/ & - & 0.19320e-08,0.43014e-05,0.60684e-05,0.60868e-05,0.10874e-05 /) - kbo(:, 1,30, 3) = (/ & - & 0.19328e-08,0.28217e-05,0.38955e-05,0.39562e-05,0.69464e-06 /) - kbo(:, 2,30, 3) = (/ & - & 0.18255e-08,0.30515e-05,0.42293e-05,0.42605e-05,0.74588e-06 /) - kbo(:, 3,30, 3) = (/ & - & 0.17291e-08,0.32496e-05,0.45390e-05,0.45501e-05,0.79957e-06 /) - kbo(:, 4,30, 3) = (/ & - & 0.16419e-08,0.34235e-05,0.48191e-05,0.48249e-05,0.85373e-06 /) - kbo(:, 5,30, 3) = (/ & - & 0.15626e-08,0.35992e-05,0.50632e-05,0.50805e-05,0.90582e-06 /) - kbo(:, 1,31, 3) = (/ & - & 0.15590e-08,0.23841e-05,0.32890e-05,0.33282e-05,0.58108e-06 /) - kbo(:, 2,31, 3) = (/ & - & 0.14736e-08,0.25683e-05,0.35605e-05,0.35756e-05,0.62401e-06 /) - kbo(:, 3,31, 3) = (/ & - & 0.13967e-08,0.27223e-05,0.38055e-05,0.38110e-05,0.66862e-06 /) - kbo(:, 4,31, 3) = (/ & - & 0.13271e-08,0.28652e-05,0.40295e-05,0.40331e-05,0.71216e-06 /) - kbo(:, 5,31, 3) = (/ & - & 0.12637e-08,0.30069e-05,0.42257e-05,0.42393e-05,0.75527e-06 /) - kbo(:, 1,32, 3) = (/ & - & 0.12575e-08,0.20099e-05,0.27764e-05,0.27988e-05,0.48614e-06 /) - kbo(:, 2,32, 3) = (/ & - & 0.11895e-08,0.21551e-05,0.29961e-05,0.29996e-05,0.52199e-06 /) - kbo(:, 3,32, 3) = (/ & - & 0.11282e-08,0.22771e-05,0.31901e-05,0.31897e-05,0.55867e-06 /) - kbo(:, 4,32, 3) = (/ & - & 0.10726e-08,0.23969e-05,0.33657e-05,0.33696e-05,0.59410e-06 /) - kbo(:, 5,32, 3) = (/ & - & 0.10218e-08,0.25076e-05,0.35232e-05,0.35366e-05,0.62965e-06 /) - kbo(:, 1,33, 3) = (/ & - & 0.10144e-08,0.16940e-05,0.23421e-05,0.23519e-05,0.40701e-06 /) - kbo(:, 2,33, 3) = (/ & - & 0.96024e-09,0.18066e-05,0.25146e-05,0.25148e-05,0.43657e-06 /) - kbo(:, 3,33, 3) = (/ & - & 0.91134e-09,0.19053e-05,0.26738e-05,0.26690e-05,0.46656e-06 /) - kbo(:, 4,33, 3) = (/ & - & 0.86689e-09,0.20038e-05,0.28104e-05,0.28139e-05,0.49516e-06 /) - kbo(:, 5,33, 3) = (/ & - & 0.82630e-09,0.20860e-05,0.29294e-05,0.29485e-05,0.52462e-06 /) - kbo(:, 1,34, 3) = (/ & - & 0.82000e-09,0.14231e-05,0.19661e-05,0.19700e-05,0.33996e-06 /) - kbo(:, 2,34, 3) = (/ & - & 0.77672e-09,0.15105e-05,0.21047e-05,0.21018e-05,0.36435e-06 /) - kbo(:, 3,34, 3) = (/ & - & 0.73757e-09,0.15908e-05,0.22307e-05,0.22272e-05,0.38851e-06 /) - kbo(:, 4,34, 3) = (/ & - & 0.70193e-09,0.16706e-05,0.23421e-05,0.23448e-05,0.41219e-06 /) - kbo(:, 5,34, 3) = (/ & - & 0.66936e-09,0.17330e-05,0.24342e-05,0.24538e-05,0.43607e-06 /) - kbo(:, 1,35, 3) = (/ & - & 0.66652e-09,0.11842e-05,0.16383e-05,0.16382e-05,0.28183e-06 /) - kbo(:, 2,35, 3) = (/ & - & 0.63156e-09,0.12541e-05,0.17499e-05,0.17457e-05,0.30195e-06 /) - kbo(:, 3,35, 3) = (/ & - & 0.59990e-09,0.13209e-05,0.18504e-05,0.18484e-05,0.32174e-06 /) - kbo(:, 4,35, 3) = (/ & - & 0.57107e-09,0.13850e-05,0.19418e-05,0.19438e-05,0.34124e-06 /) - kbo(:, 5,35, 3) = (/ & - & 0.54470e-09,0.14348e-05,0.20135e-05,0.20335e-05,0.36050e-06 /) - kbo(:, 1,36, 3) = (/ & - & 0.54506e-09,0.97870e-06,0.13541e-05,0.13520e-05,0.23190e-06 /) - kbo(:, 2,36, 3) = (/ & - & 0.51650e-09,0.10354e-05,0.14455e-05,0.14404e-05,0.24845e-06 /) - kbo(:, 3,36, 3) = (/ & - & 0.49063e-09,0.10910e-05,0.15270e-05,0.15247e-05,0.26464e-06 /) - kbo(:, 4,36, 3) = (/ & - & 0.46707e-09,0.11427e-05,0.16012e-05,0.16033e-05,0.28072e-06 /) - kbo(:, 5,36, 3) = (/ & - & 0.44553e-09,0.11833e-05,0.16604e-05,0.16774e-05,0.29643e-06 /) - kbo(:, 1,37, 3) = (/ & - & 0.44949e-09,0.80104e-06,0.11066e-05,0.11045e-05,0.18888e-06 /) - kbo(:, 2,37, 3) = (/ & - & 0.42579e-09,0.84810e-06,0.11826e-05,0.11777e-05,0.20242e-06 /) - kbo(:, 3,37, 3) = (/ & - & 0.40435e-09,0.89404e-06,0.12504e-05,0.12477e-05,0.21578e-06 /) - kbo(:, 4,37, 3) = (/ & - & 0.38483e-09,0.93737e-06,0.13124e-05,0.13129e-05,0.22892e-06 /) - kbo(:, 5,37, 3) = (/ & - & 0.36699e-09,0.97118e-06,0.13617e-05,0.13744e-05,0.24190e-06 /) - kbo(:, 1,38, 3) = (/ & - & 0.37088e-09,0.65468e-06,0.90347e-06,0.90140e-06,0.15371e-06 /) - kbo(:, 2,38, 3) = (/ & - & 0.35120e-09,0.69421e-06,0.96676e-06,0.96222e-06,0.16484e-06 /) - kbo(:, 3,38, 3) = (/ & - & 0.33340e-09,0.73211e-06,0.10233e-05,0.10203e-05,0.17578e-06 /) - kbo(:, 4,38, 3) = (/ & - & 0.31721e-09,0.76838e-06,0.10750e-05,0.10745e-05,0.18656e-06 /) - kbo(:, 5,38, 3) = (/ & - & 0.30242e-09,0.79676e-06,0.11164e-05,0.11256e-05,0.19730e-06 /) - kbo(:, 1,39, 3) = (/ & - & 0.30603e-09,0.53518e-06,0.73755e-06,0.73560e-06,0.12509e-06 /) - kbo(:, 2,39, 3) = (/ & - & 0.28967e-09,0.56827e-06,0.79017e-06,0.78607e-06,0.13420e-06 /) - kbo(:, 3,39, 3) = (/ & - & 0.27490e-09,0.59946e-06,0.83729e-06,0.83418e-06,0.14320e-06 /) - kbo(:, 4,39, 3) = (/ & - & 0.26148e-09,0.62968e-06,0.88045e-06,0.87919e-06,0.15206e-06 /) - kbo(:, 5,39, 3) = (/ & - & 0.24922e-09,0.65358e-06,0.91511e-06,0.92187e-06,0.16092e-06 /) - kbo(:, 1,40, 3) = (/ & - & 0.25401e-09,0.43491e-06,0.59706e-06,0.59583e-06,0.10103e-06 /) - kbo(:, 2,40, 3) = (/ & - & 0.24027e-09,0.46243e-06,0.64127e-06,0.63780e-06,0.10854e-06 /) - kbo(:, 3,40, 3) = (/ & - & 0.22788e-09,0.48789e-06,0.68111e-06,0.67785e-06,0.11596e-06 /) - kbo(:, 4,40, 3) = (/ & - & 0.21664e-09,0.51370e-06,0.71776e-06,0.71557e-06,0.12318e-06 /) - kbo(:, 5,40, 3) = (/ & - & 0.20639e-09,0.53413e-06,0.74738e-06,0.75116e-06,0.13055e-06 /) - kbo(:, 1,41, 3) = (/ & - & 0.21103e-09,0.35162e-06,0.48245e-06,0.48181e-06,0.81551e-07 /) - kbo(:, 2,41, 3) = (/ & - & 0.19947e-09,0.37577e-06,0.51975e-06,0.51683e-06,0.87624e-07 /) - kbo(:, 3,41, 3) = (/ & - & 0.18906e-09,0.39681e-06,0.55372e-06,0.55016e-06,0.93775e-07 /) - kbo(:, 4,41, 3) = (/ & - & 0.17963e-09,0.41856e-06,0.58405e-06,0.58177e-06,0.99677e-07 /) - kbo(:, 5,41, 3) = (/ & - & 0.17105e-09,0.43610e-06,0.60957e-06,0.61150e-06,0.10578e-06 /) - kbo(:, 1,42, 3) = (/ & - & 0.17536e-09,0.28412e-06,0.38948e-06,0.38933e-06,0.65791e-07 /) - kbo(:, 2,42, 3) = (/ & - & 0.16563e-09,0.30504e-06,0.42097e-06,0.41854e-06,0.70752e-07 /) - kbo(:, 3,42, 3) = (/ & - & 0.15688e-09,0.32265e-06,0.44957e-06,0.44624e-06,0.75790e-07 /) - kbo(:, 4,42, 3) = (/ & - & 0.14897e-09,0.34080e-06,0.47502e-06,0.47268e-06,0.80648e-07 /) - kbo(:, 5,42, 3) = (/ & - & 0.14178e-09,0.35584e-06,0.49696e-06,0.49747e-06,0.85685e-07 /) - kbo(:, 1,43, 3) = (/ & - & 0.14625e-09,0.22828e-06,0.31269e-06,0.31301e-06,0.52858e-07 /) - kbo(:, 2,43, 3) = (/ & - & 0.13800e-09,0.24660e-06,0.33945e-06,0.33736e-06,0.56872e-07 /) - kbo(:, 3,43, 3) = (/ & - & 0.13060e-09,0.26150e-06,0.36382e-06,0.36052e-06,0.61005e-07 /) - kbo(:, 4,43, 3) = (/ & - & 0.12392e-09,0.27637e-06,0.38496e-06,0.38262e-06,0.65064e-07 /) - kbo(:, 5,43, 3) = (/ & - & 0.11786e-09,0.28960e-06,0.40432e-06,0.40346e-06,0.69134e-07 /) - kbo(:, 1,44, 3) = (/ & - & 0.12220e-09,0.18299e-06,0.25003e-06,0.25075e-06,0.42426e-07 /) - kbo(:, 2,44, 3) = (/ & - & 0.11518e-09,0.19858e-06,0.27271e-06,0.27124e-06,0.45605e-07 /) - kbo(:, 3,44, 3) = (/ & - & 0.10890e-09,0.21149e-06,0.29306e-06,0.29059e-06,0.48989e-07 /) - kbo(:, 4,44, 3) = (/ & - & 0.10324e-09,0.22361e-06,0.31128e-06,0.30909e-06,0.52357e-07 /) - kbo(:, 5,44, 3) = (/ & - & 0.98119e-10,0.23540e-06,0.32782e-06,0.32657e-06,0.55650e-07 /) - kbo(:, 1,45, 3) = (/ & - & 0.10215e-09,0.14604e-06,0.19957e-06,0.20079e-06,0.34009e-07 /) - kbo(:, 2,45, 3) = (/ & - & 0.96168e-10,0.15976e-06,0.21859e-06,0.21782e-06,0.36565e-07 /) - kbo(:, 3,45, 3) = (/ & - & 0.90832e-10,0.17092e-06,0.23594e-06,0.23403e-06,0.39336e-07 /) - kbo(:, 4,45, 3) = (/ & - & 0.86039e-10,0.18076e-06,0.25148e-06,0.24940e-06,0.42120e-07 /) - kbo(:, 5,45, 3) = (/ & - & 0.81705e-10,0.19091e-06,0.26579e-06,0.26417e-06,0.44806e-07 /) - kbo(:, 1,46, 3) = (/ & - & 0.85548e-10,0.11606e-06,0.15858e-06,0.16025e-06,0.27138e-07 /) - kbo(:, 2,46, 3) = (/ & - & 0.80430e-10,0.12777e-06,0.17465e-06,0.17439e-06,0.29260e-07 /) - kbo(:, 3,46, 3) = (/ & - & 0.75882e-10,0.13771e-06,0.18956e-06,0.18801e-06,0.31519e-07 /) - kbo(:, 4,46, 3) = (/ & - & 0.71807e-10,0.14597e-06,0.20282e-06,0.20085e-06,0.33790e-07 /) - kbo(:, 5,46, 3) = (/ & - & 0.68131e-10,0.15454e-06,0.21485e-06,0.21321e-06,0.36016e-07 /) - kbo(:, 1,47, 3) = (/ & - & 0.71880e-10,0.91677e-07,0.12518e-06,0.12717e-06,0.21548e-07 /) - kbo(:, 2,47, 3) = (/ & - & 0.67474e-10,0.10182e-06,0.13885e-06,0.13887e-06,0.23366e-07 /) - kbo(:, 3,47, 3) = (/ & - & 0.63573e-10,0.11037e-06,0.15155e-06,0.15037e-06,0.25140e-07 /) - kbo(:, 4,47, 3) = (/ & - & 0.60089e-10,0.11757e-06,0.16292e-06,0.16115e-06,0.27023e-07 /) - kbo(:, 5,47, 3) = (/ & - & 0.56955e-10,0.12460e-06,0.17303e-06,0.17150e-06,0.28886e-07 /) - kbo(:, 1,48, 3) = (/ & - & 0.60438e-10,0.72378e-07,0.98586e-07,0.10075e-06,0.17068e-07 /) - kbo(:, 2,48, 3) = (/ & - & 0.56639e-10,0.80662e-07,0.11003e-06,0.11052e-06,0.18643e-07 /) - kbo(:, 3,48, 3) = (/ & - & 0.53288e-10,0.88391e-07,0.12069e-06,0.12007e-06,0.20050e-07 /) - kbo(:, 4,48, 3) = (/ & - & 0.50306e-10,0.94624e-07,0.13045e-06,0.12916e-06,0.21587e-07 /) - kbo(:, 5,48, 3) = (/ & - & 0.47632e-10,0.10026e-06,0.13914e-06,0.13778e-06,0.23136e-07 /) - kbo(:, 1,49, 3) = (/ & - & 0.50856e-10,0.57046e-07,0.77565e-07,0.79741e-07,0.13510e-07 /) - kbo(:, 2,49, 3) = (/ & - & 0.47574e-10,0.63730e-07,0.86939e-07,0.87826e-07,0.14811e-07 /) - kbo(:, 3,49, 3) = (/ & - & 0.44692e-10,0.70367e-07,0.95974e-07,0.95707e-07,0.15992e-07 /) - kbo(:, 4,49, 3) = (/ & - & 0.42136e-10,0.75959e-07,0.10441e-06,0.10336e-06,0.17235e-07 /) - kbo(:, 5,49, 3) = (/ & - & 0.39851e-10,0.80662e-07,0.11179e-06,0.11061e-06,0.18501e-07 /) - kbo(:, 1,50, 3) = (/ & - & 0.42752e-10,0.44994e-07,0.60933e-07,0.63170e-07,0.10733e-07 /) - kbo(:, 2,50, 3) = (/ & - & 0.39920e-10,0.50417e-07,0.68695e-07,0.69776e-07,0.11778e-07 /) - kbo(:, 3,50, 3) = (/ & - & 0.37445e-10,0.56129e-07,0.76381e-07,0.76292e-07,0.12796e-07 /) - kbo(:, 4,50, 3) = (/ & - & 0.35258e-10,0.60916e-07,0.83533e-07,0.82746e-07,0.13770e-07 /) - kbo(:, 5,50, 3) = (/ & - & 0.33309e-10,0.65010e-07,0.89933e-07,0.88828e-07,0.14809e-07 /) - kbo(:, 1,51, 3) = (/ & - & 0.35935e-10,0.35278e-07,0.47901e-07,0.50056e-07,0.85239e-08 /) - kbo(:, 2,51, 3) = (/ & - & 0.33494e-10,0.39897e-07,0.54245e-07,0.55439e-07,0.93562e-08 /) - kbo(:, 3,51, 3) = (/ & - & 0.31368e-10,0.44577e-07,0.60687e-07,0.60854e-07,0.10229e-07 /) - kbo(:, 4,51, 3) = (/ & - & 0.29497e-10,0.48906e-07,0.66668e-07,0.66217e-07,0.11009e-07 /) - kbo(:, 5,51, 3) = (/ & - & 0.27834e-10,0.52348e-07,0.72154e-07,0.71322e-07,0.11856e-07 /) - kbo(:, 1,52, 3) = (/ & - & 0.30227e-10,0.27572e-07,0.37524e-07,0.39754e-07,0.67198e-08 /) - kbo(:, 2,52, 3) = (/ & - & 0.28118e-10,0.31560e-07,0.42810e-07,0.44031e-07,0.74267e-08 /) - kbo(:, 3,52, 3) = (/ & - & 0.26290e-10,0.35319e-07,0.48079e-07,0.48486e-07,0.81511e-08 /) - kbo(:, 4,52, 3) = (/ & - & 0.24687e-10,0.39041e-07,0.53141e-07,0.52898e-07,0.88044e-08 /) - kbo(:, 5,52, 3) = (/ & - & 0.23267e-10,0.42123e-07,0.57835e-07,0.57177e-07,0.94934e-08 /) - kbo(:, 1,53, 3) = (/ & - & 0.25448e-10,0.21456e-07,0.29324e-07,0.31450e-07,0.53035e-08 /) - kbo(:, 2,53, 3) = (/ & - & 0.23623e-10,0.24922e-07,0.33706e-07,0.34903e-07,0.59025e-08 /) - kbo(:, 3,53, 3) = (/ & - & 0.22048e-10,0.27931e-07,0.38009e-07,0.38548e-07,0.64842e-08 /) - kbo(:, 4,53, 3) = (/ & - & 0.20673e-10,0.31117e-07,0.42293e-07,0.42180e-07,0.70454e-08 /) - kbo(:, 5,53, 3) = (/ & - & 0.19459e-10,0.33800e-07,0.46316e-07,0.45776e-07,0.75886e-08 /) - kbo(:, 1,54, 3) = (/ & - & 0.21390e-10,0.16743e-07,0.23031e-07,0.24877e-07,0.41777e-08 /) - kbo(:, 2,54, 3) = (/ & - & 0.19815e-10,0.19619e-07,0.26556e-07,0.27722e-07,0.47031e-08 /) - kbo(:, 3,54, 3) = (/ & - & 0.18463e-10,0.22167e-07,0.30101e-07,0.30708e-07,0.51646e-08 /) - kbo(:, 4,54, 3) = (/ & - & 0.17286e-10,0.24804e-07,0.33704e-07,0.33716e-07,0.56448e-08 /) - kbo(:, 5,54, 3) = (/ & - & 0.16251e-10,0.27183e-07,0.37049e-07,0.36696e-07,0.60788e-08 /) - kbo(:, 1,55, 3) = (/ & - & 0.17973e-10,0.13037e-07,0.18115e-07,0.19727e-07,0.32912e-08 /) - kbo(:, 2,55, 3) = (/ & - & 0.16615e-10,0.15402e-07,0.20942e-07,0.22043e-07,0.37301e-08 /) - kbo(:, 3,55, 3) = (/ & - & 0.15454e-10,0.17592e-07,0.23848e-07,0.24485e-07,0.41129e-08 /) - kbo(:, 4,55, 3) = (/ & - & 0.14448e-10,0.19733e-07,0.26815e-07,0.26954e-07,0.45146e-08 /) - kbo(:, 5,55, 3) = (/ & - & 0.13565e-10,0.21785e-07,0.29633e-07,0.29414e-07,0.48762e-08 /) - kbo(:, 1,56, 3) = (/ & - & 0.15112e-10,0.10127e-07,0.14262e-07,0.15637e-07,0.25986e-08 /) - kbo(:, 2,56, 3) = (/ & - & 0.13939e-10,0.12082e-07,0.16458e-07,0.17567e-07,0.29510e-08 /) - kbo(:, 3,56, 3) = (/ & - & 0.12942e-10,0.13980e-07,0.18876e-07,0.19499e-07,0.32803e-08 /) - kbo(:, 4,56, 3) = (/ & - & 0.12080e-10,0.15677e-07,0.21298e-07,0.21516e-07,0.36078e-08 /) - kbo(:, 5,56, 3) = (/ & - & 0.11328e-10,0.17421e-07,0.23674e-07,0.23552e-07,0.39142e-08 /) - kbo(:, 1,57, 3) = (/ & - & 0.12716e-10,0.78423e-08,0.11218e-07,0.12368e-07,0.20572e-08 /) - kbo(:, 2,57, 3) = (/ & - & 0.11703e-10,0.94468e-08,0.12944e-07,0.13939e-07,0.23449e-08 /) - kbo(:, 3,57, 3) = (/ & - & 0.10844e-10,0.11054e-07,0.14933e-07,0.15504e-07,0.26161e-08 /) - kbo(:, 4,57, 3) = (/ & - & 0.10105e-10,0.12445e-07,0.16895e-07,0.17167e-07,0.28789e-08 /) - kbo(:, 5,57, 3) = (/ & - & 0.94629e-11,0.13929e-07,0.18884e-07,0.18837e-07,0.31391e-08 /) - kbo(:, 1,58, 3) = (/ & - & 0.10694e-10,0.61084e-08,0.88278e-08,0.97801e-08,0.16192e-08 /) - kbo(:, 2,58, 3) = (/ & - & 0.98180e-11,0.73859e-08,0.10206e-07,0.11064e-07,0.18486e-08 /) - kbo(:, 3,58, 3) = (/ & - & 0.90797e-11,0.87113e-08,0.11801e-07,0.12348e-07,0.20872e-08 /) - kbo(:, 4,58, 3) = (/ & - & 0.84478e-11,0.99003e-08,0.13409e-07,0.13707e-07,0.22967e-08 /) - kbo(:, 5,58, 3) = (/ & - & 0.78998e-11,0.11108e-07,0.15069e-07,0.15082e-07,0.25182e-08 /) - kbo(:, 1,59, 3) = (/ & - & 0.88513e-11,0.49239e-08,0.71386e-08,0.79170e-08,0.13089e-08 /) - kbo(:, 2,59, 3) = (/ & - & 0.81187e-11,0.59541e-08,0.82539e-08,0.89758e-08,0.14952e-08 /) - kbo(:, 3,59, 3) = (/ & - & 0.75021e-11,0.70450e-08,0.95567e-08,0.10024e-07,0.16919e-08 /) - kbo(:, 4,59, 3) = (/ & - & 0.69753e-11,0.80391e-08,0.10874e-07,0.11143e-07,0.18646e-08 /) - kbo(:, 5,59, 3) = (/ & - & 0.65191e-11,0.90265e-08,0.12240e-07,0.12268e-07,0.20471e-08 /) - kbo(:, 1,13, 4) = (/ & - & 0.40115e-06,0.20542e-03,0.29006e-03,0.29983e-03,0.86404e-04 /) - kbo(:, 2,13, 4) = (/ & - & 0.38503e-06,0.22086e-03,0.30833e-03,0.32518e-03,0.92611e-04 /) - kbo(:, 3,13, 4) = (/ & - & 0.37042e-06,0.23415e-03,0.32674e-03,0.34814e-03,0.98878e-04 /) - kbo(:, 4,13, 4) = (/ & - & 0.35699e-06,0.24607e-03,0.34335e-03,0.36858e-03,0.10559e-03 /) - kbo(:, 5,13, 4) = (/ & - & 0.34439e-06,0.25741e-03,0.35943e-03,0.38716e-03,0.11262e-03 /) - kbo(:, 1,14, 4) = (/ & - & 0.32717e-06,0.17086e-03,0.24121e-03,0.25001e-03,0.72120e-04 /) - kbo(:, 2,14, 4) = (/ & - & 0.31411e-06,0.18358e-03,0.25599e-03,0.27089e-03,0.77351e-04 /) - kbo(:, 3,14, 4) = (/ & - & 0.30225e-06,0.19456e-03,0.27149e-03,0.29002e-03,0.82676e-04 /) - kbo(:, 4,14, 4) = (/ & - & 0.29132e-06,0.20460e-03,0.28544e-03,0.30678e-03,0.88331e-04 /) - kbo(:, 5,14, 4) = (/ & - & 0.28105e-06,0.21410e-03,0.29919e-03,0.32271e-03,0.94451e-04 /) - kbo(:, 1,15, 4) = (/ & - & 0.26673e-06,0.14221e-03,0.20048e-03,0.20843e-03,0.60213e-04 /) - kbo(:, 2,15, 4) = (/ & - & 0.25615e-06,0.15268e-03,0.21264e-03,0.22531e-03,0.64531e-04 /) - kbo(:, 3,15, 4) = (/ & - & 0.24652e-06,0.16170e-03,0.22567e-03,0.24157e-03,0.69102e-04 /) - kbo(:, 4,15, 4) = (/ & - & 0.23764e-06,0.17023e-03,0.23750e-03,0.25543e-03,0.73891e-04 /) - kbo(:, 5,15, 4) = (/ & - & 0.22926e-06,0.17815e-03,0.24912e-03,0.26892e-03,0.79167e-04 /) - kbo(:, 1,16, 4) = (/ & - & 0.21740e-06,0.11824e-03,0.16644e-03,0.17381e-03,0.50227e-04 /) - kbo(:, 2,16, 4) = (/ & - & 0.20884e-06,0.12696e-03,0.17683e-03,0.18780e-03,0.53903e-04 /) - kbo(:, 3,16, 4) = (/ & - & 0.20104e-06,0.13434e-03,0.18764e-03,0.20094e-03,0.57777e-04 /) - kbo(:, 4,16, 4) = (/ & - & 0.19381e-06,0.14177e-03,0.19757e-03,0.21259e-03,0.61821e-04 /) - kbo(:, 5,16, 4) = (/ & - & 0.18698e-06,0.14828e-03,0.20747e-03,0.22416e-03,0.66326e-04 /) - kbo(:, 1,17, 4) = (/ & - & 0.17724e-06,0.98287e-04,0.13813e-03,0.14496e-03,0.41851e-04 /) - kbo(:, 2,17, 4) = (/ & - & 0.17029e-06,0.10548e-03,0.14701e-03,0.15636e-03,0.44943e-04 /) - kbo(:, 3,17, 4) = (/ & - & 0.16396e-06,0.11169e-03,0.15605e-03,0.16727e-03,0.48176e-04 /) - kbo(:, 4,17, 4) = (/ & - & 0.15809e-06,0.11795e-03,0.16435e-03,0.17684e-03,0.51716e-04 /) - kbo(:, 5,17, 4) = (/ & - & 0.15251e-06,0.12332e-03,0.17265e-03,0.18683e-03,0.55480e-04 /) - kbo(:, 1,18, 4) = (/ & - & 0.14450e-06,0.81703e-04,0.11464e-03,0.12079e-03,0.34849e-04 /) - kbo(:, 2,18, 4) = (/ & - & 0.13887e-06,0.87580e-04,0.12224e-03,0.13028e-03,0.37465e-04 /) - kbo(:, 3,18, 4) = (/ & - & 0.13373e-06,0.92869e-04,0.12966e-03,0.13906e-03,0.40225e-04 /) - kbo(:, 4,18, 4) = (/ & - & 0.12896e-06,0.98034e-04,0.13668e-03,0.14712e-03,0.43227e-04 /) - kbo(:, 5,18, 4) = (/ & - & 0.12439e-06,0.10250e-03,0.14367e-03,0.15557e-03,0.46383e-04 /) - kbo(:, 1,19, 4) = (/ & - & 0.11782e-06,0.67922e-04,0.95121e-04,0.10059e-03,0.29014e-04 /) - kbo(:, 2,19, 4) = (/ & - & 0.11325e-06,0.72759e-04,0.10166e-03,0.10843e-03,0.31239e-04 /) - kbo(:, 3,19, 4) = (/ & - & 0.10909e-06,0.77213e-04,0.10769e-03,0.11563e-03,0.33594e-04 /) - kbo(:, 4,19, 4) = (/ & - & 0.10521e-06,0.81507e-04,0.11367e-03,0.12244e-03,0.36087e-04 /) - kbo(:, 5,19, 4) = (/ & - & 0.10146e-06,0.85229e-04,0.11951e-03,0.12955e-03,0.38760e-04 /) - kbo(:, 1,20, 4) = (/ & - & 0.96005e-07,0.56539e-04,0.79048e-04,0.83638e-04,0.24182e-04 /) - kbo(:, 2,20, 4) = (/ & - & 0.92311e-07,0.60522e-04,0.84506e-04,0.90308e-04,0.26052e-04 /) - kbo(:, 3,20, 4) = (/ & - & 0.88927e-07,0.64305e-04,0.89608e-04,0.96229e-04,0.28071e-04 /) - kbo(:, 4,20, 4) = (/ & - & 0.85775e-07,0.67811e-04,0.94659e-04,0.10203e-03,0.30185e-04 /) - kbo(:, 5,20, 4) = (/ & - & 0.82709e-07,0.70967e-04,0.99551e-04,0.10796e-03,0.32438e-04 /) - kbo(:, 1,21, 4) = (/ & - & 0.78225e-07,0.47094e-04,0.65736e-04,0.69706e-04,0.20168e-04 /) - kbo(:, 2,21, 4) = (/ & - & 0.75235e-07,0.50383e-04,0.70309e-04,0.75210e-04,0.21748e-04 /) - kbo(:, 3,21, 4) = (/ & - & 0.72491e-07,0.53581e-04,0.74579e-04,0.80106e-04,0.23442e-04 /) - kbo(:, 4,21, 4) = (/ & - & 0.69929e-07,0.56448e-04,0.78864e-04,0.85108e-04,0.25248e-04 /) - kbo(:, 5,21, 4) = (/ & - & 0.67419e-07,0.59090e-04,0.82932e-04,0.89870e-04,0.27098e-04 /) - kbo(:, 1,22, 4) = (/ & - & 0.63572e-07,0.39426e-04,0.54979e-04,0.58443e-04,0.16913e-04 /) - kbo(:, 2,22, 4) = (/ & - & 0.61166e-07,0.42097e-04,0.58779e-04,0.62933e-04,0.18259e-04 /) - kbo(:, 3,22, 4) = (/ & - & 0.58951e-07,0.44794e-04,0.62330e-04,0.66952e-04,0.19670e-04 /) - kbo(:, 4,22, 4) = (/ & - & 0.56872e-07,0.47147e-04,0.65961e-04,0.71230e-04,0.21221e-04 /) - kbo(:, 5,22, 4) = (/ & - & 0.54822e-07,0.49377e-04,0.69234e-04,0.75038e-04,0.22743e-04 /) - kbo(:, 1,23, 4) = (/ & - & 0.51656e-07,0.32950e-04,0.46052e-04,0.49084e-04,0.14181e-04 /) - kbo(:, 2,23, 4) = (/ & - & 0.49721e-07,0.35250e-04,0.49106e-04,0.52675e-04,0.15330e-04 /) - kbo(:, 3,23, 4) = (/ & - & 0.47930e-07,0.37438e-04,0.52152e-04,0.56097e-04,0.16532e-04 /) - kbo(:, 4,23, 4) = (/ & - & 0.46242e-07,0.39418e-04,0.55160e-04,0.59674e-04,0.17811e-04 /) - kbo(:, 5,23, 4) = (/ & - & 0.44570e-07,0.41280e-04,0.57899e-04,0.62654e-04,0.19100e-04 /) - kbo(:, 1,24, 4) = (/ & - & 0.41962e-07,0.27608e-04,0.38527e-04,0.41167e-04,0.11908e-04 /) - kbo(:, 2,24, 4) = (/ & - & 0.40405e-07,0.29547e-04,0.41099e-04,0.44081e-04,0.12880e-04 /) - kbo(:, 3,24, 4) = (/ & - & 0.38959e-07,0.31321e-04,0.43687e-04,0.47051e-04,0.13912e-04 /) - kbo(:, 4,24, 4) = (/ & - & 0.37583e-07,0.32994e-04,0.46190e-04,0.49890e-04,0.14961e-04 /) - kbo(:, 5,24, 4) = (/ & - & 0.36227e-07,0.34560e-04,0.48473e-04,0.52358e-04,0.16039e-04 /) - kbo(:, 1,25, 4) = (/ & - & 0.34075e-07,0.23153e-04,0.32305e-04,0.34566e-04,0.10014e-04 /) - kbo(:, 2,25, 4) = (/ & - & 0.32822e-07,0.24769e-04,0.34435e-04,0.36968e-04,0.10822e-04 /) - kbo(:, 3,25, 4) = (/ & - & 0.31655e-07,0.26242e-04,0.36635e-04,0.39484e-04,0.11699e-04 /) - kbo(:, 4,25, 4) = (/ & - & 0.30528e-07,0.27624e-04,0.38648e-04,0.41770e-04,0.12588e-04 /) - kbo(:, 5,25, 4) = (/ & - & 0.29434e-07,0.28951e-04,0.40632e-04,0.43774e-04,0.13479e-04 /) - kbo(:, 1,26, 4) = (/ & - & 0.27652e-07,0.19460e-04,0.27114e-04,0.29052e-04,0.84372e-05 /) - kbo(:, 2,26, 4) = (/ & - & 0.26645e-07,0.20785e-04,0.28933e-04,0.31091e-04,0.91305e-05 /) - kbo(:, 3,26, 4) = (/ & - & 0.25703e-07,0.22018e-04,0.30749e-04,0.33173e-04,0.98560e-05 /) - kbo(:, 4,26, 4) = (/ & - & 0.24780e-07,0.23166e-04,0.32405e-04,0.34971e-04,0.10593e-04 /) - kbo(:, 5,26, 4) = (/ & - & 0.23900e-07,0.24286e-04,0.34048e-04,0.36663e-04,0.11346e-04 /) - kbo(:, 1,27, 4) = (/ & - & 0.22439e-07,0.16370e-04,0.22763e-04,0.24397e-04,0.71084e-05 /) - kbo(:, 2,27, 4) = (/ & - & 0.21628e-07,0.17461e-04,0.24318e-04,0.26140e-04,0.76961e-05 /) - kbo(:, 3,27, 4) = (/ & - & 0.20865e-07,0.18493e-04,0.25826e-04,0.27824e-04,0.83080e-05 /) - kbo(:, 4,27, 4) = (/ & - & 0.20113e-07,0.19452e-04,0.27215e-04,0.29287e-04,0.89207e-05 /) - kbo(:, 5,27, 4) = (/ & - & 0.19405e-07,0.20376e-04,0.28543e-04,0.30710e-04,0.95477e-05 /) - kbo(:, 1,28, 4) = (/ & - & 0.18208e-07,0.13777e-04,0.19138e-04,0.20524e-04,0.59952e-05 /) - kbo(:, 2,28, 4) = (/ & - & 0.17555e-07,0.14679e-04,0.20448e-04,0.21996e-04,0.64907e-05 /) - kbo(:, 3,28, 4) = (/ & - & 0.16936e-07,0.15522e-04,0.21661e-04,0.23357e-04,0.69966e-05 /) - kbo(:, 4,28, 4) = (/ & - & 0.16325e-07,0.16334e-04,0.22846e-04,0.24537e-04,0.75124e-05 /) - kbo(:, 5,28, 4) = (/ & - & 0.15755e-07,0.17088e-04,0.23931e-04,0.25722e-04,0.80305e-05 /) - kbo(:, 1,29, 4) = (/ & - & 0.14772e-07,0.11598e-04,0.16117e-04,0.17294e-04,0.50602e-05 /) - kbo(:, 2,29, 4) = (/ & - & 0.14246e-07,0.12346e-04,0.17198e-04,0.18521e-04,0.54799e-05 /) - kbo(:, 3,29, 4) = (/ & - & 0.13739e-07,0.13047e-04,0.18205e-04,0.19566e-04,0.58992e-05 /) - kbo(:, 4,29, 4) = (/ & - & 0.13247e-07,0.13729e-04,0.19173e-04,0.20574e-04,0.63251e-05 /) - kbo(:, 5,29, 4) = (/ & - & 0.12789e-07,0.14341e-04,0.20068e-04,0.21536e-04,0.67496e-05 /) - kbo(:, 1,30, 4) = (/ & - & 0.11984e-07,0.97679e-05,0.13568e-04,0.14565e-04,0.42721e-05 /) - kbo(:, 2,30, 4) = (/ & - & 0.11560e-07,0.10389e-04,0.14461e-04,0.15560e-04,0.46182e-05 /) - kbo(:, 3,30, 4) = (/ & - & 0.11144e-07,0.10973e-04,0.15302e-04,0.16410e-04,0.49715e-05 /) - kbo(:, 4,30, 4) = (/ & - & 0.10750e-07,0.11532e-04,0.16091e-04,0.17244e-04,0.53212e-05 /) - kbo(:, 5,30, 4) = (/ & - & 0.10381e-07,0.12034e-04,0.16821e-04,0.18023e-04,0.56712e-05 /) - kbo(:, 1,31, 4) = (/ & - & 0.97205e-08,0.82296e-05,0.11440e-04,0.12288e-04,0.36079e-05 /) - kbo(:, 2,31, 4) = (/ & - & 0.93777e-08,0.87431e-05,0.12158e-04,0.13067e-04,0.38974e-05 /) - kbo(:, 3,31, 4) = (/ & - & 0.90391e-08,0.92300e-05,0.12862e-04,0.13769e-04,0.41885e-05 /) - kbo(:, 4,31, 4) = (/ & - & 0.87219e-08,0.96854e-05,0.13508e-04,0.14454e-04,0.44756e-05 /) - kbo(:, 5,31, 4) = (/ & - & 0.84251e-08,0.10101e-04,0.14090e-04,0.15064e-04,0.47643e-05 /) - kbo(:, 1,32, 4) = (/ & - & 0.78842e-08,0.69379e-05,0.96378e-05,0.10350e-04,0.30462e-05 /) - kbo(:, 2,32, 4) = (/ & - & 0.76058e-08,0.73605e-05,0.10230e-04,0.10964e-04,0.32879e-05 /) - kbo(:, 3,32, 4) = (/ & - & 0.73312e-08,0.77685e-05,0.10806e-04,0.11552e-04,0.35258e-05 /) - kbo(:, 4,32, 4) = (/ & - & 0.70761e-08,0.81393e-05,0.11329e-04,0.12109e-04,0.37642e-05 /) - kbo(:, 5,32, 4) = (/ & - & 0.68375e-08,0.84723e-05,0.11806e-04,0.12582e-04,0.40027e-05 /) - kbo(:, 1,33, 4) = (/ & - & 0.63946e-08,0.58484e-05,0.81132e-05,0.87138e-05,0.25722e-05 /) - kbo(:, 2,33, 4) = (/ & - & 0.61668e-08,0.61985e-05,0.86152e-05,0.92043e-05,0.27716e-05 /) - kbo(:, 3,33, 4) = (/ & - & 0.59460e-08,0.65329e-05,0.90761e-05,0.96914e-05,0.29672e-05 /) - kbo(:, 4,33, 4) = (/ & - & 0.57410e-08,0.68349e-05,0.94991e-05,0.10128e-04,0.31649e-05 /) - kbo(:, 5,33, 4) = (/ & - & 0.55490e-08,0.71098e-05,0.98972e-05,0.10494e-04,0.33613e-05 /) - kbo(:, 1,34, 4) = (/ & - & 0.51931e-08,0.49155e-05,0.68122e-05,0.73003e-05,0.21648e-05 /) - kbo(:, 2,34, 4) = (/ & - & 0.50066e-08,0.52108e-05,0.72299e-05,0.77128e-05,0.23280e-05 /) - kbo(:, 3,34, 4) = (/ & - & 0.48289e-08,0.54838e-05,0.76076e-05,0.81077e-05,0.24906e-05 /) - kbo(:, 4,34, 4) = (/ & - & 0.46636e-08,0.57271e-05,0.79460e-05,0.84494e-05,0.26534e-05 /) - kbo(:, 5,34, 4) = (/ & - & 0.45089e-08,0.59543e-05,0.82751e-05,0.87422e-05,0.28159e-05 /) - kbo(:, 1,35, 4) = (/ & - & 0.42177e-08,0.41104e-05,0.56914e-05,0.60852e-05,0.18078e-05 /) - kbo(:, 2,35, 4) = (/ & - & 0.40795e-08,0.43580e-05,0.60334e-05,0.64274e-05,0.19421e-05 /) - kbo(:, 3,35, 4) = (/ & - & 0.39353e-08,0.45814e-05,0.63407e-05,0.67443e-05,0.20767e-05 /) - kbo(:, 4,35, 4) = (/ & - & 0.38012e-08,0.47803e-05,0.66196e-05,0.70144e-05,0.22114e-05 /) - kbo(:, 5,35, 4) = (/ & - & 0.36756e-08,0.49682e-05,0.68884e-05,0.72539e-05,0.23458e-05 /) - kbo(:, 1,36, 4) = (/ & - & 0.34162e-08,0.34141e-05,0.47224e-05,0.50412e-05,0.14965e-05 /) - kbo(:, 2,36, 4) = (/ & - & 0.33196e-08,0.36215e-05,0.50037e-05,0.53241e-05,0.16078e-05 /) - kbo(:, 3,36, 4) = (/ & - & 0.32195e-08,0.38064e-05,0.52583e-05,0.55817e-05,0.17188e-05 /) - kbo(:, 4,36, 4) = (/ & - & 0.31099e-08,0.39715e-05,0.54881e-05,0.58006e-05,0.18307e-05 /) - kbo(:, 5,36, 4) = (/ & - & 0.30072e-08,0.41270e-05,0.57065e-05,0.59974e-05,0.19419e-05 /) - kbo(:, 1,37, 4) = (/ & - & 0.28008e-08,0.28094e-05,0.38801e-05,0.41393e-05,0.12248e-05 /) - kbo(:, 2,37, 4) = (/ & - & 0.27121e-08,0.29836e-05,0.41155e-05,0.43748e-05,0.13168e-05 /) - kbo(:, 3,37, 4) = (/ & - & 0.26482e-08,0.31397e-05,0.43282e-05,0.45885e-05,0.14087e-05 /) - kbo(:, 4,37, 4) = (/ & - & 0.25576e-08,0.32779e-05,0.45200e-05,0.47706e-05,0.15013e-05 /) - kbo(:, 5,37, 4) = (/ & - & 0.24727e-08,0.34082e-05,0.47023e-05,0.49354e-05,0.15935e-05 /) - kbo(:, 1,38, 4) = (/ & - & 0.22984e-08,0.23106e-05,0.31856e-05,0.33961e-05,0.10016e-05 /) - kbo(:, 2,38, 4) = (/ & - & 0.22220e-08,0.24563e-05,0.33826e-05,0.35915e-05,0.10776e-05 /) - kbo(:, 3,38, 4) = (/ & - & 0.21588e-08,0.25882e-05,0.35600e-05,0.37696e-05,0.11538e-05 /) - kbo(:, 4,38, 4) = (/ & - & 0.21040e-08,0.27033e-05,0.37199e-05,0.39213e-05,0.12304e-05 /) - kbo(:, 5,38, 4) = (/ & - & 0.20339e-08,0.28122e-05,0.38728e-05,0.40597e-05,0.13067e-05 /) - kbo(:, 1,39, 4) = (/ & - & 0.18867e-08,0.18990e-05,0.26147e-05,0.27855e-05,0.81895e-06 /) - kbo(:, 2,39, 4) = (/ & - & 0.18219e-08,0.20211e-05,0.27789e-05,0.29482e-05,0.88168e-06 /) - kbo(:, 3,39, 4) = (/ & - & 0.17671e-08,0.21324e-05,0.29272e-05,0.30962e-05,0.94475e-06 /) - kbo(:, 4,39, 4) = (/ & - & 0.17201e-08,0.22287e-05,0.30607e-05,0.32231e-05,0.10080e-05 /) - kbo(:, 5,39, 4) = (/ & - & 0.16729e-08,0.23197e-05,0.31885e-05,0.33389e-05,0.10713e-05 /) - kbo(:, 1,40, 4) = (/ & - & 0.15567e-08,0.15486e-05,0.21299e-05,0.22697e-05,0.66418e-06 /) - kbo(:, 2,40, 4) = (/ & - & 0.15030e-08,0.16525e-05,0.22686e-05,0.24063e-05,0.71591e-06 /) - kbo(:, 3,40, 4) = (/ & - & 0.14559e-08,0.17468e-05,0.23938e-05,0.25304e-05,0.76804e-06 /) - kbo(:, 4,40, 4) = (/ & - & 0.14147e-08,0.18284e-05,0.25062e-05,0.26377e-05,0.82053e-06 /) - kbo(:, 5,40, 4) = (/ & - & 0.13808e-08,0.19051e-05,0.26142e-05,0.27362e-05,0.87282e-06 /) - kbo(:, 1,41, 4) = (/ & - & 0.12855e-08,0.12622e-05,0.17326e-05,0.18472e-05,0.53778e-06 /) - kbo(:, 2,41, 4) = (/ & - & 0.12414e-08,0.13486e-05,0.18494e-05,0.19612e-05,0.58062e-06 /) - kbo(:, 3,41, 4) = (/ & - & 0.12006e-08,0.14290e-05,0.19551e-05,0.20665e-05,0.62365e-06 /) - kbo(:, 4,41, 4) = (/ & - & 0.11655e-08,0.14984e-05,0.20506e-05,0.21570e-05,0.66707e-06 /) - kbo(:, 5,41, 4) = (/ & - & 0.11366e-08,0.15630e-05,0.21416e-05,0.22404e-05,0.71035e-06 /) - kbo(:, 1,42, 4) = (/ & - & 0.10616e-08,0.10273e-05,0.14085e-05,0.15034e-05,0.43514e-06 /) - kbo(:, 2,42, 4) = (/ & - & 0.10250e-08,0.10997e-05,0.15070e-05,0.15973e-05,0.47061e-06 /) - kbo(:, 3,42, 4) = (/ & - & 0.99030e-09,0.11679e-05,0.15953e-05,0.16861e-05,0.50613e-06 /) - kbo(:, 4,42, 4) = (/ & - & 0.96062e-09,0.12272e-05,0.16766e-05,0.17642e-05,0.54216e-06 /) - kbo(:, 5,42, 4) = (/ & - & 0.93443e-09,0.12817e-05,0.17529e-05,0.18333e-05,0.57784e-06 /) - kbo(:, 1,43, 4) = (/ & - & 0.87883e-09,0.83199e-06,0.11402e-05,0.12168e-05,0.35025e-06 /) - kbo(:, 2,43, 4) = (/ & - & 0.84829e-09,0.89254e-06,0.12225e-05,0.12958e-05,0.37960e-06 /) - kbo(:, 3,43, 4) = (/ & - & 0.81903e-09,0.95072e-06,0.12966e-05,0.13708e-05,0.40893e-06 /) - kbo(:, 4,43, 4) = (/ & - & 0.79369e-09,0.10020e-05,0.13665e-05,0.14379e-05,0.43862e-06 /) - kbo(:, 5,43, 4) = (/ & - & 0.77108e-09,0.10478e-05,0.14302e-05,0.14962e-05,0.46817e-06 /) - kbo(:, 1,44, 4) = (/ & - & 0.72838e-09,0.67080e-06,0.91962e-06,0.98102e-06,0.28107e-06 /) - kbo(:, 2,44, 4) = (/ & - & 0.70279e-09,0.72271e-06,0.98853e-06,0.10491e-05,0.30540e-06 /) - kbo(:, 3,44, 4) = (/ & - & 0.67858e-09,0.77203e-06,0.10522e-05,0.11122e-05,0.32958e-06 /) - kbo(:, 4,44, 4) = (/ & - & 0.65651e-09,0.81625e-06,0.11115e-05,0.11697e-05,0.35407e-06 /) - kbo(:, 5,44, 4) = (/ & - & 0.63727e-09,0.85495e-06,0.11651e-05,0.12192e-05,0.37850e-06 /) - kbo(:, 1,45, 4) = (/ & - & 0.60379e-09,0.54047e-06,0.74128e-06,0.79100e-06,0.22535e-06 /) - kbo(:, 2,45, 4) = (/ & - & 0.58228e-09,0.58429e-06,0.79854e-06,0.84841e-06,0.24548e-06 /) - kbo(:, 3,45, 4) = (/ & - & 0.56220e-09,0.62606e-06,0.85283e-06,0.90157e-06,0.26541e-06 /) - kbo(:, 4,45, 4) = (/ & - & 0.54320e-09,0.66423e-06,0.90296e-06,0.95015e-06,0.28558e-06 /) - kbo(:, 5,45, 4) = (/ & - & 0.52686e-09,0.69719e-06,0.94830e-06,0.99254e-06,0.30580e-06 /) - kbo(:, 1,46, 4) = (/ & - & 0.50108e-09,0.43361e-06,0.59554e-06,0.63432e-06,0.18023e-06 /) - kbo(:, 2,46, 4) = (/ & - & 0.48291e-09,0.47127e-06,0.64349e-06,0.68510e-06,0.19677e-06 /) - kbo(:, 3,46, 4) = (/ & - & 0.46612e-09,0.50621e-06,0.68942e-06,0.72929e-06,0.21325e-06 /) - kbo(:, 4,46, 4) = (/ & - & 0.45004e-09,0.53903e-06,0.73169e-06,0.77095e-06,0.22986e-06 /) - kbo(:, 5,46, 4) = (/ & - & 0.43600e-09,0.56740e-06,0.77081e-06,0.80714e-06,0.24654e-06 /) - kbo(:, 1,47, 4) = (/ & - & 0.41665e-09,0.34614e-06,0.47565e-06,0.50598e-06,0.14345e-06 /) - kbo(:, 2,47, 4) = (/ & - & 0.40119e-09,0.37779e-06,0.51642e-06,0.55015e-06,0.15697e-06 /) - kbo(:, 3,47, 4) = (/ & - & 0.38702e-09,0.40752e-06,0.55525e-06,0.58759e-06,0.17064e-06 /) - kbo(:, 4,47, 4) = (/ & - & 0.37372e-09,0.43563e-06,0.59076e-06,0.62318e-06,0.18430e-06 /) - kbo(:, 5,47, 4) = (/ & - & 0.36139e-09,0.46041e-06,0.62474e-06,0.65515e-06,0.19800e-06 /) - kbo(:, 1,48, 4) = (/ & - & 0.34658e-09,0.27494e-06,0.37924e-06,0.40349e-06,0.11407e-06 /) - kbo(:, 2,48, 4) = (/ & - & 0.33340e-09,0.30243e-06,0.41340e-06,0.44066e-06,0.12508e-06 /) - kbo(:, 3,48, 4) = (/ & - & 0.32143e-09,0.32756e-06,0.44635e-06,0.47308e-06,0.13636e-06 /) - kbo(:, 4,48, 4) = (/ & - & 0.31032e-09,0.35149e-06,0.47669e-06,0.50309e-06,0.14763e-06 /) - kbo(:, 5,48, 4) = (/ & - & 0.29969e-09,0.37323e-06,0.50542e-06,0.53062e-06,0.15892e-06 /) - kbo(:, 1,49, 4) = (/ & - & 0.28846e-09,0.21778e-06,0.30168e-06,0.32158e-06,0.90607e-07 /) - kbo(:, 2,49, 4) = (/ & - & 0.27716e-09,0.24139e-06,0.33071e-06,0.35214e-06,0.99577e-07 /) - kbo(:, 3,49, 4) = (/ & - & 0.26700e-09,0.26304e-06,0.35804e-06,0.38049e-06,0.10881e-06 /) - kbo(:, 4,49, 4) = (/ & - & 0.25767e-09,0.28313e-06,0.38394e-06,0.40566e-06,0.11814e-06 /) - kbo(:, 5,49, 4) = (/ & - & 0.24875e-09,0.30183e-06,0.40832e-06,0.42906e-06,0.12742e-06 /) - kbo(:, 1,50, 4) = (/ & - & 0.23994e-09,0.17276e-06,0.24039e-06,0.25644e-06,0.72124e-07 /) - kbo(:, 2,50, 4) = (/ & - & 0.23028e-09,0.19275e-06,0.26429e-06,0.28117e-06,0.79388e-07 /) - kbo(:, 3,50, 4) = (/ & - & 0.22162e-09,0.21106e-06,0.28758e-06,0.30606e-06,0.86922e-07 /) - kbo(:, 4,50, 4) = (/ & - & 0.21377e-09,0.22807e-06,0.30947e-06,0.32714e-06,0.94628e-07 /) - kbo(:, 5,50, 4) = (/ & - & 0.20641e-09,0.24400e-06,0.32962e-06,0.34715e-06,0.10228e-06 /) - kbo(:, 1,51, 4) = (/ & - & 0.19960e-09,0.13709e-06,0.19101e-06,0.20407e-06,0.57566e-07 /) - kbo(:, 2,51, 4) = (/ & - & 0.19132e-09,0.15352e-06,0.21120e-06,0.22455e-06,0.63308e-07 /) - kbo(:, 3,51, 4) = (/ & - & 0.18395e-09,0.16924e-06,0.23068e-06,0.24563e-06,0.69421e-07 /) - kbo(:, 4,51, 4) = (/ & - & 0.17732e-09,0.18352e-06,0.24926e-06,0.26383e-06,0.75773e-07 /) - kbo(:, 5,51, 4) = (/ & - & 0.17117e-09,0.19715e-06,0.26630e-06,0.28068e-06,0.82097e-07 /) - kbo(:, 1,52, 4) = (/ & - & 0.16616e-09,0.10852e-06,0.15191e-06,0.16137e-06,0.45975e-07 /) - kbo(:, 2,52, 4) = (/ & - & 0.15901e-09,0.12188e-06,0.16855e-06,0.17943e-06,0.50454e-07 /) - kbo(:, 3,52, 4) = (/ & - & 0.15272e-09,0.13535e-06,0.18502e-06,0.19705e-06,0.55424e-07 /) - kbo(:, 4,52, 4) = (/ & - & 0.14711e-09,0.14765e-06,0.20042e-06,0.21252e-06,0.60616e-07 /) - kbo(:, 5,52, 4) = (/ & - & 0.14194e-09,0.15907e-06,0.21484e-06,0.22673e-06,0.65826e-07 /) - kbo(:, 1,53, 4) = (/ & - & 0.13839e-09,0.85704e-07,0.12023e-06,0.12744e-06,0.36523e-07 /) - kbo(:, 2,53, 4) = (/ & - & 0.13223e-09,0.96600e-07,0.13438e-06,0.14312e-06,0.40152e-07 /) - kbo(:, 3,53, 4) = (/ & - & 0.12684e-09,0.10804e-06,0.14784e-06,0.15735e-06,0.44207e-07 /) - kbo(:, 4,53, 4) = (/ & - & 0.12208e-09,0.11851e-06,0.16093e-06,0.17108e-06,0.48435e-07 /) - kbo(:, 5,53, 4) = (/ & - & 0.11772e-09,0.12811e-06,0.17313e-06,0.18293e-06,0.52733e-07 /) - kbo(:, 1,54, 4) = (/ & - & 0.11516e-09,0.67802e-07,0.95400e-07,0.10065e-06,0.29040e-07 /) - kbo(:, 2,54, 4) = (/ & - & 0.10986e-09,0.76927e-07,0.10712e-06,0.11428e-06,0.32044e-07 /) - kbo(:, 3,54, 4) = (/ & - & 0.10526e-09,0.86295e-07,0.11833e-06,0.12580e-06,0.35335e-07 /) - kbo(:, 4,54, 4) = (/ & - & 0.10122e-09,0.95190e-07,0.12936e-06,0.13763e-06,0.38764e-07 /) - kbo(:, 5,54, 4) = (/ & - & 0.97545e-10,0.10324e-06,0.13969e-06,0.14768e-06,0.42312e-07 /) - kbo(:, 1,55, 4) = (/ & - & 0.95832e-10,0.53610e-07,0.75981e-07,0.79667e-07,0.23117e-07 /) - kbo(:, 2,55, 4) = (/ & - & 0.91281e-10,0.61130e-07,0.85329e-07,0.91005e-07,0.25657e-07 /) - kbo(:, 3,55, 4) = (/ & - & 0.87335e-10,0.68825e-07,0.94736e-07,0.10075e-06,0.28264e-07 /) - kbo(:, 4,55, 4) = (/ & - & 0.83897e-10,0.76435e-07,0.10396e-06,0.11070e-06,0.31057e-07 /) - kbo(:, 5,55, 4) = (/ & - & 0.80810e-10,0.83278e-07,0.11269e-06,0.11928e-06,0.33972e-07 /) - kbo(:, 1,56, 4) = (/ & - & 0.79810e-10,0.42322e-07,0.60374e-07,0.62926e-07,0.18404e-07 /) - kbo(:, 2,56, 4) = (/ & - & 0.75864e-10,0.48559e-07,0.68039e-07,0.72241e-07,0.20548e-07 /) - kbo(:, 3,56, 4) = (/ & - & 0.72485e-10,0.54773e-07,0.75799e-07,0.80757e-07,0.22581e-07 /) - kbo(:, 4,56, 4) = (/ & - & 0.69560e-10,0.61224e-07,0.83554e-07,0.88967e-07,0.24859e-07 /) - kbo(:, 5,56, 4) = (/ & - & 0.66951e-10,0.67084e-07,0.90797e-07,0.96246e-07,0.27245e-07 /) - kbo(:, 1,57, 4) = (/ & - & 0.66524e-10,0.33320e-07,0.47516e-07,0.49541e-07,0.14620e-07 /) - kbo(:, 2,57, 4) = (/ & - & 0.63081e-10,0.38443e-07,0.54027e-07,0.57142e-07,0.16370e-07 /) - kbo(:, 3,57, 4) = (/ & - & 0.60187e-10,0.43587e-07,0.60611e-07,0.64608e-07,0.18036e-07 /) - kbo(:, 4,57, 4) = (/ & - & 0.57689e-10,0.48970e-07,0.66915e-07,0.71233e-07,0.19895e-07 /) - kbo(:, 5,57, 4) = (/ & - & 0.55478e-10,0.53925e-07,0.73045e-07,0.77618e-07,0.21831e-07 /) - kbo(:, 1,58, 4) = (/ & - & 0.55447e-10,0.26240e-07,0.37435e-07,0.38989e-07,0.11606e-07 /) - kbo(:, 2,58, 4) = (/ & - & 0.52442e-10,0.30460e-07,0.42955e-07,0.45233e-07,0.13047e-07 /) - kbo(:, 3,58, 4) = (/ & - & 0.49962e-10,0.34761e-07,0.48418e-07,0.51680e-07,0.14431e-07 /) - kbo(:, 4,58, 4) = (/ & - & 0.47826e-10,0.39152e-07,0.53626e-07,0.57047e-07,0.15934e-07 /) - kbo(:, 5,58, 4) = (/ & - & 0.45954e-10,0.43380e-07,0.58786e-07,0.62538e-07,0.17511e-07 /) - kbo(:, 1,59, 4) = (/ & - & 0.45740e-10,0.21248e-07,0.30261e-07,0.31577e-07,0.94221e-08 /) - kbo(:, 2,59, 4) = (/ & - & 0.43210e-10,0.24730e-07,0.34948e-07,0.36722e-07,0.10608e-07 /) - kbo(:, 3,59, 4) = (/ & - & 0.41141e-10,0.28288e-07,0.39410e-07,0.42052e-07,0.11754e-07 /) - kbo(:, 4,59, 4) = (/ & - & 0.39361e-10,0.31904e-07,0.43740e-07,0.46527e-07,0.12986e-07 /) - kbo(:, 5,59, 4) = (/ & - & 0.37805e-10,0.35442e-07,0.48020e-07,0.51083e-07,0.14278e-07 /) - kbo(:, 1,13, 5) = (/ & - & 0.79045e-05,0.58512e-03,0.80967e-03,0.88578e-03,0.34824e-03 /) - kbo(:, 2,13, 5) = (/ & - & 0.92807e-05,0.61818e-03,0.86083e-03,0.92437e-03,0.37870e-03 /) - kbo(:, 3,13, 5) = (/ & - & 0.10620e-04,0.65025e-03,0.90617e-03,0.96290e-03,0.40639e-03 /) - kbo(:, 4,13, 5) = (/ & - & 0.11847e-04,0.68086e-03,0.94767e-03,0.99815e-03,0.43149e-03 /) - kbo(:, 5,13, 5) = (/ & - & 0.12897e-04,0.70941e-03,0.98426e-03,0.10296e-02,0.45459e-03 /) - kbo(:, 1,14, 5) = (/ & - & 0.65683e-05,0.48798e-03,0.67570e-03,0.73755e-03,0.29172e-03 /) - kbo(:, 2,14, 5) = (/ & - & 0.76957e-05,0.51555e-03,0.71856e-03,0.76978e-03,0.31709e-03 /) - kbo(:, 3,14, 5) = (/ & - & 0.87852e-05,0.54243e-03,0.75604e-03,0.80142e-03,0.34064e-03 /) - kbo(:, 4,14, 5) = (/ & - & 0.97622e-05,0.56817e-03,0.79038e-03,0.83091e-03,0.36095e-03 /) - kbo(:, 5,14, 5) = (/ & - & 0.10614e-04,0.59208e-03,0.82018e-03,0.85691e-03,0.38095e-03 /) - kbo(:, 1,15, 5) = (/ & - & 0.54643e-05,0.40660e-03,0.56371e-03,0.61286e-03,0.24435e-03 /) - kbo(:, 2,15, 5) = (/ & - & 0.63883e-05,0.42973e-03,0.59914e-03,0.64093e-03,0.26475e-03 /) - kbo(:, 3,15, 5) = (/ & - & 0.72593e-05,0.45218e-03,0.63004e-03,0.66659e-03,0.28486e-03 /) - kbo(:, 4,15, 5) = (/ & - & 0.80526e-05,0.47373e-03,0.65847e-03,0.69128e-03,0.30200e-03 /) - kbo(:, 5,15, 5) = (/ & - & 0.87364e-05,0.49393e-03,0.68318e-03,0.71321e-03,0.31930e-03 /) - kbo(:, 1,16, 5) = (/ & - & 0.45482e-05,0.33872e-03,0.47003e-03,0.50920e-03,0.20473e-03 /) - kbo(:, 2,16, 5) = (/ & - & 0.52893e-05,0.35785e-03,0.49898e-03,0.53306e-03,0.22171e-03 /) - kbo(:, 3,16, 5) = (/ & - & 0.59989e-05,0.37673e-03,0.52467e-03,0.55461e-03,0.23803e-03 /) - kbo(:, 4,16, 5) = (/ & - & 0.66426e-05,0.39470e-03,0.54827e-03,0.57515e-03,0.25244e-03 /) - kbo(:, 5,16, 5) = (/ & - & 0.71759e-05,0.41193e-03,0.56909e-03,0.59361e-03,0.26773e-03 /) - kbo(:, 1,17, 5) = (/ & - & 0.37690e-05,0.28177e-03,0.39153e-03,0.42265e-03,0.17155e-03 /) - kbo(:, 2,17, 5) = (/ & - & 0.43790e-05,0.29778e-03,0.41535e-03,0.44288e-03,0.18563e-03 /) - kbo(:, 3,17, 5) = (/ & - & 0.49545e-05,0.31371e-03,0.43664e-03,0.46090e-03,0.19908e-03 /) - kbo(:, 4,17, 5) = (/ & - & 0.54563e-05,0.32886e-03,0.45637e-03,0.47854e-03,0.21097e-03 /) - kbo(:, 5,17, 5) = (/ & - & 0.58879e-05,0.34359e-03,0.47416e-03,0.49387e-03,0.22440e-03 /) - kbo(:, 1,18, 5) = (/ & - & 0.31260e-05,0.23432e-03,0.32596e-03,0.35082e-03,0.14348e-03 /) - kbo(:, 2,18, 5) = (/ & - & 0.36185e-05,0.24786e-03,0.34561e-03,0.36765e-03,0.15546e-03 /) - kbo(:, 3,18, 5) = (/ & - & 0.40732e-05,0.26120e-03,0.36343e-03,0.38325e-03,0.16623e-03 /) - kbo(:, 4,18, 5) = (/ & - & 0.44839e-05,0.27403e-03,0.37997e-03,0.39811e-03,0.17659e-03 /) - kbo(:, 5,18, 5) = (/ & - & 0.48304e-05,0.28674e-03,0.39513e-03,0.41114e-03,0.18813e-03 /) - kbo(:, 1,19, 5) = (/ & - & 0.25853e-05,0.19483e-03,0.27128e-03,0.29126e-03,0.11969e-03 /) - kbo(:, 2,19, 5) = (/ & - & 0.29834e-05,0.20623e-03,0.28749e-03,0.30541e-03,0.12978e-03 /) - kbo(:, 3,19, 5) = (/ & - & 0.33546e-05,0.21750e-03,0.30267e-03,0.31871e-03,0.13874e-03 /) - kbo(:, 4,19, 5) = (/ & - & 0.36863e-05,0.22842e-03,0.31656e-03,0.33115e-03,0.14789e-03 /) - kbo(:, 5,19, 5) = (/ & - & 0.39634e-05,0.23942e-03,0.32944e-03,0.34220e-03,0.15742e-03 /) - kbo(:, 1,20, 5) = (/ & - & 0.21486e-05,0.16221e-03,0.22609e-03,0.24236e-03,0.10014e-03 /) - kbo(:, 2,20, 5) = (/ & - & 0.24735e-05,0.17178e-03,0.23949e-03,0.25399e-03,0.10857e-03 /) - kbo(:, 3,20, 5) = (/ & - & 0.27744e-05,0.18136e-03,0.25226e-03,0.26535e-03,0.11604e-03 /) - kbo(:, 4,20, 5) = (/ & - & 0.30414e-05,0.19076e-03,0.26397e-03,0.27566e-03,0.12398e-03 /) - kbo(:, 5,20, 5) = (/ & - & 0.32610e-05,0.20019e-03,0.27488e-03,0.28510e-03,0.13199e-03 /) - kbo(:, 1,21, 5) = (/ & - & 0.17877e-05,0.13507e-03,0.18845e-03,0.20163e-03,0.83879e-04 /) - kbo(:, 2,21, 5) = (/ & - & 0.20518e-05,0.14319e-03,0.19968e-03,0.21134e-03,0.90858e-04 /) - kbo(:, 3,21, 5) = (/ & - & 0.22953e-05,0.15137e-03,0.21038e-03,0.22094e-03,0.97098e-04 /) - kbo(:, 4,21, 5) = (/ & - & 0.25098e-05,0.15947e-03,0.22019e-03,0.22948e-03,0.10402e-03 /) - kbo(:, 5,21, 5) = (/ & - & 0.26830e-05,0.16749e-03,0.22950e-03,0.23761e-03,0.11069e-03 /) - kbo(:, 1,22, 5) = (/ & - & 0.15022e-05,0.11297e-03,0.15773e-03,0.16819e-03,0.70808e-04 /) - kbo(:, 2,22, 5) = (/ & - & 0.17157e-05,0.11998e-03,0.16714e-03,0.17644e-03,0.76345e-04 /) - kbo(:, 3,22, 5) = (/ & - & 0.19111e-05,0.12690e-03,0.17611e-03,0.18454e-03,0.81804e-04 /) - kbo(:, 4,22, 5) = (/ & - & 0.20812e-05,0.13385e-03,0.18425e-03,0.19164e-03,0.87591e-04 /) - kbo(:, 5,22, 5) = (/ & - & 0.22144e-05,0.14066e-03,0.19235e-03,0.19867e-03,0.93228e-04 /) - kbo(:, 1,23, 5) = (/ & - & 0.12621e-05,0.94681e-04,0.13210e-03,0.14032e-03,0.59630e-04 /) - kbo(:, 2,23, 5) = (/ & - & 0.14346e-05,0.10061e-03,0.14009e-03,0.14751e-03,0.64142e-04 /) - kbo(:, 3,23, 5) = (/ & - & 0.15908e-05,0.10655e-03,0.14749e-03,0.15413e-03,0.68988e-04 /) - kbo(:, 4,23, 5) = (/ & - & 0.17253e-05,0.11246e-03,0.15437e-03,0.16013e-03,0.73893e-04 /) - kbo(:, 5,23, 5) = (/ & - & 0.18272e-05,0.11825e-03,0.16130e-03,0.16627e-03,0.78649e-04 /) - kbo(:, 1,24, 5) = (/ & - & 0.10611e-05,0.79419e-04,0.11079e-03,0.11736e-03,0.50244e-04 /) - kbo(:, 2,24, 5) = (/ & - & 0.11996e-05,0.84486e-04,0.11749e-03,0.12345e-03,0.54054e-04 /) - kbo(:, 3,24, 5) = (/ & - & 0.13241e-05,0.89565e-04,0.12364e-03,0.12883e-03,0.58259e-04 /) - kbo(:, 4,24, 5) = (/ & - & 0.14300e-05,0.94592e-04,0.12949e-03,0.13406e-03,0.62300e-04 /) - kbo(:, 5,24, 5) = (/ & - & 0.15070e-05,0.99545e-04,0.13538e-03,0.13928e-03,0.66485e-04 /) - kbo(:, 1,25, 5) = (/ & - & 0.89248e-06,0.66757e-04,0.93043e-04,0.98269e-04,0.42396e-04 /) - kbo(:, 2,25, 5) = (/ & - & 0.10034e-05,0.71082e-04,0.98652e-04,0.10332e-03,0.45719e-04 /) - kbo(:, 3,25, 5) = (/ & - & 0.11024e-05,0.75404e-04,0.10375e-03,0.10782e-03,0.49228e-04 /) - kbo(:, 4,25, 5) = (/ & - & 0.11835e-05,0.79694e-04,0.10882e-03,0.11234e-03,0.52649e-04 /) - kbo(:, 5,25, 5) = (/ & - & 0.12406e-05,0.83915e-04,0.11376e-03,0.11677e-03,0.56264e-04 /) - kbo(:, 1,26, 5) = (/ & - & 0.75147e-06,0.56248e-04,0.78291e-04,0.82441e-04,0.35781e-04 /) - kbo(:, 2,26, 5) = (/ & - & 0.84025e-06,0.59929e-04,0.82917e-04,0.86562e-04,0.38715e-04 /) - kbo(:, 3,26, 5) = (/ & - & 0.91728e-06,0.63618e-04,0.87231e-04,0.90442e-04,0.41682e-04 /) - kbo(:, 4,26, 5) = (/ & - & 0.97947e-06,0.67285e-04,0.91606e-04,0.94311e-04,0.44610e-04 /) - kbo(:, 5,26, 5) = (/ & - & 0.10222e-05,0.70879e-04,0.95759e-04,0.97954e-04,0.47678e-04 /) - kbo(:, 1,27, 5) = (/ & - & 0.63228e-06,0.47448e-04,0.65926e-04,0.69211e-04,0.30312e-04 /) - kbo(:, 2,27, 5) = (/ & - & 0.70187e-06,0.50583e-04,0.69752e-04,0.72622e-04,0.32844e-04 /) - kbo(:, 3,27, 5) = (/ & - & 0.76263e-06,0.53723e-04,0.73431e-04,0.75943e-04,0.35283e-04 /) - kbo(:, 4,27, 5) = (/ & - & 0.80975e-06,0.56884e-04,0.77139e-04,0.79235e-04,0.37837e-04 /) - kbo(:, 5,27, 5) = (/ & - & 0.84099e-06,0.59937e-04,0.80670e-04,0.82198e-04,0.40398e-04 /) - kbo(:, 1,28, 5) = (/ & - & 0.53062e-06,0.40054e-04,0.55536e-04,0.58105e-04,0.25683e-04 /) - kbo(:, 2,28, 5) = (/ & - & 0.58581e-06,0.42748e-04,0.58719e-04,0.60988e-04,0.27829e-04 /) - kbo(:, 3,28, 5) = (/ & - & 0.63283e-06,0.45445e-04,0.61927e-04,0.63808e-04,0.29914e-04 /) - kbo(:, 4,28, 5) = (/ & - & 0.66841e-06,0.48141e-04,0.65033e-04,0.66567e-04,0.32101e-04 /) - kbo(:, 5,28, 5) = (/ & - & 0.69132e-06,0.50744e-04,0.68002e-04,0.69024e-04,0.34196e-04 /) - kbo(:, 1,29, 5) = (/ & - & 0.44482e-06,0.33876e-04,0.46813e-04,0.48820e-04,0.21822e-04 /) - kbo(:, 2,29, 5) = (/ & - & 0.48830e-06,0.36173e-04,0.49534e-04,0.51267e-04,0.23598e-04 /) - kbo(:, 3,29, 5) = (/ & - & 0.52520e-06,0.38507e-04,0.52264e-04,0.53700e-04,0.25407e-04 /) - kbo(:, 4,29, 5) = (/ & - & 0.55142e-06,0.40790e-04,0.54879e-04,0.55934e-04,0.27233e-04 /) - kbo(:, 5,29, 5) = (/ & - & 0.56821e-06,0.43005e-04,0.57374e-04,0.57995e-04,0.28939e-04 /) - kbo(:, 1,30, 5) = (/ & - & 0.37240e-06,0.28688e-04,0.39498e-04,0.41082e-04,0.18542e-04 /) - kbo(:, 2,30, 5) = (/ & - & 0.40697e-06,0.30662e-04,0.41832e-04,0.43139e-04,0.20037e-04 /) - kbo(:, 3,30, 5) = (/ & - & 0.43518e-06,0.32657e-04,0.44137e-04,0.45198e-04,0.21592e-04 /) - kbo(:, 4,30, 5) = (/ & - & 0.45459e-06,0.34600e-04,0.46342e-04,0.47030e-04,0.23099e-04 /) - kbo(:, 5,30, 5) = (/ & - & 0.46674e-06,0.36468e-04,0.48427e-04,0.48752e-04,0.24524e-04 /) - kbo(:, 1,31, 5) = (/ & - & 0.31167e-06,0.24328e-04,0.33365e-04,0.34577e-04,0.15775e-04 /) - kbo(:, 2,31, 5) = (/ & - & 0.33880e-06,0.26033e-04,0.35376e-04,0.36343e-04,0.17037e-04 /) - kbo(:, 3,31, 5) = (/ & - & 0.36022e-06,0.27728e-04,0.37306e-04,0.38025e-04,0.18334e-04 /) - kbo(:, 4,31, 5) = (/ & - & 0.37443e-06,0.29381e-04,0.39153e-04,0.39551e-04,0.19559e-04 /) - kbo(:, 5,31, 5) = (/ & - & 0.38304e-06,0.30940e-04,0.40888e-04,0.41012e-04,0.20735e-04 /) - kbo(:, 1,32, 5) = (/ & - & 0.26065e-06,0.20666e-04,0.28226e-04,0.29128e-04,0.13403e-04 /) - kbo(:, 2,32, 5) = (/ & - & 0.28179e-06,0.22130e-04,0.29934e-04,0.30642e-04,0.14495e-04 /) - kbo(:, 3,32, 5) = (/ & - & 0.29791e-06,0.23572e-04,0.31554e-04,0.32005e-04,0.15576e-04 /) - kbo(:, 4,32, 5) = (/ & - & 0.30813e-06,0.24963e-04,0.33101e-04,0.33278e-04,0.16582e-04 /) - kbo(:, 5,32, 5) = (/ & - & 0.31412e-06,0.26261e-04,0.34510e-04,0.34497e-04,0.17533e-04 /) - kbo(:, 1,33, 5) = (/ & - & 0.21768e-06,0.17581e-04,0.23903e-04,0.24558e-04,0.11405e-04 /) - kbo(:, 2,33, 5) = (/ & - & 0.23409e-06,0.18827e-04,0.25333e-04,0.25812e-04,0.12331e-04 /) - kbo(:, 3,33, 5) = (/ & - & 0.24596e-06,0.20053e-04,0.26696e-04,0.26942e-04,0.13200e-04 /) - kbo(:, 4,33, 5) = (/ & - & 0.25338e-06,0.21211e-04,0.27978e-04,0.28012e-04,0.14037e-04 /) - kbo(:, 5,33, 5) = (/ & - & 0.25735e-06,0.22292e-04,0.29113e-04,0.29019e-04,0.14789e-04 /) - kbo(:, 1,34, 5) = (/ & - & 0.18111e-06,0.14933e-04,0.20221e-04,0.20691e-04,0.96853e-05 /) - kbo(:, 2,34, 5) = (/ & - & 0.19373e-06,0.15993e-04,0.21413e-04,0.21708e-04,0.10459e-04 /) - kbo(:, 3,34, 5) = (/ & - & 0.20262e-06,0.17025e-04,0.22551e-04,0.22651e-04,0.11170e-04 /) - kbo(:, 4,34, 5) = (/ & - & 0.20802e-06,0.17992e-04,0.23603e-04,0.23540e-04,0.11847e-04 /) - kbo(:, 5,34, 5) = (/ & - & 0.21068e-06,0.18892e-04,0.24522e-04,0.24370e-04,0.12444e-04 /) - kbo(:, 1,35, 5) = (/ & - & 0.14940e-06,0.12604e-04,0.17001e-04,0.17339e-04,0.81630e-05 /) - kbo(:, 2,35, 5) = (/ & - & 0.15934e-06,0.13505e-04,0.18008e-04,0.18183e-04,0.87890e-05 /) - kbo(:, 3,35, 5) = (/ & - & 0.16626e-06,0.14374e-04,0.18963e-04,0.18976e-04,0.93838e-05 /) - kbo(:, 4,35, 5) = (/ & - & 0.17040e-06,0.15187e-04,0.19824e-04,0.19720e-04,0.99229e-05 /) - kbo(:, 5,35, 5) = (/ & - & 0.17229e-06,0.15939e-04,0.20582e-04,0.20394e-04,0.10412e-04 /) - kbo(:, 1,36, 5) = (/ & - & 0.12224e-06,0.10560e-04,0.14203e-04,0.14447e-04,0.68196e-05 /) - kbo(:, 2,36, 5) = (/ & - & 0.13030e-06,0.11326e-04,0.15055e-04,0.15156e-04,0.73321e-05 /) - kbo(:, 3,36, 5) = (/ & - & 0.13590e-06,0.12062e-04,0.15856e-04,0.15823e-04,0.78230e-05 /) - kbo(:, 4,36, 5) = (/ & - & 0.13929e-06,0.12750e-04,0.16573e-04,0.16449e-04,0.82632e-05 /) - kbo(:, 5,36, 5) = (/ & - & 0.14081e-06,0.13384e-04,0.17208e-04,0.17006e-04,0.86656e-05 /) - kbo(:, 1,37, 5) = (/ & - & 0.98979e-07,0.87500e-05,0.11755e-04,0.11943e-04,0.56269e-05 /) - kbo(:, 2,37, 5) = (/ & - & 0.10583e-06,0.94035e-05,0.12480e-04,0.12544e-04,0.60528e-05 /) - kbo(:, 3,37, 5) = (/ & - & 0.11068e-06,0.10031e-04,0.13161e-04,0.13110e-04,0.64604e-05 /) - kbo(:, 4,37, 5) = (/ & - & 0.11365e-06,0.10619e-04,0.13767e-04,0.13642e-04,0.68253e-05 /) - kbo(:, 5,37, 5) = (/ & - & 0.11510e-06,0.11162e-04,0.14306e-04,0.14108e-04,0.71615e-05 /) - kbo(:, 1,38, 5) = (/ & - & 0.80050e-07,0.72436e-05,0.97225e-05,0.98657e-05,0.46375e-05 /) - kbo(:, 2,38, 5) = (/ & - & 0.85886e-07,0.78006e-05,0.10338e-04,0.10378e-04,0.49919e-05 /) - kbo(:, 3,38, 5) = (/ & - & 0.90108e-07,0.83355e-05,0.10916e-04,0.10856e-04,0.53303e-05 /) - kbo(:, 4,38, 5) = (/ & - & 0.92690e-07,0.88380e-05,0.11429e-04,0.11306e-04,0.56349e-05 /) - kbo(:, 5,38, 5) = (/ & - & 0.94046e-07,0.93019e-05,0.11885e-04,0.11696e-04,0.59152e-05 /) - kbo(:, 1,39, 5) = (/ & - & 0.64720e-07,0.59955e-05,0.80389e-05,0.81488e-05,0.38192e-05 /) - kbo(:, 2,39, 5) = (/ & - & 0.69663e-07,0.64699e-05,0.85613e-05,0.85818e-05,0.41159e-05 /) - kbo(:, 3,39, 5) = (/ & - & 0.73305e-07,0.69246e-05,0.90506e-05,0.89861e-05,0.43968e-05 /) - kbo(:, 4,39, 5) = (/ & - & 0.75588e-07,0.73530e-05,0.94857e-05,0.93637e-05,0.46505e-05 /) - kbo(:, 5,39, 5) = (/ & - & 0.76825e-07,0.77492e-05,0.98708e-05,0.96898e-05,0.48841e-05 /) - kbo(:, 1,40, 5) = (/ & - & 0.51871e-07,0.49191e-05,0.65994e-05,0.66890e-05,0.31186e-05 /) - kbo(:, 2,40, 5) = (/ & - & 0.56127e-07,0.53227e-05,0.70435e-05,0.70578e-05,0.33678e-05 /) - kbo(:, 3,40, 5) = (/ & - & 0.59395e-07,0.57124e-05,0.74609e-05,0.74018e-05,0.36025e-05 /) - kbo(:, 4,40, 5) = (/ & - & 0.61501e-07,0.60790e-05,0.78333e-05,0.77210e-05,0.38164e-05 /) - kbo(:, 5,40, 5) = (/ & - & 0.62710e-07,0.64194e-05,0.81613e-05,0.79980e-05,0.40122e-05 /) - kbo(:, 1,41, 5) = (/ & - & 0.41471e-07,0.40276e-05,0.54076e-05,0.54815e-05,0.25402e-05 /) - kbo(:, 2,41, 5) = (/ & - & 0.45127e-07,0.43711e-05,0.57847e-05,0.57971e-05,0.27507e-05 /) - kbo(:, 3,41, 5) = (/ & - & 0.48018e-07,0.47040e-05,0.61407e-05,0.60883e-05,0.29479e-05 /) - kbo(:, 4,41, 5) = (/ & - & 0.49983e-07,0.50177e-05,0.64595e-05,0.63587e-05,0.31286e-05 /) - kbo(:, 5,41, 5) = (/ & - & 0.51153e-07,0.53098e-05,0.67389e-05,0.65950e-05,0.32928e-05 /) - kbo(:, 1,42, 5) = (/ & - & 0.33108e-07,0.32945e-05,0.44261e-05,0.44871e-05,0.20674e-05 /) - kbo(:, 2,42, 5) = (/ & - & 0.36228e-07,0.35861e-05,0.47462e-05,0.47571e-05,0.22452e-05 /) - kbo(:, 3,42, 5) = (/ & - & 0.38776e-07,0.38701e-05,0.50505e-05,0.50046e-05,0.24106e-05 /) - kbo(:, 4,42, 5) = (/ & - & 0.40580e-07,0.41378e-05,0.53219e-05,0.52323e-05,0.25622e-05 /) - kbo(:, 5,42, 5) = (/ & - & 0.41689e-07,0.43881e-05,0.55607e-05,0.54356e-05,0.27015e-05 /) - kbo(:, 1,43, 5) = (/ & - & 0.26243e-07,0.26780e-05,0.36021e-05,0.36578e-05,0.16722e-05 /) - kbo(:, 2,43, 5) = (/ & - & 0.28903e-07,0.29254e-05,0.38754e-05,0.38886e-05,0.18235e-05 /) - kbo(:, 3,43, 5) = (/ & - & 0.31158e-07,0.31674e-05,0.41363e-05,0.40998e-05,0.19628e-05 /) - kbo(:, 4,43, 5) = (/ & - & 0.32828e-07,0.33966e-05,0.43687e-05,0.42935e-05,0.20906e-05 /) - kbo(:, 5,43, 5) = (/ & - & 0.33896e-07,0.36112e-05,0.45745e-05,0.44680e-05,0.22088e-05 /) - kbo(:, 1,44, 5) = (/ & - & 0.20692e-07,0.21688e-05,0.29226e-05,0.29738e-05,0.13486e-05 /) - kbo(:, 2,44, 5) = (/ & - & 0.22961e-07,0.23776e-05,0.31556e-05,0.31699e-05,0.14759e-05 /) - kbo(:, 3,44, 5) = (/ & - & 0.24934e-07,0.25834e-05,0.33779e-05,0.33507e-05,0.15926e-05 /) - kbo(:, 4,44, 5) = (/ & - & 0.26472e-07,0.27800e-05,0.35779e-05,0.35162e-05,0.17017e-05 /) - kbo(:, 5,44, 5) = (/ & - & 0.27504e-07,0.29637e-05,0.37558e-05,0.36666e-05,0.18017e-05 /) - kbo(:, 1,45, 5) = (/ & - & 0.16269e-07,0.17537e-05,0.23672e-05,0.24133e-05,0.10856e-05 /) - kbo(:, 2,45, 5) = (/ & - & 0.18194e-07,0.19291e-05,0.25663e-05,0.25809e-05,0.11927e-05 /) - kbo(:, 3,45, 5) = (/ & - & 0.19903e-07,0.21039e-05,0.27552e-05,0.27360e-05,0.12909e-05 /) - kbo(:, 4,45, 5) = (/ & - & 0.21293e-07,0.22721e-05,0.29270e-05,0.28775e-05,0.13839e-05 /) - kbo(:, 5,45, 5) = (/ & - & 0.22283e-07,0.24292e-05,0.30802e-05,0.30067e-05,0.14686e-05 /) - kbo(:, 1,46, 5) = (/ & - & 0.12712e-07,0.14128e-05,0.19113e-05,0.19548e-05,0.87114e-06 /) - kbo(:, 2,46, 5) = (/ & - & 0.14351e-07,0.15596e-05,0.20802e-05,0.20949e-05,0.96118e-06 /) - kbo(:, 3,46, 5) = (/ & - & 0.15815e-07,0.17076e-05,0.22404e-05,0.22289e-05,0.10436e-05 /) - kbo(:, 4,46, 5) = (/ & - & 0.17062e-07,0.18511e-05,0.23889e-05,0.23492e-05,0.11225e-05 /) - kbo(:, 5,46, 5) = (/ & - & 0.17993e-07,0.19855e-05,0.25206e-05,0.24609e-05,0.11948e-05 /) - kbo(:, 1,47, 5) = (/ & - & 0.98364e-08,0.11306e-05,0.15353e-05,0.15746e-05,0.69554e-06 /) - kbo(:, 2,47, 5) = (/ & - & 0.11226e-07,0.12534e-05,0.16765e-05,0.16944e-05,0.76925e-06 /) - kbo(:, 3,47, 5) = (/ & - & 0.12483e-07,0.13784e-05,0.18130e-05,0.18087e-05,0.84036e-06 /) - kbo(:, 4,47, 5) = (/ & - & 0.13587e-07,0.15007e-05,0.19418e-05,0.19122e-05,0.90712e-06 /) - kbo(:, 5,47, 5) = (/ & - & 0.14457e-07,0.16158e-05,0.20557e-05,0.20073e-05,0.96847e-06 /) - kbo(:, 1,48, 5) = (/ & - & 0.75824e-08,0.90329e-06,0.12307e-05,0.12653e-05,0.55346e-06 /) - kbo(:, 2,48, 5) = (/ & - & 0.87453e-08,0.10050e-05,0.13490e-05,0.13676e-05,0.61470e-06 /) - kbo(:, 3,48, 5) = (/ & - & 0.98194e-08,0.11101e-05,0.14650e-05,0.14651e-05,0.67492e-06 /) - kbo(:, 4,48, 5) = (/ & - & 0.10779e-07,0.12141e-05,0.15756e-05,0.15544e-05,0.73163e-06 /) - kbo(:, 5,48, 5) = (/ & - & 0.11579e-07,0.13125e-05,0.16743e-05,0.16359e-05,0.78405e-06 /) - kbo(:, 1,49, 5) = (/ & - & 0.58219e-08,0.72015e-06,0.98379e-06,0.10143e-05,0.43933e-06 /) - kbo(:, 2,49, 5) = (/ & - & 0.67817e-08,0.80423e-06,0.10832e-05,0.11023e-05,0.49018e-06 /) - kbo(:, 3,49, 5) = (/ & - & 0.76966e-08,0.89205e-06,0.11819e-05,0.11846e-05,0.54131e-06 /) - kbo(:, 4,49, 5) = (/ & - & 0.85224e-08,0.98005e-06,0.12760e-05,0.12617e-05,0.58858e-06 /) - kbo(:, 5,49, 5) = (/ & - & 0.92350e-08,0.10644e-05,0.13615e-05,0.13319e-05,0.63358e-06 /) - kbo(:, 1,50, 5) = (/ & - & 0.44790e-08,0.57418e-06,0.78635e-06,0.81296e-06,0.34881e-06 /) - kbo(:, 2,50, 5) = (/ & - & 0.52579e-08,0.64388e-06,0.87056e-06,0.88896e-06,0.39135e-06 /) - kbo(:, 3,50, 5) = (/ & - & 0.60279e-08,0.71722e-06,0.95348e-06,0.95809e-06,0.43444e-06 /) - kbo(:, 4,50, 5) = (/ & - & 0.67324e-08,0.79134e-06,0.10331e-05,0.10243e-05,0.47391e-06 /) - kbo(:, 5,50, 5) = (/ & - & 0.73551e-08,0.86330e-06,0.11073e-05,0.10842e-05,0.51234e-06 /) - kbo(:, 1,51, 5) = (/ & - & 0.34450e-08,0.45753e-06,0.62814e-06,0.65158e-06,0.27625e-06 /) - kbo(:, 2,51, 5) = (/ & - & 0.40690e-08,0.51530e-06,0.69892e-06,0.71555e-06,0.31260e-06 /) - kbo(:, 3,51, 5) = (/ & - & 0.47087e-08,0.57624e-06,0.76840e-06,0.77477e-06,0.34804e-06 /) - kbo(:, 4,51, 5) = (/ & - & 0.53086e-08,0.63843e-06,0.83580e-06,0.83092e-06,0.38181e-06 /) - kbo(:, 5,51, 5) = (/ & - & 0.58439e-08,0.69956e-06,0.89962e-06,0.88225e-06,0.41412e-06 /) - kbo(:, 1,52, 5) = (/ & - & 0.26454e-08,0.36387e-06,0.50007e-06,0.52179e-06,0.21894e-06 /) - kbo(:, 2,52, 5) = (/ & - & 0.31403e-08,0.41173e-06,0.55997e-06,0.57479e-06,0.24870e-06 /) - kbo(:, 3,52, 5) = (/ & - & 0.36655e-08,0.46211e-06,0.61819e-06,0.62511e-06,0.27840e-06 /) - kbo(:, 4,52, 5) = (/ & - & 0.41730e-08,0.51415e-06,0.67546e-06,0.67307e-06,0.30695e-06 /) - kbo(:, 5,52, 5) = (/ & - & 0.46311e-08,0.56582e-06,0.72973e-06,0.71697e-06,0.33407e-06 /) - kbo(:, 1,53, 5) = (/ & - & 0.20275e-08,0.28873e-06,0.39749e-06,0.41647e-06,0.17355e-06 /) - kbo(:, 2,53, 5) = (/ & - & 0.24190e-08,0.32821e-06,0.44730e-06,0.46063e-06,0.19774e-06 /) - kbo(:, 3,53, 5) = (/ & - & 0.28440e-08,0.36981e-06,0.49677e-06,0.50411e-06,0.22218e-06 /) - kbo(:, 4,53, 5) = (/ & - & 0.32690e-08,0.41315e-06,0.54488e-06,0.54408e-06,0.24647e-06 /) - kbo(:, 5,53, 5) = (/ & - & 0.36592e-08,0.45680e-06,0.59090e-06,0.58189e-06,0.26902e-06 /) - kbo(:, 1,54, 5) = (/ & - & 0.15611e-08,0.22962e-06,0.31613e-06,0.33300e-06,0.13730e-06 /) - kbo(:, 2,54, 5) = (/ & - & 0.18696e-08,0.26187e-06,0.35802e-06,0.36954e-06,0.15701e-06 /) - kbo(:, 3,54, 5) = (/ & - & 0.22100e-08,0.29641e-06,0.39970e-06,0.40683e-06,0.17764e-06 /) - kbo(:, 4,54, 5) = (/ & - & 0.25619e-08,0.33255e-06,0.44009e-06,0.44063e-06,0.19808e-06 /) - kbo(:, 5,54, 5) = (/ & - & 0.28928e-08,0.36908e-06,0.47892e-06,0.47270e-06,0.21696e-06 /) - kbo(:, 1,55, 5) = (/ & - & 0.12041e-08,0.18259e-06,0.25108e-06,0.26608e-06,0.10842e-06 /) - kbo(:, 2,55, 5) = (/ & - & 0.14466e-08,0.20918e-06,0.28633e-06,0.29677e-06,0.12468e-06 /) - kbo(:, 3,55, 5) = (/ & - & 0.17176e-08,0.23765e-06,0.32139e-06,0.32799e-06,0.14213e-06 /) - kbo(:, 4,55, 5) = (/ & - & 0.20058e-08,0.26766e-06,0.35523e-06,0.35664e-06,0.15907e-06 /) - kbo(:, 5,55, 5) = (/ & - & 0.22852e-08,0.29818e-06,0.38806e-06,0.38381e-06,0.17512e-06 /) - kbo(:, 1,56, 5) = (/ & - & 0.92934e-09,0.14496e-06,0.19887e-06,0.21215e-06,0.85185e-07 /) - kbo(:, 2,56, 5) = (/ & - & 0.11180e-08,0.16668e-06,0.22841e-06,0.23799e-06,0.99172e-07 /) - kbo(:, 3,56, 5) = (/ & - & 0.13333e-08,0.19024e-06,0.25790e-06,0.26385e-06,0.11331e-06 /) - kbo(:, 4,56, 5) = (/ & - & 0.15668e-08,0.21512e-06,0.28626e-06,0.28820e-06,0.12758e-06 /) - kbo(:, 5,56, 5) = (/ & - & 0.18000e-08,0.24055e-06,0.31405e-06,0.31134e-06,0.14106e-06 /) - kbo(:, 1,57, 5) = (/ & - & 0.71747e-09,0.11491e-06,0.15760e-06,0.16907e-06,0.66762e-07 /) - kbo(:, 2,57, 5) = (/ & - & 0.86318e-09,0.13266e-06,0.18198e-06,0.19051e-06,0.78844e-07 /) - kbo(:, 3,57, 5) = (/ & - & 0.10332e-08,0.15199e-06,0.20646e-06,0.21185e-06,0.90317e-07 /) - kbo(:, 4,57, 5) = (/ & - & 0.12205e-08,0.17255e-06,0.23049e-06,0.23280e-06,0.10211e-06 /) - kbo(:, 5,57, 5) = (/ & - & 0.14137e-08,0.19374e-06,0.25377e-06,0.25209e-06,0.11347e-06 /) - kbo(:, 1,58, 5) = (/ & - & 0.55534e-09,0.91161e-07,0.12495e-06,0.13481e-06,0.52524e-07 /) - kbo(:, 2,58, 5) = (/ & - & 0.66796e-09,0.10564e-06,0.14490e-06,0.15246e-06,0.62491e-07 /) - kbo(:, 3,58, 5) = (/ & - & 0.80208e-09,0.12142e-06,0.16540e-06,0.17013e-06,0.71923e-07 /) - kbo(:, 4,58, 5) = (/ & - & 0.95155e-09,0.13846e-06,0.18562e-06,0.18803e-06,0.81760e-07 /) - kbo(:, 5,58, 5) = (/ & - & 0.11100e-08,0.15608e-06,0.20513e-06,0.20425e-06,0.91405e-07 /) - kbo(:, 1,59, 5) = (/ & - & 0.44483e-09,0.74201e-07,0.10175e-06,0.10986e-06,0.42626e-07 /) - kbo(:, 2,59, 5) = (/ & - & 0.53478e-09,0.86257e-07,0.11818e-06,0.12453e-06,0.50816e-07 /) - kbo(:, 3,59, 5) = (/ & - & 0.64265e-09,0.99390e-07,0.13535e-06,0.13928e-06,0.58658e-07 /) - kbo(:, 4,59, 5) = (/ & - & 0.76369e-09,0.11360e-06,0.15224e-06,0.15417e-06,0.66845e-07 /) - kbo(:, 5,59, 5) = (/ & - & 0.89316e-09,0.12826e-06,0.16850e-06,0.16775e-06,0.74841e-07 /) - kbo(:, 1,13, 6) = (/ & - & 0.15452e-03,0.17471e-02,0.22870e-02,0.22757e-02,0.11868e-02 /) - kbo(:, 2,13, 6) = (/ & - & 0.17358e-03,0.18337e-02,0.23752e-02,0.23549e-02,0.12492e-02 /) - kbo(:, 3,13, 6) = (/ & - & 0.19043e-03,0.19070e-02,0.24479e-02,0.24255e-02,0.13114e-02 /) - kbo(:, 4,13, 6) = (/ & - & 0.20459e-03,0.19702e-02,0.25109e-02,0.24905e-02,0.13717e-02 /) - kbo(:, 5,13, 6) = (/ & - & 0.21621e-03,0.20266e-02,0.25653e-02,0.25512e-02,0.14320e-02 /) - kbo(:, 1,14, 6) = (/ & - & 0.12793e-03,0.14662e-02,0.19141e-02,0.19032e-02,0.99404e-03 /) - kbo(:, 2,14, 6) = (/ & - & 0.14335e-03,0.15367e-02,0.19852e-02,0.19691e-02,0.10462e-02 /) - kbo(:, 3,14, 6) = (/ & - & 0.15698e-03,0.15974e-02,0.20454e-02,0.20285e-02,0.10986e-02 /) - kbo(:, 4,14, 6) = (/ & - & 0.16837e-03,0.16505e-02,0.20982e-02,0.20828e-02,0.11509e-02 /) - kbo(:, 5,14, 6) = (/ & - & 0.17765e-03,0.16990e-02,0.21452e-02,0.21357e-02,0.12020e-02 /) - kbo(:, 1,15, 6) = (/ & - & 0.10600e-03,0.12280e-02,0.15987e-02,0.15899e-02,0.83160e-03 /) - kbo(:, 2,15, 6) = (/ & - & 0.11846e-03,0.12858e-02,0.16570e-02,0.16438e-02,0.87641e-03 /) - kbo(:, 3,15, 6) = (/ & - & 0.12947e-03,0.13362e-02,0.17073e-02,0.16937e-02,0.92037e-03 /) - kbo(:, 4,15, 6) = (/ & - & 0.13860e-03,0.13818e-02,0.17519e-02,0.17401e-02,0.96514e-03 /) - kbo(:, 5,15, 6) = (/ & - & 0.14605e-03,0.14231e-02,0.17922e-02,0.17849e-02,0.10088e-02 /) - kbo(:, 1,16, 6) = (/ & - & 0.87844e-04,0.10268e-02,0.13337e-02,0.13258e-02,0.69471e-03 /) - kbo(:, 2,16, 6) = (/ & - & 0.97921e-04,0.10747e-02,0.13816e-02,0.13704e-02,0.73309e-03 /) - kbo(:, 3,16, 6) = (/ & - & 0.10678e-03,0.11173e-02,0.14240e-02,0.14122e-02,0.77126e-03 /) - kbo(:, 4,16, 6) = (/ & - & 0.11410e-03,0.11561e-02,0.14619e-02,0.14525e-02,0.80983e-03 /) - kbo(:, 5,16, 6) = (/ & - & 0.12008e-03,0.11913e-02,0.14957e-02,0.14904e-02,0.84685e-03 /) - kbo(:, 1,17, 6) = (/ & - & 0.72736e-04,0.85770e-03,0.11110e-02,0.11043e-02,0.57988e-03 /) - kbo(:, 2,17, 6) = (/ & - & 0.80870e-04,0.89737e-03,0.11508e-02,0.11412e-02,0.61310e-03 /) - kbo(:, 3,17, 6) = (/ & - & 0.87984e-04,0.93334e-03,0.11865e-02,0.11769e-02,0.64563e-03 /) - kbo(:, 4,17, 6) = (/ & - & 0.93900e-04,0.96637e-03,0.12188e-02,0.12115e-02,0.67946e-03 /) - kbo(:, 5,17, 6) = (/ & - & 0.98669e-04,0.99682e-03,0.12477e-02,0.12444e-02,0.71129e-03 /) - kbo(:, 1,18, 6) = (/ & - & 0.60196e-04,0.71585e-03,0.92484e-03,0.91885e-03,0.48428e-03 /) - kbo(:, 2,18, 6) = (/ & - & 0.66759e-04,0.74902e-03,0.95806e-03,0.95007e-03,0.51254e-03 /) - kbo(:, 3,18, 6) = (/ & - & 0.72486e-04,0.77936e-03,0.98828e-03,0.98036e-03,0.54118e-03 /) - kbo(:, 4,18, 6) = (/ & - & 0.77210e-04,0.80757e-03,0.10157e-02,0.10101e-02,0.56995e-03 /) - kbo(:, 5,18, 6) = (/ & - & 0.81046e-04,0.83344e-03,0.10405e-02,0.10390e-02,0.59762e-03 /) - kbo(:, 1,19, 6) = (/ & - & 0.49797e-04,0.59714e-03,0.76951e-03,0.76408e-03,0.40487e-03 /) - kbo(:, 2,19, 6) = (/ & - & 0.55098e-04,0.62505e-03,0.79728e-03,0.79071e-03,0.42904e-03 /) - kbo(:, 3,19, 6) = (/ & - & 0.59690e-04,0.65071e-03,0.82294e-03,0.81671e-03,0.45375e-03 /) - kbo(:, 4,19, 6) = (/ & - & 0.63457e-04,0.67490e-03,0.84635e-03,0.84245e-03,0.47833e-03 /) - kbo(:, 5,19, 6) = (/ & - & 0.66538e-04,0.69683e-03,0.86805e-03,0.86812e-03,0.50238e-03 /) - kbo(:, 1,20, 6) = (/ & - & 0.41277e-04,0.49854e-03,0.64043e-03,0.63582e-03,0.33885e-03 /) - kbo(:, 2,20, 6) = (/ & - & 0.45557e-04,0.52197e-03,0.66408e-03,0.65859e-03,0.35960e-03 /) - kbo(:, 3,20, 6) = (/ & - & 0.49226e-04,0.54380e-03,0.68582e-03,0.68111e-03,0.38108e-03 /) - kbo(:, 4,20, 6) = (/ & - & 0.52238e-04,0.56442e-03,0.70598e-03,0.70364e-03,0.40199e-03 /) - kbo(:, 5,20, 6) = (/ & - & 0.54694e-04,0.58320e-03,0.72504e-03,0.72645e-03,0.42282e-03 /) - kbo(:, 1,21, 6) = (/ & - & 0.34218e-04,0.41624e-03,0.53312e-03,0.52912e-03,0.28376e-03 /) - kbo(:, 2,21, 6) = (/ & - & 0.37670e-04,0.43597e-03,0.55316e-03,0.54893e-03,0.30161e-03 /) - kbo(:, 3,21, 6) = (/ & - & 0.40602e-04,0.45467e-03,0.57178e-03,0.56861e-03,0.32023e-03 /) - kbo(:, 4,21, 6) = (/ & - & 0.43009e-04,0.47220e-03,0.58931e-03,0.58850e-03,0.33805e-03 /) - kbo(:, 5,21, 6) = (/ & - & 0.44968e-04,0.48850e-03,0.60624e-03,0.60867e-03,0.35633e-03 /) - kbo(:, 1,22, 6) = (/ & - & 0.28554e-04,0.34872e-03,0.44519e-03,0.44203e-03,0.23865e-03 /) - kbo(:, 2,22, 6) = (/ & - & 0.31312e-04,0.36543e-03,0.46215e-03,0.45896e-03,0.25429e-03 /) - kbo(:, 3,22, 6) = (/ & - & 0.33623e-04,0.38136e-03,0.47808e-03,0.47625e-03,0.27020e-03 /) - kbo(:, 4,22, 6) = (/ & - & 0.35518e-04,0.39638e-03,0.49352e-03,0.49393e-03,0.28567e-03 /) - kbo(:, 5,22, 6) = (/ & - & 0.37060e-04,0.41046e-03,0.50833e-03,0.51152e-03,0.30169e-03 /) - kbo(:, 1,23, 6) = (/ & - & 0.23825e-04,0.29241e-03,0.37202e-03,0.36957e-03,0.20120e-03 /) - kbo(:, 2,23, 6) = (/ & - & 0.26019e-04,0.30664e-03,0.38650e-03,0.38433e-03,0.21484e-03 /) - kbo(:, 3,23, 6) = (/ & - & 0.27840e-04,0.32027e-03,0.40038e-03,0.39957e-03,0.22829e-03 /) - kbo(:, 4,23, 6) = (/ & - & 0.29329e-04,0.33317e-03,0.41396e-03,0.41498e-03,0.24169e-03 /) - kbo(:, 5,23, 6) = (/ & - & 0.30542e-04,0.34547e-03,0.42681e-03,0.43048e-03,0.25568e-03 /) - kbo(:, 1,24, 6) = (/ & - & 0.19879e-04,0.24552e-03,0.31135e-03,0.30936e-03,0.16986e-03 /) - kbo(:, 2,24, 6) = (/ & - & 0.21617e-04,0.25767e-03,0.32376e-03,0.32228e-03,0.18173e-03 /) - kbo(:, 3,24, 6) = (/ & - & 0.23050e-04,0.26937e-03,0.33590e-03,0.33579e-03,0.19320e-03 /) - kbo(:, 4,24, 6) = (/ & - & 0.24217e-04,0.28054e-03,0.34772e-03,0.34922e-03,0.20501e-03 /) - kbo(:, 5,24, 6) = (/ & - & 0.25164e-04,0.29121e-03,0.35883e-03,0.36286e-03,0.21708e-03 /) - kbo(:, 1,25, 6) = (/ & - & 0.16589e-04,0.20645e-03,0.26087e-03,0.25944e-03,0.14369e-03 /) - kbo(:, 2,25, 6) = (/ & - & 0.17961e-04,0.21688e-03,0.27162e-03,0.27083e-03,0.15386e-03 /) - kbo(:, 3,25, 6) = (/ & - & 0.19083e-04,0.22697e-03,0.28229e-03,0.28258e-03,0.16383e-03 /) - kbo(:, 4,25, 6) = (/ & - & 0.19998e-04,0.23668e-03,0.29245e-03,0.29438e-03,0.17418e-03 /) - kbo(:, 5,25, 6) = (/ & - & 0.20737e-04,0.24589e-03,0.30216e-03,0.30647e-03,0.18465e-03 /) - kbo(:, 1,26, 6) = (/ & - & 0.13858e-04,0.17402e-03,0.21906e-03,0.21804e-03,0.12205e-03 /) - kbo(:, 2,26, 6) = (/ & - & 0.14930e-04,0.18300e-03,0.22843e-03,0.22813e-03,0.13065e-03 /) - kbo(:, 3,26, 6) = (/ & - & 0.15807e-04,0.19174e-03,0.23770e-03,0.23830e-03,0.13933e-03 /) - kbo(:, 4,26, 6) = (/ & - & 0.16522e-04,0.20010e-03,0.24640e-03,0.24876e-03,0.14837e-03 /) - kbo(:, 5,26, 6) = (/ & - & 0.17090e-04,0.20798e-03,0.25500e-03,0.25943e-03,0.15748e-03 /) - kbo(:, 1,27, 6) = (/ & - & 0.11565e-04,0.14689e-03,0.18423e-03,0.18358e-03,0.10372e-03 /) - kbo(:, 2,27, 6) = (/ & - & 0.12404e-04,0.15466e-03,0.19242e-03,0.19242e-03,0.11104e-03 /) - kbo(:, 3,27, 6) = (/ & - & 0.13088e-04,0.16225e-03,0.20035e-03,0.20136e-03,0.11877e-03 /) - kbo(:, 4,27, 6) = (/ & - & 0.13644e-04,0.16938e-03,0.20793e-03,0.21054e-03,0.12658e-03 /) - kbo(:, 5,27, 6) = (/ & - & 0.14079e-04,0.17614e-03,0.21553e-03,0.22004e-03,0.13455e-03 /) - kbo(:, 1,28, 6) = (/ & - & 0.96429e-05,0.12422e-03,0.15518e-03,0.15486e-03,0.88240e-04 /) - kbo(:, 2,28, 6) = (/ & - & 0.10297e-04,0.13093e-03,0.16229e-03,0.16255e-03,0.94664e-04 /) - kbo(:, 3,28, 6) = (/ & - & 0.10829e-04,0.13744e-03,0.16911e-03,0.17043e-03,0.10137e-03 /) - kbo(:, 4,28, 6) = (/ & - & 0.11263e-04,0.14355e-03,0.17577e-03,0.17861e-03,0.10818e-03 /) - kbo(:, 5,28, 6) = (/ & - & 0.11593e-04,0.14936e-03,0.18245e-03,0.18698e-03,0.11517e-03 /) - kbo(:, 1,29, 6) = (/ & - & 0.80357e-05,0.10525e-03,0.13098e-03,0.13087e-03,0.75199e-04 /) - kbo(:, 2,29, 6) = (/ & - & 0.85457e-05,0.11106e-03,0.13709e-03,0.13756e-03,0.80877e-04 /) - kbo(:, 3,29, 6) = (/ & - & 0.89585e-05,0.11659e-03,0.14298e-03,0.14458e-03,0.86703e-04 /) - kbo(:, 4,29, 6) = (/ & - & 0.92936e-05,0.12185e-03,0.14887e-03,0.15184e-03,0.92679e-04 /) - kbo(:, 5,29, 6) = (/ & - & 0.95413e-05,0.12685e-03,0.15476e-03,0.15926e-03,0.98770e-04 /) - kbo(:, 1,30, 6) = (/ & - & 0.66891e-05,0.89326e-04,0.11070e-03,0.11075e-03,0.64254e-04 /) - kbo(:, 2,30, 6) = (/ & - & 0.70855e-05,0.94280e-04,0.11595e-03,0.11668e-03,0.69215e-04 /) - kbo(:, 3,30, 6) = (/ & - & 0.74068e-05,0.99029e-04,0.12112e-03,0.12290e-03,0.74278e-04 /) - kbo(:, 4,30, 6) = (/ & - & 0.76634e-05,0.10356e-03,0.12631e-03,0.12933e-03,0.79489e-04 /) - kbo(:, 5,30, 6) = (/ & - & 0.78499e-05,0.10785e-03,0.13152e-03,0.13588e-03,0.84762e-04 /) - kbo(:, 1,31, 6) = (/ & - & 0.55647e-05,0.75943e-04,0.93695e-04,0.93906e-04,0.55002e-04 /) - kbo(:, 2,31, 6) = (/ & - & 0.58719e-05,0.80167e-04,0.98229e-04,0.99204e-04,0.59329e-04 /) - kbo(:, 3,31, 6) = (/ & - & 0.61212e-05,0.84249e-04,0.10281e-03,0.10471e-03,0.63778e-04 /) - kbo(:, 4,31, 6) = (/ & - & 0.63162e-05,0.88122e-04,0.10738e-03,0.11041e-03,0.68318e-04 /) - kbo(:, 5,31, 6) = (/ & - & 0.64553e-05,0.91835e-04,0.11204e-03,0.11614e-03,0.72907e-04 /) - kbo(:, 1,32, 6) = (/ & - & 0.46246e-05,0.64633e-04,0.79398e-04,0.79831e-04,0.47190e-04 /) - kbo(:, 2,32, 6) = (/ & - & 0.48628e-05,0.68258e-04,0.83383e-04,0.84521e-04,0.50953e-04 /) - kbo(:, 3,32, 6) = (/ & - & 0.50557e-05,0.71758e-04,0.87418e-04,0.89417e-04,0.54823e-04 /) - kbo(:, 4,32, 6) = (/ & - & 0.52035e-05,0.75099e-04,0.91481e-04,0.94423e-04,0.58785e-04 /) - kbo(:, 5,32, 6) = (/ & - & 0.53068e-05,0.78317e-04,0.95646e-04,0.99452e-04,0.62766e-04 /) - kbo(:, 1,33, 6) = (/ & - & 0.38403e-05,0.55077e-04,0.67410e-04,0.68024e-04,0.40538e-04 /) - kbo(:, 2,33, 6) = (/ & - & 0.40244e-05,0.58199e-04,0.70924e-04,0.72180e-04,0.43839e-04 /) - kbo(:, 3,33, 6) = (/ & - & 0.41730e-05,0.61206e-04,0.74475e-04,0.76502e-04,0.47222e-04 /) - kbo(:, 4,33, 6) = (/ & - & 0.42835e-05,0.64091e-04,0.78114e-04,0.80883e-04,0.50652e-04 /) - kbo(:, 5,33, 6) = (/ & - & 0.43604e-05,0.66898e-04,0.81798e-04,0.85293e-04,0.54102e-04 /) - kbo(:, 1,34, 6) = (/ & - & 0.31801e-05,0.46888e-04,0.57233e-04,0.57945e-04,0.34781e-04 /) - kbo(:, 2,34, 6) = (/ & - & 0.33244e-05,0.49586e-04,0.60319e-04,0.61625e-04,0.37646e-04 /) - kbo(:, 3,34, 6) = (/ & - & 0.34389e-05,0.52183e-04,0.63465e-04,0.65422e-04,0.40606e-04 /) - kbo(:, 4,34, 6) = (/ & - & 0.35228e-05,0.54696e-04,0.66697e-04,0.69266e-04,0.43571e-04 /) - kbo(:, 5,34, 6) = (/ & - & 0.35804e-05,0.57162e-04,0.69964e-04,0.73120e-04,0.46562e-04 /) - kbo(:, 1,35, 6) = (/ & - & 0.26200e-05,0.39742e-04,0.48410e-04,0.49141e-04,0.29639e-04 /) - kbo(:, 2,35, 6) = (/ & - & 0.27351e-05,0.42075e-04,0.51122e-04,0.52382e-04,0.32146e-04 /) - kbo(:, 3,35, 6) = (/ & - & 0.28253e-05,0.44325e-04,0.53916e-04,0.55698e-04,0.34701e-04 /) - kbo(:, 4,35, 6) = (/ & - & 0.28907e-05,0.46530e-04,0.56769e-04,0.59068e-04,0.37280e-04 /) - kbo(:, 5,35, 6) = (/ & - & 0.29354e-05,0.48707e-04,0.59649e-04,0.62461e-04,0.39864e-04 /) - kbo(:, 1,36, 6) = (/ & - & 0.21469e-05,0.33498e-04,0.40744e-04,0.41427e-04,0.25045e-04 /) - kbo(:, 2,36, 6) = (/ & - & 0.22407e-05,0.35513e-04,0.43124e-04,0.44262e-04,0.27227e-04 /) - kbo(:, 3,36, 6) = (/ & - & 0.23140e-05,0.37481e-04,0.45588e-04,0.47157e-04,0.29433e-04 /) - kbo(:, 4,36, 6) = (/ & - & 0.23673e-05,0.39419e-04,0.48109e-04,0.50107e-04,0.31672e-04 /) - kbo(:, 5,36, 6) = (/ & - & 0.24035e-05,0.41345e-04,0.50640e-04,0.53089e-04,0.33911e-04 /) - kbo(:, 1,37, 6) = (/ & - & 0.17464e-05,0.27984e-04,0.34007e-04,0.34584e-04,0.20899e-04 /) - kbo(:, 2,37, 6) = (/ & - & 0.18252e-05,0.29737e-04,0.36088e-04,0.37051e-04,0.22785e-04 /) - kbo(:, 3,37, 6) = (/ & - & 0.18877e-05,0.31460e-04,0.38247e-04,0.39573e-04,0.24687e-04 /) - kbo(:, 4,37, 6) = (/ & - & 0.19333e-05,0.33165e-04,0.40460e-04,0.42146e-04,0.26626e-04 /) - kbo(:, 5,37, 6) = (/ & - & 0.19647e-05,0.34869e-04,0.42691e-04,0.44765e-04,0.28561e-04 /) - kbo(:, 1,38, 6) = (/ & - & 0.14198e-05,0.23364e-04,0.28367e-04,0.28854e-04,0.17422e-04 /) - kbo(:, 2,38, 6) = (/ & - & 0.14862e-05,0.24892e-04,0.30186e-04,0.30994e-04,0.19047e-04 /) - kbo(:, 3,38, 6) = (/ & - & 0.15394e-05,0.26399e-04,0.32076e-04,0.33192e-04,0.20688e-04 /) - kbo(:, 4,38, 6) = (/ & - & 0.15786e-05,0.27898e-04,0.34020e-04,0.35441e-04,0.22360e-04 /) - kbo(:, 5,38, 6) = (/ & - & 0.16058e-05,0.29401e-04,0.35983e-04,0.37735e-04,0.24033e-04 /) - kbo(:, 1,39, 6) = (/ & - & 0.11541e-05,0.19509e-04,0.23663e-04,0.24072e-04,0.14521e-04 /) - kbo(:, 2,39, 6) = (/ & - & 0.12100e-05,0.20837e-04,0.25252e-04,0.25929e-04,0.15915e-04 /) - kbo(:, 3,39, 6) = (/ & - & 0.12551e-05,0.22155e-04,0.26902e-04,0.27842e-04,0.17331e-04 /) - kbo(:, 4,39, 6) = (/ & - & 0.12888e-05,0.23470e-04,0.28603e-04,0.29806e-04,0.18773e-04 /) - kbo(:, 5,39, 6) = (/ & - & 0.13123e-05,0.24794e-04,0.30331e-04,0.31815e-04,0.20216e-04 /) - kbo(:, 1,40, 6) = (/ & - & 0.93244e-06,0.16171e-04,0.19599e-04,0.19918e-04,0.11977e-04 /) - kbo(:, 2,40, 6) = (/ & - & 0.98059e-06,0.17324e-04,0.20976e-04,0.21519e-04,0.13169e-04 /) - kbo(:, 3,40, 6) = (/ & - & 0.10196e-05,0.18475e-04,0.22411e-04,0.23178e-04,0.14387e-04 /) - kbo(:, 4,40, 6) = (/ & - & 0.10496e-05,0.19626e-04,0.23897e-04,0.24887e-04,0.15625e-04 /) - kbo(:, 5,40, 6) = (/ & - & 0.10706e-05,0.20792e-04,0.25411e-04,0.26641e-04,0.16871e-04 /) - kbo(:, 1,41, 6) = (/ & - & 0.75206e-06,0.13381e-04,0.16204e-04,0.16448e-04,0.98582e-05 /) - kbo(:, 2,41, 6) = (/ & - & 0.79368e-06,0.14380e-04,0.17395e-04,0.17824e-04,0.10873e-04 /) - kbo(:, 3,41, 6) = (/ & - & 0.82742e-06,0.15382e-04,0.18640e-04,0.19259e-04,0.11916e-04 /) - kbo(:, 4,41, 6) = (/ & - & 0.85390e-06,0.16388e-04,0.19935e-04,0.20745e-04,0.12979e-04 /) - kbo(:, 5,41, 6) = (/ & - & 0.87281e-06,0.17412e-04,0.21261e-04,0.22271e-04,0.14053e-04 /) - kbo(:, 1,42, 6) = (/ & - & 0.60591e-06,0.11061e-04,0.13385e-04,0.13568e-04,0.81045e-05 /) - kbo(:, 2,42, 6) = (/ & - & 0.64182e-06,0.11926e-04,0.14412e-04,0.14751e-04,0.89661e-05 /) - kbo(:, 3,42, 6) = (/ & - & 0.67101e-06,0.12797e-04,0.15489e-04,0.15987e-04,0.98578e-05 /) - kbo(:, 4,42, 6) = (/ & - & 0.69427e-06,0.13675e-04,0.16616e-04,0.17274e-04,0.10770e-04 /) - kbo(:, 5,42, 6) = (/ & - & 0.71122e-06,0.14573e-04,0.17774e-04,0.18601e-04,0.11690e-04 /) - kbo(:, 1,43, 6) = (/ & - & 0.48565e-06,0.90929e-05,0.10998e-04,0.11127e-04,0.66136e-05 /) - kbo(:, 2,43, 6) = (/ & - & 0.51703e-06,0.98401e-05,0.11878e-04,0.12136e-04,0.73431e-05 /) - kbo(:, 3,43, 6) = (/ & - & 0.54246e-06,0.10594e-04,0.12807e-04,0.13197e-04,0.81019e-05 /) - kbo(:, 4,43, 6) = (/ & - & 0.56309e-06,0.11359e-04,0.13782e-04,0.14306e-04,0.88812e-05 /) - kbo(:, 5,43, 6) = (/ & - & 0.57854e-06,0.12144e-04,0.14791e-04,0.15456e-04,0.96685e-05 /) - kbo(:, 1,44, 6) = (/ & - & 0.38777e-06,0.74478e-05,0.90062e-05,0.90921e-05,0.53709e-05 /) - kbo(:, 2,44, 6) = (/ & - & 0.41522e-06,0.80919e-05,0.97570e-05,0.99478e-05,0.59889e-05 /) - kbo(:, 3,44, 6) = (/ & - & 0.43761e-06,0.87433e-05,0.10555e-04,0.10856e-04,0.66332e-05 /) - kbo(:, 4,44, 6) = (/ & - & 0.45584e-06,0.94063e-05,0.11395e-04,0.11808e-04,0.72955e-05 /) - kbo(:, 5,44, 6) = (/ & - & 0.46990e-06,0.10091e-04,0.12269e-04,0.12799e-04,0.79696e-05 /) - kbo(:, 1,45, 6) = (/ & - & 0.30888e-06,0.60898e-05,0.73632e-05,0.74181e-05,0.43535e-05 /) - kbo(:, 2,45, 6) = (/ & - & 0.33291e-06,0.66440e-05,0.80023e-05,0.81416e-05,0.48741e-05 /) - kbo(:, 3,45, 6) = (/ & - & 0.35255e-06,0.72052e-05,0.86855e-05,0.89154e-05,0.54207e-05 /) - kbo(:, 4,45, 6) = (/ & - & 0.36854e-06,0.77787e-05,0.94068e-05,0.97308e-05,0.59833e-05 /) - kbo(:, 5,45, 6) = (/ & - & 0.38125e-06,0.83745e-05,0.10163e-04,0.10583e-04,0.65578e-05 /) - kbo(:, 1,46, 6) = (/ & - & 0.24494e-06,0.49598e-05,0.59987e-05,0.60289e-05,0.35123e-05 /) - kbo(:, 2,46, 6) = (/ & - & 0.26595e-06,0.54355e-05,0.65411e-05,0.66383e-05,0.39494e-05 /) - kbo(:, 3,46, 6) = (/ & - & 0.28328e-06,0.59173e-05,0.71233e-05,0.72943e-05,0.44113e-05 /) - kbo(:, 4,46, 6) = (/ & - & 0.29735e-06,0.64123e-05,0.77406e-05,0.79904e-05,0.48883e-05 /) - kbo(:, 5,46, 6) = (/ & - & 0.30876e-06,0.69283e-05,0.83913e-05,0.87211e-05,0.53766e-05 /) - kbo(:, 1,47, 6) = (/ & - & 0.19287e-06,0.40134e-05,0.48586e-05,0.48718e-05,0.28114e-05 /) - kbo(:, 2,47, 6) = (/ & - & 0.21123e-06,0.44208e-05,0.53178e-05,0.53794e-05,0.31781e-05 /) - kbo(:, 3,47, 6) = (/ & - & 0.22658e-06,0.48332e-05,0.58104e-05,0.59335e-05,0.35646e-05 /) - kbo(:, 4,47, 6) = (/ & - & 0.23912e-06,0.52582e-05,0.63354e-05,0.65230e-05,0.39676e-05 /) - kbo(:, 5,47, 6) = (/ & - & 0.24931e-06,0.57025e-05,0.68920e-05,0.71458e-05,0.43826e-05 /) - kbo(:, 1,48, 6) = (/ & - & 0.15132e-06,0.32395e-05,0.39269e-05,0.39289e-05,0.22458e-05 /) - kbo(:, 2,48, 6) = (/ & - & 0.16716e-06,0.35866e-05,0.43144e-05,0.43511e-05,0.25512e-05 /) - kbo(:, 3,48, 6) = (/ & - & 0.18076e-06,0.39391e-05,0.47294e-05,0.48161e-05,0.28746e-05 /) - kbo(:, 4,48, 6) = (/ & - & 0.19194e-06,0.43030e-05,0.51748e-05,0.53142e-05,0.32135e-05 /) - kbo(:, 5,48, 6) = (/ & - & 0.20099e-06,0.46842e-05,0.56488e-05,0.58430e-05,0.35644e-05 /) - kbo(:, 1,49, 6) = (/ & - & 0.11828e-06,0.26078e-05,0.31672e-05,0.31617e-05,0.17894e-05 /) - kbo(:, 2,49, 6) = (/ & - & 0.13185e-06,0.29029e-05,0.34929e-05,0.35125e-05,0.20423e-05 /) - kbo(:, 3,49, 6) = (/ & - & 0.14378e-06,0.32030e-05,0.38409e-05,0.39000e-05,0.23121e-05 /) - kbo(:, 4,49, 6) = (/ & - & 0.15369e-06,0.35139e-05,0.42179e-05,0.43198e-05,0.25971e-05 /) - kbo(:, 5,49, 6) = (/ & - & 0.16176e-06,0.38391e-05,0.46198e-05,0.47667e-05,0.28929e-05 /) - kbo(:, 1,50, 6) = (/ & - & 0.92362e-07,0.20997e-05,0.25556e-05,0.25471e-05,0.14267e-05 /) - kbo(:, 2,50, 6) = (/ & - & 0.10390e-06,0.23496e-05,0.28286e-05,0.28368e-05,0.16356e-05 /) - kbo(:, 3,50, 6) = (/ & - & 0.11421e-06,0.26049e-05,0.31213e-05,0.31606e-05,0.18609e-05 /) - kbo(:, 4,50, 6) = (/ & - & 0.12297e-06,0.28694e-05,0.34392e-05,0.35125e-05,0.20996e-05 /) - kbo(:, 5,50, 6) = (/ & - & 0.13012e-06,0.31471e-05,0.37794e-05,0.38900e-05,0.23486e-05 /) - kbo(:, 1,51, 6) = (/ & - & 0.72029e-07,0.16879e-05,0.20606e-05,0.20506e-05,0.11365e-05 /) - kbo(:, 2,51, 6) = (/ & - & 0.81717e-07,0.18994e-05,0.22886e-05,0.22902e-05,0.13081e-05 /) - kbo(:, 3,51, 6) = (/ & - & 0.90547e-07,0.21162e-05,0.25347e-05,0.25588e-05,0.14964e-05 /) - kbo(:, 4,51, 6) = (/ & - & 0.98231e-07,0.23407e-05,0.28017e-05,0.28537e-05,0.16958e-05 /) - kbo(:, 5,51, 6) = (/ & - & 0.10454e-06,0.25770e-05,0.30891e-05,0.31719e-05,0.19053e-05 /) - kbo(:, 1,52, 6) = (/ & - & 0.55994e-07,0.13535e-05,0.16583e-05,0.16483e-05,0.90215e-06 /) - kbo(:, 2,52, 6) = (/ & - & 0.64065e-07,0.15318e-05,0.18483e-05,0.18452e-05,0.10447e-05 /) - kbo(:, 3,52, 6) = (/ & - & 0.71601e-07,0.17156e-05,0.20541e-05,0.20679e-05,0.12005e-05 /) - kbo(:, 4,52, 6) = (/ & - & 0.78265e-07,0.19055e-05,0.22786e-05,0.23151e-05,0.13673e-05 /) - kbo(:, 5,52, 6) = (/ & - & 0.83827e-07,0.21062e-05,0.25201e-05,0.25812e-05,0.15426e-05 /) - kbo(:, 1,53, 6) = (/ & - & 0.43376e-07,0.10823e-05,0.13316e-05,0.13229e-05,0.71387e-06 /) - kbo(:, 2,53, 6) = (/ & - & 0.50078e-07,0.12320e-05,0.14898e-05,0.14843e-05,0.83196e-06 /) - kbo(:, 3,53, 6) = (/ & - & 0.56440e-07,0.13873e-05,0.16612e-05,0.16678e-05,0.96085e-06 /) - kbo(:, 4,53, 6) = (/ & - & 0.62188e-07,0.15481e-05,0.18489e-05,0.18736e-05,0.10995e-05 /) - kbo(:, 5,53, 6) = (/ & - & 0.67072e-07,0.17179e-05,0.20520e-05,0.20964e-05,0.12465e-05 /) - kbo(:, 1,54, 6) = (/ & - & 0.33662e-07,0.86685e-06,0.10712e-05,0.10638e-05,0.56675e-06 /) - kbo(:, 2,54, 6) = (/ & - & 0.39188e-07,0.99237e-06,0.12024e-05,0.11965e-05,0.66407e-06 /) - kbo(:, 3,54, 6) = (/ & - & 0.44517e-07,0.11234e-05,0.13453e-05,0.13477e-05,0.77015e-06 /) - kbo(:, 4,54, 6) = (/ & - & 0.49410e-07,0.12591e-05,0.15022e-05,0.15186e-05,0.88568e-06 /) - kbo(:, 5,54, 6) = (/ & - & 0.53662e-07,0.14028e-05,0.16732e-05,0.17054e-05,0.10088e-05 /) - kbo(:, 1,55, 6) = (/ & - & 0.26107e-07,0.69409e-06,0.86148e-06,0.85535e-06,0.44993e-06 /) - kbo(:, 2,55, 6) = (/ & - & 0.30648e-07,0.79874e-06,0.97050e-06,0.96432e-06,0.52987e-06 /) - kbo(:, 3,55, 6) = (/ & - & 0.35070e-07,0.90919e-06,0.10893e-05,0.10889e-05,0.61727e-06 /) - kbo(:, 4,55, 6) = (/ & - & 0.39223e-07,0.10237e-05,0.12206e-05,0.12308e-05,0.71345e-06 /) - kbo(:, 5,55, 6) = (/ & - & 0.42897e-07,0.11450e-05,0.13641e-05,0.13878e-05,0.81614e-06 /) - kbo(:, 1,56, 6) = (/ & - & 0.20183e-07,0.55461e-06,0.69187e-06,0.68686e-06,0.35634e-06 /) - kbo(:, 2,56, 6) = (/ & - & 0.23906e-07,0.64143e-06,0.78193e-06,0.77615e-06,0.42133e-06 /) - kbo(:, 3,56, 6) = (/ & - & 0.27573e-07,0.73422e-06,0.88059e-06,0.87848e-06,0.49387e-06 /) - kbo(:, 4,56, 6) = (/ & - & 0.31066e-07,0.83083e-06,0.99001e-06,0.99604e-06,0.57362e-06 /) - kbo(:, 5,56, 6) = (/ & - & 0.34213e-07,0.93302e-06,0.11103e-05,0.11271e-05,0.65906e-06 /) - kbo(:, 1,57, 6) = (/ & - & 0.15553e-07,0.44221e-06,0.55475e-06,0.55051e-06,0.28158e-06 /) - kbo(:, 2,57, 6) = (/ & - & 0.18597e-07,0.51387e-06,0.62883e-06,0.62381e-06,0.33432e-06 /) - kbo(:, 3,57, 6) = (/ & - & 0.21627e-07,0.59165e-06,0.71079e-06,0.70768e-06,0.39423e-06 /) - kbo(:, 4,57, 6) = (/ & - & 0.24548e-07,0.67286e-06,0.80159e-06,0.80451e-06,0.46009e-06 /) - kbo(:, 5,57, 6) = (/ & - & 0.27223e-07,0.75870e-06,0.90196e-06,0.91372e-06,0.53126e-06 /) - kbo(:, 1,58, 6) = (/ & - & 0.11989e-07,0.35271e-06,0.44504e-06,0.44164e-06,0.22247e-06 /) - kbo(:, 2,58, 6) = (/ & - & 0.14473e-07,0.41167e-06,0.50593e-06,0.50179e-06,0.26557e-06 /) - kbo(:, 3,58, 6) = (/ & - & 0.16959e-07,0.47681e-06,0.57389e-06,0.57055e-06,0.31488e-06 /) - kbo(:, 4,58, 6) = (/ & - & 0.19386e-07,0.54503e-06,0.64933e-06,0.65043e-06,0.36927e-06 /) - kbo(:, 5,58, 6) = (/ & - & 0.21655e-07,0.61705e-06,0.73285e-06,0.74092e-06,0.42823e-06 /) - kbo(:, 1,59, 6) = (/ & - & 0.95745e-08,0.28909e-06,0.36504e-06,0.36221e-06,0.18143e-06 /) - kbo(:, 2,59, 6) = (/ & - & 0.11602e-07,0.33869e-06,0.41625e-06,0.41267e-06,0.21754e-06 /) - kbo(:, 3,59, 6) = (/ & - & 0.13639e-07,0.39363e-06,0.47345e-06,0.47053e-06,0.25873e-06 /) - kbo(:, 4,59, 6) = (/ & - & 0.15635e-07,0.45132e-06,0.53722e-06,0.53779e-06,0.30436e-06 /) - kbo(:, 5,59, 6) = (/ & - & 0.17515e-07,0.51255e-06,0.60804e-06,0.61445e-06,0.35395e-06 /) - kbo(:, 1,13, 7) = (/ & - & 0.13818e-02,0.53095e-02,0.61744e-02,0.61409e-02,0.38201e-02 /) - kbo(:, 2,13, 7) = (/ & - & 0.14927e-02,0.54262e-02,0.63169e-02,0.63268e-02,0.39787e-02 /) - kbo(:, 3,13, 7) = (/ & - & 0.15882e-02,0.55245e-02,0.64575e-02,0.65042e-02,0.41285e-02 /) - kbo(:, 4,13, 7) = (/ & - & 0.16683e-02,0.56028e-02,0.65859e-02,0.66764e-02,0.42766e-02 /) - kbo(:, 5,13, 7) = (/ & - & 0.17364e-02,0.56642e-02,0.66996e-02,0.68400e-02,0.44196e-02 /) - kbo(:, 1,14, 7) = (/ & - & 0.11439e-02,0.44642e-02,0.52052e-02,0.51954e-02,0.32185e-02 /) - kbo(:, 2,14, 7) = (/ & - & 0.12322e-02,0.45612e-02,0.53295e-02,0.53554e-02,0.33544e-02 /) - kbo(:, 3,14, 7) = (/ & - & 0.13082e-02,0.46425e-02,0.54474e-02,0.55111e-02,0.34869e-02 /) - kbo(:, 4,14, 7) = (/ & - & 0.13723e-02,0.47078e-02,0.55568e-02,0.56605e-02,0.36178e-02 /) - kbo(:, 5,14, 7) = (/ & - & 0.14273e-02,0.47614e-02,0.56536e-02,0.58004e-02,0.37445e-02 /) - kbo(:, 1,15, 7) = (/ & - & 0.94600e-03,0.37452e-02,0.43786e-02,0.43839e-02,0.27064e-02 /) - kbo(:, 2,15, 7) = (/ & - & 0.10166e-02,0.38272e-02,0.44845e-02,0.45238e-02,0.28259e-02 /) - kbo(:, 3,15, 7) = (/ & - & 0.10772e-02,0.38951e-02,0.45852e-02,0.46569e-02,0.29424e-02 /) - kbo(:, 4,15, 7) = (/ & - & 0.11287e-02,0.39508e-02,0.46776e-02,0.47856e-02,0.30573e-02 /) - kbo(:, 5,15, 7) = (/ & - & 0.11727e-02,0.39984e-02,0.47639e-02,0.49094e-02,0.31707e-02 /) - kbo(:, 1,16, 7) = (/ & - & 0.78170e-03,0.31386e-02,0.36753e-02,0.36925e-02,0.22749e-02 /) - kbo(:, 2,16, 7) = (/ & - & 0.83828e-03,0.32067e-02,0.37655e-02,0.38108e-02,0.23791e-02 /) - kbo(:, 3,16, 7) = (/ & - & 0.88677e-03,0.32636e-02,0.38524e-02,0.39267e-02,0.24809e-02 /) - kbo(:, 4,16, 7) = (/ & - & 0.92814e-03,0.33127e-02,0.39332e-02,0.40389e-02,0.25819e-02 /) - kbo(:, 5,16, 7) = (/ & - & 0.96342e-03,0.33561e-02,0.40123e-02,0.41493e-02,0.26825e-02 /) - kbo(:, 1,17, 7) = (/ & - & 0.64513e-03,0.26258e-02,0.30792e-02,0.31027e-02,0.19109e-02 /) - kbo(:, 2,17, 7) = (/ & - & 0.69065e-03,0.26830e-02,0.31573e-02,0.32056e-02,0.20013e-02 /) - kbo(:, 3,17, 7) = (/ & - & 0.72951e-03,0.27321e-02,0.32326e-02,0.33061e-02,0.20905e-02 /) - kbo(:, 4,17, 7) = (/ & - & 0.76279e-03,0.27759e-02,0.33057e-02,0.34049e-02,0.21791e-02 /) - kbo(:, 5,17, 7) = (/ & - & 0.79127e-03,0.28164e-02,0.33776e-02,0.35037e-02,0.22680e-02 /) - kbo(:, 1,18, 7) = (/ & - & 0.53216e-03,0.21945e-02,0.25768e-02,0.26041e-02,0.16047e-02 /) - kbo(:, 2,18, 7) = (/ & - & 0.56878e-03,0.22431e-02,0.26453e-02,0.26934e-02,0.16829e-02 /) - kbo(:, 3,18, 7) = (/ & - & 0.60002e-03,0.22864e-02,0.27121e-02,0.27812e-02,0.17605e-02 /) - kbo(:, 4,18, 7) = (/ & - & 0.62666e-03,0.23265e-02,0.27778e-02,0.28689e-02,0.18389e-02 /) - kbo(:, 5,18, 7) = (/ & - & 0.64956e-03,0.23645e-02,0.28436e-02,0.29587e-02,0.19175e-02 /) - kbo(:, 1,19, 7) = (/ & - & 0.43878e-03,0.18328e-02,0.21555e-02,0.21844e-02,0.13470e-02 /) - kbo(:, 2,19, 7) = (/ & - & 0.46832e-03,0.18749e-02,0.22160e-02,0.22619e-02,0.14147e-02 /) - kbo(:, 3,19, 7) = (/ & - & 0.49337e-03,0.19136e-02,0.22752e-02,0.23395e-02,0.14834e-02 /) - kbo(:, 4,19, 7) = (/ & - & 0.51483e-03,0.19509e-02,0.23344e-02,0.24177e-02,0.15526e-02 /) - kbo(:, 5,19, 7) = (/ & - & 0.53321e-03,0.19863e-02,0.23950e-02,0.24983e-02,0.16228e-02 /) - kbo(:, 1,20, 7) = (/ & - & 0.36218e-03,0.15310e-02,0.18044e-02,0.18333e-02,0.11320e-02 /) - kbo(:, 2,20, 7) = (/ & - & 0.38587e-03,0.15681e-02,0.18573e-02,0.19010e-02,0.11911e-02 /) - kbo(:, 3,20, 7) = (/ & - & 0.40599e-03,0.16034e-02,0.19105e-02,0.19693e-02,0.12516e-02 /) - kbo(:, 4,20, 7) = (/ & - & 0.42327e-03,0.16372e-02,0.19642e-02,0.20400e-02,0.13133e-02 /) - kbo(:, 5,20, 7) = (/ & - & 0.43800e-03,0.16702e-02,0.20196e-02,0.21120e-02,0.13760e-02 /) - kbo(:, 1,21, 7) = (/ & - & 0.29894e-03,0.12794e-02,0.15109e-02,0.15392e-02,0.95196e-03 /) - kbo(:, 2,21, 7) = (/ & - & 0.31795e-03,0.13126e-02,0.15578e-02,0.15985e-02,0.10041e-02 /) - kbo(:, 3,21, 7) = (/ & - & 0.33409e-03,0.13444e-02,0.16054e-02,0.16590e-02,0.10575e-02 /) - kbo(:, 4,21, 7) = (/ & - & 0.34798e-03,0.13752e-02,0.16542e-02,0.17228e-02,0.11124e-02 /) - kbo(:, 5,21, 7) = (/ & - & 0.35982e-03,0.14062e-02,0.17046e-02,0.17872e-02,0.11688e-02 /) - kbo(:, 1,22, 7) = (/ & - & 0.24779e-03,0.10720e-02,0.12687e-02,0.12959e-02,0.80428e-03 /) - kbo(:, 2,22, 7) = (/ & - & 0.26287e-03,0.11012e-02,0.13104e-02,0.13483e-02,0.85046e-03 /) - kbo(:, 3,22, 7) = (/ & - & 0.27570e-03,0.11300e-02,0.13532e-02,0.14032e-02,0.89796e-03 /) - kbo(:, 4,22, 7) = (/ & - & 0.28676e-03,0.11583e-02,0.13978e-02,0.14602e-02,0.94722e-03 /) - kbo(:, 5,22, 7) = (/ & - & 0.29612e-03,0.11873e-02,0.14439e-02,0.15185e-02,0.99812e-03 /) - kbo(:, 1,23, 7) = (/ & - & 0.20536e-03,0.89901e-03,0.10666e-02,0.10925e-02,0.68077e-03 /) - kbo(:, 2,23, 7) = (/ & - & 0.21732e-03,0.92514e-03,0.11037e-02,0.11394e-02,0.72189e-03 /) - kbo(:, 3,23, 7) = (/ & - & 0.22752e-03,0.95109e-03,0.11426e-02,0.11888e-02,0.76437e-03 /) - kbo(:, 4,23, 7) = (/ & - & 0.23632e-03,0.97728e-03,0.11832e-02,0.12403e-02,0.80877e-03 /) - kbo(:, 5,23, 7) = (/ & - & 0.24369e-03,0.10040e-02,0.12260e-02,0.12934e-02,0.85489e-03 /) - kbo(:, 1,24, 7) = (/ & - & 0.17021e-03,0.75506e-03,0.89800e-03,0.92265e-03,0.57788e-03 /) - kbo(:, 2,24, 7) = (/ & - & 0.17969e-03,0.77853e-03,0.93149e-03,0.96497e-03,0.61443e-03 /) - kbo(:, 3,24, 7) = (/ & - & 0.18778e-03,0.80207e-03,0.96680e-03,0.10097e-02,0.65278e-03 /) - kbo(:, 4,24, 7) = (/ & - & 0.19477e-03,0.82622e-03,0.10041e-02,0.10564e-02,0.69293e-03 /) - kbo(:, 5,24, 7) = (/ & - & 0.20055e-03,0.85104e-03,0.10439e-02,0.11053e-02,0.73424e-03 /) - kbo(:, 1,25, 7) = (/ & - & 0.14110e-03,0.63531e-03,0.75746e-03,0.78109e-03,0.49195e-03 /) - kbo(:, 2,25, 7) = (/ & - & 0.14860e-03,0.65629e-03,0.78801e-03,0.81951e-03,0.52472e-03 /) - kbo(:, 3,25, 7) = (/ & - & 0.15502e-03,0.67802e-03,0.82018e-03,0.86005e-03,0.55929e-03 /) - kbo(:, 4,25, 7) = (/ & - & 0.16054e-03,0.70023e-03,0.85487e-03,0.90270e-03,0.59546e-03 /) - kbo(:, 5,25, 7) = (/ & - & 0.16506e-03,0.72333e-03,0.89213e-03,0.94794e-03,0.63296e-03 /) - kbo(:, 1,26, 7) = (/ & - & 0.11704e-03,0.53563e-03,0.64089e-03,0.66348e-03,0.42036e-03 /) - kbo(:, 2,26, 7) = (/ & - & 0.12296e-03,0.55482e-03,0.66859e-03,0.69842e-03,0.44986e-03 /) - kbo(:, 3,26, 7) = (/ & - & 0.12804e-03,0.57460e-03,0.69838e-03,0.73532e-03,0.48115e-03 /) - kbo(:, 4,26, 7) = (/ & - & 0.13237e-03,0.59528e-03,0.73081e-03,0.77472e-03,0.51371e-03 /) - kbo(:, 5,26, 7) = (/ & - & 0.13587e-03,0.61708e-03,0.76562e-03,0.81649e-03,0.54800e-03 /) - kbo(:, 1,27, 7) = (/ & - & 0.97037e-04,0.45263e-03,0.54353e-03,0.56528e-03,0.36031e-03 /) - kbo(:, 2,27, 7) = (/ & - & 0.10171e-03,0.47018e-03,0.56899e-03,0.59710e-03,0.38698e-03 /) - kbo(:, 3,27, 7) = (/ & - & 0.10572e-03,0.48833e-03,0.59675e-03,0.63096e-03,0.41505e-03 /) - kbo(:, 4,27, 7) = (/ & - & 0.10911e-03,0.50767e-03,0.62713e-03,0.66736e-03,0.44466e-03 /) - kbo(:, 5,27, 7) = (/ & - & 0.11182e-03,0.52830e-03,0.65949e-03,0.70600e-03,0.47625e-03 /) - kbo(:, 1,28, 7) = (/ & - & 0.80419e-04,0.38349e-03,0.46224e-03,0.48308e-03,0.30982e-03 /) - kbo(:, 2,28, 7) = (/ & - & 0.84110e-04,0.39943e-03,0.48584e-03,0.51214e-03,0.33386e-03 /) - kbo(:, 3,28, 7) = (/ & - & 0.87283e-04,0.41636e-03,0.51189e-03,0.54353e-03,0.35924e-03 /) - kbo(:, 4,28, 7) = (/ & - & 0.89914e-04,0.43456e-03,0.54020e-03,0.57698e-03,0.38635e-03 /) - kbo(:, 5,28, 7) = (/ & - & 0.92003e-04,0.45406e-03,0.57030e-03,0.61286e-03,0.41553e-03 /) - kbo(:, 1,29, 7) = (/ & - & 0.66637e-04,0.32580e-03,0.39453e-03,0.41439e-03,0.26738e-03 /) - kbo(:, 2,29, 7) = (/ & - & 0.69552e-04,0.34052e-03,0.41660e-03,0.44116e-03,0.28904e-03 /) - kbo(:, 3,29, 7) = (/ & - & 0.72042e-04,0.35633e-03,0.44102e-03,0.47005e-03,0.31218e-03 /) - kbo(:, 4,29, 7) = (/ & - & 0.74082e-04,0.37351e-03,0.46731e-03,0.50108e-03,0.33714e-03 /) - kbo(:, 5,29, 7) = (/ & - & 0.75692e-04,0.39190e-03,0.49529e-03,0.53447e-03,0.36421e-03 /) - kbo(:, 1,30, 7) = (/ & - & 0.55194e-04,0.27757e-03,0.33804e-03,0.35670e-03,0.23148e-03 /) - kbo(:, 2,30, 7) = (/ & - & 0.57489e-04,0.29130e-03,0.35876e-03,0.38143e-03,0.25115e-03 /) - kbo(:, 3,30, 7) = (/ & - & 0.59445e-04,0.30619e-03,0.38148e-03,0.40810e-03,0.27242e-03 /) - kbo(:, 4,30, 7) = (/ & - & 0.61024e-04,0.32233e-03,0.40578e-03,0.43698e-03,0.29552e-03 /) - kbo(:, 5,30, 7) = (/ & - & 0.62251e-04,0.33969e-03,0.43185e-03,0.46830e-03,0.32052e-03 /) - kbo(:, 1,31, 7) = (/ & - & 0.45701e-04,0.23736e-03,0.29086e-03,0.30834e-03,0.20114e-03 /) - kbo(:, 2,31, 7) = (/ & - & 0.47516e-04,0.25020e-03,0.31032e-03,0.33113e-03,0.21916e-03 /) - kbo(:, 3,31, 7) = (/ & - & 0.49034e-04,0.26424e-03,0.33131e-03,0.35593e-03,0.23874e-03 /) - kbo(:, 4,31, 7) = (/ & - & 0.50247e-04,0.27943e-03,0.35395e-03,0.38299e-03,0.26024e-03 /) - kbo(:, 5,31, 7) = (/ & - & 0.51186e-04,0.29578e-03,0.37829e-03,0.41250e-03,0.28341e-03 /) - kbo(:, 1,32, 7) = (/ & - & 0.37829e-04,0.20379e-03,0.25145e-03,0.26761e-03,0.17549e-03 /) - kbo(:, 2,32, 7) = (/ & - & 0.39256e-04,0.21585e-03,0.26951e-03,0.28871e-03,0.19207e-03 /) - kbo(:, 3,32, 7) = (/ & - & 0.40434e-04,0.22904e-03,0.28903e-03,0.31192e-03,0.21034e-03 /) - kbo(:, 4,32, 7) = (/ & - & 0.41367e-04,0.24332e-03,0.31020e-03,0.33744e-03,0.23024e-03 /) - kbo(:, 5,32, 7) = (/ & - & 0.42072e-04,0.25873e-03,0.33309e-03,0.36527e-03,0.25179e-03 /) - kbo(:, 1,33, 7) = (/ & - & 0.31302e-04,0.17572e-03,0.21830e-03,0.23321e-03,0.15375e-03 /) - kbo(:, 2,33, 7) = (/ & - & 0.32419e-04,0.18706e-03,0.23504e-03,0.25291e-03,0.16915e-03 /) - kbo(:, 3,33, 7) = (/ & - & 0.33327e-04,0.19940e-03,0.25328e-03,0.27479e-03,0.18617e-03 /) - kbo(:, 4,33, 7) = (/ & - & 0.34039e-04,0.21283e-03,0.27315e-03,0.29887e-03,0.20465e-03 /) - kbo(:, 5,33, 7) = (/ & - & 0.34568e-04,0.22731e-03,0.29474e-03,0.32519e-03,0.22485e-03 /) - kbo(:, 1,34, 7) = (/ & - & 0.25851e-04,0.15182e-03,0.18976e-03,0.20353e-03,0.13483e-03 /) - kbo(:, 2,34, 7) = (/ & - & 0.26731e-04,0.16241e-03,0.20531e-03,0.22199e-03,0.14918e-03 /) - kbo(:, 3,34, 7) = (/ & - & 0.27437e-04,0.17395e-03,0.22237e-03,0.24258e-03,0.16491e-03 /) - kbo(:, 4,34, 7) = (/ & - & 0.27988e-04,0.18656e-03,0.24113e-03,0.26529e-03,0.18217e-03 /) - kbo(:, 5,34, 7) = (/ & - & 0.28384e-04,0.20017e-03,0.26144e-03,0.29020e-03,0.20116e-03 /) - kbo(:, 1,35, 7) = (/ & - & 0.21271e-04,0.13078e-03,0.16426e-03,0.17685e-03,0.11756e-03 /) - kbo(:, 2,35, 7) = (/ & - & 0.21975e-04,0.14058e-03,0.17865e-03,0.19403e-03,0.13072e-03 /) - kbo(:, 3,35, 7) = (/ & - & 0.22533e-04,0.15132e-03,0.19456e-03,0.21323e-03,0.14523e-03 /) - kbo(:, 4,35, 7) = (/ & - & 0.22966e-04,0.16307e-03,0.21206e-03,0.23454e-03,0.16133e-03 /) - kbo(:, 5,35, 7) = (/ & - & 0.23274e-04,0.17579e-03,0.23112e-03,0.25800e-03,0.17911e-03 /) - kbo(:, 1,36, 7) = (/ & - & 0.17431e-04,0.11205e-03,0.14128e-03,0.15260e-03,0.10161e-03 /) - kbo(:, 2,36, 7) = (/ & - & 0.18004e-04,0.12103e-03,0.15448e-03,0.16840e-03,0.11356e-03 /) - kbo(:, 3,36, 7) = (/ & - & 0.18458e-04,0.13095e-03,0.16918e-03,0.18616e-03,0.12687e-03 /) - kbo(:, 4,36, 7) = (/ & - & 0.18810e-04,0.14182e-03,0.18539e-03,0.20596e-03,0.14179e-03 /) - kbo(:, 5,36, 7) = (/ & - & 0.19059e-04,0.15363e-03,0.20317e-03,0.22788e-03,0.15831e-03 /) - kbo(:, 1,37, 7) = (/ & - & 0.14204e-04,0.95010e-04,0.12008e-03,0.12996e-03,0.86482e-04 /) - kbo(:, 2,37, 7) = (/ & - & 0.14685e-04,0.10313e-03,0.13200e-03,0.14426e-03,0.97179e-04 /) - kbo(:, 3,37, 7) = (/ & - & 0.15069e-04,0.11214e-03,0.14536e-03,0.16042e-03,0.10922e-03 /) - kbo(:, 4,37, 7) = (/ & - & 0.15369e-04,0.12211e-03,0.16020e-03,0.17855e-03,0.12282e-03 /) - kbo(:, 5,37, 7) = (/ & - & 0.15586e-04,0.13296e-03,0.17661e-03,0.19876e-03,0.13797e-03 /) - kbo(:, 1,38, 7) = (/ & - & 0.11571e-04,0.80545e-04,0.10206e-03,0.11063e-03,0.73563e-04 /) - kbo(:, 2,38, 7) = (/ & - & 0.11976e-04,0.87875e-04,0.11281e-03,0.12357e-03,0.83149e-04 /) - kbo(:, 3,38, 7) = (/ & - & 0.12301e-04,0.96063e-04,0.12495e-03,0.13829e-03,0.94026e-04 /) - kbo(:, 4,38, 7) = (/ & - & 0.12557e-04,0.10518e-03,0.13851e-03,0.15487e-03,0.10642e-03 /) - kbo(:, 5,38, 7) = (/ & - & 0.12744e-04,0.11515e-03,0.15364e-03,0.17352e-03,0.12029e-03 /) - kbo(:, 1,39, 7) = (/ & - & 0.94254e-05,0.68333e-04,0.86798e-04,0.94247e-04,0.62604e-04 /) - kbo(:, 2,39, 7) = (/ & - & 0.97657e-05,0.74945e-04,0.96495e-04,0.10595e-03,0.71185e-04 /) - kbo(:, 3,39, 7) = (/ & - & 0.10041e-04,0.82376e-04,0.10752e-03,0.11934e-03,0.81022e-04 /) - kbo(:, 4,39, 7) = (/ & - & 0.10258e-04,0.90687e-04,0.11992e-03,0.13453e-03,0.92315e-04 /) - kbo(:, 5,39, 7) = (/ & - & 0.10419e-04,0.99852e-04,0.13387e-03,0.15177e-03,0.10504e-03 /) - kbo(:, 1,40, 7) = (/ & - & 0.76452e-05,0.57428e-04,0.73021e-04,0.79333e-04,0.52568e-04 /) - kbo(:, 2,40, 7) = (/ & - & 0.79354e-05,0.63315e-04,0.81650e-04,0.89752e-04,0.60144e-04 /) - kbo(:, 3,40, 7) = (/ & - & 0.81739e-05,0.69961e-04,0.91542e-04,0.10176e-03,0.68905e-04 /) - kbo(:, 4,40, 7) = (/ & - & 0.83626e-05,0.77456e-04,0.10275e-03,0.11552e-03,0.79059e-04 /) - kbo(:, 5,40, 7) = (/ & - & 0.85064e-05,0.85795e-04,0.11542e-03,0.13128e-03,0.90578e-04 /) - kbo(:, 1,41, 7) = (/ & - & 0.61953e-05,0.48163e-04,0.61287e-04,0.66616e-04,0.44011e-04 /) - kbo(:, 2,41, 7) = (/ & - & 0.64418e-05,0.53383e-04,0.68934e-04,0.75842e-04,0.50670e-04 /) - kbo(:, 3,41, 7) = (/ & - & 0.66484e-05,0.59312e-04,0.77785e-04,0.86580e-04,0.58448e-04 /) - kbo(:, 4,41, 7) = (/ & - & 0.68134e-05,0.66054e-04,0.87876e-04,0.98995e-04,0.67543e-04 /) - kbo(:, 5,41, 7) = (/ & - & 0.69402e-05,0.73614e-04,0.99378e-04,0.11337e-03,0.77942e-04 /) - kbo(:, 1,42, 7) = (/ & - & 0.50170e-05,0.40358e-04,0.51378e-04,0.55875e-04,0.36794e-04 /) - kbo(:, 2,42, 7) = (/ & - & 0.52266e-05,0.44971e-04,0.58141e-04,0.64024e-04,0.42639e-04 /) - kbo(:, 3,42, 7) = (/ & - & 0.54046e-05,0.50250e-04,0.66034e-04,0.73601e-04,0.49527e-04 /) - kbo(:, 4,42, 7) = (/ & - & 0.55484e-05,0.56302e-04,0.75111e-04,0.84788e-04,0.57654e-04 /) - kbo(:, 5,42, 7) = (/ & - & 0.56600e-05,0.63153e-04,0.85551e-04,0.97898e-04,0.67040e-04 /) - kbo(:, 1,43, 7) = (/ & - & 0.40498e-05,0.33563e-04,0.42716e-04,0.46433e-04,0.30447e-04 /) - kbo(:, 2,43, 7) = (/ & - & 0.42291e-05,0.37603e-04,0.48619e-04,0.53551e-04,0.35516e-04 /) - kbo(:, 3,43, 7) = (/ & - & 0.43833e-05,0.42260e-04,0.55585e-04,0.61999e-04,0.41549e-04 /) - kbo(:, 4,43, 7) = (/ & - & 0.45099e-05,0.47650e-04,0.63668e-04,0.71964e-04,0.48728e-04 /) - kbo(:, 5,43, 7) = (/ & - & 0.46096e-05,0.53790e-04,0.73053e-04,0.83779e-04,0.57105e-04 /) - kbo(:, 1,44, 7) = (/ & - & 0.32616e-05,0.27781e-04,0.35335e-04,0.38366e-04,0.25032e-04 /) - kbo(:, 2,44, 7) = (/ & - & 0.34164e-05,0.31296e-04,0.40444e-04,0.44531e-04,0.29399e-04 /) - kbo(:, 3,44, 7) = (/ & - & 0.35491e-05,0.35375e-04,0.46540e-04,0.51925e-04,0.34633e-04 /) - kbo(:, 4,44, 7) = (/ & - & 0.36610e-05,0.40146e-04,0.53687e-04,0.60738e-04,0.40935e-04 /) - kbo(:, 5,44, 7) = (/ & - & 0.37500e-05,0.45618e-04,0.62061e-04,0.71298e-04,0.48356e-04 /) - kbo(:, 1,45, 7) = (/ & - & 0.26238e-05,0.22952e-04,0.29162e-04,0.31630e-04,0.20522e-04 /) - kbo(:, 2,45, 7) = (/ & - & 0.27571e-05,0.25992e-04,0.33567e-04,0.36938e-04,0.24268e-04 /) - kbo(:, 3,45, 7) = (/ & - & 0.28713e-05,0.29549e-04,0.38881e-04,0.43383e-04,0.28792e-04 /) - kbo(:, 4,45, 7) = (/ & - & 0.29693e-05,0.33760e-04,0.45177e-04,0.51149e-04,0.34303e-04 /) - kbo(:, 5,45, 7) = (/ & - & 0.30482e-05,0.38627e-04,0.52624e-04,0.60551e-04,0.40857e-04 /) - kbo(:, 1,46, 7) = (/ & - & 0.21051e-05,0.18867e-04,0.23935e-04,0.25917e-04,0.16710e-04 /) - kbo(:, 2,46, 7) = (/ & - & 0.22206e-05,0.21480e-04,0.27705e-04,0.30449e-04,0.19893e-04 /) - kbo(:, 3,46, 7) = (/ & - & 0.23191e-05,0.24557e-04,0.32298e-04,0.36019e-04,0.23769e-04 /) - kbo(:, 4,46, 7) = (/ & - & 0.24046e-05,0.28239e-04,0.37798e-04,0.42807e-04,0.28545e-04 /) - kbo(:, 5,46, 7) = (/ & - & 0.24746e-05,0.32543e-04,0.44374e-04,0.51109e-04,0.34299e-04 /) - kbo(:, 1,47, 7) = (/ & - & 0.16817e-05,0.15386e-04,0.19464e-04,0.21024e-04,0.13455e-04 /) - kbo(:, 2,47, 7) = (/ & - & 0.17822e-05,0.17605e-04,0.22652e-04,0.24840e-04,0.16124e-04 /) - kbo(:, 3,47, 7) = (/ & - & 0.18680e-05,0.20236e-04,0.26567e-04,0.29585e-04,0.19401e-04 /) - kbo(:, 4,47, 7) = (/ & - & 0.19423e-05,0.23413e-04,0.31317e-04,0.35433e-04,0.23476e-04 /) - kbo(:, 5,47, 7) = (/ & - & 0.20049e-05,0.27181e-04,0.37054e-04,0.42668e-04,0.28466e-04 /) - kbo(:, 1,48, 7) = (/ & - & 0.13405e-05,0.12514e-04,0.15779e-04,0.16993e-04,0.10791e-04 /) - kbo(:, 2,48, 7) = (/ & - & 0.14280e-05,0.14385e-04,0.18460e-04,0.20187e-04,0.13017e-04 /) - kbo(:, 3,48, 7) = (/ & - & 0.15026e-05,0.16623e-04,0.21773e-04,0.24205e-04,0.15768e-04 /) - kbo(:, 4,48, 7) = (/ & - & 0.15671e-05,0.19354e-04,0.25854e-04,0.29218e-04,0.19227e-04 /) - kbo(:, 5,48, 7) = (/ & - & 0.16224e-05,0.22629e-04,0.30833e-04,0.35479e-04,0.23525e-04 /) - kbo(:, 1,49, 7) = (/ & - & 0.10664e-05,0.10149e-04,0.12751e-04,0.13684e-04,0.86188e-05 /) - kbo(:, 2,49, 7) = (/ & - & 0.11418e-05,0.11720e-04,0.14999e-04,0.16352e-04,0.10467e-04 /) - kbo(:, 3,49, 7) = (/ & - & 0.12069e-05,0.13612e-04,0.17780e-04,0.19716e-04,0.12759e-04 /) - kbo(:, 4,49, 7) = (/ & - & 0.12630e-05,0.15945e-04,0.21262e-04,0.23990e-04,0.15676e-04 /) - kbo(:, 5,49, 7) = (/ & - & 0.13113e-05,0.18775e-04,0.25560e-04,0.29382e-04,0.19352e-04 /) - kbo(:, 1,50, 7) = (/ & - & 0.84808e-06,0.82401e-05,0.10318e-04,0.11036e-04,0.68939e-05 /) - kbo(:, 2,50, 7) = (/ & - & 0.91269e-06,0.95513e-05,0.12189e-04,0.13247e-04,0.84209e-05 /) - kbo(:, 3,50, 7) = (/ & - & 0.96928e-06,0.11160e-04,0.14539e-04,0.16084e-04,0.10336e-04 /) - kbo(:, 4,50, 7) = (/ & - & 0.10177e-05,0.13146e-04,0.17498e-04,0.19711e-04,0.12790e-04 /) - kbo(:, 5,50, 7) = (/ & - & 0.10595e-05,0.15592e-04,0.21207e-04,0.24356e-04,0.15929e-04 /) - kbo(:, 1,51, 7) = (/ & - & 0.67378e-06,0.66826e-05,0.83381e-05,0.88828e-05,0.55052e-05 /) - kbo(:, 2,51, 7) = (/ & - & 0.72873e-06,0.77753e-05,0.98905e-05,0.10714e-04,0.67636e-05 /) - kbo(:, 3,51, 7) = (/ & - & 0.77763e-06,0.91368e-05,0.11866e-04,0.13091e-04,0.83559e-05 /) - kbo(:, 4,51, 7) = (/ & - & 0.81953e-06,0.10824e-04,0.14378e-04,0.16168e-04,0.10417e-04 /) - kbo(:, 5,51, 7) = (/ & - & 0.85561e-06,0.12933e-04,0.17571e-04,0.20159e-04,0.13087e-04 /) - kbo(:, 1,52, 7) = (/ & - & 0.53444e-06,0.54066e-05,0.67197e-05,0.71297e-05,0.43814e-05 /) - kbo(:, 2,52, 7) = (/ & - & 0.58095e-06,0.63124e-05,0.79989e-05,0.86346e-05,0.54122e-05 /) - kbo(:, 3,52, 7) = (/ & - & 0.62282e-06,0.74561e-05,0.96489e-05,0.10614e-04,0.67289e-05 /) - kbo(:, 4,52, 7) = (/ & - & 0.65913e-06,0.88917e-05,0.11780e-04,0.13220e-04,0.84497e-05 /) - kbo(:, 5,52, 7) = (/ & - & 0.69032e-06,0.10691e-04,0.14504e-04,0.16615e-04,0.10706e-04 /) - kbo(:, 1,53, 7) = (/ & - & 0.42309e-06,0.43635e-05,0.54017e-05,0.57047e-05,0.34733e-05 /) - kbo(:, 2,53, 7) = (/ & - & 0.46223e-06,0.51097e-05,0.64465e-05,0.69322e-05,0.43120e-05 /) - kbo(:, 3,53, 7) = (/ & - & 0.49791e-06,0.60643e-05,0.78166e-05,0.85690e-05,0.53948e-05 /) - kbo(:, 4,53, 7) = (/ & - & 0.52942e-06,0.72726e-05,0.96042e-05,0.10748e-04,0.68211e-05 /) - kbo(:, 5,53, 7) = (/ & - & 0.55635e-06,0.88074e-05,0.11924e-04,0.13632e-04,0.87176e-05 /) - kbo(:, 1,54, 7) = (/ & - & 0.33525e-06,0.35291e-05,0.43533e-05,0.45783e-05,0.27618e-05 /) - kbo(:, 2,54, 7) = (/ & - & 0.36801e-06,0.41464e-05,0.52098e-05,0.55821e-05,0.34468e-05 /) - kbo(:, 3,54, 7) = (/ & - & 0.39830e-06,0.49442e-05,0.63495e-05,0.69393e-05,0.43390e-05 /) - kbo(:, 4,54, 7) = (/ & - & 0.42530e-06,0.59638e-05,0.78520e-05,0.87652e-05,0.55238e-05 /) - kbo(:, 5,54, 7) = (/ & - & 0.44850e-06,0.72711e-05,0.98256e-05,0.11213e-04,0.71180e-05 /) - kbo(:, 1,55, 7) = (/ & - & 0.26561e-06,0.28535e-05,0.35091e-05,0.36747e-05,0.21953e-05 /) - kbo(:, 2,55, 7) = (/ & - & 0.29299e-06,0.33630e-05,0.42093e-05,0.44935e-05,0.27543e-05 /) - kbo(:, 3,55, 7) = (/ & - & 0.31855e-06,0.40286e-05,0.51555e-05,0.56160e-05,0.34885e-05 /) - kbo(:, 4,55, 7) = (/ & - & 0.34149e-06,0.48884e-05,0.64166e-05,0.71432e-05,0.44712e-05 /) - kbo(:, 5,55, 7) = (/ & - & 0.36149e-06,0.60082e-05,0.81053e-05,0.92338e-05,0.58114e-05 /) - kbo(:, 1,56, 7) = (/ & - & 0.21017e-06,0.23019e-05,0.28217e-05,0.29420e-05,0.17403e-05 /) - kbo(:, 2,56, 7) = (/ & - & 0.23294e-06,0.27215e-05,0.33922e-05,0.36070e-05,0.21943e-05 /) - kbo(:, 3,56, 7) = (/ & - & 0.25436e-06,0.32732e-05,0.41720e-05,0.45291e-05,0.27950e-05 /) - kbo(:, 4,56, 7) = (/ & - & 0.27383e-06,0.39951e-05,0.52252e-05,0.57990e-05,0.36054e-05 /) - kbo(:, 5,56, 7) = (/ & - & 0.29106e-06,0.49429e-05,0.66518e-05,0.75613e-05,0.47246e-05 /) - kbo(:, 1,57, 7) = (/ & - & 0.16608e-06,0.18531e-05,0.22639e-05,0.23504e-05,0.13760e-05 /) - kbo(:, 2,57, 7) = (/ & - & 0.18488e-06,0.21971e-05,0.27271e-05,0.28870e-05,0.17421e-05 /) - kbo(:, 3,57, 7) = (/ & - & 0.20279e-06,0.26520e-05,0.33659e-05,0.36392e-05,0.22316e-05 /) - kbo(:, 4,57, 7) = (/ & - & 0.21931e-06,0.32543e-05,0.42391e-05,0.46891e-05,0.28949e-05 /) - kbo(:, 5,57, 7) = (/ & - & 0.23404e-06,0.40527e-05,0.54380e-05,0.61649e-05,0.38234e-05 /) - kbo(:, 1,58, 7) = (/ & - & 0.13131e-06,0.14927e-05,0.18179e-05,0.18787e-05,0.10893e-05 /) - kbo(:, 2,58, 7) = (/ & - & 0.14677e-06,0.17748e-05,0.21946e-05,0.23122e-05,0.13839e-05 /) - kbo(:, 3,58, 7) = (/ & - & 0.16171e-06,0.21494e-05,0.27171e-05,0.29256e-05,0.17827e-05 /) - kbo(:, 4,58, 7) = (/ & - & 0.17567e-06,0.26514e-05,0.34407e-05,0.37923e-05,0.23269e-05 /) - kbo(:, 5,58, 7) = (/ & - & 0.18816e-06,0.33237e-05,0.44466e-05,0.50280e-05,0.30958e-05 /) - kbo(:, 1,59, 7) = (/ & - & 0.10599e-06,0.12374e-05,0.15060e-05,0.15543e-05,0.89750e-06 /) - kbo(:, 2,59, 7) = (/ & - & 0.11868e-06,0.14795e-05,0.18285e-05,0.19251e-05,0.11479e-05 /) - kbo(:, 3,59, 7) = (/ & - & 0.13098e-06,0.18042e-05,0.22807e-05,0.24552e-05,0.14897e-05 /) - kbo(:, 4,59, 7) = (/ & - & 0.14252e-06,0.22439e-05,0.29152e-05,0.32163e-05,0.19622e-05 /) - kbo(:, 5,59, 7) = (/ & - & 0.15291e-06,0.28396e-05,0.38087e-05,0.43138e-05,0.26387e-05 /) - kbo(:, 1,13, 8) = (/ & - & 0.83673e-02,0.17454e-01,0.20213e-01,0.20132e-01,0.13810e-01 /) - kbo(:, 2,13, 8) = (/ & - & 0.85039e-02,0.17824e-01,0.20684e-01,0.20616e-01,0.14219e-01 /) - kbo(:, 3,13, 8) = (/ & - & 0.86129e-02,0.18196e-01,0.21163e-01,0.21143e-01,0.14616e-01 /) - kbo(:, 4,13, 8) = (/ & - & 0.86913e-02,0.18563e-01,0.21635e-01,0.21674e-01,0.14991e-01 /) - kbo(:, 5,13, 8) = (/ & - & 0.87301e-02,0.18916e-01,0.22103e-01,0.22198e-01,0.15351e-01 /) - kbo(:, 1,14, 8) = (/ & - & 0.69346e-02,0.14952e-01,0.17380e-01,0.17342e-01,0.11803e-01 /) - kbo(:, 2,14, 8) = (/ & - & 0.70328e-02,0.15276e-01,0.17808e-01,0.17830e-01,0.12181e-01 /) - kbo(:, 3,14, 8) = (/ & - & 0.71113e-02,0.15604e-01,0.18240e-01,0.18321e-01,0.12544e-01 /) - kbo(:, 4,14, 8) = (/ & - & 0.71580e-02,0.15937e-01,0.18667e-01,0.18814e-01,0.12884e-01 /) - kbo(:, 5,14, 8) = (/ & - & 0.71785e-02,0.16228e-01,0.19093e-01,0.19299e-01,0.13230e-01 /) - kbo(:, 1,15, 8) = (/ & - & 0.57307e-02,0.12763e-01,0.14890e-01,0.14912e-01,0.10073e-01 /) - kbo(:, 2,15, 8) = (/ & - & 0.58017e-02,0.13052e-01,0.15278e-01,0.15370e-01,0.10417e-01 /) - kbo(:, 3,15, 8) = (/ & - & 0.58533e-02,0.13347e-01,0.15666e-01,0.15828e-01,0.10742e-01 /) - kbo(:, 4,15, 8) = (/ & - & 0.58826e-02,0.13628e-01,0.16057e-01,0.16289e-01,0.11066e-01 /) - kbo(:, 5,15, 8) = (/ & - & 0.58933e-02,0.13873e-01,0.16444e-01,0.16739e-01,0.11388e-01 /) - kbo(:, 1,16, 8) = (/ & - & 0.47247e-02,0.10863e-01,0.12723e-01,0.12788e-01,0.85822e-02 /) - kbo(:, 2,16, 8) = (/ & - & 0.47755e-02,0.11124e-01,0.13076e-01,0.13211e-01,0.88907e-02 /) - kbo(:, 3,16, 8) = (/ & - & 0.48095e-02,0.11385e-01,0.13431e-01,0.13641e-01,0.91903e-02 /) - kbo(:, 4,16, 8) = (/ & - & 0.48283e-02,0.11622e-01,0.13790e-01,0.14066e-01,0.94912e-02 /) - kbo(:, 5,16, 8) = (/ & - & 0.48333e-02,0.11841e-01,0.14135e-01,0.14487e-01,0.97938e-02 /) - kbo(:, 1,17, 8) = (/ & - & 0.38881e-02,0.92313e-02,0.10848e-01,0.10942e-01,0.73006e-02 /) - kbo(:, 2,17, 8) = (/ & - & 0.39238e-02,0.94601e-02,0.11171e-01,0.11333e-01,0.75792e-02 /) - kbo(:, 3,17, 8) = (/ & - & 0.39468e-02,0.96874e-02,0.11500e-01,0.11732e-01,0.78560e-02 /) - kbo(:, 4,17, 8) = (/ & - & 0.39590e-02,0.98962e-02,0.11826e-01,0.12129e-01,0.81376e-02 /) - kbo(:, 5,17, 8) = (/ & - & 0.39612e-02,0.10094e-01,0.12144e-01,0.12521e-01,0.84293e-02 /) - kbo(:, 1,18, 8) = (/ & - & 0.31953e-02,0.78309e-02,0.92361e-02,0.93523e-02,0.62048e-02 /) - kbo(:, 2,18, 8) = (/ & - & 0.32208e-02,0.80372e-02,0.95350e-02,0.97148e-02,0.64590e-02 /) - kbo(:, 3,18, 8) = (/ & - & 0.32365e-02,0.82342e-02,0.98382e-02,0.10082e-01,0.67154e-02 /) - kbo(:, 4,18, 8) = (/ & - & 0.32447e-02,0.84229e-02,0.10138e-01,0.10450e-01,0.69838e-02 /) - kbo(:, 5,18, 8) = (/ & - & 0.32450e-02,0.86061e-02,0.10427e-01,0.10814e-01,0.72626e-02 /) - kbo(:, 1,19, 8) = (/ & - & 0.26235e-02,0.66399e-02,0.78599e-02,0.79875e-02,0.52728e-02 /) - kbo(:, 2,19, 8) = (/ & - & 0.26414e-02,0.68231e-02,0.81351e-02,0.83230e-02,0.55070e-02 /) - kbo(:, 3,19, 8) = (/ & - & 0.26530e-02,0.70004e-02,0.84138e-02,0.86629e-02,0.57468e-02 /) - kbo(:, 4,19, 8) = (/ & - & 0.26583e-02,0.71756e-02,0.86887e-02,0.90029e-02,0.60006e-02 /) - kbo(:, 5,19, 8) = (/ & - & 0.26573e-02,0.73457e-02,0.89549e-02,0.93422e-02,0.62658e-02 /) - kbo(:, 1,20, 8) = (/ & - & 0.21528e-02,0.56300e-02,0.66928e-02,0.68275e-02,0.44887e-02 /) - kbo(:, 2,20, 8) = (/ & - & 0.21659e-02,0.57965e-02,0.69483e-02,0.71374e-02,0.47044e-02 /) - kbo(:, 3,20, 8) = (/ & - & 0.21742e-02,0.59617e-02,0.72036e-02,0.74503e-02,0.49314e-02 /) - kbo(:, 4,20, 8) = (/ & - & 0.21777e-02,0.61251e-02,0.74562e-02,0.77657e-02,0.51700e-02 /) - kbo(:, 5,20, 8) = (/ & - & 0.21757e-02,0.62850e-02,0.77065e-02,0.80891e-02,0.54225e-02 /) - kbo(:, 1,21, 8) = (/ & - & 0.17659e-02,0.47778e-02,0.57054e-02,0.58417e-02,0.38271e-02 /) - kbo(:, 2,21, 8) = (/ & - & 0.17754e-02,0.49299e-02,0.59393e-02,0.61257e-02,0.40264e-02 /) - kbo(:, 3,21, 8) = (/ & - & 0.17817e-02,0.50836e-02,0.61750e-02,0.64148e-02,0.42397e-02 /) - kbo(:, 4,21, 8) = (/ & - & 0.17836e-02,0.52370e-02,0.64083e-02,0.67125e-02,0.44647e-02 /) - kbo(:, 5,21, 8) = (/ & - & 0.17811e-02,0.53876e-02,0.66480e-02,0.70201e-02,0.47076e-02 /) - kbo(:, 1,22, 8) = (/ & - & 0.14486e-02,0.40679e-02,0.48826e-02,0.50205e-02,0.32805e-02 /) - kbo(:, 2,22, 8) = (/ & - & 0.14554e-02,0.42085e-02,0.50980e-02,0.52827e-02,0.34669e-02 /) - kbo(:, 3,22, 8) = (/ & - & 0.14597e-02,0.43515e-02,0.53153e-02,0.55535e-02,0.36674e-02 /) - kbo(:, 4,22, 8) = (/ & - & 0.14606e-02,0.44957e-02,0.55353e-02,0.58376e-02,0.38816e-02 /) - kbo(:, 5,22, 8) = (/ & - & 0.14577e-02,0.46383e-02,0.57672e-02,0.61302e-02,0.41156e-02 /) - kbo(:, 1,23, 8) = (/ & - & 0.11880e-02,0.34698e-02,0.41861e-02,0.43248e-02,0.28199e-02 /) - kbo(:, 2,23, 8) = (/ & - & 0.11929e-02,0.36010e-02,0.43862e-02,0.45689e-02,0.29956e-02 /) - kbo(:, 3,23, 8) = (/ & - & 0.11958e-02,0.37344e-02,0.45877e-02,0.48273e-02,0.31843e-02 /) - kbo(:, 4,23, 8) = (/ & - & 0.11959e-02,0.38697e-02,0.48007e-02,0.50965e-02,0.33903e-02 /) - kbo(:, 5,23, 8) = (/ & - & 0.11929e-02,0.40068e-02,0.50232e-02,0.53791e-02,0.36136e-02 /) - kbo(:, 1,24, 8) = (/ & - & 0.97406e-03,0.29675e-02,0.36006e-02,0.37379e-02,0.24344e-02 /) - kbo(:, 2,24, 8) = (/ & - & 0.97756e-03,0.30896e-02,0.37850e-02,0.39686e-02,0.25994e-02 /) - kbo(:, 3,24, 8) = (/ & - & 0.97946e-03,0.32150e-02,0.39775e-02,0.42135e-02,0.27776e-02 /) - kbo(:, 4,24, 8) = (/ & - & 0.97899e-03,0.33430e-02,0.41825e-02,0.44708e-02,0.29753e-02 /) - kbo(:, 5,24, 8) = (/ & - & 0.97615e-03,0.34761e-02,0.43966e-02,0.47457e-02,0.31900e-02 /) - kbo(:, 1,25, 8) = (/ & - & 0.79856e-03,0.25459e-02,0.31077e-02,0.32447e-02,0.21114e-02 /) - kbo(:, 2,25, 8) = (/ & - & 0.80110e-03,0.26605e-02,0.32805e-02,0.34640e-02,0.22664e-02 /) - kbo(:, 3,25, 8) = (/ & - & 0.80222e-03,0.27778e-02,0.34666e-02,0.36958e-02,0.24376e-02 /) - kbo(:, 4,25, 8) = (/ & - & 0.80129e-03,0.29014e-02,0.36623e-02,0.39444e-02,0.26269e-02 /) - kbo(:, 5,25, 8) = (/ & - & 0.79857e-03,0.30302e-02,0.38698e-02,0.42126e-02,0.28335e-02 /) - kbo(:, 1,26, 8) = (/ & - & 0.65460e-03,0.21933e-02,0.26944e-02,0.28334e-02,0.18417e-02 /) - kbo(:, 2,26, 8) = (/ & - & 0.65639e-03,0.23003e-02,0.28599e-02,0.30409e-02,0.19886e-02 /) - kbo(:, 3,26, 8) = (/ & - & 0.65685e-03,0.24132e-02,0.30384e-02,0.32639e-02,0.21545e-02 /) - kbo(:, 4,26, 8) = (/ & - & 0.65577e-03,0.25323e-02,0.32275e-02,0.35055e-02,0.23366e-02 /) - kbo(:, 5,26, 8) = (/ & - & 0.65325e-03,0.26572e-02,0.34294e-02,0.37687e-02,0.25365e-02 /) - kbo(:, 1,27, 8) = (/ & - & 0.53655e-03,0.18966e-02,0.23474e-02,0.24873e-02,0.16142e-02 /) - kbo(:, 2,27, 8) = (/ & - & 0.53777e-03,0.19979e-02,0.25069e-02,0.26849e-02,0.17570e-02 /) - kbo(:, 3,27, 8) = (/ & - & 0.53783e-03,0.21070e-02,0.26778e-02,0.29010e-02,0.19163e-02 /) - kbo(:, 4,27, 8) = (/ & - & 0.53661e-03,0.22218e-02,0.28609e-02,0.31373e-02,0.20925e-02 /) - kbo(:, 5,27, 8) = (/ & - & 0.53426e-03,0.23437e-02,0.30591e-02,0.33953e-02,0.22871e-02 /) - kbo(:, 1,28, 8) = (/ & - & 0.43973e-03,0.16467e-02,0.20564e-02,0.21950e-02,0.14243e-02 /) - kbo(:, 2,28, 8) = (/ & - & 0.44046e-03,0.17445e-02,0.22094e-02,0.23854e-02,0.15622e-02 /) - kbo(:, 3,28, 8) = (/ & - & 0.44027e-03,0.18495e-02,0.23737e-02,0.25954e-02,0.17160e-02 /) - kbo(:, 4,28, 8) = (/ & - & 0.43902e-03,0.19607e-02,0.25527e-02,0.28280e-02,0.18875e-02 /) - kbo(:, 5,28, 8) = (/ & - & 0.43690e-03,0.20797e-02,0.27483e-02,0.30809e-02,0.20783e-02 /) - kbo(:, 1,29, 8) = (/ & - & 0.36035e-03,0.14377e-02,0.18129e-02,0.19502e-02,0.12665e-02 /) - kbo(:, 2,29, 8) = (/ & - & 0.36078e-03,0.15322e-02,0.19593e-02,0.21346e-02,0.13993e-02 /) - kbo(:, 3,29, 8) = (/ & - & 0.36035e-03,0.16333e-02,0.21194e-02,0.23407e-02,0.15489e-02 /) - kbo(:, 4,29, 8) = (/ & - & 0.35917e-03,0.17416e-02,0.22958e-02,0.25693e-02,0.17169e-02 /) - kbo(:, 5,29, 8) = (/ & - & 0.35722e-03,0.18583e-02,0.24893e-02,0.28199e-02,0.19058e-02 /) - kbo(:, 1,30, 8) = (/ & - & 0.29522e-03,0.12625e-02,0.16073e-02,0.17444e-02,0.11337e-02 /) - kbo(:, 2,30, 8) = (/ & - & 0.29544e-03,0.13534e-02,0.17493e-02,0.19248e-02,0.12629e-02 /) - kbo(:, 3,30, 8) = (/ & - & 0.29489e-03,0.14513e-02,0.19064e-02,0.21281e-02,0.14093e-02 /) - kbo(:, 4,30, 8) = (/ & - & 0.29377e-03,0.15575e-02,0.20813e-02,0.23536e-02,0.15751e-02 /) - kbo(:, 5,30, 8) = (/ & - & 0.29201e-03,0.16725e-02,0.22728e-02,0.26031e-02,0.17633e-02 /) - kbo(:, 1,31, 8) = (/ & - & 0.24186e-03,0.11155e-02,0.14353e-02,0.15729e-02,0.10232e-02 /) - kbo(:, 2,31, 8) = (/ & - & 0.24189e-03,0.12032e-02,0.15739e-02,0.17508e-02,0.11498e-02 /) - kbo(:, 3,31, 8) = (/ & - & 0.24130e-03,0.12988e-02,0.17296e-02,0.19516e-02,0.12942e-02 /) - kbo(:, 4,31, 8) = (/ & - & 0.24025e-03,0.14034e-02,0.19030e-02,0.21764e-02,0.14594e-02 /) - kbo(:, 5,31, 8) = (/ & - & 0.23866e-03,0.15170e-02,0.20940e-02,0.24270e-02,0.16471e-02 /) - kbo(:, 1,32, 8) = (/ & - & 0.19811e-03,0.99188e-03,0.12914e-02,0.14311e-02,0.93157e-03 /) - kbo(:, 2,32, 8) = (/ & - & 0.19799e-03,0.10771e-02,0.14282e-02,0.16073e-02,0.10562e-02 /) - kbo(:, 3,32, 8) = (/ & - & 0.19741e-03,0.11711e-02,0.15828e-02,0.18068e-02,0.11999e-02 /) - kbo(:, 4,32, 8) = (/ & - & 0.19645e-03,0.12746e-02,0.17559e-02,0.20320e-02,0.13654e-02 /) - kbo(:, 5,32, 8) = (/ & - & 0.19503e-03,0.13871e-02,0.19473e-02,0.22851e-02,0.15533e-02 /) - kbo(:, 1,33, 8) = (/ & - & 0.16225e-03,0.88803e-03,0.11717e-02,0.13138e-02,0.85556e-03 /) - kbo(:, 2,33, 8) = (/ & - & 0.16205e-03,0.97174e-03,0.13077e-02,0.14890e-02,0.97930e-03 /) - kbo(:, 3,33, 8) = (/ & - & 0.16148e-03,0.10648e-02,0.14621e-02,0.16891e-02,0.11237e-02 /) - kbo(:, 4,33, 8) = (/ & - & 0.16059e-03,0.11673e-02,0.16357e-02,0.19165e-02,0.12896e-02 /) - kbo(:, 5,33, 8) = (/ & - & 0.15934e-03,0.12795e-02,0.18288e-02,0.21736e-02,0.14791e-02 /) - kbo(:, 1,34, 8) = (/ & - & 0.13286e-03,0.79835e-03,0.10683e-02,0.12117e-02,0.78908e-03 /) - kbo(:, 2,34, 8) = (/ & - & 0.13261e-03,0.88066e-03,0.12036e-02,0.13865e-02,0.91252e-03 /) - kbo(:, 3,34, 8) = (/ & - & 0.13209e-03,0.97270e-03,0.13580e-02,0.15871e-02,0.10570e-02 /) - kbo(:, 4,34, 8) = (/ & - & 0.13130e-03,0.10748e-02,0.15318e-02,0.18171e-02,0.12236e-02 /) - kbo(:, 5,34, 8) = (/ & - & 0.13022e-03,0.11866e-02,0.17264e-02,0.20786e-02,0.14148e-02 /) - kbo(:, 1,35, 8) = (/ & - & 0.10879e-03,0.71567e-03,0.97075e-03,0.11118e-02,0.72353e-03 /) - kbo(:, 2,35, 8) = (/ & - & 0.10855e-03,0.79625e-03,0.11041e-02,0.12845e-02,0.84540e-03 /) - kbo(:, 3,35, 8) = (/ & - & 0.10811e-03,0.88686e-03,0.12569e-02,0.14847e-02,0.98831e-03 /) - kbo(:, 4,35, 8) = (/ & - & 0.10743e-03,0.98761e-03,0.14300e-02,0.17157e-02,0.11541e-02 /) - kbo(:, 5,35, 8) = (/ & - & 0.10650e-03,0.10987e-02,0.16251e-02,0.19799e-02,0.13460e-02 /) - kbo(:, 1,36, 8) = (/ & - & 0.89091e-04,0.63773e-03,0.87525e-03,0.10106e-02,0.65643e-03 /) - kbo(:, 2,36, 8) = (/ & - & 0.88892e-04,0.71572e-03,0.10050e-02,0.11794e-02,0.77482e-03 /) - kbo(:, 3,36, 8) = (/ & - & 0.88510e-04,0.80390e-03,0.11544e-02,0.13768e-02,0.91437e-03 /) - kbo(:, 4,36, 8) = (/ & - & 0.87951e-04,0.90253e-03,0.13255e-02,0.16063e-02,0.10779e-02 /) - kbo(:, 5,36, 8) = (/ & - & 0.87175e-04,0.10120e-02,0.15187e-02,0.18703e-02,0.12677e-02 /) - kbo(:, 1,37, 8) = (/ & - & 0.72967e-04,0.56051e-03,0.77586e-03,0.90139e-03,0.58319e-03 /) - kbo(:, 2,37, 8) = (/ & - & 0.72818e-04,0.63459e-03,0.89962e-03,0.10627e-02,0.69545e-03 /) - kbo(:, 3,37, 8) = (/ & - & 0.72523e-04,0.71909e-03,0.10433e-02,0.12533e-02,0.82896e-03 /) - kbo(:, 4,37, 8) = (/ & - & 0.72087e-04,0.81427e-03,0.12092e-02,0.14766e-02,0.98671e-03 /) - kbo(:, 5,37, 8) = (/ & - & 0.71486e-04,0.92093e-03,0.13977e-02,0.17355e-02,0.11708e-02 /) - kbo(:, 1,38, 8) = (/ & - & 0.59765e-04,0.49320e-03,0.68844e-03,0.80478e-03,0.51849e-03 /) - kbo(:, 2,38, 8) = (/ & - & 0.59660e-04,0.56354e-03,0.80640e-03,0.95876e-03,0.62466e-03 /) - kbo(:, 3,38, 8) = (/ & - & 0.59436e-04,0.64440e-03,0.94454e-03,0.11426e-02,0.75236e-03 /) - kbo(:, 4,38, 8) = (/ & - & 0.59102e-04,0.73631e-03,0.11052e-02,0.13599e-02,0.90433e-03 /) - kbo(:, 5,38, 8) = (/ & - & 0.58635e-04,0.84009e-03,0.12891e-02,0.16134e-02,0.10829e-02 /) - kbo(:, 1,39, 8) = (/ & - & 0.48956e-04,0.43499e-03,0.61231e-03,0.72017e-03,0.46189e-03 /) - kbo(:, 2,39, 8) = (/ & - & 0.48890e-04,0.50181e-03,0.72478e-03,0.86730e-03,0.56244e-03 /) - kbo(:, 3,39, 8) = (/ & - & 0.48717e-04,0.57923e-03,0.85778e-03,0.10448e-02,0.68464e-03 /) - kbo(:, 4,39, 8) = (/ & - & 0.48451e-04,0.66799e-03,0.10132e-02,0.12563e-02,0.83112e-03 /) - kbo(:, 5,39, 8) = (/ & - & 0.48085e-04,0.76898e-03,0.11928e-02,0.15047e-02,0.10044e-02 /) - kbo(:, 1,40, 8) = (/ & - & 0.40107e-04,0.37860e-03,0.53596e-03,0.63302e-03,0.40350e-03 /) - kbo(:, 2,40, 8) = (/ & - & 0.40068e-04,0.44099e-03,0.64126e-03,0.77105e-03,0.49697e-03 /) - kbo(:, 3,40, 8) = (/ & - & 0.39945e-04,0.51399e-03,0.76694e-03,0.93934e-03,0.61166e-03 /) - kbo(:, 4,40, 8) = (/ & - & 0.39752e-04,0.59851e-03,0.91528e-03,0.11416e-02,0.75037e-03 /) - kbo(:, 5,40, 8) = (/ & - & 0.39469e-04,0.69544e-03,0.10880e-02,0.13809e-02,0.91593e-03 /) - kbo(:, 1,41, 8) = (/ & - & 0.32851e-04,0.32878e-03,0.46786e-03,0.55469e-03,0.35120e-03 /) - kbo(:, 2,41, 8) = (/ & - & 0.32839e-04,0.38683e-03,0.56607e-03,0.68394e-03,0.43769e-03 /) - kbo(:, 3,41, 8) = (/ & - & 0.32749e-04,0.45542e-03,0.68444e-03,0.84259e-03,0.54490e-03 /) - kbo(:, 4,41, 8) = (/ & - & 0.32607e-04,0.53564e-03,0.82547e-03,0.10352e-02,0.67585e-03 /) - kbo(:, 5,41, 8) = (/ & - & 0.32395e-04,0.62841e-03,0.99133e-03,0.12652e-02,0.83332e-03 /) - kbo(:, 1,42, 8) = (/ & - & 0.26906e-04,0.28534e-03,0.40805e-03,0.48535e-03,0.30526e-03 /) - kbo(:, 2,42, 8) = (/ & - & 0.26908e-04,0.33922e-03,0.49950e-03,0.60603e-03,0.38505e-03 /) - kbo(:, 3,42, 8) = (/ & - & 0.26846e-04,0.40361e-03,0.61076e-03,0.75564e-03,0.48524e-03 /) - kbo(:, 4,42, 8) = (/ & - & 0.26739e-04,0.47953e-03,0.74454e-03,0.93882e-03,0.60861e-03 /) - kbo(:, 5,42, 8) = (/ & - & 0.26585e-04,0.56816e-03,0.90363e-03,0.11597e-02,0.75829e-03 /) - kbo(:, 1,43, 8) = (/ & - & 0.22034e-04,0.24494e-03,0.35126e-03,0.41862e-03,0.26133e-03 /) - kbo(:, 2,43, 8) = (/ & - & 0.22045e-04,0.29428e-03,0.43526e-03,0.52960e-03,0.33379e-03 /) - kbo(:, 3,43, 8) = (/ & - & 0.22009e-04,0.35394e-03,0.53838e-03,0.66893e-03,0.42599e-03 /) - kbo(:, 4,43, 8) = (/ & - & 0.21933e-04,0.42510e-03,0.66392e-03,0.84090e-03,0.54061e-03 /) - kbo(:, 5,43, 8) = (/ & - & 0.21820e-04,0.50878e-03,0.81474e-03,0.10503e-02,0.68139e-03 /) - kbo(:, 1,44, 8) = (/ & - & 0.18042e-04,0.20878e-03,0.29988e-03,0.35782e-03,0.22160e-03 /) - kbo(:, 2,44, 8) = (/ & - & 0.18058e-04,0.25360e-03,0.37621e-03,0.45875e-03,0.28670e-03 /) - kbo(:, 3,44, 8) = (/ & - & 0.18041e-04,0.30845e-03,0.47123e-03,0.58727e-03,0.37070e-03 /) - kbo(:, 4,44, 8) = (/ & - & 0.17989e-04,0.37459e-03,0.58804e-03,0.74739e-03,0.47650e-03 /) - kbo(:, 5,44, 8) = (/ & - & 0.17906e-04,0.45317e-03,0.73003e-03,0.94454e-03,0.60768e-03 /) - kbo(:, 1,45, 8) = (/ & - & 0.14770e-04,0.17743e-03,0.25518e-03,0.30461e-03,0.18718e-03 /) - kbo(:, 2,45, 8) = (/ & - & 0.14790e-04,0.21794e-03,0.32424e-03,0.39603e-03,0.24534e-03 /) - kbo(:, 3,45, 8) = (/ & - & 0.14785e-04,0.26822e-03,0.41132e-03,0.51406e-03,0.32158e-03 /) - kbo(:, 4,45, 8) = (/ & - & 0.14751e-04,0.32948e-03,0.51968e-03,0.66288e-03,0.41889e-03 /) - kbo(:, 5,45, 8) = (/ & - & 0.14692e-04,0.40309e-03,0.65298e-03,0.84795e-03,0.54078e-03 /) - kbo(:, 1,46, 8) = (/ & - & 0.12091e-04,0.14956e-03,0.21507e-03,0.25664e-03,0.15641e-03 /) - kbo(:, 2,46, 8) = (/ & - & 0.12112e-04,0.18585e-03,0.27689e-03,0.33853e-03,0.20778e-03 /) - kbo(:, 3,46, 8) = (/ & - & 0.12113e-04,0.23156e-03,0.35597e-03,0.44575e-03,0.27619e-03 /) - kbo(:, 4,46, 8) = (/ & - & 0.12094e-04,0.28789e-03,0.45576e-03,0.58313e-03,0.36492e-03 /) - kbo(:, 5,46, 8) = (/ & - & 0.12054e-04,0.35628e-03,0.57980e-03,0.75523e-03,0.47721e-03 /) - kbo(:, 1,47, 8) = (/ & - & 0.98958e-05,0.12436e-03,0.17838e-03,0.21241e-03,0.12841e-03 /) - kbo(:, 2,47, 8) = (/ & - & 0.99157e-05,0.15633e-03,0.23279e-03,0.28443e-03,0.17291e-03 /) - kbo(:, 3,47, 8) = (/ & - & 0.99224e-05,0.19724e-03,0.30350e-03,0.38017e-03,0.23323e-03 /) - kbo(:, 4,47, 8) = (/ & - & 0.99150e-05,0.24831e-03,0.39396e-03,0.50488e-03,0.31274e-03 /) - kbo(:, 5,47, 8) = (/ & - & 0.98881e-05,0.31110e-03,0.50788e-03,0.66304e-03,0.41485e-03 /) - kbo(:, 1,48, 8) = (/ & - & 0.80981e-05,0.10284e-03,0.14701e-03,0.17457e-03,0.10464e-03 /) - kbo(:, 2,48, 8) = (/ & - & 0.81170e-05,0.13083e-03,0.19452e-03,0.23734e-03,0.14298e-03 /) - kbo(:, 3,48, 8) = (/ & - & 0.81254e-05,0.16716e-03,0.25727e-03,0.32230e-03,0.19565e-03 /) - kbo(:, 4,48, 8) = (/ & - & 0.81253e-05,0.21328e-03,0.33887e-03,0.43475e-03,0.26652e-03 /) - kbo(:, 5,48, 8) = (/ & - & 0.81092e-05,0.27062e-03,0.44301e-03,0.57972e-03,0.35887e-03 /) - kbo(:, 1,49, 8) = (/ & - & 0.66262e-05,0.84542e-04,0.12034e-03,0.14245e-03,0.84636e-04 /) - kbo(:, 2,49, 8) = (/ & - & 0.66435e-05,0.10903e-03,0.16168e-03,0.19686e-03,0.11740e-03 /) - kbo(:, 3,49, 8) = (/ & - & 0.66527e-05,0.14092e-03,0.21685e-03,0.27156e-03,0.16309e-03 /) - kbo(:, 4,49, 8) = (/ & - & 0.66567e-05,0.18229e-03,0.28989e-03,0.37214e-03,0.22572e-03 /) - kbo(:, 5,49, 8) = (/ & - & 0.66489e-05,0.23443e-03,0.38461e-03,0.50418e-03,0.30883e-03 /) - kbo(:, 1,50, 8) = (/ & - & 0.54202e-05,0.69608e-04,0.98680e-04,0.11646e-03,0.68510e-04 /) - kbo(:, 2,50, 8) = (/ & - & 0.54374e-05,0.90802e-04,0.13434e-03,0.16330e-03,0.96499e-04 /) - kbo(:, 3,50, 8) = (/ & - & 0.54475e-05,0.11916e-03,0.18327e-03,0.22932e-03,0.13620e-03 /) - kbo(:, 4,50, 8) = (/ & - & 0.54521e-05,0.15608e-03,0.24845e-03,0.31928e-03,0.19154e-03 /) - kbo(:, 5,50, 8) = (/ & - & 0.54498e-05,0.20348e-03,0.33466e-03,0.43937e-03,0.26626e-03 /) - kbo(:, 1,51, 8) = (/ & - & 0.44351e-05,0.57088e-04,0.80582e-04,0.94790e-04,0.55250e-04 /) - kbo(:, 2,51, 8) = (/ & - & 0.44504e-05,0.75435e-04,0.11131e-03,0.13503e-03,0.79024e-04 /) - kbo(:, 3,51, 8) = (/ & - & 0.44599e-05,0.10037e-03,0.15428e-03,0.19291e-03,0.11343e-03 /) - kbo(:, 4,51, 8) = (/ & - & 0.44651e-05,0.13336e-03,0.21252e-03,0.27335e-03,0.16218e-03 /) - kbo(:, 5,51, 8) = (/ & - & 0.44653e-05,0.17640e-03,0.29075e-03,0.38229e-03,0.22923e-03 /) - kbo(:, 1,52, 8) = (/ & - & 0.36290e-05,0.46565e-04,0.65364e-04,0.76598e-04,0.44240e-04 /) - kbo(:, 2,52, 8) = (/ & - & 0.36420e-05,0.62314e-04,0.91644e-04,0.11090e-03,0.64234e-04 /) - kbo(:, 3,52, 8) = (/ & - & 0.36509e-05,0.84102e-04,0.12910e-03,0.16125e-03,0.93833e-04 /) - kbo(:, 4,52, 8) = (/ & - & 0.36555e-05,0.11362e-03,0.18115e-03,0.23297e-03,0.13657e-03 /) - kbo(:, 5,52, 8) = (/ & - & 0.36579e-05,0.15226e-03,0.25136e-03,0.33099e-03,0.19621e-03 /) - kbo(:, 1,53, 8) = (/ & - & 0.29692e-05,0.37746e-04,0.52632e-04,0.61397e-04,0.35165e-04 /) - kbo(:, 2,53, 8) = (/ & - & 0.29808e-05,0.51149e-04,0.74879e-04,0.90335e-04,0.51807e-04 /) - kbo(:, 3,53, 8) = (/ & - & 0.29880e-05,0.70028e-04,0.10724e-03,0.13375e-03,0.77010e-04 /) - kbo(:, 4,53, 8) = (/ & - & 0.29931e-05,0.96105e-04,0.15314e-03,0.19689e-03,0.11417e-03 /) - kbo(:, 5,53, 8) = (/ & - & 0.29959e-05,0.13074e-03,0.21612e-03,0.28492e-03,0.16697e-03 /) - kbo(:, 1,54, 8) = (/ & - & 0.24296e-05,0.30698e-04,0.42544e-04,0.49406e-04,0.28072e-04 /) - kbo(:, 2,54, 8) = (/ & - & 0.24393e-05,0.42122e-04,0.61454e-04,0.73927e-04,0.41964e-04 /) - kbo(:, 3,54, 8) = (/ & - & 0.24460e-05,0.58528e-04,0.89500e-04,0.11146e-03,0.63503e-04 /) - kbo(:, 4,54, 8) = (/ & - & 0.24507e-05,0.81611e-04,0.13009e-03,0.16728e-03,0.95947e-04 /) - kbo(:, 5,54, 8) = (/ & - & 0.24535e-05,0.11276e-03,0.18682e-03,0.24654e-03,0.14286e-03 /) - kbo(:, 1,55, 8) = (/ & - & 0.19883e-05,0.24921e-04,0.34312e-04,0.39666e-04,0.22375e-04 /) - kbo(:, 2,55, 8) = (/ & - & 0.19963e-05,0.34641e-04,0.50344e-04,0.60381e-04,0.33942e-04 /) - kbo(:, 3,55, 8) = (/ & - & 0.20020e-05,0.48868e-04,0.74618e-04,0.92809e-04,0.52280e-04 /) - kbo(:, 4,55, 8) = (/ & - & 0.20065e-05,0.69255e-04,0.11042e-03,0.14203e-03,0.80566e-04 /) - kbo(:, 5,55, 8) = (/ & - & 0.20089e-05,0.97527e-04,0.16182e-03,0.21373e-03,0.12228e-03 /) - kbo(:, 1,56, 8) = (/ & - & 0.16268e-05,0.20122e-04,0.27506e-04,0.31629e-04,0.17718e-04 /) - kbo(:, 2,56, 8) = (/ & - & 0.16337e-05,0.28321e-04,0.40966e-04,0.48960e-04,0.27271e-04 /) - kbo(:, 3,56, 8) = (/ & - & 0.16385e-05,0.40579e-04,0.61828e-04,0.76747e-04,0.42739e-04 /) - kbo(:, 4,56, 8) = (/ & - & 0.16424e-05,0.58490e-04,0.93220e-04,0.11991e-03,0.67232e-04 /) - kbo(:, 5,56, 8) = (/ & - & 0.16450e-05,0.83776e-04,0.13917e-03,0.18401e-03,0.10406e-03 /) - kbo(:, 1,57, 8) = (/ & - & 0.13311e-05,0.16151e-04,0.21901e-04,0.25044e-04,0.13934e-04 /) - kbo(:, 2,57, 8) = (/ & - & 0.13369e-05,0.23005e-04,0.33083e-04,0.39377e-04,0.21751e-04 /) - kbo(:, 3,57, 8) = (/ & - & 0.13411e-05,0.33501e-04,0.50888e-04,0.63014e-04,0.34696e-04 /) - kbo(:, 4,57, 8) = (/ & - & 0.13443e-05,0.49111e-04,0.78191e-04,0.10051e-03,0.55711e-04 /) - kbo(:, 5,57, 8) = (/ & - & 0.13467e-05,0.71586e-04,0.11902e-03,0.15744e-03,0.88025e-04 /) - kbo(:, 1,58, 8) = (/ & - & 0.10892e-05,0.12962e-04,0.17443e-04,0.19825e-04,0.10955e-04 /) - kbo(:, 2,58, 8) = (/ & - & 0.10942e-05,0.18688e-04,0.26716e-04,0.31664e-04,0.17348e-04 /) - kbo(:, 3,58, 8) = (/ & - & 0.10976e-05,0.27650e-04,0.41864e-04,0.51716e-04,0.28159e-04 /) - kbo(:, 4,58, 8) = (/ & - & 0.11004e-05,0.41251e-04,0.65630e-04,0.84299e-04,0.46156e-04 /) - kbo(:, 5,58, 8) = (/ & - & 0.11025e-05,0.61261e-04,0.10196e-03,0.13496e-03,0.74536e-04 /) - kbo(:, 1,59, 8) = (/ & - & 0.89197e-06,0.11047e-04,0.14899e-04,0.16964e-04,0.92999e-05 /) - kbo(:, 2,59, 8) = (/ & - & 0.89605e-06,0.16215e-04,0.23291e-04,0.27686e-04,0.15019e-04 /) - kbo(:, 3,59, 8) = (/ & - & 0.89875e-06,0.24462e-04,0.37267e-04,0.46243e-04,0.24905e-04 /) - kbo(:, 4,59, 8) = (/ & - & 0.90117e-06,0.37175e-04,0.59594e-04,0.76969e-04,0.41672e-04 /) - kbo(:, 5,59, 8) = (/ & - & 0.90310e-06,0.56115e-04,0.94187e-04,0.12528e-03,0.68497e-04 /) - kbo(:, 1,13, 9) = (/ & - & 0.56714e-01,0.96228e-01,0.10961e+00,0.11078e+00,0.82822e-01 /) - kbo(:, 2,13, 9) = (/ & - & 0.57828e-01,0.97972e-01,0.11123e+00,0.11236e+00,0.84782e-01 /) - kbo(:, 3,13, 9) = (/ & - & 0.59232e-01,0.99998e-01,0.11329e+00,0.11400e+00,0.86728e-01 /) - kbo(:, 4,13, 9) = (/ & - & 0.60790e-01,0.10219e+00,0.11568e+00,0.11591e+00,0.88651e-01 /) - kbo(:, 5,13, 9) = (/ & - & 0.62290e-01,0.10448e+00,0.11818e+00,0.11808e+00,0.90606e-01 /) - kbo(:, 1,14, 9) = (/ & - & 0.48757e-01,0.85742e-01,0.97473e-01,0.98306e-01,0.73073e-01 /) - kbo(:, 2,14, 9) = (/ & - & 0.49942e-01,0.87692e-01,0.99489e-01,0.10004e+00,0.75064e-01 /) - kbo(:, 3,14, 9) = (/ & - & 0.51318e-01,0.89856e-01,0.10188e+00,0.10205e+00,0.77018e-01 /) - kbo(:, 4,14, 9) = (/ & - & 0.52660e-01,0.92153e-01,0.10444e+00,0.10434e+00,0.78996e-01 /) - kbo(:, 5,14, 9) = (/ & - & 0.53901e-01,0.94584e-01,0.10712e+00,0.10687e+00,0.81028e-01 /) - kbo(:, 1,15, 9) = (/ & - & 0.41752e-01,0.76198e-01,0.86593e-01,0.87037e-01,0.64464e-01 /) - kbo(:, 2,15, 9) = (/ & - & 0.42945e-01,0.78277e-01,0.88919e-01,0.89055e-01,0.66440e-01 /) - kbo(:, 3,15, 9) = (/ & - & 0.44132e-01,0.80544e-01,0.91468e-01,0.91397e-01,0.68401e-01 /) - kbo(:, 4,15, 9) = (/ & - & 0.45260e-01,0.82968e-01,0.94189e-01,0.93993e-01,0.70410e-01 /) - kbo(:, 5,15, 9) = (/ & - & 0.46298e-01,0.85502e-01,0.97029e-01,0.96802e-01,0.72466e-01 /) - kbo(:, 1,16, 9) = (/ & - & 0.35640e-01,0.67555e-01,0.76928e-01,0.77126e-01,0.56847e-01 /) - kbo(:, 2,16, 9) = (/ & - & 0.36668e-01,0.69730e-01,0.79394e-01,0.79411e-01,0.58796e-01 /) - kbo(:, 3,16, 9) = (/ & - & 0.37665e-01,0.72105e-01,0.82070e-01,0.81996e-01,0.60763e-01 /) - kbo(:, 4,16, 9) = (/ & - & 0.38606e-01,0.74641e-01,0.84920e-01,0.84810e-01,0.62792e-01 /) - kbo(:, 5,16, 9) = (/ & - & 0.39473e-01,0.77118e-01,0.87904e-01,0.87777e-01,0.64884e-01 /) - kbo(:, 1,17, 9) = (/ & - & 0.30249e-01,0.59768e-01,0.68325e-01,0.68492e-01,0.50101e-01 /) - kbo(:, 2,17, 9) = (/ & - & 0.31103e-01,0.62060e-01,0.70903e-01,0.70988e-01,0.52022e-01 /) - kbo(:, 3,17, 9) = (/ & - & 0.31936e-01,0.64534e-01,0.73696e-01,0.73735e-01,0.54005e-01 /) - kbo(:, 4,17, 9) = (/ & - & 0.32730e-01,0.67029e-01,0.76655e-01,0.76665e-01,0.56059e-01 /) - kbo(:, 5,17, 9) = (/ & - & 0.33443e-01,0.69449e-01,0.79757e-01,0.79742e-01,0.58173e-01 /) - kbo(:, 1,18, 9) = (/ & - & 0.25545e-01,0.52871e-01,0.60740e-01,0.60992e-01,0.44172e-01 /) - kbo(:, 2,18, 9) = (/ & - & 0.26254e-01,0.55233e-01,0.63406e-01,0.63637e-01,0.46086e-01 /) - kbo(:, 3,18, 9) = (/ & - & 0.26956e-01,0.57692e-01,0.66286e-01,0.66462e-01,0.48089e-01 /) - kbo(:, 4,18, 9) = (/ & - & 0.27612e-01,0.60136e-01,0.69343e-01,0.69465e-01,0.50154e-01 /) - kbo(:, 5,18, 9) = (/ & - & 0.28200e-01,0.62534e-01,0.72542e-01,0.72608e-01,0.52275e-01 /) - kbo(:, 1,19, 9) = (/ & - & 0.21487e-01,0.46786e-01,0.54092e-01,0.54451e-01,0.38986e-01 /) - kbo(:, 2,19, 9) = (/ & - & 0.22086e-01,0.49151e-01,0.56837e-01,0.57167e-01,0.40916e-01 /) - kbo(:, 3,19, 9) = (/ & - & 0.22671e-01,0.51565e-01,0.59787e-01,0.60059e-01,0.42916e-01 /) - kbo(:, 4,19, 9) = (/ & - & 0.23212e-01,0.53966e-01,0.62913e-01,0.63134e-01,0.44993e-01 /) - kbo(:, 5,19, 9) = (/ & - & 0.23674e-01,0.56335e-01,0.66121e-01,0.66362e-01,0.47140e-01 /) - kbo(:, 1,20, 9) = (/ & - & 0.18039e-01,0.41493e-01,0.48348e-01,0.48783e-01,0.34522e-01 /) - kbo(:, 2,20, 9) = (/ & - & 0.18543e-01,0.43801e-01,0.51155e-01,0.51541e-01,0.36457e-01 /) - kbo(:, 3,20, 9) = (/ & - & 0.19027e-01,0.46166e-01,0.54164e-01,0.54503e-01,0.38468e-01 /) - kbo(:, 4,20, 9) = (/ & - & 0.19452e-01,0.48538e-01,0.57292e-01,0.57654e-01,0.40551e-01 /) - kbo(:, 5,20, 9) = (/ & - & 0.19805e-01,0.50879e-01,0.60490e-01,0.60969e-01,0.42726e-01 /) - kbo(:, 1,21, 9) = (/ & - & 0.15116e-01,0.36867e-01,0.43373e-01,0.43860e-01,0.30692e-01 /) - kbo(:, 2,21, 9) = (/ & - & 0.15537e-01,0.39121e-01,0.46234e-01,0.46663e-01,0.32616e-01 /) - kbo(:, 3,21, 9) = (/ & - & 0.15924e-01,0.41438e-01,0.49238e-01,0.49692e-01,0.34628e-01 /) - kbo(:, 4,21, 9) = (/ & - & 0.16258e-01,0.43774e-01,0.52361e-01,0.52910e-01,0.36736e-01 /) - kbo(:, 5,21, 9) = (/ & - & 0.16525e-01,0.46101e-01,0.55542e-01,0.56309e-01,0.38934e-01 /) - kbo(:, 1,22, 9) = (/ & - & 0.12675e-01,0.32993e-01,0.39256e-01,0.39779e-01,0.27529e-01 /) - kbo(:, 2,22, 9) = (/ & - & 0.13009e-01,0.35201e-01,0.42138e-01,0.42658e-01,0.29453e-01 /) - kbo(:, 3,22, 9) = (/ & - & 0.13317e-01,0.37474e-01,0.45144e-01,0.45756e-01,0.31474e-01 /) - kbo(:, 4,22, 9) = (/ & - & 0.13574e-01,0.39784e-01,0.48260e-01,0.49049e-01,0.33608e-01 /) - kbo(:, 5,22, 9) = (/ & - & 0.13778e-01,0.42099e-01,0.51448e-01,0.52529e-01,0.35844e-01 /) - kbo(:, 1,23, 9) = (/ & - & 0.10608e-01,0.29677e-01,0.35736e-01,0.36323e-01,0.24847e-01 /) - kbo(:, 2,23, 9) = (/ & - & 0.10880e-01,0.31843e-01,0.38613e-01,0.39274e-01,0.26772e-01 /) - kbo(:, 3,23, 9) = (/ & - & 0.11120e-01,0.34081e-01,0.41634e-01,0.42440e-01,0.28816e-01 /) - kbo(:, 4,23, 9) = (/ & - & 0.11313e-01,0.36372e-01,0.44754e-01,0.45808e-01,0.30978e-01 /) - kbo(:, 5,23, 9) = (/ & - & 0.11474e-01,0.38689e-01,0.47973e-01,0.49367e-01,0.33255e-01 /) - kbo(:, 1,24, 9) = (/ & - & 0.88685e-02,0.26862e-01,0.32736e-01,0.33437e-01,0.22600e-01 /) - kbo(:, 2,24, 9) = (/ & - & 0.90884e-02,0.28994e-01,0.35625e-01,0.36451e-01,0.24532e-01 /) - kbo(:, 3,24, 9) = (/ & - & 0.92759e-02,0.31210e-01,0.38663e-01,0.39696e-01,0.26600e-01 /) - kbo(:, 4,24, 9) = (/ & - & 0.94299e-02,0.33488e-01,0.41810e-01,0.43137e-01,0.28795e-01 /) - kbo(:, 5,24, 9) = (/ & - & 0.95655e-02,0.35810e-01,0.45067e-01,0.46765e-01,0.31119e-01 /) - kbo(:, 1,25, 9) = (/ & - & 0.74112e-02,0.24493e-01,0.30220e-01,0.31056e-01,0.20732e-01 /) - kbo(:, 2,25, 9) = (/ & - & 0.75852e-02,0.26600e-01,0.33130e-01,0.34139e-01,0.22685e-01 /) - kbo(:, 3,25, 9) = (/ & - & 0.77307e-02,0.28805e-01,0.36194e-01,0.37461e-01,0.24778e-01 /) - kbo(:, 4,25, 9) = (/ & - & 0.78603e-02,0.31085e-01,0.39384e-01,0.40978e-01,0.27016e-01 /) - kbo(:, 5,25, 9) = (/ & - & 0.79718e-02,0.33416e-01,0.42696e-01,0.44682e-01,0.29393e-01 /) - kbo(:, 1,26, 9) = (/ & - & 0.61902e-02,0.22538e-01,0.28170e-01,0.29154e-01,0.19220e-01 /) - kbo(:, 2,26, 9) = (/ & - & 0.63276e-02,0.24632e-01,0.31111e-01,0.32321e-01,0.21200e-01 /) - kbo(:, 3,26, 9) = (/ & - & 0.64499e-02,0.26835e-01,0.34213e-01,0.35713e-01,0.23332e-01 /) - kbo(:, 4,26, 9) = (/ & - & 0.65597e-02,0.29126e-01,0.37461e-01,0.39319e-01,0.25615e-01 /) - kbo(:, 5,26, 9) = (/ & - & 0.66551e-02,0.31472e-01,0.40844e-01,0.43117e-01,0.28057e-01 /) - kbo(:, 1,27, 9) = (/ & - & 0.51713e-02,0.20911e-01,0.26500e-01,0.27639e-01,0.17995e-01 /) - kbo(:, 2,27, 9) = (/ & - & 0.52848e-02,0.23004e-01,0.29475e-01,0.30887e-01,0.20007e-01 /) - kbo(:, 3,27, 9) = (/ & - & 0.53879e-02,0.25219e-01,0.32635e-01,0.34364e-01,0.22181e-01 /) - kbo(:, 4,27, 9) = (/ & - & 0.54763e-02,0.27525e-01,0.35956e-01,0.38064e-01,0.24520e-01 /) - kbo(:, 5,27, 9) = (/ & - & 0.55573e-02,0.29889e-01,0.39426e-01,0.41977e-01,0.27035e-01 /) - kbo(:, 1,28, 9) = (/ & - & 0.43195e-02,0.19576e-01,0.25160e-01,0.26468e-01,0.17016e-01 /) - kbo(:, 2,28, 9) = (/ & - & 0.44139e-02,0.21680e-01,0.28188e-01,0.29800e-01,0.19070e-01 /) - kbo(:, 3,28, 9) = (/ & - & 0.44969e-02,0.23912e-01,0.31420e-01,0.33375e-01,0.21294e-01 /) - kbo(:, 4,28, 9) = (/ & - & 0.45726e-02,0.26235e-01,0.34830e-01,0.37186e-01,0.23695e-01 /) - kbo(:, 5,28, 9) = (/ & - & 0.46426e-02,0.28627e-01,0.38395e-01,0.41222e-01,0.26282e-01 /) - kbo(:, 1,29, 9) = (/ & - & 0.36095e-02,0.18508e-01,0.24142e-01,0.25625e-01,0.16268e-01 /) - kbo(:, 2,29, 9) = (/ & - & 0.36856e-02,0.20634e-01,0.27243e-01,0.29053e-01,0.18372e-01 /) - kbo(:, 3,29, 9) = (/ & - & 0.37545e-02,0.22890e-01,0.30565e-01,0.32742e-01,0.20653e-01 /) - kbo(:, 4,29, 9) = (/ & - & 0.38219e-02,0.25246e-01,0.34070e-01,0.36676e-01,0.23125e-01 /) - kbo(:, 5,29, 9) = (/ & - & 0.38805e-02,0.27676e-01,0.37739e-01,0.40837e-01,0.25787e-01 /) - kbo(:, 1,30, 9) = (/ & - & 0.30149e-02,0.17668e-01,0.23401e-01,0.25061e-01,0.15717e-01 /) - kbo(:, 2,30, 9) = (/ & - & 0.30780e-02,0.19823e-01,0.26594e-01,0.28602e-01,0.17873e-01 /) - kbo(:, 3,30, 9) = (/ & - & 0.31391e-02,0.22111e-01,0.30012e-01,0.32409e-01,0.20220e-01 /) - kbo(:, 4,30, 9) = (/ & - & 0.31952e-02,0.24511e-01,0.33620e-01,0.36467e-01,0.22768e-01 /) - kbo(:, 5,30, 9) = (/ & - & 0.32462e-02,0.26992e-01,0.37393e-01,0.40756e-01,0.25513e-01 /) - kbo(:, 1,31, 9) = (/ & - & 0.25190e-02,0.17039e-01,0.22932e-01,0.24769e-01,0.15346e-01 /) - kbo(:, 2,31, 9) = (/ & - & 0.25729e-02,0.19232e-01,0.26227e-01,0.28432e-01,0.17564e-01 /) - kbo(:, 3,31, 9) = (/ & - & 0.26259e-02,0.21567e-01,0.29750e-01,0.32369e-01,0.19984e-01 /) - kbo(:, 4,31, 9) = (/ & - & 0.26746e-02,0.24020e-01,0.33463e-01,0.36549e-01,0.22614e-01 /) - kbo(:, 5,31, 9) = (/ & - & 0.27170e-02,0.26556e-01,0.37338e-01,0.40957e-01,0.25451e-01 /) - kbo(:, 1,32, 9) = (/ & - & 0.21057e-02,0.16597e-01,0.22710e-01,0.24723e-01,0.15137e-01 /) - kbo(:, 2,32, 9) = (/ & - & 0.21537e-02,0.18840e-01,0.26112e-01,0.28512e-01,0.17424e-01 /) - kbo(:, 3,32, 9) = (/ & - & 0.21983e-02,0.21233e-01,0.29743e-01,0.32575e-01,0.19926e-01 /) - kbo(:, 4,32, 9) = (/ & - & 0.22397e-02,0.23745e-01,0.33557e-01,0.36873e-01,0.22643e-01 /) - kbo(:, 5,32, 9) = (/ & - & 0.22779e-02,0.26339e-01,0.37525e-01,0.41395e-01,0.25571e-01 /) - kbo(:, 1,33, 9) = (/ & - & 0.17621e-02,0.16326e-01,0.22706e-01,0.24894e-01,0.15071e-01 /) - kbo(:, 2,33, 9) = (/ & - & 0.18037e-02,0.18626e-01,0.26218e-01,0.28807e-01,0.17434e-01 /) - kbo(:, 3,33, 9) = (/ & - & 0.18413e-02,0.21083e-01,0.29952e-01,0.32989e-01,0.20023e-01 /) - kbo(:, 4,33, 9) = (/ & - & 0.18774e-02,0.23655e-01,0.33863e-01,0.37400e-01,0.22833e-01 /) - kbo(:, 5,33, 9) = (/ & - & 0.19114e-02,0.26308e-01,0.37916e-01,0.42025e-01,0.25847e-01 /) - kbo(:, 1,34, 9) = (/ & - & 0.14751e-02,0.16125e-01,0.22769e-01,0.25117e-01,0.15050e-01 /) - kbo(:, 2,34, 9) = (/ & - & 0.15101e-02,0.18488e-01,0.26381e-01,0.29139e-01,0.17489e-01 /) - kbo(:, 3,34, 9) = (/ & - & 0.15432e-02,0.21005e-01,0.30205e-01,0.33424e-01,0.20158e-01 /) - kbo(:, 4,34, 9) = (/ & - & 0.15747e-02,0.23633e-01,0.34198e-01,0.37931e-01,0.23050e-01 /) - kbo(:, 5,34, 9) = (/ & - & 0.16051e-02,0.26339e-01,0.38321e-01,0.42642e-01,0.26140e-01 /) - kbo(:, 1,35, 9) = (/ & - & 0.12323e-02,0.15834e-01,0.22646e-01,0.25106e-01,0.14908e-01 /) - kbo(:, 2,35, 9) = (/ & - & 0.12626e-02,0.18245e-01,0.26331e-01,0.29206e-01,0.17403e-01 /) - kbo(:, 3,35, 9) = (/ & - & 0.12919e-02,0.20808e-01,0.30221e-01,0.33562e-01,0.20132e-01 /) - kbo(:, 4,35, 9) = (/ & - & 0.13197e-02,0.23481e-01,0.34270e-01,0.38136e-01,0.23081e-01 /) - kbo(:, 5,35, 9) = (/ & - & 0.13470e-02,0.26228e-01,0.38442e-01,0.42907e-01,0.26222e-01 /) - kbo(:, 1,36, 9) = (/ & - & 0.10273e-02,0.15393e-01,0.22247e-01,0.24766e-01,0.14589e-01 /) - kbo(:, 2,36, 9) = (/ & - & 0.10537e-02,0.17833e-01,0.25974e-01,0.28911e-01,0.17115e-01 /) - kbo(:, 3,36, 9) = (/ & - & 0.10795e-02,0.20426e-01,0.29904e-01,0.33307e-01,0.19875e-01 /) - kbo(:, 4,36, 9) = (/ & - & 0.11043e-02,0.23131e-01,0.33989e-01,0.37917e-01,0.22855e-01 /) - kbo(:, 5,36, 9) = (/ & - & 0.11288e-02,0.25909e-01,0.38197e-01,0.42722e-01,0.26026e-01 /) - kbo(:, 1,37, 9) = (/ & - & 0.85383e-03,0.14679e-01,0.21388e-01,0.23897e-01,0.13970e-01 /) - kbo(:, 2,37, 9) = (/ & - & 0.87682e-03,0.17120e-01,0.25115e-01,0.28039e-01,0.16489e-01 /) - kbo(:, 3,37, 9) = (/ & - & 0.89996e-03,0.19721e-01,0.29054e-01,0.32436e-01,0.19242e-01 /) - kbo(:, 4,37, 9) = (/ & - & 0.92246e-03,0.22439e-01,0.33150e-01,0.37047e-01,0.22217e-01 /) - kbo(:, 5,37, 9) = (/ & - & 0.94506e-03,0.25234e-01,0.37369e-01,0.41852e-01,0.25386e-01 /) - kbo(:, 1,38, 9) = (/ & - & 0.70953e-03,0.14014e-01,0.20566e-01,0.23058e-01,0.13383e-01 /) - kbo(:, 2,38, 9) = (/ & - & 0.73008e-03,0.16455e-01,0.24289e-01,0.27191e-01,0.15892e-01 /) - kbo(:, 3,38, 9) = (/ & - & 0.75050e-03,0.19058e-01,0.28230e-01,0.31581e-01,0.18633e-01 /) - kbo(:, 4,38, 9) = (/ & - & 0.77107e-03,0.21784e-01,0.32331e-01,0.36184e-01,0.21597e-01 /) - kbo(:, 5,38, 9) = (/ & - & 0.79117e-03,0.24590e-01,0.36557e-01,0.40986e-01,0.24760e-01 /) - kbo(:, 1,39, 9) = (/ & - & 0.58982e-03,0.13410e-01,0.19807e-01,0.22275e-01,0.12843e-01 /) - kbo(:, 2,39, 9) = (/ & - & 0.60777e-03,0.15847e-01,0.23520e-01,0.26395e-01,0.15340e-01 /) - kbo(:, 3,39, 9) = (/ & - & 0.62607e-03,0.18449e-01,0.27458e-01,0.30773e-01,0.18067e-01 /) - kbo(:, 4,39, 9) = (/ & - & 0.64471e-03,0.21179e-01,0.31559e-01,0.35367e-01,0.21018e-01 /) - kbo(:, 5,39, 9) = (/ & - & 0.66285e-03,0.23994e-01,0.35788e-01,0.40160e-01,0.24170e-01 /) - kbo(:, 1,40, 9) = (/ & - & 0.48914e-03,0.12617e-01,0.18733e-01,0.21131e-01,0.12100e-01 /) - kbo(:, 2,40, 9) = (/ & - & 0.50499e-03,0.15028e-01,0.22406e-01,0.25206e-01,0.14559e-01 /) - kbo(:, 3,40, 9) = (/ & - & 0.52119e-03,0.17611e-01,0.26314e-01,0.29544e-01,0.17245e-01 /) - kbo(:, 4,40, 9) = (/ & - & 0.53770e-03,0.20330e-01,0.30397e-01,0.34103e-01,0.20159e-01 /) - kbo(:, 5,40, 9) = (/ & - & 0.55398e-03,0.23142e-01,0.34616e-01,0.38867e-01,0.23278e-01 /) - kbo(:, 1,41, 9) = (/ & - & 0.40532e-03,0.11840e-01,0.17661e-01,0.19981e-01,0.11365e-01 /) - kbo(:, 2,41, 9) = (/ & - & 0.41916e-03,0.14219e-01,0.21285e-01,0.24002e-01,0.13782e-01 /) - kbo(:, 3,41, 9) = (/ & - & 0.43354e-03,0.16775e-01,0.25154e-01,0.28292e-01,0.16423e-01 /) - kbo(:, 4,41, 9) = (/ & - & 0.44807e-03,0.19478e-01,0.29214e-01,0.32812e-01,0.19291e-01 /) - kbo(:, 5,41, 9) = (/ & - & 0.46282e-03,0.22283e-01,0.33415e-01,0.37538e-01,0.22373e-01 /) - kbo(:, 1,42, 9) = (/ & - & 0.33573e-03,0.11104e-01,0.16634e-01,0.18873e-01,0.10664e-01 /) - kbo(:, 2,42, 9) = (/ & - & 0.34776e-03,0.13446e-01,0.20201e-01,0.22835e-01,0.13037e-01 /) - kbo(:, 3,42, 9) = (/ & - & 0.36046e-03,0.15973e-01,0.24027e-01,0.27071e-01,0.15631e-01 /) - kbo(:, 4,42, 9) = (/ & - & 0.37344e-03,0.18654e-01,0.28057e-01,0.31550e-01,0.18451e-01 /) - kbo(:, 5,42, 9) = (/ & - & 0.38663e-03,0.21448e-01,0.32235e-01,0.36231e-01,0.21492e-01 /) - kbo(:, 1,43, 9) = (/ & - & 0.27733e-03,0.10283e-01,0.15460e-01,0.17597e-01,0.98707e-02 /) - kbo(:, 2,43, 9) = (/ & - & 0.28779e-03,0.12571e-01,0.18947e-01,0.21473e-01,0.12183e-01 /) - kbo(:, 3,43, 9) = (/ & - & 0.29891e-03,0.15054e-01,0.22712e-01,0.25638e-01,0.14718e-01 /) - kbo(:, 4,43, 9) = (/ & - & 0.31033e-03,0.17702e-01,0.26696e-01,0.30055e-01,0.17477e-01 /) - kbo(:, 5,43, 9) = (/ & - & 0.32200e-03,0.20476e-01,0.30841e-01,0.34682e-01,0.20459e-01 /) - kbo(:, 1,44, 9) = (/ & - & 0.22878e-03,0.94499e-02,0.14251e-01,0.16276e-01,0.90607e-02 /) - kbo(:, 2,44, 9) = (/ & - & 0.23775e-03,0.11673e-01,0.17646e-01,0.20049e-01,0.11303e-01 /) - kbo(:, 3,44, 9) = (/ & - & 0.24747e-03,0.14106e-01,0.21336e-01,0.24135e-01,0.13772e-01 /) - kbo(:, 4,44, 9) = (/ & - & 0.25755e-03,0.16710e-01,0.25261e-01,0.28479e-01,0.16464e-01 /) - kbo(:, 5,44, 9) = (/ & - & 0.26798e-03,0.19454e-01,0.29363e-01,0.33046e-01,0.19378e-01 /) - kbo(:, 1,45, 9) = (/ & - & 0.18849e-03,0.86584e-02,0.13096e-01,0.15007e-01,0.82904e-02 /) - kbo(:, 2,45, 9) = (/ & - & 0.19636e-03,0.10814e-01,0.16390e-01,0.18672e-01,0.10458e-01 /) - kbo(:, 3,45, 9) = (/ & - & 0.20470e-03,0.13189e-01,0.19995e-01,0.22671e-01,0.12861e-01 /) - kbo(:, 4,45, 9) = (/ & - & 0.21344e-03,0.15746e-01,0.23854e-01,0.26936e-01,0.15483e-01 /) - kbo(:, 5,45, 9) = (/ & - & 0.22266e-03,0.18454e-01,0.27912e-01,0.31439e-01,0.18328e-01 /) - kbo(:, 1,46, 9) = (/ & - & 0.15507e-03,0.78632e-02,0.11928e-01,0.13712e-01,0.75164e-02 /) - kbo(:, 2,46, 9) = (/ & - & 0.16179e-03,0.99413e-02,0.15104e-01,0.17260e-01,0.95985e-02 /) - kbo(:, 3,46, 9) = (/ & - & 0.16890e-03,0.12249e-01,0.18612e-01,0.21154e-01,0.11927e-01 /) - kbo(:, 4,46, 9) = (/ & - & 0.17659e-03,0.14751e-01,0.22394e-01,0.25333e-01,0.14476e-01 /) - kbo(:, 5,46, 9) = (/ & - & 0.18474e-03,0.17415e-01,0.26393e-01,0.29761e-01,0.17246e-01 /) - kbo(:, 1,47, 9) = (/ & - & 0.12726e-03,0.70304e-02,0.10696e-01,0.12336e-01,0.67029e-02 /) - kbo(:, 2,47, 9) = (/ & - & 0.13291e-03,0.90171e-02,0.13730e-01,0.15745e-01,0.86863e-02 /) - kbo(:, 3,47, 9) = (/ & - & 0.13906e-03,0.11243e-01,0.17120e-01,0.19510e-01,0.10925e-01 /) - kbo(:, 4,47, 9) = (/ & - & 0.14561e-03,0.13678e-01,0.20805e-01,0.23588e-01,0.13392e-01 /) - kbo(:, 5,47, 9) = (/ & - & 0.15268e-03,0.16286e-01,0.24728e-01,0.27924e-01,0.16077e-01 /) - kbo(:, 1,48, 9) = (/ & - & 0.10430e-03,0.62479e-02,0.95325e-02,0.11029e-01,0.59380e-02 /) - kbo(:, 2,48, 9) = (/ & - & 0.10909e-03,0.81380e-02,0.12419e-01,0.14291e-01,0.78205e-02 /) - kbo(:, 3,48, 9) = (/ & - & 0.11429e-03,0.10277e-01,0.15680e-01,0.17922e-01,0.99641e-02 /) - kbo(:, 4,48, 9) = (/ & - & 0.11996e-03,0.12637e-01,0.19259e-01,0.21888e-01,0.12347e-01 /) - kbo(:, 5,48, 9) = (/ & - & 0.12611e-03,0.15183e-01,0.23095e-01,0.26125e-01,0.14947e-01 /) - kbo(:, 1,49, 9) = (/ & - & 0.85361e-04,0.55178e-02,0.84413e-02,0.97939e-02,0.52224e-02 /) - kbo(:, 2,49, 9) = (/ & - & 0.89682e-04,0.73124e-02,0.11182e-01,0.12906e-01,0.70024e-02 /) - kbo(:, 3,49, 9) = (/ & - & 0.93818e-04,0.93518e-02,0.14295e-01,0.16393e-01,0.90454e-02 /) - kbo(:, 4,49, 9) = (/ & - & 0.98731e-04,0.11631e-01,0.17758e-01,0.20234e-01,0.11339e-01 /) - kbo(:, 5,49, 9) = (/ & - & 0.10398e-03,0.14111e-01,0.21502e-01,0.24370e-01,0.13856e-01 /) - kbo(:, 1,50, 9) = (/ & - & 0.70068e-04,0.48843e-02,0.74862e-02,0.87029e-02,0.45961e-02 /) - kbo(:, 2,50, 9) = (/ & - & 0.73528e-04,0.65706e-02,0.10074e-01,0.11661e-01,0.62737e-02 /) - kbo(:, 3,50, 9) = (/ & - & 0.77377e-04,0.85288e-02,0.13057e-01,0.15019e-01,0.82236e-02 /) - kbo(:, 4,50, 9) = (/ & - & 0.81195e-04,0.10720e-01,0.16396e-01,0.18728e-01,0.10428e-01 /) - kbo(:, 5,50, 9) = (/ & - & 0.85703e-04,0.13133e-01,0.20042e-01,0.22765e-01,0.12867e-01 /) - kbo(:, 1,51, 9) = (/ & - & 0.57383e-04,0.43058e-02,0.66126e-02,0.77023e-02,0.40299e-02 /) - kbo(:, 2,51, 9) = (/ & - & 0.60290e-04,0.58916e-02,0.90543e-02,0.10509e-01,0.56057e-02 /) - kbo(:, 3,51, 9) = (/ & - & 0.63513e-04,0.77586e-02,0.11901e-01,0.13729e-01,0.74620e-02 /) - kbo(:, 4,51, 9) = (/ & - & 0.66727e-04,0.98672e-02,0.15116e-01,0.17314e-01,0.95779e-02 /) - kbo(:, 5,51, 9) = (/ & - & 0.70598e-04,0.12209e-01,0.18661e-01,0.21244e-01,0.11938e-01 /) - kbo(:, 1,52, 9) = (/ & - & 0.46933e-04,0.37683e-02,0.57987e-02,0.67684e-02,0.35066e-02 /) - kbo(:, 2,52, 9) = (/ & - & 0.49374e-04,0.52554e-02,0.80944e-02,0.94163e-02,0.49785e-02 /) - kbo(:, 3,52, 9) = (/ & - & 0.52069e-04,0.70251e-02,0.10799e-01,0.12493e-01,0.67384e-02 /) - kbo(:, 4,52, 9) = (/ & - & 0.55066e-04,0.90579e-02,0.13892e-01,0.15957e-01,0.87644e-02 /) - kbo(:, 5,52, 9) = (/ & - & 0.58094e-04,0.11314e-01,0.17321e-01,0.19762e-01,0.11039e-01 /) - kbo(:, 1,53, 9) = (/ & - & 0.38369e-04,0.32705e-02,0.50428e-02,0.58997e-02,0.30250e-02 /) - kbo(:, 2,53, 9) = (/ & - & 0.40389e-04,0.46579e-02,0.71882e-02,0.83794e-02,0.43908e-02 /) - kbo(:, 3,53, 9) = (/ & - & 0.42656e-04,0.63275e-02,0.97486e-02,0.11308e-01,0.60500e-02 /) - kbo(:, 4,53, 9) = (/ & - & 0.45173e-04,0.82714e-02,0.12706e-01,0.14639e-01,0.79824e-02 /) - kbo(:, 5,53, 9) = (/ & - & 0.47733e-04,0.10447e-01,0.16018e-01,0.18320e-01,0.10170e-01 /) - kbo(:, 1,54, 9) = (/ & - & 0.31373e-04,0.28489e-02,0.44023e-02,0.51602e-02,0.26198e-02 /) - kbo(:, 2,54, 9) = (/ & - & 0.33072e-04,0.41448e-02,0.64072e-02,0.74821e-02,0.38868e-02 /) - kbo(:, 3,54, 9) = (/ & - & 0.34962e-04,0.57219e-02,0.88331e-02,0.10271e-01,0.54518e-02 /) - kbo(:, 4,54, 9) = (/ & - & 0.37073e-04,0.75801e-02,0.11663e-01,0.13472e-01,0.72975e-02 /) - kbo(:, 5,54, 9) = (/ & - & 0.39224e-04,0.96795e-02,0.14861e-01,0.17039e-01,0.94030e-02 /) - kbo(:, 1,55, 9) = (/ & - & 0.25649e-04,0.24774e-02,0.38358e-02,0.45027e-02,0.22635e-02 /) - kbo(:, 2,55, 9) = (/ & - & 0.27065e-04,0.36831e-02,0.57040e-02,0.66733e-02,0.34361e-02 /) - kbo(:, 3,55, 9) = (/ & - & 0.28649e-04,0.51728e-02,0.80003e-02,0.93199e-02,0.49087e-02 /) - kbo(:, 4,55, 9) = (/ & - & 0.30419e-04,0.69443e-02,0.10704e-01,0.12395e-01,0.66688e-02 /) - kbo(:, 5,55, 9) = (/ & - & 0.32478e-04,0.89781e-02,0.13794e-01,0.15856e-01,0.86947e-02 /) - kbo(:, 1,56, 9) = (/ & - & 0.20960e-04,0.21374e-02,0.33161e-02,0.38972e-02,0.19394e-02 /) - kbo(:, 2,56, 9) = (/ & - & 0.22130e-04,0.32530e-02,0.50471e-02,0.59166e-02,0.30185e-02 /) - kbo(:, 3,56, 9) = (/ & - & 0.23455e-04,0.46545e-02,0.72105e-02,0.84156e-02,0.43975e-02 /) - kbo(:, 4,56, 9) = (/ & - & 0.24958e-04,0.63377e-02,0.97876e-02,0.11360e-01,0.60688e-02 /) - kbo(:, 5,56, 9) = (/ & - & 0.26672e-04,0.82933e-02,0.12759e-01,0.14704e-01,0.80123e-02 /) - kbo(:, 1,57, 9) = (/ & - & 0.17108e-04,0.18275e-02,0.28407e-02,0.33429e-02,0.16463e-02 /) - kbo(:, 2,57, 9) = (/ & - & 0.18082e-04,0.28535e-02,0.44360e-02,0.52097e-02,0.26326e-02 /) - kbo(:, 3,57, 9) = (/ & - & 0.19184e-04,0.41668e-02,0.64646e-02,0.75572e-02,0.39170e-02 /) - kbo(:, 4,57, 9) = (/ & - & 0.20446e-04,0.57610e-02,0.89128e-02,0.10368e-01,0.54979e-02 /) - kbo(:, 5,57, 9) = (/ & - & 0.21854e-04,0.76342e-02,0.11762e-01,0.13588e-01,0.73577e-02 /) - kbo(:, 1,58, 9) = (/ & - & 0.13963e-04,0.15602e-02,0.24292e-02,0.28638e-02,0.13965e-02 /) - kbo(:, 2,58, 9) = (/ & - & 0.14773e-04,0.25031e-02,0.38984e-02,0.45849e-02,0.22957e-02 /) - kbo(:, 3,58, 9) = (/ & - & 0.15698e-04,0.37311e-02,0.57975e-02,0.67885e-02,0.34899e-02 /) - kbo(:, 4,58, 9) = (/ & - & 0.16731e-04,0.52413e-02,0.81221e-02,0.94657e-02,0.49831e-02 /) - kbo(:, 5,58, 9) = (/ & - & 0.17926e-04,0.70329e-02,0.10852e-01,0.12566e-01,0.67622e-02 /) - kbo(:, 1,59, 9) = (/ & - & 0.11515e-04,0.14557e-02,0.22712e-02,0.26808e-02,0.13001e-02 /) - kbo(:, 2,59, 9) = (/ & - & 0.12194e-04,0.23665e-02,0.36913e-02,0.43444e-02,0.21654e-02 /) - kbo(:, 3,59, 9) = (/ & - & 0.12975e-04,0.35608e-02,0.55385e-02,0.64911e-02,0.33241e-02 /) - kbo(:, 4,59, 9) = (/ & - & 0.13854e-04,0.50382e-02,0.78142e-02,0.91137e-02,0.47825e-02 /) - kbo(:, 5,59, 9) = (/ & - & 0.14890e-04,0.67966e-02,0.10497e-01,0.12166e-01,0.65291e-02 /) - kbo(:, 1,13,10) = (/ & - & 0.23136e+00,0.35590e+00,0.41705e+00,0.42838e+00,0.34405e+00 /) - kbo(:, 2,13,10) = (/ & - & 0.23570e+00,0.35573e+00,0.41855e+00,0.43318e+00,0.34979e+00 /) - kbo(:, 3,13,10) = (/ & - & 0.23997e+00,0.35949e+00,0.42029e+00,0.43813e+00,0.35426e+00 /) - kbo(:, 4,13,10) = (/ & - & 0.24492e+00,0.36590e+00,0.42350e+00,0.44177e+00,0.35947e+00 /) - kbo(:, 5,13,10) = (/ & - & 0.25202e+00,0.37242e+00,0.42924e+00,0.44467e+00,0.36481e+00 /) - kbo(:, 1,14,10) = (/ & - & 0.20433e+00,0.32280e+00,0.38114e+00,0.39530e+00,0.30987e+00 /) - kbo(:, 2,14,10) = (/ & - & 0.20812e+00,0.32580e+00,0.38400e+00,0.40099e+00,0.31521e+00 /) - kbo(:, 3,14,10) = (/ & - & 0.21260e+00,0.33207e+00,0.38794e+00,0.40573e+00,0.32135e+00 /) - kbo(:, 4,14,10) = (/ & - & 0.21971e+00,0.33857e+00,0.39426e+00,0.40959e+00,0.32811e+00 /) - kbo(:, 5,14,10) = (/ & - & 0.22862e+00,0.34522e+00,0.40235e+00,0.41376e+00,0.33439e+00 /) - kbo(:, 1,15,10) = (/ & - & 0.17974e+00,0.29385e+00,0.34710e+00,0.36214e+00,0.27698e+00 /) - kbo(:, 2,15,10) = (/ & - & 0.18361e+00,0.29985e+00,0.35176e+00,0.36835e+00,0.28361e+00 /) - kbo(:, 3,15,10) = (/ & - & 0.19011e+00,0.30650e+00,0.35844e+00,0.37336e+00,0.29140e+00 /) - kbo(:, 4,15,10) = (/ & - & 0.19870e+00,0.31340e+00,0.36676e+00,0.37856e+00,0.29913e+00 /) - kbo(:, 5,15,10) = (/ & - & 0.20713e+00,0.32067e+00,0.37517e+00,0.38452e+00,0.30673e+00 /) - kbo(:, 1,16,10) = (/ & - & 0.15768e+00,0.26909e+00,0.31566e+00,0.32905e+00,0.24795e+00 /) - kbo(:, 2,16,10) = (/ & - & 0.16341e+00,0.27579e+00,0.32257e+00,0.33542e+00,0.25593e+00 /) - kbo(:, 3,16,10) = (/ & - & 0.17143e+00,0.28283e+00,0.33152e+00,0.34164e+00,0.26468e+00 /) - kbo(:, 4,16,10) = (/ & - & 0.17943e+00,0.29026e+00,0.34054e+00,0.34897e+00,0.27328e+00 /) - kbo(:, 5,16,10) = (/ & - & 0.18690e+00,0.29935e+00,0.34954e+00,0.35767e+00,0.28225e+00 /) - kbo(:, 1,17,10) = (/ & - & 0.13875e+00,0.24652e+00,0.28696e+00,0.29693e+00,0.22321e+00 /) - kbo(:, 2,17,10) = (/ & - & 0.14611e+00,0.25366e+00,0.29630e+00,0.30411e+00,0.23216e+00 /) - kbo(:, 3,17,10) = (/ & - & 0.15377e+00,0.26122e+00,0.30597e+00,0.31229e+00,0.24127e+00 /) - kbo(:, 4,17,10) = (/ & - & 0.16099e+00,0.27029e+00,0.31565e+00,0.32218e+00,0.25077e+00 /) - kbo(:, 5,17,10) = (/ & - & 0.16791e+00,0.28100e+00,0.32533e+00,0.33316e+00,0.26091e+00 /) - kbo(:, 1,18,10) = (/ & - & 0.12258e+00,0.22568e+00,0.26154e+00,0.26746e+00,0.20208e+00 /) - kbo(:, 2,18,10) = (/ & - & 0.12972e+00,0.23340e+00,0.27183e+00,0.27607e+00,0.21144e+00 /) - kbo(:, 3,18,10) = (/ & - & 0.13673e+00,0.24228e+00,0.28202e+00,0.28661e+00,0.22093e+00 /) - kbo(:, 4,18,10) = (/ & - & 0.14352e+00,0.25285e+00,0.29256e+00,0.29859e+00,0.23121e+00 /) - kbo(:, 5,18,10) = (/ & - & 0.14999e+00,0.26447e+00,0.30340e+00,0.31163e+00,0.24203e+00 /) - kbo(:, 1,19,10) = (/ & - & 0.10785e+00,0.20667e+00,0.23879e+00,0.24194e+00,0.18368e+00 /) - kbo(:, 2,19,10) = (/ & - & 0.11429e+00,0.21546e+00,0.24926e+00,0.25235e+00,0.19325e+00 /) - kbo(:, 3,19,10) = (/ & - & 0.12064e+00,0.22577e+00,0.26022e+00,0.26472e+00,0.20338e+00 /) - kbo(:, 4,19,10) = (/ & - & 0.12700e+00,0.23751e+00,0.27175e+00,0.27823e+00,0.21416e+00 /) - kbo(:, 5,19,10) = (/ & - & 0.13335e+00,0.24924e+00,0.28423e+00,0.29239e+00,0.22548e+00 /) - kbo(:, 1,20,10) = (/ & - & 0.94314e-01,0.18969e+00,0.21843e+00,0.22089e+00,0.16767e+00 /) - kbo(:, 2,20,10) = (/ & - & 0.10011e+00,0.20009e+00,0.22938e+00,0.23290e+00,0.17759e+00 /) - kbo(:, 3,20,10) = (/ & - & 0.10602e+00,0.21171e+00,0.24114e+00,0.24650e+00,0.18815e+00 /) - kbo(:, 4,20,10) = (/ & - & 0.11212e+00,0.22366e+00,0.25410e+00,0.26076e+00,0.19951e+00 /) - kbo(:, 5,20,10) = (/ & - & 0.11820e+00,0.23566e+00,0.26816e+00,0.27572e+00,0.21140e+00 /) - kbo(:, 1,21,10) = (/ & - & 0.82096e-01,0.17498e+00,0.20057e+00,0.20349e+00,0.15368e+00 /) - kbo(:, 2,21,10) = (/ & - & 0.87376e-01,0.18671e+00,0.21217e+00,0.21678e+00,0.16394e+00 /) - kbo(:, 3,21,10) = (/ & - & 0.92996e-01,0.19901e+00,0.22527e+00,0.23088e+00,0.17505e+00 /) - kbo(:, 4,21,10) = (/ & - & 0.98752e-01,0.21131e+00,0.23942e+00,0.24575e+00,0.18685e+00 /) - kbo(:, 5,21,10) = (/ & - & 0.10451e+00,0.22356e+00,0.25490e+00,0.26152e+00,0.19924e+00 /) - kbo(:, 1,22,10) = (/ & - & 0.71578e-01,0.16309e+00,0.18609e+00,0.19018e+00,0.14217e+00 /) - kbo(:, 2,22,10) = (/ & - & 0.76626e-01,0.17564e+00,0.19884e+00,0.20398e+00,0.15291e+00 /) - kbo(:, 3,22,10) = (/ & - & 0.81885e-01,0.18840e+00,0.21309e+00,0.21858e+00,0.16461e+00 /) - kbo(:, 4,22,10) = (/ & - & 0.87223e-01,0.20113e+00,0.22859e+00,0.23430e+00,0.17688e+00 /) - kbo(:, 5,22,10) = (/ & - & 0.92500e-01,0.21374e+00,0.24532e+00,0.25104e+00,0.18976e+00 /) - kbo(:, 1,23,10) = (/ & - & 0.62506e-01,0.15298e+00,0.17442e+00,0.17913e+00,0.13258e+00 /) - kbo(:, 2,23,10) = (/ & - & 0.67194e-01,0.16597e+00,0.18829e+00,0.19340e+00,0.14391e+00 /) - kbo(:, 3,23,10) = (/ & - & 0.72099e-01,0.17922e+00,0.20360e+00,0.20869e+00,0.15600e+00 /) - kbo(:, 4,23,10) = (/ & - & 0.77023e-01,0.19243e+00,0.22032e+00,0.22532e+00,0.16873e+00 /) - kbo(:, 5,23,10) = (/ & - & 0.81629e-01,0.20537e+00,0.23792e+00,0.24291e+00,0.18203e+00 /) - kbo(:, 1,24,10) = (/ & - & 0.54705e-01,0.14435e+00,0.16539e+00,0.17004e+00,0.12479e+00 /) - kbo(:, 2,24,10) = (/ & - & 0.59055e-01,0.15781e+00,0.18024e+00,0.18505e+00,0.13663e+00 /) - kbo(:, 3,24,10) = (/ & - & 0.63456e-01,0.17157e+00,0.19662e+00,0.20113e+00,0.14915e+00 /) - kbo(:, 4,24,10) = (/ & - & 0.67778e-01,0.18520e+00,0.21409e+00,0.21860e+00,0.16222e+00 /) - kbo(:, 5,24,10) = (/ & - & 0.71741e-01,0.19852e+00,0.23252e+00,0.23726e+00,0.17594e+00 /) - kbo(:, 1,25,10) = (/ & - & 0.47972e-01,0.13725e+00,0.15860e+00,0.16297e+00,0.11866e+00 /) - kbo(:, 2,25,10) = (/ & - & 0.51893e-01,0.15121e+00,0.17443e+00,0.17877e+00,0.13085e+00 /) - kbo(:, 3,25,10) = (/ & - & 0.55832e-01,0.16535e+00,0.19157e+00,0.19578e+00,0.14380e+00 /) - kbo(:, 4,25,10) = (/ & - & 0.59570e-01,0.17943e+00,0.20993e+00,0.21423e+00,0.15728e+00 /) - kbo(:, 5,25,10) = (/ & - & 0.62996e-01,0.19323e+00,0.22909e+00,0.23401e+00,0.17147e+00 /) - kbo(:, 1,26,10) = (/ & - & 0.42166e-01,0.13173e+00,0.15395e+00,0.15801e+00,0.11401e+00 /) - kbo(:, 2,26,10) = (/ & - & 0.45660e-01,0.14616e+00,0.17062e+00,0.17468e+00,0.12664e+00 /) - kbo(:, 3,26,10) = (/ & - & 0.49079e-01,0.16071e+00,0.18859e+00,0.19278e+00,0.14002e+00 /) - kbo(:, 4,26,10) = (/ & - & 0.52306e-01,0.17521e+00,0.20782e+00,0.21223e+00,0.15402e+00 /) - kbo(:, 5,26,10) = (/ & - & 0.55285e-01,0.18955e+00,0.22765e+00,0.23299e+00,0.16864e+00 /) - kbo(:, 1,27,10) = (/ & - & 0.37040e-01,0.12755e+00,0.15088e+00,0.15474e+00,0.11059e+00 /) - kbo(:, 2,27,10) = (/ & - & 0.40121e-01,0.14241e+00,0.16845e+00,0.17243e+00,0.12369e+00 /) - kbo(:, 3,27,10) = (/ & - & 0.43101e-01,0.15742e+00,0.18726e+00,0.19156e+00,0.13753e+00 /) - kbo(:, 4,27,10) = (/ & - & 0.45931e-01,0.17241e+00,0.20722e+00,0.21200e+00,0.15204e+00 /) - kbo(:, 5,27,10) = (/ & - & 0.48598e-01,0.18733e+00,0.22772e+00,0.23361e+00,0.16711e+00 /) - kbo(:, 1,28,10) = (/ & - & 0.32582e-01,0.12457e+00,0.14931e+00,0.15310e+00,0.10829e+00 /) - kbo(:, 2,28,10) = (/ & - & 0.35269e-01,0.13987e+00,0.16776e+00,0.17185e+00,0.12185e+00 /) - kbo(:, 3,28,10) = (/ & - & 0.37905e-01,0.15538e+00,0.18740e+00,0.19192e+00,0.13621e+00 /) - kbo(:, 4,28,10) = (/ & - & 0.40411e-01,0.17101e+00,0.20797e+00,0.21319e+00,0.15122e+00 /) - kbo(:, 5,28,10) = (/ & - & 0.42843e-01,0.18643e+00,0.22906e+00,0.23551e+00,0.16683e+00 /) - kbo(:, 1,29,10) = (/ & - & 0.28694e-01,0.12285e+00,0.14922e+00,0.15309e+00,0.10715e+00 /) - kbo(:, 2,29,10) = (/ & - & 0.31078e-01,0.13867e+00,0.16851e+00,0.17281e+00,0.12115e+00 /) - kbo(:, 3,29,10) = (/ & - & 0.33398e-01,0.15475e+00,0.18886e+00,0.19373e+00,0.13609e+00 /) - kbo(:, 4,29,10) = (/ & - & 0.35655e-01,0.17087e+00,0.21002e+00,0.21569e+00,0.15161e+00 /) - kbo(:, 5,29,10) = (/ & - & 0.37934e-01,0.18672e+00,0.23156e+00,0.23855e+00,0.16767e+00 /) - kbo(:, 1,30,10) = (/ & - & 0.25318e-01,0.12223e+00,0.15038e+00,0.15442e+00,0.10692e+00 /) - kbo(:, 2,30,10) = (/ & - & 0.27416e-01,0.13863e+00,0.17040e+00,0.17493e+00,0.12146e+00 /) - kbo(:, 3,30,10) = (/ & - & 0.29487e-01,0.15524e+00,0.19136e+00,0.19656e+00,0.13693e+00 /) - kbo(:, 4,30,10) = (/ & - & 0.31585e-01,0.17178e+00,0.21298e+00,0.21911e+00,0.15294e+00 /) - kbo(:, 5,30,10) = (/ & - & 0.33743e-01,0.18794e+00,0.23489e+00,0.24234e+00,0.16937e+00 /) - kbo(:, 1,31,10) = (/ & - & 0.22384e-01,0.12276e+00,0.15268e+00,0.15694e+00,0.10764e+00 /) - kbo(:, 2,31,10) = (/ & - & 0.24241e-01,0.13972e+00,0.17333e+00,0.17809e+00,0.12275e+00 /) - kbo(:, 3,31,10) = (/ & - & 0.26155e-01,0.15678e+00,0.19481e+00,0.20028e+00,0.13870e+00 /) - kbo(:, 4,31,10) = (/ & - & 0.28119e-01,0.17362e+00,0.21675e+00,0.22330e+00,0.15510e+00 /) - kbo(:, 5,31,10) = (/ & - & 0.30218e-01,0.19000e+00,0.23891e+00,0.24680e+00,0.17182e+00 /) - kbo(:, 1,32,10) = (/ & - & 0.19818e-01,0.12431e+00,0.15590e+00,0.16037e+00,0.10919e+00 /) - kbo(:, 2,32,10) = (/ & - & 0.21499e-01,0.14174e+00,0.17710e+00,0.18207e+00,0.12484e+00 /) - kbo(:, 3,32,10) = (/ & - & 0.23289e-01,0.15910e+00,0.19892e+00,0.20468e+00,0.14116e+00 /) - kbo(:, 4,32,10) = (/ & - & 0.25197e-01,0.17612e+00,0.22110e+00,0.22808e+00,0.15787e+00 /) - kbo(:, 5,32,10) = (/ & - & 0.27257e-01,0.19267e+00,0.24341e+00,0.25172e+00,0.17483e+00 /) - kbo(:, 1,33,10) = (/ & - & 0.17588e-01,0.12670e+00,0.15984e+00,0.16448e+00,0.11147e+00 /) - kbo(:, 2,33,10) = (/ & - & 0.19157e-01,0.14450e+00,0.18143e+00,0.18665e+00,0.12758e+00 /) - kbo(:, 3,33,10) = (/ & - & 0.20859e-01,0.16204e+00,0.20353e+00,0.20957e+00,0.14421e+00 /) - kbo(:, 4,33,10) = (/ & - & 0.22735e-01,0.17915e+00,0.22585e+00,0.23324e+00,0.16113e+00 /) - kbo(:, 5,33,10) = (/ & - & 0.24799e-01,0.19574e+00,0.24826e+00,0.25697e+00,0.17829e+00 /) - kbo(:, 1,34,10) = (/ & - & 0.15617e-01,0.12913e+00,0.16354e+00,0.16830e+00,0.11378e+00 /) - kbo(:, 2,34,10) = (/ & - & 0.17096e-01,0.14716e+00,0.18538e+00,0.19084e+00,0.13021e+00 /) - kbo(:, 3,34,10) = (/ & - & 0.18753e-01,0.16482e+00,0.20769e+00,0.21402e+00,0.14705e+00 /) - kbo(:, 4,34,10) = (/ & - & 0.20625e-01,0.18194e+00,0.23012e+00,0.23784e+00,0.16411e+00 /) - kbo(:, 5,34,10) = (/ & - & 0.22709e-01,0.19848e+00,0.25256e+00,0.26160e+00,0.18143e+00 /) - kbo(:, 1,35,10) = (/ & - & 0.13789e-01,0.13026e+00,0.16543e+00,0.17032e+00,0.11490e+00 /) - kbo(:, 2,35,10) = (/ & - & 0.15216e-01,0.14846e+00,0.18743e+00,0.19307e+00,0.13153e+00 /) - kbo(:, 3,35,10) = (/ & - & 0.16842e-01,0.16621e+00,0.20987e+00,0.21641e+00,0.14851e+00 /) - kbo(:, 4,35,10) = (/ & - & 0.18686e-01,0.18333e+00,0.23239e+00,0.24032e+00,0.16565e+00 /) - kbo(:, 5,35,10) = (/ & - & 0.20799e-01,0.19983e+00,0.25487e+00,0.26409e+00,0.18307e+00 /) - kbo(:, 1,36,10) = (/ & - & 0.12099e-01,0.12969e+00,0.16517e+00,0.17011e+00,0.11448e+00 /) - kbo(:, 2,36,10) = (/ & - & 0.13456e-01,0.14803e+00,0.18723e+00,0.19293e+00,0.13120e+00 /) - kbo(:, 3,36,10) = (/ & - & 0.15032e-01,0.16587e+00,0.20973e+00,0.21635e+00,0.14826e+00 /) - kbo(:, 4,36,10) = (/ & - & 0.16854e-01,0.18305e+00,0.23232e+00,0.24032e+00,0.16546e+00 /) - kbo(:, 5,36,10) = (/ & - & 0.18993e-01,0.19959e+00,0.25485e+00,0.26414e+00,0.18292e+00 /) - kbo(:, 1,37,10) = (/ & - & 0.10461e-01,0.12652e+00,0.16173e+00,0.16663e+00,0.11173e+00 /) - kbo(:, 2,37,10) = (/ & - & 0.11729e-01,0.14498e+00,0.18379e+00,0.18940e+00,0.12844e+00 /) - kbo(:, 3,37,10) = (/ & - & 0.13230e-01,0.16298e+00,0.20628e+00,0.21278e+00,0.14553e+00 /) - kbo(:, 4,37,10) = (/ & - & 0.15005e-01,0.18033e+00,0.22891e+00,0.23679e+00,0.16275e+00 /) - kbo(:, 5,37,10) = (/ & - & 0.17126e-01,0.19699e+00,0.25151e+00,0.26065e+00,0.18019e+00 /) - kbo(:, 1,38,10) = (/ & - & 0.90496e-02,0.12333e+00,0.15823e+00,0.16307e+00,0.10897e+00 /) - kbo(:, 2,38,10) = (/ & - & 0.10227e-01,0.14188e+00,0.18026e+00,0.18578e+00,0.12565e+00 /) - kbo(:, 3,38,10) = (/ & - & 0.11665e-01,0.16002e+00,0.20273e+00,0.20911e+00,0.14274e+00 /) - kbo(:, 4,38,10) = (/ & - & 0.13392e-01,0.17754e+00,0.22537e+00,0.23309e+00,0.15996e+00 /) - kbo(:, 5,38,10) = (/ & - & 0.15506e-01,0.19433e+00,0.24804e+00,0.25702e+00,0.17741e+00 /) - kbo(:, 1,39,10) = (/ & - & 0.78338e-02,0.12027e+00,0.15482e+00,0.15961e+00,0.10632e+00 /) - kbo(:, 2,39,10) = (/ & - & 0.89378e-02,0.13888e+00,0.17682e+00,0.18224e+00,0.12295e+00 /) - kbo(:, 3,39,10) = (/ & - & 0.10310e-01,0.15714e+00,0.19926e+00,0.20553e+00,0.14003e+00 /) - kbo(:, 4,39,10) = (/ & - & 0.12002e-01,0.17480e+00,0.22192e+00,0.22947e+00,0.15725e+00 /) - kbo(:, 5,39,10) = (/ & - & 0.14105e-01,0.19172e+00,0.24464e+00,0.25344e+00,0.17470e+00 /) - kbo(:, 1,40,10) = (/ & - & 0.66914e-02,0.11542e+00,0.14925e+00,0.15395e+00,0.10210e+00 /) - kbo(:, 2,40,10) = (/ & - & 0.77047e-02,0.13403e+00,0.17118e+00,0.17643e+00,0.11860e+00 /) - kbo(:, 3,40,10) = (/ & - & 0.89835e-02,0.15246e+00,0.19353e+00,0.19961e+00,0.13564e+00 /) - kbo(:, 4,40,10) = (/ & - & 0.10606e-01,0.17030e+00,0.21619e+00,0.22340e+00,0.15283e+00 /) - kbo(:, 5,40,10) = (/ & - & 0.12648e-01,0.18743e+00,0.23893e+00,0.24746e+00,0.17023e+00 /) - kbo(:, 1,41,10) = (/ & - & 0.57043e-02,0.11041e+00,0.14350e+00,0.14812e+00,0.97770e-01 /) - kbo(:, 2,41,10) = (/ & - & 0.66329e-02,0.12897e+00,0.16532e+00,0.17041e+00,0.11409e+00 /) - kbo(:, 3,41,10) = (/ & - & 0.78105e-02,0.14755e+00,0.18757e+00,0.19344e+00,0.13104e+00 /) - kbo(:, 4,41,10) = (/ & - & 0.93536e-02,0.16558e+00,0.21020e+00,0.21707e+00,0.14824e+00 /) - kbo(:, 5,41,10) = (/ & - & 0.11328e-01,0.18290e+00,0.23295e+00,0.24119e+00,0.16557e+00 /) - kbo(:, 1,42,10) = (/ & - & 0.48607e-02,0.10547e+00,0.13783e+00,0.14238e+00,0.93542e-01 /) - kbo(:, 2,42,10) = (/ & - & 0.56953e-02,0.12396e+00,0.15948e+00,0.16442e+00,0.10965e+00 /) - kbo(:, 3,42,10) = (/ & - & 0.67857e-02,0.14262e+00,0.18165e+00,0.18732e+00,0.12648e+00 /) - kbo(:, 4,42,10) = (/ & - & 0.82516e-02,0.16083e+00,0.20424e+00,0.21080e+00,0.14367e+00 /) - kbo(:, 5,42,10) = (/ & - & 0.10149e-01,0.17836e+00,0.22696e+00,0.23490e+00,0.16095e+00 /) - kbo(:, 1,43,10) = (/ & - & 0.40934e-02,0.99600e-01,0.13106e+00,0.13554e+00,0.88531e-01 /) - kbo(:, 2,43,10) = (/ & - & 0.48473e-02,0.11796e+00,0.15249e+00,0.15728e+00,0.10438e+00 /) - kbo(:, 3,43,10) = (/ & - & 0.58407e-02,0.13665e+00,0.17453e+00,0.17995e+00,0.12102e+00 /) - kbo(:, 4,43,10) = (/ & - & 0.71922e-02,0.15505e+00,0.19702e+00,0.20328e+00,0.13817e+00 /) - kbo(:, 5,43,10) = (/ & - & 0.89819e-02,0.17282e+00,0.21974e+00,0.22722e+00,0.15541e+00 /) - kbo(:, 1,44,10) = (/ & - & 0.34279e-02,0.93376e-01,0.12386e+00,0.12828e+00,0.83256e-01 /) - kbo(:, 2,44,10) = (/ & - & 0.40981e-02,0.11153e+00,0.14501e+00,0.14969e+00,0.98786e-01 /) - kbo(:, 3,44,10) = (/ & - & 0.49801e-02,0.13017e+00,0.16691e+00,0.17209e+00,0.11523e+00 /) - kbo(:, 4,44,10) = (/ & - & 0.62140e-02,0.14877e+00,0.18924e+00,0.19525e+00,0.13223e+00 /) - kbo(:, 5,44,10) = (/ & - & 0.78865e-02,0.16678e+00,0.21196e+00,0.21896e+00,0.14947e+00 /) - kbo(:, 1,45,10) = (/ & - & 0.28724e-02,0.87295e-01,0.11671e+00,0.12114e+00,0.78089e-01 /) - kbo(:, 2,45,10) = (/ & - & 0.34468e-02,0.10517e+00,0.13765e+00,0.14225e+00,0.93322e-01 /) - kbo(:, 3,45,10) = (/ & - & 0.42450e-02,0.12371e+00,0.15937e+00,0.16431e+00,0.10950e+00 /) - kbo(:, 4,45,10) = (/ & - & 0.53608e-02,0.14242e+00,0.18156e+00,0.18727e+00,0.12633e+00 /) - kbo(:, 5,45,10) = (/ & - & 0.69069e-02,0.16067e+00,0.20420e+00,0.21079e+00,0.14356e+00 /) - kbo(:, 1,46,10) = (/ & - & 0.23836e-02,0.81023e-01,0.10917e+00,0.11375e+00,0.72722e-01 /) - kbo(:, 2,46,10) = (/ & - & 0.28929e-02,0.98528e-01,0.12997e+00,0.13446e+00,0.87653e-01 /) - kbo(:, 3,46,10) = (/ & - & 0.35850e-02,0.11690e+00,0.15139e+00,0.15617e+00,0.10350e+00 /) - kbo(:, 4,46,10) = (/ & - & 0.45850e-02,0.13564e+00,0.17345e+00,0.17887e+00,0.12014e+00 /) - kbo(:, 5,46,10) = (/ & - & 0.59899e-02,0.15409e+00,0.19595e+00,0.20220e+00,0.13729e+00 /) - kbo(:, 1,47,10) = (/ & - & 0.19470e-02,0.74238e-01,0.10082e+00,0.10569e+00,0.66936e-01 /) - kbo(:, 2,47,10) = (/ & - & 0.23890e-02,0.91244e-01,0.12148e+00,0.12591e+00,0.81479e-01 /) - kbo(:, 3,47,10) = (/ & - & 0.29827e-02,0.10934e+00,0.14258e+00,0.14724e+00,0.96940e-01 /) - kbo(:, 4,47,10) = (/ & - & 0.38583e-02,0.12800e+00,0.16447e+00,0.16958e+00,0.11333e+00 /) - kbo(:, 5,47,10) = (/ & - & 0.51142e-02,0.14666e+00,0.18678e+00,0.19270e+00,0.13028e+00 /) - kbo(:, 1,48,10) = (/ & - & 0.15861e-02,0.67739e-01,0.92637e-01,0.97854e-01,0.61349e-01 /) - kbo(:, 2,48,10) = (/ & - & 0.19649e-02,0.84157e-01,0.11305e+00,0.11755e+00,0.75432e-01 /) - kbo(:, 3,48,10) = (/ & - & 0.24852e-02,0.10189e+00,0.13395e+00,0.13849e+00,0.90556e-01 /) - kbo(:, 4,48,10) = (/ & - & 0.32371e-02,0.12039e+00,0.15554e+00,0.16041e+00,0.10658e+00 /) - kbo(:, 5,48,10) = (/ & - & 0.43439e-02,0.13914e+00,0.17770e+00,0.18327e+00,0.12334e+00 /) - kbo(:, 1,49,10) = (/ & - & 0.12857e-02,0.61441e-01,0.84638e-01,0.90184e-01,0.55928e-01 /) - kbo(:, 2,49,10) = (/ & - & 0.16127e-02,0.77337e-01,0.10472e+00,0.10945e+00,0.69577e-01 /) - kbo(:, 3,49,10) = (/ & - & 0.20537e-02,0.94575e-01,0.12545e+00,0.12989e+00,0.84331e-01 /) - kbo(:, 4,49,10) = (/ & - & 0.26910e-02,0.11284e+00,0.14670e+00,0.15143e+00,0.99981e-01 /) - kbo(:, 5,49,10) = (/ & - & 0.36640e-02,0.13156e+00,0.16870e+00,0.17395e+00,0.11651e+00 /) - kbo(:, 1,50,10) = (/ & - & 0.10457e-02,0.55773e-01,0.77388e-01,0.83215e-01,0.51035e-01 /) - kbo(:, 2,50,10) = (/ & - & 0.13145e-02,0.71139e-01,0.96987e-01,0.10202e+00,0.64279e-01 /) - kbo(:, 3,50,10) = (/ & - & 0.17051e-02,0.87902e-01,0.11756e+00,0.12199e+00,0.78626e-01 /) - kbo(:, 4,50,10) = (/ & - & 0.22648e-02,0.10582e+00,0.13854e+00,0.14317e+00,0.93933e-01 /) - kbo(:, 5,50,10) = (/ & - & 0.31061e-02,0.12442e+00,0.16033e+00,0.16532e+00,0.11017e+00 /) - kbo(:, 1,51,10) = (/ & - & 0.84549e-03,0.50472e-01,0.70528e-01,0.76615e-01,0.46420e-01 /) - kbo(:, 2,51,10) = (/ & - & 0.10690e-02,0.65329e-01,0.89631e-01,0.94967e-01,0.59271e-01 /) - kbo(:, 3,51,10) = (/ & - & 0.14006e-02,0.81572e-01,0.10994e+00,0.11450e+00,0.73207e-01 /) - kbo(:, 4,51,10) = (/ & - & 0.18893e-02,0.99123e-01,0.13077e+00,0.13529e+00,0.88203e-01 /) - kbo(:, 5,51,10) = (/ & - & 0.26211e-02,0.11756e+00,0.15226e+00,0.15707e+00,0.10410e+00 /) - kbo(:, 1,52,10) = (/ & - & 0.67948e-03,0.45452e-01,0.63925e-01,0.70191e-01,0.41984e-01 /) - kbo(:, 2,52,10) = (/ & - & 0.86532e-03,0.59697e-01,0.82454e-01,0.88085e-01,0.54427e-01 /) - kbo(:, 3,52,10) = (/ & - & 0.11431e-02,0.75434e-01,0.10239e+00,0.10721e+00,0.67964e-01 /) - kbo(:, 4,52,10) = (/ & - & 0.15771e-02,0.92585e-01,0.12313e+00,0.12757e+00,0.82618e-01 /) - kbo(:, 5,52,10) = (/ & - & 0.22169e-02,0.11074e+00,0.14429e+00,0.14899e+00,0.98166e-01 /) - kbo(:, 1,53,10) = (/ & - & 0.54404e-03,0.40689e-01,0.57565e-01,0.63870e-01,0.37709e-01 /) - kbo(:, 2,53,10) = (/ & - & 0.69516e-03,0.54249e-01,0.75469e-01,0.81366e-01,0.49728e-01 /) - kbo(:, 3,53,10) = (/ & - & 0.92495e-03,0.69505e-01,0.94951e-01,0.10007e+00,0.62880e-01 /) - kbo(:, 4,53,10) = (/ & - & 0.12935e-02,0.86139e-01,0.11548e+00,0.11993e+00,0.77126e-01 /) - kbo(:, 5,53,10) = (/ & - & 0.18603e-02,0.10397e+00,0.13641e+00,0.14102e+00,0.92352e-01 /) - kbo(:, 1,54,10) = (/ & - & 0.43618e-03,0.36557e-01,0.51984e-01,0.58236e-01,0.33960e-01 /) - kbo(:, 2,54,10) = (/ & - & 0.56166e-03,0.49456e-01,0.69241e-01,0.75371e-01,0.45540e-01 /) - kbo(:, 3,54,10) = (/ & - & 0.75035e-03,0.64217e-01,0.88252e-01,0.93648e-01,0.58325e-01 /) - kbo(:, 4,54,10) = (/ & - & 0.10628e-02,0.80385e-01,0.10853e+00,0.11313e+00,0.72201e-01 /) - kbo(:, 5,54,10) = (/ & - & 0.15600e-02,0.97867e-01,0.12933e+00,0.13384e+00,0.87138e-01 /) - kbo(:, 1,55,10) = (/ & - & 0.34930e-03,0.32793e-01,0.46881e-01,0.52981e-01,0.30517e-01 /) - kbo(:, 2,55,10) = (/ & - & 0.45330e-03,0.45087e-01,0.63469e-01,0.69744e-01,0.41669e-01 /) - kbo(:, 3,55,10) = (/ & - & 0.61016e-03,0.59300e-01,0.81969e-01,0.87622e-01,0.54097e-01 /) - kbo(:, 4,55,10) = (/ & - & 0.87186e-03,0.75017e-01,0.10190e+00,0.10674e+00,0.67613e-01 /) - kbo(:, 5,55,10) = (/ & - & 0.13255e-02,0.92144e-01,0.12263e+00,0.12707e+00,0.82251e-01 /) - kbo(:, 1,56,10) = (/ & - & 0.27869e-03,0.29255e-01,0.42021e-01,0.47895e-01,0.27250e-01 /) - kbo(:, 2,56,10) = (/ & - & 0.36450e-03,0.40920e-01,0.57903e-01,0.64209e-01,0.37931e-01 /) - kbo(:, 3,56,10) = (/ & - & 0.49136e-03,0.54534e-01,0.75862e-01,0.81747e-01,0.49990e-01 /) - kbo(:, 4,56,10) = (/ & - & 0.71172e-03,0.69828e-01,0.95390e-01,0.10049e+00,0.63168e-01 /) - kbo(:, 5,56,10) = (/ & - & 0.11017e-02,0.86502e-01,0.11594e+00,0.12039e+00,0.77442e-01 /) - kbo(:, 1,57,10) = (/ & - & 0.22107e-03,0.25925e-01,0.37436e-01,0.42992e-01,0.24134e-01 /) - kbo(:, 2,57,10) = (/ & - & 0.29170e-03,0.36963e-01,0.52553e-01,0.58819e-01,0.34341e-01 /) - kbo(:, 3,57,10) = (/ & - & 0.39477e-03,0.49943e-01,0.69900e-01,0.76011e-01,0.45979e-01 /) - kbo(:, 4,57,10) = (/ & - & 0.57598e-03,0.64771e-01,0.88986e-01,0.94351e-01,0.58814e-01 /) - kbo(:, 5,57,10) = (/ & - & 0.90995e-03,0.80998e-01,0.10929e+00,0.11387e+00,0.72731e-01 /) - kbo(:, 1,58,10) = (/ & - & 0.17561e-03,0.22952e-01,0.33334e-01,0.38531e-01,0.21328e-01 /) - kbo(:, 2,58,10) = (/ & - & 0.23328e-03,0.33378e-01,0.47700e-01,0.53835e-01,0.31067e-01 /) - kbo(:, 3,58,10) = (/ & - & 0.31697e-03,0.45784e-01,0.64416e-01,0.70683e-01,0.42303e-01 /) - kbo(:, 4,58,10) = (/ & - & 0.46537e-03,0.60108e-01,0.83029e-01,0.88636e-01,0.54797e-01 /) - kbo(:, 5,58,10) = (/ & - & 0.74786e-03,0.75908e-01,0.10302e+00,0.10782e+00,0.68377e-01 /) - kbo(:, 1,59,10) = (/ & - & 0.14648e-03,0.21806e-01,0.31752e-01,0.36796e-01,0.20240e-01 /) - kbo(:, 2,59,10) = (/ & - & 0.19618e-03,0.31995e-01,0.45805e-01,0.51875e-01,0.29797e-01 /) - kbo(:, 3,59,10) = (/ & - & 0.27063e-03,0.44166e-01,0.62268e-01,0.68564e-01,0.40859e-01 /) - kbo(:, 4,59,10) = (/ & - & 0.40629e-03,0.58271e-01,0.80681e-01,0.86380e-01,0.53223e-01 /) - kbo(:, 5,59,10) = (/ & - & 0.67143e-03,0.73904e-01,0.10053e+00,0.10542e+00,0.66665e-01 /) - kbo(:, 1,13,11) = (/ & - & 0.43607e+00,0.62808e+00,0.71724e+00,0.73315e+00,0.60101e+00 /) - kbo(:, 2,13,11) = (/ & - & 0.43332e+00,0.62604e+00,0.71980e+00,0.74002e+00,0.61186e+00 /) - kbo(:, 3,13,11) = (/ & - & 0.43924e+00,0.62431e+00,0.72116e+00,0.74635e+00,0.62343e+00 /) - kbo(:, 4,13,11) = (/ & - & 0.44984e+00,0.62482e+00,0.72168e+00,0.75298e+00,0.63261e+00 /) - kbo(:, 5,13,11) = (/ & - & 0.46047e+00,0.63112e+00,0.72222e+00,0.75987e+00,0.64021e+00 /) - kbo(:, 1,14,11) = (/ & - & 0.38105e+00,0.57533e+00,0.67001e+00,0.68808e+00,0.55899e+00 /) - kbo(:, 2,14,11) = (/ & - & 0.38509e+00,0.57518e+00,0.67285e+00,0.69660e+00,0.57227e+00 /) - kbo(:, 3,14,11) = (/ & - & 0.39449e+00,0.57649e+00,0.67532e+00,0.70510e+00,0.58361e+00 /) - kbo(:, 4,14,11) = (/ & - & 0.40382e+00,0.58297e+00,0.67784e+00,0.71417e+00,0.59305e+00 /) - kbo(:, 5,14,11) = (/ & - & 0.41367e+00,0.59430e+00,0.68136e+00,0.72200e+00,0.60202e+00 /) - kbo(:, 1,15,11) = (/ & - & 0.33634e+00,0.52577e+00,0.62172e+00,0.64383e+00,0.51752e+00 /) - kbo(:, 2,15,11) = (/ & - & 0.34434e+00,0.52795e+00,0.62601e+00,0.65389e+00,0.53138e+00 /) - kbo(:, 3,15,11) = (/ & - & 0.35278e+00,0.53440e+00,0.63064e+00,0.66483e+00,0.54288e+00 /) - kbo(:, 4,15,11) = (/ & - & 0.36194e+00,0.54564e+00,0.63643e+00,0.67473e+00,0.55371e+00 /) - kbo(:, 5,15,11) = (/ & - & 0.37392e+00,0.55836e+00,0.64562e+00,0.68317e+00,0.56497e+00 /) - kbo(:, 1,16,11) = (/ & - & 0.29938e+00,0.48063e+00,0.57442e+00,0.60090e+00,0.47563e+00 /) - kbo(:, 2,16,11) = (/ & - & 0.30677e+00,0.48684e+00,0.58100e+00,0.61362e+00,0.49008e+00 /) - kbo(:, 3,16,11) = (/ & - & 0.31495e+00,0.49797e+00,0.58852e+00,0.62578e+00,0.50309e+00 /) - kbo(:, 4,16,11) = (/ & - & 0.32635e+00,0.51101e+00,0.59933e+00,0.63613e+00,0.51641e+00 /) - kbo(:, 5,16,11) = (/ & - & 0.34098e+00,0.52383e+00,0.61318e+00,0.64534e+00,0.52976e+00 /) - kbo(:, 1,17,11) = (/ & - & 0.26573e+00,0.44123e+00,0.53003e+00,0.56054e+00,0.43533e+00 /) - kbo(:, 2,17,11) = (/ & - & 0.27295e+00,0.45155e+00,0.53872e+00,0.57479e+00,0.45023e+00 /) - kbo(:, 3,17,11) = (/ & - & 0.28334e+00,0.46499e+00,0.55060e+00,0.58775e+00,0.46535e+00 /) - kbo(:, 4,17,11) = (/ & - & 0.29718e+00,0.47854e+00,0.56610e+00,0.59925e+00,0.48105e+00 /) - kbo(:, 5,17,11) = (/ & - & 0.31347e+00,0.49215e+00,0.58364e+00,0.61031e+00,0.49645e+00 /) - kbo(:, 1,18,11) = (/ & - & 0.23548e+00,0.40722e+00,0.48899e+00,0.52175e+00,0.39754e+00 /) - kbo(:, 2,18,11) = (/ & - & 0.24465e+00,0.42091e+00,0.50155e+00,0.53754e+00,0.41400e+00 /) - kbo(:, 3,18,11) = (/ & - & 0.25717e+00,0.43494e+00,0.51756e+00,0.55168e+00,0.43132e+00 /) - kbo(:, 4,18,11) = (/ & - & 0.27241e+00,0.44915e+00,0.53619e+00,0.56524e+00,0.44875e+00 /) - kbo(:, 5,18,11) = (/ & - & 0.28792e+00,0.46398e+00,0.55551e+00,0.57930e+00,0.46590e+00 /) - kbo(:, 1,19,11) = (/ & - & 0.20944e+00,0.37826e+00,0.45234e+00,0.48406e+00,0.36392e+00 /) - kbo(:, 2,19,11) = (/ & - & 0.22089e+00,0.39288e+00,0.46903e+00,0.50178e+00,0.38211e+00 /) - kbo(:, 3,19,11) = (/ & - & 0.23514e+00,0.40761e+00,0.48827e+00,0.51821e+00,0.40103e+00 /) - kbo(:, 4,19,11) = (/ & - & 0.24973e+00,0.42303e+00,0.50894e+00,0.53472e+00,0.42003e+00 /) - kbo(:, 5,19,11) = (/ & - & 0.26400e+00,0.44033e+00,0.52950e+00,0.55236e+00,0.43892e+00 /) - kbo(:, 1,20,11) = (/ & - & 0.18773e+00,0.35288e+00,0.42094e+00,0.44918e+00,0.33536e+00 /) - kbo(:, 2,20,11) = (/ & - & 0.20090e+00,0.36792e+00,0.44069e+00,0.46887e+00,0.35493e+00 /) - kbo(:, 3,20,11) = (/ & - & 0.21482e+00,0.38362e+00,0.46266e+00,0.48831e+00,0.37530e+00 /) - kbo(:, 4,20,11) = (/ & - & 0.22865e+00,0.40117e+00,0.48452e+00,0.50881e+00,0.39557e+00 /) - kbo(:, 5,20,11) = (/ & - & 0.24234e+00,0.42087e+00,0.50657e+00,0.53012e+00,0.41595e+00 /) - kbo(:, 1,21,11) = (/ & - & 0.16913e+00,0.33019e+00,0.39388e+00,0.41795e+00,0.31127e+00 /) - kbo(:, 2,21,11) = (/ & - & 0.18253e+00,0.34600e+00,0.41645e+00,0.43947e+00,0.33210e+00 /) - kbo(:, 3,21,11) = (/ & - & 0.19592e+00,0.36350e+00,0.43977e+00,0.46279e+00,0.35347e+00 /) - kbo(:, 4,21,11) = (/ & - & 0.20921e+00,0.38317e+00,0.46337e+00,0.48719e+00,0.37483e+00 /) - kbo(:, 5,21,11) = (/ & - & 0.22258e+00,0.40476e+00,0.48708e+00,0.51206e+00,0.39691e+00 /) - kbo(:, 1,22,11) = (/ & - & 0.15329e+00,0.31121e+00,0.37219e+00,0.39211e+00,0.29266e+00 /) - kbo(:, 2,22,11) = (/ & - & 0.16615e+00,0.32878e+00,0.39682e+00,0.41672e+00,0.31445e+00 /) - kbo(:, 3,22,11) = (/ & - & 0.17924e+00,0.34835e+00,0.42167e+00,0.44342e+00,0.33660e+00 /) - kbo(:, 4,22,11) = (/ & - & 0.19225e+00,0.36990e+00,0.44699e+00,0.47133e+00,0.35944e+00 /) - kbo(:, 5,22,11) = (/ & - & 0.20541e+00,0.39323e+00,0.47271e+00,0.49943e+00,0.38308e+00 /) - kbo(:, 1,23,11) = (/ & - & 0.13887e+00,0.29534e+00,0.35451e+00,0.37144e+00,0.27763e+00 /) - kbo(:, 2,23,11) = (/ & - & 0.15131e+00,0.31502e+00,0.38068e+00,0.39927e+00,0.30013e+00 /) - kbo(:, 3,23,11) = (/ & - & 0.16398e+00,0.33651e+00,0.40726e+00,0.42913e+00,0.32331e+00 /) - kbo(:, 4,23,11) = (/ & - & 0.17699e+00,0.35967e+00,0.43436e+00,0.45990e+00,0.34758e+00 /) - kbo(:, 5,23,11) = (/ & - & 0.19026e+00,0.38467e+00,0.46223e+00,0.49074e+00,0.37282e+00 /) - kbo(:, 1,24,11) = (/ & - & 0.12585e+00,0.28281e+00,0.34015e+00,0.35619e+00,0.26580e+00 /) - kbo(:, 2,24,11) = (/ & - & 0.13791e+00,0.30436e+00,0.36812e+00,0.38675e+00,0.28903e+00 /) - kbo(:, 3,24,11) = (/ & - & 0.15049e+00,0.32769e+00,0.39648e+00,0.41925e+00,0.31342e+00 /) - kbo(:, 4,24,11) = (/ & - & 0.16367e+00,0.35256e+00,0.42575e+00,0.45270e+00,0.33923e+00 /) - kbo(:, 5,24,11) = (/ & - & 0.17705e+00,0.37855e+00,0.45558e+00,0.48562e+00,0.36598e+00 /) - kbo(:, 1,25,11) = (/ & - & 0.11440e+00,0.27340e+00,0.32939e+00,0.34570e+00,0.25676e+00 /) - kbo(:, 2,25,11) = (/ & - & 0.12619e+00,0.29667e+00,0.35918e+00,0.37882e+00,0.28103e+00 /) - kbo(:, 3,25,11) = (/ & - & 0.13880e+00,0.32182e+00,0.38965e+00,0.41370e+00,0.30678e+00 /) - kbo(:, 4,25,11) = (/ & - & 0.15209e+00,0.34806e+00,0.42076e+00,0.44907e+00,0.33404e+00 /) - kbo(:, 5,25,11) = (/ & - & 0.16564e+00,0.37478e+00,0.45238e+00,0.48364e+00,0.36209e+00 /) - kbo(:, 1,26,11) = (/ & - & 0.10459e+00,0.26698e+00,0.32246e+00,0.33976e+00,0.25076e+00 /) - kbo(:, 2,26,11) = (/ & - & 0.11626e+00,0.29209e+00,0.35422e+00,0.37512e+00,0.27618e+00 /) - kbo(:, 3,26,11) = (/ & - & 0.12895e+00,0.31885e+00,0.38669e+00,0.41203e+00,0.30332e+00 /) - kbo(:, 4,26,11) = (/ & - & 0.14230e+00,0.34607e+00,0.41933e+00,0.44889e+00,0.33190e+00 /) - kbo(:, 5,26,11) = (/ & - & 0.15605e+00,0.37346e+00,0.45243e+00,0.48462e+00,0.36103e+00 /) - kbo(:, 1,27,11) = (/ & - & 0.96118e-01,0.26319e+00,0.31888e+00,0.33748e+00,0.24718e+00 /) - kbo(:, 2,27,11) = (/ & - & 0.10777e+00,0.29006e+00,0.35247e+00,0.37471e+00,0.27379e+00 /) - kbo(:, 3,27,11) = (/ & - & 0.12054e+00,0.31789e+00,0.38657e+00,0.41315e+00,0.30239e+00 /) - kbo(:, 4,27,11) = (/ & - & 0.13403e+00,0.34597e+00,0.42050e+00,0.45108e+00,0.33196e+00 /) - kbo(:, 5,27,11) = (/ & - & 0.14803e+00,0.37409e+00,0.45469e+00,0.48753e+00,0.36202e+00 /) - kbo(:, 1,28,11) = (/ & - & 0.88934e-01,0.26189e+00,0.31824e+00,0.33815e+00,0.24575e+00 /) - kbo(:, 2,28,11) = (/ & - & 0.10066e+00,0.29004e+00,0.35339e+00,0.37699e+00,0.27368e+00 /) - kbo(:, 3,28,11) = (/ & - & 0.11346e+00,0.31878e+00,0.38868e+00,0.41646e+00,0.30334e+00 /) - kbo(:, 4,28,11) = (/ & - & 0.12719e+00,0.34746e+00,0.42368e+00,0.45510e+00,0.33384e+00 /) - kbo(:, 5,28,11) = (/ & - & 0.14149e+00,0.37622e+00,0.45856e+00,0.49189e+00,0.36458e+00 /) - kbo(:, 1,29,11) = (/ & - & 0.82953e-01,0.26276e+00,0.32032e+00,0.34153e+00,0.24649e+00 /) - kbo(:, 2,29,11) = (/ & - & 0.94812e-01,0.29186e+00,0.35678e+00,0.38153e+00,0.27563e+00 /) - kbo(:, 3,29,11) = (/ & - & 0.10778e+00,0.32138e+00,0.39278e+00,0.42163e+00,0.30623e+00 /) - kbo(:, 4,29,11) = (/ & - & 0.12182e+00,0.35053e+00,0.42853e+00,0.46064e+00,0.33743e+00 /) - kbo(:, 5,29,11) = (/ & - & 0.13655e+00,0.37990e+00,0.46387e+00,0.49754e+00,0.36866e+00 /) - kbo(:, 1,30,11) = (/ & - & 0.78111e-01,0.26530e+00,0.32451e+00,0.34680e+00,0.24893e+00 /) - kbo(:, 2,30,11) = (/ & - & 0.90075e-01,0.29517e+00,0.36183e+00,0.38763e+00,0.27915e+00 /) - kbo(:, 3,30,11) = (/ & - & 0.10336e+00,0.32522e+00,0.39838e+00,0.42809e+00,0.31046e+00 /) - kbo(:, 4,30,11) = (/ & - & 0.11787e+00,0.35483e+00,0.43455e+00,0.46718e+00,0.34218e+00 /) - kbo(:, 5,30,11) = (/ & - & 0.13307e+00,0.38452e+00,0.47003e+00,0.50395e+00,0.37368e+00 /) - kbo(:, 1,31,11) = (/ & - & 0.74235e-01,0.26927e+00,0.33033e+00,0.35368e+00,0.25294e+00 /) - kbo(:, 2,31,11) = (/ & - & 0.86475e-01,0.29980e+00,0.36814e+00,0.39505e+00,0.28398e+00 /) - kbo(:, 3,31,11) = (/ & - & 0.10025e+00,0.33020e+00,0.40500e+00,0.43563e+00,0.31586e+00 /) - kbo(:, 4,31,11) = (/ & - & 0.11530e+00,0.36008e+00,0.44151e+00,0.47461e+00,0.34790e+00 /) - kbo(:, 5,31,11) = (/ & - & 0.13103e+00,0.38989e+00,0.47695e+00,0.51108e+00,0.37953e+00 /) - kbo(:, 1,32,11) = (/ & - & 0.71362e-01,0.27445e+00,0.33748e+00,0.36171e+00,0.25820e+00 /) - kbo(:, 2,32,11) = (/ & - & 0.84060e-01,0.30547e+00,0.37545e+00,0.40335e+00,0.28988e+00 /) - kbo(:, 3,32,11) = (/ & - & 0.98456e-01,0.33600e+00,0.41253e+00,0.44393e+00,0.32217e+00 /) - kbo(:, 4,32,11) = (/ & - & 0.11408e+00,0.36612e+00,0.44914e+00,0.48266e+00,0.35443e+00 /) - kbo(:, 5,32,11) = (/ & - & 0.13035e+00,0.39590e+00,0.48448e+00,0.51873e+00,0.38602e+00 /) - kbo(:, 1,33,11) = (/ & - & 0.69437e-01,0.28056e+00,0.34548e+00,0.37055e+00,0.26439e+00 /) - kbo(:, 2,33,11) = (/ & - & 0.82778e-01,0.31179e+00,0.38345e+00,0.41222e+00,0.29653e+00 /) - kbo(:, 3,33,11) = (/ & - & 0.97818e-01,0.34234e+00,0.42058e+00,0.45271e+00,0.32902e+00 /) - kbo(:, 4,33,11) = (/ & - & 0.11406e+00,0.37264e+00,0.45719e+00,0.49102e+00,0.36138e+00 /) - kbo(:, 5,33,11) = (/ & - & 0.13083e+00,0.40228e+00,0.49234e+00,0.52669e+00,0.39293e+00 /) - kbo(:, 1,34,11) = (/ & - & 0.68001e-01,0.28611e+00,0.35258e+00,0.37843e+00,0.27007e+00 /) - kbo(:, 2,34,11) = (/ & - & 0.82015e-01,0.31742e+00,0.39059e+00,0.42007e+00,0.30253e+00 /) - kbo(:, 3,34,11) = (/ & - & 0.97684e-01,0.34800e+00,0.42777e+00,0.46038e+00,0.33518e+00 /) - kbo(:, 4,34,11) = (/ & - & 0.11453e+00,0.37836e+00,0.46423e+00,0.49832e+00,0.36754e+00 /) - kbo(:, 5,34,11) = (/ & - & 0.13165e+00,0.40799e+00,0.49927e+00,0.53358e+00,0.39902e+00 /) - kbo(:, 1,35,11) = (/ & - & 0.66173e-01,0.28901e+00,0.35634e+00,0.38261e+00,0.27305e+00 /) - kbo(:, 2,35,11) = (/ & - & 0.80679e-01,0.32036e+00,0.39443e+00,0.42428e+00,0.30572e+00 /) - kbo(:, 3,35,11) = (/ & - & 0.96839e-01,0.35097e+00,0.43164e+00,0.46448e+00,0.33845e+00 /) - kbo(:, 4,35,11) = (/ & - & 0.11412e+00,0.38139e+00,0.46804e+00,0.50225e+00,0.37079e+00 /) - kbo(:, 5,35,11) = (/ & - & 0.13154e+00,0.41104e+00,0.50302e+00,0.53730e+00,0.40230e+00 /) - kbo(:, 1,36,11) = (/ & - & 0.63512e-01,0.28876e+00,0.35615e+00,0.38246e+00,0.27277e+00 /) - kbo(:, 2,36,11) = (/ & - & 0.78322e-01,0.32017e+00,0.39440e+00,0.42423e+00,0.30554e+00 /) - kbo(:, 3,36,11) = (/ & - & 0.94792e-01,0.35084e+00,0.43169e+00,0.46451e+00,0.33835e+00 /) - kbo(:, 4,36,11) = (/ & - & 0.11239e+00,0.38129e+00,0.46814e+00,0.50234e+00,0.37075e+00 /) - kbo(:, 5,36,11) = (/ & - & 0.13007e+00,0.41105e+00,0.50318e+00,0.53745e+00,0.40235e+00 /) - kbo(:, 1,37,11) = (/ & - & 0.59276e-01,0.28388e+00,0.35018e+00,0.37605e+00,0.26777e+00 /) - kbo(:, 2,37,11) = (/ & - & 0.74070e-01,0.31543e+00,0.38877e+00,0.41809e+00,0.30055e+00 /) - kbo(:, 3,37,11) = (/ & - & 0.90621e-01,0.34621e+00,0.42622e+00,0.45870e+00,0.33345e+00 /) - kbo(:, 4,37,11) = (/ & - & 0.10838e+00,0.37677e+00,0.46291e+00,0.49695e+00,0.36598e+00 /) - kbo(:, 5,37,11) = (/ & - & 0.12629e+00,0.40664e+00,0.49817e+00,0.53255e+00,0.39771e+00 /) - kbo(:, 1,38,11) = (/ & - & 0.55352e-01,0.27885e+00,0.34399e+00,0.36943e+00,0.26263e+00 /) - kbo(:, 2,38,11) = (/ & - & 0.70099e-01,0.31053e+00,0.38289e+00,0.41165e+00,0.29537e+00 /) - kbo(:, 3,38,11) = (/ & - & 0.86674e-01,0.34144e+00,0.42052e+00,0.45261e+00,0.32834e+00 /) - kbo(:, 4,38,11) = (/ & - & 0.10451e+00,0.37207e+00,0.45745e+00,0.49130e+00,0.36103e+00 /) - kbo(:, 5,38,11) = (/ & - & 0.12261e+00,0.40208e+00,0.49291e+00,0.52735e+00,0.39288e+00 /) - kbo(:, 1,39,11) = (/ & - & 0.51830e-01,0.27388e+00,0.33795e+00,0.36294e+00,0.25765e+00 /) - kbo(:, 2,39,11) = (/ & - & 0.66473e-01,0.30570e+00,0.37709e+00,0.40534e+00,0.29029e+00 /) - kbo(:, 3,39,11) = (/ & - & 0.83032e-01,0.33678e+00,0.41490e+00,0.44656e+00,0.32332e+00 /) - kbo(:, 4,39,11) = (/ & - & 0.10089e+00,0.36746e+00,0.45203e+00,0.48569e+00,0.35615e+00 /) - kbo(:, 5,39,11) = (/ & - & 0.11914e+00,0.39759e+00,0.48773e+00,0.52218e+00,0.38813e+00 /) - kbo(:, 1,40,11) = (/ & - & 0.47273e-01,0.26566e+00,0.32789e+00,0.35219e+00,0.24948e+00 /) - kbo(:, 2,40,11) = (/ & - & 0.61538e-01,0.29768e+00,0.36730e+00,0.39473e+00,0.28193e+00 /) - kbo(:, 3,40,11) = (/ & - & 0.77858e-01,0.32903e+00,0.40551e+00,0.43635e+00,0.31499e+00 /) - kbo(:, 4,40,11) = (/ & - & 0.95580e-01,0.35975e+00,0.44288e+00,0.47617e+00,0.34794e+00 /) - kbo(:, 5,40,11) = (/ & - & 0.11394e+00,0.39008e+00,0.47900e+00,0.51333e+00,0.38020e+00 /) - kbo(:, 1,41,11) = (/ & - & 0.42888e-01,0.25708e+00,0.31732e+00,0.34096e+00,0.24098e+00 /) - kbo(:, 2,41,11) = (/ & - & 0.56697e-01,0.28927e+00,0.35696e+00,0.38355e+00,0.27327e+00 /) - kbo(:, 3,41,11) = (/ & - & 0.72702e-01,0.32083e+00,0.39561e+00,0.42555e+00,0.30626e+00 /) - kbo(:, 4,41,11) = (/ & - & 0.90227e-01,0.35164e+00,0.43315e+00,0.46599e+00,0.33930e+00 /) - kbo(:, 5,41,11) = (/ & - & 0.10861e+00,0.38219e+00,0.46971e+00,0.50385e+00,0.37183e+00 /) - kbo(:, 1,42,11) = (/ & - & 0.38819e-01,0.24850e+00,0.30677e+00,0.32968e+00,0.23256e+00 /) - kbo(:, 2,42,11) = (/ & - & 0.52147e-01,0.28080e+00,0.34660e+00,0.37239e+00,0.26466e+00 /) - kbo(:, 3,42,11) = (/ & - & 0.67768e-01,0.31263e+00,0.38564e+00,0.41466e+00,0.29758e+00 /) - kbo(:, 4,42,11) = (/ & - & 0.85041e-01,0.34356e+00,0.42336e+00,0.45563e+00,0.33065e+00 /) - kbo(:, 5,42,11) = (/ & - & 0.10335e+00,0.37426e+00,0.46032e+00,0.49419e+00,0.36339e+00 /) - kbo(:, 1,43,11) = (/ & - & 0.34406e-01,0.23801e+00,0.29406e+00,0.31601e+00,0.22240e+00 /) - kbo(:, 2,43,11) = (/ & - & 0.47048e-01,0.27050e+00,0.33401e+00,0.35883e+00,0.25435e+00 /) - kbo(:, 3,43,11) = (/ & - & 0.62114e-01,0.30257e+00,0.37337e+00,0.40135e+00,0.28701e+00 /) - kbo(:, 4,43,11) = (/ & - & 0.79018e-01,0.33381e+00,0.41146e+00,0.44285e+00,0.32012e+00 /) - kbo(:, 5,43,11) = (/ & - & 0.97123e-01,0.36459e+00,0.44877e+00,0.48229e+00,0.35311e+00 /) - kbo(:, 1,44,11) = (/ & - & 0.30068e-01,0.22661e+00,0.28047e+00,0.30141e+00,0.21157e+00 /) - kbo(:, 2,44,11) = (/ & - & 0.41934e-01,0.25939e+00,0.32031e+00,0.34420e+00,0.24331e+00 /) - kbo(:, 3,44,11) = (/ & - & 0.56334e-01,0.29165e+00,0.35997e+00,0.38686e+00,0.27569e+00 /) - kbo(:, 4,44,11) = (/ & - & 0.72738e-01,0.32319e+00,0.39860e+00,0.42881e+00,0.30880e+00 /) - kbo(:, 5,44,11) = (/ & - & 0.90538e-01,0.35407e+00,0.43616e+00,0.46913e+00,0.34187e+00 /) - kbo(:, 1,45,11) = (/ & - & 0.26090e-01,0.21511e+00,0.26705e+00,0.28701e+00,0.20089e+00 /) - kbo(:, 2,45,11) = (/ & - & 0.37182e-01,0.24828e+00,0.30662e+00,0.32954e+00,0.23239e+00 /) - kbo(:, 3,45,11) = (/ & - & 0.50828e-01,0.28069e+00,0.34649e+00,0.37235e+00,0.26452e+00 /) - kbo(:, 4,45,11) = (/ & - & 0.66683e-01,0.31254e+00,0.38562e+00,0.41465e+00,0.29751e+00 /) - kbo(:, 5,45,11) = (/ & - & 0.84110e-01,0.34354e+00,0.42341e+00,0.45565e+00,0.33061e+00 /) - kbo(:, 1,46,11) = (/ & - & 0.22282e-01,0.20276e+00,0.25300e+00,0.27194e+00,0.18966e+00 /) - kbo(:, 2,46,11) = (/ & - & 0.32494e-01,0.23634e+00,0.29212e+00,0.31397e+00,0.22083e+00 /) - kbo(:, 3,46,11) = (/ & - & 0.45322e-01,0.26893e+00,0.33209e+00,0.35685e+00,0.25276e+00 /) - kbo(:, 4,46,11) = (/ & - & 0.60492e-01,0.30105e+00,0.37160e+00,0.39945e+00,0.28546e+00 /) - kbo(:, 5,46,11) = (/ & - & 0.77449e-01,0.33241e+00,0.40979e+00,0.44100e+00,0.31859e+00 /) - kbo(:, 1,47,11) = (/ & - & 0.18534e-01,0.18898e+00,0.23758e+00,0.25552e+00,0.17724e+00 /) - kbo(:, 2,47,11) = (/ & - & 0.27732e-01,0.22283e+00,0.27608e+00,0.29673e+00,0.20806e+00 /) - kbo(:, 3,47,11) = (/ & - & 0.39604e-01,0.25581e+00,0.31589e+00,0.33953e+00,0.23975e+00 /) - kbo(:, 4,47,11) = (/ & - & 0.53911e-01,0.28814e+00,0.35568e+00,0.38226e+00,0.27210e+00 /) - kbo(:, 5,47,11) = (/ & - & 0.70242e-01,0.31982e+00,0.39452e+00,0.42435e+00,0.30521e+00 /) - kbo(:, 1,48,11) = (/ & - & 0.15230e-01,0.17512e+00,0.22238e+00,0.23953e+00,0.16496e+00 /) - kbo(:, 2,48,11) = (/ & - & 0.23424e-01,0.20917e+00,0.26028e+00,0.27977e+00,0.19549e+00 /) - kbo(:, 3,48,11) = (/ & - & 0.34289e-01,0.24261e+00,0.29967e+00,0.32213e+00,0.22686e+00 /) - kbo(:, 4,48,11) = (/ & - & 0.47677e-01,0.27510e+00,0.33967e+00,0.36502e+00,0.25892e+00 /) - kbo(:, 5,48,11) = (/ & - & 0.63303e-01,0.30711e+00,0.37902e+00,0.40749e+00,0.29180e+00 /) - kbo(:, 1,49,11) = (/ & - & 0.12348e-01,0.16145e+00,0.20748e+00,0.22396e+00,0.15290e+00 /) - kbo(:, 2,49,11) = (/ & - & 0.19656e-01,0.19547e+00,0.24481e+00,0.26319e+00,0.18304e+00 /) - kbo(:, 3,49,11) = (/ & - & 0.29411e-01,0.22922e+00,0.28358e+00,0.30484e+00,0.21403e+00 /) - kbo(:, 4,49,11) = (/ & - & 0.41852e-01,0.26199e+00,0.32356e+00,0.34774e+00,0.24589e+00 /) - kbo(:, 5,49,11) = (/ & - & 0.56641e-01,0.29425e+00,0.36325e+00,0.39043e+00,0.27839e+00 /) - kbo(:, 1,50,11) = (/ & - & 0.10059e-01,0.14901e+00,0.19385e+00,0.20977e+00,0.14182e+00 /) - kbo(:, 2,50,11) = (/ & - & 0.16439e-01,0.18255e+00,0.23049e+00,0.24806e+00,0.17150e+00 /) - kbo(:, 3,50,11) = (/ & - & 0.25328e-01,0.21656e+00,0.26875e+00,0.28888e+00,0.20219e+00 /) - kbo(:, 4,50,11) = (/ & - & 0.36730e-01,0.24971e+00,0.30839e+00,0.33151e+00,0.23378e+00 /) - kbo(:, 5,50,11) = (/ & - & 0.50682e-01,0.28213e+00,0.34832e+00,0.37432e+00,0.26599e+00 /) - kbo(:, 1,51,11) = (/ & - & 0.81000e-02,0.13718e+00,0.18086e+00,0.19633e+00,0.13125e+00 /) - kbo(:, 2,51,11) = (/ & - & 0.13663e-01,0.17002e+00,0.21682e+00,0.23372e+00,0.16044e+00 /) - kbo(:, 3,51,11) = (/ & - & 0.21646e-01,0.20410e+00,0.25452e+00,0.27362e+00,0.19085e+00 /) - kbo(:, 4,51,11) = (/ & - & 0.32117e-01,0.23766e+00,0.29370e+00,0.31573e+00,0.22210e+00 /) - kbo(:, 5,51,11) = (/ & - & 0.45217e-01,0.27026e+00,0.33377e+00,0.35865e+00,0.25409e+00 /) - kbo(:, 1,52,11) = (/ & - & 0.64392e-02,0.12568e+00,0.16814e+00,0.18321e+00,0.12091e+00 /) - kbo(:, 2,52,11) = (/ & - & 0.11223e-01,0.15773e+00,0.20341e+00,0.21973e+00,0.14959e+00 /) - kbo(:, 3,52,11) = (/ & - & 0.18327e-01,0.19165e+00,0.24057e+00,0.25870e+00,0.17960e+00 /) - kbo(:, 4,52,11) = (/ & - & 0.27978e-01,0.22553e+00,0.27924e+00,0.30015e+00,0.21055e+00 /) - kbo(:, 5,52,11) = (/ & - & 0.40066e-01,0.25840e+00,0.31913e+00,0.34300e+00,0.24233e+00 /) - kbo(:, 1,53,11) = (/ & - & 0.50582e-02,0.11452e+00,0.15565e+00,0.17040e+00,0.11082e+00 /) - kbo(:, 2,53,11) = (/ & - & 0.90986e-02,0.14571e+00,0.19026e+00,0.20608e+00,0.13891e+00 /) - kbo(:, 3,53,11) = (/ & - & 0.15360e-01,0.17911e+00,0.22674e+00,0.24415e+00,0.16845e+00 /) - kbo(:, 4,53,11) = (/ & - & 0.24079e-01,0.21320e+00,0.26488e+00,0.28473e+00,0.19911e+00 /) - kbo(:, 5,53,11) = (/ & - & 0.35249e-01,0.24647e+00,0.30443e+00,0.32725e+00,0.23061e+00 /) - kbo(:, 1,54,11) = (/ & - & 0.39947e-02,0.10467e+00,0.14438e+00,0.15895e+00,0.10183e+00 /) - kbo(:, 2,54,11) = (/ & - & 0.74123e-02,0.13495e+00,0.17842e+00,0.19384e+00,0.12928e+00 /) - kbo(:, 3,54,11) = (/ & - & 0.12928e-01,0.16768e+00,0.21428e+00,0.23108e+00,0.15838e+00 /) - kbo(:, 4,54,11) = (/ & - & 0.20817e-01,0.20178e+00,0.25191e+00,0.27082e+00,0.18875e+00 /) - kbo(:, 5,54,11) = (/ & - & 0.31131e-01,0.23540e+00,0.29100e+00,0.31283e+00,0.21994e+00 /) - kbo(:, 1,55,11) = (/ & - & 0.31444e-02,0.95645e-01,0.13357e+00,0.14821e+00,0.93456e-01 /) - kbo(:, 2,55,11) = (/ & - & 0.60192e-02,0.12488e+00,0.16728e+00,0.18235e+00,0.12022e+00 /) - kbo(:, 3,55,11) = (/ & - & 0.10844e-01,0.15692e+00,0.20255e+00,0.21884e+00,0.14887e+00 /) - kbo(:, 4,55,11) = (/ & - & 0.17966e-01,0.19085e+00,0.23968e+00,0.25776e+00,0.17889e+00 /) - kbo(:, 5,55,11) = (/ & - & 0.27575e-01,0.22475e+00,0.27833e+00,0.29920e+00,0.20981e+00 /) - kbo(:, 1,56,11) = (/ & - & 0.24408e-02,0.87042e-01,0.12294e+00,0.13774e+00,0.85384e-01 /) - kbo(:, 2,56,11) = (/ & - & 0.48425e-02,0.11512e+00,0.15634e+00,0.17115e+00,0.11140e+00 /) - kbo(:, 3,56,11) = (/ & - & 0.90070e-02,0.14641e+00,0.19103e+00,0.20689e+00,0.13953e+00 /) - kbo(:, 4,56,11) = (/ & - & 0.15384e-01,0.17987e+00,0.22757e+00,0.24502e+00,0.16913e+00 /) - kbo(:, 5,56,11) = (/ & - & 0.24183e-01,0.21396e+00,0.26576e+00,0.28569e+00,0.19980e+00 /) - kbo(:, 1,57,11) = (/ & - & 0.18661e-02,0.78869e-01,0.11259e+00,0.12744e+00,0.77594e-01 /) - kbo(:, 2,57,11) = (/ & - & 0.38393e-02,0.10567e+00,0.14558e+00,0.16018e+00,0.10279e+00 /) - kbo(:, 3,57,11) = (/ & - & 0.73986e-02,0.13611e+00,0.17972e+00,0.19518e+00,0.13032e+00 /) - kbo(:, 4,57,11) = (/ & - & 0.13057e-01,0.16895e+00,0.21565e+00,0.23253e+00,0.15951e+00 /) - kbo(:, 5,57,11) = (/ & - & 0.21059e-01,0.20305e+00,0.25335e+00,0.27238e+00,0.18989e+00 /) - kbo(:, 1,58,11) = (/ & - & 0.14289e-02,0.71481e-01,0.10314e+00,0.11789e+00,0.70461e-01 /) - kbo(:, 2,58,11) = (/ & - & 0.30447e-02,0.97100e-01,0.13537e+00,0.15001e+00,0.94840e-01 /) - kbo(:, 3,58,11) = (/ & - & 0.60785e-02,0.12656e+00,0.16917e+00,0.18428e+00,0.12173e+00 /) - kbo(:, 4,58,11) = (/ & - & 0.11073e-01,0.15875e+00,0.20453e+00,0.22090e+00,0.15049e+00 /) - kbo(:, 5,58,11) = (/ & - & 0.18344e-01,0.19271e+00,0.24175e+00,0.25997e+00,0.18056e+00 /) - kbo(:, 1,59,11) = (/ & - & 0.12466e-02,0.68608e-01,0.99449e-01,0.11409e+00,0.67679e-01 /) - kbo(:, 2,59,11) = (/ & - & 0.27400e-02,0.93756e-01,0.13130e+00,0.14598e+00,0.91727e-01 /) - kbo(:, 3,59,11) = (/ & - & 0.55829e-02,0.12280e+00,0.16498e+00,0.17997e+00,0.11835e+00 /) - kbo(:, 4,59,11) = (/ & - & 0.10327e-01,0.15471e+00,0.20012e+00,0.21632e+00,0.14691e+00 /) - kbo(:, 5,59,11) = (/ & - & 0.17312e-01,0.18856e+00,0.23714e+00,0.25511e+00,0.17685e+00 /) - kbo(:, 1,13,12) = (/ & - & 0.97672e+00,0.12351e+01,0.13467e+01,0.13355e+01,0.11350e+01 /) - kbo(:, 2,13,12) = (/ & - & 0.96517e+00,0.12326e+01,0.13523e+01,0.13488e+01,0.11500e+01 /) - kbo(:, 3,13,12) = (/ & - & 0.95359e+00,0.12308e+01,0.13576e+01,0.13588e+01,0.11629e+01 /) - kbo(:, 4,13,12) = (/ & - & 0.94644e+00,0.12294e+01,0.13618e+01,0.13660e+01,0.11761e+01 /) - kbo(:, 5,13,12) = (/ & - & 0.94938e+00,0.12277e+01,0.13647e+01,0.13713e+01,0.11895e+01 /) - kbo(:, 1,14,12) = (/ & - & 0.86287e+00,0.11528e+01,0.12800e+01,0.12931e+01,0.10793e+01 /) - kbo(:, 2,14,12) = (/ & - & 0.85328e+00,0.11519e+01,0.12878e+01,0.13082e+01,0.10960e+01 /) - kbo(:, 3,14,12) = (/ & - & 0.84776e+00,0.11522e+01,0.12944e+01,0.13193e+01,0.11122e+01 /) - kbo(:, 4,14,12) = (/ & - & 0.85264e+00,0.11532e+01,0.12995e+01,0.13287e+01,0.11288e+01 /) - kbo(:, 5,14,12) = (/ & - & 0.86761e+00,0.11556e+01,0.13039e+01,0.13378e+01,0.11458e+01 /) - kbo(:, 1,15,12) = (/ & - & 0.75595e+00,0.10736e+01,0.12146e+01,0.12437e+01,0.10230e+01 /) - kbo(:, 2,15,12) = (/ & - & 0.75063e+00,0.10744e+01,0.12248e+01,0.12603e+01,0.10430e+01 /) - kbo(:, 3,15,12) = (/ & - & 0.75594e+00,0.10769e+01,0.12334e+01,0.12743e+01,0.10635e+01 /) - kbo(:, 4,15,12) = (/ & - & 0.77107e+00,0.10807e+01,0.12402e+01,0.12881e+01,0.10841e+01 /) - kbo(:, 5,15,12) = (/ & - & 0.79469e+00,0.10902e+01,0.12461e+01,0.13012e+01,0.11031e+01 /) - kbo(:, 1,16,12) = (/ & - & 0.66063e+00,0.99640e+00,0.11502e+01,0.11902e+01,0.96912e+00 /) - kbo(:, 2,16,12) = (/ & - & 0.66454e+00,0.10001e+01,0.11634e+01,0.12095e+01,0.99257e+00 /) - kbo(:, 3,16,12) = (/ & - & 0.67895e+00,0.10049e+01,0.11739e+01,0.12282e+01,0.10170e+01 /) - kbo(:, 4,16,12) = (/ & - & 0.70145e+00,0.10153e+01,0.11833e+01,0.12469e+01,0.10404e+01 /) - kbo(:, 5,16,12) = (/ & - & 0.72525e+00,0.10330e+01,0.11925e+01,0.12646e+01,0.10610e+01 /) - kbo(:, 1,17,12) = (/ & - & 0.58214e+00,0.92297e+00,0.10896e+01,0.11346e+01,0.91647e+00 /) - kbo(:, 2,17,12) = (/ & - & 0.59400e+00,0.92929e+00,0.11045e+01,0.11590e+01,0.94550e+00 /) - kbo(:, 3,17,12) = (/ & - & 0.61460e+00,0.94000e+00,0.11172e+01,0.11832e+01,0.97371e+00 /) - kbo(:, 4,17,12) = (/ & - & 0.63691e+00,0.95830e+00,0.11303e+01,0.12071e+01,0.99891e+00 /) - kbo(:, 5,17,12) = (/ & - & 0.66003e+00,0.98295e+00,0.11440e+01,0.12298e+01,0.10215e+01 /) - kbo(:, 1,18,12) = (/ & - & 0.51831e+00,0.85586e+00,0.10313e+01,0.10823e+01,0.86734e+00 /) - kbo(:, 2,18,12) = (/ & - & 0.53638e+00,0.86645e+00,0.10487e+01,0.11114e+01,0.90071e+00 /) - kbo(:, 3,18,12) = (/ & - & 0.55679e+00,0.88410e+00,0.10657e+01,0.11407e+01,0.93149e+00 /) - kbo(:, 4,18,12) = (/ & - & 0.57819e+00,0.90902e+00,0.10831e+01,0.11693e+01,0.95937e+00 /) - kbo(:, 5,18,12) = (/ & - & 0.60387e+00,0.94010e+00,0.11032e+01,0.11966e+01,0.98550e+00 /) - kbo(:, 1,19,12) = (/ & - & 0.46547e+00,0.79533e+00,0.97579e+00,0.10353e+01,0.82208e+00 /) - kbo(:, 2,19,12) = (/ & - & 0.48441e+00,0.81281e+00,0.99768e+00,0.10690e+01,0.85858e+00 /) - kbo(:, 3,19,12) = (/ & - & 0.50438e+00,0.83723e+00,0.10197e+01,0.11027e+01,0.89202e+00 /) - kbo(:, 4,19,12) = (/ & - & 0.52861e+00,0.86772e+00,0.10433e+01,0.11355e+01,0.92298e+00 /) - kbo(:, 5,19,12) = (/ & - & 0.55711e+00,0.90301e+00,0.10701e+01,0.11672e+01,0.95266e+00 /) - kbo(:, 1,20,12) = (/ & - & 0.41965e+00,0.74319e+00,0.92508e+00,0.99412e+00,0.78089e+00 /) - kbo(:, 2,20,12) = (/ & - & 0.43802e+00,0.76766e+00,0.95235e+00,0.10327e+01,0.82017e+00 /) - kbo(:, 3,20,12) = (/ & - & 0.46025e+00,0.79818e+00,0.98022e+00,0.10706e+01,0.85677e+00 /) - kbo(:, 4,20,12) = (/ & - & 0.48727e+00,0.83370e+00,0.10109e+01,0.11072e+01,0.89127e+00 /) - kbo(:, 5,20,12) = (/ & - & 0.51863e+00,0.87091e+00,0.10440e+01,0.11423e+01,0.92433e+00 /) - kbo(:, 1,21,12) = (/ & - & 0.37915e+00,0.69998e+00,0.88069e+00,0.95835e+00,0.74387e+00 /) - kbo(:, 2,21,12) = (/ & - & 0.39885e+00,0.72965e+00,0.91291e+00,0.10022e+01,0.78645e+00 /) - kbo(:, 3,21,12) = (/ & - & 0.42350e+00,0.76561e+00,0.94765e+00,0.10443e+01,0.82639e+00 /) - kbo(:, 4,21,12) = (/ & - & 0.45298e+00,0.80432e+00,0.98473e+00,0.10842e+01,0.86477e+00 /) - kbo(:, 5,21,12) = (/ & - & 0.48674e+00,0.84344e+00,0.10236e+01,0.11221e+01,0.90082e+00 /) - kbo(:, 1,22,12) = (/ & - & 0.34554e+00,0.66631e+00,0.84565e+00,0.93193e+00,0.71462e+00 /) - kbo(:, 2,22,12) = (/ & - & 0.36807e+00,0.70096e+00,0.88353e+00,0.98021e+00,0.76038e+00 /) - kbo(:, 3,22,12) = (/ & - & 0.39520e+00,0.74099e+00,0.92460e+00,0.10260e+01,0.80381e+00 /) - kbo(:, 4,22,12) = (/ & - & 0.42700e+00,0.78213e+00,0.96750e+00,0.10688e+01,0.84544e+00 /) - kbo(:, 5,22,12) = (/ & - & 0.46306e+00,0.82357e+00,0.10116e+01,0.11089e+01,0.88444e+00 /) - kbo(:, 1,23,12) = (/ & - & 0.31790e+00,0.64007e+00,0.81825e+00,0.91240e+00,0.69117e+00 /) - kbo(:, 2,23,12) = (/ & - & 0.34313e+00,0.67943e+00,0.86200e+00,0.96400e+00,0.74026e+00 /) - kbo(:, 3,23,12) = (/ & - & 0.37292e+00,0.72179e+00,0.90853e+00,0.10128e+01,0.78692e+00 /) - kbo(:, 4,23,12) = (/ & - & 0.40683e+00,0.76528e+00,0.95638e+00,0.10584e+01,0.83132e+00 /) - kbo(:, 5,23,12) = (/ & - & 0.44434e+00,0.80906e+00,0.10049e+01,0.11007e+01,0.87324e+00 /) - kbo(:, 1,24,12) = (/ & - & 0.29587e+00,0.62091e+00,0.79898e+00,0.89859e+00,0.67383e+00 /) - kbo(:, 2,24,12) = (/ & - & 0.32356e+00,0.66370e+00,0.84800e+00,0.95354e+00,0.72591e+00 /) - kbo(:, 3,24,12) = (/ & - & 0.35587e+00,0.70805e+00,0.89882e+00,0.10049e+01,0.77551e+00 /) - kbo(:, 4,24,12) = (/ & - & 0.39090e+00,0.75345e+00,0.95073e+00,0.10524e+01,0.82233e+00 /) - kbo(:, 5,24,12) = (/ & - & 0.42938e+00,0.80019e+00,0.10026e+01,0.10965e+01,0.86634e+00 /) - kbo(:, 1,25,12) = (/ & - & 0.27857e+00,0.60799e+00,0.78705e+00,0.89081e+00,0.66256e+00 /) - kbo(:, 2,25,12) = (/ & - & 0.30889e+00,0.65303e+00,0.84032e+00,0.94841e+00,0.71733e+00 /) - kbo(:, 3,25,12) = (/ & - & 0.34245e+00,0.69924e+00,0.89488e+00,0.10015e+01,0.76917e+00 /) - kbo(:, 4,25,12) = (/ & - & 0.37871e+00,0.74693e+00,0.95015e+00,0.10506e+01,0.81807e+00 /) - kbo(:, 5,25,12) = (/ & - & 0.41833e+00,0.79644e+00,0.10044e+01,0.10958e+01,0.86374e+00 /) - kbo(:, 1,26,12) = (/ & - & 0.26580e+00,0.60063e+00,0.78228e+00,0.88879e+00,0.65720e+00 /) - kbo(:, 2,26,12) = (/ & - & 0.29790e+00,0.64759e+00,0.83895e+00,0.94821e+00,0.71439e+00 /) - kbo(:, 3,26,12) = (/ & - & 0.33261e+00,0.69574e+00,0.89642e+00,0.10025e+01,0.76782e+00 /) - kbo(:, 4,26,12) = (/ & - & 0.37054e+00,0.74591e+00,0.95396e+00,0.10524e+01,0.81818e+00 /) - kbo(:, 5,26,12) = (/ & - & 0.41158e+00,0.79751e+00,0.10099e+01,0.10981e+01,0.86507e+00 /) - kbo(:, 1,27,12) = (/ & - & 0.25628e+00,0.59727e+00,0.78261e+00,0.89115e+00,0.65648e+00 /) - kbo(:, 2,27,12) = (/ & - & 0.28973e+00,0.64617e+00,0.84187e+00,0.95137e+00,0.71531e+00 /) - kbo(:, 3,27,12) = (/ & - & 0.32602e+00,0.69640e+00,0.90149e+00,0.10062e+01,0.76992e+00 /) - kbo(:, 4,27,12) = (/ & - & 0.36566e+00,0.74858e+00,0.96067e+00,0.10565e+01,0.82130e+00 /) - kbo(:, 5,27,12) = (/ & - & 0.40839e+00,0.80160e+00,0.10174e+01,0.11025e+01,0.86892e+00 /) - kbo(:, 1,28,12) = (/ & - & 0.24931e+00,0.59767e+00,0.78703e+00,0.89664e+00,0.65970e+00 /) - kbo(:, 2,28,12) = (/ & - & 0.28438e+00,0.64828e+00,0.84808e+00,0.95711e+00,0.71948e+00 /) - kbo(:, 3,28,12) = (/ & - & 0.32259e+00,0.70046e+00,0.90930e+00,0.10123e+01,0.77494e+00 /) - kbo(:, 4,28,12) = (/ & - & 0.36394e+00,0.75423e+00,0.96943e+00,0.10625e+01,0.82683e+00 /) - kbo(:, 5,28,12) = (/ & - & 0.40857e+00,0.80828e+00,0.10265e+01,0.11085e+01,0.87457e+00 /) - kbo(:, 1,29,12) = (/ & - & 0.24529e+00,0.60153e+00,0.79470e+00,0.90469e+00,0.66635e+00 /) - kbo(:, 2,29,12) = (/ & - & 0.28215e+00,0.65374e+00,0.85707e+00,0.96518e+00,0.72659e+00 /) - kbo(:, 3,29,12) = (/ & - & 0.32237e+00,0.70744e+00,0.91955e+00,0.10202e+01,0.78233e+00 /) - kbo(:, 4,29,12) = (/ & - & 0.36548e+00,0.76246e+00,0.98006e+00,0.10704e+01,0.83435e+00 /) - kbo(:, 5,29,12) = (/ & - & 0.41179e+00,0.81715e+00,0.10368e+01,0.11160e+01,0.88198e+00 /) - kbo(:, 1,30,12) = (/ & - & 0.24386e+00,0.60816e+00,0.80473e+00,0.91460e+00,0.67543e+00 /) - kbo(:, 2,30,12) = (/ & - & 0.28279e+00,0.66165e+00,0.86804e+00,0.97470e+00,0.73566e+00 /) - kbo(:, 3,30,12) = (/ & - & 0.32483e+00,0.71650e+00,0.93115e+00,0.10292e+01,0.79124e+00 /) - kbo(:, 4,30,12) = (/ & - & 0.36954e+00,0.77208e+00,0.99158e+00,0.10790e+01,0.84299e+00 /) - kbo(:, 5,30,12) = (/ & - & 0.41749e+00,0.82738e+00,0.10478e+01,0.11245e+01,0.89039e+00 /) - kbo(:, 1,31,12) = (/ & - & 0.24525e+00,0.61702e+00,0.81682e+00,0.92621e+00,0.68640e+00 /) - kbo(:, 2,31,12) = (/ & - & 0.28616e+00,0.67142e+00,0.88072e+00,0.98550e+00,0.74643e+00 /) - kbo(:, 3,31,12) = (/ & - & 0.32989e+00,0.72710e+00,0.94409e+00,0.10393e+01,0.80152e+00 /) - kbo(:, 4,31,12) = (/ & - & 0.37609e+00,0.78314e+00,0.10041e+01,0.10886e+01,0.85269e+00 /) - kbo(:, 5,31,12) = (/ & - & 0.42530e+00,0.83896e+00,0.10596e+01,0.11338e+01,0.89957e+00 /) - kbo(:, 1,32,12) = (/ & - & 0.24917e+00,0.62738e+00,0.83018e+00,0.93886e+00,0.69870e+00 /) - kbo(:, 2,32,12) = (/ & - & 0.29180e+00,0.68257e+00,0.89466e+00,0.99723e+00,0.75819e+00 /) - kbo(:, 3,32,12) = (/ & - & 0.33695e+00,0.73898e+00,0.95783e+00,0.10503e+01,0.81270e+00 /) - kbo(:, 4,32,12) = (/ & - & 0.38441e+00,0.79527e+00,0.10172e+01,0.10987e+01,0.86313e+00 /) - kbo(:, 5,32,12) = (/ & - & 0.43473e+00,0.85145e+00,0.10718e+01,0.11436e+01,0.90933e+00 /) - kbo(:, 1,33,12) = (/ & - & 0.25524e+00,0.63888e+00,0.84456e+00,0.95208e+00,0.71177e+00 /) - kbo(:, 2,33,12) = (/ & - & 0.29923e+00,0.69477e+00,0.90943e+00,0.10094e+01,0.77043e+00 /) - kbo(:, 3,33,12) = (/ & - & 0.34555e+00,0.75166e+00,0.97211e+00,0.10616e+01,0.82442e+00 /) - kbo(:, 4,33,12) = (/ & - & 0.39409e+00,0.80804e+00,0.10306e+01,0.11094e+01,0.87396e+00 /) - kbo(:, 5,33,12) = (/ & - & 0.44532e+00,0.86454e+00,0.10842e+01,0.11536e+01,0.91947e+00 /) - kbo(:, 1,34,12) = (/ & - & 0.26139e+00,0.64937e+00,0.85738e+00,0.96358e+00,0.72330e+00 /) - kbo(:, 2,34,12) = (/ & - & 0.30644e+00,0.70578e+00,0.92238e+00,0.10200e+01,0.78117e+00 /) - kbo(:, 3,34,12) = (/ & - & 0.35368e+00,0.76284e+00,0.98445e+00,0.10715e+01,0.83457e+00 /) - kbo(:, 4,34,12) = (/ & - & 0.40294e+00,0.81944e+00,0.10421e+01,0.11185e+01,0.88331e+00 /) - kbo(:, 5,34,12) = (/ & - & 0.45497e+00,0.87610e+00,0.10949e+01,0.11623e+01,0.92821e+00 /) - kbo(:, 1,35,12) = (/ & - & 0.26429e+00,0.65495e+00,0.86437e+00,0.96967e+00,0.72944e+00 /) - kbo(:, 2,35,12) = (/ & - & 0.31003e+00,0.71171e+00,0.92940e+00,0.10257e+01,0.78687e+00 /) - kbo(:, 3,35,12) = (/ & - & 0.35779e+00,0.76892e+00,0.99113e+00,0.10767e+01,0.83993e+00 /) - kbo(:, 4,35,12) = (/ & - & 0.40757e+00,0.82572e+00,0.10483e+01,0.11235e+01,0.88834e+00 /) - kbo(:, 5,35,12) = (/ & - & 0.46005e+00,0.88243e+00,0.11007e+01,0.11671e+01,0.93291e+00 /) - kbo(:, 1,36,12) = (/ & - & 0.26301e+00,0.65478e+00,0.86458e+00,0.96965e+00,0.72937e+00 /) - kbo(:, 2,36,12) = (/ & - & 0.30906e+00,0.71167e+00,0.92967e+00,0.10257e+01,0.78687e+00 /) - kbo(:, 3,36,12) = (/ & - & 0.35709e+00,0.76907e+00,0.99151e+00,0.10769e+01,0.84005e+00 /) - kbo(:, 4,36,12) = (/ & - & 0.40702e+00,0.82602e+00,0.10488e+01,0.11238e+01,0.88850e+00 /) - kbo(:, 5,36,12) = (/ & - & 0.45966e+00,0.88282e+00,0.11012e+01,0.11674e+01,0.93315e+00 /) - kbo(:, 1,37,12) = (/ & - & 0.25532e+00,0.64621e+00,0.85496e+00,0.96073e+00,0.72018e+00 /) - kbo(:, 2,37,12) = (/ & - & 0.30133e+00,0.70315e+00,0.92046e+00,0.10178e+01,0.77861e+00 /) - kbo(:, 3,37,12) = (/ & - & 0.34928e+00,0.76070e+00,0.98300e+00,0.10697e+01,0.83253e+00 /) - kbo(:, 4,37,12) = (/ & - & 0.39901e+00,0.81782e+00,0.10410e+01,0.11173e+01,0.88173e+00 /) - kbo(:, 5,37,12) = (/ & - & 0.45136e+00,0.87470e+00,0.10942e+01,0.11614e+01,0.92694e+00 /) - kbo(:, 1,38,12) = (/ & - & 0.24761e+00,0.63742e+00,0.84491e+00,0.95139e+00,0.71066e+00 /) - kbo(:, 2,38,12) = (/ & - & 0.29353e+00,0.69428e+00,0.91068e+00,0.10095e+01,0.76992e+00 /) - kbo(:, 3,38,12) = (/ & - & 0.34135e+00,0.75196e+00,0.97396e+00,0.10621e+01,0.82461e+00 /) - kbo(:, 4,38,12) = (/ & - & 0.39084e+00,0.80925e+00,0.10327e+01,0.11104e+01,0.87459e+00 /) - kbo(:, 5,38,12) = (/ & - & 0.44289e+00,0.86617e+00,0.10866e+01,0.11550e+01,0.92038e+00 /) - kbo(:, 1,39,12) = (/ & - & 0.24017e+00,0.62886e+00,0.83503e+00,0.94210e+00,0.70124e+00 /) - kbo(:, 2,39,12) = (/ & - & 0.28601e+00,0.68569e+00,0.90106e+00,0.10011e+01,0.76142e+00 /) - kbo(:, 3,39,12) = (/ & - & 0.33368e+00,0.74335e+00,0.96490e+00,0.10546e+01,0.81673e+00 /) - kbo(:, 4,39,12) = (/ & - & 0.38296e+00,0.80081e+00,0.10243e+01,0.11035e+01,0.86747e+00 /) - kbo(:, 5,39,12) = (/ & - & 0.43465e+00,0.85778e+00,0.10791e+01,0.11488e+01,0.91385e+00 /) - kbo(:, 1,40,12) = (/ & - & 0.22833e+00,0.61463e+00,0.81821e+00,0.92620e+00,0.68530e+00 /) - kbo(:, 2,40,12) = (/ & - & 0.27395e+00,0.67134e+00,0.88467e+00,0.98686e+00,0.74688e+00 /) - kbo(:, 3,40,12) = (/ & - & 0.32124e+00,0.72890e+00,0.94943e+00,0.10418e+01,0.80324e+00 /) - kbo(:, 4,40,12) = (/ & - & 0.37015e+00,0.78652e+00,0.10100e+01,0.10918e+01,0.85523e+00 /) - kbo(:, 5,40,12) = (/ & - & 0.42126e+00,0.84372e+00,0.10660e+01,0.11379e+01,0.90264e+00 /) - kbo(:, 1,41,12) = (/ & - & 0.21612e+00,0.59971e+00,0.80041e+00,0.90904e+00,0.66824e+00 /) - kbo(:, 2,41,12) = (/ & - & 0.26150e+00,0.65630e+00,0.86743e+00,0.97155e+00,0.73120e+00 /) - kbo(:, 3,41,12) = (/ & - & 0.30837e+00,0.71376e+00,0.93288e+00,0.10279e+01,0.78880e+00 /) - kbo(:, 4,41,12) = (/ & - & 0.35698e+00,0.77150e+00,0.99473e+00,0.10791e+01,0.84209e+00 /) - kbo(:, 5,41,12) = (/ & - & 0.40745e+00,0.82887e+00,0.10519e+01,0.11261e+01,0.89062e+00 /) - kbo(:, 1,42,12) = (/ & - & 0.20417e+00,0.58472e+00,0.78237e+00,0.89154e+00,0.65066e+00 /) - kbo(:, 2,42,12) = (/ & - & 0.24921e+00,0.64136e+00,0.85007e+00,0.95580e+00,0.71510e+00 /) - kbo(:, 3,42,12) = (/ & - & 0.29566e+00,0.69861e+00,0.91611e+00,0.10137e+01,0.77414e+00 /) - kbo(:, 4,42,12) = (/ & - & 0.34395e+00,0.75651e+00,0.97922e+00,0.10662e+01,0.82865e+00 /) - kbo(:, 5,42,12) = (/ & - & 0.39383e+00,0.81397e+00,0.10376e+01,0.11142e+01,0.87842e+00 /) - kbo(:, 1,43,12) = (/ & - & 0.18997e+00,0.56647e+00,0.76032e+00,0.86976e+00,0.62901e+00 /) - kbo(:, 2,43,12) = (/ & - & 0.23447e+00,0.62342e+00,0.82892e+00,0.93617e+00,0.69524e+00 /) - kbo(:, 3,43,12) = (/ & - & 0.28050e+00,0.68037e+00,0.89544e+00,0.99597e+00,0.75607e+00 /) - kbo(:, 4,43,12) = (/ & - & 0.32830e+00,0.73817e+00,0.95981e+00,0.10502e+01,0.81194e+00 /) - kbo(:, 5,43,12) = (/ & - & 0.37763e+00,0.79580e+00,0.10196e+01,0.10995e+01,0.86317e+00 /) - kbo(:, 1,44,12) = (/ & - & 0.17494e+00,0.54678e+00,0.73637e+00,0.84544e+00,0.60542e+00 /) - kbo(:, 2,44,12) = (/ & - & 0.21877e+00,0.60406e+00,0.80575e+00,0.91415e+00,0.67322e+00 /) - kbo(:, 3,44,12) = (/ & - & 0.26445e+00,0.66075e+00,0.87287e+00,0.97625e+00,0.73598e+00 /) - kbo(:, 4,44,12) = (/ & - & 0.31161e+00,0.71841e+00,0.93827e+00,0.10322e+01,0.79326e+00 /) - kbo(:, 5,44,12) = (/ & - & 0.36052e+00,0.77622e+00,0.99972e+00,0.10831e+01,0.84620e+00 /) - kbo(:, 1,45,12) = (/ & - & 0.16016e+00,0.52729e+00,0.71224e+00,0.82038e+00,0.58172e+00 /) - kbo(:, 2,45,12) = (/ & - & 0.20336e+00,0.58455e+00,0.78227e+00,0.89144e+00,0.65050e+00 /) - kbo(:, 3,45,12) = (/ & - & 0.24861e+00,0.64128e+00,0.85023e+00,0.95584e+00,0.71509e+00 /) - kbo(:, 4,45,12) = (/ & - & 0.29518e+00,0.69870e+00,0.91640e+00,0.10138e+01,0.77417e+00 /) - kbo(:, 5,45,12) = (/ & - & 0.34361e+00,0.75661e+00,0.97947e+00,0.10663e+01,0.82874e+00 /) - kbo(:, 1,46,12) = (/ & - & 0.14495e+00,0.50668e+00,0.68614e+00,0.79268e+00,0.55619e+00 /) - kbo(:, 2,46,12) = (/ & - & 0.18729e+00,0.56366e+00,0.75707e+00,0.86650e+00,0.62580e+00 /) - kbo(:, 3,46,12) = (/ & - & 0.23189e+00,0.62077e+00,0.82600e+00,0.93336e+00,0.69232e+00 /) - kbo(:, 4,46,12) = (/ & - & 0.27798e+00,0.67784e+00,0.89269e+00,0.99345e+00,0.75352e+00 /) - kbo(:, 5,46,12) = (/ & - & 0.32583e+00,0.73560e+00,0.95715e+00,0.10480e+01,0.80957e+00 /) - kbo(:, 1,47,12) = (/ & - & 0.12858e+00,0.48369e+00,0.65638e+00,0.76017e+00,0.52730e+00 /) - kbo(:, 2,47,12) = (/ & - & 0.16969e+00,0.54041e+00,0.72859e+00,0.83745e+00,0.59783e+00 /) - kbo(:, 3,47,12) = (/ & - & 0.21344e+00,0.59783e+00,0.79837e+00,0.90704e+00,0.66606e+00 /) - kbo(:, 4,47,12) = (/ & - & 0.25910e+00,0.65455e+00,0.86586e+00,0.96989e+00,0.72949e+00 /) - kbo(:, 5,47,12) = (/ & - & 0.30618e+00,0.71222e+00,0.93155e+00,0.10265e+01,0.78728e+00 /) - kbo(:, 1,48,12) = (/ & - & 0.11298e+00,0.46082e+00,0.62642e+00,0.72640e+00,0.49809e+00 /) - kbo(:, 2,48,12) = (/ & - & 0.15246e+00,0.51740e+00,0.69983e+00,0.80735e+00,0.56961e+00 /) - kbo(:, 3,48,12) = (/ & - & 0.19539e+00,0.57459e+00,0.77041e+00,0.87978e+00,0.63885e+00 /) - kbo(:, 4,48,12) = (/ & - & 0.24045e+00,0.63157e+00,0.83892e+00,0.94534e+00,0.70441e+00 /) - kbo(:, 5,48,12) = (/ & - & 0.28683e+00,0.68881e+00,0.90534e+00,0.10043e+01,0.76449e+00 /) - kbo(:, 1,49,12) = (/ & - & 0.98247e-01,0.43787e+00,0.59630e+00,0.69142e+00,0.46886e+00 /) - kbo(:, 2,49,12) = (/ & - & 0.13602e+00,0.49453e+00,0.67051e+00,0.77567e+00,0.54098e+00 /) - kbo(:, 3,49,12) = (/ & - & 0.17773e+00,0.55136e+00,0.74221e+00,0.85142e+00,0.61109e+00 /) - kbo(:, 4,49,12) = (/ & - & 0.22196e+00,0.60876e+00,0.81162e+00,0.91969e+00,0.67863e+00 /) - kbo(:, 5,49,12) = (/ & - & 0.26789e+00,0.66564e+00,0.87866e+00,0.98128e+00,0.74108e+00 /) - kbo(:, 1,50,12) = (/ & - & 0.85448e-01,0.41621e+00,0.56763e+00,0.65757e+00,0.44117e+00 /) - kbo(:, 2,50,12) = (/ & - & 0.12109e+00,0.47310e+00,0.64247e+00,0.74462e+00,0.51379e+00 /) - kbo(:, 3,50,12) = (/ & - & 0.16156e+00,0.52985e+00,0.71554e+00,0.82373e+00,0.58488e+00 /) - kbo(:, 4,50,12) = (/ & - & 0.20488e+00,0.58711e+00,0.78559e+00,0.89468e+00,0.65362e+00 /) - kbo(:, 5,50,12) = (/ & - & 0.25037e+00,0.64398e+00,0.85353e+00,0.95880e+00,0.71804e+00 /) - kbo(:, 1,51,12) = (/ & - & 0.73759e-01,0.39485e+00,0.53977e+00,0.62407e+00,0.41437e+00 /) - kbo(:, 2,51,12) = (/ & - & 0.10727e+00,0.45237e+00,0.61531e+00,0.71353e+00,0.48727e+00 /) - kbo(:, 3,51,12) = (/ & - & 0.14620e+00,0.50899e+00,0.68916e+00,0.79586e+00,0.55909e+00 /) - kbo(:, 4,51,12) = (/ & - & 0.18867e+00,0.56597e+00,0.76009e+00,0.86950e+00,0.62868e+00 /) - kbo(:, 5,51,12) = (/ & - & 0.23351e+00,0.62321e+00,0.82900e+00,0.93613e+00,0.69507e+00 /) - kbo(:, 1,52,12) = (/ & - & 0.62975e-01,0.37352e+00,0.51168e+00,0.59007e+00,0.38790e+00 /) - kbo(:, 2,52,12) = (/ & - & 0.94238e-01,0.43155e+00,0.58786e+00,0.68153e+00,0.46072e+00 /) - kbo(:, 3,52,12) = (/ & - & 0.13138e+00,0.48824e+00,0.66233e+00,0.76673e+00,0.53305e+00 /) - kbo(:, 4,52,12) = (/ & - & 0.17291e+00,0.54507e+00,0.73444e+00,0.84335e+00,0.60343e+00 /) - kbo(:, 5,52,12) = (/ & - & 0.21681e+00,0.60245e+00,0.80402e+00,0.91249e+00,0.67147e+00 /) - kbo(:, 1,53,12) = (/ & - & 0.53060e-01,0.35230e+00,0.48353e+00,0.55561e+00,0.36178e+00 /) - kbo(:, 2,53,12) = (/ & - & 0.81984e-01,0.41041e+00,0.56005e+00,0.64855e+00,0.43393e+00 /) - kbo(:, 3,53,12) = (/ & - & 0.11713e+00,0.46754e+00,0.63518e+00,0.73640e+00,0.50665e+00 /) - kbo(:, 4,53,12) = (/ & - & 0.15723e+00,0.52417e+00,0.70847e+00,0.81636e+00,0.57800e+00 /) - kbo(:, 5,53,12) = (/ & - & 0.20038e+00,0.58144e+00,0.77877e+00,0.88807e+00,0.64700e+00 /) - kbo(:, 1,54,12) = (/ & - & 0.44825e-01,0.33285e+00,0.45764e+00,0.52392e+00,0.33821e+00 /) - kbo(:, 2,54,12) = (/ & - & 0.71480e-01,0.39083e+00,0.53456e+00,0.61778e+00,0.40943e+00 /) - kbo(:, 3,54,12) = (/ & - & 0.10463e+00,0.44857e+00,0.61031e+00,0.70773e+00,0.48234e+00 /) - kbo(:, 4,54,12) = (/ & - & 0.14329e+00,0.50511e+00,0.68427e+00,0.79060e+00,0.55433e+00 /) - kbo(:, 5,54,12) = (/ & - & 0.18561e+00,0.56209e+00,0.75543e+00,0.86487e+00,0.62409e+00 /) - kbo(:, 1,55,12) = (/ & - & 0.37713e-01,0.31417e+00,0.43292e+00,0.49354e+00,0.31617e+00 /) - kbo(:, 2,55,12) = (/ & - & 0.62120e-01,0.37210e+00,0.50985e+00,0.58786e+00,0.38623e+00 /) - kbo(:, 3,55,12) = (/ & - & 0.93283e-01,0.43021e+00,0.58608e+00,0.67950e+00,0.45902e+00 /) - kbo(:, 4,55,12) = (/ & - & 0.13035e+00,0.48690e+00,0.66064e+00,0.76487e+00,0.53142e+00 /) - kbo(:, 5,55,12) = (/ & - & 0.17183e+00,0.54374e+00,0.73284e+00,0.84168e+00,0.60189e+00 /) - kbo(:, 1,56,12) = (/ & - & 0.31364e-01,0.29533e+00,0.40826e+00,0.46346e+00,0.29456e+00 /) - kbo(:, 2,56,12) = (/ & - & 0.53447e-01,0.35352e+00,0.48522e+00,0.55771e+00,0.36336e+00 /) - kbo(:, 3,56,12) = (/ & - & 0.82579e-01,0.41171e+00,0.56173e+00,0.65061e+00,0.43556e+00 /) - kbo(:, 4,56,12) = (/ & - & 0.11788e+00,0.46877e+00,0.63683e+00,0.73828e+00,0.50830e+00 /) - kbo(:, 5,56,12) = (/ & - & 0.15810e+00,0.52547e+00,0.71011e+00,0.81806e+00,0.57961e+00 /) - kbo(:, 1,57,12) = (/ & - & 0.25728e-01,0.27641e+00,0.38366e+00,0.43364e+00,0.27324e+00 /) - kbo(:, 2,57,12) = (/ & - & 0.45538e-01,0.33495e+00,0.46047e+00,0.52741e+00,0.34078e+00 /) - kbo(:, 3,57,12) = (/ & - & 0.72492e-01,0.39302e+00,0.53741e+00,0.62128e+00,0.41216e+00 /) - kbo(:, 4,57,12) = (/ & - & 0.10590e+00,0.45065e+00,0.61311e+00,0.71103e+00,0.48510e+00 /) - kbo(:, 5,57,12) = (/ & - & 0.14476e+00,0.50725e+00,0.68700e+00,0.79354e+00,0.55702e+00 /) - kbo(:, 1,58,12) = (/ & - & 0.21034e-01,0.25862e+00,0.36035e+00,0.40559e+00,0.25327e+00 /) - kbo(:, 2,58,12) = (/ & - & 0.38718e-01,0.31732e+00,0.43714e+00,0.49876e+00,0.31992e+00 /) - kbo(:, 3,58,12) = (/ & - & 0.63552e-01,0.37529e+00,0.51407e+00,0.59305e+00,0.39018e+00 /) - kbo(:, 4,58,12) = (/ & - & 0.95105e-01,0.43334e+00,0.59030e+00,0.68443e+00,0.46307e+00 /) - kbo(:, 5,58,12) = (/ & - & 0.13248e+00,0.49002e+00,0.66471e+00,0.76934e+00,0.53538e+00 /) - kbo(:, 1,59,12) = (/ & - & 0.19312e-01,0.25156e+00,0.35103e+00,0.39450e+00,0.24538e+00 /) - kbo(:, 2,59,12) = (/ & - & 0.36163e-01,0.31020e+00,0.42773e+00,0.48723e+00,0.31163e+00 /) - kbo(:, 3,59,12) = (/ & - & 0.60143e-01,0.36820e+00,0.50471e+00,0.58164e+00,0.38146e+00 /) - kbo(:, 4,59,12) = (/ & - & 0.90924e-01,0.42637e+00,0.58105e+00,0.67358e+00,0.45417e+00 /) - kbo(:, 5,59,12) = (/ & - & 0.12765e+00,0.48313e+00,0.65572e+00,0.75941e+00,0.52665e+00 /) - kbo(:, 1,13,13) = (/ & - & 0.25702e+01,0.27735e+01,0.28760e+01,0.25966e+01,0.23968e+01 /) - kbo(:, 2,13,13) = (/ & - & 0.25597e+01,0.27776e+01,0.28903e+01,0.26158e+01,0.24224e+01 /) - kbo(:, 3,13,13) = (/ & - & 0.25494e+01,0.27801e+01,0.29040e+01,0.26351e+01,0.24494e+01 /) - kbo(:, 4,13,13) = (/ & - & 0.25338e+01,0.27802e+01,0.29182e+01,0.26543e+01,0.24747e+01 /) - kbo(:, 5,13,13) = (/ & - & 0.25177e+01,0.27760e+01,0.29320e+01,0.26728e+01,0.24963e+01 /) - kbo(:, 1,14,13) = (/ & - & 0.23659e+01,0.26936e+01,0.28410e+01,0.26130e+01,0.23363e+01 /) - kbo(:, 2,14,13) = (/ & - & 0.23577e+01,0.27024e+01,0.28615e+01,0.26344e+01,0.23684e+01 /) - kbo(:, 3,14,13) = (/ & - & 0.23468e+01,0.27102e+01,0.28819e+01,0.26565e+01,0.24004e+01 /) - kbo(:, 4,14,13) = (/ & - & 0.23350e+01,0.27153e+01,0.29051e+01,0.26785e+01,0.24267e+01 /) - kbo(:, 5,14,13) = (/ & - & 0.23244e+01,0.27141e+01,0.29262e+01,0.26967e+01,0.24480e+01 /) - kbo(:, 1,15,13) = (/ & - & 0.21606e+01,0.25927e+01,0.27805e+01,0.26146e+01,0.22773e+01 /) - kbo(:, 2,15,13) = (/ & - & 0.21537e+01,0.26084e+01,0.28087e+01,0.26417e+01,0.23162e+01 /) - kbo(:, 3,15,13) = (/ & - & 0.21448e+01,0.26237e+01,0.28408e+01,0.26683e+01,0.23515e+01 /) - kbo(:, 4,15,13) = (/ & - & 0.21380e+01,0.26327e+01,0.28720e+01,0.26931e+01,0.23792e+01 /) - kbo(:, 5,15,13) = (/ & - & 0.21347e+01,0.26387e+01,0.29018e+01,0.27159e+01,0.24036e+01 /) - kbo(:, 1,16,13) = (/ & - & 0.19588e+01,0.24824e+01,0.27086e+01,0.26036e+01,0.22170e+01 /) - kbo(:, 2,16,13) = (/ & - & 0.19544e+01,0.25053e+01,0.27466e+01,0.26370e+01,0.22638e+01 /) - kbo(:, 3,16,13) = (/ & - & 0.19508e+01,0.25256e+01,0.27882e+01,0.26694e+01,0.23023e+01 /) - kbo(:, 4,16,13) = (/ & - & 0.19522e+01,0.25422e+01,0.28288e+01,0.26997e+01,0.23338e+01 /) - kbo(:, 5,16,13) = (/ & - & 0.19669e+01,0.25568e+01,0.28660e+01,0.27268e+01,0.23639e+01 /) - kbo(:, 1,17,13) = (/ & - & 0.17683e+01,0.23717e+01,0.26296e+01,0.25828e+01,0.21586e+01 /) - kbo(:, 2,17,13) = (/ & - & 0.17670e+01,0.24002e+01,0.26798e+01,0.26243e+01,0.22104e+01 /) - kbo(:, 3,17,13) = (/ & - & 0.17705e+01,0.24261e+01,0.27313e+01,0.26643e+01,0.22525e+01 /) - kbo(:, 4,17,13) = (/ & - & 0.17889e+01,0.24495e+01,0.27802e+01,0.27001e+01,0.22912e+01 /) - kbo(:, 5,17,13) = (/ & - & 0.18206e+01,0.24734e+01,0.28261e+01,0.27304e+01,0.23278e+01 /) - kbo(:, 1,18,13) = (/ & - & 0.15903e+01,0.22606e+01,0.25530e+01,0.25561e+01,0.21033e+01 /) - kbo(:, 2,18,13) = (/ & - & 0.15961e+01,0.22974e+01,0.26139e+01,0.26069e+01,0.21585e+01 /) - kbo(:, 3,18,13) = (/ & - & 0.16151e+01,0.23303e+01,0.26738e+01,0.26546e+01,0.22069e+01 /) - kbo(:, 4,18,13) = (/ & - & 0.16495e+01,0.23625e+01,0.27316e+01,0.26970e+01,0.22532e+01 /) - kbo(:, 5,18,13) = (/ & - & 0.16970e+01,0.23957e+01,0.27859e+01,0.27320e+01,0.22970e+01 /) - kbo(:, 1,19,13) = (/ & - & 0.14257e+01,0.21563e+01,0.24826e+01,0.25271e+01,0.20500e+01 /) - kbo(:, 2,19,13) = (/ & - & 0.14448e+01,0.21999e+01,0.25521e+01,0.25882e+01,0.21113e+01 /) - kbo(:, 3,19,13) = (/ & - & 0.14809e+01,0.22420e+01,0.26202e+01,0.26436e+01,0.21676e+01 /) - kbo(:, 4,19,13) = (/ & - & 0.15301e+01,0.22839e+01,0.26861e+01,0.26918e+01,0.22215e+01 /) - kbo(:, 5,19,13) = (/ & - & 0.15917e+01,0.23278e+01,0.27486e+01,0.27324e+01,0.22720e+01 /) - kbo(:, 1,20,13) = (/ & - & 0.12800e+01,0.20626e+01,0.24230e+01,0.25008e+01,0.20040e+01 /) - kbo(:, 2,20,13) = (/ & - & 0.13152e+01,0.21132e+01,0.24996e+01,0.25711e+01,0.20725e+01 /) - kbo(:, 3,20,13) = (/ & - & 0.13653e+01,0.21643e+01,0.25750e+01,0.26341e+01,0.21362e+01 /) - kbo(:, 4,20,13) = (/ & - & 0.14290e+01,0.22166e+01,0.26493e+01,0.26871e+01,0.21969e+01 /) - kbo(:, 5,20,13) = (/ & - & 0.15047e+01,0.22739e+01,0.27186e+01,0.27332e+01,0.22536e+01 /) - kbo(:, 1,21,13) = (/ & - & 0.11565e+01,0.19804e+01,0.23723e+01,0.24790e+01,0.19652e+01 /) - kbo(:, 2,21,13) = (/ & - & 0.12043e+01,0.20401e+01,0.24563e+01,0.25572e+01,0.20406e+01 /) - kbo(:, 3,21,13) = (/ & - & 0.12682e+01,0.20995e+01,0.25386e+01,0.26265e+01,0.21117e+01 /) - kbo(:, 4,21,13) = (/ & - & 0.13446e+01,0.21634e+01,0.26197e+01,0.26846e+01,0.21783e+01 /) - kbo(:, 5,21,13) = (/ & - & 0.14328e+01,0.22322e+01,0.26943e+01,0.27351e+01,0.22400e+01 /) - kbo(:, 1,22,13) = (/ & - & 0.10567e+01,0.19161e+01,0.23380e+01,0.24675e+01,0.19394e+01 /) - kbo(:, 2,22,13) = (/ & - & 0.11171e+01,0.19843e+01,0.24279e+01,0.25525e+01,0.20217e+01 /) - kbo(:, 3,22,13) = (/ & - & 0.11926e+01,0.20529e+01,0.25167e+01,0.26264e+01,0.20987e+01 /) - kbo(:, 4,22,13) = (/ & - & 0.12819e+01,0.21280e+01,0.26028e+01,0.26881e+01,0.21696e+01 /) - kbo(:, 5,22,13) = (/ & - & 0.13818e+01,0.22069e+01,0.26807e+01,0.27417e+01,0.22350e+01 /) - kbo(:, 1,23,13) = (/ & - & 0.97722e+00,0.18665e+01,0.23140e+01,0.24623e+01,0.19226e+01 /) - kbo(:, 2,23,13) = (/ & - & 0.10487e+01,0.19424e+01,0.24103e+01,0.25530e+01,0.20109e+01 /) - kbo(:, 3,23,13) = (/ & - & 0.11351e+01,0.20216e+01,0.25035e+01,0.26294e+01,0.20926e+01 /) - kbo(:, 4,23,13) = (/ & - & 0.12356e+01,0.21056e+01,0.25931e+01,0.26937e+01,0.21670e+01 /) - kbo(:, 5,23,13) = (/ & - & 0.13470e+01,0.21926e+01,0.26734e+01,0.27495e+01,0.22345e+01 /) - kbo(:, 1,24,13) = (/ & - & 0.91609e+00,0.18302e+01,0.23004e+01,0.24641e+01,0.19149e+01 /) - kbo(:, 2,24,13) = (/ & - & 0.99757e+00,0.19150e+01,0.24014e+01,0.25579e+01,0.20076e+01 /) - kbo(:, 3,24,13) = (/ & - & 0.10945e+01,0.20031e+01,0.24987e+01,0.26360e+01,0.20926e+01 /) - kbo(:, 4,24,13) = (/ & - & 0.12058e+01,0.20942e+01,0.25896e+01,0.27020e+01,0.21691e+01 /) - kbo(:, 5,24,13) = (/ & - & 0.13269e+01,0.21869e+01,0.26718e+01,0.27594e+01,0.22381e+01 /) - kbo(:, 1,25,13) = (/ & - & 0.87183e+00,0.18068e+01,0.22964e+01,0.24719e+01,0.19153e+01 /) - kbo(:, 2,25,13) = (/ & - & 0.96269e+00,0.19004e+01,0.24012e+01,0.25669e+01,0.20109e+01 /) - kbo(:, 3,25,13) = (/ & - & 0.10701e+01,0.19953e+01,0.24998e+01,0.26458e+01,0.20980e+01 /) - kbo(:, 4,25,13) = (/ & - & 0.11910e+01,0.20919e+01,0.25913e+01,0.27126e+01,0.21754e+01 /) - kbo(:, 5,25,13) = (/ & - & 0.13188e+01,0.21891e+01,0.26749e+01,0.27711e+01,0.22449e+01 /) - kbo(:, 1,26,13) = (/ & - & 0.84313e+00,0.17965e+01,0.23011e+01,0.24858e+01,0.19238e+01 /) - kbo(:, 2,26,13) = (/ & - & 0.94434e+00,0.18970e+01,0.24073e+01,0.25798e+01,0.20205e+01 /) - kbo(:, 3,26,13) = (/ & - & 0.10612e+01,0.19972e+01,0.25069e+01,0.26589e+01,0.21080e+01 /) - kbo(:, 4,26,13) = (/ & - & 0.11887e+01,0.20979e+01,0.25988e+01,0.27257e+01,0.21853e+01 /) - kbo(:, 5,26,13) = (/ & - & 0.13225e+01,0.21985e+01,0.26831e+01,0.27841e+01,0.22550e+01 /) - kbo(:, 1,27,13) = (/ & - & 0.82783e+00,0.17960e+01,0.23110e+01,0.25019e+01,0.19363e+01 /) - kbo(:, 2,27,13) = (/ & - & 0.93873e+00,0.19014e+01,0.24182e+01,0.25950e+01,0.20338e+01 /) - kbo(:, 3,27,13) = (/ & - & 0.10628e+01,0.20052e+01,0.25176e+01,0.26735e+01,0.21206e+01 /) - kbo(:, 4,27,13) = (/ & - & 0.11961e+01,0.21092e+01,0.26097e+01,0.27398e+01,0.21974e+01 /) - kbo(:, 5,27,13) = (/ & - & 0.13342e+01,0.22123e+01,0.26944e+01,0.27973e+01,0.22665e+01 /) - kbo(:, 1,28,13) = (/ & - & 0.82452e+00,0.18027e+01,0.23247e+01,0.25200e+01,0.19523e+01 /) - kbo(:, 2,28,13) = (/ & - & 0.94277e+00,0.19121e+01,0.24323e+01,0.26114e+01,0.20494e+01 /) - kbo(:, 3,28,13) = (/ & - & 0.10725e+01,0.20183e+01,0.25313e+01,0.26888e+01,0.21352e+01 /) - kbo(:, 4,28,13) = (/ & - & 0.12107e+01,0.21244e+01,0.26233e+01,0.27544e+01,0.22110e+01 /) - kbo(:, 5,28,13) = (/ & - & 0.13516e+01,0.22292e+01,0.27078e+01,0.28106e+01,0.22794e+01 /) - kbo(:, 1,29,13) = (/ & - & 0.83075e+00,0.18160e+01,0.23425e+01,0.25401e+01,0.19712e+01 /) - kbo(:, 2,29,13) = (/ & - & 0.95513e+00,0.19278e+01,0.24494e+01,0.26294e+01,0.20669e+01 /) - kbo(:, 3,29,13) = (/ & - & 0.10900e+01,0.20358e+01,0.25478e+01,0.27053e+01,0.21513e+01 /) - kbo(:, 4,29,13) = (/ & - & 0.12315e+01,0.21431e+01,0.26391e+01,0.27692e+01,0.22259e+01 /) - kbo(:, 5,29,13) = (/ & - & 0.13745e+01,0.22488e+01,0.27235e+01,0.28240e+01,0.22934e+01 /) - kbo(:, 1,30,13) = (/ & - & 0.84416e+00,0.18336e+01,0.23624e+01,0.25609e+01,0.19916e+01 /) - kbo(:, 2,30,13) = (/ & - & 0.97368e+00,0.19464e+01,0.24682e+01,0.26481e+01,0.20854e+01 /) - kbo(:, 3,30,13) = (/ & - & 0.11126e+01,0.20559e+01,0.25658e+01,0.27219e+01,0.21680e+01 /) - kbo(:, 4,30,13) = (/ & - & 0.12564e+01,0.21643e+01,0.26566e+01,0.27840e+01,0.22414e+01 /) - kbo(:, 5,30,13) = (/ & - & 0.14008e+01,0.22700e+01,0.27405e+01,0.28371e+01,0.23076e+01 /) - kbo(:, 1,31,13) = (/ & - & 0.86384e+00,0.18548e+01,0.23844e+01,0.25824e+01,0.20133e+01 /) - kbo(:, 2,31,13) = (/ & - & 0.99753e+00,0.19681e+01,0.24888e+01,0.26671e+01,0.21046e+01 /) - kbo(:, 3,31,13) = (/ & - & 0.11394e+01,0.20787e+01,0.25856e+01,0.27387e+01,0.21855e+01 /) - kbo(:, 4,31,13) = (/ & - & 0.12850e+01,0.21876e+01,0.26758e+01,0.27988e+01,0.22577e+01 /) - kbo(:, 5,31,13) = (/ & - & 0.14304e+01,0.22931e+01,0.27584e+01,0.28498e+01,0.23225e+01 /) - kbo(:, 1,32,13) = (/ & - & 0.88808e+00,0.18788e+01,0.24078e+01,0.26044e+01,0.20359e+01 /) - kbo(:, 2,32,13) = (/ & - & 0.10254e+01,0.19921e+01,0.25106e+01,0.26862e+01,0.21246e+01 /) - kbo(:, 3,32,13) = (/ & - & 0.11696e+01,0.21031e+01,0.26064e+01,0.27554e+01,0.22034e+01 /) - kbo(:, 4,32,13) = (/ & - & 0.13164e+01,0.22122e+01,0.26955e+01,0.28135e+01,0.22742e+01 /) - kbo(:, 5,32,13) = (/ & - & 0.14621e+01,0.23175e+01,0.27772e+01,0.28624e+01,0.23376e+01 /) - kbo(:, 1,33,13) = (/ & - & 0.91576e+00,0.19044e+01,0.24318e+01,0.26262e+01,0.20585e+01 /) - kbo(:, 2,33,13) = (/ & - & 0.10563e+01,0.20178e+01,0.25332e+01,0.27053e+01,0.21448e+01 /) - kbo(:, 3,33,13) = (/ & - & 0.12022e+01,0.21286e+01,0.26280e+01,0.27719e+01,0.22216e+01 /) - kbo(:, 4,33,13) = (/ & - & 0.13498e+01,0.22379e+01,0.27158e+01,0.28276e+01,0.22909e+01 /) - kbo(:, 5,33,13) = (/ & - & 0.14952e+01,0.23427e+01,0.27963e+01,0.28748e+01,0.23524e+01 /) - kbo(:, 1,34,13) = (/ & - & 0.94113e+00,0.19270e+01,0.24527e+01,0.26448e+01,0.20775e+01 /) - kbo(:, 2,34,13) = (/ & - & 0.10840e+01,0.20405e+01,0.25528e+01,0.27213e+01,0.21619e+01 /) - kbo(:, 3,34,13) = (/ & - & 0.12311e+01,0.21512e+01,0.26466e+01,0.27855e+01,0.22370e+01 /) - kbo(:, 4,34,13) = (/ & - & 0.13793e+01,0.22602e+01,0.27333e+01,0.28395e+01,0.23050e+01 /) - kbo(:, 5,34,13) = (/ & - & 0.15242e+01,0.23644e+01,0.28128e+01,0.28850e+01,0.23650e+01 /) - kbo(:, 1,35,13) = (/ & - & 0.95467e+00,0.19391e+01,0.24637e+01,0.26549e+01,0.20879e+01 /) - kbo(:, 2,35,13) = (/ & - & 0.10989e+01,0.20529e+01,0.25635e+01,0.27301e+01,0.21712e+01 /) - kbo(:, 3,35,13) = (/ & - & 0.12468e+01,0.21638e+01,0.26569e+01,0.27931e+01,0.22456e+01 /) - kbo(:, 4,35,13) = (/ & - & 0.13953e+01,0.22726e+01,0.27430e+01,0.28463e+01,0.23128e+01 /) - kbo(:, 5,35,13) = (/ & - & 0.15401e+01,0.23764e+01,0.28219e+01,0.28908e+01,0.23721e+01 /) - kbo(:, 1,36,13) = (/ & - & 0.95401e+00,0.19393e+01,0.24641e+01,0.26563e+01,0.20890e+01 /) - kbo(:, 2,36,13) = (/ & - & 0.10986e+01,0.20534e+01,0.25640e+01,0.27314e+01,0.21722e+01 /) - kbo(:, 3,36,13) = (/ & - & 0.12470e+01,0.21646e+01,0.26577e+01,0.27946e+01,0.22466e+01 /) - kbo(:, 4,36,13) = (/ & - & 0.13959e+01,0.22738e+01,0.27440e+01,0.28477e+01,0.23138e+01 /) - kbo(:, 5,36,13) = (/ & - & 0.15410e+01,0.23778e+01,0.28230e+01,0.28922e+01,0.23732e+01 /) - kbo(:, 1,37,13) = (/ & - & 0.93269e+00,0.19221e+01,0.24490e+01,0.26452e+01,0.20765e+01 /) - kbo(:, 2,37,13) = (/ & - & 0.10767e+01,0.20372e+01,0.25499e+01,0.27223e+01,0.21614e+01 /) - kbo(:, 3,37,13) = (/ & - & 0.12250e+01,0.21490e+01,0.26449e+01,0.27873e+01,0.22369e+01 /) - kbo(:, 4,37,13) = (/ & - & 0.13744e+01,0.22588e+01,0.27324e+01,0.28416e+01,0.23053e+01 /) - kbo(:, 5,37,13) = (/ & - & 0.15205e+01,0.23639e+01,0.28124e+01,0.28871e+01,0.23656e+01 /) - kbo(:, 1,38,13) = (/ & - & 0.91080e+00,0.19040e+01,0.24332e+01,0.26332e+01,0.20631e+01 /) - kbo(:, 2,38,13) = (/ & - & 0.10540e+01,0.20201e+01,0.25351e+01,0.27123e+01,0.21497e+01 /) - kbo(:, 3,38,13) = (/ & - & 0.12022e+01,0.21326e+01,0.26310e+01,0.27790e+01,0.22264e+01 /) - kbo(:, 4,38,13) = (/ & - & 0.13520e+01,0.22432e+01,0.27202e+01,0.28347e+01,0.22959e+01 /) - kbo(:, 5,38,13) = (/ & - & 0.14989e+01,0.23490e+01,0.28012e+01,0.28815e+01,0.23575e+01 /) - kbo(:, 1,39,13) = (/ & - & 0.88956e+00,0.18861e+01,0.24173e+01,0.26207e+01,0.20495e+01 /) - kbo(:, 2,39,13) = (/ & - & 0.10319e+01,0.20032e+01,0.25205e+01,0.27021e+01,0.21379e+01 /) - kbo(:, 3,39,13) = (/ & - & 0.11798e+01,0.21163e+01,0.26173e+01,0.27704e+01,0.22159e+01 /) - kbo(:, 4,39,13) = (/ & - & 0.13298e+01,0.22272e+01,0.27078e+01,0.28277e+01,0.22865e+01 /) - kbo(:, 5,39,13) = (/ & - & 0.14775e+01,0.23341e+01,0.27901e+01,0.28757e+01,0.23493e+01 /) - kbo(:, 1,40,13) = (/ & - & 0.85494e+00,0.18558e+01,0.23904e+01,0.25985e+01,0.20255e+01 /) - kbo(:, 2,40,13) = (/ & - & 0.99514e+00,0.19745e+01,0.24954e+01,0.26836e+01,0.21170e+01 /) - kbo(:, 3,40,13) = (/ & - & 0.11424e+01,0.20885e+01,0.25938e+01,0.27547e+01,0.21975e+01 /) - kbo(:, 4,40,13) = (/ & - & 0.12924e+01,0.22001e+01,0.26861e+01,0.28148e+01,0.22700e+01 /) - kbo(:, 5,40,13) = (/ & - & 0.14413e+01,0.23083e+01,0.27705e+01,0.28664e+01,0.23349e+01 /) - kbo(:, 1,41,13) = (/ & - & 0.81957e+00,0.18237e+01,0.23613e+01,0.25741e+01,0.19997e+01 /) - kbo(:, 2,41,13) = (/ & - & 0.95728e+00,0.19441e+01,0.24688e+01,0.26632e+01,0.20945e+01 /) - kbo(:, 3,41,13) = (/ & - & 0.11034e+01,0.20591e+01,0.25687e+01,0.27378e+01,0.21777e+01 /) - kbo(:, 4,41,13) = (/ & - & 0.12530e+01,0.21714e+01,0.26630e+01,0.28005e+01,0.22519e+01 /) - kbo(:, 5,41,13) = (/ & - & 0.14027e+01,0.22807e+01,0.27494e+01,0.28533e+01,0.23190e+01 /) - kbo(:, 1,42,13) = (/ & - & 0.78503e+00,0.17918e+01,0.23317e+01,0.25487e+01,0.19734e+01 /) - kbo(:, 2,42,13) = (/ & - & 0.92016e+00,0.19132e+01,0.24418e+01,0.26418e+01,0.20712e+01 /) - kbo(:, 3,42,13) = (/ & - & 0.10646e+01,0.20294e+01,0.25432e+01,0.27200e+01,0.21575e+01 /) - kbo(:, 4,42,13) = (/ & - & 0.12137e+01,0.21426e+01,0.26392e+01,0.27859e+01,0.22336e+01 /) - kbo(:, 5,42,13) = (/ & - & 0.13639e+01,0.22528e+01,0.27279e+01,0.28411e+01,0.23026e+01 /) - kbo(:, 1,43,13) = (/ & - & 0.74423e+00,0.17527e+01,0.22949e+01,0.25159e+01,0.19403e+01 /) - kbo(:, 2,43,13) = (/ & - & 0.87589e+00,0.18750e+01,0.24080e+01,0.26143e+01,0.20417e+01 /) - kbo(:, 3,43,13) = (/ & - & 0.10179e+01,0.19932e+01,0.25118e+01,0.26972e+01,0.21315e+01 /) - kbo(:, 4,43,13) = (/ & - & 0.11661e+01,0.21073e+01,0.26096e+01,0.27665e+01,0.22105e+01 /) - kbo(:, 5,43,13) = (/ & - & 0.13165e+01,0.22185e+01,0.27008e+01,0.28247e+01,0.22817e+01 /) - kbo(:, 1,44,13) = (/ & - & 0.70183e+00,0.17101e+01,0.22539e+01,0.24783e+01,0.19029e+01 /) - kbo(:, 2,44,13) = (/ & - & 0.82940e+00,0.18334e+01,0.23707e+01,0.25829e+01,0.20083e+01 /) - kbo(:, 3,44,13) = (/ & - & 0.96829e+00,0.19537e+01,0.24774e+01,0.26707e+01,0.21022e+01 /) - kbo(:, 4,44,13) = (/ & - & 0.11151e+01,0.20687e+01,0.25770e+01,0.27443e+01,0.21846e+01 /) - kbo(:, 5,44,13) = (/ & - & 0.12651e+01,0.21808e+01,0.26707e+01,0.28061e+01,0.22584e+01 /) - kbo(:, 1,45,13) = (/ & - & 0.66118e+00,0.16676e+01,0.22119e+01,0.24384e+01,0.18634e+01 /) - kbo(:, 2,45,13) = (/ & - & 0.78445e+00,0.17917e+01,0.23321e+01,0.25495e+01,0.19739e+01 /) - kbo(:, 3,45,13) = (/ & - & 0.91984e+00,0.19133e+01,0.24421e+01,0.26427e+01,0.20718e+01 /) - kbo(:, 4,45,13) = (/ & - & 0.10646e+01,0.20301e+01,0.25439e+01,0.27211e+01,0.21582e+01 /) - kbo(:, 5,45,13) = (/ & - & 0.12138e+01,0.21430e+01,0.26395e+01,0.27867e+01,0.22343e+01 /) - kbo(:, 1,46,13) = (/ & - & 0.61933e+00,0.16221e+01,0.21659e+01,0.23935e+01,0.18196e+01 /) - kbo(:, 2,46,13) = (/ & - & 0.73807e+00,0.17470e+01,0.22898e+01,0.25118e+01,0.19358e+01 /) - kbo(:, 3,46,13) = (/ & - & 0.86934e+00,0.18696e+01,0.24034e+01,0.26109e+01,0.20379e+01 /) - kbo(:, 4,46,13) = (/ & - & 0.10113e+01,0.19884e+01,0.25076e+01,0.26946e+01,0.21283e+01 /) - kbo(:, 5,46,13) = (/ & - & 0.11593e+01,0.21025e+01,0.26055e+01,0.27643e+01,0.22076e+01 /) - kbo(:, 1,47,13) = (/ & - & 0.57374e+00,0.15709e+01,0.21131e+01,0.23400e+01,0.17680e+01 /) - kbo(:, 2,47,13) = (/ & - & 0.68838e+00,0.16965e+01,0.22409e+01,0.24665e+01,0.18907e+01 /) - kbo(:, 3,47,13) = (/ & - & 0.81478e+00,0.18201e+01,0.23589e+01,0.25731e+01,0.19980e+01 /) - kbo(:, 4,47,13) = (/ & - & 0.95278e+00,0.19412e+01,0.24665e+01,0.26626e+01,0.20931e+01 /) - kbo(:, 5,47,13) = (/ & - & 0.10991e+01,0.20567e+01,0.25667e+01,0.27376e+01,0.21769e+01 /) - kbo(:, 1,48,13) = (/ & - & 0.52946e+00,0.15198e+01,0.20592e+01,0.22834e+01,0.17136e+01 /) - kbo(:, 2,48,13) = (/ & - & 0.64089e+00,0.16459e+01,0.21904e+01,0.24180e+01,0.18431e+01 /) - kbo(:, 3,48,13) = (/ & - & 0.76211e+00,0.17708e+01,0.23126e+01,0.25324e+01,0.19565e+01 /) - kbo(:, 4,48,13) = (/ & - & 0.89568e+00,0.18928e+01,0.24241e+01,0.26284e+01,0.20564e+01 /) - kbo(:, 5,48,13) = (/ & - & 0.10393e+01,0.20105e+01,0.25268e+01,0.27091e+01,0.21445e+01 /) - kbo(:, 1,49,13) = (/ & - & 0.48708e+00,0.14681e+01,0.20029e+01,0.22232e+01,0.16566e+01 /) - kbo(:, 2,49,13) = (/ & - & 0.59510e+00,0.15951e+01,0.21382e+01,0.23660e+01,0.17928e+01 /) - kbo(:, 3,49,13) = (/ & - & 0.71141e+00,0.17205e+01,0.22646e+01,0.24889e+01,0.19130e+01 /) - kbo(:, 4,49,13) = (/ & - & 0.84034e+00,0.18437e+01,0.23804e+01,0.25917e+01,0.20174e+01 /) - kbo(:, 5,49,13) = (/ & - & 0.98023e+00,0.19637e+01,0.24863e+01,0.26785e+01,0.21102e+01 /) - kbo(:, 1,50,13) = (/ & - & 0.44946e+00,0.14198e+01,0.19480e+01,0.21639e+01,0.16005e+01 /) - kbo(:, 2,50,13) = (/ & - & 0.55308e+00,0.15472e+01,0.20885e+01,0.23146e+01,0.17433e+01 /) - kbo(:, 3,50,13) = (/ & - & 0.66640e+00,0.16732e+01,0.22179e+01,0.24447e+01,0.18693e+01 /) - kbo(:, 4,50,13) = (/ & - & 0.79021e+00,0.17975e+01,0.23380e+01,0.25550e+01,0.19794e+01 /) - kbo(:, 5,50,13) = (/ & - & 0.92626e+00,0.19191e+01,0.24474e+01,0.26476e+01,0.20768e+01 /) - kbo(:, 1,51,13) = (/ & - & 0.41452e+00,0.13727e+01,0.18922e+01,0.21038e+01,0.15428e+01 /) - kbo(:, 2,51,13) = (/ & - & 0.51362e+00,0.15005e+01,0.20385e+01,0.22616e+01,0.16930e+01 /) - kbo(:, 3,51,13) = (/ & - & 0.62394e+00,0.16272e+01,0.21714e+01,0.23993e+01,0.18251e+01 /) - kbo(:, 4,51,13) = (/ & - & 0.74304e+00,0.17523e+01,0.22953e+01,0.25171e+01,0.19410e+01 /) - kbo(:, 5,51,13) = (/ & - & 0.87505e+00,0.18748e+01,0.24082e+01,0.26155e+01,0.20426e+01 /) - kbo(:, 1,52,13) = (/ & - & 0.38121e+00,0.13250e+01,0.18350e+01,0.20413e+01,0.14822e+01 /) - kbo(:, 2,52,13) = (/ & - & 0.47581e+00,0.14538e+01,0.19870e+01,0.22062e+01,0.16405e+01 /) - kbo(:, 3,52,13) = (/ & - & 0.58258e+00,0.15810e+01,0.21239e+01,0.23514e+01,0.17789e+01 /) - kbo(:, 4,52,13) = (/ & - & 0.69813e+00,0.17065e+01,0.22509e+01,0.24762e+01,0.19005e+01 /) - kbo(:, 5,52,13) = (/ & - & 0.82543e+00,0.18301e+01,0.23683e+01,0.25815e+01,0.20067e+01 /) - kbo(:, 1,53,13) = (/ & - & 0.34902e+00,0.12769e+01,0.17751e+01,0.19762e+01,0.14178e+01 /) - kbo(:, 2,53,13) = (/ & - & 0.43953e+00,0.14068e+01,0.19332e+01,0.21485e+01,0.15854e+01 /) - kbo(:, 3,53,13) = (/ & - & 0.54216e+00,0.15348e+01,0.20756e+01,0.23010e+01,0.17302e+01 /) - kbo(:, 4,53,13) = (/ & - & 0.65469e+00,0.16608e+01,0.22054e+01,0.24328e+01,0.18578e+01 /) - kbo(:, 5,53,13) = (/ & - & 0.77730e+00,0.17854e+01,0.23267e+01,0.25453e+01,0.19695e+01 /) - kbo(:, 1,54,13) = (/ & - & 0.32058e+00,0.12324e+01,0.17175e+01,0.19140e+01,0.13553e+01 /) - kbo(:, 2,54,13) = (/ & - & 0.40795e+00,0.13637e+01,0.18819e+01,0.20929e+01,0.15321e+01 /) - kbo(:, 3,54,13) = (/ & - & 0.50645e+00,0.14920e+01,0.20295e+01,0.22518e+01,0.16837e+01 /) - kbo(:, 4,54,13) = (/ & - & 0.61609e+00,0.16187e+01,0.21628e+01,0.23909e+01,0.18169e+01 /) - kbo(:, 5,54,13) = (/ & - & 0.73448e+00,0.17439e+01,0.22873e+01,0.25101e+01,0.19340e+01 /) - kbo(:, 1,55,13) = (/ & - & 0.29443e+00,0.11892e+01,0.16600e+01,0.18513e+01,0.12929e+01 /) - kbo(:, 2,55,13) = (/ & - & 0.37883e+00,0.13219e+01,0.18314e+01,0.20376e+01,0.14784e+01 /) - kbo(:, 3,55,13) = (/ & - & 0.47335e+00,0.14508e+01,0.19839e+01,0.22027e+01,0.16372e+01 /) - kbo(:, 4,55,13) = (/ & - & 0.57989e+00,0.15780e+01,0.21210e+01,0.23485e+01,0.17761e+01 /) - kbo(:, 5,55,13) = (/ & - & 0.69533e+00,0.17037e+01,0.22482e+01,0.24738e+01,0.18980e+01 /) - kbo(:, 1,56,13) = (/ & - & 0.26936e+00,0.11459e+01,0.16007e+01,0.17863e+01,0.12289e+01 /) - kbo(:, 2,56,13) = (/ & - & 0.35065e+00,0.12797e+01,0.17789e+01,0.19807e+01,0.14221e+01 /) - kbo(:, 3,56,13) = (/ & - & 0.44158e+00,0.14097e+01,0.19368e+01,0.21523e+01,0.15891e+01 /) - kbo(:, 4,56,13) = (/ & - & 0.54448e+00,0.15375e+01,0.20786e+01,0.23043e+01,0.17334e+01 /) - kbo(:, 5,56,13) = (/ & - & 0.65732e+00,0.16637e+01,0.22084e+01,0.24358e+01,0.18606e+01 /) - kbo(:, 1,57,13) = (/ & - & 0.24515e+00,0.11022e+01,0.15388e+01,0.17186e+01,0.11645e+01 /) - kbo(:, 2,57,13) = (/ & - & 0.32341e+00,0.12372e+01,0.17241e+01,0.19215e+01,0.13626e+01 /) - kbo(:, 3,57,13) = (/ & - & 0.41131e+00,0.13686e+01,0.18879e+01,0.20994e+01,0.15383e+01 /) - kbo(:, 4,57,13) = (/ & - & 0.51026e+00,0.14967e+01,0.20347e+01,0.22575e+01,0.16892e+01 /) - kbo(:, 5,57,13) = (/ & - & 0.62036e+00,0.16234e+01,0.21677e+01,0.23959e+01,0.18217e+01 /) - kbo(:, 1,58,13) = (/ & - & 0.22298e+00,0.10601e+01,0.14788e+01,0.16521e+01,0.11024e+01 /) - kbo(:, 2,58,13) = (/ & - & 0.29857e+00,0.11965e+01,0.16700e+01,0.18625e+01,0.13039e+01 /) - kbo(:, 3,58,13) = (/ & - & 0.38366e+00,0.13291e+01,0.18404e+01,0.20474e+01,0.14880e+01 /) - kbo(:, 4,58,13) = (/ & - & 0.47882e+00,0.14579e+01,0.19918e+01,0.22114e+01,0.16455e+01 /) - kbo(:, 5,58,13) = (/ & - & 0.58601e+00,0.15850e+01,0.21282e+01,0.23561e+01,0.17833e+01 /) - kbo(:, 1,59,13) = (/ & - & 0.21427e+00,0.10429e+01,0.14544e+01,0.16247e+01,0.10771e+01 /) - kbo(:, 2,59,13) = (/ & - & 0.28885e+00,0.11801e+01,0.16480e+01,0.18384e+01,0.12798e+01 /) - kbo(:, 3,59,13) = (/ & - & 0.37281e+00,0.13132e+01,0.18209e+01,0.20260e+01,0.14670e+01 /) - kbo(:, 4,59,13) = (/ & - & 0.46652e+00,0.14422e+01,0.19743e+01,0.21926e+01,0.16276e+01 /) - kbo(:, 5,59,13) = (/ & - & 0.57246e+00,0.15697e+01,0.21123e+01,0.23397e+01,0.17674e+01 /) - kbo(:, 1,13,14) = (/ & - & 0.76467e+01,0.66870e+01,0.63502e+01,0.61468e+01,0.66906e+01 /) - kbo(:, 2,13,14) = (/ & - & 0.76514e+01,0.66716e+01,0.63627e+01,0.61942e+01,0.67780e+01 /) - kbo(:, 3,13,14) = (/ & - & 0.76475e+01,0.66428e+01,0.63628e+01,0.62371e+01,0.68460e+01 /) - kbo(:, 4,13,14) = (/ & - & 0.76415e+01,0.66083e+01,0.63514e+01,0.62630e+01,0.69072e+01 /) - kbo(:, 5,13,14) = (/ & - & 0.76283e+01,0.65686e+01,0.63330e+01,0.62779e+01,0.69614e+01 /) - kbo(:, 1,14,14) = (/ & - & 0.77958e+01,0.69779e+01,0.66658e+01,0.63591e+01,0.67479e+01 /) - kbo(:, 2,14,14) = (/ & - & 0.78014e+01,0.69599e+01,0.66792e+01,0.64167e+01,0.68357e+01 /) - kbo(:, 3,14,14) = (/ & - & 0.78100e+01,0.69314e+01,0.66809e+01,0.64627e+01,0.69109e+01 /) - kbo(:, 4,14,14) = (/ & - & 0.78098e+01,0.68950e+01,0.66685e+01,0.64923e+01,0.69838e+01 /) - kbo(:, 5,14,14) = (/ & - & 0.77999e+01,0.68585e+01,0.66494e+01,0.65137e+01,0.70531e+01 /) - kbo(:, 1,15,14) = (/ & - & 0.78397e+01,0.72065e+01,0.69626e+01,0.65521e+01,0.67717e+01 /) - kbo(:, 2,15,14) = (/ & - & 0.78630e+01,0.71900e+01,0.69770e+01,0.66166e+01,0.68639e+01 /) - kbo(:, 3,15,14) = (/ & - & 0.78829e+01,0.71661e+01,0.69761e+01,0.66643e+01,0.69508e+01 /) - kbo(:, 4,15,14) = (/ & - & 0.78961e+01,0.71374e+01,0.69668e+01,0.66987e+01,0.70374e+01 /) - kbo(:, 5,15,14) = (/ & - & 0.78984e+01,0.71026e+01,0.69440e+01,0.67207e+01,0.71207e+01 /) - kbo(:, 1,16,14) = (/ & - & 0.77976e+01,0.73768e+01,0.72331e+01,0.67309e+01,0.67735e+01 /) - kbo(:, 2,16,14) = (/ & - & 0.78456e+01,0.73704e+01,0.72485e+01,0.67988e+01,0.68801e+01 /) - kbo(:, 3,16,14) = (/ & - & 0.78840e+01,0.73590e+01,0.72505e+01,0.68482e+01,0.69801e+01 /) - kbo(:, 4,16,14) = (/ & - & 0.79146e+01,0.73379e+01,0.72385e+01,0.68847e+01,0.70795e+01 /) - kbo(:, 5,16,14) = (/ & - & 0.79322e+01,0.73060e+01,0.72179e+01,0.69099e+01,0.71779e+01 /) - kbo(:, 1,17,14) = (/ & - & 0.76851e+01,0.74978e+01,0.74681e+01,0.68923e+01,0.67646e+01 /) - kbo(:, 2,17,14) = (/ & - & 0.77622e+01,0.75112e+01,0.74909e+01,0.69618e+01,0.68880e+01 /) - kbo(:, 3,17,14) = (/ & - & 0.78293e+01,0.75089e+01,0.74964e+01,0.70134e+01,0.70063e+01 /) - kbo(:, 4,17,14) = (/ & - & 0.78832e+01,0.75014e+01,0.74883e+01,0.70540e+01,0.71204e+01 /) - kbo(:, 5,17,14) = (/ & - & 0.79237e+01,0.74752e+01,0.74629e+01,0.70833e+01,0.72311e+01 /) - kbo(:, 1,18,14) = (/ & - & 0.75343e+01,0.75844e+01,0.76679e+01,0.70369e+01,0.67530e+01 /) - kbo(:, 2,18,14) = (/ & - & 0.76372e+01,0.76127e+01,0.76999e+01,0.71100e+01,0.68939e+01 /) - kbo(:, 3,18,14) = (/ & - & 0.77344e+01,0.76293e+01,0.77123e+01,0.71649e+01,0.70305e+01 /) - kbo(:, 4,18,14) = (/ & - & 0.78168e+01,0.76302e+01,0.77077e+01,0.72057e+01,0.71594e+01 /) - kbo(:, 5,18,14) = (/ & - & 0.78848e+01,0.76120e+01,0.76799e+01,0.72369e+01,0.72819e+01 /) - kbo(:, 1,19,14) = (/ & - & 0.73642e+01,0.76427e+01,0.78392e+01,0.71673e+01,0.67426e+01 /) - kbo(:, 2,19,14) = (/ & - & 0.75027e+01,0.76890e+01,0.78792e+01,0.72411e+01,0.69029e+01 /) - kbo(:, 3,19,14) = (/ & - & 0.76261e+01,0.77218e+01,0.78995e+01,0.72995e+01,0.70551e+01 /) - kbo(:, 4,19,14) = (/ & - & 0.77358e+01,0.77317e+01,0.78972e+01,0.73431e+01,0.71976e+01 /) - kbo(:, 5,19,14) = (/ & - & 0.78306e+01,0.77206e+01,0.78669e+01,0.73734e+01,0.73288e+01 /) - kbo(:, 1,20,14) = (/ & - & 0.71989e+01,0.76856e+01,0.79830e+01,0.72835e+01,0.67408e+01 /) - kbo(:, 2,20,14) = (/ & - & 0.73691e+01,0.77492e+01,0.80344e+01,0.73623e+01,0.69200e+01 /) - kbo(:, 3,20,14) = (/ & - & 0.75204e+01,0.77952e+01,0.80604e+01,0.74206e+01,0.70842e+01 /) - kbo(:, 4,20,14) = (/ & - & 0.76560e+01,0.78150e+01,0.80567e+01,0.74651e+01,0.72381e+01 /) - kbo(:, 5,20,14) = (/ & - & 0.77736e+01,0.78108e+01,0.80255e+01,0.74944e+01,0.73772e+01 /) - kbo(:, 1,21,14) = (/ & - & 0.70426e+01,0.77166e+01,0.81049e+01,0.73883e+01,0.67480e+01 /) - kbo(:, 2,21,14) = (/ & - & 0.72474e+01,0.77946e+01,0.81668e+01,0.74708e+01,0.69410e+01 /) - kbo(:, 3,21,14) = (/ & - & 0.74271e+01,0.78518e+01,0.81976e+01,0.75283e+01,0.71153e+01 /) - kbo(:, 4,21,14) = (/ & - & 0.75881e+01,0.78806e+01,0.81926e+01,0.75722e+01,0.72765e+01 /) - kbo(:, 5,21,14) = (/ & - & 0.77244e+01,0.78840e+01,0.81605e+01,0.76005e+01,0.74219e+01 /) - kbo(:, 1,22,14) = (/ & - & 0.69208e+01,0.77467e+01,0.82134e+01,0.74892e+01,0.67760e+01 /) - kbo(:, 2,22,14) = (/ & - & 0.71527e+01,0.78380e+01,0.82825e+01,0.75703e+01,0.69788e+01 /) - kbo(:, 3,22,14) = (/ & - & 0.73591e+01,0.79026e+01,0.83138e+01,0.76265e+01,0.71614e+01 /) - kbo(:, 4,22,14) = (/ & - & 0.75412e+01,0.79369e+01,0.83052e+01,0.76676e+01,0.73269e+01 /) - kbo(:, 5,22,14) = (/ & - & 0.76931e+01,0.79423e+01,0.82705e+01,0.76932e+01,0.74734e+01 /) - kbo(:, 1,23,14) = (/ & - & 0.68264e+01,0.77768e+01,0.83085e+01,0.75813e+01,0.68129e+01 /) - kbo(:, 2,23,14) = (/ & - & 0.70814e+01,0.78791e+01,0.83807e+01,0.76573e+01,0.70223e+01 /) - kbo(:, 3,23,14) = (/ & - & 0.73108e+01,0.79473e+01,0.84103e+01,0.77115e+01,0.72087e+01 /) - kbo(:, 4,23,14) = (/ & - & 0.75083e+01,0.79850e+01,0.83989e+01,0.77500e+01,0.73762e+01 /) - kbo(:, 5,23,14) = (/ & - & 0.76738e+01,0.79912e+01,0.83608e+01,0.77715e+01,0.75218e+01 /) - kbo(:, 1,24,14) = (/ & - & 0.67597e+01,0.78092e+01,0.83929e+01,0.76639e+01,0.68571e+01 /) - kbo(:, 2,24,14) = (/ & - & 0.70359e+01,0.79159e+01,0.84653e+01,0.77347e+01,0.70700e+01 /) - kbo(:, 3,24,14) = (/ & - & 0.72818e+01,0.79869e+01,0.84905e+01,0.77860e+01,0.72578e+01 /) - kbo(:, 4,24,14) = (/ & - & 0.74908e+01,0.80269e+01,0.84765e+01,0.78202e+01,0.74248e+01 /) - kbo(:, 5,24,14) = (/ & - & 0.76673e+01,0.80324e+01,0.84337e+01,0.78375e+01,0.75690e+01 /) - kbo(:, 1,25,14) = (/ & - & 0.67209e+01,0.78436e+01,0.84676e+01,0.77356e+01,0.69066e+01 /) - kbo(:, 2,25,14) = (/ & - & 0.70147e+01,0.79506e+01,0.85366e+01,0.78027e+01,0.71216e+01 /) - kbo(:, 3,25,14) = (/ & - & 0.72710e+01,0.80222e+01,0.85567e+01,0.78495e+01,0.73079e+01 /) - kbo(:, 4,25,14) = (/ & - & 0.74891e+01,0.80627e+01,0.85388e+01,0.78803e+01,0.74736e+01 /) - kbo(:, 5,25,14) = (/ & - & 0.76763e+01,0.80663e+01,0.84908e+01,0.78920e+01,0.76152e+01 /) - kbo(:, 1,26,14) = (/ & - & 0.67117e+01,0.78809e+01,0.85346e+01,0.77996e+01,0.69621e+01 /) - kbo(:, 2,26,14) = (/ & - & 0.70163e+01,0.79848e+01,0.85977e+01,0.78624e+01,0.71766e+01 /) - kbo(:, 3,26,14) = (/ & - & 0.72800e+01,0.80555e+01,0.86111e+01,0.79043e+01,0.73612e+01 /) - kbo(:, 4,26,14) = (/ & - & 0.75048e+01,0.80927e+01,0.85874e+01,0.79312e+01,0.75235e+01 /) - kbo(:, 5,26,14) = (/ & - & 0.76969e+01,0.80929e+01,0.85318e+01,0.79367e+01,0.76615e+01 /) - kbo(:, 1,27,14) = (/ & - & 0.67222e+01,0.79165e+01,0.85935e+01,0.78553e+01,0.70208e+01 /) - kbo(:, 2,27,14) = (/ & - & 0.70339e+01,0.80174e+01,0.86486e+01,0.79134e+01,0.72318e+01 /) - kbo(:, 3,27,14) = (/ & - & 0.73021e+01,0.80859e+01,0.86549e+01,0.79502e+01,0.74127e+01 /) - kbo(:, 4,27,14) = (/ & - & 0.75298e+01,0.81175e+01,0.86239e+01,0.79721e+01,0.75702e+01 /) - kbo(:, 5,27,14) = (/ & - & 0.77246e+01,0.81143e+01,0.85613e+01,0.79734e+01,0.77047e+01 /) - kbo(:, 1,28,14) = (/ & - & 0.67490e+01,0.79508e+01,0.86448e+01,0.79039e+01,0.70793e+01 /) - kbo(:, 2,28,14) = (/ & - & 0.70641e+01,0.80481e+01,0.86903e+01,0.79567e+01,0.72853e+01 /) - kbo(:, 3,28,14) = (/ & - & 0.73339e+01,0.81119e+01,0.86890e+01,0.79886e+01,0.74622e+01 /) - kbo(:, 4,28,14) = (/ & - & 0.75625e+01,0.81383e+01,0.86502e+01,0.80049e+01,0.76145e+01 /) - kbo(:, 5,28,14) = (/ & - & 0.77567e+01,0.81304e+01,0.85806e+01,0.80023e+01,0.77455e+01 /) - kbo(:, 1,29,14) = (/ & - & 0.67914e+01,0.79845e+01,0.86886e+01,0.79462e+01,0.71386e+01 /) - kbo(:, 2,29,14) = (/ & - & 0.71068e+01,0.80770e+01,0.87239e+01,0.79933e+01,0.73389e+01 /) - kbo(:, 3,29,14) = (/ & - & 0.73751e+01,0.81344e+01,0.87144e+01,0.80208e+01,0.75104e+01 /) - kbo(:, 4,29,14) = (/ & - & 0.76020e+01,0.81550e+01,0.86676e+01,0.80316e+01,0.76575e+01 /) - kbo(:, 5,29,14) = (/ & - & 0.77937e+01,0.81425e+01,0.85914e+01,0.80248e+01,0.77840e+01 /) - kbo(:, 1,30,14) = (/ & - & 0.68445e+01,0.80166e+01,0.87256e+01,0.79827e+01,0.71970e+01 /) - kbo(:, 2,30,14) = (/ & - & 0.71563e+01,0.81037e+01,0.87505e+01,0.80234e+01,0.73900e+01 /) - kbo(:, 3,30,14) = (/ & - & 0.74214e+01,0.81535e+01,0.87321e+01,0.80469e+01,0.75564e+01 /) - kbo(:, 4,30,14) = (/ & - & 0.76455e+01,0.81683e+01,0.86770e+01,0.80524e+01,0.76986e+01 /) - kbo(:, 5,30,14) = (/ & - & 0.78317e+01,0.81499e+01,0.85949e+01,0.80416e+01,0.78203e+01 /) - kbo(:, 1,31,14) = (/ & - & 0.69054e+01,0.80478e+01,0.87566e+01,0.80136e+01,0.72537e+01 /) - kbo(:, 2,31,14) = (/ & - & 0.72125e+01,0.81281e+01,0.87710e+01,0.80494e+01,0.74404e+01 /) - kbo(:, 3,31,14) = (/ & - & 0.74718e+01,0.81700e+01,0.87427e+01,0.80677e+01,0.76003e+01 /) - kbo(:, 4,31,14) = (/ & - & 0.76912e+01,0.81779e+01,0.86791e+01,0.80682e+01,0.77384e+01 /) - kbo(:, 5,31,14) = (/ & - & 0.78715e+01,0.81532e+01,0.85914e+01,0.80538e+01,0.78547e+01 /) - kbo(:, 1,32,14) = (/ & - & 0.69718e+01,0.80767e+01,0.87812e+01,0.80405e+01,0.73093e+01 /) - kbo(:, 2,32,14) = (/ & - & 0.72714e+01,0.81493e+01,0.87845e+01,0.80705e+01,0.74889e+01 /) - kbo(:, 3,32,14) = (/ & - & 0.75255e+01,0.81843e+01,0.87476e+01,0.80843e+01,0.76427e+01 /) - kbo(:, 4,32,14) = (/ & - & 0.77373e+01,0.81836e+01,0.86757e+01,0.80798e+01,0.77759e+01 /) - kbo(:, 5,32,14) = (/ & - & 0.79115e+01,0.81523e+01,0.85821e+01,0.80611e+01,0.78870e+01 /) - kbo(:, 1,33,14) = (/ & - & 0.70424e+01,0.81041e+01,0.88003e+01,0.80631e+01,0.73621e+01 /) - kbo(:, 2,33,14) = (/ & - & 0.73332e+01,0.81674e+01,0.87934e+01,0.80887e+01,0.75359e+01 /) - kbo(:, 3,33,14) = (/ & - & 0.75797e+01,0.81949e+01,0.87467e+01,0.80962e+01,0.76832e+01 /) - kbo(:, 4,33,14) = (/ & - & 0.77832e+01,0.81860e+01,0.86679e+01,0.80880e+01,0.78112e+01 /) - kbo(:, 5,33,14) = (/ & - & 0.79514e+01,0.81480e+01,0.85688e+01,0.80650e+01,0.79176e+01 /) - kbo(:, 1,34,14) = (/ & - & 0.71032e+01,0.81256e+01,0.88135e+01,0.80801e+01,0.74073e+01 /) - kbo(:, 2,34,14) = (/ & - & 0.73864e+01,0.81812e+01,0.87981e+01,0.81025e+01,0.75752e+01 /) - kbo(:, 3,34,14) = (/ & - & 0.76257e+01,0.82022e+01,0.87428e+01,0.81055e+01,0.77177e+01 /) - kbo(:, 4,34,14) = (/ & - & 0.78229e+01,0.81866e+01,0.86595e+01,0.80934e+01,0.78409e+01 /) - kbo(:, 5,34,14) = (/ & - & 0.79841e+01,0.81428e+01,0.85553e+01,0.80663e+01,0.79427e+01 /) - kbo(:, 1,35,14) = (/ & - & 0.71357e+01,0.81386e+01,0.88238e+01,0.80923e+01,0.74328e+01 /) - kbo(:, 2,35,14) = (/ & - & 0.74155e+01,0.81901e+01,0.88028e+01,0.81125e+01,0.75980e+01 /) - kbo(:, 3,35,14) = (/ & - & 0.76506e+01,0.82068e+01,0.87428e+01,0.81128e+01,0.77381e+01 /) - kbo(:, 4,35,14) = (/ & - & 0.78446e+01,0.81876e+01,0.86563e+01,0.80980e+01,0.78583e+01 /) - kbo(:, 5,35,14) = (/ & - & 0.80022e+01,0.81408e+01,0.85492e+01,0.80683e+01,0.79574e+01 /) - kbo(:, 1,36,14) = (/ & - & 0.71358e+01,0.81426e+01,0.88312e+01,0.80996e+01,0.74385e+01 /) - kbo(:, 2,36,14) = (/ & - & 0.74168e+01,0.81942e+01,0.88101e+01,0.81195e+01,0.76033e+01 /) - kbo(:, 3,36,14) = (/ & - & 0.76530e+01,0.82111e+01,0.87491e+01,0.81189e+01,0.77431e+01 /) - kbo(:, 4,36,14) = (/ & - & 0.78475e+01,0.81916e+01,0.86625e+01,0.81041e+01,0.78633e+01 /) - kbo(:, 5,36,14) = (/ & - & 0.80053e+01,0.81444e+01,0.85549e+01,0.80739e+01,0.79624e+01 /) - kbo(:, 1,37,14) = (/ & - & 0.70898e+01,0.81353e+01,0.88375e+01,0.81022e+01,0.74173e+01 /) - kbo(:, 2,37,14) = (/ & - & 0.73792e+01,0.81923e+01,0.88220e+01,0.81236e+01,0.75852e+01 /) - kbo(:, 3,37,14) = (/ & - & 0.76229e+01,0.82146e+01,0.87658e+01,0.81255e+01,0.77281e+01 /) - kbo(:, 4,37,14) = (/ & - & 0.78232e+01,0.81996e+01,0.86818e+01,0.81120e+01,0.78508e+01 /) - kbo(:, 5,37,14) = (/ & - & 0.79866e+01,0.81554e+01,0.85764e+01,0.80843e+01,0.79525e+01 /) - kbo(:, 1,38,14) = (/ & - & 0.70419e+01,0.81271e+01,0.88418e+01,0.81031e+01,0.73933e+01 /) - kbo(:, 2,38,14) = (/ & - & 0.73389e+01,0.81889e+01,0.88323e+01,0.81261e+01,0.75648e+01 /) - kbo(:, 3,38,14) = (/ & - & 0.75899e+01,0.82161e+01,0.87808e+01,0.81301e+01,0.77105e+01 /) - kbo(:, 4,38,14) = (/ & - & 0.77971e+01,0.82068e+01,0.87000e+01,0.81195e+01,0.78368e+01 /) - kbo(:, 5,38,14) = (/ & - & 0.79663e+01,0.81665e+01,0.85976e+01,0.80935e+01,0.79412e+01 /) - kbo(:, 1,39,14) = (/ & - & 0.69923e+01,0.81165e+01,0.88435e+01,0.81024e+01,0.73685e+01 /) - kbo(:, 2,39,14) = (/ & - & 0.72982e+01,0.81845e+01,0.88409e+01,0.81277e+01,0.75441e+01 /) - kbo(:, 3,39,14) = (/ & - & 0.75563e+01,0.82164e+01,0.87952e+01,0.81347e+01,0.76928e+01 /) - kbo(:, 4,39,14) = (/ & - & 0.77695e+01,0.82122e+01,0.87165e+01,0.81250e+01,0.78216e+01 /) - kbo(:, 5,39,14) = (/ & - & 0.79452e+01,0.81762e+01,0.86172e+01,0.81015e+01,0.79291e+01 /) - kbo(:, 1,40,14) = (/ & - & 0.69080e+01,0.80958e+01,0.88413e+01,0.80965e+01,0.73229e+01 /) - kbo(:, 2,40,14) = (/ & - & 0.72277e+01,0.81734e+01,0.88495e+01,0.81259e+01,0.75046e+01 /) - kbo(:, 3,40,14) = (/ & - & 0.74967e+01,0.82131e+01,0.88131e+01,0.81381e+01,0.76600e+01 /) - kbo(:, 4,40,14) = (/ & - & 0.77214e+01,0.82184e+01,0.87413e+01,0.81320e+01,0.77938e+01 /) - kbo(:, 5,40,14) = (/ & - & 0.79055e+01,0.81894e+01,0.86471e+01,0.81094e+01,0.79066e+01 /) - kbo(:, 1,41,14) = (/ & - & 0.68155e+01,0.80708e+01,0.88352e+01,0.80885e+01,0.72719e+01 /) - kbo(:, 2,41,14) = (/ & - & 0.71495e+01,0.81585e+01,0.88545e+01,0.81224e+01,0.74618e+01 /) - kbo(:, 3,41,14) = (/ & - & 0.74308e+01,0.82074e+01,0.88291e+01,0.81392e+01,0.76238e+01 /) - kbo(:, 4,41,14) = (/ & - & 0.76675e+01,0.82222e+01,0.87650e+01,0.81374e+01,0.77629e+01 /) - kbo(:, 5,41,14) = (/ & - & 0.78621e+01,0.82014e+01,0.86761e+01,0.81197e+01,0.78805e+01 /) - kbo(:, 1,42,14) = (/ & - & 0.67210e+01,0.80436e+01,0.88257e+01,0.80787e+01,0.72181e+01 /) - kbo(:, 2,42,14) = (/ & - & 0.70672e+01,0.81413e+01,0.88562e+01,0.81177e+01,0.74171e+01 /) - kbo(:, 3,42,14) = (/ & - & 0.73618e+01,0.81993e+01,0.88420e+01,0.81387e+01,0.75853e+01 /) - kbo(:, 4,42,14) = (/ & - & 0.76110e+01,0.82240e+01,0.87872e+01,0.81416e+01,0.77301e+01 /) - kbo(:, 5,42,14) = (/ & - & 0.78157e+01,0.82114e+01,0.87034e+01,0.81275e+01,0.78533e+01 /) - kbo(:, 1,43,14) = (/ & - & 0.66012e+01,0.80077e+01,0.88083e+01,0.80639e+01,0.71482e+01 /) - kbo(:, 2,43,14) = (/ & - & 0.69627e+01,0.81158e+01,0.88532e+01,0.81101e+01,0.73596e+01 /) - kbo(:, 3,43,14) = (/ & - & 0.72743e+01,0.81862e+01,0.88533e+01,0.81352e+01,0.75360e+01 /) - kbo(:, 4,43,14) = (/ & - & 0.75376e+01,0.82203e+01,0.88101e+01,0.81444e+01,0.76876e+01 /) - kbo(:, 5,43,14) = (/ & - & 0.77560e+01,0.82200e+01,0.87338e+01,0.81353e+01,0.78176e+01 /) - kbo(:, 1,44,14) = (/ & - & 0.64654e+01,0.79624e+01,0.87841e+01,0.80450e+01,0.70696e+01 /) - kbo(:, 2,44,14) = (/ & - & 0.68452e+01,0.80842e+01,0.88456e+01,0.80985e+01,0.72931e+01 /) - kbo(:, 3,44,14) = (/ & - & 0.71736e+01,0.81668e+01,0.88594e+01,0.81294e+01,0.74799e+01 /) - kbo(:, 4,44,14) = (/ & - & 0.74536e+01,0.82135e+01,0.88309e+01,0.81455e+01,0.76398e+01 /) - kbo(:, 5,44,14) = (/ & - & 0.76864e+01,0.82252e+01,0.87641e+01,0.81417e+01,0.77771e+01 /) - kbo(:, 1,45,14) = (/ & - & 0.63246e+01,0.79121e+01,0.87529e+01,0.80227e+01,0.69872e+01 /) - kbo(:, 2,45,14) = (/ & - & 0.67215e+01,0.80478e+01,0.88314e+01,0.80840e+01,0.72219e+01 /) - kbo(:, 3,45,14) = (/ & - & 0.70680e+01,0.81447e+01,0.88609e+01,0.81218e+01,0.74205e+01 /) - kbo(:, 4,45,14) = (/ & - & 0.73633e+01,0.82020e+01,0.88464e+01,0.81437e+01,0.75896e+01 /) - kbo(:, 5,45,14) = (/ & - & 0.76123e+01,0.82264e+01,0.87913e+01,0.81458e+01,0.77333e+01 /) - kbo(:, 1,46,14) = (/ & - & 0.61677e+01,0.78522e+01,0.87120e+01,0.79958e+01,0.68962e+01 /) - kbo(:, 2,46,14) = (/ & - & 0.65843e+01,0.80056e+01,0.88106e+01,0.80659e+01,0.71413e+01 /) - kbo(:, 3,46,14) = (/ & - & 0.69482e+01,0.81147e+01,0.88565e+01,0.81122e+01,0.73539e+01 /) - kbo(:, 4,46,14) = (/ & - & 0.72620e+01,0.81857e+01,0.88581e+01,0.81382e+01,0.75320e+01 /) - kbo(:, 5,46,14) = (/ & - & 0.75285e+01,0.82222e+01,0.88171e+01,0.81482e+01,0.76841e+01 /) - kbo(:, 1,47,14) = (/ & - & 0.59872e+01,0.77759e+01,0.86581e+01,0.79599e+01,0.67904e+01 /) - kbo(:, 2,47,14) = (/ & - & 0.64227e+01,0.79505e+01,0.87794e+01,0.80417e+01,0.70463e+01 /) - kbo(:, 3,47,14) = (/ & - & 0.68067e+01,0.80750e+01,0.88445e+01,0.80966e+01,0.72732e+01 /) - kbo(:, 4,47,14) = (/ & - & 0.71415e+01,0.81619e+01,0.88634e+01,0.81302e+01,0.74640e+01 /) - kbo(:, 5,47,14) = (/ & - & 0.74259e+01,0.82118e+01,0.88390e+01,0.81478e+01,0.76260e+01 /) - kbo(:, 1,48,14) = (/ & - & 0.57999e+01,0.76897e+01,0.85924e+01,0.79165e+01,0.66812e+01 /) - kbo(:, 2,48,14) = (/ & - & 0.62523e+01,0.78878e+01,0.87384e+01,0.80135e+01,0.69471e+01 /) - kbo(:, 3,48,14) = (/ & - & 0.66581e+01,0.80303e+01,0.88250e+01,0.80783e+01,0.71862e+01 /) - kbo(:, 4,48,14) = (/ & - & 0.70120e+01,0.81321e+01,0.88616e+01,0.81203e+01,0.73915e+01 /) - kbo(:, 5,48,14) = (/ & - & 0.73167e+01,0.81963e+01,0.88550e+01,0.81433e+01,0.75640e+01 /) - kbo(:, 1,49,14) = (/ & - & 0.56056e+01,0.75967e+01,0.85186e+01,0.78664e+01,0.65684e+01 /) - kbo(:, 2,49,14) = (/ & - & 0.60725e+01,0.78139e+01,0.86868e+01,0.79799e+01,0.68428e+01 /) - kbo(:, 3,49,14) = (/ & - & 0.65005e+01,0.79789e+01,0.87970e+01,0.80551e+01,0.70936e+01 /) - kbo(:, 4,49,14) = (/ & - & 0.68750e+01,0.80955e+01,0.88532e+01,0.81069e+01,0.73141e+01 /) - kbo(:, 5,49,14) = (/ & - & 0.72008e+01,0.81753e+01,0.88640e+01,0.81362e+01,0.74980e+01 /) - kbo(:, 1,50,14) = (/ & - & 0.54125e+01,0.74991e+01,0.84401e+01,0.78123e+01,0.64595e+01 /) - kbo(:, 2,50,14) = (/ & - & 0.59003e+01,0.77375e+01,0.86301e+01,0.79423e+01,0.67420e+01 /) - kbo(:, 3,50,14) = (/ & - & 0.63429e+01,0.79215e+01,0.87619e+01,0.80304e+01,0.70024e+01 /) - kbo(:, 4,50,14) = (/ & - & 0.67393e+01,0.80557e+01,0.88380e+01,0.80904e+01,0.72354e+01 /) - kbo(:, 5,50,14) = (/ & - & 0.70838e+01,0.81507e+01,0.88659e+01,0.81277e+01,0.74327e+01 /) - kbo(:, 1,51,14) = (/ & - & 0.52191e+01,0.73982e+01,0.83585e+01,0.77548e+01,0.63504e+01 /) - kbo(:, 2,51,14) = (/ & - & 0.57281e+01,0.76566e+01,0.85673e+01,0.79002e+01,0.66408e+01 /) - kbo(:, 3,51,14) = (/ & - & 0.61850e+01,0.78612e+01,0.87206e+01,0.80029e+01,0.69102e+01 /) - kbo(:, 4,51,14) = (/ & - & 0.66013e+01,0.80131e+01,0.88169e+01,0.80719e+01,0.71542e+01 /) - kbo(:, 5,51,14) = (/ & - & 0.69630e+01,0.81207e+01,0.88611e+01,0.81171e+01,0.73645e+01 /) - kbo(:, 1,52,14) = (/ & - & 0.50203e+01,0.72853e+01,0.82659e+01,0.76900e+01,0.62362e+01 /) - kbo(:, 2,52,14) = (/ & - & 0.55489e+01,0.75692e+01,0.84974e+01,0.78525e+01,0.65380e+01 /) - kbo(:, 3,52,14) = (/ & - & 0.60223e+01,0.77933e+01,0.86726e+01,0.79710e+01,0.68148e+01 /) - kbo(:, 4,52,14) = (/ & - & 0.64533e+01,0.79619e+01,0.87883e+01,0.80495e+01,0.70682e+01 /) - kbo(:, 5,52,14) = (/ & - & 0.68363e+01,0.80853e+01,0.88509e+01,0.81034e+01,0.72926e+01 /) - kbo(:, 1,53,14) = (/ & - & 0.48171e+01,0.71626e+01,0.81646e+01,0.76188e+01,0.61179e+01 /) - kbo(:, 2,53,14) = (/ & - & 0.53620e+01,0.74745e+01,0.84206e+01,0.77982e+01,0.64310e+01 /) - kbo(:, 3,53,14) = (/ & - & 0.58544e+01,0.77168e+01,0.86150e+01,0.79329e+01,0.67166e+01 /) - kbo(:, 4,53,14) = (/ & - & 0.63007e+01,0.79064e+01,0.87527e+01,0.80244e+01,0.69787e+01 /) - kbo(:, 5,53,14) = (/ & - & 0.67036e+01,0.80457e+01,0.88348e+01,0.80870e+01,0.72150e+01 /) - kbo(:, 1,54,14) = (/ & - & 0.46268e+01,0.70415e+01,0.80643e+01,0.75453e+01,0.60051e+01 /) - kbo(:, 2,54,14) = (/ & - & 0.51834e+01,0.73793e+01,0.83436e+01,0.77439e+01,0.63304e+01 /) - kbo(:, 3,54,14) = (/ & - & 0.56952e+01,0.76416e+01,0.85557e+01,0.78930e+01,0.66233e+01 /) - kbo(:, 4,54,14) = (/ & - & 0.61555e+01,0.78501e+01,0.87136e+01,0.79986e+01,0.68935e+01 /) - kbo(:, 5,54,14) = (/ & - & 0.65754e+01,0.80055e+01,0.88139e+01,0.80689e+01,0.71391e+01 /) - kbo(:, 1,55,14) = (/ & - & 0.44418e+01,0.69152e+01,0.79589e+01,0.74683e+01,0.58909e+01 /) - kbo(:, 2,55,14) = (/ & - & 0.50082e+01,0.72786e+01,0.82608e+01,0.76866e+01,0.62296e+01 /) - kbo(:, 3,55,14) = (/ & - & 0.55372e+01,0.75641e+01,0.84935e+01,0.78502e+01,0.65324e+01 /) - kbo(:, 4,55,14) = (/ & - & 0.60119e+01,0.77891e+01,0.86705e+01,0.79700e+01,0.68094e+01 /) - kbo(:, 5,55,14) = (/ & - & 0.64443e+01,0.79596e+01,0.87874e+01,0.80489e+01,0.70636e+01 /) - kbo(:, 1,56,14) = (/ & - & 0.42552e+01,0.67816e+01,0.78463e+01,0.73861e+01,0.57693e+01 /) - kbo(:, 2,56,14) = (/ & - & 0.48302e+01,0.71710e+01,0.81721e+01,0.76241e+01,0.61259e+01 /) - kbo(:, 3,56,14) = (/ & - & 0.53736e+01,0.74812e+01,0.84261e+01,0.78026e+01,0.64389e+01 /) - kbo(:, 4,56,14) = (/ & - & 0.58648e+01,0.77223e+01,0.86198e+01,0.79361e+01,0.67232e+01 /) - kbo(:, 5,56,14) = (/ & - & 0.63103e+01,0.79105e+01,0.87564e+01,0.80271e+01,0.69853e+01 /) - kbo(:, 1,57,14) = (/ & - & 0.40639e+01,0.66394e+01,0.77238e+01,0.72954e+01,0.56390e+01 /) - kbo(:, 2,57,14) = (/ & - & 0.46488e+01,0.70563e+01,0.80768e+01,0.75544e+01,0.60187e+01 /) - kbo(:, 3,57,14) = (/ & - & 0.52035e+01,0.73909e+01,0.83529e+01,0.77510e+01,0.63425e+01 /) - kbo(:, 4,57,14) = (/ & - & 0.57137e+01,0.76510e+01,0.85638e+01,0.78985e+01,0.66342e+01 /) - kbo(:, 5,57,14) = (/ & - & 0.61722e+01,0.78574e+01,0.87192e+01,0.80023e+01,0.69038e+01 /) - kbo(:, 1,58,14) = (/ & - & 0.38805e+01,0.64976e+01,0.75961e+01,0.72010e+01,0.55107e+01 /) - kbo(:, 2,58,14) = (/ & - & 0.44745e+01,0.69383e+01,0.79787e+01,0.74825e+01,0.59115e+01 /) - kbo(:, 3,58,14) = (/ & - & 0.50386e+01,0.72976e+01,0.82763e+01,0.76973e+01,0.62480e+01 /) - kbo(:, 4,58,14) = (/ & - & 0.55648e+01,0.75780e+01,0.85055e+01,0.78586e+01,0.65486e+01 /) - kbo(:, 5,58,14) = (/ & - & 0.60366e+01,0.78002e+01,0.86790e+01,0.79756e+01,0.68245e+01 /) - kbo(:, 1,59,14) = (/ & - & 0.38057e+01,0.64388e+01,0.75416e+01,0.71615e+01,0.54582e+01 /) - kbo(:, 2,59,14) = (/ & - & 0.44044e+01,0.68893e+01,0.79374e+01,0.74528e+01,0.58671e+01 /) - kbo(:, 3,59,14) = (/ & - & 0.49711e+01,0.72574e+01,0.82432e+01,0.76750e+01,0.62091e+01 /) - kbo(:, 4,59,14) = (/ & - & 0.55038e+01,0.75476e+01,0.84809e+01,0.78415e+01,0.65137e+01 /) - kbo(:, 5,59,14) = (/ & - & 0.59820e+01,0.77764e+01,0.86612e+01,0.79636e+01,0.67922e+01 /) - kbo(:, 1,13,15) = (/ & - & 0.21583e+02,0.16708e+02,0.15578e+02,0.16324e+02,0.21499e+02 /) - kbo(:, 2,13,15) = (/ & - & 0.21596e+02,0.16646e+02,0.15448e+02,0.16116e+02,0.21237e+02 /) - kbo(:, 3,13,15) = (/ & - & 0.21561e+02,0.16562e+02,0.15303e+02,0.15881e+02,0.20975e+02 /) - kbo(:, 4,13,15) = (/ & - & 0.21482e+02,0.16444e+02,0.15131e+02,0.15663e+02,0.20709e+02 /) - kbo(:, 5,13,15) = (/ & - & 0.21360e+02,0.16308e+02,0.14933e+02,0.15443e+02,0.20449e+02 /) - kbo(:, 1,14,15) = (/ & - & 0.23286e+02,0.18105e+02,0.17022e+02,0.17494e+02,0.22811e+02 /) - kbo(:, 2,14,15) = (/ & - & 0.23268e+02,0.18001e+02,0.16845e+02,0.17259e+02,0.22563e+02 /) - kbo(:, 3,14,15) = (/ & - & 0.23185e+02,0.17865e+02,0.16645e+02,0.17010e+02,0.22295e+02 /) - kbo(:, 4,14,15) = (/ & - & 0.23065e+02,0.17707e+02,0.16417e+02,0.16757e+02,0.22015e+02 /) - kbo(:, 5,14,15) = (/ & - & 0.22894e+02,0.17515e+02,0.16163e+02,0.16504e+02,0.21733e+02 /) - kbo(:, 1,15,15) = (/ & - & 0.24991e+02,0.19505e+02,0.18411e+02,0.18638e+02,0.24057e+02 /) - kbo(:, 2,15,15) = (/ & - & 0.24920e+02,0.19349e+02,0.18180e+02,0.18374e+02,0.23810e+02 /) - kbo(:, 3,15,15) = (/ & - & 0.24797e+02,0.19155e+02,0.17917e+02,0.18103e+02,0.23536e+02 /) - kbo(:, 4,15,15) = (/ & - & 0.24619e+02,0.18942e+02,0.17624e+02,0.17814e+02,0.23238e+02 /) - kbo(:, 5,15,15) = (/ & - & 0.24389e+02,0.18694e+02,0.17313e+02,0.17524e+02,0.22925e+02 /) - kbo(:, 1,16,15) = (/ & - & 0.26656e+02,0.20879e+02,0.19716e+02,0.19730e+02,0.25227e+02 /) - kbo(:, 2,16,15) = (/ & - & 0.26523e+02,0.20660e+02,0.19424e+02,0.19442e+02,0.24961e+02 /) - kbo(:, 3,16,15) = (/ & - & 0.26348e+02,0.20405e+02,0.19093e+02,0.19135e+02,0.24671e+02 /) - kbo(:, 4,16,15) = (/ & - & 0.26107e+02,0.20124e+02,0.18741e+02,0.18812e+02,0.24357e+02 /) - kbo(:, 5,16,15) = (/ & - & 0.25816e+02,0.19816e+02,0.18364e+02,0.18476e+02,0.24001e+02 /) - kbo(:, 1,17,15) = (/ & - & 0.28242e+02,0.22184e+02,0.20936e+02,0.20769e+02,0.26307e+02 /) - kbo(:, 2,17,15) = (/ & - & 0.28053e+02,0.21895e+02,0.20570e+02,0.20444e+02,0.26016e+02 /) - kbo(:, 3,17,15) = (/ & - & 0.27803e+02,0.21584e+02,0.20174e+02,0.20096e+02,0.25702e+02 /) - kbo(:, 4,17,15) = (/ & - & 0.27499e+02,0.21233e+02,0.19753e+02,0.19726e+02,0.25351e+02 /) - kbo(:, 5,17,15) = (/ & - & 0.27139e+02,0.20859e+02,0.19319e+02,0.19342e+02,0.24955e+02 /) - kbo(:, 1,18,15) = (/ & - & 0.29720e+02,0.23411e+02,0.22065e+02,0.21731e+02,0.27280e+02 /) - kbo(:, 2,18,15) = (/ & - & 0.29480e+02,0.23053e+02,0.21624e+02,0.21360e+02,0.26972e+02 /) - kbo(:, 3,18,15) = (/ & - & 0.29159e+02,0.22667e+02,0.21156e+02,0.20967e+02,0.26625e+02 /) - kbo(:, 4,18,15) = (/ & - & 0.28776e+02,0.22248e+02,0.20663e+02,0.20553e+02,0.26229e+02 /) - kbo(:, 5,18,15) = (/ & - & 0.28340e+02,0.21810e+02,0.20170e+02,0.20119e+02,0.25790e+02 /) - kbo(:, 1,19,15) = (/ & - & 0.31079e+02,0.24533e+02,0.23084e+02,0.22601e+02,0.28156e+02 /) - kbo(:, 2,19,15) = (/ & - & 0.30766e+02,0.24108e+02,0.22572e+02,0.22185e+02,0.27815e+02 /) - kbo(:, 3,19,15) = (/ & - & 0.30376e+02,0.23641e+02,0.22030e+02,0.21741e+02,0.27429e+02 /) - kbo(:, 4,19,15) = (/ & - & 0.29923e+02,0.23160e+02,0.21471e+02,0.21280e+02,0.26992e+02 /) - kbo(:, 5,19,15) = (/ & - & 0.29415e+02,0.22660e+02,0.20920e+02,0.20797e+02,0.26511e+02 /) - kbo(:, 1,20,15) = (/ & - & 0.32290e+02,0.25527e+02,0.23984e+02,0.23373e+02,0.28918e+02 /) - kbo(:, 2,20,15) = (/ & - & 0.31907e+02,0.25035e+02,0.23397e+02,0.22899e+02,0.28537e+02 /) - kbo(:, 3,20,15) = (/ & - & 0.31450e+02,0.24496e+02,0.22784e+02,0.22408e+02,0.28112e+02 /) - kbo(:, 4,20,15) = (/ & - & 0.30926e+02,0.23946e+02,0.22166e+02,0.21898e+02,0.27628e+02 /) - kbo(:, 5,20,15) = (/ & - & 0.30351e+02,0.23384e+02,0.21559e+02,0.21369e+02,0.27109e+02 /) - kbo(:, 1,21,15) = (/ & - & 0.33354e+02,0.26397e+02,0.24768e+02,0.24040e+02,0.29575e+02 /) - kbo(:, 2,21,15) = (/ & - & 0.32901e+02,0.25842e+02,0.24107e+02,0.23511e+02,0.29153e+02 /) - kbo(:, 3,21,15) = (/ & - & 0.32374e+02,0.25240e+02,0.23426e+02,0.22972e+02,0.28686e+02 /) - kbo(:, 4,21,15) = (/ & - & 0.31781e+02,0.24624e+02,0.22754e+02,0.22416e+02,0.28162e+02 /) - kbo(:, 5,21,15) = (/ & - & 0.31147e+02,0.24003e+02,0.22095e+02,0.21845e+02,0.27608e+02 /) - kbo(:, 1,22,15) = (/ & - & 0.34245e+02,0.27109e+02,0.25388e+02,0.24566e+02,0.30099e+02 /) - kbo(:, 2,22,15) = (/ & - & 0.33719e+02,0.26481e+02,0.24655e+02,0.23987e+02,0.29635e+02 /) - kbo(:, 3,22,15) = (/ & - & 0.33121e+02,0.25821e+02,0.23916e+02,0.23403e+02,0.29124e+02 /) - kbo(:, 4,22,15) = (/ & - & 0.32461e+02,0.25147e+02,0.23196e+02,0.22805e+02,0.28562e+02 /) - kbo(:, 5,22,15) = (/ & - & 0.31774e+02,0.24482e+02,0.22495e+02,0.22197e+02,0.27979e+02 /) - kbo(:, 1,23,15) = (/ & - & 0.34979e+02,0.27686e+02,0.25885e+02,0.24985e+02,0.30523e+02 /) - kbo(:, 2,23,15) = (/ & - & 0.34390e+02,0.26989e+02,0.25088e+02,0.24366e+02,0.30015e+02 /) - kbo(:, 3,23,15) = (/ & - & 0.33724e+02,0.26279e+02,0.24300e+02,0.23742e+02,0.29464e+02 /) - kbo(:, 4,23,15) = (/ & - & 0.33013e+02,0.25562e+02,0.23538e+02,0.23108e+02,0.28875e+02 /) - kbo(:, 5,23,15) = (/ & - & 0.32269e+02,0.24853e+02,0.22796e+02,0.22467e+02,0.28265e+02 /) - kbo(:, 1,24,15) = (/ & - & 0.35573e+02,0.28136e+02,0.26264e+02,0.25305e+02,0.30849e+02 /) - kbo(:, 2,24,15) = (/ & - & 0.34922e+02,0.27387e+02,0.25413e+02,0.24653e+02,0.30308e+02 /) - kbo(:, 3,24,15) = (/ & - & 0.34200e+02,0.26632e+02,0.24587e+02,0.23994e+02,0.29723e+02 /) - kbo(:, 4,24,15) = (/ & - & 0.33439e+02,0.25872e+02,0.23787e+02,0.23329e+02,0.29105e+02 /) - kbo(:, 5,24,15) = (/ & - & 0.32647e+02,0.25128e+02,0.23014e+02,0.22661e+02,0.28477e+02 /) - kbo(:, 1,25,15) = (/ & - & 0.36033e+02,0.28469e+02,0.26533e+02,0.25539e+02,0.31091e+02 /) - kbo(:, 2,25,15) = (/ & - & 0.35324e+02,0.27679e+02,0.25640e+02,0.24852e+02,0.30512e+02 /) - kbo(:, 3,25,15) = (/ & - & 0.34555e+02,0.26887e+02,0.24782e+02,0.24167e+02,0.29902e+02 /) - kbo(:, 4,25,15) = (/ & - & 0.33752e+02,0.26092e+02,0.23953e+02,0.23474e+02,0.29262e+02 /) - kbo(:, 5,25,15) = (/ & - & 0.32915e+02,0.25319e+02,0.23155e+02,0.22787e+02,0.28617e+02 /) - kbo(:, 1,26,15) = (/ & - & 0.36371e+02,0.28696e+02,0.26697e+02,0.25688e+02,0.31254e+02 /) - kbo(:, 2,26,15) = (/ & - & 0.35607e+02,0.27872e+02,0.25775e+02,0.24975e+02,0.30642e+02 /) - kbo(:, 3,26,15) = (/ & - & 0.34798e+02,0.27047e+02,0.24890e+02,0.24264e+02,0.30007e+02 /) - kbo(:, 4,26,15) = (/ & - & 0.33956e+02,0.26227e+02,0.24040e+02,0.23549e+02,0.29351e+02 /) - kbo(:, 5,26,15) = (/ & - & 0.33076e+02,0.25425e+02,0.23222e+02,0.22845e+02,0.28688e+02 /) - kbo(:, 1,27,15) = (/ & - & 0.36605e+02,0.28839e+02,0.26780e+02,0.25770e+02,0.31349e+02 /) - kbo(:, 2,27,15) = (/ & - & 0.35796e+02,0.27987e+02,0.25836e+02,0.25037e+02,0.30713e+02 /) - kbo(:, 3,27,15) = (/ & - & 0.34952e+02,0.27136e+02,0.24934e+02,0.24306e+02,0.30059e+02 /) - kbo(:, 4,27,15) = (/ & - & 0.34075e+02,0.26294e+02,0.24068e+02,0.23575e+02,0.29392e+02 /) - kbo(:, 5,27,15) = (/ & - & 0.33166e+02,0.25473e+02,0.23238e+02,0.22856e+02,0.28711e+02 /) - kbo(:, 1,28,15) = (/ & - & 0.36758e+02,0.28917e+02,0.26804e+02,0.25803e+02,0.31396e+02 /) - kbo(:, 2,28,15) = (/ & - & 0.35910e+02,0.28037e+02,0.25842e+02,0.25051e+02,0.30739e+02 /) - kbo(:, 3,28,15) = (/ & - & 0.35033e+02,0.27165e+02,0.24925e+02,0.24304e+02,0.30070e+02 /) - kbo(:, 4,28,15) = (/ & - & 0.34125e+02,0.26307e+02,0.24049e+02,0.23563e+02,0.29393e+02 /) - kbo(:, 5,28,15) = (/ & - & 0.33188e+02,0.25468e+02,0.23210e+02,0.22829e+02,0.28695e+02 /) - kbo(:, 1,29,15) = (/ & - & 0.36829e+02,0.28926e+02,0.26766e+02,0.25785e+02,0.31393e+02 /) - kbo(:, 2,29,15) = (/ & - & 0.35949e+02,0.28025e+02,0.25792e+02,0.25019e+02,0.30723e+02 /) - kbo(:, 3,29,15) = (/ & - & 0.35045e+02,0.27141e+02,0.24868e+02,0.24260e+02,0.30042e+02 /) - kbo(:, 4,29,15) = (/ & - & 0.34114e+02,0.26272e+02,0.23986e+02,0.23509e+02,0.29353e+02 /) - kbo(:, 5,29,15) = (/ & - & 0.33154e+02,0.25419e+02,0.23142e+02,0.22765e+02,0.28643e+02 /) - kbo(:, 1,30,15) = (/ & - & 0.36836e+02,0.28884e+02,0.26681e+02,0.25729e+02,0.31353e+02 /) - kbo(:, 2,30,15) = (/ & - & 0.35935e+02,0.27972e+02,0.25704e+02,0.24955e+02,0.30675e+02 /) - kbo(:, 3,30,15) = (/ & - & 0.35002e+02,0.27075e+02,0.24775e+02,0.24184e+02,0.29984e+02 /) - kbo(:, 4,30,15) = (/ & - & 0.34050e+02,0.26196e+02,0.23891e+02,0.23427e+02,0.29283e+02 /) - kbo(:, 5,30,15) = (/ & - & 0.33076e+02,0.25337e+02,0.23046e+02,0.22676e+02,0.28566e+02 /) - kbo(:, 1,31,15) = (/ & - & 0.36791e+02,0.28797e+02,0.26557e+02,0.25640e+02,0.31284e+02 /) - kbo(:, 2,31,15) = (/ & - & 0.35869e+02,0.27877e+02,0.25582e+02,0.24857e+02,0.30596e+02 /) - kbo(:, 3,31,15) = (/ & - & 0.34914e+02,0.26971e+02,0.24653e+02,0.24083e+02,0.29901e+02 /) - kbo(:, 4,31,15) = (/ & - & 0.33941e+02,0.26084e+02,0.23767e+02,0.23319e+02,0.29185e+02 /) - kbo(:, 5,31,15) = (/ & - & 0.32958e+02,0.25224e+02,0.22924e+02,0.22563e+02,0.28464e+02 /) - kbo(:, 1,32,15) = (/ & - & 0.36704e+02,0.28676e+02,0.26402e+02,0.25521e+02,0.31186e+02 /) - kbo(:, 2,32,15) = (/ & - & 0.35759e+02,0.27748e+02,0.25429e+02,0.24734e+02,0.30492e+02 /) - kbo(:, 3,32,15) = (/ & - & 0.34789e+02,0.26839e+02,0.24504e+02,0.23956e+02,0.29792e+02 /) - kbo(:, 4,32,15) = (/ & - & 0.33799e+02,0.25947e+02,0.23622e+02,0.23189e+02,0.29067e+02 /) - kbo(:, 5,32,15) = (/ & - & 0.32807e+02,0.25086e+02,0.22780e+02,0.22431e+02,0.28343e+02 /) - kbo(:, 1,33,15) = (/ & - & 0.36581e+02,0.28529e+02,0.26229e+02,0.25386e+02,0.31076e+02 /) - kbo(:, 2,33,15) = (/ & - & 0.35618e+02,0.27597e+02,0.25258e+02,0.24592e+02,0.30373e+02 /) - kbo(:, 3,33,15) = (/ & - & 0.34634e+02,0.26685e+02,0.24337e+02,0.23815e+02,0.29666e+02 /) - kbo(:, 4,33,15) = (/ & - & 0.33632e+02,0.25791e+02,0.23459e+02,0.23042e+02,0.28931e+02 /) - kbo(:, 5,33,15) = (/ & - & 0.32632e+02,0.24931e+02,0.22622e+02,0.22288e+02,0.28210e+02 /) - kbo(:, 1,34,15) = (/ & - & 0.36458e+02,0.28392e+02,0.26072e+02,0.25264e+02,0.30972e+02 /) - kbo(:, 2,34,15) = (/ & - & 0.35483e+02,0.27459e+02,0.25106e+02,0.24467e+02,0.30265e+02 /) - kbo(:, 3,34,15) = (/ & - & 0.34486e+02,0.26542e+02,0.24189e+02,0.23688e+02,0.29550e+02 /) - kbo(:, 4,34,15) = (/ & - & 0.33480e+02,0.25653e+02,0.23315e+02,0.22913e+02,0.28811e+02 /) - kbo(:, 5,34,15) = (/ & - & 0.32478e+02,0.24793e+02,0.22484e+02,0.22163e+02,0.28094e+02 /) - kbo(:, 1,35,15) = (/ & - & 0.36414e+02,0.28334e+02,0.25999e+02,0.25206e+02,0.30923e+02 /) - kbo(:, 2,35,15) = (/ & - & 0.35425e+02,0.27395e+02,0.25033e+02,0.24406e+02,0.30215e+02 /) - kbo(:, 3,35,15) = (/ & - & 0.34420e+02,0.26476e+02,0.24117e+02,0.23624e+02,0.29493e+02 /) - kbo(:, 4,35,15) = (/ & - & 0.33407e+02,0.25585e+02,0.23243e+02,0.22849e+02,0.28753e+02 /) - kbo(:, 5,35,15) = (/ & - & 0.32403e+02,0.24726e+02,0.22415e+02,0.22101e+02,0.28034e+02 /) - kbo(:, 1,36,15) = (/ & - & 0.36456e+02,0.28365e+02,0.26023e+02,0.25227e+02,0.30947e+02 /) - kbo(:, 2,36,15) = (/ & - & 0.35465e+02,0.27424e+02,0.25054e+02,0.24425e+02,0.30235e+02 /) - kbo(:, 3,36,15) = (/ & - & 0.34451e+02,0.26498e+02,0.24134e+02,0.23640e+02,0.29510e+02 /) - kbo(:, 4,36,15) = (/ & - & 0.33436e+02,0.25606e+02,0.23259e+02,0.22862e+02,0.28768e+02 /) - kbo(:, 5,36,15) = (/ & - & 0.32427e+02,0.24743e+02,0.22427e+02,0.22112e+02,0.28048e+02 /) - kbo(:, 1,37,15) = (/ & - & 0.36638e+02,0.28533e+02,0.26191e+02,0.25363e+02,0.31069e+02 /) - kbo(:, 2,37,15) = (/ & - & 0.35645e+02,0.27585e+02,0.25212e+02,0.24557e+02,0.30356e+02 /) - kbo(:, 3,37,15) = (/ & - & 0.34632e+02,0.26655e+02,0.24283e+02,0.23768e+02,0.29633e+02 /) - kbo(:, 4,37,15) = (/ & - & 0.33611e+02,0.25753e+02,0.23398e+02,0.22987e+02,0.28889e+02 /) - kbo(:, 5,37,15) = (/ & - & 0.32597e+02,0.24885e+02,0.22559e+02,0.22230e+02,0.28165e+02 /) - kbo(:, 1,38,15) = (/ & - & 0.36818e+02,0.28702e+02,0.26363e+02,0.25503e+02,0.31194e+02 /) - kbo(:, 2,38,15) = (/ & - & 0.35825e+02,0.27749e+02,0.25373e+02,0.24692e+02,0.30479e+02 /) - kbo(:, 3,38,15) = (/ & - & 0.34809e+02,0.26811e+02,0.24434e+02,0.23900e+02,0.29757e+02 /) - kbo(:, 4,38,15) = (/ & - & 0.33789e+02,0.25904e+02,0.23543e+02,0.23114e+02,0.29012e+02 /) - kbo(:, 5,38,15) = (/ & - & 0.32767e+02,0.25028e+02,0.22694e+02,0.22351e+02,0.28285e+02 /) - kbo(:, 1,39,15) = (/ & - & 0.36989e+02,0.28865e+02,0.26530e+02,0.25636e+02,0.31312e+02 /) - kbo(:, 2,39,15) = (/ & - & 0.35999e+02,0.27907e+02,0.25529e+02,0.24823e+02,0.30597e+02 /) - kbo(:, 3,39,15) = (/ & - & 0.34983e+02,0.26966e+02,0.24583e+02,0.24027e+02,0.29878e+02 /) - kbo(:, 4,39,15) = (/ & - & 0.33957e+02,0.26048e+02,0.23683e+02,0.23240e+02,0.29134e+02 /) - kbo(:, 5,39,15) = (/ & - & 0.32935e+02,0.25169e+02,0.22826e+02,0.22468e+02,0.28398e+02 /) - kbo(:, 1,40,15) = (/ & - & 0.37254e+02,0.29125e+02,0.26800e+02,0.25853e+02,0.31502e+02 /) - kbo(:, 2,40,15) = (/ & - & 0.36269e+02,0.28159e+02,0.25786e+02,0.25036e+02,0.30787e+02 /) - kbo(:, 3,40,15) = (/ & - & 0.35253e+02,0.27211e+02,0.24825e+02,0.24233e+02,0.30069e+02 /) - kbo(:, 4,40,15) = (/ & - & 0.34229e+02,0.26287e+02,0.23913e+02,0.23442e+02,0.29327e+02 /) - kbo(:, 5,40,15) = (/ & - & 0.33202e+02,0.25396e+02,0.23042e+02,0.22665e+02,0.28587e+02 /) - kbo(:, 1,41,15) = (/ & - & 0.37526e+02,0.29396e+02,0.27087e+02,0.26081e+02,0.31701e+02 /) - kbo(:, 2,41,15) = (/ & - & 0.36546e+02,0.28422e+02,0.26056e+02,0.25257e+02,0.30982e+02 /) - kbo(:, 3,41,15) = (/ & - & 0.35534e+02,0.27467e+02,0.25079e+02,0.24448e+02,0.30265e+02 /) - kbo(:, 4,41,15) = (/ & - & 0.34510e+02,0.26534e+02,0.24153e+02,0.23654e+02,0.29528e+02 /) - kbo(:, 5,41,15) = (/ & - & 0.33481e+02,0.25633e+02,0.23271e+02,0.22872e+02,0.28783e+02 /) - kbo(:, 1,42,15) = (/ & - & 0.37791e+02,0.29665e+02,0.27375e+02,0.26306e+02,0.31897e+02 /) - kbo(:, 2,42,15) = (/ & - & 0.36818e+02,0.28682e+02,0.26328e+02,0.25479e+02,0.31179e+02 /) - kbo(:, 3,42,15) = (/ & - & 0.35814e+02,0.27725e+02,0.25336e+02,0.24663e+02,0.30459e+02 /) - kbo(:, 4,42,15) = (/ & - & 0.34792e+02,0.26784e+02,0.24397e+02,0.23867e+02,0.29730e+02 /) - kbo(:, 5,42,15) = (/ & - & 0.33761e+02,0.25873e+02,0.23504e+02,0.23079e+02,0.28983e+02 /) - kbo(:, 1,43,15) = (/ & - & 0.38102e+02,0.29987e+02,0.27726e+02,0.26579e+02,0.32132e+02 /) - kbo(:, 2,43,15) = (/ & - & 0.37142e+02,0.29000e+02,0.26660e+02,0.25743e+02,0.31410e+02 /) - kbo(:, 3,43,15) = (/ & - & 0.36146e+02,0.28034e+02,0.25651e+02,0.24927e+02,0.30694e+02 /) - kbo(:, 4,43,15) = (/ & - & 0.35125e+02,0.27087e+02,0.24694e+02,0.24121e+02,0.29968e+02 /) - kbo(:, 5,43,15) = (/ & - & 0.34093e+02,0.26161e+02,0.23786e+02,0.23330e+02,0.29223e+02 /) - kbo(:, 1,44,15) = (/ & - & 0.38433e+02,0.30339e+02,0.28106e+02,0.26874e+02,0.32381e+02 /) - kbo(:, 2,44,15) = (/ & - & 0.37485e+02,0.29344e+02,0.27023e+02,0.26033e+02,0.31664e+02 /) - kbo(:, 3,44,15) = (/ & - & 0.36497e+02,0.28368e+02,0.25996e+02,0.25211e+02,0.30945e+02 /) - kbo(:, 4,44,15) = (/ & - & 0.35483e+02,0.27414e+02,0.25019e+02,0.24397e+02,0.30221e+02 /) - kbo(:, 5,44,15) = (/ & - & 0.34454e+02,0.26480e+02,0.24095e+02,0.23603e+02,0.29482e+02 /) - kbo(:, 1,45,15) = (/ & - & 0.38755e+02,0.30690e+02,0.28491e+02,0.27169e+02,0.32624e+02 /) - kbo(:, 2,45,15) = (/ & - & 0.37819e+02,0.29686e+02,0.27393e+02,0.26324e+02,0.31916e+02 /) - kbo(:, 3,45,15) = (/ & - & 0.36842e+02,0.28700e+02,0.26343e+02,0.25494e+02,0.31195e+02 /) - kbo(:, 4,45,15) = (/ & - & 0.35840e+02,0.27743e+02,0.25350e+02,0.24674e+02,0.30470e+02 /) - kbo(:, 5,45,15) = (/ & - & 0.34814e+02,0.26800e+02,0.24408e+02,0.23874e+02,0.29739e+02 /) - kbo(:, 1,46,15) = (/ & - & 0.39090e+02,0.31065e+02,0.28908e+02,0.27486e+02,0.32877e+02 /) - kbo(:, 2,46,15) = (/ & - & 0.38170e+02,0.30050e+02,0.27790e+02,0.26631e+02,0.32180e+02 /) - kbo(:, 3,46,15) = (/ & - & 0.37208e+02,0.29060e+02,0.26719e+02,0.25793e+02,0.31457e+02 /) - kbo(:, 4,46,15) = (/ & - & 0.36211e+02,0.28091e+02,0.25705e+02,0.24972e+02,0.30735e+02 /) - kbo(:, 5,46,15) = (/ & - & 0.35190e+02,0.27143e+02,0.24746e+02,0.24165e+02,0.30011e+02 /) - kbo(:, 1,47,15) = (/ & - & 0.39451e+02,0.31490e+02,0.29378e+02,0.27842e+02,0.33145e+02 /) - kbo(:, 2,47,15) = (/ & - & 0.38554e+02,0.30463e+02,0.28238e+02,0.26977e+02,0.32470e+02 /) - kbo(:, 3,47,15) = (/ & - & 0.37608e+02,0.29464e+02,0.27149e+02,0.26134e+02,0.31753e+02 /) - kbo(:, 4,47,15) = (/ & - & 0.36624e+02,0.28485e+02,0.26114e+02,0.25307e+02,0.31030e+02 /) - kbo(:, 5,47,15) = (/ & - & 0.35612e+02,0.27529e+02,0.25131e+02,0.24491e+02,0.30307e+02 /) - kbo(:, 1,48,15) = (/ & - & 0.39789e+02,0.31912e+02,0.29855e+02,0.28207e+02,0.33402e+02 /) - kbo(:, 2,48,15) = (/ & - & 0.38929e+02,0.30877e+02,0.28697e+02,0.27328e+02,0.32755e+02 /) - kbo(:, 3,48,15) = (/ & - & 0.38000e+02,0.29868e+02,0.27588e+02,0.26477e+02,0.32050e+02 /) - kbo(:, 4,48,15) = (/ & - & 0.37030e+02,0.28879e+02,0.26527e+02,0.25639e+02,0.31322e+02 /) - kbo(:, 5,48,15) = (/ & - & 0.36027e+02,0.27916e+02,0.25523e+02,0.24819e+02,0.30601e+02 /) - kbo(:, 1,49,15) = (/ & - & 0.40116e+02,0.32336e+02,0.30332e+02,0.28574e+02,0.33637e+02 /) - kbo(:, 2,49,15) = (/ & - & 0.39295e+02,0.31299e+02,0.29164e+02,0.27682e+02,0.33028e+02 /) - kbo(:, 3,49,15) = (/ & - & 0.38385e+02,0.30275e+02,0.28033e+02,0.26821e+02,0.32341e+02 /) - kbo(:, 4,49,15) = (/ & - & 0.37432e+02,0.29281e+02,0.26949e+02,0.25975e+02,0.31615e+02 /) - kbo(:, 5,49,15) = (/ & - & 0.36440e+02,0.28306e+02,0.25923e+02,0.25151e+02,0.30893e+02 /) - kbo(:, 1,50,15) = (/ & - & 0.40414e+02,0.32736e+02,0.30783e+02,0.28924e+02,0.33845e+02 /) - kbo(:, 2,50,15) = (/ & - & 0.39619e+02,0.31694e+02,0.29608e+02,0.28020e+02,0.33276e+02 /) - kbo(:, 3,50,15) = (/ & - & 0.38737e+02,0.30661e+02,0.28456e+02,0.27146e+02,0.32609e+02 /) - kbo(:, 4,50,15) = (/ & - & 0.37800e+02,0.29658e+02,0.27356e+02,0.26296e+02,0.31894e+02 /) - kbo(:, 5,50,15) = (/ & - & 0.36822e+02,0.28673e+02,0.26306e+02,0.25463e+02,0.31168e+02 /) - kbo(:, 1,51,15) = (/ & - & 0.40689e+02,0.33123e+02,0.31211e+02,0.29252e+02,0.34023e+02 /) - kbo(:, 2,51,15) = (/ & - & 0.39919e+02,0.32076e+02,0.30039e+02,0.28350e+02,0.33499e+02 /) - kbo(:, 3,51,15) = (/ & - & 0.39075e+02,0.31039e+02,0.28875e+02,0.27462e+02,0.32860e+02 /) - kbo(:, 4,51,15) = (/ & - & 0.38151e+02,0.30023e+02,0.27755e+02,0.26605e+02,0.32160e+02 /) - kbo(:, 5,51,15) = (/ & - & 0.37189e+02,0.29033e+02,0.26685e+02,0.25765e+02,0.31432e+02 /) - kbo(:, 1,52,15) = (/ & - & 0.40936e+02,0.33510e+02,0.31640e+02,0.29576e+02,0.34183e+02 /) - kbo(:, 2,52,15) = (/ & - & 0.40210e+02,0.32459e+02,0.30471e+02,0.28683e+02,0.33706e+02 /) - kbo(:, 3,52,15) = (/ & - & 0.39397e+02,0.31418e+02,0.29296e+02,0.27784e+02,0.33107e+02 /) - kbo(:, 4,52,15) = (/ & - & 0.38495e+02,0.30394e+02,0.28160e+02,0.26919e+02,0.32422e+02 /) - kbo(:, 5,52,15) = (/ & - & 0.37548e+02,0.29397e+02,0.27070e+02,0.26070e+02,0.31697e+02 /) - kbo(:, 1,53,15) = (/ & - & 0.41161e+02,0.33900e+02,0.32075e+02,0.29895e+02,0.34325e+02 /) - kbo(:, 2,53,15) = (/ & - & 0.40494e+02,0.32844e+02,0.30901e+02,0.29015e+02,0.33898e+02 /) - kbo(:, 3,53,15) = (/ & - & 0.39709e+02,0.31802e+02,0.29726e+02,0.28110e+02,0.33339e+02 /) - kbo(:, 4,53,15) = (/ & - & 0.38833e+02,0.30766e+02,0.28570e+02,0.27234e+02,0.32680e+02 /) - kbo(:, 5,53,15) = (/ & - & 0.37902e+02,0.29761e+02,0.27465e+02,0.26380e+02,0.31966e+02 /) - kbo(:, 1,54,15) = (/ & - & 0.41350e+02,0.34259e+02,0.32468e+02,0.30182e+02,0.34433e+02 /) - kbo(:, 2,54,15) = (/ & - & 0.40740e+02,0.33197e+02,0.31292e+02,0.29316e+02,0.34057e+02 /) - kbo(:, 3,54,15) = (/ & - & 0.39978e+02,0.32149e+02,0.30122e+02,0.28414e+02,0.33542e+02 /) - kbo(:, 4,54,15) = (/ & - & 0.39139e+02,0.31111e+02,0.28955e+02,0.27524e+02,0.32911e+02 /) - kbo(:, 5,54,15) = (/ & - & 0.38222e+02,0.30095e+02,0.27832e+02,0.26664e+02,0.32209e+02 /) - kbo(:, 1,55,15) = (/ & - & 0.41508e+02,0.34608e+02,0.32849e+02,0.30454e+02,0.34522e+02 /) - kbo(:, 2,55,15) = (/ & - & 0.40955e+02,0.33539e+02,0.31671e+02,0.29598e+02,0.34194e+02 /) - kbo(:, 3,55,15) = (/ & - & 0.40232e+02,0.32485e+02,0.30501e+02,0.28707e+02,0.33722e+02 /) - kbo(:, 4,55,15) = (/ & - & 0.39425e+02,0.31448e+02,0.29326e+02,0.27805e+02,0.33122e+02 /) - kbo(:, 5,55,15) = (/ & - & 0.38521e+02,0.30419e+02,0.28187e+02,0.26941e+02,0.32441e+02 /) - kbo(:, 1,56,15) = (/ & - & 0.41645e+02,0.34957e+02,0.33233e+02,0.30720e+02,0.34599e+02 /) - kbo(:, 2,56,15) = (/ & - & 0.41152e+02,0.33880e+02,0.32050e+02,0.29874e+02,0.34316e+02 /) - kbo(:, 3,56,15) = (/ & - & 0.40482e+02,0.32823e+02,0.30877e+02,0.28999e+02,0.33890e+02 /) - kbo(:, 4,56,15) = (/ & - & 0.39696e+02,0.31783e+02,0.29704e+02,0.28093e+02,0.33329e+02 /) - kbo(:, 5,56,15) = (/ & - & 0.38819e+02,0.30747e+02,0.28547e+02,0.27216e+02,0.32666e+02 /) - kbo(:, 1,57,15) = (/ & - & 0.41772e+02,0.35313e+02,0.33621e+02,0.30980e+02,0.34653e+02 /) - kbo(:, 2,57,15) = (/ & - & 0.41335e+02,0.34223e+02,0.32428e+02,0.30152e+02,0.34423e+02 /) - kbo(:, 3,57,15) = (/ & - & 0.40717e+02,0.33158e+02,0.31249e+02,0.29283e+02,0.34041e+02 /) - kbo(:, 4,57,15) = (/ & - & 0.39952e+02,0.32113e+02,0.30080e+02,0.28382e+02,0.33523e+02 /) - kbo(:, 5,57,15) = (/ & - & 0.39110e+02,0.31075e+02,0.28913e+02,0.27492e+02,0.32886e+02 /) - kbo(:, 1,58,15) = (/ & - & 0.41872e+02,0.35648e+02,0.33990e+02,0.31215e+02,0.34668e+02 /) - kbo(:, 2,58,15) = (/ & - & 0.41486e+02,0.34551e+02,0.32786e+02,0.30408e+02,0.34507e+02 /) - kbo(:, 3,58,15) = (/ & - & 0.40923e+02,0.33481e+02,0.31606e+02,0.29553e+02,0.34175e+02 /) - kbo(:, 4,58,15) = (/ & - & 0.40193e+02,0.32431e+02,0.30438e+02,0.28657e+02,0.33692e+02 /) - kbo(:, 5,58,15) = (/ & - & 0.39381e+02,0.31393e+02,0.29263e+02,0.27758e+02,0.33088e+02 /) - kbo(:, 1,59,15) = (/ & - & 0.41905e+02,0.35780e+02,0.34140e+02,0.31306e+02,0.34668e+02 /) - kbo(:, 2,59,15) = (/ & - & 0.41541e+02,0.34683e+02,0.32931e+02,0.30509e+02,0.34539e+02 /) - kbo(:, 3,59,15) = (/ & - & 0.41000e+02,0.33610e+02,0.31751e+02,0.29658e+02,0.34225e+02 /) - kbo(:, 4,59,15) = (/ & - & 0.40289e+02,0.32559e+02,0.30582e+02,0.28769e+02,0.33760e+02 /) - kbo(:, 5,59,15) = (/ & - & 0.39484e+02,0.31518e+02,0.29405e+02,0.27867e+02,0.33169e+02 /) - kbo(:, 1,13,16) = (/ & - & 0.44218e+02,0.33168e+02,0.27605e+02,0.40761e+02,0.54348e+02 /) - kbo(:, 2,13,16) = (/ & - & 0.43915e+02,0.32941e+02,0.26738e+02,0.39342e+02,0.52457e+02 /) - kbo(:, 3,13,16) = (/ & - & 0.43491e+02,0.32624e+02,0.25861e+02,0.38022e+02,0.50696e+02 /) - kbo(:, 4,13,16) = (/ & - & 0.42952e+02,0.32220e+02,0.25010e+02,0.36713e+02,0.48951e+02 /) - kbo(:, 5,13,16) = (/ & - & 0.42305e+02,0.31735e+02,0.24184e+02,0.35417e+02,0.47222e+02 /) - kbo(:, 1,14,16) = (/ & - & 0.50640e+02,0.37984e+02,0.31138e+02,0.45571e+02,0.60761e+02 /) - kbo(:, 2,14,16) = (/ & - & 0.50072e+02,0.37558e+02,0.30053e+02,0.43809e+02,0.58413e+02 /) - kbo(:, 3,14,16) = (/ & - & 0.49384e+02,0.37043e+02,0.28981e+02,0.42162e+02,0.56216e+02 /) - kbo(:, 4,14,16) = (/ & - & 0.48531e+02,0.36404e+02,0.27924e+02,0.40555e+02,0.54074e+02 /) - kbo(:, 5,14,16) = (/ & - & 0.47588e+02,0.35696e+02,0.26896e+02,0.38961e+02,0.51948e+02 /) - kbo(:, 1,15,16) = (/ & - & 0.57280e+02,0.42964e+02,0.34740e+02,0.50323e+02,0.67098e+02 /) - kbo(:, 2,15,16) = (/ & - & 0.56367e+02,0.42280e+02,0.33407e+02,0.48191e+02,0.64255e+02 /) - kbo(:, 3,15,16) = (/ & - & 0.55318e+02,0.41493e+02,0.32092e+02,0.46141e+02,0.61520e+02 /) - kbo(:, 4,15,16) = (/ & - & 0.54108e+02,0.40586e+02,0.30808e+02,0.44198e+02,0.58930e+02 /) - kbo(:, 5,15,16) = (/ & - & 0.52826e+02,0.39625e+02,0.29570e+02,0.42303e+02,0.56404e+02 /) - kbo(:, 1,16,16) = (/ & - & 0.63967e+02,0.47979e+02,0.38312e+02,0.54909e+02,0.73213e+02 /) - kbo(:, 2,16,16) = (/ & - & 0.62626e+02,0.46973e+02,0.36695e+02,0.52345e+02,0.69794e+02 /) - kbo(:, 3,16,16) = (/ & - & 0.61112e+02,0.45838e+02,0.35123e+02,0.49904e+02,0.66539e+02 /) - kbo(:, 4,16,16) = (/ & - & 0.59503e+02,0.44632e+02,0.33592e+02,0.47568e+02,0.63425e+02 /) - kbo(:, 5,16,16) = (/ & - & 0.57855e+02,0.43396e+02,0.32125e+02,0.45372e+02,0.60497e+02 /) - kbo(:, 1,17,16) = (/ & - & 0.70540e+02,0.52908e+02,0.41791e+02,0.59184e+02,0.78912e+02 /) - kbo(:, 2,17,16) = (/ & - & 0.68668e+02,0.51504e+02,0.39850e+02,0.56189e+02,0.74919e+02 /) - kbo(:, 3,17,16) = (/ & - & 0.66662e+02,0.50000e+02,0.37983e+02,0.53339e+02,0.71119e+02 /) - kbo(:, 4,17,16) = (/ & - & 0.64633e+02,0.48479e+02,0.36199e+02,0.50655e+02,0.67541e+02 /) - kbo(:, 5,17,16) = (/ & - & 0.62569e+02,0.46932e+02,0.34500e+02,0.48144e+02,0.64192e+02 /) - kbo(:, 1,18,16) = (/ & - & 0.76762e+02,0.57574e+02,0.45062e+02,0.63079e+02,0.84105e+02 /) - kbo(:, 2,18,16) = (/ & - & 0.74320e+02,0.55743e+02,0.42789e+02,0.59653e+02,0.79537e+02 /) - kbo(:, 3,18,16) = (/ & - & 0.71820e+02,0.53869e+02,0.40630e+02,0.56414e+02,0.75219e+02 /) - kbo(:, 4,18,16) = (/ & - & 0.69367e+02,0.52029e+02,0.38584e+02,0.53391e+02,0.71188e+02 /) - kbo(:, 5,18,16) = (/ & - & 0.66895e+02,0.50176e+02,0.36663e+02,0.50596e+02,0.67461e+02 /) - kbo(:, 1,19,16) = (/ & - & 0.82534e+02,0.61903e+02,0.48066e+02,0.66533e+02,0.88711e+02 /) - kbo(:, 2,19,16) = (/ & - & 0.79500e+02,0.59627e+02,0.45463e+02,0.62698e+02,0.83597e+02 /) - kbo(:, 3,19,16) = (/ & - & 0.76531e+02,0.57402e+02,0.43003e+02,0.59107e+02,0.78810e+02 /) - kbo(:, 4,19,16) = (/ & - & 0.73621e+02,0.55219e+02,0.40714e+02,0.55776e+02,0.74368e+02 /) - kbo(:, 5,19,16) = (/ & - & 0.70758e+02,0.53072e+02,0.38580e+02,0.52720e+02,0.70294e+02 /) - kbo(:, 1,20,16) = (/ & - & 0.87685e+02,0.65766e+02,0.50694e+02,0.69445e+02,0.92594e+02 /) - kbo(:, 2,20,16) = (/ & - & 0.84090e+02,0.63070e+02,0.47778e+02,0.65259e+02,0.87012e+02 /) - kbo(:, 3,20,16) = (/ & - & 0.80661e+02,0.60499e+02,0.45053e+02,0.61350e+02,0.81800e+02 /) - kbo(:, 4,20,16) = (/ & - & 0.77340e+02,0.58008e+02,0.42537e+02,0.57756e+02,0.77009e+02 /) - kbo(:, 5,20,16) = (/ & - & 0.74079e+02,0.55564e+02,0.40201e+02,0.54475e+02,0.72633e+02 /) - kbo(:, 1,21,16) = (/ & - & 0.92165e+02,0.69126e+02,0.52960e+02,0.71872e+02,0.95829e+02 /) - kbo(:, 2,21,16) = (/ & - & 0.88084e+02,0.66065e+02,0.49750e+02,0.67363e+02,0.89818e+02 /) - kbo(:, 3,21,16) = (/ & - & 0.84210e+02,0.63159e+02,0.46796e+02,0.63194e+02,0.84259e+02 /) - kbo(:, 4,21,16) = (/ & - & 0.80508e+02,0.60384e+02,0.44071e+02,0.59388e+02,0.79185e+02 /) - kbo(:, 5,21,16) = (/ & - & 0.76889e+02,0.57670e+02,0.41555e+02,0.55904e+02,0.74538e+02 /) - kbo(:, 1,22,16) = (/ & - & 0.95696e+02,0.71774e+02,0.54631e+02,0.73526e+02,0.98034e+02 /) - kbo(:, 2,22,16) = (/ & - & 0.91190e+02,0.68395e+02,0.51188e+02,0.68768e+02,0.91690e+02 /) - kbo(:, 3,22,16) = (/ & - & 0.86939e+02,0.65206e+02,0.48040e+02,0.64409e+02,0.85879e+02 /) - kbo(:, 4,22,16) = (/ & - & 0.82890e+02,0.62171e+02,0.45151e+02,0.60441e+02,0.80589e+02 /) - kbo(:, 5,22,16) = (/ & - & 0.78983e+02,0.59241e+02,0.42494e+02,0.56811e+02,0.75748e+02 /) - kbo(:, 1,23,16) = (/ & - & 0.98505e+02,0.73881e+02,0.55897e+02,0.74690e+02,0.99587e+02 /) - kbo(:, 2,23,16) = (/ & - & 0.93651e+02,0.70240e+02,0.52277e+02,0.69755e+02,0.93007e+02 /) - kbo(:, 3,23,16) = (/ & - & 0.89065e+02,0.66801e+02,0.48963e+02,0.65256e+02,0.87008e+02 /) - kbo(:, 4,23,16) = (/ & - & 0.84725e+02,0.63546e+02,0.45949e+02,0.61155e+02,0.81540e+02 /) - kbo(:, 5,23,16) = (/ & - & 0.80582e+02,0.60440e+02,0.43182e+02,0.57417e+02,0.76556e+02 /) - kbo(:, 1,24,16) = (/ & - & 0.10064e+03,0.75484e+02,0.56783e+02,0.75422e+02,0.10056e+03 /) - kbo(:, 2,24,16) = (/ & - & 0.95486e+02,0.71616e+02,0.53021e+02,0.70355e+02,0.93807e+02 /) - kbo(:, 3,24,16) = (/ & - & 0.90630e+02,0.67975e+02,0.49592e+02,0.65751e+02,0.87668e+02 /) - kbo(:, 4,24,16) = (/ & - & 0.86059e+02,0.64548e+02,0.46483e+02,0.61565e+02,0.82086e+02 /) - kbo(:, 5,24,16) = (/ & - & 0.81718e+02,0.61292e+02,0.43631e+02,0.57753e+02,0.77003e+02 /) - kbo(:, 1,25,16) = (/ & - & 0.10215e+03,0.76618e+02,0.57324e+02,0.75759e+02,0.10101e+03 /) - kbo(:, 2,25,16) = (/ & - & 0.96743e+02,0.72560e+02,0.53446e+02,0.70607e+02,0.94143e+02 /) - kbo(:, 3,25,16) = (/ & - & 0.91681e+02,0.68763e+02,0.49955e+02,0.65940e+02,0.87921e+02 /) - kbo(:, 4,25,16) = (/ & - & 0.86919e+02,0.65192e+02,0.46773e+02,0.61703e+02,0.82270e+02 /) - kbo(:, 5,25,16) = (/ & - & 0.82440e+02,0.61834e+02,0.43873e+02,0.57842e+02,0.77123e+02 /) - kbo(:, 1,26,16) = (/ & - & 0.10303e+03,0.77274e+02,0.57519e+02,0.75701e+02,0.10093e+03 /) - kbo(:, 2,26,16) = (/ & - & 0.97444e+02,0.73085e+02,0.53575e+02,0.70525e+02,0.94033e+02 /) - kbo(:, 3,26,16) = (/ & - & 0.92222e+02,0.69170e+02,0.50048e+02,0.65828e+02,0.87771e+02 /) - kbo(:, 4,26,16) = (/ & - & 0.87336e+02,0.65505e+02,0.46824e+02,0.61566e+02,0.82088e+02 /) - kbo(:, 5,26,16) = (/ & - & 0.82771e+02,0.62082e+02,0.43909e+02,0.57710e+02,0.76947e+02 /) - kbo(:, 1,27,16) = (/ & - & 0.10345e+03,0.77590e+02,0.57467e+02,0.75392e+02,0.10052e+03 /) - kbo(:, 2,27,16) = (/ & - & 0.97739e+02,0.73306e+02,0.53511e+02,0.70214e+02,0.93619e+02 /) - kbo(:, 3,27,16) = (/ & - & 0.92406e+02,0.69307e+02,0.49956e+02,0.65525e+02,0.87366e+02 /) - kbo(:, 4,27,16) = (/ & - & 0.87439e+02,0.65583e+02,0.46715e+02,0.61255e+02,0.81674e+02 /) - kbo(:, 5,27,16) = (/ & - & 0.82826e+02,0.62123e+02,0.43807e+02,0.57432e+02,0.76576e+02 /) - kbo(:, 1,28,16) = (/ & - & 0.10350e+03,0.77625e+02,0.57222e+02,0.74881e+02,0.99841e+02 /) - kbo(:, 2,28,16) = (/ & - & 0.97691e+02,0.73271e+02,0.53275e+02,0.69730e+02,0.92974e+02 /) - kbo(:, 3,28,16) = (/ & - & 0.92289e+02,0.69219e+02,0.49719e+02,0.65057e+02,0.86743e+02 /) - kbo(:, 4,28,16) = (/ & - & 0.87284e+02,0.65466e+02,0.46485e+02,0.60817e+02,0.81090e+02 /) - kbo(:, 5,28,16) = (/ & - & 0.82640e+02,0.61984e+02,0.43588e+02,0.57042e+02,0.76055e+02 /) - kbo(:, 1,29,16) = (/ & - & 0.10319e+03,0.77394e+02,0.56799e+02,0.74179e+02,0.98906e+02 /) - kbo(:, 2,29,16) = (/ & - & 0.97340e+02,0.73008e+02,0.52885e+02,0.69064e+02,0.92086e+02 /) - kbo(:, 3,29,16) = (/ & - & 0.91909e+02,0.68935e+02,0.49342e+02,0.64439e+02,0.85918e+02 /) - kbo(:, 4,29,16) = (/ & - & 0.86890e+02,0.65171e+02,0.46144e+02,0.60253e+02,0.80337e+02 /) - kbo(:, 5,29,16) = (/ & - & 0.82249e+02,0.61690e+02,0.43266e+02,0.56539e+02,0.75385e+02 /) - kbo(:, 1,30,16) = (/ & - & 0.10264e+03,0.76981e+02,0.56267e+02,0.73352e+02,0.97803e+02 /) - kbo(:, 2,30,16) = (/ & - & 0.96761e+02,0.72573e+02,0.52390e+02,0.68302e+02,0.91070e+02 /) - kbo(:, 3,30,16) = (/ & - & 0.91349e+02,0.68515e+02,0.48877e+02,0.63734e+02,0.84978e+02 /) - kbo(:, 4,30,16) = (/ & - & 0.86346e+02,0.64763e+02,0.45722e+02,0.59615e+02,0.79487e+02 /) - kbo(:, 5,30,16) = (/ & - & 0.81701e+02,0.61280e+02,0.42874e+02,0.55973e+02,0.74631e+02 /) - kbo(:, 1,31,16) = (/ & - & 0.10185e+03,0.76389e+02,0.55624e+02,0.72410e+02,0.96547e+02 /) - kbo(:, 2,31,16) = (/ & - & 0.95999e+02,0.72002e+02,0.51796e+02,0.67443e+02,0.89924e+02 /) - kbo(:, 3,31,16) = (/ & - & 0.90614e+02,0.67963e+02,0.48327e+02,0.62938e+02,0.83917e+02 /) - kbo(:, 4,31,16) = (/ & - & 0.85645e+02,0.64237e+02,0.45228e+02,0.58906e+02,0.78542e+02 /) - kbo(:, 5,31,16) = (/ & - & 0.81007e+02,0.60759e+02,0.42414e+02,0.55328e+02,0.73771e+02 /) - kbo(:, 1,32,16) = (/ & - & 0.10089e+03,0.75672e+02,0.54904e+02,0.71387e+02,0.95183e+02 /) - kbo(:, 2,32,16) = (/ & - & 0.95077e+02,0.71310e+02,0.51129e+02,0.66501e+02,0.88668e+02 /) - kbo(:, 3,32,16) = (/ & - & 0.89743e+02,0.67310e+02,0.47720e+02,0.62089e+02,0.82785e+02 /) - kbo(:, 4,32,16) = (/ & - & 0.84830e+02,0.63626e+02,0.44676e+02,0.58147e+02,0.77529e+02 /) - kbo(:, 5,32,16) = (/ & - & 0.80208e+02,0.60160e+02,0.41909e+02,0.54638e+02,0.72851e+02 /) - kbo(:, 1,33,16) = (/ & - & 0.99806e+02,0.74857e+02,0.54124e+02,0.70307e+02,0.93742e+02 /) - kbo(:, 2,33,16) = (/ & - & 0.94060e+02,0.70548e+02,0.50418e+02,0.65525e+02,0.87366e+02 /) - kbo(:, 3,33,16) = (/ & - & 0.88780e+02,0.66588e+02,0.47080e+02,0.61195e+02,0.81594e+02 /) - kbo(:, 4,33,16) = (/ & - & 0.83926e+02,0.62948e+02,0.44091e+02,0.57369e+02,0.76493e+02 /) - kbo(:, 5,33,16) = (/ & - & 0.79342e+02,0.59511e+02,0.41372e+02,0.53910e+02,0.71880e+02 /) - kbo(:, 1,34,16) = (/ & - & 0.98842e+02,0.74134e+02,0.53446e+02,0.69373e+02,0.92498e+02 /) - kbo(:, 2,34,16) = (/ & - & 0.93169e+02,0.69879e+02,0.49796e+02,0.64672e+02,0.86229e+02 /) - kbo(:, 3,34,16) = (/ & - & 0.87940e+02,0.65958e+02,0.46525e+02,0.60437e+02,0.80583e+02 /) - kbo(:, 4,34,16) = (/ & - & 0.83124e+02,0.62347e+02,0.43581e+02,0.56689e+02,0.75585e+02 /) - kbo(:, 5,34,16) = (/ & - & 0.78566e+02,0.58929e+02,0.40900e+02,0.53287e+02,0.71049e+02 /) - kbo(:, 1,35,16) = (/ & - & 0.98383e+02,0.73790e+02,0.53104e+02,0.68893e+02,0.91857e+02 /) - kbo(:, 2,35,16) = (/ & - & 0.92731e+02,0.69551e+02,0.49484e+02,0.64233e+02,0.85643e+02 /) - kbo(:, 3,35,16) = (/ & - & 0.87537e+02,0.65656e+02,0.46247e+02,0.60050e+02,0.80067e+02 /) - kbo(:, 4,35,16) = (/ & - & 0.82730e+02,0.62051e+02,0.43325e+02,0.56336e+02,0.75115e+02 /) - kbo(:, 5,35,16) = (/ & - & 0.78184e+02,0.58642e+02,0.40664e+02,0.52959e+02,0.70611e+02 /) - kbo(:, 1,36,16) = (/ & - & 0.98510e+02,0.73885e+02,0.53153e+02,0.68921e+02,0.91895e+02 /) - kbo(:, 2,36,16) = (/ & - & 0.92845e+02,0.69637e+02,0.49525e+02,0.64248e+02,0.85664e+02 /) - kbo(:, 3,36,16) = (/ & - & 0.87626e+02,0.65723e+02,0.46281e+02,0.60067e+02,0.80090e+02 /) - kbo(:, 4,36,16) = (/ & - & 0.82805e+02,0.62108e+02,0.43352e+02,0.56351e+02,0.75135e+02 /) - kbo(:, 5,36,16) = (/ & - & 0.78246e+02,0.58689e+02,0.40687e+02,0.52970e+02,0.70627e+02 /) - kbo(:, 1,37,16) = (/ & - & 0.99499e+02,0.74626e+02,0.53765e+02,0.69681e+02,0.92907e+02 /) - kbo(:, 2,37,16) = (/ & - & 0.93737e+02,0.70305e+02,0.50072e+02,0.64938e+02,0.86584e+02 /) - kbo(:, 3,37,16) = (/ & - & 0.88443e+02,0.66336e+02,0.46765e+02,0.60669e+02,0.80892e+02 /) - kbo(:, 4,37,16) = (/ & - & 0.83569e+02,0.62680e+02,0.43792e+02,0.56887e+02,0.75849e+02 /) - kbo(:, 5,37,16) = (/ & - & 0.78959e+02,0.59223e+02,0.41087e+02,0.53464e+02,0.71286e+02 /) - kbo(:, 1,38,16) = (/ & - & 0.10053e+03,0.75401e+02,0.54401e+02,0.70469e+02,0.93958e+02 /) - kbo(:, 2,38,16) = (/ & - & 0.94665e+02,0.71001e+02,0.50643e+02,0.65651e+02,0.87535e+02 /) - kbo(:, 3,38,16) = (/ & - & 0.89287e+02,0.66968e+02,0.47272e+02,0.61298e+02,0.81730e+02 /) - kbo(:, 4,38,16) = (/ & - & 0.84354e+02,0.63269e+02,0.44250e+02,0.57455e+02,0.76607e+02 /) - kbo(:, 5,38,16) = (/ & - & 0.79688e+02,0.59770e+02,0.41502e+02,0.53978e+02,0.71970e+02 /) - kbo(:, 1,39,16) = (/ & - & 0.10152e+03,0.76145e+02,0.55030e+02,0.71266e+02,0.95022e+02 /) - kbo(:, 2,39,16) = (/ & - & 0.95574e+02,0.71683e+02,0.51208e+02,0.66359e+02,0.88479e+02 /) - kbo(:, 3,39,16) = (/ & - & 0.90127e+02,0.67598e+02,0.47776e+02,0.61934e+02,0.82579e+02 /) - kbo(:, 4,39,16) = (/ & - & 0.85122e+02,0.63845e+02,0.44704e+02,0.58015e+02,0.77353e+02 /) - kbo(:, 5,39,16) = (/ & - & 0.80410e+02,0.60311e+02,0.41916e+02,0.54486e+02,0.72649e+02 /) - kbo(:, 1,40,16) = (/ & - & 0.10316e+03,0.77371e+02,0.56077e+02,0.72600e+02,0.96800e+02 /) - kbo(:, 2,40,16) = (/ & - & 0.97060e+02,0.72797e+02,0.52149e+02,0.67558e+02,0.90077e+02 /) - kbo(:, 3,40,16) = (/ & - & 0.91509e+02,0.68635e+02,0.48618e+02,0.63010e+02,0.84013e+02 /) - kbo(:, 4,40,16) = (/ & - & 0.86384e+02,0.64791e+02,0.45460e+02,0.58959e+02,0.78612e+02 /) - kbo(:, 5,40,16) = (/ & - & 0.81600e+02,0.61204e+02,0.42605e+02,0.55349e+02,0.73798e+02 /) - kbo(:, 1,41,16) = (/ & - & 0.10490e+03,0.78677e+02,0.57202e+02,0.74030e+02,0.98707e+02 /) - kbo(:, 2,41,16) = (/ & - & 0.98655e+02,0.73994e+02,0.53155e+02,0.68836e+02,0.91782e+02 /) - kbo(:, 3,41,16) = (/ & - & 0.92964e+02,0.69726e+02,0.49517e+02,0.64156e+02,0.85541e+02 /) - kbo(:, 4,41,16) = (/ & - & 0.87720e+02,0.65793e+02,0.46275e+02,0.59984e+02,0.79978e+02 /) - kbo(:, 5,41,16) = (/ & - & 0.82858e+02,0.62147e+02,0.43340e+02,0.56275e+02,0.75033e+02 /) - kbo(:, 1,42,16) = (/ & - & 0.10666e+03,0.79997e+02,0.58340e+02,0.75485e+02,0.10065e+03 /) - kbo(:, 2,42,16) = (/ & - & 0.10028e+03,0.75211e+02,0.54189e+02,0.70153e+02,0.93537e+02 /) - kbo(:, 3,42,16) = (/ & - & 0.94432e+02,0.70827e+02,0.50443e+02,0.65340e+02,0.87121e+02 /) - kbo(:, 4,42,16) = (/ & - & 0.89075e+02,0.66809e+02,0.47102e+02,0.61032e+02,0.81376e+02 /) - kbo(:, 5,42,16) = (/ & - & 0.84125e+02,0.63097e+02,0.44086e+02,0.57211e+02,0.76281e+02 /) - kbo(:, 1,43,16) = (/ & - & 0.10883e+03,0.81624e+02,0.59771e+02,0.77309e+02,0.10308e+03 /) - kbo(:, 2,43,16) = (/ & - & 0.10228e+03,0.76711e+02,0.55476e+02,0.71797e+02,0.95729e+02 /) - kbo(:, 3,43,16) = (/ & - & 0.96257e+02,0.72196e+02,0.51599e+02,0.66824e+02,0.89098e+02 /) - kbo(:, 4,43,16) = (/ & - & 0.90745e+02,0.68062e+02,0.48126e+02,0.62350e+02,0.83134e+02 /) - kbo(:, 5,43,16) = (/ & - & 0.85682e+02,0.64265e+02,0.45017e+02,0.58380e+02,0.77840e+02 /) - kbo(:, 1,44,16) = (/ & - & 0.11122e+03,0.83416e+02,0.61378e+02,0.79350e+02,0.10580e+03 /) - kbo(:, 2,44,16) = (/ & - & 0.10448e+03,0.78362e+02,0.56905e+02,0.73629e+02,0.98171e+02 /) - kbo(:, 3,44,16) = (/ & - & 0.98280e+02,0.73712e+02,0.52886e+02,0.68474e+02,0.91299e+02 /) - kbo(:, 4,44,16) = (/ & - & 0.92614e+02,0.69464e+02,0.49277e+02,0.63819e+02,0.85092e+02 /) - kbo(:, 5,44,16) = (/ & - & 0.87390e+02,0.65546e+02,0.46054e+02,0.59688e+02,0.79585e+02 /) - kbo(:, 1,45,16) = (/ & - & 0.11367e+03,0.85251e+02,0.63043e+02,0.81458e+02,0.10861e+03 /) - kbo(:, 2,45,16) = (/ & - & 0.10674e+03,0.80056e+02,0.58377e+02,0.75516e+02,0.10069e+03 /) - kbo(:, 3,45,16) = (/ & - & 0.10036e+03,0.75271e+02,0.54217e+02,0.70172e+02,0.93562e+02 /) - kbo(:, 4,45,16) = (/ & - & 0.94507e+02,0.70883e+02,0.50472e+02,0.65352e+02,0.87137e+02 /) - kbo(:, 5,45,16) = (/ & - & 0.89124e+02,0.66846e+02,0.47119e+02,0.61044e+02,0.81393e+02 /) - kbo(:, 1,46,16) = (/ & - & 0.11634e+03,0.87256e+02,0.64886e+02,0.83772e+02,0.11170e+03 /) - kbo(:, 2,46,16) = (/ & - & 0.10921e+03,0.81909e+02,0.60009e+02,0.77600e+02,0.10347e+03 /) - kbo(:, 3,46,16) = (/ & - & 0.10262e+03,0.76969e+02,0.55682e+02,0.72046e+02,0.96062e+02 /) - kbo(:, 4,46,16) = (/ & - & 0.96578e+02,0.72436e+02,0.51790e+02,0.67050e+02,0.89399e+02 /) - kbo(:, 5,46,16) = (/ & - & 0.91036e+02,0.68280e+02,0.48293e+02,0.62556e+02,0.83408e+02 /) - kbo(:, 1,47,16) = (/ & - & 0.11944e+03,0.89580e+02,0.67039e+02,0.86470e+02,0.11529e+03 /) - kbo(:, 2,47,16) = (/ & - & 0.11203e+03,0.84025e+02,0.61916e+02,0.80032e+02,0.10671e+03 /) - kbo(:, 3,47,16) = (/ & - & 0.10523e+03,0.78928e+02,0.57378e+02,0.74229e+02,0.98972e+02 /) - kbo(:, 4,47,16) = (/ & - & 0.98975e+02,0.74234e+02,0.53317e+02,0.69003e+02,0.92005e+02 /) - kbo(:, 5,47,16) = (/ & - & 0.93247e+02,0.69938e+02,0.49666e+02,0.64309e+02,0.85745e+02 /) - kbo(:, 1,48,16) = (/ & - & 0.12267e+03,0.92006e+02,0.69290e+02,0.89280e+02,0.11904e+03 /) - kbo(:, 2,48,16) = (/ & - & 0.11495e+03,0.86215e+02,0.63917e+02,0.82556e+02,0.11008e+03 /) - kbo(:, 3,48,16) = (/ & - & 0.10793e+03,0.80951e+02,0.59146e+02,0.76493e+02,0.10199e+03 /) - kbo(:, 4,48,16) = (/ & - & 0.10147e+03,0.76101e+02,0.54918e+02,0.71050e+02,0.94733e+02 /) - kbo(:, 5,48,16) = (/ & - & 0.95498e+02,0.71626e+02,0.51095e+02,0.66155e+02,0.88207e+02 /) - kbo(:, 1,49,16) = (/ & - & 0.12603e+03,0.94521e+02,0.71680e+02,0.92236e+02,0.12298e+03 /) - kbo(:, 2,49,16) = (/ & - & 0.11801e+03,0.88509e+02,0.66027e+02,0.85192e+02,0.11359e+03 /) - kbo(:, 3,49,16) = (/ & - & 0.11070e+03,0.83029e+02,0.61003e+02,0.78868e+02,0.10516e+03 /) - kbo(:, 4,49,16) = (/ & - & 0.10402e+03,0.78016e+02,0.56578e+02,0.73185e+02,0.97580e+02 /) - kbo(:, 5,49,16) = (/ & - & 0.97847e+02,0.73387e+02,0.52593e+02,0.68075e+02,0.90767e+02 /) - kbo(:, 1,50,16) = (/ & - & 0.12933e+03,0.96996e+02,0.74078e+02,0.95132e+02,0.12684e+03 /) - kbo(:, 2,50,16) = (/ & - & 0.12097e+03,0.90726e+02,0.68085e+02,0.87768e+02,0.11702e+03 /) - kbo(:, 3,50,16) = (/ & - & 0.11343e+03,0.85073e+02,0.62849e+02,0.81185e+02,0.10825e+03 /) - kbo(:, 4,50,16) = (/ & - & 0.10650e+03,0.79879e+02,0.58193e+02,0.75257e+02,0.10034e+03 /) - kbo(:, 5,50,16) = (/ & - & 0.10012e+03,0.75094e+02,0.54050e+02,0.69940e+02,0.93253e+02 /) - kbo(:, 1,51,16) = (/ & - & 0.13262e+03,0.99463e+02,0.76537e+02,0.98089e+02,0.13079e+03 /) - kbo(:, 2,51,16) = (/ & - & 0.12396e+03,0.92972e+02,0.70180e+02,0.90371e+02,0.12049e+03 /) - kbo(:, 3,51,16) = (/ & - & 0.11611e+03,0.87085e+02,0.64700e+02,0.83525e+02,0.11137e+03 /) - kbo(:, 4,51,16) = (/ & - & 0.10897e+03,0.81728e+02,0.59829e+02,0.77356e+02,0.10314e+03 /) - kbo(:, 5,51,16) = (/ & - & 0.10241e+03,0.76807e+02,0.55526e+02,0.71828e+02,0.95771e+02 /) - kbo(:, 1,52,16) = (/ & - & 0.13607e+03,0.10205e+03,0.79117e+02,0.10117e+03,0.13489e+03 /) - kbo(:, 2,52,16) = (/ & - & 0.12703e+03,0.95276e+02,0.72382e+02,0.93082e+02,0.12411e+03 /) - kbo(:, 3,52,16) = (/ & - & 0.11888e+03,0.89162e+02,0.66631e+02,0.85943e+02,0.11459e+03 /) - kbo(:, 4,52,16) = (/ & - & 0.11155e+03,0.83666e+02,0.61557e+02,0.79542e+02,0.10606e+03 /) - kbo(:, 5,52,16) = (/ & - & 0.10475e+03,0.78563e+02,0.57053e+02,0.73794e+02,0.98392e+02 /) - kbo(:, 1,53,16) = (/ & - & 0.13969e+03,0.10477e+03,0.81852e+02,0.10445e+03,0.13926e+03 /) - kbo(:, 2,53,16) = (/ & - & 0.13021e+03,0.97660e+02,0.74731e+02,0.95923e+02,0.12790e+03 /) - kbo(:, 3,53,16) = (/ & - & 0.12178e+03,0.91333e+02,0.68644e+02,0.88461e+02,0.11795e+03 /) - kbo(:, 4,53,16) = (/ & - & 0.11417e+03,0.85628e+02,0.63346e+02,0.81812e+02,0.10908e+03 /) - kbo(:, 5,53,16) = (/ & - & 0.10716e+03,0.80376e+02,0.58630e+02,0.75816e+02,0.10109e+03 /) - kbo(:, 1,54,16) = (/ & - & 0.14312e+03,0.10734e+03,0.84505e+02,0.10757e+03,0.14343e+03 /) - kbo(:, 2,54,16) = (/ & - & 0.13326e+03,0.99943e+02,0.77008e+02,0.98653e+02,0.13154e+03 /) - kbo(:, 3,54,16) = (/ & - & 0.12453e+03,0.93400e+02,0.70583e+02,0.90867e+02,0.12116e+03 /) - kbo(:, 4,54,16) = (/ & - & 0.11663e+03,0.87472e+02,0.65055e+02,0.83971e+02,0.11196e+03 /) - kbo(:, 5,54,16) = (/ & - & 0.10944e+03,0.82085e+02,0.60143e+02,0.77761e+02,0.10368e+03 /) - kbo(:, 1,55,16) = (/ & - & 0.14652e+03,0.10989e+03,0.87185e+02,0.11072e+03,0.14762e+03 /) - kbo(:, 2,55,16) = (/ & - & 0.13631e+03,0.10223e+03,0.79292e+02,0.10139e+03,0.13518e+03 /) - kbo(:, 3,55,16) = (/ & - & 0.12725e+03,0.95436e+02,0.72534e+02,0.93260e+02,0.12435e+03 /) - kbo(:, 4,55,16) = (/ & - & 0.11908e+03,0.89315e+02,0.66761e+02,0.86100e+02,0.11480e+03 /) - kbo(:, 5,55,16) = (/ & - & 0.11172e+03,0.83789e+02,0.61666e+02,0.79683e+02,0.10624e+03 /) - kbo(:, 1,56,16) = (/ & - & 0.15005e+03,0.11254e+03,0.89964e+02,0.11399e+03,0.15199e+03 /) - kbo(:, 2,56,16) = (/ & - & 0.13946e+03,0.10459e+03,0.81673e+02,0.10424e+03,0.13899e+03 /) - kbo(:, 3,56,16) = (/ & - & 0.13002e+03,0.97512e+02,0.74583e+02,0.95730e+02,0.12764e+03 /) - kbo(:, 4,56,16) = (/ & - & 0.12160e+03,0.91205e+02,0.68519e+02,0.88312e+02,0.11775e+03 /) - kbo(:, 5,56,16) = (/ & - & 0.11401e+03,0.85509e+02,0.63233e+02,0.81665e+02,0.10889e+03 /) - kbo(:, 1,57,16) = (/ & - & 0.15367e+03,0.11525e+03,0.92893e+02,0.11745e+03,0.15659e+03 /) - kbo(:, 2,57,16) = (/ & - & 0.14273e+03,0.10705e+03,0.84201e+02,0.10722e+03,0.14296e+03 /) - kbo(:, 3,57,16) = (/ & - & 0.13291e+03,0.99681e+02,0.76750e+02,0.98336e+02,0.13111e+03 /) - kbo(:, 4,57,16) = (/ & - & 0.12423e+03,0.93171e+02,0.70357e+02,0.90589e+02,0.12079e+03 /) - kbo(:, 5,57,16) = (/ & - & 0.11636e+03,0.87269e+02,0.64859e+02,0.83719e+02,0.11162e+03 /) - kbo(:, 1,58,16) = (/ & - & 0.15720e+03,0.11790e+03,0.95809e+02,0.12090e+03,0.16121e+03 /) - kbo(:, 2,58,16) = (/ & - & 0.14594e+03,0.10946e+03,0.86713e+02,0.11017e+03,0.14690e+03 /) - kbo(:, 3,58,16) = (/ & - & 0.13577e+03,0.10183e+03,0.78898e+02,0.10090e+03,0.13454e+03 /) - kbo(:, 4,58,16) = (/ & - & 0.12678e+03,0.95087e+02,0.72188e+02,0.92844e+02,0.12379e+03 /) - kbo(:, 5,58,16) = (/ & - & 0.11865e+03,0.88989e+02,0.66460e+02,0.85728e+02,0.11430e+03 /) - kbo(:, 1,59,16) = (/ & - & 0.15867e+03,0.11900e+03,0.97023e+02,0.12235e+03,0.16313e+03 /) - kbo(:, 2,59,16) = (/ & - & 0.14725e+03,0.11044e+03,0.87747e+02,0.11139e+03,0.14852e+03 /) - kbo(:, 3,59,16) = (/ & - & 0.13696e+03,0.10272e+03,0.79780e+02,0.10196e+03,0.13595e+03 /) - kbo(:, 4,59,16) = (/ & - & 0.12782e+03,0.95865e+02,0.72946e+02,0.93765e+02,0.12502e+03 /) - kbo(:, 5,59,16) = (/ & - & 0.11961e+03,0.89706e+02,0.67116e+02,0.86544e+02,0.11539e+03 /) - -! ----------------------------------------------------------------- - - forrefo(:, 1) = (/ 0.110008e-06, 0.630912e-06, 0.363159e-05, 0.616892e-05 /) - forrefo(:, 2) = (/ 0.429709e-05, 0.789174e-05, 0.217416e-04, 0.639393e-04 /) - forrefo(:, 3) = (/ 0.436283e-04, 0.526247e-04, 0.116341e-03, 0.205616e-03 /) - forrefo(:, 4) = (/ 0.215627e-03, 0.234522e-03, 0.280497e-03, 0.838668e-03 /) - forrefo(:, 5) = (/ 0.529283e-03, 0.620848e-03, 0.935561e-03, 0.171252e-02 /) - forrefo(:, 6) = (/ 0.212267e-02, 0.218564e-02, 0.222227e-02, 0.199650e-02 /) - forrefo(:, 7) = (/ 0.291120e-02, 0.281168e-02, 0.259543e-02, 0.210159e-02 /) - forrefo(:, 8) = (/ 0.316249e-02, 0.310695e-02, 0.279501e-02, 0.208076e-02 /) - forrefo(:, 9) = (/ 0.354993e-02, 0.336989e-02, 0.298930e-02, 0.180424e-02 /) - forrefo(:,10) = (/ 0.397729e-02, 0.367409e-02, 0.328982e-02, 0.177807e-02 /) - forrefo(:,11) = (/ 0.408831e-02, 0.398792e-02, 0.352727e-02, 0.192470e-02 /) - forrefo(:,12) = (/ 0.433926e-02, 0.420667e-02, 0.383894e-02, 0.220836e-02 /) - forrefo(:,13) = (/ 0.436397e-02, 0.433769e-02, 0.425752e-02, 0.237343e-02 /) - forrefo(:,14) = (/ 0.440525e-02, 0.449018e-02, 0.451881e-02, 0.269169e-02 /) - forrefo(:,15) = (/ 0.491350e-02, 0.481760e-02, 0.475799e-02, 0.362666e-02 /) - forrefo(:,16) = (/ 0.561641e-02, 0.524553e-02, 0.512473e-02, 0.493802e-02 /) - -! ----------------------------------------------------------------- -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 0.115887e-03, 0.926537e-04, 0.740783e-04, 0.592270e-04, 0.473530e-04, & - & 0.378596e-04, 0.302694e-04, 0.242010e-04, 0.193491e-04, 0.154700e-04 /) - selfrefo(:, 2) = (/ & - & 0.459557e-03, 0.381962e-03, 0.317469e-03, 0.263866e-03, 0.219313e-03, & - & 0.182283e-03, 0.151505e-03, 0.125924e-03, 0.104662e-03, 0.869904e-04 /) - selfrefo(:, 3) = (/ & - & 0.166821e-02, 0.151103e-02, 0.136866e-02, 0.123970e-02, 0.112290e-02, & - & 0.101710e-02, 0.921266e-03, 0.834463e-03, 0.755839e-03, 0.684623e-03 /) - selfrefo(:, 4) = (/ & - & 0.460175e-02, 0.421372e-02, 0.385842e-02, 0.353307e-02, 0.323516e-02, & - & 0.296236e-02, 0.271257e-02, 0.248385e-02, 0.227440e-02, 0.208262e-02 /) - selfrefo(:, 5) = (/ & - & 0.101589e-01, 0.924742e-02, 0.841772e-02, 0.766247e-02, 0.697497e-02, & - & 0.634917e-02, 0.577951e-02, 0.526096e-02, 0.478893e-02, 0.435926e-02 /) - selfrefo(:, 6) = (/ & - & 0.328043e-01, 0.300853e-01, 0.275917e-01, 0.253048e-01, 0.232075e-01, & - & 0.212839e-01, 0.195198e-01, 0.179020e-01, 0.164182e-01, 0.150574e-01 /) - selfrefo(:, 7) = (/ & - & 0.405936e-01, 0.376032e-01, 0.348331e-01, 0.322671e-01, 0.298901e-01, & - & 0.276883e-01, 0.256486e-01, 0.237591e-01, 0.220089e-01, 0.203876e-01 /) - selfrefo(:, 8) = (/ & - & 0.448362e-01, 0.413811e-01, 0.381923e-01, 0.352492e-01, 0.325329e-01, & - & 0.300259e-01, 0.277121e-01, 0.255766e-01, 0.236056e-01, 0.217866e-01 /) - selfrefo(:, 9) = (/ & - & 0.479741e-01, 0.445389e-01, 0.413497e-01, 0.383889e-01, 0.356400e-01, & - & 0.330880e-01, 0.307188e-01, 0.285191e-01, 0.264770e-01, 0.245812e-01 /) - selfrefo(:,10) = (/ & - & 0.519308e-01, 0.484130e-01, 0.451335e-01, 0.420761e-01, 0.392259e-01, & - & 0.365687e-01, 0.340916e-01, 0.317822e-01, 0.296293e-01, 0.276222e-01 /) - selfrefo(:,11) = (/ & - & 0.572039e-01, 0.527780e-01, 0.486945e-01, 0.449270e-01, 0.414510e-01, & - & 0.382439e-01, 0.352849e-01, 0.325549e-01, 0.300361e-01, 0.277122e-01 /) - selfrefo(:,12) = (/ & - & 0.601046e-01, 0.554411e-01, 0.511395e-01, 0.471716e-01, 0.435116e-01, & - & 0.401356e-01, 0.370215e-01, 0.341490e-01, 0.314994e-01, 0.290554e-01 /) - selfrefo(:,13) = (/ & - & 0.616595e-01, 0.567145e-01, 0.521662e-01, 0.479826e-01, 0.441346e-01, & - & 0.405951e-01, 0.373395e-01, 0.343450e-01, 0.315906e-01, 0.290571e-01 /) - selfrefo(:,14) = (/ & - & 0.647916e-01, 0.592493e-01, 0.541811e-01, 0.495465e-01, 0.453083e-01, & - & 0.414326e-01, 0.378885e-01, 0.346475e-01, 0.316837e-01, 0.289735e-01 /) - selfrefo(:,15) = (/ & - & 0.694231e-01, 0.637703e-01, 0.585777e-01, 0.538079e-01, 0.494265e-01, & - & 0.454019e-01, 0.417050e-01, 0.383091e-01, 0.351897e-01, 0.323244e-01 /) - selfrefo(:,16) = (/ & - & 0.761764e-01, 0.701815e-01, 0.646584e-01, 0.595700e-01, 0.548820e-01, & - & 0.505629e-01, 0.465838e-01, 0.429178e-01, 0.395403e-01, 0.364286e-01 /) - - end subroutine sw_kgb21 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_22.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_22.F90 deleted file mode 100644 index b78e212ee..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_22.F90 +++ /dev/null @@ -1,4985 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb22 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg22, only : kao, kbo, selfrefo, forrefo, sfluxrefo, rayl, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:, 1) = (/ & - & 3.71641 ,3.63190 ,3.44795 ,3.17936 , & - & 2.86071 ,2.48490 ,2.02471 ,1.52475 , & - & 1.03811 ,0.113272 ,9.37115e-02,7.38969e-02, & - & 5.44713e-02,3.45905e-02,1.30293e-02,1.84198e-03 /) - sfluxrefo(:, 2) = (/ & - & 3.73933 ,3.60360 ,3.43370 ,3.19749 , & - & 2.87747 ,2.47926 ,2.02175 ,1.52010 , & - & 1.03612 ,0.113265 ,9.37145e-02,7.38951e-02, & - & 5.44714e-02,3.45906e-02,1.30293e-02,1.84198e-03 /) - sfluxrefo(:, 3) = (/ & - & 3.73889 ,3.60279 ,3.43404 ,3.20560 , & - & 2.87367 ,2.47515 ,2.02412 ,1.52315 , & - & 1.03146 ,0.113272 ,9.36707e-02,7.39080e-02, & - & 5.44598e-02,3.45906e-02,1.30293e-02,1.84198e-03 /) - sfluxrefo(:, 4) = (/ & - & 3.73801 ,3.60530 ,3.43659 ,3.20640 , & - & 2.87039 ,2.47330 ,2.02428 ,1.52509 , & - & 1.03037 ,0.112553 ,9.35352e-02,7.39675e-02, & - & 5.43951e-02,3.45669e-02,1.30292e-02,1.84198e-03 /) - sfluxrefo(:, 5) = (/ & - & 3.73809 ,3.60996 ,3.43602 ,3.20364 , & - & 2.87005 ,2.47343 ,2.02353 ,1.52617 , & - & 1.03138 ,0.111172 ,9.29885e-02,7.35034e-02, & - & 5.42427e-02,3.45732e-02,1.30169e-02,1.84550e-03 /) - sfluxrefo(:, 6) = (/ & - & 3.73872 ,3.62054 ,3.42934 ,3.20110 , & - & 2.86886 ,2.47379 ,2.02237 ,1.52754 , & - & 1.03228 ,0.111597 ,9.12252e-02,7.33115e-02, & - & 5.35600e-02,3.45187e-02,1.30184e-02,1.84551e-03 /) - sfluxrefo(:, 7) = (/ & - & 3.73969 ,3.65461 ,3.40646 ,3.19082 , & - & 2.86919 ,2.47289 ,2.02312 ,1.52629 , & - & 1.03329 ,0.111611 ,9.16275e-02,7.14731e-02, & - & 5.31771e-02,3.44980e-02,1.30190e-02,1.84551e-03 /) - sfluxrefo(:, 8) = (/ & - & 3.73995 ,3.65348 ,3.43707 ,3.16351 , & - & 2.87003 ,2.47392 ,2.02114 ,1.52548 , & - & 1.03306 ,0.111088 ,9.12422e-02,7.11146e-02, & - & 5.31333e-02,3.45302e-02,1.30209e-02,1.84554e-03 /) - sfluxrefo(:, 9) = (/ & - & 3.73788 ,3.65004 ,3.46938 ,3.15236 , & - & 2.86381 ,2.47393 ,2.01715 ,1.52134 , & - & 1.03163 ,0.111259 ,9.12948e-02,7.09999e-02, & - & 5.31792e-02,3.44955e-02,1.30189e-02,1.84551e-03 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:,1) = (/ & - & 3.74825E+00, 3.69573E+00, 3.44506E+00, 3.26248E+00,& - & 2.92582E+00, 2.52211E+00, 2.05147E+00, 1.53729E+00,& - & 1.04802E+00, 1.14541E-01, 9.45399E-02, 7.49495E-02,& - & 5.49887E-02, 3.49939E-02, 1.31836E-02, 1.86747E-03/) - irradnceo(:,2) = (/ & - & 3.76819E+00, 3.67447E+00, 3.45390E+00, 3.26242E+00,& - & 2.92382E+00, 2.51857E+00, 2.04913E+00, 1.53772E+00,& - & 1.04801E+00, 1.14539E-01, 9.45409E-02, 7.49501E-02,& - & 5.49887E-02, 3.49938E-02, 1.31835E-02, 1.86747E-03/) - irradnceo(:,3) = (/ & - & 3.77647E+00, 3.64111E+00, 3.48271E+00, 3.26114E+00,& - & 2.92470E+00, 2.51661E+00, 2.04800E+00, 1.53886E+00,& - & 1.04670E+00, 1.14480E-01, 9.45306E-02, 7.49520E-02,& - & 5.49884E-02, 3.49939E-02, 1.31836E-02, 1.86747E-03/) - irradnceo(:,4) = (/ & - & 3.76866E+00, 3.64173E+00, 3.48994E+00, 3.26329E+00,& - & 2.92498E+00, 2.51407E+00, 2.04685E+00, 1.54232E+00,& - & 1.04460E+00, 1.14378E-01, 9.45986E-02, 7.48813E-02,& - & 5.49556E-02, 3.49937E-02, 1.31836E-02, 1.86747E-03/) - irradnceo(:,5) = (/ & - & 3.77501E+00, 3.63154E+00, 3.50166E+00, 3.25736E+00,& - & 2.92546E+00, 2.51215E+00, 2.04568E+00, 1.54413E+00,& - & 1.04357E+00, 1.14321E-01, 9.46608E-02, 7.48648E-02,& - & 5.49208E-02, 3.49237E-02, 1.31695E-02, 1.86747E-03/) - irradnceo(:,6) = (/ & - & 3.77748E+00, 3.63090E+00, 3.50431E+00, 3.25909E+00,& - & 2.92025E+00, 2.51156E+00, 2.04573E+00, 1.54403E+00,& - & 1.04524E+00, 1.12340E-01, 9.47541E-02, 7.48366E-02,& - & 5.49074E-02, 3.48894E-02, 1.31128E-02, 1.85577E-03/) - irradnceo(:,7) = (/ & - & 3.77645E+00, 3.63586E+00, 3.50405E+00, 3.25803E+00,& - & 2.91856E+00, 2.50516E+00, 2.05136E+00, 1.54400E+00,& - & 1.04708E+00, 1.13365E-01, 9.30810E-02, 7.36350E-02,& - & 5.48601E-02, 3.48401E-02, 1.31035E-02, 1.85577E-03/) - irradnceo(:,8) = (/ & - & 3.76982E+00, 3.64882E+00, 3.50841E+00, 3.25414E+00,& - & 2.91026E+00, 2.50818E+00, 2.04994E+00, 1.54390E+00,& - & 1.04867E+00, 1.13272E-01, 9.30307E-02, 7.22413E-02,& - & 5.48098E-02, 3.48311E-02, 1.31032E-02, 1.85577E-03/) - irradnceo(:,9) = (/ & - & 3.77097E+00, 3.67511E+00, 3.51248E+00, 3.21744E+00,& - & 2.91350E+00, 2.51378E+00, 2.05106E+00, 1.54135E+00,& - & 1.04687E+00, 1.13081E-01, 9.29498E-02, 7.20771E-02,& - & 5.48263E-02, 3.48364E-02, 1.31035E-02, 1.85577E-03/) -! Solar variability components: facular brightening - facbrghto(:,1) = (/ & - & 1.23435E-03, 1.27308E-03, 1.27390E-03, 1.16609E-03,& - & 1.02843E-03, 8.81995E-04, 7.22992E-04, 5.42677E-04,& - & 3.67241E-04, 4.00586E-05, 3.31134E-05, 2.62334E-05,& - & 1.92658E-05, 1.22462E-05, 4.59989E-06, 6.51470E-07/) - facbrghto(:,2) = (/ & - & 1.23717E-03, 1.30700E-03, 1.26178E-03, 1.15296E-03,& - & 1.02257E-03, 8.80800E-04, 7.21639E-04, 5.40630E-04,& - & 3.66196E-04, 4.00576E-05, 3.31135E-05, 2.62333E-05,& - & 1.92659E-05, 1.22461E-05, 4.59990E-06, 6.51470E-07/) - facbrghto(:,3) = (/ & - & 1.24727E-03, 1.31956E-03, 1.25386E-03, 1.14907E-03,& - & 1.01954E-03, 8.79467E-04, 7.20379E-04, 5.37941E-04,& - & 3.63994E-04, 3.98141E-05, 3.30260E-05, 2.62320E-05,& - & 1.92656E-05, 1.22461E-05, 4.59990E-06, 6.51470E-07/) - facbrghto(:,4) = (/ & - & 1.27729E-03, 1.31099E-03, 1.24809E-03, 1.14197E-03,& - & 1.01790E-03, 8.79222E-04, 7.18812E-04, 5.35700E-04,& - & 3.61905E-04, 3.96664E-05, 3.28340E-05, 2.59209E-05,& - & 1.91117E-05, 1.22460E-05, 4.59990E-06, 6.51470E-07/) - facbrghto(:,5) = (/ & - & 1.30740E-03, 1.30489E-03, 1.23975E-03, 1.13691E-03,& - & 1.01405E-03, 8.78760E-04, 7.17300E-04, 5.33740E-04,& - & 3.60094E-04, 3.94860E-05, 3.26596E-05, 2.58653E-05,& - & 1.88853E-05, 1.19345E-05, 4.53370E-06, 6.51470E-07/) - facbrghto(:,6) = (/ & - & 1.33509E-03, 1.30694E-03, 1.23053E-03, 1.12959E-03,& - & 1.01226E-03, 8.76250E-04, 7.13399E-04, 5.32160E-04,& - & 3.58398E-04, 3.89789E-05, 3.23939E-05, 2.56694E-05,& - & 1.86330E-05, 1.17714E-05, 4.26703E-06, 5.97492E-07/) - facbrghto(:,7) = (/ & - & 1.36743E-03, 1.30050E-03, 1.23001E-03, 1.12354E-03,& - & 1.00780E-03, 8.75567E-04, 7.05909E-04, 5.29018E-04,& - & 3.56871E-04, 3.88156E-05, 3.19003E-05, 2.50552E-05,& - & 1.83330E-05, 1.13433E-05, 4.22452E-06, 5.97493E-07/) - facbrghto(:,8) = (/ & - & 1.40451E-03, 1.30969E-03, 1.21029E-03, 1.12622E-03,& - & 1.01209E-03, 8.62287E-04, 6.96692E-04, 5.23174E-04,& - & 3.54210E-04, 3.80569E-05, 3.12670E-05, 2.43931E-05,& - & 1.78913E-05, 1.13039E-05, 4.22293E-06, 5.97493E-07/) - facbrghto(:,9) = (/ & - & 1.38675E-03, 1.32870E-03, 1.24066E-03, 1.13516E-03,& - & 1.00493E-03, 8.54942E-04, 6.86767E-04, 5.14501E-04,& - & 3.47455E-04, 3.76111E-05, 3.10209E-05, 2.43925E-05,& - & 1.79017E-05, 1.13072E-05, 4.22452E-06, 5.97493E-07/) -! Solar variability components: sunspot darkening - snsptdrko(:,1) = (/ & - &-8.67437E-04,-8.54019E-04,-8.26959E-04,-7.60050E-04,& - &-6.75252E-04,-5.79568E-04,-4.74609E-04,-3.56715E-04,& - &-2.41629E-04,-2.63347E-05,-2.17830E-05,-1.72298E-05,& - &-1.26510E-05,-8.04634E-06,-3.02619E-06,-4.28578E-07/) - snsptdrko(:,2) = (/ & - &-8.65958E-04,-8.62535E-04,-8.24344E-04,-7.56709E-04,& - &-6.74150E-04,-5.79747E-04,-4.74560E-04,-3.56598E-04,& - &-2.41636E-04,-2.63347E-05,-2.17831E-05,-1.72298E-05,& - &-1.26511E-05,-8.04630E-06,-3.02620E-06,-4.28578E-07/) - snsptdrko(:,3) = (/ & - &-8.66679E-04,-8.65697E-04,-8.22929E-04,-7.55463E-04,& - &-6.73312E-04,-5.79844E-04,-4.74319E-04,-3.56413E-04,& - &-2.41578E-04,-2.63364E-05,-2.17851E-05,-1.72294E-05,& - &-1.26510E-05,-8.04631E-06,-3.02619E-06,-4.28578E-07/) - snsptdrko(:,4) = (/ & - &-8.72330E-04,-8.64007E-04,-8.21476E-04,-7.53680E-04,& - &-6.73042E-04,-5.79883E-04,-4.74063E-04,-3.56290E-04,& - &-2.41462E-04,-2.63297E-05,-2.17899E-05,-1.72311E-05,& - &-1.26536E-05,-8.04626E-06,-3.02619E-06,-4.28578E-07/) - snsptdrko(:,5) = (/ & - &-8.78329E-04,-8.62672E-04,-8.18686E-04,-7.52629E-04,& - &-6.72463E-04,-5.80059E-04,-4.73904E-04,-3.56120E-04,& - &-2.41391E-04,-2.63184E-05,-2.17875E-05,-1.72213E-05,& - &-1.26494E-05,-8.04997E-06,-3.02855E-06,-4.28578E-07/) - snsptdrko(:,6) = (/ & - &-8.84896E-04,-8.62129E-04,-8.15376E-04,-7.50805E-04,& - &-6.72138E-04,-5.80018E-04,-4.73654E-04,-3.55932E-04,& - &-2.41357E-04,-2.63050E-05,-2.17745E-05,-1.72152E-05,& - &-1.26301E-05,-8.04108E-06,-3.03638E-06,-4.30481E-07/) - snsptdrko(:,7) = (/ & - &-8.93563E-04,-8.58714E-04,-8.12842E-04,-7.48951E-04,& - &-6.71893E-04,-5.80162E-04,-4.73152E-04,-3.55808E-04,& - &-2.41308E-04,-2.62834E-05,-2.17619E-05,-1.71818E-05,& - &-1.26082E-05,-8.04110E-06,-3.03742E-06,-4.30481E-07/) - snsptdrko(:,8) = (/ & - &-9.03170E-04,-8.57974E-04,-8.06780E-04,-7.48006E-04,& - &-6.71834E-04,-5.79040E-04,-4.72889E-04,-3.55623E-04,& - &-2.41189E-04,-2.62529E-05,-2.17049E-05,-1.71620E-05,& - &-1.26030E-05,-8.04153E-06,-3.03790E-06,-4.30481E-07/) - snsptdrko(:,9) = (/ & - &-8.94403E-04,-8.62523E-04,-8.13890E-04,-7.48489E-04,& - &-6.70323E-04,-5.78188E-04,-4.72307E-04,-3.55545E-04,& - &-2.40869E-04,-2.62300E-05,-2.16988E-05,-1.71625E-05,& - &-1.25997E-05,-8.04090E-06,-3.03742E-06,-4.30481E-07/) - -! Rayleigh extinction coefficient at v = 8000 cm-1. - rayl = 1.54e-08 - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1, 1) = (/ & - & 0.14658e-08,0.32044e-07,0.36289e-07,0.38717e-07,0.40590e-07, & - & 0.43330e-07,0.46916e-07,0.56519e-07,0.42446e-07 /) - kao(:, 2, 1, 1) = (/ & - & 0.17883e-08,0.36129e-07,0.40724e-07,0.43498e-07,0.45371e-07, & - & 0.47093e-07,0.51195e-07,0.58562e-07,0.44474e-07 /) - kao(:, 3, 1, 1) = (/ & - & 0.21286e-08,0.46092e-07,0.53991e-07,0.59439e-07,0.63497e-07, & - & 0.66730e-07,0.70296e-07,0.83990e-07,0.65058e-07 /) - kao(:, 4, 1, 1) = (/ & - & 0.24816e-08,0.43399e-07,0.49167e-07,0.52969e-07,0.55586e-07, & - & 0.57260e-07,0.58809e-07,0.64046e-07,0.48780e-07 /) - kao(:, 5, 1, 1) = (/ & - & 0.28409e-08,0.46683e-07,0.53128e-07,0.57526e-07,0.60605e-07, & - & 0.62715e-07,0.64284e-07,0.67579e-07,0.52346e-07 /) - kao(:, 1, 2, 1) = (/ & - & 0.10965e-08,0.24934e-07,0.28268e-07,0.30156e-07,0.31820e-07, & - & 0.34498e-07,0.36563e-07,0.46609e-07,0.30202e-07 /) - kao(:, 2, 2, 1) = (/ & - & 0.13538e-08,0.28338e-07,0.31923e-07,0.34048e-07,0.35529e-07, & - & 0.37136e-07,0.41583e-07,0.46831e-07,0.32817e-07 /) - kao(:, 3, 2, 1) = (/ & - & 0.16260e-08,0.36648e-07,0.42882e-07,0.47128e-07,0.50288e-07, & - & 0.52851e-07,0.56093e-07,0.70511e-07,0.48182e-07 /) - kao(:, 4, 2, 1) = (/ & - & 0.19102e-08,0.39471e-07,0.46225e-07,0.50974e-07,0.54565e-07, & - & 0.57380e-07,0.60079e-07,0.67707e-07,0.50168e-07 /) - kao(:, 5, 2, 1) = (/ & - & 0.22030e-08,0.37203e-07,0.42234e-07,0.45622e-07,0.47990e-07, & - & 0.49546e-07,0.50777e-07,0.53867e-07,0.39769e-07 /) - kao(:, 1, 3, 1) = (/ & - & 0.77844e-09,0.18777e-07,0.21347e-07,0.22946e-07,0.24368e-07, & - & 0.25870e-07,0.28084e-07,0.39197e-07,0.20196e-07 /) - kao(:, 2, 3, 1) = (/ & - & 0.97891e-09,0.21591e-07,0.24379e-07,0.25974e-07,0.27213e-07, & - & 0.29039e-07,0.31487e-07,0.37725e-07,0.23228e-07 /) - kao(:, 3, 3, 1) = (/ & - & 0.11949e-08,0.24305e-07,0.27342e-07,0.29177e-07,0.30428e-07, & - & 0.31562e-07,0.34299e-07,0.39267e-07,0.23943e-07 /) - kao(:, 4, 3, 1) = (/ & - & 0.14225e-08,0.30991e-07,0.36244e-07,0.39880e-07,0.42596e-07, & - & 0.44752e-07,0.47132e-07,0.56253e-07,0.37250e-07 /) - kao(:, 5, 3, 1) = (/ & - & 0.16586e-08,0.29152e-07,0.32988e-07,0.35508e-07,0.37264e-07, & - & 0.38387e-07,0.39417e-07,0.42936e-07,0.29439e-07 /) - kao(:, 1, 4, 1) = (/ & - & 0.53935e-09,0.13922e-07,0.15779e-07,0.16979e-07,0.18157e-07, & - & 0.19199e-07,0.22168e-07,0.31060e-07,0.13772e-07 /) - kao(:, 2, 4, 1) = (/ & - & 0.69404e-09,0.16220e-07,0.18381e-07,0.19646e-07,0.20841e-07, & - & 0.22407e-07,0.23846e-07,0.31992e-07,0.15532e-07 /) - kao(:, 3, 4, 1) = (/ & - & 0.86327e-09,0.18514e-07,0.20845e-07,0.22209e-07,0.23196e-07, & - & 0.24396e-07,0.27026e-07,0.31067e-07,0.17116e-07 /) - kao(:, 4, 4, 1) = (/ & - & 0.10436e-08,0.20666e-07,0.23248e-07,0.24835e-07,0.25904e-07, & - & 0.26757e-07,0.28384e-07,0.33085e-07,0.19320e-07 /) - kao(:, 5, 4, 1) = (/ & - & 0.12327e-08,0.26056e-07,0.30481e-07,0.33580e-07,0.35908e-07, & - & 0.37744e-07,0.39586e-07,0.45434e-07,0.29787e-07 /) - kao(:, 1, 5, 1) = (/ & - & 0.36905e-09,0.10245e-07,0.11596e-07,0.12576e-07,0.13293e-07, & - & 0.14477e-07,0.18355e-07,0.25395e-07,0.95950e-08 /) - kao(:, 2, 5, 1) = (/ & - & 0.48708e-09,0.12119e-07,0.13746e-07,0.14791e-07,0.15718e-07, & - & 0.16646e-07,0.18396e-07,0.25737e-07,0.10793e-07 /) - kao(:, 3, 5, 1) = (/ & - & 0.61847e-09,0.13998e-07,0.15813e-07,0.16851e-07,0.17722e-07, & - & 0.19232e-07,0.20414e-07,0.25223e-07,0.12354e-07 /) - kao(:, 4, 5, 1) = (/ & - & 0.76052e-09,0.15846e-07,0.17816e-07,0.18991e-07,0.19806e-07, & - & 0.20628e-07,0.23016e-07,0.25874e-07,0.14269e-07 /) - kao(:, 5, 5, 1) = (/ & - & 0.91109e-09,0.20382e-07,0.23823e-07,0.26180e-07,0.27929e-07, & - & 0.29345e-07,0.31039e-07,0.38471e-07,0.22626e-07 /) - kao(:, 1, 6, 1) = (/ & - & 0.24637e-09,0.74144e-08,0.83997e-08,0.90789e-08,0.97769e-08, & - & 0.11308e-07,0.14223e-07,0.20837e-07,0.66398e-08 /) - kao(:, 2, 6, 1) = (/ & - & 0.33527e-09,0.89450e-08,0.10119e-07,0.10892e-07,0.11613e-07, & - & 0.12382e-07,0.14900e-07,0.20638e-07,0.76422e-08 /) - kao(:, 3, 6, 1) = (/ & - & 0.43587e-09,0.10479e-07,0.11902e-07,0.12737e-07,0.13564e-07, & - & 0.14416e-07,0.15545e-07,0.21677e-07,0.89455e-08 /) - kao(:, 4, 6, 1) = (/ & - & 0.54672e-09,0.12017e-07,0.13540e-07,0.14423e-07,0.15090e-07, & - & 0.16030e-07,0.17496e-07,0.20678e-07,0.10490e-07 /) - kao(:, 5, 6, 1) = (/ & - & 0.66579e-09,0.13493e-07,0.15163e-07,0.16178e-07,0.16873e-07, & - & 0.17474e-07,0.18852e-07,0.21699e-07,0.12216e-07 /) - kao(:, 1, 7, 1) = (/ & - & 0.16149e-09,0.53201e-08,0.60079e-08,0.65349e-08,0.72837e-08, & - & 0.90792e-08,0.11028e-07,0.15917e-07,0.45574e-08 /) - kao(:, 2, 7, 1) = (/ & - & 0.22765e-09,0.65457e-08,0.74143e-08,0.80126e-08,0.85152e-08, & - & 0.94934e-08,0.12210e-07,0.16917e-07,0.54301e-08 /) - kao(:, 3, 7, 1) = (/ & - & 0.30418e-09,0.77971e-08,0.88287e-08,0.94927e-08,0.10154e-07, & - & 0.10712e-07,0.12099e-07,0.16996e-07,0.64594e-08 /) - kao(:, 4, 7, 1) = (/ & - & 0.38990e-09,0.90563e-08,0.10243e-07,0.10928e-07,0.11554e-07, & - & 0.12512e-07,0.13254e-07,0.17320e-07,0.76835e-08 /) - kao(:, 5, 7, 1) = (/ & - & 0.48334e-09,0.10307e-07,0.11588e-07,0.12345e-07,0.12884e-07, & - & 0.13512e-07,0.15051e-07,0.17108e-07,0.90662e-08 /) - kao(:, 1, 8, 1) = (/ & - & 0.10442e-09,0.37895e-08,0.42781e-08,0.47285e-08,0.55672e-08, & - & 0.67246e-08,0.87615e-08,0.12496e-07,0.31063e-08 /) - kao(:, 2, 8, 1) = (/ & - & 0.15294e-09,0.47545e-08,0.53771e-08,0.58176e-08,0.63249e-08, & - & 0.74935e-08,0.93024e-08,0.13484e-07,0.38514e-08 /) - kao(:, 3, 8, 1) = (/ & - & 0.21056e-09,0.57727e-08,0.65270e-08,0.70416e-08,0.74786e-08, & - & 0.80475e-08,0.10012e-07,0.13784e-07,0.46496e-08 /) - kao(:, 4, 8, 1) = (/ & - & 0.27636e-09,0.67987e-08,0.77111e-08,0.82983e-08,0.87947e-08, & - & 0.93313e-08,0.10204e-07,0.14244e-07,0.56141e-08 /) - kao(:, 5, 8, 1) = (/ & - & 0.34924e-09,0.78297e-08,0.88319e-08,0.94055e-08,0.98667e-08, & - & 0.10620e-07,0.11396e-07,0.13825e-07,0.67139e-08 /) - kao(:, 1, 9, 1) = (/ & - & 0.66385e-10,0.26743e-08,0.30313e-08,0.34595e-08,0.42156e-08, & - & 0.50940e-08,0.66728e-08,0.10021e-07,0.20965e-08 /) - kao(:, 2, 9, 1) = (/ & - & 0.10109e-09,0.34278e-08,0.38685e-08,0.42217e-08,0.47673e-08, & - & 0.59120e-08,0.72992e-08,0.10438e-07,0.27321e-08 /) - kao(:, 3, 9, 1) = (/ & - & 0.14405e-09,0.42386e-08,0.48029e-08,0.51840e-08,0.55416e-08, & - & 0.62759e-08,0.79851e-08,0.11314e-07,0.33332e-08 /) - kao(:, 4, 9, 1) = (/ & - & 0.19414e-09,0.50774e-08,0.57440e-08,0.61764e-08,0.66005e-08, & - & 0.69887e-08,0.81552e-08,0.11319e-07,0.40828e-08 /) - kao(:, 5, 9, 1) = (/ & - & 0.25056e-09,0.59198e-08,0.67025e-08,0.71627e-08,0.76155e-08, & - & 0.81557e-08,0.87035e-08,0.11788e-07,0.49512e-08 /) - kao(:, 1,10, 1) = (/ & - & 0.43147e-10,0.19136e-08,0.21883e-08,0.26153e-08,0.31055e-08, & - & 0.39720e-08,0.51107e-08,0.84498e-08,0.15100e-08 /) - kao(:, 2,10, 1) = (/ & - & 0.68069e-10,0.25012e-08,0.28230e-08,0.31278e-08,0.37084e-08, & - & 0.44577e-08,0.58316e-08,0.82732e-08,0.20294e-08 /) - kao(:, 3,10, 1) = (/ & - & 0.10013e-09,0.31445e-08,0.35530e-08,0.38466e-08,0.41961e-08, & - & 0.50063e-08,0.61960e-08,0.89421e-08,0.24447e-08 /) - kao(:, 4,10, 1) = (/ & - & 0.13837e-09,0.38258e-08,0.43236e-08,0.46732e-08,0.49545e-08, & - & 0.53447e-08,0.67172e-08,0.92217e-08,0.30274e-08 /) - kao(:, 5,10, 1) = (/ & - & 0.18212e-09,0.45123e-08,0.51146e-08,0.55026e-08,0.58368e-08, & - & 0.61896e-08,0.67974e-08,0.94910e-08,0.36975e-08 /) - kao(:, 1,11, 1) = (/ & - & 0.35238e-10,0.15650e-08,0.17900e-08,0.21398e-08,0.25395e-08, & - & 0.32442e-08,0.41684e-08,0.68456e-08,0.12890e-08 /) - kao(:, 2,11, 1) = (/ & - & 0.55588e-10,0.20451e-08,0.23079e-08,0.25570e-08,0.30342e-08, & - & 0.36465e-08,0.47717e-08,0.67353e-08,0.16499e-08 /) - kao(:, 3,11, 1) = (/ & - & 0.81825e-10,0.25719e-08,0.29058e-08,0.31458e-08,0.34324e-08, & - & 0.40982e-08,0.50669e-08,0.73083e-08,0.20031e-08 /) - kao(:, 4,11, 1) = (/ & - & 0.11311e-09,0.31293e-08,0.35365e-08,0.38229e-08,0.40518e-08, & - & 0.43730e-08,0.54993e-08,0.75470e-08,0.24754e-08 /) - kao(:, 5,11, 1) = (/ & - & 0.14891e-09,0.36915e-08,0.41839e-08,0.45010e-08,0.47744e-08, & - & 0.50622e-08,0.55621e-08,0.77689e-08,0.30237e-08 /) - kao(:, 1,12, 1) = (/ & - & 0.28851e-10,0.12816e-08,0.14656e-08,0.17508e-08,0.20791e-08, & - & 0.26542e-08,0.34061e-08,0.55940e-08,0.10876e-08 /) - kao(:, 2,12, 1) = (/ & - & 0.45511e-10,0.16747e-08,0.18898e-08,0.20935e-08,0.24841e-08, & - & 0.29844e-08,0.39040e-08,0.54988e-08,0.13569e-08 /) - kao(:, 3,12, 1) = (/ & - & 0.66972e-10,0.21053e-08,0.23788e-08,0.25750e-08,0.28091e-08, & - & 0.33541e-08,0.41474e-08,0.59783e-08,0.16488e-08 /) - kao(:, 4,12, 1) = (/ & - & 0.92606e-10,0.25620e-08,0.28952e-08,0.31304e-08,0.33162e-08, & - & 0.35801e-08,0.45003e-08,0.61789e-08,0.20293e-08 /) - kao(:, 5,12, 1) = (/ & - & 0.12192e-09,0.30226e-08,0.34255e-08,0.36843e-08,0.39084e-08, & - & 0.41445e-08,0.45524e-08,0.63605e-08,0.24756e-08 /) - kao(:, 1,13, 1) = (/ & - & 0.23621e-10,0.10494e-08,0.11996e-08,0.14331e-08,0.17023e-08, & - & 0.21711e-08,0.27844e-08,0.45532e-08,0.89489e-09 /) - kao(:, 2,13, 1) = (/ & - & 0.37261e-10,0.13712e-08,0.15471e-08,0.17138e-08,0.20333e-08, & - & 0.24433e-08,0.31958e-08,0.44925e-08,0.11124e-08 /) - kao(:, 3,13, 1) = (/ & - & 0.54831e-10,0.17238e-08,0.19475e-08,0.21082e-08,0.23003e-08, & - & 0.27446e-08,0.33959e-08,0.48947e-08,0.13514e-08 /) - kao(:, 4,13, 1) = (/ & - & 0.75799e-10,0.20971e-08,0.23698e-08,0.25624e-08,0.27143e-08, & - & 0.29304e-08,0.36822e-08,0.50589e-08,0.16628e-08 /) - kao(:, 5,13, 1) = (/ & - & 0.99820e-10,0.24745e-08,0.28041e-08,0.30159e-08,0.31995e-08, & - & 0.33924e-08,0.37279e-08,0.52074e-08,0.20270e-08 /) - kao(:, 1, 1, 2) = (/ & - & 0.13785e-07,0.24738e-06,0.32984e-06,0.38970e-06,0.43737e-06, & - & 0.50889e-06,0.56985e-06,0.52821e-06,0.22857e-06 /) - kao(:, 2, 1, 2) = (/ & - & 0.15768e-07,0.27583e-06,0.36371e-06,0.42333e-06,0.46175e-06, & - & 0.50608e-06,0.57108e-06,0.57199e-06,0.21992e-06 /) - kao(:, 3, 1, 2) = (/ & - & 0.17740e-07,0.31295e-06,0.41668e-06,0.48111e-06,0.52105e-06, & - & 0.56257e-06,0.61638e-06,0.64253e-06,0.25630e-06 /) - kao(:, 4, 1, 2) = (/ & - & 0.19676e-07,0.33378e-06,0.43874e-06,0.50021e-06,0.53506e-06, & - & 0.56909e-06,0.60800e-06,0.63155e-06,0.24206e-06 /) - kao(:, 5, 1, 2) = (/ & - & 0.21537e-07,0.36160e-06,0.47596e-06,0.54056e-06,0.57557e-06, & - & 0.60002e-06,0.61606e-06,0.61827e-06,0.25207e-06 /) - kao(:, 1, 2, 2) = (/ & - & 0.10621e-07,0.19636e-06,0.26336e-06,0.31062e-06,0.35012e-06, & - & 0.41219e-06,0.46827e-06,0.42345e-06,0.16044e-06 /) - kao(:, 2, 2, 2) = (/ & - & 0.12238e-07,0.21970e-06,0.28920e-06,0.33755e-06,0.37073e-06, & - & 0.41004e-06,0.46315e-06,0.45777e-06,0.15877e-06 /) - kao(:, 3, 2, 2) = (/ & - & 0.13863e-07,0.24955e-06,0.33252e-06,0.38359e-06,0.41679e-06, & - & 0.45237e-06,0.50277e-06,0.51752e-06,0.18617e-06 /) - kao(:, 4, 2, 2) = (/ & - & 0.15467e-07,0.27294e-06,0.36292e-06,0.41560e-06,0.44818e-06, & - & 0.47909e-06,0.51811e-06,0.54528e-06,0.19311e-06 /) - kao(:, 5, 2, 2) = (/ & - & 0.17013e-07,0.28946e-06,0.38040e-06,0.43177e-06,0.46055e-06, & - & 0.48627e-06,0.50036e-06,0.50711e-06,0.19056e-06 /) - kao(:, 1, 3, 2) = (/ & - & 0.79041e-08,0.15193e-06,0.20367e-06,0.24255e-06,0.27584e-06, & - & 0.33106e-06,0.39018e-06,0.33367e-06,0.10147e-06 /) - kao(:, 2, 3, 2) = (/ & - & 0.92256e-08,0.17005e-06,0.22457e-06,0.26442e-06,0.29755e-06, & - & 0.33937e-06,0.38659e-06,0.36019e-06,0.10982e-06 /) - kao(:, 3, 3, 2) = (/ & - & 0.10548e-07,0.18874e-06,0.24827e-06,0.28648e-06,0.31109e-06, & - & 0.33996e-06,0.38319e-06,0.38934e-06,0.11953e-06 /) - kao(:, 4, 3, 2) = (/ & - & 0.11869e-07,0.21314e-06,0.28402e-06,0.32565e-06,0.35249e-06, & - & 0.38039e-06,0.41637e-06,0.43423e-06,0.13779e-06 /) - kao(:, 5, 3, 2) = (/ & - & 0.13170e-07,0.22682e-06,0.29805e-06,0.33849e-06,0.36193e-06, & - & 0.38387e-06,0.41078e-06,0.42298e-06,0.13819e-06 /) - kao(:, 1, 4, 2) = (/ & - & 0.57872e-08,0.11704e-06,0.15599e-06,0.19092e-06,0.22043e-06, & - & 0.26778e-06,0.30128e-06,0.25769e-06,0.68111e-07 /) - kao(:, 2, 4, 2) = (/ & - & 0.68505e-08,0.13037e-06,0.17389e-06,0.20556e-06,0.23194e-06, & - & 0.27485e-06,0.31447e-06,0.28139e-06,0.78259e-07 /) - kao(:, 3, 4, 2) = (/ & - & 0.79353e-08,0.14574e-06,0.19135e-06,0.22328e-06,0.24623e-06, & - & 0.27497e-06,0.31125e-06,0.30440e-06,0.85397e-07 /) - kao(:, 4, 4, 2) = (/ & - & 0.90207e-08,0.16075e-06,0.21140e-06,0.24210e-06,0.26199e-06, & - & 0.28412e-06,0.31832e-06,0.32424e-06,0.93374e-07 /) - kao(:, 5, 4, 2) = (/ & - & 0.10099e-07,0.18068e-06,0.24072e-06,0.27515e-06,0.29704e-06, & - & 0.31830e-06,0.34575e-06,0.36301e-06,0.10959e-06 /) - kao(:, 1, 5, 2) = (/ & - & 0.42071e-08,0.88799e-07,0.11974e-06,0.15503e-06,0.18473e-06, & - & 0.21750e-06,0.23111e-06,0.19568e-06,0.47645e-07 /) - kao(:, 2, 5, 2) = (/ & - & 0.50589e-08,0.10003e-06,0.13353e-06,0.15994e-06,0.18265e-06, & - & 0.22030e-06,0.25851e-06,0.22196e-06,0.56400e-07 /) - kao(:, 3, 5, 2) = (/ & - & 0.59363e-08,0.11183e-06,0.14743e-06,0.17446e-06,0.19617e-06, & - & 0.22887e-06,0.25813e-06,0.23893e-06,0.62471e-07 /) - kao(:, 4, 5, 2) = (/ & - & 0.68265e-08,0.12408e-06,0.16316e-06,0.18879e-06,0.20540e-06, & - & 0.22681e-06,0.25640e-06,0.25817e-06,0.69233e-07 /) - kao(:, 5, 5, 2) = (/ & - & 0.77164e-08,0.14022e-06,0.18715e-06,0.21470e-06,0.23265e-06, & - & 0.25223e-06,0.27783e-06,0.28837e-06,0.82855e-07 /) - kao(:, 1, 6, 2) = (/ & - & 0.30108e-08,0.66997e-07,0.92811e-07,0.12074e-06,0.15295e-06, & - & 0.17839e-06,0.17246e-06,0.14892e-06,0.33739e-07 /) - kao(:, 2, 6, 2) = (/ & - & 0.36900e-08,0.76605e-07,0.10196e-06,0.12672e-06,0.14857e-06, & - & 0.17805e-06,0.19825e-06,0.16899e-06,0.40438e-07 /) - kao(:, 3, 6, 2) = (/ & - & 0.43974e-08,0.85358e-07,0.11411e-06,0.13507e-06,0.15283e-06, & - & 0.18257e-06,0.21172e-06,0.18597e-06,0.46134e-07 /) - kao(:, 4, 6, 2) = (/ & - & 0.51213e-08,0.95538e-07,0.12544e-06,0.14691e-06,0.16455e-06, & - & 0.18481e-06,0.20979e-06,0.20070e-06,0.51618e-07 /) - kao(:, 5, 6, 2) = (/ & - & 0.58500e-08,0.10543e-06,0.13870e-06,0.15918e-06,0.17259e-06, & - & 0.18830e-06,0.21165e-06,0.21507e-06,0.58184e-07 /) - kao(:, 1, 7, 2) = (/ & - & 0.21343e-08,0.50731e-07,0.73677e-07,0.95876e-07,0.12180e-06, & - & 0.14539e-06,0.12792e-06,0.11548e-06,0.24049e-07 /) - kao(:, 2, 7, 2) = (/ & - & 0.26695e-08,0.57886e-07,0.78431e-07,0.10179e-06,0.12404e-06, & - & 0.14498e-06,0.15075e-06,0.12789e-06,0.28929e-07 /) - kao(:, 3, 7, 2) = (/ & - & 0.32350e-08,0.65356e-07,0.87120e-07,0.10537e-06,0.12108e-06, & - & 0.14722e-06,0.16980e-06,0.14529e-06,0.34426e-07 /) - kao(:, 4, 7, 2) = (/ & - & 0.38202e-08,0.73009e-07,0.96634e-07,0.11454e-06,0.12893e-06, & - & 0.15239e-06,0.17280e-06,0.15699e-06,0.38936e-07 /) - kao(:, 5, 7, 2) = (/ & - & 0.44151e-08,0.81203e-07,0.10676e-06,0.12425e-06,0.13576e-06, & - & 0.15119e-06,0.17122e-06,0.16974e-06,0.43692e-07 /) - kao(:, 1, 8, 2) = (/ & - & 0.15010e-08,0.38595e-07,0.58295e-07,0.77729e-07,0.98683e-07, & - & 0.10992e-06,0.95145e-07,0.92252e-07,0.17319e-07 /) - kao(:, 2, 8, 2) = (/ & - & 0.19201e-08,0.43791e-07,0.61750e-07,0.79921e-07,0.10136e-06, & - & 0.11894e-06,0.11276e-06,0.97846e-07,0.20720e-07 /) - kao(:, 3, 8, 2) = (/ & - & 0.23693e-08,0.50071e-07,0.66873e-07,0.85063e-07,0.10052e-06, & - & 0.11892e-06,0.13009e-06,0.11045e-06,0.25527e-07 /) - kao(:, 4, 8, 2) = (/ & - & 0.28395e-08,0.55947e-07,0.74757e-07,0.88934e-07,0.10114e-06, & - & 0.12142e-06,0.14341e-06,0.12281e-06,0.28938e-07 /) - kao(:, 5, 8, 2) = (/ & - & 0.33227e-08,0.62620e-07,0.82343e-07,0.96807e-07,0.10922e-06, & - & 0.12542e-06,0.14247e-06,0.13252e-06,0.32804e-07 /) - kao(:, 1, 9, 2) = (/ & - & 0.10437e-08,0.30107e-07,0.47694e-07,0.63218e-07,0.80199e-07, & - & 0.81465e-07,0.70748e-07,0.72461e-07,0.12620e-07 /) - kao(:, 2, 9, 2) = (/ & - & 0.13691e-08,0.33315e-07,0.48674e-07,0.63756e-07,0.81165e-07, & - & 0.96892e-07,0.83814e-07,0.76311e-07,0.14799e-07 /) - kao(:, 3, 9, 2) = (/ & - & 0.17229e-08,0.37985e-07,0.51777e-07,0.67272e-07,0.83770e-07, & - & 0.97220e-07,0.98951e-07,0.84136e-07,0.18369e-07 /) - kao(:, 4, 9, 2) = (/ & - & 0.20990e-08,0.43091e-07,0.57320e-07,0.69933e-07,0.81214e-07, & - & 0.98518e-07,0.11188e-06,0.95453e-07,0.21724e-07 /) - kao(:, 5, 9, 2) = (/ & - & 0.24895e-08,0.48030e-07,0.63808e-07,0.75595e-07,0.85237e-07, & - & 0.10122e-06,0.11598e-06,0.10350e-06,0.24792e-07 /) - kao(:, 1,10, 2) = (/ & - & 0.73565e-09,0.23201e-07,0.38192e-07,0.51890e-07,0.66677e-07, & - & 0.60941e-07,0.53794e-07,0.57060e-07,0.95538e-08 /) - kao(:, 2,10, 2) = (/ & - & 0.98838e-09,0.25706e-07,0.38945e-07,0.51950e-07,0.65881e-07, & - & 0.73501e-07,0.63459e-07,0.61276e-07,0.10909e-07 /) - kao(:, 3,10, 2) = (/ & - & 0.12675e-08,0.29153e-07,0.41180e-07,0.53354e-07,0.67729e-07, & - & 0.79616e-07,0.75117e-07,0.65122e-07,0.13531e-07 /) - kao(:, 4,10, 2) = (/ & - & 0.15675e-08,0.33329e-07,0.44560e-07,0.57066e-07,0.67627e-07, & - & 0.79638e-07,0.86678e-07,0.73448e-07,0.16804e-07 /) - kao(:, 5,10, 2) = (/ & - & 0.18817e-08,0.37257e-07,0.49746e-07,0.59306e-07,0.67554e-07, & - & 0.81218e-07,0.96337e-07,0.82154e-07,0.18958e-07 /) - kao(:, 1,11, 2) = (/ & - & 0.60140e-09,0.19007e-07,0.31253e-07,0.42433e-07,0.54566e-07, & - & 0.50044e-07,0.44177e-07,0.46695e-07,0.77009e-08 /) - kao(:, 2,11, 2) = (/ & - & 0.80782e-09,0.21033e-07,0.31865e-07,0.42505e-07,0.53930e-07, & - & 0.60271e-07,0.51969e-07,0.49836e-07,0.88971e-08 /) - kao(:, 3,11, 2) = (/ & - & 0.10365e-08,0.23860e-07,0.33711e-07,0.43668e-07,0.55447e-07, & - & 0.65129e-07,0.61514e-07,0.53242e-07,0.11044e-07 /) - kao(:, 4,11, 2) = (/ & - & 0.12819e-08,0.27278e-07,0.36477e-07,0.46671e-07,0.55334e-07, & - & 0.65191e-07,0.70955e-07,0.60123e-07,0.13732e-07 /) - kao(:, 5,11, 2) = (/ & - & 0.15394e-08,0.30488e-07,0.40723e-07,0.48551e-07,0.55301e-07, & - & 0.66490e-07,0.78877e-07,0.67264e-07,0.15488e-07 /) - kao(:, 1,12, 2) = (/ & - & 0.49234e-09,0.15554e-07,0.25575e-07,0.34616e-07,0.44615e-07, & - & 0.41056e-07,0.36097e-07,0.38091e-07,0.62448e-08 /) - kao(:, 2,12, 2) = (/ & - & 0.66141e-09,0.17225e-07,0.26080e-07,0.34787e-07,0.44118e-07, & - & 0.49432e-07,0.42531e-07,0.40718e-07,0.72624e-08 /) - kao(:, 3,12, 2) = (/ & - & 0.84839e-09,0.19539e-07,0.27604e-07,0.35754e-07,0.45370e-07, & - & 0.53306e-07,0.50418e-07,0.43565e-07,0.90256e-08 /) - kao(:, 4,12, 2) = (/ & - & 0.10495e-08,0.22342e-07,0.29867e-07,0.38196e-07,0.45322e-07, & - & 0.53368e-07,0.58112e-07,0.49244e-07,0.11197e-07 /) - kao(:, 5,12, 2) = (/ & - & 0.12604e-08,0.24969e-07,0.33348e-07,0.39742e-07,0.45269e-07, & - & 0.54454e-07,0.64580e-07,0.55079e-07,0.12657e-07 /) - kao(:, 1,13, 2) = (/ & - & 0.40306e-09,0.12738e-07,0.20936e-07,0.28312e-07,0.36505e-07, & - & 0.33674e-07,0.29525e-07,0.31139e-07,0.51040e-08 /) - kao(:, 2,13, 2) = (/ & - & 0.54151e-09,0.14106e-07,0.21346e-07,0.28471e-07,0.36139e-07, & - & 0.40516e-07,0.34830e-07,0.33325e-07,0.59425e-08 /) - kao(:, 3,13, 2) = (/ & - & 0.69468e-09,0.15999e-07,0.22600e-07,0.29268e-07,0.37150e-07, & - & 0.43635e-07,0.41297e-07,0.35646e-07,0.73862e-08 /) - kao(:, 4,13, 2) = (/ & - & 0.85913e-09,0.18290e-07,0.24452e-07,0.31282e-07,0.37096e-07, & - & 0.43709e-07,0.47585e-07,0.40319e-07,0.91581e-08 /) - kao(:, 5,13, 2) = (/ & - & 0.10319e-08,0.20440e-07,0.27299e-07,0.32532e-07,0.37047e-07, & - & 0.44575e-07,0.52880e-07,0.45086e-07,0.10367e-07 /) - kao(:, 1, 1, 3) = (/ & - & 0.77542e-07,0.72331e-06,0.98561e-06,0.11860e-05,0.13497e-05, & - & 0.13448e-05,0.13214e-05,0.14401e-05,0.51217e-06 /) - kao(:, 2, 1, 3) = (/ & - & 0.83965e-07,0.81202e-06,0.11096e-05,0.13150e-05,0.14966e-05, & - & 0.14837e-05,0.13715e-05,0.14446e-05,0.53558e-06 /) - kao(:, 3, 1, 3) = (/ & - & 0.89893e-07,0.91147e-06,0.12494e-05,0.14817e-05,0.16581e-05, & - & 0.16379e-05,0.14913e-05,0.13540e-05,0.57527e-06 /) - kao(:, 4, 1, 3) = (/ & - & 0.95336e-07,0.98977e-06,0.13580e-05,0.16044e-05,0.17602e-05, & - & 0.17289e-05,0.15601e-05,0.13435e-05,0.60153e-06 /) - kao(:, 5, 1, 3) = (/ & - & 0.10024e-06,0.10817e-05,0.14820e-05,0.17354e-05,0.18806e-05, & - & 0.18468e-05,0.16817e-05,0.14550e-05,0.63092e-06 /) - kao(:, 1, 2, 3) = (/ & - & 0.61222e-07,0.57382e-06,0.78272e-06,0.94950e-06,0.10796e-05, & - & 0.10829e-05,0.10794e-05,0.12292e-05,0.35440e-06 /) - kao(:, 2, 2, 3) = (/ & - & 0.66652e-07,0.64604e-06,0.88511e-06,0.10523e-05,0.12028e-05, & - & 0.11924e-05,0.11103e-05,0.11987e-05,0.38232e-06 /) - kao(:, 3, 2, 3) = (/ & - & 0.71672e-07,0.73084e-06,0.10012e-05,0.11880e-05,0.13384e-05, & - & 0.13220e-05,0.12030e-05,0.11381e-05,0.43262e-06 /) - kao(:, 4, 2, 3) = (/ & - & 0.76301e-07,0.80259e-06,0.11033e-05,0.13071e-05,0.14343e-05, & - & 0.14171e-05,0.12785e-05,0.11080e-05,0.46030e-06 /) - kao(:, 5, 2, 3) = (/ & - & 0.80500e-07,0.87105e-06,0.11939e-05,0.14005e-05,0.15153e-05, & - & 0.14864e-05,0.13529e-05,0.11688e-05,0.48117e-06 /) - kao(:, 1, 3, 3) = (/ & - & 0.47304e-07,0.44051e-06,0.60584e-06,0.74769e-06,0.84468e-06, & - & 0.85077e-06,0.85665e-06,0.10494e-05,0.24668e-06 /) - kao(:, 2, 3, 3) = (/ & - & 0.51943e-07,0.50181e-06,0.68762e-06,0.82034e-06,0.93657e-06, & - & 0.92789e-06,0.88766e-06,0.99297e-06,0.26836e-06 /) - kao(:, 3, 3, 3) = (/ & - & 0.56252e-07,0.56363e-06,0.77259e-06,0.91469e-06,0.10403e-05, & - & 0.10243e-05,0.93713e-06,0.99098e-06,0.29882e-06 /) - kao(:, 4, 3, 3) = (/ & - & 0.60224e-07,0.63130e-06,0.86724e-06,0.10288e-05,0.11344e-05, & - & 0.11222e-05,0.10162e-05,0.91320e-06,0.33854e-06 /) - kao(:, 5, 3, 3) = (/ & - & 0.63868e-07,0.68673e-06,0.94084e-06,0.11069e-05,0.12001e-05, & - & 0.11819e-05,0.10625e-05,0.91639e-06,0.36042e-06 /) - kao(:, 1, 4, 3) = (/ & - & 0.36151e-07,0.33292e-06,0.46957e-06,0.57176e-06,0.64965e-06, & - & 0.66578e-06,0.71030e-06,0.90686e-06,0.17407e-06 /) - kao(:, 2, 4, 3) = (/ & - & 0.40107e-07,0.38424e-06,0.52571e-06,0.63554e-06,0.72553e-06, & - & 0.72856e-06,0.72697e-06,0.84339e-06,0.19253e-06 /) - kao(:, 3, 4, 3) = (/ & - & 0.43816e-07,0.43401e-06,0.59546e-06,0.70644e-06,0.80752e-06, & - & 0.79519e-06,0.74520e-06,0.81506e-06,0.21830e-06 /) - kao(:, 4, 4, 3) = (/ & - & 0.47242e-07,0.48695e-06,0.66577e-06,0.78531e-06,0.87970e-06, & - & 0.86799e-06,0.78705e-06,0.76812e-06,0.24161e-06 /) - kao(:, 5, 4, 3) = (/ & - & 0.50394e-07,0.54183e-06,0.74240e-06,0.87572e-06,0.95669e-06, & - & 0.94640e-06,0.85379e-06,0.74722e-06,0.28102e-06 /) - kao(:, 1, 5, 3) = (/ & - & 0.27462e-07,0.25134e-06,0.35698e-06,0.43146e-06,0.48552e-06, & - & 0.53177e-06,0.62976e-06,0.75904e-06,0.12452e-06 /) - kao(:, 2, 5, 3) = (/ & - & 0.30835e-07,0.29261e-06,0.40164e-06,0.49701e-06,0.56250e-06, & - & 0.56722e-06,0.57761e-06,0.72004e-06,0.13996e-06 /) - kao(:, 3, 5, 3) = (/ & - & 0.33997e-07,0.33394e-06,0.45684e-06,0.54380e-06,0.62140e-06, & - & 0.61241e-06,0.60037e-06,0.67265e-06,0.16106e-06 /) - kao(:, 4, 5, 3) = (/ & - & 0.36946e-07,0.37590e-06,0.51390e-06,0.60628e-06,0.69027e-06, & - & 0.67692e-06,0.62237e-06,0.67035e-06,0.18128e-06 /) - kao(:, 5, 5, 3) = (/ & - & 0.39670e-07,0.42211e-06,0.57710e-06,0.68190e-06,0.75209e-06, & - & 0.74450e-06,0.67496e-06,0.61709e-06,0.21416e-06 /) - kao(:, 1, 6, 3) = (/ & - & 0.20602e-07,0.18703e-06,0.26972e-06,0.33456e-06,0.36532e-06, & - & 0.42767e-06,0.56721e-06,0.66482e-06,0.87936e-07 /) - kao(:, 2, 6, 3) = (/ & - & 0.23484e-07,0.21971e-06,0.30953e-06,0.37643e-06,0.42627e-06, & - & 0.44517e-06,0.48560e-06,0.61604e-06,0.10185e-06 /) - kao(:, 3, 6, 3) = (/ & - & 0.26181e-07,0.25382e-06,0.34607e-06,0.41971e-06,0.47851e-06, & - & 0.48129e-06,0.48156e-06,0.56916e-06,0.11864e-06 /) - kao(:, 4, 6, 3) = (/ & - & 0.28705e-07,0.28735e-06,0.39181e-06,0.46499e-06,0.52971e-06, & - & 0.52262e-06,0.49397e-06,0.54792e-06,0.13605e-06 /) - kao(:, 5, 6, 3) = (/ & - & 0.31065e-07,0.32265e-06,0.43948e-06,0.51712e-06,0.58131e-06, & - & 0.57275e-06,0.52154e-06,0.53300e-06,0.15326e-06 /) - kao(:, 1, 7, 3) = (/ & - & 0.15315e-07,0.13867e-06,0.20497e-06,0.25791e-06,0.28251e-06, & - & 0.36209e-06,0.48615e-06,0.57617e-06,0.62083e-07 /) - kao(:, 2, 7, 3) = (/ & - & 0.17770e-07,0.16467e-06,0.23430e-06,0.28445e-06,0.31749e-06, & - & 0.35373e-06,0.43530e-06,0.51750e-06,0.74598e-07 /) - kao(:, 3, 7, 3) = (/ & - & 0.20071e-07,0.19194e-06,0.26349e-06,0.32575e-06,0.37090e-06, & - & 0.37391e-06,0.38838e-06,0.49613e-06,0.88392e-07 /) - kao(:, 4, 7, 3) = (/ & - & 0.22230e-07,0.21953e-06,0.29840e-06,0.35680e-06,0.40841e-06, & - & 0.40516e-06,0.40513e-06,0.45518e-06,0.10149e-06 /) - kao(:, 5, 7, 3) = (/ & - & 0.24244e-07,0.24730e-06,0.33583e-06,0.39740e-06,0.45364e-06, & - & 0.44496e-06,0.41471e-06,0.45022e-06,0.11554e-06 /) - kao(:, 1, 8, 3) = (/ & - & 0.11318e-07,0.10309e-06,0.15679e-06,0.19765e-06,0.22300e-06, & - & 0.30242e-06,0.40824e-06,0.49442e-06,0.44061e-07 /) - kao(:, 2, 8, 3) = (/ & - & 0.13358e-07,0.12273e-06,0.17705e-06,0.22062e-06,0.24115e-06, & - & 0.28999e-06,0.39012e-06,0.45451e-06,0.54847e-07 /) - kao(:, 3, 8, 3) = (/ & - & 0.15323e-07,0.14448e-06,0.20316e-06,0.24566e-06,0.27787e-06, & - & 0.29655e-06,0.33237e-06,0.41480e-06,0.64157e-07 /) - kao(:, 4, 8, 3) = (/ & - & 0.17158e-07,0.16673e-06,0.22673e-06,0.27760e-06,0.31491e-06, & - & 0.31778e-06,0.31818e-06,0.38422e-06,0.75698e-07 /) - kao(:, 5, 8, 3) = (/ & - & 0.18880e-07,0.18905e-06,0.25711e-06,0.30558e-06,0.34820e-06, & - & 0.34226e-06,0.32757e-06,0.36903e-06,0.87559e-07 /) - kao(:, 1, 9, 3) = (/ & - & 0.83060e-08,0.76710e-07,0.11565e-06,0.14764e-06,0.17329e-06, & - & 0.25783e-06,0.35957e-06,0.41243e-06,0.31797e-07 /) - kao(:, 2, 9, 3) = (/ & - & 0.99651e-08,0.91242e-07,0.13632e-06,0.17065e-06,0.18967e-06, & - & 0.24393e-06,0.32914e-06,0.39160e-06,0.39225e-07 /) - kao(:, 3, 9, 3) = (/ & - & 0.11621e-07,0.10845e-06,0.15426e-06,0.18813e-06,0.20803e-06, & - & 0.23565e-06,0.29600e-06,0.35083e-06,0.47417e-07 /) - kao(:, 4, 9, 3) = (/ & - & 0.13182e-07,0.12617e-06,0.17363e-06,0.21434e-06,0.24338e-06, & - & 0.24767e-06,0.26174e-06,0.33967e-06,0.56851e-07 /) - kao(:, 5, 9, 3) = (/ & - & 0.14647e-07,0.14462e-06,0.19609e-06,0.23554e-06,0.26966e-06, & - & 0.27000e-06,0.26860e-06,0.30941e-06,0.65848e-07 /) - kao(:, 1,10, 3) = (/ & - & 0.61513e-08,0.59201e-07,0.89564e-07,0.11096e-06,0.13963e-06, & - & 0.22868e-06,0.30519e-06,0.34949e-06,0.23910e-07 /) - kao(:, 2,10, 3) = (/ & - & 0.74969e-08,0.68921e-07,0.10513e-06,0.13256e-06,0.14959e-06, & - & 0.20339e-06,0.27500e-06,0.33281e-06,0.28611e-07 /) - kao(:, 3,10, 3) = (/ & - & 0.88625e-08,0.82016e-07,0.11818e-06,0.14725e-06,0.16097e-06, & - & 0.19608e-06,0.26185e-06,0.30530e-06,0.35935e-07 /) - kao(:, 4,10, 3) = (/ & - & 0.10184e-07,0.96432e-07,0.13542e-06,0.16348e-06,0.18477e-06, & - & 0.19886e-06,0.22449e-06,0.27787e-06,0.42133e-07 /) - kao(:, 5,10, 3) = (/ & - & 0.11421e-07,0.11117e-06,0.15107e-06,0.18528e-06,0.21005e-06, & - & 0.21209e-06,0.21257e-06,0.25796e-06,0.49988e-07 /) - kao(:, 1,11, 3) = (/ & - & 0.50310e-08,0.48563e-07,0.73473e-07,0.91094e-07,0.11455e-06, & - & 0.18734e-06,0.24995e-06,0.28620e-06,0.19440e-07 /) - kao(:, 2,11, 3) = (/ & - & 0.61304e-08,0.56532e-07,0.86340e-07,0.10878e-06,0.12244e-06, & - & 0.16646e-06,0.22541e-06,0.27316e-06,0.23338e-07 /) - kao(:, 3,11, 3) = (/ & - & 0.72491e-08,0.67226e-07,0.96798e-07,0.12061e-06,0.13181e-06, & - & 0.16043e-06,0.21436e-06,0.24928e-06,0.29352e-07 /) - kao(:, 4,11, 3) = (/ & - & 0.83326e-08,0.78998e-07,0.11085e-06,0.13391e-06,0.15135e-06, & - & 0.16281e-06,0.18360e-06,0.22741e-06,0.34425e-07 /) - kao(:, 5,11, 3) = (/ & - & 0.93458e-08,0.91055e-07,0.12364e-06,0.15181e-06,0.17196e-06, & - & 0.17367e-06,0.17400e-06,0.21108e-06,0.40855e-07 /) - kao(:, 1,12, 3) = (/ & - & 0.41189e-08,0.39856e-07,0.60140e-07,0.74963e-07,0.94012e-07, & - & 0.15333e-06,0.20441e-06,0.23474e-06,0.15853e-07 /) - kao(:, 2,12, 3) = (/ & - & 0.50193e-08,0.46348e-07,0.70855e-07,0.89301e-07,0.10040e-06, & - & 0.13626e-06,0.18429e-06,0.22399e-06,0.19078e-07 /) - kao(:, 3,12, 3) = (/ & - & 0.59344e-08,0.55100e-07,0.79255e-07,0.98783e-07,0.10799e-06, & - & 0.13125e-06,0.17544e-06,0.20357e-06,0.24013e-07 /) - kao(:, 4,12, 3) = (/ & - & 0.68228e-08,0.64743e-07,0.90843e-07,0.10971e-06,0.12396e-06, & - & 0.13321e-06,0.15026e-06,0.18611e-06,0.28198e-07 /) - kao(:, 5,12, 3) = (/ & - & 0.76512e-08,0.74591e-07,0.10123e-06,0.12433e-06,0.14085e-06, & - & 0.14222e-06,0.14246e-06,0.17276e-06,0.33441e-07 /) - kao(:, 1,13, 3) = (/ & - & 0.33724e-08,0.32680e-07,0.49222e-07,0.61513e-07,0.77133e-07, & - & 0.12555e-06,0.16713e-06,0.19233e-06,0.12966e-07 /) - kao(:, 2,13, 3) = (/ & - & 0.41100e-08,0.37987e-07,0.58121e-07,0.73233e-07,0.82218e-07, & - & 0.11156e-06,0.15077e-06,0.18269e-06,0.15614e-07 /) - kao(:, 3,13, 3) = (/ & - & 0.48589e-08,0.45157e-07,0.64912e-07,0.80902e-07,0.88466e-07, & - & 0.10747e-06,0.14360e-06,0.16616e-06,0.19653e-07 /) - kao(:, 4,13, 3) = (/ & - & 0.55845e-08,0.53032e-07,0.74357e-07,0.89835e-07,0.10150e-06, & - & 0.10902e-06,0.12309e-06,0.15231e-06,0.23083e-07 /) - kao(:, 5,13, 3) = (/ & - & 0.62642e-08,0.61086e-07,0.82886e-07,0.10172e-06,0.11529e-06, & - & 0.11645e-06,0.11667e-06,0.14140e-06,0.27368e-07 /) - kao(:, 1, 1, 4) = (/ & - & 0.38523e-06,0.18405e-05,0.24561e-05,0.26688e-05,0.26627e-05, & - & 0.26678e-05,0.26221e-05,0.23434e-05,0.10243e-05 /) - kao(:, 2, 1, 4) = (/ & - & 0.41258e-06,0.20340e-05,0.26799e-05,0.29289e-05,0.29138e-05, & - & 0.29293e-05,0.29106e-05,0.25138e-05,0.11179e-05 /) - kao(:, 3, 1, 4) = (/ & - & 0.43826e-06,0.22391e-05,0.29055e-05,0.31733e-05,0.31848e-05, & - & 0.32210e-05,0.31726e-05,0.29277e-05,0.13122e-05 /) - kao(:, 4, 1, 4) = (/ & - & 0.46214e-06,0.24098e-05,0.30735e-05,0.33543e-05,0.34157e-05, & - & 0.34436e-05,0.34008e-05,0.32157e-05,0.14111e-05 /) - kao(:, 5, 1, 4) = (/ & - & 0.48360e-06,0.25684e-05,0.32470e-05,0.35527e-05,0.36650e-05, & - & 0.37054e-05,0.36463e-05,0.35130e-05,0.16128e-05 /) - kao(:, 1, 2, 4) = (/ & - & 0.30632e-06,0.14811e-05,0.19813e-05,0.21525e-05,0.21480e-05, & - & 0.21651e-05,0.21352e-05,0.19097e-05,0.76078e-06 /) - kao(:, 2, 2, 4) = (/ & - & 0.32924e-06,0.16454e-05,0.21736e-05,0.23701e-05,0.23496e-05, & - & 0.23721e-05,0.23664e-05,0.20501e-05,0.85884e-06 /) - kao(:, 3, 2, 4) = (/ & - & 0.35084e-06,0.18164e-05,0.23625e-05,0.25754e-05,0.25799e-05, & - & 0.26089e-05,0.25758e-05,0.23569e-05,0.98156e-06 /) - kao(:, 4, 2, 4) = (/ & - & 0.37092e-06,0.19724e-05,0.25182e-05,0.27461e-05,0.27987e-05, & - & 0.28122e-05,0.27766e-05,0.26535e-05,0.11297e-05 /) - kao(:, 5, 2, 4) = (/ & - & 0.38936e-06,0.20952e-05,0.26519e-05,0.29005e-05,0.29889e-05, & - & 0.30120e-05,0.29564e-05,0.28641e-05,0.12488e-05 /) - kao(:, 1, 3, 4) = (/ & - & 0.23924e-06,0.11590e-05,0.15536e-05,0.16834e-05,0.16891e-05, & - & 0.17668e-05,0.16904e-05,0.15951e-05,0.52632e-06 /) - kao(:, 2, 3, 4) = (/ & - & 0.25864e-06,0.12971e-05,0.17221e-05,0.18731e-05,0.18563e-05, & - & 0.18804e-05,0.18628e-05,0.16576e-05,0.62738e-06 /) - kao(:, 3, 3, 4) = (/ & - & 0.27696e-06,0.14325e-05,0.18710e-05,0.20345e-05,0.20276e-05, & - & 0.20548e-05,0.20259e-05,0.17837e-05,0.70461e-06 /) - kao(:, 4, 3, 4) = (/ & - & 0.29413e-06,0.15757e-05,0.20191e-05,0.22050e-05,0.22319e-05, & - & 0.22354e-05,0.22195e-05,0.20885e-05,0.84521e-06 /) - kao(:, 5, 3, 4) = (/ & - & 0.31013e-06,0.16829e-05,0.21333e-05,0.23274e-05,0.23871e-05, & - & 0.23939e-05,0.23475e-05,0.22805e-05,0.93762e-06 /) - kao(:, 1, 4, 4) = (/ & - & 0.18537e-06,0.89469e-06,0.11953e-05,0.13099e-05,0.13271e-05, & - & 0.13910e-05,0.13233e-05,0.12842e-05,0.37595e-06 /) - kao(:, 2, 4, 4) = (/ & - & 0.20178e-06,0.10096e-05,0.13476e-05,0.14636e-05,0.14567e-05, & - & 0.14730e-05,0.14642e-05,0.13131e-05,0.45273e-06 /) - kao(:, 3, 4, 4) = (/ & - & 0.21732e-06,0.11251e-05,0.14779e-05,0.16107e-05,0.15945e-05, & - & 0.16194e-05,0.16016e-05,0.14026e-05,0.52023e-06 /) - kao(:, 4, 4, 4) = (/ & - & 0.23198e-06,0.12348e-05,0.15955e-05,0.17391e-05,0.17432e-05, & - & 0.17515e-05,0.17226e-05,0.15707e-05,0.60921e-06 /) - kao(:, 5, 4, 4) = (/ & - & 0.24566e-06,0.13471e-05,0.17138e-05,0.18677e-05,0.19071e-05, & - & 0.19021e-05,0.18647e-05,0.18054e-05,0.72437e-06 /) - kao(:, 1, 5, 4) = (/ & - & 0.14315e-06,0.68654e-06,0.91703e-06,0.10136e-05,0.10640e-05, & - & 0.10899e-05,0.10066e-05,0.10387e-05,0.27115e-06 /) - kao(:, 2, 5, 4) = (/ & - & 0.15693e-06,0.78124e-06,0.10460e-05,0.11319e-05,0.11350e-05, & - & 0.11836e-05,0.11463e-05,0.10954e-05,0.33462e-06 /) - kao(:, 3, 5, 4) = (/ & - & 0.17013e-06,0.87619e-06,0.11607e-05,0.12633e-05,0.12502e-05, & - & 0.12683e-05,0.12476e-05,0.11184e-05,0.38421e-06 /) - kao(:, 4, 5, 4) = (/ & - & 0.18255e-06,0.96990e-06,0.12617e-05,0.13726e-05,0.13641e-05, & - & 0.13787e-05,0.13521e-05,0.11952e-05,0.45446e-06 /) - kao(:, 5, 5, 4) = (/ & - & 0.19427e-06,0.10668e-05,0.13642e-05,0.14869e-05,0.15021e-05, & - & 0.14945e-05,0.14801e-05,0.13920e-05,0.54371e-06 /) - kao(:, 1, 6, 4) = (/ & - & 0.10978e-06,0.52395e-06,0.69476e-06,0.76850e-06,0.83675e-06, & - & 0.86491e-06,0.77625e-06,0.85871e-06,0.19533e-06 /) - kao(:, 2, 6, 4) = (/ & - & 0.12132e-06,0.59825e-06,0.79672e-06,0.87685e-06,0.88945e-06, & - & 0.93176e-06,0.88241e-06,0.87959e-06,0.24185e-06 /) - kao(:, 3, 6, 4) = (/ & - & 0.13245e-06,0.67730e-06,0.90458e-06,0.97978e-06,0.97457e-06, & - & 0.98659e-06,0.98199e-06,0.88654e-06,0.28188e-06 /) - kao(:, 4, 6, 4) = (/ & - & 0.14304e-06,0.75520e-06,0.99285e-06,0.10803e-05,0.10647e-05, & - & 0.10764e-05,0.10623e-05,0.93315e-06,0.33738e-06 /) - kao(:, 5, 6, 4) = (/ & - & 0.15298e-06,0.83133e-06,0.10714e-05,0.11654e-05,0.11612e-05, & - & 0.11628e-05,0.11409e-05,0.10211e-05,0.39343e-06 /) - kao(:, 1, 7, 4) = (/ & - & 0.83795e-07,0.39583e-06,0.52221e-06,0.57623e-06,0.66801e-06, & - & 0.68350e-06,0.61427e-06,0.74508e-06,0.14027e-06 /) - kao(:, 2, 7, 4) = (/ & - & 0.93456e-07,0.45651e-06,0.60707e-06,0.67267e-06,0.70886e-06, & - & 0.72875e-06,0.66655e-06,0.70837e-06,0.17333e-06 /) - kao(:, 3, 7, 4) = (/ & - & 0.10278e-06,0.52065e-06,0.69548e-06,0.75346e-06,0.75243e-06, & - & 0.79752e-06,0.76130e-06,0.73768e-06,0.20746e-06 /) - kao(:, 4, 7, 4) = (/ & - & 0.11172e-06,0.58539e-06,0.77614e-06,0.84147e-06,0.82956e-06, & - & 0.83892e-06,0.81830e-06,0.74649e-06,0.24711e-06 /) - kao(:, 5, 7, 4) = (/ & - & 0.12020e-06,0.64890e-06,0.84430e-06,0.91375e-06,0.90365e-06, & - & 0.91211e-06,0.89073e-06,0.78796e-06,0.29290e-06 /) - kao(:, 1, 8, 4) = (/ & - & 0.63771e-07,0.29724e-06,0.38901e-06,0.42952e-06,0.53569e-06, & - & 0.52739e-06,0.51421e-06,0.65416e-06,0.10106e-06 /) - kao(:, 2, 8, 4) = (/ & - & 0.71835e-07,0.34855e-06,0.45895e-06,0.50927e-06,0.55878e-06, & - & 0.57413e-06,0.51386e-06,0.58703e-06,0.12396e-06 /) - kao(:, 3, 8, 4) = (/ & - & 0.79626e-07,0.39836e-06,0.52930e-06,0.58238e-06,0.59321e-06, & - & 0.61917e-06,0.58275e-06,0.59574e-06,0.15556e-06 /) - kao(:, 4, 8, 4) = (/ & - & 0.87141e-07,0.45236e-06,0.60287e-06,0.64978e-06,0.64621e-06, & - & 0.65548e-06,0.65037e-06,0.59243e-06,0.18170e-06 /) - kao(:, 5, 8, 4) = (/ & - & 0.94308e-07,0.50478e-06,0.66216e-06,0.71791e-06,0.70542e-06, & - & 0.71265e-06,0.70440e-06,0.61750e-06,0.21806e-06 /) - kao(:, 1, 9, 4) = (/ & - & 0.48334e-07,0.22150e-06,0.29066e-06,0.32650e-06,0.41774e-06, & - & 0.40737e-06,0.44502e-06,0.56524e-06,0.72879e-07 /) - kao(:, 2, 9, 4) = (/ & - & 0.54994e-07,0.26340e-06,0.34441e-06,0.38160e-06,0.44410e-06, & - & 0.45746e-06,0.41390e-06,0.50482e-06,0.89924e-07 /) - kao(:, 3, 9, 4) = (/ & - & 0.61501e-07,0.30416e-06,0.40299e-06,0.44693e-06,0.47253e-06, & - & 0.48623e-06,0.44624e-06,0.47646e-06,0.11220e-06 /) - kao(:, 4, 9, 4) = (/ & - & 0.67792e-07,0.34758e-06,0.46191e-06,0.50102e-06,0.50055e-06, & - & 0.52975e-06,0.50335e-06,0.48665e-06,0.13456e-06 /) - kao(:, 5, 9, 4) = (/ & - & 0.73830e-07,0.39095e-06,0.51738e-06,0.55894e-06,0.55048e-06, & - & 0.55492e-06,0.54317e-06,0.49144e-06,0.16088e-06 /) - kao(:, 1,10, 4) = (/ & - & 0.36931e-07,0.16614e-06,0.21895e-06,0.26116e-06,0.33023e-06, & - & 0.31438e-06,0.35810e-06,0.46819e-06,0.53649e-07 /) - kao(:, 2,10, 4) = (/ & - & 0.42386e-07,0.20028e-06,0.26120e-06,0.28858e-06,0.36090e-06, & - & 0.35506e-06,0.34639e-06,0.43640e-06,0.66551e-07 /) - kao(:, 3,10, 4) = (/ & - & 0.47801e-07,0.23474e-06,0.30842e-06,0.34242e-06,0.37552e-06, & - & 0.38348e-06,0.34637e-06,0.39519e-06,0.81897e-07 /) - kao(:, 4,10, 4) = (/ & - & 0.53030e-07,0.26856e-06,0.35532e-06,0.39019e-06,0.39727e-06, & - & 0.41391e-06,0.38815e-06,0.39845e-06,0.10316e-06 /) - kao(:, 5,10, 4) = (/ & - & 0.58073e-07,0.30468e-06,0.40415e-06,0.43508e-06,0.43212e-06, & - & 0.43860e-06,0.43462e-06,0.39513e-06,0.12065e-06 /) - kao(:, 1,11, 4) = (/ & - & 0.30210e-07,0.13672e-06,0.18028e-06,0.21388e-06,0.27067e-06, & - & 0.25748e-06,0.29347e-06,0.38486e-06,0.43992e-07 /) - kao(:, 2,11, 4) = (/ & - & 0.34676e-07,0.16480e-06,0.21447e-06,0.23703e-06,0.29658e-06, & - & 0.29189e-06,0.28346e-06,0.35425e-06,0.54558e-07 /) - kao(:, 3,11, 4) = (/ & - & 0.39112e-07,0.19301e-06,0.25343e-06,0.28112e-06,0.30767e-06, & - & 0.31424e-06,0.28354e-06,0.32323e-06,0.67060e-07 /) - kao(:, 4,11, 4) = (/ & - & 0.43392e-07,0.22069e-06,0.29158e-06,0.31987e-06,0.32514e-06, & - & 0.33920e-06,0.31782e-06,0.32572e-06,0.84444e-07 /) - kao(:, 5,11, 4) = (/ & - & 0.47520e-07,0.25011e-06,0.33134e-06,0.35641e-06,0.35390e-06, & - & 0.35921e-06,0.35594e-06,0.32298e-06,0.98845e-07 /) - kao(:, 1,12, 4) = (/ & - & 0.24733e-07,0.11230e-06,0.14856e-06,0.17472e-06,0.22197e-06, & - & 0.21118e-06,0.24122e-06,0.31477e-06,0.36119e-07 /) - kao(:, 2,12, 4) = (/ & - & 0.28389e-07,0.13551e-06,0.17612e-06,0.19468e-06,0.24363e-06, & - & 0.23963e-06,0.23290e-06,0.28830e-06,0.44709e-07 /) - kao(:, 3,12, 4) = (/ & - & 0.32017e-07,0.15859e-06,0.20791e-06,0.23074e-06,0.25230e-06, & - & 0.25771e-06,0.23238e-06,0.26334e-06,0.54941e-07 /) - kao(:, 4,12, 4) = (/ & - & 0.35526e-07,0.18123e-06,0.23912e-06,0.26228e-06,0.26637e-06, & - & 0.27804e-06,0.26039e-06,0.26652e-06,0.69162e-07 /) - kao(:, 5,12, 4) = (/ & - & 0.38912e-07,0.20524e-06,0.27165e-06,0.29207e-06,0.28991e-06, & - & 0.29419e-06,0.29154e-06,0.26412e-06,0.80995e-07 /) - kao(:, 1,13, 4) = (/ & - & 0.20250e-07,0.92231e-07,0.12203e-06,0.14275e-06,0.18179e-06, & - & 0.17279e-06,0.19796e-06,0.25817e-06,0.29574e-07 /) - kao(:, 2,13, 4) = (/ & - & 0.23243e-07,0.11133e-06,0.14442e-06,0.15980e-06,0.20001e-06, & - & 0.19638e-06,0.19075e-06,0.23541e-06,0.36618e-07 /) - kao(:, 3,13, 4) = (/ & - & 0.26215e-07,0.13018e-06,0.17053e-06,0.18925e-06,0.20654e-06, & - & 0.21104e-06,0.19040e-06,0.21495e-06,0.44987e-07 /) - kao(:, 4,13, 4) = (/ & - & 0.29082e-07,0.14865e-06,0.19601e-06,0.21490e-06,0.21820e-06, & - & 0.22779e-06,0.21313e-06,0.21809e-06,0.56635e-07 /) - kao(:, 5,13, 4) = (/ & - & 0.31856e-07,0.16826e-06,0.22260e-06,0.23930e-06,0.23753e-06, & - & 0.24098e-06,0.23875e-06,0.21605e-06,0.66316e-07 /) - kao(:, 1, 1, 5) = (/ & - & 0.17059e-05,0.38862e-05,0.46330e-05,0.51258e-05,0.53516e-05, & - & 0.52890e-05,0.49050e-05,0.49561e-05,0.24914e-05 /) - kao(:, 2, 1, 5) = (/ & - & 0.17702e-05,0.41613e-05,0.49979e-05,0.55352e-05,0.58535e-05, & - & 0.58620e-05,0.55540e-05,0.53944e-05,0.30111e-05 /) - kao(:, 3, 1, 5) = (/ & - & 0.18268e-05,0.44218e-05,0.53631e-05,0.59894e-05,0.63892e-05, & - & 0.64888e-05,0.63488e-05,0.59957e-05,0.35253e-05 /) - kao(:, 4, 1, 5) = (/ & - & 0.18763e-05,0.46467e-05,0.56969e-05,0.64112e-05,0.68701e-05, & - & 0.70687e-05,0.69575e-05,0.65330e-05,0.40117e-05 /) - kao(:, 5, 1, 5) = (/ & - & 0.19168e-05,0.48702e-05,0.60413e-05,0.68595e-05,0.73828e-05, & - & 0.76555e-05,0.76620e-05,0.72236e-05,0.44814e-05 /) - kao(:, 1, 2, 5) = (/ & - & 0.13807e-05,0.32052e-05,0.37981e-05,0.41868e-05,0.43666e-05, & - & 0.42966e-05,0.39397e-05,0.40523e-05,0.19972e-05 /) - kao(:, 2, 2, 5) = (/ & - & 0.14355e-05,0.34375e-05,0.40968e-05,0.45345e-05,0.47869e-05, & - & 0.47900e-05,0.45121e-05,0.44176e-05,0.23759e-05 /) - kao(:, 3, 2, 5) = (/ & - & 0.14839e-05,0.36628e-05,0.44128e-05,0.49223e-05,0.52399e-05, & - & 0.53302e-05,0.51982e-05,0.49130e-05,0.28052e-05 /) - kao(:, 4, 2, 5) = (/ & - & 0.15261e-05,0.38551e-05,0.47116e-05,0.52947e-05,0.56758e-05, & - & 0.58601e-05,0.57606e-05,0.54224e-05,0.31665e-05 /) - kao(:, 5, 2, 5) = (/ & - & 0.15621e-05,0.40345e-05,0.49797e-05,0.56344e-05,0.60672e-05, & - & 0.63079e-05,0.63076e-05,0.59671e-05,0.35368e-05 /) - kao(:, 1, 3, 5) = (/ & - & 0.11048e-05,0.25908e-05,0.30458e-05,0.33480e-05,0.34767e-05, & - & 0.33444e-05,0.30982e-05,0.31520e-05,0.14943e-05 /) - kao(:, 2, 3, 5) = (/ & - & 0.11526e-05,0.27857e-05,0.32915e-05,0.36364e-05,0.38272e-05, & - & 0.38169e-05,0.35492e-05,0.35141e-05,0.17575e-05 /) - kao(:, 3, 3, 5) = (/ & - & 0.11948e-05,0.29688e-05,0.35427e-05,0.39401e-05,0.41747e-05, & - & 0.42239e-05,0.40766e-05,0.39111e-05,0.20688e-05 /) - kao(:, 4, 3, 5) = (/ & - & 0.12319e-05,0.31426e-05,0.38135e-05,0.42625e-05,0.45635e-05, & - & 0.47062e-05,0.46027e-05,0.43389e-05,0.23873e-05 /) - kao(:, 5, 3, 5) = (/ & - & 0.12642e-05,0.32923e-05,0.40402e-05,0.45497e-05,0.48934e-05, & - & 0.50814e-05,0.50577e-05,0.47614e-05,0.26860e-05 /) - kao(:, 1, 4, 5) = (/ & - & 0.87810e-06,0.20726e-05,0.24188e-05,0.26498e-05,0.27201e-05, & - & 0.25966e-05,0.24215e-05,0.25596e-05,0.10910e-05 /) - kao(:, 2, 4, 5) = (/ & - & 0.92113e-06,0.22378e-05,0.26243e-05,0.28859e-05,0.30228e-05, & - & 0.29855e-05,0.27257e-05,0.28497e-05,0.12952e-05 /) - kao(:, 3, 4, 5) = (/ & - & 0.95847e-06,0.23927e-05,0.28323e-05,0.31308e-05,0.33238e-05, & - & 0.33287e-05,0.31597e-05,0.31032e-05,0.15368e-05 /) - kao(:, 4, 4, 5) = (/ & - & 0.99115e-06,0.25350e-05,0.30423e-05,0.33883e-05,0.36085e-05, & - & 0.36829e-05,0.35850e-05,0.33993e-05,0.17502e-05 /) - kao(:, 5, 4, 5) = (/ & - & 0.10199e-05,0.26768e-05,0.32656e-05,0.36641e-05,0.39303e-05, & - & 0.40820e-05,0.40444e-05,0.38038e-05,0.20588e-05 /) - kao(:, 1, 5, 5) = (/ & - & 0.69521e-06,0.16480e-05,0.19136e-05,0.20758e-05,0.21053e-05, & - & 0.19983e-05,0.19384e-05,0.21119e-05,0.79759e-06 /) - kao(:, 2, 5, 5) = (/ & - & 0.73399e-06,0.17885e-05,0.20863e-05,0.22802e-05,0.23681e-05, & - & 0.23078e-05,0.21093e-05,0.21684e-05,0.95048e-06 /) - kao(:, 3, 5, 5) = (/ & - & 0.76704e-06,0.19210e-05,0.22551e-05,0.24823e-05,0.26201e-05, & - & 0.26181e-05,0.24369e-05,0.24387e-05,0.11396e-05 /) - kao(:, 4, 5, 5) = (/ & - & 0.79598e-06,0.20422e-05,0.24305e-05,0.26936e-05,0.28610e-05, & - & 0.28938e-05,0.28032e-05,0.26848e-05,0.13054e-05 /) - kao(:, 5, 5, 5) = (/ & - & 0.82146e-06,0.21630e-05,0.26149e-05,0.29202e-05,0.31281e-05, & - & 0.32364e-05,0.31639e-05,0.29903e-05,0.15503e-05 /) - kao(:, 1, 6, 5) = (/ & - & 0.54790e-06,0.12968e-05,0.14998e-05,0.16199e-05,0.16168e-05, & - & 0.15151e-05,0.14932e-05,0.16380e-05,0.58437e-06 /) - kao(:, 2, 6, 5) = (/ & - & 0.58180e-06,0.14204e-05,0.16474e-05,0.17877e-05,0.18382e-05, & - & 0.17645e-05,0.16359e-05,0.17414e-05,0.70191e-06 /) - kao(:, 3, 6, 5) = (/ & - & 0.61169e-06,0.15332e-05,0.17837e-05,0.19554e-05,0.20462e-05, & - & 0.20343e-05,0.18483e-05,0.19670e-05,0.83824e-06 /) - kao(:, 4, 6, 5) = (/ & - & 0.63729e-06,0.16375e-05,0.19280e-05,0.21247e-05,0.22559e-05, & - & 0.22588e-05,0.21468e-05,0.21190e-05,0.96829e-06 /) - kao(:, 5, 6, 5) = (/ & - & 0.65987e-06,0.17326e-05,0.20710e-05,0.23017e-05,0.24525e-05, & - & 0.25042e-05,0.24377e-05,0.23029e-05,0.11330e-05 /) - kao(:, 1, 7, 5) = (/ & - & 0.43067e-06,0.10147e-05,0.11663e-05,0.12622e-05,0.12316e-05, & - & 0.11186e-05,0.12227e-05,0.12153e-05,0.41960e-06 /) - kao(:, 2, 7, 5) = (/ & - & 0.45965e-06,0.11216e-05,0.12929e-05,0.13935e-05,0.14129e-05, & - & 0.13426e-05,0.12944e-05,0.14463e-05,0.51416e-06 /) - kao(:, 3, 7, 5) = (/ & - & 0.48636e-06,0.12186e-05,0.14109e-05,0.15331e-05,0.15936e-05, & - & 0.15473e-05,0.14164e-05,0.14707e-05,0.61314e-06 /) - kao(:, 4, 7, 5) = (/ & - & 0.50928e-06,0.13071e-05,0.15237e-05,0.16740e-05,0.17644e-05, & - & 0.17562e-05,0.16373e-05,0.16431e-05,0.72862e-06 /) - kao(:, 5, 7, 5) = (/ & - & 0.52919e-06,0.13890e-05,0.16443e-05,0.18186e-05,0.19296e-05, & - & 0.19451e-05,0.18786e-05,0.17942e-05,0.84235e-06 /) - kao(:, 1, 8, 5) = (/ & - & 0.33792e-06,0.78856e-06,0.90464e-06,0.98317e-06,0.92848e-06, & - & 0.86387e-06,0.95438e-06,0.90887e-06,0.29529e-06 /) - kao(:, 2, 8, 5) = (/ & - & 0.36263e-06,0.88071e-06,0.10121e-05,0.10878e-05,0.10817e-05, & - & 0.10133e-05,0.10031e-05,0.11161e-05,0.37413e-06 /) - kao(:, 3, 8, 5) = (/ & - & 0.38563e-06,0.96560e-06,0.11116e-05,0.12011e-05,0.12324e-05, & - & 0.11848e-05,0.10927e-05,0.11776e-05,0.44987e-06 /) - kao(:, 4, 8, 5) = (/ & - & 0.40622e-06,0.10407e-05,0.12047e-05,0.13138e-05,0.13745e-05, & - & 0.13598e-05,0.12356e-05,0.13203e-05,0.54288e-06 /) - kao(:, 5, 8, 5) = (/ & - & 0.42386e-06,0.11111e-05,0.13019e-05,0.14302e-05,0.15146e-05, & - & 0.15112e-05,0.14255e-05,0.14090e-05,0.62729e-06 /) - kao(:, 1, 9, 5) = (/ & - & 0.26432e-06,0.60726e-06,0.70036e-06,0.76229e-06,0.71577e-06, & - & 0.69749e-06,0.70164e-06,0.72668e-06,0.20659e-06 /) - kao(:, 2, 9, 5) = (/ & - & 0.28549e-06,0.68848e-06,0.78705e-06,0.84862e-06,0.82241e-06, & - & 0.74707e-06,0.82519e-06,0.82938e-06,0.27449e-06 /) - kao(:, 3, 9, 5) = (/ & - & 0.30511e-06,0.76168e-06,0.87199e-06,0.93359e-06,0.94531e-06, & - & 0.89794e-06,0.85947e-06,0.97111e-06,0.33410e-06 /) - kao(:, 4, 9, 5) = (/ & - & 0.32329e-06,0.82660e-06,0.95163e-06,0.10287e-05,0.10680e-05, & - & 0.10381e-05,0.94558e-06,0.98374e-06,0.39896e-06 /) - kao(:, 5, 9, 5) = (/ & - & 0.33897e-06,0.88614e-06,0.10276e-05,0.11239e-05,0.11817e-05, & - & 0.11723e-05,0.10892e-05,0.10943e-05,0.47438e-06 /) - kao(:, 1,10, 5) = (/ & - & 0.20748e-06,0.47023e-06,0.54165e-06,0.58159e-06,0.54422e-06, & - & 0.55116e-06,0.57712e-06,0.60571e-06,0.14752e-06 /) - kao(:, 2,10, 5) = (/ & - & 0.22561e-06,0.54027e-06,0.61555e-06,0.66550e-06,0.62550e-06, & - & 0.58306e-06,0.64781e-06,0.63365e-06,0.19821e-06 /) - kao(:, 3,10, 5) = (/ & - & 0.24219e-06,0.60251e-06,0.68703e-06,0.73412e-06,0.72965e-06, & - & 0.68255e-06,0.67291e-06,0.76422e-06,0.24874e-06 /) - kao(:, 4,10, 5) = (/ & - & 0.25766e-06,0.65861e-06,0.75375e-06,0.81214e-06,0.83171e-06, & - & 0.80129e-06,0.73385e-06,0.78864e-06,0.29867e-06 /) - kao(:, 5,10, 5) = (/ & - & 0.27157e-06,0.70870e-06,0.81638e-06,0.88593e-06,0.92651e-06, & - & 0.91449e-06,0.83048e-06,0.88651e-06,0.36087e-06 /) - kao(:, 1,11, 5) = (/ & - & 0.16984e-06,0.38981e-06,0.44742e-06,0.48022e-06,0.44950e-06, & - & 0.45173e-06,0.47333e-06,0.50203e-06,0.12166e-06 /) - kao(:, 2,11, 5) = (/ & - & 0.18466e-06,0.44753e-06,0.50754e-06,0.54744e-06,0.51342e-06, & - & 0.47893e-06,0.53296e-06,0.51992e-06,0.16283e-06 /) - kao(:, 3,11, 5) = (/ & - & 0.19826e-06,0.49803e-06,0.56578e-06,0.60333e-06,0.60031e-06, & - & 0.56085e-06,0.55152e-06,0.63442e-06,0.20412e-06 /) - kao(:, 4,11, 5) = (/ & - & 0.21087e-06,0.54349e-06,0.62058e-06,0.66722e-06,0.68339e-06, & - & 0.65819e-06,0.60140e-06,0.64555e-06,0.24501e-06 /) - kao(:, 5,11, 5) = (/ & - & 0.22228e-06,0.58430e-06,0.67139e-06,0.72733e-06,0.76067e-06, & - & 0.75025e-06,0.68133e-06,0.72307e-06,0.29566e-06 /) - kao(:, 1,12, 5) = (/ & - & 0.13908e-06,0.32322e-06,0.36926e-06,0.39668e-06,0.37094e-06, & - & 0.37104e-06,0.38736e-06,0.41059e-06,0.10018e-06 /) - kao(:, 2,12, 5) = (/ & - & 0.15119e-06,0.37037e-06,0.41804e-06,0.44988e-06,0.42138e-06, & - & 0.39334e-06,0.43800e-06,0.42649e-06,0.13384e-06 /) - kao(:, 3,12, 5) = (/ & - & 0.16232e-06,0.41107e-06,0.46554e-06,0.49568e-06,0.49349e-06, & - & 0.46062e-06,0.45205e-06,0.52165e-06,0.16749e-06 /) - kao(:, 4,12, 5) = (/ & - & 0.17268e-06,0.44802e-06,0.51028e-06,0.54757e-06,0.56096e-06, & - & 0.54041e-06,0.49303e-06,0.52723e-06,0.20095e-06 /) - kao(:, 5,12, 5) = (/ & - & 0.18199e-06,0.48092e-06,0.55149e-06,0.59694e-06,0.62405e-06, & - & 0.61534e-06,0.55851e-06,0.58926e-06,0.24228e-06 /) - kao(:, 1,13, 5) = (/ & - & 0.11387e-06,0.26741e-06,0.30441e-06,0.32687e-06,0.30479e-06, & - & 0.30477e-06,0.31768e-06,0.33316e-06,0.82090e-07 /) - kao(:, 2,13, 5) = (/ & - & 0.12381e-06,0.30579e-06,0.34391e-06,0.36935e-06,0.34578e-06, & - & 0.32317e-06,0.35995e-06,0.35099e-06,0.10981e-06 /) - kao(:, 3,13, 5) = (/ & - & 0.13290e-06,0.33871e-06,0.38265e-06,0.40672e-06,0.40511e-06, & - & 0.37796e-06,0.36986e-06,0.42813e-06,0.13721e-06 /) - kao(:, 4,13, 5) = (/ & - & 0.14135e-06,0.36878e-06,0.41898e-06,0.44916e-06,0.46012e-06, & - & 0.44348e-06,0.40383e-06,0.43087e-06,0.16460e-06 /) - kao(:, 5,13, 5) = (/ & - & 0.14898e-06,0.39524e-06,0.45245e-06,0.48939e-06,0.51148e-06, & - & 0.50420e-06,0.45753e-06,0.48088e-06,0.19843e-06 /) - kao(:, 1, 1, 6) = (/ & - & 0.49835e-05,0.73512e-05,0.88016e-05,0.97115e-05,0.10342e-04, & - & 0.10688e-04,0.10747e-04,0.97587e-05,0.57353e-05 /) - kao(:, 2, 1, 6) = (/ & - & 0.49823e-05,0.77944e-05,0.95403e-05,0.10739e-04,0.11522e-04, & - & 0.11974e-04,0.12019e-04,0.11200e-04,0.69362e-05 /) - kao(:, 3, 1, 6) = (/ & - & 0.49638e-05,0.82513e-05,0.10343e-04,0.11836e-04,0.12804e-04, & - & 0.13375e-04,0.13427e-04,0.12807e-04,0.83325e-05 /) - kao(:, 4, 1, 6) = (/ & - & 0.49300e-05,0.87230e-05,0.11131e-04,0.12834e-04,0.13980e-04, & - & 0.14660e-04,0.14790e-04,0.14186e-04,0.94893e-05 /) - kao(:, 5, 1, 6) = (/ & - & 0.48886e-05,0.92046e-05,0.11933e-04,0.13885e-04,0.15255e-04, & - & 0.16071e-04,0.16239e-04,0.15605e-04,0.10917e-04 /) - kao(:, 1, 2, 6) = (/ & - & 0.41174e-05,0.62362e-05,0.73897e-05,0.81161e-05,0.86061e-05, & - & 0.88364e-05,0.89272e-05,0.81534e-05,0.45187e-05 /) - kao(:, 2, 2, 6) = (/ & - & 0.41154e-05,0.66112e-05,0.80274e-05,0.90030e-05,0.96264e-05, & - & 0.99529e-05,0.10004e-04,0.93836e-05,0.55300e-05 /) - kao(:, 3, 2, 6) = (/ & - & 0.40999e-05,0.69972e-05,0.87232e-05,0.99464e-05,0.10738e-04, & - & 0.11186e-04,0.11235e-04,0.10760e-04,0.66656e-05 /) - kao(:, 4, 2, 6) = (/ & - & 0.40728e-05,0.73933e-05,0.94032e-05,0.10842e-04,0.11807e-04, & - & 0.12371e-04,0.12495e-04,0.12016e-04,0.78073e-05 /) - kao(:, 5, 2, 6) = (/ & - & 0.40371e-05,0.77954e-05,0.10060e-04,0.11710e-04,0.12855e-04, & - & 0.13529e-04,0.13658e-04,0.13169e-04,0.88462e-05 /) - kao(:, 1, 3, 6) = (/ & - & 0.33911e-05,0.51807e-05,0.60524e-05,0.65745e-05,0.69209e-05, & - & 0.70496e-05,0.71376e-05,0.64864e-05,0.34232e-05 /) - kao(:, 2, 3, 6) = (/ & - & 0.33916e-05,0.54910e-05,0.65875e-05,0.73243e-05,0.77878e-05, & - & 0.79847e-05,0.80332e-05,0.75309e-05,0.42228e-05 /) - kao(:, 3, 3, 6) = (/ & - & 0.33813e-05,0.58057e-05,0.71503e-05,0.80869e-05,0.86798e-05, & - & 0.89845e-05,0.90042e-05,0.85938e-05,0.50519e-05 /) - kao(:, 4, 3, 6) = (/ & - & 0.33618e-05,0.61503e-05,0.77470e-05,0.88947e-05,0.96421e-05, & - & 0.10056e-04,0.10131e-04,0.97836e-05,0.60817e-05 /) - kao(:, 5, 3, 6) = (/ & - & 0.33346e-05,0.64834e-05,0.82992e-05,0.96266e-05,0.10527e-04, & - & 0.11042e-04,0.11154e-04,0.10788e-04,0.69208e-05 /) - kao(:, 1, 4, 6) = (/ & - & 0.27862e-05,0.42534e-05,0.48987e-05,0.52435e-05,0.54733e-05, & - & 0.55364e-05,0.55872e-05,0.49226e-05,0.25436e-05 /) - kao(:, 2, 4, 6) = (/ & - & 0.27893e-05,0.45093e-05,0.53394e-05,0.58691e-05,0.61855e-05, & - & 0.63070e-05,0.63399e-05,0.58599e-05,0.31726e-05 /) - kao(:, 3, 4, 6) = (/ & - & 0.27843e-05,0.47714e-05,0.58075e-05,0.65048e-05,0.69158e-05, & - & 0.71341e-05,0.71529e-05,0.67578e-05,0.38485e-05 /) - kao(:, 4, 4, 6) = (/ & - & 0.27713e-05,0.50491e-05,0.62824e-05,0.71451e-05,0.76931e-05, & - & 0.79968e-05,0.80403e-05,0.77391e-05,0.46093e-05 /) - kao(:, 5, 4, 6) = (/ & - & 0.27517e-05,0.53526e-05,0.67897e-05,0.78357e-05,0.85357e-05, & - & 0.89260e-05,0.90160e-05,0.87287e-05,0.54226e-05 /) - kao(:, 1, 5, 6) = (/ & - & 0.22852e-05,0.34704e-05,0.39351e-05,0.41626e-05,0.42797e-05, & - & 0.43078e-05,0.42289e-05,0.36572e-05,0.18725e-05 /) - kao(:, 2, 5, 6) = (/ & - & 0.22904e-05,0.36828e-05,0.42969e-05,0.46636e-05,0.48818e-05, & - & 0.49227e-05,0.49640e-05,0.45776e-05,0.23620e-05 /) - kao(:, 3, 5, 6) = (/ & - & 0.22883e-05,0.38995e-05,0.46830e-05,0.51887e-05,0.54814e-05, & - & 0.56039e-05,0.56350e-05,0.52624e-05,0.29139e-05 /) - kao(:, 4, 5, 6) = (/ & - & 0.22808e-05,0.41317e-05,0.50763e-05,0.57196e-05,0.61208e-05, & - & 0.63389e-05,0.63549e-05,0.60859e-05,0.35219e-05 /) - kao(:, 5, 5, 6) = (/ & - & 0.22671e-05,0.43851e-05,0.54991e-05,0.62948e-05,0.68249e-05, & - & 0.71098e-05,0.71755e-05,0.69558e-05,0.41900e-05 /) - kao(:, 1, 6, 6) = (/ & - & 0.18699e-05,0.28114e-05,0.31400e-05,0.32683e-05,0.33153e-05, & - & 0.33008e-05,0.31920e-05,0.27860e-05,0.13420e-05 /) - kao(:, 2, 6, 6) = (/ & - & 0.18773e-05,0.29859e-05,0.34309e-05,0.36695e-05,0.38007e-05, & - & 0.38091e-05,0.38180e-05,0.34314e-05,0.17179e-05 /) - kao(:, 3, 6, 6) = (/ & - & 0.18783e-05,0.31642e-05,0.37448e-05,0.40997e-05,0.43019e-05, & - & 0.43546e-05,0.43740e-05,0.40084e-05,0.21605e-05 /) - kao(:, 4, 6, 6) = (/ & - & 0.18743e-05,0.33566e-05,0.40684e-05,0.45371e-05,0.48151e-05, & - & 0.49624e-05,0.49624e-05,0.47228e-05,0.26431e-05 /) - kao(:, 5, 6, 6) = (/ & - & 0.18657e-05,0.35541e-05,0.43955e-05,0.49826e-05,0.53649e-05, & - & 0.55694e-05,0.55990e-05,0.54328e-05,0.31359e-05 /) - kao(:, 1, 7, 6) = (/ & - & 0.15270e-05,0.22681e-05,0.24953e-05,0.25538e-05,0.25397e-05, & - & 0.25315e-05,0.23299e-05,0.21035e-05,0.95748e-06 /) - kao(:, 2, 7, 6) = (/ & - & 0.15365e-05,0.24113e-05,0.27304e-05,0.28767e-05,0.29339e-05, & - & 0.29290e-05,0.28728e-05,0.24852e-05,0.12383e-05 /) - kao(:, 3, 7, 6) = (/ & - & 0.15398e-05,0.25576e-05,0.29821e-05,0.32226e-05,0.33508e-05, & - & 0.33584e-05,0.33733e-05,0.31044e-05,0.15900e-05 /) - kao(:, 4, 7, 6) = (/ & - & 0.15385e-05,0.27150e-05,0.32458e-05,0.35802e-05,0.37697e-05, & - & 0.38500e-05,0.38510e-05,0.36169e-05,0.19605e-05 /) - kao(:, 5, 7, 6) = (/ & - & 0.15336e-05,0.28792e-05,0.35139e-05,0.39460e-05,0.42149e-05, & - & 0.43622e-05,0.43664e-05,0.42187e-05,0.23523e-05 /) - kao(:, 1, 8, 6) = (/ & - & 0.12444e-05,0.18266e-05,0.19784e-05,0.19900e-05,0.19390e-05, & - & 0.19235e-05,0.17231e-05,0.16995e-05,0.68590e-06 /) - kao(:, 2, 8, 6) = (/ & - & 0.12557e-05,0.19427e-05,0.21667e-05,0.22465e-05,0.22625e-05, & - & 0.22377e-05,0.21596e-05,0.18759e-05,0.89490e-06 /) - kao(:, 3, 8, 6) = (/ & - & 0.12608e-05,0.20627e-05,0.23694e-05,0.25224e-05,0.25961e-05, & - & 0.25892e-05,0.25887e-05,0.23400e-05,0.11490e-05 /) - kao(:, 4, 8, 6) = (/ & - & 0.12616e-05,0.21916e-05,0.25816e-05,0.28156e-05,0.29418e-05, & - & 0.29759e-05,0.29788e-05,0.27379e-05,0.14416e-05 /) - kao(:, 5, 8, 6) = (/ & - & 0.12590e-05,0.23261e-05,0.28013e-05,0.31131e-05,0.32990e-05, & - & 0.33976e-05,0.33946e-05,0.32600e-05,0.17529e-05 /) - kao(:, 1, 9, 6) = (/ & - & 0.10123e-05,0.14681e-05,0.15612e-05,0.15411e-05,0.14778e-05, & - & 0.14343e-05,0.12992e-05,0.13172e-05,0.49290e-06 /) - kao(:, 2, 9, 6) = (/ & - & 0.10245e-05,0.15617e-05,0.17149e-05,0.17499e-05,0.17312e-05, & - & 0.17144e-05,0.15772e-05,0.14382e-05,0.63132e-06 /) - kao(:, 3, 9, 6) = (/ & - & 0.10311e-05,0.16600e-05,0.18786e-05,0.19738e-05,0.20017e-05, & - & 0.19859e-05,0.19416e-05,0.17139e-05,0.82278e-06 /) - kao(:, 4, 9, 6) = (/ & - & 0.10334e-05,0.17639e-05,0.20493e-05,0.22069e-05,0.22845e-05, & - & 0.22769e-05,0.22855e-05,0.21115e-05,0.10531e-05 /) - kao(:, 5, 9, 6) = (/ & - & 0.10328e-05,0.18738e-05,0.22265e-05,0.24495e-05,0.25737e-05, & - & 0.26232e-05,0.26173e-05,0.24699e-05,0.12950e-05 /) - kao(:, 1,10, 6) = (/ & - & 0.82261e-06,0.11811e-05,0.12403e-05,0.12060e-05,0.11493e-05, & - & 0.10907e-05,0.98035e-06,0.10980e-05,0.37316e-06 /) - kao(:, 2,10, 6) = (/ & - & 0.83528e-06,0.12595e-05,0.13646e-05,0.13745e-05,0.13365e-05, & - & 0.13172e-05,0.11846e-05,0.11491e-05,0.46158e-06 /) - kao(:, 3,10, 6) = (/ & - & 0.84255e-06,0.13392e-05,0.14968e-05,0.15528e-05,0.15573e-05, & - & 0.15339e-05,0.14802e-05,0.12811e-05,0.60300e-06 /) - kao(:, 4,10, 6) = (/ & - & 0.84587e-06,0.14245e-05,0.16355e-05,0.17381e-05,0.17835e-05, & - & 0.17693e-05,0.17683e-05,0.16097e-05,0.77730e-06 /) - kao(:, 5,10, 6) = (/ & - & 0.84627e-06,0.15137e-05,0.17779e-05,0.19378e-05,0.20192e-05, & - & 0.20387e-05,0.20340e-05,0.18636e-05,0.96863e-06 /) - kao(:, 1,11, 6) = (/ & - & 0.67388e-06,0.97942e-06,0.10286e-05,0.10023e-05,0.95317e-06, & - & 0.90847e-06,0.81776e-06,0.89345e-06,0.30408e-06 /) - kao(:, 2,11, 6) = (/ & - & 0.68407e-06,0.10438e-05,0.11334e-05,0.11425e-05,0.11096e-05, & - & 0.10886e-05,0.98240e-06,0.94798e-06,0.38086e-06 /) - kao(:, 3,11, 6) = (/ & - & 0.69000e-06,0.11106e-05,0.12435e-05,0.12890e-05,0.12895e-05, & - & 0.12679e-05,0.12202e-05,0.10522e-05,0.49623e-06 /) - kao(:, 4,11, 6) = (/ & - & 0.69276e-06,0.11824e-05,0.13564e-05,0.14402e-05,0.14763e-05, & - & 0.14628e-05,0.14599e-05,0.13328e-05,0.63979e-06 /) - kao(:, 5,11, 6) = (/ & - & 0.69302e-06,0.12555e-05,0.14740e-05,0.16049e-05,0.16694e-05, & - & 0.16839e-05,0.16772e-05,0.15421e-05,0.79514e-06 /) - kao(:, 1,12, 6) = (/ & - & 0.55214e-06,0.81079e-06,0.85249e-06,0.83175e-06,0.78783e-06, & - & 0.75281e-06,0.67567e-06,0.74075e-06,0.24910e-06 /) - kao(:, 2,12, 6) = (/ & - & 0.56029e-06,0.86391e-06,0.94032e-06,0.94758e-06,0.91883e-06, & - & 0.89834e-06,0.81189e-06,0.77883e-06,0.31399e-06 /) - kao(:, 3,12, 6) = (/ & - & 0.56504e-06,0.92066e-06,0.10308e-05,0.10667e-05,0.10655e-05, & - & 0.10460e-05,0.10067e-05,0.87150e-06,0.40815e-06 /) - kao(:, 4,12, 6) = (/ & - & 0.56721e-06,0.97985e-06,0.11224e-05,0.11915e-05,0.12197e-05, & - & 0.12063e-05,0.12014e-05,0.10950e-05,0.52630e-06 /) - kao(:, 5,12, 6) = (/ & - & 0.56742e-06,0.10399e-05,0.12195e-05,0.13255e-05,0.13771e-05, & - & 0.13876e-05,0.13807e-05,0.12724e-05,0.65264e-06 /) - kao(:, 1,13, 6) = (/ & - & 0.45223e-06,0.67006e-06,0.70582e-06,0.68873e-06,0.65038e-06, & - & 0.62084e-06,0.55442e-06,0.60996e-06,0.20428e-06 /) - kao(:, 2,13, 6) = (/ & - & 0.45880e-06,0.71490e-06,0.77859e-06,0.78376e-06,0.75834e-06, & - & 0.73987e-06,0.66959e-06,0.63711e-06,0.25817e-06 /) - kao(:, 3,13, 6) = (/ & - & 0.46276e-06,0.76231e-06,0.85214e-06,0.88098e-06,0.87867e-06, & - & 0.86188e-06,0.83033e-06,0.72166e-06,0.33548e-06 /) - kao(:, 4,13, 6) = (/ & - & 0.46442e-06,0.81043e-06,0.92714e-06,0.98329e-06,0.10050e-05, & - & 0.99247e-06,0.98770e-06,0.89931e-06,0.43220e-06 /) - kao(:, 5,13, 6) = (/ & - & 0.46456e-06,0.86048e-06,0.10065e-05,0.10920e-05,0.11333e-05, & - & 0.11411e-05,0.11342e-05,0.10473e-05,0.53527e-06 /) - kao(:, 1, 1, 7) = (/ & - & 0.12335e-04,0.15987e-04,0.18565e-04,0.20406e-04,0.21636e-04, & - & 0.22077e-04,0.21364e-04,0.19544e-04,0.14733e-04 /) - kao(:, 2, 1, 7) = (/ & - & 0.12351e-04,0.17014e-04,0.20216e-04,0.22480e-04,0.24098e-04, & - & 0.24791e-04,0.24379e-04,0.22600e-04,0.17292e-04 /) - kao(:, 3, 1, 7) = (/ & - & 0.12364e-04,0.18152e-04,0.21907e-04,0.24643e-04,0.26659e-04, & - & 0.27630e-04,0.27512e-04,0.25730e-04,0.20236e-04 /) - kao(:, 4, 1, 7) = (/ & - & 0.12365e-04,0.19320e-04,0.23679e-04,0.26885e-04,0.29225e-04, & - & 0.30430e-04,0.30461e-04,0.28726e-04,0.23208e-04 /) - kao(:, 5, 1, 7) = (/ & - & 0.12355e-04,0.20495e-04,0.25505e-04,0.29189e-04,0.31816e-04, & - & 0.33308e-04,0.33478e-04,0.31898e-04,0.26469e-04 /) - kao(:, 1, 2, 7) = (/ & - & 0.10350e-04,0.13753e-04,0.16101e-04,0.17726e-04,0.18733e-04, & - & 0.19034e-04,0.18319e-04,0.16594e-04,0.11961e-04 /) - kao(:, 2, 2, 7) = (/ & - & 0.10365e-04,0.14706e-04,0.17542e-04,0.19561e-04,0.20895e-04, & - & 0.21420e-04,0.21012e-04,0.19409e-04,0.14130e-04 /) - kao(:, 3, 2, 7) = (/ & - & 0.10364e-04,0.15733e-04,0.19081e-04,0.21505e-04,0.23181e-04, & - & 0.23958e-04,0.23844e-04,0.22334e-04,0.16750e-04 /) - kao(:, 4, 2, 7) = (/ & - & 0.10354e-04,0.16759e-04,0.20670e-04,0.23471e-04,0.25440e-04, & - & 0.26474e-04,0.26560e-04,0.25188e-04,0.19386e-04 /) - kao(:, 5, 2, 7) = (/ & - & 0.10329e-04,0.17823e-04,0.22292e-04,0.25488e-04,0.27703e-04, & - & 0.28957e-04,0.29205e-04,0.27936e-04,0.22026e-04 /) - kao(:, 1, 3, 7) = (/ & - & 0.86408e-05,0.11607e-04,0.13624e-04,0.14928e-04,0.15622e-04, & - & 0.15768e-04,0.15034e-04,0.13540e-04,0.91950e-05 /) - kao(:, 2, 3, 7) = (/ & - & 0.86478e-05,0.12463e-04,0.14889e-04,0.16508e-04,0.17482e-04, & - & 0.17819e-04,0.17439e-04,0.15994e-04,0.11026e-04 /) - kao(:, 3, 3, 7) = (/ & - & 0.86444e-05,0.13354e-04,0.16234e-04,0.18159e-04,0.19394e-04, & - & 0.19962e-04,0.19837e-04,0.18485e-04,0.13087e-04 /) - kao(:, 4, 3, 7) = (/ & - & 0.86273e-05,0.14262e-04,0.17647e-04,0.19921e-04,0.21457e-04, & - & 0.22290e-04,0.22338e-04,0.21203e-04,0.15397e-04 /) - kao(:, 5, 3, 7) = (/ & - & 0.85960e-05,0.15200e-04,0.19031e-04,0.21649e-04,0.23415e-04, & - & 0.24453e-04,0.24660e-04,0.23666e-04,0.17582e-04 /) - kao(:, 1, 4, 7) = (/ & - & 0.71803e-05,0.97101e-05,0.11373e-04,0.12321e-04,0.12789e-04, & - & 0.12803e-04,0.12062e-04,0.10784e-04,0.69624e-05 /) - kao(:, 2, 4, 7) = (/ & - & 0.71855e-05,0.10459e-04,0.12456e-04,0.13673e-04,0.14371e-04, & - & 0.14569e-04,0.14153e-04,0.12788e-04,0.84564e-05 /) - kao(:, 3, 4, 7) = (/ & - & 0.71795e-05,0.11229e-04,0.13608e-04,0.15091e-04,0.16013e-04, & - & 0.16409e-04,0.16232e-04,0.15085e-04,0.10120e-04 /) - kao(:, 4, 4, 7) = (/ & - & 0.71584e-05,0.12023e-04,0.14800e-04,0.16568e-04,0.17732e-04, & - & 0.18336e-04,0.18317e-04,0.17347e-04,0.11917e-04 /) - kao(:, 5, 4, 7) = (/ & - & 0.71267e-05,0.12845e-04,0.16058e-04,0.18162e-04,0.19580e-04, & - & 0.20399e-04,0.20543e-04,0.19767e-04,0.13958e-04 /) - kao(:, 1, 5, 7) = (/ & - & 0.59442e-05,0.80861e-05,0.93878e-05,0.10066e-04,0.10362e-04, & - & 0.10281e-04,0.95734e-05,0.84778e-05,0.52204e-05 /) - kao(:, 2, 5, 7) = (/ & - & 0.59498e-05,0.87281e-05,0.10301e-04,0.11210e-04,0.11702e-04, & - & 0.11782e-04,0.11315e-04,0.10068e-04,0.64302e-05 /) - kao(:, 3, 5, 7) = (/ & - & 0.59430e-05,0.93925e-05,0.11277e-04,0.12419e-04,0.13099e-04, & - & 0.13351e-04,0.13104e-04,0.12095e-04,0.77633e-05 /) - kao(:, 4, 5, 7) = (/ & - & 0.59217e-05,0.10078e-04,0.12288e-04,0.13686e-04,0.14573e-04, & - & 0.14994e-04,0.14908e-04,0.14023e-04,0.92337e-05 /) - kao(:, 5, 5, 7) = (/ & - & 0.58935e-05,0.10789e-04,0.13390e-04,0.15066e-04,0.16172e-04, & - & 0.16788e-04,0.16832e-04,0.16140e-04,0.10913e-04 /) - kao(:, 1, 6, 7) = (/ & - & 0.49077e-05,0.66672e-05,0.76412e-05,0.81181e-05,0.82831e-05, & - & 0.81137e-05,0.74381e-05,0.64600e-05,0.38540e-05 /) - kao(:, 2, 6, 7) = (/ & - & 0.49136e-05,0.72093e-05,0.84100e-05,0.90761e-05,0.94026e-05, & - & 0.93849e-05,0.88761e-05,0.77852e-05,0.48097e-05 /) - kao(:, 3, 6, 7) = (/ & - & 0.49088e-05,0.77732e-05,0.92304e-05,0.10089e-04,0.10581e-04, & - & 0.10707e-04,0.10412e-04,0.94217e-05,0.58741e-05 /) - kao(:, 4, 6, 7) = (/ & - & 0.48919e-05,0.83551e-05,0.10086e-04,0.11166e-04,0.11831e-04, & - & 0.12095e-04,0.11941e-04,0.11106e-04,0.70559e-05 /) - kao(:, 5, 6, 7) = (/ & - & 0.48652e-05,0.89412e-05,0.10983e-04,0.12289e-04,0.13118e-04, & - & 0.13538e-04,0.13477e-04,0.12811e-04,0.83378e-05 /) - kao(:, 1, 7, 7) = (/ & - & 0.40428e-05,0.54588e-05,0.61687e-05,0.64926e-05,0.65568e-05, & - & 0.63259e-05,0.56948e-05,0.49607e-05,0.28237e-05 /) - kao(:, 2, 7, 7) = (/ & - & 0.40484e-05,0.59019e-05,0.68052e-05,0.72891e-05,0.74881e-05, & - & 0.73951e-05,0.68736e-05,0.59771e-05,0.35700e-05 /) - kao(:, 3, 7, 7) = (/ & - & 0.40443e-05,0.63719e-05,0.74936e-05,0.81309e-05,0.84699e-05, & - & 0.84975e-05,0.81643e-05,0.72224e-05,0.43995e-05 /) - kao(:, 4, 7, 7) = (/ & - & 0.40304e-05,0.68636e-05,0.82100e-05,0.90329e-05,0.95142e-05, & - & 0.96616e-05,0.94576e-05,0.86932e-05,0.53385e-05 /) - kao(:, 5, 7, 7) = (/ & - & 0.40097e-05,0.73587e-05,0.89665e-05,0.99825e-05,0.10592e-04, & - & 0.10860e-04,0.10751e-04,0.10114e-04,0.63905e-05 /) - kao(:, 1, 8, 7) = (/ & - & 0.33247e-05,0.44437e-05,0.49476e-05,0.51623e-05,0.51521e-05, & - & 0.48927e-05,0.43130e-05,0.36508e-05,0.20433e-05 /) - kao(:, 2, 8, 7) = (/ & - & 0.33302e-05,0.48035e-05,0.54757e-05,0.58129e-05,0.59219e-05, & - & 0.57796e-05,0.52788e-05,0.45081e-05,0.26233e-05 /) - kao(:, 3, 8, 7) = (/ & - & 0.33275e-05,0.51944e-05,0.60436e-05,0.65119e-05,0.67329e-05, & - & 0.66992e-05,0.63336e-05,0.54989e-05,0.32839e-05 /) - kao(:, 4, 8, 7) = (/ & - & 0.33167e-05,0.56042e-05,0.66425e-05,0.72606e-05,0.75965e-05, & - & 0.76619e-05,0.74319e-05,0.66922e-05,0.40228e-05 /) - kao(:, 5, 8, 7) = (/ & - & 0.33014e-05,0.60212e-05,0.72748e-05,0.80496e-05,0.84940e-05, & - & 0.86532e-05,0.85181e-05,0.78992e-05,0.48672e-05 /) - kao(:, 1, 9, 7) = (/ & - & 0.27310e-05,0.35992e-05,0.39468e-05,0.40831e-05,0.40161e-05, & - & 0.37266e-05,0.32070e-05,0.27591e-05,0.14628e-05 /) - kao(:, 2, 9, 7) = (/ & - & 0.27361e-05,0.38904e-05,0.43781e-05,0.46075e-05,0.46475e-05, & - & 0.44710e-05,0.39993e-05,0.33922e-05,0.19203e-05 /) - kao(:, 3, 9, 7) = (/ & - & 0.27349e-05,0.42103e-05,0.48448e-05,0.51814e-05,0.53150e-05, & - & 0.52403e-05,0.48712e-05,0.41669e-05,0.24268e-05 /) - kao(:, 4, 9, 7) = (/ & - & 0.27270e-05,0.45504e-05,0.53414e-05,0.57970e-05,0.60255e-05, & - & 0.60359e-05,0.57915e-05,0.51016e-05,0.30070e-05 /) - kao(:, 5, 9, 7) = (/ & - & 0.27146e-05,0.48994e-05,0.58660e-05,0.64467e-05,0.67684e-05, & - & 0.68529e-05,0.66981e-05,0.61431e-05,0.36677e-05 /) - kao(:, 1,10, 7) = (/ & - & 0.22419e-05,0.29237e-05,0.31619e-05,0.32419e-05,0.31445e-05, & - & 0.28618e-05,0.23945e-05,0.20454e-05,0.10493e-05 /) - kao(:, 2,10, 7) = (/ & - & 0.22458e-05,0.31578e-05,0.35134e-05,0.36703e-05,0.36665e-05, & - & 0.34835e-05,0.30593e-05,0.25559e-05,0.14125e-05 /) - kao(:, 3,10, 7) = (/ & - & 0.22450e-05,0.34192e-05,0.38967e-05,0.41378e-05,0.42160e-05, & - & 0.41184e-05,0.37724e-05,0.31954e-05,0.18099e-05 /) - kao(:, 4,10, 7) = (/ & - & 0.22393e-05,0.36988e-05,0.43039e-05,0.46449e-05,0.48027e-05, & - & 0.47756e-05,0.45281e-05,0.39284e-05,0.22652e-05 /) - kao(:, 5,10, 7) = (/ & - & 0.22295e-05,0.39888e-05,0.47391e-05,0.51827e-05,0.54135e-05, & - & 0.54517e-05,0.52919e-05,0.47894e-05,0.27859e-05 /) - kao(:, 1,11, 7) = (/ & - & 0.18412e-05,0.24512e-05,0.26550e-05,0.27210e-05,0.26438e-05, & - & 0.24068e-05,0.20134e-05,0.16980e-05,0.87310e-06 /) - kao(:, 2,11, 7) = (/ & - & 0.18429e-05,0.26525e-05,0.29507e-05,0.30835e-05,0.30829e-05, & - & 0.29354e-05,0.25810e-05,0.21539e-05,0.11715e-05 /) - kao(:, 3,11, 7) = (/ & - & 0.18405e-05,0.28725e-05,0.32735e-05,0.34815e-05,0.35507e-05, & - & 0.34733e-05,0.31901e-05,0.26957e-05,0.15018e-05 /) - kao(:, 4,11, 7) = (/ & - & 0.18348e-05,0.31060e-05,0.36191e-05,0.39123e-05,0.40426e-05, & - & 0.40206e-05,0.38184e-05,0.33125e-05,0.18804e-05 /) - kao(:, 5,11, 7) = (/ & - & 0.18263e-05,0.33539e-05,0.39862e-05,0.43590e-05,0.45516e-05, & - & 0.45841e-05,0.44525e-05,0.40371e-05,0.23130e-05 /) - kao(:, 1,12, 7) = (/ & - & 0.15111e-05,0.20512e-05,0.22220e-05,0.22783e-05,0.22181e-05, & - & 0.20219e-05,0.16992e-05,0.14085e-05,0.72438e-06 /) - kao(:, 2,12, 7) = (/ & - & 0.15111e-05,0.22209e-05,0.24719e-05,0.25841e-05,0.25877e-05, & - & 0.24700e-05,0.21742e-05,0.18087e-05,0.96963e-06 /) - kao(:, 3,12, 7) = (/ & - & 0.15082e-05,0.24051e-05,0.27419e-05,0.29223e-05,0.29832e-05, & - & 0.29201e-05,0.26833e-05,0.22609e-05,0.12444e-05 /) - kao(:, 4,12, 7) = (/ & - & 0.15029e-05,0.26018e-05,0.30364e-05,0.32843e-05,0.33933e-05, & - & 0.33730e-05,0.32057e-05,0.27875e-05,0.15571e-05 /) - kao(:, 5,12, 7) = (/ & - & 0.14954e-05,0.28127e-05,0.33443e-05,0.36551e-05,0.38145e-05, & - & 0.38425e-05,0.37317e-05,0.33866e-05,0.19133e-05 /) - kao(:, 1,13, 7) = (/ & - & 0.12390e-05,0.17127e-05,0.18553e-05,0.19025e-05,0.18568e-05, & - & 0.16968e-05,0.14297e-05,0.11813e-05,0.59950e-06 /) - kao(:, 2,13, 7) = (/ & - & 0.12381e-05,0.18537e-05,0.20641e-05,0.21603e-05,0.21689e-05, & - & 0.20712e-05,0.18216e-05,0.15132e-05,0.80096e-06 /) - kao(:, 3,13, 7) = (/ & - & 0.12352e-05,0.20080e-05,0.22929e-05,0.24467e-05,0.24992e-05, & - & 0.24434e-05,0.22447e-05,0.18839e-05,0.10290e-05 /) - kao(:, 4,13, 7) = (/ & - & 0.12307e-05,0.21754e-05,0.25409e-05,0.27489e-05,0.28366e-05, & - & 0.28171e-05,0.26776e-05,0.23303e-05,0.12853e-05 /) - kao(:, 5,13, 7) = (/ & - & 0.12246e-05,0.23532e-05,0.27977e-05,0.30556e-05,0.31857e-05, & - & 0.32077e-05,0.31127e-05,0.28260e-05,0.15788e-05 /) - kao(:, 1, 1, 8) = (/ & - & 0.43566e-04,0.45402e-04,0.48829e-04,0.50194e-04,0.49978e-04, & - & 0.48581e-04,0.45902e-04,0.40781e-04,0.34170e-04 /) - kao(:, 2, 1, 8) = (/ & - & 0.43974e-04,0.47415e-04,0.52012e-04,0.54325e-04,0.54921e-04, & - & 0.53975e-04,0.51279e-04,0.46650e-04,0.40945e-04 /) - kao(:, 3, 1, 8) = (/ & - & 0.44333e-04,0.49545e-04,0.55453e-04,0.58909e-04,0.60094e-04, & - & 0.59376e-04,0.56940e-04,0.52843e-04,0.48266e-04 /) - kao(:, 4, 1, 8) = (/ & - & 0.44647e-04,0.51771e-04,0.59155e-04,0.63607e-04,0.65306e-04, & - & 0.64935e-04,0.62961e-04,0.59262e-04,0.55812e-04 /) - kao(:, 5, 1, 8) = (/ & - & 0.44938e-04,0.54202e-04,0.63063e-04,0.68229e-04,0.70615e-04, & - & 0.70683e-04,0.69315e-04,0.65992e-04,0.63855e-04 /) - kao(:, 1, 2, 8) = (/ & - & 0.37849e-04,0.40606e-04,0.43836e-04,0.45171e-04,0.45318e-04, & - & 0.44251e-04,0.41853e-04,0.37247e-04,0.29303e-04 /) - kao(:, 2, 2, 8) = (/ & - & 0.38202e-04,0.42545e-04,0.46901e-04,0.49156e-04,0.50002e-04, & - & 0.49256e-04,0.46845e-04,0.42755e-04,0.35187e-04 /) - kao(:, 3, 2, 8) = (/ & - & 0.38525e-04,0.44570e-04,0.50219e-04,0.53465e-04,0.54833e-04, & - & 0.54348e-04,0.52176e-04,0.48578e-04,0.41697e-04 /) - kao(:, 4, 2, 8) = (/ & - & 0.38828e-04,0.46787e-04,0.53767e-04,0.57818e-04,0.59705e-04, & - & 0.59611e-04,0.57787e-04,0.54523e-04,0.48350e-04 /) - kao(:, 5, 2, 8) = (/ & - & 0.39076e-04,0.49105e-04,0.57380e-04,0.62144e-04,0.64743e-04, & - & 0.65049e-04,0.63700e-04,0.60747e-04,0.55348e-04 /) - kao(:, 1, 3, 8) = (/ & - & 0.32392e-04,0.35504e-04,0.38232e-04,0.39483e-04,0.39809e-04, & - & 0.39031e-04,0.36901e-04,0.32585e-04,0.23735e-04 /) - kao(:, 2, 3, 8) = (/ & - & 0.32715e-04,0.37303e-04,0.41039e-04,0.43202e-04,0.44102e-04, & - & 0.43582e-04,0.41484e-04,0.37593e-04,0.28689e-04 /) - kao(:, 3, 3, 8) = (/ & - & 0.33011e-04,0.39216e-04,0.44127e-04,0.47180e-04,0.48515e-04, & - & 0.48269e-04,0.46352e-04,0.42866e-04,0.34062e-04 /) - kao(:, 4, 3, 8) = (/ & - & 0.33271e-04,0.41283e-04,0.47451e-04,0.51158e-04,0.53031e-04, & - & 0.53191e-04,0.51599e-04,0.48489e-04,0.40122e-04 /) - kao(:, 5, 3, 8) = (/ & - & 0.33495e-04,0.43439e-04,0.50779e-04,0.55143e-04,0.57687e-04, & - & 0.58208e-04,0.56935e-04,0.54138e-04,0.46109e-04 /) - kao(:, 1, 4, 8) = (/ & - & 0.27415e-04,0.30543e-04,0.32764e-04,0.33940e-04,0.34340e-04, & - & 0.33775e-04,0.31812e-04,0.27722e-04,0.18770e-04 /) - kao(:, 2, 4, 8) = (/ & - & 0.27715e-04,0.32169e-04,0.35304e-04,0.37332e-04,0.38224e-04, & - & 0.37868e-04,0.35986e-04,0.32265e-04,0.22928e-04 /) - kao(:, 3, 4, 8) = (/ & - & 0.27982e-04,0.33932e-04,0.38141e-04,0.40925e-04,0.42223e-04, & - & 0.42122e-04,0.40409e-04,0.37026e-04,0.27474e-04 /) - kao(:, 4, 4, 8) = (/ & - & 0.28215e-04,0.35808e-04,0.41184e-04,0.44532e-04,0.46320e-04, & - & 0.46554e-04,0.45091e-04,0.41998e-04,0.32462e-04 /) - kao(:, 5, 4, 8) = (/ & - & 0.28437e-04,0.37809e-04,0.44202e-04,0.48199e-04,0.50577e-04, & - & 0.51211e-04,0.50186e-04,0.47427e-04,0.38088e-04 /) - kao(:, 1, 5, 8) = (/ & - & 0.23010e-04,0.25978e-04,0.27838e-04,0.28899e-04,0.29286e-04, & - & 0.28721e-04,0.26945e-04,0.23196e-04,0.14687e-04 /) - kao(:, 2, 5, 8) = (/ & - & 0.23283e-04,0.27434e-04,0.30115e-04,0.31931e-04,0.32743e-04, & - & 0.32398e-04,0.30674e-04,0.27269e-04,0.18140e-04 /) - kao(:, 3, 5, 8) = (/ & - & 0.23522e-04,0.29002e-04,0.32686e-04,0.35125e-04,0.36325e-04, & - & 0.36232e-04,0.34626e-04,0.31511e-04,0.21987e-04 /) - kao(:, 4, 5, 8) = (/ & - & 0.23738e-04,0.30687e-04,0.35404e-04,0.38366e-04,0.40013e-04, & - & 0.40198e-04,0.38830e-04,0.35973e-04,0.26236e-04 /) - kao(:, 5, 5, 8) = (/ & - & 0.23936e-04,0.32534e-04,0.38093e-04,0.41748e-04,0.43875e-04, & - & 0.44440e-04,0.43519e-04,0.40954e-04,0.31086e-04 /) - kao(:, 1, 6, 8) = (/ & - & 0.19172e-04,0.21867e-04,0.23409e-04,0.24321e-04,0.24529e-04, & - & 0.23927e-04,0.22333e-04,0.18955e-04,0.11218e-04 /) - kao(:, 2, 6, 8) = (/ & - & 0.19419e-04,0.23150e-04,0.25412e-04,0.26974e-04,0.27574e-04, & - & 0.27129e-04,0.25625e-04,0.22590e-04,0.14082e-04 /) - kao(:, 3, 6, 8) = (/ & - & 0.19636e-04,0.24533e-04,0.27708e-04,0.29785e-04,0.30733e-04, & - & 0.30517e-04,0.29114e-04,0.26329e-04,0.17293e-04 /) - kao(:, 4, 6, 8) = (/ & - & 0.19836e-04,0.26054e-04,0.30093e-04,0.32660e-04,0.34002e-04, & - & 0.34049e-04,0.32819e-04,0.30271e-04,0.20869e-04 /) - kao(:, 5, 6, 8) = (/ & - & 0.20002e-04,0.27734e-04,0.32461e-04,0.35638e-04,0.37355e-04, & - & 0.37686e-04,0.36788e-04,0.34519e-04,0.24769e-04 /) - kao(:, 1, 7, 8) = (/ & - & 0.15886e-04,0.18280e-04,0.19557e-04,0.20235e-04,0.20297e-04, & - & 0.19642e-04,0.18202e-04,0.15130e-04,0.84335e-05 /) - kao(:, 2, 7, 8) = (/ & - & 0.16105e-04,0.19408e-04,0.21322e-04,0.22532e-04,0.22888e-04, & - & 0.22409e-04,0.21064e-04,0.18396e-04,0.10766e-04 /) - kao(:, 3, 7, 8) = (/ & - & 0.16304e-04,0.20629e-04,0.23329e-04,0.24999e-04,0.25612e-04, & - & 0.25350e-04,0.24115e-04,0.21685e-04,0.13408e-04 /) - kao(:, 4, 7, 8) = (/ & - & 0.16482e-04,0.21985e-04,0.25409e-04,0.27506e-04,0.28475e-04, & - & 0.28447e-04,0.27347e-04,0.25116e-04,0.16377e-04 /) - kao(:, 5, 7, 8) = (/ & - & 0.16621e-04,0.23483e-04,0.27507e-04,0.30111e-04,0.31449e-04, & - & 0.31651e-04,0.30823e-04,0.28853e-04,0.19647e-04 /) - kao(:, 1, 8, 8) = (/ & - & 0.13104e-04,0.15202e-04,0.16227e-04,0.16675e-04,0.16618e-04, & - & 0.15949e-04,0.14642e-04,0.11862e-04,0.62741e-05 /) - kao(:, 2, 8, 8) = (/ & - & 0.13296e-04,0.16183e-04,0.17762e-04,0.18645e-04,0.18799e-04, & - & 0.18302e-04,0.17108e-04,0.14749e-04,0.81431e-05 /) - kao(:, 3, 8, 8) = (/ & - & 0.13475e-04,0.17250e-04,0.19501e-04,0.20748e-04,0.21144e-04, & - & 0.20825e-04,0.19726e-04,0.17623e-04,0.10291e-04 /) - kao(:, 4, 8, 8) = (/ & - & 0.13631e-04,0.18462e-04,0.21319e-04,0.22916e-04,0.23622e-04, & - & 0.23509e-04,0.22509e-04,0.20604e-04,0.12727e-04 /) - kao(:, 5, 8, 8) = (/ & - & 0.13752e-04,0.19773e-04,0.23162e-04,0.25182e-04,0.26210e-04, & - & 0.26298e-04,0.25526e-04,0.23837e-04,0.15433e-04 /) - kao(:, 1, 9, 8) = (/ & - & 0.10771e-04,0.12580e-04,0.13349e-04,0.13617e-04,0.13459e-04, & - & 0.12816e-04,0.11635e-04,0.90636e-05,0.45849e-05 /) - kao(:, 2, 9, 8) = (/ & - & 0.10937e-04,0.13431e-04,0.14667e-04,0.15270e-04,0.15289e-04, & - & 0.14786e-04,0.13720e-04,0.11614e-04,0.60707e-05 /) - kao(:, 3, 9, 8) = (/ & - & 0.11095e-04,0.14367e-04,0.16153e-04,0.17055e-04,0.17287e-04, & - & 0.16925e-04,0.15948e-04,0.14098e-04,0.78037e-05 /) - kao(:, 4, 9, 8) = (/ & - & 0.11230e-04,0.15436e-04,0.17715e-04,0.18921e-04,0.19404e-04, & - & 0.19208e-04,0.18318e-04,0.16668e-04,0.97810e-05 /) - kao(:, 5, 9, 8) = (/ & - & 0.11337e-04,0.16572e-04,0.19310e-04,0.20882e-04,0.21623e-04, & - & 0.21621e-04,0.20902e-04,0.19439e-04,0.11994e-04 /) - kao(:, 1,10, 8) = (/ & - & 0.88397e-05,0.10407e-04,0.10992e-04,0.11130e-04,0.10914e-04, & - & 0.10319e-04,0.92746e-05,0.69230e-05,0.33878e-05 /) - kao(:, 2,10, 8) = (/ & - & 0.89820e-05,0.11148e-04,0.12114e-04,0.12509e-04,0.12455e-04, & - & 0.11973e-04,0.11026e-04,0.91303e-05,0.45777e-05 /) - kao(:, 3,10, 8) = (/ & - & 0.91201e-05,0.11975e-04,0.13369e-04,0.14032e-04,0.14150e-04, & - & 0.13774e-04,0.12899e-04,0.11289e-04,0.59718e-05 /) - kao(:, 4,10, 8) = (/ & - & 0.92338e-05,0.12910e-04,0.14708e-04,0.15633e-04,0.15947e-04, & - & 0.15711e-04,0.14916e-04,0.13483e-04,0.75778e-05 /) - kao(:, 5,10, 8) = (/ & - & 0.93270e-05,0.13899e-04,0.16089e-04,0.17313e-04,0.17838e-04, & - & 0.17779e-04,0.17126e-04,0.15852e-04,0.93849e-05 /) - kao(:, 1,11, 8) = (/ & - & 0.72957e-05,0.88518e-05,0.94180e-05,0.95477e-05,0.93627e-05, & - & 0.88681e-05,0.79846e-05,0.60665e-05,0.28938e-05 /) - kao(:, 2,11, 8) = (/ & - & 0.74164e-05,0.95244e-05,0.10413e-04,0.10760e-04,0.10725e-04, & - & 0.10300e-04,0.94914e-05,0.79265e-05,0.39145e-05 /) - kao(:, 3,11, 8) = (/ & - & 0.75267e-05,0.10290e-04,0.11516e-04,0.12091e-04,0.12186e-04, & - & 0.11866e-04,0.11116e-04,0.97843e-05,0.51152e-05 /) - kao(:, 4,11, 8) = (/ & - & 0.76165e-05,0.11127e-04,0.12682e-04,0.13483e-04,0.13746e-04, & - & 0.13546e-04,0.12885e-04,0.11704e-04,0.64876e-05 /) - kao(:, 5,11, 8) = (/ & - & 0.76866e-05,0.11972e-04,0.13896e-04,0.14938e-04,0.15405e-04, & - & 0.15374e-04,0.14838e-04,0.13790e-04,0.80319e-05 /) - kao(:, 1,12, 8) = (/ & - & 0.60137e-05,0.75193e-05,0.80348e-05,0.81538e-05,0.80064e-05, & - & 0.75822e-05,0.68354e-05,0.52502e-05,0.24674e-05 /) - kao(:, 2,12, 8) = (/ & - & 0.61150e-05,0.81325e-05,0.89089e-05,0.92208e-05,0.91831e-05, & - & 0.88171e-05,0.81283e-05,0.68396e-05,0.33429e-05 /) - kao(:, 3,12, 8) = (/ & - & 0.62020e-05,0.88113e-05,0.98818e-05,0.10369e-04,0.10440e-04, & - & 0.10164e-04,0.95355e-05,0.84372e-05,0.43683e-05 /) - kao(:, 4,12, 8) = (/ & - & 0.62729e-05,0.95382e-05,0.10890e-04,0.11569e-04,0.11793e-04, & - & 0.11630e-04,0.11082e-04,0.10108e-04,0.55358e-05 /) - kao(:, 5,12, 8) = (/ & - & 0.63199e-05,0.10271e-04,0.11934e-04,0.12838e-04,0.13254e-04, & - & 0.13231e-04,0.12796e-04,0.11934e-04,0.68492e-05 /) - kao(:, 1,13, 8) = (/ & - & 0.49517e-05,0.63774e-05,0.68261e-05,0.69411e-05,0.68151e-05, & - & 0.64513e-05,0.58220e-05,0.45056e-05,0.20980e-05 /) - kao(:, 2,13, 8) = (/ & - & 0.50331e-05,0.69207e-05,0.75990e-05,0.78660e-05,0.78231e-05, & - & 0.75119e-05,0.69333e-05,0.58688e-05,0.28426e-05 /) - kao(:, 3,13, 8) = (/ & - & 0.51036e-05,0.75155e-05,0.84393e-05,0.88490e-05,0.89047e-05, & - & 0.86720e-05,0.81449e-05,0.72410e-05,0.37114e-05 /) - kao(:, 4,13, 8) = (/ & - & 0.51548e-05,0.81445e-05,0.93105e-05,0.98793e-05,0.10078e-04, & - & 0.99535e-05,0.94951e-05,0.86973e-05,0.47002e-05 /) - kao(:, 5,13, 8) = (/ & - & 0.51867e-05,0.87857e-05,0.10211e-04,0.10992e-04,0.11352e-04, & - & 0.11351e-04,0.10990e-04,0.10277e-04,0.58153e-05 /) - kao(:, 1, 1, 9) = (/ & - & 0.18292e-03,0.16357e-03,0.15341e-03,0.14585e-03,0.13797e-03, & - & 0.12826e-03,0.11477e-03,0.99322e-04,0.99311e-04 /) - kao(:, 2, 1, 9) = (/ & - & 0.18277e-03,0.16502e-03,0.15805e-03,0.15290e-03,0.14696e-03, & - & 0.13850e-03,0.12664e-03,0.11419e-03,0.11887e-03 /) - kao(:, 3, 1, 9) = (/ & - & 0.18261e-03,0.16694e-03,0.16322e-03,0.16061e-03,0.15658e-03, & - & 0.14997e-03,0.14010e-03,0.13154e-03,0.14123e-03 /) - kao(:, 4, 1, 9) = (/ & - & 0.18244e-03,0.16952e-03,0.16897e-03,0.16909e-03,0.16740e-03, & - & 0.16268e-03,0.15556e-03,0.15163e-03,0.16610e-03 /) - kao(:, 5, 1, 9) = (/ & - & 0.18218e-03,0.17247e-03,0.17521e-03,0.17844e-03,0.17911e-03, & - & 0.17696e-03,0.17241e-03,0.17370e-03,0.19290e-03 /) - kao(:, 1, 2, 9) = (/ & - & 0.17473e-03,0.15735e-03,0.14910e-03,0.14227e-03,0.13471e-03, & - & 0.12515e-03,0.11200e-03,0.94986e-04,0.89520e-04 /) - kao(:, 2, 2, 9) = (/ & - & 0.17467e-03,0.15907e-03,0.15401e-03,0.14953e-03,0.14402e-03, & - & 0.13581e-03,0.12401e-03,0.10893e-03,0.10811e-03 /) - kao(:, 3, 2, 9) = (/ & - & 0.17463e-03,0.16142e-03,0.15942e-03,0.15773e-03,0.15417e-03, & - & 0.14769e-03,0.13747e-03,0.12528e-03,0.12924e-03 /) - kao(:, 4, 2, 9) = (/ & - & 0.17449e-03,0.16426e-03,0.16549e-03,0.16671e-03,0.16541e-03, & - & 0.16085e-03,0.15263e-03,0.14389e-03,0.15270e-03 /) - kao(:, 5, 2, 9) = (/ & - & 0.17439e-03,0.16753e-03,0.17238e-03,0.17658e-03,0.17759e-03, & - & 0.17537e-03,0.16910e-03,0.16442e-03,0.17796e-03 /) - kao(:, 1, 3, 9) = (/ & - & 0.16429e-03,0.14895e-03,0.14201e-03,0.13557e-03,0.12797e-03, & - & 0.11829e-03,0.10548e-03,0.88188e-04,0.77280e-04 /) - kao(:, 2, 3, 9) = (/ & - & 0.16436e-03,0.15092e-03,0.14708e-03,0.14277e-03,0.13731e-03, & - & 0.12899e-03,0.11719e-03,0.10108e-03,0.94071e-04 /) - kao(:, 3, 3, 9) = (/ & - & 0.16438e-03,0.15344e-03,0.15259e-03,0.15105e-03,0.14760e-03, & - & 0.14078e-03,0.13037e-03,0.11602e-03,0.11331e-03 /) - kao(:, 4, 3, 9) = (/ & - & 0.16440e-03,0.15651e-03,0.15877e-03,0.16021e-03,0.15883e-03, & - & 0.15394e-03,0.14519e-03,0.13303e-03,0.13463e-03 /) - kao(:, 5, 3, 9) = (/ & - & 0.16444e-03,0.16001e-03,0.16595e-03,0.17023e-03,0.17105e-03, & - & 0.16855e-03,0.16116e-03,0.15159e-03,0.15764e-03 /) - kao(:, 1, 4, 9) = (/ & - & 0.15195e-03,0.13883e-03,0.13294e-03,0.12699e-03,0.11928e-03, & - & 0.10948e-03,0.97355e-04,0.80985e-04,0.65303e-04 /) - kao(:, 2, 4, 9) = (/ & - & 0.15212e-03,0.14097e-03,0.13802e-03,0.13404e-03,0.12836e-03, & - & 0.11996e-03,0.10855e-03,0.92884e-04,0.80285e-04 /) - kao(:, 3, 4, 9) = (/ & - & 0.15229e-03,0.14364e-03,0.14356e-03,0.14222e-03,0.13844e-03, & - & 0.13147e-03,0.12124e-03,0.10661e-03,0.97473e-04 /) - kao(:, 4, 4, 9) = (/ & - & 0.15247e-03,0.14694e-03,0.14987e-03,0.15132e-03,0.14947e-03, & - & 0.14428e-03,0.13562e-03,0.12218e-03,0.11647e-03 /) - kao(:, 5, 4, 9) = (/ & - & 0.15268e-03,0.15064e-03,0.15719e-03,0.16126e-03,0.16162e-03, & - & 0.15869e-03,0.15101e-03,0.13904e-03,0.13733e-03 /) - kao(:, 1, 5, 9) = (/ & - & 0.13846e-03,0.12761e-03,0.12265e-03,0.11713e-03,0.10945e-03, & - & 0.10011e-03,0.88713e-04,0.73647e-04,0.54834e-04 /) - kao(:, 2, 5, 9) = (/ & - & 0.13872e-03,0.12987e-03,0.12766e-03,0.12392e-03,0.11814e-03, & - & 0.11013e-03,0.99375e-04,0.84759e-04,0.68007e-04 /) - kao(:, 3, 5, 9) = (/ & - & 0.13899e-03,0.13272e-03,0.13319e-03,0.13187e-03,0.12795e-03, & - & 0.12108e-03,0.11145e-03,0.97499e-04,0.83096e-04 /) - kao(:, 4, 5, 9) = (/ & - & 0.13930e-03,0.13617e-03,0.13955e-03,0.14081e-03,0.13862e-03, & - & 0.13340e-03,0.12522e-03,0.11183e-03,0.99891e-04 /) - kao(:, 5, 5, 9) = (/ & - & 0.13961e-03,0.13997e-03,0.14692e-03,0.15049e-03,0.15045e-03, & - & 0.14736e-03,0.14024e-03,0.12733e-03,0.11865e-03 /) - kao(:, 1, 6, 9) = (/ & - & 0.12419e-03,0.11551e-03,0.11132e-03,0.10604e-03,0.98912e-04, & - & 0.90174e-04,0.79553e-04,0.65781e-04,0.45228e-04 /) - kao(:, 2, 6, 9) = (/ & - & 0.12454e-03,0.11786e-03,0.11619e-03,0.11259e-03,0.10704e-03, & - & 0.99552e-04,0.89546e-04,0.76061e-04,0.56748e-04 /) - kao(:, 3, 6, 9) = (/ & - & 0.12490e-03,0.12081e-03,0.12161e-03,0.12024e-03,0.11632e-03, & - & 0.10988e-03,0.10081e-03,0.87950e-04,0.69901e-04 /) - kao(:, 4, 6, 9) = (/ & - & 0.12528e-03,0.12425e-03,0.12796e-03,0.12887e-03,0.12649e-03, & - & 0.12150e-03,0.11381e-03,0.10130e-03,0.84575e-04 /) - kao(:, 5, 6, 9) = (/ & - & 0.12568e-03,0.12811e-03,0.13519e-03,0.13816e-03,0.13780e-03, & - & 0.13476e-03,0.12819e-03,0.11553e-03,0.10091e-03 /) - kao(:, 1, 7, 9) = (/ & - & 0.10978e-03,0.10308e-03,0.99508e-04,0.94571e-04,0.88120e-04, & - & 0.80226e-04,0.70492e-04,0.57993e-04,0.36699e-04 /) - kao(:, 2, 7, 9) = (/ & - & 0.11018e-03,0.10544e-03,0.10415e-03,0.10080e-03,0.95769e-04, & - & 0.88865e-04,0.79698e-04,0.67450e-04,0.46683e-04 /) - kao(:, 3, 7, 9) = (/ & - & 0.11058e-03,0.10837e-03,0.10936e-03,0.10807e-03,0.10453e-03, & - & 0.98497e-04,0.90104e-04,0.78443e-04,0.58212e-04 /) - kao(:, 4, 7, 9) = (/ & - & 0.11104e-03,0.11179e-03,0.11551e-03,0.11629e-03,0.11409e-03, & - & 0.10934e-03,0.10217e-03,0.90913e-04,0.71131e-04 /) - kao(:, 5, 7, 9) = (/ & - & 0.11149e-03,0.11560e-03,0.12257e-03,0.12521e-03,0.12472e-03, & - & 0.12180e-03,0.11572e-03,0.10421e-03,0.85542e-04 /) - kao(:, 1, 8, 9) = (/ & - & 0.95759e-04,0.90773e-04,0.87806e-04,0.83290e-04,0.77515e-04, & - & 0.70528e-04,0.61795e-04,0.50465e-04,0.29380e-04 /) - kao(:, 2, 8, 9) = (/ & - & 0.96189e-04,0.93120e-04,0.92132e-04,0.89103e-04,0.84653e-04, & - & 0.78456e-04,0.70159e-04,0.59177e-04,0.37867e-04 /) - kao(:, 3, 8, 9) = (/ & - & 0.96665e-04,0.96018e-04,0.97008e-04,0.95975e-04,0.92760e-04, & - & 0.87379e-04,0.79687e-04,0.69248e-04,0.47855e-04 /) - kao(:, 4, 8, 9) = (/ & - & 0.97168e-04,0.99322e-04,0.10289e-03,0.10373e-03,0.10169e-03, & - & 0.97397e-04,0.90796e-04,0.80805e-04,0.59240e-04 /) - kao(:, 5, 8, 9) = (/ & - & 0.97641e-04,0.10302e-03,0.10967e-03,0.11218e-03,0.11166e-03, & - & 0.10896e-03,0.10343e-03,0.93210e-04,0.71998e-04 /) - kao(:, 1, 9, 9) = (/ & - & 0.82482e-04,0.78941e-04,0.76398e-04,0.72429e-04,0.67369e-04, & - & 0.61188e-04,0.53486e-04,0.43219e-04,0.23144e-04 /) - kao(:, 2, 9, 9) = (/ & - & 0.82941e-04,0.81194e-04,0.80391e-04,0.77783e-04,0.73924e-04, & - & 0.68383e-04,0.61055e-04,0.51145e-04,0.30235e-04 /) - kao(:, 3, 9, 9) = (/ & - & 0.83462e-04,0.83998e-04,0.84977e-04,0.84161e-04,0.81323e-04, & - & 0.76538e-04,0.69739e-04,0.60350e-04,0.38714e-04 /) - kao(:, 4, 9, 9) = (/ & - & 0.83976e-04,0.87153e-04,0.90583e-04,0.91413e-04,0.89589e-04, & - & 0.85741e-04,0.79900e-04,0.70947e-04,0.48553e-04 /) - kao(:, 5, 9, 9) = (/ & - & 0.84461e-04,0.90734e-04,0.96938e-04,0.99296e-04,0.98864e-04, & - & 0.96399e-04,0.91511e-04,0.82490e-04,0.59777e-04 /) - kao(:, 1,10, 9) = (/ & - & 0.70371e-04,0.68110e-04,0.65986e-04,0.62636e-04,0.58303e-04, & - & 0.52961e-04,0.46122e-04,0.37036e-04,0.18341e-04 /) - kao(:, 2,10, 9) = (/ & - & 0.70853e-04,0.70288e-04,0.69669e-04,0.67543e-04,0.64271e-04, & - & 0.59496e-04,0.53052e-04,0.44224e-04,0.24306e-04 /) - kao(:, 3,10, 9) = (/ & - & 0.71373e-04,0.72956e-04,0.74034e-04,0.73423e-04,0.71076e-04, & - & 0.66934e-04,0.61048e-04,0.52623e-04,0.31537e-04 /) - kao(:, 4,10, 9) = (/ & - & 0.71862e-04,0.75946e-04,0.79283e-04,0.80149e-04,0.78712e-04, & - & 0.75412e-04,0.70399e-04,0.62323e-04,0.40041e-04 /) - kao(:, 5,10, 9) = (/ & - & 0.72376e-04,0.79405e-04,0.85220e-04,0.87544e-04,0.87332e-04, & - & 0.85268e-04,0.81104e-04,0.73085e-04,0.49845e-04 /) - kao(:, 1,11, 9) = (/ & - & 0.59776e-04,0.59155e-04,0.57996e-04,0.55642e-04,0.52323e-04, & - & 0.47930e-04,0.42036e-04,0.34179e-04,0.16514e-04 /) - kao(:, 2,11, 9) = (/ & - & 0.60275e-04,0.61436e-04,0.61654e-04,0.60490e-04,0.58055e-04, & - & 0.54242e-04,0.48750e-04,0.41144e-04,0.21987e-04 /) - kao(:, 3,11, 9) = (/ & - & 0.60746e-04,0.64075e-04,0.66078e-04,0.66233e-04,0.64629e-04, & - & 0.61455e-04,0.56611e-04,0.49290e-04,0.28648e-04 /) - kao(:, 4,11, 9) = (/ & - & 0.61244e-04,0.67066e-04,0.71217e-04,0.72696e-04,0.72050e-04, & - & 0.69816e-04,0.65797e-04,0.58590e-04,0.36515e-04 /) - kao(:, 5,11, 9) = (/ & - & 0.61769e-04,0.70693e-04,0.76979e-04,0.79872e-04,0.80561e-04, & - & 0.79478e-04,0.76089e-04,0.68898e-04,0.45628e-04 /) - kao(:, 1,12, 9) = (/ & - & 0.50518e-04,0.51187e-04,0.50822e-04,0.49284e-04,0.46769e-04, & - & 0.43097e-04,0.38110e-04,0.31379e-04,0.14783e-04 /) - kao(:, 2,12, 9) = (/ & - & 0.50964e-04,0.53463e-04,0.54457e-04,0.54020e-04,0.52266e-04, & - & 0.49174e-04,0.44595e-04,0.38042e-04,0.19796e-04 /) - kao(:, 3,12, 9) = (/ & - & 0.51421e-04,0.56033e-04,0.58762e-04,0.59481e-04,0.58578e-04, & - & 0.56207e-04,0.52260e-04,0.45820e-04,0.25919e-04 /) - kao(:, 4,12, 9) = (/ & - & 0.51920e-04,0.59121e-04,0.63731e-04,0.65674e-04,0.65806e-04, & - & 0.64464e-04,0.61120e-04,0.54677e-04,0.33164e-04 /) - kao(:, 5,12, 9) = (/ & - & 0.52396e-04,0.62780e-04,0.69274e-04,0.72637e-04,0.74145e-04, & - & 0.73831e-04,0.71039e-04,0.64514e-04,0.41597e-04 /) - kao(:, 1,13, 9) = (/ & - & 0.42486e-04,0.44174e-04,0.44463e-04,0.43555e-04,0.41568e-04, & - & 0.38563e-04,0.34384e-04,0.28625e-04,0.13171e-04 /) - kao(:, 2,13, 9) = (/ & - & 0.42904e-04,0.46376e-04,0.47979e-04,0.48065e-04,0.46867e-04, & - & 0.44391e-04,0.40615e-04,0.34938e-04,0.17746e-04 /) - kao(:, 3,13, 9) = (/ & - & 0.43349e-04,0.48965e-04,0.52137e-04,0.53262e-04,0.52962e-04, & - & 0.51246e-04,0.47996e-04,0.42282e-04,0.23342e-04 /) - kao(:, 4,13, 9) = (/ & - & 0.43790e-04,0.52076e-04,0.56889e-04,0.59186e-04,0.60002e-04, & - & 0.59254e-04,0.56460e-04,0.50705e-04,0.29999e-04 /) - kao(:, 5,13, 9) = (/ & - & 0.44254e-04,0.55629e-04,0.62209e-04,0.65993e-04,0.68105e-04, & - & 0.68270e-04,0.65941e-04,0.60145e-04,0.37728e-04 /) - kao(:, 1, 1,10) = (/ & - & 0.42864e-03,0.37538e-03,0.32907e-03,0.29701e-03,0.26399e-03, & - & 0.23587e-03,0.21519e-03,0.20736e-03,0.23690e-03 /) - kao(:, 2, 1,10) = (/ & - & 0.42770e-03,0.37463e-03,0.33468e-03,0.30443e-03,0.27635e-03, & - & 0.25424e-03,0.24068e-03,0.24289e-03,0.27885e-03 /) - kao(:, 3, 1,10) = (/ & - & 0.42742e-03,0.37444e-03,0.34109e-03,0.31378e-03,0.29265e-03, & - & 0.27618e-03,0.26729e-03,0.27967e-03,0.32090e-03 /) - kao(:, 4, 1,10) = (/ & - & 0.42756e-03,0.37461e-03,0.34714e-03,0.32647e-03,0.30721e-03, & - & 0.29888e-03,0.29503e-03,0.31853e-03,0.36629e-03 /) - kao(:, 5, 1,10) = (/ & - & 0.42817e-03,0.37676e-03,0.35506e-03,0.34027e-03,0.32593e-03, & - & 0.32117e-03,0.33159e-03,0.36650e-03,0.42307e-03 /) - kao(:, 1, 2,10) = (/ & - & 0.44647e-03,0.39099e-03,0.34399e-03,0.31315e-03,0.27681e-03, & - & 0.24757e-03,0.21977e-03,0.20260e-03,0.22465e-03 /) - kao(:, 2, 2,10) = (/ & - & 0.44675e-03,0.39126e-03,0.35094e-03,0.32069e-03,0.29009e-03, & - & 0.26696e-03,0.24338e-03,0.23431e-03,0.26448e-03 /) - kao(:, 3, 2,10) = (/ & - & 0.44728e-03,0.39176e-03,0.35848e-03,0.33002e-03,0.30752e-03, & - & 0.28763e-03,0.26835e-03,0.26923e-03,0.30805e-03 /) - kao(:, 4, 2,10) = (/ & - & 0.44805e-03,0.39321e-03,0.36547e-03,0.34473e-03,0.32431e-03, & - & 0.30833e-03,0.29659e-03,0.31021e-03,0.35789e-03 /) - kao(:, 5, 2,10) = (/ & - & 0.44833e-03,0.39641e-03,0.37373e-03,0.35955e-03,0.34286e-03, & - & 0.33059e-03,0.33253e-03,0.36056e-03,0.41785e-03 /) - kao(:, 1, 3,10) = (/ & - & 0.45575e-03,0.39903e-03,0.35239e-03,0.32061e-03,0.28610e-03, & - & 0.25358e-03,0.22160e-03,0.19044e-03,0.19754e-03 /) - kao(:, 2, 3,10) = (/ & - & 0.45658e-03,0.39983e-03,0.35980e-03,0.32984e-03,0.29898e-03, & - & 0.27505e-03,0.24328e-03,0.21905e-03,0.23515e-03 /) - kao(:, 3, 3,10) = (/ & - & 0.45737e-03,0.40126e-03,0.36866e-03,0.34025e-03,0.31808e-03, & - & 0.29648e-03,0.26565e-03,0.25100e-03,0.27824e-03 /) - kao(:, 4, 3,10) = (/ & - & 0.45822e-03,0.40344e-03,0.37727e-03,0.35639e-03,0.33753e-03, & - & 0.31544e-03,0.29107e-03,0.29011e-03,0.33040e-03 /) - kao(:, 5, 3,10) = (/ & - & 0.45803e-03,0.40724e-03,0.38685e-03,0.37303e-03,0.35804e-03, & - & 0.33477e-03,0.32542e-03,0.34063e-03,0.39188e-03 /) - kao(:, 1, 4,10) = (/ & - & 0.45696e-03,0.40009e-03,0.35533e-03,0.32134e-03,0.28977e-03, & - & 0.25642e-03,0.22005e-03,0.17825e-03,0.16960e-03 /) - kao(:, 2, 4,10) = (/ & - & 0.45799e-03,0.40164e-03,0.36303e-03,0.33235e-03,0.30343e-03, & - & 0.27796e-03,0.24341e-03,0.20303e-03,0.20347e-03 /) - kao(:, 3, 4,10) = (/ & - & 0.45889e-03,0.40391e-03,0.37251e-03,0.34409e-03,0.32396e-03, & - & 0.30068e-03,0.26403e-03,0.23112e-03,0.24434e-03 /) - kao(:, 4, 4,10) = (/ & - & 0.45955e-03,0.40640e-03,0.38203e-03,0.36158e-03,0.34561e-03, & - & 0.32162e-03,0.28613e-03,0.26715e-03,0.29513e-03 /) - kao(:, 5, 4,10) = (/ & - & 0.45899e-03,0.41016e-03,0.39290e-03,0.38024e-03,0.36719e-03, & - & 0.34183e-03,0.31736e-03,0.31348e-03,0.35430e-03 /) - kao(:, 1, 5,10) = (/ & - & 0.44860e-03,0.39309e-03,0.35143e-03,0.31765e-03,0.28887e-03, & - & 0.25439e-03,0.21652e-03,0.16876e-03,0.14333e-03 /) - kao(:, 2, 5,10) = (/ & - & 0.45003e-03,0.39579e-03,0.35959e-03,0.33075e-03,0.30371e-03, & - & 0.27559e-03,0.24058e-03,0.19058e-03,0.17442e-03 /) - kao(:, 3, 5,10) = (/ & - & 0.45146e-03,0.39890e-03,0.36951e-03,0.34437e-03,0.32442e-03, & - & 0.30040e-03,0.26223e-03,0.21520e-03,0.21295e-03 /) - kao(:, 4, 5,10) = (/ & - & 0.45218e-03,0.40151e-03,0.38022e-03,0.36228e-03,0.34802e-03, & - & 0.32336e-03,0.28327e-03,0.24766e-03,0.26132e-03 /) - kao(:, 5, 5,10) = (/ & - & 0.45207e-03,0.40582e-03,0.39175e-03,0.38293e-03,0.37072e-03, & - & 0.34500e-03,0.31037e-03,0.29012e-03,0.31661e-03 /) - kao(:, 1, 6,10) = (/ & - & 0.43374e-03,0.38081e-03,0.34182e-03,0.31060e-03,0.28045e-03, & - & 0.24697e-03,0.20889e-03,0.16055e-03,0.12036e-03 /) - kao(:, 2, 6,10) = (/ & - & 0.43531e-03,0.38407e-03,0.35000e-03,0.32358e-03,0.29721e-03, & - & 0.26821e-03,0.23298e-03,0.18104e-03,0.14668e-03 /) - kao(:, 3, 6,10) = (/ & - & 0.43706e-03,0.38738e-03,0.35982e-03,0.33840e-03,0.31879e-03, & - & 0.29390e-03,0.25605e-03,0.20200e-03,0.18191e-03 /) - kao(:, 4, 6,10) = (/ & - & 0.43807e-03,0.39050e-03,0.37037e-03,0.35740e-03,0.34372e-03, & - & 0.31863e-03,0.27734e-03,0.23003e-03,0.22665e-03 /) - kao(:, 5, 6,10) = (/ & - & 0.43877e-03,0.39551e-03,0.38302e-03,0.38004e-03,0.36796e-03, & - & 0.34140e-03,0.30328e-03,0.26832e-03,0.27676e-03 /) - kao(:, 1, 7,10) = (/ & - & 0.41256e-03,0.36341e-03,0.32806e-03,0.30023e-03,0.26855e-03, & - & 0.23444e-03,0.19788e-03,0.15062e-03,0.10262e-03 /) - kao(:, 2, 7,10) = (/ & - & 0.41482e-03,0.36772e-03,0.33624e-03,0.31297e-03,0.28556e-03, & - & 0.25627e-03,0.22127e-03,0.17072e-03,0.12601e-03 /) - kao(:, 3, 7,10) = (/ & - & 0.41718e-03,0.37142e-03,0.34661e-03,0.32744e-03,0.30719e-03, & - & 0.28254e-03,0.24553e-03,0.19044e-03,0.15628e-03 /) - kao(:, 4, 7,10) = (/ & - & 0.41872e-03,0.37555e-03,0.35755e-03,0.34713e-03,0.33306e-03, & - & 0.30832e-03,0.26791e-03,0.21481e-03,0.19464e-03 /) - kao(:, 5, 7,10) = (/ & - & 0.42048e-03,0.38195e-03,0.37042e-03,0.37076e-03,0.35893e-03, & - & 0.33177e-03,0.29351e-03,0.24858e-03,0.23890e-03 /) - kao(:, 1, 8,10) = (/ & - & 0.38528e-03,0.34132e-03,0.30950e-03,0.28435e-03,0.25387e-03, & - & 0.21998e-03,0.18381e-03,0.13995e-03,0.86291e-04 /) - kao(:, 2, 8,10) = (/ & - & 0.38813e-03,0.34604e-03,0.31840e-03,0.29716e-03,0.26994e-03, & - & 0.24125e-03,0.20696e-03,0.15919e-03,0.10863e-03 /) - kao(:, 3, 8,10) = (/ & - & 0.39073e-03,0.35038e-03,0.33010e-03,0.31128e-03,0.29227e-03, & - & 0.26641e-03,0.23195e-03,0.17813e-03,0.13616e-03 /) - kao(:, 4, 8,10) = (/ & - & 0.39281e-03,0.35556e-03,0.34140e-03,0.33132e-03,0.31814e-03, & - & 0.29308e-03,0.25493e-03,0.20064e-03,0.16931e-03 /) - kao(:, 5, 8,10) = (/ & - & 0.39565e-03,0.36362e-03,0.35480e-03,0.35632e-03,0.34483e-03, & - & 0.31779e-03,0.27994e-03,0.23183e-03,0.20721e-03 /) - kao(:, 1, 9,10) = (/ & - & 0.35353e-03,0.31534e-03,0.28844e-03,0.26382e-03,0.23534e-03, & - & 0.20347e-03,0.16850e-03,0.12923e-03,0.71856e-04 /) - kao(:, 2, 9,10) = (/ & - & 0.35704e-03,0.32078e-03,0.29797e-03,0.27689e-03,0.25047e-03, & - & 0.22397e-03,0.19066e-03,0.14773e-03,0.92561e-04 /) - kao(:, 3, 9,10) = (/ & - & 0.36000e-03,0.32561e-03,0.31012e-03,0.29082e-03,0.27253e-03, & - & 0.24851e-03,0.21457e-03,0.16607e-03,0.11811e-03 /) - kao(:, 4, 9,10) = (/ & - & 0.36298e-03,0.33189e-03,0.32100e-03,0.31077e-03,0.29911e-03, & - & 0.27480e-03,0.23785e-03,0.18730e-03,0.14849e-03 /) - kao(:, 5, 9,10) = (/ & - & 0.36645e-03,0.34041e-03,0.33535e-03,0.33583e-03,0.32646e-03, & - & 0.29975e-03,0.26277e-03,0.21618e-03,0.18220e-03 /) - kao(:, 1,10,10) = (/ & - & 0.31882e-03,0.28657e-03,0.26462e-03,0.24132e-03,0.21534e-03, & - & 0.18636e-03,0.15549e-03,0.11817e-03,0.60706e-04 /) - kao(:, 2,10,10) = (/ & - & 0.32301e-03,0.29267e-03,0.27519e-03,0.25478e-03,0.23046e-03, & - & 0.20560e-03,0.17582e-03,0.13638e-03,0.79531e-04 /) - kao(:, 3,10,10) = (/ & - & 0.32639e-03,0.29816e-03,0.28709e-03,0.26927e-03,0.25170e-03, & - & 0.23027e-03,0.19794e-03,0.15520e-03,0.10253e-03 /) - kao(:, 4,10,10) = (/ & - & 0.33008e-03,0.30559e-03,0.29823e-03,0.28948e-03,0.27786e-03, & - & 0.25639e-03,0.22020e-03,0.17621e-03,0.13035e-03 /) - kao(:, 5,10,10) = (/ & - & 0.33429e-03,0.31481e-03,0.31383e-03,0.31396e-03,0.30544e-03, & - & 0.28143e-03,0.24487e-03,0.20336e-03,0.16246e-03 /) - kao(:, 1,11,10) = (/ & - & 0.28433e-03,0.25922e-03,0.24227e-03,0.22327e-03,0.20067e-03, & - & 0.17618e-03,0.15050e-03,0.11425e-03,0.57921e-04 /) - kao(:, 2,11,10) = (/ & - & 0.28828e-03,0.26532e-03,0.25425e-03,0.23723e-03,0.21797e-03, & - & 0.19695e-03,0.17056e-03,0.13252e-03,0.76361e-04 /) - kao(:, 3,11,10) = (/ & - & 0.29236e-03,0.27228e-03,0.26588e-03,0.25415e-03,0.24099e-03, & - & 0.22135e-03,0.19174e-03,0.15232e-03,0.98360e-04 /) - kao(:, 4,11,10) = (/ & - & 0.29717e-03,0.28209e-03,0.27970e-03,0.27650e-03,0.26714e-03, & - & 0.24681e-03,0.21371e-03,0.17631e-03,0.12518e-03 /) - kao(:, 5,11,10) = (/ & - & 0.30177e-03,0.29180e-03,0.29905e-03,0.30274e-03,0.29362e-03, & - & 0.27208e-03,0.24087e-03,0.20461e-03,0.15616e-03 /) - kao(:, 1,12,10) = (/ & - & 0.24998e-03,0.23220e-03,0.21962e-03,0.20418e-03,0.18598e-03, & - & 0.16635e-03,0.14319e-03,0.11002e-03,0.54657e-04 /) - kao(:, 2,12,10) = (/ & - & 0.25422e-03,0.23880e-03,0.23171e-03,0.21907e-03,0.20484e-03, & - & 0.18724e-03,0.16371e-03,0.12837e-03,0.72183e-04 /) - kao(:, 3,12,10) = (/ & - & 0.25909e-03,0.24827e-03,0.24443e-03,0.23867e-03,0.22868e-03, & - & 0.21084e-03,0.18482e-03,0.14974e-03,0.93395e-04 /) - kao(:, 4,12,10) = (/ & - & 0.26399e-03,0.25851e-03,0.26208e-03,0.26298e-03,0.25438e-03, & - & 0.23482e-03,0.20834e-03,0.17589e-03,0.11924e-03 /) - kao(:, 5,12,10) = (/ & - & 0.26914e-03,0.26866e-03,0.28401e-03,0.28945e-03,0.28022e-03, & - & 0.26150e-03,0.23750e-03,0.20542e-03,0.14923e-03 /) - kao(:, 1,13,10) = (/ & - & 0.21751e-03,0.20608e-03,0.19731e-03,0.18540e-03,0.17208e-03, & - & 0.15624e-03,0.13474e-03,0.10527e-03,0.50953e-04 /) - kao(:, 2,13,10) = (/ & - & 0.22228e-03,0.21439e-03,0.20968e-03,0.20158e-03,0.19151e-03, & - & 0.17720e-03,0.15564e-03,0.12461e-03,0.67516e-04 /) - kao(:, 3,13,10) = (/ & - & 0.22727e-03,0.22462e-03,0.22474e-03,0.22318e-03,0.21469e-03, & - & 0.19989e-03,0.17790e-03,0.14782e-03,0.88180e-04 /) - kao(:, 4,13,10) = (/ & - & 0.23242e-03,0.23488e-03,0.24462e-03,0.24805e-03,0.24003e-03, & - & 0.22364e-03,0.20382e-03,0.17470e-03,0.11335e-03 /) - kao(:, 5,13,10) = (/ & - & 0.23819e-03,0.24692e-03,0.26797e-03,0.27413e-03,0.26611e-03, & - & 0.25207e-03,0.23456e-03,0.20493e-03,0.14302e-03 /) - kao(:, 1, 1,11) = (/ & - & 0.54188e-03,0.47438e-03,0.41220e-03,0.36319e-03,0.32177e-03, & - & 0.28178e-03,0.26195e-03,0.26768e-03,0.30988e-03 /) - kao(:, 2, 1,11) = (/ & - & 0.53863e-03,0.47157e-03,0.41235e-03,0.37142e-03,0.33314e-03, & - & 0.30667e-03,0.29622e-03,0.31573e-03,0.36594e-03 /) - kao(:, 3, 1,11) = (/ & - & 0.53537e-03,0.46873e-03,0.41881e-03,0.37881e-03,0.35190e-03, & - & 0.33275e-03,0.33720e-03,0.36928e-03,0.42810e-03 /) - kao(:, 4, 1,11) = (/ & - & 0.53255e-03,0.46630e-03,0.42443e-03,0.38945e-03,0.37640e-03, & - & 0.36424e-03,0.38086e-03,0.42782e-03,0.49486e-03 /) - kao(:, 5, 1,11) = (/ & - & 0.53016e-03,0.46423e-03,0.43029e-03,0.40524e-03,0.39835e-03, & - & 0.40134e-03,0.42785e-03,0.48998e-03,0.56469e-03 /) - kao(:, 1, 2,11) = (/ & - & 0.58031e-03,0.50799e-03,0.44209e-03,0.39038e-03,0.34592e-03, & - & 0.30091e-03,0.27060e-03,0.26179e-03,0.30262e-03 /) - kao(:, 2, 2,11) = (/ & - & 0.57783e-03,0.50583e-03,0.44303e-03,0.40158e-03,0.35771e-03, & - & 0.32458e-03,0.30412e-03,0.31051e-03,0.36041e-03 /) - kao(:, 3, 2,11) = (/ & - & 0.57540e-03,0.50373e-03,0.45070e-03,0.41078e-03,0.37604e-03, & - & 0.34973e-03,0.34205e-03,0.36376e-03,0.42111e-03 /) - kao(:, 4, 2,11) = (/ & - & 0.57390e-03,0.50246e-03,0.45850e-03,0.42273e-03,0.40005e-03, & - & 0.37925e-03,0.38380e-03,0.42075e-03,0.48570e-03 /) - kao(:, 5, 2,11) = (/ & - & 0.57251e-03,0.50128e-03,0.46686e-03,0.44000e-03,0.42177e-03, & - & 0.41338e-03,0.42764e-03,0.47996e-03,0.55489e-03 /) - kao(:, 1, 3,11) = (/ & - & 0.61606e-03,0.53921e-03,0.46963e-03,0.41409e-03,0.36561e-03, & - & 0.31888e-03,0.27397e-03,0.24837e-03,0.28056e-03 /) - kao(:, 2, 3,11) = (/ & - & 0.61406e-03,0.53752e-03,0.47091e-03,0.42713e-03,0.37975e-03, & - & 0.33844e-03,0.30659e-03,0.29320e-03,0.33782e-03 /) - kao(:, 3, 3,11) = (/ & - & 0.61257e-03,0.53626e-03,0.47829e-03,0.43902e-03,0.39761e-03, & - & 0.36364e-03,0.34206e-03,0.34371e-03,0.39648e-03 /) - kao(:, 4, 3,11) = (/ & - & 0.61154e-03,0.53538e-03,0.48822e-03,0.45223e-03,0.42130e-03, & - & 0.39347e-03,0.37907e-03,0.39708e-03,0.45765e-03 /) - kao(:, 5, 3,11) = (/ & - & 0.61140e-03,0.53529e-03,0.49797e-03,0.47117e-03,0.44115e-03, & - & 0.42497e-03,0.41979e-03,0.45564e-03,0.52659e-03 /) - kao(:, 1, 4,11) = (/ & - & 0.64443e-03,0.56411e-03,0.49232e-03,0.43467e-03,0.38190e-03, & - & 0.33277e-03,0.27825e-03,0.23501e-03,0.25182e-03 /) - kao(:, 2, 4,11) = (/ & - & 0.64292e-03,0.56277e-03,0.49409e-03,0.44787e-03,0.39817e-03, & - & 0.35161e-03,0.30747e-03,0.27717e-03,0.30629e-03 /) - kao(:, 3, 4,11) = (/ & - & 0.64243e-03,0.56236e-03,0.50119e-03,0.46200e-03,0.41580e-03, & - & 0.37809e-03,0.34162e-03,0.32168e-03,0.36251e-03 /) - kao(:, 4, 4,11) = (/ & - & 0.64248e-03,0.56245e-03,0.51257e-03,0.47612e-03,0.44107e-03, & - & 0.40610e-03,0.37659e-03,0.36992e-03,0.42339e-03 /) - kao(:, 5, 4,11) = (/ & - & 0.64345e-03,0.56414e-03,0.52333e-03,0.49621e-03,0.46345e-03, & - & 0.43530e-03,0.41388e-03,0.42704e-03,0.49356e-03 /) - kao(:, 1, 5,11) = (/ & - & 0.66205e-03,0.57941e-03,0.50732e-03,0.44788e-03,0.39504e-03, & - & 0.34261e-03,0.28274e-03,0.22440e-03,0.22048e-03 /) - kao(:, 2, 5,11) = (/ & - & 0.66163e-03,0.57912e-03,0.51033e-03,0.46104e-03,0.41289e-03, & - & 0.36220e-03,0.30969e-03,0.26291e-03,0.27073e-03 /) - kao(:, 3, 5,11) = (/ & - & 0.66197e-03,0.57946e-03,0.51799e-03,0.47594e-03,0.43132e-03, & - & 0.39012e-03,0.34192e-03,0.30335e-03,0.32369e-03 /) - kao(:, 4, 5,11) = (/ & - & 0.66310e-03,0.58124e-03,0.52962e-03,0.49191e-03,0.45677e-03, & - & 0.42022e-03,0.37529e-03,0.34603e-03,0.38247e-03 /) - kao(:, 5, 5,11) = (/ & - & 0.66411e-03,0.58365e-03,0.54225e-03,0.51373e-03,0.48391e-03, & - & 0.44802e-03,0.41016e-03,0.39855e-03,0.45388e-03 /) - kao(:, 1, 6,11) = (/ & - & 0.66761e-03,0.58431e-03,0.51405e-03,0.45280e-03,0.40155e-03, & - & 0.34610e-03,0.28249e-03,0.21395e-03,0.18888e-03 /) - kao(:, 2, 6,11) = (/ & - & 0.66804e-03,0.58472e-03,0.51807e-03,0.46619e-03,0.41922e-03, & - & 0.36797e-03,0.30908e-03,0.24851e-03,0.23408e-03 /) - kao(:, 3, 6,11) = (/ & - & 0.66946e-03,0.58664e-03,0.52673e-03,0.48103e-03,0.43940e-03, & - & 0.39605e-03,0.34204e-03,0.28507e-03,0.28224e-03 /) - kao(:, 4, 6,11) = (/ & - & 0.67150e-03,0.59004e-03,0.53959e-03,0.49825e-03,0.46612e-03, & - & 0.42814e-03,0.37432e-03,0.32325e-03,0.33817e-03 /) - kao(:, 5, 6,11) = (/ & - & 0.67315e-03,0.59352e-03,0.55351e-03,0.52125e-03,0.49748e-03, & - & 0.45943e-03,0.40603e-03,0.37064e-03,0.40786e-03 /) - kao(:, 1, 7,11) = (/ & - & 0.65825e-03,0.57610e-03,0.50973e-03,0.44919e-03,0.40091e-03, & - & 0.34393e-03,0.27863e-03,0.20584e-03,0.15896e-03 /) - kao(:, 2, 7,11) = (/ & - & 0.66067e-03,0.57854e-03,0.51604e-03,0.46345e-03,0.41921e-03, & - & 0.36628e-03,0.30597e-03,0.23625e-03,0.19866e-03 /) - kao(:, 3, 7,11) = (/ & - & 0.66419e-03,0.58318e-03,0.52599e-03,0.48043e-03,0.43994e-03, & - & 0.39562e-03,0.33865e-03,0.26970e-03,0.24286e-03 /) - kao(:, 4, 7,11) = (/ & - & 0.66717e-03,0.58792e-03,0.54016e-03,0.49893e-03,0.46857e-03, & - & 0.43005e-03,0.37266e-03,0.30411e-03,0.29541e-03 /) - kao(:, 5, 7,11) = (/ & - & 0.67024e-03,0.59309e-03,0.55482e-03,0.52246e-03,0.50380e-03, & - & 0.46446e-03,0.40297e-03,0.34641e-03,0.36121e-03 /) - kao(:, 1, 8,11) = (/ & - & 0.63858e-03,0.55888e-03,0.49736e-03,0.43942e-03,0.39082e-03, & - & 0.33512e-03,0.27058e-03,0.19736e-03,0.13589e-03 /) - kao(:, 2, 8,11) = (/ & - & 0.64324e-03,0.56410e-03,0.50530e-03,0.45504e-03,0.41149e-03, & - & 0.35701e-03,0.29879e-03,0.22618e-03,0.16884e-03 /) - kao(:, 3, 8,11) = (/ & - & 0.64790e-03,0.57033e-03,0.51640e-03,0.47474e-03,0.43226e-03, & - & 0.38846e-03,0.33154e-03,0.25769e-03,0.20679e-03 /) - kao(:, 4, 8,11) = (/ & - & 0.65242e-03,0.57688e-03,0.53191e-03,0.49447e-03,0.46234e-03, & - & 0.42468e-03,0.36669e-03,0.28907e-03,0.25449e-03 /) - kao(:, 5, 8,11) = (/ & - & 0.65716e-03,0.58346e-03,0.54799e-03,0.51859e-03,0.49982e-03, & - & 0.46218e-03,0.39875e-03,0.32573e-03,0.31655e-03 /) - kao(:, 1, 9,11) = (/ & - & 0.61155e-03,0.53549e-03,0.47878e-03,0.42579e-03,0.37499e-03, & - & 0.31961e-03,0.25793e-03,0.18655e-03,0.11490e-03 /) - kao(:, 2, 9,11) = (/ & - & 0.61794e-03,0.54314e-03,0.48878e-03,0.44250e-03,0.39687e-03, & - & 0.34151e-03,0.28569e-03,0.21436e-03,0.14511e-03 /) - kao(:, 3, 9,11) = (/ & - & 0.62338e-03,0.55078e-03,0.50083e-03,0.46354e-03,0.41796e-03, & - & 0.37306e-03,0.31954e-03,0.24508e-03,0.17854e-03 /) - kao(:, 4, 9,11) = (/ & - & 0.62936e-03,0.55894e-03,0.51722e-03,0.48335e-03,0.44775e-03, & - & 0.41130e-03,0.35579e-03,0.27533e-03,0.21988e-03 /) - kao(:, 5, 9,11) = (/ & - & 0.63545e-03,0.56698e-03,0.53473e-03,0.50887e-03,0.48603e-03, & - & 0.45259e-03,0.39001e-03,0.30792e-03,0.27464e-03 /) - kao(:, 1,10,11) = (/ & - & 0.57726e-03,0.50676e-03,0.45606e-03,0.40779e-03,0.35629e-03, & - & 0.30220e-03,0.24273e-03,0.17731e-03,0.97262e-04 /) - kao(:, 2,10,11) = (/ & - & 0.58382e-03,0.51548e-03,0.46729e-03,0.42570e-03,0.37915e-03, & - & 0.32497e-03,0.26965e-03,0.20381e-03,0.12529e-03 /) - kao(:, 3,10,11) = (/ & - & 0.59071e-03,0.52512e-03,0.48044e-03,0.44753e-03,0.40142e-03, & - & 0.35504e-03,0.30526e-03,0.23284e-03,0.15783e-03 /) - kao(:, 4,10,11) = (/ & - & 0.59829e-03,0.53444e-03,0.49886e-03,0.46810e-03,0.43172e-03, & - & 0.39380e-03,0.34313e-03,0.26284e-03,0.19647e-03 /) - kao(:, 5,10,11) = (/ & - & 0.60558e-03,0.54444e-03,0.51788e-03,0.49497e-03,0.47022e-03, & - & 0.43733e-03,0.37954e-03,0.29404e-03,0.24439e-03 /) - kao(:, 1,11,11) = (/ & - & 0.53880e-03,0.47669e-03,0.43422e-03,0.39066e-03,0.34441e-03, & - & 0.29300e-03,0.23722e-03,0.17846e-03,0.93053e-04 /) - kao(:, 2,11,11) = (/ & - & 0.54672e-03,0.48762e-03,0.44694e-03,0.41155e-03,0.36791e-03, & - & 0.31854e-03,0.26663e-03,0.20551e-03,0.12100e-03 /) - kao(:, 3,11,11) = (/ & - & 0.55543e-03,0.49853e-03,0.46450e-03,0.43411e-03,0.39364e-03, & - & 0.35233e-03,0.30378e-03,0.23442e-03,0.15474e-03 /) - kao(:, 4,11,11) = (/ & - & 0.56418e-03,0.50955e-03,0.48543e-03,0.45785e-03,0.42947e-03, & - & 0.39274e-03,0.34329e-03,0.26304e-03,0.19545e-03 /) - kao(:, 5,11,11) = (/ & - & 0.57281e-03,0.52221e-03,0.50507e-03,0.49044e-03,0.47093e-03, & - & 0.43647e-03,0.38057e-03,0.29685e-03,0.24345e-03 /) - kao(:, 1,12,11) = (/ & - & 0.49534e-03,0.44336e-03,0.40843e-03,0.37029e-03,0.32924e-03, & - & 0.28268e-03,0.23204e-03,0.17692e-03,0.89557e-04 /) - kao(:, 2,12,11) = (/ & - & 0.50529e-03,0.45586e-03,0.42428e-03,0.39360e-03,0.35384e-03, & - & 0.31099e-03,0.26296e-03,0.20575e-03,0.11779e-03 /) - kao(:, 3,12,11) = (/ & - & 0.51591e-03,0.46841e-03,0.44557e-03,0.41710e-03,0.38396e-03, & - & 0.34779e-03,0.29981e-03,0.23475e-03,0.15231e-03 /) - kao(:, 4,12,11) = (/ & - & 0.52638e-03,0.48189e-03,0.46689e-03,0.44567e-03,0.42354e-03, & - & 0.38951e-03,0.33959e-03,0.26406e-03,0.19354e-03 /) - kao(:, 5,12,11) = (/ & - & 0.53740e-03,0.49847e-03,0.48961e-03,0.48352e-03,0.46848e-03, & - & 0.43322e-03,0.37807e-03,0.30031e-03,0.24179e-03 /) - kao(:, 1,13,11) = (/ & - & 0.44967e-03,0.40765e-03,0.37964e-03,0.34767e-03,0.31190e-03, & - & 0.27110e-03,0.22687e-03,0.17331e-03,0.86456e-04 /) - kao(:, 2,13,11) = (/ & - & 0.46197e-03,0.42196e-03,0.40010e-03,0.37282e-03,0.33881e-03, & - & 0.30170e-03,0.25812e-03,0.20314e-03,0.11471e-03 /) - kao(:, 3,13,11) = (/ & - & 0.47416e-03,0.43662e-03,0.42347e-03,0.39902e-03,0.37341e-03, & - & 0.34073e-03,0.29426e-03,0.23321e-03,0.14921e-03 /) - kao(:, 4,13,11) = (/ & - & 0.48670e-03,0.45348e-03,0.44656e-03,0.43321e-03,0.41603e-03, & - & 0.38366e-03,0.33328e-03,0.26489e-03,0.19032e-03 /) - kao(:, 5,13,11) = (/ & - & 0.49941e-03,0.47298e-03,0.47361e-03,0.47457e-03,0.46263e-03, & - & 0.42791e-03,0.37404e-03,0.30319e-03,0.23864e-03 /) - kao(:, 1, 1,12) = (/ & - & 0.67194e-03,0.58821e-03,0.50483e-03,0.44022e-03,0.39428e-03, & - & 0.35001e-03,0.32802e-03,0.34712e-03,0.40424e-03 /) - kao(:, 2, 1,12) = (/ & - & 0.66779e-03,0.58462e-03,0.50560e-03,0.45370e-03,0.41018e-03, & - & 0.37788e-03,0.37804e-03,0.41641e-03,0.48433e-03 /) - kao(:, 3, 1,12) = (/ & - & 0.66375e-03,0.58112e-03,0.50831e-03,0.46547e-03,0.43045e-03, & - & 0.42028e-03,0.43766e-03,0.49681e-03,0.57585e-03 /) - kao(:, 4, 1,12) = (/ & - & 0.65976e-03,0.57768e-03,0.51951e-03,0.47941e-03,0.45883e-03, & - & 0.47280e-03,0.50926e-03,0.58385e-03,0.67578e-03 /) - kao(:, 5, 1,12) = (/ & - & 0.65493e-03,0.57349e-03,0.52976e-03,0.49649e-03,0.49872e-03, & - & 0.52477e-03,0.58910e-03,0.67477e-03,0.78177e-03 /) - kao(:, 1, 2,12) = (/ & - & 0.74429e-03,0.65147e-03,0.55958e-03,0.48439e-03,0.43163e-03, & - & 0.37450e-03,0.34047e-03,0.34702e-03,0.40780e-03 /) - kao(:, 2, 2,12) = (/ & - & 0.73897e-03,0.64685e-03,0.56004e-03,0.49710e-03,0.44831e-03, & - & 0.39986e-03,0.38897e-03,0.41601e-03,0.48800e-03 /) - kao(:, 3, 2,12) = (/ & - & 0.73423e-03,0.64274e-03,0.56120e-03,0.51084e-03,0.46668e-03, & - & 0.44211e-03,0.44391e-03,0.49187e-03,0.57573e-03 /) - kao(:, 4, 2,12) = (/ & - & 0.72906e-03,0.63825e-03,0.57090e-03,0.52414e-03,0.49429e-03, & - & 0.48962e-03,0.50615e-03,0.57487e-03,0.67078e-03 /) - kao(:, 5, 2,12) = (/ & - & 0.72487e-03,0.63461e-03,0.58043e-03,0.54078e-03,0.53373e-03, & - & 0.54010e-03,0.58187e-03,0.66737e-03,0.77655e-03 /) - kao(:, 1, 3,12) = (/ & - & 0.81958e-03,0.71735e-03,0.61664e-03,0.53266e-03,0.46619e-03, & - & 0.39818e-03,0.35035e-03,0.33455e-03,0.39417e-03 /) - kao(:, 2, 3,12) = (/ & - & 0.81517e-03,0.71349e-03,0.61778e-03,0.54292e-03,0.48245e-03, & - & 0.42187e-03,0.39187e-03,0.40203e-03,0.47500e-03 /) - kao(:, 3, 3,12) = (/ & - & 0.81131e-03,0.71014e-03,0.61887e-03,0.55563e-03,0.49928e-03, & - & 0.45852e-03,0.44599e-03,0.47656e-03,0.56304e-03 /) - kao(:, 4, 3,12) = (/ & - & 0.80684e-03,0.70624e-03,0.62502e-03,0.56854e-03,0.52516e-03, & - & 0.50282e-03,0.50405e-03,0.55674e-03,0.65701e-03 /) - kao(:, 5, 3,12) = (/ & - & 0.80277e-03,0.70271e-03,0.63387e-03,0.58439e-03,0.56394e-03, & - & 0.54984e-03,0.57036e-03,0.64435e-03,0.75883e-03 /) - kao(:, 1, 4,12) = (/ & - & 0.88962e-03,0.77859e-03,0.66931e-03,0.57740e-03,0.50138e-03, & - & 0.42396e-03,0.36076e-03,0.31901e-03,0.36723e-03 /) - kao(:, 2, 4,12) = (/ & - & 0.88665e-03,0.77601e-03,0.67190e-03,0.58651e-03,0.51766e-03, & - & 0.44641e-03,0.39755e-03,0.38137e-03,0.44921e-03 /) - kao(:, 3, 4,12) = (/ & - & 0.88362e-03,0.77338e-03,0.67394e-03,0.60034e-03,0.53406e-03, & - & 0.47716e-03,0.44855e-03,0.45695e-03,0.53953e-03 /) - kao(:, 4, 4,12) = (/ & - & 0.87936e-03,0.76967e-03,0.67789e-03,0.61530e-03,0.55605e-03, & - & 0.52026e-03,0.50535e-03,0.53746e-03,0.63432e-03 /) - kao(:, 5, 4,12) = (/ & - & 0.87542e-03,0.76625e-03,0.68901e-03,0.63085e-03,0.59283e-03, & - & 0.56499e-03,0.56855e-03,0.62330e-03,0.73477e-03 /) - kao(:, 1, 5,12) = (/ & - & 0.95206e-03,0.83319e-03,0.71670e-03,0.61887e-03,0.53098e-03, & - & 0.45065e-03,0.37161e-03,0.30790e-03,0.33661e-03 /) - kao(:, 2, 5,12) = (/ & - & 0.95024e-03,0.83163e-03,0.72052e-03,0.62686e-03,0.54899e-03, & - & 0.47363e-03,0.40570e-03,0.36303e-03,0.41611e-03 /) - kao(:, 3, 5,12) = (/ & - & 0.94830e-03,0.82995e-03,0.72350e-03,0.64294e-03,0.56882e-03, & - & 0.49923e-03,0.45370e-03,0.43446e-03,0.50740e-03 /) - kao(:, 4, 5,12) = (/ & - & 0.94590e-03,0.82788e-03,0.72796e-03,0.66075e-03,0.59106e-03, & - & 0.53960e-03,0.50922e-03,0.51449e-03,0.60347e-03 /) - kao(:, 5, 5,12) = (/ & - & 0.94431e-03,0.82652e-03,0.73985e-03,0.67685e-03,0.62406e-03, & - & 0.58535e-03,0.56960e-03,0.60003e-03,0.70205e-03 /) - kao(:, 1, 6,12) = (/ & - & 0.10063e-02,0.88067e-03,0.75816e-03,0.65590e-03,0.55704e-03, & - & 0.47312e-03,0.38218e-03,0.29812e-03,0.29923e-03 /) - kao(:, 2, 6,12) = (/ & - & 0.10075e-02,0.88171e-03,0.76490e-03,0.66447e-03,0.57639e-03, & - & 0.49685e-03,0.41345e-03,0.34724e-03,0.37557e-03 /) - kao(:, 3, 6,12) = (/ & - & 0.10072e-02,0.88152e-03,0.76915e-03,0.68176e-03,0.59750e-03, & - & 0.52339e-03,0.45689e-03,0.41130e-03,0.46505e-03 /) - kao(:, 4, 6,12) = (/ & - & 0.10060e-02,0.88049e-03,0.77394e-03,0.69974e-03,0.62189e-03, & - & 0.55958e-03,0.51188e-03,0.48580e-03,0.55924e-03 /) - kao(:, 5, 6,12) = (/ & - & 0.10051e-02,0.87967e-03,0.78569e-03,0.71720e-03,0.65527e-03, & - & 0.60501e-03,0.57082e-03,0.56756e-03,0.65737e-03 /) - kao(:, 1, 7,12) = (/ & - & 0.10487e-02,0.91773e-03,0.79062e-03,0.68516e-03,0.57878e-03, & - & 0.49035e-03,0.39066e-03,0.28990e-03,0.26192e-03 /) - kao(:, 2, 7,12) = (/ & - & 0.10509e-02,0.91972e-03,0.79894e-03,0.69452e-03,0.59953e-03, & - & 0.51487e-03,0.42128e-03,0.33451e-03,0.33284e-03 /) - kao(:, 3, 7,12) = (/ & - & 0.10507e-02,0.91957e-03,0.80398e-03,0.71157e-03,0.62221e-03, & - & 0.54150e-03,0.46197e-03,0.39208e-03,0.41685e-03 /) - kao(:, 4, 7,12) = (/ & - & 0.10509e-02,0.91973e-03,0.80950e-03,0.73042e-03,0.64659e-03, & - & 0.57916e-03,0.51360e-03,0.46065e-03,0.50813e-03 /) - kao(:, 5, 7,12) = (/ & - & 0.10509e-02,0.91978e-03,0.82196e-03,0.75027e-03,0.67740e-03, & - & 0.62606e-03,0.57168e-03,0.53418e-03,0.60461e-03 /) - kao(:, 1, 8,12) = (/ & - & 0.10710e-02,0.93729e-03,0.80929e-03,0.70366e-03,0.59621e-03, & - & 0.50074e-03,0.39602e-03,0.28309e-03,0.22630e-03 /) - kao(:, 2, 8,12) = (/ & - & 0.10749e-02,0.94069e-03,0.82032e-03,0.71447e-03,0.61694e-03, & - & 0.52833e-03,0.42406e-03,0.32400e-03,0.29100e-03 /) - kao(:, 3, 8,12) = (/ & - & 0.10773e-02,0.94281e-03,0.82736e-03,0.73051e-03,0.64296e-03, & - & 0.55298e-03,0.46605e-03,0.37591e-03,0.36869e-03 /) - kao(:, 4, 8,12) = (/ & - & 0.10796e-02,0.94487e-03,0.83459e-03,0.75111e-03,0.66786e-03, & - & 0.59048e-03,0.51603e-03,0.43920e-03,0.45502e-03 /) - kao(:, 5, 8,12) = (/ & - & 0.10814e-02,0.94726e-03,0.84809e-03,0.77185e-03,0.69811e-03, & - & 0.64090e-03,0.57338e-03,0.50692e-03,0.54643e-03 /) - kao(:, 1, 9,12) = (/ & - & 0.10730e-02,0.93903e-03,0.81373e-03,0.70878e-03,0.60523e-03, & - & 0.50463e-03,0.39690e-03,0.27640e-03,0.19492e-03 /) - kao(:, 2, 9,12) = (/ & - & 0.10796e-02,0.94482e-03,0.82740e-03,0.72216e-03,0.62667e-03, & - & 0.53533e-03,0.42406e-03,0.31368e-03,0.25100e-03 /) - kao(:, 3, 9,12) = (/ & - & 0.10853e-02,0.94982e-03,0.83742e-03,0.73904e-03,0.65592e-03, & - & 0.56092e-03,0.46365e-03,0.36183e-03,0.32022e-03 /) - kao(:, 4, 9,12) = (/ & - & 0.10900e-02,0.95441e-03,0.84774e-03,0.76272e-03,0.68162e-03, & - & 0.59735e-03,0.51414e-03,0.41927e-03,0.39972e-03 /) - kao(:, 5, 9,12) = (/ & - & 0.10952e-02,0.96081e-03,0.86364e-03,0.78596e-03,0.71341e-03, & - & 0.64539e-03,0.57286e-03,0.48249e-03,0.48653e-03 /) - kao(:, 1,10,12) = (/ & - & 0.10558e-02,0.92391e-03,0.80426e-03,0.70294e-03,0.60555e-03, & - & 0.50218e-03,0.39384e-03,0.27052e-03,0.17175e-03 /) - kao(:, 2,10,12) = (/ & - & 0.10672e-02,0.93391e-03,0.82187e-03,0.72055e-03,0.62861e-03, & - & 0.53517e-03,0.42394e-03,0.30520e-03,0.22066e-03 /) - kao(:, 3,10,12) = (/ & - & 0.10767e-02,0.94234e-03,0.83636e-03,0.73971e-03,0.66074e-03, & - & 0.56459e-03,0.46058e-03,0.35232e-03,0.28101e-03 /) - kao(:, 4,10,12) = (/ & - & 0.10858e-02,0.95208e-03,0.85075e-03,0.76653e-03,0.68963e-03, & - & 0.60125e-03,0.51089e-03,0.40664e-03,0.35284e-03 /) - kao(:, 5,10,12) = (/ & - & 0.10953e-02,0.96285e-03,0.86971e-03,0.79369e-03,0.72347e-03, & - & 0.65043e-03,0.57028e-03,0.46529e-03,0.43428e-03 /) - kao(:, 1,11,12) = (/ & - & 0.10314e-02,0.90258e-03,0.79467e-03,0.69943e-03,0.60546e-03, & - & 0.50625e-03,0.39977e-03,0.27736e-03,0.16855e-03 /) - kao(:, 2,11,12) = (/ & - & 0.10451e-02,0.91471e-03,0.81404e-03,0.71994e-03,0.63569e-03, & - & 0.54231e-03,0.43348e-03,0.31480e-03,0.21751e-03 /) - kao(:, 3,11,12) = (/ & - & 0.10591e-02,0.92888e-03,0.83171e-03,0.74582e-03,0.67129e-03, & - & 0.57545e-03,0.47649e-03,0.36327e-03,0.27482e-03 /) - kao(:, 4,11,12) = (/ & - & 0.10732e-02,0.94400e-03,0.85133e-03,0.77904e-03,0.70324e-03, & - & 0.62021e-03,0.53030e-03,0.41771e-03,0.34284e-03 /) - kao(:, 5,11,12) = (/ & - & 0.10880e-02,0.96010e-03,0.87843e-03,0.80902e-03,0.74479e-03, & - & 0.67711e-03,0.59146e-03,0.47518e-03,0.42405e-03 /) - kao(:, 1,12,12) = (/ & - & 0.99800e-03,0.87344e-03,0.77838e-03,0.69077e-03,0.60021e-03, & - & 0.50540e-03,0.40237e-03,0.28326e-03,0.16340e-03 /) - kao(:, 2,12,12) = (/ & - & 0.10163e-02,0.89149e-03,0.80050e-03,0.71513e-03,0.63616e-03, & - & 0.54455e-03,0.44056e-03,0.32235e-03,0.21276e-03 /) - kao(:, 3,12,12) = (/ & - & 0.10345e-02,0.91067e-03,0.82237e-03,0.74899e-03,0.67503e-03, & - & 0.58381e-03,0.48916e-03,0.37171e-03,0.26817e-03 /) - kao(:, 4,12,12) = (/ & - & 0.10541e-02,0.93146e-03,0.84943e-03,0.78581e-03,0.71327e-03, & - & 0.63724e-03,0.54703e-03,0.42621e-03,0.33361e-03 /) - kao(:, 5,12,12) = (/ & - & 0.10724e-02,0.95127e-03,0.88178e-03,0.82065e-03,0.76248e-03, & - & 0.70028e-03,0.60892e-03,0.48179e-03,0.41458e-03 /) - kao(:, 1,13,12) = (/ & - & 0.95912e-03,0.84178e-03,0.75778e-03,0.67765e-03,0.59123e-03, & - & 0.50112e-03,0.40170e-03,0.28784e-03,0.15761e-03 /) - kao(:, 2,13,12) = (/ & - & 0.98187e-03,0.86541e-03,0.78344e-03,0.70851e-03,0.63200e-03, & - & 0.54351e-03,0.44541e-03,0.32864e-03,0.20682e-03 /) - kao(:, 3,13,12) = (/ & - & 0.10063e-02,0.89078e-03,0.81111e-03,0.74766e-03,0.67473e-03, & - & 0.58963e-03,0.49872e-03,0.37736e-03,0.26208e-03 /) - kao(:, 4,13,12) = (/ & - & 0.10299e-02,0.91565e-03,0.84455e-03,0.78769e-03,0.71894e-03, & - & 0.65012e-03,0.55995e-03,0.43170e-03,0.32660e-03 /) - kao(:, 5,13,12) = (/ & - & 0.10525e-02,0.93912e-03,0.88061e-03,0.82863e-03,0.77810e-03, & - & 0.71766e-03,0.62330e-03,0.48589e-03,0.40661e-03 /) - kao(:, 1, 1,13) = (/ & - & 0.84224e-03,0.73740e-03,0.63257e-03,0.54853e-03,0.48911e-03, & - & 0.46139e-03,0.45309e-03,0.51018e-03,0.59300e-03 /) - kao(:, 2, 1,13) = (/ & - & 0.83841e-03,0.73411e-03,0.62983e-03,0.55802e-03,0.51855e-03, & - & 0.50261e-03,0.52209e-03,0.59394e-03,0.69158e-03 /) - kao(:, 3, 1,13) = (/ & - & 0.83593e-03,0.73202e-03,0.62914e-03,0.58596e-03,0.54957e-03, & - & 0.55151e-03,0.60969e-03,0.69097e-03,0.80707e-03 /) - kao(:, 4, 1,13) = (/ & - & 0.83246e-03,0.72902e-03,0.63274e-03,0.60961e-03,0.59022e-03, & - & 0.61063e-03,0.70961e-03,0.80207e-03,0.93855e-03 /) - kao(:, 5, 1,13) = (/ & - & 0.82958e-03,0.72654e-03,0.65011e-03,0.63711e-03,0.63941e-03, & - & 0.69313e-03,0.82070e-03,0.92941e-03,0.10860e-02 /) - kao(:, 1, 2,13) = (/ & - & 0.94737e-03,0.82928e-03,0.71121e-03,0.61292e-03,0.53888e-03, & - & 0.49608e-03,0.46449e-03,0.50895e-03,0.59638e-03 /) - kao(:, 2, 2,13) = (/ & - & 0.94309e-03,0.82559e-03,0.70809e-03,0.61981e-03,0.56880e-03, & - & 0.53738e-03,0.52906e-03,0.59714e-03,0.70098e-03 /) - kao(:, 3, 2,13) = (/ & - & 0.93813e-03,0.82131e-03,0.70667e-03,0.64442e-03,0.60095e-03, & - & 0.58581e-03,0.62140e-03,0.70455e-03,0.83109e-03 /) - kao(:, 4, 2,13) = (/ & - & 0.93357e-03,0.81735e-03,0.70879e-03,0.66885e-03,0.63704e-03, & - & 0.64975e-03,0.73250e-03,0.82836e-03,0.97995e-03 /) - kao(:, 5, 2,13) = (/ & - & 0.92926e-03,0.81362e-03,0.72487e-03,0.69759e-03,0.68443e-03, & - & 0.72989e-03,0.85114e-03,0.96045e-03,0.11390e-02 /) - kao(:, 1, 3,13) = (/ & - & 0.10589e-02,0.92685e-03,0.79478e-03,0.68185e-03,0.58961e-03, & - & 0.52592e-03,0.47382e-03,0.49304e-03,0.58474e-03 /) - kao(:, 2, 3,13) = (/ & - & 0.10532e-02,0.92189e-03,0.79057e-03,0.68536e-03,0.61794e-03, & - & 0.56535e-03,0.53040e-03,0.57934e-03,0.68761e-03 /) - kao(:, 3, 3,13) = (/ & - & 0.10466e-02,0.91613e-03,0.78805e-03,0.70517e-03,0.65240e-03, & - & 0.61071e-03,0.61067e-03,0.68776e-03,0.81827e-03 /) - kao(:, 4, 3,13) = (/ & - & 0.10406e-02,0.91088e-03,0.78949e-03,0.73011e-03,0.68643e-03, & - & 0.67486e-03,0.72316e-03,0.82048e-03,0.97591e-03 /) - kao(:, 5, 3,13) = (/ & - & 0.10350e-02,0.90609e-03,0.80184e-03,0.75651e-03,0.73102e-03, & - & 0.75672e-03,0.85035e-03,0.96398e-03,0.11483e-02 /) - kao(:, 1, 4,13) = (/ & - & 0.11788e-02,0.10317e-02,0.88462e-03,0.75562e-03,0.64370e-03, & - & 0.55868e-03,0.48899e-03,0.48008e-03,0.57112e-03 /) - kao(:, 2, 4,13) = (/ & - & 0.11725e-02,0.10263e-02,0.87998e-03,0.75781e-03,0.66989e-03, & - & 0.59814e-03,0.54177e-03,0.56164e-03,0.66999e-03 /) - kao(:, 3, 4,13) = (/ & - & 0.11654e-02,0.10201e-02,0.87720e-03,0.76990e-03,0.70381e-03, & - & 0.63928e-03,0.60787e-03,0.66447e-03,0.79300e-03 /) - kao(:, 4, 4,13) = (/ & - & 0.11592e-02,0.10147e-02,0.87854e-03,0.79340e-03,0.73787e-03, & - & 0.69602e-03,0.70539e-03,0.79266e-03,0.94522e-03 /) - kao(:, 5, 4,13) = (/ & - & 0.11532e-02,0.10094e-02,0.88452e-03,0.81797e-03,0.78065e-03, & - & 0.77762e-03,0.82734e-03,0.94053e-03,0.11199e-02 /) - kao(:, 1, 5,13) = (/ & - & 0.13090e-02,0.11455e-02,0.98213e-03,0.83571e-03,0.70447e-03, & - & 0.59736e-03,0.51100e-03,0.46541e-03,0.54756e-03 /) - kao(:, 2, 5,13) = (/ & - & 0.13011e-02,0.11387e-02,0.97633e-03,0.83818e-03,0.72563e-03, & - & 0.63146e-03,0.56040e-03,0.54671e-03,0.65045e-03 /) - kao(:, 3, 5,13) = (/ & - & 0.12919e-02,0.11307e-02,0.97249e-03,0.84355e-03,0.75615e-03, & - & 0.67456e-03,0.62106e-03,0.64503e-03,0.77294e-03 /) - kao(:, 4, 5,13) = (/ & - & 0.12834e-02,0.11233e-02,0.97228e-03,0.86290e-03,0.79001e-03, & - & 0.72644e-03,0.70406e-03,0.76742e-03,0.92034e-03 /) - kao(:, 5, 5,13) = (/ & - & 0.12754e-02,0.11163e-02,0.97447e-03,0.88787e-03,0.82956e-03, & - & 0.80041e-03,0.81433e-03,0.91302e-03,0.10923e-02 /) - kao(:, 1, 6,13) = (/ & - & 0.14384e-02,0.12588e-02,0.10791e-02,0.91745e-03,0.77222e-03, & - & 0.63777e-03,0.53552e-03,0.44917e-03,0.50804e-03 /) - kao(:, 2, 6,13) = (/ & - & 0.14296e-02,0.12511e-02,0.10726e-02,0.92106e-03,0.78721e-03, & - & 0.67056e-03,0.58135e-03,0.52600e-03,0.61657e-03 /) - kao(:, 3, 6,13) = (/ & - & 0.14197e-02,0.12425e-02,0.10687e-02,0.92311e-03,0.81466e-03, & - & 0.70925e-03,0.63651e-03,0.62263e-03,0.74116e-03 /) - kao(:, 4, 6,13) = (/ & - & 0.14113e-02,0.12351e-02,0.10686e-02,0.93888e-03,0.84557e-03, & - & 0.75721e-03,0.71295e-03,0.74435e-03,0.88914e-03 /) - kao(:, 5, 6,13) = (/ & - & 0.14033e-02,0.12282e-02,0.10694e-02,0.96147e-03,0.87768e-03, & - & 0.82519e-03,0.81219e-03,0.88552e-03,0.10599e-02 /) - kao(:, 1, 7,13) = (/ & - & 0.15646e-02,0.13692e-02,0.11737e-02,0.99670e-03,0.83910e-03, & - & 0.68337e-03,0.56133e-03,0.43784e-03,0.46053e-03 /) - kao(:, 2, 7,13) = (/ & - & 0.15575e-02,0.13630e-02,0.11685e-02,0.10035e-02,0.85062e-03, & - & 0.71436e-03,0.60284e-03,0.50378e-03,0.56665e-03 /) - kao(:, 3, 7,13) = (/ & - & 0.15495e-02,0.13560e-02,0.11666e-02,0.10059e-02,0.87670e-03, & - & 0.74963e-03,0.65339e-03,0.59583e-03,0.69467e-03 /) - kao(:, 4, 7,13) = (/ & - & 0.15420e-02,0.13494e-02,0.11678e-02,0.10189e-02,0.90417e-03, & - & 0.79237e-03,0.72265e-03,0.71412e-03,0.84581e-03 /) - kao(:, 5, 7,13) = (/ & - & 0.15345e-02,0.13429e-02,0.11695e-02,0.10414e-02,0.93588e-03, & - & 0.84978e-03,0.81799e-03,0.85682e-03,0.10184e-02 /) - kao(:, 1, 8,13) = (/ & - & 0.16856e-02,0.14750e-02,0.12645e-02,0.10725e-02,0.90201e-03, & - & 0.73159e-03,0.58478e-03,0.43268e-03,0.41101e-03 /) - kao(:, 2, 8,13) = (/ & - & 0.16806e-02,0.14706e-02,0.12609e-02,0.10836e-02,0.91363e-03, & - & 0.76033e-03,0.62810e-03,0.48786e-03,0.51346e-03 /) - kao(:, 3, 8,13) = (/ & - & 0.16744e-02,0.14652e-02,0.12612e-02,0.10887e-02,0.93599e-03, & - & 0.79815e-03,0.66916e-03,0.56926e-03,0.63978e-03 /) - kao(:, 4, 8,13) = (/ & - & 0.16684e-02,0.14601e-02,0.12641e-02,0.11000e-02,0.96490e-03, & - & 0.83543e-03,0.73243e-03,0.67845e-03,0.78892e-03 /) - kao(:, 5, 8,13) = (/ & - & 0.16618e-02,0.14543e-02,0.12671e-02,0.11238e-02,0.99451e-03, & - & 0.88426e-03,0.81935e-03,0.81741e-03,0.96330e-03 /) - kao(:, 1, 9,13) = (/ & - & 0.17934e-02,0.15694e-02,0.13453e-02,0.11410e-02,0.95885e-03, & - & 0.77818e-03,0.60653e-03,0.43079e-03,0.36156e-03 /) - kao(:, 2, 9,13) = (/ & - & 0.17902e-02,0.15666e-02,0.13435e-02,0.11557e-02,0.97291e-03, & - & 0.80328e-03,0.65101e-03,0.47930e-03,0.45791e-03 /) - kao(:, 3, 9,13) = (/ & - & 0.17870e-02,0.15637e-02,0.13465e-02,0.11644e-02,0.99290e-03, & - & 0.84365e-03,0.69043e-03,0.54887e-03,0.58027e-03 /) - kao(:, 4, 9,13) = (/ & - & 0.17836e-02,0.15608e-02,0.13520e-02,0.11761e-02,0.10245e-02, & - & 0.87956e-03,0.74487e-03,0.64626e-03,0.72649e-03 /) - kao(:, 5, 9,13) = (/ & - & 0.17784e-02,0.15563e-02,0.13567e-02,0.11994e-02,0.10543e-02, & - & 0.92517e-03,0.82194e-03,0.77306e-03,0.89652e-03 /) - kao(:, 1,10,13) = (/ & - & 0.18870e-02,0.16513e-02,0.14155e-02,0.12026e-02,0.10094e-02, & - & 0.82157e-03,0.62812e-03,0.43279e-03,0.32100e-03 /) - kao(:, 2,10,13) = (/ & - & 0.18874e-02,0.16516e-02,0.14168e-02,0.12199e-02,0.10267e-02, & - & 0.84527e-03,0.67192e-03,0.47951e-03,0.41207e-03 /) - kao(:, 3,10,13) = (/ & - & 0.18869e-02,0.16512e-02,0.14226e-02,0.12326e-02,0.10456e-02, & - & 0.88603e-03,0.71450e-03,0.53998e-03,0.52708e-03 /) - kao(:, 4,10,13) = (/ & - & 0.18844e-02,0.16490e-02,0.14297e-02,0.12452e-02,0.10784e-02, & - & 0.92565e-03,0.76291e-03,0.62910e-03,0.66842e-03 /) - kao(:, 5,10,13) = (/ & - & 0.18812e-02,0.16463e-02,0.14369e-02,0.12677e-02,0.11133e-02, & - & 0.96733e-03,0.83676e-03,0.74378e-03,0.83514e-03 /) - kao(:, 1,11,13) = (/ & - & 0.19652e-02,0.17197e-02,0.14741e-02,0.12638e-02,0.10628e-02, & - & 0.86832e-03,0.66314e-03,0.45418e-03,0.32052e-03 /) - kao(:, 2,11,13) = (/ & - & 0.19706e-02,0.17244e-02,0.14828e-02,0.12836e-02,0.10826e-02, & - & 0.89693e-03,0.71120e-03,0.50274e-03,0.41269e-03 /) - kao(:, 3,11,13) = (/ & - & 0.19727e-02,0.17263e-02,0.14935e-02,0.12979e-02,0.11060e-02, & - & 0.94341e-03,0.75411e-03,0.56772e-03,0.53374e-03 /) - kao(:, 4,11,13) = (/ & - & 0.19726e-02,0.17262e-02,0.15047e-02,0.13132e-02,0.11439e-02, & - & 0.98450e-03,0.80814e-03,0.66163e-03,0.68012e-03 /) - kao(:, 5,11,13) = (/ & - & 0.19717e-02,0.17254e-02,0.15111e-02,0.13415e-02,0.11812e-02, & - & 0.10302e-02,0.88976e-03,0.77856e-03,0.85217e-03 /) - kao(:, 1,12,13) = (/ & - & 0.20238e-02,0.17709e-02,0.15209e-02,0.13140e-02,0.11103e-02, & - & 0.90805e-03,0.69487e-03,0.47365e-03,0.32170e-03 /) - kao(:, 2,12,13) = (/ & - & 0.20339e-02,0.17798e-02,0.15376e-02,0.13369e-02,0.11339e-02, & - & 0.94414e-03,0.74487e-03,0.52470e-03,0.41340e-03 /) - kao(:, 3,12,13) = (/ & - & 0.20400e-02,0.17851e-02,0.15537e-02,0.13538e-02,0.11634e-02, & - & 0.99316e-03,0.79139e-03,0.59483e-03,0.53800e-03 /) - kao(:, 4,12,13) = (/ & - & 0.20440e-02,0.17887e-02,0.15672e-02,0.13751e-02,0.12054e-02, & - & 0.10358e-02,0.85239e-03,0.69118e-03,0.69062e-03 /) - kao(:, 5,12,13) = (/ & - & 0.20478e-02,0.17920e-02,0.15770e-02,0.14084e-02,0.12434e-02, & - & 0.10883e-02,0.94102e-03,0.81111e-03,0.86624e-03 /) - kao(:, 1,13,13) = (/ & - & 0.20618e-02,0.18042e-02,0.15564e-02,0.13520e-02,0.11495e-02, & - & 0.94146e-03,0.72197e-03,0.49143e-03,0.32080e-03 /) - kao(:, 2,13,13) = (/ & - & 0.20769e-02,0.18174e-02,0.15793e-02,0.13781e-02,0.11781e-02, & - & 0.98504e-03,0.77410e-03,0.54584e-03,0.41409e-03 /) - kao(:, 3,13,13) = (/ & - & 0.20884e-02,0.18274e-02,0.16007e-02,0.14008e-02,0.12152e-02, & - & 0.10359e-02,0.82528e-03,0.62085e-03,0.53970e-03 /) - kao(:, 4,13,13) = (/ & - & 0.21000e-02,0.18376e-02,0.16180e-02,0.14292e-02,0.12615e-02, & - & 0.10817e-02,0.89457e-03,0.71909e-03,0.69474e-03 /) - kao(:, 5,13,13) = (/ & - & 0.21077e-02,0.18456e-02,0.16335e-02,0.14673e-02,0.12995e-02, & - & 0.11413e-02,0.98821e-03,0.84127e-03,0.87402e-03 /) - kao(:, 1, 1,14) = (/ & - & 0.11199e-02,0.98039e-03,0.84084e-03,0.70943e-03,0.63603e-03, & - & 0.60649e-03,0.68312e-03,0.76350e-03,0.90110e-03 /) - kao(:, 2, 1,14) = (/ & - & 0.11157e-02,0.97670e-03,0.83773e-03,0.72395e-03,0.68641e-03, & - & 0.69858e-03,0.81907e-03,0.92056e-03,0.10823e-02 /) - kao(:, 3, 1,14) = (/ & - & 0.11108e-02,0.97243e-03,0.83426e-03,0.74791e-03,0.75340e-03, & - & 0.82026e-03,0.97233e-03,0.10968e-02,0.12857e-02 /) - kao(:, 4, 1,14) = (/ & - & 0.11077e-02,0.96981e-03,0.83196e-03,0.80006e-03,0.82593e-03, & - & 0.96481e-03,0.11451e-02,0.12942e-02,0.15153e-02 /) - kao(:, 5, 1,14) = (/ & - & 0.11057e-02,0.96811e-03,0.83287e-03,0.85771e-03,0.92243e-03, & - & 0.11291e-02,0.13401e-02,0.15139e-02,0.17730e-02 /) - kao(:, 1, 2,14) = (/ & - & 0.12618e-02,0.11045e-02,0.94731e-03,0.80059e-03,0.70460e-03, & - & 0.66164e-03,0.71798e-03,0.80280e-03,0.96182e-03 /) - kao(:, 2, 2,14) = (/ & - & 0.12573e-02,0.11007e-02,0.94415e-03,0.81463e-03,0.74844e-03, & - & 0.74157e-03,0.85097e-03,0.95625e-03,0.11395e-02 /) - kao(:, 3, 2,14) = (/ & - & 0.12537e-02,0.10976e-02,0.94166e-03,0.83421e-03,0.81760e-03, & - & 0.85124e-03,0.10029e-02,0.11319e-02,0.13421e-02 /) - kao(:, 4, 2,14) = (/ & - & 0.12517e-02,0.10959e-02,0.94019e-03,0.88029e-03,0.88890e-03, & - & 0.98937e-03,0.11747e-02,0.13301e-02,0.15715e-02 /) - kao(:, 5, 2,14) = (/ & - & 0.12484e-02,0.10932e-02,0.93873e-03,0.93946e-03,0.97784e-03, & - & 0.11555e-02,0.13735e-02,0.15606e-02,0.18367e-02 /) - kao(:, 1, 3,14) = (/ & - & 0.14334e-02,0.12547e-02,0.10760e-02,0.90369e-03,0.78163e-03, & - & 0.71064e-03,0.72074e-03,0.81006e-03,0.97636e-03 /) - kao(:, 2, 3,14) = (/ & - & 0.14266e-02,0.12488e-02,0.10711e-02,0.91657e-03,0.81392e-03, & - & 0.78379e-03,0.85758e-03,0.96540e-03,0.11622e-02 /) - kao(:, 3, 3,14) = (/ & - & 0.14223e-02,0.12452e-02,0.10680e-02,0.93146e-03,0.87510e-03, & - & 0.87756e-03,0.10059e-02,0.11359e-02,0.13619e-02 /) - kao(:, 4, 3,14) = (/ & - & 0.14175e-02,0.12411e-02,0.10646e-02,0.96483e-03,0.94572e-03, & - & 0.99384e-03,0.11710e-02,0.13256e-02,0.15838e-02 /) - kao(:, 5, 3,14) = (/ & - & 0.14120e-02,0.12363e-02,0.10614e-02,0.10223e-02,0.10225e-02, & - & 0.11461e-02,0.13616e-02,0.15455e-02,0.18394e-02 /) - kao(:, 1, 4,14) = (/ & - & 0.16334e-02,0.14296e-02,0.12259e-02,0.10262e-02,0.87529e-03, & - & 0.76396e-03,0.72119e-03,0.79306e-03,0.95651e-03 /) - kao(:, 2, 4,14) = (/ & - & 0.16232e-02,0.14208e-02,0.12185e-02,0.10348e-02,0.89367e-03, & - & 0.83199e-03,0.84657e-03,0.95561e-03,0.11474e-02 /) - kao(:, 3, 4,14) = (/ & - & 0.16152e-02,0.14140e-02,0.12127e-02,0.10485e-02,0.94236e-03, & - & 0.91572e-03,0.99902e-03,0.11299e-02,0.13583e-02 /) - kao(:, 4, 4,14) = (/ & - & 0.16069e-02,0.14067e-02,0.12065e-02,0.10685e-02,0.10126e-02, & - & 0.10172e-02,0.11639e-02,0.13179e-02,0.15822e-02 /) - kao(:, 5, 4,14) = (/ & - & 0.15986e-02,0.13996e-02,0.12009e-02,0.11161e-02,0.10822e-02, & - & 0.11448e-02,0.13482e-02,0.15289e-02,0.18307e-02 /) - kao(:, 1, 5,14) = (/ & - & 0.18523e-02,0.16211e-02,0.13900e-02,0.11617e-02,0.98609e-03, & - & 0.83071e-03,0.73506e-03,0.77421e-03,0.93359e-03 /) - kao(:, 2, 5,14) = (/ & - & 0.18399e-02,0.16104e-02,0.13808e-02,0.11680e-02,0.99824e-03, & - & 0.89112e-03,0.84383e-03,0.93250e-03,0.11210e-02 /) - kao(:, 3, 5,14) = (/ & - & 0.18296e-02,0.16015e-02,0.13734e-02,0.11806e-02,0.10315e-02, & - & 0.96812e-03,0.98130e-03,0.11095e-02,0.13275e-02 /) - kao(:, 4, 5,14) = (/ & - & 0.18179e-02,0.15913e-02,0.13647e-02,0.11924e-02,0.10905e-02, & - & 0.10578e-02,0.11513e-02,0.13088e-02,0.15638e-02 /) - kao(:, 5, 5,14) = (/ & - & 0.18067e-02,0.15816e-02,0.13575e-02,0.12252e-02,0.11627e-02, & - & 0.11690e-02,0.13357e-02,0.15168e-02,0.18162e-02 /) - kao(:, 1, 6,14) = (/ & - & 0.20925e-02,0.18312e-02,0.15700e-02,0.13095e-02,0.11041e-02, & - & 0.91669e-03,0.76437e-03,0.75155e-03,0.90862e-03 /) - kao(:, 2, 6,14) = (/ & - & 0.20749e-02,0.18159e-02,0.15569e-02,0.13117e-02,0.11170e-02, & - & 0.95740e-03,0.85349e-03,0.90211e-03,0.10843e-02 /) - kao(:, 3, 6,14) = (/ & - & 0.20605e-02,0.18034e-02,0.15463e-02,0.13221e-02,0.11384e-02, & - & 0.10293e-02,0.97333e-03,0.10765e-02,0.12853e-02 /) - kao(:, 4, 6,14) = (/ & - & 0.20459e-02,0.17907e-02,0.15355e-02,0.13321e-02,0.11878e-02, & - & 0.11138e-02,0.11236e-02,0.12716e-02,0.15170e-02 /) - kao(:, 5, 6,14) = (/ & - & 0.20310e-02,0.17778e-02,0.15259e-02,0.13542e-02,0.12517e-02, & - & 0.12095e-02,0.13081e-02,0.14898e-02,0.17755e-02 /) - kao(:, 1, 7,14) = (/ & - & 0.23595e-02,0.20648e-02,0.17701e-02,0.14754e-02,0.12323e-02, & - & 0.10132e-02,0.80835e-03,0.73377e-03,0.88458e-03 /) - kao(:, 2, 7,14) = (/ & - & 0.23333e-02,0.20420e-02,0.17506e-02,0.14700e-02,0.12449e-02, & - & 0.10427e-02,0.88482e-03,0.87865e-03,0.10548e-02 /) - kao(:, 3, 7,14) = (/ & - & 0.23118e-02,0.20232e-02,0.17345e-02,0.14754e-02,0.12581e-02, & - & 0.11040e-02,0.98425e-03,0.10425e-02,0.12451e-02 /) - kao(:, 4, 7,14) = (/ & - & 0.22911e-02,0.20052e-02,0.17193e-02,0.14831e-02,0.12996e-02, & - & 0.11778e-02,0.11137e-02,0.12310e-02,0.14656e-02 /) - kao(:, 5, 7,14) = (/ & - & 0.22715e-02,0.19881e-02,0.17061e-02,0.14949e-02,0.13595e-02, & - & 0.12702e-02,0.12792e-02,0.14480e-02,0.17220e-02 /) - kao(:, 1, 8,14) = (/ & - & 0.26465e-02,0.23159e-02,0.19853e-02,0.16547e-02,0.13704e-02, & - & 0.11161e-02,0.87227e-03,0.72579e-03,0.85316e-03 /) - kao(:, 2, 8,14) = (/ & - & 0.26139e-02,0.22874e-02,0.19609e-02,0.16420e-02,0.13837e-02, & - & 0.11377e-02,0.93183e-03,0.85926e-03,0.10245e-02 /) - kao(:, 3, 8,14) = (/ & - & 0.25857e-02,0.22628e-02,0.19400e-02,0.16425e-02,0.13917e-02, & - & 0.11859e-02,0.10228e-02,0.10157e-02,0.12103e-02 /) - kao(:, 4, 8,14) = (/ & - & 0.25573e-02,0.22380e-02,0.19187e-02,0.16463e-02,0.14196e-02, & - & 0.12582e-02,0.11286e-02,0.11958e-02,0.14229e-02 /) - kao(:, 5, 8,14) = (/ & - & 0.25310e-02,0.22151e-02,0.19006e-02,0.16478e-02,0.14771e-02, & - & 0.13382e-02,0.12711e-02,0.14043e-02,0.16688e-02 /) - kao(:, 1, 9,14) = (/ & - & 0.29437e-02,0.25759e-02,0.22081e-02,0.18403e-02,0.15126e-02, & - & 0.12266e-02,0.94502e-03,0.72553e-03,0.80872e-03 /) - kao(:, 2, 9,14) = (/ & - & 0.29059e-02,0.25428e-02,0.21798e-02,0.18221e-02,0.15299e-02, & - & 0.12446e-02,0.99114e-03,0.84495e-03,0.98123e-03 /) - kao(:, 3, 9,14) = (/ & - & 0.28735e-02,0.25146e-02,0.21557e-02,0.18193e-02,0.15373e-02, & - & 0.12770e-02,0.10730e-02,0.99151e-03,0.11701e-02 /) - kao(:, 4, 9,14) = (/ & - & 0.28399e-02,0.24853e-02,0.21306e-02,0.18209e-02,0.15526e-02, & - & 0.13434e-02,0.11682e-02,0.11617e-02,0.13773e-02 /) - kao(:, 5, 9,14) = (/ & - & 0.28070e-02,0.24565e-02,0.21073e-02,0.18175e-02,0.15973e-02, & - & 0.14179e-02,0.12830e-02,0.13638e-02,0.16173e-02 /) - kao(:, 1,10,14) = (/ & - & 0.32399e-02,0.28350e-02,0.24302e-02,0.20252e-02,0.16589e-02, & - & 0.13407e-02,0.10274e-02,0.73986e-03,0.76203e-03 /) - kao(:, 2,10,14) = (/ & - & 0.31965e-02,0.27971e-02,0.23977e-02,0.20029e-02,0.16776e-02, & - & 0.13600e-02,0.10652e-02,0.84551e-03,0.93841e-03 /) - kao(:, 3,10,14) = (/ & - & 0.31601e-02,0.27653e-02,0.23707e-02,0.19975e-02,0.16883e-02, & - & 0.13843e-02,0.11385e-02,0.98230e-03,0.11352e-02 /) - kao(:, 4,10,14) = (/ & - & 0.31230e-02,0.27329e-02,0.23428e-02,0.19986e-02,0.16986e-02, & - & 0.14381e-02,0.12318e-02,0.11431e-02,0.13466e-02 /) - kao(:, 5,10,14) = (/ & - & 0.30838e-02,0.26986e-02,0.23157e-02,0.19957e-02,0.17285e-02, & - & 0.15111e-02,0.13270e-02,0.13396e-02,0.15853e-02 /) - kao(:, 1,11,14) = (/ & - & 0.35110e-02,0.30722e-02,0.26335e-02,0.21948e-02,0.18129e-02, & - & 0.14641e-02,0.11256e-02,0.79561e-03,0.78300e-03 /) - kao(:, 2,11,14) = (/ & - & 0.34682e-02,0.30349e-02,0.26015e-02,0.21788e-02,0.18300e-02, & - & 0.14846e-02,0.11655e-02,0.90541e-03,0.97352e-03 /) - kao(:, 3,11,14) = (/ & - & 0.34263e-02,0.29982e-02,0.25700e-02,0.21750e-02,0.18411e-02, & - & 0.15104e-02,0.12444e-02,0.10462e-02,0.11863e-02 /) - kao(:, 4,11,14) = (/ & - & 0.33817e-02,0.29592e-02,0.25369e-02,0.21760e-02,0.18525e-02, & - & 0.15666e-02,0.13382e-02,0.12088e-02,0.14124e-02 /) - kao(:, 5,11,14) = (/ & - & 0.33351e-02,0.29184e-02,0.25088e-02,0.21673e-02,0.18858e-02, & - & 0.16404e-02,0.14339e-02,0.14160e-02,0.16713e-02 /) - kao(:, 1,12,14) = (/ & - & 0.37813e-02,0.33087e-02,0.28362e-02,0.23654e-02,0.19642e-02, & - & 0.15868e-02,0.12220e-02,0.85134e-03,0.79810e-03 /) - kao(:, 2,12,14) = (/ & - & 0.37337e-02,0.32671e-02,0.28006e-02,0.23535e-02,0.19812e-02, & - & 0.16073e-02,0.12646e-02,0.96230e-03,0.10021e-02 /) - kao(:, 3,12,14) = (/ & - & 0.36838e-02,0.32235e-02,0.27633e-02,0.23494e-02,0.19898e-02, & - & 0.16363e-02,0.13472e-02,0.11056e-02,0.12297e-02 /) - kao(:, 4,12,14) = (/ & - & 0.36315e-02,0.31778e-02,0.27268e-02,0.23457e-02,0.20010e-02, & - & 0.16953e-02,0.14396e-02,0.12736e-02,0.14737e-02 /) - kao(:, 5,12,14) = (/ & - & 0.35780e-02,0.31310e-02,0.26962e-02,0.23324e-02,0.20383e-02, & - & 0.17680e-02,0.15379e-02,0.14913e-02,0.17515e-02 /) - kao(:, 1,13,14) = (/ & - & 0.40401e-02,0.35352e-02,0.30303e-02,0.25331e-02,0.21125e-02, & - & 0.17061e-02,0.13144e-02,0.90469e-03,0.81129e-03 /) - kao(:, 2,13,14) = (/ & - & 0.39897e-02,0.34912e-02,0.29926e-02,0.25245e-02,0.21272e-02, & - & 0.17273e-02,0.13608e-02,0.10148e-02,0.10248e-02 /) - kao(:, 3,13,14) = (/ & - & 0.39313e-02,0.34401e-02,0.29487e-02,0.25178e-02,0.21303e-02, & - & 0.17587e-02,0.14454e-02,0.11592e-02,0.12656e-02 /) - kao(:, 4,13,14) = (/ & - & 0.38694e-02,0.33859e-02,0.29093e-02,0.25068e-02,0.21412e-02, & - & 0.18203e-02,0.15361e-02,0.13357e-02,0.15298e-02 /) - kao(:, 5,13,14) = (/ & - & 0.38109e-02,0.33347e-02,0.28761e-02,0.24907e-02,0.21821e-02, & - & 0.18916e-02,0.16371e-02,0.15629e-02,0.18275e-02 /) - kao(:, 1, 1,15) = (/ & - & 0.15071e-02,0.13191e-02,0.11311e-02,0.94313e-03,0.82178e-03, & - & 0.90230e-03,0.10652e-02,0.11879e-02,0.14045e-02 /) - kao(:, 2, 1,15) = (/ & - & 0.15053e-02,0.13176e-02,0.11298e-02,0.94210e-03,0.87562e-03, & - & 0.10432e-02,0.12302e-02,0.13664e-02,0.16201e-02 /) - kao(:, 3, 1,15) = (/ & - & 0.15019e-02,0.13147e-02,0.11275e-02,0.94187e-03,0.97652e-03, & - & 0.12093e-02,0.14252e-02,0.15816e-02,0.18766e-02 /) - kao(:, 4, 1,15) = (/ & - & 0.14976e-02,0.13109e-02,0.11243e-02,0.96063e-03,0.11391e-02, & - & 0.14106e-02,0.16622e-02,0.18446e-02,0.21889e-02 /) - kao(:, 5, 1,15) = (/ & - & 0.14918e-02,0.13060e-02,0.11201e-02,0.10256e-02,0.13135e-02, & - & 0.16256e-02,0.19138e-02,0.21174e-02,0.25177e-02 /) - kao(:, 1, 2,15) = (/ & - & 0.17368e-02,0.15199e-02,0.13031e-02,0.10865e-02,0.93589e-03, & - & 0.95913e-03,0.11327e-02,0.12643e-02,0.15179e-02 /) - kao(:, 2, 2,15) = (/ & - & 0.17347e-02,0.15183e-02,0.13018e-02,0.10853e-02,0.98162e-03, & - & 0.11204e-02,0.13214e-02,0.14695e-02,0.17719e-02 /) - kao(:, 3, 2,15) = (/ & - & 0.17301e-02,0.15143e-02,0.12982e-02,0.10867e-02,0.10624e-02, & - & 0.13058e-02,0.15388e-02,0.17088e-02,0.20640e-02 /) - kao(:, 4, 2,15) = (/ & - & 0.17235e-02,0.15085e-02,0.12935e-02,0.11059e-02,0.12337e-02, & - & 0.15285e-02,0.18009e-02,0.19982e-02,0.24152e-02 /) - kao(:, 5, 2,15) = (/ & - & 0.17181e-02,0.15038e-02,0.12895e-02,0.11598e-02,0.14379e-02, & - & 0.17807e-02,0.20976e-02,0.23230e-02,0.28132e-02 /) - kao(:, 1, 3,15) = (/ & - & 0.19949e-02,0.17458e-02,0.14967e-02,0.12475e-02,0.10641e-02, & - & 0.10100e-02,0.11774e-02,0.13116e-02,0.16051e-02 /) - kao(:, 2, 3,15) = (/ & - & 0.19910e-02,0.17424e-02,0.14939e-02,0.12453e-02,0.11049e-02, & - & 0.11564e-02,0.13657e-02,0.15222e-02,0.18601e-02 /) - kao(:, 3, 3,15) = (/ & - & 0.19848e-02,0.17370e-02,0.14892e-02,0.12476e-02,0.11571e-02, & - & 0.13573e-02,0.16014e-02,0.17817e-02,0.21839e-02 /) - kao(:, 4, 3,15) = (/ & - & 0.19813e-02,0.17340e-02,0.14867e-02,0.12671e-02,0.12941e-02, & - & 0.15954e-02,0.18821e-02,0.20919e-02,0.25670e-02 /) - kao(:, 5, 3,15) = (/ & - & 0.19771e-02,0.17304e-02,0.14836e-02,0.13013e-02,0.15091e-02, & - & 0.18697e-02,0.22058e-02,0.24525e-02,0.30084e-02 /) - kao(:, 1, 4,15) = (/ & - & 0.23002e-02,0.20126e-02,0.17253e-02,0.14382e-02,0.12005e-02, & - & 0.10932e-02,0.12228e-02,0.13639e-02,0.16798e-02 /) - kao(:, 2, 4,15) = (/ & - & 0.22929e-02,0.20065e-02,0.17201e-02,0.14337e-02,0.12491e-02, & - & 0.11967e-02,0.14046e-02,0.15632e-02,0.19322e-02 /) - kao(:, 3, 4,15) = (/ & - & 0.22828e-02,0.19977e-02,0.17127e-02,0.14287e-02,0.12914e-02, & - & 0.13860e-02,0.16360e-02,0.18240e-02,0.22487e-02 /) - kao(:, 4, 4,15) = (/ & - & 0.22757e-02,0.19915e-02,0.17074e-02,0.14457e-02,0.13800e-02, & - & 0.16339e-02,0.19297e-02,0.21519e-02,0.26493e-02 /) - kao(:, 5, 4,15) = (/ & - & 0.22684e-02,0.19852e-02,0.17019e-02,0.14754e-02,0.15614e-02, & - & 0.19242e-02,0.22727e-02,0.25341e-02,0.31196e-02 /) - kao(:, 1, 5,15) = (/ & - & 0.26562e-02,0.23246e-02,0.19929e-02,0.16611e-02,0.13598e-02, & - & 0.11996e-02,0.12698e-02,0.14174e-02,0.17501e-02 /) - kao(:, 2, 5,15) = (/ & - & 0.26415e-02,0.23116e-02,0.19818e-02,0.16521e-02,0.14129e-02, & - & 0.12866e-02,0.14524e-02,0.16197e-02,0.20022e-02 /) - kao(:, 3, 5,15) = (/ & - & 0.26277e-02,0.22994e-02,0.19710e-02,0.16428e-02,0.14513e-02, & - & 0.14339e-02,0.16856e-02,0.18777e-02,0.23236e-02 /) - kao(:, 4, 5,15) = (/ & - & 0.26179e-02,0.22909e-02,0.19639e-02,0.16526e-02,0.15154e-02, & - & 0.16607e-02,0.19618e-02,0.21909e-02,0.27021e-02 /) - kao(:, 5, 5,15) = (/ & - & 0.26074e-02,0.22818e-02,0.19561e-02,0.16780e-02,0.16497e-02, & - & 0.19592e-02,0.23163e-02,0.25915e-02,0.31846e-02 /) - kao(:, 1, 6,15) = (/ & - & 0.30676e-02,0.26845e-02,0.23014e-02,0.19182e-02,0.15508e-02, & - & 0.13265e-02,0.13165e-02,0.14712e-02,0.18123e-02 /) - kao(:, 2, 6,15) = (/ & - & 0.30472e-02,0.26667e-02,0.22862e-02,0.19057e-02,0.15947e-02, & - & 0.14067e-02,0.15004e-02,0.16750e-02,0.20695e-02 /) - kao(:, 3, 6,15) = (/ & - & 0.30255e-02,0.26477e-02,0.22705e-02,0.18926e-02,0.16408e-02, & - & 0.15149e-02,0.17276e-02,0.19275e-02,0.23847e-02 /) - kao(:, 4, 6,15) = (/ & - & 0.30083e-02,0.26326e-02,0.22569e-02,0.18906e-02,0.16765e-02, & - & 0.17066e-02,0.20035e-02,0.22386e-02,0.27616e-02 /) - kao(:, 5, 6,15) = (/ & - & 0.29915e-02,0.26179e-02,0.22443e-02,0.19114e-02,0.17836e-02, & - & 0.19800e-02,0.23411e-02,0.26194e-02,0.32234e-02 /) - kao(:, 1, 7,15) = (/ & - & 0.35311e-02,0.30900e-02,0.26490e-02,0.22082e-02,0.17722e-02, & - & 0.14850e-02,0.13781e-02,0.15158e-02,0.18578e-02 /) - kao(:, 2, 7,15) = (/ & - & 0.35031e-02,0.30656e-02,0.26281e-02,0.21907e-02,0.18048e-02, & - & 0.15528e-02,0.15481e-02,0.17322e-02,0.21307e-02 /) - kao(:, 3, 7,15) = (/ & - & 0.34762e-02,0.30421e-02,0.26077e-02,0.21737e-02,0.18550e-02, & - & 0.16362e-02,0.17771e-02,0.19863e-02,0.24506e-02 /) - kao(:, 4, 7,15) = (/ & - & 0.34506e-02,0.30197e-02,0.25888e-02,0.21628e-02,0.18864e-02, & - & 0.17891e-02,0.20527e-02,0.22948e-02,0.28308e-02 /) - kao(:, 5, 7,15) = (/ & - & 0.34242e-02,0.29966e-02,0.25690e-02,0.21752e-02,0.19463e-02, & - & 0.20224e-02,0.23798e-02,0.26659e-02,0.32785e-02 /) - kao(:, 1, 8,15) = (/ & - & 0.40545e-02,0.35480e-02,0.30415e-02,0.25348e-02,0.20284e-02, & - & 0.16698e-02,0.14585e-02,0.15473e-02,0.18938e-02 /) - kao(:, 2, 8,15) = (/ & - & 0.40094e-02,0.35086e-02,0.30078e-02,0.25070e-02,0.20421e-02, & - & 0.17325e-02,0.16159e-02,0.17783e-02,0.21732e-02 /) - kao(:, 3, 8,15) = (/ & - & 0.39679e-02,0.34723e-02,0.29772e-02,0.24816e-02,0.20882e-02, & - & 0.17972e-02,0.18217e-02,0.20430e-02,0.25042e-02 /) - kao(:, 4, 8,15) = (/ & - & 0.39321e-02,0.34411e-02,0.29500e-02,0.24630e-02,0.21284e-02, & - & 0.19080e-02,0.21043e-02,0.23586e-02,0.28966e-02 /) - kao(:, 5, 8,15) = (/ & - & 0.38953e-02,0.34088e-02,0.29224e-02,0.24683e-02,0.21576e-02, & - & 0.21070e-02,0.24382e-02,0.27335e-02,0.33549e-02 /) - kao(:, 1, 9,15) = (/ & - & 0.46508e-02,0.40697e-02,0.34886e-02,0.29075e-02,0.23264e-02, & - & 0.18591e-02,0.15578e-02,0.15738e-02,0.19224e-02 /) - kao(:, 2, 9,15) = (/ & - & 0.45823e-02,0.40098e-02,0.34374e-02,0.28649e-02,0.23092e-02, & - & 0.19366e-02,0.17051e-02,0.18133e-02,0.22104e-02 /) - kao(:, 3, 9,15) = (/ & - & 0.45166e-02,0.39524e-02,0.33880e-02,0.28238e-02,0.23394e-02, & - & 0.19917e-02,0.18843e-02,0.20815e-02,0.25365e-02 /) - kao(:, 4, 9,15) = (/ & - & 0.44602e-02,0.39031e-02,0.33460e-02,0.27890e-02,0.23856e-02, & - & 0.20682e-02,0.21419e-02,0.24093e-02,0.29396e-02 /) - kao(:, 5, 9,15) = (/ & - & 0.44050e-02,0.38549e-02,0.33047e-02,0.27817e-02,0.24123e-02, & - & 0.22258e-02,0.24850e-02,0.27956e-02,0.34119e-02 /) - kao(:, 1,10,15) = (/ & - & 0.53098e-02,0.46463e-02,0.39828e-02,0.33194e-02,0.26559e-02, & - & 0.20766e-02,0.16840e-02,0.16129e-02,0.19635e-02 /) - kao(:, 2,10,15) = (/ & - & 0.52134e-02,0.45620e-02,0.39106e-02,0.32592e-02,0.26145e-02, & - & 0.21601e-02,0.18269e-02,0.18690e-02,0.22681e-02 /) - kao(:, 3,10,15) = (/ & - & 0.51182e-02,0.44788e-02,0.38392e-02,0.31998e-02,0.26226e-02, & - & 0.22138e-02,0.19824e-02,0.21416e-02,0.25956e-02 /) - kao(:, 4,10,15) = (/ & - & 0.50344e-02,0.44054e-02,0.37765e-02,0.31477e-02,0.26616e-02, & - & 0.22709e-02,0.22099e-02,0.24682e-02,0.29962e-02 /) - kao(:, 5,10,15) = (/ & - & 0.49550e-02,0.43361e-02,0.37172e-02,0.31183e-02,0.26883e-02, & - & 0.23873e-02,0.25425e-02,0.28708e-02,0.34790e-02 /) - kao(:, 1,11,15) = (/ & - & 0.59619e-02,0.52169e-02,0.44719e-02,0.37267e-02,0.29817e-02, & - & 0.23525e-02,0.18854e-02,0.17723e-02,0.21445e-02 /) - kao(:, 2,11,15) = (/ & - & 0.58318e-02,0.51031e-02,0.43744e-02,0.36457e-02,0.29351e-02, & - & 0.24253e-02,0.20278e-02,0.20449e-02,0.24715e-02 /) - kao(:, 3,11,15) = (/ & - & 0.57112e-02,0.49976e-02,0.42840e-02,0.35704e-02,0.29381e-02, & - & 0.24724e-02,0.21871e-02,0.23372e-02,0.28231e-02 /) - kao(:, 4,11,15) = (/ & - & 0.56008e-02,0.49010e-02,0.42013e-02,0.35025e-02,0.29677e-02, & - & 0.25269e-02,0.24222e-02,0.27009e-02,0.32614e-02 /) - kao(:, 5,11,15) = (/ & - & 0.54961e-02,0.48096e-02,0.41230e-02,0.34666e-02,0.29811e-02, & - & 0.26438e-02,0.27691e-02,0.31324e-02,0.37747e-02 /) - kao(:, 1,12,15) = (/ & - & 0.66218e-02,0.57942e-02,0.49667e-02,0.41391e-02,0.33116e-02, & - & 0.26382e-02,0.20922e-02,0.19344e-02,0.23267e-02 /) - kao(:, 2,12,15) = (/ & - & 0.64584e-02,0.56513e-02,0.48443e-02,0.40372e-02,0.32618e-02, & - & 0.26974e-02,0.22343e-02,0.22270e-02,0.26783e-02 /) - kao(:, 3,12,15) = (/ & - & 0.63097e-02,0.55213e-02,0.47331e-02,0.39445e-02,0.32599e-02, & - & 0.27357e-02,0.23983e-02,0.25418e-02,0.30577e-02 /) - kao(:, 4,12,15) = (/ & - & 0.61694e-02,0.53986e-02,0.46278e-02,0.38631e-02,0.32772e-02, & - & 0.27857e-02,0.26412e-02,0.29352e-02,0.35233e-02 /) - kao(:, 5,12,15) = (/ & - & 0.60360e-02,0.52820e-02,0.45279e-02,0.38177e-02,0.32735e-02, & - & 0.29011e-02,0.29998e-02,0.33948e-02,0.40685e-02 /) - kao(:, 1,13,15) = (/ & - & 0.72856e-02,0.63751e-02,0.54646e-02,0.45539e-02,0.36434e-02, & - & 0.29246e-02,0.23024e-02,0.20968e-02,0.25004e-02 /) - kao(:, 2,13,15) = (/ & - & 0.70792e-02,0.61945e-02,0.53099e-02,0.44252e-02,0.35875e-02, & - & 0.29681e-02,0.24397e-02,0.24073e-02,0.28787e-02 /) - kao(:, 3,13,15) = (/ & - & 0.68966e-02,0.60348e-02,0.51733e-02,0.43112e-02,0.35811e-02, & - & 0.29976e-02,0.26071e-02,0.27479e-02,0.32886e-02 /) - kao(:, 4,13,15) = (/ & - & 0.67258e-02,0.58855e-02,0.50451e-02,0.42204e-02,0.35830e-02, & - & 0.30400e-02,0.28573e-02,0.31625e-02,0.37791e-02 /) - kao(:, 5,13,15) = (/ & - & 0.65607e-02,0.57411e-02,0.49214e-02,0.41617e-02,0.35593e-02, & - & 0.31530e-02,0.32258e-02,0.36487e-02,0.43508e-02 /) - kao(:, 1, 1,16) = (/ & - & 0.16712e-02,0.14631e-02,0.12550e-02,0.10468e-02,0.92082e-03, & - & 0.11371e-02,0.13321e-02,0.14544e-02,0.17472e-02 /) - kao(:, 2, 1,16) = (/ & - & 0.16787e-02,0.14701e-02,0.12615e-02,0.10530e-02,0.10440e-02, & - & 0.12893e-02,0.15114e-02,0.16524e-02,0.19826e-02 /) - kao(:, 3, 1,16) = (/ & - & 0.16875e-02,0.14779e-02,0.12683e-02,0.10588e-02,0.11676e-02, & - & 0.14424e-02,0.16914e-02,0.18523e-02,0.22202e-02 /) - kao(:, 4, 1,16) = (/ & - & 0.16926e-02,0.14826e-02,0.12725e-02,0.10626e-02,0.12909e-02, & - & 0.15950e-02,0.18720e-02,0.20532e-02,0.24579e-02 /) - kao(:, 5, 1,16) = (/ & - & 0.16942e-02,0.14841e-02,0.12739e-02,0.11419e-02,0.15149e-02, & - & 0.18796e-02,0.22246e-02,0.24968e-02,0.29379e-02 /) - kao(:, 1, 2,16) = (/ & - & 0.19607e-02,0.17158e-02,0.14714e-02,0.12274e-02,0.10440e-02, & - & 0.12890e-02,0.15097e-02,0.16471e-02,0.20285e-02 /) - kao(:, 2, 2,16) = (/ & - & 0.19666e-02,0.17216e-02,0.14767e-02,0.12314e-02,0.11872e-02, & - & 0.14659e-02,0.17177e-02,0.18761e-02,0.23077e-02 /) - kao(:, 3, 2,16) = (/ & - & 0.19740e-02,0.17284e-02,0.14830e-02,0.12374e-02,0.13301e-02, & - & 0.16429e-02,0.19255e-02,0.21058e-02,0.25866e-02 /) - kao(:, 4, 2,16) = (/ & - & 0.19796e-02,0.17334e-02,0.14872e-02,0.12416e-02,0.14717e-02, & - & 0.18182e-02,0.21321e-02,0.23342e-02,0.28637e-02 /) - kao(:, 5, 2,16) = (/ & - & 0.19818e-02,0.17354e-02,0.14891e-02,0.12544e-02,0.16318e-02, & - & 0.20217e-02,0.23832e-02,0.26470e-02,0.31951e-02 /) - kao(:, 1, 3,16) = (/ & - & 0.23039e-02,0.20168e-02,0.17292e-02,0.14410e-02,0.11614e-02, & - & 0.14213e-02,0.16646e-02,0.18149e-02,0.22923e-02 /) - kao(:, 2, 3,16) = (/ & - & 0.23064e-02,0.20187e-02,0.17311e-02,0.14440e-02,0.13190e-02, & - & 0.16288e-02,0.19083e-02,0.20825e-02,0.26267e-02 /) - kao(:, 3, 3,16) = (/ & - & 0.23119e-02,0.20237e-02,0.17351e-02,0.14470e-02,0.14864e-02, & - & 0.18354e-02,0.21515e-02,0.23501e-02,0.29596e-02 /) - kao(:, 4, 3,16) = (/ & - & 0.23154e-02,0.20269e-02,0.17385e-02,0.14496e-02,0.16513e-02, & - & 0.20395e-02,0.23915e-02,0.26154e-02,0.32883e-02 /) - kao(:, 5, 3,16) = (/ & - & 0.23212e-02,0.20321e-02,0.17430e-02,0.14536e-02,0.18129e-02, & - & 0.22398e-02,0.26272e-02,0.28760e-02,0.36101e-02 /) - kao(:, 1, 4,16) = (/ & - & 0.27129e-02,0.23736e-02,0.20348e-02,0.16965e-02,0.13577e-02, & - & 0.15487e-02,0.18138e-02,0.19776e-02,0.25289e-02 /) - kao(:, 2, 4,16) = (/ & - & 0.27133e-02,0.23745e-02,0.20358e-02,0.16966e-02,0.14516e-02, & - & 0.17925e-02,0.21002e-02,0.22917e-02,0.29262e-02 /) - kao(:, 3, 4,16) = (/ & - & 0.27155e-02,0.23766e-02,0.20379e-02,0.16990e-02,0.16483e-02, & - & 0.20360e-02,0.23858e-02,0.26061e-02,0.33224e-02 /) - kao(:, 4, 4,16) = (/ & - & 0.27175e-02,0.23784e-02,0.20394e-02,0.17007e-02,0.18426e-02, & - & 0.22757e-02,0.26681e-02,0.29171e-02,0.37132e-02 /) - kao(:, 5, 4,16) = (/ & - & 0.27186e-02,0.23796e-02,0.20406e-02,0.17019e-02,0.20320e-02, & - & 0.25101e-02,0.29443e-02,0.32220e-02,0.40947e-02 /) - kao(:, 1, 5,16) = (/ & - & 0.32119e-02,0.28114e-02,0.24099e-02,0.20078e-02,0.16065e-02, & - & 0.16767e-02,0.19643e-02,0.21431e-02,0.27523e-02 /) - kao(:, 2, 5,16) = (/ & - & 0.32085e-02,0.28077e-02,0.24069e-02,0.20064e-02,0.16195e-02, & - & 0.19633e-02,0.23007e-02,0.25120e-02,0.32215e-02 /) - kao(:, 3, 5,16) = (/ & - & 0.32085e-02,0.28078e-02,0.24068e-02,0.20061e-02,0.18214e-02, & - & 0.22501e-02,0.26375e-02,0.28827e-02,0.36897e-02 /) - kao(:, 4, 5,16) = (/ & - & 0.32059e-02,0.28056e-02,0.24053e-02,0.20050e-02,0.20501e-02, & - & 0.25321e-02,0.29699e-02,0.32491e-02,0.41521e-02 /) - kao(:, 5, 5,16) = (/ & - & 0.31984e-02,0.27990e-02,0.23997e-02,0.20000e-02,0.22727e-02, & - & 0.28084e-02,0.32949e-02,0.36079e-02,0.46028e-02 /) - kao(:, 1, 6,16) = (/ & - & 0.38076e-02,0.33317e-02,0.28559e-02,0.23799e-02,0.19041e-02, & - & 0.17889e-02,0.20969e-02,0.22903e-02,0.29420e-02 /) - kao(:, 2, 6,16) = (/ & - & 0.37964e-02,0.33220e-02,0.28476e-02,0.23732e-02,0.18989e-02, & - & 0.21234e-02,0.24900e-02,0.27226e-02,0.34908e-02 /) - kao(:, 3, 6,16) = (/ & - & 0.37877e-02,0.33145e-02,0.28416e-02,0.23683e-02,0.19985e-02, & - & 0.24600e-02,0.28851e-02,0.31576e-02,0.40421e-02 /) - kao(:, 4, 6,16) = (/ & - & 0.37785e-02,0.33065e-02,0.28344e-02,0.23627e-02,0.22594e-02, & - & 0.27919e-02,0.32761e-02,0.35889e-02,0.45855e-02 /) - kao(:, 5, 6,16) = (/ & - & 0.37630e-02,0.32929e-02,0.28229e-02,0.23532e-02,0.25213e-02, & - & 0.31161e-02,0.36579e-02,0.40115e-02,0.51155e-02 /) - kao(:, 1, 7,16) = (/ & - & 0.45014e-02,0.39388e-02,0.33762e-02,0.28135e-02,0.22509e-02, & - & 0.18859e-02,0.22117e-02,0.24208e-02,0.31038e-02 /) - kao(:, 2, 7,16) = (/ & - & 0.44788e-02,0.39190e-02,0.33593e-02,0.27996e-02,0.22399e-02, & - & 0.22735e-02,0.26677e-02,0.29222e-02,0.37394e-02 /) - kao(:, 3, 7,16) = (/ & - & 0.44593e-02,0.39020e-02,0.33439e-02,0.27867e-02,0.22518e-02, & - & 0.26648e-02,0.31283e-02,0.34304e-02,0.43806e-02 /) - kao(:, 4, 7,16) = (/ & - & 0.44374e-02,0.38829e-02,0.33284e-02,0.27732e-02,0.24705e-02, & - & 0.30533e-02,0.35850e-02,0.39361e-02,0.50160e-02 /) - kao(:, 5, 7,16) = (/ & - & 0.44113e-02,0.38601e-02,0.33089e-02,0.27567e-02,0.27756e-02, & - & 0.34321e-02,0.40324e-02,0.44314e-02,0.56359e-02 /) - kao(:, 1, 8,16) = (/ & - & 0.53031e-02,0.46403e-02,0.39774e-02,0.33149e-02,0.26520e-02, & - & 0.20316e-02,0.23080e-02,0.25314e-02,0.32334e-02 /) - kao(:, 2, 8,16) = (/ & - & 0.52648e-02,0.46067e-02,0.39487e-02,0.32907e-02,0.26325e-02, & - & 0.24096e-02,0.28298e-02,0.31081e-02,0.39611e-02 /) - kao(:, 3, 8,16) = (/ & - & 0.52246e-02,0.45716e-02,0.39189e-02,0.32659e-02,0.26125e-02, & - & 0.28611e-02,0.33614e-02,0.36958e-02,0.47006e-02 /) - kao(:, 4, 8,16) = (/ & - & 0.51821e-02,0.45344e-02,0.38868e-02,0.32390e-02,0.27289e-02, & - & 0.33103e-02,0.38912e-02,0.42829e-02,0.54355e-02 /) - kao(:, 5, 8,16) = (/ & - & 0.51356e-02,0.44938e-02,0.38520e-02,0.32108e-02,0.30299e-02, & - & 0.37493e-02,0.44090e-02,0.48604e-02,0.61537e-02 /) - kao(:, 1, 9,16) = (/ & - & 0.62116e-02,0.54352e-02,0.46587e-02,0.38825e-02,0.31060e-02, & - & 0.23296e-02,0.23830e-02,0.26152e-02,0.33400e-02 /) - kao(:, 2, 9,16) = (/ & - & 0.61510e-02,0.53822e-02,0.46134e-02,0.38445e-02,0.30756e-02, & - & 0.25421e-02,0.29622e-02,0.32625e-02,0.41372e-02 /) - kao(:, 3, 9,16) = (/ & - & 0.60862e-02,0.53255e-02,0.45651e-02,0.38044e-02,0.30427e-02, & - & 0.30332e-02,0.35680e-02,0.39355e-02,0.49777e-02 /) - kao(:, 4, 9,16) = (/ & - & 0.60169e-02,0.52649e-02,0.45129e-02,0.37608e-02,0.30629e-02, & - & 0.35468e-02,0.41747e-02,0.46107e-02,0.58172e-02 /) - kao(:, 5, 9,16) = (/ & - & 0.59428e-02,0.52001e-02,0.44573e-02,0.37148e-02,0.33039e-02, & - & 0.40510e-02,0.47683e-02,0.52747e-02,0.66403e-02 /) - kao(:, 1,10,16) = (/ & - & 0.72226e-02,0.63198e-02,0.54170e-02,0.45138e-02,0.36111e-02, & - & 0.27087e-02,0.25246e-02,0.27733e-02,0.35348e-02 /) - kao(:, 2,10,16) = (/ & - & 0.71308e-02,0.62395e-02,0.53482e-02,0.44569e-02,0.35656e-02, & - & 0.27737e-02,0.31148e-02,0.34380e-02,0.43453e-02 /) - kao(:, 3,10,16) = (/ & - & 0.70337e-02,0.61546e-02,0.52755e-02,0.43963e-02,0.35178e-02, & - & 0.32195e-02,0.37898e-02,0.41956e-02,0.52718e-02 /) - kao(:, 4,10,16) = (/ & - & 0.69308e-02,0.60645e-02,0.51982e-02,0.43312e-02,0.34725e-02, & - & 0.37977e-02,0.44773e-02,0.49627e-02,0.62190e-02 /) - kao(:, 5,10,16) = (/ & - & 0.68213e-02,0.59687e-02,0.51162e-02,0.42630e-02,0.36577e-02, & - & 0.43690e-02,0.51523e-02,0.57195e-02,0.71486e-02 /) - kao(:, 1,11,16) = (/ & - & 0.82729e-02,0.72388e-02,0.62047e-02,0.51704e-02,0.41364e-02, & - & 0.31022e-02,0.29450e-02,0.32481e-02,0.41092e-02 /) - kao(:, 2,11,16) = (/ & - & 0.81377e-02,0.71207e-02,0.61034e-02,0.50862e-02,0.40694e-02, & - & 0.32023e-02,0.35972e-02,0.39817e-02,0.50045e-02 /) - kao(:, 3,11,16) = (/ & - & 0.79927e-02,0.69937e-02,0.59945e-02,0.49955e-02,0.39980e-02, & - & 0.36849e-02,0.43305e-02,0.48162e-02,0.60016e-02 /) - kao(:, 4,11,16) = (/ & - & 0.78435e-02,0.68631e-02,0.58827e-02,0.49014e-02,0.39530e-02, & - & 0.43152e-02,0.50942e-02,0.56750e-02,0.70494e-02 /) - kao(:, 5,11,16) = (/ & - & 0.76868e-02,0.67260e-02,0.57653e-02,0.48045e-02,0.41698e-02, & - & 0.49442e-02,0.58408e-02,0.65151e-02,0.80731e-02 /) - kao(:, 1,12,16) = (/ & - & 0.93677e-02,0.81967e-02,0.70258e-02,0.58546e-02,0.46837e-02, & - & 0.35124e-02,0.33991e-02,0.37659e-02,0.47255e-02 /) - kao(:, 2,12,16) = (/ & - & 0.91725e-02,0.80259e-02,0.68794e-02,0.57329e-02,0.45871e-02, & - & 0.36555e-02,0.41158e-02,0.45739e-02,0.57058e-02 /) - kao(:, 3,12,16) = (/ & - & 0.89743e-02,0.78526e-02,0.67312e-02,0.56083e-02,0.44874e-02, & - & 0.41738e-02,0.49000e-02,0.54681e-02,0.67707e-02 /) - kao(:, 4,12,16) = (/ & - & 0.87651e-02,0.76695e-02,0.65740e-02,0.54780e-02,0.44541e-02, & - & 0.48422e-02,0.57276e-02,0.64103e-02,0.78928e-02 /) - kao(:, 5,12,16) = (/ & - & 0.85557e-02,0.74863e-02,0.64169e-02,0.53471e-02,0.46965e-02, & - & 0.55261e-02,0.65398e-02,0.73300e-02,0.90026e-02 /) - kao(:, 1,13,16) = (/ & - & 0.10484e-01,0.91737e-02,0.78632e-02,0.65525e-02,0.52420e-02, & - & 0.39330e-02,0.38753e-02,0.43130e-02,0.53655e-02 /) - kao(:, 2,13,16) = (/ & - & 0.10212e-01,0.89352e-02,0.76588e-02,0.63823e-02,0.51063e-02, & - & 0.41214e-02,0.46538e-02,0.51962e-02,0.64287e-02 /) - kao(:, 3,13,16) = (/ & - & 0.99472e-02,0.87039e-02,0.74620e-02,0.62164e-02,0.49733e-02, & - & 0.46683e-02,0.54886e-02,0.61482e-02,0.75590e-02 /) - kao(:, 4,13,16) = (/ & - & 0.96776e-02,0.84679e-02,0.72583e-02,0.60495e-02,0.49611e-02, & - & 0.53643e-02,0.63558e-02,0.71458e-02,0.87290e-02 /) - kao(:, 5,13,16) = (/ & - & 0.94084e-02,0.82324e-02,0.70564e-02,0.58807e-02,0.52210e-02, & - & 0.60971e-02,0.72271e-02,0.81397e-02,0.99102e-02 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:,13, 1) = (/ & - & 0.33062e-11,0.42306e-11,0.53172e-11,0.65673e-11,0.78335e-11 /) - kbo(:,14, 1) = (/ & - & 0.27467e-11,0.35252e-11,0.44160e-11,0.54171e-11,0.64630e-11 /) - kbo(:,15, 1) = (/ & - & 0.23431e-11,0.29962e-11,0.37507e-11,0.46179e-11,0.54790e-11 /) - kbo(:,16, 1) = (/ & - & 0.20178e-11,0.25698e-11,0.32330e-11,0.40024e-11,0.46899e-11 /) - kbo(:,17, 1) = (/ & - & 0.17389e-11,0.22126e-11,0.27864e-11,0.34615e-11,0.40184e-11 /) - kbo(:,18, 1) = (/ & - & 0.15164e-11,0.19304e-11,0.24263e-11,0.29918e-11,0.34734e-11 /) - kbo(:,19, 1) = (/ & - & 0.13194e-11,0.16684e-11,0.20851e-11,0.25471e-11,0.29992e-11 /) - kbo(:,20, 1) = (/ & - & 0.11345e-11,0.14317e-11,0.17813e-11,0.21686e-11,0.25523e-11 /) - kbo(:,21, 1) = (/ & - & 0.97614e-12,0.12233e-11,0.15124e-11,0.18436e-11,0.21624e-11 /) - kbo(:,22, 1) = (/ & - & 0.84972e-12,0.10604e-11,0.13001e-11,0.15853e-11,0.18511e-11 /) - kbo(:,23, 1) = (/ & - & 0.73919e-12,0.91863e-12,0.11179e-11,0.13612e-11,0.15791e-11 /) - kbo(:,24, 1) = (/ & - & 0.63952e-12,0.79203e-12,0.96272e-12,0.11643e-11,0.13384e-11 /) - kbo(:,25, 1) = (/ & - & 0.55198e-12,0.68176e-12,0.82782e-12,0.99347e-12,0.11342e-11 /) - kbo(:,26, 1) = (/ & - & 0.47648e-12,0.58395e-12,0.71214e-12,0.84565e-12,0.96146e-12 /) - kbo(:,27, 1) = (/ & - & 0.41185e-12,0.50403e-12,0.61156e-12,0.71539e-12,0.81410e-12 /) - kbo(:,28, 1) = (/ & - & 0.35568e-12,0.43404e-12,0.52441e-12,0.60652e-12,0.68860e-12 /) - kbo(:,29, 1) = (/ & - & 0.30863e-12,0.37487e-12,0.45120e-12,0.51591e-12,0.58367e-12 /) - kbo(:,30, 1) = (/ & - & 0.26804e-12,0.32390e-12,0.38615e-12,0.43956e-12,0.49890e-12 /) - kbo(:,31, 1) = (/ & - & 0.23316e-12,0.28106e-12,0.33068e-12,0.37478e-12,0.42377e-12 /) - kbo(:,32, 1) = (/ & - & 0.20255e-12,0.24397e-12,0.28293e-12,0.31878e-12,0.36224e-12 /) - kbo(:,33, 1) = (/ & - & 0.17541e-12,0.21018e-12,0.24052e-12,0.27083e-12,0.30963e-12 /) - kbo(:,34, 1) = (/ & - & 0.15014e-12,0.17890e-12,0.20293e-12,0.23058e-12,0.26131e-12 /) - kbo(:,35, 1) = (/ & - & 0.12610e-12,0.14972e-12,0.16906e-12,0.19250e-12,0.21752e-12 /) - kbo(:,36, 1) = (/ & - & 0.10365e-12,0.12301e-12,0.13878e-12,0.15810e-12,0.17856e-12 /) - kbo(:,37, 1) = (/ & - & 0.82572e-13,0.98388e-13,0.11143e-12,0.12645e-12,0.14343e-12 /) - kbo(:,38, 1) = (/ & - & 0.65632e-13,0.78531e-13,0.89359e-13,0.10135e-12,0.11495e-12 /) - kbo(:,39, 1) = (/ & - & 0.52174e-13,0.62607e-13,0.71650e-13,0.80738e-13,0.92112e-13 /) - kbo(:,40, 1) = (/ & - & 0.40434e-13,0.48683e-13,0.56479e-13,0.63806e-13,0.72155e-13 /) - kbo(:,41, 1) = (/ & - & 0.31179e-13,0.37691e-13,0.44339e-13,0.50247e-13,0.56982e-13 /) - kbo(:,42, 1) = (/ & - & 0.24040e-13,0.29161e-13,0.34731e-13,0.39467e-13,0.44922e-13 /) - kbo(:,43, 1) = (/ & - & 0.18259e-13,0.22185e-13,0.26753e-13,0.30617e-13,0.34721e-13 /) - kbo(:,44, 1) = (/ & - & 0.13667e-13,0.16662e-13,0.20308e-13,0.23577e-13,0.26865e-13 /) - kbo(:,45, 1) = (/ & - & 0.10182e-13,0.12571e-13,0.15345e-13,0.18028e-13,0.20725e-13 /) - kbo(:,46, 1) = (/ & - & 0.75196e-14,0.94092e-14,0.11475e-13,0.13704e-13,0.15878e-13 /) - kbo(:,47, 1) = (/ & - & 0.54721e-14,0.69523e-14,0.85280e-14,0.10311e-13,0.11952e-13 /) - kbo(:,48, 1) = (/ & - & 0.39619e-14,0.50439e-14,0.62896e-14,0.77193e-14,0.89282e-14 /) - kbo(:,49, 1) = (/ & - & 0.28508e-14,0.36419e-14,0.46044e-14,0.57276e-14,0.66866e-14 /) - kbo(:,50, 1) = (/ & - & 0.20973e-14,0.26588e-14,0.33754e-14,0.42404e-14,0.50338e-14 /) - kbo(:,51, 1) = (/ & - & 0.15010e-14,0.19461e-14,0.24807e-14,0.31095e-14,0.37789e-14 /) - kbo(:,52, 1) = (/ & - & 0.10686e-14,0.14205e-14,0.18164e-14,0.22651e-14,0.27790e-14 /) - kbo(:,53, 1) = (/ & - & 0.75469e-15,0.10279e-14,0.13211e-14,0.16657e-14,0.20344e-14 /) - kbo(:,54, 1) = (/ & - & 0.53837e-15,0.75440e-15,0.97064e-15,0.12260e-14,0.15156e-14 /) - kbo(:,55, 1) = (/ & - & 0.38620e-15,0.54750e-15,0.71223e-15,0.90921e-15,0.11265e-14 /) - kbo(:,56, 1) = (/ & - & 0.27852e-15,0.39135e-15,0.51858e-15,0.66760e-15,0.83486e-15 /) - kbo(:,57, 1) = (/ & - & 0.20280e-15,0.27940e-15,0.37558e-15,0.48656e-15,0.61658e-15 /) - kbo(:,58, 1) = (/ & - & 0.14586e-15,0.19788e-15,0.27273e-15,0.35391e-15,0.45250e-15 /) - kbo(:,59, 1) = (/ & - & 0.11164e-15,0.15082e-15,0.20804e-15,0.27081e-15,0.49339e-15 /) - kbo(:,13, 2) = (/ & - & 0.15800e-10,0.20781e-10,0.26154e-10,0.31936e-10,0.38062e-10 /) - kbo(:,14, 2) = (/ & - & 0.13333e-10,0.17459e-10,0.21881e-10,0.26666e-10,0.31696e-10 /) - kbo(:,15, 2) = (/ & - & 0.11381e-10,0.14784e-10,0.18449e-10,0.22397e-10,0.26533e-10 /) - kbo(:,16, 2) = (/ & - & 0.97593e-11,0.12591e-10,0.15641e-10,0.18845e-10,0.22503e-10 /) - kbo(:,17, 2) = (/ & - & 0.83473e-11,0.10709e-10,0.13261e-10,0.15857e-10,0.19052e-10 /) - kbo(:,18, 2) = (/ & - & 0.71523e-11,0.91255e-11,0.11229e-10,0.13436e-10,0.16145e-10 /) - kbo(:,19, 2) = (/ & - & 0.60777e-11,0.77489e-11,0.94796e-11,0.11415e-10,0.13591e-10 /) - kbo(:,20, 2) = (/ & - & 0.51693e-11,0.65609e-11,0.80124e-11,0.96944e-11,0.11427e-10 /) - kbo(:,21, 2) = (/ & - & 0.43931e-11,0.55492e-11,0.67698e-11,0.81825e-11,0.95836e-11 /) - kbo(:,22, 2) = (/ & - & 0.37967e-11,0.47515e-11,0.57759e-11,0.69676e-11,0.81090e-11 /) - kbo(:,23, 2) = (/ & - & 0.32747e-11,0.40830e-11,0.49616e-11,0.59280e-11,0.68614e-11 /) - kbo(:,24, 2) = (/ & - & 0.28215e-11,0.34976e-11,0.42532e-11,0.50228e-11,0.57971e-11 /) - kbo(:,25, 2) = (/ & - & 0.24334e-11,0.29960e-11,0.36396e-11,0.42606e-11,0.49056e-11 /) - kbo(:,26, 2) = (/ & - & 0.21117e-11,0.25752e-11,0.31134e-11,0.36244e-11,0.41489e-11 /) - kbo(:,27, 2) = (/ & - & 0.18253e-11,0.22243e-11,0.26576e-11,0.30793e-11,0.35048e-11 /) - kbo(:,28, 2) = (/ & - & 0.15682e-11,0.19141e-11,0.22636e-11,0.26109e-11,0.29589e-11 /) - kbo(:,29, 2) = (/ & - & 0.13535e-11,0.16466e-11,0.19296e-11,0.22145e-11,0.25005e-11 /) - kbo(:,30, 2) = (/ & - & 0.11709e-11,0.14136e-11,0.16432e-11,0.18792e-11,0.21240e-11 /) - kbo(:,31, 2) = (/ & - & 0.10216e-11,0.12142e-11,0.14045e-11,0.15978e-11,0.18001e-11 /) - kbo(:,32, 2) = (/ & - & 0.88417e-12,0.10400e-11,0.11973e-11,0.13566e-11,0.15303e-11 /) - kbo(:,33, 2) = (/ & - & 0.76210e-12,0.89004e-12,0.10199e-11,0.11509e-11,0.12984e-11 /) - kbo(:,34, 2) = (/ & - & 0.64910e-12,0.75460e-12,0.86122e-12,0.97227e-12,0.10908e-11 /) - kbo(:,35, 2) = (/ & - & 0.54374e-12,0.63015e-12,0.71745e-12,0.80944e-12,0.90628e-12 /) - kbo(:,36, 2) = (/ & - & 0.44718e-12,0.51791e-12,0.58946e-12,0.66527e-12,0.74411e-12 /) - kbo(:,37, 2) = (/ & - & 0.35793e-12,0.41591e-12,0.47443e-12,0.53549e-12,0.60041e-12 /) - kbo(:,38, 2) = (/ & - & 0.28618e-12,0.33345e-12,0.38124e-12,0.43139e-12,0.48394e-12 /) - kbo(:,39, 2) = (/ & - & 0.22858e-12,0.26729e-12,0.30628e-12,0.34554e-12,0.38998e-12 /) - kbo(:,40, 2) = (/ & - & 0.17867e-12,0.21032e-12,0.24207e-12,0.27407e-12,0.30925e-12 /) - kbo(:,41, 2) = (/ & - & 0.13875e-12,0.16498e-12,0.19072e-12,0.21688e-12,0.24410e-12 /) - kbo(:,42, 2) = (/ & - & 0.10714e-12,0.12915e-12,0.14999e-12,0.17156e-12,0.19364e-12 /) - kbo(:,43, 2) = (/ & - & 0.81856e-13,0.99592e-13,0.11661e-12,0.13414e-12,0.15145e-12 /) - kbo(:,44, 2) = (/ & - & 0.62221e-13,0.75886e-13,0.90106e-13,0.10425e-12,0.11838e-12 /) - kbo(:,45, 2) = (/ & - & 0.47139e-13,0.57421e-13,0.69401e-13,0.80830e-13,0.92462e-13 /) - kbo(:,46, 2) = (/ & - & 0.35469e-13,0.43603e-13,0.52913e-13,0.62345e-13,0.71769e-13 /) - kbo(:,47, 2) = (/ & - & 0.26308e-13,0.32606e-13,0.39610e-13,0.47505e-13,0.55354e-13 /) - kbo(:,48, 2) = (/ & - & 0.19388e-13,0.24430e-13,0.29903e-13,0.35902e-13,0.42540e-13 /) - kbo(:,49, 2) = (/ & - & 0.14144e-13,0.18180e-13,0.22467e-13,0.26985e-13,0.32471e-13 /) - kbo(:,50, 2) = (/ & - & 0.10280e-13,0.13471e-13,0.16900e-13,0.20465e-13,0.24665e-13 /) - kbo(:,51, 2) = (/ & - & 0.74898e-14,0.99392e-14,0.12674e-13,0.15571e-13,0.18663e-13 /) - kbo(:,52, 2) = (/ & - & 0.54214e-14,0.72917e-14,0.94517e-14,0.11816e-13,0.14256e-13 /) - kbo(:,53, 2) = (/ & - & 0.38970e-14,0.53165e-14,0.69989e-14,0.88828e-14,0.10862e-13 /) - kbo(:,54, 2) = (/ & - & 0.27972e-14,0.38775e-14,0.51927e-14,0.66775e-14,0.82659e-14 /) - kbo(:,55, 2) = (/ & - & 0.19962e-14,0.28257e-14,0.38491e-14,0.50059e-14,0.62864e-14 /) - kbo(:,56, 2) = (/ & - & 0.14049e-14,0.20447e-14,0.28389e-14,0.37444e-14,0.47474e-14 /) - kbo(:,57, 2) = (/ & - & 0.97467e-15,0.14635e-14,0.20787e-14,0.27878e-14,0.35737e-14 /) - kbo(:,58, 2) = (/ & - & 0.67770e-15,0.10398e-14,0.15169e-14,0.20739e-14,0.26951e-14 /) - kbo(:,59, 2) = (/ & - & 0.50857e-15,0.79496e-15,0.11749e-14,0.16262e-14,0.21270e-14 /) - kbo(:,13, 3) = (/ & - & 0.93671e-10,0.11591e-09,0.13715e-09,0.15779e-09,0.17870e-09 /) - kbo(:,14, 3) = (/ & - & 0.78883e-10,0.96971e-10,0.11437e-09,0.13160e-09,0.14863e-09 /) - kbo(:,15, 3) = (/ & - & 0.66900e-10,0.81568e-10,0.96052e-10,0.11028e-09,0.12439e-09 /) - kbo(:,16, 3) = (/ & - & 0.56737e-10,0.68853e-10,0.80870e-10,0.92769e-10,0.10422e-09 /) - kbo(:,17, 3) = (/ & - & 0.48148e-10,0.58209e-10,0.68168e-10,0.78006e-10,0.87308e-10 /) - kbo(:,18, 3) = (/ & - & 0.40874e-10,0.49268e-10,0.57591e-10,0.65627e-10,0.73296e-10 /) - kbo(:,19, 3) = (/ & - & 0.34619e-10,0.41578e-10,0.48414e-10,0.55049e-10,0.61235e-10 /) - kbo(:,20, 3) = (/ & - & 0.29370e-10,0.35034e-10,0.40682e-10,0.46014e-10,0.51115e-10 /) - kbo(:,21, 3) = (/ & - & 0.24821e-10,0.29490e-10,0.34141e-10,0.38423e-10,0.42621e-10 /) - kbo(:,22, 3) = (/ & - & 0.21204e-10,0.25041e-10,0.28846e-10,0.32305e-10,0.35757e-10 /) - kbo(:,23, 3) = (/ & - & 0.18107e-10,0.21244e-10,0.24304e-10,0.27144e-10,0.30005e-10 /) - kbo(:,24, 3) = (/ & - & 0.15432e-10,0.18015e-10,0.20470e-10,0.22803e-10,0.25180e-10 /) - kbo(:,25, 3) = (/ & - & 0.13155e-10,0.15266e-10,0.17234e-10,0.19170e-10,0.21096e-10 /) - kbo(:,26, 3) = (/ & - & 0.11220e-10,0.12944e-10,0.14527e-10,0.16132e-10,0.17690e-10 /) - kbo(:,27, 3) = (/ & - & 0.95562e-11,0.10942e-10,0.12242e-10,0.13560e-10,0.14820e-10 /) - kbo(:,28, 3) = (/ & - & 0.81359e-11,0.92394e-11,0.10309e-10,0.11386e-10,0.12407e-10 /) - kbo(:,29, 3) = (/ & - & 0.69193e-11,0.78077e-11,0.87009e-11,0.95682e-11,0.10386e-10 /) - kbo(:,30, 3) = (/ & - & 0.58737e-11,0.65956e-11,0.73381e-11,0.80325e-11,0.87147e-11 /) - kbo(:,31, 3) = (/ & - & 0.49782e-11,0.55816e-11,0.61826e-11,0.67463e-11,0.73000e-11 /) - kbo(:,32, 3) = (/ & - & 0.42202e-11,0.47232e-11,0.52043e-11,0.56623e-11,0.61016e-11 /) - kbo(:,33, 3) = (/ & - & 0.35744e-11,0.39897e-11,0.43757e-11,0.47465e-11,0.50931e-11 /) - kbo(:,34, 3) = (/ & - & 0.30127e-11,0.33496e-11,0.36630e-11,0.39738e-11,0.42413e-11 /) - kbo(:,35, 3) = (/ & - & 0.25098e-11,0.27837e-11,0.30393e-11,0.32916e-11,0.35093e-11 /) - kbo(:,36, 3) = (/ & - & 0.20644e-11,0.22886e-11,0.24982e-11,0.27043e-11,0.28833e-11 /) - kbo(:,37, 3) = (/ & - & 0.16684e-11,0.18536e-11,0.20259e-11,0.21979e-11,0.23456e-11 /) - kbo(:,38, 3) = (/ & - & 0.13466e-11,0.14996e-11,0.16425e-11,0.17834e-11,0.19065e-11 /) - kbo(:,39, 3) = (/ & - & 0.10861e-11,0.12130e-11,0.13309e-11,0.14440e-11,0.15498e-11 /) - kbo(:,40, 3) = (/ & - & 0.86498e-12,0.96921e-12,0.10678e-11,0.11601e-11,0.12509e-11 /) - kbo(:,41, 3) = (/ & - & 0.68788e-12,0.77191e-12,0.85472e-12,0.93133e-12,0.10084e-11 /) - kbo(:,42, 3) = (/ & - & 0.54661e-12,0.61437e-12,0.68360e-12,0.74699e-12,0.81088e-12 /) - kbo(:,43, 3) = (/ & - & 0.42920e-12,0.48515e-12,0.54174e-12,0.59564e-12,0.64658e-12 /) - kbo(:,44, 3) = (/ & - & 0.33491e-12,0.38198e-12,0.42756e-12,0.47274e-12,0.51490e-12 /) - kbo(:,45, 3) = (/ & - & 0.26072e-12,0.29981e-12,0.33699e-12,0.37442e-12,0.40968e-12 /) - kbo(:,46, 3) = (/ & - & 0.20167e-12,0.23370e-12,0.26473e-12,0.29535e-12,0.32495e-12 /) - kbo(:,47, 3) = (/ & - & 0.15427e-12,0.18070e-12,0.20644e-12,0.23129e-12,0.25612e-12 /) - kbo(:,48, 3) = (/ & - & 0.11746e-12,0.13905e-12,0.16032e-12,0.18088e-12,0.20125e-12 /) - kbo(:,49, 3) = (/ & - & 0.88976e-13,0.10661e-12,0.12415e-12,0.14128e-12,0.15777e-12 /) - kbo(:,50, 3) = (/ & - & 0.67378e-13,0.81791e-13,0.96162e-13,0.11029e-12,0.12384e-12 /) - kbo(:,51, 3) = (/ & - & 0.50786e-13,0.62576e-13,0.74348e-13,0.85995e-13,0.97345e-13 /) - kbo(:,52, 3) = (/ & - & 0.37951e-13,0.47645e-13,0.57250e-13,0.66805e-13,0.76257e-13 /) - kbo(:,53, 3) = (/ & - & 0.28159e-13,0.36102e-13,0.43964e-13,0.51774e-13,0.59583e-13 /) - kbo(:,54, 3) = (/ & - & 0.21004e-13,0.27366e-13,0.33776e-13,0.40177e-13,0.46583e-13 /) - kbo(:,55, 3) = (/ & - & 0.15637e-13,0.20632e-13,0.25941e-13,0.31184e-13,0.36409e-13 /) - kbo(:,56, 3) = (/ & - & 0.11581e-13,0.15522e-13,0.19844e-13,0.24130e-13,0.28399e-13 /) - kbo(:,57, 3) = (/ & - & 0.85125e-14,0.11631e-13,0.15093e-13,0.18610e-13,0.22102e-13 /) - kbo(:,58, 3) = (/ & - & 0.62435e-14,0.87193e-14,0.11437e-13,0.14347e-13,0.17208e-13 /) - kbo(:,59, 3) = (/ & - & 0.48886e-14,0.68810e-14,0.90777e-14,0.11450e-13,0.13800e-13 /) - kbo(:,13, 4) = (/ & - & 0.49769e-09,0.57573e-09,0.65456e-09,0.73233e-09,0.81030e-09 /) - kbo(:,14, 4) = (/ & - & 0.41687e-09,0.48070e-09,0.54629e-09,0.61156e-09,0.67509e-09 /) - kbo(:,15, 4) = (/ & - & 0.35004e-09,0.40346e-09,0.45778e-09,0.51155e-09,0.56442e-09 /) - kbo(:,16, 4) = (/ & - & 0.29428e-09,0.33893e-09,0.38370e-09,0.42831e-09,0.47172e-09 /) - kbo(:,17, 4) = (/ & - & 0.24736e-09,0.28447e-09,0.32184e-09,0.35882e-09,0.39576e-09 /) - kbo(:,18, 4) = (/ & - & 0.20799e-09,0.23913e-09,0.26980e-09,0.30118e-09,0.33239e-09 /) - kbo(:,19, 4) = (/ & - & 0.17474e-09,0.20037e-09,0.22650e-09,0.25275e-09,0.27848e-09 /) - kbo(:,20, 4) = (/ & - & 0.14678e-09,0.16826e-09,0.19015e-09,0.21182e-09,0.23321e-09 /) - kbo(:,21, 4) = (/ & - & 0.12329e-09,0.14137e-09,0.15951e-09,0.17762e-09,0.19539e-09 /) - kbo(:,22, 4) = (/ & - & 0.10475e-09,0.11989e-09,0.13488e-09,0.14993e-09,0.16481e-09 /) - kbo(:,23, 4) = (/ & - & 0.89090e-10,0.10156e-09,0.11416e-09,0.12661e-09,0.13928e-09 /) - kbo(:,24, 4) = (/ & - & 0.75648e-10,0.86094e-10,0.96530e-10,0.10692e-09,0.11716e-09 /) - kbo(:,25, 4) = (/ & - & 0.64419e-10,0.73036e-10,0.81659e-10,0.90142e-10,0.98524e-10 /) - kbo(:,26, 4) = (/ & - & 0.54857e-10,0.61972e-10,0.69147e-10,0.76125e-10,0.82778e-10 /) - kbo(:,27, 4) = (/ & - & 0.46656e-10,0.52591e-10,0.58413e-10,0.64168e-10,0.69451e-10 /) - kbo(:,28, 4) = (/ & - & 0.39665e-10,0.44561e-10,0.49317e-10,0.53971e-10,0.58228e-10 /) - kbo(:,29, 4) = (/ & - & 0.33755e-10,0.37736e-10,0.41652e-10,0.45382e-10,0.48825e-10 /) - kbo(:,30, 4) = (/ & - & 0.28671e-10,0.31949e-10,0.35144e-10,0.38141e-10,0.41003e-10 /) - kbo(:,31, 4) = (/ & - & 0.24360e-10,0.27027e-10,0.29632e-10,0.32038e-10,0.34391e-10 /) - kbo(:,32, 4) = (/ & - & 0.20671e-10,0.22852e-10,0.24963e-10,0.26903e-10,0.28818e-10 /) - kbo(:,33, 4) = (/ & - & 0.17515e-10,0.19306e-10,0.20998e-10,0.22562e-10,0.24113e-10 /) - kbo(:,34, 4) = (/ & - & 0.14755e-10,0.16223e-10,0.17588e-10,0.18905e-10,0.20105e-10 /) - kbo(:,35, 4) = (/ & - & 0.12305e-10,0.13505e-10,0.14616e-10,0.15703e-10,0.16661e-10 /) - kbo(:,36, 4) = (/ & - & 0.10152e-10,0.11132e-10,0.12046e-10,0.12938e-10,0.13718e-10 /) - kbo(:,37, 4) = (/ & - & 0.82437e-11,0.90546e-11,0.98101e-11,0.10549e-10,0.11200e-10 /) - kbo(:,38, 4) = (/ & - & 0.66891e-11,0.73572e-11,0.79832e-11,0.85923e-11,0.91388e-11 /) - kbo(:,39, 4) = (/ & - & 0.54271e-11,0.59789e-11,0.64946e-11,0.69804e-11,0.74536e-11 /) - kbo(:,40, 4) = (/ & - & 0.43504e-11,0.48077e-11,0.52359e-11,0.56420e-11,0.60390e-11 /) - kbo(:,41, 4) = (/ & - & 0.34805e-11,0.38570e-11,0.42158e-11,0.45532e-11,0.48856e-11 /) - kbo(:,42, 4) = (/ & - & 0.27817e-11,0.30896e-11,0.33906e-11,0.36712e-11,0.39504e-11 /) - kbo(:,43, 4) = (/ & - & 0.22059e-11,0.24603e-11,0.27112e-11,0.29449e-11,0.31673e-11 /) - kbo(:,44, 4) = (/ & - & 0.17407e-11,0.19508e-11,0.21593e-11,0.23549e-11,0.25394e-11 /) - kbo(:,45, 4) = (/ & - & 0.13717e-11,0.15444e-11,0.17149e-11,0.18808e-11,0.20349e-11 /) - kbo(:,46, 4) = (/ & - & 0.10758e-11,0.12178e-11,0.13582e-11,0.14973e-11,0.16264e-11 /) - kbo(:,47, 4) = (/ & - & 0.83623e-12,0.95326e-12,0.10692e-11,0.11850e-11,0.12934e-11 /) - kbo(:,48, 4) = (/ & - & 0.64811e-12,0.74426e-12,0.84002e-12,0.93446e-12,0.10270e-11 /) - kbo(:,49, 4) = (/ & - & 0.50093e-12,0.57976e-12,0.65824e-12,0.73652e-12,0.81364e-12 /) - kbo(:,50, 4) = (/ & - & 0.38740e-12,0.45167e-12,0.51620e-12,0.58084e-12,0.64495e-12 /) - kbo(:,51, 4) = (/ & - & 0.29910e-12,0.35149e-12,0.40454e-12,0.45768e-12,0.51010e-12 /) - kbo(:,52, 4) = (/ & - & 0.23004e-12,0.27291e-12,0.31637e-12,0.35993e-12,0.40313e-12 /) - kbo(:,53, 4) = (/ & - & 0.17654e-12,0.21129e-12,0.24667e-12,0.28251e-12,0.31798e-12 /) - kbo(:,54, 4) = (/ & - & 0.13566e-12,0.16388e-12,0.19277e-12,0.22203e-12,0.25140e-12 /) - kbo(:,55, 4) = (/ & - & 0.10414e-12,0.12705e-12,0.15062e-12,0.17458e-12,0.19863e-12 /) - kbo(:,56, 4) = (/ & - & 0.79695e-13,0.98154e-13,0.11737e-12,0.13696e-12,0.15674e-12 /) - kbo(:,57, 4) = (/ & - & 0.60735e-13,0.75667e-13,0.91265e-13,0.10718e-12,0.12346e-12 /) - kbo(:,58, 4) = (/ & - & 0.46331e-13,0.58316e-13,0.71018e-13,0.83950e-13,0.97215e-13 /) - kbo(:,59, 4) = (/ & - & 0.36896e-13,0.46643e-13,0.57036e-13,0.67613e-13,0.78545e-13 /) - kbo(:,13, 5) = (/ & - & 0.26254e-08,0.28627e-08,0.30909e-08,0.33000e-08,0.34892e-08 /) - kbo(:,14, 5) = (/ & - & 0.21830e-08,0.23794e-08,0.25635e-08,0.27354e-08,0.28987e-08 /) - kbo(:,15, 5) = (/ & - & 0.18164e-08,0.19772e-08,0.21299e-08,0.22819e-08,0.24177e-08 /) - kbo(:,16, 5) = (/ & - & 0.15141e-08,0.16500e-08,0.17819e-08,0.19057e-08,0.20139e-08 /) - kbo(:,17, 5) = (/ & - & 0.12644e-08,0.13791e-08,0.14854e-08,0.15868e-08,0.16779e-08 /) - kbo(:,18, 5) = (/ & - & 0.10569e-08,0.11490e-08,0.12387e-08,0.13249e-08,0.14004e-08 /) - kbo(:,19, 5) = (/ & - & 0.88077e-09,0.95771e-09,0.10342e-08,0.11045e-08,0.11654e-08 /) - kbo(:,20, 5) = (/ & - & 0.73433e-09,0.79954e-09,0.86343e-09,0.92049e-09,0.97111e-09 /) - kbo(:,21, 5) = (/ & - & 0.61317e-09,0.66751e-09,0.72065e-09,0.76613e-09,0.80891e-09 /) - kbo(:,22, 5) = (/ & - & 0.51519e-09,0.56066e-09,0.60290e-09,0.64113e-09,0.67719e-09 /) - kbo(:,23, 5) = (/ & - & 0.43331e-09,0.47103e-09,0.50532e-09,0.53747e-09,0.56589e-09 /) - kbo(:,24, 5) = (/ & - & 0.36478e-09,0.39531e-09,0.42421e-09,0.45023e-09,0.47333e-09 /) - kbo(:,25, 5) = (/ & - & 0.30661e-09,0.33249e-09,0.35642e-09,0.37711e-09,0.39645e-09 /) - kbo(:,26, 5) = (/ & - & 0.25851e-09,0.28030e-09,0.29893e-09,0.31621e-09,0.33249e-09 /) - kbo(:,27, 5) = (/ & - & 0.21849e-09,0.23581e-09,0.25124e-09,0.26548e-09,0.27889e-09 /) - kbo(:,28, 5) = (/ & - & 0.18476e-09,0.19866e-09,0.21115e-09,0.22285e-09,0.23419e-09 /) - kbo(:,29, 5) = (/ & - & 0.15608e-09,0.16725e-09,0.17764e-09,0.18744e-09,0.19627e-09 /) - kbo(:,30, 5) = (/ & - & 0.13180e-09,0.14084e-09,0.14944e-09,0.15734e-09,0.16419e-09 /) - kbo(:,31, 5) = (/ & - & 0.11122e-09,0.11878e-09,0.12548e-09,0.13183e-09,0.13690e-09 /) - kbo(:,32, 5) = (/ & - & 0.93806e-10,0.99909e-10,0.10547e-09,0.11013e-09,0.11393e-09 /) - kbo(:,33, 5) = (/ & - & 0.79057e-10,0.83869e-10,0.88337e-10,0.91833e-10,0.94728e-10 /) - kbo(:,34, 5) = (/ & - & 0.66383e-10,0.70216e-10,0.73644e-10,0.76467e-10,0.78589e-10 /) - kbo(:,35, 5) = (/ & - & 0.55303e-10,0.58435e-10,0.61122e-10,0.63317e-10,0.64984e-10 /) - kbo(:,36, 5) = (/ & - & 0.45788e-10,0.48318e-10,0.50463e-10,0.52237e-10,0.53589e-10 /) - kbo(:,37, 5) = (/ & - & 0.37517e-10,0.39593e-10,0.41407e-10,0.42883e-10,0.44012e-10 /) - kbo(:,38, 5) = (/ & - & 0.30717e-10,0.32436e-10,0.33950e-10,0.35197e-10,0.36146e-10 /) - kbo(:,39, 5) = (/ & - & 0.25129e-10,0.26560e-10,0.27827e-10,0.28835e-10,0.29676e-10 /) - kbo(:,40, 5) = (/ & - & 0.20420e-10,0.21620e-10,0.22699e-10,0.23564e-10,0.24290e-10 /) - kbo(:,41, 5) = (/ & - & 0.16561e-10,0.17583e-10,0.18496e-10,0.19245e-10,0.19868e-10 /) - kbo(:,42, 5) = (/ & - & 0.13418e-10,0.14291e-10,0.15059e-10,0.15706e-10,0.16243e-10 /) - kbo(:,43, 5) = (/ & - & 0.10810e-10,0.11562e-10,0.12210e-10,0.12774e-10,0.13223e-10 /) - kbo(:,44, 5) = (/ & - & 0.86843e-11,0.93265e-11,0.98789e-11,0.10369e-10,0.10770e-10 /) - kbo(:,45, 5) = (/ & - & 0.69593e-11,0.75111e-11,0.79891e-11,0.84084e-11,0.87638e-11 /) - kbo(:,46, 5) = (/ & - & 0.55576e-11,0.60308e-11,0.64400e-11,0.68030e-11,0.71149e-11 /) - kbo(:,47, 5) = (/ & - & 0.44097e-11,0.48155e-11,0.51709e-11,0.54794e-11,0.57570e-11 /) - kbo(:,48, 5) = (/ & - & 0.34877e-11,0.38384e-11,0.41433e-11,0.44120e-11,0.46521e-11 /) - kbo(:,49, 5) = (/ & - & 0.27512e-11,0.30491e-11,0.33123e-11,0.35456e-11,0.37509e-11 /) - kbo(:,50, 5) = (/ & - & 0.21734e-11,0.24185e-11,0.26481e-11,0.28485e-11,0.30236e-11 /) - kbo(:,51, 5) = (/ & - & 0.17150e-11,0.19185e-11,0.21147e-11,0.22857e-11,0.24371e-11 /) - kbo(:,52, 5) = (/ & - & 0.13499e-11,0.15196e-11,0.16853e-11,0.18315e-11,0.19613e-11 /) - kbo(:,53, 5) = (/ & - & 0.10590e-11,0.11989e-11,0.13374e-11,0.14641e-11,0.15756e-11 /) - kbo(:,54, 5) = (/ & - & 0.83182e-12,0.94832e-12,0.10625e-11,0.11713e-11,0.12669e-11 /) - kbo(:,55, 5) = (/ & - & 0.65257e-12,0.74992e-12,0.84445e-12,0.93664e-12,0.10175e-11 /) - kbo(:,56, 5) = (/ & - & 0.51109e-12,0.59162e-12,0.67030e-12,0.74706e-12,0.81634e-12 /) - kbo(:,57, 5) = (/ & - & 0.39868e-12,0.46532e-12,0.53042e-12,0.59449e-12,0.65374e-12 /) - kbo(:,58, 5) = (/ & - & 0.31062e-12,0.36629e-12,0.42009e-12,0.47298e-12,0.52357e-12 /) - kbo(:,59, 5) = (/ & - & 0.24996e-12,0.29597e-12,0.34052e-12,0.38403e-12,0.42584e-12 /) - kbo(:,13, 6) = (/ & - & 0.10275e-07,0.10425e-07,0.10505e-07,0.10571e-07,0.10619e-07 /) - kbo(:,14, 6) = (/ & - & 0.84309e-08,0.85528e-08,0.86280e-08,0.86935e-08,0.87236e-08 /) - kbo(:,15, 6) = (/ & - & 0.69259e-08,0.70218e-08,0.71031e-08,0.71419e-08,0.71430e-08 /) - kbo(:,16, 6) = (/ & - & 0.56933e-08,0.57765e-08,0.58298e-08,0.58527e-08,0.58704e-08 /) - kbo(:,17, 6) = (/ & - & 0.46880e-08,0.47555e-08,0.47985e-08,0.48270e-08,0.48471e-08 /) - kbo(:,18, 6) = (/ & - & 0.38628e-08,0.39183e-08,0.39591e-08,0.39923e-08,0.40106e-08 /) - kbo(:,19, 6) = (/ & - & 0.31833e-08,0.32370e-08,0.32750e-08,0.32992e-08,0.33139e-08 /) - kbo(:,20, 6) = (/ & - & 0.26315e-08,0.26765e-08,0.27033e-08,0.27208e-08,0.27412e-08 /) - kbo(:,21, 6) = (/ & - & 0.21768e-08,0.22074e-08,0.22281e-08,0.22492e-08,0.22648e-08 /) - kbo(:,22, 6) = (/ & - & 0.17970e-08,0.18204e-08,0.18421e-08,0.18603e-08,0.18697e-08 /) - kbo(:,23, 6) = (/ & - & 0.14828e-08,0.15043e-08,0.15235e-08,0.15373e-08,0.15469e-08 /) - kbo(:,24, 6) = (/ & - & 0.12265e-08,0.12457e-08,0.12602e-08,0.12704e-08,0.12795e-08 /) - kbo(:,25, 6) = (/ & - & 0.10153e-08,0.10303e-08,0.10406e-08,0.10511e-08,0.10591e-08 /) - kbo(:,26, 6) = (/ & - & 0.84067e-09,0.85220e-09,0.86139e-09,0.87145e-09,0.87606e-09 /) - kbo(:,27, 6) = (/ & - & 0.69556e-09,0.70441e-09,0.71396e-09,0.72098e-09,0.72486e-09 /) - kbo(:,28, 6) = (/ & - & 0.57505e-09,0.58326e-09,0.59186e-09,0.59662e-09,0.60056e-09 /) - kbo(:,29, 6) = (/ & - & 0.47621e-09,0.48459e-09,0.49079e-09,0.49432e-09,0.49717e-09 /) - kbo(:,30, 6) = (/ & - & 0.39513e-09,0.40232e-09,0.40640e-09,0.40995e-09,0.41263e-09 /) - kbo(:,31, 6) = (/ & - & 0.32890e-09,0.33390e-09,0.33797e-09,0.34036e-09,0.34440e-09 /) - kbo(:,32, 6) = (/ & - & 0.27372e-09,0.27757e-09,0.28057e-09,0.28360e-09,0.28668e-09 /) - kbo(:,33, 6) = (/ & - & 0.22771e-09,0.23074e-09,0.23349e-09,0.23595e-09,0.23797e-09 /) - kbo(:,34, 6) = (/ & - & 0.18899e-09,0.19179e-09,0.19391e-09,0.19591e-09,0.19720e-09 /) - kbo(:,35, 6) = (/ & - & 0.15677e-09,0.15897e-09,0.16075e-09,0.16219e-09,0.16318e-09 /) - kbo(:,36, 6) = (/ & - & 0.12972e-09,0.13147e-09,0.13291e-09,0.13412e-09,0.13484e-09 /) - kbo(:,37, 6) = (/ & - & 0.10704e-09,0.10855e-09,0.10970e-09,0.11065e-09,0.11129e-09 /) - kbo(:,38, 6) = (/ & - & 0.88219e-10,0.89571e-10,0.90489e-10,0.91263e-10,0.91821e-10 /) - kbo(:,39, 6) = (/ & - & 0.72709e-10,0.73884e-10,0.74615e-10,0.75144e-10,0.75719e-10 /) - kbo(:,40, 6) = (/ & - & 0.59779e-10,0.60793e-10,0.61424e-10,0.61873e-10,0.62379e-10 /) - kbo(:,41, 6) = (/ & - & 0.49104e-10,0.49999e-10,0.50541e-10,0.50924e-10,0.51369e-10 /) - kbo(:,42, 6) = (/ & - & 0.40324e-10,0.41079e-10,0.41584e-10,0.41914e-10,0.42279e-10 /) - kbo(:,43, 6) = (/ & - & 0.33050e-10,0.33695e-10,0.34173e-10,0.34462e-10,0.34716e-10 /) - kbo(:,44, 6) = (/ & - & 0.27054e-10,0.27604e-10,0.28056e-10,0.28313e-10,0.28542e-10 /) - kbo(:,45, 6) = (/ & - & 0.22112e-10,0.22613e-10,0.23018e-10,0.23255e-10,0.23441e-10 /) - kbo(:,46, 6) = (/ & - & 0.18060e-10,0.18501e-10,0.18867e-10,0.19082e-10,0.19252e-10 /) - kbo(:,47, 6) = (/ & - & 0.14722e-10,0.15111e-10,0.15432e-10,0.15658e-10,0.15802e-10 /) - kbo(:,48, 6) = (/ & - & 0.11985e-10,0.12318e-10,0.12624e-10,0.12826e-10,0.12965e-10 /) - kbo(:,49, 6) = (/ & - & 0.97421e-11,0.10040e-10,0.10306e-10,0.10499e-10,0.10630e-10 /) - kbo(:,50, 6) = (/ & - & 0.79055e-11,0.81823e-11,0.84121e-11,0.85902e-11,0.87163e-11 /) - kbo(:,51, 6) = (/ & - & 0.64164e-11,0.66612e-11,0.68621e-11,0.70240e-11,0.71428e-11 /) - kbo(:,52, 6) = (/ & - & 0.51935e-11,0.54159e-11,0.55861e-11,0.57406e-11,0.58465e-11 /) - kbo(:,53, 6) = (/ & - & 0.42017e-11,0.43985e-11,0.45525e-11,0.46862e-11,0.47817e-11 /) - kbo(:,54, 6) = (/ & - & 0.33953e-11,0.35701e-11,0.37080e-11,0.38204e-11,0.39118e-11 /) - kbo(:,55, 6) = (/ & - & 0.27420e-11,0.28948e-11,0.30166e-11,0.31148e-11,0.31981e-11 /) - kbo(:,56, 6) = (/ & - & 0.22097e-11,0.23440e-11,0.24518e-11,0.25378e-11,0.26122e-11 /) - kbo(:,57, 6) = (/ & - & 0.17765e-11,0.18968e-11,0.19913e-11,0.20659e-11,0.21319e-11 /) - kbo(:,58, 6) = (/ & - & 0.14264e-11,0.15324e-11,0.16166e-11,0.16816e-11,0.17374e-11 /) - kbo(:,59, 6) = (/ & - & 0.11621e-11,0.12515e-11,0.13230e-11,0.13773e-11,0.14240e-11 /) - kbo(:,13, 7) = (/ & - & 0.28079e-07,0.28035e-07,0.27949e-07,0.27835e-07,0.27661e-07 /) - kbo(:,14, 7) = (/ & - & 0.23041e-07,0.22982e-07,0.22914e-07,0.22814e-07,0.22653e-07 /) - kbo(:,15, 7) = (/ & - & 0.18899e-07,0.18860e-07,0.18790e-07,0.18675e-07,0.18596e-07 /) - kbo(:,16, 7) = (/ & - & 0.15489e-07,0.15457e-07,0.15389e-07,0.15337e-07,0.15329e-07 /) - kbo(:,17, 7) = (/ & - & 0.12699e-07,0.12665e-07,0.12634e-07,0.12640e-07,0.12612e-07 /) - kbo(:,18, 7) = (/ & - & 0.10409e-07,0.10397e-07,0.10401e-07,0.10391e-07,0.10368e-07 /) - kbo(:,19, 7) = (/ & - & 0.85482e-08,0.85403e-08,0.85408e-08,0.85379e-08,0.85325e-08 /) - kbo(:,20, 7) = (/ & - & 0.70183e-08,0.70212e-08,0.70225e-08,0.70232e-08,0.70243e-08 /) - kbo(:,21, 7) = (/ & - & 0.57704e-08,0.57836e-08,0.57919e-08,0.57990e-08,0.58135e-08 /) - kbo(:,22, 7) = (/ & - & 0.47522e-08,0.47673e-08,0.47834e-08,0.48084e-08,0.48239e-08 /) - kbo(:,23, 7) = (/ & - & 0.39186e-08,0.39439e-08,0.39679e-08,0.39863e-08,0.40063e-08 /) - kbo(:,24, 7) = (/ & - & 0.32407e-08,0.32645e-08,0.32840e-08,0.33039e-08,0.33353e-08 /) - kbo(:,25, 7) = (/ & - & 0.26846e-08,0.27012e-08,0.27199e-08,0.27477e-08,0.27761e-08 /) - kbo(:,26, 7) = (/ & - & 0.22196e-08,0.22367e-08,0.22646e-08,0.22896e-08,0.23141e-08 /) - kbo(:,27, 7) = (/ & - & 0.18370e-08,0.18616e-08,0.18864e-08,0.19087e-08,0.19319e-08 /) - kbo(:,28, 7) = (/ & - & 0.15259e-08,0.15495e-08,0.15695e-08,0.15912e-08,0.16152e-08 /) - kbo(:,29, 7) = (/ & - & 0.12717e-08,0.12907e-08,0.13087e-08,0.13304e-08,0.13523e-08 /) - kbo(:,30, 7) = (/ & - & 0.10599e-08,0.10765e-08,0.10939e-08,0.11139e-08,0.11374e-08 /) - kbo(:,31, 7) = (/ & - & 0.88411e-09,0.89833e-09,0.91628e-09,0.93662e-09,0.95540e-09 /) - kbo(:,32, 7) = (/ & - & 0.73723e-09,0.75198e-09,0.77042e-09,0.78608e-09,0.80601e-09 /) - kbo(:,33, 7) = (/ & - & 0.61511e-09,0.63161e-09,0.64646e-09,0.66232e-09,0.68095e-09 /) - kbo(:,34, 7) = (/ & - & 0.51621e-09,0.53001e-09,0.54332e-09,0.55986e-09,0.57326e-09 /) - kbo(:,35, 7) = (/ & - & 0.43217e-09,0.44439e-09,0.45713e-09,0.47103e-09,0.48242e-09 /) - kbo(:,36, 7) = (/ & - & 0.36090e-09,0.37166e-09,0.38311e-09,0.39461e-09,0.40545e-09 /) - kbo(:,37, 7) = (/ & - & 0.29990e-09,0.30916e-09,0.31937e-09,0.32943e-09,0.34038e-09 /) - kbo(:,38, 7) = (/ & - & 0.24927e-09,0.25737e-09,0.26638e-09,0.27543e-09,0.28596e-09 /) - kbo(:,39, 7) = (/ & - & 0.20718e-09,0.21434e-09,0.22203e-09,0.23026e-09,0.23966e-09 /) - kbo(:,40, 7) = (/ & - & 0.17122e-09,0.17745e-09,0.18425e-09,0.19138e-09,0.19937e-09 /) - kbo(:,41, 7) = (/ & - & 0.14145e-09,0.14673e-09,0.15273e-09,0.15885e-09,0.16544e-09 /) - kbo(:,42, 7) = (/ & - & 0.11673e-09,0.12130e-09,0.12626e-09,0.13156e-09,0.13718e-09 /) - kbo(:,43, 7) = (/ & - & 0.95979e-10,0.99773e-10,0.10407e-09,0.10848e-09,0.11289e-09 /) - kbo(:,44, 7) = (/ & - & 0.78684e-10,0.81894e-10,0.85476e-10,0.89249e-10,0.92971e-10 /) - kbo(:,45, 7) = (/ & - & 0.64482e-10,0.67161e-10,0.70163e-10,0.73315e-10,0.76486e-10 /) - kbo(:,46, 7) = (/ & - & 0.52720e-10,0.54998e-10,0.57509e-10,0.60128e-10,0.62787e-10 /) - kbo(:,47, 7) = (/ & - & 0.42902e-10,0.44887e-10,0.46948e-10,0.49098e-10,0.51392e-10 /) - kbo(:,48, 7) = (/ & - & 0.34914e-10,0.36612e-10,0.38268e-10,0.40114e-10,0.41998e-10 /) - kbo(:,49, 7) = (/ & - & 0.28363e-10,0.29830e-10,0.31160e-10,0.32712e-10,0.34278e-10 /) - kbo(:,50, 7) = (/ & - & 0.23044e-10,0.24298e-10,0.25411e-10,0.26663e-10,0.27956e-10 /) - kbo(:,51, 7) = (/ & - & 0.18719e-10,0.19762e-10,0.20717e-10,0.21748e-10,0.22834e-10 /) - kbo(:,52, 7) = (/ & - & 0.15214e-10,0.16060e-10,0.16882e-10,0.17722e-10,0.18609e-10 /) - kbo(:,53, 7) = (/ & - & 0.12339e-10,0.13039e-10,0.13738e-10,0.14413e-10,0.15144e-10 /) - kbo(:,54, 7) = (/ & - & 0.10028e-10,0.10589e-10,0.11176e-10,0.11743e-10,0.12340e-10 /) - kbo(:,55, 7) = (/ & - & 0.81332e-11,0.85988e-11,0.90904e-11,0.95545e-11,0.10057e-10 /) - kbo(:,56, 7) = (/ & - & 0.66047e-11,0.69777e-11,0.73796e-11,0.77755e-11,0.81880e-11 /) - kbo(:,57, 7) = (/ & - & 0.53536e-11,0.56554e-11,0.59940e-11,0.63232e-11,0.66612e-11 /) - kbo(:,58, 7) = (/ & - & 0.43329e-11,0.45903e-11,0.48661e-11,0.51412e-11,0.54200e-11 /) - kbo(:,59, 7) = (/ & - & 0.35522e-11,0.37646e-11,0.39940e-11,0.42211e-11,0.44525e-11 /) - kbo(:,13, 8) = (/ & - & 0.11230e-06,0.11409e-06,0.11566e-06,0.11672e-06,0.11734e-06 /) - kbo(:,14, 8) = (/ & - & 0.92428e-07,0.93878e-07,0.95014e-07,0.95711e-07,0.96110e-07 /) - kbo(:,15, 8) = (/ & - & 0.76021e-07,0.77148e-07,0.77913e-07,0.78505e-07,0.78756e-07 /) - kbo(:,16, 8) = (/ & - & 0.62512e-07,0.63402e-07,0.63979e-07,0.64292e-07,0.64352e-07 /) - kbo(:,17, 8) = (/ & - & 0.51480e-07,0.52099e-07,0.52465e-07,0.52634e-07,0.52753e-07 /) - kbo(:,18, 8) = (/ & - & 0.42336e-07,0.42773e-07,0.43015e-07,0.43145e-07,0.43290e-07 /) - kbo(:,19, 8) = (/ & - & 0.34820e-07,0.35138e-07,0.35326e-07,0.35465e-07,0.35546e-07 /) - kbo(:,20, 8) = (/ & - & 0.28634e-07,0.28882e-07,0.29099e-07,0.29190e-07,0.29248e-07 /) - kbo(:,21, 8) = (/ & - & 0.23527e-07,0.23767e-07,0.23879e-07,0.24001e-07,0.24136e-07 /) - kbo(:,22, 8) = (/ & - & 0.19380e-07,0.19526e-07,0.19668e-07,0.19823e-07,0.20000e-07 /) - kbo(:,23, 8) = (/ & - & 0.15955e-07,0.16103e-07,0.16252e-07,0.16425e-07,0.16561e-07 /) - kbo(:,24, 8) = (/ & - & 0.13163e-07,0.13294e-07,0.13466e-07,0.13609e-07,0.13701e-07 /) - kbo(:,25, 8) = (/ & - & 0.10863e-07,0.11029e-07,0.11155e-07,0.11256e-07,0.11368e-07 /) - kbo(:,26, 8) = (/ & - & 0.90043e-08,0.91173e-08,0.92226e-08,0.93261e-08,0.94322e-08 /) - kbo(:,27, 8) = (/ & - & 0.74604e-08,0.75548e-08,0.76410e-08,0.77390e-08,0.78488e-08 /) - kbo(:,28, 8) = (/ & - & 0.61944e-08,0.62754e-08,0.63658e-08,0.64728e-08,0.65523e-08 /) - kbo(:,29, 8) = (/ & - & 0.51553e-08,0.52390e-08,0.53444e-08,0.54244e-08,0.55104e-08 /) - kbo(:,30, 8) = (/ & - & 0.43022e-08,0.44056e-08,0.44906e-08,0.45753e-08,0.46815e-08 /) - kbo(:,31, 8) = (/ & - & 0.36260e-08,0.37147e-08,0.37854e-08,0.38857e-08,0.39725e-08 /) - kbo(:,32, 8) = (/ & - & 0.30574e-08,0.31222e-08,0.32149e-08,0.32959e-08,0.33679e-08 /) - kbo(:,33, 8) = (/ & - & 0.25690e-08,0.26475e-08,0.27306e-08,0.27942e-08,0.28607e-08 /) - kbo(:,34, 8) = (/ & - & 0.21739e-08,0.22522e-08,0.23131e-08,0.23724e-08,0.24398e-08 /) - kbo(:,35, 8) = (/ & - & 0.18403e-08,0.19033e-08,0.19580e-08,0.20191e-08,0.20792e-08 /) - kbo(:,36, 8) = (/ & - & 0.15538e-08,0.16068e-08,0.16535e-08,0.17159e-08,0.17681e-08 /) - kbo(:,37, 8) = (/ & - & 0.13002e-08,0.13483e-08,0.13923e-08,0.14493e-08,0.14927e-08 /) - kbo(:,38, 8) = (/ & - & 0.10893e-08,0.11319e-08,0.11765e-08,0.12253e-08,0.12624e-08 /) - kbo(:,39, 8) = (/ & - & 0.91348e-09,0.95067e-09,0.99134e-09,0.10293e-08,0.10668e-08 /) - kbo(:,40, 8) = (/ & - & 0.76170e-09,0.79404e-09,0.82953e-09,0.86548e-09,0.90041e-09 /) - kbo(:,41, 8) = (/ & - & 0.63292e-09,0.66170e-09,0.69363e-09,0.72573e-09,0.75710e-09 /) - kbo(:,42, 8) = (/ & - & 0.52609e-09,0.55120e-09,0.57974e-09,0.60803e-09,0.63636e-09 /) - kbo(:,43, 8) = (/ & - & 0.43444e-09,0.45674e-09,0.48206e-09,0.50747e-09,0.53053e-09 /) - kbo(:,44, 8) = (/ & - & 0.35755e-09,0.37758e-09,0.39965e-09,0.42169e-09,0.44276e-09 /) - kbo(:,45, 8) = (/ & - & 0.29410e-09,0.31126e-09,0.33079e-09,0.35014e-09,0.36874e-09 /) - kbo(:,46, 8) = (/ & - & 0.24113e-09,0.25605e-09,0.27273e-09,0.28962e-09,0.30646e-09 /) - kbo(:,47, 8) = (/ & - & 0.19675e-09,0.20937e-09,0.22390e-09,0.23865e-09,0.25330e-09 /) - kbo(:,48, 8) = (/ & - & 0.16029e-09,0.17125e-09,0.18339e-09,0.19620e-09,0.20918e-09 /) - kbo(:,49, 8) = (/ & - & 0.13018e-09,0.13961e-09,0.15020e-09,0.16108e-09,0.17231e-09 /) - kbo(:,50, 8) = (/ & - & 0.10559e-09,0.11394e-09,0.12271e-09,0.13208e-09,0.14200e-09 /) - kbo(:,51, 8) = (/ & - & 0.85569e-10,0.92775e-10,0.10011e-09,0.10818e-09,0.11665e-09 /) - kbo(:,52, 8) = (/ & - & 0.69342e-10,0.75341e-10,0.81596e-10,0.88527e-10,0.95876e-10 /) - kbo(:,53, 8) = (/ & - & 0.56003e-10,0.61203e-10,0.66389e-10,0.72376e-10,0.78642e-10 /) - kbo(:,54, 8) = (/ & - & 0.45380e-10,0.49599e-10,0.54006e-10,0.59069e-10,0.64380e-10 /) - kbo(:,55, 8) = (/ & - & 0.36637e-10,0.40078e-10,0.43990e-10,0.48279e-10,0.52815e-10 /) - kbo(:,56, 8) = (/ & - & 0.29596e-10,0.32455e-10,0.35694e-10,0.39315e-10,0.43169e-10 /) - kbo(:,57, 8) = (/ & - & 0.23911e-10,0.26268e-10,0.28916e-10,0.31929e-10,0.35182e-10 /) - kbo(:,58, 8) = (/ & - & 0.19299e-10,0.21198e-10,0.23407e-10,0.25936e-10,0.28689e-10 /) - kbo(:,59, 8) = (/ & - & 0.15839e-10,0.17448e-10,0.19334e-10,0.21469e-10,0.23829e-10 /) - kbo(:,13, 9) = (/ & - & 0.96471e-06,0.97408e-06,0.98436e-06,0.99439e-06,0.10050e-05 /) - kbo(:,14, 9) = (/ & - & 0.80904e-06,0.81838e-06,0.82742e-06,0.83703e-06,0.84742e-06 /) - kbo(:,15, 9) = (/ & - & 0.67733e-06,0.68563e-06,0.69403e-06,0.70345e-06,0.71287e-06 /) - kbo(:,16, 9) = (/ & - & 0.56582e-06,0.57313e-06,0.58159e-06,0.59012e-06,0.59880e-06 /) - kbo(:,17, 9) = (/ & - & 0.47164e-06,0.47892e-06,0.48671e-06,0.49436e-06,0.50258e-06 /) - kbo(:,18, 9) = (/ & - & 0.39308e-06,0.39992e-06,0.40685e-06,0.41415e-06,0.42143e-06 /) - kbo(:,19, 9) = (/ & - & 0.32764e-06,0.33370e-06,0.34000e-06,0.34660e-06,0.35294e-06 /) - kbo(:,20, 9) = (/ & - & 0.27304e-06,0.27855e-06,0.28433e-06,0.29002e-06,0.29550e-06 /) - kbo(:,21, 9) = (/ & - & 0.22762e-06,0.23263e-06,0.23776e-06,0.24264e-06,0.24751e-06 /) - kbo(:,22, 9) = (/ & - & 0.19016e-06,0.19467e-06,0.19902e-06,0.20331e-06,0.20743e-06 /) - kbo(:,23, 9) = (/ & - & 0.15902e-06,0.16285e-06,0.16664e-06,0.17032e-06,0.17381e-06 /) - kbo(:,24, 9) = (/ & - & 0.13300e-06,0.13639e-06,0.13965e-06,0.14271e-06,0.14575e-06 /) - kbo(:,25, 9) = (/ & - & 0.11136e-06,0.11428e-06,0.11705e-06,0.11966e-06,0.12234e-06 /) - kbo(:,26, 9) = (/ & - & 0.93355e-07,0.95870e-07,0.98179e-07,0.10046e-06,0.10295e-06 /) - kbo(:,27, 9) = (/ & - & 0.78546e-07,0.80656e-07,0.82694e-07,0.84793e-07,0.87129e-07 /) - kbo(:,28, 9) = (/ & - & 0.65991e-07,0.67786e-07,0.69602e-07,0.71624e-07,0.74063e-07 /) - kbo(:,29, 9) = (/ & - & 0.55459e-07,0.56995e-07,0.58695e-07,0.60741e-07,0.63281e-07 /) - kbo(:,30, 9) = (/ & - & 0.46750e-07,0.48054e-07,0.49703e-07,0.51793e-07,0.54403e-07 /) - kbo(:,31, 9) = (/ & - & 0.39452e-07,0.40727e-07,0.42319e-07,0.44486e-07,0.47323e-07 /) - kbo(:,32, 9) = (/ & - & 0.33473e-07,0.34884e-07,0.36502e-07,0.38781e-07,0.41735e-07 /) - kbo(:,33, 9) = (/ & - & 0.28581e-07,0.30008e-07,0.31748e-07,0.34217e-07,0.37511e-07 /) - kbo(:,34, 9) = (/ & - & 0.24450e-07,0.25951e-07,0.27867e-07,0.30565e-07,0.34125e-07 /) - kbo(:,35, 9) = (/ & - & 0.20942e-07,0.22554e-07,0.24574e-07,0.27409e-07,0.31159e-07 /) - kbo(:,36, 9) = (/ & - & 0.18081e-07,0.19648e-07,0.21657e-07,0.24573e-07,0.28429e-07 /) - kbo(:,37, 9) = (/ & - & 0.15436e-07,0.16978e-07,0.19037e-07,0.21710e-07,0.25509e-07 /) - kbo(:,38, 9) = (/ & - & 0.13187e-07,0.14690e-07,0.16738e-07,0.19257e-07,0.22992e-07 /) - kbo(:,39, 9) = (/ & - & 0.11282e-07,0.12751e-07,0.14794e-07,0.17292e-07,0.20852e-07 /) - kbo(:,40, 9) = (/ & - & 0.96293e-08,0.10973e-07,0.12917e-07,0.15272e-07,0.18582e-07 /) - kbo(:,41, 9) = (/ & - & 0.81770e-08,0.94352e-08,0.11220e-07,0.13516e-07,0.16546e-07 /) - kbo(:,42, 9) = (/ & - & 0.69323e-08,0.80750e-08,0.97479e-08,0.11964e-07,0.14736e-07 /) - kbo(:,43, 9) = (/ & - & 0.58312e-08,0.68571e-08,0.83595e-08,0.10414e-07,0.12928e-07 /) - kbo(:,44, 9) = (/ & - & 0.48754e-08,0.58128e-08,0.71504e-08,0.90270e-08,0.11362e-07 /) - kbo(:,45, 9) = (/ & - & 0.40522e-08,0.48841e-08,0.60765e-08,0.77697e-08,0.99439e-08 /) - kbo(:,46, 9) = (/ & - & 0.33429e-08,0.40820e-08,0.51038e-08,0.66237e-08,0.86427e-08 /) - kbo(:,47, 9) = (/ & - & 0.27297e-08,0.33571e-08,0.42806e-08,0.55863e-08,0.73605e-08 /) - kbo(:,48, 9) = (/ & - & 0.22143e-08,0.27445e-08,0.35414e-08,0.46711e-08,0.62204e-08 /) - kbo(:,49, 9) = (/ & - & 0.18030e-08,0.22208e-08,0.28995e-08,0.38639e-08,0.52216e-08 /) - kbo(:,50, 9) = (/ & - & 0.14670e-08,0.18085e-08,0.23853e-08,0.32522e-08,0.44284e-08 /) - kbo(:,51, 9) = (/ & - & 0.11873e-08,0.14637e-08,0.19592e-08,0.27073e-08,0.37306e-08 /) - kbo(:,52, 9) = (/ & - & 0.96876e-09,0.11883e-08,0.15881e-08,0.22316e-08,0.31252e-08 /) - kbo(:,53, 9) = (/ & - & 0.79526e-09,0.95443e-09,0.12843e-08,0.18180e-08,0.25992e-08 /) - kbo(:,54, 9) = (/ & - & 0.65045e-09,0.77197e-09,0.10500e-08,0.14963e-08,0.21953e-08 /) - kbo(:,55, 9) = (/ & - & 0.53001e-09,0.62144e-09,0.84441e-09,0.12265e-08,0.18415e-08 /) - kbo(:,56, 9) = (/ & - & 0.43274e-09,0.50433e-09,0.67633e-09,0.10051e-08,0.15294e-08 /) - kbo(:,57, 9) = (/ & - & 0.35151e-09,0.40652e-09,0.53819e-09,0.80840e-09,0.12530e-08 /) - kbo(:,58, 9) = (/ & - & 0.28511e-09,0.33047e-09,0.42809e-09,0.65584e-09,0.10383e-08 /) - kbo(:,59, 9) = (/ & - & 0.23557e-09,0.27695e-09,0.36588e-09,0.57468e-09,0.92796e-09 /) - kbo(:,13,10) = (/ & - & 0.49379e-05,0.50469e-05,0.51595e-05,0.52778e-05,0.54099e-05 /) - kbo(:,14,10) = (/ & - & 0.42812e-05,0.43888e-05,0.45022e-05,0.46302e-05,0.47669e-05 /) - kbo(:,15,10) = (/ & - & 0.36929e-05,0.37965e-05,0.39164e-05,0.40454e-05,0.41827e-05 /) - kbo(:,16,10) = (/ & - & 0.31721e-05,0.32791e-05,0.33975e-05,0.35246e-05,0.36634e-05 /) - kbo(:,17,10) = (/ & - & 0.27212e-05,0.28264e-05,0.29414e-05,0.30666e-05,0.32085e-05 /) - kbo(:,18,10) = (/ & - & 0.23339e-05,0.24330e-05,0.25438e-05,0.26711e-05,0.28184e-05 /) - kbo(:,19,10) = (/ & - & 0.19987e-05,0.20932e-05,0.22036e-05,0.23332e-05,0.24834e-05 /) - kbo(:,20,10) = (/ & - & 0.17132e-05,0.18061e-05,0.19176e-05,0.20491e-05,0.21989e-05 /) - kbo(:,21,10) = (/ & - & 0.14710e-05,0.15640e-05,0.16759e-05,0.18061e-05,0.19600e-05 /) - kbo(:,22,10) = (/ & - & 0.12737e-05,0.13668e-05,0.14788e-05,0.16132e-05,0.17763e-05 /) - kbo(:,23,10) = (/ & - & 0.11088e-05,0.12015e-05,0.13166e-05,0.14583e-05,0.16304e-05 /) - kbo(:,24,10) = (/ & - & 0.97145e-06,0.10662e-05,0.11867e-05,0.13370e-05,0.15170e-05 /) - kbo(:,25,10) = (/ & - & 0.85857e-06,0.95791e-06,0.10855e-05,0.12438e-05,0.14327e-05 /) - kbo(:,26,10) = (/ & - & 0.76914e-06,0.87488e-06,0.10107e-05,0.11782e-05,0.13762e-05 /) - kbo(:,27,10) = (/ & - & 0.69709e-06,0.81000e-06,0.95427e-06,0.11311e-05,0.13395e-05 /) - kbo(:,28,10) = (/ & - & 0.64352e-06,0.76453e-06,0.91846e-06,0.11047e-05,0.13225e-05 /) - kbo(:,29,10) = (/ & - & 0.60601e-06,0.73668e-06,0.90033e-06,0.10967e-05,0.13241e-05 /) - kbo(:,30,10) = (/ & - & 0.58144e-06,0.72277e-06,0.89681e-06,0.11031e-05,0.13400e-05 /) - kbo(:,31,10) = (/ & - & 0.57013e-06,0.72161e-06,0.90691e-06,0.11230e-05,0.13684e-05 /) - kbo(:,32,10) = (/ & - & 0.57021e-06,0.73098e-06,0.92629e-06,0.11521e-05,0.14071e-05 /) - kbo(:,33,10) = (/ & - & 0.58025e-06,0.75106e-06,0.95601e-06,0.11909e-05,0.14530e-05 /) - kbo(:,34,10) = (/ & - & 0.59352e-06,0.77298e-06,0.98581e-06,0.12280e-05,0.14964e-05 /) - kbo(:,35,10) = (/ & - & 0.59731e-06,0.78147e-06,0.99919e-06,0.12457e-05,0.15176e-05 /) - kbo(:,36,10) = (/ & - & 0.58516e-06,0.77138e-06,0.99076e-06,0.12378e-05,0.15105e-05 /) - kbo(:,37,10) = (/ & - & 0.55140e-06,0.73346e-06,0.94817e-06,0.11937e-05,0.14631e-05 /) - kbo(:,38,10) = (/ & - & 0.51916e-06,0.69705e-06,0.90723e-06,0.11496e-05,0.14156e-05 /) - kbo(:,39,10) = (/ & - & 0.48960e-06,0.66318e-06,0.86863e-06,0.11068e-05,0.13701e-05 /) - kbo(:,40,10) = (/ & - & 0.44595e-06,0.61209e-06,0.81011e-06,0.10412e-05,0.12987e-05 /) - kbo(:,41,10) = (/ & - & 0.40399e-06,0.56185e-06,0.75199e-06,0.97449e-06,0.12265e-05 /) - kbo(:,42,10) = (/ & - & 0.36503e-06,0.51494e-06,0.69685e-06,0.91108e-06,0.11565e-05 /) - kbo(:,43,10) = (/ & - & 0.32174e-06,0.46170e-06,0.63377e-06,0.83820e-06,0.10749e-05 /) - kbo(:,44,10) = (/ & - & 0.27930e-06,0.40829e-06,0.56968e-06,0.76331e-06,0.98961e-06 /) - kbo(:,45,10) = (/ & - & 0.24096e-06,0.35938e-06,0.50997e-06,0.69291e-06,0.90837e-06 /) - kbo(:,46,10) = (/ & - & 0.20431e-06,0.31166e-06,0.45096e-06,0.62224e-06,0.82595e-06 /) - kbo(:,47,10) = (/ & - & 0.16816e-06,0.26359e-06,0.38972e-06,0.54827e-06,0.73938e-06 /) - kbo(:,48,10) = (/ & - & 0.13670e-06,0.22070e-06,0.33435e-06,0.47996e-06,0.65830e-06 /) - kbo(:,49,10) = (/ & - & 0.10953e-06,0.18282e-06,0.28430e-06,0.41725e-06,0.58243e-06 /) - kbo(:,50,10) = (/ & - & 0.88267e-07,0.15143e-06,0.24199e-06,0.36271e-06,0.51595e-06 /) - kbo(:,51,10) = (/ & - & 0.70298e-07,0.12484e-06,0.20511e-06,0.31462e-06,0.45605e-06 /) - kbo(:,52,10) = (/ & - & 0.55131e-07,0.10217e-06,0.17234e-06,0.27088e-06,0.40072e-06 /) - kbo(:,53,10) = (/ & - & 0.43153e-07,0.82195e-07,0.14318e-06,0.23139e-06,0.34955e-06 /) - kbo(:,54,10) = (/ & - & 0.33903e-07,0.66466e-07,0.12020e-06,0.19856e-06,0.30630e-06 /) - kbo(:,55,10) = (/ & - & 0.26416e-07,0.53605e-07,0.10034e-06,0.17017e-06,0.26833e-06 /) - kbo(:,56,10) = (/ & - & 0.20206e-07,0.42611e-07,0.82928e-07,0.14532e-06,0.23365e-06 /) - kbo(:,57,10) = (/ & - & 0.15310e-07,0.33413e-07,0.67820e-07,0.12262e-06,0.20213e-06 /) - kbo(:,58,10) = (/ & - & 0.11722e-07,0.26420e-07,0.55414e-07,0.10347e-06,0.17567e-06 /) - kbo(:,59,10) = (/ & - & 0.10312e-07,0.23851e-07,0.50918e-07,0.96421e-07,0.16547e-06 /) - kbo(:,13,11) = (/ & - & 0.10213e-04,0.10492e-04,0.10768e-04,0.11052e-04,0.11341e-04 /) - kbo(:,14,11) = (/ & - & 0.92065e-05,0.95170e-05,0.98374e-05,0.10166e-04,0.10515e-04 /) - kbo(:,15,11) = (/ & - & 0.82447e-05,0.85845e-05,0.89388e-05,0.93243e-05,0.97313e-05 /) - kbo(:,16,11) = (/ & - & 0.73562e-05,0.77204e-05,0.81177e-05,0.85472e-05,0.89941e-05 /) - kbo(:,17,11) = (/ & - & 0.65534e-05,0.69440e-05,0.73753e-05,0.78408e-05,0.83202e-05 /) - kbo(:,18,11) = (/ & - & 0.58421e-05,0.62603e-05,0.67231e-05,0.72105e-05,0.77276e-05 /) - kbo(:,19,11) = (/ & - & 0.52249e-05,0.56681e-05,0.61484e-05,0.66668e-05,0.72285e-05 /) - kbo(:,20,11) = (/ & - & 0.47032e-05,0.51617e-05,0.56660e-05,0.62226e-05,0.68302e-05 /) - kbo(:,21,11) = (/ & - & 0.42601e-05,0.47338e-05,0.52698e-05,0.58670e-05,0.65065e-05 /) - kbo(:,22,11) = (/ & - & 0.39167e-05,0.44205e-05,0.49953e-05,0.56267e-05,0.62956e-05 /) - kbo(:,23,11) = (/ & - & 0.36499e-05,0.41883e-05,0.47965e-05,0.54568e-05,0.61529e-05 /) - kbo(:,24,11) = (/ & - & 0.34565e-05,0.40283e-05,0.46653e-05,0.53526e-05,0.60723e-05 /) - kbo(:,25,11) = (/ & - & 0.33292e-05,0.39315e-05,0.45958e-05,0.53082e-05,0.60473e-05 /) - kbo(:,26,11) = (/ & - & 0.32653e-05,0.38970e-05,0.45879e-05,0.53204e-05,0.60776e-05 /) - kbo(:,27,11) = (/ & - & 0.32497e-05,0.39083e-05,0.46221e-05,0.53722e-05,0.61437e-05 /) - kbo(:,28,11) = (/ & - & 0.32741e-05,0.39580e-05,0.46902e-05,0.54541e-05,0.62354e-05 /) - kbo(:,29,11) = (/ & - & 0.33369e-05,0.40429e-05,0.47902e-05,0.55664e-05,0.63553e-05 /) - kbo(:,30,11) = (/ & - & 0.34283e-05,0.41504e-05,0.49124e-05,0.56972e-05,0.64922e-05 /) - kbo(:,31,11) = (/ & - & 0.35444e-05,0.42823e-05,0.50547e-05,0.58477e-05,0.66477e-05 /) - kbo(:,32,11) = (/ & - & 0.36801e-05,0.44317e-05,0.52138e-05,0.60136e-05,0.68176e-05 /) - kbo(:,33,11) = (/ & - & 0.38318e-05,0.45951e-05,0.53855e-05,0.61901e-05,0.69963e-05 /) - kbo(:,34,11) = (/ & - & 0.39692e-05,0.47416e-05,0.55387e-05,0.63463e-05,0.71529e-05 /) - kbo(:,35,11) = (/ & - & 0.40413e-05,0.48197e-05,0.56200e-05,0.64302e-05,0.72378e-05 /) - kbo(:,36,11) = (/ & - & 0.40356e-05,0.48162e-05,0.56178e-05,0.64290e-05,0.72385e-05 /) - kbo(:,37,11) = (/ & - & 0.39181e-05,0.46953e-05,0.54967e-05,0.63083e-05,0.71198e-05 /) - kbo(:,38,11) = (/ & - & 0.37977e-05,0.45715e-05,0.53704e-05,0.61820e-05,0.69964e-05 /) - kbo(:,39,11) = (/ & - & 0.36811e-05,0.44507e-05,0.52481e-05,0.60593e-05,0.68739e-05 /) - kbo(:,40,11) = (/ & - & 0.34909e-05,0.42522e-05,0.50444e-05,0.58543e-05,0.66697e-05 /) - kbo(:,41,11) = (/ & - & 0.32953e-05,0.40465e-05,0.48326e-05,0.56401e-05,0.64551e-05 /) - kbo(:,42,11) = (/ & - & 0.31040e-05,0.38444e-05,0.46230e-05,0.54267e-05,0.62419e-05 /) - kbo(:,43,11) = (/ & - & 0.28773e-05,0.36028e-05,0.43716e-05,0.51693e-05,0.59825e-05 /) - kbo(:,44,11) = (/ & - & 0.26404e-05,0.33480e-05,0.41036e-05,0.48939e-05,0.57034e-05 /) - kbo(:,45,11) = (/ & - & 0.24120e-05,0.30991e-05,0.38405e-05,0.46208e-05,0.54260e-05 /) - kbo(:,46,11) = (/ & - & 0.21786e-05,0.28418e-05,0.35659e-05,0.43343e-05,0.51318e-05 /) - kbo(:,47,11) = (/ & - & 0.19311e-05,0.25641e-05,0.32660e-05,0.40180e-05,0.48060e-05 /) - kbo(:,48,11) = (/ & - & 0.16967e-05,0.22980e-05,0.29746e-05,0.37093e-05,0.44842e-05 /) - kbo(:,49,11) = (/ & - & 0.14774e-05,0.20448e-05,0.26926e-05,0.34064e-05,0.41668e-05 /) - kbo(:,50,11) = (/ & - & 0.12873e-05,0.18193e-05,0.24384e-05,0.31296e-05,0.38742e-05 /) - kbo(:,51,11) = (/ & - & 0.11146e-05,0.16126e-05,0.22020e-05,0.28686e-05,0.35959e-05 /) - kbo(:,52,11) = (/ & - & 0.95604e-06,0.14200e-05,0.19761e-05,0.26163e-05,0.33236e-05 /) - kbo(:,53,11) = (/ & - & 0.80966e-06,0.12381e-05,0.17610e-05,0.23732e-05,0.30580e-05 /) - kbo(:,54,11) = (/ & - & 0.68766e-06,0.10830e-05,0.15763e-05,0.21583e-05,0.28207e-05 /) - kbo(:,55,11) = (/ & - & 0.58212e-06,0.94518e-06,0.14071e-05,0.19616e-05,0.26001e-05 /) - kbo(:,56,11) = (/ & - & 0.48769e-06,0.81784e-06,0.12480e-05,0.17754e-05,0.23872e-05 /) - kbo(:,57,11) = (/ & - & 0.40334e-06,0.70099e-06,0.10993e-05,0.15960e-05,0.21818e-05 /) - kbo(:,58,11) = (/ & - & 0.33254e-06,0.59979e-06,0.96749e-06,0.14348e-05,0.19961e-05 /) - kbo(:,59,11) = (/ & - & 0.30667e-06,0.56182e-06,0.91722e-06,0.13728e-05,0.19233e-05 /) - kbo(:,13,12) = (/ & - & 0.21780e-04,0.22297e-04,0.22851e-04,0.23387e-04,0.23897e-04 /) - kbo(:,14,12) = (/ & - & 0.20875e-04,0.21531e-04,0.22189e-04,0.22823e-04,0.23424e-04 /) - kbo(:,15,12) = (/ & - & 0.19941e-04,0.20728e-04,0.21492e-04,0.22225e-04,0.22948e-04 /) - kbo(:,16,12) = (/ & - & 0.19013e-04,0.19918e-04,0.20796e-04,0.21654e-04,0.22503e-04 /) - kbo(:,17,12) = (/ & - & 0.18129e-04,0.19150e-04,0.20149e-04,0.21144e-04,0.22094e-04 /) - kbo(:,18,12) = (/ & - & 0.17308e-04,0.18451e-04,0.19578e-04,0.20689e-04,0.21728e-04 /) - kbo(:,19,12) = (/ & - & 0.16581e-04,0.17835e-04,0.19087e-04,0.20285e-04,0.21402e-04 /) - kbo(:,20,12) = (/ & - & 0.15978e-04,0.17349e-04,0.18704e-04,0.19972e-04,0.21143e-04 /) - kbo(:,21,12) = (/ & - & 0.15496e-04,0.16976e-04,0.18403e-04,0.19724e-04,0.20952e-04 /) - kbo(:,22,12) = (/ & - & 0.15240e-04,0.16798e-04,0.18272e-04,0.19635e-04,0.20901e-04 /) - kbo(:,23,12) = (/ & - & 0.15105e-04,0.16716e-04,0.18220e-04,0.19617e-04,0.20916e-04 /) - kbo(:,24,12) = (/ & - & 0.15076e-04,0.16719e-04,0.18249e-04,0.19672e-04,0.20991e-04 /) - kbo(:,25,12) = (/ & - & 0.15141e-04,0.16802e-04,0.18352e-04,0.19786e-04,0.21116e-04 /) - kbo(:,26,12) = (/ & - & 0.15306e-04,0.16974e-04,0.18529e-04,0.19965e-04,0.21296e-04 /) - kbo(:,27,12) = (/ & - & 0.15522e-04,0.17192e-04,0.18747e-04,0.20182e-04,0.21501e-04 /) - kbo(:,28,12) = (/ & - & 0.15784e-04,0.17449e-04,0.18996e-04,0.20419e-04,0.21733e-04 /) - kbo(:,29,12) = (/ & - & 0.16090e-04,0.17744e-04,0.19276e-04,0.20687e-04,0.21987e-04 /) - kbo(:,30,12) = (/ & - & 0.16419e-04,0.18062e-04,0.19575e-04,0.20970e-04,0.22248e-04 /) - kbo(:,31,12) = (/ & - & 0.16777e-04,0.18399e-04,0.19892e-04,0.21268e-04,0.22521e-04 /) - kbo(:,32,12) = (/ & - & 0.17152e-04,0.18750e-04,0.20222e-04,0.21573e-04,0.22802e-04 /) - kbo(:,33,12) = (/ & - & 0.17537e-04,0.19109e-04,0.20556e-04,0.21883e-04,0.23082e-04 /) - kbo(:,34,12) = (/ & - & 0.17871e-04,0.19418e-04,0.20844e-04,0.22147e-04,0.23322e-04 /) - kbo(:,35,12) = (/ & - & 0.18052e-04,0.19587e-04,0.21002e-04,0.22291e-04,0.23455e-04 /) - kbo(:,36,12) = (/ & - & 0.18063e-04,0.19601e-04,0.21016e-04,0.22306e-04,0.23468e-04 /) - kbo(:,37,12) = (/ & - & 0.17833e-04,0.19389e-04,0.20824e-04,0.22132e-04,0.23314e-04 /) - kbo(:,38,12) = (/ & - & 0.17587e-04,0.19167e-04,0.20623e-04,0.21950e-04,0.23152e-04 /) - kbo(:,39,12) = (/ & - & 0.17343e-04,0.18945e-04,0.20418e-04,0.21765e-04,0.22984e-04 /) - kbo(:,40,12) = (/ & - & 0.16926e-04,0.18563e-04,0.20065e-04,0.21446e-04,0.22697e-04 /) - kbo(:,41,12) = (/ & - & 0.16478e-04,0.18152e-04,0.19687e-04,0.21101e-04,0.22388e-04 /) - kbo(:,42,12) = (/ & - & 0.16023e-04,0.17729e-04,0.19301e-04,0.20748e-04,0.22068e-04 /) - kbo(:,43,12) = (/ & - & 0.15458e-04,0.17203e-04,0.18821e-04,0.20305e-04,0.21667e-04 /) - kbo(:,44,12) = (/ & - & 0.14831e-04,0.16623e-04,0.18287e-04,0.19814e-04,0.21219e-04 /) - kbo(:,45,12) = (/ & - & 0.14192e-04,0.16029e-04,0.17735e-04,0.19308e-04,0.20757e-04 /) - kbo(:,46,12) = (/ & - & 0.13493e-04,0.15380e-04,0.17134e-04,0.18756e-04,0.20247e-04 /) - kbo(:,47,12) = (/ & - & 0.12693e-04,0.14634e-04,0.16440e-04,0.18118e-04,0.19661e-04 /) - kbo(:,48,12) = (/ & - & 0.11878e-04,0.13868e-04,0.15729e-04,0.17458e-04,0.19054e-04 /) - kbo(:,49,12) = (/ & - & 0.11052e-04,0.13077e-04,0.14993e-04,0.16776e-04,0.18429e-04 /) - kbo(:,50,12) = (/ & - & 0.10274e-04,0.12322e-04,0.14286e-04,0.16119e-04,0.17820e-04 /) - kbo(:,51,12) = (/ & - & 0.95165e-05,0.11577e-04,0.13581e-04,0.15463e-04,0.17211e-04 /) - kbo(:,52,12) = (/ & - & 0.87654e-05,0.10825e-04,0.12859e-04,0.14791e-04,0.16589e-04 /) - kbo(:,53,12) = (/ & - & 0.80213e-05,0.10071e-04,0.12124e-04,0.14102e-04,0.15949e-04 /) - kbo(:,54,12) = (/ & - & 0.73473e-05,0.93776e-05,0.11439e-04,0.13452e-04,0.15344e-04 /) - kbo(:,55,12) = (/ & - & 0.67127e-05,0.87188e-05,0.10780e-04,0.12816e-04,0.14751e-04 /) - kbo(:,56,12) = (/ & - & 0.60935e-05,0.80668e-05,0.10118e-04,0.12169e-04,0.14148e-04 /) - kbo(:,57,12) = (/ & - & 0.54908e-05,0.74223e-05,0.94571e-05,0.11517e-04,0.13528e-04 /) - kbo(:,58,12) = (/ & - & 0.49372e-05,0.68201e-05,0.88324e-05,0.10894e-04,0.12926e-04 /) - kbo(:,59,12) = (/ & - & 0.47213e-05,0.65842e-05,0.85835e-05,0.10644e-04,0.12683e-04 /) - kbo(:,13,13) = (/ & - & 0.46820e-04,0.47158e-04,0.47420e-04,0.47688e-04,0.47860e-04 /) - kbo(:,14,13) = (/ & - & 0.47343e-04,0.47824e-04,0.48275e-04,0.48677e-04,0.48937e-04 /) - kbo(:,15,13) = (/ & - & 0.47643e-04,0.48345e-04,0.48980e-04,0.49469e-04,0.49813e-04 /) - kbo(:,16,13) = (/ & - & 0.47844e-04,0.48762e-04,0.49536e-04,0.50120e-04,0.50548e-04 /) - kbo(:,17,13) = (/ & - & 0.47956e-04,0.49079e-04,0.49982e-04,0.50640e-04,0.51155e-04 /) - kbo(:,18,13) = (/ & - & 0.48046e-04,0.49334e-04,0.50343e-04,0.51068e-04,0.51673e-04 /) - kbo(:,19,13) = (/ & - & 0.48132e-04,0.49550e-04,0.50630e-04,0.51453e-04,0.52124e-04 /) - kbo(:,20,13) = (/ & - & 0.48262e-04,0.49765e-04,0.50907e-04,0.51808e-04,0.52533e-04 /) - kbo(:,21,13) = (/ & - & 0.48402e-04,0.49959e-04,0.51170e-04,0.52136e-04,0.52894e-04 /) - kbo(:,22,13) = (/ & - & 0.48671e-04,0.50243e-04,0.51485e-04,0.52481e-04,0.53256e-04 /) - kbo(:,23,13) = (/ & - & 0.48954e-04,0.50544e-04,0.51806e-04,0.52811e-04,0.53587e-04 /) - kbo(:,24,13) = (/ & - & 0.49272e-04,0.50858e-04,0.52128e-04,0.53125e-04,0.53892e-04 /) - kbo(:,25,13) = (/ & - & 0.49616e-04,0.51186e-04,0.52450e-04,0.53425e-04,0.54174e-04 /) - kbo(:,26,13) = (/ & - & 0.50001e-04,0.51551e-04,0.52773e-04,0.53723e-04,0.54445e-04 /) - kbo(:,27,13) = (/ & - & 0.50406e-04,0.51904e-04,0.53086e-04,0.54001e-04,0.54687e-04 /) - kbo(:,28,13) = (/ & - & 0.50802e-04,0.52248e-04,0.53391e-04,0.54260e-04,0.54906e-04 /) - kbo(:,29,13) = (/ & - & 0.51204e-04,0.52593e-04,0.53683e-04,0.54507e-04,0.55109e-04 /) - kbo(:,30,13) = (/ & - & 0.51608e-04,0.52928e-04,0.53956e-04,0.54730e-04,0.55285e-04 /) - kbo(:,31,13) = (/ & - & 0.51993e-04,0.53249e-04,0.54213e-04,0.54939e-04,0.55442e-04 /) - kbo(:,32,13) = (/ & - & 0.52364e-04,0.53549e-04,0.54461e-04,0.55127e-04,0.55583e-04 /) - kbo(:,33,13) = (/ & - & 0.52722e-04,0.53841e-04,0.54688e-04,0.55301e-04,0.55705e-04 /) - kbo(:,34,13) = (/ & - & 0.53018e-04,0.54074e-04,0.54867e-04,0.55434e-04,0.55799e-04 /) - kbo(:,35,13) = (/ & - & 0.53187e-04,0.54211e-04,0.54980e-04,0.55515e-04,0.55855e-04 /) - kbo(:,36,13) = (/ & - & 0.53222e-04,0.54242e-04,0.55009e-04,0.55544e-04,0.55878e-04 /) - kbo(:,37,13) = (/ & - & 0.53077e-04,0.54137e-04,0.54934e-04,0.55495e-04,0.55862e-04 /) - kbo(:,38,13) = (/ & - & 0.52907e-04,0.54013e-04,0.54850e-04,0.55445e-04,0.55837e-04 /) - kbo(:,39,13) = (/ & - & 0.52736e-04,0.53884e-04,0.54754e-04,0.55383e-04,0.55805e-04 /) - kbo(:,40,13) = (/ & - & 0.52415e-04,0.53638e-04,0.54576e-04,0.55258e-04,0.55727e-04 /) - kbo(:,41,13) = (/ & - & 0.52053e-04,0.53364e-04,0.54368e-04,0.55117e-04,0.55636e-04 /) - kbo(:,42,13) = (/ & - & 0.51661e-04,0.53061e-04,0.54142e-04,0.54952e-04,0.55527e-04 /) - kbo(:,43,13) = (/ & - & 0.51150e-04,0.52667e-04,0.53836e-04,0.54732e-04,0.55377e-04 /) - kbo(:,44,13) = (/ & - & 0.50559e-04,0.52194e-04,0.53480e-04,0.54465e-04,0.55186e-04 /) - kbo(:,45,13) = (/ & - & 0.49921e-04,0.51684e-04,0.53086e-04,0.54162e-04,0.54971e-04 /) - kbo(:,46,13) = (/ & - & 0.49197e-04,0.51093e-04,0.52628e-04,0.53809e-04,0.54714e-04 /) - kbo(:,47,13) = (/ & - & 0.48328e-04,0.50372e-04,0.52058e-04,0.53374e-04,0.54380e-04 /) - kbo(:,48,13) = (/ & - & 0.47381e-04,0.49603e-04,0.51420e-04,0.52887e-04,0.54013e-04 /) - kbo(:,49,13) = (/ & - & 0.46342e-04,0.48755e-04,0.50735e-04,0.52347e-04,0.53594e-04 /) - kbo(:,50,13) = (/ & - & 0.45266e-04,0.47911e-04,0.50033e-04,0.51782e-04,0.53163e-04 /) - kbo(:,51,13) = (/ & - & 0.44139e-04,0.47021e-04,0.49310e-04,0.51184e-04,0.52699e-04 /) - kbo(:,52,13) = (/ & - & 0.42930e-04,0.46044e-04,0.48523e-04,0.50540e-04,0.52191e-04 /) - kbo(:,53,13) = (/ & - & 0.41632e-04,0.44983e-04,0.47688e-04,0.49847e-04,0.51629e-04 /) - kbo(:,54,13) = (/ & - & 0.40359e-04,0.43928e-04,0.46843e-04,0.49172e-04,0.51075e-04 /) - kbo(:,55,13) = (/ & - & 0.39074e-04,0.42858e-04,0.45984e-04,0.48480e-04,0.50508e-04 /) - kbo(:,56,13) = (/ & - & 0.37728e-04,0.41722e-04,0.45056e-04,0.47740e-04,0.49900e-04 /) - kbo(:,57,13) = (/ & - & 0.36320e-04,0.40515e-04,0.44055e-04,0.46942e-04,0.49258e-04 /) - kbo(:,58,13) = (/ & - & 0.34927e-04,0.39308e-04,0.43052e-04,0.46141e-04,0.48596e-04 /) - kbo(:,59,13) = (/ & - & 0.34349e-04,0.38808e-04,0.42631e-04,0.45802e-04,0.48325e-04 /) - kbo(:,13,14) = (/ & - & 0.91739e-04,0.90588e-04,0.89270e-04,0.87862e-04,0.86541e-04 /) - kbo(:,14,14) = (/ & - & 0.97111e-04,0.95879e-04,0.94382e-04,0.92799e-04,0.91344e-04 /) - kbo(:,15,14) = (/ & - & 0.10201e-03,0.10059e-03,0.98963e-04,0.97297e-04,0.95661e-04 /) - kbo(:,16,14) = (/ & - & 0.10632e-03,0.10477e-03,0.10303e-03,0.10127e-03,0.99489e-04 /) - kbo(:,17,14) = (/ & - & 0.11011e-03,0.10842e-03,0.10659e-03,0.10474e-03,0.10285e-03 /) - kbo(:,18,14) = (/ & - & 0.11338e-03,0.11158e-03,0.10968e-03,0.10773e-03,0.10569e-03 /) - kbo(:,19,14) = (/ & - & 0.11615e-03,0.11428e-03,0.11231e-03,0.11026e-03,0.10810e-03 /) - kbo(:,20,14) = (/ & - & 0.11847e-03,0.11653e-03,0.11450e-03,0.11235e-03,0.11005e-03 /) - kbo(:,21,14) = (/ & - & 0.12039e-03,0.11839e-03,0.11628e-03,0.11404e-03,0.11166e-03 /) - kbo(:,22,14) = (/ & - & 0.12185e-03,0.11978e-03,0.11759e-03,0.11525e-03,0.11275e-03 /) - kbo(:,23,14) = (/ & - & 0.12298e-03,0.12085e-03,0.11858e-03,0.11615e-03,0.11356e-03 /) - kbo(:,24,14) = (/ & - & 0.12384e-03,0.12163e-03,0.11927e-03,0.11676e-03,0.11410e-03 /) - kbo(:,25,14) = (/ & - & 0.12445e-03,0.12216e-03,0.11972e-03,0.11712e-03,0.11440e-03 /) - kbo(:,26,14) = (/ & - & 0.12480e-03,0.12244e-03,0.11993e-03,0.11725e-03,0.11449e-03 /) - kbo(:,27,14) = (/ & - & 0.12497e-03,0.12254e-03,0.11997e-03,0.11723e-03,0.11442e-03 /) - kbo(:,28,14) = (/ & - & 0.12498e-03,0.12249e-03,0.11986e-03,0.11707e-03,0.11425e-03 /) - kbo(:,29,14) = (/ & - & 0.12486e-03,0.12231e-03,0.11961e-03,0.11677e-03,0.11393e-03 /) - kbo(:,30,14) = (/ & - & 0.12462e-03,0.12202e-03,0.11925e-03,0.11640e-03,0.11355e-03 /) - kbo(:,31,14) = (/ & - & 0.12428e-03,0.12163e-03,0.11882e-03,0.11594e-03,0.11310e-03 /) - kbo(:,32,14) = (/ & - & 0.12387e-03,0.12116e-03,0.11831e-03,0.11542e-03,0.11260e-03 /) - kbo(:,33,14) = (/ & - & 0.12338e-03,0.12061e-03,0.11773e-03,0.11485e-03,0.11205e-03 /) - kbo(:,34,14) = (/ & - & 0.12293e-03,0.12013e-03,0.11722e-03,0.11434e-03,0.11156e-03 /) - kbo(:,35,14) = (/ & - & 0.12271e-03,0.11987e-03,0.11696e-03,0.11408e-03,0.11132e-03 /) - kbo(:,36,14) = (/ & - & 0.12276e-03,0.11992e-03,0.11700e-03,0.11412e-03,0.11135e-03 /) - kbo(:,37,14) = (/ & - & 0.12321e-03,0.12039e-03,0.11748e-03,0.11457e-03,0.11178e-03 /) - kbo(:,38,14) = (/ & - & 0.12368e-03,0.12086e-03,0.11795e-03,0.11504e-03,0.11223e-03 /) - kbo(:,39,14) = (/ & - & 0.12412e-03,0.12132e-03,0.11841e-03,0.11549e-03,0.11266e-03 /) - kbo(:,40,14) = (/ & - & 0.12481e-03,0.12205e-03,0.11917e-03,0.11624e-03,0.11338e-03 /) - kbo(:,41,14) = (/ & - & 0.12552e-03,0.12282e-03,0.11995e-03,0.11701e-03,0.11413e-03 /) - kbo(:,42,14) = (/ & - & 0.12624e-03,0.12356e-03,0.12073e-03,0.11779e-03,0.11489e-03 /) - kbo(:,43,14) = (/ & - & 0.12708e-03,0.12444e-03,0.12166e-03,0.11873e-03,0.11581e-03 /) - kbo(:,44,14) = (/ & - & 0.12796e-03,0.12537e-03,0.12263e-03,0.11974e-03,0.11681e-03 /) - kbo(:,45,14) = (/ & - & 0.12882e-03,0.12627e-03,0.12360e-03,0.12075e-03,0.11782e-03 /) - kbo(:,46,14) = (/ & - & 0.12968e-03,0.12723e-03,0.12459e-03,0.12181e-03,0.11889e-03 /) - kbo(:,47,14) = (/ & - & 0.13062e-03,0.12827e-03,0.12567e-03,0.12295e-03,0.12008e-03 /) - kbo(:,48,14) = (/ & - & 0.13150e-03,0.12926e-03,0.12675e-03,0.12408e-03,0.12126e-03 /) - kbo(:,49,14) = (/ & - & 0.13233e-03,0.13021e-03,0.12780e-03,0.12517e-03,0.12242e-03 /) - kbo(:,50,14) = (/ & - & 0.13307e-03,0.13105e-03,0.12874e-03,0.12618e-03,0.12349e-03 /) - kbo(:,51,14) = (/ & - & 0.13374e-03,0.13183e-03,0.12963e-03,0.12715e-03,0.12449e-03 /) - kbo(:,52,14) = (/ & - & 0.13431e-03,0.13255e-03,0.13046e-03,0.12807e-03,0.12548e-03 /) - kbo(:,53,14) = (/ & - & 0.13479e-03,0.13325e-03,0.13127e-03,0.12898e-03,0.12645e-03 /) - kbo(:,54,14) = (/ & - & 0.13511e-03,0.13385e-03,0.13196e-03,0.12979e-03,0.12732e-03 /) - kbo(:,55,14) = (/ & - & 0.13533e-03,0.13436e-03,0.13261e-03,0.13052e-03,0.12814e-03 /) - kbo(:,56,14) = (/ & - & 0.13543e-03,0.13477e-03,0.13321e-03,0.13121e-03,0.12893e-03 /) - kbo(:,57,14) = (/ & - & 0.13540e-03,0.13509e-03,0.13379e-03,0.13190e-03,0.12969e-03 /) - kbo(:,58,14) = (/ & - & 0.13520e-03,0.13532e-03,0.13428e-03,0.13250e-03,0.13039e-03 /) - kbo(:,59,14) = (/ & - & 0.13510e-03,0.13536e-03,0.13445e-03,0.13273e-03,0.13066e-03 /) - kbo(:,13,15) = (/ & - & 0.16545e-03,0.16076e-03,0.15662e-03,0.15273e-03,0.14899e-03 /) - kbo(:,14,15) = (/ & - & 0.17968e-03,0.17402e-03,0.16899e-03,0.16434e-03,0.15984e-03 /) - kbo(:,15,15) = (/ & - & 0.19299e-03,0.18634e-03,0.18041e-03,0.17491e-03,0.16965e-03 /) - kbo(:,16,15) = (/ & - & 0.20519e-03,0.19756e-03,0.19072e-03,0.18435e-03,0.17834e-03 /) - kbo(:,17,15) = (/ & - & 0.21616e-03,0.20753e-03,0.19981e-03,0.19268e-03,0.18599e-03 /) - kbo(:,18,15) = (/ & - & 0.22578e-03,0.21627e-03,0.20768e-03,0.19983e-03,0.19254e-03 /) - kbo(:,19,15) = (/ & - & 0.23404e-03,0.22371e-03,0.21439e-03,0.20593e-03,0.19813e-03 /) - kbo(:,20,15) = (/ & - & 0.24079e-03,0.22975e-03,0.21986e-03,0.21084e-03,0.20261e-03 /) - kbo(:,21,15) = (/ & - & 0.24629e-03,0.23467e-03,0.22423e-03,0.21475e-03,0.20622e-03 /) - kbo(:,22,15) = (/ & - & 0.24979e-03,0.23775e-03,0.22702e-03,0.21724e-03,0.20849e-03 /) - kbo(:,23,15) = (/ & - & 0.25216e-03,0.23989e-03,0.22890e-03,0.21892e-03,0.21005e-03 /) - kbo(:,24,15) = (/ & - & 0.25355e-03,0.24109e-03,0.22997e-03,0.21990e-03,0.21094e-03 /) - kbo(:,25,15) = (/ & - & 0.25401e-03,0.24151e-03,0.23030e-03,0.22024e-03,0.21125e-03 /) - kbo(:,26,15) = (/ & - & 0.25359e-03,0.24114e-03,0.22993e-03,0.21995e-03,0.21097e-03 /) - kbo(:,27,15) = (/ & - & 0.25262e-03,0.24030e-03,0.22913e-03,0.21926e-03,0.21037e-03 /) - kbo(:,28,15) = (/ & - & 0.25126e-03,0.23904e-03,0.22801e-03,0.21831e-03,0.20948e-03 /) - kbo(:,29,15) = (/ & - & 0.24948e-03,0.23745e-03,0.22663e-03,0.21704e-03,0.20834e-03 /) - kbo(:,30,15) = (/ & - & 0.24748e-03,0.23558e-03,0.22502e-03,0.21558e-03,0.20699e-03 /) - kbo(:,31,15) = (/ & - & 0.24521e-03,0.23353e-03,0.22323e-03,0.21394e-03,0.20549e-03 /) - kbo(:,32,15) = (/ & - & 0.24273e-03,0.23132e-03,0.22129e-03,0.21221e-03,0.20387e-03 /) - kbo(:,33,15) = (/ & - & 0.24020e-03,0.22911e-03,0.21929e-03,0.21039e-03,0.20217e-03 /) - kbo(:,34,15) = (/ & - & 0.23799e-03,0.22719e-03,0.21754e-03,0.20880e-03,0.20071e-03 /) - kbo(:,35,15) = (/ & - & 0.23687e-03,0.22619e-03,0.21668e-03,0.20798e-03,0.19994e-03 /) - kbo(:,36,15) = (/ & - & 0.23693e-03,0.22624e-03,0.21673e-03,0.20802e-03,0.19997e-03 /) - kbo(:,37,15) = (/ & - & 0.23866e-03,0.22780e-03,0.21810e-03,0.20930e-03,0.20116e-03 /) - kbo(:,38,15) = (/ & - & 0.24049e-03,0.22941e-03,0.21958e-03,0.21064e-03,0.20240e-03 /) - kbo(:,39,15) = (/ & - & 0.24235e-03,0.23100e-03,0.22101e-03,0.21195e-03,0.20362e-03 /) - kbo(:,40,15) = (/ & - & 0.24544e-03,0.23374e-03,0.22344e-03,0.21416e-03,0.20567e-03 /) - kbo(:,41,15) = (/ & - & 0.24874e-03,0.23671e-03,0.22606e-03,0.21653e-03,0.20786e-03 /) - kbo(:,42,15) = (/ & - & 0.25214e-03,0.23974e-03,0.22874e-03,0.21892e-03,0.21007e-03 /) - kbo(:,43,15) = (/ & - & 0.25633e-03,0.24355e-03,0.23207e-03,0.22195e-03,0.21281e-03 /) - kbo(:,44,15) = (/ & - & 0.26108e-03,0.24779e-03,0.23584e-03,0.22529e-03,0.21581e-03 /) - kbo(:,45,15) = (/ & - & 0.26596e-03,0.25216e-03,0.23977e-03,0.22875e-03,0.21897e-03 /) - kbo(:,46,15) = (/ & - & 0.27137e-03,0.25699e-03,0.24413e-03,0.23258e-03,0.22240e-03 /) - kbo(:,47,15) = (/ & - & 0.27767e-03,0.26264e-03,0.24919e-03,0.23707e-03,0.22639e-03 /) - kbo(:,48,15) = (/ & - & 0.28422e-03,0.26851e-03,0.25443e-03,0.24179e-03,0.23054e-03 /) - kbo(:,49,15) = (/ & - & 0.29109e-03,0.27465e-03,0.25993e-03,0.24676e-03,0.23489e-03 /) - kbo(:,50,15) = (/ & - & 0.29784e-03,0.28066e-03,0.26532e-03,0.25156e-03,0.23921e-03 /) - kbo(:,51,15) = (/ & - & 0.30464e-03,0.28674e-03,0.27072e-03,0.25642e-03,0.24358e-03 /) - kbo(:,52,15) = (/ & - & 0.31175e-03,0.29305e-03,0.27640e-03,0.26149e-03,0.24813e-03 /) - kbo(:,53,15) = (/ & - & 0.31921e-03,0.29964e-03,0.28229e-03,0.26674e-03,0.25282e-03 /) - kbo(:,54,15) = (/ & - & 0.32632e-03,0.30596e-03,0.28789e-03,0.27174e-03,0.25731e-03 /) - kbo(:,55,15) = (/ & - & 0.33342e-03,0.31218e-03,0.29344e-03,0.27674e-03,0.26179e-03 /) - kbo(:,56,15) = (/ & - & 0.34053e-03,0.31870e-03,0.29920e-03,0.28191e-03,0.26637e-03 /) - kbo(:,57,15) = (/ & - & 0.34801e-03,0.32554e-03,0.30518e-03,0.28726e-03,0.27114e-03 /) - kbo(:,58,15) = (/ & - & 0.35537e-03,0.33214e-03,0.31109e-03,0.29248e-03,0.27588e-03 /) - kbo(:,59,15) = (/ & - & 0.35841e-03,0.33487e-03,0.31352e-03,0.29463e-03,0.27781e-03 /) - kbo(:,13,16) = (/ & - & 0.23817e-03,0.23193e-03,0.22589e-03,0.21979e-03,0.21365e-03 /) - kbo(:,14,16) = (/ & - & 0.26266e-03,0.25442e-03,0.24663e-03,0.23897e-03,0.23152e-03 /) - kbo(:,15,16) = (/ & - & 0.28586e-03,0.27559e-03,0.26587e-03,0.25663e-03,0.24800e-03 /) - kbo(:,16,16) = (/ & - & 0.30726e-03,0.29496e-03,0.28337e-03,0.27251e-03,0.26278e-03 /) - kbo(:,17,16) = (/ & - & 0.32665e-03,0.31224e-03,0.29895e-03,0.28665e-03,0.27581e-03 /) - kbo(:,18,16) = (/ & - & 0.34367e-03,0.32749e-03,0.31249e-03,0.29896e-03,0.28707e-03 /) - kbo(:,19,16) = (/ & - & 0.35833e-03,0.34046e-03,0.32413e-03,0.30949e-03,0.29662e-03 /) - kbo(:,20,16) = (/ & - & 0.37032e-03,0.35107e-03,0.33355e-03,0.31795e-03,0.30443e-03 /) - kbo(:,21,16) = (/ & - & 0.38004e-03,0.35962e-03,0.34106e-03,0.32482e-03,0.31071e-03 /) - kbo(:,22,16) = (/ & - & 0.38628e-03,0.36502e-03,0.34582e-03,0.32929e-03,0.31473e-03 /) - kbo(:,23,16) = (/ & - & 0.39046e-03,0.36870e-03,0.34902e-03,0.33239e-03,0.31753e-03 /) - kbo(:,24,16) = (/ & - & 0.39290e-03,0.37079e-03,0.35085e-03,0.33417e-03,0.31909e-03 /) - kbo(:,25,16) = (/ & - & 0.39368e-03,0.37132e-03,0.35155e-03,0.33489e-03,0.31974e-03 /) - kbo(:,26,16) = (/ & - & 0.39288e-03,0.37052e-03,0.35111e-03,0.33452e-03,0.31938e-03 /) - kbo(:,27,16) = (/ & - & 0.39120e-03,0.36896e-03,0.34999e-03,0.33347e-03,0.31836e-03 /) - kbo(:,28,16) = (/ & - & 0.38862e-03,0.36669e-03,0.34828e-03,0.33189e-03,0.31693e-03 /) - kbo(:,29,16) = (/ & - & 0.38540e-03,0.36396e-03,0.34596e-03,0.32975e-03,0.31502e-03 /) - kbo(:,30,16) = (/ & - & 0.38165e-03,0.36095e-03,0.34333e-03,0.32738e-03,0.31277e-03 /) - kbo(:,31,16) = (/ & - & 0.37756e-03,0.35762e-03,0.34034e-03,0.32467e-03,0.31030e-03 /) - kbo(:,32,16) = (/ & - & 0.37323e-03,0.35410e-03,0.33709e-03,0.32164e-03,0.30764e-03 /) - kbo(:,33,16) = (/ & - & 0.36881e-03,0.35033e-03,0.33368e-03,0.31855e-03,0.30481e-03 /) - kbo(:,34,16) = (/ & - & 0.36518e-03,0.34710e-03,0.33080e-03,0.31589e-03,0.30241e-03 /) - kbo(:,35,16) = (/ & - & 0.36331e-03,0.34548e-03,0.32924e-03,0.31455e-03,0.30119e-03 /) - kbo(:,36,16) = (/ & - & 0.36345e-03,0.34559e-03,0.32934e-03,0.31463e-03,0.30125e-03 /) - kbo(:,37,16) = (/ & - & 0.36636e-03,0.34821e-03,0.33175e-03,0.31676e-03,0.30324e-03 /) - kbo(:,38,16) = (/ & - & 0.36948e-03,0.35092e-03,0.33423e-03,0.31902e-03,0.30527e-03 /) - kbo(:,39,16) = (/ & - & 0.37259e-03,0.35368e-03,0.33668e-03,0.32128e-03,0.30727e-03 /) - kbo(:,40,16) = (/ & - & 0.37795e-03,0.35829e-03,0.34085e-03,0.32505e-03,0.31069e-03 /) - kbo(:,41,16) = (/ & - & 0.38379e-03,0.36312e-03,0.34529e-03,0.32908e-03,0.31437e-03 /) - kbo(:,42,16) = (/ & - & 0.38990e-03,0.36819e-03,0.34980e-03,0.33322e-03,0.31806e-03 /) - kbo(:,43,16) = (/ & - & 0.39755e-03,0.37469e-03,0.35548e-03,0.33833e-03,0.32274e-03 /) - kbo(:,44,16) = (/ & - & 0.40604e-03,0.38206e-03,0.36178e-03,0.34404e-03,0.32793e-03 /) - kbo(:,45,16) = (/ & - & 0.41497e-03,0.38998e-03,0.36828e-03,0.34986e-03,0.33329e-03 /) - kbo(:,46,16) = (/ & - & 0.42497e-03,0.39871e-03,0.37566e-03,0.35633e-03,0.33909e-03 /) - kbo(:,47,16) = (/ & - & 0.43684e-03,0.40880e-03,0.38451e-03,0.36380e-03,0.34586e-03 /) - kbo(:,48,16) = (/ & - & 0.44932e-03,0.41960e-03,0.39404e-03,0.37171e-03,0.35286e-03 /) - kbo(:,49,16) = (/ & - & 0.46270e-03,0.43113e-03,0.40397e-03,0.38027e-03,0.36021e-03 /) - kbo(:,50,16) = (/ & - & 0.47605e-03,0.44249e-03,0.41370e-03,0.38887e-03,0.36733e-03 /) - kbo(:,51,16) = (/ & - & 0.48981e-03,0.45414e-03,0.42376e-03,0.39765e-03,0.37477e-03 /) - kbo(:,52,16) = (/ & - & 0.50430e-03,0.46661e-03,0.43437e-03,0.40673e-03,0.38268e-03 /) - kbo(:,53,16) = (/ & - & 0.51980e-03,0.47970e-03,0.44558e-03,0.41639e-03,0.39115e-03 /) - kbo(:,54,16) = (/ & - & 0.53506e-03,0.49244e-03,0.45647e-03,0.42564e-03,0.39926e-03 /) - kbo(:,55,16) = (/ & - & 0.55131e-03,0.50528e-03,0.46739e-03,0.43505e-03,0.40730e-03 /) - kbo(:,56,16) = (/ & - & 0.56909e-03,0.51883e-03,0.47884e-03,0.44497e-03,0.41571e-03 /) - kbo(:,57,16) = (/ & - & 0.58824e-03,0.53334e-03,0.49097e-03,0.45523e-03,0.42457e-03 /) - kbo(:,58,16) = (/ & - & 0.60745e-03,0.54837e-03,0.50301e-03,0.46546e-03,0.43352e-03 /) - kbo(:,59,16) = (/ & - & 0.61557e-03,0.55493e-03,0.50805e-03,0.46962e-03,0.43716e-03 /) - -! ----------------------------------------------------------------- - - forrefo(:, 1) = (/ 0.351362e-07, 0.341136e-07, 0.181317e-06 /) - forrefo(:, 2) = (/ 0.109648e-06, 0.344240e-06, 0.139709e-05 /) - forrefo(:, 3) = (/ 0.374823e-06, 0.103424e-05, 0.188717e-05 /) - forrefo(:, 4) = (/ 0.580041e-06, 0.116876e-05, 0.121183e-05 /) - forrefo(:, 5) = (/ 0.115608e-05, 0.148110e-05, 0.836083e-06 /) - forrefo(:, 6) = (/ 0.181460e-05, 0.133313e-05, 0.500167e-06 /) - forrefo(:, 7) = (/ 0.199096e-05, 0.115276e-05, 0.432994e-06 /) - forrefo(:, 8) = (/ 0.183730e-05, 0.122260e-05, 0.433248e-06 /) - forrefo(:, 9) = (/ 0.198386e-05, 0.100130e-05, 0.269712e-06 /) - forrefo(:,10) = (/ 0.276382e-05, 0.749215e-06, 0.236919e-06 /) - forrefo(:,11) = (/ 0.298202e-05, 0.629688e-06, 0.228388e-06 /) - forrefo(:,12) = (/ 0.364604e-05, 0.455336e-06, 0.206130e-06 /) - forrefo(:,13) = (/ 0.373339e-05, 0.245210e-06, 0.201987e-06 /) - forrefo(:,14) = (/ 0.480378e-05, 0.177591e-06, 0.171458e-06 /) - forrefo(:,15) = (/ 0.521700e-05, 0.203358e-06, 0.189559e-06 /) - forrefo(:,16) = (/ 0.542717e-05, 0.219022e-06, 0.218271e-06 /) - -! ----------------------------------------------------------------- -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 0.538526e-04, 0.464603e-04, 0.400828e-04, 0.345807e-04, 0.298339e-04, & - & 0.257386e-04, 0.222055e-04, 0.191574e-04, 0.165277e-04, 0.142590e-04 /) - selfrefo(:, 2) = (/ & - & 0.162409e-03, 0.128347e-03, 0.101430e-03, 0.801571e-04, 0.633460e-04, & - & 0.500607e-04, 0.395616e-04, 0.312645e-04, 0.247075e-04, 0.195257e-04 /) - selfrefo(:, 3) = (/ & - & 0.262882e-03, 0.212793e-03, 0.172247e-03, 0.139427e-03, 0.112860e-03, & - & 0.913557e-04, 0.739487e-04, 0.598584e-04, 0.484529e-04, 0.392206e-04 /) - selfrefo(:, 4) = (/ & - & 0.242873e-03, 0.204225e-03, 0.171726e-03, 0.144399e-03, 0.121421e-03, & - & 0.102099e-03, 0.858516e-04, 0.721899e-04, 0.607022e-04, 0.510426e-04 /) - selfrefo(:, 5) = (/ & - & 0.235614e-03, 0.207814e-03, 0.183293e-03, 0.161666e-03, 0.142591e-03, & - & 0.125766e-03, 0.110927e-03, 0.978381e-04, 0.862939e-04, 0.761119e-04 /) - selfrefo(:, 6) = (/ & - & 0.205508e-03, 0.190174e-03, 0.175985e-03, 0.162854e-03, 0.150702e-03, & - & 0.139458e-03, 0.129052e-03, 0.119423e-03, 0.110513e-03, 0.102267e-03 /) - selfrefo(:, 7) = (/ & - & 0.185027e-03, 0.175148e-03, 0.165796e-03, 0.156944e-03, 0.148565e-03, & - & 0.140633e-03, 0.133124e-03, 0.126016e-03, 0.119288e-03, 0.112919e-03 /) - selfrefo(:, 8) = (/ & - & 0.192634e-03, 0.180192e-03, 0.168554e-03, 0.157668e-03, 0.147484e-03, & - & 0.137959e-03, 0.129048e-03, 0.120713e-03, 0.112917e-03, 0.105624e-03 /) - selfrefo(:, 9) = (/ & - & 0.161632e-03, 0.155919e-03, 0.150408e-03, 0.145092e-03, 0.139963e-03, & - & 0.135016e-03, 0.130244e-03, 0.125640e-03, 0.121199e-03, 0.116915e-03 /) - selfrefo(:,10) = (/ & - & 0.120880e-03, 0.125265e-03, 0.129810e-03, 0.134520e-03, 0.139400e-03, & - & 0.144458e-03, 0.149699e-03, 0.155130e-03, 0.160758e-03, 0.166591e-03 /) - selfrefo(:,11) = (/ & - & 0.104705e-03, 0.111761e-03, 0.119291e-03, 0.127330e-03, 0.135910e-03, & - & 0.145068e-03, 0.154843e-03, 0.165277e-03, 0.176414e-03, 0.188302e-03 /) - selfrefo(:,12) = (/ & - & 0.846335e-04, 0.951236e-04, 0.106914e-03, 0.120166e-03, 0.135060e-03, & - & 0.151800e-03, 0.170616e-03, 0.191763e-03, 0.215532e-03, 0.242246e-03 /) - selfrefo(:,13) = (/ & - & 0.669754e-04, 0.781902e-04, 0.912829e-04, 0.106568e-03, 0.124413e-03, & - & 0.145245e-03, 0.169566e-03, 0.197959e-03, 0.231107e-03, 0.269805e-03 /) - selfrefo(:,14) = (/ & - & 0.597091e-04, 0.722265e-04, 0.873679e-04, 0.105684e-03, 0.127839e-03, & - & 0.154639e-03, 0.187057e-03, 0.226272e-03, 0.273707e-03, 0.331087e-03 /) - selfrefo(:,15) = (/ & - & 0.640410e-04, 0.771879e-04, 0.930338e-04, 0.112133e-03, 0.135152e-03, & - & 0.162897e-03, 0.196338e-03, 0.236644e-03, 0.285225e-03, 0.343778e-03 /) - selfrefo(:,16) = (/ & - & 0.666420e-04, 0.801056e-04, 0.962892e-04, 0.115742e-03, 0.139126e-03, & - & 0.167233e-03, 0.201019e-03, 0.241630e-03, 0.290446e-03, 0.349125e-03 /) - - end subroutine sw_kgb22 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_23.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_23.F90 deleted file mode 100644 index cfcd14f2b..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_23.F90 +++ /dev/null @@ -1,606 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb23 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg23, only : kao, selfrefo, forrefo, sfluxrefo, raylo, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:) = (/ & - & 53.2101 , 51.4143, 49.3348, 45.4612 , & - & 40.8294 , 35.1801, 28.6947, 21.5751 , & - & 14.6388 , 1.59111, 1.31860, 1.04018 , & - & 0.762140,0.484214,0.182275, 2.54948e-02 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:) = (/ & - & 5.24745E+01, 5.13293E+01, 4.88316E+01, 4.53514E+01,& - & 4.06958E+01, 3.51979E+01, 2.88231E+01, 2.17108E+01,& - & 1.47994E+01, 1.61878E+00, 1.33808E+00, 1.05803E+00,& - & 7.75937E-01, 4.93975E-01, 1.85378E-01, 2.60465E-02/) -! Solar variability components: facular brightening - facbrghto(:) = (/ & - & 3.21095E-02, 2.99544E-02, 2.74931E-02, 2.57618E-02,& - & 2.31750E-02, 1.99060E-02, 1.60777E-02, 1.20476E-02,& - & 8.19384E-03, 8.72206E-04, 7.12455E-04, 5.62376E-04,& - & 4.07471E-04, 2.54023E-04, 9.13143E-05, 1.29931E-05/) -! Solar variability components: sunspot darkening - snsptdrko(:) = (/ & - &-1.51026E-02,-1.43754E-02,-1.35261E-02,-1.25185E-02,& - &-1.11497E-02,-9.50076E-03,-7.64759E-03,-5.72781E-03,& - &-3.87542E-03,-4.14658E-04,-3.41482E-04,-2.69846E-04,& - &-1.97406E-04,-1.24745E-04,-4.65613E-05,-6.54807E-06/) - -! Rayleigh extinction coefficient at all v - raylo(:) = (/ & - & 5.94837e-08,5.70593e-08,6.27845e-08,5.56602e-08, & - & 5.25571e-08,4.73388e-08,4.17466e-08,3.98097e-08, & - & 4.00786e-08,3.67478e-08,3.45186e-08,3.46156e-08, & - & 3.32155e-08,3.23642e-08,2.72590e-08,2.96813e-08 /) - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1) = (/ & - & 0.33078e-07,0.34034e-07,0.35124e-07,0.34187e-07,0.34744e-07 /) - kao(:, 2, 1) = (/ & - & 0.25544e-07,0.25873e-07,0.26742e-07,0.27512e-07,0.27504e-07 /) - kao(:, 3, 1) = (/ & - & 0.18549e-07,0.19611e-07,0.20840e-07,0.22548e-07,0.23069e-07 /) - kao(:, 4, 1) = (/ & - & 0.28794e-07,0.30837e-07,0.32679e-07,0.34307e-07,0.36901e-07 /) - kao(:, 5, 1) = (/ & - & 0.36776e-07,0.39144e-07,0.41300e-07,0.43264e-07,0.46626e-07 /) - kao(:, 6, 1) = (/ & - & 0.59710e-07,0.62941e-07,0.65500e-07,0.67353e-07,0.68774e-07 /) - kao(:, 7, 1) = (/ & - & 0.12143e-06,0.12932e-06,0.13250e-06,0.13526e-06,0.13849e-06 /) - kao(:, 8, 1) = (/ & - & 0.12531e-06,0.13241e-06,0.13939e-06,0.14705e-06,0.15465e-06 /) - kao(:, 9, 1) = (/ & - & 0.20209e-06,0.21134e-06,0.22163e-06,0.23098e-06,0.24004e-06 /) - kao(:,10, 1) = (/ & - & 0.10750e-05,0.11204e-05,0.11575e-05,0.11923e-05,0.12227e-05 /) - kao(:,11, 1) = (/ & - & 0.27782e-05,0.28204e-05,0.28406e-05,0.28380e-05,0.28440e-05 /) - kao(:,12, 1) = (/ & - & 0.38510e-05,0.39934e-05,0.40697e-05,0.41102e-05,0.41571e-05 /) - kao(:,13, 1) = (/ & - & 0.43157e-05,0.44488e-05,0.45799e-05,0.46585e-05,0.47223e-05 /) - kao(:, 1, 2) = (/ & - & 0.84637e-06,0.86989e-06,0.90697e-06,0.90000e-06,0.91373e-06 /) - kao(:, 2, 2) = (/ & - & 0.67062e-06,0.68649e-06,0.72334e-06,0.73645e-06,0.72978e-06 /) - kao(:, 3, 2) = (/ & - & 0.52317e-06,0.53924e-06,0.55425e-06,0.58347e-06,0.57813e-06 /) - kao(:, 4, 2) = (/ & - & 0.39868e-06,0.41431e-06,0.42761e-06,0.43892e-06,0.45982e-06 /) - kao(:, 5, 2) = (/ & - & 0.32074e-06,0.33452e-06,0.34754e-06,0.35582e-06,0.37378e-06 /) - kao(:, 6, 2) = (/ & - & 0.42465e-06,0.44058e-06,0.45605e-06,0.47192e-06,0.48493e-06 /) - kao(:, 7, 2) = (/ & - & 0.47581e-06,0.50000e-06,0.52487e-06,0.54192e-06,0.55955e-06 /) - kao(:, 8, 2) = (/ & - & 0.10592e-05,0.11093e-05,0.11483e-05,0.11923e-05,0.12169e-05 /) - kao(:, 9, 2) = (/ & - & 0.50835e-05,0.51710e-05,0.52329e-05,0.52644e-05,0.52818e-05 /) - kao(:,10, 2) = (/ & - & 0.77867e-05,0.82156e-05,0.86002e-05,0.89664e-05,0.92394e-05 /) - kao(:,11, 2) = (/ & - & 0.89031e-05,0.93573e-05,0.97686e-05,0.10236e-04,0.10591e-04 /) - kao(:,12, 2) = (/ & - & 0.98068e-05,0.10238e-04,0.10700e-04,0.11108e-04,0.11471e-04 /) - kao(:,13, 2) = (/ & - & 0.11145e-04,0.11697e-04,0.12123e-04,0.12482e-04,0.12856e-04 /) - kao(:, 1, 3) = (/ & - & 0.66049e-05,0.67547e-05,0.70104e-05,0.69745e-05,0.70687e-05 /) - kao(:, 2, 3) = (/ & - & 0.54104e-05,0.55245e-05,0.57623e-05,0.58532e-05,0.58099e-05 /) - kao(:, 3, 3) = (/ & - & 0.43608e-05,0.44784e-05,0.45778e-05,0.47665e-05,0.47295e-05 /) - kao(:, 4, 3) = (/ & - & 0.35399e-05,0.36454e-05,0.37356e-05,0.38107e-05,0.39586e-05 /) - kao(:, 5, 3) = (/ & - & 0.28576e-05,0.29552e-05,0.30325e-05,0.31028e-05,0.32276e-05 /) - kao(:, 6, 3) = (/ & - & 0.21017e-05,0.21836e-05,0.22554e-05,0.23121e-05,0.23486e-05 /) - kao(:, 7, 3) = (/ & - & 0.19384e-05,0.19914e-05,0.20428e-05,0.20879e-05,0.21191e-05 /) - kao(:, 8, 3) = (/ & - & 0.32672e-05,0.33753e-05,0.34694e-05,0.35273e-05,0.35984e-05 /) - kao(:, 9, 3) = (/ & - & 0.82257e-05,0.84975e-05,0.86969e-05,0.88995e-05,0.90123e-05 /) - kao(:,10, 3) = (/ & - & 0.35363e-04,0.36204e-04,0.36916e-04,0.37708e-04,0.38294e-04 /) - kao(:,11, 3) = (/ & - & 0.48837e-04,0.50952e-04,0.52710e-04,0.54347e-04,0.55976e-04 /) - kao(:,12, 3) = (/ & - & 0.56059e-04,0.58301e-04,0.60100e-04,0.61776e-04,0.63179e-04 /) - kao(:,13, 3) = (/ & - & 0.57871e-04,0.59505e-04,0.60930e-04,0.62289e-04,0.63278e-04 /) - kao(:, 1, 4) = (/ & - & 0.27624e-04,0.28017e-04,0.29078e-04,0.28567e-04,0.28724e-04 /) - kao(:, 2, 4) = (/ & - & 0.23107e-04,0.23464e-04,0.24357e-04,0.24519e-04,0.24024e-04 /) - kao(:, 3, 4) = (/ & - & 0.19113e-04,0.19400e-04,0.19615e-04,0.20420e-04,0.19962e-04 /) - kao(:, 4, 4) = (/ & - & 0.15873e-04,0.16138e-04,0.16349e-04,0.16528e-04,0.17176e-04 /) - kao(:, 5, 4) = (/ & - & 0.13198e-04,0.13437e-04,0.13641e-04,0.13810e-04,0.14393e-04 /) - kao(:, 6, 4) = (/ & - & 0.10951e-04,0.11172e-04,0.11352e-04,0.11506e-04,0.11631e-04 /) - kao(:, 7, 4) = (/ & - & 0.86121e-05,0.88300e-05,0.90149e-05,0.91565e-05,0.92594e-05 /) - kao(:, 8, 4) = (/ & - & 0.71478e-05,0.72918e-05,0.74035e-05,0.74959e-05,0.75566e-05 /) - kao(:, 9, 4) = (/ & - & 0.16458e-04,0.17092e-04,0.17686e-04,0.17967e-04,0.18273e-04 /) - kao(:,10, 4) = (/ & - & 0.47953e-04,0.49663e-04,0.51524e-04,0.52800e-04,0.54192e-04 /) - kao(:,11, 4) = (/ & - & 0.94263e-04,0.95557e-04,0.96513e-04,0.97430e-04,0.97733e-04 /) - kao(:,12, 4) = (/ & - & 0.12087e-03,0.12152e-03,0.12240e-03,0.12318e-03,0.12403e-03 /) - kao(:,13, 4) = (/ & - & 0.12781e-03,0.12897e-03,0.13049e-03,0.13171e-03,0.13337e-03 /) - kao(:, 1, 5) = (/ & - & 0.82859e-04,0.84817e-04,0.89056e-04,0.88057e-04,0.89410e-04 /) - kao(:, 2, 5) = (/ & - & 0.70937e-04,0.72685e-04,0.76796e-04,0.77955e-04,0.76735e-04 /) - kao(:, 3, 5) = (/ & - & 0.59876e-04,0.61448e-04,0.62837e-04,0.66293e-04,0.64996e-04 /) - kao(:, 4, 5) = (/ & - & 0.50598e-04,0.52054e-04,0.53293e-04,0.54332e-04,0.57333e-04 /) - kao(:, 5, 5) = (/ & - & 0.42742e-04,0.44035e-04,0.45164e-04,0.46134e-04,0.48935e-04 /) - kao(:, 6, 5) = (/ & - & 0.35769e-04,0.36975e-04,0.38038e-04,0.38917e-04,0.39681e-04 /) - kao(:, 7, 5) = (/ & - & 0.29747e-04,0.30824e-04,0.31756e-04,0.32589e-04,0.33314e-04 /) - kao(:, 8, 5) = (/ & - & 0.21994e-04,0.22945e-04,0.23786e-04,0.24517e-04,0.25155e-04 /) - kao(:, 9, 5) = (/ & - & 0.22298e-04,0.22688e-04,0.23127e-04,0.23803e-04,0.24335e-04 /) - kao(:,10, 5) = (/ & - & 0.88898e-04,0.91280e-04,0.93333e-04,0.95224e-04,0.96298e-04 /) - kao(:,11, 5) = (/ & - & 0.12299e-03,0.12407e-03,0.12536e-03,0.12642e-03,0.12813e-03 /) - kao(:,12, 5) = (/ & - & 0.14539e-03,0.14851e-03,0.15022e-03,0.15157e-03,0.15204e-03 /) - kao(:,13, 5) = (/ & - & 0.15949e-03,0.16239e-03,0.16467e-03,0.16667e-03,0.16801e-03 /) - kao(:, 1, 6) = (/ & - & 0.25339e-03,0.25995e-03,0.27170e-03,0.26963e-03,0.27413e-03 /) - kao(:, 2, 6) = (/ & - & 0.21908e-03,0.22404e-03,0.23522e-03,0.23902e-03,0.23717e-03 /) - kao(:, 3, 6) = (/ & - & 0.18611e-03,0.19076e-03,0.19518e-03,0.20503e-03,0.20222e-03 /) - kao(:, 4, 6) = (/ & - & 0.15769e-03,0.16210e-03,0.16597e-03,0.16948e-03,0.17817e-03 /) - kao(:, 5, 6) = (/ & - & 0.13402e-03,0.13792e-03,0.14153e-03,0.14434e-03,0.15267e-03 /) - kao(:, 6, 6) = (/ & - & 0.11390e-03,0.11743e-03,0.12065e-03,0.12316e-03,0.12543e-03 /) - kao(:, 7, 6) = (/ & - & 0.96417e-04,0.99612e-04,0.10233e-03,0.10453e-03,0.10652e-03 /) - kao(:, 8, 6) = (/ & - & 0.81395e-04,0.84205e-04,0.86346e-04,0.88406e-04,0.90122e-04 /) - kao(:, 9, 6) = (/ & - & 0.47776e-04,0.48971e-04,0.49736e-04,0.49917e-04,0.50289e-04 /) - kao(:,10, 6) = (/ & - & 0.10698e-03,0.10815e-03,0.10817e-03,0.10799e-03,0.10851e-03 /) - kao(:,11, 6) = (/ & - & 0.20220e-03,0.20727e-03,0.21241e-03,0.21675e-03,0.21989e-03 /) - kao(:,12, 6) = (/ & - & 0.23474e-03,0.23601e-03,0.23974e-03,0.24383e-03,0.24876e-03 /) - kao(:,13, 6) = (/ & - & 0.23410e-03,0.23809e-03,0.24185e-03,0.24554e-03,0.24952e-03 /) - kao(:, 1, 7) = (/ & - & 0.67024e-03,0.68026e-03,0.70419e-03,0.70159e-03,0.71089e-03 /) - kao(:, 2, 7) = (/ & - & 0.58729e-03,0.59778e-03,0.62097e-03,0.62912e-03,0.62423e-03 /) - kao(:, 3, 7) = (/ & - & 0.50967e-03,0.51900e-03,0.52765e-03,0.54794e-03,0.54266e-03 /) - kao(:, 4, 7) = (/ & - & 0.44167e-03,0.45006e-03,0.45793e-03,0.46469e-03,0.48335e-03 /) - kao(:, 5, 7) = (/ & - & 0.38096e-03,0.38881e-03,0.39576e-03,0.40259e-03,0.42086e-03 /) - kao(:, 6, 7) = (/ & - & 0.32818e-03,0.33539e-03,0.34192e-03,0.34829e-03,0.35405e-03 /) - kao(:, 7, 7) = (/ & - & 0.28259e-03,0.28946e-03,0.29584e-03,0.30203e-03,0.30742e-03 /) - kao(:, 8, 7) = (/ & - & 0.24273e-03,0.24912e-03,0.25546e-03,0.26110e-03,0.26607e-03 /) - kao(:, 9, 7) = (/ & - & 0.19937e-03,0.20653e-03,0.21314e-03,0.21968e-03,0.22520e-03 /) - kao(:,10, 7) = (/ & - & 0.13306e-03,0.13331e-03,0.13393e-03,0.13538e-03,0.13616e-03 /) - kao(:,11, 7) = (/ & - & 0.16236e-03,0.16154e-03,0.16187e-03,0.16113e-03,0.16209e-03 /) - kao(:,12, 7) = (/ & - & 0.17872e-03,0.18355e-03,0.18612e-03,0.18792e-03,0.18745e-03 /) - kao(:,13, 7) = (/ & - & 0.18970e-03,0.19384e-03,0.19773e-03,0.20261e-03,0.20377e-03 /) - kao(:, 1, 8) = (/ & - & 0.18130e-02,0.18305e-02,0.18716e-02,0.18655e-02,0.18814e-02 /) - kao(:, 2, 8) = (/ & - & 0.16420e-02,0.16600e-02,0.17006e-02,0.17156e-02,0.17108e-02 /) - kao(:, 3, 8) = (/ & - & 0.14687e-02,0.14870e-02,0.15042e-02,0.15423e-02,0.15376e-02 /) - kao(:, 4, 8) = (/ & - & 0.13068e-02,0.13248e-02,0.13421e-02,0.13592e-02,0.13960e-02 /) - kao(:, 5, 8) = (/ & - & 0.11574e-02,0.11753e-02,0.11928e-02,0.12097e-02,0.12467e-02 /) - kao(:, 6, 8) = (/ & - & 0.10167e-02,0.10342e-02,0.10515e-02,0.10681e-02,0.10840e-02 /) - kao(:, 7, 8) = (/ & - & 0.88992e-03,0.90662e-03,0.92299e-03,0.93844e-03,0.95347e-03 /) - kao(:, 8, 8) = (/ & - & 0.78445e-03,0.80031e-03,0.81639e-03,0.83131e-03,0.84631e-03 /) - kao(:, 9, 8) = (/ & - & 0.69812e-03,0.71312e-03,0.72801e-03,0.74222e-03,0.75605e-03 /) - kao(:,10, 8) = (/ & - & 0.32521e-03,0.33835e-03,0.35194e-03,0.36381e-03,0.37594e-03 /) - kao(:,11, 8) = (/ & - & 0.31406e-03,0.32013e-03,0.32456e-03,0.33261e-03,0.33741e-03 /) - kao(:,12, 8) = (/ & - & 0.28132e-03,0.28732e-03,0.29674e-03,0.30509e-03,0.31393e-03 /) - kao(:,13, 8) = (/ & - & 0.25704e-03,0.26316e-03,0.27195e-03,0.27732e-03,0.28905e-03 /) - kao(:, 1, 9) = (/ & - & 0.67370e-02,0.67873e-02,0.68896e-02,0.68819e-02,0.69268e-02 /) - kao(:, 2, 9) = (/ & - & 0.63111e-02,0.63622e-02,0.64623e-02,0.65060e-02,0.65027e-02 /) - kao(:, 3, 9) = (/ & - & 0.58834e-02,0.59361e-02,0.59858e-02,0.60811e-02,0.60806e-02 /) - kao(:, 4, 9) = (/ & - & 0.54753e-02,0.55309e-02,0.55823e-02,0.56306e-02,0.57229e-02 /) - kao(:, 5, 9) = (/ & - & 0.50781e-02,0.51373e-02,0.51895e-02,0.52391e-02,0.53328e-02 /) - kao(:, 6, 9) = (/ & - & 0.46791e-02,0.47408e-02,0.47949e-02,0.48470e-02,0.48993e-02 /) - kao(:, 7, 9) = (/ & - & 0.42724e-02,0.43381e-02,0.43951e-02,0.44503e-02,0.45061e-02 /) - kao(:, 8, 9) = (/ & - & 0.38568e-02,0.39254e-02,0.39848e-02,0.40431e-02,0.41005e-02 /) - kao(:, 9, 9) = (/ & - & 0.35657e-02,0.36362e-02,0.36994e-02,0.37608e-02,0.38215e-02 /) - kao(:,10, 9) = (/ & - & 0.33774e-02,0.34501e-02,0.35171e-02,0.35811e-02,0.36450e-02 /) - kao(:,11, 9) = (/ & - & 0.23923e-02,0.24623e-02,0.25263e-02,0.25890e-02,0.26517e-02 /) - kao(:,12, 9) = (/ & - & 0.16959e-02,0.17542e-02,0.18077e-02,0.18614e-02,0.19187e-02 /) - kao(:,13, 9) = (/ & - & 0.11732e-02,0.12232e-02,0.12712e-02,0.13221e-02,0.13677e-02 /) - kao(:, 1,10) = (/ & - & 0.19604e-01,0.19698e-01,0.19938e-01,0.19854e-01,0.19950e-01 /) - kao(:, 2,10) = (/ & - & 0.18714e-01,0.18803e-01,0.19035e-01,0.19131e-01,0.19102e-01 /) - kao(:, 3,10) = (/ & - & 0.17676e-01,0.17785e-01,0.17904e-01,0.18189e-01,0.18156e-01 /) - kao(:, 4,10) = (/ & - & 0.16662e-01,0.16773e-01,0.16908e-01,0.17056e-01,0.17303e-01 /) - kao(:, 5,10) = (/ & - & 0.15655e-01,0.15775e-01,0.15942e-01,0.16103e-01,0.16359e-01 /) - kao(:, 6,10) = (/ & - & 0.14694e-01,0.14838e-01,0.15029e-01,0.15200e-01,0.15320e-01 /) - kao(:, 7,10) = (/ & - & 0.13797e-01,0.13959e-01,0.14174e-01,0.14350e-01,0.14471e-01 /) - kao(:, 8,10) = (/ & - & 0.12902e-01,0.13089e-01,0.13313e-01,0.13489e-01,0.13626e-01 /) - kao(:, 9,10) = (/ & - & 0.11897e-01,0.12105e-01,0.12333e-01,0.12512e-01,0.12656e-01 /) - kao(:,10,10) = (/ & - & 0.11834e-01,0.12072e-01,0.12331e-01,0.12548e-01,0.12721e-01 /) - kao(:,11,10) = (/ & - & 0.11416e-01,0.11699e-01,0.11968e-01,0.12141e-01,0.12311e-01 /) - kao(:,12,10) = (/ & - & 0.10776e-01,0.11070e-01,0.11309e-01,0.11507e-01,0.11702e-01 /) - kao(:,13,10) = (/ & - & 0.99577e-02,0.10263e-01,0.10492e-01,0.10719e-01,0.10951e-01 /) - kao(:, 1,11) = (/ & - & 0.29783e-01,0.29883e-01,0.30210e-01,0.30141e-01,0.30248e-01 /) - kao(:, 2,11) = (/ & - & 0.28562e-01,0.28743e-01,0.29186e-01,0.29339e-01,0.29258e-01 /) - kao(:, 3,11) = (/ & - & 0.27212e-01,0.27429e-01,0.27654e-01,0.28083e-01,0.28023e-01 /) - kao(:, 4,11) = (/ & - & 0.25949e-01,0.26197e-01,0.26424e-01,0.26623e-01,0.27069e-01 /) - kao(:, 5,11) = (/ & - & 0.24686e-01,0.24942e-01,0.25176e-01,0.25403e-01,0.25908e-01 /) - kao(:, 6,11) = (/ & - & 0.23430e-01,0.23686e-01,0.23923e-01,0.24158e-01,0.24433e-01 /) - kao(:, 7,11) = (/ & - & 0.22171e-01,0.22424e-01,0.22653e-01,0.22909e-01,0.23203e-01 /) - kao(:, 8,11) = (/ & - & 0.20928e-01,0.21171e-01,0.21407e-01,0.21699e-01,0.22018e-01 /) - kao(:, 9,11) = (/ & - & 0.19076e-01,0.19320e-01,0.19548e-01,0.19858e-01,0.20150e-01 /) - kao(:,10,11) = (/ & - & 0.19537e-01,0.19788e-01,0.20064e-01,0.20391e-01,0.20843e-01 /) - kao(:,11,11) = (/ & - & 0.19137e-01,0.19444e-01,0.19793e-01,0.20268e-01,0.20695e-01 /) - kao(:,12,11) = (/ & - & 0.18393e-01,0.18715e-01,0.19143e-01,0.19652e-01,0.20037e-01 /) - kao(:,13,11) = (/ & - & 0.17255e-01,0.17680e-01,0.18170e-01,0.18641e-01,0.19010e-01 /) - kao(:, 1,12) = (/ & - & 0.46641e-01,0.46796e-01,0.47107e-01,0.46977e-01,0.47093e-01 /) - kao(:, 2,12) = (/ & - & 0.46819e-01,0.46956e-01,0.47337e-01,0.47426e-01,0.47339e-01 /) - kao(:, 3,12) = (/ & - & 0.46276e-01,0.46366e-01,0.46462e-01,0.46935e-01,0.46862e-01 /) - kao(:, 4,12) = (/ & - & 0.44986e-01,0.45103e-01,0.45287e-01,0.45535e-01,0.46152e-01 /) - kao(:, 5,12) = (/ & - & 0.43367e-01,0.43552e-01,0.43761e-01,0.44035e-01,0.44674e-01 /) - kao(:, 6,12) = (/ & - & 0.41584e-01,0.41793e-01,0.42020e-01,0.42344e-01,0.42701e-01 /) - kao(:, 7,12) = (/ & - & 0.39785e-01,0.40007e-01,0.40269e-01,0.40635e-01,0.41003e-01 /) - kao(:, 8,12) = (/ & - & 0.37918e-01,0.38155e-01,0.38468e-01,0.38839e-01,0.39210e-01 /) - kao(:, 9,12) = (/ & - & 0.35060e-01,0.35328e-01,0.35698e-01,0.36105e-01,0.36551e-01 /) - kao(:,10,12) = (/ & - & 0.35216e-01,0.35547e-01,0.35872e-01,0.36327e-01,0.36542e-01 /) - kao(:,11,12) = (/ & - & 0.35158e-01,0.35374e-01,0.35869e-01,0.36242e-01,0.36691e-01 /) - kao(:,12,12) = (/ & - & 0.34264e-01,0.34598e-01,0.35106e-01,0.35505e-01,0.36021e-01 /) - kao(:,13,12) = (/ & - & 0.32716e-01,0.33195e-01,0.33830e-01,0.34228e-01,0.34925e-01 /) - kao(:, 1,13) = (/ & - & 0.76084e-01,0.76052e-01,0.76051e-01,0.75851e-01,0.75753e-01 /) - kao(:, 2,13) = (/ & - & 0.79580e-01,0.79564e-01,0.79664e-01,0.79619e-01,0.79414e-01 /) - kao(:, 3,13) = (/ & - & 0.82218e-01,0.82302e-01,0.82367e-01,0.82543e-01,0.82246e-01 /) - kao(:, 4,13) = (/ & - & 0.83613e-01,0.83740e-01,0.83824e-01,0.83866e-01,0.84103e-01 /) - kao(:, 5,13) = (/ & - & 0.83913e-01,0.84123e-01,0.84289e-01,0.84403e-01,0.84840e-01 /) - kao(:, 6,13) = (/ & - & 0.83159e-01,0.83442e-01,0.83718e-01,0.83891e-01,0.83993e-01 /) - kao(:, 7,13) = (/ & - & 0.81401e-01,0.81826e-01,0.82202e-01,0.82451e-01,0.82656e-01 /) - kao(:, 8,13) = (/ & - & 0.78949e-01,0.79505e-01,0.79978e-01,0.80351e-01,0.80690e-01 /) - kao(:, 9,13) = (/ & - & 0.76002e-01,0.76671e-01,0.77279e-01,0.77752e-01,0.78257e-01 /) - kao(:,10,13) = (/ & - & 0.69777e-01,0.70425e-01,0.71054e-01,0.71706e-01,0.72167e-01 /) - kao(:,11,13) = (/ & - & 0.72929e-01,0.73732e-01,0.74323e-01,0.75246e-01,0.75786e-01 /) - kao(:,12,13) = (/ & - & 0.73007e-01,0.74429e-01,0.74922e-01,0.75916e-01,0.76947e-01 /) - kao(:,13,13) = (/ & - & 0.71376e-01,0.72507e-01,0.73710e-01,0.74716e-01,0.75702e-01 /) - kao(:, 1,14) = (/ & - & 0.12585e+00,0.12569e+00,0.12576e+00,0.12571e+00,0.12570e+00 /) - kao(:, 2,14) = (/ & - & 0.13868e+00,0.13853e+00,0.13849e+00,0.13824e+00,0.13803e+00 /) - kao(:, 3,14) = (/ & - & 0.15142e+00,0.15135e+00,0.15112e+00,0.15093e+00,0.15074e+00 /) - kao(:, 4,14) = (/ & - & 0.16359e+00,0.16359e+00,0.16339e+00,0.16311e+00,0.16285e+00 /) - kao(:, 5,14) = (/ & - & 0.17462e+00,0.17472e+00,0.17456e+00,0.17421e+00,0.17393e+00 /) - kao(:, 6,14) = (/ & - & 0.18403e+00,0.18447e+00,0.18450e+00,0.18424e+00,0.18395e+00 /) - kao(:, 7,14) = (/ & - & 0.19179e+00,0.19239e+00,0.19256e+00,0.19253e+00,0.19252e+00 /) - kao(:, 8,14) = (/ & - & 0.19772e+00,0.19863e+00,0.19901e+00,0.19923e+00,0.19947e+00 /) - kao(:, 9,14) = (/ & - & 0.20154e+00,0.20279e+00,0.20355e+00,0.20417e+00,0.20473e+00 /) - kao(:,10,14) = (/ & - & 0.18853e+00,0.19028e+00,0.19160e+00,0.19253e+00,0.19393e+00 /) - kao(:,11,14) = (/ & - & 0.18013e+00,0.18167e+00,0.18320e+00,0.18375e+00,0.18507e+00 /) - kao(:,12,14) = (/ & - & 0.19011e+00,0.19027e+00,0.19283e+00,0.19402e+00,0.19478e+00 /) - kao(:,13,14) = (/ & - & 0.19594e+00,0.19738e+00,0.19911e+00,0.20124e+00,0.20282e+00 /) - kao(:, 1,15) = (/ & - & 0.22369e+00,0.22259e+00,0.22155e+00,0.22059e+00,0.21997e+00 /) - kao(:, 2,15) = (/ & - & 0.25602e+00,0.25478e+00,0.25377e+00,0.25306e+00,0.25237e+00 /) - kao(:, 3,15) = (/ & - & 0.29258e+00,0.29107e+00,0.28998e+00,0.28920e+00,0.28830e+00 /) - kao(:, 4,15) = (/ & - & 0.33067e+00,0.32888e+00,0.32753e+00,0.32646e+00,0.32566e+00 /) - kao(:, 5,15) = (/ & - & 0.37114e+00,0.36880e+00,0.36713e+00,0.36598e+00,0.36499e+00 /) - kao(:, 6,15) = (/ & - & 0.41494e+00,0.41167e+00,0.40935e+00,0.40779e+00,0.40636e+00 /) - kao(:, 7,15) = (/ & - & 0.46115e+00,0.45729e+00,0.45455e+00,0.45230e+00,0.45004e+00 /) - kao(:, 8,15) = (/ & - & 0.50906e+00,0.50463e+00,0.50137e+00,0.49843e+00,0.49550e+00 /) - kao(:, 9,15) = (/ & - & 0.55829e+00,0.55330e+00,0.54936e+00,0.54557e+00,0.54168e+00 /) - kao(:,10,15) = (/ & - & 0.60814e+00,0.60274e+00,0.59806e+00,0.59326e+00,0.58833e+00 /) - kao(:,11,15) = (/ & - & 0.62954e+00,0.62588e+00,0.62076e+00,0.61665e+00,0.61184e+00 /) - kao(:,12,15) = (/ & - & 0.62585e+00,0.62437e+00,0.61807e+00,0.61303e+00,0.60869e+00 /) - kao(:,13,15) = (/ & - & 0.64856e+00,0.64505e+00,0.63861e+00,0.63277e+00,0.62702e+00 /) - kao(:, 1,16) = (/ & - & 0.33327e+00,0.33385e+00,0.33538e+00,0.33638e+00,0.33736e+00 /) - kao(:, 2,16) = (/ & - & 0.40916e+00,0.40842e+00,0.40848e+00,0.40865e+00,0.40854e+00 /) - kao(:, 3,16) = (/ & - & 0.50099e+00,0.49888e+00,0.49727e+00,0.49588e+00,0.49422e+00 /) - kao(:, 4,16) = (/ & - & 0.60389e+00,0.60029e+00,0.59704e+00,0.59367e+00,0.59071e+00 /) - kao(:, 5,16) = (/ & - & 0.71868e+00,0.71337e+00,0.70835e+00,0.70318e+00,0.69852e+00 /) - kao(:, 6,16) = (/ & - & 0.84815e+00,0.84138e+00,0.83446e+00,0.82728e+00,0.82023e+00 /) - kao(:, 7,16) = (/ & - & 0.99512e+00,0.98644e+00,0.97698e+00,0.96695e+00,0.95712e+00 /) - kao(:, 8,16) = (/ & - & 0.11606e+01,0.11485e+01,0.11354e+01,0.11218e+01,0.11077e+01 /) - kao(:, 9,16) = (/ & - & 0.13444e+01,0.13282e+01,0.13102e+01,0.12917e+01,0.12735e+01 /) - kao(:,10,16) = (/ & - & 0.15423e+01,0.15207e+01,0.14970e+01,0.14733e+01,0.14494e+01 /) - kao(:,11,16) = (/ & - & 0.17462e+01,0.17138e+01,0.16827e+01,0.16518e+01,0.16199e+01 /) - kao(:,12,16) = (/ & - & 0.19577e+01,0.19145e+01,0.18728e+01,0.18320e+01,0.17910e+01 /) - kao(:,13,16) = (/ & - & 0.21716e+01,0.21171e+01,0.20639e+01,0.20113e+01,0.19587e+01 /) - -! ----------------------------------------------------------------- - - forrefo(:, 1) = (/ 0.315770e-07, 0.671978e-07, 0.440649e-06 /) - forrefo(:, 2) = (/ 0.313674e-06, 0.285252e-06, 0.421024e-05 /) - forrefo(:, 3) = (/ 0.135818e-05, 0.145071e-05, 0.611285e-05 /) - forrefo(:, 4) = (/ 0.534065e-05, 0.586268e-05, 0.933970e-05 /) - forrefo(:, 5) = (/ 0.964007e-05, 0.107110e-04, 0.104486e-04 /) - forrefo(:, 6) = (/ 0.302775e-04, 0.357530e-04, 0.340724e-04 /) - forrefo(:, 7) = (/ 0.102437e-03, 0.108475e-03, 0.105245e-03 /) - forrefo(:, 8) = (/ 0.146054e-03, 0.141490e-03, 0.133071e-03 /) - forrefo(:, 9) = (/ 0.163978e-03, 0.150208e-03, 0.142864e-03 /) - forrefo(:,10) = (/ 0.220412e-03, 0.182943e-03, 0.150941e-03 /) - forrefo(:,11) = (/ 0.228877e-03, 0.197679e-03, 0.163220e-03 /) - forrefo(:,12) = (/ 0.234177e-03, 0.217734e-03, 0.185038e-03 /) - forrefo(:,13) = (/ 0.257187e-03, 0.241570e-03, 0.221178e-03 /) - forrefo(:,14) = (/ 0.272455e-03, 0.270637e-03, 0.256269e-03 /) - forrefo(:,15) = (/ 0.339445e-03, 0.300268e-03, 0.286574e-03 /) - forrefo(:,16) = (/ 0.338841e-03, 0.355428e-03, 0.353794e-03 /) - -! ----------------------------------------------------------------- -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 0.100945e-04, 0.801113e-05, 0.635771e-05, 0.504554e-05, 0.400419e-05, & - & 0.317777e-05, 0.252191e-05, 0.200141e-05, 0.158834e-05, 0.126052e-05 /) - selfrefo(:, 2) = (/ & - & 0.107573e-04, 0.999809e-05, 0.929245e-05, 0.863661e-05, 0.802706e-05, & - & 0.746053e-05, 0.693399e-05, 0.644460e-05, 0.598976e-05, 0.556702e-05 /) - selfrefo(:, 3) = (/ & - & 0.350389e-04, 0.319234e-04, 0.290850e-04, 0.264989e-04, 0.241428e-04, & - & 0.219962e-04, 0.200404e-04, 0.182586e-04, 0.166351e-04, 0.151560e-04 /) - selfrefo(:, 4) = (/ & - & 0.122993e-03, 0.110885e-03, 0.999691e-04, 0.901277e-04, 0.812551e-04, & - & 0.732559e-04, 0.660443e-04, 0.595426e-04, 0.536809e-04, 0.483963e-04 /) - selfrefo(:, 5) = (/ & - & 0.206434e-03, 0.187435e-03, 0.170185e-03, 0.154522e-03, 0.140301e-03, & - & 0.127388e-03, 0.115664e-03, 0.105019e-03, 0.953540e-04, 0.865783e-04 /) - selfrefo(:, 6) = (/ & - & 0.590645e-03, 0.533109e-03, 0.481177e-03, 0.434305e-03, 0.391998e-03, & - & 0.353812e-03, 0.319346e-03, 0.288238e-03, 0.260160e-03, 0.234817e-03 /) - selfrefo(:, 7) = (/ & - & 0.163029e-02, 0.148773e-02, 0.135763e-02, 0.123891e-02, 0.113057e-02, & - & 0.103170e-02, 0.941483e-03, 0.859153e-03, 0.784023e-03, 0.715462e-03 /) - selfrefo(:, 8) = (/ & - & 0.204528e-02, 0.189258e-02, 0.175128e-02, 0.162053e-02, 0.149954e-02, & - & 0.138758e-02, 0.128398e-02, 0.118812e-02, 0.109941e-02, 0.101733e-02 /) - selfrefo(:, 9) = (/ & - & 0.210589e-02, 0.197078e-02, 0.184434e-02, 0.172601e-02, 0.161528e-02, & - & 0.151164e-02, 0.141466e-02, 0.132390e-02, 0.123896e-02, 0.115947e-02 /) - selfrefo(:,10) = (/ & - & 0.245098e-02, 0.233745e-02, 0.222918e-02, 0.212592e-02, 0.202745e-02, & - & 0.193353e-02, 0.184397e-02, 0.175856e-02, 0.167710e-02, 0.159941e-02 /) - selfrefo(:,11) = (/ & - & 0.267460e-02, 0.253325e-02, 0.239936e-02, 0.227255e-02, 0.215244e-02, & - & 0.203868e-02, 0.193093e-02, 0.182888e-02, 0.173222e-02, 0.164067e-02 /) - selfrefo(:,12) = (/ & - & 0.304510e-02, 0.283919e-02, 0.264720e-02, 0.246820e-02, 0.230130e-02, & - & 0.214568e-02, 0.200059e-02, 0.186531e-02, 0.173918e-02, 0.162157e-02 /) - selfrefo(:,13) = (/ & - & 0.338445e-02, 0.314719e-02, 0.292655e-02, 0.272139e-02, 0.253060e-02, & - & 0.235319e-02, 0.218822e-02, 0.203482e-02, 0.189217e-02, 0.175952e-02 /) - selfrefo(:,14) = (/ & - & 0.388649e-02, 0.357018e-02, 0.327961e-02, 0.301269e-02, 0.276750e-02, & - & 0.254226e-02, 0.233535e-02, 0.214528e-02, 0.197068e-02, 0.181029e-02 /) - selfrefo(:,15) = (/ & - & 0.412547e-02, 0.387413e-02, 0.363810e-02, 0.341646e-02, 0.320831e-02, & - & 0.301285e-02, 0.282930e-02, 0.265693e-02, 0.249506e-02, 0.234305e-02 /) - selfrefo(:,16) = (/ & - & 0.534327e-02, 0.482967e-02, 0.436544e-02, 0.394583e-02, 0.356655e-02, & - & 0.322373e-02, 0.291387e-02, 0.263378e-02, 0.238062e-02, 0.215179e-02 /) - - end subroutine sw_kgb23 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_24.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_24.F90 deleted file mode 100644 index e97155eb9..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_24.F90 +++ /dev/null @@ -1,5048 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb24 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg24, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - raylao, raylbo, abso3ao, abso3bo, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:,1) = (/ & - & 34.3610 , 33.1240, 31.3948, 28.7248, & - & 24.7884 , 21.4892, 17.3972, 13.7928, & - & 9.54462 , 1.05002,0.867332,0.685753, & - & 0.504718,0.323112,0.122183, 1.70288e-02 /) - sfluxrefo(:,2) = (/ & - & 34.2367 , 32.4327, 30.0863, 28.2085, & - & 25.6533 , 22.3412, 18.3112, 13.8521, & - & 9.51035 , 1.04138,0.863493,0.682790, & - & 0.504721,0.323102,0.122193, 1.70288e-02 /) - sfluxrefo(:,3) = (/ & - & 34.1883 , 32.2479, 30.2650, 28.2914, & - & 25.6626 , 22.3163, 18.3327, 13.8508, & - & 9.49190 , 1.03672,0.858272,0.681485, & - & 0.501363,0.323110,0.122183, 1.70288e-02 /) - sfluxrefo(:,4) = (/ & - & 34.1365 , 32.2316, 30.3325, 28.3305, & - & 25.6420 , 22.3223, 18.3411, 13.8471, & - & 9.47492 , 1.03376,0.855380,0.679085, & - & 0.497998,0.323053,0.122183, 1.70288e-02 /) - sfluxrefo(:,5) = (/ & - & 34.0460 , 32.2795, 30.4147, 28.3123, & - & 25.6438 , 22.3238, 18.3441, 13.8528, & - & 9.45222 , 1.03058,0.854037,0.675554, & - & 0.498344,0.320072,0.122193, 1.70288e-02 /) - sfluxrefo(:,6) = (/ & - & 33.9909 , 32.3127, 30.4854, 28.3005, & - & 25.6310 , 22.3294, 18.3459, 13.8488, & - & 9.43336 , 1.02901,0.852728,0.672322, & - & 0.498056,0.317753,0.122183, 1.70288e-02 /) - sfluxrefo(:,7) = (/ & - & 33.9225 , 32.4097, 30.5125, 28.2810, & - & 25.6387 , 22.3080, 18.3715, 13.8248, & - & 9.41834 , 1.02735,0.850807,0.671379, & - & 0.496975,0.317158,0.119297, 1.70207e-02 /) - sfluxrefo(:,8) = (/ & - & 33.8940 , 32.4951, 30.5494, 28.2788, & - & 25.5975 , 22.3225, 18.3358, 13.8199, & - & 9.40283 , 1.02751,0.850729,0.670152, & - & 0.494294,0.315829,0.116195, 1.64138e-02 /) - sfluxrefo(:,9) = (/ & - & 34.6501 , 32.6690, 30.2872, 28.0955, & - & 25.4662 , 22.1446, 18.2754, 13.7573, & - & 9.36645 , 1.02356,0.847154,0.668519, & - & 0.489186,0.313790,0.117074, 1.60943e-02 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:,1) = (/ & - & 3.38239E+01, 3.27296E+01, 3.11228E+01, 2.82167E+01,& - & 2.46948E+01, 2.16414E+01, 1.74835E+01, 1.32861E+01,& - & 9.45231E+00, 1.03668E+00, 8.57301E-01, 6.79586E-01,& - & 4.99821E-01, 3.23048E-01, 1.21798E-01, 1.70540E-02/) - irradnceo(:,2) = (/ & - & 3.35554E+01, 3.22649E+01, 3.01925E+01, 2.81328E+01,& - & 2.49992E+01, 2.19854E+01, 1.81805E+01, 1.37450E+01,& - & 9.41060E+00, 1.02791E+00, 8.54156E-01, 6.76306E-01,& - & 4.99827E-01, 3.23048E-01, 1.21797E-01, 1.70536E-02/) - irradnceo(:,3) = (/ & - & 3.34467E+01, 3.23718E+01, 3.01698E+01, 2.78745E+01,& - & 2.51400E+01, 2.21238E+01, 1.81919E+01, 1.37667E+01,& - & 9.39403E+00, 1.02425E+00, 8.49685E-01, 6.75455E-01,& - & 4.95915E-01, 3.23049E-01, 1.21797E-01, 1.70536E-02/) - irradnceo(:,4) = (/ & - & 3.34003E+01, 3.23834E+01, 3.01815E+01, 2.76780E+01,& - & 2.53527E+01, 2.21350E+01, 1.82215E+01, 1.37599E+01,& - & 9.37564E+00, 1.02444E+00, 8.45988E-01, 6.73624E-01,& - & 4.92319E-01, 3.23047E-01, 1.21798E-01, 1.70540E-02/) - irradnceo(:,5) = (/ & - & 3.33672E+01, 3.24037E+01, 3.00634E+01, 2.77926E+01,& - & 2.53807E+01, 2.21495E+01, 1.82232E+01, 1.37618E+01,& - & 9.35660E+00, 1.02194E+00, 8.45650E-01, 6.68806E-01,& - & 4.93432E-01, 3.18983E-01, 1.21798E-01, 1.70536E-02/) - irradnceo(:,6) = (/ & - & 3.33640E+01, 3.24077E+01, 2.99963E+01, 2.78755E+01,& - & 2.53793E+01, 2.21660E+01, 1.82184E+01, 1.37630E+01,& - & 9.33929E+00, 1.01814E+00, 8.45425E-01, 6.65897E-01,& - & 4.92871E-01, 3.15736E-01, 1.21798E-01, 1.70537E-02/) - irradnceo(:,7) = (/ & - & 3.34026E+01, 3.23037E+01, 3.00416E+01, 2.79192E+01,& - & 2.53921E+01, 2.21484E+01, 1.82369E+01, 1.37476E+01,& - & 9.32780E+00, 1.01552E+00, 8.44236E-01, 6.62810E-01,& - & 4.93390E-01, 3.14906E-01, 1.18661E-01, 1.70540E-02/) - irradnceo(:,8) = (/ & - & 3.34349E+01, 3.22043E+01, 3.01812E+01, 2.79465E+01,& - & 2.53583E+01, 2.21412E+01, 1.82094E+01, 1.37441E+01,& - & 9.30754E+00, 1.01515E+00, 8.44497E-01, 6.64404E-01,& - & 4.90144E-01, 3.13759E-01, 1.14835E-01, 1.59848E-02/) - irradnceo(:,9) = (/ & - & 3.42460E+01, 3.21388E+01, 3.01095E+01, 2.78438E+01,& - & 2.51368E+01, 2.19795E+01, 1.81249E+01, 1.36909E+01,& - & 9.28218E+00, 1.01157E+00, 8.34889E-01, 6.62795E-01,& - & 4.82903E-01, 3.10708E-01, 1.15840E-01, 1.53240E-02/) -! Solar variability components: facular brightening - facbrghto(:,1) = (/ & - & 2.27755E-02, 2.26285E-02, 2.12830E-02, 1.91126E-02,& - & 1.67851E-02, 1.44155E-02, 1.19158E-02, 9.11355E-03,& - & 6.13074E-03, 6.65603E-04, 5.51160E-04, 4.35798E-04,& - & 3.18203E-04, 2.02405E-04, 7.62470E-05, 1.06905E-05/) - facbrghto(:,2) = (/ & - & 2.23790E-02, 2.16948E-02, 2.05743E-02, 1.91817E-02,& - & 1.72122E-02, 1.50738E-02, 1.24159E-02, 9.33385E-03,& - & 6.27454E-03, 6.76661E-04, 5.58449E-04, 4.37748E-04,& - & 3.18201E-04, 2.02405E-04, 7.62472E-05, 1.06903E-05/) - facbrghto(:,3) = (/ & - & 2.23205E-02, 2.16964E-02, 2.05153E-02, 1.90960E-02,& - & 1.73148E-02, 1.51096E-02, 1.24225E-02, 9.34252E-03,& - & 6.30103E-03, 6.84142E-04, 5.63563E-04, 4.43842E-04,& - & 3.20746E-04, 2.02405E-04, 7.62472E-05, 1.06903E-05/) - facbrghto(:,4) = (/ & - & 2.22812E-02, 2.16786E-02, 2.05018E-02, 1.90906E-02,& - & 1.73540E-02, 1.51044E-02, 1.24167E-02, 9.35686E-03,& - & 6.31755E-03, 6.88726E-04, 5.67731E-04, 4.47107E-04,& - & 3.25740E-04, 2.02405E-04, 7.62470E-05, 1.06905E-05/) - facbrghto(:,5) = (/ & - & 2.22603E-02, 2.16691E-02, 2.04730E-02, 1.91155E-02,& - & 1.73538E-02, 1.51053E-02, 1.24114E-02, 9.35858E-03,& - & 6.34033E-03, 6.91459E-04, 5.71435E-04, 4.50296E-04,& - & 3.28452E-04, 2.04401E-04, 7.62466E-05, 1.06903E-05/) - facbrghto(:,6) = (/ & - & 2.22503E-02, 2.16603E-02, 2.04609E-02, 1.91224E-02,& - & 1.73466E-02, 1.50949E-02, 1.24176E-02, 9.35948E-03,& - & 6.36072E-03, 6.94634E-04, 5.74816E-04, 4.52589E-04,& - & 3.30669E-04, 2.07385E-04, 7.62464E-05, 1.06902E-05/) - facbrghto(:,7) = (/ & - & 2.22404E-02, 2.16460E-02, 2.04721E-02, 1.91049E-02,& - & 1.73389E-02, 1.50869E-02, 1.24130E-02, 9.37898E-03,& - & 6.37863E-03, 6.98281E-04, 5.76667E-04, 4.55019E-04,& - & 3.32114E-04, 2.10190E-04, 7.76838E-05, 1.06905E-05/) - facbrghto(:,8) = (/ & - & 2.22271E-02, 2.16444E-02, 2.04889E-02, 1.90545E-02,& - & 1.73157E-02, 1.50884E-02, 1.24141E-02, 9.40991E-03,& - & 6.40225E-03, 7.00595E-04, 5.78910E-04, 4.56887E-04,& - & 3.34204E-04, 2.12237E-04, 8.08640E-05, 1.13871E-05/) - facbrghto(:,9) = (/ & - & 2.21786E-02, 2.17062E-02, 2.04904E-02, 1.90487E-02,& - & 1.72650E-02, 1.50602E-02, 1.24407E-02, 9.42235E-03,& - & 6.41377E-03, 7.02970E-04, 5.83184E-04, 4.61075E-04,& - & 3.38668E-04, 2.15750E-04, 8.14294E-05, 1.13965E-05/) -! Solar variability components: sunspot darkening - snsptdrko(:,1) = (/ & - &-1.12410E-02,-1.12113E-02,-1.10779E-02,-1.04292E-02,& - &-8.98961E-03,-8.03572E-03,-6.75787E-03,-5.03467E-03,& - &-3.17957E-03,-3.38985E-04,-2.81562E-04,-2.23039E-04,& - &-1.60087E-04,-1.01767E-04,-3.83353E-05,-5.36521E-06/) - snsptdrko(:,2) = (/ & - &-1.15334E-02,-1.15873E-02,-1.09714E-02,-1.02601E-02,& - &-9.40127E-03,-7.93115E-03,-6.35550E-03,-4.74664E-03,& - &-3.16591E-03,-3.41515E-04,-2.82907E-04,-2.23426E-04,& - &-1.60087E-04,-1.01767E-04,-3.83353E-05,-5.36519E-06/) - snsptdrko(:,3) = (/ & - &-1.16018E-02,-1.15197E-02,-1.10428E-02,-1.04082E-02,& - &-9.29123E-03,-7.83257E-03,-6.34771E-03,-4.73395E-03,& - &-3.17002E-03,-3.43867E-04,-2.83776E-04,-2.24084E-04,& - &-1.60764E-04,-1.01767E-04,-3.83353E-05,-5.36519E-06/) - snsptdrko(:,4) = (/ & - &-1.16474E-02,-1.14951E-02,-1.11033E-02,-1.04579E-02,& - &-9.17511E-03,-7.82181E-03,-6.33620E-03,-4.73236E-03,& - &-3.17528E-03,-3.45134E-04,-2.84910E-04,-2.23675E-04,& - &-1.62387E-04,-1.01767E-04,-3.83353E-05,-5.36521E-06/) - snsptdrko(:,5) = (/ & - &-1.16739E-02,-1.14817E-02,-1.11986E-02,-1.03868E-02,& - &-9.13950E-03,-7.82100E-03,-6.32953E-03,-4.72539E-03,& - &-3.18466E-03,-3.46317E-04,-2.85694E-04,-2.23434E-04,& - &-1.63185E-04,-1.02484E-04,-3.83352E-05,-5.36519E-06/) - snsptdrko(:,6) = (/ & - &-1.16800E-02,-1.14904E-02,-1.12697E-02,-1.03121E-02,& - &-9.12987E-03,-7.81075E-03,-6.32982E-03,-4.72246E-03,& - &-3.19329E-03,-3.47036E-04,-2.85401E-04,-2.24107E-04,& - &-1.63894E-04,-1.03476E-04,-3.83350E-05,-5.36523E-06/) - snsptdrko(:,7) = (/ & - &-1.16773E-02,-1.15299E-02,-1.12771E-02,-1.02691E-02,& - &-9.12264E-03,-7.80854E-03,-6.32243E-03,-4.72944E-03,& - &-3.19917E-03,-3.46451E-04,-2.85885E-04,-2.25076E-04,& - &-1.64410E-04,-1.04310E-04,-3.88550E-05,-5.36521E-06/) - snsptdrko(:,8) = (/ & - &-1.16665E-02,-1.15865E-02,-1.12398E-02,-1.02548E-02,& - &-9.10945E-03,-7.80524E-03,-6.32783E-03,-4.73915E-03,& - &-3.20164E-03,-3.47046E-04,-2.86536E-04,-2.25780E-04,& - &-1.65140E-04,-1.04907E-04,-3.99159E-05,-5.63205E-06/) - snsptdrko(:,9) = (/ & - &-1.11706E-02,-1.16970E-02,-1.13426E-02,-1.03468E-02,& - &-9.16736E-03,-7.85391E-03,-6.36547E-03,-4.76183E-03,& - &-3.21544E-03,-3.49450E-04,-2.88904E-04,-2.28050E-04,& - &-1.66800E-04,-1.06063E-04,-4.00684E-05,-5.63614E-06/) - -! Rayleigh extinction coefficient at all v - raylao(:,1) = (/ & - & 1.28405e-07,1.45501e-07,1.67272e-07,1.94856e-07, & - & 2.15248e-07,2.34920e-07,2.48558e-07,1.80004e-07, & - & 1.46504e-07,1.31355e-07,1.33562e-07,1.35618e-07, & - & 1.22412e-07,1.19842e-07,1.19924e-07,1.20264e-07 /) - raylao(:,2) = (/ & - & 1.41622e-07,1.93436e-07,2.25057e-07,2.01025e-07, & - & 1.85138e-07,1.72672e-07,1.64771e-07,1.59312e-07, & - & 1.44961e-07,1.37448e-07,1.37506e-07,1.38081e-07, & - & 1.22432e-07,1.19844e-07,1.19921e-07,1.20287e-07 /) - raylao(:,3) = (/ & - & 1.45382e-07,1.97020e-07,2.22781e-07,1.96062e-07, & - & 1.83495e-07,1.72495e-07,1.64910e-07,1.58797e-07, & - & 1.46208e-07,1.42274e-07,1.40445e-07,1.39496e-07, & - & 1.26940e-07,1.19844e-07,1.19921e-07,1.20287e-07 /) - raylao(:,4) = (/ & - & 1.48247e-07,1.99958e-07,2.18048e-07,1.93896e-07, & - & 1.83125e-07,1.73244e-07,1.64320e-07,1.58298e-07, & - & 1.48428e-07,1.44769e-07,1.43704e-07,1.38498e-07, & - & 1.31732e-07,1.22299e-07,1.19921e-07,1.20287e-07 /) - raylao(:,5) = (/ & - & 1.51343e-07,1.99621e-07,2.14563e-07,1.93824e-07, & - & 1.82992e-07,1.73143e-07,1.64587e-07,1.57355e-07, & - & 1.51198e-07,1.46373e-07,1.45438e-07,1.38095e-07, & - & 1.35026e-07,1.27504e-07,1.19921e-07,1.20287e-07 /) - raylao(:,6) = (/ & - & 1.54462e-07,1.97610e-07,2.11992e-07,1.93831e-07, & - & 1.83900e-07,1.73125e-07,1.64093e-07,1.57651e-07, & - & 1.53158e-07,1.46843e-07,1.44733e-07,1.40611e-07, & - & 1.37320e-07,1.33932e-07,1.20423e-07,1.20287e-07 /) - raylao(:,7) = (/ & - & 1.59068e-07,1.92757e-07,2.09865e-07,1.95132e-07, & - & 1.83641e-07,1.73778e-07,1.63215e-07,1.59462e-07, & - & 1.54331e-07,1.46177e-07,1.45819e-07,1.43177e-07, & - & 1.39797e-07,1.36780e-07,1.33385e-07,1.20287e-07 /) - raylao(:,8) = (/ & - & 1.62066e-07,1.87529e-07,2.07191e-07,1.97788e-07, & - & 1.84920e-07,1.72951e-07,1.65450e-07,1.60344e-07, & - & 1.54403e-07,1.47679e-07,1.47287e-07,1.44951e-07, & - & 1.42517e-07,1.41107e-07,1.48688e-07,1.51127e-07 /) - raylao(:,9) = (/ & - & 1.19177e-07,1.86522e-07,2.20324e-07,2.13543e-07, & - & 1.92198e-07,1.81641e-07,1.70092e-07,1.65072e-07, & - & 1.59804e-07,1.56745e-07,1.51235e-07,1.51400e-07, & - & 1.49635e-07,1.48056e-07,1.49046e-07,1.51010e-07 /) - - raylbo(:) = (/ & - & 1.23766e-07,1.40524e-07,1.61610e-07,1.83232e-07, & - & 2.02951e-07,2.21367e-07,2.38367e-07,2.53019e-07, & - & 2.12202e-07,1.36977e-07,1.39118e-07,1.37097e-07, & - & 1.33223e-07,1.38695e-07,1.19868e-07,1.20062e-07 /) - - abso3ao(:) = (/ & - & 8.03067e-02,0.180926 ,0.227484 ,0.168015 , & - & 0.138284 ,0.114537 ,9.50114e-02,8.06816e-02, & - & 6.76406e-02,5.69802e-02,5.63283e-02,4.57592e-02, & - & 4.21862e-02,3.47949e-02,2.65731e-02,2.67628e-02 /) - - abso3bo(:) = (/ & - & 2.94848e-02,4.33642e-02,6.70197e-02,0.104990 , & - & 0.156180 ,0.214638 ,0.266281 ,0.317941 , & - & 0.355327 ,0.371241 ,0.374396 ,0.326847 , & - & 0.126497 ,6.95264e-02,2.58175e-02,2.52862e-02 /) - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1, 1) = (/ & - & 0.73110e-09,0.95257e-08,0.84454e-08,0.69367e-08,0.55267e-08, & - & 0.41107e-08,0.32800e-08,0.33548e-08,0.22111e-08 /) - kao(:, 2, 1, 1) = (/ & - & 0.71850e-09,0.98856e-08,0.88084e-08,0.72442e-08,0.57586e-08, & - & 0.43475e-08,0.34021e-08,0.32425e-08,0.21911e-08 /) - kao(:, 3, 1, 1) = (/ & - & 0.57048e-09,0.11944e-07,0.10693e-07,0.91787e-08,0.75423e-08, & - & 0.56949e-08,0.43124e-08,0.42335e-08,0.57788e-08 /) - kao(:, 4, 1, 1) = (/ & - & 0.45283e-09,0.10517e-07,0.93142e-08,0.77267e-08,0.61927e-08, & - & 0.47485e-08,0.34557e-08,0.32691e-08,0.21836e-08 /) - kao(:, 5, 1, 1) = (/ & - & 0.40037e-09,0.10599e-07,0.93529e-08,0.78411e-08,0.63421e-08, & - & 0.49082e-08,0.36312e-08,0.32874e-08,0.21861e-08 /) - kao(:, 1, 2, 1) = (/ & - & 0.77671e-09,0.11163e-07,0.95032e-08,0.79805e-08,0.60721e-08, & - & 0.45440e-08,0.31263e-08,0.28631e-08,0.19430e-08 /) - kao(:, 2, 2, 1) = (/ & - & 0.85527e-09,0.11271e-07,0.97269e-08,0.82280e-08,0.62706e-08, & - & 0.47926e-08,0.32802e-08,0.28152e-08,0.19155e-08 /) - kao(:, 3, 2, 1) = (/ & - & 0.85773e-09,0.13292e-07,0.11943e-07,0.10177e-07,0.81637e-08, & - & 0.62054e-08,0.44045e-08,0.35504e-08,0.48274e-08 /) - kao(:, 4, 2, 1) = (/ & - & 0.76956e-09,0.13343e-07,0.12140e-07,0.10403e-07,0.83916e-08, & - & 0.64414e-08,0.46212e-08,0.36611e-08,0.46523e-08 /) - kao(:, 5, 2, 1) = (/ & - & 0.53187e-09,0.11759e-07,0.10564e-07,0.89416e-08,0.69566e-08, & - & 0.54336e-08,0.36797e-08,0.28238e-08,0.18838e-08 /) - kao(:, 1, 3, 1) = (/ & - & 0.99065e-09,0.13223e-07,0.11222e-07,0.94282e-08,0.74664e-08, & - & 0.54084e-08,0.35205e-08,0.24806e-08,0.20205e-08 /) - kao(:, 2, 3, 1) = (/ & - & 0.98793e-09,0.13673e-07,0.11444e-07,0.96735e-08,0.76364e-08, & - & 0.55809e-08,0.37259e-08,0.25419e-08,0.20086e-08 /) - kao(:, 3, 3, 1) = (/ & - & 0.10274e-08,0.14243e-07,0.12051e-07,0.10168e-07,0.80110e-08, & - & 0.59129e-08,0.38720e-08,0.26806e-08,0.19959e-08 /) - kao(:, 4, 3, 1) = (/ & - & 0.10879e-08,0.15991e-07,0.14290e-07,0.12193e-07,0.99943e-08, & - & 0.76411e-08,0.49949e-08,0.32117e-08,0.45196e-08 /) - kao(:, 5, 3, 1) = (/ & - & 0.10733e-08,0.14460e-07,0.12483e-07,0.10703e-07,0.84924e-08, & - & 0.62896e-08,0.42753e-08,0.27408e-08,0.19679e-08 /) - kao(:, 1, 4, 1) = (/ & - & 0.11948e-08,0.15804e-07,0.13423e-07,0.10964e-07,0.86345e-08, & - & 0.61421e-08,0.39130e-08,0.24271e-08,0.26282e-08 /) - kao(:, 2, 4, 1) = (/ & - & 0.12796e-08,0.16985e-07,0.14121e-07,0.11784e-07,0.93415e-08, & - & 0.67310e-08,0.43124e-08,0.25170e-08,0.26033e-08 /) - kao(:, 3, 4, 1) = (/ & - & 0.12903e-08,0.17863e-07,0.14703e-07,0.12387e-07,0.99243e-08, & - & 0.72283e-08,0.46892e-08,0.26092e-08,0.25739e-08 /) - kao(:, 4, 4, 1) = (/ & - & 0.13030e-08,0.17982e-07,0.14488e-07,0.12389e-07,0.10284e-07, & - & 0.76192e-08,0.50049e-08,0.27184e-08,0.25450e-08 /) - kao(:, 5, 4, 1) = (/ & - & 0.13295e-08,0.20084e-07,0.17213e-07,0.15086e-07,0.12255e-07, & - & 0.93192e-08,0.61747e-08,0.34151e-08,0.50409e-08 /) - kao(:, 1, 5, 1) = (/ & - & 0.14930e-08,0.19740e-07,0.16353e-07,0.13382e-07,0.10370e-07, & - & 0.76167e-08,0.46913e-08,0.23740e-08,0.37254e-08 /) - kao(:, 2, 5, 1) = (/ & - & 0.15750e-08,0.20826e-07,0.17352e-07,0.14080e-07,0.11109e-07, & - & 0.82293e-08,0.51142e-08,0.25900e-08,0.36977e-08 /) - kao(:, 3, 5, 1) = (/ & - & 0.16427e-08,0.22313e-07,0.18005e-07,0.14545e-07,0.11545e-07, & - & 0.85987e-08,0.53849e-08,0.27523e-08,0.36628e-08 /) - kao(:, 4, 5, 1) = (/ & - & 0.17106e-08,0.23821e-07,0.18882e-07,0.15226e-07,0.12313e-07, & - & 0.92367e-08,0.58646e-08,0.29020e-08,0.36336e-08 /) - kao(:, 5, 5, 1) = (/ & - & 0.17465e-08,0.26750e-07,0.22103e-07,0.18690e-07,0.15320e-07, & - & 0.11508e-07,0.77281e-08,0.34929e-08,0.69801e-08 /) - kao(:, 1, 6, 1) = (/ & - & 0.17561e-08,0.17298e-07,0.18888e-07,0.16164e-07,0.12676e-07, & - & 0.91128e-08,0.57292e-08,0.25945e-08,0.52718e-08 /) - kao(:, 2, 6, 1) = (/ & - & 0.19997e-08,0.20866e-07,0.20612e-07,0.17467e-07,0.13431e-07, & - & 0.96178e-08,0.60009e-08,0.28959e-08,0.52609e-08 /) - kao(:, 3, 6, 1) = (/ & - & 0.21808e-08,0.24689e-07,0.22590e-07,0.18672e-07,0.14573e-07, & - & 0.10599e-07,0.66802e-08,0.31104e-08,0.52649e-08 /) - kao(:, 4, 6, 1) = (/ & - & 0.22321e-08,0.28043e-07,0.23802e-07,0.19473e-07,0.15182e-07, & - & 0.11372e-07,0.73223e-08,0.34820e-08,0.52977e-08 /) - kao(:, 5, 6, 1) = (/ & - & 0.23033e-08,0.30784e-07,0.25188e-07,0.20376e-07,0.16019e-07, & - & 0.12009e-07,0.77933e-08,0.37322e-08,0.52777e-08 /) - kao(:, 1, 7, 1) = (/ & - & 0.22679e-08,0.13507e-07,0.20320e-07,0.19549e-07,0.15905e-07, & - & 0.11277e-07,0.68710e-08,0.29328e-08,0.79703e-08 /) - kao(:, 2, 7, 1) = (/ & - & 0.25718e-08,0.16957e-07,0.24375e-07,0.21175e-07,0.17080e-07, & - & 0.12233e-07,0.77114e-08,0.34113e-08,0.79963e-08 /) - kao(:, 3, 7, 1) = (/ & - & 0.27598e-08,0.19896e-07,0.28092e-07,0.23059e-07,0.18272e-07, & - & 0.13117e-07,0.84449e-08,0.37817e-08,0.79824e-08 /) - kao(:, 4, 7, 1) = (/ & - & 0.28979e-08,0.22997e-07,0.29556e-07,0.24211e-07,0.19134e-07, & - & 0.13799e-07,0.90980e-08,0.41849e-08,0.79622e-08 /) - kao(:, 5, 7, 1) = (/ & - & 0.31158e-08,0.26193e-07,0.32426e-07,0.25685e-07,0.19970e-07, & - & 0.14504e-07,0.96379e-08,0.45034e-08,0.78914e-08 /) - kao(:, 1, 8, 1) = (/ & - & 0.27286e-08,0.10085e-07,0.15014e-07,0.19090e-07,0.19831e-07, & - & 0.15054e-07,0.91059e-08,0.39324e-08,0.14155e-07 /) - kao(:, 2, 8, 1) = (/ & - & 0.30146e-08,0.12680e-07,0.19259e-07,0.23896e-07,0.21584e-07, & - & 0.16217e-07,0.99712e-08,0.44108e-08,0.14243e-07 /) - kao(:, 3, 8, 1) = (/ & - & 0.35571e-08,0.15989e-07,0.23328e-07,0.28003e-07,0.22999e-07, & - & 0.17316e-07,0.10856e-07,0.49279e-08,0.13770e-07 /) - kao(:, 4, 8, 1) = (/ & - & 0.40065e-08,0.19481e-07,0.27247e-07,0.30922e-07,0.24592e-07, & - & 0.18005e-07,0.11331e-07,0.53242e-08,0.13758e-07 /) - kao(:, 5, 8, 1) = (/ & - & 0.44047e-08,0.23368e-07,0.31337e-07,0.33478e-07,0.26467e-07, & - & 0.19093e-07,0.12194e-07,0.56088e-08,0.13665e-07 /) - kao(:, 1, 9, 1) = (/ & - & 0.32692e-08,0.79127e-08,0.11108e-07,0.13962e-07,0.15949e-07, & - & 0.18125e-07,0.12367e-07,0.53666e-08,0.28048e-07 /) - kao(:, 2, 9, 1) = (/ & - & 0.39872e-08,0.10056e-07,0.14185e-07,0.17838e-07,0.20262e-07, & - & 0.19824e-07,0.13459e-07,0.59111e-08,0.29491e-07 /) - kao(:, 3, 9, 1) = (/ & - & 0.46117e-08,0.12472e-07,0.17902e-07,0.22130e-07,0.25362e-07, & - & 0.21745e-07,0.14226e-07,0.62741e-08,0.30373e-07 /) - kao(:, 4, 9, 1) = (/ & - & 0.52024e-08,0.15275e-07,0.21923e-07,0.27295e-07,0.30210e-07, & - & 0.23240e-07,0.15087e-07,0.66869e-08,0.31196e-07 /) - kao(:, 5, 9, 1) = (/ & - & 0.56198e-08,0.17975e-07,0.26684e-07,0.30762e-07,0.34012e-07, & - & 0.25509e-07,0.16208e-07,0.72951e-08,0.31583e-07 /) - kao(:, 1,10, 1) = (/ & - & 0.48178e-08,0.70531e-08,0.93321e-08,0.10834e-07,0.12386e-07, & - & 0.13718e-07,0.14795e-07,0.73464e-08,0.35934e-07 /) - kao(:, 2,10, 1) = (/ & - & 0.55752e-08,0.86985e-08,0.11492e-07,0.13823e-07,0.15291e-07, & - & 0.17278e-07,0.18153e-07,0.81439e-08,0.37177e-07 /) - kao(:, 3,10, 1) = (/ & - & 0.63274e-08,0.10735e-07,0.13985e-07,0.17136e-07,0.19303e-07, & - & 0.20940e-07,0.20044e-07,0.88008e-08,0.38431e-07 /) - kao(:, 4,10, 1) = (/ & - & 0.70007e-08,0.12858e-07,0.17195e-07,0.20946e-07,0.23543e-07, & - & 0.25732e-07,0.21748e-07,0.95846e-08,0.39768e-07 /) - kao(:, 5,10, 1) = (/ & - & 0.75858e-08,0.15576e-07,0.20803e-07,0.25331e-07,0.28222e-07, & - & 0.30974e-07,0.23346e-07,0.10532e-07,0.41126e-07 /) - kao(:, 1,11, 1) = (/ & - & 0.71066e-08,0.91105e-08,0.91823e-08,0.10078e-07,0.11080e-07, & - & 0.11808e-07,0.12592e-07,0.10585e-07,0.36646e-07 /) - kao(:, 2,11, 1) = (/ & - & 0.75651e-08,0.10196e-07,0.11288e-07,0.12341e-07,0.13264e-07, & - & 0.14635e-07,0.15304e-07,0.12113e-07,0.37821e-07 /) - kao(:, 3,11, 1) = (/ & - & 0.84521e-08,0.11641e-07,0.13494e-07,0.15134e-07,0.16494e-07, & - & 0.17667e-07,0.18637e-07,0.13998e-07,0.39151e-07 /) - kao(:, 4,11, 1) = (/ & - & 0.96535e-08,0.13091e-07,0.16210e-07,0.18132e-07,0.20108e-07, & - & 0.21506e-07,0.22578e-07,0.15372e-07,0.40534e-07 /) - kao(:, 5,11, 1) = (/ & - & 0.10866e-07,0.15259e-07,0.19222e-07,0.21816e-07,0.23808e-07, & - & 0.25779e-07,0.26640e-07,0.16560e-07,0.41783e-07 /) - kao(:, 1,12, 1) = (/ & - & 0.80834e-08,0.10420e-07,0.92387e-08,0.95448e-08,0.10004e-07, & - & 0.10210e-07,0.10715e-07,0.12956e-07,0.37307e-07 /) - kao(:, 2,12, 1) = (/ & - & 0.93300e-08,0.11721e-07,0.10935e-07,0.11240e-07,0.12099e-07, & - & 0.12529e-07,0.12978e-07,0.14968e-07,0.38619e-07 /) - kao(:, 3,12, 1) = (/ & - & 0.10509e-07,0.12830e-07,0.12793e-07,0.13649e-07,0.14634e-07, & - & 0.15024e-07,0.15635e-07,0.17087e-07,0.40001e-07 /) - kao(:, 4,12, 1) = (/ & - & 0.11973e-07,0.14173e-07,0.14811e-07,0.16236e-07,0.17652e-07, & - & 0.18139e-07,0.18897e-07,0.19167e-07,0.41426e-07 /) - kao(:, 5,12, 1) = (/ & - & 0.13412e-07,0.16145e-07,0.17438e-07,0.18946e-07,0.20873e-07, & - & 0.21649e-07,0.22446e-07,0.20222e-07,0.42866e-07 /) - kao(:, 1,13, 1) = (/ & - & 0.96752e-08,0.12525e-07,0.10944e-07,0.96402e-08,0.92613e-08, & - & 0.89183e-08,0.91757e-08,0.10962e-07,0.37700e-07 /) - kao(:, 2,13, 1) = (/ & - & 0.10573e-07,0.14013e-07,0.12095e-07,0.11243e-07,0.11108e-07, & - & 0.10880e-07,0.11099e-07,0.12700e-07,0.39054e-07 /) - kao(:, 3,13, 1) = (/ & - & 0.12096e-07,0.15476e-07,0.13719e-07,0.13357e-07,0.13060e-07, & - & 0.13122e-07,0.13232e-07,0.14320e-07,0.40767e-07 /) - kao(:, 4,13, 1) = (/ & - & 0.13461e-07,0.16674e-07,0.15454e-07,0.15611e-07,0.15616e-07, & - & 0.15505e-07,0.16233e-07,0.16510e-07,0.42192e-07 /) - kao(:, 5,13, 1) = (/ & - & 0.14863e-07,0.17307e-07,0.17245e-07,0.18041e-07,0.18314e-07, & - & 0.18445e-07,0.19222e-07,0.18635e-07,0.43353e-07 /) - kao(:, 1, 1, 2) = (/ & - & 0.11698e-08,0.30848e-07,0.36454e-07,0.38710e-07,0.45901e-07, & - & 0.55227e-07,0.66976e-07,0.88407e-07,0.23422e-07 /) - kao(:, 2, 1, 2) = (/ & - & 0.11855e-08,0.31924e-07,0.37139e-07,0.40576e-07,0.48515e-07, & - & 0.57453e-07,0.68267e-07,0.87661e-07,0.23548e-07 /) - kao(:, 3, 1, 2) = (/ & - & 0.14595e-08,0.39594e-07,0.49562e-07,0.62806e-07,0.77187e-07, & - & 0.93412e-07,0.11204e-06,0.13944e-06,0.36327e-07 /) - kao(:, 4, 1, 2) = (/ & - & 0.16033e-08,0.32903e-07,0.39616e-07,0.43600e-07,0.51878e-07, & - & 0.61189e-07,0.71838e-07,0.88579e-07,0.23754e-07 /) - kao(:, 5, 1, 2) = (/ & - & 0.16713e-08,0.33816e-07,0.40271e-07,0.44761e-07,0.53112e-07, & - & 0.62817e-07,0.73214e-07,0.89918e-07,0.23712e-07 /) - kao(:, 1, 2, 2) = (/ & - & 0.14413e-08,0.29542e-07,0.33672e-07,0.38233e-07,0.38429e-07, & - & 0.45175e-07,0.55138e-07,0.73579e-07,0.25050e-07 /) - kao(:, 2, 2, 2) = (/ & - & 0.13819e-08,0.33839e-07,0.35660e-07,0.39637e-07,0.40862e-07, & - & 0.47496e-07,0.56716e-07,0.72256e-07,0.25722e-07 /) - kao(:, 3, 2, 2) = (/ & - & 0.14034e-08,0.38888e-07,0.49224e-07,0.54694e-07,0.64529e-07, & - & 0.76758e-07,0.91615e-07,0.11521e-06,0.39473e-07 /) - kao(:, 4, 2, 2) = (/ & - & 0.15427e-08,0.40736e-07,0.49562e-07,0.55626e-07,0.65520e-07, & - & 0.77421e-07,0.92434e-07,0.11487e-06,0.39089e-07 /) - kao(:, 5, 2, 2) = (/ & - & 0.19146e-08,0.37020e-07,0.37998e-07,0.40828e-07,0.46417e-07, & - & 0.52511e-07,0.60306e-07,0.73583e-07,0.26882e-07 /) - kao(:, 1, 3, 2) = (/ & - & 0.16720e-08,0.23360e-07,0.34106e-07,0.35883e-07,0.37371e-07, & - & 0.37719e-07,0.44564e-07,0.59521e-07,0.60171e-07 /) - kao(:, 2, 3, 2) = (/ & - & 0.17699e-08,0.26546e-07,0.36000e-07,0.36846e-07,0.38381e-07, & - & 0.39667e-07,0.46368e-07,0.60306e-07,0.60604e-07 /) - kao(:, 3, 3, 2) = (/ & - & 0.18009e-08,0.29450e-07,0.37614e-07,0.38630e-07,0.39041e-07, & - & 0.41600e-07,0.48142e-07,0.59638e-07,0.61274e-07 /) - kao(:, 4, 3, 2) = (/ & - & 0.18222e-08,0.39219e-07,0.48109e-07,0.53485e-07,0.57150e-07, & - & 0.64444e-07,0.75574e-07,0.94813e-07,0.76759e-07 /) - kao(:, 5, 3, 2) = (/ & - & 0.18210e-08,0.34020e-07,0.40366e-07,0.41710e-07,0.42164e-07, & - & 0.45001e-07,0.49878e-07,0.60009e-07,0.61481e-07 /) - kao(:, 1, 4, 2) = (/ & - & 0.21152e-08,0.23706e-07,0.29784e-07,0.35302e-07,0.35282e-07, & - & 0.34361e-07,0.35938e-07,0.47065e-07,0.17050e-06 /) - kao(:, 2, 4, 2) = (/ & - & 0.22014e-08,0.24318e-07,0.33239e-07,0.37390e-07,0.36975e-07, & - & 0.35774e-07,0.38207e-07,0.49025e-07,0.17312e-06 /) - kao(:, 3, 4, 2) = (/ & - & 0.21940e-08,0.26005e-07,0.37067e-07,0.38353e-07,0.38894e-07, & - & 0.37527e-07,0.40105e-07,0.50082e-07,0.17777e-06 /) - kao(:, 4, 4, 2) = (/ & - & 0.23140e-08,0.28378e-07,0.41743e-07,0.40523e-07,0.40492e-07, & - & 0.38652e-07,0.40876e-07,0.49640e-07,0.18336e-06 /) - kao(:, 5, 4, 2) = (/ & - & 0.23213e-08,0.34154e-07,0.50461e-07,0.52357e-07,0.54187e-07, & - & 0.57113e-07,0.62843e-07,0.77605e-07,0.21695e-06 /) - kao(:, 1, 5, 2) = (/ & - & 0.26738e-08,0.26329e-07,0.23971e-07,0.31112e-07,0.35671e-07, & - & 0.34087e-07,0.29799e-07,0.37789e-07,0.52514e-06 /) - kao(:, 2, 5, 2) = (/ & - & 0.25455e-08,0.28564e-07,0.26376e-07,0.34876e-07,0.38195e-07, & - & 0.36126e-07,0.31889e-07,0.38787e-07,0.53894e-06 /) - kao(:, 3, 5, 2) = (/ & - & 0.27955e-08,0.30168e-07,0.29598e-07,0.39256e-07,0.39488e-07, & - & 0.38121e-07,0.34110e-07,0.40225e-07,0.55617e-06 /) - kao(:, 4, 5, 2) = (/ & - & 0.30518e-08,0.31696e-07,0.32642e-07,0.43581e-07,0.40810e-07, & - & 0.38887e-07,0.35568e-07,0.41837e-07,0.57141e-06 /) - kao(:, 5, 5, 2) = (/ & - & 0.29545e-08,0.34626e-07,0.42873e-07,0.52742e-07,0.53043e-07, & - & 0.52428e-07,0.54304e-07,0.64247e-07,0.63906e-06 /) - kao(:, 1, 6, 2) = (/ & - & 0.30127e-08,0.42606e-07,0.28980e-07,0.24923e-07,0.29265e-07, & - & 0.34534e-07,0.31090e-07,0.30814e-07,0.12844e-05 /) - kao(:, 2, 6, 2) = (/ & - & 0.33504e-08,0.42102e-07,0.30491e-07,0.27666e-07,0.33477e-07, & - & 0.35643e-07,0.33324e-07,0.31448e-07,0.13231e-05 /) - kao(:, 3, 6, 2) = (/ & - & 0.37714e-08,0.40516e-07,0.32080e-07,0.30623e-07,0.37391e-07, & - & 0.37255e-07,0.35144e-07,0.32296e-07,0.13598e-05 /) - kao(:, 4, 6, 2) = (/ & - & 0.40809e-08,0.41419e-07,0.33638e-07,0.33756e-07,0.41072e-07, & - & 0.38814e-07,0.36264e-07,0.33664e-07,0.13955e-05 /) - kao(:, 5, 6, 2) = (/ & - & 0.38112e-08,0.42764e-07,0.35694e-07,0.36747e-07,0.45193e-07, & - & 0.40460e-07,0.37371e-07,0.35107e-07,0.14282e-05 /) - kao(:, 1, 7, 2) = (/ & - & 0.36577e-08,0.64857e-07,0.37268e-07,0.28977e-07,0.24480e-07, & - & 0.26864e-07,0.30486e-07,0.25122e-07,0.20521e-05 /) - kao(:, 2, 7, 2) = (/ & - & 0.39427e-08,0.65731e-07,0.37248e-07,0.30585e-07,0.26773e-07, & - & 0.30114e-07,0.31576e-07,0.26187e-07,0.21480e-05 /) - kao(:, 3, 7, 2) = (/ & - & 0.43811e-08,0.66809e-07,0.38170e-07,0.32043e-07,0.28837e-07, & - & 0.34005e-07,0.32765e-07,0.27322e-07,0.22122e-05 /) - kao(:, 4, 7, 2) = (/ & - & 0.46591e-08,0.68244e-07,0.41020e-07,0.34183e-07,0.31347e-07, & - & 0.37946e-07,0.34473e-07,0.28264e-07,0.22876e-05 /) - kao(:, 5, 7, 2) = (/ & - & 0.51635e-08,0.69768e-07,0.42241e-07,0.36125e-07,0.34689e-07, & - & 0.41422e-07,0.36208e-07,0.29319e-07,0.23528e-05 /) - kao(:, 1, 8, 2) = (/ & - & 0.48063e-08,0.99492e-07,0.67977e-07,0.40583e-07,0.27462e-07, & - & 0.23261e-07,0.24790e-07,0.24175e-07,0.34404e-05 /) - kao(:, 2, 8, 2) = (/ & - & 0.46794e-08,0.10207e-06,0.68838e-07,0.41170e-07,0.30068e-07, & - & 0.24536e-07,0.27696e-07,0.25318e-07,0.35579e-05 /) - kao(:, 3, 8, 2) = (/ & - & 0.51560e-08,0.10436e-06,0.69782e-07,0.42105e-07,0.32065e-07, & - & 0.26776e-07,0.30613e-07,0.26859e-07,0.36807e-05 /) - kao(:, 4, 8, 2) = (/ & - & 0.59944e-08,0.10484e-06,0.71027e-07,0.44319e-07,0.34843e-07, & - & 0.29788e-07,0.33876e-07,0.28922e-07,0.37740e-05 /) - kao(:, 5, 8, 2) = (/ & - & 0.64682e-08,0.10541e-06,0.71736e-07,0.46124e-07,0.36934e-07, & - & 0.32173e-07,0.36502e-07,0.30991e-07,0.38805e-05 /) - kao(:, 1, 9, 2) = (/ & - & 0.56433e-08,0.13757e-06,0.10641e-06,0.72870e-07,0.43453e-07, & - & 0.25530e-07,0.19778e-07,0.25383e-07,0.95912e-05 /) - kao(:, 2, 9, 2) = (/ & - & 0.61882e-08,0.14041e-06,0.11046e-06,0.75424e-07,0.44204e-07, & - & 0.28513e-07,0.22344e-07,0.27258e-07,0.98257e-05 /) - kao(:, 3, 9, 2) = (/ & - & 0.68724e-08,0.14355e-06,0.11272e-06,0.76977e-07,0.44934e-07, & - & 0.30972e-07,0.24609e-07,0.29074e-07,0.10035e-04 /) - kao(:, 4, 9, 2) = (/ & - & 0.75288e-08,0.14628e-06,0.11397e-06,0.77508e-07,0.45913e-07, & - & 0.33498e-07,0.27308e-07,0.31237e-07,0.10206e-04 /) - kao(:, 5, 9, 2) = (/ & - & 0.82361e-08,0.14989e-06,0.11575e-06,0.78052e-07,0.47282e-07, & - & 0.34986e-07,0.29571e-07,0.31933e-07,0.10332e-04 /) - kao(:, 1,10, 2) = (/ & - & 0.80705e-08,0.18916e-06,0.16332e-06,0.12182e-06,0.80167e-07, & - & 0.44659e-07,0.24027e-07,0.20514e-07,0.18076e-04 /) - kao(:, 2,10, 2) = (/ & - & 0.86522e-08,0.19825e-06,0.16839e-06,0.12817e-06,0.85984e-07, & - & 0.48117e-07,0.24937e-07,0.22855e-07,0.18392e-04 /) - kao(:, 3,10, 2) = (/ & - & 0.93838e-08,0.20474e-06,0.17472e-06,0.13185e-06,0.89897e-07, & - & 0.50484e-07,0.27069e-07,0.24729e-07,0.18827e-04 /) - kao(:, 4,10, 2) = (/ & - & 0.10442e-07,0.21110e-06,0.17958e-06,0.13546e-06,0.92462e-07, & - & 0.51368e-07,0.29958e-07,0.26382e-07,0.19325e-04 /) - kao(:, 5,10, 2) = (/ & - & 0.11203e-07,0.21676e-06,0.18359e-06,0.14012e-06,0.94090e-07, & - & 0.51431e-07,0.32637e-07,0.27900e-07,0.19654e-04 /) - kao(:, 1,11, 2) = (/ & - & 0.10898e-07,0.20490e-06,0.23352e-06,0.18592e-06,0.13108e-06, & - & 0.82594e-07,0.41478e-07,0.20359e-07,0.24656e-04 /) - kao(:, 2,11, 2) = (/ & - & 0.12100e-07,0.21595e-06,0.24259e-06,0.19598e-06,0.14307e-06, & - & 0.90287e-07,0.44897e-07,0.21400e-07,0.25439e-04 /) - kao(:, 3,11, 2) = (/ & - & 0.12997e-07,0.22559e-06,0.25028e-06,0.20624e-06,0.15074e-06, & - & 0.95763e-07,0.46972e-07,0.22656e-07,0.26128e-04 /) - kao(:, 4,11, 2) = (/ & - & 0.12774e-07,0.23494e-06,0.26130e-06,0.21398e-06,0.15730e-06, & - & 0.98985e-07,0.48309e-07,0.24026e-07,0.26834e-04 /) - kao(:, 5,11, 2) = (/ & - & 0.13184e-07,0.24219e-06,0.26811e-06,0.22059e-06,0.16314e-06, & - & 0.10271e-06,0.49802e-07,0.25441e-07,0.27644e-04 /) - kao(:, 1,12, 2) = (/ & - & 0.11394e-07,0.19172e-06,0.27076e-06,0.23579e-06,0.17648e-06, & - & 0.11366e-06,0.56463e-07,0.20869e-07,0.27151e-04 /) - kao(:, 2,12, 2) = (/ & - & 0.12908e-07,0.20309e-06,0.28462e-06,0.24753e-06,0.18719e-06, & - & 0.12033e-06,0.60157e-07,0.21646e-07,0.27962e-04 /) - kao(:, 3,12, 2) = (/ & - & 0.13752e-07,0.21619e-06,0.29476e-06,0.25594e-06,0.19641e-06, & - & 0.12734e-06,0.64272e-07,0.22557e-07,0.28912e-04 /) - kao(:, 4,12, 2) = (/ & - & 0.14906e-07,0.22665e-06,0.30298e-06,0.26272e-06,0.20331e-06, & - & 0.13316e-06,0.68243e-07,0.23417e-07,0.29816e-04 /) - kao(:, 5,12, 2) = (/ & - & 0.15969e-07,0.23477e-06,0.31068e-06,0.27029e-06,0.20850e-06, & - & 0.13902e-06,0.71857e-07,0.25264e-07,0.30765e-04 /) - kao(:, 1,13, 2) = (/ & - & 0.13593e-07,0.19801e-06,0.26490e-06,0.27826e-06,0.22531e-06, & - & 0.15112e-06,0.78691e-07,0.27273e-07,0.28055e-04 /) - kao(:, 2,13, 2) = (/ & - & 0.15426e-07,0.20839e-06,0.27732e-06,0.28785e-06,0.23371e-06, & - & 0.16027e-06,0.86131e-07,0.29011e-07,0.29165e-04 /) - kao(:, 3,13, 2) = (/ & - & 0.16638e-07,0.21808e-06,0.28896e-06,0.29666e-06,0.24201e-06, & - & 0.16845e-06,0.91791e-07,0.30670e-07,0.30372e-04 /) - kao(:, 4,13, 2) = (/ & - & 0.17929e-07,0.22577e-06,0.29798e-06,0.30533e-06,0.24895e-06, & - & 0.17573e-06,0.96085e-07,0.31360e-07,0.31437e-04 /) - kao(:, 5,13, 2) = (/ & - & 0.18861e-07,0.23397e-06,0.30715e-06,0.31382e-06,0.25665e-06, & - & 0.18246e-06,0.10017e-06,0.32454e-07,0.32266e-04 /) - kao(:, 1, 1, 3) = (/ & - & 0.39751e-08,0.10094e-06,0.20247e-06,0.30028e-06,0.39102e-06, & - & 0.48711e-06,0.59106e-06,0.72709e-06,0.20885e-06 /) - kao(:, 2, 1, 3) = (/ & - & 0.43080e-08,0.10546e-06,0.20982e-06,0.31135e-06,0.40303e-06, & - & 0.49632e-06,0.59855e-06,0.74477e-06,0.21012e-06 /) - kao(:, 3, 1, 3) = (/ & - & 0.42986e-08,0.15269e-06,0.29890e-06,0.43493e-06,0.56429e-06, & - & 0.69336e-06,0.83181e-06,0.10423e-05,0.36557e-06 /) - kao(:, 4, 1, 3) = (/ & - & 0.43554e-08,0.11271e-06,0.22069e-06,0.32651e-06,0.42391e-06, & - & 0.51393e-06,0.61294e-06,0.75229e-06,0.20945e-06 /) - kao(:, 5, 1, 3) = (/ & - & 0.45047e-08,0.11576e-06,0.22657e-06,0.33173e-06,0.43142e-06, & - & 0.52151e-06,0.61871e-06,0.74980e-06,0.20891e-06 /) - kao(:, 1, 2, 3) = (/ & - & 0.46065e-08,0.81519e-07,0.15960e-06,0.23610e-06,0.31656e-06, & - & 0.39839e-06,0.48591e-06,0.60182e-06,0.18230e-06 /) - kao(:, 2, 2, 3) = (/ & - & 0.46837e-08,0.82106e-07,0.16429e-06,0.24471e-06,0.32626e-06, & - & 0.40531e-06,0.49330e-06,0.61810e-06,0.18355e-06 /) - kao(:, 3, 2, 3) = (/ & - & 0.50163e-08,0.12328e-06,0.23602e-06,0.35332e-06,0.46387e-06, & - & 0.57515e-06,0.69445e-06,0.88167e-06,0.30546e-06 /) - kao(:, 4, 2, 3) = (/ & - & 0.49809e-08,0.12454e-06,0.23839e-06,0.35429e-06,0.46515e-06, & - & 0.57491e-06,0.69031e-06,0.86630e-06,0.29807e-06 /) - kao(:, 5, 2, 3) = (/ & - & 0.51988e-08,0.91291e-07,0.17869e-06,0.26485e-06,0.34907e-06, & - & 0.42509e-06,0.50894e-06,0.62361e-06,0.18234e-06 /) - kao(:, 1, 3, 3) = (/ & - & 0.51916e-08,0.88867e-07,0.12220e-06,0.18411e-06,0.24720e-06, & - & 0.32303e-06,0.39526e-06,0.49595e-06,0.27125e-06 /) - kao(:, 2, 3, 3) = (/ & - & 0.56319e-08,0.87189e-07,0.12678e-06,0.19176e-06,0.25624e-06, & - & 0.32740e-06,0.40564e-06,0.50601e-06,0.28010e-06 /) - kao(:, 3, 3, 3) = (/ & - & 0.59026e-08,0.86017e-07,0.13043e-06,0.19649e-06,0.26497e-06, & - & 0.33305e-06,0.40679e-06,0.51963e-06,0.28660e-06 /) - kao(:, 4, 3, 3) = (/ & - & 0.59909e-08,0.10759e-06,0.18790e-06,0.28104e-06,0.37702e-06, & - & 0.47222e-06,0.57322e-06,0.72906e-06,0.37657e-06 /) - kao(:, 5, 3, 3) = (/ & - & 0.64422e-08,0.89472e-07,0.13687e-06,0.20453e-06,0.27802e-06, & - & 0.34266e-06,0.41565e-06,0.51746e-06,0.29675e-06 /) - kao(:, 1, 4, 3) = (/ & - & 0.62298e-08,0.99509e-07,0.10306e-06,0.14232e-06,0.19390e-06, & - & 0.25435e-06,0.31764e-06,0.40578e-06,0.49031e-06 /) - kao(:, 2, 4, 3) = (/ & - & 0.68419e-08,0.10415e-06,0.10349e-06,0.14672e-06,0.19860e-06, & - & 0.26012e-06,0.32720e-06,0.41327e-06,0.51522e-06 /) - kao(:, 3, 4, 3) = (/ & - & 0.71418e-08,0.10626e-06,0.10522e-06,0.15175e-06,0.20471e-06, & - & 0.26435e-06,0.33148e-06,0.42294e-06,0.53456e-06 /) - kao(:, 4, 4, 3) = (/ & - & 0.72470e-08,0.10891e-06,0.10648e-06,0.15457e-06,0.21007e-06, & - & 0.26937e-06,0.33376e-06,0.42939e-06,0.55207e-06 /) - kao(:, 5, 4, 3) = (/ & - & 0.77585e-08,0.12954e-06,0.14999e-06,0.22224e-06,0.29994e-06, & - & 0.38053e-06,0.47027e-06,0.60032e-06,0.76592e-06 /) - kao(:, 1, 5, 3) = (/ & - & 0.68852e-08,0.11288e-06,0.11969e-06,0.11689e-06,0.14994e-06, & - & 0.19637e-06,0.25309e-06,0.33018e-06,0.84551e-06 /) - kao(:, 2, 5, 3) = (/ & - & 0.75119e-08,0.11838e-06,0.12255e-06,0.11926e-06,0.15341e-06, & - & 0.20169e-06,0.26231e-06,0.33745e-06,0.85714e-06 /) - kao(:, 3, 5, 3) = (/ & - & 0.84416e-08,0.12128e-06,0.12324e-06,0.12015e-06,0.15812e-06, & - & 0.20463e-06,0.26808e-06,0.34461e-06,0.86734e-06 /) - kao(:, 4, 5, 3) = (/ & - & 0.92293e-08,0.12493e-06,0.12330e-06,0.12093e-06,0.16146e-06, & - & 0.20899e-06,0.26904e-06,0.35101e-06,0.88204e-06 /) - kao(:, 5, 5, 3) = (/ & - & 0.10279e-07,0.14631e-06,0.14078e-06,0.17511e-06,0.23546e-06, & - & 0.30442e-06,0.38374e-06,0.50000e-06,0.10431e-05 /) - kao(:, 1, 6, 3) = (/ & - & 0.51921e-08,0.14437e-06,0.12917e-06,0.11673e-06,0.12444e-06, & - & 0.14966e-06,0.19338e-06,0.26674e-06,0.16987e-05 /) - kao(:, 2, 6, 3) = (/ & - & 0.69052e-08,0.14822e-06,0.13564e-06,0.12080e-06,0.12884e-06, & - & 0.15616e-06,0.20083e-06,0.27373e-06,0.17147e-05 /) - kao(:, 3, 6, 3) = (/ & - & 0.93932e-08,0.15309e-06,0.13785e-06,0.12361e-06,0.12904e-06, & - & 0.16004e-06,0.20790e-06,0.27928e-06,0.17384e-05 /) - kao(:, 4, 6, 3) = (/ & - & 0.10364e-07,0.15577e-06,0.14281e-06,0.12445e-06,0.13032e-06, & - & 0.16178e-06,0.21225e-06,0.28499e-06,0.17733e-05 /) - kao(:, 5, 6, 3) = (/ & - & 0.10950e-07,0.15768e-06,0.14728e-06,0.12674e-06,0.12961e-06, & - & 0.16455e-06,0.21080e-06,0.28744e-06,0.17869e-05 /) - kao(:, 1, 7, 3) = (/ & - & 0.51527e-08,0.13331e-06,0.15220e-06,0.13781e-06,0.11791e-06, & - & 0.12291e-06,0.14839e-06,0.21430e-06,0.45802e-05 /) - kao(:, 2, 7, 3) = (/ & - & 0.52409e-08,0.14109e-06,0.15809e-06,0.14393e-06,0.12362e-06, & - & 0.12831e-06,0.15572e-06,0.22059e-06,0.46088e-05 /) - kao(:, 3, 7, 3) = (/ & - & 0.66901e-08,0.14833e-06,0.16524e-06,0.14893e-06,0.12670e-06, & - & 0.13152e-06,0.16110e-06,0.22404e-06,0.46200e-05 /) - kao(:, 4, 7, 3) = (/ & - & 0.90836e-08,0.15267e-06,0.17113e-06,0.15541e-06,0.12966e-06, & - & 0.13240e-06,0.16410e-06,0.22868e-06,0.45999e-05 /) - kao(:, 5, 7, 3) = (/ & - & 0.11721e-07,0.15605e-06,0.17580e-06,0.16064e-06,0.13194e-06, & - & 0.13127e-06,0.16676e-06,0.23245e-06,0.46103e-05 /) - kao(:, 1, 8, 3) = (/ & - & 0.53770e-08,0.12906e-06,0.19117e-06,0.16928e-06,0.14454e-06, & - & 0.11318e-06,0.12091e-06,0.16771e-06,0.10838e-04 /) - kao(:, 2, 8, 3) = (/ & - & 0.71217e-08,0.13171e-06,0.20115e-06,0.17525e-06,0.15189e-06, & - & 0.11980e-06,0.12589e-06,0.17247e-06,0.10844e-04 /) - kao(:, 3, 8, 3) = (/ & - & 0.76051e-08,0.13463e-06,0.20837e-06,0.18092e-06,0.15831e-06, & - & 0.12491e-06,0.12782e-06,0.17568e-06,0.10855e-04 /) - kao(:, 4, 8, 3) = (/ & - & 0.87276e-08,0.14002e-06,0.21488e-06,0.18616e-06,0.16272e-06, & - & 0.12991e-06,0.13139e-06,0.17775e-06,0.10873e-04 /) - kao(:, 5, 8, 3) = (/ & - & 0.98102e-08,0.14390e-06,0.21715e-06,0.19383e-06,0.16843e-06, & - & 0.13102e-06,0.13320e-06,0.18001e-06,0.10883e-04 /) - kao(:, 1, 9, 3) = (/ & - & 0.78846e-08,0.14921e-06,0.16266e-06,0.21810e-06,0.17257e-06, & - & 0.13914e-06,0.10621e-06,0.13009e-06,0.22193e-04 /) - kao(:, 2, 9, 3) = (/ & - & 0.87670e-08,0.15667e-06,0.17179e-06,0.22870e-06,0.18453e-06, & - & 0.14806e-06,0.11198e-06,0.13228e-06,0.22470e-04 /) - kao(:, 3, 9, 3) = (/ & - & 0.94042e-08,0.16331e-06,0.17929e-06,0.23732e-06,0.19309e-06, & - & 0.15669e-06,0.11769e-06,0.13462e-06,0.22759e-04 /) - kao(:, 4, 9, 3) = (/ & - & 0.10052e-07,0.16738e-06,0.18654e-06,0.24428e-06,0.19714e-06, & - & 0.16469e-06,0.12194e-06,0.13694e-06,0.23037e-04 /) - kao(:, 5, 9, 3) = (/ & - & 0.99609e-08,0.16974e-06,0.19096e-06,0.25212e-06,0.20604e-06, & - & 0.17005e-06,0.12529e-06,0.13965e-06,0.23331e-04 /) - kao(:, 1,10, 3) = (/ & - & 0.10600e-07,0.19194e-06,0.19694e-06,0.19228e-06,0.23306e-06, & - & 0.18017e-06,0.13563e-06,0.11106e-06,0.57833e-04 /) - kao(:, 2,10, 3) = (/ & - & 0.11513e-07,0.19670e-06,0.20600e-06,0.20153e-06,0.24712e-06, & - & 0.19420e-06,0.14374e-06,0.11223e-06,0.59252e-04 /) - kao(:, 3,10, 3) = (/ & - & 0.12267e-07,0.20052e-06,0.21125e-06,0.21502e-06,0.25879e-06, & - & 0.20809e-06,0.15257e-06,0.11412e-06,0.60474e-04 /) - kao(:, 4,10, 3) = (/ & - & 0.11377e-07,0.20485e-06,0.21479e-06,0.22527e-06,0.26884e-06, & - & 0.21723e-06,0.15872e-06,0.11733e-06,0.61380e-04 /) - kao(:, 5,10, 3) = (/ & - & 0.12141e-07,0.20611e-06,0.22439e-06,0.22986e-06,0.27411e-06, & - & 0.22402e-06,0.16342e-06,0.11916e-06,0.62353e-04 /) - kao(:, 1,11, 3) = (/ & - & 0.12251e-07,0.29022e-06,0.24496e-06,0.24059e-06,0.21631e-06, & - & 0.23923e-06,0.16597e-06,0.10842e-06,0.80074e-04 /) - kao(:, 2,11, 3) = (/ & - & 0.12224e-07,0.29680e-06,0.25368e-06,0.24691e-06,0.22294e-06, & - & 0.24912e-06,0.17747e-06,0.10969e-06,0.81125e-04 /) - kao(:, 3,11, 3) = (/ & - & 0.14264e-07,0.29886e-06,0.26040e-06,0.25256e-06,0.23184e-06, & - & 0.25957e-06,0.18845e-06,0.11123e-06,0.82960e-04 /) - kao(:, 4,11, 3) = (/ & - & 0.16608e-07,0.30056e-06,0.26198e-06,0.25724e-06,0.23897e-06, & - & 0.26977e-06,0.19716e-06,0.11521e-06,0.84911e-04 /) - kao(:, 5,11, 3) = (/ & - & 0.18982e-07,0.30200e-06,0.26559e-06,0.26090e-06,0.24427e-06, & - & 0.27763e-06,0.20825e-06,0.11858e-06,0.86586e-04 /) - kao(:, 1,12, 3) = (/ & - & 0.16186e-07,0.36864e-06,0.27735e-06,0.24475e-06,0.23659e-06, & - & 0.20178e-06,0.20651e-06,0.11504e-06,0.90323e-04 /) - kao(:, 2,12, 3) = (/ & - & 0.16900e-07,0.36903e-06,0.27865e-06,0.25015e-06,0.24279e-06, & - & 0.21379e-06,0.22149e-06,0.12739e-06,0.92788e-04 /) - kao(:, 3,12, 3) = (/ & - & 0.18900e-07,0.36546e-06,0.28369e-06,0.25919e-06,0.24650e-06, & - & 0.22349e-06,0.23741e-06,0.13455e-06,0.94381e-04 /) - kao(:, 4,12, 3) = (/ & - & 0.24666e-07,0.36289e-06,0.28992e-06,0.26755e-06,0.25261e-06, & - & 0.23012e-06,0.24862e-06,0.14012e-06,0.95689e-04 /) - kao(:, 5,12, 3) = (/ & - & 0.28047e-07,0.36144e-06,0.29439e-06,0.27280e-06,0.25910e-06, & - & 0.23527e-06,0.25804e-06,0.14441e-06,0.97273e-04 /) - kao(:, 1,13, 3) = (/ & - & 0.27099e-07,0.42452e-06,0.36469e-06,0.28012e-06,0.24206e-06, & - & 0.21452e-06,0.19737e-06,0.12552e-06,0.93221e-04 /) - kao(:, 2,13, 3) = (/ & - & 0.30641e-07,0.42348e-06,0.36821e-06,0.29049e-06,0.25191e-06, & - & 0.22447e-06,0.20459e-06,0.13174e-06,0.95326e-04 /) - kao(:, 3,13, 3) = (/ & - & 0.31538e-07,0.42218e-06,0.36978e-06,0.29801e-06,0.26042e-06, & - & 0.23413e-06,0.21354e-06,0.13999e-06,0.97244e-04 /) - kao(:, 4,13, 3) = (/ & - & 0.33087e-07,0.42233e-06,0.36980e-06,0.30223e-06,0.26697e-06, & - & 0.24077e-06,0.22289e-06,0.14849e-06,0.99282e-04 /) - kao(:, 5,13, 3) = (/ & - & 0.35771e-07,0.42124e-06,0.36949e-06,0.30814e-06,0.27423e-06, & - & 0.24510e-06,0.22998e-06,0.15431e-06,0.10189e-03 /) - kao(:, 1, 1, 4) = (/ & - & 0.60599e-08,0.49839e-06,0.90796e-06,0.12825e-05,0.16387e-05, & - & 0.20000e-05,0.24097e-05,0.30198e-05,0.14012e-05 /) - kao(:, 2, 1, 4) = (/ & - & 0.57361e-08,0.51373e-06,0.93344e-06,0.13150e-05,0.16776e-05, & - & 0.20412e-05,0.24476e-05,0.30155e-05,0.14079e-05 /) - kao(:, 3, 1, 4) = (/ & - & 0.61895e-08,0.64074e-06,0.11706e-05,0.16523e-05,0.21138e-05, & - & 0.25765e-05,0.30714e-05,0.37148e-05,0.20046e-05 /) - kao(:, 4, 1, 4) = (/ & - & 0.63590e-08,0.53918e-06,0.97233e-06,0.13614e-05,0.17274e-05, & - & 0.21018e-05,0.24992e-05,0.30391e-05,0.14106e-05 /) - kao(:, 5, 1, 4) = (/ & - & 0.66907e-08,0.54769e-06,0.98459e-06,0.13756e-05,0.17428e-05, & - & 0.21216e-05,0.25190e-05,0.30528e-05,0.14057e-05 /) - kao(:, 1, 2, 4) = (/ & - & 0.63247e-08,0.40976e-06,0.75743e-06,0.10729e-05,0.13776e-05, & - & 0.16847e-05,0.20386e-05,0.25923e-05,0.11016e-05 /) - kao(:, 2, 2, 4) = (/ & - & 0.71971e-08,0.42277e-06,0.77866e-06,0.11006e-05,0.14075e-05, & - & 0.17208e-05,0.20689e-05,0.25842e-05,0.11093e-05 /) - kao(:, 3, 2, 4) = (/ & - & 0.68862e-08,0.54111e-06,0.99924e-06,0.14135e-05,0.18137e-05, & - & 0.22190e-05,0.26613e-05,0.32636e-05,0.16377e-05 /) - kao(:, 4, 2, 4) = (/ & - & 0.74570e-08,0.54374e-06,0.10016e-05,0.14142e-05,0.18118e-05, & - & 0.22093e-05,0.26451e-05,0.32306e-05,0.16062e-05 /) - kao(:, 5, 2, 4) = (/ & - & 0.76975e-08,0.44890e-06,0.82016e-06,0.11488e-05,0.14591e-05, & - & 0.17814e-05,0.21241e-05,0.26089e-05,0.11145e-05 /) - kao(:, 1, 3, 4) = (/ & - & 0.83656e-08,0.31311e-06,0.61949e-06,0.88176e-06,0.11379e-05, & - & 0.13977e-05,0.17043e-05,0.22078e-05,0.73836e-06 /) - kao(:, 2, 3, 4) = (/ & - & 0.85171e-08,0.32573e-06,0.63573e-06,0.90517e-06,0.11641e-05, & - & 0.14286e-05,0.17247e-05,0.21938e-05,0.74285e-06 /) - kao(:, 3, 3, 4) = (/ & - & 0.78702e-08,0.33673e-06,0.64948e-06,0.92347e-06,0.11844e-05, & - & 0.14525e-05,0.17473e-05,0.21823e-05,0.74417e-06 /) - kao(:, 4, 3, 4) = (/ & - & 0.88135e-08,0.44484e-06,0.84006e-06,0.11924e-05,0.15326e-05, & - & 0.18766e-05,0.22592e-05,0.27980e-05,0.11629e-05 /) - kao(:, 5, 3, 4) = (/ & - & 0.83594e-08,0.34852e-06,0.67171e-06,0.94786e-06,0.12080e-05, & - & 0.14818e-05,0.17721e-05,0.22017e-05,0.74162e-06 /) - kao(:, 1, 4, 4) = (/ & - & 0.82233e-08,0.22714e-06,0.49574e-06,0.71618e-06,0.92897e-06, & - & 0.11522e-05,0.14150e-05,0.18749e-05,0.10829e-05 /) - kao(:, 2, 4, 4) = (/ & - & 0.90906e-08,0.23281e-06,0.51082e-06,0.73615e-06,0.95322e-06, & - & 0.11749e-05,0.14287e-05,0.18456e-05,0.10964e-05 /) - kao(:, 3, 4, 4) = (/ & - & 0.10403e-07,0.23873e-06,0.52083e-06,0.75142e-06,0.97057e-06, & - & 0.11959e-05,0.14456e-05,0.18299e-05,0.11024e-05 /) - kao(:, 4, 4, 4) = (/ & - & 0.11681e-07,0.24287e-06,0.52982e-06,0.76518e-06,0.98418e-06, & - & 0.12105e-05,0.14593e-05,0.18314e-05,0.11002e-05 /) - kao(:, 5, 4, 4) = (/ & - & 0.11781e-07,0.32919e-06,0.69041e-06,0.99008e-06,0.12781e-05, & - & 0.15684e-05,0.18900e-05,0.23626e-05,0.11507e-05 /) - kao(:, 1, 5, 4) = (/ & - & 0.10746e-07,0.16960e-06,0.36271e-06,0.57393e-06,0.75088e-06, & - & 0.94078e-06,0.11700e-05,0.15610e-05,0.23060e-05 /) - kao(:, 2, 5, 4) = (/ & - & 0.12322e-07,0.17145e-06,0.37466e-06,0.58975e-06,0.77156e-06, & - & 0.96051e-06,0.11773e-05,0.15431e-05,0.23550e-05 /) - kao(:, 3, 5, 4) = (/ & - & 0.12362e-07,0.17491e-06,0.38517e-06,0.60273e-06,0.78779e-06, & - & 0.97831e-06,0.11895e-05,0.15264e-05,0.23946e-05 /) - kao(:, 4, 5, 4) = (/ & - & 0.11932e-07,0.17603e-06,0.39310e-06,0.61276e-06,0.80198e-06, & - & 0.99168e-06,0.12014e-05,0.15209e-05,0.24122e-05 /) - kao(:, 5, 5, 4) = (/ & - & 0.12827e-07,0.23797e-06,0.54915e-06,0.81314e-06,0.10605e-05, & - & 0.13079e-05,0.15848e-05,0.19982e-05,0.26265e-05 /) - kao(:, 1, 6, 4) = (/ & - & 0.16887e-07,0.16918e-06,0.26182e-06,0.43955e-06,0.59876e-06, & - & 0.76220e-06,0.96205e-06,0.12977e-05,0.30196e-05 /) - kao(:, 2, 6, 4) = (/ & - & 0.16463e-07,0.17256e-06,0.26723e-06,0.45266e-06,0.61330e-06, & - & 0.77949e-06,0.96881e-06,0.12938e-05,0.31027e-05 /) - kao(:, 3, 6, 4) = (/ & - & 0.14297e-07,0.17174e-06,0.27626e-06,0.46141e-06,0.62873e-06, & - & 0.79335e-06,0.97523e-06,0.12716e-05,0.31487e-05 /) - kao(:, 4, 6, 4) = (/ & - & 0.15984e-07,0.17093e-06,0.27951e-06,0.46972e-06,0.64062e-06, & - & 0.80616e-06,0.98183e-06,0.12602e-05,0.31591e-05 /) - kao(:, 5, 6, 4) = (/ & - & 0.17832e-07,0.17197e-06,0.28124e-06,0.47610e-06,0.64900e-06, & - & 0.81537e-06,0.99403e-06,0.12613e-05,0.32001e-05 /) - kao(:, 1, 7, 4) = (/ & - & 0.19543e-07,0.20424e-06,0.20827e-06,0.30613e-06,0.46038e-06, & - & 0.61052e-06,0.78796e-06,0.10769e-05,0.53495e-05 /) - kao(:, 2, 7, 4) = (/ & - & 0.21943e-07,0.20486e-06,0.21292e-06,0.31650e-06,0.47369e-06, & - & 0.62546e-06,0.78997e-06,0.10696e-05,0.53612e-05 /) - kao(:, 3, 7, 4) = (/ & - & 0.23096e-07,0.20519e-06,0.21260e-06,0.32419e-06,0.48522e-06, & - & 0.63494e-06,0.79556e-06,0.10562e-05,0.54125e-05 /) - kao(:, 4, 7, 4) = (/ & - & 0.23811e-07,0.20761e-06,0.21334e-06,0.32752e-06,0.49467e-06, & - & 0.64456e-06,0.80411e-06,0.10435e-05,0.54920e-05 /) - kao(:, 5, 7, 4) = (/ & - & 0.23502e-07,0.20918e-06,0.21430e-06,0.32878e-06,0.50037e-06, & - & 0.65413e-06,0.80879e-06,0.10409e-05,0.55076e-05 /) - kao(:, 1, 8, 4) = (/ & - & 0.28818e-07,0.26386e-06,0.23322e-06,0.23394e-06,0.31766e-06, & - & 0.47372e-06,0.64268e-06,0.89272e-06,0.10691e-04 /) - kao(:, 2, 8, 4) = (/ & - & 0.30094e-07,0.27235e-06,0.23524e-06,0.24245e-06,0.32636e-06, & - & 0.48411e-06,0.63773e-06,0.88040e-06,0.10770e-04 /) - kao(:, 3, 8, 4) = (/ & - & 0.32474e-07,0.27799e-06,0.23717e-06,0.24789e-06,0.33554e-06, & - & 0.49304e-06,0.64255e-06,0.87788e-06,0.10799e-04 /) - kao(:, 4, 8, 4) = (/ & - & 0.33631e-07,0.28020e-06,0.23819e-06,0.25000e-06,0.34187e-06, & - & 0.49874e-06,0.64803e-06,0.86373e-06,0.10824e-04 /) - kao(:, 5, 8, 4) = (/ & - & 0.34597e-07,0.28107e-06,0.24266e-06,0.24933e-06,0.34607e-06, & - & 0.50692e-06,0.65081e-06,0.85686e-06,0.10819e-04 /) - kao(:, 1, 9, 4) = (/ & - & 0.37049e-07,0.33070e-06,0.32147e-06,0.25828e-06,0.24460e-06, & - & 0.33057e-06,0.51182e-06,0.72970e-06,0.32667e-04 /) - kao(:, 2, 9, 4) = (/ & - & 0.39634e-07,0.34282e-06,0.32875e-06,0.26785e-06,0.25757e-06, & - & 0.33579e-06,0.50462e-06,0.72240e-06,0.32638e-04 /) - kao(:, 3, 9, 4) = (/ & - & 0.42012e-07,0.34998e-06,0.33495e-06,0.27514e-06,0.26581e-06, & - & 0.33988e-06,0.50360e-06,0.72105e-06,0.32828e-04 /) - kao(:, 4, 9, 4) = (/ & - & 0.43216e-07,0.35061e-06,0.33953e-06,0.28140e-06,0.27172e-06, & - & 0.34266e-06,0.50914e-06,0.70829e-06,0.32970e-04 /) - kao(:, 5, 9, 4) = (/ & - & 0.43838e-07,0.35447e-06,0.34674e-06,0.28252e-06,0.27122e-06, & - & 0.34740e-06,0.51058e-06,0.70194e-06,0.33023e-04 /) - kao(:, 1,10, 4) = (/ & - & 0.46492e-07,0.34673e-06,0.43959e-06,0.39620e-06,0.30969e-06, & - & 0.25359e-06,0.35579e-06,0.58999e-06,0.75308e-04 /) - kao(:, 2,10, 4) = (/ & - & 0.51642e-07,0.35814e-06,0.45251e-06,0.40694e-06,0.31643e-06, & - & 0.25658e-06,0.34700e-06,0.58340e-06,0.75445e-04 /) - kao(:, 3,10, 4) = (/ & - & 0.55139e-07,0.36959e-06,0.46273e-06,0.41592e-06,0.32168e-06, & - & 0.26320e-06,0.34598e-06,0.57972e-06,0.75796e-04 /) - kao(:, 4,10, 4) = (/ & - & 0.58094e-07,0.37731e-06,0.47160e-06,0.41969e-06,0.32536e-06, & - & 0.27186e-06,0.34692e-06,0.57173e-06,0.76680e-04 /) - kao(:, 5,10, 4) = (/ & - & 0.62665e-07,0.38529e-06,0.47122e-06,0.42322e-06,0.32990e-06, & - & 0.28125e-06,0.34920e-06,0.56204e-06,0.77515e-04 /) - kao(:, 1,11, 4) = (/ & - & 0.71997e-07,0.39039e-06,0.48930e-06,0.52037e-06,0.44835e-06, & - & 0.32920e-06,0.25424e-06,0.45719e-06,0.97599e-04 /) - kao(:, 2,11, 4) = (/ & - & 0.84174e-07,0.39220e-06,0.49753e-06,0.53466e-06,0.46035e-06, & - & 0.34028e-06,0.25580e-06,0.44804e-06,0.98017e-04 /) - kao(:, 3,11, 4) = (/ & - & 0.88241e-07,0.39809e-06,0.50514e-06,0.54464e-06,0.47069e-06, & - & 0.34919e-06,0.25830e-06,0.44783e-06,0.97609e-04 /) - kao(:, 4,11, 4) = (/ & - & 0.93462e-07,0.40271e-06,0.51216e-06,0.55531e-06,0.48178e-06, & - & 0.35530e-06,0.26505e-06,0.43524e-06,0.97099e-04 /) - kao(:, 5,11, 4) = (/ & - & 0.96966e-07,0.40660e-06,0.51682e-06,0.56367e-06,0.48662e-06, & - & 0.35706e-06,0.26903e-06,0.42986e-06,0.97653e-04 /) - kao(:, 1,12, 4) = (/ & - & 0.99102e-07,0.42179e-06,0.46920e-06,0.54974e-06,0.50699e-06, & - & 0.41543e-06,0.26692e-06,0.34287e-06,0.10692e-03 /) - kao(:, 2,12, 4) = (/ & - & 0.10220e-06,0.42343e-06,0.48263e-06,0.56179e-06,0.52088e-06, & - & 0.42826e-06,0.27416e-06,0.32165e-06,0.10849e-03 /) - kao(:, 3,12, 4) = (/ & - & 0.10736e-06,0.42994e-06,0.49237e-06,0.56848e-06,0.53837e-06, & - & 0.43862e-06,0.28070e-06,0.31402e-06,0.10890e-03 /) - kao(:, 4,12, 4) = (/ & - & 0.10535e-06,0.42853e-06,0.49830e-06,0.57259e-06,0.55337e-06, & - & 0.45117e-06,0.28964e-06,0.30229e-06,0.11005e-03 /) - kao(:, 5,12, 4) = (/ & - & 0.10635e-06,0.42826e-06,0.50038e-06,0.57688e-06,0.56182e-06, & - & 0.45862e-06,0.29473e-06,0.29904e-06,0.11056e-03 /) - kao(:, 1,13, 4) = (/ & - & 0.11521e-06,0.43118e-06,0.49222e-06,0.52624e-06,0.55771e-06, & - & 0.47186e-06,0.32691e-06,0.24833e-06,0.10886e-03 /) - kao(:, 2,13, 4) = (/ & - & 0.11730e-06,0.43904e-06,0.49350e-06,0.54164e-06,0.56845e-06, & - & 0.49098e-06,0.34261e-06,0.23938e-06,0.11077e-03 /) - kao(:, 3,13, 4) = (/ & - & 0.11952e-06,0.44327e-06,0.50284e-06,0.55816e-06,0.58198e-06, & - & 0.50372e-06,0.35861e-06,0.22850e-06,0.11296e-03 /) - kao(:, 4,13, 4) = (/ & - & 0.11965e-06,0.44664e-06,0.51058e-06,0.56661e-06,0.59093e-06, & - & 0.51146e-06,0.36596e-06,0.22349e-06,0.11560e-03 /) - kao(:, 5,13, 4) = (/ & - & 0.12171e-06,0.45566e-06,0.52364e-06,0.57439e-06,0.59010e-06, & - & 0.52011e-06,0.37200e-06,0.22417e-06,0.11598e-03 /) - kao(:, 1, 1, 5) = (/ & - & 0.64393e-08,0.14477e-05,0.26383e-05,0.37578e-05,0.48497e-05, & - & 0.58771e-05,0.69748e-05,0.83337e-05,0.52972e-05 /) - kao(:, 2, 1, 5) = (/ & - & 0.74788e-08,0.14813e-05,0.26820e-05,0.38123e-05,0.49043e-05, & - & 0.59719e-05,0.70794e-05,0.84777e-05,0.53686e-05 /) - kao(:, 3, 1, 5) = (/ & - & 0.70698e-08,0.17381e-05,0.31521e-05,0.44815e-05,0.57370e-05, & - & 0.69696e-05,0.82426e-05,0.98195e-05,0.67445e-05 /) - kao(:, 4, 1, 5) = (/ & - & 0.75728e-08,0.15363e-05,0.27544e-05,0.38956e-05,0.49855e-05, & - & 0.60556e-05,0.72284e-05,0.86770e-05,0.54442e-05 /) - kao(:, 5, 1, 5) = (/ & - & 0.72646e-08,0.15573e-05,0.27840e-05,0.39266e-05,0.50091e-05, & - & 0.60781e-05,0.72327e-05,0.87344e-05,0.54537e-05 /) - kao(:, 1, 2, 5) = (/ & - & 0.91682e-08,0.12471e-05,0.22727e-05,0.32462e-05,0.42007e-05, & - & 0.51012e-05,0.60761e-05,0.73379e-05,0.44448e-05 /) - kao(:, 2, 2, 5) = (/ & - & 0.78841e-08,0.12745e-05,0.23098e-05,0.32938e-05,0.42384e-05, & - & 0.51817e-05,0.61658e-05,0.74615e-05,0.44925e-05 /) - kao(:, 3, 2, 5) = (/ & - & 0.88457e-08,0.15305e-05,0.27824e-05,0.39573e-05,0.50820e-05, & - & 0.61863e-05,0.73547e-05,0.88186e-05,0.58192e-05 /) - kao(:, 4, 2, 5) = (/ & - & 0.81699e-08,0.15379e-05,0.27884e-05,0.39554e-05,0.50640e-05, & - & 0.61598e-05,0.73260e-05,0.88047e-05,0.57596e-05 /) - kao(:, 5, 2, 5) = (/ & - & 0.81267e-08,0.13345e-05,0.23941e-05,0.33760e-05,0.43121e-05, & - & 0.52406e-05,0.62663e-05,0.76657e-05,0.45393e-05 /) - kao(:, 1, 3, 5) = (/ & - & 0.91717e-08,0.10541e-05,0.19313e-05,0.27682e-05,0.35915e-05, & - & 0.43666e-05,0.52222e-05,0.63759e-05,0.36110e-05 /) - kao(:, 2, 3, 5) = (/ & - & 0.10331e-07,0.10789e-05,0.19645e-05,0.28075e-05,0.36240e-05, & - & 0.44392e-05,0.52990e-05,0.64883e-05,0.36530e-05 /) - kao(:, 3, 3, 5) = (/ & - & 0.12324e-07,0.10988e-05,0.19944e-05,0.28363e-05,0.36532e-05, & - & 0.44650e-05,0.53622e-05,0.65761e-05,0.36791e-05 /) - kao(:, 4, 3, 5) = (/ & - & 0.11596e-07,0.13389e-05,0.24365e-05,0.34597e-05,0.44354e-05, & - & 0.54167e-05,0.64681e-05,0.78697e-05,0.48568e-05 /) - kao(:, 5, 3, 5) = (/ & - & 0.11476e-07,0.11282e-05,0.20370e-05,0.28768e-05,0.36785e-05, & - & 0.44764e-05,0.53828e-05,0.66660e-05,0.36841e-05 /) - kao(:, 1, 4, 5) = (/ & - & 0.12942e-07,0.87057e-06,0.16185e-05,0.23328e-05,0.30327e-05, & - & 0.36939e-05,0.44351e-05,0.54720e-05,0.21271e-05 /) - kao(:, 2, 4, 5) = (/ & - & 0.12911e-07,0.89351e-06,0.16491e-05,0.23657e-05,0.30660e-05, & - & 0.37589e-05,0.45049e-05,0.55808e-05,0.21315e-05 /) - kao(:, 3, 4, 5) = (/ & - & 0.11919e-07,0.91285e-06,0.16762e-05,0.23907e-05,0.30911e-05, & - & 0.37889e-05,0.45584e-05,0.56554e-05,0.21302e-05 /) - kao(:, 4, 4, 5) = (/ & - & 0.12644e-07,0.92680e-06,0.16966e-05,0.24115e-05,0.31023e-05, & - & 0.37973e-05,0.46002e-05,0.57029e-05,0.21090e-05 /) - kao(:, 5, 4, 5) = (/ & - & 0.14252e-07,0.11501e-05,0.21042e-05,0.29827e-05,0.38200e-05, & - & 0.46680e-05,0.55977e-05,0.69211e-05,0.32123e-05 /) - kao(:, 1, 5, 5) = (/ & - & 0.14457e-07,0.68848e-06,0.13403e-05,0.19448e-05,0.25364e-05, & - & 0.30956e-05,0.37236e-05,0.46561e-05,0.23476e-05 /) - kao(:, 2, 5, 5) = (/ & - & 0.13664e-07,0.70724e-06,0.13666e-05,0.19744e-05,0.25701e-05, & - & 0.31515e-05,0.37903e-05,0.47386e-05,0.23292e-05 /) - kao(:, 3, 5, 5) = (/ & - & 0.16363e-07,0.72382e-06,0.13894e-05,0.19966e-05,0.25908e-05, & - & 0.31942e-05,0.38380e-05,0.48063e-05,0.23210e-05 /) - kao(:, 4, 5, 5) = (/ & - & 0.18854e-07,0.73645e-06,0.14075e-05,0.20143e-05,0.25995e-05, & - & 0.31924e-05,0.38751e-05,0.48509e-05,0.23084e-05 /) - kao(:, 5, 5, 5) = (/ & - & 0.19502e-07,0.95711e-06,0.17948e-05,0.25536e-05,0.32756e-05, & - & 0.40127e-05,0.48356e-05,0.60502e-05,0.26522e-05 /) - kao(:, 1, 6, 5) = (/ & - & 0.20265e-07,0.45716e-06,0.10840e-05,0.16034e-05,0.20999e-05, & - & 0.25681e-05,0.30977e-05,0.39107e-05,0.52450e-05 /) - kao(:, 2, 6, 5) = (/ & - & 0.21598e-07,0.47132e-06,0.11079e-05,0.16263e-05,0.21396e-05, & - & 0.26164e-05,0.31577e-05,0.39701e-05,0.52182e-05 /) - kao(:, 3, 6, 5) = (/ & - & 0.24575e-07,0.48601e-06,0.11257e-05,0.16486e-05,0.21513e-05, & - & 0.26585e-05,0.32022e-05,0.40354e-05,0.51968e-05 /) - kao(:, 4, 6, 5) = (/ & - & 0.24397e-07,0.49804e-06,0.11416e-05,0.16645e-05,0.21605e-05, & - & 0.26639e-05,0.32353e-05,0.40822e-05,0.51575e-05 /) - kao(:, 5, 6, 5) = (/ & - & 0.24456e-07,0.50499e-06,0.11522e-05,0.16738e-05,0.21632e-05, & - & 0.26629e-05,0.32463e-05,0.41051e-05,0.51085e-05 /) - kao(:, 1, 7, 5) = (/ & - & 0.28039e-07,0.29800e-06,0.81783e-06,0.13008e-05,0.17226e-05, & - & 0.21163e-05,0.25578e-05,0.32519e-05,0.82307e-05 /) - kao(:, 2, 7, 5) = (/ & - & 0.29388e-07,0.30492e-06,0.83771e-06,0.13192e-05,0.17591e-05, & - & 0.21563e-05,0.26128e-05,0.33130e-05,0.81908e-05 /) - kao(:, 3, 7, 5) = (/ & - & 0.29556e-07,0.30866e-06,0.85444e-06,0.13376e-05,0.17722e-05, & - & 0.21943e-05,0.26541e-05,0.33584e-05,0.81819e-05 /) - kao(:, 4, 7, 5) = (/ & - & 0.26709e-07,0.30951e-06,0.86739e-06,0.13505e-05,0.17805e-05, & - & 0.22093e-05,0.26812e-05,0.34009e-05,0.81017e-05 /) - kao(:, 5, 7, 5) = (/ & - & 0.27877e-07,0.31158e-06,0.87645e-06,0.13597e-05,0.17817e-05, & - & 0.22083e-05,0.26996e-05,0.34240e-05,0.80774e-05 /) - kao(:, 1, 8, 5) = (/ & - & 0.34498e-07,0.30504e-06,0.50025e-06,0.99104e-06,0.13907e-05, & - & 0.17284e-05,0.20950e-05,0.26875e-05,0.12492e-04 /) - kao(:, 2, 8, 5) = (/ & - & 0.34468e-07,0.31253e-06,0.51376e-06,0.10029e-05,0.14233e-05, & - & 0.17665e-05,0.21486e-05,0.27439e-05,0.12811e-04 /) - kao(:, 3, 8, 5) = (/ & - & 0.33481e-07,0.31885e-06,0.52532e-06,0.10176e-05,0.14361e-05, & - & 0.18000e-05,0.21864e-05,0.27713e-05,0.12979e-04 /) - kao(:, 4, 8, 5) = (/ & - & 0.35023e-07,0.32212e-06,0.53171e-06,0.10292e-05,0.14414e-05, & - & 0.18222e-05,0.22113e-05,0.28111e-05,0.13061e-04 /) - kao(:, 5, 8, 5) = (/ & - & 0.38480e-07,0.32386e-06,0.53818e-06,0.10355e-05,0.14400e-05, & - & 0.18162e-05,0.22298e-05,0.28367e-05,0.13100e-04 /) - kao(:, 1, 9, 5) = (/ & - & 0.41152e-07,0.31870e-06,0.36402e-06,0.61613e-06,0.10619e-05, & - & 0.13940e-05,0.17098e-05,0.22173e-05,0.27198e-04 /) - kao(:, 2, 9, 5) = (/ & - & 0.47020e-07,0.31765e-06,0.37312e-06,0.61961e-06,0.10763e-05, & - & 0.14273e-05,0.17555e-05,0.22573e-05,0.28218e-04 /) - kao(:, 3, 9, 5) = (/ & - & 0.48171e-07,0.31526e-06,0.38468e-06,0.62540e-06,0.10803e-05, & - & 0.14543e-05,0.17919e-05,0.22822e-05,0.28600e-04 /) - kao(:, 4, 9, 5) = (/ & - & 0.52826e-07,0.32481e-06,0.38733e-06,0.62721e-06,0.10854e-05, & - & 0.14750e-05,0.18124e-05,0.23140e-05,0.29051e-04 /) - kao(:, 5, 9, 5) = (/ & - & 0.56456e-07,0.32727e-06,0.38424e-06,0.63178e-06,0.10853e-05, & - & 0.14692e-05,0.18309e-05,0.23369e-05,0.29958e-04 /) - kao(:, 1,10, 5) = (/ & - & 0.62033e-07,0.45418e-06,0.43247e-06,0.44775e-06,0.62834e-06, & - & 0.10534e-05,0.13865e-05,0.18301e-05,0.47779e-04 /) - kao(:, 2,10, 5) = (/ & - & 0.66259e-07,0.45321e-06,0.43983e-06,0.45223e-06,0.63440e-06, & - & 0.10746e-05,0.14253e-05,0.18534e-05,0.48468e-04 /) - kao(:, 3,10, 5) = (/ & - & 0.78966e-07,0.45246e-06,0.44780e-06,0.45868e-06,0.63026e-06, & - & 0.10842e-05,0.14519e-05,0.18794e-05,0.49251e-04 /) - kao(:, 4,10, 5) = (/ & - & 0.87881e-07,0.44642e-06,0.45426e-06,0.46583e-06,0.63116e-06, & - & 0.10925e-05,0.14710e-05,0.18965e-05,0.49742e-04 /) - kao(:, 5,10, 5) = (/ & - & 0.92572e-07,0.44310e-06,0.45326e-06,0.47005e-06,0.63094e-06, & - & 0.10763e-05,0.14843e-05,0.19214e-05,0.50457e-04 /) - kao(:, 1,11, 5) = (/ & - & 0.10522e-06,0.58600e-06,0.57473e-06,0.52150e-06,0.51202e-06, & - & 0.62383e-06,0.10987e-05,0.15032e-05,0.50557e-04 /) - kao(:, 2,11, 5) = (/ & - & 0.98332e-07,0.58669e-06,0.57910e-06,0.52997e-06,0.52591e-06, & - & 0.62992e-06,0.11144e-05,0.15271e-05,0.52915e-04 /) - kao(:, 3,11, 5) = (/ & - & 0.10383e-06,0.58976e-06,0.58650e-06,0.53573e-06,0.53394e-06, & - & 0.63743e-06,0.11251e-05,0.15415e-05,0.55206e-04 /) - kao(:, 4,11, 5) = (/ & - & 0.10626e-06,0.58622e-06,0.58747e-06,0.53868e-06,0.53891e-06, & - & 0.62645e-06,0.11296e-05,0.15628e-05,0.58020e-04 /) - kao(:, 5,11, 5) = (/ & - & 0.10795e-06,0.57800e-06,0.58664e-06,0.53883e-06,0.54784e-06, & - & 0.62145e-06,0.11279e-05,0.15782e-05,0.60369e-04 /) - kao(:, 1,12, 5) = (/ & - & 0.11905e-06,0.60759e-06,0.68611e-06,0.59318e-06,0.53805e-06, & - & 0.44962e-06,0.74828e-06,0.12279e-05,0.57098e-04 /) - kao(:, 2,12, 5) = (/ & - & 0.12660e-06,0.61695e-06,0.68094e-06,0.60079e-06,0.55064e-06, & - & 0.44953e-06,0.74858e-06,0.12489e-05,0.55969e-04 /) - kao(:, 3,12, 5) = (/ & - & 0.12824e-06,0.61561e-06,0.67586e-06,0.61662e-06,0.55533e-06, & - & 0.46796e-06,0.74406e-06,0.12615e-05,0.57249e-04 /) - kao(:, 4,12, 5) = (/ & - & 0.12834e-06,0.62554e-06,0.67923e-06,0.62343e-06,0.55964e-06, & - & 0.48091e-06,0.73622e-06,0.12795e-05,0.58462e-04 /) - kao(:, 5,12, 5) = (/ & - & 0.13022e-06,0.63206e-06,0.68726e-06,0.62663e-06,0.56231e-06, & - & 0.48008e-06,0.72942e-06,0.12885e-05,0.57642e-04 /) - kao(:, 1,13, 5) = (/ & - & 0.15325e-06,0.60909e-06,0.76952e-06,0.71232e-06,0.57983e-06, & - & 0.50489e-06,0.48627e-06,0.99183e-06,0.58778e-04 /) - kao(:, 2,13, 5) = (/ & - & 0.15519e-06,0.62152e-06,0.78639e-06,0.71888e-06,0.59866e-06, & - & 0.50930e-06,0.48247e-06,0.10069e-05,0.57959e-04 /) - kao(:, 3,13, 5) = (/ & - & 0.17242e-06,0.64099e-06,0.78686e-06,0.71502e-06,0.60678e-06, & - & 0.51633e-06,0.47220e-06,0.10180e-05,0.56844e-04 /) - kao(:, 4,13, 5) = (/ & - & 0.18585e-06,0.65002e-06,0.78368e-06,0.71421e-06,0.61538e-06, & - & 0.52650e-06,0.46857e-06,0.10263e-05,0.55757e-04 /) - kao(:, 5,13, 5) = (/ & - & 0.19235e-06,0.64166e-06,0.76203e-06,0.70622e-06,0.61837e-06, & - & 0.53042e-06,0.45529e-06,0.10275e-05,0.55475e-04 /) - kao(:, 1, 1, 6) = (/ & - & 0.95617e-08,0.36774e-05,0.65849e-05,0.92221e-05,0.11700e-04, & - & 0.14161e-04,0.16732e-04,0.20350e-04,0.14554e-04 /) - kao(:, 2, 1, 6) = (/ & - & 0.93327e-08,0.37537e-05,0.66916e-05,0.93495e-05,0.11842e-04, & - & 0.14289e-04,0.16848e-04,0.20318e-04,0.14747e-04 /) - kao(:, 3, 1, 6) = (/ & - & 0.98298e-08,0.41944e-05,0.75022e-05,0.10503e-04,0.13381e-04, & - & 0.16104e-04,0.19004e-04,0.22601e-04,0.17337e-04 /) - kao(:, 4, 1, 6) = (/ & - & 0.92318e-08,0.38872e-05,0.68816e-05,0.95784e-05,0.12112e-04, & - & 0.14510e-04,0.17052e-04,0.20522e-04,0.14967e-04 /) - kao(:, 5, 1, 6) = (/ & - & 0.98053e-08,0.39438e-05,0.69574e-05,0.96665e-05,0.12218e-04, & - & 0.14607e-04,0.17135e-04,0.20557e-04,0.15005e-04 /) - kao(:, 1, 2, 6) = (/ & - & 0.99669e-08,0.32456e-05,0.58216e-05,0.81575e-05,0.10349e-04, & - & 0.12573e-04,0.14901e-04,0.18163e-04,0.12615e-04 /) - kao(:, 2, 2, 6) = (/ & - & 0.12231e-07,0.33138e-05,0.59221e-05,0.82752e-05,0.10501e-04, & - & 0.12666e-04,0.15004e-04,0.18147e-04,0.12797e-04 /) - kao(:, 3, 2, 6) = (/ & - & 0.10745e-07,0.37581e-05,0.67327e-05,0.94426e-05,0.12044e-04, & - & 0.14533e-04,0.17181e-04,0.20503e-04,0.15464e-04 /) - kao(:, 4, 2, 6) = (/ & - & 0.11723e-07,0.37897e-05,0.67581e-05,0.94584e-05,0.12035e-04, & - & 0.14508e-04,0.17115e-04,0.20450e-04,0.15378e-04 /) - kao(:, 5, 2, 6) = (/ & - & 0.10775e-07,0.34864e-05,0.61478e-05,0.85479e-05,0.10823e-04, & - & 0.12985e-04,0.15273e-04,0.18381e-04,0.12972e-04 /) - kao(:, 1, 3, 6) = (/ & - & 0.12159e-07,0.28311e-05,0.50923e-05,0.71433e-05,0.90735e-05, & - & 0.11042e-04,0.13160e-04,0.16141e-04,0.10790e-04 /) - kao(:, 2, 3, 6) = (/ & - & 0.11403e-07,0.28950e-05,0.51829e-05,0.72481e-05,0.92149e-05, & - & 0.11135e-04,0.13267e-04,0.16084e-04,0.10912e-04 /) - kao(:, 3, 3, 6) = (/ & - & 0.12436e-07,0.29531e-05,0.52642e-05,0.73461e-05,0.93337e-05, & - & 0.11250e-04,0.13358e-04,0.16208e-04,0.10995e-04 /) - kao(:, 4, 3, 6) = (/ & - & 0.14856e-07,0.33723e-05,0.60342e-05,0.84579e-05,0.10776e-04, & - & 0.13025e-04,0.15434e-04,0.18466e-04,0.13550e-04 /) - kao(:, 5, 3, 6) = (/ & - & 0.16537e-07,0.30506e-05,0.53821e-05,0.74897e-05,0.94861e-05, & - & 0.11421e-04,0.13503e-04,0.16308e-04,0.11045e-04 /) - kao(:, 1, 4, 6) = (/ & - & 0.13114e-07,0.24467e-05,0.44159e-05,0.61941e-05,0.78845e-05, & - & 0.96031e-05,0.11513e-04,0.14234e-04,0.89642e-05 /) - kao(:, 2, 4, 6) = (/ & - & 0.15028e-07,0.25040e-05,0.44954e-05,0.62931e-05,0.80050e-05, & - & 0.97056e-05,0.11618e-04,0.14175e-04,0.90802e-05 /) - kao(:, 3, 4, 6) = (/ & - & 0.18213e-07,0.25556e-05,0.45678e-05,0.63789e-05,0.81071e-05, & - & 0.98077e-05,0.11694e-04,0.14301e-04,0.91538e-05 /) - kao(:, 4, 4, 6) = (/ & - & 0.19097e-07,0.26037e-05,0.46288e-05,0.64476e-05,0.81897e-05, & - & 0.98941e-05,0.11740e-04,0.14344e-04,0.91968e-05 /) - kao(:, 5, 4, 6) = (/ & - & 0.18014e-07,0.29993e-05,0.53622e-05,0.75209e-05,0.95686e-05, & - & 0.11571e-04,0.13783e-04,0.16522e-04,0.11644e-04 /) - kao(:, 1, 5, 6) = (/ & - & 0.21237e-07,0.20921e-05,0.37961e-05,0.53264e-05,0.67905e-05, & - & 0.82846e-05,0.99803e-05,0.12512e-04,0.44075e-05 /) - kao(:, 2, 5, 6) = (/ & - & 0.23885e-07,0.21444e-05,0.38676e-05,0.54146e-05,0.68931e-05, & - & 0.83832e-05,0.10077e-04,0.12417e-04,0.44982e-05 /) - kao(:, 3, 5, 6) = (/ & - & 0.20851e-07,0.21906e-05,0.39301e-05,0.54900e-05,0.69833e-05, & - & 0.84513e-05,0.10145e-04,0.12513e-04,0.45299e-05 /) - kao(:, 4, 5, 6) = (/ & - & 0.22487e-07,0.22322e-05,0.39843e-05,0.55506e-05,0.70502e-05, & - & 0.85357e-05,0.10189e-04,0.12546e-04,0.45220e-05 /) - kao(:, 5, 5, 6) = (/ & - & 0.23015e-07,0.26442e-05,0.47363e-05,0.66520e-05,0.84676e-05, & - & 0.10272e-04,0.12268e-04,0.14801e-04,0.72945e-05 /) - kao(:, 1, 6, 6) = (/ & - & 0.22693e-07,0.17592e-05,0.32289e-05,0.45327e-05,0.57876e-05, & - & 0.70822e-05,0.85643e-05,0.10966e-04,0.53375e-05 /) - kao(:, 2, 6, 6) = (/ & - & 0.22407e-07,0.18081e-05,0.32912e-05,0.46136e-05,0.58716e-05, & - & 0.71710e-05,0.86530e-05,0.10805e-04,0.53845e-05 /) - kao(:, 3, 6, 6) = (/ & - & 0.22705e-07,0.18504e-05,0.33475e-05,0.46786e-05,0.59585e-05, & - & 0.72252e-05,0.87123e-05,0.10876e-04,0.53808e-05 /) - kao(:, 4, 6, 6) = (/ & - & 0.23941e-07,0.18862e-05,0.33938e-05,0.47325e-05,0.60159e-05, & - & 0.72910e-05,0.87573e-05,0.10893e-04,0.53357e-05 /) - kao(:, 5, 6, 6) = (/ & - & 0.27004e-07,0.19136e-05,0.34294e-05,0.47766e-05,0.60573e-05, & - & 0.73309e-05,0.87892e-05,0.10892e-04,0.52484e-05 /) - kao(:, 1, 7, 6) = (/ & - & 0.27131e-07,0.14236e-05,0.27128e-05,0.38203e-05,0.48870e-05, & - & 0.59983e-05,0.72827e-05,0.94729e-05,0.86942e-05 /) - kao(:, 2, 7, 6) = (/ & - & 0.26214e-07,0.14673e-05,0.27677e-05,0.38940e-05,0.49627e-05, & - & 0.60727e-05,0.73587e-05,0.93332e-05,0.87651e-05 /) - kao(:, 3, 7, 6) = (/ & - & 0.29249e-07,0.15085e-05,0.28175e-05,0.39503e-05,0.50362e-05, & - & 0.61230e-05,0.74095e-05,0.93608e-05,0.87497e-05 /) - kao(:, 4, 7, 6) = (/ & - & 0.35846e-07,0.15423e-05,0.28570e-05,0.39988e-05,0.50875e-05, & - & 0.61709e-05,0.74491e-05,0.93691e-05,0.88300e-05 /) - kao(:, 5, 7, 6) = (/ & - & 0.36255e-07,0.15665e-05,0.28868e-05,0.40378e-05,0.51248e-05, & - & 0.62083e-05,0.74689e-05,0.93597e-05,0.88065e-05 /) - kao(:, 1, 8, 6) = (/ & - & 0.37619e-07,0.92017e-06,0.22295e-05,0.31821e-05,0.40883e-05, & - & 0.50331e-05,0.61447e-05,0.80461e-05,0.15512e-04 /) - kao(:, 2, 8, 6) = (/ & - & 0.43015e-07,0.95048e-06,0.22782e-05,0.32493e-05,0.41585e-05, & - & 0.50968e-05,0.61995e-05,0.80232e-05,0.15472e-04 /) - kao(:, 3, 8, 6) = (/ & - & 0.47635e-07,0.97934e-06,0.23207e-05,0.33002e-05,0.42181e-05, & - & 0.51430e-05,0.62468e-05,0.79821e-05,0.15652e-04 /) - kao(:, 4, 8, 6) = (/ & - & 0.48140e-07,0.10026e-05,0.23582e-05,0.33416e-05,0.42650e-05, & - & 0.51734e-05,0.62779e-05,0.79833e-05,0.15762e-04 /) - kao(:, 5, 8, 6) = (/ & - & 0.45231e-07,0.10212e-05,0.23819e-05,0.33754e-05,0.42991e-05, & - & 0.52146e-05,0.62945e-05,0.79701e-05,0.15840e-04 /) - kao(:, 1, 9, 6) = (/ & - & 0.48601e-07,0.49350e-06,0.16585e-05,0.26009e-05,0.33796e-05, & - & 0.41888e-05,0.51434e-05,0.67867e-05,0.26875e-04 /) - kao(:, 2, 9, 6) = (/ & - & 0.49825e-07,0.51680e-06,0.16935e-05,0.26607e-05,0.34457e-05, & - & 0.42434e-05,0.51839e-05,0.68587e-05,0.27475e-04 /) - kao(:, 3, 9, 6) = (/ & - & 0.52843e-07,0.53573e-06,0.17199e-05,0.27038e-05,0.35027e-05, & - & 0.42858e-05,0.52233e-05,0.67410e-05,0.28097e-04 /) - kao(:, 4, 9, 6) = (/ & - & 0.49841e-07,0.54248e-06,0.17493e-05,0.27418e-05,0.35427e-05, & - & 0.43127e-05,0.52517e-05,0.67418e-05,0.28632e-04 /) - kao(:, 5, 9, 6) = (/ & - & 0.50649e-07,0.54940e-06,0.17700e-05,0.27695e-05,0.35712e-05, & - & 0.43482e-05,0.52645e-05,0.67282e-05,0.28662e-04 /) - kao(:, 1,10, 6) = (/ & - & 0.82685e-07,0.54022e-06,0.87761e-06,0.18752e-05,0.27293e-05, & - & 0.34506e-05,0.42821e-05,0.56501e-05,0.44067e-04 /) - kao(:, 2,10, 6) = (/ & - & 0.87011e-07,0.54017e-06,0.89732e-06,0.19208e-05,0.27945e-05, & - & 0.35005e-05,0.43124e-05,0.57881e-05,0.45858e-04 /) - kao(:, 3,10, 6) = (/ & - & 0.79909e-07,0.55355e-06,0.90995e-06,0.19451e-05,0.28460e-05, & - & 0.35425e-05,0.43438e-05,0.56593e-05,0.45805e-04 /) - kao(:, 4,10, 6) = (/ & - & 0.75533e-07,0.55705e-06,0.92147e-06,0.19661e-05,0.28785e-05, & - & 0.35628e-05,0.43635e-05,0.56526e-05,0.46295e-04 /) - kao(:, 5,10, 6) = (/ & - & 0.76631e-07,0.55159e-06,0.93362e-06,0.19832e-05,0.29003e-05, & - & 0.35965e-05,0.43731e-05,0.56385e-05,0.46720e-04 /) - kao(:, 1,11, 6) = (/ & - & 0.11164e-06,0.57710e-06,0.71279e-06,0.10003e-05,0.19253e-05, & - & 0.28027e-05,0.35523e-05,0.47607e-05,0.51144e-04 /) - kao(:, 2,11, 6) = (/ & - & 0.11484e-06,0.58649e-06,0.71918e-06,0.10167e-05,0.19538e-05, & - & 0.28431e-05,0.35713e-05,0.48333e-05,0.49887e-04 /) - kao(:, 3,11, 6) = (/ & - & 0.11442e-06,0.58483e-06,0.70503e-06,0.10320e-05,0.19684e-05, & - & 0.28674e-05,0.35911e-05,0.47191e-05,0.50222e-04 /) - kao(:, 4,11, 6) = (/ & - & 0.11737e-06,0.58895e-06,0.70242e-06,0.10442e-05,0.19738e-05, & - & 0.28962e-05,0.36035e-05,0.47045e-05,0.48754e-04 /) - kao(:, 5,11, 6) = (/ & - & 0.12314e-06,0.59299e-06,0.70874e-06,0.10470e-05,0.19736e-05, & - & 0.29100e-05,0.36075e-05,0.46813e-05,0.45986e-04 /) - kao(:, 1,12, 6) = (/ & - & 0.14446e-06,0.57459e-06,0.72800e-06,0.69912e-06,0.11693e-05, & - & 0.21457e-05,0.29151e-05,0.39683e-05,0.42970e-04 /) - kao(:, 2,12, 6) = (/ & - & 0.14738e-06,0.58568e-06,0.75374e-06,0.69814e-06,0.11797e-05, & - & 0.21759e-05,0.29287e-05,0.39942e-05,0.41434e-04 /) - kao(:, 3,12, 6) = (/ & - & 0.15006e-06,0.60144e-06,0.75420e-06,0.70559e-06,0.11849e-05, & - & 0.21718e-05,0.29383e-05,0.39185e-05,0.42909e-04 /) - kao(:, 4,12, 6) = (/ & - & 0.15745e-06,0.60776e-06,0.75984e-06,0.71270e-06,0.11804e-05, & - & 0.21578e-05,0.29477e-05,0.38939e-05,0.41761e-04 /) - kao(:, 5,12, 6) = (/ & - & 0.16583e-06,0.62207e-06,0.74591e-06,0.69746e-06,0.11751e-05, & - & 0.21552e-05,0.29514e-05,0.38695e-05,0.45252e-04 /) - kao(:, 1,13, 6) = (/ & - & 0.18492e-06,0.65841e-06,0.74904e-06,0.82698e-06,0.69790e-06, & - & 0.13356e-05,0.23333e-05,0.33010e-05,0.43502e-04 /) - kao(:, 2,13, 6) = (/ & - & 0.18447e-06,0.66115e-06,0.74200e-06,0.80748e-06,0.68676e-06, & - & 0.13419e-05,0.23369e-05,0.32873e-05,0.44908e-04 /) - kao(:, 3,13, 6) = (/ & - & 0.20107e-06,0.65387e-06,0.73155e-06,0.79291e-06,0.67848e-06, & - & 0.13368e-05,0.23434e-05,0.32337e-05,0.47417e-04 /) - kao(:, 4,13, 6) = (/ & - & 0.20493e-06,0.66191e-06,0.72707e-06,0.79839e-06,0.67208e-06, & - & 0.13273e-05,0.23466e-05,0.32075e-05,0.48703e-04 /) - kao(:, 5,13, 6) = (/ & - & 0.20003e-06,0.66753e-06,0.73390e-06,0.79794e-06,0.66936e-06, & - & 0.13150e-05,0.23558e-05,0.31828e-05,0.50012e-04 /) - kao(:, 1, 1, 7) = (/ & - & 0.45955e-07,0.96988e-05,0.16766e-04,0.23073e-04,0.28829e-04, & - & 0.34350e-04,0.39744e-04,0.45071e-04,0.36783e-04 /) - kao(:, 2, 1, 7) = (/ & - & 0.57268e-07,0.98413e-05,0.16970e-04,0.23311e-04,0.29149e-04, & - & 0.34726e-04,0.40229e-04,0.45682e-04,0.37190e-04 /) - kao(:, 3, 1, 7) = (/ & - & 0.70060e-07,0.10517e-04,0.18168e-04,0.24965e-04,0.31264e-04, & - & 0.37439e-04,0.43299e-04,0.49335e-04,0.41254e-04 /) - kao(:, 4, 1, 7) = (/ & - & 0.84370e-07,0.10120e-04,0.17302e-04,0.23633e-04,0.29544e-04, & - & 0.35368e-04,0.40885e-04,0.46535e-04,0.37819e-04 /) - kao(:, 5, 1, 7) = (/ & - & 0.97346e-07,0.10254e-04,0.17458e-04,0.23773e-04,0.29672e-04, & - & 0.35542e-04,0.41140e-04,0.46864e-04,0.38054e-04 /) - kao(:, 1, 2, 7) = (/ & - & 0.27937e-07,0.87332e-05,0.15102e-04,0.20785e-04,0.26002e-04, & - & 0.30993e-04,0.35918e-04,0.41124e-04,0.32692e-04 /) - kao(:, 2, 2, 7) = (/ & - & 0.34502e-07,0.88655e-05,0.15279e-04,0.20992e-04,0.26281e-04, & - & 0.31393e-04,0.36363e-04,0.41768e-04,0.33047e-04 /) - kao(:, 3, 2, 7) = (/ & - & 0.45243e-07,0.95567e-05,0.16535e-04,0.22740e-04,0.28503e-04, & - & 0.34161e-04,0.39521e-04,0.45509e-04,0.37184e-04 /) - kao(:, 4, 2, 7) = (/ & - & 0.56029e-07,0.96404e-05,0.16599e-04,0.22759e-04,0.28526e-04, & - & 0.34207e-04,0.39586e-04,0.45601e-04,0.37152e-04 /) - kao(:, 5, 2, 7) = (/ & - & 0.67453e-07,0.92372e-05,0.15744e-04,0.21435e-04,0.26769e-04, & - & 0.32085e-04,0.37228e-04,0.42908e-04,0.33841e-04 /) - kao(:, 1, 3, 7) = (/ & - & 0.21909e-07,0.77821e-05,0.13457e-04,0.18525e-04,0.23194e-04, & - & 0.27662e-04,0.32086e-04,0.37089e-04,0.28700e-04 /) - kao(:, 2, 3, 7) = (/ & - & 0.25816e-07,0.78998e-05,0.13627e-04,0.18723e-04,0.23459e-04, & - & 0.28049e-04,0.32494e-04,0.37775e-04,0.29060e-04 /) - kao(:, 3, 3, 7) = (/ & - & 0.28009e-07,0.80177e-05,0.13778e-04,0.18883e-04,0.23652e-04, & - & 0.28348e-04,0.32831e-04,0.38183e-04,0.29363e-04 /) - kao(:, 4, 3, 7) = (/ & - & 0.32250e-07,0.87000e-05,0.14997e-04,0.20591e-04,0.25858e-04, & - & 0.30984e-04,0.35855e-04,0.41716e-04,0.33352e-04 /) - kao(:, 5, 3, 7) = (/ & - & 0.38565e-07,0.82442e-05,0.14048e-04,0.19147e-04,0.23963e-04, & - & 0.28712e-04,0.33322e-04,0.38841e-04,0.29827e-04 /) - kao(:, 1, 4, 7) = (/ & - & 0.27845e-07,0.68782e-05,0.11887e-04,0.16370e-04,0.20522e-04, & - & 0.24507e-04,0.28445e-04,0.33146e-04,0.25091e-04 /) - kao(:, 2, 4, 7) = (/ & - & 0.30162e-07,0.69860e-05,0.12053e-04,0.16569e-04,0.20786e-04, & - & 0.24863e-04,0.28833e-04,0.33823e-04,0.25439e-04 /) - kao(:, 3, 4, 7) = (/ & - & 0.31547e-07,0.70934e-05,0.12196e-04,0.16734e-04,0.20984e-04, & - & 0.25140e-04,0.29167e-04,0.34188e-04,0.25743e-04 /) - kao(:, 4, 4, 7) = (/ & - & 0.30733e-07,0.72009e-05,0.12319e-04,0.16870e-04,0.21150e-04, & - & 0.25350e-04,0.29432e-04,0.34551e-04,0.26011e-04 /) - kao(:, 5, 4, 7) = (/ & - & 0.33104e-07,0.78742e-05,0.13511e-04,0.18536e-04,0.23314e-04, & - & 0.27934e-04,0.32284e-04,0.37983e-04,0.29911e-04 /) - kao(:, 1, 5, 7) = (/ & - & 0.31453e-07,0.60344e-05,0.10431e-04,0.14360e-04,0.18025e-04, & - & 0.21556e-04,0.25057e-04,0.29352e-04,0.21244e-04 /) - kao(:, 2, 5, 7) = (/ & - & 0.32645e-07,0.61373e-05,0.10589e-04,0.14561e-04,0.18288e-04, & - & 0.21896e-04,0.25427e-04,0.30041e-04,0.21582e-04 /) - kao(:, 3, 5, 7) = (/ & - & 0.36285e-07,0.62371e-05,0.10724e-04,0.14730e-04,0.18494e-04, & - & 0.22175e-04,0.25749e-04,0.30401e-04,0.21875e-04 /) - kao(:, 4, 5, 7) = (/ & - & 0.35840e-07,0.63361e-05,0.10841e-04,0.14872e-04,0.18672e-04, & - & 0.22386e-04,0.26001e-04,0.30772e-04,0.22136e-04 /) - kao(:, 5, 5, 7) = (/ & - & 0.34391e-07,0.70384e-05,0.12100e-04,0.16639e-04,0.20967e-04, & - & 0.25106e-04,0.29033e-04,0.34382e-04,0.26458e-04 /) - kao(:, 1, 6, 7) = (/ & - & 0.38317e-07,0.52554e-05,0.90847e-05,0.12506e-04,0.15706e-04, & - & 0.18802e-04,0.21926e-04,0.25721e-04,0.82786e-05 /) - kao(:, 2, 6, 7) = (/ & - & 0.42993e-07,0.53521e-05,0.92425e-05,0.12708e-04,0.15965e-04, & - & 0.19131e-04,0.22269e-04,0.26449e-04,0.85145e-05 /) - kao(:, 3, 6, 7) = (/ & - & 0.43612e-07,0.54474e-05,0.93707e-05,0.12875e-04,0.16176e-04, & - & 0.19407e-04,0.22575e-04,0.26830e-04,0.87594e-05 /) - kao(:, 4, 6, 7) = (/ & - & 0.42757e-07,0.55405e-05,0.94823e-05,0.13019e-04,0.16363e-04, & - & 0.19625e-04,0.22815e-04,0.27200e-04,0.90170e-05 /) - kao(:, 5, 6, 7) = (/ & - & 0.43664e-07,0.56274e-05,0.95923e-05,0.13140e-04,0.16520e-04, & - & 0.19797e-04,0.22995e-04,0.27528e-04,0.91836e-05 /) - kao(:, 1, 7, 7) = (/ & - & 0.39995e-07,0.45414e-05,0.78502e-05,0.10801e-04,0.13562e-04, & - & 0.16248e-04,0.19009e-04,0.22439e-04,0.93804e-05 /) - kao(:, 2, 7, 7) = (/ & - & 0.43614e-07,0.46331e-05,0.80059e-05,0.11000e-04,0.13813e-04, & - & 0.16577e-04,0.19346e-04,0.23103e-04,0.95334e-05 /) - kao(:, 3, 7, 7) = (/ & - & 0.45687e-07,0.47201e-05,0.81316e-05,0.11167e-04,0.14031e-04, & - & 0.16844e-04,0.19646e-04,0.23513e-04,0.96503e-05 /) - kao(:, 4, 7, 7) = (/ & - & 0.48386e-07,0.48081e-05,0.82413e-05,0.11310e-04,0.14223e-04, & - & 0.17063e-04,0.19885e-04,0.23881e-04,0.95360e-05 /) - kao(:, 5, 7, 7) = (/ & - & 0.54287e-07,0.48899e-05,0.83473e-05,0.11434e-04,0.14383e-04, & - & 0.17240e-04,0.20064e-04,0.24201e-04,0.94267e-05 /) - kao(:, 1, 8, 7) = (/ & - & 0.45720e-07,0.38685e-05,0.67269e-05,0.92537e-05,0.11613e-04, & - & 0.13930e-04,0.16333e-04,0.19500e-04,0.15537e-04 /) - kao(:, 2, 8, 7) = (/ & - & 0.46817e-07,0.39568e-05,0.68775e-05,0.94493e-05,0.11857e-04, & - & 0.14250e-04,0.16679e-04,0.19983e-04,0.15822e-04 /) - kao(:, 3, 8, 7) = (/ & - & 0.48700e-07,0.40362e-05,0.70012e-05,0.96148e-05,0.12076e-04, & - & 0.14508e-04,0.16969e-04,0.20440e-04,0.15878e-04 /) - kao(:, 4, 8, 7) = (/ & - & 0.54460e-07,0.41199e-05,0.71098e-05,0.97580e-05,0.12268e-04, & - & 0.14725e-04,0.17206e-04,0.20805e-04,0.16014e-04 /) - kao(:, 5, 8, 7) = (/ & - & 0.59565e-07,0.42000e-05,0.72128e-05,0.98789e-05,0.12424e-04, & - & 0.14896e-04,0.17382e-04,0.21113e-04,0.15894e-04 /) - kao(:, 1, 9, 7) = (/ & - & 0.60502e-07,0.31758e-05,0.57011e-05,0.78602e-05,0.98646e-05, & - & 0.11842e-04,0.13914e-04,0.16812e-04,0.32738e-04 /) - kao(:, 2, 9, 7) = (/ & - & 0.61920e-07,0.32583e-05,0.58474e-05,0.80501e-05,0.10097e-04, & - & 0.12150e-04,0.14260e-04,0.17128e-04,0.32707e-04 /) - kao(:, 3, 9, 7) = (/ & - & 0.66102e-07,0.33410e-05,0.59686e-05,0.82148e-05,0.10310e-04, & - & 0.12398e-04,0.14542e-04,0.17650e-04,0.33629e-04 /) - kao(:, 4, 9, 7) = (/ & - & 0.86168e-07,0.34261e-05,0.60763e-05,0.83539e-05,0.10496e-04, & - & 0.12604e-04,0.14773e-04,0.17994e-04,0.33878e-04 /) - kao(:, 5, 9, 7) = (/ & - & 0.91586e-07,0.35057e-05,0.61764e-05,0.84703e-05,0.10646e-04, & - & 0.12765e-04,0.14939e-04,0.18282e-04,0.33645e-04 /) - kao(:, 1,10, 7) = (/ & - & 0.96997e-07,0.19211e-05,0.47098e-05,0.66155e-05,0.83225e-05, & - & 0.10005e-04,0.11773e-04,0.14404e-04,0.53631e-04 /) - kao(:, 2,10, 7) = (/ & - & 0.96064e-07,0.20141e-05,0.48491e-05,0.67941e-05,0.85382e-05, & - & 0.10290e-04,0.12102e-04,0.14626e-04,0.54289e-04 /) - kao(:, 3,10, 7) = (/ & - & 0.10431e-06,0.20834e-05,0.49690e-05,0.69520e-05,0.87398e-05, & - & 0.10520e-04,0.12369e-04,0.15124e-04,0.55603e-04 /) - kao(:, 4,10, 7) = (/ & - & 0.11432e-06,0.21653e-05,0.50755e-05,0.70852e-05,0.89148e-05, & - & 0.10714e-04,0.12591e-04,0.15457e-04,0.56630e-04 /) - kao(:, 5,10, 7) = (/ & - & 0.11074e-06,0.22480e-05,0.51732e-05,0.71951e-05,0.90530e-05, & - & 0.10860e-04,0.12745e-04,0.15721e-04,0.54963e-04 /) - kao(:, 1,11, 7) = (/ & - & 0.15854e-06,0.91297e-06,0.32555e-05,0.55113e-05,0.70464e-05, & - & 0.85121e-05,0.10027e-04,0.12303e-04,0.52607e-04 /) - kao(:, 2,11, 7) = (/ & - & 0.16751e-06,0.96634e-06,0.33790e-05,0.56722e-05,0.72351e-05, & - & 0.87519e-05,0.10311e-04,0.12547e-04,0.52883e-04 /) - kao(:, 3,11, 7) = (/ & - & 0.16741e-06,0.10318e-05,0.35064e-05,0.58058e-05,0.74099e-05, & - & 0.89413e-05,0.10546e-04,0.12998e-04,0.52407e-04 /) - kao(:, 4,11, 7) = (/ & - & 0.16708e-06,0.10925e-05,0.36064e-05,0.59145e-05,0.75531e-05, & - & 0.90996e-05,0.10715e-04,0.13285e-04,0.53203e-04 /) - kao(:, 5,11, 7) = (/ & - & 0.16578e-06,0.11490e-05,0.36852e-05,0.60104e-05,0.76652e-05, & - & 0.92182e-05,0.10838e-04,0.13496e-04,0.54467e-04 /) - kao(:, 1,12, 7) = (/ & - & 0.17287e-06,0.67222e-06,0.20177e-05,0.42045e-05,0.58863e-05, & - & 0.71911e-05,0.84904e-05,0.10467e-04,0.53824e-04 /) - kao(:, 2,12, 7) = (/ & - & 0.17534e-06,0.66930e-06,0.20902e-05,0.43510e-05,0.60518e-05, & - & 0.73834e-05,0.87285e-05,0.10723e-04,0.57713e-04 /) - kao(:, 3,12, 7) = (/ & - & 0.19862e-06,0.69271e-06,0.21807e-05,0.44473e-05,0.61938e-05, & - & 0.75395e-05,0.89230e-05,0.11082e-04,0.58727e-04 /) - kao(:, 4,12, 7) = (/ & - & 0.20481e-06,0.70155e-06,0.22437e-05,0.45330e-05,0.63072e-05, & - & 0.76639e-05,0.90515e-05,0.11316e-04,0.62478e-04 /) - kao(:, 5,12, 7) = (/ & - & 0.22362e-06,0.66686e-06,0.23107e-05,0.46277e-05,0.64004e-05, & - & 0.77560e-05,0.91460e-05,0.11480e-04,0.61459e-04 /) - kao(:, 1,13, 7) = (/ & - & 0.24394e-06,0.78850e-06,0.10005e-05,0.25869e-05,0.46671e-05, & - & 0.60110e-05,0.71462e-05,0.88357e-05,0.59707e-04 /) - kao(:, 2,13, 7) = (/ & - & 0.25387e-06,0.77656e-06,0.10565e-05,0.27093e-05,0.48105e-05, & - & 0.61610e-05,0.73436e-05,0.90989e-05,0.60151e-04 /) - kao(:, 3,13, 7) = (/ & - & 0.22260e-06,0.76604e-06,0.11188e-05,0.28168e-05,0.49259e-05, & - & 0.62864e-05,0.74912e-05,0.93777e-05,0.58560e-04 /) - kao(:, 4,13, 7) = (/ & - & 0.22499e-06,0.75979e-06,0.11746e-05,0.28869e-05,0.50154e-05, & - & 0.63819e-05,0.75933e-05,0.95633e-05,0.61656e-04 /) - kao(:, 5,13, 7) = (/ & - & 0.22527e-06,0.74699e-06,0.12195e-05,0.29526e-05,0.50915e-05, & - & 0.64528e-05,0.76669e-05,0.96909e-05,0.60588e-04 /) - kao(:, 1, 1, 8) = (/ & - & 0.29788e-05,0.29380e-04,0.47103e-04,0.62484e-04,0.75923e-04, & - & 0.86945e-04,0.96459e-04,0.10727e-03,0.95715e-04 /) - kao(:, 2, 1, 8) = (/ & - & 0.31829e-05,0.29542e-04,0.47406e-04,0.62987e-04,0.76500e-04, & - & 0.87575e-04,0.97244e-04,0.10847e-03,0.96769e-04 /) - kao(:, 3, 1, 8) = (/ & - & 0.34017e-05,0.30451e-04,0.49181e-04,0.65673e-04,0.79848e-04, & - & 0.91475e-04,0.10206e-03,0.11418e-03,0.10339e-03 /) - kao(:, 4, 1, 8) = (/ & - & 0.36204e-05,0.29858e-04,0.47964e-04,0.63849e-04,0.77416e-04, & - & 0.88495e-04,0.98624e-04,0.11030e-03,0.98665e-04 /) - kao(:, 5, 1, 8) = (/ & - & 0.38336e-05,0.30032e-04,0.48176e-04,0.64174e-04,0.77743e-04, & - & 0.88899e-04,0.99219e-04,0.11117e-03,0.99410e-04 /) - kao(:, 1, 2, 8) = (/ & - & 0.24422e-05,0.27039e-04,0.43472e-04,0.57657e-04,0.69985e-04, & - & 0.80297e-04,0.89716e-04,0.10091e-03,0.87814e-04 /) - kao(:, 2, 2, 8) = (/ & - & 0.26194e-05,0.27224e-04,0.43834e-04,0.58227e-04,0.70564e-04, & - & 0.80899e-04,0.90555e-04,0.10201e-03,0.88900e-04 /) - kao(:, 3, 2, 8) = (/ & - & 0.28026e-05,0.28185e-04,0.45675e-04,0.60941e-04,0.73932e-04, & - & 0.84933e-04,0.95539e-04,0.10795e-03,0.95932e-04 /) - kao(:, 4, 2, 8) = (/ & - & 0.29807e-05,0.28297e-04,0.45818e-04,0.61151e-04,0.74119e-04, & - & 0.85132e-04,0.95905e-04,0.10857e-03,0.96316e-04 /) - kao(:, 5, 2, 8) = (/ & - & 0.31559e-05,0.27777e-04,0.44649e-04,0.59431e-04,0.71821e-04, & - & 0.82324e-04,0.92537e-04,0.10487e-03,0.91446e-04 /) - kao(:, 1, 3, 8) = (/ & - & 0.19527e-05,0.24728e-04,0.39864e-04,0.52777e-04,0.63893e-04, & - & 0.73441e-04,0.82582e-04,0.93968e-04,0.79571e-04 /) - kao(:, 2, 3, 8) = (/ & - & 0.21028e-05,0.24948e-04,0.40273e-04,0.53366e-04,0.64472e-04, & - & 0.74070e-04,0.83496e-04,0.95166e-04,0.80711e-04 /) - kao(:, 3, 3, 8) = (/ & - & 0.22571e-05,0.25146e-04,0.40613e-04,0.53873e-04,0.64998e-04, & - & 0.74638e-04,0.84298e-04,0.96249e-04,0.81670e-04 /) - kao(:, 4, 3, 8) = (/ & - & 0.24052e-05,0.26082e-04,0.42367e-04,0.56407e-04,0.68204e-04, & - & 0.78600e-04,0.89199e-04,0.10217e-03,0.88502e-04 /) - kao(:, 5, 3, 8) = (/ & - & 0.25493e-05,0.25521e-04,0.41156e-04,0.54597e-04,0.65795e-04, & - & 0.75610e-04,0.85600e-04,0.98234e-04,0.83132e-04 /) - kao(:, 1, 4, 8) = (/ & - & 0.15249e-05,0.22458e-04,0.36230e-04,0.47832e-04,0.57788e-04, & - & 0.66572e-04,0.75267e-04,0.86613e-04,0.71765e-04 /) - kao(:, 2, 4, 8) = (/ & - & 0.16472e-05,0.22706e-04,0.36674e-04,0.48420e-04,0.58373e-04, & - & 0.67233e-04,0.76205e-04,0.87918e-04,0.72872e-04 /) - kao(:, 3, 4, 8) = (/ & - & 0.17727e-05,0.22924e-04,0.37041e-04,0.48925e-04,0.58917e-04, & - & 0.67822e-04,0.77056e-04,0.89127e-04,0.73812e-04 /) - kao(:, 4, 4, 8) = (/ & - & 0.18979e-05,0.23116e-04,0.37363e-04,0.49353e-04,0.59386e-04, & - & 0.68373e-04,0.77816e-04,0.90208e-04,0.74597e-04 /) - kao(:, 5, 4, 8) = (/ & - & 0.20187e-05,0.24032e-04,0.39090e-04,0.51784e-04,0.62486e-04, & - & 0.72274e-04,0.82652e-04,0.95944e-04,0.81360e-04 /) - kao(:, 1, 5, 8) = (/ & - & 0.11616e-05,0.20230e-04,0.32593e-04,0.43015e-04,0.51913e-04, & - & 0.59885e-04,0.68041e-04,0.79091e-04,0.64237e-04 /) - kao(:, 2, 5, 8) = (/ & - & 0.12634e-05,0.20493e-04,0.33052e-04,0.43575e-04,0.52485e-04, & - & 0.60579e-04,0.68993e-04,0.80447e-04,0.65308e-04 /) - kao(:, 3, 5, 8) = (/ & - & 0.13665e-05,0.20722e-04,0.33449e-04,0.44078e-04,0.53031e-04, & - & 0.61206e-04,0.69878e-04,0.81712e-04,0.66219e-04 /) - kao(:, 4, 5, 8) = (/ & - & 0.14654e-05,0.20926e-04,0.33806e-04,0.44507e-04,0.53511e-04, & - & 0.61775e-04,0.70644e-04,0.82800e-04,0.67010e-04 /) - kao(:, 5, 5, 8) = (/ & - & 0.15654e-05,0.21919e-04,0.35683e-04,0.47135e-04,0.56892e-04, & - & 0.66014e-04,0.75901e-04,0.88948e-04,0.74367e-04 /) - kao(:, 1, 6, 8) = (/ & - & 0.85477e-06,0.18056e-04,0.29058e-04,0.38374e-04,0.46318e-04, & - & 0.53503e-04,0.60983e-04,0.71567e-04,0.55220e-04 /) - kao(:, 2, 6, 8) = (/ & - & 0.93399e-06,0.18333e-04,0.29518e-04,0.38924e-04,0.46903e-04, & - & 0.54228e-04,0.61990e-04,0.72960e-04,0.56327e-04 /) - kao(:, 3, 6, 8) = (/ & - & 0.10173e-05,0.18568e-04,0.29940e-04,0.39430e-04,0.47457e-04, & - & 0.54891e-04,0.62912e-04,0.74219e-04,0.57262e-04 /) - kao(:, 4, 6, 8) = (/ & - & 0.10990e-05,0.18773e-04,0.30321e-04,0.39858e-04,0.47937e-04, & - & 0.55463e-04,0.63685e-04,0.75339e-04,0.58060e-04 /) - kao(:, 5, 6, 8) = (/ & - & 0.11736e-05,0.18980e-04,0.30632e-04,0.40210e-04,0.48338e-04, & - & 0.55952e-04,0.64349e-04,0.76243e-04,0.58787e-04 /) - kao(:, 1, 7, 8) = (/ & - & 0.60315e-06,0.15982e-04,0.25725e-04,0.33991e-04,0.41066e-04, & - & 0.47516e-04,0.54302e-04,0.64196e-04,0.19175e-04 /) - kao(:, 2, 7, 8) = (/ & - & 0.66792e-06,0.16270e-04,0.26184e-04,0.34534e-04,0.41673e-04, & - & 0.48253e-04,0.55322e-04,0.65617e-04,0.20214e-04 /) - kao(:, 3, 7, 8) = (/ & - & 0.72908e-06,0.16517e-04,0.26616e-04,0.35037e-04,0.42229e-04, & - & 0.48924e-04,0.56239e-04,0.66903e-04,0.21171e-04 /) - kao(:, 4, 7, 8) = (/ & - & 0.78570e-06,0.16735e-04,0.27002e-04,0.35463e-04,0.42700e-04, & - & 0.49504e-04,0.57015e-04,0.68011e-04,0.22118e-04 /) - kao(:, 5, 7, 8) = (/ & - & 0.83832e-06,0.16948e-04,0.27325e-04,0.35815e-04,0.43102e-04, & - & 0.50003e-04,0.57693e-04,0.68917e-04,0.22989e-04 /) - kao(:, 1, 8, 8) = (/ & - & 0.37835e-06,0.14042e-04,0.22619e-04,0.29906e-04,0.36184e-04, & - & 0.41943e-04,0.48058e-04,0.57159e-04,0.15030e-04 /) - kao(:, 2, 8, 8) = (/ & - & 0.42400e-06,0.14336e-04,0.23076e-04,0.30441e-04,0.36790e-04, & - & 0.42677e-04,0.49055e-04,0.58574e-04,0.15267e-04 /) - kao(:, 3, 8, 8) = (/ & - & 0.47003e-06,0.14598e-04,0.23503e-04,0.30926e-04,0.37338e-04, & - & 0.43345e-04,0.49944e-04,0.59871e-04,0.15168e-04 /) - kao(:, 4, 8, 8) = (/ & - & 0.50983e-06,0.14832e-04,0.23887e-04,0.31342e-04,0.37806e-04, & - & 0.43932e-04,0.50714e-04,0.60954e-04,0.15479e-04 /) - kao(:, 5, 8, 8) = (/ & - & 0.55238e-06,0.15050e-04,0.24211e-04,0.31698e-04,0.38215e-04, & - & 0.44447e-04,0.51404e-04,0.61843e-04,0.15864e-04 /) - kao(:, 1, 9, 8) = (/ & - & 0.20614e-06,0.12247e-04,0.19755e-04,0.26136e-04,0.31671e-04, & - & 0.36795e-04,0.42267e-04,0.50480e-04,0.31415e-04 /) - kao(:, 2, 9, 8) = (/ & - & 0.22820e-06,0.12543e-04,0.20203e-04,0.26660e-04,0.32273e-04, & - & 0.37518e-04,0.43228e-04,0.51895e-04,0.32257e-04 /) - kao(:, 3, 9, 8) = (/ & - & 0.25381e-06,0.12814e-04,0.20621e-04,0.27129e-04,0.32814e-04, & - & 0.38186e-04,0.44095e-04,0.53151e-04,0.31766e-04 /) - kao(:, 4, 9, 8) = (/ & - & 0.26266e-06,0.13056e-04,0.20991e-04,0.27538e-04,0.33285e-04, & - & 0.38781e-04,0.44859e-04,0.54214e-04,0.32184e-04 /) - kao(:, 5, 9, 8) = (/ & - & 0.28878e-06,0.13277e-04,0.21308e-04,0.27899e-04,0.33704e-04, & - & 0.39313e-04,0.45556e-04,0.55111e-04,0.32436e-04 /) - kao(:, 1,10, 8) = (/ & - & 0.12421e-06,0.10598e-04,0.17170e-04,0.22745e-04,0.27597e-04, & - & 0.32129e-04,0.37024e-04,0.44410e-04,0.36288e-04 /) - kao(:, 2,10, 8) = (/ & - & 0.11833e-06,0.10888e-04,0.17606e-04,0.23251e-04,0.28191e-04, & - & 0.32843e-04,0.37957e-04,0.45757e-04,0.36706e-04 /) - kao(:, 3,10, 8) = (/ & - & 0.11564e-06,0.11153e-04,0.18009e-04,0.23706e-04,0.28726e-04, & - & 0.33507e-04,0.38804e-04,0.46971e-04,0.39285e-04 /) - kao(:, 4,10, 8) = (/ & - & 0.11888e-06,0.11400e-04,0.18364e-04,0.24104e-04,0.29196e-04, & - & 0.34101e-04,0.39555e-04,0.47996e-04,0.37765e-04 /) - kao(:, 5,10, 8) = (/ & - & 0.13250e-06,0.11625e-04,0.18671e-04,0.24463e-04,0.29622e-04, & - & 0.34646e-04,0.40249e-04,0.48876e-04,0.41184e-04 /) - kao(:, 1,11, 8) = (/ & - & 0.17958e-06,0.90757e-05,0.15007e-04,0.19889e-04,0.24154e-04, & - & 0.28187e-04,0.32636e-04,0.39437e-04,0.34162e-04 /) - kao(:, 2,11, 8) = (/ & - & 0.18139e-06,0.93666e-05,0.15418e-04,0.20361e-04,0.24716e-04, & - & 0.28864e-04,0.33507e-04,0.40680e-04,0.35787e-04 /) - kao(:, 3,11, 8) = (/ & - & 0.18275e-06,0.96291e-05,0.15787e-04,0.20786e-04,0.25221e-04, & - & 0.29495e-04,0.34295e-04,0.41765e-04,0.33878e-04 /) - kao(:, 4,11, 8) = (/ & - & 0.18574e-06,0.98743e-05,0.16117e-04,0.21165e-04,0.25673e-04, & - & 0.30069e-04,0.35015e-04,0.42686e-04,0.32841e-04 /) - kao(:, 5,11, 8) = (/ & - & 0.20082e-06,0.10102e-04,0.16409e-04,0.21512e-04,0.26096e-04, & - & 0.30600e-04,0.35678e-04,0.43526e-04,0.33904e-04 /) - kao(:, 1,12, 8) = (/ & - & 0.23860e-06,0.72127e-05,0.13015e-04,0.17297e-04,0.21033e-04, & - & 0.24600e-04,0.28604e-04,0.34818e-04,0.40933e-04 /) - kao(:, 2,12, 8) = (/ & - & 0.23391e-06,0.75352e-05,0.13408e-04,0.17740e-04,0.21564e-04, & - & 0.25251e-04,0.29426e-04,0.35947e-04,0.39399e-04 /) - kao(:, 3,12, 8) = (/ & - & 0.24701e-06,0.78057e-05,0.13760e-04,0.18144e-04,0.22045e-04, & - & 0.25844e-04,0.30162e-04,0.36924e-04,0.38294e-04 /) - kao(:, 4,12, 8) = (/ & - & 0.26761e-06,0.80774e-05,0.14071e-04,0.18509e-04,0.22485e-04, & - & 0.26399e-04,0.30850e-04,0.37793e-04,0.37310e-04 /) - kao(:, 5,12, 8) = (/ & - & 0.23665e-06,0.83711e-05,0.14360e-04,0.18850e-04,0.22903e-04, & - & 0.26918e-04,0.31485e-04,0.38601e-04,0.34593e-04 /) - kao(:, 1,13, 8) = (/ & - & 0.27521e-06,0.50755e-05,0.11059e-04,0.14942e-04,0.18221e-04, & - & 0.21366e-04,0.24941e-04,0.30569e-04,0.35909e-04 /) - kao(:, 2,13, 8) = (/ & - & 0.25317e-06,0.53749e-05,0.11450e-04,0.15364e-04,0.18725e-04, & - & 0.21982e-04,0.25707e-04,0.31598e-04,0.37411e-04 /) - kao(:, 3,13, 8) = (/ & - & 0.23895e-06,0.56684e-05,0.11800e-04,0.15745e-04,0.19182e-04, & - & 0.22548e-04,0.26403e-04,0.32490e-04,0.35715e-04 /) - kao(:, 4,13, 8) = (/ & - & 0.23323e-06,0.59219e-05,0.12110e-04,0.16104e-04,0.19621e-04, & - & 0.23090e-04,0.27069e-04,0.33309e-04,0.26489e-04 /) - kao(:, 5,13, 8) = (/ & - & 0.23115e-06,0.61949e-05,0.12408e-04,0.16438e-04,0.20031e-04, & - & 0.23602e-04,0.27683e-04,0.34068e-04,0.26612e-04 /) - kao(:, 1, 1, 9) = (/ & - & 0.91507e-04,0.14710e-03,0.19128e-03,0.22605e-03,0.25532e-03, & - & 0.28077e-03,0.30345e-03,0.32646e-03,0.30807e-03 /) - kao(:, 2, 1, 9) = (/ & - & 0.91242e-04,0.14642e-03,0.19074e-03,0.22564e-03,0.25500e-03, & - & 0.28086e-03,0.30369e-03,0.32690e-03,0.30957e-03 /) - kao(:, 3, 1, 9) = (/ & - & 0.90877e-04,0.14692e-03,0.19251e-03,0.22869e-03,0.25946e-03, & - & 0.28682e-03,0.31087e-03,0.33538e-03,0.32011e-03 /) - kao(:, 4, 1, 9) = (/ & - & 0.90459e-04,0.14494e-03,0.18943e-03,0.22459e-03,0.25465e-03, & - & 0.28114e-03,0.30414e-03,0.32755e-03,0.31196e-03 /) - kao(:, 5, 1, 9) = (/ & - & 0.89993e-04,0.14416e-03,0.18875e-03,0.22408e-03,0.25453e-03, & - & 0.28137e-03,0.30449e-03,0.32780e-03,0.31307e-03 /) - kao(:, 1, 2, 9) = (/ & - & 0.77262e-04,0.13432e-03,0.17769e-03,0.21240e-03,0.24204e-03, & - & 0.26866e-03,0.29235e-03,0.31628e-03,0.29582e-03 /) - kao(:, 2, 2, 9) = (/ & - & 0.77061e-04,0.13375e-03,0.17727e-03,0.21210e-03,0.24206e-03, & - & 0.26905e-03,0.29288e-03,0.31707e-03,0.29754e-03 /) - kao(:, 3, 2, 9) = (/ & - & 0.76803e-04,0.13443e-03,0.17926e-03,0.21557e-03,0.24713e-03, & - & 0.27557e-03,0.30072e-03,0.32610e-03,0.30880e-03 /) - kao(:, 4, 2, 9) = (/ & - & 0.76502e-04,0.13372e-03,0.17855e-03,0.21503e-03,0.24689e-03, & - & 0.27560e-03,0.30084e-03,0.32601e-03,0.30963e-03 /) - kao(:, 5, 2, 9) = (/ & - & 0.76149e-04,0.13198e-03,0.17568e-03,0.21133e-03,0.24254e-03, & - & 0.27051e-03,0.29485e-03,0.31890e-03,0.30223e-03 /) - kao(:, 1, 3, 9) = (/ & - & 0.65103e-04,0.12258e-03,0.16452e-03,0.19865e-03,0.22866e-03, & - & 0.25591e-03,0.28055e-03,0.30511e-03,0.28178e-03 /) - kao(:, 2, 3, 9) = (/ & - & 0.64961e-04,0.12216e-03,0.16424e-03,0.19863e-03,0.22903e-03, & - & 0.25664e-03,0.28152e-03,0.30626e-03,0.28379e-03 /) - kao(:, 3, 3, 9) = (/ & - & 0.64796e-04,0.12170e-03,0.16393e-03,0.19861e-03,0.22948e-03, & - & 0.25740e-03,0.28253e-03,0.30727e-03,0.28578e-03 /) - kao(:, 4, 3, 9) = (/ & - & 0.64583e-04,0.12248e-03,0.16600e-03,0.20227e-03,0.23481e-03, & - & 0.26421e-03,0.29055e-03,0.31636e-03,0.29736e-03 /) - kao(:, 5, 3, 9) = (/ & - & 0.64341e-04,0.12081e-03,0.16325e-03,0.19869e-03,0.23043e-03, & - & 0.25903e-03,0.28445e-03,0.30920e-03,0.28976e-03 /) - kao(:, 1, 4, 9) = (/ & - & 0.54784e-04,0.11174e-03,0.15188e-03,0.18523e-03,0.21503e-03, & - & 0.24239e-03,0.26770e-03,0.29311e-03,0.26685e-03 /) - kao(:, 2, 4, 9) = (/ & - & 0.54700e-04,0.11144e-03,0.15177e-03,0.18550e-03,0.21578e-03, & - & 0.24348e-03,0.26903e-03,0.29466e-03,0.26928e-03 /) - kao(:, 3, 4, 9) = (/ & - & 0.54592e-04,0.11111e-03,0.15167e-03,0.18578e-03,0.21655e-03, & - & 0.24456e-03,0.27029e-03,0.29609e-03,0.27162e-03 /) - kao(:, 4, 4, 9) = (/ & - & 0.54457e-04,0.11078e-03,0.15152e-03,0.18607e-03,0.21728e-03, & - & 0.24565e-03,0.27151e-03,0.29746e-03,0.27399e-03 /) - kao(:, 5, 4, 9) = (/ & - & 0.54312e-04,0.11162e-03,0.15369e-03,0.18993e-03,0.22281e-03, & - & 0.25263e-03,0.27972e-03,0.30664e-03,0.28593e-03 /) - kao(:, 1, 5, 9) = (/ & - & 0.46088e-04,0.10164e-03,0.13985e-03,0.17192e-03,0.20105e-03, & - & 0.22810e-03,0.25365e-03,0.28019e-03,0.25169e-03 /) - kao(:, 2, 5, 9) = (/ & - & 0.46037e-04,0.10150e-03,0.13996e-03,0.17251e-03,0.20208e-03, & - & 0.22949e-03,0.25532e-03,0.28211e-03,0.25438e-03 /) - kao(:, 3, 5, 9) = (/ & - & 0.45971e-04,0.10129e-03,0.14008e-03,0.17302e-03,0.20310e-03, & - & 0.23085e-03,0.25690e-03,0.28385e-03,0.25702e-03 /) - kao(:, 4, 5, 9) = (/ & - & 0.45890e-04,0.10111e-03,0.14015e-03,0.17355e-03,0.20405e-03, & - & 0.23221e-03,0.25843e-03,0.28547e-03,0.25970e-03 /) - kao(:, 5, 5, 9) = (/ & - & 0.45808e-04,0.10210e-03,0.14263e-03,0.17783e-03,0.21010e-03, & - & 0.23994e-03,0.26750e-03,0.29545e-03,0.27288e-03 /) - kao(:, 1, 6, 9) = (/ & - & 0.38759e-04,0.92287e-04,0.12830e-03,0.15873e-03,0.18673e-03, & - & 0.21305e-03,0.23858e-03,0.26603e-03,0.23576e-03 /) - kao(:, 2, 6, 9) = (/ & - & 0.38742e-04,0.92285e-04,0.12860e-03,0.15956e-03,0.18804e-03, & - & 0.21479e-03,0.24061e-03,0.26833e-03,0.23876e-03 /) - kao(:, 3, 6, 9) = (/ & - & 0.38716e-04,0.92248e-04,0.12890e-03,0.16031e-03,0.18934e-03, & - & 0.21647e-03,0.24252e-03,0.27042e-03,0.24167e-03 /) - kao(:, 4, 6, 9) = (/ & - & 0.38672e-04,0.92189e-04,0.12914e-03,0.16108e-03,0.19055e-03, & - & 0.21815e-03,0.24441e-03,0.27232e-03,0.24468e-03 /) - kao(:, 5, 6, 9) = (/ & - & 0.38631e-04,0.92110e-04,0.12940e-03,0.16181e-03,0.19180e-03, & - & 0.21982e-03,0.24634e-03,0.27420e-03,0.24778e-03 /) - kao(:, 1, 7, 9) = (/ & - & 0.32524e-04,0.83578e-04,0.11715e-03,0.14581e-03,0.17242e-03, & - & 0.19778e-03,0.22289e-03,0.25099e-03,0.21544e-03 /) - kao(:, 2, 7, 9) = (/ & - & 0.32544e-04,0.83724e-04,0.11765e-03,0.14685e-03,0.17402e-03, & - & 0.19984e-03,0.22531e-03,0.25360e-03,0.21897e-03 /) - kao(:, 3, 7, 9) = (/ & - & 0.32541e-04,0.83837e-04,0.11812e-03,0.14785e-03,0.17560e-03, & - & 0.20184e-03,0.22764e-03,0.25604e-03,0.22234e-03 /) - kao(:, 4, 7, 9) = (/ & - & 0.32522e-04,0.83911e-04,0.11855e-03,0.14886e-03,0.17710e-03, & - & 0.20381e-03,0.22989e-03,0.25831e-03,0.22586e-03 /) - kao(:, 5, 7, 9) = (/ & - & 0.32511e-04,0.83972e-04,0.11899e-03,0.14985e-03,0.17863e-03, & - & 0.20577e-03,0.23212e-03,0.26056e-03,0.22930e-03 /) - kao(:, 1, 8, 9) = (/ & - & 0.27162e-04,0.75477e-04,0.10657e-03,0.13337e-03,0.15848e-03, & - & 0.18267e-03,0.20707e-03,0.23532e-03,0.10685e-03 /) - kao(:, 2, 8, 9) = (/ & - & 0.27219e-04,0.75747e-04,0.10724e-03,0.13464e-03,0.16036e-03, & - & 0.18507e-03,0.20988e-03,0.23834e-03,0.11049e-03 /) - kao(:, 3, 8, 9) = (/ & - & 0.27240e-04,0.75981e-04,0.10788e-03,0.13591e-03,0.16217e-03, & - & 0.18731e-03,0.21250e-03,0.24115e-03,0.11463e-03 /) - kao(:, 4, 8, 9) = (/ & - & 0.27241e-04,0.76175e-04,0.10851e-03,0.13715e-03,0.16392e-03, & - & 0.18952e-03,0.21504e-03,0.24375e-03,0.11830e-03 /) - kao(:, 5, 8, 9) = (/ & - & 0.27254e-04,0.76338e-04,0.10913e-03,0.13836e-03,0.16569e-03, & - & 0.19172e-03,0.21755e-03,0.24638e-03,0.12227e-03 /) - kao(:, 1, 9, 9) = (/ & - & 0.22546e-04,0.67903e-04,0.96628e-04,0.12150e-03,0.14489e-03, & - & 0.16757e-03,0.19095e-03,0.21913e-03,0.25626e-04 /) - kao(:, 2, 9, 9) = (/ & - & 0.22635e-04,0.68268e-04,0.97460e-04,0.12301e-03,0.14702e-03, & - & 0.17028e-03,0.19411e-03,0.22260e-03,0.25839e-04 /) - kao(:, 3, 9, 9) = (/ & - & 0.22685e-04,0.68616e-04,0.98277e-04,0.12450e-03,0.14909e-03, & - & 0.17284e-03,0.19709e-03,0.22578e-03,0.27443e-04 /) - kao(:, 4, 9, 9) = (/ & - & 0.22709e-04,0.68929e-04,0.99095e-04,0.12593e-03,0.15108e-03, & - & 0.17530e-03,0.19995e-03,0.22878e-03,0.28531e-04 /) - kao(:, 5, 9, 9) = (/ & - & 0.22740e-04,0.69227e-04,0.99896e-04,0.12734e-03,0.15306e-03, & - & 0.17777e-03,0.20277e-03,0.23170e-03,0.28894e-04 /) - kao(:, 1,10, 9) = (/ & - & 0.18403e-04,0.60856e-04,0.87340e-04,0.11017e-03,0.13174e-03, & - & 0.15284e-03,0.17492e-03,0.20267e-03,0.31931e-04 /) - kao(:, 2,10, 9) = (/ & - & 0.18527e-04,0.61329e-04,0.88371e-04,0.11191e-03,0.13412e-03, & - & 0.15579e-03,0.17838e-03,0.20650e-03,0.29084e-04 /) - kao(:, 3,10, 9) = (/ & - & 0.18600e-04,0.61796e-04,0.89354e-04,0.11363e-03,0.13643e-03, & - & 0.15861e-03,0.18170e-03,0.21009e-03,0.27893e-04 /) - kao(:, 4,10, 9) = (/ & - & 0.18642e-04,0.62226e-04,0.90339e-04,0.11526e-03,0.13867e-03, & - & 0.16137e-03,0.18486e-03,0.21346e-03,0.33895e-04 /) - kao(:, 5,10, 9) = (/ & - & 0.18688e-04,0.62651e-04,0.91302e-04,0.11690e-03,0.14093e-03, & - & 0.16416e-03,0.18804e-03,0.21676e-03,0.31724e-04 /) - kao(:, 1,11, 9) = (/ & - & 0.14636e-04,0.54588e-04,0.79114e-04,0.10030e-03,0.12035e-03, & - & 0.14003e-03,0.16089e-03,0.18797e-03,0.24886e-04 /) - kao(:, 2,11, 9) = (/ & - & 0.14721e-04,0.55182e-04,0.80295e-04,0.10221e-03,0.12288e-03, & - & 0.14315e-03,0.16455e-03,0.19200e-03,0.28280e-04 /) - kao(:, 3,11, 9) = (/ & - & 0.14784e-04,0.55751e-04,0.81465e-04,0.10405e-03,0.12535e-03, & - & 0.14614e-03,0.16802e-03,0.19578e-03,0.31405e-04 /) - kao(:, 4,11, 9) = (/ & - & 0.14831e-04,0.56293e-04,0.82611e-04,0.10589e-03,0.12782e-03, & - & 0.14918e-03,0.17147e-03,0.19942e-03,0.34684e-04 /) - kao(:, 5,11, 9) = (/ & - & 0.14856e-04,0.56829e-04,0.83754e-04,0.10776e-03,0.13034e-03, & - & 0.15225e-03,0.17499e-03,0.20312e-03,0.30970e-04 /) - kao(:, 1,12, 9) = (/ & - & 0.11572e-04,0.48876e-04,0.71553e-04,0.91191e-04,0.10973e-03, & - & 0.12799e-03,0.14756e-03,0.17351e-03,0.30682e-04 /) - kao(:, 2,12, 9) = (/ & - & 0.11642e-04,0.49592e-04,0.72882e-04,0.93233e-04,0.11240e-03, & - & 0.13124e-03,0.15132e-03,0.17770e-03,0.31240e-04 /) - kao(:, 3,12, 9) = (/ & - & 0.11629e-04,0.50261e-04,0.74205e-04,0.95210e-04,0.11505e-03, & - & 0.13447e-03,0.15502e-03,0.18170e-03,0.31943e-04 /) - kao(:, 4,12, 9) = (/ & - & 0.11633e-04,0.50925e-04,0.75501e-04,0.97246e-04,0.11773e-03, & - & 0.13775e-03,0.15878e-03,0.18567e-03,0.23441e-04 /) - kao(:, 5,12, 9) = (/ & - & 0.11677e-04,0.51560e-04,0.76851e-04,0.99310e-04,0.12044e-03, & - & 0.14103e-03,0.16255e-03,0.18968e-03,0.23249e-04 /) - kao(:, 1,13, 9) = (/ & - & 0.88185e-05,0.43709e-04,0.64627e-04,0.82824e-04,0.99889e-04, & - & 0.11672e-03,0.13488e-03,0.15952e-03,0.30903e-04 /) - kao(:, 2,13, 9) = (/ & - & 0.88986e-05,0.44515e-04,0.66093e-04,0.84980e-04,0.10270e-03, & - & 0.12016e-03,0.13885e-03,0.16386e-03,0.25840e-04 /) - kao(:, 3,13, 9) = (/ & - & 0.89568e-05,0.45280e-04,0.67556e-04,0.87134e-04,0.10555e-03, & - & 0.12361e-03,0.14282e-03,0.16813e-03,0.26878e-04 /) - kao(:, 4,13, 9) = (/ & - & 0.89829e-05,0.46045e-04,0.69040e-04,0.89346e-04,0.10842e-03, & - & 0.12710e-03,0.14682e-03,0.17243e-03,0.28852e-04 /) - kao(:, 5,13, 9) = (/ & - & 0.90413e-05,0.46787e-04,0.70568e-04,0.91561e-04,0.11129e-03, & - & 0.13056e-03,0.15080e-03,0.17669e-03,0.28623e-04 /) - kao(:, 1, 1,10) = (/ & - & 0.44112e-03,0.47423e-03,0.54876e-03,0.61567e-03,0.66971e-03, & - & 0.71699e-03,0.76347e-03,0.77814e-03,0.77298e-03 /) - kao(:, 2, 1,10) = (/ & - & 0.43794e-03,0.47285e-03,0.54643e-03,0.61370e-03,0.66959e-03, & - & 0.71530e-03,0.76226e-03,0.77693e-03,0.76966e-03 /) - kao(:, 3, 1,10) = (/ & - & 0.43480e-03,0.47183e-03,0.54721e-03,0.61831e-03,0.67726e-03, & - & 0.72423e-03,0.77288e-03,0.78901e-03,0.78603e-03 /) - kao(:, 4, 1,10) = (/ & - & 0.43220e-03,0.46825e-03,0.54213e-03,0.61349e-03,0.66880e-03, & - & 0.71215e-03,0.75938e-03,0.77341e-03,0.76775e-03 /) - kao(:, 5, 1,10) = (/ & - & 0.42987e-03,0.46597e-03,0.54025e-03,0.61237e-03,0.66800e-03, & - & 0.70968e-03,0.75599e-03,0.77132e-03,0.76754e-03 /) - kao(:, 1, 2,10) = (/ & - & 0.37934e-03,0.43540e-03,0.51852e-03,0.59327e-03,0.65919e-03, & - & 0.71028e-03,0.75523e-03,0.78660e-03,0.77018e-03 /) - kao(:, 2, 2,10) = (/ & - & 0.37616e-03,0.43418e-03,0.51743e-03,0.59232e-03,0.65869e-03, & - & 0.70879e-03,0.75385e-03,0.78506e-03,0.76914e-03 /) - kao(:, 3, 2,10) = (/ & - & 0.37285e-03,0.43338e-03,0.51992e-03,0.59796e-03,0.66588e-03, & - & 0.71863e-03,0.76525e-03,0.79746e-03,0.78726e-03 /) - kao(:, 4, 2,10) = (/ & - & 0.36993e-03,0.43092e-03,0.51858e-03,0.59729e-03,0.66425e-03, & - & 0.71582e-03,0.76129e-03,0.79428e-03,0.78557e-03 /) - kao(:, 5, 2,10) = (/ & - & 0.36795e-03,0.42667e-03,0.51498e-03,0.59125e-03,0.65451e-03, & - & 0.70295e-03,0.74646e-03,0.77706e-03,0.76846e-03 /) - kao(:, 1, 3,10) = (/ & - & 0.32398e-03,0.39840e-03,0.48910e-03,0.57202e-03,0.64247e-03, & - & 0.69920e-03,0.74272e-03,0.78560e-03,0.76158e-03 /) - kao(:, 2, 3,10) = (/ & - & 0.32107e-03,0.39683e-03,0.48877e-03,0.57106e-03,0.64200e-03, & - & 0.69780e-03,0.74068e-03,0.78389e-03,0.76255e-03 /) - kao(:, 3, 3,10) = (/ & - & 0.31808e-03,0.39502e-03,0.48851e-03,0.57104e-03,0.64052e-03, & - & 0.69677e-03,0.73846e-03,0.78156e-03,0.76341e-03 /) - kao(:, 4, 3,10) = (/ & - & 0.31534e-03,0.39419e-03,0.49223e-03,0.57621e-03,0.64746e-03, & - & 0.70569e-03,0.74986e-03,0.79350e-03,0.78192e-03 /) - kao(:, 5, 3,10) = (/ & - & 0.31343e-03,0.39031e-03,0.48789e-03,0.56911e-03,0.63804e-03, & - & 0.69322e-03,0.73529e-03,0.77554e-03,0.76249e-03 /) - kao(:, 1, 4,10) = (/ & - & 0.27516e-03,0.36405e-03,0.46107e-03,0.54790e-03,0.62253e-03, & - & 0.68384e-03,0.73057e-03,0.77856e-03,0.74793e-03 /) - kao(:, 2, 4,10) = (/ & - & 0.27272e-03,0.36262e-03,0.46080e-03,0.54700e-03,0.62201e-03, & - & 0.68300e-03,0.72976e-03,0.77591e-03,0.74919e-03 /) - kao(:, 3, 4,10) = (/ & - & 0.26991e-03,0.36139e-03,0.46064e-03,0.54673e-03,0.62063e-03, & - & 0.68269e-03,0.72862e-03,0.77298e-03,0.75070e-03 /) - kao(:, 4, 4,10) = (/ & - & 0.26757e-03,0.35993e-03,0.46053e-03,0.54625e-03,0.61982e-03, & - & 0.68167e-03,0.72799e-03,0.77005e-03,0.75046e-03 /) - kao(:, 5, 4,10) = (/ & - & 0.26556e-03,0.36025e-03,0.46433e-03,0.55132e-03,0.62683e-03, & - & 0.69143e-03,0.74137e-03,0.78366e-03,0.76845e-03 /) - kao(:, 1, 5,10) = (/ & - & 0.23277e-03,0.33279e-03,0.43313e-03,0.52236e-03,0.59970e-03, & - & 0.66464e-03,0.71686e-03,0.76626e-03,0.72457e-03 /) - kao(:, 2, 5,10) = (/ & - & 0.23078e-03,0.33167e-03,0.43303e-03,0.52181e-03,0.60054e-03, & - & 0.66529e-03,0.71807e-03,0.76458e-03,0.72852e-03 /) - kao(:, 3, 5,10) = (/ & - & 0.22839e-03,0.33111e-03,0.43245e-03,0.52229e-03,0.60068e-03, & - & 0.66640e-03,0.71880e-03,0.76367e-03,0.73165e-03 /) - kao(:, 4, 5,10) = (/ & - & 0.22634e-03,0.33010e-03,0.43234e-03,0.52220e-03,0.60179e-03, & - & 0.66699e-03,0.71996e-03,0.76305e-03,0.73316e-03 /) - kao(:, 5, 5,10) = (/ & - & 0.22442e-03,0.33158e-03,0.43680e-03,0.52864e-03,0.61018e-03, & - & 0.67770e-03,0.73371e-03,0.78031e-03,0.75138e-03 /) - kao(:, 1, 6,10) = (/ & - & 0.19685e-03,0.30442e-03,0.40547e-03,0.49610e-03,0.57453e-03, & - & 0.64299e-03,0.69899e-03,0.74954e-03,0.69460e-03 /) - kao(:, 2, 6,10) = (/ & - & 0.19517e-03,0.30338e-03,0.40585e-03,0.49683e-03,0.57671e-03, & - & 0.64425e-03,0.70130e-03,0.75004e-03,0.70036e-03 /) - kao(:, 3, 6,10) = (/ & - & 0.19324e-03,0.30268e-03,0.40573e-03,0.49834e-03,0.57803e-03, & - & 0.64627e-03,0.70310e-03,0.75130e-03,0.70596e-03 /) - kao(:, 4, 6,10) = (/ & - & 0.19132e-03,0.30224e-03,0.40644e-03,0.49947e-03,0.58014e-03, & - & 0.64741e-03,0.70472e-03,0.75293e-03,0.70917e-03 /) - kao(:, 5, 6,10) = (/ & - & 0.18952e-03,0.30177e-03,0.40672e-03,0.50101e-03,0.58137e-03, & - & 0.64847e-03,0.70602e-03,0.75537e-03,0.71121e-03 /) - kao(:, 1, 7,10) = (/ & - & 0.16684e-03,0.27825e-03,0.37860e-03,0.46883e-03,0.54680e-03, & - & 0.61510e-03,0.67386e-03,0.72824e-03,0.66391e-03 /) - kao(:, 2, 7,10) = (/ & - & 0.16553e-03,0.27719e-03,0.37963e-03,0.47077e-03,0.54985e-03, & - & 0.61768e-03,0.67717e-03,0.73093e-03,0.67156e-03 /) - kao(:, 3, 7,10) = (/ & - & 0.16397e-03,0.27663e-03,0.38054e-03,0.47308e-03,0.55166e-03, & - & 0.62067e-03,0.67975e-03,0.73342e-03,0.67787e-03 /) - kao(:, 4, 7,10) = (/ & - & 0.16246e-03,0.27634e-03,0.38198e-03,0.47489e-03,0.55414e-03, & - & 0.62280e-03,0.68232e-03,0.73600e-03,0.68175e-03 /) - kao(:, 5, 7,10) = (/ & - & 0.16089e-03,0.27624e-03,0.38314e-03,0.47665e-03,0.55585e-03, & - & 0.62443e-03,0.68436e-03,0.73852e-03,0.68559e-03 /) - kao(:, 1, 8,10) = (/ & - & 0.14215e-03,0.25407e-03,0.35215e-03,0.43863e-03,0.51443e-03, & - & 0.58154e-03,0.64180e-03,0.70004e-03,0.62276e-03 /) - kao(:, 2, 8,10) = (/ & - & 0.14104e-03,0.25332e-03,0.35394e-03,0.44179e-03,0.51810e-03, & - & 0.58508e-03,0.64584e-03,0.70407e-03,0.63285e-03 /) - kao(:, 3, 8,10) = (/ & - & 0.13977e-03,0.25313e-03,0.35560e-03,0.44458e-03,0.52101e-03, & - & 0.58953e-03,0.65037e-03,0.70785e-03,0.64108e-03 /) - kao(:, 4, 8,10) = (/ & - & 0.13869e-03,0.25332e-03,0.35744e-03,0.44722e-03,0.52464e-03, & - & 0.59336e-03,0.65468e-03,0.71201e-03,0.64611e-03 /) - kao(:, 5, 8,10) = (/ & - & 0.13742e-03,0.25367e-03,0.35927e-03,0.44959e-03,0.52752e-03, & - & 0.59656e-03,0.65824e-03,0.71554e-03,0.65066e-03 /) - kao(:, 1, 9,10) = (/ & - & 0.12109e-03,0.23210e-03,0.32446e-03,0.40715e-03,0.48065e-03, & - & 0.54715e-03,0.60775e-03,0.66825e-03,0.18336e-04 /) - kao(:, 2, 9,10) = (/ & - & 0.12018e-03,0.23207e-03,0.32699e-03,0.41058e-03,0.48505e-03, & - & 0.55180e-03,0.61323e-03,0.67309e-03,0.24327e-04 /) - kao(:, 3, 9,10) = (/ & - & 0.11917e-03,0.23229e-03,0.32956e-03,0.41390e-03,0.48910e-03, & - & 0.55710e-03,0.61911e-03,0.67851e-03,0.23065e-04 /) - kao(:, 4, 9,10) = (/ & - & 0.11843e-03,0.23292e-03,0.33197e-03,0.41764e-03,0.49354e-03, & - & 0.56238e-03,0.62497e-03,0.68395e-03,0.23680e-04 /) - kao(:, 5, 9,10) = (/ & - & 0.11748e-03,0.23365e-03,0.33458e-03,0.42109e-03,0.49774e-03, & - & 0.56667e-03,0.62987e-03,0.68909e-03,0.25905e-04 /) - kao(:, 1,10,10) = (/ & - & 0.10273e-03,0.21204e-03,0.29794e-03,0.37761e-03,0.44937e-03, & - & 0.51495e-03,0.57567e-03,0.63761e-03,0.19724e-04 /) - kao(:, 2,10,10) = (/ & - & 0.10190e-03,0.21272e-03,0.30059e-03,0.38150e-03,0.45434e-03, & - & 0.52089e-03,0.58270e-03,0.64346e-03,0.24197e-04 /) - kao(:, 3,10,10) = (/ & - & 0.10112e-03,0.21334e-03,0.30377e-03,0.38507e-03,0.45917e-03, & - & 0.52739e-03,0.58976e-03,0.64941e-03,0.34326e-04 /) - kao(:, 4,10,10) = (/ & - & 0.10061e-03,0.21443e-03,0.30659e-03,0.38965e-03,0.46453e-03, & - & 0.53354e-03,0.59675e-03,0.65639e-03,0.33702e-04 /) - kao(:, 5,10,10) = (/ & - & 0.99890e-04,0.21543e-03,0.30998e-03,0.39375e-03,0.46925e-03, & - & 0.53804e-03,0.60223e-03,0.66255e-03,0.31412e-04 /) - kao(:, 1,11,10) = (/ & - & 0.86338e-04,0.19398e-03,0.27516e-03,0.35204e-03,0.42116e-03, & - & 0.48556e-03,0.54615e-03,0.60927e-03,0.19945e-04 /) - kao(:, 2,11,10) = (/ & - & 0.85730e-04,0.19502e-03,0.27834e-03,0.35636e-03,0.42792e-03, & - & 0.49403e-03,0.55597e-03,0.61737e-03,0.90093e-05 /) - kao(:, 3,11,10) = (/ & - & 0.85275e-04,0.19618e-03,0.28168e-03,0.36165e-03,0.43438e-03, & - & 0.50224e-03,0.56492e-03,0.62614e-03,0.37496e-04 /) - kao(:, 4,11,10) = (/ & - & 0.84865e-04,0.19761e-03,0.28526e-03,0.36657e-03,0.44042e-03, & - & 0.50863e-03,0.57263e-03,0.63413e-03,0.15044e-04 /) - kao(:, 5,11,10) = (/ & - & 0.84443e-04,0.19914e-03,0.28886e-03,0.37069e-03,0.44492e-03, & - & 0.51377e-03,0.57803e-03,0.63993e-03,0.48683e-04 /) - kao(:, 1,12,10) = (/ & - & 0.72237e-04,0.17794e-03,0.25491e-03,0.32737e-03,0.39376e-03, & - & 0.45690e-03,0.51684e-03,0.58057e-03,0.10800e-04 /) - kao(:, 2,12,10) = (/ & - & 0.71846e-04,0.17916e-03,0.25896e-03,0.33355e-03,0.40234e-03, & - & 0.46708e-03,0.52856e-03,0.59174e-03,0.37304e-04 /) - kao(:, 3,12,10) = (/ & - & 0.71641e-04,0.18095e-03,0.26291e-03,0.34013e-03,0.41022e-03, & - & 0.47645e-03,0.53911e-03,0.60240e-03,0.20066e-04 /) - kao(:, 4,12,10) = (/ & - & 0.71337e-04,0.18255e-03,0.26698e-03,0.34557e-03,0.41722e-03, & - & 0.48390e-03,0.54753e-03,0.61134e-03,0.20267e-04 /) - kao(:, 5,12,10) = (/ & - & 0.71187e-04,0.18456e-03,0.27032e-03,0.35012e-03,0.42265e-03, & - & 0.49079e-03,0.55462e-03,0.61760e-03,0.29175e-04 /) - kao(:, 1,13,10) = (/ & - & 0.60308e-04,0.16344e-03,0.23674e-03,0.30451e-03,0.36859e-03, & - & 0.42973e-03,0.48896e-03,0.55265e-03,0.35870e-04 /) - kao(:, 2,13,10) = (/ & - & 0.60075e-04,0.16518e-03,0.24182e-03,0.31202e-03,0.37817e-03, & - & 0.44097e-03,0.50163e-03,0.56563e-03,0.24717e-04 /) - kao(:, 3,13,10) = (/ & - & 0.59963e-04,0.16736e-03,0.24636e-03,0.31956e-03,0.38717e-03, & - & 0.45122e-03,0.51282e-03,0.57786e-03,0.24967e-04 /) - kao(:, 4,13,10) = (/ & - & 0.59808e-04,0.16950e-03,0.25081e-03,0.32559e-03,0.39488e-03, & - & 0.45992e-03,0.52243e-03,0.58716e-03,0.25073e-04 /) - kao(:, 5,13,10) = (/ & - & 0.59738e-04,0.17182e-03,0.25430e-03,0.33121e-03,0.40220e-03, & - & 0.46925e-03,0.53224e-03,0.59573e-03,0.14031e-04 /) - kao(:, 1, 1,11) = (/ & - & 0.79109e-03,0.77354e-03,0.84795e-03,0.91837e-03,0.98287e-03, & - & 0.10467e-02,0.10876e-02,0.10899e-02,0.10918e-02 /) - kao(:, 2, 1,11) = (/ & - & 0.79035e-03,0.76999e-03,0.84502e-03,0.91315e-03,0.97569e-03, & - & 0.10420e-02,0.10843e-02,0.10840e-02,0.10904e-02 /) - kao(:, 3, 1,11) = (/ & - & 0.79094e-03,0.76969e-03,0.84501e-03,0.91212e-03,0.97616e-03, & - & 0.10502e-02,0.10978e-02,0.10968e-02,0.11098e-02 /) - kao(:, 4, 1,11) = (/ & - & 0.79012e-03,0.76698e-03,0.84052e-03,0.90224e-03,0.96448e-03, & - & 0.10367e-02,0.10810e-02,0.10798e-02,0.10838e-02 /) - kao(:, 5, 1,11) = (/ & - & 0.78840e-03,0.76416e-03,0.83816e-03,0.89971e-03,0.96199e-03, & - & 0.10344e-02,0.10796e-02,0.10773e-02,0.10800e-02 /) - kao(:, 1, 2,11) = (/ & - & 0.69789e-03,0.72093e-03,0.81475e-03,0.89922e-03,0.96655e-03, & - & 0.10286e-02,0.10852e-02,0.10968e-02,0.10998e-02 /) - kao(:, 2, 2,11) = (/ & - & 0.69799e-03,0.71831e-03,0.81026e-03,0.89390e-03,0.96162e-03, & - & 0.10278e-02,0.10853e-02,0.10953e-02,0.10980e-02 /) - kao(:, 3, 2,11) = (/ & - & 0.69849e-03,0.71872e-03,0.81039e-03,0.89368e-03,0.96713e-03, & - & 0.10387e-02,0.11003e-02,0.11139e-02,0.11199e-02 /) - kao(:, 4, 2,11) = (/ & - & 0.69786e-03,0.71702e-03,0.80831e-03,0.88926e-03,0.96426e-03, & - & 0.10353e-02,0.10976e-02,0.11107e-02,0.11152e-02 /) - kao(:, 5, 2,11) = (/ & - & 0.69639e-03,0.71420e-03,0.80246e-03,0.88289e-03,0.95515e-03, & - & 0.10226e-02,0.10812e-02,0.10915e-02,0.10904e-02 /) - kao(:, 1, 3,11) = (/ & - & 0.60717e-03,0.66595e-03,0.77916e-03,0.87509e-03,0.95372e-03, & - & 0.10167e-02,0.10820e-02,0.11070e-02,0.11005e-02 /) - kao(:, 2, 3,11) = (/ & - & 0.60740e-03,0.66447e-03,0.77425e-03,0.87078e-03,0.95087e-03, & - & 0.10164e-02,0.10820e-02,0.11070e-02,0.10996e-02 /) - kao(:, 3, 3,11) = (/ & - & 0.60743e-03,0.66421e-03,0.77076e-03,0.86668e-03,0.94936e-03, & - & 0.10146e-02,0.10809e-02,0.11066e-02,0.10979e-02 /) - kao(:, 4, 3,11) = (/ & - & 0.60721e-03,0.66487e-03,0.77207e-03,0.87093e-03,0.95679e-03, & - & 0.10247e-02,0.10950e-02,0.11248e-02,0.11171e-02 /) - kao(:, 5, 3,11) = (/ & - & 0.60632e-03,0.66259e-03,0.76645e-03,0.86469e-03,0.94611e-03, & - & 0.10116e-02,0.10778e-02,0.11040e-02,0.10953e-02 /) - kao(:, 1, 4,11) = (/ & - & 0.52196e-03,0.61309e-03,0.74127e-03,0.84825e-03,0.93805e-03, & - & 0.10078e-02,0.10732e-02,0.11156e-02,0.10964e-02 /) - kao(:, 2, 4,11) = (/ & - & 0.52205e-03,0.61209e-03,0.73709e-03,0.84586e-03,0.93585e-03, & - & 0.10074e-02,0.10727e-02,0.11168e-02,0.10976e-02 /) - kao(:, 3, 4,11) = (/ & - & 0.52218e-03,0.61175e-03,0.73426e-03,0.84316e-03,0.93485e-03, & - & 0.10055e-02,0.10718e-02,0.11162e-02,0.10985e-02 /) - kao(:, 4, 4,11) = (/ & - & 0.52176e-03,0.61131e-03,0.73315e-03,0.84162e-03,0.93319e-03, & - & 0.10035e-02,0.10709e-02,0.11149e-02,0.11000e-02 /) - kao(:, 5, 4,11) = (/ & - & 0.52100e-03,0.61215e-03,0.73639e-03,0.84868e-03,0.94102e-03, & - & 0.10132e-02,0.10822e-02,0.11303e-02,0.11192e-02 /) - kao(:, 1, 5,11) = (/ & - & 0.44537e-03,0.56415e-03,0.70334e-03,0.81986e-03,0.91737e-03, & - & 0.99505e-03,0.10590e-02,0.11155e-02,0.10855e-02 /) - kao(:, 2, 5,11) = (/ & - & 0.44499e-03,0.56304e-03,0.70021e-03,0.81824e-03,0.91496e-03, & - & 0.99465e-03,0.10577e-02,0.11163e-02,0.10886e-02 /) - kao(:, 3, 5,11) = (/ & - & 0.44481e-03,0.56231e-03,0.69884e-03,0.81557e-03,0.91387e-03, & - & 0.99269e-03,0.10566e-02,0.11154e-02,0.10925e-02 /) - kao(:, 4, 5,11) = (/ & - & 0.44459e-03,0.56155e-03,0.69827e-03,0.81462e-03,0.91145e-03, & - & 0.99105e-03,0.10558e-02,0.11141e-02,0.10950e-02 /) - kao(:, 5, 5,11) = (/ & - & 0.44401e-03,0.56266e-03,0.70342e-03,0.82262e-03,0.92017e-03, & - & 0.10017e-02,0.10686e-02,0.11300e-02,0.11166e-02 /) - kao(:, 1, 6,11) = (/ & - & 0.37714e-03,0.51787e-03,0.66544e-03,0.78793e-03,0.89178e-03, & - & 0.97506e-03,0.10421e-02,0.11072e-02,0.10679e-02 /) - kao(:, 2, 6,11) = (/ & - & 0.37645e-03,0.51719e-03,0.66329e-03,0.78619e-03,0.88946e-03, & - & 0.97613e-03,0.10421e-02,0.11076e-02,0.10727e-02 /) - kao(:, 3, 6,11) = (/ & - & 0.37621e-03,0.51663e-03,0.66248e-03,0.78421e-03,0.88840e-03, & - & 0.97530e-03,0.10423e-02,0.11074e-02,0.10773e-02 /) - kao(:, 4, 6,11) = (/ & - & 0.37625e-03,0.51591e-03,0.66198e-03,0.78342e-03,0.88665e-03, & - & 0.97510e-03,0.10427e-02,0.11065e-02,0.10807e-02 /) - kao(:, 5, 6,11) = (/ & - & 0.37578e-03,0.51583e-03,0.66231e-03,0.78322e-03,0.88597e-03, & - & 0.97458e-03,0.10416e-02,0.11045e-02,0.10828e-02 /) - kao(:, 1, 7,11) = (/ & - & 0.31849e-03,0.47598e-03,0.62784e-03,0.75245e-03,0.86097e-03, & - & 0.95037e-03,0.10228e-02,0.10907e-02,0.10381e-02 /) - kao(:, 2, 7,11) = (/ & - & 0.31748e-03,0.47565e-03,0.62625e-03,0.75127e-03,0.86016e-03, & - & 0.95292e-03,0.10249e-02,0.10924e-02,0.10446e-02 /) - kao(:, 3, 7,11) = (/ & - & 0.31709e-03,0.47527e-03,0.62527e-03,0.75044e-03,0.86086e-03, & - & 0.95398e-03,0.10272e-02,0.10943e-02,0.10513e-02 /) - kao(:, 4, 7,11) = (/ & - & 0.31690e-03,0.47506e-03,0.62534e-03,0.75023e-03,0.86098e-03, & - & 0.95576e-03,0.10298e-02,0.10956e-02,0.10570e-02 /) - kao(:, 5, 7,11) = (/ & - & 0.31661e-03,0.47556e-03,0.62564e-03,0.75129e-03,0.86194e-03, & - & 0.95752e-03,0.10312e-02,0.10967e-02,0.10605e-02 /) - kao(:, 1, 8,11) = (/ & - & 0.26920e-03,0.43740e-03,0.58907e-03,0.71604e-03,0.82585e-03, & - & 0.92017e-03,0.99828e-03,0.10677e-02,0.99191e-03 /) - kao(:, 2, 8,11) = (/ & - & 0.26802e-03,0.43738e-03,0.58846e-03,0.71590e-03,0.82753e-03, & - & 0.92484e-03,0.10036e-02,0.10726e-02,0.10010e-02 /) - kao(:, 3, 8,11) = (/ & - & 0.26738e-03,0.43742e-03,0.58827e-03,0.71679e-03,0.83051e-03, & - & 0.92821e-03,0.10079e-02,0.10772e-02,0.10102e-02 /) - kao(:, 4, 8,11) = (/ & - & 0.26701e-03,0.43751e-03,0.58933e-03,0.71793e-03,0.83304e-03, & - & 0.93190e-03,0.10124e-02,0.10810e-02,0.10188e-02 /) - kao(:, 5, 8,11) = (/ & - & 0.26686e-03,0.43824e-03,0.58999e-03,0.72050e-03,0.83607e-03, & - & 0.93581e-03,0.10160e-02,0.10848e-02,0.10263e-02 /) - kao(:, 1, 9,11) = (/ & - & 0.22904e-03,0.40123e-03,0.55115e-03,0.67712e-03,0.78732e-03, & - & 0.88313e-03,0.96568e-03,0.10387e-02,0.14403e-04 /) - kao(:, 2, 9,11) = (/ & - & 0.22775e-03,0.40129e-03,0.55155e-03,0.67918e-03,0.79168e-03, & - & 0.89045e-03,0.97356e-03,0.10468e-02,0.17396e-04 /) - kao(:, 3, 9,11) = (/ & - & 0.22691e-03,0.40187e-03,0.55239e-03,0.68238e-03,0.79664e-03, & - & 0.89641e-03,0.98013e-03,0.10538e-02,0.17983e-04 /) - kao(:, 4, 9,11) = (/ & - & 0.22637e-03,0.40220e-03,0.55452e-03,0.68525e-03,0.80145e-03, & - & 0.90223e-03,0.98673e-03,0.10599e-02,0.14884e-04 /) - kao(:, 5, 9,11) = (/ & - & 0.22595e-03,0.40316e-03,0.55613e-03,0.68950e-03,0.80623e-03, & - & 0.90849e-03,0.99244e-03,0.10655e-02,0.19485e-04 /) - kao(:, 1,10,11) = (/ & - & 0.19610e-03,0.36707e-03,0.51305e-03,0.63612e-03,0.74337e-03, & - & 0.83875e-03,0.92458e-03,0.10007e-02,0.30583e-04 /) - kao(:, 2,10,11) = (/ & - & 0.19499e-03,0.36759e-03,0.51501e-03,0.64066e-03,0.75082e-03, & - & 0.84853e-03,0.93443e-03,0.10117e-02,0.20484e-04 /) - kao(:, 3,10,11) = (/ & - & 0.19427e-03,0.36886e-03,0.51745e-03,0.64625e-03,0.75815e-03, & - & 0.85733e-03,0.94303e-03,0.10217e-02,0.20784e-04 /) - kao(:, 4,10,11) = (/ & - & 0.19367e-03,0.36958e-03,0.52106e-03,0.65093e-03,0.76545e-03, & - & 0.86571e-03,0.95244e-03,0.10301e-02,0.30511e-04 /) - kao(:, 5,10,11) = (/ & - & 0.19319e-03,0.37098e-03,0.52409e-03,0.65675e-03,0.77258e-03, & - & 0.87491e-03,0.96110e-03,0.10378e-02,0.19883e-04 /) - kao(:, 1,11,11) = (/ & - & 0.16767e-03,0.33624e-03,0.47635e-03,0.59543e-03,0.70301e-03, & - & 0.79872e-03,0.88652e-03,0.96550e-03,0.27483e-04 /) - kao(:, 2,11,11) = (/ & - & 0.16687e-03,0.33764e-03,0.48055e-03,0.60283e-03,0.71186e-03, & - & 0.80978e-03,0.89673e-03,0.97758e-03,0.20639e-04 /) - kao(:, 3,11,11) = (/ & - & 0.16664e-03,0.33942e-03,0.48524e-03,0.60962e-03,0.72075e-03, & - & 0.81953e-03,0.90753e-03,0.98729e-03,0.27689e-04 /) - kao(:, 4,11,11) = (/ & - & 0.16611e-03,0.34104e-03,0.48994e-03,0.61708e-03,0.72992e-03, & - & 0.83047e-03,0.91898e-03,0.99769e-03,0.13719e-04 /) - kao(:, 5,11,11) = (/ & - & 0.16596e-03,0.34313e-03,0.49467e-03,0.62538e-03,0.73960e-03, & - & 0.84171e-03,0.92999e-03,0.10075e-02,0.27137e-04 /) - kao(:, 1,12,11) = (/ & - & 0.14282e-03,0.30890e-03,0.44183e-03,0.55831e-03,0.66503e-03, & - & 0.76077e-03,0.84890e-03,0.93128e-03,0.21228e-04 /) - kao(:, 2,12,11) = (/ & - & 0.14255e-03,0.31125e-03,0.44731e-03,0.56685e-03,0.67491e-03, & - & 0.77277e-03,0.86092e-03,0.94274e-03,0.32331e-04 /) - kao(:, 3,12,11) = (/ & - & 0.14244e-03,0.31334e-03,0.45354e-03,0.57479e-03,0.68552e-03, & - & 0.78420e-03,0.87396e-03,0.95434e-03,0.19978e-06 /) - kao(:, 4,12,11) = (/ & - & 0.14239e-03,0.31614e-03,0.45984e-03,0.58419e-03,0.69607e-03, & - & 0.79750e-03,0.88765e-03,0.96637e-03,0.21475e-04 /) - kao(:, 5,12,11) = (/ & - & 0.14252e-03,0.31876e-03,0.46658e-03,0.59385e-03,0.70775e-03, & - & 0.80986e-03,0.90037e-03,0.97814e-03,0.21476e-04 /) - kao(:, 1,13,11) = (/ & - & 0.12125e-03,0.28444e-03,0.41080e-03,0.52444e-03,0.62932e-03, & - & 0.72481e-03,0.81245e-03,0.89716e-03,0.27405e-04 /) - kao(:, 2,13,11) = (/ & - & 0.12138e-03,0.28788e-03,0.41712e-03,0.53396e-03,0.64078e-03, & - & 0.73819e-03,0.82737e-03,0.91020e-03,0.13699e-04 /) - kao(:, 3,13,11) = (/ & - & 0.12142e-03,0.29086e-03,0.42441e-03,0.54338e-03,0.65260e-03, & - & 0.75224e-03,0.84352e-03,0.92398e-03,0.13820e-04 /) - kao(:, 4,13,11) = (/ & - & 0.12174e-03,0.29430e-03,0.43176e-03,0.55440e-03,0.66546e-03, & - & 0.76738e-03,0.85914e-03,0.93821e-03,0.26505e-06 /) - kao(:, 5,13,11) = (/ & - & 0.12197e-03,0.29750e-03,0.43989e-03,0.56500e-03,0.67844e-03, & - & 0.78071e-03,0.87280e-03,0.95108e-03,0.33764e-06 /) - kao(:, 1, 1,12) = (/ & - & 0.15537e-02,0.13818e-02,0.14273e-02,0.15055e-02,0.15786e-02, & - & 0.16339e-02,0.16467e-02,0.15800e-02,0.16050e-02 /) - kao(:, 2, 1,12) = (/ & - & 0.15485e-02,0.13765e-02,0.14181e-02,0.14978e-02,0.15727e-02, & - & 0.16256e-02,0.16371e-02,0.15728e-02,0.16005e-02 /) - kao(:, 3, 1,12) = (/ & - & 0.15437e-02,0.13722e-02,0.14122e-02,0.14971e-02,0.15752e-02, & - & 0.16261e-02,0.16396e-02,0.15797e-02,0.16209e-02 /) - kao(:, 4, 1,12) = (/ & - & 0.15424e-02,0.13691e-02,0.14015e-02,0.14839e-02,0.15593e-02, & - & 0.16040e-02,0.16150e-02,0.15487e-02,0.15957e-02 /) - kao(:, 5, 1,12) = (/ & - & 0.15425e-02,0.13681e-02,0.13961e-02,0.14766e-02,0.15502e-02, & - & 0.15943e-02,0.16046e-02,0.15376e-02,0.15923e-02 /) - kao(:, 1, 2,12) = (/ & - & 0.14274e-02,0.13101e-02,0.13901e-02,0.14665e-02,0.15597e-02, & - & 0.16365e-02,0.16682e-02,0.16286e-02,0.16381e-02 /) - kao(:, 2, 2,12) = (/ & - & 0.14223e-02,0.13039e-02,0.13828e-02,0.14629e-02,0.15522e-02, & - & 0.16256e-02,0.16567e-02,0.16183e-02,0.16362e-02 /) - kao(:, 3, 2,12) = (/ & - & 0.14195e-02,0.12999e-02,0.13791e-02,0.14641e-02,0.15538e-02, & - & 0.16259e-02,0.16605e-02,0.16235e-02,0.16585e-02 /) - kao(:, 4, 2,12) = (/ & - & 0.14181e-02,0.12958e-02,0.13726e-02,0.14576e-02,0.15447e-02, & - & 0.16149e-02,0.16487e-02,0.16101e-02,0.16540e-02 /) - kao(:, 5, 2,12) = (/ & - & 0.14191e-02,0.12933e-02,0.13650e-02,0.14448e-02,0.15270e-02, & - & 0.15959e-02,0.16273e-02,0.15850e-02,0.16279e-02 /) - kao(:, 1, 3,12) = (/ & - & 0.12975e-02,0.12495e-02,0.13516e-02,0.14440e-02,0.15390e-02, & - & 0.16298e-02,0.16807e-02,0.16634e-02,0.16697e-02 /) - kao(:, 2, 3,12) = (/ & - & 0.12938e-02,0.12434e-02,0.13457e-02,0.14406e-02,0.15301e-02, & - & 0.16196e-02,0.16709e-02,0.16534e-02,0.16671e-02 /) - kao(:, 3, 3,12) = (/ & - & 0.12920e-02,0.12378e-02,0.13412e-02,0.14340e-02,0.15221e-02, & - & 0.16094e-02,0.16610e-02,0.16426e-02,0.16655e-02 /) - kao(:, 4, 3,12) = (/ & - & 0.12905e-02,0.12343e-02,0.13399e-02,0.14335e-02,0.15224e-02, & - & 0.16137e-02,0.16692e-02,0.16519e-02,0.16891e-02 /) - kao(:, 5, 3,12) = (/ & - & 0.12916e-02,0.12305e-02,0.13333e-02,0.14197e-02,0.15049e-02, & - & 0.15945e-02,0.16481e-02,0.16282e-02,0.16593e-02 /) - kao(:, 1, 4,12) = (/ & - & 0.11586e-02,0.11791e-02,0.13059e-02,0.14246e-02,0.15191e-02, & - & 0.16155e-02,0.16888e-02,0.16884e-02,0.16900e-02 /) - kao(:, 2, 4,12) = (/ & - & 0.11563e-02,0.11735e-02,0.13020e-02,0.14191e-02,0.15117e-02, & - & 0.16067e-02,0.16804e-02,0.16804e-02,0.16885e-02 /) - kao(:, 3, 4,12) = (/ & - & 0.11547e-02,0.11684e-02,0.12989e-02,0.14121e-02,0.15049e-02, & - & 0.15986e-02,0.16736e-02,0.16742e-02,0.16864e-02 /) - kao(:, 4, 4,12) = (/ & - & 0.11549e-02,0.11640e-02,0.12947e-02,0.14053e-02,0.14971e-02, & - & 0.15940e-02,0.16690e-02,0.16701e-02,0.16826e-02 /) - kao(:, 5, 4,12) = (/ & - & 0.11568e-02,0.11629e-02,0.12947e-02,0.14048e-02,0.15017e-02, & - & 0.16054e-02,0.16836e-02,0.16886e-02,0.17044e-02 /) - kao(:, 1, 5,12) = (/ & - & 0.10197e-02,0.11002e-02,0.12563e-02,0.13948e-02,0.15048e-02, & - & 0.16026e-02,0.16898e-02,0.17082e-02,0.17013e-02 /) - kao(:, 2, 5,12) = (/ & - & 0.10187e-02,0.10963e-02,0.12532e-02,0.13909e-02,0.14993e-02, & - & 0.15953e-02,0.16843e-02,0.17040e-02,0.16991e-02 /) - kao(:, 3, 5,12) = (/ & - & 0.10179e-02,0.10925e-02,0.12502e-02,0.13858e-02,0.14932e-02, & - & 0.15900e-02,0.16803e-02,0.17019e-02,0.16952e-02 /) - kao(:, 4, 5,12) = (/ & - & 0.10188e-02,0.10896e-02,0.12461e-02,0.13806e-02,0.14878e-02, & - & 0.15873e-02,0.16767e-02,0.17001e-02,0.16925e-02 /) - kao(:, 5, 5,12) = (/ & - & 0.10211e-02,0.10901e-02,0.12464e-02,0.13834e-02,0.14970e-02, & - & 0.16026e-02,0.16952e-02,0.17210e-02,0.17180e-02 /) - kao(:, 1, 6,12) = (/ & - & 0.88455e-03,0.10185e-02,0.12021e-02,0.13605e-02,0.14894e-02, & - & 0.15922e-02,0.16870e-02,0.17277e-02,0.17006e-02 /) - kao(:, 2, 6,12) = (/ & - & 0.88487e-03,0.10158e-02,0.12001e-02,0.13587e-02,0.14854e-02, & - & 0.15856e-02,0.16819e-02,0.17253e-02,0.17001e-02 /) - kao(:, 3, 6,12) = (/ & - & 0.88512e-03,0.10136e-02,0.11981e-02,0.13544e-02,0.14820e-02, & - & 0.15811e-02,0.16785e-02,0.17233e-02,0.16989e-02 /) - kao(:, 4, 6,12) = (/ & - & 0.88698e-03,0.10127e-02,0.11948e-02,0.13505e-02,0.14784e-02, & - & 0.15789e-02,0.16749e-02,0.17211e-02,0.16988e-02 /) - kao(:, 5, 6,12) = (/ & - & 0.88923e-03,0.10128e-02,0.11919e-02,0.13468e-02,0.14756e-02, & - & 0.15764e-02,0.16734e-02,0.17190e-02,0.16990e-02 /) - kao(:, 1, 7,12) = (/ & - & 0.75937e-03,0.93876e-03,0.11443e-02,0.13228e-02,0.14681e-02, & - & 0.15807e-02,0.16771e-02,0.17403e-02,0.16920e-02 /) - kao(:, 2, 7,12) = (/ & - & 0.75998e-03,0.93770e-03,0.11447e-02,0.13222e-02,0.14656e-02, & - & 0.15751e-02,0.16722e-02,0.17374e-02,0.16943e-02 /) - kao(:, 3, 7,12) = (/ & - & 0.76057e-03,0.93698e-03,0.11442e-02,0.13192e-02,0.14630e-02, & - & 0.15711e-02,0.16684e-02,0.17351e-02,0.16966e-02 /) - kao(:, 4, 7,12) = (/ & - & 0.76306e-03,0.93700e-03,0.11417e-02,0.13175e-02,0.14605e-02, & - & 0.15679e-02,0.16649e-02,0.17327e-02,0.16998e-02 /) - kao(:, 5, 7,12) = (/ & - & 0.76563e-03,0.93740e-03,0.11401e-02,0.13155e-02,0.14583e-02, & - & 0.15655e-02,0.16637e-02,0.17306e-02,0.17045e-02 /) - kao(:, 1, 8,12) = (/ & - & 0.64586e-03,0.86421e-03,0.10884e-02,0.12806e-02,0.14383e-02, & - & 0.15636e-02,0.16605e-02,0.17434e-02,0.16711e-02 /) - kao(:, 2, 8,12) = (/ & - & 0.64665e-03,0.86473e-03,0.10896e-02,0.12820e-02,0.14363e-02, & - & 0.15592e-02,0.16561e-02,0.17403e-02,0.16771e-02 /) - kao(:, 3, 8,12) = (/ & - & 0.64816e-03,0.86506e-03,0.10903e-02,0.12802e-02,0.14357e-02, & - & 0.15554e-02,0.16529e-02,0.17367e-02,0.16846e-02 /) - kao(:, 4, 8,12) = (/ & - & 0.65115e-03,0.86561e-03,0.10893e-02,0.12797e-02,0.14336e-02, & - & 0.15533e-02,0.16505e-02,0.17349e-02,0.16920e-02 /) - kao(:, 5, 8,12) = (/ & - & 0.65335e-03,0.86692e-03,0.10897e-02,0.12788e-02,0.14323e-02, & - & 0.15519e-02,0.16494e-02,0.17328e-02,0.17005e-02 /) - kao(:, 1, 9,12) = (/ & - & 0.54495e-03,0.79374e-03,0.10331e-02,0.12325e-02,0.13999e-02, & - & 0.15343e-02,0.16359e-02,0.17304e-02,0.88289e-03 /) - kao(:, 2, 9,12) = (/ & - & 0.54631e-03,0.79621e-03,0.10351e-02,0.12356e-02,0.13999e-02, & - & 0.15332e-02,0.16343e-02,0.17287e-02,0.90009e-03 /) - kao(:, 3, 9,12) = (/ & - & 0.54838e-03,0.79738e-03,0.10366e-02,0.12358e-02,0.14008e-02, & - & 0.15312e-02,0.16325e-02,0.17267e-02,0.91715e-03 /) - kao(:, 4, 9,12) = (/ & - & 0.55103e-03,0.79925e-03,0.10373e-02,0.12370e-02,0.14003e-02, & - & 0.15313e-02,0.16317e-02,0.17265e-02,0.93948e-03 /) - kao(:, 5, 9,12) = (/ & - & 0.55358e-03,0.80158e-03,0.10391e-02,0.12370e-02,0.14008e-02, & - & 0.15320e-02,0.16328e-02,0.17271e-02,0.97099e-03 /) - kao(:, 1,10,12) = (/ & - & 0.45828e-03,0.73128e-03,0.97725e-03,0.11801e-02,0.13541e-02, & - & 0.14966e-02,0.16059e-02,0.17081e-02,0.25261e-04 /) - kao(:, 2,10,12) = (/ & - & 0.45994e-03,0.73433e-03,0.98047e-03,0.11852e-02,0.13571e-02, & - & 0.14993e-02,0.16071e-02,0.17093e-02,0.32778e-04 /) - kao(:, 3,10,12) = (/ & - & 0.46172e-03,0.73698e-03,0.98332e-03,0.11877e-02,0.13607e-02, & - & 0.15001e-02,0.16089e-02,0.17098e-02,0.30108e-04 /) - kao(:, 4,10,12) = (/ & - & 0.46419e-03,0.73967e-03,0.98568e-03,0.11903e-02,0.13620e-02, & - & 0.15042e-02,0.16117e-02,0.17131e-02,0.14814e-04 /) - kao(:, 5,10,12) = (/ & - & 0.46710e-03,0.74287e-03,0.98852e-03,0.11927e-02,0.13653e-02, & - & 0.15080e-02,0.16153e-02,0.17174e-02,0.18206e-04 /) - kao(:, 1,11,12) = (/ & - & 0.38711e-03,0.67660e-03,0.92352e-03,0.11285e-02,0.13042e-02, & - & 0.14533e-02,0.15680e-02,0.16768e-02,0.35375e-04 /) - kao(:, 2,11,12) = (/ & - & 0.38827e-03,0.68076e-03,0.92811e-03,0.11355e-02,0.13110e-02, & - & 0.14578e-02,0.15732e-02,0.16802e-02,0.17785e-04 /) - kao(:, 3,11,12) = (/ & - & 0.39017e-03,0.68339e-03,0.93243e-03,0.11404e-02,0.13179e-02, & - & 0.14648e-02,0.15809e-02,0.16870e-02,0.17310e-04 /) - kao(:, 4,11,12) = (/ & - & 0.39259e-03,0.68706e-03,0.93609e-03,0.11451e-02,0.13243e-02, & - & 0.14746e-02,0.15892e-02,0.16958e-02,0.17795e-04 /) - kao(:, 5,11,12) = (/ & - & 0.39544e-03,0.69011e-03,0.94016e-03,0.11496e-02,0.13318e-02, & - & 0.14825e-02,0.15980e-02,0.17052e-02,0.87581e-05 /) - kao(:, 1,12,12) = (/ & - & 0.32882e-03,0.62658e-03,0.87124e-03,0.10770e-02,0.12526e-02, & - & 0.14042e-02,0.15246e-02,0.16367e-02,0.13823e-04 /) - kao(:, 2,12,12) = (/ & - & 0.33008e-03,0.63068e-03,0.87790e-03,0.10857e-02,0.12638e-02, & - & 0.14155e-02,0.15376e-02,0.16473e-02,0.27356e-04 /) - kao(:, 3,12,12) = (/ & - & 0.33191e-03,0.63479e-03,0.88401e-03,0.10939e-02,0.12749e-02, & - & 0.14298e-02,0.15521e-02,0.16615e-02,0.26924e-04 /) - kao(:, 4,12,12) = (/ & - & 0.33384e-03,0.63914e-03,0.88945e-03,0.11023e-02,0.12871e-02, & - & 0.14439e-02,0.15651e-02,0.16755e-02,0.13486e-04 /) - kao(:, 5,12,12) = (/ & - & 0.33630e-03,0.64288e-03,0.89554e-03,0.11106e-02,0.12985e-02, & - & 0.14567e-02,0.15792e-02,0.16910e-02,0.54470e-04 /) - kao(:, 1,13,12) = (/ & - & 0.28179e-03,0.58039e-03,0.82131e-03,0.10258e-02,0.12001e-02, & - & 0.13522e-02,0.14762e-02,0.15892e-02,0.17365e-04 /) - kao(:, 2,13,12) = (/ & - & 0.28322e-03,0.58517e-03,0.83048e-03,0.10376e-02,0.12180e-02, & - & 0.13721e-02,0.14980e-02,0.16092e-02,0.19167e-10 /) - kao(:, 3,13,12) = (/ & - & 0.28449e-03,0.59004e-03,0.83867e-03,0.10495e-02,0.12349e-02, & - & 0.13937e-02,0.15189e-02,0.16302e-02,0.17686e-04 /) - kao(:, 4,13,12) = (/ & - & 0.28623e-03,0.59506e-03,0.84661e-03,0.10616e-02,0.12511e-02, & - & 0.14124e-02,0.15380e-02,0.16505e-02,0.27174e-10 /) - kao(:, 5,13,12) = (/ & - & 0.28834e-03,0.60000e-03,0.85510e-03,0.10735e-02,0.12664e-02, & - & 0.14298e-02,0.15583e-02,0.16724e-02,0.30930e-10 /) - kao(:, 1, 1,13) = (/ & - & 0.39229e-02,0.34326e-02,0.30162e-02,0.28699e-02,0.28381e-02, & - & 0.27734e-02,0.26260e-02,0.23062e-02,0.25522e-02 /) - kao(:, 2, 1,13) = (/ & - & 0.39213e-02,0.34310e-02,0.30108e-02,0.28565e-02,0.28216e-02, & - & 0.27552e-02,0.26075e-02,0.22956e-02,0.25296e-02 /) - kao(:, 3, 1,13) = (/ & - & 0.39180e-02,0.34283e-02,0.30095e-02,0.28490e-02,0.28140e-02, & - & 0.27516e-02,0.26057e-02,0.23031e-02,0.25320e-02 /) - kao(:, 4, 1,13) = (/ & - & 0.39161e-02,0.34265e-02,0.30039e-02,0.28320e-02,0.27864e-02, & - & 0.27263e-02,0.25779e-02,0.22767e-02,0.24834e-02 /) - kao(:, 5, 1,13) = (/ & - & 0.39129e-02,0.34239e-02,0.29985e-02,0.28202e-02,0.27725e-02, & - & 0.27107e-02,0.25647e-02,0.22654e-02,0.24632e-02 /) - kao(:, 1, 2,13) = (/ & - & 0.35717e-02,0.31250e-02,0.28583e-02,0.28716e-02,0.28885e-02, & - & 0.28569e-02,0.27419e-02,0.24528e-02,0.26589e-02 /) - kao(:, 2, 2,13) = (/ & - & 0.35704e-02,0.31241e-02,0.28509e-02,0.28521e-02,0.28717e-02, & - & 0.28411e-02,0.27277e-02,0.24440e-02,0.26352e-02 /) - kao(:, 3, 2,13) = (/ & - & 0.35692e-02,0.31228e-02,0.28479e-02,0.28438e-02,0.28636e-02, & - & 0.28419e-02,0.27327e-02,0.24542e-02,0.26382e-02 /) - kao(:, 4, 2,13) = (/ & - & 0.35651e-02,0.31194e-02,0.28382e-02,0.28288e-02,0.28472e-02, & - & 0.28288e-02,0.27211e-02,0.24428e-02,0.26140e-02 /) - kao(:, 5, 2,13) = (/ & - & 0.35614e-02,0.31162e-02,0.28280e-02,0.28080e-02,0.28270e-02, & - & 0.28018e-02,0.26919e-02,0.24122e-02,0.25721e-02 /) - kao(:, 1, 3,13) = (/ & - & 0.32370e-02,0.28408e-02,0.27429e-02,0.28459e-02,0.29107e-02, & - & 0.29163e-02,0.28452e-02,0.26013e-02,0.27589e-02 /) - kao(:, 2, 3,13) = (/ & - & 0.32378e-02,0.28409e-02,0.27346e-02,0.28282e-02,0.28967e-02, & - & 0.29036e-02,0.28357e-02,0.25912e-02,0.27381e-02 /) - kao(:, 3, 3,13) = (/ & - & 0.32344e-02,0.28366e-02,0.27224e-02,0.28159e-02,0.28824e-02, & - & 0.28940e-02,0.28268e-02,0.25801e-02,0.27164e-02 /) - kao(:, 4, 3,13) = (/ & - & 0.32328e-02,0.28349e-02,0.27139e-02,0.28071e-02,0.28820e-02, & - & 0.28985e-02,0.28328e-02,0.25870e-02,0.27280e-02 /) - kao(:, 5, 3,13) = (/ & - & 0.32337e-02,0.28348e-02,0.27027e-02,0.27877e-02,0.28613e-02, & - & 0.28723e-02,0.28004e-02,0.25498e-02,0.26848e-02 /) - kao(:, 1, 4,13) = (/ & - & 0.29442e-02,0.26158e-02,0.26686e-02,0.28002e-02,0.29074e-02, & - & 0.29569e-02,0.29354e-02,0.27381e-02,0.28491e-02 /) - kao(:, 2, 4,13) = (/ & - & 0.29416e-02,0.26110e-02,0.26570e-02,0.27866e-02,0.28959e-02, & - & 0.29477e-02,0.29295e-02,0.27262e-02,0.28287e-02 /) - kao(:, 3, 4,13) = (/ & - & 0.29392e-02,0.26064e-02,0.26421e-02,0.27765e-02,0.28845e-02, & - & 0.29406e-02,0.29202e-02,0.27107e-02,0.28099e-02 /) - kao(:, 4, 4,13) = (/ & - & 0.29406e-02,0.26055e-02,0.26309e-02,0.27645e-02,0.28769e-02, & - & 0.29312e-02,0.29057e-02,0.26928e-02,0.27972e-02 /) - kao(:, 5, 4,13) = (/ & - & 0.29379e-02,0.26016e-02,0.26230e-02,0.27605e-02,0.28772e-02, & - & 0.29338e-02,0.29114e-02,0.26956e-02,0.28225e-02 /) - kao(:, 1, 5,13) = (/ & - & 0.26861e-02,0.24510e-02,0.26014e-02,0.27478e-02,0.28811e-02, & - & 0.29878e-02,0.30091e-02,0.28610e-02,0.29320e-02 /) - kao(:, 2, 5,13) = (/ & - & 0.26822e-02,0.24426e-02,0.25898e-02,0.27369e-02,0.28725e-02, & - & 0.29815e-02,0.30039e-02,0.28485e-02,0.29157e-02 /) - kao(:, 3, 5,13) = (/ & - & 0.26829e-02,0.24377e-02,0.25766e-02,0.27289e-02,0.28648e-02, & - & 0.29741e-02,0.29940e-02,0.28292e-02,0.29014e-02 /) - kao(:, 4, 5,13) = (/ & - & 0.26816e-02,0.24329e-02,0.25674e-02,0.27192e-02,0.28602e-02, & - & 0.29643e-02,0.29808e-02,0.28105e-02,0.28911e-02 /) - kao(:, 5, 5,13) = (/ & - & 0.26776e-02,0.24242e-02,0.25584e-02,0.27174e-02,0.28631e-02, & - & 0.29690e-02,0.29916e-02,0.28176e-02,0.29253e-02 /) - kao(:, 1, 6,13) = (/ & - & 0.24590e-02,0.23376e-02,0.25355e-02,0.26945e-02,0.28553e-02, & - & 0.29996e-02,0.30574e-02,0.29544e-02,0.30033e-02 /) - kao(:, 2, 6,13) = (/ & - & 0.24565e-02,0.23281e-02,0.25242e-02,0.26862e-02,0.28495e-02, & - & 0.29966e-02,0.30559e-02,0.29459e-02,0.29901e-02 /) - kao(:, 3, 6,13) = (/ & - & 0.24594e-02,0.23224e-02,0.25135e-02,0.26796e-02,0.28441e-02, & - & 0.29914e-02,0.30494e-02,0.29315e-02,0.29796e-02 /) - kao(:, 4, 6,13) = (/ & - & 0.24561e-02,0.23120e-02,0.25070e-02,0.26723e-02,0.28398e-02, & - & 0.29830e-02,0.30431e-02,0.29165e-02,0.29718e-02 /) - kao(:, 5, 6,13) = (/ & - & 0.24544e-02,0.23009e-02,0.24971e-02,0.26678e-02,0.28335e-02, & - & 0.29758e-02,0.30342e-02,0.29019e-02,0.29654e-02 /) - kao(:, 1, 7,13) = (/ & - & 0.22277e-02,0.22296e-02,0.24669e-02,0.26497e-02,0.28285e-02, & - & 0.29885e-02,0.30855e-02,0.30292e-02,0.30616e-02 /) - kao(:, 2, 7,13) = (/ & - & 0.22293e-02,0.22219e-02,0.24569e-02,0.26437e-02,0.28247e-02, & - & 0.29924e-02,0.30879e-02,0.30266e-02,0.30510e-02 /) - kao(:, 3, 7,13) = (/ & - & 0.22351e-02,0.22176e-02,0.24495e-02,0.26382e-02,0.28222e-02, & - & 0.29913e-02,0.30877e-02,0.30175e-02,0.30415e-02 /) - kao(:, 4, 7,13) = (/ & - & 0.22344e-02,0.22079e-02,0.24453e-02,0.26324e-02,0.28192e-02, & - & 0.29887e-02,0.30862e-02,0.30074e-02,0.30342e-02 /) - kao(:, 5, 7,13) = (/ & - & 0.22361e-02,0.21982e-02,0.24378e-02,0.26291e-02,0.28143e-02, & - & 0.29850e-02,0.30822e-02,0.29969e-02,0.30270e-02 /) - kao(:, 1, 8,13) = (/ & - & 0.19878e-02,0.21080e-02,0.23886e-02,0.26087e-02,0.27952e-02, & - & 0.29676e-02,0.31003e-02,0.30904e-02,0.31018e-02 /) - kao(:, 2, 8,13) = (/ & - & 0.19936e-02,0.21034e-02,0.23825e-02,0.26049e-02,0.27978e-02, & - & 0.29755e-02,0.31107e-02,0.30954e-02,0.30940e-02 /) - kao(:, 3, 8,13) = (/ & - & 0.20012e-02,0.21016e-02,0.23778e-02,0.26010e-02,0.27982e-02, & - & 0.29815e-02,0.31166e-02,0.30929e-02,0.30865e-02 /) - kao(:, 4, 8,13) = (/ & - & 0.20034e-02,0.20960e-02,0.23764e-02,0.25979e-02,0.27992e-02, & - & 0.29823e-02,0.31192e-02,0.30868e-02,0.30812e-02 /) - kao(:, 5, 8,13) = (/ & - & 0.20095e-02,0.20891e-02,0.23711e-02,0.25960e-02,0.27964e-02, & - & 0.29828e-02,0.31181e-02,0.30806e-02,0.30733e-02 /) - kao(:, 1, 9,13) = (/ & - & 0.17523e-02,0.19789e-02,0.23024e-02,0.25572e-02,0.27629e-02, & - & 0.29479e-02,0.31085e-02,0.31444e-02,0.30417e-02 /) - kao(:, 2, 9,13) = (/ & - & 0.17607e-02,0.19777e-02,0.23013e-02,0.25587e-02,0.27691e-02, & - & 0.29613e-02,0.31227e-02,0.31535e-02,0.30346e-02 /) - kao(:, 3, 9,13) = (/ & - & 0.17693e-02,0.19800e-02,0.23011e-02,0.25605e-02,0.27739e-02, & - & 0.29714e-02,0.31329e-02,0.31549e-02,0.30299e-02 /) - kao(:, 4, 9,13) = (/ & - & 0.17751e-02,0.19773e-02,0.23025e-02,0.25606e-02,0.27770e-02, & - & 0.29770e-02,0.31405e-02,0.31532e-02,0.30280e-02 /) - kao(:, 5, 9,13) = (/ & - & 0.17845e-02,0.19738e-02,0.23006e-02,0.25633e-02,0.27766e-02, & - & 0.29802e-02,0.31452e-02,0.31517e-02,0.30317e-02 /) - kao(:, 1,10,13) = (/ & - & 0.15244e-02,0.18437e-02,0.22100e-02,0.24972e-02,0.27331e-02, & - & 0.29304e-02,0.31059e-02,0.31844e-02,0.23817e-04 /) - kao(:, 2,10,13) = (/ & - & 0.15360e-02,0.18467e-02,0.22145e-02,0.25068e-02,0.27437e-02, & - & 0.29473e-02,0.31260e-02,0.31986e-02,0.12454e-04 /) - kao(:, 3,10,13) = (/ & - & 0.15476e-02,0.18512e-02,0.22181e-02,0.25119e-02,0.27538e-02, & - & 0.29593e-02,0.31389e-02,0.32042e-02,0.30814e-04 /) - kao(:, 4,10,13) = (/ & - & 0.15571e-02,0.18528e-02,0.22235e-02,0.25174e-02,0.27591e-02, & - & 0.29666e-02,0.31497e-02,0.32063e-02,0.11698e-04 /) - kao(:, 5,10,13) = (/ & - & 0.15695e-02,0.18534e-02,0.22262e-02,0.25236e-02,0.27611e-02, & - & 0.29733e-02,0.31600e-02,0.32093e-02,0.22330e-04 /) - kao(:, 1,11,13) = (/ & - & 0.13188e-02,0.17123e-02,0.21150e-02,0.24398e-02,0.27060e-02, & - & 0.29190e-02,0.31061e-02,0.32197e-02,0.11689e-04 /) - kao(:, 2,11,13) = (/ & - & 0.13341e-02,0.17189e-02,0.21240e-02,0.24532e-02,0.27222e-02, & - & 0.29371e-02,0.31262e-02,0.32338e-02,0.11845e-04 /) - kao(:, 3,11,13) = (/ & - & 0.13447e-02,0.17274e-02,0.21339e-02,0.24651e-02,0.27343e-02, & - & 0.29498e-02,0.31430e-02,0.32440e-02,0.24255e-04 /) - kao(:, 4,11,13) = (/ & - & 0.13578e-02,0.17324e-02,0.21454e-02,0.24765e-02,0.27400e-02, & - & 0.29585e-02,0.31579e-02,0.32502e-02,0.35648e-04 /) - kao(:, 5,11,13) = (/ & - & 0.13715e-02,0.17394e-02,0.21518e-02,0.24842e-02,0.27436e-02, & - & 0.29689e-02,0.31719e-02,0.32570e-02,0.48216e-04 /) - kao(:, 1,12,13) = (/ & - & 0.11367e-02,0.15942e-02,0.20255e-02,0.23827e-02,0.26757e-02, & - & 0.29001e-02,0.30944e-02,0.32386e-02,0.48616e-12 /) - kao(:, 2,12,13) = (/ & - & 0.11495e-02,0.16057e-02,0.20405e-02,0.24019e-02,0.26965e-02, & - & 0.29177e-02,0.31160e-02,0.32553e-02,0.63803e-12 /) - kao(:, 3,12,13) = (/ & - & 0.11626e-02,0.16147e-02,0.20558e-02,0.24193e-02,0.27102e-02, & - & 0.29330e-02,0.31363e-02,0.32673e-02,0.18451e-04 /) - kao(:, 4,12,13) = (/ & - & 0.11784e-02,0.16224e-02,0.20681e-02,0.24334e-02,0.27187e-02, & - & 0.29473e-02,0.31560e-02,0.32789e-02,0.93725e-12 /) - kao(:, 5,12,13) = (/ & - & 0.11935e-02,0.16327e-02,0.20790e-02,0.24438e-02,0.27275e-02, & - & 0.29614e-02,0.31756e-02,0.32901e-02,0.36773e-04 /) - kao(:, 1,13,13) = (/ & - & 0.97386e-03,0.14865e-02,0.19422e-02,0.23265e-02,0.26377e-02, & - & 0.28742e-02,0.30758e-02,0.32440e-02,0.42838e-12 /) - kao(:, 2,13,13) = (/ & - & 0.98704e-03,0.15018e-02,0.19617e-02,0.23518e-02,0.26608e-02, & - & 0.28955e-02,0.31025e-02,0.32660e-02,0.54956e-12 /) - kao(:, 3,13,13) = (/ & - & 0.10034e-02,0.15127e-02,0.19822e-02,0.23722e-02,0.26791e-02, & - & 0.29131e-02,0.31272e-02,0.32827e-02,0.68281e-12 /) - kao(:, 4,13,13) = (/ & - & 0.10185e-02,0.15248e-02,0.19990e-02,0.23896e-02,0.26942e-02, & - & 0.29331e-02,0.31525e-02,0.33003e-02,0.47348e-04 /) - kao(:, 5,13,13) = (/ & - & 0.10353e-02,0.15370e-02,0.20122e-02,0.24032e-02,0.27096e-02, & - & 0.29526e-02,0.31774e-02,0.33154e-02,0.94094e-12 /) - kao(:, 1, 1,14) = (/ & - & 0.11127e-01,0.97365e-02,0.83450e-02,0.69546e-02,0.57518e-02, & - & 0.48972e-02,0.42517e-02,0.34771e-02,0.44616e-02 /) - kao(:, 2, 1,14) = (/ & - & 0.11168e-01,0.97719e-02,0.83762e-02,0.69801e-02,0.57613e-02, & - & 0.48914e-02,0.42324e-02,0.34356e-02,0.44183e-02 /) - kao(:, 3, 1,14) = (/ & - & 0.11206e-01,0.98061e-02,0.84051e-02,0.70040e-02,0.57786e-02, & - & 0.48973e-02,0.42300e-02,0.34167e-02,0.44088e-02 /) - kao(:, 4, 1,14) = (/ & - & 0.11230e-01,0.98265e-02,0.84228e-02,0.70190e-02,0.57794e-02, & - & 0.48702e-02,0.41927e-02,0.33658e-02,0.43365e-02 /) - kao(:, 5, 1,14) = (/ & - & 0.11247e-01,0.98411e-02,0.84348e-02,0.70292e-02,0.57800e-02, & - & 0.48600e-02,0.41735e-02,0.33367e-02,0.43003e-02 /) - kao(:, 1, 2,14) = (/ & - & 0.11360e-01,0.99403e-02,0.85204e-02,0.71449e-02,0.60754e-02, & - & 0.53678e-02,0.47333e-02,0.38804e-02,0.48459e-02 /) - kao(:, 2, 2,14) = (/ & - & 0.11402e-01,0.99768e-02,0.85517e-02,0.71687e-02,0.60816e-02, & - & 0.53522e-02,0.47062e-02,0.38343e-02,0.48034e-02 /) - kao(:, 3, 2,14) = (/ & - & 0.11432e-01,0.10003e-01,0.85744e-02,0.71872e-02,0.60934e-02, & - & 0.53498e-02,0.46968e-02,0.38177e-02,0.48004e-02 /) - kao(:, 4, 2,14) = (/ & - & 0.11460e-01,0.10028e-01,0.85956e-02,0.72000e-02,0.60909e-02, & - & 0.53282e-02,0.46686e-02,0.37852e-02,0.47598e-02 /) - kao(:, 5, 2,14) = (/ & - & 0.11484e-01,0.10049e-01,0.86132e-02,0.72108e-02,0.60794e-02, & - & 0.52951e-02,0.46284e-02,0.37347e-02,0.46895e-02 /) - kao(:, 1, 3,14) = (/ & - & 0.11375e-01,0.99535e-02,0.85318e-02,0.72748e-02,0.63965e-02, & - & 0.58374e-02,0.52215e-02,0.43002e-02,0.52258e-02 /) - kao(:, 2, 3,14) = (/ & - & 0.11412e-01,0.99855e-02,0.85592e-02,0.72909e-02,0.63926e-02, & - & 0.58142e-02,0.51838e-02,0.42530e-02,0.51857e-02 /) - kao(:, 3, 3,14) = (/ & - & 0.11451e-01,0.10019e-01,0.85873e-02,0.73027e-02,0.63856e-02, & - & 0.57886e-02,0.51485e-02,0.42153e-02,0.51479e-02 /) - kao(:, 4, 3,14) = (/ & - & 0.11483e-01,0.10047e-01,0.86122e-02,0.73190e-02,0.63840e-02, & - & 0.57742e-02,0.51342e-02,0.42027e-02,0.51482e-02 /) - kao(:, 5, 3,14) = (/ & - & 0.11512e-01,0.10073e-01,0.86339e-02,0.73301e-02,0.63706e-02, & - & 0.57344e-02,0.50899e-02,0.41496e-02,0.50782e-02 /) - kao(:, 1, 4,14) = (/ & - & 0.11149e-01,0.97560e-02,0.83906e-02,0.73568e-02,0.67050e-02, & - & 0.62789e-02,0.56809e-02,0.47244e-02,0.55742e-02 /) - kao(:, 2, 4,14) = (/ & - & 0.11201e-01,0.98016e-02,0.84237e-02,0.73684e-02,0.66927e-02, & - & 0.62506e-02,0.56398e-02,0.46775e-02,0.55381e-02 /) - kao(:, 3, 4,14) = (/ & - & 0.11250e-01,0.98437e-02,0.84576e-02,0.73794e-02,0.66793e-02, & - & 0.62192e-02,0.56018e-02,0.46402e-02,0.55028e-02 /) - kao(:, 4, 4,14) = (/ & - & 0.11293e-01,0.98814e-02,0.84883e-02,0.73928e-02,0.66658e-02, & - & 0.61879e-02,0.55699e-02,0.46073e-02,0.54669e-02 /) - kao(:, 5, 4,14) = (/ & - & 0.11341e-01,0.99237e-02,0.85206e-02,0.74085e-02,0.66636e-02, & - & 0.61710e-02,0.55548e-02,0.45934e-02,0.54646e-02 /) - kao(:, 1, 5,14) = (/ & - & 0.10704e-01,0.93660e-02,0.81568e-02,0.74021e-02,0.69945e-02, & - & 0.66654e-02,0.61172e-02,0.51470e-02,0.58967e-02 /) - kao(:, 2, 5,14) = (/ & - & 0.10771e-01,0.94250e-02,0.81953e-02,0.74101e-02,0.69769e-02, & - & 0.66347e-02,0.60743e-02,0.50992e-02,0.58616e-02 /) - kao(:, 3, 5,14) = (/ & - & 0.10834e-01,0.94795e-02,0.82348e-02,0.74202e-02,0.69586e-02, & - & 0.66047e-02,0.60376e-02,0.50623e-02,0.58279e-02 /) - kao(:, 4, 5,14) = (/ & - & 0.10899e-01,0.95365e-02,0.82726e-02,0.74343e-02,0.69400e-02, & - & 0.65760e-02,0.60076e-02,0.50289e-02,0.57953e-02 /) - kao(:, 5, 5,14) = (/ & - & 0.10965e-01,0.95941e-02,0.83123e-02,0.74464e-02,0.69292e-02, & - & 0.65626e-02,0.59940e-02,0.50178e-02,0.57938e-02 /) - kao(:, 1, 6,14) = (/ & - & 0.10078e-01,0.88178e-02,0.78666e-02,0.74112e-02,0.72308e-02, & - & 0.70100e-02,0.65312e-02,0.55779e-02,0.62140e-02 /) - kao(:, 2, 6,14) = (/ & - & 0.10161e-01,0.88906e-02,0.79113e-02,0.74185e-02,0.72160e-02, & - & 0.69843e-02,0.64888e-02,0.55247e-02,0.61818e-02 /) - kao(:, 3, 6,14) = (/ & - & 0.10243e-01,0.89616e-02,0.79583e-02,0.74318e-02,0.71999e-02, & - & 0.69579e-02,0.64523e-02,0.54833e-02,0.61492e-02 /) - kao(:, 4, 6,14) = (/ & - & 0.10327e-01,0.90374e-02,0.79989e-02,0.74443e-02,0.71832e-02, & - & 0.69350e-02,0.64210e-02,0.54479e-02,0.61172e-02 /) - kao(:, 5, 6,14) = (/ & - & 0.10409e-01,0.91075e-02,0.80421e-02,0.74489e-02,0.71645e-02, & - & 0.69118e-02,0.63952e-02,0.54129e-02,0.60849e-02 /) - kao(:, 1, 7,14) = (/ & - & 0.93799e-02,0.82246e-02,0.75645e-02,0.73983e-02,0.74124e-02, & - & 0.73054e-02,0.69103e-02,0.59986e-02,0.65205e-02 /) - kao(:, 2, 7,14) = (/ & - & 0.94746e-02,0.83048e-02,0.76105e-02,0.74041e-02,0.74008e-02, & - & 0.72835e-02,0.68745e-02,0.59435e-02,0.64911e-02 /) - kao(:, 3, 7,14) = (/ & - & 0.95665e-02,0.83814e-02,0.76560e-02,0.74150e-02,0.73885e-02, & - & 0.72645e-02,0.68399e-02,0.59000e-02,0.64612e-02 /) - kao(:, 4, 7,14) = (/ & - & 0.96610e-02,0.84615e-02,0.76953e-02,0.74218e-02,0.73786e-02, & - & 0.72467e-02,0.68110e-02,0.58618e-02,0.64309e-02 /) - kao(:, 5, 7,14) = (/ & - & 0.97576e-02,0.85445e-02,0.77428e-02,0.74271e-02,0.73666e-02, & - & 0.72295e-02,0.67856e-02,0.58248e-02,0.64018e-02 /) - kao(:, 1, 8,14) = (/ & - & 0.86695e-02,0.76539e-02,0.72832e-02,0.73811e-02,0.75539e-02, & - & 0.75395e-02,0.72391e-02,0.63979e-02,0.68067e-02 /) - kao(:, 2, 8,14) = (/ & - & 0.87714e-02,0.77350e-02,0.73260e-02,0.73889e-02,0.75481e-02, & - & 0.75307e-02,0.72059e-02,0.63386e-02,0.67797e-02 /) - kao(:, 3, 8,14) = (/ & - & 0.88648e-02,0.78065e-02,0.73635e-02,0.73928e-02,0.75428e-02, & - & 0.75176e-02,0.71786e-02,0.62948e-02,0.67512e-02 /) - kao(:, 4, 8,14) = (/ & - & 0.89696e-02,0.78903e-02,0.74008e-02,0.73947e-02,0.75364e-02, & - & 0.75091e-02,0.71562e-02,0.62573e-02,0.67249e-02 /) - kao(:, 5, 8,14) = (/ & - & 0.90827e-02,0.79827e-02,0.74524e-02,0.74004e-02,0.75307e-02, & - & 0.75004e-02,0.71406e-02,0.62196e-02,0.66995e-02 /) - kao(:, 1, 9,14) = (/ & - & 0.79522e-02,0.71197e-02,0.70358e-02,0.73522e-02,0.76328e-02, & - & 0.77097e-02,0.75175e-02,0.67703e-02,0.70524e-02 /) - kao(:, 2, 9,14) = (/ & - & 0.80598e-02,0.71969e-02,0.70715e-02,0.73653e-02,0.76374e-02, & - & 0.77113e-02,0.74908e-02,0.67151e-02,0.70338e-02 /) - kao(:, 3, 9,14) = (/ & - & 0.81632e-02,0.72678e-02,0.71027e-02,0.73712e-02,0.76458e-02, & - & 0.77123e-02,0.74742e-02,0.66728e-02,0.70182e-02 /) - kao(:, 4, 9,14) = (/ & - & 0.82823e-02,0.73561e-02,0.71392e-02,0.73768e-02,0.76576e-02, & - & 0.77143e-02,0.74622e-02,0.66357e-02,0.69991e-02 /) - kao(:, 5, 9,14) = (/ & - & 0.84105e-02,0.74558e-02,0.71910e-02,0.73874e-02,0.76648e-02, & - & 0.77180e-02,0.74509e-02,0.65977e-02,0.69736e-02 /) - kao(:, 1,10,14) = (/ & - & 0.72630e-02,0.66377e-02,0.68373e-02,0.72984e-02,0.76509e-02, & - & 0.78294e-02,0.77460e-02,0.71207e-02,0.20344e-04 /) - kao(:, 2,10,14) = (/ & - & 0.73671e-02,0.67055e-02,0.68587e-02,0.73198e-02,0.76710e-02, & - & 0.78437e-02,0.77323e-02,0.70655e-02,0.20564e-04 /) - kao(:, 3,10,14) = (/ & - & 0.74810e-02,0.67793e-02,0.68858e-02,0.73353e-02,0.76947e-02, & - & 0.78590e-02,0.77307e-02,0.70272e-02,0.37563e-05 /) - kao(:, 4,10,14) = (/ & - & 0.76171e-02,0.68754e-02,0.69230e-02,0.73502e-02,0.77241e-02, & - & 0.78765e-02,0.77271e-02,0.69915e-02,0.47236e-05 /) - kao(:, 5,10,14) = (/ & - & 0.77608e-02,0.69811e-02,0.69732e-02,0.73676e-02,0.77455e-02, & - & 0.78941e-02,0.77236e-02,0.69531e-02,0.26047e-04 /) - kao(:, 1,11,14) = (/ & - & 0.66493e-02,0.62366e-02,0.66807e-02,0.72344e-02,0.76404e-02, & - & 0.79217e-02,0.79405e-02,0.74097e-02,0.00000e+00 /) - kao(:, 2,11,14) = (/ & - & 0.67616e-02,0.63044e-02,0.67053e-02,0.72656e-02,0.76819e-02, & - & 0.79515e-02,0.79506e-02,0.73718e-02,0.18408e-04 /) - kao(:, 3,11,14) = (/ & - & 0.69005e-02,0.63894e-02,0.67349e-02,0.72931e-02,0.77291e-02, & - & 0.79845e-02,0.79576e-02,0.73388e-02,0.37607e-04 /) - kao(:, 4,11,14) = (/ & - & 0.70530e-02,0.64912e-02,0.67712e-02,0.73223e-02,0.77726e-02, & - & 0.80170e-02,0.79618e-02,0.73054e-02,0.56367e-04 /) - kao(:, 5,11,14) = (/ & - & 0.72039e-02,0.65911e-02,0.68118e-02,0.73572e-02,0.78096e-02, & - & 0.80477e-02,0.79648e-02,0.72708e-02,0.00000e+00 /) - kao(:, 1,12,14) = (/ & - & 0.60858e-02,0.58916e-02,0.65335e-02,0.71525e-02,0.76284e-02, & - & 0.80006e-02,0.81294e-02,0.76675e-02,0.58588e-04 /) - kao(:, 2,12,14) = (/ & - & 0.62191e-02,0.59612e-02,0.65675e-02,0.71998e-02,0.76898e-02, & - & 0.80500e-02,0.81534e-02,0.76479e-02,0.00000e+00 /) - kao(:, 3,12,14) = (/ & - & 0.63725e-02,0.60546e-02,0.66095e-02,0.72445e-02,0.77558e-02, & - & 0.80973e-02,0.81695e-02,0.76255e-02,0.29841e-04 /) - kao(:, 4,12,14) = (/ & - & 0.65241e-02,0.61494e-02,0.66519e-02,0.72916e-02,0.78126e-02, & - & 0.81445e-02,0.81839e-02,0.75955e-02,0.00000e+00 /) - kao(:, 5,12,14) = (/ & - & 0.66908e-02,0.62534e-02,0.66904e-02,0.73429e-02,0.78615e-02, & - & 0.81879e-02,0.81898e-02,0.75652e-02,0.00000e+00 /) - kao(:, 1,13,14) = (/ & - & 0.55891e-02,0.56116e-02,0.63936e-02,0.70621e-02,0.76241e-02, & - & 0.80837e-02,0.82964e-02,0.79007e-02,0.00000e+00 /) - kao(:, 2,13,14) = (/ & - & 0.57354e-02,0.56825e-02,0.64439e-02,0.71280e-02,0.77039e-02, & - & 0.81460e-02,0.83322e-02,0.78896e-02,0.38090e-04 /) - kao(:, 3,13,14) = (/ & - & 0.58847e-02,0.57651e-02,0.64971e-02,0.71963e-02,0.77792e-02, & - & 0.82047e-02,0.83632e-02,0.78746e-02,0.00000e+00 /) - kao(:, 4,13,14) = (/ & - & 0.60503e-02,0.58579e-02,0.65448e-02,0.72663e-02,0.78467e-02, & - & 0.82617e-02,0.83886e-02,0.78555e-02,0.00000e+00 /) - kao(:, 5,13,14) = (/ & - & 0.62326e-02,0.59678e-02,0.65939e-02,0.73313e-02,0.79071e-02, & - & 0.83133e-02,0.83975e-02,0.78294e-02,0.00000e+00 /) - kao(:, 1, 1,15) = (/ & - & 0.22784e-01,0.19937e-01,0.17089e-01,0.14240e-01,0.11393e-01, & - & 0.85439e-02,0.62360e-02,0.50515e-02,0.76952e-02 /) - kao(:, 2, 1,15) = (/ & - & 0.22781e-01,0.19933e-01,0.17085e-01,0.14238e-01,0.11390e-01, & - & 0.85426e-02,0.62118e-02,0.49990e-02,0.75953e-02 /) - kao(:, 3, 1,15) = (/ & - & 0.22781e-01,0.19934e-01,0.17086e-01,0.14239e-01,0.11390e-01, & - & 0.85428e-02,0.62149e-02,0.49913e-02,0.75531e-02 /) - kao(:, 4, 1,15) = (/ & - & 0.22807e-01,0.19955e-01,0.17104e-01,0.14253e-01,0.11403e-01, & - & 0.85521e-02,0.61662e-02,0.48921e-02,0.74213e-02 /) - kao(:, 5, 1,15) = (/ & - & 0.22846e-01,0.19991e-01,0.17134e-01,0.14278e-01,0.11422e-01, & - & 0.85672e-02,0.61477e-02,0.48442e-02,0.73437e-02 /) - kao(:, 1, 2,15) = (/ & - & 0.25963e-01,0.22716e-01,0.19471e-01,0.16227e-01,0.12981e-01, & - & 0.97432e-02,0.72799e-02,0.58913e-02,0.89930e-02 /) - kao(:, 2, 2,15) = (/ & - & 0.25957e-01,0.22712e-01,0.19468e-01,0.16223e-01,0.12978e-01, & - & 0.97376e-02,0.72409e-02,0.58243e-02,0.88738e-02 /) - kao(:, 3, 2,15) = (/ & - & 0.25967e-01,0.22721e-01,0.19475e-01,0.16229e-01,0.12984e-01, & - & 0.97376e-02,0.72294e-02,0.57970e-02,0.88082e-02 /) - kao(:, 4, 2,15) = (/ & - & 0.25991e-01,0.22741e-01,0.19493e-01,0.16243e-01,0.12995e-01, & - & 0.97464e-02,0.71939e-02,0.57194e-02,0.86974e-02 /) - kao(:, 5, 2,15) = (/ & - & 0.26012e-01,0.22759e-01,0.19508e-01,0.16256e-01,0.13005e-01, & - & 0.97539e-02,0.71378e-02,0.56167e-02,0.85506e-02 /) - kao(:, 1, 3,15) = (/ & - & 0.29273e-01,0.25614e-01,0.21954e-01,0.18296e-01,0.14638e-01, & - & 0.11059e-01,0.84536e-02,0.68488e-02,0.10453e-01 /) - kao(:, 2, 3,15) = (/ & - & 0.29273e-01,0.25613e-01,0.21954e-01,0.18296e-01,0.14636e-01, & - & 0.11040e-01,0.84006e-02,0.67671e-02,0.10308e-01 /) - kao(:, 3, 3,15) = (/ & - & 0.29281e-01,0.25620e-01,0.21957e-01,0.18299e-01,0.14639e-01, & - & 0.11029e-01,0.83532e-02,0.66803e-02,0.10170e-01 /) - kao(:, 4, 3,15) = (/ & - & 0.29284e-01,0.25622e-01,0.21963e-01,0.18303e-01,0.14642e-01, & - & 0.11027e-01,0.83265e-02,0.66328e-02,0.10072e-01 /) - kao(:, 5, 3,15) = (/ & - & 0.29273e-01,0.25615e-01,0.21955e-01,0.18297e-01,0.14636e-01, & - & 0.11016e-01,0.82524e-02,0.65141e-02,0.98927e-02 /) - kao(:, 1, 4,15) = (/ & - & 0.32689e-01,0.28601e-01,0.24517e-01,0.20431e-01,0.16343e-01, & - & 0.12498e-01,0.97860e-02,0.79359e-02,0.11964e-01 /) - kao(:, 2, 4,15) = (/ & - & 0.32673e-01,0.28590e-01,0.24505e-01,0.20420e-01,0.16336e-01, & - & 0.12462e-01,0.97090e-02,0.78356e-02,0.11793e-01 /) - kao(:, 3, 4,15) = (/ & - & 0.32657e-01,0.28575e-01,0.24494e-01,0.20410e-01,0.16330e-01, & - & 0.12434e-01,0.96384e-02,0.77321e-02,0.11625e-01 /) - kao(:, 4, 4,15) = (/ & - & 0.32631e-01,0.28553e-01,0.24473e-01,0.20396e-01,0.16316e-01, & - & 0.12404e-01,0.95671e-02,0.76286e-02,0.11457e-01 /) - kao(:, 5, 4,15) = (/ & - & 0.32595e-01,0.28521e-01,0.24445e-01,0.20372e-01,0.16297e-01, & - & 0.12376e-01,0.95137e-02,0.75694e-02,0.11318e-01 /) - kao(:, 1, 5,15) = (/ & - & 0.36129e-01,0.31613e-01,0.27097e-01,0.22582e-01,0.18065e-01, & - & 0.14059e-01,0.11253e-01,0.91497e-02,0.13513e-01 /) - kao(:, 2, 5,15) = (/ & - & 0.36091e-01,0.31580e-01,0.27068e-01,0.22557e-01,0.18046e-01, & - & 0.13996e-01,0.11159e-01,0.90273e-02,0.13314e-01 /) - kao(:, 3, 5,15) = (/ & - & 0.36050e-01,0.31543e-01,0.27038e-01,0.22530e-01,0.18025e-01, & - & 0.13938e-01,0.11057e-01,0.89022e-02,0.13117e-01 /) - kao(:, 4, 5,15) = (/ & - & 0.35994e-01,0.31496e-01,0.26994e-01,0.22495e-01,0.17996e-01, & - & 0.13877e-01,0.10953e-01,0.87755e-02,0.12914e-01 /) - kao(:, 5, 5,15) = (/ & - & 0.35944e-01,0.31450e-01,0.26957e-01,0.22466e-01,0.17973e-01, & - & 0.13819e-01,0.10863e-01,0.86942e-02,0.12744e-01 /) - kao(:, 1, 6,15) = (/ & - & 0.39506e-01,0.34566e-01,0.29627e-01,0.24691e-01,0.19819e-01, & - & 0.15734e-01,0.12852e-01,0.10482e-01,0.15100e-01 /) - kao(:, 2, 6,15) = (/ & - & 0.39438e-01,0.34510e-01,0.29581e-01,0.24651e-01,0.19767e-01, & - & 0.15626e-01,0.12723e-01,0.10339e-01,0.14869e-01 /) - kao(:, 3, 6,15) = (/ & - & 0.39363e-01,0.34443e-01,0.29524e-01,0.24601e-01,0.19714e-01, & - & 0.15531e-01,0.12593e-01,0.10189e-01,0.14636e-01 /) - kao(:, 4, 6,15) = (/ & - & 0.39295e-01,0.34380e-01,0.29468e-01,0.24559e-01,0.19663e-01, & - & 0.15432e-01,0.12453e-01,0.10038e-01,0.14402e-01 /) - kao(:, 5, 6,15) = (/ & - & 0.39232e-01,0.34326e-01,0.29423e-01,0.24518e-01,0.19622e-01, & - & 0.15336e-01,0.12308e-01,0.98939e-02,0.14172e-01 /) - kao(:, 1, 7,15) = (/ & - & 0.42642e-01,0.37314e-01,0.31983e-01,0.26652e-01,0.21609e-01, & - & 0.17542e-01,0.14584e-01,0.11924e-01,0.16714e-01 /) - kao(:, 2, 7,15) = (/ & - & 0.42588e-01,0.37267e-01,0.31942e-01,0.26620e-01,0.21537e-01, & - & 0.17385e-01,0.14405e-01,0.11750e-01,0.16453e-01 /) - kao(:, 3, 7,15) = (/ & - & 0.42519e-01,0.37203e-01,0.31888e-01,0.26575e-01,0.21450e-01, & - & 0.17237e-01,0.14233e-01,0.11569e-01,0.16190e-01 /) - kao(:, 4, 7,15) = (/ & - & 0.42450e-01,0.37145e-01,0.31837e-01,0.26531e-01,0.21364e-01, & - & 0.17089e-01,0.14051e-01,0.11390e-01,0.15924e-01 /) - kao(:, 5, 7,15) = (/ & - & 0.42372e-01,0.37075e-01,0.31780e-01,0.26482e-01,0.21293e-01, & - & 0.16947e-01,0.13866e-01,0.11216e-01,0.15662e-01 /) - kao(:, 1, 8,15) = (/ & - & 0.45438e-01,0.39757e-01,0.34077e-01,0.28427e-01,0.23418e-01, & - & 0.19456e-01,0.16427e-01,0.13456e-01,0.18359e-01 /) - kao(:, 2, 8,15) = (/ & - & 0.45420e-01,0.39742e-01,0.34065e-01,0.28396e-01,0.23308e-01, & - & 0.19242e-01,0.16196e-01,0.13253e-01,0.18076e-01 /) - kao(:, 3, 8,15) = (/ & - & 0.45404e-01,0.39728e-01,0.34054e-01,0.28379e-01,0.23190e-01, & - & 0.19044e-01,0.15968e-01,0.13036e-01,0.17789e-01 /) - kao(:, 4, 8,15) = (/ & - & 0.45355e-01,0.39684e-01,0.34015e-01,0.28348e-01,0.23074e-01, & - & 0.18841e-01,0.15735e-01,0.12818e-01,0.17487e-01 /) - kao(:, 5, 8,15) = (/ & - & 0.45268e-01,0.39604e-01,0.33951e-01,0.28294e-01,0.22964e-01, & - & 0.18639e-01,0.15495e-01,0.12608e-01,0.17187e-01 /) - kao(:, 1, 9,15) = (/ & - & 0.47828e-01,0.41848e-01,0.35870e-01,0.30096e-01,0.25238e-01, & - & 0.21453e-01,0.18348e-01,0.15048e-01,0.20030e-01 /) - kao(:, 2, 9,15) = (/ & - & 0.47883e-01,0.41899e-01,0.35911e-01,0.30061e-01,0.25102e-01, & - & 0.21178e-01,0.18071e-01,0.14812e-01,0.19720e-01 /) - kao(:, 3, 9,15) = (/ & - & 0.47917e-01,0.41930e-01,0.35941e-01,0.30033e-01,0.24934e-01, & - & 0.20917e-01,0.17786e-01,0.14566e-01,0.19396e-01 /) - kao(:, 4, 9,15) = (/ & - & 0.47914e-01,0.41927e-01,0.35936e-01,0.29997e-01,0.24771e-01, & - & 0.20657e-01,0.17491e-01,0.14311e-01,0.19056e-01 /) - kao(:, 5, 9,15) = (/ & - & 0.47853e-01,0.41872e-01,0.35889e-01,0.29935e-01,0.24616e-01, & - & 0.20393e-01,0.17196e-01,0.14061e-01,0.18721e-01 /) - kao(:, 1,10,15) = (/ & - & 0.49786e-01,0.43562e-01,0.37346e-01,0.31673e-01,0.27058e-01, & - & 0.23446e-01,0.20298e-01,0.16634e-01,0.20401e-01 /) - kao(:, 2,10,15) = (/ & - & 0.49957e-01,0.43713e-01,0.37470e-01,0.31624e-01,0.26879e-01, & - & 0.23121e-01,0.19962e-01,0.16379e-01,0.19980e-01 /) - kao(:, 3,10,15) = (/ & - & 0.50073e-01,0.43811e-01,0.37553e-01,0.31591e-01,0.26668e-01, & - & 0.22810e-01,0.19616e-01,0.16101e-01,0.19150e-01 /) - kao(:, 4,10,15) = (/ & - & 0.50104e-01,0.43839e-01,0.37576e-01,0.31542e-01,0.26451e-01, & - & 0.22487e-01,0.19263e-01,0.15810e-01,0.18309e-01 /) - kao(:, 5,10,15) = (/ & - & 0.50083e-01,0.43821e-01,0.37560e-01,0.31463e-01,0.26247e-01, & - & 0.22153e-01,0.18906e-01,0.15516e-01,0.17790e-01 /) - kao(:, 1,11,15) = (/ & - & 0.51449e-01,0.45016e-01,0.38642e-01,0.33136e-01,0.28759e-01, & - & 0.25254e-01,0.22053e-01,0.18120e-01,0.53897e-02 /) - kao(:, 2,11,15) = (/ & - & 0.51718e-01,0.45255e-01,0.38815e-01,0.33090e-01,0.28517e-01, & - & 0.24894e-01,0.21659e-01,0.17825e-01,0.47196e-02 /) - kao(:, 3,11,15) = (/ & - & 0.51885e-01,0.45397e-01,0.38919e-01,0.33034e-01,0.28248e-01, & - & 0.24520e-01,0.21252e-01,0.17499e-01,0.36639e-02 /) - kao(:, 4,11,15) = (/ & - & 0.51965e-01,0.45468e-01,0.38969e-01,0.32946e-01,0.27987e-01, & - & 0.24125e-01,0.20834e-01,0.17164e-01,0.30436e-02 /) - kao(:, 5,11,15) = (/ & - & 0.52007e-01,0.45508e-01,0.39008e-01,0.32828e-01,0.27732e-01, & - & 0.23720e-01,0.20415e-01,0.16822e-01,0.23024e-02 /) - kao(:, 1,12,15) = (/ & - & 0.52772e-01,0.46179e-01,0.39786e-01,0.34518e-01,0.30341e-01, & - & 0.26996e-01,0.23719e-01,0.19625e-01,0.00000e+00 /) - kao(:, 2,12,15) = (/ & - & 0.53131e-01,0.46489e-01,0.39976e-01,0.34451e-01,0.30050e-01, & - & 0.26583e-01,0.23271e-01,0.19259e-01,0.79250e-04 /) - kao(:, 3,12,15) = (/ & - & 0.53372e-01,0.46707e-01,0.40090e-01,0.34369e-01,0.29734e-01, & - & 0.26140e-01,0.22802e-01,0.18870e-01,0.00000e+00 /) - kao(:, 4,12,15) = (/ & - & 0.53549e-01,0.46855e-01,0.40175e-01,0.34238e-01,0.29424e-01, & - & 0.25661e-01,0.22318e-01,0.18486e-01,0.00000e+00 /) - kao(:, 5,12,15) = (/ & - & 0.53641e-01,0.46944e-01,0.40238e-01,0.34087e-01,0.29108e-01, & - & 0.25184e-01,0.21836e-01,0.18091e-01,0.00000e+00 /) - kao(:, 1,13,15) = (/ & - & 0.53794e-01,0.47070e-01,0.40802e-01,0.35804e-01,0.31808e-01, & - & 0.28611e-01,0.25317e-01,0.21103e-01,0.00000e+00 /) - kao(:, 2,13,15) = (/ & - & 0.54248e-01,0.47468e-01,0.40994e-01,0.35717e-01,0.31468e-01, & - & 0.28147e-01,0.24800e-01,0.20666e-01,0.99549e-04 /) - kao(:, 3,13,15) = (/ & - & 0.54616e-01,0.47795e-01,0.41127e-01,0.35591e-01,0.31112e-01, & - & 0.27634e-01,0.24251e-01,0.20223e-01,0.00000e+00 /) - kao(:, 4,13,15) = (/ & - & 0.54881e-01,0.48017e-01,0.41234e-01,0.35410e-01,0.30749e-01, & - & 0.27090e-01,0.23692e-01,0.19766e-01,0.00000e+00 /) - kao(:, 5,13,15) = (/ & - & 0.55030e-01,0.48150e-01,0.41295e-01,0.35229e-01,0.30369e-01, & - & 0.26544e-01,0.23150e-01,0.19313e-01,0.00000e+00 /) - kao(:, 1, 1,16) = (/ & - & 0.31412e-01,0.27484e-01,0.23556e-01,0.19630e-01,0.15703e-01, & - & 0.11777e-01,0.78503e-02,0.63859e-02,0.10546e-01 /) - kao(:, 2, 1,16) = (/ & - & 0.31306e-01,0.27393e-01,0.23480e-01,0.19566e-01,0.15652e-01, & - & 0.11737e-01,0.78244e-02,0.64039e-02,0.10543e-01 /) - kao(:, 3, 1,16) = (/ & - & 0.31189e-01,0.27291e-01,0.23390e-01,0.19492e-01,0.15594e-01, & - & 0.11694e-01,0.77949e-02,0.65607e-02,0.10621e-01 /) - kao(:, 4, 1,16) = (/ & - & 0.31060e-01,0.27175e-01,0.23293e-01,0.19412e-01,0.15526e-01, & - & 0.11645e-01,0.77621e-02,0.64197e-02,0.10470e-01 /) - kao(:, 5, 1,16) = (/ & - & 0.30934e-01,0.27069e-01,0.23201e-01,0.19334e-01,0.15466e-01, & - & 0.11599e-01,0.77309e-02,0.64181e-02,0.10407e-01 /) - kao(:, 1, 2,16) = (/ & - & 0.37345e-01,0.32673e-01,0.28007e-01,0.23341e-01,0.18670e-01, & - & 0.14002e-01,0.93330e-02,0.76035e-02,0.12759e-01 /) - kao(:, 2, 2,16) = (/ & - & 0.37160e-01,0.32513e-01,0.27871e-01,0.23225e-01,0.18579e-01, & - & 0.13933e-01,0.92868e-02,0.75902e-02,0.12702e-01 /) - kao(:, 3, 2,16) = (/ & - & 0.36977e-01,0.32353e-01,0.27732e-01,0.23111e-01,0.18487e-01, & - & 0.13864e-01,0.92415e-02,0.77168e-02,0.12729e-01 /) - kao(:, 4, 2,16) = (/ & - & 0.36807e-01,0.32204e-01,0.27602e-01,0.23002e-01,0.18402e-01, & - & 0.13798e-01,0.91981e-02,0.77023e-02,0.12641e-01 /) - kao(:, 5, 2,16) = (/ & - & 0.36620e-01,0.32046e-01,0.27465e-01,0.22887e-01,0.18309e-01, & - & 0.13731e-01,0.91527e-02,0.75684e-02,0.12457e-01 /) - kao(:, 1, 3,16) = (/ & - & 0.44232e-01,0.38700e-01,0.33173e-01,0.27644e-01,0.22114e-01, & - & 0.16581e-01,0.11054e-01,0.91028e-02,0.15510e-01 /) - kao(:, 2, 3,16) = (/ & - & 0.43957e-01,0.38463e-01,0.32969e-01,0.27474e-01,0.21977e-01, & - & 0.16483e-01,0.10987e-01,0.90298e-02,0.15354e-01 /) - kao(:, 3, 3,16) = (/ & - & 0.43680e-01,0.38217e-01,0.32756e-01,0.27297e-01,0.21838e-01, & - & 0.16376e-01,0.10918e-01,0.89896e-02,0.15195e-01 /) - kao(:, 4, 3,16) = (/ & - & 0.43409e-01,0.37982e-01,0.32556e-01,0.27128e-01,0.21703e-01, & - & 0.16277e-01,0.10849e-01,0.90630e-02,0.15090e-01 /) - kao(:, 5, 3,16) = (/ & - & 0.43148e-01,0.37757e-01,0.32362e-01,0.26967e-01,0.21574e-01, & - & 0.16179e-01,0.10784e-01,0.89323e-02,0.14861e-01 /) - kao(:, 1, 4,16) = (/ & - & 0.52173e-01,0.45650e-01,0.39129e-01,0.32609e-01,0.26084e-01, & - & 0.19564e-01,0.13063e-01,0.10928e-01,0.18665e-01 /) - kao(:, 2, 4,16) = (/ & - & 0.51767e-01,0.45298e-01,0.38824e-01,0.32358e-01,0.25882e-01, & - & 0.19411e-01,0.12948e-01,0.10795e-01,0.18386e-01 /) - kao(:, 3, 4,16) = (/ & - & 0.51358e-01,0.44935e-01,0.38514e-01,0.32093e-01,0.25677e-01, & - & 0.19255e-01,0.12843e-01,0.10694e-01,0.18120e-01 /) - kao(:, 4, 4,16) = (/ & - & 0.50955e-01,0.44587e-01,0.38218e-01,0.31847e-01,0.25475e-01, & - & 0.19107e-01,0.12737e-01,0.10607e-01,0.17851e-01 /) - kao(:, 5, 4,16) = (/ & - & 0.50544e-01,0.44227e-01,0.37909e-01,0.31588e-01,0.25270e-01, & - & 0.18952e-01,0.12634e-01,0.10599e-01,0.17618e-01 /) - kao(:, 1, 5,16) = (/ & - & 0.61214e-01,0.53565e-01,0.45917e-01,0.38262e-01,0.30607e-01, & - & 0.22954e-01,0.15462e-01,0.13125e-01,0.22278e-01 /) - kao(:, 2, 5,16) = (/ & - & 0.60651e-01,0.53068e-01,0.45484e-01,0.37903e-01,0.30322e-01, & - & 0.22741e-01,0.15244e-01,0.12927e-01,0.21870e-01 /) - kao(:, 3, 5,16) = (/ & - & 0.60040e-01,0.52533e-01,0.45028e-01,0.37524e-01,0.30019e-01, & - & 0.22514e-01,0.15074e-01,0.12758e-01,0.21465e-01 /) - kao(:, 4, 5,16) = (/ & - & 0.59437e-01,0.52006e-01,0.44573e-01,0.37145e-01,0.29715e-01, & - & 0.22286e-01,0.14911e-01,0.12602e-01,0.21062e-01 /) - kao(:, 5, 5,16) = (/ & - & 0.58809e-01,0.51461e-01,0.44106e-01,0.36755e-01,0.29405e-01, & - & 0.22053e-01,0.14746e-01,0.12499e-01,0.20685e-01 /) - kao(:, 1, 6,16) = (/ & - & 0.71375e-01,0.62451e-01,0.53529e-01,0.44607e-01,0.35687e-01, & - & 0.26759e-01,0.18273e-01,0.15758e-01,0.26378e-01 /) - kao(:, 2, 6,16) = (/ & - & 0.70571e-01,0.61748e-01,0.52933e-01,0.44107e-01,0.35285e-01, & - & 0.26462e-01,0.17959e-01,0.15470e-01,0.25822e-01 /) - kao(:, 3, 6,16) = (/ & - & 0.69734e-01,0.61022e-01,0.52301e-01,0.43583e-01,0.34867e-01, & - & 0.26147e-01,0.17660e-01,0.15207e-01,0.25265e-01 /) - kao(:, 4, 6,16) = (/ & - & 0.68870e-01,0.60256e-01,0.51654e-01,0.43043e-01,0.34432e-01, & - & 0.25826e-01,0.17391e-01,0.14968e-01,0.24710e-01 /) - kao(:, 5, 6,16) = (/ & - & 0.67988e-01,0.59482e-01,0.50988e-01,0.42488e-01,0.33987e-01, & - & 0.25491e-01,0.17159e-01,0.14740e-01,0.24148e-01 /) - kao(:, 1, 7,16) = (/ & - & 0.82705e-01,0.72369e-01,0.62031e-01,0.51694e-01,0.41353e-01, & - & 0.31012e-01,0.21511e-01,0.18843e-01,0.31008e-01 /) - kao(:, 2, 7,16) = (/ & - & 0.81487e-01,0.71304e-01,0.61113e-01,0.50924e-01,0.40740e-01, & - & 0.30554e-01,0.21074e-01,0.18457e-01,0.30235e-01 /) - kao(:, 3, 7,16) = (/ & - & 0.80318e-01,0.70281e-01,0.60235e-01,0.50200e-01,0.40157e-01, & - & 0.30117e-01,0.20636e-01,0.18102e-01,0.29494e-01 /) - kao(:, 4, 7,16) = (/ & - & 0.79154e-01,0.69255e-01,0.59365e-01,0.49470e-01,0.39576e-01, & - & 0.29680e-01,0.20228e-01,0.17748e-01,0.28759e-01 /) - kao(:, 5, 7,16) = (/ & - & 0.77937e-01,0.68190e-01,0.58450e-01,0.48707e-01,0.38965e-01, & - & 0.29223e-01,0.19858e-01,0.17406e-01,0.28017e-01 /) - kao(:, 1, 8,16) = (/ & - & 0.95173e-01,0.83270e-01,0.71377e-01,0.59480e-01,0.47582e-01, & - & 0.35684e-01,0.25169e-01,0.22449e-01,0.36274e-01 /) - kao(:, 2, 8,16) = (/ & - & 0.93409e-01,0.81740e-01,0.70058e-01,0.58384e-01,0.46709e-01, & - & 0.35028e-01,0.24581e-01,0.21893e-01,0.35207e-01 /) - kao(:, 3, 8,16) = (/ & - & 0.91737e-01,0.80263e-01,0.68796e-01,0.57330e-01,0.45863e-01, & - & 0.34396e-01,0.23987e-01,0.21409e-01,0.34174e-01 /) - kao(:, 4, 8,16) = (/ & - & 0.90113e-01,0.78852e-01,0.67585e-01,0.56324e-01,0.45060e-01, & - & 0.33794e-01,0.23415e-01,0.20940e-01,0.33185e-01 /) - kao(:, 5, 8,16) = (/ & - & 0.88500e-01,0.77445e-01,0.66378e-01,0.55317e-01,0.44252e-01, & - & 0.33190e-01,0.22890e-01,0.20471e-01,0.32236e-01 /) - kao(:, 1, 9,16) = (/ & - & 0.10878e+00,0.95186e-01,0.81587e-01,0.67986e-01,0.54386e-01, & - & 0.40792e-01,0.29314e-01,0.26669e-01,0.42265e-01 /) - kao(:, 2, 9,16) = (/ & - & 0.10631e+00,0.93021e-01,0.79732e-01,0.66444e-01,0.53150e-01, & - & 0.39864e-01,0.28508e-01,0.25873e-01,0.40792e-01 /) - kao(:, 3, 9,16) = (/ & - & 0.10400e+00,0.91002e-01,0.78003e-01,0.64997e-01,0.51997e-01, & - & 0.39001e-01,0.27707e-01,0.25186e-01,0.39383e-01 /) - kao(:, 4, 9,16) = (/ & - & 0.10173e+00,0.89018e-01,0.76292e-01,0.63582e-01,0.50863e-01, & - & 0.38144e-01,0.26926e-01,0.24532e-01,0.38084e-01 /) - kao(:, 5, 9,16) = (/ & - & 0.99555e-01,0.87113e-01,0.74666e-01,0.62221e-01,0.49774e-01, & - & 0.37334e-01,0.26211e-01,0.23902e-01,0.36825e-01 /) - kao(:, 1,10,16) = (/ & - & 0.12320e+00,0.10779e+00,0.92400e-01,0.76993e-01,0.61601e-01, & - & 0.46197e-01,0.33879e-01,0.31475e-01,0.48792e-01 /) - kao(:, 2,10,16) = (/ & - & 0.11986e+00,0.10487e+00,0.89890e-01,0.74910e-01,0.59927e-01, & - & 0.44946e-01,0.32786e-01,0.30373e-01,0.46838e-01 /) - kao(:, 3,10,16) = (/ & - & 0.11671e+00,0.10212e+00,0.87531e-01,0.72938e-01,0.58350e-01, & - & 0.43767e-01,0.31728e-01,0.29415e-01,0.45011e-01 /) - kao(:, 4,10,16) = (/ & - & 0.11373e+00,0.99514e-01,0.85291e-01,0.71084e-01,0.56859e-01, & - & 0.42648e-01,0.30712e-01,0.28518e-01,0.43306e-01 /) - kao(:, 5,10,16) = (/ & - & 0.11086e+00,0.97005e-01,0.83130e-01,0.69287e-01,0.55428e-01, & - & 0.41573e-01,0.29748e-01,0.27669e-01,0.41673e-01 /) - kao(:, 1,11,16) = (/ & - & 0.13635e+00,0.11930e+00,0.10226e+00,0.85213e-01,0.68170e-01, & - & 0.51126e-01,0.38257e-01,0.36212e-01,0.54706e-01 /) - kao(:, 2,11,16) = (/ & - & 0.13203e+00,0.11554e+00,0.99030e-01,0.82523e-01,0.66019e-01, & - & 0.49513e-01,0.36799e-01,0.34833e-01,0.52312e-01 /) - kao(:, 3,11,16) = (/ & - & 0.12805e+00,0.11203e+00,0.96022e-01,0.80023e-01,0.64019e-01, & - & 0.48015e-01,0.35435e-01,0.33591e-01,0.50057e-01 /) - kao(:, 4,11,16) = (/ & - & 0.12432e+00,0.10877e+00,0.93237e-01,0.77695e-01,0.62158e-01, & - & 0.46618e-01,0.34181e-01,0.32427e-01,0.47918e-01 /) - kao(:, 5,11,16) = (/ & - & 0.12077e+00,0.10567e+00,0.90572e-01,0.75471e-01,0.60381e-01, & - & 0.45284e-01,0.32973e-01,0.31331e-01,0.45895e-01 /) - kao(:, 1,12,16) = (/ & - & 0.14909e+00,0.13045e+00,0.11182e+00,0.93176e-01,0.74537e-01, & - & 0.55927e-01,0.42736e-01,0.41194e-01,0.43864e-01 /) - kao(:, 2,12,16) = (/ & - & 0.14380e+00,0.12582e+00,0.10785e+00,0.89883e-01,0.71900e-01, & - & 0.53925e-01,0.40874e-01,0.39509e-01,0.34410e-01 /) - kao(:, 3,12,16) = (/ & - & 0.13887e+00,0.12152e+00,0.10414e+00,0.86796e-01,0.69431e-01, & - & 0.52073e-01,0.39165e-01,0.37950e-01,0.27228e-01 /) - kao(:, 4,12,16) = (/ & - & 0.13436e+00,0.11758e+00,0.10078e+00,0.83978e-01,0.67186e-01, & - & 0.50383e-01,0.37599e-01,0.36473e-01,0.23165e-01 /) - kao(:, 5,12,16) = (/ & - & 0.13007e+00,0.11382e+00,0.97560e-01,0.81293e-01,0.65042e-01, & - & 0.48775e-01,0.36131e-01,0.35083e-01,0.14412e-01 /) - kao(:, 1,13,16) = (/ & - & 0.16113e+00,0.14100e+00,0.12085e+00,0.10071e+00,0.80563e-01, & - & 0.60580e-01,0.47246e-01,0.46365e-01,0.26456e-01 /) - kao(:, 2,13,16) = (/ & - & 0.15486e+00,0.13550e+00,0.11616e+00,0.96791e-01,0.77431e-01, & - & 0.58082e-01,0.44915e-01,0.44314e-01,0.19340e-01 /) - kao(:, 3,13,16) = (/ & - & 0.14906e+00,0.13042e+00,0.11179e+00,0.93156e-01,0.74526e-01, & - & 0.55893e-01,0.42831e-01,0.42380e-01,0.11993e-01 /) - kao(:, 4,13,16) = (/ & - & 0.14369e+00,0.12574e+00,0.10777e+00,0.89817e-01,0.71849e-01, & - & 0.53884e-01,0.40915e-01,0.40556e-01,0.50486e-02 /) - kao(:, 5,13,16) = (/ & - & 0.13868e+00,0.12134e+00,0.10400e+00,0.86669e-01,0.69338e-01, & - & 0.52006e-01,0.39136e-01,0.38851e-01,0.00000e+00 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:,13, 1) = (/ & - & 0.12158e-08,0.13238e-08,0.15146e-08,0.16862e-08,0.18609e-08 /) - kbo(:,14, 1) = (/ & - & 0.16931e-08,0.20047e-08,0.23006e-08,0.25636e-08,0.28912e-08 /) - kbo(:,15, 1) = (/ & - & 0.31521e-08,0.36963e-08,0.41550e-08,0.46365e-08,0.50834e-08 /) - kbo(:,16, 1) = (/ & - & 0.46152e-08,0.50173e-08,0.55381e-08,0.60748e-08,0.66355e-08 /) - kbo(:,17, 1) = (/ & - & 0.62662e-08,0.67518e-08,0.71765e-08,0.80302e-08,0.89056e-08 /) - kbo(:,18, 1) = (/ & - & 0.81764e-08,0.91818e-08,0.10385e-07,0.11708e-07,0.12536e-07 /) - kbo(:,19, 1) = (/ & - & 0.12946e-07,0.13631e-07,0.14453e-07,0.15133e-07,0.15911e-07 /) - kbo(:,20, 1) = (/ & - & 0.15868e-07,0.16654e-07,0.17281e-07,0.17857e-07,0.18383e-07 /) - kbo(:,21, 1) = (/ & - & 0.18151e-07,0.19056e-07,0.20057e-07,0.20708e-07,0.21229e-07 /) - kbo(:,22, 1) = (/ & - & 0.20234e-07,0.21482e-07,0.22599e-07,0.23778e-07,0.25115e-07 /) - kbo(:,23, 1) = (/ & - & 0.23827e-07,0.25405e-07,0.26545e-07,0.27716e-07,0.28422e-07 /) - kbo(:,24, 1) = (/ & - & 0.27638e-07,0.28518e-07,0.29101e-07,0.29639e-07,0.30077e-07 /) - kbo(:,25, 1) = (/ & - & 0.28942e-07,0.29436e-07,0.29831e-07,0.30066e-07,0.30242e-07 /) - kbo(:,26, 1) = (/ & - & 0.28774e-07,0.29004e-07,0.29272e-07,0.29431e-07,0.29616e-07 /) - kbo(:,27, 1) = (/ & - & 0.27317e-07,0.27462e-07,0.27698e-07,0.27835e-07,0.27843e-07 /) - kbo(:,28, 1) = (/ & - & 0.25463e-07,0.25523e-07,0.25678e-07,0.25658e-07,0.25687e-07 /) - kbo(:,29, 1) = (/ & - & 0.22603e-07,0.22672e-07,0.22704e-07,0.22668e-07,0.22698e-07 /) - kbo(:,30, 1) = (/ & - & 0.19657e-07,0.19747e-07,0.19687e-07,0.19659e-07,0.19680e-07 /) - kbo(:,31, 1) = (/ & - & 0.16553e-07,0.16571e-07,0.16522e-07,0.16545e-07,0.16563e-07 /) - kbo(:,32, 1) = (/ & - & 0.13867e-07,0.13795e-07,0.13808e-07,0.13815e-07,0.13799e-07 /) - kbo(:,33, 1) = (/ & - & 0.11414e-07,0.11409e-07,0.11395e-07,0.11384e-07,0.11416e-07 /) - kbo(:,34, 1) = (/ & - & 0.95639e-08,0.95514e-08,0.95251e-08,0.95607e-08,0.95767e-08 /) - kbo(:,35, 1) = (/ & - & 0.80018e-08,0.79882e-08,0.79720e-08,0.79934e-08,0.79942e-08 /) - kbo(:,36, 1) = (/ & - & 0.67279e-08,0.67135e-08,0.67089e-08,0.67131e-08,0.67290e-08 /) - kbo(:,37, 1) = (/ & - & 0.57292e-08,0.57278e-08,0.57247e-08,0.57298e-08,0.57269e-08 /) - kbo(:,38, 1) = (/ & - & 0.48406e-08,0.48461e-08,0.48394e-08,0.48468e-08,0.48401e-08 /) - kbo(:,39, 1) = (/ & - & 0.40368e-08,0.40419e-08,0.40353e-08,0.40432e-08,0.40267e-08 /) - kbo(:,40, 1) = (/ & - & 0.34875e-08,0.34931e-08,0.34872e-08,0.34940e-08,0.34782e-08 /) - kbo(:,41, 1) = (/ & - & 0.30195e-08,0.30243e-08,0.30129e-08,0.30148e-08,0.30016e-08 /) - kbo(:,42, 1) = (/ & - & 0.25993e-08,0.25924e-08,0.25861e-08,0.25841e-08,0.25734e-08 /) - kbo(:,43, 1) = (/ & - & 0.22290e-08,0.22166e-08,0.22080e-08,0.22067e-08,0.21992e-08 /) - kbo(:,44, 1) = (/ & - & 0.18916e-08,0.18847e-08,0.18733e-08,0.18685e-08,0.18685e-08 /) - kbo(:,45, 1) = (/ & - & 0.15840e-08,0.15787e-08,0.15719e-08,0.15641e-08,0.15644e-08 /) - kbo(:,46, 1) = (/ & - & 0.13197e-08,0.13138e-08,0.13098e-08,0.13024e-08,0.13049e-08 /) - kbo(:,47, 1) = (/ & - & 0.11052e-08,0.11003e-08,0.10954e-08,0.10927e-08,0.10941e-08 /) - kbo(:,48, 1) = (/ & - & 0.91115e-09,0.90837e-09,0.90520e-09,0.90009e-09,0.90047e-09 /) - kbo(:,49, 1) = (/ & - & 0.73101e-09,0.73246e-09,0.73006e-09,0.72687e-09,0.72508e-09 /) - kbo(:,50, 1) = (/ & - & 0.60565e-09,0.60526e-09,0.60121e-09,0.60117e-09,0.60056e-09 /) - kbo(:,51, 1) = (/ & - & 0.50736e-09,0.50750e-09,0.50421e-09,0.50378e-09,0.50259e-09 /) - kbo(:,52, 1) = (/ & - & 0.41843e-09,0.41856e-09,0.41499e-09,0.41535e-09,0.41353e-09 /) - kbo(:,53, 1) = (/ & - & 0.33766e-09,0.33794e-09,0.33511e-09,0.33405e-09,0.33405e-09 /) - kbo(:,54, 1) = (/ & - & 0.29473e-09,0.29448e-09,0.29284e-09,0.29146e-09,0.29053e-09 /) - kbo(:,55, 1) = (/ & - & 0.26948e-09,0.27034e-09,0.27016e-09,0.26799e-09,0.26580e-09 /) - kbo(:,56, 1) = (/ & - & 0.24773e-09,0.24784e-09,0.24734e-09,0.24436e-09,0.24377e-09 /) - kbo(:,57, 1) = (/ & - & 0.22707e-09,0.22765e-09,0.22683e-09,0.22503e-09,0.22447e-09 /) - kbo(:,58, 1) = (/ & - & 0.21180e-09,0.21264e-09,0.21254e-09,0.21338e-09,0.21089e-09 /) - kbo(:,59, 1) = (/ & - & 0.22898e-09,0.23089e-09,0.23471e-09,0.23606e-09,0.23388e-09 /) - kbo(:,13, 2) = (/ & - & 0.18001e-08,0.19945e-08,0.21612e-08,0.23316e-08,0.25983e-08 /) - kbo(:,14, 2) = (/ & - & 0.39853e-08,0.42632e-08,0.44602e-08,0.46784e-08,0.48071e-08 /) - kbo(:,15, 2) = (/ & - & 0.60848e-08,0.61494e-08,0.61069e-08,0.61295e-08,0.65707e-08 /) - kbo(:,16, 2) = (/ & - & 0.75494e-08,0.85999e-08,0.91057e-08,0.10175e-07,0.10943e-07 /) - kbo(:,17, 2) = (/ & - & 0.12037e-07,0.12753e-07,0.13314e-07,0.13239e-07,0.13306e-07 /) - kbo(:,18, 2) = (/ & - & 0.15519e-07,0.15517e-07,0.15097e-07,0.14435e-07,0.13983e-07 /) - kbo(:,19, 2) = (/ & - & 0.16420e-07,0.17025e-07,0.17639e-07,0.17633e-07,0.17513e-07 /) - kbo(:,20, 2) = (/ & - & 0.18021e-07,0.19301e-07,0.20621e-07,0.22238e-07,0.23351e-07 /) - kbo(:,21, 2) = (/ & - & 0.22378e-07,0.23582e-07,0.24409e-07,0.24915e-07,0.25516e-07 /) - kbo(:,22, 2) = (/ & - & 0.24712e-07,0.24864e-07,0.24556e-07,0.23953e-07,0.23424e-07 /) - kbo(:,23, 2) = (/ & - & 0.22545e-07,0.22002e-07,0.21325e-07,0.20492e-07,0.20022e-07 /) - kbo(:,24, 2) = (/ & - & 0.18798e-07,0.18566e-07,0.18366e-07,0.18099e-07,0.17971e-07 /) - kbo(:,25, 2) = (/ & - & 0.16773e-07,0.16803e-07,0.16541e-07,0.16450e-07,0.16482e-07 /) - kbo(:,26, 2) = (/ & - & 0.15222e-07,0.15398e-07,0.15177e-07,0.15147e-07,0.14951e-07 /) - kbo(:,27, 2) = (/ & - & 0.13792e-07,0.13944e-07,0.13534e-07,0.13546e-07,0.13516e-07 /) - kbo(:,28, 2) = (/ & - & 0.12157e-07,0.12221e-07,0.11930e-07,0.12115e-07,0.12027e-07 /) - kbo(:,29, 2) = (/ & - & 0.10487e-07,0.10393e-07,0.10366e-07,0.10455e-07,0.10269e-07 /) - kbo(:,30, 2) = (/ & - & 0.90084e-08,0.88590e-08,0.90055e-08,0.88655e-08,0.87392e-08 /) - kbo(:,31, 2) = (/ & - & 0.74765e-08,0.74889e-08,0.73915e-08,0.73289e-08,0.72219e-08 /) - kbo(:,32, 2) = (/ & - & 0.62311e-08,0.62461e-08,0.61378e-08,0.59795e-08,0.60309e-08 /) - kbo(:,33, 2) = (/ & - & 0.51421e-08,0.50519e-08,0.50031e-08,0.49630e-08,0.49489e-08 /) - kbo(:,34, 2) = (/ & - & 0.42880e-08,0.42042e-08,0.41366e-08,0.41198e-08,0.41265e-08 /) - kbo(:,35, 2) = (/ & - & 0.35718e-08,0.34728e-08,0.34599e-08,0.34385e-08,0.34695e-08 /) - kbo(:,36, 2) = (/ & - & 0.29713e-08,0.29023e-08,0.28707e-08,0.28790e-08,0.28873e-08 /) - kbo(:,37, 2) = (/ & - & 0.25246e-08,0.24463e-08,0.24323e-08,0.24308e-08,0.24753e-08 /) - kbo(:,38, 2) = (/ & - & 0.21159e-08,0.20527e-08,0.20532e-08,0.20325e-08,0.20615e-08 /) - kbo(:,39, 2) = (/ & - & 0.17631e-08,0.17097e-08,0.17043e-08,0.16987e-08,0.17298e-08 /) - kbo(:,40, 2) = (/ & - & 0.15260e-08,0.14757e-08,0.14566e-08,0.14513e-08,0.14651e-08 /) - kbo(:,41, 2) = (/ & - & 0.13009e-08,0.12457e-08,0.12523e-08,0.12490e-08,0.12671e-08 /) - kbo(:,42, 2) = (/ & - & 0.10990e-08,0.10789e-08,0.10741e-08,0.10762e-08,0.10873e-08 /) - kbo(:,43, 2) = (/ & - & 0.94313e-09,0.92236e-09,0.92369e-09,0.91495e-09,0.92405e-09 /) - kbo(:,44, 2) = (/ & - & 0.80746e-09,0.78453e-09,0.77646e-09,0.77477e-09,0.77888e-09 /) - kbo(:,45, 2) = (/ & - & 0.67944e-09,0.66381e-09,0.65747e-09,0.65286e-09,0.65668e-09 /) - kbo(:,46, 2) = (/ & - & 0.56677e-09,0.55682e-09,0.54825e-09,0.54623e-09,0.54843e-09 /) - kbo(:,47, 2) = (/ & - & 0.47375e-09,0.47120e-09,0.45836e-09,0.45709e-09,0.45689e-09 /) - kbo(:,48, 2) = (/ & - & 0.39797e-09,0.39204e-09,0.37735e-09,0.37505e-09,0.37687e-09 /) - kbo(:,49, 2) = (/ & - & 0.32772e-09,0.31857e-09,0.30808e-09,0.30232e-09,0.30140e-09 /) - kbo(:,50, 2) = (/ & - & 0.27300e-09,0.26581e-09,0.26125e-09,0.24922e-09,0.25029e-09 /) - kbo(:,51, 2) = (/ & - & 0.23073e-09,0.22159e-09,0.21979e-09,0.20969e-09,0.21117e-09 /) - kbo(:,52, 2) = (/ & - & 0.18868e-09,0.18466e-09,0.18517e-09,0.17470e-09,0.17469e-09 /) - kbo(:,53, 2) = (/ & - & 0.15290e-09,0.14970e-09,0.15032e-09,0.14201e-09,0.14053e-09 /) - kbo(:,54, 2) = (/ & - & 0.13616e-09,0.13340e-09,0.13256e-09,0.12713e-09,0.12621e-09 /) - kbo(:,55, 2) = (/ & - & 0.12605e-09,0.12524e-09,0.12106e-09,0.11994e-09,0.11735e-09 /) - kbo(:,56, 2) = (/ & - & 0.11625e-09,0.11350e-09,0.11287e-09,0.11534e-09,0.10942e-09 /) - kbo(:,57, 2) = (/ & - & 0.10168e-09,0.10628e-09,0.10684e-09,0.10799e-09,0.10313e-09 /) - kbo(:,58, 2) = (/ & - & 0.92659e-10,0.10050e-09,0.10168e-09,0.97877e-10,0.97971e-10 /) - kbo(:,59, 2) = (/ & - & 0.10198e-09,0.11632e-09,0.11127e-09,0.10947e-09,0.11000e-09 /) - kbo(:,13, 3) = (/ & - & 0.33788e-08,0.38685e-08,0.40059e-08,0.41301e-08,0.43316e-08 /) - kbo(:,14, 3) = (/ & - & 0.54022e-08,0.55644e-08,0.55814e-08,0.55195e-08,0.57708e-08 /) - kbo(:,15, 3) = (/ & - & 0.95769e-08,0.10205e-07,0.12445e-07,0.13419e-07,0.13357e-07 /) - kbo(:,16, 3) = (/ & - & 0.17233e-07,0.16177e-07,0.16092e-07,0.15590e-07,0.15068e-07 /) - kbo(:,17, 3) = (/ & - & 0.19731e-07,0.19947e-07,0.20278e-07,0.20235e-07,0.20699e-07 /) - kbo(:,18, 3) = (/ & - & 0.23168e-07,0.23970e-07,0.25507e-07,0.27034e-07,0.29135e-07 /) - kbo(:,19, 3) = (/ & - & 0.33749e-07,0.35374e-07,0.37333e-07,0.38730e-07,0.39816e-07 /) - kbo(:,20, 3) = (/ & - & 0.39844e-07,0.39698e-07,0.39651e-07,0.38618e-07,0.37699e-07 /) - kbo(:,21, 3) = (/ & - & 0.37013e-07,0.35923e-07,0.35560e-07,0.35217e-07,0.34594e-07 /) - kbo(:,22, 3) = (/ & - & 0.32381e-07,0.31844e-07,0.32272e-07,0.32430e-07,0.31922e-07 /) - kbo(:,23, 3) = (/ & - & 0.29924e-07,0.29834e-07,0.30537e-07,0.30494e-07,0.30313e-07 /) - kbo(:,24, 3) = (/ & - & 0.27849e-07,0.28147e-07,0.29005e-07,0.29081e-07,0.28673e-07 /) - kbo(:,25, 3) = (/ & - & 0.25534e-07,0.25854e-07,0.26978e-07,0.27173e-07,0.27116e-07 /) - kbo(:,26, 3) = (/ & - & 0.23413e-07,0.24124e-07,0.25341e-07,0.25322e-07,0.25266e-07 /) - kbo(:,27, 3) = (/ & - & 0.21218e-07,0.22105e-07,0.23470e-07,0.23280e-07,0.23250e-07 /) - kbo(:,28, 3) = (/ & - & 0.19002e-07,0.20309e-07,0.21106e-07,0.20908e-07,0.21199e-07 /) - kbo(:,29, 3) = (/ & - & 0.16901e-07,0.18244e-07,0.18426e-07,0.18398e-07,0.18708e-07 /) - kbo(:,30, 3) = (/ & - & 0.15065e-07,0.15814e-07,0.15711e-07,0.16012e-07,0.16145e-07 /) - kbo(:,31, 3) = (/ & - & 0.13100e-07,0.13194e-07,0.13385e-07,0.13455e-07,0.13435e-07 /) - kbo(:,32, 3) = (/ & - & 0.10972e-07,0.10986e-07,0.11085e-07,0.11182e-07,0.11030e-07 /) - kbo(:,33, 3) = (/ & - & 0.90750e-08,0.90832e-08,0.91769e-08,0.89877e-08,0.89513e-08 /) - kbo(:,34, 3) = (/ & - & 0.75008e-08,0.76569e-08,0.76237e-08,0.74547e-08,0.74719e-08 /) - kbo(:,35, 3) = (/ & - & 0.63063e-08,0.64050e-08,0.62067e-08,0.61836e-08,0.61775e-08 /) - kbo(:,36, 3) = (/ & - & 0.53250e-08,0.52712e-08,0.52454e-08,0.51153e-08,0.51657e-08 /) - kbo(:,37, 3) = (/ & - & 0.45450e-08,0.45358e-08,0.44274e-08,0.43893e-08,0.43616e-08 /) - kbo(:,38, 3) = (/ & - & 0.38039e-08,0.38254e-08,0.37172e-08,0.37203e-08,0.37278e-08 /) - kbo(:,39, 3) = (/ & - & 0.31821e-08,0.31632e-08,0.30774e-08,0.30626e-08,0.30979e-08 /) - kbo(:,40, 3) = (/ & - & 0.27339e-08,0.27443e-08,0.26754e-08,0.26505e-08,0.27022e-08 /) - kbo(:,41, 3) = (/ & - & 0.23939e-08,0.24228e-08,0.23415e-08,0.23287e-08,0.23327e-08 /) - kbo(:,42, 3) = (/ & - & 0.20895e-08,0.20874e-08,0.20298e-08,0.20180e-08,0.19876e-08 /) - kbo(:,43, 3) = (/ & - & 0.17869e-08,0.17800e-08,0.17392e-08,0.17376e-08,0.16927e-08 /) - kbo(:,44, 3) = (/ & - & 0.15169e-08,0.15335e-08,0.14778e-08,0.14668e-08,0.14407e-08 /) - kbo(:,45, 3) = (/ & - & 0.12692e-08,0.12902e-08,0.12439e-08,0.12324e-08,0.11996e-08 /) - kbo(:,46, 3) = (/ & - & 0.10611e-08,0.10656e-08,0.10472e-08,0.10282e-08,0.10015e-08 /) - kbo(:,47, 3) = (/ & - & 0.90394e-09,0.88143e-09,0.87958e-09,0.84984e-09,0.85121e-09 /) - kbo(:,48, 3) = (/ & - & 0.73451e-09,0.71978e-09,0.73014e-09,0.70436e-09,0.69840e-09 /) - kbo(:,49, 3) = (/ & - & 0.58678e-09,0.58259e-09,0.58316e-09,0.55960e-09,0.56079e-09 /) - kbo(:,50, 3) = (/ & - & 0.48502e-09,0.47984e-09,0.48693e-09,0.47265e-09,0.46016e-09 /) - kbo(:,51, 3) = (/ & - & 0.40704e-09,0.40367e-09,0.41046e-09,0.39764e-09,0.38714e-09 /) - kbo(:,52, 3) = (/ & - & 0.33771e-09,0.33070e-09,0.32984e-09,0.33231e-09,0.32299e-09 /) - kbo(:,53, 3) = (/ & - & 0.27062e-09,0.27028e-09,0.26516e-09,0.26816e-09,0.25661e-09 /) - kbo(:,54, 3) = (/ & - & 0.23501e-09,0.23579e-09,0.23460e-09,0.23532e-09,0.22777e-09 /) - kbo(:,55, 3) = (/ & - & 0.20561e-09,0.21843e-09,0.22171e-09,0.22358e-09,0.21702e-09 /) - kbo(:,56, 3) = (/ & - & 0.18557e-09,0.20864e-09,0.21196e-09,0.20646e-09,0.20759e-09 /) - kbo(:,57, 3) = (/ & - & 0.17099e-09,0.19489e-09,0.19486e-09,0.19102e-09,0.19124e-09 /) - kbo(:,58, 3) = (/ & - & 0.16535e-09,0.16955e-09,0.18769e-09,0.18586e-09,0.18358e-09 /) - kbo(:,59, 3) = (/ & - & 0.18472e-09,0.17614e-09,0.20835e-09,0.19900e-09,0.17587e-09 /) - kbo(:,13, 4) = (/ & - & 0.14276e-07,0.14530e-07,0.14762e-07,0.14823e-07,0.15070e-07 /) - kbo(:,14, 4) = (/ & - & 0.22710e-07,0.23419e-07,0.26577e-07,0.28008e-07,0.28298e-07 /) - kbo(:,15, 4) = (/ & - & 0.40218e-07,0.40306e-07,0.38786e-07,0.38421e-07,0.37982e-07 /) - kbo(:,16, 4) = (/ & - & 0.46010e-07,0.46709e-07,0.48658e-07,0.49166e-07,0.49018e-07 /) - kbo(:,17, 4) = (/ & - & 0.57896e-07,0.59606e-07,0.62582e-07,0.65981e-07,0.66467e-07 /) - kbo(:,18, 4) = (/ & - & 0.74731e-07,0.75116e-07,0.75181e-07,0.74922e-07,0.73535e-07 /) - kbo(:,19, 4) = (/ & - & 0.76222e-07,0.73788e-07,0.71345e-07,0.70864e-07,0.69839e-07 /) - kbo(:,20, 4) = (/ & - & 0.69638e-07,0.67680e-07,0.66694e-07,0.67021e-07,0.67066e-07 /) - kbo(:,21, 4) = (/ & - & 0.65779e-07,0.64200e-07,0.63508e-07,0.64106e-07,0.64461e-07 /) - kbo(:,22, 4) = (/ & - & 0.61488e-07,0.60248e-07,0.59719e-07,0.60704e-07,0.61392e-07 /) - kbo(:,23, 4) = (/ & - & 0.56738e-07,0.55143e-07,0.55071e-07,0.56796e-07,0.58031e-07 /) - kbo(:,24, 4) = (/ & - & 0.53299e-07,0.52091e-07,0.52308e-07,0.54157e-07,0.55094e-07 /) - kbo(:,25, 4) = (/ & - & 0.49763e-07,0.48954e-07,0.49068e-07,0.51533e-07,0.52367e-07 /) - kbo(:,26, 4) = (/ & - & 0.46006e-07,0.45410e-07,0.45860e-07,0.48840e-07,0.49788e-07 /) - kbo(:,27, 4) = (/ & - & 0.42208e-07,0.41876e-07,0.43006e-07,0.46350e-07,0.47032e-07 /) - kbo(:,28, 4) = (/ & - & 0.38508e-07,0.38430e-07,0.40481e-07,0.43465e-07,0.43170e-07 /) - kbo(:,29, 4) = (/ & - & 0.33913e-07,0.34466e-07,0.37202e-07,0.38288e-07,0.38327e-07 /) - kbo(:,30, 4) = (/ & - & 0.29454e-07,0.30842e-07,0.33204e-07,0.33354e-07,0.33727e-07 /) - kbo(:,31, 4) = (/ & - & 0.25253e-07,0.27183e-07,0.28228e-07,0.27946e-07,0.28495e-07 /) - kbo(:,32, 4) = (/ & - & 0.21784e-07,0.23351e-07,0.23372e-07,0.23449e-07,0.23246e-07 /) - kbo(:,33, 4) = (/ & - & 0.18910e-07,0.19134e-07,0.18984e-07,0.19294e-07,0.18955e-07 /) - kbo(:,34, 4) = (/ & - & 0.15933e-07,0.15755e-07,0.16059e-07,0.15913e-07,0.15386e-07 /) - kbo(:,35, 4) = (/ & - & 0.13356e-07,0.13247e-07,0.13429e-07,0.13202e-07,0.12675e-07 /) - kbo(:,36, 4) = (/ & - & 0.11207e-07,0.11196e-07,0.11048e-07,0.10870e-07,0.10431e-07 /) - kbo(:,37, 4) = (/ & - & 0.95811e-08,0.94647e-08,0.93875e-08,0.90968e-08,0.88553e-08 /) - kbo(:,38, 4) = (/ & - & 0.81243e-08,0.80255e-08,0.78559e-08,0.75538e-08,0.74057e-08 /) - kbo(:,39, 4) = (/ & - & 0.66871e-08,0.66553e-08,0.65003e-08,0.62809e-08,0.60862e-08 /) - kbo(:,40, 4) = (/ & - & 0.58254e-08,0.57657e-08,0.56185e-08,0.54242e-08,0.52135e-08 /) - kbo(:,41, 4) = (/ & - & 0.50967e-08,0.50027e-08,0.48304e-08,0.46813e-08,0.44864e-08 /) - kbo(:,42, 4) = (/ & - & 0.43731e-08,0.43157e-08,0.41432e-08,0.39968e-08,0.38854e-08 /) - kbo(:,43, 4) = (/ & - & 0.37430e-08,0.37088e-08,0.35491e-08,0.34012e-08,0.33022e-08 /) - kbo(:,44, 4) = (/ & - & 0.32207e-08,0.31034e-08,0.30690e-08,0.29015e-08,0.27644e-08 /) - kbo(:,45, 4) = (/ & - & 0.27111e-08,0.25582e-08,0.26092e-08,0.24352e-08,0.23234e-08 /) - kbo(:,46, 4) = (/ & - & 0.22675e-08,0.21455e-08,0.21930e-08,0.20490e-08,0.19277e-08 /) - kbo(:,47, 4) = (/ & - & 0.18722e-08,0.18163e-08,0.18222e-08,0.17256e-08,0.16025e-08 /) - kbo(:,48, 4) = (/ & - & 0.15670e-08,0.15133e-08,0.14751e-08,0.14433e-08,0.13269e-08 /) - kbo(:,49, 4) = (/ & - & 0.12576e-08,0.12106e-08,0.11779e-08,0.11664e-08,0.10722e-08 /) - kbo(:,50, 4) = (/ & - & 0.10308e-08,0.10019e-08,0.98151e-09,0.96758e-09,0.89739e-09 /) - kbo(:,51, 4) = (/ & - & 0.84050e-09,0.85047e-09,0.83131e-09,0.81346e-09,0.77303e-09 /) - kbo(:,52, 4) = (/ & - & 0.67669e-09,0.70190e-09,0.68695e-09,0.66858e-09,0.63719e-09 /) - kbo(:,53, 4) = (/ & - & 0.52755e-09,0.56097e-09,0.54716e-09,0.53877e-09,0.51047e-09 /) - kbo(:,54, 4) = (/ & - & 0.44864e-09,0.48984e-09,0.48831e-09,0.46728e-09,0.45462e-09 /) - kbo(:,55, 4) = (/ & - & 0.40938e-09,0.45501e-09,0.45212e-09,0.43586e-09,0.42245e-09 /) - kbo(:,56, 4) = (/ & - & 0.38293e-09,0.40217e-09,0.41760e-09,0.39645e-09,0.38652e-09 /) - kbo(:,57, 4) = (/ & - & 0.35808e-09,0.34306e-09,0.38440e-09,0.37442e-09,0.33472e-09 /) - kbo(:,58, 4) = (/ & - & 0.33278e-09,0.31839e-09,0.35327e-09,0.33061e-09,0.29093e-09 /) - kbo(:,59, 4) = (/ & - & 0.32589e-09,0.30766e-09,0.30185e-09,0.35182e-09,0.34474e-09 /) - kbo(:,13, 5) = (/ & - & 0.19090e-07,0.19323e-07,0.21491e-07,0.23162e-07,0.23970e-07 /) - kbo(:,14, 5) = (/ & - & 0.37888e-07,0.37108e-07,0.33727e-07,0.34146e-07,0.33930e-07 /) - kbo(:,15, 5) = (/ & - & 0.46395e-07,0.47265e-07,0.48201e-07,0.50512e-07,0.51101e-07 /) - kbo(:,16, 5) = (/ & - & 0.60743e-07,0.64371e-07,0.67862e-07,0.71479e-07,0.74200e-07 /) - kbo(:,17, 5) = (/ & - & 0.79052e-07,0.79011e-07,0.77558e-07,0.75900e-07,0.76450e-07 /) - kbo(:,18, 5) = (/ & - & 0.75325e-07,0.74009e-07,0.72866e-07,0.72803e-07,0.73869e-07 /) - kbo(:,19, 5) = (/ & - & 0.74009e-07,0.74054e-07,0.73970e-07,0.73800e-07,0.75638e-07 /) - kbo(:,20, 5) = (/ & - & 0.73077e-07,0.73306e-07,0.72248e-07,0.73120e-07,0.74630e-07 /) - kbo(:,21, 5) = (/ & - & 0.68928e-07,0.70100e-07,0.69203e-07,0.69478e-07,0.71860e-07 /) - kbo(:,22, 5) = (/ & - & 0.65324e-07,0.66570e-07,0.66457e-07,0.66345e-07,0.68314e-07 /) - kbo(:,23, 5) = (/ & - & 0.62411e-07,0.63996e-07,0.63443e-07,0.63576e-07,0.65766e-07 /) - kbo(:,24, 5) = (/ & - & 0.60058e-07,0.60956e-07,0.60176e-07,0.60222e-07,0.63287e-07 /) - kbo(:,25, 5) = (/ & - & 0.57223e-07,0.58225e-07,0.58348e-07,0.58584e-07,0.61933e-07 /) - kbo(:,26, 5) = (/ & - & 0.55089e-07,0.55723e-07,0.55839e-07,0.56337e-07,0.60335e-07 /) - kbo(:,27, 5) = (/ & - & 0.52294e-07,0.51745e-07,0.52750e-07,0.52701e-07,0.57676e-07 /) - kbo(:,28, 5) = (/ & - & 0.48915e-07,0.48234e-07,0.48708e-07,0.49873e-07,0.54442e-07 /) - kbo(:,29, 5) = (/ & - & 0.43357e-07,0.43230e-07,0.43679e-07,0.47285e-07,0.49519e-07 /) - kbo(:,30, 5) = (/ & - & 0.37379e-07,0.38427e-07,0.39703e-07,0.43492e-07,0.43278e-07 /) - kbo(:,31, 5) = (/ & - & 0.31354e-07,0.32238e-07,0.35376e-07,0.37358e-07,0.37130e-07 /) - kbo(:,32, 5) = (/ & - & 0.26553e-07,0.27801e-07,0.30978e-07,0.30698e-07,0.31234e-07 /) - kbo(:,33, 5) = (/ & - & 0.21542e-07,0.24274e-07,0.24944e-07,0.25194e-07,0.25415e-07 /) - kbo(:,34, 5) = (/ & - & 0.19097e-07,0.20582e-07,0.20324e-07,0.21006e-07,0.20944e-07 /) - kbo(:,35, 5) = (/ & - & 0.16377e-07,0.16881e-07,0.16957e-07,0.16743e-07,0.16958e-07 /) - kbo(:,36, 5) = (/ & - & 0.13727e-07,0.13834e-07,0.13766e-07,0.13776e-07,0.13546e-07 /) - kbo(:,37, 5) = (/ & - & 0.11550e-07,0.11601e-07,0.11757e-07,0.11723e-07,0.11413e-07 /) - kbo(:,38, 5) = (/ & - & 0.98076e-08,0.96320e-08,0.10028e-07,0.98197e-08,0.91408e-08 /) - kbo(:,39, 5) = (/ & - & 0.80861e-08,0.80113e-08,0.81586e-08,0.80121e-08,0.75021e-08 /) - kbo(:,40, 5) = (/ & - & 0.70348e-08,0.69980e-08,0.71058e-08,0.69171e-08,0.64103e-08 /) - kbo(:,41, 5) = (/ & - & 0.61395e-08,0.60379e-08,0.61651e-08,0.59006e-08,0.54433e-08 /) - kbo(:,42, 5) = (/ & - & 0.51740e-08,0.51391e-08,0.53717e-08,0.50506e-08,0.46901e-08 /) - kbo(:,43, 5) = (/ & - & 0.44374e-08,0.44002e-08,0.45405e-08,0.42888e-08,0.39390e-08 /) - kbo(:,44, 5) = (/ & - & 0.36635e-08,0.37555e-08,0.37320e-08,0.35598e-08,0.33280e-08 /) - kbo(:,45, 5) = (/ & - & 0.30833e-08,0.31320e-08,0.30264e-08,0.29827e-08,0.28298e-08 /) - kbo(:,46, 5) = (/ & - & 0.25366e-08,0.26077e-08,0.24905e-08,0.24281e-08,0.22727e-08 /) - kbo(:,47, 5) = (/ & - & 0.20576e-08,0.22029e-08,0.20905e-08,0.21040e-08,0.19027e-08 /) - kbo(:,48, 5) = (/ & - & 0.16047e-08,0.18190e-08,0.17008e-08,0.17298e-08,0.16059e-08 /) - kbo(:,49, 5) = (/ & - & 0.12276e-08,0.14135e-08,0.13565e-08,0.13704e-08,0.13029e-08 /) - kbo(:,50, 5) = (/ & - & 0.98291e-09,0.11837e-08,0.11000e-08,0.11342e-08,0.10621e-08 /) - kbo(:,51, 5) = (/ & - & 0.79374e-09,0.97756e-09,0.90252e-09,0.90527e-09,0.86815e-09 /) - kbo(:,52, 5) = (/ & - & 0.64781e-09,0.78454e-09,0.75690e-09,0.74124e-09,0.73195e-09 /) - kbo(:,53, 5) = (/ & - & 0.51536e-09,0.61158e-09,0.60936e-09,0.59007e-09,0.58458e-09 /) - kbo(:,54, 5) = (/ & - & 0.46178e-09,0.51944e-09,0.52167e-09,0.53965e-09,0.50524e-09 /) - kbo(:,55, 5) = (/ & - & 0.44467e-09,0.42857e-09,0.50799e-09,0.47528e-09,0.43900e-09 /) - kbo(:,56, 5) = (/ & - & 0.39667e-09,0.37862e-09,0.45808e-09,0.43270e-09,0.38817e-09 /) - kbo(:,57, 5) = (/ & - & 0.35926e-09,0.35410e-09,0.38962e-09,0.37502e-09,0.40935e-09 /) - kbo(:,58, 5) = (/ & - & 0.31517e-09,0.32964e-09,0.29323e-09,0.39945e-09,0.40389e-09 /) - kbo(:,59, 5) = (/ & - & 0.36198e-09,0.38633e-09,0.41096e-09,0.53914e-09,0.57631e-09 /) - kbo(:,13, 6) = (/ & - & 0.23095e-07,0.23025e-07,0.25126e-07,0.25618e-07,0.24969e-07 /) - kbo(:,14, 6) = (/ & - & 0.31573e-07,0.32360e-07,0.33220e-07,0.32611e-07,0.32150e-07 /) - kbo(:,15, 6) = (/ & - & 0.45219e-07,0.45787e-07,0.47088e-07,0.49543e-07,0.54072e-07 /) - kbo(:,16, 6) = (/ & - & 0.65293e-07,0.67448e-07,0.64557e-07,0.63976e-07,0.64905e-07 /) - kbo(:,17, 6) = (/ & - & 0.64862e-07,0.63259e-07,0.62851e-07,0.62500e-07,0.63112e-07 /) - kbo(:,18, 6) = (/ & - & 0.61849e-07,0.62108e-07,0.60565e-07,0.60920e-07,0.61810e-07 /) - kbo(:,19, 6) = (/ & - & 0.63930e-07,0.63195e-07,0.62478e-07,0.62282e-07,0.62250e-07 /) - kbo(:,20, 6) = (/ & - & 0.60100e-07,0.60269e-07,0.59919e-07,0.57578e-07,0.57933e-07 /) - kbo(:,21, 6) = (/ & - & 0.56465e-07,0.56674e-07,0.56992e-07,0.55969e-07,0.54719e-07 /) - kbo(:,22, 6) = (/ & - & 0.54280e-07,0.53760e-07,0.52615e-07,0.52261e-07,0.51523e-07 /) - kbo(:,23, 6) = (/ & - & 0.49921e-07,0.49472e-07,0.49168e-07,0.47959e-07,0.47449e-07 /) - kbo(:,24, 6) = (/ & - & 0.45803e-07,0.46271e-07,0.46322e-07,0.46536e-07,0.46494e-07 /) - kbo(:,25, 6) = (/ & - & 0.43723e-07,0.44225e-07,0.44324e-07,0.43726e-07,0.43579e-07 /) - kbo(:,26, 6) = (/ & - & 0.41617e-07,0.42588e-07,0.42306e-07,0.41086e-07,0.41943e-07 /) - kbo(:,27, 6) = (/ & - & 0.38855e-07,0.40231e-07,0.39090e-07,0.39461e-07,0.39072e-07 /) - kbo(:,28, 6) = (/ & - & 0.35912e-07,0.36691e-07,0.35670e-07,0.35644e-07,0.38295e-07 /) - kbo(:,29, 6) = (/ & - & 0.33357e-07,0.33134e-07,0.32394e-07,0.32909e-07,0.36234e-07 /) - kbo(:,30, 6) = (/ & - & 0.30529e-07,0.29196e-07,0.29147e-07,0.30292e-07,0.33912e-07 /) - kbo(:,31, 6) = (/ & - & 0.27228e-07,0.27081e-07,0.26630e-07,0.30010e-07,0.28781e-07 /) - kbo(:,32, 6) = (/ & - & 0.24109e-07,0.24388e-07,0.25546e-07,0.26823e-07,0.26681e-07 /) - kbo(:,33, 6) = (/ & - & 0.21402e-07,0.22303e-07,0.24668e-07,0.24556e-07,0.24369e-07 /) - kbo(:,34, 6) = (/ & - & 0.18136e-07,0.20944e-07,0.21211e-07,0.21286e-07,0.21648e-07 /) - kbo(:,35, 6) = (/ & - & 0.16306e-07,0.17531e-07,0.17744e-07,0.18061e-07,0.18282e-07 /) - kbo(:,36, 6) = (/ & - & 0.13873e-07,0.14963e-07,0.15398e-07,0.15527e-07,0.15391e-07 /) - kbo(:,37, 6) = (/ & - & 0.11948e-07,0.12614e-07,0.12946e-07,0.12916e-07,0.13085e-07 /) - kbo(:,38, 6) = (/ & - & 0.98235e-08,0.10612e-07,0.10029e-07,0.10618e-07,0.10860e-07 /) - kbo(:,39, 6) = (/ & - & 0.81514e-08,0.84716e-08,0.81123e-08,0.83644e-08,0.81668e-08 /) - kbo(:,40, 6) = (/ & - & 0.68179e-08,0.69030e-08,0.69393e-08,0.69969e-08,0.71027e-08 /) - kbo(:,41, 6) = (/ & - & 0.59350e-08,0.60668e-08,0.59026e-08,0.60181e-08,0.60779e-08 /) - kbo(:,42, 6) = (/ & - & 0.51181e-08,0.52127e-08,0.48788e-08,0.51397e-08,0.50230e-08 /) - kbo(:,43, 6) = (/ & - & 0.42653e-08,0.44600e-08,0.41100e-08,0.44735e-08,0.42607e-08 /) - kbo(:,44, 6) = (/ & - & 0.34724e-08,0.37628e-08,0.35340e-08,0.38309e-08,0.36188e-08 /) - kbo(:,45, 6) = (/ & - & 0.27994e-08,0.31690e-08,0.28599e-08,0.30290e-08,0.27730e-08 /) - kbo(:,46, 6) = (/ & - & 0.22089e-08,0.25761e-08,0.23856e-08,0.24874e-08,0.23603e-08 /) - kbo(:,47, 6) = (/ & - & 0.18078e-08,0.20304e-08,0.19457e-08,0.19366e-08,0.19286e-08 /) - kbo(:,48, 6) = (/ & - & 0.14716e-08,0.15703e-08,0.17393e-08,0.14836e-08,0.15316e-08 /) - kbo(:,49, 6) = (/ & - & 0.11334e-08,0.12901e-08,0.13556e-08,0.11610e-08,0.11617e-08 /) - kbo(:,50, 6) = (/ & - & 0.90881e-09,0.10323e-08,0.11378e-08,0.95509e-09,0.96291e-09 /) - kbo(:,51, 6) = (/ & - & 0.76751e-09,0.81710e-09,0.97432e-09,0.82408e-09,0.81205e-09 /) - kbo(:,52, 6) = (/ & - & 0.62668e-09,0.66223e-09,0.76870e-09,0.68347e-09,0.65771e-09 /) - kbo(:,53, 6) = (/ & - & 0.50547e-09,0.49991e-09,0.61494e-09,0.55640e-09,0.52803e-09 /) - kbo(:,54, 6) = (/ & - & 0.42841e-09,0.42678e-09,0.51796e-09,0.46340e-09,0.44830e-09 /) - kbo(:,55, 6) = (/ & - & 0.40234e-09,0.40065e-09,0.45944e-09,0.42252e-09,0.44365e-09 /) - kbo(:,56, 6) = (/ & - & 0.36764e-09,0.35937e-09,0.36570e-09,0.44631e-09,0.45684e-09 /) - kbo(:,57, 6) = (/ & - & 0.33321e-09,0.29808e-09,0.31056e-09,0.44585e-09,0.41122e-09 /) - kbo(:,58, 6) = (/ & - & 0.31198e-09,0.29542e-09,0.33327e-09,0.43871e-09,0.45291e-09 /) - kbo(:,59, 6) = (/ & - & 0.38710e-09,0.42412e-09,0.44197e-09,0.49964e-09,0.70387e-09 /) - kbo(:,13, 7) = (/ & - & 0.30377e-07,0.31586e-07,0.27647e-07,0.27937e-07,0.28036e-07 /) - kbo(:,14, 7) = (/ & - & 0.37766e-07,0.39819e-07,0.39822e-07,0.40069e-07,0.42091e-07 /) - kbo(:,15, 7) = (/ & - & 0.57996e-07,0.64474e-07,0.69368e-07,0.70909e-07,0.70748e-07 /) - kbo(:,16, 7) = (/ & - & 0.73220e-07,0.70124e-07,0.69135e-07,0.68058e-07,0.66524e-07 /) - kbo(:,17, 7) = (/ & - & 0.66529e-07,0.66306e-07,0.63797e-07,0.63551e-07,0.63462e-07 /) - kbo(:,18, 7) = (/ & - & 0.66492e-07,0.65156e-07,0.66323e-07,0.64485e-07,0.63285e-07 /) - kbo(:,19, 7) = (/ & - & 0.62980e-07,0.62900e-07,0.62718e-07,0.61114e-07,0.59765e-07 /) - kbo(:,20, 7) = (/ & - & 0.59754e-07,0.58066e-07,0.59540e-07,0.58926e-07,0.57835e-07 /) - kbo(:,21, 7) = (/ & - & 0.57368e-07,0.55161e-07,0.55685e-07,0.55360e-07,0.53982e-07 /) - kbo(:,22, 7) = (/ & - & 0.51435e-07,0.49998e-07,0.50952e-07,0.50442e-07,0.49717e-07 /) - kbo(:,23, 7) = (/ & - & 0.47663e-07,0.46845e-07,0.47849e-07,0.48876e-07,0.48885e-07 /) - kbo(:,24, 7) = (/ & - & 0.47926e-07,0.45619e-07,0.45793e-07,0.46467e-07,0.45938e-07 /) - kbo(:,25, 7) = (/ & - & 0.44687e-07,0.43904e-07,0.44284e-07,0.44176e-07,0.45520e-07 /) - kbo(:,26, 7) = (/ & - & 0.42751e-07,0.41938e-07,0.42889e-07,0.42927e-07,0.43868e-07 /) - kbo(:,27, 7) = (/ & - & 0.40180e-07,0.40529e-07,0.40621e-07,0.40949e-07,0.41005e-07 /) - kbo(:,28, 7) = (/ & - & 0.35890e-07,0.36716e-07,0.37875e-07,0.38308e-07,0.37626e-07 /) - kbo(:,29, 7) = (/ & - & 0.31499e-07,0.33284e-07,0.32725e-07,0.32493e-07,0.35018e-07 /) - kbo(:,30, 7) = (/ & - & 0.29364e-07,0.28675e-07,0.28942e-07,0.28761e-07,0.33960e-07 /) - kbo(:,31, 7) = (/ & - & 0.25558e-07,0.23679e-07,0.24292e-07,0.26053e-07,0.29211e-07 /) - kbo(:,32, 7) = (/ & - & 0.20860e-07,0.21491e-07,0.20910e-07,0.25598e-07,0.24209e-07 /) - kbo(:,33, 7) = (/ & - & 0.18874e-07,0.18554e-07,0.21206e-07,0.20708e-07,0.21100e-07 /) - kbo(:,34, 7) = (/ & - & 0.18632e-07,0.18625e-07,0.20707e-07,0.19570e-07,0.18956e-07 /) - kbo(:,35, 7) = (/ & - & 0.15958e-07,0.19141e-07,0.19004e-07,0.19249e-07,0.17793e-07 /) - kbo(:,36, 7) = (/ & - & 0.14552e-07,0.16561e-07,0.16607e-07,0.16784e-07,0.16326e-07 /) - kbo(:,37, 7) = (/ & - & 0.13127e-07,0.14300e-07,0.14021e-07,0.14385e-07,0.13328e-07 /) - kbo(:,38, 7) = (/ & - & 0.11514e-07,0.12356e-07,0.12677e-07,0.12181e-07,0.11774e-07 /) - kbo(:,39, 7) = (/ & - & 0.93434e-08,0.10196e-07,0.10605e-07,0.10201e-07,0.10584e-07 /) - kbo(:,40, 7) = (/ & - & 0.81790e-08,0.89000e-08,0.85315e-08,0.89663e-08,0.91635e-08 /) - kbo(:,41, 7) = (/ & - & 0.65541e-08,0.74884e-08,0.72364e-08,0.72692e-08,0.75649e-08 /) - kbo(:,42, 7) = (/ & - & 0.54665e-08,0.61796e-08,0.61564e-08,0.61304e-08,0.64285e-08 /) - kbo(:,43, 7) = (/ & - & 0.43531e-08,0.47798e-08,0.51393e-08,0.49135e-08,0.53520e-08 /) - kbo(:,44, 7) = (/ & - & 0.35872e-08,0.38233e-08,0.42659e-08,0.39384e-08,0.44541e-08 /) - kbo(:,45, 7) = (/ & - & 0.28156e-08,0.32775e-08,0.36262e-08,0.32518e-08,0.36805e-08 /) - kbo(:,46, 7) = (/ & - & 0.23879e-08,0.26299e-08,0.28972e-08,0.27379e-08,0.30333e-08 /) - kbo(:,47, 7) = (/ & - & 0.19282e-08,0.22066e-08,0.23812e-08,0.23512e-08,0.23794e-08 /) - kbo(:,48, 7) = (/ & - & 0.15092e-08,0.18255e-08,0.17414e-08,0.19322e-08,0.19399e-08 /) - kbo(:,49, 7) = (/ & - & 0.11905e-08,0.13964e-08,0.14306e-08,0.14791e-08,0.14939e-08 /) - kbo(:,50, 7) = (/ & - & 0.98537e-09,0.10687e-08,0.11753e-08,0.11334e-08,0.13178e-08 /) - kbo(:,51, 7) = (/ & - & 0.84255e-09,0.88069e-09,0.95073e-09,0.92632e-09,0.10457e-08 /) - kbo(:,52, 7) = (/ & - & 0.68238e-09,0.70376e-09,0.74795e-09,0.75152e-09,0.78131e-09 /) - kbo(:,53, 7) = (/ & - & 0.56271e-09,0.58527e-09,0.61397e-09,0.56343e-09,0.61138e-09 /) - kbo(:,54, 7) = (/ & - & 0.52493e-09,0.46040e-09,0.53769e-09,0.51459e-09,0.52912e-09 /) - kbo(:,55, 7) = (/ & - & 0.40372e-09,0.38720e-09,0.40004e-09,0.56294e-09,0.55844e-09 /) - kbo(:,56, 7) = (/ & - & 0.37372e-09,0.35358e-09,0.39920e-09,0.52819e-09,0.50147e-09 /) - kbo(:,57, 7) = (/ & - & 0.31149e-09,0.39454e-09,0.38951e-09,0.52086e-09,0.54542e-09 /) - kbo(:,58, 7) = (/ & - & 0.30564e-09,0.36251e-09,0.38551e-09,0.43845e-09,0.61772e-09 /) - kbo(:,59, 7) = (/ & - & 0.46934e-09,0.57639e-09,0.58591e-09,0.63021e-09,0.71158e-09 /) - kbo(:,13, 8) = (/ & - & 0.34320e-07,0.31607e-07,0.29840e-07,0.29114e-07,0.28831e-07 /) - kbo(:,14, 8) = (/ & - & 0.38157e-07,0.37907e-07,0.40351e-07,0.45015e-07,0.44786e-07 /) - kbo(:,15, 8) = (/ & - & 0.71231e-07,0.71647e-07,0.71034e-07,0.71647e-07,0.71755e-07 /) - kbo(:,16, 8) = (/ & - & 0.72049e-07,0.69075e-07,0.67707e-07,0.67019e-07,0.66780e-07 /) - kbo(:,17, 8) = (/ & - & 0.69751e-07,0.66211e-07,0.66017e-07,0.63095e-07,0.63343e-07 /) - kbo(:,18, 8) = (/ & - & 0.67728e-07,0.66581e-07,0.64787e-07,0.62981e-07,0.62245e-07 /) - kbo(:,19, 8) = (/ & - & 0.65864e-07,0.63789e-07,0.62712e-07,0.62065e-07,0.61005e-07 /) - kbo(:,20, 8) = (/ & - & 0.61816e-07,0.63755e-07,0.63424e-07,0.61945e-07,0.58720e-07 /) - kbo(:,21, 8) = (/ & - & 0.59112e-07,0.58061e-07,0.57019e-07,0.54795e-07,0.56069e-07 /) - kbo(:,22, 8) = (/ & - & 0.56217e-07,0.53887e-07,0.54812e-07,0.52500e-07,0.53303e-07 /) - kbo(:,23, 8) = (/ & - & 0.54428e-07,0.52930e-07,0.53278e-07,0.52797e-07,0.51840e-07 /) - kbo(:,24, 8) = (/ & - & 0.51236e-07,0.52532e-07,0.53348e-07,0.51715e-07,0.53224e-07 /) - kbo(:,25, 8) = (/ & - & 0.49989e-07,0.50872e-07,0.49932e-07,0.52702e-07,0.51493e-07 /) - kbo(:,26, 8) = (/ & - & 0.49845e-07,0.48733e-07,0.48348e-07,0.51346e-07,0.51109e-07 /) - kbo(:,27, 8) = (/ & - & 0.43883e-07,0.43853e-07,0.46523e-07,0.47281e-07,0.47292e-07 /) - kbo(:,28, 8) = (/ & - & 0.41424e-07,0.42057e-07,0.43773e-07,0.43422e-07,0.41438e-07 /) - kbo(:,29, 8) = (/ & - & 0.37736e-07,0.34915e-07,0.37971e-07,0.38437e-07,0.38122e-07 /) - kbo(:,30, 8) = (/ & - & 0.30209e-07,0.32936e-07,0.31853e-07,0.30285e-07,0.31746e-07 /) - kbo(:,31, 8) = (/ & - & 0.25886e-07,0.26990e-07,0.27039e-07,0.26019e-07,0.34246e-07 /) - kbo(:,32, 8) = (/ & - & 0.24750e-07,0.20653e-07,0.21921e-07,0.25087e-07,0.25874e-07 /) - kbo(:,33, 8) = (/ & - & 0.19410e-07,0.18820e-07,0.18768e-07,0.23223e-07,0.20942e-07 /) - kbo(:,34, 8) = (/ & - & 0.16037e-07,0.16060e-07,0.19012e-07,0.17686e-07,0.18319e-07 /) - kbo(:,35, 8) = (/ & - & 0.16085e-07,0.15072e-07,0.16472e-07,0.15719e-07,0.16406e-07 /) - kbo(:,36, 8) = (/ & - & 0.15014e-07,0.17144e-07,0.16353e-07,0.15223e-07,0.14884e-07 /) - kbo(:,37, 8) = (/ & - & 0.12909e-07,0.15628e-07,0.16086e-07,0.15318e-07,0.15605e-07 /) - kbo(:,38, 8) = (/ & - & 0.11803e-07,0.12970e-07,0.13587e-07,0.13257e-07,0.13920e-07 /) - kbo(:,39, 8) = (/ & - & 0.10299e-07,0.10951e-07,0.11006e-07,0.11507e-07,0.10553e-07 /) - kbo(:,40, 8) = (/ & - & 0.87605e-08,0.10094e-07,0.10641e-07,0.94199e-08,0.97115e-08 /) - kbo(:,41, 8) = (/ & - & 0.69747e-08,0.82105e-08,0.93516e-08,0.90234e-08,0.91657e-08 /) - kbo(:,42, 8) = (/ & - & 0.60201e-08,0.73523e-08,0.76249e-08,0.76962e-08,0.80489e-08 /) - kbo(:,43, 8) = (/ & - & 0.50249e-08,0.64035e-08,0.62997e-08,0.63745e-08,0.65773e-08 /) - kbo(:,44, 8) = (/ & - & 0.43021e-08,0.55682e-08,0.52391e-08,0.55432e-08,0.53417e-08 /) - kbo(:,45, 8) = (/ & - & 0.34659e-08,0.41011e-08,0.41998e-08,0.45328e-08,0.45452e-08 /) - kbo(:,46, 8) = (/ & - & 0.26629e-08,0.30573e-08,0.34050e-08,0.36018e-08,0.38146e-08 /) - kbo(:,47, 8) = (/ & - & 0.20352e-08,0.25120e-08,0.29668e-08,0.27818e-08,0.34015e-08 /) - kbo(:,48, 8) = (/ & - & 0.16537e-08,0.17568e-08,0.23894e-08,0.22154e-08,0.25802e-08 /) - kbo(:,49, 8) = (/ & - & 0.13981e-08,0.14349e-08,0.17246e-08,0.17767e-08,0.19090e-08 /) - kbo(:,50, 8) = (/ & - & 0.10918e-08,0.11356e-08,0.12258e-08,0.14996e-08,0.12493e-08 /) - kbo(:,51, 8) = (/ & - & 0.96204e-09,0.88786e-09,0.10061e-08,0.12415e-08,0.10774e-08 /) - kbo(:,52, 8) = (/ & - & 0.79848e-09,0.70289e-09,0.84515e-09,0.10143e-08,0.85552e-09 /) - kbo(:,53, 8) = (/ & - & 0.60435e-09,0.54746e-09,0.63806e-09,0.74615e-09,0.64507e-09 /) - kbo(:,54, 8) = (/ & - & 0.47378e-09,0.48059e-09,0.54886e-09,0.73215e-09,0.65721e-09 /) - kbo(:,55, 8) = (/ & - & 0.45346e-09,0.46291e-09,0.55380e-09,0.67829e-09,0.56756e-09 /) - kbo(:,56, 8) = (/ & - & 0.43938e-09,0.46043e-09,0.50980e-09,0.62685e-09,0.70094e-09 /) - kbo(:,57, 8) = (/ & - & 0.42587e-09,0.43184e-09,0.47819e-09,0.57152e-09,0.76528e-09 /) - kbo(:,58, 8) = (/ & - & 0.47403e-09,0.46387e-09,0.50904e-09,0.58886e-09,0.70162e-09 /) - kbo(:,59, 8) = (/ & - & 0.54448e-09,0.50172e-09,0.65155e-09,0.65748e-09,0.98321e-09 /) - kbo(:,13, 9) = (/ & - & 0.10995e-05,0.11095e-05,0.11168e-05,0.11200e-05,0.11274e-05 /) - kbo(:,14, 9) = (/ & - & 0.73340e-06,0.73567e-06,0.73740e-06,0.73330e-06,0.73919e-06 /) - kbo(:,15, 9) = (/ & - & 0.32510e-06,0.31252e-06,0.30243e-06,0.29146e-06,0.28830e-06 /) - kbo(:,16, 9) = (/ & - & 0.61567e-07,0.60590e-07,0.61057e-07,0.58821e-07,0.58536e-07 /) - kbo(:,17, 9) = (/ & - & 0.60009e-07,0.60924e-07,0.61205e-07,0.63591e-07,0.59950e-07 /) - kbo(:,18, 9) = (/ & - & 0.61458e-07,0.61692e-07,0.60339e-07,0.59878e-07,0.58575e-07 /) - kbo(:,19, 9) = (/ & - & 0.57878e-07,0.60299e-07,0.60236e-07,0.59512e-07,0.58126e-07 /) - kbo(:,20, 9) = (/ & - & 0.58329e-07,0.57451e-07,0.54760e-07,0.57082e-07,0.56805e-07 /) - kbo(:,21, 9) = (/ & - & 0.53092e-07,0.51700e-07,0.51833e-07,0.52853e-07,0.52467e-07 /) - kbo(:,22, 9) = (/ & - & 0.47591e-07,0.51357e-07,0.49075e-07,0.53548e-07,0.55924e-07 /) - kbo(:,23, 9) = (/ & - & 0.49724e-07,0.51803e-07,0.51793e-07,0.49922e-07,0.52665e-07 /) - kbo(:,24, 9) = (/ & - & 0.47737e-07,0.49279e-07,0.51207e-07,0.49000e-07,0.51613e-07 /) - kbo(:,25, 9) = (/ & - & 0.49014e-07,0.50174e-07,0.54886e-07,0.47520e-07,0.49798e-07 /) - kbo(:,26, 9) = (/ & - & 0.42783e-07,0.51200e-07,0.50600e-07,0.47620e-07,0.43709e-07 /) - kbo(:,27, 9) = (/ & - & 0.42685e-07,0.50611e-07,0.42800e-07,0.43026e-07,0.46518e-07 /) - kbo(:,28, 9) = (/ & - & 0.40023e-07,0.44433e-07,0.38380e-07,0.40945e-07,0.42005e-07 /) - kbo(:,29, 9) = (/ & - & 0.34641e-07,0.38943e-07,0.36153e-07,0.36773e-07,0.32051e-07 /) - kbo(:,30, 9) = (/ & - & 0.31936e-07,0.28774e-07,0.32629e-07,0.32074e-07,0.31547e-07 /) - kbo(:,31, 9) = (/ & - & 0.25468e-07,0.25946e-07,0.23671e-07,0.23770e-07,0.28704e-07 /) - kbo(:,32, 9) = (/ & - & 0.18317e-07,0.22069e-07,0.20055e-07,0.21665e-07,0.25653e-07 /) - kbo(:,33, 9) = (/ & - & 0.18319e-07,0.17920e-07,0.16523e-07,0.20049e-07,0.19951e-07 /) - kbo(:,34, 9) = (/ & - & 0.15127e-07,0.13546e-07,0.16257e-07,0.16818e-07,0.15661e-07 /) - kbo(:,35, 9) = (/ & - & 0.12192e-07,0.13829e-07,0.15792e-07,0.15440e-07,0.14596e-07 /) - kbo(:,36, 9) = (/ & - & 0.11593e-07,0.10509e-07,0.13211e-07,0.13026e-07,0.13917e-07 /) - kbo(:,37, 9) = (/ & - & 0.12302e-07,0.13196e-07,0.12558e-07,0.11760e-07,0.12490e-07 /) - kbo(:,38, 9) = (/ & - & 0.10116e-07,0.12498e-07,0.12546e-07,0.12890e-07,0.12908e-07 /) - kbo(:,39, 9) = (/ & - & 0.88258e-08,0.10400e-07,0.11293e-07,0.11361e-07,0.11468e-07 /) - kbo(:,40, 9) = (/ & - & 0.70753e-08,0.81481e-08,0.94292e-08,0.10943e-07,0.90300e-08 /) - kbo(:,41, 9) = (/ & - & 0.71994e-08,0.84394e-08,0.89108e-08,0.89407e-08,0.87875e-08 /) - kbo(:,42, 9) = (/ & - & 0.55536e-08,0.66846e-08,0.83965e-08,0.80560e-08,0.79305e-08 /) - kbo(:,43, 9) = (/ & - & 0.50223e-08,0.59958e-08,0.69583e-08,0.70648e-08,0.76990e-08 /) - kbo(:,44, 9) = (/ & - & 0.40990e-08,0.43884e-08,0.50706e-08,0.56081e-08,0.62414e-08 /) - kbo(:,45, 9) = (/ & - & 0.35590e-08,0.38731e-08,0.41923e-08,0.44278e-08,0.44950e-08 /) - kbo(:,46, 9) = (/ & - & 0.26814e-08,0.33691e-08,0.34101e-08,0.34324e-08,0.35321e-08 /) - kbo(:,47, 9) = (/ & - & 0.21424e-08,0.21249e-08,0.27532e-08,0.28475e-08,0.25748e-08 /) - kbo(:,48, 9) = (/ & - & 0.16514e-08,0.18931e-08,0.22507e-08,0.22575e-08,0.21238e-08 /) - kbo(:,49, 9) = (/ & - & 0.12235e-08,0.12503e-08,0.16643e-08,0.16742e-08,0.16438e-08 /) - kbo(:,50, 9) = (/ & - & 0.11340e-08,0.11248e-08,0.13120e-08,0.13854e-08,0.13503e-08 /) - kbo(:,51, 9) = (/ & - & 0.79176e-09,0.91681e-09,0.99908e-09,0.13532e-08,0.10405e-08 /) - kbo(:,52, 9) = (/ & - & 0.64785e-09,0.57185e-09,0.84784e-09,0.90912e-09,0.87721e-09 /) - kbo(:,53, 9) = (/ & - & 0.51330e-09,0.43209e-09,0.61659e-09,0.79798e-09,0.65017e-09 /) - kbo(:,54, 9) = (/ & - & 0.40227e-09,0.45562e-09,0.54691e-09,0.63160e-09,0.62902e-09 /) - kbo(:,55, 9) = (/ & - & 0.44280e-09,0.43833e-09,0.48132e-09,0.55748e-09,0.72672e-09 /) - kbo(:,56, 9) = (/ & - & 0.33767e-09,0.43448e-09,0.42774e-09,0.52401e-09,0.66273e-09 /) - kbo(:,57, 9) = (/ & - & 0.40113e-09,0.38794e-09,0.46286e-09,0.57261e-09,0.60773e-09 /) - kbo(:,58, 9) = (/ & - & 0.36624e-09,0.52965e-09,0.49530e-09,0.54114e-09,0.65708e-09 /) - kbo(:,59, 9) = (/ & - & 0.52598e-09,0.55940e-09,0.70094e-09,0.71749e-09,0.81086e-09 /) - kbo(:,13,10) = (/ & - & 0.75197e-05,0.74908e-05,0.74768e-05,0.74579e-05,0.74485e-05 /) - kbo(:,14,10) = (/ & - & 0.62427e-05,0.62400e-05,0.62314e-05,0.62357e-05,0.62230e-05 /) - kbo(:,15,10) = (/ & - & 0.51235e-05,0.51220e-05,0.51270e-05,0.51388e-05,0.51377e-05 /) - kbo(:,16,10) = (/ & - & 0.36653e-05,0.36812e-05,0.36844e-05,0.36893e-05,0.37175e-05 /) - kbo(:,17,10) = (/ & - & 0.10067e-05,0.10571e-05,0.10948e-05,0.11331e-05,0.11791e-05 /) - kbo(:,18,10) = (/ & - & 0.37963e-07,0.35028e-07,0.38085e-07,0.36252e-07,0.39741e-07 /) - kbo(:,19,10) = (/ & - & 0.58861e-07,0.39909e-07,0.43872e-07,0.52963e-07,0.37762e-07 /) - kbo(:,20,10) = (/ & - & 0.65438e-07,0.43429e-07,0.52709e-07,0.35811e-07,0.59833e-07 /) - kbo(:,21,10) = (/ & - & 0.50452e-07,0.50995e-07,0.40371e-07,0.51145e-07,0.52725e-07 /) - kbo(:,22,10) = (/ & - & 0.42139e-07,0.45011e-07,0.61867e-07,0.41292e-07,0.37916e-07 /) - kbo(:,23,10) = (/ & - & 0.30176e-07,0.29856e-07,0.39637e-07,0.38957e-07,0.64896e-07 /) - kbo(:,24,10) = (/ & - & 0.36010e-07,0.42155e-07,0.32787e-07,0.46750e-07,0.46940e-07 /) - kbo(:,25,10) = (/ & - & 0.34802e-07,0.41607e-07,0.40854e-07,0.61643e-07,0.53762e-07 /) - kbo(:,26,10) = (/ & - & 0.41295e-07,0.39697e-07,0.46005e-07,0.46334e-07,0.53334e-07 /) - kbo(:,27,10) = (/ & - & 0.61711e-07,0.29641e-07,0.51823e-07,0.42625e-07,0.36336e-07 /) - kbo(:,28,10) = (/ & - & 0.45196e-07,0.56637e-07,0.31716e-07,0.38569e-07,0.45693e-07 /) - kbo(:,29,10) = (/ & - & 0.47349e-07,0.38492e-07,0.26330e-07,0.30953e-07,0.33330e-07 /) - kbo(:,30,10) = (/ & - & 0.20700e-07,0.24999e-07,0.19626e-07,0.33645e-07,0.21883e-07 /) - kbo(:,31,10) = (/ & - & 0.31879e-07,0.26245e-07,0.28697e-07,0.26867e-07,0.26801e-07 /) - kbo(:,32,10) = (/ & - & 0.29616e-07,0.18927e-07,0.18903e-07,0.14917e-07,0.25602e-07 /) - kbo(:,33,10) = (/ & - & 0.22437e-07,0.26260e-07,0.17262e-07,0.13354e-07,0.18413e-07 /) - kbo(:,34,10) = (/ & - & 0.15957e-07,0.11226e-07,0.16852e-07,0.11987e-07,0.14358e-07 /) - kbo(:,35,10) = (/ & - & 0.11233e-07,0.90736e-08,0.13960e-07,0.76472e-08,0.11733e-07 /) - kbo(:,36,10) = (/ & - & 0.13919e-07,0.10081e-07,0.10035e-07,0.10345e-07,0.10622e-07 /) - kbo(:,37,10) = (/ & - & 0.76780e-08,0.12331e-07,0.10794e-07,0.16023e-07,0.11524e-07 /) - kbo(:,38,10) = (/ & - & 0.65416e-08,0.97484e-08,0.12132e-07,0.10472e-07,0.11363e-07 /) - kbo(:,39,10) = (/ & - & 0.78511e-08,0.70392e-08,0.91444e-08,0.84352e-08,0.95946e-08 /) - kbo(:,40,10) = (/ & - & 0.81878e-08,0.94957e-08,0.84996e-08,0.11246e-07,0.13024e-07 /) - kbo(:,41,10) = (/ & - & 0.65901e-08,0.80717e-08,0.78357e-08,0.67309e-08,0.85966e-08 /) - kbo(:,42,10) = (/ & - & 0.64210e-08,0.59979e-08,0.56936e-08,0.70018e-08,0.70433e-08 /) - kbo(:,43,10) = (/ & - & 0.40388e-08,0.71452e-08,0.63548e-08,0.84902e-08,0.75828e-08 /) - kbo(:,44,10) = (/ & - & 0.39142e-08,0.55915e-08,0.49863e-08,0.52254e-08,0.62790e-08 /) - kbo(:,45,10) = (/ & - & 0.42931e-08,0.31608e-08,0.46572e-08,0.47490e-08,0.59912e-08 /) - kbo(:,46,10) = (/ & - & 0.38722e-08,0.16146e-08,0.40010e-08,0.24242e-08,0.45711e-08 /) - kbo(:,47,10) = (/ & - & 0.14942e-08,0.28671e-08,0.27168e-08,0.40090e-08,0.42343e-08 /) - kbo(:,48,10) = (/ & - & 0.11911e-08,0.13582e-08,0.26580e-08,0.29275e-08,0.17855e-08 /) - kbo(:,49,10) = (/ & - & 0.14130e-08,0.10553e-08,0.10543e-08,0.11428e-08,0.14141e-08 /) - kbo(:,50,10) = (/ & - & 0.12182e-08,0.14973e-08,0.13182e-08,0.84197e-09,0.12115e-08 /) - kbo(:,51,10) = (/ & - & 0.81227e-09,0.90496e-09,0.77903e-09,0.83007e-09,0.86051e-09 /) - kbo(:,52,10) = (/ & - & 0.96715e-09,0.52504e-09,0.42702e-09,0.99435e-09,0.91829e-09 /) - kbo(:,53,10) = (/ & - & 0.37232e-09,0.22359e-09,0.89279e-09,0.85173e-09,0.51790e-09 /) - kbo(:,54,10) = (/ & - & 0.34402e-09,0.40116e-09,0.54696e-09,0.50848e-09,0.53123e-09 /) - kbo(:,55,10) = (/ & - & 0.66100e-09,0.65370e-09,0.58427e-09,0.74840e-09,0.49778e-09 /) - kbo(:,56,10) = (/ & - & 0.43138e-09,0.39155e-09,0.52944e-09,0.58374e-09,0.77481e-09 /) - kbo(:,57,10) = (/ & - & 0.48190e-09,0.37726e-09,0.54783e-09,0.43462e-09,0.46295e-09 /) - kbo(:,58,10) = (/ & - & 0.42276e-09,0.62831e-09,0.68493e-09,0.49089e-09,0.43799e-09 /) - kbo(:,59,10) = (/ & - & 0.37023e-09,0.90764e-09,0.36527e-09,0.99235e-09,0.10719e-08 /) - kbo(:,13,11) = (/ & - & 0.15119e-04,0.15135e-04,0.15140e-04,0.15181e-04,0.15209e-04 /) - kbo(:,14,11) = (/ & - & 0.12807e-04,0.12837e-04,0.12873e-04,0.12938e-04,0.12999e-04 /) - kbo(:,15,11) = (/ & - & 0.10789e-04,0.10839e-04,0.10921e-04,0.10986e-04,0.11078e-04 /) - kbo(:,16,11) = (/ & - & 0.90472e-05,0.91077e-05,0.91930e-05,0.92812e-05,0.93959e-05 /) - kbo(:,17,11) = (/ & - & 0.74085e-05,0.75116e-05,0.76103e-05,0.77238e-05,0.78364e-05 /) - kbo(:,18,11) = (/ & - & 0.47863e-05,0.49607e-05,0.51634e-05,0.53824e-05,0.55724e-05 /) - kbo(:,19,11) = (/ & - & 0.17849e-05,0.19797e-05,0.21641e-05,0.23597e-05,0.26015e-05 /) - kbo(:,20,11) = (/ & - & 0.14011e-06,0.26424e-06,0.39902e-06,0.56382e-06,0.75666e-06 /) - kbo(:,21,11) = (/ & - & 0.32681e-07,0.30855e-07,0.23688e-07,0.28954e-07,0.30262e-07 /) - kbo(:,22,11) = (/ & - & 0.39000e-07,0.34641e-07,0.36220e-07,0.29230e-07,0.25365e-07 /) - kbo(:,23,11) = (/ & - & 0.39936e-07,0.40586e-07,0.26460e-07,0.13886e-07,0.18108e-07 /) - kbo(:,24,11) = (/ & - & 0.34546e-07,0.30818e-07,0.33243e-07,0.31408e-07,0.37755e-07 /) - kbo(:,25,11) = (/ & - & 0.36078e-07,0.45586e-07,0.18117e-07,0.20176e-07,0.46256e-07 /) - kbo(:,26,11) = (/ & - & 0.61382e-07,0.31185e-07,0.38578e-07,0.18908e-07,0.43919e-07 /) - kbo(:,27,11) = (/ & - & 0.37585e-07,0.28323e-07,0.45638e-07,0.34261e-07,0.26227e-07 /) - kbo(:,28,11) = (/ & - & 0.41226e-07,0.24793e-07,0.23296e-07,0.20952e-07,0.27899e-07 /) - kbo(:,29,11) = (/ & - & 0.21318e-07,0.23768e-07,0.39220e-07,0.28896e-07,0.15703e-07 /) - kbo(:,30,11) = (/ & - & 0.25522e-07,0.29485e-07,0.39326e-07,0.29293e-07,0.36529e-07 /) - kbo(:,31,11) = (/ & - & 0.14494e-07,0.25417e-07,0.13732e-07,0.97827e-08,0.20014e-07 /) - kbo(:,32,11) = (/ & - & 0.14101e-07,0.26239e-07,0.22312e-07,0.10163e-07,0.17547e-07 /) - kbo(:,33,11) = (/ & - & 0.17347e-07,0.17261e-07,0.13014e-07,0.21130e-07,0.31576e-08 /) - kbo(:,34,11) = (/ & - & 0.11923e-07,0.13818e-07,0.14692e-07,0.14120e-07,0.12000e-07 /) - kbo(:,35,11) = (/ & - & 0.86917e-08,0.10083e-07,0.11872e-07,0.58578e-08,0.13194e-07 /) - kbo(:,36,11) = (/ & - & 0.74538e-08,0.94606e-08,0.85633e-08,0.15394e-07,0.81997e-08 /) - kbo(:,37,11) = (/ & - & 0.59982e-08,0.58805e-08,0.92255e-08,0.69472e-08,0.63632e-08 /) - kbo(:,38,11) = (/ & - & 0.75481e-08,0.82094e-08,0.10405e-07,0.62921e-08,0.70021e-08 /) - kbo(:,39,11) = (/ & - & 0.65770e-08,0.73715e-08,0.70899e-08,0.49884e-08,0.73567e-08 /) - kbo(:,40,11) = (/ & - & 0.62200e-08,0.79227e-08,0.65710e-08,0.35793e-08,0.48653e-08 /) - kbo(:,41,11) = (/ & - & 0.67810e-08,0.64933e-08,0.26651e-08,0.71067e-08,0.42136e-08 /) - kbo(:,42,11) = (/ & - & 0.32351e-08,0.79993e-08,0.25727e-08,0.70581e-08,0.58932e-08 /) - kbo(:,43,11) = (/ & - & 0.54331e-08,0.21653e-08,0.69372e-08,0.30142e-08,0.23071e-07 /) - kbo(:,44,11) = (/ & - & 0.26834e-08,0.43047e-08,0.44246e-08,0.29474e-08,0.52315e-07 /) - kbo(:,45,11) = (/ & - & 0.22521e-08,0.21920e-08,0.35952e-08,0.29799e-08,0.81164e-07 /) - kbo(:,46,11) = (/ & - & 0.28580e-08,0.12605e-08,0.64390e-09,0.24255e-07,0.96879e-07 /) - kbo(:,47,11) = (/ & - & 0.13005e-08,0.17967e-08,0.21618e-08,0.30225e-07,0.10319e-06 /) - kbo(:,48,11) = (/ & - & 0.13676e-08,0.96043e-09,0.14275e-08,0.39735e-07,0.11261e-06 /) - kbo(:,49,11) = (/ & - & 0.79619e-09,0.85338e-09,0.14300e-08,0.51821e-07,0.12169e-06 /) - kbo(:,50,11) = (/ & - & 0.49284e-09,0.21801e-09,0.75017e-08,0.50308e-07,0.11953e-06 /) - kbo(:,51,11) = (/ & - & 0.51956e-09,0.59927e-09,0.87276e-08,0.45028e-07,0.11141e-06 /) - kbo(:,52,11) = (/ & - & 0.35814e-09,0.78982e-09,0.10205e-07,0.45574e-07,0.10332e-06 /) - kbo(:,53,11) = (/ & - & 0.69729e-09,0.23757e-09,0.11741e-07,0.45086e-07,0.98023e-07 /) - kbo(:,54,11) = (/ & - & 0.38203e-09,0.28792e-09,0.72239e-08,0.35770e-07,0.80771e-07 /) - kbo(:,55,11) = (/ & - & 0.33870e-09,0.39698e-09,0.15883e-08,0.22568e-07,0.61465e-07 /) - kbo(:,56,11) = (/ & - & 0.50424e-09,0.25383e-09,0.46226e-09,0.12214e-07,0.43776e-07 /) - kbo(:,57,11) = (/ & - & 0.18824e-09,0.14340e-09,0.96547e-10,0.36771e-08,0.28437e-07 /) - kbo(:,58,11) = (/ & - & 0.53960e-09,0.71198e-09,0.40290e-09,0.38600e-09,0.14449e-07 /) - kbo(:,59,11) = (/ & - & 0.64570e-09,0.80856e-09,0.54439e-09,0.66021e-09,0.28306e-09 /) - kbo(:,13,12) = (/ & - & 0.35137e-04,0.35315e-04,0.35473e-04,0.35691e-04,0.35953e-04 /) - kbo(:,14,12) = (/ & - & 0.30387e-04,0.30535e-04,0.30693e-04,0.30906e-04,0.31121e-04 /) - kbo(:,15,12) = (/ & - & 0.26404e-04,0.26560e-04,0.26776e-04,0.26963e-04,0.27157e-04 /) - kbo(:,16,12) = (/ & - & 0.22908e-04,0.23161e-04,0.23420e-04,0.23636e-04,0.23864e-04 /) - kbo(:,17,12) = (/ & - & 0.19849e-04,0.20170e-04,0.20453e-04,0.20723e-04,0.21011e-04 /) - kbo(:,18,12) = (/ & - & 0.17158e-04,0.17516e-04,0.17820e-04,0.18149e-04,0.18467e-04 /) - kbo(:,19,12) = (/ & - & 0.14706e-04,0.15074e-04,0.15426e-04,0.15809e-04,0.16128e-04 /) - kbo(:,20,12) = (/ & - & 0.12200e-04,0.12654e-04,0.13122e-04,0.13561e-04,0.13942e-04 /) - kbo(:,21,12) = (/ & - & 0.88744e-05,0.95294e-05,0.10194e-04,0.10811e-04,0.11447e-04 /) - kbo(:,22,12) = (/ & - & 0.63063e-05,0.69160e-05,0.75170e-05,0.81696e-05,0.87829e-05 /) - kbo(:,23,12) = (/ & - & 0.42549e-05,0.48576e-05,0.54224e-05,0.60649e-05,0.65852e-05 /) - kbo(:,24,12) = (/ & - & 0.26155e-05,0.31537e-05,0.36816e-05,0.42795e-05,0.47356e-05 /) - kbo(:,25,12) = (/ & - & 0.14576e-05,0.18762e-05,0.23875e-05,0.29308e-05,0.33846e-05 /) - kbo(:,26,12) = (/ & - & 0.67369e-06,0.10096e-05,0.14730e-05,0.19592e-05,0.24356e-05 /) - kbo(:,27,12) = (/ & - & 0.27240e-06,0.59733e-06,0.98553e-06,0.13968e-05,0.18466e-05 /) - kbo(:,28,12) = (/ & - & 0.81179e-07,0.35063e-06,0.74692e-06,0.11081e-05,0.15613e-05 /) - kbo(:,29,12) = (/ & - & 0.94800e-07,0.40513e-06,0.73547e-06,0.10914e-05,0.16188e-05 /) - kbo(:,30,12) = (/ & - & 0.19045e-06,0.51192e-06,0.80594e-06,0.12694e-05,0.16954e-05 /) - kbo(:,31,12) = (/ & - & 0.38493e-06,0.71230e-06,0.11392e-05,0.15875e-05,0.20565e-05 /) - kbo(:,32,12) = (/ & - & 0.61444e-06,0.97779e-06,0.14257e-05,0.18883e-05,0.26649e-05 /) - kbo(:,33,12) = (/ & - & 0.84230e-06,0.12390e-05,0.17304e-05,0.23322e-05,0.32859e-05 /) - kbo(:,34,12) = (/ & - & 0.10458e-05,0.14709e-05,0.19634e-05,0.28004e-05,0.37724e-05 /) - kbo(:,35,12) = (/ & - & 0.11901e-05,0.16306e-05,0.22411e-05,0.31089e-05,0.41007e-05 /) - kbo(:,36,12) = (/ & - & 0.12859e-05,0.17604e-05,0.24414e-05,0.32964e-05,0.43267e-05 /) - kbo(:,37,12) = (/ & - & 0.13015e-05,0.17577e-05,0.24562e-05,0.33117e-05,0.43238e-05 /) - kbo(:,38,12) = (/ & - & 0.13522e-05,0.18247e-05,0.25116e-05,0.33483e-05,0.43352e-05 /) - kbo(:,39,12) = (/ & - & 0.14322e-05,0.19336e-05,0.26107e-05,0.34258e-05,0.44158e-05 /) - kbo(:,40,12) = (/ & - & 0.14006e-05,0.18728e-05,0.25304e-05,0.33179e-05,0.42738e-05 /) - kbo(:,41,12) = (/ & - & 0.13551e-05,0.18012e-05,0.24357e-05,0.32084e-05,0.41141e-05 /) - kbo(:,42,12) = (/ & - & 0.13297e-05,0.17512e-05,0.23561e-05,0.30946e-05,0.39665e-05 /) - kbo(:,43,12) = (/ & - & 0.12687e-05,0.16768e-05,0.22464e-05,0.29540e-05,0.37527e-05 /) - kbo(:,44,12) = (/ & - & 0.12099e-05,0.15968e-05,0.21385e-05,0.28006e-05,0.35240e-05 /) - kbo(:,45,12) = (/ & - & 0.11534e-05,0.15243e-05,0.20279e-05,0.26581e-05,0.33062e-05 /) - kbo(:,46,12) = (/ & - & 0.10898e-05,0.14434e-05,0.19097e-05,0.24739e-05,0.30807e-05 /) - kbo(:,47,12) = (/ & - & 0.10111e-05,0.13412e-05,0.17607e-05,0.22724e-05,0.28391e-05 /) - kbo(:,48,12) = (/ & - & 0.92540e-06,0.12447e-05,0.16295e-05,0.20863e-05,0.26097e-05 /) - kbo(:,49,12) = (/ & - & 0.84684e-06,0.11506e-05,0.15141e-05,0.19160e-05,0.23957e-05 /) - kbo(:,50,12) = (/ & - & 0.76391e-06,0.10519e-05,0.13910e-05,0.17635e-05,0.22060e-05 /) - kbo(:,51,12) = (/ & - & 0.68139e-06,0.95640e-06,0.12771e-05,0.16252e-05,0.20363e-05 /) - kbo(:,52,12) = (/ & - & 0.60392e-06,0.86706e-06,0.11671e-05,0.14940e-05,0.18793e-05 /) - kbo(:,53,12) = (/ & - & 0.53856e-06,0.78259e-06,0.10620e-05,0.13737e-05,0.17330e-05 /) - kbo(:,54,12) = (/ & - & 0.46919e-06,0.69589e-06,0.96582e-06,0.12666e-05,0.16070e-05 /) - kbo(:,55,12) = (/ & - & 0.40013e-06,0.61215e-06,0.87450e-06,0.11663e-05,0.14929e-05 /) - kbo(:,56,12) = (/ & - & 0.33987e-06,0.53286e-06,0.78520e-06,0.10697e-05,0.13857e-05 /) - kbo(:,57,12) = (/ & - & 0.28415e-06,0.45936e-06,0.69784e-06,0.97544e-06,0.12829e-05 /) - kbo(:,58,12) = (/ & - & 0.23457e-06,0.39019e-06,0.61528e-06,0.88439e-06,0.11866e-05 /) - kbo(:,59,12) = (/ & - & 0.19576e-06,0.34385e-06,0.56055e-06,0.82347e-06,0.11274e-05 /) - kbo(:,13,13) = (/ & - & 0.12143e-03,0.12308e-03,0.12512e-03,0.12699e-03,0.12910e-03 /) - kbo(:,14,13) = (/ & - & 0.10385e-03,0.10569e-03,0.10770e-03,0.10972e-03,0.11214e-03 /) - kbo(:,15,13) = (/ & - & 0.88944e-04,0.90837e-04,0.92688e-04,0.94910e-04,0.97472e-04 /) - kbo(:,16,13) = (/ & - & 0.76542e-04,0.78268e-04,0.80179e-04,0.82469e-04,0.84734e-04 /) - kbo(:,17,13) = (/ & - & 0.66332e-04,0.67885e-04,0.69742e-04,0.71831e-04,0.74034e-04 /) - kbo(:,18,13) = (/ & - & 0.57811e-04,0.59251e-04,0.61096e-04,0.62954e-04,0.65175e-04 /) - kbo(:,19,13) = (/ & - & 0.50669e-04,0.52124e-04,0.53790e-04,0.55608e-04,0.57861e-04 /) - kbo(:,20,13) = (/ & - & 0.44810e-04,0.46258e-04,0.47774e-04,0.49573e-04,0.51715e-04 /) - kbo(:,21,13) = (/ & - & 0.40009e-04,0.41361e-04,0.42755e-04,0.44560e-04,0.46559e-04 /) - kbo(:,22,13) = (/ & - & 0.36116e-04,0.37297e-04,0.38718e-04,0.40472e-04,0.42441e-04 /) - kbo(:,23,13) = (/ & - & 0.32736e-04,0.33861e-04,0.35361e-04,0.37075e-04,0.39134e-04 /) - kbo(:,24,13) = (/ & - & 0.29883e-04,0.31056e-04,0.32552e-04,0.34296e-04,0.36499e-04 /) - kbo(:,25,13) = (/ & - & 0.27373e-04,0.28693e-04,0.30179e-04,0.32033e-04,0.34358e-04 /) - kbo(:,26,13) = (/ & - & 0.25273e-04,0.26749e-04,0.28306e-04,0.30341e-04,0.32793e-04 /) - kbo(:,27,13) = (/ & - & 0.23652e-04,0.25175e-04,0.26905e-04,0.29145e-04,0.31814e-04 /) - kbo(:,28,13) = (/ & - & 0.22453e-04,0.24077e-04,0.26031e-04,0.28419e-04,0.31259e-04 /) - kbo(:,29,13) = (/ & - & 0.21794e-04,0.23553e-04,0.25672e-04,0.28266e-04,0.31243e-04 /) - kbo(:,30,13) = (/ & - & 0.21501e-04,0.23414e-04,0.25687e-04,0.28389e-04,0.31547e-04 /) - kbo(:,31,13) = (/ & - & 0.21532e-04,0.23577e-04,0.25947e-04,0.28793e-04,0.32070e-04 /) - kbo(:,32,13) = (/ & - & 0.21702e-04,0.23850e-04,0.26365e-04,0.29337e-04,0.32730e-04 /) - kbo(:,33,13) = (/ & - & 0.21999e-04,0.24243e-04,0.26895e-04,0.29970e-04,0.33492e-04 /) - kbo(:,34,13) = (/ & - & 0.22272e-04,0.24615e-04,0.27365e-04,0.30535e-04,0.34149e-04 /) - kbo(:,35,13) = (/ & - & 0.22408e-04,0.24786e-04,0.27609e-04,0.30838e-04,0.34518e-04 /) - kbo(:,36,13) = (/ & - & 0.22324e-04,0.24717e-04,0.27535e-04,0.30781e-04,0.34466e-04 /) - kbo(:,37,13) = (/ & - & 0.21914e-04,0.24278e-04,0.27037e-04,0.30223e-04,0.33847e-04 /) - kbo(:,38,13) = (/ & - & 0.21518e-04,0.23846e-04,0.26529e-04,0.29664e-04,0.33219e-04 /) - kbo(:,39,13) = (/ & - & 0.21138e-04,0.23443e-04,0.26064e-04,0.29132e-04,0.32628e-04 /) - kbo(:,40,13) = (/ & - & 0.20535e-04,0.22813e-04,0.25328e-04,0.28289e-04,0.31682e-04 /) - kbo(:,41,13) = (/ & - & 0.19918e-04,0.22174e-04,0.24598e-04,0.27447e-04,0.30722e-04 /) - kbo(:,42,13) = (/ & - & 0.19309e-04,0.21550e-04,0.23909e-04,0.26639e-04,0.29801e-04 /) - kbo(:,43,13) = (/ & - & 0.18566e-04,0.20812e-04,0.23112e-04,0.25700e-04,0.28732e-04 /) - kbo(:,44,13) = (/ & - & 0.17767e-04,0.20035e-04,0.22299e-04,0.24756e-04,0.27639e-04 /) - kbo(:,45,13) = (/ & - & 0.16962e-04,0.19260e-04,0.21500e-04,0.23864e-04,0.26597e-04 /) - kbo(:,46,13) = (/ & - & 0.16086e-04,0.18421e-04,0.20671e-04,0.22972e-04,0.25545e-04 /) - kbo(:,47,13) = (/ & - & 0.15115e-04,0.17481e-04,0.19766e-04,0.22019e-04,0.24442e-04 /) - kbo(:,48,13) = (/ & - & 0.14158e-04,0.16526e-04,0.18843e-04,0.21088e-04,0.23419e-04 /) - kbo(:,49,13) = (/ & - & 0.13195e-04,0.15552e-04,0.17911e-04,0.20179e-04,0.22454e-04 /) - kbo(:,50,13) = (/ & - & 0.12314e-04,0.14653e-04,0.17032e-04,0.19326e-04,0.21576e-04 /) - kbo(:,51,13) = (/ & - & 0.11480e-04,0.13788e-04,0.16154e-04,0.18484e-04,0.20739e-04 /) - kbo(:,52,13) = (/ & - & 0.10629e-04,0.12922e-04,0.15279e-04,0.17642e-04,0.19921e-04 /) - kbo(:,53,13) = (/ & - & 0.97710e-05,0.12082e-04,0.14410e-04,0.16788e-04,0.19091e-04 /) - kbo(:,54,13) = (/ & - & 0.90074e-05,0.11316e-04,0.13617e-04,0.15981e-04,0.18321e-04 /) - kbo(:,55,13) = (/ & - & 0.83042e-05,0.10569e-04,0.12859e-04,0.15214e-04,0.17581e-04 /) - kbo(:,56,13) = (/ & - & 0.76202e-05,0.98296e-05,0.12125e-04,0.14457e-04,0.16835e-04 /) - kbo(:,57,13) = (/ & - & 0.69561e-05,0.91024e-05,0.11398e-04,0.13700e-04,0.16068e-04 /) - kbo(:,58,13) = (/ & - & 0.63426e-05,0.84347e-05,0.10695e-04,0.12984e-04,0.15340e-04 /) - kbo(:,59,13) = (/ & - & 0.61056e-05,0.81719e-05,0.10410e-04,0.12698e-04,0.15054e-04 /) - kbo(:,13,14) = (/ & - & 0.69692e-03,0.71516e-03,0.73378e-03,0.75443e-03,0.77716e-03 /) - kbo(:,14,14) = (/ & - & 0.64436e-03,0.66211e-03,0.68199e-03,0.70460e-03,0.72891e-03 /) - kbo(:,15,14) = (/ & - & 0.59775e-03,0.61618e-03,0.63785e-03,0.66198e-03,0.68803e-03 /) - kbo(:,16,14) = (/ & - & 0.55668e-03,0.57752e-03,0.60052e-03,0.62615e-03,0.65391e-03 /) - kbo(:,17,14) = (/ & - & 0.52104e-03,0.54458e-03,0.56934e-03,0.59627e-03,0.62539e-03 /) - kbo(:,18,14) = (/ & - & 0.49086e-03,0.51685e-03,0.54337e-03,0.57147e-03,0.60182e-03 /) - kbo(:,19,14) = (/ & - & 0.46544e-03,0.49373e-03,0.52192e-03,0.55124e-03,0.58277e-03 /) - kbo(:,20,14) = (/ & - & 0.44496e-03,0.47526e-03,0.50494e-03,0.53564e-03,0.56857e-03 /) - kbo(:,21,14) = (/ & - & 0.42855e-03,0.46070e-03,0.49202e-03,0.52375e-03,0.55795e-03 /) - kbo(:,22,14) = (/ & - & 0.41783e-03,0.45160e-03,0.48421e-03,0.51739e-03,0.55269e-03 /) - kbo(:,23,14) = (/ & - & 0.41085e-03,0.44564e-03,0.47947e-03,0.51389e-03,0.55016e-03 /) - kbo(:,24,14) = (/ & - & 0.40699e-03,0.44263e-03,0.47766e-03,0.51290e-03,0.55008e-03 /) - kbo(:,25,14) = (/ & - & 0.40592e-03,0.44215e-03,0.47812e-03,0.51419e-03,0.55216e-03 /) - kbo(:,26,14) = (/ & - & 0.40741e-03,0.44425e-03,0.48085e-03,0.51770e-03,0.55654e-03 /) - kbo(:,27,14) = (/ & - & 0.41074e-03,0.44811e-03,0.48506e-03,0.52264e-03,0.56211e-03 /) - kbo(:,28,14) = (/ & - & 0.41538e-03,0.45333e-03,0.49042e-03,0.52868e-03,0.56877e-03 /) - kbo(:,29,14) = (/ & - & 0.42139e-03,0.45956e-03,0.49700e-03,0.53588e-03,0.57647e-03 /) - kbo(:,30,14) = (/ & - & 0.42836e-03,0.46659e-03,0.50435e-03,0.54377e-03,0.58489e-03 /) - kbo(:,31,14) = (/ & - & 0.43618e-03,0.47431e-03,0.51248e-03,0.55256e-03,0.59401e-03 /) - kbo(:,32,14) = (/ & - & 0.44466e-03,0.48256e-03,0.52138e-03,0.56187e-03,0.60364e-03 /) - kbo(:,33,14) = (/ & - & 0.45349e-03,0.49137e-03,0.53076e-03,0.57166e-03,0.61359e-03 /) - kbo(:,34,14) = (/ & - & 0.46108e-03,0.49922e-03,0.53902e-03,0.58028e-03,0.62237e-03 /) - kbo(:,35,14) = (/ & - & 0.46528e-03,0.50354e-03,0.54368e-03,0.58501e-03,0.62724e-03 /) - kbo(:,36,14) = (/ & - & 0.46539e-03,0.50375e-03,0.54391e-03,0.58538e-03,0.62763e-03 /) - kbo(:,37,14) = (/ & - & 0.45984e-03,0.49817e-03,0.53806e-03,0.57948e-03,0.62153e-03 /) - kbo(:,38,14) = (/ & - & 0.45408e-03,0.49229e-03,0.53205e-03,0.57322e-03,0.61533e-03 /) - kbo(:,39,14) = (/ & - & 0.44837e-03,0.48652e-03,0.52604e-03,0.56712e-03,0.60916e-03 /) - kbo(:,40,14) = (/ & - & 0.43865e-03,0.47705e-03,0.51607e-03,0.55678e-03,0.59870e-03 /) - kbo(:,41,14) = (/ & - & 0.42850e-03,0.46708e-03,0.50578e-03,0.54611e-03,0.58790e-03 /) - kbo(:,42,14) = (/ & - & 0.41832e-03,0.45718e-03,0.49552e-03,0.53551e-03,0.57688e-03 /) - kbo(:,43,14) = (/ & - & 0.40611e-03,0.44501e-03,0.48328e-03,0.52271e-03,0.56375e-03 /) - kbo(:,44,14) = (/ & - & 0.39281e-03,0.43169e-03,0.47025e-03,0.50904e-03,0.54960e-03 /) - kbo(:,45,14) = (/ & - & 0.37939e-03,0.41841e-03,0.45722e-03,0.49565e-03,0.53564e-03 /) - kbo(:,46,14) = (/ & - & 0.36481e-03,0.40443e-03,0.44334e-03,0.48171e-03,0.52104e-03 /) - kbo(:,47,14) = (/ & - & 0.34813e-03,0.38867e-03,0.42754e-03,0.46626e-03,0.50489e-03 /) - kbo(:,48,14) = (/ & - & 0.33101e-03,0.37257e-03,0.41188e-03,0.45078e-03,0.48906e-03 /) - kbo(:,49,14) = (/ & - & 0.31369e-03,0.35613e-03,0.39621e-03,0.43508e-03,0.47354e-03 /) - kbo(:,50,14) = (/ & - & 0.29739e-03,0.34030e-03,0.38132e-03,0.42035e-03,0.45918e-03 /) - kbo(:,51,14) = (/ & - & 0.28140e-03,0.32461e-03,0.36662e-03,0.40619e-03,0.44511e-03 /) - kbo(:,52,14) = (/ & - & 0.26563e-03,0.30898e-03,0.35161e-03,0.39193e-03,0.43080e-03 /) - kbo(:,53,14) = (/ & - & 0.24997e-03,0.29311e-03,0.33618e-03,0.37741e-03,0.41655e-03 /) - kbo(:,54,14) = (/ & - & 0.23534e-03,0.27846e-03,0.32175e-03,0.36391e-03,0.40359e-03 /) - kbo(:,55,14) = (/ & - & 0.22140e-03,0.26468e-03,0.30799e-03,0.35062e-03,0.39107e-03 /) - kbo(:,56,14) = (/ & - & 0.20748e-03,0.25097e-03,0.29409e-03,0.33714e-03,0.37835e-03 /) - kbo(:,57,14) = (/ & - & 0.19363e-03,0.23702e-03,0.28013e-03,0.32339e-03,0.36545e-03 /) - kbo(:,58,14) = (/ & - & 0.18066e-03,0.22379e-03,0.26710e-03,0.31040e-03,0.35295e-03 /) - kbo(:,59,14) = (/ & - & 0.17550e-03,0.21855e-03,0.26188e-03,0.30515e-03,0.34793e-03 /) - kbo(:,13,15) = (/ & - & 0.67077e-02,0.67643e-02,0.68102e-02,0.68432e-02,0.68617e-02 /) - kbo(:,14,15) = (/ & - & 0.68112e-02,0.68842e-02,0.69413e-02,0.69806e-02,0.70063e-02 /) - kbo(:,15,15) = (/ & - & 0.68961e-02,0.69833e-02,0.70488e-02,0.70965e-02,0.71269e-02 /) - kbo(:,16,15) = (/ & - & 0.69706e-02,0.70648e-02,0.71387e-02,0.71925e-02,0.72279e-02 /) - kbo(:,17,15) = (/ & - & 0.70342e-02,0.71339e-02,0.72130e-02,0.72737e-02,0.73138e-02 /) - kbo(:,18,15) = (/ & - & 0.70890e-02,0.71933e-02,0.72776e-02,0.73426e-02,0.73856e-02 /) - kbo(:,19,15) = (/ & - & 0.71380e-02,0.72441e-02,0.73326e-02,0.74006e-02,0.74464e-02 /) - kbo(:,20,15) = (/ & - & 0.71838e-02,0.72907e-02,0.73816e-02,0.74514e-02,0.74969e-02 /) - kbo(:,21,15) = (/ & - & 0.72239e-02,0.73326e-02,0.74235e-02,0.74941e-02,0.75405e-02 /) - kbo(:,22,15) = (/ & - & 0.72699e-02,0.73767e-02,0.74650e-02,0.75340e-02,0.75785e-02 /) - kbo(:,23,15) = (/ & - & 0.73111e-02,0.74172e-02,0.75033e-02,0.75687e-02,0.76113e-02 /) - kbo(:,24,15) = (/ & - & 0.73510e-02,0.74537e-02,0.75371e-02,0.76008e-02,0.76395e-02 /) - kbo(:,25,15) = (/ & - & 0.73875e-02,0.74885e-02,0.75684e-02,0.76282e-02,0.76634e-02 /) - kbo(:,26,15) = (/ & - & 0.74256e-02,0.75226e-02,0.75985e-02,0.76530e-02,0.76835e-02 /) - kbo(:,27,15) = (/ & - & 0.74605e-02,0.75517e-02,0.76248e-02,0.76742e-02,0.77008e-02 /) - kbo(:,28,15) = (/ & - & 0.74927e-02,0.75800e-02,0.76483e-02,0.76927e-02,0.77139e-02 /) - kbo(:,29,15) = (/ & - & 0.75244e-02,0.76057e-02,0.76690e-02,0.77086e-02,0.77249e-02 /) - kbo(:,30,15) = (/ & - & 0.75518e-02,0.76303e-02,0.76877e-02,0.77209e-02,0.77334e-02 /) - kbo(:,31,15) = (/ & - & 0.75781e-02,0.76519e-02,0.77036e-02,0.77320e-02,0.77395e-02 /) - kbo(:,32,15) = (/ & - & 0.76025e-02,0.76727e-02,0.77178e-02,0.77409e-02,0.77439e-02 /) - kbo(:,33,15) = (/ & - & 0.76266e-02,0.76908e-02,0.77289e-02,0.77461e-02,0.77464e-02 /) - kbo(:,34,15) = (/ & - & 0.76450e-02,0.77038e-02,0.77387e-02,0.77507e-02,0.77465e-02 /) - kbo(:,35,15) = (/ & - & 0.76558e-02,0.77117e-02,0.77433e-02,0.77536e-02,0.77475e-02 /) - kbo(:,36,15) = (/ & - & 0.76587e-02,0.77150e-02,0.77452e-02,0.77564e-02,0.77495e-02 /) - kbo(:,37,15) = (/ & - & 0.76522e-02,0.77109e-02,0.77439e-02,0.77579e-02,0.77534e-02 /) - kbo(:,38,15) = (/ & - & 0.76429e-02,0.77056e-02,0.77426e-02,0.77582e-02,0.77560e-02 /) - kbo(:,39,15) = (/ & - & 0.76339e-02,0.76993e-02,0.77402e-02,0.77587e-02,0.77588e-02 /) - kbo(:,40,15) = (/ & - & 0.76166e-02,0.76865e-02,0.77335e-02,0.77564e-02,0.77613e-02 /) - kbo(:,41,15) = (/ & - & 0.75961e-02,0.76706e-02,0.77239e-02,0.77534e-02,0.77621e-02 /) - kbo(:,42,15) = (/ & - & 0.75752e-02,0.76537e-02,0.77143e-02,0.77487e-02,0.77622e-02 /) - kbo(:,43,15) = (/ & - & 0.75459e-02,0.76317e-02,0.76988e-02,0.77406e-02,0.77602e-02 /) - kbo(:,44,15) = (/ & - & 0.75134e-02,0.76061e-02,0.76788e-02,0.77299e-02,0.77567e-02 /) - kbo(:,45,15) = (/ & - & 0.74772e-02,0.75773e-02,0.76562e-02,0.77161e-02,0.77502e-02 /) - kbo(:,46,15) = (/ & - & 0.74372e-02,0.75438e-02,0.76298e-02,0.76975e-02,0.77405e-02 /) - kbo(:,47,15) = (/ & - & 0.73875e-02,0.75032e-02,0.75980e-02,0.76724e-02,0.77261e-02 /) - kbo(:,48,15) = (/ & - & 0.73358e-02,0.74597e-02,0.75632e-02,0.76453e-02,0.77080e-02 /) - kbo(:,49,15) = (/ & - & 0.72811e-02,0.74117e-02,0.75238e-02,0.76147e-02,0.76865e-02 /) - kbo(:,50,15) = (/ & - & 0.72248e-02,0.73656e-02,0.74842e-02,0.75831e-02,0.76614e-02 /) - kbo(:,51,15) = (/ & - & 0.71662e-02,0.73174e-02,0.74427e-02,0.75493e-02,0.76342e-02 /) - kbo(:,52,15) = (/ & - & 0.71006e-02,0.72655e-02,0.73997e-02,0.75133e-02,0.76064e-02 /) - kbo(:,53,15) = (/ & - & 0.70300e-02,0.72101e-02,0.73531e-02,0.74734e-02,0.75745e-02 /) - kbo(:,54,15) = (/ & - & 0.69596e-02,0.71548e-02,0.73082e-02,0.74357e-02,0.75431e-02 /) - kbo(:,55,15) = (/ & - & 0.68873e-02,0.70968e-02,0.72620e-02,0.73967e-02,0.75110e-02 /) - kbo(:,56,15) = (/ & - & 0.68089e-02,0.70345e-02,0.72141e-02,0.73575e-02,0.74766e-02 /) - kbo(:,57,15) = (/ & - & 0.67241e-02,0.69678e-02,0.71623e-02,0.73141e-02,0.74401e-02 /) - kbo(:,58,15) = (/ & - & 0.66371e-02,0.69009e-02,0.71063e-02,0.72699e-02,0.74044e-02 /) - kbo(:,59,15) = (/ & - & 0.66009e-02,0.68723e-02,0.70852e-02,0.72532e-02,0.73888e-02 /) - kbo(:,13,16) = (/ & - & 0.20091e-01,0.19310e-01,0.18586e-01,0.17917e-01,0.17293e-01 /) - kbo(:,14,16) = (/ & - & 0.21405e-01,0.20507e-01,0.19679e-01,0.18912e-01,0.18201e-01 /) - kbo(:,15,16) = (/ & - & 0.22567e-01,0.21555e-01,0.20633e-01,0.19775e-01,0.18992e-01 /) - kbo(:,16,16) = (/ & - & 0.23562e-01,0.22456e-01,0.21445e-01,0.20508e-01,0.19661e-01 /) - kbo(:,17,16) = (/ & - & 0.24411e-01,0.23217e-01,0.22126e-01,0.21126e-01,0.20220e-01 /) - kbo(:,18,16) = (/ & - & 0.25116e-01,0.23847e-01,0.22688e-01,0.21635e-01,0.20680e-01 /) - kbo(:,19,16) = (/ & - & 0.25693e-01,0.24361e-01,0.23149e-01,0.22047e-01,0.21053e-01 /) - kbo(:,20,16) = (/ & - & 0.26126e-01,0.24747e-01,0.23489e-01,0.22355e-01,0.21332e-01 /) - kbo(:,21,16) = (/ & - & 0.26457e-01,0.25034e-01,0.23751e-01,0.22588e-01,0.21537e-01 /) - kbo(:,22,16) = (/ & - & 0.26586e-01,0.25153e-01,0.23857e-01,0.22677e-01,0.21621e-01 /) - kbo(:,23,16) = (/ & - & 0.26640e-01,0.25191e-01,0.23890e-01,0.22706e-01,0.21649e-01 /) - kbo(:,24,16) = (/ & - & 0.26616e-01,0.25160e-01,0.23861e-01,0.22680e-01,0.21622e-01 /) - kbo(:,25,16) = (/ & - & 0.26518e-01,0.25075e-01,0.23777e-01,0.22603e-01,0.21555e-01 /) - kbo(:,26,16) = (/ & - & 0.26348e-01,0.24922e-01,0.23637e-01,0.22478e-01,0.21437e-01 /) - kbo(:,27,16) = (/ & - & 0.26138e-01,0.24737e-01,0.23465e-01,0.22328e-01,0.21299e-01 /) - kbo(:,28,16) = (/ & - & 0.25904e-01,0.24526e-01,0.23272e-01,0.22156e-01,0.21140e-01 /) - kbo(:,29,16) = (/ & - & 0.25645e-01,0.24289e-01,0.23059e-01,0.21960e-01,0.20965e-01 /) - kbo(:,30,16) = (/ & - & 0.25364e-01,0.24034e-01,0.22831e-01,0.21758e-01,0.20776e-01 /) - kbo(:,31,16) = (/ & - & 0.25075e-01,0.23766e-01,0.22595e-01,0.21541e-01,0.20581e-01 /) - kbo(:,32,16) = (/ & - & 0.24769e-01,0.23490e-01,0.22348e-01,0.21316e-01,0.20377e-01 /) - kbo(:,33,16) = (/ & - & 0.24460e-01,0.23211e-01,0.22098e-01,0.21090e-01,0.20170e-01 /) - kbo(:,34,16) = (/ & - & 0.24193e-01,0.22975e-01,0.21887e-01,0.20894e-01,0.19994e-01 /) - kbo(:,35,16) = (/ & - & 0.24050e-01,0.22849e-01,0.21770e-01,0.20789e-01,0.19901e-01 /) - kbo(:,36,16) = (/ & - & 0.24043e-01,0.22842e-01,0.21764e-01,0.20784e-01,0.19894e-01 /) - kbo(:,37,16) = (/ & - & 0.24229e-01,0.23006e-01,0.21915e-01,0.20918e-01,0.20018e-01 /) - kbo(:,38,16) = (/ & - & 0.24421e-01,0.23180e-01,0.22070e-01,0.21062e-01,0.20144e-01 /) - kbo(:,39,16) = (/ & - & 0.24617e-01,0.23352e-01,0.22226e-01,0.21205e-01,0.20274e-01 /) - kbo(:,40,16) = (/ & - & 0.24953e-01,0.23654e-01,0.22496e-01,0.21449e-01,0.20495e-01 /) - kbo(:,41,16) = (/ & - & 0.25312e-01,0.23980e-01,0.22786e-01,0.21712e-01,0.20738e-01 /) - kbo(:,42,16) = (/ & - & 0.25679e-01,0.24315e-01,0.23082e-01,0.21982e-01,0.20981e-01 /) - kbo(:,43,16) = (/ & - & 0.26140e-01,0.24730e-01,0.23454e-01,0.22317e-01,0.21287e-01 /) - kbo(:,44,16) = (/ & - & 0.26653e-01,0.25200e-01,0.23871e-01,0.22691e-01,0.21628e-01 /) - kbo(:,45,16) = (/ & - & 0.27190e-01,0.25674e-01,0.24311e-01,0.23078e-01,0.21977e-01 /) - kbo(:,46,16) = (/ & - & 0.27783e-01,0.26205e-01,0.24787e-01,0.23504e-01,0.22362e-01 /) - kbo(:,47,16) = (/ & - & 0.28471e-01,0.26819e-01,0.25343e-01,0.24006e-01,0.22809e-01 /) - kbo(:,48,16) = (/ & - & 0.29185e-01,0.27464e-01,0.25918e-01,0.24532e-01,0.23275e-01 /) - kbo(:,49,16) = (/ & - & 0.29935e-01,0.28138e-01,0.26520e-01,0.25074e-01,0.23762e-01 /) - kbo(:,50,16) = (/ & - & 0.30661e-01,0.28793e-01,0.27111e-01,0.25603e-01,0.24243e-01 /) - kbo(:,51,16) = (/ & - & 0.31401e-01,0.29455e-01,0.27706e-01,0.26135e-01,0.24726e-01 /) - kbo(:,52,16) = (/ & - & 0.32182e-01,0.30140e-01,0.28322e-01,0.26686e-01,0.25224e-01 /) - kbo(:,53,16) = (/ & - & 0.33002e-01,0.30856e-01,0.28966e-01,0.27268e-01,0.25738e-01 /) - kbo(:,54,16) = (/ & - & 0.33792e-01,0.31541e-01,0.29577e-01,0.27816e-01,0.26234e-01 /) - kbo(:,55,16) = (/ & - & 0.34581e-01,0.32233e-01,0.30182e-01,0.28363e-01,0.26721e-01 /) - kbo(:,56,16) = (/ & - & 0.35416e-01,0.32947e-01,0.30807e-01,0.28926e-01,0.27227e-01 /) - kbo(:,57,16) = (/ & - & 0.36291e-01,0.33701e-01,0.31460e-01,0.29510e-01,0.27750e-01 /) - kbo(:,58,16) = (/ & - & 0.37161e-01,0.34436e-01,0.32106e-01,0.30077e-01,0.28264e-01 /) - kbo(:,59,16) = (/ & - & 0.37521e-01,0.34750e-01,0.32373e-01,0.30309e-01,0.28477e-01 /) - -! ----------------------------------------------------------------- - - forrefo(:, 1) = (/ 0.515619e-08, 0.131078e-06, 0.349038e-06 /) - forrefo(:, 2) = (/ 0.329605e-07, 0.430497e-06, 0.458569e-05 /) - forrefo(:, 3) = (/ 0.188244e-06, 0.792931e-06, 0.267176e-05 /) - forrefo(:, 4) = (/ 0.611237e-06, 0.798868e-06, 0.411583e-06 /) - forrefo(:, 5) = (/ 0.111903e-05, 0.914895e-06, 0.444828e-06 /) - forrefo(:, 6) = (/ 0.235399e-05, 0.269099e-05, 0.739855e-06 /) - forrefo(:, 7) = (/ 0.400131e-05, 0.378135e-05, 0.231265e-06 /) - forrefo(:, 8) = (/ 0.464257e-05, 0.371927e-05, 0.460611e-06 /) - forrefo(:, 9) = (/ 0.476792e-05, 0.311841e-05, 0.934811e-06 /) - forrefo(:,10) = (/ 0.555683e-05, 0.238129e-05, 0.400334e-07 /) - forrefo(:,11) = (/ 0.569068e-05, 0.196039e-05, 0.374476e-07 /) - forrefo(:,12) = (/ 0.554154e-05, 0.131724e-05, 0.399720e-07 /) - forrefo(:,13) = (/ 0.462684e-05, 0.238826e-07, 0.325793e-07 /) - forrefo(:,14) = (/ 0.808644e-06, 0.105126e-11, 0.148691e-07 /) - forrefo(:,15) = (/ 0.865024e-12, 0.822434e-12, 0.825756e-12 /) - forrefo(:,16) = (/ 0.945747e-12, 0.802065e-12, 0.724732e-12 /) - -! ----------------------------------------------------------------- -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 0.637755e-05, 0.403921e-05, 0.255823e-05, 0.162025e-05, 0.102618e-05, & - & 0.649930e-06, 0.411632e-06, 0.260707e-06, 0.165118e-06, 0.104577e-06 /) - selfrefo(:, 2) = (/ & - & 0.180887e-04, 0.108890e-04, 0.655493e-05, 0.394592e-05, 0.237536e-05, & - & 0.142991e-05, 0.860774e-06, 0.518167e-06, 0.311925e-06, 0.187772e-06 /) - selfrefo(:, 3) = (/ & - & 0.212261e-04, 0.150697e-04, 0.106989e-04, 0.759581e-05, 0.539274e-05, & - & 0.382864e-05, 0.271819e-05, 0.192981e-05, 0.137009e-05, 0.972711e-06 /) - selfrefo(:, 4) = (/ & - & 0.132497e-04, 0.118071e-04, 0.105216e-04, 0.937599e-05, 0.835516e-05, & - & 0.744547e-05, 0.663482e-05, 0.591243e-05, 0.526870e-05, 0.469506e-05 /) - selfrefo(:, 5) = (/ & - & 0.124069e-04, 0.120785e-04, 0.117589e-04, 0.114477e-04, 0.111447e-04, & - & 0.108498e-04, 0.105626e-04, 0.102831e-04, 0.100109e-04, 0.974601e-05 /) - selfrefo(:, 6) = (/ & - & 0.411994e-04, 0.372560e-04, 0.336901e-04, 0.304654e-04, 0.275494e-04, & - & 0.249126e-04, 0.225281e-04, 0.203718e-04, 0.184219e-04, 0.166587e-04 /) - selfrefo(:, 7) = (/ & - & 0.537376e-04, 0.501002e-04, 0.467090e-04, 0.435473e-04, 0.405996e-04, & - & 0.378515e-04, 0.352893e-04, 0.329006e-04, 0.306736e-04, 0.285974e-04 /) - selfrefo(:, 8) = (/ & - & 0.494279e-04, 0.475365e-04, 0.457175e-04, 0.439681e-04, 0.422857e-04, & - & 0.406676e-04, 0.391114e-04, 0.376148e-04, 0.361755e-04, 0.347912e-04 /) - selfrefo(:, 9) = (/ & - & 0.377444e-04, 0.378199e-04, 0.378956e-04, 0.379715e-04, 0.380475e-04, & - & 0.381236e-04, 0.381999e-04, 0.382763e-04, 0.383529e-04, 0.384297e-04 /) - selfrefo(:,10) = (/ & - & 0.245916e-04, 0.267183e-04, 0.290289e-04, 0.315394e-04, 0.342669e-04, & - & 0.372304e-04, 0.404501e-04, 0.439483e-04, 0.477490e-04, 0.518784e-04 /) - selfrefo(:,11) = (/ & - & 0.186528e-04, 0.211417e-04, 0.239628e-04, 0.271603e-04, 0.307845e-04, & - & 0.348923e-04, 0.395482e-04, 0.448254e-04, 0.508068e-04, 0.575863e-04 /) - selfrefo(:,12) = (/ & - & 0.109896e-04, 0.133794e-04, 0.162890e-04, 0.198312e-04, 0.241438e-04, & - & 0.293942e-04, 0.357864e-04, 0.435686e-04, 0.530432e-04, 0.645781e-04 /) - selfrefo(:,13) = (/ & - & 0.183885e-06, 0.391019e-06, 0.831472e-06, 0.176806e-05, 0.375966e-05, & - & 0.799463e-05, 0.170000e-04, 0.361492e-04, 0.768686e-04, 0.163455e-03 /) - selfrefo(:,14) = (/ & - & 0.466057e-07, 0.937419e-07, 0.188551e-06, 0.379248e-06, 0.762813e-06, & - & 0.153431e-05, 0.308608e-05, 0.620729e-05, 0.124852e-04, 0.251126e-04 /) - selfrefo(:,15) = (/ & - & 0.248961e-06, 0.216780e-06, 0.188758e-06, 0.164358e-06, 0.143113e-06, & - & 0.124613e-06, 0.108505e-06, 0.944795e-07, 0.822667e-07, 0.716326e-07 /) - selfrefo(:,16) = (/ & - & 0.252246e-06, 0.220335e-06, 0.192462e-06, 0.168114e-06, 0.146847e-06, & - & 0.128270e-06, 0.112043e-06, 0.978688e-07, 0.854878e-07, 0.746731e-07 /) - - end subroutine sw_kgb24 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_25.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_25.F90 deleted file mode 100644 index 2a6fd3141..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_25.F90 +++ /dev/null @@ -1,544 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb25 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg25, only : kao, sfluxrefo, & - raylo, abso3ao, abso3bo, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:) = (/ & - & 42.6858 , 45.7720, 44.9872, 45.9662 , & - & 46.5458 , 41.6926, 32.2893, 24.0928 , & - & 16.7686 , 1.86048, 1.54057, 1.23503 , & - & 0.915085,0.590099,0.218622, 3.21287e-02 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:) = (/ & - & 4.50862E+01, 4.53229E+01, 4.66453E+01, 4.85481E+01,& - & 4.31689E+01, 3.74802E+01, 3.08809E+01, 2.43848E+01,& - & 1.66307E+01, 1.82215E+00, 1.51046E+00, 1.19790E+00,& - & 9.02913E-01, 5.79909E-01, 2.16922E-01, 3.17538E-02/) -! Solar variability components: facular brightening - facbrghto(:) = (/ & - & 2.89043E-02, 3.23890E-02, 3.29631E-02, 3.32879E-02,& - & 3.01017E-02, 2.56200E-02, 2.09055E-02, 1.65318E-02,& - & 1.12697E-02, 1.24066E-03, 1.03101E-03, 8.20302E-04,& - & 6.05383E-04, 3.89241E-04, 1.46377E-04, 2.04616E-05/) -! Solar variability components: sunspot darkening - snsptdrko(:) = (/ & - &-2.49580E-02,-2.44274E-02,-2.38051E-02,-2.26940E-02,& - &-2.02992E-02,-1.75466E-02,-1.44036E-02,-1.09606E-02,& - &-7.44990E-03,-8.14537E-04,-6.74154E-04,-5.33676E-04,& - &-3.91999E-04,-2.50130E-04,-9.43636E-05,-1.32350E-05/) - -! Rayleigh extinction coefficient at v = 2925 cm-1. - raylo(:) = (/ & - & 9.81132e-07,8.25605e-07,6.71302e-07,5.53556e-07, & - & 3.97383e-07,3.68206e-07,4.42379e-07,4.57799e-07, & - & 4.22683e-07,3.87113e-07,3.79810e-07,3.63192e-07, & - & 3.51921e-07,3.34231e-07,3.34294e-07,3.32673e-07 /) - - abso3ao(:) = (/ & - & 2.32664e-02,5.76154e-02,0.125389,0.250158, & - & 0.378756 ,0.402196 ,0.352026,0.352036, & - & 0.386253 ,0.414598 ,0.420079,0.435471, & - & 0.445487 ,0.459549 ,0.452920,0.456838 /) - - abso3bo(:) = (/ & - & 1.76917e-02,4.64185e-02,1.03640e-01,0.189469, & - & 0.303858 ,0.400248 ,0.447357 ,0.470009, & - & 0.498673 ,0.515696 ,0.517053 ,0.517930, & - & 0.518345 ,0.524952 ,0.508244 ,0.468981 /) - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1) = (/ & - & 0.16461e-08,0.16782e-08,0.19339e-08,0.17100e-08,0.17045e-08 /) - kao(:, 2, 1) = (/ & - & 0.28759e-08,0.29469e-08,0.33789e-08,0.34357e-08,0.28833e-08 /) - kao(:, 3, 1) = (/ & - & 0.55148e-08,0.54808e-08,0.54190e-08,0.68260e-08,0.51972e-08 /) - kao(:, 4, 1) = (/ & - & 0.95336e-08,0.94552e-08,0.93001e-08,0.90961e-08,0.14451e-07 /) - kao(:, 5, 1) = (/ & - & 0.14930e-07,0.14736e-07,0.14432e-07,0.14074e-07,0.24102e-07 /) - kao(:, 6, 1) = (/ & - & 0.22770e-07,0.22301e-07,0.21778e-07,0.21194e-07,0.20569e-07 /) - kao(:, 7, 1) = (/ & - & 0.34699e-07,0.33951e-07,0.33124e-07,0.32144e-07,0.31220e-07 /) - kao(:, 8, 1) = (/ & - & 0.62339e-07,0.60405e-07,0.59548e-07,0.58214e-07,0.56977e-07 /) - kao(:, 9, 1) = (/ & - & 0.17411e-06,0.17654e-06,0.18315e-06,0.18100e-06,0.17839e-06 /) - kao(:,10, 1) = (/ & - & 0.23526e-06,0.22729e-06,0.21947e-06,0.21188e-06,0.20454e-06 /) - kao(:,11, 1) = (/ & - & 0.23535e-06,0.22737e-06,0.21956e-06,0.21196e-06,0.20461e-06 /) - kao(:,12, 1) = (/ & - & 0.23539e-06,0.22740e-06,0.21959e-06,0.21199e-06,0.20465e-06 /) - kao(:,13, 1) = (/ & - & 0.23543e-06,0.22744e-06,0.21962e-06,0.21202e-06,0.20467e-06 /) - kao(:, 1, 2) = (/ & - & 0.62912e-08,0.61559e-08,0.84640e-08,0.59240e-08,0.58217e-08 /) - kao(:, 2, 2) = (/ & - & 0.83749e-08,0.80756e-08,0.11623e-07,0.11272e-07,0.73636e-08 /) - kao(:, 3, 2) = (/ & - & 0.13304e-07,0.12795e-07,0.12343e-07,0.21235e-07,0.11577e-07 /) - kao(:, 4, 2) = (/ & - & 0.20704e-07,0.19736e-07,0.18900e-07,0.18228e-07,0.31601e-07 /) - kao(:, 5, 2) = (/ & - & 0.31149e-07,0.29669e-07,0.28318e-07,0.27101e-07,0.49649e-07 /) - kao(:, 6, 2) = (/ & - & 0.45713e-07,0.43519e-07,0.41488e-07,0.39918e-07,0.38291e-07 /) - kao(:, 7, 2) = (/ & - & 0.77265e-07,0.73848e-07,0.70437e-07,0.67945e-07,0.66127e-07 /) - kao(:, 8, 2) = (/ & - & 0.15754e-06,0.15664e-06,0.15378e-06,0.15027e-06,0.14633e-06 /) - kao(:, 9, 2) = (/ & - & 0.16439e-06,0.14678e-06,0.12610e-06,0.11532e-06,0.10591e-06 /) - kao(:,10, 2) = (/ & - & 0.14366e-06,0.13506e-06,0.12583e-06,0.11774e-06,0.11011e-06 /) - kao(:,11, 2) = (/ & - & 0.14521e-06,0.13766e-06,0.13072e-06,0.12218e-06,0.11400e-06 /) - kao(:,12, 2) = (/ & - & 0.14524e-06,0.13769e-06,0.13074e-06,0.12241e-06,0.11552e-06 /) - kao(:,13, 2) = (/ & - & 0.14525e-06,0.13770e-06,0.13075e-06,0.12252e-06,0.11553e-06 /) - kao(:, 1, 3) = (/ & - & 0.14060e-07,0.13587e-07,0.24644e-07,0.12716e-07,0.12367e-07 /) - kao(:, 2, 3) = (/ & - & 0.17055e-07,0.16577e-07,0.32443e-07,0.31273e-07,0.15381e-07 /) - kao(:, 3, 3) = (/ & - & 0.25414e-07,0.24672e-07,0.23874e-07,0.47281e-07,0.22346e-07 /) - kao(:, 4, 3) = (/ & - & 0.39536e-07,0.38124e-07,0.36836e-07,0.35587e-07,0.72260e-07 /) - kao(:, 5, 3) = (/ & - & 0.59488e-07,0.57630e-07,0.55623e-07,0.53878e-07,0.11230e-06 /) - kao(:, 6, 3) = (/ & - & 0.99996e-07,0.96206e-07,0.93184e-07,0.90812e-07,0.89206e-07 /) - kao(:, 7, 3) = (/ & - & 0.17678e-06,0.17554e-06,0.17358e-06,0.17091e-06,0.16830e-06 /) - kao(:, 8, 3) = (/ & - & 0.18672e-06,0.17850e-06,0.16967e-06,0.16275e-06,0.15875e-06 /) - kao(:, 9, 3) = (/ & - & 0.13558e-06,0.13493e-06,0.13633e-06,0.13799e-06,0.13932e-06 /) - kao(:,10, 3) = (/ & - & 0.18883e-06,0.20452e-06,0.22206e-06,0.24347e-06,0.26091e-06 /) - kao(:,11, 3) = (/ & - & 0.21296e-06,0.23580e-06,0.26439e-06,0.30148e-06,0.34942e-06 /) - kao(:,12, 3) = (/ & - & 0.22072e-06,0.25535e-06,0.28661e-06,0.34814e-06,0.39337e-06 /) - kao(:,13, 3) = (/ & - & 0.22515e-06,0.26161e-06,0.30833e-06,0.36527e-06,0.40123e-06 /) - kao(:, 1, 4) = (/ & - & 0.32735e-07,0.31345e-07,0.58846e-07,0.28258e-07,0.27022e-07 /) - kao(:, 2, 4) = (/ & - & 0.37754e-07,0.36873e-07,0.82776e-07,0.80947e-07,0.35190e-07 /) - kao(:, 3, 4) = (/ & - & 0.76368e-07,0.75292e-07,0.74075e-07,0.10820e-06,0.73183e-07 /) - kao(:, 4, 4) = (/ & - & 0.16392e-06,0.16130e-06,0.15926e-06,0.15700e-06,0.22041e-06 /) - kao(:, 5, 4) = (/ & - & 0.29704e-06,0.28924e-06,0.28301e-06,0.27633e-06,0.42284e-06 /) - kao(:, 6, 4) = (/ & - & 0.48466e-06,0.47240e-06,0.46143e-06,0.45012e-06,0.43867e-06 /) - kao(:, 7, 4) = (/ & - & 0.71637e-06,0.69847e-06,0.67384e-06,0.65368e-06,0.63375e-06 /) - kao(:, 8, 4) = (/ & - & 0.11904e-05,0.11714e-05,0.11524e-05,0.11354e-05,0.11172e-05 /) - kao(:, 9, 4) = (/ & - & 0.21976e-05,0.21606e-05,0.21332e-05,0.20944e-05,0.20536e-05 /) - kao(:,10, 4) = (/ & - & 0.21713e-05,0.21144e-05,0.20553e-05,0.19901e-05,0.19286e-05 /) - kao(:,11, 4) = (/ & - & 0.21443e-05,0.20785e-05,0.20048e-05,0.19232e-05,0.18295e-05 /) - kao(:,12, 4) = (/ & - & 0.21363e-05,0.20578e-05,0.19811e-05,0.18729e-05,0.17807e-05 /) - kao(:,13, 4) = (/ & - & 0.21319e-05,0.20513e-05,0.19580e-05,0.18546e-05,0.17725e-05 /) - kao(:, 1, 5) = (/ & - & 0.36050e-07,0.36125e-07,0.46253e-07,0.37280e-07,0.37359e-07 /) - kao(:, 2, 5) = (/ & - & 0.65102e-07,0.64266e-07,0.68896e-07,0.65925e-07,0.61190e-07 /) - kao(:, 3, 5) = (/ & - & 0.12173e-06,0.11889e-06,0.11625e-06,0.17574e-06,0.10921e-06 /) - kao(:, 4, 5) = (/ & - & 0.20555e-06,0.19853e-06,0.19068e-06,0.18313e-06,0.30241e-06 /) - kao(:, 5, 5) = (/ & - & 0.30900e-06,0.29996e-06,0.28857e-06,0.27772e-06,0.51631e-06 /) - kao(:, 6, 5) = (/ & - & 0.43774e-06,0.42465e-06,0.40920e-06,0.39315e-06,0.37901e-06 /) - kao(:, 7, 5) = (/ & - & 0.63869e-06,0.61654e-06,0.60324e-06,0.58966e-06,0.57948e-06 /) - kao(:, 8, 5) = (/ & - & 0.98362e-06,0.96271e-06,0.94180e-06,0.92206e-06,0.91105e-06 /) - kao(:, 9, 5) = (/ & - & 0.12061e-05,0.11895e-05,0.11564e-05,0.11296e-05,0.11110e-05 /) - kao(:,10, 5) = (/ & - & 0.12958e-05,0.12694e-05,0.12425e-05,0.12153e-05,0.11880e-05 /) - kao(:,11, 5) = (/ & - & 0.12962e-05,0.12698e-05,0.12429e-05,0.12156e-05,0.11883e-05 /) - kao(:,12, 5) = (/ & - & 0.12964e-05,0.12701e-05,0.12431e-05,0.12158e-05,0.11885e-05 /) - kao(:,13, 5) = (/ & - & 0.12966e-05,0.12702e-05,0.12433e-05,0.12160e-05,0.11886e-05 /) - kao(:, 1, 6) = (/ & - & 0.73925e-07,0.70231e-07,0.21454e-06,0.63477e-07,0.60912e-07 /) - kao(:, 2, 6) = (/ & - & 0.67794e-07,0.65807e-07,0.13854e-06,0.13061e-06,0.59361e-07 /) - kao(:, 3, 6) = (/ & - & 0.98353e-07,0.95275e-07,0.92426e-07,0.15768e-06,0.87986e-07 /) - kao(:, 4, 6) = (/ & - & 0.15855e-06,0.15394e-06,0.14948e-06,0.14655e-06,0.23172e-06 /) - kao(:, 5, 6) = (/ & - & 0.27764e-06,0.26941e-06,0.26299e-06,0.25975e-06,0.40526e-06 /) - kao(:, 6, 6) = (/ & - & 0.45469e-06,0.44417e-06,0.43276e-06,0.42440e-06,0.41489e-06 /) - kao(:, 7, 6) = (/ & - & 0.71540e-06,0.71291e-06,0.70656e-06,0.69823e-06,0.68342e-06 /) - kao(:, 8, 6) = (/ & - & 0.79651e-06,0.79807e-06,0.80621e-06,0.80941e-06,0.79835e-06 /) - kao(:, 9, 6) = (/ & - & 0.18716e-06,0.16713e-06,0.14725e-06,0.13728e-06,0.11763e-06 /) - kao(:,10, 6) = (/ & - & 0.92638e-07,0.86207e-07,0.80877e-07,0.70432e-07,0.64517e-07 /) - kao(:,11, 6) = (/ & - & 0.13396e-06,0.12820e-06,0.12387e-06,0.10427e-06,0.94091e-07 /) - kao(:,12, 6) = (/ & - & 0.14877e-06,0.14827e-06,0.14350e-06,0.12154e-06,0.10552e-06 /) - kao(:,13, 6) = (/ & - & 0.15437e-06,0.15323e-06,0.14992e-06,0.12715e-06,0.10933e-06 /) - kao(:, 1, 7) = (/ & - & 0.72717e-06,0.70656e-06,0.13933e-05,0.66449e-06,0.64269e-06 /) - kao(:, 2, 7) = (/ & - & 0.52595e-06,0.50791e-06,0.11171e-05,0.10538e-05,0.45644e-06 /) - kao(:, 3, 7) = (/ & - & 0.29919e-06,0.29227e-06,0.28284e-06,0.65215e-06,0.26347e-06 /) - kao(:, 4, 7) = (/ & - & 0.27961e-06,0.27579e-06,0.27068e-06,0.26343e-06,0.41265e-06 /) - kao(:, 5, 7) = (/ & - & 0.37031e-06,0.36318e-06,0.35475e-06,0.34488e-06,0.53740e-06 /) - kao(:, 6, 7) = (/ & - & 0.53195e-06,0.52692e-06,0.52224e-06,0.51934e-06,0.51146e-06 /) - kao(:, 7, 7) = (/ & - & 0.83043e-06,0.84552e-06,0.84833e-06,0.82800e-06,0.80930e-06 /) - kao(:, 8, 7) = (/ & - & 0.14910e-05,0.15179e-05,0.15248e-05,0.15091e-05,0.14853e-05 /) - kao(:, 9, 7) = (/ & - & 0.37340e-05,0.37823e-05,0.38311e-05,0.38453e-05,0.38567e-05 /) - kao(:,10, 7) = (/ & - & 0.86791e-05,0.89697e-05,0.92118e-05,0.93991e-05,0.95564e-05 /) - kao(:,11, 7) = (/ & - & 0.11878e-04,0.12201e-04,0.12588e-04,0.12897e-04,0.13151e-04 /) - kao(:,12, 7) = (/ & - & 0.13192e-04,0.13732e-04,0.14137e-04,0.14465e-04,0.14643e-04 /) - kao(:,13, 7) = (/ & - & 0.13716e-04,0.14229e-04,0.14617e-04,0.14944e-04,0.15182e-04 /) - kao(:, 1, 8) = (/ & - & 0.39538e-05,0.38949e-05,0.56188e-05,0.37475e-05,0.36648e-05 /) - kao(:, 2, 8) = (/ & - & 0.34231e-05,0.33633e-05,0.51877e-05,0.50048e-05,0.31425e-05 /) - kao(:, 3, 8) = (/ & - & 0.28073e-05,0.27497e-05,0.26875e-05,0.44405e-05,0.25492e-05 /) - kao(:, 4, 8) = (/ & - & 0.19229e-05,0.18818e-05,0.18382e-05,0.17896e-05,0.33073e-05 /) - kao(:, 5, 8) = (/ & - & 0.11453e-05,0.11293e-05,0.11095e-05,0.10866e-05,0.19344e-05 /) - kao(:, 6, 8) = (/ & - & 0.14565e-05,0.14517e-05,0.14369e-05,0.14141e-05,0.13944e-05 /) - kao(:, 7, 8) = (/ & - & 0.23228e-05,0.22753e-05,0.22395e-05,0.22124e-05,0.21731e-05 /) - kao(:, 8, 8) = (/ & - & 0.34877e-05,0.34362e-05,0.33796e-05,0.33389e-05,0.32924e-05 /) - kao(:, 9, 8) = (/ & - & 0.63448e-05,0.63701e-05,0.63619e-05,0.62632e-05,0.61645e-05 /) - kao(:,10, 8) = (/ & - & 0.12155e-04,0.11880e-04,0.11762e-04,0.11759e-04,0.11651e-04 /) - kao(:,11, 8) = (/ & - & 0.14093e-04,0.13835e-04,0.13547e-04,0.13205e-04,0.12690e-04 /) - kao(:,12, 8) = (/ & - & 0.14428e-04,0.14056e-04,0.13932e-04,0.13396e-04,0.12885e-04 /) - kao(:,13, 8) = (/ & - & 0.15229e-04,0.14534e-04,0.13849e-04,0.13292e-04,0.12704e-04 /) - kao(:, 1, 9) = (/ & - & 0.19250e-04,0.19148e-04,0.21702e-04,0.18906e-04,0.18761e-04 /) - kao(:, 2, 9) = (/ & - & 0.18132e-04,0.18040e-04,0.20884e-04,0.20523e-04,0.17656e-04 /) - kao(:, 3, 9) = (/ & - & 0.16928e-04,0.16843e-04,0.16742e-04,0.19715e-04,0.16470e-04 /) - kao(:, 4, 9) = (/ & - & 0.15526e-04,0.15463e-04,0.15377e-04,0.15268e-04,0.18367e-04 /) - kao(:, 5, 9) = (/ & - & 0.13545e-04,0.13511e-04,0.13455e-04,0.13362e-04,0.16722e-04 /) - kao(:, 6, 9) = (/ & - & 0.97183e-05,0.97218e-05,0.97084e-05,0.96717e-05,0.96030e-05 /) - kao(:, 7, 9) = (/ & - & 0.50307e-05,0.50984e-05,0.51628e-05,0.52093e-05,0.52354e-05 /) - kao(:, 8, 9) = (/ & - & 0.45837e-05,0.45939e-05,0.45938e-05,0.45639e-05,0.45109e-05 /) - kao(:, 9, 9) = (/ & - & 0.12254e-04,0.12319e-04,0.12397e-04,0.12584e-04,0.12620e-04 /) - kao(:,10, 9) = (/ & - & 0.21545e-04,0.21836e-04,0.21718e-04,0.21511e-04,0.21211e-04 /) - kao(:,11, 9) = (/ & - & 0.20079e-04,0.19539e-04,0.18859e-04,0.18393e-04,0.18181e-04 /) - kao(:,12, 9) = (/ & - & 0.17115e-04,0.16357e-04,0.15410e-04,0.15220e-04,0.15207e-04 /) - kao(:,13, 9) = (/ & - & 0.14935e-04,0.14679e-04,0.14593e-04,0.14448e-04,0.14436e-04 /) - kao(:, 1,10) = (/ & - & 0.53569e-04,0.53042e-04,0.55454e-04,0.52098e-04,0.51678e-04 /) - kao(:, 2,10) = (/ & - & 0.52196e-04,0.51739e-04,0.54777e-04,0.54075e-04,0.50624e-04 /) - kao(:, 3,10) = (/ & - & 0.50339e-04,0.50046e-04,0.49769e-04,0.53168e-04,0.49370e-04 /) - kao(:, 4,10) = (/ & - & 0.48505e-04,0.48316e-04,0.48143e-04,0.47993e-04,0.51621e-04 /) - kao(:, 5,10) = (/ & - & 0.46313e-04,0.46267e-04,0.46119e-04,0.46064e-04,0.50279e-04 /) - kao(:, 6,10) = (/ & - & 0.42662e-04,0.42818e-04,0.42935e-04,0.43007e-04,0.43099e-04 /) - kao(:, 7,10) = (/ & - & 0.35762e-04,0.36149e-04,0.36450e-04,0.36639e-04,0.36887e-04 /) - kao(:, 8,10) = (/ & - & 0.13516e-05,0.18607e-05,0.23061e-05,0.27339e-05,0.36516e-05 /) - kao(:, 9,10) = (/ & - & 0.36432e-05,0.40739e-05,0.43830e-05,0.41136e-05,0.43128e-05 /) - kao(:,10,10) = (/ & - & 0.62049e-05,0.69116e-05,0.73244e-05,0.65087e-05,0.78951e-05 /) - kao(:,11,10) = (/ & - & 0.32156e-05,0.38834e-05,0.41231e-05,0.43386e-05,0.43405e-05 /) - kao(:,12,10) = (/ & - & 0.22152e-05,0.26754e-05,0.31971e-05,0.34911e-05,0.37935e-05 /) - kao(:,13,10) = (/ & - & 0.19792e-05,0.26543e-05,0.31511e-05,0.34597e-05,0.40624e-05 /) - kao(:, 1,11) = (/ & - & 0.75384e-04,0.75103e-04,0.77406e-04,0.74222e-04,0.73734e-04 /) - kao(:, 2,11) = (/ & - & 0.75458e-04,0.75244e-04,0.77778e-04,0.77018e-04,0.73942e-04 /) - kao(:, 3,11) = (/ & - & 0.75023e-04,0.74844e-04,0.74477e-04,0.77271e-04,0.73633e-04 /) - kao(:, 4,11) = (/ & - & 0.73633e-04,0.73539e-04,0.73257e-04,0.72934e-04,0.76232e-04 /) - kao(:, 5,11) = (/ & - & 0.71348e-04,0.71322e-04,0.71227e-04,0.71069e-04,0.75258e-04 /) - kao(:, 6,11) = (/ & - & 0.67784e-04,0.67873e-04,0.67974e-04,0.67924e-04,0.67903e-04 /) - kao(:, 7,11) = (/ & - & 0.61855e-04,0.61922e-04,0.61973e-04,0.62206e-04,0.62496e-04 /) - kao(:, 8,11) = (/ & - & 0.36622e-04,0.37413e-04,0.38740e-04,0.40550e-04,0.41833e-04 /) - kao(:, 9,11) = (/ & - & 0.28544e-05,0.28831e-05,0.31445e-05,0.32900e-05,0.27967e-05 /) - kao(:,10,11) = (/ & - & 0.53755e-05,0.42123e-05,0.51154e-05,0.63481e-05,0.54219e-05 /) - kao(:,11,11) = (/ & - & 0.12605e-05,0.14078e-05,0.19167e-05,0.23729e-05,0.30161e-05 /) - kao(:,12,11) = (/ & - & 0.11370e-05,0.91524e-06,0.11150e-05,0.14746e-05,0.20128e-05 /) - kao(:,13,11) = (/ & - & 0.10511e-05,0.10014e-05,0.11405e-05,0.13852e-05,0.15576e-05 /) - kao(:, 1,12) = (/ & - & 0.11184e-03,0.11117e-03,0.11327e-03,0.10989e-03,0.10910e-03 /) - kao(:, 2,12) = (/ & - & 0.11379e-03,0.11322e-03,0.11555e-03,0.11462e-03,0.11135e-03 /) - kao(:, 3,12) = (/ & - & 0.11508e-03,0.11459e-03,0.11421e-03,0.11671e-03,0.11339e-03 /) - kao(:, 4,12) = (/ & - & 0.11596e-03,0.11563e-03,0.11538e-03,0.11511e-03,0.11770e-03 /) - kao(:, 5,12) = (/ & - & 0.11597e-03,0.11581e-03,0.11569e-03,0.11553e-03,0.11890e-03 /) - kao(:, 6,12) = (/ & - & 0.11443e-03,0.11445e-03,0.11443e-03,0.11443e-03,0.11438e-03 /) - kao(:, 7,12) = (/ & - & 0.10852e-03,0.10888e-03,0.10912e-03,0.10934e-03,0.10942e-03 /) - kao(:, 8,12) = (/ & - & 0.93194e-04,0.94766e-04,0.95355e-04,0.95090e-04,0.94926e-04 /) - kao(:, 9,12) = (/ & - & 0.11836e-05,0.16115e-05,0.12883e-05,0.14202e-05,0.16541e-05 /) - kao(:,10,12) = (/ & - & 0.18748e-05,0.34401e-05,0.39984e-05,0.44576e-05,0.33683e-05 /) - kao(:,11,12) = (/ & - & 0.29890e-06,0.48741e-06,0.66276e-06,0.99698e-06,0.19230e-05 /) - kao(:,12,12) = (/ & - & 0.15034e-06,0.39966e-06,0.56523e-06,0.70494e-06,0.10046e-05 /) - kao(:,13,12) = (/ & - & 0.15016e-06,0.25751e-06,0.48928e-06,0.63534e-06,0.93575e-06 /) - kao(:, 1,13) = (/ & - & 0.17305e-03,0.17234e-03,0.17389e-03,0.17055e-03,0.16974e-03 /) - kao(:, 2,13) = (/ & - & 0.18170e-03,0.18075e-03,0.18265e-03,0.18138e-03,0.17772e-03 /) - kao(:, 3,13) = (/ & - & 0.18990e-03,0.18892e-03,0.18776e-03,0.18950e-03,0.18494e-03 /) - kao(:, 4,13) = (/ & - & 0.19649e-03,0.19552e-03,0.19424e-03,0.19281e-03,0.19464e-03 /) - kao(:, 5,13) = (/ & - & 0.20197e-03,0.20109e-03,0.19993e-03,0.19856e-03,0.20092e-03 /) - kao(:, 6,13) = (/ & - & 0.20595e-03,0.20549e-03,0.20452e-03,0.20331e-03,0.20199e-03 /) - kao(:, 7,13) = (/ & - & 0.20703e-03,0.20710e-03,0.20649e-03,0.20552e-03,0.20428e-03 /) - kao(:, 8,13) = (/ & - & 0.19874e-03,0.19767e-03,0.19696e-03,0.19655e-03,0.19591e-03 /) - kao(:, 9,13) = (/ & - & 0.20434e-04,0.23398e-04,0.27400e-04,0.32409e-04,0.38451e-04 /) - kao(:,10,13) = (/ & - & 0.18617e-05,0.99513e-06,0.10554e-05,0.16516e-05,0.37792e-05 /) - kao(:,11,13) = (/ & - & 0.12517e-06,0.29518e-06,0.77058e-06,0.11660e-05,0.15349e-05 /) - kao(:,12,13) = (/ & - & 0.12734e-06,0.36524e-06,0.66699e-06,0.10362e-05,0.14158e-05 /) - kao(:,13,13) = (/ & - & 0.12431e-06,0.39389e-06,0.67331e-06,0.10292e-05,0.14448e-05 /) - kao(:, 1,14) = (/ & - & 0.29365e-03,0.29046e-03,0.29008e-03,0.28509e-03,0.28286e-03 /) - kao(:, 2,14) = (/ & - & 0.31990e-03,0.31668e-03,0.31617e-03,0.31332e-03,0.30885e-03 /) - kao(:, 3,14) = (/ & - & 0.34787e-03,0.34432e-03,0.34112e-03,0.34052e-03,0.33589e-03 /) - kao(:, 4,14) = (/ & - & 0.37401e-03,0.37027e-03,0.36696e-03,0.36394e-03,0.36355e-03 /) - kao(:, 5,14) = (/ & - & 0.39840e-03,0.39446e-03,0.39082e-03,0.38763e-03,0.38760e-03 /) - kao(:, 6,14) = (/ & - & 0.42165e-03,0.41729e-03,0.41335e-03,0.41006e-03,0.40721e-03 /) - kao(:, 7,14) = (/ & - & 0.44257e-03,0.43782e-03,0.43364e-03,0.43014e-03,0.42736e-03 /) - kao(:, 8,14) = (/ & - & 0.45299e-03,0.44953e-03,0.44586e-03,0.44260e-03,0.44006e-03 /) - kao(:, 9,14) = (/ & - & 0.40190e-03,0.39751e-03,0.39238e-03,0.38812e-03,0.38612e-03 /) - kao(:,10,14) = (/ & - & 0.64278e-05,0.18248e-05,0.16996e-05,0.31086e-06,0.16836e-06 /) - kao(:,11,14) = (/ & - & 0.14350e-05,0.94778e-06,0.41349e-06,0.20817e-06,0.20238e-06 /) - kao(:,12,14) = (/ & - & 0.16805e-05,0.15323e-05,0.62348e-06,0.99743e-07,0.12977e-06 /) - kao(:,13,14) = (/ & - & 0.16858e-05,0.17103e-05,0.80574e-06,0.15825e-06,0.15032e-06 /) - kao(:, 1,15) = (/ & - & 0.52181e-03,0.51578e-03,0.51251e-03,0.50356e-03,0.49731e-03 /) - kao(:, 2,15) = (/ & - & 0.59491e-03,0.58822e-03,0.58413e-03,0.57646e-03,0.56692e-03 /) - kao(:, 3,15) = (/ & - & 0.67653e-03,0.66881e-03,0.66126e-03,0.65540e-03,0.64461e-03 /) - kao(:, 4,15) = (/ & - & 0.76388e-03,0.75456e-03,0.74556e-03,0.73649e-03,0.72840e-03 /) - kao(:, 5,15) = (/ & - & 0.85507e-03,0.84417e-03,0.83378e-03,0.82338e-03,0.81349e-03 /) - kao(:, 6,15) = (/ & - & 0.95034e-03,0.93798e-03,0.92553e-03,0.91287e-03,0.89957e-03 /) - kao(:, 7,15) = (/ & - & 0.10496e-02,0.10352e-02,0.10206e-02,0.10054e-02,0.98958e-03 /) - kao(:, 8,15) = (/ & - & 0.11507e-02,0.11337e-02,0.11169e-02,0.10991e-02,0.10806e-02 /) - kao(:, 9,15) = (/ & - & 0.12408e-02,0.12207e-02,0.11996e-02,0.11773e-02,0.11531e-02 /) - kao(:,10,15) = (/ & - & 0.12042e-03,0.11501e-03,0.11424e-03,0.11450e-03,0.13219e-03 /) - kao(:,11,15) = (/ & - & 0.68914e-06,0.83960e-06,0.74591e-06,0.18660e-05,0.32503e-05 /) - kao(:,12,15) = (/ & - & 0.35963e-07,0.46256e-06,0.56223e-06,0.98816e-06,0.92366e-06 /) - kao(:,13,15) = (/ & - & 0.36605e-07,0.56591e-06,0.84008e-06,0.86042e-06,0.68452e-06 /) - kao(:, 1,16) = (/ & - & 0.76517e-03,0.75944e-03,0.76010e-03,0.76100e-03,0.76498e-03 /) - kao(:, 2,16) = (/ & - & 0.92375e-03,0.91357e-03,0.90997e-03,0.90997e-03,0.90993e-03 /) - kao(:, 3,16) = (/ & - & 0.11142e-02,0.10974e-02,0.10835e-02,0.10789e-02,0.10748e-02 /) - kao(:, 4,16) = (/ & - & 0.13278e-02,0.13025e-02,0.12802e-02,0.12631e-02,0.12539e-02 /) - kao(:, 5,16) = (/ & - & 0.15712e-02,0.15343e-02,0.15017e-02,0.14713e-02,0.14497e-02 /) - kao(:, 6,16) = (/ & - & 0.18525e-02,0.17982e-02,0.17525e-02,0.17101e-02,0.16714e-02 /) - kao(:, 7,16) = (/ & - & 0.21731e-02,0.20986e-02,0.20340e-02,0.19757e-02,0.19210e-02 /) - kao(:, 8,16) = (/ & - & 0.25325e-02,0.24346e-02,0.23473e-02,0.22687e-02,0.21950e-02 /) - kao(:, 9,16) = (/ & - & 0.29269e-02,0.28006e-02,0.26863e-02,0.25805e-02,0.24878e-02 /) - kao(:,10,16) = (/ & - & 0.29442e-02,0.27008e-02,0.23913e-02,0.21437e-02,0.18865e-02 /) - kao(:,11,16) = (/ & - & 0.23220e-05,0.22310e-04,0.48349e-04,0.67183e-04,0.88908e-04 /) - kao(:,12,16) = (/ & - & 0.22857e-05,0.11848e-04,0.42066e-04,0.67613e-04,0.86033e-04 /) - kao(:,13,16) = (/ & - & 0.22823e-05,0.69105e-05,0.36212e-04,0.66247e-04,0.85488e-04 /) - - end subroutine sw_kgb25 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_26.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_26.F90 deleted file mode 100644 index 55f4acbb6..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_26.F90 +++ /dev/null @@ -1,97 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb26 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg26, only : sfluxrefo, raylo, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:) = (/ & -! & 129.462, 15*0. /) - & 29.0079, 28.4088, 20.3099, 13.0283 & - &, 11.8619, 9.95840, 6.68696, 5.38987 & - &, 3.49829, 0.407693, 0.299027, 0.236827 & - &, 0.188502, 0.163489, 4.64335e-02, 2.72662e-03 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:) = (/ & - & 3.04845E+01, 2.82835E+01, 2.06520E+01, 1.33606E+01,& - & 1.19253E+01, 9.46266E+00, 6.49295E+00, 4.95470E+00,& - & 3.04469E+00, 3.68830E-01, 2.69394E-01, 2.19130E-01,& - & 1.67527E-01, 1.51647E-01, 3.99119E-02, 0.00000E+00/) -! Solar variability components: facular brightening - facbrghto(:) = (/ & - & 3.61383E-02, 3.05195E-02, 2.92002E-02, 3.95202E-02,& - & 2.30227E-02, 1.34627E-02, 1.21898E-02, 8.33975E-03,& - & 5.78516E-03, 6.39681E-04, 5.38531E-04, 4.27531E-04,& - & 3.12727E-04, 1.98617E-04, 7.47491E-05, 1.03928E-05/) -! Solar variability components: sunspot darkening - snsptdrko(:) = (/ & - &-1.84373E-02,-1.86059E-02,-1.38321E-02,-8.72988E-03,& - &-8.16733E-03,-6.16612E-03,-4.27388E-03,-3.57388E-03,& - &-2.10064E-03,-2.32508E-04,-1.92973E-04,-1.51402E-04,& - &-1.09697E-04,-6.89804E-05,-2.57998E-05,-3.58079E-06/) - -! Rayleigh extinction coefficient at all v - raylo(:) = (/ & - & 1.21263e-06,1.43428e-06,1.67677e-06,1.93255e-06 & - &, 2.19177e-06,2.44195e-06,2.66926e-06,2.85990e-06 & - &, 3.00380e-06,3.06996e-06,3.08184e-06,3.09172e-06 & - &, 3.09938e-06,3.10456e-06,3.10727e-06,3.10818e-06 /) - - end subroutine sw_kgb26 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_27.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_27.F90 deleted file mode 100644 index a8d37bc2e..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_27.F90 +++ /dev/null @@ -1,2055 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb27 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg27, only : kao, kbo, sfluxrefo, raylo, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function -! The following values were obtained using the "low resolution" -! version of the Kurucz solar source function. For unknown reasons, -! the total irradiance in this band differs from the corresponding -! total in the "high-resolution" version of the Kurucz function. -! Therefore, these values are scaled later by the factor SCALEKUR. - sfluxrefo(:) = (/ & - & 14.0526 , 11.4794 , 8.72590 , 5.56966 , & - & 3.80927 , 1.57690 , 1.15099 , 1.10012 , & - & 0.658212 , 5.86859e-02, 5.56186e-02, 4.68040e-02, & - & 3.64897e-02, 3.58053e-02, 1.38130e-02, 1.90193e-03 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:) = (/ & - & 1.46930E+01, 1.06923E+01, 7.68295E+00, 5.14277E+00,& - & 3.29565E+00, 1.44947E+00, 1.02330E+00, 9.80570E-01,& - & 6.02794E-01, 5.47907E-02, 5.70335E-02, 3.99696E-02,& - & 2.33788E-02, 1.52264E-02, 7.81791E-03, 1.44071E-03/) -! Solar variability components: facular brightening - facbrghto(:) = (/ & - & 2.56348E-02, 2.05226E-02, 2.02710E-02, 1.65138E-02,& - & 9.12606E-03, 9.44910E-03, 4.79949E-03, 3.77424E-03,& - & 2.66318E-03, 2.81141E-04, 2.60590E-04, 2.12582E-04,& - & 1.57439E-04, 1.01620E-04, 3.71133E-05, 5.01988E-06/) -! Solar variability components: sunspot darkening - snsptdrko(:) = (/ & - &-1.07095E-02,-8.53486E-03,-6.30155E-03,-4.33876E-03,& - &-2.50603E-03,-8.72900E-04,-7.01047E-04,-7.48293E-04,& - &-4.50820E-04,-3.57970E-05,-3.81539E-05,-3.20120E-05,& - &-2.38720E-05,-1.56042E-05,-5.55935E-06,-7.21321E-07/) - -! Rayleigh extinction coefficient at v = 2925 cm-1. - raylo(:) = (/ & - & 3.44534e-06,4.14480e-06,4.95069e-06,5.81204e-06, & - & 6.69748e-06,7.56488e-06,8.36344e-06,9.04135e-06, & - & 9.58324e-06,9.81542e-06,9.75119e-06,9.74533e-06, & - & 9.74139e-06,9.73525e-06,9.73577e-06,9.73618e-06 /) - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1) = (/ & - & 0.22907e+00,0.25625e+00,0.28779e+00,0.32376e+00,0.36426e+00 /) - kao(:, 2, 1) = (/ & - & 0.21913e+00,0.24445e+00,0.27422e+00,0.30832e+00,0.34694e+00 /) - kao(:, 3, 1) = (/ & - & 0.20602e+00,0.22864e+00,0.25574e+00,0.28721e+00,0.32310e+00 /) - kao(:, 4, 1) = (/ & - & 0.19379e+00,0.21352e+00,0.23771e+00,0.26643e+00,0.29940e+00 /) - kao(:, 5, 1) = (/ & - & 0.18369e+00,0.20061e+00,0.22200e+00,0.24786e+00,0.27816e+00 /) - kao(:, 6, 1) = (/ & - & 0.17517e+00,0.18920e+00,0.20771e+00,0.23069e+00,0.25817e+00 /) - kao(:, 7, 1) = (/ & - & 0.16888e+00,0.17988e+00,0.19559e+00,0.21577e+00,0.24042e+00 /) - kao(:, 8, 1) = (/ & - & 0.16442e+00,0.17273e+00,0.18565e+00,0.20315e+00,0.22512e+00 /) - kao(:, 9, 1) = (/ & - & 0.16159e+00,0.16738e+00,0.17752e+00,0.19242e+00,0.21179e+00 /) - kao(:,10, 1) = (/ & - & 0.16037e+00,0.16402e+00,0.17204e+00,0.18463e+00,0.20183e+00 /) - kao(:,11, 1) = (/ & - & 0.16036e+00,0.16399e+00,0.17198e+00,0.18455e+00,0.20173e+00 /) - kao(:,12, 1) = (/ & - & 0.16036e+00,0.16399e+00,0.17198e+00,0.18455e+00,0.20173e+00 /) - kao(:,13, 1) = (/ & - & 0.16036e+00,0.16399e+00,0.17198e+00,0.18455e+00,0.20173e+00 /) - kao(:, 1, 2) = (/ & - & 0.20716e+01,0.21925e+01,0.23327e+01,0.24921e+01,0.26726e+01 /) - kao(:, 2, 2) = (/ & - & 0.20272e+01,0.21401e+01,0.22723e+01,0.24238e+01,0.25950e+01 /) - kao(:, 3, 2) = (/ & - & 0.19684e+01,0.20697e+01,0.21902e+01,0.23301e+01,0.24892e+01 /) - kao(:, 4, 2) = (/ & - & 0.19133e+01,0.20021e+01,0.21101e+01,0.22375e+01,0.23842e+01 /) - kao(:, 5, 2) = (/ & - & 0.18673e+01,0.19441e+01,0.20400e+01,0.21553e+01,0.22898e+01 /) - kao(:, 6, 2) = (/ & - & 0.18277e+01,0.18925e+01,0.19760e+01,0.20788e+01,0.22009e+01 /) - kao(:, 7, 2) = (/ & - & 0.17963e+01,0.18497e+01,0.19214e+01,0.20121e+01,0.21222e+01 /) - kao(:, 8, 2) = (/ & - & 0.17749e+01,0.18156e+01,0.18763e+01,0.19555e+01,0.20540e+01 /) - kao(:, 9, 2) = (/ & - & 0.17600e+01,0.17885e+01,0.18388e+01,0.19071e+01,0.19943e+01 /) - kao(:,10, 2) = (/ & - & 0.17526e+01,0.17729e+01,0.18121e+01,0.18716e+01,0.19496e+01 /) - kao(:,11, 2) = (/ & - & 0.17525e+01,0.17727e+01,0.18119e+01,0.18712e+01,0.19491e+01 /) - kao(:,12, 2) = (/ & - & 0.17525e+01,0.17727e+01,0.18119e+01,0.18712e+01,0.19491e+01 /) - kao(:,13, 2) = (/ & - & 0.17525e+01,0.17727e+01,0.18119e+01,0.18712e+01,0.19491e+01 /) - kao(:, 1, 3) = (/ & - & 0.12189e+02,0.12619e+02,0.13110e+02,0.13663e+02,0.14275e+02 /) - kao(:, 2, 3) = (/ & - & 0.12030e+02,0.12434e+02,0.12899e+02,0.13427e+02,0.14015e+02 /) - kao(:, 3, 3) = (/ & - & 0.11816e+02,0.12183e+02,0.12611e+02,0.13101e+02,0.13653e+02 /) - kao(:, 4, 3) = (/ & - & 0.11611e+02,0.11938e+02,0.12327e+02,0.12777e+02,0.13289e+02 /) - kao(:, 5, 3) = (/ & - & 0.11437e+02,0.11726e+02,0.12076e+02,0.12488e+02,0.12961e+02 /) - kao(:, 6, 3) = (/ & - & 0.11284e+02,0.11533e+02,0.11843e+02,0.12215e+02,0.12649e+02 /) - kao(:, 7, 3) = (/ & - & 0.11160e+02,0.11370e+02,0.11641e+02,0.11975e+02,0.12370e+02 /) - kao(:, 8, 3) = (/ & - & 0.11063e+02,0.11237e+02,0.11471e+02,0.11768e+02,0.12126e+02 /) - kao(:, 9, 3) = (/ & - & 0.10990e+02,0.11129e+02,0.11327e+02,0.11588e+02,0.11910e+02 /) - kao(:,10, 3) = (/ & - & 0.10945e+02,0.11053e+02,0.11223e+02,0.11454e+02,0.11746e+02 /) - kao(:,11, 3) = (/ & - & 0.10945e+02,0.11052e+02,0.11222e+02,0.11452e+02,0.11744e+02 /) - kao(:,12, 3) = (/ & - & 0.10945e+02,0.11052e+02,0.11222e+02,0.11452e+02,0.11744e+02 /) - kao(:,13, 3) = (/ & - & 0.10945e+02,0.11052e+02,0.11222e+02,0.11452e+02,0.11744e+02 /) - kao(:, 1, 4) = (/ & - & 0.55057e+02,0.56143e+02,0.57364e+02,0.58719e+02,0.60208e+02 /) - kao(:, 2, 4) = (/ & - & 0.54647e+02,0.55677e+02,0.56842e+02,0.58142e+02,0.59575e+02 /) - kao(:, 3, 4) = (/ & - & 0.54090e+02,0.55039e+02,0.56123e+02,0.57342e+02,0.58694e+02 /) - kao(:, 4, 4) = (/ & - & 0.53548e+02,0.54410e+02,0.55408e+02,0.56539e+02,0.57805e+02 /) - kao(:, 5, 4) = (/ & - & 0.53074e+02,0.53853e+02,0.54766e+02,0.55813e+02,0.56995e+02 /) - kao(:, 6, 4) = (/ & - & 0.52644e+02,0.53336e+02,0.54162e+02,0.55123e+02,0.56218e+02 /) - kao(:, 7, 4) = (/ & - & 0.52279e+02,0.52887e+02,0.53629e+02,0.54505e+02,0.55516e+02 /) - kao(:, 8, 4) = (/ & - & 0.51979e+02,0.52507e+02,0.53168e+02,0.53965e+02,0.54895e+02 /) - kao(:, 9, 4) = (/ & - & 0.51734e+02,0.52183e+02,0.52767e+02,0.53485e+02,0.54337e+02 /) - kao(:,10, 4) = (/ & - & 0.51565e+02,0.51948e+02,0.52467e+02,0.53120e+02,0.53907e+02 /) - kao(:,11, 4) = (/ & - & 0.51563e+02,0.51946e+02,0.52464e+02,0.53116e+02,0.53902e+02 /) - kao(:,12, 4) = (/ & - & 0.51563e+02,0.51946e+02,0.52464e+02,0.53116e+02,0.53902e+02 /) - kao(:,13, 4) = (/ & - & 0.51563e+02,0.51946e+02,0.52464e+02,0.53116e+02,0.53902e+02 /) - kao(:, 1, 5) = (/ & - & 0.17794e+03,0.17973e+03,0.18164e+03,0.18366e+03,0.18581e+03 /) - kao(:, 2, 5) = (/ & - & 0.17724e+03,0.17898e+03,0.18083e+03,0.18281e+03,0.18491e+03 /) - kao(:, 3, 5) = (/ & - & 0.17624e+03,0.17791e+03,0.17970e+03,0.18160e+03,0.18363e+03 /) - kao(:, 4, 5) = (/ & - & 0.17523e+03,0.17682e+03,0.17853e+03,0.18036e+03,0.18231e+03 /) - kao(:, 5, 5) = (/ & - & 0.17429e+03,0.17581e+03,0.17744e+03,0.17920e+03,0.18107e+03 /) - kao(:, 6, 5) = (/ & - & 0.17338e+03,0.17482e+03,0.17638e+03,0.17805e+03,0.17985e+03 /) - kao(:, 7, 5) = (/ & - & 0.17253e+03,0.17390e+03,0.17539e+03,0.17699e+03,0.17871e+03 /) - kao(:, 8, 5) = (/ & - & 0.17177e+03,0.17307e+03,0.17448e+03,0.17601e+03,0.17767e+03 /) - kao(:, 9, 5) = (/ & - & 0.17107e+03,0.17230e+03,0.17364e+03,0.17511e+03,0.17669e+03 /) - kao(:,10, 5) = (/ & - & 0.17052e+03,0.17169e+03,0.17298e+03,0.17438e+03,0.17591e+03 /) - kao(:,11, 5) = (/ & - & 0.17051e+03,0.17168e+03,0.17297e+03,0.17437e+03,0.17590e+03 /) - kao(:,12, 5) = (/ & - & 0.17051e+03,0.17168e+03,0.17297e+03,0.17437e+03,0.17590e+03 /) - kao(:,13, 5) = (/ & - & 0.17051e+03,0.17168e+03,0.17297e+03,0.17437e+03,0.17590e+03 /) - kao(:, 1, 6) = (/ & - & 0.37680e+05,0.36801e+05,0.36011e+05,0.35298e+05,0.34715e+05 /) - kao(:, 2, 6) = (/ & - & 0.39286e+03,0.39463e+03,0.39616e+03,0.39748e+03,0.39858e+03 /) - kao(:, 3, 6) = (/ & - & 0.39169e+03,0.39359e+03,0.39526e+03,0.39671e+03,0.39794e+03 /) - kao(:, 4, 6) = (/ & - & 0.39034e+03,0.39239e+03,0.39421e+03,0.39580e+03,0.39717e+03 /) - kao(:, 5, 6) = (/ & - & 0.38895e+03,0.39113e+03,0.39309e+03,0.39483e+03,0.39634e+03 /) - kao(:, 6, 6) = (/ & - & 0.38742e+03,0.38975e+03,0.39185e+03,0.39373e+03,0.39539e+03 /) - kao(:, 7, 6) = (/ & - & 0.38585e+03,0.38832e+03,0.39056e+03,0.39258e+03,0.39438e+03 /) - kao(:, 8, 6) = (/ & - & 0.38426e+03,0.38686e+03,0.38924e+03,0.39140e+03,0.39333e+03 /) - kao(:, 9, 6) = (/ & - & 0.38264e+03,0.38538e+03,0.38789e+03,0.39017e+03,0.39223e+03 /) - kao(:,10, 6) = (/ & - & 0.38123e+03,0.38408e+03,0.38670e+03,0.38909e+03,0.39126e+03 /) - kao(:,11, 6) = (/ & - & 0.38122e+03,0.38406e+03,0.38668e+03,0.38908e+03,0.39125e+03 /) - kao(:,12, 6) = (/ & - & 0.38122e+03,0.38406e+03,0.38668e+03,0.38908e+03,0.39125e+03 /) - kao(:,13, 6) = (/ & - & 0.38122e+03,0.38406e+03,0.38668e+03,0.38908e+03,0.39125e+03 /) - kao(:, 1, 7) = (/ & - & 0.18202e+07,0.17771e+07,0.17382e+07,0.17034e+07,0.16716e+07 /) - kao(:, 2, 7) = (/ & - & 0.63027e+03,0.63194e+03,0.63388e+03,0.63607e+03,0.63849e+03 /) - kao(:, 3, 7) = (/ & - & 0.62938e+03,0.63090e+03,0.63268e+03,0.63472e+03,0.63701e+03 /) - kao(:, 4, 7) = (/ & - & 0.62853e+03,0.62989e+03,0.63150e+03,0.63337e+03,0.63550e+03 /) - kao(:, 5, 7) = (/ & - & 0.62781e+03,0.62901e+03,0.63046e+03,0.63217e+03,0.63413e+03 /) - kao(:, 6, 7) = (/ & - & 0.62717e+03,0.62821e+03,0.62950e+03,0.63104e+03,0.63283e+03 /) - kao(:, 7, 7) = (/ & - & 0.62666e+03,0.62753e+03,0.62867e+03,0.63005e+03,0.63168e+03 /) - kao(:, 8, 7) = (/ & - & 0.62627e+03,0.62698e+03,0.62795e+03,0.62919e+03,0.63067e+03 /) - kao(:, 9, 7) = (/ & - & 0.62600e+03,0.62653e+03,0.62735e+03,0.62844e+03,0.62978e+03 /) - kao(:,10, 7) = (/ & - & 0.62583e+03,0.62624e+03,0.62692e+03,0.62788e+03,0.62910e+03 /) - kao(:,11, 7) = (/ & - & 0.62583e+03,0.62623e+03,0.62691e+03,0.62787e+03,0.62909e+03 /) - kao(:,12, 7) = (/ & - & 0.62583e+03,0.62623e+03,0.62691e+03,0.62787e+03,0.62909e+03 /) - kao(:,13, 7) = (/ & - & 0.62583e+03,0.62623e+03,0.62691e+03,0.62787e+03,0.62909e+03 /) - kao(:, 1, 8) = (/ & - & 0.55488e+07,0.54180e+07,0.53005e+07,0.51943e+07,0.50978e+07 /) - kao(:, 2, 8) = (/ & - & 0.82143e+03,0.82232e+03,0.82327e+03,0.82429e+03,0.82541e+03 /) - kao(:, 3, 8) = (/ & - & 0.82092e+03,0.82177e+03,0.82269e+03,0.82366e+03,0.82472e+03 /) - kao(:, 4, 8) = (/ & - & 0.82041e+03,0.82121e+03,0.82209e+03,0.82303e+03,0.82402e+03 /) - kao(:, 5, 8) = (/ & - & 0.81996e+03,0.82070e+03,0.82152e+03,0.82243e+03,0.82339e+03 /) - kao(:, 6, 8) = (/ & - & 0.81952e+03,0.82021e+03,0.82098e+03,0.82184e+03,0.82277e+03 /) - kao(:, 7, 8) = (/ & - & 0.81917e+03,0.81977e+03,0.82048e+03,0.82129e+03,0.82218e+03 /) - kao(:, 8, 8) = (/ & - & 0.81881e+03,0.81938e+03,0.82004e+03,0.82080e+03,0.82163e+03 /) - kao(:, 9, 8) = (/ & - & 0.81846e+03,0.81906e+03,0.81965e+03,0.82035e+03,0.82114e+03 /) - kao(:,10, 8) = (/ & - & 0.81821e+03,0.81877e+03,0.81934e+03,0.82000e+03,0.82074e+03 /) - kao(:,11, 8) = (/ & - & 0.81821e+03,0.81877e+03,0.81934e+03,0.81999e+03,0.82074e+03 /) - kao(:,12, 8) = (/ & - & 0.81821e+03,0.81877e+03,0.81934e+03,0.81999e+03,0.82074e+03 /) - kao(:,13, 8) = (/ & - & 0.81821e+03,0.81877e+03,0.81935e+03,0.81999e+03,0.82074e+03 /) - kao(:, 1, 9) = (/ & - & 0.10204e+08,0.99477e+07,0.97209e+07,0.95103e+07,0.92960e+07 /) - kao(:, 2, 9) = (/ & - & 0.95102e+03,0.95144e+03,0.95133e+03,0.95066e+03,0.94964e+03 /) - kao(:, 3, 9) = (/ & - & 0.95048e+03,0.95118e+03,0.95136e+03,0.95103e+03,0.95020e+03 /) - kao(:, 4, 9) = (/ & - & 0.94969e+03,0.95077e+03,0.95126e+03,0.95124e+03,0.95074e+03 /) - kao(:, 5, 9) = (/ & - & 0.94872e+03,0.95015e+03,0.95101e+03,0.95129e+03,0.95105e+03 /) - kao(:, 6, 9) = (/ & - & 0.94752e+03,0.94929e+03,0.95052e+03,0.95116e+03,0.95126e+03 /) - kao(:, 7, 9) = (/ & - & 0.94612e+03,0.94825e+03,0.94981e+03,0.95083e+03,0.95126e+03 /) - kao(:, 8, 9) = (/ & - & 0.94461e+03,0.94704e+03,0.94894e+03,0.95029e+03,0.95107e+03 /) - kao(:, 9, 9) = (/ & - & 0.94291e+03,0.94567e+03,0.94791e+03,0.94957e+03,0.95069e+03 /) - kao(:,10, 9) = (/ & - & 0.94135e+03,0.94441e+03,0.94689e+03,0.94884e+03,0.95022e+03 /) - kao(:,11, 9) = (/ & - & 0.94133e+03,0.94440e+03,0.94688e+03,0.94883e+03,0.95021e+03 /) - kao(:,12, 9) = (/ & - & 0.94133e+03,0.94438e+03,0.94688e+03,0.94883e+03,0.95021e+03 /) - kao(:,13, 9) = (/ & - & 0.94133e+03,0.94438e+03,0.94687e+03,0.94883e+03,0.95021e+03 /) - kao(:, 1,10) = (/ & - & 0.12764e+08,0.12408e+08,0.12012e+08,0.11438e+08,0.11217e+08 /) - kao(:, 2,10) = (/ & - & 0.99589e+03,0.99493e+03,0.99263e+03,0.98974e+03,0.98742e+03 /) - kao(:, 3,10) = (/ & - & 0.99532e+03,0.99571e+03,0.99447e+03,0.99207e+03,0.98779e+03 /) - kao(:, 4,10) = (/ & - & 0.99446e+03,0.99559e+03,0.99536e+03,0.99386e+03,0.99088e+03 /) - kao(:, 5,10) = (/ & - & 0.99288e+03,0.99493e+03,0.99558e+03,0.99487e+03,0.99336e+03 /) - kao(:, 6,10) = (/ & - & 0.99069e+03,0.99366e+03,0.99519e+03,0.99534e+03,0.99428e+03 /) - kao(:, 7,10) = (/ & - & 0.98811e+03,0.99191e+03,0.99430e+03,0.99510e+03,0.99504e+03 /) - kao(:, 8,10) = (/ & - & 0.98531e+03,0.98996e+03,0.99300e+03,0.99479e+03,0.99513e+03 /) - kao(:, 9,10) = (/ & - & 0.98264e+03,0.98737e+03,0.99138e+03,0.99390e+03,0.99503e+03 /) - kao(:,10,10) = (/ & - & 0.98010e+03,0.98517e+03,0.98974e+03,0.99281e+03,0.99470e+03 /) - kao(:,11,10) = (/ & - & 0.98010e+03,0.98509e+03,0.98985e+03,0.99280e+03,0.99468e+03 /) - kao(:,12,10) = (/ & - & 0.98035e+03,0.98524e+03,0.98973e+03,0.99279e+03,0.99468e+03 /) - kao(:,13,10) = (/ & - & 0.98012e+03,0.98526e+03,0.98973e+03,0.99279e+03,0.99468e+03 /) - kao(:, 1,11) = (/ & - & 0.12266e+08,0.12000e+08,0.11724e+08,0.11828e+08,0.11523e+08 /) - kao(:, 2,11) = (/ & - & 0.10001e+04,0.99984e+03,0.99745e+03,0.99535e+03,0.98599e+03 /) - kao(:, 3,11) = (/ & - & 0.99963e+03,0.99927e+03,0.99848e+03,0.99596e+03,0.99390e+03 /) - kao(:, 4,11) = (/ & - & 0.99904e+03,0.99942e+03,0.99870e+03,0.99747e+03,0.99542e+03 /) - kao(:, 5,11) = (/ & - & 0.99826e+03,0.99927e+03,0.99919e+03,0.99821e+03,0.99627e+03 /) - kao(:, 6,11) = (/ & - & 0.99730e+03,0.99882e+03,0.99938e+03,0.99902e+03,0.99764e+03 /) - kao(:, 7,11) = (/ & - & 0.99551e+03,0.99810e+03,0.99919e+03,0.99961e+03,0.99863e+03 /) - kao(:, 8,11) = (/ & - & 0.99324e+03,0.99688e+03,0.99871e+03,0.99940e+03,0.99942e+03 /) - kao(:, 9,11) = (/ & - & 0.99058e+03,0.99489e+03,0.99773e+03,0.99912e+03,0.99954e+03 /) - kao(:,10,11) = (/ & - & 0.98802e+03,0.99297e+03,0.99656e+03,0.99861e+03,0.99937e+03 /) - kao(:,11,11) = (/ & - & 0.98800e+03,0.99310e+03,0.99655e+03,0.99860e+03,0.99936e+03 /) - kao(:,12,11) = (/ & - & 0.98771e+03,0.99296e+03,0.99669e+03,0.99859e+03,0.99936e+03 /) - kao(:,13,11) = (/ & - & 0.98800e+03,0.99296e+03,0.99655e+03,0.99859e+03,0.99936e+03 /) - kao(:, 1,12) = (/ & - & 0.12503e+08,0.11946e+08,0.11557e+08,0.11503e+08,0.11901e+08 /) - kao(:, 2,12) = (/ & - & 0.10015e+04,0.10004e+04,0.99932e+03,0.99373e+03,0.98591e+03 /) - kao(:, 3,12) = (/ & - & 0.10024e+04,0.10021e+04,0.10003e+04,0.99817e+03,0.99146e+03 /) - kao(:, 4,12) = (/ & - & 0.10022e+04,0.10027e+04,0.10021e+04,0.99956e+03,0.99610e+03 /) - kao(:, 5,12) = (/ & - & 0.10024e+04,0.10024e+04,0.10028e+04,0.10015e+04,0.99826e+03 /) - kao(:, 6,12) = (/ & - & 0.10017e+04,0.10025e+04,0.10025e+04,0.10023e+04,0.10008e+04 /) - kao(:, 7,12) = (/ & - & 0.10005e+04,0.10020e+04,0.10028e+04,0.10028e+04,0.10019e+04 /) - kao(:, 8,12) = (/ & - & 0.10000e+04,0.10010e+04,0.10024e+04,0.10029e+04,0.10023e+04 /) - kao(:, 9,12) = (/ & - & 0.99906e+03,0.10004e+04,0.10018e+04,0.10029e+04,0.10028e+04 /) - kao(:,10,12) = (/ & - & 0.99791e+03,0.99989e+03,0.10010e+04,0.10024e+04,0.10031e+04 /) - kao(:,11,12) = (/ & - & 0.99769e+03,0.99967e+03,0.10008e+04,0.10024e+04,0.10029e+04 /) - kao(:,12,12) = (/ & - & 0.99787e+03,0.99985e+03,0.10008e+04,0.10025e+04,0.10029e+04 /) - kao(:,13,12) = (/ & - & 0.99768e+03,0.99984e+03,0.10012e+04,0.10026e+04,0.10029e+04 /) - kao(:, 1,13) = (/ & - & 0.12359e+08,0.12469e+08,0.12868e+08,0.12776e+08,0.12590e+08 /) - kao(:, 2,13) = (/ & - & 0.10045e+04,0.10033e+04,0.99840e+03,0.99184e+03,0.98861e+03 /) - kao(:, 3,13) = (/ & - & 0.10050e+04,0.10041e+04,0.10024e+04,0.99701e+03,0.99083e+03 /) - kao(:, 4,13) = (/ & - & 0.10053e+04,0.10043e+04,0.10035e+04,0.10017e+04,0.99538e+03 /) - kao(:, 5,13) = (/ & - & 0.10048e+04,0.10056e+04,0.10038e+04,0.10026e+04,0.10008e+04 /) - kao(:, 6,13) = (/ & - & 0.10042e+04,0.10054e+04,0.10054e+04,0.10039e+04,0.10017e+04 /) - kao(:, 7,13) = (/ & - & 0.10029e+04,0.10046e+04,0.10055e+04,0.10046e+04,0.10033e+04 /) - kao(:, 8,13) = (/ & - & 0.10002e+04,0.10039e+04,0.10051e+04,0.10054e+04,0.10046e+04 /) - kao(:, 9,13) = (/ & - & 0.99825e+03,0.10019e+04,0.10043e+04,0.10051e+04,0.10052e+04 /) - kao(:,10,13) = (/ & - & 0.99595e+03,0.99983e+03,0.10034e+04,0.10050e+04,0.10051e+04 /) - kao(:,11,13) = (/ & - & 0.99621e+03,0.99979e+03,0.10034e+04,0.10050e+04,0.10054e+04 /) - kao(:,12,13) = (/ & - & 0.99597e+03,0.99979e+03,0.10031e+04,0.10047e+04,0.10054e+04 /) - kao(:,13,13) = (/ & - & 0.99623e+03,0.99978e+03,0.10031e+04,0.10047e+04,0.10054e+04 /) - kao(:, 1,14) = (/ & - & 0.13636e+08,0.13818e+08,0.13518e+08,0.13266e+08,0.13048e+08 /) - kao(:, 2,14) = (/ & - & 0.10049e+04,0.99946e+03,0.99774e+03,0.99774e+03,0.99771e+03 /) - kao(:, 3,14) = (/ & - & 0.10051e+04,0.10068e+04,0.10007e+04,0.99775e+03,0.99778e+03 /) - kao(:, 4,14) = (/ & - & 0.10071e+04,0.10061e+04,0.10050e+04,0.10005e+04,0.99776e+03 /) - kao(:, 5,14) = (/ & - & 0.10067e+04,0.10072e+04,0.10061e+04,0.10044e+04,0.99972e+03 /) - kao(:, 6,14) = (/ & - & 0.10049e+04,0.10070e+04,0.10074e+04,0.10057e+04,0.10037e+04 /) - kao(:, 7,14) = (/ & - & 0.10033e+04,0.10063e+04,0.10072e+04,0.10067e+04,0.10050e+04 /) - kao(:, 8,14) = (/ & - & 0.10025e+04,0.10048e+04,0.10068e+04,0.10071e+04,0.10062e+04 /) - kao(:, 9,14) = (/ & - & 0.99880e+03,0.10031e+04,0.10060e+04,0.10071e+04,0.10069e+04 /) - kao(:,10,14) = (/ & - & 0.99610e+03,0.10023e+04,0.10047e+04,0.10067e+04,0.10072e+04 /) - kao(:,11,14) = (/ & - & 0.99601e+03,0.10023e+04,0.10047e+04,0.10067e+04,0.10072e+04 /) - kao(:,12,14) = (/ & - & 0.99598e+03,0.10023e+04,0.10051e+04,0.10067e+04,0.10076e+04 /) - kao(:,13,14) = (/ & - & 0.99596e+03,0.10027e+04,0.10047e+04,0.10067e+04,0.10072e+04 /) - kao(:, 1,15) = (/ & - & 0.14285e+08,0.13947e+08,0.13644e+08,0.13317e+08,0.13015e+08 /) - kao(:, 2,15) = (/ & - & 0.99932e+03,0.10011e+04,0.10018e+04,0.10007e+04,0.99706e+03 /) - kao(:, 3,15) = (/ & - & 0.10097e+04,0.99743e+03,0.10015e+04,0.10018e+04,0.99920e+03 /) - kao(:, 4,15) = (/ & - & 0.10099e+04,0.10076e+04,0.10030e+04,0.10017e+04,0.10013e+04 /) - kao(:, 5,15) = (/ & - & 0.10075e+04,0.10079e+04,0.10073e+04,0.10035e+04,0.10018e+04 /) - kao(:, 6,15) = (/ & - & 0.10068e+04,0.10088e+04,0.10068e+04,0.10090e+04,0.10033e+04 /) - kao(:, 7,15) = (/ & - & 0.10057e+04,0.10073e+04,0.10090e+04,0.10087e+04,0.10062e+04 /) - kao(:, 8,15) = (/ & - & 0.10010e+04,0.10054e+04,0.10076e+04,0.10079e+04,0.10072e+04 /) - kao(:, 9,15) = (/ & - & 0.99853e+03,0.10054e+04,0.10071e+04,0.10079e+04,0.10078e+04 /) - kao(:,10,15) = (/ & - & 0.99742e+03,0.10007e+04,0.10064e+04,0.10076e+04,0.10080e+04 /) - kao(:,11,15) = (/ & - & 0.99635e+03,0.10006e+04,0.10064e+04,0.10087e+04,0.10090e+04 /) - kao(:,12,15) = (/ & - & 0.99635e+03,0.10006e+04,0.10064e+04,0.10087e+04,0.10069e+04 /) - kao(:,13,15) = (/ & - & 0.99635e+03,0.99960e+03,0.10064e+04,0.10076e+04,0.10080e+04 /) - kao(:, 1,16) = (/ & - & 0.14326e+08,0.13988e+08,0.13684e+08,0.13409e+08,0.13021e+08 /) - kao(:, 2,16) = (/ & - & 0.10008e+04,0.10027e+04,0.10036e+04,0.10037e+04,0.99673e+03 /) - kao(:, 3,16) = (/ & - & 0.99286e+03,0.10016e+04,0.10031e+04,0.10038e+04,0.10035e+04 /) - kao(:, 4,16) = (/ & - & 0.99278e+03,0.10078e+04,0.10023e+04,0.10035e+04,0.10038e+04 /) - kao(:, 5,16) = (/ & - & 0.10074e+04,0.10079e+04,0.10075e+04,0.10028e+04,0.10037e+04 /) - kao(:, 6,16) = (/ & - & 0.10069e+04,0.10002e+04,0.10079e+04,0.99212e+03,0.10032e+04 /) - kao(:, 7,16) = (/ & - & 0.10060e+04,0.10072e+04,0.10004e+04,0.10003e+04,0.10063e+04 /) - kao(:, 8,16) = (/ & - & 0.10009e+04,0.10066e+04,0.10075e+04,0.10080e+04,0.10074e+04 /) - kao(:, 9,16) = (/ & - & 0.99860e+03,0.10057e+04,0.10071e+04,0.10078e+04,0.10079e+04 /) - kao(:,10,16) = (/ & - & 0.98908e+03,0.10006e+04,0.10065e+04,0.10075e+04,0.10080e+04 /) - kao(:,11,16) = (/ & - & 0.99644e+03,0.10006e+04,0.10065e+04,0.10000e+04,0.10005e+04 /) - kao(:,12,16) = (/ & - & 0.99644e+03,0.10006e+04,0.10065e+04,0.10000e+04,0.10080e+04 /) - kao(:,13,16) = (/ & - & 0.99644e+03,0.10006e+04,0.10065e+04,0.10075e+04,0.10080e+04 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:,13, 1) = (/ & - & 0.16036e+00,0.16399e+00,0.17198e+00,0.18455e+00,0.20173e+00 /) - kbo(:,14, 1) = (/ & - & 0.16050e+00,0.16454e+00,0.17292e+00,0.18592e+00,0.20351e+00 /) - kbo(:,15, 1) = (/ & - & 0.16071e+00,0.16519e+00,0.17400e+00,0.18750e+00,0.20554e+00 /) - kbo(:,16, 1) = (/ & - & 0.16098e+00,0.16593e+00,0.17517e+00,0.18921e+00,0.20772e+00 /) - kbo(:,17, 1) = (/ & - & 0.16129e+00,0.16670e+00,0.17642e+00,0.19093e+00,0.20991e+00 /) - kbo(:,18, 1) = (/ & - & 0.16164e+00,0.16750e+00,0.17771e+00,0.19267e+00,0.21211e+00 /) - kbo(:,19, 1) = (/ & - & 0.16203e+00,0.16832e+00,0.17901e+00,0.19443e+00,0.21431e+00 /) - kbo(:,20, 1) = (/ & - & 0.16255e+00,0.16934e+00,0.18059e+00,0.19653e+00,0.21694e+00 /) - kbo(:,21, 1) = (/ & - & 0.16313e+00,0.17044e+00,0.18225e+00,0.19873e+00,0.21967e+00 /) - kbo(:,22, 1) = (/ & - & 0.16416e+00,0.17227e+00,0.18498e+00,0.20229e+00,0.22406e+00 /) - kbo(:,23, 1) = (/ & - & 0.16539e+00,0.17431e+00,0.18796e+00,0.20612e+00,0.22875e+00 /) - kbo(:,24, 1) = (/ & - & 0.16684e+00,0.17666e+00,0.19125e+00,0.21032e+00,0.23385e+00 /) - kbo(:,25, 1) = (/ & - & 0.16856e+00,0.17939e+00,0.19493e+00,0.21495e+00,0.23943e+00 /) - kbo(:,26, 1) = (/ & - & 0.17067e+00,0.18260e+00,0.19919e+00,0.22024e+00,0.24578e+00 /) - kbo(:,27, 1) = (/ & - & 0.17306e+00,0.18613e+00,0.20377e+00,0.22588e+00,0.25248e+00 /) - kbo(:,28, 1) = (/ & - & 0.17570e+00,0.18994e+00,0.20865e+00,0.23184e+00,0.25952e+00 /) - kbo(:,29, 1) = (/ & - & 0.17882e+00,0.19417e+00,0.21399e+00,0.23828e+00,0.26708e+00 /) - kbo(:,30, 1) = (/ & - & 0.18223e+00,0.19870e+00,0.21964e+00,0.24505e+00,0.27492e+00 /) - kbo(:,31, 1) = (/ & - & 0.18602e+00,0.20364e+00,0.22572e+00,0.25229e+00,0.28325e+00 /) - kbo(:,32, 1) = (/ & - & 0.19018e+00,0.20895e+00,0.23219e+00,0.25994e+00,0.29200e+00 /) - kbo(:,33, 1) = (/ & - & 0.19466e+00,0.21461e+00,0.23902e+00,0.26795e+00,0.30114e+00 /) - kbo(:,34, 1) = (/ & - & 0.19880e+00,0.21976e+00,0.24520e+00,0.27509e+00,0.30932e+00 /) - kbo(:,35, 1) = (/ & - & 0.20129e+00,0.22283e+00,0.24886e+00,0.27931e+00,0.31412e+00 /) - kbo(:,36, 1) = (/ & - & 0.20170e+00,0.22334e+00,0.24946e+00,0.28000e+00,0.31492e+00 /) - kbo(:,37, 1) = (/ & - & 0.19920e+00,0.22026e+00,0.24579e+00,0.27578e+00,0.31010e+00 /) - kbo(:,38, 1) = (/ & - & 0.19662e+00,0.21706e+00,0.24197e+00,0.27135e+00,0.30504e+00 /) - kbo(:,39, 1) = (/ & - & 0.19414e+00,0.21396e+00,0.23824e+00,0.26704e+00,0.30010e+00 /) - kbo(:,40, 1) = (/ & - & 0.19003e+00,0.20877e+00,0.23197e+00,0.25968e+00,0.29171e+00 /) - kbo(:,41, 1) = (/ & - & 0.18597e+00,0.20357e+00,0.22564e+00,0.25219e+00,0.28314e+00 /) - kbo(:,42, 1) = (/ & - & 0.18220e+00,0.19865e+00,0.21958e+00,0.24498e+00,0.27484e+00 /) - kbo(:,43, 1) = (/ & - & 0.17798e+00,0.19304e+00,0.21257e+00,0.23657e+00,0.26510e+00 /) - kbo(:,44, 1) = (/ & - & 0.17397e+00,0.18746e+00,0.20548e+00,0.22798e+00,0.25496e+00 /) - kbo(:,45, 1) = (/ & - & 0.17053e+00,0.18239e+00,0.19890e+00,0.21989e+00,0.24535e+00 /) - kbo(:,46, 1) = (/ & - & 0.16739e+00,0.17754e+00,0.19245e+00,0.21183e+00,0.23568e+00 /) - kbo(:,47, 1) = (/ & - & 0.16454e+00,0.17292e+00,0.18592e+00,0.20351e+00,0.22556e+00 /) - kbo(:,48, 1) = (/ & - & 0.16239e+00,0.16903e+00,0.18011e+00,0.19590e+00,0.21615e+00 /) - kbo(:,49, 1) = (/ & - & 0.16095e+00,0.16584e+00,0.17504e+00,0.18902e+00,0.20747e+00 /) - kbo(:,50, 1) = (/ & - & 0.16025e+00,0.16348e+00,0.17109e+00,0.18322e+00,0.20000e+00 /) - kbo(:,51, 1) = (/ & - & 0.16021e+00,0.16179e+00,0.16781e+00,0.17821e+00,0.19335e+00 /) - kbo(:,52, 1) = (/ & - & 0.16078e+00,0.16068e+00,0.16511e+00,0.17387e+00,0.18731e+00 /) - kbo(:,53, 1) = (/ & - & 0.16197e+00,0.16018e+00,0.16299e+00,0.17017e+00,0.18186e+00 /) - kbo(:,54, 1) = (/ & - & 0.16362e+00,0.16026e+00,0.16155e+00,0.16729e+00,0.17738e+00 /) - kbo(:,55, 1) = (/ & - & 0.16570e+00,0.16083e+00,0.16064e+00,0.16498e+00,0.17365e+00 /) - kbo(:,56, 1) = (/ & - & 0.16825e+00,0.16187e+00,0.16020e+00,0.16311e+00,0.17041e+00 /) - kbo(:,57, 1) = (/ & - & 0.17129e+00,0.16340e+00,0.16023e+00,0.16169e+00,0.16761e+00 /) - kbo(:,58, 1) = (/ & - & 0.17462e+00,0.16529e+00,0.16069e+00,0.16077e+00,0.16535e+00 /) - kbo(:,59, 1) = (/ & - & 0.17607e+00,0.16617e+00,0.16100e+00,0.16051e+00,0.16456e+00 /) - kbo(:,13, 2) = (/ & - & 0.17525e+01,0.17727e+01,0.18119e+01,0.18712e+01,0.19491e+01 /) - kbo(:,14, 2) = (/ & - & 0.17536e+01,0.17755e+01,0.18165e+01,0.18775e+01,0.19571e+01 /) - kbo(:,15, 2) = (/ & - & 0.17549e+01,0.17787e+01,0.18219e+01,0.18847e+01,0.19662e+01 /) - kbo(:,16, 2) = (/ & - & 0.17565e+01,0.17819e+01,0.18278e+01,0.18925e+01,0.19761e+01 /) - kbo(:,17, 2) = (/ & - & 0.17583e+01,0.17850e+01,0.18336e+01,0.19003e+01,0.19859e+01 /) - kbo(:,18, 2) = (/ & - & 0.17603e+01,0.17891e+01,0.18396e+01,0.19082e+01,0.19957e+01 /) - kbo(:,19, 2) = (/ & - & 0.17624e+01,0.17934e+01,0.18457e+01,0.19162e+01,0.20056e+01 /) - kbo(:,20, 2) = (/ & - & 0.17652e+01,0.17986e+01,0.18530e+01,0.19257e+01,0.20174e+01 /) - kbo(:,21, 2) = (/ & - & 0.17683e+01,0.18042e+01,0.18607e+01,0.19356e+01,0.20296e+01 /) - kbo(:,22, 2) = (/ & - & 0.17736e+01,0.18133e+01,0.18732e+01,0.19516e+01,0.20492e+01 /) - kbo(:,23, 2) = (/ & - & 0.17796e+01,0.18234e+01,0.18868e+01,0.19689e+01,0.20702e+01 /) - kbo(:,24, 2) = (/ & - & 0.17857e+01,0.18347e+01,0.19018e+01,0.19877e+01,0.20929e+01 /) - kbo(:,25, 2) = (/ & - & 0.17946e+01,0.18475e+01,0.19185e+01,0.20085e+01,0.21178e+01 /) - kbo(:,26, 2) = (/ & - & 0.18053e+01,0.18623e+01,0.19377e+01,0.20322e+01,0.21460e+01 /) - kbo(:,27, 2) = (/ & - & 0.18172e+01,0.18785e+01,0.19583e+01,0.20574e+01,0.21757e+01 /) - kbo(:,28, 2) = (/ & - & 0.18303e+01,0.18959e+01,0.19802e+01,0.20839e+01,0.22069e+01 /) - kbo(:,29, 2) = (/ & - & 0.18448e+01,0.19150e+01,0.20042e+01,0.21126e+01,0.22404e+01 /) - kbo(:,30, 2) = (/ & - & 0.18606e+01,0.19355e+01,0.20295e+01,0.21428e+01,0.22754e+01 /) - kbo(:,31, 2) = (/ & - & 0.18780e+01,0.19577e+01,0.20566e+01,0.21749e+01,0.23125e+01 /) - kbo(:,32, 2) = (/ & - & 0.18969e+01,0.19816e+01,0.20855e+01,0.22088e+01,0.23514e+01 /) - kbo(:,33, 2) = (/ & - & 0.19172e+01,0.20069e+01,0.21160e+01,0.22443e+01,0.23920e+01 /) - kbo(:,34, 2) = (/ & - & 0.19359e+01,0.20300e+01,0.21434e+01,0.22762e+01,0.24282e+01 /) - kbo(:,35, 2) = (/ & - & 0.19471e+01,0.20437e+01,0.21597e+01,0.22949e+01,0.24495e+01 /) - kbo(:,36, 2) = (/ & - & 0.19490e+01,0.20460e+01,0.21624e+01,0.22980e+01,0.24530e+01 /) - kbo(:,37, 2) = (/ & - & 0.19377e+01,0.20322e+01,0.21461e+01,0.22792e+01,0.24317e+01 /) - kbo(:,38, 2) = (/ & - & 0.19261e+01,0.20179e+01,0.21291e+01,0.22595e+01,0.24093e+01 /) - kbo(:,39, 2) = (/ & - & 0.19149e+01,0.20040e+01,0.21125e+01,0.22402e+01,0.23873e+01 /) - kbo(:,40, 2) = (/ & - & 0.18963e+01,0.19807e+01,0.20845e+01,0.22076e+01,0.23501e+01 /) - kbo(:,41, 2) = (/ & - & 0.18778e+01,0.19574e+01,0.20563e+01,0.21745e+01,0.23120e+01 /) - kbo(:,42, 2) = (/ & - & 0.18604e+01,0.19352e+01,0.20292e+01,0.21425e+01,0.22750e+01 /) - kbo(:,43, 2) = (/ & - & 0.18409e+01,0.19099e+01,0.19978e+01,0.21050e+01,0.22315e+01 /) - kbo(:,44, 2) = (/ & - & 0.18217e+01,0.18845e+01,0.19660e+01,0.20667e+01,0.21867e+01 /) - kbo(:,45, 2) = (/ & - & 0.18046e+01,0.18613e+01,0.19364e+01,0.20306e+01,0.21441e+01 /) - kbo(:,46, 2) = (/ & - & 0.17886e+01,0.18389e+01,0.19072e+01,0.19945e+01,0.21011e+01 /) - kbo(:,47, 2) = (/ & - & 0.17755e+01,0.18165e+01,0.18775e+01,0.19571e+01,0.20559e+01 /) - kbo(:,48, 2) = (/ & - & 0.17644e+01,0.17970e+01,0.18508e+01,0.19228e+01,0.20139e+01 /) - kbo(:,49, 2) = (/ & - & 0.17563e+01,0.17816e+01,0.18271e+01,0.18916e+01,0.19749e+01 /) - kbo(:,50, 2) = (/ & - & 0.17517e+01,0.17702e+01,0.18074e+01,0.18651e+01,0.19413e+01 /) - kbo(:,51, 2) = (/ & - & 0.17504e+01,0.17611e+01,0.17908e+01,0.18420e+01,0.19113e+01 /) - kbo(:,52, 2) = (/ & - & 0.17523e+01,0.17547e+01,0.17783e+01,0.18212e+01,0.18839e+01 /) - kbo(:,53, 2) = (/ & - & 0.17566e+01,0.17510e+01,0.17675e+01,0.18028e+01,0.18589e+01 /) - kbo(:,54, 2) = (/ & - & 0.17623e+01,0.17507e+01,0.17598e+01,0.17881e+01,0.18381e+01 /) - kbo(:,55, 2) = (/ & - & 0.17691e+01,0.17524e+01,0.17544e+01,0.17777e+01,0.18201e+01 /) - kbo(:,56, 2) = (/ & - & 0.17776e+01,0.17562e+01,0.17512e+01,0.17682e+01,0.18040e+01 /) - kbo(:,57, 2) = (/ & - & 0.17881e+01,0.17616e+01,0.17505e+01,0.17606e+01,0.17897e+01 /) - kbo(:,58, 2) = (/ & - & 0.17996e+01,0.17678e+01,0.17520e+01,0.17552e+01,0.17794e+01 /) - kbo(:,59, 2) = (/ & - & 0.18045e+01,0.17707e+01,0.17530e+01,0.17536e+01,0.17756e+01 /) - kbo(:,13, 3) = (/ & - & 0.10945e+02,0.11052e+02,0.11222e+02,0.11452e+02,0.11744e+02 /) - kbo(:,14, 3) = (/ & - & 0.10952e+02,0.11065e+02,0.11240e+02,0.11476e+02,0.11774e+02 /) - kbo(:,15, 3) = (/ & - & 0.10961e+02,0.11080e+02,0.11261e+02,0.11503e+02,0.11807e+02 /) - kbo(:,16, 3) = (/ & - & 0.10971e+02,0.11097e+02,0.11284e+02,0.11533e+02,0.11844e+02 /) - kbo(:,17, 3) = (/ & - & 0.10981e+02,0.11115e+02,0.11307e+02,0.11562e+02,0.11879e+02 /) - kbo(:,18, 3) = (/ & - & 0.10992e+02,0.11132e+02,0.11331e+02,0.11592e+02,0.11915e+02 /) - kbo(:,19, 3) = (/ & - & 0.11003e+02,0.11149e+02,0.11354e+02,0.11622e+02,0.11951e+02 /) - kbo(:,20, 3) = (/ & - & 0.11017e+02,0.11170e+02,0.11382e+02,0.11657e+02,0.11994e+02 /) - kbo(:,21, 3) = (/ & - & 0.11031e+02,0.11192e+02,0.11412e+02,0.11694e+02,0.12038e+02 /) - kbo(:,22, 3) = (/ & - & 0.11056e+02,0.11228e+02,0.11460e+02,0.11754e+02,0.12109e+02 /) - kbo(:,23, 3) = (/ & - & 0.11085e+02,0.11267e+02,0.11511e+02,0.11817e+02,0.12184e+02 /) - kbo(:,24, 3) = (/ & - & 0.11118e+02,0.11312e+02,0.11568e+02,0.11886e+02,0.12266e+02 /) - kbo(:,25, 3) = (/ & - & 0.11154e+02,0.11361e+02,0.11630e+02,0.11962e+02,0.12354e+02 /) - kbo(:,26, 3) = (/ & - & 0.11196e+02,0.11418e+02,0.11702e+02,0.12048e+02,0.12455e+02 /) - kbo(:,27, 3) = (/ & - & 0.11243e+02,0.11480e+02,0.11778e+02,0.12138e+02,0.12560e+02 /) - kbo(:,28, 3) = (/ & - & 0.11294e+02,0.11545e+02,0.11859e+02,0.12234e+02,0.12670e+02 /) - kbo(:,29, 3) = (/ & - & 0.11351e+02,0.11617e+02,0.11946e+02,0.12336e+02,0.12788e+02 /) - kbo(:,30, 3) = (/ & - & 0.11411e+02,0.11694e+02,0.12038e+02,0.12443e+02,0.12910e+02 /) - kbo(:,31, 3) = (/ & - & 0.11478e+02,0.11776e+02,0.12136e+02,0.12557e+02,0.13040e+02 /) - kbo(:,32, 3) = (/ & - & 0.11549e+02,0.11864e+02,0.12239e+02,0.12677e+02,0.13175e+02 /) - kbo(:,33, 3) = (/ & - & 0.11626e+02,0.11956e+02,0.12348e+02,0.12801e+02,0.13316e+02 /) - kbo(:,34, 3) = (/ & - & 0.11695e+02,0.12040e+02,0.12446e+02,0.12913e+02,0.13442e+02 /) - kbo(:,35, 3) = (/ & - & 0.11737e+02,0.12089e+02,0.12503e+02,0.12979e+02,0.13515e+02 /) - kbo(:,36, 3) = (/ & - & 0.11744e+02,0.12098e+02,0.12513e+02,0.12989e+02,0.13528e+02 /) - kbo(:,37, 3) = (/ & - & 0.11702e+02,0.12048e+02,0.12455e+02,0.12924e+02,0.13454e+02 /) - kbo(:,38, 3) = (/ & - & 0.11659e+02,0.11996e+02,0.12395e+02,0.12855e+02,0.13376e+02 /) - kbo(:,39, 3) = (/ & - & 0.11617e+02,0.11946e+02,0.12336e+02,0.12787e+02,0.13300e+02 /) - kbo(:,40, 3) = (/ & - & 0.11547e+02,0.11861e+02,0.12236e+02,0.12673e+02,0.13171e+02 /) - kbo(:,41, 3) = (/ & - & 0.11477e+02,0.11775e+02,0.12134e+02,0.12555e+02,0.13038e+02 /) - kbo(:,42, 3) = (/ & - & 0.11411e+02,0.11693e+02,0.12037e+02,0.12442e+02,0.12909e+02 /) - kbo(:,43, 3) = (/ & - & 0.11335e+02,0.11598e+02,0.11923e+02,0.12309e+02,0.12757e+02 /) - kbo(:,44, 3) = (/ & - & 0.11261e+02,0.11503e+02,0.11807e+02,0.12172e+02,0.12599e+02 /) - kbo(:,45, 3) = (/ & - & 0.11193e+02,0.11414e+02,0.11697e+02,0.12042e+02,0.12448e+02 /) - kbo(:,46, 3) = (/ & - & 0.11129e+02,0.11328e+02,0.11588e+02,0.11911e+02,0.12295e+02 /) - kbo(:,47, 3) = (/ & - & 0.11065e+02,0.11240e+02,0.11476e+02,0.11774e+02,0.12133e+02 /) - kbo(:,48, 3) = (/ & - & 0.11012e+02,0.11163e+02,0.11374e+02,0.11647e+02,0.11981e+02 /) - kbo(:,49, 3) = (/ & - & 0.10969e+02,0.11095e+02,0.11282e+02,0.11530e+02,0.11839e+02 /) - kbo(:,50, 3) = (/ & - & 0.10938e+02,0.11040e+02,0.11204e+02,0.11429e+02,0.11715e+02 /) - kbo(:,51, 3) = (/ & - & 0.10916e+02,0.10996e+02,0.11138e+02,0.11340e+02,0.11604e+02 /) - kbo(:,52, 3) = (/ & - & 0.10900e+02,0.10960e+02,0.11079e+02,0.11259e+02,0.11500e+02 /) - kbo(:,53, 3) = (/ & - & 0.10894e+02,0.10932e+02,0.11028e+02,0.11186e+02,0.11405e+02 /) - kbo(:,54, 3) = (/ & - & 0.10895e+02,0.10912e+02,0.10989e+02,0.11127e+02,0.11325e+02 /) - kbo(:,55, 3) = (/ & - & 0.10903e+02,0.10900e+02,0.10958e+02,0.11075e+02,0.11255e+02 /) - kbo(:,56, 3) = (/ & - & 0.10921e+02,0.10894e+02,0.10933e+02,0.11031e+02,0.11191e+02 /) - kbo(:,57, 3) = (/ & - & 0.10944e+02,0.10894e+02,0.10914e+02,0.10993e+02,0.11134e+02 /) - kbo(:,58, 3) = (/ & - & 0.10972e+02,0.10901e+02,0.10902e+02,0.10963e+02,0.11084e+02 /) - kbo(:,59, 3) = (/ & - & 0.10984e+02,0.10906e+02,0.10898e+02,0.10952e+02,0.11066e+02 /) - kbo(:,13, 4) = (/ & - & 0.51563e+02,0.51946e+02,0.52464e+02,0.53116e+02,0.53902e+02 /) - kbo(:,14, 4) = (/ & - & 0.51593e+02,0.51987e+02,0.52517e+02,0.53182e+02,0.53980e+02 /) - kbo(:,15, 4) = (/ & - & 0.51626e+02,0.52035e+02,0.52579e+02,0.53256e+02,0.54069e+02 /) - kbo(:,16, 4) = (/ & - & 0.51664e+02,0.52087e+02,0.52644e+02,0.53337e+02,0.54163e+02 /) - kbo(:,17, 4) = (/ & - & 0.51701e+02,0.52138e+02,0.52710e+02,0.53416e+02,0.54257e+02 /) - kbo(:,18, 4) = (/ & - & 0.51740e+02,0.52191e+02,0.52776e+02,0.53496e+02,0.54351e+02 /) - kbo(:,19, 4) = (/ & - & 0.51779e+02,0.52244e+02,0.52843e+02,0.53576e+02,0.54444e+02 /) - kbo(:,20, 4) = (/ & - & 0.51827e+02,0.52307e+02,0.52922e+02,0.53671e+02,0.54555e+02 /) - kbo(:,21, 4) = (/ & - & 0.51877e+02,0.52373e+02,0.53004e+02,0.53770e+02,0.54669e+02 /) - kbo(:,22, 4) = (/ & - & 0.51959e+02,0.52481e+02,0.53136e+02,0.53927e+02,0.54851e+02 /) - kbo(:,23, 4) = (/ & - & 0.52049e+02,0.52596e+02,0.53278e+02,0.54094e+02,0.55044e+02 /) - kbo(:,24, 4) = (/ & - & 0.52148e+02,0.52723e+02,0.53431e+02,0.54274e+02,0.55252e+02 /) - kbo(:,25, 4) = (/ & - & 0.52259e+02,0.52862e+02,0.53599e+02,0.54471e+02,0.55477e+02 /) - kbo(:,26, 4) = (/ & - & 0.52387e+02,0.53022e+02,0.53790e+02,0.54693e+02,0.55730e+02 /) - kbo(:,27, 4) = (/ & - & 0.52525e+02,0.53191e+02,0.53992e+02,0.54926e+02,0.55995e+02 /) - kbo(:,28, 4) = (/ & - & 0.52672e+02,0.53371e+02,0.54203e+02,0.55170e+02,0.56271e+02 /) - kbo(:,29, 4) = (/ & - & 0.52833e+02,0.53565e+02,0.54430e+02,0.55430e+02,0.56565e+02 /) - kbo(:,30, 4) = (/ & - & 0.53003e+02,0.53768e+02,0.54668e+02,0.55702e+02,0.56870e+02 /) - kbo(:,31, 4) = (/ & - & 0.53186e+02,0.53986e+02,0.54920e+02,0.55988e+02,0.57190e+02 /) - kbo(:,32, 4) = (/ & - & 0.53381e+02,0.54216e+02,0.55184e+02,0.56287e+02,0.57525e+02 /) - kbo(:,33, 4) = (/ & - & 0.53587e+02,0.54457e+02,0.55460e+02,0.56599e+02,0.57871e+02 /) - kbo(:,34, 4) = (/ & - & 0.53773e+02,0.54673e+02,0.55707e+02,0.56876e+02,0.58179e+02 /) - kbo(:,35, 4) = (/ & - & 0.53883e+02,0.54800e+02,0.55852e+02,0.57039e+02,0.58359e+02 /) - kbo(:,36, 4) = (/ & - & 0.53901e+02,0.54822e+02,0.55876e+02,0.57066e+02,0.58389e+02 /) - kbo(:,37, 4) = (/ & - & 0.53791e+02,0.54694e+02,0.55731e+02,0.56903e+02,0.58208e+02 /) - kbo(:,38, 4) = (/ & - & 0.53676e+02,0.54560e+02,0.55578e+02,0.56731e+02,0.58018e+02 /) - kbo(:,39, 4) = (/ & - & 0.53563e+02,0.54429e+02,0.55429e+02,0.56563e+02,0.57832e+02 /) - kbo(:,40, 4) = (/ & - & 0.53375e+02,0.54208e+02,0.55175e+02,0.56277e+02,0.57513e+02 /) - kbo(:,41, 4) = (/ & - & 0.53184e+02,0.53983e+02,0.54916e+02,0.55984e+02,0.57186e+02 /) - kbo(:,42, 4) = (/ & - & 0.53001e+02,0.53766e+02,0.54665e+02,0.55699e+02,0.56866e+02 /) - kbo(:,43, 4) = (/ & - & 0.52790e+02,0.53513e+02,0.54370e+02,0.55362e+02,0.56488e+02 /) - kbo(:,44, 4) = (/ & - & 0.52577e+02,0.53254e+02,0.54066e+02,0.55012e+02,0.56093e+02 /) - kbo(:,45, 4) = (/ & - & 0.52379e+02,0.53011e+02,0.53777e+02,0.54678e+02,0.55713e+02 /) - kbo(:,46, 4) = (/ & - & 0.52184e+02,0.52768e+02,0.53486e+02,0.54339e+02,0.55326e+02 /) - kbo(:,47, 4) = (/ & - & 0.51987e+02,0.52517e+02,0.53182e+02,0.53980e+02,0.54913e+02 /) - kbo(:,48, 4) = (/ & - & 0.51812e+02,0.52288e+02,0.52898e+02,0.53643e+02,0.54522e+02 /) - kbo(:,49, 4) = (/ & - & 0.51659e+02,0.52081e+02,0.52637e+02,0.53327e+02,0.54152e+02 /) - kbo(:,50, 4) = (/ & - & 0.51535e+02,0.51906e+02,0.52412e+02,0.53052e+02,0.53826e+02 /) - kbo(:,51, 4) = (/ & - & 0.51433e+02,0.51755e+02,0.52211e+02,0.52802e+02,0.53527e+02 /) - kbo(:,52, 4) = (/ & - & 0.51349e+02,0.51622e+02,0.52029e+02,0.52571e+02,0.53247e+02 /) - kbo(:,53, 4) = (/ & - & 0.51285e+02,0.51507e+02,0.51865e+02,0.52358e+02,0.52985e+02 /) - kbo(:,54, 4) = (/ & - & 0.51240e+02,0.51417e+02,0.51730e+02,0.52178e+02,0.52760e+02 /) - kbo(:,55, 4) = (/ & - & 0.51211e+02,0.51346e+02,0.51615e+02,0.52020e+02,0.52559e+02 /) - kbo(:,56, 4) = (/ & - & 0.51194e+02,0.51288e+02,0.51514e+02,0.51875e+02,0.52371e+02 /) - kbo(:,57, 4) = (/ & - & 0.51190e+02,0.51245e+02,0.51426e+02,0.51746e+02,0.52198e+02 /) - kbo(:,58, 4) = (/ & - & 0.51200e+02,0.51216e+02,0.51357e+02,0.51635e+02,0.52046e+02 /) - kbo(:,59, 4) = (/ & - & 0.51207e+02,0.51207e+02,0.51333e+02,0.51594e+02,0.51989e+02 /) - kbo(:,13, 5) = (/ & - & 0.17051e+03,0.17168e+03,0.17297e+03,0.17437e+03,0.17590e+03 /) - kbo(:,14, 5) = (/ & - & 0.17061e+03,0.17179e+03,0.17309e+03,0.17451e+03,0.17604e+03 /) - kbo(:,15, 5) = (/ & - & 0.17073e+03,0.17192e+03,0.17323e+03,0.17466e+03,0.17621e+03 /) - kbo(:,16, 5) = (/ & - & 0.17085e+03,0.17205e+03,0.17338e+03,0.17482e+03,0.17638e+03 /) - kbo(:,17, 5) = (/ & - & 0.17097e+03,0.17218e+03,0.17352e+03,0.17497e+03,0.17655e+03 /) - kbo(:,18, 5) = (/ & - & 0.17109e+03,0.17232e+03,0.17366e+03,0.17513e+03,0.17671e+03 /) - kbo(:,19, 5) = (/ & - & 0.17121e+03,0.17245e+03,0.17381e+03,0.17528e+03,0.17688e+03 /) - kbo(:,20, 5) = (/ & - & 0.17134e+03,0.17260e+03,0.17397e+03,0.17547e+03,0.17708e+03 /) - kbo(:,21, 5) = (/ & - & 0.17149e+03,0.17276e+03,0.17415e+03,0.17565e+03,0.17728e+03 /) - kbo(:,22, 5) = (/ & - & 0.17172e+03,0.17301e+03,0.17442e+03,0.17594e+03,0.17759e+03 /) - kbo(:,23, 5) = (/ & - & 0.17195e+03,0.17327e+03,0.17470e+03,0.17625e+03,0.17792e+03 /) - kbo(:,24, 5) = (/ & - & 0.17221e+03,0.17355e+03,0.17500e+03,0.17658e+03,0.17827e+03 /) - kbo(:,25, 5) = (/ & - & 0.17248e+03,0.17385e+03,0.17533e+03,0.17693e+03,0.17865e+03 /) - kbo(:,26, 5) = (/ & - & 0.17279e+03,0.17418e+03,0.17569e+03,0.17732e+03,0.17906e+03 /) - kbo(:,27, 5) = (/ & - & 0.17311e+03,0.17453e+03,0.17606e+03,0.17772e+03,0.17949e+03 /) - kbo(:,28, 5) = (/ & - & 0.17344e+03,0.17488e+03,0.17645e+03,0.17813e+03,0.17994e+03 /) - kbo(:,29, 5) = (/ & - & 0.17379e+03,0.17526e+03,0.17686e+03,0.17857e+03,0.18040e+03 /) - kbo(:,30, 5) = (/ & - & 0.17414e+03,0.17565e+03,0.17727e+03,0.17902e+03,0.18088e+03 /) - kbo(:,31, 5) = (/ & - & 0.17452e+03,0.17605e+03,0.17771e+03,0.17948e+03,0.18137e+03 /) - kbo(:,32, 5) = (/ & - & 0.17491e+03,0.17647e+03,0.17816e+03,0.17996e+03,0.18188e+03 /) - kbo(:,33, 5) = (/ & - & 0.17531e+03,0.17690e+03,0.17862e+03,0.18045e+03,0.18241e+03 /) - kbo(:,34, 5) = (/ & - & 0.17566e+03,0.17728e+03,0.17903e+03,0.18089e+03,0.18287e+03 /) - kbo(:,35, 5) = (/ & - & 0.17586e+03,0.17750e+03,0.17926e+03,0.18114e+03,0.18313e+03 /) - kbo(:,36, 5) = (/ & - & 0.17590e+03,0.17754e+03,0.17930e+03,0.18118e+03,0.18318e+03 /) - kbo(:,37, 5) = (/ & - & 0.17569e+03,0.17732e+03,0.17906e+03,0.18093e+03,0.18291e+03 /) - kbo(:,38, 5) = (/ & - & 0.17547e+03,0.17708e+03,0.17881e+03,0.18066e+03,0.18263e+03 /) - kbo(:,39, 5) = (/ & - & 0.17526e+03,0.17685e+03,0.17857e+03,0.18040e+03,0.18235e+03 /) - kbo(:,40, 5) = (/ & - & 0.17489e+03,0.17646e+03,0.17814e+03,0.17995e+03,0.18187e+03 /) - kbo(:,41, 5) = (/ & - & 0.17451e+03,0.17605e+03,0.17770e+03,0.17948e+03,0.18137e+03 /) - kbo(:,42, 5) = (/ & - & 0.17414e+03,0.17565e+03,0.17727e+03,0.17901e+03,0.18087e+03 /) - kbo(:,43, 5) = (/ & - & 0.17369e+03,0.17516e+03,0.17675e+03,0.17846e+03,0.18028e+03 /) - kbo(:,44, 5) = (/ & - & 0.17323e+03,0.17465e+03,0.17620e+03,0.17787e+03,0.17965e+03 /) - kbo(:,45, 5) = (/ & - & 0.17277e+03,0.17416e+03,0.17567e+03,0.17729e+03,0.17904e+03 /) - kbo(:,46, 5) = (/ & - & 0.17230e+03,0.17365e+03,0.17511e+03,0.17669e+03,0.17840e+03 /) - kbo(:,47, 5) = (/ & - & 0.17179e+03,0.17309e+03,0.17451e+03,0.17604e+03,0.17770e+03 /) - kbo(:,48, 5) = (/ & - & 0.17130e+03,0.17255e+03,0.17392e+03,0.17541e+03,0.17702e+03 /) - kbo(:,49, 5) = (/ & - & 0.17083e+03,0.17204e+03,0.17336e+03,0.17480e+03,0.17636e+03 /) - kbo(:,50, 5) = (/ & - & 0.17041e+03,0.17157e+03,0.17285e+03,0.17424e+03,0.17576e+03 /) - kbo(:,51, 5) = (/ & - & 0.17002e+03,0.17113e+03,0.17237e+03,0.17372e+03,0.17519e+03 /) - kbo(:,52, 5) = (/ & - & 0.16964e+03,0.17071e+03,0.17190e+03,0.17321e+03,0.17464e+03 /) - kbo(:,53, 5) = (/ & - & 0.16927e+03,0.17031e+03,0.17145e+03,0.17272e+03,0.17411e+03 /) - kbo(:,54, 5) = (/ & - & 0.16896e+03,0.16995e+03,0.17106e+03,0.17228e+03,0.17363e+03 /) - kbo(:,55, 5) = (/ & - & 0.16866e+03,0.16962e+03,0.17069e+03,0.17188e+03,0.17318e+03 /) - kbo(:,56, 5) = (/ & - & 0.16839e+03,0.16930e+03,0.17033e+03,0.17148e+03,0.17275e+03 /) - kbo(:,57, 5) = (/ & - & 0.16812e+03,0.16899e+03,0.16999e+03,0.17110e+03,0.17233e+03 /) - kbo(:,58, 5) = (/ & - & 0.16788e+03,0.16871e+03,0.16968e+03,0.17075e+03,0.17195e+03 /) - kbo(:,59, 5) = (/ & - & 0.16779e+03,0.16861e+03,0.16955e+03,0.17062e+03,0.17180e+03 /) - kbo(:,13, 6) = (/ & - & 0.38122e+03,0.38406e+03,0.38668e+03,0.38908e+03,0.39125e+03 /) - kbo(:,14, 6) = (/ & - & 0.38148e+03,0.38431e+03,0.38691e+03,0.38929e+03,0.39144e+03 /) - kbo(:,15, 6) = (/ & - & 0.38178e+03,0.38458e+03,0.38716e+03,0.38951e+03,0.39164e+03 /) - kbo(:,16, 6) = (/ & - & 0.38209e+03,0.38487e+03,0.38742e+03,0.38975e+03,0.39186e+03 /) - kbo(:,17, 6) = (/ & - & 0.38239e+03,0.38514e+03,0.38767e+03,0.38998e+03,0.39206e+03 /) - kbo(:,18, 6) = (/ & - & 0.38268e+03,0.38541e+03,0.38792e+03,0.39020e+03,0.39226e+03 /) - kbo(:,19, 6) = (/ & - & 0.38297e+03,0.38568e+03,0.38816e+03,0.39042e+03,0.39246e+03 /) - kbo(:,20, 6) = (/ & - & 0.38330e+03,0.38598e+03,0.38844e+03,0.39067e+03,0.39268e+03 /) - kbo(:,21, 6) = (/ & - & 0.38363e+03,0.38629e+03,0.38872e+03,0.39092e+03,0.39291e+03 /) - kbo(:,22, 6) = (/ & - & 0.38414e+03,0.38675e+03,0.38914e+03,0.39131e+03,0.39325e+03 /) - kbo(:,23, 6) = (/ & - & 0.38466e+03,0.38723e+03,0.38958e+03,0.39170e+03,0.39360e+03 /) - kbo(:,24, 6) = (/ & - & 0.38520e+03,0.38772e+03,0.39002e+03,0.39210e+03,0.39395e+03 /) - kbo(:,25, 6) = (/ & - & 0.38575e+03,0.38823e+03,0.39048e+03,0.39251e+03,0.39432e+03 /) - kbo(:,26, 6) = (/ & - & 0.38635e+03,0.38877e+03,0.39098e+03,0.39295e+03,0.39470e+03 /) - kbo(:,27, 6) = (/ & - & 0.38694e+03,0.38932e+03,0.39146e+03,0.39339e+03,0.39509e+03 /) - kbo(:,28, 6) = (/ & - & 0.38753e+03,0.38985e+03,0.39194e+03,0.39381e+03,0.39546e+03 /) - kbo(:,29, 6) = (/ & - & 0.38813e+03,0.39039e+03,0.39243e+03,0.39424e+03,0.39583e+03 /) - kbo(:,30, 6) = (/ & - & 0.38871e+03,0.39092e+03,0.39290e+03,0.39466e+03,0.39620e+03 /) - kbo(:,31, 6) = (/ & - & 0.38930e+03,0.39145e+03,0.39338e+03,0.39508e+03,0.39655e+03 /) - kbo(:,32, 6) = (/ & - & 0.38988e+03,0.39197e+03,0.39384e+03,0.39548e+03,0.39690e+03 /) - kbo(:,33, 6) = (/ & - & 0.39045e+03,0.39248e+03,0.39429e+03,0.39587e+03,0.39723e+03 /) - kbo(:,34, 6) = (/ & - & 0.39093e+03,0.39291e+03,0.39467e+03,0.39620e+03,0.39751e+03 /) - kbo(:,35, 6) = (/ & - & 0.39120e+03,0.39316e+03,0.39488e+03,0.39639e+03,0.39766e+03 /) - kbo(:,36, 6) = (/ & - & 0.39125e+03,0.39320e+03,0.39492e+03,0.39642e+03,0.39769e+03 /) - kbo(:,37, 6) = (/ & - & 0.39098e+03,0.39295e+03,0.39471e+03,0.39623e+03,0.39754e+03 /) - kbo(:,38, 6) = (/ & - & 0.39068e+03,0.39269e+03,0.39447e+03,0.39603e+03,0.39737e+03 /) - kbo(:,39, 6) = (/ & - & 0.39039e+03,0.39243e+03,0.39424e+03,0.39583e+03,0.39720e+03 /) - kbo(:,40, 6) = (/ & - & 0.38986e+03,0.39196e+03,0.39382e+03,0.39547e+03,0.39689e+03 /) - kbo(:,41, 6) = (/ & - & 0.38929e+03,0.39144e+03,0.39337e+03,0.39507e+03,0.39655e+03 /) - kbo(:,42, 6) = (/ & - & 0.38871e+03,0.39092e+03,0.39290e+03,0.39466e+03,0.39619e+03 /) - kbo(:,43, 6) = (/ & - & 0.38797e+03,0.39025e+03,0.39230e+03,0.39413e+03,0.39574e+03 /) - kbo(:,44, 6) = (/ & - & 0.38715e+03,0.38951e+03,0.39164e+03,0.39354e+03,0.39522e+03 /) - kbo(:,45, 6) = (/ & - & 0.38631e+03,0.38874e+03,0.39094e+03,0.39292e+03,0.39468e+03 /) - kbo(:,46, 6) = (/ & - & 0.38538e+03,0.38789e+03,0.39018e+03,0.39224e+03,0.39407e+03 /) - kbo(:,47, 6) = (/ & - & 0.38431e+03,0.38691e+03,0.38929e+03,0.39144e+03,0.39336e+03 /) - kbo(:,48, 6) = (/ & - & 0.38320e+03,0.38589e+03,0.38836e+03,0.39060e+03,0.39262e+03 /) - kbo(:,49, 6) = (/ & - & 0.38206e+03,0.38484e+03,0.38739e+03,0.38972e+03,0.39183e+03 /) - kbo(:,50, 6) = (/ & - & 0.38095e+03,0.38382e+03,0.38646e+03,0.38887e+03,0.39106e+03 /) - kbo(:,51, 6) = (/ & - & 0.37985e+03,0.38279e+03,0.38552e+03,0.38802e+03,0.39029e+03 /) - kbo(:,52, 6) = (/ & - & 0.37873e+03,0.38175e+03,0.38455e+03,0.38713e+03,0.38949e+03 /) - kbo(:,53, 6) = (/ & - & 0.37762e+03,0.38067e+03,0.38355e+03,0.38621e+03,0.38865e+03 /) - kbo(:,54, 6) = (/ & - & 0.37661e+03,0.37965e+03,0.38261e+03,0.38535e+03,0.38786e+03 /) - kbo(:,55, 6) = (/ & - & 0.37559e+03,0.37867e+03,0.38169e+03,0.38450e+03,0.38708e+03 /) - kbo(:,56, 6) = (/ & - & 0.37459e+03,0.37768e+03,0.38074e+03,0.38362e+03,0.38628e+03 /) - kbo(:,57, 6) = (/ & - & 0.37353e+03,0.37673e+03,0.37977e+03,0.38272e+03,0.38545e+03 /) - kbo(:,58, 6) = (/ & - & 0.37251e+03,0.37577e+03,0.37885e+03,0.38185e+03,0.38465e+03 /) - kbo(:,59, 6) = (/ & - & 0.37212e+03,0.37539e+03,0.37847e+03,0.38150e+03,0.38432e+03 /) - kbo(:,13, 7) = (/ & - & 0.62583e+03,0.62623e+03,0.62691e+03,0.62787e+03,0.62909e+03 /) - kbo(:,14, 7) = (/ & - & 0.62586e+03,0.62628e+03,0.62699e+03,0.62797e+03,0.62921e+03 /) - kbo(:,15, 7) = (/ & - & 0.62589e+03,0.62634e+03,0.62708e+03,0.62809e+03,0.62935e+03 /) - kbo(:,16, 7) = (/ & - & 0.62593e+03,0.62640e+03,0.62717e+03,0.62821e+03,0.62950e+03 /) - kbo(:,17, 7) = (/ & - & 0.62597e+03,0.62647e+03,0.62727e+03,0.62833e+03,0.62965e+03 /) - kbo(:,18, 7) = (/ & - & 0.62601e+03,0.62654e+03,0.62737e+03,0.62846e+03,0.62980e+03 /) - kbo(:,19, 7) = (/ & - & 0.62605e+03,0.62661e+03,0.62746e+03,0.62858e+03,0.62995e+03 /) - kbo(:,20, 7) = (/ & - & 0.62610e+03,0.62670e+03,0.62758e+03,0.62873e+03,0.63012e+03 /) - kbo(:,21, 7) = (/ & - & 0.62615e+03,0.62679e+03,0.62770e+03,0.62888e+03,0.63031e+03 /) - kbo(:,22, 7) = (/ & - & 0.62625e+03,0.62694e+03,0.62790e+03,0.62913e+03,0.63060e+03 /) - kbo(:,23, 7) = (/ & - & 0.62636e+03,0.62710e+03,0.62812e+03,0.62939e+03,0.63091e+03 /) - kbo(:,24, 7) = (/ & - & 0.62648e+03,0.62729e+03,0.62835e+03,0.62968e+03,0.63125e+03 /) - kbo(:,25, 7) = (/ & - & 0.62663e+03,0.62749e+03,0.62861e+03,0.62999e+03,0.63162e+03 /) - kbo(:,26, 7) = (/ & - & 0.62681e+03,0.62773e+03,0.62891e+03,0.63035e+03,0.63203e+03 /) - kbo(:,27, 7) = (/ & - & 0.62700e+03,0.62799e+03,0.62923e+03,0.63072e+03,0.63247e+03 /) - kbo(:,28, 7) = (/ & - & 0.62721e+03,0.62826e+03,0.62956e+03,0.63112e+03,0.63292e+03 /) - kbo(:,29, 7) = (/ & - & 0.62745e+03,0.62856e+03,0.62993e+03,0.63154e+03,0.63341e+03 /) - kbo(:,30, 7) = (/ & - & 0.62770e+03,0.62888e+03,0.63031e+03,0.63198e+03,0.63392e+03 /) - kbo(:,31, 7) = (/ & - & 0.62798e+03,0.62922e+03,0.63071e+03,0.63245e+03,0.63446e+03 /) - kbo(:,32, 7) = (/ & - & 0.62828e+03,0.62958e+03,0.63114e+03,0.63295e+03,0.63503e+03 /) - kbo(:,33, 7) = (/ & - & 0.62860e+03,0.62997e+03,0.63159e+03,0.63347e+03,0.63562e+03 /) - kbo(:,34, 7) = (/ & - & 0.62889e+03,0.63031e+03,0.63199e+03,0.63393e+03,0.63614e+03 /) - kbo(:,35, 7) = (/ & - & 0.62906e+03,0.63052e+03,0.63223e+03,0.63421e+03,0.63644e+03 /) - kbo(:,36, 7) = (/ & - & 0.62909e+03,0.63055e+03,0.63227e+03,0.63425e+03,0.63649e+03 /) - kbo(:,37, 7) = (/ & - & 0.62891e+03,0.63035e+03,0.63203e+03,0.63397e+03,0.63619e+03 /) - kbo(:,38, 7) = (/ & - & 0.62873e+03,0.63013e+03,0.63178e+03,0.63369e+03,0.63586e+03 /) - kbo(:,39, 7) = (/ & - & 0.62856e+03,0.62992e+03,0.63154e+03,0.63341e+03,0.63555e+03 /) - kbo(:,40, 7) = (/ & - & 0.62827e+03,0.62957e+03,0.63113e+03,0.63293e+03,0.63501e+03 /) - kbo(:,41, 7) = (/ & - & 0.62798e+03,0.62922e+03,0.63071e+03,0.63245e+03,0.63445e+03 /) - kbo(:,42, 7) = (/ & - & 0.62770e+03,0.62887e+03,0.63030e+03,0.63198e+03,0.63391e+03 /) - kbo(:,43, 7) = (/ & - & 0.62739e+03,0.62848e+03,0.62983e+03,0.63143e+03,0.63328e+03 /) - kbo(:,44, 7) = (/ & - & 0.62708e+03,0.62808e+03,0.62935e+03,0.63086e+03,0.63263e+03 /) - kbo(:,45, 7) = (/ & - & 0.62679e+03,0.62771e+03,0.62889e+03,0.63032e+03,0.63200e+03 /) - kbo(:,46, 7) = (/ & - & 0.62653e+03,0.62735e+03,0.62844e+03,0.62978e+03,0.63137e+03 /) - kbo(:,47, 7) = (/ & - & 0.62629e+03,0.62699e+03,0.62797e+03,0.62921e+03,0.63070e+03 /) - kbo(:,48, 7) = (/ & - & 0.62608e+03,0.62667e+03,0.62755e+03,0.62868e+03,0.63007e+03 /) - kbo(:,49, 7) = (/ & - & 0.62592e+03,0.62640e+03,0.62716e+03,0.62820e+03,0.62948e+03 /) - kbo(:,50, 7) = (/ & - & 0.62580e+03,0.62619e+03,0.62684e+03,0.62778e+03,0.62897e+03 /) - kbo(:,51, 7) = (/ & - & 0.62580e+03,0.62602e+03,0.62657e+03,0.62741e+03,0.62850e+03 /) - kbo(:,52, 7) = (/ & - & 0.62578e+03,0.62589e+03,0.62633e+03,0.62707e+03,0.62807e+03 /) - kbo(:,53, 7) = (/ & - & 0.62574e+03,0.62578e+03,0.62614e+03,0.62677e+03,0.62768e+03 /) - kbo(:,54, 7) = (/ & - & 0.62576e+03,0.62580e+03,0.62600e+03,0.62652e+03,0.62734e+03 /) - kbo(:,55, 7) = (/ & - & 0.62585e+03,0.62578e+03,0.62588e+03,0.62632e+03,0.62705e+03 /) - kbo(:,56, 7) = (/ & - & 0.62587e+03,0.62576e+03,0.62579e+03,0.62615e+03,0.62678e+03 /) - kbo(:,57, 7) = (/ & - & 0.62591e+03,0.62574e+03,0.62580e+03,0.62601e+03,0.62655e+03 /) - kbo(:,58, 7) = (/ & - & 0.62591e+03,0.62583e+03,0.62578e+03,0.62590e+03,0.62636e+03 /) - kbo(:,59, 7) = (/ & - & 0.62590e+03,0.62586e+03,0.62578e+03,0.62586e+03,0.62628e+03 /) - kbo(:,13, 8) = (/ & - & 0.81821e+03,0.81877e+03,0.81935e+03,0.81999e+03,0.82074e+03 /) - kbo(:,14, 8) = (/ & - & 0.81826e+03,0.81882e+03,0.81939e+03,0.82006e+03,0.82081e+03 /) - kbo(:,15, 8) = (/ & - & 0.81831e+03,0.81888e+03,0.81946e+03,0.82012e+03,0.82089e+03 /) - kbo(:,16, 8) = (/ & - & 0.81836e+03,0.81895e+03,0.81952e+03,0.82021e+03,0.82098e+03 /) - kbo(:,17, 8) = (/ & - & 0.81842e+03,0.81901e+03,0.81959e+03,0.82028e+03,0.82106e+03 /) - kbo(:,18, 8) = (/ & - & 0.81847e+03,0.81907e+03,0.81965e+03,0.82036e+03,0.82116e+03 /) - kbo(:,19, 8) = (/ & - & 0.81853e+03,0.81913e+03,0.81972e+03,0.82043e+03,0.82123e+03 /) - kbo(:,20, 8) = (/ & - & 0.81860e+03,0.81919e+03,0.81980e+03,0.82052e+03,0.82133e+03 /) - kbo(:,21, 8) = (/ & - & 0.81868e+03,0.81925e+03,0.81988e+03,0.82061e+03,0.82143e+03 /) - kbo(:,22, 8) = (/ & - & 0.81879e+03,0.81936e+03,0.82001e+03,0.82076e+03,0.82160e+03 /) - kbo(:,23, 8) = (/ & - & 0.81889e+03,0.81947e+03,0.82015e+03,0.82091e+03,0.82177e+03 /) - kbo(:,24, 8) = (/ & - & 0.81902e+03,0.81960e+03,0.82030e+03,0.82108e+03,0.82195e+03 /) - kbo(:,25, 8) = (/ & - & 0.81914e+03,0.81974e+03,0.82046e+03,0.82126e+03,0.82214e+03 /) - kbo(:,26, 8) = (/ & - & 0.81927e+03,0.81990e+03,0.82063e+03,0.82145e+03,0.82236e+03 /) - kbo(:,27, 8) = (/ & - & 0.81941e+03,0.82006e+03,0.82082e+03,0.82166e+03,0.82258e+03 /) - kbo(:,28, 8) = (/ & - & 0.81957e+03,0.82024e+03,0.82101e+03,0.82188e+03,0.82281e+03 /) - kbo(:,29, 8) = (/ & - & 0.81971e+03,0.82042e+03,0.82122e+03,0.82210e+03,0.82305e+03 /) - kbo(:,30, 8) = (/ & - & 0.81988e+03,0.82061e+03,0.82143e+03,0.82233e+03,0.82330e+03 /) - kbo(:,31, 8) = (/ & - & 0.82006e+03,0.82081e+03,0.82166e+03,0.82258e+03,0.82355e+03 /) - kbo(:,32, 8) = (/ & - & 0.82025e+03,0.82103e+03,0.82189e+03,0.82283e+03,0.82380e+03 /) - kbo(:,33, 8) = (/ & - & 0.82044e+03,0.82124e+03,0.82213e+03,0.82308e+03,0.82408e+03 /) - kbo(:,34, 8) = (/ & - & 0.82062e+03,0.82144e+03,0.82234e+03,0.82330e+03,0.82432e+03 /) - kbo(:,35, 8) = (/ & - & 0.82072e+03,0.82155e+03,0.82246e+03,0.82342e+03,0.82446e+03 /) - kbo(:,36, 8) = (/ & - & 0.82074e+03,0.82157e+03,0.82248e+03,0.82345e+03,0.82448e+03 /) - kbo(:,37, 8) = (/ & - & 0.82063e+03,0.82146e+03,0.82236e+03,0.82332e+03,0.82434e+03 /) - kbo(:,38, 8) = (/ & - & 0.82053e+03,0.82134e+03,0.82223e+03,0.82319e+03,0.82419e+03 /) - kbo(:,39, 8) = (/ & - & 0.82042e+03,0.82122e+03,0.82210e+03,0.82305e+03,0.82405e+03 /) - kbo(:,40, 8) = (/ & - & 0.82024e+03,0.82102e+03,0.82188e+03,0.82282e+03,0.82380e+03 /) - kbo(:,41, 8) = (/ & - & 0.82006e+03,0.82081e+03,0.82165e+03,0.82257e+03,0.82354e+03 /) - kbo(:,42, 8) = (/ & - & 0.81988e+03,0.82061e+03,0.82143e+03,0.82233e+03,0.82329e+03 /) - kbo(:,43, 8) = (/ & - & 0.81967e+03,0.82037e+03,0.82117e+03,0.82204e+03,0.82299e+03 /) - kbo(:,44, 8) = (/ & - & 0.81946e+03,0.82013e+03,0.82089e+03,0.82174e+03,0.82267e+03 /) - kbo(:,45, 8) = (/ & - & 0.81926e+03,0.81989e+03,0.82062e+03,0.82144e+03,0.82234e+03 /) - kbo(:,46, 8) = (/ & - & 0.81907e+03,0.81965e+03,0.82034e+03,0.82114e+03,0.82201e+03 /) - kbo(:,47, 8) = (/ & - & 0.81882e+03,0.81939e+03,0.82006e+03,0.82081e+03,0.82165e+03 /) - kbo(:,48, 8) = (/ & - & 0.81858e+03,0.81917e+03,0.81978e+03,0.82050e+03,0.82130e+03 /) - kbo(:,49, 8) = (/ & - & 0.81836e+03,0.81894e+03,0.81953e+03,0.82019e+03,0.82097e+03 /) - kbo(:,50, 8) = (/ & - & 0.81817e+03,0.81871e+03,0.81929e+03,0.81993e+03,0.82067e+03 /) - kbo(:,51, 8) = (/ & - & 0.81790e+03,0.81850e+03,0.81910e+03,0.81967e+03,0.82039e+03 /) - kbo(:,52, 8) = (/ & - & 0.81779e+03,0.81830e+03,0.81888e+03,0.81945e+03,0.82012e+03 /) - kbo(:,53, 8) = (/ & - & 0.81766e+03,0.81812e+03,0.81866e+03,0.81924e+03,0.81986e+03 /) - kbo(:,54, 8) = (/ & - & 0.81744e+03,0.81785e+03,0.81846e+03,0.81906e+03,0.81964e+03 /) - kbo(:,55, 8) = (/ & - & 0.81733e+03,0.81777e+03,0.81829e+03,0.81886e+03,0.81944e+03 /) - kbo(:,56, 8) = (/ & - & 0.81741e+03,0.81767e+03,0.81813e+03,0.81867e+03,0.81925e+03 /) - kbo(:,57, 8) = (/ & - & 0.81785e+03,0.81749e+03,0.81788e+03,0.81848e+03,0.81908e+03 /) - kbo(:,58, 8) = (/ & - & 0.81817e+03,0.81731e+03,0.81779e+03,0.81832e+03,0.81889e+03 /) - kbo(:,59, 8) = (/ & - & 0.81824e+03,0.81736e+03,0.81776e+03,0.81826e+03,0.81883e+03 /) - kbo(:,13, 9) = (/ & - & 0.94133e+03,0.94438e+03,0.94687e+03,0.94883e+03,0.95021e+03 /) - kbo(:,14, 9) = (/ & - & 0.94163e+03,0.94463e+03,0.94708e+03,0.94898e+03,0.95031e+03 /) - kbo(:,15, 9) = (/ & - & 0.94195e+03,0.94490e+03,0.94731e+03,0.94914e+03,0.95042e+03 /) - kbo(:,16, 9) = (/ & - & 0.94229e+03,0.94518e+03,0.94753e+03,0.94930e+03,0.95052e+03 /) - kbo(:,17, 9) = (/ & - & 0.94262e+03,0.94544e+03,0.94774e+03,0.94946e+03,0.95061e+03 /) - kbo(:,18, 9) = (/ & - & 0.94293e+03,0.94570e+03,0.94795e+03,0.94960e+03,0.95069e+03 /) - kbo(:,19, 9) = (/ & - & 0.94323e+03,0.94595e+03,0.94814e+03,0.94974e+03,0.95078e+03 /) - kbo(:,20, 9) = (/ & - & 0.94357e+03,0.94624e+03,0.94835e+03,0.94989e+03,0.95087e+03 /) - kbo(:,21, 9) = (/ & - & 0.94393e+03,0.94654e+03,0.94857e+03,0.95003e+03,0.95096e+03 /) - kbo(:,22, 9) = (/ & - & 0.94445e+03,0.94695e+03,0.94888e+03,0.95025e+03,0.95105e+03 /) - kbo(:,23, 9) = (/ & - & 0.94499e+03,0.94737e+03,0.94919e+03,0.95045e+03,0.95113e+03 /) - kbo(:,24, 9) = (/ & - & 0.94549e+03,0.94778e+03,0.94948e+03,0.95063e+03,0.95120e+03 /) - kbo(:,25, 9) = (/ & - & 0.94602e+03,0.94819e+03,0.94978e+03,0.95082e+03,0.95125e+03 /) - kbo(:,26, 9) = (/ & - & 0.94658e+03,0.94861e+03,0.95006e+03,0.95096e+03,0.95127e+03 /) - kbo(:,27, 9) = (/ & - & 0.94710e+03,0.94900e+03,0.95033e+03,0.95109e+03,0.95126e+03 /) - kbo(:,28, 9) = (/ & - & 0.94759e+03,0.94937e+03,0.95056e+03,0.95118e+03,0.95123e+03 /) - kbo(:,29, 9) = (/ & - & 0.94811e+03,0.94973e+03,0.95077e+03,0.95124e+03,0.95116e+03 /) - kbo(:,30, 9) = (/ & - & 0.94856e+03,0.95003e+03,0.95095e+03,0.95127e+03,0.95105e+03 /) - kbo(:,31, 9) = (/ & - & 0.94901e+03,0.95032e+03,0.95108e+03,0.95127e+03,0.95090e+03 /) - kbo(:,32, 9) = (/ & - & 0.94939e+03,0.95057e+03,0.95118e+03,0.95121e+03,0.95071e+03 /) - kbo(:,33, 9) = (/ & - & 0.94975e+03,0.95079e+03,0.95125e+03,0.95115e+03,0.95050e+03 /) - kbo(:,34, 9) = (/ & - & 0.95004e+03,0.95095e+03,0.95128e+03,0.95105e+03,0.95030e+03 /) - kbo(:,35, 9) = (/ & - & 0.95020e+03,0.95102e+03,0.95127e+03,0.95098e+03,0.95016e+03 /) - kbo(:,36, 9) = (/ & - & 0.95021e+03,0.95103e+03,0.95127e+03,0.95096e+03,0.95023e+03 /) - kbo(:,37, 9) = (/ & - & 0.95006e+03,0.95096e+03,0.95127e+03,0.95104e+03,0.95027e+03 /) - kbo(:,38, 9) = (/ & - & 0.94990e+03,0.95087e+03,0.95126e+03,0.95110e+03,0.95040e+03 /) - kbo(:,39, 9) = (/ & - & 0.94972e+03,0.95077e+03,0.95124e+03,0.95117e+03,0.95053e+03 /) - kbo(:,40, 9) = (/ & - & 0.94939e+03,0.95057e+03,0.95118e+03,0.95123e+03,0.95072e+03 /) - kbo(:,41, 9) = (/ & - & 0.94899e+03,0.95032e+03,0.95108e+03,0.95127e+03,0.95090e+03 /) - kbo(:,42, 9) = (/ & - & 0.94856e+03,0.95004e+03,0.95094e+03,0.95127e+03,0.95105e+03 /) - kbo(:,43, 9) = (/ & - & 0.94799e+03,0.94963e+03,0.95073e+03,0.95123e+03,0.95118e+03 /) - kbo(:,44, 9) = (/ & - & 0.94729e+03,0.94914e+03,0.95041e+03,0.95112e+03,0.95126e+03 /) - kbo(:,45, 9) = (/ & - & 0.94655e+03,0.94858e+03,0.95004e+03,0.95095e+03,0.95127e+03 /) - kbo(:,46, 9) = (/ & - & 0.94568e+03,0.94792e+03,0.94958e+03,0.95070e+03,0.95122e+03 /) - kbo(:,47, 9) = (/ & - & 0.94463e+03,0.94708e+03,0.94898e+03,0.95031e+03,0.95108e+03 /) - kbo(:,48, 9) = (/ & - & 0.94348e+03,0.94616e+03,0.94829e+03,0.94984e+03,0.95084e+03 /) - kbo(:,49, 9) = (/ & - & 0.94226e+03,0.94515e+03,0.94748e+03,0.94928e+03,0.95051e+03 /) - kbo(:,50, 9) = (/ & - & 0.94103e+03,0.94413e+03,0.94669e+03,0.94868e+03,0.95011e+03 /) - kbo(:,51, 9) = (/ & - & 0.93978e+03,0.94307e+03,0.94580e+03,0.94802e+03,0.94965e+03 /) - kbo(:,52, 9) = (/ & - & 0.93828e+03,0.94192e+03,0.94488e+03,0.94728e+03,0.94912e+03 /) - kbo(:,53, 9) = (/ & - & 0.93678e+03,0.94072e+03,0.94388e+03,0.94646e+03,0.94851e+03 /) - kbo(:,54, 9) = (/ & - & 0.93537e+03,0.93955e+03,0.94287e+03,0.94565e+03,0.94789e+03 /) - kbo(:,55, 9) = (/ & - & 0.93380e+03,0.93820e+03,0.94186e+03,0.94483e+03,0.94722e+03 /) - kbo(:,56, 9) = (/ & - & 0.93205e+03,0.93688e+03,0.94080e+03,0.94394e+03,0.94652e+03 /) - kbo(:,57, 9) = (/ & - & 0.92997e+03,0.93554e+03,0.93969e+03,0.94299e+03,0.94574e+03 /) - kbo(:,58, 9) = (/ & - & 0.92808e+03,0.93414e+03,0.93844e+03,0.94204e+03,0.94498e+03 /) - kbo(:,59, 9) = (/ & - & 0.92793e+03,0.93341e+03,0.93792e+03,0.94165e+03,0.94465e+03 /) - kbo(:,13,10) = (/ & - & 0.98036e+03,0.98526e+03,0.98973e+03,0.99279e+03,0.99468e+03 /) - kbo(:,14,10) = (/ & - & 0.98067e+03,0.98568e+03,0.99005e+03,0.99301e+03,0.99477e+03 /) - kbo(:,15,10) = (/ & - & 0.98125e+03,0.98614e+03,0.99040e+03,0.99324e+03,0.99485e+03 /) - kbo(:,16,10) = (/ & - & 0.98185e+03,0.98662e+03,0.99076e+03,0.99348e+03,0.99493e+03 /) - kbo(:,17,10) = (/ & - & 0.98242e+03,0.98721e+03,0.99109e+03,0.99369e+03,0.99498e+03 /) - kbo(:,18,10) = (/ & - & 0.98296e+03,0.98755e+03,0.99141e+03,0.99390e+03,0.99502e+03 /) - kbo(:,19,10) = (/ & - & 0.98350e+03,0.98800e+03,0.99172e+03,0.99408e+03,0.99505e+03 /) - kbo(:,20,10) = (/ & - & 0.98411e+03,0.98852e+03,0.99205e+03,0.99428e+03,0.99507e+03 /) - kbo(:,21,10) = (/ & - & 0.98464e+03,0.98894e+03,0.99238e+03,0.99447e+03,0.99496e+03 /) - kbo(:,22,10) = (/ & - & 0.98547e+03,0.98983e+03,0.99286e+03,0.99470e+03,0.99509e+03 /) - kbo(:,23,10) = (/ & - & 0.98617e+03,0.99062e+03,0.99331e+03,0.99487e+03,0.99508e+03 /) - kbo(:,24,10) = (/ & - & 0.98718e+03,0.99115e+03,0.99373e+03,0.99499e+03,0.99503e+03 /) - kbo(:,25,10) = (/ & - & 0.98813e+03,0.99180e+03,0.99413e+03,0.99494e+03,0.99492e+03 /) - kbo(:,26,10) = (/ & - & 0.98918e+03,0.99244e+03,0.99450e+03,0.99508e+03,0.99475e+03 /) - kbo(:,27,10) = (/ & - & 0.99010e+03,0.99304e+03,0.99478e+03,0.99509e+03,0.99499e+03 /) - kbo(:,28,10) = (/ & - & 0.99090e+03,0.99357e+03,0.99495e+03,0.99505e+03,0.99433e+03 /) - kbo(:,29,10) = (/ & - & 0.99167e+03,0.99393e+03,0.99505e+03,0.99495e+03,0.99385e+03 /) - kbo(:,30,10) = (/ & - & 0.99249e+03,0.99447e+03,0.99508e+03,0.99477e+03,0.99348e+03 /) - kbo(:,31,10) = (/ & - & 0.99290e+03,0.99477e+03,0.99509e+03,0.99452e+03,0.99326e+03 /) - kbo(:,32,10) = (/ & - & 0.99360e+03,0.99496e+03,0.99505e+03,0.99419e+03,0.99287e+03 /) - kbo(:,33,10) = (/ & - & 0.99410e+03,0.99506e+03,0.99493e+03,0.99381e+03,0.99210e+03 /) - kbo(:,34,10) = (/ & - & 0.99447e+03,0.99508e+03,0.99465e+03,0.99347e+03,0.99121e+03 /) - kbo(:,35,10) = (/ & - & 0.99453e+03,0.99509e+03,0.99465e+03,0.99330e+03,0.99083e+03 /) - kbo(:,36,10) = (/ & - & 0.99467e+03,0.99509e+03,0.99463e+03,0.99327e+03,0.98992e+03 /) - kbo(:,37,10) = (/ & - & 0.99451e+03,0.99508e+03,0.99475e+03,0.99344e+03,0.99124e+03 /) - kbo(:,38,10) = (/ & - & 0.99429e+03,0.99507e+03,0.99486e+03,0.99365e+03,0.99174e+03 /) - kbo(:,39,10) = (/ & - & 0.99405e+03,0.99505e+03,0.99495e+03,0.99373e+03,0.99219e+03 /) - kbo(:,40,10) = (/ & - & 0.99347e+03,0.99496e+03,0.99505e+03,0.99420e+03,0.99289e+03 /) - kbo(:,41,10) = (/ & - & 0.99302e+03,0.99477e+03,0.99509e+03,0.99452e+03,0.99315e+03 /) - kbo(:,42,10) = (/ & - & 0.99237e+03,0.99435e+03,0.99508e+03,0.99477e+03,0.99348e+03 /) - kbo(:,43,10) = (/ & - & 0.99148e+03,0.99394e+03,0.99491e+03,0.99498e+03,0.99395e+03 /) - kbo(:,44,10) = (/ & - & 0.99040e+03,0.99324e+03,0.99485e+03,0.99508e+03,0.99453e+03 /) - kbo(:,45,10) = (/ & - & 0.98910e+03,0.99241e+03,0.99449e+03,0.99508e+03,0.99476e+03 /) - kbo(:,46,10) = (/ & - & 0.98735e+03,0.99138e+03,0.99388e+03,0.99490e+03,0.99500e+03 /) - kbo(:,47,10) = (/ & - & 0.98565e+03,0.99006e+03,0.99301e+03,0.99477e+03,0.99509e+03 /) - kbo(:,48,10) = (/ & - & 0.98383e+03,0.98834e+03,0.99196e+03,0.99423e+03,0.99507e+03 /) - kbo(:,49,10) = (/ & - & 0.98174e+03,0.98651e+03,0.99073e+03,0.99346e+03,0.99492e+03 /) - kbo(:,50,10) = (/ & - & 0.97955e+03,0.98480e+03,0.98924e+03,0.99257e+03,0.99470e+03 /) - kbo(:,51,10) = (/ & - & 0.97755e+03,0.98298e+03,0.98767e+03,0.99154e+03,0.99399e+03 /) - kbo(:,52,10) = (/ & - & 0.97554e+03,0.98111e+03,0.98597e+03,0.99036e+03,0.99323e+03 /) - kbo(:,53,10) = (/ & - & 0.97320e+03,0.97892e+03,0.98413e+03,0.98888e+03,0.99232e+03 /) - kbo(:,54,10) = (/ & - & 0.97086e+03,0.97720e+03,0.98263e+03,0.98733e+03,0.99135e+03 /) - kbo(:,55,10) = (/ & - & 0.96881e+03,0.97539e+03,0.98096e+03,0.98583e+03,0.99029e+03 /) - kbo(:,56,10) = (/ & - & 0.96735e+03,0.97336e+03,0.97906e+03,0.98435e+03,0.98900e+03 /) - kbo(:,57,10) = (/ & - & 0.96407e+03,0.97115e+03,0.97740e+03,0.98282e+03,0.98752e+03 /) - kbo(:,58,10) = (/ & - & 0.96154e+03,0.96893e+03,0.97574e+03,0.98129e+03,0.98611e+03 /) - kbo(:,59,10) = (/ & - & 0.95571e+03,0.96861e+03,0.97503e+03,0.98063e+03,0.98557e+03 /) - kbo(:,13,11) = (/ & - & 0.98771e+03,0.99296e+03,0.99655e+03,0.99859e+03,0.99936e+03 /) - kbo(:,14,11) = (/ & - & 0.98850e+03,0.99335e+03,0.99679e+03,0.99871e+03,0.99939e+03 /) - kbo(:,15,11) = (/ & - & 0.98905e+03,0.99377e+03,0.99705e+03,0.99882e+03,0.99942e+03 /) - kbo(:,16,11) = (/ & - & 0.98962e+03,0.99419e+03,0.99730e+03,0.99893e+03,0.99945e+03 /) - kbo(:,17,11) = (/ & - & 0.99016e+03,0.99444e+03,0.99754e+03,0.99903e+03,0.99947e+03 /) - kbo(:,18,11) = (/ & - & 0.99067e+03,0.99497e+03,0.99775e+03,0.99911e+03,0.99948e+03 /) - kbo(:,19,11) = (/ & - & 0.99117e+03,0.99532e+03,0.99795e+03,0.99918e+03,0.99949e+03 /) - kbo(:,20,11) = (/ & - & 0.99173e+03,0.99572e+03,0.99816e+03,0.99924e+03,0.99949e+03 /) - kbo(:,21,11) = (/ & - & 0.99228e+03,0.99610e+03,0.99835e+03,0.99929e+03,0.99946e+03 /) - kbo(:,22,11) = (/ & - & 0.99309e+03,0.99663e+03,0.99862e+03,0.99936e+03,0.99953e+03 /) - kbo(:,23,11) = (/ & - & 0.99388e+03,0.99698e+03,0.99900e+03,0.99942e+03,0.99925e+03 /) - kbo(:,24,11) = (/ & - & 0.99466e+03,0.99758e+03,0.99904e+03,0.99947e+03,0.99905e+03 /) - kbo(:,25,11) = (/ & - & 0.99542e+03,0.99800e+03,0.99919e+03,0.99963e+03,0.99878e+03 /) - kbo(:,26,11) = (/ & - & 0.99618e+03,0.99839e+03,0.99930e+03,0.99945e+03,0.99847e+03 /) - kbo(:,27,11) = (/ & - & 0.99683e+03,0.99872e+03,0.99939e+03,0.99934e+03,0.99751e+03 /) - kbo(:,28,11) = (/ & - & 0.99741e+03,0.99897e+03,0.99946e+03,0.99913e+03,0.99749e+03 /) - kbo(:,29,11) = (/ & - & 0.99792e+03,0.99917e+03,0.99949e+03,0.99884e+03,0.99707e+03 /) - kbo(:,30,11) = (/ & - & 0.99821e+03,0.99929e+03,0.99946e+03,0.99850e+03,0.99637e+03 /) - kbo(:,31,11) = (/ & - & 0.99871e+03,0.99938e+03,0.99949e+03,0.99810e+03,0.99532e+03 /) - kbo(:,32,11) = (/ & - & 0.99899e+03,0.99961e+03,0.99926e+03,0.99761e+03,0.99460e+03 /) - kbo(:,33,11) = (/ & - & 0.99918e+03,0.99949e+03,0.99880e+03,0.99700e+03,0.99413e+03 /) - kbo(:,34,11) = (/ & - & 0.99929e+03,0.99946e+03,0.99850e+03,0.99635e+03,0.99329e+03 /) - kbo(:,35,11) = (/ & - & 0.99934e+03,0.99941e+03,0.99830e+03,0.99590e+03,0.99292e+03 /) - kbo(:,36,11) = (/ & - & 0.99935e+03,0.99940e+03,0.99826e+03,0.99583e+03,0.99287e+03 /) - kbo(:,37,11) = (/ & - & 0.99930e+03,0.99946e+03,0.99846e+03,0.99628e+03,0.99327e+03 /) - kbo(:,38,11) = (/ & - & 0.99924e+03,0.99949e+03,0.99866e+03,0.99670e+03,0.99350e+03 /) - kbo(:,39,11) = (/ & - & 0.99917e+03,0.99949e+03,0.99899e+03,0.99707e+03,0.99451e+03 /) - kbo(:,40,11) = (/ & - & 0.99898e+03,0.99946e+03,0.99913e+03,0.99777e+03,0.99505e+03 /) - kbo(:,41,11) = (/ & - & 0.99871e+03,0.99939e+03,0.99935e+03,0.99810e+03,0.99546e+03 /) - kbo(:,42,11) = (/ & - & 0.99835e+03,0.99929e+03,0.99947e+03,0.99851e+03,0.99637e+03 /) - kbo(:,43,11) = (/ & - & 0.99780e+03,0.99913e+03,0.99949e+03,0.99893e+03,0.99722e+03 /) - kbo(:,44,11) = (/ & - & 0.99704e+03,0.99882e+03,0.99942e+03,0.99928e+03,0.99778e+03 /) - kbo(:,45,11) = (/ & - & 0.99613e+03,0.99837e+03,0.99930e+03,0.99947e+03,0.99849e+03 /) - kbo(:,46,11) = (/ & - & 0.99492e+03,0.99787e+03,0.99911e+03,0.99949e+03,0.99897e+03 /) - kbo(:,47,11) = (/ & - & 0.99335e+03,0.99679e+03,0.99871e+03,0.99939e+03,0.99936e+03 /) - kbo(:,48,11) = (/ & - & 0.99156e+03,0.99560e+03,0.99810e+03,0.99923e+03,0.99951e+03 /) - kbo(:,49,11) = (/ & - & 0.98955e+03,0.99414e+03,0.99727e+03,0.99894e+03,0.99946e+03 /) - kbo(:,50,11) = (/ & - & 0.98749e+03,0.99256e+03,0.99630e+03,0.99847e+03,0.99918e+03 /) - kbo(:,51,11) = (/ & - & 0.98496e+03,0.99085e+03,0.99509e+03,0.99784e+03,0.99916e+03 /) - kbo(:,52,11) = (/ & - & 0.98304e+03,0.98897e+03,0.99370e+03,0.99701e+03,0.99883e+03 /) - kbo(:,53,11) = (/ & - & 0.98104e+03,0.98693e+03,0.99213e+03,0.99600e+03,0.99833e+03 /) - kbo(:,54,11) = (/ & - & 0.97906e+03,0.98440e+03,0.99053e+03,0.99485e+03,0.99771e+03 /) - kbo(:,55,11) = (/ & - & 0.97789e+03,0.98286e+03,0.98886e+03,0.99361e+03,0.99696e+03 /) - kbo(:,56,11) = (/ & - & 0.97514e+03,0.98117e+03,0.98708e+03,0.99224e+03,0.99622e+03 /) - kbo(:,57,11) = (/ & - & 0.97242e+03,0.97945e+03,0.98472e+03,0.99072e+03,0.99500e+03 /) - kbo(:,58,11) = (/ & - & 0.96969e+03,0.97814e+03,0.98316e+03,0.98916e+03,0.99384e+03 /) - kbo(:,59,11) = (/ & - & 0.96859e+03,0.97725e+03,0.98261e+03,0.98851e+03,0.99335e+03 /) - kbo(:,13,12) = (/ & - & 0.99768e+03,0.99984e+03,0.10010e+04,0.10024e+04,0.10029e+04 /) - kbo(:,14,12) = (/ & - & 0.99795e+03,0.99992e+03,0.10011e+04,0.10025e+04,0.10029e+04 /) - kbo(:,15,12) = (/ & - & 0.99880e+03,0.99996e+03,0.10013e+04,0.10026e+04,0.10031e+04 /) - kbo(:,16,12) = (/ & - & 0.99852e+03,0.10003e+04,0.10015e+04,0.10028e+04,0.10029e+04 /) - kbo(:,17,12) = (/ & - & 0.99876e+03,0.10000e+04,0.10016e+04,0.10027e+04,0.10029e+04 /) - kbo(:,18,12) = (/ & - & 0.99898e+03,0.10001e+04,0.10018e+04,0.10028e+04,0.10028e+04 /) - kbo(:,19,12) = (/ & - & 0.99918e+03,0.10003e+04,0.10021e+04,0.10028e+04,0.10028e+04 /) - kbo(:,20,12) = (/ & - & 0.99940e+03,0.10005e+04,0.10026e+04,0.10029e+04,0.10031e+04 /) - kbo(:,21,12) = (/ & - & 0.99959e+03,0.10007e+04,0.10022e+04,0.10029e+04,0.10026e+04 /) - kbo(:,22,12) = (/ & - & 0.99984e+03,0.10010e+04,0.10024e+04,0.10030e+04,0.10023e+04 /) - kbo(:,23,12) = (/ & - & 0.99996e+03,0.10013e+04,0.10024e+04,0.10029e+04,0.10025e+04 /) - kbo(:,24,12) = (/ & - & 0.10000e+04,0.10016e+04,0.10029e+04,0.10029e+04,0.10023e+04 /) - kbo(:,25,12) = (/ & - & 0.10003e+04,0.10023e+04,0.10029e+04,0.10026e+04,0.10019e+04 /) - kbo(:,26,12) = (/ & - & 0.10007e+04,0.10022e+04,0.10029e+04,0.10026e+04,0.10015e+04 /) - kbo(:,27,12) = (/ & - & 0.10012e+04,0.10025e+04,0.10031e+04,0.10024e+04,0.10010e+04 /) - kbo(:,28,12) = (/ & - & 0.10015e+04,0.10027e+04,0.10029e+04,0.10022e+04,0.10005e+04 /) - kbo(:,29,12) = (/ & - & 0.10019e+04,0.10028e+04,0.10028e+04,0.10019e+04,0.99992e+03 /) - kbo(:,30,12) = (/ & - & 0.10022e+04,0.10029e+04,0.10026e+04,0.10017e+04,0.99965e+03 /) - kbo(:,31,12) = (/ & - & 0.10025e+04,0.10030e+04,0.10022e+04,0.10011e+04,0.99843e+03 /) - kbo(:,32,12) = (/ & - & 0.10027e+04,0.10029e+04,0.10020e+04,0.10007e+04,0.99748e+03 /) - kbo(:,33,12) = (/ & - & 0.10029e+04,0.10028e+04,0.10021e+04,0.10000e+04,0.99658e+03 /) - kbo(:,34,12) = (/ & - & 0.10031e+04,0.10026e+04,0.10017e+04,0.99945e+03,0.99563e+03 /) - kbo(:,35,12) = (/ & - & 0.10030e+04,0.10025e+04,0.10031e+04,0.99888e+03,0.99496e+03 /) - kbo(:,36,12) = (/ & - & 0.10030e+04,0.10025e+04,0.10020e+04,0.99880e+03,0.99482e+03 /) - kbo(:,37,12) = (/ & - & 0.10029e+04,0.10026e+04,0.10015e+04,0.99939e+03,0.99547e+03 /) - kbo(:,38,12) = (/ & - & 0.10029e+04,0.10027e+04,0.10017e+04,0.99958e+03,0.99634e+03 /) - kbo(:,39,12) = (/ & - & 0.10028e+04,0.10028e+04,0.10017e+04,0.99993e+03,0.99613e+03 /) - kbo(:,40,12) = (/ & - & 0.10027e+04,0.10029e+04,0.10022e+04,0.10003e+04,0.99696e+03 /) - kbo(:,41,12) = (/ & - & 0.10027e+04,0.10029e+04,0.10024e+04,0.10013e+04,0.99857e+03 /) - kbo(:,42,12) = (/ & - & 0.10022e+04,0.10029e+04,0.10028e+04,0.10021e+04,0.99929e+03 /) - kbo(:,43,12) = (/ & - & 0.10018e+04,0.10028e+04,0.10028e+04,0.10020e+04,0.10001e+04 /) - kbo(:,44,12) = (/ & - & 0.10013e+04,0.10026e+04,0.10029e+04,0.10023e+04,0.10016e+04 /) - kbo(:,45,12) = (/ & - & 0.10007e+04,0.10022e+04,0.10029e+04,0.10026e+04,0.10015e+04 /) - kbo(:,46,12) = (/ & - & 0.10014e+04,0.10016e+04,0.10028e+04,0.10028e+04,0.10020e+04 /) - kbo(:,47,12) = (/ & - & 0.99993e+03,0.10012e+04,0.10025e+04,0.10029e+04,0.10024e+04 /) - kbo(:,48,12) = (/ & - & 0.99937e+03,0.10005e+04,0.10022e+04,0.10029e+04,0.10027e+04 /) - kbo(:,49,12) = (/ & - & 0.99853e+03,0.10002e+04,0.10015e+04,0.10026e+04,0.10029e+04 /) - kbo(:,50,12) = (/ & - & 0.99741e+03,0.99993e+03,0.10008e+04,0.10023e+04,0.10029e+04 /) - kbo(:,51,12) = (/ & - & 0.99665e+03,0.99912e+03,0.10002e+04,0.10018e+04,0.10028e+04 /) - kbo(:,52,12) = (/ & - & 0.99385e+03,0.99826e+03,0.10000e+04,0.10013e+04,0.10025e+04 /) - kbo(:,53,12) = (/ & - & 0.99099e+03,0.99714e+03,0.99965e+03,0.10007e+04,0.10022e+04 /) - kbo(:,54,12) = (/ & - & 0.98826e+03,0.99612e+03,0.99903e+03,0.10002e+04,0.10018e+04 /) - kbo(:,55,12) = (/ & - & 0.98397e+03,0.99379e+03,0.99822e+03,0.10000e+04,0.10013e+04 /) - kbo(:,56,12) = (/ & - & 0.98006e+03,0.99120e+03,0.99722e+03,0.99969e+03,0.10006e+04 /) - kbo(:,57,12) = (/ & - & 0.97631e+03,0.98840e+03,0.99624e+03,0.99911e+03,0.10002e+04 /) - kbo(:,58,12) = (/ & - & 0.97279e+03,0.98508e+03,0.99422e+03,0.99838e+03,0.10001e+04 /) - kbo(:,59,12) = (/ & - & 0.97171e+03,0.98327e+03,0.99315e+03,0.99818e+03,0.99997e+03 /) - kbo(:,13,13) = (/ & - & 0.99623e+03,0.99978e+03,0.10034e+04,0.10050e+04,0.10054e+04 /) - kbo(:,14,13) = (/ & - & 0.99674e+03,0.10002e+04,0.10034e+04,0.10050e+04,0.10053e+04 /) - kbo(:,15,13) = (/ & - & 0.99652e+03,0.10007e+04,0.10036e+04,0.10051e+04,0.10051e+04 /) - kbo(:,16,13) = (/ & - & 0.99785e+03,0.10007e+04,0.10039e+04,0.10049e+04,0.10053e+04 /) - kbo(:,17,13) = (/ & - & 0.99816e+03,0.10017e+04,0.10043e+04,0.10052e+04,0.10052e+04 /) - kbo(:,18,13) = (/ & - & 0.99792e+03,0.10021e+04,0.10042e+04,0.10053e+04,0.10051e+04 /) - kbo(:,19,13) = (/ & - & 0.99826e+03,0.10023e+04,0.10042e+04,0.10053e+04,0.10051e+04 /) - kbo(:,20,13) = (/ & - & 0.99869e+03,0.10028e+04,0.10038e+04,0.10053e+04,0.10044e+04 /) - kbo(:,21,13) = (/ & - & 0.99914e+03,0.10028e+04,0.10048e+04,0.10054e+04,0.10048e+04 /) - kbo(:,22,13) = (/ & - & 0.99989e+03,0.10035e+04,0.10050e+04,0.10053e+04,0.10046e+04 /) - kbo(:,23,13) = (/ & - & 0.10011e+04,0.10037e+04,0.10051e+04,0.10053e+04,0.10041e+04 /) - kbo(:,24,13) = (/ & - & 0.10018e+04,0.10041e+04,0.10050e+04,0.10052e+04,0.10037e+04 /) - kbo(:,25,13) = (/ & - & 0.10026e+04,0.10040e+04,0.10056e+04,0.10050e+04,0.10036e+04 /) - kbo(:,26,13) = (/ & - & 0.10031e+04,0.10048e+04,0.10054e+04,0.10050e+04,0.10030e+04 /) - kbo(:,27,13) = (/ & - & 0.10047e+04,0.10050e+04,0.10051e+04,0.10045e+04,0.10025e+04 /) - kbo(:,28,13) = (/ & - & 0.10039e+04,0.10052e+04,0.10052e+04,0.10041e+04,0.10018e+04 /) - kbo(:,29,13) = (/ & - & 0.10044e+04,0.10053e+04,0.10051e+04,0.10037e+04,0.10011e+04 /) - kbo(:,30,13) = (/ & - & 0.10048e+04,0.10054e+04,0.10048e+04,0.10029e+04,0.99977e+03 /) - kbo(:,31,13) = (/ & - & 0.10050e+04,0.10053e+04,0.10045e+04,0.10025e+04,0.99968e+03 /) - kbo(:,32,13) = (/ & - & 0.10052e+04,0.10050e+04,0.10041e+04,0.10015e+04,0.99880e+03 /) - kbo(:,33,13) = (/ & - & 0.10053e+04,0.10050e+04,0.10033e+04,0.10008e+04,0.99675e+03 /) - kbo(:,34,13) = (/ & - & 0.10051e+04,0.10048e+04,0.10028e+04,0.10000e+04,0.99529e+03 /) - kbo(:,35,13) = (/ & - & 0.10054e+04,0.10047e+04,0.10003e+04,0.99992e+03,0.99481e+03 /) - kbo(:,36,13) = (/ & - & 0.10054e+04,0.10046e+04,0.10017e+04,0.99987e+03,0.99445e+03 /) - kbo(:,37,13) = (/ & - & 0.10054e+04,0.10048e+04,0.10030e+04,0.99995e+03,0.99517e+03 /) - kbo(:,38,13) = (/ & - & 0.10054e+04,0.10049e+04,0.10034e+04,0.10006e+04,0.99603e+03 /) - kbo(:,39,13) = (/ & - & 0.10053e+04,0.10051e+04,0.10037e+04,0.10011e+04,0.99693e+03 /) - kbo(:,40,13) = (/ & - & 0.10052e+04,0.10052e+04,0.10041e+04,0.10018e+04,0.99860e+03 /) - kbo(:,41,13) = (/ & - & 0.10048e+04,0.10053e+04,0.10045e+04,0.10023e+04,0.99951e+03 /) - kbo(:,42,13) = (/ & - & 0.10048e+04,0.10054e+04,0.10046e+04,0.10024e+04,0.10003e+04 /) - kbo(:,43,13) = (/ & - & 0.10043e+04,0.10053e+04,0.10051e+04,0.10038e+04,0.10013e+04 /) - kbo(:,44,13) = (/ & - & 0.10036e+04,0.10051e+04,0.10053e+04,0.10044e+04,0.10012e+04 /) - kbo(:,45,13) = (/ & - & 0.10028e+04,0.10048e+04,0.10054e+04,0.10048e+04,0.10031e+04 /) - kbo(:,46,13) = (/ & - & 0.10008e+04,0.10042e+04,0.10053e+04,0.10052e+04,0.10038e+04 /) - kbo(:,47,13) = (/ & - & 0.10002e+04,0.10039e+04,0.10050e+04,0.10053e+04,0.10045e+04 /) - kbo(:,48,13) = (/ & - & 0.99859e+03,0.10025e+04,0.10043e+04,0.10054e+04,0.10050e+04 /) - kbo(:,49,13) = (/ & - & 0.99776e+03,0.10009e+04,0.10041e+04,0.10052e+04,0.10053e+04 /) - kbo(:,50,13) = (/ & - & 0.99565e+03,0.99944e+03,0.10034e+04,0.10049e+04,0.10054e+04 /) - kbo(:,51,13) = (/ & - & 0.99271e+03,0.99811e+03,0.10022e+04,0.10043e+04,0.10053e+04 /) - kbo(:,52,13) = (/ & - & 0.99056e+03,0.99717e+03,0.10006e+04,0.10036e+04,0.10051e+04 /) - kbo(:,53,13) = (/ & - & 0.98830e+03,0.99502e+03,0.99909e+03,0.10028e+04,0.10048e+04 /) - kbo(:,54,13) = (/ & - & 0.98610e+03,0.99275e+03,0.99821e+03,0.10021e+04,0.10042e+04 /) - kbo(:,55,13) = (/ & - & 0.98386e+03,0.99045e+03,0.99729e+03,0.10008e+04,0.10038e+04 /) - kbo(:,56,13) = (/ & - & 0.98150e+03,0.98846e+03,0.99517e+03,0.99919e+03,0.10028e+04 /) - kbo(:,57,13) = (/ & - & 0.97902e+03,0.98636e+03,0.99303e+03,0.99832e+03,0.10022e+04 /) - kbo(:,58,13) = (/ & - & 0.97656e+03,0.98426e+03,0.99079e+03,0.99735e+03,0.10008e+04 /) - kbo(:,59,13) = (/ & - & 0.97503e+03,0.98337e+03,0.99004e+03,0.99647e+03,0.10002e+04 /) - kbo(:,13,14) = (/ & - & 0.99596e+03,0.10023e+04,0.10047e+04,0.10067e+04,0.10072e+04 /) - kbo(:,14,14) = (/ & - & 0.99625e+03,0.10024e+04,0.10052e+04,0.10068e+04,0.10071e+04 /) - kbo(:,15,14) = (/ & - & 0.99662e+03,0.10025e+04,0.10054e+04,0.10069e+04,0.10071e+04 /) - kbo(:,16,14) = (/ & - & 0.99703e+03,0.10026e+04,0.10056e+04,0.10070e+04,0.10070e+04 /) - kbo(:,17,14) = (/ & - & 0.99784e+03,0.10032e+04,0.10054e+04,0.10071e+04,0.10070e+04 /) - kbo(:,18,14) = (/ & - & 0.99947e+03,0.10032e+04,0.10060e+04,0.10071e+04,0.10069e+04 /) - kbo(:,19,14) = (/ & - & 0.10001e+04,0.10036e+04,0.10062e+04,0.10071e+04,0.10068e+04 /) - kbo(:,20,14) = (/ & - & 0.10009e+04,0.10037e+04,0.10064e+04,0.10076e+04,0.10067e+04 /) - kbo(:,21,14) = (/ & - & 0.10015e+04,0.10046e+04,0.10065e+04,0.10072e+04,0.10065e+04 /) - kbo(:,22,14) = (/ & - & 0.10023e+04,0.10047e+04,0.10068e+04,0.10071e+04,0.10063e+04 /) - kbo(:,23,14) = (/ & - & 0.10021e+04,0.10055e+04,0.10069e+04,0.10071e+04,0.10060e+04 /) - kbo(:,24,14) = (/ & - & 0.10028e+04,0.10059e+04,0.10071e+04,0.10069e+04,0.10057e+04 /) - kbo(:,25,14) = (/ & - & 0.10033e+04,0.10062e+04,0.10068e+04,0.10068e+04,0.10052e+04 /) - kbo(:,26,14) = (/ & - & 0.10043e+04,0.10066e+04,0.10072e+04,0.10061e+04,0.10047e+04 /) - kbo(:,27,14) = (/ & - & 0.10033e+04,0.10068e+04,0.10071e+04,0.10062e+04,0.10042e+04 /) - kbo(:,28,14) = (/ & - & 0.10057e+04,0.10070e+04,0.10070e+04,0.10058e+04,0.10036e+04 /) - kbo(:,29,14) = (/ & - & 0.10062e+04,0.10075e+04,0.10068e+04,0.10053e+04,0.10030e+04 /) - kbo(:,30,14) = (/ & - & 0.10065e+04,0.10072e+04,0.10069e+04,0.10048e+04,0.10022e+04 /) - kbo(:,31,14) = (/ & - & 0.10068e+04,0.10071e+04,0.10062e+04,0.10042e+04,0.10014e+04 /) - kbo(:,32,14) = (/ & - & 0.10070e+04,0.10070e+04,0.10058e+04,0.10035e+04,0.99925e+03 /) - kbo(:,33,14) = (/ & - & 0.10071e+04,0.10068e+04,0.10053e+04,0.10029e+04,0.99808e+03 /) - kbo(:,34,14) = (/ & - & 0.10072e+04,0.10065e+04,0.10048e+04,0.10021e+04,0.99788e+03 /) - kbo(:,35,14) = (/ & - & 0.10072e+04,0.10064e+04,0.10045e+04,0.10016e+04,0.99700e+03 /) - kbo(:,36,14) = (/ & - & 0.10072e+04,0.10063e+04,0.10044e+04,0.10015e+04,0.99731e+03 /) - kbo(:,37,14) = (/ & - & 0.10072e+04,0.10065e+04,0.10047e+04,0.10021e+04,0.99778e+03 /) - kbo(:,38,14) = (/ & - & 0.10072e+04,0.10067e+04,0.10050e+04,0.10026e+04,0.99820e+03 /) - kbo(:,39,14) = (/ & - & 0.10071e+04,0.10068e+04,0.10053e+04,0.10030e+04,0.99855e+03 /) - kbo(:,40,14) = (/ & - & 0.10070e+04,0.10070e+04,0.10058e+04,0.10036e+04,0.99965e+03 /) - kbo(:,41,14) = (/ & - & 0.10068e+04,0.10071e+04,0.10062e+04,0.10042e+04,0.10010e+04 /) - kbo(:,42,14) = (/ & - & 0.10065e+04,0.10072e+04,0.10065e+04,0.10048e+04,0.10022e+04 /) - kbo(:,43,14) = (/ & - & 0.10061e+04,0.10071e+04,0.10069e+04,0.10055e+04,0.10031e+04 /) - kbo(:,44,14) = (/ & - & 0.10054e+04,0.10069e+04,0.10071e+04,0.10061e+04,0.10039e+04 /) - kbo(:,45,14) = (/ & - & 0.10046e+04,0.10066e+04,0.10072e+04,0.10065e+04,0.10048e+04 /) - kbo(:,46,14) = (/ & - & 0.10023e+04,0.10060e+04,0.10075e+04,0.10069e+04,0.10055e+04 /) - kbo(:,47,14) = (/ & - & 0.10024e+04,0.10044e+04,0.10068e+04,0.10071e+04,0.10062e+04 /) - kbo(:,48,14) = (/ & - & 0.10006e+04,0.10039e+04,0.10063e+04,0.10072e+04,0.10067e+04 /) - kbo(:,49,14) = (/ & - & 0.99705e+03,0.10026e+04,0.10052e+04,0.10070e+04,0.10070e+04 /) - kbo(:,50,14) = (/ & - & 0.99574e+03,0.10014e+04,0.10040e+04,0.10066e+04,0.10072e+04 /) - kbo(:,51,14) = (/ & - & 0.99447e+03,0.99966e+03,0.10033e+04,0.10065e+04,0.10071e+04 /) - kbo(:,52,14) = (/ & - & 0.99299e+03,0.99670e+03,0.10025e+04,0.10054e+04,0.10069e+04 /) - kbo(:,53,14) = (/ & - & 0.99138e+03,0.99552e+03,0.10013e+04,0.10044e+04,0.10065e+04 /) - kbo(:,54,14) = (/ & - & 0.98979e+03,0.99462e+03,0.99874e+03,0.10030e+04,0.10060e+04 /) - kbo(:,55,14) = (/ & - & 0.98814e+03,0.99291e+03,0.99630e+03,0.10029e+04,0.10050e+04 /) - kbo(:,56,14) = (/ & - & 0.98639e+03,0.99150e+03,0.99562e+03,0.10014e+04,0.10045e+04 /) - kbo(:,57,14) = (/ & - & 0.98454e+03,0.98998e+03,0.99438e+03,0.99904e+03,0.10032e+04 /) - kbo(:,58,14) = (/ & - & 0.98268e+03,0.98844e+03,0.99315e+03,0.99688e+03,0.10025e+04 /) - kbo(:,59,14) = (/ & - & 0.98190e+03,0.98779e+03,0.99262e+03,0.99638e+03,0.10024e+04 /) - kbo(:,13,15) = (/ & - & 0.99739e+03,0.10017e+04,0.10064e+04,0.10076e+04,0.10080e+04 /) - kbo(:,14,15) = (/ & - & 0.99781e+03,0.10021e+04,0.10065e+04,0.10077e+04,0.10090e+04 /) - kbo(:,15,15) = (/ & - & 0.99827e+03,0.10029e+04,0.10067e+04,0.10077e+04,0.10079e+04 /) - kbo(:,16,15) = (/ & - & 0.99875e+03,0.10040e+04,0.10068e+04,0.10078e+04,0.10089e+04 /) - kbo(:,17,15) = (/ & - & 0.99816e+03,0.10041e+04,0.10080e+04,0.10079e+04,0.10078e+04 /) - kbo(:,18,15) = (/ & - & 0.99861e+03,0.10065e+04,0.10071e+04,0.10090e+04,0.10078e+04 /) - kbo(:,19,15) = (/ & - & 0.10001e+04,0.10056e+04,0.10072e+04,0.10079e+04,0.10077e+04 /) - kbo(:,20,15) = (/ & - & 0.99952e+03,0.10059e+04,0.10074e+04,0.10090e+04,0.10087e+04 /) - kbo(:,21,15) = (/ & - & 0.10000e+04,0.10061e+04,0.10085e+04,0.10080e+04,0.10085e+04 /) - kbo(:,22,15) = (/ & - & 0.10012e+04,0.10064e+04,0.10076e+04,0.10090e+04,0.10073e+04 /) - kbo(:,23,15) = (/ & - & 0.10032e+04,0.10067e+04,0.10088e+04,0.10079e+04,0.10070e+04 /) - kbo(:,24,15) = (/ & - & 0.10052e+04,0.10070e+04,0.10079e+04,0.10089e+04,0.10067e+04 /) - kbo(:,25,15) = (/ & - & 0.10057e+04,0.10083e+04,0.10079e+04,0.10098e+04,0.10062e+04 /) - kbo(:,26,15) = (/ & - & 0.10061e+04,0.10085e+04,0.10080e+04,0.10075e+04,0.10068e+04 /) - kbo(:,27,15) = (/ & - & 0.10066e+04,0.10087e+04,0.10111e+04,0.10072e+04,0.10051e+04 /) - kbo(:,28,15) = (/ & - & 0.10069e+04,0.10089e+04,0.10079e+04,0.10068e+04,0.10054e+04 /) - kbo(:,29,15) = (/ & - & 0.10072e+04,0.10069e+04,0.10077e+04,0.10063e+04,0.10034e+04 /) - kbo(:,30,15) = (/ & - & 0.10075e+04,0.10111e+04,0.10075e+04,0.10068e+04,0.10088e+04 /) - kbo(:,31,15) = (/ & - & 0.10077e+04,0.10080e+04,0.10072e+04,0.10061e+04,0.10007e+04 /) - kbo(:,32,15) = (/ & - & 0.10078e+04,0.10089e+04,0.10068e+04,0.10043e+04,0.10013e+04 /) - kbo(:,33,15) = (/ & - & 0.10079e+04,0.10077e+04,0.10063e+04,0.10044e+04,0.10009e+04 /) - kbo(:,34,15) = (/ & - & 0.10090e+04,0.10075e+04,0.10058e+04,0.10025e+04,0.10002e+04 /) - kbo(:,35,15) = (/ & - & 0.10080e+04,0.10073e+04,0.10054e+04,0.10021e+04,0.99972e+03 /) - kbo(:,36,15) = (/ & - & 0.10090e+04,0.10073e+04,0.10054e+04,0.10020e+04,0.99964e+03 /) - kbo(:,37,15) = (/ & - & 0.10080e+04,0.10075e+04,0.10057e+04,0.10024e+04,0.10001e+04 /) - kbo(:,38,15) = (/ & - & 0.10090e+04,0.10076e+04,0.10060e+04,0.10040e+04,0.10006e+04 /) - kbo(:,39,15) = (/ & - & 0.10079e+04,0.10077e+04,0.10063e+04,0.10034e+04,0.10010e+04 /) - kbo(:,40,15) = (/ & - & 0.10089e+04,0.10089e+04,0.10068e+04,0.10054e+04,0.10014e+04 /) - kbo(:,41,15) = (/ & - & 0.10087e+04,0.10090e+04,0.10082e+04,0.10051e+04,0.10018e+04 /) - kbo(:,42,15) = (/ & - & 0.10085e+04,0.10090e+04,0.10075e+04,0.10058e+04,0.10025e+04 /) - kbo(:,43,15) = (/ & - & 0.10071e+04,0.10079e+04,0.10078e+04,0.10086e+04,0.10037e+04 /) - kbo(:,44,15) = (/ & - & 0.10067e+04,0.10088e+04,0.10079e+04,0.10071e+04,0.10048e+04 /) - kbo(:,45,15) = (/ & - & 0.10061e+04,0.10075e+04,0.10090e+04,0.10096e+04,0.10057e+04 /) - kbo(:,46,15) = (/ & - & 0.10054e+04,0.10071e+04,0.10068e+04,0.10078e+04,0.10065e+04 /) - kbo(:,47,15) = (/ & - & 0.10020e+04,0.10065e+04,0.10087e+04,0.10079e+04,0.10093e+04 /) - kbo(:,48,15) = (/ & - & 0.99938e+03,0.10058e+04,0.10073e+04,0.10079e+04,0.10087e+04 /) - kbo(:,49,15) = (/ & - & 0.99869e+03,0.10038e+04,0.10079e+04,0.10099e+04,0.10089e+04 /) - kbo(:,50,15) = (/ & - & 0.99593e+03,0.10003e+04,0.10062e+04,0.10075e+04,0.10090e+04 /) - kbo(:,51,15) = (/ & - & 0.99417e+03,0.99877e+03,0.10055e+04,0.10061e+04,0.10090e+04 /) - kbo(:,52,15) = (/ & - & 0.99334e+03,0.99717e+03,0.10030e+04,0.10077e+04,0.10077e+04 /) - kbo(:,53,15) = (/ & - & 0.99034e+03,0.99548e+03,0.99989e+03,0.10071e+04,0.10085e+04 /) - kbo(:,54,15) = (/ & - & 0.98844e+03,0.99385e+03,0.99849e+03,0.10064e+04,0.10081e+04 /) - kbo(:,55,15) = (/ & - & 0.98654e+03,0.99323e+03,0.99708e+03,0.10005e+04,0.10066e+04 /) - kbo(:,56,15) = (/ & - & 0.98558e+03,0.99048e+03,0.99560e+03,0.99999e+03,0.10071e+04 /) - kbo(:,57,15) = (/ & - & 0.98349e+03,0.98867e+03,0.99404e+03,0.99866e+03,0.10054e+04 /) - kbo(:,58,15) = (/ & - & 0.98039e+03,0.98688e+03,0.99250e+03,0.99837e+03,0.10028e+04 /) - kbo(:,59,15) = (/ & - & 0.97954e+03,0.98614e+03,0.99186e+03,0.99679e+03,0.10019e+04 /) - kbo(:,13,16) = (/ & - & 0.98905e+03,0.99319e+03,0.10065e+04,0.10075e+04,0.10080e+04 /) - kbo(:,14,16) = (/ & - & 0.98947e+03,0.10009e+04,0.10067e+04,0.10076e+04,0.10005e+04 /) - kbo(:,15,16) = (/ & - & 0.98993e+03,0.10052e+04,0.10068e+04,0.10076e+04,0.10080e+04 /) - kbo(:,16,16) = (/ & - & 0.99040e+03,0.10054e+04,0.10069e+04,0.10077e+04,0.10005e+04 /) - kbo(:,17,16) = (/ & - & 0.99823e+03,0.10056e+04,0.99955e+03,0.10078e+04,0.10080e+04 /) - kbo(:,18,16) = (/ & - & 0.99867e+03,0.99832e+03,0.10071e+04,0.10003e+04,0.10079e+04 /) - kbo(:,19,16) = (/ & - & 0.99168e+03,0.10059e+04,0.10072e+04,0.10078e+04,0.10079e+04 /) - kbo(:,20,16) = (/ & - & 0.99955e+03,0.10061e+04,0.10073e+04,0.99297e+03,0.10003e+04 /) - kbo(:,21,16) = (/ & - & 0.10000e+04,0.10063e+04,0.99994e+03,0.10079e+04,0.10002e+04 /) - kbo(:,22,16) = (/ & - & 0.10007e+04,0.10066e+04,0.10075e+04,0.10005e+04,0.10075e+04 /) - kbo(:,23,16) = (/ & - & 0.10052e+04,0.10068e+04,0.10002e+04,0.10080e+04,0.10072e+04 /) - kbo(:,24,16) = (/ & - & 0.10056e+04,0.10070e+04,0.10078e+04,0.10005e+04,0.10068e+04 /) - kbo(:,25,16) = (/ & - & 0.10060e+04,0.99977e+03,0.10079e+04,0.99294e+03,0.10064e+04 /) - kbo(:,26,16) = (/ & - & 0.10064e+04,0.99996e+03,0.10080e+04,0.10077e+04,0.99839e+03 /) - kbo(:,27,16) = (/ & - & 0.10067e+04,0.10001e+04,0.98561e+03,0.10074e+04,0.10052e+04 /) - kbo(:,28,16) = (/ & - & 0.10069e+04,0.10003e+04,0.10080e+04,0.10070e+04,0.99700e+03 /) - kbo(:,29,16) = (/ & - & 0.10072e+04,0.10078e+04,0.10079e+04,0.10065e+04,0.10036e+04 /) - kbo(:,30,16) = (/ & - & 0.10074e+04,0.98555e+03,0.10002e+04,0.99845e+03,0.95900e+03 /) - kbo(:,31,16) = (/ & - & 0.10076e+04,0.10080e+04,0.10074e+04,0.99776e+03,0.10037e+04 /) - kbo(:,32,16) = (/ & - & 0.10077e+04,0.10005e+04,0.10070e+04,0.10044e+04,0.10038e+04 /) - kbo(:,33,16) = (/ & - & 0.10079e+04,0.10079e+04,0.10064e+04,0.99602e+03,0.10038e+04 /) - kbo(:,34,16) = (/ & - & 0.10005e+04,0.10077e+04,0.10059e+04,0.10036e+04,0.10037e+04 /) - kbo(:,35,16) = (/ & - & 0.10080e+04,0.10075e+04,0.10055e+04,0.10037e+04,0.10036e+04 /) - kbo(:,36,16) = (/ & - & 0.10005e+04,0.10075e+04,0.10055e+04,0.10037e+04,0.10036e+04 /) - kbo(:,37,16) = (/ & - & 0.10080e+04,0.10077e+04,0.10058e+04,0.10037e+04,0.10037e+04 /) - kbo(:,38,16) = (/ & - & 0.10004e+04,0.10078e+04,0.10062e+04,0.99569e+03,0.10037e+04 /) - kbo(:,39,16) = (/ & - & 0.10078e+04,0.10079e+04,0.10065e+04,0.10036e+04,0.10038e+04 /) - kbo(:,40,16) = (/ & - & 0.10003e+04,0.10005e+04,0.10070e+04,0.99698e+03,0.10038e+04 /) - kbo(:,41,16) = (/ & - & 0.10001e+04,0.10005e+04,0.99992e+03,0.10052e+04,0.10037e+04 /) - kbo(:,42,16) = (/ & - & 0.99994e+03,0.10005e+04,0.10077e+04,0.10059e+04,0.10036e+04 /) - kbo(:,43,16) = (/ & - & 0.10071e+04,0.10078e+04,0.10079e+04,0.99172e+03,0.10038e+04 /) - kbo(:,44,16) = (/ & - & 0.10068e+04,0.10002e+04,0.10080e+04,0.10072e+04,0.10049e+04 /) - kbo(:,45,16) = (/ & - & 0.10063e+04,0.10074e+04,0.10005e+04,0.99276e+03,0.10059e+04 /) - kbo(:,46,16) = (/ & - & 0.10057e+04,0.10071e+04,0.10078e+04,0.10079e+04,0.10067e+04 /) - kbo(:,47,16) = (/ & - & 0.10009e+04,0.10067e+04,0.10001e+04,0.10080e+04,0.99247e+03 /) - kbo(:,48,16) = (/ & - & 0.99941e+03,0.10061e+04,0.10073e+04,0.10079e+04,0.10004e+04 /) - kbo(:,49,16) = (/ & - & 0.99034e+03,0.10054e+04,0.99943e+03,0.99276e+03,0.10005e+04 /) - kbo(:,50,16) = (/ & - & 0.99601e+03,0.10003e+04,0.10064e+04,0.10074e+04,0.10005e+04 /) - kbo(:,51,16) = (/ & - & 0.99422e+03,0.99882e+03,0.10058e+04,0.10071e+04,0.10003e+04 /) - kbo(:,52,16) = (/ & - & 0.98496e+03,0.99726e+03,0.10013e+04,0.99930e+03,0.10076e+04 /) - kbo(:,53,16) = (/ & - & 0.99030e+03,0.99555e+03,0.99990e+03,0.99882e+03,0.99991e+03 /) - kbo(:,54,16) = (/ & - & 0.98836e+03,0.98653e+03,0.99856e+03,0.99827e+03,0.99962e+03 /) - kbo(:,55,16) = (/ & - & 0.98643e+03,0.98485e+03,0.99716e+03,0.10012e+04,0.10067e+04 /) - kbo(:,56,16) = (/ & - & 0.97714e+03,0.99044e+03,0.99567e+03,0.99999e+03,0.99885e+03 /) - kbo(:,57,16) = (/ & - & 0.97511e+03,0.98860e+03,0.99409e+03,0.99872e+03,0.10058e+04 /) - kbo(:,58,16) = (/ & - & 0.98036e+03,0.98678e+03,0.99251e+03,0.99003e+03,0.10052e+04 /) - kbo(:,59,16) = (/ & - & 0.97953e+03,0.98603e+03,0.99185e+03,0.99687e+03,0.10009e+04 /) - - end subroutine sw_kgb27 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_28.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_28.F90 deleted file mode 100644 index 7e5313834..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_28.F90 +++ /dev/null @@ -1,10846 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb28 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg28, only : kao, kbo, sfluxrefo, rayl, & - irradnceo, facbrghto, snsptdrko - - implicit none - save - -! Kurucz solar source function - sfluxrefo(:,1) = (/ & - & 1.06156 , 0.599910 , 0.422462 , 0.400077 , & - & 0.282221 , 0.187893 , 6.77357e-02, 3.04572e-02, & - & 2.00442e-02, 2.30786e-03, 2.08824e-03, 1.42604e-03, & - & 9.67384e-04, 6.35362e-04, 1.47727e-04, 6.87639e-06 /) - sfluxrefo(:,2) = (/ & - & 1.07598 , 0.585099 , 0.422852 , 0.400077 , & - & 0.282221 , 0.187893 , 6.69686e-02, 3.09070e-02, & - & 2.02400e-02, 2.47760e-03, 1.89411e-03, 1.41122e-03, & - & 1.12449e-03, 5.73505e-04, 2.04160e-04, 1.58371e-05 /) - sfluxrefo(:,3) = (/ & - & 0.461647 , 0.406113 , 0.332506 , 0.307508 , & - & 0.211167 , 0.235457 , 0.495886 , 0.363921 , & - & 0.192700 , 2.04678e-02, 1.55407e-02, 1.03882e-02, & - & 1.10778e-02, 1.00504e-02, 4.93497e-03, 5.73410e-04 /) - sfluxrefo(:,4) = (/ & - & 0.132669 , 0.175058 , 0.359263 , 0.388142 , & - & 0.350359 , 0.475892 , 0.489593 , 0.408437 , & - & 0.221049 , 1.94514e-02, 1.54848e-02, 1.44999e-02, & - & 1.44568e-02, 1.00527e-02, 4.95897e-03, 5.73327e-04 /) - sfluxrefo(:,5) = (/ & - & 7.54800e-02, 0.232246 , 0.359263 , 0.388142 , & - & 0.350359 , 0.426317 , 0.493485 , 0.432016 , & - & 0.239203 , 1.74951e-02, 1.74477e-02, 1.83566e-02, & - & 1.44818e-02, 1.01048e-02, 4.97487e-03, 5.66831e-04 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:,1) = (/ & - & 9.07383E-01, 5.37775E-01, 4.22482E-01, 3.69359E-01,& - & 2.57749E-01, 1.78219E-01, 5.73035E-02, 2.76551E-02,& - & 1.79295E-02, 1.88887E-03, 2.27806E-03, 4.12725E-03,& - & 5.33082E-03, 2.59712E-03, 2.60563E-04, 2.50225E-05/) - irradnceo(:,2) = (/ & - & 9.06133E-01, 5.04144E-01, 4.38272E-01, 3.81883E-01,& - & 2.61401E-01, 1.77503E-01, 5.68636E-02, 2.76929E-02,& - & 1.84592E-02, 2.34501E-03, 3.02949E-03, 5.59228E-03,& - & 5.86033E-03, 2.88761E-03, 2.72104E-04, 2.50225E-05/) - irradnceo(:,3) = (/ & - & 4.35736E-01, 3.76471E-01, 3.06021E-01, 2.69023E-01,& - & 1.65272E-01, 2.57586E-01, 4.84391E-01, 2.61161E-01,& - & 1.81596E-01, 1.93819E-02, 1.49377E-02, 1.00317E-02,& - & 7.09093E-03, 3.36316E-03, 2.76331E-04, 2.50225E-05/) - irradnceo(:,4) = (/ & - & 1.24783E-01, 1.70259E-01, 3.35267E-01, 3.55242E-01,& - & 3.23879E-01, 4.33670E-01, 4.15873E-01, 3.73534E-01,& - & 1.83517E-01, 2.56191E-02, 2.19227E-02, 1.47345E-02,& - & 9.08306E-03, 4.52666E-03, 4.29098E-04, 2.50225E-05/) - irradnceo(:,5) = (/ & - & 6.78269E-02, 2.13269E-01, 3.35259E-01, 3.66552E-01,& - & 3.23942E-01, 4.07399E-01, 3.94248E-01, 3.96335E-01,& - & 2.06213E-01, 1.22173E-02, 1.93984E-02, 2.09580E-02,& - & 1.69318E-02, 6.73835E-03, 4.41490E-03, 6.59772E-04/) -! Solar variability components: facular brightening - facbrghto(:,1) = (/ & - & 8.91083E-03, 6.84443E-03, 5.71469E-03, 5.25886E-03,& - & 4.01843E-03, 2.67863E-03, 1.59003E-03, 8.87707E-04,& - & 5.72727E-04, 6.26858E-05, 5.74131E-05, 6.48884E-05,& - & 6.39183E-05, 3.43302E-05, 6.57289E-06, 7.60560E-07/) - facbrghto(:,2) = (/ & - & 8.88183E-03, 6.66773E-03, 5.86794E-03, 5.27225E-03,& - & 4.02998E-03, 2.67997E-03, 1.56721E-03, 8.93159E-04,& - & 5.83728E-04, 6.65573E-05, 6.50616E-05, 7.87391E-05,& - & 6.92540E-05, 3.60978E-05, 6.64994E-06, 7.60560E-07/) - facbrghto(:,3) = (/ & - & 6.11926E-03, 5.51093E-03, 4.62766E-03, 4.06813E-03,& - & 2.78474E-03, 3.40403E-03, 4.40433E-03, 3.16526E-03,& - & 2.06720E-03, 2.09998E-04, 1.62499E-04, 1.15738E-04,& - & 7.98177E-05, 3.98628E-05, 6.71483E-06, 7.60560E-07/) - facbrghto(:,4) = (/ & - & 2.62789E-03, 3.34884E-03, 5.04289E-03, 5.14489E-03,& - & 4.60744E-03, 5.03800E-03, 4.80652E-03, 3.25168E-03,& - & 2.13730E-03, 2.58043E-04, 2.01417E-04, 1.45555E-04,& - & 9.88475E-05, 4.86660E-05, 8.18188E-06, 7.60560E-07/) - facbrghto(:,5) = (/ & - & 2.20399E-03, 3.63851E-03, 5.03885E-03, 5.20542E-03,& - & 4.63369E-03, 4.70843E-03, 4.98380E-03, 3.37138E-03,& - & 2.11721E-03, 2.36018E-04, 2.07222E-04, 1.77129E-04,& - & 1.28754E-04, 8.20221E-05, 3.02731E-05, 4.21246E-06/) -! Solar variability components: sunspot darkening - snsptdrko(:,1) = (/ & - &-5.28062E-04,-2.83597E-04,-2.32372E-04,-2.58747E-04,& - &-1.91129E-04,-1.29449E-04,-3.25204E-05,-1.69400E-05,& - &-9.74093E-06,-1.07835E-06,-1.26181E-06,-2.16314E-06,& - &-2.57283E-06,-1.15279E-06,-1.31837E-07,-1.17475E-08/) - snsptdrko(:,2) = (/ & - &-5.21927E-04,-2.63106E-04,-2.58798E-04,-2.57869E-04,& - &-1.90618E-04,-1.29638E-04,-3.16669E-05,-1.72816E-05,& - &-9.80625E-06,-1.25641E-06,-1.72169E-06,-2.93885E-06,& - &-2.90100E-06,-1.25317E-06,-1.35435E-07,-1.17475E-08/) - snsptdrko(:,3) = (/ & - &-3.03741E-04,-2.48916E-04,-1.90259E-04,-1.78690E-04,& - &-8.33300E-05,-1.30190E-04,-2.53327E-04,-1.64656E-04,& - &-1.09880E-04,-1.02412E-05,-7.43813E-06,-5.12766E-06,& - &-3.52154E-06,-1.46242E-06,-1.39075E-07,-1.17475E-08/) - snsptdrko(:,4) = (/ & - &-8.43784E-05,-1.13485E-04,-2.46730E-04,-2.48497E-04,& - &-1.70458E-04,-2.32354E-04,-2.22118E-04,-2.02538E-04,& - &-1.26094E-04,-1.77229E-05,-1.22901E-05,-7.39728E-06,& - &-4.64782E-06,-1.99994E-06,-2.08533E-07,-1.17475E-08/) - snsptdrko(:,5) = (/ & - &-3.75562E-05,-1.51520E-04,-2.45761E-04,-2.53296E-04,& - &-1.73440E-04,-2.17299E-04,-2.00193E-04,-2.27638E-04,& - &-1.25297E-04,-1.37708E-05,-1.37472E-05,-1.33481E-05,& - &-9.51791E-06,-6.06035E-06,-2.18137E-06,-3.03847E-07/) - -! Rayleigh extinction coefficient at v = ????? cm-1. - rayl = 2.02e-05 - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1, 1) = (/ & - & 0.46447e+02,0.18001e+03,0.31338e+03,0.44652e+03,0.54636e+03, & - & 0.54173e+03,0.45707e+03,0.27363e+03,0.35000e+02 /) - kao(:, 2, 1, 1) = (/ & - & 0.45270e+02,0.17886e+03,0.31225e+03,0.44541e+03,0.54177e+03, & - & 0.53436e+03,0.44932e+03,0.26748e+03,0.35000e+02 /) - kao(:, 3, 1, 1) = (/ & - & 0.44214e+02,0.17776e+03,0.31115e+03,0.44427e+03,0.53733e+03, & - & 0.52756e+03,0.44224e+03,0.26195e+03,0.35000e+02 /) - kao(:, 4, 1, 1) = (/ & - & 0.43259e+02,0.17673e+03,0.31005e+03,0.44305e+03,0.53298e+03, & - & 0.52129e+03,0.43574e+03,0.25696e+03,0.35000e+02 /) - kao(:, 5, 1, 1) = (/ & - & 0.42393e+02,0.17575e+03,0.30896e+03,0.44173e+03,0.52883e+03, & - & 0.51548e+03,0.42976e+03,0.25242e+03,0.35000e+02 /) - kao(:, 1, 2, 1) = (/ & - & 0.42908e+02,0.17695e+03,0.31077e+03,0.44434e+03,0.53161e+03, & - & 0.51895e+03,0.43332e+03,0.25512e+03,0.35000e+02 /) - kao(:, 2, 2, 1) = (/ & - & 0.41899e+02,0.17596e+03,0.30980e+03,0.44336e+03,0.52686e+03, & - & 0.51213e+03,0.42632e+03,0.24984e+03,0.35000e+02 /) - kao(:, 3, 2, 1) = (/ & - & 0.40995e+02,0.17502e+03,0.30884e+03,0.44232e+03,0.52230e+03, & - & 0.50592e+03,0.41995e+03,0.24511e+03,0.35000e+02 /) - kao(:, 4, 2, 1) = (/ & - & 0.40181e+02,0.17412e+03,0.30788e+03,0.44119e+03,0.51785e+03, & - & 0.50025e+03,0.41414e+03,0.24085e+03,0.35000e+02 /) - kao(:, 5, 2, 1) = (/ & - & 0.39443e+02,0.17326e+03,0.30691e+03,0.43992e+03,0.51364e+03, & - & 0.49503e+03,0.40882e+03,0.23699e+03,0.35000e+02 /) - kao(:, 1, 3, 1) = (/ & - & 0.40126e+02,0.17457e+03,0.30876e+03,0.44248e+03,0.51755e+03, & - & 0.49986e+03,0.41375e+03,0.24056e+03,0.35000e+02 /) - kao(:, 2, 3, 1) = (/ & - & 0.39240e+02,0.17370e+03,0.30792e+03,0.44146e+03,0.51254e+03, & - & 0.49358e+03,0.40735e+03,0.23593e+03,0.35000e+02 /) - kao(:, 3, 3, 1) = (/ & - & 0.38450e+02,0.17288e+03,0.30708e+03,0.44031e+03,0.50793e+03, & - & 0.48786e+03,0.40155e+03,0.23179e+03,0.35000e+02 /) - kao(:, 4, 3, 1) = (/ & - & 0.37740e+02,0.17210e+03,0.30624e+03,0.43908e+03,0.50368e+03, & - & 0.48264e+03,0.39629e+03,0.22808e+03,0.35000e+02 /) - kao(:, 5, 3, 1) = (/ & - & 0.37099e+02,0.17134e+03,0.30539e+03,0.43781e+03,0.49975e+03, & - & 0.47787e+03,0.39149e+03,0.22473e+03,0.35000e+02 /) - kao(:, 1, 4, 1) = (/ & - & 0.37818e+02,0.17258e+03,0.30708e+03,0.43967e+03,0.50412e+03, & - & 0.48321e+03,0.39687e+03,0.22848e+03,0.35000e+02 /) - kao(:, 2, 4, 1) = (/ & - & 0.37034e+02,0.17183e+03,0.30636e+03,0.43833e+03,0.49935e+03, & - & 0.47738e+03,0.39100e+03,0.22439e+03,0.35000e+02 /) - kao(:, 3, 4, 1) = (/ & - & 0.36338e+02,0.17111e+03,0.30564e+03,0.43700e+03,0.49496e+03, & - & 0.47212e+03,0.38572e+03,0.22075e+03,0.35000e+02 /) - kao(:, 4, 4, 1) = (/ & - & 0.35716e+02,0.17043e+03,0.30491e+03,0.43569e+03,0.49094e+03, & - & 0.46732e+03,0.38094e+03,0.21749e+03,0.35000e+02 /) - kao(:, 5, 4, 1) = (/ & - & 0.35156e+02,0.16977e+03,0.30416e+03,0.43437e+03,0.48726e+03, & - & 0.46294e+03,0.37660e+03,0.21456e+03,0.35000e+02 /) - kao(:, 1, 5, 1) = (/ & - & 0.35857e+02,0.17089e+03,0.30563e+03,0.43619e+03,0.49186e+03, & - & 0.46841e+03,0.38202e+03,0.21822e+03,0.35000e+02 /) - kao(:, 2, 5, 1) = (/ & - & 0.35163e+02,0.17023e+03,0.30502e+03,0.43478e+03,0.48731e+03, & - & 0.46300e+03,0.37666e+03,0.21460e+03,0.35000e+02 /) - kao(:, 3, 5, 1) = (/ & - & 0.34550e+02,0.16961e+03,0.30441e+03,0.43332e+03,0.48321e+03, & - & 0.45813e+03,0.37186e+03,0.21139e+03,0.35000e+02 /) - kao(:, 4, 5, 1) = (/ & - & 0.34004e+02,0.16902e+03,0.30378e+03,0.43194e+03,0.47950e+03, & - & 0.45375e+03,0.36755e+03,0.20853e+03,0.35000e+02 /) - kao(:, 5, 5, 1) = (/ & - & 0.33514e+02,0.16844e+03,0.30312e+03,0.43058e+03,0.47611e+03, & - & 0.44977e+03,0.36365e+03,0.20597e+03,0.35000e+02 /) - kao(:, 1, 6, 1) = (/ & - & 0.34212e+02,0.16946e+03,0.30440e+03,0.43247e+03,0.48092e+03, & - & 0.45542e+03,0.36920e+03,0.20962e+03,0.35000e+02 /) - kao(:, 2, 6, 1) = (/ & - & 0.33595e+02,0.16889e+03,0.30389e+03,0.43093e+03,0.47667e+03, & - & 0.45043e+03,0.36430e+03,0.20639e+03,0.35000e+02 /) - kao(:, 3, 6, 1) = (/ & - & 0.33052e+02,0.16835e+03,0.30337e+03,0.42946e+03,0.47287e+03, & - & 0.44599e+03,0.35993e+03,0.20355e+03,0.35000e+02 /) - kao(:, 4, 6, 1) = (/ & - & 0.32571e+02,0.16784e+03,0.30283e+03,0.42807e+03,0.46947e+03, & - & 0.44201e+03,0.35602e+03,0.20103e+03,0.35000e+02 /) - kao(:, 5, 6, 1) = (/ & - & 0.32141e+02,0.16733e+03,0.30227e+03,0.42674e+03,0.46640e+03, & - & 0.43842e+03,0.35250e+03,0.19879e+03,0.35000e+02 /) - kao(:, 1, 7, 1) = (/ & - & 0.32812e+02,0.16823e+03,0.30334e+03,0.42859e+03,0.47118e+03, & - & 0.44401e+03,0.35799e+03,0.20230e+03,0.35000e+02 /) - kao(:, 2, 7, 1) = (/ & - & 0.32263e+02,0.16774e+03,0.30291e+03,0.42708e+03,0.46727e+03, & - & 0.43944e+03,0.35350e+03,0.19942e+03,0.35000e+02 /) - kao(:, 3, 7, 1) = (/ & - & 0.31782e+02,0.16728e+03,0.30248e+03,0.42558e+03,0.46381e+03, & - & 0.43539e+03,0.34954e+03,0.19691e+03,0.35000e+02 /) - kao(:, 4, 7, 1) = (/ & - & 0.31357e+02,0.16683e+03,0.30203e+03,0.42413e+03,0.46069e+03, & - & 0.43177e+03,0.34599e+03,0.19468e+03,0.35000e+02 /) - kao(:, 5, 7, 1) = (/ & - & 0.30980e+02,0.16640e+03,0.30154e+03,0.42276e+03,0.45787e+03, & - & 0.42852e+03,0.34280e+03,0.19271e+03,0.35000e+02 /) - kao(:, 1, 8, 1) = (/ & - & 0.31614e+02,0.16716e+03,0.30239e+03,0.42473e+03,0.46259e+03, & - & 0.43397e+03,0.34814e+03,0.19603e+03,0.35000e+02 /) - kao(:, 2, 8, 1) = (/ & - & 0.31125e+02,0.16674e+03,0.30206e+03,0.42311e+03,0.45896e+03, & - & 0.42978e+03,0.34403e+03,0.19347e+03,0.35000e+02 /) - kao(:, 3, 8, 1) = (/ & - & 0.30699e+02,0.16635e+03,0.30170e+03,0.42163e+03,0.45573e+03, & - & 0.42608e+03,0.34039e+03,0.19124e+03,0.35000e+02 /) - kao(:, 4, 8, 1) = (/ & - & 0.30325e+02,0.16597e+03,0.30133e+03,0.42027e+03,0.45286e+03, & - & 0.42281e+03,0.33716e+03,0.18928e+03,0.35000e+02 /) - kao(:, 5, 8, 1) = (/ & - & 0.29993e+02,0.16559e+03,0.30092e+03,0.41901e+03,0.45030e+03, & - & 0.41988e+03,0.33427e+03,0.18755e+03,0.35000e+02 /) - kao(:, 1, 9, 1) = (/ & - & 0.30594e+02,0.16624e+03,0.30156e+03,0.42087e+03,0.45493e+03, & - & 0.42517e+03,0.33949e+03,0.19069e+03,0.35000e+02 /) - kao(:, 2, 9, 1) = (/ & - & 0.30158e+02,0.16589e+03,0.30131e+03,0.41937e+03,0.45157e+03, & - & 0.42134e+03,0.33570e+03,0.18841e+03,0.35000e+02 /) - kao(:, 3, 9, 1) = (/ & - & 0.29780e+02,0.16556e+03,0.30103e+03,0.41800e+03,0.44864e+03, & - & 0.41799e+03,0.33239e+03,0.18643e+03,0.35000e+02 /) - kao(:, 4, 9, 1) = (/ & - & 0.29450e+02,0.16523e+03,0.30072e+03,0.41674e+03,0.44606e+03, & - & 0.41504e+03,0.32946e+03,0.18471e+03,0.35000e+02 /) - kao(:, 5, 9, 1) = (/ & - & 0.29159e+02,0.16491e+03,0.30039e+03,0.41557e+03,0.44377e+03, & - & 0.41242e+03,0.32686e+03,0.18318e+03,0.35000e+02 /) - kao(:, 1,10, 1) = (/ & - & 0.29691e+02,0.16541e+03,0.30081e+03,0.41722e+03,0.44795e+03, & - & 0.41720e+03,0.33160e+03,0.18597e+03,0.35000e+02 /) - kao(:, 2,10, 1) = (/ & - & 0.29307e+02,0.16512e+03,0.30063e+03,0.41581e+03,0.44493e+03, & - & 0.41375e+03,0.32818e+03,0.18396e+03,0.35000e+02 /) - kao(:, 3,10, 1) = (/ & - & 0.28975e+02,0.16485e+03,0.30042e+03,0.41454e+03,0.44231e+03, & - & 0.41076e+03,0.32520e+03,0.18222e+03,0.35000e+02 /) - kao(:, 4,10, 1) = (/ & - & 0.28687e+02,0.16458e+03,0.30018e+03,0.41340e+03,0.44002e+03, & - & 0.40814e+03,0.32259e+03,0.18071e+03,0.35000e+02 /) - kao(:, 5,10, 1) = (/ & - & 0.28434e+02,0.16431e+03,0.29989e+03,0.41235e+03,0.43799e+03, & - & 0.40583e+03,0.32028e+03,0.17939e+03,0.35000e+02 /) - kao(:, 1,11, 1) = (/ & - & 0.28760e+02,0.16459e+03,0.30010e+03,0.41321e+03,0.44060e+03, & - & 0.40880e+03,0.32325e+03,0.18109e+03,0.35000e+02 /) - kao(:, 2,11, 1) = (/ & - & 0.28444e+02,0.16436e+03,0.29997e+03,0.41200e+03,0.43807e+03, & - & 0.40592e+03,0.32038e+03,0.17944e+03,0.35000e+02 /) - kao(:, 3,11, 1) = (/ & - & 0.28173e+02,0.16414e+03,0.29981e+03,0.41092e+03,0.43587e+03, & - & 0.40342e+03,0.31788e+03,0.17802e+03,0.35000e+02 /) - kao(:, 4,11, 1) = (/ & - & 0.27937e+02,0.16392e+03,0.29960e+03,0.40994e+03,0.43395e+03, & - & 0.40124e+03,0.31570e+03,0.17679e+03,0.35000e+02 /) - kao(:, 5,11, 1) = (/ & - & 0.27730e+02,0.16369e+03,0.29936e+03,0.40905e+03,0.43224e+03, & - & 0.39931e+03,0.31377e+03,0.17571e+03,0.35000e+02 /) - kao(:, 1,12, 1) = (/ & - & 0.27995e+02,0.16391e+03,0.29951e+03,0.40970e+03,0.43443e+03, & - & 0.40178e+03,0.31624e+03,0.17709e+03,0.35000e+02 /) - kao(:, 2,12, 1) = (/ & - & 0.27737e+02,0.16374e+03,0.29943e+03,0.40869e+03,0.43230e+03, & - & 0.39938e+03,0.31384e+03,0.17574e+03,0.35000e+02 /) - kao(:, 3,12, 1) = (/ & - & 0.27515e+02,0.16356e+03,0.29930e+03,0.40779e+03,0.43046e+03, & - & 0.39730e+03,0.31176e+03,0.17458e+03,0.35000e+02 /) - kao(:, 4,12, 1) = (/ & - & 0.27322e+02,0.16338e+03,0.29913e+03,0.40697e+03,0.42883e+03, & - & 0.39548e+03,0.30994e+03,0.17357e+03,0.35000e+02 /) - kao(:, 5,12, 1) = (/ & - & 0.27152e+02,0.16318e+03,0.29892e+03,0.40622e+03,0.42740e+03, & - & 0.39387e+03,0.30834e+03,0.17268e+03,0.35000e+02 /) - kao(:, 1,13, 1) = (/ & - & 0.27369e+02,0.16336e+03,0.29903e+03,0.40671e+03,0.42924e+03, & - & 0.39593e+03,0.31039e+03,0.17382e+03,0.35000e+02 /) - kao(:, 2,13, 1) = (/ & - & 0.27158e+02,0.16323e+03,0.29898e+03,0.40587e+03,0.42745e+03, & - & 0.39393e+03,0.30840e+03,0.17271e+03,0.35000e+02 /) - kao(:, 3,13, 1) = (/ & - & 0.26976e+02,0.16309e+03,0.29889e+03,0.40513e+03,0.42590e+03, & - & 0.39221e+03,0.30667e+03,0.17176e+03,0.35000e+02 /) - kao(:, 4,13, 1) = (/ & - & 0.26818e+02,0.16293e+03,0.29875e+03,0.40445e+03,0.42455e+03, & - & 0.39070e+03,0.30516e+03,0.17093e+03,0.35000e+02 /) - kao(:, 5,13, 1) = (/ & - & 0.26679e+02,0.16276e+03,0.29855e+03,0.40381e+03,0.42335e+03, & - & 0.38937e+03,0.30384e+03,0.17021e+03,0.35000e+02 /) - kao(:, 1, 1, 2) = (/ & - & 0.17271e+03,0.27646e+03,0.38039e+03,0.48420e+03,0.56932e+03, & - & 0.57534e+03,0.47873e+03,0.28147e+03,0.71840e+02 /) - kao(:, 2, 1, 2) = (/ & - & 0.16834e+03,0.27246e+03,0.37678e+03,0.48091e+03,0.56471e+03, & - & 0.56734e+03,0.47005e+03,0.27593e+03,0.71840e+02 /) - kao(:, 3, 1, 2) = (/ & - & 0.16441e+03,0.26883e+03,0.37341e+03,0.47777e+03,0.56037e+03, & - & 0.56003e+03,0.46210e+03,0.27096e+03,0.71840e+02 /) - kao(:, 4, 1, 2) = (/ & - & 0.16086e+03,0.26548e+03,0.37025e+03,0.47479e+03,0.55629e+03, & - & 0.55327e+03,0.45481e+03,0.26647e+03,0.71840e+02 /) - kao(:, 5, 1, 2) = (/ & - & 0.15764e+03,0.26237e+03,0.36725e+03,0.47195e+03,0.55235e+03, & - & 0.54701e+03,0.44810e+03,0.26239e+03,0.71840e+02 /) - kao(:, 1, 2, 2) = (/ & - & 0.15955e+03,0.26500e+03,0.37067e+03,0.47595e+03,0.55480e+03, & - & 0.55074e+03,0.45210e+03,0.26482e+03,0.71840e+02 /) - kao(:, 2, 2, 2) = (/ & - & 0.15580e+03,0.26157e+03,0.36756e+03,0.47303e+03,0.55028e+03, & - & 0.54339e+03,0.44423e+03,0.26007e+03,0.71840e+02 /) - kao(:, 3, 2, 2) = (/ & - & 0.15244e+03,0.25844e+03,0.36465e+03,0.47023e+03,0.54619e+03, & - & 0.53664e+03,0.43708e+03,0.25581e+03,0.71840e+02 /) - kao(:, 4, 2, 2) = (/ & - & 0.14941e+03,0.25556e+03,0.36191e+03,0.46753e+03,0.54253e+03, & - & 0.53041e+03,0.43052e+03,0.25198e+03,0.71840e+02 /) - kao(:, 5, 2, 2) = (/ & - & 0.14667e+03,0.25289e+03,0.35930e+03,0.46494e+03,0.53908e+03, & - & 0.52470e+03,0.42448e+03,0.24851e+03,0.71840e+02 /) - kao(:, 1, 3, 2) = (/ & - & 0.14921e+03,0.25601e+03,0.36308e+03,0.46872e+03,0.54234e+03, & - & 0.52999e+03,0.43007e+03,0.25172e+03,0.71840e+02 /) - kao(:, 2, 3, 2) = (/ & - & 0.14591e+03,0.25301e+03,0.36036e+03,0.46599e+03,0.53834e+03, & - & 0.52313e+03,0.42280e+03,0.24755e+03,0.71840e+02 /) - kao(:, 3, 3, 2) = (/ & - & 0.14297e+03,0.25028e+03,0.35782e+03,0.46350e+03,0.53459e+03, & - & 0.51696e+03,0.41619e+03,0.24383e+03,0.71840e+02 /) - kao(:, 4, 3, 2) = (/ & - & 0.14033e+03,0.24777e+03,0.35542e+03,0.46116e+03,0.53100e+03, & - & 0.51122e+03,0.41016e+03,0.24049e+03,0.71840e+02 /) - kao(:, 5, 3, 2) = (/ & - & 0.13795e+03,0.24544e+03,0.35313e+03,0.45882e+03,0.52751e+03, & - & 0.50591e+03,0.40463e+03,0.23747e+03,0.71840e+02 /) - kao(:, 1, 4, 2) = (/ & - & 0.14062e+03,0.24856e+03,0.35678e+03,0.46260e+03,0.53137e+03, & - & 0.51186e+03,0.41082e+03,0.24086e+03,0.71840e+02 /) - kao(:, 2, 4, 2) = (/ & - & 0.13771e+03,0.24592e+03,0.35440e+03,0.46020e+03,0.52732e+03, & - & 0.50537e+03,0.40407e+03,0.23717e+03,0.71840e+02 /) - kao(:, 3, 4, 2) = (/ & - & 0.13512e+03,0.24353e+03,0.35219e+03,0.45796e+03,0.52348e+03, & - & 0.49954e+03,0.39798e+03,0.23389e+03,0.71840e+02 /) - kao(:, 4, 4, 2) = (/ & - & 0.13281e+03,0.24133e+03,0.35008e+03,0.45583e+03,0.51985e+03, & - & 0.49431e+03,0.39246e+03,0.23096e+03,0.71840e+02 /) - kao(:, 5, 4, 2) = (/ & - & 0.13073e+03,0.23928e+03,0.34807e+03,0.45378e+03,0.51643e+03, & - & 0.48957e+03,0.38745e+03,0.22833e+03,0.71840e+02 /) - kao(:, 1, 5, 2) = (/ & - & 0.13333e+03,0.24222e+03,0.35141e+03,0.45702e+03,0.52057e+03, & - & 0.49550e+03,0.39372e+03,0.23163e+03,0.71840e+02 /) - kao(:, 2, 5, 2) = (/ & - & 0.13075e+03,0.23990e+03,0.34934e+03,0.45476e+03,0.51651e+03, & - & 0.48963e+03,0.38752e+03,0.22836e+03,0.71840e+02 /) - kao(:, 3, 5, 2) = (/ & - & 0.12847e+03,0.23780e+03,0.34741e+03,0.45266e+03,0.51271e+03, & - & 0.48438e+03,0.38196e+03,0.22548e+03,0.71840e+02 /) - kao(:, 4, 5, 2) = (/ & - & 0.12644e+03,0.23588e+03,0.34557e+03,0.45066e+03,0.50911e+03, & - & 0.47962e+03,0.37696e+03,0.22291e+03,0.71840e+02 /) - kao(:, 5, 5, 2) = (/ & - & 0.12462e+03,0.23409e+03,0.34381e+03,0.44874e+03,0.50570e+03, & - & 0.47526e+03,0.37245e+03,0.22060e+03,0.71840e+02 /) - kao(:, 1, 6, 2) = (/ & - & 0.12722e+03,0.23690e+03,0.34688e+03,0.45177e+03,0.51032e+03, & - & 0.48144e+03,0.37887e+03,0.22389e+03,0.71840e+02 /) - kao(:, 2, 6, 2) = (/ & - & 0.12492e+03,0.23485e+03,0.34508e+03,0.44967e+03,0.50620e+03, & - & 0.47598e+03,0.37319e+03,0.22098e+03,0.71840e+02 /) - kao(:, 3, 6, 2) = (/ & - & 0.12290e+03,0.23301e+03,0.34340e+03,0.44769e+03,0.50242e+03, & - & 0.47108e+03,0.36815e+03,0.21843e+03,0.71840e+02 /) - kao(:, 4, 6, 2) = (/ & - & 0.12111e+03,0.23132e+03,0.34180e+03,0.44582e+03,0.49894e+03, & - & 0.46668e+03,0.36363e+03,0.21616e+03,0.71840e+02 /) - kao(:, 5, 6, 2) = (/ & - & 0.11952e+03,0.22976e+03,0.34026e+03,0.44407e+03,0.49574e+03, & - & 0.46270e+03,0.35956e+03,0.21414e+03,0.71840e+02 /) - kao(:, 1, 7, 2) = (/ & - & 0.12201e+03,0.23235e+03,0.34300e+03,0.44700e+03,0.50054e+03, & - & 0.46889e+03,0.36590e+03,0.21730e+03,0.71840e+02 /) - kao(:, 2, 7, 2) = (/ & - & 0.11997e+03,0.23055e+03,0.34145e+03,0.44492e+03,0.49657e+03, & - & 0.46383e+03,0.36071e+03,0.21471e+03,0.71840e+02 /) - kao(:, 3, 7, 2) = (/ & - & 0.11818e+03,0.22894e+03,0.33999e+03,0.44309e+03,0.49292e+03, & - & 0.45934e+03,0.35613e+03,0.21245e+03,0.71840e+02 /) - kao(:, 4, 7, 2) = (/ & - & 0.11660e+03,0.22746e+03,0.33859e+03,0.44146e+03,0.48959e+03, & - & 0.45533e+03,0.35208e+03,0.21045e+03,0.71840e+02 /) - kao(:, 5, 7, 2) = (/ & - & 0.11520e+03,0.22609e+03,0.33724e+03,0.43996e+03,0.48657e+03, & - & 0.45175e+03,0.34847e+03,0.20867e+03,0.71840e+02 /) - kao(:, 1, 8, 2) = (/ & - & 0.11756e+03,0.22844e+03,0.33965e+03,0.44261e+03,0.49147e+03, & - & 0.45776e+03,0.35454e+03,0.21166e+03,0.71840e+02 /) - kao(:, 2, 8, 2) = (/ & - & 0.11574e+03,0.22687e+03,0.33830e+03,0.44082e+03,0.48767e+03, & - & 0.45313e+03,0.34986e+03,0.20936e+03,0.71840e+02 /) - kao(:, 3, 8, 2) = (/ & - & 0.11415e+03,0.22546e+03,0.33704e+03,0.43915e+03,0.48429e+03, & - & 0.44908e+03,0.34579e+03,0.20735e+03,0.71840e+02 /) - kao(:, 4, 8, 2) = (/ & - & 0.11276e+03,0.22417e+03,0.33584e+03,0.43758e+03,0.48126e+03, & - & 0.44549e+03,0.34220e+03,0.20559e+03,0.71840e+02 /) - kao(:, 5, 8, 2) = (/ & - & 0.11153e+03,0.22298e+03,0.33466e+03,0.43617e+03,0.47855e+03, & - & 0.44228e+03,0.33902e+03,0.20403e+03,0.71840e+02 /) - kao(:, 1, 9, 2) = (/ & - & 0.11376e+03,0.22510e+03,0.33674e+03,0.43882e+03,0.48336e+03, & - & 0.44807e+03,0.34479e+03,0.20686e+03,0.71840e+02 /) - kao(:, 2, 9, 2) = (/ & - & 0.11214e+03,0.22372e+03,0.33559e+03,0.43706e+03,0.47989e+03, & - & 0.44388e+03,0.34060e+03,0.20480e+03,0.71840e+02 /) - kao(:, 3, 9, 2) = (/ & - & 0.11074e+03,0.22250e+03,0.33451e+03,0.43547e+03,0.47679e+03, & - & 0.44020e+03,0.33697e+03,0.20303e+03,0.71840e+02 /) - kao(:, 4, 9, 2) = (/ & - & 0.10951e+03,0.22138e+03,0.33348e+03,0.43404e+03,0.47404e+03, & - & 0.43694e+03,0.33379e+03,0.20147e+03,0.71840e+02 /) - kao(:, 5, 9, 2) = (/ & - & 0.10843e+03,0.22034e+03,0.33246e+03,0.43277e+03,0.47159e+03, & - & 0.43405e+03,0.33096e+03,0.20010e+03,0.71840e+02 /) - kao(:, 1,10, 2) = (/ & - & 0.11041e+03,0.22214e+03,0.33414e+03,0.43517e+03,0.47604e+03, & - & 0.43932e+03,0.33611e+03,0.20261e+03,0.71840e+02 /) - kao(:, 2,10, 2) = (/ & - & 0.10898e+03,0.22095e+03,0.33317e+03,0.43358e+03,0.47283e+03, & - & 0.43552e+03,0.33239e+03,0.20080e+03,0.71840e+02 /) - kao(:, 3,10, 2) = (/ & - & 0.10774e+03,0.21989e+03,0.33226e+03,0.43213e+03,0.47002e+03, & - & 0.43222e+03,0.32917e+03,0.19924e+03,0.71840e+02 /) - kao(:, 4,10, 2) = (/ & - & 0.10667e+03,0.21893e+03,0.33139e+03,0.43083e+03,0.46753e+03, & - & 0.42932e+03,0.32634e+03,0.19788e+03,0.71840e+02 /) - kao(:, 5,10, 2) = (/ & - & 0.10573e+03,0.21803e+03,0.33053e+03,0.42965e+03,0.46532e+03, & - & 0.42677e+03,0.32386e+03,0.19669e+03,0.71840e+02 /) - kao(:, 1,11, 2) = (/ & - & 0.10694e+03,0.21911e+03,0.33152e+03,0.43127e+03,0.46816e+03, & - & 0.43005e+03,0.32706e+03,0.19822e+03,0.71840e+02 /) - kao(:, 2,11, 2) = (/ & - & 0.10577e+03,0.21815e+03,0.33074e+03,0.42984e+03,0.46541e+03, & - & 0.42687e+03,0.32396e+03,0.19674e+03,0.71840e+02 /) - kao(:, 3,11, 2) = (/ & - & 0.10476e+03,0.21728e+03,0.33000e+03,0.42855e+03,0.46301e+03, & - & 0.42411e+03,0.32130e+03,0.19546e+03,0.71840e+02 /) - kao(:, 4,11, 2) = (/ & - & 0.10388e+03,0.21649e+03,0.32928e+03,0.42741e+03,0.46089e+03, & - & 0.42169e+03,0.31897e+03,0.19435e+03,0.71840e+02 /) - kao(:, 5,11, 2) = (/ & - & 0.10311e+03,0.21575e+03,0.32855e+03,0.42639e+03,0.45902e+03, & - & 0.41954e+03,0.31692e+03,0.19338e+03,0.71840e+02 /) - kao(:, 1,12, 2) = (/ & - & 0.10410e+03,0.21663e+03,0.32937e+03,0.42778e+03,0.46141e+03, & - & 0.42229e+03,0.31955e+03,0.19463e+03,0.71840e+02 /) - kao(:, 2,12, 2) = (/ & - & 0.10314e+03,0.21585e+03,0.32875e+03,0.42654e+03,0.45909e+03, & - & 0.41961e+03,0.31700e+03,0.19341e+03,0.71840e+02 /) - kao(:, 3,12, 2) = (/ & - & 0.10231e+03,0.21515e+03,0.32815e+03,0.42544e+03,0.45707e+03, & - & 0.41729e+03,0.31480e+03,0.19236e+03,0.71840e+02 /) - kao(:, 4,12, 2) = (/ & - & 0.10159e+03,0.21449e+03,0.32754e+03,0.42445e+03,0.45532e+03, & - & 0.41526e+03,0.31288e+03,0.19145e+03,0.71840e+02 /) - kao(:, 5,12, 2) = (/ & - & 0.10096e+03,0.21387e+03,0.32692e+03,0.42356e+03,0.45377e+03, & - & 0.41347e+03,0.31119e+03,0.19066e+03,0.71840e+02 /) - kao(:, 1,13, 2) = (/ & - & 0.10177e+03,0.21460e+03,0.32761e+03,0.42475e+03,0.45575e+03, & - & 0.41576e+03,0.31335e+03,0.19168e+03,0.71840e+02 /) - kao(:, 2,13, 2) = (/ & - & 0.10099e+03,0.21397e+03,0.32712e+03,0.42368e+03,0.45383e+03, & - & 0.41353e+03,0.31125e+03,0.19068e+03,0.71840e+02 /) - kao(:, 3,13, 2) = (/ & - & 0.10031e+03,0.21340e+03,0.32663e+03,0.42272e+03,0.45216e+03, & - & 0.41160e+03,0.30943e+03,0.18983e+03,0.71840e+02 /) - kao(:, 4,13, 2) = (/ & - & 0.99720e+02,0.21286e+03,0.32612e+03,0.42187e+03,0.45071e+03, & - & 0.40991e+03,0.30785e+03,0.18908e+03,0.71840e+02 /) - kao(:, 5,13, 2) = (/ & - & 0.99204e+02,0.21233e+03,0.32558e+03,0.42112e+03,0.44942e+03, & - & 0.40842e+03,0.30646e+03,0.18843e+03,0.71840e+02 /) - kao(:, 1, 1, 3) = (/ & - & 0.44909e+03,0.47445e+03,0.49981e+03,0.52556e+03,0.59352e+03, & - & 0.63011e+03,0.50440e+03,0.31793e+03,0.17829e+03 /) - kao(:, 2, 1, 3) = (/ & - & 0.43771e+03,0.46449e+03,0.49128e+03,0.51852e+03,0.58982e+03, & - & 0.62155e+03,0.49364e+03,0.31383e+03,0.17829e+03 /) - kao(:, 3, 1, 3) = (/ & - & 0.42749e+03,0.45555e+03,0.48362e+03,0.51220e+03,0.58623e+03, & - & 0.61324e+03,0.48379e+03,0.31014e+03,0.17829e+03 /) - kao(:, 4, 1, 3) = (/ & - & 0.41826e+03,0.44748e+03,0.47670e+03,0.50650e+03,0.58281e+03, & - & 0.60555e+03,0.47483e+03,0.30681e+03,0.17829e+03 /) - kao(:, 5, 1, 3) = (/ & - & 0.40989e+03,0.44015e+03,0.47042e+03,0.50132e+03,0.57944e+03, & - & 0.59846e+03,0.46657e+03,0.30379e+03,0.17829e+03 /) - kao(:, 1, 2, 3) = (/ & - & 0.41487e+03,0.44451e+03,0.47415e+03,0.50447e+03,0.58410e+03, & - & 0.60269e+03,0.47150e+03,0.30559e+03,0.17829e+03 /) - kao(:, 2, 2, 3) = (/ & - & 0.40511e+03,0.43597e+03,0.46683e+03,0.49854e+03,0.58056e+03, & - & 0.59434e+03,0.46181e+03,0.30207e+03,0.17829e+03 /) - kao(:, 3, 2, 3) = (/ & - & 0.39637e+03,0.42832e+03,0.46028e+03,0.49326e+03,0.57701e+03, & - & 0.58648e+03,0.45298e+03,0.29892e+03,0.17829e+03 /) - kao(:, 4, 2, 3) = (/ & - & 0.38850e+03,0.42143e+03,0.45437e+03,0.48855e+03,0.57350e+03, & - & 0.57914e+03,0.44500e+03,0.29608e+03,0.17829e+03 /) - kao(:, 5, 2, 3) = (/ & - & 0.38136e+03,0.41519e+03,0.44902e+03,0.48433e+03,0.57004e+03, & - & 0.57245e+03,0.43774e+03,0.29351e+03,0.17829e+03 /) - kao(:, 1, 3, 3) = (/ & - & 0.38797e+03,0.42097e+03,0.45397e+03,0.48897e+03,0.57508e+03, & - & 0.57865e+03,0.44446e+03,0.29589e+03,0.17829e+03 /) - kao(:, 2, 3, 3) = (/ & - & 0.37940e+03,0.41348e+03,0.44755e+03,0.48416e+03,0.57138e+03, & - & 0.57059e+03,0.43573e+03,0.29280e+03,0.17829e+03 /) - kao(:, 3, 3, 3) = (/ & - & 0.37176e+03,0.40679e+03,0.44182e+03,0.47985e+03,0.56781e+03, & - & 0.56324e+03,0.42791e+03,0.29005e+03,0.17829e+03 /) - kao(:, 4, 3, 3) = (/ & - & 0.36490e+03,0.40078e+03,0.43667e+03,0.47599e+03,0.56436e+03, & - & 0.55656e+03,0.42088e+03,0.28757e+03,0.17829e+03 /) - kao(:, 5, 3, 3) = (/ & - & 0.35870e+03,0.39536e+03,0.43202e+03,0.47253e+03,0.56109e+03, & - & 0.55041e+03,0.41448e+03,0.28534e+03,0.17829e+03 /) - kao(:, 1, 4, 3) = (/ & - & 0.36565e+03,0.40144e+03,0.43723e+03,0.47759e+03,0.56581e+03, & - & 0.55729e+03,0.42164e+03,0.28784e+03,0.17829e+03 /) - kao(:, 2, 4, 3) = (/ & - & 0.35808e+03,0.39482e+03,0.43155e+03,0.47386e+03,0.56215e+03, & - & 0.54978e+03,0.41381e+03,0.28511e+03,0.17829e+03 /) - kao(:, 3, 4, 3) = (/ & - & 0.35135e+03,0.38893e+03,0.42651e+03,0.47052e+03,0.55875e+03, & - & 0.54295e+03,0.40683e+03,0.28269e+03,0.17829e+03 /) - kao(:, 4, 4, 3) = (/ & - & 0.34533e+03,0.38366e+03,0.42199e+03,0.46746e+03,0.55555e+03, & - & 0.53669e+03,0.40055e+03,0.28052e+03,0.17829e+03 /) - kao(:, 5, 4, 3) = (/ & - & 0.33991e+03,0.37892e+03,0.41793e+03,0.46467e+03,0.55244e+03, & - & 0.53093e+03,0.39488e+03,0.27856e+03,0.17829e+03 /) - kao(:, 1, 5, 3) = (/ & - & 0.34669e+03,0.38485e+03,0.42301e+03,0.46943e+03,0.55667e+03, & - & 0.53812e+03,0.40197e+03,0.28101e+03,0.17829e+03 /) - kao(:, 2, 5, 3) = (/ & - & 0.33999e+03,0.37899e+03,0.41799e+03,0.46662e+03,0.55311e+03, & - & 0.53101e+03,0.39496e+03,0.27859e+03,0.17829e+03 /) - kao(:, 3, 5, 3) = (/ & - & 0.33406e+03,0.37380e+03,0.41354e+03,0.46416e+03,0.54976e+03, & - & 0.52459e+03,0.38873e+03,0.27645e+03,0.17829e+03 /) - kao(:, 4, 5, 3) = (/ & - & 0.32878e+03,0.36918e+03,0.40958e+03,0.46185e+03,0.54671e+03, & - & 0.51881e+03,0.38326e+03,0.27455e+03,0.17829e+03 /) - kao(:, 5, 5, 3) = (/ & - & 0.32404e+03,0.36503e+03,0.40603e+03,0.45969e+03,0.54395e+03, & - & 0.51356e+03,0.37844e+03,0.27284e+03,0.17829e+03 /) - kao(:, 1, 6, 3) = (/ & - & 0.33079e+03,0.37094e+03,0.41109e+03,0.46395e+03,0.54790e+03, & - & 0.52101e+03,0.38534e+03,0.27527e+03,0.17829e+03 /) - kao(:, 2, 6, 3) = (/ & - & 0.32482e+03,0.36572e+03,0.40662e+03,0.46188e+03,0.54448e+03, & - & 0.51443e+03,0.37923e+03,0.27312e+03,0.17829e+03 /) - kao(:, 3, 6, 3) = (/ & - & 0.31958e+03,0.36113e+03,0.40268e+03,0.45998e+03,0.54143e+03, & - & 0.50857e+03,0.37397e+03,0.27123e+03,0.17829e+03 /) - kao(:, 4, 6, 3) = (/ & - & 0.31492e+03,0.35705e+03,0.39919e+03,0.45816e+03,0.53866e+03, & - & 0.50335e+03,0.36939e+03,0.26955e+03,0.17829e+03 /) - kao(:, 5, 6, 3) = (/ & - & 0.31076e+03,0.35342e+03,0.39607e+03,0.45638e+03,0.53611e+03, & - & 0.49868e+03,0.36537e+03,0.26805e+03,0.17829e+03 /) - kao(:, 1, 7, 3) = (/ & - & 0.31725e+03,0.35910e+03,0.40094e+03,0.45992e+03,0.53978e+03, & - & 0.50597e+03,0.37168e+03,0.27039e+03,0.17829e+03 /) - kao(:, 2, 7, 3) = (/ & - & 0.31194e+03,0.35445e+03,0.39695e+03,0.45835e+03,0.53664e+03, & - & 0.50000e+03,0.36650e+03,0.26848e+03,0.17829e+03 /) - kao(:, 3, 7, 3) = (/ & - & 0.30729e+03,0.35038e+03,0.39347e+03,0.45686e+03,0.53383e+03, & - & 0.49465e+03,0.36205e+03,0.26680e+03,0.17829e+03 /) - kao(:, 4, 7, 3) = (/ & - & 0.30318e+03,0.34679e+03,0.39040e+03,0.45536e+03,0.53125e+03, & - & 0.48979e+03,0.35818e+03,0.26532e+03,0.17829e+03 /) - kao(:, 5, 7, 3) = (/ & - & 0.29953e+03,0.34359e+03,0.38767e+03,0.45383e+03,0.52882e+03, & - & 0.48543e+03,0.35479e+03,0.26401e+03,0.17829e+03 /) - kao(:, 1, 8, 3) = (/ & - & 0.30567e+03,0.34896e+03,0.39226e+03,0.45673e+03,0.53243e+03, & - & 0.49274e+03,0.36052e+03,0.26622e+03,0.17829e+03 /) - kao(:, 2, 8, 3) = (/ & - & 0.30094e+03,0.34482e+03,0.38872e+03,0.45541e+03,0.52945e+03, & - & 0.48711e+03,0.35609e+03,0.26451e+03,0.17829e+03 /) - kao(:, 3, 8, 3) = (/ & - & 0.29682e+03,0.34122e+03,0.38564e+03,0.45413e+03,0.52674e+03, & - & 0.48217e+03,0.35231e+03,0.26303e+03,0.17829e+03 /) - kao(:, 4, 8, 3) = (/ & - & 0.29320e+03,0.33805e+03,0.38294e+03,0.45285e+03,0.52426e+03, & - & 0.47779e+03,0.34904e+03,0.26172e+03,0.17829e+03 /) - kao(:, 5, 8, 3) = (/ & - & 0.29000e+03,0.33525e+03,0.38055e+03,0.45152e+03,0.52191e+03, & - & 0.47388e+03,0.34618e+03,0.26057e+03,0.17829e+03 /) - kao(:, 1, 9, 3) = (/ & - & 0.29581e+03,0.34033e+03,0.38489e+03,0.45387e+03,0.52555e+03, & - & 0.48095e+03,0.35139e+03,0.26266e+03,0.17829e+03 /) - kao(:, 2, 9, 3) = (/ & - & 0.29159e+03,0.33664e+03,0.38173e+03,0.45277e+03,0.52268e+03, & - & 0.47582e+03,0.34759e+03,0.26114e+03,0.17829e+03 /) - kao(:, 3, 9, 3) = (/ & - & 0.28794e+03,0.33344e+03,0.37901e+03,0.45167e+03,0.52008e+03, & - & 0.47135e+03,0.34436e+03,0.25982e+03,0.17829e+03 /) - kao(:, 4, 9, 3) = (/ & - & 0.28475e+03,0.33065e+03,0.37663e+03,0.45055e+03,0.51765e+03, & - & 0.46738e+03,0.34157e+03,0.25867e+03,0.17829e+03 /) - kao(:, 5, 9, 3) = (/ & - & 0.28193e+03,0.32819e+03,0.37453e+03,0.44937e+03,0.51538e+03, & - & 0.46382e+03,0.33916e+03,0.25766e+03,0.17829e+03 /) - kao(:, 1,10, 3) = (/ & - & 0.28708e+03,0.33269e+03,0.37836e+03,0.45121e+03,0.51885e+03, & - & 0.47029e+03,0.34361e+03,0.25951e+03,0.17829e+03 /) - kao(:, 2,10, 3) = (/ & - & 0.28336e+03,0.32944e+03,0.37559e+03,0.45027e+03,0.51611e+03, & - & 0.46563e+03,0.34037e+03,0.25817e+03,0.17829e+03 /) - kao(:, 3,10, 3) = (/ & - & 0.28016e+03,0.32664e+03,0.37320e+03,0.44932e+03,0.51361e+03, & - & 0.46153e+03,0.33765e+03,0.25702e+03,0.17829e+03 /) - kao(:, 4,10, 3) = (/ & - & 0.27737e+03,0.32420e+03,0.37112e+03,0.44835e+03,0.51133e+03, & - & 0.45793e+03,0.33532e+03,0.25601e+03,0.17829e+03 /) - kao(:, 5,10, 3) = (/ & - & 0.27492e+03,0.32206e+03,0.36930e+03,0.44735e+03,0.50922e+03, & - & 0.45473e+03,0.33330e+03,0.25513e+03,0.17829e+03 /) - kao(:, 1,11, 3) = (/ & - & 0.27807e+03,0.32481e+03,0.37164e+03,0.44842e+03,0.51141e+03, & - & 0.45884e+03,0.33590e+03,0.25627e+03,0.17829e+03 /) - kao(:, 2,11, 3) = (/ & - & 0.27502e+03,0.32214e+03,0.36937e+03,0.44764e+03,0.50894e+03, & - & 0.45486e+03,0.33338e+03,0.25517e+03,0.17829e+03 /) - kao(:, 3,11, 3) = (/ & - & 0.27240e+03,0.31985e+03,0.36742e+03,0.44685e+03,0.50671e+03, & - & 0.45139e+03,0.33123e+03,0.25422e+03,0.17829e+03 /) - kao(:, 4,11, 3) = (/ & - & 0.27012e+03,0.31785e+03,0.36572e+03,0.44602e+03,0.50464e+03, & - & 0.44836e+03,0.32939e+03,0.25340e+03,0.17829e+03 /) - kao(:, 5,11, 3) = (/ & - & 0.26811e+03,0.31610e+03,0.36422e+03,0.44514e+03,0.50273e+03, & - & 0.44569e+03,0.32779e+03,0.25268e+03,0.17829e+03 /) - kao(:, 1,12, 3) = (/ & - & 0.27068e+03,0.31834e+03,0.36613e+03,0.44605e+03,0.50476e+03, & - & 0.44911e+03,0.32983e+03,0.25360e+03,0.17829e+03 /) - kao(:, 2,12, 3) = (/ & - & 0.26818e+03,0.31616e+03,0.36428e+03,0.44539e+03,0.50255e+03, & - & 0.44579e+03,0.32784e+03,0.25270e+03,0.17829e+03 /) - kao(:, 3,12, 3) = (/ & - & 0.26603e+03,0.31428e+03,0.36268e+03,0.44471e+03,0.50054e+03, & - & 0.44293e+03,0.32614e+03,0.25193e+03,0.17829e+03 /) - kao(:, 4,12, 3) = (/ & - & 0.26417e+03,0.31264e+03,0.36129e+03,0.44399e+03,0.49874e+03, & - & 0.44043e+03,0.32468e+03,0.25125e+03,0.17829e+03 /) - kao(:, 5,12, 3) = (/ & - & 0.26252e+03,0.31121e+03,0.36005e+03,0.44322e+03,0.49710e+03, & - & 0.43824e+03,0.32341e+03,0.25066e+03,0.17829e+03 /) - kao(:, 1,13, 3) = (/ & - & 0.26463e+03,0.31305e+03,0.36163e+03,0.44400e+03,0.49889e+03, & - & 0.44105e+03,0.32504e+03,0.25142e+03,0.17829e+03 /) - kao(:, 2,13, 3) = (/ & - & 0.26258e+03,0.31126e+03,0.36010e+03,0.44348e+03,0.49698e+03, & - & 0.43831e+03,0.32345e+03,0.25068e+03,0.17829e+03 /) - kao(:, 3,13, 3) = (/ & - & 0.26082e+03,0.30972e+03,0.35880e+03,0.44291e+03,0.49519e+03, & - & 0.43595e+03,0.32210e+03,0.25005e+03,0.17829e+03 /) - kao(:, 4,13, 3) = (/ & - & 0.25929e+03,0.30838e+03,0.35766e+03,0.44229e+03,0.49360e+03, & - & 0.43388e+03,0.32093e+03,0.24950e+03,0.17829e+03 /) - kao(:, 5,13, 3) = (/ & - & 0.25795e+03,0.30721e+03,0.35666e+03,0.44160e+03,0.49217e+03, & - & 0.43204e+03,0.31991e+03,0.24901e+03,0.17829e+03 /) - kao(:, 1, 1, 4) = (/ & - & 0.86913e+03,0.80389e+03,0.73864e+03,0.67339e+03,0.62239e+03, & - & 0.67741e+03,0.51596e+03,0.43641e+03,0.38437e+03 /) - kao(:, 2, 1, 4) = (/ & - & 0.84711e+03,0.78462e+03,0.72212e+03,0.65963e+03,0.61530e+03, & - & 0.66963e+03,0.50564e+03,0.43387e+03,0.38437e+03 /) - kao(:, 3, 1, 4) = (/ & - & 0.82734e+03,0.76731e+03,0.70729e+03,0.64727e+03,0.60932e+03, & - & 0.66251e+03,0.49688e+03,0.43160e+03,0.38437e+03 /) - kao(:, 4, 1, 4) = (/ & - & 0.80948e+03,0.75169e+03,0.69390e+03,0.63611e+03,0.60420e+03, & - & 0.65531e+03,0.48930e+03,0.42954e+03,0.38437e+03 /) - kao(:, 5, 1, 4) = (/ & - & 0.79327e+03,0.73751e+03,0.68174e+03,0.62598e+03,0.59980e+03, & - & 0.64776e+03,0.48275e+03,0.42767e+03,0.38437e+03 /) - kao(:, 1, 2, 4) = (/ & - & 0.80291e+03,0.74594e+03,0.68897e+03,0.63200e+03,0.60547e+03, & - & 0.65273e+03,0.48660e+03,0.42878e+03,0.38437e+03 /) - kao(:, 2, 2, 4) = (/ & - & 0.78403e+03,0.72942e+03,0.67481e+03,0.62020e+03,0.60133e+03, & - & 0.64384e+03,0.47915e+03,0.42661e+03,0.38437e+03 /) - kao(:, 3, 2, 4) = (/ & - & 0.76711e+03,0.71462e+03,0.66212e+03,0.60962e+03,0.59788e+03, & - & 0.63506e+03,0.47284e+03,0.42466e+03,0.38437e+03 /) - kao(:, 4, 2, 4) = (/ & - & 0.75187e+03,0.70128e+03,0.65069e+03,0.60010e+03,0.59472e+03, & - & 0.62679e+03,0.46742e+03,0.42291e+03,0.38437e+03 /) - kao(:, 5, 2, 4) = (/ & - & 0.73807e+03,0.68920e+03,0.64034e+03,0.59147e+03,0.59165e+03, & - & 0.61864e+03,0.46272e+03,0.42132e+03,0.38437e+03 /) - kao(:, 1, 3, 4) = (/ & - & 0.75084e+03,0.70038e+03,0.64992e+03,0.59946e+03,0.59732e+03, & - & 0.62621e+03,0.46707e+03,0.42279e+03,0.38437e+03 /) - kao(:, 2, 3, 4) = (/ & - & 0.73427e+03,0.68588e+03,0.63749e+03,0.58910e+03,0.59435e+03, & - & 0.61627e+03,0.46147e+03,0.42088e+03,0.38437e+03 /) - kao(:, 3, 3, 4) = (/ & - & 0.71948e+03,0.67294e+03,0.62640e+03,0.57986e+03,0.59145e+03, & - & 0.60690e+03,0.45675e+03,0.41918e+03,0.38437e+03 /) - kao(:, 4, 3, 4) = (/ & - & 0.70620e+03,0.66132e+03,0.61644e+03,0.57156e+03,0.58863e+03, & - & 0.59842e+03,0.45269e+03,0.41765e+03,0.38437e+03 /) - kao(:, 5, 3, 4) = (/ & - & 0.69421e+03,0.65083e+03,0.60744e+03,0.56406e+03,0.58580e+03, & - & 0.59032e+03,0.44923e+03,0.41627e+03,0.38437e+03 /) - kao(:, 1, 4, 4) = (/ & - & 0.70765e+03,0.66259e+03,0.61753e+03,0.57246e+03,0.59114e+03, & - & 0.59936e+03,0.45313e+03,0.41781e+03,0.38437e+03 /) - kao(:, 2, 4, 4) = (/ & - & 0.69300e+03,0.64977e+03,0.60654e+03,0.56330e+03,0.58834e+03, & - & 0.58949e+03,0.44892e+03,0.41613e+03,0.38437e+03 /) - kao(:, 3, 4, 4) = (/ & - & 0.67997e+03,0.63837e+03,0.59677e+03,0.55516e+03,0.58563e+03, & - & 0.58057e+03,0.44538e+03,0.41463e+03,0.38437e+03 /) - kao(:, 4, 4, 4) = (/ & - & 0.66833e+03,0.62818e+03,0.58803e+03,0.54788e+03,0.58292e+03, & - & 0.57257e+03,0.44238e+03,0.41329e+03,0.38437e+03 /) - kao(:, 5, 4, 4) = (/ & - & 0.65784e+03,0.61901e+03,0.58017e+03,0.54133e+03,0.58031e+03, & - & 0.56522e+03,0.43982e+03,0.41208e+03,0.38437e+03 /) - kao(:, 1, 5, 4) = (/ & - & 0.67096e+03,0.63048e+03,0.59001e+03,0.54953e+03,0.58521e+03, & - & 0.57438e+03,0.44304e+03,0.41359e+03,0.38437e+03 /) - kao(:, 2, 5, 4) = (/ & - & 0.65799e+03,0.61913e+03,0.58028e+03,0.54142e+03,0.58256e+03, & - & 0.56532e+03,0.43984e+03,0.41210e+03,0.38437e+03 /) - kao(:, 3, 5, 4) = (/ & - & 0.64651e+03,0.60909e+03,0.57167e+03,0.53427e+03,0.57997e+03, & - & 0.55705e+03,0.43718e+03,0.41077e+03,0.38437e+03 /) - kao(:, 4, 5, 4) = (/ & - & 0.63629e+03,0.60015e+03,0.56401e+03,0.52793e+03,0.57742e+03, & - & 0.54959e+03,0.43482e+03,0.40960e+03,0.38437e+03 /) - kao(:, 5, 5, 4) = (/ & - & 0.62713e+03,0.59213e+03,0.55713e+03,0.52227e+03,0.57480e+03, & - & 0.54282e+03,0.43271e+03,0.40854e+03,0.38437e+03 /) - kao(:, 1, 6, 4) = (/ & - & 0.64019e+03,0.60356e+03,0.56693e+03,0.53034e+03,0.57955e+03, & - & 0.55244e+03,0.43572e+03,0.41005e+03,0.38437e+03 /) - kao(:, 2, 6, 4) = (/ & - & 0.62864e+03,0.59346e+03,0.55827e+03,0.52321e+03,0.57700e+03, & - & 0.54395e+03,0.43306e+03,0.40872e+03,0.38437e+03 /) - kao(:, 3, 6, 4) = (/ & - & 0.61849e+03,0.58457e+03,0.55065e+03,0.51703e+03,0.57439e+03, & - & 0.53634e+03,0.43072e+03,0.40755e+03,0.38437e+03 /) - kao(:, 4, 6, 4) = (/ & - & 0.60948e+03,0.57669e+03,0.54390e+03,0.51158e+03,0.57170e+03, & - & 0.52946e+03,0.42865e+03,0.40651e+03,0.38437e+03 /) - kao(:, 5, 6, 4) = (/ & - & 0.60143e+03,0.56965e+03,0.53786e+03,0.50675e+03,0.56897e+03, & - & 0.52321e+03,0.42679e+03,0.40558e+03,0.38437e+03 /) - kao(:, 1, 7, 4) = (/ & - & 0.61399e+03,0.58064e+03,0.54728e+03,0.51440e+03,0.57380e+03, & - & 0.53292e+03,0.42969e+03,0.40703e+03,0.38437e+03 /) - kao(:, 2, 7, 4) = (/ & - & 0.60371e+03,0.57164e+03,0.53957e+03,0.50828e+03,0.57103e+03, & - & 0.52498e+03,0.42732e+03,0.40585e+03,0.38437e+03 /) - kao(:, 3, 7, 4) = (/ & - & 0.59471e+03,0.56376e+03,0.53282e+03,0.50302e+03,0.56836e+03, & - & 0.51802e+03,0.42525e+03,0.40481e+03,0.38437e+03 /) - kao(:, 4, 7, 4) = (/ & - & 0.58676e+03,0.55681e+03,0.52686e+03,0.49842e+03,0.56580e+03, & - & 0.51197e+03,0.42342e+03,0.40389e+03,0.38437e+03 /) - kao(:, 5, 7, 4) = (/ & - & 0.57970e+03,0.55063e+03,0.52156e+03,0.49437e+03,0.56333e+03, & - & 0.50656e+03,0.42179e+03,0.40308e+03,0.38437e+03 /) - kao(:, 1, 8, 4) = (/ & - & 0.59158e+03,0.56102e+03,0.53047e+03,0.50136e+03,0.56762e+03, & - & 0.51564e+03,0.42452e+03,0.40445e+03,0.38437e+03 /) - kao(:, 2, 8, 4) = (/ & - & 0.58242e+03,0.55301e+03,0.52360e+03,0.49623e+03,0.56499e+03, & - & 0.50866e+03,0.42242e+03,0.40339e+03,0.38437e+03 /) - kao(:, 3, 8, 4) = (/ & - & 0.57445e+03,0.54604e+03,0.51762e+03,0.49188e+03,0.56245e+03, & - & 0.50238e+03,0.42058e+03,0.40248e+03,0.38437e+03 /) - kao(:, 4, 8, 4) = (/ & - & 0.56745e+03,0.53991e+03,0.51237e+03,0.48811e+03,0.55998e+03, & - & 0.49675e+03,0.41897e+03,0.40167e+03,0.38437e+03 /) - kao(:, 5, 8, 4) = (/ & - & 0.56125e+03,0.53448e+03,0.50772e+03,0.48477e+03,0.55757e+03, & - & 0.49178e+03,0.41754e+03,0.40096e+03,0.38437e+03 /) - kao(:, 1, 9, 4) = (/ & - & 0.57249e+03,0.54432e+03,0.51615e+03,0.49103e+03,0.56159e+03, & - & 0.50080e+03,0.42013e+03,0.40225e+03,0.38437e+03 /) - kao(:, 2, 9, 4) = (/ & - & 0.56432e+03,0.53718e+03,0.51003e+03,0.48678e+03,0.55899e+03, & - & 0.49424e+03,0.41825e+03,0.40131e+03,0.38437e+03 /) - kao(:, 3, 9, 4) = (/ & - & 0.55726e+03,0.53099e+03,0.50473e+03,0.48321e+03,0.55650e+03, & - & 0.48858e+03,0.41662e+03,0.40050e+03,0.38437e+03 /) - kao(:, 4, 9, 4) = (/ & - & 0.55108e+03,0.52559e+03,0.50010e+03,0.48011e+03,0.55416e+03, & - & 0.48367e+03,0.41520e+03,0.39978e+03,0.38437e+03 /) - kao(:, 5, 9, 4) = (/ & - & 0.54564e+03,0.52083e+03,0.49601e+03,0.47737e+03,0.55194e+03, & - & 0.47938e+03,0.41394e+03,0.39916e+03,0.38437e+03 /) - kao(:, 1,10, 4) = (/ & - & 0.55559e+03,0.52954e+03,0.50348e+03,0.48256e+03,0.55544e+03, & - & 0.48725e+03,0.41624e+03,0.40030e+03,0.38437e+03 /) - kao(:, 2,10, 4) = (/ & - & 0.54839e+03,0.52324e+03,0.49808e+03,0.47910e+03,0.55295e+03, & - & 0.48155e+03,0.41458e+03,0.39948e+03,0.38437e+03 /) - kao(:, 3,10, 4) = (/ & - & 0.54220e+03,0.51781e+03,0.49343e+03,0.47621e+03,0.55067e+03, & - & 0.47667e+03,0.41315e+03,0.39876e+03,0.38437e+03 /) - kao(:, 4,10, 4) = (/ & - & 0.53680e+03,0.51310e+03,0.48939e+03,0.47371e+03,0.54855e+03, & - & 0.47238e+03,0.41191e+03,0.39814e+03,0.38437e+03 /) - kao(:, 5,10, 4) = (/ & - & 0.53207e+03,0.50895e+03,0.48584e+03,0.47148e+03,0.54655e+03, & - & 0.46857e+03,0.41082e+03,0.39760e+03,0.38437e+03 /) - kao(:, 1,11, 4) = (/ & - & 0.53816e+03,0.51428e+03,0.49041e+03,0.47455e+03,0.54857e+03, & - & 0.47346e+03,0.41222e+03,0.39830e+03,0.38437e+03 /) - kao(:, 2,11, 4) = (/ & - & 0.53226e+03,0.50912e+03,0.48598e+03,0.47200e+03,0.54640e+03, & - & 0.46874e+03,0.41086e+03,0.39762e+03,0.38437e+03 /) - kao(:, 3,11, 4) = (/ & - & 0.52718e+03,0.50468e+03,0.48217e+03,0.46982e+03,0.54436e+03, & - & 0.46486e+03,0.40969e+03,0.39703e+03,0.38437e+03 /) - kao(:, 4,11, 4) = (/ & - & 0.52277e+03,0.50081e+03,0.47886e+03,0.46790e+03,0.54248e+03, & - & 0.46109e+03,0.40868e+03,0.39652e+03,0.38437e+03 /) - kao(:, 5,11, 4) = (/ & - & 0.51889e+03,0.49742e+03,0.47595e+03,0.46618e+03,0.54076e+03, & - & 0.45793e+03,0.40778e+03,0.39608e+03,0.38437e+03 /) - kao(:, 1,12, 4) = (/ & - & 0.52385e+03,0.50177e+03,0.47968e+03,0.46863e+03,0.54244e+03, & - & 0.46202e+03,0.40893e+03,0.39665e+03,0.38437e+03 /) - kao(:, 2,12, 4) = (/ & - & 0.51902e+03,0.49754e+03,0.47606e+03,0.46673e+03,0.54050e+03, & - & 0.45805e+03,0.40782e+03,0.39609e+03,0.38437e+03 /) - kao(:, 3,12, 4) = (/ & - & 0.51487e+03,0.49390e+03,0.47294e+03,0.46509e+03,0.53868e+03, & - & 0.45465e+03,0.40686e+03,0.39561e+03,0.38437e+03 /) - kao(:, 4,12, 4) = (/ & - & 0.51125e+03,0.49074e+03,0.47022e+03,0.46362e+03,0.53703e+03, & - & 0.45171e+03,0.40602e+03,0.39520e+03,0.38437e+03 /) - kao(:, 5,12, 4) = (/ & - & 0.50807e+03,0.48796e+03,0.46784e+03,0.46227e+03,0.53558e+03, & - & 0.44916e+03,0.40529e+03,0.39483e+03,0.38437e+03 /) - kao(:, 1,13, 4) = (/ & - & 0.51214e+03,0.49152e+03,0.47089e+03,0.46425e+03,0.53698e+03, & - & 0.45243e+03,0.40623e+03,0.39530e+03,0.38437e+03 /) - kao(:, 2,13, 4) = (/ & - & 0.50819e+03,0.48806e+03,0.46793e+03,0.46281e+03,0.53522e+03, & - & 0.44925e+03,0.40532e+03,0.39485e+03,0.38437e+03 /) - kao(:, 3,13, 4) = (/ & - & 0.50478e+03,0.48508e+03,0.46537e+03,0.46157e+03,0.53378e+03, & - & 0.44654e+03,0.40453e+03,0.39445e+03,0.38437e+03 /) - kao(:, 4,13, 4) = (/ & - & 0.50182e+03,0.48249e+03,0.46315e+03,0.46044e+03,0.53251e+03, & - & 0.44422e+03,0.40385e+03,0.39411e+03,0.38437e+03 /) - kao(:, 5,13, 4) = (/ & - & 0.49922e+03,0.48021e+03,0.46120e+03,0.45936e+03,0.53137e+03, & - & 0.44221e+03,0.40325e+03,0.39381e+03,0.38437e+03 /) - kao(:, 1, 1, 5) = (/ & - & 0.13243e+04,0.11799e+04,0.10354e+04,0.89093e+03,0.74647e+03, & - & 0.71044e+03,0.61021e+03,0.64069e+03,0.67118e+03 /) - kao(:, 2, 1, 5) = (/ & - & 0.12908e+04,0.11505e+04,0.10102e+04,0.86996e+03,0.72969e+03, & - & 0.70292e+03,0.60750e+03,0.63934e+03,0.67118e+03 /) - kao(:, 3, 1, 5) = (/ & - & 0.12606e+04,0.11241e+04,0.98763e+03,0.85113e+03,0.71463e+03, & - & 0.69451e+03,0.60507e+03,0.63812e+03,0.67118e+03 /) - kao(:, 4, 1, 5) = (/ & - & 0.12334e+04,0.11003e+04,0.96722e+03,0.83412e+03,0.70102e+03, & - & 0.68564e+03,0.60287e+03,0.63703e+03,0.67118e+03 /) - kao(:, 5, 1, 5) = (/ & - & 0.12087e+04,0.10787e+04,0.94870e+03,0.81869e+03,0.68867e+03, & - & 0.67724e+03,0.60088e+03,0.63603e+03,0.67118e+03 /) - kao(:, 1, 2, 5) = (/ & - & 0.12234e+04,0.10916e+04,0.95972e+03,0.82787e+03,0.69602e+03, & - & 0.68345e+03,0.60207e+03,0.63662e+03,0.67118e+03 /) - kao(:, 2, 2, 5) = (/ & - & 0.11946e+04,0.10664e+04,0.93814e+03,0.80988e+03,0.68163e+03, & - & 0.67225e+03,0.59975e+03,0.63546e+03,0.67118e+03 /) - kao(:, 3, 2, 5) = (/ & - & 0.11689e+04,0.10438e+04,0.91881e+03,0.79377e+03,0.66882e+03, & - & 0.66165e+03,0.59767e+03,0.63442e+03,0.67118e+03 /) - kao(:, 4, 2, 5) = (/ & - & 0.11456e+04,0.10235e+04,0.90139e+03,0.77926e+03,0.65759e+03, & - & 0.65058e+03,0.59579e+03,0.63348e+03,0.67118e+03 /) - kao(:, 5, 2, 5) = (/ & - & 0.11246e+04,0.10051e+04,0.88561e+03,0.76611e+03,0.64778e+03, & - & 0.64016e+03,0.59410e+03,0.63264e+03,0.67118e+03 /) - kao(:, 1, 3, 5) = (/ & - & 0.11441e+04,0.10221e+04,0.90021e+03,0.77828e+03,0.65728e+03, & - & 0.64981e+03,0.59567e+03,0.63342e+03,0.67118e+03 /) - kao(:, 2, 3, 5) = (/ & - & 0.11188e+04,0.10001e+04,0.88128e+03,0.76250e+03,0.64582e+03, & - & 0.63739e+03,0.59363e+03,0.63240e+03,0.67118e+03 /) - kao(:, 3, 3, 5) = (/ & - & 0.10963e+04,0.98033e+03,0.86437e+03,0.74841e+03,0.63611e+03, & - & 0.62581e+03,0.59181e+03,0.63149e+03,0.67118e+03 /) - kao(:, 4, 3, 5) = (/ & - & 0.10761e+04,0.96263e+03,0.84920e+03,0.73577e+03,0.62780e+03, & - & 0.61513e+03,0.59018e+03,0.63068e+03,0.67118e+03 /) - kao(:, 5, 3, 5) = (/ & - & 0.10578e+04,0.94664e+03,0.83549e+03,0.72435e+03,0.62066e+03, & - & 0.60588e+03,0.58871e+03,0.62994e+03,0.67118e+03 /) - kao(:, 1, 4, 5) = (/ & - & 0.10783e+04,0.96456e+03,0.85086e+03,0.73715e+03,0.62971e+03, & - & 0.61628e+03,0.59036e+03,0.63077e+03,0.67118e+03 /) - kao(:, 2, 4, 5) = (/ & - & 0.10559e+04,0.94502e+03,0.83411e+03,0.72319e+03,0.62145e+03, & - & 0.60490e+03,0.58856e+03,0.62987e+03,0.67118e+03 /) - kao(:, 3, 4, 5) = (/ & - & 0.10361e+04,0.92766e+03,0.81923e+03,0.71079e+03,0.61457e+03, & - & 0.59452e+03,0.58696e+03,0.62907e+03,0.67118e+03 /) - kao(:, 4, 4, 5) = (/ & - & 0.10183e+04,0.91213e+03,0.80591e+03,0.69970e+03,0.60876e+03, & - & 0.58559e+03,0.58552e+03,0.62835e+03,0.67118e+03 /) - kao(:, 5, 4, 5) = (/ & - & 0.10024e+04,0.89816e+03,0.79394e+03,0.68972e+03,0.60374e+03, & - & 0.57800e+03,0.58424e+03,0.62771e+03,0.67118e+03 /) - kao(:, 1, 5, 5) = (/ & - & 0.10224e+04,0.91564e+03,0.80892e+03,0.70221e+03,0.61144e+03, & - & 0.58757e+03,0.58585e+03,0.62851e+03,0.67118e+03 /) - kao(:, 2, 5, 5) = (/ & - & 0.10026e+04,0.89835e+03,0.79410e+03,0.68985e+03,0.60588e+03, & - & 0.57810e+03,0.58425e+03,0.62772e+03,0.67118e+03 /) - kao(:, 3, 5, 5) = (/ & - & 0.98511e+03,0.88305e+03,0.78099e+03,0.67893e+03,0.60138e+03, & - & 0.57034e+03,0.58284e+03,0.62701e+03,0.67118e+03 /) - kao(:, 4, 5, 5) = (/ & - & 0.96954e+03,0.86942e+03,0.76931e+03,0.66919e+03,0.59759e+03, & - & 0.56378e+03,0.58159e+03,0.62638e+03,0.67118e+03 /) - kao(:, 5, 5, 5) = (/ & - & 0.95557e+03,0.85720e+03,0.75883e+03,0.66046e+03,0.59436e+03, & - & 0.55823e+03,0.58046e+03,0.62582e+03,0.67118e+03 /) - kao(:, 1, 6, 5) = (/ & - & 0.97547e+03,0.87461e+03,0.77376e+03,0.67290e+03,0.60045e+03, & - & 0.56624e+03,0.58207e+03,0.62662e+03,0.67118e+03 /) - kao(:, 2, 6, 5) = (/ & - & 0.95788e+03,0.85922e+03,0.76057e+03,0.66191e+03,0.59710e+03, & - & 0.55912e+03,0.58065e+03,0.62591e+03,0.67118e+03 /) - kao(:, 3, 6, 5) = (/ & - & 0.94241e+03,0.84568e+03,0.74896e+03,0.65223e+03,0.59434e+03, & - & 0.55328e+03,0.57940e+03,0.62529e+03,0.67118e+03 /) - kao(:, 4, 6, 5) = (/ & - & 0.92868e+03,0.83367e+03,0.73866e+03,0.64365e+03,0.59182e+03, & - & 0.54839e+03,0.57829e+03,0.62473e+03,0.67118e+03 /) - kao(:, 5, 6, 5) = (/ & - & 0.91642e+03,0.82295e+03,0.72947e+03,0.63599e+03,0.58948e+03, & - & 0.54428e+03,0.57730e+03,0.62424e+03,0.67118e+03 /) - kao(:, 1, 7, 5) = (/ & - & 0.93556e+03,0.83969e+03,0.74382e+03,0.64795e+03,0.59420e+03, & - & 0.55081e+03,0.57885e+03,0.62501e+03,0.67118e+03 /) - kao(:, 2, 7, 5) = (/ & - & 0.91989e+03,0.82598e+03,0.73207e+03,0.63816e+03,0.59179e+03, & - & 0.54542e+03,0.57758e+03,0.62438e+03,0.67118e+03 /) - kao(:, 3, 7, 5) = (/ & - & 0.90618e+03,0.81398e+03,0.72179e+03,0.62959e+03,0.58955e+03, & - & 0.54102e+03,0.57648e+03,0.62383e+03,0.67118e+03 /) - kao(:, 4, 7, 5) = (/ & - & 0.89407e+03,0.80339e+03,0.71271e+03,0.62202e+03,0.58737e+03, & - & 0.53729e+03,0.57550e+03,0.62334e+03,0.67118e+03 /) - kao(:, 5, 7, 5) = (/ & - & 0.88331e+03,0.79397e+03,0.70463e+03,0.61530e+03,0.58524e+03, & - & 0.53413e+03,0.57463e+03,0.62290e+03,0.67118e+03 /) - kao(:, 1, 8, 5) = (/ & - & 0.90140e+03,0.80981e+03,0.71821e+03,0.62661e+03,0.58941e+03, & - & 0.53953e+03,0.57609e+03,0.62363e+03,0.67118e+03 /) - kao(:, 2, 8, 5) = (/ & - & 0.88745e+03,0.79760e+03,0.70774e+03,0.61789e+03,0.58727e+03, & - & 0.53533e+03,0.57497e+03,0.62307e+03,0.67118e+03 /) - kao(:, 3, 8, 5) = (/ & - & 0.87531e+03,0.78697e+03,0.69863e+03,0.61030e+03,0.58522e+03, & - & 0.53203e+03,0.57399e+03,0.62258e+03,0.67118e+03 /) - kao(:, 4, 8, 5) = (/ & - & 0.86464e+03,0.77763e+03,0.69063e+03,0.60363e+03,0.58317e+03, & - & 0.52938e+03,0.57313e+03,0.62215e+03,0.67118e+03 /) - kao(:, 5, 8, 5) = (/ & - & 0.85519e+03,0.76937e+03,0.68354e+03,0.59772e+03,0.58120e+03, & - & 0.52712e+03,0.57236e+03,0.62177e+03,0.67118e+03 /) - kao(:, 1, 9, 5) = (/ & - & 0.87232e+03,0.78435e+03,0.69639e+03,0.60843e+03,0.58508e+03, & - & 0.53128e+03,0.57375e+03,0.62246e+03,0.67118e+03 /) - kao(:, 2, 9, 5) = (/ & - & 0.85988e+03,0.77347e+03,0.68706e+03,0.60065e+03,0.58302e+03, & - & 0.52823e+03,0.57274e+03,0.62196e+03,0.67118e+03 /) - kao(:, 3, 9, 5) = (/ & - & 0.84911e+03,0.76405e+03,0.67898e+03,0.59392e+03,0.58102e+03, & - & 0.52572e+03,0.57187e+03,0.62153e+03,0.67118e+03 /) - kao(:, 4, 9, 5) = (/ & - & 0.83970e+03,0.75581e+03,0.67193e+03,0.58804e+03,0.57906e+03, & - & 0.52364e+03,0.57111e+03,0.62115e+03,0.67118e+03 /) - kao(:, 5, 9, 5) = (/ & - & 0.83140e+03,0.74855e+03,0.66571e+03,0.58286e+03,0.57713e+03, & - & 0.52190e+03,0.57045e+03,0.62081e+03,0.67118e+03 /) - kao(:, 1,10, 5) = (/ & - & 0.84657e+03,0.76183e+03,0.67708e+03,0.59234e+03,0.58061e+03, & - & 0.52515e+03,0.57167e+03,0.62142e+03,0.67118e+03 /) - kao(:, 2,10, 5) = (/ & - & 0.83560e+03,0.75223e+03,0.66886e+03,0.58548e+03,0.57865e+03, & - & 0.52276e+03,0.57078e+03,0.62098e+03,0.67118e+03 /) - kao(:, 3,10, 5) = (/ & - & 0.82616e+03,0.74397e+03,0.66177e+03,0.57958e+03,0.57663e+03, & - & 0.52085e+03,0.57002e+03,0.62060e+03,0.67118e+03 /) - kao(:, 4,10, 5) = (/ & - & 0.81794e+03,0.73678e+03,0.65561e+03,0.57444e+03,0.57466e+03, & - & 0.51933e+03,0.56936e+03,0.62027e+03,0.67118e+03 /) - kao(:, 5,10, 5) = (/ & - & 0.81073e+03,0.73047e+03,0.65020e+03,0.56994e+03,0.57276e+03, & - & 0.51811e+03,0.56878e+03,0.61998e+03,0.67118e+03 /) - kao(:, 1,11, 5) = (/ & - & 0.82001e+03,0.73859e+03,0.65716e+03,0.57574e+03,0.57531e+03, & - & 0.51970e+03,0.56953e+03,0.62035e+03,0.67118e+03 /) - kao(:, 2,11, 5) = (/ & - & 0.81102e+03,0.73072e+03,0.65042e+03,0.57012e+03,0.57326e+03, & - & 0.51814e+03,0.56880e+03,0.61999e+03,0.67118e+03 /) - kao(:, 3,11, 5) = (/ & - & 0.80328e+03,0.72395e+03,0.64462e+03,0.56528e+03,0.57135e+03, & - & 0.51670e+03,0.56818e+03,0.61968e+03,0.67118e+03 /) - kao(:, 4,11, 5) = (/ & - & 0.79655e+03,0.71806e+03,0.63957e+03,0.56108e+03,0.56956e+03, & - & 0.51595e+03,0.56763e+03,0.61941e+03,0.67118e+03 /) - kao(:, 5,11, 5) = (/ & - & 0.79064e+03,0.71289e+03,0.63514e+03,0.55738e+03,0.56781e+03, & - & 0.51517e+03,0.56716e+03,0.61917e+03,0.67118e+03 /) - kao(:, 1,12, 5) = (/ & - & 0.79821e+03,0.71951e+03,0.64081e+03,0.56211e+03,0.57002e+03, & - & 0.51613e+03,0.56777e+03,0.61947e+03,0.67118e+03 /) - kao(:, 2,12, 5) = (/ & - & 0.79085e+03,0.71307e+03,0.63529e+03,0.55751e+03,0.56813e+03, & - & 0.51519e+03,0.56717e+03,0.61918e+03,0.67118e+03 /) - kao(:, 3,12, 5) = (/ & - & 0.78452e+03,0.70753e+03,0.63054e+03,0.55355e+03,0.56648e+03, & - & 0.51441e+03,0.56666e+03,0.61892e+03,0.67118e+03 /) - kao(:, 4,12, 5) = (/ & - & 0.77901e+03,0.70271e+03,0.62641e+03,0.55011e+03,0.56489e+03, & - & 0.51374e+03,0.56622e+03,0.61870e+03,0.67118e+03 /) - kao(:, 5,12, 5) = (/ & - & 0.77417e+03,0.69847e+03,0.62278e+03,0.54708e+03,0.56325e+03, & - & 0.51315e+03,0.56583e+03,0.61850e+03,0.67118e+03 /) - kao(:, 1,13, 5) = (/ & - & 0.78036e+03,0.70389e+03,0.62743e+03,0.55096e+03,0.56495e+03, & - & 0.51390e+03,0.56633e+03,0.61875e+03,0.67118e+03 /) - kao(:, 2,13, 5) = (/ & - & 0.77434e+03,0.69862e+03,0.62291e+03,0.54719e+03,0.56343e+03, & - & 0.51318e+03,0.56584e+03,0.61851e+03,0.67118e+03 /) - kao(:, 3,13, 5) = (/ & - & 0.76915e+03,0.69408e+03,0.61902e+03,0.54395e+03,0.56189e+03, & - & 0.51255e+03,0.56542e+03,0.61830e+03,0.67118e+03 /) - kao(:, 4,13, 5) = (/ & - & 0.76464e+03,0.69014e+03,0.61563e+03,0.54113e+03,0.56027e+03, & - & 0.51200e+03,0.56506e+03,0.61812e+03,0.67118e+03 /) - kao(:, 5,13, 5) = (/ & - & 0.76068e+03,0.68667e+03,0.61266e+03,0.53865e+03,0.55865e+03, & - & 0.51152e+03,0.56474e+03,0.61796e+03,0.67118e+03 /) - kao(:, 1, 1, 6) = (/ & - & 0.16832e+04,0.14832e+04,0.12833e+04,0.10834e+04,0.88343e+03, & - & 0.73047e+03,0.75923e+03,0.85568e+03,0.94989e+03 /) - kao(:, 2, 1, 6) = (/ & - & 0.16405e+04,0.14459e+04,0.12513e+04,0.10567e+04,0.86211e+03, & - & 0.72257e+03,0.75791e+03,0.85457e+03,0.94915e+03 /) - kao(:, 3, 1, 6) = (/ & - & 0.16022e+04,0.14124e+04,0.12226e+04,0.10328e+04,0.84296e+03, & - & 0.71182e+03,0.75643e+03,0.85315e+03,0.94805e+03 /) - kao(:, 4, 1, 6) = (/ & - & 0.15677e+04,0.13822e+04,0.11967e+04,0.10112e+04,0.82566e+03, & - & 0.70003e+03,0.75475e+03,0.85145e+03,0.94659e+03 /) - kao(:, 5, 1, 6) = (/ & - & 0.15363e+04,0.13547e+04,0.11731e+04,0.99155e+03,0.80997e+03, & - & 0.68802e+03,0.75277e+03,0.84941e+03,0.94478e+03 /) - kao(:, 1, 2, 6) = (/ & - & 0.15549e+04,0.13710e+04,0.11871e+04,0.10032e+04,0.81930e+03, & - & 0.69644e+03,0.75599e+03,0.85402e+03,0.95009e+03 /) - kao(:, 2, 2, 6) = (/ & - & 0.15184e+04,0.13390e+04,0.11597e+04,0.98036e+03,0.80102e+03, & - & 0.68214e+03,0.75486e+03,0.85308e+03,0.94950e+03 /) - kao(:, 3, 2, 6) = (/ & - & 0.14856e+04,0.13104e+04,0.11351e+04,0.95988e+03,0.78464e+03, & - & 0.67032e+03,0.75359e+03,0.85186e+03,0.94855e+03 /) - kao(:, 4, 2, 6) = (/ & - & 0.14561e+04,0.12845e+04,0.11130e+04,0.94143e+03,0.76988e+03, & - & 0.66240e+03,0.75215e+03,0.85037e+03,0.94724e+03 /) - kao(:, 5, 2, 6) = (/ & - & 0.14294e+04,0.12611e+04,0.10929e+04,0.92472e+03,0.75651e+03, & - & 0.65660e+03,0.75042e+03,0.84857e+03,0.94557e+03 /) - kao(:, 1, 3, 6) = (/ & - & 0.14541e+04,0.12828e+04,0.11115e+04,0.94019e+03,0.76889e+03, & - & 0.66226e+03,0.75340e+03,0.85268e+03,0.95029e+03 /) - kao(:, 2, 3, 6) = (/ & - & 0.14220e+04,0.12547e+04,0.10874e+04,0.92013e+03,0.75284e+03, & - & 0.65611e+03,0.75249e+03,0.85200e+03,0.94990e+03 /) - kao(:, 3, 3, 6) = (/ & - & 0.13934e+04,0.12297e+04,0.10659e+04,0.90223e+03,0.73852e+03, & - & 0.65222e+03,0.75143e+03,0.85101e+03,0.94916e+03 /) - kao(:, 4, 3, 6) = (/ & - & 0.13676e+04,0.12071e+04,0.10467e+04,0.88615e+03,0.72566e+03, & - & 0.64945e+03,0.75024e+03,0.84977e+03,0.94807e+03 /) - kao(:, 5, 3, 6) = (/ & - & 0.13444e+04,0.11868e+04,0.10292e+04,0.87164e+03,0.71405e+03, & - & 0.64733e+03,0.74880e+03,0.84822e+03,0.94662e+03 /) - kao(:, 1, 4, 6) = (/ & - & 0.13705e+04,0.12096e+04,0.10488e+04,0.88791e+03,0.72707e+03, & - & 0.64976e+03,0.75119e+03,0.85151e+03,0.95037e+03 /) - kao(:, 2, 4, 6) = (/ & - & 0.13421e+04,0.11848e+04,0.10275e+04,0.87017e+03,0.71287e+03, & - & 0.64785e+03,0.75047e+03,0.85104e+03,0.95019e+03 /) - kao(:, 3, 4, 6) = (/ & - & 0.13169e+04,0.11627e+04,0.10086e+04,0.85441e+03,0.70026e+03, & - & 0.64696e+03,0.74964e+03,0.85031e+03,0.94968e+03 /) - kao(:, 4, 4, 6) = (/ & - & 0.12943e+04,0.11430e+04,0.99164e+03,0.84031e+03,0.68898e+03, & - & 0.64601e+03,0.74865e+03,0.84930e+03,0.94882e+03 /) - kao(:, 5, 4, 6) = (/ & - & 0.12740e+04,0.11252e+04,0.97642e+03,0.82763e+03,0.67884e+03, & - & 0.64496e+03,0.74747e+03,0.84802e+03,0.94760e+03 /) - kao(:, 1, 5, 6) = (/ & - & 0.12994e+04,0.11474e+04,0.99546e+03,0.84350e+03,0.69153e+03, & - & 0.64599e+03,0.74922e+03,0.85040e+03,0.95032e+03 /) - kao(:, 2, 5, 6) = (/ & - & 0.12743e+04,0.11254e+04,0.97662e+03,0.82780e+03,0.67897e+03, & - & 0.64529e+03,0.74869e+03,0.85015e+03,0.95034e+03 /) - kao(:, 3, 5, 6) = (/ & - & 0.12521e+04,0.11060e+04,0.95996e+03,0.81391e+03,0.66786e+03, & - & 0.64458e+03,0.74805e+03,0.84965e+03,0.95004e+03 /) - kao(:, 4, 5, 6) = (/ & - & 0.12323e+04,0.10887e+04,0.94511e+03,0.80154e+03,0.65797e+03, & - & 0.64380e+03,0.74727e+03,0.84886e+03,0.94940e+03 /) - kao(:, 5, 5, 6) = (/ & - & 0.12145e+04,0.10732e+04,0.93180e+03,0.79045e+03,0.64909e+03, & - & 0.64294e+03,0.74629e+03,0.84781e+03,0.94841e+03 /) - kao(:, 1, 6, 6) = (/ & - & 0.12398e+04,0.10953e+04,0.95077e+03,0.80625e+03,0.66174e+03, & - & 0.64362e+03,0.74747e+03,0.84935e+03,0.95014e+03 /) - kao(:, 2, 6, 6) = (/ & - & 0.12174e+04,0.10757e+04,0.93400e+03,0.79228e+03,0.65056e+03, & - & 0.64308e+03,0.74712e+03,0.84932e+03,0.95036e+03 /) - kao(:, 3, 6, 6) = (/ & - & 0.11978e+04,0.10585e+04,0.91925e+03,0.77999e+03,0.64087e+03, & - & 0.64253e+03,0.74666e+03,0.84902e+03,0.95027e+03 /) - kao(:, 4, 6, 6) = (/ & - & 0.11803e+04,0.10432e+04,0.90616e+03,0.76908e+03,0.63262e+03, & - & 0.64192e+03,0.74606e+03,0.84847e+03,0.94985e+03 /) - kao(:, 5, 6, 6) = (/ & - & 0.11647e+04,0.10296e+04,0.89448e+03,0.75935e+03,0.62549e+03, & - & 0.64122e+03,0.74529e+03,0.84763e+03,0.94909e+03 /) - kao(:, 1, 7, 6) = (/ & - & 0.11891e+04,0.10509e+04,0.91272e+03,0.77455e+03,0.63693e+03, & - & 0.64154e+03,0.74584e+03,0.84830e+03,0.94975e+03 /) - kao(:, 2, 7, 6) = (/ & - & 0.11692e+04,0.10335e+04,0.89779e+03,0.76210e+03,0.62795e+03, & - & 0.64115e+03,0.74575e+03,0.84848e+03,0.95025e+03 /) - kao(:, 3, 7, 6) = (/ & - & 0.11517e+04,0.10182e+04,0.88471e+03,0.75121e+03,0.62051e+03, & - & 0.64074e+03,0.74542e+03,0.84840e+03,0.95037e+03 /) - kao(:, 4, 7, 6) = (/ & - & 0.11363e+04,0.10048e+04,0.87317e+03,0.74159e+03,0.61432e+03, & - & 0.64028e+03,0.74499e+03,0.84806e+03,0.95015e+03 /) - kao(:, 5, 7, 6) = (/ & - & 0.11227e+04,0.99279e+03,0.86291e+03,0.73304e+03,0.60908e+03, & - & 0.63974e+03,0.74440e+03,0.84744e+03,0.94961e+03 /) - kao(:, 1, 8, 6) = (/ & - & 0.11457e+04,0.10129e+04,0.88017e+03,0.74742e+03,0.61848e+03, & - & 0.63968e+03,0.74433e+03,0.84725e+03,0.94927e+03 /) - kao(:, 2, 8, 6) = (/ & - & 0.11279e+04,0.99740e+03,0.86687e+03,0.73633e+03,0.61183e+03, & - & 0.63944e+03,0.74439e+03,0.84765e+03,0.94999e+03 /) - kao(:, 3, 8, 6) = (/ & - & 0.11125e+04,0.98389e+03,0.85529e+03,0.72668e+03,0.60652e+03, & - & 0.63917e+03,0.74428e+03,0.84777e+03,0.95034e+03 /) - kao(:, 4, 8, 6) = (/ & - & 0.10989e+04,0.97202e+03,0.84512e+03,0.71821e+03,0.60224e+03, & - & 0.63885e+03,0.74401e+03,0.84763e+03,0.95032e+03 /) - kao(:, 5, 8, 6) = (/ & - & 0.10869e+04,0.96152e+03,0.83611e+03,0.71070e+03,0.59867e+03, & - & 0.63844e+03,0.74359e+03,0.84721e+03,0.94997e+03 /) - kao(:, 1, 9, 6) = (/ & - & 0.11087e+04,0.98057e+03,0.85244e+03,0.72431e+03,0.60583e+03, & - & 0.63802e+03,0.74290e+03,0.84619e+03,0.94868e+03 /) - kao(:, 2, 9, 6) = (/ & - & 0.10929e+04,0.96673e+03,0.84058e+03,0.71443e+03,0.60128e+03, & - & 0.63792e+03,0.74318e+03,0.84681e+03,0.94962e+03 /) - kao(:, 3, 9, 6) = (/ & - & 0.10792e+04,0.95475e+03,0.83031e+03,0.70587e+03,0.59784e+03, & - & 0.63778e+03,0.74323e+03,0.84713e+03,0.95019e+03 /) - kao(:, 4, 9, 6) = (/ & - & 0.10672e+04,0.94429e+03,0.82134e+03,0.69840e+03,0.59517e+03, & - & 0.63759e+03,0.74313e+03,0.84718e+03,0.95037e+03 /) - kao(:, 5, 9, 6) = (/ & - & 0.10567e+04,0.93506e+03,0.81344e+03,0.69181e+03,0.59278e+03, & - & 0.63730e+03,0.74285e+03,0.84695e+03,0.95021e+03 /) - kao(:, 1,10, 6) = (/ & - & 0.10760e+04,0.95193e+03,0.82790e+03,0.70386e+03,0.59768e+03, & - & 0.63651e+03,0.74157e+03,0.84519e+03,0.94809e+03 /) - kao(:, 2,10, 6) = (/ & - & 0.10620e+04,0.93974e+03,0.81744e+03,0.69515e+03,0.59477e+03, & - & 0.63656e+03,0.74203e+03,0.84600e+03,0.94921e+03 /) - kao(:, 3,10, 6) = (/ & - & 0.10500e+04,0.92923e+03,0.80844e+03,0.68764e+03,0.59242e+03, & - & 0.63654e+03,0.74226e+03,0.84650e+03,0.94996e+03 /) - kao(:, 4,10, 6) = (/ & - & 0.10396e+04,0.92010e+03,0.80061e+03,0.68112e+03,0.59042e+03, & - & 0.63645e+03,0.74230e+03,0.84672e+03,0.95033e+03 /) - kao(:, 5,10, 6) = (/ & - & 0.10304e+04,0.91207e+03,0.79373e+03,0.67539e+03,0.58849e+03, & - & 0.63628e+03,0.74216e+03,0.84665e+03,0.95033e+03 /) - kao(:, 1,11, 6) = (/ & - & 0.10422e+04,0.92239e+03,0.80258e+03,0.68276e+03,0.59118e+03, & - & 0.63525e+03,0.74065e+03,0.84470e+03,0.94808e+03 /) - kao(:, 2,11, 6) = (/ & - & 0.10308e+04,0.91240e+03,0.79401e+03,0.67562e+03,0.58920e+03, & - & 0.63540e+03,0.74118e+03,0.84554e+03,0.94920e+03 /) - kao(:, 3,11, 6) = (/ & - & 0.10210e+04,0.90379e+03,0.78663e+03,0.66947e+03,0.58737e+03, & - & 0.63545e+03,0.74147e+03,0.84609e+03,0.94995e+03 /) - kao(:, 4,11, 6) = (/ & - & 0.10124e+04,0.89631e+03,0.78022e+03,0.66413e+03,0.58569e+03, & - & 0.63543e+03,0.74156e+03,0.84634e+03,0.95033e+03 /) - kao(:, 5,11, 6) = (/ & - & 0.10049e+04,0.88974e+03,0.77458e+03,0.65943e+03,0.58398e+03, & - & 0.63532e+03,0.74146e+03,0.84628e+03,0.95033e+03 /) - kao(:, 1,12, 6) = (/ & - & 0.10145e+04,0.89815e+03,0.78180e+03,0.66544e+03,0.58616e+03, & - & 0.63421e+03,0.73990e+03,0.84430e+03,0.94808e+03 /) - kao(:, 2,12, 6) = (/ & - & 0.10052e+04,0.88997e+03,0.77478e+03,0.65960e+03,0.58451e+03, & - & 0.63444e+03,0.74048e+03,0.84518e+03,0.94921e+03 /) - kao(:, 3,12, 6) = (/ & - & 0.99710e+03,0.88292e+03,0.76874e+03,0.65457e+03,0.58265e+03, & - & 0.63457e+03,0.74082e+03,0.84574e+03,0.94995e+03 /) - kao(:, 4,12, 6) = (/ & - & 0.99010e+03,0.87679e+03,0.76349e+03,0.65019e+03,0.58054e+03, & - & 0.63460e+03,0.74095e+03,0.84600e+03,0.95033e+03 /) - kao(:, 5,12, 6) = (/ & - & 0.98395e+03,0.87141e+03,0.75888e+03,0.64634e+03,0.57844e+03, & - & 0.63453e+03,0.74089e+03,0.84598e+03,0.95033e+03 /) - kao(:, 1,13, 6) = (/ & - & 0.99182e+03,0.87830e+03,0.76478e+03,0.65127e+03,0.58122e+03, & - & 0.63336e+03,0.73928e+03,0.84397e+03,0.94808e+03 /) - kao(:, 2,13, 6) = (/ & - & 0.98416e+03,0.87160e+03,0.75904e+03,0.64648e+03,0.57888e+03, & - & 0.63366e+03,0.73991e+03,0.84487e+03,0.94921e+03 /) - kao(:, 3,13, 6) = (/ & - & 0.97757e+03,0.86583e+03,0.75410e+03,0.64236e+03,0.57650e+03, & - & 0.63384e+03,0.74029e+03,0.84546e+03,0.94996e+03 /) - kao(:, 4,13, 6) = (/ & - & 0.97184e+03,0.86082e+03,0.74980e+03,0.63878e+03,0.57428e+03, & - & 0.63391e+03,0.74045e+03,0.84574e+03,0.95033e+03 /) - kao(:, 5,13, 6) = (/ & - & 0.96680e+03,0.85641e+03,0.74602e+03,0.63563e+03,0.57218e+03, & - & 0.63388e+03,0.74043e+03,0.84574e+03,0.95033e+03 /) - kao(:, 1, 1, 7) = (/ & - & 0.18845e+04,0.16548e+04,0.14251e+04,0.11953e+04,0.96557e+03, & - & 0.74301e+03,0.82697e+03,0.94964e+03,0.10740e+04 /) - kao(:, 2, 1, 7) = (/ & - & 0.18367e+04,0.16130e+04,0.13892e+04,0.11655e+04,0.94169e+03, & - & 0.73101e+03,0.82533e+03,0.94833e+03,0.10730e+04 /) - kao(:, 3, 1, 7) = (/ & - & 0.17938e+04,0.15755e+04,0.13571e+04,0.11387e+04,0.92025e+03, & - & 0.71894e+03,0.82353e+03,0.94679e+03,0.10715e+04 /) - kao(:, 4, 1, 7) = (/ & - & 0.17551e+04,0.15416e+04,0.13280e+04,0.11145e+04,0.90089e+03, & - & 0.70691e+03,0.82149e+03,0.94487e+03,0.10696e+04 /) - kao(:, 5, 1, 7) = (/ & - & 0.17200e+04,0.15108e+04,0.13017e+04,0.10925e+04,0.88332e+03, & - & 0.69946e+03,0.81920e+03,0.94260e+03,0.10672e+04 /) - kao(:, 1, 2, 7) = (/ & - & 0.17409e+04,0.15291e+04,0.13174e+04,0.11056e+04,0.89377e+03, & - & 0.70556e+03,0.82545e+03,0.94918e+03,0.10743e+04 /) - kao(:, 2, 2, 7) = (/ & - & 0.16999e+04,0.14933e+04,0.12867e+04,0.10800e+04,0.87329e+03, & - & 0.70177e+03,0.82404e+03,0.94806e+03,0.10734e+04 /) - kao(:, 3, 2, 7) = (/ & - & 0.16632e+04,0.14612e+04,0.12591e+04,0.10571e+04,0.85495e+03, & - & 0.69985e+03,0.82245e+03,0.94668e+03,0.10721e+04 /) - kao(:, 4, 2, 7) = (/ & - & 0.16302e+04,0.14323e+04,0.12344e+04,0.10364e+04,0.83842e+03, & - & 0.69778e+03,0.82061e+03,0.94495e+03,0.10705e+04 /) - kao(:, 5, 2, 7) = (/ & - & 0.16003e+04,0.14061e+04,0.12119e+04,0.10177e+04,0.82345e+03, & - & 0.69549e+03,0.81853e+03,0.94286e+03,0.10683e+04 /) - kao(:, 1, 3, 7) = (/ & - & 0.16280e+04,0.14303e+04,0.12327e+04,0.10350e+04,0.83731e+03, & - & 0.70164e+03,0.82440e+03,0.94900e+03,0.10748e+04 /) - kao(:, 2, 3, 7) = (/ & - & 0.15920e+04,0.13989e+04,0.12057e+04,0.10126e+04,0.81934e+03, & - & 0.70016e+03,0.82323e+03,0.94804e+03,0.10740e+04 /) - kao(:, 3, 3, 7) = (/ & - & 0.15600e+04,0.13708e+04,0.11817e+04,0.99252e+03,0.80330e+03, & - & 0.69850e+03,0.82187e+03,0.94688e+03,0.10730e+04 /) - kao(:, 4, 3, 7) = (/ & - & 0.15312e+04,0.13457e+04,0.11601e+04,0.97452e+03,0.78890e+03, & - & 0.69669e+03,0.82029e+03,0.94542e+03,0.10716e+04 /) - kao(:, 5, 3, 7) = (/ & - & 0.15052e+04,0.13229e+04,0.11406e+04,0.95827e+03,0.77590e+03, & - & 0.69468e+03,0.81844e+03,0.94358e+03,0.10697e+04 /) - kao(:, 1, 4, 7) = (/ & - & 0.15343e+04,0.13484e+04,0.11625e+04,0.97650e+03,0.79047e+03, & - & 0.70005e+03,0.82352e+03,0.94883e+03,0.10751e+04 /) - kao(:, 2, 4, 7) = (/ & - & 0.15026e+04,0.13206e+04,0.11386e+04,0.95663e+03,0.77458e+03, & - & 0.69884e+03,0.82260e+03,0.94808e+03,0.10745e+04 /) - kao(:, 3, 4, 7) = (/ & - & 0.14743e+04,0.12959e+04,0.11175e+04,0.93898e+03,0.76046e+03, & - & 0.69743e+03,0.82145e+03,0.94711e+03,0.10737e+04 /) - kao(:, 4, 4, 7) = (/ & - & 0.14491e+04,0.12738e+04,0.10985e+04,0.92319e+03,0.74783e+03, & - & 0.69586e+03,0.82010e+03,0.94588e+03,0.10725e+04 /) - kao(:, 5, 4, 7) = (/ & - & 0.14263e+04,0.12539e+04,0.10815e+04,0.90900e+03,0.73646e+03, & - & 0.69412e+03,0.81852e+03,0.94430e+03,0.10710e+04 /) - kao(:, 1, 5, 7) = (/ & - & 0.14548e+04,0.12788e+04,0.11028e+04,0.92676e+03,0.75068e+03, & - & 0.69862e+03,0.82271e+03,0.94860e+03,0.10753e+04 /) - kao(:, 2, 5, 7) = (/ & - & 0.14266e+04,0.12542e+04,0.10817e+04,0.90918e+03,0.73662e+03, & - & 0.69765e+03,0.82202e+03,0.94804e+03,0.10749e+04 /) - kao(:, 3, 5, 7) = (/ & - & 0.14018e+04,0.12324e+04,0.10630e+04,0.89363e+03,0.72418e+03, & - & 0.69649e+03,0.82110e+03,0.94729e+03,0.10743e+04 /) - kao(:, 4, 5, 7) = (/ & - & 0.13796e+04,0.12130e+04,0.10464e+04,0.87978e+03,0.71309e+03, & - & 0.69515e+03,0.81992e+03,0.94623e+03,0.10733e+04 /) - kao(:, 5, 5, 7) = (/ & - & 0.13597e+04,0.11956e+04,0.10315e+04,0.86737e+03,0.70315e+03, & - & 0.69363e+03,0.81858e+03,0.94492e+03,0.10720e+04 /) - kao(:, 1, 6, 7) = (/ & - & 0.13881e+04,0.12204e+04,0.10528e+04,0.88506e+03,0.71732e+03, & - & 0.69732e+03,0.82195e+03,0.94833e+03,0.10753e+04 /) - kao(:, 2, 6, 7) = (/ & - & 0.13630e+04,0.11985e+04,0.10340e+04,0.86942e+03,0.70480e+03, & - & 0.69661e+03,0.82150e+03,0.94796e+03,0.10752e+04 /) - kao(:, 3, 6, 7) = (/ & - & 0.13410e+04,0.11792e+04,0.10175e+04,0.85565e+03,0.69378e+03, & - & 0.69568e+03,0.82079e+03,0.94739e+03,0.10747e+04 /) - kao(:, 4, 6, 7) = (/ & - & 0.13215e+04,0.11622e+04,0.10028e+04,0.84344e+03,0.68401e+03, & - & 0.69456e+03,0.81984e+03,0.94655e+03,0.10740e+04 /) - kao(:, 5, 6, 7) = (/ & - & 0.13040e+04,0.11469e+04,0.98973e+03,0.83254e+03,0.67529e+03, & - & 0.69326e+03,0.81868e+03,0.94544e+03,0.10729e+04 /) - kao(:, 1, 7, 7) = (/ & - & 0.13313e+04,0.11707e+04,0.10101e+04,0.84956e+03,0.68891e+03, & - & 0.69611e+03,0.82122e+03,0.94800e+03,0.10754e+04 /) - kao(:, 2, 7, 7) = (/ & - & 0.13090e+04,0.11512e+04,0.99343e+03,0.83562e+03,0.67776e+03, & - & 0.69564e+03,0.82091e+03,0.94785e+03,0.10753e+04 /) - kao(:, 3, 7, 7) = (/ & - & 0.12894e+04,0.11341e+04,0.97879e+03,0.82342e+03,0.66800e+03, & - & 0.69494e+03,0.82048e+03,0.94742e+03,0.10750e+04 /) - kao(:, 4, 7, 7) = (/ & - & 0.12722e+04,0.11191e+04,0.96587e+03,0.81266e+03,0.65938e+03, & - & 0.69403e+03,0.81973e+03,0.94677e+03,0.10745e+04 /) - kao(:, 5, 7, 7) = (/ & - & 0.12569e+04,0.11057e+04,0.95438e+03,0.80308e+03,0.65172e+03, & - & 0.69293e+03,0.81874e+03,0.94587e+03,0.10736e+04 /) - kao(:, 1, 8, 7) = (/ & - & 0.12827e+04,0.11282e+04,0.97371e+03,0.81918e+03,0.66460e+03, & - & 0.69497e+03,0.82050e+03,0.94762e+03,0.10753e+04 /) - kao(:, 2, 8, 7) = (/ & - & 0.12628e+04,0.11108e+04,0.95881e+03,0.80678e+03,0.65467e+03, & - & 0.69473e+03,0.82044e+03,0.94765e+03,0.10754e+04 /) - kao(:, 3, 8, 7) = (/ & - & 0.12455e+04,0.10957e+04,0.94585e+03,0.79597e+03,0.64602e+03, & - & 0.69425e+03,0.82014e+03,0.94746e+03,0.10752e+04 /) - kao(:, 4, 8, 7) = (/ & - & 0.12303e+04,0.10824e+04,0.93446e+03,0.78648e+03,0.63843e+03, & - & 0.69354e+03,0.81959e+03,0.94691e+03,0.10748e+04 /) - kao(:, 5, 8, 7) = (/ & - & 0.12169e+04,0.10706e+04,0.92437e+03,0.77807e+03,0.63171e+03, & - & 0.69262e+03,0.81878e+03,0.94618e+03,0.10741e+04 /) - kao(:, 1, 9, 7) = (/ & - & 0.12413e+04,0.10920e+04,0.94266e+03,0.79331e+03,0.64390e+03, & - & 0.69387e+03,0.81977e+03,0.94713e+03,0.10750e+04 /) - kao(:, 2, 9, 7) = (/ & - & 0.12236e+04,0.10765e+04,0.92938e+03,0.78225e+03,0.63504e+03, & - & 0.69385e+03,0.81989e+03,0.94741e+03,0.10753e+04 /) - kao(:, 3, 9, 7) = (/ & - & 0.12082e+04,0.10631e+04,0.91789e+03,0.77267e+03,0.62738e+03, & - & 0.69359e+03,0.81979e+03,0.94732e+03,0.10754e+04 /) - kao(:, 4, 9, 7) = (/ & - & 0.11949e+04,0.10514e+04,0.90785e+03,0.76430e+03,0.62068e+03, & - & 0.69307e+03,0.81942e+03,0.94698e+03,0.10751e+04 /) - kao(:, 5, 9, 7) = (/ & - & 0.11831e+04,0.10410e+04,0.89899e+03,0.75692e+03,0.61500e+03, & - & 0.69235e+03,0.81879e+03,0.94641e+03,0.10746e+04 /) - kao(:, 1,10, 7) = (/ & - & 0.12046e+04,0.10599e+04,0.91518e+03,0.77041e+03,0.62557e+03, & - & 0.69285e+03,0.81909e+03,0.94663e+03,0.10746e+04 /) - kao(:, 2,10, 7) = (/ & - & 0.11890e+04,0.10463e+04,0.90347e+03,0.76066e+03,0.61799e+03, & - & 0.69301e+03,0.81937e+03,0.94709e+03,0.10752e+04 /) - kao(:, 3,10, 7) = (/ & - & 0.11756e+04,0.10345e+04,0.89339e+03,0.75225e+03,0.61189e+03, & - & 0.69293e+03,0.81942e+03,0.94719e+03,0.10754e+04 /) - kao(:, 4,10, 7) = (/ & - & 0.11639e+04,0.10243e+04,0.88463e+03,0.74495e+03,0.60683e+03, & - & 0.69260e+03,0.81922e+03,0.94698e+03,0.10753e+04 /) - kao(:, 5,10, 7) = (/ & - & 0.11536e+04,0.10153e+04,0.87693e+03,0.73853e+03,0.60268e+03, & - & 0.69203e+03,0.81871e+03,0.94653e+03,0.10749e+04 /) - kao(:, 1,11, 7) = (/ & - & 0.11668e+04,0.10268e+04,0.88684e+03,0.74678e+03,0.60837e+03, & - & 0.69208e+03,0.81864e+03,0.94642e+03,0.10746e+04 /) - kao(:, 2,11, 7) = (/ & - & 0.11540e+04,0.10157e+04,0.87724e+03,0.73879e+03,0.60335e+03, & - & 0.69229e+03,0.81896e+03,0.94691e+03,0.10752e+04 /) - kao(:, 3,11, 7) = (/ & - & 0.11430e+04,0.10060e+04,0.86898e+03,0.73191e+03,0.59939e+03, & - & 0.69226e+03,0.81904e+03,0.94700e+03,0.10754e+04 /) - kao(:, 4,11, 7) = (/ & - & 0.11335e+04,0.99764e+03,0.86180e+03,0.72592e+03,0.59585e+03, & - & 0.69198e+03,0.81884e+03,0.94679e+03,0.10753e+04 /) - kao(:, 5,11, 7) = (/ & - & 0.11251e+04,0.99028e+03,0.85549e+03,0.72067e+03,0.59286e+03, & - & 0.69146e+03,0.81839e+03,0.94639e+03,0.10749e+04 /) - kao(:, 1,12, 7) = (/ & - & 0.11358e+04,0.99970e+03,0.86357e+03,0.72739e+03,0.59707e+03, & - & 0.69145e+03,0.81829e+03,0.94626e+03,0.10746e+04 /) - kao(:, 2,12, 7) = (/ & - & 0.11253e+04,0.99054e+03,0.85571e+03,0.72085e+03,0.59339e+03, & - & 0.69172e+03,0.81863e+03,0.94675e+03,0.10752e+04 /) - kao(:, 3,12, 7) = (/ & - & 0.11163e+04,0.98265e+03,0.84895e+03,0.71521e+03,0.59030e+03, & - & 0.69172e+03,0.81873e+03,0.94686e+03,0.10754e+04 /) - kao(:, 4,12, 7) = (/ & - & 0.11085e+04,0.97579e+03,0.84307e+03,0.71031e+03,0.58782e+03, & - & 0.69148e+03,0.81855e+03,0.94672e+03,0.10753e+04 /) - kao(:, 5,12, 7) = (/ & - & 0.11016e+04,0.96977e+03,0.83790e+03,0.70601e+03,0.58538e+03, & - & 0.69099e+03,0.81812e+03,0.94628e+03,0.10749e+04 /) - kao(:, 1,13, 7) = (/ & - & 0.11104e+04,0.97748e+03,0.84452e+03,0.71152e+03,0.58852e+03, & - & 0.69093e+03,0.81799e+03,0.94612e+03,0.10746e+04 /) - kao(:, 2,13, 7) = (/ & - & 0.11018e+04,0.96998e+03,0.83809e+03,0.70616e+03,0.58570e+03, & - & 0.69123e+03,0.81841e+03,0.94664e+03,0.10752e+04 /) - kao(:, 3,13, 7) = (/ & - & 0.10945e+04,0.96352e+03,0.83255e+03,0.70155e+03,0.58307e+03, & - & 0.69128e+03,0.81849e+03,0.94675e+03,0.10754e+04 /) - kao(:, 4,13, 7) = (/ & - & 0.10880e+04,0.95790e+03,0.82774e+03,0.69753e+03,0.58045e+03, & - & 0.69107e+03,0.81832e+03,0.94657e+03,0.10753e+04 /) - kao(:, 5,13, 7) = (/ & - & 0.10824e+04,0.95297e+03,0.82351e+03,0.69401e+03,0.57806e+03, & - & 0.69061e+03,0.81788e+03,0.94614e+03,0.10749e+04 /) - kao(:, 1, 1, 8) = (/ & - & 0.19433e+04,0.17047e+04,0.14661e+04,0.12275e+04,0.98902e+03, & - & 0.75120e+03,0.85754e+03,0.98845e+03,0.11206e+04 /) - kao(:, 2, 1, 8) = (/ & - & 0.18941e+04,0.16616e+04,0.14292e+04,0.11968e+04,0.96439e+03, & - & 0.73548e+03,0.85594e+03,0.98707e+03,0.11193e+04 /) - kao(:, 3, 1, 8) = (/ & - & 0.18499e+04,0.16229e+04,0.13960e+04,0.11691e+04,0.94229e+03, & - & 0.72448e+03,0.85413e+03,0.98549e+03,0.11177e+04 /) - kao(:, 4, 1, 8) = (/ & - & 0.18099e+04,0.15880e+04,0.13661e+04,0.11442e+04,0.92233e+03, & - & 0.72225e+03,0.85214e+03,0.98373e+03,0.11158e+04 /) - kao(:, 5, 1, 8) = (/ & - & 0.17737e+04,0.15563e+04,0.13389e+04,0.11215e+04,0.90421e+03, & - & 0.72001e+03,0.85005e+03,0.98175e+03,0.11138e+04 /) - kao(:, 1, 2, 8) = (/ & - & 0.17953e+04,0.15751e+04,0.13551e+04,0.11350e+04,0.91499e+03, & - & 0.72569e+03,0.85649e+03,0.98821e+03,0.11210e+04 /) - kao(:, 2, 2, 8) = (/ & - & 0.17530e+04,0.15382e+04,0.13234e+04,0.11086e+04,0.89388e+03, & - & 0.72424e+03,0.85509e+03,0.98698e+03,0.11198e+04 /) - kao(:, 3, 2, 8) = (/ & - & 0.17152e+04,0.15051e+04,0.12950e+04,0.10850e+04,0.87497e+03, & - & 0.72267e+03,0.85348e+03,0.98553e+03,0.11184e+04 /) - kao(:, 4, 2, 8) = (/ & - & 0.16811e+04,0.14753e+04,0.12695e+04,0.10637e+04,0.85793e+03, & - & 0.72084e+03,0.85163e+03,0.98389e+03,0.11166e+04 /) - kao(:, 5, 2, 8) = (/ & - & 0.16502e+04,0.14483e+04,0.12463e+04,0.10444e+04,0.84250e+03, & - & 0.71877e+03,0.84969e+03,0.98204e+03,0.11147e+04 /) - kao(:, 1, 3, 8) = (/ & - & 0.16788e+04,0.14733e+04,0.12678e+04,0.10623e+04,0.85679e+03, & - & 0.72434e+03,0.85588e+03,0.98822e+03,0.11216e+04 /) - kao(:, 2, 3, 8) = (/ & - & 0.16418e+04,0.14409e+04,0.12400e+04,0.10391e+04,0.83827e+03, & - & 0.72306e+03,0.85466e+03,0.98716e+03,0.11206e+04 /) - kao(:, 3, 3, 8) = (/ & - & 0.16087e+04,0.14119e+04,0.12152e+04,0.10184e+04,0.82172e+03, & - & 0.72165e+03,0.85327e+03,0.98590e+03,0.11193e+04 /) - kao(:, 4, 3, 8) = (/ & - & 0.15790e+04,0.13859e+04,0.11929e+04,0.99988e+03,0.80688e+03, & - & 0.72007e+03,0.85161e+03,0.98438e+03,0.11177e+04 /) - kao(:, 5, 3, 8) = (/ & - & 0.15522e+04,0.13625e+04,0.11728e+04,0.98311e+03,0.79349e+03, & - & 0.71824e+03,0.84982e+03,0.98270e+03,0.11159e+04 /) - kao(:, 1, 4, 8) = (/ & - & 0.15823e+04,0.13888e+04,0.11953e+04,0.10019e+04,0.80851e+03, & - & 0.72326e+03,0.85540e+03,0.98823e+03,0.11221e+04 /) - kao(:, 2, 4, 8) = (/ & - & 0.15495e+04,0.13601e+04,0.11708e+04,0.98142e+03,0.79213e+03, & - & 0.72214e+03,0.85436e+03,0.98737e+03,0.11213e+04 /) - kao(:, 3, 4, 8) = (/ & - & 0.15204e+04,0.13346e+04,0.11489e+04,0.96322e+03,0.77758e+03, & - & 0.72091e+03,0.85317e+03,0.98628e+03,0.11202e+04 /) - kao(:, 4, 4, 8) = (/ & - & 0.14943e+04,0.13118e+04,0.11294e+04,0.94694e+03,0.76455e+03, & - & 0.71952e+03,0.85175e+03,0.98496e+03,0.11188e+04 /) - kao(:, 5, 4, 8) = (/ & - & 0.14709e+04,0.12913e+04,0.11118e+04,0.93229e+03,0.75284e+03, & - & 0.71792e+03,0.85010e+03,0.98342e+03,0.11171e+04 /) - kao(:, 1, 5, 8) = (/ & - & 0.15002e+04,0.13170e+04,0.11338e+04,0.95063e+03,0.76749e+03, & - & 0.72234e+03,0.85495e+03,0.98821e+03,0.11224e+04 /) - kao(:, 2, 5, 8) = (/ & - & 0.14712e+04,0.12916e+04,0.11120e+04,0.93250e+03,0.75300e+03, & - & 0.72139e+03,0.85409e+03,0.98753e+03,0.11218e+04 /) - kao(:, 3, 5, 8) = (/ & - & 0.14456e+04,0.12692e+04,0.10928e+04,0.91647e+03,0.74017e+03, & - & 0.72031e+03,0.85307e+03,0.98657e+03,0.11209e+04 /) - kao(:, 4, 5, 8) = (/ & - & 0.14227e+04,0.12492e+04,0.10757e+04,0.90219e+03,0.72875e+03, & - & 0.71909e+03,0.85186e+03,0.98546e+03,0.11197e+04 /) - kao(:, 5, 5, 8) = (/ & - & 0.14022e+04,0.12312e+04,0.10603e+04,0.88937e+03,0.71851e+03, & - & 0.71769e+03,0.85037e+03,0.98406e+03,0.11182e+04 /) - kao(:, 1, 6, 8) = (/ & - & 0.14314e+04,0.12568e+04,0.10822e+04,0.90763e+03,0.73310e+03, & - & 0.72155e+03,0.85452e+03,0.98813e+03,0.11226e+04 /) - kao(:, 2, 6, 8) = (/ & - & 0.14056e+04,0.12342e+04,0.10628e+04,0.89150e+03,0.72020e+03, & - & 0.72077e+03,0.85386e+03,0.98765e+03,0.11222e+04 /) - kao(:, 3, 6, 8) = (/ & - & 0.13829e+04,0.12143e+04,0.10458e+04,0.87730e+03,0.70887e+03, & - & 0.71986e+03,0.85300e+03,0.98688e+03,0.11215e+04 /) - kao(:, 4, 6, 8) = (/ & - & 0.13627e+04,0.11967e+04,0.10307e+04,0.86473e+03,0.69880e+03, & - & 0.71879e+03,0.85197e+03,0.98590e+03,0.11205e+04 /) - kao(:, 5, 6, 8) = (/ & - & 0.13448e+04,0.11810e+04,0.10172e+04,0.85348e+03,0.68979e+03, & - & 0.71757e+03,0.85073e+03,0.98469e+03,0.11192e+04 /) - kao(:, 1, 7, 8) = (/ & - & 0.13728e+04,0.12055e+04,0.10383e+04,0.87102e+03,0.70382e+03, & - & 0.72081e+03,0.85410e+03,0.98799e+03,0.11227e+04 /) - kao(:, 2, 7, 8) = (/ & - & 0.13499e+04,0.11854e+04,0.10210e+04,0.85666e+03,0.69233e+03, & - & 0.72022e+03,0.85362e+03,0.98768e+03,0.11225e+04 /) - kao(:, 3, 7, 8) = (/ & - & 0.13297e+04,0.11678e+04,0.10059e+04,0.84408e+03,0.68228e+03, & - & 0.71945e+03,0.85293e+03,0.98711e+03,0.11220e+04 /) - kao(:, 4, 7, 8) = (/ & - & 0.13120e+04,0.11523e+04,0.99261e+03,0.83298e+03,0.67339e+03, & - & 0.71854e+03,0.85205e+03,0.98632e+03,0.11212e+04 /) - kao(:, 5, 7, 8) = (/ & - & 0.12962e+04,0.11384e+04,0.98077e+03,0.82312e+03,0.66550e+03, & - & 0.71746e+03,0.85098e+03,0.98523e+03,0.11200e+04 /) - kao(:, 1, 8, 8) = (/ & - & 0.13227e+04,0.11617e+04,0.10007e+04,0.83971e+03,0.67877e+03, & - & 0.72007e+03,0.85366e+03,0.98779e+03,0.11227e+04 /) - kao(:, 2, 8, 8) = (/ & - & 0.13022e+04,0.11438e+04,0.98533e+03,0.82690e+03,0.66854e+03, & - & 0.71969e+03,0.85334e+03,0.98763e+03,0.11227e+04 /) - kao(:, 3, 8, 8) = (/ & - & 0.12844e+04,0.11282e+04,0.97196e+03,0.81577e+03,0.65963e+03, & - & 0.71908e+03,0.85283e+03,0.98717e+03,0.11223e+04 /) - kao(:, 4, 8, 8) = (/ & - & 0.12688e+04,0.11145e+04,0.96023e+03,0.80599e+03,0.65182e+03, & - & 0.71830e+03,0.85210e+03,0.98659e+03,0.11217e+04 /) - kao(:, 5, 8, 8) = (/ & - & 0.12549e+04,0.11024e+04,0.94982e+03,0.79733e+03,0.64488e+03, & - & 0.71736e+03,0.85118e+03,0.98569e+03,0.11208e+04 /) - kao(:, 1, 9, 8) = (/ & - & 0.12800e+04,0.11244e+04,0.96868e+03,0.81302e+03,0.65744e+03, & - & 0.71936e+03,0.85323e+03,0.98761e+03,0.11226e+04 /) - kao(:, 2, 9, 8) = (/ & - & 0.12618e+04,0.11084e+04,0.95498e+03,0.80161e+03,0.64832e+03, & - & 0.71916e+03,0.85306e+03,0.98751e+03,0.11227e+04 /) - kao(:, 3, 9, 8) = (/ & - & 0.12460e+04,0.10945e+04,0.94313e+03,0.79175e+03,0.64042e+03, & - & 0.71874e+03,0.85269e+03,0.98731e+03,0.11226e+04 /) - kao(:, 4, 9, 8) = (/ & - & 0.12322e+04,0.10825e+04,0.93277e+03,0.78311e+03,0.63351e+03, & - & 0.71809e+03,0.85213e+03,0.98681e+03,0.11221e+04 /) - kao(:, 5, 9, 8) = (/ & - & 0.12200e+04,0.10718e+04,0.92365e+03,0.77552e+03,0.62743e+03, & - & 0.71728e+03,0.85134e+03,0.98607e+03,0.11214e+04 /) - kao(:, 1,10, 8) = (/ & - & 0.12423e+04,0.10913e+04,0.94034e+03,0.78942e+03,0.63856e+03, & - & 0.71867e+03,0.85279e+03,0.98738e+03,0.11225e+04 /) - kao(:, 2,10, 8) = (/ & - & 0.12262e+04,0.10772e+04,0.92827e+03,0.77936e+03,0.63052e+03, & - & 0.71863e+03,0.85274e+03,0.98738e+03,0.11227e+04 /) - kao(:, 3,10, 8) = (/ & - & 0.12123e+04,0.10651e+04,0.91788e+03,0.77071e+03,0.62359e+03, & - & 0.71835e+03,0.85251e+03,0.98725e+03,0.11227e+04 /) - kao(:, 4,10, 8) = (/ & - & 0.12002e+04,0.10545e+04,0.90884e+03,0.76317e+03,0.61756e+03, & - & 0.71785e+03,0.85203e+03,0.98691e+03,0.11224e+04 /) - kao(:, 5,10, 8) = (/ & - & 0.11897e+04,0.10453e+04,0.90090e+03,0.75655e+03,0.61227e+03, & - & 0.71716e+03,0.85141e+03,0.98631e+03,0.11218e+04 /) - kao(:, 1,11, 8) = (/ & - & 0.12033e+04,0.10572e+04,0.91110e+03,0.76506e+03,0.61908e+03, & - & 0.71809e+03,0.85242e+03,0.98721e+03,0.11225e+04 /) - kao(:, 2,11, 8) = (/ & - & 0.11901e+04,0.10456e+04,0.90123e+03,0.75682e+03,0.61248e+03, & - & 0.71809e+03,0.85240e+03,0.98723e+03,0.11226e+04 /) - kao(:, 3,11, 8) = (/ & - & 0.11788e+04,0.10357e+04,0.89271e+03,0.74972e+03,0.60692e+03, & - & 0.71785e+03,0.85217e+03,0.98712e+03,0.11227e+04 /) - kao(:, 4,11, 8) = (/ & - & 0.11689e+04,0.10271e+04,0.88529e+03,0.74355e+03,0.60253e+03, & - & 0.71738e+03,0.85177e+03,0.98681e+03,0.11224e+04 /) - kao(:, 5,11, 8) = (/ & - & 0.11602e+04,0.10195e+04,0.87880e+03,0.73813e+03,0.59855e+03, & - & 0.71672e+03,0.85114e+03,0.98618e+03,0.11218e+04 /) - kao(:, 1,12, 8) = (/ & - & 0.11713e+04,0.10292e+04,0.88712e+03,0.74507e+03,0.60379e+03, & - & 0.71766e+03,0.85212e+03,0.98706e+03,0.11225e+04 /) - kao(:, 2,12, 8) = (/ & - & 0.11605e+04,0.10197e+04,0.87902e+03,0.73833e+03,0.59891e+03, & - & 0.71764e+03,0.85212e+03,0.98710e+03,0.11227e+04 /) - kao(:, 3,12, 8) = (/ & - & 0.11512e+04,0.10116e+04,0.87205e+03,0.73251e+03,0.59502e+03, & - & 0.71744e+03,0.85192e+03,0.98700e+03,0.11227e+04 /) - kao(:, 4,12, 8) = (/ & - & 0.11431e+04,0.10045e+04,0.86598e+03,0.72746e+03,0.59151e+03, & - & 0.71699e+03,0.85153e+03,0.98663e+03,0.11224e+04 /) - kao(:, 5,12, 8) = (/ & - & 0.11360e+04,0.99832e+03,0.86067e+03,0.72302e+03,0.58868e+03, & - & 0.71636e+03,0.85092e+03,0.98606e+03,0.11218e+04 /) - kao(:, 1,13, 8) = (/ & - & 0.11451e+04,0.10063e+04,0.86748e+03,0.72871e+03,0.59258e+03, & - & 0.71726e+03,0.85187e+03,0.98696e+03,0.11225e+04 /) - kao(:, 2,13, 8) = (/ & - & 0.11363e+04,0.99855e+03,0.86085e+03,0.72320e+03,0.58896e+03, & - & 0.71729e+03,0.85183e+03,0.98699e+03,0.11227e+04 /) - kao(:, 3,13, 8) = (/ & - & 0.11287e+04,0.99189e+03,0.85515e+03,0.71842e+03,0.58585e+03, & - & 0.71710e+03,0.85169e+03,0.98691e+03,0.11227e+04 /) - kao(:, 4,13, 8) = (/ & - & 0.11220e+04,0.98609e+03,0.85017e+03,0.71429e+03,0.58380e+03, & - & 0.71668e+03,0.85133e+03,0.98660e+03,0.11224e+04 /) - kao(:, 5,13, 8) = (/ & - & 0.11162e+04,0.98101e+03,0.84582e+03,0.71065e+03,0.58234e+03, & - & 0.71606e+03,0.85074e+03,0.98601e+03,0.11218e+04 /) - kao(:, 1, 1, 9) = (/ & - & 0.19571e+04,0.17167e+04,0.14761e+04,0.12357e+04,0.99528e+03, & - & 0.75488e+03,0.87315e+03,0.10086e+04,0.11441e+04 /) - kao(:, 2, 1, 9) = (/ & - & 0.19076e+04,0.16733e+04,0.14390e+04,0.12047e+04,0.97044e+03, & - & 0.73841e+03,0.87146e+03,0.10070e+04,0.11425e+04 /) - kao(:, 3, 1, 9) = (/ & - & 0.18630e+04,0.16343e+04,0.14056e+04,0.11769e+04,0.94822e+03, & - & 0.73460e+03,0.86967e+03,0.10052e+04,0.11407e+04 /) - kao(:, 4, 1, 9) = (/ & - & 0.18229e+04,0.15991e+04,0.13754e+04,0.11517e+04,0.92811e+03, & - & 0.73269e+03,0.86788e+03,0.10033e+04,0.11387e+04 /) - kao(:, 5, 1, 9) = (/ & - & 0.17864e+04,0.15672e+04,0.13481e+04,0.11289e+04,0.90984e+03, & - & 0.73091e+03,0.86616e+03,0.10016e+04,0.11368e+04 /) - kao(:, 1, 2, 9) = (/ & - & 0.18080e+04,0.15862e+04,0.13643e+04,0.11425e+04,0.92072e+03, & - & 0.73694e+03,0.87246e+03,0.10086e+04,0.11448e+04 /) - kao(:, 2, 2, 9) = (/ & - & 0.17655e+04,0.15491e+04,0.13324e+04,0.11159e+04,0.89943e+03, & - & 0.73525e+03,0.87092e+03,0.10070e+04,0.11432e+04 /) - kao(:, 3, 2, 9) = (/ & - & 0.17274e+04,0.15157e+04,0.13039e+04,0.10921e+04,0.88039e+03, & - & 0.73343e+03,0.86922e+03,0.10053e+04,0.11415e+04 /) - kao(:, 4, 2, 9) = (/ & - & 0.16931e+04,0.14856e+04,0.12781e+04,0.10706e+04,0.86326e+03, & - & 0.73166e+03,0.86752e+03,0.10036e+04,0.11395e+04 /) - kao(:, 5, 2, 9) = (/ & - & 0.16621e+04,0.14584e+04,0.12549e+04,0.10512e+04,0.84768e+03, & - & 0.73000e+03,0.86583e+03,0.10018e+04,0.11376e+04 /) - kao(:, 1, 3, 9) = (/ & - & 0.16908e+04,0.14837e+04,0.12764e+04,0.10692e+04,0.86209e+03, & - & 0.73591e+03,0.87213e+03,0.10088e+04,0.11456e+04 /) - kao(:, 2, 3, 9) = (/ & - & 0.16535e+04,0.14509e+04,0.12484e+04,0.10459e+04,0.84339e+03, & - & 0.73450e+03,0.87080e+03,0.10075e+04,0.11442e+04 /) - kao(:, 3, 3, 9) = (/ & - & 0.16202e+04,0.14218e+04,0.12234e+04,0.10251e+04,0.82680e+03, & - & 0.73291e+03,0.86926e+03,0.10059e+04,0.11426e+04 /) - kao(:, 4, 3, 9) = (/ & - & 0.15902e+04,0.13956e+04,0.12011e+04,0.10064e+04,0.81183e+03, & - & 0.73120e+03,0.86761e+03,0.10042e+04,0.11407e+04 /) - kao(:, 5, 3, 9) = (/ & - & 0.15632e+04,0.13720e+04,0.11808e+04,0.98952e+03,0.79832e+03, & - & 0.72957e+03,0.86594e+03,0.10024e+04,0.11387e+04 /) - kao(:, 1, 4, 9) = (/ & - & 0.15935e+04,0.13985e+04,0.12035e+04,0.10084e+04,0.81344e+03, & - & 0.73513e+03,0.87195e+03,0.10092e+04,0.11463e+04 /) - kao(:, 2, 4, 9) = (/ & - & 0.15605e+04,0.13697e+04,0.11787e+04,0.98782e+03,0.79694e+03, & - & 0.73394e+03,0.87080e+03,0.10079e+04,0.11451e+04 /) - kao(:, 3, 4, 9) = (/ & - & 0.15313e+04,0.13439e+04,0.11567e+04,0.96950e+03,0.78229e+03, & - & 0.73257e+03,0.86942e+03,0.10065e+04,0.11436e+04 /) - kao(:, 4, 4, 9) = (/ & - & 0.15050e+04,0.13210e+04,0.11371e+04,0.95308e+03,0.76922e+03, & - & 0.73104e+03,0.86787e+03,0.10049e+04,0.11419e+04 /) - kao(:, 5, 4, 9) = (/ & - & 0.14814e+04,0.13003e+04,0.11193e+04,0.93833e+03,0.75745e+03, & - & 0.72946e+03,0.86622e+03,0.10032e+04,0.11400e+04 /) - kao(:, 1, 5, 9) = (/ & - & 0.15109e+04,0.13262e+04,0.11415e+04,0.95685e+03,0.77217e+03, & - & 0.73443e+03,0.87177e+03,0.10094e+04,0.11470e+04 /) - kao(:, 2, 5, 9) = (/ & - & 0.14817e+04,0.13007e+04,0.11196e+04,0.93852e+03,0.75755e+03, & - & 0.73343e+03,0.87078e+03,0.10083e+04,0.11459e+04 /) - kao(:, 3, 5, 9) = (/ & - & 0.14559e+04,0.12780e+04,0.11003e+04,0.92240e+03,0.74463e+03, & - & 0.73229e+03,0.86958e+03,0.10071e+04,0.11446e+04 /) - kao(:, 4, 5, 9) = (/ & - & 0.14329e+04,0.12579e+04,0.10829e+04,0.90802e+03,0.73310e+03, & - & 0.73095e+03,0.86817e+03,0.10056e+04,0.11430e+04 /) - kao(:, 5, 5, 9) = (/ & - & 0.14122e+04,0.12398e+04,0.10675e+04,0.89511e+03,0.72281e+03, & - & 0.72946e+03,0.86664e+03,0.10039e+04,0.11412e+04 /) - kao(:, 1, 6, 9) = (/ & - & 0.14417e+04,0.12655e+04,0.10896e+04,0.91348e+03,0.73747e+03, & - & 0.73386e+03,0.87165e+03,0.10096e+04,0.11475e+04 /) - kao(:, 2, 6, 9) = (/ & - & 0.14156e+04,0.12429e+04,0.10700e+04,0.89725e+03,0.72457e+03, & - & 0.73304e+03,0.87078e+03,0.10087e+04,0.11466e+04 /) - kao(:, 3, 6, 9) = (/ & - & 0.13928e+04,0.12228e+04,0.10529e+04,0.88300e+03,0.71308e+03, & - & 0.73207e+03,0.86977e+03,0.10076e+04,0.11455e+04 /) - kao(:, 4, 6, 9) = (/ & - & 0.13725e+04,0.12051e+04,0.10377e+04,0.87029e+03,0.70290e+03, & - & 0.73093e+03,0.86853e+03,0.10063e+04,0.11441e+04 /) - kao(:, 5, 6, 9) = (/ & - & 0.13544e+04,0.11892e+04,0.10241e+04,0.85897e+03,0.69390e+03, & - & 0.72961e+03,0.86706e+03,0.10048e+04,0.11424e+04 /) - kao(:, 1, 7, 9) = (/ & - & 0.13826e+04,0.12140e+04,0.10453e+04,0.87664e+03,0.70803e+03, & - & 0.73339e+03,0.87155e+03,0.10098e+04,0.11480e+04 /) - kao(:, 2, 7, 9) = (/ & - & 0.13594e+04,0.11937e+04,0.10279e+04,0.86216e+03,0.69645e+03, & - & 0.73269e+03,0.87079e+03,0.10090e+04,0.11472e+04 /) - kao(:, 3, 7, 9) = (/ & - & 0.13392e+04,0.11759e+04,0.10127e+04,0.84953e+03,0.68632e+03, & - & 0.73188e+03,0.86990e+03,0.10081e+04,0.11462e+04 /) - kao(:, 4, 7, 9) = (/ & - & 0.13213e+04,0.11603e+04,0.99928e+03,0.83829e+03,0.67737e+03, & - & 0.73090e+03,0.86884e+03,0.10069e+04,0.11450e+04 /) - kao(:, 5, 7, 9) = (/ & - & 0.13054e+04,0.11464e+04,0.98739e+03,0.82837e+03,0.66946e+03, & - & 0.72975e+03,0.86756e+03,0.10055e+04,0.11435e+04 /) - kao(:, 1, 8, 9) = (/ & - & 0.13322e+04,0.11698e+04,0.10074e+04,0.84511e+03,0.68280e+03, & - & 0.73302e+03,0.87145e+03,0.10099e+04,0.11483e+04 /) - kao(:, 2, 8, 9) = (/ & - & 0.13116e+04,0.11517e+04,0.99199e+03,0.83221e+03,0.67250e+03, & - & 0.73244e+03,0.87079e+03,0.10093e+04,0.11477e+04 /) - kao(:, 3, 8, 9) = (/ & - & 0.12937e+04,0.11360e+04,0.97848e+03,0.82097e+03,0.66349e+03, & - & 0.73170e+03,0.87002e+03,0.10085e+04,0.11469e+04 /) - kao(:, 4, 8, 9) = (/ & - & 0.12778e+04,0.11223e+04,0.96666e+03,0.81113e+03,0.65562e+03, & - & 0.73087e+03,0.86909e+03,0.10075e+04,0.11458e+04 /) - kao(:, 5, 8, 9) = (/ & - & 0.12639e+04,0.11101e+04,0.95620e+03,0.80244e+03,0.64865e+03, & - & 0.72985e+03,0.86796e+03,0.10062e+04,0.11444e+04 /) - kao(:, 1, 9, 9) = (/ & - & 0.12892e+04,0.11322e+04,0.97520e+03,0.81821e+03,0.66134e+03, & - & 0.73274e+03,0.87135e+03,0.10099e+04,0.11485e+04 /) - kao(:, 2, 9, 9) = (/ & - & 0.12708e+04,0.11161e+04,0.96140e+03,0.80674e+03,0.65213e+03, & - & 0.73213e+03,0.87079e+03,0.10095e+04,0.11481e+04 /) - kao(:, 3, 9, 9) = (/ & - & 0.12548e+04,0.11022e+04,0.94949e+03,0.79681e+03,0.64421e+03, & - & 0.73152e+03,0.87011e+03,0.10088e+04,0.11474e+04 /) - kao(:, 4, 9, 9) = (/ & - & 0.12410e+04,0.10900e+04,0.93905e+03,0.78808e+03,0.63726e+03, & - & 0.73083e+03,0.86928e+03,0.10079e+04,0.11464e+04 /) - kao(:, 5, 9, 9) = (/ & - & 0.12287e+04,0.10793e+04,0.92981e+03,0.78042e+03,0.63106e+03, & - & 0.72995e+03,0.86831e+03,0.10068e+04,0.11452e+04 /) - kao(:, 1,10, 9) = (/ & - & 0.12511e+04,0.10989e+04,0.94665e+03,0.79449e+03,0.64227e+03, & - & 0.73248e+03,0.87121e+03,0.10099e+04,0.11487e+04 /) - kao(:, 2,10, 9) = (/ & - & 0.12350e+04,0.10848e+04,0.93449e+03,0.78435e+03,0.63416e+03, & - & 0.73188e+03,0.87073e+03,0.10095e+04,0.11483e+04 /) - kao(:, 3,10, 9) = (/ & - & 0.12209e+04,0.10725e+04,0.92407e+03,0.77565e+03,0.62724e+03, & - & 0.73132e+03,0.87012e+03,0.10091e+04,0.11477e+04 /) - kao(:, 4,10, 9) = (/ & - & 0.12088e+04,0.10618e+04,0.91493e+03,0.76801e+03,0.62113e+03, & - & 0.73072e+03,0.86943e+03,0.10082e+04,0.11469e+04 /) - kao(:, 5,10, 9) = (/ & - & 0.11981e+04,0.10526e+04,0.90691e+03,0.76134e+03,0.61583e+03, & - & 0.72997e+03,0.86853e+03,0.10072e+04,0.11458e+04 /) - kao(:, 1,11, 9) = (/ & - & 0.12119e+04,0.10646e+04,0.91723e+03,0.76995e+03,0.62265e+03, & - & 0.73201e+03,0.87093e+03,0.10098e+04,0.11487e+04 /) - kao(:, 2,11, 9) = (/ & - & 0.11986e+04,0.10529e+04,0.90727e+03,0.76161e+03,0.61603e+03, & - & 0.73147e+03,0.87046e+03,0.10094e+04,0.11483e+04 /) - kao(:, 3,11, 9) = (/ & - & 0.11871e+04,0.10429e+04,0.89865e+03,0.75449e+03,0.61031e+03, & - & 0.73094e+03,0.86988e+03,0.10088e+04,0.11477e+04 /) - kao(:, 4,11, 9) = (/ & - & 0.11772e+04,0.10342e+04,0.89122e+03,0.74824e+03,0.60537e+03, & - & 0.73035e+03,0.86918e+03,0.10081e+04,0.11469e+04 /) - kao(:, 5,11, 9) = (/ & - & 0.11684e+04,0.10265e+04,0.88467e+03,0.74278e+03,0.60127e+03, & - & 0.72963e+03,0.86831e+03,0.10071e+04,0.11458e+04 /) - kao(:, 1,12, 9) = (/ & - & 0.11796e+04,0.10363e+04,0.89308e+03,0.74980e+03,0.60664e+03, & - & 0.73158e+03,0.87066e+03,0.10097e+04,0.11487e+04 /) - kao(:, 2,12, 9) = (/ & - & 0.11688e+04,0.10268e+04,0.88492e+03,0.74297e+03,0.60173e+03, & - & 0.73111e+03,0.87023e+03,0.10093e+04,0.11483e+04 /) - kao(:, 3,12, 9) = (/ & - & 0.11594e+04,0.10186e+04,0.87787e+03,0.73715e+03,0.59711e+03, & - & 0.73061e+03,0.86968e+03,0.10088e+04,0.11478e+04 /) - kao(:, 4,12, 9) = (/ & - & 0.11512e+04,0.10115e+04,0.87180e+03,0.73203e+03,0.59373e+03, & - & 0.73004e+03,0.86900e+03,0.10080e+04,0.11469e+04 /) - kao(:, 5,12, 9) = (/ & - & 0.11441e+04,0.10053e+04,0.86640e+03,0.72756e+03,0.59149e+03, & - & 0.72934e+03,0.86813e+03,0.10070e+04,0.11458e+04 /) - kao(:, 1,13, 9) = (/ & - & 0.11533e+04,0.10132e+04,0.87330e+03,0.73334e+03,0.59476e+03, & - & 0.73130e+03,0.87046e+03,0.10096e+04,0.11487e+04 /) - kao(:, 2,13, 9) = (/ & - & 0.11444e+04,0.10055e+04,0.86659e+03,0.72770e+03,0.59240e+03, & - & 0.73084e+03,0.87005e+03,0.10092e+04,0.11483e+04 /) - kao(:, 3,13, 9) = (/ & - & 0.11367e+04,0.99882e+03,0.86084e+03,0.72297e+03,0.59186e+03, & - & 0.73036e+03,0.86950e+03,0.10087e+04,0.11478e+04 /) - kao(:, 4,13, 9) = (/ & - & 0.11300e+04,0.99294e+03,0.85585e+03,0.71880e+03,0.59143e+03, & - & 0.72979e+03,0.86883e+03,0.10079e+04,0.11469e+04 /) - kao(:, 5,13, 9) = (/ & - & 0.11242e+04,0.98788e+03,0.85146e+03,0.71512e+03,0.59082e+03, & - & 0.72910e+03,0.86797e+03,0.10069e+04,0.11459e+04 /) - kao(:, 1, 1,10) = (/ & - & 0.19609e+04,0.17196e+04,0.14787e+04,0.12373e+04,0.99636e+03, & - & 0.75577e+03,0.88158e+03,0.10175e+04,0.11538e+04 /) - kao(:, 2, 1,10) = (/ & - & 0.19102e+04,0.16765e+04,0.14403e+04,0.12063e+04,0.97232e+03, & - & 0.74406e+03,0.87986e+03,0.10152e+04,0.11513e+04 /) - kao(:, 3, 1,10) = (/ & - & 0.18658e+04,0.16364e+04,0.14075e+04,0.11783e+04,0.94916e+03, & - & 0.74249e+03,0.87815e+03,0.10135e+04,0.11491e+04 /) - kao(:, 4, 1,10) = (/ & - & 0.18250e+04,0.16014e+04,0.13778e+04,0.11533e+04,0.92945e+03, & - & 0.74050e+03,0.87640e+03,0.10114e+04,0.11477e+04 /) - kao(:, 5, 1,10) = (/ & - & 0.17888e+04,0.15692e+04,0.13504e+04,0.11313e+04,0.91134e+03, & - & 0.73837e+03,0.87432e+03,0.10096e+04,0.11467e+04 /) - kao(:, 1, 2,10) = (/ & - & 0.18108e+04,0.15879e+04,0.13673e+04,0.11437e+04,0.92213e+03, & - & 0.74428e+03,0.88077e+03,0.10175e+04,0.11547e+04 /) - kao(:, 2, 2,10) = (/ & - & 0.17684e+04,0.15508e+04,0.13352e+04,0.11178e+04,0.90099e+03, & - & 0.74265e+03,0.87920e+03,0.10158e+04,0.11521e+04 /) - kao(:, 3, 2,10) = (/ & - & 0.17293e+04,0.15183e+04,0.13063e+04,0.10931e+04,0.88199e+03, & - & 0.74117e+03,0.87755e+03,0.10136e+04,0.11500e+04 /) - kao(:, 4, 2,10) = (/ & - & 0.16960e+04,0.14887e+04,0.12799e+04,0.10727e+04,0.86433e+03, & - & 0.73957e+03,0.87577e+03,0.10116e+04,0.11482e+04 /) - kao(:, 5, 2,10) = (/ & - & 0.16637e+04,0.14607e+04,0.12562e+04,0.10527e+04,0.84877e+03, & - & 0.73748e+03,0.87409e+03,0.10096e+04,0.11470e+04 /) - kao(:, 1, 3,10) = (/ & - & 0.16939e+04,0.14847e+04,0.12786e+04,0.10705e+04,0.86372e+03, & - & 0.74343e+03,0.88064e+03,0.10178e+04,0.11559e+04 /) - kao(:, 2, 3,10) = (/ & - & 0.16557e+04,0.14542e+04,0.12503e+04,0.10478e+04,0.84533e+03, & - & 0.74182e+03,0.87906e+03,0.10163e+04,0.11537e+04 /) - kao(:, 3, 3,10) = (/ & - & 0.16218e+04,0.14239e+04,0.12249e+04,0.10266e+04,0.82819e+03, & - & 0.74031e+03,0.87730e+03,0.10137e+04,0.11513e+04 /) - kao(:, 4, 3,10) = (/ & - & 0.15929e+04,0.13992e+04,0.12027e+04,0.10077e+04,0.81299e+03, & - & 0.73896e+03,0.87590e+03,0.10123e+04,0.11493e+04 /) - kao(:, 5, 3,10) = (/ & - & 0.15654e+04,0.13740e+04,0.11824e+04,0.99136e+03,0.79933e+03, & - & 0.73740e+03,0.87406e+03,0.10104e+04,0.11477e+04 /) - kao(:, 1, 4,10) = (/ & - & 0.15959e+04,0.14010e+04,0.12054e+04,0.10100e+04,0.81522e+03, & - & 0.74271e+03,0.88040e+03,0.10180e+04,0.11570e+04 /) - kao(:, 2, 4,10) = (/ & - & 0.15637e+04,0.13710e+04,0.11804e+04,0.98920e+03,0.79803e+03, & - & 0.74139e+03,0.87903e+03,0.10168e+04,0.11552e+04 /) - kao(:, 3, 4,10) = (/ & - & 0.15330e+04,0.13459e+04,0.11594e+04,0.97120e+03,0.78314e+03, & - & 0.74000e+03,0.87753e+03,0.10151e+04,0.11528e+04 /) - kao(:, 4, 4,10) = (/ & - & 0.15077e+04,0.13229e+04,0.11386e+04,0.95486e+03,0.77029e+03, & - & 0.73854e+03,0.87600e+03,0.10131e+04,0.11506e+04 /) - kao(:, 5, 4,10) = (/ & - & 0.14835e+04,0.13025e+04,0.11209e+04,0.94000e+03,0.75786e+03, & - & 0.73717e+03,0.87438e+03,0.10111e+04,0.11486e+04 /) - kao(:, 1, 5,10) = (/ & - & 0.15126e+04,0.13285e+04,0.11431e+04,0.95745e+03,0.77284e+03, & - & 0.74220e+03,0.88024e+03,0.10187e+04,0.11578e+04 /) - kao(:, 2, 5,10) = (/ & - & 0.14829e+04,0.13024e+04,0.11209e+04,0.94020e+03,0.75863e+03, & - & 0.74099e+03,0.87909e+03,0.10174e+04,0.11564e+04 /) - kao(:, 3, 5,10) = (/ & - & 0.14582e+04,0.12806e+04,0.11014e+04,0.92377e+03,0.74596e+03, & - & 0.73960e+03,0.87772e+03,0.10159e+04,0.11544e+04 /) - kao(:, 4, 5,10) = (/ & - & 0.14345e+04,0.12594e+04,0.10847e+04,0.90887e+03,0.73410e+03, & - & 0.73828e+03,0.87622e+03,0.10139e+04,0.11518e+04 /) - kao(:, 5, 5,10) = (/ & - & 0.14140e+04,0.12418e+04,0.10683e+04,0.89661e+03,0.72364e+03, & - & 0.73696e+03,0.87469e+03,0.10119e+04,0.11501e+04 /) - kao(:, 1, 6,10) = (/ & - & 0.14435e+04,0.12676e+04,0.10914e+04,0.91493e+03,0.73889e+03, & - & 0.74179e+03,0.88024e+03,0.10190e+04,0.11586e+04 /) - kao(:, 2, 6,10) = (/ & - & 0.14184e+04,0.12443e+04,0.10722e+04,0.89834e+03,0.72535e+03, & - & 0.74069e+03,0.87922e+03,0.10178e+04,0.11574e+04 /) - kao(:, 3, 6,10) = (/ & - & 0.13949e+04,0.12245e+04,0.10548e+04,0.88411e+03,0.71441e+03, & - & 0.73951e+03,0.87792e+03,0.10164e+04,0.11554e+04 /) - kao(:, 4, 6,10) = (/ & - & 0.13745e+04,0.12070e+04,0.10388e+04,0.87157e+03,0.70381e+03, & - & 0.73817e+03,0.87654e+03,0.10150e+04,0.11533e+04 /) - kao(:, 5, 6,10) = (/ & - & 0.13558e+04,0.11909e+04,0.10253e+04,0.86039e+03,0.69505e+03, & - & 0.73669e+03,0.87508e+03,0.10128e+04,0.11510e+04 /) - kao(:, 1, 7,10) = (/ & - & 0.13849e+04,0.12154e+04,0.10465e+04,0.87809e+03,0.70922e+03, & - & 0.74150e+03,0.88017e+03,0.10197e+04,0.11599e+04 /) - kao(:, 2, 7,10) = (/ & - & 0.13622e+04,0.11954e+04,0.10296e+04,0.86328e+03,0.69750e+03, & - & 0.74031e+03,0.87926e+03,0.10184e+04,0.11581e+04 /) - kao(:, 3, 7,10) = (/ & - & 0.13407e+04,0.11775e+04,0.10144e+04,0.85098e+03,0.68710e+03, & - & 0.73933e+03,0.87824e+03,0.10171e+04,0.11568e+04 /) - kao(:, 4, 7,10) = (/ & - & 0.13234e+04,0.11620e+04,0.10006e+04,0.83940e+03,0.67808e+03, & - & 0.73818e+03,0.87693e+03,0.10157e+04,0.11549e+04 /) - kao(:, 5, 7,10) = (/ & - & 0.13077e+04,0.11481e+04,0.98850e+03,0.82952e+03,0.66976e+03, & - & 0.73685e+03,0.87533e+03,0.10140e+04,0.11525e+04 /) - kao(:, 1, 8,10) = (/ & - & 0.13336e+04,0.11711e+04,0.10088e+04,0.84626e+03,0.68382e+03, & - & 0.74131e+03,0.88025e+03,0.10205e+04,0.11609e+04 /) - kao(:, 2, 8,10) = (/ & - & 0.13133e+04,0.11535e+04,0.99382e+03,0.83328e+03,0.67355e+03, & - & 0.73954e+03,0.87931e+03,0.10187e+04,0.11591e+04 /) - kao(:, 3, 8,10) = (/ & - & 0.12952e+04,0.11377e+04,0.97980e+03,0.82257e+03,0.66450e+03, & - & 0.73910e+03,0.87831e+03,0.10177e+04,0.11576e+04 /) - kao(:, 4, 8,10) = (/ & - & 0.12798e+04,0.11238e+04,0.96848e+03,0.81189e+03,0.65672e+03, & - & 0.73820e+03,0.87729e+03,0.10162e+04,0.11560e+04 /) - kao(:, 5, 8,10) = (/ & - & 0.12652e+04,0.11115e+04,0.95739e+03,0.80373e+03,0.64938e+03, & - & 0.73712e+03,0.87584e+03,0.10149e+04,0.11541e+04 /) - kao(:, 1, 9,10) = (/ & - & 0.12921e+04,0.11338e+04,0.97649e+03,0.81965e+03,0.66193e+03, & - & 0.74117e+03,0.88056e+03,0.10212e+04,0.11621e+04 /) - kao(:, 2, 9,10) = (/ & - & 0.12725e+04,0.11175e+04,0.96294e+03,0.80792e+03,0.65314e+03, & - & 0.74018e+03,0.87944e+03,0.10196e+04,0.11602e+04 /) - kao(:, 3, 9,10) = (/ & - & 0.12569e+04,0.11032e+04,0.95038e+03,0.79825e+03,0.64471e+03, & - & 0.73910e+03,0.87852e+03,0.10181e+04,0.11585e+04 /) - kao(:, 4, 9,10) = (/ & - & 0.12428e+04,0.10914e+04,0.94028e+03,0.78940e+03,0.63769e+03, & - & 0.73816e+03,0.87758e+03,0.10170e+04,0.11569e+04 /) - kao(:, 5, 9,10) = (/ & - & 0.12310e+04,0.10815e+04,0.93149e+03,0.78151e+03,0.63218e+03, & - & 0.73726e+03,0.87637e+03,0.10156e+04,0.11553e+04 /) - kao(:, 1,10,10) = (/ & - & 0.12531e+04,0.11009e+04,0.94808e+03,0.79569e+03,0.64353e+03, & - & 0.74092e+03,0.88101e+03,0.10222e+04,0.11631e+04 /) - kao(:, 2,10,10) = (/ & - & 0.12357e+04,0.10861e+04,0.93599e+03,0.78490e+03,0.63564e+03, & - & 0.74008e+03,0.87961e+03,0.10203e+04,0.11613e+04 /) - kao(:, 3,10,10) = (/ & - & 0.12227e+04,0.10738e+04,0.92501e+03,0.77680e+03,0.62842e+03, & - & 0.73914e+03,0.87860e+03,0.10179e+04,0.11592e+04 /) - kao(:, 4,10,10) = (/ & - & 0.12109e+04,0.10632e+04,0.91605e+03,0.76920e+03,0.62177e+03, & - & 0.73819e+03,0.87758e+03,0.10174e+04,0.11577e+04 /) - kao(:, 5,10,10) = (/ & - & 0.11998e+04,0.10537e+04,0.90813e+03,0.76232e+03,0.61616e+03, & - & 0.73732e+03,0.87676e+03,0.10162e+04,0.11563e+04 /) - kao(:, 1,11,10) = (/ & - & 0.12137e+04,0.10654e+04,0.91884e+03,0.77105e+03,0.62358e+03, & - & 0.74042e+03,0.88057e+03,0.10221e+04,0.11630e+04 /) - kao(:, 2,11,10) = (/ & - & 0.11999e+04,0.10545e+04,0.90854e+03,0.76253e+03,0.61715e+03, & - & 0.73961e+03,0.87932e+03,0.10201e+04,0.11611e+04 /) - kao(:, 3,11,10) = (/ & - & 0.11890e+04,0.10445e+04,0.90019e+03,0.75537e+03,0.61109e+03, & - & 0.73864e+03,0.87832e+03,0.10186e+04,0.11592e+04 /) - kao(:, 4,11,10) = (/ & - & 0.11789e+04,0.10359e+04,0.89280e+03,0.74928e+03,0.60622e+03, & - & 0.73779e+03,0.87747e+03,0.10172e+04,0.11577e+04 /) - kao(:, 5,11,10) = (/ & - & 0.11709e+04,0.10287e+04,0.88607e+03,0.74401e+03,0.60247e+03, & - & 0.73688e+03,0.87644e+03,0.10160e+04,0.11563e+04 /) - kao(:, 1,12,10) = (/ & - & 0.11820e+04,0.10383e+04,0.89456e+03,0.75081e+03,0.60714e+03, & - & 0.74001e+03,0.88049e+03,0.10220e+04,0.11631e+04 /) - kao(:, 2,12,10) = (/ & - & 0.11713e+04,0.10290e+04,0.88623e+03,0.74407e+03,0.60058e+03, & - & 0.73921e+03,0.87901e+03,0.10201e+04,0.11611e+04 /) - kao(:, 3,12,10) = (/ & - & 0.11605e+04,0.10200e+04,0.87951e+03,0.73788e+03,0.59769e+03, & - & 0.73835e+03,0.87808e+03,0.10182e+04,0.11591e+04 /) - kao(:, 4,12,10) = (/ & - & 0.11533e+04,0.10132e+04,0.87284e+03,0.73305e+03,0.59795e+03, & - & 0.73753e+03,0.87718e+03,0.10171e+04,0.11577e+04 /) - kao(:, 5,12,10) = (/ & - & 0.11467e+04,0.10071e+04,0.86739e+03,0.72890e+03,0.59711e+03, & - & 0.73664e+03,0.87623e+03,0.10159e+04,0.11563e+04 /) - kao(:, 1,13,10) = (/ & - & 0.11553e+04,0.10149e+04,0.87419e+03,0.73470e+03,0.59975e+03, & - & 0.73968e+03,0.88029e+03,0.10219e+04,0.11630e+04 /) - kao(:, 2,13,10) = (/ & - & 0.11455e+04,0.10072e+04,0.86782e+03,0.72873e+03,0.59921e+03, & - & 0.73889e+03,0.87889e+03,0.10200e+04,0.11611e+04 /) - kao(:, 3,13,10) = (/ & - & 0.11380e+04,0.10000e+04,0.86190e+03,0.72452e+03,0.59831e+03, & - & 0.73799e+03,0.87789e+03,0.10182e+04,0.11592e+04 /) - kao(:, 4,13,10) = (/ & - & 0.11318e+04,0.99472e+03,0.85697e+03,0.71950e+03,0.59744e+03, & - & 0.73726e+03,0.87708e+03,0.10170e+04,0.11577e+04 /) - kao(:, 5,13,10) = (/ & - & 0.11253e+04,0.98825e+03,0.85273e+03,0.71635e+03,0.59683e+03, & - & 0.73639e+03,0.87606e+03,0.10160e+04,0.11562e+04 /) - kao(:, 1, 1,11) = (/ & - & 0.19598e+04,0.17186e+04,0.14777e+04,0.12380e+04,0.99729e+03, & - & 0.75567e+03,0.88469e+03,0.10202e+04,0.11560e+04 /) - kao(:, 2, 1,11) = (/ & - & 0.19102e+04,0.16743e+04,0.14414e+04,0.12066e+04,0.97117e+03, & - & 0.74679e+03,0.88252e+03,0.10178e+04,0.11544e+04 /) - kao(:, 3, 1,11) = (/ & - & 0.18656e+04,0.16383e+04,0.14073e+04,0.11791e+04,0.94951e+03, & - & 0.74505e+03,0.88029e+03,0.10159e+04,0.11530e+04 /) - kao(:, 4, 1,11) = (/ & - & 0.18261e+04,0.16025e+04,0.13782e+04,0.11540e+04,0.92917e+03, & - & 0.74299e+03,0.87816e+03,0.10141e+04,0.11522e+04 /) - kao(:, 5, 1,11) = (/ & - & 0.17888e+04,0.15710e+04,0.13500e+04,0.11298e+04,0.91140e+03, & - & 0.74109e+03,0.87588e+03,0.10122e+04,0.11510e+04 /) - kao(:, 1, 2,11) = (/ & - & 0.18117e+04,0.15887e+04,0.13651e+04,0.11459e+04,0.92177e+03, & - & 0.74731e+03,0.88412e+03,0.10203e+04,0.11568e+04 /) - kao(:, 2, 2,11) = (/ & - & 0.17673e+04,0.15512e+04,0.13335e+04,0.11174e+04,0.90028e+03, & - & 0.74546e+03,0.88203e+03,0.10179e+04,0.11551e+04 /) - kao(:, 3, 2,11) = (/ & - & 0.17317e+04,0.15193e+04,0.13050e+04,0.10955e+04,0.88112e+03, & - & 0.74378e+03,0.87978e+03,0.10161e+04,0.11535e+04 /) - kao(:, 4, 2,11) = (/ & - & 0.16956e+04,0.14873e+04,0.12805e+04,0.10729e+04,0.86470e+03, & - & 0.74189e+03,0.87768e+03,0.10142e+04,0.11524e+04 /) - kao(:, 5, 2,11) = (/ & - & 0.16657e+04,0.14596e+04,0.12568e+04,0.10531e+04,0.84904e+03, & - & 0.73979e+03,0.87528e+03,0.10122e+04,0.11511e+04 /) - kao(:, 1, 3,11) = (/ & - & 0.16927e+04,0.14859e+04,0.12782e+04,0.10724e+04,0.86335e+03, & - & 0.74646e+03,0.88392e+03,0.10211e+04,0.11579e+04 /) - kao(:, 2, 3,11) = (/ & - & 0.16581e+04,0.14524e+04,0.12540e+04,0.10466e+04,0.84448e+03, & - & 0.74471e+03,0.88205e+03,0.10189e+04,0.11562e+04 /) - kao(:, 3, 3,11) = (/ & - & 0.16261e+04,0.14229e+04,0.12269e+04,0.10264e+04,0.82790e+03, & - & 0.74305e+03,0.87988e+03,0.10167e+04,0.11544e+04 /) - kao(:, 4, 3,11) = (/ & - & 0.15929e+04,0.13986e+04,0.12038e+04,0.10084e+04,0.81266e+03, & - & 0.74160e+03,0.87767e+03,0.10148e+04,0.11530e+04 /) - kao(:, 5, 3,11) = (/ & - & 0.15661e+04,0.13746e+04,0.11837e+04,0.99103e+03,0.79967e+03, & - & 0.73929e+03,0.87586e+03,0.10132e+04,0.11521e+04 /) - kao(:, 1, 4,11) = (/ & - & 0.15973e+04,0.14004e+04,0.12065e+04,0.10106e+04,0.81385e+03, & - & 0.74599e+03,0.88404e+03,0.10218e+04,0.11590e+04 /) - kao(:, 2, 4,11) = (/ & - & 0.15637e+04,0.13722e+04,0.11812e+04,0.98900e+03,0.79856e+03, & - & 0.74428e+03,0.88217e+03,0.10197e+04,0.11572e+04 /) - kao(:, 3, 4,11) = (/ & - & 0.15340e+04,0.13469e+04,0.11576e+04,0.97012e+03,0.78412e+03, & - & 0.74257e+03,0.88022e+03,0.10176e+04,0.11556e+04 /) - kao(:, 4, 4,11) = (/ & - & 0.15085e+04,0.13226e+04,0.11393e+04,0.95486e+03,0.76980e+03, & - & 0.74114e+03,0.87815e+03,0.10155e+04,0.11538e+04 /) - kao(:, 5, 4,11) = (/ & - & 0.14836e+04,0.13020e+04,0.11212e+04,0.93957e+03,0.75824e+03, & - & 0.73939e+03,0.87630e+03,0.10138e+04,0.11526e+04 /) - kao(:, 1, 5,11) = (/ & - & 0.15143e+04,0.13286e+04,0.11431e+04,0.95847e+03,0.77403e+03, & - & 0.74572e+03,0.88418e+03,0.10223e+04,0.11603e+04 /) - kao(:, 2, 5,11) = (/ & - & 0.14842e+04,0.13025e+04,0.11230e+04,0.94028e+03,0.75881e+03, & - & 0.74405e+03,0.88254e+03,0.10205e+04,0.11584e+04 /) - kao(:, 3, 5,11) = (/ & - & 0.14577e+04,0.12799e+04,0.11020e+04,0.92340e+03,0.74531e+03, & - & 0.74244e+03,0.88060e+03,0.10185e+04,0.11566e+04 /) - kao(:, 4, 5,11) = (/ & - & 0.14365e+04,0.12603e+04,0.10859e+04,0.90939e+03,0.73467e+03, & - & 0.74090e+03,0.87865e+03,0.10164e+04,0.11549e+04 /) - kao(:, 5, 5,11) = (/ & - & 0.14147e+04,0.12422e+04,0.10695e+04,0.89657e+03,0.72409e+03, & - & 0.73938e+03,0.87659e+03,0.10145e+04,0.11530e+04 /) - kao(:, 1, 6,11) = (/ & - & 0.14426e+04,0.12686e+04,0.10911e+04,0.91528e+03,0.73914e+03, & - & 0.74563e+03,0.88436e+03,0.10228e+04,0.11615e+04 /) - kao(:, 2, 6,11) = (/ & - & 0.14171e+04,0.12457e+04,0.10728e+04,0.89861e+03,0.72517e+03, & - & 0.74402e+03,0.88280e+03,0.10215e+04,0.11596e+04 /) - kao(:, 3, 6,11) = (/ & - & 0.13943e+04,0.12252e+04,0.10539e+04,0.88362e+03,0.71333e+03, & - & 0.74243e+03,0.88117e+03,0.10194e+04,0.11577e+04 /) - kao(:, 4, 6,11) = (/ & - & 0.13749e+04,0.12056e+04,0.10405e+04,0.87188e+03,0.70449e+03, & - & 0.74089e+03,0.87923e+03,0.10173e+04,0.11560e+04 /) - kao(:, 5, 6,11) = (/ & - & 0.13580e+04,0.11907e+04,0.10258e+04,0.85998e+03,0.69473e+03, & - & 0.73937e+03,0.87727e+03,0.10154e+04,0.11543e+04 /) - kao(:, 1, 7,11) = (/ & - & 0.13844e+04,0.12166e+04,0.10469e+04,0.87815e+03,0.70873e+03, & - & 0.74560e+03,0.88449e+03,0.10233e+04,0.11626e+04 /) - kao(:, 2, 7,11) = (/ & - & 0.13610e+04,0.11962e+04,0.10291e+04,0.86318e+03,0.69730e+03, & - & 0.74409e+03,0.88322e+03,0.10221e+04,0.11608e+04 /) - kao(:, 3, 7,11) = (/ & - & 0.13413e+04,0.11786e+04,0.10145e+04,0.85031e+03,0.68760e+03, & - & 0.74253e+03,0.88154e+03,0.10203e+04,0.11589e+04 /) - kao(:, 4, 7,11) = (/ & - & 0.13235e+04,0.11630e+04,0.10007e+04,0.84004e+03,0.67864e+03, & - & 0.74101e+03,0.87982e+03,0.10185e+04,0.11572e+04 /) - kao(:, 5, 7,11) = (/ & - & 0.13063e+04,0.11482e+04,0.98932e+03,0.82998e+03,0.67037e+03, & - & 0.73955e+03,0.87796e+03,0.10167e+04,0.11554e+04 /) - kao(:, 1, 8,11) = (/ & - & 0.13361e+04,0.11714e+04,0.10092e+04,0.84627e+03,0.68340e+03, & - & 0.74540e+03,0.88457e+03,0.10236e+04,0.11638e+04 /) - kao(:, 2, 8,11) = (/ & - & 0.13143e+04,0.11537e+04,0.99295e+03,0.83355e+03,0.67330e+03, & - & 0.74420e+03,0.88339e+03,0.10225e+04,0.11619e+04 /) - kao(:, 3, 8,11) = (/ & - & 0.12952e+04,0.11377e+04,0.98075e+03,0.82213e+03,0.66496e+03, & - & 0.74271e+03,0.88199e+03,0.10211e+04,0.11601e+04 /) - kao(:, 4, 8,11) = (/ & - & 0.12808e+04,0.11242e+04,0.96858e+03,0.81350e+03,0.65663e+03, & - & 0.74121e+03,0.88037e+03,0.10192e+04,0.11582e+04 /) - kao(:, 5, 8,11) = (/ & - & 0.12664e+04,0.11113e+04,0.95757e+03,0.80317e+03,0.64978e+03, & - & 0.73975e+03,0.87862e+03,0.10173e+04,0.11564e+04 /) - kao(:, 1, 9,11) = (/ & - & 0.12911e+04,0.11331e+04,0.97754e+03,0.81972e+03,0.66210e+03, & - & 0.74501e+03,0.88462e+03,0.10244e+04,0.11652e+04 /) - kao(:, 2, 9,11) = (/ & - & 0.12743e+04,0.11193e+04,0.96288e+03,0.80865e+03,0.65325e+03, & - & 0.74437e+03,0.88360e+03,0.10230e+04,0.11629e+04 /) - kao(:, 3, 9,11) = (/ & - & 0.12573e+04,0.11051e+04,0.95155e+03,0.79729e+03,0.64451e+03, & - & 0.74294e+03,0.88237e+03,0.10218e+04,0.11610e+04 /) - kao(:, 4, 9,11) = (/ & - & 0.12441e+04,0.10920e+04,0.94089e+03,0.78911e+03,0.63797e+03, & - & 0.74148e+03,0.88091e+03,0.10202e+04,0.11593e+04 /) - kao(:, 5, 9,11) = (/ & - & 0.12297e+04,0.10813e+04,0.93127e+03,0.78127e+03,0.63265e+03, & - & 0.74003e+03,0.87926e+03,0.10184e+04,0.11573e+04 /) - kao(:, 1,10,11) = (/ & - & 0.12530e+04,0.11001e+04,0.94821e+03,0.79486e+03,0.64277e+03, & - & 0.74454e+03,0.88447e+03,0.10249e+04,0.11664e+04 /) - kao(:, 2,10,11) = (/ & - & 0.12387e+04,0.10865e+04,0.93685e+03,0.78643e+03,0.63425e+03, & - & 0.74423e+03,0.88371e+03,0.10234e+04,0.11637e+04 /) - kao(:, 3,10,11) = (/ & - & 0.12243e+04,0.10744e+04,0.92585e+03,0.77676e+03,0.62740e+03, & - & 0.74307e+03,0.88260e+03,0.10221e+04,0.11620e+04 /) - kao(:, 4,10,11) = (/ & - & 0.12107e+04,0.10640e+04,0.91623e+03,0.76957e+03,0.62235e+03, & - & 0.74168e+03,0.88129e+03,0.10208e+04,0.11602e+04 /) - kao(:, 5,10,11) = (/ & - & 0.12010e+04,0.10536e+04,0.90891e+03,0.76248e+03,0.61761e+03, & - & 0.74025e+03,0.87965e+03,0.10191e+04,0.11583e+04 /) - kao(:, 1,11,11) = (/ & - & 0.12140e+04,0.10672e+04,0.91852e+03,0.77048e+03,0.62320e+03, & - & 0.74401e+03,0.88413e+03,0.10249e+04,0.11664e+04 /) - kao(:, 2,11,11) = (/ & - & 0.12007e+04,0.10549e+04,0.90904e+03,0.76333e+03,0.61635e+03, & - & 0.74367e+03,0.88337e+03,0.10233e+04,0.11639e+04 /) - kao(:, 3,11,11) = (/ & - & 0.11891e+04,0.10458e+04,0.90055e+03,0.75543e+03,0.61123e+03, & - & 0.74262e+03,0.88229e+03,0.10219e+04,0.11620e+04 /) - kao(:, 4,11,11) = (/ & - & 0.11794e+04,0.10371e+04,0.89190e+03,0.74912e+03,0.60572e+03, & - & 0.74128e+03,0.88110e+03,0.10207e+04,0.11602e+04 /) - kao(:, 5,11,11) = (/ & - & 0.11697e+04,0.10285e+04,0.88631e+03,0.74374e+03,0.60062e+03, & - & 0.73987e+03,0.87958e+03,0.10191e+04,0.11583e+04 /) - kao(:, 1,12,11) = (/ & - & 0.11829e+04,0.10373e+04,0.89433e+03,0.75107e+03,0.60775e+03, & - & 0.74357e+03,0.88385e+03,0.10247e+04,0.11664e+04 /) - kao(:, 2,12,11) = (/ & - & 0.11707e+04,0.10276e+04,0.88712e+03,0.74426e+03,0.60163e+03, & - & 0.74327e+03,0.88309e+03,0.10231e+04,0.11639e+04 /) - kao(:, 3,12,11) = (/ & - & 0.11629e+04,0.10211e+04,0.88018e+03,0.73831e+03,0.60184e+03, & - & 0.74224e+03,0.88203e+03,0.10219e+04,0.11620e+04 /) - kao(:, 4,12,11) = (/ & - & 0.11538e+04,0.10126e+04,0.87253e+03,0.73377e+03,0.60080e+03, & - & 0.74101e+03,0.88067e+03,0.10205e+04,0.11602e+04 /) - kao(:, 5,12,11) = (/ & - & 0.11449e+04,0.10062e+04,0.86764e+03,0.72842e+03,0.59975e+03, & - & 0.73955e+03,0.87926e+03,0.10190e+04,0.11583e+04 /) - kao(:, 1,13,11) = (/ & - & 0.11561e+04,0.10152e+04,0.87509e+03,0.73383e+03,0.60253e+03, & - & 0.74321e+03,0.88362e+03,0.10246e+04,0.11664e+04 /) - kao(:, 2,13,11) = (/ & - & 0.11468e+04,0.10069e+04,0.86783e+03,0.72921e+03,0.60211e+03, & - & 0.74294e+03,0.88286e+03,0.10230e+04,0.11639e+04 /) - kao(:, 3,13,11) = (/ & - & 0.11390e+04,0.10001e+04,0.86301e+03,0.72323e+03,0.60140e+03, & - & 0.74194e+03,0.88181e+03,0.10218e+04,0.11621e+04 /) - kao(:, 4,13,11) = (/ & - & 0.11313e+04,0.99361e+03,0.85706e+03,0.72032e+03,0.60042e+03, & - & 0.74065e+03,0.88048e+03,0.10204e+04,0.11602e+04 /) - kao(:, 5,13,11) = (/ & - & 0.11266e+04,0.99042e+03,0.85257e+03,0.71548e+03,0.59931e+03, & - & 0.73930e+03,0.87908e+03,0.10187e+04,0.11583e+04 /) - kao(:, 1, 1,12) = (/ & - & 0.19596e+04,0.17200e+04,0.14802e+04,0.12370e+04,0.99641e+03, & - & 0.75556e+03,0.88658e+03,0.10236e+04,0.11622e+04 /) - kao(:, 2, 1,12) = (/ & - & 0.19107e+04,0.16797e+04,0.14463e+04,0.12083e+04,0.97440e+03, & - & 0.74935e+03,0.88455e+03,0.10223e+04,0.11611e+04 /) - kao(:, 3, 1,12) = (/ & - & 0.18687e+04,0.16368e+04,0.14091e+04,0.11809e+04,0.95100e+03, & - & 0.74626e+03,0.88278e+03,0.10214e+04,0.11600e+04 /) - kao(:, 4, 1,12) = (/ & - & 0.18274e+04,0.15998e+04,0.13805e+04,0.11544e+04,0.92955e+03, & - & 0.74432e+03,0.88029e+03,0.10193e+04,0.11572e+04 /) - kao(:, 5, 1,12) = (/ & - & 0.17908e+04,0.15685e+04,0.13492e+04,0.11303e+04,0.91228e+03, & - & 0.74183e+03,0.87814e+03,0.10165e+04,0.11551e+04 /) - kao(:, 1, 2,12) = (/ & - & 0.18091e+04,0.15890e+04,0.13701e+04,0.11447e+04,0.92240e+03, & - & 0.75031e+03,0.88580e+03,0.10236e+04,0.11628e+04 /) - kao(:, 2, 2,12) = (/ & - & 0.17702e+04,0.15507e+04,0.13346e+04,0.11179e+04,0.90072e+03, & - & 0.74790e+03,0.88384e+03,0.10222e+04,0.11616e+04 /) - kao(:, 3, 2,12) = (/ & - & 0.17282e+04,0.15159e+04,0.13066e+04,0.10967e+04,0.88274e+03, & - & 0.74530e+03,0.88241e+03,0.10213e+04,0.11606e+04 /) - kao(:, 4, 2,12) = (/ & - & 0.16964e+04,0.14887e+04,0.12816e+04,0.10711e+04,0.86387e+03, & - & 0.74308e+03,0.88064e+03,0.10199e+04,0.11593e+04 /) - kao(:, 5, 2,12) = (/ & - & 0.16664e+04,0.14634e+04,0.12570e+04,0.10541e+04,0.84878e+03, & - & 0.74105e+03,0.87802e+03,0.10170e+04,0.11559e+04 /) - kao(:, 1, 3,12) = (/ & - & 0.16969e+04,0.14893e+04,0.12806e+04,0.10686e+04,0.86200e+03, & - & 0.74953e+03,0.88586e+03,0.10239e+04,0.11637e+04 /) - kao(:, 2, 3,12) = (/ & - & 0.16530e+04,0.14535e+04,0.12505e+04,0.10502e+04,0.84485e+03, & - & 0.74734e+03,0.88380e+03,0.10224e+04,0.11623e+04 /) - kao(:, 3, 3,12) = (/ & - & 0.16258e+04,0.14316e+04,0.12308e+04,0.10274e+04,0.82737e+03, & - & 0.74498e+03,0.88220e+03,0.10214e+04,0.11612e+04 /) - kao(:, 4, 3,12) = (/ & - & 0.15947e+04,0.13987e+04,0.12036e+04,0.10100e+04,0.81398e+03, & - & 0.74250e+03,0.88073e+03,0.10203e+04,0.11601e+04 /) - kao(:, 5, 3,12) = (/ & - & 0.15659e+04,0.13745e+04,0.11827e+04,0.99357e+03,0.79945e+03, & - & 0.74072e+03,0.87844e+03,0.10192e+04,0.11574e+04 /) - kao(:, 1, 4,12) = (/ & - & 0.15993e+04,0.14029e+04,0.12034e+04,0.10105e+04,0.81494e+03, & - & 0.74898e+03,0.88604e+03,0.10246e+04,0.11648e+04 /) - kao(:, 2, 4,12) = (/ & - & 0.15603e+04,0.13717e+04,0.11803e+04,0.99158e+03,0.79797e+03, & - & 0.74702e+03,0.88413e+03,0.10230e+04,0.11631e+04 /) - kao(:, 3, 4,12) = (/ & - & 0.15363e+04,0.13460e+04,0.11581e+04,0.97158e+03,0.78286e+03, & - & 0.74488e+03,0.88249e+03,0.10215e+04,0.11618e+04 /) - kao(:, 4, 4,12) = (/ & - & 0.15069e+04,0.13248e+04,0.11397e+04,0.95515e+03,0.77185e+03, & - & 0.74259e+03,0.88086e+03,0.10207e+04,0.11608e+04 /) - kao(:, 5, 4,12) = (/ & - & 0.14842e+04,0.13030e+04,0.11201e+04,0.94205e+03,0.75928e+03, & - & 0.74072e+03,0.87912e+03,0.10193e+04,0.11593e+04 /) - kao(:, 1, 5,12) = (/ & - & 0.15161e+04,0.13293e+04,0.11434e+04,0.96071e+03,0.77366e+03, & - & 0.74856e+03,0.88634e+03,0.10256e+04,0.11660e+04 /) - kao(:, 2, 5,12) = (/ & - & 0.14862e+04,0.13039e+04,0.11202e+04,0.93927e+03,0.75808e+03, & - & 0.74678e+03,0.88432e+03,0.10237e+04,0.11641e+04 /) - kao(:, 3, 5,12) = (/ & - & 0.14569e+04,0.12812e+04,0.11040e+04,0.92477e+03,0.74608e+03, & - & 0.74483e+03,0.88267e+03,0.10221e+04,0.11626e+04 /) - kao(:, 4, 5,12) = (/ & - & 0.14370e+04,0.12601e+04,0.10866e+04,0.91322e+03,0.73546e+03, & - & 0.74282e+03,0.88106e+03,0.10210e+04,0.11614e+04 /) - kao(:, 5, 5,12) = (/ & - & 0.14157e+04,0.12432e+04,0.10692e+04,0.89766e+03,0.72371e+03, & - & 0.74075e+03,0.87977e+03,0.10201e+04,0.11604e+04 /) - kao(:, 1, 6,12) = (/ & - & 0.14446e+04,0.12668e+04,0.10902e+04,0.91458e+03,0.73853e+03, & - & 0.74800e+03,0.88683e+03,0.10267e+04,0.11674e+04 /) - kao(:, 2, 6,12) = (/ & - & 0.14180e+04,0.12442e+04,0.10729e+04,0.90054e+03,0.72712e+03, & - & 0.74664e+03,0.88490e+03,0.10243e+04,0.11653e+04 /) - kao(:, 3, 6,12) = (/ & - & 0.13970e+04,0.12338e+04,0.10562e+04,0.88644e+03,0.71466e+03, & - & 0.74490e+03,0.88299e+03,0.10228e+04,0.11635e+04 /) - kao(:, 4, 6,12) = (/ & - & 0.13772e+04,0.12092e+04,0.10403e+04,0.87191e+03,0.70566e+03, & - & 0.74297e+03,0.88145e+03,0.10214e+04,0.11622e+04 /) - kao(:, 5, 6,12) = (/ & - & 0.13536e+04,0.11933e+04,0.10279e+04,0.85985e+03,0.69532e+03, & - & 0.74091e+03,0.88002e+03,0.10207e+04,0.11611e+04 /) - kao(:, 1, 7,12) = (/ & - & 0.13872e+04,0.12173e+04,0.10473e+04,0.87779e+03,0.70929e+03, & - & 0.74753e+03,0.88739e+03,0.10279e+04,0.11686e+04 /) - kao(:, 2, 7,12) = (/ & - & 0.13614e+04,0.11960e+04,0.10302e+04,0.86342e+03,0.69779e+03, & - & 0.74649e+03,0.88535e+03,0.10254e+04,0.11666e+04 /) - kao(:, 3, 7,12) = (/ & - & 0.13423e+04,0.11779e+04,0.10152e+04,0.85120e+03,0.68669e+03, & - & 0.74500e+03,0.88364e+03,0.10236e+04,0.11646e+04 /) - kao(:, 4, 7,12) = (/ & - & 0.13222e+04,0.11614e+04,0.10027e+04,0.84138e+03,0.67980e+03, & - & 0.74324e+03,0.88194e+03,0.10219e+04,0.11628e+04 /) - kao(:, 5, 7,12) = (/ & - & 0.13077e+04,0.11487e+04,0.98870e+03,0.82923e+03,0.67117e+03, & - & 0.74131e+03,0.88052e+03,0.10200e+04,0.11617e+04 /) - kao(:, 1, 8,12) = (/ & - & 0.13318e+04,0.11751e+04,0.10116e+04,0.84760e+03,0.68552e+03, & - & 0.74755e+03,0.88764e+03,0.10284e+04,0.11697e+04 /) - kao(:, 2, 8,12) = (/ & - & 0.13123e+04,0.11533e+04,0.99316e+03,0.83364e+03,0.67452e+03, & - & 0.74634e+03,0.88623e+03,0.10267e+04,0.11679e+04 /) - kao(:, 3, 8,12) = (/ & - & 0.12963e+04,0.11395e+04,0.98036e+03,0.82206e+03,0.66378e+03, & - & 0.74528e+03,0.88422e+03,0.10245e+04,0.11657e+04 /) - kao(:, 4, 8,12) = (/ & - & 0.12799e+04,0.11235e+04,0.96838e+03,0.81175e+03,0.65688e+03, & - & 0.74350e+03,0.88249e+03,0.10227e+04,0.11639e+04 /) - kao(:, 5, 8,12) = (/ & - & 0.12649e+04,0.11128e+04,0.95762e+03,0.80323e+03,0.64917e+03, & - & 0.74172e+03,0.88089e+03,0.10213e+04,0.11624e+04 /) - kao(:, 1, 9,12) = (/ & - & 0.12892e+04,0.11353e+04,0.97529e+03,0.81997e+03,0.66439e+03, & - & 0.74689e+03,0.88774e+03,0.10288e+04,0.11703e+04 /) - kao(:, 2, 9,12) = (/ & - & 0.12710e+04,0.11179e+04,0.96230e+03,0.80757e+03,0.65174e+03, & - & 0.74606e+03,0.88671e+03,0.10277e+04,0.11691e+04 /) - kao(:, 3, 9,12) = (/ & - & 0.12556e+04,0.11026e+04,0.95506e+03,0.79904e+03,0.64512e+03, & - & 0.74525e+03,0.88489e+03,0.10254e+04,0.11669e+04 /) - kao(:, 4, 9,12) = (/ & - & 0.12434e+04,0.10930e+04,0.94625e+03,0.79326e+03,0.63956e+03, & - & 0.74375e+03,0.88308e+03,0.10236e+04,0.11649e+04 /) - kao(:, 5, 9,12) = (/ & - & 0.12362e+04,0.10807e+04,0.93519e+03,0.78318e+03,0.63176e+03, & - & 0.74222e+03,0.88144e+03,0.10218e+04,0.11632e+04 /) - kao(:, 1,10,12) = (/ & - & 0.12560e+04,0.11008e+04,0.94819e+03,0.79713e+03,0.64289e+03, & - & 0.74662e+03,0.88790e+03,0.10293e+04,0.11710e+04 /) - kao(:, 2,10,12) = (/ & - & 0.12370e+04,0.10868e+04,0.93614e+03,0.78750e+03,0.63591e+03, & - & 0.74589e+03,0.88689e+03,0.10281e+04,0.11697e+04 /) - kao(:, 3,10,12) = (/ & - & 0.12228e+04,0.10745e+04,0.92565e+03,0.77586e+03,0.63013e+03, & - & 0.74525e+03,0.88546e+03,0.10265e+04,0.11680e+04 /) - kao(:, 4,10,12) = (/ & - & 0.12130e+04,0.10629e+04,0.91805e+03,0.77218e+03,0.62214e+03, & - & 0.74398e+03,0.88360e+03,0.10243e+04,0.11659e+04 /) - kao(:, 5,10,12) = (/ & - & 0.11990e+04,0.10561e+04,0.90990e+03,0.76234e+03,0.61782e+03, & - & 0.74238e+03,0.88192e+03,0.10225e+04,0.11640e+04 /) - kao(:, 1,11,12) = (/ & - & 0.12160e+04,0.10660e+04,0.91756e+03,0.77092e+03,0.62410e+03, & - & 0.74614e+03,0.88758e+03,0.10288e+04,0.11712e+04 /) - kao(:, 2,11,12) = (/ & - & 0.12001e+04,0.10573e+04,0.90897e+03,0.76187e+03,0.61778e+03, & - & 0.74563e+03,0.88659e+03,0.10280e+04,0.11697e+04 /) - kao(:, 3,11,12) = (/ & - & 0.11883e+04,0.10436e+04,0.89901e+03,0.75711e+03,0.61087e+03, & - & 0.74468e+03,0.88519e+03,0.10264e+04,0.11680e+04 /) - kao(:, 4,11,12) = (/ & - & 0.11791e+04,0.10338e+04,0.89462e+03,0.74974e+03,0.60740e+03, & - & 0.74372e+03,0.88322e+03,0.10242e+04,0.11659e+04 /) - kao(:, 5,11,12) = (/ & - & 0.11736e+04,0.10284e+04,0.88610e+03,0.74386e+03,0.60256e+03, & - & 0.74204e+03,0.88156e+03,0.10223e+04,0.11640e+04 /) - kao(:, 1,12,12) = (/ & - & 0.11783e+04,0.10408e+04,0.89462e+03,0.75034e+03,0.60838e+03, & - & 0.74575e+03,0.88732e+03,0.10288e+04,0.11710e+04 /) - kao(:, 2,12,12) = (/ & - & 0.11693e+04,0.10333e+04,0.88486e+03,0.74467e+03,0.60420e+03, & - & 0.74514e+03,0.88635e+03,0.10279e+04,0.11697e+04 /) - kao(:, 3,12,12) = (/ & - & 0.11597e+04,0.10197e+04,0.87845e+03,0.73901e+03,0.60371e+03, & - & 0.74440e+03,0.88495e+03,0.10263e+04,0.11680e+04 /) - kao(:, 4,12,12) = (/ & - & 0.11554e+04,0.10154e+04,0.87390e+03,0.73209e+03,0.60310e+03, & - & 0.74343e+03,0.88312e+03,0.10241e+04,0.11659e+04 /) - kao(:, 5,12,12) = (/ & - & 0.11463e+04,0.10081e+04,0.86768e+03,0.73113e+03,0.60226e+03, & - & 0.74178e+03,0.88148e+03,0.10222e+04,0.11640e+04 /) - kao(:, 1,13,12) = (/ & - & 0.11576e+04,0.10172e+04,0.87697e+03,0.73496e+03,0.60442e+03, & - & 0.74542e+03,0.88710e+03,0.10287e+04,0.11710e+04 /) - kao(:, 2,13,12) = (/ & - & 0.11489e+04,0.10121e+04,0.86787e+03,0.73038e+03,0.60369e+03, & - & 0.74483e+03,0.88615e+03,0.10278e+04,0.11697e+04 /) - kao(:, 3,13,12) = (/ & - & 0.11408e+04,0.10003e+04,0.86069e+03,0.72468e+03,0.60332e+03, & - & 0.74398e+03,0.88477e+03,0.10262e+04,0.11679e+04 /) - kao(:, 4,13,12) = (/ & - & 0.11353e+04,0.99812e+03,0.85805e+03,0.72010e+03,0.60276e+03, & - & 0.74301e+03,0.88294e+03,0.10240e+04,0.11659e+04 /) - kao(:, 5,13,12) = (/ & - & 0.11276e+04,0.99093e+03,0.85424e+03,0.71851e+03,0.60186e+03, & - & 0.74137e+03,0.88131e+03,0.10223e+04,0.11640e+04 /) - kao(:, 1, 1,13) = (/ & - & 0.19698e+04,0.17183e+04,0.14812e+04,0.12476e+04,0.10057e+04, & - & 0.76142e+03,0.89076e+03,0.10305e+04,0.11701e+04 /) - kao(:, 2, 1,13) = (/ & - & 0.19138e+04,0.16790e+04,0.14471e+04,0.12079e+04,0.97024e+03, & - & 0.74958e+03,0.88854e+03,0.10281e+04,0.11676e+04 /) - kao(:, 3, 1,13) = (/ & - & 0.18656e+04,0.16362e+04,0.14072e+04,0.11764e+04,0.95368e+03, & - & 0.74756e+03,0.88578e+03,0.10247e+04,0.11642e+04 /) - kao(:, 4, 1,13) = (/ & - & 0.18274e+04,0.16076e+04,0.13744e+04,0.11522e+04,0.93101e+03, & - & 0.74489e+03,0.88368e+03,0.10224e+04,0.11624e+04 /) - kao(:, 5, 1,13) = (/ & - & 0.18123e+04,0.15711e+04,0.13539e+04,0.11391e+04,0.91271e+03, & - & 0.74309e+03,0.88194e+03,0.10210e+04,0.11601e+04 /) - kao(:, 1, 2,13) = (/ & - & 0.18136e+04,0.16074e+04,0.13682e+04,0.11455e+04,0.92152e+03, & - & 0.75090e+03,0.89044e+03,0.10309e+04,0.11711e+04 /) - kao(:, 2, 2,13) = (/ & - & 0.17663e+04,0.15639e+04,0.13412e+04,0.11338e+04,0.90565e+03, & - & 0.74892e+03,0.88842e+03,0.10286e+04,0.11690e+04 /) - kao(:, 3, 2,13) = (/ & - & 0.17473e+04,0.15168e+04,0.13179e+04,0.10933e+04,0.88564e+03, & - & 0.74657e+03,0.88587e+03,0.10277e+04,0.11659e+04 /) - kao(:, 4, 2,13) = (/ & - & 0.16935e+04,0.14940e+04,0.12866e+04,0.10771e+04,0.86513e+03, & - & 0.74388e+03,0.88292e+03,0.10226e+04,0.11621e+04 /) - kao(:, 5, 2,13) = (/ & - & 0.16796e+04,0.14587e+04,0.12610e+04,0.10625e+04,0.85051e+03, & - & 0.74222e+03,0.88187e+03,0.10215e+04,0.11614e+04 /) - kao(:, 1, 3,13) = (/ & - & 0.16915e+04,0.14853e+04,0.12759e+04,0.10742e+04,0.87078e+03, & - & 0.75040e+03,0.89056e+03,0.10314e+04,0.11723e+04 /) - kao(:, 2, 3,13) = (/ & - & 0.16685e+04,0.14695e+04,0.12569e+04,0.10522e+04,0.84369e+03, & - & 0.74849e+03,0.88875e+03,0.10295e+04,0.11702e+04 /) - kao(:, 3, 3,13) = (/ & - & 0.16315e+04,0.14234e+04,0.12207e+04,0.10278e+04,0.83542e+03, & - & 0.74665e+03,0.88665e+03,0.10272e+04,0.11677e+04 /) - kao(:, 4, 3,13) = (/ & - & 0.15936e+04,0.13973e+04,0.11983e+04,0.10068e+04,0.81253e+03, & - & 0.74392e+03,0.88383e+03,0.10241e+04,0.11643e+04 /) - kao(:, 5, 3,13) = (/ & - & 0.15704e+04,0.13749e+04,0.11794e+04,0.99081e+03,0.79887e+03, & - & 0.74214e+03,0.88216e+03,0.10204e+04,0.11625e+04 /) - kao(:, 1, 4,13) = (/ & - & 0.16005e+04,0.14146e+04,0.12141e+04,0.10096e+04,0.81830e+03, & - & 0.74981e+03,0.89073e+03,0.10323e+04,0.11736e+04 /) - kao(:, 2, 4,13) = (/ & - & 0.15697e+04,0.13709e+04,0.11792e+04,0.98706e+03,0.80274e+03, & - & 0.74843e+03,0.88917e+03,0.10304e+04,0.11716e+04 /) - kao(:, 3, 4,13) = (/ & - & 0.15342e+04,0.13528e+04,0.11633e+04,0.97494e+03,0.78298e+03, & - & 0.74655e+03,0.88714e+03,0.10283e+04,0.11694e+04 /) - kao(:, 4, 4,13) = (/ & - & 0.15079e+04,0.13273e+04,0.11368e+04,0.95326e+03,0.76898e+03, & - & 0.74477e+03,0.88522e+03,0.10258e+04,0.11666e+04 /) - kao(:, 5, 4,13) = (/ & - & 0.14904e+04,0.13050e+04,0.11274e+04,0.94133e+03,0.75918e+03, & - & 0.74185e+03,0.88236e+03,0.10229e+04,0.11634e+04 /) - kao(:, 1, 5,13) = (/ & - & 0.15223e+04,0.13292e+04,0.11458e+04,0.96632e+03,0.77253e+03, & - & 0.74931e+03,0.89080e+03,0.10327e+04,0.11744e+04 /) - kao(:, 2, 5,13) = (/ & - & 0.14887e+04,0.13100e+04,0.11308e+04,0.95564e+03,0.76318e+03, & - & 0.74814e+03,0.88953e+03,0.10311e+04,0.11728e+04 /) - kao(:, 3, 5,13) = (/ & - & 0.14666e+04,0.12805e+04,0.10990e+04,0.92585e+03,0.74527e+03, & - & 0.74662e+03,0.88788e+03,0.10293e+04,0.11708e+04 /) - kao(:, 4, 5,13) = (/ & - & 0.14380e+04,0.12615e+04,0.10805e+04,0.91192e+03,0.73306e+03, & - & 0.74471e+03,0.88594e+03,0.10272e+04,0.11684e+04 /) - kao(:, 5, 5,13) = (/ & - & 0.14117e+04,0.12389e+04,0.10707e+04,0.89863e+03,0.72872e+03, & - & 0.74254e+03,0.88356e+03,0.10243e+04,0.11652e+04 /) - kao(:, 1, 6,13) = (/ & - & 0.14428e+04,0.12661e+04,0.10990e+04,0.91605e+03,0.74645e+03, & - & 0.74914e+03,0.89068e+03,0.10327e+04,0.11747e+04 /) - kao(:, 2, 6,13) = (/ & - & 0.14277e+04,0.12454e+04,0.10670e+04,0.90364e+03,0.72758e+03, & - & 0.74802e+03,0.88983e+03,0.10318e+04,0.11738e+04 /) - kao(:, 3, 6,13) = (/ & - & 0.14072e+04,0.12244e+04,0.10539e+04,0.88576e+03,0.71342e+03, & - & 0.74674e+03,0.88844e+03,0.10303e+04,0.11723e+04 /) - kao(:, 4, 6,13) = (/ & - & 0.13764e+04,0.12101e+04,0.10371e+04,0.87173e+03,0.70565e+03, & - & 0.74519e+03,0.88672e+03,0.10284e+04,0.11700e+04 /) - kao(:, 5, 6,13) = (/ & - & 0.13559e+04,0.11928e+04,0.10275e+04,0.87202e+03,0.69916e+03, & - & 0.74337e+03,0.88468e+03,0.10257e+04,0.11677e+04 /) - kao(:, 1, 7,13) = (/ & - & 0.13816e+04,0.12181e+04,0.10498e+04,0.87727e+03,0.70862e+03, & - & 0.74879e+03,0.89032e+03,0.10324e+04,0.11748e+04 /) - kao(:, 2, 7,13) = (/ & - & 0.13746e+04,0.12007e+04,0.10368e+04,0.86700e+03,0.69742e+03, & - & 0.74791e+03,0.88998e+03,0.10322e+04,0.11745e+04 /) - kao(:, 3, 7,13) = (/ & - & 0.13471e+04,0.11822e+04,0.10118e+04,0.85187e+03,0.69076e+03, & - & 0.74684e+03,0.88891e+03,0.10311e+04,0.11732e+04 /) - kao(:, 4, 7,13) = (/ & - & 0.13306e+04,0.11625e+04,0.10055e+04,0.83687e+03,0.67946e+03, & - & 0.74564e+03,0.88741e+03,0.10294e+04,0.11714e+04 /) - kao(:, 5, 7,13) = (/ & - & 0.13072e+04,0.11462e+04,0.98997e+03,0.82975e+03,0.67148e+03, & - & 0.74390e+03,0.88544e+03,0.10275e+04,0.11691e+04 /) - kao(:, 1, 8,13) = (/ & - & 0.13342e+04,0.11738e+04,0.10072e+04,0.84777e+03,0.68336e+03, & - & 0.74810e+03,0.89032e+03,0.10328e+04,0.11753e+04 /) - kao(:, 2, 8,13) = (/ & - & 0.13170e+04,0.11565e+04,0.99551e+03,0.83812e+03,0.67873e+03, & - & 0.74767e+03,0.88984e+03,0.10325e+04,0.11747e+04 /) - kao(:, 3, 8,13) = (/ & - & 0.12961e+04,0.11348e+04,0.98531e+03,0.82142e+03,0.66767e+03, & - & 0.74660e+03,0.88923e+03,0.10317e+04,0.11741e+04 /) - kao(:, 4, 8,13) = (/ & - & 0.12863e+04,0.11324e+04,0.96704e+03,0.81553e+03,0.65703e+03, & - & 0.74590e+03,0.88815e+03,0.10305e+04,0.11725e+04 /) - kao(:, 5, 8,13) = (/ & - & 0.12689e+04,0.11113e+04,0.96142e+03,0.81188e+03,0.65150e+03, & - & 0.74435e+03,0.88637e+03,0.10284e+04,0.11705e+04 /) - kao(:, 1, 9,13) = (/ & - & 0.12929e+04,0.11420e+04,0.97941e+03,0.82358e+03,0.66259e+03, & - & 0.74862e+03,0.89046e+03,0.10332e+04,0.11761e+04 /) - kao(:, 2, 9,13) = (/ & - & 0.12739e+04,0.11222e+04,0.96918e+03,0.81141e+03,0.65436e+03, & - & 0.74747e+03,0.88962e+03,0.10323e+04,0.11749e+04 /) - kao(:, 3, 9,13) = (/ & - & 0.12674e+04,0.11070e+04,0.94554e+03,0.79811e+03,0.64989e+03, & - & 0.74671e+03,0.88937e+03,0.10320e+04,0.11746e+04 /) - kao(:, 4, 9,13) = (/ & - & 0.12536e+04,0.10974e+04,0.93180e+03,0.78881e+03,0.64048e+03, & - & 0.74596e+03,0.88846e+03,0.10310e+04,0.11735e+04 /) - kao(:, 5, 9,13) = (/ & - & 0.12304e+04,0.10931e+04,0.92897e+03,0.78158e+03,0.63657e+03, & - & 0.74461e+03,0.88706e+03,0.10294e+04,0.11717e+04 /) - kao(:, 1,10,13) = (/ & - & 0.12516e+04,0.11039e+04,0.96641e+03,0.80204e+03,0.64728e+03, & - & 0.74871e+03,0.89043e+03,0.10331e+04,0.11761e+04 /) - kao(:, 2,10,13) = (/ & - & 0.12445e+04,0.10951e+04,0.94205e+03,0.78296e+03,0.63684e+03, & - & 0.74738e+03,0.88974e+03,0.10326e+04,0.11754e+04 /) - kao(:, 3,10,13) = (/ & - & 0.12212e+04,0.10830e+04,0.92907e+03,0.78344e+03,0.62583e+03, & - & 0.74649e+03,0.88924e+03,0.10320e+04,0.11747e+04 /) - kao(:, 4,10,13) = (/ & - & 0.12116e+04,0.10675e+04,0.91424e+03,0.76668e+03,0.62374e+03, & - & 0.74589e+03,0.88889e+03,0.10314e+04,0.11741e+04 /) - kao(:, 5,10,13) = (/ & - & 0.12052e+04,0.10532e+04,0.90488e+03,0.76246e+03,0.61399e+03, & - & 0.74500e+03,0.88754e+03,0.10301e+04,0.11727e+04 /) - kao(:, 1,11,13) = (/ & - & 0.12119e+04,0.10670e+04,0.92549e+03,0.77292e+03,0.62469e+03, & - & 0.74822e+03,0.89015e+03,0.10331e+04,0.11759e+04 /) - kao(:, 2,11,13) = (/ & - & 0.12040e+04,0.10529e+04,0.90947e+03,0.76631e+03,0.61756e+03, & - & 0.74680e+03,0.88950e+03,0.10325e+04,0.11754e+04 /) - kao(:, 3,11,13) = (/ & - & 0.11932e+04,0.10470e+04,0.90374e+03,0.75316e+03,0.61137e+03, & - & 0.74625e+03,0.88901e+03,0.10319e+04,0.11747e+04 /) - kao(:, 4,11,13) = (/ & - & 0.11901e+04,0.10395e+04,0.89205e+03,0.75483e+03,0.60707e+03, & - & 0.74529e+03,0.88868e+03,0.10313e+04,0.11742e+04 /) - kao(:, 5,11,13) = (/ & - & 0.11740e+04,0.10262e+04,0.88782e+03,0.74555e+03,0.60321e+03, & - & 0.74456e+03,0.88735e+03,0.10302e+04,0.11727e+04 /) - kao(:, 1,12,13) = (/ & - & 0.11952e+04,0.10387e+04,0.90464e+03,0.75031e+03,0.60579e+03, & - & 0.74809e+03,0.88993e+03,0.10330e+04,0.11761e+04 /) - kao(:, 2,12,13) = (/ & - & 0.11767e+04,0.10280e+04,0.89305e+03,0.74295e+03,0.60520e+03, & - & 0.74658e+03,0.88930e+03,0.10324e+04,0.11754e+04 /) - kao(:, 3,12,13) = (/ & - & 0.11638e+04,0.10252e+04,0.88200e+03,0.74209e+03,0.60448e+03, & - & 0.74580e+03,0.88883e+03,0.10318e+04,0.11747e+04 /) - kao(:, 4,12,13) = (/ & - & 0.11608e+04,0.10182e+04,0.87717e+03,0.73339e+03,0.60384e+03, & - & 0.74474e+03,0.88834e+03,0.10314e+04,0.11742e+04 /) - kao(:, 5,12,13) = (/ & - & 0.11455e+04,0.10085e+04,0.86868e+03,0.72782e+03,0.60261e+03, & - & 0.74417e+03,0.88752e+03,0.10299e+04,0.11727e+04 /) - kao(:, 1,13,13) = (/ & - & 0.11538e+04,0.10104e+04,0.87836e+03,0.74181e+03,0.60545e+03, & - & 0.74747e+03,0.88975e+03,0.10329e+04,0.11763e+04 /) - kao(:, 2,13,13) = (/ & - & 0.11412e+04,0.10013e+04,0.88484e+03,0.73153e+03,0.60489e+03, & - & 0.74629e+03,0.88914e+03,0.10323e+04,0.11754e+04 /) - kao(:, 3,13,13) = (/ & - & 0.11370e+04,0.10022e+04,0.86246e+03,0.73215e+03,0.60419e+03, & - & 0.74569e+03,0.88867e+03,0.10317e+04,0.11747e+04 /) - kao(:, 4,13,13) = (/ & - & 0.11288e+04,0.99109e+03,0.86549e+03,0.72280e+03,0.60356e+03, & - & 0.74480e+03,0.88820e+03,0.10312e+04,0.11742e+04 /) - kao(:, 5,13,13) = (/ & - & 0.11445e+04,0.99099e+03,0.85129e+03,0.71952e+03,0.60234e+03, & - & 0.74410e+03,0.88705e+03,0.10299e+04,0.11727e+04 /) - kao(:, 1, 1,14) = (/ & - & 0.20185e+04,0.18044e+04,0.14758e+04,0.13047e+04,0.10029e+04, & - & 0.77460e+03,0.89226e+03,0.10322e+04,0.11721e+04 /) - kao(:, 2, 1,14) = (/ & - & 0.19173e+04,0.17154e+04,0.14467e+04,0.12101e+04,0.99594e+03, & - & 0.75026e+03,0.88974e+03,0.10295e+04,0.11713e+04 /) - kao(:, 3, 1,14) = (/ & - & 0.19468e+04,0.16851e+04,0.14136e+04,0.12474e+04,0.94959e+03, & - & 0.74773e+03,0.88696e+03,0.10271e+04,0.11663e+04 /) - kao(:, 4, 1,14) = (/ & - & 0.18423e+04,0.16214e+04,0.13991e+04,0.11633e+04,0.94698e+03, & - & 0.74507e+03,0.88457e+03,0.10239e+04,0.11632e+04 /) - kao(:, 5, 1,14) = (/ & - & 0.17538e+04,0.16376e+04,0.13645e+04,0.11303e+04,0.98877e+03, & - & 0.74430e+03,0.88372e+03,0.10232e+04,0.11626e+04 /) - kao(:, 1, 2,14) = (/ & - & 0.18551e+04,0.16163e+04,0.13640e+04,0.12440e+04,0.97095e+03, & - & 0.75153e+03,0.89202e+03,0.10323e+04,0.11731e+04 /) - kao(:, 2, 2,14) = (/ & - & 0.18136e+04,0.16209e+04,0.13887e+04,0.11127e+04,0.90845e+03, & - & 0.74936e+03,0.88974e+03,0.10301e+04,0.11702e+04 /) - kao(:, 3, 2,14) = (/ & - & 0.17918e+04,0.15931e+04,0.13282e+04,0.11266e+04,0.93052e+03, & - & 0.74732e+03,0.88725e+03,0.10243e+04,0.11672e+04 /) - kao(:, 4, 2,14) = (/ & - & 0.17507e+04,0.14791e+04,0.12865e+04,0.10818e+04,0.87901e+03, & - & 0.74478e+03,0.88467e+03,0.10246e+04,0.11645e+04 /) - kao(:, 5, 2,14) = (/ & - & 0.16872e+04,0.14818e+04,0.12871e+04,0.10513e+04,0.88744e+03, & - & 0.74325e+03,0.88337e+03,0.10230e+04,0.11625e+04 /) - kao(:, 1, 3,14) = (/ & - & 0.16919e+04,0.15533e+04,0.13337e+04,0.10831e+04,0.86308e+03, & - & 0.75085e+03,0.89217e+03,0.10333e+04,0.11744e+04 /) - kao(:, 2, 3,14) = (/ & - & 0.17034e+04,0.15495e+04,0.12643e+04,0.11407e+04,0.84365e+03, & - & 0.74929e+03,0.89025e+03,0.10312e+04,0.11722e+04 /) - kao(:, 3, 3,14) = (/ & - & 0.16844e+04,0.14282e+04,0.12585e+04,0.10790e+04,0.84114e+03, & - & 0.74691e+03,0.88785e+03,0.10286e+04,0.11700e+04 /) - kao(:, 4, 3,14) = (/ & - & 0.16791e+04,0.14180e+04,0.12209e+04,0.10441e+04,0.85899e+03, & - & 0.74519e+03,0.88544e+03,0.10259e+04,0.11667e+04 /) - kao(:, 5, 3,14) = (/ & - & 0.16063e+04,0.13774e+04,0.12181e+04,0.10006e+04,0.82020e+03, & - & 0.74245e+03,0.88287e+03,0.10231e+04,0.11633e+04 /) - kao(:, 1, 4,14) = (/ & - & 0.15960e+04,0.13846e+04,0.12078e+04,0.10284e+04,0.81079e+03, & - & 0.75078e+03,0.89233e+03,0.10336e+04,0.11751e+04 /) - kao(:, 2, 4,14) = (/ & - & 0.16237e+04,0.13919e+04,0.11906e+04,0.10115e+04,0.83009e+03, & - & 0.74909e+03,0.89076e+03,0.10322e+04,0.11737e+04 /) - kao(:, 3, 4,14) = (/ & - & 0.16136e+04,0.13698e+04,0.12046e+04,0.98839e+03,0.80997e+03, & - & 0.74745e+03,0.88871e+03,0.10300e+04,0.11712e+04 /) - kao(:, 4, 4,14) = (/ & - & 0.15739e+04,0.13753e+04,0.11394e+04,0.97871e+03,0.77029e+03, & - & 0.74770e+03,0.88627e+03,0.10279e+04,0.11682e+04 /) - kao(:, 5, 4,14) = (/ & - & 0.14863e+04,0.13334e+04,0.11445e+04,0.95775e+03,0.78998e+03, & - & 0.74317e+03,0.88387e+03,0.10246e+04,0.11653e+04 /) - kao(:, 1, 5,14) = (/ & - & 0.15101e+04,0.14006e+04,0.11513e+04,0.96783e+03,0.79581e+03, & - & 0.75045e+03,0.89239e+03,0.10340e+04,0.11759e+04 /) - kao(:, 2, 5,14) = (/ & - & 0.15461e+04,0.13003e+04,0.11685e+04,0.92112e+03,0.77517e+03, & - & 0.74927e+03,0.89114e+03,0.10330e+04,0.11749e+04 /) - kao(:, 3, 5,14) = (/ & - & 0.14676e+04,0.12966e+04,0.11042e+04,0.93875e+03,0.79645e+03, & - & 0.74772e+03,0.88943e+03,0.10311e+04,0.11729e+04 /) - kao(:, 4, 5,14) = (/ & - & 0.14571e+04,0.12955e+04,0.11734e+04,0.89731e+03,0.76986e+03, & - & 0.74578e+03,0.88723e+03,0.10287e+04,0.11702e+04 /) - kao(:, 5, 5,14) = (/ & - & 0.14311e+04,0.13054e+04,0.10738e+04,0.10079e+04,0.72704e+03, & - & 0.74437e+03,0.88461e+03,0.10260e+04,0.11675e+04 /) - kao(:, 1, 6,14) = (/ & - & 0.14715e+04,0.12798e+04,0.11182e+04,0.92160e+03,0.75379e+03, & - & 0.75023e+03,0.89251e+03,0.10348e+04,0.11771e+04 /) - kao(:, 2, 6,14) = (/ & - & 0.14479e+04,0.12414e+04,0.11222e+04,0.91289e+03,0.75013e+03, & - & 0.74921e+03,0.89141e+03,0.10336e+04,0.11758e+04 /) - kao(:, 3, 6,14) = (/ & - & 0.14270e+04,0.12651e+04,0.10793e+04,0.91215e+03,0.74649e+03, & - & 0.74796e+03,0.89005e+03,0.10321e+04,0.11739e+04 /) - kao(:, 4, 6,14) = (/ & - & 0.14058e+04,0.12702e+04,0.11005e+04,0.93809e+03,0.69854e+03, & - & 0.74632e+03,0.88820e+03,0.10301e+04,0.11720e+04 /) - kao(:, 5, 6,14) = (/ & - & 0.14048e+04,0.12100e+04,0.10413e+04,0.84934e+03,0.69794e+03, & - & 0.74429e+03,0.88588e+03,0.10284e+04,0.11701e+04 /) - kao(:, 1, 7,14) = (/ & - & 0.14325e+04,0.12413e+04,0.10595e+04,0.88906e+03,0.71717e+03, & - & 0.75037e+03,0.89273e+03,0.10353e+04,0.11779e+04 /) - kao(:, 2, 7,14) = (/ & - & 0.13620e+04,0.12089e+04,0.10598e+04,0.89550e+03,0.73134e+03, & - & 0.74911e+03,0.89161e+03,0.10341e+04,0.11766e+04 /) - kao(:, 3, 7,14) = (/ & - & 0.13346e+04,0.12111e+04,0.10262e+04,0.84775e+03,0.68161e+03, & - & 0.74811e+03,0.89050e+03,0.10329e+04,0.11753e+04 /) - kao(:, 4, 7,14) = (/ & - & 0.13132e+04,0.11998e+04,0.99757e+03,0.86083e+03,0.70251e+03, & - & 0.74653e+03,0.88899e+03,0.10312e+04,0.11735e+04 /) - kao(:, 5, 7,14) = (/ & - & 0.13232e+04,0.11634e+04,0.10230e+04,0.84353e+03,0.68339e+03, & - & 0.74500e+03,0.88698e+03,0.10287e+04,0.11709e+04 /) - kao(:, 1, 8,14) = (/ & - & 0.13366e+04,0.11630e+04,0.10188e+04,0.86405e+03,0.71800e+03, & - & 0.75008e+03,0.89285e+03,0.10357e+04,0.11785e+04 /) - kao(:, 2, 8,14) = (/ & - & 0.13647e+04,0.11518e+04,0.10110e+04,0.84719e+03,0.67819e+03, & - & 0.74911e+03,0.89187e+03,0.10343e+04,0.11777e+04 /) - kao(:, 3, 8,14) = (/ & - & 0.13128e+04,0.11472e+04,0.99038e+03,0.82656e+03,0.66483e+03, & - & 0.74815e+03,0.89080e+03,0.10335e+04,0.11761e+04 /) - kao(:, 4, 8,14) = (/ & - & 0.12817e+04,0.11127e+04,0.10092e+04,0.82047e+03,0.65442e+03, & - & 0.74685e+03,0.88933e+03,0.10318e+04,0.11746e+04 /) - kao(:, 5, 8,14) = (/ & - & 0.13162e+04,0.11356e+04,0.98305e+03,0.84668e+03,0.66544e+03, & - & 0.74558e+03,0.88790e+03,0.10302e+04,0.11725e+04 /) - kao(:, 1, 9,14) = (/ & - & 0.13174e+04,0.11399e+04,0.97696e+03,0.84117e+03,0.66145e+03, & - & 0.75011e+03,0.89307e+03,0.10362e+04,0.11789e+04 /) - kao(:, 2, 9,14) = (/ & - & 0.13196e+04,0.11310e+04,0.99094e+03,0.80674e+03,0.67265e+03, & - & 0.74915e+03,0.89213e+03,0.10351e+04,0.11781e+04 /) - kao(:, 3, 9,14) = (/ & - & 0.12950e+04,0.10983e+04,0.10229e+04,0.86051e+03,0.66007e+03, & - & 0.74819e+03,0.89107e+03,0.10339e+04,0.11768e+04 /) - kao(:, 4, 9,14) = (/ & - & 0.12605e+04,0.10785e+04,0.10061e+04,0.79531e+03,0.63414e+03, & - & 0.74728e+03,0.89004e+03,0.10328e+04,0.11756e+04 /) - kao(:, 5, 9,14) = (/ & - & 0.12553e+04,0.10628e+04,0.94908e+03,0.82074e+03,0.64983e+03, & - & 0.74606e+03,0.88866e+03,0.10313e+04,0.11739e+04 /) - kao(:, 1,10,14) = (/ & - & 0.13413e+04,0.11632e+04,0.10048e+04,0.80476e+03,0.65189e+03, & - & 0.75022e+03,0.89354e+03,0.10369e+04,0.11806e+04 /) - kao(:, 2,10,14) = (/ & - & 0.12838e+04,0.11017e+04,0.10173e+04,0.85213e+03,0.64367e+03, & - & 0.74909e+03,0.89223e+03,0.10354e+04,0.11786e+04 /) - kao(:, 3,10,14) = (/ & - & 0.12657e+04,0.11229e+04,0.92134e+03,0.80214e+03,0.64195e+03, & - & 0.74870e+03,0.89159e+03,0.10344e+04,0.11778e+04 /) - kao(:, 4,10,14) = (/ & - & 0.12310e+04,0.10594e+04,0.92792e+03,0.78251e+03,0.62401e+03, & - & 0.74734e+03,0.89003e+03,0.10332e+04,0.11762e+04 /) - kao(:, 5,10,14) = (/ & - & 0.12088e+04,0.10663e+04,0.92275e+03,0.77707e+03,0.64354e+03, & - & 0.74634e+03,0.88914e+03,0.10320e+04,0.11748e+04 /) - kao(:, 1,11,14) = (/ & - & 0.12205e+04,0.10982e+04,0.93349e+03,0.79899e+03,0.64961e+03, & - & 0.74981e+03,0.89329e+03,0.10368e+04,0.11803e+04 /) - kao(:, 2,11,14) = (/ & - & 0.12266e+04,0.10977e+04,0.90836e+03,0.76723e+03,0.61851e+03, & - & 0.74871e+03,0.89199e+03,0.10353e+04,0.11786e+04 /) - kao(:, 3,11,14) = (/ & - & 0.11876e+04,0.10750e+04,0.92258e+03,0.76849e+03,0.61349e+03, & - & 0.74902e+03,0.89163e+03,0.10343e+04,0.11775e+04 /) - kao(:, 4,11,14) = (/ & - & 0.12363e+04,0.10327e+04,0.91965e+03,0.74736e+03,0.60206e+03, & - & 0.74703e+03,0.88982e+03,0.10331e+04,0.11762e+04 /) - kao(:, 5,11,14) = (/ & - & 0.11827e+04,0.10266e+04,0.89018e+03,0.76668e+03,0.60360e+03, & - & 0.74604e+03,0.88895e+03,0.10316e+04,0.11748e+04 /) - kao(:, 1,12,14) = (/ & - & 0.11808e+04,0.10792e+04,0.88334e+03,0.76947e+03,0.60663e+03, & - & 0.74904e+03,0.89307e+03,0.10367e+04,0.11803e+04 /) - kao(:, 2,12,14) = (/ & - & 0.12120e+04,0.10402e+04,0.92096e+03,0.78880e+03,0.60609e+03, & - & 0.74841e+03,0.89179e+03,0.10352e+04,0.11786e+04 /) - kao(:, 3,12,14) = (/ & - & 0.12016e+04,0.10899e+04,0.90018e+03,0.73017e+03,0.60527e+03, & - & 0.75028e+03,0.89119e+03,0.10342e+04,0.11778e+04 /) - kao(:, 4,12,14) = (/ & - & 0.11901e+04,0.10101e+04,0.88929e+03,0.75342e+03,0.60426e+03, & - & 0.74677e+03,0.88991e+03,0.10327e+04,0.11762e+04 /) - kao(:, 5,12,14) = (/ & - & 0.12404e+04,0.10285e+04,0.87283e+03,0.77029e+03,0.60316e+03, & - & 0.74579e+03,0.88852e+03,0.10318e+04,0.11748e+04 /) - kao(:, 1,13,14) = (/ & - & 0.11819e+04,0.10465e+04,0.87588e+03,0.72550e+03,0.60649e+03, & - & 0.74922e+03,0.89289e+03,0.10366e+04,0.11799e+04 /) - kao(:, 2,13,14) = (/ & - & 0.11759e+04,0.10245e+04,0.86816e+03,0.77411e+03,0.60565e+03, & - & 0.74816e+03,0.89163e+03,0.10351e+04,0.11786e+04 /) - kao(:, 3,13,14) = (/ & - & 0.11354e+04,0.10124e+04,0.96299e+03,0.72358e+03,0.60486e+03, & - & 0.74851e+03,0.89156e+03,0.10341e+04,0.11778e+04 /) - kao(:, 4,13,14) = (/ & - & 0.11811e+04,0.10736e+04,0.85638e+03,0.74549e+03,0.60366e+03, & - & 0.74655e+03,0.88977e+03,0.10330e+04,0.11762e+04 /) - kao(:, 5,13,14) = (/ & - & 0.11332e+04,0.99282e+03,0.87259e+03,0.77082e+03,0.60280e+03, & - & 0.74559e+03,0.88865e+03,0.10317e+04,0.11748e+04 /) - kao(:, 1, 1,15) = (/ & - & 0.19847e+04,0.16615e+04,0.16299e+04,0.11466e+04,0.10123e+04, & - & 0.72871e+03,0.89405e+03,0.10334e+04,0.11734e+04 /) - kao(:, 2, 1,15) = (/ & - & 0.18867e+04,0.16470e+04,0.14051e+04,0.12848e+04,0.91870e+03, & - & 0.75104e+03,0.89013e+03,0.10307e+04,0.11650e+04 /) - kao(:, 3, 1,15) = (/ & - & 0.17405e+04,0.16240e+04,0.14364e+04,0.10773e+04,0.10008e+04, & - & 0.74790e+03,0.89023e+03,0.10382e+04,0.11720e+04 /) - kao(:, 4, 1,15) = (/ & - & 0.19099e+04,0.16930e+04,0.14454e+04,0.12410e+04,0.95925e+03, & - & 0.74605e+03,0.88544e+03,0.10248e+04,0.11651e+04 /) - kao(:, 5, 1,15) = (/ & - & 0.19738e+04,0.13892e+04,0.14377e+04,0.12129e+04,0.77083e+03, & - & 0.74496e+03,0.88458e+03,0.10242e+04,0.11638e+04 /) - kao(:, 1, 2,15) = (/ & - & 0.18788e+04,0.15414e+04,0.14391e+04,0.94831e+03,0.88384e+03, & - & 0.75320e+03,0.89399e+03,0.10340e+04,0.11746e+04 /) - kao(:, 2, 2,15) = (/ & - & 0.16660e+04,0.14507e+04,0.12145e+04,0.11753e+04,0.91977e+03, & - & 0.75003e+03,0.89113e+03,0.10308e+04,0.11712e+04 /) - kao(:, 3, 2,15) = (/ & - & 0.15746e+04,0.14551e+04,0.13375e+04,0.10698e+04,0.76931e+03, & - & 0.74657e+03,0.88729e+03,0.10267e+04,0.11695e+04 /) - kao(:, 4, 2,15) = (/ & - & 0.16772e+04,0.16415e+04,0.13391e+04,0.10287e+04,0.88207e+03, & - & 0.74593e+03,0.88530e+03,0.10252e+04,0.11661e+04 /) - kao(:, 5, 2,15) = (/ & - & 0.16581e+04,0.15452e+04,0.12479e+04,0.10067e+04,0.83698e+03, & - & 0.74419e+03,0.88279e+03,0.10234e+04,0.11634e+04 /) - kao(:, 1, 3,15) = (/ & - & 0.17888e+04,0.13395e+04,0.12224e+04,0.11479e+04,0.91734e+03, & - & 0.75291e+03,0.89358e+03,0.10348e+04,0.11761e+04 /) - kao(:, 2, 3,15) = (/ & - & 0.16146e+04,0.11805e+04,0.12709e+04,0.85911e+03,0.90210e+03, & - & 0.75028e+03,0.89203e+03,0.10324e+04,0.11734e+04 /) - kao(:, 3, 3,15) = (/ & - & 0.14717e+04,0.15353e+04,0.12224e+04,0.96001e+03,0.77554e+03, & - & 0.74753e+03,0.88823e+03,0.10297e+04,0.11678e+04 /) - kao(:, 4, 3,15) = (/ & - & 0.15479e+04,0.14535e+04,0.11756e+04,0.99609e+03,0.71892e+03, & - & 0.74634e+03,0.88703e+03,0.10366e+04,0.11684e+04 /) - kao(:, 5, 3,15) = (/ & - & 0.15155e+04,0.14515e+04,0.11733e+04,0.10638e+04,0.80510e+03, & - & 0.74461e+03,0.88580e+03,0.10240e+04,0.11652e+04 /) - kao(:, 1, 4,15) = (/ & - & 0.15848e+04,0.14083e+04,0.12006e+04,0.10439e+04,0.81336e+03, & - & 0.75201e+03,0.89444e+03,0.10363e+04,0.11781e+04 /) - kao(:, 2, 4,15) = (/ & - & 0.13736e+04,0.13760e+04,0.12165e+04,0.94289e+03,0.75006e+03, & - & 0.75167e+03,0.89210e+03,0.10337e+04,0.11753e+04 /) - kao(:, 3, 4,15) = (/ & - & 0.14353e+04,0.13702e+04,0.10217e+04,0.10119e+04,0.72585e+03, & - & 0.74883e+03,0.88956e+03,0.10325e+04,0.11731e+04 /) - kao(:, 4, 4,15) = (/ & - & 0.14295e+04,0.12548e+04,0.12198e+04,0.96945e+03,0.84557e+03, & - & 0.73846e+03,0.88641e+03,0.10258e+04,0.11703e+04 /) - kao(:, 5, 4,15) = (/ & - & 0.15742e+04,0.13268e+04,0.10395e+04,0.90301e+03,0.67604e+03, & - & 0.74473e+03,0.88569e+03,0.10266e+04,0.11676e+04 /) - kao(:, 1, 5,15) = (/ & - & 0.15038e+04,0.11787e+04,0.11191e+04,0.96573e+03,0.74364e+03, & - & 0.75161e+03,0.89373e+03,0.10358e+04,0.11780e+04 /) - kao(:, 2, 5,15) = (/ & - & 0.12972e+04,0.14157e+04,0.10073e+04,0.10120e+04,0.78829e+03, & - & 0.75051e+03,0.89254e+03,0.10346e+04,0.11785e+04 /) - kao(:, 3, 5,15) = (/ & - & 0.15562e+04,0.12980e+04,0.11053e+04,0.96784e+03,0.68156e+03, & - & 0.74938e+03,0.89063e+03,0.10325e+04,0.11743e+04 /) - kao(:, 4, 5,15) = (/ & - & 0.15203e+04,0.12953e+04,0.96757e+03,0.95061e+03,0.68480e+03, & - & 0.74750e+03,0.88780e+03,0.10293e+04,0.11708e+04 /) - kao(:, 5, 5,15) = (/ & - & 0.14730e+04,0.11456e+04,0.11151e+04,0.68408e+03,0.76176e+03, & - & 0.75307e+03,0.89322e+03,0.10317e+04,0.11682e+04 /) - kao(:, 1, 6,15) = (/ & - & 0.15240e+04,0.12794e+04,0.10826e+04,0.93131e+03,0.69525e+03, & - & 0.75122e+03,0.89364e+03,0.10361e+04,0.11785e+04 /) - kao(:, 2, 6,15) = (/ & - & 0.13735e+04,0.12837e+04,0.10725e+04,0.91616e+03,0.69548e+03, & - & 0.75041e+03,0.89279e+03,0.10360e+04,0.11776e+04 /) - kao(:, 3, 6,15) = (/ & - & 0.14287e+04,0.11366e+04,0.10240e+04,0.87529e+03,0.70795e+03, & - & 0.75034e+03,0.89142e+03,0.10337e+04,0.11759e+04 /) - kao(:, 4, 6,15) = (/ & - & 0.12768e+04,0.11078e+04,0.98805e+03,0.76254e+03,0.77383e+03, & - & 0.74782e+03,0.88921e+03,0.10312e+04,0.11732e+04 /) - kao(:, 5, 6,15) = (/ & - & 0.13045e+04,0.12087e+04,0.10585e+04,0.89185e+03,0.69378e+03, & - & 0.74461e+03,0.88618e+03,0.10253e+04,0.11684e+04 /) - kao(:, 1, 7,15) = (/ & - & 0.13068e+04,0.11778e+04,0.10485e+04,0.87245e+03,0.70237e+03, & - & 0.75029e+03,0.89358e+03,0.10363e+04,0.11790e+04 /) - kao(:, 2, 7,15) = (/ & - & 0.13988e+04,0.11525e+04,0.98924e+03,0.83779e+03,0.64617e+03, & - & 0.75022e+03,0.89357e+03,0.10355e+04,0.11782e+04 /) - kao(:, 3, 7,15) = (/ & - & 0.14294e+04,0.11695e+04,0.10182e+04,0.91196e+03,0.69696e+03, & - & 0.74932e+03,0.89330e+03,0.10353e+04,0.11780e+04 /) - kao(:, 4, 7,15) = (/ & - & 0.14082e+04,0.10640e+04,0.10540e+04,0.79295e+03,0.62688e+03, & - & 0.74789e+03,0.89097e+03,0.10327e+04,0.11750e+04 /) - kao(:, 5, 7,15) = (/ & - & 0.13514e+04,0.12038e+04,0.10012e+04,0.83544e+03,0.67927e+03, & - & 0.74629e+03,0.88843e+03,0.10298e+04,0.11718e+04 /) - kao(:, 1, 8,15) = (/ & - & 0.14761e+04,0.12412e+04,0.10429e+04,0.84370e+03,0.62388e+03, & - & 0.75133e+03,0.89371e+03,0.10367e+04,0.11796e+04 /) - kao(:, 2, 8,15) = (/ & - & 0.12119e+04,0.11409e+04,0.10121e+04,0.85755e+03,0.70976e+03, & - & 0.74998e+03,0.89216e+03,0.10357e+04,0.11786e+04 /) - kao(:, 3, 8,15) = (/ & - & 0.12581e+04,0.11663e+04,0.10198e+04,0.88649e+03,0.69509e+03, & - & 0.74932e+03,0.89355e+03,0.10350e+04,0.11787e+04 /) - kao(:, 4, 8,15) = (/ & - & 0.12478e+04,0.12066e+04,0.87201e+03,0.84155e+03,0.70223e+03, & - & 0.74886e+03,0.89098e+03,0.10337e+04,0.11764e+04 /) - kao(:, 5, 8,15) = (/ & - & 0.12322e+04,0.11048e+04,0.93070e+03,0.68296e+03,0.66022e+03, & - & 0.74776e+03,0.88972e+03,0.10315e+04,0.11748e+04 /) - kao(:, 1, 9,15) = (/ & - & 0.13164e+04,0.12093e+04,0.10729e+04,0.80022e+03,0.68605e+03, & - & 0.75075e+03,0.89396e+03,0.10372e+04,0.11804e+04 /) - kao(:, 2, 9,15) = (/ & - & 0.12738e+04,0.11851e+04,0.88381e+03,0.85846e+03,0.65813e+03, & - & 0.74985e+03,0.89295e+03,0.10369e+04,0.11792e+04 /) - kao(:, 3, 9,15) = (/ & - & 0.12657e+04,0.12031e+04,0.79849e+03,0.64636e+03,0.60824e+03, & - & 0.74924e+03,0.89227e+03,0.10353e+04,0.11783e+04 /) - kao(:, 4, 9,15) = (/ & - & 0.12866e+04,0.11531e+04,0.85958e+03,0.76890e+03,0.66204e+03, & - & 0.74965e+03,0.89143e+03,0.10344e+04,0.11773e+04 /) - kao(:, 5, 9,15) = (/ & - & 0.11604e+04,0.11730e+04,0.87009e+03,0.73148e+03,0.58106e+03, & - & 0.74723e+03,0.88998e+03,0.10327e+04,0.11755e+04 /) - kao(:, 1,10,15) = (/ & - & 0.11188e+04,0.99215e+03,0.73460e+03,0.83046e+03,0.68844e+03, & - & 0.75085e+03,0.89429e+03,0.10377e+04,0.11803e+04 /) - kao(:, 2,10,15) = (/ & - & 0.12059e+04,0.10804e+04,0.70761e+03,0.65712e+03,0.66535e+03, & - & 0.74980e+03,0.89311e+03,0.10364e+04,0.11807e+04 /) - kao(:, 3,10,15) = (/ & - & 0.11817e+04,0.10195e+04,0.95365e+03,0.71601e+03,0.59959e+03, & - & 0.74791e+03,0.89228e+03,0.10355e+04,0.11778e+04 /) - kao(:, 4,10,15) = (/ & - & 0.11350e+04,0.11533e+04,0.91058e+03,0.81845e+03,0.64874e+03, & - & 0.74908e+03,0.89233e+03,0.10356e+04,0.11779e+04 /) - kao(:, 5,10,15) = (/ & - & 0.12000e+04,0.10896e+04,0.93671e+03,0.81314e+03,0.60750e+03, & - & 0.74754e+03,0.89053e+03,0.10335e+04,0.11765e+04 /) - kao(:, 1,11,15) = (/ & - & 0.12887e+04,0.10795e+04,0.92507e+03,0.76020e+03,0.61621e+03, & - & 0.75046e+03,0.89404e+03,0.10376e+04,0.11812e+04 /) - kao(:, 2,11,15) = (/ & - & 0.11864e+04,0.99352e+03,0.96688e+03,0.81999e+03,0.65449e+03, & - & 0.74944e+03,0.89287e+03,0.10363e+04,0.11797e+04 /) - kao(:, 3,11,15) = (/ & - & 0.11946e+04,0.10069e+04,0.91904e+03,0.81170e+03,0.65606e+03, & - & 0.74582e+03,0.89066e+03,0.10354e+04,0.11787e+04 /) - kao(:, 4,11,15) = (/ & - & 0.10269e+04,0.10463e+04,0.82697e+03,0.81731e+03,0.61185e+03, & - & 0.74876e+03,0.89142e+03,0.10347e+04,0.11779e+04 /) - kao(:, 5,11,15) = (/ & - & 0.11483e+04,0.10490e+04,0.91718e+03,0.72295e+03,0.60510e+03, & - & 0.74783e+03,0.89173e+03,0.10334e+04,0.11765e+04 /) - kao(:, 1,12,15) = (/ & - & 0.12157e+04,0.94948e+03,0.89441e+03,0.76380e+03,0.60866e+03, & - & 0.75013e+03,0.89382e+03,0.10375e+04,0.11812e+04 /) - kao(:, 2,12,15) = (/ & - & 0.10470e+04,0.10059e+04,0.83704e+03,0.70161e+03,0.60721e+03, & - & 0.74914e+03,0.89267e+03,0.10370e+04,0.11807e+04 /) - kao(:, 3,12,15) = (/ & - & 0.10541e+04,0.86865e+03,0.86614e+03,0.79420e+03,0.60576e+03, & - & 0.74144e+03,0.89117e+03,0.10353e+04,0.11778e+04 /) - kao(:, 4,12,15) = (/ & - & 0.11152e+04,0.10946e+04,0.91200e+03,0.75719e+03,0.60459e+03, & - & 0.74791e+03,0.89124e+03,0.10346e+04,0.11788e+04 /) - kao(:, 5,12,15) = (/ & - & 0.10232e+04,0.97767e+03,0.95862e+03,0.62268e+03,0.60382e+03, & - & 0.74758e+03,0.88947e+03,0.10333e+04,0.11765e+04 /) - kao(:, 1,13,15) = (/ & - & 0.11027e+04,0.93786e+03,0.84040e+03,0.77686e+03,0.60858e+03, & - & 0.74987e+03,0.89364e+03,0.10374e+04,0.11812e+04 /) - kao(:, 2,13,15) = (/ & - & 0.10816e+04,0.10747e+04,0.88690e+03,0.66213e+03,0.60670e+03, & - & 0.74889e+03,0.89251e+03,0.10369e+04,0.11797e+04 /) - kao(:, 3,13,15) = (/ & - & 0.11963e+04,0.98701e+03,0.69767e+03,0.73646e+03,0.60528e+03, & - & 0.74531e+03,0.88962e+03,0.10352e+04,0.11778e+04 /) - kao(:, 4,13,15) = (/ & - & 0.10530e+04,0.78530e+03,0.91477e+03,0.71026e+03,0.60430e+03, & - & 0.74770e+03,0.89110e+03,0.10345e+04,0.11779e+04 /) - kao(:, 5,13,15) = (/ & - & 0.11409e+04,0.10574e+04,0.83207e+03,0.61034e+03,0.60355e+03, & - & 0.74679e+03,0.89073e+03,0.10333e+04,0.11765e+04 /) - kao(:, 1, 1,16) = (/ & - & 0.34848e+03,0.49670e+03,0.29569e+03,0.31627e+03,0.46514e+03, & - & 0.42834e+03,0.88848e+03,0.10335e+04,0.11735e+04 /) - kao(:, 2, 1,16) = (/ & - & 0.18044e+04,0.87518e+03,0.11930e+04,0.45580e+03,0.83690e+03, & - & 0.74631e+03,0.89022e+03,0.10242e+04,0.11632e+04 /) - kao(:, 3, 1,16) = (/ & - & 0.11196e+04,0.73658e+03,0.10480e+04,0.53695e+03,0.39566e+03, & - & 0.74377e+03,0.86775e+03,0.94144e+03,0.11277e+04 /) - kao(:, 4, 1,16) = (/ & - & 0.72013e+03,0.40040e+03,0.39030e+03,0.31401e+03,0.31498e+03, & - & 0.74613e+03,0.88553e+03,0.10249e+04,0.11579e+04 /) - kao(:, 5, 1,16) = (/ & - & 0.34789e+03,0.14911e+04,0.33003e+03,0.29522e+03,0.31385e+03, & - & 0.74516e+03,0.88480e+03,0.10244e+04,0.11641e+04 /) - kao(:, 1, 2,16) = (/ & - & 0.41247e+03,0.81197e+03,0.68322e+03,0.50855e+03,0.24076e+03, & - & 0.74851e+03,0.88842e+03,0.10341e+04,0.11748e+04 /) - kao(:, 2, 2,16) = (/ & - & 0.16209e+04,0.56884e+03,0.94156e+03,0.29182e+03,0.46039e+03, & - & 0.75011e+03,0.88557e+03,0.10309e+04,0.11714e+04 /) - kao(:, 3, 2,16) = (/ & - & 0.11534e+04,0.51443e+03,0.23941e+03,0.44358e+03,0.58779e+03, & - & 0.74720e+03,0.88237e+03,0.10275e+04,0.11547e+04 /) - kao(:, 4, 2,16) = (/ & - & 0.78193e+03,0.30585e+03,0.42670e+03,0.10365e+04,0.43225e+03, & - & 0.74126e+03,0.88535e+03,0.10253e+04,0.11588e+04 /) - kao(:, 5, 2,16) = (/ & - & 0.67509e+03,0.40574e+03,0.57252e+03,0.10353e+04,0.15564e+03, & - & 0.73954e+03,0.88360e+03,0.10236e+04,0.11636e+04 /) - kao(:, 1, 3,16) = (/ & - & 0.91257e+03,0.11144e+04,0.54685e+03,0.19037e+03,0.25900e+03, & - & 0.74823e+03,0.89369e+03,0.10350e+04,0.11762e+04 /) - kao(:, 2, 3,16) = (/ & - & 0.67162e+03,0.10092e+04,0.40983e+03,0.37826e+03,0.42702e+03, & - & 0.75035e+03,0.88647e+03,0.10325e+04,0.11736e+04 /) - kao(:, 3, 3,16) = (/ & - & 0.94657e+03,0.26107e+03,0.43567e+03,0.41065e+03,0.70838e+03, & - & 0.74760e+03,0.88832e+03,0.10233e+04,0.11698e+04 /) - kao(:, 4, 3,16) = (/ & - & 0.10618e+03,0.45040e+03,0.10291e+04,0.30237e+03,0.57813e+03, & - & 0.73277e+03,0.87582e+03,0.95203e+03,0.11472e+04 /) - kao(:, 5, 3,16) = (/ & - & 0.96551e+03,0.68706e+03,0.56500e+03,0.14865e+03,0.35532e+03, & - & 0.73527e+03,0.86908e+03,0.10241e+04,0.11579e+04 /) - kao(:, 1, 4,16) = (/ & - & 0.13211e+04,0.11050e+04,0.91067e+03,0.34788e+03,0.76485e+03, & - & 0.75213e+03,0.88892e+03,0.10299e+04,0.11709e+04 /) - kao(:, 2, 4,16) = (/ & - & 0.15543e+04,0.92211e+03,0.72798e+03,0.86839e+03,0.36802e+03, & - & 0.74223e+03,0.89219e+03,0.10338e+04,0.11754e+04 /) - kao(:, 3, 4,16) = (/ & - & 0.53676e+03,0.46363e+03,0.10941e+04,0.19958e+03,0.68767e+03, & - & 0.74416e+03,0.88965e+03,0.10195e+04,0.11658e+04 /) - kao(:, 4, 4,16) = (/ & - & 0.66992e+03,0.61007e+03,0.50612e+03,0.34999e+03,0.19685e+03, & - & 0.74139e+03,0.88155e+03,0.10274e+04,0.11555e+04 /) - kao(:, 5, 4,16) = (/ & - & 0.55226e+03,0.42689e+03,0.10712e+04,0.69959e+03,0.69105e+03, & - & 0.73534e+03,0.87452e+03,0.10137e+04,0.11529e+04 /) - kao(:, 1, 5,16) = (/ & - & 0.11854e+04,0.90025e+03,0.10734e+04,0.36732e+03,0.51551e+03, & - & 0.75181e+03,0.89397e+03,0.10361e+04,0.11783e+04 /) - kao(:, 2, 5,16) = (/ & - & 0.13933e+04,0.23882e+03,0.71015e+03,0.29765e+03,0.88507e+02, & - & 0.75060e+03,0.89266e+03,0.10347e+04,0.11637e+04 /) - kao(:, 3, 5,16) = (/ & - & 0.30783e+03,0.72533e+03,0.99782e+03,0.22581e+03,0.21957e+03, & - & 0.74471e+03,0.89072e+03,0.10326e+04,0.11744e+04 /) - kao(:, 4, 5,16) = (/ & - & 0.12756e+03,0.23797e+03,0.16871e+03,0.60625e+03,0.35893e+03, & - & 0.73811e+03,0.88789e+03,0.10294e+04,0.11709e+04 /) - kao(:, 5, 5,16) = (/ & - & 0.67577e+03,0.67606e+03,0.57612e+03,0.15439e+03,0.22922e+03, & - & 0.66526e+03,0.82593e+03,0.98621e+03,0.11543e+04 /) - kao(:, 1, 6,16) = (/ & - & 0.35294e+03,0.92951e+03,0.39404e+03,0.59466e+03,0.46365e+03, & - & 0.75155e+03,0.89403e+03,0.10365e+04,0.11790e+04 /) - kao(:, 2, 6,16) = (/ & - & 0.83494e+03,0.91972e+03,0.83351e+02,0.26459e+03,0.33053e+03, & - & 0.75056e+03,0.89298e+03,0.10296e+04,0.11778e+04 /) - kao(:, 3, 6,16) = (/ & - & 0.77495e+02,0.67358e+03,0.71470e+03,0.28985e+03,0.12695e+03, & - & 0.74093e+03,0.89153e+03,0.10338e+04,0.11761e+04 /) - kao(:, 4, 6,16) = (/ & - & 0.12524e+04,0.52300e+03,0.17321e+03,0.31958e+03,0.15643e+03, & - & 0.74316e+03,0.88930e+03,0.10313e+04,0.11733e+04 /) - kao(:, 5, 6,16) = (/ & - & 0.79880e+03,0.54259e+03,0.31909e+03,0.47791e+03,0.45938e+03, & - & 0.74468e+03,0.88626e+03,0.10278e+04,0.11499e+04 /) - kao(:, 1, 7,16) = (/ & - & 0.10078e+04,0.83081e+03,0.68047e+03,0.68284e+03,0.57904e+03, & - & 0.75128e+03,0.89403e+03,0.10368e+04,0.11795e+04 /) - kao(:, 2, 7,16) = (/ & - & 0.67323e+03,0.10228e+04,0.49758e+03,0.33578e+03,0.38746e+03, & - & 0.75047e+03,0.88822e+03,0.10359e+04,0.11786e+04 /) - kao(:, 3, 7,16) = (/ & - & 0.60358e+03,0.41876e+03,0.74942e+03,0.38757e+03,0.61092e+03, & - & 0.74943e+03,0.88213e+03,0.10289e+04,0.11707e+04 /) - kao(:, 4, 7,16) = (/ & - & 0.69109e+03,0.11040e+04,0.46705e+03,0.74628e+03,0.47483e+03, & - & 0.74797e+03,0.88542e+03,0.10328e+04,0.11752e+04 /) - kao(:, 5, 7,16) = (/ & - & 0.68277e+03,0.46564e+03,0.19228e+03,0.48854e+03,0.28304e+03, & - & 0.74163e+03,0.88289e+03,0.10299e+04,0.11719e+04 /) - kao(:, 1, 8,16) = (/ & - & 0.26685e+03,0.60532e+03,0.51009e+03,0.40907e+03,0.39126e+03, & - & 0.74682e+03,0.89396e+03,0.10369e+04,0.11799e+04 /) - kao(:, 2, 8,16) = (/ & - & 0.94869e+03,0.11471e+04,0.44706e+03,0.23151e+03,0.93532e+02, & - & 0.75035e+03,0.89331e+03,0.10363e+04,0.11727e+04 /) - kao(:, 3, 8,16) = (/ & - & 0.11588e+04,0.74588e+03,0.28311e+03,0.27864e+03,0.32853e+03, & - & 0.74950e+03,0.88246e+03,0.10352e+04,0.11716e+04 /) - kao(:, 4, 8,16) = (/ & - & 0.11874e+04,0.47456e+03,0.83368e+03,0.31591e+03,0.30274e+03, & - & 0.74421e+03,0.89109e+03,0.10338e+04,0.11765e+04 /) - kao(:, 5, 8,16) = (/ & - & 0.45710e+03,0.66086e+03,0.55863e+03,0.58037e+03,0.20569e+03, & - & 0.73836e+03,0.88417e+03,0.10316e+04,0.11675e+04 /) - kao(:, 1, 9,16) = (/ & - & 0.55233e+03,0.18269e+03,0.18991e+03,0.35964e+03,0.38998e+03, & - & 0.75089e+03,0.89415e+03,0.10374e+04,0.11807e+04 /) - kao(:, 2, 9,16) = (/ & - & 0.31819e+03,0.14904e+03,0.79703e+03,0.32317e+03,0.20679e+03, & - & 0.75021e+03,0.89337e+03,0.10308e+04,0.11797e+04 /) - kao(:, 3, 9,16) = (/ & - & 0.16059e+03,0.37409e+03,0.62337e+03,0.62951e+03,0.47662e+03, & - & 0.74953e+03,0.89262e+03,0.10357e+04,0.11788e+04 /) - kao(:, 4, 9,16) = (/ & - & 0.15191e+03,0.63681e+03,0.25601e+03,0.65772e+03,0.38994e+03, & - & 0.74029e+03,0.89158e+03,0.10346e+04,0.11775e+04 /) - kao(:, 5, 9,16) = (/ & - & 0.10392e+04,0.33629e+03,0.90538e+03,0.33435e+03,0.46694e+03, & - & 0.74731e+03,0.89008e+03,0.10329e+04,0.11756e+04 /) - kao(:, 1,10,16) = (/ & - & 0.43161e+03,0.53194e+03,0.82168e+03,0.11050e+03,0.32159e+02, & - & 0.75101e+03,0.89450e+03,0.10380e+04,0.11815e+04 /) - kao(:, 2,10,16) = (/ & - & 0.23362e+03,0.50697e+03,0.75913e+03,0.37965e+03,0.15877e+03, & - & 0.75002e+03,0.89333e+03,0.10366e+04,0.11734e+04 /) - kao(:, 3,10,16) = (/ & - & 0.66577e+03,0.22676e+03,0.63752e+03,0.50488e+03,0.52339e+03, & - & 0.74947e+03,0.88778e+03,0.10360e+04,0.11793e+04 /) - kao(:, 4,10,16) = (/ & - & 0.12040e+04,0.37222e+03,0.71269e+03,0.68368e+02,0.31445e+03, & - & 0.74453e+03,0.88691e+03,0.10293e+04,0.11782e+04 /) - kao(:, 5,10,16) = (/ & - & 0.85334e+03,0.50951e+03,0.43397e+03,0.11861e+03,0.15074e+03, & - & 0.74764e+03,0.89065e+03,0.10337e+04,0.11767e+04 /) - kao(:, 1,11,16) = (/ & - & 0.45853e+03,0.29024e+03,0.38275e+03,0.26130e+03,0.12124e+03, & - & 0.75062e+03,0.89424e+03,0.10379e+04,0.11815e+04 /) - kao(:, 2,11,16) = (/ & - & 0.66691e+03,0.55656e+03,0.39879e+03,0.16526e+03,0.24675e+03, & - & 0.74965e+03,0.89309e+03,0.10365e+04,0.11800e+04 /) - kao(:, 3,11,16) = (/ & - & 0.10239e+04,0.60930e+03,0.22001e+03,0.10914e+03,0.22748e+03, & - & 0.74913e+03,0.89251e+03,0.10359e+04,0.11793e+04 /) - kao(:, 4,11,16) = (/ & - & 0.80567e+03,0.90344e+03,0.77356e+03,0.12489e+03,0.55902e+03, & - & 0.74421e+03,0.89165e+03,0.10349e+04,0.11782e+04 /) - kao(:, 5,11,16) = (/ & - & 0.80619e+03,0.87963e+03,0.47254e+03,0.39261e+03,0.59752e+03, & - & 0.74319e+03,0.88056e+03,0.10336e+04,0.11767e+04 /) - kao(:, 1,12,16) = (/ & - & 0.54479e+03,0.73809e+03,0.74534e+03,0.30870e+03,0.60893e+03, & - & 0.75030e+03,0.89402e+03,0.10378e+04,0.11815e+04 /) - kao(:, 2,12,16) = (/ & - & 0.10600e+04,0.76559e+03,0.34957e+03,0.18602e+03,0.60736e+03, & - & 0.74935e+03,0.89289e+03,0.10307e+04,0.11734e+04 /) - kao(:, 3,12,16) = (/ & - & 0.10515e+04,0.60079e+03,0.43472e+03,0.33220e+03,0.60582e+03, & - & 0.74885e+03,0.89233e+03,0.10358e+04,0.11793e+04 /) - kao(:, 4,12,16) = (/ & - & 0.32670e+03,0.23075e+03,0.13581e+03,0.17106e+03,0.60474e+03, & - & 0.74811e+03,0.89148e+03,0.10348e+04,0.11717e+04 /) - kao(:, 5,12,16) = (/ & - & 0.20371e+03,0.68798e+03,0.91592e+02,0.60316e+03,0.60390e+03, & - & 0.74294e+03,0.89029e+03,0.10335e+04,0.11767e+04 /) - kao(:, 1,13,16) = (/ & - & 0.85988e+03,0.94717e+03,0.84544e+03,0.31415e+03,0.60500e+03, & - & 0.75003e+03,0.89385e+03,0.10377e+04,0.11815e+04 /) - kao(:, 2,13,16) = (/ & - & 0.10379e+04,0.11189e+03,0.20733e+03,0.17410e+03,0.60685e+03, & - & 0.74910e+03,0.89272e+03,0.10306e+04,0.11800e+04 /) - kao(:, 3,13,16) = (/ & - & 0.70206e+03,0.77801e+03,0.11974e+03,0.34591e+03,0.60534e+03, & - & 0.74861e+03,0.89217e+03,0.10357e+04,0.11793e+04 /) - kao(:, 4,13,16) = (/ & - & 0.69165e+03,0.93369e+03,0.16190e+03,0.16396e+03,0.60445e+03, & - & 0.74789e+03,0.89133e+03,0.10348e+04,0.11782e+04 /) - kao(:, 5,13,16) = (/ & - & 0.20016e+03,0.25832e+03,0.57797e+03,0.24270e+03,0.60363e+03, & - & 0.74689e+03,0.88521e+03,0.10334e+04,0.11767e+04 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:, 1,13, 1) = (/ & - & 0.27369e+02,0.29903e+03,0.42924e+03,0.31039e+03,0.35000e+02 /) - kbo(:, 2,13, 1) = (/ & - & 0.27158e+02,0.29898e+03,0.42745e+03,0.30840e+03,0.35000e+02 /) - kbo(:, 3,13, 1) = (/ & - & 0.26976e+02,0.29889e+03,0.42590e+03,0.30668e+03,0.35000e+02 /) - kbo(:, 4,13, 1) = (/ & - & 0.26818e+02,0.29875e+03,0.42455e+03,0.30517e+03,0.35000e+02 /) - kbo(:, 5,13, 1) = (/ & - & 0.26679e+02,0.29855e+03,0.42335e+03,0.30384e+03,0.35000e+02 /) - kbo(:, 1,14, 1) = (/ & - & 0.26840e+02,0.29863e+03,0.42474e+03,0.30538e+03,0.35000e+02 /) - kbo(:, 2,14, 1) = (/ & - & 0.26669e+02,0.29862e+03,0.42327e+03,0.30375e+03,0.35000e+02 /) - kbo(:, 3,14, 1) = (/ & - & 0.26522e+02,0.29854e+03,0.42199e+03,0.30234e+03,0.35000e+02 /) - kbo(:, 4,14, 1) = (/ & - & 0.26394e+02,0.29842e+03,0.42088e+03,0.30111e+03,0.35000e+02 /) - kbo(:, 5,14, 1) = (/ & - & 0.26282e+02,0.29824e+03,0.41990e+03,0.30002e+03,0.35000e+02 /) - kbo(:, 1,15, 1) = (/ & - & 0.26408e+02,0.29831e+03,0.42100e+03,0.30124e+03,0.35000e+02 /) - kbo(:, 2,15, 1) = (/ & - & 0.26271e+02,0.29832e+03,0.41980e+03,0.29991e+03,0.35000e+02 /) - kbo(:, 3,15, 1) = (/ & - & 0.26152e+02,0.29826e+03,0.41876e+03,0.29877e+03,0.35000e+02 /) - kbo(:, 4,15, 1) = (/ & - & 0.26049e+02,0.29814e+03,0.41785e+03,0.29776e+03,0.35000e+02 /) - kbo(:, 5,15, 1) = (/ & - & 0.25958e+02,0.29797e+03,0.41705e+03,0.29688e+03,0.35000e+02 /) - kbo(:, 1,16, 1) = (/ & - & 0.26057e+02,0.29806e+03,0.41793e+03,0.29784e+03,0.35000e+02 /) - kbo(:, 2,16, 1) = (/ & - & 0.25946e+02,0.29807e+03,0.41695e+03,0.29676e+03,0.35000e+02 /) - kbo(:, 3,16, 1) = (/ & - & 0.25851e+02,0.29803e+03,0.41610e+03,0.29583e+03,0.35000e+02 /) - kbo(:, 4,16, 1) = (/ & - & 0.25767e+02,0.29792e+03,0.41536e+03,0.29502e+03,0.35000e+02 /) - kbo(:, 5,16, 1) = (/ & - & 0.25694e+02,0.29776e+03,0.41470e+03,0.29430e+03,0.35000e+02 /) - kbo(:, 1,17, 1) = (/ & - & 0.25772e+02,0.29785e+03,0.41540e+03,0.29506e+03,0.35000e+02 /) - kbo(:, 2,17, 1) = (/ & - & 0.25683e+02,0.29787e+03,0.41460e+03,0.29419e+03,0.35000e+02 /) - kbo(:, 3,17, 1) = (/ & - & 0.25606e+02,0.29784e+03,0.41391e+03,0.29343e+03,0.35000e+02 /) - kbo(:, 4,17, 1) = (/ & - & 0.25538e+02,0.29774e+03,0.41331e+03,0.29277e+03,0.35000e+02 /) - kbo(:, 5,17, 1) = (/ & - & 0.25479e+02,0.29758e+03,0.41278e+03,0.29219e+03,0.35000e+02 /) - kbo(:, 1,18, 1) = (/ & - & 0.25541e+02,0.29768e+03,0.41334e+03,0.29280e+03,0.35000e+02 /) - kbo(:, 2,18, 1) = (/ & - & 0.25469e+02,0.29772e+03,0.41269e+03,0.29209e+03,0.35000e+02 /) - kbo(:, 3,18, 1) = (/ & - & 0.25407e+02,0.29768e+03,0.41213e+03,0.29147e+03,0.35000e+02 /) - kbo(:, 4,18, 1) = (/ & - & 0.25353e+02,0.29758e+03,0.41163e+03,0.29094e+03,0.35000e+02 /) - kbo(:, 5,18, 1) = (/ & - & 0.25305e+02,0.29743e+03,0.41120e+03,0.29046e+03,0.35000e+02 /) - kbo(:, 1,19, 1) = (/ & - & 0.25354e+02,0.29755e+03,0.41165e+03,0.29095e+03,0.35000e+02 /) - kbo(:, 2,19, 1) = (/ & - & 0.25296e+02,0.29758e+03,0.41112e+03,0.29037e+03,0.35000e+02 /) - kbo(:, 3,19, 1) = (/ & - & 0.25245e+02,0.29755e+03,0.41067e+03,0.28988e+03,0.35000e+02 /) - kbo(:, 4,19, 1) = (/ & - & 0.25201e+02,0.29746e+03,0.41027e+03,0.28944e+03,0.35000e+02 /) - kbo(:, 5,19, 1) = (/ & - & 0.25163e+02,0.29730e+03,0.40991e+03,0.28905e+03,0.35000e+02 /) - kbo(:, 1,20, 1) = (/ & - & 0.25201e+02,0.29744e+03,0.41026e+03,0.28943e+03,0.35000e+02 /) - kbo(:, 2,20, 1) = (/ & - & 0.25154e+02,0.29748e+03,0.40984e+03,0.28897e+03,0.35000e+02 /) - kbo(:, 3,20, 1) = (/ & - & 0.25113e+02,0.29745e+03,0.40947e+03,0.28856e+03,0.35000e+02 /) - kbo(:, 4,20, 1) = (/ & - & 0.25078e+02,0.29735e+03,0.40914e+03,0.28821e+03,0.35000e+02 /) - kbo(:, 5,20, 1) = (/ & - & 0.25047e+02,0.29719e+03,0.40886e+03,0.28790e+03,0.35000e+02 /) - kbo(:, 1,21, 1) = (/ & - & 0.25076e+02,0.29736e+03,0.40913e+03,0.28819e+03,0.35000e+02 /) - kbo(:, 2,21, 1) = (/ & - & 0.25039e+02,0.29739e+03,0.40879e+03,0.28782e+03,0.35000e+02 /) - kbo(:, 3,21, 1) = (/ & - & 0.25006e+02,0.29736e+03,0.40849e+03,0.28749e+03,0.35000e+02 /) - kbo(:, 4,21, 1) = (/ & - & 0.24978e+02,0.29726e+03,0.40823e+03,0.28722e+03,0.35000e+02 /) - kbo(:, 5,21, 1) = (/ & - & 0.24952e+02,0.29710e+03,0.40800e+03,0.28695e+03,0.35000e+02 /) - kbo(:, 1,22, 1) = (/ & - & 0.24973e+02,0.29729e+03,0.40819e+03,0.28717e+03,0.35000e+02 /) - kbo(:, 2,22, 1) = (/ & - & 0.24944e+02,0.29732e+03,0.40792e+03,0.28687e+03,0.35000e+02 /) - kbo(:, 3,22, 1) = (/ & - & 0.24917e+02,0.29728e+03,0.40768e+03,0.28661e+03,0.35000e+02 /) - kbo(:, 4,22, 1) = (/ & - & 0.24895e+02,0.29717e+03,0.40747e+03,0.28638e+03,0.35000e+02 /) - kbo(:, 5,22, 1) = (/ & - & 0.24874e+02,0.29700e+03,0.40728e+03,0.28618e+03,0.35000e+02 /) - kbo(:, 1,23, 1) = (/ & - & 0.24890e+02,0.29724e+03,0.40743e+03,0.28634e+03,0.35000e+02 /) - kbo(:, 2,23, 1) = (/ & - & 0.24866e+02,0.29726e+03,0.40721e+03,0.28610e+03,0.35000e+02 /) - kbo(:, 3,23, 1) = (/ & - & 0.24846e+02,0.29721e+03,0.40702e+03,0.28589e+03,0.35000e+02 /) - kbo(:, 4,23, 1) = (/ & - & 0.24827e+02,0.29710e+03,0.40685e+03,0.28571e+03,0.35000e+02 /) - kbo(:, 5,23, 1) = (/ & - & 0.24811e+02,0.29692e+03,0.40671e+03,0.28554e+03,0.35000e+02 /) - kbo(:, 1,24, 1) = (/ & - & 0.24823e+02,0.29721e+03,0.40681e+03,0.28566e+03,0.35000e+02 /) - kbo(:, 2,24, 1) = (/ & - & 0.24804e+02,0.29721e+03,0.40664e+03,0.28547e+03,0.35000e+02 /) - kbo(:, 3,24, 1) = (/ & - & 0.24787e+02,0.29715e+03,0.40649e+03,0.28530e+03,0.35000e+02 /) - kbo(:, 4,24, 1) = (/ & - & 0.24773e+02,0.29703e+03,0.40635e+03,0.28516e+03,0.35000e+02 /) - kbo(:, 5,24, 1) = (/ & - & 0.24760e+02,0.29684e+03,0.40623e+03,0.28503e+03,0.35000e+02 /) - kbo(:, 1,25, 1) = (/ & - & 0.24769e+02,0.29717e+03,0.40631e+03,0.28511e+03,0.35000e+02 /) - kbo(:, 2,25, 1) = (/ & - & 0.24753e+02,0.29717e+03,0.40618e+03,0.28496e+03,0.35000e+02 /) - kbo(:, 3,25, 1) = (/ & - & 0.24740e+02,0.29710e+03,0.40606e+03,0.28483e+03,0.35000e+02 /) - kbo(:, 4,25, 1) = (/ & - & 0.24729e+02,0.29696e+03,0.40595e+03,0.28472e+03,0.35000e+02 /) - kbo(:, 5,25, 1) = (/ & - & 0.24718e+02,0.29676e+03,0.40585e+03,0.28462e+03,0.35000e+02 /) - kbo(:, 1,26, 1) = (/ & - & 0.24724e+02,0.29715e+03,0.40591e+03,0.28467e+03,0.35000e+02 /) - kbo(:, 2,26, 1) = (/ & - & 0.24712e+02,0.29713e+03,0.40580e+03,0.28456e+03,0.35000e+02 /) - kbo(:, 3,26, 1) = (/ & - & 0.24702e+02,0.29704e+03,0.40570e+03,0.28445e+03,0.35000e+02 /) - kbo(:, 4,26, 1) = (/ & - & 0.24693e+02,0.29689e+03,0.40562e+03,0.28435e+03,0.35000e+02 /) - kbo(:, 5,26, 1) = (/ & - & 0.24684e+02,0.29668e+03,0.40554e+03,0.28427e+03,0.35000e+02 /) - kbo(:, 1,27, 1) = (/ & - & 0.24689e+02,0.29713e+03,0.40558e+03,0.28431e+03,0.35000e+02 /) - kbo(:, 2,27, 1) = (/ & - & 0.24679e+02,0.29709e+03,0.40550e+03,0.28422e+03,0.35000e+02 /) - kbo(:, 3,27, 1) = (/ & - & 0.24671e+02,0.29699e+03,0.40542e+03,0.28423e+03,0.35000e+02 /) - kbo(:, 4,27, 1) = (/ & - & 0.24664e+02,0.29683e+03,0.40535e+03,0.28405e+03,0.35000e+02 /) - kbo(:, 5,27, 1) = (/ & - & 0.24657e+02,0.29660e+03,0.40529e+03,0.28399e+03,0.35000e+02 /) - kbo(:, 1,28, 1) = (/ & - & 0.24660e+02,0.29710e+03,0.40532e+03,0.28404e+03,0.35000e+02 /) - kbo(:, 2,28, 1) = (/ & - & 0.24653e+02,0.29706e+03,0.40525e+03,0.28395e+03,0.35000e+02 /) - kbo(:, 3,28, 1) = (/ & - & 0.24646e+02,0.29694e+03,0.40519e+03,0.28389e+03,0.35000e+02 /) - kbo(:, 4,28, 1) = (/ & - & 0.24640e+02,0.29676e+03,0.40514e+03,0.28383e+03,0.35000e+02 /) - kbo(:, 5,28, 1) = (/ & - & 0.24635e+02,0.29651e+03,0.40509e+03,0.28376e+03,0.35000e+02 /) - kbo(:, 1,29, 1) = (/ & - & 0.24637e+02,0.29708e+03,0.40511e+03,0.28380e+03,0.35000e+02 /) - kbo(:, 2,29, 1) = (/ & - & 0.24631e+02,0.29702e+03,0.40505e+03,0.28374e+03,0.35000e+02 /) - kbo(:, 3,29, 1) = (/ & - & 0.24626e+02,0.29689e+03,0.40500e+03,0.28368e+03,0.35000e+02 /) - kbo(:, 4,29, 1) = (/ & - & 0.24621e+02,0.29669e+03,0.40496e+03,0.28364e+03,0.35000e+02 /) - kbo(:, 5,29, 1) = (/ & - & 0.24617e+02,0.29643e+03,0.40492e+03,0.28359e+03,0.35000e+02 /) - kbo(:, 1,30, 1) = (/ & - & 0.24619e+02,0.29706e+03,0.40494e+03,0.28360e+03,0.35000e+02 /) - kbo(:, 2,30, 1) = (/ & - & 0.24614e+02,0.29698e+03,0.40489e+03,0.28355e+03,0.35000e+02 /) - kbo(:, 3,30, 1) = (/ & - & 0.24610e+02,0.29683e+03,0.40485e+03,0.28351e+03,0.35000e+02 /) - kbo(:, 4,30, 1) = (/ & - & 0.24606e+02,0.29662e+03,0.40482e+03,0.28347e+03,0.35000e+02 /) - kbo(:, 5,30, 1) = (/ & - & 0.24603e+02,0.29634e+03,0.40479e+03,0.28344e+03,0.35000e+02 /) - kbo(:, 1,31, 1) = (/ & - & 0.24604e+02,0.29704e+03,0.40480e+03,0.28345e+03,0.35000e+02 /) - kbo(:, 2,31, 1) = (/ & - & 0.24600e+02,0.29694e+03,0.40477e+03,0.28341e+03,0.35000e+02 /) - kbo(:, 3,31, 1) = (/ & - & 0.24597e+02,0.29678e+03,0.40473e+03,0.28338e+03,0.35000e+02 /) - kbo(:, 4,31, 1) = (/ & - & 0.24594e+02,0.29655e+03,0.40471e+03,0.28336e+03,0.35000e+02 /) - kbo(:, 5,31, 1) = (/ & - & 0.24591e+02,0.29625e+03,0.40468e+03,0.28332e+03,0.35000e+02 /) - kbo(:, 1,32, 1) = (/ & - & 0.24592e+02,0.29701e+03,0.40469e+03,0.28333e+03,0.35000e+02 /) - kbo(:, 2,32, 1) = (/ & - & 0.24589e+02,0.29689e+03,0.40466e+03,0.28330e+03,0.35000e+02 /) - kbo(:, 3,32, 1) = (/ & - & 0.24586e+02,0.29672e+03,0.40464e+03,0.28328e+03,0.35000e+02 /) - kbo(:, 4,32, 1) = (/ & - & 0.24584e+02,0.29647e+03,0.40461e+03,0.28324e+03,0.35000e+02 /) - kbo(:, 5,32, 1) = (/ & - & 0.24582e+02,0.29615e+03,0.40459e+03,0.28325e+03,0.35000e+02 /) - kbo(:, 1,33, 1) = (/ & - & 0.24582e+02,0.29698e+03,0.40460e+03,0.28323e+03,0.35000e+02 /) - kbo(:, 2,33, 1) = (/ & - & 0.24580e+02,0.29685e+03,0.40458e+03,0.28321e+03,0.35000e+02 /) - kbo(:, 3,33, 1) = (/ & - & 0.24578e+02,0.29665e+03,0.40456e+03,0.28318e+03,0.35000e+02 /) - kbo(:, 4,33, 1) = (/ & - & 0.24576e+02,0.29639e+03,0.40454e+03,0.28317e+03,0.35000e+02 /) - kbo(:, 5,33, 1) = (/ & - & 0.24574e+02,0.29605e+03,0.40452e+03,0.28315e+03,0.35000e+02 /) - kbo(:, 1,34, 1) = (/ & - & 0.24574e+02,0.29695e+03,0.40453e+03,0.28315e+03,0.35000e+02 /) - kbo(:, 2,34, 1) = (/ & - & 0.24572e+02,0.29680e+03,0.40451e+03,0.28313e+03,0.35000e+02 /) - kbo(:, 3,34, 1) = (/ & - & 0.24571e+02,0.29659e+03,0.40449e+03,0.28312e+03,0.35000e+02 /) - kbo(:, 4,34, 1) = (/ & - & 0.24569e+02,0.29631e+03,0.40448e+03,0.28310e+03,0.35000e+02 /) - kbo(:, 5,34, 1) = (/ & - & 0.24568e+02,0.29596e+03,0.40447e+03,0.28308e+03,0.35000e+02 /) - kbo(:, 1,35, 1) = (/ & - & 0.24568e+02,0.29693e+03,0.40447e+03,0.28309e+03,0.35000e+02 /) - kbo(:, 2,35, 1) = (/ & - & 0.24567e+02,0.29678e+03,0.40446e+03,0.28308e+03,0.35000e+02 /) - kbo(:, 3,35, 1) = (/ & - & 0.24565e+02,0.29656e+03,0.40444e+03,0.28306e+03,0.35000e+02 /) - kbo(:, 4,35, 1) = (/ & - & 0.24564e+02,0.29627e+03,0.40443e+03,0.28305e+03,0.35000e+02 /) - kbo(:, 5,35, 1) = (/ & - & 0.24563e+02,0.29590e+03,0.40442e+03,0.28304e+03,0.35000e+02 /) - kbo(:, 1,36, 1) = (/ & - & 0.24563e+02,0.29692e+03,0.40443e+03,0.28305e+03,0.35000e+02 /) - kbo(:, 2,36, 1) = (/ & - & 0.24562e+02,0.29677e+03,0.40442e+03,0.28304e+03,0.35000e+02 /) - kbo(:, 3,36, 1) = (/ & - & 0.24561e+02,0.29655e+03,0.40440e+03,0.28301e+03,0.35000e+02 /) - kbo(:, 4,36, 1) = (/ & - & 0.24560e+02,0.29626e+03,0.40440e+03,0.28302e+03,0.35000e+02 /) - kbo(:, 5,36, 1) = (/ & - & 0.24559e+02,0.29589e+03,0.40439e+03,0.28301e+03,0.35000e+02 /) - kbo(:, 1,37, 1) = (/ & - & 0.24560e+02,0.29693e+03,0.40439e+03,0.28301e+03,0.35000e+02 /) - kbo(:, 2,37, 1) = (/ & - & 0.24559e+02,0.29679e+03,0.40438e+03,0.28299e+03,0.35000e+02 /) - kbo(:, 3,37, 1) = (/ & - & 0.24558e+02,0.29658e+03,0.40437e+03,0.28299e+03,0.35000e+02 /) - kbo(:, 4,37, 1) = (/ & - & 0.24557e+02,0.29630e+03,0.40437e+03,0.28297e+03,0.35000e+02 /) - kbo(:, 5,37, 1) = (/ & - & 0.24556e+02,0.29594e+03,0.40436e+03,0.28297e+03,0.35000e+02 /) - kbo(:, 1,38, 1) = (/ & - & 0.24557e+02,0.29695e+03,0.40436e+03,0.28297e+03,0.35000e+02 /) - kbo(:, 2,38, 1) = (/ & - & 0.24556e+02,0.29681e+03,0.40436e+03,0.28296e+03,0.35000e+02 /) - kbo(:, 3,38, 1) = (/ & - & 0.24555e+02,0.29661e+03,0.40435e+03,0.28297e+03,0.35000e+02 /) - kbo(:, 4,38, 1) = (/ & - & 0.24554e+02,0.29634e+03,0.40434e+03,0.28296e+03,0.35000e+02 /) - kbo(:, 5,38, 1) = (/ & - & 0.24554e+02,0.29599e+03,0.40434e+03,0.28294e+03,0.35000e+02 /) - kbo(:, 1,39, 1) = (/ & - & 0.24554e+02,0.29696e+03,0.40434e+03,0.28295e+03,0.35000e+02 /) - kbo(:, 2,39, 1) = (/ & - & 0.24553e+02,0.29683e+03,0.40433e+03,0.28294e+03,0.35000e+02 /) - kbo(:, 3,39, 1) = (/ & - & 0.24553e+02,0.29664e+03,0.40433e+03,0.28293e+03,0.35000e+02 /) - kbo(:, 4,39, 1) = (/ & - & 0.24552e+02,0.29638e+03,0.40432e+03,0.28292e+03,0.35000e+02 /) - kbo(:, 5,39, 1) = (/ & - & 0.24552e+02,0.29604e+03,0.40432e+03,0.28292e+03,0.35000e+02 /) - kbo(:, 1,40, 1) = (/ & - & 0.24552e+02,0.29698e+03,0.40432e+03,0.28292e+03,0.35000e+02 /) - kbo(:, 2,40, 1) = (/ & - & 0.24551e+02,0.29687e+03,0.40432e+03,0.28293e+03,0.35000e+02 /) - kbo(:, 3,40, 1) = (/ & - & 0.24551e+02,0.29669e+03,0.40431e+03,0.28292e+03,0.35000e+02 /) - kbo(:, 4,40, 1) = (/ & - & 0.24550e+02,0.29645e+03,0.40431e+03,0.28291e+03,0.35000e+02 /) - kbo(:, 5,40, 1) = (/ & - & 0.24550e+02,0.29613e+03,0.40430e+03,0.28291e+03,0.35000e+02 /) - kbo(:, 1,41, 1) = (/ & - & 0.24550e+02,0.29699e+03,0.40431e+03,0.28290e+03,0.35000e+02 /) - kbo(:, 2,41, 1) = (/ & - & 0.24550e+02,0.29690e+03,0.40430e+03,0.28291e+03,0.35000e+02 /) - kbo(:, 3,41, 1) = (/ & - & 0.24549e+02,0.29674e+03,0.40430e+03,0.28289e+03,0.35000e+02 /) - kbo(:, 4,41, 1) = (/ & - & 0.24549e+02,0.29651e+03,0.40429e+03,0.28290e+03,0.35000e+02 /) - kbo(:, 5,41, 1) = (/ & - & 0.24549e+02,0.29622e+03,0.40429e+03,0.28289e+03,0.35000e+02 /) - kbo(:, 1,42, 1) = (/ & - & 0.24549e+02,0.29700e+03,0.40429e+03,0.28289e+03,0.35000e+02 /) - kbo(:, 2,42, 1) = (/ & - & 0.24549e+02,0.29693e+03,0.40429e+03,0.28289e+03,0.35000e+02 /) - kbo(:, 3,42, 1) = (/ & - & 0.24548e+02,0.29679e+03,0.40429e+03,0.28289e+03,0.35000e+02 /) - kbo(:, 4,42, 1) = (/ & - & 0.24548e+02,0.29658e+03,0.40428e+03,0.28289e+03,0.35000e+02 /) - kbo(:, 5,42, 1) = (/ & - & 0.24547e+02,0.29630e+03,0.40428e+03,0.28288e+03,0.35000e+02 /) - kbo(:, 1,43, 1) = (/ & - & 0.24548e+02,0.29701e+03,0.40428e+03,0.28288e+03,0.35000e+02 /) - kbo(:, 2,43, 1) = (/ & - & 0.24547e+02,0.29696e+03,0.40428e+03,0.28288e+03,0.35000e+02 /) - kbo(:, 3,43, 1) = (/ & - & 0.24547e+02,0.29684e+03,0.40428e+03,0.28288e+03,0.35000e+02 /) - kbo(:, 4,43, 1) = (/ & - & 0.24547e+02,0.29665e+03,0.40427e+03,0.28288e+03,0.35000e+02 /) - kbo(:, 5,43, 1) = (/ & - & 0.24547e+02,0.29639e+03,0.40427e+03,0.28288e+03,0.35000e+02 /) - kbo(:, 1,44, 1) = (/ & - & 0.24547e+02,0.29702e+03,0.40427e+03,0.28287e+03,0.35000e+02 /) - kbo(:, 2,44, 1) = (/ & - & 0.24547e+02,0.29698e+03,0.40427e+03,0.28287e+03,0.35000e+02 /) - kbo(:, 3,44, 1) = (/ & - & 0.24546e+02,0.29688e+03,0.40427e+03,0.28287e+03,0.35000e+02 /) - kbo(:, 4,44, 1) = (/ & - & 0.24546e+02,0.29672e+03,0.40427e+03,0.28287e+03,0.35000e+02 /) - kbo(:, 5,44, 1) = (/ & - & 0.24546e+02,0.29649e+03,0.40426e+03,0.28286e+03,0.35000e+02 /) - kbo(:, 1,45, 1) = (/ & - & 0.24546e+02,0.29701e+03,0.40427e+03,0.28287e+03,0.35000e+02 /) - kbo(:, 2,45, 1) = (/ & - & 0.24546e+02,0.29700e+03,0.40426e+03,0.28287e+03,0.35000e+02 /) - kbo(:, 3,45, 1) = (/ & - & 0.24546e+02,0.29692e+03,0.40426e+03,0.28286e+03,0.35000e+02 /) - kbo(:, 4,45, 1) = (/ & - & 0.24545e+02,0.29678e+03,0.40426e+03,0.28286e+03,0.35000e+02 /) - kbo(:, 5,45, 1) = (/ & - & 0.24545e+02,0.29657e+03,0.40426e+03,0.28286e+03,0.35000e+02 /) - kbo(:, 1,46, 1) = (/ & - & 0.24545e+02,0.29699e+03,0.40426e+03,0.28287e+03,0.35000e+02 /) - kbo(:, 2,46, 1) = (/ & - & 0.24545e+02,0.29701e+03,0.40426e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 3,46, 1) = (/ & - & 0.24545e+02,0.29696e+03,0.40426e+03,0.28286e+03,0.35000e+02 /) - kbo(:, 4,46, 1) = (/ & - & 0.24545e+02,0.29684e+03,0.40425e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 5,46, 1) = (/ & - & 0.24545e+02,0.29665e+03,0.40425e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 1,47, 1) = (/ & - & 0.24545e+02,0.29696e+03,0.40425e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 2,47, 1) = (/ & - & 0.24545e+02,0.29701e+03,0.40425e+03,0.28286e+03,0.35000e+02 /) - kbo(:, 3,47, 1) = (/ & - & 0.24544e+02,0.29699e+03,0.40425e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 4,47, 1) = (/ & - & 0.24544e+02,0.29690e+03,0.40425e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 5,47, 1) = (/ & - & 0.24544e+02,0.29674e+03,0.40425e+03,0.28286e+03,0.35000e+02 /) - kbo(:, 1,48, 1) = (/ & - & 0.24544e+02,0.29691e+03,0.40425e+03,0.28286e+03,0.35000e+02 /) - kbo(:, 2,48, 1) = (/ & - & 0.24544e+02,0.29700e+03,0.40425e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 3,48, 1) = (/ & - & 0.24544e+02,0.29701e+03,0.40425e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 4,48, 1) = (/ & - & 0.24544e+02,0.29694e+03,0.40425e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 5,48, 1) = (/ & - & 0.24544e+02,0.29681e+03,0.40425e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 1,49, 1) = (/ & - & 0.24544e+02,0.29685e+03,0.40425e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 2,49, 1) = (/ & - & 0.24544e+02,0.29698e+03,0.40425e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 3,49, 1) = (/ & - & 0.24544e+02,0.29701e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 4,49, 1) = (/ & - & 0.24544e+02,0.29697e+03,0.40424e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 5,49, 1) = (/ & - & 0.24544e+02,0.29687e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 1,50, 1) = (/ & - & 0.24544e+02,0.29678e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 2,50, 1) = (/ & - & 0.24544e+02,0.29694e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 3,50, 1) = (/ & - & 0.24543e+02,0.29701e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 4,50, 1) = (/ & - & 0.24543e+02,0.29700e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 5,50, 1) = (/ & - & 0.24543e+02,0.29692e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 1,51, 1) = (/ & - & 0.24543e+02,0.29670e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 2,51, 1) = (/ & - & 0.24543e+02,0.29689e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 3,51, 1) = (/ & - & 0.24543e+02,0.29699e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 4,51, 1) = (/ & - & 0.24543e+02,0.29701e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 5,51, 1) = (/ & - & 0.24543e+02,0.29695e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 1,52, 1) = (/ & - & 0.24543e+02,0.29660e+03,0.40424e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 2,52, 1) = (/ & - & 0.24543e+02,0.29684e+03,0.40424e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 3,52, 1) = (/ & - & 0.24543e+02,0.29697e+03,0.40424e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 4,52, 1) = (/ & - & 0.24543e+02,0.29701e+03,0.40424e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 5,52, 1) = (/ & - & 0.24543e+02,0.29698e+03,0.40424e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 1,53, 1) = (/ & - & 0.24543e+02,0.29648e+03,0.40424e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 2,53, 1) = (/ & - & 0.24543e+02,0.29676e+03,0.40424e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 3,53, 1) = (/ & - & 0.24543e+02,0.29693e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 4,53, 1) = (/ & - & 0.24543e+02,0.29701e+03,0.40424e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 5,53, 1) = (/ & - & 0.24543e+02,0.29700e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 1,54, 1) = (/ & - & 0.24543e+02,0.29635e+03,0.40424e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 2,54, 1) = (/ & - & 0.24543e+02,0.29668e+03,0.40424e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 3,54, 1) = (/ & - & 0.24543e+02,0.29688e+03,0.40424e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 4,54, 1) = (/ & - & 0.24543e+02,0.29699e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 5,54, 1) = (/ & - & 0.24543e+02,0.29701e+03,0.40423e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 1,55, 1) = (/ & - & 0.24543e+02,0.29622e+03,0.40424e+03,0.28285e+03,0.35000e+02 /) - kbo(:, 2,55, 1) = (/ & - & 0.24543e+02,0.29659e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 3,55, 1) = (/ & - & 0.24543e+02,0.29683e+03,0.40423e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 4,55, 1) = (/ & - & 0.24543e+02,0.29696e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 5,55, 1) = (/ & - & 0.24543e+02,0.29701e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 1,56, 1) = (/ & - & 0.24543e+02,0.29607e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 2,56, 1) = (/ & - & 0.24543e+02,0.29649e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 3,56, 1) = (/ & - & 0.24543e+02,0.29676e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 4,56, 1) = (/ & - & 0.24542e+02,0.29693e+03,0.40423e+03,0.28282e+03,0.35000e+02 /) - kbo(:, 5,56, 1) = (/ & - & 0.24542e+02,0.29700e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 1,57, 1) = (/ & - & 0.24543e+02,0.29591e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 2,57, 1) = (/ & - & 0.24542e+02,0.29637e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 3,57, 1) = (/ & - & 0.24542e+02,0.29669e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 4,57, 1) = (/ & - & 0.24542e+02,0.29689e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 5,57, 1) = (/ & - & 0.24542e+02,0.29699e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 1,58, 1) = (/ & - & 0.24542e+02,0.29574e+03,0.40423e+03,0.28282e+03,0.35000e+02 /) - kbo(:, 2,58, 1) = (/ & - & 0.24542e+02,0.29624e+03,0.40423e+03,0.28282e+03,0.35000e+02 /) - kbo(:, 3,58, 1) = (/ & - & 0.24542e+02,0.29660e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 4,58, 1) = (/ & - & 0.24542e+02,0.29684e+03,0.40423e+03,0.28284e+03,0.35000e+02 /) - kbo(:, 5,58, 1) = (/ & - & 0.24542e+02,0.29697e+03,0.40423e+03,0.28282e+03,0.35000e+02 /) - kbo(:, 1,59, 1) = (/ & - & 0.24542e+02,0.29566e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 2,59, 1) = (/ & - & 0.24542e+02,0.29619e+03,0.40423e+03,0.28282e+03,0.35000e+02 /) - kbo(:, 3,59, 1) = (/ & - & 0.24542e+02,0.29657e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 4,59, 1) = (/ & - & 0.24542e+02,0.29682e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 5,59, 1) = (/ & - & 0.24542e+02,0.29696e+03,0.40423e+03,0.28283e+03,0.35000e+02 /) - kbo(:, 1,13, 2) = (/ & - & 0.10177e+03,0.32761e+03,0.45575e+03,0.31335e+03,0.71839e+02 /) - kbo(:, 2,13, 2) = (/ & - & 0.10099e+03,0.32713e+03,0.45383e+03,0.31125e+03,0.71839e+02 /) - kbo(:, 3,13, 2) = (/ & - & 0.10031e+03,0.32663e+03,0.45216e+03,0.30943e+03,0.71839e+02 /) - kbo(:, 4,13, 2) = (/ & - & 0.99721e+02,0.32612e+03,0.45071e+03,0.30785e+03,0.71839e+02 /) - kbo(:, 5,13, 2) = (/ & - & 0.99204e+02,0.32558e+03,0.44942e+03,0.30646e+03,0.71839e+02 /) - kbo(:, 1,14, 2) = (/ & - & 0.99803e+02,0.32613e+03,0.45091e+03,0.30807e+03,0.71839e+02 /) - kbo(:, 2,14, 2) = (/ & - & 0.99169e+02,0.32574e+03,0.44934e+03,0.30636e+03,0.71839e+02 /) - kbo(:, 3,14, 2) = (/ & - & 0.98622e+02,0.32534e+03,0.44797e+03,0.30489e+03,0.71839e+02 /) - kbo(:, 4,14, 2) = (/ & - & 0.98146e+02,0.32491e+03,0.44677e+03,0.30362e+03,0.71839e+02 /) - kbo(:, 5,14, 2) = (/ & - & 0.97728e+02,0.32444e+03,0.44571e+03,0.30248e+03,0.71839e+02 /) - kbo(:, 1,15, 2) = (/ & - & 0.98198e+02,0.32493e+03,0.44690e+03,0.30375e+03,0.71839e+02 /) - kbo(:, 2,15, 2) = (/ & - & 0.97687e+02,0.32462e+03,0.44560e+03,0.30237e+03,0.71839e+02 /) - kbo(:, 3,15, 2) = (/ & - & 0.97245e+02,0.32429e+03,0.44448e+03,0.30119e+03,0.71839e+02 /) - kbo(:, 4,15, 2) = (/ & - & 0.96861e+02,0.32392e+03,0.44350e+03,0.30014e+03,0.71839e+02 /) - kbo(:, 5,15, 2) = (/ & - & 0.96523e+02,0.32350e+03,0.44263e+03,0.29923e+03,0.71839e+02 /) - kbo(:, 1,16, 2) = (/ & - & 0.96892e+02,0.32395e+03,0.44358e+03,0.30023e+03,0.71839e+02 /) - kbo(:, 2,16, 2) = (/ & - & 0.96480e+02,0.32371e+03,0.44252e+03,0.29912e+03,0.71839e+02 /) - kbo(:, 3,16, 2) = (/ & - & 0.96125e+02,0.32343e+03,0.44161e+03,0.29817e+03,0.71839e+02 /) - kbo(:, 4,16, 2) = (/ & - & 0.95814e+02,0.32311e+03,0.44081e+03,0.29733e+03,0.71839e+02 /) - kbo(:, 5,16, 2) = (/ & - & 0.95541e+02,0.32273e+03,0.44010e+03,0.29661e+03,0.71839e+02 /) - kbo(:, 1,17, 2) = (/ & - & 0.95833e+02,0.32316e+03,0.44086e+03,0.29737e+03,0.71839e+02 /) - kbo(:, 2,17, 2) = (/ & - & 0.95501e+02,0.32297e+03,0.44000e+03,0.29648e+03,0.71839e+02 /) - kbo(:, 3,17, 2) = (/ & - & 0.95214e+02,0.32274e+03,0.43925e+03,0.29569e+03,0.71839e+02 /) - kbo(:, 4,17, 2) = (/ & - & 0.94964e+02,0.32245e+03,0.43860e+03,0.29502e+03,0.71839e+02 /) - kbo(:, 5,17, 2) = (/ & - & 0.94743e+02,0.32210e+03,0.43803e+03,0.29442e+03,0.71839e+02 /) - kbo(:, 1,18, 2) = (/ & - & 0.94974e+02,0.32251e+03,0.43863e+03,0.29504e+03,0.71839e+02 /) - kbo(:, 2,18, 2) = (/ & - & 0.94707e+02,0.32236e+03,0.43793e+03,0.29432e+03,0.71839e+02 /) - kbo(:, 3,18, 2) = (/ & - & 0.94475e+02,0.32217e+03,0.43733e+03,0.29369e+03,0.71839e+02 /) - kbo(:, 4,18, 2) = (/ & - & 0.94272e+02,0.32191e+03,0.43680e+03,0.29315e+03,0.71839e+02 /) - kbo(:, 5,18, 2) = (/ & - & 0.94094e+02,0.32158e+03,0.43633e+03,0.29267e+03,0.71839e+02 /) - kbo(:, 1,19, 2) = (/ & - & 0.94277e+02,0.32199e+03,0.43681e+03,0.29316e+03,0.71839e+02 /) - kbo(:, 2,19, 2) = (/ & - & 0.94061e+02,0.32187e+03,0.43624e+03,0.29258e+03,0.71839e+02 /) - kbo(:, 3,19, 2) = (/ & - & 0.93874e+02,0.32170e+03,0.43575e+03,0.29207e+03,0.71839e+02 /) - kbo(:, 4,19, 2) = (/ & - & 0.93711e+02,0.32146e+03,0.43532e+03,0.29164e+03,0.71839e+02 /) - kbo(:, 5,19, 2) = (/ & - & 0.93566e+02,0.32115e+03,0.43494e+03,0.29125e+03,0.71839e+02 /) - kbo(:, 1,20, 2) = (/ & - & 0.93708e+02,0.32157e+03,0.43531e+03,0.29163e+03,0.71839e+02 /) - kbo(:, 2,20, 2) = (/ & - & 0.93534e+02,0.32147e+03,0.43485e+03,0.29117e+03,0.71839e+02 /) - kbo(:, 3,20, 2) = (/ & - & 0.93383e+02,0.32132e+03,0.43445e+03,0.29076e+03,0.71839e+02 /) - kbo(:, 4,20, 2) = (/ & - & 0.93251e+02,0.32109e+03,0.43411e+03,0.29041e+03,0.71839e+02 /) - kbo(:, 5,20, 2) = (/ & - & 0.93135e+02,0.32079e+03,0.43380e+03,0.29010e+03,0.71839e+02 /) - kbo(:, 1,21, 2) = (/ & - & 0.93246e+02,0.32122e+03,0.43409e+03,0.29040e+03,0.71839e+02 /) - kbo(:, 2,21, 2) = (/ & - & 0.93106e+02,0.32114e+03,0.43372e+03,0.29003e+03,0.71839e+02 /) - kbo(:, 3,21, 2) = (/ & - & 0.92985e+02,0.32100e+03,0.43340e+03,0.28970e+03,0.71839e+02 /) - kbo(:, 4,21, 2) = (/ & - & 0.92878e+02,0.32079e+03,0.43311e+03,0.28941e+03,0.71839e+02 /) - kbo(:, 5,21, 2) = (/ & - & 0.92784e+02,0.32049e+03,0.43286e+03,0.28917e+03,0.71839e+02 /) - kbo(:, 1,22, 2) = (/ & - & 0.92863e+02,0.32094e+03,0.43307e+03,0.28938e+03,0.71839e+02 /) - kbo(:, 2,22, 2) = (/ & - & 0.92751e+02,0.32087e+03,0.43278e+03,0.28908e+03,0.71839e+02 /) - kbo(:, 3,22, 2) = (/ & - & 0.92655e+02,0.32073e+03,0.43252e+03,0.28882e+03,0.71839e+02 /) - kbo(:, 4,22, 2) = (/ & - & 0.92569e+02,0.32051e+03,0.43229e+03,0.28860e+03,0.71839e+02 /) - kbo(:, 5,22, 2) = (/ & - & 0.92494e+02,0.32022e+03,0.43209e+03,0.28840e+03,0.71839e+02 /) - kbo(:, 1,23, 2) = (/ & - & 0.92553e+02,0.32072e+03,0.43225e+03,0.28855e+03,0.71839e+02 /) - kbo(:, 2,23, 2) = (/ & - & 0.92465e+02,0.32064e+03,0.43201e+03,0.28832e+03,0.71839e+02 /) - kbo(:, 3,23, 2) = (/ & - & 0.92387e+02,0.32050e+03,0.43180e+03,0.28811e+03,0.71839e+02 /) - kbo(:, 4,23, 2) = (/ & - & 0.92319e+02,0.32029e+03,0.43162e+03,0.28793e+03,0.71839e+02 /) - kbo(:, 5,23, 2) = (/ & - & 0.92259e+02,0.31998e+03,0.43146e+03,0.28778e+03,0.71839e+02 /) - kbo(:, 1,24, 2) = (/ & - & 0.92303e+02,0.32053e+03,0.43158e+03,0.28789e+03,0.71839e+02 /) - kbo(:, 2,24, 2) = (/ & - & 0.92233e+02,0.32046e+03,0.43139e+03,0.28770e+03,0.71839e+02 /) - kbo(:, 3,24, 2) = (/ & - & 0.92171e+02,0.32031e+03,0.43122e+03,0.28754e+03,0.71839e+02 /) - kbo(:, 4,24, 2) = (/ & - & 0.92117e+02,0.32009e+03,0.43108e+03,0.28740e+03,0.71839e+02 /) - kbo(:, 5,24, 2) = (/ & - & 0.92068e+02,0.31978e+03,0.43095e+03,0.28727e+03,0.71839e+02 /) - kbo(:, 1,25, 2) = (/ & - & 0.92101e+02,0.32038e+03,0.43103e+03,0.28736e+03,0.71839e+02 /) - kbo(:, 2,25, 2) = (/ & - & 0.92045e+02,0.32030e+03,0.43088e+03,0.28721e+03,0.71839e+02 /) - kbo(:, 3,25, 2) = (/ & - & 0.91996e+02,0.32015e+03,0.43075e+03,0.28708e+03,0.71839e+02 /) - kbo(:, 4,25, 2) = (/ & - & 0.91952e+02,0.31991e+03,0.43064e+03,0.28696e+03,0.71839e+02 /) - kbo(:, 5,25, 2) = (/ & - & 0.91914e+02,0.31959e+03,0.43053e+03,0.28684e+03,0.71839e+02 /) - kbo(:, 1,26, 2) = (/ & - & 0.91937e+02,0.32025e+03,0.43059e+03,0.28693e+03,0.71839e+02 /) - kbo(:, 2,26, 2) = (/ & - & 0.91892e+02,0.32016e+03,0.43047e+03,0.28680e+03,0.71839e+02 /) - kbo(:, 3,26, 2) = (/ & - & 0.91853e+02,0.32000e+03,0.43037e+03,0.28670e+03,0.71839e+02 /) - kbo(:, 4,26, 2) = (/ & - & 0.91819e+02,0.31975e+03,0.43028e+03,0.28661e+03,0.71839e+02 /) - kbo(:, 5,26, 2) = (/ & - & 0.91788e+02,0.31942e+03,0.43019e+03,0.28653e+03,0.71839e+02 /) - kbo(:, 1,27, 2) = (/ & - & 0.91805e+02,0.32015e+03,0.43024e+03,0.28658e+03,0.71839e+02 /) - kbo(:, 2,27, 2) = (/ & - & 0.91770e+02,0.32005e+03,0.43014e+03,0.28648e+03,0.71839e+02 /) - kbo(:, 3,27, 2) = (/ & - & 0.91738e+02,0.31986e+03,0.43006e+03,0.28630e+03,0.71839e+02 /) - kbo(:, 4,27, 2) = (/ & - & 0.91711e+02,0.31960e+03,0.42998e+03,0.28633e+03,0.71839e+02 /) - kbo(:, 5,27, 2) = (/ & - & 0.91687e+02,0.31925e+03,0.42992e+03,0.28626e+03,0.71839e+02 /) - kbo(:, 1,28, 2) = (/ & - & 0.91698e+02,0.32005e+03,0.42995e+03,0.28628e+03,0.71839e+02 /) - kbo(:, 2,28, 2) = (/ & - & 0.91670e+02,0.31994e+03,0.42987e+03,0.28622e+03,0.71839e+02 /) - kbo(:, 3,28, 2) = (/ & - & 0.91646e+02,0.31974e+03,0.42981e+03,0.28615e+03,0.71839e+02 /) - kbo(:, 4,28, 2) = (/ & - & 0.91624e+02,0.31946e+03,0.42975e+03,0.28609e+03,0.71839e+02 /) - kbo(:, 5,28, 2) = (/ & - & 0.91604e+02,0.31910e+03,0.42970e+03,0.28605e+03,0.71839e+02 /) - kbo(:, 1,29, 2) = (/ & - & 0.91613e+02,0.31997e+03,0.42972e+03,0.28605e+03,0.71839e+02 /) - kbo(:, 2,29, 2) = (/ & - & 0.91591e+02,0.31984e+03,0.42966e+03,0.28600e+03,0.71839e+02 /) - kbo(:, 3,29, 2) = (/ & - & 0.91571e+02,0.31963e+03,0.42960e+03,0.28595e+03,0.71839e+02 /) - kbo(:, 4,29, 2) = (/ & - & 0.91554e+02,0.31933e+03,0.42956e+03,0.28590e+03,0.71839e+02 /) - kbo(:, 5,29, 2) = (/ & - & 0.91538e+02,0.31895e+03,0.42952e+03,0.28586e+03,0.71839e+02 /) - kbo(:, 1,30, 2) = (/ & - & 0.91544e+02,0.31990e+03,0.42953e+03,0.28589e+03,0.71839e+02 /) - kbo(:, 2,30, 2) = (/ & - & 0.91526e+02,0.31975e+03,0.42948e+03,0.28584e+03,0.71839e+02 /) - kbo(:, 3,30, 2) = (/ & - & 0.91511e+02,0.31952e+03,0.42944e+03,0.28580e+03,0.71839e+02 /) - kbo(:, 4,30, 2) = (/ & - & 0.91497e+02,0.31920e+03,0.42940e+03,0.28577e+03,0.71839e+02 /) - kbo(:, 5,30, 2) = (/ & - & 0.91484e+02,0.31880e+03,0.42937e+03,0.28573e+03,0.71839e+02 /) - kbo(:, 1,31, 2) = (/ & - & 0.91488e+02,0.31983e+03,0.42938e+03,0.28574e+03,0.71839e+02 /) - kbo(:, 2,31, 2) = (/ & - & 0.91474e+02,0.31966e+03,0.42934e+03,0.28571e+03,0.71839e+02 /) - kbo(:, 3,31, 2) = (/ & - & 0.91462e+02,0.31941e+03,0.42931e+03,0.28567e+03,0.71839e+02 /) - kbo(:, 4,31, 2) = (/ & - & 0.91451e+02,0.31908e+03,0.42928e+03,0.28564e+03,0.71839e+02 /) - kbo(:, 5,31, 2) = (/ & - & 0.91441e+02,0.31866e+03,0.42925e+03,0.28562e+03,0.71839e+02 /) - kbo(:, 1,32, 2) = (/ & - & 0.91443e+02,0.31976e+03,0.42926e+03,0.28562e+03,0.71839e+02 /) - kbo(:, 2,32, 2) = (/ & - & 0.91432e+02,0.31958e+03,0.42923e+03,0.28559e+03,0.71839e+02 /) - kbo(:, 3,32, 2) = (/ & - & 0.91423e+02,0.31930e+03,0.42920e+03,0.28557e+03,0.71839e+02 /) - kbo(:, 4,32, 2) = (/ & - & 0.91414e+02,0.31895e+03,0.42918e+03,0.28555e+03,0.71839e+02 /) - kbo(:, 5,32, 2) = (/ & - & 0.91406e+02,0.31851e+03,0.42916e+03,0.28551e+03,0.71839e+02 /) - kbo(:, 1,33, 2) = (/ & - & 0.91407e+02,0.31970e+03,0.42916e+03,0.28553e+03,0.71839e+02 /) - kbo(:, 2,33, 2) = (/ & - & 0.91399e+02,0.31949e+03,0.42914e+03,0.28551e+03,0.71839e+02 /) - kbo(:, 3,33, 2) = (/ & - & 0.91391e+02,0.31920e+03,0.42912e+03,0.28549e+03,0.71839e+02 /) - kbo(:, 4,33, 2) = (/ & - & 0.91384e+02,0.31882e+03,0.42910e+03,0.28547e+03,0.71839e+02 /) - kbo(:, 5,33, 2) = (/ & - & 0.91378e+02,0.31837e+03,0.42908e+03,0.28546e+03,0.71839e+02 /) - kbo(:, 1,34, 2) = (/ & - & 0.91379e+02,0.31964e+03,0.42908e+03,0.28546e+03,0.71839e+02 /) - kbo(:, 2,34, 2) = (/ & - & 0.91372e+02,0.31941e+03,0.42906e+03,0.28544e+03,0.71839e+02 /) - kbo(:, 3,34, 2) = (/ & - & 0.91365e+02,0.31910e+03,0.42905e+03,0.28542e+03,0.71839e+02 /) - kbo(:, 4,34, 2) = (/ & - & 0.91360e+02,0.31871e+03,0.42903e+03,0.28541e+03,0.71839e+02 /) - kbo(:, 5,34, 2) = (/ & - & 0.91355e+02,0.31824e+03,0.42902e+03,0.28540e+03,0.71839e+02 /) - kbo(:, 1,35, 2) = (/ & - & 0.91356e+02,0.31960e+03,0.42902e+03,0.28539e+03,0.71839e+02 /) - kbo(:, 2,35, 2) = (/ & - & 0.91350e+02,0.31936e+03,0.42901e+03,0.28538e+03,0.71839e+02 /) - kbo(:, 3,35, 2) = (/ & - & 0.91345e+02,0.31904e+03,0.42899e+03,0.28537e+03,0.71839e+02 /) - kbo(:, 4,35, 2) = (/ & - & 0.91341e+02,0.31863e+03,0.42898e+03,0.28535e+03,0.71839e+02 /) - kbo(:, 5,35, 2) = (/ & - & 0.91337e+02,0.31816e+03,0.42897e+03,0.28535e+03,0.71839e+02 /) - kbo(:, 1,36, 2) = (/ & - & 0.91338e+02,0.31958e+03,0.42897e+03,0.28535e+03,0.71839e+02 /) - kbo(:, 2,36, 2) = (/ & - & 0.91334e+02,0.31934e+03,0.42896e+03,0.28533e+03,0.71839e+02 /) - kbo(:, 3,36, 2) = (/ & - & 0.91330e+02,0.31902e+03,0.42895e+03,0.28533e+03,0.71839e+02 /) - kbo(:, 4,36, 2) = (/ & - & 0.91326e+02,0.31862e+03,0.42894e+03,0.28530e+03,0.71839e+02 /) - kbo(:, 5,36, 2) = (/ & - & 0.91323e+02,0.31814e+03,0.42893e+03,0.28530e+03,0.71839e+02 /) - kbo(:, 1,37, 2) = (/ & - & 0.91324e+02,0.31959e+03,0.42894e+03,0.28531e+03,0.71839e+02 /) - kbo(:, 2,37, 2) = (/ & - & 0.91320e+02,0.31937e+03,0.42893e+03,0.28530e+03,0.71839e+02 /) - kbo(:, 3,37, 2) = (/ & - & 0.91317e+02,0.31906e+03,0.42892e+03,0.28529e+03,0.71839e+02 /) - kbo(:, 4,37, 2) = (/ & - & 0.91314e+02,0.31866e+03,0.42891e+03,0.28529e+03,0.71839e+02 /) - kbo(:, 5,37, 2) = (/ & - & 0.91311e+02,0.31819e+03,0.42890e+03,0.28527e+03,0.71839e+02 /) - kbo(:, 1,38, 2) = (/ & - & 0.91313e+02,0.31961e+03,0.42890e+03,0.28528e+03,0.71839e+02 /) - kbo(:, 2,38, 2) = (/ & - & 0.91310e+02,0.31939e+03,0.42890e+03,0.28528e+03,0.71839e+02 /) - kbo(:, 3,38, 2) = (/ & - & 0.91307e+02,0.31910e+03,0.42889e+03,0.28526e+03,0.71839e+02 /) - kbo(:, 4,38, 2) = (/ & - & 0.91304e+02,0.31871e+03,0.42888e+03,0.28525e+03,0.71839e+02 /) - kbo(:, 5,38, 2) = (/ & - & 0.91302e+02,0.31826e+03,0.42888e+03,0.28525e+03,0.71839e+02 /) - kbo(:, 1,39, 2) = (/ & - & 0.91303e+02,0.31962e+03,0.42888e+03,0.28525e+03,0.71839e+02 /) - kbo(:, 2,39, 2) = (/ & - & 0.91301e+02,0.31942e+03,0.42887e+03,0.28525e+03,0.71839e+02 /) - kbo(:, 3,39, 2) = (/ & - & 0.91298e+02,0.31914e+03,0.42886e+03,0.28525e+03,0.71839e+02 /) - kbo(:, 4,39, 2) = (/ & - & 0.91296e+02,0.31877e+03,0.42886e+03,0.28524e+03,0.71839e+02 /) - kbo(:, 5,39, 2) = (/ & - & 0.91294e+02,0.31832e+03,0.42885e+03,0.28523e+03,0.71839e+02 /) - kbo(:, 1,40, 2) = (/ & - & 0.91296e+02,0.31965e+03,0.42886e+03,0.28524e+03,0.71839e+02 /) - kbo(:, 2,40, 2) = (/ & - & 0.91293e+02,0.31947e+03,0.42885e+03,0.28522e+03,0.71839e+02 /) - kbo(:, 3,40, 2) = (/ & - & 0.91292e+02,0.31921e+03,0.42885e+03,0.28522e+03,0.71839e+02 /) - kbo(:, 4,40, 2) = (/ & - & 0.91290e+02,0.31886e+03,0.42884e+03,0.28522e+03,0.71839e+02 /) - kbo(:, 5,40, 2) = (/ & - & 0.91288e+02,0.31843e+03,0.42884e+03,0.28521e+03,0.71839e+02 /) - kbo(:, 1,41, 2) = (/ & - & 0.91289e+02,0.31968e+03,0.42884e+03,0.28523e+03,0.71839e+02 /) - kbo(:, 2,41, 2) = (/ & - & 0.91288e+02,0.31952e+03,0.42884e+03,0.28521e+03,0.71839e+02 /) - kbo(:, 3,41, 2) = (/ & - & 0.91286e+02,0.31928e+03,0.42883e+03,0.28522e+03,0.71839e+02 /) - kbo(:, 4,41, 2) = (/ & - & 0.91284e+02,0.31895e+03,0.42883e+03,0.28521e+03,0.71839e+02 /) - kbo(:, 5,41, 2) = (/ & - & 0.91283e+02,0.31854e+03,0.42882e+03,0.28521e+03,0.71839e+02 /) - kbo(:, 1,42, 2) = (/ & - & 0.91284e+02,0.31970e+03,0.42883e+03,0.28521e+03,0.71839e+02 /) - kbo(:, 2,42, 2) = (/ & - & 0.91283e+02,0.31957e+03,0.42882e+03,0.28521e+03,0.71839e+02 /) - kbo(:, 3,42, 2) = (/ & - & 0.91281e+02,0.31934e+03,0.42882e+03,0.28520e+03,0.71839e+02 /) - kbo(:, 4,42, 2) = (/ & - & 0.91280e+02,0.31904e+03,0.42882e+03,0.28519e+03,0.71839e+02 /) - kbo(:, 5,42, 2) = (/ & - & 0.91279e+02,0.31865e+03,0.42881e+03,0.28520e+03,0.71839e+02 /) - kbo(:, 1,43, 2) = (/ & - & 0.91280e+02,0.31972e+03,0.42882e+03,0.28520e+03,0.71839e+02 /) - kbo(:, 2,43, 2) = (/ & - & 0.91279e+02,0.31961e+03,0.42881e+03,0.28520e+03,0.71839e+02 /) - kbo(:, 3,43, 2) = (/ & - & 0.91277e+02,0.31942e+03,0.42881e+03,0.28519e+03,0.71839e+02 /) - kbo(:, 4,43, 2) = (/ & - & 0.91276e+02,0.31914e+03,0.42881e+03,0.28518e+03,0.71839e+02 /) - kbo(:, 5,43, 2) = (/ & - & 0.91275e+02,0.31878e+03,0.42880e+03,0.28518e+03,0.71839e+02 /) - kbo(:, 1,44, 2) = (/ & - & 0.91276e+02,0.31974e+03,0.42881e+03,0.28519e+03,0.71839e+02 /) - kbo(:, 2,44, 2) = (/ & - & 0.91275e+02,0.31966e+03,0.42880e+03,0.28519e+03,0.71839e+02 /) - kbo(:, 3,44, 2) = (/ & - & 0.91274e+02,0.31949e+03,0.42880e+03,0.28518e+03,0.71839e+02 /) - kbo(:, 4,44, 2) = (/ & - & 0.91273e+02,0.31924e+03,0.42880e+03,0.28518e+03,0.71839e+02 /) - kbo(:, 5,44, 2) = (/ & - & 0.91273e+02,0.31890e+03,0.42880e+03,0.28518e+03,0.71839e+02 /) - kbo(:, 1,45, 2) = (/ & - & 0.91274e+02,0.31974e+03,0.42880e+03,0.28518e+03,0.71839e+02 /) - kbo(:, 2,45, 2) = (/ & - & 0.91273e+02,0.31969e+03,0.42880e+03,0.28517e+03,0.71839e+02 /) - kbo(:, 3,45, 2) = (/ & - & 0.91272e+02,0.31955e+03,0.42879e+03,0.28518e+03,0.71839e+02 /) - kbo(:, 4,45, 2) = (/ & - & 0.91271e+02,0.31933e+03,0.42879e+03,0.28517e+03,0.71839e+02 /) - kbo(:, 5,45, 2) = (/ & - & 0.91270e+02,0.31903e+03,0.42879e+03,0.28517e+03,0.71839e+02 /) - kbo(:, 1,46, 2) = (/ & - & 0.91271e+02,0.31974e+03,0.42879e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 2,46, 2) = (/ & - & 0.91270e+02,0.31972e+03,0.42879e+03,0.28517e+03,0.71839e+02 /) - kbo(:, 3,46, 2) = (/ & - & 0.91270e+02,0.31961e+03,0.42879e+03,0.28517e+03,0.71839e+02 /) - kbo(:, 4,46, 2) = (/ & - & 0.91269e+02,0.31942e+03,0.42879e+03,0.28517e+03,0.71839e+02 /) - kbo(:, 5,46, 2) = (/ & - & 0.91268e+02,0.31914e+03,0.42878e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 1,47, 2) = (/ & - & 0.91269e+02,0.31973e+03,0.42879e+03,0.28517e+03,0.71839e+02 /) - kbo(:, 2,47, 2) = (/ & - & 0.91268e+02,0.31974e+03,0.42878e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 3,47, 2) = (/ & - & 0.91268e+02,0.31966e+03,0.42878e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 4,47, 2) = (/ & - & 0.91267e+02,0.31951e+03,0.42878e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 5,47, 2) = (/ & - & 0.91267e+02,0.31926e+03,0.42878e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 1,48, 2) = (/ & - & 0.91267e+02,0.31970e+03,0.42878e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 2,48, 2) = (/ & - & 0.91267e+02,0.31974e+03,0.42878e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 3,48, 2) = (/ & - & 0.91266e+02,0.31970e+03,0.42878e+03,0.28517e+03,0.71839e+02 /) - kbo(:, 4,48, 2) = (/ & - & 0.91266e+02,0.31958e+03,0.42878e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 5,48, 2) = (/ & - & 0.91265e+02,0.31937e+03,0.42878e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 1,49, 2) = (/ & - & 0.91266e+02,0.31966e+03,0.42878e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 2,49, 2) = (/ & - & 0.91265e+02,0.31973e+03,0.42878e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 3,49, 2) = (/ & - & 0.91265e+02,0.31973e+03,0.42877e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 4,49, 2) = (/ & - & 0.91265e+02,0.31964e+03,0.42878e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 5,49, 2) = (/ & - & 0.91264e+02,0.31946e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 1,50, 2) = (/ & - & 0.91265e+02,0.31962e+03,0.42877e+03,0.28516e+03,0.71839e+02 /) - kbo(:, 2,50, 2) = (/ & - & 0.91264e+02,0.31972e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 3,50, 2) = (/ & - & 0.91264e+02,0.31974e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 4,50, 2) = (/ & - & 0.91264e+02,0.31968e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 5,50, 2) = (/ & - & 0.91263e+02,0.31954e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 1,51, 2) = (/ & - & 0.91264e+02,0.31958e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 2,51, 2) = (/ & - & 0.91263e+02,0.31969e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 3,51, 2) = (/ & - & 0.91263e+02,0.31974e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 4,51, 2) = (/ & - & 0.91263e+02,0.31971e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 5,51, 2) = (/ & - & 0.91262e+02,0.31960e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 1,52, 2) = (/ & - & 0.91263e+02,0.31953e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 2,52, 2) = (/ & - & 0.91263e+02,0.31965e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 3,52, 2) = (/ & - & 0.91262e+02,0.31973e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 4,52, 2) = (/ & - & 0.91262e+02,0.31973e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 5,52, 2) = (/ & - & 0.91262e+02,0.31965e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 1,53, 2) = (/ & - & 0.91262e+02,0.31948e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 2,53, 2) = (/ & - & 0.91262e+02,0.31961e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 3,53, 2) = (/ & - & 0.91262e+02,0.31971e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 4,53, 2) = (/ & - & 0.91261e+02,0.31974e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 5,53, 2) = (/ & - & 0.91261e+02,0.31969e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 1,54, 2) = (/ & - & 0.91262e+02,0.31942e+03,0.42877e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 2,54, 2) = (/ & - & 0.91261e+02,0.31957e+03,0.42877e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 3,54, 2) = (/ & - & 0.91261e+02,0.31968e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 4,54, 2) = (/ & - & 0.91261e+02,0.31973e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 5,54, 2) = (/ & - & 0.91261e+02,0.31971e+03,0.42876e+03,0.28513e+03,0.71839e+02 /) - kbo(:, 1,55, 2) = (/ & - & 0.91261e+02,0.31937e+03,0.42876e+03,0.28513e+03,0.71839e+02 /) - kbo(:, 2,55, 2) = (/ & - & 0.91261e+02,0.31953e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 3,55, 2) = (/ & - & 0.91261e+02,0.31965e+03,0.42876e+03,0.28513e+03,0.71839e+02 /) - kbo(:, 4,55, 2) = (/ & - & 0.91261e+02,0.31973e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 5,55, 2) = (/ & - & 0.91260e+02,0.31973e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 1,56, 2) = (/ & - & 0.91261e+02,0.31932e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 2,56, 2) = (/ & - & 0.91260e+02,0.31947e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 3,56, 2) = (/ & - & 0.91260e+02,0.31961e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 4,56, 2) = (/ & - & 0.91260e+02,0.31971e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 5,56, 2) = (/ & - & 0.91260e+02,0.31974e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 1,57, 2) = (/ & - & 0.91260e+02,0.31927e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 2,57, 2) = (/ & - & 0.91260e+02,0.31943e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 3,57, 2) = (/ & - & 0.91260e+02,0.31957e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 4,57, 2) = (/ & - & 0.91260e+02,0.31968e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 5,57, 2) = (/ & - & 0.91260e+02,0.31974e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 1,58, 2) = (/ & - & 0.91260e+02,0.31922e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 2,58, 2) = (/ & - & 0.91260e+02,0.31938e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 3,58, 2) = (/ & - & 0.91260e+02,0.31953e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 4,58, 2) = (/ & - & 0.91260e+02,0.31965e+03,0.42876e+03,0.28513e+03,0.71839e+02 /) - kbo(:, 5,58, 2) = (/ & - & 0.91260e+02,0.31973e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 1,59, 2) = (/ & - & 0.91260e+02,0.31920e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 2,59, 2) = (/ & - & 0.91260e+02,0.31936e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 3,59, 2) = (/ & - & 0.91259e+02,0.31952e+03,0.42876e+03,0.28515e+03,0.71839e+02 /) - kbo(:, 4,59, 2) = (/ & - & 0.91259e+02,0.31964e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 5,59, 2) = (/ & - & 0.91259e+02,0.31972e+03,0.42876e+03,0.28514e+03,0.71839e+02 /) - kbo(:, 1,13, 3) = (/ & - & 0.26463e+03,0.36163e+03,0.49889e+03,0.32504e+03,0.17829e+03 /) - kbo(:, 2,13, 3) = (/ & - & 0.26258e+03,0.36010e+03,0.49695e+03,0.32345e+03,0.17829e+03 /) - kbo(:, 3,13, 3) = (/ & - & 0.26083e+03,0.35879e+03,0.49519e+03,0.32209e+03,0.17829e+03 /) - kbo(:, 4,13, 3) = (/ & - & 0.25930e+03,0.35766e+03,0.49360e+03,0.32093e+03,0.17829e+03 /) - kbo(:, 5,13, 3) = (/ & - & 0.25795e+03,0.35666e+03,0.49217e+03,0.31991e+03,0.17829e+03 /) - kbo(:, 1,14, 3) = (/ & - & 0.25951e+03,0.35782e+03,0.49358e+03,0.32109e+03,0.17829e+03 /) - kbo(:, 2,14, 3) = (/ & - & 0.25786e+03,0.35659e+03,0.49191e+03,0.31984e+03,0.17829e+03 /) - kbo(:, 3,14, 3) = (/ & - & 0.25644e+03,0.35554e+03,0.49043e+03,0.31877e+03,0.17829e+03 /) - kbo(:, 4,14, 3) = (/ & - & 0.25520e+03,0.35461e+03,0.48912e+03,0.31784e+03,0.17829e+03 /) - kbo(:, 5,14, 3) = (/ & - & 0.25411e+03,0.35381e+03,0.48795e+03,0.31704e+03,0.17829e+03 /) - kbo(:, 1,15, 3) = (/ & - & 0.25534e+03,0.35471e+03,0.48908e+03,0.31794e+03,0.17829e+03 /) - kbo(:, 2,15, 3) = (/ & - & 0.25401e+03,0.35373e+03,0.48771e+03,0.31695e+03,0.17829e+03 /) - kbo(:, 3,15, 3) = (/ & - & 0.25286e+03,0.35287e+03,0.48651e+03,0.31610e+03,0.17829e+03 /) - kbo(:, 4,15, 3) = (/ & - & 0.25186e+03,0.35213e+03,0.48543e+03,0.31537e+03,0.17829e+03 /) - kbo(:, 5,15, 3) = (/ & - & 0.25098e+03,0.35147e+03,0.48447e+03,0.31472e+03,0.17829e+03 /) - kbo(:, 1,16, 3) = (/ & - & 0.25194e+03,0.35219e+03,0.48538e+03,0.31543e+03,0.17829e+03 /) - kbo(:, 2,16, 3) = (/ & - & 0.25087e+03,0.35140e+03,0.48427e+03,0.31463e+03,0.17829e+03 /) - kbo(:, 3,16, 3) = (/ & - & 0.24994e+03,0.35071e+03,0.48328e+03,0.31395e+03,0.17829e+03 /) - kbo(:, 4,16, 3) = (/ & - & 0.24914e+03,0.35011e+03,0.48239e+03,0.31337e+03,0.17829e+03 /) - kbo(:, 5,16, 3) = (/ & - & 0.24843e+03,0.34958e+03,0.48159e+03,0.31282e+03,0.17829e+03 /) - kbo(:, 1,17, 3) = (/ & - & 0.24919e+03,0.35014e+03,0.48236e+03,0.31341e+03,0.17829e+03 /) - kbo(:, 2,17, 3) = (/ & - & 0.24832e+03,0.34950e+03,0.48145e+03,0.31278e+03,0.17829e+03 /) - kbo(:, 3,17, 3) = (/ & - & 0.24758e+03,0.34895e+03,0.48063e+03,0.31225e+03,0.17829e+03 /) - kbo(:, 4,17, 3) = (/ & - & 0.24693e+03,0.34847e+03,0.47989e+03,0.31178e+03,0.17829e+03 /) - kbo(:, 5,17, 3) = (/ & - & 0.24635e+03,0.34804e+03,0.47924e+03,0.31137e+03,0.17829e+03 /) - kbo(:, 1,18, 3) = (/ & - & 0.24695e+03,0.34848e+03,0.47988e+03,0.31180e+03,0.17829e+03 /) - kbo(:, 2,18, 3) = (/ & - & 0.24626e+03,0.34797e+03,0.47913e+03,0.31130e+03,0.17829e+03 /) - kbo(:, 3,18, 3) = (/ & - & 0.24565e+03,0.34752e+03,0.47845e+03,0.31086e+03,0.17829e+03 /) - kbo(:, 4,18, 3) = (/ & - & 0.24513e+03,0.34713e+03,0.47784e+03,0.31048e+03,0.17829e+03 /) - kbo(:, 5,18, 3) = (/ & - & 0.24466e+03,0.34679e+03,0.47731e+03,0.31015e+03,0.17829e+03 /) - kbo(:, 1,19, 3) = (/ & - & 0.24514e+03,0.34714e+03,0.47784e+03,0.31049e+03,0.17829e+03 /) - kbo(:, 2,19, 3) = (/ & - & 0.24458e+03,0.34672e+03,0.47721e+03,0.31009e+03,0.17829e+03 /) - kbo(:, 3,19, 3) = (/ & - & 0.24409e+03,0.34636e+03,0.47665e+03,0.30974e+03,0.17829e+03 /) - kbo(:, 4,19, 3) = (/ & - & 0.24367e+03,0.34605e+03,0.47616e+03,0.30943e+03,0.17829e+03 /) - kbo(:, 5,19, 3) = (/ & - & 0.24329e+03,0.34577e+03,0.47573e+03,0.30916e+03,0.17829e+03 /) - kbo(:, 1,20, 3) = (/ & - & 0.24366e+03,0.34604e+03,0.47615e+03,0.30943e+03,0.17829e+03 /) - kbo(:, 2,20, 3) = (/ & - & 0.24321e+03,0.34571e+03,0.47563e+03,0.30910e+03,0.17829e+03 /) - kbo(:, 3,20, 3) = (/ & - & 0.24282e+03,0.34542e+03,0.47518e+03,0.30882e+03,0.17829e+03 /) - kbo(:, 4,20, 3) = (/ & - & 0.24247e+03,0.34516e+03,0.47478e+03,0.30857e+03,0.17829e+03 /) - kbo(:, 5,20, 3) = (/ & - & 0.24217e+03,0.34494e+03,0.47443e+03,0.30835e+03,0.17829e+03 /) - kbo(:, 1,21, 3) = (/ & - & 0.24246e+03,0.34515e+03,0.47476e+03,0.30856e+03,0.17829e+03 /) - kbo(:, 2,21, 3) = (/ & - & 0.24210e+03,0.34488e+03,0.47434e+03,0.30830e+03,0.17829e+03 /) - kbo(:, 3,21, 3) = (/ & - & 0.24178e+03,0.34465e+03,0.47397e+03,0.30807e+03,0.17829e+03 /) - kbo(:, 4,21, 3) = (/ & - & 0.24150e+03,0.34444e+03,0.47364e+03,0.30787e+03,0.17829e+03 /) - kbo(:, 5,21, 3) = (/ & - & 0.24126e+03,0.34426e+03,0.47341e+03,0.30769e+03,0.17829e+03 /) - kbo(:, 1,22, 3) = (/ & - & 0.24146e+03,0.34441e+03,0.47360e+03,0.30784e+03,0.17829e+03 /) - kbo(:, 2,22, 3) = (/ & - & 0.24117e+03,0.34420e+03,0.47327e+03,0.30763e+03,0.17829e+03 /) - kbo(:, 3,22, 3) = (/ & - & 0.24092e+03,0.34401e+03,0.47296e+03,0.30745e+03,0.17829e+03 /) - kbo(:, 4,22, 3) = (/ & - & 0.24070e+03,0.34385e+03,0.47270e+03,0.30729e+03,0.17829e+03 /) - kbo(:, 5,22, 3) = (/ & - & 0.24050e+03,0.34370e+03,0.47246e+03,0.30715e+03,0.17829e+03 /) - kbo(:, 1,23, 3) = (/ & - & 0.24066e+03,0.34382e+03,0.47265e+03,0.30726e+03,0.17829e+03 /) - kbo(:, 2,23, 3) = (/ & - & 0.24043e+03,0.34365e+03,0.47237e+03,0.30709e+03,0.17829e+03 /) - kbo(:, 3,23, 3) = (/ & - & 0.24023e+03,0.34350e+03,0.47213e+03,0.30695e+03,0.17829e+03 /) - kbo(:, 4,23, 3) = (/ & - & 0.24005e+03,0.34336e+03,0.47191e+03,0.30682e+03,0.17829e+03 /) - kbo(:, 5,23, 3) = (/ & - & 0.23989e+03,0.34325e+03,0.47173e+03,0.30671e+03,0.17829e+03 /) - kbo(:, 1,24, 3) = (/ & - & 0.24001e+03,0.34333e+03,0.47187e+03,0.30679e+03,0.17829e+03 /) - kbo(:, 2,24, 3) = (/ & - & 0.23982e+03,0.34320e+03,0.47164e+03,0.30666e+03,0.17829e+03 /) - kbo(:, 3,24, 3) = (/ & - & 0.23966e+03,0.34308e+03,0.47145e+03,0.30654e+03,0.17829e+03 /) - kbo(:, 4,24, 3) = (/ & - & 0.23952e+03,0.34297e+03,0.47128e+03,0.30644e+03,0.17829e+03 /) - kbo(:, 5,24, 3) = (/ & - & 0.23940e+03,0.34288e+03,0.47113e+03,0.30635e+03,0.17829e+03 /) - kbo(:, 1,25, 3) = (/ & - & 0.23948e+03,0.34294e+03,0.47124e+03,0.30641e+03,0.17829e+03 /) - kbo(:, 2,25, 3) = (/ & - & 0.23934e+03,0.34284e+03,0.47105e+03,0.30631e+03,0.17829e+03 /) - kbo(:, 3,25, 3) = (/ & - & 0.23921e+03,0.34274e+03,0.47089e+03,0.30622e+03,0.17829e+03 /) - kbo(:, 4,25, 3) = (/ & - & 0.23910e+03,0.34266e+03,0.47075e+03,0.30613e+03,0.17829e+03 /) - kbo(:, 5,25, 3) = (/ & - & 0.23900e+03,0.34258e+03,0.47063e+03,0.30606e+03,0.17829e+03 /) - kbo(:, 1,26, 3) = (/ & - & 0.23906e+03,0.34263e+03,0.47070e+03,0.30610e+03,0.17829e+03 /) - kbo(:, 2,26, 3) = (/ & - & 0.23894e+03,0.34254e+03,0.47056e+03,0.30602e+03,0.17829e+03 /) - kbo(:, 3,26, 3) = (/ & - & 0.23884e+03,0.34247e+03,0.47044e+03,0.30595e+03,0.17829e+03 /) - kbo(:, 4,26, 3) = (/ & - & 0.23875e+03,0.34240e+03,0.47033e+03,0.30588e+03,0.17829e+03 /) - kbo(:, 5,26, 3) = (/ & - & 0.23867e+03,0.34234e+03,0.47023e+03,0.30583e+03,0.17829e+03 /) - kbo(:, 1,27, 3) = (/ & - & 0.23871e+03,0.34237e+03,0.47028e+03,0.30586e+03,0.17829e+03 /) - kbo(:, 2,27, 3) = (/ & - & 0.23862e+03,0.34230e+03,0.47017e+03,0.30579e+03,0.17829e+03 /) - kbo(:, 3,27, 3) = (/ & - & 0.23854e+03,0.34225e+03,0.47007e+03,0.30573e+03,0.17829e+03 /) - kbo(:, 4,27, 3) = (/ & - & 0.23847e+03,0.34219e+03,0.46998e+03,0.30568e+03,0.17829e+03 /) - kbo(:, 5,27, 3) = (/ & - & 0.23840e+03,0.34214e+03,0.46990e+03,0.30564e+03,0.17829e+03 /) - kbo(:, 1,28, 3) = (/ & - & 0.23844e+03,0.34217e+03,0.46994e+03,0.30566e+03,0.17829e+03 /) - kbo(:, 2,28, 3) = (/ & - & 0.23836e+03,0.34211e+03,0.46985e+03,0.30561e+03,0.17829e+03 /) - kbo(:, 3,28, 3) = (/ & - & 0.23830e+03,0.34207e+03,0.46977e+03,0.30556e+03,0.17829e+03 /) - kbo(:, 4,28, 3) = (/ & - & 0.23824e+03,0.34202e+03,0.46970e+03,0.30552e+03,0.17829e+03 /) - kbo(:, 5,28, 3) = (/ & - & 0.23819e+03,0.34198e+03,0.46964e+03,0.30548e+03,0.17829e+03 /) - kbo(:, 1,29, 3) = (/ & - & 0.23821e+03,0.34200e+03,0.46966e+03,0.30550e+03,0.17829e+03 /) - kbo(:, 2,29, 3) = (/ & - & 0.23815e+03,0.34196e+03,0.46959e+03,0.30546e+03,0.17829e+03 /) - kbo(:, 3,29, 3) = (/ & - & 0.23810e+03,0.34192e+03,0.46953e+03,0.30542e+03,0.17829e+03 /) - kbo(:, 4,29, 3) = (/ & - & 0.23806e+03,0.34189e+03,0.46948e+03,0.30539e+03,0.17829e+03 /) - kbo(:, 5,29, 3) = (/ & - & 0.23802e+03,0.34185e+03,0.46942e+03,0.30536e+03,0.17829e+03 /) - kbo(:, 1,30, 3) = (/ & - & 0.23803e+03,0.34187e+03,0.46944e+03,0.30537e+03,0.17829e+03 /) - kbo(:, 2,30, 3) = (/ & - & 0.23799e+03,0.34184e+03,0.46939e+03,0.30533e+03,0.17829e+03 /) - kbo(:, 3,30, 3) = (/ & - & 0.23795e+03,0.34180e+03,0.46934e+03,0.30531e+03,0.17829e+03 /) - kbo(:, 4,30, 3) = (/ & - & 0.23791e+03,0.34178e+03,0.46929e+03,0.30528e+03,0.17829e+03 /) - kbo(:, 5,30, 3) = (/ & - & 0.23788e+03,0.34175e+03,0.46925e+03,0.30526e+03,0.17829e+03 /) - kbo(:, 1,31, 3) = (/ & - & 0.23789e+03,0.34176e+03,0.46926e+03,0.30526e+03,0.17829e+03 /) - kbo(:, 2,31, 3) = (/ & - & 0.23785e+03,0.34173e+03,0.46922e+03,0.30524e+03,0.17829e+03 /) - kbo(:, 3,31, 3) = (/ & - & 0.23782e+03,0.34171e+03,0.46918e+03,0.30521e+03,0.17829e+03 /) - kbo(:, 4,31, 3) = (/ & - & 0.23779e+03,0.34169e+03,0.46914e+03,0.30519e+03,0.17829e+03 /) - kbo(:, 5,31, 3) = (/ & - & 0.23777e+03,0.34167e+03,0.46911e+03,0.30518e+03,0.17829e+03 /) - kbo(:, 1,32, 3) = (/ & - & 0.23777e+03,0.34168e+03,0.46912e+03,0.30518e+03,0.17829e+03 /) - kbo(:, 2,32, 3) = (/ & - & 0.23774e+03,0.34166e+03,0.46908e+03,0.30516e+03,0.17829e+03 /) - kbo(:, 3,32, 3) = (/ & - & 0.23772e+03,0.34163e+03,0.46905e+03,0.30514e+03,0.17829e+03 /) - kbo(:, 4,32, 3) = (/ & - & 0.23770e+03,0.34162e+03,0.46902e+03,0.30512e+03,0.17829e+03 /) - kbo(:, 5,32, 3) = (/ & - & 0.23767e+03,0.34160e+03,0.46900e+03,0.30511e+03,0.17829e+03 /) - kbo(:, 1,33, 3) = (/ & - & 0.23768e+03,0.34161e+03,0.46900e+03,0.30511e+03,0.17829e+03 /) - kbo(:, 2,33, 3) = (/ & - & 0.23766e+03,0.34159e+03,0.46897e+03,0.30510e+03,0.17829e+03 /) - kbo(:, 3,33, 3) = (/ & - & 0.23764e+03,0.34157e+03,0.46895e+03,0.30508e+03,0.17829e+03 /) - kbo(:, 4,33, 3) = (/ & - & 0.23762e+03,0.34156e+03,0.46893e+03,0.30507e+03,0.17829e+03 /) - kbo(:, 5,33, 3) = (/ & - & 0.23760e+03,0.34154e+03,0.46891e+03,0.30506e+03,0.17829e+03 /) - kbo(:, 1,34, 3) = (/ & - & 0.23760e+03,0.34155e+03,0.46891e+03,0.30506e+03,0.17829e+03 /) - kbo(:, 2,34, 3) = (/ & - & 0.23759e+03,0.34154e+03,0.46889e+03,0.30505e+03,0.17829e+03 /) - kbo(:, 3,34, 3) = (/ & - & 0.23757e+03,0.34152e+03,0.46887e+03,0.30503e+03,0.17829e+03 /) - kbo(:, 4,34, 3) = (/ & - & 0.23756e+03,0.34151e+03,0.46885e+03,0.30502e+03,0.17829e+03 /) - kbo(:, 5,34, 3) = (/ & - & 0.23754e+03,0.34150e+03,0.46883e+03,0.30501e+03,0.17829e+03 /) - kbo(:, 1,35, 3) = (/ & - & 0.23755e+03,0.34151e+03,0.46884e+03,0.30502e+03,0.17829e+03 /) - kbo(:, 2,35, 3) = (/ & - & 0.23753e+03,0.34150e+03,0.46882e+03,0.30501e+03,0.17829e+03 /) - kbo(:, 3,35, 3) = (/ & - & 0.23752e+03,0.34148e+03,0.46880e+03,0.30500e+03,0.17829e+03 /) - kbo(:, 4,35, 3) = (/ & - & 0.23751e+03,0.34147e+03,0.46879e+03,0.30499e+03,0.17829e+03 /) - kbo(:, 5,35, 3) = (/ & - & 0.23750e+03,0.34146e+03,0.46878e+03,0.30498e+03,0.17829e+03 /) - kbo(:, 1,36, 3) = (/ & - & 0.23750e+03,0.34147e+03,0.46878e+03,0.30498e+03,0.17829e+03 /) - kbo(:, 2,36, 3) = (/ & - & 0.23749e+03,0.34146e+03,0.46877e+03,0.30497e+03,0.17829e+03 /) - kbo(:, 3,36, 3) = (/ & - & 0.23748e+03,0.34145e+03,0.46875e+03,0.30497e+03,0.17829e+03 /) - kbo(:, 4,36, 3) = (/ & - & 0.23747e+03,0.34144e+03,0.46874e+03,0.30496e+03,0.17829e+03 /) - kbo(:, 5,36, 3) = (/ & - & 0.23746e+03,0.34144e+03,0.46873e+03,0.30495e+03,0.17829e+03 /) - kbo(:, 1,37, 3) = (/ & - & 0.23746e+03,0.34145e+03,0.46874e+03,0.30496e+03,0.17829e+03 /) - kbo(:, 2,37, 3) = (/ & - & 0.23745e+03,0.34144e+03,0.46872e+03,0.30495e+03,0.17829e+03 /) - kbo(:, 3,37, 3) = (/ & - & 0.23744e+03,0.34143e+03,0.46871e+03,0.30494e+03,0.17829e+03 /) - kbo(:, 4,37, 3) = (/ & - & 0.23744e+03,0.34142e+03,0.46870e+03,0.30494e+03,0.17829e+03 /) - kbo(:, 5,37, 3) = (/ & - & 0.23743e+03,0.34141e+03,0.46869e+03,0.30493e+03,0.17829e+03 /) - kbo(:, 1,38, 3) = (/ & - & 0.23743e+03,0.34143e+03,0.46870e+03,0.30493e+03,0.17829e+03 /) - kbo(:, 2,38, 3) = (/ & - & 0.23742e+03,0.34142e+03,0.46869e+03,0.30493e+03,0.17829e+03 /) - kbo(:, 3,38, 3) = (/ & - & 0.23742e+03,0.34141e+03,0.46868e+03,0.30492e+03,0.17829e+03 /) - kbo(:, 4,38, 3) = (/ & - & 0.23741e+03,0.34140e+03,0.46867e+03,0.30492e+03,0.17829e+03 /) - kbo(:, 5,38, 3) = (/ & - & 0.23740e+03,0.34140e+03,0.46866e+03,0.30491e+03,0.17829e+03 /) - kbo(:, 1,39, 3) = (/ & - & 0.23741e+03,0.34141e+03,0.46867e+03,0.30492e+03,0.17829e+03 /) - kbo(:, 2,39, 3) = (/ & - & 0.23740e+03,0.34140e+03,0.46866e+03,0.30491e+03,0.17829e+03 /) - kbo(:, 3,39, 3) = (/ & - & 0.23739e+03,0.34139e+03,0.46865e+03,0.30491e+03,0.17829e+03 /) - kbo(:, 4,39, 3) = (/ & - & 0.23739e+03,0.34139e+03,0.46865e+03,0.30490e+03,0.17829e+03 /) - kbo(:, 5,39, 3) = (/ & - & 0.23738e+03,0.34138e+03,0.46864e+03,0.30490e+03,0.17829e+03 /) - kbo(:, 1,40, 3) = (/ & - & 0.23739e+03,0.34139e+03,0.46864e+03,0.30490e+03,0.17829e+03 /) - kbo(:, 2,40, 3) = (/ & - & 0.23738e+03,0.34139e+03,0.46864e+03,0.30490e+03,0.17829e+03 /) - kbo(:, 3,40, 3) = (/ & - & 0.23738e+03,0.34138e+03,0.46863e+03,0.30489e+03,0.17829e+03 /) - kbo(:, 4,40, 3) = (/ & - & 0.23737e+03,0.34138e+03,0.46862e+03,0.30489e+03,0.17829e+03 /) - kbo(:, 5,40, 3) = (/ & - & 0.23737e+03,0.34137e+03,0.46862e+03,0.30489e+03,0.17829e+03 /) - kbo(:, 1,41, 3) = (/ & - & 0.23737e+03,0.34138e+03,0.46862e+03,0.30489e+03,0.17829e+03 /) - kbo(:, 2,41, 3) = (/ & - & 0.23737e+03,0.34138e+03,0.46862e+03,0.30489e+03,0.17829e+03 /) - kbo(:, 3,41, 3) = (/ & - & 0.23736e+03,0.34137e+03,0.46861e+03,0.30488e+03,0.17829e+03 /) - kbo(:, 4,41, 3) = (/ & - & 0.23736e+03,0.34137e+03,0.46861e+03,0.30488e+03,0.17829e+03 /) - kbo(:, 5,41, 3) = (/ & - & 0.23736e+03,0.34136e+03,0.46860e+03,0.30488e+03,0.17829e+03 /) - kbo(:, 1,42, 3) = (/ & - & 0.23736e+03,0.34137e+03,0.46861e+03,0.30488e+03,0.17829e+03 /) - kbo(:, 2,42, 3) = (/ & - & 0.23735e+03,0.34137e+03,0.46860e+03,0.30488e+03,0.17829e+03 /) - kbo(:, 3,42, 3) = (/ & - & 0.23735e+03,0.34136e+03,0.46860e+03,0.30488e+03,0.17829e+03 /) - kbo(:, 4,42, 3) = (/ & - & 0.23735e+03,0.34136e+03,0.46859e+03,0.30487e+03,0.17829e+03 /) - kbo(:, 5,42, 3) = (/ & - & 0.23734e+03,0.34135e+03,0.46859e+03,0.30487e+03,0.17829e+03 /) - kbo(:, 1,43, 3) = (/ & - & 0.23735e+03,0.34136e+03,0.46859e+03,0.30487e+03,0.17829e+03 /) - kbo(:, 2,43, 3) = (/ & - & 0.23734e+03,0.34136e+03,0.46859e+03,0.30487e+03,0.17829e+03 /) - kbo(:, 3,43, 3) = (/ & - & 0.23734e+03,0.34136e+03,0.46858e+03,0.30487e+03,0.17829e+03 /) - kbo(:, 4,43, 3) = (/ & - & 0.23734e+03,0.34135e+03,0.46858e+03,0.30487e+03,0.17829e+03 /) - kbo(:, 5,43, 3) = (/ & - & 0.23734e+03,0.34135e+03,0.46858e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 1,44, 3) = (/ & - & 0.23734e+03,0.34136e+03,0.46858e+03,0.30487e+03,0.17829e+03 /) - kbo(:, 2,44, 3) = (/ & - & 0.23734e+03,0.34135e+03,0.46858e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 3,44, 3) = (/ & - & 0.23733e+03,0.34135e+03,0.46857e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 4,44, 3) = (/ & - & 0.23733e+03,0.34135e+03,0.46857e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 5,44, 3) = (/ & - & 0.23733e+03,0.34134e+03,0.46857e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 1,45, 3) = (/ & - & 0.23733e+03,0.34135e+03,0.46857e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 2,45, 3) = (/ & - & 0.23733e+03,0.34135e+03,0.46857e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 3,45, 3) = (/ & - & 0.23733e+03,0.34135e+03,0.46857e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 4,45, 3) = (/ & - & 0.23732e+03,0.34134e+03,0.46856e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 5,45, 3) = (/ & - & 0.23732e+03,0.34134e+03,0.46856e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 1,46, 3) = (/ & - & 0.23732e+03,0.34135e+03,0.46856e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 2,46, 3) = (/ & - & 0.23732e+03,0.34134e+03,0.46856e+03,0.30486e+03,0.17829e+03 /) - kbo(:, 3,46, 3) = (/ & - & 0.23732e+03,0.34134e+03,0.46856e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 4,46, 3) = (/ & - & 0.23732e+03,0.34134e+03,0.46856e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 5,46, 3) = (/ & - & 0.23732e+03,0.34134e+03,0.46856e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 1,47, 3) = (/ & - & 0.23732e+03,0.34135e+03,0.46856e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 2,47, 3) = (/ & - & 0.23732e+03,0.34134e+03,0.46856e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 3,47, 3) = (/ & - & 0.23732e+03,0.34134e+03,0.46855e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 4,47, 3) = (/ & - & 0.23731e+03,0.34134e+03,0.46855e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 5,47, 3) = (/ & - & 0.23731e+03,0.34133e+03,0.46855e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 1,48, 3) = (/ & - & 0.23731e+03,0.34135e+03,0.46855e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 2,48, 3) = (/ & - & 0.23731e+03,0.34134e+03,0.46855e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 3,48, 3) = (/ & - & 0.23731e+03,0.34134e+03,0.46855e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 4,48, 3) = (/ & - & 0.23731e+03,0.34134e+03,0.46855e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 5,48, 3) = (/ & - & 0.23731e+03,0.34133e+03,0.46855e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 1,49, 3) = (/ & - & 0.23731e+03,0.34135e+03,0.46855e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 2,49, 3) = (/ & - & 0.23731e+03,0.34134e+03,0.46855e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 3,49, 3) = (/ & - & 0.23731e+03,0.34133e+03,0.46854e+03,0.30485e+03,0.17829e+03 /) - kbo(:, 4,49, 3) = (/ & - & 0.23731e+03,0.34133e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 5,49, 3) = (/ & - & 0.23731e+03,0.34133e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 1,50, 3) = (/ & - & 0.23731e+03,0.34136e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 2,50, 3) = (/ & - & 0.23731e+03,0.34134e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 3,50, 3) = (/ & - & 0.23731e+03,0.34133e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 4,50, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 5,50, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 1,51, 3) = (/ & - & 0.23731e+03,0.34136e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 2,51, 3) = (/ & - & 0.23730e+03,0.34134e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 3,51, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 4,51, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 5,51, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 1,52, 3) = (/ & - & 0.23730e+03,0.34136e+03,0.46852e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 2,52, 3) = (/ & - & 0.23730e+03,0.34135e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 3,52, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 4,52, 3) = (/ & - & 0.23730e+03,0.34132e+03,0.46854e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 5,52, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 1,53, 3) = (/ & - & 0.23730e+03,0.34137e+03,0.46851e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 2,53, 3) = (/ & - & 0.23730e+03,0.34135e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 3,53, 3) = (/ & - & 0.23730e+03,0.34134e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 4,53, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 5,53, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 1,54, 3) = (/ & - & 0.23730e+03,0.34137e+03,0.46849e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 2,54, 3) = (/ & - & 0.23730e+03,0.34136e+03,0.46852e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 3,54, 3) = (/ & - & 0.23730e+03,0.34134e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 4,54, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 5,54, 3) = (/ & - & 0.23730e+03,0.34132e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 1,55, 3) = (/ & - & 0.23730e+03,0.34138e+03,0.46847e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 2,55, 3) = (/ & - & 0.23730e+03,0.34136e+03,0.46852e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 3,55, 3) = (/ & - & 0.23730e+03,0.34134e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 4,55, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 5,55, 3) = (/ & - & 0.23730e+03,0.34132e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 1,56, 3) = (/ & - & 0.23730e+03,0.34139e+03,0.46844e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 2,56, 3) = (/ & - & 0.23730e+03,0.34137e+03,0.46850e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 3,56, 3) = (/ & - & 0.23730e+03,0.34135e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 4,56, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 5,56, 3) = (/ & - & 0.23730e+03,0.34133e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 1,57, 3) = (/ & - & 0.23730e+03,0.34140e+03,0.46840e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 2,57, 3) = (/ & - & 0.23730e+03,0.34137e+03,0.46849e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 3,57, 3) = (/ & - & 0.23730e+03,0.34135e+03,0.46852e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 4,57, 3) = (/ & - & 0.23730e+03,0.34134e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 5,57, 3) = (/ & - & 0.23729e+03,0.34132e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 1,58, 3) = (/ & - & 0.23730e+03,0.34140e+03,0.46837e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 2,58, 3) = (/ & - & 0.23729e+03,0.34138e+03,0.46847e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 3,58, 3) = (/ & - & 0.23729e+03,0.34136e+03,0.46851e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 4,58, 3) = (/ & - & 0.23729e+03,0.34134e+03,0.46853e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 5,58, 3) = (/ & - & 0.23729e+03,0.34133e+03,0.46853e+03,0.30483e+03,0.17829e+03 /) - kbo(:, 1,59, 3) = (/ & - & 0.23729e+03,0.34141e+03,0.46835e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 2,59, 3) = (/ & - & 0.23729e+03,0.34138e+03,0.46846e+03,0.30484e+03,0.17829e+03 /) - kbo(:, 3,59, 3) = (/ & - & 0.23729e+03,0.34136e+03,0.46851e+03,0.30483e+03,0.17829e+03 /) - kbo(:, 4,59, 3) = (/ & - & 0.23729e+03,0.34134e+03,0.46853e+03,0.30483e+03,0.17829e+03 /) - kbo(:, 5,59, 3) = (/ & - & 0.23729e+03,0.34133e+03,0.46853e+03,0.30483e+03,0.17829e+03 /) - kbo(:, 1,13, 4) = (/ & - & 0.51214e+03,0.47089e+03,0.53698e+03,0.40623e+03,0.38437e+03 /) - kbo(:, 2,13, 4) = (/ & - & 0.50819e+03,0.46793e+03,0.53525e+03,0.40532e+03,0.38437e+03 /) - kbo(:, 3,13, 4) = (/ & - & 0.50478e+03,0.46537e+03,0.53379e+03,0.40453e+03,0.38437e+03 /) - kbo(:, 4,13, 4) = (/ & - & 0.50182e+03,0.46315e+03,0.53251e+03,0.40385e+03,0.38437e+03 /) - kbo(:, 5,13, 4) = (/ & - & 0.49922e+03,0.46120e+03,0.53137e+03,0.40325e+03,0.38437e+03 /) - kbo(:, 1,14, 4) = (/ & - & 0.50224e+03,0.46346e+03,0.53224e+03,0.40395e+03,0.38437e+03 /) - kbo(:, 2,14, 4) = (/ & - & 0.49905e+03,0.46107e+03,0.53090e+03,0.40321e+03,0.38437e+03 /) - kbo(:, 3,14, 4) = (/ & - & 0.49629e+03,0.45901e+03,0.52974e+03,0.40258e+03,0.38437e+03 /) - kbo(:, 4,14, 4) = (/ & - & 0.49390e+03,0.45721e+03,0.52871e+03,0.40203e+03,0.38437e+03 /) - kbo(:, 5,14, 4) = (/ & - & 0.49179e+03,0.45563e+03,0.52774e+03,0.40154e+03,0.38437e+03 /) - kbo(:, 1,15, 4) = (/ & - & 0.49416e+03,0.45741e+03,0.52835e+03,0.40209e+03,0.38437e+03 /) - kbo(:, 2,15, 4) = (/ & - & 0.49159e+03,0.45548e+03,0.52725e+03,0.40149e+03,0.38437e+03 /) - kbo(:, 3,15, 4) = (/ & - & 0.48937e+03,0.45381e+03,0.52626e+03,0.40098e+03,0.38437e+03 /) - kbo(:, 4,15, 4) = (/ & - & 0.48743e+03,0.45236e+03,0.52534e+03,0.40054e+03,0.38437e+03 /) - kbo(:, 5,15, 4) = (/ & - & 0.48573e+03,0.45108e+03,0.52448e+03,0.40015e+03,0.38437e+03 /) - kbo(:, 1,16, 4) = (/ & - & 0.48759e+03,0.45248e+03,0.52492e+03,0.40057e+03,0.38437e+03 /) - kbo(:, 2,16, 4) = (/ & - & 0.48552e+03,0.45092e+03,0.52397e+03,0.40010e+03,0.38437e+03 /) - kbo(:, 3,16, 4) = (/ & - & 0.48373e+03,0.44958e+03,0.52310e+03,0.39968e+03,0.38437e+03 /) - kbo(:, 4,16, 4) = (/ & - & 0.48216e+03,0.44841e+03,0.52232e+03,0.39932e+03,0.38437e+03 /) - kbo(:, 5,16, 4) = (/ & - & 0.48079e+03,0.44738e+03,0.52159e+03,0.39901e+03,0.38437e+03 /) - kbo(:, 1,17, 4) = (/ & - & 0.48226e+03,0.44848e+03,0.52188e+03,0.39935e+03,0.38437e+03 /) - kbo(:, 2,17, 4) = (/ & - & 0.48059e+03,0.44723e+03,0.52110e+03,0.39896e+03,0.38437e+03 /) - kbo(:, 3,17, 4) = (/ & - & 0.47915e+03,0.44615e+03,0.52038e+03,0.39863e+03,0.38437e+03 /) - kbo(:, 4,17, 4) = (/ & - & 0.47788e+03,0.44520e+03,0.51974e+03,0.39834e+03,0.38437e+03 /) - kbo(:, 5,17, 4) = (/ & - & 0.47677e+03,0.44437e+03,0.51913e+03,0.39808e+03,0.38437e+03 /) - kbo(:, 1,18, 4) = (/ & - & 0.47794e+03,0.44524e+03,0.51928e+03,0.39835e+03,0.38437e+03 /) - kbo(:, 2,18, 4) = (/ & - & 0.47659e+03,0.44423e+03,0.51865e+03,0.39804e+03,0.38437e+03 /) - kbo(:, 3,18, 4) = (/ & - & 0.47542e+03,0.44336e+03,0.51808e+03,0.39777e+03,0.38437e+03 /) - kbo(:, 4,18, 4) = (/ & - & 0.47441e+03,0.44259e+03,0.51755e+03,0.39754e+03,0.38437e+03 /) - kbo(:, 5,18, 4) = (/ & - & 0.47351e+03,0.44192e+03,0.51705e+03,0.39733e+03,0.38437e+03 /) - kbo(:, 1,19, 4) = (/ & - & 0.47443e+03,0.44261e+03,0.51710e+03,0.39754e+03,0.38437e+03 /) - kbo(:, 2,19, 4) = (/ & - & 0.47334e+03,0.44179e+03,0.51660e+03,0.39729e+03,0.38437e+03 /) - kbo(:, 3,19, 4) = (/ & - & 0.47240e+03,0.44109e+03,0.51615e+03,0.39708e+03,0.38437e+03 /) - kbo(:, 4,19, 4) = (/ & - & 0.47158e+03,0.44047e+03,0.51573e+03,0.39689e+03,0.38437e+03 /) - kbo(:, 5,19, 4) = (/ & - & 0.47085e+03,0.43993e+03,0.51533e+03,0.39672e+03,0.38437e+03 /) - kbo(:, 1,20, 4) = (/ & - & 0.47156e+03,0.44046e+03,0.51527e+03,0.39688e+03,0.38437e+03 /) - kbo(:, 2,20, 4) = (/ & - & 0.47069e+03,0.43980e+03,0.51490e+03,0.39668e+03,0.38437e+03 /) - kbo(:, 3,20, 4) = (/ & - & 0.46993e+03,0.43924e+03,0.51455e+03,0.39651e+03,0.38437e+03 /) - kbo(:, 4,20, 4) = (/ & - & 0.46927e+03,0.43874e+03,0.51422e+03,0.39635e+03,0.38437e+03 /) - kbo(:, 5,20, 4) = (/ & - & 0.46868e+03,0.43830e+03,0.51389e+03,0.39622e+03,0.38437e+03 /) - kbo(:, 1,21, 4) = (/ & - & 0.46924e+03,0.43872e+03,0.51377e+03,0.39635e+03,0.38437e+03 /) - kbo(:, 2,21, 4) = (/ & - & 0.46853e+03,0.43819e+03,0.51350e+03,0.39619e+03,0.38437e+03 /) - kbo(:, 3,21, 4) = (/ & - & 0.46792e+03,0.43773e+03,0.51323e+03,0.39604e+03,0.38437e+03 /) - kbo(:, 4,21, 4) = (/ & - & 0.46739e+03,0.43733e+03,0.51296e+03,0.39592e+03,0.38437e+03 /) - kbo(:, 5,21, 4) = (/ & - & 0.46692e+03,0.43697e+03,0.51263e+03,0.39581e+03,0.38437e+03 /) - kbo(:, 1,22, 4) = (/ & - & 0.46731e+03,0.43727e+03,0.51254e+03,0.39590e+03,0.38437e+03 /) - kbo(:, 2,22, 4) = (/ & - & 0.46675e+03,0.43685e+03,0.51231e+03,0.39577e+03,0.38437e+03 /) - kbo(:, 3,22, 4) = (/ & - & 0.46626e+03,0.43648e+03,0.51212e+03,0.39566e+03,0.38437e+03 /) - kbo(:, 4,22, 4) = (/ & - & 0.46584e+03,0.43616e+03,0.51190e+03,0.39556e+03,0.38437e+03 /) - kbo(:, 5,22, 4) = (/ & - & 0.46546e+03,0.43588e+03,0.51168e+03,0.39548e+03,0.38437e+03 /) - kbo(:, 1,23, 4) = (/ & - & 0.46575e+03,0.43610e+03,0.51153e+03,0.39554e+03,0.38437e+03 /) - kbo(:, 2,23, 4) = (/ & - & 0.46531e+03,0.43577e+03,0.51138e+03,0.39544e+03,0.38437e+03 /) - kbo(:, 3,23, 4) = (/ & - & 0.46492e+03,0.43548e+03,0.51122e+03,0.39535e+03,0.38437e+03 /) - kbo(:, 4,23, 4) = (/ & - & 0.46458e+03,0.43522e+03,0.51104e+03,0.39527e+03,0.38437e+03 /) - kbo(:, 5,23, 4) = (/ & - & 0.46427e+03,0.43499e+03,0.51086e+03,0.39520e+03,0.38437e+03 /) - kbo(:, 1,24, 4) = (/ & - & 0.46450e+03,0.43516e+03,0.51071e+03,0.39525e+03,0.38437e+03 /) - kbo(:, 2,24, 4) = (/ & - & 0.46414e+03,0.43489e+03,0.51060e+03,0.39517e+03,0.38437e+03 /) - kbo(:, 3,24, 4) = (/ & - & 0.46383e+03,0.43466e+03,0.51047e+03,0.39510e+03,0.38437e+03 /) - kbo(:, 4,24, 4) = (/ & - & 0.46356e+03,0.43445e+03,0.51033e+03,0.39504e+03,0.38437e+03 /) - kbo(:, 5,24, 4) = (/ & - & 0.46331e+03,0.43427e+03,0.51019e+03,0.39498e+03,0.38437e+03 /) - kbo(:, 1,25, 4) = (/ & - & 0.46348e+03,0.43439e+03,0.51003e+03,0.39502e+03,0.38437e+03 /) - kbo(:, 2,25, 4) = (/ & - & 0.46319e+03,0.43418e+03,0.50997e+03,0.39496e+03,0.38437e+03 /) - kbo(:, 3,25, 4) = (/ & - & 0.46295e+03,0.43400e+03,0.50987e+03,0.39490e+03,0.38437e+03 /) - kbo(:, 4,25, 4) = (/ & - & 0.46273e+03,0.43383e+03,0.50976e+03,0.39485e+03,0.38437e+03 /) - kbo(:, 5,25, 4) = (/ & - & 0.46254e+03,0.43369e+03,0.50965e+03,0.39480e+03,0.38437e+03 /) - kbo(:, 1,26, 4) = (/ & - & 0.46265e+03,0.43378e+03,0.50951e+03,0.39483e+03,0.38437e+03 /) - kbo(:, 2,26, 4) = (/ & - & 0.46243e+03,0.43361e+03,0.50946e+03,0.39478e+03,0.38437e+03 /) - kbo(:, 3,26, 4) = (/ & - & 0.46223e+03,0.43346e+03,0.50938e+03,0.39473e+03,0.38437e+03 /) - kbo(:, 4,26, 4) = (/ & - & 0.46206e+03,0.43333e+03,0.50930e+03,0.39469e+03,0.38437e+03 /) - kbo(:, 5,26, 4) = (/ & - & 0.46190e+03,0.43321e+03,0.50921e+03,0.39466e+03,0.38437e+03 /) - kbo(:, 1,27, 4) = (/ & - & 0.46199e+03,0.43328e+03,0.50908e+03,0.39468e+03,0.38437e+03 /) - kbo(:, 2,27, 4) = (/ & - & 0.46181e+03,0.43314e+03,0.50904e+03,0.39464e+03,0.38437e+03 /) - kbo(:, 3,27, 4) = (/ & - & 0.46165e+03,0.43303e+03,0.50899e+03,0.39460e+03,0.38437e+03 /) - kbo(:, 4,27, 4) = (/ & - & 0.46152e+03,0.43292e+03,0.50892e+03,0.39457e+03,0.38437e+03 /) - kbo(:, 5,27, 4) = (/ & - & 0.46139e+03,0.43283e+03,0.50885e+03,0.39454e+03,0.38437e+03 /) - kbo(:, 1,28, 4) = (/ & - & 0.46145e+03,0.43288e+03,0.50873e+03,0.39455e+03,0.38437e+03 /) - kbo(:, 2,28, 4) = (/ & - & 0.46131e+03,0.43277e+03,0.50871e+03,0.39452e+03,0.38437e+03 /) - kbo(:, 3,28, 4) = (/ & - & 0.46119e+03,0.43268e+03,0.50867e+03,0.39449e+03,0.38437e+03 /) - kbo(:, 4,28, 4) = (/ & - & 0.46108e+03,0.43259e+03,0.50862e+03,0.39447e+03,0.38437e+03 /) - kbo(:, 5,28, 4) = (/ & - & 0.46098e+03,0.43252e+03,0.50856e+03,0.39445e+03,0.38437e+03 /) - kbo(:, 1,29, 4) = (/ & - & 0.46102e+03,0.43255e+03,0.50845e+03,0.39445e+03,0.38437e+03 /) - kbo(:, 2,29, 4) = (/ & - & 0.46091e+03,0.43247e+03,0.50844e+03,0.39443e+03,0.38437e+03 /) - kbo(:, 3,29, 4) = (/ & - & 0.46081e+03,0.43239e+03,0.50842e+03,0.39441e+03,0.38437e+03 /) - kbo(:, 4,29, 4) = (/ & - & 0.46072e+03,0.43233e+03,0.50837e+03,0.39439e+03,0.38437e+03 /) - kbo(:, 5,29, 4) = (/ & - & 0.46064e+03,0.43227e+03,0.50832e+03,0.39437e+03,0.38437e+03 /) - kbo(:, 1,30, 4) = (/ & - & 0.46067e+03,0.43229e+03,0.50823e+03,0.39437e+03,0.38437e+03 /) - kbo(:, 2,30, 4) = (/ & - & 0.46058e+03,0.43223e+03,0.50823e+03,0.39435e+03,0.38437e+03 /) - kbo(:, 3,30, 4) = (/ & - & 0.46051e+03,0.43217e+03,0.50821e+03,0.39434e+03,0.38437e+03 /) - kbo(:, 4,30, 4) = (/ & - & 0.46044e+03,0.43211e+03,0.50818e+03,0.39432e+03,0.38437e+03 /) - kbo(:, 5,30, 4) = (/ & - & 0.46037e+03,0.43207e+03,0.50813e+03,0.39431e+03,0.38437e+03 /) - kbo(:, 1,31, 4) = (/ & - & 0.46039e+03,0.43208e+03,0.50805e+03,0.39431e+03,0.38437e+03 /) - kbo(:, 2,31, 4) = (/ & - & 0.46032e+03,0.43203e+03,0.50805e+03,0.39429e+03,0.38437e+03 /) - kbo(:, 3,31, 4) = (/ & - & 0.46026e+03,0.43198e+03,0.50804e+03,0.39428e+03,0.38437e+03 /) - kbo(:, 4,31, 4) = (/ & - & 0.46021e+03,0.43194e+03,0.50801e+03,0.39427e+03,0.38437e+03 /) - kbo(:, 5,31, 4) = (/ & - & 0.46016e+03,0.43190e+03,0.50797e+03,0.39426e+03,0.38437e+03 /) - kbo(:, 1,32, 4) = (/ & - & 0.46017e+03,0.43191e+03,0.50790e+03,0.39426e+03,0.38437e+03 /) - kbo(:, 2,32, 4) = (/ & - & 0.46011e+03,0.43187e+03,0.50792e+03,0.39425e+03,0.38437e+03 /) - kbo(:, 3,32, 4) = (/ & - & 0.46006e+03,0.43183e+03,0.50791e+03,0.39423e+03,0.38437e+03 /) - kbo(:, 4,32, 4) = (/ & - & 0.46002e+03,0.43180e+03,0.50788e+03,0.39422e+03,0.38437e+03 /) - kbo(:, 5,32, 4) = (/ & - & 0.45998e+03,0.43177e+03,0.50784e+03,0.39421e+03,0.38437e+03 /) - kbo(:, 1,33, 4) = (/ & - & 0.45999e+03,0.43178e+03,0.50779e+03,0.39422e+03,0.38437e+03 /) - kbo(:, 2,33, 4) = (/ & - & 0.45994e+03,0.43174e+03,0.50781e+03,0.39421e+03,0.38437e+03 /) - kbo(:, 3,33, 4) = (/ & - & 0.45990e+03,0.43171e+03,0.50780e+03,0.39420e+03,0.38437e+03 /) - kbo(:, 4,33, 4) = (/ & - & 0.45987e+03,0.43169e+03,0.50777e+03,0.39419e+03,0.38437e+03 /) - kbo(:, 5,33, 4) = (/ & - & 0.45984e+03,0.43166e+03,0.50773e+03,0.39418e+03,0.38437e+03 /) - kbo(:, 1,34, 4) = (/ & - & 0.45984e+03,0.43167e+03,0.50770e+03,0.39418e+03,0.38437e+03 /) - kbo(:, 2,34, 4) = (/ & - & 0.45981e+03,0.43164e+03,0.50772e+03,0.39418e+03,0.38437e+03 /) - kbo(:, 3,34, 4) = (/ & - & 0.45978e+03,0.43162e+03,0.50771e+03,0.39417e+03,0.38437e+03 /) - kbo(:, 4,34, 4) = (/ & - & 0.45975e+03,0.43160e+03,0.50768e+03,0.39416e+03,0.38437e+03 /) - kbo(:, 5,34, 4) = (/ & - & 0.45972e+03,0.43158e+03,0.50764e+03,0.39416e+03,0.38437e+03 /) - kbo(:, 1,35, 4) = (/ & - & 0.45973e+03,0.43158e+03,0.50763e+03,0.39416e+03,0.38437e+03 /) - kbo(:, 2,35, 4) = (/ & - & 0.45970e+03,0.43156e+03,0.50764e+03,0.39415e+03,0.38437e+03 /) - kbo(:, 3,35, 4) = (/ & - & 0.45968e+03,0.43154e+03,0.50764e+03,0.39414e+03,0.38437e+03 /) - kbo(:, 4,35, 4) = (/ & - & 0.45965e+03,0.43153e+03,0.50761e+03,0.39414e+03,0.38437e+03 /) - kbo(:, 5,35, 4) = (/ & - & 0.45963e+03,0.43151e+03,0.50757e+03,0.39413e+03,0.38437e+03 /) - kbo(:, 1,36, 4) = (/ & - & 0.45964e+03,0.43152e+03,0.50757e+03,0.39414e+03,0.38437e+03 /) - kbo(:, 2,36, 4) = (/ & - & 0.45962e+03,0.43150e+03,0.50758e+03,0.39413e+03,0.38437e+03 /) - kbo(:, 3,36, 4) = (/ & - & 0.45960e+03,0.43148e+03,0.50758e+03,0.39413e+03,0.38437e+03 /) - kbo(:, 4,36, 4) = (/ & - & 0.45958e+03,0.43147e+03,0.50756e+03,0.39412e+03,0.38437e+03 /) - kbo(:, 5,36, 4) = (/ & - & 0.45956e+03,0.43146e+03,0.50752e+03,0.39412e+03,0.38437e+03 /) - kbo(:, 1,37, 4) = (/ & - & 0.45957e+03,0.43146e+03,0.50751e+03,0.39412e+03,0.38437e+03 /) - kbo(:, 2,37, 4) = (/ & - & 0.45955e+03,0.43145e+03,0.50753e+03,0.39412e+03,0.38437e+03 /) - kbo(:, 3,37, 4) = (/ & - & 0.45953e+03,0.43144e+03,0.50754e+03,0.39411e+03,0.38437e+03 /) - kbo(:, 4,37, 4) = (/ & - & 0.45952e+03,0.43142e+03,0.50752e+03,0.39411e+03,0.38437e+03 /) - kbo(:, 5,37, 4) = (/ & - & 0.45950e+03,0.43141e+03,0.50748e+03,0.39411e+03,0.38437e+03 /) - kbo(:, 1,38, 4) = (/ & - & 0.45951e+03,0.43142e+03,0.50746e+03,0.39411e+03,0.38437e+03 /) - kbo(:, 2,38, 4) = (/ & - & 0.45950e+03,0.43141e+03,0.50749e+03,0.39410e+03,0.38437e+03 /) - kbo(:, 3,38, 4) = (/ & - & 0.45948e+03,0.43140e+03,0.50750e+03,0.39410e+03,0.38437e+03 /) - kbo(:, 4,38, 4) = (/ & - & 0.45947e+03,0.43139e+03,0.50749e+03,0.39410e+03,0.38437e+03 /) - kbo(:, 5,38, 4) = (/ & - & 0.45946e+03,0.43138e+03,0.50745e+03,0.39409e+03,0.38437e+03 /) - kbo(:, 1,39, 4) = (/ & - & 0.45946e+03,0.43138e+03,0.50742e+03,0.39410e+03,0.38437e+03 /) - kbo(:, 2,39, 4) = (/ & - & 0.45945e+03,0.43137e+03,0.50746e+03,0.39409e+03,0.38437e+03 /) - kbo(:, 3,39, 4) = (/ & - & 0.45944e+03,0.43137e+03,0.50747e+03,0.39409e+03,0.38437e+03 /) - kbo(:, 4,39, 4) = (/ & - & 0.45943e+03,0.43136e+03,0.50746e+03,0.39409e+03,0.38437e+03 /) - kbo(:, 5,39, 4) = (/ & - & 0.45942e+03,0.43135e+03,0.50743e+03,0.39409e+03,0.38437e+03 /) - kbo(:, 1,40, 4) = (/ & - & 0.45943e+03,0.43136e+03,0.50738e+03,0.39409e+03,0.38437e+03 /) - kbo(:, 2,40, 4) = (/ & - & 0.45941e+03,0.43135e+03,0.50742e+03,0.39408e+03,0.38437e+03 /) - kbo(:, 3,40, 4) = (/ & - & 0.45940e+03,0.43134e+03,0.50744e+03,0.39408e+03,0.38437e+03 /) - kbo(:, 4,40, 4) = (/ & - & 0.45940e+03,0.43133e+03,0.50744e+03,0.39408e+03,0.38437e+03 /) - kbo(:, 5,40, 4) = (/ & - & 0.45939e+03,0.43133e+03,0.50742e+03,0.39408e+03,0.38437e+03 /) - kbo(:, 1,41, 4) = (/ & - & 0.45939e+03,0.43133e+03,0.50734e+03,0.39408e+03,0.38437e+03 /) - kbo(:, 2,41, 4) = (/ & - & 0.45938e+03,0.43133e+03,0.50739e+03,0.39408e+03,0.38437e+03 /) - kbo(:, 3,41, 4) = (/ & - & 0.45938e+03,0.43132e+03,0.50742e+03,0.39408e+03,0.38437e+03 /) - kbo(:, 4,41, 4) = (/ & - & 0.45937e+03,0.43131e+03,0.50742e+03,0.39407e+03,0.38437e+03 /) - kbo(:, 5,41, 4) = (/ & - & 0.45936e+03,0.43131e+03,0.50741e+03,0.39407e+03,0.38437e+03 /) - kbo(:, 1,42, 4) = (/ & - & 0.45937e+03,0.43131e+03,0.50731e+03,0.39407e+03,0.38437e+03 /) - kbo(:, 2,42, 4) = (/ & - & 0.45936e+03,0.43131e+03,0.50736e+03,0.39407e+03,0.38437e+03 /) - kbo(:, 3,42, 4) = (/ & - & 0.45935e+03,0.43130e+03,0.50739e+03,0.39407e+03,0.38437e+03 /) - kbo(:, 4,42, 4) = (/ & - & 0.45935e+03,0.43130e+03,0.50741e+03,0.39407e+03,0.38437e+03 /) - kbo(:, 5,42, 4) = (/ & - & 0.45934e+03,0.43129e+03,0.50740e+03,0.39407e+03,0.38437e+03 /) - kbo(:, 1,43, 4) = (/ & - & 0.45935e+03,0.43130e+03,0.50727e+03,0.39407e+03,0.38437e+03 /) - kbo(:, 2,43, 4) = (/ & - & 0.45934e+03,0.43129e+03,0.50733e+03,0.39407e+03,0.38437e+03 /) - kbo(:, 3,43, 4) = (/ & - & 0.45933e+03,0.43129e+03,0.50737e+03,0.39407e+03,0.38437e+03 /) - kbo(:, 4,43, 4) = (/ & - & 0.45933e+03,0.43128e+03,0.50739e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 5,43, 4) = (/ & - & 0.45932e+03,0.43128e+03,0.50739e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 1,44, 4) = (/ & - & 0.45933e+03,0.43128e+03,0.50723e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 2,44, 4) = (/ & - & 0.45932e+03,0.43128e+03,0.50730e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 3,44, 4) = (/ & - & 0.45932e+03,0.43128e+03,0.50735e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 4,44, 4) = (/ & - & 0.45931e+03,0.43127e+03,0.50737e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 5,44, 4) = (/ & - & 0.45931e+03,0.43127e+03,0.50738e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 1,45, 4) = (/ & - & 0.45931e+03,0.43127e+03,0.50718e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 2,45, 4) = (/ & - & 0.45931e+03,0.43127e+03,0.50727e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 3,45, 4) = (/ & - & 0.45930e+03,0.43127e+03,0.50732e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 4,45, 4) = (/ & - & 0.45930e+03,0.43126e+03,0.50736e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 5,45, 4) = (/ & - & 0.45930e+03,0.43126e+03,0.50737e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 1,46, 4) = (/ & - & 0.45930e+03,0.43126e+03,0.50714e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 2,46, 4) = (/ & - & 0.45930e+03,0.43126e+03,0.50723e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 3,46, 4) = (/ & - & 0.45929e+03,0.43126e+03,0.50730e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 4,46, 4) = (/ & - & 0.45929e+03,0.43125e+03,0.50734e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 5,46, 4) = (/ & - & 0.45929e+03,0.43125e+03,0.50736e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 1,47, 4) = (/ & - & 0.45929e+03,0.43126e+03,0.50708e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 2,47, 4) = (/ & - & 0.45929e+03,0.43125e+03,0.50719e+03,0.39406e+03,0.38437e+03 /) - kbo(:, 3,47, 4) = (/ & - & 0.45928e+03,0.43125e+03,0.50727e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,47, 4) = (/ & - & 0.45928e+03,0.43125e+03,0.50732e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,47, 4) = (/ & - & 0.45928e+03,0.43125e+03,0.50735e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,48, 4) = (/ & - & 0.45928e+03,0.43125e+03,0.50701e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,48, 4) = (/ & - & 0.45928e+03,0.43125e+03,0.50714e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,48, 4) = (/ & - & 0.45928e+03,0.43124e+03,0.50723e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,48, 4) = (/ & - & 0.45927e+03,0.43124e+03,0.50729e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,48, 4) = (/ & - & 0.45927e+03,0.43124e+03,0.50733e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,49, 4) = (/ & - & 0.45928e+03,0.43124e+03,0.50694e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,49, 4) = (/ & - & 0.45927e+03,0.43124e+03,0.50709e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,49, 4) = (/ & - & 0.45927e+03,0.43124e+03,0.50720e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,49, 4) = (/ & - & 0.45927e+03,0.43124e+03,0.50727e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,49, 4) = (/ & - & 0.45927e+03,0.43124e+03,0.50732e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,50, 4) = (/ & - & 0.45927e+03,0.43124e+03,0.50686e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,50, 4) = (/ & - & 0.45927e+03,0.43124e+03,0.50704e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,50, 4) = (/ & - & 0.45927e+03,0.43124e+03,0.50716e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,50, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50724e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,50, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50730e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,51, 4) = (/ & - & 0.45926e+03,0.43124e+03,0.50679e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,51, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50697e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,51, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50711e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,51, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50721e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,51, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50728e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,52, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50671e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,52, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50691e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,52, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50707e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,52, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50718e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,52, 4) = (/ & - & 0.45925e+03,0.43123e+03,0.50725e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,53, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50663e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,53, 4) = (/ & - & 0.45926e+03,0.43123e+03,0.50684e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,53, 4) = (/ & - & 0.45925e+03,0.43123e+03,0.50701e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,53, 4) = (/ & - & 0.45925e+03,0.43123e+03,0.50714e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,53, 4) = (/ & - & 0.45925e+03,0.43123e+03,0.50722e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,54, 4) = (/ & - & 0.45925e+03,0.43123e+03,0.50655e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,54, 4) = (/ & - & 0.45925e+03,0.43123e+03,0.50677e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,54, 4) = (/ & - & 0.45925e+03,0.43123e+03,0.50696e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,54, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50710e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,54, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50720e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,55, 4) = (/ & - & 0.45925e+03,0.43123e+03,0.50647e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,55, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50670e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,55, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50690e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,55, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50706e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,55, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50717e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,56, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50640e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,56, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50663e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,56, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50683e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,56, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50701e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,56, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50714e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,57, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50632e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,57, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50656e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,57, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50677e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,57, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50696e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,57, 4) = (/ & - & 0.45924e+03,0.43122e+03,0.50710e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,58, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50624e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,58, 4) = (/ & - & 0.45925e+03,0.43122e+03,0.50648e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,58, 4) = (/ & - & 0.45924e+03,0.43122e+03,0.50671e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,58, 4) = (/ & - & 0.45924e+03,0.43122e+03,0.50690e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,58, 4) = (/ & - & 0.45924e+03,0.43122e+03,0.50706e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,59, 4) = (/ & - & 0.45924e+03,0.43122e+03,0.50622e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 2,59, 4) = (/ & - & 0.45924e+03,0.43122e+03,0.50645e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 3,59, 4) = (/ & - & 0.45924e+03,0.43122e+03,0.50668e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 4,59, 4) = (/ & - & 0.45924e+03,0.43122e+03,0.50688e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 5,59, 4) = (/ & - & 0.45924e+03,0.43122e+03,0.50704e+03,0.39405e+03,0.38437e+03 /) - kbo(:, 1,13, 5) = (/ & - & 0.78037e+03,0.62743e+03,0.56495e+03,0.56633e+03,0.67117e+03 /) - kbo(:, 2,13, 5) = (/ & - & 0.77434e+03,0.62291e+03,0.56343e+03,0.56584e+03,0.67117e+03 /) - kbo(:, 3,13, 5) = (/ & - & 0.76915e+03,0.61902e+03,0.56189e+03,0.56542e+03,0.67117e+03 /) - kbo(:, 4,13, 5) = (/ & - & 0.76464e+03,0.61563e+03,0.56027e+03,0.56506e+03,0.67117e+03 /) - kbo(:, 5,13, 5) = (/ & - & 0.76068e+03,0.61266e+03,0.55865e+03,0.56474e+03,0.67117e+03 /) - kbo(:, 1,14, 5) = (/ & - & 0.76527e+03,0.61611e+03,0.56011e+03,0.56511e+03,0.67117e+03 /) - kbo(:, 2,14, 5) = (/ & - & 0.76041e+03,0.61246e+03,0.55859e+03,0.56472e+03,0.67117e+03 /) - kbo(:, 3,14, 5) = (/ & - & 0.75622e+03,0.60932e+03,0.55696e+03,0.56438e+03,0.67117e+03 /) - kbo(:, 4,14, 5) = (/ & - & 0.75257e+03,0.60658e+03,0.55539e+03,0.56408e+03,0.67117e+03 /) - kbo(:, 5,14, 5) = (/ & - & 0.74936e+03,0.60417e+03,0.55391e+03,0.56383e+03,0.67117e+03 /) - kbo(:, 1,15, 5) = (/ & - & 0.75296e+03,0.60688e+03,0.55521e+03,0.56412e+03,0.67117e+03 /) - kbo(:, 2,15, 5) = (/ & - & 0.74904e+03,0.60394e+03,0.55372e+03,0.56380e+03,0.67117e+03 /) - kbo(:, 3,15, 5) = (/ & - & 0.74566e+03,0.60140e+03,0.55235e+03,0.56353e+03,0.67117e+03 /) - kbo(:, 4,15, 5) = (/ & - & 0.74271e+03,0.59919e+03,0.55103e+03,0.56329e+03,0.67117e+03 /) - kbo(:, 5,15, 5) = (/ & - & 0.74012e+03,0.59724e+03,0.54977e+03,0.56308e+03,0.67117e+03 /) - kbo(:, 1,16, 5) = (/ & - & 0.74295e+03,0.59937e+03,0.55079e+03,0.56331e+03,0.67117e+03 /) - kbo(:, 2,16, 5) = (/ & - & 0.73979e+03,0.59700e+03,0.54953e+03,0.56305e+03,0.67117e+03 /) - kbo(:, 3,16, 5) = (/ & - & 0.73707e+03,0.59495e+03,0.54828e+03,0.56283e+03,0.67117e+03 /) - kbo(:, 4,16, 5) = (/ & - & 0.73469e+03,0.59317e+03,0.54708e+03,0.56264e+03,0.67117e+03 /) - kbo(:, 5,16, 5) = (/ & - & 0.73259e+03,0.59160e+03,0.54600e+03,0.56247e+03,0.67117e+03 /) - kbo(:, 1,17, 5) = (/ & - & 0.73483e+03,0.59328e+03,0.54695e+03,0.56265e+03,0.67117e+03 /) - kbo(:, 2,17, 5) = (/ & - & 0.73229e+03,0.59137e+03,0.54572e+03,0.56245e+03,0.67117e+03 /) - kbo(:, 3,17, 5) = (/ & - & 0.73009e+03,0.58972e+03,0.54462e+03,0.56227e+03,0.67117e+03 /) - kbo(:, 4,17, 5) = (/ & - & 0.72817e+03,0.58828e+03,0.54366e+03,0.56212e+03,0.67117e+03 /) - kbo(:, 5,17, 5) = (/ & - & 0.72647e+03,0.58701e+03,0.54281e+03,0.56198e+03,0.67117e+03 /) - kbo(:, 1,18, 5) = (/ & - & 0.72825e+03,0.58834e+03,0.54354e+03,0.56212e+03,0.67117e+03 /) - kbo(:, 2,18, 5) = (/ & - & 0.72619e+03,0.58680e+03,0.54253e+03,0.56196e+03,0.67117e+03 /) - kbo(:, 3,18, 5) = (/ & - & 0.72442e+03,0.58547e+03,0.54166e+03,0.56181e+03,0.67117e+03 /) - kbo(:, 4,18, 5) = (/ & - & 0.72286e+03,0.58430e+03,0.54091e+03,0.56169e+03,0.67117e+03 /) - kbo(:, 5,18, 5) = (/ & - & 0.72150e+03,0.58328e+03,0.54024e+03,0.56158e+03,0.67117e+03 /) - kbo(:, 1,19, 5) = (/ & - & 0.72290e+03,0.58433e+03,0.54075e+03,0.56169e+03,0.67117e+03 /) - kbo(:, 2,19, 5) = (/ & - & 0.72124e+03,0.58309e+03,0.53996e+03,0.56156e+03,0.67117e+03 /) - kbo(:, 3,19, 5) = (/ & - & 0.71981e+03,0.58201e+03,0.53928e+03,0.56144e+03,0.67117e+03 /) - kbo(:, 4,19, 5) = (/ & - & 0.71856e+03,0.58107e+03,0.53868e+03,0.56134e+03,0.67117e+03 /) - kbo(:, 5,19, 5) = (/ & - & 0.71745e+03,0.58024e+03,0.53816e+03,0.56125e+03,0.67117e+03 /) - kbo(:, 1,20, 5) = (/ & - & 0.71853e+03,0.58105e+03,0.53849e+03,0.56134e+03,0.67117e+03 /) - kbo(:, 2,20, 5) = (/ & - & 0.71720e+03,0.58006e+03,0.53788e+03,0.56123e+03,0.67117e+03 /) - kbo(:, 3,20, 5) = (/ & - & 0.71605e+03,0.57919e+03,0.53734e+03,0.56114e+03,0.67117e+03 /) - kbo(:, 4,20, 5) = (/ & - & 0.71504e+03,0.57843e+03,0.53687e+03,0.56106e+03,0.67117e+03 /) - kbo(:, 5,20, 5) = (/ & - & 0.71414e+03,0.57776e+03,0.53643e+03,0.56098e+03,0.67117e+03 /) - kbo(:, 1,21, 5) = (/ & - & 0.71499e+03,0.57840e+03,0.53667e+03,0.56105e+03,0.67117e+03 /) - kbo(:, 2,21, 5) = (/ & - & 0.71392e+03,0.57759e+03,0.53620e+03,0.56097e+03,0.67117e+03 /) - kbo(:, 3,21, 5) = (/ & - & 0.71299e+03,0.57690e+03,0.53578e+03,0.56089e+03,0.67117e+03 /) - kbo(:, 4,21, 5) = (/ & - & 0.71217e+03,0.57628e+03,0.53541e+03,0.56083e+03,0.67117e+03 /) - kbo(:, 5,21, 5) = (/ & - & 0.71145e+03,0.57574e+03,0.53506e+03,0.56077e+03,0.67117e+03 /) - kbo(:, 1,22, 5) = (/ & - & 0.71206e+03,0.57620e+03,0.53519e+03,0.56082e+03,0.67117e+03 /) - kbo(:, 2,22, 5) = (/ & - & 0.71120e+03,0.57555e+03,0.53482e+03,0.56075e+03,0.67117e+03 /) - kbo(:, 3,22, 5) = (/ & - & 0.71046e+03,0.57500e+03,0.53450e+03,0.56069e+03,0.67117e+03 /) - kbo(:, 4,22, 5) = (/ & - & 0.70981e+03,0.57451e+03,0.53420e+03,0.56064e+03,0.67117e+03 /) - kbo(:, 5,22, 5) = (/ & - & 0.70923e+03,0.57408e+03,0.53390e+03,0.56059e+03,0.67117e+03 /) - kbo(:, 1,23, 5) = (/ & - & 0.70968e+03,0.57442e+03,0.53396e+03,0.56063e+03,0.67117e+03 /) - kbo(:, 2,23, 5) = (/ & - & 0.70900e+03,0.57391e+03,0.53367e+03,0.56057e+03,0.67117e+03 /) - kbo(:, 3,23, 5) = (/ & - & 0.70841e+03,0.57346e+03,0.53341e+03,0.56052e+03,0.67117e+03 /) - kbo(:, 4,23, 5) = (/ & - & 0.70789e+03,0.57307e+03,0.53316e+03,0.56048e+03,0.67117e+03 /) - kbo(:, 5,23, 5) = (/ & - & 0.70743e+03,0.57272e+03,0.53290e+03,0.56044e+03,0.67117e+03 /) - kbo(:, 1,24, 5) = (/ & - & 0.70776e+03,0.57298e+03,0.53293e+03,0.56047e+03,0.67117e+03 /) - kbo(:, 2,24, 5) = (/ & - & 0.70722e+03,0.57257e+03,0.53269e+03,0.56043e+03,0.67117e+03 /) - kbo(:, 3,24, 5) = (/ & - & 0.70675e+03,0.57222e+03,0.53248e+03,0.56039e+03,0.67117e+03 /) - kbo(:, 4,24, 5) = (/ & - & 0.70633e+03,0.57190e+03,0.53228e+03,0.56036e+03,0.67117e+03 /) - kbo(:, 5,24, 5) = (/ & - & 0.70596e+03,0.57163e+03,0.53207e+03,0.56033e+03,0.67117e+03 /) - kbo(:, 1,25, 5) = (/ & - & 0.70621e+03,0.57181e+03,0.53206e+03,0.56035e+03,0.67117e+03 /) - kbo(:, 2,25, 5) = (/ & - & 0.70578e+03,0.57149e+03,0.53188e+03,0.56031e+03,0.67117e+03 /) - kbo(:, 3,25, 5) = (/ & - & 0.70541e+03,0.57121e+03,0.53172e+03,0.56028e+03,0.67117e+03 /) - kbo(:, 4,25, 5) = (/ & - & 0.70507e+03,0.57096e+03,0.53156e+03,0.56025e+03,0.67117e+03 /) - kbo(:, 5,25, 5) = (/ & - & 0.70478e+03,0.57074e+03,0.53138e+03,0.56023e+03,0.67117e+03 /) - kbo(:, 1,26, 5) = (/ & - & 0.70496e+03,0.57087e+03,0.53135e+03,0.56024e+03,0.67117e+03 /) - kbo(:, 2,26, 5) = (/ & - & 0.70461e+03,0.57061e+03,0.53122e+03,0.56022e+03,0.67117e+03 /) - kbo(:, 3,26, 5) = (/ & - & 0.70432e+03,0.57039e+03,0.53110e+03,0.56019e+03,0.67117e+03 /) - kbo(:, 4,26, 5) = (/ & - & 0.70405e+03,0.57019e+03,0.53097e+03,0.56017e+03,0.67117e+03 /) - kbo(:, 5,26, 5) = (/ & - & 0.70382e+03,0.57001e+03,0.53082e+03,0.56015e+03,0.67117e+03 /) - kbo(:, 1,27, 5) = (/ & - & 0.70394e+03,0.57011e+03,0.53077e+03,0.56016e+03,0.67117e+03 /) - kbo(:, 2,27, 5) = (/ & - & 0.70367e+03,0.56991e+03,0.53069e+03,0.56014e+03,0.67117e+03 /) - kbo(:, 3,27, 5) = (/ & - & 0.70343e+03,0.56973e+03,0.53060e+03,0.56012e+03,0.67117e+03 /) - kbo(:, 4,27, 5) = (/ & - & 0.70322e+03,0.56957e+03,0.53049e+03,0.56010e+03,0.67117e+03 /) - kbo(:, 5,27, 5) = (/ & - & 0.70304e+03,0.56943e+03,0.53036e+03,0.56009e+03,0.67117e+03 /) - kbo(:, 1,28, 5) = (/ & - & 0.70313e+03,0.56950e+03,0.53032e+03,0.56010e+03,0.67117e+03 /) - kbo(:, 2,28, 5) = (/ & - & 0.70291e+03,0.56934e+03,0.53026e+03,0.56008e+03,0.67117e+03 /) - kbo(:, 3,28, 5) = (/ & - & 0.70272e+03,0.56920e+03,0.53019e+03,0.56006e+03,0.67117e+03 /) - kbo(:, 4,28, 5) = (/ & - & 0.70256e+03,0.56907e+03,0.53010e+03,0.56005e+03,0.67117e+03 /) - kbo(:, 5,28, 5) = (/ & - & 0.70241e+03,0.56896e+03,0.52998e+03,0.56004e+03,0.67117e+03 /) - kbo(:, 1,29, 5) = (/ & - & 0.70247e+03,0.56901e+03,0.52995e+03,0.56004e+03,0.67117e+03 /) - kbo(:, 2,29, 5) = (/ & - & 0.70230e+03,0.56888e+03,0.52991e+03,0.56003e+03,0.67117e+03 /) - kbo(:, 3,29, 5) = (/ & - & 0.70215e+03,0.56877e+03,0.52985e+03,0.56002e+03,0.67117e+03 /) - kbo(:, 4,29, 5) = (/ & - & 0.70202e+03,0.56867e+03,0.52978e+03,0.56001e+03,0.67117e+03 /) - kbo(:, 5,29, 5) = (/ & - & 0.70190e+03,0.56858e+03,0.52967e+03,0.56000e+03,0.67117e+03 /) - kbo(:, 1,30, 5) = (/ & - & 0.70194e+03,0.56861e+03,0.52966e+03,0.56000e+03,0.67117e+03 /) - kbo(:, 2,30, 5) = (/ & - & 0.70181e+03,0.56851e+03,0.52963e+03,0.55999e+03,0.67117e+03 /) - kbo(:, 3,30, 5) = (/ & - & 0.70169e+03,0.56842e+03,0.52958e+03,0.55998e+03,0.67117e+03 /) - kbo(:, 4,30, 5) = (/ & - & 0.70158e+03,0.56834e+03,0.52951e+03,0.55997e+03,0.67117e+03 /) - kbo(:, 5,30, 5) = (/ & - & 0.70149e+03,0.56827e+03,0.52941e+03,0.55996e+03,0.67117e+03 /) - kbo(:, 1,31, 5) = (/ & - & 0.70151e+03,0.56829e+03,0.52942e+03,0.55997e+03,0.67117e+03 /) - kbo(:, 2,31, 5) = (/ & - & 0.70141e+03,0.56821e+03,0.52941e+03,0.55996e+03,0.67117e+03 /) - kbo(:, 3,31, 5) = (/ & - & 0.70131e+03,0.56814e+03,0.52936e+03,0.55995e+03,0.67117e+03 /) - kbo(:, 4,31, 5) = (/ & - & 0.70123e+03,0.56807e+03,0.52930e+03,0.55994e+03,0.67117e+03 /) - kbo(:, 5,31, 5) = (/ & - & 0.70115e+03,0.56802e+03,0.52920e+03,0.55994e+03,0.67117e+03 /) - kbo(:, 1,32, 5) = (/ & - & 0.70117e+03,0.56803e+03,0.52924e+03,0.55994e+03,0.67117e+03 /) - kbo(:, 2,32, 5) = (/ & - & 0.70109e+03,0.56797e+03,0.52922e+03,0.55993e+03,0.67117e+03 /) - kbo(:, 3,32, 5) = (/ & - & 0.70101e+03,0.56791e+03,0.52919e+03,0.55993e+03,0.67117e+03 /) - kbo(:, 4,32, 5) = (/ & - & 0.70094e+03,0.56786e+03,0.52912e+03,0.55992e+03,0.67117e+03 /) - kbo(:, 5,32, 5) = (/ & - & 0.70088e+03,0.56782e+03,0.52902e+03,0.55992e+03,0.67117e+03 /) - kbo(:, 1,33, 5) = (/ & - & 0.70090e+03,0.56782e+03,0.52908e+03,0.55992e+03,0.67117e+03 /) - kbo(:, 2,33, 5) = (/ & - & 0.70083e+03,0.56777e+03,0.52907e+03,0.55991e+03,0.67117e+03 /) - kbo(:, 3,33, 5) = (/ & - & 0.70077e+03,0.56773e+03,0.52904e+03,0.55991e+03,0.67117e+03 /) - kbo(:, 4,33, 5) = (/ & - & 0.70072e+03,0.56769e+03,0.52897e+03,0.55990e+03,0.67117e+03 /) - kbo(:, 5,33, 5) = (/ & - & 0.70067e+03,0.56765e+03,0.52887e+03,0.55990e+03,0.67117e+03 /) - kbo(:, 1,34, 5) = (/ & - & 0.70068e+03,0.56766e+03,0.52896e+03,0.55990e+03,0.67117e+03 /) - kbo(:, 2,34, 5) = (/ & - & 0.70062e+03,0.56762e+03,0.52895e+03,0.55989e+03,0.67117e+03 /) - kbo(:, 3,34, 5) = (/ & - & 0.70057e+03,0.56758e+03,0.52892e+03,0.55989e+03,0.67117e+03 /) - kbo(:, 4,34, 5) = (/ & - & 0.70053e+03,0.56755e+03,0.52885e+03,0.55989e+03,0.67117e+03 /) - kbo(:, 5,34, 5) = (/ & - & 0.70049e+03,0.56752e+03,0.52874e+03,0.55988e+03,0.67117e+03 /) - kbo(:, 1,35, 5) = (/ & - & 0.70050e+03,0.56753e+03,0.52886e+03,0.55988e+03,0.67117e+03 /) - kbo(:, 2,35, 5) = (/ & - & 0.70046e+03,0.56750e+03,0.52885e+03,0.55988e+03,0.67117e+03 /) - kbo(:, 3,35, 5) = (/ & - & 0.70042e+03,0.56747e+03,0.52883e+03,0.55988e+03,0.67117e+03 /) - kbo(:, 4,35, 5) = (/ & - & 0.70039e+03,0.56744e+03,0.52876e+03,0.55988e+03,0.67117e+03 /) - kbo(:, 5,35, 5) = (/ & - & 0.70035e+03,0.56742e+03,0.52864e+03,0.55987e+03,0.67117e+03 /) - kbo(:, 1,36, 5) = (/ & - & 0.70037e+03,0.56743e+03,0.52877e+03,0.55987e+03,0.67117e+03 /) - kbo(:, 2,36, 5) = (/ & - & 0.70033e+03,0.56740e+03,0.52878e+03,0.55987e+03,0.67117e+03 /) - kbo(:, 3,36, 5) = (/ & - & 0.70030e+03,0.56738e+03,0.52875e+03,0.55987e+03,0.67117e+03 /) - kbo(:, 4,36, 5) = (/ & - & 0.70027e+03,0.56736e+03,0.52869e+03,0.55987e+03,0.67117e+03 /) - kbo(:, 5,36, 5) = (/ & - & 0.70025e+03,0.56734e+03,0.52857e+03,0.55986e+03,0.67117e+03 /) - kbo(:, 1,37, 5) = (/ & - & 0.70026e+03,0.56735e+03,0.52870e+03,0.55986e+03,0.67117e+03 /) - kbo(:, 2,37, 5) = (/ & - & 0.70023e+03,0.56733e+03,0.52872e+03,0.55986e+03,0.67117e+03 /) - kbo(:, 3,37, 5) = (/ & - & 0.70020e+03,0.56731e+03,0.52870e+03,0.55986e+03,0.67117e+03 /) - kbo(:, 4,37, 5) = (/ & - & 0.70018e+03,0.56729e+03,0.52864e+03,0.55986e+03,0.67117e+03 /) - kbo(:, 5,37, 5) = (/ & - & 0.70016e+03,0.56727e+03,0.52854e+03,0.55986e+03,0.67117e+03 /) - kbo(:, 1,38, 5) = (/ & - & 0.70017e+03,0.56728e+03,0.52864e+03,0.55986e+03,0.67117e+03 /) - kbo(:, 2,38, 5) = (/ & - & 0.70015e+03,0.56726e+03,0.52866e+03,0.55986e+03,0.67117e+03 /) - kbo(:, 3,38, 5) = (/ & - & 0.70012e+03,0.56725e+03,0.52866e+03,0.55985e+03,0.67117e+03 /) - kbo(:, 4,38, 5) = (/ & - & 0.70010e+03,0.56723e+03,0.52860e+03,0.55985e+03,0.67117e+03 /) - kbo(:, 5,38, 5) = (/ & - & 0.70009e+03,0.56722e+03,0.52852e+03,0.55985e+03,0.67117e+03 /) - kbo(:, 1,39, 5) = (/ & - & 0.70010e+03,0.56723e+03,0.52860e+03,0.55985e+03,0.67117e+03 /) - kbo(:, 2,39, 5) = (/ & - & 0.70008e+03,0.56721e+03,0.52862e+03,0.55985e+03,0.67117e+03 /) - kbo(:, 3,39, 5) = (/ & - & 0.70006e+03,0.56720e+03,0.52861e+03,0.55985e+03,0.67117e+03 /) - kbo(:, 4,39, 5) = (/ & - & 0.70004e+03,0.56719e+03,0.52858e+03,0.55985e+03,0.67117e+03 /) - kbo(:, 5,39, 5) = (/ & - & 0.70003e+03,0.56717e+03,0.52850e+03,0.55985e+03,0.67117e+03 /) - kbo(:, 1,40, 5) = (/ & - & 0.70004e+03,0.56718e+03,0.52855e+03,0.55985e+03,0.67117e+03 /) - kbo(:, 2,40, 5) = (/ & - & 0.70002e+03,0.56717e+03,0.52858e+03,0.55985e+03,0.67117e+03 /) - kbo(:, 3,40, 5) = (/ & - & 0.70001e+03,0.56716e+03,0.52859e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 4,40, 5) = (/ & - & 0.69999e+03,0.56715e+03,0.52856e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 5,40, 5) = (/ & - & 0.69998e+03,0.56714e+03,0.52849e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 1,41, 5) = (/ & - & 0.69999e+03,0.56715e+03,0.52850e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 2,41, 5) = (/ & - & 0.69998e+03,0.56714e+03,0.52854e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 3,41, 5) = (/ & - & 0.69996e+03,0.56713e+03,0.52856e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 4,41, 5) = (/ & - & 0.69995e+03,0.56712e+03,0.52854e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 5,41, 5) = (/ & - & 0.69994e+03,0.56711e+03,0.52848e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 1,42, 5) = (/ & - & 0.69995e+03,0.56712e+03,0.52846e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 2,42, 5) = (/ & - & 0.69994e+03,0.56711e+03,0.52851e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 3,42, 5) = (/ & - & 0.69993e+03,0.56710e+03,0.52853e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 4,42, 5) = (/ & - & 0.69992e+03,0.56709e+03,0.52853e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 5,42, 5) = (/ & - & 0.69991e+03,0.56709e+03,0.52848e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 1,43, 5) = (/ & - & 0.69992e+03,0.56709e+03,0.52843e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 2,43, 5) = (/ & - & 0.69991e+03,0.56708e+03,0.52848e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 3,43, 5) = (/ & - & 0.69990e+03,0.56708e+03,0.52851e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 4,43, 5) = (/ & - & 0.69989e+03,0.56707e+03,0.52851e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 5,43, 5) = (/ & - & 0.69988e+03,0.56707e+03,0.52848e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,44, 5) = (/ & - & 0.69989e+03,0.56707e+03,0.52838e+03,0.55984e+03,0.67117e+03 /) - kbo(:, 2,44, 5) = (/ & - & 0.69988e+03,0.56707e+03,0.52844e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,44, 5) = (/ & - & 0.69988e+03,0.56706e+03,0.52848e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,44, 5) = (/ & - & 0.69987e+03,0.56705e+03,0.52850e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,44, 5) = (/ & - & 0.69986e+03,0.56705e+03,0.52849e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,45, 5) = (/ & - & 0.69987e+03,0.56706e+03,0.52834e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,45, 5) = (/ & - & 0.69986e+03,0.56705e+03,0.52841e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,45, 5) = (/ & - & 0.69986e+03,0.56704e+03,0.52846e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,45, 5) = (/ & - & 0.69985e+03,0.56704e+03,0.52848e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,45, 5) = (/ & - & 0.69984e+03,0.56704e+03,0.52848e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,46, 5) = (/ & - & 0.69985e+03,0.56704e+03,0.52830e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,46, 5) = (/ & - & 0.69984e+03,0.56704e+03,0.52837e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,46, 5) = (/ & - & 0.69984e+03,0.56703e+03,0.52843e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,46, 5) = (/ & - & 0.69983e+03,0.56703e+03,0.52847e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,46, 5) = (/ & - & 0.69983e+03,0.56703e+03,0.52848e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,47, 5) = (/ & - & 0.69984e+03,0.56703e+03,0.52826e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,47, 5) = (/ & - & 0.69983e+03,0.56703e+03,0.52834e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,47, 5) = (/ & - & 0.69982e+03,0.56702e+03,0.52840e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,47, 5) = (/ & - & 0.69982e+03,0.56702e+03,0.52845e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,47, 5) = (/ & - & 0.69982e+03,0.56702e+03,0.52847e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,48, 5) = (/ & - & 0.69982e+03,0.56702e+03,0.52821e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,48, 5) = (/ & - & 0.69982e+03,0.56702e+03,0.52830e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,48, 5) = (/ & - & 0.69981e+03,0.56701e+03,0.52837e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,48, 5) = (/ & - & 0.69981e+03,0.56701e+03,0.52842e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,48, 5) = (/ & - & 0.69981e+03,0.56701e+03,0.52845e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,49, 5) = (/ & - & 0.69981e+03,0.56701e+03,0.52817e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,49, 5) = (/ & - & 0.69981e+03,0.56701e+03,0.52825e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,49, 5) = (/ & - & 0.69980e+03,0.56701e+03,0.52833e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,49, 5) = (/ & - & 0.69980e+03,0.56700e+03,0.52840e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,49, 5) = (/ & - & 0.69980e+03,0.56700e+03,0.52844e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,50, 5) = (/ & - & 0.69980e+03,0.56701e+03,0.52812e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,50, 5) = (/ & - & 0.69980e+03,0.56700e+03,0.52821e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,50, 5) = (/ & - & 0.69980e+03,0.56700e+03,0.52830e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,50, 5) = (/ & - & 0.69979e+03,0.56700e+03,0.52837e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,50, 5) = (/ & - & 0.69979e+03,0.56700e+03,0.52842e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,51, 5) = (/ & - & 0.69979e+03,0.56700e+03,0.52807e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,51, 5) = (/ & - & 0.69979e+03,0.56700e+03,0.52818e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,51, 5) = (/ & - & 0.69979e+03,0.56699e+03,0.52827e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,51, 5) = (/ & - & 0.69979e+03,0.56699e+03,0.52834e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,51, 5) = (/ & - & 0.69978e+03,0.56699e+03,0.52841e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,52, 5) = (/ & - & 0.69979e+03,0.56699e+03,0.52802e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,52, 5) = (/ & - & 0.69979e+03,0.56699e+03,0.52814e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,52, 5) = (/ & - & 0.69978e+03,0.56699e+03,0.52823e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,52, 5) = (/ & - & 0.69978e+03,0.56699e+03,0.52831e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,52, 5) = (/ & - & 0.69978e+03,0.56699e+03,0.52838e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,53, 5) = (/ & - & 0.69978e+03,0.56699e+03,0.52798e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,53, 5) = (/ & - & 0.69978e+03,0.56699e+03,0.52809e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,53, 5) = (/ & - & 0.69978e+03,0.56699e+03,0.52820e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,53, 5) = (/ & - & 0.69978e+03,0.56699e+03,0.52828e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,53, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52836e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,54, 5) = (/ & - & 0.69978e+03,0.56699e+03,0.52794e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,54, 5) = (/ & - & 0.69978e+03,0.56699e+03,0.52804e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,54, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52816e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,54, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52825e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,54, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52833e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,55, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52790e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,55, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52801e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,55, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52812e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,55, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52822e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,55, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52830e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,56, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52786e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,56, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52797e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,56, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52808e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,56, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52819e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,56, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52827e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,57, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52781e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,57, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52794e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,57, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52805e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,57, 5) = (/ & - & 0.69976e+03,0.56698e+03,0.52815e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 5,57, 5) = (/ & - & 0.69976e+03,0.56698e+03,0.52825e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 1,58, 5) = (/ & - & 0.69977e+03,0.56698e+03,0.52777e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,58, 5) = (/ & - & 0.69976e+03,0.56698e+03,0.52790e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 3,58, 5) = (/ & - & 0.69976e+03,0.56698e+03,0.52801e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 4,58, 5) = (/ & - & 0.69976e+03,0.56698e+03,0.52812e+03,0.55982e+03,0.67117e+03 /) - kbo(:, 5,58, 5) = (/ & - & 0.69976e+03,0.56697e+03,0.52822e+03,0.55982e+03,0.67117e+03 /) - kbo(:, 1,59, 5) = (/ & - & 0.69976e+03,0.56698e+03,0.52775e+03,0.55983e+03,0.67117e+03 /) - kbo(:, 2,59, 5) = (/ & - & 0.69976e+03,0.56698e+03,0.52788e+03,0.55982e+03,0.67117e+03 /) - kbo(:, 3,59, 5) = (/ & - & 0.69976e+03,0.56697e+03,0.52801e+03,0.55982e+03,0.67117e+03 /) - kbo(:, 4,59, 5) = (/ & - & 0.69976e+03,0.56697e+03,0.52811e+03,0.55982e+03,0.67117e+03 /) - kbo(:, 5,59, 5) = (/ & - & 0.69976e+03,0.56697e+03,0.52821e+03,0.55982e+03,0.67117e+03 /) - kbo(:, 1,13, 6) = (/ & - & 0.99182e+03,0.76479e+03,0.58123e+03,0.73928e+03,0.94808e+03 /) - kbo(:, 2,13, 6) = (/ & - & 0.98417e+03,0.75904e+03,0.57888e+03,0.73991e+03,0.94920e+03 /) - kbo(:, 3,13, 6) = (/ & - & 0.97757e+03,0.75410e+03,0.57650e+03,0.74029e+03,0.94995e+03 /) - kbo(:, 4,13, 6) = (/ & - & 0.97184e+03,0.74980e+03,0.57428e+03,0.74046e+03,0.95033e+03 /) - kbo(:, 5,13, 6) = (/ & - & 0.96680e+03,0.74602e+03,0.57217e+03,0.74043e+03,0.95033e+03 /) - kbo(:, 1,14, 6) = (/ & - & 0.97264e+03,0.75040e+03,0.57482e+03,0.73884e+03,0.94820e+03 /) - kbo(:, 2,14, 6) = (/ & - & 0.96646e+03,0.74576e+03,0.57229e+03,0.73949e+03,0.94928e+03 /) - kbo(:, 3,14, 6) = (/ & - & 0.96113e+03,0.74177e+03,0.57016e+03,0.73988e+03,0.95000e+03 /) - kbo(:, 4,14, 6) = (/ & - & 0.95649e+03,0.73829e+03,0.56822e+03,0.74006e+03,0.95035e+03 /) - kbo(:, 5,14, 6) = (/ & - & 0.95242e+03,0.73523e+03,0.56635e+03,0.74003e+03,0.95032e+03 /) - kbo(:, 1,15, 6) = (/ & - & 0.95700e+03,0.73867e+03,0.56844e+03,0.73851e+03,0.94832e+03 /) - kbo(:, 2,15, 6) = (/ & - & 0.95201e+03,0.73493e+03,0.56632e+03,0.73916e+03,0.94937e+03 /) - kbo(:, 3,15, 6) = (/ & - & 0.94772e+03,0.73170e+03,0.56426e+03,0.73956e+03,0.95005e+03 /) - kbo(:, 4,15, 6) = (/ & - & 0.94397e+03,0.72889e+03,0.56242e+03,0.73973e+03,0.95035e+03 /) - kbo(:, 5,15, 6) = (/ & - & 0.94067e+03,0.72642e+03,0.56076e+03,0.73970e+03,0.95029e+03 /) - kbo(:, 1,16, 6) = (/ & - & 0.94427e+03,0.72912e+03,0.56257e+03,0.73826e+03,0.94846e+03 /) - kbo(:, 2,16, 6) = (/ & - & 0.94026e+03,0.72611e+03,0.56064e+03,0.73891e+03,0.94946e+03 /) - kbo(:, 3,16, 6) = (/ & - & 0.93679e+03,0.72351e+03,0.55906e+03,0.73929e+03,0.95011e+03 /) - kbo(:, 4,16, 6) = (/ & - & 0.93377e+03,0.72124e+03,0.55770e+03,0.73948e+03,0.95036e+03 /) - kbo(:, 5,16, 6) = (/ & - & 0.93110e+03,0.71925e+03,0.55641e+03,0.73943e+03,0.95027e+03 /) - kbo(:, 1,17, 6) = (/ & - & 0.93395e+03,0.72138e+03,0.55755e+03,0.73807e+03,0.94857e+03 /) - kbo(:, 2,17, 6) = (/ & - & 0.93072e+03,0.71896e+03,0.55622e+03,0.73871e+03,0.94955e+03 /) - kbo(:, 3,17, 6) = (/ & - & 0.92792e+03,0.71686e+03,0.55497e+03,0.73909e+03,0.95015e+03 /) - kbo(:, 4,17, 6) = (/ & - & 0.92548e+03,0.71503e+03,0.55372e+03,0.73925e+03,0.95038e+03 /) - kbo(:, 5,17, 6) = (/ & - & 0.92333e+03,0.71341e+03,0.55252e+03,0.73921e+03,0.95024e+03 /) - kbo(:, 1,18, 6) = (/ & - & 0.92558e+03,0.71510e+03,0.55360e+03,0.73792e+03,0.94869e+03 /) - kbo(:, 2,18, 6) = (/ & - & 0.92297e+03,0.71315e+03,0.55237e+03,0.73856e+03,0.94963e+03 /) - kbo(:, 3,18, 6) = (/ & - & 0.92072e+03,0.71146e+03,0.55114e+03,0.73892e+03,0.95019e+03 /) - kbo(:, 4,18, 6) = (/ & - & 0.91874e+03,0.70998e+03,0.55001e+03,0.73908e+03,0.95037e+03 /) - kbo(:, 5,18, 6) = (/ & - & 0.91700e+03,0.70867e+03,0.54903e+03,0.73903e+03,0.95021e+03 /) - kbo(:, 1,19, 6) = (/ & - & 0.91879e+03,0.71001e+03,0.55004e+03,0.73782e+03,0.94880e+03 /) - kbo(:, 2,19, 6) = (/ & - & 0.91668e+03,0.70843e+03,0.54889e+03,0.73844e+03,0.94970e+03 /) - kbo(:, 3,19, 6) = (/ & - & 0.91486e+03,0.70706e+03,0.54830e+03,0.73880e+03,0.95023e+03 /) - kbo(:, 4,19, 6) = (/ & - & 0.91327e+03,0.70587e+03,0.54705e+03,0.73894e+03,0.95037e+03 /) - kbo(:, 5,19, 6) = (/ & - & 0.91186e+03,0.70481e+03,0.54615e+03,0.73887e+03,0.95019e+03 /) - kbo(:, 1,20, 6) = (/ & - & 0.91324e+03,0.70585e+03,0.54718e+03,0.73776e+03,0.94893e+03 /) - kbo(:, 2,20, 6) = (/ & - & 0.91155e+03,0.70458e+03,0.54599e+03,0.73835e+03,0.94979e+03 /) - kbo(:, 3,20, 6) = (/ & - & 0.91008e+03,0.70348e+03,0.54519e+03,0.73870e+03,0.95026e+03 /) - kbo(:, 4,20, 6) = (/ & - & 0.90879e+03,0.70251e+03,0.54450e+03,0.73882e+03,0.95036e+03 /) - kbo(:, 5,20, 6) = (/ & - & 0.90766e+03,0.70166e+03,0.54390e+03,0.73874e+03,0.95013e+03 /) - kbo(:, 1,21, 6) = (/ & - & 0.90874e+03,0.70247e+03,0.54444e+03,0.73773e+03,0.94905e+03 /) - kbo(:, 2,21, 6) = (/ & - & 0.90737e+03,0.70145e+03,0.54370e+03,0.73831e+03,0.94986e+03 /) - kbo(:, 3,21, 6) = (/ & - & 0.90619e+03,0.70056e+03,0.54308e+03,0.73862e+03,0.95029e+03 /) - kbo(:, 4,21, 6) = (/ & - & 0.90515e+03,0.69978e+03,0.54255e+03,0.73872e+03,0.95035e+03 /) - kbo(:, 5,21, 6) = (/ & - & 0.90424e+03,0.69910e+03,0.54208e+03,0.73862e+03,0.95008e+03 /) - kbo(:, 1,22, 6) = (/ & - & 0.90500e+03,0.69967e+03,0.54240e+03,0.73776e+03,0.94923e+03 /) - kbo(:, 2,22, 6) = (/ & - & 0.90392e+03,0.69886e+03,0.54185e+03,0.73829e+03,0.94997e+03 /) - kbo(:, 3,22, 6) = (/ & - & 0.90297e+03,0.69815e+03,0.54138e+03,0.73857e+03,0.95033e+03 /) - kbo(:, 4,22, 6) = (/ & - & 0.90215e+03,0.69753e+03,0.54099e+03,0.73864e+03,0.95033e+03 /) - kbo(:, 5,22, 6) = (/ & - & 0.90141e+03,0.69698e+03,0.54066e+03,0.73851e+03,0.94999e+03 /) - kbo(:, 1,23, 6) = (/ & - & 0.90199e+03,0.69741e+03,0.54083e+03,0.73780e+03,0.94940e+03 /) - kbo(:, 2,23, 6) = (/ & - & 0.90112e+03,0.69676e+03,0.54044e+03,0.73828e+03,0.95007e+03 /) - kbo(:, 3,23, 6) = (/ & - & 0.90037e+03,0.69620e+03,0.54010e+03,0.73854e+03,0.95036e+03 /) - kbo(:, 4,23, 6) = (/ & - & 0.89971e+03,0.69570e+03,0.53983e+03,0.73858e+03,0.95029e+03 /) - kbo(:, 5,23, 6) = (/ & - & 0.89912e+03,0.69526e+03,0.53959e+03,0.73840e+03,0.94989e+03 /) - kbo(:, 1,24, 6) = (/ & - & 0.89955e+03,0.69558e+03,0.53965e+03,0.73787e+03,0.94957e+03 /) - kbo(:, 2,24, 6) = (/ & - & 0.89886e+03,0.69507e+03,0.53937e+03,0.73829e+03,0.95016e+03 /) - kbo(:, 3,24, 6) = (/ & - & 0.89826e+03,0.69461e+03,0.53914e+03,0.73851e+03,0.95038e+03 /) - kbo(:, 4,24, 6) = (/ & - & 0.89773e+03,0.69422e+03,0.53895e+03,0.73850e+03,0.95023e+03 /) - kbo(:, 5,24, 6) = (/ & - & 0.89726e+03,0.69387e+03,0.53876e+03,0.73829e+03,0.94977e+03 /) - kbo(:, 1,25, 6) = (/ & - & 0.89758e+03,0.69410e+03,0.53876e+03,0.73792e+03,0.94973e+03 /) - kbo(:, 2,25, 6) = (/ & - & 0.89703e+03,0.69369e+03,0.53857e+03,0.73831e+03,0.95024e+03 /) - kbo(:, 3,25, 6) = (/ & - & 0.89655e+03,0.69333e+03,0.53841e+03,0.73848e+03,0.95037e+03 /) - kbo(:, 4,25, 6) = (/ & - & 0.89613e+03,0.69302e+03,0.53826e+03,0.73843e+03,0.95016e+03 /) - kbo(:, 5,25, 6) = (/ & - & 0.89576e+03,0.69273e+03,0.53811e+03,0.73818e+03,0.94963e+03 /) - kbo(:, 1,26, 6) = (/ & - & 0.89598e+03,0.69290e+03,0.53808e+03,0.73799e+03,0.94987e+03 /) - kbo(:, 2,26, 6) = (/ & - & 0.89555e+03,0.69258e+03,0.53794e+03,0.73834e+03,0.95030e+03 /) - kbo(:, 3,26, 6) = (/ & - & 0.89517e+03,0.69229e+03,0.53782e+03,0.73845e+03,0.95035e+03 /) - kbo(:, 4,26, 6) = (/ & - & 0.89483e+03,0.69204e+03,0.53770e+03,0.73836e+03,0.95007e+03 /) - kbo(:, 5,26, 6) = (/ & - & 0.89453e+03,0.69182e+03,0.53759e+03,0.73806e+03,0.94946e+03 /) - kbo(:, 1,27, 6) = (/ & - & 0.89469e+03,0.69194e+03,0.53754e+03,0.73806e+03,0.95001e+03 /) - kbo(:, 2,27, 6) = (/ & - & 0.89435e+03,0.69168e+03,0.53744e+03,0.73835e+03,0.95034e+03 /) - kbo(:, 3,27, 6) = (/ & - & 0.89405e+03,0.69145e+03,0.53736e+03,0.73843e+03,0.95031e+03 /) - kbo(:, 4,27, 6) = (/ & - & 0.89378e+03,0.69125e+03,0.53727e+03,0.73828e+03,0.94995e+03 /) - kbo(:, 5,27, 6) = (/ & - & 0.89354e+03,0.69107e+03,0.53717e+03,0.73792e+03,0.94926e+03 /) - kbo(:, 1,28, 6) = (/ & - & 0.89366e+03,0.69116e+03,0.53711e+03,0.73814e+03,0.95012e+03 /) - kbo(:, 2,28, 6) = (/ & - & 0.89338e+03,0.69096e+03,0.53705e+03,0.73836e+03,0.95037e+03 /) - kbo(:, 3,28, 6) = (/ & - & 0.89314e+03,0.69078e+03,0.53699e+03,0.73838e+03,0.95026e+03 /) - kbo(:, 4,28, 6) = (/ & - & 0.89293e+03,0.69062e+03,0.53692e+03,0.73819e+03,0.94982e+03 /) - kbo(:, 5,28, 6) = (/ & - & 0.89274e+03,0.69047e+03,0.53684e+03,0.73778e+03,0.94904e+03 /) - kbo(:, 1,29, 6) = (/ & - & 0.89282e+03,0.69053e+03,0.53678e+03,0.73818e+03,0.95022e+03 /) - kbo(:, 2,29, 6) = (/ & - & 0.89261e+03,0.69037e+03,0.53674e+03,0.73837e+03,0.95037e+03 /) - kbo(:, 3,29, 6) = (/ & - & 0.89241e+03,0.69023e+03,0.53670e+03,0.73834e+03,0.95018e+03 /) - kbo(:, 4,29, 6) = (/ & - & 0.89224e+03,0.69010e+03,0.53663e+03,0.73810e+03,0.94966e+03 /) - kbo(:, 5,29, 6) = (/ & - & 0.89209e+03,0.68999e+03,0.53656e+03,0.73762e+03,0.94880e+03 /) - kbo(:, 1,30, 6) = (/ & - & 0.89215e+03,0.69003e+03,0.53652e+03,0.73823e+03,0.95029e+03 /) - kbo(:, 2,30, 6) = (/ & - & 0.89198e+03,0.68990e+03,0.53650e+03,0.73836e+03,0.95035e+03 /) - kbo(:, 3,30, 6) = (/ & - & 0.89183e+03,0.68979e+03,0.53646e+03,0.73828e+03,0.95008e+03 /) - kbo(:, 4,30, 6) = (/ & - & 0.89169e+03,0.68969e+03,0.53641e+03,0.73798e+03,0.94948e+03 /) - kbo(:, 5,30, 6) = (/ & - & 0.89157e+03,0.68960e+03,0.53634e+03,0.73744e+03,0.94852e+03 /) - kbo(:, 1,31, 6) = (/ & - & 0.89161e+03,0.68962e+03,0.53631e+03,0.73827e+03,0.95034e+03 /) - kbo(:, 2,31, 6) = (/ & - & 0.89147e+03,0.68952e+03,0.53629e+03,0.73835e+03,0.95031e+03 /) - kbo(:, 3,31, 6) = (/ & - & 0.89135e+03,0.68943e+03,0.53627e+03,0.73821e+03,0.94996e+03 /) - kbo(:, 4,31, 6) = (/ & - & 0.89124e+03,0.68935e+03,0.53622e+03,0.73786e+03,0.94927e+03 /) - kbo(:, 5,31, 6) = (/ & - & 0.89115e+03,0.68928e+03,0.53615e+03,0.73725e+03,0.94822e+03 /) - kbo(:, 1,32, 6) = (/ & - & 0.89117e+03,0.68930e+03,0.53614e+03,0.73830e+03,0.95037e+03 /) - kbo(:, 2,32, 6) = (/ & - & 0.89106e+03,0.68922e+03,0.53614e+03,0.73833e+03,0.95025e+03 /) - kbo(:, 3,32, 6) = (/ & - & 0.89097e+03,0.68914e+03,0.53611e+03,0.73813e+03,0.94981e+03 /) - kbo(:, 4,32, 6) = (/ & - & 0.89088e+03,0.68908e+03,0.53608e+03,0.73772e+03,0.94903e+03 /) - kbo(:, 5,32, 6) = (/ & - & 0.89081e+03,0.68902e+03,0.53600e+03,0.73703e+03,0.94789e+03 /) - kbo(:, 1,33, 6) = (/ & - & 0.89082e+03,0.68903e+03,0.53602e+03,0.73832e+03,0.95037e+03 /) - kbo(:, 2,33, 6) = (/ & - & 0.89073e+03,0.68897e+03,0.53601e+03,0.73829e+03,0.95017e+03 /) - kbo(:, 3,33, 6) = (/ & - & 0.89066e+03,0.68891e+03,0.53599e+03,0.73804e+03,0.94964e+03 /) - kbo(:, 4,33, 6) = (/ & - & 0.89059e+03,0.68886e+03,0.53595e+03,0.73756e+03,0.94877e+03 /) - kbo(:, 5,33, 6) = (/ & - & 0.89053e+03,0.68882e+03,0.53586e+03,0.73678e+03,0.94753e+03 /) - kbo(:, 1,34, 6) = (/ & - & 0.89054e+03,0.68882e+03,0.53592e+03,0.73832e+03,0.95035e+03 /) - kbo(:, 2,34, 6) = (/ & - & 0.89047e+03,0.68877e+03,0.53592e+03,0.73824e+03,0.95008e+03 /) - kbo(:, 3,34, 6) = (/ & - & 0.89041e+03,0.68873e+03,0.53589e+03,0.73795e+03,0.94947e+03 /) - kbo(:, 4,34, 6) = (/ & - & 0.89036e+03,0.68869e+03,0.53584e+03,0.73741e+03,0.94852e+03 /) - kbo(:, 5,34, 6) = (/ & - & 0.89031e+03,0.68865e+03,0.53575e+03,0.73655e+03,0.94719e+03 /) - kbo(:, 1,35, 6) = (/ & - & 0.89032e+03,0.68866e+03,0.53584e+03,0.73832e+03,0.95034e+03 /) - kbo(:, 2,35, 6) = (/ & - & 0.89027e+03,0.68862e+03,0.53584e+03,0.73821e+03,0.95002e+03 /) - kbo(:, 3,35, 6) = (/ & - & 0.89022e+03,0.68858e+03,0.53581e+03,0.73788e+03,0.94937e+03 /) - kbo(:, 4,35, 6) = (/ & - & 0.89017e+03,0.68855e+03,0.53576e+03,0.73731e+03,0.94836e+03 /) - kbo(:, 5,35, 6) = (/ & - & 0.89013e+03,0.68852e+03,0.53567e+03,0.73640e+03,0.94700e+03 /) - kbo(:, 1,36, 6) = (/ & - & 0.89015e+03,0.68853e+03,0.53577e+03,0.73831e+03,0.95033e+03 /) - kbo(:, 2,36, 6) = (/ & - & 0.89010e+03,0.68849e+03,0.53577e+03,0.73820e+03,0.95001e+03 /) - kbo(:, 3,36, 6) = (/ & - & 0.89006e+03,0.68846e+03,0.53575e+03,0.73787e+03,0.94935e+03 /) - kbo(:, 4,36, 6) = (/ & - & 0.89003e+03,0.68844e+03,0.53570e+03,0.73729e+03,0.94834e+03 /) - kbo(:, 5,36, 6) = (/ & - & 0.88999e+03,0.68841e+03,0.53561e+03,0.73637e+03,0.94696e+03 /) - kbo(:, 1,37, 6) = (/ & - & 0.89001e+03,0.68843e+03,0.53571e+03,0.73831e+03,0.95036e+03 /) - kbo(:, 2,37, 6) = (/ & - & 0.88997e+03,0.68840e+03,0.53572e+03,0.73823e+03,0.95007e+03 /) - kbo(:, 3,37, 6) = (/ & - & 0.88994e+03,0.68837e+03,0.53570e+03,0.73792e+03,0.94946e+03 /) - kbo(:, 4,37, 6) = (/ & - & 0.88991e+03,0.68835e+03,0.53566e+03,0.73738e+03,0.94849e+03 /) - kbo(:, 5,37, 6) = (/ & - & 0.88988e+03,0.68833e+03,0.53557e+03,0.73651e+03,0.94716e+03 /) - kbo(:, 1,38, 6) = (/ & - & 0.88990e+03,0.68834e+03,0.53566e+03,0.73830e+03,0.95036e+03 /) - kbo(:, 2,38, 6) = (/ & - & 0.88987e+03,0.68832e+03,0.53568e+03,0.73825e+03,0.95013e+03 /) - kbo(:, 3,38, 6) = (/ & - & 0.88984e+03,0.68830e+03,0.53566e+03,0.73798e+03,0.94957e+03 /) - kbo(:, 4,38, 6) = (/ & - & 0.88982e+03,0.68828e+03,0.53563e+03,0.73747e+03,0.94865e+03 /) - kbo(:, 5,38, 6) = (/ & - & 0.88979e+03,0.68826e+03,0.53555e+03,0.73665e+03,0.94737e+03 /) - kbo(:, 1,39, 6) = (/ & - & 0.88981e+03,0.68827e+03,0.53562e+03,0.73829e+03,0.95037e+03 /) - kbo(:, 2,39, 6) = (/ & - & 0.88978e+03,0.68825e+03,0.53564e+03,0.73826e+03,0.95018e+03 /) - kbo(:, 3,39, 6) = (/ & - & 0.88976e+03,0.68824e+03,0.53563e+03,0.73803e+03,0.94966e+03 /) - kbo(:, 4,39, 6) = (/ & - & 0.88974e+03,0.68822e+03,0.53560e+03,0.73755e+03,0.94880e+03 /) - kbo(:, 5,39, 6) = (/ & - & 0.88972e+03,0.68821e+03,0.53553e+03,0.73679e+03,0.94757e+03 /) - kbo(:, 1,40, 6) = (/ & - & 0.88973e+03,0.68822e+03,0.53558e+03,0.73826e+03,0.95037e+03 /) - kbo(:, 2,40, 6) = (/ & - & 0.88971e+03,0.68820e+03,0.53561e+03,0.73829e+03,0.95026e+03 /) - kbo(:, 3,40, 6) = (/ & - & 0.88969e+03,0.68819e+03,0.53561e+03,0.73810e+03,0.94982e+03 /) - kbo(:, 4,40, 6) = (/ & - & 0.88967e+03,0.68817e+03,0.53559e+03,0.73769e+03,0.94904e+03 /) - kbo(:, 5,40, 6) = (/ & - & 0.88966e+03,0.68816e+03,0.53553e+03,0.73700e+03,0.94790e+03 /) - kbo(:, 1,41, 6) = (/ & - & 0.88967e+03,0.68817e+03,0.53555e+03,0.73822e+03,0.95035e+03 /) - kbo(:, 2,41, 6) = (/ & - & 0.88965e+03,0.68816e+03,0.53558e+03,0.73830e+03,0.95031e+03 /) - kbo(:, 3,41, 6) = (/ & - & 0.88964e+03,0.68815e+03,0.53559e+03,0.73817e+03,0.94996e+03 /) - kbo(:, 4,41, 6) = (/ & - & 0.88962e+03,0.68813e+03,0.53558e+03,0.73782e+03,0.94927e+03 /) - kbo(:, 5,41, 6) = (/ & - & 0.88961e+03,0.68812e+03,0.53553e+03,0.73722e+03,0.94822e+03 /) - kbo(:, 1,42, 6) = (/ & - & 0.88962e+03,0.68813e+03,0.53551e+03,0.73816e+03,0.95029e+03 /) - kbo(:, 2,42, 6) = (/ & - & 0.88960e+03,0.68812e+03,0.53555e+03,0.73830e+03,0.95035e+03 /) - kbo(:, 3,42, 6) = (/ & - & 0.88959e+03,0.68811e+03,0.53557e+03,0.73822e+03,0.95008e+03 /) - kbo(:, 4,42, 6) = (/ & - & 0.88958e+03,0.68810e+03,0.53556e+03,0.73793e+03,0.94948e+03 /) - kbo(:, 5,42, 6) = (/ & - & 0.88957e+03,0.68809e+03,0.53553e+03,0.73739e+03,0.94853e+03 /) - kbo(:, 1,43, 6) = (/ & - & 0.88958e+03,0.68810e+03,0.53547e+03,0.73807e+03,0.95020e+03 /) - kbo(:, 2,43, 6) = (/ & - & 0.88957e+03,0.68809e+03,0.53552e+03,0.73828e+03,0.95037e+03 /) - kbo(:, 3,43, 6) = (/ & - & 0.88955e+03,0.68808e+03,0.53555e+03,0.73826e+03,0.95020e+03 /) - kbo(:, 4,43, 6) = (/ & - & 0.88954e+03,0.68808e+03,0.53555e+03,0.73804e+03,0.94970e+03 /) - kbo(:, 5,43, 6) = (/ & - & 0.88953e+03,0.68807e+03,0.53553e+03,0.73758e+03,0.94886e+03 /) - kbo(:, 1,44, 6) = (/ & - & 0.88954e+03,0.68808e+03,0.53544e+03,0.73795e+03,0.95005e+03 /) - kbo(:, 2,44, 6) = (/ & - & 0.88953e+03,0.68807e+03,0.53549e+03,0.73823e+03,0.95035e+03 /) - kbo(:, 3,44, 6) = (/ & - & 0.88952e+03,0.68806e+03,0.53553e+03,0.73829e+03,0.95030e+03 /) - kbo(:, 4,44, 6) = (/ & - & 0.88951e+03,0.68805e+03,0.53554e+03,0.73815e+03,0.94991e+03 /) - kbo(:, 5,44, 6) = (/ & - & 0.88951e+03,0.68805e+03,0.53553e+03,0.73776e+03,0.94919e+03 /) - kbo(:, 1,45, 6) = (/ & - & 0.88952e+03,0.68806e+03,0.53540e+03,0.73782e+03,0.94987e+03 /) - kbo(:, 2,45, 6) = (/ & - & 0.88951e+03,0.68805e+03,0.53547e+03,0.73816e+03,0.95030e+03 /) - kbo(:, 3,45, 6) = (/ & - & 0.88950e+03,0.68804e+03,0.53551e+03,0.73830e+03,0.95035e+03 /) - kbo(:, 4,45, 6) = (/ & - & 0.88949e+03,0.68804e+03,0.53553e+03,0.73821e+03,0.95008e+03 /) - kbo(:, 5,45, 6) = (/ & - & 0.88948e+03,0.68803e+03,0.53553e+03,0.73792e+03,0.94947e+03 /) - kbo(:, 1,46, 6) = (/ & - & 0.88949e+03,0.68804e+03,0.53537e+03,0.73763e+03,0.94962e+03 /) - kbo(:, 2,46, 6) = (/ & - & 0.88948e+03,0.68803e+03,0.53544e+03,0.73806e+03,0.95019e+03 /) - kbo(:, 3,46, 6) = (/ & - & 0.88948e+03,0.68803e+03,0.53549e+03,0.73827e+03,0.95037e+03 /) - kbo(:, 4,46, 6) = (/ & - & 0.88947e+03,0.68802e+03,0.53552e+03,0.73827e+03,0.95021e+03 /) - kbo(:, 5,46, 6) = (/ & - & 0.88946e+03,0.68802e+03,0.53552e+03,0.73805e+03,0.94973e+03 /) - kbo(:, 1,47, 6) = (/ & - & 0.88947e+03,0.68802e+03,0.53531e+03,0.73737e+03,0.94929e+03 /) - kbo(:, 2,47, 6) = (/ & - & 0.88947e+03,0.68802e+03,0.53539e+03,0.73792e+03,0.95000e+03 /) - kbo(:, 3,47, 6) = (/ & - & 0.88946e+03,0.68801e+03,0.53546e+03,0.73821e+03,0.95034e+03 /) - kbo(:, 4,47, 6) = (/ & - & 0.88945e+03,0.68801e+03,0.53550e+03,0.73829e+03,0.95032e+03 /) - kbo(:, 5,47, 6) = (/ & - & 0.88945e+03,0.68800e+03,0.53551e+03,0.73816e+03,0.94996e+03 /) - kbo(:, 1,48, 6) = (/ & - & 0.88946e+03,0.68801e+03,0.53528e+03,0.73708e+03,0.94889e+03 /) - kbo(:, 2,48, 6) = (/ & - & 0.88945e+03,0.68801e+03,0.53536e+03,0.73773e+03,0.94976e+03 /) - kbo(:, 3,48, 6) = (/ & - & 0.88944e+03,0.68800e+03,0.53543e+03,0.73812e+03,0.95025e+03 /) - kbo(:, 4,48, 6) = (/ & - & 0.88944e+03,0.68800e+03,0.53548e+03,0.73829e+03,0.95037e+03 /) - kbo(:, 5,48, 6) = (/ & - & 0.88944e+03,0.68800e+03,0.53551e+03,0.73824e+03,0.95014e+03 /) - kbo(:, 1,49, 6) = (/ & - & 0.88944e+03,0.68800e+03,0.53524e+03,0.73674e+03,0.94844e+03 /) - kbo(:, 2,49, 6) = (/ & - & 0.88944e+03,0.68800e+03,0.53533e+03,0.73750e+03,0.94945e+03 /) - kbo(:, 3,49, 6) = (/ & - & 0.88943e+03,0.68799e+03,0.53540e+03,0.73799e+03,0.95016e+03 /) - kbo(:, 4,49, 6) = (/ & - & 0.88943e+03,0.68799e+03,0.53546e+03,0.73825e+03,0.95036e+03 /) - kbo(:, 5,49, 6) = (/ & - & 0.88942e+03,0.68799e+03,0.53549e+03,0.73828e+03,0.95027e+03 /) - kbo(:, 1,50, 6) = (/ & - & 0.88943e+03,0.68799e+03,0.53521e+03,0.73638e+03,0.94796e+03 /) - kbo(:, 2,50, 6) = (/ & - & 0.88943e+03,0.68799e+03,0.53529e+03,0.73724e+03,0.94911e+03 /) - kbo(:, 3,50, 6) = (/ & - & 0.88942e+03,0.68798e+03,0.53537e+03,0.73783e+03,0.94990e+03 /) - kbo(:, 4,50, 6) = (/ & - & 0.88942e+03,0.68798e+03,0.53544e+03,0.73817e+03,0.95031e+03 /) - kbo(:, 5,50, 6) = (/ & - & 0.88942e+03,0.68798e+03,0.53548e+03,0.73829e+03,0.95034e+03 /) - kbo(:, 1,51, 6) = (/ & - & 0.88942e+03,0.68798e+03,0.53518e+03,0.73600e+03,0.94745e+03 /) - kbo(:, 2,51, 6) = (/ & - & 0.88942e+03,0.68798e+03,0.53525e+03,0.73696e+03,0.94873e+03 /) - kbo(:, 3,51, 6) = (/ & - & 0.88941e+03,0.68798e+03,0.53533e+03,0.73765e+03,0.94966e+03 /) - kbo(:, 4,51, 6) = (/ & - & 0.88941e+03,0.68798e+03,0.53541e+03,0.73807e+03,0.95020e+03 /) - kbo(:, 5,51, 6) = (/ & - & 0.88941e+03,0.68797e+03,0.53546e+03,0.73827e+03,0.95037e+03 /) - kbo(:, 1,52, 6) = (/ & - & 0.88941e+03,0.68798e+03,0.53513e+03,0.73556e+03,0.94688e+03 /) - kbo(:, 2,52, 6) = (/ & - & 0.88941e+03,0.68798e+03,0.53522e+03,0.73664e+03,0.94831e+03 /) - kbo(:, 3,52, 6) = (/ & - & 0.88941e+03,0.68797e+03,0.53531e+03,0.73743e+03,0.94936e+03 /) - kbo(:, 4,52, 6) = (/ & - & 0.88940e+03,0.68797e+03,0.53538e+03,0.73795e+03,0.95005e+03 /) - kbo(:, 5,52, 6) = (/ & - & 0.88940e+03,0.68797e+03,0.53545e+03,0.73822e+03,0.95036e+03 /) - kbo(:, 1,53, 6) = (/ & - & 0.88941e+03,0.68797e+03,0.53507e+03,0.73509e+03,0.94627e+03 /) - kbo(:, 2,53, 6) = (/ & - & 0.88940e+03,0.68797e+03,0.53519e+03,0.73629e+03,0.94784e+03 /) - kbo(:, 3,53, 6) = (/ & - & 0.88940e+03,0.68797e+03,0.53527e+03,0.73717e+03,0.94902e+03 /) - kbo(:, 4,53, 6) = (/ & - & 0.88940e+03,0.68797e+03,0.53535e+03,0.73779e+03,0.94984e+03 /) - kbo(:, 5,53, 6) = (/ & - & 0.88940e+03,0.68797e+03,0.53542e+03,0.73815e+03,0.95029e+03 /) - kbo(:, 1,54, 6) = (/ & - & 0.88940e+03,0.68797e+03,0.53502e+03,0.73463e+03,0.94566e+03 /) - kbo(:, 2,54, 6) = (/ & - & 0.88940e+03,0.68797e+03,0.53516e+03,0.73592e+03,0.94735e+03 /) - kbo(:, 3,54, 6) = (/ & - & 0.88940e+03,0.68796e+03,0.53524e+03,0.73691e+03,0.94866e+03 /) - kbo(:, 4,54, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53533e+03,0.73761e+03,0.94961e+03 /) - kbo(:, 5,54, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53539e+03,0.73805e+03,0.95018e+03 /) - kbo(:, 1,55, 6) = (/ & - & 0.88940e+03,0.68796e+03,0.53495e+03,0.73415e+03,0.94503e+03 /) - kbo(:, 2,55, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53513e+03,0.73554e+03,0.94685e+03 /) - kbo(:, 3,55, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53521e+03,0.73662e+03,0.94828e+03 /) - kbo(:, 4,55, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53530e+03,0.73742e+03,0.94934e+03 /) - kbo(:, 5,55, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53537e+03,0.73794e+03,0.95004e+03 /) - kbo(:, 1,56, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53489e+03,0.73364e+03,0.94437e+03 /) - kbo(:, 2,56, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53507e+03,0.73512e+03,0.94631e+03 /) - kbo(:, 3,56, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53519e+03,0.73631e+03,0.94787e+03 /) - kbo(:, 4,56, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53527e+03,0.73719e+03,0.94904e+03 /) - kbo(:, 5,56, 6) = (/ & - & 0.88938e+03,0.68796e+03,0.53535e+03,0.73780e+03,0.94987e+03 /) - kbo(:, 1,57, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53481e+03,0.73310e+03,0.94366e+03 /) - kbo(:, 2,57, 6) = (/ & - & 0.88939e+03,0.68796e+03,0.53502e+03,0.73469e+03,0.94573e+03 /) - kbo(:, 3,57, 6) = (/ & - & 0.88938e+03,0.68796e+03,0.53516e+03,0.73597e+03,0.94741e+03 /) - kbo(:, 4,57, 6) = (/ & - & 0.88938e+03,0.68796e+03,0.53524e+03,0.73694e+03,0.94871e+03 /) - kbo(:, 5,57, 6) = (/ & - & 0.88938e+03,0.68795e+03,0.53532e+03,0.73764e+03,0.94964e+03 /) - kbo(:, 1,58, 6) = (/ & - & 0.88938e+03,0.68796e+03,0.53474e+03,0.73255e+03,0.94296e+03 /) - kbo(:, 2,58, 6) = (/ & - & 0.88938e+03,0.68796e+03,0.53496e+03,0.73423e+03,0.94515e+03 /) - kbo(:, 3,58, 6) = (/ & - & 0.88938e+03,0.68795e+03,0.53512e+03,0.73561e+03,0.94695e+03 /) - kbo(:, 4,58, 6) = (/ & - & 0.88938e+03,0.68795e+03,0.53522e+03,0.73667e+03,0.94836e+03 /) - kbo(:, 5,58, 6) = (/ & - & 0.88938e+03,0.68795e+03,0.53530e+03,0.73745e+03,0.94939e+03 /) - kbo(:, 1,59, 6) = (/ & - & 0.88938e+03,0.68795e+03,0.53470e+03,0.73233e+03,0.94266e+03 /) - kbo(:, 2,59, 6) = (/ & - & 0.88938e+03,0.68795e+03,0.53494e+03,0.73405e+03,0.94490e+03 /) - kbo(:, 3,59, 6) = (/ & - & 0.88938e+03,0.68795e+03,0.53510e+03,0.73546e+03,0.94675e+03 /) - kbo(:, 4,59, 6) = (/ & - & 0.88938e+03,0.68795e+03,0.53521e+03,0.73657e+03,0.94820e+03 /) - kbo(:, 5,59, 6) = (/ & - & 0.88938e+03,0.68795e+03,0.53529e+03,0.73737e+03,0.94929e+03 /) - kbo(:, 1,13, 7) = (/ & - & 0.11104e+04,0.84453e+03,0.58852e+03,0.81799e+03,0.10746e+04 /) - kbo(:, 2,13, 7) = (/ & - & 0.11019e+04,0.83810e+03,0.58572e+03,0.81836e+03,0.10752e+04 /) - kbo(:, 3,13, 7) = (/ & - & 0.10945e+04,0.83257e+03,0.58306e+03,0.81848e+03,0.10754e+04 /) - kbo(:, 4,13, 7) = (/ & - & 0.10881e+04,0.82775e+03,0.58047e+03,0.81831e+03,0.10753e+04 /) - kbo(:, 5,13, 7) = (/ & - & 0.10824e+04,0.82352e+03,0.57809e+03,0.81788e+03,0.10749e+04 /) - kbo(:, 1,14, 7) = (/ & - & 0.10890e+04,0.82842e+03,0.58087e+03,0.81780e+03,0.10747e+04 /) - kbo(:, 2,14, 7) = (/ & - & 0.10820e+04,0.82323e+03,0.57803e+03,0.81816e+03,0.10753e+04 /) - kbo(:, 3,14, 7) = (/ & - & 0.10761e+04,0.81875e+03,0.57524e+03,0.81827e+03,0.10754e+04 /) - kbo(:, 4,14, 7) = (/ & - & 0.10709e+04,0.81486e+03,0.57281e+03,0.81809e+03,0.10752e+04 /) - kbo(:, 5,14, 7) = (/ & - & 0.10663e+04,0.81144e+03,0.57087e+03,0.81766e+03,0.10748e+04 /) - kbo(:, 1,15, 7) = (/ & - & 0.10714e+04,0.81529e+03,0.57324e+03,0.81765e+03,0.10748e+04 /) - kbo(:, 2,15, 7) = (/ & - & 0.10659e+04,0.81110e+03,0.57094e+03,0.81800e+03,0.10753e+04 /) - kbo(:, 3,15, 7) = (/ & - & 0.10611e+04,0.80749e+03,0.56926e+03,0.81809e+03,0.10754e+04 /) - kbo(:, 4,15, 7) = (/ & - & 0.10569e+04,0.80434e+03,0.56791e+03,0.81790e+03,0.10752e+04 /) - kbo(:, 5,15, 7) = (/ & - & 0.10532e+04,0.80157e+03,0.56672e+03,0.81746e+03,0.10748e+04 /) - kbo(:, 1,16, 7) = (/ & - & 0.10572e+04,0.80460e+03,0.56822e+03,0.81755e+03,0.10748e+04 /) - kbo(:, 2,16, 7) = (/ & - & 0.10527e+04,0.80122e+03,0.56701e+03,0.81788e+03,0.10753e+04 /) - kbo(:, 3,16, 7) = (/ & - & 0.10488e+04,0.79831e+03,0.56599e+03,0.81796e+03,0.10754e+04 /) - kbo(:, 4,16, 7) = (/ & - & 0.10454e+04,0.79577e+03,0.56505e+03,0.81773e+03,0.10752e+04 /) - kbo(:, 5,16, 7) = (/ & - & 0.10425e+04,0.79354e+03,0.56418e+03,0.81728e+03,0.10747e+04 /) - kbo(:, 1,17, 7) = (/ & - & 0.10456e+04,0.79593e+03,0.56540e+03,0.81747e+03,0.10749e+04 /) - kbo(:, 2,17, 7) = (/ & - & 0.10420e+04,0.79321e+03,0.56464e+03,0.81778e+03,0.10753e+04 /) - kbo(:, 3,17, 7) = (/ & - & 0.10389e+04,0.79086e+03,0.56406e+03,0.81783e+03,0.10754e+04 /) - kbo(:, 4,17, 7) = (/ & - & 0.10362e+04,0.78881e+03,0.56355e+03,0.81761e+03,0.10751e+04 /) - kbo(:, 5,17, 7) = (/ & - & 0.10337e+04,0.78701e+03,0.56298e+03,0.81712e+03,0.10746e+04 /) - kbo(:, 1,18, 7) = (/ & - & 0.10363e+04,0.78890e+03,0.56372e+03,0.81741e+03,0.10750e+04 /) - kbo(:, 2,18, 7) = (/ & - & 0.10334e+04,0.78671e+03,0.56351e+03,0.81771e+03,0.10753e+04 /) - kbo(:, 3,18, 7) = (/ & - & 0.10308e+04,0.78481e+03,0.56335e+03,0.81775e+03,0.10754e+04 /) - kbo(:, 4,18, 7) = (/ & - & 0.10286e+04,0.78316e+03,0.56306e+03,0.81749e+03,0.10751e+04 /) - kbo(:, 5,18, 7) = (/ & - & 0.10267e+04,0.78170e+03,0.56253e+03,0.81698e+03,0.10746e+04 /) - kbo(:, 1,19, 7) = (/ & - & 0.10287e+04,0.78319e+03,0.56306e+03,0.81737e+03,0.10751e+04 /) - kbo(:, 2,19, 7) = (/ & - & 0.10263e+04,0.78143e+03,0.56317e+03,0.81766e+03,0.10754e+04 /) - kbo(:, 3,19, 7) = (/ & - & 0.10243e+04,0.77990e+03,0.56256e+03,0.81764e+03,0.10753e+04 /) - kbo(:, 4,19, 7) = (/ & - & 0.10225e+04,0.77856e+03,0.56270e+03,0.81737e+03,0.10751e+04 /) - kbo(:, 5,19, 7) = (/ & - & 0.10209e+04,0.77738e+03,0.56230e+03,0.81685e+03,0.10745e+04 /) - kbo(:, 1,20, 7) = (/ & - & 0.10225e+04,0.77853e+03,0.56258e+03,0.81735e+03,0.10751e+04 /) - kbo(:, 2,20, 7) = (/ & - & 0.10206e+04,0.77711e+03,0.56304e+03,0.81761e+03,0.10754e+04 /) - kbo(:, 3,20, 7) = (/ & - & 0.10189e+04,0.77589e+03,0.56295e+03,0.81757e+03,0.10753e+04 /) - kbo(:, 4,20, 7) = (/ & - & 0.10175e+04,0.77480e+03,0.56264e+03,0.81728e+03,0.10750e+04 /) - kbo(:, 5,20, 7) = (/ & - & 0.10162e+04,0.77385e+03,0.56211e+03,0.81672e+03,0.10744e+04 /) - kbo(:, 1,21, 7) = (/ & - & 0.10174e+04,0.77475e+03,0.56279e+03,0.81734e+03,0.10752e+04 /) - kbo(:, 2,21, 7) = (/ & - & 0.10159e+04,0.77361e+03,0.56292e+03,0.81756e+03,0.10754e+04 /) - kbo(:, 3,21, 7) = (/ & - & 0.10146e+04,0.77262e+03,0.56281e+03,0.81751e+03,0.10753e+04 /) - kbo(:, 4,21, 7) = (/ & - & 0.10134e+04,0.77175e+03,0.56248e+03,0.81718e+03,0.10750e+04 /) - kbo(:, 5,21, 7) = (/ & - & 0.10124e+04,0.77098e+03,0.56193e+03,0.81661e+03,0.10743e+04 /) - kbo(:, 1,22, 7) = (/ & - & 0.10132e+04,0.77163e+03,0.56273e+03,0.81736e+03,0.10752e+04 /) - kbo(:, 2,22, 7) = (/ & - & 0.10120e+04,0.77071e+03,0.56281e+03,0.81753e+03,0.10754e+04 /) - kbo(:, 3,22, 7) = (/ & - & 0.10110e+04,0.76992e+03,0.56267e+03,0.81743e+03,0.10753e+04 /) - kbo(:, 4,22, 7) = (/ & - & 0.10100e+04,0.76922e+03,0.56230e+03,0.81706e+03,0.10749e+04 /) - kbo(:, 5,22, 7) = (/ & - & 0.10092e+04,0.76860e+03,0.56172e+03,0.81643e+03,0.10742e+04 /) - kbo(:, 1,23, 7) = (/ & - & 0.10099e+04,0.76909e+03,0.56267e+03,0.81738e+03,0.10753e+04 /) - kbo(:, 2,23, 7) = (/ & - & 0.10089e+04,0.76836e+03,0.56273e+03,0.81751e+03,0.10754e+04 /) - kbo(:, 3,23, 7) = (/ & - & 0.10080e+04,0.76773e+03,0.56254e+03,0.81734e+03,0.10752e+04 /) - kbo(:, 4,23, 7) = (/ & - & 0.10073e+04,0.76717e+03,0.56214e+03,0.81691e+03,0.10748e+04 /) - kbo(:, 5,23, 7) = (/ & - & 0.10067e+04,0.76668e+03,0.56152e+03,0.81625e+03,0.10740e+04 /) - kbo(:, 1,24, 7) = (/ & - & 0.10071e+04,0.76704e+03,0.56263e+03,0.81739e+03,0.10753e+04 /) - kbo(:, 2,24, 7) = (/ & - & 0.10064e+04,0.76647e+03,0.56264e+03,0.81747e+03,0.10754e+04 /) - kbo(:, 3,24, 7) = (/ & - & 0.10057e+04,0.76596e+03,0.56242e+03,0.81725e+03,0.10751e+04 /) - kbo(:, 4,24, 7) = (/ & - & 0.10051e+04,0.76551e+03,0.56198e+03,0.81678e+03,0.10746e+04 /) - kbo(:, 5,24, 7) = (/ & - & 0.10046e+04,0.76512e+03,0.56132e+03,0.81606e+03,0.10738e+04 /) - kbo(:, 1,25, 7) = (/ & - & 0.10049e+04,0.76538e+03,0.56260e+03,0.81741e+03,0.10754e+04 /) - kbo(:, 2,25, 7) = (/ & - & 0.10043e+04,0.76492e+03,0.56256e+03,0.81742e+03,0.10753e+04 /) - kbo(:, 3,25, 7) = (/ & - & 0.10038e+04,0.76453e+03,0.56229e+03,0.81717e+03,0.10750e+04 /) - kbo(:, 4,25, 7) = (/ & - & 0.10033e+04,0.76417e+03,0.56181e+03,0.81663e+03,0.10745e+04 /) - kbo(:, 5,25, 7) = (/ & - & 0.10029e+04,0.76385e+03,0.56111e+03,0.81585e+03,0.10736e+04 /) - kbo(:, 1,26, 7) = (/ & - & 0.10031e+04,0.76404e+03,0.56257e+03,0.81743e+03,0.10754e+04 /) - kbo(:, 2,26, 7) = (/ & - & 0.10026e+04,0.76368e+03,0.56248e+03,0.81736e+03,0.10753e+04 /) - kbo(:, 3,26, 7) = (/ & - & 0.10022e+04,0.76336e+03,0.56216e+03,0.81707e+03,0.10749e+04 /) - kbo(:, 4,26, 7) = (/ & - & 0.10018e+04,0.76308e+03,0.56163e+03,0.81645e+03,0.10743e+04 /) - kbo(:, 5,26, 7) = (/ & - & 0.10015e+04,0.76282e+03,0.56088e+03,0.81561e+03,0.10734e+04 /) - kbo(:, 1,27, 7) = (/ & - & 0.10017e+04,0.76296e+03,0.56253e+03,0.81743e+03,0.10754e+04 /) - kbo(:, 2,27, 7) = (/ & - & 0.10013e+04,0.76268e+03,0.56239e+03,0.81730e+03,0.10752e+04 /) - kbo(:, 3,27, 7) = (/ & - & 0.10010e+04,0.76242e+03,0.56202e+03,0.81696e+03,0.10748e+04 /) - kbo(:, 4,27, 7) = (/ & - & 0.10007e+04,0.76220e+03,0.56144e+03,0.81630e+03,0.10741e+04 /) - kbo(:, 5,27, 7) = (/ & - & 0.10004e+04,0.76200e+03,0.56064e+03,0.81536e+03,0.10731e+04 /) - kbo(:, 1,28, 7) = (/ & - & 0.10005e+04,0.76209e+03,0.56249e+03,0.81738e+03,0.10754e+04 /) - kbo(:, 2,28, 7) = (/ & - & 0.10002e+04,0.76186e+03,0.56229e+03,0.81724e+03,0.10752e+04 /) - kbo(:, 3,28, 7) = (/ & - & 0.99995e+03,0.76166e+03,0.56188e+03,0.81687e+03,0.10747e+04 /) - kbo(:, 4,28, 7) = (/ & - & 0.99971e+03,0.76148e+03,0.56124e+03,0.81607e+03,0.10739e+04 /) - kbo(:, 5,28, 7) = (/ & - & 0.99950e+03,0.76132e+03,0.56040e+03,0.81510e+03,0.10728e+04 /) - kbo(:, 1,29, 7) = (/ & - & 0.99960e+03,0.76139e+03,0.56244e+03,0.81739e+03,0.10753e+04 /) - kbo(:, 2,29, 7) = (/ & - & 0.99935e+03,0.76121e+03,0.56219e+03,0.81712e+03,0.10751e+04 /) - kbo(:, 3,29, 7) = (/ & - & 0.99914e+03,0.76105e+03,0.56172e+03,0.81663e+03,0.10745e+04 /) - kbo(:, 4,29, 7) = (/ & - & 0.99895e+03,0.76091e+03,0.56103e+03,0.81584e+03,0.10737e+04 /) - kbo(:, 5,29, 7) = (/ & - & 0.99878e+03,0.76078e+03,0.56014e+03,0.81482e+03,0.10725e+04 /) - kbo(:, 1,30, 7) = (/ & - & 0.99885e+03,0.76083e+03,0.56238e+03,0.81733e+03,0.10753e+04 /) - kbo(:, 2,30, 7) = (/ & - & 0.99865e+03,0.76069e+03,0.56207e+03,0.81703e+03,0.10750e+04 /) - kbo(:, 3,30, 7) = (/ & - & 0.99848e+03,0.76055e+03,0.56155e+03,0.81643e+03,0.10743e+04 /) - kbo(:, 4,30, 7) = (/ & - & 0.99833e+03,0.76044e+03,0.56081e+03,0.81561e+03,0.10734e+04 /) - kbo(:, 5,30, 7) = (/ & - & 0.99819e+03,0.76034e+03,0.55986e+03,0.81451e+03,0.10721e+04 /) - kbo(:, 1,31, 7) = (/ & - & 0.99824e+03,0.76037e+03,0.56231e+03,0.81727e+03,0.10752e+04 /) - kbo(:, 2,31, 7) = (/ & - & 0.99808e+03,0.76026e+03,0.56195e+03,0.81690e+03,0.10748e+04 /) - kbo(:, 3,31, 7) = (/ & - & 0.99794e+03,0.76015e+03,0.56137e+03,0.81625e+03,0.10741e+04 /) - kbo(:, 4,31, 7) = (/ & - & 0.99782e+03,0.76006e+03,0.56058e+03,0.81535e+03,0.10731e+04 /) - kbo(:, 5,31, 7) = (/ & - & 0.99772e+03,0.75998e+03,0.55958e+03,0.81419e+03,0.10717e+04 /) - kbo(:, 1,32, 7) = (/ & - & 0.99774e+03,0.76000e+03,0.56222e+03,0.81719e+03,0.10752e+04 /) - kbo(:, 2,32, 7) = (/ & - & 0.99763e+03,0.75991e+03,0.56181e+03,0.81675e+03,0.10747e+04 /) - kbo(:, 3,32, 7) = (/ & - & 0.99752e+03,0.75984e+03,0.56117e+03,0.81604e+03,0.10739e+04 /) - kbo(:, 4,32, 7) = (/ & - & 0.99742e+03,0.75976e+03,0.56033e+03,0.81507e+03,0.10728e+04 /) - kbo(:, 5,32, 7) = (/ & - & 0.99733e+03,0.75970e+03,0.55927e+03,0.81384e+03,0.10713e+04 /) - kbo(:, 1,33, 7) = (/ & - & 0.99735e+03,0.75971e+03,0.56212e+03,0.81709e+03,0.10751e+04 /) - kbo(:, 2,33, 7) = (/ & - & 0.99725e+03,0.75964e+03,0.56165e+03,0.81658e+03,0.10745e+04 /) - kbo(:, 3,33, 7) = (/ & - & 0.99717e+03,0.75957e+03,0.56096e+03,0.81581e+03,0.10736e+04 /) - kbo(:, 4,33, 7) = (/ & - & 0.99709e+03,0.75952e+03,0.56006e+03,0.81477e+03,0.10724e+04 /) - kbo(:, 5,33, 7) = (/ & - & 0.99703e+03,0.75946e+03,0.55896e+03,0.81347e+03,0.10709e+04 /) - kbo(:, 1,34, 7) = (/ & - & 0.99704e+03,0.75947e+03,0.56203e+03,0.81702e+03,0.10750e+04 /) - kbo(:, 2,34, 7) = (/ & - & 0.99696e+03,0.75942e+03,0.56151e+03,0.81642e+03,0.10743e+04 /) - kbo(:, 3,34, 7) = (/ & - & 0.99689e+03,0.75937e+03,0.56077e+03,0.81558e+03,0.10734e+04 /) - kbo(:, 4,34, 7) = (/ & - & 0.99683e+03,0.75932e+03,0.55982e+03,0.81449e+03,0.10721e+04 /) - kbo(:, 5,34, 7) = (/ & - & 0.99678e+03,0.75928e+03,0.55868e+03,0.81314e+03,0.10704e+04 /) - kbo(:, 1,35, 7) = (/ & - & 0.99679e+03,0.75929e+03,0.56197e+03,0.81693e+03,0.10749e+04 /) - kbo(:, 2,35, 7) = (/ & - & 0.99673e+03,0.75925e+03,0.56142e+03,0.81633e+03,0.10742e+04 /) - kbo(:, 3,35, 7) = (/ & - & 0.99667e+03,0.75920e+03,0.56065e+03,0.81545e+03,0.10733e+04 /) - kbo(:, 4,35, 7) = (/ & - & 0.99663e+03,0.75916e+03,0.55968e+03,0.81434e+03,0.10719e+04 /) - kbo(:, 5,35, 7) = (/ & - & 0.99658e+03,0.75913e+03,0.55851e+03,0.81294e+03,0.10702e+04 /) - kbo(:, 1,36, 7) = (/ & - & 0.99660e+03,0.75914e+03,0.56195e+03,0.81692e+03,0.10749e+04 /) - kbo(:, 2,36, 7) = (/ & - & 0.99655e+03,0.75911e+03,0.56140e+03,0.81631e+03,0.10742e+04 /) - kbo(:, 3,36, 7) = (/ & - & 0.99650e+03,0.75907e+03,0.56063e+03,0.81543e+03,0.10732e+04 /) - kbo(:, 4,36, 7) = (/ & - & 0.99646e+03,0.75904e+03,0.55965e+03,0.81430e+03,0.10719e+04 /) - kbo(:, 5,36, 7) = (/ & - & 0.99642e+03,0.75901e+03,0.55848e+03,0.81290e+03,0.10702e+04 /) - kbo(:, 1,37, 7) = (/ & - & 0.99645e+03,0.75903e+03,0.56200e+03,0.81697e+03,0.10749e+04 /) - kbo(:, 2,37, 7) = (/ & - & 0.99640e+03,0.75900e+03,0.56148e+03,0.81640e+03,0.10743e+04 /) - kbo(:, 3,37, 7) = (/ & - & 0.99636e+03,0.75897e+03,0.56074e+03,0.81556e+03,0.10734e+04 /) - kbo(:, 4,37, 7) = (/ & - & 0.99633e+03,0.75894e+03,0.55979e+03,0.81446e+03,0.10721e+04 /) - kbo(:, 5,37, 7) = (/ & - & 0.99630e+03,0.75892e+03,0.55864e+03,0.81313e+03,0.10704e+04 /) - kbo(:, 1,38, 7) = (/ & - & 0.99632e+03,0.75894e+03,0.56206e+03,0.81703e+03,0.10750e+04 /) - kbo(:, 2,38, 7) = (/ & - & 0.99628e+03,0.75891e+03,0.56157e+03,0.81650e+03,0.10744e+04 /) - kbo(:, 3,38, 7) = (/ & - & 0.99625e+03,0.75889e+03,0.56085e+03,0.81569e+03,0.10735e+04 /) - kbo(:, 4,38, 7) = (/ & - & 0.99623e+03,0.75887e+03,0.55993e+03,0.81464e+03,0.10723e+04 /) - kbo(:, 5,38, 7) = (/ & - & 0.99620e+03,0.75885e+03,0.55881e+03,0.81331e+03,0.10707e+04 /) - kbo(:, 1,39, 7) = (/ & - & 0.99622e+03,0.75886e+03,0.56210e+03,0.81708e+03,0.10751e+04 /) - kbo(:, 2,39, 7) = (/ & - & 0.99619e+03,0.75884e+03,0.56164e+03,0.81666e+03,0.10745e+04 /) - kbo(:, 3,39, 7) = (/ & - & 0.99617e+03,0.75882e+03,0.56096e+03,0.81582e+03,0.10737e+04 /) - kbo(:, 4,39, 7) = (/ & - & 0.99614e+03,0.75880e+03,0.56007e+03,0.81479e+03,0.10725e+04 /) - kbo(:, 5,39, 7) = (/ & - & 0.99612e+03,0.75878e+03,0.55897e+03,0.81351e+03,0.10709e+04 /) - kbo(:, 1,40, 7) = (/ & - & 0.99613e+03,0.75880e+03,0.56218e+03,0.81716e+03,0.10752e+04 /) - kbo(:, 2,40, 7) = (/ & - & 0.99611e+03,0.75878e+03,0.56177e+03,0.81672e+03,0.10747e+04 /) - kbo(:, 3,40, 7) = (/ & - & 0.99609e+03,0.75876e+03,0.56114e+03,0.81603e+03,0.10739e+04 /) - kbo(:, 4,40, 7) = (/ & - & 0.99607e+03,0.75875e+03,0.56030e+03,0.81506e+03,0.10728e+04 /) - kbo(:, 5,40, 7) = (/ & - & 0.99605e+03,0.75874e+03,0.55925e+03,0.81383e+03,0.10713e+04 /) - kbo(:, 1,41, 7) = (/ & - & 0.99606e+03,0.75874e+03,0.56225e+03,0.81724e+03,0.10752e+04 /) - kbo(:, 2,41, 7) = (/ & - & 0.99604e+03,0.75873e+03,0.56189e+03,0.81688e+03,0.10748e+04 /) - kbo(:, 3,41, 7) = (/ & - & 0.99602e+03,0.75871e+03,0.56132e+03,0.81623e+03,0.10741e+04 /) - kbo(:, 4,41, 7) = (/ & - & 0.99601e+03,0.75870e+03,0.56053e+03,0.81532e+03,0.10731e+04 /) - kbo(:, 5,41, 7) = (/ & - & 0.99600e+03,0.75869e+03,0.55954e+03,0.81416e+03,0.10717e+04 /) - kbo(:, 1,42, 7) = (/ & - & 0.99601e+03,0.75870e+03,0.56231e+03,0.81730e+03,0.10753e+04 /) - kbo(:, 2,42, 7) = (/ & - & 0.99599e+03,0.75869e+03,0.56200e+03,0.81698e+03,0.10750e+04 /) - kbo(:, 3,42, 7) = (/ & - & 0.99597e+03,0.75868e+03,0.56149e+03,0.81641e+03,0.10743e+04 /) - kbo(:, 4,42, 7) = (/ & - & 0.99596e+03,0.75867e+03,0.56075e+03,0.81559e+03,0.10734e+04 /) - kbo(:, 5,42, 7) = (/ & - & 0.99595e+03,0.75866e+03,0.55981e+03,0.81449e+03,0.10721e+04 /) - kbo(:, 1,43, 7) = (/ & - & 0.99596e+03,0.75867e+03,0.56235e+03,0.81734e+03,0.10754e+04 /) - kbo(:, 2,43, 7) = (/ & - & 0.99595e+03,0.75866e+03,0.56212e+03,0.81712e+03,0.10751e+04 /) - kbo(:, 3,43, 7) = (/ & - & 0.99594e+03,0.75865e+03,0.56167e+03,0.81662e+03,0.10746e+04 /) - kbo(:, 4,43, 7) = (/ & - & 0.99592e+03,0.75864e+03,0.56100e+03,0.81588e+03,0.10737e+04 /) - kbo(:, 5,43, 7) = (/ & - & 0.99591e+03,0.75863e+03,0.56012e+03,0.81487e+03,0.10726e+04 /) - kbo(:, 1,44, 7) = (/ & - & 0.99592e+03,0.75864e+03,0.56237e+03,0.81736e+03,0.10754e+04 /) - kbo(:, 2,44, 7) = (/ & - & 0.99591e+03,0.75863e+03,0.56222e+03,0.81722e+03,0.10752e+04 /) - kbo(:, 3,44, 7) = (/ & - & 0.99591e+03,0.75862e+03,0.56184e+03,0.81680e+03,0.10748e+04 /) - kbo(:, 4,44, 7) = (/ & - & 0.99589e+03,0.75861e+03,0.56125e+03,0.81614e+03,0.10741e+04 /) - kbo(:, 5,44, 7) = (/ & - & 0.99588e+03,0.75861e+03,0.56044e+03,0.81523e+03,0.10730e+04 /) - kbo(:, 1,45, 7) = (/ & - & 0.99589e+03,0.75861e+03,0.56237e+03,0.81733e+03,0.10754e+04 /) - kbo(:, 2,45, 7) = (/ & - & 0.99588e+03,0.75861e+03,0.56230e+03,0.81729e+03,0.10753e+04 /) - kbo(:, 3,45, 7) = (/ & - & 0.99587e+03,0.75860e+03,0.56199e+03,0.81699e+03,0.10750e+04 /) - kbo(:, 4,45, 7) = (/ & - & 0.99586e+03,0.75859e+03,0.56147e+03,0.81641e+03,0.10743e+04 /) - kbo(:, 5,45, 7) = (/ & - & 0.99585e+03,0.75859e+03,0.56074e+03,0.81557e+03,0.10734e+04 /) - kbo(:, 1,46, 7) = (/ & - & 0.99586e+03,0.75859e+03,0.56233e+03,0.81728e+03,0.10753e+04 /) - kbo(:, 2,46, 7) = (/ & - & 0.99585e+03,0.75859e+03,0.56235e+03,0.81734e+03,0.10754e+04 /) - kbo(:, 3,46, 7) = (/ & - & 0.99585e+03,0.75858e+03,0.56213e+03,0.81712e+03,0.10751e+04 /) - kbo(:, 4,46, 7) = (/ & - & 0.99584e+03,0.75858e+03,0.56169e+03,0.81663e+03,0.10746e+04 /) - kbo(:, 5,46, 7) = (/ & - & 0.99583e+03,0.75858e+03,0.56103e+03,0.81590e+03,0.10738e+04 /) - kbo(:, 1,47, 7) = (/ & - & 0.99585e+03,0.75858e+03,0.56226e+03,0.81718e+03,0.10753e+04 /) - kbo(:, 2,47, 7) = (/ & - & 0.99583e+03,0.75857e+03,0.56237e+03,0.81736e+03,0.10754e+04 /) - kbo(:, 3,47, 7) = (/ & - & 0.99583e+03,0.75857e+03,0.56224e+03,0.81723e+03,0.10752e+04 /) - kbo(:, 4,47, 7) = (/ & - & 0.99582e+03,0.75856e+03,0.56189e+03,0.81686e+03,0.10748e+04 /) - kbo(:, 5,47, 7) = (/ & - & 0.99581e+03,0.75856e+03,0.56132e+03,0.81626e+03,0.10741e+04 /) - kbo(:, 1,48, 7) = (/ & - & 0.99582e+03,0.75856e+03,0.56215e+03,0.81703e+03,0.10751e+04 /) - kbo(:, 2,48, 7) = (/ & - & 0.99582e+03,0.75856e+03,0.56235e+03,0.81732e+03,0.10754e+04 /) - kbo(:, 3,48, 7) = (/ & - & 0.99581e+03,0.75855e+03,0.56232e+03,0.81733e+03,0.10753e+04 /) - kbo(:, 4,48, 7) = (/ & - & 0.99580e+03,0.75855e+03,0.56206e+03,0.81704e+03,0.10750e+04 /) - kbo(:, 5,48, 7) = (/ & - & 0.99580e+03,0.75855e+03,0.56157e+03,0.81651e+03,0.10744e+04 /) - kbo(:, 1,49, 7) = (/ & - & 0.99581e+03,0.75855e+03,0.56199e+03,0.81684e+03,0.10748e+04 /) - kbo(:, 2,49, 7) = (/ & - & 0.99580e+03,0.75855e+03,0.56230e+03,0.81724e+03,0.10753e+04 /) - kbo(:, 3,49, 7) = (/ & - & 0.99580e+03,0.75854e+03,0.56236e+03,0.81736e+03,0.10753e+04 /) - kbo(:, 4,49, 7) = (/ & - & 0.99579e+03,0.75854e+03,0.56219e+03,0.81718e+03,0.10752e+04 /) - kbo(:, 5,49, 7) = (/ & - & 0.99579e+03,0.75854e+03,0.56179e+03,0.81678e+03,0.10747e+04 /) - kbo(:, 1,50, 7) = (/ & - & 0.99579e+03,0.75854e+03,0.56180e+03,0.81662e+03,0.10745e+04 /) - kbo(:, 2,50, 7) = (/ & - & 0.99579e+03,0.75854e+03,0.56221e+03,0.81713e+03,0.10752e+04 /) - kbo(:, 3,50, 7) = (/ & - & 0.99579e+03,0.75854e+03,0.56237e+03,0.81735e+03,0.10754e+04 /) - kbo(:, 4,50, 7) = (/ & - & 0.99579e+03,0.75854e+03,0.56228e+03,0.81728e+03,0.10753e+04 /) - kbo(:, 5,50, 7) = (/ & - & 0.99578e+03,0.75853e+03,0.56197e+03,0.81695e+03,0.10749e+04 /) - kbo(:, 1,51, 7) = (/ & - & 0.99578e+03,0.75853e+03,0.56158e+03,0.81637e+03,0.10741e+04 /) - kbo(:, 2,51, 7) = (/ & - & 0.99578e+03,0.75853e+03,0.56209e+03,0.81697e+03,0.10750e+04 /) - kbo(:, 3,51, 7) = (/ & - & 0.99578e+03,0.75853e+03,0.56234e+03,0.81729e+03,0.10753e+04 /) - kbo(:, 4,51, 7) = (/ & - & 0.99578e+03,0.75853e+03,0.56234e+03,0.81734e+03,0.10754e+04 /) - kbo(:, 5,51, 7) = (/ & - & 0.99577e+03,0.75852e+03,0.56211e+03,0.81712e+03,0.10751e+04 /) - kbo(:, 1,52, 7) = (/ & - & 0.99577e+03,0.75853e+03,0.56131e+03,0.81608e+03,0.10737e+04 /) - kbo(:, 2,52, 7) = (/ & - & 0.99577e+03,0.75852e+03,0.56194e+03,0.81678e+03,0.10748e+04 /) - kbo(:, 3,52, 7) = (/ & - & 0.99577e+03,0.75852e+03,0.56228e+03,0.81721e+03,0.10753e+04 /) - kbo(:, 4,52, 7) = (/ & - & 0.99577e+03,0.75852e+03,0.56237e+03,0.81738e+03,0.10754e+04 /) - kbo(:, 5,52, 7) = (/ & - & 0.99576e+03,0.75852e+03,0.56222e+03,0.81722e+03,0.10752e+04 /) - kbo(:, 1,53, 7) = (/ & - & 0.99577e+03,0.75852e+03,0.56102e+03,0.81574e+03,0.10731e+04 /) - kbo(:, 2,53, 7) = (/ & - & 0.99576e+03,0.75852e+03,0.56174e+03,0.81656e+03,0.10744e+04 /) - kbo(:, 3,53, 7) = (/ & - & 0.99576e+03,0.75852e+03,0.56218e+03,0.81709e+03,0.10752e+04 /) - kbo(:, 4,53, 7) = (/ & - & 0.99576e+03,0.75851e+03,0.56236e+03,0.81734e+03,0.10754e+04 /) - kbo(:, 5,53, 7) = (/ & - & 0.99576e+03,0.75852e+03,0.56230e+03,0.81736e+03,0.10753e+04 /) - kbo(:, 1,54, 7) = (/ & - & 0.99576e+03,0.75852e+03,0.56072e+03,0.81536e+03,0.10726e+04 /) - kbo(:, 2,54, 7) = (/ & - & 0.99576e+03,0.75851e+03,0.56153e+03,0.81633e+03,0.10740e+04 /) - kbo(:, 3,54, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.56207e+03,0.81694e+03,0.10750e+04 /) - kbo(:, 4,54, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.56233e+03,0.81728e+03,0.10753e+04 /) - kbo(:, 5,54, 7) = (/ & - & 0.99576e+03,0.75851e+03,0.56235e+03,0.81734e+03,0.10754e+04 /) - kbo(:, 1,55, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.56039e+03,0.81495e+03,0.10720e+04 /) - kbo(:, 2,55, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.56128e+03,0.81606e+03,0.10736e+04 /) - kbo(:, 3,55, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.56193e+03,0.81677e+03,0.10747e+04 /) - kbo(:, 4,55, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.56227e+03,0.81720e+03,0.10753e+04 /) - kbo(:, 5,55, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.56237e+03,0.81736e+03,0.10754e+04 /) - kbo(:, 1,56, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.56002e+03,0.81448e+03,0.10713e+04 /) - kbo(:, 2,56, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.56104e+03,0.81576e+03,0.10732e+04 /) - kbo(:, 3,56, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.56175e+03,0.81659e+03,0.10744e+04 /) - kbo(:, 4,56, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56219e+03,0.81709e+03,0.10752e+04 /) - kbo(:, 5,56, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56236e+03,0.81734e+03,0.10754e+04 /) - kbo(:, 1,57, 7) = (/ & - & 0.99575e+03,0.75851e+03,0.55963e+03,0.81395e+03,0.10705e+04 /) - kbo(:, 2,57, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56076e+03,0.81540e+03,0.10727e+04 /) - kbo(:, 3,57, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56157e+03,0.81635e+03,0.10741e+04 /) - kbo(:, 4,57, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56208e+03,0.81696e+03,0.10750e+04 /) - kbo(:, 5,57, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56234e+03,0.81729e+03,0.10754e+04 /) - kbo(:, 1,58, 7) = (/ & - & 0.99575e+03,0.75850e+03,0.55922e+03,0.81340e+03,0.10697e+04 /) - kbo(:, 2,58, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56044e+03,0.81503e+03,0.10721e+04 /) - kbo(:, 3,58, 7) = (/ & - & 0.99574e+03,0.75851e+03,0.56134e+03,0.81611e+03,0.10737e+04 /) - kbo(:, 4,58, 7) = (/ & - & 0.99574e+03,0.75851e+03,0.56195e+03,0.81681e+03,0.10748e+04 /) - kbo(:, 5,58, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56228e+03,0.81722e+03,0.10753e+04 /) - kbo(:, 1,59, 7) = (/ & - & 0.99575e+03,0.75850e+03,0.55905e+03,0.81317e+03,0.10694e+04 /) - kbo(:, 2,59, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56032e+03,0.81485e+03,0.10718e+04 /) - kbo(:, 3,59, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56125e+03,0.81601e+03,0.10735e+04 /) - kbo(:, 4,59, 7) = (/ & - & 0.99574e+03,0.75850e+03,0.56189e+03,0.81673e+03,0.10747e+04 /) - kbo(:, 5,59, 7) = (/ & - & 0.99573e+03,0.75850e+03,0.56225e+03,0.81718e+03,0.10753e+04 /) - kbo(:, 1,13, 8) = (/ & - & 0.11451e+04,0.86748e+03,0.59259e+03,0.85187e+03,0.11225e+04 /) - kbo(:, 2,13, 8) = (/ & - & 0.11363e+04,0.86085e+03,0.58896e+03,0.85188e+03,0.11226e+04 /) - kbo(:, 3,13, 8) = (/ & - & 0.11286e+04,0.85515e+03,0.58586e+03,0.85170e+03,0.11227e+04 /) - kbo(:, 4,13, 8) = (/ & - & 0.11220e+04,0.85016e+03,0.58378e+03,0.85132e+03,0.11224e+04 /) - kbo(:, 5,13, 8) = (/ & - & 0.11162e+04,0.84582e+03,0.58229e+03,0.85074e+03,0.11218e+04 /) - kbo(:, 1,14, 8) = (/ & - & 0.11230e+04,0.85087e+03,0.58392e+03,0.85168e+03,0.11225e+04 /) - kbo(:, 2,14, 8) = (/ & - & 0.11158e+04,0.84552e+03,0.58280e+03,0.85169e+03,0.11227e+04 /) - kbo(:, 3,14, 8) = (/ & - & 0.11097e+04,0.84090e+03,0.58233e+03,0.85151e+03,0.11227e+04 /) - kbo(:, 4,14, 8) = (/ & - & 0.11043e+04,0.83689e+03,0.58194e+03,0.85113e+03,0.11223e+04 /) - kbo(:, 5,14, 8) = (/ & - & 0.10996e+04,0.83336e+03,0.58140e+03,0.85052e+03,0.11217e+04 /) - kbo(:, 1,15, 8) = (/ & - & 0.11049e+04,0.83731e+03,0.58207e+03,0.85153e+03,0.11225e+04 /) - kbo(:, 2,15, 8) = (/ & - & 0.10991e+04,0.83301e+03,0.58217e+03,0.85153e+03,0.11227e+04 /) - kbo(:, 3,15, 8) = (/ & - & 0.10942e+04,0.82928e+03,0.58200e+03,0.85134e+03,0.11226e+04 /) - kbo(:, 4,15, 8) = (/ & - & 0.10899e+04,0.82605e+03,0.58161e+03,0.85094e+03,0.11223e+04 /) - kbo(:, 5,15, 8) = (/ & - & 0.10860e+04,0.82320e+03,0.58108e+03,0.85034e+03,0.11216e+04 /) - kbo(:, 1,16, 8) = (/ & - & 0.10902e+04,0.82630e+03,0.58181e+03,0.85141e+03,0.11225e+04 /) - kbo(:, 2,16, 8) = (/ & - & 0.10856e+04,0.82283e+03,0.58190e+03,0.85139e+03,0.11227e+04 /) - kbo(:, 3,16, 8) = (/ & - & 0.10816e+04,0.81983e+03,0.58172e+03,0.85119e+03,0.11226e+04 /) - kbo(:, 4,16, 8) = (/ & - & 0.10781e+04,0.81721e+03,0.58133e+03,0.85078e+03,0.11222e+04 /) - kbo(:, 5,16, 8) = (/ & - & 0.10750e+04,0.81491e+03,0.58080e+03,0.85015e+03,0.11215e+04 /) - kbo(:, 1,17, 8) = (/ & - & 0.10783e+04,0.81738e+03,0.58160e+03,0.85131e+03,0.11225e+04 /) - kbo(:, 2,17, 8) = (/ & - & 0.10746e+04,0.81457e+03,0.58168e+03,0.85129e+03,0.11227e+04 /) - kbo(:, 3,17, 8) = (/ & - & 0.10713e+04,0.81215e+03,0.58149e+03,0.85108e+03,0.11226e+04 /) - kbo(:, 4,17, 8) = (/ & - & 0.10685e+04,0.81004e+03,0.58109e+03,0.85064e+03,0.11222e+04 /) - kbo(:, 5,17, 8) = (/ & - & 0.10660e+04,0.80818e+03,0.58056e+03,0.85000e+03,0.11214e+04 /) - kbo(:, 1,18, 8) = (/ & - & 0.10686e+04,0.81013e+03,0.58144e+03,0.85124e+03,0.11225e+04 /) - kbo(:, 2,18, 8) = (/ & - & 0.10656e+04,0.80786e+03,0.58150e+03,0.85119e+03,0.11227e+04 /) - kbo(:, 3,18, 8) = (/ & - & 0.10630e+04,0.80591e+03,0.58129e+03,0.85095e+03,0.11226e+04 /) - kbo(:, 4,18, 8) = (/ & - & 0.10607e+04,0.80419e+03,0.58089e+03,0.85052e+03,0.11221e+04 /) - kbo(:, 5,18, 8) = (/ & - & 0.10587e+04,0.80269e+03,0.58036e+03,0.84984e+03,0.11213e+04 /) - kbo(:, 1,19, 8) = (/ & - & 0.10608e+04,0.80424e+03,0.58130e+03,0.85117e+03,0.11226e+04 /) - kbo(:, 2,19, 8) = (/ & - & 0.10584e+04,0.80242e+03,0.58135e+03,0.85109e+03,0.11227e+04 /) - kbo(:, 3,19, 8) = (/ & - & 0.10562e+04,0.80084e+03,0.58113e+03,0.85087e+03,0.11225e+04 /) - kbo(:, 4,19, 8) = (/ & - & 0.10544e+04,0.79946e+03,0.58072e+03,0.85040e+03,0.11220e+04 /) - kbo(:, 5,19, 8) = (/ & - & 0.10528e+04,0.79825e+03,0.58019e+03,0.84971e+03,0.11212e+04 /) - kbo(:, 1,20, 8) = (/ & - & 0.10544e+04,0.79943e+03,0.58120e+03,0.85111e+03,0.11226e+04 /) - kbo(:, 2,20, 8) = (/ & - & 0.10524e+04,0.79797e+03,0.58122e+03,0.85103e+03,0.11227e+04 /) - kbo(:, 3,20, 8) = (/ & - & 0.10507e+04,0.79669e+03,0.58098e+03,0.85078e+03,0.11225e+04 /) - kbo(:, 4,20, 8) = (/ & - & 0.10492e+04,0.79558e+03,0.58056e+03,0.85028e+03,0.11220e+04 /) - kbo(:, 5,20, 8) = (/ & - & 0.10479e+04,0.79460e+03,0.58002e+03,0.84958e+03,0.11211e+04 /) - kbo(:, 1,21, 8) = (/ & - & 0.10492e+04,0.79553e+03,0.58112e+03,0.85107e+03,0.11227e+04 /) - kbo(:, 2,21, 8) = (/ & - & 0.10476e+04,0.79436e+03,0.58112e+03,0.85096e+03,0.11227e+04 /) - kbo(:, 3,21, 8) = (/ & - & 0.10462e+04,0.79334e+03,0.58085e+03,0.85069e+03,0.11224e+04 /) - kbo(:, 4,21, 8) = (/ & - & 0.10450e+04,0.79243e+03,0.58042e+03,0.85021e+03,0.11219e+04 /) - kbo(:, 5,21, 8) = (/ & - & 0.10440e+04,0.79165e+03,0.57987e+03,0.84945e+03,0.11210e+04 /) - kbo(:, 1,22, 8) = (/ & - & 0.10449e+04,0.79230e+03,0.58106e+03,0.85103e+03,0.11226e+04 /) - kbo(:, 2,22, 8) = (/ & - & 0.10436e+04,0.79136e+03,0.58100e+03,0.85090e+03,0.11227e+04 /) - kbo(:, 3,22, 8) = (/ & - & 0.10425e+04,0.79054e+03,0.58071e+03,0.85058e+03,0.11224e+04 /) - kbo(:, 4,22, 8) = (/ & - & 0.10416e+04,0.78983e+03,0.58026e+03,0.85002e+03,0.11217e+04 /) - kbo(:, 5,22, 8) = (/ & - & 0.10407e+04,0.78921e+03,0.57969e+03,0.84925e+03,0.11208e+04 /) - kbo(:, 1,23, 8) = (/ & - & 0.10414e+04,0.78969e+03,0.58100e+03,0.85099e+03,0.11227e+04 /) - kbo(:, 2,23, 8) = (/ & - & 0.10404e+04,0.78894e+03,0.58090e+03,0.85083e+03,0.11226e+04 /) - kbo(:, 3,23, 8) = (/ & - & 0.10395e+04,0.78829e+03,0.58058e+03,0.85047e+03,0.11223e+04 /) - kbo(:, 4,23, 8) = (/ & - & 0.10387e+04,0.78772e+03,0.58011e+03,0.84989e+03,0.11216e+04 /) - kbo(:, 5,23, 8) = (/ & - & 0.10381e+04,0.78721e+03,0.57952e+03,0.84905e+03,0.11206e+04 /) - kbo(:, 1,24, 8) = (/ & - & 0.10386e+04,0.78759e+03,0.58095e+03,0.85095e+03,0.11227e+04 /) - kbo(:, 2,24, 8) = (/ & - & 0.10378e+04,0.78698e+03,0.58081e+03,0.85075e+03,0.11226e+04 /) - kbo(:, 3,24, 8) = (/ & - & 0.10371e+04,0.78646e+03,0.58046e+03,0.85035e+03,0.11222e+04 /) - kbo(:, 4,24, 8) = (/ & - & 0.10365e+04,0.78601e+03,0.57995e+03,0.84971e+03,0.11214e+04 /) - kbo(:, 5,24, 8) = (/ & - & 0.10359e+04,0.78561e+03,0.57934e+03,0.84885e+03,0.11203e+04 /) - kbo(:, 1,25, 8) = (/ & - & 0.10363e+04,0.78588e+03,0.58090e+03,0.85090e+03,0.11227e+04 /) - kbo(:, 2,25, 8) = (/ & - & 0.10357e+04,0.78541e+03,0.58070e+03,0.85067e+03,0.11225e+04 /) - kbo(:, 3,25, 8) = (/ & - & 0.10351e+04,0.78498e+03,0.58032e+03,0.85020e+03,0.11220e+04 /) - kbo(:, 4,25, 8) = (/ & - & 0.10346e+04,0.78461e+03,0.57980e+03,0.84953e+03,0.11212e+04 /) - kbo(:, 5,25, 8) = (/ & - & 0.10342e+04,0.78430e+03,0.57916e+03,0.84863e+03,0.11201e+04 /) - kbo(:, 1,26, 8) = (/ & - & 0.10345e+04,0.78450e+03,0.58084e+03,0.85084e+03,0.11227e+04 /) - kbo(:, 2,26, 8) = (/ & - & 0.10339e+04,0.78411e+03,0.58059e+03,0.85057e+03,0.11224e+04 /) - kbo(:, 3,26, 8) = (/ & - & 0.10335e+04,0.78378e+03,0.58018e+03,0.85004e+03,0.11219e+04 /) - kbo(:, 4,26, 8) = (/ & - & 0.10331e+04,0.78349e+03,0.57964e+03,0.84934e+03,0.11210e+04 /) - kbo(:, 5,26, 8) = (/ & - & 0.10328e+04,0.78323e+03,0.57897e+03,0.84838e+03,0.11198e+04 /) - kbo(:, 1,27, 8) = (/ & - & 0.10329e+04,0.78338e+03,0.58078e+03,0.85078e+03,0.11227e+04 /) - kbo(:, 2,27, 8) = (/ & - & 0.10326e+04,0.78307e+03,0.58048e+03,0.85045e+03,0.11223e+04 /) - kbo(:, 3,27, 8) = (/ & - & 0.10322e+04,0.78282e+03,0.58003e+03,0.84982e+03,0.11217e+04 /) - kbo(:, 4,27, 8) = (/ & - & 0.10319e+04,0.78258e+03,0.57947e+03,0.84907e+03,0.11207e+04 /) - kbo(:, 5,27, 8) = (/ & - & 0.10316e+04,0.78237e+03,0.57877e+03,0.84811e+03,0.11194e+04 /) - kbo(:, 1,28, 8) = (/ & - & 0.10318e+04,0.78248e+03,0.58069e+03,0.85072e+03,0.11226e+04 /) - kbo(:, 2,28, 8) = (/ & - & 0.10314e+04,0.78225e+03,0.58037e+03,0.85030e+03,0.11222e+04 /) - kbo(:, 3,28, 8) = (/ & - & 0.10312e+04,0.78205e+03,0.57989e+03,0.84960e+03,0.11215e+04 /) - kbo(:, 4,28, 8) = (/ & - & 0.10309e+04,0.78185e+03,0.57929e+03,0.84888e+03,0.11204e+04 /) - kbo(:, 5,28, 8) = (/ & - & 0.10307e+04,0.78168e+03,0.57856e+03,0.84784e+03,0.11191e+04 /) - kbo(:, 1,29, 8) = (/ & - & 0.10308e+04,0.78175e+03,0.58061e+03,0.85062e+03,0.11225e+04 /) - kbo(:, 2,29, 8) = (/ & - & 0.10305e+04,0.78157e+03,0.58024e+03,0.85019e+03,0.11221e+04 /) - kbo(:, 3,29, 8) = (/ & - & 0.10303e+04,0.78140e+03,0.57974e+03,0.84950e+03,0.11213e+04 /) - kbo(:, 4,29, 8) = (/ & - & 0.10301e+04,0.78126e+03,0.57911e+03,0.84863e+03,0.11201e+04 /) - kbo(:, 5,29, 8) = (/ & - & 0.10300e+04,0.78112e+03,0.57834e+03,0.84752e+03,0.11188e+04 /) - kbo(:, 1,30, 8) = (/ & - & 0.10300e+04,0.78117e+03,0.58052e+03,0.85055e+03,0.11224e+04 /) - kbo(:, 2,30, 8) = (/ & - & 0.10298e+04,0.78102e+03,0.58011e+03,0.85001e+03,0.11219e+04 /) - kbo(:, 3,30, 8) = (/ & - & 0.10296e+04,0.78089e+03,0.57958e+03,0.84932e+03,0.11210e+04 /) - kbo(:, 4,30, 8) = (/ & - & 0.10295e+04,0.78077e+03,0.57892e+03,0.84838e+03,0.11198e+04 /) - kbo(:, 5,30, 8) = (/ & - & 0.10294e+04,0.78066e+03,0.57811e+03,0.84720e+03,0.11184e+04 /) - kbo(:, 1,31, 8) = (/ & - & 0.10294e+04,0.78070e+03,0.58042e+03,0.85041e+03,0.11223e+04 /) - kbo(:, 2,31, 8) = (/ & - & 0.10292e+04,0.78058e+03,0.57998e+03,0.84985e+03,0.11217e+04 /) - kbo(:, 3,31, 8) = (/ & - & 0.10291e+04,0.78049e+03,0.57941e+03,0.84908e+03,0.11207e+04 /) - kbo(:, 4,31, 8) = (/ & - & 0.10290e+04,0.78039e+03,0.57872e+03,0.84808e+03,0.11195e+04 /) - kbo(:, 5,31, 8) = (/ & - & 0.10289e+04,0.78030e+03,0.57786e+03,0.84686e+03,0.11179e+04 /) - kbo(:, 1,32, 8) = (/ & - & 0.10289e+04,0.78033e+03,0.58031e+03,0.85030e+03,0.11222e+04 /) - kbo(:, 2,32, 8) = (/ & - & 0.10288e+04,0.78024e+03,0.57984e+03,0.84967e+03,0.11215e+04 /) - kbo(:, 3,32, 8) = (/ & - & 0.10287e+04,0.78016e+03,0.57924e+03,0.84884e+03,0.11204e+04 /) - kbo(:, 4,32, 8) = (/ & - & 0.10286e+04,0.78009e+03,0.57851e+03,0.84778e+03,0.11191e+04 /) - kbo(:, 5,32, 8) = (/ & - & 0.10285e+04,0.78000e+03,0.57759e+03,0.84651e+03,0.11175e+04 /) - kbo(:, 1,33, 8) = (/ & - & 0.10285e+04,0.78003e+03,0.58019e+03,0.85016e+03,0.11220e+04 /) - kbo(:, 2,33, 8) = (/ & - & 0.10284e+04,0.77995e+03,0.57968e+03,0.84947e+03,0.11212e+04 /) - kbo(:, 3,33, 8) = (/ & - & 0.10283e+04,0.77988e+03,0.57905e+03,0.84858e+03,0.11201e+04 /) - kbo(:, 4,33, 8) = (/ & - & 0.10282e+04,0.77982e+03,0.57829e+03,0.84747e+03,0.11187e+04 /) - kbo(:, 5,33, 8) = (/ & - & 0.10282e+04,0.77978e+03,0.57730e+03,0.84615e+03,0.11170e+04 /) - kbo(:, 1,34, 8) = (/ & - & 0.10282e+04,0.77978e+03,0.58008e+03,0.84998e+03,0.11219e+04 /) - kbo(:, 2,34, 8) = (/ & - & 0.10281e+04,0.77972e+03,0.57954e+03,0.84930e+03,0.11210e+04 /) - kbo(:, 3,34, 8) = (/ & - & 0.10280e+04,0.77967e+03,0.57889e+03,0.84836e+03,0.11198e+04 /) - kbo(:, 4,34, 8) = (/ & - & 0.10280e+04,0.77962e+03,0.57808e+03,0.84718e+03,0.11184e+04 /) - kbo(:, 5,34, 8) = (/ & - & 0.10279e+04,0.77958e+03,0.57705e+03,0.84582e+03,0.11166e+04 /) - kbo(:, 1,35, 8) = (/ & - & 0.10279e+04,0.77958e+03,0.58001e+03,0.84995e+03,0.11218e+04 /) - kbo(:, 2,35, 8) = (/ & - & 0.10278e+04,0.77953e+03,0.57946e+03,0.84916e+03,0.11209e+04 /) - kbo(:, 3,35, 8) = (/ & - & 0.10278e+04,0.77951e+03,0.57880e+03,0.84823e+03,0.11196e+04 /) - kbo(:, 4,35, 8) = (/ & - & 0.10277e+04,0.77946e+03,0.57796e+03,0.84701e+03,0.11181e+04 /) - kbo(:, 5,35, 8) = (/ & - & 0.10277e+04,0.77943e+03,0.57689e+03,0.84563e+03,0.11163e+04 /) - kbo(:, 1,36, 8) = (/ & - & 0.10277e+04,0.77944e+03,0.58000e+03,0.84992e+03,0.11218e+04 /) - kbo(:, 2,36, 8) = (/ & - & 0.10277e+04,0.77940e+03,0.57944e+03,0.84917e+03,0.11208e+04 /) - kbo(:, 3,36, 8) = (/ & - & 0.10276e+04,0.77936e+03,0.57877e+03,0.84819e+03,0.11196e+04 /) - kbo(:, 4,36, 8) = (/ & - & 0.10276e+04,0.77933e+03,0.57793e+03,0.84697e+03,0.11181e+04 /) - kbo(:, 5,36, 8) = (/ & - & 0.10275e+04,0.77931e+03,0.57686e+03,0.84561e+03,0.11162e+04 /) - kbo(:, 1,37, 8) = (/ & - & 0.10275e+04,0.77932e+03,0.58006e+03,0.85002e+03,0.11219e+04 /) - kbo(:, 2,37, 8) = (/ & - & 0.10275e+04,0.77929e+03,0.57952e+03,0.84927e+03,0.11210e+04 /) - kbo(:, 3,37, 8) = (/ & - & 0.10275e+04,0.77926e+03,0.57886e+03,0.84832e+03,0.11198e+04 /) - kbo(:, 4,37, 8) = (/ & - & 0.10274e+04,0.77924e+03,0.57805e+03,0.84715e+03,0.11183e+04 /) - kbo(:, 5,37, 8) = (/ & - & 0.10274e+04,0.77921e+03,0.57701e+03,0.84575e+03,0.11165e+04 /) - kbo(:, 1,38, 8) = (/ & - & 0.10274e+04,0.77922e+03,0.58012e+03,0.85009e+03,0.11220e+04 /) - kbo(:, 2,38, 8) = (/ & - & 0.10274e+04,0.77920e+03,0.57959e+03,0.84938e+03,0.11211e+04 /) - kbo(:, 3,38, 8) = (/ & - & 0.10274e+04,0.77918e+03,0.57896e+03,0.84848e+03,0.11200e+04 /) - kbo(:, 4,38, 8) = (/ & - & 0.10273e+04,0.77915e+03,0.57818e+03,0.84731e+03,0.11185e+04 /) - kbo(:, 5,38, 8) = (/ & - & 0.10273e+04,0.77912e+03,0.57716e+03,0.84599e+03,0.11168e+04 /) - kbo(:, 1,39, 8) = (/ & - & 0.10273e+04,0.77914e+03,0.58018e+03,0.85016e+03,0.11221e+04 /) - kbo(:, 2,39, 8) = (/ & - & 0.10273e+04,0.77912e+03,0.57968e+03,0.84939e+03,0.11213e+04 /) - kbo(:, 3,39, 8) = (/ & - & 0.10273e+04,0.77911e+03,0.57905e+03,0.84861e+03,0.11201e+04 /) - kbo(:, 4,39, 8) = (/ & - & 0.10272e+04,0.77910e+03,0.57829e+03,0.84750e+03,0.11187e+04 /) - kbo(:, 5,39, 8) = (/ & - & 0.10272e+04,0.77907e+03,0.57732e+03,0.84617e+03,0.11171e+04 /) - kbo(:, 1,40, 8) = (/ & - & 0.10272e+04,0.77908e+03,0.58028e+03,0.85029e+03,0.11222e+04 /) - kbo(:, 2,40, 8) = (/ & - & 0.10272e+04,0.77906e+03,0.57981e+03,0.84968e+03,0.11215e+04 /) - kbo(:, 3,40, 8) = (/ & - & 0.10272e+04,0.77904e+03,0.57922e+03,0.84885e+03,0.11204e+04 /) - kbo(:, 4,40, 8) = (/ & - & 0.10272e+04,0.77904e+03,0.57849e+03,0.84779e+03,0.11191e+04 /) - kbo(:, 5,40, 8) = (/ & - & 0.10272e+04,0.77901e+03,0.57757e+03,0.84651e+03,0.11176e+04 /) - kbo(:, 1,41, 8) = (/ & - & 0.10272e+04,0.77903e+03,0.58037e+03,0.85041e+03,0.11224e+04 /) - kbo(:, 2,41, 8) = (/ & - & 0.10272e+04,0.77902e+03,0.57994e+03,0.84983e+03,0.11217e+04 /) - kbo(:, 3,41, 8) = (/ & - & 0.10271e+04,0.77900e+03,0.57937e+03,0.84906e+03,0.11207e+04 /) - kbo(:, 4,41, 8) = (/ & - & 0.10271e+04,0.77898e+03,0.57870e+03,0.84808e+03,0.11195e+04 /) - kbo(:, 5,41, 8) = (/ & - & 0.10271e+04,0.77898e+03,0.57782e+03,0.84685e+03,0.11180e+04 /) - kbo(:, 1,42, 8) = (/ & - & 0.10271e+04,0.77900e+03,0.58046e+03,0.85051e+03,0.11225e+04 /) - kbo(:, 2,42, 8) = (/ & - & 0.10271e+04,0.77898e+03,0.58006e+03,0.85002e+03,0.11219e+04 /) - kbo(:, 3,42, 8) = (/ & - & 0.10271e+04,0.77896e+03,0.57953e+03,0.84930e+03,0.11210e+04 /) - kbo(:, 4,42, 8) = (/ & - & 0.10271e+04,0.77895e+03,0.57888e+03,0.84835e+03,0.11198e+04 /) - kbo(:, 5,42, 8) = (/ & - & 0.10270e+04,0.77894e+03,0.57806e+03,0.84718e+03,0.11184e+04 /) - kbo(:, 1,43, 8) = (/ & - & 0.10271e+04,0.77895e+03,0.58056e+03,0.85062e+03,0.11226e+04 /) - kbo(:, 2,43, 8) = (/ & - & 0.10270e+04,0.77895e+03,0.58020e+03,0.85017e+03,0.11221e+04 /) - kbo(:, 3,43, 8) = (/ & - & 0.10270e+04,0.77892e+03,0.57970e+03,0.84954e+03,0.11213e+04 /) - kbo(:, 4,43, 8) = (/ & - & 0.10270e+04,0.77892e+03,0.57909e+03,0.84866e+03,0.11202e+04 /) - kbo(:, 5,43, 8) = (/ & - & 0.10270e+04,0.77891e+03,0.57834e+03,0.84756e+03,0.11188e+04 /) - kbo(:, 1,44, 8) = (/ & - & 0.10270e+04,0.77892e+03,0.58064e+03,0.85071e+03,0.11226e+04 /) - kbo(:, 2,44, 8) = (/ & - & 0.10270e+04,0.77891e+03,0.58034e+03,0.85036e+03,0.11223e+04 /) - kbo(:, 3,44, 8) = (/ & - & 0.10270e+04,0.77891e+03,0.57988e+03,0.84979e+03,0.11216e+04 /) - kbo(:, 4,44, 8) = (/ & - & 0.10270e+04,0.77890e+03,0.57931e+03,0.84899e+03,0.11206e+04 /) - kbo(:, 5,44, 8) = (/ & - & 0.10270e+04,0.77888e+03,0.57861e+03,0.84797e+03,0.11193e+04 /) - kbo(:, 1,45, 8) = (/ & - & 0.10270e+04,0.77889e+03,0.58069e+03,0.85078e+03,0.11227e+04 /) - kbo(:, 2,45, 8) = (/ & - & 0.10270e+04,0.77888e+03,0.58047e+03,0.85051e+03,0.11224e+04 /) - kbo(:, 3,45, 8) = (/ & - & 0.10270e+04,0.77888e+03,0.58005e+03,0.84999e+03,0.11219e+04 /) - kbo(:, 4,45, 8) = (/ & - & 0.10270e+04,0.77888e+03,0.57952e+03,0.84927e+03,0.11210e+04 /) - kbo(:, 5,45, 8) = (/ & - & 0.10269e+04,0.77886e+03,0.57890e+03,0.84837e+03,0.11198e+04 /) - kbo(:, 1,46, 8) = (/ & - & 0.10270e+04,0.77887e+03,0.58072e+03,0.85082e+03,0.11227e+04 /) - kbo(:, 2,46, 8) = (/ & - & 0.10270e+04,0.77886e+03,0.58056e+03,0.85063e+03,0.11226e+04 /) - kbo(:, 3,46, 8) = (/ & - & 0.10269e+04,0.77886e+03,0.58022e+03,0.85021e+03,0.11221e+04 /) - kbo(:, 4,46, 8) = (/ & - & 0.10270e+04,0.77885e+03,0.57972e+03,0.84957e+03,0.11213e+04 /) - kbo(:, 5,46, 8) = (/ & - & 0.10269e+04,0.77884e+03,0.57911e+03,0.84871e+03,0.11203e+04 /) - kbo(:, 1,47, 8) = (/ & - & 0.10269e+04,0.77885e+03,0.58070e+03,0.85086e+03,0.11227e+04 /) - kbo(:, 2,47, 8) = (/ & - & 0.10269e+04,0.77886e+03,0.58066e+03,0.85073e+03,0.11227e+04 /) - kbo(:, 3,47, 8) = (/ & - & 0.10269e+04,0.77885e+03,0.58037e+03,0.85041e+03,0.11223e+04 /) - kbo(:, 4,47, 8) = (/ & - & 0.10269e+04,0.77884e+03,0.57993e+03,0.84985e+03,0.11217e+04 /) - kbo(:, 5,47, 8) = (/ & - & 0.10269e+04,0.77883e+03,0.57937e+03,0.84903e+03,0.11207e+04 /) - kbo(:, 1,48, 8) = (/ & - & 0.10269e+04,0.77884e+03,0.58064e+03,0.85086e+03,0.11226e+04 /) - kbo(:, 2,48, 8) = (/ & - & 0.10269e+04,0.77883e+03,0.58071e+03,0.85080e+03,0.11227e+04 /) - kbo(:, 3,48, 8) = (/ & - & 0.10269e+04,0.77883e+03,0.58051e+03,0.85055e+03,0.11225e+04 /) - kbo(:, 4,48, 8) = (/ & - & 0.10269e+04,0.77883e+03,0.58013e+03,0.85010e+03,0.11220e+04 /) - kbo(:, 5,48, 8) = (/ & - & 0.10269e+04,0.77883e+03,0.57961e+03,0.84941e+03,0.11212e+04 /) - kbo(:, 1,49, 8) = (/ & - & 0.10269e+04,0.77884e+03,0.58054e+03,0.85082e+03,0.11225e+04 /) - kbo(:, 2,49, 8) = (/ & - & 0.10269e+04,0.77882e+03,0.58072e+03,0.85085e+03,0.11227e+04 /) - kbo(:, 3,49, 8) = (/ & - & 0.10269e+04,0.77883e+03,0.58061e+03,0.85068e+03,0.11226e+04 /) - kbo(:, 4,49, 8) = (/ & - & 0.10269e+04,0.77882e+03,0.58029e+03,0.85032e+03,0.11222e+04 /) - kbo(:, 5,49, 8) = (/ & - & 0.10269e+04,0.77881e+03,0.57983e+03,0.84969e+03,0.11215e+04 /) - kbo(:, 1,50, 8) = (/ & - & 0.10269e+04,0.77883e+03,0.58042e+03,0.85074e+03,0.11224e+04 /) - kbo(:, 2,50, 8) = (/ & - & 0.10269e+04,0.77881e+03,0.58068e+03,0.85085e+03,0.11226e+04 /) - kbo(:, 3,50, 8) = (/ & - & 0.10269e+04,0.77882e+03,0.58069e+03,0.85077e+03,0.11227e+04 /) - kbo(:, 4,50, 8) = (/ & - & 0.10269e+04,0.77880e+03,0.58043e+03,0.85048e+03,0.11224e+04 /) - kbo(:, 5,50, 8) = (/ & - & 0.10269e+04,0.77880e+03,0.58002e+03,0.84997e+03,0.11218e+04 /) - kbo(:, 1,51, 8) = (/ & - & 0.10269e+04,0.77881e+03,0.58027e+03,0.85064e+03,0.11224e+04 /) - kbo(:, 2,51, 8) = (/ & - & 0.10269e+04,0.77882e+03,0.58061e+03,0.85085e+03,0.11226e+04 /) - kbo(:, 3,51, 8) = (/ & - & 0.10269e+04,0.77880e+03,0.58071e+03,0.85082e+03,0.11227e+04 /) - kbo(:, 4,51, 8) = (/ & - & 0.10269e+04,0.77880e+03,0.58055e+03,0.85061e+03,0.11226e+04 /) - kbo(:, 5,51, 8) = (/ & - & 0.10269e+04,0.77881e+03,0.58020e+03,0.85015e+03,0.11221e+04 /) - kbo(:, 1,52, 8) = (/ & - & 0.10269e+04,0.77880e+03,0.58011e+03,0.85051e+03,0.11222e+04 /) - kbo(:, 2,52, 8) = (/ & - & 0.10269e+04,0.77880e+03,0.58051e+03,0.85080e+03,0.11225e+04 /) - kbo(:, 3,52, 8) = (/ & - & 0.10269e+04,0.77880e+03,0.58071e+03,0.85085e+03,0.11227e+04 /) - kbo(:, 4,52, 8) = (/ & - & 0.10268e+04,0.77879e+03,0.58064e+03,0.85068e+03,0.11226e+04 /) - kbo(:, 5,52, 8) = (/ & - & 0.10268e+04,0.77879e+03,0.58034e+03,0.85037e+03,0.11223e+04 /) - kbo(:, 1,53, 8) = (/ & - & 0.10269e+04,0.77880e+03,0.57994e+03,0.85036e+03,0.11220e+04 /) - kbo(:, 2,53, 8) = (/ & - & 0.10269e+04,0.77879e+03,0.58038e+03,0.85072e+03,0.11224e+04 /) - kbo(:, 3,53, 8) = (/ & - & 0.10268e+04,0.77879e+03,0.58066e+03,0.85087e+03,0.11226e+04 /) - kbo(:, 4,53, 8) = (/ & - & 0.10269e+04,0.77880e+03,0.58069e+03,0.85078e+03,0.11227e+04 /) - kbo(:, 5,53, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.58047e+03,0.85044e+03,0.11225e+04 /) - kbo(:, 1,54, 8) = (/ & - & 0.10268e+04,0.77879e+03,0.57977e+03,0.85022e+03,0.11219e+04 /) - kbo(:, 2,54, 8) = (/ & - & 0.10269e+04,0.77879e+03,0.58026e+03,0.85061e+03,0.11223e+04 /) - kbo(:, 3,54, 8) = (/ & - & 0.10268e+04,0.77881e+03,0.58060e+03,0.85084e+03,0.11226e+04 /) - kbo(:, 4,54, 8) = (/ & - & 0.10268e+04,0.77879e+03,0.58072e+03,0.85083e+03,0.11227e+04 /) - kbo(:, 5,54, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.58058e+03,0.85063e+03,0.11226e+04 /) - kbo(:, 1,55, 8) = (/ & - & 0.10268e+04,0.77879e+03,0.57962e+03,0.85008e+03,0.11217e+04 /) - kbo(:, 2,55, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.58011e+03,0.85050e+03,0.11222e+04 /) - kbo(:, 3,55, 8) = (/ & - & 0.10268e+04,0.77879e+03,0.58050e+03,0.85080e+03,0.11225e+04 /) - kbo(:, 4,55, 8) = (/ & - & 0.10268e+04,0.77880e+03,0.58071e+03,0.85085e+03,0.11226e+04 /) - kbo(:, 5,55, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.58064e+03,0.85072e+03,0.11226e+04 /) - kbo(:, 1,56, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.57945e+03,0.84993e+03,0.11216e+04 /) - kbo(:, 2,56, 8) = (/ & - & 0.10268e+04,0.77877e+03,0.57995e+03,0.85037e+03,0.11220e+04 /) - kbo(:, 3,56, 8) = (/ & - & 0.10268e+04,0.77877e+03,0.58039e+03,0.85071e+03,0.11224e+04 /) - kbo(:, 4,56, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.58067e+03,0.85086e+03,0.11226e+04 /) - kbo(:, 5,56, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.58069e+03,0.85078e+03,0.11227e+04 /) - kbo(:, 1,57, 8) = (/ & - & 0.10268e+04,0.77879e+03,0.57927e+03,0.84978e+03,0.11215e+04 /) - kbo(:, 2,57, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.57979e+03,0.85024e+03,0.11219e+04 /) - kbo(:, 3,57, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.58025e+03,0.85063e+03,0.11223e+04 /) - kbo(:, 4,57, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.58060e+03,0.85084e+03,0.11226e+04 /) - kbo(:, 5,57, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.58071e+03,0.85083e+03,0.11227e+04 /) - kbo(:, 1,58, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.57911e+03,0.84962e+03,0.11212e+04 /) - kbo(:, 2,58, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.57964e+03,0.85010e+03,0.11218e+04 /) - kbo(:, 3,58, 8) = (/ & - & 0.10268e+04,0.77877e+03,0.58013e+03,0.85053e+03,0.11222e+04 /) - kbo(:, 4,58, 8) = (/ & - & 0.10268e+04,0.77877e+03,0.58052e+03,0.85080e+03,0.11225e+04 /) - kbo(:, 5,58, 8) = (/ & - & 0.10268e+04,0.77879e+03,0.58071e+03,0.85085e+03,0.11227e+04 /) - kbo(:, 1,59, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.57904e+03,0.84955e+03,0.11212e+04 /) - kbo(:, 2,59, 8) = (/ & - & 0.10268e+04,0.77877e+03,0.57958e+03,0.85006e+03,0.11217e+04 /) - kbo(:, 3,59, 8) = (/ & - & 0.10268e+04,0.77877e+03,0.58007e+03,0.85048e+03,0.11222e+04 /) - kbo(:, 4,59, 8) = (/ & - & 0.10268e+04,0.77878e+03,0.58048e+03,0.85078e+03,0.11225e+04 /) - kbo(:, 5,59, 8) = (/ & - & 0.10268e+04,0.77877e+03,0.58070e+03,0.85086e+03,0.11227e+04 /) - kbo(:, 1,13, 9) = (/ & - & 0.11533e+04,0.87327e+03,0.59473e+03,0.87046e+03,0.11487e+04 /) - kbo(:, 2,13, 9) = (/ & - & 0.11444e+04,0.86660e+03,0.59240e+03,0.87005e+03,0.11483e+04 /) - kbo(:, 3,13, 9) = (/ & - & 0.11367e+04,0.86090e+03,0.59185e+03,0.86950e+03,0.11478e+04 /) - kbo(:, 4,13, 9) = (/ & - & 0.11301e+04,0.85587e+03,0.59143e+03,0.86883e+03,0.11469e+04 /) - kbo(:, 5,13, 9) = (/ & - & 0.11242e+04,0.85148e+03,0.59084e+03,0.86797e+03,0.11458e+04 /) - kbo(:, 1,14, 9) = (/ & - & 0.11310e+04,0.85656e+03,0.59238e+03,0.87026e+03,0.11487e+04 /) - kbo(:, 2,14, 9) = (/ & - & 0.11238e+04,0.85118e+03,0.59190e+03,0.86988e+03,0.11483e+04 /) - kbo(:, 3,14, 9) = (/ & - & 0.11176e+04,0.84654e+03,0.59149e+03,0.86931e+03,0.11477e+04 /) - kbo(:, 4,14, 9) = (/ & - & 0.11122e+04,0.84248e+03,0.59105e+03,0.86863e+03,0.11468e+04 /) - kbo(:, 5,14, 9) = (/ & - & 0.11074e+04,0.83890e+03,0.59046e+03,0.86777e+03,0.11457e+04 /) - kbo(:, 1,15, 9) = (/ & - & 0.11128e+04,0.84292e+03,0.59202e+03,0.87009e+03,0.11486e+04 /) - kbo(:, 2,15, 9) = (/ & - & 0.11070e+04,0.83857e+03,0.59157e+03,0.86969e+03,0.11482e+04 /) - kbo(:, 3,15, 9) = (/ & - & 0.11020e+04,0.83480e+03,0.59118e+03,0.86913e+03,0.11476e+04 /) - kbo(:, 4,15, 9) = (/ & - & 0.10976e+04,0.83151e+03,0.59076e+03,0.86843e+03,0.11467e+04 /) - kbo(:, 5,15, 9) = (/ & - & 0.10938e+04,0.82865e+03,0.59015e+03,0.86756e+03,0.11457e+04 /) - kbo(:, 1,16, 9) = (/ & - & 0.10980e+04,0.83182e+03,0.59172e+03,0.86994e+03,0.11486e+04 /) - kbo(:, 2,16, 9) = (/ & - & 0.10933e+04,0.82831e+03,0.59129e+03,0.86966e+03,0.11482e+04 /) - kbo(:, 3,16, 9) = (/ & - & 0.10893e+04,0.82527e+03,0.59092e+03,0.86898e+03,0.11475e+04 /) - kbo(:, 4,16, 9) = (/ & - & 0.10858e+04,0.82261e+03,0.59049e+03,0.86826e+03,0.11466e+04 /) - kbo(:, 5,16, 9) = (/ & - & 0.10827e+04,0.82037e+03,0.58989e+03,0.86738e+03,0.11455e+04 /) - kbo(:, 1,17, 9) = (/ & - & 0.10860e+04,0.82280e+03,0.59147e+03,0.86983e+03,0.11485e+04 /) - kbo(:, 2,17, 9) = (/ & - & 0.10822e+04,0.81997e+03,0.59107e+03,0.86941e+03,0.11481e+04 /) - kbo(:, 3,17, 9) = (/ & - & 0.10790e+04,0.81753e+03,0.59070e+03,0.86883e+03,0.11474e+04 /) - kbo(:, 4,17, 9) = (/ & - & 0.10761e+04,0.81539e+03,0.59027e+03,0.86811e+03,0.11465e+04 /) - kbo(:, 5,17, 9) = (/ & - & 0.10736e+04,0.81353e+03,0.58965e+03,0.86721e+03,0.11454e+04 /) - kbo(:, 1,18, 9) = (/ & - & 0.10762e+04,0.81555e+03,0.59126e+03,0.86969e+03,0.11485e+04 /) - kbo(:, 2,18, 9) = (/ & - & 0.10732e+04,0.81322e+03,0.59088e+03,0.86928e+03,0.11481e+04 /) - kbo(:, 3,18, 9) = (/ & - & 0.10706e+04,0.81128e+03,0.59052e+03,0.86870e+03,0.11474e+04 /) - kbo(:, 4,18, 9) = (/ & - & 0.10683e+04,0.80956e+03,0.59008e+03,0.86800e+03,0.11464e+04 /) - kbo(:, 5,18, 9) = (/ & - & 0.10663e+04,0.80808e+03,0.58945e+03,0.86705e+03,0.11452e+04 /) - kbo(:, 1,19, 9) = (/ & - & 0.10684e+04,0.80963e+03,0.59108e+03,0.86962e+03,0.11485e+04 /) - kbo(:, 2,19, 9) = (/ & - & 0.10659e+04,0.80774e+03,0.59072e+03,0.86917e+03,0.11480e+04 /) - kbo(:, 3,19, 9) = (/ & - & 0.10638e+04,0.80613e+03,0.59038e+03,0.86858e+03,0.11473e+04 /) - kbo(:, 4,19, 9) = (/ & - & 0.10619e+04,0.80481e+03,0.58991e+03,0.86784e+03,0.11463e+04 /) - kbo(:, 5,19, 9) = (/ & - & 0.10603e+04,0.80353e+03,0.58926e+03,0.86690e+03,0.11451e+04 /) - kbo(:, 1,20, 9) = (/ & - & 0.10619e+04,0.80474e+03,0.59092e+03,0.86952e+03,0.11484e+04 /) - kbo(:, 2,20, 9) = (/ & - & 0.10599e+04,0.80326e+03,0.59057e+03,0.86907e+03,0.11479e+04 /) - kbo(:, 3,20, 9) = (/ & - & 0.10582e+04,0.80198e+03,0.59022e+03,0.86845e+03,0.11472e+04 /) - kbo(:, 4,20, 9) = (/ & - & 0.10567e+04,0.80089e+03,0.58976e+03,0.86771e+03,0.11462e+04 /) - kbo(:, 5,20, 9) = (/ & - & 0.10554e+04,0.79986e+03,0.58910e+03,0.86674e+03,0.11449e+04 /) - kbo(:, 1,21, 9) = (/ & - & 0.10567e+04,0.80080e+03,0.59079e+03,0.86945e+03,0.11483e+04 /) - kbo(:, 2,21, 9) = (/ & - & 0.10550e+04,0.79960e+03,0.59045e+03,0.86897e+03,0.11478e+04 /) - kbo(:, 3,21, 9) = (/ & - & 0.10537e+04,0.79858e+03,0.59010e+03,0.86836e+03,0.11471e+04 /) - kbo(:, 4,21, 9) = (/ & - & 0.10525e+04,0.79770e+03,0.58962e+03,0.86752e+03,0.11460e+04 /) - kbo(:, 5,21, 9) = (/ & - & 0.10514e+04,0.79685e+03,0.58893e+03,0.86654e+03,0.11447e+04 /) - kbo(:, 1,22, 9) = (/ & - & 0.10523e+04,0.79754e+03,0.59066e+03,0.86933e+03,0.11483e+04 /) - kbo(:, 2,22, 9) = (/ & - & 0.10510e+04,0.79661e+03,0.59033e+03,0.86884e+03,0.11477e+04 /) - kbo(:, 3,22, 9) = (/ & - & 0.10500e+04,0.79577e+03,0.58997e+03,0.86819e+03,0.11469e+04 /) - kbo(:, 4,22, 9) = (/ & - & 0.10490e+04,0.79506e+03,0.58945e+03,0.86737e+03,0.11458e+04 /) - kbo(:, 5,22, 9) = (/ & - & 0.10482e+04,0.79443e+03,0.58872e+03,0.86635e+03,0.11444e+04 /) - kbo(:, 1,23, 9) = (/ & - & 0.10488e+04,0.79491e+03,0.59053e+03,0.86922e+03,0.11482e+04 /) - kbo(:, 2,23, 9) = (/ & - & 0.10478e+04,0.79417e+03,0.59023e+03,0.86872e+03,0.11476e+04 /) - kbo(:, 3,23, 9) = (/ & - & 0.10469e+04,0.79351e+03,0.58983e+03,0.86802e+03,0.11467e+04 /) - kbo(:, 4,23, 9) = (/ & - & 0.10461e+04,0.79293e+03,0.58929e+03,0.86717e+03,0.11456e+04 /) - kbo(:, 5,23, 9) = (/ & - & 0.10455e+04,0.79241e+03,0.58851e+03,0.86610e+03,0.11442e+04 /) - kbo(:, 1,24, 9) = (/ & - & 0.10460e+04,0.79285e+03,0.59042e+03,0.86910e+03,0.11481e+04 /) - kbo(:, 2,24, 9) = (/ & - & 0.10452e+04,0.79220e+03,0.59009e+03,0.86856e+03,0.11474e+04 /) - kbo(:, 3,24, 9) = (/ & - & 0.10445e+04,0.79170e+03,0.58968e+03,0.86785e+03,0.11465e+04 /) - kbo(:, 4,24, 9) = (/ & - & 0.10439e+04,0.79123e+03,0.58911e+03,0.86698e+03,0.11453e+04 /) - kbo(:, 5,24, 9) = (/ & - & 0.10433e+04,0.79086e+03,0.58830e+03,0.86584e+03,0.11439e+04 /) - kbo(:, 1,25, 9) = (/ & - & 0.10438e+04,0.79109e+03,0.59032e+03,0.86899e+03,0.11480e+04 /) - kbo(:, 2,25, 9) = (/ & - & 0.10430e+04,0.79059e+03,0.58999e+03,0.86841e+03,0.11473e+04 /) - kbo(:, 3,25, 9) = (/ & - & 0.10425e+04,0.79018e+03,0.58955e+03,0.86768e+03,0.11463e+04 /) - kbo(:, 4,25, 9) = (/ & - & 0.10420e+04,0.78985e+03,0.58893e+03,0.86674e+03,0.11450e+04 /) - kbo(:, 5,25, 9) = (/ & - & 0.10416e+04,0.78947e+03,0.58810e+03,0.86557e+03,0.11436e+04 /) - kbo(:, 1,26, 9) = (/ & - & 0.10418e+04,0.78966e+03,0.59022e+03,0.86886e+03,0.11478e+04 /) - kbo(:, 2,26, 9) = (/ & - & 0.10414e+04,0.78932e+03,0.58989e+03,0.86824e+03,0.11471e+04 /) - kbo(:, 3,26, 9) = (/ & - & 0.10409e+04,0.78898e+03,0.58940e+03,0.86743e+03,0.11460e+04 /) - kbo(:, 4,26, 9) = (/ & - & 0.10405e+04,0.78870e+03,0.58873e+03,0.86647e+03,0.11447e+04 /) - kbo(:, 5,26, 9) = (/ & - & 0.10401e+04,0.78842e+03,0.58782e+03,0.86527e+03,0.11432e+04 /) - kbo(:, 1,27, 9) = (/ & - & 0.10403e+04,0.78855e+03,0.59012e+03,0.86872e+03,0.11477e+04 /) - kbo(:, 2,27, 9) = (/ & - & 0.10399e+04,0.78827e+03,0.58977e+03,0.86806e+03,0.11468e+04 /) - kbo(:, 3,27, 9) = (/ & - & 0.10396e+04,0.78799e+03,0.58924e+03,0.86723e+03,0.11458e+04 /) - kbo(:, 4,27, 9) = (/ & - & 0.10392e+04,0.78776e+03,0.58850e+03,0.86619e+03,0.11444e+04 /) - kbo(:, 5,27, 9) = (/ & - & 0.10390e+04,0.78757e+03,0.58756e+03,0.86495e+03,0.11428e+04 /) - kbo(:, 1,28, 9) = (/ & - & 0.10391e+04,0.78770e+03,0.59002e+03,0.86856e+03,0.11475e+04 /) - kbo(:, 2,28, 9) = (/ & - & 0.10388e+04,0.78747e+03,0.58964e+03,0.86790e+03,0.11466e+04 /) - kbo(:, 3,28, 9) = (/ & - & 0.10385e+04,0.78719e+03,0.58908e+03,0.86701e+03,0.11455e+04 /) - kbo(:, 4,28, 9) = (/ & - & 0.10383e+04,0.78704e+03,0.58829e+03,0.86590e+03,0.11440e+04 /) - kbo(:, 5,28, 9) = (/ & - & 0.10381e+04,0.78687e+03,0.58729e+03,0.86461e+03,0.11423e+04 /) - kbo(:, 1,29, 9) = (/ & - & 0.10382e+04,0.78694e+03,0.58994e+03,0.86841e+03,0.11473e+04 /) - kbo(:, 2,29, 9) = (/ & - & 0.10379e+04,0.78677e+03,0.58950e+03,0.86767e+03,0.11463e+04 /) - kbo(:, 3,29, 9) = (/ & - & 0.10377e+04,0.78658e+03,0.58888e+03,0.86674e+03,0.11451e+04 /) - kbo(:, 4,29, 9) = (/ & - & 0.10375e+04,0.78645e+03,0.58805e+03,0.86559e+03,0.11436e+04 /) - kbo(:, 5,29, 9) = (/ & - & 0.10374e+04,0.78628e+03,0.58702e+03,0.86429e+03,0.11419e+04 /) - kbo(:, 1,30, 9) = (/ & - & 0.10373e+04,0.78632e+03,0.58983e+03,0.86822e+03,0.11471e+04 /) - kbo(:, 2,30, 9) = (/ & - & 0.10371e+04,0.78619e+03,0.58935e+03,0.86746e+03,0.11460e+04 /) - kbo(:, 3,30, 9) = (/ & - & 0.10370e+04,0.78613e+03,0.58869e+03,0.86647e+03,0.11448e+04 /) - kbo(:, 4,30, 9) = (/ & - & 0.10369e+04,0.78594e+03,0.58779e+03,0.86529e+03,0.11432e+04 /) - kbo(:, 5,30, 9) = (/ & - & 0.10367e+04,0.78585e+03,0.58673e+03,0.86393e+03,0.11414e+04 /) - kbo(:, 1,31, 9) = (/ & - & 0.10367e+04,0.78588e+03,0.58971e+03,0.86804e+03,0.11468e+04 /) - kbo(:, 2,31, 9) = (/ & - & 0.10365e+04,0.78574e+03,0.58919e+03,0.86720e+03,0.11457e+04 /) - kbo(:, 3,31, 9) = (/ & - & 0.10364e+04,0.78562e+03,0.58847e+03,0.86618e+03,0.11443e+04 /) - kbo(:, 4,31, 9) = (/ & - & 0.10363e+04,0.78557e+03,0.58752e+03,0.86495e+03,0.11427e+04 /) - kbo(:, 5,31, 9) = (/ & - & 0.10362e+04,0.78546e+03,0.58644e+03,0.86356e+03,0.11409e+04 /) - kbo(:, 1,32, 9) = (/ & - & 0.10362e+04,0.78556e+03,0.58958e+03,0.86784e+03,0.11466e+04 /) - kbo(:, 2,32, 9) = (/ & - & 0.10361e+04,0.78539e+03,0.58901e+03,0.86697e+03,0.11454e+04 /) - kbo(:, 3,32, 9) = (/ & - & 0.10360e+04,0.78539e+03,0.58824e+03,0.86587e+03,0.11440e+04 /) - kbo(:, 4,32, 9) = (/ & - & 0.10359e+04,0.78525e+03,0.58724e+03,0.86459e+03,0.11423e+04 /) - kbo(:, 5,32, 9) = (/ & - & 0.10358e+04,0.78516e+03,0.58615e+03,0.86318e+03,0.11404e+04 /) - kbo(:, 1,33, 9) = (/ & - & 0.10358e+04,0.78520e+03,0.58945e+03,0.86763e+03,0.11463e+04 /) - kbo(:, 2,33, 9) = (/ & - & 0.10357e+04,0.78510e+03,0.58883e+03,0.86670e+03,0.11450e+04 /) - kbo(:, 3,33, 9) = (/ & - & 0.10356e+04,0.78504e+03,0.58799e+03,0.86554e+03,0.11435e+04 /) - kbo(:, 4,33, 9) = (/ & - & 0.10356e+04,0.78500e+03,0.58695e+03,0.86422e+03,0.11418e+04 /) - kbo(:, 5,33, 9) = (/ & - & 0.10355e+04,0.78493e+03,0.58586e+03,0.86281e+03,0.11399e+04 /) - kbo(:, 1,34, 9) = (/ & - & 0.10355e+04,0.78495e+03,0.58932e+03,0.86743e+03,0.11460e+04 /) - kbo(:, 2,34, 9) = (/ & - & 0.10354e+04,0.78487e+03,0.58865e+03,0.86644e+03,0.11447e+04 /) - kbo(:, 3,34, 9) = (/ & - & 0.10354e+04,0.78485e+03,0.58776e+03,0.86524e+03,0.11432e+04 /) - kbo(:, 4,34, 9) = (/ & - & 0.10353e+04,0.78479e+03,0.58670e+03,0.86390e+03,0.11414e+04 /) - kbo(:, 5,34, 9) = (/ & - & 0.10352e+04,0.78474e+03,0.58560e+03,0.86249e+03,0.11395e+04 /) - kbo(:, 1,35, 9) = (/ & - & 0.10352e+04,0.78478e+03,0.58924e+03,0.86731e+03,0.11459e+04 /) - kbo(:, 2,35, 9) = (/ & - & 0.10352e+04,0.78472e+03,0.58855e+03,0.86632e+03,0.11445e+04 /) - kbo(:, 3,35, 9) = (/ & - & 0.10351e+04,0.78465e+03,0.58761e+03,0.86508e+03,0.11430e+04 /) - kbo(:, 4,35, 9) = (/ & - & 0.10350e+04,0.78465e+03,0.58655e+03,0.86369e+03,0.11412e+04 /) - kbo(:, 5,35, 9) = (/ & - & 0.10350e+04,0.78456e+03,0.58545e+03,0.86237e+03,0.11393e+04 /) - kbo(:, 1,36, 9) = (/ & - & 0.10350e+04,0.78465e+03,0.58922e+03,0.86729e+03,0.11458e+04 /) - kbo(:, 2,36, 9) = (/ & - & 0.10350e+04,0.78456e+03,0.58852e+03,0.86627e+03,0.11445e+04 /) - kbo(:, 3,36, 9) = (/ & - & 0.10350e+04,0.78452e+03,0.58759e+03,0.86505e+03,0.11429e+04 /) - kbo(:, 4,36, 9) = (/ & - & 0.10349e+04,0.78450e+03,0.58651e+03,0.86369e+03,0.11411e+04 /) - kbo(:, 5,36, 9) = (/ & - & 0.10348e+04,0.78444e+03,0.58544e+03,0.86227e+03,0.11392e+04 /) - kbo(:, 1,37, 9) = (/ & - & 0.10349e+04,0.78446e+03,0.58930e+03,0.86738e+03,0.11460e+04 /) - kbo(:, 2,37, 9) = (/ & - & 0.10348e+04,0.78444e+03,0.58863e+03,0.86642e+03,0.11447e+04 /) - kbo(:, 3,37, 9) = (/ & - & 0.10348e+04,0.78441e+03,0.58773e+03,0.86522e+03,0.11432e+04 /) - kbo(:, 4,37, 9) = (/ & - & 0.10348e+04,0.78439e+03,0.58667e+03,0.86387e+03,0.11414e+04 /) - kbo(:, 5,37, 9) = (/ & - & 0.10347e+04,0.78436e+03,0.58559e+03,0.86245e+03,0.11394e+04 /) - kbo(:, 1,38, 9) = (/ & - & 0.10348e+04,0.78440e+03,0.58936e+03,0.86753e+03,0.11462e+04 /) - kbo(:, 2,38, 9) = (/ & - & 0.10347e+04,0.78434e+03,0.58873e+03,0.86658e+03,0.11449e+04 /) - kbo(:, 3,38, 9) = (/ & - & 0.10347e+04,0.78432e+03,0.58786e+03,0.86537e+03,0.11434e+04 /) - kbo(:, 4,38, 9) = (/ & - & 0.10346e+04,0.78431e+03,0.58681e+03,0.86407e+03,0.11416e+04 /) - kbo(:, 5,38, 9) = (/ & - & 0.10347e+04,0.78428e+03,0.58573e+03,0.86265e+03,0.11397e+04 /) - kbo(:, 1,39, 9) = (/ & - & 0.10347e+04,0.78431e+03,0.58943e+03,0.86764e+03,0.11463e+04 /) - kbo(:, 2,39, 9) = (/ & - & 0.10346e+04,0.78431e+03,0.58882e+03,0.86672e+03,0.11451e+04 /) - kbo(:, 3,39, 9) = (/ & - & 0.10346e+04,0.78424e+03,0.58800e+03,0.86557e+03,0.11436e+04 /) - kbo(:, 4,39, 9) = (/ & - & 0.10346e+04,0.78421e+03,0.58697e+03,0.86426e+03,0.11419e+04 /) - kbo(:, 5,39, 9) = (/ & - & 0.10346e+04,0.78429e+03,0.58587e+03,0.86284e+03,0.11400e+04 /) - kbo(:, 1,40, 9) = (/ & - & 0.10346e+04,0.78426e+03,0.58957e+03,0.86785e+03,0.11466e+04 /) - kbo(:, 2,40, 9) = (/ & - & 0.10345e+04,0.78427e+03,0.58899e+03,0.86697e+03,0.11454e+04 /) - kbo(:, 3,40, 9) = (/ & - & 0.10345e+04,0.78422e+03,0.58822e+03,0.86585e+03,0.11440e+04 /) - kbo(:, 4,40, 9) = (/ & - & 0.10345e+04,0.78421e+03,0.58723e+03,0.86460e+03,0.11423e+04 /) - kbo(:, 5,40, 9) = (/ & - & 0.10344e+04,0.78416e+03,0.58614e+03,0.86319e+03,0.11403e+04 /) - kbo(:, 1,41, 9) = (/ & - & 0.10345e+04,0.78421e+03,0.58967e+03,0.86804e+03,0.11468e+04 /) - kbo(:, 2,41, 9) = (/ & - & 0.10345e+04,0.78418e+03,0.58916e+03,0.86720e+03,0.11457e+04 /) - kbo(:, 3,41, 9) = (/ & - & 0.10344e+04,0.78415e+03,0.58844e+03,0.86618e+03,0.11444e+04 /) - kbo(:, 4,41, 9) = (/ & - & 0.10344e+04,0.78413e+03,0.58748e+03,0.86492e+03,0.11428e+04 /) - kbo(:, 5,41, 9) = (/ & - & 0.10344e+04,0.78411e+03,0.58642e+03,0.86355e+03,0.11409e+04 /) - kbo(:, 1,42, 9) = (/ & - & 0.10345e+04,0.78414e+03,0.58976e+03,0.86830e+03,0.11471e+04 /) - kbo(:, 2,42, 9) = (/ & - & 0.10344e+04,0.78417e+03,0.58930e+03,0.86744e+03,0.11460e+04 /) - kbo(:, 3,42, 9) = (/ & - & 0.10344e+04,0.78411e+03,0.58863e+03,0.86645e+03,0.11448e+04 /) - kbo(:, 4,42, 9) = (/ & - & 0.10344e+04,0.78409e+03,0.58775e+03,0.86525e+03,0.11432e+04 /) - kbo(:, 5,42, 9) = (/ & - & 0.10344e+04,0.78408e+03,0.58670e+03,0.86391e+03,0.11414e+04 /) - kbo(:, 1,43, 9) = (/ & - & 0.10344e+04,0.78410e+03,0.58987e+03,0.86842e+03,0.11473e+04 /) - kbo(:, 2,43, 9) = (/ & - & 0.10344e+04,0.78408e+03,0.58947e+03,0.86769e+03,0.11464e+04 /) - kbo(:, 3,43, 9) = (/ & - & 0.10344e+04,0.78409e+03,0.58887e+03,0.86678e+03,0.11452e+04 /) - kbo(:, 4,43, 9) = (/ & - & 0.10344e+04,0.78410e+03,0.58806e+03,0.86567e+03,0.11437e+04 /) - kbo(:, 5,43, 9) = (/ & - & 0.10343e+04,0.78406e+03,0.58704e+03,0.86435e+03,0.11420e+04 /) - kbo(:, 1,44, 9) = (/ & - & 0.10344e+04,0.78409e+03,0.58998e+03,0.86862e+03,0.11476e+04 /) - kbo(:, 2,44, 9) = (/ & - & 0.10343e+04,0.78407e+03,0.58962e+03,0.86796e+03,0.11467e+04 /) - kbo(:, 3,44, 9) = (/ & - & 0.10343e+04,0.78406e+03,0.58910e+03,0.86711e+03,0.11456e+04 /) - kbo(:, 4,44, 9) = (/ & - & 0.10343e+04,0.78403e+03,0.58835e+03,0.86607e+03,0.11442e+04 /) - kbo(:, 5,44, 9) = (/ & - & 0.10343e+04,0.78403e+03,0.58738e+03,0.86483e+03,0.11426e+04 /) - kbo(:, 1,45, 9) = (/ & - & 0.10343e+04,0.78404e+03,0.59009e+03,0.86881e+03,0.11478e+04 /) - kbo(:, 2,45, 9) = (/ & - & 0.10343e+04,0.78405e+03,0.58975e+03,0.86821e+03,0.11471e+04 /) - kbo(:, 3,45, 9) = (/ & - & 0.10343e+04,0.78404e+03,0.58930e+03,0.86741e+03,0.11460e+04 /) - kbo(:, 4,45, 9) = (/ & - & 0.10342e+04,0.78400e+03,0.58862e+03,0.86644e+03,0.11447e+04 /) - kbo(:, 5,45, 9) = (/ & - & 0.10343e+04,0.78402e+03,0.58769e+03,0.86520e+03,0.11432e+04 /) - kbo(:, 1,46, 9) = (/ & - & 0.10343e+04,0.78403e+03,0.59019e+03,0.86899e+03,0.11481e+04 /) - kbo(:, 2,46, 9) = (/ & - & 0.10343e+04,0.78403e+03,0.58989e+03,0.86845e+03,0.11474e+04 /) - kbo(:, 3,46, 9) = (/ & - & 0.10343e+04,0.78403e+03,0.58947e+03,0.86773e+03,0.11464e+04 /) - kbo(:, 4,46, 9) = (/ & - & 0.10342e+04,0.78401e+03,0.58890e+03,0.86681e+03,0.11452e+04 /) - kbo(:, 5,46, 9) = (/ & - & 0.10343e+04,0.78405e+03,0.58808e+03,0.86568e+03,0.11438e+04 /) - kbo(:, 1,47, 9) = (/ & - & 0.10343e+04,0.78401e+03,0.59032e+03,0.86917e+03,0.11483e+04 /) - kbo(:, 2,47, 9) = (/ & - & 0.10342e+04,0.78398e+03,0.59001e+03,0.86868e+03,0.11477e+04 /) - kbo(:, 3,47, 9) = (/ & - & 0.10342e+04,0.78398e+03,0.58967e+03,0.86807e+03,0.11468e+04 /) - kbo(:, 4,47, 9) = (/ & - & 0.10343e+04,0.78397e+03,0.58916e+03,0.86720e+03,0.11457e+04 /) - kbo(:, 5,47, 9) = (/ & - & 0.10342e+04,0.78399e+03,0.58844e+03,0.86618e+03,0.11444e+04 /) - kbo(:, 1,48, 9) = (/ & - & 0.10342e+04,0.78399e+03,0.59046e+03,0.86932e+03,0.11485e+04 /) - kbo(:, 2,48, 9) = (/ & - & 0.10343e+04,0.78398e+03,0.59013e+03,0.86890e+03,0.11480e+04 /) - kbo(:, 3,48, 9) = (/ & - & 0.10342e+04,0.78402e+03,0.58982e+03,0.86829e+03,0.11472e+04 /) - kbo(:, 4,48, 9) = (/ & - & 0.10342e+04,0.78396e+03,0.58938e+03,0.86756e+03,0.11462e+04 /) - kbo(:, 5,48, 9) = (/ & - & 0.10342e+04,0.78400e+03,0.58875e+03,0.86661e+03,0.11449e+04 /) - kbo(:, 1,49, 9) = (/ & - & 0.10343e+04,0.78402e+03,0.59060e+03,0.86945e+03,0.11486e+04 /) - kbo(:, 2,49, 9) = (/ & - & 0.10342e+04,0.78398e+03,0.59025e+03,0.86908e+03,0.11482e+04 /) - kbo(:, 3,49, 9) = (/ & - & 0.10342e+04,0.78399e+03,0.58995e+03,0.86856e+03,0.11475e+04 /) - kbo(:, 4,49, 9) = (/ & - & 0.10342e+04,0.78399e+03,0.58958e+03,0.86790e+03,0.11466e+04 /) - kbo(:, 5,49, 9) = (/ & - & 0.10342e+04,0.78398e+03,0.58903e+03,0.86700e+03,0.11455e+04 /) - kbo(:, 1,50, 9) = (/ & - & 0.10343e+04,0.78395e+03,0.59074e+03,0.86956e+03,0.11487e+04 /) - kbo(:, 2,50, 9) = (/ & - & 0.10342e+04,0.78399e+03,0.59038e+03,0.86924e+03,0.11483e+04 /) - kbo(:, 3,50, 9) = (/ & - & 0.10342e+04,0.78394e+03,0.59006e+03,0.86878e+03,0.11478e+04 /) - kbo(:, 4,50, 9) = (/ & - & 0.10342e+04,0.78399e+03,0.58974e+03,0.86817e+03,0.11470e+04 /) - kbo(:, 5,50, 9) = (/ & - & 0.10342e+04,0.78395e+03,0.58927e+03,0.86736e+03,0.11460e+04 /) - kbo(:, 1,51, 9) = (/ & - & 0.10342e+04,0.78399e+03,0.59088e+03,0.86965e+03,0.11488e+04 /) - kbo(:, 2,51, 9) = (/ & - & 0.10342e+04,0.78393e+03,0.59051e+03,0.86937e+03,0.11485e+04 /) - kbo(:, 3,51, 9) = (/ & - & 0.10342e+04,0.78400e+03,0.59018e+03,0.86897e+03,0.11480e+04 /) - kbo(:, 4,51, 9) = (/ & - & 0.10342e+04,0.78396e+03,0.58987e+03,0.86840e+03,0.11473e+04 /) - kbo(:, 5,51, 9) = (/ & - & 0.10342e+04,0.78396e+03,0.58946e+03,0.86768e+03,0.11464e+04 /) - kbo(:, 1,52, 9) = (/ & - & 0.10342e+04,0.78395e+03,0.59100e+03,0.86971e+03,0.11490e+04 /) - kbo(:, 2,52, 9) = (/ & - & 0.10342e+04,0.78394e+03,0.59064e+03,0.86949e+03,0.11486e+04 /) - kbo(:, 3,52, 9) = (/ & - & 0.10342e+04,0.78395e+03,0.59029e+03,0.86915e+03,0.11482e+04 /) - kbo(:, 4,52, 9) = (/ & - & 0.10342e+04,0.78394e+03,0.58998e+03,0.86864e+03,0.11476e+04 /) - kbo(:, 5,52, 9) = (/ & - & 0.10342e+04,0.78395e+03,0.58963e+03,0.86796e+03,0.11468e+04 /) - kbo(:, 1,53, 9) = (/ & - & 0.10342e+04,0.78397e+03,0.59111e+03,0.86975e+03,0.11490e+04 /) - kbo(:, 2,53, 9) = (/ & - & 0.10342e+04,0.78394e+03,0.59078e+03,0.86960e+03,0.11488e+04 /) - kbo(:, 3,53, 9) = (/ & - & 0.10342e+04,0.78396e+03,0.59041e+03,0.86926e+03,0.11484e+04 /) - kbo(:, 4,53, 9) = (/ & - & 0.10341e+04,0.78393e+03,0.59010e+03,0.86884e+03,0.11479e+04 /) - kbo(:, 5,53, 9) = (/ & - & 0.10342e+04,0.78395e+03,0.58977e+03,0.86822e+03,0.11471e+04 /) - kbo(:, 1,54, 9) = (/ & - & 0.10343e+04,0.78394e+03,0.59121e+03,0.86979e+03,0.11491e+04 /) - kbo(:, 2,54, 9) = (/ & - & 0.10341e+04,0.78399e+03,0.59088e+03,0.86966e+03,0.11489e+04 /) - kbo(:, 3,54, 9) = (/ & - & 0.10341e+04,0.78394e+03,0.59052e+03,0.86939e+03,0.11485e+04 /) - kbo(:, 4,54, 9) = (/ & - & 0.10341e+04,0.78394e+03,0.59020e+03,0.86900e+03,0.11481e+04 /) - kbo(:, 5,54, 9) = (/ & - & 0.10342e+04,0.78395e+03,0.58987e+03,0.86845e+03,0.11474e+04 /) - kbo(:, 1,55, 9) = (/ & - & 0.10342e+04,0.78396e+03,0.59130e+03,0.86983e+03,0.11491e+04 /) - kbo(:, 2,55, 9) = (/ & - & 0.10341e+04,0.78393e+03,0.59100e+03,0.86971e+03,0.11490e+04 /) - kbo(:, 3,55, 9) = (/ & - & 0.10342e+04,0.78393e+03,0.59065e+03,0.86949e+03,0.11486e+04 /) - kbo(:, 4,55, 9) = (/ & - & 0.10342e+04,0.78395e+03,0.59029e+03,0.86914e+03,0.11483e+04 /) - kbo(:, 5,55, 9) = (/ & - & 0.10341e+04,0.78393e+03,0.59000e+03,0.86864e+03,0.11477e+04 /) - kbo(:, 1,56, 9) = (/ & - & 0.10342e+04,0.78393e+03,0.59137e+03,0.86987e+03,0.11492e+04 /) - kbo(:, 2,56, 9) = (/ & - & 0.10342e+04,0.78395e+03,0.59111e+03,0.86975e+03,0.11490e+04 /) - kbo(:, 3,56, 9) = (/ & - & 0.10342e+04,0.78392e+03,0.59077e+03,0.86958e+03,0.11488e+04 /) - kbo(:, 4,56, 9) = (/ & - & 0.10342e+04,0.78393e+03,0.59040e+03,0.86926e+03,0.11484e+04 /) - kbo(:, 5,56, 9) = (/ & - & 0.10341e+04,0.78393e+03,0.59009e+03,0.86883e+03,0.11479e+04 /) - kbo(:, 1,57, 9) = (/ & - & 0.10342e+04,0.78396e+03,0.59143e+03,0.86993e+03,0.11492e+04 /) - kbo(:, 2,57, 9) = (/ & - & 0.10342e+04,0.78392e+03,0.59122e+03,0.86979e+03,0.11491e+04 /) - kbo(:, 3,57, 9) = (/ & - & 0.10342e+04,0.78392e+03,0.59089e+03,0.86966e+03,0.11489e+04 /) - kbo(:, 4,57, 9) = (/ & - & 0.10341e+04,0.78395e+03,0.59052e+03,0.86938e+03,0.11485e+04 /) - kbo(:, 5,57, 9) = (/ & - & 0.10341e+04,0.78393e+03,0.59018e+03,0.86897e+03,0.11481e+04 /) - kbo(:, 1,58, 9) = (/ & - & 0.10341e+04,0.78395e+03,0.59147e+03,0.86996e+03,0.11493e+04 /) - kbo(:, 2,58, 9) = (/ & - & 0.10341e+04,0.78397e+03,0.59129e+03,0.86982e+03,0.11491e+04 /) - kbo(:, 3,58, 9) = (/ & - & 0.10341e+04,0.78393e+03,0.59099e+03,0.86970e+03,0.11489e+04 /) - kbo(:, 4,58, 9) = (/ & - & 0.10342e+04,0.78397e+03,0.59063e+03,0.86948e+03,0.11486e+04 /) - kbo(:, 5,58, 9) = (/ & - & 0.10342e+04,0.78390e+03,0.59028e+03,0.86913e+03,0.11482e+04 /) - kbo(:, 1,59, 9) = (/ & - & 0.10342e+04,0.78393e+03,0.59148e+03,0.86998e+03,0.11494e+04 /) - kbo(:, 2,59, 9) = (/ & - & 0.10342e+04,0.78396e+03,0.59132e+03,0.86982e+03,0.11492e+04 /) - kbo(:, 3,59, 9) = (/ & - & 0.10342e+04,0.78393e+03,0.59103e+03,0.86972e+03,0.11490e+04 /) - kbo(:, 4,59, 9) = (/ & - & 0.10341e+04,0.78394e+03,0.59067e+03,0.86951e+03,0.11487e+04 /) - kbo(:, 5,59, 9) = (/ & - & 0.10341e+04,0.78397e+03,0.59032e+03,0.86918e+03,0.11483e+04 /) - kbo(:, 1,13,10) = (/ & - & 0.11544e+04,0.87486e+03,0.59975e+03,0.88029e+03,0.11631e+04 /) - kbo(:, 2,13,10) = (/ & - & 0.11458e+04,0.86752e+03,0.59921e+03,0.87889e+03,0.11611e+04 /) - kbo(:, 3,13,10) = (/ & - & 0.11380e+04,0.86177e+03,0.59836e+03,0.87789e+03,0.11592e+04 /) - kbo(:, 4,13,10) = (/ & - & 0.11310e+04,0.85697e+03,0.59745e+03,0.87697e+03,0.11577e+04 /) - kbo(:, 5,13,10) = (/ & - & 0.11259e+04,0.85279e+03,0.59663e+03,0.87606e+03,0.11564e+04 /) - kbo(:, 1,14,10) = (/ & - & 0.11329e+04,0.85757e+03,0.59935e+03,0.88000e+03,0.11630e+04 /) - kbo(:, 2,14,10) = (/ & - & 0.11257e+04,0.85228e+03,0.59878e+03,0.87841e+03,0.11609e+04 /) - kbo(:, 3,14,10) = (/ & - & 0.11201e+04,0.84731e+03,0.59797e+03,0.87766e+03,0.11591e+04 /) - kbo(:, 4,14,10) = (/ & - & 0.11140e+04,0.84389e+03,0.59731e+03,0.87707e+03,0.11577e+04 /) - kbo(:, 5,14,10) = (/ & - & 0.11094e+04,0.84001e+03,0.59642e+03,0.87571e+03,0.11561e+04 /) - kbo(:, 1,15,10) = (/ & - & 0.11142e+04,0.84370e+03,0.59900e+03,0.87973e+03,0.11627e+04 /) - kbo(:, 2,15,10) = (/ & - & 0.11097e+04,0.84029e+03,0.59841e+03,0.87827e+03,0.11607e+04 /) - kbo(:, 3,15,10) = (/ & - & 0.11039e+04,0.83570e+03,0.59763e+03,0.87745e+03,0.11587e+04 /) - kbo(:, 4,15,10) = (/ & - & 0.10995e+04,0.83295e+03,0.59685e+03,0.87664e+03,0.11574e+04 /) - kbo(:, 5,15,10) = (/ & - & 0.10956e+04,0.82966e+03,0.59611e+03,0.87548e+03,0.11555e+04 /) - kbo(:, 1,16,10) = (/ & - & 0.11006e+04,0.83290e+03,0.59871e+03,0.87947e+03,0.11625e+04 /) - kbo(:, 2,16,10) = (/ & - & 0.10967e+04,0.82960e+03,0.59809e+03,0.87696e+03,0.11605e+04 /) - kbo(:, 3,16,10) = (/ & - & 0.10908e+04,0.82627e+03,0.59735e+03,0.87716e+03,0.11587e+04 /) - kbo(:, 4,16,10) = (/ & - & 0.10878e+04,0.82496e+03,0.59665e+03,0.87645e+03,0.11573e+04 /) - kbo(:, 5,16,10) = (/ & - & 0.10846e+04,0.82140e+03,0.59584e+03,0.87537e+03,0.11556e+04 /) - kbo(:, 1,17,10) = (/ & - & 0.10872e+04,0.82399e+03,0.59847e+03,0.87912e+03,0.11623e+04 /) - kbo(:, 2,17,10) = (/ & - & 0.10836e+04,0.82137e+03,0.59782e+03,0.87785e+03,0.11604e+04 /) - kbo(:, 3,17,10) = (/ & - & 0.10806e+04,0.81903e+03,0.59710e+03,0.87700e+03,0.11586e+04 /) - kbo(:, 4,17,10) = (/ & - & 0.10781e+04,0.81649e+03,0.59641e+03,0.87627e+03,0.11571e+04 /) - kbo(:, 5,17,10) = (/ & - & 0.10750e+04,0.81461e+03,0.59560e+03,0.87517e+03,0.11554e+04 /) - kbo(:, 1,18,10) = (/ & - & 0.10783e+04,0.81627e+03,0.59826e+03,0.87902e+03,0.11620e+04 /) - kbo(:, 2,18,10) = (/ & - & 0.10752e+04,0.81450e+03,0.59759e+03,0.87778e+03,0.11602e+04 /) - kbo(:, 3,18,10) = (/ & - & 0.10718e+04,0.81284e+03,0.59689e+03,0.87707e+03,0.11584e+04 /) - kbo(:, 4,18,10) = (/ & - & 0.10695e+04,0.81051e+03,0.59620e+03,0.87578e+03,0.11570e+04 /) - kbo(:, 5,18,10) = (/ & - & 0.10675e+04,0.80859e+03,0.59539e+03,0.87498e+03,0.11554e+04 /) - kbo(:, 1,19,10) = (/ & - & 0.10693e+04,0.81014e+03,0.59808e+03,0.87871e+03,0.11618e+04 /) - kbo(:, 2,19,10) = (/ & - & 0.10674e+04,0.80961e+03,0.59739e+03,0.87763e+03,0.11601e+04 /) - kbo(:, 3,19,10) = (/ & - & 0.10651e+04,0.80782e+03,0.59664e+03,0.87683e+03,0.11582e+04 /) - kbo(:, 4,19,10) = (/ & - & 0.10639e+04,0.80562e+03,0.59610e+03,0.87595e+03,0.11569e+04 /) - kbo(:, 5,19,10) = (/ & - & 0.10620e+04,0.80440e+03,0.59520e+03,0.87481e+03,0.11551e+04 /) - kbo(:, 1,20,10) = (/ & - & 0.10633e+04,0.80580e+03,0.59791e+03,0.87862e+03,0.11616e+04 /) - kbo(:, 2,20,10) = (/ & - & 0.10619e+04,0.80442e+03,0.59720e+03,0.87747e+03,0.11598e+04 /) - kbo(:, 3,20,10) = (/ & - & 0.10607e+04,0.80344e+03,0.59654e+03,0.87680e+03,0.11581e+04 /) - kbo(:, 4,20,10) = (/ & - & 0.10584e+04,0.80182e+03,0.59585e+03,0.87568e+03,0.11568e+04 /) - kbo(:, 5,20,10) = (/ & - & 0.10568e+04,0.80142e+03,0.59502e+03,0.87461e+03,0.11549e+04 /) - kbo(:, 1,21,10) = (/ & - & 0.10577e+04,0.80247e+03,0.59775e+03,0.87831e+03,0.11614e+04 /) - kbo(:, 2,21,10) = (/ & - & 0.10572e+04,0.80108e+03,0.59703e+03,0.87733e+03,0.11595e+04 /) - kbo(:, 3,21,10) = (/ & - & 0.10551e+04,0.79955e+03,0.59639e+03,0.87689e+03,0.11579e+04 /) - kbo(:, 4,21,10) = (/ & - & 0.10548e+04,0.79914e+03,0.59569e+03,0.87563e+03,0.11565e+04 /) - kbo(:, 5,21,10) = (/ & - & 0.10533e+04,0.79794e+03,0.59484e+03,0.87454e+03,0.11546e+04 /) - kbo(:, 1,22,10) = (/ & - & 0.10544e+04,0.79901e+03,0.59755e+03,0.87816e+03,0.11610e+04 /) - kbo(:, 2,22,10) = (/ & - & 0.10524e+04,0.79865e+03,0.59692e+03,0.87715e+03,0.11592e+04 /) - kbo(:, 3,22,10) = (/ & - & 0.10518e+04,0.79733e+03,0.59621e+03,0.87638e+03,0.11576e+04 /) - kbo(:, 4,22,10) = (/ & - & 0.10503e+04,0.79602e+03,0.59549e+03,0.87540e+03,0.11562e+04 /) - kbo(:, 5,22,10) = (/ & - & 0.10497e+04,0.79577e+03,0.59455e+03,0.87415e+03,0.11542e+04 /) - kbo(:, 1,23,10) = (/ & - & 0.10504e+04,0.79618e+03,0.59736e+03,0.87790e+03,0.11608e+04 /) - kbo(:, 2,23,10) = (/ & - & 0.10488e+04,0.79542e+03,0.59652e+03,0.87687e+03,0.11588e+04 /) - kbo(:, 3,23,10) = (/ & - & 0.10489e+04,0.79466e+03,0.59603e+03,0.87619e+03,0.11574e+04 /) - kbo(:, 4,23,10) = (/ & - & 0.10477e+04,0.79399e+03,0.59528e+03,0.87505e+03,0.11559e+04 /) - kbo(:, 5,23,10) = (/ & - & 0.10468e+04,0.79357e+03,0.59440e+03,0.87388e+03,0.11537e+04 /) - kbo(:, 1,24,10) = (/ & - & 0.10475e+04,0.79355e+03,0.59716e+03,0.87766e+03,0.11603e+04 /) - kbo(:, 2,24,10) = (/ & - & 0.10471e+04,0.79325e+03,0.59650e+03,0.87681e+03,0.11585e+04 /) - kbo(:, 3,24,10) = (/ & - & 0.10463e+04,0.79243e+03,0.59586e+03,0.87587e+03,0.11571e+04 /) - kbo(:, 4,24,10) = (/ & - & 0.10454e+04,0.79206e+03,0.59508e+03,0.87468e+03,0.11555e+04 /) - kbo(:, 5,24,10) = (/ & - & 0.10455e+04,0.79146e+03,0.59426e+03,0.87360e+03,0.11532e+04 /) - kbo(:, 1,25,10) = (/ & - & 0.10443e+04,0.79222e+03,0.59698e+03,0.87742e+03,0.11598e+04 /) - kbo(:, 2,25,10) = (/ & - & 0.10446e+04,0.79165e+03,0.59633e+03,0.87696e+03,0.11582e+04 /) - kbo(:, 3,25,10) = (/ & - & 0.10440e+04,0.79123e+03,0.59567e+03,0.87565e+03,0.11568e+04 /) - kbo(:, 4,25,10) = (/ & - & 0.10433e+04,0.79106e+03,0.59487e+03,0.87451e+03,0.11551e+04 /) - kbo(:, 5,25,10) = (/ & - & 0.10423e+04,0.79063e+03,0.59375e+03,0.87329e+03,0.11525e+04 /) - kbo(:, 1,26,10) = (/ & - & 0.10431e+04,0.79112e+03,0.59671e+03,0.87720e+03,0.11595e+04 /) - kbo(:, 2,26,10) = (/ & - & 0.10430e+04,0.79016e+03,0.59608e+03,0.87633e+03,0.11579e+04 /) - kbo(:, 3,26,10) = (/ & - & 0.10422e+04,0.78992e+03,0.59547e+03,0.87551e+03,0.11565e+04 /) - kbo(:, 4,26,10) = (/ & - & 0.10418e+04,0.78943e+03,0.59456e+03,0.87419e+03,0.11545e+04 /) - kbo(:, 5,26,10) = (/ & - & 0.10417e+04,0.78966e+03,0.59375e+03,0.87285e+03,0.11523e+04 /) - kbo(:, 1,27,10) = (/ & - & 0.10421e+04,0.78970e+03,0.59653e+03,0.87700e+03,0.11589e+04 /) - kbo(:, 2,27,10) = (/ & - & 0.10419e+04,0.78911e+03,0.59591e+03,0.87623e+03,0.11575e+04 /) - kbo(:, 3,27,10) = (/ & - & 0.10414e+04,0.78914e+03,0.59527e+03,0.87524e+03,0.11555e+04 /) - kbo(:, 4,27,10) = (/ & - & 0.10412e+04,0.78891e+03,0.59440e+03,0.87398e+03,0.11540e+04 /) - kbo(:, 5,27,10) = (/ & - & 0.10400e+04,0.78850e+03,0.59354e+03,0.87262e+03,0.11516e+04 /) - kbo(:, 1,28,10) = (/ & - & 0.10402e+04,0.78860e+03,0.59644e+03,0.87682e+03,0.11586e+04 /) - kbo(:, 2,28,10) = (/ & - & 0.10405e+04,0.78788e+03,0.59574e+03,0.87579e+03,0.11571e+04 /) - kbo(:, 3,28,10) = (/ & - & 0.10403e+04,0.78855e+03,0.59498e+03,0.87473e+03,0.11552e+04 /) - kbo(:, 4,28,10) = (/ & - & 0.10397e+04,0.78826e+03,0.59417e+03,0.87377e+03,0.11534e+04 /) - kbo(:, 5,28,10) = (/ & - & 0.10396e+04,0.78810e+03,0.59333e+03,0.87227e+03,0.11511e+04 /) - kbo(:, 1,29,10) = (/ & - & 0.10391e+04,0.78797e+03,0.59612e+03,0.87685e+03,0.11584e+04 /) - kbo(:, 2,29,10) = (/ & - & 0.10393e+04,0.78808e+03,0.59562e+03,0.87577e+03,0.11569e+04 /) - kbo(:, 3,29,10) = (/ & - & 0.10401e+04,0.78791e+03,0.59476e+03,0.87463e+03,0.11550e+04 /) - kbo(:, 4,29,10) = (/ & - & 0.10388e+04,0.78727e+03,0.59387e+03,0.87332e+03,0.11526e+04 /) - kbo(:, 5,29,10) = (/ & - & 0.10383e+04,0.78753e+03,0.59306e+03,0.87189e+03,0.11504e+04 /) - kbo(:, 1,30,10) = (/ & - & 0.10398e+04,0.78748e+03,0.59603e+03,0.87643e+03,0.11579e+04 /) - kbo(:, 2,30,10) = (/ & - & 0.10387e+04,0.78733e+03,0.59550e+03,0.87550e+03,0.11567e+04 /) - kbo(:, 3,30,10) = (/ & - & 0.10384e+04,0.78700e+03,0.59460e+03,0.87431e+03,0.11543e+04 /) - kbo(:, 4,30,10) = (/ & - & 0.10381e+04,0.78738e+03,0.59372e+03,0.87275e+03,0.11522e+04 /) - kbo(:, 5,30,10) = (/ & - & 0.10382e+04,0.78707e+03,0.59292e+03,0.87137e+03,0.11500e+04 /) - kbo(:, 1,31,10) = (/ & - & 0.10388e+04,0.78740e+03,0.59593e+03,0.87621e+03,0.11575e+04 /) - kbo(:, 2,31,10) = (/ & - & 0.10385e+04,0.78757e+03,0.59522e+03,0.87522e+03,0.11561e+04 /) - kbo(:, 3,31,10) = (/ & - & 0.10386e+04,0.78718e+03,0.59436e+03,0.87397e+03,0.11540e+04 /) - kbo(:, 4,31,10) = (/ & - & 0.10377e+04,0.78650e+03,0.59350e+03,0.87250e+03,0.11516e+04 /) - kbo(:, 5,31,10) = (/ & - & 0.10376e+04,0.78651e+03,0.59269e+03,0.87108e+03,0.11495e+04 /) - kbo(:, 1,32,10) = (/ & - & 0.10383e+04,0.78682e+03,0.59576e+03,0.87597e+03,0.11572e+04 /) - kbo(:, 2,32,10) = (/ & - & 0.10383e+04,0.78712e+03,0.59500e+03,0.87480e+03,0.11556e+04 /) - kbo(:, 3,32,10) = (/ & - & 0.10381e+04,0.78606e+03,0.59405e+03,0.87362e+03,0.11534e+04 /) - kbo(:, 4,32,10) = (/ & - & 0.10372e+04,0.78628e+03,0.59329e+03,0.87223e+03,0.11510e+04 /) - kbo(:, 5,32,10) = (/ & - & 0.10377e+04,0.78690e+03,0.59245e+03,0.87068e+03,0.11490e+04 /) - kbo(:, 1,33,10) = (/ & - & 0.10380e+04,0.78593e+03,0.59549e+03,0.87572e+03,0.11567e+04 /) - kbo(:, 2,33,10) = (/ & - & 0.10375e+04,0.78654e+03,0.59477e+03,0.87458e+03,0.11551e+04 /) - kbo(:, 3,33,10) = (/ & - & 0.10374e+04,0.78686e+03,0.59389e+03,0.87337e+03,0.11527e+04 /) - kbo(:, 4,33,10) = (/ & - & 0.10366e+04,0.78593e+03,0.59308e+03,0.87194e+03,0.11506e+04 /) - kbo(:, 5,33,10) = (/ & - & 0.10369e+04,0.78626e+03,0.59219e+03,0.87038e+03,0.11486e+04 /) - kbo(:, 1,34,10) = (/ & - & 0.10373e+04,0.78657e+03,0.59539e+03,0.87559e+03,0.11565e+04 /) - kbo(:, 2,34,10) = (/ & - & 0.10370e+04,0.78641e+03,0.59464e+03,0.87429e+03,0.11546e+04 /) - kbo(:, 3,34,10) = (/ & - & 0.10370e+04,0.78587e+03,0.59369e+03,0.87295e+03,0.11522e+04 /) - kbo(:, 4,34,10) = (/ & - & 0.10371e+04,0.78562e+03,0.59289e+03,0.87146e+03,0.11500e+04 /) - kbo(:, 5,34,10) = (/ & - & 0.10372e+04,0.78597e+03,0.59202e+03,0.86991e+03,0.11482e+04 /) - kbo(:, 1,35,10) = (/ & - & 0.10364e+04,0.78559e+03,0.59529e+03,0.87523e+03,0.11563e+04 /) - kbo(:, 2,35,10) = (/ & - & 0.10362e+04,0.78545e+03,0.59445e+03,0.87400e+03,0.11543e+04 /) - kbo(:, 3,35,10) = (/ & - & 0.10372e+04,0.78599e+03,0.59365e+03,0.87265e+03,0.11519e+04 /) - kbo(:, 4,35,10) = (/ & - & 0.10370e+04,0.78527e+03,0.59278e+03,0.87136e+03,0.11496e+04 /) - kbo(:, 5,35,10) = (/ & - & 0.10363e+04,0.78582e+03,0.59179e+03,0.86905e+03,0.11477e+04 /) - kbo(:, 1,36,10) = (/ & - & 0.10368e+04,0.78515e+03,0.59520e+03,0.87532e+03,0.11563e+04 /) - kbo(:, 2,36,10) = (/ & - & 0.10358e+04,0.78589e+03,0.59443e+03,0.87419e+03,0.11542e+04 /) - kbo(:, 3,36,10) = (/ & - & 0.10361e+04,0.78556e+03,0.59355e+03,0.87273e+03,0.11517e+04 /) - kbo(:, 4,36,10) = (/ & - & 0.10361e+04,0.78543e+03,0.59275e+03,0.87122e+03,0.11497e+04 /) - kbo(:, 5,36,10) = (/ & - & 0.10368e+04,0.78570e+03,0.59176e+03,0.86999e+03,0.11477e+04 /) - kbo(:, 1,37,10) = (/ & - & 0.10363e+04,0.78591e+03,0.59537e+03,0.87546e+03,0.11565e+04 /) - kbo(:, 2,37,10) = (/ & - & 0.10360e+04,0.78548e+03,0.59454e+03,0.87425e+03,0.11545e+04 /) - kbo(:, 3,37,10) = (/ & - & 0.10362e+04,0.78546e+03,0.59366e+03,0.87291e+03,0.11521e+04 /) - kbo(:, 4,37,10) = (/ & - & 0.10364e+04,0.78543e+03,0.59286e+03,0.87142e+03,0.11500e+04 /) - kbo(:, 5,37,10) = (/ & - & 0.10360e+04,0.78560e+03,0.59177e+03,0.86987e+03,0.11482e+04 /) - kbo(:, 1,38,10) = (/ & - & 0.10362e+04,0.78542e+03,0.59547e+03,0.87560e+03,0.11567e+04 /) - kbo(:, 2,38,10) = (/ & - & 0.10357e+04,0.78588e+03,0.59466e+03,0.87433e+03,0.11549e+04 /) - kbo(:, 3,38,10) = (/ & - & 0.10370e+04,0.78605e+03,0.59385e+03,0.87310e+03,0.11524e+04 /) - kbo(:, 4,38,10) = (/ & - & 0.10362e+04,0.78574e+03,0.59297e+03,0.87186e+03,0.11501e+04 /) - kbo(:, 5,38,10) = (/ & - & 0.10364e+04,0.78533e+03,0.59199e+03,0.87009e+03,0.11482e+04 /) - kbo(:, 1,39,10) = (/ & - & 0.10359e+04,0.78514e+03,0.59557e+03,0.87574e+03,0.11567e+04 /) - kbo(:, 2,39,10) = (/ & - & 0.10371e+04,0.78541e+03,0.59478e+03,0.87461e+03,0.11552e+04 /) - kbo(:, 3,39,10) = (/ & - & 0.10366e+04,0.78569e+03,0.59382e+03,0.87329e+03,0.11528e+04 /) - kbo(:, 4,39,10) = (/ & - & 0.10359e+04,0.78528e+03,0.59308e+03,0.87198e+03,0.11506e+04 /) - kbo(:, 5,39,10) = (/ & - & 0.10356e+04,0.78487e+03,0.59220e+03,0.87042e+03,0.11486e+04 /) - kbo(:, 1,40,10) = (/ & - & 0.10357e+04,0.78518e+03,0.59566e+03,0.87586e+03,0.11569e+04 /) - kbo(:, 2,40,10) = (/ & - & 0.10357e+04,0.78506e+03,0.59498e+03,0.87480e+03,0.11555e+04 /) - kbo(:, 3,40,10) = (/ & - & 0.10366e+04,0.78504e+03,0.59396e+03,0.87362e+03,0.11534e+04 /) - kbo(:, 4,40,10) = (/ & - & 0.10363e+04,0.78503e+03,0.59319e+03,0.87212e+03,0.11511e+04 /) - kbo(:, 5,40,10) = (/ & - & 0.10363e+04,0.78540e+03,0.59243e+03,0.87078e+03,0.11490e+04 /) - kbo(:, 1,41,10) = (/ & - & 0.10363e+04,0.78503e+03,0.59590e+03,0.87608e+03,0.11576e+04 /) - kbo(:, 2,41,10) = (/ & - & 0.10356e+04,0.78491e+03,0.59519e+03,0.87520e+03,0.11561e+04 /) - kbo(:, 3,41,10) = (/ & - & 0.10364e+04,0.78558e+03,0.59433e+03,0.87384e+03,0.11540e+04 /) - kbo(:, 4,41,10) = (/ & - & 0.10357e+04,0.78518e+03,0.59354e+03,0.87259e+03,0.11516e+04 /) - kbo(:, 5,41,10) = (/ & - & 0.10360e+04,0.78526e+03,0.59259e+03,0.87107e+03,0.11495e+04 /) - kbo(:, 1,42,10) = (/ & - & 0.10360e+04,0.78488e+03,0.59605e+03,0.87553e+03,0.11576e+04 /) - kbo(:, 2,42,10) = (/ & - & 0.10363e+04,0.78507e+03,0.59538e+03,0.87537e+03,0.11565e+04 /) - kbo(:, 3,42,10) = (/ & - & 0.10362e+04,0.78535e+03,0.59456e+03,0.87429e+03,0.11545e+04 /) - kbo(:, 4,42,10) = (/ & - & 0.10361e+04,0.78514e+03,0.59368e+03,0.87295e+03,0.11522e+04 /) - kbo(:, 5,42,10) = (/ & - & 0.10360e+04,0.78523e+03,0.59281e+03,0.87146e+03,0.11502e+04 /) - kbo(:, 1,43,10) = (/ & - & 0.10359e+04,0.78504e+03,0.59624e+03,0.87675e+03,0.11584e+04 /) - kbo(:, 2,43,10) = (/ & - & 0.10355e+04,0.78552e+03,0.59568e+03,0.87580e+03,0.11570e+04 /) - kbo(:, 3,43,10) = (/ & - & 0.10354e+04,0.78512e+03,0.59483e+03,0.87469e+03,0.11553e+04 /) - kbo(:, 4,43,10) = (/ & - & 0.10354e+04,0.78569e+03,0.59395e+03,0.87316e+03,0.11531e+04 /) - kbo(:, 5,43,10) = (/ & - & 0.10359e+04,0.78598e+03,0.59313e+03,0.87186e+03,0.11507e+04 /) - kbo(:, 1,44,10) = (/ & - & 0.10359e+04,0.78521e+03,0.59645e+03,0.87700e+03,0.11590e+04 /) - kbo(:, 2,44,10) = (/ & - & 0.10361e+04,0.78510e+03,0.59583e+03,0.87611e+03,0.11574e+04 /) - kbo(:, 3,44,10) = (/ & - & 0.10368e+04,0.78519e+03,0.59511e+03,0.87509e+03,0.11561e+04 /) - kbo(:, 4,44,10) = (/ & - & 0.10360e+04,0.78508e+03,0.59424e+03,0.87372e+03,0.11538e+04 /) - kbo(:, 5,44,10) = (/ & - & 0.10356e+04,0.78537e+03,0.59339e+03,0.87213e+03,0.11514e+04 /) - kbo(:, 1,45,10) = (/ & - & 0.10357e+04,0.78557e+03,0.59666e+03,0.87715e+03,0.11597e+04 /) - kbo(:, 2,45,10) = (/ & - & 0.10356e+04,0.78527e+03,0.59604e+03,0.87639e+03,0.11579e+04 /) - kbo(:, 3,45,10) = (/ & - & 0.10360e+04,0.78546e+03,0.59537e+03,0.87547e+03,0.11565e+04 /) - kbo(:, 4,45,10) = (/ & - & 0.10361e+04,0.78506e+03,0.59454e+03,0.87427e+03,0.11544e+04 /) - kbo(:, 5,45,10) = (/ & - & 0.10353e+04,0.78535e+03,0.59366e+03,0.87293e+03,0.11520e+04 /) - kbo(:, 1,46,10) = (/ & - & 0.10358e+04,0.78506e+03,0.59691e+03,0.87749e+03,0.11602e+04 /) - kbo(:, 2,46,10) = (/ & - & 0.10353e+04,0.78486e+03,0.59626e+03,0.87678e+03,0.11584e+04 /) - kbo(:, 3,46,10) = (/ & - & 0.10353e+04,0.78495e+03,0.59563e+03,0.87572e+03,0.11570e+04 /) - kbo(:, 4,46,10) = (/ & - & 0.10363e+04,0.78534e+03,0.59478e+03,0.87473e+03,0.11554e+04 /) - kbo(:, 5,46,10) = (/ & - & 0.10355e+04,0.78455e+03,0.59398e+03,0.87342e+03,0.11530e+04 /) - kbo(:, 1,47,10) = (/ & - & 0.10357e+04,0.78544e+03,0.59719e+03,0.87795e+03,0.11609e+04 /) - kbo(:, 2,47,10) = (/ & - & 0.10355e+04,0.78533e+03,0.59651e+03,0.87696e+03,0.11589e+04 /) - kbo(:, 3,47,10) = (/ & - & 0.10358e+04,0.78543e+03,0.59590e+03,0.87576e+03,0.11576e+04 /) - kbo(:, 4,47,10) = (/ & - & 0.10351e+04,0.78562e+03,0.59519e+03,0.87521e+03,0.11561e+04 /) - kbo(:, 5,47,10) = (/ & - & 0.10359e+04,0.78571e+03,0.59433e+03,0.87385e+03,0.11540e+04 /) - kbo(:, 1,48,10) = (/ & - & 0.10363e+04,0.78513e+03,0.59744e+03,0.87846e+03,0.11618e+04 /) - kbo(:, 2,48,10) = (/ & - & 0.10360e+04,0.78532e+03,0.59677e+03,0.87730e+03,0.11598e+04 /) - kbo(:, 3,48,10) = (/ & - & 0.10365e+04,0.78483e+03,0.59614e+03,0.87707e+03,0.11581e+04 /) - kbo(:, 4,48,10) = (/ & - & 0.10355e+04,0.78521e+03,0.59549e+03,0.87564e+03,0.11567e+04 /) - kbo(:, 5,48,10) = (/ & - & 0.10355e+04,0.78531e+03,0.59469e+03,0.87448e+03,0.11550e+04 /) - kbo(:, 1,49,10) = (/ & - & 0.10351e+04,0.78492e+03,0.59768e+03,0.87902e+03,0.11625e+04 /) - kbo(:, 2,49,10) = (/ & - & 0.10355e+04,0.78541e+03,0.59705e+03,0.87772e+03,0.11606e+04 /) - kbo(:, 3,49,10) = (/ & - & 0.10352e+04,0.78472e+03,0.59639e+03,0.87682e+03,0.11587e+04 /) - kbo(:, 4,49,10) = (/ & - & 0.10356e+04,0.78511e+03,0.59577e+03,0.87591e+03,0.11574e+04 /) - kbo(:, 5,49,10) = (/ & - & 0.10352e+04,0.78501e+03,0.59510e+03,0.87498e+03,0.11558e+04 /) - kbo(:, 1,50,10) = (/ & - & 0.10361e+04,0.78540e+03,0.59770e+03,0.87956e+03,0.11633e+04 /) - kbo(:, 2,50,10) = (/ & - & 0.10357e+04,0.78530e+03,0.59731e+03,0.87817e+03,0.11612e+04 /) - kbo(:, 3,50,10) = (/ & - & 0.10365e+04,0.78510e+03,0.59662e+03,0.87710e+03,0.11596e+04 /) - kbo(:, 4,50,10) = (/ & - & 0.10365e+04,0.78510e+03,0.59601e+03,0.87645e+03,0.11578e+04 /) - kbo(:, 5,50,10) = (/ & - & 0.10352e+04,0.78588e+03,0.59525e+03,0.87541e+03,0.11564e+04 /) - kbo(:, 1,51,10) = (/ & - & 0.10356e+04,0.78490e+03,0.59781e+03,0.88010e+03,0.11639e+04 /) - kbo(:, 2,51,10) = (/ & - & 0.10356e+04,0.78539e+03,0.59751e+03,0.87866e+03,0.11620e+04 /) - kbo(:, 3,51,10) = (/ & - & 0.10359e+04,0.78461e+03,0.59687e+03,0.87744e+03,0.11601e+04 /) - kbo(:, 4,51,10) = (/ & - & 0.10352e+04,0.78519e+03,0.59623e+03,0.87674e+03,0.11583e+04 /) - kbo(:, 5,51,10) = (/ & - & 0.10356e+04,0.78470e+03,0.59552e+03,0.87578e+03,0.11569e+04 /) - kbo(:, 1,52,10) = (/ & - & 0.10352e+04,0.78509e+03,0.59800e+03,0.88094e+03,0.11643e+04 /) - kbo(:, 2,52,10) = (/ & - & 0.10355e+04,0.78528e+03,0.59763e+03,0.87918e+03,0.11627e+04 /) - kbo(:, 3,52,10) = (/ & - & 0.10361e+04,0.78479e+03,0.59712e+03,0.87762e+03,0.11608e+04 /) - kbo(:, 4,52,10) = (/ & - & 0.10358e+04,0.78528e+03,0.59645e+03,0.87678e+03,0.11589e+04 /) - kbo(:, 5,52,10) = (/ & - & 0.10355e+04,0.78528e+03,0.59584e+03,0.87612e+03,0.11573e+04 /) - kbo(:, 1,53,10) = (/ & - & 0.10357e+04,0.78528e+03,0.59832e+03,0.88148e+03,0.11650e+04 /) - kbo(:, 2,53,10) = (/ & - & 0.10357e+04,0.78596e+03,0.59772e+03,0.87969e+03,0.11634e+04 /) - kbo(:, 3,53,10) = (/ & - & 0.10361e+04,0.78547e+03,0.59737e+03,0.87830e+03,0.11614e+04 /) - kbo(:, 4,53,10) = (/ & - & 0.10362e+04,0.78537e+03,0.59668e+03,0.87707e+03,0.11596e+04 /) - kbo(:, 5,53,10) = (/ & - & 0.10356e+04,0.78498e+03,0.59606e+03,0.87642e+03,0.11578e+04 /) - kbo(:, 1,54,10) = (/ & - & 0.10351e+04,0.78567e+03,0.59851e+03,0.88199e+03,0.11656e+04 /) - kbo(:, 2,54,10) = (/ & - & 0.10366e+04,0.78518e+03,0.59776e+03,0.88021e+03,0.11638e+04 /) - kbo(:, 3,54,10) = (/ & - & 0.10364e+04,0.78478e+03,0.59753e+03,0.87875e+03,0.11621e+04 /) - kbo(:, 4,54,10) = (/ & - & 0.10356e+04,0.78498e+03,0.59692e+03,0.87751e+03,0.11602e+04 /) - kbo(:, 5,54,10) = (/ & - & 0.10362e+04,0.78527e+03,0.59627e+03,0.87657e+03,0.11584e+04 /) - kbo(:, 1,55,10) = (/ & - & 0.10355e+04,0.78488e+03,0.59876e+03,0.88250e+03,0.11663e+04 /) - kbo(:, 2,55,10) = (/ & - & 0.10362e+04,0.78527e+03,0.59801e+03,0.88087e+03,0.11643e+04 /) - kbo(:, 3,55,10) = (/ & - & 0.10356e+04,0.78507e+03,0.59764e+03,0.87920e+03,0.11628e+04 /) - kbo(:, 4,55,10) = (/ & - & 0.10353e+04,0.78488e+03,0.59714e+03,0.87787e+03,0.11606e+04 /) - kbo(:, 5,55,10) = (/ & - & 0.10356e+04,0.78488e+03,0.59639e+03,0.87691e+03,0.11585e+04 /) - kbo(:, 1,56,10) = (/ & - & 0.10353e+04,0.78537e+03,0.59904e+03,0.88318e+03,0.11672e+04 /) - kbo(:, 2,56,10) = (/ & - & 0.10354e+04,0.78497e+03,0.59830e+03,0.88144e+03,0.11649e+04 /) - kbo(:, 3,56,10) = (/ & - & 0.10361e+04,0.78536e+03,0.59771e+03,0.87966e+03,0.11634e+04 /) - kbo(:, 4,56,10) = (/ & - & 0.10357e+04,0.78497e+03,0.59736e+03,0.87826e+03,0.11615e+04 /) - kbo(:, 5,56,10) = (/ & - & 0.10353e+04,0.78478e+03,0.59667e+03,0.87705e+03,0.11595e+04 /) - kbo(:, 1,57,10) = (/ & - & 0.10358e+04,0.78458e+03,0.59927e+03,0.88350e+03,0.11679e+04 /) - kbo(:, 2,57,10) = (/ & - & 0.10352e+04,0.78536e+03,0.59840e+03,0.88193e+03,0.11656e+04 /) - kbo(:, 3,57,10) = (/ & - & 0.10352e+04,0.78526e+03,0.59782e+03,0.88003e+03,0.11638e+04 /) - kbo(:, 4,57,10) = (/ & - & 0.10358e+04,0.78497e+03,0.59751e+03,0.87869e+03,0.11622e+04 /) - kbo(:, 5,57,10) = (/ & - & 0.10360e+04,0.78497e+03,0.59689e+03,0.87746e+03,0.11601e+04 /) - kbo(:, 1,58,10) = (/ & - & 0.10358e+04,0.78468e+03,0.59969e+03,0.88402e+03,0.11685e+04 /) - kbo(:, 2,58,10) = (/ & - & 0.10357e+04,0.78458e+03,0.59873e+03,0.88241e+03,0.11662e+04 /) - kbo(:, 3,58,10) = (/ & - & 0.10358e+04,0.78526e+03,0.59797e+03,0.88085e+03,0.11642e+04 /) - kbo(:, 4,58,10) = (/ & - & 0.10356e+04,0.78487e+03,0.59762e+03,0.87912e+03,0.11626e+04 /) - kbo(:, 5,58,10) = (/ & - & 0.10357e+04,0.78565e+03,0.59710e+03,0.87769e+03,0.11608e+04 /) - kbo(:, 1,59,10) = (/ & - & 0.10360e+04,0.78507e+03,0.59979e+03,0.88416e+03,0.11687e+04 /) - kbo(:, 2,59,10) = (/ & - & 0.10357e+04,0.78477e+03,0.59879e+03,0.88260e+03,0.11665e+04 /) - kbo(:, 3,59,10) = (/ & - & 0.10350e+04,0.78526e+03,0.59804e+03,0.88100e+03,0.11644e+04 /) - kbo(:, 4,59,10) = (/ & - & 0.10357e+04,0.78467e+03,0.59773e+03,0.87930e+03,0.11629e+04 /) - kbo(:, 5,59,10) = (/ & - & 0.10358e+04,0.78457e+03,0.59718e+03,0.87783e+03,0.11609e+04 /) - kbo(:, 1,13,11) = (/ & - & 0.11563e+04,0.87491e+03,0.60253e+03,0.88362e+03,0.11664e+04 /) - kbo(:, 2,13,11) = (/ & - & 0.11454e+04,0.86861e+03,0.60211e+03,0.88300e+03,0.11639e+04 /) - kbo(:, 3,13,11) = (/ & - & 0.11392e+04,0.86181e+03,0.60140e+03,0.88181e+03,0.11620e+04 /) - kbo(:, 4,13,11) = (/ & - & 0.11315e+04,0.85680e+03,0.60042e+03,0.88057e+03,0.11602e+04 /) - kbo(:, 5,13,11) = (/ & - & 0.11273e+04,0.85330e+03,0.59929e+03,0.87908e+03,0.11581e+04 /) - kbo(:, 1,14,11) = (/ & - & 0.11333e+04,0.85776e+03,0.60215e+03,0.88338e+03,0.11660e+04 /) - kbo(:, 2,14,11) = (/ & - & 0.11256e+04,0.85211e+03,0.60176e+03,0.88258e+03,0.11637e+04 /) - kbo(:, 3,14,11) = (/ & - & 0.11185e+04,0.84809e+03,0.60101e+03,0.88154e+03,0.11618e+04 /) - kbo(:, 4,14,11) = (/ & - & 0.11137e+04,0.84328e+03,0.59992e+03,0.87989e+03,0.11599e+04 /) - kbo(:, 5,14,11) = (/ & - & 0.11092e+04,0.83997e+03,0.59898e+03,0.87879e+03,0.11581e+04 /) - kbo(:, 1,15,11) = (/ & - & 0.11149e+04,0.84435e+03,0.60192e+03,0.88317e+03,0.11660e+04 /) - kbo(:, 2,15,11) = (/ & - & 0.11071e+04,0.83899e+03,0.60145e+03,0.88233e+03,0.11635e+04 /) - kbo(:, 3,15,11) = (/ & - & 0.11058e+04,0.83612e+03,0.60066e+03,0.88128e+03,0.11617e+04 /) - kbo(:, 4,15,11) = (/ & - & 0.10996e+04,0.83410e+03,0.59965e+03,0.88002e+03,0.11599e+04 /) - kbo(:, 5,15,11) = (/ & - & 0.10957e+04,0.83022e+03,0.59863e+03,0.87850e+03,0.11578e+04 /) - kbo(:, 1,16,11) = (/ & - & 0.10993e+04,0.83361e+03,0.60157e+03,0.88298e+03,0.11657e+04 /) - kbo(:, 2,16,11) = (/ & - & 0.10933e+04,0.82961e+03,0.60127e+03,0.88210e+03,0.11633e+04 /) - kbo(:, 3,16,11) = (/ & - & 0.10924e+04,0.82745e+03,0.60035e+03,0.88104e+03,0.11615e+04 /) - kbo(:, 4,16,11) = (/ & - & 0.10885e+04,0.82319e+03,0.59934e+03,0.87977e+03,0.11597e+04 /) - kbo(:, 5,16,11) = (/ & - & 0.10838e+04,0.82062e+03,0.59823e+03,0.87823e+03,0.11577e+04 /) - kbo(:, 1,17,11) = (/ & - & 0.10881e+04,0.82385e+03,0.60135e+03,0.88282e+03,0.11656e+04 /) - kbo(:, 2,17,11) = (/ & - & 0.10840e+04,0.82201e+03,0.60094e+03,0.88190e+03,0.11631e+04 /) - kbo(:, 3,17,11) = (/ & - & 0.10809e+04,0.81908e+03,0.60007e+03,0.88083e+03,0.11613e+04 /) - kbo(:, 4,17,11) = (/ & - & 0.10772e+04,0.81792e+03,0.59907e+03,0.87953e+03,0.11595e+04 /) - kbo(:, 5,17,11) = (/ & - & 0.10760e+04,0.81580e+03,0.59806e+03,0.87798e+03,0.11575e+04 /) - kbo(:, 1,18,11) = (/ & - & 0.10780e+04,0.81679e+03,0.60116e+03,0.88267e+03,0.11653e+04 /) - kbo(:, 2,18,11) = (/ & - & 0.10749e+04,0.81512e+03,0.60072e+03,0.88171e+03,0.11629e+04 /) - kbo(:, 3,18,11) = (/ & - & 0.10728e+04,0.81180e+03,0.59983e+03,0.88050e+03,0.11611e+04 /) - kbo(:, 4,18,11) = (/ & - & 0.10707e+04,0.81081e+03,0.59883e+03,0.87944e+03,0.11593e+04 /) - kbo(:, 5,18,11) = (/ & - & 0.10678e+04,0.80905e+03,0.59782e+03,0.87775e+03,0.11574e+04 /) - kbo(:, 1,19,11) = (/ & - & 0.10696e+04,0.81122e+03,0.60101e+03,0.88252e+03,0.11649e+04 /) - kbo(:, 2,19,11) = (/ & - & 0.10692e+04,0.80792e+03,0.60053e+03,0.88155e+03,0.11625e+04 /) - kbo(:, 3,19,11) = (/ & - & 0.10653e+04,0.80791e+03,0.59962e+03,0.88058e+03,0.11609e+04 /) - kbo(:, 4,19,11) = (/ & - & 0.10635e+04,0.80651e+03,0.59853e+03,0.87910e+03,0.11591e+04 /) - kbo(:, 5,19,11) = (/ & - & 0.10626e+04,0.80552e+03,0.59761e+03,0.87753e+03,0.11572e+04 /) - kbo(:, 1,20,11) = (/ & - & 0.10638e+04,0.80613e+03,0.60096e+03,0.88236e+03,0.11646e+04 /) - kbo(:, 2,20,11) = (/ & - & 0.10623e+04,0.80416e+03,0.60035e+03,0.88137e+03,0.11625e+04 /) - kbo(:, 3,20,11) = (/ & - & 0.10590e+04,0.80264e+03,0.59950e+03,0.88013e+03,0.11607e+04 /) - kbo(:, 4,20,11) = (/ & - & 0.10603e+04,0.80308e+03,0.59841e+03,0.87915e+03,0.11587e+04 /) - kbo(:, 5,20,11) = (/ & - & 0.10573e+04,0.80101e+03,0.59740e+03,0.87729e+03,0.11568e+04 /) - kbo(:, 1,21,11) = (/ & - & 0.10580e+04,0.80255e+03,0.60075e+03,0.88233e+03,0.11643e+04 /) - kbo(:, 2,21,11) = (/ & - & 0.10580e+04,0.80172e+03,0.60017e+03,0.88121e+03,0.11623e+04 /) - kbo(:, 3,21,11) = (/ & - & 0.10551e+04,0.80129e+03,0.59922e+03,0.87954e+03,0.11605e+04 /) - kbo(:, 4,21,11) = (/ & - & 0.10544e+04,0.79894e+03,0.59822e+03,0.87866e+03,0.11586e+04 /) - kbo(:, 5,21,11) = (/ & - & 0.10531e+04,0.79850e+03,0.59721e+03,0.87693e+03,0.11568e+04 /) - kbo(:, 1,22,11) = (/ & - & 0.10535e+04,0.79809e+03,0.60064e+03,0.88198e+03,0.11639e+04 /) - kbo(:, 2,22,11) = (/ & - & 0.10534e+04,0.79679e+03,0.59986e+03,0.88098e+03,0.11619e+04 /) - kbo(:, 3,22,11) = (/ & - & 0.10517e+04,0.79764e+03,0.59897e+03,0.87993e+03,0.11602e+04 /) - kbo(:, 4,22,11) = (/ & - & 0.10510e+04,0.79739e+03,0.59797e+03,0.87835e+03,0.11582e+04 /) - kbo(:, 5,22,11) = (/ & - & 0.10492e+04,0.79579e+03,0.59697e+03,0.87672e+03,0.11565e+04 /) - kbo(:, 1,23,11) = (/ & - & 0.10516e+04,0.79606e+03,0.60095e+03,0.88176e+03,0.11633e+04 /) - kbo(:, 2,23,11) = (/ & - & 0.10497e+04,0.79542e+03,0.59972e+03,0.88074e+03,0.11616e+04 /) - kbo(:, 3,23,11) = (/ & - & 0.10482e+04,0.79453e+03,0.59873e+03,0.87952e+03,0.11598e+04 /) - kbo(:, 4,23,11) = (/ & - & 0.10486e+04,0.79431e+03,0.59782e+03,0.87802e+03,0.11579e+04 /) - kbo(:, 5,23,11) = (/ & - & 0.10473e+04,0.79522e+03,0.59672e+03,0.87637e+03,0.11562e+04 /) - kbo(:, 1,24,11) = (/ & - & 0.10467e+04,0.79476e+03,0.60034e+03,0.88154e+03,0.11630e+04 /) - kbo(:, 2,24,11) = (/ & - & 0.10461e+04,0.79357e+03,0.59948e+03,0.88049e+03,0.11613e+04 /) - kbo(:, 3,24,11) = (/ & - & 0.10460e+04,0.79280e+03,0.59849e+03,0.87921e+03,0.11596e+04 /) - kbo(:, 4,24,11) = (/ & - & 0.10457e+04,0.79222e+03,0.59749e+03,0.87768e+03,0.11575e+04 /) - kbo(:, 5,24,11) = (/ & - & 0.10450e+04,0.79193e+03,0.59639e+03,0.87600e+03,0.11558e+04 /) - kbo(:, 1,25,11) = (/ & - & 0.10463e+04,0.79209e+03,0.60015e+03,0.88131e+03,0.11626e+04 /) - kbo(:, 2,25,11) = (/ & - & 0.10455e+04,0.79185e+03,0.59924e+03,0.87983e+03,0.11609e+04 /) - kbo(:, 3,25,11) = (/ & - & 0.10450e+04,0.79214e+03,0.59824e+03,0.87889e+03,0.11590e+04 /) - kbo(:, 4,25,11) = (/ & - & 0.10445e+04,0.79118e+03,0.59725e+03,0.87732e+03,0.11571e+04 /) - kbo(:, 5,25,11) = (/ & - & 0.10428e+04,0.79168e+03,0.59624e+03,0.87561e+03,0.11555e+04 /) - kbo(:, 1,26,11) = (/ & - & 0.10437e+04,0.79093e+03,0.59993e+03,0.88106e+03,0.11624e+04 /) - kbo(:, 2,26,11) = (/ & - & 0.10430e+04,0.79091e+03,0.59898e+03,0.87993e+03,0.11605e+04 /) - kbo(:, 3,26,11) = (/ & - & 0.10430e+04,0.79069e+03,0.59808e+03,0.87852e+03,0.11586e+04 /) - kbo(:, 4,26,11) = (/ & - & 0.10425e+04,0.79087e+03,0.59699e+03,0.87692e+03,0.11569e+04 /) - kbo(:, 5,26,11) = (/ & - & 0.10414e+04,0.78954e+03,0.59598e+03,0.87517e+03,0.11547e+04 /) - kbo(:, 1,27,11) = (/ & - & 0.10423e+04,0.79028e+03,0.59970e+03,0.88080e+03,0.11616e+04 /) - kbo(:, 2,27,11) = (/ & - & 0.10415e+04,0.78939e+03,0.59872e+03,0.87961e+03,0.11600e+04 /) - kbo(:, 3,27,11) = (/ & - & 0.10419e+04,0.78972e+03,0.59773e+03,0.87814e+03,0.11581e+04 /) - kbo(:, 4,27,11) = (/ & - & 0.10405e+04,0.78901e+03,0.59673e+03,0.87651e+03,0.11564e+04 /) - kbo(:, 5,27,11) = (/ & - & 0.10410e+04,0.78880e+03,0.59572e+03,0.87471e+03,0.11546e+04 /) - kbo(:, 1,28,11) = (/ & - & 0.10411e+04,0.78831e+03,0.59945e+03,0.88052e+03,0.11614e+04 /) - kbo(:, 2,28,11) = (/ & - & 0.10402e+04,0.78866e+03,0.59846e+03,0.87954e+03,0.11596e+04 /) - kbo(:, 3,28,11) = (/ & - & 0.10401e+04,0.78798e+03,0.59747e+03,0.87776e+03,0.11577e+04 /) - kbo(:, 4,28,11) = (/ & - & 0.10407e+04,0.78779e+03,0.59647e+03,0.87596e+03,0.11560e+04 /) - kbo(:, 5,28,11) = (/ & - & 0.10407e+04,0.78751e+03,0.59548e+03,0.87425e+03,0.11542e+04 /) - kbo(:, 1,29,11) = (/ & - & 0.10408e+04,0.78876e+03,0.59920e+03,0.87983e+03,0.11608e+04 /) - kbo(:, 2,29,11) = (/ & - & 0.10408e+04,0.78834e+03,0.59820e+03,0.87891e+03,0.11591e+04 /) - kbo(:, 3,29,11) = (/ & - & 0.10387e+04,0.78864e+03,0.59721e+03,0.87735e+03,0.11572e+04 /) - kbo(:, 4,29,11) = (/ & - & 0.10384e+04,0.78778e+03,0.59621e+03,0.87578e+03,0.11555e+04 /) - kbo(:, 5,29,11) = (/ & - & 0.10412e+04,0.78824e+03,0.59524e+03,0.87368e+03,0.11538e+04 /) - kbo(:, 1,30,11) = (/ & - & 0.10383e+04,0.78758e+03,0.59894e+03,0.87992e+03,0.11605e+04 /) - kbo(:, 2,30,11) = (/ & - & 0.10390e+04,0.78755e+03,0.59785e+03,0.87840e+03,0.11584e+04 /) - kbo(:, 3,30,11) = (/ & - & 0.10391e+04,0.78813e+03,0.59695e+03,0.87693e+03,0.11568e+04 /) - kbo(:, 4,30,11) = (/ & - & 0.10384e+04,0.78683e+03,0.59594e+03,0.87519e+03,0.11551e+04 /) - kbo(:, 5,30,11) = (/ & - & 0.10388e+04,0.78660e+03,0.59501e+03,0.87341e+03,0.11534e+04 /) - kbo(:, 1,31,11) = (/ & - & 0.10376e+04,0.78640e+03,0.59867e+03,0.87959e+03,0.11601e+04 /) - kbo(:, 2,31,11) = (/ & - & 0.10381e+04,0.78687e+03,0.59768e+03,0.87813e+03,0.11581e+04 /) - kbo(:, 3,31,11) = (/ & - & 0.10369e+04,0.78736e+03,0.59668e+03,0.87650e+03,0.11564e+04 /) - kbo(:, 4,31,11) = (/ & - & 0.10380e+04,0.78738e+03,0.59577e+03,0.87483e+03,0.11546e+04 /) - kbo(:, 5,31,11) = (/ & - & 0.10391e+04,0.78671e+03,0.59479e+03,0.87299e+03,0.11532e+04 /) - kbo(:, 1,32,11) = (/ & - & 0.10371e+04,0.78531e+03,0.59840e+03,0.87936e+03,0.11596e+04 /) - kbo(:, 2,32,11) = (/ & - & 0.10383e+04,0.78734e+03,0.59742e+03,0.87771e+03,0.11576e+04 /) - kbo(:, 3,32,11) = (/ & - & 0.10363e+04,0.78691e+03,0.59641e+03,0.87605e+03,0.11559e+04 /) - kbo(:, 4,32,11) = (/ & - & 0.10373e+04,0.78648e+03,0.59543e+03,0.87420e+03,0.11542e+04 /) - kbo(:, 5,32,11) = (/ & - & 0.10376e+04,0.78617e+03,0.59455e+03,0.87256e+03,0.11529e+04 /) - kbo(:, 1,33,11) = (/ & - & 0.10366e+04,0.78725e+03,0.59814e+03,0.87885e+03,0.11591e+04 /) - kbo(:, 2,33,11) = (/ & - & 0.10366e+04,0.78694e+03,0.59715e+03,0.87729e+03,0.11572e+04 /) - kbo(:, 3,33,11) = (/ & - & 0.10365e+04,0.78534e+03,0.59614e+03,0.87545e+03,0.11555e+04 /) - kbo(:, 4,33,11) = (/ & - & 0.10377e+04,0.78705e+03,0.59518e+03,0.87362e+03,0.11536e+04 /) - kbo(:, 5,33,11) = (/ & - & 0.10381e+04,0.78546e+03,0.59428e+03,0.87201e+03,0.11526e+04 /) - kbo(:, 1,34,11) = (/ & - & 0.10370e+04,0.78547e+03,0.59791e+03,0.87837e+03,0.11586e+04 /) - kbo(:, 2,34,11) = (/ & - & 0.10369e+04,0.78635e+03,0.59683e+03,0.87691e+03,0.11568e+04 /) - kbo(:, 3,34,11) = (/ & - & 0.10373e+04,0.78607e+03,0.59591e+03,0.87516e+03,0.11551e+04 /) - kbo(:, 4,34,11) = (/ & - & 0.10371e+04,0.78696e+03,0.59498e+03,0.87338e+03,0.11534e+04 /) - kbo(:, 5,34,11) = (/ & - & 0.10366e+04,0.78538e+03,0.59374e+03,0.87179e+03,0.11524e+04 /) - kbo(:, 1,35,11) = (/ & - & 0.10371e+04,0.78681e+03,0.59778e+03,0.87830e+03,0.11583e+04 /) - kbo(:, 2,35,11) = (/ & - & 0.10367e+04,0.78665e+03,0.59678e+03,0.87669e+03,0.11566e+04 /) - kbo(:, 3,35,11) = (/ & - & 0.10363e+04,0.78613e+03,0.59569e+03,0.87491e+03,0.11549e+04 /) - kbo(:, 4,35,11) = (/ & - & 0.10364e+04,0.78668e+03,0.59487e+03,0.87304e+03,0.11533e+04 /) - kbo(:, 5,35,11) = (/ & - & 0.10370e+04,0.78641e+03,0.59363e+03,0.87159e+03,0.11523e+04 /) - kbo(:, 1,36,11) = (/ & - & 0.10366e+04,0.78595e+03,0.59775e+03,0.87827e+03,0.11583e+04 /) - kbo(:, 2,36,11) = (/ & - & 0.10367e+04,0.78568e+03,0.59676e+03,0.87652e+03,0.11565e+04 /) - kbo(:, 3,36,11) = (/ & - & 0.10363e+04,0.78600e+03,0.59575e+03,0.87487e+03,0.11548e+04 /) - kbo(:, 4,36,11) = (/ & - & 0.10370e+04,0.78596e+03,0.59503e+03,0.87314e+03,0.11533e+04 /) - kbo(:, 5,36,11) = (/ & - & 0.10356e+04,0.78546e+03,0.59359e+03,0.87116e+03,0.11523e+04 /) - kbo(:, 1,37,11) = (/ & - & 0.10367e+04,0.78524e+03,0.59788e+03,0.87847e+03,0.11586e+04 /) - kbo(:, 2,37,11) = (/ & - & 0.10373e+04,0.78580e+03,0.59689e+03,0.87687e+03,0.11567e+04 /) - kbo(:, 3,37,11) = (/ & - & 0.10369e+04,0.78554e+03,0.59588e+03,0.87512e+03,0.11550e+04 /) - kbo(:, 4,37,11) = (/ & - & 0.10372e+04,0.78551e+03,0.59495e+03,0.87335e+03,0.11534e+04 /) - kbo(:, 5,37,11) = (/ & - & 0.10364e+04,0.78631e+03,0.59378e+03,0.87175e+03,0.11524e+04 /) - kbo(:, 1,38,11) = (/ & - & 0.10372e+04,0.78574e+03,0.59801e+03,0.87867e+03,0.11588e+04 /) - kbo(:, 2,38,11) = (/ & - & 0.10364e+04,0.78476e+03,0.59702e+03,0.87710e+03,0.11570e+04 /) - kbo(:, 3,38,11) = (/ & - & 0.10351e+04,0.78521e+03,0.59593e+03,0.87537e+03,0.11553e+04 /) - kbo(:, 4,38,11) = (/ & - & 0.10362e+04,0.78507e+03,0.59507e+03,0.87344e+03,0.11536e+04 /) - kbo(:, 5,38,11) = (/ & - & 0.10371e+04,0.78635e+03,0.59400e+03,0.87197e+03,0.11525e+04 /) - kbo(:, 1,39,11) = (/ & - & 0.10359e+04,0.78601e+03,0.59815e+03,0.87888e+03,0.11591e+04 /) - kbo(:, 2,39,11) = (/ & - & 0.10375e+04,0.78669e+03,0.59716e+03,0.87732e+03,0.11572e+04 /) - kbo(:, 3,39,11) = (/ & - & 0.10350e+04,0.78597e+03,0.59615e+03,0.87562e+03,0.11555e+04 /) - kbo(:, 4,39,11) = (/ & - & 0.10366e+04,0.78524e+03,0.59519e+03,0.87365e+03,0.11538e+04 /) - kbo(:, 5,39,11) = (/ & - & 0.10373e+04,0.78605e+03,0.59422e+03,0.87205e+03,0.11526e+04 /) - kbo(:, 1,40,11) = (/ & - & 0.10361e+04,0.78559e+03,0.59838e+03,0.87949e+03,0.11596e+04 /) - kbo(:, 2,40,11) = (/ & - & 0.10364e+04,0.78533e+03,0.59740e+03,0.87771e+03,0.11576e+04 /) - kbo(:, 3,40,11) = (/ & - & 0.10357e+04,0.78567e+03,0.59640e+03,0.87605e+03,0.11559e+04 /) - kbo(:, 4,40,11) = (/ & - & 0.10354e+04,0.78518e+03,0.59541e+03,0.87434e+03,0.11542e+04 /) - kbo(:, 5,40,11) = (/ & - & 0.10361e+04,0.78553e+03,0.59453e+03,0.87244e+03,0.11529e+04 /) - kbo(:, 1,41,11) = (/ & - & 0.10352e+04,0.78554e+03,0.59863e+03,0.87958e+03,0.11601e+04 /) - kbo(:, 2,41,11) = (/ & - & 0.10361e+04,0.78611e+03,0.59765e+03,0.87811e+03,0.11581e+04 /) - kbo(:, 3,41,11) = (/ & - & 0.10357e+04,0.78586e+03,0.59665e+03,0.87648e+03,0.11564e+04 /) - kbo(:, 4,41,11) = (/ & - & 0.10369e+04,0.78632e+03,0.59556e+03,0.87469e+03,0.11547e+04 /) - kbo(:, 5,41,11) = (/ & - & 0.10372e+04,0.78631e+03,0.59476e+03,0.87298e+03,0.11532e+04 /) - kbo(:, 1,42,11) = (/ & - & 0.10352e+04,0.78620e+03,0.59889e+03,0.87990e+03,0.11605e+04 /) - kbo(:, 2,42,11) = (/ & - & 0.10362e+04,0.78666e+03,0.59790e+03,0.87851e+03,0.11586e+04 /) - kbo(:, 3,42,11) = (/ & - & 0.10358e+04,0.78476e+03,0.59691e+03,0.87691e+03,0.11568e+04 /) - kbo(:, 4,42,11) = (/ & - & 0.10367e+04,0.78534e+03,0.59590e+03,0.87517e+03,0.11551e+04 /) - kbo(:, 5,42,11) = (/ & - & 0.10374e+04,0.78497e+03,0.59497e+03,0.87339e+03,0.11533e+04 /) - kbo(:, 1,43,11) = (/ & - & 0.10357e+04,0.78569e+03,0.59919e+03,0.88014e+03,0.11611e+04 /) - kbo(:, 2,43,11) = (/ & - & 0.10384e+04,0.78603e+03,0.59811e+03,0.87910e+03,0.11592e+04 /) - kbo(:, 3,43,11) = (/ & - & 0.10376e+04,0.78685e+03,0.59731e+03,0.87742e+03,0.11573e+04 /) - kbo(:, 4,43,11) = (/ & - & 0.10368e+04,0.78484e+03,0.59612e+03,0.87573e+03,0.11555e+04 /) - kbo(:, 5,43,11) = (/ & - & 0.10371e+04,0.78612e+03,0.59525e+03,0.87389e+03,0.11539e+04 /) - kbo(:, 1,44,11) = (/ & - & 0.10362e+04,0.78531e+03,0.59952e+03,0.88052e+03,0.11615e+04 /) - kbo(:, 2,44,11) = (/ & - & 0.10357e+04,0.78506e+03,0.59854e+03,0.87945e+03,0.11599e+04 /) - kbo(:, 3,44,11) = (/ & - & 0.10347e+04,0.78494e+03,0.59755e+03,0.87796e+03,0.11576e+04 /) - kbo(:, 4,44,11) = (/ & - & 0.10360e+04,0.78599e+03,0.59655e+03,0.87632e+03,0.11562e+04 /) - kbo(:, 5,44,11) = (/ & - & 0.10364e+04,0.78610e+03,0.59556e+03,0.87451e+03,0.11545e+04 /) - kbo(:, 1,45,11) = (/ & - & 0.10355e+04,0.78552e+03,0.59982e+03,0.88100e+03,0.11621e+04 /) - kbo(:, 2,45,11) = (/ & - & 0.10357e+04,0.78527e+03,0.59887e+03,0.87975e+03,0.11605e+04 /) - kbo(:, 3,45,11) = (/ & - & 0.10358e+04,0.78432e+03,0.59788e+03,0.87848e+03,0.11586e+04 /) - kbo(:, 4,45,11) = (/ & - & 0.10358e+04,0.78597e+03,0.59689e+03,0.87689e+03,0.11568e+04 /) - kbo(:, 5,45,11) = (/ & - & 0.10353e+04,0.78525e+03,0.59589e+03,0.87514e+03,0.11551e+04 /) - kbo(:, 1,46,11) = (/ & - & 0.10358e+04,0.78503e+03,0.60010e+03,0.88136e+03,0.11629e+04 /) - kbo(:, 2,46,11) = (/ & - & 0.10366e+04,0.78667e+03,0.59923e+03,0.88004e+03,0.11611e+04 /) - kbo(:, 3,46,11) = (/ & - & 0.10372e+04,0.78560e+03,0.59824e+03,0.87915e+03,0.11593e+04 /) - kbo(:, 4,46,11) = (/ & - & 0.10348e+04,0.78513e+03,0.59725e+03,0.87748e+03,0.11574e+04 /) - kbo(:, 5,46,11) = (/ & - & 0.10372e+04,0.78595e+03,0.59625e+03,0.87592e+03,0.11557e+04 /) - kbo(:, 1,47,11) = (/ & - & 0.10352e+04,0.78466e+03,0.60059e+03,0.88175e+03,0.11637e+04 /) - kbo(:, 2,47,11) = (/ & - & 0.10362e+04,0.78477e+03,0.59970e+03,0.88075e+03,0.11618e+04 /) - kbo(:, 3,47,11) = (/ & - & 0.10362e+04,0.78559e+03,0.59863e+03,0.87958e+03,0.11601e+04 /) - kbo(:, 4,47,11) = (/ & - & 0.10356e+04,0.78476e+03,0.59765e+03,0.87812e+03,0.11581e+04 /) - kbo(:, 5,47,11) = (/ & - & 0.10361e+04,0.78428e+03,0.59665e+03,0.87649e+03,0.11564e+04 /) - kbo(:, 1,48,11) = (/ & - & 0.10354e+04,0.78500e+03,0.60042e+03,0.88214e+03,0.11645e+04 /) - kbo(:, 2,48,11) = (/ & - & 0.10348e+04,0.78582e+03,0.59995e+03,0.88117e+03,0.11625e+04 /) - kbo(:, 3,48,11) = (/ & - & 0.10353e+04,0.78569e+03,0.59903e+03,0.87942e+03,0.11608e+04 /) - kbo(:, 4,48,11) = (/ & - & 0.10359e+04,0.78569e+03,0.59804e+03,0.87873e+03,0.11589e+04 /) - kbo(:, 5,48,11) = (/ & - & 0.10354e+04,0.78509e+03,0.59705e+03,0.87716e+03,0.11570e+04 /) - kbo(:, 1,49,11) = (/ & - & 0.10362e+04,0.78463e+03,0.60042e+03,0.88242e+03,0.11657e+04 /) - kbo(:, 2,49,11) = (/ & - & 0.10367e+04,0.78580e+03,0.60023e+03,0.88156e+03,0.11633e+04 /) - kbo(:, 3,49,11) = (/ & - & 0.10373e+04,0.78533e+03,0.59942e+03,0.88054e+03,0.11615e+04 /) - kbo(:, 4,49,11) = (/ & - & 0.10373e+04,0.78462e+03,0.59844e+03,0.87918e+03,0.11595e+04 /) - kbo(:, 5,49,11) = (/ & - & 0.10370e+04,0.78532e+03,0.59736e+03,0.87781e+03,0.11578e+04 /) - kbo(:, 1,50,11) = (/ & - & 0.10356e+04,0.78474e+03,0.60056e+03,0.88267e+03,0.11666e+04 /) - kbo(:, 2,50,11) = (/ & - & 0.10370e+04,0.78497e+03,0.60046e+03,0.88192e+03,0.11642e+04 /) - kbo(:, 3,50,11) = (/ & - & 0.10348e+04,0.78508e+03,0.59977e+03,0.88094e+03,0.11634e+04 /) - kbo(:, 4,50,11) = (/ & - & 0.10352e+04,0.78473e+03,0.59881e+03,0.87954e+03,0.11604e+04 /) - kbo(:, 5,50,11) = (/ & - & 0.10360e+04,0.78437e+03,0.59782e+03,0.87840e+03,0.11585e+04 /) - kbo(:, 1,51,11) = (/ & - & 0.10365e+04,0.78532e+03,0.60054e+03,0.88306e+03,0.11674e+04 /) - kbo(:, 2,51,11) = (/ & - & 0.10360e+04,0.78555e+03,0.60046e+03,0.88226e+03,0.11651e+04 /) - kbo(:, 3,51,11) = (/ & - & 0.10359e+04,0.78508e+03,0.60006e+03,0.88131e+03,0.11628e+04 /) - kbo(:, 4,51,11) = (/ & - & 0.10359e+04,0.78554e+03,0.59917e+03,0.88011e+03,0.11610e+04 /) - kbo(:, 5,51,11) = (/ & - & 0.10363e+04,0.78507e+03,0.59818e+03,0.87894e+03,0.11592e+04 /) - kbo(:, 1,52,11) = (/ & - & 0.10357e+04,0.78531e+03,0.60048e+03,0.88333e+03,0.11687e+04 /) - kbo(:, 2,52,11) = (/ & - & 0.10368e+04,0.78554e+03,0.60053e+03,0.88249e+03,0.11660e+04 /) - kbo(:, 3,52,11) = (/ & - & 0.10362e+04,0.78601e+03,0.60037e+03,0.88166e+03,0.11635e+04 /) - kbo(:, 4,52,11) = (/ & - & 0.10354e+04,0.78507e+03,0.59952e+03,0.88066e+03,0.11617e+04 /) - kbo(:, 5,52,11) = (/ & - & 0.10363e+04,0.78565e+03,0.59854e+03,0.87959e+03,0.11599e+04 /) - kbo(:, 1,53,11) = (/ & - & 0.10366e+04,0.78460e+03,0.60030e+03,0.88415e+03,0.11699e+04 /) - kbo(:, 2,53,11) = (/ & - & 0.10366e+04,0.78400e+03,0.60056e+03,0.88262e+03,0.11668e+04 /) - kbo(:, 3,53,11) = (/ & - & 0.10358e+04,0.78459e+03,0.60039e+03,0.88202e+03,0.11644e+04 /) - kbo(:, 4,53,11) = (/ & - & 0.10348e+04,0.78471e+03,0.59985e+03,0.88104e+03,0.11623e+04 /) - kbo(:, 5,53,11) = (/ & - & 0.10366e+04,0.78577e+03,0.59891e+03,0.87992e+03,0.11606e+04 /) - kbo(:, 1,54,11) = (/ & - & 0.10355e+04,0.78471e+03,0.60033e+03,0.88501e+03,0.11708e+04 /) - kbo(:, 2,54,11) = (/ & - & 0.10360e+04,0.78494e+03,0.60053e+03,0.88313e+03,0.11678e+04 /) - kbo(:, 3,54,11) = (/ & - & 0.10360e+04,0.78671e+03,0.60047e+03,0.88230e+03,0.11652e+04 /) - kbo(:, 4,54,11) = (/ & - & 0.10355e+04,0.78588e+03,0.60010e+03,0.88137e+03,0.11629e+04 /) - kbo(:, 5,54,11) = (/ & - & 0.10357e+04,0.78517e+03,0.59924e+03,0.88032e+03,0.11612e+04 /) - kbo(:, 1,55,11) = (/ & - & 0.10357e+04,0.78506e+03,0.60035e+03,0.88567e+03,0.11714e+04 /) - kbo(:, 2,55,11) = (/ & - & 0.10357e+04,0.78518e+03,0.60047e+03,0.88349e+03,0.11688e+04 /) - kbo(:, 3,55,11) = (/ & - & 0.10361e+04,0.78517e+03,0.60053e+03,0.88250e+03,0.11660e+04 /) - kbo(:, 4,55,11) = (/ & - & 0.10357e+04,0.78529e+03,0.60029e+03,0.88168e+03,0.11636e+04 /) - kbo(:, 5,55,11) = (/ & - & 0.10360e+04,0.78529e+03,0.59954e+03,0.88068e+03,0.11617e+04 /) - kbo(:, 1,56,11) = (/ & - & 0.10361e+04,0.78494e+03,0.60049e+03,0.88607e+03,0.11718e+04 /) - kbo(:, 2,56,11) = (/ & - & 0.10360e+04,0.78482e+03,0.60030e+03,0.88410e+03,0.11698e+04 /) - kbo(:, 3,56,11) = (/ & - & 0.10354e+04,0.78493e+03,0.60056e+03,0.88273e+03,0.11667e+04 /) - kbo(:, 4,56,11) = (/ & - & 0.10357e+04,0.78552e+03,0.60038e+03,0.88199e+03,0.11645e+04 /) - kbo(:, 5,56,11) = (/ & - & 0.10357e+04,0.78517e+03,0.59983e+03,0.88101e+03,0.11624e+04 /) - kbo(:, 1,57,11) = (/ & - & 0.10357e+04,0.78588e+03,0.60099e+03,0.88686e+03,0.11725e+04 /) - kbo(:, 2,57,11) = (/ & - & 0.10366e+04,0.78458e+03,0.60033e+03,0.88491e+03,0.11707e+04 /) - kbo(:, 3,57,11) = (/ & - & 0.10366e+04,0.78481e+03,0.60053e+03,0.88335e+03,0.11676e+04 /) - kbo(:, 4,57,11) = (/ & - & 0.10358e+04,0.78611e+03,0.60046e+03,0.88227e+03,0.11650e+04 /) - kbo(:, 5,57,11) = (/ & - & 0.10355e+04,0.78599e+03,0.60008e+03,0.88133e+03,0.11630e+04 /) - kbo(:, 1,58,11) = (/ & - & 0.10363e+04,0.78576e+03,0.60143e+03,0.88764e+03,0.11733e+04 /) - kbo(:, 2,58,11) = (/ & - & 0.10354e+04,0.78611e+03,0.60042e+03,0.88557e+03,0.11713e+04 /) - kbo(:, 3,58,11) = (/ & - & 0.10363e+04,0.78576e+03,0.60048e+03,0.88329e+03,0.11686e+04 /) - kbo(:, 4,58,11) = (/ & - & 0.10364e+04,0.78505e+03,0.60052e+03,0.88247e+03,0.11659e+04 /) - kbo(:, 5,58,11) = (/ & - & 0.10357e+04,0.78552e+03,0.60026e+03,0.88163e+03,0.11633e+04 /) - kbo(:, 1,59,11) = (/ & - & 0.10354e+04,0.78634e+03,0.60176e+03,0.88797e+03,0.11736e+04 /) - kbo(:, 2,59,11) = (/ & - & 0.10350e+04,0.78505e+03,0.60038e+03,0.88577e+03,0.11715e+04 /) - kbo(:, 3,59,11) = (/ & - & 0.10360e+04,0.78469e+03,0.60046e+03,0.88358e+03,0.11703e+04 /) - kbo(:, 4,59,11) = (/ & - & 0.10357e+04,0.78493e+03,0.60045e+03,0.88254e+03,0.11662e+04 /) - kbo(:, 5,59,11) = (/ & - & 0.10366e+04,0.78516e+03,0.60041e+03,0.88174e+03,0.11637e+04 /) - kbo(:, 1,13,12) = (/ & - & 0.11535e+04,0.87955e+03,0.60434e+03,0.88744e+03,0.11710e+04 /) - kbo(:, 2,13,12) = (/ & - & 0.11485e+04,0.86886e+03,0.60369e+03,0.88598e+03,0.11697e+04 /) - kbo(:, 3,13,12) = (/ & - & 0.11395e+04,0.86441e+03,0.60332e+03,0.88477e+03,0.11680e+04 /) - kbo(:, 4,13,12) = (/ & - & 0.11350e+04,0.86216e+03,0.60276e+03,0.88294e+03,0.11659e+04 /) - kbo(:, 5,13,12) = (/ & - & 0.11237e+04,0.85514e+03,0.60186e+03,0.88131e+03,0.11640e+04 /) - kbo(:, 1,14,12) = (/ & - & 0.11312e+04,0.85960e+03,0.60391e+03,0.88683e+03,0.11708e+04 /) - kbo(:, 2,14,12) = (/ & - & 0.11248e+04,0.85192e+03,0.60329e+03,0.88591e+03,0.11696e+04 /) - kbo(:, 3,14,12) = (/ & - & 0.11210e+04,0.84824e+03,0.60297e+03,0.88444e+03,0.11678e+04 /) - kbo(:, 4,14,12) = (/ & - & 0.11139e+04,0.84322e+03,0.60241e+03,0.88264e+03,0.11657e+04 /) - kbo(:, 5,14,12) = (/ & - & 0.11123e+04,0.84158e+03,0.60150e+03,0.88104e+03,0.11639e+04 /) - kbo(:, 1,15,12) = (/ & - & 0.11159e+04,0.84414e+03,0.60344e+03,0.88657e+03,0.11715e+04 /) - kbo(:, 2,15,12) = (/ & - & 0.11106e+04,0.84043e+03,0.60296e+03,0.88568e+03,0.11695e+04 /) - kbo(:, 3,15,12) = (/ & - & 0.11018e+04,0.83588e+03,0.60268e+03,0.88413e+03,0.11676e+04 /) - kbo(:, 4,15,12) = (/ & - & 0.10976e+04,0.83213e+03,0.60210e+03,0.88235e+03,0.11655e+04 /) - kbo(:, 5,15,12) = (/ & - & 0.10965e+04,0.83273e+03,0.60128e+03,0.88077e+03,0.11639e+04 /) - kbo(:, 1,16,12) = (/ & - & 0.11003e+04,0.83414e+03,0.60325e+03,0.88634e+03,0.11705e+04 /) - kbo(:, 2,16,12) = (/ & - & 0.10991e+04,0.82921e+03,0.60259e+03,0.88546e+03,0.11694e+04 /) - kbo(:, 3,16,12) = (/ & - & 0.10955e+04,0.82665e+03,0.60243e+03,0.88384e+03,0.11674e+04 /) - kbo(:, 4,16,12) = (/ & - & 0.10851e+04,0.82401e+03,0.60183e+03,0.88207e+03,0.11653e+04 /) - kbo(:, 5,16,12) = (/ & - & 0.10849e+04,0.82356e+03,0.60085e+03,0.88053e+03,0.11635e+04 /) - kbo(:, 1,17,12) = (/ & - & 0.10876e+04,0.82527e+03,0.60299e+03,0.88614e+03,0.11702e+04 /) - kbo(:, 2,17,12) = (/ & - & 0.10859e+04,0.82135e+03,0.60250e+03,0.88526e+03,0.11692e+04 /) - kbo(:, 3,17,12) = (/ & - & 0.10841e+04,0.81891e+03,0.60222e+03,0.88356e+03,0.11671e+04 /) - kbo(:, 4,17,12) = (/ & - & 0.10784e+04,0.81708e+03,0.60159e+03,0.88183e+03,0.11651e+04 /) - kbo(:, 5,17,12) = (/ & - & 0.10763e+04,0.81350e+03,0.60170e+03,0.88030e+03,0.11634e+04 /) - kbo(:, 1,18,12) = (/ & - & 0.10781e+04,0.81748e+03,0.60276e+03,0.88597e+03,0.11700e+04 /) - kbo(:, 2,18,12) = (/ & - & 0.10771e+04,0.81396e+03,0.60232e+03,0.88573e+03,0.11691e+04 /) - kbo(:, 3,18,12) = (/ & - & 0.10718e+04,0.81415e+03,0.60204e+03,0.88331e+03,0.11669e+04 /) - kbo(:, 4,18,12) = (/ & - & 0.10689e+04,0.81027e+03,0.60137e+03,0.88144e+03,0.11649e+04 /) - kbo(:, 5,18,12) = (/ & - & 0.10691e+04,0.80937e+03,0.60029e+03,0.88009e+03,0.11632e+04 /) - kbo(:, 1,19,12) = (/ & - & 0.10732e+04,0.81093e+03,0.60257e+03,0.88582e+03,0.11702e+04 /) - kbo(:, 2,19,12) = (/ & - & 0.10665e+04,0.81093e+03,0.60218e+03,0.88486e+03,0.11689e+04 /) - kbo(:, 3,19,12) = (/ & - & 0.10668e+04,0.80596e+03,0.60188e+03,0.88291e+03,0.11667e+04 /) - kbo(:, 4,19,12) = (/ & - & 0.10625e+04,0.80871e+03,0.60129e+03,0.88139e+03,0.11647e+04 /) - kbo(:, 5,19,12) = (/ & - & 0.10641e+04,0.80549e+03,0.60005e+03,0.87990e+03,0.11631e+04 /) - kbo(:, 1,20,12) = (/ & - & 0.10655e+04,0.80608e+03,0.60228e+03,0.88568e+03,0.11700e+04 /) - kbo(:, 2,20,12) = (/ & - & 0.10621e+04,0.80582e+03,0.60205e+03,0.88462e+03,0.11686e+04 /) - kbo(:, 3,20,12) = (/ & - & 0.10596e+04,0.80439e+03,0.60161e+03,0.88282e+03,0.11664e+04 /) - kbo(:, 4,20,12) = (/ & - & 0.10569e+04,0.80052e+03,0.60133e+03,0.88084e+03,0.11645e+04 /) - kbo(:, 5,20,12) = (/ & - & 0.10576e+04,0.80029e+03,0.59980e+03,0.87969e+03,0.11629e+04 /) - kbo(:, 1,21,12) = (/ & - & 0.10601e+04,0.80047e+03,0.60235e+03,0.88539e+03,0.11699e+04 /) - kbo(:, 2,21,12) = (/ & - & 0.10553e+04,0.80126e+03,0.60195e+03,0.88437e+03,0.11684e+04 /) - kbo(:, 3,21,12) = (/ & - & 0.10581e+04,0.79916e+03,0.60159e+03,0.88257e+03,0.11662e+04 /) - kbo(:, 4,21,12) = (/ & - & 0.10523e+04,0.79871e+03,0.60090e+03,0.88096e+03,0.11643e+04 /) - kbo(:, 5,21,12) = (/ & - & 0.10536e+04,0.79852e+03,0.59957e+03,0.87950e+03,0.11627e+04 /) - kbo(:, 1,22,12) = (/ & - & 0.10543e+04,0.79995e+03,0.60207e+03,0.88538e+03,0.11697e+04 /) - kbo(:, 2,22,12) = (/ & - & 0.10531e+04,0.79794e+03,0.60195e+03,0.88401e+03,0.11680e+04 /) - kbo(:, 3,22,12) = (/ & - & 0.10510e+04,0.79590e+03,0.60141e+03,0.88205e+03,0.11658e+04 /) - kbo(:, 4,22,12) = (/ & - & 0.10516e+04,0.79518e+03,0.60121e+03,0.88065e+03,0.11640e+04 /) - kbo(:, 5,22,12) = (/ & - & 0.10507e+04,0.79514e+03,0.59925e+03,0.87922e+03,0.11625e+04 /) - kbo(:, 1,23,12) = (/ & - & 0.10496e+04,0.79686e+03,0.60138e+03,0.88518e+03,0.11695e+04 /) - kbo(:, 2,23,12) = (/ & - & 0.10500e+04,0.79504e+03,0.60174e+03,0.88363e+03,0.11675e+04 /) - kbo(:, 3,23,12) = (/ & - & 0.10497e+04,0.79559e+03,0.60122e+03,0.88187e+03,0.11654e+04 /) - kbo(:, 4,23,12) = (/ & - & 0.10478e+04,0.79456e+03,0.60013e+03,0.88034e+03,0.11637e+04 /) - kbo(:, 5,23,12) = (/ & - & 0.10481e+04,0.79269e+03,0.59893e+03,0.87894e+03,0.11623e+04 /) - kbo(:, 1,24,12) = (/ & - & 0.10504e+04,0.79322e+03,0.60186e+03,0.88494e+03,0.11692e+04 /) - kbo(:, 2,24,12) = (/ & - & 0.10474e+04,0.79292e+03,0.60174e+03,0.88325e+03,0.11671e+04 /) - kbo(:, 3,24,12) = (/ & - & 0.10457e+04,0.79315e+03,0.60103e+03,0.88153e+03,0.11648e+04 /) - kbo(:, 4,24,12) = (/ & - & 0.10462e+04,0.79329e+03,0.59996e+03,0.88003e+03,0.11633e+04 /) - kbo(:, 5,24,12) = (/ & - & 0.10477e+04,0.79348e+03,0.59860e+03,0.87867e+03,0.11620e+04 /) - kbo(:, 1,25,12) = (/ & - & 0.10437e+04,0.79315e+03,0.60179e+03,0.88497e+03,0.11688e+04 /) - kbo(:, 2,25,12) = (/ & - & 0.10446e+04,0.79177e+03,0.60151e+03,0.88285e+03,0.11666e+04 /) - kbo(:, 3,25,12) = (/ & - & 0.10443e+04,0.79105e+03,0.60081e+03,0.88119e+03,0.11647e+04 /) - kbo(:, 4,25,12) = (/ & - & 0.10440e+04,0.79204e+03,0.59965e+03,0.87971e+03,0.11630e+04 /) - kbo(:, 5,25,12) = (/ & - & 0.10441e+04,0.79141e+03,0.59825e+03,0.87840e+03,0.11618e+04 /) - kbo(:, 1,26,12) = (/ & - & 0.10444e+04,0.79040e+03,0.60171e+03,0.88422e+03,0.11681e+04 /) - kbo(:, 2,26,12) = (/ & - & 0.10415e+04,0.78987e+03,0.60136e+03,0.88243e+03,0.11661e+04 /) - kbo(:, 3,26,12) = (/ & - & 0.10417e+04,0.79014e+03,0.60043e+03,0.88082e+03,0.11642e+04 /) - kbo(:, 4,26,12) = (/ & - & 0.10442e+04,0.78985e+03,0.59932e+03,0.87937e+03,0.11625e+04 /) - kbo(:, 5,26,12) = (/ & - & 0.10421e+04,0.79004e+03,0.59787e+03,0.87814e+03,0.11615e+04 /) - kbo(:, 1,27,12) = (/ & - & 0.10431e+04,0.78868e+03,0.60163e+03,0.88378e+03,0.11678e+04 /) - kbo(:, 2,27,12) = (/ & - & 0.10423e+04,0.79138e+03,0.60118e+03,0.88201e+03,0.11657e+04 /) - kbo(:, 3,27,12) = (/ & - & 0.10404e+04,0.78916e+03,0.60037e+03,0.88046e+03,0.11638e+04 /) - kbo(:, 4,27,12) = (/ & - & 0.10405e+04,0.78893e+03,0.59897e+03,0.87905e+03,0.11624e+04 /) - kbo(:, 5,27,12) = (/ & - & 0.10396e+04,0.78917e+03,0.59748e+03,0.87790e+03,0.11613e+04 /) - kbo(:, 1,28,12) = (/ & - & 0.10409e+04,0.79152e+03,0.60155e+03,0.88334e+03,0.11673e+04 /) - kbo(:, 2,28,12) = (/ & - & 0.10439e+04,0.78963e+03,0.60099e+03,0.88127e+03,0.11652e+04 /) - kbo(:, 3,28,12) = (/ & - & 0.10423e+04,0.78823e+03,0.60006e+03,0.88010e+03,0.11635e+04 /) - kbo(:, 4,28,12) = (/ & - & 0.10442e+04,0.78834e+03,0.59861e+03,0.87873e+03,0.11621e+04 /) - kbo(:, 5,28,12) = (/ & - & 0.10392e+04,0.79042e+03,0.59708e+03,0.87768e+03,0.11610e+04 /) - kbo(:, 1,29,12) = (/ & - & 0.10405e+04,0.79019e+03,0.60167e+03,0.88289e+03,0.11667e+04 /) - kbo(:, 2,29,12) = (/ & - & 0.10432e+04,0.78865e+03,0.60111e+03,0.88122e+03,0.11647e+04 /) - kbo(:, 3,29,12) = (/ & - & 0.10406e+04,0.78834e+03,0.59962e+03,0.87974e+03,0.11631e+04 /) - kbo(:, 4,29,12) = (/ & - & 0.10397e+04,0.78909e+03,0.59824e+03,0.87826e+03,0.11618e+04 /) - kbo(:, 5,29,12) = (/ & - & 0.10387e+04,0.78925e+03,0.59665e+03,0.87746e+03,0.11608e+04 /) - kbo(:, 1,30,12) = (/ & - & 0.10411e+04,0.78840e+03,0.60130e+03,0.88244e+03,0.11662e+04 /) - kbo(:, 2,30,12) = (/ & - & 0.10395e+04,0.79020e+03,0.60051e+03,0.88083e+03,0.11643e+04 /) - kbo(:, 3,30,12) = (/ & - & 0.10384e+04,0.78543e+03,0.59928e+03,0.87938e+03,0.11627e+04 /) - kbo(:, 4,30,12) = (/ & - & 0.10394e+04,0.78756e+03,0.59785e+03,0.87814e+03,0.11615e+04 /) - kbo(:, 5,30,12) = (/ & - & 0.10383e+04,0.78820e+03,0.59620e+03,0.87743e+03,0.11605e+04 /) - kbo(:, 1,31,12) = (/ & - & 0.10385e+04,0.78703e+03,0.60113e+03,0.88199e+03,0.11657e+04 /) - kbo(:, 2,31,12) = (/ & - & 0.10401e+04,0.79050e+03,0.60021e+03,0.88045e+03,0.11639e+04 /) - kbo(:, 3,31,12) = (/ & - & 0.10412e+04,0.78681e+03,0.59892e+03,0.87903e+03,0.11624e+04 /) - kbo(:, 4,31,12) = (/ & - & 0.10385e+04,0.78582e+03,0.59732e+03,0.87772e+03,0.11613e+04 /) - kbo(:, 5,31,12) = (/ & - & 0.10372e+04,0.78947e+03,0.59573e+03,0.87705e+03,0.11602e+04 /) - kbo(:, 1,32,12) = (/ & - & 0.10378e+04,0.78710e+03,0.60105e+03,0.88140e+03,0.11652e+04 /) - kbo(:, 2,32,12) = (/ & - & 0.10375e+04,0.78506e+03,0.59989e+03,0.88006e+03,0.11634e+04 /) - kbo(:, 3,32,12) = (/ & - & 0.10409e+04,0.78648e+03,0.59855e+03,0.87869e+03,0.11621e+04 /) - kbo(:, 4,32,12) = (/ & - & 0.10389e+04,0.78640e+03,0.59701e+03,0.87765e+03,0.11610e+04 /) - kbo(:, 5,32,12) = (/ & - & 0.10378e+04,0.78589e+03,0.59527e+03,0.87675e+03,0.11598e+04 /) - kbo(:, 1,33,12) = (/ & - & 0.10380e+04,0.78620e+03,0.60093e+03,0.88116e+03,0.11647e+04 /) - kbo(:, 2,33,12) = (/ & - & 0.10383e+04,0.78582e+03,0.59966e+03,0.87968e+03,0.11631e+04 /) - kbo(:, 3,33,12) = (/ & - & 0.10388e+04,0.78740e+03,0.59816e+03,0.87838e+03,0.11618e+04 /) - kbo(:, 4,33,12) = (/ & - & 0.10367e+04,0.78734e+03,0.59657e+03,0.87743e+03,0.11608e+04 /) - kbo(:, 5,33,12) = (/ & - & 0.10382e+04,0.78803e+03,0.59484e+03,0.87630e+03,0.11592e+04 /) - kbo(:, 1,34,12) = (/ & - & 0.10390e+04,0.78774e+03,0.60058e+03,0.88098e+03,0.11643e+04 /) - kbo(:, 2,34,12) = (/ & - & 0.10374e+04,0.78664e+03,0.59936e+03,0.87936e+03,0.11627e+04 /) - kbo(:, 3,34,12) = (/ & - & 0.10352e+04,0.78733e+03,0.59781e+03,0.87813e+03,0.11615e+04 /) - kbo(:, 4,34,12) = (/ & - & 0.10386e+04,0.78609e+03,0.59617e+03,0.87742e+03,0.11605e+04 /) - kbo(:, 5,34,12) = (/ & - & 0.10400e+04,0.78709e+03,0.59476e+03,0.87581e+03,0.11592e+04 /) - kbo(:, 1,35,12) = (/ & - & 0.10374e+04,0.78486e+03,0.60032e+03,0.88061e+03,0.11641e+04 /) - kbo(:, 2,35,12) = (/ & - & 0.10385e+04,0.78482e+03,0.59906e+03,0.87918e+03,0.11626e+04 /) - kbo(:, 3,35,12) = (/ & - & 0.10371e+04,0.78627e+03,0.59760e+03,0.87799e+03,0.11614e+04 /) - kbo(:, 4,35,12) = (/ & - & 0.10378e+04,0.78697e+03,0.59593e+03,0.87715e+03,0.11604e+04 /) - kbo(:, 5,35,12) = (/ & - & 0.10370e+04,0.78545e+03,0.59500e+03,0.87549e+03,0.11592e+04 /) - kbo(:, 1,36,12) = (/ & - & 0.10362e+04,0.78845e+03,0.60029e+03,0.88058e+03,0.11640e+04 /) - kbo(:, 2,36,12) = (/ & - & 0.10379e+04,0.78676e+03,0.59903e+03,0.87915e+03,0.11625e+04 /) - kbo(:, 3,36,12) = (/ & - & 0.10369e+04,0.78598e+03,0.59768e+03,0.87797e+03,0.11614e+04 /) - kbo(:, 4,36,12) = (/ & - & 0.10369e+04,0.78595e+03,0.59566e+03,0.87713e+03,0.11604e+04 /) - kbo(:, 5,36,12) = (/ & - & 0.10368e+04,0.78548e+03,0.59464e+03,0.87594e+03,0.11600e+04 /) - kbo(:, 1,37,12) = (/ & - & 0.10374e+04,0.78579e+03,0.60055e+03,0.88077e+03,0.11642e+04 /) - kbo(:, 2,37,12) = (/ & - & 0.10362e+04,0.78844e+03,0.59921e+03,0.87933e+03,0.11627e+04 /) - kbo(:, 3,37,12) = (/ & - & 0.10360e+04,0.78603e+03,0.59777e+03,0.87810e+03,0.11615e+04 /) - kbo(:, 4,37,12) = (/ & - & 0.10367e+04,0.78734e+03,0.59623e+03,0.87723e+03,0.11605e+04 /) - kbo(:, 5,37,12) = (/ & - & 0.10361e+04,0.78702e+03,0.59474e+03,0.87592e+03,0.11587e+04 /) - kbo(:, 1,38,12) = (/ & - & 0.10367e+04,0.78778e+03,0.60058e+03,0.88098e+03,0.11645e+04 /) - kbo(:, 2,38,12) = (/ & - & 0.10387e+04,0.78865e+03,0.59939e+03,0.87952e+03,0.11629e+04 /) - kbo(:, 3,38,12) = (/ & - & 0.10363e+04,0.78758e+03,0.59820e+03,0.87825e+03,0.11617e+04 /) - kbo(:, 4,38,12) = (/ & - & 0.10372e+04,0.78786e+03,0.59636e+03,0.87717e+03,0.11609e+04 /) - kbo(:, 5,38,12) = (/ & - & 0.10362e+04,0.78470e+03,0.59485e+03,0.87657e+03,0.11589e+04 /) - kbo(:, 1,39,12) = (/ & - & 0.10374e+04,0.78680e+03,0.60094e+03,0.88119e+03,0.11647e+04 /) - kbo(:, 2,39,12) = (/ & - & 0.10352e+04,0.78618e+03,0.60014e+03,0.87971e+03,0.11631e+04 /) - kbo(:, 3,39,12) = (/ & - & 0.10401e+04,0.78497e+03,0.59818e+03,0.87840e+03,0.11618e+04 /) - kbo(:, 4,39,12) = (/ & - & 0.10369e+04,0.78868e+03,0.59660e+03,0.87744e+03,0.11608e+04 /) - kbo(:, 5,39,12) = (/ & - & 0.10353e+04,0.78494e+03,0.59497e+03,0.87635e+03,0.11593e+04 /) - kbo(:, 1,40,12) = (/ & - & 0.10385e+04,0.78584e+03,0.60091e+03,0.88123e+03,0.11652e+04 /) - kbo(:, 2,40,12) = (/ & - & 0.10387e+04,0.78568e+03,0.59987e+03,0.88006e+03,0.11635e+04 /) - kbo(:, 3,40,12) = (/ & - & 0.10371e+04,0.78626e+03,0.59853e+03,0.87869e+03,0.11621e+04 /) - kbo(:, 4,40,12) = (/ & - & 0.10386e+04,0.78684e+03,0.59700e+03,0.87748e+03,0.11610e+04 /) - kbo(:, 5,40,12) = (/ & - & 0.10362e+04,0.78503e+03,0.59526e+03,0.87692e+03,0.11598e+04 /) - kbo(:, 1,41,12) = (/ & - & 0.10384e+04,0.78504e+03,0.60109e+03,0.88198e+03,0.11657e+04 /) - kbo(:, 2,41,12) = (/ & - & 0.10360e+04,0.78533e+03,0.60017e+03,0.88043e+03,0.11639e+04 /) - kbo(:, 3,41,12) = (/ & - & 0.10374e+04,0.78412e+03,0.59889e+03,0.87902e+03,0.11624e+04 /) - kbo(:, 4,41,12) = (/ & - & 0.10350e+04,0.78545e+03,0.59741e+03,0.87788e+03,0.11613e+04 /) - kbo(:, 5,41,12) = (/ & - & 0.10385e+04,0.78529e+03,0.59570e+03,0.87704e+03,0.11607e+04 /) - kbo(:, 1,42,12) = (/ & - & 0.10370e+04,0.78560e+03,0.60125e+03,0.88242e+03,0.11662e+04 /) - kbo(:, 2,42,12) = (/ & - & 0.10383e+04,0.78469e+03,0.60057e+03,0.88081e+03,0.11643e+04 /) - kbo(:, 3,42,12) = (/ & - & 0.10368e+04,0.78617e+03,0.59924e+03,0.87937e+03,0.11627e+04 /) - kbo(:, 4,42,12) = (/ & - & 0.10362e+04,0.78586e+03,0.59780e+03,0.87813e+03,0.11615e+04 /) - kbo(:, 5,42,12) = (/ & - & 0.10350e+04,0.78958e+03,0.59616e+03,0.87725e+03,0.11605e+04 /) - kbo(:, 1,43,12) = (/ & - & 0.10375e+04,0.78586e+03,0.60140e+03,0.88280e+03,0.11669e+04 /) - kbo(:, 2,43,12) = (/ & - & 0.10344e+04,0.78615e+03,0.60088e+03,0.88112e+03,0.11651e+04 /) - kbo(:, 3,43,12) = (/ & - & 0.10344e+04,0.78345e+03,0.59953e+03,0.87980e+03,0.11632e+04 /) - kbo(:, 4,43,12) = (/ & - & 0.10347e+04,0.78777e+03,0.59827e+03,0.87847e+03,0.11619e+04 /) - kbo(:, 5,43,12) = (/ & - & 0.10355e+04,0.78627e+03,0.59681e+03,0.87766e+03,0.11609e+04 /) - kbo(:, 1,44,12) = (/ & - & 0.10355e+04,0.78449e+03,0.60162e+03,0.88358e+03,0.11676e+04 /) - kbo(:, 2,44,12) = (/ & - & 0.10359e+04,0.78627e+03,0.60103e+03,0.88182e+03,0.11655e+04 /) - kbo(:, 3,44,12) = (/ & - & 0.10377e+04,0.78715e+03,0.60005e+03,0.88029e+03,0.11637e+04 /) - kbo(:, 4,44,12) = (/ & - & 0.10378e+04,0.78625e+03,0.59875e+03,0.87890e+03,0.11623e+04 /) - kbo(:, 5,44,12) = (/ & - & 0.10374e+04,0.78401e+03,0.59725e+03,0.87779e+03,0.11612e+04 /) - kbo(:, 1,45,12) = (/ & - & 0.10390e+04,0.78655e+03,0.60158e+03,0.88419e+03,0.11684e+04 /) - kbo(:, 2,45,12) = (/ & - & 0.10396e+04,0.78684e+03,0.60124e+03,0.88239e+03,0.11662e+04 /) - kbo(:, 3,45,12) = (/ & - & 0.10355e+04,0.78758e+03,0.60044e+03,0.88079e+03,0.11643e+04 /) - kbo(:, 4,45,12) = (/ & - & 0.10368e+04,0.78548e+03,0.59922e+03,0.87935e+03,0.11627e+04 /) - kbo(:, 5,45,12) = (/ & - & 0.10360e+04,0.78578e+03,0.59778e+03,0.87811e+03,0.11615e+04 /) - kbo(:, 1,46,12) = (/ & - & 0.10390e+04,0.78534e+03,0.60165e+03,0.88476e+03,0.11691e+04 /) - kbo(:, 2,46,12) = (/ & - & 0.10368e+04,0.78339e+03,0.60141e+03,0.88303e+03,0.11669e+04 /) - kbo(:, 3,46,12) = (/ & - & 0.10364e+04,0.78696e+03,0.60079e+03,0.88117e+03,0.11649e+04 /) - kbo(:, 4,46,12) = (/ & - & 0.10407e+04,0.78666e+03,0.59968e+03,0.87985e+03,0.11632e+04 /) - kbo(:, 5,46,12) = (/ & - & 0.10344e+04,0.78501e+03,0.59832e+03,0.87835e+03,0.11619e+04 /) - kbo(:, 1,47,12) = (/ & - & 0.10372e+04,0.78547e+03,0.60140e+03,0.88518e+03,0.11696e+04 /) - kbo(:, 2,47,12) = (/ & - & 0.10368e+04,0.78740e+03,0.60142e+03,0.88376e+03,0.11678e+04 /) - kbo(:, 3,47,12) = (/ & - & 0.10360e+04,0.78411e+03,0.60109e+03,0.88198e+03,0.11657e+04 /) - kbo(:, 4,47,12) = (/ & - & 0.10358e+04,0.78709e+03,0.60017e+03,0.88044e+03,0.11639e+04 /) - kbo(:, 5,47,12) = (/ & - & 0.10354e+04,0.78664e+03,0.59889e+03,0.87902e+03,0.11624e+04 /) - kbo(:, 1,48,12) = (/ & - & 0.10362e+04,0.78680e+03,0.60195e+03,0.88548e+03,0.11701e+04 /) - kbo(:, 2,48,12) = (/ & - & 0.10362e+04,0.78545e+03,0.60161e+03,0.88447e+03,0.11687e+04 /) - kbo(:, 3,48,12) = (/ & - & 0.10378e+04,0.78604e+03,0.60144e+03,0.88268e+03,0.11665e+04 /) - kbo(:, 4,48,12) = (/ & - & 0.10382e+04,0.78544e+03,0.60061e+03,0.88104e+03,0.11646e+04 /) - kbo(:, 5,48,12) = (/ & - & 0.10364e+04,0.78424e+03,0.59943e+03,0.87957e+03,0.11630e+04 /) - kbo(:, 1,49,12) = (/ & - & 0.10370e+04,0.78693e+03,0.60225e+03,0.88600e+03,0.11705e+04 /) - kbo(:, 2,49,12) = (/ & - & 0.10356e+04,0.78469e+03,0.60169e+03,0.88499e+03,0.11694e+04 /) - kbo(:, 3,49,12) = (/ & - & 0.10350e+04,0.78588e+03,0.60148e+03,0.88340e+03,0.11674e+04 /) - kbo(:, 4,49,12) = (/ & - & 0.10352e+04,0.78677e+03,0.60095e+03,0.88166e+03,0.11653e+04 /) - kbo(:, 5,49,12) = (/ & - & 0.10356e+04,0.78647e+03,0.59993e+03,0.88015e+03,0.11636e+04 /) - kbo(:, 1,50,12) = (/ & - & 0.10356e+04,0.78558e+03,0.60226e+03,0.88620e+03,0.11712e+04 /) - kbo(:, 2,50,12) = (/ & - & 0.10346e+04,0.78796e+03,0.60171e+03,0.88533e+03,0.11698e+04 /) - kbo(:, 3,50,12) = (/ & - & 0.10366e+04,0.78751e+03,0.60168e+03,0.88408e+03,0.11667e+04 /) - kbo(:, 4,50,12) = (/ & - & 0.10366e+04,0.78646e+03,0.60132e+03,0.88229e+03,0.11661e+04 /) - kbo(:, 5,50,12) = (/ & - & 0.10393e+04,0.78616e+03,0.60083e+03,0.88070e+03,0.11642e+04 /) - kbo(:, 1,51,12) = (/ & - & 0.10356e+04,0.78468e+03,0.60241e+03,0.88644e+03,0.11719e+04 /) - kbo(:, 2,51,12) = (/ & - & 0.10368e+04,0.78423e+03,0.60203e+03,0.88559e+03,0.11702e+04 /) - kbo(:, 3,51,12) = (/ & - & 0.10356e+04,0.78586e+03,0.60163e+03,0.88469e+03,0.11690e+04 /) - kbo(:, 4,51,12) = (/ & - & 0.10358e+04,0.78601e+03,0.60139e+03,0.88294e+03,0.11668e+04 /) - kbo(:, 5,51,12) = (/ & - & 0.10379e+04,0.78646e+03,0.60074e+03,0.88126e+03,0.11648e+04 /) - kbo(:, 1,52,12) = (/ & - & 0.10383e+04,0.78512e+03,0.60257e+03,0.88672e+03,0.11727e+04 /) - kbo(:, 2,52,12) = (/ & - & 0.10350e+04,0.78646e+03,0.60217e+03,0.88594e+03,0.11707e+04 /) - kbo(:, 3,52,12) = (/ & - & 0.10358e+04,0.78466e+03,0.60160e+03,0.88510e+03,0.11695e+04 /) - kbo(:, 4,52,12) = (/ & - & 0.10356e+04,0.78511e+03,0.60151e+03,0.88359e+03,0.11676e+04 /) - kbo(:, 5,52,12) = (/ & - & 0.10365e+04,0.78541e+03,0.60103e+03,0.88167e+03,0.11655e+04 /) - kbo(:, 1,53,12) = (/ & - & 0.10352e+04,0.78496e+03,0.60273e+03,0.88710e+03,0.11735e+04 /) - kbo(:, 2,53,12) = (/ & - & 0.10359e+04,0.78600e+03,0.60229e+03,0.88628e+03,0.11714e+04 /) - kbo(:, 3,53,12) = (/ & - & 0.10369e+04,0.78526e+03,0.60188e+03,0.88540e+03,0.11699e+04 /) - kbo(:, 4,53,12) = (/ & - & 0.10383e+04,0.78660e+03,0.60159e+03,0.88425e+03,0.11685e+04 /) - kbo(:, 5,53,12) = (/ & - & 0.10373e+04,0.78555e+03,0.60126e+03,0.88246e+03,0.11663e+04 /) - kbo(:, 1,54,12) = (/ & - & 0.10367e+04,0.78451e+03,0.60297e+03,0.88752e+03,0.11746e+04 /) - kbo(:, 2,54,12) = (/ & - & 0.10355e+04,0.78600e+03,0.60244e+03,0.88648e+03,0.11721e+04 /) - kbo(:, 3,54,12) = (/ & - & 0.10348e+04,0.78301e+03,0.60206e+03,0.88564e+03,0.11703e+04 /) - kbo(:, 4,54,12) = (/ & - & 0.10395e+04,0.78629e+03,0.60165e+03,0.88477e+03,0.11691e+04 /) - kbo(:, 5,54,12) = (/ & - & 0.10361e+04,0.78420e+03,0.60141e+03,0.88305e+03,0.11670e+04 /) - kbo(:, 1,55,12) = (/ & - & 0.10361e+04,0.78555e+03,0.60296e+03,0.88822e+03,0.11760e+04 /) - kbo(:, 2,55,12) = (/ & - & 0.10355e+04,0.78495e+03,0.60258e+03,0.88674e+03,0.11727e+04 /) - kbo(:, 3,55,12) = (/ & - & 0.10349e+04,0.78525e+03,0.60217e+03,0.88596e+03,0.11709e+04 /) - kbo(:, 4,55,12) = (/ & - & 0.10361e+04,0.78465e+03,0.60184e+03,0.88512e+03,0.11696e+04 /) - kbo(:, 5,55,12) = (/ & - & 0.10363e+04,0.78599e+03,0.60163e+03,0.88363e+03,0.11677e+04 /) - kbo(:, 1,56,12) = (/ & - & 0.10361e+04,0.78599e+03,0.60309e+03,0.88918e+03,0.11774e+04 /) - kbo(:, 2,56,12) = (/ & - & 0.10391e+04,0.78674e+03,0.60272e+03,0.88707e+03,0.11734e+04 /) - kbo(:, 3,56,12) = (/ & - & 0.10363e+04,0.78584e+03,0.60228e+03,0.88626e+03,0.11716e+04 /) - kbo(:, 4,56,12) = (/ & - & 0.10369e+04,0.78509e+03,0.60186e+03,0.88538e+03,0.11695e+04 /) - kbo(:, 5,56,12) = (/ & - & 0.10363e+04,0.78554e+03,0.60158e+03,0.88421e+03,0.11682e+04 /) - kbo(:, 1,57,12) = (/ & - & 0.10381e+04,0.78509e+03,0.60327e+03,0.89026e+03,0.11789e+04 /) - kbo(:, 2,57,12) = (/ & - & 0.10344e+04,0.78852e+03,0.60284e+03,0.88747e+03,0.11744e+04 /) - kbo(:, 3,57,12) = (/ & - & 0.10369e+04,0.78509e+03,0.60242e+03,0.88612e+03,0.11720e+04 /) - kbo(:, 4,57,12) = (/ & - & 0.10393e+04,0.78330e+03,0.60216e+03,0.88561e+03,0.11703e+04 /) - kbo(:, 5,57,12) = (/ & - & 0.10365e+04,0.78494e+03,0.60164e+03,0.88472e+03,0.11688e+04 /) - kbo(:, 1,58,12) = (/ & - & 0.10353e+04,0.78509e+03,0.60357e+03,0.89125e+03,0.11802e+04 /) - kbo(:, 2,58,12) = (/ & - & 0.10371e+04,0.78524e+03,0.60283e+03,0.88807e+03,0.11757e+04 /) - kbo(:, 3,58,12) = (/ & - & 0.10365e+04,0.78718e+03,0.60278e+03,0.88669e+03,0.11726e+04 /) - kbo(:, 4,58,12) = (/ & - & 0.10349e+04,0.78673e+03,0.60216e+03,0.88590e+03,0.11708e+04 /) - kbo(:, 5,58,12) = (/ & - & 0.10365e+04,0.78389e+03,0.60170e+03,0.88506e+03,0.11695e+04 /) - kbo(:, 1,59,12) = (/ & - & 0.10365e+04,0.78390e+03,0.60373e+03,0.89165e+03,0.11808e+04 /) - kbo(:, 2,59,12) = (/ & - & 0.10369e+04,0.78479e+03,0.60298e+03,0.88840e+03,0.11763e+04 /) - kbo(:, 3,59,12) = (/ & - & 0.10357e+04,0.78703e+03,0.60261e+03,0.88680e+03,0.11713e+04 /) - kbo(:, 4,59,12) = (/ & - & 0.10363e+04,0.78509e+03,0.60219e+03,0.88602e+03,0.11708e+04 /) - kbo(:, 5,59,12) = (/ & - & 0.10365e+04,0.78479e+03,0.60174e+03,0.88517e+03,0.11696e+04 /) - kbo(:, 1,13,13) = (/ & - & 0.11661e+04,0.87073e+03,0.60556e+03,0.88929e+03,0.11761e+04 /) - kbo(:, 2,13,13) = (/ & - & 0.11527e+04,0.87014e+03,0.60489e+03,0.88914e+03,0.11754e+04 /) - kbo(:, 3,13,13) = (/ & - & 0.11423e+04,0.85968e+03,0.60419e+03,0.88867e+03,0.11747e+04 /) - kbo(:, 4,13,13) = (/ & - & 0.11371e+04,0.85890e+03,0.60344e+03,0.88820e+03,0.11742e+04 /) - kbo(:, 5,13,13) = (/ & - & 0.11390e+04,0.85008e+03,0.60234e+03,0.88705e+03,0.11727e+04 /) - kbo(:, 1,14,13) = (/ & - & 0.11362e+04,0.85805e+03,0.60511e+03,0.88957e+03,0.11761e+04 /) - kbo(:, 2,14,13) = (/ & - & 0.11276e+04,0.85398e+03,0.60448e+03,0.88893e+03,0.11753e+04 /) - kbo(:, 3,14,13) = (/ & - & 0.11208e+04,0.84888e+03,0.60397e+03,0.88854e+03,0.11747e+04 /) - kbo(:, 4,14,13) = (/ & - & 0.11194e+04,0.85006e+03,0.60305e+03,0.88823e+03,0.11740e+04 /) - kbo(:, 5,14,13) = (/ & - & 0.11083e+04,0.84212e+03,0.60191e+03,0.88682e+03,0.11725e+04 /) - kbo(:, 1,15,13) = (/ & - & 0.11142e+04,0.84766e+03,0.60488e+03,0.88941e+03,0.11748e+04 /) - kbo(:, 2,15,13) = (/ & - & 0.11176e+04,0.84112e+03,0.60414e+03,0.88873e+03,0.11752e+04 /) - kbo(:, 3,15,13) = (/ & - & 0.11051e+04,0.84191e+03,0.60348e+03,0.88843e+03,0.11747e+04 /) - kbo(:, 4,15,13) = (/ & - & 0.11036e+04,0.83753e+03,0.60270e+03,0.88781e+03,0.11739e+04 /) - kbo(:, 5,15,13) = (/ & - & 0.10935e+04,0.82883e+03,0.60139e+03,0.88658e+03,0.11723e+04 /) - kbo(:, 1,16,13) = (/ & - & 0.11074e+04,0.83456e+03,0.60440e+03,0.88927e+03,0.11760e+04 /) - kbo(:, 2,16,13) = (/ & - & 0.11018e+04,0.83298e+03,0.60385e+03,0.88856e+03,0.11751e+04 /) - kbo(:, 3,16,13) = (/ & - & 0.10859e+04,0.83101e+03,0.60319e+03,0.88832e+03,0.11747e+04 /) - kbo(:, 4,16,13) = (/ & - & 0.10925e+04,0.82836e+03,0.60254e+03,0.88762e+03,0.11738e+04 /) - kbo(:, 5,16,13) = (/ & - & 0.10900e+04,0.82283e+03,0.60124e+03,0.88636e+03,0.11721e+04 /) - kbo(:, 1,17,13) = (/ & - & 0.10953e+04,0.82596e+03,0.60413e+03,0.88915e+03,0.11759e+04 /) - kbo(:, 2,17,13) = (/ & - & 0.10864e+04,0.82504e+03,0.60360e+03,0.88842e+03,0.11750e+04 /) - kbo(:, 3,17,13) = (/ & - & 0.10812e+04,0.81898e+03,0.60295e+03,0.88822e+03,0.11746e+04 /) - kbo(:, 4,17,13) = (/ & - & 0.10806e+04,0.81706e+03,0.60242e+03,0.88745e+03,0.11736e+04 /) - kbo(:, 5,17,13) = (/ & - & 0.10764e+04,0.81771e+03,0.59943e+03,0.88638e+03,0.11722e+04 /) - kbo(:, 1,18,13) = (/ & - & 0.10787e+04,0.82265e+03,0.60390e+03,0.88903e+03,0.11759e+04 /) - kbo(:, 2,18,13) = (/ & - & 0.10743e+04,0.81466e+03,0.60339e+03,0.88738e+03,0.11749e+04 /) - kbo(:, 3,18,13) = (/ & - & 0.10792e+04,0.81648e+03,0.60273e+03,0.88812e+03,0.11749e+04 /) - kbo(:, 4,18,13) = (/ & - & 0.10724e+04,0.81516e+03,0.60185e+03,0.88728e+03,0.11735e+04 /) - kbo(:, 5,18,13) = (/ & - & 0.10737e+04,0.81301e+03,0.60092e+03,0.88618e+03,0.11717e+04 /) - kbo(:, 1,19,13) = (/ & - & 0.10778e+04,0.81646e+03,0.60388e+03,0.88893e+03,0.11758e+04 /) - kbo(:, 2,19,13) = (/ & - & 0.10709e+04,0.81021e+03,0.60321e+03,0.88822e+03,0.11748e+04 /) - kbo(:, 3,19,13) = (/ & - & 0.10651e+04,0.80945e+03,0.60254e+03,0.88803e+03,0.11745e+04 /) - kbo(:, 4,19,13) = (/ & - & 0.10677e+04,0.80743e+03,0.60147e+03,0.88735e+03,0.11733e+04 /) - kbo(:, 5,19,13) = (/ & - & 0.10575e+04,0.80245e+03,0.60072e+03,0.88575e+03,0.11721e+04 /) - kbo(:, 1,20,13) = (/ & - & 0.10622e+04,0.81096e+03,0.60356e+03,0.88881e+03,0.11757e+04 /) - kbo(:, 2,20,13) = (/ & - & 0.10607e+04,0.80739e+03,0.60305e+03,0.88816e+03,0.11748e+04 /) - kbo(:, 3,20,13) = (/ & - & 0.10623e+04,0.80381e+03,0.60252e+03,0.88792e+03,0.11744e+04 /) - kbo(:, 4,20,13) = (/ & - & 0.10570e+04,0.80456e+03,0.60093e+03,0.88695e+03,0.11731e+04 /) - kbo(:, 5,20,13) = (/ & - & 0.10628e+04,0.80481e+03,0.60051e+03,0.88554e+03,0.11713e+04 /) - kbo(:, 1,21,13) = (/ & - & 0.10564e+04,0.80721e+03,0.60326e+03,0.88869e+03,0.11756e+04 /) - kbo(:, 2,21,13) = (/ & - & 0.10630e+04,0.79813e+03,0.60290e+03,0.88813e+03,0.11748e+04 /) - kbo(:, 3,21,13) = (/ & - & 0.10553e+04,0.80228e+03,0.60219e+03,0.88781e+03,0.11743e+04 /) - kbo(:, 4,21,13) = (/ & - & 0.10544e+04,0.79888e+03,0.60136e+03,0.88677e+03,0.11729e+04 /) - kbo(:, 5,21,13) = (/ & - & 0.10596e+04,0.81049e+03,0.60032e+03,0.88532e+03,0.11710e+04 /) - kbo(:, 1,22,13) = (/ & - & 0.10550e+04,0.80310e+03,0.60326e+03,0.88850e+03,0.11754e+04 /) - kbo(:, 2,22,13) = (/ & - & 0.10516e+04,0.80380e+03,0.60256e+03,0.88810e+03,0.11747e+04 /) - kbo(:, 3,22,13) = (/ & - & 0.10562e+04,0.80152e+03,0.60229e+03,0.88764e+03,0.11741e+04 /) - kbo(:, 4,22,13) = (/ & - & 0.10509e+04,0.80224e+03,0.60002e+03,0.88651e+03,0.11726e+04 /) - kbo(:, 5,22,13) = (/ & - & 0.10563e+04,0.79871e+03,0.59990e+03,0.88500e+03,0.11706e+04 /) - kbo(:, 1,23,13) = (/ & - & 0.10567e+04,0.79860e+03,0.60326e+03,0.88832e+03,0.11752e+04 /) - kbo(:, 2,23,13) = (/ & - & 0.10532e+04,0.79557e+03,0.60254e+03,0.88806e+03,0.11747e+04 /) - kbo(:, 3,23,13) = (/ & - & 0.10534e+04,0.79512e+03,0.60237e+03,0.88744e+03,0.11739e+04 /) - kbo(:, 4,23,13) = (/ & - & 0.10472e+04,0.79721e+03,0.60072e+03,0.88622e+03,0.11723e+04 /) - kbo(:, 5,23,13) = (/ & - & 0.10509e+04,0.79423e+03,0.59964e+03,0.88466e+03,0.11702e+04 /) - kbo(:, 1,24,13) = (/ & - & 0.10549e+04,0.79502e+03,0.60296e+03,0.88817e+03,0.11750e+04 /) - kbo(:, 2,24,13) = (/ & - & 0.10498e+04,0.80428e+03,0.60221e+03,0.88799e+03,0.11746e+04 /) - kbo(:, 3,24,13) = (/ & - & 0.10553e+04,0.79369e+03,0.60149e+03,0.88721e+03,0.11736e+04 /) - kbo(:, 4,24,13) = (/ & - & 0.10517e+04,0.79240e+03,0.60048e+03,0.88592e+03,0.11719e+04 /) - kbo(:, 5,24,13) = (/ & - & 0.10493e+04,0.79281e+03,0.59936e+03,0.88429e+03,0.11697e+04 /) - kbo(:, 1,25,13) = (/ & - & 0.10472e+04,0.79884e+03,0.60281e+03,0.88760e+03,0.11748e+04 /) - kbo(:, 2,25,13) = (/ & - & 0.10433e+04,0.79261e+03,0.60217e+03,0.88787e+03,0.11745e+04 /) - kbo(:, 3,25,13) = (/ & - & 0.10495e+04,0.79568e+03,0.60138e+03,0.88696e+03,0.11733e+04 /) - kbo(:, 4,25,13) = (/ & - & 0.10412e+04,0.79264e+03,0.60023e+03,0.88559e+03,0.11715e+04 /) - kbo(:, 5,25,13) = (/ & - & 0.10432e+04,0.79682e+03,0.59908e+03,0.88390e+03,0.11692e+04 /) - kbo(:, 1,26,13) = (/ & - & 0.10426e+04,0.79538e+03,0.60266e+03,0.88804e+03,0.11748e+04 /) - kbo(:, 2,26,13) = (/ & - & 0.10459e+04,0.79909e+03,0.60196e+03,0.88771e+03,0.11743e+04 /) - kbo(:, 3,26,13) = (/ & - & 0.10455e+04,0.79078e+03,0.60113e+03,0.88666e+03,0.11729e+04 /) - kbo(:, 4,26,13) = (/ & - & 0.10380e+04,0.79069e+03,0.60011e+03,0.88521e+03,0.11710e+04 /) - kbo(:, 5,26,13) = (/ & - & 0.10428e+04,0.79124e+03,0.59892e+03,0.88345e+03,0.11686e+04 /) - kbo(:, 1,27,13) = (/ & - & 0.10409e+04,0.79057e+03,0.60249e+03,0.88802e+03,0.11747e+04 /) - kbo(:, 2,27,13) = (/ & - & 0.10432e+04,0.78863e+03,0.60172e+03,0.88750e+03,0.11740e+04 /) - kbo(:, 3,27,13) = (/ & - & 0.10404e+04,0.79041e+03,0.60057e+03,0.88634e+03,0.11728e+04 /) - kbo(:, 4,27,13) = (/ & - & 0.10425e+04,0.78854e+03,0.59967e+03,0.88481e+03,0.11704e+04 /) - kbo(:, 5,27,13) = (/ & - & 0.10492e+04,0.78874e+03,0.59843e+03,0.88297e+03,0.11680e+04 /) - kbo(:, 1,28,13) = (/ & - & 0.10434e+04,0.79273e+03,0.60231e+03,0.88820e+03,0.11747e+04 /) - kbo(:, 2,28,13) = (/ & - & 0.10472e+04,0.78799e+03,0.60162e+03,0.88726e+03,0.11737e+04 /) - kbo(:, 3,28,13) = (/ & - & 0.10366e+04,0.79125e+03,0.60032e+03,0.88600e+03,0.11720e+04 /) - kbo(:, 4,28,13) = (/ & - & 0.10345e+04,0.78841e+03,0.59938e+03,0.88440e+03,0.11699e+04 /) - kbo(:, 5,28,13) = (/ & - & 0.10534e+04,0.78866e+03,0.59808e+03,0.88245e+03,0.11673e+04 /) - kbo(:, 1,29,13) = (/ & - & 0.10524e+04,0.78934e+03,0.60181e+03,0.88786e+03,0.11745e+04 /) - kbo(:, 2,29,13) = (/ & - & 0.10481e+04,0.78588e+03,0.60321e+03,0.88698e+03,0.11734e+04 /) - kbo(:, 3,29,13) = (/ & - & 0.10466e+04,0.79266e+03,0.60021e+03,0.88562e+03,0.11715e+04 /) - kbo(:, 4,29,13) = (/ & - & 0.10466e+04,0.79965e+03,0.59906e+03,0.88395e+03,0.11693e+04 /) - kbo(:, 5,29,13) = (/ & - & 0.10459e+04,0.78993e+03,0.59799e+03,0.88185e+03,0.11668e+04 /) - kbo(:, 1,30,13) = (/ & - & 0.10360e+04,0.78916e+03,0.60191e+03,0.88770e+03,0.11743e+04 /) - kbo(:, 2,30,13) = (/ & - & 0.10409e+04,0.78411e+03,0.60093e+03,0.88667e+03,0.11729e+04 /) - kbo(:, 3,30,13) = (/ & - & 0.10391e+04,0.79193e+03,0.59993e+03,0.88546e+03,0.11710e+04 /) - kbo(:, 4,30,13) = (/ & - & 0.10409e+04,0.78876e+03,0.59874e+03,0.88348e+03,0.11687e+04 /) - kbo(:, 5,30,13) = (/ & - & 0.10396e+04,0.78722e+03,0.59722e+03,0.88117e+03,0.11665e+04 /) - kbo(:, 1,31,13) = (/ & - & 0.10394e+04,0.79419e+03,0.60167e+03,0.88749e+03,0.11740e+04 /) - kbo(:, 2,31,13) = (/ & - & 0.10363e+04,0.79203e+03,0.60068e+03,0.88633e+03,0.11725e+04 /) - kbo(:, 3,31,13) = (/ & - & 0.10437e+04,0.78663e+03,0.59963e+03,0.88481e+03,0.11705e+04 /) - kbo(:, 4,31,13) = (/ & - & 0.10406e+04,0.79000e+03,0.59839e+03,0.88297e+03,0.11680e+04 /) - kbo(:, 5,31,13) = (/ & - & 0.10413e+04,0.79093e+03,0.59674e+03,0.88044e+03,0.11650e+04 /) - kbo(:, 1,32,13) = (/ & - & 0.10440e+04,0.79014e+03,0.60327e+03,0.88723e+03,0.11737e+04 /) - kbo(:, 2,32,13) = (/ & - & 0.10391e+04,0.79106e+03,0.60042e+03,0.88596e+03,0.11720e+04 /) - kbo(:, 3,32,13) = (/ & - & 0.10467e+04,0.78955e+03,0.59932e+03,0.88436e+03,0.11699e+04 /) - kbo(:, 4,32,13) = (/ & - & 0.10407e+04,0.79722e+03,0.59818e+03,0.88241e+03,0.11673e+04 /) - kbo(:, 5,32,13) = (/ & - & 0.10382e+04,0.78961e+03,0.59626e+03,0.87980e+03,0.11639e+04 /) - kbo(:, 1,33,13) = (/ & - & 0.10522e+04,0.78494e+03,0.60081e+03,0.88693e+03,0.11733e+04 /) - kbo(:, 2,33,13) = (/ & - & 0.10373e+04,0.79220e+03,0.59999e+03,0.88557e+03,0.11715e+04 /) - kbo(:, 3,33,13) = (/ & - & 0.10359e+04,0.78622e+03,0.59900e+03,0.88389e+03,0.11695e+04 /) - kbo(:, 4,33,13) = (/ & - & 0.10377e+04,0.78474e+03,0.59760e+03,0.88177e+03,0.11667e+04 /) - kbo(:, 5,33,13) = (/ & - & 0.10406e+04,0.78876e+03,0.59580e+03,0.87933e+03,0.11633e+04 /) - kbo(:, 1,34,13) = (/ & - & 0.10360e+04,0.79366e+03,0.60074e+03,0.88666e+03,0.11729e+04 /) - kbo(:, 2,34,13) = (/ & - & 0.10445e+04,0.78362e+03,0.59974e+03,0.88521e+03,0.11710e+04 /) - kbo(:, 3,34,13) = (/ & - & 0.10445e+04,0.78784e+03,0.59871e+03,0.88346e+03,0.11687e+04 /) - kbo(:, 4,34,13) = (/ & - & 0.10420e+04,0.78840e+03,0.59718e+03,0.88091e+03,0.11665e+04 /) - kbo(:, 5,34,13) = (/ & - & 0.10384e+04,0.79182e+03,0.59540e+03,0.87927e+03,0.11620e+04 /) - kbo(:, 1,35,13) = (/ & - & 0.10422e+04,0.79326e+03,0.60077e+03,0.88648e+03,0.11727e+04 /) - kbo(:, 2,35,13) = (/ & - & 0.10360e+04,0.79158e+03,0.59975e+03,0.88500e+03,0.11707e+04 /) - kbo(:, 3,35,13) = (/ & - & 0.10370e+04,0.78869e+03,0.59854e+03,0.88320e+03,0.11683e+04 /) - kbo(:, 4,35,13) = (/ & - & 0.10364e+04,0.79354e+03,0.59694e+03,0.88077e+03,0.11651e+04 /) - kbo(:, 5,35,13) = (/ & - & 0.10369e+04,0.78943e+03,0.59473e+03,0.87892e+03,0.11616e+04 /) - kbo(:, 1,36,13) = (/ & - & 0.10401e+04,0.78191e+03,0.60075e+03,0.88645e+03,0.11727e+04 /) - kbo(:, 2,36,13) = (/ & - & 0.10371e+04,0.78614e+03,0.59972e+03,0.88519e+03,0.11707e+04 /) - kbo(:, 3,36,13) = (/ & - & 0.10392e+04,0.78550e+03,0.59835e+03,0.88339e+03,0.11683e+04 /) - kbo(:, 4,36,13) = (/ & - & 0.10378e+04,0.78649e+03,0.59690e+03,0.88071e+03,0.11650e+04 /) - kbo(:, 5,36,13) = (/ & - & 0.10389e+04,0.79012e+03,0.59516e+03,0.87821e+03,0.11604e+04 /) - kbo(:, 1,37,13) = (/ & - & 0.10397e+04,0.78790e+03,0.60071e+03,0.88662e+03,0.11729e+04 /) - kbo(:, 2,37,13) = (/ & - & 0.10413e+04,0.78135e+03,0.59986e+03,0.88540e+03,0.11710e+04 /) - kbo(:, 3,37,13) = (/ & - & 0.10434e+04,0.78885e+03,0.59867e+03,0.88341e+03,0.11686e+04 /) - kbo(:, 4,37,13) = (/ & - & 0.10382e+04,0.79636e+03,0.59698e+03,0.88108e+03,0.11655e+04 /) - kbo(:, 5,37,13) = (/ & - & 0.10369e+04,0.78656e+03,0.59536e+03,0.87879e+03,0.11626e+04 /) - kbo(:, 1,38,13) = (/ & - & 0.10433e+04,0.78475e+03,0.60099e+03,0.88680e+03,0.11731e+04 /) - kbo(:, 2,38,13) = (/ & - & 0.10422e+04,0.78187e+03,0.60001e+03,0.88539e+03,0.11713e+04 /) - kbo(:, 3,38,13) = (/ & - & 0.10376e+04,0.78470e+03,0.59854e+03,0.88368e+03,0.11690e+04 /) - kbo(:, 4,38,13) = (/ & - & 0.10379e+04,0.78467e+03,0.59739e+03,0.88147e+03,0.11660e+04 /) - kbo(:, 5,38,13) = (/ & - & 0.10346e+04,0.79279e+03,0.59559e+03,0.87849e+03,0.11631e+04 /) - kbo(:, 1,39,13) = (/ & - & 0.10564e+04,0.79016e+03,0.60113e+03,0.88696e+03,0.11734e+04 /) - kbo(:, 2,39,13) = (/ & - & 0.10405e+04,0.78139e+03,0.59938e+03,0.88561e+03,0.11715e+04 /) - kbo(:, 3,39,13) = (/ & - & 0.10386e+04,0.79256e+03,0.59902e+03,0.88393e+03,0.11693e+04 /) - kbo(:, 4,39,13) = (/ & - & 0.10351e+04,0.78501e+03,0.59779e+03,0.88184e+03,0.11668e+04 /) - kbo(:, 5,39,13) = (/ & - & 0.10353e+04,0.78561e+03,0.59583e+03,0.87937e+03,0.11634e+04 /) - kbo(:, 1,40,13) = (/ & - & 0.10351e+04,0.78501e+03,0.60325e+03,0.88723e+03,0.11737e+04 /) - kbo(:, 2,40,13) = (/ & - & 0.10332e+04,0.78519e+03,0.60040e+03,0.88596e+03,0.11720e+04 /) - kbo(:, 3,40,13) = (/ & - & 0.10393e+04,0.78843e+03,0.59931e+03,0.88436e+03,0.11699e+04 /) - kbo(:, 4,40,13) = (/ & - & 0.10339e+04,0.78821e+03,0.59801e+03,0.88242e+03,0.11676e+04 /) - kbo(:, 5,40,13) = (/ & - & 0.10476e+04,0.78616e+03,0.59626e+03,0.87958e+03,0.11639e+04 /) - kbo(:, 1,41,13) = (/ & - & 0.10420e+04,0.78658e+03,0.60226e+03,0.88748e+03,0.11740e+04 /) - kbo(:, 2,41,13) = (/ & - & 0.10471e+04,0.78433e+03,0.60065e+03,0.88632e+03,0.11725e+04 /) - kbo(:, 3,41,13) = (/ & - & 0.10385e+04,0.78777e+03,0.59960e+03,0.88480e+03,0.11705e+04 /) - kbo(:, 4,41,13) = (/ & - & 0.10374e+04,0.79305e+03,0.59837e+03,0.88319e+03,0.11680e+04 /) - kbo(:, 5,41,13) = (/ & - & 0.10341e+04,0.79121e+03,0.59671e+03,0.88067e+03,0.11641e+04 /) - kbo(:, 1,42,13) = (/ & - & 0.10427e+04,0.78654e+03,0.60202e+03,0.88768e+03,0.11743e+04 /) - kbo(:, 2,42,13) = (/ & - & 0.10376e+04,0.78774e+03,0.60073e+03,0.88666e+03,0.11730e+04 /) - kbo(:, 3,42,13) = (/ & - & 0.10387e+04,0.78631e+03,0.59989e+03,0.88522e+03,0.11710e+04 /) - kbo(:, 4,42,13) = (/ & - & 0.10432e+04,0.79240e+03,0.59870e+03,0.88347e+03,0.11690e+04 /) - kbo(:, 5,42,13) = (/ & - & 0.10408e+04,0.78283e+03,0.59718e+03,0.88116e+03,0.11677e+04 /) - kbo(:, 1,43,13) = (/ & - & 0.10384e+04,0.78732e+03,0.60211e+03,0.88787e+03,0.11746e+04 /) - kbo(:, 2,43,13) = (/ & - & 0.10392e+04,0.79483e+03,0.60103e+03,0.88703e+03,0.11735e+04 /) - kbo(:, 3,43,13) = (/ & - & 0.10435e+04,0.79279e+03,0.60022e+03,0.88570e+03,0.11717e+04 /) - kbo(:, 4,43,13) = (/ & - & 0.10453e+04,0.78261e+03,0.59909e+03,0.88405e+03,0.11698e+04 /) - kbo(:, 5,43,13) = (/ & - & 0.10349e+04,0.78239e+03,0.59773e+03,0.88200e+03,0.11670e+04 /) - kbo(:, 1,44,13) = (/ & - & 0.10376e+04,0.78973e+03,0.60218e+03,0.88797e+03,0.11747e+04 /) - kbo(:, 2,44,13) = (/ & - & 0.10357e+04,0.79073e+03,0.60154e+03,0.88738e+03,0.11742e+04 /) - kbo(:, 3,44,13) = (/ & - & 0.10381e+04,0.78584e+03,0.60056e+03,0.88619e+03,0.11723e+04 /) - kbo(:, 4,44,13) = (/ & - & 0.10410e+04,0.78726e+03,0.59965e+03,0.88464e+03,0.11703e+04 /) - kbo(:, 5,44,13) = (/ & - & 0.10370e+04,0.78461e+03,0.59824e+03,0.88299e+03,0.11677e+04 /) - kbo(:, 1,45,13) = (/ & - & 0.10383e+04,0.78177e+03,0.60254e+03,0.88799e+03,0.11748e+04 /) - kbo(:, 2,45,13) = (/ & - & 0.10337e+04,0.78400e+03,0.60200e+03,0.88790e+03,0.11743e+04 /) - kbo(:, 3,45,13) = (/ & - & 0.10407e+04,0.78928e+03,0.60087e+03,0.88664e+03,0.11732e+04 /) - kbo(:, 4,45,13) = (/ & - & 0.10410e+04,0.79578e+03,0.59987e+03,0.88519e+03,0.11713e+04 /) - kbo(:, 5,45,13) = (/ & - & 0.10369e+04,0.78337e+03,0.59884e+03,0.88344e+03,0.11687e+04 /) - kbo(:, 1,46,13) = (/ & - & 0.10415e+04,0.79090e+03,0.60272e+03,0.88805e+03,0.11749e+04 /) - kbo(:, 2,46,13) = (/ & - & 0.10332e+04,0.79374e+03,0.60213e+03,0.88788e+03,0.11746e+04 /) - kbo(:, 3,46,13) = (/ & - & 0.10495e+04,0.78743e+03,0.60122e+03,0.88707e+03,0.11738e+04 /) - kbo(:, 4,46,13) = (/ & - & 0.10359e+04,0.78275e+03,0.60025e+03,0.88575e+03,0.11717e+04 /) - kbo(:, 5,46,13) = (/ & - & 0.10407e+04,0.79210e+03,0.59913e+03,0.88411e+03,0.11695e+04 /) - kbo(:, 1,47,13) = (/ & - & 0.10396e+04,0.78478e+03,0.60291e+03,0.88833e+03,0.11753e+04 /) - kbo(:, 2,47,13) = (/ & - & 0.10391e+04,0.78254e+03,0.60239e+03,0.88798e+03,0.11747e+04 /) - kbo(:, 3,47,13) = (/ & - & 0.10358e+04,0.79087e+03,0.60194e+03,0.88748e+03,0.11740e+04 /) - kbo(:, 4,47,13) = (/ & - & 0.10382e+04,0.78212e+03,0.60065e+03,0.88632e+03,0.11725e+04 /) - kbo(:, 5,47,13) = (/ & - & 0.10417e+04,0.78639e+03,0.59976e+03,0.88480e+03,0.11705e+04 /) - kbo(:, 1,48,13) = (/ & - & 0.10401e+04,0.78456e+03,0.60307e+03,0.88865e+03,0.11757e+04 /) - kbo(:, 2,48,13) = (/ & - & 0.10385e+04,0.78639e+03,0.60262e+03,0.88799e+03,0.11748e+04 /) - kbo(:, 3,48,13) = (/ & - & 0.10377e+04,0.78374e+03,0.60183e+03,0.88778e+03,0.11745e+04 /) - kbo(:, 4,48,13) = (/ & - & 0.10347e+04,0.78455e+03,0.60102e+03,0.88707e+03,0.11732e+04 /) - kbo(:, 5,48,13) = (/ & - & 0.10420e+04,0.79085e+03,0.60005e+03,0.88545e+03,0.11713e+04 /) - kbo(:, 1,49,13) = (/ & - & 0.10372e+04,0.78740e+03,0.60317e+03,0.88862e+03,0.11760e+04 /) - kbo(:, 2,49,13) = (/ & - & 0.10417e+04,0.78862e+03,0.60282e+03,0.88818e+03,0.11751e+04 /) - kbo(:, 3,49,13) = (/ & - & 0.10345e+04,0.78780e+03,0.60227e+03,0.88818e+03,0.11747e+04 /) - kbo(:, 4,49,13) = (/ & - & 0.10406e+04,0.78617e+03,0.60221e+03,0.88729e+03,0.11738e+04 /) - kbo(:, 5,49,13) = (/ & - & 0.10382e+04,0.79023e+03,0.60061e+03,0.88605e+03,0.11721e+04 /) - kbo(:, 1,50,13) = (/ & - & 0.10347e+04,0.79207e+03,0.60367e+03,0.88900e+03,0.11761e+04 /) - kbo(:, 2,50,13) = (/ & - & 0.10350e+04,0.78739e+03,0.60298e+03,0.88872e+03,0.11755e+04 /) - kbo(:, 3,50,13) = (/ & - & 0.10353e+04,0.78433e+03,0.60234e+03,0.88799e+03,0.11744e+04 /) - kbo(:, 4,50,13) = (/ & - & 0.10489e+04,0.79267e+03,0.60164e+03,0.88763e+03,0.11743e+04 /) - kbo(:, 5,50,13) = (/ & - & 0.10406e+04,0.78514e+03,0.60019e+03,0.88656e+03,0.11728e+04 /) - kbo(:, 1,51,13) = (/ & - & 0.10345e+04,0.78799e+03,0.60398e+03,0.88932e+03,0.11765e+04 /) - kbo(:, 2,51,13) = (/ & - & 0.10401e+04,0.78697e+03,0.60314e+03,0.88874e+03,0.11758e+04 /) - kbo(:, 3,51,13) = (/ & - & 0.10366e+04,0.78656e+03,0.60285e+03,0.88803e+03,0.11749e+04 /) - kbo(:, 4,51,13) = (/ & - & 0.10374e+04,0.78473e+03,0.60240e+03,0.88809e+03,0.11746e+04 /) - kbo(:, 5,51,13) = (/ & - & 0.10390e+04,0.78920e+03,0.60116e+03,0.88701e+03,0.11734e+04 /) - kbo(:, 1,52,13) = (/ & - & 0.10369e+04,0.78758e+03,0.60425e+03,0.88974e+03,0.11770e+04 /) - kbo(:, 2,52,13) = (/ & - & 0.10369e+04,0.78229e+03,0.60357e+03,0.88889e+03,0.11760e+04 /) - kbo(:, 3,52,13) = (/ & - & 0.10371e+04,0.78737e+03,0.60287e+03,0.88826e+03,0.11752e+04 /) - kbo(:, 4,52,13) = (/ & - & 0.10414e+04,0.78574e+03,0.60234e+03,0.88797e+03,0.11747e+04 /) - kbo(:, 5,52,13) = (/ & - & 0.10377e+04,0.78696e+03,0.60170e+03,0.88739e+03,0.11739e+04 /) - kbo(:, 1,53,13) = (/ & - & 0.10446e+04,0.78533e+03,0.60451e+03,0.89022e+03,0.11778e+04 /) - kbo(:, 2,53,13) = (/ & - & 0.10366e+04,0.78675e+03,0.60391e+03,0.88907e+03,0.11762e+04 /) - kbo(:, 3,53,13) = (/ & - & 0.10339e+04,0.78472e+03,0.60302e+03,0.88857e+03,0.11756e+04 /) - kbo(:, 4,53,13) = (/ & - & 0.10347e+04,0.78858e+03,0.60271e+03,0.88799e+03,0.11748e+04 /) - kbo(:, 5,53,13) = (/ & - & 0.10414e+04,0.78370e+03,0.60188e+03,0.88770e+03,0.11743e+04 /) - kbo(:, 1,54,13) = (/ & - & 0.10366e+04,0.78980e+03,0.60463e+03,0.89072e+03,0.11788e+04 /) - kbo(:, 2,54,13) = (/ & - & 0.10376e+04,0.78289e+03,0.60402e+03,0.88939e+03,0.11765e+04 /) - kbo(:, 3,54,13) = (/ & - & 0.10387e+04,0.78695e+03,0.60318e+03,0.88877e+03,0.11759e+04 /) - kbo(:, 4,54,13) = (/ & - & 0.10435e+04,0.78370e+03,0.60273e+03,0.88806e+03,0.11749e+04 /) - kbo(:, 5,54,13) = (/ & - & 0.10492e+04,0.79000e+03,0.60214e+03,0.88789e+03,0.11746e+04 /) - kbo(:, 1,55,13) = (/ & - & 0.10395e+04,0.78654e+03,0.60524e+03,0.89136e+03,0.11799e+04 /) - kbo(:, 2,55,13) = (/ & - & 0.10379e+04,0.78553e+03,0.60426e+03,0.88977e+03,0.11770e+04 /) - kbo(:, 3,55,13) = (/ & - & 0.10376e+04,0.78959e+03,0.60343e+03,0.88890e+03,0.11757e+04 /) - kbo(:, 4,55,13) = (/ & - & 0.10360e+04,0.78634e+03,0.60272e+03,0.88828e+03,0.11752e+04 /) - kbo(:, 5,55,13) = (/ & - & 0.10355e+04,0.78796e+03,0.60219e+03,0.88821e+03,0.11747e+04 /) - kbo(:, 1,56,13) = (/ & - & 0.10500e+04,0.78471e+03,0.60540e+03,0.89210e+03,0.11812e+04 /) - kbo(:, 2,56,13) = (/ & - & 0.10441e+04,0.78735e+03,0.60449e+03,0.89019e+03,0.11777e+04 /) - kbo(:, 3,56,13) = (/ & - & 0.10382e+04,0.78755e+03,0.60374e+03,0.88905e+03,0.11759e+04 /) - kbo(:, 4,56,13) = (/ & - & 0.10470e+04,0.78715e+03,0.60301e+03,0.88855e+03,0.11756e+04 /) - kbo(:, 5,56,13) = (/ & - & 0.10358e+04,0.78674e+03,0.60270e+03,0.88799e+03,0.11748e+04 /) - kbo(:, 1,57,13) = (/ & - & 0.10339e+04,0.78715e+03,0.60588e+03,0.89295e+03,0.11828e+04 /) - kbo(:, 2,57,13) = (/ & - & 0.10441e+04,0.78267e+03,0.60475e+03,0.89065e+03,0.11787e+04 /) - kbo(:, 3,57,13) = (/ & - & 0.10435e+04,0.78938e+03,0.60399e+03,0.88934e+03,0.11765e+04 /) - kbo(:, 4,57,13) = (/ & - & 0.10392e+04,0.79203e+03,0.60300e+03,0.88875e+03,0.11758e+04 /) - kbo(:, 5,57,13) = (/ & - & 0.10360e+04,0.78491e+03,0.60271e+03,0.88827e+03,0.11749e+04 /) - kbo(:, 1,58,13) = (/ & - & 0.10392e+04,0.78430e+03,0.60601e+03,0.89398e+03,0.11847e+04 /) - kbo(:, 2,58,13) = (/ & - & 0.10363e+04,0.78694e+03,0.60503e+03,0.89124e+03,0.11797e+04 /) - kbo(:, 3,58,13) = (/ & - & 0.10360e+04,0.78084e+03,0.60391e+03,0.88970e+03,0.11769e+04 /) - kbo(:, 4,58,13) = (/ & - & 0.10459e+04,0.78267e+03,0.60338e+03,0.88888e+03,0.11757e+04 /) - kbo(:, 5,58,13) = (/ & - & 0.10368e+04,0.79101e+03,0.60285e+03,0.88823e+03,0.11752e+04 /) - kbo(:, 1,59,13) = (/ & - & 0.10403e+04,0.78613e+03,0.60612e+03,0.89444e+03,0.11849e+04 /) - kbo(:, 2,59,13) = (/ & - & 0.10349e+04,0.78531e+03,0.60514e+03,0.89150e+03,0.11802e+04 /) - kbo(:, 3,59,13) = (/ & - & 0.10360e+04,0.78470e+03,0.60447e+03,0.88985e+03,0.11771e+04 /) - kbo(:, 4,59,13) = (/ & - & 0.10411e+04,0.78531e+03,0.60349e+03,0.88892e+03,0.11761e+04 /) - kbo(:, 5,59,13) = (/ & - & 0.10355e+04,0.78795e+03,0.60275e+03,0.88833e+03,0.11753e+04 /) - kbo(:, 1,13,14) = (/ & - & 0.12194e+04,0.91192e+03,0.60649e+03,0.89289e+03,0.11803e+04 /) - kbo(:, 2,13,14) = (/ & - & 0.11340e+04,0.93388e+03,0.60565e+03,0.89163e+03,0.11786e+04 /) - kbo(:, 3,13,14) = (/ & - & 0.11287e+04,0.93154e+03,0.60510e+03,0.89077e+03,0.11775e+04 /) - kbo(:, 4,13,14) = (/ & - & 0.11571e+04,0.89198e+03,0.60383e+03,0.88977e+03,0.11762e+04 /) - kbo(:, 5,13,14) = (/ & - & 0.11232e+04,0.85932e+03,0.60280e+03,0.88865e+03,0.11748e+04 /) - kbo(:, 1,14,14) = (/ & - & 0.11313e+04,0.85574e+03,0.60604e+03,0.89259e+03,0.11800e+04 /) - kbo(:, 2,14,14) = (/ & - & 0.11392e+04,0.85278e+03,0.60523e+03,0.89143e+03,0.11785e+04 /) - kbo(:, 3,14,14) = (/ & - & 0.11402e+04,0.86846e+03,0.60420e+03,0.89055e+03,0.11774e+04 /) - kbo(:, 4,14,14) = (/ & - & 0.11058e+04,0.85128e+03,0.60339e+03,0.88920e+03,0.11761e+04 /) - kbo(:, 5,14,14) = (/ & - & 0.11286e+04,0.84325e+03,0.60241e+03,0.88842e+03,0.11746e+04 /) - kbo(:, 1,15,14) = (/ & - & 0.11349e+04,0.84417e+03,0.60541e+03,0.89231e+03,0.11798e+04 /) - kbo(:, 2,15,14) = (/ & - & 0.11015e+04,0.88045e+03,0.60487e+03,0.89125e+03,0.11784e+04 /) - kbo(:, 3,15,14) = (/ & - & 0.11261e+04,0.83776e+03,0.60408e+03,0.89034e+03,0.11772e+04 /) - kbo(:, 4,15,14) = (/ & - & 0.10962e+04,0.86597e+03,0.60302e+03,0.88937e+03,0.11760e+04 /) - kbo(:, 5,15,14) = (/ & - & 0.10995e+04,0.86095e+03,0.60207e+03,0.88855e+03,0.11740e+04 /) - kbo(:, 1,16,14) = (/ & - & 0.11556e+04,0.89943e+03,0.60533e+03,0.89241e+03,0.11796e+04 /) - kbo(:, 2,16,14) = (/ & - & 0.10928e+04,0.87845e+03,0.60456e+03,0.89108e+03,0.11783e+04 /) - kbo(:, 3,16,14) = (/ & - & 0.11526e+04,0.84568e+03,0.60375e+03,0.89014e+03,0.11771e+04 /) - kbo(:, 4,16,14) = (/ & - & 0.11224e+04,0.82958e+03,0.60245e+03,0.88919e+03,0.11758e+04 /) - kbo(:, 5,16,14) = (/ & - & 0.11104e+04,0.83492e+03,0.60177e+03,0.88796e+03,0.11747e+04 /) - kbo(:, 1,17,14) = (/ & - & 0.11093e+04,0.86391e+03,0.60505e+03,0.89183e+03,0.11794e+04 /) - kbo(:, 2,17,14) = (/ & - & 0.10879e+04,0.83992e+03,0.60455e+03,0.89093e+03,0.11782e+04 /) - kbo(:, 3,17,14) = (/ & - & 0.11180e+04,0.83675e+03,0.60345e+03,0.88997e+03,0.11769e+04 /) - kbo(:, 4,17,14) = (/ & - & 0.11203e+04,0.81299e+03,0.60195e+03,0.88902e+03,0.11757e+04 /) - kbo(:, 5,17,14) = (/ & - & 0.10902e+04,0.84755e+03,0.60151e+03,0.88739e+03,0.11736e+04 /) - kbo(:, 1,18,14) = (/ & - & 0.10889e+04,0.82171e+03,0.60482e+03,0.89199e+03,0.11792e+04 /) - kbo(:, 2,18,14) = (/ & - & 0.10836e+04,0.85518e+03,0.60408e+03,0.89079e+03,0.11781e+04 /) - kbo(:, 3,18,14) = (/ & - & 0.10919e+04,0.82437e+03,0.60318e+03,0.88981e+03,0.11763e+04 /) - kbo(:, 4,18,14) = (/ & - & 0.11143e+04,0.86811e+03,0.60223e+03,0.88886e+03,0.11755e+04 /) - kbo(:, 5,18,14) = (/ & - & 0.10618e+04,0.80694e+03,0.60104e+03,0.88718e+03,0.11738e+04 /) - kbo(:, 1,19,14) = (/ & - & 0.10700e+04,0.81179e+03,0.60437e+03,0.89145e+03,0.11790e+04 /) - kbo(:, 2,19,14) = (/ & - & 0.11096e+04,0.84185e+03,0.60389e+03,0.89066e+03,0.11785e+04 /) - kbo(:, 3,19,14) = (/ & - & 0.10919e+04,0.82575e+03,0.60295e+03,0.89004e+03,0.11767e+04 /) - kbo(:, 4,19,14) = (/ & - & 0.10874e+04,0.81974e+03,0.60205e+03,0.88835e+03,0.11754e+04 /) - kbo(:, 5,19,14) = (/ & - & 0.11077e+04,0.86723e+03,0.60084e+03,0.88734e+03,0.11727e+04 /) - kbo(:, 1,20,14) = (/ & - & 0.10813e+04,0.82037e+03,0.60443e+03,0.89128e+03,0.11789e+04 /) - kbo(:, 2,20,14) = (/ & - & 0.10944e+04,0.83718e+03,0.60369e+03,0.89052e+03,0.11778e+04 /) - kbo(:, 3,20,14) = (/ & - & 0.10922e+04,0.81527e+03,0.60248e+03,0.88953e+03,0.11765e+04 /) - kbo(:, 4,20,14) = (/ & - & 0.10962e+04,0.82815e+03,0.60188e+03,0.88854e+03,0.11752e+04 /) - kbo(:, 5,20,14) = (/ & - & 0.10768e+04,0.81150e+03,0.60064e+03,0.88711e+03,0.11734e+04 /) - kbo(:, 1,21,14) = (/ & - & 0.10919e+04,0.79941e+03,0.60426e+03,0.89114e+03,0.11787e+04 /) - kbo(:, 2,21,14) = (/ & - & 0.10481e+04,0.83111e+03,0.60351e+03,0.89037e+03,0.11777e+04 /) - kbo(:, 3,21,14) = (/ & - & 0.10716e+04,0.81475e+03,0.60253e+03,0.88975e+03,0.11764e+04 /) - kbo(:, 4,21,14) = (/ & - & 0.11197e+04,0.80344e+03,0.60123e+03,0.88837e+03,0.11750e+04 /) - kbo(:, 5,21,14) = (/ & - & 0.10436e+04,0.80977e+03,0.60045e+03,0.88688e+03,0.11731e+04 /) - kbo(:, 1,22,14) = (/ & - & 0.11028e+04,0.82019e+03,0.60406e+03,0.89099e+03,0.11785e+04 /) - kbo(:, 2,22,14) = (/ & - & 0.10664e+04,0.84127e+03,0.60327e+03,0.89089e+03,0.11775e+04 /) - kbo(:, 3,22,14) = (/ & - & 0.10764e+04,0.83101e+03,0.60182e+03,0.88920e+03,0.11762e+04 /) - kbo(:, 4,22,14) = (/ & - & 0.10955e+04,0.82928e+03,0.60175e+03,0.88811e+03,0.11747e+04 /) - kbo(:, 5,22,14) = (/ & - & 0.10429e+04,0.82150e+03,0.60042e+03,0.88653e+03,0.11726e+04 /) - kbo(:, 1,23,14) = (/ & - & 0.10449e+04,0.79677e+03,0.60363e+03,0.89084e+03,0.11784e+04 /) - kbo(:, 2,23,14) = (/ & - & 0.10443e+04,0.81477e+03,0.60352e+03,0.88994e+03,0.11772e+04 /) - kbo(:, 3,23,14) = (/ & - & 0.10490e+04,0.84026e+03,0.60112e+03,0.88900e+03,0.11759e+04 /) - kbo(:, 4,23,14) = (/ & - & 0.10652e+04,0.80737e+03,0.60128e+03,0.88783e+03,0.11744e+04 /) - kbo(:, 5,23,14) = (/ & - & 0.10777e+04,0.80975e+03,0.60014e+03,0.88615e+03,0.11722e+04 /) - kbo(:, 1,24,14) = (/ & - & 0.10587e+04,0.83370e+03,0.60369e+03,0.89067e+03,0.11782e+04 /) - kbo(:, 2,24,14) = (/ & - & 0.10413e+04,0.79049e+03,0.60278e+03,0.88972e+03,0.11769e+04 /) - kbo(:, 3,24,14) = (/ & - & 0.10508e+04,0.83928e+03,0.60192e+03,0.88879e+03,0.11757e+04 /) - kbo(:, 4,24,14) = (/ & - & 0.10667e+04,0.80304e+03,0.60105e+03,0.88752e+03,0.11740e+04 /) - kbo(:, 5,24,14) = (/ & - & 0.10776e+04,0.78685e+03,0.59985e+03,0.88574e+03,0.11716e+04 /) - kbo(:, 1,25,14) = (/ & - & 0.10559e+04,0.78648e+03,0.60348e+03,0.89048e+03,0.11779e+04 /) - kbo(:, 2,25,14) = (/ & - & 0.10600e+04,0.81980e+03,0.60253e+03,0.88951e+03,0.11766e+04 /) - kbo(:, 3,25,14) = (/ & - & 0.10484e+04,0.79331e+03,0.60149e+03,0.88854e+03,0.11754e+04 /) - kbo(:, 4,25,14) = (/ & - & 0.11000e+04,0.80548e+03,0.60080e+03,0.88717e+03,0.11735e+04 /) - kbo(:, 5,25,14) = (/ & - & 0.11165e+04,0.79968e+03,0.59952e+03,0.88528e+03,0.11711e+04 /) - kbo(:, 1,26,14) = (/ & - & 0.10604e+04,0.79570e+03,0.60325e+03,0.89026e+03,0.11777e+04 /) - kbo(:, 2,26,14) = (/ & - & 0.10870e+04,0.78311e+03,0.60230e+03,0.88929e+03,0.11764e+04 /) - kbo(:, 3,26,14) = (/ & - & 0.10476e+04,0.79338e+03,0.60128e+03,0.88826e+03,0.11750e+04 /) - kbo(:, 4,26,14) = (/ & - & 0.10459e+04,0.80175e+03,0.60027e+03,0.88677e+03,0.11730e+04 /) - kbo(:, 5,26,14) = (/ & - & 0.10485e+04,0.81112e+03,0.59892e+03,0.88476e+03,0.11704e+04 /) - kbo(:, 1,27,14) = (/ & - & 0.10458e+04,0.79457e+03,0.60301e+03,0.89001e+03,0.11773e+04 /) - kbo(:, 2,27,14) = (/ & - & 0.10576e+04,0.79170e+03,0.60208e+03,0.88906e+03,0.11761e+04 /) - kbo(:, 3,27,14) = (/ & - & 0.10632e+04,0.79464e+03,0.60130e+03,0.88794e+03,0.11741e+04 /) - kbo(:, 4,27,14) = (/ & - & 0.10506e+04,0.80916e+03,0.60021e+03,0.88633e+03,0.11725e+04 /) - kbo(:, 5,27,14) = (/ & - & 0.10406e+04,0.79035e+03,0.59878e+03,0.88422e+03,0.11697e+04 /) - kbo(:, 1,28,14) = (/ & - & 0.10390e+04,0.79142e+03,0.60274e+03,0.88940e+03,0.11770e+04 /) - kbo(:, 2,28,14) = (/ & - & 0.10793e+04,0.84664e+03,0.60165e+03,0.88883e+03,0.11758e+04 /) - kbo(:, 3,28,14) = (/ & - & 0.10389e+04,0.81244e+03,0.60106e+03,0.88760e+03,0.11741e+04 /) - kbo(:, 4,28,14) = (/ & - & 0.10910e+04,0.82250e+03,0.59988e+03,0.88586e+03,0.11718e+04 /) - kbo(:, 5,28,14) = (/ & - & 0.10984e+04,0.79766e+03,0.59863e+03,0.88510e+03,0.11689e+04 /) - kbo(:, 1,29,14) = (/ & - & 0.10453e+04,0.79421e+03,0.60249e+03,0.88988e+03,0.11767e+04 /) - kbo(:, 2,29,14) = (/ & - & 0.10759e+04,0.85231e+03,0.59780e+03,0.88856e+03,0.11754e+04 /) - kbo(:, 3,29,14) = (/ & - & 0.10355e+04,0.83260e+03,0.60079e+03,0.88721e+03,0.11736e+04 /) - kbo(:, 4,29,14) = (/ & - & 0.10260e+04,0.78313e+03,0.59953e+03,0.88535e+03,0.11712e+04 /) - kbo(:, 5,29,14) = (/ & - & 0.10495e+04,0.79101e+03,0.59751e+03,0.88309e+03,0.11682e+04 /) - kbo(:, 1,30,14) = (/ & - & 0.10479e+04,0.78753e+03,0.60225e+03,0.88928e+03,0.11764e+04 /) - kbo(:, 2,30,14) = (/ & - & 0.10451e+04,0.80563e+03,0.60150e+03,0.88827e+03,0.11750e+04 /) - kbo(:, 3,30,14) = (/ & - & 0.10758e+04,0.79525e+03,0.60050e+03,0.88643e+03,0.11731e+04 /) - kbo(:, 4,30,14) = (/ & - & 0.10781e+04,0.79929e+03,0.59916e+03,0.88480e+03,0.11705e+04 /) - kbo(:, 5,30,14) = (/ & - & 0.10459e+04,0.81358e+03,0.59790e+03,0.88220e+03,0.11665e+04 /) - kbo(:, 1,31,14) = (/ & - & 0.10607e+04,0.80146e+03,0.60204e+03,0.88905e+03,0.11761e+04 /) - kbo(:, 2,31,14) = (/ & - & 0.10395e+04,0.78822e+03,0.60127e+03,0.88793e+03,0.11746e+04 /) - kbo(:, 3,31,14) = (/ & - & 0.10321e+04,0.80923e+03,0.60018e+03,0.88632e+03,0.11725e+04 /) - kbo(:, 4,31,14) = (/ & - & 0.11042e+04,0.80049e+03,0.59875e+03,0.88457e+03,0.11697e+04 /) - kbo(:, 5,31,14) = (/ & - & 0.10581e+04,0.80105e+03,0.59750e+03,0.88200e+03,0.11672e+04 /) - kbo(:, 1,32,14) = (/ & - & 0.10889e+04,0.84488e+03,0.59867e+03,0.88880e+03,0.11757e+04 /) - kbo(:, 2,32,14) = (/ & - & 0.10428e+04,0.79586e+03,0.60101e+03,0.88756e+03,0.11741e+04 /) - kbo(:, 3,32,14) = (/ & - & 0.10671e+04,0.82487e+03,0.59984e+03,0.88582e+03,0.11718e+04 /) - kbo(:, 4,32,14) = (/ & - & 0.10426e+04,0.83726e+03,0.59809e+03,0.88469e+03,0.11694e+04 /) - kbo(:, 5,32,14) = (/ & - & 0.10522e+04,0.80937e+03,0.59684e+03,0.88175e+03,0.11659e+04 /) - kbo(:, 1,33,14) = (/ & - & 0.10391e+04,0.79980e+03,0.60166e+03,0.88852e+03,0.11754e+04 /) - kbo(:, 2,33,14) = (/ & - & 0.10719e+04,0.78917e+03,0.60073e+03,0.88751e+03,0.11736e+04 /) - kbo(:, 3,33,14) = (/ & - & 0.10389e+04,0.82235e+03,0.59947e+03,0.88564e+03,0.11706e+04 /) - kbo(:, 4,33,14) = (/ & - & 0.10819e+04,0.81877e+03,0.59794e+03,0.88337e+03,0.11676e+04 /) - kbo(:, 5,33,14) = (/ & - & 0.10266e+04,0.78772e+03,0.59642e+03,0.88112e+03,0.11651e+04 /) - kbo(:, 1,34,14) = (/ & - & 0.10675e+04,0.78932e+03,0.60147e+03,0.88789e+03,0.11750e+04 /) - kbo(:, 2,34,14) = (/ & - & 0.10375e+04,0.79310e+03,0.60047e+03,0.88677e+03,0.11731e+04 /) - kbo(:, 3,34,14) = (/ & - & 0.10378e+04,0.82372e+03,0.59913e+03,0.88478e+03,0.11704e+04 /) - kbo(:, 4,34,14) = (/ & - & 0.10677e+04,0.78757e+03,0.59836e+03,0.88254e+03,0.11660e+04 /) - kbo(:, 5,34,14) = (/ & - & 0.10419e+04,0.77666e+03,0.59604e+03,0.87984e+03,0.11644e+04 /) - kbo(:, 1,35,14) = (/ & - & 0.10613e+04,0.80031e+03,0.60136e+03,0.88808e+03,0.11748e+04 /) - kbo(:, 2,35,14) = (/ & - & 0.11118e+04,0.80250e+03,0.60031e+03,0.88654e+03,0.11732e+04 /) - kbo(:, 3,35,14) = (/ & - & 0.10759e+04,0.83185e+03,0.59892e+03,0.88448e+03,0.11701e+04 /) - kbo(:, 4,35,14) = (/ & - & 0.11049e+04,0.77622e+03,0.59743e+03,0.88477e+03,0.11680e+04 /) - kbo(:, 5,35,14) = (/ & - & 0.10459e+04,0.78322e+03,0.59581e+03,0.87986e+03,0.11634e+04 /) - kbo(:, 1,36,14) = (/ & - & 0.10396e+04,0.79026e+03,0.60134e+03,0.88805e+03,0.11748e+04 /) - kbo(:, 2,36,14) = (/ & - & 0.10471e+04,0.80778e+03,0.60028e+03,0.88614e+03,0.11727e+04 /) - kbo(:, 3,36,14) = (/ & - & 0.10450e+04,0.79912e+03,0.59889e+03,0.88407e+03,0.11700e+04 /) - kbo(:, 4,36,14) = (/ & - & 0.10626e+04,0.80803e+03,0.59740e+03,0.88257e+03,0.11756e+04 /) - kbo(:, 5,36,14) = (/ & - & 0.10609e+04,0.81056e+03,0.59577e+03,0.87981e+03,0.11634e+04 /) - kbo(:, 1,37,14) = (/ & - & 0.10479e+04,0.79014e+03,0.60145e+03,0.88822e+03,0.11750e+04 /) - kbo(:, 2,37,14) = (/ & - & 0.10744e+04,0.81437e+03,0.60044e+03,0.88637e+03,0.11730e+04 /) - kbo(:, 3,37,14) = (/ & - & 0.10335e+04,0.79550e+03,0.59909e+03,0.88473e+03,0.11704e+04 /) - kbo(:, 4,37,14) = (/ & - & 0.10410e+04,0.77504e+03,0.59808e+03,0.88321e+03,0.11674e+04 /) - kbo(:, 5,37,14) = (/ & - & 0.10557e+04,0.79226e+03,0.59599e+03,0.88014e+03,0.11643e+04 /) - kbo(:, 1,38,14) = (/ & - & 0.10418e+04,0.80249e+03,0.60156e+03,0.88838e+03,0.11752e+04 /) - kbo(:, 2,38,14) = (/ & - & 0.10220e+04,0.82577e+03,0.60060e+03,0.88697e+03,0.11733e+04 /) - kbo(:, 3,38,14) = (/ & - & 0.10502e+04,0.80915e+03,0.59929e+03,0.88503e+03,0.11708e+04 /) - kbo(:, 4,38,14) = (/ & - & 0.10497e+04,0.81774e+03,0.59826e+03,0.88277e+03,0.11673e+04 /) - kbo(:, 5,38,14) = (/ & - & 0.10771e+04,0.81134e+03,0.59623e+03,0.88049e+03,0.11648e+04 /) - kbo(:, 1,39,14) = (/ & - & 0.10165e+04,0.77782e+03,0.60118e+03,0.88854e+03,0.11754e+04 /) - kbo(:, 2,39,14) = (/ & - & 0.10531e+04,0.80302e+03,0.60075e+03,0.88719e+03,0.11736e+04 /) - kbo(:, 3,39,14) = (/ & - & 0.10758e+04,0.78257e+03,0.59949e+03,0.88533e+03,0.11712e+04 /) - kbo(:, 4,39,14) = (/ & - & 0.10568e+04,0.79852e+03,0.59772e+03,0.88307e+03,0.11677e+04 /) - kbo(:, 5,39,14) = (/ & - & 0.11120e+04,0.79275e+03,0.59645e+03,0.88083e+03,0.11652e+04 /) - kbo(:, 1,40,14) = (/ & - & 0.10416e+04,0.79660e+03,0.59890e+03,0.88879e+03,0.11758e+04 /) - kbo(:, 2,40,14) = (/ & - & 0.10391e+04,0.79051e+03,0.60100e+03,0.88756e+03,0.11741e+04 /) - kbo(:, 3,40,14) = (/ & - & 0.10420e+04,0.78155e+03,0.59983e+03,0.88583e+03,0.11718e+04 /) - kbo(:, 4,40,14) = (/ & - & 0.10496e+04,0.79527e+03,0.59833e+03,0.88434e+03,0.11689e+04 /) - kbo(:, 5,40,14) = (/ & - & 0.10264e+04,0.78919e+03,0.59684e+03,0.88140e+03,0.11660e+04 /) - kbo(:, 1,41,14) = (/ & - & 0.10689e+04,0.80516e+03,0.60103e+03,0.88904e+03,0.11761e+04 /) - kbo(:, 2,41,14) = (/ & - & 0.10416e+04,0.82239e+03,0.60124e+03,0.88792e+03,0.11746e+04 /) - kbo(:, 3,41,14) = (/ & - & 0.10563e+04,0.81535e+03,0.60016e+03,0.88632e+03,0.11725e+04 /) - kbo(:, 4,41,14) = (/ & - & 0.10676e+04,0.82044e+03,0.59873e+03,0.88421e+03,0.11697e+04 /) - kbo(:, 5,41,14) = (/ & - & 0.10596e+04,0.78372e+03,0.59724e+03,0.88164e+03,0.11672e+04 /) - kbo(:, 1,42,14) = (/ & - & 0.10655e+04,0.80320e+03,0.60196e+03,0.88927e+03,0.11764e+04 /) - kbo(:, 2,42,14) = (/ & - & 0.10714e+04,0.78435e+03,0.60147e+03,0.88825e+03,0.11750e+04 /) - kbo(:, 3,42,14) = (/ & - & 0.10516e+04,0.79392e+03,0.60071e+03,0.88678e+03,0.11731e+04 /) - kbo(:, 4,42,14) = (/ & - & 0.10516e+04,0.77763e+03,0.59913e+03,0.88479e+03,0.11700e+04 /) - kbo(:, 5,42,14) = (/ & - & 0.10486e+04,0.79390e+03,0.59811e+03,0.88255e+03,0.11641e+04 /) - kbo(:, 1,43,14) = (/ & - & 0.10979e+04,0.83796e+03,0.60248e+03,0.88955e+03,0.11768e+04 /) - kbo(:, 2,43,14) = (/ & - & 0.11147e+04,0.76548e+03,0.60171e+03,0.88861e+03,0.11750e+04 /) - kbo(:, 3,43,14) = (/ & - & 0.10326e+04,0.79357e+03,0.60081e+03,0.88729e+03,0.11738e+04 /) - kbo(:, 4,43,14) = (/ & - & 0.10439e+04,0.86155e+03,0.59958e+03,0.88546e+03,0.11709e+04 /) - kbo(:, 5,43,14) = (/ & - & 0.10945e+04,0.81749e+03,0.59781e+03,0.88321e+03,0.11679e+04 /) - kbo(:, 1,44,14) = (/ & - & 0.10684e+04,0.83027e+03,0.60306e+03,0.88988e+03,0.11772e+04 /) - kbo(:, 2,44,14) = (/ & - & 0.10549e+04,0.78589e+03,0.60194e+03,0.88895e+03,0.11755e+04 /) - kbo(:, 3,44,14) = (/ & - & 0.10654e+04,0.79705e+03,0.60140e+03,0.88779e+03,0.11744e+04 /) - kbo(:, 4,44,14) = (/ & - & 0.10595e+04,0.79130e+03,0.59979e+03,0.88614e+03,0.11722e+04 /) - kbo(:, 5,44,14) = (/ & - & 0.10477e+04,0.80597e+03,0.59858e+03,0.88363e+03,0.11704e+04 /) - kbo(:, 1,45,14) = (/ & - & 0.10873e+04,0.79417e+03,0.60313e+03,0.89023e+03,0.11777e+04 /) - kbo(:, 2,45,14) = (/ & - & 0.10616e+04,0.78299e+03,0.60195e+03,0.88889e+03,0.11764e+04 /) - kbo(:, 3,45,14) = (/ & - & 0.10452e+04,0.80979e+03,0.60145e+03,0.88823e+03,0.11745e+04 /) - kbo(:, 4,45,14) = (/ & - & 0.10957e+04,0.80372e+03,0.60045e+03,0.88675e+03,0.11726e+04 /) - kbo(:, 5,45,14) = (/ & - & 0.10725e+04,0.79223e+03,0.59886e+03,0.88476e+03,0.11704e+04 /) - kbo(:, 1,46,14) = (/ & - & 0.10477e+04,0.79958e+03,0.60344e+03,0.89054e+03,0.11781e+04 /) - kbo(:, 2,46,14) = (/ & - & 0.10873e+04,0.80021e+03,0.60251e+03,0.88958e+03,0.11768e+04 /) - kbo(:, 3,46,14) = (/ & - & 0.10228e+04,0.78903e+03,0.60173e+03,0.88864e+03,0.11751e+04 /) - kbo(:, 4,46,14) = (/ & - & 0.10295e+04,0.83052e+03,0.60085e+03,0.88734e+03,0.11738e+04 /) - kbo(:, 5,46,14) = (/ & - & 0.10527e+04,0.80434e+03,0.59963e+03,0.88553e+03,0.11714e+04 /) - kbo(:, 1,47,14) = (/ & - & 0.10317e+04,0.78934e+03,0.60373e+03,0.89119e+03,0.11785e+04 /) - kbo(:, 2,47,14) = (/ & - & 0.10325e+04,0.79125e+03,0.60291e+03,0.88999e+03,0.11778e+04 /) - kbo(:, 3,47,14) = (/ & - & 0.10417e+04,0.79891e+03,0.60152e+03,0.88904e+03,0.11761e+04 /) - kbo(:, 4,47,14) = (/ & - & 0.10561e+04,0.78901e+03,0.60124e+03,0.88793e+03,0.11746e+04 /) - kbo(:, 5,47,14) = (/ & - & 0.10468e+04,0.79347e+03,0.59991e+03,0.88632e+03,0.11725e+04 /) - kbo(:, 1,48,14) = (/ & - & 0.10540e+04,0.78901e+03,0.60401e+03,0.89113e+03,0.11789e+04 /) - kbo(:, 2,48,14) = (/ & - & 0.10320e+04,0.80975e+03,0.60327e+03,0.89037e+03,0.11779e+04 /) - kbo(:, 3,48,14) = (/ & - & 0.10535e+04,0.79283e+03,0.60233e+03,0.88940e+03,0.11766e+04 /) - kbo(:, 4,48,14) = (/ & - & 0.10485e+04,0.81102e+03,0.60158e+03,0.88807e+03,0.11753e+04 /) - kbo(:, 5,48,14) = (/ & - & 0.10337e+04,0.82793e+03,0.60064e+03,0.88703e+03,0.11734e+04 /) - kbo(:, 1,49,14) = (/ & - & 0.10304e+04,0.83177e+03,0.60454e+03,0.89164e+03,0.11796e+04 /) - kbo(:, 2,49,14) = (/ & - & 0.10417e+04,0.78580e+03,0.60359e+03,0.89069e+03,0.11783e+04 /) - kbo(:, 3,49,14) = (/ & - & 0.10725e+04,0.82186e+03,0.60271e+03,0.88942e+03,0.11771e+04 /) - kbo(:, 4,49,14) = (/ & - & 0.10362e+04,0.80207e+03,0.60065e+03,0.88885e+03,0.11758e+04 /) - kbo(:, 5,49,14) = (/ & - & 0.10383e+04,0.79856e+03,0.60081e+03,0.88765e+03,0.11743e+04 /) - kbo(:, 1,50,14) = (/ & - & 0.10581e+04,0.78356e+03,0.60457e+03,0.89226e+03,0.11805e+04 /) - kbo(:, 2,50,14) = (/ & - & 0.10447e+04,0.80207e+03,0.60385e+03,0.89058e+03,0.11786e+04 /) - kbo(:, 3,50,14) = (/ & - & 0.10788e+04,0.82154e+03,0.60308e+03,0.89017e+03,0.11776e+04 /) - kbo(:, 4,50,14) = (/ & - & 0.10695e+04,0.79696e+03,0.60214e+03,0.88920e+03,0.11763e+04 /) - kbo(:, 5,50,14) = (/ & - & 0.10859e+04,0.79983e+03,0.60140e+03,0.88816e+03,0.11749e+04 /) - kbo(:, 1,51,14) = (/ & - & 0.10459e+04,0.79632e+03,0.60498e+03,0.89284e+03,0.11812e+04 /) - kbo(:, 2,51,14) = (/ & - & 0.10371e+04,0.78419e+03,0.60411e+03,0.89166e+03,0.11796e+04 /) - kbo(:, 3,51,14) = (/ & - & 0.10657e+04,0.82185e+03,0.60315e+03,0.89049e+03,0.11780e+04 /) - kbo(:, 4,51,14) = (/ & - & 0.10396e+04,0.78418e+03,0.60197e+03,0.88917e+03,0.11768e+04 /) - kbo(:, 5,51,14) = (/ & - & 0.10354e+04,0.78290e+03,0.60169e+03,0.88859e+03,0.11755e+04 /) - kbo(:, 1,52,14) = (/ & - & 0.10434e+04,0.78546e+03,0.60574e+03,0.89370e+03,0.11824e+04 /) - kbo(:, 2,52,14) = (/ & - & 0.10665e+04,0.78610e+03,0.60413e+03,0.89180e+03,0.11798e+04 /) - kbo(:, 3,52,14) = (/ & - & 0.10821e+04,0.78641e+03,0.60367e+03,0.89113e+03,0.11784e+04 /) - kbo(:, 4,52,14) = (/ & - & 0.10514e+04,0.79279e+03,0.60282e+03,0.88989e+03,0.11772e+04 /) - kbo(:, 5,52,14) = (/ & - & 0.10408e+04,0.77939e+03,0.60170e+03,0.88895e+03,0.11760e+04 /) - kbo(:, 1,53,14) = (/ & - & 0.10497e+04,0.80875e+03,0.60601e+03,0.89382e+03,0.11825e+04 /) - kbo(:, 2,53,14) = (/ & - & 0.10514e+04,0.81226e+03,0.60441e+03,0.89243e+03,0.11807e+04 /) - kbo(:, 3,53,14) = (/ & - & 0.11137e+04,0.80237e+03,0.60392e+03,0.89101e+03,0.11787e+04 /) - kbo(:, 4,53,14) = (/ & - & 0.10661e+04,0.79885e+03,0.60292e+03,0.89026e+03,0.11777e+04 /) - kbo(:, 5,53,14) = (/ & - & 0.10324e+04,0.82343e+03,0.60222e+03,0.88929e+03,0.11764e+04 /) - kbo(:, 1,54,14) = (/ & - & 0.10594e+04,0.86492e+03,0.60646e+03,0.89428e+03,0.11831e+04 /) - kbo(:, 2,54,14) = (/ & - & 0.10303e+04,0.85949e+03,0.60506e+03,0.89294e+03,0.11813e+04 /) - kbo(:, 3,54,14) = (/ & - & 0.10905e+04,0.84800e+03,0.60416e+03,0.89138e+03,0.11793e+04 /) - kbo(:, 4,54,14) = (/ & - & 0.10438e+04,0.78736e+03,0.60344e+03,0.89055e+03,0.11781e+04 /) - kbo(:, 5,54,14) = (/ & - & 0.10324e+04,0.83619e+03,0.60252e+03,0.88959e+03,0.11768e+04 /) - kbo(:, 1,55,14) = (/ & - & 0.10463e+04,0.78385e+03,0.60663e+03,0.89475e+03,0.11838e+04 /) - kbo(:, 2,55,14) = (/ & - & 0.10543e+04,0.79119e+03,0.60552e+03,0.89337e+03,0.11824e+04 /) - kbo(:, 3,55,14) = (/ & - & 0.10391e+04,0.80395e+03,0.60439e+03,0.89183e+03,0.11799e+04 /) - kbo(:, 4,55,14) = (/ & - & 0.10421e+04,0.79916e+03,0.60368e+03,0.89078e+03,0.11784e+04 /) - kbo(:, 5,55,14) = (/ & - & 0.10909e+04,0.78448e+03,0.60284e+03,0.88955e+03,0.11777e+04 /) - kbo(:, 1,56,14) = (/ & - & 0.10143e+04,0.81481e+03,0.60727e+03,0.89531e+03,0.11848e+04 /) - kbo(:, 2,56,14) = (/ & - & 0.10240e+04,0.81034e+03,0.60598e+03,0.89378e+03,0.11825e+04 /) - kbo(:, 3,56,14) = (/ & - & 0.10324e+04,0.78927e+03,0.60463e+03,0.89238e+03,0.11806e+04 /) - kbo(:, 4,56,14) = (/ & - & 0.10273e+04,0.78959e+03,0.60390e+03,0.89099e+03,0.11787e+04 /) - kbo(:, 5,56,14) = (/ & - & 0.10404e+04,0.80937e+03,0.60290e+03,0.89024e+03,0.11777e+04 /) - kbo(:, 1,57,14) = (/ & - & 0.10408e+04,0.79150e+03,0.60742e+03,0.89593e+03,0.11860e+04 /) - kbo(:, 2,57,14) = (/ & - & 0.10640e+04,0.82150e+03,0.60641e+03,0.89422e+03,0.11831e+04 /) - kbo(:, 3,57,14) = (/ & - & 0.10551e+04,0.79661e+03,0.60501e+03,0.89288e+03,0.11813e+04 /) - kbo(:, 4,57,14) = (/ & - & 0.10817e+04,0.79118e+03,0.60413e+03,0.89133e+03,0.11792e+04 /) - kbo(:, 5,57,14) = (/ & - & 0.10370e+04,0.79629e+03,0.60341e+03,0.89015e+03,0.11781e+04 /) - kbo(:, 1,58,14) = (/ & - & 0.10442e+04,0.84033e+03,0.60809e+03,0.89672e+03,0.11869e+04 /) - kbo(:, 2,58,14) = (/ & - & 0.10934e+04,0.79820e+03,0.60680e+03,0.89466e+03,0.11837e+04 /) - kbo(:, 3,58,14) = (/ & - & 0.10657e+04,0.80043e+03,0.60544e+03,0.89329e+03,0.11818e+04 /) - kbo(:, 4,58,14) = (/ & - & 0.10223e+04,0.78480e+03,0.60435e+03,0.89175e+03,0.11798e+04 /) - kbo(:, 5,58,14) = (/ & - & 0.10438e+04,0.81735e+03,0.60364e+03,0.89074e+03,0.11789e+04 /) - kbo(:, 1,59,14) = (/ & - & 0.10513e+04,0.80331e+03,0.60826e+03,0.89709e+03,0.11883e+04 /) - kbo(:, 2,59,14) = (/ & - & 0.10429e+04,0.81799e+03,0.60696e+03,0.89486e+03,0.11840e+04 /) - kbo(:, 3,59,14) = (/ & - & 0.10400e+04,0.80905e+03,0.60537e+03,0.89345e+03,0.11830e+04 /) - kbo(:, 4,59,14) = (/ & - & 0.10488e+04,0.79628e+03,0.60443e+03,0.89194e+03,0.11800e+04 /) - kbo(:, 5,59,14) = (/ & - & 0.10795e+04,0.78415e+03,0.60372e+03,0.89082e+03,0.11785e+04 /) - kbo(:, 1,13,15) = (/ & - & 0.98934e+03,0.75572e+03,0.60810e+03,0.89364e+03,0.11812e+04 /) - kbo(:, 2,13,15) = (/ & - & 0.12809e+04,0.72091e+03,0.60670e+03,0.89251e+03,0.11797e+04 /) - kbo(:, 3,13,15) = (/ & - & 0.11704e+04,0.77844e+03,0.60529e+03,0.89171e+03,0.11787e+04 /) - kbo(:, 4,13,15) = (/ & - & 0.11159e+04,0.83495e+03,0.60430e+03,0.89110e+03,0.11779e+04 /) - kbo(:, 5,13,15) = (/ & - & 0.11939e+04,0.93553e+03,0.60355e+03,0.89003e+03,0.11765e+04 /) - kbo(:, 1,14,15) = (/ & - & 0.11963e+04,0.95315e+03,0.60753e+03,0.89338e+03,0.11810e+04 /) - kbo(:, 2,14,15) = (/ & - & 0.11729e+04,0.92141e+03,0.60616e+03,0.89229e+03,0.11796e+04 /) - kbo(:, 3,14,15) = (/ & - & 0.11471e+04,0.85602e+03,0.60478e+03,0.89154e+03,0.11786e+04 /) - kbo(:, 4,14,15) = (/ & - & 0.11824e+04,0.88196e+03,0.60401e+03,0.89091e+03,0.11778e+04 /) - kbo(:, 5,14,15) = (/ & - & 0.11271e+04,0.87462e+03,0.60324e+03,0.89075e+03,0.11763e+04 /) - kbo(:, 1,15,15) = (/ & - & 0.10604e+04,0.90519e+03,0.60703e+03,0.89409e+03,0.11809e+04 /) - kbo(:, 2,15,15) = (/ & - & 0.11577e+04,0.75557e+03,0.60568e+03,0.89209e+03,0.11795e+04 /) - kbo(:, 3,15,15) = (/ & - & 0.11406e+04,0.81803e+03,0.60438e+03,0.89138e+03,0.11785e+04 /) - kbo(:, 4,15,15) = (/ & - & 0.11847e+04,0.71960e+03,0.60376e+03,0.89073e+03,0.11790e+04 /) - kbo(:, 5,15,15) = (/ & - & 0.11179e+04,0.81112e+03,0.60296e+03,0.88859e+03,0.11787e+04 /) - kbo(:, 1,16,15) = (/ & - & 0.10356e+04,0.71983e+03,0.60659e+03,0.89194e+03,0.11820e+04 /) - kbo(:, 2,16,15) = (/ & - & 0.11364e+04,0.76870e+03,0.60526e+03,0.89190e+03,0.11794e+04 /) - kbo(:, 3,16,15) = (/ & - & 0.96034e+03,0.83277e+03,0.60407e+03,0.89124e+03,0.11785e+04 /) - kbo(:, 4,16,15) = (/ & - & 0.10077e+04,0.87988e+03,0.60354e+03,0.89055e+03,0.11776e+04 /) - kbo(:, 5,16,15) = (/ & - & 0.10422e+04,0.83397e+03,0.60335e+03,0.88931e+03,0.11759e+04 /) - kbo(:, 1,17,15) = (/ & - & 0.10091e+04,0.77782e+03,0.60621e+03,0.89269e+03,0.11805e+04 /) - kbo(:, 2,17,15) = (/ & - & 0.11716e+04,0.80971e+03,0.60425e+03,0.89175e+03,0.11793e+04 /) - kbo(:, 3,17,15) = (/ & - & 0.10550e+04,0.78786e+03,0.60385e+03,0.89112e+03,0.11784e+04 /) - kbo(:, 4,17,15) = (/ & - & 0.99990e+03,0.88096e+03,0.60335e+03,0.89039e+03,0.11774e+04 /) - kbo(:, 5,17,15) = (/ & - & 0.11263e+04,0.73127e+03,0.60311e+03,0.88908e+03,0.11770e+04 /) - kbo(:, 1,18,15) = (/ & - & 0.11151e+04,0.85991e+03,0.60588e+03,0.89155e+03,0.11804e+04 /) - kbo(:, 2,18,15) = (/ & - & 0.10413e+04,0.70815e+03,0.60458e+03,0.89161e+03,0.11791e+04 /) - kbo(:, 3,18,15) = (/ & - & 0.11058e+04,0.82037e+03,0.60370e+03,0.89101e+03,0.11783e+04 /) - kbo(:, 4,18,15) = (/ & - & 0.10134e+04,0.64109e+03,0.60383e+03,0.89024e+03,0.11786e+04 /) - kbo(:, 5,18,15) = (/ & - & 0.11497e+04,0.88170e+03,0.60224e+03,0.88981e+03,0.11767e+04 /) - kbo(:, 1,19,15) = (/ & - & 0.10261e+04,0.82130e+03,0.60625e+03,0.89236e+03,0.11802e+04 /) - kbo(:, 2,19,15) = (/ & - & 0.10077e+04,0.78017e+03,0.60431e+03,0.89148e+03,0.11778e+04 /) - kbo(:, 3,19,15) = (/ & - & 0.10505e+04,0.75163e+03,0.60422e+03,0.88995e+03,0.11782e+04 /) - kbo(:, 4,19,15) = (/ & - & 0.10498e+04,0.84163e+03,0.60302e+03,0.89009e+03,0.11772e+04 /) - kbo(:, 5,19,15) = (/ & - & 0.94853e+03,0.71012e+03,0.60269e+03,0.88958e+03,0.11765e+04 /) - kbo(:, 1,20,15) = (/ & - & 0.11198e+04,0.83291e+03,0.60532e+03,0.89221e+03,0.11814e+04 /) - kbo(:, 2,20,15) = (/ & - & 0.10146e+04,0.70988e+03,0.60473e+03,0.89136e+03,0.11789e+04 /) - kbo(:, 3,20,15) = (/ & - & 0.98440e+03,0.83872e+03,0.60345e+03,0.89080e+03,0.11781e+04 /) - kbo(:, 4,20,15) = (/ & - & 0.10595e+04,0.75621e+03,0.60286e+03,0.88992e+03,0.11770e+04 /) - kbo(:, 5,20,15) = (/ & - & 0.10274e+04,0.81836e+03,0.60247e+03,0.88836e+03,0.11749e+04 /) - kbo(:, 1,21,15) = (/ & - & 0.10788e+04,0.78645e+03,0.60506e+03,0.89207e+03,0.11799e+04 /) - kbo(:, 2,21,15) = (/ & - & 0.10852e+04,0.74295e+03,0.60386e+03,0.89125e+03,0.11788e+04 /) - kbo(:, 3,21,15) = (/ & - & 0.10428e+04,0.82396e+03,0.60333e+03,0.88973e+03,0.11780e+04 /) - kbo(:, 4,21,15) = (/ & - & 0.10018e+04,0.87387e+03,0.60336e+03,0.89071e+03,0.11768e+04 /) - kbo(:, 5,21,15) = (/ & - & 0.11155e+04,0.79293e+03,0.60225e+03,0.88809e+03,0.11746e+04 /) - kbo(:, 1,22,15) = (/ & - & 0.10301e+04,0.79445e+03,0.60539e+03,0.89186e+03,0.11797e+04 /) - kbo(:, 2,22,15) = (/ & - & 0.11174e+04,0.68851e+03,0.60364e+03,0.88919e+03,0.11787e+04 /) - kbo(:, 3,22,15) = (/ & - & 0.10845e+04,0.72821e+03,0.60320e+03,0.89053e+03,0.11779e+04 /) - kbo(:, 4,22,15) = (/ & - & 0.94182e+03,0.74129e+03,0.60185e+03,0.88948e+03,0.11777e+04 /) - kbo(:, 5,22,15) = (/ & - & 0.11256e+04,0.74069e+03,0.60323e+03,0.88766e+03,0.11740e+04 /) - kbo(:, 1,23,15) = (/ & - & 0.11218e+04,0.85968e+03,0.60443e+03,0.89167e+03,0.11795e+04 /) - kbo(:, 2,23,15) = (/ & - & 0.10449e+04,0.80739e+03,0.60218e+03,0.89100e+03,0.11785e+04 /) - kbo(:, 3,23,15) = (/ & - & 0.11277e+04,0.69098e+03,0.60306e+03,0.89036e+03,0.11777e+04 /) - kbo(:, 4,23,15) = (/ & - & 0.10580e+04,0.81384e+03,0.60228e+03,0.88919e+03,0.11761e+04 /) - kbo(:, 5,23,15) = (/ & - & 0.10279e+04,0.82530e+03,0.60094e+03,0.88718e+03,0.11734e+04 /) - kbo(:, 1,24,15) = (/ & - & 0.10227e+04,0.68179e+03,0.60412e+03,0.89149e+03,0.11792e+04 /) - kbo(:, 2,24,15) = (/ & - & 0.11518e+04,0.80624e+03,0.60338e+03,0.89088e+03,0.11784e+04 /) - kbo(:, 3,24,15) = (/ & - & 0.10788e+04,0.70820e+03,0.60290e+03,0.89016e+03,0.11787e+04 /) - kbo(:, 4,24,15) = (/ & - & 0.10466e+04,0.82233e+03,0.60268e+03,0.88884e+03,0.11757e+04 /) - kbo(:, 5,24,15) = (/ & - & 0.10066e+04,0.82618e+03,0.60057e+03,0.88665e+03,0.11740e+04 /) - kbo(:, 1,25,15) = (/ & - & 0.10780e+04,0.80937e+03,0.60386e+03,0.89131e+03,0.11790e+04 /) - kbo(:, 2,25,15) = (/ & - & 0.10199e+04,0.81059e+03,0.60327e+03,0.89075e+03,0.11782e+04 /) - kbo(:, 3,25,15) = (/ & - & 0.11207e+04,0.80162e+03,0.60338e+03,0.88992e+03,0.11771e+04 /) - kbo(:, 4,25,15) = (/ & - & 0.97495e+03,0.78589e+03,0.60305e+03,0.88845e+03,0.11751e+04 /) - kbo(:, 5,25,15) = (/ & - & 0.95428e+03,0.80945e+03,0.60015e+03,0.88605e+03,0.11720e+04 /) - kbo(:, 1,26,15) = (/ & - & 0.10862e+04,0.78235e+03,0.60361e+03,0.89115e+03,0.11801e+04 /) - kbo(:, 2,26,15) = (/ & - & 0.91581e+03,0.82546e+03,0.60381e+03,0.89059e+03,0.11780e+04 /) - kbo(:, 3,26,15) = (/ & - & 0.10920e+04,0.84813e+03,0.60253e+03,0.88964e+03,0.11767e+04 /) - kbo(:, 4,26,15) = (/ & - & 0.11174e+04,0.83078e+03,0.60207e+03,0.88892e+03,0.11745e+04 /) - kbo(:, 5,26,15) = (/ & - & 0.11159e+04,0.75128e+03,0.59967e+03,0.88536e+03,0.11723e+04 /) - kbo(:, 1,27,15) = (/ & - & 0.10835e+04,0.80424e+03,0.60343e+03,0.89101e+03,0.11786e+04 /) - kbo(:, 2,27,15) = (/ & - & 0.10910e+04,0.86525e+03,0.60302e+03,0.89041e+03,0.11778e+04 /) - kbo(:, 3,27,15) = (/ & - & 0.10210e+04,0.77642e+03,0.60231e+03,0.89027e+03,0.11763e+04 /) - kbo(:, 4,27,15) = (/ & - & 0.10645e+04,0.80598e+03,0.60105e+03,0.88742e+03,0.11751e+04 /) - kbo(:, 5,27,15) = (/ & - & 0.10451e+04,0.82023e+03,0.59981e+03,0.88559e+03,0.11701e+04 /) - kbo(:, 1,28,15) = (/ & - & 0.10856e+04,0.83991e+03,0.60332e+03,0.89088e+03,0.11784e+04 /) - kbo(:, 2,28,15) = (/ & - & 0.93268e+03,0.70779e+03,0.60288e+03,0.89019e+03,0.11788e+04 /) - kbo(:, 3,28,15) = (/ & - & 0.11243e+04,0.76544e+03,0.60205e+03,0.88894e+03,0.11758e+04 /) - kbo(:, 4,28,15) = (/ & - & 0.10096e+04,0.72189e+03,0.60064e+03,0.88682e+03,0.11730e+04 /) - kbo(:, 5,28,15) = (/ & - & 0.88490e+03,0.83821e+03,0.59801e+03,0.88198e+03,0.11692e+04 /) - kbo(:, 1,29,15) = (/ & - & 0.10218e+04,0.78897e+03,0.60322e+03,0.88978e+03,0.11783e+04 /) - kbo(:, 2,29,15) = (/ & - & 0.97223e+03,0.70803e+03,0.60270e+03,0.88994e+03,0.11772e+04 /) - kbo(:, 3,29,15) = (/ & - & 0.10729e+04,0.71638e+03,0.60175e+03,0.88850e+03,0.11752e+04 /) - kbo(:, 4,29,15) = (/ & - & 0.10369e+04,0.79357e+03,0.60017e+03,0.88614e+03,0.11734e+04 /) - kbo(:, 5,29,15) = (/ & - & 0.10748e+04,0.83591e+03,0.59814e+03,0.88321e+03,0.11671e+04 /) - kbo(:, 1,30,15) = (/ & - & 0.10681e+04,0.78838e+03,0.60311e+03,0.89058e+03,0.11780e+04 /) - kbo(:, 2,30,15) = (/ & - & 0.10690e+04,0.81372e+03,0.60250e+03,0.88965e+03,0.11768e+04 /) - kbo(:, 3,30,15) = (/ & - & 0.10330e+04,0.79065e+03,0.60271e+03,0.88800e+03,0.11759e+04 /) - kbo(:, 4,30,15) = (/ & - & 0.99812e+03,0.80751e+03,0.60032e+03,0.88541e+03,0.11712e+04 /) - kbo(:, 5,30,15) = (/ & - & 0.10394e+04,0.71741e+03,0.59705e+03,0.88643e+03,0.11676e+04 /) - kbo(:, 1,31,15) = (/ & - & 0.10025e+04,0.73187e+03,0.60298e+03,0.89039e+03,0.11778e+04 /) - kbo(:, 2,31,15) = (/ & - & 0.11099e+04,0.74280e+03,0.60227e+03,0.88930e+03,0.11763e+04 /) - kbo(:, 3,31,15) = (/ & - & 0.10884e+04,0.79617e+03,0.60102e+03,0.88838e+03,0.11738e+04 /) - kbo(:, 4,31,15) = (/ & - & 0.90245e+03,0.76637e+03,0.59915e+03,0.88368e+03,0.11701e+04 /) - kbo(:, 5,31,15) = (/ & - & 0.10031e+04,0.78751e+03,0.59673e+03,0.89640e+03,0.11644e+04 /) - kbo(:, 1,32,15) = (/ & - & 0.87663e+03,0.68400e+03,0.60283e+03,0.89016e+03,0.11775e+04 /) - kbo(:, 2,32,15) = (/ & - & 0.10467e+04,0.83071e+03,0.60330e+03,0.88890e+03,0.11758e+04 /) - kbo(:, 3,32,15) = (/ & - & 0.97045e+03,0.72881e+03,0.60123e+03,0.88677e+03,0.11730e+04 /) - kbo(:, 4,32,15) = (/ & - & 0.11080e+04,0.69141e+03,0.59860e+03,0.88193e+03,0.11679e+04 /) - kbo(:, 5,32,15) = (/ & - & 0.10206e+04,0.73037e+03,0.59837e+03,0.88358e+03,0.11726e+04 /) - kbo(:, 1,33,15) = (/ & - & 0.10520e+04,0.78807e+03,0.60265e+03,0.89086e+03,0.11771e+04 /) - kbo(:, 2,33,15) = (/ & - & 0.98139e+03,0.81175e+03,0.60169e+03,0.88843e+03,0.11752e+04 /) - kbo(:, 3,33,15) = (/ & - & 0.11223e+04,0.75994e+03,0.60074e+03,0.88510e+03,0.11720e+04 /) - kbo(:, 4,33,15) = (/ & - & 0.10271e+04,0.75564e+03,0.59806e+03,0.88218e+03,0.11708e+04 /) - kbo(:, 5,33,15) = (/ & - & 0.10438e+04,0.78527e+03,0.59677e+03,0.88217e+03,0.11682e+04 /) - kbo(:, 1,34,15) = (/ & - & 0.10293e+04,0.82175e+03,0.60313e+03,0.88963e+03,0.11768e+04 /) - kbo(:, 2,34,15) = (/ & - & 0.11086e+04,0.80472e+03,0.60138e+03,0.88797e+03,0.11746e+04 /) - kbo(:, 3,34,15) = (/ & - & 0.10235e+04,0.72497e+03,0.60029e+03,0.88634e+03,0.11724e+04 /) - kbo(:, 4,34,15) = (/ & - & 0.10022e+04,0.79360e+03,0.59703e+03,0.88927e+03,0.11777e+04 /) - kbo(:, 5,34,15) = (/ & - & 0.11107e+04,0.84019e+03,0.59650e+03,0.88082e+03,0.11651e+04 /) - kbo(:, 1,35,15) = (/ & - & 0.10782e+04,0.81052e+03,0.60236e+03,0.89138e+03,0.11766e+04 /) - kbo(:, 2,35,15) = (/ & - & 0.89922e+03,0.74859e+03,0.60119e+03,0.88769e+03,0.11729e+04 /) - kbo(:, 3,35,15) = (/ & - & 0.10088e+04,0.71209e+03,0.59938e+03,0.88499e+03,0.11706e+04 /) - kbo(:, 4,35,15) = (/ & - & 0.96175e+03,0.77055e+03,0.60072e+03,0.87852e+03,0.11710e+04 /) - kbo(:, 5,35,15) = (/ & - & 0.10310e+04,0.84426e+03,0.59635e+03,0.88059e+03,0.11648e+04 /) - kbo(:, 1,36,15) = (/ & - & 0.10188e+04,0.85190e+03,0.60234e+03,0.88943e+03,0.11765e+04 /) - kbo(:, 2,36,15) = (/ & - & 0.10154e+04,0.76964e+03,0.60245e+03,0.88859e+03,0.11741e+04 /) - kbo(:, 3,36,15) = (/ & - & 0.10902e+04,0.77130e+03,0.59998e+03,0.88588e+03,0.11705e+04 /) - kbo(:, 4,36,15) = (/ & - & 0.98172e+03,0.79246e+03,0.59876e+03,0.89371e+03,0.11495e+04 /) - kbo(:, 5,36,15) = (/ & - & 0.10409e+04,0.75260e+03,0.59632e+03,0.88055e+03,0.11660e+04 /) - kbo(:, 1,37,15) = (/ & - & 0.10398e+04,0.81024e+03,0.60310e+03,0.88960e+03,0.11767e+04 /) - kbo(:, 2,37,15) = (/ & - & 0.94253e+03,0.72207e+03,0.60199e+03,0.88792e+03,0.11745e+04 /) - kbo(:, 3,37,15) = (/ & - & 0.11326e+04,0.78984e+03,0.60024e+03,0.88532e+03,0.11710e+04 /) - kbo(:, 4,37,15) = (/ & - & 0.10789e+04,0.84320e+03,0.59634e+03,0.88350e+03,0.11688e+04 /) - kbo(:, 5,37,15) = (/ & - & 0.10084e+04,0.82623e+03,0.59647e+03,0.88078e+03,0.11651e+04 /) - kbo(:, 1,38,15) = (/ & - & 0.99835e+03,0.77031e+03,0.60321e+03,0.88977e+03,0.11782e+04 /) - kbo(:, 2,38,15) = (/ & - & 0.11135e+04,0.73046e+03,0.60283e+03,0.88917e+03,0.11749e+04 /) - kbo(:, 3,38,15) = (/ & - & 0.10419e+04,0.72620e+03,0.59987e+03,0.88669e+03,0.11716e+04 /) - kbo(:, 4,38,15) = (/ & - & 0.10631e+04,0.75245e+03,0.59721e+03,0.88572e+03,0.11692e+04 /) - kbo(:, 5,38,15) = (/ & - & 0.10228e+04,0.73209e+03,0.59792e+03,0.88102e+03,0.11654e+04 /) - kbo(:, 1,39,15) = (/ & - & 0.10910e+04,0.86853e+03,0.60266e+03,0.88992e+03,0.11772e+04 /) - kbo(:, 2,39,15) = (/ & - & 0.10519e+04,0.73802e+03,0.60236e+03,0.88944e+03,0.11753e+04 /) - kbo(:, 3,39,15) = (/ & - & 0.90206e+03,0.82442e+03,0.60079e+03,0.88708e+03,0.11721e+04 /) - kbo(:, 4,39,15) = (/ & - & 0.10954e+04,0.83033e+03,0.59811e+03,0.88319e+03,0.11696e+04 /) - kbo(:, 5,39,15) = (/ & - & 0.92773e+03,0.79134e+03,0.59808e+03,0.88316e+03,0.11657e+04 /) - kbo(:, 1,40,15) = (/ & - & 0.10887e+04,0.78119e+03,0.60281e+03,0.89016e+03,0.11775e+04 /) - kbo(:, 2,40,15) = (/ & - & 0.10361e+04,0.78964e+03,0.60199e+03,0.88890e+03,0.11758e+04 /) - kbo(:, 3,40,15) = (/ & - & 0.10674e+04,0.81250e+03,0.60058e+03,0.88678e+03,0.11730e+04 /) - kbo(:, 4,40,15) = (/ & - & 0.11076e+04,0.76250e+03,0.59989e+03,0.88480e+03,0.11679e+04 /) - kbo(:, 5,40,15) = (/ & - & 0.11154e+04,0.83280e+03,0.59900e+03,0.88168e+03,0.11814e+04 /) - kbo(:, 1,41,15) = (/ & - & 0.10350e+04,0.79893e+03,0.60296e+03,0.89038e+03,0.11778e+04 /) - kbo(:, 2,41,15) = (/ & - & 0.10104e+04,0.69640e+03,0.60225e+03,0.88929e+03,0.11763e+04 /) - kbo(:, 3,41,15) = (/ & - & 0.10193e+04,0.78110e+03,0.60100e+03,0.88741e+03,0.11751e+04 /) - kbo(:, 4,41,15) = (/ & - & 0.10785e+04,0.73450e+03,0.59977e+03,0.88368e+03,0.11701e+04 /) - kbo(:, 5,41,15) = (/ & - & 0.96003e+03,0.80480e+03,0.59865e+03,0.90400e+03,0.11833e+04 /) - kbo(:, 1,42,15) = (/ & - & 0.97569e+03,0.77685e+03,0.60307e+03,0.89056e+03,0.11793e+04 /) - kbo(:, 2,42,15) = (/ & - & 0.98796e+03,0.83953e+03,0.60247e+03,0.88963e+03,0.11768e+04 /) - kbo(:, 3,42,15) = (/ & - & 0.10852e+04,0.82427e+03,0.60332e+03,0.88798e+03,0.11746e+04 /) - kbo(:, 4,42,15) = (/ & - & 0.10360e+04,0.83188e+03,0.59965e+03,0.88636e+03,0.11712e+04 /) - kbo(:, 5,42,15) = (/ & - & 0.10125e+04,0.74885e+03,0.59702e+03,0.88356e+03,0.11676e+04 /) - kbo(:, 1,43,15) = (/ & - & 0.91082e+03,0.72514e+03,0.60320e+03,0.89075e+03,0.11796e+04 /) - kbo(:, 2,43,15) = (/ & - & 0.82029e+03,0.80137e+03,0.60335e+03,0.88998e+03,0.11773e+04 /) - kbo(:, 3,43,15) = (/ & - & 0.11298e+04,0.78950e+03,0.60243e+03,0.88859e+03,0.11754e+04 /) - kbo(:, 4,43,15) = (/ & - & 0.10717e+04,0.65904e+03,0.60090e+03,0.88726e+03,0.11724e+04 /) - kbo(:, 5,43,15) = (/ & - & 0.89290e+03,0.78779e+03,0.59823e+03,0.88240e+03,0.11774e+04 /) - kbo(:, 1,44,15) = (/ & - & 0.10292e+04,0.72935e+03,0.60266e+03,0.89093e+03,0.11785e+04 /) - kbo(:, 2,44,15) = (/ & - & 0.10616e+04,0.76323e+03,0.60355e+03,0.89030e+03,0.11790e+04 /) - kbo(:, 3,44,15) = (/ & - & 0.10058e+04,0.82082e+03,0.60215e+03,0.88915e+03,0.11762e+04 /) - kbo(:, 4,44,15) = (/ & - & 0.96216e+03,0.76914e+03,0.60084e+03,0.88814e+03,0.11735e+04 /) - kbo(:, 5,44,15) = (/ & - & 0.10069e+04,0.76998e+03,0.59893e+03,0.88624e+03,0.11672e+04 /) - kbo(:, 1,45,15) = (/ & - & 0.92082e+03,0.79879e+03,0.60350e+03,0.89110e+03,0.11788e+04 /) - kbo(:, 2,45,15) = (/ & - & 0.96551e+03,0.79963e+03,0.60307e+03,0.89055e+03,0.11780e+04 /) - kbo(:, 3,45,15) = (/ & - & 0.10337e+04,0.76320e+03,0.60246e+03,0.88962e+03,0.11768e+04 /) - kbo(:, 4,45,15) = (/ & - & 0.97219e+03,0.72677e+03,0.60201e+03,0.88795e+03,0.11746e+04 /) - kbo(:, 5,45,15) = (/ & - & 0.10146e+04,0.80892e+03,0.59962e+03,0.88632e+03,0.11711e+04 /) - kbo(:, 1,46,15) = (/ & - & 0.10772e+04,0.81655e+03,0.60383e+03,0.89135e+03,0.11792e+04 /) - kbo(:, 2,46,15) = (/ & - & 0.98671e+03,0.73523e+03,0.60321e+03,0.89077e+03,0.11796e+04 /) - kbo(:, 3,46,15) = (/ & - & 0.10348e+04,0.84026e+03,0.60272e+03,0.89002e+03,0.11773e+04 /) - kbo(:, 4,46,15) = (/ & - & 0.11018e+04,0.66661e+03,0.60312e+03,0.88865e+03,0.11755e+04 /) - kbo(:, 5,46,15) = (/ & - & 0.10012e+04,0.71404e+03,0.60161e+03,0.88639e+03,0.11725e+04 /) - kbo(:, 1,47,15) = (/ & - & 0.10560e+04,0.78520e+03,0.60429e+03,0.89072e+03,0.11796e+04 /) - kbo(:, 2,47,15) = (/ & - & 0.10627e+04,0.82754e+03,0.60335e+03,0.89097e+03,0.11773e+04 /) - kbo(:, 3,47,15) = (/ & - & 0.10705e+04,0.76570e+03,0.60295e+03,0.89038e+03,0.11791e+04 /) - kbo(:, 4,47,15) = (/ & - & 0.11051e+04,0.83346e+03,0.60225e+03,0.89026e+03,0.11789e+04 /) - kbo(:, 5,47,15) = (/ & - & 0.10627e+04,0.79957e+03,0.60100e+03,0.88742e+03,0.11738e+04 /) - kbo(:, 1,48,15) = (/ & - & 0.10526e+04,0.83431e+03,0.60478e+03,0.89205e+03,0.11801e+04 /) - kbo(:, 2,48,15) = (/ & - & 0.11375e+04,0.74537e+03,0.60363e+03,0.89121e+03,0.11790e+04 /) - kbo(:, 3,48,15) = (/ & - & 0.10571e+04,0.77077e+03,0.60313e+03,0.89066e+03,0.11782e+04 /) - kbo(:, 4,48,15) = (/ & - & 0.10694e+04,0.73604e+03,0.60258e+03,0.88981e+03,0.11770e+04 /) - kbo(:, 5,48,15) = (/ & - & 0.11062e+04,0.66828e+03,0.60158e+03,0.88925e+03,0.11750e+04 /) - kbo(:, 1,49,15) = (/ & - & 0.10727e+04,0.73859e+03,0.60462e+03,0.89249e+03,0.11807e+04 /) - kbo(:, 2,49,15) = (/ & - & 0.11006e+04,0.84446e+03,0.60404e+03,0.89152e+03,0.11794e+04 /) - kbo(:, 3,49,15) = (/ & - & 0.96096e+03,0.73858e+03,0.60393e+03,0.89088e+03,0.11785e+04 /) - kbo(:, 4,49,15) = (/ & - & 0.11140e+04,0.80464e+03,0.60285e+03,0.89021e+03,0.11776e+04 /) - kbo(:, 5,49,15) = (/ & - & 0.10928e+04,0.75297e+03,0.60205e+03,0.88996e+03,0.11760e+04 /) - kbo(:, 1,50,15) = (/ & - & 0.10626e+04,0.84953e+03,0.60572e+03,0.89295e+03,0.11814e+04 /) - kbo(:, 2,50,15) = (/ & - & 0.11017e+04,0.71824e+03,0.60451e+03,0.89185e+03,0.11811e+04 /) - kbo(:, 3,50,15) = (/ & - & 0.10336e+04,0.71570e+03,0.60345e+03,0.89107e+03,0.11800e+04 /) - kbo(:, 4,50,15) = (/ & - & 0.95200e+03,0.76482e+03,0.60304e+03,0.89051e+03,0.11793e+04 /) - kbo(:, 5,50,15) = (/ & - & 0.96988e+03,0.83512e+03,0.60306e+03,0.88954e+03,0.11767e+04 /) - kbo(:, 1,51,15) = (/ & - & 0.11017e+04,0.77329e+03,0.60615e+03,0.89371e+03,0.11825e+04 /) - kbo(:, 2,51,15) = (/ & - & 0.10950e+04,0.81479e+03,0.60496e+03,0.89123e+03,0.11790e+04 /) - kbo(:, 3,51,15) = (/ & - & 0.99893e+03,0.69452e+03,0.60377e+03,0.89131e+03,0.11791e+04 /) - kbo(:, 4,51,15) = (/ & - & 0.10704e+04,0.82834e+03,0.60319e+03,0.89074e+03,0.11783e+04 /) - kbo(:, 5,51,15) = (/ & - & 0.10391e+04,0.80716e+03,0.60333e+03,0.89092e+03,0.11772e+04 /) - kbo(:, 1,52,15) = (/ & - & 0.10358e+04,0.83681e+03,0.60593e+03,0.89390e+03,0.11828e+04 /) - kbo(:, 2,52,15) = (/ & - & 0.95423e+03,0.78599e+03,0.60540e+03,0.89262e+03,0.11809e+04 /) - kbo(:, 3,52,15) = (/ & - & 0.98439e+03,0.83257e+03,0.60417e+03,0.89064e+03,0.11795e+04 /) - kbo(:, 4,52,15) = (/ & - & 0.10548e+04,0.77074e+03,0.60331e+03,0.89093e+03,0.11786e+04 /) - kbo(:, 5,52,15) = (/ & - & 0.10358e+04,0.81478e+03,0.60291e+03,0.89030e+03,0.11777e+04 /) - kbo(:, 1,53,15) = (/ & - & 0.96204e+03,0.74448e+03,0.60716e+03,0.89629e+03,0.11860e+04 /) - kbo(:, 2,53,15) = (/ & - & 0.10872e+04,0.75126e+03,0.60583e+03,0.89310e+03,0.11816e+04 /) - kbo(:, 3,53,15) = (/ & - & 0.90617e+03,0.75210e+03,0.60463e+03,0.89194e+03,0.11800e+04 /) - kbo(:, 4,53,15) = (/ & - & 0.97991e+03,0.76565e+03,0.60352e+03,0.89113e+03,0.11788e+04 /) - kbo(:, 5,53,15) = (/ & - & 0.10425e+04,0.76988e+03,0.60308e+03,0.89058e+03,0.11793e+04 /) - kbo(:, 1,54,15) = (/ & - & 0.10112e+04,0.55645e+03,0.60785e+03,0.89766e+03,0.11878e+04 /) - kbo(:, 2,54,15) = (/ & - & 0.10637e+04,0.66232e+03,0.60623e+03,0.89389e+03,0.11827e+04 /) - kbo(:, 3,54,15) = (/ & - & 0.88717e+03,0.63014e+03,0.60503e+03,0.89226e+03,0.11804e+04 /) - kbo(:, 4,54,15) = (/ & - & 0.10369e+04,0.84103e+03,0.60384e+03,0.89232e+03,0.11792e+04 /) - kbo(:, 5,54,15) = (/ & - & 0.10000e+04,0.70043e+03,0.60321e+03,0.89174e+03,0.11783e+04 /) - kbo(:, 1,55,15) = (/ & - & 0.10615e+04,0.77920e+03,0.60858e+03,0.89903e+03,0.11896e+04 /) - kbo(:, 2,55,15) = (/ & - & 0.10425e+04,0.78513e+03,0.60661e+03,0.89494e+03,0.11829e+04 /) - kbo(:, 3,55,15) = (/ & - & 0.10916e+04,0.73854e+03,0.60542e+03,0.89361e+03,0.11809e+04 /) - kbo(:, 4,55,15) = (/ & - & 0.10715e+04,0.78936e+03,0.60420e+03,0.89162e+03,0.11795e+04 /) - kbo(:, 5,55,15) = (/ & - & 0.96091e+03,0.82578e+03,0.60397e+03,0.89094e+03,0.11773e+04 /) - kbo(:, 1,56,15) = (/ & - & 0.10458e+04,0.77242e+03,0.60942e+03,0.90044e+03,0.11915e+04 /) - kbo(:, 2,56,15) = (/ & - & 0.11062e+04,0.77581e+03,0.60712e+03,0.89619e+03,0.11859e+04 /) - kbo(:, 3,56,15) = (/ & - & 0.10883e+04,0.80121e+03,0.60580e+03,0.89306e+03,0.11815e+04 /) - kbo(:, 4,56,15) = (/ & - & 0.10726e+04,0.82069e+03,0.60459e+03,0.89192e+03,0.11799e+04 /) - kbo(:, 5,56,15) = (/ & - & 0.11263e+04,0.78597e+03,0.60416e+03,0.89111e+03,0.11788e+04 /) - kbo(:, 1,57,15) = (/ & - & 0.11095e+04,0.76988e+03,0.61034e+03,0.90190e+03,0.11935e+04 /) - kbo(:, 2,57,15) = (/ & - & 0.97543e+03,0.72583e+03,0.60777e+03,0.89749e+03,0.11876e+04 /) - kbo(:, 3,57,15) = (/ & - & 0.98548e+03,0.78597e+03,0.60618e+03,0.89378e+03,0.11826e+04 /) - kbo(:, 4,57,15) = (/ & - & 0.98213e+03,0.81053e+03,0.60499e+03,0.89222e+03,0.11804e+04 /) - kbo(:, 5,57,15) = (/ & - & 0.10760e+04,0.81137e+03,0.60380e+03,0.89133e+03,0.11791e+04 /) - kbo(:, 1,58,15) = (/ & - & 0.10034e+04,0.71059e+03,0.61128e+03,0.90333e+03,0.11954e+04 /) - kbo(:, 2,58,15) = (/ & - & 0.97431e+03,0.80290e+03,0.60845e+03,0.89878e+03,0.11893e+04 /) - kbo(:, 3,58,15) = (/ & - & 0.95308e+03,0.77157e+03,0.60654e+03,0.89474e+03,0.11839e+04 /) - kbo(:, 4,58,15) = (/ & - & 0.10737e+04,0.87404e+03,0.60535e+03,0.89257e+03,0.11808e+04 /) - kbo(:, 5,58,15) = (/ & - & 0.10626e+04,0.67671e+03,0.60413e+03,0.89157e+03,0.11782e+04 /) - kbo(:, 1,59,15) = (/ & - & 0.98325e+03,0.78258e+03,0.61167e+03,0.90392e+03,0.11962e+04 /) - kbo(:, 2,59,15) = (/ & - & 0.10481e+04,0.74785e+03,0.60874e+03,0.89931e+03,0.11900e+04 /) - kbo(:, 3,59,15) = (/ & - & 0.11151e+04,0.73006e+03,0.60669e+03,0.89518e+03,0.11820e+04 /) - kbo(:, 4,59,15) = (/ & - & 0.10425e+04,0.79358e+03,0.60550e+03,0.89369e+03,0.11810e+04 /) - kbo(:, 5,59,15) = (/ & - & 0.97877e+03,0.79866e+03,0.60428e+03,0.89168e+03,0.11796e+04 /) - kbo(:, 1,13,16) = (/ & - & 0.75523e+03,0.86786e+03,0.60838e+03,0.89385e+03,0.11815e+04 /) - kbo(:, 2,13,16) = (/ & - & 0.10580e+03,0.52074e+03,0.60685e+03,0.89272e+03,0.11800e+04 /) - kbo(:, 3,13,16) = (/ & - & 0.88450e+03,0.99478e+02,0.60069e+03,0.89217e+03,0.11793e+04 /) - kbo(:, 4,13,16) = (/ & - & 0.47883e+03,0.85714e+02,0.60445e+03,0.89133e+03,0.11782e+04 /) - kbo(:, 5,13,16) = (/ & - & 0.30313e+03,0.39357e+02,0.60363e+03,0.89015e+03,0.11767e+04 /) - kbo(:, 1,14,16) = (/ & - & 0.59250e+03,0.12538e+03,0.60779e+03,0.89359e+03,0.11813e+04 /) - kbo(:, 2,14,16) = (/ & - & 0.45021e+03,0.30819e+03,0.60630e+03,0.89255e+03,0.11799e+04 /) - kbo(:, 3,14,16) = (/ & - & 0.38746e+03,0.31955e+03,0.60482e+03,0.89198e+03,0.11792e+04 /) - kbo(:, 4,14,16) = (/ & - & 0.59123e+03,0.24014e+03,0.60415e+03,0.89112e+03,0.11781e+04 /) - kbo(:, 5,14,16) = (/ & - & 0.47780e+03,0.41362e+03,0.60332e+03,0.88306e+03,0.11765e+04 /) - kbo(:, 1,15,16) = (/ & - & 0.10202e+04,0.29221e+03,0.60727e+03,0.88647e+03,0.11812e+04 /) - kbo(:, 2,15,16) = (/ & - & 0.55435e+03,0.58788e+03,0.60581e+03,0.89239e+03,0.11799e+04 /) - kbo(:, 3,15,16) = (/ & - & 0.31413e+03,0.75889e+03,0.60450e+03,0.89181e+03,0.11791e+04 /) - kbo(:, 4,15,16) = (/ & - & 0.41436e+03,0.80717e+03,0.60389e+03,0.89092e+03,0.11689e+04 /) - kbo(:, 5,15,16) = (/ & - & 0.84269e+03,0.27451e+03,0.60303e+03,0.88966e+03,0.11582e+04 /) - kbo(:, 1,16,16) = (/ & - & 0.19456e+03,0.24351e+03,0.60682e+03,0.89311e+03,0.11719e+04 /) - kbo(:, 2,16,16) = (/ & - & 0.43800e+03,0.21696e+03,0.60538e+03,0.89225e+03,0.11798e+04 /) - kbo(:, 3,16,16) = (/ & - & 0.73851e+03,0.22888e+03,0.60428e+03,0.89164e+03,0.11790e+04 /) - kbo(:, 4,16,16) = (/ & - & 0.83650e+03,0.13309e+03,0.60366e+03,0.89073e+03,0.11778e+04 /) - kbo(:, 5,16,16) = (/ & - & 0.65895e+03,0.36022e+03,0.59813e+03,0.88942e+03,0.11670e+04 /) - kbo(:, 1,17,16) = (/ & - & 0.97890e+03,0.27257e+03,0.60643e+03,0.89290e+03,0.11808e+04 /) - kbo(:, 2,17,16) = (/ & - & 0.21678e+03,0.36639e+03,0.60501e+03,0.89213e+03,0.11797e+04 /) - kbo(:, 3,17,16) = (/ & - & 0.36576e+03,0.64243e+03,0.60409e+03,0.89150e+03,0.11789e+04 /) - kbo(:, 4,17,16) = (/ & - & 0.71301e+03,0.32666e+03,0.60345e+03,0.89056e+03,0.11777e+04 /) - kbo(:, 5,17,16) = (/ & - & 0.30605e+03,0.68315e+03,0.59789e+03,0.88918e+03,0.11668e+04 /) - kbo(:, 1,18,16) = (/ & - & 0.52238e+03,0.17591e+03,0.60609e+03,0.89271e+03,0.11807e+04 /) - kbo(:, 2,18,16) = (/ & - & 0.10253e+04,0.75807e+03,0.60468e+03,0.89202e+03,0.11797e+04 /) - kbo(:, 3,18,16) = (/ & - & 0.23095e+03,0.31874e+03,0.60392e+03,0.89136e+03,0.11788e+04 /) - kbo(:, 4,18,16) = (/ & - & 0.55144e+03,0.80452e+03,0.59863e+03,0.89039e+03,0.11685e+04 /) - kbo(:, 5,18,16) = (/ & - & 0.36145e+03,0.21165e+03,0.60231e+03,0.88211e+03,0.11666e+04 /) - kbo(:, 1,19,16) = (/ & - & 0.10124e+04,0.51143e+03,0.60113e+03,0.89253e+03,0.11805e+04 /) - kbo(:, 2,19,16) = (/ & - & 0.54199e+03,0.26758e+03,0.60439e+03,0.89192e+03,0.11796e+04 /) - kbo(:, 3,19,16) = (/ & - & 0.61467e+03,0.78253e+03,0.59913e+03,0.89123e+03,0.11787e+04 /) - kbo(:, 4,19,16) = (/ & - & 0.58906e+03,0.74398e+02,0.60311e+03,0.89023e+03,0.11774e+04 /) - kbo(:, 5,19,16) = (/ & - & 0.98025e+03,0.28476e+03,0.59747e+03,0.88189e+03,0.11663e+04 /) - kbo(:, 1,20,16) = (/ & - & 0.25361e+03,0.16739e+03,0.60550e+03,0.89234e+03,0.11712e+04 /) - kbo(:, 2,20,16) = (/ & - & 0.70227e+03,0.71784e+03,0.59948e+03,0.89182e+03,0.11795e+04 /) - kbo(:, 3,20,16) = (/ & - & 0.89681e+03,0.24714e+03,0.60364e+03,0.89109e+03,0.11786e+04 /) - kbo(:, 4,20,16) = (/ & - & 0.30123e+03,0.54911e+03,0.60295e+03,0.89006e+03,0.11772e+04 /) - kbo(:, 5,20,16) = (/ & - & 0.68301e+03,0.36973e+03,0.59725e+03,0.88846e+03,0.11750e+04 /) - kbo(:, 1,21,16) = (/ & - & 0.25236e+03,0.80202e+03,0.60523e+03,0.89218e+03,0.11801e+04 /) - kbo(:, 2,21,16) = (/ & - & 0.77221e+03,0.62834e+03,0.60401e+03,0.89171e+03,0.11794e+04 /) - kbo(:, 3,21,16) = (/ & - & 0.70626e+03,0.20918e+03,0.60351e+03,0.89096e+03,0.11784e+04 /) - kbo(:, 4,21,16) = (/ & - & 0.16217e+03,0.14134e+03,0.59816e+03,0.88303e+03,0.11770e+04 /) - kbo(:, 5,21,16) = (/ & - & 0.51843e+03,0.20259e+03,0.59703e+03,0.88818e+03,0.11747e+04 /) - kbo(:, 1,22,16) = (/ & - & 0.21890e+03,0.24577e+03,0.60023e+03,0.89209e+03,0.11799e+04 /) - kbo(:, 2,22,16) = (/ & - & 0.30771e+03,0.55233e+03,0.60388e+03,0.89157e+03,0.11793e+04 /) - kbo(:, 3,22,16) = (/ & - & 0.17796e+03,0.48432e+03,0.60334e+03,0.89076e+03,0.11782e+04 /) - kbo(:, 4,22,16) = (/ & - & 0.88899e+03,0.36751e+03,0.60258e+03,0.88960e+03,0.11676e+04 /) - kbo(:, 5,22,16) = (/ & - & 0.37953e+03,0.56918e+03,0.58746e+03,0.88775e+03,0.11742e+04 /) - kbo(:, 1,23,16) = (/ & - & 0.42018e+03,0.21434e+03,0.60456e+03,0.89198e+03,0.11798e+04 /) - kbo(:, 2,23,16) = (/ & - & 0.10252e+04,0.32427e+03,0.60375e+03,0.89142e+03,0.11791e+04 /) - kbo(:, 3,23,16) = (/ & - & 0.25811e+03,0.61743e+03,0.60318e+03,0.89055e+03,0.11779e+04 /) - kbo(:, 4,23,16) = (/ & - & 0.60449e+03,0.28100e+03,0.60235e+03,0.88930e+03,0.11762e+04 /) - kbo(:, 5,23,16) = (/ & - & 0.43495e+03,0.18925e+03,0.60100e+03,0.88727e+03,0.11735e+04 /) - kbo(:, 1,24,16) = (/ & - & 0.68497e+03,0.77568e+03,0.60423e+03,0.89188e+03,0.11797e+04 /) - kbo(:, 2,24,16) = (/ & - & 0.27378e+03,0.43332e+03,0.60362e+03,0.89125e+03,0.11789e+04 /) - kbo(:, 3,24,16) = (/ & - & 0.44258e+03,0.48182e+03,0.60301e+03,0.89032e+03,0.11686e+04 /) - kbo(:, 4,24,16) = (/ & - & 0.38603e+03,0.34135e+03,0.59747e+03,0.88895e+03,0.11758e+04 /) - kbo(:, 5,24,16) = (/ & - & 0.39386e+03,0.54222e+03,0.60062e+03,0.88674e+03,0.11638e+04 /) - kbo(:, 1,25,16) = (/ & - & 0.55482e+03,0.53022e+03,0.60394e+03,0.89175e+03,0.11796e+04 /) - kbo(:, 2,25,16) = (/ & - & 0.90002e+03,0.91361e+02,0.60348e+03,0.89107e+03,0.11787e+04 /) - kbo(:, 3,25,16) = (/ & - & 0.17670e+03,0.51744e+03,0.59819e+03,0.89007e+03,0.11773e+04 /) - kbo(:, 4,25,16) = (/ & - & 0.44153e+03,0.41376e+03,0.59256e+03,0.88854e+03,0.11753e+04 /) - kbo(:, 5,25,16) = (/ & - & 0.24073e+03,0.21288e+03,0.60020e+03,0.88614e+03,0.11721e+04 /) - kbo(:, 1,26,16) = (/ & - & 0.37725e+03,0.61445e+03,0.60383e+03,0.89161e+03,0.11703e+04 /) - kbo(:, 2,26,16) = (/ & - & 0.10269e+04,0.42565e+03,0.59868e+03,0.89085e+03,0.11784e+04 /) - kbo(:, 3,26,16) = (/ & - & 0.49719e+03,0.26744e+03,0.60261e+03,0.88977e+03,0.11769e+04 /) - kbo(:, 4,26,16) = (/ & - & 0.41684e+03,0.19443e+03,0.59685e+03,0.88123e+03,0.11746e+04 /) - kbo(:, 5,26,16) = (/ & - & 0.32855e+03,0.57095e+03,0.59973e+03,0.88545e+03,0.11622e+04 /) - kbo(:, 1,27,16) = (/ & - & 0.60914e+03,0.57105e+03,0.60371e+03,0.89145e+03,0.11792e+04 /) - kbo(:, 2,27,16) = (/ & - & 0.26439e+03,0.15182e+03,0.60316e+03,0.89062e+03,0.11781e+04 /) - kbo(:, 3,27,16) = (/ & - & 0.73685e+03,0.69813e+03,0.60238e+03,0.88259e+03,0.11765e+04 /) - kbo(:, 4,27,16) = (/ & - & 0.64054e+03,0.28524e+03,0.60110e+03,0.88751e+03,0.11649e+04 /) - kbo(:, 5,27,16) = (/ & - & 0.75244e+03,0.50359e+03,0.59461e+03,0.87791e+03,0.11702e+04 /) - kbo(:, 1,28,16) = (/ & - & 0.64046e+03,0.15170e+03,0.60358e+03,0.89127e+03,0.11790e+04 /) - kbo(:, 2,28,16) = (/ & - & 0.70429e+03,0.23052e+03,0.60299e+03,0.89037e+03,0.11687e+04 /) - kbo(:, 3,28,16) = (/ & - & 0.44006e+03,0.41240e+03,0.60212e+03,0.88904e+03,0.11760e+04 /) - kbo(:, 4,28,16) = (/ & - & 0.22398e+03,0.59419e+03,0.60069e+03,0.88691e+03,0.11731e+04 /) - kbo(:, 5,28,16) = (/ & - & 0.55183e+03,0.13336e+03,0.59871e+03,0.87038e+03,0.11692e+04 /) - kbo(:, 1,29,16) = (/ & - & 0.59987e+03,0.49106e+03,0.60344e+03,0.89107e+03,0.11787e+04 /) - kbo(:, 2,29,16) = (/ & - & 0.34384e+03,0.96976e+02,0.60280e+03,0.89009e+03,0.11774e+04 /) - kbo(:, 3,29,16) = (/ & - & 0.54363e+03,0.20603e+03,0.60181e+03,0.88860e+03,0.11754e+04 /) - kbo(:, 4,29,16) = (/ & - & 0.10391e+04,0.38775e+03,0.60023e+03,0.88623e+03,0.11632e+04 /) - kbo(:, 5,29,16) = (/ & - & 0.22377e+03,0.17567e+03,0.59820e+03,0.88324e+03,0.11684e+04 /) - kbo(:, 1,30,16) = (/ & - & 0.63138e+03,0.68455e+03,0.60329e+03,0.89085e+03,0.11784e+04 /) - kbo(:, 2,30,16) = (/ & - & 0.58332e+03,0.21199e+03,0.60259e+03,0.88978e+03,0.11770e+04 /) - kbo(:, 3,30,16) = (/ & - & 0.33555e+03,0.46024e+03,0.59221e+03,0.88809e+03,0.11657e+04 /) - kbo(:, 4,30,16) = (/ & - & 0.44733e+03,0.32696e+03,0.59512e+03,0.88550e+03,0.11713e+04 /) - kbo(:, 5,30,16) = (/ & - & 0.79071e+03,0.72043e+03,0.59773e+03,0.85548e+03,0.11586e+04 /) - kbo(:, 1,31,16) = (/ & - & 0.81471e+03,0.68414e+03,0.60312e+03,0.89060e+03,0.11781e+04 /) - kbo(:, 2,31,16) = (/ & - & 0.44722e+03,0.73246e+03,0.60235e+03,0.88942e+03,0.11765e+04 /) - kbo(:, 3,31,16) = (/ & - & 0.48709e+03,0.24210e+03,0.60108e+03,0.88068e+03,0.11739e+04 /) - kbo(:, 4,31,16) = (/ & - & 0.63873e+03,0.56888e+03,0.59920e+03,0.88472e+03,0.11702e+04 /) - kbo(:, 5,31,16) = (/ & - & 0.72647e+03,0.26020e+03,0.59739e+03,0.78035e+03,0.11669e+04 /) - kbo(:, 1,32,16) = (/ & - & 0.10219e+04,0.29652e+03,0.60294e+03,0.89034e+03,0.11777e+04 /) - kbo(:, 2,32,16) = (/ & - & 0.75833e+03,0.13311e+03,0.59281e+03,0.88900e+03,0.11759e+04 /) - kbo(:, 3,32,16) = (/ & - & 0.54275e+03,0.31460e+03,0.59602e+03,0.88686e+03,0.11731e+04 /) - kbo(:, 4,32,16) = (/ & - & 0.28731e+03,0.15124e+03,0.59865e+03,0.87712e+03,0.11692e+04 /) - kbo(:, 5,32,16) = (/ & - & 0.79004e+03,0.63514e+03,0.58791e+03,0.86135e+03,0.11214e+04 /) - kbo(:, 1,33,16) = (/ & - & 0.42295e+03,0.52022e+03,0.60275e+03,0.88319e+03,0.11773e+04 /) - kbo(:, 2,33,16) = (/ & - & 0.72614e+03,0.33266e+03,0.60175e+03,0.88169e+03,0.11753e+04 /) - kbo(:, 3,33,16) = (/ & - & 0.36703e+03,0.22982e+03,0.59554e+03,0.88614e+03,0.11721e+04 /) - kbo(:, 4,33,16) = (/ & - & 0.23137e+03,0.32656e+03,0.59813e+03,0.88315e+03,0.11503e+04 /) - kbo(:, 5,33,16) = (/ & - & 0.98125e+03,0.60471e+03,0.59681e+03,0.86770e+03,0.11478e+04 /) - kbo(:, 1,34,16) = (/ & - & 0.44676e+03,0.16327e+03,0.59792e+03,0.88976e+03,0.11770e+04 /) - kbo(:, 2,34,16) = (/ & - & 0.27122e+03,0.52002e+03,0.60144e+03,0.88807e+03,0.11747e+04 /) - kbo(:, 3,34,16) = (/ & - & 0.89338e+03,0.37487e+03,0.59509e+03,0.87866e+03,0.11622e+04 /) - kbo(:, 4,34,16) = (/ & - & 0.43071e+03,0.56832e+03,0.58850e+03,0.83509e+03,0.10958e+04 /) - kbo(:, 5,34,16) = (/ & - & 0.20737e+03,0.35064e+03,0.59655e+03,0.88088e+03,0.11652e+04 /) - kbo(:, 1,35,16) = (/ & - & 0.79758e+02,0.10278e+03,0.60244e+03,0.87589e+03,0.11767e+04 /) - kbo(:, 2,35,16) = (/ & - & 0.52637e+03,0.56826e+03,0.60124e+03,0.88778e+03,0.11743e+04 /) - kbo(:, 3,35,16) = (/ & - & 0.43064e+03,0.29620e+03,0.59943e+03,0.88508e+03,0.11707e+04 /) - kbo(:, 4,35,16) = (/ & - & 0.21531e+03,0.74954e+03,0.57453e+03,0.86197e+03,0.11223e+04 /) - kbo(:, 5,35,16) = (/ & - & 0.85323e+03,0.27200e+03,0.59640e+03,0.88066e+03,0.11649e+04 /) - kbo(:, 1,36,16) = (/ & - & 0.99678e+03,0.21760e+03,0.60242e+03,0.88955e+03,0.11767e+04 /) - kbo(:, 2,36,16) = (/ & - & 0.90902e+03,0.40496e+03,0.59196e+03,0.88090e+03,0.11742e+04 /) - kbo(:, 3,36,16) = (/ & - & 0.38273e+03,0.60439e+03,0.59478e+03,0.87820e+03,0.11706e+04 /) - kbo(:, 4,36,16) = (/ & - & 0.84516e+03,0.25383e+03,0.58829e+03,0.79406e+03,0.11312e+04 /) - kbo(:, 5,36,16) = (/ & - & 0.45445e+03,0.41700e+03,0.59637e+03,0.88062e+03,0.11559e+04 /) - kbo(:, 1,37,16) = (/ & - & 0.62987e+03,0.44723e+03,0.59790e+03,0.88973e+03,0.11769e+04 /) - kbo(:, 2,37,16) = (/ & - & 0.80524e+03,0.68894e+03,0.59677e+03,0.88802e+03,0.11746e+04 /) - kbo(:, 3,37,16) = (/ & - & 0.18337e+03,0.45323e+03,0.59504e+03,0.88541e+03,0.11712e+04 /) - kbo(:, 4,37,16) = (/ & - & 0.50224e+03,0.16920e+03,0.59765e+03,0.86220e+03,0.11586e+04 /) - kbo(:, 5,37,16) = (/ & - & 0.85299e+03,0.22358e+03,0.59652e+03,0.88084e+03,0.11652e+04 /) - kbo(:, 1,38,16) = (/ & - & 0.91678e+03,0.47738e+03,0.59801e+03,0.88990e+03,0.11681e+04 /) - kbo(:, 2,38,16) = (/ & - & 0.47033e+03,0.39881e+03,0.59234e+03,0.88147e+03,0.11750e+04 /) - kbo(:, 3,38,16) = (/ & - & 0.69352e+03,0.66467e+03,0.59993e+03,0.87901e+03,0.11717e+04 /) - kbo(:, 4,38,16) = (/ & - & 0.48625e+03,0.32628e+03,0.59330e+03,0.86251e+03,0.11590e+04 /) - kbo(:, 5,38,16) = (/ & - & 0.31087e+03,0.44108e+03,0.58749e+03,0.88107e+03,0.11655e+04 /) - kbo(:, 1,39,16) = (/ & - & 0.35870e+03,0.11480e+03,0.60275e+03,0.89007e+03,0.11774e+04 /) - kbo(:, 2,39,16) = (/ & - & 0.37464e+03,0.78547e+03,0.59714e+03,0.88174e+03,0.11754e+04 /) - kbo(:, 3,39,16) = (/ & - & 0.10123e+04,0.30814e+03,0.59558e+03,0.87940e+03,0.11722e+04 /) - kbo(:, 4,39,16) = (/ & - & 0.17535e+03,0.96668e+02,0.59817e+03,0.88323e+03,0.11594e+04 /) - kbo(:, 5,39,16) = (/ & - & 0.36664e+03,0.56187e+03,0.58764e+03,0.86774e+03,0.11658e+04 /) - kbo(:, 1,40,16) = (/ & - & 0.48620e+03,0.57396e+03,0.60293e+03,0.89033e+03,0.11777e+04 /) - kbo(:, 2,40,16) = (/ & - & 0.94847e+03,0.62832e+03,0.60206e+03,0.88901e+03,0.11760e+04 /) - kbo(:, 3,40,16) = (/ & - & 0.54197e+03,0.51352e+03,0.60063e+03,0.88687e+03,0.11731e+04 /) - kbo(:, 4,40,16) = (/ & - & 0.21519e+03,0.61017e+03,0.58944e+03,0.86354e+03,0.11692e+04 /) - kbo(:, 5,40,16) = (/ & - & 0.27098e+03,0.33831e+03,0.58331e+03,0.88170e+03,0.10587e+04 /) - kbo(:, 1,41,16) = (/ & - & 0.14346e+03,0.26582e+03,0.60309e+03,0.89059e+03,0.11781e+04 /) - kbo(:, 2,41,16) = (/ & - & 0.76510e+03,0.70682e+03,0.60232e+03,0.88941e+03,0.11765e+04 /) - kbo(:, 3,41,16) = (/ & - & 0.62163e+03,0.16311e+03,0.60105e+03,0.88750e+03,0.11649e+04 /) - kbo(:, 4,41,16) = (/ & - & 0.87665e+02,0.19331e+03,0.59457e+03,0.88472e+03,0.11703e+04 /) - kbo(:, 5,41,16) = (/ & - & 0.10041e+04,0.44098e+03,0.58818e+03,0.72606e+03,0.10412e+04 /) - kbo(:, 1,42,16) = (/ & - & 0.66944e+03,0.41079e+03,0.60325e+03,0.89083e+03,0.11693e+04 /) - kbo(:, 2,42,16) = (/ & - & 0.51801e+03,0.25976e+03,0.60255e+03,0.88976e+03,0.11770e+04 /) - kbo(:, 3,42,16) = (/ & - & 0.23111e+03,0.27788e+03,0.58293e+03,0.88808e+03,0.11747e+04 /) - kbo(:, 4,42,16) = (/ & - & 0.44627e+03,0.35036e+03,0.59971e+03,0.87868e+03,0.11713e+04 /) - kbo(:, 5,42,16) = (/ & - & 0.75706e+03,0.77924e+03,0.59310e+03,0.87584e+03,0.11676e+04 /) - kbo(:, 1,43,16) = (/ & - & 0.60566e+03,0.10873e+03,0.60342e+03,0.89110e+03,0.11697e+04 /) - kbo(:, 2,43,16) = (/ & - & 0.92441e+03,0.64634e+03,0.59816e+03,0.89014e+03,0.11775e+04 /) - kbo(:, 3,43,16) = (/ & - & 0.18329e+03,0.35035e+03,0.59722e+03,0.88869e+03,0.11755e+04 /) - kbo(:, 4,43,16) = (/ & - & 0.34266e+03,0.17517e+03,0.59569e+03,0.87957e+03,0.11725e+04 /) - kbo(:, 5,43,16) = (/ & - & 0.92438e+03,0.90606e+02,0.59829e+03,0.88341e+03,0.11057e+04 /) - kbo(:, 1,44,16) = (/ & - & 0.38251e+03,0.19934e+03,0.60359e+03,0.89135e+03,0.11791e+04 /) - kbo(:, 2,44,16) = (/ & - & 0.48609e+03,0.71881e+03,0.59839e+03,0.89050e+03,0.11689e+04 /) - kbo(:, 3,44,16) = (/ & - & 0.54984e+03,0.19933e+03,0.59759e+03,0.88926e+03,0.11763e+04 /) - kbo(:, 4,44,16) = (/ & - & 0.85264e+03,0.64027e+03,0.60090e+03,0.88045e+03,0.11736e+04 /) - kbo(:, 5,44,16) = (/ & - & 0.88451e+03,0.49530e+03,0.59898e+03,0.87082e+03,0.11699e+04 /) - kbo(:, 1,45,16) = (/ & - & 0.66936e+03,0.51946e+03,0.60373e+03,0.89157e+03,0.11794e+04 /) - kbo(:, 2,45,16) = (/ & - & 0.95622e+03,0.66442e+03,0.60324e+03,0.89082e+03,0.11784e+04 /) - kbo(:, 3,45,16) = (/ & - & 0.70122e+03,0.25973e+03,0.60254e+03,0.88974e+03,0.11769e+04 /) - kbo(:, 4,45,16) = (/ & - & 0.13546e+03,0.47717e+03,0.59679e+03,0.88805e+03,0.11747e+04 /) - kbo(:, 5,45,16) = (/ & - & 0.44623e+03,0.47716e+03,0.59968e+03,0.87864e+03,0.11712e+04 /) - kbo(:, 1,46,16) = (/ & - & 0.16734e+03,0.11476e+03,0.60389e+03,0.89176e+03,0.11797e+04 /) - kbo(:, 2,46,16) = (/ & - & 0.41435e+03,0.59796e+03,0.60344e+03,0.89112e+03,0.11697e+04 /) - kbo(:, 3,46,16) = (/ & - & 0.78886e+03,0.13892e+03,0.60282e+03,0.89018e+03,0.11775e+04 /) - kbo(:, 4,46,16) = (/ & - & 0.48606e+03,0.76103e+03,0.59263e+03,0.88876e+03,0.11756e+04 /) - kbo(:, 5,46,16) = (/ & - & 0.77291e+03,0.68855e+03,0.59113e+03,0.88648e+03,0.11726e+04 /) - kbo(:, 1,47,16) = (/ & - & 0.80479e+03,0.70064e+03,0.60443e+03,0.89194e+03,0.11799e+04 /) - kbo(:, 2,47,16) = (/ & - & 0.74901e+03,0.35032e+03,0.60363e+03,0.89142e+03,0.11792e+04 /) - kbo(:, 3,47,16) = (/ & - & 0.62948e+03,0.48923e+03,0.60309e+03,0.89059e+03,0.11690e+04 /) - kbo(:, 4,47,16) = (/ & - & 0.87648e+02,0.36239e+03,0.60232e+03,0.88257e+03,0.11584e+04 /) - kbo(:, 5,47,16) = (/ & - & 0.44621e+03,0.42279e+03,0.60106e+03,0.88751e+03,0.11740e+04 /) - kbo(:, 1,48,16) = (/ & - & 0.39044e+03,0.31407e+03,0.60497e+03,0.89220e+03,0.11803e+04 /) - kbo(:, 2,48,16) = (/ & - & 0.28685e+03,0.50131e+03,0.60379e+03,0.89166e+03,0.11795e+04 /) - kbo(:, 3,48,16) = (/ & - & 0.38246e+03,0.70665e+03,0.60333e+03,0.89096e+03,0.11786e+04 /) - kbo(:, 4,48,16) = (/ & - & 0.47011e+03,0.61002e+03,0.60267e+03,0.88995e+03,0.11772e+04 /) - kbo(:, 5,48,16) = (/ & - & 0.36652e+03,0.63417e+03,0.60164e+03,0.88155e+03,0.11751e+04 /) - kbo(:, 1,49,16) = (/ & - & 0.76492e+03,0.96636e+02,0.60550e+03,0.89270e+03,0.11810e+04 /) - kbo(:, 2,49,16) = (/ & - & 0.23107e+03,0.19931e+03,0.60416e+03,0.89186e+03,0.11798e+04 /) - kbo(:, 3,49,16) = (/ & - & 0.86850e+03,0.30199e+03,0.59890e+03,0.89128e+03,0.11790e+04 /) - kbo(:, 4,49,16) = (/ & - & 0.27091e+03,0.22951e+03,0.60296e+03,0.89040e+03,0.11778e+04 /) - kbo(:, 5,49,16) = (/ & - & 0.45416e+03,0.53149e+03,0.60212e+03,0.88227e+03,0.11761e+04 /) - kbo(:, 1,50,16) = (/ & - & 0.39042e+03,0.12079e+03,0.60601e+03,0.89316e+03,0.11816e+04 /) - kbo(:, 2,50,16) = (/ & - & 0.38245e+03,0.73080e+03,0.60467e+03,0.89201e+03,0.11709e+04 /) - kbo(:, 3,50,16) = (/ & - & 0.19919e+03,0.50733e+03,0.60370e+03,0.89153e+03,0.11703e+04 /) - kbo(:, 4,50,16) = (/ & - & 0.52587e+03,0.41673e+03,0.60320e+03,0.89076e+03,0.11693e+04 /) - kbo(:, 5,50,16) = (/ & - & 0.25497e+03,0.90594e+02,0.59785e+03,0.88966e+03,0.11768e+04 /) - kbo(:, 1,51,16) = (/ & - & 0.35058e+03,0.56772e+03,0.60650e+03,0.89405e+03,0.11830e+04 /) - kbo(:, 2,51,16) = (/ & - & 0.39839e+03,0.52545e+03,0.60516e+03,0.89238e+03,0.11806e+04 /) - kbo(:, 3,51,16) = (/ & - & 0.69319e+03,0.65831e+03,0.60384e+03,0.89174e+03,0.11796e+04 /) - kbo(:, 4,51,16) = (/ & - & 0.66132e+03,0.42881e+03,0.60341e+03,0.89108e+03,0.11788e+04 /) - kbo(:, 5,51,16) = (/ & - & 0.80473e+03,0.49524e+03,0.59814e+03,0.88327e+03,0.11775e+04 /) - kbo(:, 1,52,16) = (/ & - & 0.75693e+03,0.32010e+03,0.60698e+03,0.89551e+03,0.11849e+04 /) - kbo(:, 2,52,16) = (/ & - & 0.98002e+03,0.74890e+03,0.60565e+03,0.89283e+03,0.11812e+04 /) - kbo(:, 3,52,16) = (/ & - & 0.42228e+03,0.32613e+03,0.60430e+03,0.89190e+03,0.11799e+04 /) - kbo(:, 4,52,16) = (/ & - & 0.43025e+03,0.70662e+03,0.60359e+03,0.89136e+03,0.11791e+04 /) - kbo(:, 5,52,16) = (/ & - & 0.81269e+03,0.56167e+03,0.60303e+03,0.89051e+03,0.11780e+04 /) - kbo(:, 1,53,16) = (/ & - & 0.98002e+03,0.61603e+03,0.60747e+03,0.89705e+03,0.11870e+04 /) - kbo(:, 2,53,16) = (/ & - & 0.28683e+03,0.42277e+03,0.60613e+03,0.89328e+03,0.11818e+04 /) - kbo(:, 3,53,16) = (/ & - & 0.45415e+03,0.68246e+03,0.60479e+03,0.89204e+03,0.11801e+04 /) - kbo(:, 4,53,16) = (/ & - & 0.78879e+03,0.48920e+03,0.60374e+03,0.89159e+03,0.11794e+04 /) - kbo(:, 5,53,16) = (/ & - & 0.76488e+03,0.14495e+03,0.60326e+03,0.89085e+03,0.11694e+04 /) - kbo(:, 1,54,16) = (/ & - & 0.67724e+03,0.76701e+03,0.60808e+03,0.89852e+03,0.11890e+04 /) - kbo(:, 2,54,16) = (/ & - & 0.81269e+03,0.24762e+03,0.60658e+03,0.89430e+03,0.11833e+04 /) - kbo(:, 3,54,16) = (/ & - & 0.94813e+03,0.63414e+03,0.60524e+03,0.89246e+03,0.11807e+04 /) - kbo(:, 4,54,16) = (/ & - & 0.49398e+03,0.28989e+03,0.60390e+03,0.88491e+03,0.11797e+04 /) - kbo(:, 5,54,16) = (/ & - & 0.89236e+03,0.27781e+03,0.60344e+03,0.88428e+03,0.11788e+04 /) - kbo(:, 1,55,16) = (/ & - & 0.52586e+03,0.77305e+03,0.60906e+03,0.89999e+03,0.11909e+04 /) - kbo(:, 2,55,16) = (/ & - & 0.54179e+03,0.64018e+03,0.60701e+03,0.89560e+03,0.11851e+04 /) - kbo(:, 3,55,16) = (/ & - & 0.50992e+03,0.60394e+03,0.60567e+03,0.88598e+03,0.11812e+04 /) - kbo(:, 4,55,16) = (/ & - & 0.63740e+03,0.44088e+03,0.60433e+03,0.89191e+03,0.11799e+04 /) - kbo(:, 5,55,16) = (/ & - & 0.49398e+03,0.37444e+03,0.59895e+03,0.89137e+03,0.11791e+04 /) - kbo(:, 1,56,16) = (/ & - & 0.90829e+03,0.27177e+03,0.61007e+03,0.90151e+03,0.11929e+04 /) - kbo(:, 2,56,16) = (/ & - & 0.35854e+03,0.24158e+03,0.60744e+03,0.89694e+03,0.11869e+04 /) - kbo(:, 3,56,16) = (/ & - & 0.59756e+03,0.47107e+03,0.60610e+03,0.89325e+03,0.11817e+04 /) - kbo(:, 4,56,16) = (/ & - & 0.52585e+03,0.35632e+03,0.60476e+03,0.89203e+03,0.11801e+04 /) - kbo(:, 5,56,16) = (/ & - & 0.27886e+03,0.24761e+03,0.59909e+03,0.89157e+03,0.11794e+04 /) - kbo(:, 1,57,16) = (/ & - & 0.34260e+03,0.66433e+03,0.61112e+03,0.90308e+03,0.11950e+04 /) - kbo(:, 2,57,16) = (/ & - & 0.66130e+03,0.45295e+03,0.60796e+03,0.89834e+03,0.11887e+04 /) - kbo(:, 3,57,16) = (/ & - & 0.69317e+03,0.42880e+03,0.60653e+03,0.89415e+03,0.11831e+04 /) - kbo(:, 4,57,16) = (/ & - & 0.27089e+03,0.28385e+03,0.60519e+03,0.89241e+03,0.11806e+04 /) - kbo(:, 5,57,16) = (/ & - & 0.66926e+03,0.34424e+03,0.60385e+03,0.89175e+03,0.11797e+04 /) - kbo(:, 1,58,16) = (/ & - & 0.96406e+03,0.25365e+03,0.61214e+03,0.90462e+03,0.11971e+04 /) - kbo(:, 2,58,16) = (/ & - & 0.31073e+03,0.28385e+03,0.60888e+03,0.89972e+03,0.11906e+04 /) - kbo(:, 3,58,16) = (/ & - & 0.96405e+03,0.57374e+03,0.60693e+03,0.89536e+03,0.11848e+04 /) - kbo(:, 4,58,16) = (/ & - & 0.69316e+03,0.13891e+03,0.60560e+03,0.89278e+03,0.11811e+04 /) - kbo(:, 5,58,16) = (/ & - & 0.59755e+03,0.75492e+03,0.60426e+03,0.89189e+03,0.11798e+04 /) - kbo(:, 1,59,16) = (/ & - & 0.92422e+03,0.39860e+03,0.61256e+03,0.90525e+03,0.11979e+04 /) - kbo(:, 2,59,16) = (/ & - & 0.78877e+03,0.42275e+03,0.60926e+03,0.90029e+03,0.11913e+04 /) - kbo(:, 3,59,16) = (/ & - & 0.35853e+03,0.65225e+03,0.60710e+03,0.89586e+03,0.11854e+04 /) - kbo(:, 4,59,16) = (/ & - & 0.54975e+03,0.50730e+03,0.60576e+03,0.88606e+03,0.11813e+04 /) - kbo(:, 5,59,16) = (/ & - & 0.52585e+03,0.62205e+03,0.60442e+03,0.89194e+03,0.11799e+04 /) - - end subroutine sw_kgb28 diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_29.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_29.F90 deleted file mode 100644 index 395dbfc8e..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_29.F90 +++ /dev/null @@ -1,2140 +0,0 @@ -! path: $Source$ -! author: $Author$ -! revision: $Revision$ -! created: $Date$ - -!---------------------------------------------------------------------------- -! Copyright (c) 2002-2016, Atmospheric & Environmental Research, Inc. (AER) -! All rights reserved. -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions are met: -! * Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! * Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! * Neither the name of Atmospheric & Environmental Research, Inc., nor -! the names of its contributors may be used to endorse or promote products -! derived from this software without specific prior written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -! ARE DISCLAIMED. IN NO EVENT SHALL ATMOSPHERIC & ENVIRONMENTAL RESEARCH, INC., -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF -! THE POSSIBILITY OF SUCH DAMAGE. -! (http://www.rtweb.aer.com/) -!---------------------------------------------------------------------------- - -! ************************************************************************** -! subroutine sw_kgbnn -! ************************************************************************** -! RRTM Shortwave Radiative Transfer Model -! Atmospheric and Environmental Research, Inc., Cambridge, MA -! -! Original by J.Delamere, Atmospheric & Environmental Research. -! Reformatted for F90: JJMorcrette, ECMWF -! Further F90 and GCM revisions: MJIacono, AER, July 2002 -! Solar variability revisions: MJIacono, AER, November 2015 -! -! This file contains 14 subroutines that include the -! absorption coefficients and other data for each of the 14 shortwave -! spectral bands used in RRTM_SW. Here, the data are defined for 16 -! g-points, or sub-intervals, per band. These data are combined and -! weighted using a mapping procedure in routine RRTMG_SW_INIT to reduce -! the total number of g-points from 224 to 112 for use in the GCM. -! ************************************************************************** - subroutine sw_kgb29 -! ************************************************************************** - - !use parkind, only : im => kind , rb => kind - use rrsw_kg29, only : kao, kbo, selfrefo, forrefo, sfluxrefo, & - absh2oo, absco2o, rayl, & - irradnceo, facbrghto, snsptdrko - - implicit none - real :: irradscl - save - -! Kurucz solar source function - sfluxrefo(:) = (/ & - & 1.32880 , 2.14018 , 1.97612 , 1.79000 , & - & 1.51242 , 1.22977 , 1.06052 , 0.800996 , & - & 0.748053 , 8.64369e-02, 7.10675e-02, 5.62425e-02, & - & 4.46988e-02, 3.07441e-02, 1.16728e-02, 1.65573e-03 /) - -! Solar variability components: time-invariant baseline quiet sun irradiance - irradnceo(:) = (/ & - & 3.08203E+00, 1.16181E+00, 1.40910E+00, 1.72932E+00,& - & 1.50993E+00, 1.22063E+00, 1.05521E+00, 8.60330E-01,& - & 5.41746E-01, 5.88241E-02, 4.95311E-02, 3.91123E-02,& - & 2.43242E-02, 1.50450E-02, 5.91303E-03, 8.86641E-04/) -! Apply scaling to irradnceo in this band to account for solar function -! below 820 cm-1 (scaling quantities were derived from high-resolution data) - irradscl = 13.221 / (13.221 - 0.455) - irradnceo(:) = irradscl * irradnceo(:) -! Solar variability components: facular brightening - facbrghto(:) = (/ & - & 1.52123E-03, 9.54536E-04, 1.35866E-03, 1.60003E-03,& - & 1.23938E-03, 8.92375E-04, 7.12962E-04, 5.35573E-04,& - & 3.45092E-04, 3.73112E-05, 3.09799E-05, 2.40402E-05,& - & 1.65222E-05, 1.02372E-05, 4.00345E-06, 6.10834E-07/) -! Solar variability components: sunspot darkening - snsptdrko(:) = (/ & - &-3.52049E-04,-1.39728E-04,-1.92648E-04,-2.37837E-04,& - &-1.93491E-04,-1.45692E-04,-1.23179E-04,-9.89247E-05,& - &-6.17934E-05,-6.69155E-06,-5.61746E-06,-4.40500E-06,& - &-2.74223E-06,-1.68468E-06,-6.65633E-07,-1.00868E-07/) - - absco2o(:) = (/ & - & 2.90073e-06, 2.12382e-05, 1.03032e-04, 1.86481e-04, & - & 4.31997e-04, 6.08238e-04, 2.17603e-03, 4.64479e-02, & - & 2.96956 , 14.9569 , 28.4831 , 61.3998 , & - & 164.129 , 832.282 , 4995.02 , 12678.1 /) - - absh2oo(:) = (/ & - & 2.99508e-04, 3.95012e-03, 1.49316e-02, 3.24384e-02, & - & 6.92879e-02, 0.123523 , 0.360985 , 1.86434 , & - & 10.38157 , 0.214129 , 0.213914 , 0.212781 , & - & 0.215562 , 0.218087 , 0.220918 , 0.218546 /) - -! Rayleigh extinction coefficient at v = 2200 cm-1. - rayl = 9.30e-11 - -! ------------------------------------------------------------------ -! The array KAO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels> ~100mb, temperatures, and binary -! species parameters (see taumol.f for definition). The first -! index in the array, JS, runs from 1 to 9, and corresponds to -! different values of the binary species parameter. For instance, -! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, -! JS = 3 corresponds to the parameter value 2/8, etc. The second index -! in the array, JT, which runs from 1 to 5, corresponds to different -! temperatures. More specifically, JT = 3 means that the data are for -! the reference temperature TREF for this pressure level, JT = 2 refers -! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 -! is for TREF+30. The third index, JP, runs from 1 to 13 and refers -! to the JPth reference pressure level (see taumol.f for these levels -! in mb). The fourth index, IG, goes from 1 to 16, and indicates -! which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kao(:, 1, 1) = (/ & - & 0.11565e-03,0.10123e-03,0.90804e-04,0.82282e-04,0.71083e-04 /) - kao(:, 2, 1) = (/ & - & 0.96434e-04,0.82830e-04,0.72366e-04,0.61803e-04,0.52497e-04 /) - kao(:, 3, 1) = (/ & - & 0.64539e-04,0.56659e-04,0.46605e-04,0.39815e-04,0.37118e-04 /) - kao(:, 4, 1) = (/ & - & 0.34417e-04,0.27113e-04,0.25362e-04,0.30345e-04,0.36275e-04 /) - kao(:, 5, 1) = (/ & - & 0.12260e-04,0.15856e-04,0.20834e-04,0.27363e-04,0.36114e-04 /) - kao(:, 6, 1) = (/ & - & 0.10221e-04,0.14598e-04,0.19695e-04,0.25976e-04,0.33702e-04 /) - kao(:, 7, 1) = (/ & - & 0.97563e-05,0.13809e-04,0.20231e-04,0.27238e-04,0.36110e-04 /) - kao(:, 8, 1) = (/ & - & 0.14062e-04,0.19587e-04,0.27069e-04,0.36937e-04,0.49415e-04 /) - kao(:, 9, 1) = (/ & - & 0.36371e-04,0.48122e-04,0.61586e-04,0.77647e-04,0.99897e-04 /) - kao(:,10, 1) = (/ & - & 0.99203e-04,0.12842e-03,0.16588e-03,0.20834e-03,0.26000e-03 /) - kao(:,11, 1) = (/ & - & 0.13233e-03,0.17318e-03,0.22059e-03,0.28904e-03,0.36062e-03 /) - kao(:,12, 1) = (/ & - & 0.13379e-03,0.17484e-03,0.23687e-03,0.30286e-03,0.37504e-03 /) - kao(:,13, 1) = (/ & - & 0.11740e-03,0.15667e-03,0.20962e-03,0.26768e-03,0.33485e-03 /) - kao(:, 1, 2) = (/ & - & 0.10246e-03,0.10450e-03,0.97383e-04,0.96398e-04,0.10549e-03 /) - kao(:, 2, 2) = (/ & - & 0.10589e-03,0.10240e-03,0.95801e-04,0.98509e-04,0.11993e-03 /) - kao(:, 3, 2) = (/ & - & 0.94054e-04,0.87009e-04,0.10941e-03,0.13486e-03,0.15918e-03 /) - kao(:, 4, 2) = (/ & - & 0.11883e-03,0.14236e-03,0.16636e-03,0.18235e-03,0.19785e-03 /) - kao(:, 5, 2) = (/ & - & 0.17800e-03,0.19347e-03,0.20977e-03,0.22730e-03,0.25111e-03 /) - kao(:, 6, 2) = (/ & - & 0.22243e-03,0.24157e-03,0.26567e-03,0.28549e-03,0.30723e-03 /) - kao(:, 7, 2) = (/ & - & 0.29248e-03,0.32242e-03,0.34635e-03,0.37915e-03,0.40803e-03 /) - kao(:, 8, 2) = (/ & - & 0.43386e-03,0.48611e-03,0.52681e-03,0.56812e-03,0.60642e-03 /) - kao(:, 9, 2) = (/ & - & 0.89109e-03,0.10345e-02,0.11794e-02,0.13045e-02,0.14303e-02 /) - kao(:,10, 2) = (/ & - & 0.21538e-02,0.24459e-02,0.27329e-02,0.30932e-02,0.35253e-02 /) - kao(:,11, 2) = (/ & - & 0.29272e-02,0.32676e-02,0.36353e-02,0.40062e-02,0.45441e-02 /) - kao(:,12, 2) = (/ & - & 0.30762e-02,0.34365e-02,0.38146e-02,0.41556e-02,0.47164e-02 /) - kao(:,13, 2) = (/ & - & 0.27808e-02,0.31114e-02,0.34383e-02,0.37954e-02,0.42576e-02 /) - kao(:, 1, 3) = (/ & - & 0.24042e-03,0.32719e-03,0.44370e-03,0.56836e-03,0.70357e-03 /) - kao(:, 2, 3) = (/ & - & 0.23303e-03,0.31901e-03,0.41926e-03,0.52400e-03,0.62365e-03 /) - kao(:, 3, 3) = (/ & - & 0.35050e-03,0.42158e-03,0.47490e-03,0.53390e-03,0.60411e-03 /) - kao(:, 4, 3) = (/ & - & 0.49954e-03,0.53067e-03,0.56338e-03,0.60859e-03,0.66569e-03 /) - kao(:, 5, 3) = (/ & - & 0.66908e-03,0.69727e-03,0.72898e-03,0.76756e-03,0.80358e-03 /) - kao(:, 6, 3) = (/ & - & 0.88634e-03,0.92853e-03,0.96856e-03,0.10101e-02,0.10556e-02 /) - kao(:, 7, 3) = (/ & - & 0.11659e-02,0.12355e-02,0.13238e-02,0.13889e-02,0.14491e-02 /) - kao(:, 8, 3) = (/ & - & 0.17485e-02,0.18223e-02,0.19411e-02,0.20705e-02,0.22025e-02 /) - kao(:, 9, 3) = (/ & - & 0.42442e-02,0.43561e-02,0.45061e-02,0.47505e-02,0.50358e-02 /) - kao(:,10, 3) = (/ & - & 0.10940e-01,0.11499e-01,0.11906e-01,0.12570e-01,0.12803e-01 /) - kao(:,11, 3) = (/ & - & 0.14287e-01,0.15010e-01,0.15581e-01,0.16054e-01,0.16609e-01 /) - kao(:,12, 3) = (/ & - & 0.14856e-01,0.15546e-01,0.16074e-01,0.16478e-01,0.17057e-01 /) - kao(:,13, 3) = (/ & - & 0.13257e-01,0.13834e-01,0.14155e-01,0.14723e-01,0.15095e-01 /) - kao(:, 1, 4) = (/ & - & 0.24391e-02,0.28720e-02,0.33497e-02,0.38926e-02,0.45054e-02 /) - kao(:, 2, 4) = (/ & - & 0.22506e-02,0.26004e-02,0.30002e-02,0.34490e-02,0.39579e-02 /) - kao(:, 3, 4) = (/ & - & 0.22153e-02,0.25711e-02,0.29320e-02,0.33330e-02,0.37728e-02 /) - kao(:, 4, 4) = (/ & - & 0.22483e-02,0.25445e-02,0.28745e-02,0.32484e-02,0.36554e-02 /) - kao(:, 5, 4) = (/ & - & 0.23388e-02,0.25985e-02,0.28914e-02,0.32377e-02,0.36113e-02 /) - kao(:, 6, 4) = (/ & - & 0.24669e-02,0.26579e-02,0.28834e-02,0.31538e-02,0.34593e-02 /) - kao(:, 7, 4) = (/ & - & 0.32536e-02,0.33413e-02,0.34375e-02,0.35905e-02,0.38010e-02 /) - kao(:, 8, 4) = (/ & - & 0.51228e-02,0.51967e-02,0.52820e-02,0.53446e-02,0.53797e-02 /) - kao(:, 9, 4) = (/ & - & 0.13029e-01,0.13065e-01,0.12891e-01,0.12848e-01,0.12777e-01 /) - kao(:,10, 4) = (/ & - & 0.29911e-01,0.30117e-01,0.28340e-01,0.27321e-01,0.27485e-01 /) - kao(:,11, 4) = (/ & - & 0.36663e-01,0.36877e-01,0.34688e-01,0.33004e-01,0.32437e-01 /) - kao(:,12, 4) = (/ & - & 0.37282e-01,0.37775e-01,0.34910e-01,0.33463e-01,0.33074e-01 /) - kao(:,13, 4) = (/ & - & 0.33412e-01,0.32961e-01,0.30323e-01,0.29437e-01,0.29572e-01 /) - kao(:, 1, 5) = (/ & - & 0.20792e-01,0.22727e-01,0.25207e-01,0.27650e-01,0.29866e-01 /) - kao(:, 2, 5) = (/ & - & 0.17515e-01,0.19421e-01,0.21509e-01,0.23389e-01,0.25418e-01 /) - kao(:, 3, 5) = (/ & - & 0.14912e-01,0.16535e-01,0.18159e-01,0.19873e-01,0.21718e-01 /) - kao(:, 4, 5) = (/ & - & 0.13498e-01,0.14786e-01,0.16253e-01,0.17812e-01,0.19494e-01 /) - kao(:, 5, 5) = (/ & - & 0.12840e-01,0.13983e-01,0.15257e-01,0.16617e-01,0.18015e-01 /) - kao(:, 6, 5) = (/ & - & 0.12557e-01,0.13714e-01,0.14939e-01,0.16145e-01,0.17356e-01 /) - kao(:, 7, 5) = (/ & - & 0.11839e-01,0.12951e-01,0.14090e-01,0.15237e-01,0.16396e-01 /) - kao(:, 8, 5) = (/ & - & 0.13190e-01,0.13998e-01,0.14783e-01,0.15641e-01,0.16632e-01 /) - kao(:, 9, 5) = (/ & - & 0.24479e-01,0.24660e-01,0.25206e-01,0.25571e-01,0.26098e-01 /) - kao(:,10, 5) = (/ & - & 0.62373e-01,0.60241e-01,0.61372e-01,0.61530e-01,0.60978e-01 /) - kao(:,11, 5) = (/ & - & 0.76394e-01,0.73727e-01,0.74701e-01,0.75649e-01,0.75608e-01 /) - kao(:,12, 5) = (/ & - & 0.76656e-01,0.73608e-01,0.75610e-01,0.76362e-01,0.76033e-01 /) - kao(:,13, 5) = (/ & - & 0.66025e-01,0.64890e-01,0.66873e-01,0.66992e-01,0.66685e-01 /) - kao(:, 1, 6) = (/ & - & 0.99799e-01,0.10479e+00,0.10918e+00,0.11347e+00,0.11767e+00 /) - kao(:, 2, 6) = (/ & - & 0.87946e-01,0.91820e-01,0.95208e-01,0.99071e-01,0.10286e+00 /) - kao(:, 3, 6) = (/ & - & 0.76753e-01,0.80377e-01,0.84204e-01,0.87924e-01,0.91370e-01 /) - kao(:, 4, 6) = (/ & - & 0.67002e-01,0.70630e-01,0.73736e-01,0.76764e-01,0.79671e-01 /) - kao(:, 5, 6) = (/ & - & 0.58933e-01,0.61857e-01,0.64756e-01,0.67323e-01,0.69871e-01 /) - kao(:, 6, 6) = (/ & - & 0.53143e-01,0.55386e-01,0.57507e-01,0.59715e-01,0.62263e-01 /) - kao(:, 7, 6) = (/ & - & 0.50856e-01,0.52603e-01,0.54414e-01,0.56230e-01,0.58483e-01 /) - kao(:, 8, 6) = (/ & - & 0.50528e-01,0.52598e-01,0.54634e-01,0.56710e-01,0.58872e-01 /) - kao(:, 9, 6) = (/ & - & 0.64616e-01,0.65915e-01,0.67210e-01,0.68742e-01,0.70092e-01 /) - kao(:,10, 6) = (/ & - & 0.11509e+00,0.11448e+00,0.11368e+00,0.11348e+00,0.11401e+00 /) - kao(:,11, 6) = (/ & - & 0.14266e+00,0.13997e+00,0.13810e+00,0.13688e+00,0.13622e+00 /) - kao(:,12, 6) = (/ & - & 0.14464e+00,0.14198e+00,0.13915e+00,0.13789e+00,0.13781e+00 /) - kao(:,13, 6) = (/ & - & 0.12550e+00,0.12328e+00,0.12173e+00,0.12127e+00,0.12078e+00 /) - kao(:, 1, 7) = (/ & - & 0.30825e+00,0.31119e+00,0.31335e+00,0.31641e+00,0.32024e+00 /) - kao(:, 2, 7) = (/ & - & 0.28100e+00,0.28660e+00,0.29192e+00,0.29680e+00,0.30014e+00 /) - kao(:, 3, 7) = (/ & - & 0.26374e+00,0.27129e+00,0.27887e+00,0.28626e+00,0.29478e+00 /) - kao(:, 4, 7) = (/ & - & 0.24539e+00,0.25325e+00,0.26070e+00,0.26955e+00,0.27794e+00 /) - kao(:, 5, 7) = (/ & - & 0.21737e+00,0.22642e+00,0.23531e+00,0.24408e+00,0.25322e+00 /) - kao(:, 6, 7) = (/ & - & 0.19066e+00,0.19913e+00,0.20834e+00,0.21782e+00,0.22698e+00 /) - kao(:, 7, 7) = (/ & - & 0.17386e+00,0.18325e+00,0.19211e+00,0.20024e+00,0.20881e+00 /) - kao(:, 8, 7) = (/ & - & 0.17625e+00,0.18236e+00,0.18905e+00,0.19574e+00,0.20193e+00 /) - kao(:, 9, 7) = (/ & - & 0.21820e+00,0.22416e+00,0.22986e+00,0.23737e+00,0.24518e+00 /) - kao(:,10, 7) = (/ & - & 0.33529e+00,0.34302e+00,0.35397e+00,0.36397e+00,0.37339e+00 /) - kao(:,11, 7) = (/ & - & 0.38474e+00,0.39863e+00,0.41168e+00,0.42115e+00,0.42917e+00 /) - kao(:,12, 7) = (/ & - & 0.38499e+00,0.39580e+00,0.40497e+00,0.41279e+00,0.42045e+00 /) - kao(:,13, 7) = (/ & - & 0.34291e+00,0.35180e+00,0.35970e+00,0.36697e+00,0.37460e+00 /) - kao(:, 1, 8) = (/ & - & 0.87131e+00,0.87876e+00,0.88509e+00,0.89061e+00,0.89432e+00 /) - kao(:, 2, 8) = (/ & - & 0.78963e+00,0.79236e+00,0.79978e+00,0.80959e+00,0.82163e+00 /) - kao(:, 3, 8) = (/ & - & 0.82479e+00,0.82842e+00,0.83069e+00,0.83679e+00,0.84334e+00 /) - kao(:, 4, 8) = (/ & - & 0.90877e+00,0.91962e+00,0.92466e+00,0.93139e+00,0.93904e+00 /) - kao(:, 5, 8) = (/ & - & 0.97131e+00,0.99301e+00,0.10095e+01,0.10270e+01,0.10371e+01 /) - kao(:, 6, 8) = (/ & - & 0.96984e+00,0.10040e+01,0.10393e+01,0.10670e+01,0.10990e+01 /) - kao(:, 7, 8) = (/ & - & 0.95686e+00,0.10029e+01,0.10449e+01,0.10923e+01,0.11334e+01 /) - kao(:, 8, 8) = (/ & - & 0.97227e+00,0.10380e+01,0.11014e+01,0.11624e+01,0.12218e+01 /) - kao(:, 9, 8) = (/ & - & 0.12290e+01,0.13071e+01,0.14005e+01,0.15005e+01,0.15980e+01 /) - kao(:,10, 8) = (/ & - & 0.17996e+01,0.19304e+01,0.20752e+01,0.22219e+01,0.23814e+01 /) - kao(:,11, 8) = (/ & - & 0.19289e+01,0.20656e+01,0.22166e+01,0.23715e+01,0.25386e+01 /) - kao(:,12, 8) = (/ & - & 0.18429e+01,0.19765e+01,0.21175e+01,0.22722e+01,0.24239e+01 /) - kao(:,13, 8) = (/ & - & 0.16420e+01,0.17464e+01,0.18635e+01,0.19773e+01,0.21012e+01 /) - kao(:, 1, 9) = (/ & - & 0.39892e+01,0.40153e+01,0.40324e+01,0.40465e+01,0.40524e+01 /) - kao(:, 2, 9) = (/ & - & 0.38871e+01,0.39035e+01,0.39123e+01,0.39056e+01,0.38966e+01 /) - kao(:, 3, 9) = (/ & - & 0.37883e+01,0.37950e+01,0.38080e+01,0.37991e+01,0.37826e+01 /) - kao(:, 4, 9) = (/ & - & 0.37778e+01,0.37663e+01,0.37745e+01,0.37709e+01,0.37556e+01 /) - kao(:, 5, 9) = (/ & - & 0.38757e+01,0.38404e+01,0.38539e+01,0.39228e+01,0.39777e+01 /) - kao(:, 6, 9) = (/ & - & 0.40990e+01,0.41407e+01,0.41745e+01,0.42258e+01,0.42574e+01 /) - kao(:, 7, 9) = (/ & - & 0.46288e+01,0.46726e+01,0.47096e+01,0.47165e+01,0.47374e+01 /) - kao(:, 8, 9) = (/ & - & 0.58432e+01,0.58474e+01,0.58608e+01,0.58935e+01,0.59261e+01 /) - kao(:, 9, 9) = (/ & - & 0.88685e+01,0.88567e+01,0.88137e+01,0.87653e+01,0.87262e+01 /) - kao(:,10, 9) = (/ & - & 0.10455e+02,0.10242e+02,0.10004e+02,0.97643e+01,0.95067e+01 /) - kao(:,11, 9) = (/ & - & 0.10240e+02,0.99968e+01,0.97347e+01,0.94750e+01,0.92006e+01 /) - kao(:,12, 9) = (/ & - & 0.10401e+02,0.10165e+02,0.99240e+01,0.96656e+01,0.94112e+01 /) - kao(:,13, 9) = (/ & - & 0.10764e+02,0.10580e+02,0.10381e+02,0.10188e+02,0.99802e+01 /) - kao(:, 1,10) = (/ & - & 0.10712e+02,0.10575e+02,0.10581e+02,0.10556e+02,0.10575e+02 /) - kao(:, 2,10) = (/ & - & 0.11144e+02,0.11109e+02,0.11034e+02,0.11107e+02,0.11138e+02 /) - kao(:, 3,10) = (/ & - & 0.12257e+02,0.12112e+02,0.11992e+02,0.11951e+02,0.12031e+02 /) - kao(:, 4,10) = (/ & - & 0.13040e+02,0.13085e+02,0.12882e+02,0.12756e+02,0.12737e+02 /) - kao(:, 5,10) = (/ & - & 0.13809e+02,0.13771e+02,0.13452e+02,0.12567e+02,0.12086e+02 /) - kao(:, 6,10) = (/ & - & 0.14608e+02,0.13942e+02,0.13365e+02,0.13494e+02,0.13762e+02 /) - kao(:, 7,10) = (/ & - & 0.14665e+02,0.14685e+02,0.15121e+02,0.15602e+02,0.15768e+02 /) - kao(:, 8,10) = (/ & - & 0.15612e+02,0.16507e+02,0.16644e+02,0.16706e+02,0.16696e+02 /) - kao(:, 9,10) = (/ & - & 0.15405e+02,0.15874e+02,0.16716e+02,0.17957e+02,0.17859e+02 /) - kao(:,10,10) = (/ & - & 0.19406e+00,0.17932e+00,0.16660e+00,0.15558e+00,0.14589e+00 /) - kao(:,11,10) = (/ & - & 0.27650e+00,0.25556e+00,0.23727e+00,0.22182e+00,0.20805e+00 /) - kao(:,12,10) = (/ & - & 0.29298e+00,0.27044e+00,0.25162e+00,0.23497e+00,0.22076e+00 /) - kao(:,13,10) = (/ & - & 0.24883e+00,0.22985e+00,0.21413e+00,0.20012e+00,0.18795e+00 /) - kao(:, 1,11) = (/ & - & 0.13650e+02,0.13767e+02,0.13771e+02,0.13650e+02,0.13663e+02 /) - kao(:, 2,11) = (/ & - & 0.15146e+02,0.15253e+02,0.15272e+02,0.15152e+02,0.15138e+02 /) - kao(:, 3,11) = (/ & - & 0.16834e+02,0.17107e+02,0.17158e+02,0.17187e+02,0.17057e+02 /) - kao(:, 4,11) = (/ & - & 0.19191e+02,0.19144e+02,0.19155e+02,0.19247e+02,0.19292e+02 /) - kao(:, 5,11) = (/ & - & 0.20953e+02,0.21248e+02,0.21186e+02,0.21027e+02,0.20703e+02 /) - kao(:, 6,11) = (/ & - & 0.22592e+02,0.22192e+02,0.22056e+02,0.20972e+02,0.19910e+02 /) - kao(:, 7,11) = (/ & - & 0.24652e+02,0.23679e+02,0.22339e+02,0.21302e+02,0.21697e+02 /) - kao(:, 8,11) = (/ & - & 0.22508e+02,0.20438e+02,0.20163e+02,0.20628e+02,0.20954e+02 /) - kao(:, 9,11) = (/ & - & 0.10264e+02,0.85820e+01,0.65270e+01,0.38883e+01,0.27974e+01 /) - kao(:,10,11) = (/ & - & 0.19324e+00,0.17913e+00,0.16619e+00,0.15516e+00,0.14524e+00 /) - kao(:,11,11) = (/ & - & 0.27573e+00,0.25425e+00,0.23627e+00,0.22036e+00,0.20639e+00 /) - kao(:,12,11) = (/ & - & 0.29224e+00,0.26998e+00,0.25055e+00,0.23380e+00,0.21908e+00 /) - kao(:,13,11) = (/ & - & 0.24964e+00,0.23056e+00,0.21391e+00,0.19980e+00,0.18698e+00 /) - kao(:, 1,12) = (/ & - & 0.17721e+02,0.17805e+02,0.17752e+02,0.17857e+02,0.17872e+02 /) - kao(:, 2,12) = (/ & - & 0.20222e+02,0.20161e+02,0.20267e+02,0.20335e+02,0.20254e+02 /) - kao(:, 3,12) = (/ & - & 0.23717e+02,0.23414e+02,0.23571e+02,0.23552e+02,0.23687e+02 /) - kao(:, 4,12) = (/ & - & 0.26876e+02,0.26972e+02,0.27155e+02,0.26947e+02,0.27025e+02 /) - kao(:, 5,12) = (/ & - & 0.30213e+02,0.29978e+02,0.30226e+02,0.30477e+02,0.30329e+02 /) - kao(:, 6,12) = (/ & - & 0.33660e+02,0.33482e+02,0.33159e+02,0.32959e+02,0.32299e+02 /) - kao(:, 7,12) = (/ & - & 0.35893e+02,0.35649e+02,0.35067e+02,0.34565e+02,0.32437e+02 /) - kao(:, 8,12) = (/ & - & 0.33426e+02,0.33323e+02,0.31984e+02,0.29587e+02,0.27505e+02 /) - kao(:, 9,12) = (/ & - & 0.46633e-01,0.43205e-01,0.40562e-01,0.38133e-01,0.35900e-01 /) - kao(:,10,12) = (/ & - & 0.19421e+00,0.18024e+00,0.16872e+00,0.15815e+00,0.14837e+00 /) - kao(:,11,12) = (/ & - & 0.27315e+00,0.25480e+00,0.23771e+00,0.22191e+00,0.20780e+00 /) - kao(:,12,12) = (/ & - & 0.29027e+00,0.26969e+00,0.25017e+00,0.23314e+00,0.21774e+00 /) - kao(:,13,12) = (/ & - & 0.24833e+00,0.22943e+00,0.21278e+00,0.19800e+00,0.18543e+00 /) - kao(:, 1,13) = (/ & - & 0.29672e+02,0.29291e+02,0.29191e+02,0.29170e+02,0.29116e+02 /) - kao(:, 2,13) = (/ & - & 0.24713e+02,0.24965e+02,0.25039e+02,0.25355e+02,0.25650e+02 /) - kao(:, 3,13) = (/ & - & 0.30510e+02,0.31166e+02,0.30663e+02,0.31021e+02,0.30901e+02 /) - kao(:, 4,13) = (/ & - & 0.38695e+02,0.38922e+02,0.38741e+02,0.39204e+02,0.38826e+02 /) - kao(:, 5,13) = (/ & - & 0.45118e+02,0.44337e+02,0.43664e+02,0.43267e+02,0.43524e+02 /) - kao(:, 6,13) = (/ & - & 0.34652e+02,0.35182e+02,0.35339e+02,0.35340e+02,0.35899e+02 /) - kao(:, 7,13) = (/ & - & 0.18801e+02,0.18598e+02,0.18855e+02,0.18819e+02,0.19052e+02 /) - kao(:, 8,13) = (/ & - & 0.12297e-01,0.11425e-01,0.10670e-01,0.99994e-02,0.94139e-02 /) - kao(:, 9,13) = (/ & - & 0.46821e-01,0.43361e-01,0.40368e-01,0.37752e-01,0.35493e-01 /) - kao(:,10,13) = (/ & - & 0.19817e+00,0.18303e+00,0.17002e+00,0.15883e+00,0.14933e+00 /) - kao(:,11,13) = (/ & - & 0.28145e+00,0.25995e+00,0.24181e+00,0.22660e+00,0.21326e+00 /) - kao(:,12,13) = (/ & - & 0.29510e+00,0.27294e+00,0.25519e+00,0.23947e+00,0.22551e+00 /) - kao(:,13,13) = (/ & - & 0.24830e+00,0.23074e+00,0.21556e+00,0.20226e+00,0.19029e+00 /) - kao(:, 1,14) = (/ & - & 0.47168e+02,0.46890e+02,0.46612e+02,0.46353e+02,0.46088e+02 /) - kao(:, 2,14) = (/ & - & 0.47771e+02,0.46980e+02,0.46445e+02,0.45828e+02,0.45437e+02 /) - kao(:, 3,14) = (/ & - & 0.42946e+02,0.42652e+02,0.43791e+02,0.43237e+02,0.44104e+02 /) - kao(:, 4,14) = (/ & - & 0.30957e+02,0.30098e+02,0.30055e+02,0.29555e+02,0.29902e+02 /) - kao(:, 5,14) = (/ & - & 0.28397e+01,0.38572e+01,0.42906e+01,0.47091e+01,0.48135e+01 /) - kao(:, 6,14) = (/ & - & 0.36978e-02,0.34591e-02,0.32524e-02,0.30649e-02,0.29018e-02 /) - kao(:, 7,14) = (/ & - & 0.61733e-02,0.57589e-02,0.53925e-02,0.50742e-02,0.47835e-02 /) - kao(:, 8,14) = (/ & - & 0.12390e-01,0.11526e-01,0.10766e-01,0.10096e-01,0.95010e-02 /) - kao(:, 9,14) = (/ & - & 0.47105e-01,0.43648e-01,0.40665e-01,0.38054e-01,0.35722e-01 /) - kao(:,10,14) = (/ & - & 0.19915e+00,0.18412e+00,0.17099e+00,0.15957e+00,0.14948e+00 /) - kao(:,11,14) = (/ & - & 0.28280e+00,0.26124e+00,0.24266e+00,0.22645e+00,0.21214e+00 /) - kao(:,12,14) = (/ & - & 0.29891e+00,0.27613e+00,0.25648e+00,0.23927e+00,0.22423e+00 /) - kao(:,13,14) = (/ & - & 0.25421e+00,0.23484e+00,0.21809e+00,0.20347e+00,0.19057e+00 /) - kao(:, 1,15) = (/ & - & 0.64994e+02,0.64283e+02,0.63755e+02,0.63407e+02,0.63287e+02 /) - kao(:, 2,15) = (/ & - & 0.78266e+02,0.77364e+02,0.76722e+02,0.76285e+02,0.75992e+02 /) - kao(:, 3,15) = (/ & - & 0.41710e+02,0.38379e+02,0.35076e+02,0.35418e+02,0.33306e+02 /) - kao(:, 4,15) = (/ & - & 0.14170e-02,0.13401e-02,0.12716e-02,0.12073e-02,0.11535e-02 /) - kao(:, 5,15) = (/ & - & 0.23659e-02,0.22261e-02,0.21042e-02,0.19950e-02,0.18970e-02 /) - kao(:, 6,15) = (/ & - & 0.37432e-02,0.35105e-02,0.33006e-02,0.31222e-02,0.29521e-02 /) - kao(:, 7,15) = (/ & - & 0.62408e-02,0.58258e-02,0.54782e-02,0.51594e-02,0.48767e-02 /) - kao(:, 8,15) = (/ & - & 0.12522e-01,0.11652e-01,0.10922e-01,0.10265e-01,0.96672e-02 /) - kao(:, 9,15) = (/ & - & 0.47545e-01,0.44152e-01,0.41251e-01,0.38666e-01,0.36358e-01 /) - kao(:,10,15) = (/ & - & 0.20097e+00,0.18592e+00,0.17341e+00,0.16203e+00,0.15235e+00 /) - kao(:,11,15) = (/ & - & 0.28499e+00,0.26428e+00,0.24585e+00,0.22980e+00,0.21575e+00 /) - kao(:,12,15) = (/ & - & 0.30172e+00,0.27929e+00,0.25980e+00,0.24306e+00,0.22789e+00 /) - kao(:,13,15) = (/ & - & 0.25655e+00,0.23731e+00,0.22092e+00,0.20639e+00,0.19367e+00 /) - kao(:, 1,16) = (/ & - & 0.80810e+02,0.81099e+02,0.81190e+02,0.81107e+02,0.80989e+02 /) - kao(:, 2,16) = (/ & - & 0.99319e+02,0.99708e+02,0.99822e+02,0.99871e+02,0.99993e+02 /) - kao(:, 3,16) = (/ & - & 0.46927e+02,0.54316e+02,0.57355e+02,0.53715e+02,0.52802e+02 /) - kao(:, 4,16) = (/ & - & 0.12802e-02,0.12027e-02,0.11386e-02,0.10866e-02,0.10525e-02 /) - kao(:, 5,16) = (/ & - & 0.21675e-02,0.20715e-02,0.19422e-02,0.18402e-02,0.17681e-02 /) - kao(:, 6,16) = (/ & - & 0.34707e-02,0.32796e-02,0.30986e-02,0.29246e-02,0.28034e-02 /) - kao(:, 7,16) = (/ & - & 0.58659e-02,0.55310e-02,0.51820e-02,0.48829e-02,0.46784e-02 /) - kao(:, 8,16) = (/ & - & 0.11875e-01,0.11183e-01,0.10438e-01,0.98038e-02,0.93665e-02 /) - kao(:, 9,16) = (/ & - & 0.45519e-01,0.42850e-01,0.39715e-01,0.37447e-01,0.35369e-01 /) - kao(:,10,16) = (/ & - & 0.19392e+00,0.18108e+00,0.16817e+00,0.15883e+00,0.14864e+00 /) - kao(:,11,16) = (/ & - & 0.27830e+00,0.25715e+00,0.24100e+00,0.22595e+00,0.21321e+00 /) - kao(:,12,16) = (/ & - & 0.29533e+00,0.27422e+00,0.25636e+00,0.23936e+00,0.22658e+00 /) - kao(:,13,16) = (/ & - & 0.25310e+00,0.23535e+00,0.21855e+00,0.20552e+00,0.19293e+00 /) - -! ----------------------------------------------------------------- -! The array KBO contains absorption coefs at the 16 chosen g-values -! for a range of pressure levels < ~100mb and temperatures. The first -! index in the array, JT, which runs from 1 to 5, corresponds to -! different temperatures. More specifically, JT = 3 means that the -! data are for the reference temperature TREF for this pressure -! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for -! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. -! The second index, JP, runs from 13 to 59 and refers to the JPth -! reference pressure level (see taumol.f for the value of these -! pressure levels in mb). The third index, IG, goes from 1 to 16, -! and tells us which g-interval the absorption coefficients are for. -! ----------------------------------------------------------------- - - kbo(:,13, 1) = (/ & - & 0.18379e-05,0.23296e-05,0.29007e-05,0.35902e-05,0.43437e-05 /) - kbo(:,14, 1) = (/ & - & 0.15919e-05,0.19832e-05,0.24720e-05,0.30683e-05,0.37253e-05 /) - kbo(:,15, 1) = (/ & - & 0.13850e-05,0.17115e-05,0.21225e-05,0.26292e-05,0.31945e-05 /) - kbo(:,16, 1) = (/ & - & 0.11896e-05,0.14680e-05,0.18142e-05,0.22537e-05,0.27284e-05 /) - kbo(:,17, 1) = (/ & - & 0.10228e-05,0.12597e-05,0.15532e-05,0.19272e-05,0.23163e-05 /) - kbo(:,18, 1) = (/ & - & 0.88243e-06,0.10835e-05,0.13316e-05,0.16603e-05,0.19808e-05 /) - kbo(:,19, 1) = (/ & - & 0.75677e-06,0.92925e-06,0.11401e-05,0.14107e-05,0.16901e-05 /) - kbo(:,20, 1) = (/ & - & 0.64614e-06,0.79361e-06,0.97353e-06,0.11964e-05,0.14414e-05 /) - kbo(:,21, 1) = (/ & - & 0.55323e-06,0.67580e-06,0.82647e-06,0.10137e-05,0.12318e-05 /) - kbo(:,22, 1) = (/ & - & 0.47719e-06,0.58149e-06,0.71060e-06,0.87005e-06,0.10605e-05 /) - kbo(:,23, 1) = (/ & - & 0.41128e-06,0.50080e-06,0.61104e-06,0.75347e-06,0.91200e-06 /) - kbo(:,24, 1) = (/ & - & 0.35306e-06,0.42860e-06,0.52320e-06,0.65156e-06,0.78122e-06 /) - kbo(:,25, 1) = (/ & - & 0.30363e-06,0.36731e-06,0.44673e-06,0.56097e-06,0.66791e-06 /) - kbo(:,26, 1) = (/ & - & 0.26073e-06,0.31537e-06,0.38738e-06,0.48210e-06,0.57382e-06 /) - kbo(:,27, 1) = (/ & - & 0.22303e-06,0.26986e-06,0.33628e-06,0.41161e-06,0.48722e-06 /) - kbo(:,28, 1) = (/ & - & 0.18954e-06,0.22952e-06,0.28797e-06,0.35166e-06,0.41440e-06 /) - kbo(:,29, 1) = (/ & - & 0.16106e-06,0.19430e-06,0.24661e-06,0.29815e-06,0.35151e-06 /) - kbo(:,30, 1) = (/ & - & 0.13630e-06,0.16528e-06,0.20922e-06,0.25193e-06,0.29913e-06 /) - kbo(:,31, 1) = (/ & - & 0.11504e-06,0.14276e-06,0.17807e-06,0.21482e-06,0.25451e-06 /) - kbo(:,32, 1) = (/ & - & 0.96980e-07,0.12215e-06,0.15159e-06,0.18179e-06,0.21515e-06 /) - kbo(:,33, 1) = (/ & - & 0.81598e-07,0.10315e-06,0.12730e-06,0.15190e-06,0.18093e-06 /) - kbo(:,34, 1) = (/ & - & 0.67700e-07,0.85970e-07,0.10559e-06,0.12608e-06,0.15006e-06 /) - kbo(:,35, 1) = (/ & - & 0.55177e-07,0.69519e-07,0.85967e-07,0.10223e-06,0.12147e-06 /) - kbo(:,36, 1) = (/ & - & 0.43924e-07,0.54395e-07,0.67998e-07,0.81142e-07,0.95717e-07 /) - kbo(:,37, 1) = (/ & - & 0.34469e-07,0.41036e-07,0.52575e-07,0.63117e-07,0.74301e-07 /) - kbo(:,38, 1) = (/ & - & 0.26777e-07,0.31734e-07,0.40555e-07,0.49032e-07,0.57653e-07 /) - kbo(:,39, 1) = (/ & - & 0.20670e-07,0.24721e-07,0.30685e-07,0.37873e-07,0.44555e-07 /) - kbo(:,40, 1) = (/ & - & 0.15860e-07,0.19032e-07,0.22612e-07,0.28845e-07,0.34246e-07 /) - kbo(:,41, 1) = (/ & - & 0.12129e-07,0.14603e-07,0.17357e-07,0.21851e-07,0.26346e-07 /) - kbo(:,42, 1) = (/ & - & 0.92319e-08,0.11199e-07,0.13365e-07,0.16174e-07,0.20019e-07 /) - kbo(:,43, 1) = (/ & - & 0.69289e-08,0.84537e-08,0.10159e-07,0.11992e-07,0.14940e-07 /) - kbo(:,44, 1) = (/ & - & 0.51546e-08,0.63380e-08,0.76593e-08,0.90562e-08,0.10716e-07 /) - kbo(:,45, 1) = (/ & - & 0.38335e-08,0.47085e-08,0.57219e-08,0.68148e-08,0.79518e-08 /) - kbo(:,46, 1) = (/ & - & 0.28583e-08,0.34724e-08,0.42447e-08,0.50888e-08,0.59494e-08 /) - kbo(:,47, 1) = (/ & - & 0.20945e-08,0.25418e-08,0.31058e-08,0.37494e-08,0.44274e-08 /) - kbo(:,48, 1) = (/ & - & 0.15164e-08,0.18560e-08,0.22628e-08,0.27371e-08,0.32773e-08 /) - kbo(:,49, 1) = (/ & - & 0.10916e-08,0.13465e-08,0.16387e-08,0.19740e-08,0.23865e-08 /) - kbo(:,50, 1) = (/ & - & 0.78324e-09,0.98361e-09,0.11977e-08,0.14517e-08,0.17457e-08 /) - kbo(:,51, 1) = (/ & - & 0.57263e-09,0.71786e-09,0.87689e-09,0.10705e-08,0.12881e-08 /) - kbo(:,52, 1) = (/ & - & 0.41574e-09,0.51264e-09,0.64152e-09,0.78315e-09,0.94705e-09 /) - kbo(:,53, 1) = (/ & - & 0.29940e-09,0.36836e-09,0.45886e-09,0.56405e-09,0.69166e-09 /) - kbo(:,54, 1) = (/ & - & 0.22617e-09,0.27395e-09,0.33754e-09,0.42095e-09,0.51544e-09 /) - kbo(:,55, 1) = (/ & - & 0.17483e-09,0.20845e-09,0.25546e-09,0.31817e-09,0.39119e-09 /) - kbo(:,56, 1) = (/ & - & 0.13496e-09,0.15930e-09,0.19380e-09,0.23861e-09,0.29770e-09 /) - kbo(:,57, 1) = (/ & - & 0.10406e-09,0.12247e-09,0.14749e-09,0.18078e-09,0.22597e-09 /) - kbo(:,58, 1) = (/ & - & 0.81345e-10,0.94816e-10,0.11329e-09,0.13832e-09,0.17161e-09 /) - kbo(:,59, 1) = (/ & - & 0.67159e-10,0.78312e-10,0.94745e-10,0.11544e-09,0.14442e-09 /) - kbo(:,13, 2) = (/ & - & 0.16654e-04,0.18728e-04,0.21238e-04,0.24491e-04,0.29038e-04 /) - kbo(:,14, 2) = (/ & - & 0.15636e-04,0.17574e-04,0.19918e-04,0.23671e-04,0.27237e-04 /) - kbo(:,15, 2) = (/ & - & 0.14853e-04,0.16629e-04,0.19700e-04,0.22604e-04,0.25586e-04 /) - kbo(:,16, 2) = (/ & - & 0.13519e-04,0.15923e-04,0.18289e-04,0.20530e-04,0.22799e-04 /) - kbo(:,17, 2) = (/ & - & 0.12411e-04,0.14439e-04,0.16431e-04,0.18235e-04,0.20109e-04 /) - kbo(:,18, 2) = (/ & - & 0.11267e-04,0.12880e-04,0.14429e-04,0.16005e-04,0.17538e-04 /) - kbo(:,19, 2) = (/ & - & 0.10025e-04,0.11332e-04,0.12550e-04,0.13853e-04,0.15103e-04 /) - kbo(:,20, 2) = (/ & - & 0.86342e-05,0.97455e-05,0.10778e-04,0.11898e-04,0.12789e-04 /) - kbo(:,21, 2) = (/ & - & 0.74004e-05,0.83107e-05,0.91633e-05,0.10071e-04,0.10674e-04 /) - kbo(:,22, 2) = (/ & - & 0.63700e-05,0.70549e-05,0.78271e-05,0.85170e-05,0.90022e-05 /) - kbo(:,23, 2) = (/ & - & 0.54404e-05,0.60156e-05,0.66393e-05,0.71320e-05,0.75007e-05 /) - kbo(:,24, 2) = (/ & - & 0.45997e-05,0.50718e-05,0.55713e-05,0.59455e-05,0.62118e-05 /) - kbo(:,25, 2) = (/ & - & 0.38745e-05,0.42617e-05,0.46479e-05,0.49297e-05,0.51638e-05 /) - kbo(:,26, 2) = (/ & - & 0.32488e-05,0.35592e-05,0.38685e-05,0.40759e-05,0.43092e-05 /) - kbo(:,27, 2) = (/ & - & 0.26995e-05,0.29601e-05,0.32065e-05,0.33666e-05,0.35609e-05 /) - kbo(:,28, 2) = (/ & - & 0.22359e-05,0.24429e-05,0.26408e-05,0.27752e-05,0.29293e-05 /) - kbo(:,29, 2) = (/ & - & 0.18487e-05,0.20089e-05,0.21668e-05,0.22793e-05,0.24029e-05 /) - kbo(:,30, 2) = (/ & - & 0.15291e-05,0.16589e-05,0.17733e-05,0.18706e-05,0.19584e-05 /) - kbo(:,31, 2) = (/ & - & 0.12554e-05,0.13589e-05,0.14436e-05,0.15195e-05,0.15928e-05 /) - kbo(:,32, 2) = (/ & - & 0.10248e-05,0.11046e-05,0.11716e-05,0.12288e-05,0.12916e-05 /) - kbo(:,33, 2) = (/ & - & 0.83272e-06,0.89120e-06,0.95036e-06,0.99040e-06,0.10409e-05 /) - kbo(:,34, 2) = (/ & - & 0.67518e-06,0.72097e-06,0.76854e-06,0.80246e-06,0.83912e-06 /) - kbo(:,35, 2) = (/ & - & 0.53577e-06,0.57870e-06,0.61715e-06,0.64987e-06,0.67220e-06 /) - kbo(:,36, 2) = (/ & - & 0.42402e-06,0.45825e-06,0.49307e-06,0.52005e-06,0.54029e-06 /) - kbo(:,37, 2) = (/ & - & 0.33419e-06,0.36213e-06,0.38911e-06,0.41359e-06,0.43177e-06 /) - kbo(:,38, 2) = (/ & - & 0.26240e-06,0.28355e-06,0.30530e-06,0.32881e-06,0.34617e-06 /) - kbo(:,39, 2) = (/ & - & 0.20468e-06,0.22245e-06,0.23980e-06,0.25776e-06,0.27424e-06 /) - kbo(:,40, 2) = (/ & - & 0.16070e-06,0.17478e-06,0.18856e-06,0.20230e-06,0.21801e-06 /) - kbo(:,41, 2) = (/ & - & 0.12583e-06,0.13680e-06,0.14851e-06,0.15917e-06,0.17184e-06 /) - kbo(:,42, 2) = (/ & - & 0.98494e-07,0.10639e-06,0.11634e-06,0.12500e-06,0.13490e-06 /) - kbo(:,43, 2) = (/ & - & 0.75196e-07,0.82809e-07,0.90095e-07,0.97952e-07,0.10509e-06 /) - kbo(:,44, 2) = (/ & - & 0.57305e-07,0.63787e-07,0.69227e-07,0.75635e-07,0.81687e-07 /) - kbo(:,45, 2) = (/ & - & 0.42965e-07,0.48245e-07,0.53346e-07,0.58061e-07,0.63120e-07 /) - kbo(:,46, 2) = (/ & - & 0.31048e-07,0.36457e-07,0.40514e-07,0.44557e-07,0.48550e-07 /) - kbo(:,47, 2) = (/ & - & 0.23094e-07,0.26356e-07,0.30443e-07,0.33954e-07,0.36789e-07 /) - kbo(:,48, 2) = (/ & - & 0.16858e-07,0.19402e-07,0.22449e-07,0.25401e-07,0.28254e-07 /) - kbo(:,49, 2) = (/ & - & 0.11413e-07,0.14055e-07,0.16046e-07,0.18927e-07,0.21080e-07 /) - kbo(:,50, 2) = (/ & - & 0.78650e-08,0.99879e-08,0.11846e-07,0.13654e-07,0.15871e-07 /) - kbo(:,51, 2) = (/ & - & 0.55417e-08,0.68977e-08,0.87006e-08,0.10108e-07,0.11829e-07 /) - kbo(:,52, 2) = (/ & - & 0.39143e-08,0.48025e-08,0.60180e-08,0.73762e-08,0.85851e-08 /) - kbo(:,53, 2) = (/ & - & 0.27637e-08,0.33397e-08,0.41996e-08,0.52787e-08,0.62923e-08 /) - kbo(:,54, 2) = (/ & - & 0.19691e-08,0.24529e-08,0.30071e-08,0.38041e-08,0.46981e-08 /) - kbo(:,55, 2) = (/ & - & 0.13034e-08,0.18257e-08,0.22359e-08,0.28210e-08,0.35386e-08 /) - kbo(:,56, 2) = (/ & - & 0.10026e-08,0.13422e-08,0.16687e-08,0.20793e-08,0.26054e-08 /) - kbo(:,57, 2) = (/ & - & 0.77730e-09,0.91190e-09,0.12468e-08,0.15302e-08,0.19418e-08 /) - kbo(:,58, 2) = (/ & - & 0.60359e-09,0.67848e-09,0.92414e-09,0.11511e-08,0.14401e-08 /) - kbo(:,59, 2) = (/ & - & 0.50441e-09,0.56797e-09,0.77369e-09,0.95612e-09,0.11957e-08 /) - kbo(:,13, 3) = (/ & - & 0.98124e-04,0.10149e-03,0.10303e-03,0.10669e-03,0.10870e-03 /) - kbo(:,14, 3) = (/ & - & 0.88110e-04,0.89730e-04,0.90679e-04,0.91892e-04,0.91413e-04 /) - kbo(:,15, 3) = (/ & - & 0.78555e-04,0.78633e-04,0.79145e-04,0.77689e-04,0.77791e-04 /) - kbo(:,16, 3) = (/ & - & 0.67245e-04,0.67743e-04,0.66690e-04,0.65765e-04,0.65950e-04 /) - kbo(:,17, 3) = (/ & - & 0.57553e-04,0.57490e-04,0.56012e-04,0.55634e-04,0.56016e-04 /) - kbo(:,18, 3) = (/ & - & 0.49729e-04,0.48302e-04,0.47418e-04,0.47262e-04,0.47732e-04 /) - kbo(:,19, 3) = (/ & - & 0.42101e-04,0.40906e-04,0.40541e-04,0.40229e-04,0.40671e-04 /) - kbo(:,20, 3) = (/ & - & 0.35046e-04,0.34193e-04,0.34032e-04,0.33881e-04,0.34691e-04 /) - kbo(:,21, 3) = (/ & - & 0.29192e-04,0.28813e-04,0.28525e-04,0.28485e-04,0.29764e-04 /) - kbo(:,22, 3) = (/ & - & 0.24212e-04,0.23970e-04,0.23804e-04,0.23947e-04,0.24310e-04 /) - kbo(:,23, 3) = (/ & - & 0.20167e-04,0.19961e-04,0.19837e-04,0.20528e-04,0.19887e-04 /) - kbo(:,24, 3) = (/ & - & 0.16817e-04,0.16624e-04,0.16525e-04,0.17263e-04,0.16481e-04 /) - kbo(:,25, 3) = (/ & - & 0.13896e-04,0.13806e-04,0.13810e-04,0.14348e-04,0.13634e-04 /) - kbo(:,26, 3) = (/ & - & 0.11515e-04,0.11474e-04,0.11553e-04,0.11705e-04,0.11167e-04 /) - kbo(:,27, 3) = (/ & - & 0.95004e-05,0.94543e-05,0.95650e-05,0.95316e-05,0.91651e-05 /) - kbo(:,28, 3) = (/ & - & 0.78135e-05,0.77862e-05,0.78715e-05,0.77825e-05,0.74877e-05 /) - kbo(:,29, 3) = (/ & - & 0.63615e-05,0.63601e-05,0.64198e-05,0.63507e-05,0.61200e-05 /) - kbo(:,30, 3) = (/ & - & 0.51738e-05,0.51781e-05,0.52250e-05,0.51709e-05,0.50243e-05 /) - kbo(:,31, 3) = (/ & - & 0.41825e-05,0.42240e-05,0.42510e-05,0.42241e-05,0.41058e-05 /) - kbo(:,32, 3) = (/ & - & 0.34024e-05,0.34302e-05,0.34514e-05,0.34436e-05,0.33474e-05 /) - kbo(:,33, 3) = (/ & - & 0.27510e-05,0.27828e-05,0.28059e-05,0.28125e-05,0.27394e-05 /) - kbo(:,34, 3) = (/ & - & 0.22195e-05,0.22517e-05,0.22743e-05,0.22728e-05,0.22254e-05 /) - kbo(:,35, 3) = (/ & - & 0.18029e-05,0.18238e-05,0.18432e-05,0.18461e-05,0.18241e-05 /) - kbo(:,36, 3) = (/ & - & 0.14477e-05,0.14734e-05,0.14936e-05,0.15116e-05,0.14874e-05 /) - kbo(:,37, 3) = (/ & - & 0.11637e-05,0.11929e-05,0.12098e-05,0.12265e-05,0.12076e-05 /) - kbo(:,38, 3) = (/ & - & 0.93292e-06,0.96246e-06,0.98169e-06,0.99435e-06,0.98749e-06 /) - kbo(:,39, 3) = (/ & - & 0.74927e-06,0.76742e-06,0.79020e-06,0.80604e-06,0.81415e-06 /) - kbo(:,40, 3) = (/ & - & 0.60479e-06,0.61743e-06,0.63973e-06,0.65295e-06,0.66261e-06 /) - kbo(:,41, 3) = (/ & - & 0.48450e-06,0.49742e-06,0.51366e-06,0.52876e-06,0.53813e-06 /) - kbo(:,42, 3) = (/ & - & 0.38298e-06,0.40088e-06,0.41192e-06,0.42651e-06,0.43595e-06 /) - kbo(:,43, 3) = (/ & - & 0.30310e-06,0.31905e-06,0.32907e-06,0.34154e-06,0.35007e-06 /) - kbo(:,44, 3) = (/ & - & 0.23745e-06,0.25035e-06,0.26224e-06,0.27145e-06,0.28146e-06 /) - kbo(:,45, 3) = (/ & - & 0.18653e-06,0.19510e-06,0.20644e-06,0.21510e-06,0.22354e-06 /) - kbo(:,46, 3) = (/ & - & 0.14759e-06,0.15322e-06,0.16145e-06,0.17034e-06,0.17744e-06 /) - kbo(:,47, 3) = (/ & - & 0.11410e-06,0.12007e-06,0.12507e-06,0.13237e-06,0.13995e-06 /) - kbo(:,48, 3) = (/ & - & 0.88327e-07,0.93967e-07,0.97683e-07,0.10257e-06,0.10921e-06 /) - kbo(:,49, 3) = (/ & - & 0.66715e-07,0.72172e-07,0.76442e-07,0.79214e-07,0.84006e-07 /) - kbo(:,50, 3) = (/ & - & 0.51458e-07,0.55761e-07,0.59239e-07,0.62292e-07,0.64470e-07 /) - kbo(:,51, 3) = (/ & - & 0.39957e-07,0.42400e-07,0.45870e-07,0.48592e-07,0.50287e-07 /) - kbo(:,52, 3) = (/ & - & 0.31150e-07,0.32725e-07,0.35598e-07,0.37633e-07,0.39607e-07 /) - kbo(:,53, 3) = (/ & - & 0.23783e-07,0.25415e-07,0.26634e-07,0.28885e-07,0.30620e-07 /) - kbo(:,54, 3) = (/ & - & 0.18531e-07,0.19938e-07,0.20988e-07,0.22678e-07,0.23867e-07 /) - kbo(:,55, 3) = (/ & - & 0.14810e-07,0.15772e-07,0.16651e-07,0.17727e-07,0.18861e-07 /) - kbo(:,56, 3) = (/ & - & 0.11652e-07,0.12557e-07,0.13319e-07,0.13930e-07,0.15077e-07 /) - kbo(:,57, 3) = (/ & - & 0.91523e-08,0.99835e-08,0.10603e-07,0.11081e-07,0.11999e-07 /) - kbo(:,58, 3) = (/ & - & 0.72383e-08,0.79060e-08,0.84489e-08,0.88615e-08,0.94456e-08 /) - kbo(:,59, 3) = (/ & - & 0.60315e-08,0.65931e-08,0.71001e-08,0.74012e-08,0.78761e-08 /) - kbo(:,13, 4) = (/ & - & 0.21882e-03,0.20968e-03,0.18648e-03,0.17505e-03,0.17320e-03 /) - kbo(:,14, 4) = (/ & - & 0.19140e-03,0.17026e-03,0.15903e-03,0.15552e-03,0.16009e-03 /) - kbo(:,15, 4) = (/ & - & 0.16003e-03,0.14531e-03,0.14007e-03,0.14511e-03,0.14619e-03 /) - kbo(:,16, 4) = (/ & - & 0.13387e-03,0.12423e-03,0.12444e-03,0.12743e-03,0.12749e-03 /) - kbo(:,17, 4) = (/ & - & 0.11266e-03,0.10780e-03,0.11110e-03,0.11051e-03,0.11075e-03 /) - kbo(:,18, 4) = (/ & - & 0.96156e-04,0.95617e-04,0.96775e-04,0.96220e-04,0.96078e-04 /) - kbo(:,19, 4) = (/ & - & 0.82712e-04,0.82946e-04,0.83265e-04,0.82827e-04,0.82044e-04 /) - kbo(:,20, 4) = (/ & - & 0.71080e-04,0.71167e-04,0.71040e-04,0.70443e-04,0.69069e-04 /) - kbo(:,21, 4) = (/ & - & 0.60110e-04,0.60836e-04,0.59994e-04,0.58992e-04,0.57237e-04 /) - kbo(:,22, 4) = (/ & - & 0.50688e-04,0.51296e-04,0.50271e-04,0.48889e-04,0.48471e-04 /) - kbo(:,23, 4) = (/ & - & 0.42706e-04,0.42628e-04,0.41764e-04,0.39999e-04,0.40893e-04 /) - kbo(:,24, 4) = (/ & - & 0.35803e-04,0.35316e-04,0.34535e-04,0.33229e-04,0.34127e-04 /) - kbo(:,25, 4) = (/ & - & 0.29906e-04,0.29201e-04,0.28336e-04,0.27455e-04,0.28044e-04 /) - kbo(:,26, 4) = (/ & - & 0.24659e-04,0.23926e-04,0.23159e-04,0.22827e-04,0.23266e-04 /) - kbo(:,27, 4) = (/ & - & 0.20221e-04,0.19578e-04,0.18838e-04,0.18853e-04,0.19067e-04 /) - kbo(:,28, 4) = (/ & - & 0.16345e-04,0.15913e-04,0.15327e-04,0.15412e-04,0.15560e-04 /) - kbo(:,29, 4) = (/ & - & 0.13195e-04,0.12870e-04,0.12430e-04,0.12518e-04,0.12639e-04 /) - kbo(:,30, 4) = (/ & - & 0.10622e-04,0.10384e-04,0.10068e-04,0.10151e-04,0.10256e-04 /) - kbo(:,31, 4) = (/ & - & 0.85785e-05,0.83523e-05,0.81227e-05,0.81998e-05,0.83313e-05 /) - kbo(:,32, 4) = (/ & - & 0.69114e-05,0.67093e-05,0.65758e-05,0.66222e-05,0.67679e-05 /) - kbo(:,33, 4) = (/ & - & 0.55456e-05,0.54342e-05,0.53229e-05,0.53610e-05,0.54819e-05 /) - kbo(:,34, 4) = (/ & - & 0.44461e-05,0.43891e-05,0.43112e-05,0.43632e-05,0.44560e-05 /) - kbo(:,35, 4) = (/ & - & 0.35725e-05,0.35192e-05,0.34703e-05,0.35075e-05,0.35919e-05 /) - kbo(:,36, 4) = (/ & - & 0.28842e-05,0.28362e-05,0.28143e-05,0.28097e-05,0.29057e-05 /) - kbo(:,37, 4) = (/ & - & 0.23374e-05,0.22987e-05,0.22934e-05,0.22812e-05,0.23451e-05 /) - kbo(:,38, 4) = (/ & - & 0.18966e-05,0.18679e-05,0.18613e-05,0.18437e-05,0.18894e-05 /) - kbo(:,39, 4) = (/ & - & 0.15300e-05,0.15180e-05,0.15096e-05,0.14915e-05,0.15107e-05 /) - kbo(:,40, 4) = (/ & - & 0.12426e-05,0.12357e-05,0.12171e-05,0.12170e-05,0.12227e-05 /) - kbo(:,41, 4) = (/ & - & 0.10102e-05,0.10077e-05,0.98593e-06,0.98478e-06,0.99213e-06 /) - kbo(:,42, 4) = (/ & - & 0.82201e-06,0.81050e-06,0.80313e-06,0.80181e-06,0.80361e-06 /) - kbo(:,43, 4) = (/ & - & 0.67318e-06,0.65347e-06,0.65478e-06,0.64360e-06,0.64722e-06 /) - kbo(:,44, 4) = (/ & - & 0.55598e-06,0.53355e-06,0.52778e-06,0.52097e-06,0.51997e-06 /) - kbo(:,45, 4) = (/ & - & 0.46157e-06,0.43457e-06,0.42412e-06,0.42137e-06,0.41750e-06 /) - kbo(:,46, 4) = (/ & - & 0.39156e-06,0.35690e-06,0.34498e-06,0.33995e-06,0.33614e-06 /) - kbo(:,47, 4) = (/ & - & 0.33392e-06,0.29746e-06,0.28074e-06,0.27344e-06,0.27079e-06 /) - kbo(:,48, 4) = (/ & - & 0.27066e-06,0.25369e-06,0.23115e-06,0.22213e-06,0.21766e-06 /) - kbo(:,49, 4) = (/ & - & 0.22198e-06,0.21395e-06,0.19274e-06,0.18040e-06,0.17542e-06 /) - kbo(:,50, 4) = (/ & - & 0.18070e-06,0.17367e-06,0.16473e-06,0.14916e-06,0.14306e-06 /) - kbo(:,51, 4) = (/ & - & 0.14595e-06,0.14287e-06,0.13847e-06,0.12418e-06,0.11697e-06 /) - kbo(:,52, 4) = (/ & - & 0.11819e-06,0.11588e-06,0.11225e-06,0.10604e-06,0.96269e-07 /) - kbo(:,53, 4) = (/ & - & 0.95028e-07,0.93094e-07,0.91303e-07,0.88900e-07,0.80262e-07 /) - kbo(:,54, 4) = (/ & - & 0.77005e-07,0.76238e-07,0.74228e-07,0.72526e-07,0.67965e-07 /) - kbo(:,55, 4) = (/ & - & 0.62979e-07,0.62692e-07,0.60930e-07,0.59579e-07,0.57700e-07 /) - kbo(:,56, 4) = (/ & - & 0.51571e-07,0.51196e-07,0.50031e-07,0.48916e-07,0.48127e-07 /) - kbo(:,57, 4) = (/ & - & 0.42602e-07,0.41678e-07,0.41006e-07,0.39709e-07,0.39283e-07 /) - kbo(:,58, 4) = (/ & - & 0.35155e-07,0.34052e-07,0.33561e-07,0.32395e-07,0.32057e-07 /) - kbo(:,59, 4) = (/ & - & 0.29318e-07,0.28516e-07,0.28097e-07,0.26888e-07,0.26840e-07 /) - kbo(:,13, 5) = (/ & - & 0.43718e-03,0.42279e-03,0.43200e-03,0.42910e-03,0.42775e-03 /) - kbo(:,14, 5) = (/ & - & 0.37902e-03,0.38090e-03,0.38058e-03,0.37637e-03,0.36798e-03 /) - kbo(:,15, 5) = (/ & - & 0.33222e-03,0.33597e-03,0.33205e-03,0.32000e-03,0.31310e-03 /) - kbo(:,16, 5) = (/ & - & 0.28736e-03,0.28700e-03,0.27853e-03,0.26891e-03,0.26391e-03 /) - kbo(:,17, 5) = (/ & - & 0.24534e-03,0.24098e-03,0.23072e-03,0.22519e-03,0.22013e-03 /) - kbo(:,18, 5) = (/ & - & 0.20645e-03,0.20019e-03,0.19266e-03,0.18716e-03,0.18139e-03 /) - kbo(:,19, 5) = (/ & - & 0.17271e-03,0.16642e-03,0.16064e-03,0.15556e-03,0.14951e-03 /) - kbo(:,20, 5) = (/ & - & 0.14266e-03,0.13766e-03,0.13239e-03,0.12767e-03,0.12305e-03 /) - kbo(:,21, 5) = (/ & - & 0.11797e-03,0.11256e-03,0.10880e-03,0.10424e-03,0.10062e-03 /) - kbo(:,22, 5) = (/ & - & 0.97085e-04,0.92101e-04,0.88420e-04,0.85535e-04,0.82201e-04 /) - kbo(:,23, 5) = (/ & - & 0.79380e-04,0.75312e-04,0.72177e-04,0.69710e-04,0.66966e-04 /) - kbo(:,24, 5) = (/ & - & 0.64591e-04,0.61520e-04,0.58891e-04,0.56626e-04,0.54603e-04 /) - kbo(:,25, 5) = (/ & - & 0.52423e-04,0.49934e-04,0.48122e-04,0.46331e-04,0.44875e-04 /) - kbo(:,26, 5) = (/ & - & 0.42528e-04,0.40739e-04,0.39218e-04,0.37806e-04,0.36631e-04 /) - kbo(:,27, 5) = (/ & - & 0.34453e-04,0.33104e-04,0.32009e-04,0.30764e-04,0.30000e-04 /) - kbo(:,28, 5) = (/ & - & 0.28076e-04,0.26948e-04,0.26097e-04,0.25065e-04,0.24596e-04 /) - kbo(:,29, 5) = (/ & - & 0.22814e-04,0.21902e-04,0.21222e-04,0.20350e-04,0.20152e-04 /) - kbo(:,30, 5) = (/ & - & 0.18551e-04,0.17731e-04,0.17162e-04,0.16614e-04,0.16461e-04 /) - kbo(:,31, 5) = (/ & - & 0.15020e-04,0.14383e-04,0.13922e-04,0.13548e-04,0.13388e-04 /) - kbo(:,32, 5) = (/ & - & 0.12091e-04,0.11653e-04,0.11308e-04,0.11033e-04,0.10954e-04 /) - kbo(:,33, 5) = (/ & - & 0.97901e-05,0.93570e-05,0.91428e-05,0.89594e-05,0.89614e-05 /) - kbo(:,34, 5) = (/ & - & 0.79439e-05,0.76095e-05,0.74365e-05,0.73099e-05,0.73269e-05 /) - kbo(:,35, 5) = (/ & - & 0.64505e-05,0.62326e-05,0.60921e-05,0.59939e-05,0.59799e-05 /) - kbo(:,36, 5) = (/ & - & 0.52745e-05,0.51017e-05,0.49658e-05,0.48988e-05,0.48773e-05 /) - kbo(:,37, 5) = (/ & - & 0.43522e-05,0.42053e-05,0.40681e-05,0.40176e-05,0.40058e-05 /) - kbo(:,38, 5) = (/ & - & 0.35676e-05,0.34559e-05,0.33446e-05,0.33017e-05,0.32771e-05 /) - kbo(:,39, 5) = (/ & - & 0.29238e-05,0.28445e-05,0.27512e-05,0.27095e-05,0.26825e-05 /) - kbo(:,40, 5) = (/ & - & 0.23985e-05,0.23437e-05,0.22756e-05,0.22251e-05,0.22009e-05 /) - kbo(:,41, 5) = (/ & - & 0.19763e-05,0.19311e-05,0.18886e-05,0.18370e-05,0.18072e-05 /) - kbo(:,42, 5) = (/ & - & 0.16256e-05,0.15918e-05,0.15558e-05,0.15108e-05,0.14861e-05 /) - kbo(:,43, 5) = (/ & - & 0.13290e-05,0.13116e-05,0.12833e-05,0.12550e-05,0.12262e-05 /) - kbo(:,44, 5) = (/ & - & 0.10777e-05,0.10760e-05,0.10566e-05,0.10365e-05,0.10136e-05 /) - kbo(:,45, 5) = (/ & - & 0.86690e-06,0.87981e-06,0.87044e-06,0.85428e-06,0.83627e-06 /) - kbo(:,46, 5) = (/ & - & 0.68706e-06,0.71088e-06,0.70939e-06,0.70110e-06,0.69032e-06 /) - kbo(:,47, 5) = (/ & - & 0.54665e-06,0.56934e-06,0.58033e-06,0.57830e-06,0.57105e-06 /) - kbo(:,48, 5) = (/ & - & 0.44874e-06,0.44653e-06,0.46650e-06,0.47090e-06,0.46732e-06 /) - kbo(:,49, 5) = (/ & - & 0.36869e-06,0.35456e-06,0.36842e-06,0.37978e-06,0.38217e-06 /) - kbo(:,50, 5) = (/ & - & 0.30489e-06,0.29229e-06,0.29104e-06,0.30430e-06,0.31068e-06 /) - kbo(:,51, 5) = (/ & - & 0.25290e-06,0.24012e-06,0.23271e-06,0.24366e-06,0.25149e-06 /) - kbo(:,52, 5) = (/ & - & 0.21148e-06,0.19715e-06,0.19121e-06,0.19177e-06,0.20148e-06 /) - kbo(:,53, 5) = (/ & - & 0.17334e-06,0.16335e-06,0.15574e-06,0.15266e-06,0.15921e-06 /) - kbo(:,54, 5) = (/ & - & 0.14189e-06,0.13650e-06,0.12781e-06,0.12535e-06,0.12749e-06 /) - kbo(:,55, 5) = (/ & - & 0.11763e-06,0.11398e-06,0.10627e-06,0.10373e-06,0.10268e-06 /) - kbo(:,56, 5) = (/ & - & 0.98316e-07,0.94892e-07,0.88799e-07,0.85036e-07,0.83393e-07 /) - kbo(:,57, 5) = (/ & - & 0.83049e-07,0.78499e-07,0.74140e-07,0.70137e-07,0.68774e-07 /) - kbo(:,58, 5) = (/ & - & 0.71768e-07,0.64682e-07,0.62012e-07,0.58149e-07,0.57037e-07 /) - kbo(:,59, 5) = (/ & - & 0.60166e-07,0.54824e-07,0.52042e-07,0.49198e-07,0.47862e-07 /) - kbo(:,13, 6) = (/ & - & 0.71254e-03,0.65708e-03,0.60824e-03,0.57965e-03,0.55389e-03 /) - kbo(:,14, 6) = (/ & - & 0.58852e-03,0.54811e-03,0.51125e-03,0.48557e-03,0.47730e-03 /) - kbo(:,15, 6) = (/ & - & 0.50599e-03,0.46869e-03,0.44362e-03,0.43503e-03,0.43705e-03 /) - kbo(:,16, 6) = (/ & - & 0.43493e-03,0.40996e-03,0.39680e-03,0.39623e-03,0.40784e-03 /) - kbo(:,17, 6) = (/ & - & 0.38028e-03,0.36175e-03,0.35696e-03,0.36547e-03,0.38127e-03 /) - kbo(:,18, 6) = (/ & - & 0.33113e-03,0.32205e-03,0.32458e-03,0.33502e-03,0.35577e-03 /) - kbo(:,19, 6) = (/ & - & 0.28886e-03,0.29134e-03,0.29799e-03,0.31134e-03,0.33676e-03 /) - kbo(:,20, 6) = (/ & - & 0.25113e-03,0.25555e-03,0.26535e-03,0.28470e-03,0.30677e-03 /) - kbo(:,21, 6) = (/ & - & 0.21640e-03,0.22152e-03,0.23323e-03,0.25467e-03,0.27764e-03 /) - kbo(:,22, 6) = (/ & - & 0.18601e-03,0.19217e-03,0.20696e-03,0.22593e-03,0.24729e-03 /) - kbo(:,23, 6) = (/ & - & 0.15978e-03,0.16833e-03,0.18229e-03,0.19994e-03,0.21913e-03 /) - kbo(:,24, 6) = (/ & - & 0.13748e-03,0.14696e-03,0.16025e-03,0.17620e-03,0.19459e-03 /) - kbo(:,25, 6) = (/ & - & 0.11841e-03,0.12828e-03,0.13998e-03,0.15487e-03,0.17174e-03 /) - kbo(:,26, 6) = (/ & - & 0.10209e-03,0.11175e-03,0.12193e-03,0.13590e-03,0.15125e-03 /) - kbo(:,27, 6) = (/ & - & 0.87003e-04,0.95681e-04,0.10499e-03,0.11744e-03,0.13086e-03 /) - kbo(:,28, 6) = (/ & - & 0.73110e-04,0.80653e-04,0.89103e-04,0.99988e-04,0.11120e-03 /) - kbo(:,29, 6) = (/ & - & 0.60620e-04,0.66736e-04,0.74222e-04,0.82863e-04,0.92471e-04 /) - kbo(:,30, 6) = (/ & - & 0.49831e-04,0.54602e-04,0.61288e-04,0.68281e-04,0.75599e-04 /) - kbo(:,31, 6) = (/ & - & 0.40315e-04,0.44435e-04,0.49703e-04,0.55140e-04,0.60140e-04 /) - kbo(:,32, 6) = (/ & - & 0.32490e-04,0.36020e-04,0.39894e-04,0.44068e-04,0.48080e-04 /) - kbo(:,33, 6) = (/ & - & 0.26085e-04,0.29063e-04,0.32003e-04,0.35074e-04,0.38662e-04 /) - kbo(:,34, 6) = (/ & - & 0.21201e-04,0.23256e-04,0.25636e-04,0.28140e-04,0.31273e-04 /) - kbo(:,35, 6) = (/ & - & 0.17022e-04,0.18534e-04,0.20322e-04,0.22464e-04,0.25109e-04 /) - kbo(:,36, 6) = (/ & - & 0.13427e-04,0.14606e-04,0.16055e-04,0.17783e-04,0.19877e-04 /) - kbo(:,37, 6) = (/ & - & 0.10630e-04,0.11559e-04,0.12731e-04,0.14118e-04,0.15831e-04 /) - kbo(:,38, 6) = (/ & - & 0.84365e-05,0.91300e-05,0.10077e-04,0.11171e-04,0.12568e-04 /) - kbo(:,39, 6) = (/ & - & 0.66762e-05,0.71770e-05,0.79359e-05,0.88044e-05,0.99043e-05 /) - kbo(:,40, 6) = (/ & - & 0.53561e-05,0.57216e-05,0.63210e-05,0.70080e-05,0.79213e-05 /) - kbo(:,41, 6) = (/ & - & 0.42954e-05,0.45692e-05,0.50356e-05,0.56102e-05,0.63394e-05 /) - kbo(:,42, 6) = (/ & - & 0.34409e-05,0.36788e-05,0.40124e-05,0.44898e-05,0.50645e-05 /) - kbo(:,43, 6) = (/ & - & 0.27453e-05,0.29361e-05,0.31651e-05,0.35498e-05,0.40058e-05 /) - kbo(:,44, 6) = (/ & - & 0.21863e-05,0.23320e-05,0.24965e-05,0.27915e-05,0.31593e-05 /) - kbo(:,45, 6) = (/ & - & 0.17409e-05,0.18472e-05,0.19801e-05,0.21812e-05,0.24741e-05 /) - kbo(:,46, 6) = (/ & - & 0.13903e-05,0.14639e-05,0.15660e-05,0.17042e-05,0.19243e-05 /) - kbo(:,47, 6) = (/ & - & 0.11229e-05,0.11661e-05,0.12377e-05,0.13335e-05,0.14898e-05 /) - kbo(:,48, 6) = (/ & - & 0.90528e-06,0.92962e-06,0.97799e-06,0.10483e-05,0.11575e-05 /) - kbo(:,49, 6) = (/ & - & 0.72877e-06,0.74278e-06,0.77380e-06,0.82564e-06,0.89736e-06 /) - kbo(:,50, 6) = (/ & - & 0.59358e-06,0.59955e-06,0.62170e-06,0.65720e-06,0.70771e-06 /) - kbo(:,51, 6) = (/ & - & 0.48783e-06,0.48769e-06,0.50300e-06,0.52655e-06,0.56377e-06 /) - kbo(:,52, 6) = (/ & - & 0.39834e-06,0.39922e-06,0.40604e-06,0.42316e-06,0.45057e-06 /) - kbo(:,53, 6) = (/ & - & 0.33019e-06,0.32505e-06,0.33011e-06,0.33917e-06,0.35858e-06 /) - kbo(:,54, 6) = (/ & - & 0.27829e-06,0.26763e-06,0.27219e-06,0.27714e-06,0.29159e-06 /) - kbo(:,55, 6) = (/ & - & 0.23259e-06,0.22250e-06,0.22510e-06,0.22855e-06,0.23937e-06 /) - kbo(:,56, 6) = (/ & - & 0.19401e-06,0.18605e-06,0.18566e-06,0.18937e-06,0.19605e-06 /) - kbo(:,57, 6) = (/ & - & 0.15908e-06,0.15649e-06,0.15396e-06,0.15754e-06,0.16039e-06 /) - kbo(:,58, 6) = (/ & - & 0.12892e-06,0.13132e-06,0.12793e-06,0.13093e-06,0.13273e-06 /) - kbo(:,59, 6) = (/ & - & 0.11177e-06,0.11165e-06,0.10875e-06,0.11132e-06,0.11431e-06 /) - kbo(:,13, 7) = (/ & - & 0.19357e-02,0.20341e-02,0.21760e-02,0.22982e-02,0.24550e-02 /) - kbo(:,14, 7) = (/ & - & 0.20343e-02,0.21709e-02,0.23192e-02,0.24854e-02,0.27026e-02 /) - kbo(:,15, 7) = (/ & - & 0.21108e-02,0.23009e-02,0.25488e-02,0.28048e-02,0.30159e-02 /) - kbo(:,16, 7) = (/ & - & 0.21016e-02,0.23581e-02,0.25958e-02,0.28093e-02,0.29839e-02 /) - kbo(:,17, 7) = (/ & - & 0.21350e-02,0.23722e-02,0.25718e-02,0.27703e-02,0.30036e-02 /) - kbo(:,18, 7) = (/ & - & 0.21493e-02,0.23550e-02,0.25593e-02,0.27827e-02,0.29722e-02 /) - kbo(:,19, 7) = (/ & - & 0.21677e-02,0.23602e-02,0.25446e-02,0.27267e-02,0.29542e-02 /) - kbo(:,20, 7) = (/ & - & 0.21009e-02,0.22669e-02,0.24261e-02,0.26095e-02,0.28436e-02 /) - kbo(:,21, 7) = (/ & - & 0.19811e-02,0.21249e-02,0.22790e-02,0.24716e-02,0.26844e-02 /) - kbo(:,22, 7) = (/ & - & 0.18393e-02,0.19585e-02,0.21127e-02,0.22962e-02,0.25211e-02 /) - kbo(:,23, 7) = (/ & - & 0.16905e-02,0.18032e-02,0.19594e-02,0.21280e-02,0.23466e-02 /) - kbo(:,24, 7) = (/ & - & 0.15327e-02,0.16542e-02,0.18047e-02,0.19642e-02,0.21591e-02 /) - kbo(:,25, 7) = (/ & - & 0.13831e-02,0.14932e-02,0.16391e-02,0.17921e-02,0.19606e-02 /) - kbo(:,26, 7) = (/ & - & 0.12298e-02,0.13325e-02,0.14676e-02,0.16086e-02,0.17628e-02 /) - kbo(:,27, 7) = (/ & - & 0.10692e-02,0.11652e-02,0.12858e-02,0.14124e-02,0.15514e-02 /) - kbo(:,28, 7) = (/ & - & 0.91706e-03,0.10034e-02,0.11100e-02,0.12231e-02,0.13481e-02 /) - kbo(:,29, 7) = (/ & - & 0.76824e-03,0.84492e-03,0.93654e-03,0.10377e-02,0.11448e-02 /) - kbo(:,30, 7) = (/ & - & 0.63841e-03,0.70573e-03,0.78553e-03,0.87197e-03,0.96607e-03 /) - kbo(:,31, 7) = (/ & - & 0.51979e-03,0.58056e-03,0.64728e-03,0.71891e-03,0.80875e-03 /) - kbo(:,32, 7) = (/ & - & 0.42659e-03,0.47686e-03,0.53347e-03,0.60016e-03,0.67592e-03 /) - kbo(:,33, 7) = (/ & - & 0.34820e-03,0.39030e-03,0.44004e-03,0.49875e-03,0.56492e-03 /) - kbo(:,34, 7) = (/ & - & 0.28753e-03,0.32477e-03,0.36831e-03,0.41989e-03,0.47708e-03 /) - kbo(:,35, 7) = (/ & - & 0.23568e-03,0.26716e-03,0.30618e-03,0.35062e-03,0.39934e-03 /) - kbo(:,36, 7) = (/ & - & 0.19116e-03,0.21863e-03,0.25180e-03,0.28983e-03,0.33082e-03 /) - kbo(:,37, 7) = (/ & - & 0.15437e-03,0.17829e-03,0.20646e-03,0.23900e-03,0.27320e-03 /) - kbo(:,38, 7) = (/ & - & 0.12397e-03,0.14462e-03,0.16847e-03,0.19621e-03,0.22528e-03 /) - kbo(:,39, 7) = (/ & - & 0.98930e-04,0.11647e-03,0.13711e-03,0.16057e-03,0.18549e-03 /) - kbo(:,40, 7) = (/ & - & 0.79845e-04,0.94437e-04,0.11202e-03,0.13217e-03,0.15346e-03 /) - kbo(:,41, 7) = (/ & - & 0.64260e-04,0.76439e-04,0.91253e-04,0.10837e-03,0.12691e-03 /) - kbo(:,42, 7) = (/ & - & 0.51561e-04,0.61686e-04,0.74044e-04,0.88504e-04,0.10431e-03 /) - kbo(:,43, 7) = (/ & - & 0.40906e-04,0.49267e-04,0.59361e-04,0.71417e-04,0.84751e-04 /) - kbo(:,44, 7) = (/ & - & 0.32247e-04,0.38955e-04,0.47246e-04,0.57199e-04,0.68540e-04 /) - kbo(:,45, 7) = (/ & - & 0.25243e-04,0.30790e-04,0.37490e-04,0.45754e-04,0.55394e-04 /) - kbo(:,46, 7) = (/ & - & 0.19604e-04,0.24131e-04,0.29598e-04,0.36431e-04,0.44419e-04 /) - kbo(:,47, 7) = (/ & - & 0.15116e-04,0.18785e-04,0.23180e-04,0.28780e-04,0.35381e-04 /) - kbo(:,48, 7) = (/ & - & 0.11550e-04,0.14451e-04,0.18039e-04,0.22545e-04,0.28005e-04 /) - kbo(:,49, 7) = (/ & - & 0.87452e-05,0.10992e-04,0.13863e-04,0.17498e-04,0.21949e-04 /) - kbo(:,50, 7) = (/ & - & 0.66768e-05,0.84974e-05,0.10835e-04,0.13777e-04,0.17448e-04 /) - kbo(:,51, 7) = (/ & - & 0.51359e-05,0.66277e-05,0.85196e-05,0.10905e-04,0.13933e-04 /) - kbo(:,52, 7) = (/ & - & 0.38737e-05,0.51001e-05,0.66347e-05,0.85842e-05,0.11033e-04 /) - kbo(:,53, 7) = (/ & - & 0.28793e-05,0.38820e-05,0.50987e-05,0.66800e-05,0.86846e-05 /) - kbo(:,54, 7) = (/ & - & 0.22250e-05,0.30528e-05,0.40721e-05,0.53813e-05,0.70529e-05 /) - kbo(:,55, 7) = (/ & - & 0.17548e-05,0.24455e-05,0.32962e-05,0.43877e-05,0.58071e-05 /) - kbo(:,56, 7) = (/ & - & 0.13740e-05,0.19413e-05,0.26523e-05,0.35566e-05,0.47512e-05 /) - kbo(:,57, 7) = (/ & - & 0.10745e-05,0.15242e-05,0.21190e-05,0.28679e-05,0.38612e-05 /) - kbo(:,58, 7) = (/ & - & 0.84271e-06,0.12117e-05,0.17039e-05,0.23246e-05,0.31564e-05 /) - kbo(:,59, 7) = (/ & - & 0.75625e-06,0.11002e-05,0.15376e-05,0.20855e-05,0.28548e-05 /) - kbo(:,13, 8) = (/ & - & 0.41133e-01,0.43585e-01,0.46448e-01,0.50156e-01,0.54607e-01 /) - kbo(:,14, 8) = (/ & - & 0.39162e-01,0.41636e-01,0.44649e-01,0.48118e-01,0.52078e-01 /) - kbo(:,15, 8) = (/ & - & 0.37770e-01,0.40048e-01,0.43090e-01,0.46524e-01,0.50698e-01 /) - kbo(:,16, 8) = (/ & - & 0.35235e-01,0.37712e-01,0.40429e-01,0.44092e-01,0.48470e-01 /) - kbo(:,17, 8) = (/ & - & 0.32748e-01,0.35232e-01,0.38049e-01,0.41536e-01,0.45596e-01 /) - kbo(:,18, 8) = (/ & - & 0.30656e-01,0.33078e-01,0.36084e-01,0.39403e-01,0.43319e-01 /) - kbo(:,19, 8) = (/ & - & 0.28887e-01,0.31462e-01,0.34348e-01,0.37660e-01,0.41532e-01 /) - kbo(:,20, 8) = (/ & - & 0.26521e-01,0.29153e-01,0.32006e-01,0.35368e-01,0.39083e-01 /) - kbo(:,21, 8) = (/ & - & 0.23988e-01,0.26537e-01,0.29508e-01,0.32666e-01,0.36356e-01 /) - kbo(:,22, 8) = (/ & - & 0.21655e-01,0.24205e-01,0.27193e-01,0.30346e-01,0.33820e-01 /) - kbo(:,23, 8) = (/ & - & 0.19724e-01,0.22257e-01,0.25021e-01,0.27997e-01,0.31309e-01 /) - kbo(:,24, 8) = (/ & - & 0.18094e-01,0.20464e-01,0.23167e-01,0.26069e-01,0.29357e-01 /) - kbo(:,25, 8) = (/ & - & 0.16666e-01,0.18896e-01,0.21422e-01,0.24282e-01,0.27401e-01 /) - kbo(:,26, 8) = (/ & - & 0.15252e-01,0.17451e-01,0.19828e-01,0.22565e-01,0.25604e-01 /) - kbo(:,27, 8) = (/ & - & 0.13902e-01,0.15940e-01,0.18143e-01,0.20720e-01,0.23727e-01 /) - kbo(:,28, 8) = (/ & - & 0.12642e-01,0.14401e-01,0.16467e-01,0.18975e-01,0.21740e-01 /) - kbo(:,29, 8) = (/ & - & 0.11177e-01,0.12765e-01,0.14750e-01,0.16957e-01,0.19575e-01 /) - kbo(:,30, 8) = (/ & - & 0.97810e-02,0.11281e-01,0.13066e-01,0.15112e-01,0.17581e-01 /) - kbo(:,31, 8) = (/ & - & 0.84562e-02,0.98553e-02,0.11427e-01,0.13312e-01,0.15536e-01 /) - kbo(:,32, 8) = (/ & - & 0.73434e-02,0.85939e-02,0.10020e-01,0.11770e-01,0.13758e-01 /) - kbo(:,33, 8) = (/ & - & 0.63801e-02,0.74957e-02,0.87874e-02,0.10375e-01,0.12145e-01 /) - kbo(:,34, 8) = (/ & - & 0.56002e-02,0.65926e-02,0.77964e-02,0.92186e-02,0.10768e-01 /) - kbo(:,35, 8) = (/ & - & 0.48489e-02,0.57164e-02,0.68333e-02,0.80886e-02,0.94500e-02 /) - kbo(:,36, 8) = (/ & - & 0.41428e-02,0.49220e-02,0.58884e-02,0.69905e-02,0.81862e-02 /) - kbo(:,37, 8) = (/ & - & 0.34967e-02,0.41841e-02,0.50244e-02,0.59657e-02,0.70167e-02 /) - kbo(:,38, 8) = (/ & - & 0.29333e-02,0.35364e-02,0.42644e-02,0.50719e-02,0.59938e-02 /) - kbo(:,39, 8) = (/ & - & 0.24443e-02,0.29647e-02,0.35953e-02,0.42898e-02,0.50972e-02 /) - kbo(:,40, 8) = (/ & - & 0.20439e-02,0.25046e-02,0.30512e-02,0.36459e-02,0.43466e-02 /) - kbo(:,41, 8) = (/ & - & 0.17068e-02,0.21107e-02,0.25838e-02,0.30959e-02,0.36971e-02 /) - kbo(:,42, 8) = (/ & - & 0.14199e-02,0.17705e-02,0.21755e-02,0.26204e-02,0.31356e-02 /) - kbo(:,43, 8) = (/ & - & 0.11616e-02,0.14584e-02,0.18069e-02,0.21876e-02,0.26286e-02 /) - kbo(:,44, 8) = (/ & - & 0.93807e-03,0.11864e-02,0.14851e-02,0.18080e-02,0.21849e-02 /) - kbo(:,45, 8) = (/ & - & 0.75026e-03,0.95460e-03,0.12092e-02,0.14831e-02,0.18037e-02 /) - kbo(:,46, 8) = (/ & - & 0.59319e-03,0.76134e-03,0.97292e-03,0.12059e-02,0.14787e-02 /) - kbo(:,47, 8) = (/ & - & 0.46546e-03,0.60113e-03,0.77762e-03,0.97379e-03,0.12030e-02 /) - kbo(:,48, 8) = (/ & - & 0.36131e-03,0.46999e-03,0.61292e-03,0.77778e-03,0.96667e-03 /) - kbo(:,49, 8) = (/ & - & 0.27490e-03,0.36153e-03,0.47561e-03,0.61173e-03,0.76634e-03 /) - kbo(:,50, 8) = (/ & - & 0.21403e-03,0.28416e-03,0.37592e-03,0.48994e-03,0.61812e-03 /) - kbo(:,51, 8) = (/ & - & 0.16745e-03,0.22425e-03,0.29943e-03,0.39474e-03,0.50310e-03 /) - kbo(:,52, 8) = (/ & - & 0.12927e-03,0.17496e-03,0.23541e-03,0.31434e-03,0.40442e-03 /) - kbo(:,53, 8) = (/ & - & 0.98512e-04,0.13503e-03,0.18276e-03,0.24681e-03,0.32086e-03 /) - kbo(:,54, 8) = (/ & - & 0.78150e-04,0.10819e-03,0.14843e-03,0.20243e-03,0.26646e-03 /) - kbo(:,55, 8) = (/ & - & 0.63455e-04,0.88570e-04,0.12297e-03,0.17015e-03,0.22626e-03 /) - kbo(:,56, 8) = (/ & - & 0.51095e-04,0.72223e-04,0.10144e-03,0.14188e-03,0.19132e-03 /) - kbo(:,57, 8) = (/ & - & 0.40866e-04,0.58631e-04,0.83096e-04,0.11753e-03,0.16055e-03 /) - kbo(:,58, 8) = (/ & - & 0.32890e-04,0.47893e-04,0.68644e-04,0.98156e-04,0.13564e-03 /) - kbo(:,59, 8) = (/ & - & 0.29702e-04,0.43928e-04,0.64217e-04,0.92621e-04,0.12965e-03 /) - kbo(:,13, 9) = (/ & - & 0.27690e+01,0.28644e+01,0.29696e+01,0.30850e+01,0.32162e+01 /) - kbo(:,14, 9) = (/ & - & 0.23162e+01,0.23973e+01,0.24876e+01,0.25913e+01,0.27107e+01 /) - kbo(:,15, 9) = (/ & - & 0.19377e+01,0.20096e+01,0.20909e+01,0.21846e+01,0.22904e+01 /) - kbo(:,16, 9) = (/ & - & 0.16221e+01,0.16854e+01,0.17596e+01,0.18440e+01,0.19374e+01 /) - kbo(:,17, 9) = (/ & - & 0.13581e+01,0.14147e+01,0.14813e+01,0.15562e+01,0.16364e+01 /) - kbo(:,18, 9) = (/ & - & 0.11494e+01,0.11995e+01,0.12558e+01,0.13168e+01,0.13828e+01 /) - kbo(:,19, 9) = (/ & - & 0.99857e+00,0.10422e+01,0.10890e+01,0.11391e+01,0.11917e+01 /) - kbo(:,20, 9) = (/ & - & 0.86585e+00,0.90292e+00,0.94341e+00,0.98616e+00,0.10332e+01 /) - kbo(:,21, 9) = (/ & - & 0.74752e+00,0.77983e+00,0.81433e+00,0.85283e+00,0.89462e+00 /) - kbo(:,22, 9) = (/ & - & 0.64494e+00,0.67286e+00,0.70277e+00,0.73658e+00,0.77352e+00 /) - kbo(:,23, 9) = (/ & - & 0.55485e+00,0.57897e+00,0.60654e+00,0.63699e+00,0.66979e+00 /) - kbo(:,24, 9) = (/ & - & 0.47664e+00,0.49869e+00,0.52329e+00,0.54973e+00,0.57955e+00 /) - kbo(:,25, 9) = (/ & - & 0.41114e+00,0.42988e+00,0.45044e+00,0.47447e+00,0.50163e+00 /) - kbo(:,26, 9) = (/ & - & 0.35513e+00,0.37142e+00,0.38942e+00,0.41045e+00,0.43493e+00 /) - kbo(:,27, 9) = (/ & - & 0.30546e+00,0.31995e+00,0.33673e+00,0.35597e+00,0.37742e+00 /) - kbo(:,28, 9) = (/ & - & 0.26188e+00,0.27552e+00,0.29117e+00,0.30879e+00,0.32839e+00 /) - kbo(:,29, 9) = (/ & - & 0.22377e+00,0.23654e+00,0.25102e+00,0.26735e+00,0.28587e+00 /) - kbo(:,30, 9) = (/ & - & 0.19129e+00,0.20332e+00,0.21691e+00,0.23233e+00,0.24924e+00 /) - kbo(:,31, 9) = (/ & - & 0.16347e+00,0.17463e+00,0.18745e+00,0.20165e+00,0.21712e+00 /) - kbo(:,32, 9) = (/ & - & 0.14037e+00,0.15075e+00,0.16282e+00,0.17567e+00,0.18973e+00 /) - kbo(:,33, 9) = (/ & - & 0.12095e+00,0.13081e+00,0.14161e+00,0.15337e+00,0.16632e+00 /) - kbo(:,34, 9) = (/ & - & 0.10468e+00,0.11371e+00,0.12351e+00,0.13423e+00,0.14632e+00 /) - kbo(:,35, 9) = (/ & - & 0.90259e-01,0.98421e-01,0.10717e+00,0.11695e+00,0.12831e+00 /) - kbo(:,36, 9) = (/ & - & 0.77272e-01,0.84599e-01,0.92464e-01,0.10140e+00,0.11193e+00 /) - kbo(:,37, 9) = (/ & - & 0.65606e-01,0.72029e-01,0.79063e-01,0.87174e-01,0.96643e-01 /) - kbo(:,38, 9) = (/ & - & 0.55528e-01,0.61268e-01,0.67613e-01,0.74898e-01,0.83456e-01 /) - kbo(:,39, 9) = (/ & - & 0.46985e-01,0.52085e-01,0.57765e-01,0.64303e-01,0.72021e-01 /) - kbo(:,40, 9) = (/ & - & 0.39626e-01,0.44094e-01,0.49150e-01,0.55005e-01,0.61884e-01 /) - kbo(:,41, 9) = (/ & - & 0.33376e-01,0.37326e-01,0.41783e-01,0.46997e-01,0.53158e-01 /) - kbo(:,42, 9) = (/ & - & 0.28074e-01,0.31535e-01,0.35493e-01,0.40112e-01,0.45645e-01 /) - kbo(:,43, 9) = (/ & - & 0.23419e-01,0.26419e-01,0.29889e-01,0.33982e-01,0.38867e-01 /) - kbo(:,44, 9) = (/ & - & 0.19437e-01,0.22035e-01,0.25042e-01,0.28622e-01,0.32930e-01 /) - kbo(:,45, 9) = (/ & - & 0.16083e-01,0.18329e-01,0.20937e-01,0.24027e-01,0.27786e-01 /) - kbo(:,46, 9) = (/ & - & 0.13236e-01,0.15146e-01,0.17420e-01,0.20094e-01,0.23328e-01 /) - kbo(:,47, 9) = (/ & - & 0.10820e-01,0.12455e-01,0.14377e-01,0.16656e-01,0.19464e-01 /) - kbo(:,48, 9) = (/ & - & 0.88043e-02,0.10190e-01,0.11813e-01,0.13745e-01,0.16141e-01 /) - kbo(:,49, 9) = (/ & - & 0.71234e-02,0.82775e-02,0.96453e-02,0.11284e-01,0.13310e-01 /) - kbo(:,50, 9) = (/ & - & 0.58127e-02,0.67802e-02,0.79379e-02,0.93254e-02,0.11078e-01 /) - kbo(:,51, 9) = (/ & - & 0.47494e-02,0.55659e-02,0.65602e-02,0.77407e-02,0.92288e-02 /) - kbo(:,52, 9) = (/ & - & 0.38618e-02,0.45424e-02,0.53925e-02,0.64011e-02,0.76645e-02 /) - kbo(:,53, 9) = (/ & - & 0.31264e-02,0.36823e-02,0.43952e-02,0.52615e-02,0.63311e-02 /) - kbo(:,54, 9) = (/ & - & 0.25794e-02,0.30481e-02,0.36548e-02,0.44037e-02,0.53380e-02 /) - kbo(:,55, 9) = (/ & - & 0.21508e-02,0.25472e-02,0.30665e-02,0.37188e-02,0.45472e-02 /) - kbo(:,56, 9) = (/ & - & 0.17938e-02,0.21263e-02,0.25713e-02,0.31411e-02,0.38667e-02 /) - kbo(:,57, 9) = (/ & - & 0.14949e-02,0.17755e-02,0.21510e-02,0.26439e-02,0.32830e-02 /) - kbo(:,58, 9) = (/ & - & 0.12521e-02,0.14938e-02,0.18137e-02,0.22426e-02,0.28028e-02 /) - kbo(:,59, 9) = (/ & - & 0.11302e-02,0.13552e-02,0.16582e-02,0.20691e-02,0.26051e-02 /) - kbo(:,13,10) = (/ & - & 0.14370e+02,0.14649e+02,0.14957e+02,0.15296e+02,0.15663e+02 /) - kbo(:,14,10) = (/ & - & 0.12178e+02,0.12411e+02,0.12682e+02,0.12978e+02,0.13316e+02 /) - kbo(:,15,10) = (/ & - & 0.10211e+02,0.10402e+02,0.10625e+02,0.10894e+02,0.11239e+02 /) - kbo(:,16,10) = (/ & - & 0.85974e+01,0.87539e+01,0.89410e+01,0.91849e+01,0.95108e+01 /) - kbo(:,17,10) = (/ & - & 0.72440e+01,0.73858e+01,0.75683e+01,0.78199e+01,0.81516e+01 /) - kbo(:,18,10) = (/ & - & 0.59680e+01,0.61054e+01,0.63108e+01,0.66074e+01,0.69367e+01 /) - kbo(:,19,10) = (/ & - & 0.47759e+01,0.49000e+01,0.51125e+01,0.53858e+01,0.56972e+01 /) - kbo(:,20,10) = (/ & - & 0.40682e+01,0.42060e+01,0.43988e+01,0.46035e+01,0.48052e+01 /) - kbo(:,21,10) = (/ & - & 0.35226e+01,0.36715e+01,0.38357e+01,0.40017e+01,0.41636e+01 /) - kbo(:,22,10) = (/ & - & 0.30730e+01,0.32059e+01,0.33607e+01,0.35055e+01,0.36621e+01 /) - kbo(:,23,10) = (/ & - & 0.26688e+01,0.27999e+01,0.29296e+01,0.30668e+01,0.32115e+01 /) - kbo(:,24,10) = (/ & - & 0.23228e+01,0.24338e+01,0.25510e+01,0.26866e+01,0.28223e+01 /) - kbo(:,25,10) = (/ & - & 0.19964e+01,0.21083e+01,0.22332e+01,0.23566e+01,0.24845e+01 /) - kbo(:,26,10) = (/ & - & 0.17097e+01,0.18190e+01,0.19420e+01,0.20663e+01,0.21952e+01 /) - kbo(:,27,10) = (/ & - & 0.14729e+01,0.15741e+01,0.16825e+01,0.17963e+01,0.19295e+01 /) - kbo(:,28,10) = (/ & - & 0.12788e+01,0.13609e+01,0.14562e+01,0.15668e+01,0.17032e+01 /) - kbo(:,29,10) = (/ & - & 0.11113e+01,0.11813e+01,0.12669e+01,0.13763e+01,0.15012e+01 /) - kbo(:,30,10) = (/ & - & 0.96661e+00,0.10287e+01,0.11081e+01,0.12093e+01,0.13273e+01 /) - kbo(:,31,10) = (/ & - & 0.83795e+00,0.89792e+00,0.97327e+00,0.10727e+01,0.11828e+01 /) - kbo(:,32,10) = (/ & - & 0.72634e+00,0.78480e+00,0.86071e+00,0.95503e+00,0.10615e+01 /) - kbo(:,33,10) = (/ & - & 0.63134e+00,0.68789e+00,0.76628e+00,0.85854e+00,0.96370e+00 /) - kbo(:,34,10) = (/ & - & 0.55172e+00,0.60863e+00,0.68672e+00,0.77637e+00,0.87664e+00 /) - kbo(:,35,10) = (/ & - & 0.48039e+00,0.53701e+00,0.61125e+00,0.69795e+00,0.79084e+00 /) - kbo(:,36,10) = (/ & - & 0.41819e+00,0.47188e+00,0.54096e+00,0.62096e+00,0.70693e+00 /) - kbo(:,37,10) = (/ & - & 0.36050e+00,0.40906e+00,0.47069e+00,0.54184e+00,0.62144e+00 /) - kbo(:,38,10) = (/ & - & 0.31156e+00,0.35409e+00,0.40958e+00,0.47371e+00,0.54611e+00 /) - kbo(:,39,10) = (/ & - & 0.26782e+00,0.30677e+00,0.35645e+00,0.41535e+00,0.48073e+00 /) - kbo(:,40,10) = (/ & - & 0.23006e+00,0.26273e+00,0.30670e+00,0.35934e+00,0.41871e+00 /) - kbo(:,41,10) = (/ & - & 0.19681e+00,0.22601e+00,0.26383e+00,0.31041e+00,0.36443e+00 /) - kbo(:,42,10) = (/ & - & 0.16794e+00,0.19457e+00,0.22757e+00,0.26875e+00,0.31708e+00 /) - kbo(:,43,10) = (/ & - & 0.14222e+00,0.16606e+00,0.19480e+00,0.23049e+00,0.27422e+00 /) - kbo(:,44,10) = (/ & - & 0.11907e+00,0.14059e+00,0.16567e+00,0.19741e+00,0.23557e+00 /) - kbo(:,45,10) = (/ & - & 0.99508e-01,0.11792e+00,0.14029e+00,0.16912e+00,0.20294e+00 /) - kbo(:,46,10) = (/ & - & 0.82787e-01,0.98729e-01,0.11783e+00,0.14344e+00,0.17433e+00 /) - kbo(:,47,10) = (/ & - & 0.68205e-01,0.81739e-01,0.98558e-01,0.12017e+00,0.14798e+00 /) - kbo(:,48,10) = (/ & - & 0.55907e-01,0.67050e-01,0.81465e-01,0.10030e+00,0.12506e+00 /) - kbo(:,49,10) = (/ & - & 0.45682e-01,0.54871e-01,0.66950e-01,0.83270e-01,0.10500e+00 /) - kbo(:,50,10) = (/ & - & 0.37515e-01,0.45259e-01,0.55584e-01,0.69475e-01,0.88432e-01 /) - kbo(:,51,10) = (/ & - & 0.31052e-01,0.37347e-01,0.46136e-01,0.58029e-01,0.74379e-01 /) - kbo(:,52,10) = (/ & - & 0.25697e-01,0.30758e-01,0.38027e-01,0.48169e-01,0.62340e-01 /) - kbo(:,53,10) = (/ & - & 0.21053e-01,0.25282e-01,0.31221e-01,0.39765e-01,0.52061e-01 /) - kbo(:,54,10) = (/ & - & 0.17506e-01,0.21171e-01,0.26181e-01,0.33450e-01,0.43837e-01 /) - kbo(:,55,10) = (/ & - & 0.14733e-01,0.17912e-01,0.22352e-01,0.28517e-01,0.37310e-01 /) - kbo(:,56,10) = (/ & - & 0.12382e-01,0.15138e-01,0.19031e-01,0.24337e-01,0.31780e-01 /) - kbo(:,57,10) = (/ & - & 0.10363e-01,0.12802e-01,0.16188e-01,0.20731e-01,0.27252e-01 /) - kbo(:,58,10) = (/ & - & 0.87632e-02,0.10863e-01,0.13823e-01,0.17907e-01,0.23570e-01 /) - kbo(:,59,10) = (/ & - & 0.79477e-02,0.99708e-02,0.12797e-01,0.16832e-01,0.22384e-01 /) - kbo(:,13,11) = (/ & - & 0.27028e+02,0.27753e+02,0.28483e+02,0.29219e+02,0.29909e+02 /) - kbo(:,14,11) = (/ & - & 0.23419e+02,0.24025e+02,0.24638e+02,0.25228e+02,0.25789e+02 /) - kbo(:,15,11) = (/ & - & 0.20150e+02,0.20660e+02,0.21151e+02,0.21642e+02,0.22118e+02 /) - kbo(:,16,11) = (/ & - & 0.17107e+02,0.17510e+02,0.17925e+02,0.18355e+02,0.18823e+02 /) - kbo(:,17,11) = (/ & - & 0.14361e+02,0.14686e+02,0.15035e+02,0.15422e+02,0.15903e+02 /) - kbo(:,18,11) = (/ & - & 0.12138e+02,0.12397e+02,0.12696e+02,0.13058e+02,0.13553e+02 /) - kbo(:,19,11) = (/ & - & 0.10135e+02,0.10395e+02,0.10708e+02,0.11115e+02,0.11638e+02 /) - kbo(:,20,11) = (/ & - & 0.81786e+01,0.84190e+01,0.87492e+01,0.92221e+01,0.97673e+01 /) - kbo(:,21,11) = (/ & - & 0.68203e+01,0.70074e+01,0.73249e+01,0.77062e+01,0.81227e+01 /) - kbo(:,22,11) = (/ & - & 0.58880e+01,0.61142e+01,0.64089e+01,0.67273e+01,0.70540e+01 /) - kbo(:,23,11) = (/ & - & 0.51482e+01,0.53972e+01,0.56613e+01,0.59190e+01,0.62039e+01 /) - kbo(:,24,11) = (/ & - & 0.45460e+01,0.47798e+01,0.50055e+01,0.52340e+01,0.54793e+01 /) - kbo(:,25,11) = (/ & - & 0.40038e+01,0.42162e+01,0.44356e+01,0.46519e+01,0.48861e+01 /) - kbo(:,26,11) = (/ & - & 0.35330e+01,0.37282e+01,0.39261e+01,0.41342e+01,0.43614e+01 /) - kbo(:,27,11) = (/ & - & 0.30918e+01,0.32790e+01,0.34783e+01,0.36774e+01,0.38933e+01 /) - kbo(:,28,11) = (/ & - & 0.27019e+01,0.28880e+01,0.30842e+01,0.32755e+01,0.34826e+01 /) - kbo(:,29,11) = (/ & - & 0.23567e+01,0.25399e+01,0.27237e+01,0.29118e+01,0.31184e+01 /) - kbo(:,30,11) = (/ & - & 0.20673e+01,0.22421e+01,0.24146e+01,0.26001e+01,0.28136e+01 /) - kbo(:,31,11) = (/ & - & 0.18233e+01,0.19796e+01,0.21491e+01,0.23275e+01,0.25391e+01 /) - kbo(:,32,11) = (/ & - & 0.16164e+01,0.17629e+01,0.19137e+01,0.20921e+01,0.23020e+01 /) - kbo(:,33,11) = (/ & - & 0.14325e+01,0.15691e+01,0.17171e+01,0.18965e+01,0.20991e+01 /) - kbo(:,34,11) = (/ & - & 0.12711e+01,0.14025e+01,0.15514e+01,0.17231e+01,0.19204e+01 /) - kbo(:,35,11) = (/ & - & 0.11251e+01,0.12478e+01,0.13948e+01,0.15591e+01,0.17428e+01 /) - kbo(:,36,11) = (/ & - & 0.98734e+00,0.11026e+01,0.12425e+01,0.13991e+01,0.15730e+01 /) - kbo(:,37,11) = (/ & - & 0.85152e+00,0.96327e+00,0.10911e+01,0.12398e+01,0.14045e+01 /) - kbo(:,38,11) = (/ & - & 0.73399e+00,0.83942e+00,0.95984e+00,0.10967e+01,0.12526e+01 /) - kbo(:,39,11) = (/ & - & 0.63468e+00,0.73175e+00,0.84488e+00,0.97279e+00,0.11163e+01 /) - kbo(:,40,11) = (/ & - & 0.54166e+00,0.63099e+00,0.73459e+00,0.85525e+00,0.98986e+00 /) - kbo(:,41,11) = (/ & - & 0.46341e+00,0.54185e+00,0.63786e+00,0.75041e+00,0.87557e+00 /) - kbo(:,42,11) = (/ & - & 0.39710e+00,0.46604e+00,0.55335e+00,0.65788e+00,0.77518e+00 /) - kbo(:,43,11) = (/ & - & 0.33809e+00,0.39845e+00,0.47656e+00,0.56991e+00,0.67763e+00 /) - kbo(:,44,11) = (/ & - & 0.28738e+00,0.33811e+00,0.40783e+00,0.49238e+00,0.58805e+00 /) - kbo(:,45,11) = (/ & - & 0.24372e+00,0.28787e+00,0.34858e+00,0.42338e+00,0.51131e+00 /) - kbo(:,46,11) = (/ & - & 0.20655e+00,0.24407e+00,0.29751e+00,0.36239e+00,0.44206e+00 /) - kbo(:,47,11) = (/ & - & 0.17359e+00,0.20653e+00,0.25158e+00,0.30900e+00,0.37888e+00 /) - kbo(:,48,11) = (/ & - & 0.14508e+00,0.17395e+00,0.21335e+00,0.26232e+00,0.32328e+00 /) - kbo(:,49,11) = (/ & - & 0.12016e+00,0.14523e+00,0.17928e+00,0.22128e+00,0.27412e+00 /) - kbo(:,50,11) = (/ & - & 0.99920e-01,0.12218e+00,0.15097e+00,0.18907e+00,0.23575e+00 /) - kbo(:,51,11) = (/ & - & 0.82909e-01,0.10226e+00,0.12737e+00,0.16132e+00,0.20378e+00 /) - kbo(:,52,11) = (/ & - & 0.68577e-01,0.85131e-01,0.10673e+00,0.13644e+00,0.17453e+00 /) - kbo(:,53,11) = (/ & - & 0.56302e-01,0.70491e-01,0.88684e-01,0.11469e+00,0.14786e+00 /) - kbo(:,54,11) = (/ & - & 0.47171e-01,0.59185e-01,0.74877e-01,0.97387e-01,0.12762e+00 /) - kbo(:,55,11) = (/ & - & 0.40028e-01,0.50199e-01,0.63960e-01,0.83211e-01,0.11104e+00 /) - kbo(:,56,11) = (/ & - & 0.33854e-01,0.42508e-01,0.54649e-01,0.71262e-01,0.95596e-01 /) - kbo(:,57,11) = (/ & - & 0.28590e-01,0.36142e-01,0.46409e-01,0.61269e-01,0.82012e-01 /) - kbo(:,58,11) = (/ & - & 0.24352e-01,0.30934e-01,0.39697e-01,0.52483e-01,0.71167e-01 /) - kbo(:,59,11) = (/ & - & 0.22598e-01,0.29152e-01,0.37468e-01,0.48573e-01,0.66434e-01 /) - kbo(:,13,12) = (/ & - & 0.57172e+02,0.59297e+02,0.61400e+02,0.63512e+02,0.65627e+02 /) - kbo(:,14,12) = (/ & - & 0.50361e+02,0.52086e+02,0.53828e+02,0.55595e+02,0.57346e+02 /) - kbo(:,15,12) = (/ & - & 0.44078e+02,0.45453e+02,0.46902e+02,0.48347e+02,0.49789e+02 /) - kbo(:,16,12) = (/ & - & 0.38395e+02,0.39554e+02,0.40754e+02,0.41955e+02,0.43150e+02 /) - kbo(:,17,12) = (/ & - & 0.33363e+02,0.34355e+02,0.35352e+02,0.36337e+02,0.37312e+02 /) - kbo(:,18,12) = (/ & - & 0.28599e+02,0.29463e+02,0.30307e+02,0.31155e+02,0.32043e+02 /) - kbo(:,19,12) = (/ & - & 0.24284e+02,0.24982e+02,0.25685e+02,0.26424e+02,0.27289e+02 /) - kbo(:,20,12) = (/ & - & 0.20576e+02,0.21117e+02,0.21693e+02,0.22370e+02,0.23304e+02 /) - kbo(:,21,12) = (/ & - & 0.17126e+02,0.17629e+02,0.18193e+02,0.18968e+02,0.20012e+02 /) - kbo(:,22,12) = (/ & - & 0.14084e+02,0.14526e+02,0.15112e+02,0.15986e+02,0.17086e+02 /) - kbo(:,23,12) = (/ & - & 0.11727e+02,0.12073e+02,0.12663e+02,0.13546e+02,0.14594e+02 /) - kbo(:,24,12) = (/ & - & 0.10116e+02,0.10483e+02,0.11087e+02,0.11839e+02,0.12630e+02 /) - kbo(:,25,12) = (/ & - & 0.89362e+01,0.93748e+01,0.99578e+01,0.10576e+02,0.11263e+02 /) - kbo(:,26,12) = (/ & - & 0.79574e+01,0.84325e+01,0.89960e+01,0.95862e+01,0.10135e+02 /) - kbo(:,27,12) = (/ & - & 0.71290e+01,0.76343e+01,0.81343e+01,0.86609e+01,0.91441e+01 /) - kbo(:,28,12) = (/ & - & 0.64441e+01,0.69081e+01,0.73340e+01,0.77892e+01,0.82579e+01 /) - kbo(:,29,12) = (/ & - & 0.57859e+01,0.61904e+01,0.65762e+01,0.69937e+01,0.74255e+01 /) - kbo(:,30,12) = (/ & - & 0.51602e+01,0.55338e+01,0.58953e+01,0.62766e+01,0.66823e+01 /) - kbo(:,31,12) = (/ & - & 0.45943e+01,0.49270e+01,0.52739e+01,0.56298e+01,0.60118e+01 /) - kbo(:,32,12) = (/ & - & 0.40881e+01,0.44095e+01,0.47450e+01,0.50839e+01,0.54488e+01 /) - kbo(:,33,12) = (/ & - & 0.36534e+01,0.39549e+01,0.42670e+01,0.46043e+01,0.49743e+01 /) - kbo(:,34,12) = (/ & - & 0.32874e+01,0.35667e+01,0.38571e+01,0.41872e+01,0.45862e+01 /) - kbo(:,35,12) = (/ & - & 0.29379e+01,0.31963e+01,0.34845e+01,0.38151e+01,0.42290e+01 /) - kbo(:,36,12) = (/ & - & 0.26101e+01,0.28628e+01,0.31405e+01,0.34760e+01,0.38927e+01 /) - kbo(:,37,12) = (/ & - & 0.23047e+01,0.25368e+01,0.28124e+01,0.31292e+01,0.35310e+01 /) - kbo(:,38,12) = (/ & - & 0.20413e+01,0.22603e+01,0.25129e+01,0.28252e+01,0.32149e+01 /) - kbo(:,39,12) = (/ & - & 0.18040e+01,0.20133e+01,0.22565e+01,0.25571e+01,0.29423e+01 /) - kbo(:,40,12) = (/ & - & 0.15898e+01,0.17862e+01,0.20189e+01,0.22992e+01,0.26576e+01 /) - kbo(:,41,12) = (/ & - & 0.14002e+01,0.15861e+01,0.18008e+01,0.20620e+01,0.24028e+01 /) - kbo(:,42,12) = (/ & - & 0.12302e+01,0.14049e+01,0.16015e+01,0.18444e+01,0.21658e+01 /) - kbo(:,43,12) = (/ & - & 0.10668e+01,0.12258e+01,0.14101e+01,0.16347e+01,0.19297e+01 /) - kbo(:,44,12) = (/ & - & 0.91800e+00,0.10642e+01,0.12324e+01,0.14347e+01,0.17074e+01 /) - kbo(:,45,12) = (/ & - & 0.78687e+00,0.91967e+00,0.10737e+01,0.12598e+01,0.15049e+01 /) - kbo(:,46,12) = (/ & - & 0.67148e+00,0.79041e+00,0.92761e+00,0.10973e+01,0.13177e+01 /) - kbo(:,47,12) = (/ & - & 0.57045e+00,0.67640e+00,0.80034e+00,0.94779e+00,0.11432e+01 /) - kbo(:,48,12) = (/ & - & 0.48142e+00,0.57646e+00,0.68676e+00,0.82116e+00,0.98898e+00 /) - kbo(:,49,12) = (/ & - & 0.40194e+00,0.48757e+00,0.58498e+00,0.70838e+00,0.85881e+00 /) - kbo(:,50,12) = (/ & - & 0.34095e+00,0.41499e+00,0.50425e+00,0.61464e+00,0.75451e+00 /) - kbo(:,51,12) = (/ & - & 0.29038e+00,0.35608e+00,0.43553e+00,0.53422e+00,0.66315e+00 /) - kbo(:,52,12) = (/ & - & 0.24615e+00,0.30360e+00,0.37359e+00,0.46378e+00,0.57808e+00 /) - kbo(:,53,12) = (/ & - & 0.20660e+00,0.25764e+00,0.31993e+00,0.39869e+00,0.50232e+00 /) - kbo(:,54,12) = (/ & - & 0.17518e+00,0.22280e+00,0.27852e+00,0.34881e+00,0.44243e+00 /) - kbo(:,55,12) = (/ & - & 0.14906e+00,0.19392e+00,0.24538e+00,0.31045e+00,0.39204e+00 /) - kbo(:,56,12) = (/ & - & 0.12564e+00,0.16748e+00,0.21535e+00,0.27386e+00,0.34816e+00 /) - kbo(:,57,12) = (/ & - & 0.10489e+00,0.14334e+00,0.18902e+00,0.24147e+00,0.30976e+00 /) - kbo(:,58,12) = (/ & - & 0.88415e-01,0.12250e+00,0.16566e+00,0.21499e+00,0.27515e+00 /) - kbo(:,59,12) = (/ & - & 0.80710e-01,0.11375e+00,0.15629e+00,0.20737e+00,0.26838e+00 /) - kbo(:,13,13) = (/ & - & 0.16465e+03,0.16298e+03,0.16413e+03,0.16796e+03,0.17425e+03 /) - kbo(:,14,13) = (/ & - & 0.14134e+03,0.14223e+03,0.14584e+03,0.15183e+03,0.15823e+03 /) - kbo(:,15,13) = (/ & - & 0.12334e+03,0.12642e+03,0.13170e+03,0.13719e+03,0.14248e+03 /) - kbo(:,16,13) = (/ & - & 0.10903e+03,0.11350e+03,0.11825e+03,0.12284e+03,0.12720e+03 /) - kbo(:,17,13) = (/ & - & 0.96744e+02,0.10077e+03,0.10473e+03,0.10856e+03,0.11225e+03 /) - kbo(:,18,13) = (/ & - & 0.85368e+02,0.88669e+02,0.91934e+02,0.95127e+02,0.98216e+02 /) - kbo(:,19,13) = (/ & - & 0.74865e+02,0.77560e+02,0.80263e+02,0.82912e+02,0.85499e+02 /) - kbo(:,20,13) = (/ & - & 0.65304e+02,0.67588e+02,0.69849e+02,0.72099e+02,0.74316e+02 /) - kbo(:,21,13) = (/ & - & 0.56704e+02,0.58616e+02,0.60541e+02,0.62457e+02,0.64444e+02 /) - kbo(:,22,13) = (/ & - & 0.49099e+02,0.50788e+02,0.52451e+02,0.54119e+02,0.55970e+02 /) - kbo(:,23,13) = (/ & - & 0.42076e+02,0.43646e+02,0.45230e+02,0.46888e+02,0.48798e+02 /) - kbo(:,24,13) = (/ & - & 0.35457e+02,0.36904e+02,0.38447e+02,0.40262e+02,0.42565e+02 /) - kbo(:,25,13) = (/ & - & 0.29832e+02,0.31036e+02,0.32508e+02,0.34502e+02,0.36979e+02 /) - kbo(:,26,13) = (/ & - & 0.25205e+02,0.26348e+02,0.27792e+02,0.29788e+02,0.32459e+02 /) - kbo(:,27,13) = (/ & - & 0.21486e+02,0.22586e+02,0.24162e+02,0.26260e+02,0.28944e+02 /) - kbo(:,28,13) = (/ & - & 0.18712e+02,0.19693e+02,0.21370e+02,0.23591e+02,0.26158e+02 /) - kbo(:,29,13) = (/ & - & 0.16630e+02,0.17716e+02,0.19369e+02,0.21565e+02,0.24102e+02 /) - kbo(:,30,13) = (/ & - & 0.14923e+02,0.16119e+02,0.17783e+02,0.19989e+02,0.22379e+02 /) - kbo(:,31,13) = (/ & - & 0.13532e+02,0.14853e+02,0.16576e+02,0.18745e+02,0.21084e+02 /) - kbo(:,32,13) = (/ & - & 0.12453e+02,0.13784e+02,0.15587e+02,0.17718e+02,0.20022e+02 /) - kbo(:,33,13) = (/ & - & 0.11580e+02,0.13038e+02,0.14851e+02,0.16892e+02,0.19192e+02 /) - kbo(:,34,13) = (/ & - & 0.10820e+02,0.12376e+02,0.14134e+02,0.16152e+02,0.18402e+02 /) - kbo(:,35,13) = (/ & - & 0.10116e+02,0.11686e+02,0.13402e+02,0.15346e+02,0.17556e+02 /) - kbo(:,36,13) = (/ & - & 0.93933e+01,0.10910e+02,0.12572e+02,0.14432e+02,0.16536e+02 /) - kbo(:,37,13) = (/ & - & 0.85160e+01,0.99755e+01,0.11554e+02,0.13358e+02,0.15350e+02 /) - kbo(:,38,13) = (/ & - & 0.77505e+01,0.91225e+01,0.10670e+02,0.12380e+02,0.14273e+02 /) - kbo(:,39,13) = (/ & - & 0.70897e+01,0.83885e+01,0.98694e+01,0.11502e+02,0.13343e+02 /) - kbo(:,40,13) = (/ & - & 0.63295e+01,0.75506e+01,0.89466e+01,0.10495e+02,0.12287e+02 /) - kbo(:,41,13) = (/ & - & 0.56302e+01,0.67988e+01,0.80957e+01,0.96013e+01,0.11280e+02 /) - kbo(:,42,13) = (/ & - & 0.50234e+01,0.61071e+01,0.73389e+01,0.87816e+01,0.10380e+02 /) - kbo(:,43,13) = (/ & - & 0.44225e+01,0.54282e+01,0.65963e+01,0.79433e+01,0.94666e+01 /) - kbo(:,44,13) = (/ & - & 0.38558e+01,0.47912e+01,0.58905e+01,0.71478e+01,0.86145e+01 /) - kbo(:,45,13) = (/ & - & 0.33575e+01,0.42351e+01,0.52475e+01,0.64292e+01,0.78296e+01 /) - kbo(:,46,13) = (/ & - & 0.29053e+01,0.37074e+01,0.46432e+01,0.57484e+01,0.70674e+01 /) - kbo(:,47,13) = (/ & - & 0.24706e+01,0.31851e+01,0.40524e+01,0.50837e+01,0.62990e+01 /) - kbo(:,48,13) = (/ & - & 0.20907e+01,0.27320e+01,0.35232e+01,0.44689e+01,0.55998e+01 /) - kbo(:,49,13) = (/ & - & 0.17652e+01,0.23397e+01,0.30525e+01,0.39130e+01,0.49641e+01 /) - kbo(:,50,13) = (/ & - & 0.14980e+01,0.19995e+01,0.26386e+01,0.34309e+01,0.43930e+01 /) - kbo(:,51,13) = (/ & - & 0.12883e+01,0.17229e+01,0.22808e+01,0.30058e+01,0.38921e+01 /) - kbo(:,52,13) = (/ & - & 0.11032e+01,0.14878e+01,0.19945e+01,0.26225e+01,0.34327e+01 /) - kbo(:,53,13) = (/ & - & 0.94256e+00,0.12803e+01,0.17436e+01,0.23095e+01,0.30258e+01 /) - kbo(:,54,13) = (/ & - & 0.80847e+00,0.11045e+01,0.15250e+01,0.20573e+01,0.27048e+01 /) - kbo(:,55,13) = (/ & - & 0.69972e+00,0.95008e+00,0.13215e+01,0.18178e+01,0.24326e+01 /) - kbo(:,56,13) = (/ & - & 0.60659e+00,0.81298e+00,0.11430e+01,0.15925e+01,0.21783e+01 /) - kbo(:,57,13) = (/ & - & 0.52664e+00,0.69670e+00,0.97998e+00,0.13891e+01,0.19333e+01 /) - kbo(:,58,13) = (/ & - & 0.45985e+00,0.60682e+00,0.84337e+00,0.12113e+01,0.17188e+01 /) - kbo(:,59,13) = (/ & - & 0.43853e+00,0.57879e+00,0.79018e+00,0.11130e+01,0.16039e+01 /) - kbo(:,13,14) = (/ & - & 0.86016e+03,0.84626e+03,0.83228e+03,0.81817e+03,0.80450e+03 /) - kbo(:,14,14) = (/ & - & 0.75981e+03,0.74663e+03,0.73345e+03,0.72104e+03,0.71224e+03 /) - kbo(:,15,14) = (/ & - & 0.66201e+03,0.64993e+03,0.63891e+03,0.63210e+03,0.62978e+03 /) - kbo(:,16,14) = (/ & - & 0.57014e+03,0.56027e+03,0.55466e+03,0.55378e+03,0.55721e+03 /) - kbo(:,17,14) = (/ & - & 0.48861e+03,0.48354e+03,0.48324e+03,0.48760e+03,0.49602e+03 /) - kbo(:,18,14) = (/ & - & 0.41987e+03,0.41964e+03,0.42411e+03,0.43291e+03,0.44575e+03 /) - kbo(:,19,14) = (/ & - & 0.36303e+03,0.36702e+03,0.37556e+03,0.38834e+03,0.40471e+03 /) - kbo(:,20,14) = (/ & - & 0.31651e+03,0.32421e+03,0.33627e+03,0.35219e+03,0.37072e+03 /) - kbo(:,21,14) = (/ & - & 0.27867e+03,0.28947e+03,0.30434e+03,0.32131e+03,0.33823e+03 /) - kbo(:,22,14) = (/ & - & 0.24916e+03,0.26251e+03,0.27768e+03,0.29296e+03,0.30844e+03 /) - kbo(:,23,14) = (/ & - & 0.22571e+03,0.23932e+03,0.25291e+03,0.26670e+03,0.28069e+03 /) - kbo(:,24,14) = (/ & - & 0.20503e+03,0.21765e+03,0.23029e+03,0.24291e+03,0.25575e+03 /) - kbo(:,25,14) = (/ & - & 0.18574e+03,0.19763e+03,0.20960e+03,0.22151e+03,0.23356e+03 /) - kbo(:,26,14) = (/ & - & 0.16825e+03,0.17945e+03,0.19085e+03,0.20242e+03,0.21406e+03 /) - kbo(:,27,14) = (/ & - & 0.15254e+03,0.16311e+03,0.17402e+03,0.18521e+03,0.19696e+03 /) - kbo(:,28,14) = (/ & - & 0.13815e+03,0.14857e+03,0.15913e+03,0.17022e+03,0.18238e+03 /) - kbo(:,29,14) = (/ & - & 0.12560e+03,0.13571e+03,0.14630e+03,0.15763e+03,0.17019e+03 /) - kbo(:,30,14) = (/ & - & 0.11497e+03,0.12476e+03,0.13550e+03,0.14719e+03,0.16044e+03 /) - kbo(:,31,14) = (/ & - & 0.10602e+03,0.11577e+03,0.12671e+03,0.13889e+03,0.15289e+03 /) - kbo(:,32,14) = (/ & - & 0.98519e+02,0.10855e+03,0.11978e+03,0.13265e+03,0.14744e+03 /) - kbo(:,33,14) = (/ & - & 0.92517e+02,0.10274e+03,0.11452e+03,0.12822e+03,0.14389e+03 /) - kbo(:,34,14) = (/ & - & 0.87441e+02,0.97936e+02,0.11044e+03,0.12495e+03,0.14148e+03 /) - kbo(:,35,14) = (/ & - & 0.82499e+02,0.93333e+02,0.10635e+03,0.12151e+03,0.13874e+03 /) - kbo(:,36,14) = (/ & - & 0.77442e+02,0.88493e+02,0.10184e+03,0.11740e+03,0.13513e+03 /) - kbo(:,37,14) = (/ & - & 0.71771e+02,0.82731e+02,0.96032e+02,0.11158e+03,0.12941e+03 /) - kbo(:,38,14) = (/ & - & 0.66727e+02,0.77610e+02,0.90795e+02,0.10632e+03,0.12415e+03 /) - kbo(:,39,14) = (/ & - & 0.62339e+02,0.73113e+02,0.86200e+02,0.10167e+03,0.11942e+03 /) - kbo(:,40,14) = (/ & - & 0.57601e+02,0.67999e+02,0.80724e+02,0.95858e+02,0.11323e+03 /) - kbo(:,41,14) = (/ & - & 0.53285e+02,0.63203e+02,0.75577e+02,0.90242e+02,0.10726e+03 /) - kbo(:,42,14) = (/ & - & 0.49392e+02,0.58908e+02,0.70834e+02,0.85045e+02,0.10163e+03 /) - kbo(:,43,14) = (/ & - & 0.45446e+02,0.54452e+02,0.65751e+02,0.79402e+02,0.95397e+02 /) - kbo(:,44,14) = (/ & - & 0.41620e+02,0.50184e+02,0.60777e+02,0.73786e+02,0.89076e+02 /) - kbo(:,45,14) = (/ & - & 0.38059e+02,0.46282e+02,0.56226e+02,0.68539e+02,0.83136e+02 /) - kbo(:,46,14) = (/ & - & 0.34554e+02,0.42501e+02,0.51829e+02,0.63383e+02,0.77220e+02 /) - kbo(:,47,14) = (/ & - & 0.31009e+02,0.38610e+02,0.47385e+02,0.58058e+02,0.71080e+02 /) - kbo(:,48,14) = (/ & - & 0.27715e+02,0.34934e+02,0.43319e+02,0.53190e+02,0.65347e+02 /) - kbo(:,49,14) = (/ & - & 0.24658e+02,0.31478e+02,0.39500e+02,0.48743e+02,0.59997e+02 /) - kbo(:,50,14) = (/ & - & 0.22034e+02,0.28437e+02,0.36093e+02,0.44894e+02,0.55346e+02 /) - kbo(:,51,14) = (/ & - & 0.19684e+02,0.25626e+02,0.32937e+02,0.41385e+02,0.51154e+02 /) - kbo(:,52,14) = (/ & - & 0.17504e+02,0.22995e+02,0.29925e+02,0.38057e+02,0.47307e+02 /) - kbo(:,53,14) = (/ & - & 0.15552e+02,0.20544e+02,0.27079e+02,0.34832e+02,0.43722e+02 /) - kbo(:,54,14) = (/ & - & 0.13886e+02,0.18476e+02,0.24607e+02,0.31966e+02,0.40540e+02 /) - kbo(:,55,14) = (/ & - & 0.12396e+02,0.16681e+02,0.22385e+02,0.29384e+02,0.37592e+02 /) - kbo(:,56,14) = (/ & - & 0.11028e+02,0.15006e+02,0.20297e+02,0.26955e+02,0.34780e+02 /) - kbo(:,57,14) = (/ & - & 0.97493e+01,0.13452e+02,0.18354e+02,0.24644e+02,0.32099e+02 /) - kbo(:,58,14) = (/ & - & 0.86411e+01,0.12068e+02,0.16627e+02,0.22569e+02,0.29684e+02 /) - kbo(:,59,14) = (/ & - & 0.80894e+01,0.11449e+02,0.15905e+02,0.21753e+02,0.28728e+02 /) - kbo(:,13,15) = (/ & - & 0.50046e+04,0.50034e+04,0.49950e+04,0.49781e+04,0.49542e+04 /) - kbo(:,14,15) = (/ & - & 0.51812e+04,0.51738e+04,0.51582e+04,0.51357e+04,0.51054e+04 /) - kbo(:,15,15) = (/ & - & 0.52793e+04,0.52645e+04,0.52450e+04,0.52172e+04,0.51836e+04 /) - kbo(:,16,15) = (/ & - & 0.53001e+04,0.52818e+04,0.52568e+04,0.52274e+04,0.51924e+04 /) - kbo(:,17,15) = (/ & - & 0.52448e+04,0.52242e+04,0.52004e+04,0.51715e+04,0.51377e+04 /) - kbo(:,18,15) = (/ & - & 0.51200e+04,0.51031e+04,0.50817e+04,0.50571e+04,0.50308e+04 /) - kbo(:,19,15) = (/ & - & 0.49389e+04,0.49284e+04,0.49153e+04,0.49007e+04,0.48819e+04 /) - kbo(:,20,15) = (/ & - & 0.47181e+04,0.47168e+04,0.47163e+04,0.47129e+04,0.47111e+04 /) - kbo(:,21,15) = (/ & - & 0.44718e+04,0.44865e+04,0.44990e+04,0.45153e+04,0.45403e+04 /) - kbo(:,22,15) = (/ & - & 0.42192e+04,0.42497e+04,0.42861e+04,0.43316e+04,0.43809e+04 /) - kbo(:,23,15) = (/ & - & 0.39727e+04,0.40275e+04,0.40936e+04,0.41646e+04,0.42404e+04 /) - kbo(:,24,15) = (/ & - & 0.37507e+04,0.38336e+04,0.39239e+04,0.40206e+04,0.41209e+04 /) - kbo(:,25,15) = (/ & - & 0.35606e+04,0.36694e+04,0.37826e+04,0.39026e+04,0.40244e+04 /) - kbo(:,26,15) = (/ & - & 0.34043e+04,0.35364e+04,0.36731e+04,0.38130e+04,0.39519e+04 /) - kbo(:,27,15) = (/ & - & 0.32803e+04,0.34346e+04,0.35912e+04,0.37476e+04,0.39014e+04 /) - kbo(:,28,15) = (/ & - & 0.31876e+04,0.33610e+04,0.35344e+04,0.37042e+04,0.38699e+04 /) - kbo(:,29,15) = (/ & - & 0.31239e+04,0.33137e+04,0.34995e+04,0.36813e+04,0.38573e+04 /) - kbo(:,30,15) = (/ & - & 0.30850e+04,0.32872e+04,0.34837e+04,0.36745e+04,0.38591e+04 /) - kbo(:,31,15) = (/ & - & 0.30674e+04,0.32795e+04,0.34848e+04,0.36826e+04,0.38724e+04 /) - kbo(:,32,15) = (/ & - & 0.30683e+04,0.32879e+04,0.34990e+04,0.37022e+04,0.38953e+04 /) - kbo(:,33,15) = (/ & - & 0.30831e+04,0.33087e+04,0.35243e+04,0.37303e+04,0.39250e+04 /) - kbo(:,34,15) = (/ & - & 0.31017e+04,0.33308e+04,0.35496e+04,0.37580e+04,0.39527e+04 /) - kbo(:,35,15) = (/ & - & 0.31057e+04,0.33387e+04,0.35601e+04,0.37700e+04,0.39654e+04 /) - kbo(:,36,15) = (/ & - & 0.30895e+04,0.33260e+04,0.35504e+04,0.37630e+04,0.39606e+04 /) - kbo(:,37,15) = (/ & - & 0.30400e+04,0.32811e+04,0.35096e+04,0.37263e+04,0.39277e+04 /) - kbo(:,38,15) = (/ & - & 0.29913e+04,0.32361e+04,0.34690e+04,0.36890e+04,0.38942e+04 /) - kbo(:,39,15) = (/ & - & 0.29441e+04,0.31926e+04,0.34294e+04,0.36526e+04,0.38612e+04 /) - kbo(:,40,15) = (/ & - & 0.28722e+04,0.31254e+04,0.33667e+04,0.35943e+04,0.38073e+04 /) - kbo(:,41,15) = (/ & - & 0.27971e+04,0.30548e+04,0.33004e+04,0.35326e+04,0.37505e+04 /) - kbo(:,42,15) = (/ & - & 0.27226e+04,0.29837e+04,0.32336e+04,0.34701e+04,0.36925e+04 /) - kbo(:,43,15) = (/ & - & 0.26332e+04,0.28981e+04,0.31525e+04,0.33944e+04,0.36223e+04 /) - kbo(:,44,15) = (/ & - & 0.25372e+04,0.28050e+04,0.30643e+04,0.33114e+04,0.35441e+04 /) - kbo(:,45,15) = (/ & - & 0.24417e+04,0.27113e+04,0.29748e+04,0.32268e+04,0.34651e+04 /) - kbo(:,46,15) = (/ & - & 0.23395e+04,0.26115e+04,0.28783e+04,0.31351e+04,0.33792e+04 /) - kbo(:,47,15) = (/ & - & 0.22243e+04,0.24998e+04,0.27694e+04,0.30313e+04,0.32810e+04 /) - kbo(:,48,15) = (/ & - & 0.21083e+04,0.23877e+04,0.26592e+04,0.29257e+04,0.31803e+04 /) - kbo(:,49,15) = (/ & - & 0.19925e+04,0.22741e+04,0.25488e+04,0.28180e+04,0.30783e+04 /) - kbo(:,50,15) = (/ & - & 0.18841e+04,0.21666e+04,0.24447e+04,0.27159e+04,0.29806e+04 /) - kbo(:,51,15) = (/ & - & 0.17798e+04,0.20618e+04,0.23428e+04,0.26160e+04,0.28839e+04 /) - kbo(:,52,15) = (/ & - & 0.16762e+04,0.19574e+04,0.22398e+04,0.25156e+04,0.27862e+04 /) - kbo(:,53,15) = (/ & - & 0.15731e+04,0.18530e+04,0.21358e+04,0.24152e+04,0.26872e+04 /) - kbo(:,54,15) = (/ & - & 0.14802e+04,0.17581e+04,0.20401e+04,0.23219e+04,0.25956e+04 /) - kbo(:,55,15) = (/ & - & 0.13915e+04,0.16675e+04,0.19488e+04,0.22318e+04,0.25080e+04 /) - kbo(:,56,15) = (/ & - & 0.13039e+04,0.15778e+04,0.18577e+04,0.21406e+04,0.24200e+04 /) - kbo(:,57,15) = (/ & - & 0.12167e+04,0.14890e+04,0.17672e+04,0.20493e+04,0.23313e+04 /) - kbo(:,58,15) = (/ & - & 0.11349e+04,0.14057e+04,0.16818e+04,0.19631e+04,0.22464e+04 /) - kbo(:,59,15) = (/ & - & 0.11025e+04,0.13721e+04,0.16476e+04,0.19283e+04,0.22117e+04 /) - kbo(:,13,16) = (/ & - & 0.12492e+05,0.12602e+05,0.12678e+05,0.12730e+05,0.12749e+05 /) - kbo(:,14,16) = (/ & - & 0.14696e+05,0.14792e+05,0.14862e+05,0.14890e+05,0.14889e+05 /) - kbo(:,15,16) = (/ & - & 0.17153e+05,0.17242e+05,0.17275e+05,0.17274e+05,0.17231e+05 /) - kbo(:,16,16) = (/ & - & 0.19843e+05,0.19894e+05,0.19898e+05,0.19845e+05,0.19747e+05 /) - kbo(:,17,16) = (/ & - & 0.22727e+05,0.22731e+05,0.22667e+05,0.22551e+05,0.22386e+05 /) - kbo(:,18,16) = (/ & - & 0.25761e+05,0.25684e+05,0.25544e+05,0.25342e+05,0.25070e+05 /) - kbo(:,19,16) = (/ & - & 0.28878e+05,0.28701e+05,0.28454e+05,0.28131e+05,0.27759e+05 /) - kbo(:,20,16) = (/ & - & 0.31981e+05,0.31695e+05,0.31314e+05,0.30871e+05,0.30360e+05 /) - kbo(:,21,16) = (/ & - & 0.35017e+05,0.34575e+05,0.34064e+05,0.33480e+05,0.32821e+05 /) - kbo(:,22,16) = (/ & - & 0.37854e+05,0.37264e+05,0.36589e+05,0.35840e+05,0.35046e+05 /) - kbo(:,23,16) = (/ & - & 0.40473e+05,0.39710e+05,0.38862e+05,0.37967e+05,0.37023e+05 /) - kbo(:,24,16) = (/ & - & 0.42796e+05,0.41864e+05,0.40869e+05,0.39817e+05,0.38718e+05 /) - kbo(:,25,16) = (/ & - & 0.44813e+05,0.43719e+05,0.42578e+05,0.41380e+05,0.40143e+05 /) - kbo(:,26,16) = (/ & - & 0.46504e+05,0.45263e+05,0.43973e+05,0.42641e+05,0.41294e+05 /) - kbo(:,27,16) = (/ & - & 0.47893e+05,0.46507e+05,0.45087e+05,0.43647e+05,0.42197e+05 /) - kbo(:,28,16) = (/ & - & 0.48993e+05,0.47480e+05,0.45952e+05,0.44417e+05,0.42878e+05 /) - kbo(:,29,16) = (/ & - & 0.49823e+05,0.48206e+05,0.46588e+05,0.44969e+05,0.43353e+05 /) - kbo(:,30,16) = (/ & - & 0.50415e+05,0.48716e+05,0.47025e+05,0.45339e+05,0.43659e+05 /) - kbo(:,31,16) = (/ & - & 0.50811e+05,0.49042e+05,0.47288e+05,0.45543e+05,0.43813e+05 /) - kbo(:,32,16) = (/ & - & 0.51032e+05,0.49203e+05,0.47400e+05,0.45610e+05,0.43841e+05 /) - kbo(:,33,16) = (/ & - & 0.51107e+05,0.49234e+05,0.47393e+05,0.45565e+05,0.43775e+05 /) - kbo(:,34,16) = (/ & - & 0.51130e+05,0.49228e+05,0.47350e+05,0.45497e+05,0.43688e+05 /) - kbo(:,35,16) = (/ & - & 0.51256e+05,0.49316e+05,0.47413e+05,0.45540e+05,0.43711e+05 /) - kbo(:,36,16) = (/ & - & 0.51519e+05,0.49555e+05,0.47626e+05,0.45731e+05,0.43885e+05 /) - kbo(:,37,16) = (/ & - & 0.52034e+05,0.50041e+05,0.48090e+05,0.46168e+05,0.44302e+05 /) - kbo(:,38,16) = (/ & - & 0.52529e+05,0.50511e+05,0.48535e+05,0.46595e+05,0.44706e+05 /) - kbo(:,39,16) = (/ & - & 0.52985e+05,0.50952e+05,0.48954e+05,0.46996e+05,0.45085e+05 /) - kbo(:,40,16) = (/ & - & 0.53633e+05,0.51575e+05,0.49556e+05,0.47578e+05,0.45648e+05 /) - kbo(:,41,16) = (/ & - & 0.54289e+05,0.52211e+05,0.50171e+05,0.48171e+05,0.46220e+05 /) - kbo(:,42,16) = (/ & - & 0.54932e+05,0.52836e+05,0.50778e+05,0.48759e+05,0.46785e+05 /) - kbo(:,43,16) = (/ & - & 0.55673e+05,0.53569e+05,0.51488e+05,0.49449e+05,0.47456e+05 /) - kbo(:,44,16) = (/ & - & 0.56461e+05,0.54346e+05,0.52247e+05,0.50190e+05,0.48178e+05 /) - kbo(:,45,16) = (/ & - & 0.57241e+05,0.55121e+05,0.53007e+05,0.50929e+05,0.48897e+05 /) - kbo(:,46,16) = (/ & - & 0.58063e+05,0.55933e+05,0.53806e+05,0.51710e+05,0.49656e+05 /) - kbo(:,47,16) = (/ & - & 0.58978e+05,0.56828e+05,0.54697e+05,0.52582e+05,0.50505e+05 /) - kbo(:,48,16) = (/ & - & 0.59891e+05,0.57720e+05,0.55586e+05,0.53459e+05,0.51367e+05 /) - kbo(:,49,16) = (/ & - & 0.60795e+05,0.58621e+05,0.56472e+05,0.54336e+05,0.52224e+05 /) - kbo(:,50,16) = (/ & - & 0.61639e+05,0.59466e+05,0.57298e+05,0.55162e+05,0.53034e+05 /) - kbo(:,51,16) = (/ & - & 0.62447e+05,0.60284e+05,0.58110e+05,0.55961e+05,0.53824e+05 /) - kbo(:,52,16) = (/ & - & 0.63240e+05,0.61098e+05,0.58916e+05,0.56760e+05,0.54612e+05 /) - kbo(:,53,16) = (/ & - & 0.64030e+05,0.61903e+05,0.59727e+05,0.57558e+05,0.55411e+05 /) - kbo(:,54,16) = (/ & - & 0.64735e+05,0.62637e+05,0.60471e+05,0.58287e+05,0.56138e+05 /) - kbo(:,55,16) = (/ & - & 0.65407e+05,0.63332e+05,0.61181e+05,0.59003e+05,0.56834e+05 /) - kbo(:,56,16) = (/ & - & 0.66069e+05,0.64015e+05,0.61881e+05,0.59702e+05,0.57529e+05 /) - kbo(:,57,16) = (/ & - & 0.66725e+05,0.64683e+05,0.62576e+05,0.60411e+05,0.58225e+05 /) - kbo(:,58,16) = (/ & - & 0.67327e+05,0.65315e+05,0.63232e+05,0.61078e+05,0.58891e+05 /) - kbo(:,59,16) = (/ & - & 0.67577e+05,0.65572e+05,0.63496e+05,0.61349e+05,0.59161e+05 /) - -! ----------------------------------------------------------------- - - forrefo(:, 1) = (/ 0.299818e-05, 0.209282e-05, 0.988353e-04, 0.632178e-03 /) - forrefo(:, 2) = (/ 0.633648e-05, 0.509214e-04, 0.650535e-03, 0.264019e-02 /) - forrefo(:, 3) = (/ 0.636782e-04, 0.136577e-03, 0.166500e-02, 0.750821e-02 /) - forrefo(:, 4) = (/ 0.472314e-03, 0.988296e-03, 0.585751e-02, 0.187352e-01 /) - forrefo(:, 5) = (/ 0.558635e-02, 0.856489e-02, 0.157438e-01, 0.181471e-01 /) - forrefo(:, 6) = (/ 0.217395e-01, 0.229156e-01, 0.230125e-01, 0.143821e-01 /) - forrefo(:, 7) = (/ 0.277222e-01, 0.299252e-01, 0.208929e-01, 0.826748e-02 /) - forrefo(:, 8) = (/ 0.252119e-01, 0.262911e-01, 0.187663e-01, 0.417110e-02 /) - forrefo(:, 9) = (/ 0.304941e-01, 0.175545e-01, 0.971224e-02, 0.142023e-02 /) - forrefo(:,10) = (/ 0.327200e-01, 0.215788e-01, 0.346831e-02, 0.157989e-02 /) - forrefo(:,11) = (/ 0.324955e-01, 0.228571e-01, 0.171749e-02, 0.226853e-02 /) - forrefo(:,12) = (/ 0.326588e-01, 0.198544e-01, 0.532339e-06, 0.279086e-02 /) - forrefo(:,13) = (/ 0.345157e-01, 0.168679e-01, 0.505361e-06, 0.276647e-02 /) - forrefo(:,14) = (/ 0.448765e-01, 0.123791e-02, 0.488367e-06, 0.122245e-02 /) - forrefo(:,15) = (/ 0.486925e-01, 0.464371e-06, 0.464241e-06, 0.753846e-06 /) - forrefo(:,16) = (/ 0.530511e-01, 0.376234e-06, 0.409824e-06, 0.470650e-06 /) - -! ----------------------------------------------------------------- -! The array SELFREFO contains the coefficient of the water vapor -! self-continuum (including the energy term). The first index -! refers to temperature in 7.2 degree increments. For instance, -! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, -! etc. The second index runs over the g-channel (1 to 16). - - selfrefo(:, 1) = (/ & - & 0.118069e+00, 0.713523e-01, 0.431199e-01, 0.260584e-01, 0.157477e-01, & - & 0.951675e-02, 0.575121e-02, 0.347560e-02, 0.210039e-02, 0.126932e-02 /) - selfrefo(:, 2) = (/ & - & 0.137081e-01, 0.139046e-01, 0.141040e-01, 0.143061e-01, 0.145112e-01, & - & 0.147193e-01, 0.149303e-01, 0.151443e-01, 0.153614e-01, 0.155816e-01 /) - selfrefo(:, 3) = (/ & - & 0.166575e-01, 0.164916e-01, 0.163273e-01, 0.161647e-01, 0.160037e-01, & - & 0.158443e-01, 0.156864e-01, 0.155302e-01, 0.153755e-01, 0.152224e-01 /) - selfrefo(:, 4) = (/ & - & 0.597379e-01, 0.509517e-01, 0.434579e-01, 0.370662e-01, 0.316145e-01, & - & 0.269647e-01, 0.229988e-01, 0.196162e-01, 0.167311e-01, 0.142703e-01 /) - selfrefo(:, 5) = (/ & - & 0.227517e+00, 0.198401e+00, 0.173011e+00, 0.150870e+00, 0.131563e+00, & - & 0.114726e+00, 0.100044e+00, 0.872415e-01, 0.760769e-01, 0.663411e-01 /) - selfrefo(:, 6) = (/ & - & 0.453235e+00, 0.414848e+00, 0.379712e+00, 0.347552e+00, 0.318116e+00, & - & 0.291173e+00, 0.266512e+00, 0.243940e+00, 0.223279e+00, 0.204368e+00 /) - selfrefo(:, 7) = (/ & - & 0.569263e+00, 0.516415e+00, 0.468473e+00, 0.424982e+00, 0.385528e+00, & - & 0.349737e+00, 0.317269e+00, 0.287815e+00, 0.261095e+00, 0.236856e+00 /) - selfrefo(:, 8) = (/ & - & 0.490314e+00, 0.448042e+00, 0.409413e+00, 0.374116e+00, 0.341861e+00, & - & 0.312387e+00, 0.285455e+00, 0.260844e+00, 0.238355e+00, 0.217805e+00 /) - selfrefo(:, 9) = (/ & - & 0.258162e+00, 0.265085e+00, 0.272193e+00, 0.279493e+00, 0.286988e+00, & - & 0.294684e+00, 0.302586e+00, 0.310701e+00, 0.319033e+00, 0.327588e+00 /) - selfrefo(:,10) = (/ & - & 0.332019e+00, 0.331902e+00, 0.331784e+00, 0.331666e+00, 0.331549e+00, & - & 0.331431e+00, 0.331314e+00, 0.331197e+00, 0.331079e+00, 0.330962e+00 /) - selfrefo(:,11) = (/ & - & 0.357523e+00, 0.353154e+00, 0.348839e+00, 0.344576e+00, 0.340366e+00, & - & 0.336207e+00, 0.332099e+00, 0.328041e+00, 0.324032e+00, 0.320073e+00 /) - selfrefo(:,12) = (/ & - & 0.294662e+00, 0.299043e+00, 0.303488e+00, 0.308000e+00, 0.312579e+00, & - & 0.317226e+00, 0.321941e+00, 0.326727e+00, 0.331585e+00, 0.336514e+00 /) - selfrefo(:,13) = (/ & - & 0.227445e+00, 0.241545e+00, 0.256519e+00, 0.272422e+00, 0.289311e+00, & - & 0.307247e+00, 0.326294e+00, 0.346523e+00, 0.368005e+00, 0.390820e+00 /) - selfrefo(:,14) = (/ & - & 0.616203e-02, 0.113523e-01, 0.209144e-01, 0.385307e-01, 0.709852e-01, & - & 0.130776e+00, 0.240929e+00, 0.443865e+00, 0.817733e+00, 0.150651e+01 /) - selfrefo(:,15) = (/ & - & 0.279552e-03, 0.808472e-03, 0.233812e-02, 0.676192e-02, 0.195557e-01, & - & 0.565555e-01, 0.163560e+00, 0.473020e+00, 0.136799e+01, 0.395626e+01 /) - selfrefo(:,16) = (/ & - & 0.261006e-03, 0.771043e-03, 0.227776e-02, 0.672879e-02, 0.198777e-01, & - & 0.587212e-01, 0.173470e+00, 0.512452e+00, 0.151385e+01, 0.447209e+01 /) - - end subroutine sw_kgb29 - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_rad.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_rad.F90 deleted file mode 100644 index c902f70a1..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_rad.F90 +++ /dev/null @@ -1,1315 +0,0 @@ -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- -! -! **************************************************************************** -! * * -! * RRTMG_SW * -! * * -! * * -! * * -! * a rapid radiative transfer model * -! * for the solar spectral region * -! * for application to general circulation models * -! * * -! * * -! * Atmospheric and Environmental Research, Inc. * -! * 131 Hartwell Avenue * -! * Lexington, MA 02421 * -! * * -! * * -! * Eli J. Mlawer * -! * Jennifer S. Delamere * -! * Michael J. Iacono * -! * Shepard A. Clough * -! * David M. Berthiaume * -! * * -! * * -! * * -! * * -! * * -! * email: miacono@aer.com * -! * email: emlawer@aer.com * -! * email: jdelamer@aer.com * -! * * -! * The authors wish to acknowledge the contributions of the * -! * following people: Steven J. Taubman, Patrick D. Brown, * -! * Ronald E. Farren, Luke Chen, Robert Bergstrom. * -! * * -! **************************************************************************** - - -module rrtmg_sw_rad - - use rrsw_vsn -! use cloud_condensate_inhomogeneity, only: & -! initialize_inhomogeneity, release_inhomogeneity - use cloud_subcol_gen, only: & - generate_stochastic_clouds, clearCounts_threeBand - use rrtmg_sw_cldprmc, only: cldprmc_sw - use rrtmg_sw_setcoef, only: setcoef_sw - use rrtmg_sw_spcvmc, only: spcvmc_sw - use iso_fortran_env, only: error_unit - - implicit none - - public :: rrtmg_sw, earth_sun - -contains - - subroutine rrtmg_sw ( & - rpart, ncol, nlay, & - scon, adjes, coszen, isolvar, & - play, plev, tlay, & - h2ovmr, o3vmr, co2vmr, ch4vmr, o2vmr, & - iceflgsw, liqflgsw, & - cld, ciwp, clwp, rei, rel, & - dyofyr, zm, alat, & - iaer, tauaer, ssaaer, asmaer, & - asdir, asdif, aldir, aldif, & - cloudLM, cloudMH, normFlx, & - clearCounts, swuflx, swdflx, swuflxc, swdflxc, & - nirr, nirf, parr, parf, uvrr, uvrf, & - tautp, tauhp, taump, taulp, & - - ! optional inputs - bndscl, indsolvar, solcycfrac) - - use parrrsw, only : nbndsw - - ! ----- Inputs ----- - - ! dimensions - ! ---------- - integer, intent(in) :: rpart ! Number of columns in a partition - integer, intent(in) :: ncol ! Number of horizontal columns - integer, intent(in) :: nlay ! Number of model layers - - ! orbit - ! ----- - real, intent(in) :: scon ! Solar constant (W/m2) - - ! Notes: SCON is total solar irradiance averaged over the solar cycle. If scon == 0, - ! an internal solar constant will be used. This depends on the value of isolvar. For - ! isolvar=-1, scon=1368.22 Wm-2 (Kurucz), while for isolvar>=0, scon=1360.85 Wm-2 - ! (NRLSSI2). If scon > 0.0, this internal solar constant will be scaled to the value - ! of SCON provided. - - real, intent(in) :: adjes ! Flux adjustment for Earth/Sun distance - ! i.e., ~ 1/dist(Earth-Sun in AU)^2 - real, intent(in) :: coszen (ncol) ! Cosine of solar zenith angle - - ! solar variability - ! ----------------- - integer, intent(in) :: isolvar ! Flag for solar variability method - - ! Notes: isolvar = -1 uses the Kurucz source function, while isolvar >= 0 use the NRLSSI2 - ! solar model. First, the behavior for SCON = 0: isolvar in {-1,0,3} all have a fixed solar - ! input at 1AU. For isolvar = -1 it is the Kurucz solar constant of 1368.22 Wm-2, while for - ! isolvar = {0,3} it is the NRLSSI2 solar constant of 1360.85 Wm-2 (for the 100-50000 cm-1 - ! spectral range only, and based on the mean of solar cycle 13-24). The spectral breakdown - ! is hardcoded into the model, including the "quiet sun, faculae brightening and sunspot - ! darkening terms" for NRLSSI2, which are based on the means over solar cycles 13-24. But - ! an optional scaling by band (via multiplier bndscl(:)) can be applied for isolvar {-1,3}. - ! For SCON > 0, the behavior of these three cases (isolvar {-1,0,3}) is simple: the solar - ! input is just scaled to the provided SCON, uniformly across the spectrum (and for each of - ! the quiet sun, faculae and sunpot terms for NRLSSI2). This scaling is applied before the - ! optional bndscl scaling. - ! The isolvar = {1,2} cases require more detailed explanation. Both use the NRLSSI2 model, - ! and but allow the mix of the quiet sun, faculae, and sunspot terms to vary with time. Since - ! each of these terms has a different spectral response, this gives a solar input spectra that - ! varies with time. This is achieved by setting the factors svar_{i,f,s}, which are multipliers - ! to the average spectral response of the quiet sun, faculae, and sunspot terms (with integral - ! values {I,F,S}int W/m2.) - ! The isolvar = 1 case is designed to allow simulations over a generic solar cycle. This - ! is an 11-year long average solar cycle derived from actual solar cycles 13-24. We denote - ! this cycle "AvgCyc11". This cycle is implemented as follows: an 11-year cycle is provided - ! for the faculae and sunpot indices Mg and SB via the {mg,sb}avgcyc arrays in the NRLSSI2 - ! module, which tabulate the index values per month for the 11 years. In conjunction with - ! this, a linear relationship is provided between Mg and svar_f and between SB and svar_s. - ! The main input for isolvar = 1 is solcycfrac in [0,1], which is the normalized input - ! position in the 11-year average cycle. This solcycfrac is used to interpolate into the - ! {mg,sb}avgcyc arrays to values Mg and SB, which are then converted to svar_f and svar_s - ! via the linear relationship provided. These linear relationships are desined such that - ! svar_f = 1 at Mg = , the time average Mg index over AvgCyc11, and similarly for svar_s - ! and SB, such that are both unity. So, if solcyclfr is uniformly cycled in - ! [0,1] by the caller of rrtmg_sw_rad(), then each of the faculae and sunspot terms will - ! also cycle, providing a time and spectrally varying solar cycle, but still with average - ! flux contributions over the cycle of Fint and Sint (for SCON.eq.0). An extra facility is - ! provided via the optional indsolar(2) array, which allows for a further multiplication - ! of the svar_{f,s} terms after they are formed by the linearization above. This multiplier - ! is time varying, being one at solar minimum, and the value of indsolvar(1,2) at solar - ! maximum (for 1=Mg, 2=SB respecively), and to vary linearly with solcycfrac between those - ! extrema (see NRLSSI2 module for further details). - ! Still discussing isolvar = 1, for SCON.eq.0 we take the hint from not explicitly - ! setting SCON to let an indsolvar.ne.1 choice cause a deviation from the internal solar - ! constant, because, while the svar_{f,s} average to unity over a cycle *without* a time- - ! varying indsolvar multiplier, they do not do so with it. If, on the other hand, a value - ! SCON > 0 is provided, we ASSUME that it is a value that we should honor as a MEAN over - ! the AvgCyc11 cycle. We do this by adjusting a time-invariant quiet sun svar_i factor - ! to honor the provided mean SCON, even in the presence of indsolvar.ne.1. Further - ! details are found in the code. - ! Finally, the insolvar = 2 case. This is a data-driven case provided for when values - ! of TSI (SCON) and Mg and SB indices are available from data. In this case, the AvgCyc11 - ! cycle is not used explicitly, but the index-to-svar linearizations ARE used. The input - ! indsolvar in this case provides the (1=Mg,2=SB) indices and produces concomitant mult- - ! ipliers svar_{f,s} by these linear relationships. Again, for SCON.eq.0 we take the hint - ! from not explicitly setting SCON to let the solar constant vary naturally as a result - ! of the above data driven svar_{f,s} values (and by keeping svar_i = 1). BUT, for input - ! SCON > 0, we take this as the TIME-VARYING, DATA-SUPPLIED TSI and honor it at every time - ! (not just in a mean sense as for isolvar = 1). We do this by adjusting the quiet sun - ! svar_i term (see the code). - - real, intent(in), optional :: indsolvar (2) ! Facular and sunspot amplitude scale facs (isolvar=1), - ! or Mg and SB indices (isolvar=2) - real, intent(in), optional :: bndscl (nbndsw) ! Scale factors for each band - real, intent(in), optional :: solcycfrac ! Fraction of averaged 11-year solar cycle (0-1) - ! at current time (isolvar=1) - ! 0. represents the first day of year 1 - ! 1. represents the last day of year 11 - - ! profile - ! ------- - real, intent(in) :: play (ncol,nlay) ! Layer pressures (hPa) - real, intent(in) :: plev (ncol,nlay+1) ! Interface pressures (hPa) - real, intent(in) :: tlay (ncol,nlay) ! Layer temperatures (K) - - ! gases - ! ----- - real, intent(in) :: h2ovmr (ncol,nlay) ! H2O volume mixing ratio - real, intent(in) :: o3vmr (ncol,nlay) ! O3 volume mixing ratio - real, intent(in) :: co2vmr (ncol,nlay) ! CO2 volume mixing ratio - real, intent(in) :: ch4vmr (ncol,nlay) ! Methane volume mixing ratio - real, intent(in) :: o2vmr (ncol,nlay) ! Oxygen volume mixing ratio - - ! cloud optics flags - ! ------------------ - integer, intent(in) :: iceflgsw ! Flag for ice particle specification - integer, intent(in) :: liqflgsw ! Flag for liquid droplet specification - - ! clouds - ! ------ - real, intent(in) :: cld (ncol,nlay) ! Cloud fraction - real, intent(in) :: ciwp (ncol,nlay) ! In-cloud ice water path (g/m2) - real, intent(in) :: clwp (ncol,nlay) ! In-cloud liquid water path (g/m2) - real, intent(in) :: rei (ncol,nlay) ! Cloud ice effective radius (microns) - real, intent(in) :: rel (ncol,nlay) ! Cloud water drop effective radius (microns) - - ! cloud overlap (exponential) - ! --------------------------- - integer, intent(in) :: dyofyr ! Day of the year - real, intent(in) :: zm (ncol,nlay) ! Heights of level midpoints - real, intent(in) :: alat (ncol) ! Latitude of column [radians] - - ! aerosols (optical props, non-delta-scaled) - ! ------------------------------------------ - integer, intent(in) :: iaer ! aerosol flag (0=off, 10=on) - real, intent(in) :: tauaer (ncol,nlay,nbndsw) ! aer optical depth (iaer=10 only) - real, intent(in) :: ssaaer (ncol,nlay,nbndsw) ! aer single scat albedo (iaer=10 only) - real, intent(in) :: asmaer (ncol,nlay,nbndsw) ! aer asymmetry param (iaer=10 only) - - ! surface albedos - ! --------------- - real, intent(in) :: asdir (ncol) ! UV/vis surface albedo: direct rad - real, intent(in) :: asdif (ncol) ! UV/vis surface albedo: diffuse rad - real, intent(in) :: aldir (ncol) ! Near-IR surface albedo: direct rad - real, intent(in) :: aldif (ncol) ! Near-IR surface albedo: diffuse rad - - ! etc - ! --- - ! pressure super-layer interface levels for cloud fractions - integer, intent(in) :: cloudLM ! Low-mid - integer, intent(in) :: cloudMH ! Mid-high - - integer, intent(in) :: normFlx ! Normalize fluxes? - ! 0 = no normalization - ! 1 = normalize (by scon*coszen) - - ! ----- Outputs ----- - - ! subcolumn clear counts for Tot|High|Mid|Low super-layers - integer, intent(out) :: clearCounts(ncol,4) - - real, intent(out) :: swuflx (ncol,nlay+1) ! Total sky SW up flux (W/m2) - real, intent(out) :: swdflx (ncol,nlay+1) ! Total sky SW down flux (W/m2) - real, intent(out) :: swuflxc (ncol,nlay+1) ! Clear sky SW up flux (W/m2) - real, intent(out) :: swdflxc (ncol,nlay+1) ! Clear sky SW down flux (W/m2) - - ! Output added for Land/Surface process - real, intent(out) :: nirr (ncol) ! Near-IR direct down SW flux (W/m2) - real, intent(out) :: nirf (ncol) ! Near-IR diffuse down SW flux (W/m2) - real, intent(out) :: parr (ncol) ! Visible direct down SW flux (W/m2) - real, intent(out) :: parf (ncol) ! Visible diffuse down SW flux (W/m2) - real, intent(out) :: uvrr (ncol) ! UV direct down SW flux (W/m2) - real, intent(out) :: uvrf (ncol) ! UV diffuse down SW flux (W/m2) - - ! In-cloud PAR optical thickness for Tot|High|Mid|Low super-layers - real, intent(out), dimension (ncol) :: tautp, tauhp, taump, taulp - - ! ----- Locals ----- - - integer :: pncol - - ! ASSERTs to catch unphysical or invalid inputs - - if (any(play < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(play):', minval(play) - error stop 'negative values in input: play' - end if - if (any(plev < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(plev):', minval(plev) - error stop 'negative values in input: plev' - end if - if (any(tlay < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(tlay):', minval(tlay) - error stop 'negative values in input: tlay' - end if - if (any(h2ovmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(h2ovmr):', minval(h2ovmr) - error stop 'negative values in input: h2ovmr' - end if - if (any(o3vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(o3vmr):', minval(o3vmr) - error stop 'negative values in input: o3vmr' - end if - if (any(co2vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(co2vmr):', minval(co2vmr) - error stop 'negative values in input: co2vmr' - end if - if (any(ch4vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(ch4vmr):', minval(ch4vmr) - error stop 'negative values in input: ch4vmr' - end if - if (any(o2vmr < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(o2vmr):', minval(o2vmr) - error stop 'negative values in input: o2vmr' - end if - if (any(asdir < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(asdir):', minval(asdir) - error stop 'negative values in input: asdir' - end if - if (any(aldir < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(aldir):', minval(aldir) - error stop 'negative values in input: aldir' - end if - if (any(asdif < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(asdif):', minval(asdif) - error stop 'negative values in input: asdif' - end if - if (any(aldif < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(aldif):', minval(aldif) - error stop 'negative values in input: aldif' - end if - if (any(cld < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(cld):', minval(cld) - error stop 'negative values in input: cld' - end if - if (any(ciwp < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(ciwp):', minval(ciwp) - error stop 'negative values in input: ciwp' - end if - if (any(clwp < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(clwp):', minval(clwp) - error stop 'negative values in input: clwp' - end if - if (any(rei < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(rei):', minval(rei) - error stop 'negative values in input: rei' - end if - if (any(rel < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(rel):', minval(rel) - error stop 'negative values in input: rel' - end if - if (any(tauaer < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(tauaer):', minval(tauaer) - error stop 'negative values in input: tauaer' - end if - if (any(ssaaer < 0.)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'minval(ssaaer):', minval(ssaaer) - error stop 'negative values in input: ssaaer' - end if - -! ! Set up condensate inhomogeneity tables. -! ! Done in Radiation GC MAPL Initialize now since LW and SW both have same inhomogeneity. -! call initialize_inhomogeneity(1) - - ! set column partition size pncol - if (rpart > 0) then - pncol = rpart - else - pncol = 2 - end if - - ! do partitions - call rrtmg_sw_sub ( & - pncol, ncol, nlay, & - scon, adjes, coszen, isolvar, & - play, plev, tlay, & - h2ovmr, o3vmr, co2vmr, ch4vmr, o2vmr, & - iceflgsw, liqflgsw, & - cld, ciwp, clwp, rei, rel, & - dyofyr, zm, alat, & - iaer, tauaer, ssaaer, asmaer, & - asdir, asdif, aldir, aldif, & - cloudLM, cloudMH, normFlx, & - clearCounts, swuflx, swdflx, swuflxc, swdflxc, & - nirr, nirf, parr, parf, uvrr, uvrf, & - tautp, tauhp, taump, taulp, & - ! optional inputs - bndscl, indsolvar, solcycfrac) - -! ! release condensate inhomogeneity resources -! call release_inhomogeneity - - end subroutine rrtmg_sw - - - subroutine rrtmg_sw_sub ( & - pncol, gncol, nlay, & - scon, adjes, gcoszen, isolvar, & - gplay, gplev, gtlay, & - gh2ovmr, go3vmr, gco2vmr, gch4vmr, go2vmr, & - iceflgsw, liqflgsw, & - gcld, gciwp, gclwp, grei, grel, & - dyofyr, gzm, galat, & - iaer, gtauaer, gssaaer, gasmaer, & - gasdir, gasdif, galdir, galdif, & - cloudLM, cloudMH, normFlx, & - clearCounts, swuflx, swdflx, swuflxc, swdflxc, & - nirr, nirf, parr, parf, uvrr, uvrf, & - tautp, tauhp, taump, taulp, & - ! optional inputs - bndscl, indsolvar, solcycfrac) - - - ! ----- Modules ----- - use parrrsw, only : nbndsw, ngptsw, & - jpband, jpb1, jpb2, rrsw_scon - use rrsw_con, only : grav, avogad - use NRLSSI2, only : initialize_NRLSSI2, & - adjust_solcyc_amplitudes, & - interpolate_indices, & - Iint, Fint, Sint, & - Mg_avg, Mg_0, & - SB_avg, SB_0, & - isolvar_1_mean_svar_f, & - isolvar_1_mean_svar_s - - ! ----- Inputs ----- - ! (see rrtmg_sw() for more detailed comments) - - ! dimensions - integer, intent(in) :: pncol ! Nominal horiz cols in a partition - integer, intent(in) :: gncol ! Global number of horizontal columns - integer, intent(in) :: nlay ! Number of model layers - - ! orbit - real, intent(in) :: scon ! Solar constant (W/m2) - real, intent(in) :: adjes ! Flux adjustment for Earth/Sun distance - real, intent(in) :: gcoszen (gncol) ! Cosine of solar zenith angle - - ! solar variability - integer, intent(in) :: isolvar - real, intent(in), optional :: indsolvar (2) - real, intent(in), optional :: bndscl (nbndsw) - real, intent(in), optional :: solcycfrac - - ! profile - real, intent(in) :: gplay (gncol,nlay) ! Layer pressures (hPa) - real, intent(in) :: gplev (gncol,nlay+1) ! Interface pressures (hPa) - real, intent(in) :: gtlay (gncol,nlay) ! Layer temperatures (K) - - ! gases - real, intent(in) :: gh2ovmr (gncol,nlay) ! H2O volume mixing ratio - real, intent(in) :: go3vmr (gncol,nlay) ! O3 volume mixing ratio - real, intent(in) :: gco2vmr (gncol,nlay) ! CO2 volume mixing ratio - real, intent(in) :: gch4vmr (gncol,nlay) ! Methane volume mixing ratio - real, intent(in) :: go2vmr (gncol,nlay) ! Oxygen volume mixing ratio - - ! cloud optics flags - integer, intent(in) :: iceflgsw ! Flag for ice particle specifn - integer, intent(in) :: liqflgsw ! Flag for liquid droplet specifn - - ! clouds - real, intent(in) :: gcld (gncol,nlay) ! Cloud fraction - real, intent(in) :: gciwp (gncol,nlay) ! In-cloud ice water path (g/m2) - real, intent(in) :: gclwp (gncol,nlay) ! In-cloud liquid water path (g/m2) - real, intent(in) :: grei (gncol,nlay) ! Cloud ice effective radius (um) - real, intent(in) :: grel (gncol,nlay) ! Cloud drop effective radius (um) - - ! cloud overlap - integer, intent(in) :: dyofyr ! Day of the year - real, intent(in) :: gzm (gncol,nlay) ! Heights of level midpoints - real, intent(in) :: galat (gncol) ! Latitudes of columns [radians] - - ! aerosols (optical props, non-delta-scaled) - integer, intent(in) :: iaer ! aerosol flag (0=off, 10=on) - real, intent(in) :: gtauaer (gncol,nlay,nbndsw) ! aer optical depth (iaer=10 only) - real, intent(in) :: gssaaer (gncol,nlay,nbndsw) ! aer single scat alb (iaer=10 only) - real, intent(in) :: gasmaer (gncol,nlay,nbndsw) ! aer asymmetry param (iaer=10 only) - - ! surface albedos - real, intent(in) :: gasdir (gncol) ! UV/vis surface albedo: direct rad - real, intent(in) :: gasdif (gncol) ! UV/vis surface albedo: diffuse rad - real, intent(in) :: galdir (gncol) ! Near-IR surface albedo: direct rad - real, intent(in) :: galdif (gncol) ! Near-IR surface albedo: diffuse rad - - ! super-layer cloud fraction boundaries - integer, intent(in) :: cloudLM ! Low-mid - integer, intent(in) :: cloudMH ! Mid-high - - integer, intent(in) :: normFlx ! Normalize fluxes flag - - ! ----- Outputs ----- - - ! subcolumn clear counts for Tot|High|Mid|Low super-layers - integer, intent(out) :: clearCounts(gncol,4) - - real, intent(out) :: swuflx (gncol,nlay+1) ! Total sky SW up flux (W/m2) - real, intent(out) :: swdflx (gncol,nlay+1) ! Total sky SW down flux (W/m2) - real, intent(out) :: swuflxc (gncol,nlay+1) ! Clear sky SW up flux (W/m2) - real, intent(out) :: swdflxc (gncol,nlay+1) ! Clear sky SW down flux (W/m2) - - ! Output added for Land/Surface process - real, intent(out) :: nirr (gncol) ! Near-IR direct down SW flux (w/m2) - real, intent(out) :: nirf (gncol) ! Near-IR diffuse down SW flux (w/m2) - real, intent(out) :: parr (gncol) ! Visible direct down SW flux (w/m2) - real, intent(out) :: parf (gncol) ! Visible diffuse down SW flux (w/m2) - real, intent(out) :: uvrr (gncol) ! UV direct down SW flux (w/m2) - real, intent(out) :: uvrf (gncol) ! UV diffuse down SW flux (w/m2) - - ! In-cloud PAR optical thickness for Tot|High|Mid|Low super-layers - real, intent(out), dimension (gncol) :: tautp, tauhp, taump, taulp - - ! ----- Locals ----- - - ! Control - real, parameter :: zepzen = 1.e-10 ! very small cossza - - integer :: ibnd, icol, ilay, ilev ! various indices - - ! Atmosphere - real :: coldry (nlay,pncol) ! dry air column amount - - ! solar input - real :: coszen (pncol) ! Cosine of solar zenith angle - real :: cossza (pncol) ! Cosine of solar zenith angle - real :: adjflux (jpband) ! adjustment for curr Earth/Sun distance - real :: swdflx_at_top (gncol) ! swdflx at TOA - - ! surface albedos - real :: albdir (nbndsw,pncol) ! surface albedo, direct - real :: albdif (nbndsw,pncol) ! surface albedo, diffuse - - ! Atmosphere - setcoef - ! -------------------- - - ! tropopause layer index - integer :: laytrop (pncol) - - ! gasesous absorbers - real :: colh2o (nlay,pncol) ! column amount (h2o) - real :: colco2 (nlay,pncol) ! column amount (co2) - real :: colo3 (nlay,pncol) ! column amount (o3) - real :: colch4 (nlay,pncol) ! column amount (ch4) - real :: colo2 (nlay,pncol) ! column amount (o2) - real :: colmol (nlay,pncol) ! column amount (Rayleigh) - - ! continuum interpolation coefficients - integer :: indself (nlay,pncol) - integer :: indfor (nlay,pncol) - real :: selffac (nlay,pncol) - real :: selffrac (nlay,pncol) - real :: forfac (nlay,pncol) - real :: forfrac (nlay,pncol) - - ! pressure and temperature interpolation coefficients - integer, dimension (nlay,pncol) :: jp, jt, jt1 - real, dimension (nlay,pncol) :: fac00, fac01, fac10, fac11 - - ! general - real :: play (nlay, pncol) ! Layer pressures (hPa) - real :: plev (nlay+1,pncol) ! Interface pressures (hPa) - real :: tlay (nlay, pncol) ! Layer temperatures (K) - - ! Atmosphere/clouds - cldprop - ! --------------------------- - - integer :: ncbands ! num of cloud spectral bands - - real :: cld (nlay,pncol) ! Cloud fraction - real :: ciwp (nlay,pncol) ! In-cloud ice water path [g/m2] - real :: clwp (nlay,pncol) ! In-cloud liq water path [g/m2] - real :: rei (nlay,pncol) ! Cloud ice effective radius [um] - real :: rel (nlay,pncol) ! Cloud drop effective radius [um] - - real :: alat (pncol) ! latitude for cloud overlap - real :: zm (nlay,pncol) ! mid-layer hgt for cld overlap [m] - - logical :: cldymcl (nlay,ngptsw,pncol) ! cloud or not? [mcica] - real :: ciwpmcl (nlay,ngptsw,pncol) ! in-cloud ice water path [mcica] [g/m2] - real :: clwpmcl (nlay,ngptsw,pncol) ! in-cloud liq water path [mcica] [g/m2] - integer :: p_clearCounts (4,pncol) ! for super-layer cld fractions - - real :: taucmc (nlay,ngptsw,pncol) ! in-cloud optical depth [mcica] - real :: taormc (nlay,ngptsw,pncol) ! unscaled in-cloud optl depth [mcica] - real :: ssacmc (nlay,ngptsw,pncol) ! in-cloud single scat albedo [mcica] - real :: asmcmc (nlay,ngptsw,pncol) ! in-cloud asymmetry param [mcica] - - ! Atmosphere/clouds/aerosol - spcvrt,spcvmc - ! ----------------------------------------- - - real :: taua (nlay,nbndsw,pncol) - real :: asya (nlay,nbndsw,pncol) - real :: omga (nlay,nbndsw,pncol) - - ! SW flux temporaries [W/m2] - real :: zbbfu (nlay+1,pncol) ! all-SW up - real :: zbbfd (nlay+1,pncol) ! all-SW down - real :: zbbcu (nlay+1,pncol) ! all-SW up clear-sky - real :: zbbcd (nlay+1,pncol) ! all-SW down clear-sky - real :: zbbfddir (nlay+1,pncol) ! all-SW down direct - real :: zbbcddir (nlay+1,pncol) ! all-SW down direct clear-sky - real :: zuvfd (nlay+1,pncol) ! UV-Vis down - real :: zuvcd (nlay+1,pncol) ! UV-Vis down clear-sky - real :: zuvfddir (nlay+1,pncol) ! UV-Vis down direct - real :: zuvcddir (nlay+1,pncol) ! UV-Vis down direct clear-sky - real :: znifd (nlay+1,pncol) ! near-IR down - real :: znicd (nlay+1,pncol) ! near-IR down clear-sky - real :: znifddir (nlay+1,pncol) ! near-IR down direct - real :: znicddir (nlay+1,pncol) ! near-IR down direct clear-sky - - real, dimension (pncol) :: & - znirr, znirf, zparr, zparf, zuvrr, zuvrf - - ! in-cloud PAR optical thicknesses - real, dimension (pncol) :: ztautp, ztauhp, ztaump, ztaulp - - ! Solar variability multipliers - ! ----------------------------- - - real :: svar_f ! facular multiplier - real :: svar_s ! sunspot multiplier - real :: svar_i ! baseline irradiance multiplier - real :: svar_f_bnd (jpband) ! facular multiplier (by band) - real :: svar_s_bnd (jpband) ! sunspot multiplier (by band) - real :: svar_i_bnd (jpband) ! baseline irradiance multiplier (by band) - - integer :: ncol_clr, ncol_cld - integer :: npart_clr, npart_cld, npart - integer, dimension (gncol) :: gicol_clr, gicol_cld - - real, parameter :: amd = 28.9660 ! Effective molecular weight of dry air (g/mol) - real, parameter :: amw = 18.0160 ! Molecular weight of water vapor (g/mol) - -! Set molecular weight ratios (for converting mmr to vmr), e.g. h2ovmr = h2ommr * amdw - - real, parameter :: amdw = 1.607793 ! Molecular weight of dry air / water vapor - real, parameter :: amdc = 0.658114 ! Molecular weight of dry air / carbon dioxide - real, parameter :: amdo = 0.603428 ! Molecular weight of dry air / ozone - real, parameter :: amdm = 1.805423 ! Molecular weight of dry air / methane - real, parameter :: amdn = 0.658090 ! Molecular weight of dry air / nitrous oxide - real, parameter :: amdo2 = 0.905140 ! Molecular weight of dry air / oxygen - - integer :: n, imol, gicol ! Loop indices - real :: adjflx ! flux adjustment for Earth/Sun distance - - integer :: ipart, col_last, cols, cole, cc - - ! ncol is the actual number of gridcols in a partition, cf. pncol, - ! the maximum number. May have ncol < pncol on final partition. - integer :: ncol - - ! other solar variability locals - ! ------------------------------ - real :: solvar (jpband) ! solar constant scaling factor by band - real :: indsolvar_scl (2) ! Adjusted facular and sunspot amplitude - ! scale factors (isolvar=1) - real :: indsolvar_ndx (2) ! Facular and sunspot indices (isolvar=2) - - real :: solcycfr, Mg_now, SB_now - real :: scon_int, svar_r - - ! Initializations - ! --------------- - - ! solar variability: default values - solvar(:) = 1. - adjflux(:) = 1. - svar_f = 1. - svar_s = 1. - svar_i = 1. - svar_f_bnd(:) = 1. - svar_s_bnd(:) = 1. - svar_i_bnd(:) = 1. - - ! isolvar == 1 specifies the position in AvgCyc11 through solcycfrac - ! and allows scaling of solar cycle amplitudes as described in notes. - ! ------------------------------------------------------------------ - - if (isolvar .eq. 1) then - - ! require solcycfrac present, else what's the point of using isolvar=1 ? - if (.not.present(solcycfrac)) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'RRTMG_SW: isolvar == 1 requires solcycfrac present!' - end if - solcycfr = solcycfrac - - ! No amplitude scaling unless indsolvar is present. - indsolvar_scl(1:2) = 1. - - if (present(indsolvar)) then - - ! Adjust amplitude scaling of mean solar cycle to be unity at - ! solar minimum (solcycfrac_min), to be the requested indsolvar - ! at solar maximum (solcycfrac_max), and to vary linearly with - ! solcycfr between those values. - - if (indsolvar(1).ne.1. .or. indsolvar(2).ne.1.) & - call adjust_solcyc_amplitudes(solcycfr, indsolvar, indsolvar_scl) - - endif - - endif - - ! isolvar == 2 allows direct specification of Mg and SB via indsolvar - ! ------------------------------------------------------------------- - - if (isolvar .eq. 2) then - - ! default to mean indices - indsolvar_ndx(1) = Mg_avg - indsolvar_ndx(2) = SB_avg - - ! update to specified indices if provided - if (present(indsolvar)) then - indsolvar_ndx(1) = indsolvar(1) - indsolvar_ndx(2) = indsolvar(2) - endif - - endif - - ! pre-calculated constants (will only do calcs once internally) - ! ------------------------------------------------------------- - call initialize_NRLSSI2 (isolvar, indsolvar) - - ! Set flux adjustment for current Earth/Sun distance (two options) - ! ---------------------------------------------------------------- - ! (Set adjflx to 1. to use constant Earth/Sun distance of 1 AU). - - ! 1) Provided by GCM via ADJES (from MAPL sun factor DIST ~ 1/r^2) - adjflx = adjes - - ! 2) Calc Earth/Sun dist adj from DYOFYR, the cumulative day of year - ! (Turned off but DYOFYR used by MCICA exponential cloud overlap). - - ! if (dyofyr .gt. 0) then - ! adjflx = earth_sun(dyofyr) - ! endif - - ! -------------------------------------------------------- - ! Apply selected solar variability option based on ISOLVAR - ! and input solar constant SCON. - ! -------------------------------------------------------- - - if (scon == 0.) then - - ! For scon = 0, use internally defined solar constant, which is - ! 1368.22 Wm-2 (for ISOLVAR=-1) and 1360.85 Wm-2 (For ISOLVAR=0,3; - ! Options ISOLVAR=1,2 model sol cyc varations from 1360.85 Wm-2). - - if (isolvar .eq. -1) then - - ! Constant sun (Kurucz) - ! Apply optional scaling by band if bndscl present. - - solvar(jpb1:jpb2) = 1. - if (present(bndscl)) solvar(jpb1:jpb2) = bndscl(:) - - elseif (isolvar .eq. 0) then - - ! Constant sun (NRLSSI2 model) - ! Quiet sun, facular, and sunspot terms averaged over AvgCyc11. - - svar_f = 1. - svar_s = 1. - svar_i = 1. - - elseif (isolvar .eq. 1) then - - ! Apply NRLSSI2 solar irradiance model at a specified solcycfr - ! within AvgCyc11, with the additional amplitude scalings in - ! indsolvar_scl. - - ! interpolate mean solar cycle to solcycfr - call interpolate_indices (solcycfr, Mg_now, SB_now) - - ! Apply linear index-to-flux-multiplier-svar relationship - ! with the additional indsolvar_scl scaling. - svar_f = indsolvar_scl(1) * (Mg_now - Mg_0) / (Mg_avg - Mg_0) - svar_s = indsolvar_scl(2) * (SB_now - SB_0) / (SB_avg - SB_0) - svar_i = 1. - - elseif (isolvar .eq. 2) then - - ! Specified solar cycle with solar variability based on NRLSSI2 model. - ! Facular and sunspot index terms input directly. - - svar_f = (indsolvar_ndx(1) - Mg_0) / (Mg_avg - Mg_0) - svar_s = (indsolvar_ndx(2) - SB_0) / (SB_avg - SB_0) - svar_i = 1. - - elseif (isolvar .eq. 3) then - - ! Constant sun (NRLSSI2 model). - ! Averaged facular, sunspot and quiet sun terms from AvgCyc11. - ! Apply optional scaling by band if bndscl present. - - solvar(jpb1:jpb2) = 1. - if (present(bndscl)) solvar(jpb1:jpb2) = bndscl(:) - do ibnd = jpb1,jpb2 - svar_f_bnd(ibnd) = solvar(ibnd) - svar_s_bnd(ibnd) = solvar(ibnd) - svar_i_bnd(ibnd) = solvar(ibnd) - enddo - - else - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'bad isolvar value:', isolvar - error stop 'RRTMG_SW: invalid isolvar' - endif - - elseif (scon > 0.) then - - ! Scale from internal to externally specified SCON. - - if (isolvar .eq. -1) then - - ! Constant sun (Kurucz) - ! Scale from internal to requested solar constant. - ! Apply optional scaling by band if bndscl present. - - solvar(jpb1:jpb2) = scon / rrsw_scon - if (present(bndscl)) & - solvar(jpb1:jpb2) = solvar(jpb1:jpb2) * bndscl(:) - - elseif (isolvar .eq. 0) then - - ! Constant sun (NRLSSI2 model) - ! Quiet sun, facular, and sunspot terms averaged over AvgCyc11. - ! Scale from internal to requested solar constant. - - scon_int = Fint + Sint + Iint - svar_r = scon / scon_int - svar_f = svar_r - svar_s = svar_r - svar_i = svar_r - - elseif (isolvar .eq. 1) then - - ! Apply NRLSSI2 solar irradiance model at a specified solcycfr - ! within AvgCyc11, with the additional amplitude scalings in - ! indsolvar_scl. Scale from the internal to the requested solar - ! constant, which is treated as a required *cycle average*. - - ! interpolate mean solar cycle to solcycfr - call interpolate_indices (solcycfr, Mg_now, SB_now) - - ! Apply linear index-to-flux-multiplier-svar relationship - ! with the additional indsolvar_scl scaling. Select a constant - ! svar_i such that chosen scon is the . - ! scon = svar_i * Iint + * Fint + * Sint > - ! => svar_i = [scon - ( * Fint + * Sint)] / Iint - - svar_f = indsolvar_scl(1) * (Mg_now - Mg_0) / (Mg_avg - Mg_0) - svar_s = indsolvar_scl(2) * (SB_now - SB_0) / (SB_avg - SB_0) - svar_i = (scon - (isolvar_1_mean_svar_f * Fint + & - isolvar_1_mean_svar_s * Sint)) / Iint - - elseif (isolvar .eq. 2) then - - ! Specified solar cycle with solar variability based on NRLSSI2 model. - ! Facular and sunspot index terms input directly. Scale from internal - ! to requested solar constant by setting svar_i so that - ! svar_i * Iint + svar_f * Fint + svar_s * Sint = scon. - ! So, scon is honored at EACH time, because it too is assumed to be - ! specified from time-varying data. - - svar_f = (indsolvar_ndx(1) - Mg_0) / (Mg_avg - Mg_0) - svar_s = (indsolvar_ndx(2) - SB_0) / (SB_avg - SB_0) - svar_i = (scon - (svar_f * Fint + svar_s * Sint)) / Iint - - elseif (isolvar .eq. 3) then - - ! Constant sun (NRLSSI2 model). - ! Averaged facular, sunspot and quiet sun terms from AvgCyc11. - ! Scale from internal to requested solar constant. - ! Apply optional scaling by band if bndscl present. - - scon_int = Fint + Sint + Iint - solvar(jpb1:jpb2) = scon / scon_int - if (present(bndscl)) solvar(jpb1:jpb2) = solvar(jpb1:jpb2) * bndscl(:) - do ibnd = jpb1,jpb2 - svar_f_bnd(ibnd) = solvar(ibnd) - svar_s_bnd(ibnd) = solvar(ibnd) - svar_i_bnd(ibnd) = solvar(ibnd) - enddo - - else - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'bad isolvar value:', isolvar - error stop 'RRTMG_SW: invalid isolvar' - endif - - else - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - error stop 'RRTMG_SW: scon cannot be negative!' - endif - - ! Earth-Sun distance adjustment - adjflux(jpb1:jpb2) = adjflx - - ! Combine with solar constant scaling for Kurucz - ! (done separately via svar_ for NRLSSI2) - if (isolvar < 0) then - adjflux(jpb1:jpb2) = adjflux(jpb1:jpb2) * solvar(jpb1:jpb2) - endif - - ! Build profile separation based on cloudiness, i.e., count and index - ! clear/cloudy gridcolumns. The separation is based on whether the grid- - ! column has cloud fraction in any layer (or not). This is based on the - ! gridcolumn state, not on the later generated McICA subcolumn ensemble. - ! If all layers have zero cld fraction then so will all McICA subcolumns, - ! but the converse in not true ... can easily get a clear subcolumn for a - ! cloudy gridcolumn. So, the gicol_clr can be assumed to yield all clear - ! subcolumns, while the gicol_cld will yield both clear and cloudy sub- - ! columns. - ncol_clr = 0 - ncol_cld = 0 - do gicol = 1,gncol - if (any(gcld(gicol,:) > 0)) then - ncol_cld = ncol_cld + 1 - gicol_cld(ncol_cld) = gicol - else - ncol_clr = ncol_clr + 1 - gicol_clr(ncol_clr) = gicol - end if - end do - - ! num of length pncol partitions needed for clear/cloudy profiles - npart_clr = ceiling( real(ncol_clr) / real(pncol) ) - npart_cld = ceiling( real(ncol_cld) / real(pncol) ) - - ! "zero" aerosols if dont want them included - if (iaer /= 10) then - taua = 0. - asya = 0. - omga = 1. - end if - - ! partitioning over clear (cc=1) and cloudy (cc=2) gridcolumns - ! ------------------------------------------------------------ - - do cc = 1,2 ! outer loop over clear then cloudy gridcolumns - - if (cc == 1) then - ! clear - npart = npart_clr - col_last = ncol_clr - else - ! cloudy - npart = npart_cld - col_last = ncol_cld - end if - - ! loop over partitions - do ipart = 0,npart-1 - - ! partition dimensions - cols = ipart * pncol + 1 - cole = (ipart + 1) * pncol - if (cole > col_last) cole = col_last - ncol = cole - cols + 1 - - ! copy inputs into partition - ! -------------------------- - - if (cc == 1) then - - ! ----------------- - ! Clear gridcolumns - ! ----------------- - - do icol = 1,ncol - gicol = gicol_clr(icol + cols - 1) - - ! assign surface albedos to bands - - ! near IR bands 14=nbndsw and 1-8 - ! 820-12850 cm-1, 0.778-12.2 um - do ibnd=1,8 - albdir(ibnd,icol) = galdir(gicol) - albdif(ibnd,icol) = galdif(gicol) - enddo - albdir(nbndsw,icol) = galdir(gicol) - albdif(nbndsw,icol) = galdif(gicol) - - ! UV/Vis bands 10-13 - ! 16000-50000 cm-1, 0.200-0.625 um - do ibnd=10,13 - albdir(ibnd,icol) = gasdir(gicol) - albdif(ibnd,icol) = gasdif(gicol) - enddo - - ! Transition band 9 - ! 12850-16000 cm-1, 0.625-0.778 um - ! Take average, dmlee - albdir(9,icol) = (gasdir(gicol)+galdir(gicol))/2. - albdif(9,icol) = (gasdif(gicol)+galdif(gicol))/2. - - enddo - - ! copy in partition (general) - do icol = 1,ncol - gicol = gicol_clr(icol + cols - 1) - - play(:,icol) = gplay(gicol,1:nlay) - plev(:,icol) = gplev(gicol,1:nlay+1) - tlay(:,icol) = gtlay(gicol,1:nlay) - coszen(icol) = gcoszen(gicol) - - enddo - - ! copy in partition (aerosols) - if (iaer == 10) then - do icol = 1,ncol - gicol = gicol_clr(icol + cols - 1) - do ibnd = 1,nbndsw - taua(1:nlay,ibnd,icol) = gtauaer(gicol,1:nlay,ibnd) - asya(1:nlay,ibnd,icol) = gasmaer(gicol,1:nlay,ibnd) - omga(1:nlay,ibnd,icol) = gssaaer(gicol,1:nlay,ibnd) - enddo - enddo - endif - - ! copy in partition (gases) - do icol = 1,ncol - gicol = gicol_clr(icol + cols - 1) - colh2o(:,icol) = gh2ovmr(gicol,1:nlay) - colco2(:,icol) = gco2vmr(gicol,1:nlay) - colo3 (:,icol) = go3vmr (gicol,1:nlay) - colch4(:,icol) = gch4vmr(gicol,1:nlay) - colo2 (:,icol) = go2vmr (gicol,1:nlay) - end do - - else - - ! ------------------ - ! Cloudy gridcolumns - ! ------------------ - - do icol = 1,ncol - gicol = gicol_cld(icol + cols - 1) - - ! assign surface albedos to bands - - ! near IR bands 14=nbndsw and 1-8 - ! 820-12850 cm-1, 0.778-12.2 um - do ibnd=1,8 - albdir(ibnd,icol) = galdir(gicol) - albdif(ibnd,icol) = galdif(gicol) - enddo - albdir(nbndsw,icol) = galdir(gicol) - albdif(nbndsw,icol) = galdif(gicol) - - ! UV/Vis bands 10-13 - ! 16000-50000 cm-1, 0.200-0.625 um - do ibnd=10,13 - albdir(ibnd,icol) = gasdir(gicol) - albdif(ibnd,icol) = gasdif(gicol) - enddo - - ! Transition band 9 - ! 12850-16000 cm-1, 0.625-0.778 um - ! Take average, dmlee - albdir(9,icol) = (gasdir(gicol)+galdir(gicol))/2. - albdif(9,icol) = (gasdif(gicol)+galdif(gicol))/2. - - enddo - - ! copy in partition (general and cloud physical props) - do icol = 1,ncol - gicol = gicol_cld(icol + cols - 1) - - play(:,icol) = gplay(gicol,1:nlay) - plev(:,icol) = gplev(gicol,1:nlay+1) - tlay(:,icol) = gtlay(gicol,1:nlay) - cld (:,icol) = gcld (gicol,1:nlay) - ciwp(:,icol) = gciwp(gicol,1:nlay) - clwp(:,icol) = gclwp(gicol,1:nlay) - rei (:,icol) = grei (gicol,1:nlay) - rel (:,icol) = grel (gicol,1:nlay) - zm (:,icol) = gzm (gicol,1:nlay) - alat (icol) = galat (gicol) - coszen(icol) = gcoszen(gicol) - enddo - - ! copy in partition (aerosols) - if (iaer == 10) then - do icol = 1,ncol - gicol = gicol_cld(icol + cols - 1) - do ibnd = 1,nbndsw - taua(1:nlay,ibnd,icol) = gtauaer(gicol,1:nlay,ibnd) - asya(1:nlay,ibnd,icol) = gasmaer(gicol,1:nlay,ibnd) - omga(1:nlay,ibnd,icol) = gssaaer(gicol,1:nlay,ibnd) - end do - end do - endif - - ! copy in partition (gases) - do icol = 1,ncol - gicol = gicol_cld(icol + cols - 1) - colh2o(:,icol) = gh2ovmr(gicol,1:nlay) - colco2(:,icol) = gco2vmr(gicol,1:nlay) - colo3 (:,icol) = go3vmr (gicol,1:nlay) - colch4(:,icol) = gch4vmr(gicol,1:nlay) - colo2 (:,icol) = go2vmr (gicol,1:nlay) - enddo - - end if ! clear or cloudy gridcolumns - - ! limit tiny cosine zenith angles - do icol = 1,ncol - cossza(icol) = max(zepzen,coszen(icol)) - enddo - - ! evaluate dry air molecules/cm^2 - ! (see details in rrtmg_lw_rad()) - do icol = 1,ncol - do ilay = 1,nlay - coldry(ilay,icol) = (plev(ilay,icol)-plev(ilay+1,icol)) * 1.e3 * avogad / & - (1.e2 * grav * ((1.-colh2o(ilay,icol)) * amd + colh2o(ilay,icol) * amw) * & - (1. + colh2o(ilay,icol))) - enddo - enddo - - ! gases also to molecules/cm^2 - do icol = 1,ncol - do ilay = 1,nlay - colh2o(ilay,icol) = coldry(ilay,icol) * colh2o(ilay,icol) - colco2(ilay,icol) = coldry(ilay,icol) * colco2(ilay,icol) - colo3 (ilay,icol) = coldry(ilay,icol) * colo3 (ilay,icol) - colch4(ilay,icol) = coldry(ilay,icol) * colch4(ilay,icol) - colo2 (ilay,icol) = coldry(ilay,icol) * colo2 (ilay,icol) - end do - end do - - ! cloudy gridcolumns - if (cc == 2) then - - ! McICA subcolumn generation - call generate_stochastic_clouds( & - pncol, ncol, ngptsw, nlay, & - zm, alat, dyofyr, & - play, cld, ciwp, clwp, 1.e-20, & - cldymcl, ciwpmcl, clwpmcl, & - seed_order=[4,3,2,1]) - - ! for super-layer cloud fractions - call clearCounts_threeBand( & - pncol, ncol, ngptsw, nlay, cloudLM, cloudMH, cldymcl, & - p_clearCounts) - - ! cloud optical property generation - call cldprmc_sw( & - pncol, ncol, nlay, iceflgsw, liqflgsw, & - cldymcl, ciwpmcl, clwpmcl, rei, rel, & - taormc, taucmc, ssacmc, asmcmc) - end if - - ! Calculate information needed by the radiative transfer routine - ! that is specific to this atmosphere, especially some of the - ! coefficients and indices needed to compute the optical depths - ! by interpolating data from stored reference atmospheres. - - call setcoef_sw( & - pncol, ncol, nlay, play, tlay, coldry, & - colch4, colco2, colh2o, colmol, colo2, colo3, & - laytrop, jp, jt, jt1, fac00, fac01, fac10, fac11, & - selffac, selffrac, indself, forfac, forfrac, indfor) - - ! compute sw radiative fluxes - call spcvmc_sw( & - cc, pncol, ncol, nlay, & - albdif, albdir, & - cldymcl, taucmc, asmcmc, ssacmc, taormc, & - taua, asya, omga, cossza, adjflux, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - laytrop, jp, jt, jt1, & - colch4, colco2, colh2o, colmol, colo2, colo3, & - fac00, fac01, fac10, fac11, & - cloudLM, cloudMH, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - zbbfd, zbbfu, zbbcd, zbbcu, zuvfd, zuvcd, znifd, znicd, & - zbbfddir, zbbcddir, zuvfddir, zuvcddir, znifddir, znicddir,& - znirr, znirf, zparr, zparf, zuvrr, zuvrf, & - ztautp, ztauhp, ztaump, ztaulp) - - ! Copy out up and down, clear and total sky fluxes to output arrays. - ! Vertical indexing goes from bottom to top; reverse here for GCM if necessary. - - if (cc == 1) then ! clear gridcolumns - - do icol = 1,ncol - gicol = gicol_clr(icol + cols - 1) - - ! super-layer clear counts - do n = 1,4 - clearCounts (gicol,n) = ngptsw - end do - - ! up and down fluxes - do ilev = 1,nlay+1 - swuflxc(gicol,ilev) = zbbcu(ilev,icol) - swdflxc(gicol,ilev) = zbbcd(ilev,icol) - swuflx (gicol,ilev) = zbbfu(ilev,icol) - swdflx (gicol,ilev) = zbbfd(ilev,icol) - enddo - - ! super-layer optical thicknesses - tautp(gicol) = 0. - tauhp(gicol) = 0. - taump(gicol) = 0. - taulp(gicol) = 0. - - enddo - - ! surface broadband fluxes - do icol = 1,ncol - gicol = gicol_clr(icol + cols - 1) - nirr(gicol) = znirr(icol) - nirf(gicol) = znirf(icol) - znirr(icol) - parr(gicol) = zparr(icol) - parf(gicol) = zparf(icol) - zparr(icol) - uvrr(gicol) = zuvrr(icol) - uvrf(gicol) = zuvrf(icol) - zuvrr(icol) - end do - - else ! cloudy columns - - do icol = 1,ncol - gicol = gicol_cld(icol + cols - 1) - do n = 1,4 - clearCounts (gicol,n) = p_clearCounts(n,icol) - end do - do ilev = 1,nlay+1 - swuflxc(gicol,ilev) = zbbcu(ilev,icol) - swdflxc(gicol,ilev) = zbbcd(ilev,icol) - swuflx (gicol,ilev) = zbbfu(ilev,icol) - swdflx (gicol,ilev) = zbbfd(ilev,icol) - enddo - tautp(gicol) = ztautp(icol) - tauhp(gicol) = ztauhp(icol) - taump(gicol) = ztaump(icol) - taulp(gicol) = ztaulp(icol) - enddo - - do icol = 1,ncol - gicol = gicol_cld(icol + cols - 1) - nirr(gicol) = znirr(icol) - nirf(gicol) = znirf(icol) - znirr(icol) - parr(gicol) = zparr(icol) - parf(gicol) = zparf(icol) - zparr(icol) - uvrr(gicol) = zuvrr(icol) - uvrf(gicol) = zuvrf(icol) - zuvrr(icol) - enddo - - endif ! clear/cloudy - - enddo ! over partitions - - enddo ! outer loop (cc) over clear then cloudy columns - - ! If the user requests 'normalized' fluxes, divide - ! the fluxes by the solar constant times coszen - ! MAT This requires only lit points passed in - - if (normFlx == 1) then - - swdflx_at_top(:) = max(swdflx(:,nlay+1),1e-7) - - do ilev = 1,nlay+1 - swuflxc(:,ilev) = swuflxc(:,ilev) / swdflx_at_top(:) - swdflxc(:,ilev) = swdflxc(:,ilev) / swdflx_at_top(:) - swuflx (:,ilev) = swuflx (:,ilev) / swdflx_at_top(:) - swdflx (:,ilev) = swdflx (:,ilev) / swdflx_at_top(:) - enddo - - nirr(:) = nirr(:) / swdflx_at_top(:) - nirf(:) = nirf(:) / swdflx_at_top(:) - parr(:) = parr(:) / swdflx_at_top(:) - parf(:) = parf(:) / swdflx_at_top(:) - uvrr(:) = uvrr(:) / swdflx_at_top(:) - uvrf(:) = uvrf(:) / swdflx_at_top(:) - - endif - - end subroutine rrtmg_sw_sub - - - !----------------------------------------------------------------------- - real function earth_sun(idn) - !----------------------------------------------------------------------- - ! - ! Purpose: Function to calculate the correction factor of Earth's orbit - ! for current day of the year - ! - ! idn : Day of the year - ! earth_sun : square of the ratio of mean to actual Earth-Sun distance - !----------------------------------------------------------------------- - - use rrsw_con, only : pi - - integer, intent(in) :: idn - - real :: gamma - - gamma = 2. * pi * (idn-1)/365. - - ! Use Iqbal's equation 1.2.1 - - earth_sun = 1.000110 + .034221 * cos(gamma) + .001289 * sin(gamma) + & - .000719 * cos(2. *gamma) + .000077 * sin(2. *gamma) - - end function earth_sun - -end module rrtmg_sw_rad - - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_setcoef.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_setcoef.F90 deleted file mode 100644 index d21c217c6..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_setcoef.F90 +++ /dev/null @@ -1,302 +0,0 @@ -module rrtmg_sw_setcoef - -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! ------- Modules ------- - - use rrsw_ref, only : pref, preflog, tref - use iso_fortran_env, only : error_unit - - implicit none - -contains - - !---------------------------------------------------------------------------- - subroutine setcoef_sw( & - pncol, ncol, nlay, pavel, tavel, coldry, & - colch4, colco2, colh2o, colmol, colo2, colo3, & - laytrop, jp, jt, jt1, fac00, fac01, fac10, fac11, & - selffac, selffrac, indself, forfac, forfrac, indfor) - !---------------------------------------------------------------------------- - ! - ! Purpose: For a given atmosphere, calculate the indices and - ! fractions related to the pressure and temperature interpolations. - - ! Modifications: - ! Original: J. Delamere, AER, Inc. (version 2.5, 02/04/01) - ! Revised: Rewritten and adapted to ECMWF F90, JJMorcrette 030224 - ! Revised: For uniform rrtmg formatting, MJIacono, Jul 2006 - ! - !---------------------------------------------------------------------------- - - ! ----- Input ----- - - integer, intent(in) :: pncol ! dimensioned num of gridcols - integer, intent(in) :: ncol ! actual number of gridcols - integer, intent(in) :: nlay ! number of layers - - real, intent(in) :: pavel (nlay,pncol) ! layer pressures (mb) - real, intent(in) :: tavel (nlay,pncol) ! layer temperatures (K) - real, intent(in) :: coldry (nlay,pncol) ! dry air column density (mol/cm2) - - ! ----- Input and Output ----- - ! (molecular amounts, in [mol/cm-2], scaled on output) - real, intent(inout) :: colh2o (nlay,pncol) ! column amount (h2o) - real, intent(inout) :: colco2 (nlay,pncol) ! column amount (co2) - real, intent(inout) :: colo3 (nlay,pncol) ! column amount (o3) - real, intent(inout) :: colch4 (nlay,pncol) ! column amount (ch4) - real, intent(inout) :: colo2 (nlay,pncol) ! column amount (o2) - real, intent(inout) :: colmol (nlay,pncol) ! for Rayleight scatt - - ! ----- Output ----- - - integer, intent(out) :: laytrop (pncol) ! tropopause layer index - integer, intent(out) :: jp (nlay,pncol) - integer, intent(out) :: jt (nlay,pncol) - integer, intent(out) :: jt1 (nlay,pncol) - - ! continuum interpolation coefficients - integer, intent(out) :: indself (nlay,pncol) - integer, intent(out) :: indfor (nlay,pncol) - real, intent(out) :: selffac (nlay,pncol) - real, intent(out) :: selffrac (nlay,pncol) - real, intent(out) :: forfac (nlay,pncol) - real, intent(out) :: forfrac (nlay,pncol) - - ! pressure and temperature interpolation coefficients - real, intent(out), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - - ! ----- Local ----- - - integer :: icol, lay, jp1 - real :: plog, fp, ft, ft1, water, scalefac, factor, compfp - - ! Initializations - real, parameter :: stpfac = 296. / 1013. - - ! Locate tropopause: laytrop in [1,nlay-1] required. - ! Layer 1 is lowest, layer nlay is at top of model atmos. - ! Note: plog(laytrop) >= 4.56, but plog(laytrop+1) < 4.56. - laytrop = 0 - do icol = 1,ncol - do lay = 1,nlay - plog = log(pavel(lay,icol)) - if (plog >= 4.56) laytrop(icol) = laytrop(icol) + 1 - end do - if (laytrop(icol) == 0 .or. laytrop(icol) == nlay) then - write(error_unit,*) 'file:', __FILE__, ', line:', __LINE__ - write(error_unit,*) 'tropopause not found at icol:', icol - endif - end do - - do icol = 1, ncol - do lay = 1, nlay - - ! Find the two reference pressures on either side of the - ! layer pressure. Store them in JP and JP1. Store in FP the - ! fraction of the difference (in ln(pressure)) between these - ! two values that the layer pressure lies. Notes: - ! :: jp is an index into pref and preflog. - ! :: jp is monotonically non-increasing function of pressure. - ! Since pressure will decrease with increasing lay (here - ! lay 1 is bottom), jp is a monotonically non-decreasing - ! function of lay. *In non-hydrostatic simulations with - ! very high resolution this potentially might be - ! violated in dynamic regions of strong downwards - ! accelereation?* - ! :: jp limited to [1,58] even though pref and preflog have - ! dimension (59). So jp+1 is always a valid index into - ! these arrays. - ! :: jp=13 has preflog=4.56 (pref~95.6hPa) - ! :: preflog(jp) >= plog > preflog(jp+1) - ! :: fp in [0,1) for this range (0 at plog=preflog(jp)). - - plog = log(pavel(lay,icol)) - jp(lay,icol) = int(36. - 5*(plog+0.04 )) - if (jp(lay,icol) < 1) then - jp(lay,icol) = 1 - elseif (jp(lay,icol) > 58) then - jp(lay,icol) = 58 - endif - jp1 = jp(lay,icol) + 1 - fp = 5. * (preflog(jp(lay,icol)) - plog) - - ! Determine, for each reference pressure (JP and JP1), which - ! reference temperature (these are different for each - ! reference pressure) is nearest the layer temperature but does - ! not exceed it. Store these indices in JT and JT1, resp. - ! Store in FT (resp. FT1) the fraction of the way between JT - ! (JT1) and the next highest reference temperature that the - ! layer temperature falls. Notes: - ! :: jt,jt1 in [1,4], each index being a 15K increment, with - ! 1 and 4 being endpoint catch-alls. E.g., for jp: - ! jt=1 => tavel = tref(jp) + (-inf,-15); - ! jt=2 => tavel = tref(jp) + [ -15, 0); - ! jt=3 => tavel = tref(jp) + [ 0, 15). - ! jt=4 => tavel = tref(jp) + [ 15,inf); - ! These are the reference temperatures (diff for each jp) - ! discussed in the paragraph above. - - jt(lay,icol) = int(3. + (tavel(lay,icol)-tref(jp(lay,icol)))/15.) - if (jt(lay,icol) < 1) then - jt(lay,icol) = 1 - elseif (jt(lay,icol) > 4) then - jt(lay,icol) = 4 - endif - ft = ((tavel(lay,icol)-tref(jp(lay,icol)))/15.) - float(jt(lay,icol)-3) - jt1(lay,icol) = int(3. + (tavel(lay,icol)-tref(jp1))/15.) - if (jt1(lay,icol) < 1) then - jt1(lay,icol) = 1 - elseif (jt1(lay,icol) > 4) then - jt1(lay,icol) = 4 - endif - ft1 = ((tavel(lay,icol)-tref(jp1))/15.) - float(jt1(lay,icol)-3) - - water = colh2o(lay,icol) / coldry(lay,icol) - scalefac = pavel(lay,icol) * stpfac / tavel(lay,icol) - - ! If the pressure is less than ~100mb, perform a different - ! set of species interpolations. - - if (plog <= 4.56 ) then - - forfac(lay,icol) = scalefac / (1.+water) - factor = (tavel(lay,icol)-188.) / 36. - indfor(lay,icol) = 3 - forfrac(lay,icol) = factor - 1. - - ! Calculate needed column amounts. - - colh2o(lay,icol) = 1.e-20 * colh2o(lay,icol) - colco2(lay,icol) = 1.e-20 * colco2(lay,icol) - colo3 (lay,icol) = 1.e-20 * colo3 (lay,icol) - colch4(lay,icol) = 1.e-20 * colch4(lay,icol) - colo2 (lay,icol) = 1.e-20 * colo2 (lay,icol) - colmol(lay,icol) = 1.e-20 * coldry(lay,icol) + colh2o(lay,icol) - if (colco2(lay,icol) == 0.) colco2(lay,icol) = 1.e-32 * coldry(lay,icol) - if (colch4(lay,icol) == 0.) colch4(lay,icol) = 1.e-32 * coldry(lay,icol) - if (colo2 (lay,icol) == 0.) colo2 (lay,icol) = 1.e-32 * coldry(lay,icol) - - selffac(lay,icol) = 0. - selffrac(lay,icol) = 0. - indself(lay,icol) = 0 - - else - - ! Set up factors needed to separately include the water vapor - ! foreign-continuum in the calculation of absorption coefficient. - - forfac(lay,icol) = scalefac / (1.+water) - factor = (332.-tavel(lay,icol))/36. - indfor(lay,icol) = min(2,max(1,int(factor))) - forfrac(lay,icol) = factor - float(indfor(lay,icol)) - - ! Set up factors needed to separately include the water vapor - ! self-continuum in the calculation of absorption coefficient. - - selffac(lay,icol) = water * forfac(lay,icol) - factor = (tavel(lay,icol)-188.)/7.2 - indself(lay,icol) = min(9,max(1,int(factor)-7)) - selffrac(lay,icol) = factor - float(indself(lay,icol) + 7) - - ! Calculate needed column amounts. - - colh2o(lay,icol) = 1.e-20 * colh2o(lay,icol) - colco2(lay,icol) = 1.e-20 * colco2(lay,icol) - colo3 (lay,icol) = 1.e-20 * colo3 (lay,icol) - colch4(lay,icol) = 1.e-20 * colch4(lay,icol) - colo2 (lay,icol) = 1.e-20 * colo2 (lay,icol) - colmol(lay,icol) = 1.e-20 * coldry(lay,icol) + colh2o(lay,icol) - if (colco2(lay,icol) == 0.) colco2(lay,icol) = 1.e-32 * coldry(lay,icol) - if (colch4(lay,icol) == 0.) colch4(lay,icol) = 1.e-32 * coldry(lay,icol) - if (colo2 (lay,icol) == 0.) colo2 (lay,icol) = 1.e-32 * coldry(lay,icol) - - end if - - ! We have now isolated the layer ln pressure and temperature, - ! between two reference pressures and two reference temperatures - ! (for each reference pressure). We multiply the pressure - ! fraction FP with the appropriate temperature fractions to get - ! the factors that will be needed for the interpolation that yields - ! the optical depths (performed in routines TAUGBn for band n). - - compfp = 1. - fp - fac10(lay,icol) = compfp * ft - fac00(lay,icol) = compfp * (1.-ft) - fac11(lay,icol) = fp * ft1 - fac01(lay,icol) = fp * (1.-ft1) - - end do ! layer loop - end do ! column loop - - end subroutine setcoef_sw - - !*************************************************************************** - subroutine swatmref - !*************************************************************************** - - save - - ! These pressures are chosen such that the ln of the first pressure - ! has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and - ! each subsequent ln(pressure) differs from the previous one by 0.2. - - pref(:) = (/ & - 1.05363e+03 ,8.62642e+02 ,7.06272e+02 ,5.78246e+02 ,4.73428e+02 , & - 3.87610e+02 ,3.17348e+02 ,2.59823e+02 ,2.12725e+02 ,1.74164e+02 , & - 1.42594e+02 ,1.16746e+02 ,9.55835e+01 ,7.82571e+01 ,6.40715e+01 , & - 5.24573e+01 ,4.29484e+01 ,3.51632e+01 ,2.87892e+01 ,2.35706e+01 , & - 1.92980e+01 ,1.57998e+01 ,1.29358e+01 ,1.05910e+01 ,8.67114e+00 , & - 7.09933e+00 ,5.81244e+00 ,4.75882e+00 ,3.89619e+00 ,3.18993e+00 , & - 2.61170e+00 ,2.13828e+00 ,1.75067e+00 ,1.43333e+00 ,1.17351e+00 , & - 9.60789e-01 ,7.86628e-01 ,6.44036e-01 ,5.27292e-01 ,4.31710e-01 , & - 3.53455e-01 ,2.89384e-01 ,2.36928e-01 ,1.93980e-01 ,1.58817e-01 , & - 1.30029e-01 ,1.06458e-01 ,8.71608e-02 ,7.13612e-02 ,5.84256e-02 , & - 4.78349e-02 ,3.91639e-02 ,3.20647e-02 ,2.62523e-02 ,2.14936e-02 , & - 1.75975e-02 ,1.44076e-02 ,1.17959e-02 ,9.65769e-03 /) - - preflog(:) = (/ & - 6.9600e+00 , 6.7600e+00 , 6.5600e+00 , 6.3600e+00 , 6.1600e+00 , & - 5.9600e+00 , 5.7600e+00 , 5.5600e+00 , 5.3600e+00 , 5.1600e+00 , & - 4.9600e+00 , 4.7600e+00 , 4.5600e+00 , 4.3600e+00 , 4.1600e+00 , & - 3.9600e+00 , 3.7600e+00 , 3.5600e+00 , 3.3600e+00 , 3.1600e+00 , & - 2.9600e+00 , 2.7600e+00 , 2.5600e+00 , 2.3600e+00 , 2.1600e+00 , & - 1.9600e+00 , 1.7600e+00 , 1.5600e+00 , 1.3600e+00 , 1.1600e+00 , & - 9.6000e-01 , 7.6000e-01 , 5.6000e-01 , 3.6000e-01 , 1.6000e-01 , & - -4.0000e-02 ,-2.4000e-01 ,-4.4000e-01 ,-6.4000e-01 ,-8.4000e-01 , & - -1.0400e+00 ,-1.2400e+00 ,-1.4400e+00 ,-1.6400e+00 ,-1.8400e+00 , & - -2.0400e+00 ,-2.2400e+00 ,-2.4400e+00 ,-2.6400e+00 ,-2.8400e+00 , & - -3.0400e+00 ,-3.2400e+00 ,-3.4400e+00 ,-3.6400e+00 ,-3.8400e+00 , & - -4.0400e+00 ,-4.2400e+00 ,-4.4400e+00 ,-4.6400e+00 /) - - ! These are the temperatures associated with the respective - ! pressures for the MLS standard atmosphere. - - tref(:) = (/ & - 2.9420e+02 , 2.8799e+02 , 2.7894e+02 , 2.6925e+02 , 2.5983e+02 , & - 2.5017e+02 , 2.4077e+02 , 2.3179e+02 , 2.2306e+02 , 2.1578e+02 , & - 2.1570e+02 , 2.1570e+02 , 2.1570e+02 , 2.1706e+02 , 2.1858e+02 , & - 2.2018e+02 , 2.2174e+02 , 2.2328e+02 , 2.2479e+02 , 2.2655e+02 , & - 2.2834e+02 , 2.3113e+02 , 2.3401e+02 , 2.3703e+02 , 2.4022e+02 , & - 2.4371e+02 , 2.4726e+02 , 2.5085e+02 , 2.5457e+02 , 2.5832e+02 , & - 2.6216e+02 , 2.6606e+02 , 2.6999e+02 , 2.7340e+02 , 2.7536e+02 , & - 2.7568e+02 , 2.7372e+02 , 2.7163e+02 , 2.6955e+02 , 2.6593e+02 , & - 2.6211e+02 , 2.5828e+02 , 2.5360e+02 , 2.4854e+02 , 2.4348e+02 , & - 2.3809e+02 , 2.3206e+02 , 2.2603e+02 , 2.2000e+02 , 2.1435e+02 , & - 2.0887e+02 , 2.0340e+02 , 1.9792e+02 , 1.9290e+02 , 1.8809e+02 , & - 1.8329e+02 , 1.7849e+02 , 1.7394e+02 , 1.7212e+02 /) - - end subroutine swatmref - -end module rrtmg_sw_setcoef - - diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_spcvmc.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_spcvmc.F90 deleted file mode 100644 index 23df82d80..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_spcvmc.F90 +++ /dev/null @@ -1,985 +0,0 @@ -!pmn: table lookup creates cache issues cf cost of fn evaluation -!pmn: and must have at some point been removed ... consider -!pmn: removing LW table lookup as well. - -module rrtmg_sw_spcvmc - -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - - ! ------- Modules ------- - - use parrrsw, only : nbndsw, ngptsw, jpband - use rrsw_tbl, only : od_lo - use rrsw_wvn, only : ngb - use rrtmg_sw_taumol, only: taumol_sw - - implicit none - -contains - - ! --------------------------------------------------------------------------- - subroutine spcvmc_sw ( & - cc, pncol, ncol, nlay, & - palbd, palbp, & - pcldymc, ptaucmc, pasycmc, pomgcmc, ptaormc, & - ptaua, pasya, pomga, prmu0, adjflux, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - laytrop, jp, jt, jt1, & - colch4, colco2, colh2o, colmol, colo2, colo3, & - fac00, fac01, fac10, fac11, & - cloudLM, cloudMH, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - pbbfd, pbbfu, pbbcd, pbbcu, puvfd, puvcd, pnifd, pnicd, & - pbbfddir, pbbcddir, puvfddir, puvcddir, pnifddir, pnicddir, & - znirr, znirf, zparr, zparf, zuvrr, zuvrf, & - ztautp, ztauhp, ztaump, ztaulp) - ! --------------------------------------------------------------------------- - ! - ! Purpose: Contains spectral loop to compute the shortwave radiative fluxes, - ! using the two-stream method of H. Barker and McICA, the Monte-Carlo - ! Independent Column Approximation, for the representation of - ! sub-grid cloud variability (i.e. cloud overlap). - ! - ! Interface: *spcvmc_sw* is called from *rrtmg_sw.F90* or rrtmg_sw.1col.F90* - ! - ! Method: - ! Adapted from two-stream model of H. Barker; - ! Two-stream model options (selected with kmodts in rrtmg_sw_reftra.F90): - ! 1: Eddington, 2: PIFM, Zdunkowski et al., 3: discret ordinates - ! - ! Modifications: - ! - ! Original: H. Barker - ! Revision: Merge with RRTMG_SW: J.-J.Morcrette, ECMWF, Feb 2003 - ! Revision: Add adjustment for Earth/Sun distance : MJIacono, AER, Oct 2003 - ! Revision: Bug fix for use of PALBP and PALBD: MJIacono, AER, Nov 2003 - ! Revision: Bug fix to apply delta scaling to clear sky: AER, Dec 2004 - ! Revision: Code modified so that delta scaling is not done in cloudy profiles - ! if routine cldprop is used; delta scaling can be applied by swithcing - ! code below if cldprop is not used to get cloud properties. - ! AER, Jan 2005 - ! Revision: Modified to use McICA: MJIacono, AER, Nov 2005 - ! Revision: Uniform formatting for RRTMG: MJIacono, AER, Jul 2006 - ! Revision: Use exponential lookup table for transmittance: MJIacono, AER, - ! Aug 2007 - ! - ! ------------------------------------------------------------------ - - ! ------- Input ------- - - integer, intent(in) :: pncol, ncol, cc - integer, intent(in) :: nlay - integer, intent(in) :: laytrop (pncol) - - integer, intent(in) :: jp (nlay,pncol) - integer, intent(in) :: jt (nlay,pncol) - integer, intent(in) :: jt1 (nlay,pncol) - - real, intent(in) :: adjflux(jpband) ! Earth/Sun distance adjustment - - ! Solar variability - integer, intent(in) :: isolvar ! Flag for solar variability method - real, intent(in) :: svar_f ! Solar variability facular multiplier - real, intent(in) :: svar_s ! Solar variability sunspot multiplier - real, intent(in) :: svar_i ! Solar variability baseline irradiance multiplier - real, intent(in) :: svar_f_bnd (jpband) ! Solar variability facular multiplier (by band) - real, intent(in) :: svar_s_bnd (jpband) ! Solar variability sunspot multiplier (by band) - real, intent(in) :: svar_i_bnd (jpband) ! Solar variability baseline irradiance multiplier (by band) - - real, intent(in) :: palbd (nbndsw,pncol) ! surface albedo (diffuse) - real, intent(in) :: palbp (nbndsw,pncol) ! surface albedo (direct) - real, intent(in) :: prmu0 (pncol) ! cosine of solar zenith angle - - ! McICA cloud presence and optical properties: - ! These are only used, and therefore only need to be defined, for cloudy gridcolumns - ! (and hence potentially cloudy subcolumns) (cc==2) not for clear gridcolumns (cc==1) - logical, intent(in) :: pcldymc (nlay,ngptsw,pncol) ! cloudy or not? [mcica] - real, intent(in) :: ptaucmc (nlay,ngptsw,pncol) ! cloud optical depth [mcica] - real, intent(in) :: pasycmc (nlay,ngptsw,pncol) ! cloud asymmetry parameter [mcica] - real, intent(in) :: pomgcmc (nlay,ngptsw,pncol) ! cloud single scattering albedo [mcica] - real, intent(in) :: ptaormc (nlay,ngptsw,pncol) ! cloud optical depth, non-delta scaled [mcica] - - real, intent(in) :: ptaua (nlay,nbndsw,pncol) ! aerosol optical depth - real, intent(in) :: pasya (nlay,nbndsw,pncol) ! aerosol asymmetry parameter - real, intent(in) :: pomga (nlay,nbndsw,pncol) ! aerosol single scattering albedo - - real, intent(in) :: colh2o (nlay,pncol) - real, intent(in) :: colco2 (nlay,pncol) - real, intent(in) :: colch4 (nlay,pncol) - real, intent(in) :: colo3 (nlay,pncol) - real, intent(in) :: colo2 (nlay,pncol) - real, intent(in) :: colmol (nlay,pncol) - - ! continuum interpolation coefficients - integer, intent(in) :: indself (nlay,pncol) - integer, intent(in) :: indfor (nlay,pncol) - real, intent(in) :: selffac (nlay,pncol) - real, intent(in) :: selffrac (nlay,pncol) - real, intent(in) :: forfac (nlay,pncol) - real, intent(in) :: forfrac (nlay,pncol) - - ! pressure and temperature interpolation coefficients - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - - ! pressure super-layer interface levels for optical thicknesses - integer, intent(in) :: cloudLM ! Low-mid - integer, intent(in) :: cloudMH ! Mid-high - - ! ------- Output ------- - - real, intent(out) :: pbbcd (nlay+1,pncol) - real, intent(out) :: pbbcu (nlay+1,pncol) - real, intent(out) :: pbbfd (nlay+1,pncol) - real, intent(out) :: pbbfu (nlay+1,pncol) - real, intent(out) :: pbbfddir (nlay+1,pncol) - real, intent(out) :: pbbcddir (nlay+1,pncol) - - real, intent(out) :: puvcd (nlay+1,pncol) - real, intent(out) :: puvfd (nlay+1,pncol) - real, intent(out) :: puvcddir (nlay+1,pncol) - real, intent(out) :: puvfddir (nlay+1,pncol) - - real, intent(out) :: pnicd (nlay+1,pncol) - real, intent(out) :: pnifd (nlay+1,pncol) - real, intent(out) :: pnicddir (nlay+1,pncol) - real, intent(out) :: pnifddir (nlay+1,pncol) - - ! surface band fluxes (direct and TOTAL) - real, intent(out), dimension(pncol) :: & - znirr, znirf, zparr, zparf, zuvrr, zuvrf - - ! in-cloud PAR optical thicknesses - real, intent(out), dimension (pncol) :: & - ztautp, ztauhp, ztaump, ztaulp - - ! ------- Local ------- - - integer :: icol - integer :: jk, ikl - integer :: iw, jb, ibm - - real :: zf, zwf, zincflx, wgt - real :: stautp, stauhp, staump, staulp - real :: wtautp, wtauhp, wtaump, wtaulp - - real :: zgco (nlay,ngptsw,pncol) - real :: zomco (nlay,ngptsw,pncol) - real :: ztauo (nlay,ngptsw,pncol) - - real :: zdbt (nlay, ngptsw,pncol) - real :: ztdbt (nlay+1,ngptsw,pncol) - - real :: zfd (nlay+1,ngptsw,pncol) - real :: zfu (nlay+1,ngptsw,pncol) - - real :: zref (nlay+1,ngptsw,pncol) ! direct beam reflectivity - real :: zrefd (nlay+1,ngptsw,pncol) ! diffuse reflectivity - real :: ztra (nlay+1,ngptsw,pncol) ! direct beam transmissivity - real :: ztrad (nlay+1,ngptsw,pncol) ! diffuse transmissivity - - real :: ztaur (nlay,ngptsw,pncol) - real :: ztaug (nlay,ngptsw,pncol) - - real :: zsflxzen (ngptsw,pncol) - real :: ssi (ngptsw,pncol) - - ! ------------------------------------------------------------------ - - ! zero output accumulators - pbbcd = 0. - pbbcu = 0. - pbbfd = 0. - pbbfu = 0. - pbbcddir = 0. - pbbfddir = 0. - puvcd = 0. - puvfd = 0. - puvcddir = 0. - puvfddir = 0. - pnicd = 0. - pnifd = 0. - pnicddir = 0. - pnifddir = 0. - znirr = 0. - znirf = 0. - zparr = 0. - zparf = 0. - zuvrr = 0. - zuvrf = 0. - - ! Calculate the optical depths for gaseous absorption and Rayleigh scattering - call taumol_sw( & - pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, fac00, fac01, fac10, fac11, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - isolvar, svar_f, svar_s, svar_i, svar_f_bnd, svar_s_bnd, svar_i_bnd, & - ssi, zsflxzen, ztaug, ztaur) - - ! Set fixed boundary values. - ! The sfc (jk=nlay+1) zref[d] & ztra[d] never change from these. - ! The TOA (jk=1) ztdbt likewise never change. - do icol = 1,ncol - do iw = 1,ngptsw - jb = ngb(iw) ! SW band: jb = 16:29 - ibm = jb-15 ! => ibm = 1:14 - - ! Surface reflectivities / transmissivities - zref (nlay+1,iw,icol) = palbp(ibm,icol) - zrefd (nlay+1,iw,icol) = palbd(ibm,icol) - ztra (nlay+1,iw,icol) = 0. - ztrad (nlay+1,iw,icol) = 0. - - ! TOA direct beam - ztdbt (1,iw,icol) = 1. - - end do - end do - - ! Delta-scaled clear-sky optical properties - do icol = 1,ncol - do iw = 1,ngptsw - jb = ngb(iw) - ibm = jb-15 - do jk = 1,nlay - ikl = nlay+1-jk - - ! Clear-sky optical parameters including aerosols - ! Gas: ssa=0, g=0, Rayleigh: ssa=1, g=0 - ztauo(jk,iw,icol) = ztaur(ikl,iw,icol) + ztaug(ikl,iw,icol) + ptaua(ikl,ibm,icol) - zomco(jk,iw,icol) = ztaur(ikl,iw,icol) + ptaua(ikl,ibm,icol) * pomga(ikl,ibm,icol) - zgco (jk,iw,icol) = (pasya(ikl,ibm,icol) * pomga(ikl,ibm,icol) * ptaua(ikl,ibm,icol)) & - / zomco(jk,iw,icol) - zomco(jk,iw,icol) = zomco(jk,iw,icol) / ztauo(jk,iw,icol) - - ! Delta-scaling with f = g**2 - zf = zgco(jk,iw,icol) ** 2 - zwf = zomco(jk,iw,icol) * zf - ztauo(jk,iw,icol) = (1. - zwf) * ztauo(jk,iw,icol) - zomco(jk,iw,icol) = (zomco(jk,iw,icol) - zwf) / (1. - zwf) - zgco (jk,iw,icol) = (zgco (jk,iw,icol) - zf ) / (1. - zf ) - - enddo - end do - end do - - ! Clear-sky reflectivities / transmissivities - ! note: pcldymc may not be defined here but the - ! last arg .false. means it is not used anyway. - call reftra_sw (pncol, ncol, nlay, & - pcldymc, zgco, prmu0, ztauo, zomco, & - zref, zrefd, ztra, ztrad, .false.) - - ! Clear-sky direct beam transmittance - do icol = 1,ncol - do iw = 1,ngptsw - do jk = 1,nlay - zdbt(jk,iw,icol) = exp(-ztauo(jk,iw,icol) / prmu0(icol)) - ztdbt(jk+1,iw,icol) = zdbt(jk,iw,icol) * ztdbt(jk,iw,icol) - enddo - end do - end do - - ! Vertical quadrature for clear-sky fluxes - call vrtqdr_sw(pncol, ncol, nlay, & - zref, zrefd, ztra, ztrad, & - zdbt, ztdbt, & - zfd, zfu) - - ! Band integration for clear cases - do icol = 1,ncol - do iw = 1,ngptsw - jb = ngb(iw) - ibm = jb-15 - - ! Adjust incoming flux for Earth/Sun distance and zenith angle - if (isolvar < 0) then - ! No solar variability and no solar cycle - zincflx = adjflux(jb) * zsflxzen(iw,icol) * prmu0(icol) - else - ! Solar variability with averaged or specified solar cycle - zincflx = adjflux(jb) * ssi (iw,icol) * prmu0(icol) - endif - - do ikl = 1,nlay+1 - jk = nlay+2-ikl - - ! Accumulate spectral fluxes over whole spectrum - pbbcu (ikl,icol) = pbbcu (ikl,icol) + zincflx * zfu (jk,iw,icol) - pbbcd (ikl,icol) = pbbcd (ikl,icol) + zincflx * zfd (jk,iw,icol) - pbbcddir(ikl,icol) = pbbcddir(ikl,icol) + zincflx * ztdbt(jk,iw,icol) - - ! Band fluxes - if (ibm >= 10 .and. ibm <= 13) then - ! UV/Visible - puvcd (ikl,icol) = puvcd (ikl,icol) + zincflx * zfd (jk,iw,icol) - puvcddir(ikl,icol) = puvcddir(ikl,icol) + zincflx * ztdbt(jk,iw,icol) - else if (ibm == 14 .or. ibm <= 9) then - ! Near-IR - pnicd (ikl,icol) = pnicd (ikl,icol) + zincflx * zfd (jk,iw,icol) - pnicddir(ikl,icol) = pnicddir(ikl,icol) + zincflx * ztdbt(jk,iw,icol) - endif - - enddo ! layer loop - enddo ! spectral loop - enddo ! column loop - - !!!!!!!!!!!!!!!! - !! END CLEAR !! - !!!!!!!!!!!!!!!! - - if (cc == 2) then - - ! Add in cloud optical properties (which are already delta-scaled) - ! (uses the pre-calculated clear-sky delta-scaled zomco and zgco) - do icol = 1,ncol - do iw = 1,ngptsw - jb = ngb(iw) - ibm = jb-15 - do jk = 1,nlay - ikl = nlay+1-jk - - ! only cloudy gridboxes need to add in cloud opt props - if (pcldymc(ikl,iw,icol)) then - zgco (jk,iw,icol) = & - ztauo (jk, iw,icol) * zomco (jk, iw,icol) * zgco (jk, iw,icol) + & - ptaucmc(ikl,iw,icol) * pomgcmc(ikl,iw,icol) * pasycmc(ikl,iw,icol) - zomco(jk,iw,icol) = & - ztauo (jk,iw, icol) * zomco (jk, iw,icol) + & - ptaucmc(ikl,iw,icol) * pomgcmc(ikl,iw,icol) - ztauo(jk,iw,icol) = & - ztauo (jk, iw,icol) + & - ptaucmc(ikl,iw,icol) - zgco (jk,iw,icol) = zgco (jk,iw,icol) / zomco(jk,iw,icol) - zomco(jk,iw,icol) = zomco(jk,iw,icol) / ztauo(jk,iw,icol) - end if - - enddo - end do - end do - - ! Update reflectivities / transmissivities for cloudy cells only - ! note: since cc==2 here pcldymc is defined - call reftra_sw (pncol, ncol, nlay, & - pcldymc, zgco, prmu0, ztauo, zomco, & - zref, zrefd, ztra, ztrad, .true.) - - ! Recalculate direct transmission - do icol = 1,ncol - do iw = 1,ngptsw - do jk = 1,nlay - ikl = nlay+1-jk - - ! cloudy ztauo has been updated so recalculate - if (pcldymc(ikl,iw,icol)) & - zdbt(jk,iw,icol) = exp(-ztauo(jk,iw,icol) / prmu0(icol)) - ztdbt(jk+1,iw,icol) = zdbt(jk,iw,icol) * ztdbt(jk,iw,icol) - - enddo - end do - end do - - ! Vertical quadrature for total-sky fluxes - call vrtqdr_sw(pncol, ncol, nlay, & - zref, zrefd, ztra, ztrad, & - zdbt, ztdbt, & - zfd, zfu) - - ! Upwelling and downwelling fluxes at levels - ! Two-stream calculations go from top to bottom; - ! layer indexing is reversed to go bottom to top for output arrays - - do icol = 1,ncol - do iw = 1,ngptsw - jb = ngb(iw) - ibm = jb-15 - - ! Adjust incoming flux for Earth/Sun distance and zenith angle - if (isolvar < 0) then - ! No solar variability and no solar cycle - zincflx = adjflux(jb) * zsflxzen(iw,icol) * prmu0(icol) - else - ! Solar variability with averaged or specified solar cycle - zincflx = adjflux(jb) * ssi (iw,icol) * prmu0(icol) - endif - - do ikl = 1,nlay+1 - jk = nlay+2-ikl - - ! Accumulate spectral fluxes over whole spectrum - pbbfu (ikl,icol) = pbbfu (ikl,icol) + zincflx * zfu (jk,iw,icol) - pbbfd (ikl,icol) = pbbfd (ikl,icol) + zincflx * zfd (jk,iw,icol) - pbbfddir(ikl,icol) = pbbfddir(ikl,icol) + zincflx * ztdbt(jk,iw,icol) - - ! Band fluxes - if (ibm >= 10 .and. ibm <= 13) then - ! UV/Visible - puvfd (ikl,icol) = puvfd (ikl,icol) + zincflx * zfd (jk,iw,icol) - puvfddir(ikl,icol) = puvfddir(ikl,icol) + zincflx * ztdbt(jk,iw,icol) - else if (ibm == 14 .or. ibm <= 9) then - ! Near-IR - pnifd (ikl,icol) = pnifd (ikl,icol) + zincflx * zfd (jk,iw,icol) - pnifddir(ikl,icol) = pnifddir(ikl,icol) + zincflx * ztdbt(jk,iw,icol) - endif - - enddo ! layer loop - enddo ! spectral loop - enddo ! column loop - - else - - ! cc == 1 so clear so total-sky == clear-sky - pbbfu = pbbcu - pbbfd = pbbcd - pbbfddir = pbbcddir - puvfd = puvcd - puvfddir = puvcddir - pnifd = pnicd - pnifddir = pnicddir - - end if - - ! surface band fluxes - do icol = 1,ncol - do iw = 1,ngptsw - jb = ngb(iw) - ibm = jb - 15 - - ! Adjust incoming flux for Earth/Sun distance and zenith angle - if (isolvar < 0) then - ! No solar variability and no solar cycle - zincflx = adjflux(jb) * zsflxzen(iw,icol) * prmu0(icol) - else - ! Solar variability with averaged or specified solar cycle - zincflx = adjflux(jb) * ssi (iw,icol) * prmu0(icol) - endif - - ! Band fluxes - if (ibm == 14 .or. ibm <= 8) then - ! near-IR - znirr(icol) = znirr(icol) + zincflx * ztdbt(nlay+1,iw,icol) ! Direct flux - znirf(icol) = znirf(icol) + zincflx * zfd (nlay+1,iw,icol) ! Total flux - else if (ibm >= 10 .and. ibm <= 11) then - ! Photosynthetically active radiation (PAR) - zparr(icol) = zparr(icol) + zincflx * ztdbt(nlay+1,iw,icol) ! Direct flux - zparf(icol) = zparf(icol) + zincflx * zfd (nlay+1,iw,icol) ! Total flux - else if (ibm >= 12 .and. ibm <= 13) then - ! UV - zuvrr(icol) = zuvrr(icol) + zincflx * ztdbt(nlay+1,iw,icol) ! Direct flux - zuvrf(icol) = zuvrf(icol) + zincflx * zfd (nlay+1,iw,icol) ! Total flux - else if ( ibm==9) then - ! Band 9: half PAR, half NIR - zparr(icol) = zparr(icol) + 0.5 * zincflx * ztdbt(nlay+1,iw,icol) ! Direct flux - zparf(icol) = zparf(icol) + 0.5 * zincflx * zfd (nlay+1,iw,icol) ! Total flux - znirr(icol) = znirr(icol) + 0.5 * zincflx * ztdbt(nlay+1,iw,icol) ! Direct flux - znirf(icol) = znirf(icol) + 0.5 * zincflx * zfd (nlay+1,iw,icol) ! Total flux - endif - - end do - enddo - - ! diagnostic in-cloud optical thicknesses in PAR super-band - ! (weighted across and within bands by TOA incident flux) - ! ------------------------------------------------------- - ztautp = 0. - ztauhp = 0. - ztaump = 0. - ztaulp = 0. - - ! can only be non-zero for potentially cloudy columns - if (cc == 2) then - - do icol = 1,ncol - - wtautp = 0. - wtauhp = 0. - wtaump = 0. - wtaulp = 0. - - do iw = 1,ngptsw - jb = ngb(iw) - ibm = jb - 15 - - ! band weights - if (ibm >= 10 .and. ibm <= 11) then - ! Photosynthetically active radiation (PAR) - wgt = 1.0 - else if (ibm == 9) then - ! half PAR, half NIR - wgt = 0.5 - else - ! no contribution to PAR - cycle - end if - - ! TOA flux weighting (adjustment for zenith angle - ! not needed since normalized for each icol) - if (isolvar < 0) then - zincflx = adjflux(jb) * zsflxzen(iw,icol) - else - zincflx = adjflux(jb) * ssi (iw,icol) - endif - wgt = wgt * zincflx - - ! low pressure layer - staulp = sum(ptaormc(1:cloudLM,iw,icol),dim=1) - if (staulp > 0.) then - ztaulp(icol) = ztaulp(icol) + wgt * staulp - wtaulp = wtaulp + wgt - end if - - ! mid pressure layer - staump = sum(ptaormc(cloudLM+1:cloudMH,iw,icol),dim=1) - if (staump > 0.) then - ztaump(icol) = ztaump(icol) + wgt * staump - wtaump = wtaump + wgt - end if - - ! high pressure layer - stauhp = sum(ptaormc(cloudMH+1:nlay,iw,icol),dim=1) - if (stauhp > 0.) then - ztauhp(icol) = ztauhp(icol) + wgt * stauhp - wtauhp = wtauhp + wgt - end if - - ! whole subcolumn - stautp = staulp + staump + stauhp - if (stautp > 0.) then - ztautp(icol) = ztautp(icol) + wgt * stautp - wtautp = wtautp + wgt - end if - - end do ! iw - - ! normalize - if (wtautp > 0.) then - ztautp(icol) = ztautp(icol) / wtautp - else - ztautp(icol) = 0. - end if - - if (wtauhp > 0.) then - ztauhp(icol) = ztauhp(icol) / wtauhp - else - ztauhp(icol) = 0. - end if - - if (wtaump > 0.) then - ztaump(icol) = ztaump(icol) / wtaump - else - ztaump(icol) = 0. - end if - - if (wtaulp > 0.) then - ztaulp(icol) = ztaulp(icol) / wtaulp - else - ztaulp(icol) = 0. - end if - - end do ! icol - - end if ! cc==2 - - end subroutine spcvmc_sw - - ! -------------------------------------------------------------------- - subroutine reftra_sw(pncol, ncol, nlay, & - cloudy, pgg, prmuzl, ptau, pw, & - pref, prefd, ptra, ptrad, & - update_cloudy_cells_only) - ! -------------------------------------------------------------------- - ! Purpose: computes the reflectivity and transmissivity of a clear or - ! cloudy layers using a choice of various approximations. - ! - ! inputs: - ! cloudy = binary cloud presence flag - ! pgg = assymetry factor - ! prmuzl = cosine solar zenith angle - ! ptau = optical thickness - ! pw = single scattering albedo - ! - ! outputs: - ! pref : collimated beam reflectivity - ! prefd : diffuse beam reflectivity - ! ptra : collimated beam transmissivity - ! ptrad : diffuse beam transmissivity - ! - ! notes: - ! 1. This routine is intended to be run twice. First with clear-only - ! optical parameters and update_cloudy_cells_only false. This gives - ! the clear-sky reflectivities/transmissivities for every cell. - ! The second time through, it is run with cloud-adjusted optical - ! parameters and update_cloudy_cells_only true, which only updates - ! cells that actually have clouds. The clear-cells retain their - ! former clear outputs via the intent(inout) "outputs". - ! 2. The cloudy flag is only used if update_cloudy_cells_only true, - ! so only necessary to define it in that case. - ! - ! Method: - ! standard delta-eddington, p.i.f.m., or d.o.m. layer calculations. - ! kmodts = 1 eddington (joseph et al., 1976) - ! = 2 pifm (zdunkowski et al., 1980) <-- - ! = 3 discrete ordinates (liou, 1973) - ! - ! Modifications: - ! Original: J-JMorcrette, ECMWF, Feb 2003 - ! Revised for F90 reformatting: MJIacono, AER, Jul 2006 - ! Revised to add exponential lookup table: MJIacono, AER, Aug 2007 - ! Cleaned up and nodified as per above note: PMNorris, GMAO, Aug 2021 - ! - ! ------------------------------------------------------------------ - - ! ------- Input ------- - - integer, intent (in) :: pncol ! dimensioned num of gridcols - integer, intent (in) :: ncol ! actual number of gridcols - integer, intent (in) :: nlay ! number of model layers - - - logical, intent(in) :: cloudy (nlay,ngptsw,pncol) ! cloudy or not? - - real, intent(in) :: pgg (nlay,ngptsw,pncol) ! asymmetry parameter - real, intent(in) :: ptau (nlay,ngptsw,pncol) ! optical depth - real, intent(in) :: pw (nlay,ngptsw,pncol) ! single scattering albedo - real, intent(in) :: prmuzl (pncol) ! cosine of solar zenith angle - - logical, intent(in) :: update_cloudy_cells_only - - ! ------- Output ------- - - real, intent(inout) :: pref (nlay+1,ngptsw,pncol) ! direct beam reflectivity - real, intent(inout) :: prefd (nlay+1,ngptsw,pncol) ! diffuse reflectivity - real, intent(inout) :: ptra (nlay+1,ngptsw,pncol) ! direct beam transmissivity - real, intent(inout) :: ptrad (nlay+1,ngptsw,pncol) ! diffuse transmissivity - - ! ------- Local ------- - - integer :: jk, kmodts - integer :: icol, iw - logical :: update - - real :: za, za1, za2 - real :: zbeta, zdend, zdenr, zdent - real :: ze1, ze2, zem1, zem2, zemm, zep1, zep2 - real :: zg, zg3, zgamma1, zgamma2, zgamma3, zgamma4, zgt - real :: zr1, zr2, zr3, zr4, zr5 - real :: zrk, zrk2, zrkg, zrm1, zrp, zrp1, zrpp - real :: zsr3, zt1, zt2, zt3, zt4, zt5, zto1 - real :: zw, zwcrit, zwo, prmuz - - real, parameter :: eps = 1.e-08 - - ! MAT These are 8-byte versions of zw, zg, and zwo. This is done - ! MAT to avoid a divide-by-zero in the zwo calculation below. More - ! MAT information below. - ! MAT NOTE: This is not an official fix, just a patch to allow work - ! MAT for now. - - real*8 :: zw8, zg8, zwo8 - - ! ------------------------------------------------------------------ - - zsr3 = sqrt(3.) - zwcrit = 0.9999995 - kmodts = 2 - - do icol = 1,ncol - prmuz = prmuzl(icol) - do iw = 1,ngptsw - do jk = 1,nlay - - if (update_cloudy_cells_only) then - update = cloudy(nlay+1-jk,iw,icol) - else - update = .true. - end if - if (update) then - - zto1 = ptau(jk,iw,icol) - zw = pw (jk,iw,icol) - zg = pgg (jk,iw,icol) - - ! MAT Move zw and zg into 8-byte reals to avoid - ! MAT divide-by-zero in zwo calculation below - - zw8 = zw - zg8 = zg - - ! General two-stream expressions - - zg3 = 3. * zg - - zgamma1 = (8. - zw * (5. + zg3)) * 0.25 - zgamma2 = 3. * (zw * (1. - zg)) * 0.25 - zgamma3 = (2. - zg3 * prmuz) * 0.25 - zgamma4 = 1. - zgamma3 - - ! Recompute original s.s.a. to test for conservative solution - - ! MAT The issue with this is as follows. A column occurs for - ! MAT which zw = 0.0249478 and zg = 0.503158. If you - ! MAT calculate the denominator of zwo, you get a value of - ! MAT -0.000000064995 which, apparently, is then flushed to - ! MAT zero by the compiler. Then zwo = zw / 0. and bam. - ! MAT To avoid this loss of precision, we calculate zwo - ! MAT in 8-byte reals. - ! MAT - ! MAT Original code - ! MAT zwo= zw / (1. - (1. - zw) * (zg / (1. - zg))**2) - ! MAT - ! MAT New code - zwo8 = zw8 / (1.d0 - (1.d0 - zw8) * (zg8 / (1.d0 - zg8))**2) - - ! MAT Put zwo8 into a 4-byte real - zwo = zwo8 - - ! END MAT EDITS - - if (zwo >= zwcrit) then - ! Conservative scattering - - za = zgamma1 * prmuz - za1 = za - zgamma3 - zgt = zgamma1 * zto1 - - ! Homogeneous reflectance and transmittance, - ! collimated beam - - ze1 = min(zto1/prmuz, 500.) - ze2 = exp(-ze1) - pref(jk,iw,icol) = (zgt - za1 * (1. - ze2)) / (1. + zgt) - ptra(jk,iw,icol) = 1. - pref(jk,iw,icol) - - ! isotropic incidence - - prefd(jk,iw,icol) = zgt / (1. + zgt) - ptrad(jk,iw,icol) = 1. - prefd(jk,iw,icol) - - ! This is applied for consistency between total (delta-scaled) and direct (unscaled) - ! calculations at very low optical depths (tau < 1.e-4) when the exponential lookup - ! table returns a transmittance of 1. - if (ze2 == 1.) then - pref (jk,iw,icol) = 0. - ptra (jk,iw,icol) = 1. - prefd(jk,iw,icol) = 0. - ptrad(jk,iw,icol) = 1. - endif - - else - ! Non-conservative scattering - - za1 = zgamma1 * zgamma4 + zgamma2 * zgamma3 - za2 = zgamma1 * zgamma3 + zgamma2 * zgamma4 - zrk = sqrt(zgamma1**2 - zgamma2**2) - zrp = zrk * prmuz - zrp1 = 1. + zrp - zrm1 = 1. - zrp - zrk2 = 2. * zrk - zrpp = 1. - zrp*zrp - zrkg = zrk + zgamma1 - zr1 = zrm1 * (za2 + zrk * zgamma3) - zr2 = zrp1 * (za2 - zrk * zgamma3) - zr3 = zrk2 * (zgamma3 - za2 * prmuz) - zr4 = zrpp * zrkg - zr5 = zrpp * (zrk - zgamma1) - zt1 = zrp1 * (za1 + zrk * zgamma4) - zt2 = zrm1 * (za1 - zrk * zgamma4) - zt3 = zrk2 * (zgamma4 + za1 * prmuz) - zt4 = zr4 - zt5 = zr5 - - ! mji - reformulated code to avoid potential floating point exceptions - ! zbeta = - zr5 / zr4 - zbeta = (zgamma1 - zrk) / zrkg - - ! Homogeneous reflectance and transmittance - - ze1 = min(zrk * zto1, 5.) - ze2 = min(zto1 / prmuz, 5.) - - ! exponential transmittance (or expansion of exp()for low tau) - ! pmn: run with od_lo approx commented out was a little slower, - ! so have kept it, even though pure exp() is more accurate - ! and avoids a discontinuity. - if (ze1 <= od_lo) then - zem1 = 1. - ze1 + 0.5 * ze1 * ze1 - else - zem1 = exp(-ze1) - endif - zep1 = 1. / zem1 - if (ze2 <= od_lo) then - zem2 = 1. - ze2 + 0.5 * ze2 * ze2 - else - zem2 = exp(-ze2) - endif - zep2 = 1. / zem2 - - zdenr = zr4*zep1 + zr5*zem1 - zdent = zt4*zep1 + zt5*zem1 - if (zdenr >= -eps .and. zdenr <= eps) then - pref(jk,iw,icol) = eps - ptra(jk,iw,icol) = zem2 - else - pref(jk,iw,icol) = zw * (zr1*zep1 - zr2*zem1 - zr3*zem2) / zdenr - ptra(jk,iw,icol) = zem2 - zem2 * zw * (zt1*zep1 - zt2*zem1 - zt3*zep2) / zdent - endif - - ! diffuse beam - - zemm = zem1*zem1 - zdend = 1. / ((1. - zbeta * zemm) * zrkg) - prefd(jk,iw,icol) = zgamma2 * (1. - zemm) * zdend - ptrad(jk,iw,icol) = zrk2 * zem1 * zdend - - endif - endif - - end do - end do - end do - - end subroutine reftra_sw - - - ! -------------------------------------------------------------------------- - subroutine vrtqdr_sw(pncol, ncol, nlay, & - pref, prefd, ptra, ptrad, & - pdbt, ptdbt, & - pfd, pfu) - ! -------------------------------------------------------------------------- - ! Purpose: This routine performs the vertical quadrature integration - ! - ! Interface: *vrtqdr_sw* is called from *spcvrt_sw* and *spcvmc_sw* - ! - ! Modifications. - ! - ! Original: H. Barker - ! Revision: Integrated with rrtmg_sw, J.-J. Morcrette, ECMWF, Oct 2002 - ! Revision: Reformatted for consistency with rrtmg_lw: MJIacono, AER, Jul 2006 - ! - !----------------------------------------------------------------------- - - ! ----- Input ----- - - integer, intent (in) :: pncol ! dimensioned num of gridcols - integer, intent (in) :: ncol ! actual number of gridcols - integer, intent (in) :: nlay ! number of model layers - - real, intent(in) :: pref (nlay+1,ngptsw,pncol) ! direct beam reflectivity - real, intent(in) :: prefd(nlay+1,ngptsw,pncol) ! diffuse reflectivity - real, intent(in) :: ptra (nlay+1,ngptsw,pncol) ! direct beam transmissivity - real, intent(in) :: ptrad(nlay+1,ngptsw,pncol) ! diffuse transmissivity - - real, intent(in) :: pdbt (nlay, ngptsw,pncol) ! lyr mean dir beam transmittance - real, intent(in) :: ptdbt(nlay+1,ngptsw,pncol) ! total direct beam transmittance - - ! ----- Output ----- - ! unadjusted for earth/sun distance or zenith angle - - real, intent(out) :: pfd(nlay+1,ngptsw,pncol) ! downwelling flux (W/m2) - real, intent(out) :: pfu(nlay+1,ngptsw,pncol) ! upwelling flux (W/m2) - - ! ----- Local ----- - - integer :: ikp, ikx, jk, icol, iw - real :: zreflect, zreflectj - - real :: ztdn (nlay+1,ngptsw,pncol) - real :: prup (nlay+1,ngptsw,pncol) - real :: prupd (nlay+1,ngptsw,pncol) - real :: prdnd (nlay+1,ngptsw,pncol) - - do icol = 1,ncol - do iw = 1,ngptsw - - ! The nlay+1 level of prup/prupd require palbp/palbd which - ! are already available in fixed nlay+1 level of pref/prefd. - prup (nlay+1,iw,icol) = pref (nlay+1,iw,icol) - prupd(nlay+1,iw,icol) = prefd(nlay+1,iw,icol) - - ! Link lowest layer with surface - zreflect = 1. / (1. - prefd(nlay+1,iw,icol) * prefd(nlay,iw,icol)) - prup(nlay,iw,icol) = pref(nlay,iw,icol) + (ptrad(nlay,iw,icol) * & - ((ptra(nlay,iw,icol) - pdbt(nlay,iw,icol)) * prefd(nlay+1,iw,icol) + & - pdbt(nlay,iw,icol) * pref(nlay+1,iw,icol))) * zreflect - prupd(nlay,iw,icol) = prefd(nlay,iw,icol) + ptrad(nlay,iw,icol) * ptrad(nlay,iw,icol) * & - prefd(nlay+1,iw,icol) * zreflect - - end do - end do - - ! Pass from bottom to top - do icol = 1,ncol - do iw = 1,ngptsw - do jk = 1,nlay-1 - - ikp = nlay+1-jk - ikx = ikp-1 - zreflectj = 1. / (1. - prupd(ikp,iw,icol) * prefd(ikx,iw,icol)) - prup(ikx,iw,icol) = pref(ikx,iw,icol) + (ptrad(ikx,iw,icol) * & - ((ptra(ikx,iw,icol) - pdbt(ikx,iw,icol)) * prupd(ikp,iw,icol) + & - pdbt(ikx,iw,icol) * prup(ikp,iw,icol))) * zreflectj - prupd(ikx,iw,icol) = prefd(ikx,iw,icol) + ptrad(ikx,iw,icol) * ptrad(ikx,iw,icol) * & - prupd(ikp,iw,icol) * zreflectj - enddo - end do - end do - - do icol = 1,ncol - do iw = 1,ngptsw - - ! Upper boundary conditions - - ztdn (1,iw,icol) = 1. - prdnd(1,iw,icol) = 0. - ztdn (2,iw,icol) = ptra (1,iw,icol) - prdnd(2,iw,icol) = prefd(1,iw,icol) - end do - end do - - do icol = 1,ncol - do iw = 1,ngptsw - - ! Pass from top to bottom - - do jk = 2,nlay - ikp = jk+1 - - zreflect = 1. / (1. - prefd(jk,iw,icol) * prdnd(jk,iw,icol)) - ztdn(ikp,iw,icol) = ptdbt(jk,iw,icol) * ptra(jk,iw,icol) + & - (ptrad(jk,iw,icol) * ((ztdn(jk,iw,icol) - ptdbt(jk,iw,icol)) + & - ptdbt(jk,iw,icol) * pref(jk,iw,icol) * prdnd(jk,iw,icol))) * zreflect - prdnd(ikp,iw,icol) = prefd(jk,iw,icol) + ptrad(jk,iw,icol) * ptrad(jk,iw,icol) * & - prdnd(jk,iw,icol) * zreflect - - enddo - end do - end do - - ! Up and down-welling fluxes at levels - - do icol = 1,ncol - do iw = 1,ngptsw - do jk = 1,nlay+1 - zreflect = 1. / (1. - prdnd(jk,iw,icol) * prupd(jk,iw,icol)) - pfu(jk,iw,icol) = (ptdbt(jk,iw,icol) * prup(jk,iw,icol) + & - (ztdn(jk,iw,icol) - ptdbt(jk,iw,icol)) * prupd(jk,iw,icol)) * zreflect - pfd(jk,iw,icol) = ptdbt(jk,iw,icol) + (ztdn(jk,iw,icol) - ptdbt(jk,iw,icol) + & - ptdbt(jk,iw,icol) * prup(jk,iw,icol) * prdnd(jk,iw,icol)) * zreflect - enddo - end do - end do - - end subroutine vrtqdr_sw - -end module rrtmg_sw_spcvmc diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_taumol.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_taumol.F90 deleted file mode 100644 index 0591639f5..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_taumol.F90 +++ /dev/null @@ -1,2086 +0,0 @@ -! -------------------------------------------------------------------------- -! | | -! | Copyright 2002-2009, Atmospheric & Environmental Research, Inc. (AER). | -! | This software may be used, copied, or redistributed as long as it is | -! | not sold and this copyright notice is reproduced on each copy made. | -! | This model is provided as is without any express or implied warranties. | -! | (http://www.rtweb.aer.com/) | -! | | -! -------------------------------------------------------------------------- - -! Space saving function-like macros for linear interpolation -! of a 2D-variable in first and second arguments as follows ... -#define LIN2_ARG1(VAR,I,J,FINT) (VAR(I,J) + FINT * (VAR(I+1,J)-VAR(I,J))) -#define LIN2_ARG2(VAR,I,J,FINT) (VAR(I,J) + FINT * (VAR(I,J+1)-VAR(I,J))) - -module rrtmg_sw_taumol - - use parrrsw, only: ngptsw, jpband - use rrsw_con, only: oneminus - use rrsw_wvn, only: nspa, nspb - - implicit none - -contains - - !---------------------------------------------------------------------------- - subroutine taumol_sw(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - ssi, sfluxzen, taug, taur) - - ! dimensions - integer, intent(in) :: pncol, ncol, nlay - - ! tropopause layer index: laytrop in [1,nlay-1] assumed (from setcoef) - integer, intent(in) :: laytrop (pncol) - - ! pressure and temp interpolation indices - integer, intent(in) :: jp (nlay,pncol) - integer, intent(in) :: jt (nlay,pncol) - integer, intent(in) :: jt1 (nlay,pncol) - - ! column amounts - real, intent(in) :: colh2o (nlay,pncol) - real, intent(in) :: colco2 (nlay,pncol) - real, intent(in) :: colo3 (nlay,pncol) - real, intent(in) :: colch4 (nlay,pncol) - real, intent(in) :: colo2 (nlay,pncol) - real, intent(in) :: colmol (nlay,pncol) ! for Rayleigh scatt - - ! continuum interpolation coefficients - integer, intent(in) :: indself (nlay,pncol) - integer, intent(in) :: indfor (nlay,pncol) - real, intent(in) :: selffac (nlay,pncol) - real, intent(in) :: selffrac (nlay,pncol) - real, intent(in) :: forfac (nlay,pncol) - real, intent(in) :: forfrac (nlay,pncol) - - ! pressure and temperature interpolation coefficients - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - - ! Solar variability - integer, intent(in) :: isolvar ! Flag for solar var method - real, intent(in) :: svar_f ! facular multiplier - real, intent(in) :: svar_s ! sunspot multiplier - real, intent(in) :: svar_i ! baseline multiplier - real, intent(in) :: svar_f_bnd(jpband) ! facular multiplier (by band) - real, intent(in) :: svar_s_bnd(jpband) ! sunspot multiplier (by band) - real, intent(in) :: svar_i_bnd(jpband) ! baseline multiplier (by band) - - ! outputs - real, intent(out) :: ssi (ngptsw,pncol) ! spectral solar intensity with solar var - real, intent(out) :: sfluxzen (ngptsw,pncol) ! solar source function - real, intent(out) :: taug(nlay,ngptsw,pncol) ! Gaseous optical depth - real, intent(out) :: taur(nlay,ngptsw,pncol) ! Rayleigh - - ! Calculate optical depths and solar inputs for each spectral band. - - call taumol16(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol17(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol18(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol19(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol20(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol21(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol22(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol23(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol24(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol25(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol26(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol27(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol28(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - call taumol29(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - - end subroutine - - !---------------------------------------------------------------------------- - subroutine taumol16(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 16: 2600-3250 cm-1 (low - h2o,ch4; high - ch4) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng16 - use rrsw_kg16, only : absa, ka, absb, kb, forref, selfref, & - sfluxref, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray, strrat1 - - strrat1 = 252.131 - -! layreffr = 18 ! not actually needed but preserve these lines -! (was an upper atmosphere loop with default laysolfr = nlay) - - ! Compute the optical depth by interpolating in ln(pressure), - ! temperature, and appropriate species. Below LAYTROP, the water - ! vapor self-continuum is interpolated (in temperature) separately. - - ! Lower atmosphere tau loop - do icol = 1,ncol - do lay = 1,laytrop(icol) - speccomb = colh2o(lay,icol) + strrat1*colch4(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(16) + js - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(16) + js - inds = indself(lay,icol) - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1,ng16 - taug(lay,ig,icol) = speccomb * & - (fac000 * absa(ind0 ,ig) + & - fac100 * absa(ind0 +1,ig) + & - fac010 * absa(ind0 +9,ig) + & - fac110 * absa(ind0+10,ig) + & - fac001 * absa(ind1 ,ig) + & - fac101 * absa(ind1 +1,ig) + & - fac011 * absa(ind1 +9,ig) + & - fac111 * absa(ind1+10,ig)) + & - colh2o(lay,icol) * & - (selffac(lay,icol) * LIN2_ARG1(selfref,inds,ig,selffrac(lay,icol)) + & - forfac (lay,icol) * LIN2_ARG1( forref,indf,ig, forfrac(lay,icol))) - taur(lay,ig,icol) = tauray - enddo - enddo - enddo - - ! Upper atmosphere tau loop - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - ind0 = ((jp(lay,icol)-13)*5+(jt (lay,icol)-1))*nspb(16) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(16) + 1 - tauray = colmol(lay,icol) * rayl - do ig = 1,ng16 - taug(lay,ig,icol) = colch4(lay,icol) * & - (fac00(lay,icol) * absb(ind0 ,ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1 ,ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) - taur(lay,ig,icol) = tauray - enddo - enddo - enddo - - ! Simple case where solar source does not depend on concentrations - ! at a particular level. See taumol17 for the complex case. - if (isolvar < 0) then - do icol = 1,ncol - do ig = 1,ng16 - sfluxzen(ig,icol) = sfluxref(ig) - enddo - enddo - elseif (isolvar >= 0 .and. isolvar <= 2) then - do icol = 1,ncol - do ig = 1,ng16 - ssi(ig,icol) = svar_f * facbrght(ig) + & - svar_s * snsptdrk(ig) + & - svar_i * irradnce(ig) - enddo - enddo - elseif (isolvar == 3) then - do icol = 1,ncol - do ig = 1,ng16 - ssi(ig,icol) = svar_f_bnd(ngb(ig)) * facbrght(ig) + & - svar_s_bnd(ngb(ig)) * snsptdrk(ig) + & - svar_i_bnd(ngb(ig)) * irradnce(ig) - enddo - enddo - endif - - end subroutine taumol16 - - !---------------------------------------------------------------------------- - subroutine taumol17(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 17: 3250-4000 cm-1 (low - h2o,co2; high - h2o,co2) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng17, ngs16 - use rrsw_kg17, only : absa, ka, absb, kb, forref, selfref, & - sfluxref, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay, laysolfr, layreffr - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray, strrat - - layreffr = 30 - strrat = 0.364641 - - do icol = 1,ncol - do lay = 1,laytrop(icol) - speccomb = colh2o(lay,icol) + strrat*colco2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(17) + js - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(17) + js - inds = indself(lay,icol) - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1,ng17 - taug(lay,ngs16+ig,icol) = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) + & - colh2o(lay,icol) * & - (selffac(lay,icol) * LIN2_ARG1(selfref,inds,ig,selffrac(lay,icol)) + & - forfac (lay,icol) * LIN2_ARG1( forref,indf,ig, forfrac(lay,icol))) - taur(lay,ngs16+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - speccomb = colh2o(lay,icol) + strrat*colco2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 4. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol)-13)*5+(jt (lay,icol)-1))*nspb(17) + js - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(17) + js - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1,ng17 - taug(lay,ngs16+ig,icol) = speccomb * & - (fac000 * absb(ind0, ig) + & - fac100 * absb(ind0+1,ig) + & - fac010 * absb(ind0+5,ig) + & - fac110 * absb(ind0+6,ig) + & - fac001 * absb(ind1, ig) + & - fac101 * absb(ind1+1,ig) + & - fac011 * absb(ind1+5,ig) + & - fac111 * absb(ind1+6,ig)) + & - colh2o(lay,icol) * & - forfac(lay,icol) * LIN2_ARG1(forref,indf,ig,forfrac(lay,icol)) - taur(lay,ngs16+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - laysolfr = nlay - do lay = laytrop(icol)+1,nlay - - ! An explanation of the setting of laysolfr, ... i.e., the level at - ! which to evaluate solar irradiance. For some bands (such as this - ! one) this depends on the mix of absorbing species, which changes - ! with level. Say the following IF evaluates true at layer k, i.e., - ! jp(k-1) < layreffr <= jp(k), so jp jumps between k-1 and k. Then - ! on the next iteration (lay=k+1), the test becomes - ! jp(k) < layreffr <= jp(k+1), which cannot be true since we - ! already know layreffr <= jp(k). In fact, for any lay=k+n, n>=1, - ! above k, the test jp(k-1+n) < layreffr <= jp(k+n) fails since - ! jp(k-1+n) >= jp(k) >= layreffr, because jp(lay) is monotonically - ! non-decreasing (see setcoef). So, we conclude that if the following - ! test is met for some lay, thereby setting laysolfr, then laysolfr - ! will remain at that value. So the solar irradiance will be set - ! for that lay and never reset. Conversely, if this test is never - ! met, laysolfr will remain at its default value of nlay and ssi - ! will be set for that top-of-model layer. - - if (jp(lay-1,icol) < layreffr .and. jp(lay,icol) >= layreffr) laysolfr = lay - if (lay == laysolfr) then - speccomb = colh2o(lay,icol) + strrat*colco2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 4. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - if (isolvar < 0) then - do ig = 1,ng17 - sfluxzen(ngs16+ig,icol) = LIN2_ARG2(sfluxref,ig,js,fs) - end do - elseif (isolvar >= 0 .and. isolvar <= 2) then - do ig = 1,ng17 - ssi(ngs16+ig,icol) = & - svar_f * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i * LIN2_ARG2(irradnce,ig,js,fs) - end do - elseif (isolvar == 3) then - do ig = 1,ng17 - ssi(ngs16+ig,icol) = & - svar_f_bnd(ngb(ngs16+ig)) * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s_bnd(ngb(ngs16+ig)) * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i_bnd(ngb(ngs16+ig)) * LIN2_ARG2(irradnce,ig,js,fs) - end do - endif - exit - endif - enddo - enddo - - end subroutine taumol17 - - !---------------------------------------------------------------------------- - subroutine taumol18(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 18: 4000-4650 cm-1 (low - h2o,ch4; high - ch4) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng18, ngs17 - use rrsw_kg18, only : absa, ka, absb, kb, forref, selfref, & - sfluxref, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay, laysolfr, layreffr - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray, strrat - - strrat = 38.9589 - layreffr = 6 - - do icol = 1,ncol - laysolfr = laytrop(icol) - do lay = 1,laytrop(icol) - - ! This laysolfr / ssi evaluation differs from e.g. taumol17 in that it - ! looks for a level in the troposphere (not stratosphere) for this band. - ! Hence the search for laysolfr over lay in [1,laytrop], and the default - ! of laytrop ... Say the following IF evaluates true at layer k, i.e., - ! jp(k) < layreffr <= jp(k+1), so jp jumps between k and k+1. On the next - ! iteration (lay=k+1), the test is jp(k+1) < layreffr <= jp(k+2), which - ! cannot be true since we already know layreffr <= jp(k+1). In fact, for - ! any lay = k+n, n >= 1, above k, the test jp(k+n) < layreffr <= jp(k+1+n) - ! fails since jp(k+n) >= jp(k+1) >= layreffr, since jp(lay) is monotonically - ! non-decreasing (see setcoef). So, we conclude that if the following test - ! is met for some lay, thereby setting laysolfr, then laysolfr will remain - ! at that value. So the solar irradiance will be set for that lay and never - ! reset. Conversely, if this test is never met, laysolfr will remain at its - ! default value of laytrop and ssi will be set for that "tropopause" layer. - - if (jp(lay,icol) < layreffr .and. jp(lay+1,icol) >= layreffr) & - laysolfr = min(lay+1,laytrop(icol)) - - if (lay == laysolfr) then - speccomb = colh2o(lay,icol) + strrat*colch4(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - if (isolvar < 0) then - do ig = 1,ng18 - sfluxzen(ngs17+ig,icol) = LIN2_ARG2(sfluxref,ig,js,fs) - end do - elseif (isolvar >= 0 .and. isolvar <= 2) then - do ig = 1,ng18 - ssi(ngs17+ig,icol) = & - svar_f * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i * LIN2_ARG2(irradnce,ig,js,fs) - end do - elseif (isolvar == 3) then - do ig = 1,ng18 - ssi(ngs17+ig,icol) = & - svar_f_bnd(ngb(ngs17+ig)) * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s_bnd(ngb(ngs17+ig)) * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i_bnd(ngb(ngs17+ig)) * LIN2_ARG2(irradnce,ig,js,fs) - end do - endif - exit ! added per above comment - endif - end do - end do - - do icol = 1,ncol - do lay = 1,laytrop(icol) - speccomb = colh2o(lay,icol) + strrat*colch4(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(18) + js - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(18) + js - inds = indself(lay,icol) - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1,ng18 - taug(lay,ngs17+ig,icol) = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) + & - colh2o(lay,icol) * & - (selffac(lay,icol) * LIN2_ARG1(selfref,inds,ig,selffrac(lay,icol)) + & - forfac (lay,icol) * LIN2_ARG1( forref,indf,ig, forfrac(lay,icol))) - taur(lay,ngs17+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - ind0 = ((jp(lay,icol)-13)*5+(jt (lay,icol)-1))*nspb(18) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(18) + 1 - tauray = colmol(lay,icol) * rayl - do ig = 1,ng18 - taug(lay,ngs17+ig,icol) = colch4(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) - taur(lay,ngs17+ig,icol) = tauray - enddo - enddo - enddo - - end subroutine taumol18 - - !---------------------------------------------------------------------------- - subroutine taumol19(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 19: 4650-5150 cm-1 (low - h2o,co2; high - co2) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng19, ngs18 - use rrsw_kg19, only : absa, ka, absb, kb, forref, selfref, & - sfluxref, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay, laysolfr, layreffr - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray, strrat - - strrat = 5.49281 - layreffr = 3 - - do icol = 1,ncol - laysolfr = laytrop(icol) - do lay = 1,laytrop(icol) - if (jp(lay,icol) < layreffr .and. jp(lay+1,icol) >= layreffr) & - laysolfr = min(lay+1,laytrop(icol)) - if (lay == laysolfr) then - speccomb = colh2o(lay,icol) + strrat*colco2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - if (isolvar < 0) then - do ig = 1,ng19 - sfluxzen(ngs18+ig,icol) = LIN2_ARG2(sfluxref,ig,js,fs) - end do - elseif (isolvar >= 0 .and. isolvar <= 2) then - do ig = 1,ng19 - ssi(ngs18+ig,icol) = & - svar_f * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i * LIN2_ARG2(irradnce,ig,js,fs) - end do - elseif (isolvar == 3) then - do ig = 1,ng19 - ssi(ngs18+ig,icol) = & - svar_f_bnd(ngb(ngs18+ig)) * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s_bnd(ngb(ngs18+ig)) * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i_bnd(ngb(ngs18+ig)) * LIN2_ARG2(irradnce,ig,js,fs) - end do - endif - exit - endif - end do - end do - - do icol = 1,ncol - do lay = 1,laytrop(icol) - speccomb = colh2o(lay,icol) + strrat*colco2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(19) + js - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(19) + js - inds = indself(lay,icol) - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1 , ng19 - taug(lay,ngs18+ig,icol) = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) + & - colh2o(lay,icol) * & - (selffac(lay,icol) * LIN2_ARG1(selfref,inds,ig,selffrac(lay,icol)) + & - forfac (lay,icol) * LIN2_ARG1( forref,indf,ig, forfrac(lay,icol))) - taur(lay,ngs18+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - ind0 = ((jp(lay,icol)-13)*5+(jt (lay,icol)-1))*nspb(19) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(19) + 1 - tauray = colmol(lay,icol) * rayl - do ig = 1,ng19 - taug(lay,ngs18+ig,icol) = colco2(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) - taur(lay,ngs18+ig,icol) = tauray - enddo - enddo - enddo - - end subroutine taumol19 - - !---------------------------------------------------------------------------- - subroutine taumol20(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 20: 5150-6150 cm-1 (low - h2o; high - h2o) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng20, ngs19 - use rrsw_kg20, only : absa, ka, absb, kb, forref, selfref, & - sfluxref, absch4, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - implicit none - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray - -! layreffr = 3 ! not actually needed but preserve these lines -! (was a lower atmosphere loop with default laysolfr = laytrop(icol)) - - do icol = 1,ncol - do lay = 1,laytrop(icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(20) + 1 - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(20) + 1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1,ng20 - taug(lay,ngs19+ig,icol) = colh2o(lay,icol) * & - ((fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) + & - selffac(lay,icol) * LIN2_ARG1(selfref,inds,ig,selffrac(lay,icol)) + & - forfac (lay,icol) * LIN2_ARG1( forref,indf,ig, forfrac(lay,icol))) & - + colch4(lay,icol) * absch4(ig) - taur(lay,ngs19+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - ind0 = ((jp(lay,icol)-13)*5+(jt (lay,icol)-1))*nspb(20) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(20) + 1 - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1,ng20 - taug(lay,ngs19+ig,icol) = colh2o(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig) + & - forfac(lay,icol) * LIN2_ARG1(forref,indf,ig,forfrac(lay,icol))) & - + colch4(lay,icol) * absch4(ig) - taur(lay,ngs19+ig,icol) = tauray - enddo - enddo - enddo - - if (isolvar < 0) then - do icol = 1,ncol - do ig = 1,ng20 - sfluxzen(ngs19+ig,icol) = sfluxref(ig) - enddo - enddo - elseif (isolvar >= 0 .and. isolvar <= 2) then - do icol = 1,ncol - do ig = 1,ng20 - ssi(ngs19+ig,icol) = svar_f * facbrght(ig) + & - svar_s * snsptdrk(ig) + & - svar_i * irradnce(ig) - enddo - enddo - elseif (isolvar == 3) then - do icol = 1,ncol - do ig = 1,ng20 - ssi(ngs19+ig,icol) = svar_f_bnd(ngb(ngs19+ig)) * facbrght(ig) + & - svar_s_bnd(ngb(ngs19+ig)) * snsptdrk(ig) + & - svar_i_bnd(ngb(ngs19+ig)) * irradnce(ig) - enddo - enddo - endif - - end subroutine taumol20 - - !---------------------------------------------------------------------------- - subroutine taumol21(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 21: 6150-7700 cm-1 (low - h2o,co2; high - h2o,co2) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng21, ngs20 - use rrsw_kg21, only : absa, ka, absb, kb, forref, selfref, & - sfluxref, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay, laysolfr, layreffr - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray, strrat - - strrat = 0.0045321 - layreffr = 8 - - do icol = 1,ncol - laysolfr = laytrop(icol) - do lay = 1,laytrop(icol) - if (jp(lay,icol) < layreffr .and. jp(lay+1,icol) >= layreffr) & - laysolfr = min(lay+1,laytrop(icol)) - if (lay == laysolfr) then - speccomb = colh2o(lay,icol) + strrat*colco2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - if (isolvar < 0) then - do ig = 1,ng21 - sfluxzen(ngs20+ig,icol) = LIN2_ARG2(sfluxref,ig,js,fs) - end do - elseif (isolvar >= 0 .and. isolvar <= 2) then - do ig = 1,ng21 - ssi(ngs20+ig,icol) = & - svar_f * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i * LIN2_ARG2(irradnce,ig,js,fs) - end do - elseif (isolvar == 3) then - do ig = 1,ng21 - ssi(ngs20+ig,icol) = & - svar_f_bnd(ngb(ngs20+ig)) * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s_bnd(ngb(ngs20+ig)) * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i_bnd(ngb(ngs20+ig)) * LIN2_ARG2(irradnce,ig,js,fs) - end do - endif - exit - endif - end do - end do - - do icol = 1,ncol - do lay = 1,laytrop(icol) - speccomb = colh2o(lay,icol) + strrat*colco2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(21) + js - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(21) + js - inds = indself(lay,icol) - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1,ng21 - taug(lay,ngs20+ig,icol) = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) + & - colh2o(lay,icol) * & - (selffac(lay,icol) * LIN2_ARG1(selfref,inds,ig,selffrac(lay,icol)) + & - forfac (lay,icol) * LIN2_ARG1( forref,indf,ig, forfrac(lay,icol))) - taur(lay,ngs20+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - speccomb = colh2o(lay,icol) + strrat*colco2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 4. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol) -13)*5+(jt (lay,icol)-1))*nspb(21) + js - ind1 = ((jp(lay,icol) -12)*5+(jt1(lay,icol)-1))*nspb(21) + js - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1,ng21 - taug(lay,ngs20+ig,icol) = speccomb * & - (fac000 * absb(ind0, ig) + & - fac100 * absb(ind0+1,ig) + & - fac010 * absb(ind0+5,ig) + & - fac110 * absb(ind0+6,ig) + & - fac001 * absb(ind1, ig) + & - fac101 * absb(ind1+1,ig) + & - fac011 * absb(ind1+5,ig) + & - fac111 * absb(ind1+6,ig)) + & - colh2o(lay,icol) * & - forfac(lay,icol) * LIN2_ARG1(forref,indf,ig,forfrac(lay,icol)) - taur(lay,ngs20+ig,icol) = tauray - enddo - enddo - enddo - - end subroutine taumol21 - - !---------------------------------------------------------------------------- - subroutine taumol22(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 22: 7700-8050 cm-1 (low - h2o,o2; high - o2) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng22, ngs21 - use rrsw_kg22, only : absa, ka, absb, kb, forref, selfref, & - sfluxref, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay, laysolfr, layreffr - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray, o2adj, o2cont, strrat - - ! The following factor is the ratio of total O2 band intensity (lines - ! and Mate continuum) to O2 band intensity (line only). It is needed - ! to adjust the optical depths since the k's include only lines. - o2adj = 1.6 - - strrat = 0.022708 - layreffr = 2 - - do icol = 1,ncol - laysolfr = laytrop(icol) - do lay = 1,laytrop(icol) - if (jp(lay,icol) < layreffr .and. jp(lay+1,icol) >= layreffr) & - laysolfr = min(lay+1,laytrop(icol)) - if (lay == laysolfr) then - speccomb = colh2o(lay,icol) + o2adj*strrat*colo2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - if (isolvar < 0) then - do ig = 1,ng22 - sfluxzen(ngs21+ig,icol) = LIN2_ARG2(sfluxref,ig,js,fs) - end do - elseif (isolvar >= 0 .and. isolvar <= 2) then - do ig = 1,ng22 - ssi(ngs21+ig,icol) = & - svar_f * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i * LIN2_ARG2(irradnce,ig,js,fs) - end do - elseif (isolvar == 3) then - do ig = 1,ng22 - ssi(ngs21+ig,icol) = & - svar_f_bnd(ngb(ngs21+ig)) * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s_bnd(ngb(ngs21+ig)) * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i_bnd(ngb(ngs21+ig)) * LIN2_ARG2(irradnce,ig,js,fs) - end do - endif - exit - end if - end do - end do - - do icol = 1,ncol - do lay = 1,laytrop(icol) - o2cont = 4.35e-4 *colo2(lay,icol) /(350.0 *2.0 ) - speccomb = colh2o(lay,icol) + o2adj*strrat*colo2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(22) + js - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(22) + js - inds = indself(lay,icol) - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1,ng22 - taug(lay,ngs21+ig,icol) = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) + & - colh2o(lay,icol) * & - (selffac(lay,icol) * LIN2_ARG1(selfref,inds,ig,selffrac(lay,icol)) + & - forfac (lay,icol) * LIN2_ARG1( forref,indf,ig, forfrac(lay,icol))) & - + o2cont - taur(lay,ngs21+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - o2cont = 4.35e-4 * colo2(lay,icol) / (350. * 2.) - ind0 = ((jp(lay,icol)-13)*5+(jt (lay,icol)-1))*nspb(22) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(22) + 1 - tauray = colmol(lay,icol) * rayl - do ig = 1,ng22 - taug(lay,ngs21+ig,icol) = colo2(lay,icol) * o2adj * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) + & - o2cont - taur(lay,ngs21+ig,icol) = tauray - enddo - enddo - enddo - - end subroutine taumol22 - - !---------------------------------------------------------------------------- - subroutine taumol23(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 23: 8050-12850 cm-1 (low - h2o; high - nothing) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng23, ngs22 - use rrsw_kg23, only : absa, ka, forref, selfref, & - sfluxref, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray, givfac - - ! Average Giver et al. correction factor for this band. - givfac = 1.029 - -! layreffr = 6 ! not actually needed but preserve these lines -! (was a lower atmosphere loop with default laysolfr = laytrop(icol)) - - do icol = 1,ncol - do lay = 1,laytrop(icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(23) + 1 - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(23) + 1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - do ig = 1,ng23 - tauray = colmol(lay,icol) * rayl(ig) - taug(lay,ngs22+ig,icol) = colh2o(lay,icol) * (givfac * & - (fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) + & - selffac(lay,icol) * LIN2_ARG1(selfref,inds,ig,selffrac(lay,icol)) + & - forfac (lay,icol) * LIN2_ARG1( forref,indf,ig, forfrac(lay,icol))) - taur(lay,ngs22+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - do ig = 1,ng23 - taug(lay,ngs22+ig,icol) = 0. - taur(lay,ngs22+ig,icol) = colmol(lay,icol) * rayl(ig) - enddo - enddo - enddo - - if (isolvar < 0) then - do icol = 1,ncol - do ig = 1,ng23 - sfluxzen(ngs22+ig,icol) = sfluxref(ig) - enddo - enddo - elseif (isolvar >= 0 .and. isolvar <= 2) then - do icol = 1,ncol - do ig = 1,ng23 - ssi(ngs22+ig,icol) = svar_f * facbrght(ig) + & - svar_s * snsptdrk(ig) + & - svar_i * irradnce(ig) - enddo - enddo - elseif (isolvar == 3) then - do icol = 1,ncol - do ig = 1,ng23 - ssi(ngs22+ig,icol) = svar_f_bnd(ngb(ngs22+ig)) * facbrght(ig) + & - svar_s_bnd(ngb(ngs22+ig)) * snsptdrk(ig) + & - svar_i_bnd(ngb(ngs22+ig)) * irradnce(ig) - enddo - enddo - endif - - end subroutine taumol23 - - !---------------------------------------------------------------------------- - subroutine taumol24(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng24, ngs23 - use rrsw_kg24, only : absa, ka, absb, kb, forref, selfref, & - sfluxref, abso3a, abso3b, rayla, raylb, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay, laysolfr, layreffr - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray, strrat - - strrat = 0.124692 - layreffr = 1 - - do icol = 1,ncol - laysolfr = laytrop(icol) - do lay = 1,laytrop(icol) - if (jp(lay,icol) < layreffr .and. jp(lay+1,icol) >= layreffr) & - laysolfr = min(lay+1,laytrop(icol)) - if (lay == laysolfr) then - speccomb = colh2o(lay,icol) + strrat*colo2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - if (isolvar < 0) then - do ig = 1,ng24 - sfluxzen(ngs23+ig,icol) = LIN2_ARG2(sfluxref,ig,js,fs) - end do - elseif (isolvar >= 0 .and. isolvar <= 2) then - do ig = 1,ng24 - ssi(ngs23+ig,icol) = & - svar_f * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i * LIN2_ARG2(irradnce,ig,js,fs) - end do - elseif (isolvar == 3) then - do ig = 1,ng24 - ssi(ngs23+ig,icol) = & - svar_f_bnd(ngb(ngs23+ig)) * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s_bnd(ngb(ngs23+ig)) * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i_bnd(ngb(ngs23+ig)) * LIN2_ARG2(irradnce,ig,js,fs) - end do - endif - exit - endif - end do - end do - - do icol = 1,ncol - do lay = 1,laytrop(icol) - speccomb = colh2o(lay,icol) + strrat*colo2(lay,icol) - specparm = colh2o(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(24) + js - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(24) + js - inds = indself(lay,icol) - indf = indfor (lay,icol) - do ig = 1,ng24 - tauray = colmol(lay,icol) * LIN2_ARG2(rayla,ig,js,fs) - taug(lay,ngs23+ig,icol) = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) + & - colo3(lay,icol) * abso3a(ig) + & - colh2o(lay,icol) * & - (selffac(lay,icol) * LIN2_ARG1(selfref,inds,ig,selffrac(lay,icol)) + & - forfac (lay,icol) * LIN2_ARG1( forref,indf,ig, forfrac(lay,icol))) - taur(lay,ngs23+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - ind0 = ((jp(lay,icol)-13)*5+(jt (lay,icol)-1))*nspb(24) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(24) + 1 - do ig = 1,ng24 - tauray = colmol(lay,icol) * raylb(ig) - taug(lay,ngs23+ig,icol) = colo2(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) + & - colo3(lay,icol) * abso3b(ig) - taur(lay,ngs23+ig,icol) = tauray - enddo - enddo - enddo - - end subroutine taumol24 - - !---------------------------------------------------------------------------- - subroutine taumol25(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 25: 16000-22650 cm-1 (low - h2o; high - nothing) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng25, ngs24 - use rrsw_kg25, only : absa, ka, & - sfluxref, abso3a, abso3b, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray - -! layreffr = 2 ! not actually needed but preserve these lines -! (was a lower atmosphere loop with default laysolfr = laytrop(icol)) - - do icol = 1,ncol - do lay = 1,laytrop(icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(25) + 1 - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(25) + 1 - do ig = 1,ng25 - tauray = colmol(lay,icol) * rayl(ig) - taug(lay,ngs24+ig,icol) = colh2o(lay,icol) * & - (fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) + & - colo3(lay,icol) * abso3a(ig) - taur(lay,ngs24+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - do ig = 1,ng25 - tauray = colmol(lay,icol) * rayl(ig) - taug(lay,ngs24+ig,icol) = colo3(lay,icol) * abso3b(ig) - taur(lay,ngs24+ig,icol) = tauray - enddo - enddo - enddo - - if (isolvar < 0) then - do icol = 1,ncol - do ig = 1,ng25 - sfluxzen(ngs24+ig,icol) = sfluxref(ig) - enddo - enddo - elseif (isolvar >= 0 .and. isolvar <= 2) then - do icol = 1,ncol - do ig = 1,ng25 - ssi(ngs24+ig,icol) = svar_f * facbrght(ig) + & - svar_s * snsptdrk(ig) + & - svar_i * irradnce(ig) - enddo - enddo - elseif (isolvar == 3) then - do icol = 1,ncol - do ig = 1,ng25 - ssi(ngs24+ig,icol) = svar_f_bnd(ngb(ngs24+ig)) * facbrght(ig) + & - svar_s_bnd(ngb(ngs24+ig)) * snsptdrk(ig) + & - svar_i_bnd(ngb(ngs24+ig)) * irradnce(ig) - enddo - enddo - endif - - end subroutine taumol25 - - !---------------------------------------------------------------------------- - subroutine taumol26(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 26: 22650-29000 cm-1 (low - nothing; high - nothing) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng26, ngs25 - use rrsw_kg26, only : sfluxref, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray - -! never had layreffr or laysolfr - - do icol = 1,ncol - do lay = 1,nlay - do ig = 1,ng26 - taug(lay,ngs25+ig,icol) = 0. - taur(lay,ngs25+ig,icol) = colmol(lay,icol) * rayl(ig) - enddo - enddo - enddo - - if (isolvar < 0) then - do icol = 1,ncol - do ig = 1,ng26 - sfluxzen(ngs25+ig,icol) = sfluxref(ig) - enddo - enddo - elseif (isolvar >= 0 .and. isolvar <= 2) then - do icol = 1,ncol - do ig = 1,ng26 - ssi(ngs25+ig,icol) = svar_f * facbrght(ig) + & - svar_s * snsptdrk(ig) + & - svar_i * irradnce(ig) - enddo - enddo - elseif (isolvar == 3) then - do icol = 1,ncol - do ig = 1,ng26 - ssi(ngs25+ig,icol) = svar_f_bnd(ngb(ngs25+ig)) * facbrght(ig) + & - svar_s_bnd(ngb(ngs25+ig)) * snsptdrk(ig) + & - svar_i_bnd(ngb(ngs25+ig)) * irradnce(ig) - enddo - enddo - endif - - end subroutine taumol26 - - !---------------------------------------------------------------------------- - subroutine taumol27(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 27: 29000-38000 cm-1 (low - o3; high - o3) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng27, ngs26 - use rrsw_kg27, only : absa, ka, absb, kb, sfluxref, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray, scalekur - - ! Kurucz solar source function - ! The values in sfluxref were obtained using the "low resolution" - ! version of the Kurucz solar source function. For unknown reasons, - ! the total irradiance in this band differs from the corresponding - ! total in the "high-resolution" version of the Kurucz function. - ! Therefore, these values are scaled below by the factor SCALEKUR. - - scalekur = 50.15/48.37 - -! layreffr = 32 ! not actually needed but preserve these lines -! (was an upper atmosphere loop with default laysolfr = nlay) - - do icol = 1,ncol - do lay = 1,laytrop(icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(27) + 1 - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(27) + 1 - do ig = 1,ng27 - tauray = colmol(lay,icol) * rayl(ig) - taug(lay,ngs26+ig,icol) = colo3(lay,icol) * & - (fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) - taur(lay,ngs26+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1, nlay - ind0 = ((jp(lay,icol)-13)*5+(jt (lay,icol)-1))*nspb(27) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(27) + 1 - do ig = 1,ng27 - tauray = colmol(lay,icol) * rayl(ig) - taug(lay,ngs26+ig,icol) = colo3(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) - taur(lay,ngs26+ig,icol) = tauray - enddo - enddo - enddo - - if (isolvar < 0) then - do icol = 1,ncol - do ig = 1,ng27 - sfluxzen(ngs26+ig,icol) = sfluxref(ig) - enddo - enddo - elseif (isolvar >= 0 .and. isolvar <= 2) then - do icol = 1,ncol - do ig = 1,ng27 - ssi(ngs26+ig,icol) = svar_f * facbrght(ig) + & - svar_s * snsptdrk(ig) + & - svar_i * irradnce(ig) - enddo - enddo - elseif (isolvar == 3) then - do icol = 1,ncol - do ig = 1,ng27 - ssi(ngs26+ig,icol) = svar_f_bnd(ngb(ngs26+ig)) * facbrght(ig) + & - svar_s_bnd(ngb(ngs26+ig)) * snsptdrk(ig) + & - svar_i_bnd(ngb(ngs26+ig)) * irradnce(ig) - enddo - enddo - endif - - end subroutine taumol27 - - !---------------------------------------------------------------------------- - subroutine taumol28(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 28: 38000-50000 cm-1 (low - o3,o2; high - o3,o2) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng28, ngs27 - use rrsw_kg28, only : absa, ka, absb, kb, sfluxref, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay, laysolfr, layreffr - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray, strrat - - strrat = 6.67029e-07 - - ! Per Eli Mlawer: - ! Robin Hogan recently sent me some results that showed that the - ! stratopause heating rates in RRTMG in the 38000-5000 cm-1 band are - ! negatively biased wrt to LBL calculations in that same region, so - ! invoking an additional spectral region for the issue you are seeing - ! may not be necessary. He hacked the code to get the correct answer in - ! this band by removing the FS interpolation in taumol for band 28 and - ! replacing it by always using the values in the 5th (i.e. last) location - ! in the solar irradiance array. My analysis suggested a different (and - ! better, assuming it works) remedy, which he hasn’t yet commented on or - ! tried. (note: I sent him this suggestion just yesterday.) I think I may - ! have set the reference solar mapping layer (LAYREFFR) too high in that - ! band. Instead of 58, I think I should have set it around 40. I suggest - ! you try that and see if it gets rid of the bias. - - ! Followup from Eli: - ! RRTMG_SW v4.10 has this set to 42 - - layreffr = 42 - - do icol = 1,ncol - do lay = 1,laytrop(icol) - speccomb = colo3(lay,icol) + strrat*colo2(lay,icol) - specparm = colo3(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 8. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(28) + js - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(28) + js - tauray = colmol(lay,icol) * rayl - do ig = 1,ng28 - taug(lay,ngs27+ig,icol) = speccomb * & - (fac000 * absa(ind0, ig) + & - fac100 * absa(ind0+1, ig) + & - fac010 * absa(ind0+9, ig) + & - fac110 * absa(ind0+10,ig) + & - fac001 * absa(ind1, ig) + & - fac101 * absa(ind1+1, ig) + & - fac011 * absa(ind1+9, ig) + & - fac111 * absa(ind1+10,ig)) - taur(lay,ngs27+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - speccomb = colo3(lay,icol) + strrat*colo2(lay,icol) - specparm = colo3(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 4. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - fac000 = (1. - fs) * fac00(lay,icol) - fac010 = (1. - fs) * fac10(lay,icol) - fac100 = fs * fac00(lay,icol) - fac110 = fs * fac10(lay,icol) - fac001 = (1. - fs) * fac01(lay,icol) - fac011 = (1. - fs) * fac11(lay,icol) - fac101 = fs * fac01(lay,icol) - fac111 = fs * fac11(lay,icol) - ind0 = ((jp(lay,icol)-13)*5+(jt (lay,icol)-1))*nspb(28) + js - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(28) + js - tauray = colmol(lay,icol) * rayl - do ig = 1,ng28 - taug(lay,ngs27+ig,icol) = speccomb * & - (fac000 * absb(ind0, ig) + & - fac100 * absb(ind0+1,ig) + & - fac010 * absb(ind0+5,ig) + & - fac110 * absb(ind0+6,ig) + & - fac001 * absb(ind1, ig) + & - fac101 * absb(ind1+1,ig) + & - fac011 * absb(ind1+5,ig) + & - fac111 * absb(ind1+6,ig)) - taur(lay,ngs27+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - laysolfr = nlay - do lay = laytrop(icol)+1,nlay - if (jp(lay-1,icol) < layreffr .and. jp(lay,icol) >= layreffr) & - laysolfr = lay - if (lay == laysolfr) then - speccomb = colo3(lay,icol) + strrat*colo2(lay,icol) - specparm = colo3(lay,icol) / speccomb - if (specparm >= oneminus) specparm = oneminus - specmult = 4. * specparm - js = 1 + int(specmult) - fs = mod(specmult, 1.) - if (isolvar < 0) then - do ig = 1,ng28 - sfluxzen(ngs27+ig,icol) = LIN2_ARG2(sfluxref,ig,js,fs) - enddo - elseif (isolvar >= 0 .and. isolvar <= 2) then - do ig = 1,ng28 - ssi(ngs27+ig,icol) = & - svar_f * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i * LIN2_ARG2(irradnce,ig,js,fs) - enddo - elseif (isolvar == 3) then - do ig = 1,ng28 - ssi(ngs27+ig,icol) = & - svar_f_bnd(ngb(ngs27+ig)) * LIN2_ARG2(facbrght,ig,js,fs) + & - svar_s_bnd(ngb(ngs27+ig)) * LIN2_ARG2(snsptdrk,ig,js,fs) + & - svar_i_bnd(ngb(ngs27+ig)) * LIN2_ARG2(irradnce,ig,js,fs) - enddo - endif - exit - endif - enddo - enddo - - end subroutine taumol28 - - !---------------------------------------------------------------------------- - subroutine taumol29(pncol, ncol, nlay, & - colh2o, colco2, colch4, colo2, colo3, colmol, & - laytrop, jp, jt, jt1, & - fac00, fac01, fac10, fac11, & - isolvar, svar_f, svar_s, svar_i, & - svar_f_bnd, svar_s_bnd, svar_i_bnd, & - selffac, selffrac, indself, forfac, forfrac, indfor, & - ssi, sfluxzen, taug, taur) - !---------------------------------------------------------------------------- - ! - ! band 29: 820-2600 cm-1 (low - h2o; high - co2) - ! - !---------------------------------------------------------------------------- - - use parrrsw, only : ng29, ngs28 - use rrsw_kg29, only : absa, ka, absb, kb, forref, selfref, & - sfluxref, absh2o, absco2, rayl, & - irradnce, facbrght, snsptdrk - use rrsw_wvn, only : ngb - - integer, intent(in) :: pncol, ncol, nlay - integer, intent(in) :: laytrop (pncol) - integer, intent(in), dimension (nlay,pncol) :: jp, jt, jt1 - real, intent(in), dimension (nlay,pncol) :: & - colh2o, colco2, colo3, colch4, colo2, colmol - integer, intent(in), dimension (nlay,pncol) :: indself, indfor - real, intent(in), dimension (nlay,pncol) :: & - selffac, selffrac, forfac, forfrac - real, intent(in), dimension (nlay,pncol) & - :: fac00, fac01, fac10, fac11 - integer, intent(in) :: isolvar - real, intent(in) :: svar_f, svar_s, svar_i - real, intent(in), dimension (jpband) :: & - svar_f_bnd, svar_s_bnd, svar_i_bnd - - real, intent(inout) :: ssi (ngptsw,pncol) - real, intent(inout) :: sfluxzen (ngptsw,pncol) - real, intent(inout) :: taug (nlay,ngptsw,pncol) - real, intent(inout) :: taur (nlay,ngptsw,pncol) - - integer :: icol, ig, ind0, ind1, inds, indf, js, lay - real :: fac000, fac001, fac010, fac011, fac100, fac101, fac110, fac111, & - fs, speccomb, specmult, specparm, tauray - -! layreffr = 49 ! not actually needed but preserve these lines -! (was an upper atmosphere loop with default laysolfr = nlay) - - do icol = 1,ncol - do lay = 1,laytrop(icol) - ind0 = ((jp(lay,icol)-1)*5+(jt (lay,icol)-1))*nspa(29) + 1 - ind1 = ( jp(lay,icol) *5+(jt1(lay,icol)-1))*nspa(29) + 1 - inds = indself(lay,icol) - indf = indfor(lay,icol) - tauray = colmol(lay,icol) * rayl - do ig = 1,ng29 - taug(lay,ngs28+ig,icol) = colh2o(lay,icol) * & - ((fac00(lay,icol) * absa(ind0, ig) + & - fac10(lay,icol) * absa(ind0+1,ig) + & - fac01(lay,icol) * absa(ind1, ig) + & - fac11(lay,icol) * absa(ind1+1,ig)) + & - selffac(lay,icol) * LIN2_ARG1(selfref,inds,ig,selffrac(lay,icol)) + & - forfac (lay,icol) * LIN2_ARG1( forref,indf,ig, forfrac(lay,icol))) & - + colco2(lay,icol) * absco2(ig) - taur(lay,ngs28+ig,icol) = tauray - enddo - enddo - enddo - - do icol = 1,ncol - do lay = laytrop(icol)+1,nlay - ind0 = ((jp(lay,icol)-13)*5+(jt (lay,icol)-1))*nspb(29) + 1 - ind1 = ((jp(lay,icol)-12)*5+(jt1(lay,icol)-1))*nspb(29) + 1 - tauray = colmol(lay,icol) * rayl - do ig = 1,ng29 - taug(lay,ngs28+ig,icol) = colco2(lay,icol) * & - (fac00(lay,icol) * absb(ind0, ig) + & - fac10(lay,icol) * absb(ind0+1,ig) + & - fac01(lay,icol) * absb(ind1, ig) + & - fac11(lay,icol) * absb(ind1+1,ig)) & - + colh2o(lay,icol) * absh2o(ig) - taur(lay,ngs28+ig,icol) = tauray - enddo - enddo - enddo - - if (isolvar < 0) then - do icol = 1,ncol - do ig = 1,ng29 - sfluxzen(ngs28+ig,icol) = sfluxref(ig) - enddo - enddo - elseif (isolvar >= 0 .and. isolvar <= 2) then - do icol = 1,ncol - do ig = 1,ng29 - ssi(ngs28+ig,icol) = svar_f * facbrght(ig) + & - svar_s * snsptdrk(ig) + & - svar_i * irradnce(ig) - enddo - enddo - elseif (isolvar == 3) then - do icol = 1,ncol - do ig = 1,ng29 - ssi(ngs28+ig,icol) = svar_f_bnd(ngb(ngs28+ig)) * facbrght(ig) + & - svar_s_bnd(ngb(ngs28+ig)) * snsptdrk(ig) + & - svar_i_bnd(ngb(ngs28+ig)) * irradnce(ig) - enddo - enddo - endif - - end subroutine taumol29 - -end module rrtmg_sw_taumol diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/SolarDoc.pdf b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/SolarDoc.pdf deleted file mode 100755 index f9bca91df..000000000 Binary files a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/SolarDoc.pdf and /dev/null differ diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/sorad.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/sorad.F90 deleted file mode 100644 index a554605f3..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/sorad.F90 +++ /dev/null @@ -1,1927 +0,0 @@ -! $Id$ - -module soradmod - -#ifdef _CUDA - use cudafor -#else - use sorad_constants, only: & - wk_uv, zk_uv, ry_uv, & - xk_ir, ry_ir, & - cah, coa - use rad_constants, only: & - aig_uv, awg_uv, arg_uv, & - aib_uv, awb_uv, arb_uv, & - aib_nir, awb_nir, arb_nir, & - aia_nir, awa_nir, ara_nir, & - aig_nir, awg_nir, arg_nir, & - caib, caif - use gettau -#endif - - use MAPL_ConstantsMod, only: MAPL_R4, MAPL_R8, MAPL_GRAV - - implicit none - -#ifndef _CUDA - private - - public sorad -#endif - -#ifdef _CUDA - - ! Device inputs - ! ------------- - - real, allocatable, device :: cosz_dev(:) - real, allocatable, device :: pl_dev(:,:) - real, allocatable, device :: ta_dev(:,:) - real, allocatable, device :: wa_dev(:,:) - real, allocatable, device :: oa_dev(:,:) - real, allocatable, device :: cwc_dev(:,:,:) - real, allocatable, device :: fcld_dev(:,:) - real, allocatable, device :: reff_dev(:,:,:) - real, allocatable, device :: rsuvbm_dev(:) - real, allocatable, device :: rsuvdf_dev(:) - real, allocatable, device :: rsirbm_dev(:) - real, allocatable, device :: rsirdf_dev(:) - real, allocatable, device :: taua_dev(:,:,:) - real, allocatable, device :: ssaa_dev(:,:,:) - real, allocatable, device :: asya_dev(:,:,:) - - real, allocatable, device :: coa(:,:) - real, allocatable, device :: cah(:,:) - real, allocatable, device :: caib(:,:,:) - real, allocatable, device :: caif(:,:) - - ! Device outputs - ! --------------- - - real, allocatable, device :: flx_dev(:,:) - real, allocatable, device :: flc_dev(:,:) - real, allocatable, device :: flxu_dev(:,:) - real, allocatable, device :: flcu_dev(:,:) - real, allocatable, device :: fdiruv_dev(:) - real, allocatable, device :: fdifuv_dev(:) - real, allocatable, device :: fdirpar_dev(:) - real, allocatable, device :: fdifpar_dev(:) - real, allocatable, device :: fdirir_dev(:) - real, allocatable, device :: fdifir_dev(:) - - real, allocatable, device :: flx_sfc_band_dev(:,:) - - ! Constant Memory - ! --------------- - - real, dimension(5), constant :: hk_uv - real, dimension(5), constant :: wk_uv - real, dimension(5), constant :: zk_uv - real, dimension(5), constant :: ry_uv - real, dimension(3), constant :: aig_uv - real, dimension(3), constant :: awg_uv - real, dimension(3), constant :: arg_uv - real, constant :: aib_uv - real, dimension(2), constant :: awb_uv - real, dimension(2), constant :: arb_uv - - real, dimension(3,10), constant :: hk_ir - real, dimension(10), constant :: xk_ir - real, dimension(3), constant :: ry_ir - real, constant :: aib_nir - real, dimension(3,2), constant :: awb_nir - real, dimension(3,2), constant :: arb_nir - real, dimension(3,3), constant :: aia_nir - real, dimension(3,3), constant :: awa_nir - real, dimension(3,3), constant :: ara_nir - real, dimension(3,3), constant :: aig_nir - real, dimension(3,3), constant :: awg_nir - real, dimension(3,3), constant :: arg_nir -#endif - - ! Parameters - ! ---------- - - integer, parameter :: nu = 43 - integer, parameter :: nw = 37 - integer, parameter :: nx = 62 - integer, parameter :: ny = 101 - integer, parameter :: nband_uv = 5 - integer, parameter :: nk_ir = 10 - integer, parameter :: nband_ir = 3 - - integer, parameter :: nband = nband_uv + nband_ir - - real, parameter :: dsm = 0.602 - -contains - -#ifdef _CUDA - attributes(global) subroutine sorad (m,np,nb,co2,ict,icb) -#else - subroutine sorad (m,np,nb,cosz_dev,pl_dev,ta_dev,wa_dev,oa_dev,co2,& - cwc_dev,fcld_dev,ict,icb,reff_dev,hk_uv,hk_ir,& - taua_dev,ssaa_dev,asya_dev,& - rsuvbm_dev,rsuvdf_dev,rsirbm_dev,rsirdf_dev,& - flx_dev,flc_dev,fdiruv_dev,fdifuv_dev,& - fdirpar_dev,fdifpar_dev,fdirir_dev,fdifir_dev,& - flxu_dev,flcu_dev,& - flx_sfc_band_dev& -) -#endif - - -!********************************************************************** -! Changes in November 2011: -! Code rewritten to pass in the full taua, ssaa, and asya arrays -! in echo of the old, original sorad.f. This is done to allow for -! RRTMG aerosol work to be done similarly in the GC. - -! Changes in July 2010: -! -! (1) Code relooped to have one, main loop over the soundings, many -! arrays reduced in dimensionality, some to scalars. -! (2) Instead of calling to external aerosol Mie code, efficiency and -! asymmetry tables are now passed in. -! -! Changes in August 2004: -! -! (1) A layer was added above pl(1) to account for the absorption -! in the region 0-pl(1) hPa. pl(1) can be either 0 or >0 hPa. -! (2) All parameters in the subroutine deledd were assigned to real*8 -! (3) The minimun values of water vapor and ozone, as well as tausto, -! were changed to avoid computer precision problem. -! -!*********************************************************************** -! -! -! The maximum-random assumption is applied for treating cloud -! overlapping. Clouds are grouped into high, middle, and low clouds -! separated by the level indices ict and icb. Note: ict must be -! less than icb, and icb must be less than np+1. -! -! In a high spatial-resolution atmospheric model, fractional cloud cover -! might be computed to be either 0 or 1. In such a case, scaling of the -! cloud optical thickness is not necessary, and the computation can be -! made faster by compiling with -DOVERCAST. Otherwise, do not compile -! with the -DOVERCAST flag. (note: for the case that fractional cloud -! cover in a layer is either 0 or 1, the results of using either option -! are identical). -! -!----- Input parameters (NOTE: _dev suffix is left off of input arrays -! for clarity's sake. _dev is needed to prevent -! GPU nameclash): -! units size -! number of soundings (m) n/d 1 -! number of atmospheric layers (np) n/d 1 -! number of bands (nb) n/d 1 -! cosine of solar zenith angle (cosz) n/d m -! level pressure (pl) mb m*(np+1) -! pl(np+1) is the surface pressure -! layer temperature (ta) k m*np -! layer specific humidity (wa) gm/gm m*np -! layer ozone concentration (oa) gm/gm m*np -! co2 mixing ratio by volume (co2) pppv 1 -! option for scaling cloud optical thickness n/d 1 -! overcast="true" if scaling is NOT required -! (the case that cloud cover is either 0 or 1) -! overcast="false" if scaling is required -! cloud water mixing ratio (cwc) gm/gm m*np*3 -! index 1 for ice particle -! index 2 for liquid drops -! index 3 for rain drops -! index 4 for snow -! cloud amount (fcld) fraction m*np -! level index separating high and middle n/d 1 -! clouds (ict) -! level index separating middle and low n/d 1 -! clouds (icb) -! effective size of cloud particles (reff) micron m*np*3 -! index 1 for ice -! index 2 for water drops -! index 3 rain (not used in this code) -! index 4 snow -! aerosol optical thickness (taua) n/d m*np*nb -! aerosol single scattering albedo (ssaa) n/d m*np*nb -! aerosol asymmetry factor (asya) n/d m*np*nb -! surface reflectivity -! in the UV+par region: -! for beam insolation (rsuvbm) fraction m -! for diffuse insolation (rsuvdf) fraction m -! in the near-ir region: -! for beam insolation (rsirbm) fraction m -! for diffuse insolation (rsirdf) fraction m -! -! The 8 bands are: -! -! in the uv region : -! index 1 for the 0.225-0.285 micron band -! index 2 for the 0.175-0.225;0.285-0.300 micron band -! index 3 for the 0.300-0.325 micron band -! index 4 for the 0.325-0.4 micron band -! in the par region : -! index 5 for the 0.4-0.690 micron band -! in the infrared region : -! index 6 for the 0.690-1.220 micron band -! index 7 for the 1.220-2.270 micron band -! index 8 for the 2.270-3.850 micron band -! -!----- Output parameters -! -! all-sky flux (downward minus upward) (flx) fraction m*(np+1) -! clear-sky flux (downward minus upward) (flc) fraction m*(np+1) -! all-sky direct downward uv (0.175-0.4 micron) -! flux at the surface (fdiruv) fraction m -! all-sky diffuse downward uv flux at -! the surface (fdifuv) fraction m -! all-sky direct downward par (0.4-0.69 micron) -! flux at the surface (fdirpar) fraction m -! all-sky diffuse downward par flux at -! the surface (fdifpar) fraction m -! all-sky direct downward ir (0.69-10 micron) -! flux at the surface (fdirir) fraction m -! all-sky diffuse downward ir flux at -! the surface (fdifir) fraction m -! all-sky upward flux (flxu) fraction m*(np+1) -! clear-sky upward flux (flcu) fraction m*(np+1) -! all-sky flux (downward minus upward) fraction m*nb -! per band at the surface -! (flx_sfc_band) -! -!----- Notes: -! -! (1) The unit of output fluxes (flx,flc,etc.) is fraction of the total -! insolation at the top of the atmosphere. Therefore, fluxes -! are the output fluxes multiplied by the extra-terrestrial solar -! flux and the cosine of the solar zenith angle. -! (2) pl(*,1) is the pressure at the top of the model, and -! pl(*,np+1) is the surface pressure. -! (3) the pressure levels ict and icb correspond approximately -! to 400 and 700 mb. -! -!-----Please notify Ming-Dah Chou for coding errors. -! -!************************************************************************* - implicit none - - -!-----input values - -#ifdef _CUDA - integer, value :: m,np,ict,icb,nb - real, value :: co2 -#else -!-----input parameters - - integer m,np,ict,icb,nb - real cosz_dev(m),pl_dev(m,np+1),ta_dev(m,np),wa_dev(m,np),oa_dev(m,np),co2 - real cwc_dev(m,np,4),fcld_dev(m,np),reff_dev(m,np,4), hk_uv(5),hk_ir(3,10) - real rsuvbm_dev(m),rsuvdf_dev(m),rsirbm_dev(m),rsirdf_dev(m) - - real taua_dev(m,np,nb) - real ssaa_dev(m,np,nb) - real asya_dev(m,np,nb) - -!-----output parameters - - real flx_dev(m,np+1),flc_dev(m,np+1) - real flxu_dev(m,np+1),flcu_dev(m,np+1) - real fdiruv_dev (m),fdifuv_dev (m) - real fdirpar_dev(m),fdifpar_dev(m) - real fdirir_dev (m),fdifir_dev (m) - real flx_sfc_band_dev(m,nband) -#endif - -!-----temporary arrays - -!GPU This is needed to allocate space for temporary local arrays on the GPU. -!GPU On the CPU this ifndef converts it back to np. - -#ifndef GPU_MAXLEVS -#define GPU_MAXLEVS np -#endif - - integer :: i,k,l,ntop - - real :: dp(GPU_MAXLEVS),wh(GPU_MAXLEVS),oh(GPU_MAXLEVS) - real :: scal(GPU_MAXLEVS) - real :: swh(GPU_MAXLEVS+1),so2(GPU_MAXLEVS+1),df(0:GPU_MAXLEVS+1) - real :: scal0, wvtoa, o3toa, pa - real :: snt,cnt,xx4,xtoa - real :: dp_pa(GPU_MAXLEVS) - -!-----parameters for co2 transmission tables - - real :: w1,dw,u1,du - - integer :: ib - real :: tauclb(GPU_MAXLEVS),tauclf(GPU_MAXLEVS),asycl(GPU_MAXLEVS) - real :: taubeam(GPU_MAXLEVS,4),taudiff(GPU_MAXLEVS,4) - real :: fcld_col(GPU_MAXLEVS) - real :: cwc_col(GPU_MAXLEVS,4) - real :: reff_col(GPU_MAXLEVS,4) - real :: taurs,tauoz,tauwv - real :: tausto,ssatau,asysto - real :: tautob,ssatob,asytob - real :: tautof,ssatof,asytof - real :: rr(0:GPU_MAXLEVS+1,2),tt(0:GPU_MAXLEVS+1,2),td(0:GPU_MAXLEVS+1,2) - real :: rs(0:GPU_MAXLEVS+1,2),ts(0:GPU_MAXLEVS+1,2) - real :: fall(GPU_MAXLEVS+1),fclr(GPU_MAXLEVS+1),fsdir,fsdif - real :: fupa(GPU_MAXLEVS+1),fupc(GPU_MAXLEVS+1) - real :: cc1,cc2,cc3 - real :: rrt,ttt,tdt,rst,tst - - integer :: iv,ik - real :: ssacl(GPU_MAXLEVS) - - integer :: im - - integer :: ic,iw - real :: ulog,wlog,dc,dd,x0,x1,x2,y0,y1,y2,du2,dw2 - - integer :: ih -#ifdef OVERCAST - real :: rra(0:GPU_MAXLEVS+1),rxa(0:GPU_MAXLEVS+1) - real :: ttaold,tdaold,rsaold - real :: ttanew,tdanew,rsanew -#else - real :: rra(0:GPU_MAXLEVS+1,2,2),tta(0:GPU_MAXLEVS,2,2) - real :: tda(0:GPU_MAXLEVS,2,2) - real :: rsa(0:GPU_MAXLEVS,2,2),rxa(0:GPU_MAXLEVS+1,2,2) -#endif - real :: flxdn - real :: fdndir,fdndif,fupdif - real :: denm,yy - - integer :: is - real :: ch,cm,ct - - integer :: foundtop - real :: dftop - - real :: dum - -#ifdef _CUDA -!GPU--Initialize i for thread indexing - i = (blockidx%x - 1) * blockdim%x + threadidx%x - - RUN_LOOP: if (i <= m) then -#else - RUN_LOOP: do i=1,m -#endif - -!GPU--GPU needs these variables initiated - - ntop = 0 - fdndir = 0.0 - fdndif = 0.0 - -!-----Beginning of sorad code - -!-----wvtoa and o3toa are the water vapor and o3 amounts of the region -! above the pl(1) level. -! snt is the secant of the solar zenith angle - - snt = 1.0/cosz_dev(i) - xtoa = max(pl_dev(i,1),1.e-3) - scal0 = xtoa*(0.5*xtoa/300.)**.8 - o3toa = 1.02*oa_dev(i,1)*xtoa*466.7 + 1.0e-8 - wvtoa = 1.02*wa_dev(i,1)*scal0 * (1.0+0.00135*(ta_dev(i,1)-240.)) + 1.0e-9 - swh(1) = wvtoa - - do k=1,np - -!-----compute layer thickness. indices for the surface level and -! surface layer are np+1 and np, respectively. - - dp(k) = pl_dev(i,k+1)-pl_dev(i,k) - dp_pa(k) = dp(k) * 100. ! dp in pascals - -!-----compute scaled water vapor amount following Eqs. (3.3) and (3.5) -! unit is g/cm**2 -! - pa = 0.5*(pl_dev(i,k)+pl_dev(i,k+1)) - scal(k) = dp(k)*(pa/300.)**.8 - wh(k) = 1.02*wa_dev(i,k)*scal(k) * (1.+0.00135*(ta_dev(i,k)-240.)) + 1.e-9 - swh(k+1)= swh(k)+wh(k) - -!-----compute ozone amount, unit is (cm-atm)stp -! the number 466.7 is the unit conversion factor -! from g/cm**2 to (cm-atm)stp - - oh(k) = 1.02*oa_dev(i,k)*dp(k)*466.7 + 1.e-8 - -!-----Fill the reff, cwc, and fcld for the column - - fcld_col(k) = fcld_dev(i,k) - do l = 1, 4 - reff_col(k,l) = reff_dev(i,k,l) - cwc_col(k,l) = cwc_dev(i,k,l) - end do - - end do - -!-----Initialize temporary arrays to zero to avoid UMR - - rr = 0.0 - tt = 0.0 - td = 0.0 - rs = 0.0 - ts = 0.0 - - rra = 0.0 - rxa = 0.0 -#ifndef OVERCAST - tta = 0.0 - tda = 0.0 - rsa = 0.0 -#endif - -!-----initialize fluxes for all-sky (flx), clear-sky (flc), and -! flux reduction (df) -! - do k=1,np+1 - flx_dev(i,k)=0. - flc_dev(i,k)=0. - flxu_dev(i,k)=0. - flcu_dev(i,k)=0. - end do - -!-----Initialize new per-band surface fluxes - - do ib = 1, nband - flx_sfc_band_dev(i,ib) = 0. - end do - -!-----Begin inline of SOLUV - -!-----compute solar uv and par fluxes - -!-----initialize fdiruv, fdifuv, surface reflectances and transmittances. -! the reflectance and transmittance of the clear and cloudy portions -! of a layer are denoted by 1 and 2, respectively. -! cc is the maximum cloud cover in each of the high, middle, and low -! cloud groups. -! 1/dsm=1/cos(53) = 1.66 - - fdiruv_dev(i)=0.0 - fdifuv_dev(i)=0.0 - rr(np+1,1)=rsuvbm_dev(i) - rr(np+1,2)=rsuvbm_dev(i) - rs(np+1,1)=rsuvdf_dev(i) - rs(np+1,2)=rsuvdf_dev(i) - td(np+1,1)=0.0 - td(np+1,2)=0.0 - tt(np+1,1)=0.0 - tt(np+1,2)=0.0 - ts(np+1,1)=0.0 - ts(np+1,2)=0.0 - rr(0,1)=0.0 - rr(0,2)=0.0 - rs(0,1)=0.0 - rs(0,2)=0.0 -! td(0,1)=1.0 -! td(0,2)=1.0 - tt(0,1)=1.0 - tt(0,2)=1.0 - ts(0,1)=1.0 - ts(0,2)=1.0 - cc1=0.0 - cc2=0.0 - cc3=0.0 - -!-----options for scaling cloud optical thickness - -#ifdef OVERCAST - -!-----Compute cloud optical thickness. Eqs. (4.6) and (4.10) and -! compute cloud asymmetry factor -! Note: the cloud optical properties are assumed to be independent -! of spectral bands in the UV and PAR regions. -! for a mixture of ice and liquid particles. -! Eqs.(4.6)-(4.8), (6.2)-(6.4) -! -! The indices 1, 2, 3, 4 are for ice, water, rain, snow particles, -! respectively. - - call getvistau(np,cosz_dev(i),dp_pa,fcld_col,reff_col,cwc_col,0,0,& - taubeam,taudiff,asycl) - -#else - -!-----Compute scaled cloud optical thickness. Eqs. (4.6) and (4.10) and -! compute cloud asymmetry factor -! Note: the cloud optical properties are assumed to be independent -! of spectral bands in the UV and PAR regions. -! for a mixture of ice and liquid particles. -! Eqs.(4.6)-(4.8), (6.2)-(6.4) -! -! The indices 1, 2, 3, 4 are for ice, water, rain, snow particles, -! respectively. - - call getvistau(np,cosz_dev(i),dp_pa,fcld_col,reff_col,cwc_col,ict,icb,& - taubeam,taudiff,asycl) - -!-----clouds within each of the high, middle, and low clouds are -! assumed to be maximally overlapped, and the cloud cover (cc) -! for a group (high, middle, or low) is the maximum cloud cover -! of all the layers within a group -! The cc1,2,3 are still needed in the flux calculations below - -!MAT---DO NOT FUSE THIS LOOP -!MAT---Loop must run to completion so that cc[1,2,3] are correct. - do k=1,np - if (k.lt.ict) then - cc1=max(cc1,fcld_dev(i,k)) - elseif (k.lt.icb) then - cc2=max(cc2,fcld_dev(i,k)) - else - cc3=max(cc3,fcld_dev(i,k)) - end if - end do -!MAT---DO NOT FUSE THIS LOOP - -#endif - - do k=1,np - tauclb(k)=taubeam(k,1)+taubeam(k,2)+taubeam(k,3)+taubeam(k,4) - tauclf(k)=taudiff(k,1)+taudiff(k,2)+taudiff(k,3)+taudiff(k,4) - end do - -!-----integration over spectral bands - -!-----Compute optical thickness, single-scattering albedo and asymmetry -! factor for a mixture of "na" aerosol types. [Eqs. (4.16)-(4.18)] - - do ib=1,nband_uv - -!-----compute direct beam transmittances of the layer above pl(1) - - td(0,1)=exp(-(wvtoa*wk_uv(ib)+o3toa*zk_uv(ib))/cosz_dev(i)) - td(0,2)=td(0,1) - - do k=1,np - -!-----compute clear-sky optical thickness, single scattering albedo, -! and asymmetry factor (Eqs. 6.2-6.4) - - taurs=ry_uv(ib)*dp(k) - tauoz=zk_uv(ib)*oh(k) - tauwv=wk_uv(ib)*wh(k) - - tausto=taurs+tauoz+tauwv+taua_dev(i,k,ib)+1.0e-7 - ssatau=ssaa_dev(i,k,ib)+taurs - asysto=asya_dev(i,k,ib) - - tautob=tausto - asytob=asysto/ssatau - ssatob=ssatau/tautob+1.0e-8 - ssatob=min(ssatob,0.999999) - -!-----for direct incident radiation - - call deledd(tautob,ssatob,asytob,cosz_dev(i),rrt,ttt,tdt) - -!-----diffuse incident radiation is approximated by beam radiation with -! an incident angle of 53 degrees, Eqs. (6.5) and (6.6) - - call deledd(tautob,ssatob,asytob,dsm,rst,tst,dum) - - rr(k,1)=rrt - tt(k,1)=ttt - td(k,1)=tdt - rs(k,1)=rst - ts(k,1)=tst - -!-----compute reflectance and transmittance of the cloudy portion -! of a layer - -!-----for direct incident radiation -! The effective layer optical properties. Eqs. (6.2)-(6.4) - - tautob=tausto+tauclb(k) - ssatob=(ssatau+tauclb(k))/tautob+1.0e-8 - ssatob=min(ssatob,0.999999) - asytob=(asysto+asycl(k)*tauclb(k))/(ssatob*tautob) - -!-----for diffuse incident radiation - - tautof=tausto+tauclf(k) - ssatof=(ssatau+tauclf(k))/tautof+1.0e-8 - ssatof=min(ssatof,0.999999) - asytof=(asysto+asycl(k)*tauclf(k))/(ssatof*tautof) - -!-----for direct incident radiation -! note that the cloud optical thickness is scaled differently -! for direct and diffuse insolation, Eqs. (7.3) and (7.4). - - call deledd(tautob,ssatob,asytob,cosz_dev(i),rrt,ttt,tdt) - -!-----diffuse incident radiation is approximated by beam radiation -! with an incident angle of 53 degrees, Eqs. (6.5) and (6.6) - - call deledd(tautof,ssatof,asytof,dsm,rst,tst,dum) - - rr(k,2)=rrt - tt(k,2)=ttt - td(k,2)=tdt - rs(k,2)=rst - ts(k,2)=tst - end do - -!-----flux calculations -! initialize clear-sky flux (fclr), all-sky flux (fall), -! and surface downward fluxes (fsdir and fsdif) - - do k=1,np+1 - fclr(k)=0.0 - fall(k)=0.0 - fupa(k)=0.0 - fupc(k)=0.0 - end do - - fsdir=0.0 - fsdif=0.0 - -#ifdef OVERCAST - -!-----Inline CLDFLXY - -!-----for clear- and all-sky flux calculations when fractional -! cloud cover is either 0 or 1. - -!-----layers are added one at a time, going up from the surface. -! rra is the composite reflectance illuminated by beam radiation -! rxa is the composite reflectance illuminated from above -! by diffuse radiation -! rra and rxa are computed from Eqs. (6.9) and (6.11) - -!-----compute transmittances and reflectances for a composite of -! layers. layers are added one at a time, going down from the top. -! tda is the composite direct transmittance illuminated by -! beam radiation -! tta is the composite total transmittance illuminated by -! beam radiation -! rsa is the composite reflectance illuminated from below -! by diffuse radiation -! tta and rsa are computed from Eqs. (6.10) and (6.12) - -!-----compute fluxes following Eq. (6.15) for fupdif and -! Eq. (6.16) for (fdndir+fdndif) - -! fdndir is the direct downward flux -! fdndif is the diffuse downward flux -! fupdif is the diffuse upward flux - -!-----ih=1 for clear sky; ih=2 for cloudy sky. - -!-----First set is ih = 1 - rra(np+1)=rr(np+1,1) - rxa(np+1)=rs(np+1,1) - - do k=np,0,-1 - denm=ts(k,1)/(1.-rs(k,1)*rxa(k+1)) - rra(k)=rr(k,1)+(td(k,1)*rra(k+1)+(tt(k,1)-td(k,1))*rxa(k+1))*denm - rxa(k)=rs(k,1)+ts(k,1)*rxa(k+1)*denm - end do - - tdaold = td(0,1) - ttaold = tt(0,1) - rsaold = rs(0,1) - - tdanew = 0.0 - ttanew = 0.0 - rsanew = 0.0 - - do k=1,np+1 - if (k <= np) then - denm=ts(k,1)/(1.-rsaold*rs(k,1)) - tdanew=tdaold*td(k,1) - ttanew=tdaold*tt(k,1)+(tdaold*rsaold*rr(k,1)+ttaold-tdaold)*denm - rsanew=rs(k,1)+ts(k,1)*rsaold*denm - end if - - denm=1./(1.-rsaold*rxa(k)) - fdndir=tdaold - xx4=tdaold*rra(k) - yy=ttaold-tdaold - fdndif=(xx4*rsaold+yy)*denm - fupdif=(xx4+yy*rxa(k))*denm - flxdn=fdndir+fdndif-fupdif - fupc(k)=fupdif - fclr(k)=flxdn - - tdaold = tdanew - ttaold = ttanew - rsaold = rsanew - - tdanew = 0.0 - ttanew = 0.0 - rsanew = 0.0 - end do - -!-----Second set is ih = 2 - - rra(np+1)=rr(np+1,2) - rxa(np+1)=rs(np+1,2) - - do k=np,0,-1 - denm=ts(k,2)/(1.-rs(k,2)*rxa(k+1)) - rra(k)=rr(k,2)+(td(k,2)*rra(k+1)+(tt(k,2)-td(k,2))*rxa(k+1))*denm - rxa(k)=rs(k,2)+ts(k,2)*rxa(k+1)*denm - end do - - tdaold = td(0,2) - ttaold = tt(0,2) - rsaold = rs(0,2) - - tdanew = 0.0 - ttanew = 0.0 - rsanew = 0.0 - - do k=1,np+1 - if (k <= np) then - denm=ts(k,2)/(1.-rsaold*rs(k,2)) - tdanew=tdaold*td(k,2) - ttanew=tdaold*tt(k,2)+(tdaold*rsaold*rr(k,2)+ttaold-tdaold)*denm - rsanew=rs(k,2)+ts(k,2)*rsaold*denm - end if - - denm=1./(1.-rsaold*rxa(k)) - fdndir=tdaold - xx4=tdaold*rra(k) - yy=ttaold-tdaold - fdndif=(xx4*rsaold+yy)*denm - fupdif=(xx4+yy*rxa(k))*denm - flxdn=fdndir+fdndif-fupdif - - fupa(k)=fupdif - fall(k)=flxdn - - tdaold = tdanew - ttaold = ttanew - rsaold = rsanew - - tdanew = 0.0 - ttanew = 0.0 - rsanew = 0.0 - end do - - fsdir=fdndir - fsdif=fdndif - -!-----End CLDFLXY inline - -#else - -!-----for clear- and all-sky flux calculations when fractional -! cloud cover is allowed to be between 0 and 1. -! the all-sky flux, fall is the summation inside the brackets -! of Eq. (7.11) - -!-----Inline CLDFLX - -!-----compute transmittances and reflectances for a composite of -! layers. layers are added one at a time, going down from the top. -! tda is the composite direct transmittance illuminated -! by beam radiation -! tta is the composite total transmittance illuminated by -! beam radiation -! rsa is the composite reflectance illuminated from below -! by diffuse radiation -! tta and rsa are computed from Eqs. (6.10) and (6.12) - -!-----To save memory space, tda, tta, and rsa are pre-computed -! for k=icb. -! the dimension of these parameters is (m,np,2,2). It would have -! been (m,np,2,2,2) if these parameters were computed for all k's. - -!-----for the low clouds -! is=1 for clear-sky condition, is=2 for cloudy-sky condition - - do is=1,2 - rra(np+1,1,is)=rr(np+1,is) - rxa(np+1,1,is)=rs(np+1,is) - rra(np+1,2,is)=rr(np+1,is) - rxa(np+1,2,is)=rs(np+1,is) - - do k=np,icb,-1 - denm=ts(k,is)/(1.-rs(k,is)*rxa(k+1,1,is)) - rra(k,1,is)=rr(k,is)+(td(k,is)*rra(k+1,1,is)+(tt(k,is)-td(k,is))& - *rxa(k+1,1,is))*denm - rxa(k,1,is)=rs(k,is)+ts(k,is)*rxa(k+1,1,is)*denm - rra(k,2,is)=rra(k,1,is) - rxa(k,2,is)=rxa(k,1,is) - end do ! k loop - -!-----for middle clouds - - do k=icb-1,ict,-1 - do im=1,2 - denm=ts(k,im)/(1.-rs(k,im)*rxa(k+1,im,is)) - rra(k,im,is)=rr(k,im)+(td(k,im)*rra(k+1,im,is)+(tt(k,im)-td(k,im))& - *rxa(k+1,im,is))*denm - rxa(k,im,is)=rs(k,im)+ts(k,im)*rxa(k+1,im,is)*denm - end do ! im loop - end do ! k loop - end do ! is loop - -!-----integration over eight sky situations. -! ih, im, is denote high, middle and low cloud groups. - - do ih=1,2 - -!-----clear portion - if(ih.eq.1) then - ch=1.0-cc1 -!-----cloudy portion - else - ch=cc1 - end if - - do im=1,2 -!-----clear portion - if(im.eq.1) then - cm=ch*(1.0-cc2) -!-----cloudy portion - else - cm=ch*cc2 - end if - - do is=1,2 -!-----clear portion - if(is.eq.1) then - ct=cm*(1.0-cc3) -!-----cloudy portion - else - ct=cm*cc3 - end if - -!-----add one layer at a time, going down. - - do k=icb,np - denm=ts(k,is)/(1.-rsa(k-1,ih,im)*rs(k,is)) - tda(k,ih,im)=tda(k-1,ih,im)*td(k,is) - tta(k,ih,im)=tda(k-1,ih,im)*tt(k,is)+(tda(k-1,ih,im)*rr(k,is)& - *rsa(k-1,ih,im)+tta(k-1,ih,im)-tda(k-1,ih,im))*denm - rsa(k,ih,im)=rs(k,is)+ts(k,is)*rsa(k-1,ih,im)*denm - end do ! k loop - -!-----add one layer at a time, going up. - - do k=ict-1,0,-1 - denm=ts(k,ih)/(1.-rs(k,ih)*rxa(k+1,im,is)) - rra(k,im,is)=rr(k,ih)+(td(k,ih)*rra(k+1,im,is)+(tt(k,ih)-td(k,ih))& - *rxa(k+1,im,is))*denm - rxa(k,im,is)=rs(k,ih)+ts(k,ih)*rxa(k+1,im,is)*denm - end do ! k loop - -!-----compute fluxes following Eq. (6.15) for fupdif and -! Eq. (6.16) for (fdndir+fdndif) - -! fdndir is the direct downward flux -! fdndif is the diffuse downward flux -! fupdif is the diffuse upward flux - - do k=1,np+1 - denm=1./(1.-rsa(k-1,ih,im)*rxa(k,im,is)) - fdndir=tda(k-1,ih,im) - xx4=tda(k-1,ih,im)*rra(k,im,is) - yy=tta(k-1,ih,im)-tda(k-1,ih,im) - fdndif=(xx4*rsa(k-1,ih,im)+yy)*denm - fupdif=(xx4+yy*rxa(k,im,is))*denm - flxdn=fdndir+fdndif-fupdif - -!-----summation of fluxes over all sky situations; -! the term in the brackets of Eq. (7.11) - - if(ih.eq.1 .and. im.eq.1 .and. is.eq.1) then - fupc(k)=fupdif - fclr(k)=flxdn - end if - fupa(k)=fupa(k)+fupdif*ct - fall(k)=fall(k)+flxdn*ct - end do ! k loop - fsdir=fsdir+fdndir*ct - fsdif=fsdif+fdndif*ct - end do ! is loop - end do ! im loop - end do ! ih loop - -!-----End CLDFLX inline - -#endif - -!-----flux integration, Eq. (6.1) - - do k=1,np+1 - flx_dev(i,k)=flx_dev(i,k)+fall(k)*hk_uv(ib) - flc_dev(i,k)=flc_dev(i,k)+fclr(k)*hk_uv(ib) - flxu_dev(i,k)=flxu_dev(i,k)+fupa(k)*hk_uv(ib) - flcu_dev(i,k)=flcu_dev(i,k)+fupc(k)*hk_uv(ib) - end do - -!-----get surface flux for each band - flx_sfc_band_dev(i,ib)=flx_sfc_band_dev(i,ib)+fall(np+1)*hk_uv(ib) - -!-----compute direct and diffuse downward surface fluxes in the UV -! and par regions - - if(ib.lt.5) then - fdiruv_dev(i)=fdiruv_dev(i)+fsdir*hk_uv(ib) - fdifuv_dev(i)=fdifuv_dev(i)+fsdif*hk_uv(ib) - else - fdirpar_dev(i)=fsdir*hk_uv(ib) - fdifpar_dev(i)=fsdif*hk_uv(ib) - end if - end do - -!-----Inline SOLIR - -!-----compute and update solar ir fluxes - - fdirir_dev(i)=0.0 - fdifir_dev(i)=0.0 - rr(np+1,1)=rsirbm_dev(i) - rr(np+1,2)=rsirbm_dev(i) - rs(np+1,1)=rsirdf_dev(i) - rs(np+1,2)=rsirdf_dev(i) - td(np+1,1)=0.0 - td(np+1,2)=0.0 - tt(np+1,1)=0.0 - tt(np+1,2)=0.0 - ts(np+1,1)=0.0 - ts(np+1,2)=0.0 - rr(0,1)=0.0 - rr(0,2)=0.0 - rs(0,1)=0.0 - rs(0,2)=0.0 -! td(0,1)=1.0 -! td(0,2)=1.0 - tt(0,1)=1.0 - tt(0,2)=1.0 - ts(0,1)=1.0 - ts(0,2)=1.0 - cc1=0.0 - cc2=0.0 - cc3=0.0 - -!-----integration over spectral bands - -!-----Compute cloud optical thickness. Eqs. (4.6) and (4.10) -! The indices 1, 2, 3 are for ice, water, rain particles, -! respectively. - - do ib=1,nband_ir - iv=ib+5 - -!-----options for scaling cloud optical thickness - -#ifdef OVERCAST - -!-----Compute cloud optical thickness. Eqs. (4.6) and (4.10) and -! compute cloud single scattering albedo and asymmetry factor -! for a mixture of ice and liquid particles. -! Eqs.(4.6)-(4.8), (6.2)-(6.4) -! -! The indices 1, 2, 3, 4 are for ice, water, rain, snow particles, -! respectively. - - call getnirtau(ib,np,cosz_dev(i),dp_pa,fcld_col,reff_col,cwc_col,0,0,& - taubeam,taudiff,asycl,ssacl) - -#else - -!-----Compute scaled cloud optical thickness. Eqs. (4.6) and (4.10) and -! compute cloud single scattering albedo and asymmetry factor -! for a mixture of ice and liquid particles. -! Eqs.(4.6)-(4.8), (6.2)-(6.4) -! -! The indices 1, 2, 3, 4 are for ice, water, rain, snow particles, -! respectively. - - call getnirtau(ib,np,cosz_dev(i),dp_pa,fcld_col,reff_col,cwc_col,ict,icb,& - taubeam,taudiff,asycl,ssacl) - -!-----clouds within each of the high, middle, and low clouds are -! assumed to be maximally overlapped, and the cloud cover (cc) -! for a group (high, middle, or low) is the maximum cloud cover -! of all the layers within a group - -!MAT--DO NOT FUSE THIS LOOP -!MAT Loop must run to completion so that cc[1,2,3] are correct. - do k=1,np - if (k.lt.ict) then - cc1=max(cc1,fcld_dev(i,k)) - elseif (k.lt.icb) then - cc2=max(cc2,fcld_dev(i,k)) - else - cc3=max(cc3,fcld_dev(i,k)) - end if - end do -!MAT--DO NOT FUSE THIS LOOP - -#endif - - do k=1,np - tauclb(k)=taubeam(k,1)+taubeam(k,2)+taubeam(k,3)+taubeam(k,4) - tauclf(k)=taudiff(k,1)+taudiff(k,2)+taudiff(k,3)+taudiff(k,4) - end do - - -!-----integration over the k-distribution function - - do ik=1,nk_ir - -!-----compute direct beam transmittances of the layer above pl(1) - - td(0,1)=exp(-wvtoa*xk_ir(ik)/cosz_dev(i)) - td(0,2)=td(0,1) - - do k=1,np - taurs=ry_ir(ib)*dp(k) - tauwv=xk_ir(ik)*wh(k) - -!-----compute clear-sky optical thickness, single scattering albedo, -! and asymmetry factor. Eqs.(6.2)-(6.4) - - tausto=taurs+tauwv+taua_dev(i,k,iv)+1.0e-7 - ssatau=ssaa_dev(i,k,iv)+taurs+1.0e-8 - asysto=asya_dev(i,k,iv) - tautob=tausto - asytob=asysto/ssatau - ssatob=ssatau/tautob+1.0e-8 - ssatob=min(ssatob,0.999999) - -!-----Compute reflectance and transmittance of the clear portion -! of a layer - -!-----for direct incident radiation - - call deledd(tautob,ssatob,asytob,cosz_dev(i),rrt,ttt,tdt) - -!-----diffuse incident radiation is approximated by beam radiation with -! an incident angle of 53 degrees, Eqs. (6.5) and (6.6) - - call deledd(tautob,ssatob,asytob,dsm,rst,tst,dum) - - rr(k,1)=rrt - tt(k,1)=ttt - td(k,1)=tdt - rs(k,1)=rst - ts(k,1)=tst - -!-----compute reflectance and transmittance of the cloudy portion -! of a layer - -!-----for direct incident radiation. Eqs.(6.2)-(6.4) - - tautob=tausto+tauclb(k) - ssatob=(ssatau+ssacl(k)*tauclb(k))/tautob+1.0e-8 - ssatob=min(ssatob,0.999999) - asytob=(asysto+asycl(k)*ssacl(k)*tauclb(k))/(ssatob*tautob) - -!-----for diffuse incident radiation - - tautof=tausto+tauclf(k) - ssatof=(ssatau+ssacl(k)*tauclf(k))/tautof+1.0e-8 - ssatof=min(ssatof,0.999999) - asytof=(asysto+asycl(k)*ssacl(k)*tauclf(k))/(ssatof*tautof) - -!-----for direct incident radiation - - call deledd(tautob,ssatob,asytob,cosz_dev(i),rrt,ttt,tdt) - -!-----diffuse incident radiation is approximated by beam radiation with -! an incident angle of 53 degrees, Eqs.(6.5) and (6.6) - - call deledd(tautof,ssatof,asytof,dsm,rst,tst,dum) - - rr(k,2)=rrt - tt(k,2)=ttt - td(k,2)=tdt - rs(k,2)=rst - ts(k,2)=tst - end do - -!-----FLUX CALCULATIONS - -! initialize clear-sky flux (fclr), all-sky flux (fall), -! and surface downward fluxes (fsdir and fsdif) - - do k=1,np+1 - fclr(k)=0.0 - fall(k)=0.0 - fupc(k)=0.0 - fupa(k)=0.0 - end do - - fsdir=0.0 - fsdif=0.0 - -!-----for clear- and all-sky flux calculations when fractional -! cloud cover is either 0 or 1. - -#ifdef OVERCAST - -!-----Inline CLDFLXY - -!-----layers are added one at a time, going up from the surface. -! rra is the composite reflectance illuminated by beam radiation -! rxa is the composite reflectance illuminated from above -! by diffuse radiation -! rra and rxa are computed from Eqs. (6.9) and (6.11) - -!-----compute transmittances and reflectances for a composite of -! layers. layers are added one at a time, going down from the top. -! tda is the composite direct transmittance illuminated by -! beam radiation -! tta is the composite total transmittance illuminated by -! beam radiation -! rsa is the composite reflectance illuminated from below -! by diffuse radiation -! tta and rsa are computed from Eqs. (6.10) and (6.12) - -!-----compute fluxes following Eq. (6.15) for fupdif and -! Eq. (6.16) for (fdndir+fdndif) - -! fdndir is the direct downward flux -! fdndif is the diffuse downward flux -! fupdif is the diffuse upward flux - -!-----ih=1 for clear sky; ih=2 for cloudy sky. - -!-----First set is ih = 1 - rra(np+1)=rr(np+1,1) - rxa(np+1)=rs(np+1,1) - - do k=np,0,-1 - denm=ts(k,1)/(1.-rs(k,1)*rxa(k+1)) - rra(k)=rr(k,1)+(td(k,1)*rra(k+1)+(tt(k,1)-td(k,1))*rxa(k+1))*denm - rxa(k)=rs(k,1)+ts(k,1)*rxa(k+1)*denm - end do - - tdaold = td(0,1) - ttaold = tt(0,1) - rsaold = rs(0,1) - - tdanew = 0.0 - ttanew = 0.0 - rsanew = 0.0 - - do k=1,np+1 - if (k <= np) then - denm=ts(k,1)/(1.-rsaold*rs(k,1)) - tdanew=tdaold*td(k,1) - ttanew=tdaold*tt(k,1)+(tdaold*rsaold*rr(k,1)+ttaold-tdaold)*denm - rsanew=rs(k,1)+ts(k,1)*rsaold*denm - end if - - denm=1./(1.-rsaold*rxa(k)) - fdndir=tdaold - xx4=tdaold*rra(k) - yy=ttaold-tdaold - fdndif=(xx4*rsaold+yy)*denm - fupdif=(xx4+yy*rxa(k))*denm - flxdn=fdndir+fdndif-fupdif - - fupc(k)=fupdif - fclr(k)=flxdn - - tdaold = tdanew - ttaold = ttanew - rsaold = rsanew - - tdanew = 0.0 - ttanew = 0.0 - rsanew = 0.0 - end do - -!-----Second set is ih = 2 - - rra(np+1)=rr(np+1,2) - rxa(np+1)=rs(np+1,2) - - do k=np,0,-1 - denm=ts(k,2)/(1.-rs(k,2)*rxa(k+1)) - rra(k)=rr(k,2)+(td(k,2)*rra(k+1)+(tt(k,2)-td(k,2))*rxa(k+1))*denm - rxa(k)=rs(k,2)+ts(k,2)*rxa(k+1)*denm - end do - - tdaold = td(0,2) - ttaold = tt(0,2) - rsaold = rs(0,2) - - tdanew = 0.0 - ttanew = 0.0 - rsanew = 0.0 - - do k=1,np+1 - if (k <= np) then - denm=ts(k,2)/(1.-rsaold*rs(k,2)) - tdanew=tdaold*td(k,2) - ttanew=tdaold*tt(k,2)+(tdaold*rsaold*rr(k,2)+ttaold-tdaold)*denm - rsanew=rs(k,2)+ts(k,2)*rsaold*denm - end if - - denm=1./(1.-rsaold*rxa(k)) - fdndir=tdaold - xx4=tdaold*rra(k) - yy=ttaold-tdaold - fdndif=(xx4*rsaold+yy)*denm - fupdif=(xx4+yy*rxa(k))*denm - flxdn=fdndir+fdndif-fupdif - - fupa(k)=fupdif - fall(k)=flxdn - - tdaold = tdanew - ttaold = ttanew - rsaold = rsanew - - tdanew = 0.0 - ttanew = 0.0 - rsanew = 0.0 - end do - - fsdir=fdndir - fsdif=fdndif - -!-----End CLDFLXY inline - -#else - -!-----for clear- and all-sky flux calculations when fractional -! cloud cover is allowed to be between 0 and 1. -! the all-sky flux, fall is the summation inside the brackets -! of Eq. (7.11) - -!-----Inline CLDFLX - -!-----compute transmittances and reflectances for a composite of -! layers. layers are added one at a time, going down from the top. -! tda is the composite direct transmittance illuminated -! by beam radiation -! tta is the composite total transmittance illuminated by -! beam radiation -! rsa is the composite reflectance illuminated from below -! by diffuse radiation -! tta and rsa are computed from Eqs. (6.10) and (6.12) - -!-----To save memory space, tda, tta, and rsa are pre-computed -! for k=icb. -! the dimension of these parameters is (m,np,2,2). It would have -! been (m,np,2,2,2) if these parameters were computed for all k's. - -!-----for the low clouds -! is=1 for clear-sky condition, is=2 for cloudy-sky condition - - do is=1,2 - rra(np+1,1,is)=rr(np+1,is) - rxa(np+1,1,is)=rs(np+1,is) - rra(np+1,2,is)=rr(np+1,is) - rxa(np+1,2,is)=rs(np+1,is) - - do k=np,icb,-1 - denm=ts(k,is)/(1.-rs(k,is)*rxa(k+1,1,is)) - rra(k,1,is)=rr(k,is)+(td(k,is)*rra(k+1,1,is)+(tt(k,is)-td(k,is))& - *rxa(k+1,1,is))*denm - rxa(k,1,is)=rs(k,is)+ts(k,is)*rxa(k+1,1,is)*denm - rra(k,2,is)=rra(k,1,is) - rxa(k,2,is)=rxa(k,1,is) - end do ! k loop - -!-----for middle clouds - - do k=icb-1,ict,-1 - do im=1,2 - denm=ts(k,im)/(1.-rs(k,im)*rxa(k+1,im,is)) - rra(k,im,is)=rr(k,im)+(td(k,im)*rra(k+1,im,is)+(tt(k,im)-td(k,im))& - *rxa(k+1,im,is))*denm - rxa(k,im,is)=rs(k,im)+ts(k,im)*rxa(k+1,im,is)*denm - end do ! im loop - end do ! k loop - end do ! is loop - -!-----integration over eight sky situations. -! ih, im, is denote high, middle and low cloud groups. - - do ih=1,2 -!-----clear portion - if(ih.eq.1) then - ch=1.0-cc1 -!-----cloudy portion - else - ch=cc1 - end if - - do im=1,2 -!-----clear portion - if(im.eq.1) then - cm=ch*(1.0-cc2) -!-----cloudy portion - else - cm=ch*cc2 - end if - - do is=1,2 -!-----clear portion - if(is.eq.1) then - ct=cm*(1.0-cc3) -!-----cloudy portion - else - ct=cm*cc3 - end if - -!-----add one layer at a time, going down. - - do k=icb,np - denm=ts(k,is)/(1.-rsa(k-1,ih,im)*rs(k,is)) - tda(k,ih,im)=tda(k-1,ih,im)*td(k,is) - tta(k,ih,im)=tda(k-1,ih,im)*tt(k,is)+(tda(k-1,ih,im)*rr(k,is)& - *rsa(k-1,ih,im)+tta(k-1,ih,im)-tda(k-1,ih,im))*denm - rsa(k,ih,im)=rs(k,is)+ts(k,is)*rsa(k-1,ih,im)*denm - end do ! k loop - -!-----add one layer at a time, going up. - - do k=ict-1,0,-1 - denm=ts(k,ih)/(1.-rs(k,ih)*rxa(k+1,im,is)) - rra(k,im,is)=rr(k,ih)+(td(k,ih)*rra(k+1,im,is)+(tt(k,ih)-td(k,ih))& - *rxa(k+1,im,is))*denm - rxa(k,im,is)=rs(k,ih)+ts(k,ih)*rxa(k+1,im,is)*denm - end do ! k loop - -!-----compute fluxes following Eq. (6.15) for fupdif and -! Eq. (6.16) for (fdndir+fdndif) -! fdndir is the direct downward flux -! fdndif is the diffuse downward flux -! fupdif is the diffuse upward flux - - do k=1,np+1 - denm=1./(1.-rsa(k-1,ih,im)*rxa(k,im,is)) - fdndir=tda(k-1,ih,im) - xx4=tda(k-1,ih,im)*rra(k,im,is) - yy=tta(k-1,ih,im)-tda(k-1,ih,im) - fdndif=(xx4*rsa(k-1,ih,im)+yy)*denm - fupdif=(xx4+yy*rxa(k,im,is))*denm - flxdn=fdndir+fdndif-fupdif - -!-----summation of fluxes over all sky situations; -! the term in the brackets of Eq. (7.11) - - if(ih.eq.1 .and. im.eq.1 .and. is.eq.1) then - fupc(k)=fupdif - fclr(k)=flxdn - end if - fupa(k)=fupa(k)+fupdif*ct - fall(k)=fall(k)+flxdn*ct - end do ! k loop - fsdir=fsdir+fdndir*ct - fsdif=fsdif+fdndif*ct - end do ! is loop - end do ! im loop - end do ! ih loop - -!-----End CLDFLX inline -#endif - -!-----flux integration following Eq. (6.1) - - do k=1,np+1 - flx_dev(i,k)=flx_dev(i,k)+fall(k)*hk_ir(ib,ik) - flc_dev(i,k)=flc_dev(i,k)+fclr(k)*hk_ir(ib,ik) - flxu_dev(i,k)=flxu_dev(i,k)+fupa(k)*hk_ir(ib,ik) - flcu_dev(i,k)=flcu_dev(i,k)+fupc(k)*hk_ir(ib,ik) - end do - -!-----compute downward surface fluxes in the ir region - - fdirir_dev(i)=fdirir_dev(i)+fsdir*hk_ir(ib,ik) - fdifir_dev(i)=fdifir_dev(i)+fsdif*hk_ir(ib,ik) - -!-----tabulate surface flux at ir bands - flx_sfc_band_dev(i,iv)=flx_sfc_band_dev(i,iv)+fall(np+1)*hk_ir(ib,ik) - - end do ! ik loop - end do - -!-----compute pressure-scaled o2 amount following Eq. (3.5) with f=1. -! unit is (cm-atm)stp. 165.22 = (1000/980)*23.14%*(22400/32) -! compute flux reduction due to oxygen following Eq. (3.18). 0.0633 is the -! fraction of insolation contained in the oxygen bands - - df(0) = 0.0 - cnt = 165.22*snt - so2(1) = scal0*cnt -! LLT increased parameter 145 to 155 to enhance effect - df(1) = 0.0633*(1.-exp(-0.000155*sqrt(so2(1)))) - - do k=1,np - so2(k+1) = so2(k) + scal(k)*cnt -! LLT increased parameter 145 to 155 to enhance effect - df(k+1) = 0.0633*(1.0 - exp(-0.000155*sqrt(so2(k+1)))) - end do - -!-----for solar heating due to co2 scaling follows Eq(3.5) with f=1. -! unit is (cm-atm)stp. 789 = (1000/980)*(44/28.97)*(22400/44) - - so2(1) = (789.*co2)*scal0 - - do k=1,np - so2(k+1) = so2(k) + (789.*co2)*scal(k) - end do - -!-----The updated flux reduction for co2 absorption in Band 7 where absorption due to -! water vapor and co2 are both moderate. df is given by the second term on the -! right-hand-side of Eq. (3.24) divided by So. so2 and swh are the co2 and -! water vapor amounts integrated from the top of the atmosphere - - u1 = -3.0 - du = 0.15 - w1 = -4.0 - dw = 0.15 - -!-----Inline RFLX - du2=du*du - dw2=dw*dw - x0=u1+real(nu)*du - y0=w1+real(nw)*dw - - x1=u1-0.5*du - y1=w1-0.5*dw - - do k= 1, np+1 - ulog=min(log10(so2(k)*snt),x0) - wlog=min(log10(swh(k)*snt),y0) - ic=int((ulog-x1)/du+1.) - iw=int((wlog-y1)/dw+1.) - if(ic.lt.2) ic=2 - if(iw.lt.2) iw=2 - if(ic.gt.nu) ic=nu - if(iw.gt.nw) iw=nw - dc=ulog-real(ic-2)*du-u1 - dd=wlog-real(iw-2)*dw-w1 - x2=cah(ic-1,iw-1)+(cah(ic-1,iw)-cah(ic-1,iw-1))/dw*dd - y2=x2+(cah(ic,iw-1)-cah(ic-1,iw-1))/du*dc - y2=max(y2,0.0) - df(k)=df(k)+1.5*y2 ! LLT increase CO2 effect to help reduce cold tropopause bias - end do - -!-----df is the updated flux reduction for co2 absorption -! in Band 8 where the co2 absorption has a large impact -! on the heating of middle atmosphere. From the table -! given by Eq. (3.19) - - u1 = 0.000250 - du = 0.000050 - w1 = -2.0 - dw = 0.05 - -!-----Inline RFLX - du2=du*du - dw2=dw*dw - x0=u1+real(nx)*du - y0=w1+real(ny)*dw - - x1=u1-0.5*du - y1=w1-0.5*dw - - do k= 1, np+1 - ulog=min(co2*snt,x0) - wlog=min(log10(pl_dev(i,k)),y0) - ic=int((ulog-x1)/du+1.) - iw=int((wlog-y1)/dw+1.) - if(ic.lt.2) ic=2 - if(iw.lt.2) iw=2 - if(ic.gt.nx) ic=nx - if(iw.gt.ny) iw=ny - dc=ulog-real(ic-2)*du-u1 - dd=wlog-real(iw-2)*dw-w1 - x2=coa(ic-1,iw-1)+(coa(ic-1,iw)-coa(ic-1,iw-1))/dw*dd - y2=x2+(coa(ic,iw-1)-coa(ic-1,iw-1))/du*dc - y2=max(y2,0.0) - df(k)=df(k)+1.5*y2 ! LLT increase CO2 effect to help reduce cold tropopause bias - end do - -!-----adjust the o2-co2 reduction below cloud top following Eq. (6.18) - -!GPU--A new routine for finding ntop and using it -!GPU is provided. This helps shield the GPUs from the -!GPU exit statement which causes divergent warps. - - foundtop = 0 - - do k=1,np - if (fcld_dev(i,k) > 0.02.and.foundtop.eq.0) then - foundtop = 1 - ntop = k - end if - end do - - if (foundtop.eq.0) ntop=np+1 - - dftop = df(ntop) - - do k=1,np+1 - if (k .gt. ntop) then - xx4 = (flx_dev(i,k)/flx_dev(i,ntop)) - df(k) = dftop + xx4 * (df(k)-dftop) - end if - end do - -!-----update the net fluxes - - do k=1,np+1 - df(k) = min(df(k),flx_dev(i,k)-1.0e-8) -! df(k) = 0.0 - flx_dev(i,k) = flx_dev(i,k) - df(k) - flc_dev(i,k) = flc_dev(i,k) - df(k) - end do - -!-----update the downward surface fluxes - -! xx4 = fdirir (i) + fdifir (i) +& -! fdiruv (i) + fdifuv (i) +& -! fdirpar(i) + fdifpar(i) - - xx4 = flx_dev(i,np+1) + df(np+1) - - if ( abs(xx4) > epsilon(1.0) ) then - xx4 = max(min(1.0 - df(np+1)/xx4,1.),0.) - else - xx4 = 0.0 - end if - - fdirir_dev(i) = xx4*fdirir_dev(i) - fdifir_dev(i) = xx4*fdifir_dev(i) - fdiruv_dev(i) = xx4*fdiruv_dev(i) - fdifuv_dev(i) = xx4*fdifuv_dev(i) - fdirpar_dev(i) = xx4*fdirpar_dev(i) - fdifpar_dev(i) = xx4*fdifpar_dev(i) - - do ib = 1, nband - flx_sfc_band_dev(i,ib) = xx4*flx_sfc_band_dev(i,ib) - end do - -#ifndef _CUDA - end do RUN_LOOP -#else - end if RUN_LOOP -#endif - - end subroutine sorad - -!********************************************************************* - -#ifdef _CUDA - attributes(device) subroutine deledd(tau1,ssc1,g01,cza1,rr1,tt1,td1) -#else - subroutine deledd(tau1,ssc1,g01,cza1,rr1,tt1,td1) -#endif - -!********************************************************************* -! -!-----uses the delta-eddington approximation to compute the -! bulk scattering properties of a single layer -! coded following King and Harshvardhan (JAS, 1986) -! -! inputs: -! tau1: optical thickness -! ssc1: single scattering albedo -! g01: asymmetry factor -! cza1: cosine o the zenith angle -! -! outputs: -! -! rr1: reflection of the direct beam -! tt1: total (direct+diffuse) transmission of the direct beam -! td1: direct transmission of the direct beam -! -!********************************************************************* - - implicit none - -!-----input parameters - - real(kind=MAPL_R4), intent(in) :: tau1,ssc1,g01,cza1 - -!-----output parameters - - real(kind=MAPL_R4), intent(out) :: rr1, tt1, td1 - -!-----temporary parameters - - real(kind=MAPL_R8), parameter :: zero = 0.0_MAPL_R8 - real(kind=MAPL_R8), parameter :: one = 1.0_MAPL_R8 - real(kind=MAPL_R8), parameter :: two = 2.0_MAPL_R8 - real(kind=MAPL_R8), parameter :: three = 3.0_MAPL_R8 - real(kind=MAPL_R8), parameter :: four = 4.0_MAPL_R8 - real(kind=MAPL_R8), parameter :: fourth = 0.25_MAPL_R8 - real(kind=MAPL_R8), parameter :: seven = 7.0_MAPL_R8 - real(kind=MAPL_R8), parameter :: thresh = 1.e-8_MAPL_R8 - - real(kind=MAPL_R8) :: tau,ssc,g0,rr,tt,td - real(kind=MAPL_R8) :: zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2 - real(kind=MAPL_R8) :: all,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4 - - zth = real(cza1,kind=MAPL_R8) - g0 = real(g01 ,kind=MAPL_R8) - tau = real(tau1,kind=MAPL_R8) - ssc = real(ssc1,kind=MAPL_R8) - - ff = g0*g0 - xx = one-ff*ssc - taup= tau*xx - sscp= ssc*(one-ff)/xx - gp = g0/(one+g0) - - xx = three*gp - gm1 = (seven-sscp*(four+xx))*fourth - gm2 =-(one -sscp*(four-xx))*fourth - - akk = sqrt((gm1+gm2)*(gm1-gm2)) - - xx = akk*zth - st7 = one-xx - st8 = one+xx - st3 = st7*st8 - - if (abs(st3) .lt. thresh) then - zth = zth+0.0010 - if(zth > 1.0) zth = zth-0.0020 - xx = akk*zth - st7 = one-xx - st8 = one+xx - st3 = st7*st8 - end if - - td=exp(-taup/zth) - - gm3 = (two-zth*three*gp)*fourth - xx = gm1-gm2 - alf1= gm1-gm3*xx - alf2= gm2+gm3*xx - - xx = akk*two - all = (gm3-alf2*zth )*xx*td - bll = (one-gm3+alf1*zth)*xx - - xx = akk*gm3 - cll = (alf2+xx)*st7 - dll = (alf2-xx)*st8 - - xx = akk*(one-gm3) - fll = (alf1+xx)*st8 - ell = (alf1-xx)*st7 - - st2 = exp(-akk*taup) - st4 = st2*st2 - - st1 = sscp/((akk+gm1+(akk-gm1)*st4)*st3) - - rr = ( cll-dll*st4 - all*st2)*st1 - tt =-((fll-ell*st4)*td - bll*st2)*st1 - - rr = max(rr,zero) - tt = max(tt,zero) - - tt = tt+td - - td1 = real(td,kind=MAPL_R4) - rr1 = real(rr,kind=MAPL_R4) - tt1 = real(tt,kind=MAPL_R4) - - end subroutine deledd - -! GPU Due to limitations of CUDA Fortran, we cannot call device subroutines -! external to the file containing the global subroutine. So we replicate -! the interface for the tau routine here. - -#ifdef _CUDA -!------------------------------------------------------------------------------ -!BOP -! !ROUTINE: getvistau -! -! !INTERFACE: - attributes(device) subroutine getvistau(nlevs,cosz,dp,fcld,reff,hydromets,ict,icb,& - taubeam,taudiff,asycl) - - implicit none - -! !INPUT PARAMETERS: - integer, intent(IN ) :: nlevs ! Number of levels - real, intent(IN ) :: cosz ! Cosine of solar zenith angle - real, intent(IN ) :: dp(:) ! Delta pressure (Pa) - real, intent(IN ) :: fcld(:) ! Cloud fraction (used sometimes) - real, intent(IN ) :: reff(:,:) ! Effective radius (microns) - real, intent(IN ) :: hydromets(:,:) ! Hydrometeors (kg/kg) - integer, intent(IN ) :: ict, icb ! Flags for various uses -! ict = 0 Indicates that in-cloud values have been given -! and are expected -! ict != 0 Indicates that overlap computation is needed, and: -! ict is the level of the mid-high boundary -! icb is the level of the low-mid boundary -! -! !OUTPUT PARAMETERS: - real, intent(OUT) :: taubeam(:,:) ! Optical Depth for Beam Radiation - real, intent(OUT) :: taudiff(:,:) ! Optical Depth for Diffuse Radiation - real, intent(OUT) :: asycl(: ) ! Cloud Asymmetry Factor -! !DESCRIPTION: -! Compute in-cloud or grid mean optical depths for visible wavelengths -! In general will compute in-cloud - will do grid mean when called -! for diagnostic use only. ict flag will indicate which to do. -! Slots for reff, hydrometeors, taubeam, taudiff, and asycl are as follows: -! 1 Cloud Ice -! 2 Cloud Liquid -! 3 Falling Liquid (Rain) -! 4 Falling Ice (Snow) -! -! In the below calculations, the constants used in the tau calculation are in -! m$^2$ g$^{-1}$ and m$^2$ g$^{-1}$ $\mu$m. Thus, we must convert the kg contained in the -! pressure (Pa = kg m$^{-1}$ s$^{-2}$) to grams. -! -! !REVISION HISTORY: -! 2011.10.27 Molod moved to Radiation_Shared and revised arg list, units -! 2011.11.16 MAT: Generalized to a call that is per-column -! -!EOP -!------------------------------------------------------------------------------ -!BOC - - integer :: k,in,im,it,ia,kk - real :: fm,ft,fa,xai,tauc,asyclt - real :: cc(3) - real :: taucld1,taucld2,taucld3,taucld4 - real :: g1,g2,g3,g4 - - real :: reff_snow - -#include "getvistau.code" - - return - -!EOC - end subroutine getvistau -!------------------------------------------------------------------------------ -!BOP -! !ROUTINE: getnirtau -! -! !INTERFACE: - attributes(device) subroutine getnirtau(ib,nlevs,cosz,dp,fcld,reff,hydromets,ict,icb,& - taubeam,taudiff,asycl,ssacl) - - implicit none - -! !INPUT PARAMETERS: - integer, intent(IN ) :: ib ! Band number - integer, intent(IN ) :: nlevs ! Number of levels - real, intent(IN ) :: cosz ! Cosine of solar zenith angle - real, intent(IN ) :: dp(:) ! Delta pressure in Pa - real, intent(IN ) :: fcld(:) ! Cloud fraction (used sometimes) - real, intent(IN ) :: reff(:,:) ! Effective radius (microns) - real, intent(IN ) :: hydromets(:,:) ! Hydrometeors (kg/kg) - integer, intent(IN ) :: ict, icb ! Flags for various uses -! ict = 0 Indicates that in-cloud values have been given -! and are expected -! ict != 0 Indicates that overlap computation is needed, and: -! ict is the level of the mid-high boundary -! icb is the level of the low-mid boundary -! -! !OUTPUT PARAMETERS: - real, intent(OUT) :: taubeam(:,:) ! Optical depth for beam radiation - real, intent(OUT) :: taudiff(:,:) ! Optical depth for diffuse radiation - real, intent(OUT) :: ssacl(: ) ! Cloud single scattering albedo - real, intent(OUT) :: asycl(: ) ! Cloud asymmetry factor -! !DESCRIPTION: -! Compute in-cloud or grid mean optical depths for near-infrared wavelengths -! In general will compute in-cloud - will do grid mean when called -! for diagnostic use only. ict flag will indicate which to do. -! Slots for reff, hydrometeors and tauall are as follows: -! 1 Cloud Ice -! 2 Cloud Liquid -! 3 Falling Liquid (Rain) -! 4 Falling Ice (Snow) -! -! In the below calculations, the constants used in the tau calculation are in -! m$^2$ g$^{-1}$ and m$^2$ g$^{-1}$ $\mu$m. Thus, we must convert the kg contained in the -! pressure (Pa = kg m$^{-1}$ s$^{-2}$) to grams. -! -! !REVISION HISTORY: -! 2011.10.27 Molod moved to Radiation_Shared and revised arg list, units -! 2011.11.16 MAT: Generalized to a call that is per-column -! -!EOP -!------------------------------------------------------------------------------ -!BOC - integer :: k,in,im,it,ia,kk - real :: fm,ft,fa,xai,tauc,asyclt,ssaclt - real :: cc(3) - real :: taucld1,taucld2,taucld3,taucld4 - real :: g1,g2,g3,g4 - real :: w1,w2,w3,w4 - - real :: reff_snow - -#include "getnirtau.code" - - return - -!EOC - end subroutine getnirtau - -#endif - -end module diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/soradconstants.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/soradconstants.F90 deleted file mode 100644 index 82d2f57da..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/soradconstants.F90 +++ /dev/null @@ -1,1684 +0,0 @@ -! $Id$ - -module sorad_constants - -implicit none -save - - real, dimension(5) :: hk_uv_old = & - [0.00530, 0.00505, 0.01109, 0.05849, .39081] - - real, dimension(5) :: zk_uv = & - [192.8, 26.70, 1.99, 0.0345, 0.0572] - - real, dimension(5) :: wk_uv = & - [0.0, 0.0, 0.0, 0.0, 0.00075] - - real, dimension(5) :: ry_uv = & - [0.00188, 0.00158, 0.00095, .00055, .00012] - - real, dimension(10) :: xk_ir = & - [ 0.0010, 0.0133, 0.0422, 0.1334, 0.4217, & - 1.334, 5.623, 31.62, 177.8, 1000.0] - - real, dimension(3,10) :: hk_ir_old = reshape([ & - .20673,.08236,.01074, .03497,.01157,.00360, & - .03011,.01133,.00411, .02260,.01143,.00421, & - .01336,.01240,.00389, .00696,.01258,.00326, & - .00441,.01381,.00499, .00115,.00650,.00465, & - .00026,.00244,.00245, .00000,.00094,.00145], [3,10]) - - real, dimension(3) :: ry_ir = & - [.0000156, .0000018, .000000] - - real, dimension(62,101) :: coa = reshape( [ & - 0.0000080, 0.0000089, 0.0000098, 0.0000106, 0.0000114, & - 0.0000121, 0.0000128, 0.0000134, 0.0000140, 0.0000146, & - 0.0000152, 0.0000158, 0.0000163, 0.0000168, 0.0000173, & - 0.0000178, 0.0000182, 0.0000186, 0.0000191, 0.0000195, & - 0.0000199, 0.0000202, 0.0000206, 0.0000210, 0.0000213, & - 0.0000217, 0.0000220, 0.0000223, 0.0000226, 0.0000229, & - 0.0000232, 0.0000235, 0.0000238, 0.0000241, 0.0000244, & - 0.0000246, 0.0000249, 0.0000252, 0.0000254, 0.0000257, & - 0.0000259, 0.0000261, 0.0000264, 0.0000266, 0.0000268, & - 0.0000271, 0.0000273, 0.0000275, 0.0000277, 0.0000279, & - 0.0000281, 0.0000283, 0.0000285, 0.0000287, 0.0000289, & - 0.0000291, 0.0000293, 0.0000295, 0.0000297, 0.0000298, & - 0.0000300, 0.0000302, & - 0.0000085, 0.0000095, 0.0000104, 0.0000113, 0.0000121, & - 0.0000128, 0.0000136, 0.0000143, 0.0000149, 0.0000155, & - 0.0000161, 0.0000167, 0.0000172, 0.0000178, 0.0000183, & - 0.0000187, 0.0000192, 0.0000196, 0.0000201, 0.0000205, & - 0.0000209, 0.0000213, 0.0000217, 0.0000220, 0.0000224, & - 0.0000227, 0.0000231, 0.0000234, 0.0000237, 0.0000240, & - 0.0000243, 0.0000246, 0.0000249, 0.0000252, 0.0000255, & - 0.0000258, 0.0000260, 0.0000263, 0.0000266, 0.0000268, & - 0.0000271, 0.0000273, 0.0000275, 0.0000278, 0.0000280, & - 0.0000282, 0.0000285, 0.0000287, 0.0000289, 0.0000291, & - 0.0000293, 0.0000295, 0.0000297, 0.0000299, 0.0000301, & - 0.0000303, 0.0000305, 0.0000307, 0.0000309, 0.0000311, & - 0.0000313, 0.0000314, & - 0.0000095, 0.0000106, 0.0000116, 0.0000125, 0.0000134, & - 0.0000143, 0.0000150, 0.0000158, 0.0000165, 0.0000171, & - 0.0000178, 0.0000184, 0.0000189, 0.0000195, 0.0000200, & - 0.0000205, 0.0000210, 0.0000215, 0.0000219, 0.0000223, & - 0.0000228, 0.0000232, 0.0000235, 0.0000239, 0.0000243, & - 0.0000247, 0.0000250, 0.0000253, 0.0000257, 0.0000260, & - 0.0000263, 0.0000266, 0.0000269, 0.0000272, 0.0000275, & - 0.0000278, 0.0000281, 0.0000283, 0.0000286, 0.0000289, & - 0.0000291, 0.0000294, 0.0000296, 0.0000299, 0.0000301, & - 0.0000303, 0.0000306, 0.0000308, 0.0000310, 0.0000312, & - 0.0000315, 0.0000317, 0.0000319, 0.0000321, 0.0000323, & - 0.0000325, 0.0000327, 0.0000329, 0.0000331, 0.0000333, & - 0.0000335, 0.0000329, & - 0.0000100, 0.0000111, 0.0000122, 0.0000131, 0.0000141, & - 0.0000149, 0.0000157, 0.0000165, 0.0000172, 0.0000179, & - 0.0000185, 0.0000191, 0.0000197, 0.0000203, 0.0000208, & - 0.0000213, 0.0000218, 0.0000223, 0.0000227, 0.0000232, & - 0.0000236, 0.0000240, 0.0000244, 0.0000248, 0.0000252, & - 0.0000255, 0.0000259, 0.0000262, 0.0000266, 0.0000269, & - 0.0000272, 0.0000275, 0.0000278, 0.0000281, 0.0000284, & - 0.0000287, 0.0000290, 0.0000293, 0.0000295, 0.0000298, & - 0.0000300, 0.0000303, 0.0000306, 0.0000308, 0.0000310, & - 0.0000313, 0.0000315, 0.0000317, 0.0000320, 0.0000322, & - 0.0000324, 0.0000326, 0.0000328, 0.0000331, 0.0000333, & - 0.0000335, 0.0000330, 0.0000339, 0.0000341, 0.0000343, & - 0.0000345, 0.0000346, & - 0.0000109, 0.0000121, 0.0000132, 0.0000143, 0.0000152, & - 0.0000161, 0.0000170, 0.0000178, 0.0000185, 0.0000192, & - 0.0000199, 0.0000205, 0.0000211, 0.0000217, 0.0000222, & - 0.0000228, 0.0000233, 0.0000238, 0.0000242, 0.0000247, & - 0.0000251, 0.0000255, 0.0000259, 0.0000263, 0.0000267, & - 0.0000271, 0.0000275, 0.0000278, 0.0000282, 0.0000285, & - 0.0000288, 0.0000291, 0.0000295, 0.0000298, 0.0000301, & - 0.0000304, 0.0000307, 0.0000309, 0.0000312, 0.0000315, & - 0.0000318, 0.0000320, 0.0000323, 0.0000325, 0.0000328, & - 0.0000330, 0.0000333, 0.0000335, 0.0000330, 0.0000340, & - 0.0000342, 0.0000344, 0.0000346, 0.0000348, 0.0000351, & - 0.0000353, 0.0000355, 0.0000357, 0.0000359, 0.0000361, & - 0.0000363, 0.0000365, & - 0.0000117, 0.0000130, 0.0000142, 0.0000153, 0.0000163, & - 0.0000173, 0.0000181, 0.0000190, 0.0000197, 0.0000204, & - 0.0000211, 0.0000218, 0.0000224, 0.0000230, 0.0000235, & - 0.0000241, 0.0000246, 0.0000251, 0.0000256, 0.0000260, & - 0.0000265, 0.0000269, 0.0000273, 0.0000277, 0.0000281, & - 0.0000285, 0.0000289, 0.0000293, 0.0000296, 0.0000299, & - 0.0000303, 0.0000306, 0.0000309, 0.0000313, 0.0000316, & - 0.0000319, 0.0000322, 0.0000324, 0.0000327, 0.0000330, & - 0.0000333, 0.0000336, 0.0000331, 0.0000341, 0.0000343, & - 0.0000346, 0.0000348, 0.0000351, 0.0000353, 0.0000355, & - 0.0000358, 0.0000360, 0.0000362, 0.0000365, 0.0000367, & - 0.0000369, 0.0000371, 0.0000373, 0.0000375, 0.0000377, & - 0.0000379, 0.0000381, & - 0.0000125, 0.0000139, 0.0000151, 0.0000163, 0.0000173, & - 0.0000183, 0.0000192, 0.0000200, 0.0000208, 0.0000216, & - 0.0000223, 0.0000229, 0.0000236, 0.0000242, 0.0000247, & - 0.0000253, 0.0000258, 0.0000263, 0.0000268, 0.0000273, & - 0.0000277, 0.0000282, 0.0000286, 0.0000290, 0.0000294, & - 0.0000298, 0.0000302, 0.0000306, 0.0000309, 0.0000313, & - 0.0000316, 0.0000320, 0.0000323, 0.0000326, 0.0000329, & - 0.0000332, 0.0000335, 0.0000331, 0.0000341, 0.0000344, & - 0.0000347, 0.0000350, 0.0000352, 0.0000355, 0.0000358, & - 0.0000360, 0.0000363, 0.0000365, 0.0000368, 0.0000370, & - 0.0000372, 0.0000375, 0.0000377, 0.0000379, 0.0000382, & - 0.0000384, 0.0000386, 0.0000388, 0.0000390, 0.0000392, & - 0.0000394, 0.0000396, & - 0.0000132, 0.0000147, 0.0000160, 0.0000172, 0.0000183, & - 0.0000193, 0.0000202, 0.0000210, 0.0000218, 0.0000226, & - 0.0000233, 0.0000240, 0.0000246, 0.0000252, 0.0000258, & - 0.0000264, 0.0000269, 0.0000274, 0.0000279, 0.0000284, & - 0.0000289, 0.0000293, 0.0000298, 0.0000302, 0.0000306, & - 0.0000310, 0.0000314, 0.0000318, 0.0000321, 0.0000325, & - 0.0000328, 0.0000332, 0.0000335, 0.0000331, 0.0000342, & - 0.0000345, 0.0000348, 0.0000351, 0.0000354, 0.0000357, & - 0.0000360, 0.0000363, 0.0000365, 0.0000368, 0.0000371, & - 0.0000373, 0.0000376, 0.0000378, 0.0000381, 0.0000383, & - 0.0000386, 0.0000388, 0.0000391, 0.0000393, 0.0000395, & - 0.0000397, 0.0000400, 0.0000402, 0.0000404, 0.0000406, & - 0.0000408, 0.0000411, & - 0.0000143, 0.0000158, 0.0000172, 0.0000184, 0.0000195, & - 0.0000206, 0.0000215, 0.0000224, 0.0000232, 0.0000240, & - 0.0000247, 0.0000254, 0.0000261, 0.0000267, 0.0000273, & - 0.0000279, 0.0000284, 0.0000290, 0.0000295, 0.0000300, & - 0.0000305, 0.0000309, 0.0000314, 0.0000318, 0.0000322, & - 0.0000326, 0.0000330, 0.0000334, 0.0000331, 0.0000342, & - 0.0000345, 0.0000349, 0.0000352, 0.0000356, 0.0000359, & - 0.0000362, 0.0000365, 0.0000368, 0.0000371, 0.0000374, & - 0.0000377, 0.0000380, 0.0000383, 0.0000386, 0.0000389, & - 0.0000391, 0.0000394, 0.0000397, 0.0000399, 0.0000402, & - 0.0000404, 0.0000407, 0.0000409, 0.0000412, 0.0000414, & - 0.0000416, 0.0000419, 0.0000421, 0.0000423, 0.0000426, & - 0.0000428, 0.0000430, & - 0.0000153, 0.0000169, 0.0000183, 0.0000196, 0.0000207, & - 0.0000218, 0.0000227, 0.0000236, 0.0000245, 0.0000253, & - 0.0000260, 0.0000267, 0.0000274, 0.0000281, 0.0000287, & - 0.0000293, 0.0000298, 0.0000304, 0.0000309, 0.0000314, & - 0.0000319, 0.0000324, 0.0000328, 0.0000333, 0.0000330, & - 0.0000341, 0.0000345, 0.0000349, 0.0000353, 0.0000357, & - 0.0000361, 0.0000364, 0.0000368, 0.0000371, 0.0000375, & - 0.0000378, 0.0000381, 0.0000384, 0.0000387, 0.0000391, & - 0.0000394, 0.0000397, 0.0000399, 0.0000402, 0.0000405, & - 0.0000408, 0.0000411, 0.0000413, 0.0000416, 0.0000419, & - 0.0000421, 0.0000424, 0.0000426, 0.0000429, 0.0000431, & - 0.0000434, 0.0000436, 0.0000439, 0.0000441, 0.0000443, & - 0.0000446, 0.0000448, & - 0.0000165, 0.0000182, 0.0000196, 0.0000209, 0.0000221, & - 0.0000232, 0.0000242, 0.0000251, 0.0000260, 0.0000268, & - 0.0000276, 0.0000283, 0.0000290, 0.0000297, 0.0000303, & - 0.0000309, 0.0000315, 0.0000321, 0.0000326, 0.0000331, & - 0.0000336, 0.0000341, 0.0000346, 0.0000350, 0.0000355, & - 0.0000359, 0.0000363, 0.0000367, 0.0000371, 0.0000375, & - 0.0000379, 0.0000383, 0.0000386, 0.0000390, 0.0000394, & - 0.0000397, 0.0000400, 0.0000404, 0.0000407, 0.0000410, & - 0.0000413, 0.0000416, 0.0000419, 0.0000422, 0.0000425, & - 0.0000428, 0.0000431, 0.0000434, 0.0000437, 0.0000439, & - 0.0000442, 0.0000445, 0.0000447, 0.0000450, 0.0000453, & - 0.0000455, 0.0000458, 0.0000460, 0.0000463, 0.0000465, & - 0.0000468, 0.0000470, & - 0.0000173, 0.0000190, 0.0000205, 0.0000219, 0.0000231, & - 0.0000242, 0.0000252, 0.0000262, 0.0000271, 0.0000279, & - 0.0000287, 0.0000294, 0.0000301, 0.0000308, 0.0000314, & - 0.0000320, 0.0000326, 0.0000332, 0.0000330, 0.0000343, & - 0.0000348, 0.0000353, 0.0000358, 0.0000362, 0.0000367, & - 0.0000371, 0.0000376, 0.0000380, 0.0000384, 0.0000388, & - 0.0000392, 0.0000396, 0.0000399, 0.0000403, 0.0000407, & - 0.0000410, 0.0000414, 0.0000417, 0.0000420, 0.0000424, & - 0.0000427, 0.0000430, 0.0000433, 0.0000436, 0.0000439, & - 0.0000442, 0.0000445, 0.0000448, 0.0000451, 0.0000454, & - 0.0000457, 0.0000459, 0.0000462, 0.0000465, 0.0000468, & - 0.0000470, 0.0000473, 0.0000475, 0.0000478, 0.0000481, & - 0.0000483, 0.0000486, & - 0.0000186, 0.0000204, 0.0000219, 0.0000233, 0.0000246, & - 0.0000257, 0.0000268, 0.0000277, 0.0000286, 0.0000295, & - 0.0000303, 0.0000311, 0.0000318, 0.0000325, 0.0000331, & - 0.0000331, 0.0000344, 0.0000350, 0.0000355, 0.0000361, & - 0.0000366, 0.0000371, 0.0000376, 0.0000381, 0.0000386, & - 0.0000390, 0.0000395, 0.0000399, 0.0000403, 0.0000407, & - 0.0000412, 0.0000416, 0.0000419, 0.0000423, 0.0000427, & - 0.0000431, 0.0000434, 0.0000438, 0.0000441, 0.0000445, & - 0.0000448, 0.0000451, 0.0000455, 0.0000458, 0.0000461, & - 0.0000464, 0.0000467, 0.0000470, 0.0000473, 0.0000476, & - 0.0000479, 0.0000482, 0.0000485, 0.0000488, 0.0000491, & - 0.0000494, 0.0000497, 0.0000499, 0.0000502, 0.0000505, & - 0.0000507, 0.0000510, & - 0.0000198, 0.0000216, 0.0000232, 0.0000246, 0.0000259, & - 0.0000271, 0.0000281, 0.0000291, 0.0000301, 0.0000310, & - 0.0000318, 0.0000326, 0.0000333, 0.0000340, 0.0000347, & - 0.0000354, 0.0000360, 0.0000366, 0.0000372, 0.0000377, & - 0.0000383, 0.0000388, 0.0000393, 0.0000398, 0.0000403, & - 0.0000408, 0.0000412, 0.0000417, 0.0000421, 0.0000425, & - 0.0000430, 0.0000434, 0.0000438, 0.0000442, 0.0000446, & - 0.0000449, 0.0000453, 0.0000457, 0.0000461, 0.0000464, & - 0.0000468, 0.0000471, 0.0000475, 0.0000478, 0.0000481, & - 0.0000485, 0.0000488, 0.0000491, 0.0000494, 0.0000498, & - 0.0000501, 0.0000504, 0.0000507, 0.0000510, 0.0000513, & - 0.0000516, 0.0000519, 0.0000522, 0.0000524, 0.0000527, & - 0.0000530, 0.0000533, & - 0.0000209, 0.0000228, 0.0000244, 0.0000258, 0.0000271, & - 0.0000283, 0.0000294, 0.0000305, 0.0000314, 0.0000323, & - 0.0000332, 0.0000340, 0.0000347, 0.0000354, 0.0000361, & - 0.0000368, 0.0000375, 0.0000381, 0.0000387, 0.0000392, & - 0.0000398, 0.0000404, 0.0000409, 0.0000414, 0.0000419, & - 0.0000424, 0.0000429, 0.0000433, 0.0000438, 0.0000442, & - 0.0000447, 0.0000451, 0.0000455, 0.0000459, 0.0000463, & - 0.0000467, 0.0000471, 0.0000475, 0.0000479, 0.0000483, & - 0.0000486, 0.0000490, 0.0000493, 0.0000497, 0.0000501, & - 0.0000504, 0.0000507, 0.0000511, 0.0000514, 0.0000518, & - 0.0000521, 0.0000524, 0.0000527, 0.0000530, 0.0000534, & - 0.0000537, 0.0000540, 0.0000543, 0.0000546, 0.0000549, & - 0.0000552, 0.0000555, & - 0.0000221, 0.0000240, 0.0000257, 0.0000272, 0.0000285, & - 0.0000297, 0.0000308, 0.0000319, 0.0000329, 0.0000331, & - 0.0000347, 0.0000355, 0.0000363, 0.0000370, 0.0000377, & - 0.0000384, 0.0000391, 0.0000397, 0.0000404, 0.0000409, & - 0.0000415, 0.0000421, 0.0000426, 0.0000432, 0.0000437, & - 0.0000442, 0.0000447, 0.0000452, 0.0000456, 0.0000461, & - 0.0000466, 0.0000470, 0.0000475, 0.0000479, 0.0000483, & - 0.0000487, 0.0000491, 0.0000496, 0.0000500, 0.0000503, & - 0.0000507, 0.0000511, 0.0000515, 0.0000519, 0.0000523, & - 0.0000526, 0.0000530, 0.0000533, 0.0000537, 0.0000540, & - 0.0000544, 0.0000547, 0.0000551, 0.0000554, 0.0000558, & - 0.0000561, 0.0000564, 0.0000567, 0.0000571, 0.0000574, & - 0.0000577, 0.0000580, & - 0.0000234, 0.0000254, 0.0000271, 0.0000286, 0.0000300, & - 0.0000312, 0.0000324, 0.0000335, 0.0000345, 0.0000354, & - 0.0000363, 0.0000372, 0.0000380, 0.0000387, 0.0000395, & - 0.0000402, 0.0000409, 0.0000415, 0.0000422, 0.0000428, & - 0.0000434, 0.0000440, 0.0000446, 0.0000451, 0.0000457, & - 0.0000462, 0.0000467, 0.0000472, 0.0000477, 0.0000482, & - 0.0000487, 0.0000492, 0.0000496, 0.0000501, 0.0000505, & - 0.0000510, 0.0000514, 0.0000518, 0.0000523, 0.0000527, & - 0.0000531, 0.0000535, 0.0000539, 0.0000543, 0.0000547, & - 0.0000551, 0.0000555, 0.0000559, 0.0000562, 0.0000566, & - 0.0000570, 0.0000573, 0.0000577, 0.0000581, 0.0000584, & - 0.0000588, 0.0000591, 0.0000595, 0.0000598, 0.0000602, & - 0.0000605, 0.0000608, & - 0.0000248, 0.0000268, 0.0000285, 0.0000301, 0.0000315, & - 0.0000328, 0.0000340, 0.0000351, 0.0000362, 0.0000371, & - 0.0000381, 0.0000389, 0.0000398, 0.0000406, 0.0000413, & - 0.0000421, 0.0000428, 0.0000435, 0.0000442, 0.0000448, & - 0.0000454, 0.0000460, 0.0000466, 0.0000472, 0.0000478, & - 0.0000484, 0.0000489, 0.0000494, 0.0000500, 0.0000505, & - 0.0000510, 0.0000515, 0.0000520, 0.0000525, 0.0000530, & - 0.0000534, 0.0000539, 0.0000544, 0.0000548, 0.0000553, & - 0.0000557, 0.0000561, 0.0000566, 0.0000570, 0.0000574, & - 0.0000578, 0.0000582, 0.0000586, 0.0000590, 0.0000594, & - 0.0000598, 0.0000602, 0.0000606, 0.0000610, 0.0000614, & - 0.0000618, 0.0000621, 0.0000625, 0.0000629, 0.0000633, & - 0.0000636, 0.0000640, & - 0.0000260, 0.0000281, 0.0000299, 0.0000315, 0.0000330, & - 0.0000343, 0.0000355, 0.0000367, 0.0000377, 0.0000388, & - 0.0000397, 0.0000406, 0.0000415, 0.0000423, 0.0000431, & - 0.0000439, 0.0000446, 0.0000453, 0.0000460, 0.0000467, & - 0.0000474, 0.0000480, 0.0000487, 0.0000493, 0.0000499, & - 0.0000505, 0.0000510, 0.0000516, 0.0000522, 0.0000527, & - 0.0000533, 0.0000538, 0.0000543, 0.0000548, 0.0000553, & - 0.0000558, 0.0000563, 0.0000568, 0.0000573, 0.0000578, & - 0.0000582, 0.0000587, 0.0000591, 0.0000596, 0.0000601, & - 0.0000605, 0.0000609, 0.0000614, 0.0000618, 0.0000622, & - 0.0000626, 0.0000631, 0.0000635, 0.0000639, 0.0000643, & - 0.0000647, 0.0000651, 0.0000655, 0.0000659, 0.0000663, & - 0.0000667, 0.0000670, & - 0.0000275, 0.0000296, 0.0000315, 0.0000332, 0.0000347, & - 0.0000360, 0.0000373, 0.0000385, 0.0000396, 0.0000407, & - 0.0000417, 0.0000426, 0.0000435, 0.0000444, 0.0000452, & - 0.0000460, 0.0000468, 0.0000476, 0.0000483, 0.0000490, & - 0.0000497, 0.0000504, 0.0000511, 0.0000517, 0.0000524, & - 0.0000530, 0.0000536, 0.0000542, 0.0000548, 0.0000554, & - 0.0000560, 0.0000566, 0.0000571, 0.0000577, 0.0000582, & - 0.0000587, 0.0000593, 0.0000598, 0.0000603, 0.0000608, & - 0.0000613, 0.0000618, 0.0000623, 0.0000628, 0.0000633, & - 0.0000638, 0.0000642, 0.0000647, 0.0000652, 0.0000656, & - 0.0000661, 0.0000665, 0.0000670, 0.0000674, 0.0000678, & - 0.0000683, 0.0000687, 0.0000691, 0.0000695, 0.0000700, & - 0.0000704, 0.0000708, & - 0.0000290, 0.0000312, 0.0000331, 0.0000349, 0.0000364, & - 0.0000379, 0.0000392, 0.0000404, 0.0000416, 0.0000427, & - 0.0000437, 0.0000447, 0.0000457, 0.0000466, 0.0000475, & - 0.0000483, 0.0000492, 0.0000500, 0.0000507, 0.0000515, & - 0.0000523, 0.0000530, 0.0000537, 0.0000544, 0.0000551, & - 0.0000558, 0.0000564, 0.0000571, 0.0000577, 0.0000583, & - 0.0000589, 0.0000596, 0.0000602, 0.0000607, 0.0000613, & - 0.0000619, 0.0000625, 0.0000630, 0.0000636, 0.0000641, & - 0.0000647, 0.0000652, 0.0000657, 0.0000663, 0.0000668, & - 0.0000673, 0.0000678, 0.0000683, 0.0000688, 0.0000693, & - 0.0000698, 0.0000702, 0.0000707, 0.0000712, 0.0000716, & - 0.0000721, 0.0000726, 0.0000730, 0.0000735, 0.0000739, & - 0.0000744, 0.0000748, & - 0.0000306, 0.0000329, 0.0000349, 0.0000366, 0.0000383, & - 0.0000398, 0.0000411, 0.0000424, 0.0000436, 0.0000448, & - 0.0000459, 0.0000469, 0.0000479, 0.0000489, 0.0000499, & - 0.0000508, 0.0000516, 0.0000525, 0.0000533, 0.0000542, & - 0.0000549, 0.0000557, 0.0000565, 0.0000572, 0.0000580, & - 0.0000587, 0.0000594, 0.0000601, 0.0000608, 0.0000615, & - 0.0000621, 0.0000628, 0.0000634, 0.0000640, 0.0000647, & - 0.0000653, 0.0000659, 0.0000665, 0.0000671, 0.0000677, & - 0.0000683, 0.0000688, 0.0000694, 0.0000700, 0.0000705, & - 0.0000711, 0.0000716, 0.0000721, 0.0000727, 0.0000732, & - 0.0000737, 0.0000742, 0.0000747, 0.0000752, 0.0000757, & - 0.0000762, 0.0000767, 0.0000772, 0.0000777, 0.0000782, & - 0.0000786, 0.0000791, & - 0.0000323, 0.0000347, 0.0000368, 0.0000386, 0.0000403, & - 0.0000419, 0.0000433, 0.0000447, 0.0000459, 0.0000472, & - 0.0000483, 0.0000494, 0.0000505, 0.0000516, 0.0000526, & - 0.0000535, 0.0000545, 0.0000554, 0.0000563, 0.0000572, & - 0.0000580, 0.0000589, 0.0000597, 0.0000605, 0.0000613, & - 0.0000621, 0.0000628, 0.0000636, 0.0000643, 0.0000650, & - 0.0000657, 0.0000664, 0.0000671, 0.0000678, 0.0000685, & - 0.0000692, 0.0000698, 0.0000705, 0.0000711, 0.0000717, & - 0.0000724, 0.0000730, 0.0000736, 0.0000742, 0.0000748, & - 0.0000754, 0.0000760, 0.0000765, 0.0000771, 0.0000777, & - 0.0000782, 0.0000788, 0.0000793, 0.0000799, 0.0000804, & - 0.0000809, 0.0000815, 0.0000820, 0.0000825, 0.0000830, & - 0.0000835, 0.0000840, & - 0.0000341, 0.0000365, 0.0000387, 0.0000406, 0.0000424, & - 0.0000440, 0.0000456, 0.0000470, 0.0000483, 0.0000496, & - 0.0000509, 0.0000521, 0.0000532, 0.0000543, 0.0000554, & - 0.0000564, 0.0000574, 0.0000584, 0.0000594, 0.0000603, & - 0.0000613, 0.0000622, 0.0000630, 0.0000639, 0.0000648, & - 0.0000656, 0.0000664, 0.0000672, 0.0000680, 0.0000688, & - 0.0000696, 0.0000703, 0.0000711, 0.0000718, 0.0000725, & - 0.0000732, 0.0000739, 0.0000746, 0.0000753, 0.0000760, & - 0.0000767, 0.0000773, 0.0000780, 0.0000786, 0.0000793, & - 0.0000799, 0.0000805, 0.0000811, 0.0000817, 0.0000823, & - 0.0000829, 0.0000835, 0.0000841, 0.0000847, 0.0000853, & - 0.0000858, 0.0000864, 0.0000870, 0.0000875, 0.0000881, & - 0.0000886, 0.0000892, & - 0.0000359, 0.0000385, 0.0000408, 0.0000428, 0.0000447, & - 0.0000464, 0.0000480, 0.0000495, 0.0000510, 0.0000524, & - 0.0000537, 0.0000550, 0.0000562, 0.0000574, 0.0000585, & - 0.0000597, 0.0000608, 0.0000618, 0.0000629, 0.0000639, & - 0.0000649, 0.0000658, 0.0000668, 0.0000677, 0.0000686, & - 0.0000695, 0.0000704, 0.0000713, 0.0000721, 0.0000730, & - 0.0000738, 0.0000746, 0.0000754, 0.0000762, 0.0000770, & - 0.0000777, 0.0000785, 0.0000792, 0.0000800, 0.0000807, & - 0.0000814, 0.0000821, 0.0000828, 0.0000835, 0.0000842, & - 0.0000849, 0.0000856, 0.0000862, 0.0000869, 0.0000875, & - 0.0000882, 0.0000888, 0.0000894, 0.0000900, 0.0000907, & - 0.0000913, 0.0000919, 0.0000925, 0.0000931, 0.0000936, & - 0.0000942, 0.0000948, & - 0.0000380, 0.0000407, 0.0000431, 0.0000453, 0.0000473, & - 0.0000491, 0.0000508, 0.0000525, 0.0000540, 0.0000555, & - 0.0000569, 0.0000583, 0.0000596, 0.0000609, 0.0000622, & - 0.0000634, 0.0000646, 0.0000657, 0.0000668, 0.0000679, & - 0.0000690, 0.0000700, 0.0000711, 0.0000721, 0.0000731, & - 0.0000740, 0.0000750, 0.0000759, 0.0000769, 0.0000778, & - 0.0000786, 0.0000795, 0.0000804, 0.0000812, 0.0000821, & - 0.0000829, 0.0000837, 0.0000845, 0.0000853, 0.0000861, & - 0.0000869, 0.0000876, 0.0000884, 0.0000891, 0.0000899, & - 0.0000906, 0.0000913, 0.0000920, 0.0000927, 0.0000934, & - 0.0000941, 0.0000948, 0.0000955, 0.0000961, 0.0000968, & - 0.0000974, 0.0000981, 0.0000987, 0.0000994, 0.0001000, & - 0.0001006, 0.0001012, & - 0.0000403, 0.0000431, 0.0000456, 0.0000479, 0.0000500, & - 0.0000520, 0.0000538, 0.0000556, 0.0000573, 0.0000589, & - 0.0000604, 0.0000619, 0.0000633, 0.0000647, 0.0000661, & - 0.0000674, 0.0000686, 0.0000699, 0.0000711, 0.0000723, & - 0.0000734, 0.0000746, 0.0000757, 0.0000768, 0.0000778, & - 0.0000789, 0.0000799, 0.0000809, 0.0000819, 0.0000829, & - 0.0000838, 0.0000848, 0.0000857, 0.0000866, 0.0000875, & - 0.0000884, 0.0000893, 0.0000902, 0.0000910, 0.0000919, & - 0.0000927, 0.0000935, 0.0000943, 0.0000951, 0.0000959, & - 0.0000967, 0.0000974, 0.0000982, 0.0000990, 0.0000997, & - 0.0001004, 0.0001012, 0.0001019, 0.0001026, 0.0001033, & - 0.0001040, 0.0001047, 0.0001054, 0.0001061, 0.0001067, & - 0.0001074, 0.0001080, & - 0.0000426, 0.0000456, 0.0000482, 0.0000507, 0.0000529, & - 0.0000550, 0.0000570, 0.0000589, 0.0000607, 0.0000624, & - 0.0000641, 0.0000657, 0.0000672, 0.0000687, 0.0000702, & - 0.0000716, 0.0000730, 0.0000743, 0.0000756, 0.0000769, & - 0.0000781, 0.0000794, 0.0000806, 0.0000817, 0.0000829, & - 0.0000840, 0.0000851, 0.0000862, 0.0000873, 0.0000883, & - 0.0000893, 0.0000904, 0.0000913, 0.0000923, 0.0000933, & - 0.0000943, 0.0000952, 0.0000961, 0.0000970, 0.0000979, & - 0.0000988, 0.0000997, 0.0001006, 0.0001014, 0.0001023, & - 0.0001031, 0.0001039, 0.0001047, 0.0001055, 0.0001063, & - 0.0001071, 0.0001079, 0.0001087, 0.0001094, 0.0001102, & - 0.0001109, 0.0001116, 0.0001124, 0.0001131, 0.0001138, & - 0.0001145, 0.0001152, & - 0.0000451, 0.0000482, 0.0000511, 0.0000537, 0.0000561, & - 0.0000584, 0.0000605, 0.0000626, 0.0000645, 0.0000664, & - 0.0000682, 0.0000699, 0.0000715, 0.0000732, 0.0000747, & - 0.0000763, 0.0000777, 0.0000792, 0.0000806, 0.0000820, & - 0.0000833, 0.0000846, 0.0000859, 0.0000872, 0.0000884, & - 0.0000896, 0.0000908, 0.0000920, 0.0000931, 0.0000942, & - 0.0000953, 0.0000964, 0.0000975, 0.0000986, 0.0000996, & - 0.0001006, 0.0001016, 0.0001026, 0.0001036, 0.0001046, & - 0.0001055, 0.0001064, 0.0001074, 0.0001083, 0.0001092, & - 0.0001101, 0.0001110, 0.0001118, 0.0001127, 0.0001135, & - 0.0001144, 0.0001152, 0.0001160, 0.0001168, 0.0001176, & - 0.0001184, 0.0001192, 0.0001200, 0.0001207, 0.0001215, & - 0.0001222, 0.0001230, & - 0.0000478, 0.0000512, 0.0000543, 0.0000571, 0.0000597, & - 0.0000621, 0.0000644, 0.0000666, 0.0000687, 0.0000708, & - 0.0000727, 0.0000746, 0.0000764, 0.0000781, 0.0000798, & - 0.0000814, 0.0000830, 0.0000846, 0.0000861, 0.0000876, & - 0.0000891, 0.0000905, 0.0000919, 0.0000932, 0.0000945, & - 0.0000958, 0.0000971, 0.0000984, 0.0000996, 0.0001008, & - 0.0001020, 0.0001032, 0.0001043, 0.0001055, 0.0001066, & - 0.0001077, 0.0001088, 0.0001098, 0.0001109, 0.0001119, & - 0.0001129, 0.0001139, 0.0001149, 0.0001159, 0.0001168, & - 0.0001178, 0.0001187, 0.0001197, 0.0001206, 0.0001215, & - 0.0001224, 0.0001233, 0.0001241, 0.0001250, 0.0001258, & - 0.0001267, 0.0001275, 0.0001283, 0.0001292, 0.0001300, & - 0.0001308, 0.0001316, & - 0.0000508, 0.0000544, 0.0000577, 0.0000607, 0.0000635, & - 0.0000661, 0.0000686, 0.0000710, 0.0000733, 0.0000754, & - 0.0000775, 0.0000795, 0.0000815, 0.0000834, 0.0000852, & - 0.0000870, 0.0000887, 0.0000904, 0.0000920, 0.0000936, & - 0.0000952, 0.0000967, 0.0000982, 0.0000996, 0.0001011, & - 0.0001025, 0.0001038, 0.0001052, 0.0001065, 0.0001078, & - 0.0001091, 0.0001103, 0.0001116, 0.0001128, 0.0001140, & - 0.0001151, 0.0001163, 0.0001174, 0.0001186, 0.0001197, & - 0.0001207, 0.0001218, 0.0001229, 0.0001239, 0.0001249, & - 0.0001260, 0.0001270, 0.0001279, 0.0001289, 0.0001299, & - 0.0001308, 0.0001318, 0.0001327, 0.0001336, 0.0001317, & - 0.0001325, 0.0001363, 0.0001372, 0.0001380, 0.0001389, & - 0.0001397, 0.0001406, & - 0.0000540, 0.0000579, 0.0000615, 0.0000647, 0.0000677, & - 0.0000706, 0.0000733, 0.0000758, 0.0000783, 0.0000806, & - 0.0000829, 0.0000851, 0.0000872, 0.0000892, 0.0000912, & - 0.0000931, 0.0000950, 0.0000968, 0.0000985, 0.0001003, & - 0.0001020, 0.0001036, 0.0001052, 0.0001068, 0.0001083, & - 0.0001098, 0.0001113, 0.0001127, 0.0001142, 0.0001156, & - 0.0001169, 0.0001183, 0.0001196, 0.0001209, 0.0001222, & - 0.0001234, 0.0001246, 0.0001259, 0.0001270, 0.0001282, & - 0.0001294, 0.0001305, 0.0001317, 0.0001328, 0.0001339, & - 0.0001321, 0.0001360, 0.0001371, 0.0001381, 0.0001391, & - 0.0001401, 0.0001411, 0.0001421, 0.0001431, 0.0001440, & - 0.0001450, 0.0001459, 0.0001469, 0.0001478, 0.0001487, & - 0.0001496, 0.0001505, & - 0.0000575, 0.0000617, 0.0000655, 0.0000690, 0.0000723, & - 0.0000754, 0.0000783, 0.0000810, 0.0000837, 0.0000862, & - 0.0000887, 0.0000910, 0.0000933, 0.0000955, 0.0000976, & - 0.0000997, 0.0001017, 0.0001036, 0.0001055, 0.0001074, & - 0.0001092, 0.0001110, 0.0001127, 0.0001144, 0.0001160, & - 0.0001176, 0.0001192, 0.0001208, 0.0001223, 0.0001238, & - 0.0001252, 0.0001267, 0.0001281, 0.0001295, 0.0001308, & - 0.0001322, 0.0001335, 0.0001319, 0.0001360, 0.0001373, & - 0.0001385, 0.0001397, 0.0001409, 0.0001421, 0.0001433, & - 0.0001444, 0.0001456, 0.0001467, 0.0001478, 0.0001489, & - 0.0001499, 0.0001510, 0.0001520, 0.0001531, 0.0001541, & - 0.0001551, 0.0001561, 0.0001571, 0.0001581, 0.0001590, & - 0.0001600, 0.0001609, & - 0.0000613, 0.0000659, 0.0000700, 0.0000738, 0.0000773, & - 0.0000806, 0.0000838, 0.0000868, 0.0000896, 0.0000924, & - 0.0000950, 0.0000976, 0.0001000, 0.0001024, 0.0001047, & - 0.0001069, 0.0001091, 0.0001112, 0.0001132, 0.0001152, & - 0.0001172, 0.0001191, 0.0001209, 0.0001227, 0.0001245, & - 0.0001262, 0.0001279, 0.0001296, 0.0001312, 0.0001328, & - 0.0001344, 0.0001359, 0.0001374, 0.0001389, 0.0001403, & - 0.0001417, 0.0001432, 0.0001445, 0.0001459, 0.0001472, & - 0.0001485, 0.0001498, 0.0001511, 0.0001524, 0.0001536, & - 0.0001548, 0.0001560, 0.0001572, 0.0001584, 0.0001595, & - 0.0001607, 0.0001618, 0.0001629, 0.0001640, 0.0001651, & - 0.0001661, 0.0001672, 0.0001682, 0.0001693, 0.0001703, & - 0.0001713, 0.0001723, & - 0.0000654, 0.0000703, 0.0000747, 0.0000789, 0.0000827, & - 0.0000863, 0.0000897, 0.0000929, 0.0000960, 0.0000990, & - 0.0001018, 0.0001046, 0.0001072, 0.0001098, 0.0001123, & - 0.0001147, 0.0001170, 0.0001193, 0.0001214, 0.0001236, & - 0.0001257, 0.0001277, 0.0001297, 0.0001316, 0.0001335, & - 0.0001325, 0.0001372, 0.0001389, 0.0001407, 0.0001424, & - 0.0001440, 0.0001457, 0.0001473, 0.0001488, 0.0001504, & - 0.0001519, 0.0001534, 0.0001548, 0.0001563, 0.0001577, & - 0.0001591, 0.0001605, 0.0001618, 0.0001631, 0.0001645, & - 0.0001658, 0.0001670, 0.0001683, 0.0001695, 0.0001707, & - 0.0001720, 0.0001732, 0.0001743, 0.0001755, 0.0001767, & - 0.0001778, 0.0001789, 0.0001800, 0.0001811, 0.0001822, & - 0.0001833, 0.0001844, & - 0.0000699, 0.0000752, 0.0000800, 0.0000844, 0.0000886, & - 0.0000925, 0.0000962, 0.0000997, 0.0001030, 0.0001062, & - 0.0001093, 0.0001123, 0.0001151, 0.0001179, 0.0001205, & - 0.0001231, 0.0001256, 0.0001280, 0.0001304, 0.0001327, & - 0.0001321, 0.0001371, 0.0001392, 0.0001413, 0.0001433, & - 0.0001453, 0.0001472, 0.0001491, 0.0001509, 0.0001527, & - 0.0001545, 0.0001562, 0.0001579, 0.0001596, 0.0001612, & - 0.0001629, 0.0001644, 0.0001660, 0.0001675, 0.0001690, & - 0.0001705, 0.0001720, 0.0001734, 0.0001749, 0.0001762, & - 0.0001776, 0.0001790, 0.0001803, 0.0001817, 0.0001830, & - 0.0001842, 0.0001855, 0.0001868, 0.0001880, 0.0001892, & - 0.0001905, 0.0001917, 0.0001928, 0.0001940, 0.0001952, & - 0.0001963, 0.0001975, & - 0.0000748, 0.0000805, 0.0000858, 0.0000906, 0.0000951, & - 0.0000993, 0.0001033, 0.0001071, 0.0001107, 0.0001142, & - 0.0001175, 0.0001207, 0.0001238, 0.0001267, 0.0001296, & - 0.0001323, 0.0001322, 0.0001376, 0.0001401, 0.0001426, & - 0.0001450, 0.0001473, 0.0001496, 0.0001518, 0.0001539, & - 0.0001560, 0.0001581, 0.0001601, 0.0001620, 0.0001640, & - 0.0001659, 0.0001677, 0.0001695, 0.0001713, 0.0001731, & - 0.0001748, 0.0001765, 0.0001781, 0.0001798, 0.0001814, & - 0.0001830, 0.0001845, 0.0001861, 0.0001876, 0.0001891, & - 0.0001905, 0.0001920, 0.0001934, 0.0001948, 0.0001962, & - 0.0001976, 0.0001990, 0.0002003, 0.0002017, 0.0002030, & - 0.0002043, 0.0002056, 0.0002068, 0.0002081, 0.0002093, & - 0.0002106, 0.0002118, & - 0.0000802, 0.0000863, 0.0000920, 0.0000972, 0.0001021, & - 0.0001067, 0.0001110, 0.0001151, 0.0001190, 0.0001227, & - 0.0001263, 0.0001297, 0.0001330, 0.0001362, 0.0001393, & - 0.0001422, 0.0001451, 0.0001479, 0.0001506, 0.0001532, & - 0.0001557, 0.0001582, 0.0001606, 0.0001630, 0.0001653, & - 0.0001675, 0.0001697, 0.0001719, 0.0001740, 0.0001760, & - 0.0001780, 0.0001800, 0.0001819, 0.0001839, 0.0001857, & - 0.0001876, 0.0001894, 0.0001911, 0.0001929, 0.0001946, & - 0.0001963, 0.0001980, 0.0001996, 0.0002012, 0.0002028, & - 0.0002044, 0.0002060, 0.0002075, 0.0002090, 0.0002105, & - 0.0002120, 0.0002135, 0.0002149, 0.0002164, 0.0002178, & - 0.0002192, 0.0002205, 0.0002219, 0.0002233, 0.0002246, & - 0.0002259, 0.0002273, & - 0.0000859, 0.0000926, 0.0000987, 0.0001044, 0.0001097, & - 0.0001146, 0.0001193, 0.0001237, 0.0001279, 0.0001319, & - 0.0001358, 0.0001395, 0.0001430, 0.0001464, 0.0001497, & - 0.0001528, 0.0001559, 0.0001589, 0.0001617, 0.0001645, & - 0.0001673, 0.0001699, 0.0001725, 0.0001750, 0.0001774, & - 0.0001798, 0.0001822, 0.0001845, 0.0001867, 0.0001889, & - 0.0001911, 0.0001932, 0.0001953, 0.0001973, 0.0001993, & - 0.0002013, 0.0002032, 0.0002051, 0.0002070, 0.0002088, & - 0.0002107, 0.0002124, 0.0002142, 0.0002160, 0.0002177, & - 0.0002194, 0.0002211, 0.0002227, 0.0002243, 0.0002260, & - 0.0002276, 0.0002291, 0.0002307, 0.0002322, 0.0002338, & - 0.0002353, 0.0002368, 0.0002382, 0.0002397, 0.0002412, & - 0.0002426, 0.0002440, & - 0.0000922, 0.0000995, 0.0001061, 0.0001122, 0.0001179, & - 0.0001233, 0.0001283, 0.0001331, 0.0001376, 0.0001419, & - 0.0001460, 0.0001500, 0.0001538, 0.0001574, 0.0001609, & - 0.0001643, 0.0001676, 0.0001707, 0.0001738, 0.0001768, & - 0.0001797, 0.0001825, 0.0001853, 0.0001880, 0.0001906, & - 0.0001932, 0.0001957, 0.0001981, 0.0002006, 0.0002029, & - 0.0002052, 0.0002075, 0.0002097, 0.0002119, 0.0002141, & - 0.0002162, 0.0002183, 0.0002203, 0.0002223, 0.0002243, & - 0.0002263, 0.0002282, 0.0002301, 0.0002320, 0.0002339, & - 0.0002357, 0.0002375, 0.0002393, 0.0002411, 0.0002428, & - 0.0002446, 0.0002463, 0.0002480, 0.0002496, 0.0002513, & - 0.0002529, 0.0002546, 0.0002562, 0.0002578, 0.0002593, & - 0.0002609, 0.0002625, & - 0.0000990, 0.0001069, 0.0001141, 0.0001207, 0.0001268, & - 0.0001326, 0.0001380, 0.0001431, 0.0001480, 0.0001526, & - 0.0001570, 0.0001612, 0.0001653, 0.0001692, 0.0001729, & - 0.0001766, 0.0001801, 0.0001835, 0.0001868, 0.0001900, & - 0.0001931, 0.0001961, 0.0001991, 0.0002019, 0.0002048, & - 0.0002075, 0.0002102, 0.0002129, 0.0002154, 0.0002180, & - 0.0002205, 0.0002229, 0.0002253, 0.0002277, 0.0002300, & - 0.0002323, 0.0002346, 0.0002368, 0.0002390, 0.0002411, & - 0.0002432, 0.0002453, 0.0002474, 0.0002494, 0.0002515, & - 0.0002535, 0.0002554, 0.0002574, 0.0002593, 0.0002612, & - 0.0002631, 0.0002649, 0.0002668, 0.0002686, 0.0002704, & - 0.0002722, 0.0002740, 0.0002757, 0.0002775, 0.0002792, & - 0.0002809, 0.0002826, & - 0.0001063, 0.0001148, 0.0001226, 0.0001297, 0.0001363, & - 0.0001425, 0.0001483, 0.0001538, 0.0001590, 0.0001639, & - 0.0001687, 0.0001732, 0.0001775, 0.0001817, 0.0001857, & - 0.0001896, 0.0001933, 0.0001970, 0.0002005, 0.0002039, & - 0.0002073, 0.0002105, 0.0002137, 0.0002168, 0.0002198, & - 0.0002228, 0.0002257, 0.0002286, 0.0002314, 0.0002341, & - 0.0002368, 0.0002394, 0.0002420, 0.0002446, 0.0002471, & - 0.0002496, 0.0002520, 0.0002544, 0.0002568, 0.0002591, & - 0.0002615, 0.0002637, 0.0002660, 0.0002682, 0.0002704, & - 0.0002726, 0.0002747, 0.0002768, 0.0002789, 0.0002810, & - 0.0002831, 0.0002851, 0.0002871, 0.0002891, 0.0002911, & - 0.0002930, 0.0002950, 0.0002969, 0.0002988, 0.0003007, & - 0.0003025, 0.0003044, & - 0.0001141, 0.0001233, 0.0001316, 0.0001393, 0.0001464, & - 0.0001531, 0.0001593, 0.0001652, 0.0001707, 0.0001760, & - 0.0001811, 0.0001859, 0.0001905, 0.0001950, 0.0001993, & - 0.0002035, 0.0002075, 0.0002114, 0.0002152, 0.0002189, & - 0.0002225, 0.0002260, 0.0002294, 0.0002328, 0.0002360, & - 0.0002393, 0.0002424, 0.0002455, 0.0002485, 0.0002515, & - 0.0002544, 0.0002573, 0.0002601, 0.0002629, 0.0002656, & - 0.0002683, 0.0002709, 0.0002736, 0.0002762, 0.0002787, & - 0.0002812, 0.0002837, 0.0002862, 0.0002886, 0.0002910, & - 0.0002934, 0.0002957, 0.0002980, 0.0003003, 0.0003026, & - 0.0003048, 0.0003071, 0.0003093, 0.0003114, 0.0003136, & - 0.0003157, 0.0003179, 0.0003200, 0.0003221, 0.0003241, & - 0.0003262, 0.0003282, & - 0.0001224, 0.0001323, 0.0001413, 0.0001496, 0.0001572, & - 0.0001643, 0.0001709, 0.0001772, 0.0001832, 0.0001888, & - 0.0001943, 0.0001994, 0.0002044, 0.0002092, 0.0002138, & - 0.0002183, 0.0002226, 0.0002269, 0.0002309, 0.0002349, & - 0.0002388, 0.0002426, 0.0002463, 0.0002499, 0.0002535, & - 0.0002570, 0.0002604, 0.0002637, 0.0002670, 0.0002702, & - 0.0002734, 0.0002765, 0.0002796, 0.0002826, 0.0002856, & - 0.0002886, 0.0002915, 0.0002943, 0.0002972, 0.0002999, & - 0.0003027, 0.0003054, 0.0003081, 0.0003108, 0.0003134, & - 0.0003160, 0.0003185, 0.0003211, 0.0003236, 0.0003261, & - 0.0003286, 0.0003310, 0.0003334, 0.0003358, 0.0003382, & - 0.0003405, 0.0003428, 0.0003451, 0.0003474, 0.0003497, & - 0.0003519, 0.0003542, & - 0.0001312, 0.0001419, 0.0001515, 0.0001603, 0.0001685, & - 0.0001761, 0.0001832, 0.0001899, 0.0001963, 0.0002024, & - 0.0002082, 0.0002138, 0.0002191, 0.0002243, 0.0002292, & - 0.0002341, 0.0002387, 0.0002433, 0.0002477, 0.0002520, & - 0.0002562, 0.0002603, 0.0002644, 0.0002683, 0.0002722, & - 0.0002759, 0.0002796, 0.0002833, 0.0002869, 0.0002904, & - 0.0002939, 0.0002973, 0.0003006, 0.0003039, 0.0003072, & - 0.0003104, 0.0003136, 0.0003167, 0.0003198, 0.0003228, & - 0.0003259, 0.0003288, 0.0003318, 0.0003347, 0.0003376, & - 0.0003404, 0.0003432, 0.0003460, 0.0003487, 0.0003515, & - 0.0003542, 0.0003568, 0.0003595, 0.0003621, 0.0003647, & - 0.0003673, 0.0003698, 0.0003724, 0.0003749, 0.0003773, & - 0.0003798, 0.0003822, & - 0.0001406, 0.0001520, 0.0001623, 0.0001718, 0.0001805, & - 0.0001886, 0.0001963, 0.0002035, 0.0002103, 0.0002168, & - 0.0002231, 0.0002291, 0.0002348, 0.0002404, 0.0002458, & - 0.0002510, 0.0002561, 0.0002610, 0.0002658, 0.0002705, & - 0.0002750, 0.0002795, 0.0002839, 0.0002882, 0.0002924, & - 0.0002965, 0.0003005, 0.0003045, 0.0003084, 0.0003123, & - 0.0003161, 0.0003198, 0.0003235, 0.0003271, 0.0003307, & - 0.0003342, 0.0003376, 0.0003411, 0.0003445, 0.0003478, & - 0.0003511, 0.0003544, 0.0003576, 0.0003608, 0.0003639, & - 0.0003670, 0.0003701, 0.0003731, 0.0003762, 0.0003791, & - 0.0003821, 0.0003850, 0.0003879, 0.0003908, 0.0003936, & - 0.0003965, 0.0003992, 0.0004020, 0.0004047, 0.0004075, & - 0.0004102, 0.0004128, & - 0.0001506, 0.0001628, 0.0001739, 0.0001840, 0.0001934, & - 0.0002021, 0.0002103, 0.0002180, 0.0002254, 0.0002324, & - 0.0002391, 0.0002456, 0.0002518, 0.0002579, 0.0002637, & - 0.0002694, 0.0002749, 0.0002802, 0.0002854, 0.0002905, & - 0.0002955, 0.0003004, 0.0003052, 0.0003099, 0.0003145, & - 0.0003190, 0.0003234, 0.0003278, 0.0003320, 0.0003362, & - 0.0003404, 0.0003445, 0.0003485, 0.0003524, 0.0003564, & - 0.0003602, 0.0003640, 0.0003678, 0.0003715, 0.0003751, & - 0.0003787, 0.0003823, 0.0003858, 0.0003893, 0.0003928, & - 0.0003962, 0.0003995, 0.0004029, 0.0004062, 0.0004094, & - 0.0004127, 0.0004159, 0.0004190, 0.0004222, 0.0004253, & - 0.0004283, 0.0004314, 0.0004344, 0.0004374, 0.0004404, & - 0.0004433, 0.0004462, & - 0.0001613, 0.0001744, 0.0001863, 0.0001971, 0.0002072, & - 0.0002165, 0.0002254, 0.0002337, 0.0002417, 0.0002493, & - 0.0002565, 0.0002636, 0.0002703, 0.0002769, 0.0002832, & - 0.0002894, 0.0002954, 0.0003013, 0.0003070, 0.0003125, & - 0.0003180, 0.0003233, 0.0003286, 0.0003337, 0.0003387, & - 0.0003436, 0.0003485, 0.0003533, 0.0003579, 0.0003625, & - 0.0003671, 0.0003716, 0.0003760, 0.0003803, 0.0003846, & - 0.0003888, 0.0003929, 0.0003971, 0.0004011, 0.0004051, & - 0.0004091, 0.0004130, 0.0004168, 0.0004206, 0.0004244, & - 0.0004281, 0.0004318, 0.0004354, 0.0004390, 0.0004426, & - 0.0004461, 0.0004496, 0.0004530, 0.0004565, 0.0004598, & - 0.0004632, 0.0004665, 0.0004698, 0.0004730, 0.0004763, & - 0.0004795, 0.0004826, & - 0.0001728, 0.0001868, 0.0001996, 0.0002112, 0.0002220, & - 0.0002321, 0.0002417, 0.0002507, 0.0002593, 0.0002676, & - 0.0002755, 0.0002831, 0.0002905, 0.0002977, 0.0003046, & - 0.0003113, 0.0003179, 0.0003243, 0.0003305, 0.0003366, & - 0.0003426, 0.0003484, 0.0003542, 0.0003598, 0.0003653, & - 0.0003707, 0.0003760, 0.0003812, 0.0003863, 0.0003914, & - 0.0003963, 0.0004012, 0.0004060, 0.0004108, 0.0004154, & - 0.0004201, 0.0004246, 0.0004291, 0.0004335, 0.0004379, & - 0.0004422, 0.0004464, 0.0004506, 0.0004548, 0.0004589, & - 0.0004629, 0.0004669, 0.0004709, 0.0004748, 0.0004787, & - 0.0004825, 0.0004863, 0.0004900, 0.0004937, 0.0004974, & - 0.0005010, 0.0005046, 0.0005082, 0.0005117, 0.0005152, & - 0.0005187, 0.0005221, & - 0.0001851, 0.0002003, 0.0002139, 0.0002265, 0.0002382, & - 0.0002491, 0.0002595, 0.0002693, 0.0002787, 0.0002877, & - 0.0002963, 0.0003047, 0.0003127, 0.0003205, 0.0003281, & - 0.0003355, 0.0003427, 0.0003497, 0.0003565, 0.0003632, & - 0.0003697, 0.0003761, 0.0003824, 0.0003885, 0.0003945, & - 0.0004004, 0.0004062, 0.0004119, 0.0004175, 0.0004230, & - 0.0004285, 0.0004338, 0.0004390, 0.0004442, 0.0004493, & - 0.0004543, 0.0004593, 0.0004641, 0.0004689, 0.0004737, & - 0.0004784, 0.0004830, 0.0004875, 0.0004920, 0.0004965, & - 0.0005009, 0.0005052, 0.0005095, 0.0005138, 0.0005179, & - 0.0005221, 0.0005262, 0.0005302, 0.0005342, 0.0005268, & - 0.0005421, 0.0005460, 0.0005499, 0.0005537, 0.0005574, & - 0.0005612, 0.0005649, & - 0.0001985, 0.0002149, 0.0002297, 0.0002433, 0.0002559, & - 0.0002679, 0.0002791, 0.0002898, 0.0003001, 0.0003099, & - 0.0003193, 0.0003285, 0.0003373, 0.0003459, 0.0003542, & - 0.0003622, 0.0003701, 0.0003778, 0.0003853, 0.0003926, & - 0.0003997, 0.0004067, 0.0004135, 0.0004202, 0.0004268, & - 0.0004333, 0.0004396, 0.0004458, 0.0004519, 0.0004579, & - 0.0004638, 0.0004696, 0.0004753, 0.0004809, 0.0004864, & - 0.0004919, 0.0004972, 0.0005025, 0.0005077, 0.0005129, & - 0.0005179, 0.0005229, 0.0005279, 0.0005327, 0.0005375, & - 0.0005423, 0.0005470, 0.0005516, 0.0005562, 0.0005607, & - 0.0005652, 0.0005696, 0.0005739, 0.0005782, 0.0005825, & - 0.0005867, 0.0005909, 0.0005951, 0.0005991, 0.0006032, & - 0.0006072, 0.0006112, & - 0.0002132, 0.0002309, 0.0002469, 0.0002617, 0.0002755, & - 0.0002885, 0.0003008, 0.0003125, 0.0003237, 0.0003345, & - 0.0003449, 0.0003549, 0.0003645, 0.0003739, 0.0003830, & - 0.0003918, 0.0004004, 0.0004088, 0.0004170, 0.0004250, & - 0.0004328, 0.0004404, 0.0004478, 0.0004551, 0.0004623, & - 0.0004693, 0.0004762, 0.0004829, 0.0004895, 0.0004960, & - 0.0005024, 0.0005087, 0.0005149, 0.0005210, 0.0005269, & - 0.0005328, 0.0005272, 0.0005443, 0.0005500, 0.0005555, & - 0.0005609, 0.0005663, 0.0005717, 0.0005769, 0.0005821, & - 0.0005872, 0.0005922, 0.0005972, 0.0006021, 0.0006070, & - 0.0006118, 0.0006165, 0.0006212, 0.0006258, 0.0006304, & - 0.0006349, 0.0006394, 0.0006438, 0.0006482, 0.0006525, & - 0.0006568, 0.0006611, & - 0.0002293, 0.0002485, 0.0002660, 0.0002821, 0.0002972, & - 0.0003114, 0.0003249, 0.0003377, 0.0003500, 0.0003618, & - 0.0003732, 0.0003841, 0.0003947, 0.0004049, 0.0004149, & - 0.0004245, 0.0004339, 0.0004430, 0.0004520, 0.0004606, & - 0.0004691, 0.0004774, 0.0004855, 0.0004934, 0.0005012, & - 0.0005087, 0.0005162, 0.0005235, 0.0005306, 0.0005377, & - 0.0005446, 0.0005513, 0.0005580, 0.0005646, 0.0005710, & - 0.0005773, 0.0005836, 0.0005897, 0.0005957, 0.0006017, & - 0.0006076, 0.0006134, 0.0006191, 0.0006247, 0.0006302, & - 0.0006357, 0.0006411, 0.0006464, 0.0006517, 0.0006569, & - 0.0006620, 0.0006671, 0.0006721, 0.0006771, 0.0006820, & - 0.0006868, 0.0006916, 0.0006963, 0.0007010, 0.0007056, & - 0.0007102, 0.0007147, & - 0.0002471, 0.0002680, 0.0002871, 0.0003048, 0.0003214, & - 0.0003369, 0.0003517, 0.0003658, 0.0003792, 0.0003921, & - 0.0004045, 0.0004165, 0.0004281, 0.0004392, 0.0004501, & - 0.0004606, 0.0004708, 0.0004807, 0.0004903, 0.0004998, & - 0.0005089, 0.0005179, 0.0005267, 0.0005352, 0.0005436, & - 0.0005518, 0.0005598, 0.0005677, 0.0005754, 0.0005829, & - 0.0005903, 0.0005976, 0.0006048, 0.0006118, 0.0006187, & - 0.0006255, 0.0006322, 0.0006388, 0.0006453, 0.0006516, & - 0.0006579, 0.0006641, 0.0006702, 0.0006762, 0.0006822, & - 0.0006880, 0.0006938, 0.0006995, 0.0007051, 0.0007106, & - 0.0007161, 0.0007215, 0.0007269, 0.0007321, 0.0007374, & - 0.0007425, 0.0007476, 0.0007527, 0.0007576, 0.0007626, & - 0.0007674, 0.0007723, & - 0.0002669, 0.0002898, 0.0003107, 0.0003300, 0.0003482, & - 0.0003653, 0.0003815, 0.0003969, 0.0004116, 0.0004257, & - 0.0004392, 0.0004522, 0.0004648, 0.0004769, 0.0004887, & - 0.0005001, 0.0005111, 0.0005218, 0.0005323, 0.0005425, & - 0.0005524, 0.0005620, 0.0005714, 0.0005807, 0.0005897, & - 0.0005985, 0.0006071, 0.0006155, 0.0006238, 0.0006319, & - 0.0006398, 0.0006476, 0.0006553, 0.0006628, 0.0006702, & - 0.0006775, 0.0006846, 0.0006917, 0.0006986, 0.0007054, & - 0.0007121, 0.0007187, 0.0007252, 0.0007316, 0.0007379, & - 0.0007442, 0.0007503, 0.0007564, 0.0007624, 0.0007683, & - 0.0007741, 0.0007798, 0.0007855, 0.0007911, 0.0007967, & - 0.0008022, 0.0008076, 0.0008129, 0.0008182, 0.0008235, & - 0.0008286, 0.0008337, & - 0.0002889, 0.0003140, 0.0003369, 0.0003582, 0.0003780, & - 0.0003967, 0.0004144, 0.0004312, 0.0004473, 0.0004626, & - 0.0004773, 0.0004914, 0.0005050, 0.0005182, 0.0005309, & - 0.0005432, 0.0005551, 0.0005666, 0.0005779, 0.0005888, & - 0.0005995, 0.0006098, 0.0006200, 0.0006298, 0.0006395, & - 0.0006489, 0.0006581, 0.0006672, 0.0006760, 0.0006847, & - 0.0006932, 0.0007015, 0.0007097, 0.0007177, 0.0007256, & - 0.0007333, 0.0007409, 0.0007484, 0.0007558, 0.0007630, & - 0.0007702, 0.0007772, 0.0007841, 0.0007909, 0.0007976, & - 0.0008043, 0.0008108, 0.0008172, 0.0008236, 0.0008298, & - 0.0008360, 0.0008421, 0.0008481, 0.0008541, 0.0008600, & - 0.0008658, 0.0008715, 0.0008772, 0.0008828, 0.0008883, & - 0.0008938, 0.0008992, & - 0.0003135, 0.0003410, 0.0003662, 0.0003895, 0.0004112, & - 0.0004316, 0.0004509, 0.0004692, 0.0004866, 0.0005032, & - 0.0005191, 0.0005344, 0.0005491, 0.0005632, 0.0005769, & - 0.0005901, 0.0006029, 0.0006153, 0.0006274, 0.0006391, & - 0.0006505, 0.0006616, 0.0006725, 0.0006830, 0.0006933, & - 0.0007034, 0.0007132, 0.0007229, 0.0007323, 0.0007415, & - 0.0007506, 0.0007595, 0.0007682, 0.0007767, 0.0007851, & - 0.0007933, 0.0008014, 0.0008093, 0.0008172, 0.0008249, & - 0.0008324, 0.0008399, 0.0008472, 0.0008544, 0.0008615, & - 0.0008685, 0.0008755, 0.0008823, 0.0008890, 0.0008956, & - 0.0009021, 0.0009086, 0.0009149, 0.0009212, 0.0009274, & - 0.0009335, 0.0009396, 0.0009455, 0.0009514, 0.0009573, & - 0.0009630, 0.0009687, & - 0.0003409, 0.0003711, 0.0003987, 0.0004241, 0.0004478, & - 0.0004700, 0.0004909, 0.0005107, 0.0005295, 0.0005474, & - 0.0005645, 0.0005810, 0.0005968, 0.0006120, 0.0006267, & - 0.0006408, 0.0006545, 0.0006678, 0.0006807, 0.0006932, & - 0.0007054, 0.0007173, 0.0007288, 0.0007401, 0.0007510, & - 0.0007618, 0.0007722, 0.0007825, 0.0007925, 0.0008023, & - 0.0008119, 0.0008213, 0.0008306, 0.0008396, 0.0008485, & - 0.0008572, 0.0008658, 0.0008742, 0.0008824, 0.0008906, & - 0.0008986, 0.0009064, 0.0009142, 0.0009218, 0.0009293, & - 0.0009367, 0.0009439, 0.0009511, 0.0009582, 0.0009652, & - 0.0009720, 0.0009788, 0.0009855, 0.0009921, 0.0009986, & - 0.0010050, 0.0010113, 0.0010176, 0.0010238, 0.0010299, & - 0.0010359, 0.0010419, & - 0.0003715, 0.0004046, 0.0004346, 0.0004623, 0.0004880, & - 0.0005120, 0.0005346, 0.0005560, 0.0005762, 0.0005955, & - 0.0006139, 0.0006315, 0.0006485, 0.0006648, 0.0006804, & - 0.0006956, 0.0007102, 0.0007244, 0.0007382, 0.0007515, & - 0.0007645, 0.0007771, 0.0007893, 0.0008012, 0.0008129, & - 0.0008243, 0.0008354, 0.0008463, 0.0008569, 0.0008673, & - 0.0008774, 0.0008874, 0.0008971, 0.0009067, 0.0009160, & - 0.0009252, 0.0009342, 0.0009431, 0.0009518, 0.0009604, & - 0.0009688, 0.0009770, 0.0009851, 0.0009931, 0.0010010, & - 0.0010088, 0.0010164, 0.0010239, 0.0010313, 0.0010386, & - 0.0010458, 0.0010529, 0.0010598, 0.0010667, 0.0010735, & - 0.0010802, 0.0010869, 0.0010934, 0.0010998, 0.0011062, & - 0.0011125, 0.0011187, & - 0.0004055, 0.0004415, 0.0004742, 0.0005042, 0.0005320, & - 0.0005579, 0.0005822, 0.0006052, 0.0006269, 0.0006476, & - 0.0006673, 0.0006862, 0.0007042, 0.0007216, 0.0007383, & - 0.0007545, 0.0007701, 0.0007851, 0.0007997, 0.0008139, & - 0.0008276, 0.0008410, 0.0008540, 0.0008666, 0.0008789, & - 0.0008910, 0.0009027, 0.0009141, 0.0009253, 0.0009362, & - 0.0009469, 0.0009574, 0.0009676, 0.0009777, 0.0009875, & - 0.0009972, 0.0010066, 0.0010159, 0.0010250, 0.0010339, & - 0.0010427, 0.0010514, 0.0010599, 0.0010682, 0.0010764, & - 0.0010845, 0.0010925, 0.0011003, 0.0011080, 0.0011156, & - 0.0011231, 0.0011304, 0.0011377, 0.0011449, 0.0011519, & - 0.0011589, 0.0011658, 0.0011726, 0.0011793, 0.0011859, & - 0.0011924, 0.0011989, & - 0.0004429, 0.0004821, 0.0005175, 0.0005499, 0.0005798, & - 0.0006076, 0.0006337, 0.0006583, 0.0006816, 0.0007037, & - 0.0007247, 0.0007448, 0.0007640, 0.0007825, 0.0008003, & - 0.0008174, 0.0008339, 0.0008499, 0.0008653, 0.0008803, & - 0.0008948, 0.0009089, 0.0009226, 0.0009359, 0.0009488, & - 0.0009615, 0.0009738, 0.0009858, 0.0009975, 0.0010089, & - 0.0010201, 0.0010311, 0.0010418, 0.0010523, 0.0010625, & - 0.0010726, 0.0010825, 0.0010921, 0.0011016, 0.0011109, & - 0.0011201, 0.0011291, 0.0011379, 0.0011466, 0.0011551, & - 0.0011635, 0.0011718, 0.0011799, 0.0011879, 0.0011958, & - 0.0012035, 0.0012112, 0.0012187, 0.0012261, 0.0012335, & - 0.0012407, 0.0012478, 0.0012548, 0.0012618, 0.0012686, & - 0.0012754, 0.0012821, & - 0.0004840, 0.0005264, 0.0005646, 0.0005994, 0.0006316, & - 0.0006614, 0.0006893, 0.0007155, 0.0007403, 0.0007638, & - 0.0007862, 0.0008075, 0.0008279, 0.0008475, 0.0008663, & - 0.0008844, 0.0009018, 0.0009186, 0.0009349, 0.0009506, & - 0.0009658, 0.0009806, 0.0009950, 0.0010089, 0.0010225, & - 0.0010356, 0.0010485, 0.0010610, 0.0010733, 0.0010852, & - 0.0010968, 0.0011082, 0.0011194, 0.0011303, 0.0011409, & - 0.0011514, 0.0011616, 0.0011717, 0.0011815, 0.0011912, & - 0.0012007, 0.0012100, 0.0012191, 0.0012281, 0.0012370, & - 0.0012457, 0.0012542, 0.0012627, 0.0012709, 0.0012791, & - 0.0012871, 0.0012951, 0.0013029, 0.0013106, 0.0013181, & - 0.0013256, 0.0013330, 0.0013403, 0.0013475, 0.0013546, & - 0.0013616, 0.0013685, & - 0.0005290, 0.0005747, 0.0006157, 0.0006530, 0.0006874, & - 0.0007192, 0.0007490, 0.0007769, 0.0008032, 0.0008281, & - 0.0008518, 0.0008743, 0.0008959, 0.0009165, 0.0009362, & - 0.0009552, 0.0009735, 0.0009911, 0.0010082, 0.0010246, & - 0.0010405, 0.0010559, 0.0010709, 0.0010854, 0.0010995, & - 0.0011132, 0.0011266, 0.0011396, 0.0011523, 0.0011647, & - 0.0011768, 0.0011886, 0.0012002, 0.0012115, 0.0012225, & - 0.0012334, 0.0012440, 0.0012544, 0.0012646, 0.0012746, & - 0.0012844, 0.0012941, 0.0013036, 0.0013129, 0.0013220, & - 0.0013310, 0.0013399, 0.0013486, 0.0013572, 0.0013657, & - 0.0013740, 0.0013823, 0.0013904, 0.0013983, 0.0014062, & - 0.0014140, 0.0014217, 0.0014292, 0.0014367, 0.0014441, & - 0.0014514, 0.0014586, & - 0.0005778, 0.0006269, 0.0006708, 0.0007107, 0.0007473, & - 0.0007812, 0.0008127, 0.0008423, 0.0008701, 0.0008964, & - 0.0009213, 0.0009450, 0.0009676, 0.0009892, 0.0010099, & - 0.0010297, 0.0010488, 0.0010671, 0.0010848, 0.0011020, & - 0.0011185, 0.0011345, 0.0011500, 0.0011651, 0.0011798, & - 0.0011940, 0.0012078, 0.0012213, 0.0012345, 0.0012473, & - 0.0012599, 0.0012721, 0.0012841, 0.0012958, 0.0013073, & - 0.0013185, 0.0013295, 0.0013403, 0.0013509, 0.0013612, & - 0.0013714, 0.0013815, 0.0013913, 0.0014010, 0.0014105, & - 0.0014199, 0.0014291, 0.0014382, 0.0014471, 0.0014559, & - 0.0014646, 0.0014732, 0.0014816, 0.0014900, 0.0014982, & - 0.0015063, 0.0015143, 0.0015222, 0.0015300, 0.0015377, & - 0.0015453, 0.0015528, & - 0.0006307, 0.0006832, 0.0007301, 0.0007725, 0.0008114, & - 0.0008472, 0.0008805, 0.0009116, 0.0009409, 0.0009684, & - 0.0009945, 0.0010193, 0.0010428, 0.0010653, 0.0010868, & - 0.0011075, 0.0011273, 0.0011464, 0.0011647, 0.0011825, & - 0.0011996, 0.0012162, 0.0012323, 0.0012480, 0.0012631, & - 0.0012779, 0.0012922, 0.0013062, 0.0013199, 0.0013332, & - 0.0013462, 0.0013589, 0.0013713, 0.0013835, 0.0013954, & - 0.0014071, 0.0014186, 0.0014298, 0.0014408, 0.0014516, & - 0.0014623, 0.0014727, 0.0014830, 0.0014931, 0.0015030, & - 0.0015128, 0.0015225, 0.0015319, 0.0015413, 0.0015505, & - 0.0015596, 0.0015686, 0.0015774, 0.0015862, 0.0015948, & - 0.0016033, 0.0016117, 0.0016200, 0.0016282, 0.0016363, & - 0.0016443, 0.0016522, & - 0.0006876, 0.0007436, 0.0007934, 0.0008383, 0.0008793, & - 0.0009170, 0.0009520, 0.0009846, 0.0010150, 0.0010439, & - 0.0010710, 0.0010968, 0.0011213, 0.0011446, 0.0011669, & - 0.0011883, 0.0012089, 0.0012287, 0.0012477, 0.0012661, & - 0.0012839, 0.0013011, 0.0013178, 0.0013340, 0.0013498, & - 0.0013651, 0.0013800, 0.0013946, 0.0014088, 0.0014227, & - 0.0014362, 0.0014495, 0.0014624, 0.0014751, 0.0014876, & - 0.0014998, 0.0015117, 0.0015235, 0.0015350, 0.0015464, & - 0.0015575, 0.0015685, 0.0015792, 0.0015899, 0.0016003, & - 0.0016106, 0.0016207, 0.0016307, 0.0016405, 0.0016502, & - 0.0016598, 0.0016693, 0.0016786, 0.0016878, 0.0016969, & - 0.0017059, 0.0017147, 0.0017235, 0.0017322, 0.0017407, & - 0.0017492, 0.0017575, & - 0.0007485, 0.0008080, 0.0008606, 0.0009079, 0.0009509, & - 0.0009904, 0.0010269, 0.0010608, 0.0010926, 0.0011225, & - 0.0011507, 0.0011774, 0.0012028, 0.0012270, 0.0012501, & - 0.0012723, 0.0012936, 0.0013142, 0.0013339, 0.0013531, & - 0.0013716, 0.0013895, 0.0014069, 0.0014238, 0.0014402, & - 0.0014562, 0.0014718, 0.0014870, 0.0015019, 0.0015164, & - 0.0015306, 0.0015445, 0.0015581, 0.0015714, 0.0015845, & - 0.0015973, 0.0016099, 0.0016223, 0.0016344, 0.0016464, & - 0.0016581, 0.0016697, 0.0016811, 0.0016922, 0.0017033, & - 0.0017141, 0.0017249, 0.0017354, 0.0017458, 0.0017561, & - 0.0017662, 0.0017762, 0.0017861, 0.0017959, 0.0018055, & - 0.0018150, 0.0018244, 0.0018337, 0.0018429, 0.0018520, & - 0.0018610, 0.0018698, & - 0.0008135, 0.0008762, 0.0009315, 0.0009811, 0.0010259, & - 0.0010670, 0.0011050, 0.0011402, 0.0011732, 0.0012042, & - 0.0012334, 0.0012611, 0.0012874, 0.0013126, 0.0013366, & - 0.0013597, 0.0013819, 0.0014033, 0.0014239, 0.0014439, & - 0.0014632, 0.0014820, 0.0015002, 0.0015179, 0.0015351, & - 0.0015519, 0.0015683, 0.0015843, 0.0016000, 0.0016153, & - 0.0016302, 0.0016449, 0.0016592, 0.0016733, 0.0016871, & - 0.0017007, 0.0017140, 0.0017271, 0.0017400, 0.0017526, & - 0.0017651, 0.0017773, 0.0017894, 0.0018012, 0.0018129, & - 0.0018245, 0.0018358, 0.0018471, 0.0018581, 0.0018690, & - 0.0018798, 0.0018904, 0.0019009, 0.0019113, 0.0019215, & - 0.0019316, 0.0019416, 0.0019515, 0.0019613, 0.0019709, & - 0.0019805, 0.0019899, & - 0.0008823, 0.0009481, 0.0010059, 0.0010575, 0.0011042, & - 0.0011468, 0.0011862, 0.0012227, 0.0012569, 0.0012891, & - 0.0013195, 0.0013483, 0.0013757, 0.0014020, 0.0014271, & - 0.0014512, 0.0014744, 0.0014968, 0.0015185, 0.0015395, & - 0.0015598, 0.0015795, 0.0015987, 0.0016174, 0.0016356, & - 0.0016533, 0.0016707, 0.0016876, 0.0017041, 0.0017203, & - 0.0017362, 0.0017517, 0.0017669, 0.0017819, 0.0017965, & - 0.0018109, 0.0018251, 0.0018390, 0.0018527, 0.0018661, & - 0.0018793, 0.0018924, 0.0019052, 0.0019178, 0.0019303, & - 0.0019425, 0.0019546, 0.0019665, 0.0019783, 0.0019899, & - 0.0020014, 0.0020127, 0.0020238, 0.0020348, 0.0020457, & - 0.0020565, 0.0020671, 0.0020776, 0.0020880, 0.0020983, & - 0.0021084, 0.0021185, & - 0.0009546, 0.0010233, 0.0010834, 0.0011370, 0.0011854, & - 0.0012297, 0.0012705, 0.0013085, 0.0013441, 0.0013776, & - 0.0014093, 0.0014395, 0.0014682, 0.0014957, 0.0015221, & - 0.0015475, 0.0015720, 0.0015956, 0.0016185, 0.0016406, & - 0.0016621, 0.0016830, 0.0017033, 0.0017231, 0.0017424, & - 0.0017613, 0.0017797, 0.0017976, 0.0018152, 0.0018324, & - 0.0018493, 0.0018658, 0.0018820, 0.0018979, 0.0019135, & - 0.0019288, 0.0019439, 0.0019587, 0.0019732, 0.0019875, & - 0.0020016, 0.0020155, 0.0020291, 0.0020425, 0.0020558, & - 0.0020688, 0.0020817, 0.0020944, 0.0021069, 0.0021192, & - 0.0021314, 0.0021434, 0.0021095, 0.0021670, 0.0021786, & - 0.0021900, 0.0022013, 0.0022125, 0.0022235, 0.0022344, & - 0.0022452, 0.0022558, & - 0.0010302, 0.0011016, 0.0011640, 0.0012195, 0.0012698, & - 0.0013159, 0.0013584, 0.0013981, 0.0014354, 0.0014705, & - 0.0015038, 0.0015355, 0.0015658, 0.0015948, 0.0016227, & - 0.0016496, 0.0016755, 0.0017005, 0.0017248, 0.0017483, & - 0.0017712, 0.0017934, 0.0018150, 0.0018360, 0.0018566, & - 0.0018766, 0.0018962, 0.0019153, 0.0019340, 0.0019524, & - 0.0019703, 0.0019879, 0.0020052, 0.0020221, 0.0020387, & - 0.0020550, 0.0020710, 0.0020867, 0.0021022, 0.0021174, & - 0.0021324, 0.0021471, 0.0021159, 0.0021759, 0.0021900, & - 0.0022039, 0.0022175, 0.0022310, 0.0022443, 0.0022574, & - 0.0022703, 0.0022830, 0.0022956, 0.0023080, 0.0023203, & - 0.0023324, 0.0023443, 0.0023562, 0.0023678, 0.0023794, & - 0.0023908, 0.0024020, & - 0.0011087, 0.0011828, 0.0012476, 0.0013054, 0.0013579, & - 0.0014060, 0.0014506, 0.0014923, 0.0015315, 0.0015685, & - 0.0016038, 0.0016373, 0.0016694, 0.0017002, 0.0017298, & - 0.0017583, 0.0017859, 0.0018125, 0.0018384, 0.0018634, & - 0.0018877, 0.0019114, 0.0019344, 0.0019568, 0.0019787, & - 0.0020000, 0.0020209, 0.0020412, 0.0020612, 0.0020807, & - 0.0020998, 0.0021185, 0.0021368, 0.0021090, 0.0021725, & - 0.0021898, 0.0022068, 0.0022235, 0.0022399, 0.0022561, & - 0.0022720, 0.0022876, 0.0023029, 0.0023181, 0.0023330, & - 0.0023477, 0.0023621, 0.0023764, 0.0023904, 0.0024042, & - 0.0024179, 0.0024314, 0.0024446, 0.0024577, 0.0024707, & - 0.0024834, 0.0024960, 0.0025085, 0.0025208, 0.0025329, & - 0.0025449, 0.0025568, & - 0.0011902, 0.0012672, 0.0013347, 0.0013952, 0.0014502, & - 0.0015008, 0.0015478, 0.0015919, 0.0016334, 0.0016727, & - 0.0017101, 0.0017457, 0.0017799, 0.0018126, 0.0018442, & - 0.0018746, 0.0019039, 0.0019323, 0.0019598, 0.0019865, & - 0.0020124, 0.0020376, 0.0020621, 0.0020859, 0.0021092, & - 0.0021319, 0.0021083, 0.0021757, 0.0021969, 0.0022176, & - 0.0022379, 0.0022577, 0.0022772, 0.0022962, 0.0023149, & - 0.0023333, 0.0023513, 0.0023690, 0.0023863, 0.0024034, & - 0.0024202, 0.0024366, 0.0024529, 0.0024688, 0.0024845, & - 0.0025000, 0.0025152, 0.0025302, 0.0025450, 0.0025595, & - 0.0025739, 0.0025880, 0.0026019, 0.0026157, 0.0026293, & - 0.0026426, 0.0026557, 0.0026689, 0.0026817, 0.0026944, & - 0.0027070, 0.0027194, & - 0.0012749, 0.0013552, 0.0014259, 0.0014895, 0.0015475, & - 0.0016010, 0.0016509, 0.0016977, 0.0017418, 0.0017836, & - 0.0018234, 0.0018614, 0.0018978, 0.0019328, 0.0019664, & - 0.0019987, 0.0020300, 0.0020602, 0.0020895, 0.0021179, & - 0.0021454, 0.0021722, 0.0021982, 0.0022235, 0.0022482, & - 0.0022723, 0.0022958, 0.0023187, 0.0023411, 0.0023630, & - 0.0023844, 0.0024054, 0.0024259, 0.0024460, 0.0024658, & - 0.0024851, 0.0025040, 0.0025226, 0.0025409, 0.0025588, & - 0.0025764, 0.0025937, 0.0026107, 0.0026275, 0.0026439, & - 0.0026601, 0.0026760, 0.0026917, 0.0027071, 0.0027223, & - 0.0027373, 0.0027520, 0.0027665, 0.0027808, 0.0027950, & - 0.0028089, 0.0028226, 0.0028361, 0.0028495, 0.0028627, & - 0.0028757, 0.0028885, & - 0.0013631, 0.0014474, 0.0015220, 0.0015892, 0.0016507, & - 0.0017076, 0.0017607, 0.0018105, 0.0018575, 0.0019021, & - 0.0019445, 0.0019850, 0.0020238, 0.0020610, 0.0020967, & - 0.0021312, 0.0021186, 0.0021965, 0.0022276, 0.0022577, & - 0.0022868, 0.0023152, 0.0023427, 0.0023695, 0.0023956, & - 0.0024210, 0.0024457, 0.0024699, 0.0024935, 0.0025165, & - 0.0025390, 0.0025610, 0.0025826, 0.0026037, 0.0026243, & - 0.0026445, 0.0026643, 0.0026838, 0.0027028, 0.0027215, & - 0.0027399, 0.0027579, 0.0027756, 0.0027930, 0.0028101, & - 0.0028269, 0.0028434, 0.0028596, 0.0028756, 0.0028913, & - 0.0029068, 0.0029220, 0.0029370, 0.0029518, 0.0029664, & - 0.0029807, 0.0029949, 0.0030088, 0.0030225, 0.0030361, & - 0.0030494, 0.0030626, & - 0.0014557, 0.0015446, 0.0016236, 0.0016950, 0.0017605, & - 0.0018211, 0.0018777, 0.0019308, 0.0019809, 0.0020284, & - 0.0020736, 0.0021167, 0.0021121, 0.0021973, 0.0022353, & - 0.0022718, 0.0023069, 0.0023409, 0.0023737, 0.0024055, & - 0.0024362, 0.0024661, 0.0024950, 0.0025232, 0.0025506, & - 0.0025772, 0.0026031, 0.0026284, 0.0026531, 0.0026771, & - 0.0027006, 0.0027235, 0.0027460, 0.0027679, 0.0027893, & - 0.0028103, 0.0028309, 0.0028510, 0.0028707, 0.0028900, & - 0.0029090, 0.0029276, 0.0029458, 0.0029637, 0.0029813, & - 0.0029986, 0.0030156, 0.0030322, 0.0030486, 0.0030647, & - 0.0030806, 0.0030962, 0.0031115, 0.0031266, 0.0031414, & - 0.0031560, 0.0031704, 0.0031846, 0.0031986, 0.0032123, & - 0.0032259, 0.0032392, & - 0.0015532, 0.0016476, 0.0017317, 0.0018078, 0.0018775, & - 0.0019422, 0.0020024, 0.0020590, 0.0021123, 0.0021169, & - 0.0022106, 0.0022563, 0.0022999, 0.0023416, 0.0023817, & - 0.0024202, 0.0024572, 0.0024929, 0.0025273, 0.0025607, & - 0.0025929, 0.0026241, 0.0026543, 0.0026837, 0.0027122, & - 0.0027399, 0.0027668, 0.0027931, 0.0028186, 0.0028435, & - 0.0028678, 0.0028915, 0.0029146, 0.0029372, 0.0029592, & - 0.0029808, 0.0030019, 0.0030225, 0.0030427, 0.0030625, & - 0.0030819, 0.0031009, 0.0031195, 0.0031377, 0.0031556, & - 0.0031732, 0.0031904, 0.0032073, 0.0032239, 0.0032402, & - 0.0032563, 0.0032720, 0.0032875, 0.0033027, 0.0033177, & - 0.0033324, 0.0033468, 0.0033611, 0.0033751, 0.0033889, & - 0.0034025, 0.0034159, & - 0.0016566, 0.0017571, 0.0018467, 0.0019278, 0.0020021, & - 0.0020708, 0.0021349, 0.0021949, 0.0022514, 0.0023047, & - 0.0023554, 0.0024035, 0.0024494, 0.0024932, 0.0025352, & - 0.0025755, 0.0026142, 0.0026515, 0.0026874, 0.0027220, & - 0.0027555, 0.0027878, 0.0028191, 0.0028495, 0.0028789, & - 0.0029075, 0.0029352, 0.0029621, 0.0029883, 0.0030138, & - 0.0030387, 0.0030629, 0.0030864, 0.0031094, 0.0031319, & - 0.0031538, 0.0031752, 0.0031961, 0.0032166, 0.0032365, & - 0.0032561, 0.0032752, 0.0032940, 0.0033123, 0.0033303, & - 0.0033479, 0.0033652, 0.0033821, 0.0033988, 0.0034151, & - 0.0034310, 0.0034467, 0.0034622, 0.0034773, 0.0034922, & - 0.0035068, 0.0035211, 0.0035353, 0.0035491, 0.0035628, & - 0.0035762, 0.0035894, & - 0.0017664, 0.0018736, 0.0019689, 0.0020552, 0.0021342, & - 0.0022071, 0.0022749, 0.0023383, 0.0023978, 0.0024539, & - 0.0025070, 0.0025574, 0.0026054, 0.0026511, 0.0026948, & - 0.0027366, 0.0027767, 0.0028153, 0.0028523, 0.0028880, & - 0.0029224, 0.0029556, 0.0029877, 0.0030187, 0.0030487, & - 0.0030778, 0.0031060, 0.0031334, 0.0031599, 0.0031857, & - 0.0032108, 0.0032352, 0.0032590, 0.0032821, 0.0033047, & - 0.0033267, 0.0033481, 0.0033690, 0.0033894, 0.0034094, & - 0.0034289, 0.0034479, 0.0034665, 0.0034847, 0.0035025, & - 0.0035200, 0.0035371, 0.0035538, 0.0035702, 0.0035862, & - 0.0036020, 0.0036174, 0.0036325, 0.0036474, 0.0036620, & - 0.0036763, 0.0036903, 0.0037041, 0.0037177, 0.0037310, & - 0.0037441, 0.0037569, & - 0.0018832, 0.0019973, 0.0020987, 0.0021902, 0.0022737, & - 0.0023505, 0.0024220, 0.0024885, 0.0025508, 0.0026093, & - 0.0026646, 0.0027169, 0.0027666, 0.0028138, 0.0028589, & - 0.0029018, 0.0029430, 0.0029824, 0.0030202, 0.0030565, & - 0.0030915, 0.0031252, 0.0031576, 0.0031890, 0.0032192, & - 0.0032485, 0.0032768, 0.0033042, 0.0033308, 0.0033566, & - 0.0033816, 0.0034059, 0.0034295, 0.0034525, 0.0034748, & - 0.0034966, 0.0035177, 0.0035384, 0.0035585, 0.0035781, & - 0.0035972, 0.0036159, 0.0036341, 0.0036520, 0.0036694, & - 0.0036864, 0.0037031, 0.0037193, 0.0037353, 0.0037509, & - 0.0037662, 0.0037811, 0.0037958, 0.0038102, 0.0038243, & - 0.0038381, 0.0038517, 0.0038650, 0.0038780, 0.0038908, & - 0.0039034, 0.0039158, & - 0.0020072, 0.0021282, 0.0022356, 0.0023321, 0.0024200, & - 0.0025006, 0.0025751, 0.0026443, 0.0027089, 0.0027695, & - 0.0028265, 0.0028803, 0.0029311, 0.0029794, 0.0030252, & - 0.0030689, 0.0031106, 0.0031504, 0.0031886, 0.0032251, & - 0.0032602, 0.0032939, 0.0033263, 0.0033575, 0.0033876, & - 0.0034166, 0.0034447, 0.0034718, 0.0034980, 0.0035234, & - 0.0035480, 0.0035719, 0.0035950, 0.0036175, 0.0036393, & - 0.0036605, 0.0036811, 0.0037012, 0.0037207, 0.0037398, & - 0.0037583, 0.0037764, 0.0037940, 0.0038112, 0.0038280, & - 0.0038444, 0.0038604, 0.0038761, 0.0038914, 0.0039063, & - 0.0039210, 0.0039353, 0.0039494, 0.0039631, 0.0039766, & - 0.0039898, 0.0040027, 0.0040154, 0.0040278, 0.0040400, & - 0.0040520, 0.0040638, & - 0.0021381, 0.0022661, 0.0023791, 0.0024803, 0.0025719, & - 0.0026557, 0.0027328, 0.0028041, 0.0028705, 0.0029325, & - 0.0029905, 0.0030451, 0.0030966, 0.0031453, 0.0031914, & - 0.0032353, 0.0032769, 0.0033166, 0.0033545, 0.0033908, & - 0.0034255, 0.0034588, 0.0034907, 0.0035214, 0.0035509, & - 0.0035793, 0.0036067, 0.0036331, 0.0036586, 0.0036833, & - 0.0037071, 0.0037302, 0.0037526, 0.0037743, 0.0037953, & - 0.0038157, 0.0038356, 0.0038548, 0.0038736, 0.0038916, & - 0.0039095, 0.0039268, 0.0039436, 0.0039600, 0.0039761, & - 0.0039917, 0.0040069, 0.0040218, 0.0040364, 0.0040506, & - 0.0040645, 0.0040781, 0.0040914, 0.0041044, 0.0041172, & - 0.0041296, 0.0041419, 0.0041539, 0.0041656, 0.0041772, & - 0.0041885, 0.0041996, & - 0.0022756, 0.0024100, 0.0025280, 0.0026332, 0.0027280, & - 0.0028142, 0.0028931, 0.0029658, 0.0030331, 0.0030957, & - 0.0031541, 0.0032089, 0.0032603, 0.0033088, 0.0033545, & - 0.0033978, 0.0034389, 0.0034780, 0.0035151, 0.0035506, & - 0.0035844, 0.0036168, 0.0036478, 0.0036775, 0.0037061, & - 0.0037335, 0.0037599, 0.0037853, 0.0038098, 0.0038335, & - 0.0038563, 0.0038784, 0.0038998, 0.0039205, 0.0039405, & - 0.0039599, 0.0039788, 0.0039971, 0.0040149, 0.0040322, & - 0.0040490, 0.0040653, 0.0040813, 0.0040968, 0.0041119, & - 0.0041267, 0.0041411, 0.0041552, 0.0041689, 0.0041823, & - 0.0041954, 0.0042082, 0.0042208, 0.0042331, 0.0042451, & - 0.0042569, 0.0042684, 0.0042797, 0.0042908, 0.0043017, & - 0.0043123, 0.0043228, & - 0.0024185, 0.0025586, 0.0026808, 0.0027890, 0.0028859, & - 0.0029735, 0.0030533, 0.0031264, 0.0031938, 0.0032562, & - 0.0033142, 0.0033683, 0.0034190, 0.0034665, 0.0035113, & - 0.0035535, 0.0035934, 0.0036313, 0.0036672, 0.0037014, & - 0.0037340, 0.0037651, 0.0037948, 0.0038232, 0.0038505, & - 0.0038767, 0.0039018, 0.0039260, 0.0039493, 0.0039717, & - 0.0039934, 0.0040143, 0.0040345, 0.0040540, 0.0040730, & - 0.0040913, 0.0041091, 0.0041264, 0.0041432, 0.0041595, & - 0.0041753, 0.0041907, 0.0042057, 0.0042204, 0.0042346, & - 0.0042485, 0.0042621, 0.0042754, 0.0042883, 0.0043009, & - 0.0043133, 0.0043254, 0.0043372, 0.0043488, 0.0043601, & - 0.0043712, 0.0043821, 0.0043928, 0.0044032, 0.0044135, & - 0.0044236, 0.0044335, & - 0.0025653, 0.0027099, 0.0028350, 0.0029450, 0.0030428, & - 0.0031307, 0.0032102, 0.0032828, 0.0033493, 0.0034106, & - 0.0034673, 0.0035200, 0.0035692, 0.0036152, 0.0036583, & - 0.0036990, 0.0037373, 0.0037735, 0.0038078, 0.0038404, & - 0.0038714, 0.0039009, 0.0039291, 0.0039560, 0.0039818, & - 0.0040065, 0.0040303, 0.0040531, 0.0040751, 0.0040962, & - 0.0041166, 0.0041363, 0.0041553, 0.0041738, 0.0041916, & - 0.0042089, 0.0042256, 0.0042419, 0.0042577, 0.0042730, & - 0.0042879, 0.0043025, 0.0043166, 0.0043304, 0.0043439, & - 0.0043570, 0.0043698, 0.0043823, 0.0043945, 0.0044064, & - 0.0044181, 0.0044296, 0.0044407, 0.0044517, 0.0044624, & - 0.0044730, 0.0044833, 0.0044934, 0.0045033, 0.0045130, & - 0.0045226, 0.0045320, & - 0.0027124, 0.0028597, 0.0029861, 0.0030963, 0.0031936, & - 0.0032805, 0.0033586, 0.0034295, 0.0034941, 0.0035534, & - 0.0036081, 0.0036587, 0.0037058, 0.0037497, 0.0037908, & - 0.0038294, 0.0038657, 0.0039000, 0.0039324, 0.0039631, & - 0.0039923, 0.0040201, 0.0040467, 0.0040720, 0.0040963, & - 0.0041195, 0.0041418, 0.0041633, 0.0041839, 0.0042038, & - 0.0042230, 0.0042415, 0.0042594, 0.0042768, 0.0042935, & - 0.0043098, 0.0043256, 0.0043409, 0.0043558, 0.0043703, & - 0.0043844, 0.0043982, 0.0044115, 0.0044246, 0.0044373, & - 0.0044497, 0.0044619, 0.0044737, 0.0044853, 0.0044966, & - 0.0045077, 0.0045186, 0.0045292, 0.0045397, 0.0045499, & - 0.0045599, 0.0045697, 0.0045793, 0.0045888, 0.0045981, & - 0.0046072, 0.0046162, & - 0.0028481, 0.0029956, 0.0031209, 0.0032292, 0.0033241, & - 0.0034083, 0.0034836, 0.0035515, 0.0036132, 0.0036696, & - 0.0037214, 0.0037692, 0.0038136, 0.0038548, 0.0038934, & - 0.0039296, 0.0039636, 0.0039956, 0.0040260, 0.0040547, & - 0.0040820, 0.0041080, 0.0041328, 0.0041565, 0.0041792, & - 0.0042010, 0.0042219, 0.0042419, 0.0042613, 0.0042800, & - 0.0042980, 0.0043154, 0.0043322, 0.0043485, 0.0043643, & - 0.0043796, 0.0043945, 0.0044090, 0.0044231, 0.0044367, & - 0.0044501, 0.0044631, 0.0044757, 0.0044881, 0.0045001, & - 0.0045119, 0.0045234, 0.0045347, 0.0045457, 0.0045564, & - 0.0045670, 0.0045773, 0.0045874, 0.0045973, 0.0046070, & - 0.0046166, 0.0046259, 0.0046351, 0.0046441, 0.0046530, & - 0.0046616, 0.0046702, & - 0.0029341, 0.0030768, 0.0031968, 0.0032997, 0.0033892, & - 0.0034681, 0.0035383, 0.0036014, 0.0036584, 0.0037104, & - 0.0037581, 0.0038020, 0.0038427, 0.0038805, 0.0039159, & - 0.0039490, 0.0039801, 0.0040095, 0.0040373, 0.0040637, & - 0.0040888, 0.0041127, 0.0041355, 0.0041573, 0.0041782, & - 0.0041983, 0.0042175, 0.0042361, 0.0042540, 0.0042713, & - 0.0042880, 0.0043041, 0.0043197, 0.0043349, 0.0043495, & - 0.0043638, 0.0043777, 0.0043911, 0.0044042, 0.0044170, & - 0.0044294, 0.0044416, 0.0044534, 0.0044649, 0.0044762, & - 0.0044872, 0.0044980, 0.0045085, 0.0045188, 0.0045289, & - 0.0045387, 0.0045484, 0.0045579, 0.0045672, 0.0045763, & - 0.0045852, 0.0045940, 0.0046026, 0.0046110, 0.0046193, & - 0.0046275, 0.0046355, & - 0.0029122, 0.0030427, 0.0031513, 0.0032438, 0.0033237, & - 0.0033938, 0.0034559, 0.0035116, 0.0035619, 0.0036076, & - 0.0036495, 0.0036882, 0.0037238, 0.0037573, 0.0037884, & - 0.0038176, 0.0038451, 0.0038711, 0.0038957, 0.0039191, & - 0.0039413, 0.0039626, 0.0039829, 0.0040023, 0.0040209, & - 0.0040389, 0.0040561, 0.0040727, 0.0040887, 0.0041042, & - 0.0041192, 0.0041337, 0.0041477, 0.0041613, 0.0041745, & - 0.0041874, 0.0041998, 0.0042120, 0.0042238, 0.0042353, & - 0.0042465, 0.0042574, 0.0042681, 0.0042785, 0.0042887, & - 0.0042986, 0.0043084, 0.0043179, 0.0043272, 0.0043363, & - 0.0043452, 0.0043539, 0.0043625, 0.0043709, 0.0043791, & - 0.0043872, 0.0043951, 0.0044029, 0.0044105, 0.0044180, & - 0.0044254, 0.0044326, & - 0.0027405, 0.0028512, 0.0029426, 0.0030199, 0.0030864, & - 0.0031447, 0.0031962, 0.0032424, 0.0032841, 0.0033221, & - 0.0033569, 0.0033891, 0.0034190, 0.0034468, 0.0034729, & - 0.0034974, 0.0035206, 0.0035424, 0.0035632, 0.0035830, & - 0.0036018, 0.0036198, 0.0036370, 0.0036535, 0.0036694, & - 0.0036847, 0.0036993, 0.0037135, 0.0037272, 0.0037404, & - 0.0037532, 0.0037656, 0.0037776, 0.0037892, 0.0038005, & - 0.0038115, 0.0038222, 0.0038326, 0.0038427, 0.0038526, & - 0.0038622, 0.0038716, 0.0038808, 0.0038897, 0.0038984, & - 0.0039070, 0.0039153, 0.0039235, 0.0039314, 0.0039393, & - 0.0039469, 0.0039544, 0.0039618, 0.0039690, 0.0039761, & - 0.0039830, 0.0039898, 0.0039965, 0.0040030, 0.0040095, & - 0.0040158, 0.0040220, & - 0.0024633, 0.0025514, 0.0026239, 0.0026851, 0.0027377, & - 0.0027838, 0.0028247, 0.0028613, 0.0028946, 0.0029249, & - 0.0029529, 0.0029787, 0.0030028, 0.0030253, 0.0030464, & - 0.0030663, 0.0030851, 0.0031029, 0.0031199, 0.0031360, & - 0.0031514, 0.0031661, 0.0031803, 0.0031938, 0.0032068, & - 0.0032194, 0.0032314, 0.0032431, 0.0032544, 0.0032652, & - 0.0032758, 0.0032860, 0.0032959, 0.0033055, 0.0033148, & - 0.0033239, 0.0033327, 0.0033413, 0.0033497, 0.0033578, & - 0.0033658, 0.0033735, 0.0033811, 0.0033885, 0.0033957, & - 0.0034028, 0.0034097, 0.0034164, 0.0034230, 0.0034295, & - 0.0034359, 0.0034421, 0.0034482, 0.0034541, 0.0034600, & - 0.0034657, 0.0034714, 0.0034769, 0.0034823, 0.0034877, & - 0.0034929, 0.0034981, & - 0.0021142, 0.0022278, 0.0022837, 0.0023309, 0.0023717, & - 0.0024075, 0.0024394, 0.0024681, 0.0024943, 0.0025182, & - 0.0025404, 0.0025609, 0.0025801, 0.0025980, 0.0026149, & - 0.0026308, 0.0026459, 0.0026602, 0.0026738, 0.0026868, & - 0.0026992, 0.0027111, 0.0027225, 0.0027334, 0.0027439, & - 0.0027541, 0.0027638, 0.0027733, 0.0027824, 0.0027912, & - 0.0027997, 0.0028080, 0.0028160, 0.0028238, 0.0028314, & - 0.0028387, 0.0028459, 0.0028529, 0.0028597, 0.0028663, & - 0.0028727, 0.0028791, 0.0028852, 0.0028912, 0.0028971, & - 0.0029028, 0.0029084, 0.0029139, 0.0029193, 0.0029246, & - 0.0029297, 0.0029348, 0.0029398, 0.0029446, 0.0029494, & - 0.0029541, 0.0029587, 0.0029632, 0.0029676, 0.0029720, & - 0.0029761, 0.0029805, & - 0.0018726, 0.0019238, 0.0019660, 0.0020019, 0.0020331, & - 0.0020606, 0.0020852, 0.0021074, 0.0021278, 0.0021464, & - 0.0021179, 0.0021798, 0.0021948, 0.0022089, 0.0022221, & - 0.0022347, 0.0022466, 0.0022578, 0.0022686, 0.0022789, & - 0.0022887, 0.0022981, 0.0023071, 0.0023158, 0.0023241, & - 0.0023321, 0.0023399, 0.0023474, 0.0023546, 0.0023616, & - 0.0023684, 0.0023750, 0.0023814, 0.0023876, 0.0023936, & - 0.0023995, 0.0024052, 0.0024108, 0.0024162, 0.0024215, & - 0.0024266, 0.0024317, 0.0024366, 0.0024414, 0.0024461, & - 0.0024507, 0.0024552, 0.0024596, 0.0024639, 0.0024681, & - 0.0024722, 0.0024763, 0.0024802, 0.0024841, 0.0024880, & - 0.0024917, 0.0024954, 0.0024990, 0.0025026, 0.0025060, & - 0.0025095, 0.0025129, & - 0.0016337, 0.0016718, 0.0017033, 0.0017303, 0.0017537, & - 0.0017745, 0.0017931, 0.0018100, 0.0018254, 0.0018397, & - 0.0018529, 0.0018651, 0.0018766, 0.0018874, 0.0018976, & - 0.0019073, 0.0019164, 0.0019251, 0.0019334, 0.0019413, & - 0.0019489, 0.0019562, 0.0019631, 0.0019698, 0.0019763, & - 0.0019825, 0.0019885, 0.0019944, 0.0020000, 0.0020054, & - 0.0020107, 0.0020158, 0.0020208, 0.0020256, 0.0020303, & - 0.0020349, 0.0020394, 0.0020437, 0.0020479, 0.0020521, & - 0.0020561, 0.0020600, 0.0020639, 0.0020676, 0.0020713, & - 0.0020749, 0.0020784, 0.0020819, 0.0020852, 0.0020886, & - 0.0020918, 0.0020950, 0.0020981, 0.0021011, 0.0021041, & - 0.0021071, 0.0021100, 0.0021128, 0.0021156, 0.0021183, & - 0.0021210, 0.0021236, & - 0.0014740, 0.0015024, 0.0015259, 0.0015460, 0.0015636, & - 0.0015791, 0.0015931, 0.0016058, 0.0016174, 0.0016282, & - 0.0016381, 0.0016474, 0.0016561, 0.0016643, 0.0016720, & - 0.0016793, 0.0016863, 0.0016929, 0.0016992, 0.0017052, & - 0.0017110, 0.0017165, 0.0017219, 0.0017270, 0.0017319, & - 0.0017367, 0.0017413, 0.0017458, 0.0017501, 0.0017543, & - 0.0017584, 0.0017623, 0.0017661, 0.0017699, 0.0017735, & - 0.0017770, 0.0017804, 0.0017838, 0.0017870, 0.0017902, & - 0.0017933, 0.0017964, 0.0017993, 0.0018023, 0.0018051, & - 0.0018079, 0.0018106, 0.0018132, 0.0018158, 0.0018184, & - 0.0018209, 0.0018233, 0.0018258, 0.0018281, 0.0018304, & - 0.0018327, 0.0018349, 0.0018371, 0.0018393, 0.0018414, & - 0.0018434, 0.0018455, & - 0.0013895, 0.0014110, 0.0014289, 0.0014441, 0.0014574, & - 0.0014692, 0.0014798, 0.0014894, 0.0014982, 0.0015064, & - 0.0015139, 0.0015210, 0.0015277, 0.0015338, 0.0015398, & - 0.0015454, 0.0015508, 0.0015558, 0.0015607, 0.0015653, & - 0.0015698, 0.0015740, 0.0015782, 0.0015821, 0.0015859, & - 0.0015896, 0.0015932, 0.0015966, 0.0016000, 0.0016032, & - 0.0016064, 0.0016094, 0.0016124, 0.0016153, 0.0016181, & - 0.0016208, 0.0016235, 0.0016261, 0.0016286, 0.0016311, & - 0.0016335, 0.0016358, 0.0016381, 0.0016404, 0.0016426, & - 0.0016447, 0.0016468, 0.0016489, 0.0016509, 0.0016529, & - 0.0016548, 0.0016567, 0.0016586, 0.0016604, 0.0016622, & - 0.0016639, 0.0016657, 0.0016673, 0.0016690, 0.0016706, & - 0.0016722, 0.0016738, & - 0.0013502, 0.0013669, 0.0013807, 0.0013924, 0.0014027, & - 0.0014118, 0.0014200, 0.0014274, 0.0014343, 0.0014406, & - 0.0014465, 0.0014520, 0.0014571, 0.0014620, 0.0014666, & - 0.0014710, 0.0014751, 0.0014791, 0.0014829, 0.0014865, & - 0.0014900, 0.0014933, 0.0014966, 0.0014997, 0.0015027, & - 0.0015055, 0.0015083, 0.0015109, 0.0015136, 0.0015162, & - 0.0015186, 0.0015210, 0.0015234, 0.0015256, 0.0015278, & - 0.0015299, 0.0015320, 0.0015340, 0.0015360, 0.0015380, & - 0.0015398, 0.0015417, 0.0015435, 0.0015452, 0.0015469, & - 0.0015486, 0.0015503, 0.0015519, 0.0015534, 0.0015550, & - 0.0015565, 0.0015580, 0.0015594, 0.0015608, 0.0015622, & - 0.0015636, 0.0015649, 0.0015663, 0.0015676, 0.0015688, & - 0.0015701, 0.0015713, & - 0.0013341, 0.0013476, 0.0013588, 0.0013683, 0.0013766, & - 0.0013840, 0.0013907, 0.0013967, 0.0014023, 0.0014074, & - 0.0014122, 0.0014167, 0.0014209, 0.0014248, 0.0014286, & - 0.0014321, 0.0014355, 0.0014387, 0.0014418, 0.0014447, & - 0.0014476, 0.0014503, 0.0014529, 0.0014554, 0.0014578, & - 0.0014602, 0.0014624, 0.0014646, 0.0014667, 0.0014688, & - 0.0014708, 0.0014727, 0.0014746, 0.0014764, 0.0014782, & - 0.0014799, 0.0014816, 0.0014833, 0.0014849, 0.0014864, & - 0.0014879, 0.0014894, 0.0014909, 0.0014923, 0.0014937, & - 0.0014950, 0.0014964, 0.0014977, 0.0014989, 0.0015002, & - 0.0015014, 0.0015026, 0.0015038, 0.0015049, 0.0015060, & - 0.0015071, 0.0015082, 0.0015093, 0.0015103, 0.0015114, & - 0.0015124, 0.0015134, & - 0.0013255, 0.0013373, 0.0013470, 0.0013554, 0.0013626, & - 0.0013691, 0.0013749, 0.0013803, 0.0013851, 0.0013896, & - 0.0013938, 0.0013977, 0.0014014, 0.0014049, 0.0014082, & - 0.0014113, 0.0014142, 0.0014171, 0.0014197, 0.0014223, & - 0.0014248, 0.0014272, 0.0014294, 0.0014316, 0.0014337, & - 0.0014358, 0.0014378, 0.0014397, 0.0014415, 0.0014433, & - 0.0014450, 0.0014467, 0.0014483, 0.0014499, 0.0014515, & - 0.0014530, 0.0014544, 0.0014559, 0.0014573, 0.0014586, & - 0.0014599, 0.0014612, 0.0014625, 0.0014637, 0.0014649, & - 0.0014661, 0.0014672, 0.0014684, 0.0014695, 0.0014705, & - 0.0014716, 0.0014726, 0.0014736, 0.0014746, 0.0014756, & - 0.0014766, 0.0014775, 0.0014784, 0.0014793, 0.0014802, & - 0.0014811, 0.0014820, & - 0.0013126, 0.0013234, 0.0013324, 0.0013401, 0.0013469, & - 0.0013529, 0.0013583, 0.0013632, 0.0013677, 0.0013719, & - 0.0013758, 0.0013795, 0.0013829, 0.0013861, 0.0013891, & - 0.0013920, 0.0013947, 0.0013974, 0.0013998, 0.0014022, & - 0.0014045, 0.0014067, 0.0014088, 0.0014108, 0.0014127, & - 0.0014146, 0.0014164, 0.0014181, 0.0014198, 0.0014215, & - 0.0014230, 0.0014246, 0.0014261, 0.0014275, 0.0014289, & - 0.0014303, 0.0014316, 0.0014329, 0.0014341, 0.0014354, & - 0.0014366, 0.0014377, 0.0014389, 0.0014400, 0.0014411, & - 0.0014421, 0.0014432, 0.0014442, 0.0014452, 0.0014462, & - 0.0014471, 0.0014480, 0.0014490, 0.0014499, 0.0014507, & - 0.0014516, 0.0014525, 0.0014533, 0.0014541, 0.0014549, & - 0.0014557, 0.0014565, & - 0.0012882, 0.0012983, 0.0013066, 0.0013138, 0.0013202, & - 0.0013258, 0.0013309, 0.0013355, 0.0013398, 0.0013437, & - 0.0013473, 0.0013507, 0.0013539, 0.0013569, 0.0013598, & - 0.0013625, 0.0013650, 0.0013674, 0.0013697, 0.0013719, & - 0.0013740, 0.0013760, 0.0013780, 0.0013798, 0.0013816, & - 0.0013833, 0.0013850, 0.0013865, 0.0013881, 0.0013896, & - 0.0013910, 0.0013924, 0.0013938, 0.0013951, 0.0013963, & - 0.0013976, 0.0013988, 0.0013999, 0.0014011, 0.0014022, & - 0.0014033, 0.0014043, 0.0014054, 0.0014064, 0.0014073, & - 0.0014083, 0.0014092, 0.0014101, 0.0014110, 0.0014119, & - 0.0014128, 0.0014136, 0.0014145, 0.0014153, 0.0014161, & - 0.0014168, 0.0014176, 0.0014183, 0.0014191, 0.0014198, & - 0.0014205, 0.0014212 ], [62,101]) - - real, dimension(43,37) :: cah = reshape( [& - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, & - 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, & - 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, & - 0.0002575, 0.0003384, 0.0004400, 0.0005662, 0.0007219, & - 0.0009131, 0.0011470, 0.0014327, 0.0017806, 0.0022021, & - 0.0027093, 0.0033141, 0.0040280, 0.0048609, 0.0058217, & - 0.0069177, 0.0081559, 0.0095430, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, & - 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, & - 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, & - 0.0002575, 0.0003384, 0.0004400, 0.0005662, 0.0007219, & - 0.0009130, 0.0011470, 0.0014326, 0.0017805, 0.0022020, & - 0.0027091, 0.0033139, 0.0040276, 0.0048605, 0.0058211, & - 0.0069170, 0.0081551, 0.0095420, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, & - 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, & - 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, & - 0.0002574, 0.0003384, 0.0004399, 0.0005661, 0.0007218, & - 0.0009129, 0.0011468, 0.0014325, 0.0017803, 0.0022017, & - 0.0027088, 0.0033135, 0.0040271, 0.0048599, 0.0058204, & - 0.0069161, 0.0081539, 0.0095406, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, & - 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, & - 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, & - 0.0002574, 0.0003384, 0.0004399, 0.0005661, 0.0007217, & - 0.0009128, 0.0011467, 0.0014323, 0.0017800, 0.0022014, & - 0.0027084, 0.0033130, 0.0040265, 0.0048591, 0.0058194, & - 0.0069148, 0.0081524, 0.0095387, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, & - 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, & - 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001935, & - 0.0002574, 0.0003383, 0.0004398, 0.0005660, 0.0007216, & - 0.0009127, 0.0011465, 0.0014320, 0.0017797, 0.0022010, & - 0.0027078, 0.0033123, 0.0040256, 0.0048580, 0.0058180, & - 0.0069132, 0.0081503, 0.0095361, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, & - 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, & - 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001935, & - 0.0002573, 0.0003383, 0.0004398, 0.0005659, 0.0007215, & - 0.0009125, 0.0011462, 0.0014317, 0.0017792, 0.0022004, & - 0.0027071, 0.0033113, 0.0040244, 0.0048565, 0.0058162, & - 0.0069109, 0.0081476, 0.0095328, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, & - 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, & - 0.0000559, 0.0000772, 0.0001058, 0.0001438, 0.0001935, & - 0.0002573, 0.0003382, 0.0004396, 0.0005657, 0.0007213, & - 0.0009122, 0.0011459, 0.0014312, 0.0017786, 0.0021996, & - 0.0027061, 0.0033100, 0.0040228, 0.0048545, 0.0058137, & - 0.0069079, 0.0081439, 0.0095283, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, & - 0.0000104, 0.0000146, 0.0000206, 0.0000288, 0.0000402, & - 0.0000558, 0.0000772, 0.0001058, 0.0001438, 0.0001934, & - 0.0002572, 0.0003381, 0.0004395, 0.0005655, 0.0007210, & - 0.0009119, 0.0011454, 0.0014306, 0.0017778, 0.0021985, & - 0.0027047, 0.0033084, 0.0040207, 0.0048519, 0.0058105, & - 0.0069040, 0.0081391, 0.0095225, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, & - 0.0000104, 0.0000146, 0.0000206, 0.0000288, 0.0000402, & - 0.0000558, 0.0000771, 0.0001058, 0.0001437, 0.0001933, & - 0.0002571, 0.0003379, 0.0004393, 0.0005652, 0.0007206, & - 0.0009114, 0.0011447, 0.0014297, 0.0017767, 0.0021971, & - 0.0027030, 0.0033061, 0.0040180, 0.0048485, 0.0058064, & - 0.0068989, 0.0081329, 0.0095149, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, & - 0.0000104, 0.0000146, 0.0000205, 0.0000288, 0.0000402, & - 0.0000558, 0.0000771, 0.0001057, 0.0001437, 0.0001932, & - 0.0002569, 0.0003377, 0.0004390, 0.0005649, 0.0007201, & - 0.0009107, 0.0011439, 0.0014286, 0.0017753, 0.0021953, & - 0.0027006, 0.0033032, 0.0040144, 0.0048441, 0.0058009, & - 0.0068922, 0.0081248, 0.0095051, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, & - 0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000401, & - 0.0000558, 0.0000770, 0.0001056, 0.0001436, 0.0001931, & - 0.0002567, 0.0003375, 0.0004387, 0.0005644, 0.0007195, & - 0.0009098, 0.0011428, 0.0014271, 0.0017734, 0.0021929, & - 0.0026976, 0.0032995, 0.0040097, 0.0048384, 0.0057939, & - 0.0068837, 0.0081145, 0.0094926, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, & - 0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000401, & - 0.0000557, 0.0000770, 0.0001055, 0.0001434, 0.0001929, & - 0.0002565, 0.0003371, 0.0004382, 0.0005637, 0.0007186, & - 0.0009087, 0.0011413, 0.0014252, 0.0017709, 0.0021898, & - 0.0026937, 0.0032946, 0.0040038, 0.0048311, 0.0057850, & - 0.0068729, 0.0081013, 0.0094768, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, & - 0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000400, & - 0.0000556, 0.0000769, 0.0001054, 0.0001432, 0.0001926, & - 0.0002561, 0.0003366, 0.0004376, 0.0005629, 0.0007175, & - 0.0009073, 0.0011394, 0.0014228, 0.0017678, 0.0021859, & - 0.0026888, 0.0032885, 0.0039963, 0.0048218, 0.0057738, & - 0.0068592, 0.0080849, 0.0094570, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, & - 0.0000104, 0.0000146, 0.0000205, 0.0000286, 0.0000400, & - 0.0000556, 0.0000767, 0.0001052, 0.0001430, 0.0001923, & - 0.0002557, 0.0003361, 0.0004368, 0.0005619, 0.0007161, & - 0.0009054, 0.0011370, 0.0014197, 0.0017639, 0.0021809, & - 0.0026826, 0.0032809, 0.0039869, 0.0048103, 0.0057597, & - 0.0068422, 0.0080643, 0.0094323, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000073, & - 0.0000103, 0.0000145, 0.0000204, 0.0000286, 0.0000399, & - 0.0000554, 0.0000766, 0.0001050, 0.0001427, 0.0001919, & - 0.0002552, 0.0003353, 0.0004358, 0.0005605, 0.0007144, & - 0.0009032, 0.0011340, 0.0014159, 0.0017590, 0.0021748, & - 0.0026750, 0.0032715, 0.0039752, 0.0047961, 0.0057424, & - 0.0068212, 0.0080389, 0.0094019, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000073, & - 0.0000103, 0.0000145, 0.0000204, 0.0000285, 0.0000398, & - 0.0000553, 0.0000764, 0.0001047, 0.0001423, 0.0001914, & - 0.0002545, 0.0003344, 0.0004345, 0.0005589, 0.0007122, & - 0.0009003, 0.0011304, 0.0014112, 0.0017531, 0.0021673, & - 0.0026656, 0.0032598, 0.0039609, 0.0047786, 0.0057211, & - 0.0067954, 0.0080078, 0.0093646, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000018, 0.0000026, 0.0000037, 0.0000052, 0.0000073, & - 0.0000103, 0.0000145, 0.0000203, 0.0000284, 0.0000397, & - 0.0000551, 0.0000761, 0.0001044, 0.0001419, 0.0001908, & - 0.0002536, 0.0003332, 0.0004330, 0.0005568, 0.0007095, & - 0.0008968, 0.0011259, 0.0014054, 0.0017458, 0.0021123, & - 0.0026542, 0.0032457, 0.0039435, 0.0047573, 0.0056951, & - 0.0067640, 0.0079700, 0.0093194, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, & - 0.0000018, 0.0000026, 0.0000037, 0.0000052, 0.0000073, & - 0.0000102, 0.0000144, 0.0000202, 0.0000283, 0.0000395, & - 0.0000549, 0.0000758, 0.0001040, 0.0001413, 0.0001900, & - 0.0002525, 0.0003318, 0.0004311, 0.0005543, 0.0007063, & - 0.0008926, 0.0011204, 0.0013985, 0.0017370, 0.0021470, & - 0.0026404, 0.0032285, 0.0039224, 0.0047315, 0.0056637, & - 0.0067260, 0.0079245, 0.0092651, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, & - 0.0000018, 0.0000026, 0.0000036, 0.0000051, 0.0000072, & - 0.0000102, 0.0000143, 0.0000201, 0.0000282, 0.0000393, & - 0.0000546, 0.0000754, 0.0001034, 0.0001406, 0.0001890, & - 0.0002512, 0.0003300, 0.0004287, 0.0005513, 0.0007023, & - 0.0008875, 0.0011139, 0.0013901, 0.0017264, 0.0021337, & - 0.0026238, 0.0032080, 0.0038971, 0.0047005, 0.0056261, & - 0.0066806, 0.0078701, 0.0092003, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, & - 0.0000018, 0.0000026, 0.0000036, 0.0000051, 0.0000072, & - 0.0000101, 0.0000142, 0.0000200, 0.0000280, 0.0000391, & - 0.0000543, 0.0000750, 0.0001028, 0.0001397, 0.0001878, & - 0.0002496, 0.0003279, 0.0004259, 0.0005476, 0.0006975, & - 0.0008813, 0.0011060, 0.0013802, 0.0017138, 0.0021179, & - 0.0026040, 0.0031835, 0.0038670, 0.0046637, 0.0055814, & - 0.0066267, 0.0078055, 0.0091235, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, & - 0.0000018, 0.0000025, 0.0000036, 0.0000051, 0.0000071, & - 0.0000100, 0.0000141, 0.0000198, 0.0000278, 0.0000388, & - 0.0000539, 0.0000744, 0.0001020, 0.0001386, 0.0001863, & - 0.0002477, 0.0003253, 0.0004226, 0.0005432, 0.0006918, & - 0.0008740, 0.0010966, 0.0013683, 0.0016988, 0.0020991, & - 0.0025806, 0.0031545, 0.0038313, 0.0046201, 0.0055285, & - 0.0065630, 0.0077294, 0.0090332, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000013, & - 0.0000018, 0.0000025, 0.0000036, 0.0000050, 0.0000071, & - 0.0000100, 0.0000140, 0.0000197, 0.0000275, 0.0000384, & - 0.0000534, 0.0000737, 0.0001011, 0.0001373, 0.0001846, & - 0.0002453, 0.0003222, 0.0004185, 0.0005265, 0.0006850, & - 0.0008652, 0.0010855, 0.0013541, 0.0016809, 0.0020768, & - 0.0025528, 0.0031202, 0.0037892, 0.0045688, 0.0054664, & - 0.0064883, 0.0076402, 0.0089277, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000013, & - 0.0000018, 0.0000025, 0.0000035, 0.0000050, 0.0000070, & - 0.0000098, 0.0000138, 0.0000194, 0.0000272, 0.0000380, & - 0.0000528, 0.0000729, 0.0000999, 0.0001357, 0.0001825, & - 0.0002425, 0.0003185, 0.0004137, 0.0005316, 0.0006769, & - 0.0008548, 0.0010722, 0.0013373, 0.0016599, 0.0020504, & - 0.0025201, 0.0030799, 0.0037398, 0.0045087, 0.0053938, & - 0.0064013, 0.0075366, 0.0088053, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000012, & - 0.0000017, 0.0000025, 0.0000035, 0.0000049, 0.0000069, & - 0.0000097, 0.0000137, 0.0000192, 0.0000268, 0.0000375, & - 0.0000520, 0.0000719, 0.0000986, 0.0001339, 0.0001800, & - 0.0002392, 0.0003142, 0.0004079, 0.0005242, 0.0006673, & - 0.0008426, 0.0010567, 0.0013177, 0.0016352, 0.0020196, & - 0.0024820, 0.0030330, 0.0036825, 0.0044391, 0.0053098, & - 0.0063007, 0.0074172, 0.0084815, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000012, & - 0.0000017, 0.0000024, 0.0000034, 0.0000048, 0.0000068, & - 0.0000096, 0.0000134, 0.0000189, 0.0000264, 0.0000369, & - 0.0000512, 0.0000708, 0.0000970, 0.0001318, 0.0001772, & - 0.0002354, 0.0003091, 0.0004013, 0.0005156, 0.0006562, & - 0.0008284, 0.0010386, 0.0012949, 0.0016066, 0.0019840, & - 0.0024379, 0.0029788, 0.0036164, 0.0043590, 0.0052135, & - 0.0061857, 0.0072808, 0.0085042, & - 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & - 0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000012, & - 0.0000017, 0.0000024, 0.0000034, 0.0000047, 0.0000067, & - 0.0000094, 0.0000132, 0.0000185, 0.0000259, 0.0000362, & - 0.0000503, 0.0000695, 0.0000952, 0.0001294, 0.0001739, & - 0.0002310, 0.0003033, 0.0003937, 0.0005057, 0.0006435, & - 0.0008121, 0.0010180, 0.0012688, 0.0015739, 0.0019434, & - 0.0023877, 0.0029172, 0.0035413, 0.0042681, 0.0051043, & - 0.0060554, 0.0071267, 0.0083234, & - 0.0000001, 0.0000001, 0.0000001, 0.0000001, 0.0000002, & - 0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000012, & - 0.0000016, 0.0000023, 0.0000033, 0.0000046, 0.0000065, & - 0.0000092, 0.0000129, 0.0000181, 0.0000254, 0.0000355, & - 0.0000493, 0.0000680, 0.0000933, 0.0001267, 0.0001702, & - 0.0002261, 0.0002968, 0.0003852, 0.0004946, 0.0006291, & - 0.0007937, 0.0009946, 0.0012394, 0.0015370, 0.0018975, & - 0.0023310, 0.0028478, 0.0034568, 0.0041660, 0.0049818, & - 0.0059096, 0.0069544, 0.0081215, & - 0.0000001, 0.0000001, 0.0000001, 0.0000001, 0.0000002, & - 0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000011, & - 0.0000016, 0.0000023, 0.0000032, 0.0000045, 0.0000064, & - 0.0000090, 0.0000126, 0.0000177, 0.0000248, 0.0000346, & - 0.0000481, 0.0000664, 0.0000910, 0.0001236, 0.0001661, & - 0.0002206, 0.0002895, 0.0003755, 0.0004821, 0.0006130, & - 0.0007731, 0.0009685, 0.0012065, 0.0014959, 0.0018463, & - 0.0022680, 0.0027705, 0.0033629, 0.0040526, 0.0048459, & - 0.0057480, 0.0067639, 0.0078987, & - 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, & - 0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000011, & - 0.0000016, 0.0000022, 0.0000031, 0.0000044, 0.0000062, & - 0.0000087, 0.0000123, 0.0000173, 0.0000242, 0.0000330, & - 0.0000468, 0.0000646, 0.0000886, 0.0001203, 0.0001616, & - 0.0002145, 0.0002814, 0.0003649, 0.0004682, 0.0005951, & - 0.0007503, 0.0009396, 0.0011701, 0.0014505, 0.0017900, & - 0.0021986, 0.0026857, 0.0032598, 0.0039283, 0.0046971, & - 0.0055713, 0.0065558, 0.0076557, & - 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, & - 0.0000003, 0.0000004, 0.0000005, 0.0000008, 0.0000011, & - 0.0000015, 0.0000021, 0.0000030, 0.0000043, 0.0000060, & - 0.0000085, 0.0000119, 0.0000167, 0.0000234, 0.0000327, & - 0.0000454, 0.0000627, 0.0000859, 0.0001166, 0.0001566, & - 0.0002078, 0.0002724, 0.0003531, 0.0004529, 0.0005755, & - 0.0007253, 0.0009079, 0.0011304, 0.0014010, 0.0017287, & - 0.0021232, 0.0025935, 0.0031480, 0.0037936, 0.0045361, & - 0.0053805, 0.0063314, 0.0073941, & - 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, & - 0.0000003, 0.0000004, 0.0000005, 0.0000007, 0.0000010, & - 0.0000015, 0.0000021, 0.0000029, 0.0000041, 0.0000058, & - 0.0000082, 0.0000115, 0.0000162, 0.0000226, 0.0000316, & - 0.0000438, 0.0000605, 0.0000829, 0.0001125, 0.0001510, & - 0.0002004, 0.0002626, 0.0003402, 0.0004362, 0.0005540, & - 0.0006980, 0.0008736, 0.0010874, 0.0013476, 0.0016627, & - 0.0020421, 0.0024947, 0.0030283, 0.0036497, 0.0043644, & - 0.0051772, 0.0060928, 0.0071164, & - 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, & - 0.0000003, 0.0000004, 0.0000005, 0.0000007, 0.0000010, & - 0.0000014, 0.0000020, 0.0000028, 0.0000040, 0.0000056, & - 0.0000079, 0.0000111, 0.0000155, 0.0000218, 0.0000303, & - 0.0000421, 0.0000582, 0.0000797, 0.0001081, 0.0001450, & - 0.0001923, 0.0002519, 0.0003262, 0.0004180, 0.0005308, & - 0.0006686, 0.0008367, 0.0010414, 0.0012905, 0.0015925, & - 0.0019561, 0.0023900, 0.0029017, 0.0034978, 0.0041836, & - 0.0049638, 0.0058430, 0.0068264, & - 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, & - 0.0000002, 0.0000003, 0.0000005, 0.0000007, 0.0000010, & - 0.0000014, 0.0000019, 0.0000027, 0.0000038, 0.0000053, & - 0.0000075, 0.0000106, 0.0000149, 0.0000208, 0.0000290, & - 0.0000403, 0.0000556, 0.0000761, 0.0001032, 0.0001384, & - 0.0001834, 0.0002402, 0.0003110, 0.0003985, 0.0005059, & - 0.0006372, 0.0007974, 0.0009926, 0.0012302, 0.0015185, & - 0.0018657, 0.0022803, 0.0027696, 0.0033398, 0.0039960, & - 0.0047430, 0.0055851, 0.0065278, & - 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, & - 0.0000002, 0.0000003, 0.0000005, 0.0000006, 0.0000009, & - 0.0000013, 0.0000018, 0.0000026, 0.0000036, 0.0000051, & - 0.0000071, 0.0000100, 0.0000141, 0.0000197, 0.0000275, & - 0.0000382, 0.0000527, 0.0000722, 0.0000979, 0.0001312, & - 0.0001739, 0.0002277, 0.0002947, 0.0003775, 0.0004793, & - 0.0006038, 0.0007558, 0.0009412, 0.0011671, 0.0014412, & - 0.0017717, 0.0021208, 0.0026329, 0.0031768, 0.0038033, & - 0.0045168, 0.0053220, 0.0062240, & - 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, & - 0.0000002, 0.0000003, 0.0000004, 0.0000006, 0.0000009, & - 0.0000012, 0.0000017, 0.0000024, 0.0000034, 0.0000048, & - 0.0000067, 0.0000095, 0.0000133, 0.0000186, 0.0000259, & - 0.0000360, 0.0000496, 0.0000679, 0.0000921, 0.0001235, & - 0.0001637, 0.0002143, 0.0002773, 0.0003554, 0.0004513, & - 0.0005688, 0.0007124, 0.0008876, 0.0011014, 0.0013610, & - 0.0016745, 0.0020493, 0.0024925, 0.0030099, 0.0036066, & - 0.0042868, 0.0050553, 0.0059171, & - 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000001, & - 0.0000002, 0.0000003, 0.0000004, 0.0000006, 0.0000008, & - 0.0000011, 0.0000016, 0.0000022, 0.0000032, 0.0000045, & - 0.0000063, 0.0000088, 0.0000124, 0.0000173, 0.0000242, & - 0.0000336, 0.0000463, 0.0000634, 0.0000860, 0.0001153, & - 0.0001528, 0.0002001, 0.0002591, 0.0003322, 0.0004221, & - 0.0005323, 0.0006672, 0.0008322, 0.0010335, 0.0012785, & - 0.0015746, 0.0019293, 0.0023491, 0.0028399, 0.0034067, & - 0.0040539, 0.0047860, 0.0056083, & - 0.0000000, 0.0000000, 0.0000001, 0.0000001, 0.0000001, & - 0.0000002, 0.0000003, 0.0000004, 0.0000005, 0.0000007, & - 0.0000010, 0.0000015, 0.0000021, 0.0000029, 0.0000041, & - 0.0000058, 0.0000082, 0.0000114, 0.0000160, 0.0000223, & - 0.0000310, 0.0000428, 0.0000586, 0.0000795, 0.0001067, & - 0.0001414, 0.0001853, 0.0002401, 0.0003081, 0.0003918, & - 0.0004947, 0.0006208, 0.0007751, 0.0009639, 0.0011940, & - 0.0014726, 0.0018069, 0.0022032, 0.0026674, 0.0032043, & - 0.0038186, 0.0045147, 0.0052979 ], [43,37]) - -end module sorad_constants diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/bands.txt b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/bands.txt deleted file mode 100644 index 8385f261a..000000000 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/bands.txt +++ /dev/null @@ -1,33 +0,0 @@ -c The solar spectrum is divided into eight bands: -c -c in the uv region : -c index 1 for the 0.225-0.285 micron band -c index 2 for the 0.175-0.225;0.285-0.300 micron band -c index 3 for the 0.300-0.325 micron band -c index 4 for the 0.325-0.4 micron band -c in the par region : -c index 5 for the 0.4-0.690 micron band -c in the infrared region : -c index 6 for the 0.690-1.220 micron band -c index 7 for the 1.220-2.270 micron band -c index 8 for the 2.270-3.850 micron band -c -c The terrestrial spectrum is divided into nine bands: -c -c band wavenumber (/cm) absorber wavelength (microns) -c -c 1 0 - 340 h2o 29.412- -c 2 340 - 540 h2o 18.519-29.412 -c 3 540 - 800 h2o,cont,co2 12.500-18.519 -c 4 800 - 980 h2o,cont 10.204-12.500 -c co2,f11,f12,f22 -c 5 980 - 1100 h2o,cont,o3 9.091-10.204 -c co2,f11 -c 6 1100 - 1215 h2o,cont 8.230-9.091 -c n2o,ch4,f12,f22 -c 7 1215 - 1380 h2o,cont 7.246-8.230 -c n2o,ch4 -c 8 1380 - 1900 h2o 5.263-7.246 -c 9 1900 - 3000 h2o 3.333-5.263 -c 10 540 - 620 h2o 16.129-18.519 -c \ No newline at end of file